From c250e844beb3b8a62e7b1e6e609b07dd01bc328e Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 9 Dec 2014 20:54:13 -0500 Subject: [PATCH 001/166] + changed cp command to copy - commented unused _Dedicated copy (last file) --- xrbinup.cmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xrbinup.cmd b/xrbinup.cmd index ef8e5645fa8..41dab49c691 100644 --- a/xrbinup.cmd +++ b/xrbinup.cmd @@ -42,7 +42,7 @@ if %cfg%==dbg ( set dst=%1\_bin_rel ) -set cp_tool=cp +set cp_tool=copy %cp_tool% %src%\%cfg_long%\xrEngine.exe %dst%\xrEngine.exe %cp_tool% %src%\%cfg_long%\xrAPI.dll %dst%\xrAPI.dll @@ -71,7 +71,7 @@ if defined dbg ( %cp_tool% %src%\%cfg_long%\ODE.dll %dst%\ODE.dll %cp_tool% %src%\%cfg_long%\OpenAL32.dll %dst%\OpenAL32.dll %cp_tool% %src%\%cfg_long%\OpenAL32.dll %dst%\dedicated\OpenAL32.dll -%cp_tool% %src%\%cfg_long%_Dedicated\dedicated\xrEngine.exe %dst%\dedicated\xrEngine.exe +rem %cp_tool% %src%\%cfg_long%\_Dedicated\dedicated\xrEngine.exe %dst%\dedicated\xrEngine.exe :ret endlocal From 07368752ffc9fd957f63a7c8a527b797d03ac173 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 12 Dec 2014 00:54:24 -0500 Subject: [PATCH 002/166] * Possible to do interactive debug of the game + fixed project dependencies (resources), now entire solution compiles without errors + fixed existing macros to use *Root* macros defines instead of $(Solution)* + moved all VS build related folders (bin, intermediate, lib, etc...) out of solution folder + added xrGame and xrGameBin macros + changed Debug config to generate game related DLLs in game folder (defined by environment variable XRAY_16X_GAME) - removed some projects (dedicated, editor, plugins) from build list in Debug configuration --- .gitignore | 1 + src/3rd party/NVTT/NVTT.vcxproj | 2 +- src/3rd party/crypto/crypto.vcxproj | 2 +- src/3rd party/cximage/cximage.vcxproj | 2 +- .../luabind/luabind.beta7-devel.rc4.vcxproj | 2 +- src/3rd party/luajit/lua.JIT.1.1.4.vcxproj | 2 +- .../contrib/msvc7/ode_default/default.vcxproj | 2 +- .../openal/OpenAL-Windows/Router/OpenAL32.aps | Bin 18500 -> 20300 bytes .../OpenAL-Windows/Router/Router.vcxproj | 2 +- src/Common.props | 33 +++++++--- src/Layers/xrAPI/xrAPI.vcxproj | 2 +- src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 2 +- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 2 +- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 2 +- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 2 +- src/engine.sln | 59 ++++++++---------- src/plugins/Maya/Maya_Export2008.vcxproj | 5 ++ src/utils/xrAI/xrAI.vcxproj | 5 ++ src/utils/xrDO_Light/xrDO_Light.vcxproj | 8 +++ src/utils/xrLC/xrLC.vcxproj | 8 +++ src/utils/xrLC_Light/xrLC_Light.vcxproj | 3 + src/utils/xrSE_Factory/xrSE_Factory.vcxproj | 3 + src/xrCDB/xrCDB.vcxproj | 2 +- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 2 +- src/xrCore/xrCore.vcxproj | 2 +- src/xrEngine/xrEngine.vcxproj | 2 +- src/xrGame/xrGame.vcxproj | 11 +++- src/xrGameSpy/xrGameSpy.vcxproj | 2 +- src/xrNetServer/xrNetServer.vcxproj | 2 +- src/xrParticles/xrParticles.vcxproj | 2 +- src/xrPhysics/xrPhysics.vcxproj | 2 +- src/xrSound/xrSound.vcxproj | 2 +- src/xrXMLParser/xrXMLParser.vcxproj | 2 +- 33 files changed, 116 insertions(+), 64 deletions(-) diff --git a/.gitignore b/.gitignore index 4254883e0a8..47e7098f87f 100644 --- a/.gitignore +++ b/.gitignore @@ -8,3 +8,4 @@ bin_plugs/ intermediate/ intermediate_plugs/ lib/ +_build diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index cb205ab63d5..0a3219be261 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -211,7 +211,7 @@ $(xrIntDir)$(ProjectName)\ - $(xrLibDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 22ab473f182..caeb7979068 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -42,7 +42,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index f6c2c004219..fe68df90b36 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -55,7 +55,7 @@ $(ProjectName)_static - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index 47e58257a35..fa759b45e0a 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -48,7 +48,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj index 7601f996a70..81d421534fc 100644 --- a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj +++ b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj @@ -49,7 +49,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true false diff --git a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj index d5c1ed501b4..a78331f9efa 100644 --- a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj +++ b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj @@ -63,7 +63,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true false diff --git a/src/3rd party/openal/OpenAL-Windows/Router/OpenAL32.aps b/src/3rd party/openal/OpenAL-Windows/Router/OpenAL32.aps index 61a61776876991c0e41d79c0e0e45b6956c59f33..14de52538b336fe33d9d297d894046494acde00e 100644 GIT binary patch literal 20300 zcmcIs2echWdH$a*3z?Rwf)^G3K>%Dv5(^DQSvMt*RLK06B z*aZWl_iE+)XLj$*&Rt2#$;s2vEAxHx&p-X2 zfBri}MBDNI_;K|gzt+AA{B=+KU!isK@$>lcr4m1LTlouJKOzzj*qr8GvMRF8>7ip= zm+d>UnI7JEaCf%%n$4@X_Fl8o>1`g_x@@z(b@}$gd$*2Wvv~;c-UE{5B|F#mAH4j~ zV~%WQhmIZHw^gRL-CbLk5nXtCrQ>bp<+n(ef8psJsIo>=D)3!UhTmdJX^g*Pe2?%u zfBn<8AKXZ^M7N?d=nk}Rsrva~i4twYzthU!s~^ur!V=^ir7hY|2kA;k+fN5*A0!{7 zE9el2kCvPkb*M!{{O{1E_)heAa*#Iw=aF=n_JV&6wAqWl_DS&*AX|{UA3qP$5%j|a zVDG@s0O|X{WbD!SZ966S>r%<#axbG@NMnhYj-jlT@KGnW**m2$=eH*rKVu)Lw*lsUqCsHq-L?K3)i1(aZu)}YQS*Wu??EpIEwl?Q)TS==@tcbj{>tfWCevapcIQPV zrs*sTM6u>2GeJ(vAxPGEkd8*)I4t2#s|5nu&LoWUEKTP5TP?b!iBC61qRP(F&myXH zs#*b^xpXc)X8%FiCRmD=)~3ap$fj{RF5+>NVxHWNmf|odu-4{rKo{(Ec3`+87w0WT zQBXv2BF5eb6%iSo=eVu&=q|Jr_}R4Zl6ZMsBqGYGb+v;kBy?d7%F_uDS0WeHkStza z;aptt1OwL;=%;y}jsOlM_~07ojW>Wq5_w38_-Pi3tWu-}O%lvgC9=enCM~FvU^v#G zN|hFLNia%l;9Qp$lu0mxYp7DD1#J>c7zO2Nn&k0h3N6v609HyMN;Z7fy#*~2%nL=2 zlGMwK(F}Pc)&X{Ly_9w+kpYm^5?P5ufgYSBULYjc8YGxxO5`-&BZ_bXorWIe@>-n) ztE~Y>@ou4nw%i00)KDcJFRMIGf)!f<%UL{`p!Zo8cNkaqk`ha^Sd8;xCC&EG1;(gA zgFn{zQ?=s`Yzs7mlcsT{(p!ezxaOH2-HvqoCAa!i%FJ+#cgL(JsQTcD&@P4KXiug0C3L#C)|7(;po ztPZ7aIT+0>DyfzSR7tQg9T8B{?LLl!DA9ommXn3tKQgCSPxqZOPq>{m$Cj>q7TxN z7wsa#7XH_OvP&ZlXjW|hfz z=sBn0r?cG5;L>xg48e*BRtsHBkfK*|EWt{nHa*YE5T@W8I(O*rEQS(^-64?+H!lIG zTbG`1@z&yL?8ix*Z>V-tydJ&4;(0+J5+Pf<7^it0ZJ6cv>4g?wbwZwb!Kzv>Q2Kyg z)W}-*;UiLd^udqLFB6711jjX=VQhdAx>>kRqKHy~^U|elcB1*NZSq zCttr%!J<0VxxsbWM$UXF%6ltSt8Zbj-r! zlry{B8PXe1$d;|YDmKc!TLg|rZ)#*uys=13RegH%NrVX*pwShPOh#!~XSno1&6vwB#K;$6 zSWfvC7XIrr3k{8i*(lgnC#6uhYO0?E&zoS1jy|PR(}|Fyl&#-S>ts2972T!J==74rtDtFR7zXA$cutV{p7i1iiLqyJjO z1`6xbcNZ}@V7Lwg`raajT1#+9-){iRmhtEZ4Pe$z(r|rH%zJSWZl|(yq3loKH ztZXu;-KASfgqL2=hs7Z4)M?S}=gDGsN$xmw2bs!S2A?g&ZpC)#jyjz?Rh|`v(`nP4 zG%%Z%8;8^B(AhE_rf|;A5*DaLb?MIY94e(pca>lZ(lE z|0Q`=!VoX_5@pnKxoyMg)~ z(sUHdHfdvv?Kk4(z-+@T7|43_23fGH1%@7r9-vwe)Cjw?W>dC&73k1~8qCBzy+ar2 zbT+??={SHk57Ov#gcYyqy#YGlAsS1(Y*}c`AH6gl=|+0z3U{sTN1w~TwYrf-^mf;XrPO6v4(t;6()2(Z zqFGl>q}nQm82*U~@Fe869%6uuOrRPYLk##a19fNPTBY3-XB75au@E@as4#)b;Ez!3 z!)pLnd!Easy)}@lItSZysR^>eYHd~}cIYw_X0=VYOP8DQ+{lbDB=?yJ9KUc_sA{0g zuQ0J3huNeY4-tC(N)3+Ssac5=xgSQ@hxcnJ6w_5cp--o2CO6k8^ym>9XFHh9WYmNG zqI6J0Y!_I;^qTSe_+V89;4%l!hvaY-}pHLt7fQ*BfN-(h-f% z#yp03gjM?X=%|L-4T=rj$C@(3W?>UL^jJ-Z$MF7RMq+ue zd0qMw&71IHA|12pvi8`2|5T&t7;Z4RI7cn)!H?5OzMg8trN?VTN@PrV@Q|@he`dn+ zh`|JmF80WQ(V;BnR*bJf%aqf39$%uoV)^p_TFjId6h{>nn(d7Sr9XFyM|;5?m= zlFpExs8O6H*)U^I1Uo=v;e!@ENi*bL&3mT89D1_GJod!k7{wPFCGOHwG#;ppy0kN+ z)}T#K)hKTgN@$0krjv1(Gm~~F_+5Is2BIw8Baf*7dh`qpu=|GV$6ElfKK+fxM(G5W@^5qD|LoRF@NEIE3MHsw$~NZ!~B; zZeY_D(wtIqy7VT4FxMCM9n5sO$SGcr-rU4XyxBNdsm=_jTA$vcd062@Huf+NA$TVD zY)}UDR!ym{X={ujy-hR9%9Yy%W_49JkN!ckX5&mOqu%n6fA-$u{@Ik`N#=*6E9zp-38m`-xpZ809!4hne@>_4xBL`U7#qF5`hYywDTPJWk?_R|Ql==@IJ58$eW}8+zs(mib=#)&>(ZB-C~6H;lpcLWQ_4km?i7alefp}# zbtxugKwoR3V0ps9M4bkl!H~Y*M3NU2b*4w(Xkuz#2(5ah!w@5 z?`cX|kYr5ZX;&1NzHd-?Ya3Uqzt^H4S{Mv${Qer|Epl~4}4Tl`*rQeMECw zFt4BKI8n=u@6u@&j?tAy^OpD9bh<^5E31~!p=}lcjaqqbBggO3O&0M0P9AwGar_>g zv4~G`qdnqC4G8GdO)J8*NCWtG0xuD>ahy+!38IXohbwXdgxG0b>76TGu#t;Z{#F_- z1E?_GrPmO!L$}s2WCyseG+>u*qha=g8CaWcTVa!8dP!2P_Hqg4D!5qk?^LHKCm63m zu;kZykW~%pVh1?8P8OpHqAP+lnT-$%r+hmQ+NL|#c~LA93}@MN#VCe*4m+4qphI`5 zbK@it%dn>ST2@iIbk{mX28>OxsATCnZhxZ)JD8fYE{>V!)X8w4lv5GAJv;c6&_3O5 zf!82zKzFaxbo-dY)y1Z9k2;at8)fGy0=ZR@h$pU7($EiV+t$T~ac-T)(QJ*If;$N4 zygGL}MnKaF7R-fR#>H9n{5qLee(Y89$TpU-bm%-m_pGzZfm3Hibgw!KRfUP?Vbqih zwTrFf-gOSz7hxD|2{x#QbL@TUblE&>F1qcK87_@g#|?3}P^Y2fNjjB5ML5qX`Emxk zL)s4A66NZksVV7S0=9xub;kCPd?56;3pRh(1gV*7Yt zof{$m&d2gC6~gv$VI400VqD8IHUdIix~R@VZ()hW3{lQT7rTgGXJC)uQe=cMFOhzS zf;vO3ce8QLAM0W}2`k>TSjlr8lM=b1L$L+&+EDry-O#0rEtvOz9{56Dpg=;KRxJt) z(v|w;2s@NmBuraB4q?^EW(&JCvIzBI5%y?o5z2$W{9NLOeM&733yDWqlHs?jrb;-V ziKfXwFy12kba%mi3B(0Tl@LRbpMYkNT$-JLG%CY+BUiL(O_SJMmrfgAv2l{&=#bTd z!xF&k(4JE>1HvP3GsEhaVz|3feo}^LLA@YKiu`WH?z{*>9272@q4M<0C6%fK` zpPs5wz9Ep_WLb>?JxxPwU#rfR*pQyCG3g6{Fqo{*(5XsqwS@&d(;qG{)hWL(nj=-sIBDksJP>^CQm4M6rwT&oi z2xt528bN4-b)rSDZ$cp#phItH0$0`~>e97MsFK^JH#ULXY7pF^H#MRX?9!VXK_$3H zZ)rkh=n#wU(_5QxY!|tdKA^YRc#7-HdHx~2y$P@K!_)kZCS0`%T+Q#a(GfN&E*Vbd zcU72=BNN6shbgM7DekBay<6k8&2`w7J=vr8Rs@6=tEkFC#=1)w?%@iK5l4>*$xs!6 z(p^l@57ki>B*{>RuB#w?J_<`E&wSoQTJ+I6z>E5n5r;ljN2d7(-~9n{>EjlJkOhgf z=@S~6!g;8my#;uN52i2?kzCbX(4 zhVa*$@UpfT#ow@DSvc=7tT@6zzG)M>EKW~61r83MI(l06oTuoI0<=rg|mq?%@zta>o;yIRv zKd2?~4&7+uu&mZo8~`WkgLM$nrQ5Q-9Eq>W0i`i7cH0T2ha0W0Nc~eY))l z8CuSOZl_tek(uGnT&Xdn-_wYn%7`+wqer*b$uS&q>as!LqVf(JV7>_kbVm)U-9+mU z(w#KOmvZ>T9q&@O;;nqQ!Vz@#iAZWO;F*Ycw>zJRRn2+k;X?E-npYw)*UNh=f#b+s z>o|@oIBLsy4%s}o2|Z_#QF-hI4kdS6gjH0E%HN^8FA}P#7e(pPJr*ftbSUc3qwN}2 ztHor(AG!rLpmQ6r!U&WSh*3XJbGV_4d3KM^UxezpeY&Tnlr5+Q1az-Pv@Rp0doQrm zeo%b`DMFkv-A9wul$SP7!JnA`?$8Czxb#m59G`Y*9M+^S!}VoegvZ^_!gvFi$4*BA zVRAbw#sn7;at{kU1lg(23`GJS`c@-@11)4JgAO?h3_ieeu&-it$z5QuPh5L11-$WX z&4Hg!`Sv6De>nCHwGI>EJa3?r4DKI3{NX=Hg*?Ap$Km!STox$nS15FORbbMfD;~~uuZRo2zWPxkJ z3r(IRrTN@BE^s4wkx3{8RhJ$DH-Zl`aTeeu+`Jp}Uc{~7gH28dH$x!ebndAWxEOqh z$uOiK&~2KlJp}iIp2>nP>Xri)TUK!v0+)oo$uVyTIff!I!MOmlMFfQwr)oLXixCME z$5`VlTjnS&;Si2Yf~u|Mg%$7%FPkjP3*0yHaL^aK0&d|Ilf;#Q2UE7LR0dw**d*}f zvTQpUh^*TezTt~)9t7!bhEsUeB$W5ZkjKGSY6Pkhdz3T~adc0kaT&=XaN#&=AhBlh zc1B({3x7c423EO9Y^WzWcop)8l%9mhp9a{NUzft#qKV1IjTEXnk2&`Eo}`KZ624ED zoP?~Z98hL*#zKUZl6Ki4O--sQTlOs)Qmt6Npxopj)Z!%iMKn7JS?Y&t+clF@=~nCD zz@c@MRCaKX#1kK%rwEOH30&IUKsC4cpiLVlrSzTZ0T;k=Z4!7@XD2rg0o*jgm8MjO z*V?2_@maQDg^icG@^D$3wDQwn?88SGKTa$1ISkyc!eM)@w%1zx?#zF zE9N>0@S8H#TQSGWuQRs^yl1qDM=)~v3eu{4TZ;cagjayJ@D32arnEVKDQP!ep4y9- zeKzT8p#0lTyx0Pb!D99%UOZB7EAeYkTXa-%50&pM@w-G?7Qec*6AxeTi$#~CyvN9r zGFkFb`Kr<;Byjm!mtA=DfnV%VUuSL$r1t84p)0}Ww~n^YUkXz1O9 z?86IV0cUcD>}PoXA0Ior8#Fq8oX0(GVUrmG3e?+JcB(5iwNu;kR7R2|yMFpDrfRJ7 z`)>S>)XCm=B{?)c@uUDSkKV=t=WvT|t#!{QA>-PMT-&eJFk# m>IUS|_0w-dm0}TuMs)jClcU#!io;`NJKnj|a`afKIR6bp3Jeke delta 6816 zcmaJ`33MFQmHn@9Ebo%6wYz#>B+J^my49N{FV)pmQc2xiO?9_qc?^vYm>rvCSP~32 znGA%G0ppi5WFUqB!;pc1A%MX^LY%N>fM75LFkln*u&;pu;(1lw?UH5A_#A)z{`bDW zysH1+{l6Z+8XnvXn?0ak?zJtl&0y7kyA{TcS+ZKn$f8~tn_PXy`ZG^IdhHpj*RDJ6 zgmr5#Umv~wdhZPW?&XXH$YO*|uoV5>zyDFwKE!OecgE|!E(Tu4fPs|K3uQ5*4(G}l zSt+v6IYKBD%COj$nKp={eI}ns9K=d##iEuaUc%%h4+6#9Bq554EWuM|^2wnpp3?NR zte1;go(Q3^F~rh?Azd9FF~$!K7~nG8InxQtaqmofXhoG+)U-@d%@+((NFY+G3MiS$ zlreCKI?gZ&yXts8eQ@uQw23DOm$6*u00lSHIikZ=RzY1QmlbuTT%m=+8FF34IZ8$o zi)wDzv=0dxrs5NIJdEKxbuq}IXI2byI6CQ8z|nA$BsJQqRNHcyYZGeu+2Md*M2KtUd_;i67Rx;J*^u+i-J3D}TF%7Q}J6EE><7tOwX{aA$)9?!Z?XoEz`7 zSb1H|nTr=fady|V_HtU)WvL1$*!JmgUYEz!+60sAZVNBv(_*nYH<8_A0miKG2aOG| z121XhllNK(t+cG@Vzz3PX7^cGRxi;DrqlB?RwIPiZ*gxU55L2&sgDPy^D=Uz!V9zC zABqiBun60U+Cm=wfF~{FlYcyv7q9SQ?7>5^Lbv z!WDXoJ@y@7b*>Wo6KYKk_#Zr(%E$5ICWqsRgXtNu<^Y8~i94IxU>Cm7#2@jrNt4rR zu`FqMV=v1>ILw}z(p;)|E*xRItyYD0K!rTOp0%3uG)(0ogrn>^JiOTff5COlZg?Iq zZEjD#U@>($pAn@hH_2YKkb<0{7l&eFrZRxY_AuPr+>(9C;^=Z(tDq8l*=(Mm3274t z-uXy~?VH*z>bjU4t_&9u*sBc17CZM>hDWqGxYrn-+u~4PpK4IZXVl8VBT@E-iHP}p zSxjkFe+-1!`v;okl~wY9z&>EOucej$&;&>1OrBo99K~RBz5@~V5yQsT){&1*T+(ty z3L#~KS0O~%CkHGmEiv|)*^-tOv6Pw0jkC`gu5WFzeQ6SmJyp(&xymx50{e>L*4DP< zHzul4NKkVHSufVSMA?AtKY*DpK}OAunfpFWL5t!0txf=(+vWuhd)qv480Ok|n1L6z zxnK_7(B@e^7eG{2mML6TcQkcg35k(Vn9Vx`HCV>7BB2PI{~c&Gq(ms}EI@C&8|qPP z_wWs1L}VjkP%6_hDbaK%r9#$(8`>SVW((Kl1Ly#2!Q0!N(29R<=b;_nZRgu<7Biz( zHbsJVnH^m=o1LEu=H!z3OcKHXbKv2&c5vc}wngAVv;_y;CY53wC0HxKBxy$esYq?( zCCQ%we9zY28=MN)+>s=AbQpkCE)*&4No-NC(8c;tu(!wKH9r-~1u3hIo6lFF4ig6f zYEI2kIyJnjknfYY$?kw9xYh20LA;;JA>3oPIhRf~(kZcNdc}skunZe{2W9_0-VP$F zygM#gY%MS6jKo3%7)paF7G#8G3li8cUc>V+g7;BBDn7@%U=%;6-o`AGQZ7dU+i+d2 z#~904@Q9kO3?v9Fi(`%e6% zc0vieozCb=i>&1+shYt+3DJg~w2}9Nyz{wjXZ|BbJIr_)M)nnf~V z(-elpPRHGD51fIYyS>ZKw0LPXRaP`TD;i;srlzp7EHI@Ovm!+@3r~jF*;w@W;T$~2 z{eg|yE#eO$jj-!4rY{8SMM7-3`!@uKAgkFJbT`xQS|= zo|~;H6eL~E7t6A)8v>GyC@2A+S59Sj+l2ZL3tN zV4g07M3~))`#S7!7k=I0hV7<*`#TrF-BnM|oNW$5ukAg!rqfMA?Sf7p+-suubT+_! zX6@z97P#N6)h()r-(uS$KgqE{Dj&e|A`krD#9Y2wZwkq+>lgXpL426XhwvRLAI5oI zJUohvx?J!W4tIIrPk4Nnnw)=SnP(UaEQuX zxO%Y*p2l;jd`p#wt=`novZk0z5@q(B1&O*eQqEBrF|kyLJrCH}?c`nn z40XG>7XkC#Zf+0YY2EIPFHN&ciD^R*tgP5Z*~^FG5@ih|3oAk@#$GuTFGwSDR;&=> zY;TQFC~Fes4@u0(rJPzUl=F13!up;$+^c|mkAr&?Fxlhe-U3|N<8-}k*<~qr&^|Tg zyb_K?*gLcndc53+fZKbzxsL!}>*?S=CMnRnnEM1U-s|N)1zgqJ&3y)VQEvzLIpDV5 zAom5}bG@D1-vRd%Q0-gH{V(8|ecjyGfY;pfR!vP53kHQ`Z;tf=G;KN}*bmHH_9k2)+BOTB~WgBXd`Os_B z2D8;OtrDgaMPF?`QrXZPDQ%^3m}CQ1vovDLQ-P9t6rUPsb;T^qJZF{Dnq(wQW(cz+ z&WL)3mQ1JQHN9BnMA+aVD5bnyDN7v;upvAu+S18!iPi0LXE|1jsNp{h9;Wc|YMgRD_ z@R4z2G*WCAPe-$2VT{!oV3_>`b4%Qmjn^&lPzJtiiHkP+txKGgbst}1w_jnI8UZP< z)6JFXkF8qX&JiZq4OrAyMr)g+z*LG8F$D&bklU!q@2lU69zHLZk`U( zt0?D+qJhTPuW`+g9d5x5RNjhL47n*E-#z4n+wj>Tx99fhwrNoxOJz#527&zd8*ELuCO|11)Ykdl1_PhRGujC&bbJc-+u z1t{b0UgqPT;_%C5E^Zfx?aN)<(;Oz2ySZmLyk>a|u3J8r+s)y;747rPBb_3LQtVj+ z^K#E|_=n|w?k^SQH_I1r&l}93|ApEV3Up~UF-z`p5SjnHi<-O8FbqSRNMy~?311~&fHBI@#R zDN~)TkYuk}NJ`6?+DsNi_PW)q7U@b-GSamyq}Ur4VDP7c5_{7EEAOYFk;$@-Ow;Tw z4nGwA+}p;VHtbH#=iV`^8*9(g7=l#e->hD$2#J}Zc?ChZz}`I=r$<;W<;HT_gn8_c z=>q7zLm4%_BU6%i|6sV;=%I2%Fjq+#;{y&~PmzG&uugKiKC<|gCzj6}_qsHh1pAo7 zl;m@MVo{8JUp~MP*{2*{AbCBXS&ZtcERw`Nr?*84a9?ovw&dsj&f)yDi~EwUE$Giz z9A?vY?i&tINPD<%IlLt8A(8Rxw3kH2lT>o}QQA);qgn1GVKF2-NLWnDZW0#XmwhBG zcFIk-O>U$+kDam~=AwJJ4Zo2aU>?p_JTM>o6gMouoZ|P_A6Atf`LaynV_cPFRXd=+ zWl>}e#B0Nwl?Bj<_bPr^h_5IPk|bYKy_tG;lO$O_?4e7GqlSafh8GS8=<4ETYO&$t z!<{5mKBGF1-qB|48fgXx)tVMk2-lQc$-FdE%Ncb3i&mL_f@#7u! zK^LY+J+K(pj&?vd{*=ldykoSpwf8XNYX^Prpz^i-=7$jaG=d+G+J9DqtehS%HnQNoqNRt!HPl)7jB%E!9_3xsDyjPM~rvo;0?;(Kch$w9Jyl zIQ>tcm Va|DQ;#yOg6<~EvqK*2uE^?%G3M$G^K diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index 521a303627a..11712605ee6 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -46,7 +46,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/Common.props b/src/Common.props index 67c1a1fc832..abbaaa58299 100644 --- a/src/Common.props +++ b/src/Common.props @@ -2,41 +2,58 @@ - $(SolutionDir)..\bin\ - $(SolutionDir)..\bin_plugs\ - $(SolutionDir)..\lib\ - $(SolutionDir)..\bin\$(Configuration)\ - $(SolutionDir)..\bin_plugs\$(Configuration)\ - $(SolutionDir)..\lib\$(Configuration)\ - $(SolutionDir)..\intermediate\$(Configuration)\ + $(SolutionDir)..\_build\bin\ + $(SolutionDir)..\_build\bin_plugs\ + $(SolutionDir)..\_build\lib\ + $(xrBinRootDir)$(Configuration)\ + $(xrBinPlugRootDir)$(Configuration)\ + $(xrLibRootDir)$(Configuration)\ + $(SolutionDir)..\_build\intermediate\$(Configuration)\ $(SolutionDir)..\sdk\ + $(XRAY_16X_GAME) + $(xrGameDir)bin\ - + $(xrBinRootDir) + true $(xrBinPlugRootDir) + true $(xrLibRootDir) + true $(xrBinDir) + true $(xrBinPlugDir) + true $(xrLibDir) + true $(xrIntDir) + true $(xrSdkDir) + + $(xrGameDir) + true + + + $(xrGameBinDir) + true + \ No newline at end of file diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index 833c519fe6f..c6f5adb774b 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -43,7 +43,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 7b9eaa2045f..630accb3672 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index aeec26c76ae..4848f288948 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index 79c499eae5d..c23f336a8df 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index 18bf5fd4524..dafd4960090 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/engine.sln b/src/engine.sln index a90f6652d59..0e6d63621a9 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -1,6 +1,6 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2013 -VisualStudioVersion = 12.0.30723.0 +VisualStudioVersion = 12.0.21005.1 MinimumVisualStudioVersion = 10.0.40219.1 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "utils", "utils", "{89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B}" EndProject @@ -50,6 +50,7 @@ EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrLC", "utils\xrLC\xrLC.vcxproj", "{A4ABD75E-825B-4D09-B3B2-2709682E40C8}" ProjectSection(ProjectDependencies) = postProject {EFB76D6F-0092-439C-A783-C0BE10BD17C9} = {EFB76D6F-0092-439C-A783-C0BE10BD17C9} + {F1836CE2-59EF-4189-8B9C-D103A511CB27} = {F1836CE2-59EF-4189-8B9C-D103A511CB27} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrQSlim", "utils\xrQSlim\xrQSlim.vcxproj", "{F1836CE2-59EF-4189-8B9C-D103A511CB27}" @@ -110,6 +111,9 @@ EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lua.JIT.1.1.4", "3rd party\luajit\lua.JIT.1.1.4.vcxproj", "{F6C4F74A-152C-4612-9E3B-D02346234855}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrLC_Light", "utils\xrLC_Light\xrLC_Light.vcxproj", "{EFB76D6F-0092-439C-A783-C0BE10BD17C9}" + ProjectSection(ProjectDependencies) = postProject + {EBF9B543-0830-4866-9B48-DC0740E87E8A} = {EBF9B543-0830-4866-9B48-DC0740E87E8A} + EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrLC_LightStab", "utils\xrLC_LightStab\xrLC_LightStab.vcxproj", "{EC924B9B-4991-4931-8623-E1DB9AE005CA}" EndProject @@ -378,7 +382,6 @@ Global {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Win32.ActiveCfg = Debug|Win32 - {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Win32.Build.0 = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -390,7 +393,6 @@ Global {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Win32.ActiveCfg = Debug|Win32 - {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Win32.Build.0 = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -402,7 +404,6 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Win32.ActiveCfg = Debug|Win32 - {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Win32.Build.0 = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -413,7 +414,6 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.Build.0 = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.ActiveCfg = Debug|Win32 - {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.Build.0 = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Win32.Build.0 = Mixed|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -423,7 +423,6 @@ Global {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.Build.0 = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.ActiveCfg = Debug|Win32 - {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.Build.0 = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Win32.Build.0 = Release|Win32 @@ -434,7 +433,6 @@ Global {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Win32.ActiveCfg = Debug|Win32 - {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Win32.Build.0 = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -446,7 +444,6 @@ Global {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Win32.ActiveCfg = Debug|Win32 - {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Win32.Build.0 = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed|Win32.ActiveCfg = Release|Win32 @@ -475,7 +472,6 @@ Global {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.Build.0 = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Win32.ActiveCfg = Debug|Win32 - {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Win32.Build.0 = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.Build.0 = Debug|Win32 @@ -484,7 +480,6 @@ Global {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.Build.0 = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.ActiveCfg = Debug|Win32 - {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.Build.0 = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.Build.0 = Debug|Win32 @@ -551,7 +546,6 @@ Global {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Win32.ActiveCfg = Debug|Win32 - {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Win32.Build.0 = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed|Win32.ActiveCfg = Debug|Win32 @@ -563,7 +557,6 @@ Global {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Win32.ActiveCfg = Debug|Win32 - {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Win32.Build.0 = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed|Win32.ActiveCfg = Debug|Win32 @@ -637,13 +630,6 @@ Global HideSolutionNode = FALSE EndGlobalSection GlobalSection(NestedProjects) = preSolution - {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {1BF75FEB-87DD-486C-880B-227987D191C2} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {566551F4-4EF1-4CB4-A131-F982E7606907} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {0899B131-F1D4-4876-9BA1-67AC821DB9E1} = {3FC858CB-4888-42FF-ABC5-82DAECB59C2C} - {F1066EAC-EE25-4C7A-9023-5957A6F7BA27} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {C961EA19-716C-4A6D-BB13-689F8FB78B01} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {2FAAC8BA-369F-465E-B465-2235963FD377} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} @@ -655,26 +641,33 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {F1836CE2-59EF-4189-8B9C-D103A511CB27} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} - {F573DE85-0866-4775-955F-6C3241D2AE80} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {6BA3121A-ACBC-4685-9246-4549CA1EFFFD} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {39EE310B-4F1D-4716-A39F-4AB844DB3680} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {93AD3B7E-71DE-4FA2-90E7-A79782ED4960} = {901F5C6A-BA06-4727-B9BC-762891749A46} - {56AD8F54-F89E-4B5A-93F8-8A617BFD1160} = {901F5C6A-BA06-4727-B9BC-762891749A46} - {C928FBB1-EDD8-4198-90DC-170A54C2AD72} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {84D91673-C1A1-47FF-9A75-4E73F31F4C63} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {492D3DFE-9068-4E7E-A008-7C2420A651C0} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} - {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} - {CC52E0B3-CC35-4934-9302-035B748F3F2C} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {F6C4F74A-152C-4612-9E3B-D02346234855} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {EFB76D6F-0092-439C-A783-C0BE10BD17C9} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {EC924B9B-4991-4931-8623-E1DB9AE005CA} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} - {E5F40F9E-C01B-4B97-9BD5-FC24308D8022} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {FFDF27A8-C198-49ED-BA13-4DA9054266C6} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {032A10AB-E44C-4751-A290-001EF99E664A} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} + {0899B131-F1D4-4876-9BA1-67AC821DB9E1} = {3FC858CB-4888-42FF-ABC5-82DAECB59C2C} + {1BF75FEB-87DD-486C-880B-227987D191C2} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {566551F4-4EF1-4CB4-A131-F982E7606907} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {CC52E0B3-CC35-4934-9302-035B748F3F2C} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {F6C4F74A-152C-4612-9E3B-D02346234855} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {880CD250-BA77-4DAF-A8D4-552F12DD3AE4} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {0EB257DC-5CFC-44B0-82C9-CE6B158BE473} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960} = {901F5C6A-BA06-4727-B9BC-762891749A46} + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160} = {901F5C6A-BA06-4727-B9BC-762891749A46} + {C928FBB1-EDD8-4198-90DC-170A54C2AD72} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {84D91673-C1A1-47FF-9A75-4E73F31F4C63} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {FFDF27A8-C198-49ED-BA13-4DA9054266C6} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {F573DE85-0866-4775-955F-6C3241D2AE80} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {39EE310B-4F1D-4716-A39F-4AB844DB3680} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {492D3DFE-9068-4E7E-A008-7C2420A651C0} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} EndGlobalSection GlobalSection(DPCodeReviewSolutionGUID) = preSolution DPCodeReviewSolutionGUID = {00000000-0000-0000-0000-000000000000} diff --git a/src/plugins/Maya/Maya_Export2008.vcxproj b/src/plugins/Maya/Maya_Export2008.vcxproj index b49b6c25e92..e4cdb76da33 100644 --- a/src/plugins/Maya/Maya_Export2008.vcxproj +++ b/src/plugins/Maya/Maya_Export2008.vcxproj @@ -277,6 +277,11 @@ + + + {f1836ce2-59ef-4189-8b9c-d103a511cb27} + + diff --git a/src/utils/xrAI/xrAI.vcxproj b/src/utils/xrAI/xrAI.vcxproj index 6550d1874a6..5d246fc476c 100644 --- a/src/utils/xrAI/xrAI.vcxproj +++ b/src/utils/xrAI/xrAI.vcxproj @@ -490,6 +490,11 @@ + + + {a19b1df2-82ec-4364-8bdf-85d13a1c89b5} + + diff --git a/src/utils/xrDO_Light/xrDO_Light.vcxproj b/src/utils/xrDO_Light/xrDO_Light.vcxproj index 5cfd178384d..20b4854ba5e 100644 --- a/src/utils/xrDO_Light/xrDO_Light.vcxproj +++ b/src/utils/xrDO_Light/xrDO_Light.vcxproj @@ -231,6 +231,14 @@ + + + {ebf9b543-0830-4866-9b48-dc0740e87e8a} + + + {efb76d6f-0092-439c-a783-c0be10bd17c9} + + diff --git a/src/utils/xrLC/xrLC.vcxproj b/src/utils/xrLC/xrLC.vcxproj index 4da590089fe..6e21e111bed 100644 --- a/src/utils/xrLC/xrLC.vcxproj +++ b/src/utils/xrLC/xrLC.vcxproj @@ -428,6 +428,14 @@ + + + {65cbb9d0-fbc6-41a4-8316-f5e9b5d7fb33} + + + {ebf9b543-0830-4866-9b48-dc0740e87e8a} + + diff --git a/src/utils/xrLC_Light/xrLC_Light.vcxproj b/src/utils/xrLC_Light/xrLC_Light.vcxproj index 238a4c4ef1c..5965e3aee42 100644 --- a/src/utils/xrLC_Light/xrLC_Light.vcxproj +++ b/src/utils/xrLC_Light/xrLC_Light.vcxproj @@ -373,6 +373,9 @@ {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} false + + {ebf9b543-0830-4866-9b48-dc0740e87e8a} + diff --git a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj index 2c3739341fb..960619b0640 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj +++ b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj @@ -699,6 +699,9 @@ {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} false + + {94a1c366-3d19-48e6-8170-4adc2e70df98} + diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 948c0165156..53f7fc057f3 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -71,7 +71,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index a68dab90bb5..d518c655ea4 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -78,7 +78,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index f6618216c1e..e74f174fb11 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index d4653fb983e..c882055643b 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -107,7 +107,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 9abbab320a9..c23eab75277 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -61,7 +61,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true @@ -4176,6 +4176,15 @@ {94a1c366-3d19-48e6-8170-4adc2e70df98} false + + {ebf9b543-0830-4866-9b48-dc0740e87e8a} + + + {a19b1df2-82ec-4364-8bdf-85d13a1c89b5} + + + {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} + diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index 43e73801828..dc4c12074df 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -45,7 +45,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index ce91aaa3323..b9172b21576 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -68,7 +68,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index bd6aa6a7d12..237e2fd3234 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -69,7 +69,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 7dff00aa583..40b751a68d5 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -58,7 +58,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index a544769d473..12700c25028 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -58,7 +58,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index 935884b74a9..fc095b6a54b 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -69,7 +69,7 @@ false - $(xrBinDir) + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ true true From cb1784984923a0fd7fd1b2c188deb2a27cc87940 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 12 Dec 2014 23:54:47 -0500 Subject: [PATCH 003/166] + Sun direction fix (http://www.gameru.net/forum/index.php?showtopic=55777&hl=%F1%EE%EB%ED%F6%E0&st=2680) --- src/xrEngine/Environment.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xrEngine/Environment.cpp b/src/xrEngine/Environment.cpp index 9f7441de884..b63caf58830 100644 --- a/src/xrEngine/Environment.cpp +++ b/src/xrEngine/Environment.cpp @@ -614,7 +614,7 @@ void CEnvironment::calculate_dynamic_sun_dir() cosAZ = (_sin(deg2rad(D)) - _sin(LatitudeR)*_cos(SZA)) / sin_SZA_X_cos_Latitude; clamp(cosAZ, -1.0f, 1.0f); - float AZ = acosf(cosAZ); + float AZ = acosf(cosAZ) + PI; // AVO: sun direction fix const Fvector2 minAngle = Fvector2().set(deg2rad(1.0f), deg2rad(3.0f)); From 84c7bde3d708f90a88912f3c4e45cbdf3b3450db Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 13 Dec 2014 00:11:19 -0500 Subject: [PATCH 004/166] + sky box stretch fix + code format: untabify --- src/Layers/xrRender/dxEnvironmentRender.cpp | 473 ++++++++++---------- 1 file changed, 240 insertions(+), 233 deletions(-) diff --git a/src/Layers/xrRender/dxEnvironmentRender.cpp b/src/Layers/xrRender/dxEnvironmentRender.cpp index b77383ab2dd..9f8114cf514 100644 --- a/src/Layers/xrRender/dxEnvironmentRender.cpp +++ b/src/Layers/xrRender/dxEnvironmentRender.cpp @@ -13,337 +13,344 @@ // half box def static Fvector3 hbox_verts[24] = { - {-1.f, -1.f, -1.f}, {-1.f, -1.01f, -1.f}, // down - { 1.f, -1.f, -1.f}, { 1.f, -1.01f, -1.f}, // down - {-1.f, -1.f, 1.f}, {-1.f, -1.01f, 1.f}, // down - { 1.f, -1.f, 1.f}, { 1.f, -1.01f, 1.f}, // down - {-1.f, 2.f, -1.f}, {-1.f, 1.f, -1.f}, - { 1.f, 2.f, -1.f}, { 1.f, 1.f, -1.f}, - {-1.f, 2.f, 1.f}, {-1.f, 1.f, 1.f}, - { 1.f, 2.f, 1.f}, { 1.f, 1.f, 1.f}, - {-1.f, 0.f, -1.f}, {-1.f, -1.f, -1.f}, // half - { 1.f, 0.f, -1.f}, { 1.f, -1.f, -1.f}, // half - { 1.f, 0.f, 1.f}, { 1.f, -1.f, 1.f}, // half - {-1.f, 0.f, 1.f}, {-1.f, -1.f, 1.f} // half + {-1.f, -1.f, -1.f}, {-1.f, -1.01f, -1.f}, // down + { 1.f, -1.f, -1.f}, { 1.f, -1.01f, -1.f}, // down + {-1.f, -1.f, 1.f}, {-1.f, -1.01f, 1.f}, // down + { 1.f, -1.f, 1.f}, { 1.f, -1.01f, 1.f}, // down + /* AVO: sky box stretch fix + {-1.f, 2.f, -1.f}, {-1.f, 1.f, -1.f}, + { 1.f, 2.f, -1.f}, { 1.f, 1.f, -1.f}, + {-1.f, 2.f, 1.f}, {-1.f, 1.f, 1.f}, + { 1.f, 2.f, 1.f}, { 1.f, 1.f, 1.f}, + */ + {-1.f, 1.f, -1.f}, {-1.f, 1.f, -1.f}, + { 1.f, 1.f, -1.f}, { 1.f, 1.f, -1.f}, + {-1.f, 1.f, 1.f}, {-1.f, 1.f, 1.f}, + { 1.f, 1.f, 1.f}, {1.f, 1.f, 1.f}, + /* AVO: end */ + {-1.f, 0.f, -1.f}, {-1.f, -1.f, -1.f}, // half + { 1.f, 0.f, -1.f}, { 1.f, -1.f, -1.f}, // half + { 1.f, 0.f, 1.f}, { 1.f, -1.f, 1.f}, // half + {-1.f, 0.f, 1.f}, {-1.f, -1.f, 1.f} // half }; static u16 hbox_faces[20*3] = { - 0, 2, 3, - 3, 1, 0, - 4, 5, 7, - 7, 6, 4, - 0, 1, 9, - 9, 8, 0, - 8, 9, 5, - 5, 4, 8, - 1, 3, 10, - 10, 9, 1, - 9, 10, 7, - 7, 5, 9, - 3, 2, 11, - 11, 10, 3, - 10, 11, 6, - 6, 7, 10, - 2, 0, 8, - 8, 11, 2, - 11, 8, 4, - 4, 6, 11 + 0, 2, 3, + 3, 1, 0, + 4, 5, 7, + 7, 6, 4, + 0, 1, 9, + 9, 8, 0, + 8, 9, 5, + 5, 4, 8, + 1, 3, 10, + 10, 9, 1, + 9, 10, 7, + 7, 5, 9, + 3, 2, 11, + 11, 10, 3, + 10, 11, 6, + 6, 7, 10, + 2, 0, 8, + 8, 11, 2, + 11, 8, 4, + 4, 6, 11 }; #pragma pack(push,1) struct v_skybox { - Fvector3 p; - u32 color; - Fvector3 uv [2]; - - void set (Fvector3& _p, u32 _c, Fvector3& _tc) - { - p = _p; - color = _c; - uv[0] = _tc; - uv[1] = _tc; - } + Fvector3 p; + u32 color; + Fvector3 uv [2]; + + void set (Fvector3& _p, u32 _c, Fvector3& _tc) + { + p = _p; + color = _c; + uv[0] = _tc; + uv[1] = _tc; + } }; const u32 v_skybox_fvf = D3DFVF_XYZ | D3DFVF_DIFFUSE | D3DFVF_TEX2 | D3DFVF_TEXCOORDSIZE3(0) | D3DFVF_TEXCOORDSIZE3(1); struct v_clouds { - Fvector3 p; - u32 color; - u32 intensity; - void set (Fvector3& _p, u32 _c, u32 _i) - { - p = _p; - color = _c; - intensity = _i; - } + Fvector3 p; + u32 color; + u32 intensity; + void set (Fvector3& _p, u32 _c, u32 _i) + { + p = _p; + color = _c; + intensity = _i; + } }; const u32 v_clouds_fvf = D3DFVF_XYZ | D3DFVF_DIFFUSE | D3DFVF_SPECULAR; #pragma pack(pop) void dxEnvDescriptorRender::Copy(IEnvDescriptorRender &_in) { - *this = *(dxEnvDescriptorRender*)&_in; + *this = *(dxEnvDescriptorRender*)&_in; } void dxEnvDescriptorMixerRender::Copy(IEnvDescriptorMixerRender &_in) { - *this = *(dxEnvDescriptorMixerRender*)&_in; + *this = *(dxEnvDescriptorMixerRender*)&_in; } void dxEnvironmentRender::Copy(IEnvironmentRender &_in) { - *this = *(dxEnvironmentRender*)&_in; + *this = *(dxEnvironmentRender*)&_in; } particles_systems::library_interface const& dxEnvironmentRender::particles_systems_library() { - return (RImplementation.PSLibrary); + return (RImplementation.PSLibrary); } void dxEnvDescriptorMixerRender::Destroy() { - sky_r_textures.clear (); - sky_r_textures_env.clear (); - clouds_r_textures.clear (); + sky_r_textures.clear (); + sky_r_textures_env.clear (); + clouds_r_textures.clear (); } void dxEnvDescriptorMixerRender::Clear() { - std::pair zero = mk_pair(u32(0),ref_texture(0)); - sky_r_textures.clear (); - sky_r_textures.push_back (zero); - sky_r_textures.push_back (zero); - sky_r_textures.push_back (zero); - - sky_r_textures_env.clear (); - sky_r_textures_env.push_back(zero); - sky_r_textures_env.push_back(zero); - sky_r_textures_env.push_back(zero); - - clouds_r_textures.clear (); - clouds_r_textures.push_back (zero); - clouds_r_textures.push_back (zero); - clouds_r_textures.push_back (zero); + std::pair zero = mk_pair(u32(0),ref_texture(0)); + sky_r_textures.clear (); + sky_r_textures.push_back (zero); + sky_r_textures.push_back (zero); + sky_r_textures.push_back (zero); + + sky_r_textures_env.clear (); + sky_r_textures_env.push_back(zero); + sky_r_textures_env.push_back(zero); + sky_r_textures_env.push_back(zero); + + clouds_r_textures.clear (); + clouds_r_textures.push_back (zero); + clouds_r_textures.push_back (zero); + clouds_r_textures.push_back (zero); } void dxEnvDescriptorMixerRender::lerp(IEnvDescriptorRender *inA, IEnvDescriptorRender *inB) { - dxEnvDescriptorRender *pA = (dxEnvDescriptorRender *)inA; - dxEnvDescriptorRender *pB = (dxEnvDescriptorRender *)inB; + dxEnvDescriptorRender *pA = (dxEnvDescriptorRender *)inA; + dxEnvDescriptorRender *pB = (dxEnvDescriptorRender *)inB; - sky_r_textures.clear (); - sky_r_textures.push_back (mk_pair(0,pA->sky_texture)); - sky_r_textures.push_back (mk_pair(1,pB->sky_texture)); + sky_r_textures.clear (); + sky_r_textures.push_back (mk_pair(0,pA->sky_texture)); + sky_r_textures.push_back (mk_pair(1,pB->sky_texture)); - sky_r_textures_env.clear (); + sky_r_textures_env.clear (); - sky_r_textures_env.push_back(mk_pair(0,pA->sky_texture_env)); - sky_r_textures_env.push_back(mk_pair(1,pB->sky_texture_env)); + sky_r_textures_env.push_back(mk_pair(0,pA->sky_texture_env)); + sky_r_textures_env.push_back(mk_pair(1,pB->sky_texture_env)); - clouds_r_textures.clear (); - clouds_r_textures.push_back (mk_pair(0,pA->clouds_texture)); - clouds_r_textures.push_back (mk_pair(1,pB->clouds_texture)); + clouds_r_textures.clear (); + clouds_r_textures.push_back (mk_pair(0,pA->clouds_texture)); + clouds_r_textures.push_back (mk_pair(1,pB->clouds_texture)); } void dxEnvDescriptorRender::OnDeviceCreate(CEnvDescriptor &owner) { - if (owner.sky_texture_name.size()) - sky_texture.create (owner.sky_texture_name.c_str()); + if (owner.sky_texture_name.size()) + sky_texture.create (owner.sky_texture_name.c_str()); - if (owner.sky_texture_env_name.size()) - sky_texture_env.create (owner.sky_texture_env_name.c_str()); + if (owner.sky_texture_env_name.size()) + sky_texture_env.create (owner.sky_texture_env_name.c_str()); - if (owner.clouds_texture_name.size()) - clouds_texture.create (owner.clouds_texture_name.c_str()); + if (owner.clouds_texture_name.size()) + clouds_texture.create (owner.clouds_texture_name.c_str()); } void dxEnvDescriptorRender::OnDeviceDestroy() { - sky_texture.destroy (); - sky_texture_env.destroy (); - clouds_texture.destroy (); + sky_texture.destroy (); + sky_texture_env.destroy (); + clouds_texture.destroy (); } dxEnvironmentRender::dxEnvironmentRender() { - tsky0 = DEV->_CreateTexture("$user$sky0"); - tsky1 = DEV->_CreateTexture("$user$sky1"); + tsky0 = DEV->_CreateTexture("$user$sky0"); + tsky1 = DEV->_CreateTexture("$user$sky1"); } void dxEnvironmentRender::OnFrame(CEnvironment &env) { - dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; - - if (::Render->get_generation()==IRender_interface::GENERATION_R2){ - //. very very ugly hack - if (HW.Caps.raster_major >= 3 && HW.Caps.geometry.bVTF){ - // tonemapping in VS - mixRen.sky_r_textures.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack - mixRen.sky_r_textures_env.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack - mixRen.clouds_r_textures.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack - } else { - // tonemapping in PS - mixRen.sky_r_textures.push_back (mk_pair(2,tonemap)); //. hack - mixRen.sky_r_textures_env.push_back (mk_pair(2,tonemap)); //. hack - mixRen.clouds_r_textures.push_back (mk_pair(2,tonemap)); //. hack - } - - } - - //. Setup skybox textures, somewhat ugly - ID3DBaseTexture* e0 = mixRen.sky_r_textures[0].second->surface_get(); - ID3DBaseTexture* e1 = mixRen.sky_r_textures[1].second->surface_get(); - - tsky0->surface_set (e0); _RELEASE(e0); - tsky1->surface_set (e1); _RELEASE(e1); - - // ******************** Environment params (setting) + dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; + + if (::Render->get_generation()==IRender_interface::GENERATION_R2){ + //. very very ugly hack + if (HW.Caps.raster_major >= 3 && HW.Caps.geometry.bVTF){ + // tonemapping in VS + mixRen.sky_r_textures.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack + mixRen.sky_r_textures_env.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack + mixRen.clouds_r_textures.push_back (mk_pair(u32(D3DVERTEXTEXTURESAMPLER0),tonemap)); //. hack + } else { + // tonemapping in PS + mixRen.sky_r_textures.push_back (mk_pair(2,tonemap)); //. hack + mixRen.sky_r_textures_env.push_back (mk_pair(2,tonemap)); //. hack + mixRen.clouds_r_textures.push_back (mk_pair(2,tonemap)); //. hack + } + + } + + //. Setup skybox textures, somewhat ugly + ID3DBaseTexture* e0 = mixRen.sky_r_textures[0].second->surface_get(); + ID3DBaseTexture* e1 = mixRen.sky_r_textures[1].second->surface_get(); + + tsky0->surface_set (e0); _RELEASE(e0); + tsky1->surface_set (e1); _RELEASE(e1); + + // ******************** Environment params (setting) #if defined(USE_DX10) || defined(USE_DX11) - // TODO: DX10: Implement environment parameters setting for DX10 (if necessary) + // TODO: DX10: Implement environment parameters setting for DX10 (if necessary) #else // USE_DX10 #if RENDER==R_R1 - Fvector3 fog_color = env.CurrentEnv->fog_color; - fog_color.mul(ps_r1_fog_luminance); + Fvector3 fog_color = env.CurrentEnv->fog_color; + fog_color.mul(ps_r1_fog_luminance); #else // RENDER==R_R1 - Fvector3 &fog_color = env.CurrentEnv->fog_color; + Fvector3 &fog_color = env.CurrentEnv->fog_color; #endif // RENDER==R_R1 - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGCOLOR, color_rgba_f(fog_color.x,fog_color.y,fog_color.z,0) )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGSTART, *(u32 *)(&env.CurrentEnv->fog_near) )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGEND, *(u32 *)(&env.CurrentEnv->fog_far) )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGCOLOR, color_rgba_f(fog_color.x,fog_color.y,fog_color.z,0) )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGSTART, *(u32 *)(&env.CurrentEnv->fog_near) )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGEND, *(u32 *)(&env.CurrentEnv->fog_far) )); #endif // USE_DX10 } void dxEnvironmentRender::OnLoad() { - tonemap = DEV->_CreateTexture("$user$tonemap"); //. hack + tonemap = DEV->_CreateTexture("$user$tonemap"); //. hack } void dxEnvironmentRender::OnUnload() { - tonemap = 0; + tonemap = 0; } void dxEnvironmentRender::RenderSky(CEnvironment &env) { - // clouds_sh.create ("clouds","null"); - //. this is the bug-fix for the case when the sky is broken - //. for some unknown reason the geoms happen to be invalid sometimes - //. if vTune show this in profile, please add simple cache (move-to-forward last found) - //. to the following functions: - //. CResourceManager::_CreateDecl - //. CResourceManager::CreateGeom - if(env.bNeed_re_create_env) - { - sh_2sky.create (&m_b_skybox,"skybox_2t"); - sh_2geom.create (v_skybox_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); - clouds_sh.create ("clouds","null"); - clouds_geom.create (v_clouds_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); - env.bNeed_re_create_env = FALSE; - } - ::Render->rmFar (); - - dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; - - // draw sky box - Fmatrix mSky; - mSky.rotateY (env.CurrentEnv->sky_rotation); - mSky.translate_over (Device.vCameraPosition); - - u32 i_offset,v_offset; - u32 C = color_rgba(iFloor(env.CurrentEnv->sky_color.x*255.f), iFloor(env.CurrentEnv->sky_color.y*255.f), iFloor(env.CurrentEnv->sky_color.z*255.f), iFloor(env.CurrentEnv->weight*255.f)); - - // Fill index buffer - u16* pib = RCache.Index.Lock (20*3,i_offset); - CopyMemory (pib,hbox_faces,20*3*2); - RCache.Index.Unlock (20*3); - - // Fill vertex buffer - v_skybox* pv = (v_skybox*) RCache.Vertex.Lock (12,sh_2geom.stride(),v_offset); - for (u32 v=0; v<12; v++) pv[v].set (hbox_verts[v*2],C,hbox_verts[v*2+1]); - RCache.Vertex.Unlock (12,sh_2geom.stride()); - - // Render - RCache.set_xform_world (mSky); - RCache.set_Geometry (sh_2geom); - RCache.set_Shader (sh_2sky); + // clouds_sh.create ("clouds","null"); + //. this is the bug-fix for the case when the sky is broken + //. for some unknown reason the geoms happen to be invalid sometimes + //. if vTune show this in profile, please add simple cache (move-to-forward last found) + //. to the following functions: + //. CResourceManager::_CreateDecl + //. CResourceManager::CreateGeom + if(env.bNeed_re_create_env) + { + sh_2sky.create (&m_b_skybox,"skybox_2t"); + sh_2geom.create (v_skybox_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); + clouds_sh.create ("clouds","null"); + clouds_geom.create (v_clouds_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); + env.bNeed_re_create_env = FALSE; + } + ::Render->rmFar (); + + dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; + + // draw sky box + Fmatrix mSky; + mSky.rotateY (env.CurrentEnv->sky_rotation); + mSky.translate_over (Device.vCameraPosition); + + u32 i_offset,v_offset; + u32 C = color_rgba(iFloor(env.CurrentEnv->sky_color.x*255.f), iFloor(env.CurrentEnv->sky_color.y*255.f), iFloor(env.CurrentEnv->sky_color.z*255.f), iFloor(env.CurrentEnv->weight*255.f)); + + // Fill index buffer + u16* pib = RCache.Index.Lock (20*3,i_offset); + CopyMemory (pib,hbox_faces,20*3*2); + RCache.Index.Unlock (20*3); + + // Fill vertex buffer + v_skybox* pv = (v_skybox*) RCache.Vertex.Lock (12,sh_2geom.stride(),v_offset); + for (u32 v=0; v<12; v++) pv[v].set (hbox_verts[v*2],C,hbox_verts[v*2+1]); + RCache.Vertex.Unlock (12,sh_2geom.stride()); + + // Render + RCache.set_xform_world (mSky); + RCache.set_Geometry (sh_2geom); + RCache.set_Shader (sh_2sky); // RCache.set_Textures (&env.CurrentEnv->sky_r_textures); - RCache.set_Textures (&mixRen.sky_r_textures); - RCache.Render (D3DPT_TRIANGLELIST,v_offset,0,12,i_offset,20); + RCache.set_Textures (&mixRen.sky_r_textures); + RCache.Render (D3DPT_TRIANGLELIST,v_offset,0,12,i_offset,20); - // Sun - ::Render->rmNormal (); + // Sun + ::Render->rmNormal (); #if RENDER!=R_R1 - // - // This hack is done to make sure that the state is set for sure: - // The state may be not set by RCache if the state is changed using API SetRenderState() function before - // and the RCache flag will remain unchanged to it's old value. - // - RCache.set_Z(FALSE); - RCache.set_Z(TRUE); - env.eff_LensFlare->Render (TRUE,FALSE,FALSE); - RCache.set_Z(FALSE); + // + // This hack is done to make sure that the state is set for sure: + // The state may be not set by RCache if the state is changed using API SetRenderState() function before + // and the RCache flag will remain unchanged to it's old value. + // + RCache.set_Z(FALSE); + RCache.set_Z(TRUE); + env.eff_LensFlare->Render (TRUE,FALSE,FALSE); + RCache.set_Z(FALSE); #else - env.eff_LensFlare->Render (TRUE,FALSE,FALSE); + env.eff_LensFlare->Render (TRUE,FALSE,FALSE); #endif } void dxEnvironmentRender::RenderClouds(CEnvironment &env) { - ::Render->rmFar (); - - Fmatrix mXFORM, mScale; - mScale.scale (10,0.4f,10); - mXFORM.rotateY (env.CurrentEnv->sky_rotation); - mXFORM.mulB_43 (mScale); - mXFORM.translate_over (Device.vCameraPosition); - - Fvector wd0,wd1; - Fvector4 wind_dir; - wd0.setHP (PI_DIV_4,0); - wd1.setHP (PI_DIV_4+PI_DIV_8,0); - wind_dir.set (wd0.x,wd0.z,wd1.x,wd1.z).mul(0.5f).add(0.5f).mul(255.f); - u32 i_offset,v_offset; - u32 C0 = color_rgba(iFloor(wind_dir.x),iFloor(wind_dir.y),iFloor(wind_dir.w),iFloor(wind_dir.z)); - u32 C1 = color_rgba(iFloor(env.CurrentEnv->clouds_color.x*255.f),iFloor(env.CurrentEnv->clouds_color.y*255.f),iFloor(env.CurrentEnv->clouds_color.z*255.f),iFloor(env.CurrentEnv->clouds_color.w*255.f)); - - // Fill index buffer - u16* pib = RCache.Index.Lock (env.CloudsIndices.size(),i_offset); - CopyMemory (pib,&env.CloudsIndices.front(),env.CloudsIndices.size()*sizeof(u16)); - RCache.Index.Unlock (env.CloudsIndices.size()); - - // Fill vertex buffer - v_clouds* pv = (v_clouds*) RCache.Vertex.Lock (env.CloudsVerts.size(),clouds_geom.stride(),v_offset); - for (FvectorIt it=env.CloudsVerts.begin(); it!=env.CloudsVerts.end(); it++,pv++) - pv->set (*it,C0,C1); - RCache.Vertex.Unlock (env.CloudsVerts.size(),clouds_geom.stride()); - - // Render - RCache.set_xform_world (mXFORM); - RCache.set_Geometry (clouds_geom); - RCache.set_Shader (clouds_sh); - dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; - RCache.set_Textures (&mixRen.clouds_r_textures); - RCache.Render (D3DPT_TRIANGLELIST,v_offset,0,env.CloudsVerts.size(),i_offset,env.CloudsIndices.size()/3); - - ::Render->rmNormal (); + ::Render->rmFar (); + + Fmatrix mXFORM, mScale; + mScale.scale (10,0.4f,10); + mXFORM.rotateY (env.CurrentEnv->sky_rotation); + mXFORM.mulB_43 (mScale); + mXFORM.translate_over (Device.vCameraPosition); + + Fvector wd0,wd1; + Fvector4 wind_dir; + wd0.setHP (PI_DIV_4,0); + wd1.setHP (PI_DIV_4+PI_DIV_8,0); + wind_dir.set (wd0.x,wd0.z,wd1.x,wd1.z).mul(0.5f).add(0.5f).mul(255.f); + u32 i_offset,v_offset; + u32 C0 = color_rgba(iFloor(wind_dir.x),iFloor(wind_dir.y),iFloor(wind_dir.w),iFloor(wind_dir.z)); + u32 C1 = color_rgba(iFloor(env.CurrentEnv->clouds_color.x*255.f),iFloor(env.CurrentEnv->clouds_color.y*255.f),iFloor(env.CurrentEnv->clouds_color.z*255.f),iFloor(env.CurrentEnv->clouds_color.w*255.f)); + + // Fill index buffer + u16* pib = RCache.Index.Lock (env.CloudsIndices.size(),i_offset); + CopyMemory (pib,&env.CloudsIndices.front(),env.CloudsIndices.size()*sizeof(u16)); + RCache.Index.Unlock (env.CloudsIndices.size()); + + // Fill vertex buffer + v_clouds* pv = (v_clouds*) RCache.Vertex.Lock (env.CloudsVerts.size(),clouds_geom.stride(),v_offset); + for (FvectorIt it=env.CloudsVerts.begin(); it!=env.CloudsVerts.end(); it++,pv++) + pv->set (*it,C0,C1); + RCache.Vertex.Unlock (env.CloudsVerts.size(),clouds_geom.stride()); + + // Render + RCache.set_xform_world (mXFORM); + RCache.set_Geometry (clouds_geom); + RCache.set_Shader (clouds_sh); + dxEnvDescriptorMixerRender &mixRen = *(dxEnvDescriptorMixerRender*)&*env.CurrentEnv->m_pDescriptorMixer; + RCache.set_Textures (&mixRen.clouds_r_textures); + RCache.Render (D3DPT_TRIANGLELIST,v_offset,0,env.CloudsVerts.size(),i_offset,env.CloudsIndices.size()/3); + + ::Render->rmNormal (); } void dxEnvironmentRender::OnDeviceCreate() { - sh_2sky.create (&m_b_skybox,"skybox_2t"); - sh_2geom.create (v_skybox_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); - clouds_sh.create ("clouds","null"); - clouds_geom.create (v_clouds_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); + sh_2sky.create (&m_b_skybox,"skybox_2t"); + sh_2geom.create (v_skybox_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); + clouds_sh.create ("clouds","null"); + clouds_geom.create (v_clouds_fvf,RCache.Vertex.Buffer(), RCache.Index.Buffer()); } void dxEnvironmentRender::OnDeviceDestroy() { - tsky0->surface_set (NULL); - tsky1->surface_set (NULL); + tsky0->surface_set (NULL); + tsky1->surface_set (NULL); - sh_2sky.destroy (); - sh_2geom.destroy (); - clouds_sh.destroy (); - clouds_geom.destroy (); + sh_2sky.destroy (); + sh_2geom.destroy (); + clouds_sh.destroy (); + clouds_geom.destroy (); } \ No newline at end of file From da0f83411ea5ea9240a944b793feee1cda70bf8a Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 13 Dec 2014 13:31:20 -0500 Subject: [PATCH 005/166] + added new parameter -nologo to skip NVIDIA and other videos in game start up + format: untabify and VS format --- src/xrGame/GamePersistent.cpp | 1371 +++++++++++++++++---------------- 1 file changed, 704 insertions(+), 667 deletions(-) diff --git a/src/xrGame/GamePersistent.cpp b/src/xrGame/GamePersistent.cpp index 833f30cf5c6..a45b737893f 100644 --- a/src/xrGame/GamePersistent.cpp +++ b/src/xrGame/GamePersistent.cpp @@ -37,6 +37,7 @@ #ifndef _EDITOR # include "ai_debug.h" #endif // _EDITOR +#include "gametype_chooser.h" //#ifdef DEBUG_MEMORY_MANAGER // static void * ode_alloc (size_t size) { return Memory.mem_alloc(size,"ODE"); } @@ -50,643 +51,676 @@ CGamePersistent::CGamePersistent(void) { - m_bPickableDOF = false; - m_game_params.m_e_game_type = eGameIDNoGame; - ambient_effect_next_time = 0; - ambient_effect_stop_time = 0; - ambient_particles = 0; - - ambient_effect_wind_start = 0.f; - ambient_effect_wind_in_time = 0.f; - ambient_effect_wind_end = 0.f; - ambient_effect_wind_out_time= 0.f; - ambient_effect_wind_on = false; - - ZeroMemory (ambient_sound_next_time, sizeof(ambient_sound_next_time)); - - - m_pUI_core = NULL; - m_pMainMenu = NULL; - m_intro = NULL; - m_intro_event.bind (this, &CGamePersistent::start_logo_intro); + m_bPickableDOF = false; + m_game_params.m_e_game_type = eGameIDNoGame; + ambient_effect_next_time = 0; + ambient_effect_stop_time = 0; + ambient_particles = 0; + + ambient_effect_wind_start = 0.f; + ambient_effect_wind_in_time = 0.f; + ambient_effect_wind_end = 0.f; + ambient_effect_wind_out_time = 0.f; + ambient_effect_wind_on = false; + + ZeroMemory(ambient_sound_next_time, sizeof(ambient_sound_next_time)); + + + m_pUI_core = NULL; + m_pMainMenu = NULL; + m_intro = NULL; + m_intro_event.bind(this, &CGamePersistent::start_logo_intro); #ifdef DEBUG - m_frame_counter = 0; - m_last_stats_frame = u32(-2); + m_frame_counter = 0; + m_last_stats_frame = u32(-2); #endif - // - //dSetAllocHandler (ode_alloc ); - //dSetReallocHandler (ode_realloc ); - //dSetFreeHandler (ode_free ); - - // - BOOL bDemoMode = (0!=strstr(Core.Params,"-demomode ")); - if (bDemoMode) - { - string256 fname; - LPCSTR name = strstr(Core.Params,"-demomode ") + 10; - sscanf (name,"%s",fname); - R_ASSERT2 (fname[0],"Missing filename for 'demomode'"); - Msg ("- playing in demo mode '%s'",fname); - pDemoFile = FS.r_open (fname); - Device.seqFrame.Add (this); - eDemoStart = Engine.Event.Handler_Attach("GAME:demo",this); - uTime2Change = 0; - } else { - pDemoFile = NULL; - eDemoStart = NULL; - } - - eQuickLoad = Engine.Event.Handler_Attach("Game:QuickLoad",this); - Fvector3* DofValue = Console->GetFVectorPtr("r2_dof"); - SetBaseDof (*DofValue); + // + //dSetAllocHandler (ode_alloc ); + //dSetReallocHandler (ode_realloc ); + //dSetFreeHandler (ode_free ); + + // + BOOL bDemoMode = (0 != strstr(Core.Params, "-demomode ")); + if (bDemoMode) + { + string256 fname; + LPCSTR name = strstr(Core.Params, "-demomode ") + 10; + sscanf(name, "%s", fname); + R_ASSERT2(fname[0], "Missing filename for 'demomode'"); + Msg("- playing in demo mode '%s'", fname); + pDemoFile = FS.r_open(fname); + Device.seqFrame.Add(this); + eDemoStart = Engine.Event.Handler_Attach("GAME:demo", this); + uTime2Change = 0; + } + else + { + pDemoFile = NULL; + eDemoStart = NULL; + } + + eQuickLoad = Engine.Event.Handler_Attach("Game:QuickLoad", this); + Fvector3* DofValue = Console->GetFVectorPtr("r2_dof"); + SetBaseDof(*DofValue); } CGamePersistent::~CGamePersistent(void) -{ - FS.r_close (pDemoFile); - Device.seqFrame.Remove (this); - Engine.Event.Handler_Detach (eDemoStart,this); - Engine.Event.Handler_Detach (eQuickLoad,this); +{ + FS.r_close(pDemoFile); + Device.seqFrame.Remove(this); + Engine.Event.Handler_Detach(eDemoStart, this); + Engine.Event.Handler_Detach(eQuickLoad, this); } void CGamePersistent::RegisterModel(IRenderVisual* V) { - // Check types - switch (V->getType()){ - case MT_SKELETON_ANIM: - case MT_SKELETON_RIGID:{ - u16 def_idx = GMLib.GetMaterialIdx("default_object"); - R_ASSERT2 (GMLib.GetMaterialByIdx(def_idx)->Flags.is(SGameMtl::flDynamic),"'default_object' - must be dynamic"); - IKinematics* K = smart_cast(V); VERIFY(K); - int cnt = K->LL_BoneCount(); - for (u16 k=0; kLL_GetData(k); - if (*(bd.game_mtl_name)){ - bd.game_mtl_idx = GMLib.GetMaterialIdx(*bd.game_mtl_name); - R_ASSERT2(GMLib.GetMaterialByIdx(bd.game_mtl_idx)->Flags.is(SGameMtl::flDynamic),"Required dynamic game material"); - }else{ - bd.game_mtl_idx = def_idx; - } - } - }break; - } -} - -extern void clean_game_globals (); -extern void init_game_globals (); + // Check types + switch (V->getType()) + { + case MT_SKELETON_ANIM: + case MT_SKELETON_RIGID:{ + u16 def_idx = GMLib.GetMaterialIdx("default_object"); + R_ASSERT2(GMLib.GetMaterialByIdx(def_idx)->Flags.is(SGameMtl::flDynamic), "'default_object' - must be dynamic"); + IKinematics* K = smart_cast(V); VERIFY(K); + int cnt = K->LL_BoneCount(); + for (u16 k = 0; k < cnt; k++) + { + CBoneData& bd = K->LL_GetData(k); + if (*(bd.game_mtl_name)) + { + bd.game_mtl_idx = GMLib.GetMaterialIdx(*bd.game_mtl_name); + R_ASSERT2(GMLib.GetMaterialByIdx(bd.game_mtl_idx)->Flags.is(SGameMtl::flDynamic), "Required dynamic game material"); + } + else + { + bd.game_mtl_idx = def_idx; + } + } + }break; + } +} + +extern void clean_game_globals(); +extern void init_game_globals(); void CGamePersistent::OnAppStart() { - // load game materials - GMLib.Load (); - init_game_globals (); - __super::OnAppStart (); - m_pUI_core = xr_new(); - m_pMainMenu = xr_new(); + // load game materials + GMLib.Load(); + init_game_globals(); + __super::OnAppStart(); + m_pUI_core = xr_new(); + m_pMainMenu = xr_new(); } -void CGamePersistent::OnAppEnd () +void CGamePersistent::OnAppEnd() { - if(m_pMainMenu->IsActive()) - m_pMainMenu->Activate(false); + if (m_pMainMenu->IsActive()) + m_pMainMenu->Activate(false); - xr_delete (m_pMainMenu); - xr_delete (m_pUI_core); + xr_delete(m_pMainMenu); + xr_delete(m_pUI_core); - __super::OnAppEnd (); + __super::OnAppEnd(); - clean_game_globals (); + clean_game_globals(); - GMLib.Unload (); + GMLib.Unload(); } -void CGamePersistent::Start (LPCSTR op) +void CGamePersistent::Start(LPCSTR op) { - __super::Start (op); + __super::Start(op); } void CGamePersistent::Disconnect() { - // destroy ambient particles - CParticlesObject::Destroy(ambient_particles); + // destroy ambient particles + CParticlesObject::Destroy(ambient_particles); - __super::Disconnect (); - // stop all played emitters - ::Sound->stop_emitters (); - m_game_params.m_e_game_type = eGameIDNoGame; + __super::Disconnect(); + // stop all played emitters + ::Sound->stop_emitters(); + m_game_params.m_e_game_type = eGameIDNoGame; } #include "xr_level_controller.h" void CGamePersistent::OnGameStart() { - __super::OnGameStart (); - UpdateGameType (); + __super::OnGameStart(); + UpdateGameType(); } LPCSTR GameTypeToString(EGameIDs gt, bool bShort) { - switch(gt) - { - case eGameIDSingle: - return "single"; - break; - case eGameIDDeathmatch: - return (bShort)?"dm":"deathmatch"; - break; - case eGameIDTeamDeathmatch: - return (bShort)?"tdm":"teamdeathmatch"; - break; - case eGameIDArtefactHunt: - return (bShort)?"ah":"artefacthunt"; - break; - case eGameIDCaptureTheArtefact: - return (bShort)?"cta":"capturetheartefact"; - break; - case eGameIDDominationZone: - return (bShort)?"dz":"dominationzone"; - break; - case eGameIDTeamDominationZone: - return (bShort)?"tdz":"teamdominationzone"; - break; - default : - return "---"; - } + switch (gt) + { + case eGameIDSingle: + return "single"; + break; + case eGameIDDeathmatch: + return (bShort) ? "dm" : "deathmatch"; + break; + case eGameIDTeamDeathmatch: + return (bShort) ? "tdm" : "teamdeathmatch"; + break; + case eGameIDArtefactHunt: + return (bShort) ? "ah" : "artefacthunt"; + break; + case eGameIDCaptureTheArtefact: + return (bShort) ? "cta" : "capturetheartefact"; + break; + case eGameIDDominationZone: + return (bShort) ? "dz" : "dominationzone"; + break; + case eGameIDTeamDominationZone: + return (bShort) ? "tdz" : "teamdominationzone"; + break; + default: + return "---"; + } } EGameIDs ParseStringToGameType(LPCSTR str) { - if (!xr_strcmp(str, "single")) - return eGameIDSingle; - else - if (!xr_strcmp(str, "deathmatch") || !xr_strcmp(str, "dm")) - return eGameIDDeathmatch; - else - if (!xr_strcmp(str, "teamdeathmatch") || !xr_strcmp(str, "tdm")) - return eGameIDTeamDeathmatch; - else - if (!xr_strcmp(str, "artefacthunt") || !xr_strcmp(str, "ah")) - return eGameIDArtefactHunt; - else - if (!xr_strcmp(str, "capturetheartefact") || !xr_strcmp(str, "cta")) - return eGameIDCaptureTheArtefact; - else - if (!xr_strcmp(str, "dominationzone")) - return eGameIDDominationZone; - else - if (!xr_strcmp(str, "teamdominationzone")) - return eGameIDTeamDominationZone; - else - return eGameIDNoGame; //EGameIDs + if (!xr_strcmp(str, "single")) + return eGameIDSingle; + else + if (!xr_strcmp(str, "deathmatch") || !xr_strcmp(str, "dm")) + return eGameIDDeathmatch; + else + if (!xr_strcmp(str, "teamdeathmatch") || !xr_strcmp(str, "tdm")) + return eGameIDTeamDeathmatch; + else + if (!xr_strcmp(str, "artefacthunt") || !xr_strcmp(str, "ah")) + return eGameIDArtefactHunt; + else + if (!xr_strcmp(str, "capturetheartefact") || !xr_strcmp(str, "cta")) + return eGameIDCaptureTheArtefact; + else + if (!xr_strcmp(str, "dominationzone")) + return eGameIDDominationZone; + else + if (!xr_strcmp(str, "teamdominationzone")) + return eGameIDTeamDominationZone; + else + return eGameIDNoGame; //EGameIDs } -void CGamePersistent::UpdateGameType () +void CGamePersistent::UpdateGameType() { - __super::UpdateGameType (); + __super::UpdateGameType(); - m_game_params.m_e_game_type = ParseStringToGameType(m_game_params.m_game_type); + m_game_params.m_e_game_type = ParseStringToGameType(m_game_params.m_game_type); - if (m_game_params.m_e_game_type == eGameIDSingle) - g_current_keygroup = _sp; - else - g_current_keygroup = _mp; + if (m_game_params.m_e_game_type == eGameIDSingle) + g_current_keygroup = _sp; + else + g_current_keygroup = _mp; } -void CGamePersistent::OnGameEnd () +void CGamePersistent::OnGameEnd() { - __super::OnGameEnd (); + __super::OnGameEnd(); - xr_delete (g_stalker_animation_data_storage); - xr_delete (g_stalker_velocity_holder); + xr_delete(g_stalker_animation_data_storage); + xr_delete(g_stalker_velocity_holder); } void CGamePersistent::WeathersUpdate() { - if (g_pGameLevel && !g_dedicated_server) - { - CActor* actor = smart_cast(Level().CurrentViewEntity()); - BOOL bIndoor = TRUE; - if (actor) bIndoor = actor->renderable_ROS()->get_luminocity_hemi()<0.05f; - - int data_set = (Random.randF()<(1.f-Environment().CurrentEnv->weight))?0:1; - - CEnvDescriptor* const current_env = Environment().Current[0]; - VERIFY (current_env); - - CEnvDescriptor* const _env = Environment().Current[data_set]; - VERIFY (_env); - - CEnvAmbient* env_amb = _env->env_ambient; - if (env_amb) { - CEnvAmbient::SSndChannelVec& vec = current_env->env_ambient->get_snd_channels(); - CEnvAmbient::SSndChannelVecIt I = vec.begin(); - CEnvAmbient::SSndChannelVecIt E = vec.end(); - - for (u32 idx=0; I!=E; ++I,++idx) { - CEnvAmbient::SSndChannel& ch = **I; - R_ASSERT (idx<20); - if(ambient_sound_next_time[idx]==0)//first - { - ambient_sound_next_time[idx] = Device.dwTimeGlobal + ch.get_rnd_sound_first_time(); - }else - if(Device.dwTimeGlobal > ambient_sound_next_time[idx]) - { - ref_sound& snd = ch.get_rnd_sound(); - - Fvector pos; - float angle = ::Random.randF(PI_MUL_2); - pos.x = _cos(angle); - pos.y = 0; - pos.z = _sin(angle); - pos.normalize ().mul(ch.get_rnd_sound_dist()).add(Device.vCameraPosition); - pos.y += 10.f; - snd.play_at_pos (0,pos); + if (g_pGameLevel && !g_dedicated_server) + { + CActor* actor = smart_cast(Level().CurrentViewEntity()); + BOOL bIndoor = TRUE; + if (actor) bIndoor = actor->renderable_ROS()->get_luminocity_hemi() < 0.05f; + + int data_set = (Random.randF() < (1.f - Environment().CurrentEnv->weight)) ? 0 : 1; + + CEnvDescriptor* const current_env = Environment().Current[0]; + VERIFY(current_env); + + CEnvDescriptor* const _env = Environment().Current[data_set]; + VERIFY(_env); + + CEnvAmbient* env_amb = _env->env_ambient; + if (env_amb) + { + CEnvAmbient::SSndChannelVec& vec = current_env->env_ambient->get_snd_channels(); + CEnvAmbient::SSndChannelVecIt I = vec.begin(); + CEnvAmbient::SSndChannelVecIt E = vec.end(); + + for (u32 idx = 0; I != E; ++I, ++idx) + { + CEnvAmbient::SSndChannel& ch = **I; + R_ASSERT(idx<20); + if (ambient_sound_next_time[idx] == 0)//first + { + ambient_sound_next_time[idx] = Device.dwTimeGlobal + ch.get_rnd_sound_first_time(); + } + else + if (Device.dwTimeGlobal > ambient_sound_next_time[idx]) + { + ref_sound& snd = ch.get_rnd_sound(); + + Fvector pos; + float angle = ::Random.randF(PI_MUL_2); + pos.x = _cos(angle); + pos.y = 0; + pos.z = _sin(angle); + pos.normalize().mul(ch.get_rnd_sound_dist()).add(Device.vCameraPosition); + pos.y += 10.f; + snd.play_at_pos(0, pos); #ifdef DEBUG - if (!snd._handle() && strstr(Core.Params,"-nosound")) - continue; + if (!snd._handle() && strstr(Core.Params, "-nosound")) + continue; #endif // DEBUG - VERIFY (snd._handle()); - u32 _length_ms = iFloor(snd.get_length_sec()*1000.0f); - ambient_sound_next_time[idx] = Device.dwTimeGlobal + _length_ms + ch.get_rnd_sound_time(); -// Msg("- Playing ambient sound channel [%s] file[%s]",ch.m_load_section.c_str(),snd._handle()->file_name()); - } - } -/* - if (Device.dwTimeGlobal > ambient_sound_next_time) - { - ref_sound* snd = env_amb->get_rnd_sound(); - ambient_sound_next_time = Device.dwTimeGlobal + env_amb->get_rnd_sound_time(); - if (snd) - { - Fvector pos; - float angle = ::Random.randF(PI_MUL_2); - pos.x = _cos(angle); - pos.y = 0; - pos.z = _sin(angle); - pos.normalize ().mul(env_amb->get_rnd_sound_dist()).add(Device.vCameraPosition); - pos.y += 10.f; - snd->play_at_pos (0,pos); - } - } -*/ - // start effect - if ((FALSE==bIndoor) && (0==ambient_particles) && Device.dwTimeGlobal>ambient_effect_next_time){ - CEnvAmbient::SEffect* eff = env_amb->get_rnd_effect(); - if (eff){ - Environment().wind_gust_factor = eff->wind_gust_factor; - ambient_effect_next_time = Device.dwTimeGlobal + env_amb->get_rnd_effect_time(); - ambient_effect_stop_time = Device.dwTimeGlobal + eff->life_time; - ambient_effect_wind_start = Device.fTimeGlobal; - ambient_effect_wind_in_time = Device.fTimeGlobal + eff->wind_blast_in_time; - ambient_effect_wind_end = Device.fTimeGlobal + eff->life_time/1000.f; - ambient_effect_wind_out_time = Device.fTimeGlobal + eff->life_time/1000.f + eff->wind_blast_out_time; - ambient_effect_wind_on = true; - - ambient_particles = CParticlesObject::Create(eff->particles.c_str(),FALSE,false); - Fvector pos; pos.add (Device.vCameraPosition,eff->offset); - ambient_particles->play_at_pos (pos); - if (eff->sound._handle()) eff->sound.play_at_pos(0,pos); - - - Environment().wind_blast_strength_start_value=Environment().wind_strength_factor; - Environment().wind_blast_strength_stop_value=eff->wind_blast_strength; - - if (Environment().wind_blast_strength_start_value==0.f) - { - Environment().wind_blast_start_time.set(0.f,eff->wind_blast_direction.x,eff->wind_blast_direction.y,eff->wind_blast_direction.z); - } - else - { - Environment().wind_blast_start_time.set(0.f,Environment().wind_blast_direction.x,Environment().wind_blast_direction.y,Environment().wind_blast_direction.z); - } - Environment().wind_blast_stop_time.set(0.f,eff->wind_blast_direction.x,eff->wind_blast_direction.y,eff->wind_blast_direction.z); - } - } - } - if (Device.fTimeGlobal>=ambient_effect_wind_start && Device.fTimeGlobal<=ambient_effect_wind_in_time && ambient_effect_wind_on) - { - float delta=ambient_effect_wind_in_time-ambient_effect_wind_start; - float t; - if (delta!=0.f) - { - float cur_in=Device.fTimeGlobal-ambient_effect_wind_start; - t=cur_in/delta; - } - else - { - t=0.f; - } - Environment().wind_blast_current.slerp(Environment().wind_blast_start_time,Environment().wind_blast_stop_time,t); - - Environment().wind_blast_direction.set(Environment().wind_blast_current.x,Environment().wind_blast_current.y,Environment().wind_blast_current.z); - Environment().wind_strength_factor=Environment().wind_blast_strength_start_value+t*(Environment().wind_blast_strength_stop_value-Environment().wind_blast_strength_start_value); - } - - // stop if time exceed or indoor - if (bIndoor || Device.dwTimeGlobal>=ambient_effect_stop_time){ - if (ambient_particles) ambient_particles->Stop(); - - Environment().wind_gust_factor = 0.f; - - } - - if (Device.fTimeGlobal>=ambient_effect_wind_end && ambient_effect_wind_on) - { - Environment().wind_blast_strength_start_value=Environment().wind_strength_factor; - Environment().wind_blast_strength_stop_value =0.f; - - ambient_effect_wind_on=false; - } - - if (Device.fTimeGlobal>=ambient_effect_wind_end && Device.fTimeGlobal<=ambient_effect_wind_out_time) - { - float delta=ambient_effect_wind_out_time-ambient_effect_wind_end; - float t; - if (delta!=0.f) - { - float cur_in=Device.fTimeGlobal-ambient_effect_wind_end; - t=cur_in/delta; - } - else - { - t=0.f; - } - Environment().wind_strength_factor=Environment().wind_blast_strength_start_value+t*(Environment().wind_blast_strength_stop_value-Environment().wind_blast_strength_start_value); - } - if (Device.fTimeGlobal>ambient_effect_wind_out_time && ambient_effect_wind_out_time!=0.f ) - { - Environment().wind_strength_factor=0.0; - } - - // if particles not playing - destroy - if (ambient_particles&&!ambient_particles->IsPlaying()) - CParticlesObject::Destroy(ambient_particles); - } -} - -bool allow_intro () + VERIFY(snd._handle()); + u32 _length_ms = iFloor(snd.get_length_sec()*1000.0f); + ambient_sound_next_time[idx] = Device.dwTimeGlobal + _length_ms + ch.get_rnd_sound_time(); + // Msg("- Playing ambient sound channel [%s] file[%s]",ch.m_load_section.c_str(),snd._handle()->file_name()); + } + } + /* + if (Device.dwTimeGlobal > ambient_sound_next_time) + { + ref_sound* snd = env_amb->get_rnd_sound(); + ambient_sound_next_time = Device.dwTimeGlobal + env_amb->get_rnd_sound_time(); + if (snd) + { + Fvector pos; + float angle = ::Random.randF(PI_MUL_2); + pos.x = _cos(angle); + pos.y = 0; + pos.z = _sin(angle); + pos.normalize ().mul(env_amb->get_rnd_sound_dist()).add(Device.vCameraPosition); + pos.y += 10.f; + snd->play_at_pos (0,pos); + } + } + */ + // start effect + if ((FALSE == bIndoor) && (0 == ambient_particles) && Device.dwTimeGlobal > ambient_effect_next_time) + { + CEnvAmbient::SEffect* eff = env_amb->get_rnd_effect(); + if (eff) + { + Environment().wind_gust_factor = eff->wind_gust_factor; + ambient_effect_next_time = Device.dwTimeGlobal + env_amb->get_rnd_effect_time(); + ambient_effect_stop_time = Device.dwTimeGlobal + eff->life_time; + ambient_effect_wind_start = Device.fTimeGlobal; + ambient_effect_wind_in_time = Device.fTimeGlobal + eff->wind_blast_in_time; + ambient_effect_wind_end = Device.fTimeGlobal + eff->life_time / 1000.f; + ambient_effect_wind_out_time = Device.fTimeGlobal + eff->life_time / 1000.f + eff->wind_blast_out_time; + ambient_effect_wind_on = true; + + ambient_particles = CParticlesObject::Create(eff->particles.c_str(), FALSE, false); + Fvector pos; pos.add(Device.vCameraPosition, eff->offset); + ambient_particles->play_at_pos(pos); + if (eff->sound._handle()) eff->sound.play_at_pos(0, pos); + + + Environment().wind_blast_strength_start_value = Environment().wind_strength_factor; + Environment().wind_blast_strength_stop_value = eff->wind_blast_strength; + + if (Environment().wind_blast_strength_start_value == 0.f) + { + Environment().wind_blast_start_time.set(0.f, eff->wind_blast_direction.x, eff->wind_blast_direction.y, eff->wind_blast_direction.z); + } + else + { + Environment().wind_blast_start_time.set(0.f, Environment().wind_blast_direction.x, Environment().wind_blast_direction.y, Environment().wind_blast_direction.z); + } + Environment().wind_blast_stop_time.set(0.f, eff->wind_blast_direction.x, eff->wind_blast_direction.y, eff->wind_blast_direction.z); + } + } + } + if (Device.fTimeGlobal >= ambient_effect_wind_start && Device.fTimeGlobal <= ambient_effect_wind_in_time && ambient_effect_wind_on) + { + float delta = ambient_effect_wind_in_time - ambient_effect_wind_start; + float t; + if (delta != 0.f) + { + float cur_in = Device.fTimeGlobal - ambient_effect_wind_start; + t = cur_in / delta; + } + else + { + t = 0.f; + } + Environment().wind_blast_current.slerp(Environment().wind_blast_start_time, Environment().wind_blast_stop_time, t); + + Environment().wind_blast_direction.set(Environment().wind_blast_current.x, Environment().wind_blast_current.y, Environment().wind_blast_current.z); + Environment().wind_strength_factor = Environment().wind_blast_strength_start_value + t*(Environment().wind_blast_strength_stop_value - Environment().wind_blast_strength_start_value); + } + + // stop if time exceed or indoor + if (bIndoor || Device.dwTimeGlobal >= ambient_effect_stop_time) + { + if (ambient_particles) ambient_particles->Stop(); + + Environment().wind_gust_factor = 0.f; + + } + + if (Device.fTimeGlobal >= ambient_effect_wind_end && ambient_effect_wind_on) + { + Environment().wind_blast_strength_start_value = Environment().wind_strength_factor; + Environment().wind_blast_strength_stop_value = 0.f; + + ambient_effect_wind_on = false; + } + + if (Device.fTimeGlobal >= ambient_effect_wind_end && Device.fTimeGlobal <= ambient_effect_wind_out_time) + { + float delta = ambient_effect_wind_out_time - ambient_effect_wind_end; + float t; + if (delta != 0.f) + { + float cur_in = Device.fTimeGlobal - ambient_effect_wind_end; + t = cur_in / delta; + } + else + { + t = 0.f; + } + Environment().wind_strength_factor = Environment().wind_blast_strength_start_value + t*(Environment().wind_blast_strength_stop_value - Environment().wind_blast_strength_start_value); + } + if (Device.fTimeGlobal > ambient_effect_wind_out_time && ambient_effect_wind_out_time != 0.f) + { + Environment().wind_strength_factor = 0.0; + } + + // if particles not playing - destroy + if (ambient_particles&&!ambient_particles->IsPlaying()) + CParticlesObject::Destroy(ambient_particles); + } +} + +bool allow_intro() { #ifdef MASTER_GOLD - if (g_SASH.IsRunning()) + if (g_SASH.IsRunning()) #else // #ifdef MASTER_GOLD - if ((0!=strstr(Core.Params, "-nointro")) || g_SASH.IsRunning()) + if ((0 != strstr(Core.Params, "-nointro")) || g_SASH.IsRunning()) #endif // #ifdef MASTER_GOLD - { - return false; - }else - return true; + { + return false; + } + else + return true; +} + +bool allow_logo() // AVO: skip NVIDIA and other logos at load time +{ + if (0 != strstr(Core.Params, "-nologo")) + { + return false; + } + else + { + return true; + } } void CGamePersistent::start_logo_intro() { - if(Device.dwPrecacheFrame==0) - { - m_intro_event.bind (this, &CGamePersistent::update_logo_intro); - if (!g_dedicated_server && 0==xr_strlen(m_game_params.m_game_or_spawn) && NULL==g_pGameLevel) - { - VERIFY (NULL==m_intro); - m_intro = xr_new(); - m_intro->Start ("intro_logo"); - Msg ("intro_start intro_logo"); - Console->Hide (); - } - } + if (Device.dwPrecacheFrame == 0) + { + m_intro_event.bind(this, &CGamePersistent::update_logo_intro); + if (!g_dedicated_server && 0 == xr_strlen(m_game_params.m_game_or_spawn) && NULL == g_pGameLevel) + { + VERIFY(NULL == m_intro); + m_intro = xr_new(); + if (allow_logo()) // AVO: skip NVIDIA and other logos at load time + { + m_intro->Start("intro_logo"); + Msg("intro_start intro_logo"); + } + Console->Hide(); + } + } } void CGamePersistent::update_logo_intro() { - if(m_intro && (false==m_intro->IsActive())) - { - m_intro_event = 0; - xr_delete (m_intro); - Msg("intro_delete ::update_logo_intro"); - Console->Execute ("main_menu on"); - }else - if(!m_intro) - { - m_intro_event = 0; - } + if (m_intro && (false == m_intro->IsActive())) + { + m_intro_event = 0; + xr_delete(m_intro); + Msg("intro_delete ::update_logo_intro"); + Console->Execute("main_menu on"); + } + else + if (!m_intro) + { + m_intro_event = 0; + } } extern int g_keypress_on_start; void CGamePersistent::game_loaded() { - if(Device.dwPrecacheFrame<=2) - { - if( g_pGameLevel && - g_pGameLevel->bReady && - (allow_intro() && g_keypress_on_start) && - load_screen_renderer.b_need_user_input && - m_game_params.m_e_game_type == eGameIDSingle) - { - VERIFY (NULL==m_intro); - m_intro = xr_new(); - m_intro->Start ("game_loaded"); - Msg ("intro_start game_loaded"); - m_intro->m_on_destroy_event.bind(this, &CGamePersistent::update_game_loaded); - } - m_intro_event = 0; - } + if (Device.dwPrecacheFrame <= 2) + { + if (g_pGameLevel && + g_pGameLevel->bReady && + (allow_intro() && g_keypress_on_start) && + load_screen_renderer.b_need_user_input && + m_game_params.m_e_game_type == eGameIDSingle) + { + VERIFY(NULL == m_intro); + m_intro = xr_new(); + m_intro->Start("game_loaded"); + Msg("intro_start game_loaded"); + m_intro->m_on_destroy_event.bind(this, &CGamePersistent::update_game_loaded); + } + m_intro_event = 0; + } } void CGamePersistent::update_game_loaded() { - xr_delete (m_intro); - Msg("intro_delete ::update_game_loaded"); - start_game_intro (); + xr_delete(m_intro); + Msg("intro_delete ::update_game_loaded"); + start_game_intro(); } -void CGamePersistent::start_game_intro () +void CGamePersistent::start_game_intro() { - if(!allow_intro()) - { - m_intro_event = 0; - return; - } + if (!allow_intro()) + { + m_intro_event = 0; + return; + } - if (g_pGameLevel && g_pGameLevel->bReady && Device.dwPrecacheFrame<=2) - { - m_intro_event.bind (this, &CGamePersistent::update_game_intro); - if (0==stricmp(m_game_params.m_new_or_load, "new")) - { - VERIFY (NULL==m_intro); - m_intro = xr_new(); - m_intro->Start ("intro_game"); - Msg("intro_start intro_game"); - } - } + if (g_pGameLevel && g_pGameLevel->bReady && Device.dwPrecacheFrame <= 2) + { + m_intro_event.bind(this, &CGamePersistent::update_game_intro); + if (0 == stricmp(m_game_params.m_new_or_load, "new")) + { + VERIFY(NULL == m_intro); + m_intro = xr_new(); + m_intro->Start("intro_game"); + Msg("intro_start intro_game"); + } + } } void CGamePersistent::update_game_intro() { - if(m_intro && (false==m_intro->IsActive())) - { - xr_delete (m_intro); - Msg("intro_delete ::update_game_intro"); - m_intro_event = 0; - } - else - if(!m_intro) - { - m_intro_event = 0; - } + if (m_intro && (false == m_intro->IsActive())) + { + xr_delete(m_intro); + Msg("intro_delete ::update_game_intro"); + m_intro_event = 0; + } + else + if (!m_intro) + { + m_intro_event = 0; + } } extern CUISequencer * g_tutorial; extern CUISequencer * g_tutorial2; -void CGamePersistent::OnFrame () +void CGamePersistent::OnFrame() { - if(Device.dwPrecacheFrame==5 && m_intro_event.empty()) - { - m_intro_event.bind (this,&CGamePersistent::game_loaded); - } + if (Device.dwPrecacheFrame == 5 && m_intro_event.empty()) + { + m_intro_event.bind(this, &CGamePersistent::game_loaded); + } - if(g_tutorial2) - { - g_tutorial2->Destroy (); - xr_delete (g_tutorial2); - } + if (g_tutorial2) + { + g_tutorial2->Destroy(); + xr_delete(g_tutorial2); + } - if(g_tutorial && !g_tutorial->IsActive()) - { - xr_delete(g_tutorial); - } - if(0==Device.dwFrame%200) - CUITextureMaster::FreeCachedShaders(); + if (g_tutorial && !g_tutorial->IsActive()) + { + xr_delete(g_tutorial); + } + if (0 == Device.dwFrame % 200) + CUITextureMaster::FreeCachedShaders(); #ifdef DEBUG - ++m_frame_counter; + ++m_frame_counter; #endif - if (!g_dedicated_server && !m_intro_event.empty()) m_intro_event(); - - if(!g_dedicated_server && Device.dwPrecacheFrame==0 && !m_intro && m_intro_event.empty()) - load_screen_renderer.stop(); - - if( !m_pMainMenu->IsActive() ) - m_pMainMenu->DestroyInternal(false); - - if(!g_pGameLevel) return; - if(!g_pGameLevel->bReady) return; - - if(Device.Paused()) - { - if (Level().IsDemoPlay()) - { - CSpectator* tmp_spectr = smart_cast(Level().CurrentControlEntity()); - if (tmp_spectr) - { - tmp_spectr->UpdateCL(); //updating spectator in pause (pause ability of demo play) - } - } + if (!g_dedicated_server && !m_intro_event.empty()) m_intro_event(); + + if (!g_dedicated_server && Device.dwPrecacheFrame == 0 && !m_intro && m_intro_event.empty()) + load_screen_renderer.stop(); + + if (!m_pMainMenu->IsActive()) + m_pMainMenu->DestroyInternal(false); + + if (!g_pGameLevel) return; + if (!g_pGameLevel->bReady) return; + + if (Device.Paused()) + { + if (Level().IsDemoPlay()) + { + CSpectator* tmp_spectr = smart_cast(Level().CurrentControlEntity()); + if (tmp_spectr) + { + tmp_spectr->UpdateCL(); //updating spectator in pause (pause ability of demo play) + } + } #ifndef MASTER_GOLD - if (Level().CurrentViewEntity() && IsGameTypeSingle()) { - if (!g_actor || (g_actor->ID() != Level().CurrentViewEntity()->ID())) { - CCustomMonster *custom_monster = smart_cast(Level().CurrentViewEntity()); - if (custom_monster) // can be spectator in multiplayer - custom_monster->UpdateCamera(); - } - else - { - CCameraBase* C = NULL; - if (g_actor) - { - if(!Actor()->Holder()) - C = Actor()->cam_Active(); - else - C = Actor()->Holder()->Camera(); - - Actor()->Cameras().UpdateFromCamera (C); - Actor()->Cameras().ApplyDevice (VIEWPORT_NEAR); + if (Level().CurrentViewEntity() && IsGameTypeSingle()) + { + if (!g_actor || (g_actor->ID() != Level().CurrentViewEntity()->ID())) + { + CCustomMonster *custom_monster = smart_cast(Level().CurrentViewEntity()); + if (custom_monster) // can be spectator in multiplayer + custom_monster->UpdateCamera(); + } + else + { + CCameraBase* C = NULL; + if (g_actor) + { + if (!Actor()->Holder()) + C = Actor()->cam_Active(); + else + C = Actor()->Holder()->Camera(); + + Actor()->Cameras().UpdateFromCamera(C); + Actor()->Cameras().ApplyDevice(VIEWPORT_NEAR); #ifdef DEBUG - if(psActorFlags.test(AF_NO_CLIP)) - { - Actor()->dbg_update_cl = 0; - Actor()->dbg_update_shedule = 0; - Device.dwTimeDelta = 0; - Device.fTimeDelta = 0.01f; - Actor()->UpdateCL (); - Actor()->shedule_Update (0); - Actor()->dbg_update_cl = 0; - Actor()->dbg_update_shedule = 0; - - CSE_Abstract* e = Level().Server->ID_to_entity(Actor()->ID()); - VERIFY (e); - CSE_ALifeCreatureActor* s_actor = smart_cast(e); - VERIFY (s_actor); - xr_vector::iterator it = s_actor->children.begin(); - for(;it!=s_actor->children.end();it++) - { - CObject* obj = Level().Objects.net_Find(*it); - if(obj && Engine.Sheduler.Registered(obj)) - { - obj->dbg_update_shedule = 0; - obj->dbg_update_cl = 0; - obj->shedule_Update (0); - obj->UpdateCL(); - obj->dbg_update_shedule = 0; - obj->dbg_update_cl = 0; - } - } - } + if (psActorFlags.test(AF_NO_CLIP)) + { + Actor()->dbg_update_cl = 0; + Actor()->dbg_update_shedule = 0; + Device.dwTimeDelta = 0; + Device.fTimeDelta = 0.01f; + Actor()->UpdateCL(); + Actor()->shedule_Update(0); + Actor()->dbg_update_cl = 0; + Actor()->dbg_update_shedule = 0; + + CSE_Abstract* e = Level().Server->ID_to_entity(Actor()->ID()); + VERIFY(e); + CSE_ALifeCreatureActor* s_actor = smart_cast(e); + VERIFY(s_actor); + xr_vector::iterator it = s_actor->children.begin(); + for (; it != s_actor->children.end(); it++) + { + CObject* obj = Level().Objects.net_Find(*it); + if (obj && Engine.Sheduler.Registered(obj)) + { + obj->dbg_update_shedule = 0; + obj->dbg_update_cl = 0; + obj->shedule_Update(0); + obj->UpdateCL(); + obj->dbg_update_shedule = 0; + obj->dbg_update_cl = 0; + } + } + } #endif // DEBUG - } - } - } + } + } + } #else // MASTER_GOLD - if (g_actor && IsGameTypeSingle()) - { - CCameraBase* C = NULL; - if(!Actor()->Holder()) - C = Actor()->cam_Active(); - else - C = Actor()->Holder()->Camera(); - - Actor()->Cameras().UpdateFromCamera (C); - Actor()->Cameras().ApplyDevice (VIEWPORT_NEAR); - - } + if (g_actor && IsGameTypeSingle()) + { + CCameraBase* C = NULL; + if(!Actor()->Holder()) + C = Actor()->cam_Active(); + else + C = Actor()->Holder()->Camera(); + + Actor()->Cameras().UpdateFromCamera (C); + Actor()->Cameras().ApplyDevice (VIEWPORT_NEAR); + + } #endif // MASTER_GOLD - } - __super::OnFrame (); - - if(!Device.Paused()) - Engine.Sheduler.Update (); - - // update weathers ambient - if(!Device.Paused()) - WeathersUpdate (); - - if (0!=pDemoFile) - { - if (Device.dwTimeGlobal>uTime2Change){ - // Change level + play demo - if (pDemoFile->elapsed()<3) pDemoFile->seek(0); // cycle - - // Read params - string512 params; - pDemoFile->r_string (params,sizeof(params)); - string256 o_server, o_client, o_demo; u32 o_time; - sscanf (params,"%[^,],%[^,],%[^,],%d",o_server,o_client,o_demo,&o_time); - - // Start _new level + demo - Engine.Event.Defer ("KERNEL:disconnect"); - Engine.Event.Defer ("KERNEL:start",size_t(xr_strdup(_Trim(o_server))),size_t(xr_strdup(_Trim(o_client)))); - Engine.Event.Defer ("GAME:demo", size_t(xr_strdup(_Trim(o_demo))), u64(o_time)); - uTime2Change = 0xffffffff; // Block changer until Event received - } - } + } + __super::OnFrame(); + + if (!Device.Paused()) + Engine.Sheduler.Update(); + + // update weathers ambient + if (!Device.Paused()) + WeathersUpdate(); + + if (0 != pDemoFile) + { + if (Device.dwTimeGlobal > uTime2Change) + { + // Change level + play demo + if (pDemoFile->elapsed() < 3) pDemoFile->seek(0); // cycle + + // Read params + string512 params; + pDemoFile->r_string(params, sizeof(params)); + string256 o_server, o_client, o_demo; u32 o_time; + sscanf(params, "%[^,],%[^,],%[^,],%d", o_server, o_client, o_demo, &o_time); + + // Start _new level + demo + Engine.Event.Defer("KERNEL:disconnect"); + Engine.Event.Defer("KERNEL:start", size_t(xr_strdup(_Trim(o_server))), size_t(xr_strdup(_Trim(o_client)))); + Engine.Event.Defer("GAME:demo", size_t(xr_strdup(_Trim(o_demo))), u64(o_time)); + uTime2Change = 0xffffffff; // Block changer until Event received + } + } #ifdef DEBUG - if ((m_last_stats_frame + 1) < m_frame_counter) - profiler().clear (); + if ((m_last_stats_frame + 1) < m_frame_counter) + profiler().clear(); #endif - UpdateDof(); + UpdateDof(); } #include "game_sv_single.h" @@ -697,220 +731,223 @@ void CGamePersistent::OnFrame () void CGamePersistent::OnEvent(EVENT E, u64 P1, u64 P2) { - if(E==eQuickLoad) - { - if (Device.Paused()) - Device.Pause (FALSE, TRUE, TRUE, "eQuickLoad"); - - if(CurrentGameUI()) - { - CurrentGameUI()->HideShownDialogs(); - CurrentGameUI()->UIMainIngameWnd->reset_ui(); - CurrentGameUI()->GetPdaMenu().Reset(); - } - - if(g_tutorial) - g_tutorial->Stop(); - - if(g_tutorial2) - g_tutorial2->Stop(); - - LPSTR saved_name = (LPSTR)(P1); - - Level().remove_objects (); - game_sv_Single *game = smart_cast(Level().Server->game); - R_ASSERT (game); - game->restart_simulator (saved_name); - xr_free (saved_name); - return; - }else - if(E==eDemoStart) - { - string256 cmd; - LPCSTR demo = LPCSTR(P1); - xr_sprintf (cmd,"demo_play %s",demo); - Console->Execute (cmd); - xr_free (demo); - uTime2Change = Device.TimerAsync() + u32(P2)*1000; - } -} - -void CGamePersistent::Statistics (CGameFont* F) + if (E == eQuickLoad) + { + if (Device.Paused()) + Device.Pause(FALSE, TRUE, TRUE, "eQuickLoad"); + + if (CurrentGameUI()) + { + CurrentGameUI()->HideShownDialogs(); + CurrentGameUI()->UIMainIngameWnd->reset_ui(); + CurrentGameUI()->GetPdaMenu().Reset(); + } + + if (g_tutorial) + g_tutorial->Stop(); + + if (g_tutorial2) + g_tutorial2->Stop(); + + LPSTR saved_name = (LPSTR) (P1); + + Level().remove_objects(); + game_sv_Single *game = smart_cast(Level().Server->game); + R_ASSERT(game); + game->restart_simulator(saved_name); + xr_free(saved_name); + return; + } + else + if (E == eDemoStart) + { + string256 cmd; + LPCSTR demo = LPCSTR(P1); + xr_sprintf(cmd, "demo_play %s", demo); + Console->Execute(cmd); + xr_free(demo); + uTime2Change = Device.TimerAsync() + u32(P2) * 1000; + } +} + +void CGamePersistent::Statistics(CGameFont* F) { #ifdef DEBUG # ifndef _EDITOR - m_last_stats_frame = m_frame_counter; - profiler().show_stats (F,!!psAI_Flags.test(aiStats)); + m_last_stats_frame = m_frame_counter; + profiler().show_stats(F, !!psAI_Flags.test(aiStats)); # endif #endif } float CGamePersistent::MtlTransparent(u32 mtl_idx) { - return GMLib.GetMaterialByIdx((u16)mtl_idx)->fVisTransparencyFactor; + return GMLib.GetMaterialByIdx((u16) mtl_idx)->fVisTransparencyFactor; } -static BOOL bRestorePause = FALSE; -static BOOL bEntryFlag = TRUE; +static BOOL bRestorePause = FALSE; +static BOOL bEntryFlag = TRUE; -void CGamePersistent::OnAppActivate () +void CGamePersistent::OnAppActivate() { - bool bIsMP = (g_pGameLevel && Level().game && GameID() != eGameIDSingle); - bIsMP &= !Device.Paused(); + bool bIsMP = (g_pGameLevel && Level().game && GameID() != eGameIDSingle); + bIsMP &= !Device.Paused(); - if( !bIsMP ) - { - Device.Pause (FALSE, !bRestorePause, TRUE, "CGP::OnAppActivate"); - }else - { - Device.Pause (FALSE, TRUE, TRUE, "CGP::OnAppActivate MP"); - } + if (!bIsMP) + { + Device.Pause(FALSE, !bRestorePause, TRUE, "CGP::OnAppActivate"); + } + else + { + Device.Pause(FALSE, TRUE, TRUE, "CGP::OnAppActivate MP"); + } - bEntryFlag = TRUE; + bEntryFlag = TRUE; } -void CGamePersistent::OnAppDeactivate () +void CGamePersistent::OnAppDeactivate() { - if(!bEntryFlag) return; + if (!bEntryFlag) return; - bool bIsMP = (g_pGameLevel && Level().game && GameID() != eGameIDSingle); + bool bIsMP = (g_pGameLevel && Level().game && GameID() != eGameIDSingle); - bRestorePause = FALSE; + bRestorePause = FALSE; - if ( !bIsMP ) - { - bRestorePause = Device.Paused(); - Device.Pause (TRUE, TRUE, TRUE, "CGP::OnAppDeactivate"); - }else - { - Device.Pause (TRUE, FALSE, TRUE, "CGP::OnAppDeactivate MP"); - } - bEntryFlag = FALSE; + if (!bIsMP) + { + bRestorePause = Device.Paused(); + Device.Pause(TRUE, TRUE, TRUE, "CGP::OnAppDeactivate"); + } + else + { + Device.Pause(TRUE, FALSE, TRUE, "CGP::OnAppDeactivate MP"); + } + bEntryFlag = FALSE; } bool CGamePersistent::OnRenderPPUI_query() { - return MainMenu()->OnRenderPPUI_query(); - // enable PP or not + return MainMenu()->OnRenderPPUI_query(); + // enable PP or not } extern void draw_wnds_rects(); void CGamePersistent::OnRenderPPUI_main() { - // always - MainMenu()->OnRenderPPUI_main(); - draw_wnds_rects(); + // always + MainMenu()->OnRenderPPUI_main(); + draw_wnds_rects(); } void CGamePersistent::OnRenderPPUI_PP() { - MainMenu()->OnRenderPPUI_PP(); + MainMenu()->OnRenderPPUI_PP(); } #include "string_table.h" #include "../xrEngine/x_ray.h" void CGamePersistent::LoadTitle(bool change_tip, shared_str map_name) { - pApp->LoadStage(); - if(change_tip) - { - string512 buff; - u8 tip_num; - luabind::functor m_functor; - bool is_single = !xr_strcmp(m_game_params.m_game_type,"single"); - if(is_single) - { - R_ASSERT( ai().script_engine().functor( "loadscreen.get_tip_number", m_functor ) ); - tip_num = m_functor(map_name.c_str()); - } - else - { - R_ASSERT( ai().script_engine().functor( "loadscreen.get_mp_tip_number", m_functor ) ); - tip_num = m_functor(map_name.c_str()); - } -// tip_num = 83; - xr_sprintf (buff, "%s%d:", CStringTable().translate("ls_tip_number").c_str(), tip_num); - shared_str tmp = buff; - - if(is_single) - xr_sprintf (buff, "ls_tip_%d", tip_num); - else - xr_sprintf (buff, "ls_mp_tip_%d", tip_num); - - pApp->LoadTitleInt (CStringTable().translate("ls_header").c_str(), tmp.c_str(), CStringTable().translate(buff).c_str()); - } + pApp->LoadStage(); + if (change_tip) + { + string512 buff; + u8 tip_num; + luabind::functor m_functor; + bool is_single = !xr_strcmp(m_game_params.m_game_type, "single"); + if (is_single) + { + R_ASSERT(ai().script_engine().functor("loadscreen.get_tip_number", m_functor)); + tip_num = m_functor(map_name.c_str()); + } + else + { + R_ASSERT(ai().script_engine().functor("loadscreen.get_mp_tip_number", m_functor)); + tip_num = m_functor(map_name.c_str()); + } + // tip_num = 83; + xr_sprintf(buff, "%s%d:", CStringTable().translate("ls_tip_number").c_str(), tip_num); + shared_str tmp = buff; + + if (is_single) + xr_sprintf(buff, "ls_tip_%d", tip_num); + else + xr_sprintf(buff, "ls_mp_tip_%d", tip_num); + + pApp->LoadTitleInt(CStringTable().translate("ls_header").c_str(), tmp.c_str(), CStringTable().translate(buff).c_str()); + } } bool CGamePersistent::CanBePaused() { - return IsGameTypeSingle () || (g_pGameLevel && Level().IsDemoPlay()); + return IsGameTypeSingle() || (g_pGameLevel && Level().IsDemoPlay()); } void CGamePersistent::SetPickableEffectorDOF(bool bSet) { - m_bPickableDOF = bSet; - if(!bSet) - RestoreEffectorDOF(); + m_bPickableDOF = bSet; + if (!bSet) + RestoreEffectorDOF(); } void CGamePersistent::GetCurrentDof(Fvector3& dof) { - dof = m_dof[1]; + dof = m_dof[1]; } void CGamePersistent::SetBaseDof(const Fvector3& dof) { - m_dof[0]=m_dof[1]=m_dof[2]=m_dof[3] = dof; + m_dof[0] = m_dof[1] = m_dof[2] = m_dof[3] = dof; } void CGamePersistent::SetEffectorDOF(const Fvector& needed_dof) { - if(m_bPickableDOF) return; - m_dof[0] = needed_dof; - m_dof[2] = m_dof[1]; //current + if (m_bPickableDOF) return; + m_dof[0] = needed_dof; + m_dof[2] = m_dof[1]; //current } void CGamePersistent::RestoreEffectorDOF() { - SetEffectorDOF (m_dof[3]); + SetEffectorDOF(m_dof[3]); } #include "hudmanager.h" // m_dof [4]; // 0-dest 1-current 2-from 3-original void CGamePersistent::UpdateDof() { - static float diff_far = pSettings->r_float("zone_pick_dof","far");//70.0f; - static float diff_near = pSettings->r_float("zone_pick_dof","near");//-70.0f; - - if(m_bPickableDOF) - { - Fvector pick_dof; - pick_dof.y = HUD().GetCurrentRayQuery().range; - pick_dof.x = pick_dof.y+diff_near; - pick_dof.z = pick_dof.y+diff_far; - m_dof[0] = pick_dof; - m_dof[2] = m_dof[1]; //current - } - if(m_dof[1].similar(m_dof[0])) - return; - - float td = Device.fTimeDelta; - Fvector diff; - diff.sub (m_dof[0], m_dof[2]); - diff.mul (td/0.2f); //0.2 sec - m_dof[1].add (diff); - (m_dof[0].xr_float("zone_pick_dof", "far");//70.0f; + static float diff_near = pSettings->r_float("zone_pick_dof", "near");//-70.0f; + + if (m_bPickableDOF) + { + Fvector pick_dof; + pick_dof.y = HUD().GetCurrentRayQuery().range; + pick_dof.x = pick_dof.y + diff_near; + pick_dof.z = pick_dof.y + diff_far; + m_dof[0] = pick_dof; + m_dof[2] = m_dof[1]; //current + } + if (m_dof[1].similar(m_dof[0])) + return; + + float td = Device.fTimeDelta; + Fvector diff; + diff.sub(m_dof[0], m_dof[2]); + diff.mul(td / 0.2f); //0.2 sec + m_dof[1].add(diff); + (m_dof[0].x < m_dof[2].x) ? clamp(m_dof[1].x, m_dof[0].x, m_dof[2].x) : clamp(m_dof[1].x, m_dof[2].x, m_dof[0].x); + (m_dof[0].y < m_dof[2].y) ? clamp(m_dof[1].y, m_dof[0].y, m_dof[2].y) : clamp(m_dof[1].y, m_dof[2].y, m_dof[0].y); + (m_dof[0].z < m_dof[2].z) ? clamp(m_dof[1].z, m_dof[0].z, m_dof[2].z) : clamp(m_dof[1].z, m_dof[2].z, m_dof[0].z); } #include "ui\uimainingamewnd.h" void CGamePersistent::OnSectorChanged(int sector) { - if(CurrentGameUI()) - CurrentGameUI()->UIMainIngameWnd->OnSectorChanged(sector); + if (CurrentGameUI()) + CurrentGameUI()->UIMainIngameWnd->OnSectorChanged(sector); } void CGamePersistent::OnAssetsChanged() { - IGame_Persistent::OnAssetsChanged (); - CStringTable().rescan (); + IGame_Persistent::OnAssetsChanged(); + CStringTable().rescan(); } From 34384ecc5161363411c479dc2fee1852c4012e74 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 13 Dec 2014 17:14:42 -0500 Subject: [PATCH 006/166] + working release config (does not include plugins, editor, utils) --- src/3rd party/crypto/crypto.vcxproj | 10 +++++-- src/3rd party/cximage/cximage.vcxproj | 11 +++++-- src/3rd party/cximage/ximaexif.cpp | 1 + .../luabind/luabind.beta7-devel.rc4.vcxproj | 2 +- src/3rd party/luajit/lua.JIT.1.1.4.vcxproj | 2 +- .../contrib/msvc7/ode_default/default.vcxproj | 4 +-- .../OpenAL-Windows/Router/Router.vcxproj | 2 +- src/Layers/xrAPI/xrAPI.vcxproj | 2 +- src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 2 +- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 2 +- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 2 +- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 2 +- src/engine.sln | 29 ------------------- src/utils/xrDXT/DXT.vcxproj | 1 + src/xrCDB/xrCDB.vcxproj | 2 +- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 2 +- src/xrCore/xrCore.vcxproj | 2 +- src/xrD3D9-Null/xrD3D9-Null.vcxproj | 4 +-- src/xrEngine/xrEngine.vcxproj | 2 +- src/xrGame/xrGame.vcxproj | 2 +- src/xrGameSpy/xrGameSpy.vcxproj | 2 +- src/xrNetServer/xrNetServer.vcxproj | 2 +- src/xrParticles/xrParticles.vcxproj | 2 +- src/xrPhysics/xrPhysics.vcxproj | 2 +- src/xrSound/xrSound.vcxproj | 2 +- src/xrXMLParser/xrXMLParser.vcxproj | 2 +- 26 files changed, 41 insertions(+), 57 deletions(-) diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index caeb7979068..4a277373186 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -16,7 +16,7 @@ - StaticLibrary + DynamicLibrary v120 MultiByte true @@ -46,9 +46,10 @@ $(xrIntDir)$(ProjectName)\ - $(xrLibDir) + $(xrGameDir)_bin_rel $(xrIntDir)$(ProjectName)\ $(ProjectName) + .dll @@ -73,7 +74,7 @@ openssl;$(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) - CRYPTO_BUILD;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + CRYPTO_BUILD;CRYPTO_AS_SHARED_LIBRARY;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) MultiThreadedDLL Fast @@ -86,6 +87,9 @@ true true + + $(xrLibDir)$(TargetName).lib + diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index fe68df90b36..317814c95d1 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -52,7 +52,9 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ - $(ProjectName)_static + $(ProjectName) + .lib + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) $(xrGameBinDir) @@ -68,7 +70,7 @@ true true $(XRAY_16X_LIBS);$(SolutionDir);%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;_CRT_SECURE_NO_WARNINGS;_CRT_SECURE_NO_DEPRECATE;CXIMAGE_BUILD;%(PreprocessorDefinitions) + WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;_CRT_SECURE_NO_WARNINGS;_CRT_SECURE_NO_DEPRECATE;CXIMAGE_BUILD;CXIMAGE_AS_SHARED_LIBRARY;%(PreprocessorDefinitions) true false @@ -97,6 +99,11 @@ true .\Release/cximage.bsc + + + $(XRAY_16X_LIBS)\jpeg-8c\Release\;$(xrLibDir);%(AdditionalLibraryDirectories) + $(xrLibDir)$(TargetName).lib + diff --git a/src/3rd party/cximage/ximaexif.cpp b/src/3rd party/cximage/ximaexif.cpp index 33fa8a6421b..c8e6e848c27 100644 --- a/src/3rd party/cximage/ximaexif.cpp +++ b/src/3rd party/cximage/ximaexif.cpp @@ -7,6 +7,7 @@ */ #include "ximajpg.h" +#include "ximacfg.h" #if CXIMAGEJPG_SUPPORT_EXIF diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index fa759b45e0a..2fc532611d5 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -43,7 +43,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj index 81d421534fc..87002fa0497 100644 --- a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj +++ b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj @@ -43,7 +43,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ true false diff --git a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj index a78331f9efa..68434274050 100644 --- a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj +++ b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj @@ -70,7 +70,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ true false @@ -170,7 +170,7 @@ ../../../config/msvcdefs.def - true + false Windows true true diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index 11712605ee6..8668fc8d256 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -51,7 +51,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index c6f5adb774b..fd4198e97f9 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -48,7 +48,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 630accb3672..dad1568b23d 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -65,7 +65,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index 4848f288948..8a00afe9a2e 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -65,7 +65,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index c23f336a8df..046d7504ce5 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -65,7 +65,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index dafd4960090..054604fe7c0 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -65,7 +65,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/engine.sln b/src/engine.sln index 0e6d63621a9..664c56e4d3b 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -64,9 +64,6 @@ EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrCPU_Pipe", "xrCPU_Pipe\xrCPU_Pipe.vcxproj", "{CA0649DD-D089-423A-981C-46B57A884EB9}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrGame", "xrGame\xrGame.vcxproj", "{200652A6-043E-4634-8837-87983B3BD5E0}" - ProjectSection(ProjectDependencies) = postProject - {EFB76D6F-0092-439C-A783-C0BE10BD17C9} = {EFB76D6F-0092-439C-A783-C0BE10BD17C9} - EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "xrGameSpy", "xrGameSpy\xrGameSpy.vcxproj", "{5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}" EndProject @@ -180,7 +177,6 @@ Global {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.Build.0 = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.ActiveCfg = Release|Win32 - {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.Build.0 = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.Build.0 = Debug|Win32 @@ -189,7 +185,6 @@ Global {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.Build.0 = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.ActiveCfg = Release|Win32 - {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.Build.0 = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.Build.0 = Debug|Win32 @@ -198,7 +193,6 @@ Global {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.Build.0 = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.ActiveCfg = Release|Win32 - {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.Build.0 = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.Build.0 = Debug|Win32 @@ -207,7 +201,6 @@ Global {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.Build.0 = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.ActiveCfg = Release|Win32 - {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.Build.0 = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.Build.0 = Debug|Win32 @@ -216,7 +209,6 @@ Global {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.Build.0 = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.ActiveCfg = Release|Win32 - {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.Build.0 = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.Build.0 = Debug|Win32 @@ -225,7 +217,6 @@ Global {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.Build.0 = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.ActiveCfg = Release|Win32 - {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.Build.0 = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.Build.0 = Debug|Win32 @@ -234,7 +225,6 @@ Global {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.Build.0 = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.ActiveCfg = Release|Win32 - {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.Build.0 = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.Build.0 = Debug|Win32 @@ -243,7 +233,6 @@ Global {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.Build.0 = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Win32.ActiveCfg = Release|Win32 - {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Win32.Build.0 = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.Build.0 = Debug|Win32 @@ -261,7 +250,6 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.Build.0 = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.ActiveCfg = Release|Win32 - {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.Build.0 = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.Build.0 = Debug|Win32 @@ -270,7 +258,6 @@ Global {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.Build.0 = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.ActiveCfg = Release|Win32 - {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.Build.0 = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.Build.0 = Debug|Win32 @@ -279,7 +266,6 @@ Global {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.Build.0 = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Win32.ActiveCfg = Release|Win32 - {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Win32.Build.0 = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.Build.0 = Debug|Win32 @@ -389,7 +375,6 @@ Global {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.Build.0 = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release|Win32.ActiveCfg = Release|Win32 - {F573DE85-0866-4775-955F-6C3241D2AE80}.Release|Win32.Build.0 = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -400,7 +385,6 @@ Global {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.Build.0 = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release|Win32.ActiveCfg = Release|Win32 - {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release|Win32.Build.0 = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -411,7 +395,6 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.Build.0 = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.ActiveCfg = Release|Win32 - {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.Build.0 = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 @@ -420,7 +403,6 @@ Global {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.Build.0 = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.ActiveCfg = Release|Win32 - {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.Build.0 = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 @@ -429,7 +411,6 @@ Global {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.Build.0 = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release|Win32.ActiveCfg = Release|Win32 - {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release|Win32.Build.0 = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -440,7 +421,6 @@ Global {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.Build.0 = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release|Win32.ActiveCfg = Release|Win32 - {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release|Win32.Build.0 = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -451,7 +431,6 @@ Global {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.Build.0 = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Win32.ActiveCfg = Release|Win32 - {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Win32.Build.0 = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.Build.0 = Debug|Win32 @@ -477,7 +456,6 @@ Global {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.Build.0 = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.ActiveCfg = Release|Win32 - {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.Build.0 = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 @@ -485,7 +463,6 @@ Global {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.Build.0 = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release|Win32.ActiveCfg = Release|Win32 - {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release|Win32.Build.0 = Release|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.Build.0 = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -524,7 +501,6 @@ Global {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.Build.0 = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.ActiveCfg = Release|Win32 - {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.Build.0 = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.Build.0 = Debug|Win32 @@ -533,7 +509,6 @@ Global {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.Build.0 = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Win32.ActiveCfg = Release|Win32 - {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Win32.Build.0 = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.Build.0 = Debug|Win32 @@ -553,7 +528,6 @@ Global {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.Build.0 = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release|Win32.ActiveCfg = Release|Win32 - {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release|Win32.Build.0 = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -564,7 +538,6 @@ Global {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.Build.0 = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Win32.ActiveCfg = Release|Win32 - {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Win32.Build.0 = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.Build.0 = Debug|Win32 @@ -591,7 +564,6 @@ Global {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.Build.0 = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.ActiveCfg = Release|Win32 - {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.Build.0 = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.Build.0 = Debug|Win32 @@ -600,7 +572,6 @@ Global {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.Build.0 = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release|Win32.ActiveCfg = Release|Win32 - {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release|Win32.Build.0 = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Win32.ActiveCfg = Debug|Win32 diff --git a/src/utils/xrDXT/DXT.vcxproj b/src/utils/xrDXT/DXT.vcxproj index 36a130cb193..ad4fe29075b 100644 --- a/src/utils/xrDXT/DXT.vcxproj +++ b/src/utils/xrDXT/DXT.vcxproj @@ -65,6 +65,7 @@ $(xrBinDir) $(xrIntDir)$(ProjectName)\ false + .dll $(xrBinDir) diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 53f7fc057f3..6f5034643f3 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -61,7 +61,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index d518c655ea4..16c55b0facb 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -73,7 +73,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index e74f174fb11..15b69f58171 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -64,7 +64,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrD3D9-Null/xrD3D9-Null.vcxproj b/src/xrD3D9-Null/xrD3D9-Null.vcxproj index 32d6e4600e1..1265db415ec 100644 --- a/src/xrD3D9-Null/xrD3D9-Null.vcxproj +++ b/src/xrD3D9-Null/xrD3D9-Null.vcxproj @@ -49,7 +49,7 @@ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false @@ -100,7 +100,7 @@ xrD3D9-Null.def - true + false Windows true true diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index c882055643b..0198e7afa38 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -119,7 +119,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index c23eab75277..fde55ffc822 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -73,7 +73,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index dc4c12074df..65f4ac4d12c 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -50,7 +50,7 @@ false - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index b9172b21576..5b582fd0850 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -58,7 +58,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 237e2fd3234..921b996a033 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 40b751a68d5..e18cf0159f7 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -64,7 +64,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index 12700c25028..cac3a3e66ac 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -64,7 +64,7 @@ true - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index fc095b6a54b..4ee0f787b16 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)_bin_rel\ $(xrIntDir)$(ProjectName)\ false From 78afdb5fe79a78ad957f45b66c2d61de4229b417 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 14 Dec 2014 03:08:42 -0500 Subject: [PATCH 007/166] + change nologo start up param to skiplogo as it was clashing with nolog Console commands added: + fov + hud_fov + g_god + add g_unlimitedammo + jump_to_level + run_script + run_string + time_factor --- src/xrGame/GamePersistent.cpp | 2 +- src/xrGame/console_commands.cpp | 16 ++++++++-------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/xrGame/GamePersistent.cpp b/src/xrGame/GamePersistent.cpp index a45b737893f..e905ac337ce 100644 --- a/src/xrGame/GamePersistent.cpp +++ b/src/xrGame/GamePersistent.cpp @@ -459,7 +459,7 @@ bool allow_intro() bool allow_logo() // AVO: skip NVIDIA and other logos at load time { - if (0 != strstr(Core.Params, "-nologo")) + if (0 != strstr(Core.Params, "-skiplogo")) { return false; } diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 5eac47287fc..bb399e998eb 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -1186,7 +1186,7 @@ struct CCC_NoClip : public CCC_Mask */ #endif -#ifndef MASTER_GOLD +//#ifndef MASTER_GOLD # include "game_graph.h" struct CCC_JumpToLevel : public IConsole_Command { CCC_JumpToLevel(LPCSTR N) : IConsole_Command(N) {}; @@ -1341,7 +1341,7 @@ class CCC_TimeFactor : public IConsole_Command { } }; -#endif // MASTER_GOLD +//#endif // MASTER_GOLD #include "GamePersistent.h" @@ -1835,17 +1835,17 @@ void CCC_RegisterCommands() CMD3(CCC_Mask, "hud_crosshair", &psHUD_Flags, HUD_CROSSHAIR); CMD3(CCC_Mask, "hud_crosshair_dist", &psHUD_Flags, HUD_CROSSHAIR_DIST); -#ifdef DEBUG +//#ifdef DEBUG CMD4(CCC_Float, "hud_fov", &psHUD_FOV, 0.1f, 1.0f); CMD4(CCC_Float, "fov", &g_fov, 5.0f, 180.0f); -#endif // DEBUG +//#endif // DEBUG // Demo -#if 1//ndef MASTER_GOLD +//#ifndef MASTER_GOLD CMD1(CCC_DemoPlay, "demo_play" ); CMD1(CCC_DemoRecord, "demo_record" ); CMD1(CCC_DemoRecordSetPos, "demo_set_cam_position" ); -#endif // #ifndef MASTER_GOLD +//#endif // #ifndef MASTER_GOLD #ifndef MASTER_GOLD // ai @@ -1975,14 +1975,14 @@ CMD4(CCC_Integer, "hit_anims_tune", &tune_hit_anims, 0, 1); CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP ); #endif // DEBUG -#ifndef MASTER_GOLD +//#ifndef MASTER_GOLD CMD1(CCC_JumpToLevel, "jump_to_level" ); CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE ); CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); CMD1(CCC_Script, "run_script"); CMD1(CCC_ScriptCommand, "run_string"); CMD1(CCC_TimeFactor, "time_factor"); -#endif // MASTER_GOLD +//#endif // MASTER_GOLD CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); From bdf53732da75d5aca3a7ee89611a7d6f9a9896b8 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 16 Dec 2014 02:31:12 -0500 Subject: [PATCH 008/166] + Actor hit script callback --- res/gamedata/scripts/bind_stalker.script | 23 + src/xrGame/Actor.cpp | 3459 +++++++++++----------- 2 files changed, 1779 insertions(+), 1703 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index 3615c8b3793..d7896cb9895 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -85,6 +85,11 @@ function actor_binder:net_destroy() self.object:set_callback(callback.take_item_from_box, nil) self.object:set_callback(callback.use_object, nil) + ----| aVo |-------------------------------------------------------------------- + self.object:set_callback(callback.hit, nil) + --self.object:set_callback(123, nil) + ----| end:aVo |---------------------------------------------------------------- + log("--------->"..tostring(_G.amb_vol)) log("--------->"..tostring(_G.mus_vol)) if(_G.amb_vol~=0) then @@ -118,7 +123,25 @@ function actor_binder:reinit() self.object:set_callback(callback.task_state, self.task_callback, self) self.object:set_callback(callback.take_item_from_box, self.take_item_from_box, self) self.object:set_callback(callback.use_object, self.use_inventory_item, self) + + ----| aVo |-------------------------------------------------------------------- + self.object:set_callback(callback.hit, self.actor_hit, self) + -- self.object:set_callback(123, self.key_press, self) + ----| end:aVo |---------------------------------------------------------------- +end +--------------------------------------------------------------------------------------------------------------------- + + +----| aVo |-------------------------------------------------------------------- +-- Actor hit callback +function actor_binder:actor_hit(obj, amount, local_direction, who, bone_index) + -- local msg = string.format("actor_hit %f, %i", amount, bone_index) + -- get_console():execute("load ~:"..msg) end +-- x-ray extensions key press callback +--function actor_binder:key_press(key) + --sm:call("key_press", key) +--end ---------------------------------------------------------------------------------------------------------------------- function actor_binder:take_item_from_box(box, item) local box_name = box:name() diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 57e39eba454..19709170c3c 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -74,15 +74,15 @@ #include "ActorHelmet.h" #include "UI/UIDragDropReferenceList.h" -const u32 patch_frames = 50; -const float respawn_delay = 1.f; -const float respawn_auto = 7.f; +const u32 patch_frames = 50; +const float respawn_delay = 1.f; +const float respawn_auto = 7.f; static float IReceived = 0; static float ICoincidenced = 0; -extern float cammera_into_collision_shift ; +extern float cammera_into_collision_shift; -string32 ACTOR_DEFS::g_quick_use_slots[4]={NULL, NULL, NULL, NULL}; +string32 ACTOR_DEFS::g_quick_use_slots[4] = {NULL, NULL, NULL, NULL}; //skeleton @@ -92,1332 +92,1384 @@ static Fbox bbCrouchBox; static Fvector vFootCenter; static Fvector vFootExt; -Flags32 psActorFlags={AF_GODMODE_RT|AF_AUTOPICKUP|AF_RUN_BACKWARD|AF_IMPORTANT_SAVE}; +Flags32 psActorFlags = {AF_GODMODE_RT | AF_AUTOPICKUP | AF_RUN_BACKWARD | AF_IMPORTANT_SAVE}; int psActorSleepTime = 1; -CActor::CActor() : CEntityAlive(),current_ik_cam_shift(0) +CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) { - game_news_registry = xr_new(); - // Cameras - cameras[eacFirstEye] = xr_new (this); - cameras[eacFirstEye]->Load("actor_firsteye_cam"); - - if(strstr(Core.Params,"-psp")) - psActorFlags.set(AF_PSP, TRUE); - else - psActorFlags.set(AF_PSP, FALSE); - - if( psActorFlags.test(AF_PSP) ) - { - cameras[eacLookAt] = xr_new (this); - cameras[eacLookAt]->Load("actor_look_cam_psp"); - }else - { - cameras[eacLookAt] = xr_new (this); - cameras[eacLookAt]->Load("actor_look_cam"); - } - cameras[eacFreeLook] = xr_new (this); - cameras[eacFreeLook]->Load("actor_free_cam"); - cameras[eacFixedLookAt] = xr_new (this); - cameras[eacFixedLookAt]->Load("actor_look_cam"); - - cam_active = eacFirstEye; - fPrevCamPos = 0.0f; - vPrevCamDir.set (0.f,0.f,1.f); - fCurAVelocity = 0.0f; - // эффекторы - pCamBobbing = 0; - - - r_torso.yaw = 0; - r_torso.pitch = 0; - r_torso.roll = 0; - r_torso_tgt_roll = 0; - r_model_yaw = 0; - r_model_yaw_delta = 0; - r_model_yaw_dest = 0; - - b_DropActivated = 0; - f_DropPower = 0.f; - - m_fRunFactor = 2.f; - m_fCrouchFactor = 0.2f; - m_fClimbFactor = 1.f; - m_fCamHeightFactor = 0.87f; - - m_fFallTime = s_fFallTime; - m_bAnimTorsoPlayed = false; - - m_pPhysicsShell = NULL; - - m_fFeelGrenadeRadius = 10.0f; - m_fFeelGrenadeTime = 1.0f; - - m_holder = NULL; - m_holderID = u16(-1); + game_news_registry = xr_new(); + // Cameras + cameras[eacFirstEye] = xr_new(this); + cameras[eacFirstEye]->Load("actor_firsteye_cam"); + + if (strstr(Core.Params, "-psp")) + psActorFlags.set(AF_PSP, TRUE); + else + psActorFlags.set(AF_PSP, FALSE); + + if (psActorFlags.test(AF_PSP)) + { + cameras[eacLookAt] = xr_new(this); + cameras[eacLookAt]->Load("actor_look_cam_psp"); + } + else + { + cameras[eacLookAt] = xr_new(this); + cameras[eacLookAt]->Load("actor_look_cam"); + } + cameras[eacFreeLook] = xr_new(this); + cameras[eacFreeLook]->Load("actor_free_cam"); + cameras[eacFixedLookAt] = xr_new(this); + cameras[eacFixedLookAt]->Load("actor_look_cam"); + + cam_active = eacFirstEye; + fPrevCamPos = 0.0f; + vPrevCamDir.set(0.f, 0.f, 1.f); + fCurAVelocity = 0.0f; + // эффекторы + pCamBobbing = 0; + + + r_torso.yaw = 0; + r_torso.pitch = 0; + r_torso.roll = 0; + r_torso_tgt_roll = 0; + r_model_yaw = 0; + r_model_yaw_delta = 0; + r_model_yaw_dest = 0; + + b_DropActivated = 0; + f_DropPower = 0.f; + + m_fRunFactor = 2.f; + m_fCrouchFactor = 0.2f; + m_fClimbFactor = 1.f; + m_fCamHeightFactor = 0.87f; + + m_fFallTime = s_fFallTime; + m_bAnimTorsoPlayed = false; + + m_pPhysicsShell = NULL; + + m_fFeelGrenadeRadius = 10.0f; + m_fFeelGrenadeTime = 1.0f; + + m_holder = NULL; + m_holderID = u16(-1); #ifdef DEBUG - Device.seqRender.Add (this,REG_PRIORITY_LOW); + Device.seqRender.Add (this,REG_PRIORITY_LOW); #endif - //разрешить использование пояса в inventory - inventory().SetBeltUseful(true); + //разрешить использование пояса в inventory + inventory().SetBeltUseful(true); - m_pPersonWeLookingAt = NULL; - m_pVehicleWeLookingAt = NULL; - m_pObjectWeLookingAt = NULL; - m_bPickupMode = false; + m_pPersonWeLookingAt = NULL; + m_pVehicleWeLookingAt = NULL; + m_pObjectWeLookingAt = NULL; + m_bPickupMode = false; - pStatGraph = NULL; + pStatGraph = NULL; - m_pActorEffector = NULL; + m_pActorEffector = NULL; - SetZoomAimingMode (false); + SetZoomAimingMode(false); - m_sDefaultObjAction = NULL; + m_sDefaultObjAction = NULL; - m_fSprintFactor = 4.f; + m_fSprintFactor = 4.f; - //hFriendlyIndicator.create(FVF::F_LIT,RCache.Vertex.Buffer(),RCache.QuadIB); + //hFriendlyIndicator.create(FVF::F_LIT,RCache.Vertex.Buffer(),RCache.QuadIB); - m_pUsableObject = NULL; + m_pUsableObject = NULL; - m_anims = xr_new(); -//. m_vehicle_anims = xr_new(); - m_entity_condition = NULL; - m_iLastHitterID = u16(-1); - m_iLastHittingWeaponID = u16(-1); - m_statistic_manager = NULL; - //----------------------------------------------------------------------------------- - m_memory = g_dedicated_server ? 0 : xr_new(this); - m_bOutBorder = false; - m_hit_probability = 1.f; - m_feel_touch_characters = 0; - //----------------------------------------------------------------------------------- - m_dwILastUpdateTime = 0; + m_anims = xr_new(); + //. m_vehicle_anims = xr_new(); + m_entity_condition = NULL; + m_iLastHitterID = u16(-1); + m_iLastHittingWeaponID = u16(-1); + m_statistic_manager = NULL; + //----------------------------------------------------------------------------------- + m_memory = g_dedicated_server ? 0 : xr_new(this); + m_bOutBorder = false; + m_hit_probability = 1.f; + m_feel_touch_characters = 0; + //----------------------------------------------------------------------------------- + m_dwILastUpdateTime = 0; - m_location_manager = xr_new(this); - m_block_sprint_counter = 0; + m_location_manager = xr_new(this); + m_block_sprint_counter = 0; - m_disabled_hitmarks = false; - m_inventory_disabled = false; + m_disabled_hitmarks = false; + m_inventory_disabled = false; } CActor::~CActor() { - xr_delete (m_location_manager); - xr_delete (m_memory); - xr_delete (game_news_registry); + xr_delete(m_location_manager); + xr_delete(m_memory); + xr_delete(game_news_registry); #ifdef DEBUG - Device.seqRender.Remove(this); + Device.seqRender.Remove(this); #endif - //xr_delete(Weapons); - for (int i=0; imovement()->CreateCharacter (); - character_physics_support()->movement()->SetPhysicsRefObject (this); - CEntityAlive::reinit (); - CInventoryOwner::reinit (); - - character_physics_support()->in_Init (); - material().reinit (); - - m_pUsableObject = NULL; - if (!g_dedicated_server) - memory().reinit (); - - set_input_external_handler (0); - m_time_lock_accel = 0; + character_physics_support()->movement()->CreateCharacter(); + character_physics_support()->movement()->SetPhysicsRefObject(this); + CEntityAlive::reinit(); + CInventoryOwner::reinit(); + + character_physics_support()->in_Init(); + material().reinit(); + + m_pUsableObject = NULL; + if (!g_dedicated_server) + memory().reinit(); + + set_input_external_handler(0); + m_time_lock_accel = 0; } -void CActor::reload (LPCSTR section) +void CActor::reload(LPCSTR section) { - CEntityAlive::reload (section); - CInventoryOwner::reload (section); - material().reload (section); - CStepManager::reload (section); - if (!g_dedicated_server) - memory().reload (section); - m_location_manager->reload (section); + CEntityAlive::reload(section); + CInventoryOwner::reload(section); + material().reload(section); + CStepManager::reload(section); + if (!g_dedicated_server) + memory().reload(section); + m_location_manager->reload(section); } -void set_box(LPCSTR section, CPHMovementControl &mc, u32 box_num ) +void set_box(LPCSTR section, CPHMovementControl &mc, u32 box_num) { - Fbox bb;Fvector vBOX_center,vBOX_size; - // m_PhysicMovementControl: BOX - string64 buff, buff1; - strconcat( sizeof(buff), buff, "ph_box",itoa( box_num, buff1, 10 ),"_center" ); - vBOX_center= pSettings->r_fvector3 (section, buff ); - strconcat( sizeof(buff), buff, "ph_box",itoa( box_num, buff1, 10 ),"_size" ); - vBOX_size = pSettings->r_fvector3 (section, buff); - vBOX_size.y += cammera_into_collision_shift/2.f; - bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); - mc.SetBox (box_num,bb); + Fbox bb; Fvector vBOX_center, vBOX_size; + // m_PhysicMovementControl: BOX + string64 buff, buff1; + strconcat(sizeof(buff), buff, "ph_box", itoa(box_num, buff1, 10), "_center"); + vBOX_center = pSettings->r_fvector3(section, buff); + strconcat(sizeof(buff), buff, "ph_box", itoa(box_num, buff1, 10), "_size"); + vBOX_size = pSettings->r_fvector3(section, buff); + vBOX_size.y += cammera_into_collision_shift / 2.f; + bb.set(vBOX_center, vBOX_center); bb.grow(vBOX_size); + mc.SetBox(box_num, bb); } -void CActor::Load (LPCSTR section ) +void CActor::Load(LPCSTR section) { - // Msg ("Loading actor: %s",section); - inherited::Load (section); - material().Load (section); - CInventoryOwner::Load (section); - m_location_manager->Load (section); - - if (GameID() == eGameIDSingle) - OnDifficultyChanged (); - ////////////////////////////////////////////////////////////////////////// - ISpatial* self = smart_cast (this); - if (self) { - self->spatial.type |= STYPE_VISIBLEFORAI; - self->spatial.type &= ~STYPE_REACTTOSOUND; - } - ////////////////////////////////////////////////////////////////////////// - - // m_PhysicMovementControl: General - //m_PhysicMovementControl->SetParent (this); - - - /* - Fbox bb;Fvector vBOX_center,vBOX_size; - // m_PhysicMovementControl: BOX - vBOX_center= pSettings->r_fvector3 (section,"ph_box2_center" ); - vBOX_size = pSettings->r_fvector3 (section,"ph_box2_size" ); - bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); - character_physics_support()->movement()->SetBox (2,bb); - - // m_PhysicMovementControl: BOX - vBOX_center= pSettings->r_fvector3 (section,"ph_box1_center" ); - vBOX_size = pSettings->r_fvector3 (section,"ph_box1_size" ); - bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); - character_physics_support()->movement()->SetBox (1,bb); - - // m_PhysicMovementControl: BOX - vBOX_center= pSettings->r_fvector3 (section,"ph_box0_center" ); - vBOX_size = pSettings->r_fvector3 (section,"ph_box0_size" ); - bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); - character_physics_support()->movement()->SetBox (0,bb); - */ - - - - - - - - //// m_PhysicMovementControl: Foots - //Fvector vFOOT_center= pSettings->r_fvector3 (section,"ph_foot_center" ); - //Fvector vFOOT_size = pSettings->r_fvector3 (section,"ph_foot_size" ); - //bb.set (vFOOT_center,vFOOT_center); bb.grow(vFOOT_size); - ////m_PhysicMovementControl->SetFoots (vFOOT_center,vFOOT_size); - - // m_PhysicMovementControl: Crash speed and mass - float cs_min = pSettings->r_float (section,"ph_crash_speed_min" ); - float cs_max = pSettings->r_float (section,"ph_crash_speed_max" ); - float mass = pSettings->r_float (section,"ph_mass" ); - character_physics_support()->movement()->SetCrashSpeeds (cs_min,cs_max); - character_physics_support()->movement()->SetMass (mass); - if(pSettings->line_exist(section,"stalker_restrictor_radius")) - character_physics_support()->movement()->SetActorRestrictorRadius(rtStalker,pSettings->r_float(section,"stalker_restrictor_radius")); - if(pSettings->line_exist(section,"stalker_small_restrictor_radius")) - character_physics_support()->movement()->SetActorRestrictorRadius(rtStalkerSmall,pSettings->r_float(section,"stalker_small_restrictor_radius")); - if(pSettings->line_exist(section,"medium_monster_restrictor_radius")) - character_physics_support()->movement()->SetActorRestrictorRadius(rtMonsterMedium,pSettings->r_float(section,"medium_monster_restrictor_radius")); - character_physics_support()->movement()->Load(section); - - set_box( section, *character_physics_support()->movement(), 2 ); - set_box( section, *character_physics_support()->movement(), 1 ); - set_box( section, *character_physics_support()->movement(), 0 ); - - m_fWalkAccel = pSettings->r_float(section,"walk_accel"); - m_fJumpSpeed = pSettings->r_float(section,"jump_speed"); - m_fRunFactor = pSettings->r_float(section,"run_coef"); - m_fRunBackFactor = pSettings->r_float(section,"run_back_coef"); - m_fWalkBackFactor = pSettings->r_float(section,"walk_back_coef"); - m_fCrouchFactor = pSettings->r_float(section,"crouch_coef"); - m_fClimbFactor = pSettings->r_float(section,"climb_coef"); - m_fSprintFactor = pSettings->r_float(section,"sprint_koef"); - - m_fWalk_StrafeFactor = READ_IF_EXISTS(pSettings, r_float, section, "walk_strafe_coef", 1.0f); - m_fRun_StrafeFactor = READ_IF_EXISTS(pSettings, r_float, section, "run_strafe_coef", 1.0f); - - - m_fCamHeightFactor = pSettings->r_float(section,"camera_height_factor"); - character_physics_support()->movement()->SetJumpUpVelocity(m_fJumpSpeed); - float AirControlParam = pSettings->r_float(section,"air_control_param" ); - character_physics_support()->movement()->SetAirControlParam(AirControlParam); - - m_fPickupInfoRadius = pSettings->r_float(section,"pickup_info_radius"); - - m_fFeelGrenadeRadius = pSettings->r_float(section,"feel_grenade_radius"); - m_fFeelGrenadeTime = pSettings->r_float(section,"feel_grenade_time"); - m_fFeelGrenadeTime *= 1000.0f; - - character_physics_support()->in_Load (section); - - -if(!g_dedicated_server) -{ - LPCSTR hit_snd_sect = pSettings->r_string(section,"hit_sounds"); - for(int hit_type=0; hit_type<(int)ALife::eHitTypeMax; ++hit_type) - { - LPCSTR hit_name = ALife::g_cafHitType2String((ALife::EHitType)hit_type); - LPCSTR hit_snds = READ_IF_EXISTS(pSettings, r_string, hit_snd_sect, hit_name, ""); - int cnt = _GetItemCount(hit_snds); - string128 tmp; - VERIFY (cnt!=0); - for(int i=0; icreate (sndDie[0], strconcat(sizeof(buf),buf,*cName(),"\\die0"), st_Effect,SOUND_TYPE_MONSTER_DYING); - ::Sound->create (sndDie[1], strconcat(sizeof(buf),buf,*cName(),"\\die1"), st_Effect,SOUND_TYPE_MONSTER_DYING); - ::Sound->create (sndDie[2], strconcat(sizeof(buf),buf,*cName(),"\\die2"), st_Effect,SOUND_TYPE_MONSTER_DYING); - ::Sound->create (sndDie[3], strconcat(sizeof(buf),buf,*cName(),"\\die3"), st_Effect,SOUND_TYPE_MONSTER_DYING); - - m_HeavyBreathSnd.create (pSettings->r_string(section,"heavy_breath_snd"), st_Effect,SOUND_TYPE_MONSTER_INJURING); - m_BloodSnd.create (pSettings->r_string(section,"heavy_blood_snd"), st_Effect,SOUND_TYPE_MONSTER_INJURING); - m_DangerSnd.create (pSettings->r_string(section,"heavy_danger_snd"), st_Effect,SOUND_TYPE_MONSTER_INJURING); - } -} - if( psActorFlags.test(AF_PSP) ) - cam_Set (eacLookAt); - else - cam_Set (eacFirstEye); - - // sheduler - shedule.t_min = shedule.t_max = 1; - - // настройки дисперсии стрельбы - m_fDispBase = pSettings->r_float (section,"disp_base" ); - m_fDispBase = deg2rad(m_fDispBase); - - m_fDispAim = pSettings->r_float (section,"disp_aim" ); - m_fDispAim = deg2rad(m_fDispAim); - - m_fDispVelFactor = pSettings->r_float (section,"disp_vel_factor" ); - m_fDispAccelFactor = pSettings->r_float (section,"disp_accel_factor" ); - m_fDispCrouchFactor = pSettings->r_float (section,"disp_crouch_factor"); - m_fDispCrouchNoAccelFactor = pSettings->r_float (section,"disp_crouch_no_acc_factor"); - - LPCSTR default_outfit = READ_IF_EXISTS(pSettings,r_string,section,"default_outfit",0); - SetDefaultVisualOutfit (default_outfit); - - invincibility_fire_shield_1st = READ_IF_EXISTS(pSettings,r_string,section,"Invincibility_Shield_1st",0); - invincibility_fire_shield_3rd = READ_IF_EXISTS(pSettings,r_string,section,"Invincibility_Shield_3rd",0); -//----------------------------------------- - m_AutoPickUp_AABB = READ_IF_EXISTS(pSettings,r_fvector3,section,"AutoPickUp_AABB",Fvector().set(0.02f, 0.02f, 0.02f)); - m_AutoPickUp_AABB_Offset = READ_IF_EXISTS(pSettings,r_fvector3,section,"AutoPickUp_AABB_offs",Fvector().set(0, 0, 0)); - - CStringTable string_table; - m_sCharacterUseAction = "character_use"; - m_sDeadCharacterUseAction = "dead_character_use"; - m_sDeadCharacterUseOrDragAction = "dead_character_use_or_drag"; - m_sDeadCharacterDontUseAction = "dead_character_dont_use"; - m_sCarCharacterUseAction = "car_character_use"; - m_sInventoryItemUseAction = "inventory_item_use"; - m_sInventoryBoxUseAction = "inventory_box_use"; - //--------------------------------------------------------------------- - m_sHeadShotParticle = READ_IF_EXISTS(pSettings,r_string,section,"HeadShotParticle",0); + // Msg ("Loading actor: %s",section); + inherited::Load(section); + material().Load(section); + CInventoryOwner::Load(section); + m_location_manager->Load(section); + + if (GameID() == eGameIDSingle) + OnDifficultyChanged(); + ////////////////////////////////////////////////////////////////////////// + ISpatial* self = smart_cast (this); + if (self) + { + self->spatial.type |= STYPE_VISIBLEFORAI; + self->spatial.type &= ~STYPE_REACTTOSOUND; + } + ////////////////////////////////////////////////////////////////////////// + + // m_PhysicMovementControl: General + //m_PhysicMovementControl->SetParent (this); + + + /* + Fbox bb;Fvector vBOX_center,vBOX_size; + // m_PhysicMovementControl: BOX + vBOX_center= pSettings->r_fvector3 (section,"ph_box2_center" ); + vBOX_size = pSettings->r_fvector3 (section,"ph_box2_size" ); + bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); + character_physics_support()->movement()->SetBox (2,bb); + + // m_PhysicMovementControl: BOX + vBOX_center= pSettings->r_fvector3 (section,"ph_box1_center" ); + vBOX_size = pSettings->r_fvector3 (section,"ph_box1_size" ); + bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); + character_physics_support()->movement()->SetBox (1,bb); + + // m_PhysicMovementControl: BOX + vBOX_center= pSettings->r_fvector3 (section,"ph_box0_center" ); + vBOX_size = pSettings->r_fvector3 (section,"ph_box0_size" ); + bb.set (vBOX_center,vBOX_center); bb.grow(vBOX_size); + character_physics_support()->movement()->SetBox (0,bb); + */ + + + + + + + + //// m_PhysicMovementControl: Foots + //Fvector vFOOT_center= pSettings->r_fvector3 (section,"ph_foot_center" ); + //Fvector vFOOT_size = pSettings->r_fvector3 (section,"ph_foot_size" ); + //bb.set (vFOOT_center,vFOOT_center); bb.grow(vFOOT_size); + ////m_PhysicMovementControl->SetFoots (vFOOT_center,vFOOT_size); + + // m_PhysicMovementControl: Crash speed and mass + float cs_min = pSettings->r_float(section, "ph_crash_speed_min"); + float cs_max = pSettings->r_float(section, "ph_crash_speed_max"); + float mass = pSettings->r_float(section, "ph_mass"); + character_physics_support()->movement()->SetCrashSpeeds(cs_min, cs_max); + character_physics_support()->movement()->SetMass(mass); + if (pSettings->line_exist(section, "stalker_restrictor_radius")) + character_physics_support()->movement()->SetActorRestrictorRadius(rtStalker, pSettings->r_float(section, "stalker_restrictor_radius")); + if (pSettings->line_exist(section, "stalker_small_restrictor_radius")) + character_physics_support()->movement()->SetActorRestrictorRadius(rtStalkerSmall, pSettings->r_float(section, "stalker_small_restrictor_radius")); + if (pSettings->line_exist(section, "medium_monster_restrictor_radius")) + character_physics_support()->movement()->SetActorRestrictorRadius(rtMonsterMedium, pSettings->r_float(section, "medium_monster_restrictor_radius")); + character_physics_support()->movement()->Load(section); + + set_box(section, *character_physics_support()->movement(), 2); + set_box(section, *character_physics_support()->movement(), 1); + set_box(section, *character_physics_support()->movement(), 0); + + m_fWalkAccel = pSettings->r_float(section, "walk_accel"); + m_fJumpSpeed = pSettings->r_float(section, "jump_speed"); + m_fRunFactor = pSettings->r_float(section, "run_coef"); + m_fRunBackFactor = pSettings->r_float(section, "run_back_coef"); + m_fWalkBackFactor = pSettings->r_float(section, "walk_back_coef"); + m_fCrouchFactor = pSettings->r_float(section, "crouch_coef"); + m_fClimbFactor = pSettings->r_float(section, "climb_coef"); + m_fSprintFactor = pSettings->r_float(section, "sprint_koef"); + + m_fWalk_StrafeFactor = READ_IF_EXISTS(pSettings, r_float, section, "walk_strafe_coef", 1.0f); + m_fRun_StrafeFactor = READ_IF_EXISTS(pSettings, r_float, section, "run_strafe_coef", 1.0f); + + + m_fCamHeightFactor = pSettings->r_float(section, "camera_height_factor"); + character_physics_support()->movement()->SetJumpUpVelocity(m_fJumpSpeed); + float AirControlParam = pSettings->r_float(section, "air_control_param"); + character_physics_support()->movement()->SetAirControlParam(AirControlParam); + + m_fPickupInfoRadius = pSettings->r_float(section, "pickup_info_radius"); + + m_fFeelGrenadeRadius = pSettings->r_float(section, "feel_grenade_radius"); + m_fFeelGrenadeTime = pSettings->r_float(section, "feel_grenade_time"); + m_fFeelGrenadeTime *= 1000.0f; + + character_physics_support()->in_Load(section); + + + if (!g_dedicated_server) + { + LPCSTR hit_snd_sect = pSettings->r_string(section, "hit_sounds"); + for (int hit_type = 0; hit_type < (int) ALife::eHitTypeMax; ++hit_type) + { + LPCSTR hit_name = ALife::g_cafHitType2String((ALife::EHitType)hit_type); + LPCSTR hit_snds = READ_IF_EXISTS(pSettings, r_string, hit_snd_sect, hit_name, ""); + int cnt = _GetItemCount(hit_snds); + string128 tmp; + VERIFY(cnt != 0); + for (int i = 0; i < cnt; ++i) + { + sndHit[hit_type].push_back(ref_sound()); + sndHit[hit_type].back().create(_GetItem(hit_snds, i, tmp), st_Effect, sg_SourceType); + } + char buf[256]; + + ::Sound->create(sndDie[0], strconcat(sizeof(buf), buf, *cName(), "\\die0"), st_Effect, SOUND_TYPE_MONSTER_DYING); + ::Sound->create(sndDie[1], strconcat(sizeof(buf), buf, *cName(), "\\die1"), st_Effect, SOUND_TYPE_MONSTER_DYING); + ::Sound->create(sndDie[2], strconcat(sizeof(buf), buf, *cName(), "\\die2"), st_Effect, SOUND_TYPE_MONSTER_DYING); + ::Sound->create(sndDie[3], strconcat(sizeof(buf), buf, *cName(), "\\die3"), st_Effect, SOUND_TYPE_MONSTER_DYING); + + m_HeavyBreathSnd.create(pSettings->r_string(section, "heavy_breath_snd"), st_Effect, SOUND_TYPE_MONSTER_INJURING); + m_BloodSnd.create(pSettings->r_string(section, "heavy_blood_snd"), st_Effect, SOUND_TYPE_MONSTER_INJURING); + m_DangerSnd.create(pSettings->r_string(section, "heavy_danger_snd"), st_Effect, SOUND_TYPE_MONSTER_INJURING); + } + } + if (psActorFlags.test(AF_PSP)) + cam_Set(eacLookAt); + else + cam_Set(eacFirstEye); + + // sheduler + shedule.t_min = shedule.t_max = 1; + + // настройки дисперсии стрельбы + m_fDispBase = pSettings->r_float(section, "disp_base"); + m_fDispBase = deg2rad(m_fDispBase); + + m_fDispAim = pSettings->r_float(section, "disp_aim"); + m_fDispAim = deg2rad(m_fDispAim); + + m_fDispVelFactor = pSettings->r_float(section, "disp_vel_factor"); + m_fDispAccelFactor = pSettings->r_float(section, "disp_accel_factor"); + m_fDispCrouchFactor = pSettings->r_float(section, "disp_crouch_factor"); + m_fDispCrouchNoAccelFactor = pSettings->r_float(section, "disp_crouch_no_acc_factor"); + + LPCSTR default_outfit = READ_IF_EXISTS(pSettings, r_string, section, "default_outfit", 0); + SetDefaultVisualOutfit(default_outfit); + + invincibility_fire_shield_1st = READ_IF_EXISTS(pSettings, r_string, section, "Invincibility_Shield_1st", 0); + invincibility_fire_shield_3rd = READ_IF_EXISTS(pSettings, r_string, section, "Invincibility_Shield_3rd", 0); + //----------------------------------------- + m_AutoPickUp_AABB = READ_IF_EXISTS(pSettings, r_fvector3, section, "AutoPickUp_AABB", Fvector().set(0.02f, 0.02f, 0.02f)); + m_AutoPickUp_AABB_Offset = READ_IF_EXISTS(pSettings, r_fvector3, section, "AutoPickUp_AABB_offs", Fvector().set(0, 0, 0)); + + CStringTable string_table; + m_sCharacterUseAction = "character_use"; + m_sDeadCharacterUseAction = "dead_character_use"; + m_sDeadCharacterUseOrDragAction = "dead_character_use_or_drag"; + m_sDeadCharacterDontUseAction = "dead_character_dont_use"; + m_sCarCharacterUseAction = "car_character_use"; + m_sInventoryItemUseAction = "inventory_item_use"; + m_sInventoryBoxUseAction = "inventory_box_use"; + //--------------------------------------------------------------------- + m_sHeadShotParticle = READ_IF_EXISTS(pSettings, r_string, section, "HeadShotParticle", 0); } void CActor::PHHit(SHit &H) { - m_pPhysics_support->in_Hit( H, false ); + m_pPhysics_support->in_Hit(H, false); } struct playing_pred { - IC bool operator() (ref_sound &s) - { - return (NULL != s._feedback() ); - } + IC bool operator() (ref_sound &s) + { + return (NULL != s._feedback()); + } }; void CActor::Hit(SHit* pHDS) { - bool b_initiated = pHDS->aim_bullet; // physics strike by poltergeist - - pHDS->aim_bullet = false; - - SHit& HDS = *pHDS; - if( HDS.hit_type= ALife::eHitTypeMax ) - { - string256 err; - xr_sprintf (err, "Unknown/unregistered hit type [%d]", HDS.hit_type); - R_ASSERT2 (0, err ); - - } + bool b_initiated = pHDS->aim_bullet; // physics strike by poltergeist + + pHDS->aim_bullet = false; + + SHit& HDS = *pHDS; + if (HDS.hit_type < ALife::eHitTypeBurn || HDS.hit_type >= ALife::eHitTypeMax) + { + string256 err; + xr_sprintf(err, "Unknown/unregistered hit type [%d]", HDS.hit_type); + R_ASSERT2(0, err); + + } #ifdef DEBUG - if(ph_dbg_draw_mask.test(phDbgCharacterControl)) { - DBG_OpenCashedDraw(); - Fvector to;to.add(Position(),Fvector().mul(HDS.dir,HDS.phys_impulse())); - DBG_DrawLine(Position(),to,D3DCOLOR_XRGB(124,124,0)); - DBG_ClosedCashedDraw(500); - } + if(ph_dbg_draw_mask.test(phDbgCharacterControl)) { + DBG_OpenCashedDraw(); + Fvector to;to.add(Position(),Fvector().mul(HDS.dir,HDS.phys_impulse())); + DBG_DrawLine(Position(),to,D3DCOLOR_XRGB(124,124,0)); + DBG_ClosedCashedDraw(500); + } #endif // DEBUG - bool bPlaySound = true; - if (!g_Alive()) bPlaySound = false; - - if (!IsGameTypeSingle() && !g_dedicated_server) - { - game_PlayerState* ps = Game().GetPlayerByGameID(ID()); - if (ps && ps->testFlag(GAME_PLAYER_FLAG_INVINCIBLE)) - { - bPlaySound = false; - if (Device.dwFrame != last_hit_frame && - HDS.bone() != BI_NONE) - { - // вычислить позицию и направленность партикла - Fmatrix pos; - - CParticlesPlayer::MakeXFORM(this,HDS.bone(),HDS.dir,HDS.p_in_bone_space,pos); - - // установить particles - CParticlesObject* ps = NULL; - - if (eacFirstEye == cam_active && this == Level().CurrentEntity()) - ps = CParticlesObject::Create(invincibility_fire_shield_1st,TRUE); - else - ps = CParticlesObject::Create(invincibility_fire_shield_3rd,TRUE); - - ps->UpdateParent(pos,Fvector().set(0.f,0.f,0.f)); - GamePersistent().ps_needtoplay.push_back(ps); - }; - }; - - - last_hit_frame = Device.dwFrame; - }; - - if( !g_dedicated_server && - !sndHit[HDS.hit_type].empty() && - conditions().PlayHitSound(pHDS) ) - { - ref_sound& S = sndHit[HDS.hit_type][Random.randI(sndHit[HDS.hit_type].size())]; - bool b_snd_hit_playing = sndHit[HDS.hit_type].end() != std::find_if(sndHit[HDS.hit_type].begin(), sndHit[HDS.hit_type].end(), playing_pred()); - - if(ALife::eHitTypeExplosion == HDS.hit_type) - { - if (this == Level().CurrentControlEntity()) - { - S.set_volume(10.0f); - if(!m_sndShockEffector){ - m_sndShockEffector = xr_new(); - m_sndShockEffector->Start(this, float(S.get_length_sec()*1000.0f), HDS.damage() ); - } - } - else - bPlaySound = false; - } - if (bPlaySound && !b_snd_hit_playing) - { - Fvector point = Position(); - point.y += CameraHeight(); - S.play_at_pos (this, point); - } - } - - - //slow actor, only when he gets hit - m_hit_slowmo = conditions().HitSlowmo(pHDS); - - //--------------------------------------------------------------- - if( (Level().CurrentViewEntity()==this) && - !g_dedicated_server && - (HDS.hit_type == ALife::eHitTypeFireWound) ) - { - CObject* pLastHitter = Level().Objects.net_Find(m_iLastHitterID); - CObject* pLastHittingWeapon = Level().Objects.net_Find(m_iLastHittingWeaponID); - HitSector (pLastHitter, pLastHittingWeapon); - } - - if( (mstate_real&mcSprint) && Level().CurrentControlEntity() == this && conditions().DisableSprint(pHDS) ) - { - bool const is_special_burn_hit_2_self = (pHDS->who == this) && (pHDS->boneID == BI_NONE) && - ((pHDS->hit_type==ALife::eHitTypeBurn)||(pHDS->hit_type==ALife::eHitTypeLightBurn)); - if ( !is_special_burn_hit_2_self ) - { - mstate_wishful &=~mcSprint; - } - } - if(!g_dedicated_server && !m_disabled_hitmarks) - { - bool b_fireWound = (pHDS->hit_type==ALife::eHitTypeFireWound || pHDS->hit_type==ALife::eHitTypeWound_2); - b_initiated = b_initiated && (pHDS->hit_type==ALife::eHitTypeStrike); - - if(b_fireWound || b_initiated) - HitMark (HDS.damage(), HDS.dir, HDS.who, HDS.bone(), HDS.p_in_bone_space, HDS.impulse, HDS.hit_type); - } - - if(IsGameTypeSingle()) - { - float hit_power = HitArtefactsOnBelt(HDS.damage(), HDS.hit_type); - - if(GodMode()) - { - HDS.power = 0.0f; - inherited::Hit (&HDS); - return; - }else - { - HDS.power = hit_power; - HDS.add_wound = true; - inherited::Hit (&HDS); - } - }else - { - m_bWasBackStabbed = false; - if (HDS.hit_type == ALife::eHitTypeWound_2 && Check_for_BackStab_Bone(HDS.bone())) - { - // convert impulse into local coordinate system - Fmatrix mInvXForm; - mInvXForm.invert (XFORM()); - Fvector vLocalDir; - mInvXForm.transform_dir (vLocalDir,HDS.dir); - vLocalDir.invert (); - - Fvector a = {0,0,1}; - float res = a.dotproduct(vLocalDir); - if (res < -0.707) - { - game_PlayerState* ps = Game().GetPlayerByGameID(ID()); - - if (!ps || !ps->testFlag(GAME_PLAYER_FLAG_INVINCIBLE)) - m_bWasBackStabbed = true; - } - }; - - float hit_power = 0.0f; - - if (m_bWasBackStabbed) - hit_power = (HDS.damage() == 0) ? 0 : 100000.0f; - else - hit_power = HitArtefactsOnBelt(HDS.damage(), HDS.hit_type); - - HDS.power = hit_power; - HDS.add_wound = true; - inherited::Hit (&HDS); - - if(OnServer() && !g_Alive() && HDS.hit_type==ALife::eHitTypeExplosion) - { - game_PlayerState* ps = Game().GetPlayerByGameID(ID()); - Game().m_WeaponUsageStatistic->OnExplosionKill (ps, HDS); - } - } + bool bPlaySound = true; + if (!g_Alive()) bPlaySound = false; + + if (!IsGameTypeSingle() && !g_dedicated_server) + { + game_PlayerState* ps = Game().GetPlayerByGameID(ID()); + if (ps && ps->testFlag(GAME_PLAYER_FLAG_INVINCIBLE)) + { + bPlaySound = false; + if (Device.dwFrame != last_hit_frame && + HDS.bone() != BI_NONE) + { + // вычислить позицию и направленность партикла + Fmatrix pos; + + CParticlesPlayer::MakeXFORM(this, HDS.bone(), HDS.dir, HDS.p_in_bone_space, pos); + + // установить particles + CParticlesObject* ps = NULL; + + if (eacFirstEye == cam_active && this == Level().CurrentEntity()) + ps = CParticlesObject::Create(invincibility_fire_shield_1st, TRUE); + else + ps = CParticlesObject::Create(invincibility_fire_shield_3rd, TRUE); + + ps->UpdateParent(pos, Fvector().set(0.f, 0.f, 0.f)); + GamePersistent().ps_needtoplay.push_back(ps); + }; + }; + + + last_hit_frame = Device.dwFrame; + }; + + if (!g_dedicated_server && + !sndHit[HDS.hit_type].empty() && + conditions().PlayHitSound(pHDS)) + { + ref_sound& S = sndHit[HDS.hit_type][Random.randI(sndHit[HDS.hit_type].size())]; + bool b_snd_hit_playing = sndHit[HDS.hit_type].end() != std::find_if(sndHit[HDS.hit_type].begin(), sndHit[HDS.hit_type].end(), playing_pred()); + + if (ALife::eHitTypeExplosion == HDS.hit_type) + { + if (this == Level().CurrentControlEntity()) + { + S.set_volume(10.0f); + if (!m_sndShockEffector) + { + m_sndShockEffector = xr_new(); + m_sndShockEffector->Start(this, float(S.get_length_sec()*1000.0f), HDS.damage()); + } + } + else + bPlaySound = false; + } + if (bPlaySound && !b_snd_hit_playing) + { + Fvector point = Position(); + point.y += CameraHeight(); + S.play_at_pos(this, point); + } + } + + + //slow actor, only when he gets hit + m_hit_slowmo = conditions().HitSlowmo(pHDS); + + //--------------------------------------------------------------- + if ((Level().CurrentViewEntity() == this) && + !g_dedicated_server && + (HDS.hit_type == ALife::eHitTypeFireWound)) + { + CObject* pLastHitter = Level().Objects.net_Find(m_iLastHitterID); + CObject* pLastHittingWeapon = Level().Objects.net_Find(m_iLastHittingWeaponID); + HitSector(pLastHitter, pLastHittingWeapon); + } + + if ((mstate_real&mcSprint) && Level().CurrentControlEntity() == this && conditions().DisableSprint(pHDS)) + { + bool const is_special_burn_hit_2_self = (pHDS->who == this) && (pHDS->boneID == BI_NONE) && + ((pHDS->hit_type == ALife::eHitTypeBurn) || (pHDS->hit_type == ALife::eHitTypeLightBurn)); + if (!is_special_burn_hit_2_self) + { + mstate_wishful &= ~mcSprint; + } + } + if (!g_dedicated_server && !m_disabled_hitmarks) + { + bool b_fireWound = (pHDS->hit_type == ALife::eHitTypeFireWound || pHDS->hit_type == ALife::eHitTypeWound_2); + b_initiated = b_initiated && (pHDS->hit_type == ALife::eHitTypeStrike); + + if (b_fireWound || b_initiated) + HitMark(HDS.damage(), HDS.dir, HDS.who, HDS.bone(), HDS.p_in_bone_space, HDS.impulse, HDS.hit_type); + } + + if (IsGameTypeSingle()) + { + if (GodMode()) + { + HDS.power = 0.0f; + inherited::Hit(&HDS); + return; + } + else + { + float hit_power = HitArtefactsOnBelt(HDS.damage(), HDS.hit_type); + HDS.power = hit_power; + HDS.add_wound = true; + if (g_Alive()) + { + /* AVO: send script callback*/ + callback(GameObject::eHit)( + this->lua_game_object(), + HDS.damage(), + HDS.direction(), + smart_cast(HDS.who)->lua_game_object(), + HDS.boneID + ); + } + inherited::Hit(&HDS); + } + + /* AVO: rewritten above and added hit callback*/ + /*float hit_power = HitArtefactsOnBelt(HDS.damage(), HDS.hit_type); + + if (GodMode()) + { + HDS.power = 0.0f; + inherited::Hit(&HDS); + return; + } + else + { + HDS.power = hit_power; + HDS.add_wound = true; + inherited::Hit(&HDS); + }*/ + } + else + { + m_bWasBackStabbed = false; + if (HDS.hit_type == ALife::eHitTypeWound_2 && Check_for_BackStab_Bone(HDS.bone())) + { + // convert impulse into local coordinate system + Fmatrix mInvXForm; + mInvXForm.invert(XFORM()); + Fvector vLocalDir; + mInvXForm.transform_dir(vLocalDir, HDS.dir); + vLocalDir.invert(); + + Fvector a = {0, 0, 1}; + float res = a.dotproduct(vLocalDir); + if (res < -0.707) + { + game_PlayerState* ps = Game().GetPlayerByGameID(ID()); + + if (!ps || !ps->testFlag(GAME_PLAYER_FLAG_INVINCIBLE)) + m_bWasBackStabbed = true; + } + }; + + float hit_power = 0.0f; + + if (m_bWasBackStabbed) + hit_power = (HDS.damage() == 0) ? 0 : 100000.0f; + else + hit_power = HitArtefactsOnBelt(HDS.damage(), HDS.hit_type); + + HDS.power = hit_power; + HDS.add_wound = true; + inherited::Hit(&HDS); + + if (OnServer() && !g_Alive() && HDS.hit_type == ALife::eHitTypeExplosion) + { + game_PlayerState* ps = Game().GetPlayerByGameID(ID()); + Game().m_WeaponUsageStatistic->OnExplosionKill(ps, HDS); + } + } } -void CActor::HitMark (float P, - Fvector dir, - CObject* who_object, - s16 element, - Fvector position_in_bone_space, - float impulse, - ALife::EHitType hit_type_) +void CActor::HitMark(float P, + Fvector dir, + CObject* who_object, + s16 element, + Fvector position_in_bone_space, + float impulse, + ALife::EHitType hit_type_) { - // hit marker - if ( /*(hit_type==ALife::eHitTypeFireWound||hit_type==ALife::eHitTypeWound_2) && */ - g_Alive() && Local() && (Level().CurrentEntity()==this) ) - { - HUD().HitMarked (0, P, dir); - - CEffectorCam* ce = Cameras().GetCamEffector((ECamEffectorType)effFireHit); - if( ce ) return; - - int id = -1; - Fvector cam_pos,cam_dir,cam_norm; - cam_Active()->Get (cam_pos,cam_dir,cam_norm); - cam_dir.normalize_safe (); - dir.normalize_safe (); - - float ang_diff = angle_difference (cam_dir.getH(), dir.getH()); - Fvector cp; - cp.crossproduct (cam_dir,dir); - bool bUp =(cp.y>0.0f); - - Fvector cross; - cross.crossproduct (cam_dir, dir); - VERIFY (ang_diff>=0.0f && ang_diff<=PI); - - float _s1 = PI_DIV_8; - float _s2 = _s1 + PI_DIV_4; - float _s3 = _s2 + PI_DIV_4; - float _s4 = _s3 + PI_DIV_4; - - if ( ang_diff <= _s1 ) - { - id = 2; - } - else if ( ang_diff > _s1 && ang_diff <= _s2 ) - { - id = (bUp)?5:7; - } - else if ( ang_diff > _s2 && ang_diff <= _s3 ) - { - id = (bUp)?3:1; - } - else if ( ang_diff > _s3 && ang_diff <= _s4 ) - { - id = (bUp)?4:6; - } - else if( ang_diff > _s4 ) - { - id = 0; - } - else - { - VERIFY(0); - } - - string64 sect_name; - xr_sprintf( sect_name, "effector_fire_hit_%d", id ); - AddEffector( this, effFireHit, sect_name, P * 0.001f ); - - }//if hit_type + // hit marker + if ( /*(hit_type==ALife::eHitTypeFireWound||hit_type==ALife::eHitTypeWound_2) && */ + g_Alive() && Local() && (Level().CurrentEntity() == this)) + { + HUD().HitMarked(0, P, dir); + + CEffectorCam* ce = Cameras().GetCamEffector((ECamEffectorType) effFireHit); + if (ce) return; + + int id = -1; + Fvector cam_pos, cam_dir, cam_norm; + cam_Active()->Get(cam_pos, cam_dir, cam_norm); + cam_dir.normalize_safe(); + dir.normalize_safe(); + + float ang_diff = angle_difference(cam_dir.getH(), dir.getH()); + Fvector cp; + cp.crossproduct(cam_dir, dir); + bool bUp = (cp.y > 0.0f); + + Fvector cross; + cross.crossproduct(cam_dir, dir); + VERIFY(ang_diff >= 0.0f && ang_diff <= PI); + + float _s1 = PI_DIV_8; + float _s2 = _s1 + PI_DIV_4; + float _s3 = _s2 + PI_DIV_4; + float _s4 = _s3 + PI_DIV_4; + + if (ang_diff <= _s1) + { + id = 2; + } + else if (ang_diff > _s1 && ang_diff <= _s2) + { + id = (bUp) ? 5 : 7; + } + else if (ang_diff > _s2 && ang_diff <= _s3) + { + id = (bUp) ? 3 : 1; + } + else if (ang_diff > _s3 && ang_diff <= _s4) + { + id = (bUp) ? 4 : 6; + } + else if (ang_diff > _s4) + { + id = 0; + } + else + { + VERIFY(0); + } + + string64 sect_name; + xr_sprintf(sect_name, "effector_fire_hit_%d", id); + AddEffector(this, effFireHit, sect_name, P * 0.001f); + + }//if hit_type } void CActor::HitSignal(float perc, Fvector& vLocalDir, CObject* who, s16 element) { - if (g_Alive()) - { - - // check damage bone - Fvector D; - XFORM().transform_dir(D,vLocalDir); - - float yaw, pitch; - D.getHP(yaw,pitch); - IRenderVisual *pV = Visual(); - IKinematicsAnimated *tpKinematics = smart_cast(pV); - IKinematics *pK = smart_cast(pV); - VERIFY(tpKinematics); + if (g_Alive()) + { + /* AVO: to get bone names from IDs*/ + /*Log("hit info"); + Log("bone ID = %s", element); + Log("bone Name = %s", smart_cast(this->Visual())->LL_BoneName_dbg(element)); + Log("hit info END");*/ + + // check damage bone + Fvector D; + XFORM().transform_dir(D, vLocalDir); + + float yaw, pitch; + D.getHP(yaw, pitch); + IRenderVisual *pV = Visual(); + IKinematicsAnimated *tpKinematics = smart_cast(pV); + IKinematics *pK = smart_cast(pV); + VERIFY(tpKinematics); #pragma todo("Dima to Dima : forward-back bone impulse direction has been determined incorrectly!") - MotionID motion_ID = m_anims->m_normal.m_damage[iFloor(pK->LL_GetBoneInstance(element).get_param(1) + (angle_difference(r_model_yaw + r_model_yaw_delta,yaw) <= PI_DIV_2 ? 0 : 1))]; - float power_factor = perc/100.f; clamp(power_factor,0.f,1.f); - VERIFY(motion_ID.valid()); - tpKinematics->PlayFX(motion_ID,power_factor); - } + MotionID motion_ID = m_anims->m_normal.m_damage[iFloor(pK->LL_GetBoneInstance(element).get_param(1) + (angle_difference(r_model_yaw + r_model_yaw_delta, yaw) <= PI_DIV_2 ? 0 : 1))]; + float power_factor = perc / 100.f; clamp(power_factor, 0.f, 1.f); + VERIFY(motion_ID.valid()); + tpKinematics->PlayFX(motion_ID, power_factor); + } } void start_tutorial(LPCSTR name); -void CActor::Die (CObject* who) +void CActor::Die(CObject* who) { #ifdef DEBUG - Msg("--- Actor [%s] dies !", this->Name()); + Msg("--- Actor [%s] dies !", this->Name()); #endif // #ifdef DEBUG - inherited::Die (who); - - if (OnServer()) - { - u16 I = inventory().FirstSlot(); - u16 E = inventory().LastSlot(); - - for (; I <= E; ++I) - { - PIItem item_in_slot = inventory().ItemFromSlot(I); - if (I == inventory().GetActiveSlot()) - { - if(item_in_slot) - { - if (IsGameTypeSingle()) - { - CGrenade* grenade = smart_cast(item_in_slot); - if (grenade) - grenade->DropGrenade(); - else - item_in_slot->SetDropManual(TRUE); - }else - { - //This logic we do on a server site - /* - if ((*I).m_pIItem->object().CLS_ID != CLSID_OBJECT_W_KNIFE) - { - (*I).m_pIItem->SetDropManual(TRUE); - }*/ - } - }; - continue; - } - else - { - CCustomOutfit *pOutfit = smart_cast (item_in_slot); - if (pOutfit) continue; - }; - if(item_in_slot) - inventory().Ruck(item_in_slot); - }; - - - ///!!! чистка пояса - TIItemContainer &l_blist = inventory().m_belt; - while (!l_blist.empty()) - inventory().Ruck(l_blist.front()); - - if (!IsGameTypeSingle()) - { - //if we are on server and actor has PDA - destroy PDA - TIItemContainer &l_rlist = inventory().m_ruck; - for(TIItemContainer::iterator l_it = l_rlist.begin(); l_rlist.end() != l_it; ++l_it) - { - if (GameID() == eGameIDArtefactHunt) - { - CArtefact* pArtefact = smart_cast (*l_it); - if (pArtefact) - { - (*l_it)->SetDropManual(TRUE); - continue; - }; - }; - - if ((*l_it)->object().CLS_ID == CLSID_OBJECT_PLAYERS_BAG) - { - (*l_it)->SetDropManual(TRUE); - continue; - }; - }; - }; - }; - - if(!g_dedicated_server) - { - ::Sound->play_at_pos (sndDie[Random.randI(SND_DIE_COUNT)],this,Position()); - - m_HeavyBreathSnd.stop (); - m_BloodSnd.stop (); - m_DangerSnd.stop (); - } - - if (IsGameTypeSingle()) - { - cam_Set (eacFreeLook); - CurrentGameUI()->HideShownDialogs(); - start_tutorial ("game_over"); - } else - { - cam_Set (eacFixedLookAt); - } - - mstate_wishful &= ~mcAnyMove; - mstate_real &= ~mcAnyMove; - - xr_delete (m_sndShockEffector); + inherited::Die(who); + + if (OnServer()) + { + u16 I = inventory().FirstSlot(); + u16 E = inventory().LastSlot(); + + for (; I <= E; ++I) + { + PIItem item_in_slot = inventory().ItemFromSlot(I); + if (I == inventory().GetActiveSlot()) + { + if (item_in_slot) + { + if (IsGameTypeSingle()) + { + CGrenade* grenade = smart_cast(item_in_slot); + if (grenade) + grenade->DropGrenade(); + else + item_in_slot->SetDropManual(TRUE); + } + else + { + //This logic we do on a server site + /* + if ((*I).m_pIItem->object().CLS_ID != CLSID_OBJECT_W_KNIFE) + { + (*I).m_pIItem->SetDropManual(TRUE); + }*/ + } + }; + continue; + } + else + { + CCustomOutfit *pOutfit = smart_cast (item_in_slot); + if (pOutfit) continue; + }; + if (item_in_slot) + inventory().Ruck(item_in_slot); + }; + + + ///!!! чистка пояса + TIItemContainer &l_blist = inventory().m_belt; + while (!l_blist.empty()) + inventory().Ruck(l_blist.front()); + + if (!IsGameTypeSingle()) + { + //if we are on server and actor has PDA - destroy PDA + TIItemContainer &l_rlist = inventory().m_ruck; + for (TIItemContainer::iterator l_it = l_rlist.begin(); l_rlist.end() != l_it; ++l_it) + { + if (GameID() == eGameIDArtefactHunt) + { + CArtefact* pArtefact = smart_cast (*l_it); + if (pArtefact) + { + (*l_it)->SetDropManual(TRUE); + continue; + }; + }; + + if ((*l_it)->object().CLS_ID == CLSID_OBJECT_PLAYERS_BAG) + { + (*l_it)->SetDropManual(TRUE); + continue; + }; + }; + }; + }; + + if (!g_dedicated_server) + { + ::Sound->play_at_pos(sndDie[Random.randI(SND_DIE_COUNT)], this, Position()); + + m_HeavyBreathSnd.stop(); + m_BloodSnd.stop(); + m_DangerSnd.stop(); + } + + if (IsGameTypeSingle()) + { + cam_Set(eacFreeLook); + CurrentGameUI()->HideShownDialogs(); + start_tutorial("game_over"); + } + else + { + cam_Set(eacFixedLookAt); + } + + mstate_wishful &= ~mcAnyMove; + mstate_real &= ~mcAnyMove; + + xr_delete(m_sndShockEffector); } void CActor::SwitchOutBorder(bool new_border_state) { - if(new_border_state) - { - callback(GameObject::eExitLevelBorder)(lua_game_object()); - } - else - { -//. Msg("enter level border"); - callback(GameObject::eEnterLevelBorder)(lua_game_object()); - } - m_bOutBorder=new_border_state; + if (new_border_state) + { + callback(GameObject::eExitLevelBorder)(lua_game_object()); + } + else + { + //. Msg("enter level border"); + callback(GameObject::eEnterLevelBorder)(lua_game_object()); + } + m_bOutBorder = new_border_state; } -void CActor::g_Physics (Fvector& _accel, float jump, float dt) +void CActor::g_Physics(Fvector& _accel, float jump, float dt) { - // Correct accel - Fvector accel; - accel.set (_accel); - m_hit_slowmo -= dt; - if(m_hit_slowmo<0) m_hit_slowmo = 0.f; - - accel.mul (1.f-m_hit_slowmo); - - - - - if(g_Alive()) - { - if(mstate_real&mcClimb&&!cameras[eacFirstEye]->bClampYaw) - accel.set(0.f,0.f,0.f); - character_physics_support()->movement()->Calculate (accel,cameras[cam_active]->vDirection,0,jump,dt,false); - bool new_border_state=character_physics_support()->movement()->isOutBorder(); - if(m_bOutBorder!=new_border_state && Level().CurrentControlEntity() == this) - { - SwitchOutBorder(new_border_state); - } + // Correct accel + Fvector accel; + accel.set(_accel); + m_hit_slowmo -= dt; + if (m_hit_slowmo < 0) m_hit_slowmo = 0.f; + + accel.mul(1.f - m_hit_slowmo); + + + + + if (g_Alive()) + { + if (mstate_real&mcClimb&&!cameras[eacFirstEye]->bClampYaw) + accel.set(0.f, 0.f, 0.f); + character_physics_support()->movement()->Calculate(accel, cameras[cam_active]->vDirection, 0, jump, dt, false); + bool new_border_state = character_physics_support()->movement()->isOutBorder(); + if (m_bOutBorder != new_border_state && Level().CurrentControlEntity() == this) + { + SwitchOutBorder(new_border_state); + } #ifdef DEBUG - if(!psActorFlags.test(AF_NO_CLIP)) - character_physics_support()->movement()->GetPosition (Position()); + if(!psActorFlags.test(AF_NO_CLIP)) + character_physics_support()->movement()->GetPosition (Position()); #else //DEBUG - character_physics_support()->movement()->GetPosition (Position()); + character_physics_support()->movement()->GetPosition(Position()); #endif //DEBUG - character_physics_support()->movement()->bSleep =false; - } - - if (Local() && g_Alive()) - { - if(character_physics_support()->movement()->gcontact_Was) - Cameras().AddCamEffector (xr_new (character_physics_support()->movement()->gcontact_Power)); - - if (!fis_zero(character_physics_support()->movement()->gcontact_HealthLost)) - { - VERIFY( character_physics_support() ); - VERIFY( character_physics_support()->movement() ); - ICollisionDamageInfo* di=character_physics_support()->movement()->CollisionDamageInfo(); - VERIFY( di ); - bool b_hit_initiated = di->GetAndResetInitiated(); - Fvector hdir;di->HitDir(hdir); - SetHitInfo(this, NULL, 0, Fvector().set(0, 0, 0), hdir); - // Hit (m_PhysicMovementControl->gcontact_HealthLost,hdir,di->DamageInitiator(),m_PhysicMovementControl->ContactBone(),di->HitPos(),0.f,ALife::eHitTypeStrike);//s16(6 + 2*::Random.randI(0,2)) - if (Level().CurrentControlEntity() == this) - { - - SHit HDS = SHit(character_physics_support()->movement()->gcontact_HealthLost, -//. 0.0f, - hdir, - di->DamageInitiator(), - character_physics_support()->movement()->ContactBone(), - di->HitPos(), - 0.f, - di->HitType(), - 0.0f, - b_hit_initiated); -// Hit(&HDS); - - NET_Packet l_P; - HDS.GenHeader(GE_HIT, ID()); - HDS.whoID = di->DamageInitiator()->ID(); - HDS.weaponID = di->DamageInitiator()->ID(); - HDS.Write_Packet(l_P); - - u_EventSend (l_P); - } - } - } + character_physics_support()->movement()->bSleep = false; + } + + if (Local() && g_Alive()) + { + if (character_physics_support()->movement()->gcontact_Was) + Cameras().AddCamEffector(xr_new(character_physics_support()->movement()->gcontact_Power)); + + if (!fis_zero(character_physics_support()->movement()->gcontact_HealthLost)) + { + VERIFY(character_physics_support()); + VERIFY(character_physics_support()->movement()); + ICollisionDamageInfo* di = character_physics_support()->movement()->CollisionDamageInfo(); + VERIFY(di); + bool b_hit_initiated = di->GetAndResetInitiated(); + Fvector hdir; di->HitDir(hdir); + SetHitInfo(this, NULL, 0, Fvector().set(0, 0, 0), hdir); + // Hit (m_PhysicMovementControl->gcontact_HealthLost,hdir,di->DamageInitiator(),m_PhysicMovementControl->ContactBone(),di->HitPos(),0.f,ALife::eHitTypeStrike);//s16(6 + 2*::Random.randI(0,2)) + if (Level().CurrentControlEntity() == this) + { + + SHit HDS = SHit(character_physics_support()->movement()->gcontact_HealthLost, + //. 0.0f, + hdir, + di->DamageInitiator(), + character_physics_support()->movement()->ContactBone(), + di->HitPos(), + 0.f, + di->HitType(), + 0.0f, + b_hit_initiated); + // Hit(&HDS); + + NET_Packet l_P; + HDS.GenHeader(GE_HIT, ID()); + HDS.whoID = di->DamageInitiator()->ID(); + HDS.weaponID = di->DamageInitiator()->ID(); + HDS.Write_Packet(l_P); + + u_EventSend(l_P); + } + } + } } float g_fov = 55.0f; float CActor::currentFOV() { - if (!psHUD_Flags.is(HUD_WEAPON|HUD_WEAPON_RT|HUD_WEAPON_RT2)) - return g_fov; - - CWeapon* pWeapon = smart_cast(inventory().ActiveItem()); - - if (eacFirstEye == cam_active && pWeapon && - pWeapon->IsZoomed() && - ( !pWeapon->ZoomTexture() || (!pWeapon->IsRotatingToZoom() && pWeapon->ZoomTexture()) ) - ) - { - return pWeapon->GetZoomFactor() * (0.75f); - }else - { - return g_fov; - } + if (!psHUD_Flags.is(HUD_WEAPON | HUD_WEAPON_RT | HUD_WEAPON_RT2)) + return g_fov; + + CWeapon* pWeapon = smart_cast(inventory().ActiveItem()); + + if (eacFirstEye == cam_active && pWeapon && + pWeapon->IsZoomed() && + (!pWeapon->ZoomTexture() || (!pWeapon->IsRotatingToZoom() && pWeapon->ZoomTexture())) + ) + { + return pWeapon->GetZoomFactor() * (0.75f); + } + else + { + return g_fov; + } } -void CActor::UpdateCL () +void CActor::UpdateCL() { - if(g_Alive() && Level().CurrentViewEntity() == this) - { - if(CurrentGameUI() && NULL==CurrentGameUI()->TopInputReceiver()) - { - int dik = get_action_dik(kUSE, 0); - if(dik && pInput->iGetAsyncKeyState(dik)) - m_bPickupMode=true; - - dik = get_action_dik(kUSE, 1); - if(dik && pInput->iGetAsyncKeyState(dik)) - m_bPickupMode=true; - } - } - - UpdateInventoryOwner (Device.dwTimeDelta); - - if(m_feel_touch_characters>0) - { - for(xr_vector::iterator it = feel_touch.begin(); it != feel_touch.end(); it++) - { - CPhysicsShellHolder *sh = smart_cast(*it); - if(sh&&sh->character_physics_support()) - { - sh->character_physics_support()->movement()->UpdateObjectBox(character_physics_support()->movement()->PHCharacter()); - } - } - } - if(m_holder) - m_holder->UpdateEx( currentFOV() ); - - m_snd_noise -= 0.3f*Device.fTimeDelta; - - inherited::UpdateCL (); - m_pPhysics_support->in_UpdateCL (); - - - if (g_Alive()) - PickupModeUpdate (); - - PickupModeUpdate_COD(); - - SetZoomAimingMode (false); - CWeapon* pWeapon = smart_cast(inventory().ActiveItem()); - - cam_Update(float(Device.dwTimeDelta)/1000.0f, currentFOV()); - - if(Level().CurrentEntity() && this->ID()==Level().CurrentEntity()->ID() ) - { - psHUD_Flags.set( HUD_CROSSHAIR_RT2, true ); - psHUD_Flags.set( HUD_DRAW_RT, true ); - } - if(pWeapon ) - { - if(pWeapon->IsZoomed()) - { - float full_fire_disp = pWeapon->GetFireDispersion(true); - - CEffectorZoomInertion* S = smart_cast (Cameras().GetCamEffector(eCEZoom)); - if(S) - S->SetParams(full_fire_disp); - - SetZoomAimingMode (true); - } - - if(Level().CurrentEntity() && this->ID()==Level().CurrentEntity()->ID() ) - { - float fire_disp_full = pWeapon->GetFireDispersion(true, true); - m_fdisp_controller.SetDispertion(fire_disp_full); - - fire_disp_full = m_fdisp_controller.GetCurrentDispertion(); - - HUD().SetCrosshairDisp(fire_disp_full, 0.02f); - HUD().ShowCrosshair(pWeapon->use_crosshair()); + if (g_Alive() && Level().CurrentViewEntity() == this) + { + if (CurrentGameUI() && NULL == CurrentGameUI()->TopInputReceiver()) + { + int dik = get_action_dik(kUSE, 0); + if (dik && pInput->iGetAsyncKeyState(dik)) + m_bPickupMode = true; + + dik = get_action_dik(kUSE, 1); + if (dik && pInput->iGetAsyncKeyState(dik)) + m_bPickupMode = true; + } + } + + UpdateInventoryOwner(Device.dwTimeDelta); + + if (m_feel_touch_characters > 0) + { + for (xr_vector::iterator it = feel_touch.begin(); it != feel_touch.end(); it++) + { + CPhysicsShellHolder *sh = smart_cast(*it); + if (sh&&sh->character_physics_support()) + { + sh->character_physics_support()->movement()->UpdateObjectBox(character_physics_support()->movement()->PHCharacter()); + } + } + } + if (m_holder) + m_holder->UpdateEx(currentFOV()); + + m_snd_noise -= 0.3f*Device.fTimeDelta; + + inherited::UpdateCL(); + m_pPhysics_support->in_UpdateCL(); + + + if (g_Alive()) + PickupModeUpdate(); + + PickupModeUpdate_COD(); + + SetZoomAimingMode(false); + CWeapon* pWeapon = smart_cast(inventory().ActiveItem()); + + cam_Update(float(Device.dwTimeDelta) / 1000.0f, currentFOV()); + + if (Level().CurrentEntity() && this->ID() == Level().CurrentEntity()->ID()) + { + psHUD_Flags.set(HUD_CROSSHAIR_RT2, true); + psHUD_Flags.set(HUD_DRAW_RT, true); + } + if (pWeapon) + { + if (pWeapon->IsZoomed()) + { + float full_fire_disp = pWeapon->GetFireDispersion(true); + + CEffectorZoomInertion* S = smart_cast (Cameras().GetCamEffector(eCEZoom)); + if (S) + S->SetParams(full_fire_disp); + + SetZoomAimingMode(true); + } + + if (Level().CurrentEntity() && this->ID() == Level().CurrentEntity()->ID()) + { + float fire_disp_full = pWeapon->GetFireDispersion(true, true); + m_fdisp_controller.SetDispertion(fire_disp_full); + + fire_disp_full = m_fdisp_controller.GetCurrentDispertion(); + + HUD().SetCrosshairDisp(fire_disp_full, 0.02f); + HUD().ShowCrosshair(pWeapon->use_crosshair()); #ifdef DEBUG - HUD().SetFirstBulletCrosshairDisp(pWeapon->GetFirstBulletDisp()); + HUD().SetFirstBulletCrosshairDisp(pWeapon->GetFirstBulletDisp()); #endif - - BOOL B = ! ((mstate_real & mcLookout) && !IsGameTypeSingle()); - - psHUD_Flags.set( HUD_WEAPON_RT, B ); - - B = B && pWeapon->show_crosshair(); - - psHUD_Flags.set( HUD_CROSSHAIR_RT2, B ); - - - - psHUD_Flags.set( HUD_DRAW_RT, pWeapon->show_indicators() ); - } - - } - else - { - if(Level().CurrentEntity() && this->ID()==Level().CurrentEntity()->ID() ) - { - HUD().SetCrosshairDisp(0.f); - HUD().ShowCrosshair(false); - } - } - - UpdateDefferedMessages(); - - if (g_Alive()) - CStepManager::update(this==Level().CurrentViewEntity()); - - spatial.type |=STYPE_REACTTOSOUND; - - if(m_sndShockEffector) - { - if (this == Level().CurrentViewEntity()) - { - m_sndShockEffector->Update(); - - if(!m_sndShockEffector->InWork() || !g_Alive()) - xr_delete(m_sndShockEffector); - } - else - xr_delete(m_sndShockEffector); - } - Fmatrix trans; - if(cam_Active() == cam_FirstEye()) - { - Cameras().hud_camera_Matrix (trans); - }else - Cameras().camera_Matrix (trans); - - if(IsFocused()) - g_player_hud->update (trans); - - m_bPickupMode=false; + + BOOL B = !((mstate_real & mcLookout) && !IsGameTypeSingle()); + + psHUD_Flags.set(HUD_WEAPON_RT, B); + + B = B && pWeapon->show_crosshair(); + + psHUD_Flags.set(HUD_CROSSHAIR_RT2, B); + + + + psHUD_Flags.set(HUD_DRAW_RT, pWeapon->show_indicators()); + } + + } + else + { + if (Level().CurrentEntity() && this->ID() == Level().CurrentEntity()->ID()) + { + HUD().SetCrosshairDisp(0.f); + HUD().ShowCrosshair(false); + } + } + + UpdateDefferedMessages(); + + if (g_Alive()) + CStepManager::update(this == Level().CurrentViewEntity()); + + spatial.type |= STYPE_REACTTOSOUND; + + if (m_sndShockEffector) + { + if (this == Level().CurrentViewEntity()) + { + m_sndShockEffector->Update(); + + if (!m_sndShockEffector->InWork() || !g_Alive()) + xr_delete(m_sndShockEffector); + } + else + xr_delete(m_sndShockEffector); + } + Fmatrix trans; + if (cam_Active() == cam_FirstEye()) + { + Cameras().hud_camera_Matrix(trans); + } + else + Cameras().camera_Matrix(trans); + + if (IsFocused()) + g_player_hud->update(trans); + + m_bPickupMode = false; } float NET_Jump = 0; void CActor::set_state_box(u32 mstate) { - if ( mstate & mcCrouch) - { - if (isActorAccelerated(mstate_real, IsZoomAimingMode())) - character_physics_support()->movement()->ActivateBox(1, true); - else - character_physics_support()->movement()->ActivateBox(2, true); - } - else - character_physics_support()->movement()->ActivateBox(0, true); + if (mstate & mcCrouch) + { + if (isActorAccelerated(mstate_real, IsZoomAimingMode())) + character_physics_support()->movement()->ActivateBox(1, true); + else + character_physics_support()->movement()->ActivateBox(2, true); + } + else + character_physics_support()->movement()->ActivateBox(0, true); } -void CActor::shedule_Update (u32 DT) +void CActor::shedule_Update(u32 DT) { - setSVU (OnServer()); -//. UpdateInventoryOwner (DT); - - if(IsFocused()) - { - BOOL bHudView = HUDview(); - if(bHudView) - { - CInventoryItem* pInvItem = inventory().ActiveItem(); - if( pInvItem ) - { - CHudItem* pHudItem = smart_cast(pInvItem); - if(pHudItem) - { - if( pHudItem->IsHidden() ) - { - g_player_hud->detach_item (pHudItem); - } - else - { - g_player_hud->attach_item (pHudItem); - } - } - }else - { - g_player_hud->detach_item_idx ( 0 ); - //Msg("---No active item in inventory(), item 0 detached."); - } - } - else - { - g_player_hud->detach_all_items(); - //Msg("---No hud view found, all items detached."); - } - - } - - if(m_holder || !getEnabled() || !Ready()) - { - m_sDefaultObjAction = NULL; - inherited::shedule_Update (DT); - return; - } - - clamp (DT,0u,100u); - float dt = float(DT)/1000.f; - - // Check controls, create accel, prelimitary setup "mstate_real" - - //----------- for E3 ----------------------------- -// if (Local() && (OnClient() || Level().CurrentEntity()==this)) - if (Level().CurrentControlEntity() == this && !Level().IsDemoPlay()) - //------------------------------------------------ - { - g_cl_CheckControls (mstate_wishful,NET_SavedAccel,NET_Jump,dt); - { - /* - if (mstate_real & mcJump) - { - NET_Packet P; - u_EventGen(P, GE_ACTOR_JUMPING, ID()); - P.w_sdir(NET_SavedAccel); - P.w_float(NET_Jump); - u_EventSend(P); - } - */ - } - g_cl_Orientate (mstate_real,dt); - g_Orientate (mstate_real,dt); - - g_Physics (NET_SavedAccel,NET_Jump,dt); - - g_cl_ValidateMState (dt,mstate_wishful); - g_SetAnimation (mstate_real); - - // Check for game-contacts - Fvector C; float R; - //m_PhysicMovementControl->GetBoundingSphere (C,R); - - Center( C ); - R = Radius(); - feel_touch_update( C, R ); - Feel_Grenade_Update( m_fFeelGrenadeRadius ); - - // Dropping - if (b_DropActivated) { - f_DropPower += dt*0.1f; - clamp (f_DropPower,0.f,1.f); - } else { - f_DropPower = 0.f; - } - if (!Level().IsDemoPlay()) - { - mstate_wishful &=~mcAccel; - mstate_wishful &=~mcLStrafe; - mstate_wishful &=~mcRStrafe; - mstate_wishful &=~mcLLookout; - mstate_wishful &=~mcRLookout; - mstate_wishful &=~mcFwd; - mstate_wishful &=~mcBack; - if( !psActorFlags.test(AF_CROUCH_TOGGLE) ) - mstate_wishful &=~mcCrouch; - } - } - else - { - make_Interpolation(); - - if (NET.size()) - { - -// NET_SavedAccel = NET_Last.p_accel; -// mstate_real = mstate_wishful = NET_Last.mstate; - - g_sv_Orientate (mstate_real,dt ); - g_Orientate (mstate_real,dt ); - g_Physics (NET_SavedAccel,NET_Jump,dt ); - if (!m_bInInterpolation) - g_cl_ValidateMState (dt,mstate_wishful); - g_SetAnimation (mstate_real); - - set_state_box(NET_Last.mstate); - - - } - mstate_old = mstate_real; - } -/* - if (this == Level().CurrentViewEntity()) - { - UpdateMotionIcon (mstate_real); - }; -*/ - NET_Jump = 0; - - - inherited::shedule_Update (DT); - - //эффектор включаемый при ходьбе - if (!pCamBobbing) - { - pCamBobbing = xr_new (); - Cameras().AddCamEffector (pCamBobbing); - } - pCamBobbing->SetState (mstate_real, conditions().IsLimping(), IsZoomAimingMode()); - - //звук тяжелого дыхания при уталости и хромании - if(this==Level().CurrentControlEntity() && !g_dedicated_server ) - { - if(conditions().IsLimping() && g_Alive() && !psActorFlags.test(AF_GODMODE_RT)){ - if(!m_HeavyBreathSnd._feedback()){ - m_HeavyBreathSnd.play_at_pos(this, Fvector().set(0,ACTOR_HEIGHT,0), sm_Looped | sm_2D); - }else{ - m_HeavyBreathSnd.set_position(Fvector().set(0,ACTOR_HEIGHT,0)); - } - }else if(m_HeavyBreathSnd._feedback()){ - m_HeavyBreathSnd.stop (); - } - - // ------------------------------- - float bs = conditions().BleedingSpeed(); - if(bs>0.6f) - { - Fvector snd_pos; - snd_pos.set(0,ACTOR_HEIGHT,0); - if(!m_BloodSnd._feedback()) - m_BloodSnd.play_at_pos(this, snd_pos, sm_Looped | sm_2D); - else - m_BloodSnd.set_position(snd_pos); - - float v = bs+0.25f; - - m_BloodSnd.set_volume (v); - }else{ - if(m_BloodSnd._feedback()) - m_BloodSnd.stop(); - } - - if(!g_Alive()&&m_BloodSnd._feedback()) - m_BloodSnd.stop(); - // ------------------------------- - bs = conditions().GetZoneDanger(); - if ( bs > 0.1f ) - { - Fvector snd_pos; - snd_pos.set(0,ACTOR_HEIGHT,0); - if(!m_DangerSnd._feedback()) - m_DangerSnd.play_at_pos(this, snd_pos, sm_Looped | sm_2D); - else - m_DangerSnd.set_position(snd_pos); - - float v = bs+0.25f; -// Msg( "bs = %.2f", bs ); - - m_DangerSnd.set_volume (v); - } - else - { - if(m_DangerSnd._feedback()) - m_DangerSnd.stop(); - } - - if(!g_Alive()&&m_DangerSnd._feedback()) - m_DangerSnd.stop(); - } - - //если в режиме HUD, то сама модель актера не рисуется - if(!character_physics_support()->IsRemoved()) - setVisible (!HUDview ()); - - //что актер видит перед собой - collide::rq_result& RQ = HUD().GetCurrentRayQuery(); - - - if(!input_external_handler_installed() && RQ.O && RQ.O->getVisible() && RQ.range<2.0f) - { - m_pObjectWeLookingAt = smart_cast(RQ.O); - - CGameObject *game_object = smart_cast(RQ.O); - m_pUsableObject = smart_cast(game_object); - m_pInvBoxWeLookingAt = smart_cast(game_object); - m_pPersonWeLookingAt = smart_cast(game_object); - m_pVehicleWeLookingAt = smart_cast(game_object); - CEntityAlive* pEntityAlive = smart_cast(game_object); - - if ( GameID() == eGameIDSingle ) - { - if (m_pUsableObject && m_pUsableObject->tip_text()) - { - m_sDefaultObjAction = CStringTable().translate( m_pUsableObject->tip_text() ); - } - else - { - if (m_pPersonWeLookingAt && pEntityAlive->g_Alive() && m_pPersonWeLookingAt->IsTalkEnabled()) - { - m_sDefaultObjAction = m_sCharacterUseAction; - } - else if ( pEntityAlive && !pEntityAlive->g_Alive() ) - { - if ( m_pPersonWeLookingAt && m_pPersonWeLookingAt->deadbody_closed_status() ) - { - m_sDefaultObjAction = m_sDeadCharacterDontUseAction; - } - else - { - bool b_allow_drag = !!pSettings->line_exist("ph_capture_visuals",pEntityAlive->cNameVisual()); - if ( b_allow_drag ) - { - m_sDefaultObjAction = m_sDeadCharacterUseOrDragAction; - } - else if ( pEntityAlive->cast_inventory_owner() ) - { - m_sDefaultObjAction = m_sDeadCharacterUseAction; - } - } // m_pPersonWeLookingAt - } - else if (m_pVehicleWeLookingAt) - { - m_sDefaultObjAction = m_sCarCharacterUseAction; - } - else if ( m_pObjectWeLookingAt && - m_pObjectWeLookingAt->cast_inventory_item() && - m_pObjectWeLookingAt->cast_inventory_item()->CanTake() ) - { - m_sDefaultObjAction = m_sInventoryItemUseAction; - } - else - { - m_sDefaultObjAction = NULL; - } - } - } - } - else - { - m_pPersonWeLookingAt = NULL; - m_sDefaultObjAction = NULL; - m_pUsableObject = NULL; - m_pObjectWeLookingAt = NULL; - m_pVehicleWeLookingAt = NULL; - m_pInvBoxWeLookingAt = NULL; - } - -// UpdateSleep (); - - //для свойст артефактов, находящихся на поясе - UpdateArtefactsOnBeltAndOutfit (); - m_pPhysics_support->in_shedule_Update (DT); - Check_for_AutoPickUp (); + setSVU(OnServer()); + //. UpdateInventoryOwner (DT); + + if (IsFocused()) + { + BOOL bHudView = HUDview(); + if (bHudView) + { + CInventoryItem* pInvItem = inventory().ActiveItem(); + if (pInvItem) + { + CHudItem* pHudItem = smart_cast(pInvItem); + if (pHudItem) + { + if (pHudItem->IsHidden()) + { + g_player_hud->detach_item(pHudItem); + } + else + { + g_player_hud->attach_item(pHudItem); + } + } + } + else + { + g_player_hud->detach_item_idx(0); + //Msg("---No active item in inventory(), item 0 detached."); + } + } + else + { + g_player_hud->detach_all_items(); + //Msg("---No hud view found, all items detached."); + } + + } + + if (m_holder || !getEnabled() || !Ready()) + { + m_sDefaultObjAction = NULL; + inherited::shedule_Update(DT); + return; + } + + clamp(DT, 0u, 100u); + float dt = float(DT) / 1000.f; + + // Check controls, create accel, prelimitary setup "mstate_real" + + //----------- for E3 ----------------------------- + // if (Local() && (OnClient() || Level().CurrentEntity()==this)) + if (Level().CurrentControlEntity() == this && !Level().IsDemoPlay()) + //------------------------------------------------ + { + g_cl_CheckControls(mstate_wishful, NET_SavedAccel, NET_Jump, dt); + { + /* + if (mstate_real & mcJump) + { + NET_Packet P; + u_EventGen(P, GE_ACTOR_JUMPING, ID()); + P.w_sdir(NET_SavedAccel); + P.w_float(NET_Jump); + u_EventSend(P); + } + */ + } + g_cl_Orientate(mstate_real, dt); + g_Orientate(mstate_real, dt); + + g_Physics(NET_SavedAccel, NET_Jump, dt); + + g_cl_ValidateMState(dt, mstate_wishful); + g_SetAnimation(mstate_real); + + // Check for game-contacts + Fvector C; float R; + //m_PhysicMovementControl->GetBoundingSphere (C,R); + + Center(C); + R = Radius(); + feel_touch_update(C, R); + Feel_Grenade_Update(m_fFeelGrenadeRadius); + + // Dropping + if (b_DropActivated) + { + f_DropPower += dt*0.1f; + clamp(f_DropPower, 0.f, 1.f); + } + else + { + f_DropPower = 0.f; + } + if (!Level().IsDemoPlay()) + { + mstate_wishful &= ~mcAccel; + mstate_wishful &= ~mcLStrafe; + mstate_wishful &= ~mcRStrafe; + mstate_wishful &= ~mcLLookout; + mstate_wishful &= ~mcRLookout; + mstate_wishful &= ~mcFwd; + mstate_wishful &= ~mcBack; + if (!psActorFlags.test(AF_CROUCH_TOGGLE)) + mstate_wishful &= ~mcCrouch; + } + } + else + { + make_Interpolation(); + + if (NET.size()) + { + + // NET_SavedAccel = NET_Last.p_accel; + // mstate_real = mstate_wishful = NET_Last.mstate; + + g_sv_Orientate(mstate_real, dt); + g_Orientate(mstate_real, dt); + g_Physics(NET_SavedAccel, NET_Jump, dt); + if (!m_bInInterpolation) + g_cl_ValidateMState(dt, mstate_wishful); + g_SetAnimation(mstate_real); + + set_state_box(NET_Last.mstate); + + + } + mstate_old = mstate_real; + } + /* + if (this == Level().CurrentViewEntity()) + { + UpdateMotionIcon (mstate_real); + }; + */ + NET_Jump = 0; + + + inherited::shedule_Update(DT); + + //эффектор включаемый при ходьбе + if (!pCamBobbing) + { + pCamBobbing = xr_new(); + Cameras().AddCamEffector(pCamBobbing); + } + pCamBobbing->SetState(mstate_real, conditions().IsLimping(), IsZoomAimingMode()); + + //звук тяжелого дыхания при уталости и хромании + if (this == Level().CurrentControlEntity() && !g_dedicated_server) + { + if (conditions().IsLimping() && g_Alive() && !psActorFlags.test(AF_GODMODE_RT)) + { + if (!m_HeavyBreathSnd._feedback()) + { + m_HeavyBreathSnd.play_at_pos(this, Fvector().set(0, ACTOR_HEIGHT, 0), sm_Looped | sm_2D); + } + else + { + m_HeavyBreathSnd.set_position(Fvector().set(0, ACTOR_HEIGHT, 0)); + } + } + else if (m_HeavyBreathSnd._feedback()) + { + m_HeavyBreathSnd.stop(); + } + + // ------------------------------- + float bs = conditions().BleedingSpeed(); + if (bs > 0.6f) + { + Fvector snd_pos; + snd_pos.set(0, ACTOR_HEIGHT, 0); + if (!m_BloodSnd._feedback()) + m_BloodSnd.play_at_pos(this, snd_pos, sm_Looped | sm_2D); + else + m_BloodSnd.set_position(snd_pos); + + float v = bs + 0.25f; + + m_BloodSnd.set_volume(v); + } + else + { + if (m_BloodSnd._feedback()) + m_BloodSnd.stop(); + } + + if (!g_Alive() && m_BloodSnd._feedback()) + m_BloodSnd.stop(); + // ------------------------------- + bs = conditions().GetZoneDanger(); + if (bs > 0.1f) + { + Fvector snd_pos; + snd_pos.set(0, ACTOR_HEIGHT, 0); + if (!m_DangerSnd._feedback()) + m_DangerSnd.play_at_pos(this, snd_pos, sm_Looped | sm_2D); + else + m_DangerSnd.set_position(snd_pos); + + float v = bs + 0.25f; + // Msg( "bs = %.2f", bs ); + + m_DangerSnd.set_volume(v); + } + else + { + if (m_DangerSnd._feedback()) + m_DangerSnd.stop(); + } + + if (!g_Alive() && m_DangerSnd._feedback()) + m_DangerSnd.stop(); + } + + //если в режиме HUD, то сама модель актера не рисуется + if (!character_physics_support()->IsRemoved()) + setVisible(!HUDview()); + + //что актер видит перед собой + collide::rq_result& RQ = HUD().GetCurrentRayQuery(); + + + if (!input_external_handler_installed() && RQ.O && RQ.O->getVisible() && RQ.range < 2.0f) + { + m_pObjectWeLookingAt = smart_cast(RQ.O); + + CGameObject *game_object = smart_cast(RQ.O); + m_pUsableObject = smart_cast(game_object); + m_pInvBoxWeLookingAt = smart_cast(game_object); + m_pPersonWeLookingAt = smart_cast(game_object); + m_pVehicleWeLookingAt = smart_cast(game_object); + CEntityAlive* pEntityAlive = smart_cast(game_object); + + if (GameID() == eGameIDSingle) + { + if (m_pUsableObject && m_pUsableObject->tip_text()) + { + m_sDefaultObjAction = CStringTable().translate(m_pUsableObject->tip_text()); + } + else + { + if (m_pPersonWeLookingAt && pEntityAlive->g_Alive() && m_pPersonWeLookingAt->IsTalkEnabled()) + { + m_sDefaultObjAction = m_sCharacterUseAction; + } + else if (pEntityAlive && !pEntityAlive->g_Alive()) + { + if (m_pPersonWeLookingAt && m_pPersonWeLookingAt->deadbody_closed_status()) + { + m_sDefaultObjAction = m_sDeadCharacterDontUseAction; + } + else + { + bool b_allow_drag = !!pSettings->line_exist("ph_capture_visuals", pEntityAlive->cNameVisual()); + if (b_allow_drag) + { + m_sDefaultObjAction = m_sDeadCharacterUseOrDragAction; + } + else if (pEntityAlive->cast_inventory_owner()) + { + m_sDefaultObjAction = m_sDeadCharacterUseAction; + } + } // m_pPersonWeLookingAt + } + else if (m_pVehicleWeLookingAt) + { + m_sDefaultObjAction = m_sCarCharacterUseAction; + } + else if (m_pObjectWeLookingAt && + m_pObjectWeLookingAt->cast_inventory_item() && + m_pObjectWeLookingAt->cast_inventory_item()->CanTake()) + { + m_sDefaultObjAction = m_sInventoryItemUseAction; + } + else + { + m_sDefaultObjAction = NULL; + } + } + } + } + else + { + m_pPersonWeLookingAt = NULL; + m_sDefaultObjAction = NULL; + m_pUsableObject = NULL; + m_pObjectWeLookingAt = NULL; + m_pVehicleWeLookingAt = NULL; + m_pInvBoxWeLookingAt = NULL; + } + + // UpdateSleep (); + + //для свойст артефактов, находящихся на поясе + UpdateArtefactsOnBeltAndOutfit(); + m_pPhysics_support->in_shedule_Update(DT); + Check_for_AutoPickUp(); }; #include "debug_renderer.h" -void CActor::renderable_Render () +void CActor::renderable_Render() { - VERIFY(_valid(XFORM())); - inherited::renderable_Render (); - if(1/*!HUDview()*/) - { - CInventoryOwner::renderable_Render (); - } - VERIFY(_valid(XFORM())); + VERIFY(_valid(XFORM())); + inherited::renderable_Render(); + if (1/*!HUDview()*/) + { + CInventoryOwner::renderable_Render(); + } + VERIFY(_valid(XFORM())); } -BOOL CActor::renderable_ShadowGenerate () +BOOL CActor::renderable_ShadowGenerate() { - if(m_holder) - return FALSE; - - return inherited::renderable_ShadowGenerate(); + if (m_holder) + return FALSE; + + return inherited::renderable_ShadowGenerate(); } -void CActor::g_PerformDrop ( ) +void CActor::g_PerformDrop() { - b_DropActivated = FALSE; + b_DropActivated = FALSE; - PIItem pItem = inventory().ActiveItem(); - if (0==pItem) return; + PIItem pItem = inventory().ActiveItem(); + if (0 == pItem) return; - if(pItem->IsQuestItem()) return; + if (pItem->IsQuestItem()) return; - u16 s = inventory().GetActiveSlot(); - if(inventory().SlotIsPersistent(s)) return; + u16 s = inventory().GetActiveSlot(); + if (inventory().SlotIsPersistent(s)) return; - pItem->SetDropManual (TRUE); + pItem->SetDropManual(TRUE); } bool CActor::use_default_throw_force() { - if (!g_Alive()) - return false; - - return true; + if (!g_Alive()) + return false; + + return true; } float CActor::missile_throw_force() { - return 0.f; + return 0.f; } #ifdef DEBUG @@ -1425,638 +1477,639 @@ extern BOOL g_ShowAnimationInfo ; #endif // DEBUG // HUD -void CActor::OnHUDDraw (CCustomHUD*) +void CActor::OnHUDDraw(CCustomHUD*) { - R_ASSERT (IsFocused()); - if(! ( (mstate_real & mcLookout) && !IsGameTypeSingle() ) ) - g_player_hud->render_hud (); + R_ASSERT(IsFocused()); + if (!((mstate_real & mcLookout) && !IsGameTypeSingle())) + g_player_hud->render_hud(); #if 0//ndef NDEBUG - if (Level().CurrentControlEntity() == this && g_ShowAnimationInfo) - { - string128 buf; - UI().Font().pFontStat->SetColor (0xffffffff); - UI().Font().pFontStat->OutSet (170,530); - UI().Font().pFontStat->OutNext ("Position: [%3.2f, %3.2f, %3.2f]",VPUSH(Position())); - UI().Font().pFontStat->OutNext ("Velocity: [%3.2f, %3.2f, %3.2f]",VPUSH(m_PhysicMovementControl->GetVelocity())); - UI().Font().pFontStat->OutNext ("Vel Magnitude: [%3.2f]",m_PhysicMovementControl->GetVelocityMagnitude()); - UI().Font().pFontStat->OutNext ("Vel Actual: [%3.2f]",m_PhysicMovementControl->GetVelocityActual()); - switch (m_PhysicMovementControl->Environment()) - { - case CPHMovementControl::peOnGround: xr_strcpy(buf,"ground"); break; - case CPHMovementControl::peInAir: xr_strcpy(buf,"air"); break; - case CPHMovementControl::peAtWall: xr_strcpy(buf,"wall"); break; - } - UI().Font().pFontStat->OutNext (buf); - - if (IReceived != 0) - { - float Size = 0; - Size = UI().Font().pFontStat->GetSize(); - UI().Font().pFontStat->SetSize(Size*2); - UI().Font().pFontStat->SetColor (0xffff0000); - UI().Font().pFontStat->OutNext ("Input : [%3.2f]", ICoincidenced/IReceived * 100.0f); - UI().Font().pFontStat->SetSize(Size); - }; - }; + if (Level().CurrentControlEntity() == this && g_ShowAnimationInfo) + { + string128 buf; + UI().Font().pFontStat->SetColor (0xffffffff); + UI().Font().pFontStat->OutSet (170,530); + UI().Font().pFontStat->OutNext ("Position: [%3.2f, %3.2f, %3.2f]",VPUSH(Position())); + UI().Font().pFontStat->OutNext ("Velocity: [%3.2f, %3.2f, %3.2f]",VPUSH(m_PhysicMovementControl->GetVelocity())); + UI().Font().pFontStat->OutNext ("Vel Magnitude: [%3.2f]",m_PhysicMovementControl->GetVelocityMagnitude()); + UI().Font().pFontStat->OutNext ("Vel Actual: [%3.2f]",m_PhysicMovementControl->GetVelocityActual()); + switch (m_PhysicMovementControl->Environment()) + { + case CPHMovementControl::peOnGround: xr_strcpy(buf,"ground"); break; + case CPHMovementControl::peInAir: xr_strcpy(buf,"air"); break; + case CPHMovementControl::peAtWall: xr_strcpy(buf,"wall"); break; + } + UI().Font().pFontStat->OutNext (buf); + + if (IReceived != 0) + { + float Size = 0; + Size = UI().Font().pFontStat->GetSize(); + UI().Font().pFontStat->SetSize(Size*2); + UI().Font().pFontStat->SetColor (0xffff0000); + UI().Font().pFontStat->OutNext ("Input : [%3.2f]", ICoincidenced/IReceived * 100.0f); + UI().Font().pFontStat->SetSize(Size); + }; + }; #endif } -void CActor::RenderIndicator (Fvector dpos, float r1, float r2, const ui_shader &IndShader) +void CActor::RenderIndicator(Fvector dpos, float r1, float r2, const ui_shader &IndShader) { - if (!g_Alive()) return; - - - UIRender->StartPrimitive(4, IUIRender::ptTriStrip, IUIRender::pttLIT); - - CBoneInstance& BI = smart_cast(Visual())->LL_GetBoneInstance(u16(m_head)); - Fmatrix M; - smart_cast(Visual())->CalculateBones (); - M.mul (XFORM(),BI.mTransform); - - Fvector pos = M.c; pos.add(dpos); - const Fvector& T = Device.vCameraTop; - const Fvector& R = Device.vCameraRight; - Fvector Vr, Vt; - Vr.x = R.x*r1; - Vr.y = R.y*r1; - Vr.z = R.z*r1; - Vt.x = T.x*r2; - Vt.y = T.y*r2; - Vt.z = T.z*r2; - - Fvector a,b,c,d; - a.sub (Vt,Vr); - b.add (Vt,Vr); - c.invert (a); - d.invert (b); - - UIRender->PushPoint(d.x+pos.x,d.y+pos.y,d.z+pos.z, 0xffffffff, 0.f,1.f); - UIRender->PushPoint(a.x+pos.x,a.y+pos.y,a.z+pos.z, 0xffffffff, 0.f,0.f); - UIRender->PushPoint(c.x+pos.x,c.y+pos.y,c.z+pos.z, 0xffffffff, 1.f,1.f); - UIRender->PushPoint(b.x+pos.x,b.y+pos.y,b.z+pos.z, 0xffffffff, 1.f,0.f); - //pv->set (d.x+pos.x,d.y+pos.y,d.z+pos.z, 0xffffffff, 0.f,1.f); pv++; - //pv->set (a.x+pos.x,a.y+pos.y,a.z+pos.z, 0xffffffff, 0.f,0.f); pv++; - //pv->set (c.x+pos.x,c.y+pos.y,c.z+pos.z, 0xffffffff, 1.f,1.f); pv++; - //pv->set (b.x+pos.x,b.y+pos.y,b.z+pos.z, 0xffffffff, 1.f,0.f); pv++; - // render - //dwCount = u32(pv-pv_start); - //RCache.Vertex.Unlock (dwCount,hFriendlyIndicator->vb_stride); - - UIRender->CacheSetXformWorld(Fidentity); - //RCache.set_xform_world (Fidentity); - UIRender->SetShader(*IndShader); - //RCache.set_Shader (IndShader); - //RCache.set_Geometry (hFriendlyIndicator); - //RCache.Render (D3DPT_TRIANGLESTRIP,dwOffset,0, dwCount, 0, 2); - UIRender->FlushPrimitive(); + if (!g_Alive()) return; + + + UIRender->StartPrimitive(4, IUIRender::ptTriStrip, IUIRender::pttLIT); + + CBoneInstance& BI = smart_cast(Visual())->LL_GetBoneInstance(u16(m_head)); + Fmatrix M; + smart_cast(Visual())->CalculateBones(); + M.mul(XFORM(), BI.mTransform); + + Fvector pos = M.c; pos.add(dpos); + const Fvector& T = Device.vCameraTop; + const Fvector& R = Device.vCameraRight; + Fvector Vr, Vt; + Vr.x = R.x*r1; + Vr.y = R.y*r1; + Vr.z = R.z*r1; + Vt.x = T.x*r2; + Vt.y = T.y*r2; + Vt.z = T.z*r2; + + Fvector a, b, c, d; + a.sub(Vt, Vr); + b.add(Vt, Vr); + c.invert(a); + d.invert(b); + + UIRender->PushPoint(d.x + pos.x, d.y + pos.y, d.z + pos.z, 0xffffffff, 0.f, 1.f); + UIRender->PushPoint(a.x + pos.x, a.y + pos.y, a.z + pos.z, 0xffffffff, 0.f, 0.f); + UIRender->PushPoint(c.x + pos.x, c.y + pos.y, c.z + pos.z, 0xffffffff, 1.f, 1.f); + UIRender->PushPoint(b.x + pos.x, b.y + pos.y, b.z + pos.z, 0xffffffff, 1.f, 0.f); + //pv->set (d.x+pos.x,d.y+pos.y,d.z+pos.z, 0xffffffff, 0.f,1.f); pv++; + //pv->set (a.x+pos.x,a.y+pos.y,a.z+pos.z, 0xffffffff, 0.f,0.f); pv++; + //pv->set (c.x+pos.x,c.y+pos.y,c.z+pos.z, 0xffffffff, 1.f,1.f); pv++; + //pv->set (b.x+pos.x,b.y+pos.y,b.z+pos.z, 0xffffffff, 1.f,0.f); pv++; + // render + //dwCount = u32(pv-pv_start); + //RCache.Vertex.Unlock (dwCount,hFriendlyIndicator->vb_stride); + + UIRender->CacheSetXformWorld(Fidentity); + //RCache.set_xform_world (Fidentity); + UIRender->SetShader(*IndShader); + //RCache.set_Shader (IndShader); + //RCache.set_Geometry (hFriendlyIndicator); + //RCache.Render (D3DPT_TRIANGLESTRIP,dwOffset,0, dwCount, 0, 2); + UIRender->FlushPrimitive(); }; static float mid_size = 0.097f; static float fontsize = 15.0f; -static float upsize = 0.33f; -void CActor::RenderText (LPCSTR Text, Fvector dpos, float* pdup, u32 color) +static float upsize = 0.33f; +void CActor::RenderText(LPCSTR Text, Fvector dpos, float* pdup, u32 color) { - if (!g_Alive()) return; - - CBoneInstance& BI = smart_cast(Visual())->LL_GetBoneInstance(u16(m_head)); - Fmatrix M; - smart_cast(Visual())->CalculateBones (); - M.mul (XFORM(),BI.mTransform); - //------------------------------------------------ - Fvector v0, v1; - v0.set(M.c); v1.set(M.c); - Fvector T = Device.vCameraTop; - v1.add(T); - - Fvector v0r, v1r; - Device.mFullTransform.transform(v0r,v0); - Device.mFullTransform.transform(v1r,v1); - float size = v1r.distance_to(v0r); - CGameFont* pFont = UI().Font().pFontArial14; - if (!pFont) return; -// float OldFontSize = pFont->GetHeight (); - float delta_up = 0.0f; - if (size < mid_size) delta_up = upsize; - else delta_up = upsize*(mid_size/size); - dpos.y += delta_up; - if (size > mid_size) size = mid_size; -// float NewFontSize = size/mid_size * fontsize; - //------------------------------------------------ - M.c.y += dpos.y; - - Fvector4 v_res; - Device.mFullTransform.transform(v_res,M.c); - - if (v_res.z < 0 || v_res.w < 0) return; - if (v_res.x < -1.f || v_res.x > 1.f || v_res.y<-1.f || v_res.y>1.f) return; - - float x = (1.f + v_res.x)/2.f * (Device.dwWidth); - float y = (1.f - v_res.y)/2.f * (Device.dwHeight); - - pFont->SetAligment (CGameFont::alCenter); - pFont->SetColor (color); -// pFont->SetHeight (NewFontSize); - pFont->Out (x,y,Text); - //------------------------------------------------- -// pFont->SetHeight(OldFontSize); - *pdup = delta_up; + if (!g_Alive()) return; + + CBoneInstance& BI = smart_cast(Visual())->LL_GetBoneInstance(u16(m_head)); + Fmatrix M; + smart_cast(Visual())->CalculateBones(); + M.mul(XFORM(), BI.mTransform); + //------------------------------------------------ + Fvector v0, v1; + v0.set(M.c); v1.set(M.c); + Fvector T = Device.vCameraTop; + v1.add(T); + + Fvector v0r, v1r; + Device.mFullTransform.transform(v0r, v0); + Device.mFullTransform.transform(v1r, v1); + float size = v1r.distance_to(v0r); + CGameFont* pFont = UI().Font().pFontArial14; + if (!pFont) return; + // float OldFontSize = pFont->GetHeight (); + float delta_up = 0.0f; + if (size < mid_size) delta_up = upsize; + else delta_up = upsize*(mid_size / size); + dpos.y += delta_up; + if (size > mid_size) size = mid_size; + // float NewFontSize = size/mid_size * fontsize; + //------------------------------------------------ + M.c.y += dpos.y; + + Fvector4 v_res; + Device.mFullTransform.transform(v_res, M.c); + + if (v_res.z < 0 || v_res.w < 0) return; + if (v_res.x < -1.f || v_res.x > 1.f || v_res.y<-1.f || v_res.y>1.f) return; + + float x = (1.f + v_res.x) / 2.f * (Device.dwWidth); + float y = (1.f - v_res.y) / 2.f * (Device.dwHeight); + + pFont->SetAligment(CGameFont::alCenter); + pFont->SetColor(color); + // pFont->SetHeight (NewFontSize); + pFont->Out(x, y, Text); + //------------------------------------------------- + // pFont->SetHeight(OldFontSize); + *pdup = delta_up; }; void CActor::SetPhPosition(const Fmatrix &transform) { - if(!m_pPhysicsShell){ - character_physics_support()->movement()->SetPosition(transform.c); - } - //else m_phSkeleton->S + if (!m_pPhysicsShell) + { + character_physics_support()->movement()->SetPosition(transform.c); + } + //else m_phSkeleton->S } void CActor::ForceTransform(const Fmatrix& m) { - //if( !g_Alive() ) - // return; - //VERIFY(_valid(m)); - //XFORM().set( m ); - //if( character_physics_support()->movement()->CharacterExist() ) - // character_physics_support()->movement()->EnableCharacter(); - //character_physics_support()->set_movement_position( m.c ); - //character_physics_support()->movement()->SetVelocity( 0, 0, 0 ); - - character_physics_support()->ForceTransform( m ); - const float block_damage_time_seconds = 2.f; - if(!IsGameTypeSingle()) - character_physics_support()->movement()->BlockDamageSet( u64( block_damage_time_seconds/fixed_step ) ); + //if( !g_Alive() ) + // return; + //VERIFY(_valid(m)); + //XFORM().set( m ); + //if( character_physics_support()->movement()->CharacterExist() ) + // character_physics_support()->movement()->EnableCharacter(); + //character_physics_support()->set_movement_position( m.c ); + //character_physics_support()->movement()->SetVelocity( 0, 0, 0 ); + + character_physics_support()->ForceTransform(m); + const float block_damage_time_seconds = 2.f; + if (!IsGameTypeSingle()) + character_physics_support()->movement()->BlockDamageSet(u64(block_damage_time_seconds / fixed_step)); } ENGINE_API extern float psHUD_FOV; float CActor::Radius()const -{ - float R = inherited::Radius(); - CWeapon* W = smart_cast(inventory().ActiveItem()); - if (W) R += W->Radius(); - // if (HUDview()) R *= 1.f/psHUD_FOV; - return R; +{ + float R = inherited::Radius(); + CWeapon* W = smart_cast(inventory().ActiveItem()); + if (W) R += W->Radius(); + // if (HUDview()) R *= 1.f/psHUD_FOV; + return R; } -bool CActor::use_bolts () const +bool CActor::use_bolts() const { - if (!IsGameTypeSingle()) return false; - return CInventoryOwner::use_bolts(); + if (!IsGameTypeSingle()) return false; + return CInventoryOwner::use_bolts(); }; int g_iCorpseRemove = 1; bool CActor::NeedToDestroyObject() const { - if(IsGameTypeSingle()) - { - return false; - } - else - { - if (g_Alive()) return false; - if (g_iCorpseRemove == -1) return false; - if (g_iCorpseRemove == 0 && m_bAllowDeathRemove) return true; - if(TimePassedAfterDeath()>m_dwBodyRemoveTime && m_bAllowDeathRemove) - return true; - else - return false; - } + if (IsGameTypeSingle()) + { + return false; + } + else + { + if (g_Alive()) return false; + if (g_iCorpseRemove == -1) return false; + if (g_iCorpseRemove == 0 && m_bAllowDeathRemove) return true; + if (TimePassedAfterDeath() > m_dwBodyRemoveTime && m_bAllowDeathRemove) + return true; + else + return false; + } } ALife::_TIME_ID CActor::TimePassedAfterDeath() const { - if(!g_Alive()) - return Level().timeServer() - GetLevelDeathTime(); - else - return 0; + if (!g_Alive()) + return Level().timeServer() - GetLevelDeathTime(); + else + return 0; } void CActor::OnItemTake(CInventoryItem *inventory_item) { - CInventoryOwner::OnItemTake(inventory_item); - if (OnClient()) return; + CInventoryOwner::OnItemTake(inventory_item); + if (OnClient()) return; } void CActor::OnItemDrop(CInventoryItem *inventory_item, bool just_before_destroy) { - CInventoryOwner::OnItemDrop(inventory_item, just_before_destroy); - - CCustomOutfit* outfit = smart_cast(inventory_item); - if(outfit && inventory_item->m_ItemCurrPlace.type==eItemPlaceSlot) - { - outfit->ApplySkinModel (this, false, false); - } - - CWeapon* weapon = smart_cast(inventory_item); - if(weapon && inventory_item->m_ItemCurrPlace.type==eItemPlaceSlot) - { - weapon->OnZoomOut(); - if(weapon->GetRememberActorNVisnStatus()) - weapon->EnableActorNVisnAfterZoom(); - } - - if( !just_before_destroy && - inventory_item->BaseSlot()==GRENADE_SLOT && - NULL==inventory().ItemFromSlot(GRENADE_SLOT) ) - { - PIItem grenade = inventory().SameSlot(GRENADE_SLOT, inventory_item, true); - - if(grenade) - inventory().Slot(GRENADE_SLOT, grenade, true, true); - } + CInventoryOwner::OnItemDrop(inventory_item, just_before_destroy); + + CCustomOutfit* outfit = smart_cast(inventory_item); + if (outfit && inventory_item->m_ItemCurrPlace.type == eItemPlaceSlot) + { + outfit->ApplySkinModel(this, false, false); + } + + CWeapon* weapon = smart_cast(inventory_item); + if (weapon && inventory_item->m_ItemCurrPlace.type == eItemPlaceSlot) + { + weapon->OnZoomOut(); + if (weapon->GetRememberActorNVisnStatus()) + weapon->EnableActorNVisnAfterZoom(); + } + + if (!just_before_destroy && + inventory_item->BaseSlot() == GRENADE_SLOT && + NULL == inventory().ItemFromSlot(GRENADE_SLOT)) + { + PIItem grenade = inventory().SameSlot(GRENADE_SLOT, inventory_item, true); + + if (grenade) + inventory().Slot(GRENADE_SLOT, grenade, true, true); + } } -void CActor::OnItemDropUpdate () +void CActor::OnItemDropUpdate() { - CInventoryOwner::OnItemDropUpdate (); - - TIItemContainer::iterator I = inventory().m_all.begin(); - TIItemContainer::iterator E = inventory().m_all.end(); - - for ( ; I != E; ++I) - if( !(*I)->IsInvalid() && !attached(*I)) - attach(*I); + CInventoryOwner::OnItemDropUpdate(); + + TIItemContainer::iterator I = inventory().m_all.begin(); + TIItemContainer::iterator E = inventory().m_all.end(); + + for (; I != E; ++I) + if (!(*I)->IsInvalid() && !attached(*I)) + attach(*I); } -void CActor::OnItemRuck (CInventoryItem *inventory_item, const SInvItemPlace& previous_place) +void CActor::OnItemRuck(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { - CInventoryOwner::OnItemRuck(inventory_item, previous_place); + CInventoryOwner::OnItemRuck(inventory_item, previous_place); } -void CActor::OnItemBelt (CInventoryItem *inventory_item, const SInvItemPlace& previous_place) +void CActor::OnItemBelt(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { - CInventoryOwner::OnItemBelt(inventory_item, previous_place); + CInventoryOwner::OnItemBelt(inventory_item, previous_place); } #define ARTEFACTS_UPDATE_TIME 0.100f void CActor::UpdateArtefactsOnBeltAndOutfit() { - static float update_time = 0; - - float f_update_time = 0; - - if(update_time(*it); - if(artefact) - { - conditions().ChangeBleeding (artefact->m_fBleedingRestoreSpeed * f_update_time); - conditions().ChangeHealth (artefact->m_fHealthRestoreSpeed * f_update_time); - conditions().ChangePower (artefact->m_fPowerRestoreSpeed * f_update_time); - conditions().ChangeSatiety (artefact->m_fSatietyRestoreSpeed * f_update_time); - if(artefact->m_fRadiationRestoreSpeed>0.0f) - { - float val = artefact->m_fRadiationRestoreSpeed - conditions().GetBoostRadiationImmunity(); - clamp(val, 0.0f, val); - conditions().ChangeRadiation(val * f_update_time); - } - else - conditions().ChangeRadiation(artefact->m_fRadiationRestoreSpeed * f_update_time); - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - conditions().ChangeBleeding (outfit->m_fBleedingRestoreSpeed * f_update_time); - conditions().ChangeHealth (outfit->m_fHealthRestoreSpeed * f_update_time); - conditions().ChangePower (outfit->m_fPowerRestoreSpeed * f_update_time); - conditions().ChangeSatiety (outfit->m_fSatietyRestoreSpeed * f_update_time); - conditions().ChangeRadiation (outfit->m_fRadiationRestoreSpeed * f_update_time); - } - else - { - CHelmet* pHelmet = smart_cast(inventory().ItemFromSlot(HELMET_SLOT)); - if(!pHelmet) - { - CTorch* pTorch = smart_cast( inventory().ItemFromSlot(TORCH_SLOT) ); - if ( pTorch && pTorch->GetNightVisionStatus() ) - { - pTorch->SwitchNightVision(false); - } - } - } + static float update_time = 0; + + float f_update_time = 0; + + if (update_time < ARTEFACTS_UPDATE_TIME) + { + update_time += conditions().fdelta_time(); + return; + } + else + { + f_update_time = update_time; + update_time = 0.0f; + } + + for (TIItemContainer::iterator it = inventory().m_belt.begin(); + inventory().m_belt.end() != it; ++it) + { + CArtefact* artefact = smart_cast(*it); + if (artefact) + { + conditions().ChangeBleeding(artefact->m_fBleedingRestoreSpeed * f_update_time); + conditions().ChangeHealth(artefact->m_fHealthRestoreSpeed * f_update_time); + conditions().ChangePower(artefact->m_fPowerRestoreSpeed * f_update_time); + conditions().ChangeSatiety(artefact->m_fSatietyRestoreSpeed * f_update_time); + if (artefact->m_fRadiationRestoreSpeed > 0.0f) + { + float val = artefact->m_fRadiationRestoreSpeed - conditions().GetBoostRadiationImmunity(); + clamp(val, 0.0f, val); + conditions().ChangeRadiation(val * f_update_time); + } + else + conditions().ChangeRadiation(artefact->m_fRadiationRestoreSpeed * f_update_time); + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + conditions().ChangeBleeding(outfit->m_fBleedingRestoreSpeed * f_update_time); + conditions().ChangeHealth(outfit->m_fHealthRestoreSpeed * f_update_time); + conditions().ChangePower(outfit->m_fPowerRestoreSpeed * f_update_time); + conditions().ChangeSatiety(outfit->m_fSatietyRestoreSpeed * f_update_time); + conditions().ChangeRadiation(outfit->m_fRadiationRestoreSpeed * f_update_time); + } + else + { + CHelmet* pHelmet = smart_cast(inventory().ItemFromSlot(HELMET_SLOT)); + if (!pHelmet) + { + CTorch* pTorch = smart_cast(inventory().ItemFromSlot(TORCH_SLOT)); + if (pTorch && pTorch->GetNightVisionStatus()) + { + pTorch->SwitchNightVision(false); + } + } + } } float CActor::HitArtefactsOnBelt(float hit_power, ALife::EHitType hit_type) { - TIItemContainer::iterator it = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end() ; - for( ; it != ite; ++it ) - { - CArtefact* artefact = smart_cast(*it); - if ( artefact ) - { - hit_power -= artefact->m_ArtefactHitImmunities.AffectHit( 1.0f, hit_type ); - } - } - clamp(hit_power, 0.0f, flt_max); - - return hit_power; + TIItemContainer::iterator it = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; it != ite; ++it) + { + CArtefact* artefact = smart_cast(*it); + if (artefact) + { + hit_power -= artefact->m_ArtefactHitImmunities.AffectHit(1.0f, hit_type); + } + } + clamp(hit_power, 0.0f, flt_max); + + return hit_power; } -float CActor::GetProtection_ArtefactsOnBelt( ALife::EHitType hit_type ) +float CActor::GetProtection_ArtefactsOnBelt(ALife::EHitType hit_type) { - float sum = 0.0f; - TIItemContainer::iterator it = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end() ; - for( ; it != ite; ++it ) - { - CArtefact* artefact = smart_cast(*it); - if ( artefact ) - { - sum += artefact->m_ArtefactHitImmunities.AffectHit( 1.0f, hit_type ); - } - } - return sum; + float sum = 0.0f; + TIItemContainer::iterator it = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; it != ite; ++it) + { + CArtefact* artefact = smart_cast(*it); + if (artefact) + { + sum += artefact->m_ArtefactHitImmunities.AffectHit(1.0f, hit_type); + } + } + return sum; } -void CActor::SetZoomRndSeed (s32 Seed) +void CActor::SetZoomRndSeed(s32 Seed) { - if (0 != Seed) m_ZoomRndSeed = Seed; - else m_ZoomRndSeed = s32(Level().timeServer_Async()); + if (0 != Seed) m_ZoomRndSeed = Seed; + else m_ZoomRndSeed = s32(Level().timeServer_Async()); }; -void CActor::SetShotRndSeed (s32 Seed) +void CActor::SetShotRndSeed(s32 Seed) { - if (0 != Seed) m_ShotRndSeed = Seed; - else m_ShotRndSeed = s32(Level().timeServer_Async()); + if (0 != Seed) m_ShotRndSeed = Seed; + else m_ShotRndSeed = s32(Level().timeServer_Async()); }; -void CActor::spawn_supplies () +void CActor::spawn_supplies() { - inherited::spawn_supplies (); - CInventoryOwner::spawn_supplies (); + inherited::spawn_supplies(); + CInventoryOwner::spawn_supplies(); } void CActor::AnimTorsoPlayCallBack(CBlend* B) { - CActor* actor = (CActor*)B->CallbackParam; - actor->m_bAnimTorsoPlayed = FALSE; + CActor* actor = (CActor*) B->CallbackParam; + actor->m_bAnimTorsoPlayed = FALSE; } /* void CActor::UpdateMotionIcon(u32 mstate_rl) { - CUIMotionIcon* motion_icon=CurrentGameUI()->UIMainIngameWnd->MotionIcon(); - if(mstate_rl&mcClimb) - { - motion_icon->ShowState(CUIMotionIcon::stClimb); - } - else - { - if(mstate_rl&mcCrouch) - { - if (!isActorAccelerated(mstate_rl, IsZoomAimingMode())) - motion_icon->ShowState(CUIMotionIcon::stCreep); - else - motion_icon->ShowState(CUIMotionIcon::stCrouch); - } - else - if(mstate_rl&mcSprint) - motion_icon->ShowState(CUIMotionIcon::stSprint); - else - if(mstate_rl&mcAnyMove && isActorAccelerated(mstate_rl, IsZoomAimingMode())) - motion_icon->ShowState(CUIMotionIcon::stRun); - else - motion_icon->ShowState(CUIMotionIcon::stNormal); - } +CUIMotionIcon* motion_icon=CurrentGameUI()->UIMainIngameWnd->MotionIcon(); +if(mstate_rl&mcClimb) +{ +motion_icon->ShowState(CUIMotionIcon::stClimb); +} +else +{ +if(mstate_rl&mcCrouch) +{ +if (!isActorAccelerated(mstate_rl, IsZoomAimingMode())) +motion_icon->ShowState(CUIMotionIcon::stCreep); +else +motion_icon->ShowState(CUIMotionIcon::stCrouch); +} +else +if(mstate_rl&mcSprint) +motion_icon->ShowState(CUIMotionIcon::stSprint); +else +if(mstate_rl&mcAnyMove && isActorAccelerated(mstate_rl, IsZoomAimingMode())) +motion_icon->ShowState(CUIMotionIcon::stRun); +else +motion_icon->ShowState(CUIMotionIcon::stNormal); +} } */ -CPHDestroyable* CActor::ph_destroyable () +CPHDestroyable* CActor::ph_destroyable() { - return smart_cast(character_physics_support()); + return smart_cast(character_physics_support()); } -CEntityConditionSimple *CActor::create_entity_condition (CEntityConditionSimple* ec) +CEntityConditionSimple *CActor::create_entity_condition(CEntityConditionSimple* ec) { - if(!ec) - m_entity_condition = xr_new(this); - else - m_entity_condition = smart_cast(ec); - - return (inherited::create_entity_condition(m_entity_condition)); + if (!ec) + m_entity_condition = xr_new(this); + else + m_entity_condition = smart_cast(ec); + + return (inherited::create_entity_condition(m_entity_condition)); } -DLL_Pure *CActor::_construct () +DLL_Pure *CActor::_construct() { - m_pPhysics_support = xr_new(CCharacterPhysicsSupport::etActor,this); - CEntityAlive::_construct (); - CInventoryOwner::_construct (); - CStepManager::_construct (); - - return (this); + m_pPhysics_support = xr_new(CCharacterPhysicsSupport::etActor, this); + CEntityAlive::_construct(); + CInventoryOwner::_construct(); + CStepManager::_construct(); + + return (this); } -bool CActor::use_center_to_aim () const +bool CActor::use_center_to_aim() const { - return (!!(mstate_real&mcCrouch)); + return (!!(mstate_real&mcCrouch)); } -bool CActor::can_attach (const CInventoryItem *inventory_item) const +bool CActor::can_attach(const CInventoryItem *inventory_item) const { - const CAttachableItem *item = smart_cast(inventory_item); - if (!item || /*!item->enabled() ||*/ !item->can_be_attached()) - return (false); + const CAttachableItem *item = smart_cast(inventory_item); + if (!item || /*!item->enabled() ||*/ !item->can_be_attached()) + return (false); - //можно ли присоединять объекты такого типа - if( m_attach_item_sections.end() == std::find(m_attach_item_sections.begin(),m_attach_item_sections.end(),inventory_item->object().cNameSect()) ) - return false; + //можно ли присоединять объекты такого типа + if (m_attach_item_sections.end() == std::find(m_attach_item_sections.begin(), m_attach_item_sections.end(), inventory_item->object().cNameSect())) + return false; - //если уже есть присоединненый объет такого типа - if(attached(inventory_item->object().cNameSect())) - return false; + //если уже есть присоединненый объет такого типа + if (attached(inventory_item->object().cNameSect())) + return false; - return true; + return true; } -void CActor::OnDifficultyChanged () +void CActor::OnDifficultyChanged() { - // immunities - VERIFY(g_SingleGameDifficulty>=egdNovice && g_SingleGameDifficulty<=egdMaster); - LPCSTR diff_name = get_token_name(difficulty_type_token, g_SingleGameDifficulty); - string128 tmp; - strconcat (sizeof(tmp),tmp,"actor_immunities_",diff_name); - conditions().LoadImmunities (tmp,pSettings); - // hit probability - strconcat (sizeof(tmp),tmp,"hit_probability_",diff_name); - m_hit_probability = pSettings->r_float(*cNameSect(),tmp); - // two hits death parameters - strconcat (sizeof(tmp),tmp,"actor_thd_",diff_name); - conditions().LoadTwoHitsDeathParams(tmp); + // immunities + VERIFY(g_SingleGameDifficulty >= egdNovice && g_SingleGameDifficulty <= egdMaster); + LPCSTR diff_name = get_token_name(difficulty_type_token, g_SingleGameDifficulty); + string128 tmp; + strconcat(sizeof(tmp), tmp, "actor_immunities_", diff_name); + conditions().LoadImmunities(tmp, pSettings); + // hit probability + strconcat(sizeof(tmp), tmp, "hit_probability_", diff_name); + m_hit_probability = pSettings->r_float(*cNameSect(), tmp); + // two hits death parameters + strconcat(sizeof(tmp), tmp, "actor_thd_", diff_name); + conditions().LoadTwoHitsDeathParams(tmp); } -CVisualMemoryManager *CActor::visual_memory () const +CVisualMemoryManager *CActor::visual_memory() const { - return (&memory().visual()); + return (&memory().visual()); } -float CActor::GetMass () +float CActor::GetMass() { - return g_Alive()?character_physics_support()->movement()->GetMass():m_pPhysicsShell?m_pPhysicsShell->getMass():0; + return g_Alive() ? character_physics_support()->movement()->GetMass() : m_pPhysicsShell ? m_pPhysicsShell->getMass() : 0; } bool CActor::is_on_ground() { - return (character_physics_support()->movement()->Environment() != CPHMovementControl::peInAir); + return (character_physics_support()->movement()->Environment() != CPHMovementControl::peInAir); } -bool CActor::is_ai_obstacle () const +bool CActor::is_ai_obstacle() const { - return (false);//true); + return (false);//true); } -float CActor::GetRestoreSpeed( ALife::EConditionRestoreType const& type ) +float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) { - float res = 0.0f; - switch ( type ) - { - case ALife::eHealthRestoreSpeed: - { - res = conditions().change_v().m_fV_HealthRestore; - res += conditions().V_SatietyHealth() * ( (conditions().GetSatiety() > 0.0f) ? 1.0f : -1.0f ); - - TIItemContainer::iterator itb = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end(); - for( ; itb != ite; ++itb ) - { - CArtefact* artefact = smart_cast( *itb ); - if ( artefact ) - { - res += artefact->m_fHealthRestoreSpeed; - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - res += outfit->m_fHealthRestoreSpeed; - } - break; - } - case ALife::eRadiationRestoreSpeed: - { - TIItemContainer::iterator itb = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end(); - for( ; itb != ite; ++itb ) - { - CArtefact* artefact = smart_cast( *itb ); - if ( artefact ) - { - res += artefact->m_fRadiationRestoreSpeed; - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - res += outfit->m_fRadiationRestoreSpeed; - } - break; - } - case ALife::eSatietyRestoreSpeed: - { - res = conditions().V_Satiety(); - - TIItemContainer::iterator itb = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end(); - for( ; itb != ite; ++itb ) - { - CArtefact* artefact = smart_cast( *itb ); - if ( artefact ) - { - res += artefact->m_fSatietyRestoreSpeed; - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - res += outfit->m_fSatietyRestoreSpeed; - } - break; - } - case ALife::ePowerRestoreSpeed: - { - res = conditions().GetSatietyPower(); - - TIItemContainer::iterator itb = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end(); - for( ; itb != ite; ++itb ) - { - CArtefact* artefact = smart_cast( *itb ); - if ( artefact ) - { - res += artefact->m_fPowerRestoreSpeed; - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - res += outfit->m_fPowerRestoreSpeed; - VERIFY(outfit->m_fPowerLoss!=0.0f); - res /= outfit->m_fPowerLoss; - } - else - res /= 0.5f; - break; - } - case ALife::eBleedingRestoreSpeed: - { - res = conditions().change_v().m_fV_WoundIncarnation; - - TIItemContainer::iterator itb = inventory().m_belt.begin(); - TIItemContainer::iterator ite = inventory().m_belt.end(); - for( ; itb != ite; ++itb ) - { - CArtefact* artefact = smart_cast( *itb ); - if ( artefact ) - { - res += artefact->m_fBleedingRestoreSpeed; - } - } - CCustomOutfit* outfit = GetOutfit(); - if ( outfit ) - { - res += outfit->m_fBleedingRestoreSpeed; - } - break; - } - }//switch - - return res; + float res = 0.0f; + switch (type) + { + case ALife::eHealthRestoreSpeed: + { + res = conditions().change_v().m_fV_HealthRestore; + res += conditions().V_SatietyHealth() * ((conditions().GetSatiety() > 0.0f) ? 1.0f : -1.0f); + + TIItemContainer::iterator itb = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; itb != ite; ++itb) + { + CArtefact* artefact = smart_cast(*itb); + if (artefact) + { + res += artefact->m_fHealthRestoreSpeed; + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + res += outfit->m_fHealthRestoreSpeed; + } + break; + } + case ALife::eRadiationRestoreSpeed: + { + TIItemContainer::iterator itb = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; itb != ite; ++itb) + { + CArtefact* artefact = smart_cast(*itb); + if (artefact) + { + res += artefact->m_fRadiationRestoreSpeed; + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + res += outfit->m_fRadiationRestoreSpeed; + } + break; + } + case ALife::eSatietyRestoreSpeed: + { + res = conditions().V_Satiety(); + + TIItemContainer::iterator itb = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; itb != ite; ++itb) + { + CArtefact* artefact = smart_cast(*itb); + if (artefact) + { + res += artefact->m_fSatietyRestoreSpeed; + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + res += outfit->m_fSatietyRestoreSpeed; + } + break; + } + case ALife::ePowerRestoreSpeed: + { + res = conditions().GetSatietyPower(); + + TIItemContainer::iterator itb = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; itb != ite; ++itb) + { + CArtefact* artefact = smart_cast(*itb); + if (artefact) + { + res += artefact->m_fPowerRestoreSpeed; + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + res += outfit->m_fPowerRestoreSpeed; + VERIFY(outfit->m_fPowerLoss != 0.0f); + res /= outfit->m_fPowerLoss; + } + else + res /= 0.5f; + break; + } + case ALife::eBleedingRestoreSpeed: + { + res = conditions().change_v().m_fV_WoundIncarnation; + + TIItemContainer::iterator itb = inventory().m_belt.begin(); + TIItemContainer::iterator ite = inventory().m_belt.end(); + for (; itb != ite; ++itb) + { + CArtefact* artefact = smart_cast(*itb); + if (artefact) + { + res += artefact->m_fBleedingRestoreSpeed; + } + } + CCustomOutfit* outfit = GetOutfit(); + if (outfit) + { + res += outfit->m_fBleedingRestoreSpeed; + } + break; + } + }//switch + + return res; } void CActor::On_SetEntity() { - CCustomOutfit* pOutfit = GetOutfit(); - if( !pOutfit ) - g_player_hud->load_default(); - else - pOutfit->ApplySkinModel(this, true, true); + CCustomOutfit* pOutfit = GetOutfit(); + if (!pOutfit) + g_player_hud->load_default(); + else + pOutfit->ApplySkinModel(this, true, true); } bool CActor::unlimited_ammo() { - return !!psActorFlags.test(AF_UNLIMITEDAMMO); + return !!psActorFlags.test(AF_UNLIMITEDAMMO); } From 00e48d5a23449d661924117bb5ed9e3156445d80 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 16 Dec 2014 16:45:31 -0500 Subject: [PATCH 009/166] + fix "cannot find rank for" bug (restrictions.cpp) + fixed invalid (had extra space) name of exported script function speed in alife_monster_detail_path_manager_script.cpp --- ...ife_monster_detail_path_manager_script.cpp | 4 +- src/xrGame/ui/Restrictions.cpp | 349 +++++++++--------- 2 files changed, 177 insertions(+), 176 deletions(-) diff --git a/src/xrGame/alife_monster_detail_path_manager_script.cpp b/src/xrGame/alife_monster_detail_path_manager_script.cpp index 1652ed5f0fb..63214ea9462 100644 --- a/src/xrGame/alife_monster_detail_path_manager_script.cpp +++ b/src/xrGame/alife_monster_detail_path_manager_script.cpp @@ -21,8 +21,8 @@ void CALifeMonsterDetailPathManager::script_register (lua_State *L) .def("target", (void (CALifeMonsterDetailPathManager::*)(const GameGraph::_GRAPH_ID &, const u32 &, const Fvector &))(&CALifeMonsterDetailPathManager::target)) .def("target", (void (CALifeMonsterDetailPathManager::*)(const GameGraph::_GRAPH_ID &))(&CALifeMonsterDetailPathManager::target)) .def("target", (void (CALifeMonsterDetailPathManager::*)(const CALifeSmartTerrainTask *))(&CALifeMonsterDetailPathManager::target)) - .def("speed ", (void (CALifeMonsterDetailPathManager::*)(const float &))(&CALifeMonsterDetailPathManager::speed)) - .def("speed ", (const float &(CALifeMonsterDetailPathManager::*)() const)(&CALifeMonsterDetailPathManager::speed)) + .def("speed", (void (CALifeMonsterDetailPathManager::*)(const float &))(&CALifeMonsterDetailPathManager::speed)) + .def("speed", (const float &(CALifeMonsterDetailPathManager::*)() const)(&CALifeMonsterDetailPathManager::speed)) .def("completed", &CALifeMonsterDetailPathManager::completed) .def("actual", &CALifeMonsterDetailPathManager::actual) .def("failed", &CALifeMonsterDetailPathManager::failed) diff --git a/src/xrGame/ui/Restrictions.cpp b/src/xrGame/ui/Restrictions.cpp index f8122413620..00aef3cfdba 100644 --- a/src/xrGame/ui/Restrictions.cpp +++ b/src/xrGame/ui/Restrictions.cpp @@ -12,250 +12,251 @@ shared_str g_ranks[_RANK_COUNT]; u32 get_rank(const shared_str §ion) { - int res = -1; - if( g_ranks[0].size()==0 ) - { //load - string32 buff; - for (int i = 0; i<_RANK_COUNT; i++) - { - xr_sprintf(buff, "rank_%d", i); - g_ranks[i] = pSettings->r_string(buff, "available_items"); - } - } - for (u32 i = 0; i<_RANK_COUNT; i++) - { - if (strstr(g_ranks[i].c_str(), section.c_str())) - { - res = i; - break; - } - } - - R_ASSERT3 (res!=-1,"cannot find rank for", section.c_str()); - return res; + //int res = -1; + int res = 0; // AVO: "cannot find rank for" fix + + if (g_ranks[0].size() == 0) + { //load + string32 buff; + for (int i = 0; i < _RANK_COUNT; i++) + { + xr_sprintf(buff, "rank_%d", i); + g_ranks[i] = pSettings->r_string(buff, "available_items"); + } + } + for (u32 i = 0; i < _RANK_COUNT; i++) + { + if (strstr(g_ranks[i].c_str(), section.c_str())) + { + res = i; + break; + } + } + + //R_ASSERT3(res != -1, "cannot find rank for", section.c_str()); // AVO: "cannot find rank for" fix + return res; } CRestrictions::CRestrictions() -{ - m_rank = 0; - m_bInited = false; +{ + m_rank = 0; + m_bInited = false; } CRestrictions::~CRestrictions() -{} +{ +} void CRestrictions::InitGroups() { - if (m_bInited) return; - m_bInited = true; + if (m_bInited) return; + m_bInited = true; - // create groups - u32 c = pSettings->line_count("mp_item_groups"); - LPCSTR line, name; + // create groups + u32 c = pSettings->line_count("mp_item_groups"); + LPCSTR line, name; - for (u32 i = 0; ir_line ("mp_item_groups", i, &name, &line); - AddGroup (name, line); - } + for (u32 i = 0; i < c; ++i) + { + pSettings->r_line("mp_item_groups", i, &name, &line); + AddGroup(name, line); + } + // try to find restrictions in every rank - // try to find restrictions in every rank + AddRestriction4rank(_RANK_COUNT, pSettings->r_string("rank_base", "amount_restriction")); - AddRestriction4rank (_RANK_COUNT, pSettings->r_string("rank_base", "amount_restriction")); + string32 rank; + for (u32 i = 0; i < _RANK_COUNT; ++i) + { + xr_sprintf(rank, "rank_%d", i); - string32 rank; - for (u32 i = 0; i<_RANK_COUNT; ++i) - { - xr_sprintf (rank,"rank_%d", i); - - AddRestriction4rank (i, pSettings->r_string(rank, "amount_restriction")); - m_names[i] = CStringTable().translate( pSettings->r_string(rank, "rank_name")); - } + AddRestriction4rank(i, pSettings->r_string(rank, "amount_restriction")); + m_names[i] = CStringTable().translate(pSettings->r_string(rank, "rank_name")); + } #ifndef MASTER_GOLD - Dump(); + Dump(); #endif // #ifndef MASTER_GOLD #ifdef DEBUG - CMD4(CCC_Integer, "rank_for_buymenu", (int*)&m_rank, 0, 4); -#endif + CMD4(CCC_Integer, "rank_for_buymenu", (int*)&m_rank, 0, 4); +#endif } void CRestrictions::AddRestriction4rank(u32 rank, const shared_str& lst) {// private - VERIFY (m_bInited); - - rank_rest_vec& rest = m_restrictions[rank]; - - if(rank!=_RANK_COUNT) - { - u32 src_idx = (rank==0)?_RANK_COUNT:(rank-1); - rest = m_restrictions[ src_idx ]; - } - - string256 singleItem; - u32 count = _GetItemCount(lst.c_str()); - for (u32 j = 0; j < count; ++j) - { - _GetItem (lst.c_str(), j, singleItem); - RESTR r = GetRestr(singleItem); - restr_item* ritem = find_restr_item_internal(rank, r.name); - VERIFY2 ((ritem || rank==_RANK_COUNT), singleItem); - if(!ritem) - rest.push_back (mk_pair(r.name, r.n)); - else - ritem->second = r.n; - } + VERIFY(m_bInited); + + rank_rest_vec& rest = m_restrictions[rank]; + + if (rank != _RANK_COUNT) + { + u32 src_idx = (rank == 0) ? _RANK_COUNT : (rank - 1); + rest = m_restrictions[src_idx]; + } + + string256 singleItem; + u32 count = _GetItemCount(lst.c_str()); + for (u32 j = 0; j < count; ++j) + { + _GetItem(lst.c_str(), j, singleItem); + RESTR r = GetRestr(singleItem); + restr_item* ritem = find_restr_item_internal(rank, r.name); + VERIFY2((ritem || rank == _RANK_COUNT), singleItem); + if (!ritem) + rest.push_back(mk_pair(r.name, r.n)); + else + ritem->second = r.n; + } } bool CRestrictions::IsAvailable(const shared_str& itm) { - u32 _r = get_rank (itm); - return (_r<=m_rank); + u32 _r = get_rank(itm); + return (_r <= m_rank); } void CRestrictions::AddGroup(LPCSTR group, LPCSTR lst) {// private - VERIFY (m_bInited); + VERIFY(m_bInited); - VERIFY(m_goups.find(group) == m_goups.end()); + VERIFY(m_goups.find(group) == m_goups.end()); - group_items& _new = m_goups[group]; - string256 singleItem; - u32 count = _GetItemCount(lst); - for (u32 j = 0; j < count; ++j) - { - _GetItem(lst, j, singleItem); + group_items& _new = m_goups[group]; + string256 singleItem; + u32 count = _GetItemCount(lst); + for (u32 j = 0; j < count; ++j) + { + _GetItem(lst, j, singleItem); #ifdef DEBUG - const shared_str& _exist = GetItemGroup(singleItem); - VERIFY3(_exist.size()==0, "item has duplicate record in groups", singleItem); + const shared_str& _exist = GetItemGroup(singleItem); + VERIFY3(_exist.size()==0, "item has duplicate record in groups", singleItem); #endif - _new.push_back (singleItem); - } + _new.push_back(singleItem); + } } bool CRestrictions::IsGroupExist(const shared_str& group) const { - return (m_goups.end() != m_goups.find(group)); + return (m_goups.end() != m_goups.find(group)); } RESTR CRestrictions::GetRestr(const shared_str& item) { // private function - VERIFY (m_bInited); - RESTR ret; - string512 _name; - int _cnt = 0; - ptrdiff_t n = strchr(item.c_str(),':') - item.c_str(); - if( n>0 ) - { - strncpy_s (_name, item.c_str(), n ); - _name[n] = 0; - _cnt = sscanf(item.c_str()+n+1,"%d", &ret.n); - } - R_ASSERT3 (n>0 && _cnt==1, "invalid record format ", item.c_str()); - ret.name = _name; - - return ret; + VERIFY(m_bInited); + RESTR ret; + string512 _name; + int _cnt = 0; + ptrdiff_t n = strchr(item.c_str(), ':') - item.c_str(); + if (n > 0) + { + strncpy_s(_name, item.c_str(), n); + _name[n] = 0; + _cnt = sscanf(item.c_str() + n + 1, "%d", &ret.n); + } + R_ASSERT3(n > 0 && _cnt == 1, "invalid record format ", item.c_str()); + ret.name = _name; + + return ret; } shared_str CRestrictions::GetItemGroup(const shared_str& item) const { // private function - VERIFY (m_bInited); - Groups::const_iterator it; - group_items::const_iterator IT; - - for (it = m_goups.begin(); it != m_goups.end(); it++) - for (IT = (*it).second.begin(); IT != (*it).second.end(); IT++) - if ((*IT) == item) - return (*it).first; - - return NULL; + VERIFY(m_bInited); + Groups::const_iterator it; + group_items::const_iterator IT; + + for (it = m_goups.begin(); it != m_goups.end(); it++) + for (IT = (*it).second.begin(); IT != (*it).second.end(); IT++) + if ((*IT) == item) + return (*it).first; + + return NULL; } u32 CRestrictions::GetItemCount(const shared_str& item_sect) const { - VERIFY (m_bInited); + VERIFY(m_bInited); - const shared_str& group_name = GetItemGroup(item_sect); - VERIFY3 (group_name.size(), "item has no group", item_sect.c_str()); - const restr_item* res = find_restr_item(m_rank, group_name); - - VERIFY4 (res, "group has no restrictions for rank", group_name.c_str(), GetRankName(m_rank).c_str()); + const shared_str& group_name = GetItemGroup(item_sect); + VERIFY3(group_name.size(), "item has no group", item_sect.c_str()); + const restr_item* res = find_restr_item(m_rank, group_name); - return res->second; + VERIFY4(res, "group has no restrictions for rank", group_name.c_str(), GetRankName(m_rank).c_str()); + + return res->second; } u32 CRestrictions::GetGroupCount(const shared_str& group_name) const { - VERIFY (m_bInited); - const restr_item* res = find_restr_item(m_rank, group_name); - - VERIFY3 (res, "group has no restrictions for rank", GetRankName(m_rank).c_str()); + VERIFY(m_bInited); + const restr_item* res = find_restr_item(m_rank, group_name); - return res->second; + VERIFY3(res, "group has no restrictions for rank", GetRankName(m_rank).c_str()); + return res->second; } CRestrictions::restr_item* CRestrictions::find_restr_item_internal(const u32& rank, const shared_str& group_name) { - VERIFY (m_bInited); - rank_rest_vec::iterator it = m_restrictions[rank].begin(); - rank_rest_vec::iterator it_e = m_restrictions[rank].end(); - - for(;it!=it_e;++it) - { - if(it->first==group_name) - return &(*it); - } - return NULL; + VERIFY(m_bInited); + rank_rest_vec::iterator it = m_restrictions[rank].begin(); + rank_rest_vec::iterator it_e = m_restrictions[rank].end(); + + for (; it != it_e; ++it) + { + if (it->first == group_name) + return &(*it); + } + return NULL; } -const CRestrictions::restr_item* CRestrictions::find_restr_item(const u32& rank, const shared_str& group_name ) const +const CRestrictions::restr_item* CRestrictions::find_restr_item(const u32& rank, const shared_str& group_name) const { - VERIFY (m_bInited); - rank_rest_vec::const_iterator it = m_restrictions[rank].begin(); - rank_rest_vec::const_iterator it_e = m_restrictions[rank].end(); - - for(;it!=it_e;++it) - { - if(it->first==group_name) - return &(*it); - } - VERIFY (it!=it_e); - return NULL; + VERIFY(m_bInited); + rank_rest_vec::const_iterator it = m_restrictions[rank].begin(); + rank_rest_vec::const_iterator it_e = m_restrictions[rank].end(); + + for (; it != it_e; ++it) + { + if (it->first == group_name) + return &(*it); + } + VERIFY(it != it_e); + return NULL; } void CRestrictions::Dump() const { #ifndef MASTER_GOLD - Msg("------------item groups ---count=[%d]-------------------",m_goups.size()); - Groups::const_iterator it = m_goups.begin(); - Groups::const_iterator it_e = m_goups.end(); - for(; it!=it_e; ++it) - { - Msg("group [%s]",it->first.c_str()); - group_items::const_iterator it2 = it->second.begin(); - group_items::const_iterator it2_e = it->second.end(); - for(;it2!=it2_e;++it2) - Msg(" [%s]",(*it2).c_str()); - } - Msg("------------rank restrictions------------"); - for(u32 i=0; i<_RANK_COUNT+1; ++i) - { - const rank_rest_vec& v = m_restrictions[i]; - rank_rest_vec::const_iterator it = v.begin(); - rank_rest_vec::const_iterator it_e = v.end(); - if(i<_RANK_COUNT) - Msg("--- for rank %d ---count=[%d]", i, v.size()); - else - Msg("--- base restrictions ---count=[%d]", v.size()); - - for(;it!=it_e;++it) - { - Msg(" [%s]:[%d]", (*it).first.c_str(), (*it).second); - } - Msg("-----------------------------------------"); - } + Msg("------------item groups ---count=[%d]-------------------",m_goups.size()); + Groups::const_iterator it = m_goups.begin(); + Groups::const_iterator it_e = m_goups.end(); + for(; it!=it_e; ++it) + { + Msg("group [%s]",it->first.c_str()); + group_items::const_iterator it2 = it->second.begin(); + group_items::const_iterator it2_e = it->second.end(); + for(;it2!=it2_e;++it2) + Msg(" [%s]",(*it2).c_str()); + } + Msg("------------rank restrictions------------"); + for(u32 i=0; i<_RANK_COUNT+1; ++i) + { + const rank_rest_vec& v = m_restrictions[i]; + rank_rest_vec::const_iterator it = v.begin(); + rank_rest_vec::const_iterator it_e = v.end(); + if(i<_RANK_COUNT) + Msg("--- for rank %d ---count=[%d]", i, v.size()); + else + Msg("--- base restrictions ---count=[%d]", v.size()); + + for(;it!=it_e;++it) + { + Msg(" [%s]:[%d]", (*it).first.c_str(), (*it).second); + } + Msg("-----------------------------------------"); + } #endif // #ifndef MASTER_GOLD -} +} \ No newline at end of file From e9dc027e29393fbcf5bed86577d6d1534ea0c359 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 13:27:45 -0500 Subject: [PATCH 010/166] + log1 script command + flush script command ! restricted console commands relevant to debugging (g_god, run_string, etc..) to only be available when program was started with -dbg key --- src/engine.sln | 6 - src/xrGame/console_commands.cpp | 3496 +++++++++-------- src/xrServerEntities/script_engine_script.cpp | 258 +- 3 files changed, 1927 insertions(+), 1833 deletions(-) diff --git a/src/engine.sln b/src/engine.sln index 664c56e4d3b..73d32525aec 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -171,7 +171,6 @@ Global {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.Build.0 = Release|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Win32.ActiveCfg = Debug|Win32 - {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Win32.Build.0 = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -179,7 +178,6 @@ Global {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.ActiveCfg = Debug|Win32 - {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.Build.0 = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.Build.0 = Debug|Win32 @@ -187,7 +185,6 @@ Global {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.ActiveCfg = Debug|Win32 - {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.Build.0 = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.Build.0 = Release|Win32 @@ -195,7 +192,6 @@ Global {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.ActiveCfg = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.ActiveCfg = Debug|Win32 - {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.Build.0 = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -558,7 +554,6 @@ Global {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.Build.0 = Release|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Win32.ActiveCfg = Debug|Win32 - {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Win32.Build.0 = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.Build.0 = Debug|Win32 @@ -566,7 +561,6 @@ Global {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.ActiveCfg = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.ActiveCfg = Debug|Win32 - {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.Build.0 = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.Build.0 = Debug|Win32 diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index bb399e998eb..503f83d1e5b 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -53,7 +53,7 @@ #include "../xrphysics/console_vars.h" #ifdef DEBUG # include "PHDebug.h" -# include "ui/UIDebugFonts.h" +# include "ui/UIDebugFonts.h" # include "game_graph.h" # include "CharacterPhysicsSupport.h" #endif // DEBUG @@ -61,12 +61,12 @@ string_path g_last_saved_game; #ifdef DEBUG - extern float air_resistance_epsilon; +extern float air_resistance_epsilon; #endif // #ifdef DEBUG -extern void show_smart_cast_stats (); -extern void clear_smart_cast_stats (); -extern void release_smart_cast_stats (); +extern void show_smart_cast_stats(); +extern void clear_smart_cast_stats(); +extern void release_smart_cast_stats(); extern u64 g_qwStartGameTime; extern u64 g_qwEStartGameTime; @@ -78,16 +78,16 @@ extern int psLUA_GCSTEP; extern int x_m_x; extern int x_m_z; -extern BOOL net_cl_inputguaranteed ; -extern BOOL net_sv_control_hit ; -extern int g_dwInputUpdateDelta ; +extern BOOL net_cl_inputguaranteed; +extern BOOL net_sv_control_hit; +extern int g_dwInputUpdateDelta; #ifdef DEBUG -extern BOOL g_ShowAnimationInfo ; +extern BOOL g_ShowAnimationInfo; #endif // DEBUG -extern BOOL g_bShowHitSectors ; +extern BOOL g_bShowHitSectors; //extern BOOL g_bDebugDumpPhysicsStep ; extern ESingleGameDifficulty g_SingleGameDifficulty; -extern BOOL g_show_wnd_rect2 ; +extern BOOL g_show_wnd_rect2; //----------------------------------------------------------- extern float g_fTimeFactor; extern BOOL b_toggle_weapon_aim; @@ -99,30 +99,30 @@ extern float g_smart_cover_animation_speed_factor; extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.44f; -int g_keypress_on_start = 1; +int g_keypress_on_start = 1; ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); //----------------------------------------------------------- - BOOL g_bCheckTime = FALSE; - int net_cl_inputupdaterate = 50; - Flags32 g_mt_config = {mtLevelPath | mtDetailPath | mtObjectHandler | mtSoundPlayer | mtAiVision | mtBullets | mtLUA_GC | mtLevelSounds | mtALife | mtMap}; +BOOL g_bCheckTime = FALSE; +int net_cl_inputupdaterate = 50; +Flags32 g_mt_config = {mtLevelPath | mtDetailPath | mtObjectHandler | mtSoundPlayer | mtAiVision | mtBullets | mtLUA_GC | mtLevelSounds | mtALife | mtMap}; #ifdef DEBUG - Flags32 dbg_net_Draw_Flags = {0}; +Flags32 dbg_net_Draw_Flags = {0}; #endif #ifdef DEBUG - BOOL g_bDebugNode = FALSE; - u32 g_dwDebugNodeSource = 0; - u32 g_dwDebugNodeDest = 0; +BOOL g_bDebugNode = FALSE; +u32 g_dwDebugNodeSource = 0; +u32 g_dwDebugNodeDest = 0; extern BOOL g_bDrawBulletHit; extern BOOL g_bDrawFirstBulletCrosshair; - float debug_on_frame_gather_stats_frequency = 0.f; +float debug_on_frame_gather_stats_frequency = 0.f; #endif -#ifdef DEBUG +#ifdef DEBUG extern LPSTR dbg_stalker_death_anim; extern BOOL b_death_anim_velocity; extern BOOL death_anim_debug; @@ -133,8 +133,9 @@ extern float dbg_imotion_draw_velocity_scale; #endif int g_AI_inactive_time = 0; Flags32 g_uCommonFlags; -enum E_COMMON_FLAGS{ - flAiUseTorchDynamicLights = 1 +enum E_COMMON_FLAGS +{ + flAiUseTorchDynamicLights = 1 }; CUIOptConCom g_OptConCom; @@ -146,245 +147,264 @@ CUIOptConCom g_OptConCom; #endif // PURE_ALLOC #ifdef SEVERAL_ALLOCATORS - extern u32 game_lua_memory_usage (); +extern u32 game_lua_memory_usage(); #endif // SEVERAL_ALLOCATORS -typedef void (*full_memory_stats_callback_type) ( ); +typedef void(*full_memory_stats_callback_type) (); XRCORE_API full_memory_stats_callback_type g_full_memory_stats_callback; -static void full_memory_stats ( ) +static void full_memory_stats() { - Memory.mem_compact (); - size_t _process_heap = ::Memory.mem_usage(); + Memory.mem_compact(); + size_t _process_heap = ::Memory.mem_usage(); #ifdef SEVERAL_ALLOCATORS - u32 _game_lua = game_lua_memory_usage(); - u32 _render = ::Render->memory_usage(); + u32 _game_lua = game_lua_memory_usage(); + u32 _render = ::Render->memory_usage(); #endif // SEVERAL_ALLOCATORS - int _eco_strings = (int)g_pStringContainer->stat_economy (); - int _eco_smem = (int)g_pSharedMemoryContainer->stat_economy (); - u32 m_base=0,c_base=0,m_lmaps=0,c_lmaps=0; - + int _eco_strings = (int) g_pStringContainer->stat_economy(); + int _eco_smem = (int) g_pSharedMemoryContainer->stat_economy(); + u32 m_base = 0, c_base = 0, m_lmaps = 0, c_lmaps = 0; - //if (Device.Resources) Device.Resources->_GetMemoryUsage (m_base,c_base,m_lmaps,c_lmaps); - // Resource check moved to m_pRender - if (Device.m_pRender) Device.m_pRender->ResourcesGetMemoryUsage(m_base,c_base,m_lmaps,c_lmaps); + //if (Device.Resources) Device.Resources->_GetMemoryUsage (m_base,c_base,m_lmaps,c_lmaps); + // Resource check moved to m_pRender + if (Device.m_pRender) Device.m_pRender->ResourcesGetMemoryUsage(m_base, c_base, m_lmaps, c_lmaps); - log_vminfo (); + log_vminfo(); - Msg ("* [ D3D ]: textures[%d K]", (m_base+m_lmaps)/1024); + Msg("* [ D3D ]: textures[%d K]", (m_base + m_lmaps) / 1024); #ifndef SEVERAL_ALLOCATORS - Msg ("* [x-ray]: process heap[%u K]",_process_heap/1024); + Msg ("* [x-ray]: process heap[%u K]",_process_heap/1024); #else // SEVERAL_ALLOCATORS - Msg ("* [x-ray]: process heap[%u K], game lua[%d K], render[%d K]",_process_heap/1024,_game_lua/1024,_render/1024); + Msg("* [x-ray]: process heap[%u K], game lua[%d K], render[%d K]", _process_heap / 1024, _game_lua / 1024, _render / 1024); #endif // SEVERAL_ALLOCATORS - Msg ("* [x-ray]: economy: strings[%d K], smem[%d K]",_eco_strings/1024,_eco_smem); + Msg("* [x-ray]: economy: strings[%d K], smem[%d K]", _eco_strings / 1024, _eco_smem); #ifdef FS_DEBUG - Msg ("* [x-ray]: file mapping: memory[%d K], count[%d]",g_file_mapped_memory/1024,g_file_mapped_count); - dump_file_mappings (); + Msg ("* [x-ray]: file mapping: memory[%d K], count[%d]",g_file_mapped_memory/1024,g_file_mapped_count); + dump_file_mappings (); #endif // DEBUG } class CCC_MemStats : public IConsole_Command { public: - CCC_MemStats(LPCSTR N) : IConsole_Command(N) { - bEmptyArgsHandled = TRUE; - g_full_memory_stats_callback = &full_memory_stats; - }; - virtual void Execute(LPCSTR args) { - full_memory_stats( ); - } + CCC_MemStats(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = TRUE; + g_full_memory_stats_callback = &full_memory_stats; + }; + virtual void Execute(LPCSTR args) + { + full_memory_stats(); + } }; #ifdef DEBUG class CCC_MemCheckpoint : public IConsole_Command { public: - CCC_MemCheckpoint(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = FALSE; }; - virtual void Execute(LPCSTR args) - { - memory_monitor::make_checkpoint(args); - } - virtual void Save (IWriter *F) {} + CCC_MemCheckpoint(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = FALSE; }; + virtual void Execute(LPCSTR args) + { + memory_monitor::make_checkpoint(args); + } + virtual void Save(IWriter *F) {} }; #endif // #ifdef DEBUG // console commands -class CCC_GameDifficulty : public CCC_Token { +class CCC_GameDifficulty : public CCC_Token +{ public: - CCC_GameDifficulty(LPCSTR N) : CCC_Token(N,(u32*)&g_SingleGameDifficulty,difficulty_type_token) {}; - virtual void Execute(LPCSTR args) { - CCC_Token::Execute(args); - if (g_pGameLevel && Level().game){ -//#ifndef DEBUG - if (GameID() != eGameIDSingle){ - Msg("For this game type difficulty level is disabled."); - return; - }; -//#endif - - game_cl_Single* game = smart_cast(Level().game); VERIFY(game); - game->OnDifficultyChanged (); - } - } - virtual void Info (TInfo& I) - { - xr_strcpy(I,"game difficulty"); - } + CCC_GameDifficulty(LPCSTR N) : CCC_Token(N, (u32*) &g_SingleGameDifficulty, difficulty_type_token) {}; + virtual void Execute(LPCSTR args) + { + CCC_Token::Execute(args); + if (g_pGameLevel && Level().game) + { + //#ifndef DEBUG + if (GameID() != eGameIDSingle) + { + Msg("For this game type difficulty level is disabled."); + return; + }; + //#endif + + game_cl_Single* game = smart_cast(Level().game); VERIFY(game); + game->OnDifficultyChanged(); + } + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "game difficulty"); + } }; - - - - #ifdef DEBUG -class CCC_ALifePath : public IConsole_Command { +class CCC_ALifePath : public IConsole_Command +{ public: - CCC_ALifePath(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - if (!ai().get_level_graph()) - Msg("! there is no graph!"); - else { - int id1=-1, id2=-1; - sscanf(args ,"%d %d",&id1,&id2); - if ((-1 != id1) && (-1 != id2)) - if (_max(id1,id2) > (int)ai().game_graph().header().vertex_count() - 1) - Msg("! there are only %d vertexes!",ai().game_graph().header().vertex_count()); - else - if (_min(id1,id2) < 0) - Msg("! invalid vertex number (%d)!",_min(id1,id2)); - else { -// Sleep (1); -// CTimer timer; -// timer.Start (); -// float fValue = ai().m_tpAStar->ffFindMinimalPath(id1,id2); -// Msg ("* %7.2f[%d] : %11I64u cycles (%.3f microseconds)",fValue,ai().m_tpAStar->m_tpaNodes.size(),timer.GetElapsed_ticks(),timer.GetElapsed_ms()*1000.f); - } - else - Msg("! not enough parameters!"); - } - } + CCC_ALifePath(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + Msg("! there is no graph!"); + else + { + int id1 = -1, id2 = -1; + sscanf(args, "%d %d", &id1, &id2); + if ((-1 != id1) && (-1 != id2)) + if (_max(id1, id2) > (int) ai().game_graph().header().vertex_count() - 1) + Msg("! there are only %d vertexes!", ai().game_graph().header().vertex_count()); + else + if (_min(id1, id2) < 0) + Msg("! invalid vertex number (%d)!", _min(id1, id2)); + else + { + // Sleep (1); + // CTimer timer; + // timer.Start (); + // float fValue = ai().m_tpAStar->ffFindMinimalPath(id1,id2); + // Msg ("* %7.2f[%d] : %11I64u cycles (%.3f microseconds)",fValue,ai().m_tpAStar->m_tpaNodes.size(),timer.GetElapsed_ticks(),timer.GetElapsed_ms()*1000.f); + } + else + Msg("! not enough parameters!"); + } + } }; #endif // DEBUG -class CCC_ALifeTimeFactor : public IConsole_Command { +class CCC_ALifeTimeFactor : public IConsole_Command +{ public: - CCC_ALifeTimeFactor(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - float id1 = 0.0f; - sscanf(args ,"%f",&id1); - if (id1 < EPS_L) - Msg("Invalid time factor! (%.4f)",id1); - else { - if (!OnServer()) - return; - - Level().SetGameTimeFactor(id1); - } - } - - virtual void Save (IWriter *F) {}; - virtual void Status (TStatus& S) - { - if ( !g_pGameLevel ) return; - - float v = Level().GetGameTimeFactor(); - xr_sprintf (S,sizeof(S),"%3.5f", v); - while (xr_strlen(S) && ('0'==S[xr_strlen(S)-1])) S[xr_strlen(S)-1] = 0; - } - virtual void Info (TInfo& I) - { - if (!OnServer()) return; - float v = Level().GetGameTimeFactor(); - xr_sprintf(I,sizeof(I)," value = %3.5f", v); - } - virtual void fill_tips(vecTips& tips, u32 mode) - { - if (!OnServer()) return; - float v = Level().GetGameTimeFactor(); - - TStatus str; - xr_sprintf( str, sizeof(str), "%3.5f (current) [0.0,1000.0]", v ); - tips.push_back( str ); - IConsole_Command::fill_tips( tips, mode ); - } + CCC_ALifeTimeFactor(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + float id1 = 0.0f; + sscanf(args, "%f", &id1); + if (id1 < EPS_L) + Msg("Invalid time factor! (%.4f)", id1); + else + { + if (!OnServer()) + return; + + Level().SetGameTimeFactor(id1); + } + } + + virtual void Save(IWriter *F) {}; + virtual void Status(TStatus& S) + { + if (!g_pGameLevel) return; + + float v = Level().GetGameTimeFactor(); + xr_sprintf(S, sizeof(S), "%3.5f", v); + while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; + } + virtual void Info(TInfo& I) + { + if (!OnServer()) return; + float v = Level().GetGameTimeFactor(); + xr_sprintf(I, sizeof(I), " value = %3.5f", v); + } + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (!OnServer()) return; + float v = Level().GetGameTimeFactor(); + + TStatus str; + xr_sprintf(str, sizeof(str), "%3.5f (current) [0.0,1000.0]", v); + tips.push_back(str); + IConsole_Command::fill_tips(tips, mode); + } }; -class CCC_ALifeSwitchDistance : public IConsole_Command { +class CCC_ALifeSwitchDistance : public IConsole_Command +{ public: - CCC_ALifeSwitchDistance(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - if ((GameID() == eGameIDSingle) &&ai().get_alife()) { - float id1 = 0.0f; - sscanf(args ,"%f",&id1); - if (id1 < 2.0f) - Msg("Invalid online distance! (%.4f)",id1); - else { - NET_Packet P; - P.w_begin (M_SWITCH_DISTANCE); - P.w_float (id1); - Level().Send (P,net_flags(TRUE,TRUE)); - } - } - else - Log("!Not a single player game!"); - } + CCC_ALifeSwitchDistance(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + float id1 = 0.0f; + sscanf(args, "%f", &id1); + if (id1 < 2.0f) + Msg("Invalid online distance! (%.4f)", id1); + else + { + NET_Packet P; + P.w_begin(M_SWITCH_DISTANCE); + P.w_float(id1); + Level().Send(P, net_flags(TRUE, TRUE)); + } + } + else + Log("!Not a single player game!"); + } }; -class CCC_ALifeProcessTime : public IConsole_Command { +class CCC_ALifeProcessTime : public IConsole_Command +{ public: - CCC_ALifeProcessTime(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - if ((GameID() == eGameIDSingle) &&ai().get_alife()) { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY (tpGame); - int id1 = 0; - sscanf(args ,"%d",&id1); - if (id1 < 1) - Msg("Invalid process time! (%d)",id1); - else - tpGame->alife().set_process_time(id1); - } - else - Log("!Not a single player game!"); - } - + CCC_ALifeProcessTime(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + int id1 = 0; + sscanf(args, "%d", &id1); + if (id1 < 1) + Msg("Invalid process time! (%d)", id1); + else + tpGame->alife().set_process_time(id1); + } + else + Log("!Not a single player game!"); + } }; - -class CCC_ALifeObjectsPerUpdate : public IConsole_Command { +class CCC_ALifeObjectsPerUpdate : public IConsole_Command +{ public: - CCC_ALifeObjectsPerUpdate(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - if ((GameID() == eGameIDSingle) &&ai().get_alife()) { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY (tpGame); - int id1 = 0; - sscanf(args ,"%d",&id1); - tpGame->alife().objects_per_update(id1); - } - else - Log("!Not a single player game!"); - } + CCC_ALifeObjectsPerUpdate(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + int id1 = 0; + sscanf(args, "%d", &id1); + tpGame->alife().objects_per_update(id1); + } + else + Log("!Not a single player game!"); + } }; -class CCC_ALifeSwitchFactor : public IConsole_Command { +class CCC_ALifeSwitchFactor : public IConsole_Command +{ public: - CCC_ALifeSwitchFactor(LPCSTR N) : IConsole_Command(N) { }; - virtual void Execute(LPCSTR args) { - if ((GameID() == eGameIDSingle) &&ai().get_alife()) { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY (tpGame); - float id1 = 0; - sscanf(args ,"%f",&id1); - clamp(id1,.1f,1.f); - tpGame->alife().set_switch_factor(id1); - } - else - Log ("!Not a single player game!"); - } + CCC_ALifeSwitchFactor(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + float id1 = 0; + sscanf(args, "%f", &id1); + clamp(id1, .1f, 1.f); + tpGame->alife().set_switch_factor(id1); + } + else + Log("!Not a single player game!"); + } }; //----------------------------------------------------------------------- @@ -392,1104 +412,1162 @@ class CCC_DemoRecord : public IConsole_Command { public: - CCC_DemoRecord(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) { - #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Record is disabled."); - // return; - //}; - #endif - Console->Hide (); - - LPSTR fn_; - STRCONCAT (fn_, args, ".xrdemo"); - string_path fn; - FS.update_path (fn, "$game_saves$", fn_); - - g_pGameLevel->Cameras().AddCamEffector(xr_new (fn)); - } + CCC_DemoRecord(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { +#ifndef DEBUG + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Record is disabled."); + // return; + //}; +#endif + Console->Hide(); + + LPSTR fn_; + STRCONCAT(fn_, args, ".xrdemo"); + string_path fn; + FS.update_path(fn, "$game_saves$", fn_); + + g_pGameLevel->Cameras().AddCamEffector(xr_new(fn)); + } }; class CCC_DemoRecordSetPos : public CCC_Vector3 { - static Fvector p; + static Fvector p; public: - CCC_DemoRecordSetPos(LPCSTR N) : CCC_Vector3( N, &p, Fvector().set( -FLT_MAX, -FLT_MAX, -FLT_MAX ),Fvector().set( FLT_MAX, FLT_MAX, FLT_MAX ) ) {}; - virtual void Execute(LPCSTR args) { - #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Record is disabled."); - // return; - //}; - #endif - CDemoRecord::GetGlobalPosition( p ); - CCC_Vector3::Execute(args); - CDemoRecord::SetGlobalPosition( p ); - } - virtual void Save (IWriter *F) {;} - + CCC_DemoRecordSetPos(LPCSTR N) : CCC_Vector3(N, &p, Fvector().set(-FLT_MAX, -FLT_MAX, -FLT_MAX), Fvector().set(FLT_MAX, FLT_MAX, FLT_MAX)) {}; + virtual void Execute(LPCSTR args) + { +#ifndef DEBUG + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Record is disabled."); + // return; + //}; +#endif + CDemoRecord::GetGlobalPosition(p); + CCC_Vector3::Execute(args); + CDemoRecord::SetGlobalPosition(p); + } + virtual void Save(IWriter *F) { ; } }; -Fvector CCC_DemoRecordSetPos::p = {0,0,0}; +Fvector CCC_DemoRecordSetPos::p = {0, 0, 0}; class CCC_DemoPlay : public IConsole_Command { public: - CCC_DemoPlay(LPCSTR N) : - IConsole_Command(N) - { bEmptyArgsHandled = TRUE; }; - virtual void Execute(LPCSTR args) { - #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Play is disabled."); - // return; - //}; - #endif - if (0==g_pGameLevel) - { - Msg ("! There are no level(s) started"); - } else { - Console->Hide (); - string_path fn; - u32 loops = 0; - LPSTR comma = strchr(const_cast(args),','); - if (comma) { - loops = atoi (comma+1); - *comma = 0; //. :) - } - strconcat (sizeof(fn),fn, args, ".xrdemo"); - FS.update_path (fn, "$game_saves$", fn); - g_pGameLevel->Cameras().AddCamEffector(xr_new (fn, 1.0f, loops)); - } - } + CCC_DemoPlay(LPCSTR N) : + IConsole_Command(N) + { + bEmptyArgsHandled = TRUE; + }; + virtual void Execute(LPCSTR args) + { +#ifndef DEBUG + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Play is disabled."); + // return; + //}; +#endif + if (0 == g_pGameLevel) + { + Msg("! There are no level(s) started"); + } + else + { + Console->Hide(); + string_path fn; + u32 loops = 0; + LPSTR comma = strchr(const_cast(args), ','); + if (comma) + { + loops = atoi(comma + 1); + *comma = 0; //. :) + } + strconcat(sizeof(fn), fn, args, ".xrdemo"); + FS.update_path(fn, "$game_saves$", fn); + g_pGameLevel->Cameras().AddCamEffector(xr_new(fn, 1.0f, loops)); + } + } }; // helper functions -------------------------------------------- bool valid_saved_game_name(LPCSTR file_name) { - LPCSTR I = file_name; - LPCSTR E = file_name + xr_strlen(file_name); - for ( ; I != E; ++I) { - if (!strchr("/\\:*?\"<>|^()[]%",*I)) - continue; + LPCSTR I = file_name; + LPCSTR E = file_name + xr_strlen(file_name); + for (; I != E; ++I) + { + if (!strchr("/\\:*?\"<>|^()[]%", *I)) + continue; - return (false); - }; + return (false); + }; - return (true); + return (true); } -void get_files_list( xr_vector& files, LPCSTR dir, LPCSTR file_ext ) +void get_files_list(xr_vector& files, LPCSTR dir, LPCSTR file_ext) { - VERIFY( dir && file_ext ); - files.clear_not_free(); - - FS_Path* P = FS.get_path( dir ); - P->m_Flags.set( FS_Path::flNeedRescan, TRUE ); - FS.m_Flags.set( CLocatorAPI::flNeedCheck, TRUE ); - FS.rescan_pathes(); - - LPCSTR fext; - STRCONCAT( fext, "*", file_ext ); - - FS_FileSet files_set; - FS.file_list( files_set, dir, FS_ListFiles, fext ); - u32 len_str_ext = xr_strlen( file_ext ); - - FS_FileSetIt itb = files_set.begin(); - FS_FileSetIt ite = files_set.end(); - - for( ; itb != ite; ++itb ) - { - LPCSTR fn_ext = (*itb).name.c_str(); - VERIFY( xr_strlen(fn_ext) > len_str_ext ); - string_path fn; - strncpy_s( fn, sizeof(fn), fn_ext, xr_strlen(fn_ext)-len_str_ext ); - files.push_back( fn ); - } - FS.m_Flags.set( CLocatorAPI::flNeedCheck, FALSE ); + VERIFY(dir && file_ext); + files.clear_not_free(); + + FS_Path* P = FS.get_path(dir); + P->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.m_Flags.set(CLocatorAPI::flNeedCheck, TRUE); + FS.rescan_pathes(); + + LPCSTR fext; + STRCONCAT(fext, "*", file_ext); + + FS_FileSet files_set; + FS.file_list(files_set, dir, FS_ListFiles, fext); + u32 len_str_ext = xr_strlen(file_ext); + + FS_FileSetIt itb = files_set.begin(); + FS_FileSetIt ite = files_set.end(); + + for (; itb != ite; ++itb) + { + LPCSTR fn_ext = (*itb).name.c_str(); + VERIFY(xr_strlen(fn_ext) > len_str_ext); + string_path fn; + strncpy_s(fn, sizeof(fn), fn_ext, xr_strlen(fn_ext) - len_str_ext); + files.push_back(fn); + } + FS.m_Flags.set(CLocatorAPI::flNeedCheck, FALSE); } #include "UIGameCustom.h" -class CCC_ALifeSave : public IConsole_Command { +class CCC_ALifeSave : public IConsole_Command +{ public: - CCC_ALifeSave(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - + CCC_ALifeSave(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { #if 0 - if (!Level().autosave_manager().ready_for_autosave()) { - Msg ("! Cannot save the game right now!"); - return; - } + if (!Level().autosave_manager().ready_for_autosave()) { + Msg ("! Cannot save the game right now!"); + return; + } #endif - if(!IsGameTypeSingle()){ - Msg("for single-mode only"); - return; - } - if(!g_actor || !Actor()->g_Alive()) - { - Msg("cannot make saved game because actor is dead :("); - return; - } - - Console->Execute ("stat_memory"); - - string_path S, S1; - S[0] = 0; - strncpy_s (S, sizeof(S), args, _MAX_PATH - 1 ); - + if (!IsGameTypeSingle()) + { + Msg("for single-mode only"); + return; + } + if (!g_actor || !Actor()->g_Alive()) + { + Msg("cannot make saved game because actor is dead :("); + return; + } + + Console->Execute("stat_memory"); + + string_path S, S1; + S[0] = 0; + strncpy_s(S, sizeof(S), args, _MAX_PATH - 1); + #ifdef DEBUG - CTimer timer; - timer.Start (); + CTimer timer; + timer.Start(); #endif - if (!xr_strlen(S)){ - strconcat (sizeof(S),S,Core.UserName," - ","quicksave"); - NET_Packet net_packet; - net_packet.w_begin (M_SAVE_GAME); - net_packet.w_stringZ(S); - net_packet.w_u8 (0); - Level().Send (net_packet,net_flags(TRUE)); - }else{ - if(!valid_saved_game_name(S)){ - Msg("! Save failed: invalid file name - %s", S); - return; - } - - NET_Packet net_packet; - net_packet.w_begin (M_SAVE_GAME); - net_packet.w_stringZ(S); - net_packet.w_u8 (1); - Level().Send (net_packet,net_flags(TRUE)); - } + if (!xr_strlen(S)) + { + strconcat(sizeof(S), S, Core.UserName, " - ", "quicksave"); + NET_Packet net_packet; + net_packet.w_begin(M_SAVE_GAME); + net_packet.w_stringZ(S); + net_packet.w_u8(0); + Level().Send(net_packet, net_flags(TRUE)); + } + else + { + if (!valid_saved_game_name(S)) + { + Msg("! Save failed: invalid file name - %s", S); + return; + } + + NET_Packet net_packet; + net_packet.w_begin(M_SAVE_GAME); + net_packet.w_stringZ(S); + net_packet.w_u8(1); + Level().Send(net_packet, net_flags(TRUE)); + } #ifdef DEBUG - Msg ("Game save overhead : %f milliseconds",timer.GetElapsed_sec()*1000.f); + Msg("Game save overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); #endif - StaticDrawableWrapper* _s = CurrentGameUI()->AddCustomStatic("game_saved", true); - LPSTR save_name; - STRCONCAT (save_name, CStringTable().translate("st_game_saved").c_str(), ": ", S); - _s->wnd()->TextItemControl()->SetText(save_name); - - xr_strcat (S,".dds"); - FS.update_path (S1,"$game_saves$",S); - + StaticDrawableWrapper* _s = CurrentGameUI()->AddCustomStatic("game_saved", true); + LPSTR save_name; + STRCONCAT(save_name, CStringTable().translate("st_game_saved").c_str(), ": ", S); + _s->wnd()->TextItemControl()->SetText(save_name); + + xr_strcat(S, ".dds"); + FS.update_path(S1, "$game_saves$", S); + #ifdef DEBUG - timer.Start (); + timer.Start(); #endif - MainMenu()->Screenshot (IRender_interface::SM_FOR_GAMESAVE,S1); + MainMenu()->Screenshot(IRender_interface::SM_FOR_GAMESAVE, S1); #ifdef DEBUG - Msg ("Screenshot overhead : %f milliseconds",timer.GetElapsed_sec()*1000.f); + Msg("Screenshot overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); #endif - }//virtual void Execute - - virtual void fill_tips (vecTips& tips, u32 mode) - { - get_files_list (tips, "$game_saves$", SAVE_EXTENSION); - } + }//virtual void Execute + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_saves$", SAVE_EXTENSION); + } };//CCC_ALifeSave -class CCC_ALifeLoadFrom : public IConsole_Command { +class CCC_ALifeLoadFrom : public IConsole_Command +{ public: - CCC_ALifeLoadFrom(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute( LPCSTR args ) - { - string_path saved_game; - strncpy_s (saved_game, sizeof(saved_game), args, _MAX_PATH - 1 ); - - if (!ai().get_alife()) { - Log ("! ALife simulator has not been started yet"); - return; - } - - if (!xr_strlen(saved_game)) { - Log ("! Specify file name!"); - return; - } - - if (!CSavedGameWrapper::saved_game_exist(saved_game)) { - Msg ("! Cannot find saved game %s",saved_game); - return; - } - - if (!CSavedGameWrapper::valid_saved_game(saved_game)) { - Msg ("! Cannot load saved game %s, version mismatch or saved game is corrupted",saved_game); - return; - } - - if ( !valid_saved_game_name(saved_game) ) - { - Msg ("! Cannot load saved game %s, invalid file name",saved_game); - return; - } - -/* moved to level_network_messages.cpp - CSavedGameWrapper wrapper(args); - if (wrapper.level_id() == ai().level_graph().level_id()) { - if (Device.Paused()) - Device.Pause (FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); - - Level().remove_objects (); - - game_sv_Single *game = smart_cast(Level().Server->game); - R_ASSERT (game); - game->restart_simulator (saved_game); - - return; - } -*/ - - if(MainMenu()->IsActive()) - MainMenu()->Activate(false); - - Console->Execute ("stat_memory"); - - if (Device.Paused()) - Device.Pause (FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); - - NET_Packet net_packet; - net_packet.w_begin (M_LOAD_GAME); - net_packet.w_stringZ (saved_game); - Level().Send (net_packet,net_flags(TRUE)); - } - - virtual void fill_tips (vecTips& tips, u32 mode) - { - get_files_list (tips, "$game_saves$", SAVE_EXTENSION); - } - + CCC_ALifeLoadFrom(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + string_path saved_game; + strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); + + if (!ai().get_alife()) + { + Log("! ALife simulator has not been started yet"); + return; + } + + if (!xr_strlen(saved_game)) + { + Log("! Specify file name!"); + return; + } + + if (!CSavedGameWrapper::saved_game_exist(saved_game)) + { + Msg("! Cannot find saved game %s", saved_game); + return; + } + + if (!CSavedGameWrapper::valid_saved_game(saved_game)) + { + Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", saved_game); + return; + } + + if (!valid_saved_game_name(saved_game)) + { + Msg("! Cannot load saved game %s, invalid file name", saved_game); + return; + } + + /* moved to level_network_messages.cpp + CSavedGameWrapper wrapper(args); + if (wrapper.level_id() == ai().level_graph().level_id()) { + if (Device.Paused()) + Device.Pause (FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); + + Level().remove_objects (); + + game_sv_Single *game = smart_cast(Level().Server->game); + R_ASSERT (game); + game->restart_simulator (saved_game); + + return; + } + */ + + if (MainMenu()->IsActive()) + MainMenu()->Activate(false); + + Console->Execute("stat_memory"); + + if (Device.Paused()) + Device.Pause(FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); + + NET_Packet net_packet; + net_packet.w_begin(M_LOAD_GAME); + net_packet.w_stringZ(saved_game); + Level().Send(net_packet, net_flags(TRUE)); + } + + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_saves$", SAVE_EXTENSION); + } };//CCC_ALifeLoadFrom -class CCC_LoadLastSave : public IConsole_Command { +class CCC_LoadLastSave : public IConsole_Command +{ public: - CCC_LoadLastSave (LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute (LPCSTR args) - { - string_path saved_game = ""; - if ( args ) - { - strncpy_s (saved_game, sizeof(saved_game), args, _MAX_PATH - 1 ); - } - - - if (saved_game && *saved_game) - { - xr_strcpy (g_last_saved_game,saved_game); - return; - } - - if (!*g_last_saved_game) { - Msg ("! cannot load last saved game since it hasn't been specified"); - return; - } - - if (!CSavedGameWrapper::saved_game_exist(g_last_saved_game)) { - Msg ("! Cannot find saved game %s",g_last_saved_game); - return; - } - - if (!CSavedGameWrapper::valid_saved_game(g_last_saved_game)) { - Msg ("! Cannot load saved game %s, version mismatch or saved game is corrupted",g_last_saved_game); - return; - } - - if ( !valid_saved_game_name(g_last_saved_game) ) - { - Msg ("! Cannot load saved game %s, invalid file name",g_last_saved_game); - return; - } - - LPSTR command; - if (ai().get_alife()) { - STRCONCAT (command, "load ", g_last_saved_game); - Console->Execute (command); - return; - } - - STRCONCAT (command, "start server(", g_last_saved_game, "/single/alife/load)"); - Console->Execute (command); - } - - virtual void Save (IWriter *F) - { - if (!*g_last_saved_game) - return; - - F->w_printf ("%s %s\r\n",cName,g_last_saved_game); - } + CCC_LoadLastSave(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + string_path saved_game = ""; + if (args) + { + strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); + } + + if (saved_game && *saved_game) + { + xr_strcpy(g_last_saved_game, saved_game); + return; + } + + if (!*g_last_saved_game) + { + Msg("! cannot load last saved game since it hasn't been specified"); + return; + } + + if (!CSavedGameWrapper::saved_game_exist(g_last_saved_game)) + { + Msg("! Cannot find saved game %s", g_last_saved_game); + return; + } + + if (!CSavedGameWrapper::valid_saved_game(g_last_saved_game)) + { + Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", g_last_saved_game); + return; + } + + if (!valid_saved_game_name(g_last_saved_game)) + { + Msg("! Cannot load saved game %s, invalid file name", g_last_saved_game); + return; + } + + LPSTR command; + if (ai().get_alife()) + { + STRCONCAT(command, "load ", g_last_saved_game); + Console->Execute(command); + return; + } + + STRCONCAT(command, "start server(", g_last_saved_game, "/single/alife/load)"); + Console->Execute(command); + } + + virtual void Save(IWriter *F) + { + if (!*g_last_saved_game) + return; + + F->w_printf("%s %s\r\n", cName, g_last_saved_game); + } }; -class CCC_FlushLog : public IConsole_Command { +class CCC_FlushLog : public IConsole_Command +{ public: - CCC_FlushLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR /**args/**/) { - FlushLog(); - Msg ("* Log file has been saved successfully!"); - } + CCC_FlushLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR /**args/**/) + { + FlushLog(); + Msg("* Log file has been saved successfully!"); + } }; -class CCC_ClearLog : public IConsole_Command { +class CCC_ClearLog : public IConsole_Command +{ public: - CCC_ClearLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) { - LogFile->clear_not_free (); - FlushLog (); - Msg ("* Log file has been cleaned successfully!"); - } + CCC_ClearLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + LogFile->clear_not_free(); + FlushLog(); + Msg("* Log file has been cleaned successfully!"); + } }; -class CCC_FloatBlock : public CCC_Float { +class CCC_FloatBlock : public CCC_Float +{ public: - CCC_FloatBlock(LPCSTR N, float* V, float _min=0, float _max=1) : - CCC_Float(N,V,_min,_max) - {}; + CCC_FloatBlock(LPCSTR N, float* V, float _min = 0, float _max = 1) : + CCC_Float(N, V, _min, _max) + { + }; - virtual void Execute (LPCSTR args) - { + virtual void Execute(LPCSTR args) + { #ifdef _DEBUG - CCC_Float::Execute(args); + CCC_Float::Execute(args); #else - if (!g_pGameLevel || GameID() == eGameIDSingle) - CCC_Float::Execute(args); - else - { - Msg ("! Command disabled for this type of game"); - } + if (!g_pGameLevel || GameID() == eGameIDSingle) + CCC_Float::Execute(args); + else + { + Msg("! Command disabled for this type of game"); + } #endif - } + } }; - - -class CCC_Net_CL_InputUpdateRate : public CCC_Integer { +class CCC_Net_CL_InputUpdateRate : public CCC_Integer +{ protected: - int *value_blin; + int *value_blin; public: - CCC_Net_CL_InputUpdateRate(LPCSTR N, int* V, int _min=0, int _max=999) : - CCC_Integer(N,V,_min,_max), - value_blin(V) - {}; - - virtual void Execute (LPCSTR args) - { - CCC_Integer::Execute(args); - if ((*value_blin > 0) && g_pGameLevel) - { - g_dwInputUpdateDelta = 1000/(*value_blin); - }; - } + CCC_Net_CL_InputUpdateRate(LPCSTR N, int* V, int _min = 0, int _max = 999) : + CCC_Integer(N, V, _min, _max), + value_blin(V) + { + }; + + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + if ((*value_blin > 0) && g_pGameLevel) + { + g_dwInputUpdateDelta = 1000 / (*value_blin); + }; + } }; - #ifdef DEBUG -class CCC_DrawGameGraphAll : public IConsole_Command { +class CCC_DrawGameGraphAll : public IConsole_Command +{ public: - CCC_DrawGameGraphAll (LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute (LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - ai().level_graph().setup_current_level (-1); - } + CCC_DrawGameGraphAll(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + ai().level_graph().setup_current_level(-1); + } }; -class CCC_DrawGameGraphCurrent : public IConsole_Command { +class CCC_DrawGameGraphCurrent : public IConsole_Command +{ public: - CCC_DrawGameGraphCurrent (LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute (LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - ai().level_graph().setup_current_level ( - ai().level_graph().level_id() - ); - } + CCC_DrawGameGraphCurrent(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + ai().level_graph().setup_current_level( + ai().level_graph().level_id() + ); + } }; -class CCC_DrawGameGraphLevel : public IConsole_Command { +class CCC_DrawGameGraphLevel : public IConsole_Command +{ public: - CCC_DrawGameGraphLevel (LPCSTR N) : IConsole_Command(N) - { - } - - virtual void Execute (LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - if (!*args) { - ai().level_graph().setup_current_level (-1); - return; - } - - const GameGraph::SLevel *level = ai().game_graph().header().level(args,true); - if (!level) { - Msg ("! There is no level %s in the game graph",args); - return; - } - - ai().level_graph().setup_current_level (level->id()); - } + CCC_DrawGameGraphLevel(LPCSTR N) : IConsole_Command(N) + { + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + if (!*args) + { + ai().level_graph().setup_current_level(-1); + return; + } + + const GameGraph::SLevel *level = ai().game_graph().header().level(args, true); + if (!level) + { + Msg("! There is no level %s in the game graph", args); + return; + } + + ai().level_graph().setup_current_level(level->id()); + } }; #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) class CCC_ScriptDbg : public IConsole_Command { public: - CCC_ScriptDbg(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - - if(strstr(cName,"script_debug_break")==cName ){ - - CScriptDebugger* d = ai().script_engine().debugger(); - if(d){ - if(d->Active()) - d->initiateDebugBreak(); - else - Msg("Script debugger not active."); - }else - Msg("Script debugger not present."); - } - else if(strstr(cName,"script_debug_stop")==cName ){ - ai().script_engine().stopDebugger(); - } - else if(strstr(cName,"script_debug_restart")==cName ){ - ai().script_engine().restartDebugger(); - }; - }; - - - virtual void Info (TInfo& I) - { - if(strstr(cName,"script_debug_break")==cName ) - xr_strcpy(I,"initiate script debugger [DebugBreak] command"); - - else if(strstr(cName,"script_debug_stop")==cName ) - xr_strcpy(I,"stop script debugger activity"); - - else if(strstr(cName,"script_debug_restart")==cName ) - xr_strcpy(I,"restarts script debugger or start if no script debugger presents"); - } + CCC_ScriptDbg(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) { + if(strstr(cName,"script_debug_break")==cName ){ + CScriptDebugger* d = ai().script_engine().debugger(); + if(d){ + if(d->Active()) + d->initiateDebugBreak(); + else + Msg("Script debugger not active."); + }else + Msg("Script debugger not present."); + } + else if(strstr(cName,"script_debug_stop")==cName ){ + ai().script_engine().stopDebugger(); + } + else if(strstr(cName,"script_debug_restart")==cName ){ + ai().script_engine().restartDebugger(); + }; + }; + + virtual void Info (TInfo& I) + { + if(strstr(cName,"script_debug_break")==cName ) + xr_strcpy(I,"initiate script debugger [DebugBreak] command"); + + else if(strstr(cName,"script_debug_stop")==cName ) + xr_strcpy(I,"stop script debugger activity"); + + else if(strstr(cName,"script_debug_restart")==cName ) + xr_strcpy(I,"restarts script debugger or start if no script debugger presents"); + } }; #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) -class CCC_ScriptLuaStudioConnect : public IConsole_Command { +class CCC_ScriptLuaStudioConnect : public IConsole_Command +{ public: - CCC_ScriptLuaStudioConnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - ai().script_engine().try_connect_to_debugger (); - }; + CCC_ScriptLuaStudioConnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + ai().script_engine().try_connect_to_debugger(); + }; }; -class CCC_ScriptLuaStudioDisconnect : public IConsole_Command { +class CCC_ScriptLuaStudioDisconnect : public IConsole_Command +{ public: - CCC_ScriptLuaStudioDisconnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - ai().script_engine().disconnect_from_debugger (); - }; + CCC_ScriptLuaStudioDisconnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + ai().script_engine().disconnect_from_debugger(); + }; }; #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) -class CCC_DumpInfos : public IConsole_Command { +class CCC_DumpInfos : public IConsole_Command +{ public: - CCC_DumpInfos (LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute (LPCSTR args) { - CActor* A =smart_cast(Level().CurrentEntity()); - if(A) - A->DumpInfo(); - } - virtual void Info (TInfo& I) - { - xr_strcpy(I,"dumps all infoportions that actor have"); - } + CCC_DumpInfos(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + CActor* A = smart_cast(Level().CurrentEntity()); + if (A) + A->DumpInfo(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all infoportions that actor have"); + } }; -class CCC_DumpTasks : public IConsole_Command { +class CCC_DumpTasks : public IConsole_Command +{ public: - CCC_DumpTasks (LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute (LPCSTR args) { - CActor* A =smart_cast(Level().CurrentEntity()); - if(A) - A->DumpTasks(); - } - virtual void Info (TInfo& I) - { - xr_strcpy(I,"dumps all tasks that actor have"); - } + CCC_DumpTasks(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + CActor* A = smart_cast(Level().CurrentEntity()); + if (A) + A->DumpTasks(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all tasks that actor have"); + } }; #include "map_manager.h" -class CCC_DumpMap : public IConsole_Command { +class CCC_DumpMap : public IConsole_Command +{ public: - CCC_DumpMap (LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute (LPCSTR args) { - Level().MapManager().Dump(); - } - virtual void Info (TInfo& I) - { - xr_strcpy(I,"dumps all currentmap locations"); - } - + CCC_DumpMap(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + Level().MapManager().Dump(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all currentmap locations"); + } }; #include "alife_graph_registry.h" -class CCC_DumpCreatures : public IConsole_Command { +class CCC_DumpCreatures : public IConsole_Command +{ public: - CCC_DumpCreatures (LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute (LPCSTR args) { - - typedef CSafeMapIterator::_REGISTRY::const_iterator const_iterator; - - const_iterator I = ai().alife().graph().level().objects().begin(); - const_iterator E = ai().alife().graph().level().objects().end(); - for ( ; I != E; ++I) { - CSE_ALifeCreatureAbstract *obj = smart_cast(I->second); - if (obj) { - Msg("\"%s\",",obj->name_replace()); - } - } - - } - virtual void Info (TInfo& I) - { - xr_strcpy(I,"dumps all creature names"); - } - + CCC_DumpCreatures(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + typedef CSafeMapIterator::_REGISTRY::const_iterator const_iterator; + + const_iterator I = ai().alife().graph().level().objects().begin(); + const_iterator E = ai().alife().graph().level().objects().end(); + for (; I != E; ++I) + { + CSE_ALifeCreatureAbstract *obj = smart_cast(I->second); + if (obj) + { + Msg("\"%s\",", obj->name_replace()); + } + } + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all creature names"); + } }; - - -class CCC_DebugFonts : public IConsole_Command { +class CCC_DebugFonts : public IConsole_Command +{ public: - CCC_DebugFonts (LPCSTR N) : IConsole_Command(N) {bEmptyArgsHandled = true; } - virtual void Execute (LPCSTR args) - { - xr_new()->ShowDialog(true); - } + CCC_DebugFonts(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; } + virtual void Execute(LPCSTR args) + { + xr_new()->ShowDialog(true); + } }; -class CCC_DebugNode : public IConsole_Command { +class CCC_DebugNode : public IConsole_Command +{ public: - CCC_DebugNode(LPCSTR N) : IConsole_Command(N) { }; - - virtual void Execute(LPCSTR args) { - - string128 param1, param2; - VERIFY( xr_strlen(args) < sizeof(string128) ); - - _GetItem(args,0,param1,' '); - _GetItem(args,1,param2,' '); - - u32 value1; - u32 value2; - - sscanf(param1,"%u",&value1); - sscanf(param2,"%u",&value2); - - if ((value1 > 0) && (value2 > 0)) { - g_bDebugNode = TRUE; - g_dwDebugNodeSource = value1; - g_dwDebugNodeDest = value2; - } else { - g_bDebugNode = FALSE; - } - } + CCC_DebugNode(LPCSTR N) : IConsole_Command(N) {}; + + virtual void Execute(LPCSTR args) + { + string128 param1, param2; + VERIFY(xr_strlen(args) < sizeof(string128)); + + _GetItem(args, 0, param1, ' '); + _GetItem(args, 1, param2, ' '); + + u32 value1; + u32 value2; + + sscanf(param1, "%u", &value1); + sscanf(param2, "%u", &value2); + + if ((value1 > 0) && (value2 > 0)) + { + g_bDebugNode = TRUE; + g_dwDebugNodeSource = value1; + g_dwDebugNodeDest = value2; + } + else + { + g_bDebugNode = FALSE; + } + } }; -class CCC_ShowMonsterInfo : public IConsole_Command { +class CCC_ShowMonsterInfo : public IConsole_Command +{ public: - CCC_ShowMonsterInfo(LPCSTR N) : IConsole_Command(N) { }; + CCC_ShowMonsterInfo(LPCSTR N) : IConsole_Command(N) {}; + + virtual void Execute(LPCSTR args) + { + string128 param1, param2; + VERIFY(xr_strlen(args) < sizeof(string128)); - virtual void Execute(LPCSTR args) { + _GetItem(args, 0, param1, ' '); + _GetItem(args, 1, param2, ' '); - string128 param1, param2; - VERIFY( xr_strlen(args) < sizeof(string128) ); + CObject *obj = Level().Objects.FindObjectByName(param1); + CBaseMonster *monster = smart_cast(obj); + if (!monster) return; - _GetItem(args,0,param1,' '); - _GetItem(args,1,param2,' '); + u32 value2; - CObject *obj = Level().Objects.FindObjectByName(param1); - CBaseMonster *monster = smart_cast(obj); - if (!monster) return; - - u32 value2; - - sscanf (param2,"%u",&value2); - monster->set_show_debug_info (u8(value2)); - } + sscanf(param2, "%u", &value2); + monster->set_show_debug_info(u8(value2)); + } }; void PH_DBG_SetTrackObject(); extern string64 s_dbg_trace_obj_name; -class CCC_DbgPhTrackObj : public CCC_String { +class CCC_DbgPhTrackObj : public CCC_String +{ public: - CCC_DbgPhTrackObj( LPCSTR N ) : CCC_String( N, s_dbg_trace_obj_name, sizeof(s_dbg_trace_obj_name) ) { }; - virtual void Execute(LPCSTR args/**/) { - CCC_String::Execute( args ); - if(!xr_strcmp(args,"none")) - { - ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,FALSE); - return; - } - ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,TRUE); - PH_DBG_SetTrackObject(); - //CObject* O= Level().Objects.FindObjectByName(args); - //if(O) - //{ - // PH_DBG_SetTrackObject(*(O->cName())); - // ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,TRUE); - //} - - } - - //virtual void Info (TInfo& I) - //{ - // xr_strcpy(I,"restart game fast"); - //} + CCC_DbgPhTrackObj(LPCSTR N) : CCC_String(N, s_dbg_trace_obj_name, sizeof(s_dbg_trace_obj_name)) {}; + virtual void Execute(LPCSTR args/**/) + { + CCC_String::Execute(args); + if (!xr_strcmp(args, "none")) + { + ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, FALSE); + return; + } + ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, TRUE); + PH_DBG_SetTrackObject(); + //CObject* O= Level().Objects.FindObjectByName(args); + //if(O) + //{ + // PH_DBG_SetTrackObject(*(O->cName())); + // ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,TRUE); + //} + } + + //virtual void Info (TInfo& I) + //{ + // xr_strcpy(I,"restart game fast"); + //} }; #endif -class CCC_PHIterations : public CCC_Integer { +class CCC_PHIterations : public CCC_Integer +{ public: - CCC_PHIterations(LPCSTR N) : - CCC_Integer(N,&phIterations,15,50) - {}; - virtual void Execute (LPCSTR args) - { - CCC_Integer::Execute (args); - // dWorldSetQuickStepNumIterations(NULL,phIterations); - if( physics_world() ) - physics_world()->StepNumIterations( phIterations ); - } + CCC_PHIterations(LPCSTR N) : + CCC_Integer(N, &phIterations, 15, 50) + { + }; + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + // dWorldSetQuickStepNumIterations(NULL,phIterations); + if (physics_world()) + physics_world()->StepNumIterations(phIterations); + } }; -#ifdef DEBUG -class CCC_PHGravity : public IConsole_Command { +//#ifdef DEBUG +class CCC_PHGravity : public IConsole_Command +{ public: - CCC_PHGravity(LPCSTR N) : - IConsole_Command(N) - {}; - virtual void Execute (LPCSTR args) - { - if( !physics_world() ) - return; + CCC_PHGravity(LPCSTR N) : + IConsole_Command(N) + { + }; + virtual void Execute(LPCSTR args) + { + if (!physics_world()) + return; #ifndef DEBUG - if (g_pGameLevel && Level().game && GameID() != eGameIDSingle) - { - Msg("Command is not available in Multiplayer"); - return; - } + if (g_pGameLevel && Level().game && GameID() != eGameIDSingle) + { + Msg("Command is not available in Multiplayer"); + return; + } #endif - physics_world()->SetGravity(float(atof(args))); - } - virtual void Status (TStatus& S) - { - if(physics_world()) - xr_sprintf (S,"%3.5f",physics_world()->Gravity()); - else - xr_sprintf (S,"%3.5f",default_world_gravity); - while (xr_strlen(S) && ('0'==S[xr_strlen(S)-1])) S[xr_strlen(S)-1] = 0; - } - + physics_world()->SetGravity(float(atof(args))); + } + virtual void Status(TStatus& S) + { + if (physics_world()) + xr_sprintf(S, "%3.5f", physics_world()->Gravity()); + else + xr_sprintf(S, "%3.5f", default_world_gravity); + while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; + } }; -#endif // DEBUG +//#endif // DEBUG -class CCC_PHFps : public IConsole_Command { +class CCC_PHFps : public IConsole_Command +{ public: - CCC_PHFps(LPCSTR N) : - IConsole_Command(N) - {}; - virtual void Execute (LPCSTR args) - { - float step_count = (float)atof(args); + CCC_PHFps(LPCSTR N) : + IConsole_Command(N) + { + }; + virtual void Execute(LPCSTR args) + { + float step_count = (float) atof(args); #ifndef DEBUG - clamp (step_count,50.f,200.f); + clamp(step_count, 50.f, 200.f); #endif - //IPHWorld::SetStep(1.f/step_count); - ph_console::ph_step_time = 1.f/step_count; - //physics_world()->SetStep(1.f/step_count); - if(physics_world()) - physics_world()->SetStep(ph_console::ph_step_time); - } - virtual void Status (TStatus& S) - { - xr_sprintf (S,"%3.5f",1.f/ph_console::ph_step_time); - } - + //IPHWorld::SetStep(1.f/step_count); + ph_console::ph_step_time = 1.f / step_count; + //physics_world()->SetStep(1.f/step_count); + if (physics_world()) + physics_world()->SetStep(ph_console::ph_step_time); + } + virtual void Status(TStatus& S) + { + xr_sprintf(S, "%3.5f", 1.f / ph_console::ph_step_time); + } }; #ifdef DEBUG extern void print_help(lua_State *L); -struct CCC_LuaHelp : public IConsole_Command { - CCC_LuaHelp(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; +struct CCC_LuaHelp : public IConsole_Command +{ + CCC_LuaHelp(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - print_help(ai().script_engine().lua()); - } + virtual void Execute(LPCSTR args) + { + print_help(ai().script_engine().lua()); + } }; -struct CCC_ShowSmartCastStats : public IConsole_Command { - CCC_ShowSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; +struct CCC_ShowSmartCastStats : public IConsole_Command +{ + CCC_ShowSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - show_smart_cast_stats(); - } + virtual void Execute(LPCSTR args) + { + show_smart_cast_stats(); + } }; -struct CCC_ClearSmartCastStats : public IConsole_Command { - CCC_ClearSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; +struct CCC_ClearSmartCastStats : public IConsole_Command +{ + CCC_ClearSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - clear_smart_cast_stats(); - } + virtual void Execute(LPCSTR args) + { + clear_smart_cast_stats(); + } }; /* -struct CCC_NoClip : public CCC_Mask +struct CCC_NoClip : public CCC_Mask { public: - CCC_NoClip(LPCSTR N, Flags32* V, u32 M):CCC_Mask(N,V,M){}; - virtual void Execute(LPCSTR args) - { - CCC_Mask::Execute(args); - if (EQ(args,"on") || EQ(args,"1")) - { - if(g_pGameLevel && Level().CurrentViewEntity()) - { - CActor* actor = smart_cast(Level().CurrentViewEntity()); - actor->character_physics_support()->SetRemoved(); - } - } - }; +CCC_NoClip(LPCSTR N, Flags32* V, u32 M):CCC_Mask(N,V,M){}; +virtual void Execute(LPCSTR args) +{ +CCC_Mask::Execute(args); +if (EQ(args,"on") || EQ(args,"1")) +{ +if(g_pGameLevel && Level().CurrentViewEntity()) +{ +CActor* actor = smart_cast(Level().CurrentViewEntity()); +actor->character_physics_support()->SetRemoved(); +} +} +}; }; */ #endif //#ifndef MASTER_GOLD # include "game_graph.h" -struct CCC_JumpToLevel : public IConsole_Command { - CCC_JumpToLevel(LPCSTR N) : IConsole_Command(N) {}; - - virtual void Execute(LPCSTR level) - { - if ( !ai().get_alife() ) - { - Msg ("! ALife simulator is needed to perform specified command!"); - return; - } - - GameGraph::LEVEL_MAP::const_iterator I = ai().game_graph().header().levels().begin(); - GameGraph::LEVEL_MAP::const_iterator E = ai().game_graph().header().levels().end(); - for ( ; I != E; ++I ) - if ( !xr_strcmp((*I).second.name(),level) ) - { - ai().alife().jump_to_level(level); - return; - } - Msg ("! There is no level \"%s\" in the game graph!",level); - } - - virtual void Save (IWriter *F) {}; - virtual void fill_tips(vecTips& tips, u32 mode) - { - if ( !ai().get_alife() ) - { - Msg ("! ALife simulator is needed to perform specified command!"); - return; - } - - GameGraph::LEVEL_MAP::const_iterator itb = ai().game_graph().header().levels().begin(); - GameGraph::LEVEL_MAP::const_iterator ite = ai().game_graph().header().levels().end(); - for ( ; itb != ite; ++itb ) - { - tips.push_back( (*itb).second.name() ); - } - } - +struct CCC_JumpToLevel : public IConsole_Command +{ + CCC_JumpToLevel(LPCSTR N) : IConsole_Command(N) {}; + + virtual void Execute(LPCSTR level) + { + if (!ai().get_alife()) + { + Msg("! ALife simulator is needed to perform specified command!"); + return; + } + + GameGraph::LEVEL_MAP::const_iterator I = ai().game_graph().header().levels().begin(); + GameGraph::LEVEL_MAP::const_iterator E = ai().game_graph().header().levels().end(); + for (; I != E; ++I) + if (!xr_strcmp((*I).second.name(), level)) + { + ai().alife().jump_to_level(level); + return; + } + Msg("! There is no level \"%s\" in the game graph!", level); + } + + virtual void Save(IWriter *F) {}; + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (!ai().get_alife()) + { + Msg("! ALife simulator is needed to perform specified command!"); + return; + } + + GameGraph::LEVEL_MAP::const_iterator itb = ai().game_graph().header().levels().begin(); + GameGraph::LEVEL_MAP::const_iterator ite = ai().game_graph().header().levels().end(); + for (; itb != ite; ++itb) + { + tips.push_back((*itb).second.name()); + } + } }; //#ifndef MASTER_GOLD -class CCC_Script : public IConsole_Command { +class CCC_Script : public IConsole_Command +{ public: - CCC_Script(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - virtual void Execute( LPCSTR args ) - { - if ( !xr_strlen(args) ) - { - Log("* Specify script name!"); - } - else - { - // rescan pathes - FS_Path* P = FS.get_path("$game_scripts$"); - P->m_Flags.set (FS_Path::flNeedRescan,TRUE); - FS.rescan_pathes(); - // run script - if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) - ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args,false,true); - } - } - - virtual void Status( TStatus& S ) - { - xr_strcpy( S, " (Specify script name!)" ); - } - virtual void Save( IWriter* F ) {} - - virtual void fill_tips( vecTips& tips, u32 mode ) - { - get_files_list( tips, "$game_scripts$", ".script" ); - } - + CCC_Script(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + virtual void Execute(LPCSTR args) + { + if (!xr_strlen(args)) + { + Log("* Specify script name!"); + } + else + { + // rescan pathes + FS_Path* P = FS.get_path("$game_scripts$"); + P->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.rescan_pathes(); + // run script + if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) + ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, false, true); + } + } + + virtual void Status(TStatus& S) + { + xr_strcpy(S, " (Specify script name!)"); + } + virtual void Save(IWriter* F) {} + + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_scripts$", ".script"); + } }; -class CCC_ScriptCommand : public IConsole_Command { +class CCC_ScriptCommand : public IConsole_Command +{ public: - CCC_ScriptCommand (LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - - virtual void Execute (LPCSTR args) - { - if (!xr_strlen(args)) - Log("* Specify string to run!"); - else { - if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) { - ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args,true,true); - return; - } - - string4096 S; - shared_str m_script_name = "console command"; - xr_sprintf (S,"%s\n",args); - int l_iErrorCode = luaL_loadbuffer(ai().script_engine().lua(),S,xr_strlen(S),"@console_command"); - if (!l_iErrorCode) { - l_iErrorCode = lua_pcall(ai().script_engine().lua(),0,0,0); - if (l_iErrorCode) { - ai().script_engine().print_output (ai().script_engine().lua(),*m_script_name,l_iErrorCode); - ai().script_engine().on_error (ai().script_engine().lua()); - return; - } - } - - ai().script_engine().print_output (ai().script_engine().lua(),*m_script_name,l_iErrorCode); - } - }//void Execute - - virtual void Status( TStatus& S ) - { - xr_strcpy( S, " (Specify script and function name!)" ); - } - virtual void Save( IWriter* F ) {} - - virtual void fill_tips( vecTips& tips, u32 mode ) - { - if ( mode == 1 ) - { - get_files_list( tips, "$game_scripts$", ".script" ); - return; - } - - IConsole_Command::fill_tips( tips, mode ); - } + CCC_ScriptCommand(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + + virtual void Execute(LPCSTR args) + { + if (!xr_strlen(args)) + Log("* Specify string to run!"); + else + { + if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) + { + ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, true, true); + return; + } + + string4096 S; + shared_str m_script_name = "console command"; + xr_sprintf(S, "%s\n", args); + int l_iErrorCode = luaL_loadbuffer(ai().script_engine().lua(), S, xr_strlen(S), "@console_command"); + if (!l_iErrorCode) + { + l_iErrorCode = lua_pcall(ai().script_engine().lua(), 0, 0, 0); + if (l_iErrorCode) + { + ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); + ai().script_engine().on_error(ai().script_engine().lua()); + return; + } + } + + ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); + } + }//void Execute + + virtual void Status(TStatus& S) + { + xr_strcpy(S, " (Specify script and function name!)"); + } + virtual void Save(IWriter* F) {} + + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (mode == 1) + { + get_files_list(tips, "$game_scripts$", ".script"); + return; + } + + IConsole_Command::fill_tips(tips, mode); + } }; -class CCC_TimeFactor : public IConsole_Command { +class CCC_TimeFactor : public IConsole_Command +{ public: - CCC_TimeFactor (LPCSTR N) : IConsole_Command(N) {} - virtual void Execute (LPCSTR args) - { - float time_factor = (float)atof(args); - clamp (time_factor,EPS,1000.f); - Device.time_factor (time_factor); - } - virtual void Status (TStatus &S) - { - xr_sprintf (S,sizeof(S),"%f",Device.time_factor()); - } - - virtual void Info (TInfo& I) - { - xr_strcpy (I,"[0.001 - 1000.0]"); - } - - virtual void fill_tips(vecTips& tips, u32 mode) - { - TStatus str; - xr_sprintf( str, sizeof(str), "%3.3f (current) [0.001 - 1000.0]", Device.time_factor() ); - tips.push_back( str ); - IConsole_Command::fill_tips( tips, mode ); - } + CCC_TimeFactor(LPCSTR N) : IConsole_Command(N) {} + virtual void Execute(LPCSTR args) + { + float time_factor = (float) atof(args); + clamp(time_factor, EPS, 1000.f); + Device.time_factor(time_factor); + } + virtual void Status(TStatus &S) + { + xr_sprintf(S, sizeof(S), "%f", Device.time_factor()); + } + + virtual void Info(TInfo& I) + { + xr_strcpy(I, "[0.001 - 1000.0]"); + } + + virtual void fill_tips(vecTips& tips, u32 mode) + { + TStatus str; + xr_sprintf(str, sizeof(str), "%3.3f (current) [0.001 - 1000.0]", Device.time_factor()); + tips.push_back(str); + IConsole_Command::fill_tips(tips, mode); + } }; //#endif // MASTER_GOLD #include "GamePersistent.h" - -class CCC_MainMenu : public IConsole_Command { +class CCC_MainMenu : public IConsole_Command +{ public: - CCC_MainMenu(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - - bool bWhatToDo = TRUE; - if( 0==xr_strlen(args) ){ - bWhatToDo = !MainMenu()->IsActive(); - }; - - if( EQ(args,"on")||EQ(args,"1") ) - bWhatToDo = TRUE; - - if( EQ(args,"off")||EQ(args,"0") ) - bWhatToDo = FALSE; - - MainMenu()->Activate( bWhatToDo ); - } + CCC_MainMenu(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + bool bWhatToDo = TRUE; + if (0 == xr_strlen(args)) + { + bWhatToDo = !MainMenu()->IsActive(); + }; + + if (EQ(args, "on") || EQ(args, "1")) + bWhatToDo = TRUE; + + if (EQ(args, "off") || EQ(args, "0")) + bWhatToDo = FALSE; + + MainMenu()->Activate(bWhatToDo); + } }; -struct CCC_StartTimeSingle : public IConsole_Command { - CCC_StartTimeSingle(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute (LPCSTR args) - { - u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; - sscanf (args,"%d.%d.%d %d:%d:%d.%d",&year,&month,&day,&hours,&mins,&secs,&milisecs); - year = _max(year,1); - month = _max(month,1); - day = _max(day,1); - g_qwStartGameTime = generate_time (year,month,day,hours,mins,secs,milisecs); - - if (!g_pGameLevel) - return; - - if (!Level().Server) - return; - - if (!Level().Server->game) - return; - - Level().SetGameTimeFactor(g_qwStartGameTime,g_fTimeFactor); - } - - virtual void Status (TStatus& S) - { - u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; - split_time (g_qwStartGameTime, year, month, day, hours, mins, secs, milisecs); - xr_sprintf (S,"%d.%d.%d %d:%d:%d.%d",year,month,day,hours,mins,secs,milisecs); - } +struct CCC_StartTimeSingle : public IConsole_Command +{ + CCC_StartTimeSingle(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; + sscanf(args, "%d.%d.%d %d:%d:%d.%d", &year, &month, &day, &hours, &mins, &secs, &milisecs); + year = _max(year, 1); + month = _max(month, 1); + day = _max(day, 1); + g_qwStartGameTime = generate_time(year, month, day, hours, mins, secs, milisecs); + + if (!g_pGameLevel) + return; + + if (!Level().Server) + return; + + if (!Level().Server->game) + return; + + Level().SetGameTimeFactor(g_qwStartGameTime, g_fTimeFactor); + } + + virtual void Status(TStatus& S) + { + u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; + split_time(g_qwStartGameTime, year, month, day, hours, mins, secs, milisecs); + xr_sprintf(S, "%d.%d.%d %d:%d:%d.%d", year, month, day, hours, mins, secs, milisecs); + } }; -struct CCC_TimeFactorSingle : public CCC_Float { - CCC_TimeFactorSingle(LPCSTR N, float* V, float _min=0.f, float _max=1.f) : CCC_Float(N,V,_min,_max) {}; +struct CCC_TimeFactorSingle : public CCC_Float +{ + CCC_TimeFactorSingle(LPCSTR N, float* V, float _min = 0.f, float _max = 1.f) : CCC_Float(N, V, _min, _max) {}; - virtual void Execute (LPCSTR args) - { - CCC_Float::Execute (args); - - if (!g_pGameLevel) - return; + virtual void Execute(LPCSTR args) + { + CCC_Float::Execute(args); - if (!Level().Server) - return; + if (!g_pGameLevel) + return; - if (!Level().Server->game) - return; + if (!Level().Server) + return; - Level().SetGameTimeFactor(g_fTimeFactor); - } + if (!Level().Server->game) + return; + Level().SetGameTimeFactor(g_fTimeFactor); + } }; #ifdef DEBUG class CCC_RadioGroupMask2; class CCC_RadioMask :public CCC_Mask { - CCC_RadioGroupMask2 *group; + CCC_RadioGroupMask2 *group; public: - CCC_RadioMask(LPCSTR N, Flags32* V, u32 M): - CCC_Mask(N,V,M) - { - group=NULL; - } - void SetGroup (CCC_RadioGroupMask2 *G) - { - group=G ; - } -virtual void Execute (LPCSTR args) ; - -IC void Set (BOOL V) - { - value->set(mask,V) ; - } - + CCC_RadioMask(LPCSTR N, Flags32* V, u32 M) : + CCC_Mask(N, V, M) + { + group = NULL; + } + void SetGroup(CCC_RadioGroupMask2 *G) + { + group = G; + } + virtual void Execute(LPCSTR args); + + IC void Set(BOOL V) + { + value->set(mask, V); + } }; -class CCC_RadioGroupMask2 +class CCC_RadioGroupMask2 { - CCC_RadioMask *mask0; - CCC_RadioMask *mask1; + CCC_RadioMask *mask0; + CCC_RadioMask *mask1; public: - CCC_RadioGroupMask2(CCC_RadioMask *m0,CCC_RadioMask *m1) - { - mask0=m0;mask1=m1; - mask0->SetGroup(this); - mask1->SetGroup(this); - } - void Execute (CCC_RadioMask& m,LPCSTR args) - { - BOOL value=m.GetValue(); - if(value) - { - mask0->Set(!value);mask1->Set(!value); - } - m.Set(value); - } + CCC_RadioGroupMask2(CCC_RadioMask *m0, CCC_RadioMask *m1) + { + mask0 = m0; mask1 = m1; + mask0->SetGroup(this); + mask1->SetGroup(this); + } + void Execute(CCC_RadioMask& m, LPCSTR args) + { + BOOL value = m.GetValue(); + if (value) + { + mask0->Set(!value); mask1->Set(!value); + } + m.Set(value); + } }; - -void CCC_RadioMask::Execute (LPCSTR args) +void CCC_RadioMask::Execute(LPCSTR args) { - CCC_Mask::Execute(args); - VERIFY2(group,"CCC_RadioMask: group not set"); - group->Execute(*this,args); + CCC_Mask::Execute(args); + VERIFY2(group, "CCC_RadioMask: group not set"); + group->Execute(*this, args); } #define CMD_RADIOGROUPMASK2(p1,p2,p3,p4,p5,p6) \ {\ -static CCC_RadioMask x##CCC_RadioMask1(p1,p2,p3); Console->AddCommand(&x##CCC_RadioMask1);\ -static CCC_RadioMask x##CCC_RadioMask2(p4,p5,p6); Console->AddCommand(&x##CCC_RadioMask2);\ -static CCC_RadioGroupMask2 x##CCC_RadioGroupMask2(&x##CCC_RadioMask1,&x##CCC_RadioMask2);\ + static CCC_RadioMask x##CCC_RadioMask1(p1, p2, p3); Console->AddCommand(&x##CCC_RadioMask1); \ + static CCC_RadioMask x##CCC_RadioMask2(p4, p5, p6); Console->AddCommand(&x##CCC_RadioMask2); \ + static CCC_RadioGroupMask2 x##CCC_RadioGroupMask2(&x##CCC_RadioMask1, &x##CCC_RadioMask2); \ } -struct CCC_DbgBullets : public CCC_Integer { - CCC_DbgBullets(LPCSTR N, int* V, int _min=0, int _max=999) : CCC_Integer(N,V,_min,_max) {}; - - virtual void Execute (LPCSTR args) - { - extern FvectorVec g_hit[]; - g_hit[0].clear(); - g_hit[1].clear(); - g_hit[2].clear(); - CCC_Integer::Execute (args); - } +struct CCC_DbgBullets : public CCC_Integer +{ + CCC_DbgBullets(LPCSTR N, int* V, int _min = 0, int _max = 999) : CCC_Integer(N, V, _min, _max) {}; + + virtual void Execute(LPCSTR args) + { + extern FvectorVec g_hit[]; + g_hit[0].clear(); + g_hit[1].clear(); + g_hit[2].clear(); + CCC_Integer::Execute(args); + } }; #include "attachable_item.h" @@ -1498,745 +1576,763 @@ struct CCC_DbgBullets : public CCC_Integer { #include "Inventory.h" class CCC_TuneAttachableItem : public IConsole_Command { -public : - CCC_TuneAttachableItem(LPCSTR N):IConsole_Command(N){}; - virtual void Execute (LPCSTR args) - { - if( CAttachableItem::m_dbgItem){ - CAttachableItem::m_dbgItem = NULL; - Msg("CCC_TuneAttachableItem switched to off"); - return; - }; - - CObject* obj = Level().CurrentViewEntity(); VERIFY(obj); - shared_str ssss = args; - - CAttachmentOwner* owner = smart_cast(obj); - CAttachableItem* itm = owner->attachedItem(ssss); - if(itm) - { - CAttachableItem::m_dbgItem = itm; - }else - { - CInventoryOwner* iowner = smart_cast(obj); - PIItem active_item = iowner->m_inventory->ActiveItem(); - if(active_item && active_item->object().cNameSect()==ssss ) - CAttachableItem::m_dbgItem = active_item->cast_attachable_item(); - } - - if(CAttachableItem::m_dbgItem) - Msg("CCC_TuneAttachableItem switched to ON for [%s]",args); - else - Msg("CCC_TuneAttachableItem cannot find attached item [%s]",args); - } - - virtual void Info (TInfo& I) - { - xr_sprintf(I,"allows to change bind rotation and position offsets for attached item, given as arguments"); - } +public: + CCC_TuneAttachableItem(LPCSTR N) :IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if (CAttachableItem::m_dbgItem) + { + CAttachableItem::m_dbgItem = NULL; + Msg("CCC_TuneAttachableItem switched to off"); + return; + }; + + CObject* obj = Level().CurrentViewEntity(); VERIFY(obj); + shared_str ssss = args; + + CAttachmentOwner* owner = smart_cast(obj); + CAttachableItem* itm = owner->attachedItem(ssss); + if (itm) + { + CAttachableItem::m_dbgItem = itm; + } + else + { + CInventoryOwner* iowner = smart_cast(obj); + PIItem active_item = iowner->m_inventory->ActiveItem(); + if (active_item && active_item->object().cNameSect() == ssss) + CAttachableItem::m_dbgItem = active_item->cast_attachable_item(); + } + + if (CAttachableItem::m_dbgItem) + Msg("CCC_TuneAttachableItem switched to ON for [%s]", args); + else + Msg("CCC_TuneAttachableItem cannot find attached item [%s]", args); + } + + virtual void Info(TInfo& I) + { + xr_sprintf(I, "allows to change bind rotation and position offsets for attached item, given as arguments"); + } }; -class CCC_Crash : public IConsole_Command { +class CCC_Crash : public IConsole_Command +{ public: - CCC_Crash(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR /**args/**/) { - VERIFY3 (false,"This is a test crash","Do not post it as a bug"); - int *pointer = 0; - *pointer = 0; - } + CCC_Crash(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR /**args/**/) + { + VERIFY3(false, "This is a test crash", "Do not post it as a bug"); + int *pointer = 0; + *pointer = 0; + } }; #ifdef DEBUG_MEMORY_MANAGER class CCC_MemAllocShowStats : public IConsole_Command { public: - CCC_MemAllocShowStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) { - mem_alloc_show_stats (); - } + CCC_MemAllocShowStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) { + mem_alloc_show_stats (); + } }; class CCC_MemAllocClearStats : public IConsole_Command { public: - CCC_MemAllocClearStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) { - mem_alloc_clear_stats (); - } + CCC_MemAllocClearStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) { + mem_alloc_clear_stats (); + } }; #endif // DEBUG_MEMORY_MANAGER -class CCC_DumpModelBones : public IConsole_Command { +class CCC_DumpModelBones : public IConsole_Command +{ public: - CCC_DumpModelBones (LPCSTR N) : IConsole_Command(N) - { - } - - virtual void Execute(LPCSTR arguments) - { - if (!arguments || !*arguments) { - Msg ("! no arguments passed"); - return; - } - - LPCSTR name; - - if (0==strext(arguments)) - STRCONCAT (name, arguments, ".ogf"); - else - STRCONCAT (name, arguments); - - string_path fn; - - if (!FS.exist(arguments) && !FS.exist(fn, "$level$", name) && !FS.exist(fn, "$game_meshes$", name)) { - Msg ("! Cannot find visual \"%s\"",arguments); - return; - } - - IRenderVisual *visual = Render->model_Create(arguments); - IKinematics *kinematics = smart_cast(visual); - if (!kinematics) { - Render->model_Delete(visual); - Msg ("! Invalid visual type \"%s\" (not a IKinematics)",arguments); - return; - } - - Msg ("bones for model \"%s\"",arguments); - for (u16 i=0, n=kinematics->LL_BoneCount(); iLL_GetData(i).name); - - Render->model_Delete (visual); - } + CCC_DumpModelBones(LPCSTR N) : IConsole_Command(N) + { + } + + virtual void Execute(LPCSTR arguments) + { + if (!arguments || !*arguments) + { + Msg("! no arguments passed"); + return; + } + + LPCSTR name; + + if (0 == strext(arguments)) + STRCONCAT(name, arguments, ".ogf"); + else + STRCONCAT(name, arguments); + + string_path fn; + + if (!FS.exist(arguments) && !FS.exist(fn, "$level$", name) && !FS.exist(fn, "$game_meshes$", name)) + { + Msg("! Cannot find visual \"%s\"", arguments); + return; + } + + IRenderVisual *visual = Render->model_Create(arguments); + IKinematics *kinematics = smart_cast(visual); + if (!kinematics) + { + Render->model_Delete(visual); + Msg("! Invalid visual type \"%s\" (not a IKinematics)", arguments); + return; + } + + Msg("bones for model \"%s\"", arguments); + for (u16 i = 0, n = kinematics->LL_BoneCount(); i < n; ++i) + Msg("%s", *kinematics->LL_GetData(i).name); + + Render->model_Delete(visual); + } }; -extern void show_animation_stats (); +extern void show_animation_stats(); -class CCC_ShowAnimationStats : public IConsole_Command { +class CCC_ShowAnimationStats : public IConsole_Command +{ public: - CCC_ShowAnimationStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) - { - show_animation_stats (); - } + CCC_ShowAnimationStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + show_animation_stats(); + } }; class CCC_InvUpgradesHierarchy : public IConsole_Command { public: - CCC_InvUpgradesHierarchy(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute( LPCSTR args ) - { - if ( ai().get_alife() ) - { - ai().alife().inventory_upgrade_manager().log_hierarchy(); - } - } - + CCC_InvUpgradesHierarchy(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (ai().get_alife()) + { + ai().alife().inventory_upgrade_manager().log_hierarchy(); + } + } }; class CCC_InvUpgradesCurItem : public IConsole_Command { public: - CCC_InvUpgradesCurItem(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute( LPCSTR args ) - { - if ( !g_pGameLevel ) - { - return; - } - CUIGameSP* ui_game_sp = smart_cast( CurrentGameUI() ); - if ( !ui_game_sp ) - { - return; - } - PIItem item = ui_game_sp->GetActorMenu().get_upgrade_item(); - if ( item ) - { - item->log_upgrades(); - } - else - { - Msg( "- Current item in ActorMenu is unknown!" ); - } - } + CCC_InvUpgradesCurItem(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (!g_pGameLevel) + { + return; + } + CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); + if (!ui_game_sp) + { + return; + } + PIItem item = ui_game_sp->GetActorMenu().get_upgrade_item(); + if (item) + { + item->log_upgrades(); + } + else + { + Msg("- Current item in ActorMenu is unknown!"); + } + } }; class CCC_InvDropAllItems : public IConsole_Command { public: - CCC_InvDropAllItems(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute( LPCSTR args ) - { - if ( !g_pGameLevel ) - { - return; - } - CUIGameSP* ui_game_sp = smart_cast( CurrentGameUI() ); - if ( !ui_game_sp ) - { - return; - } - int d = 0; - sscanf( args, "%d", &d ); - if ( ui_game_sp->GetActorMenu().DropAllItemsFromRuck( d == 1 ) ) - { - Msg( "- All items from ruck of Actor is dropping now." ); - } - else - { - Msg( "! ActorMenu is not in state `Inventory`" ); - } - } + CCC_InvDropAllItems(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (!g_pGameLevel) + { + return; + } + CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); + if (!ui_game_sp) + { + return; + } + int d = 0; + sscanf(args, "%d", &d); + if (ui_game_sp->GetActorMenu().DropAllItemsFromRuck(d == 1)) + { + Msg("- All items from ruck of Actor is dropping now."); + } + else + { + Msg("! ActorMenu is not in state `Inventory`"); + } + } }; // CCC_InvDropAllItems #endif // DEBUG -class CCC_DumpObjects : public IConsole_Command { +class CCC_DumpObjects : public IConsole_Command +{ public: - CCC_DumpObjects(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) - { - Level().Objects.dump_all_objects(); - } + CCC_DumpObjects(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + Level().Objects.dump_all_objects(); + } }; -class CCC_GSCheckForUpdates : public IConsole_Command { +class CCC_GSCheckForUpdates : public IConsole_Command +{ public: - CCC_GSCheckForUpdates(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR arguments) - { - if (!MainMenu()) return; - /* - CGameSpy_Available GSA; - shared_str result_string; - if (!GSA.CheckAvailableServices(result_string)) - { - Msg(*result_string); -// return; - }; - CGameSpy_Patching GameSpyPatching; - */ - bool InformOfNoPatch = true; - if (arguments && *arguments) { - int bInfo = 1; - sscanf (arguments,"%d", &bInfo); - InformOfNoPatch = (bInfo != 0); - } - -// GameSpyPatching.CheckForPatch(InformOfNoPatch); - - MainMenu()->GetGS()->GetGameSpyPatching()->CheckForPatch(InformOfNoPatch); - } + CCC_GSCheckForUpdates(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR arguments) + { + if (!MainMenu()) return; + /* + CGameSpy_Available GSA; + shared_str result_string; + if (!GSA.CheckAvailableServices(result_string)) + { + Msg(*result_string); + // return; + }; + CGameSpy_Patching GameSpyPatching; + */ + bool InformOfNoPatch = true; + if (arguments && *arguments) + { + int bInfo = 1; + sscanf(arguments, "%d", &bInfo); + InformOfNoPatch = (bInfo != 0); + } + + // GameSpyPatching.CheckForPatch(InformOfNoPatch); + + MainMenu()->GetGS()->GetGameSpyPatching()->CheckForPatch(InformOfNoPatch); + } }; - - -class CCC_Net_SV_GuaranteedPacketMode : public CCC_Integer { +class CCC_Net_SV_GuaranteedPacketMode : public CCC_Integer +{ protected: - int *value_blin; + int *value_blin; public: - CCC_Net_SV_GuaranteedPacketMode(LPCSTR N, int* V, int _min=0, int _max=2) : - CCC_Integer(N,V,_min,_max), - value_blin(V) - {}; - - virtual void Execute (LPCSTR args) - { - CCC_Integer::Execute(args); - } + CCC_Net_SV_GuaranteedPacketMode(LPCSTR N, int* V, int _min = 0, int _max = 2) : + CCC_Integer(N, V, _min, _max), + value_blin(V) + { + }; + + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + } }; #ifdef DEBUG void DBG_CashedClear(); -class CCC_DBGDrawCashedClear : public IConsole_Command { +class CCC_DBGDrawCashedClear : public IConsole_Command +{ public: - CCC_DBGDrawCashedClear(LPCSTR N) :IConsole_Command(N) { bEmptyArgsHandled =true; } + CCC_DBGDrawCashedClear(LPCSTR N) :IConsole_Command(N) { bEmptyArgsHandled = true; } private: - virtual void Execute (LPCSTR args) - { - - DBG_CashedClear(); - } + virtual void Execute(LPCSTR args) + { + DBG_CashedClear(); + } }; #endif -class CCC_DbgVar : public IConsole_Command { +class CCC_DbgVar : public IConsole_Command +{ public: - CCC_DbgVar(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - virtual void Execute(LPCSTR arguments) - { - if (!arguments || !*arguments) - { - return; - } - - if ( _GetItemCount(arguments, ' ') == 1 ) - { - ai_dbg::show_var(arguments); - } - else - { - char name[1024]; - float f; - sscanf (arguments, "%s %f", name, &f); - ai_dbg::set_var(name, f); - } - - } + CCC_DbgVar(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + virtual void Execute(LPCSTR arguments) + { + if (!arguments || !*arguments) + { + return; + } + + if (_GetItemCount(arguments, ' ') == 1) + { + ai_dbg::show_var(arguments); + } + else + { + char name[1024]; + float f; + sscanf(arguments, "%s %f", name, &f); + ai_dbg::set_var(name, f); + } + } }; void CCC_RegisterCommands() { - // options - g_OptConCom.Init(); + // options + g_OptConCom.Init(); - CMD1(CCC_MemStats, "stat_memory" ); + CMD1(CCC_MemStats, "stat_memory"); #ifdef DEBUG - CMD1(CCC_MemCheckpoint, "stat_memory_checkpoint"); -#endif //#ifdef DEBUG - // game - CMD3(CCC_Mask, "g_crouch_toggle", &psActorFlags, AF_CROUCH_TOGGLE); - CMD1(CCC_GameDifficulty, "g_game_difficulty" ); + CMD1(CCC_MemCheckpoint, "stat_memory_checkpoint"); +#endif //#ifdef DEBUG + // game + CMD3(CCC_Mask, "g_crouch_toggle", &psActorFlags, AF_CROUCH_TOGGLE); + CMD1(CCC_GameDifficulty, "g_game_difficulty"); - CMD3(CCC_Mask, "g_backrun", &psActorFlags, AF_RUN_BACKWARD); + CMD3(CCC_Mask, "g_backrun", &psActorFlags, AF_RUN_BACKWARD); - // alife + // alife #ifdef DEBUG - CMD1(CCC_ALifePath, "al_path" ); // build path + CMD1(CCC_ALifePath, "al_path"); // build path #endif // DEBUG - - CMD1(CCC_ALifeSave, "save" ); // save game - CMD1(CCC_ALifeLoadFrom, "load" ); // load game from ... - CMD1(CCC_LoadLastSave, "load_last_save" ); // load last saved game from ... - CMD1(CCC_FlushLog, "flush" ); // flush log - CMD1(CCC_ClearLog, "clear_log" ); + CMD1(CCC_ALifeSave, "save"); // save game + CMD1(CCC_ALifeLoadFrom, "load"); // load game from ... + CMD1(CCC_LoadLastSave, "load_last_save"); // load last saved game from ... + + CMD1(CCC_FlushLog, "flush"); // flush log + CMD1(CCC_ClearLog, "clear_log"); #ifndef MASTER_GOLD - CMD1(CCC_ALifeTimeFactor, "al_time_factor" ); // set time factor - CMD1(CCC_ALifeSwitchDistance, "al_switch_distance" ); // set switch distance - CMD1(CCC_ALifeProcessTime, "al_process_time" ); // set process time - CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update" ); // set process time - CMD1(CCC_ALifeSwitchFactor, "al_switch_factor" ); // set switch factor + CMD1(CCC_ALifeTimeFactor, "al_time_factor"); // set time factor + CMD1(CCC_ALifeSwitchDistance, "al_switch_distance"); // set switch distance + CMD1(CCC_ALifeProcessTime, "al_process_time"); // set process time + CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update"); // set process time + CMD1(CCC_ALifeSwitchFactor, "al_switch_factor"); // set switch factor #endif // #ifndef MASTER_GOLD + CMD3(CCC_Mask, "hud_weapon", &psHUD_Flags, HUD_WEAPON); + CMD3(CCC_Mask, "hud_info", &psHUD_Flags, HUD_INFO); + CMD3(CCC_Mask, "hud_draw", &psHUD_Flags, HUD_DRAW); - CMD3(CCC_Mask, "hud_weapon", &psHUD_Flags, HUD_WEAPON); - CMD3(CCC_Mask, "hud_info", &psHUD_Flags, HUD_INFO); - CMD3(CCC_Mask, "hud_draw", &psHUD_Flags, HUD_DRAW); + // hud + psHUD_Flags.set(HUD_CROSSHAIR, true); + psHUD_Flags.set(HUD_WEAPON, true); + psHUD_Flags.set(HUD_DRAW, true); + psHUD_Flags.set(HUD_INFO, true); - // hud - psHUD_Flags.set(HUD_CROSSHAIR, true); - psHUD_Flags.set(HUD_WEAPON, true); - psHUD_Flags.set(HUD_DRAW, true); - psHUD_Flags.set(HUD_INFO, true); + CMD3(CCC_Mask, "hud_crosshair", &psHUD_Flags, HUD_CROSSHAIR); + CMD3(CCC_Mask, "hud_crosshair_dist", &psHUD_Flags, HUD_CROSSHAIR_DIST); - CMD3(CCC_Mask, "hud_crosshair", &psHUD_Flags, HUD_CROSSHAIR); - CMD3(CCC_Mask, "hud_crosshair_dist", &psHUD_Flags, HUD_CROSSHAIR_DIST); + //#ifdef DEBUG + CMD4(CCC_Float, "hud_fov", &psHUD_FOV, 0.1f, 1.0f); + CMD4(CCC_Float, "fov", &g_fov, 5.0f, 180.0f); + //#endif // DEBUG -//#ifdef DEBUG - CMD4(CCC_Float, "hud_fov", &psHUD_FOV, 0.1f, 1.0f); - CMD4(CCC_Float, "fov", &g_fov, 5.0f, 180.0f); -//#endif // DEBUG + // Demo + //#ifndef MASTER_GOLD + CMD1(CCC_DemoPlay, "demo_play"); + CMD1(CCC_DemoRecord, "demo_record"); + CMD1(CCC_DemoRecordSetPos, "demo_set_cam_position"); + //#endif // #ifndef MASTER_GOLD - // Demo -//#ifndef MASTER_GOLD - CMD1(CCC_DemoPlay, "demo_play" ); - CMD1(CCC_DemoRecord, "demo_record" ); - CMD1(CCC_DemoRecordSetPos, "demo_set_cam_position" ); -//#endif // #ifndef MASTER_GOLD - #ifndef MASTER_GOLD - // ai - CMD3(CCC_Mask, "mt_ai_vision", &g_mt_config, mtAiVision); - CMD3(CCC_Mask, "mt_level_path", &g_mt_config, mtLevelPath); - CMD3(CCC_Mask, "mt_detail_path", &g_mt_config, mtDetailPath); - CMD3(CCC_Mask, "mt_object_handler", &g_mt_config, mtObjectHandler); - CMD3(CCC_Mask, "mt_sound_player", &g_mt_config, mtSoundPlayer); - CMD3(CCC_Mask, "mt_bullets", &g_mt_config, mtBullets); - CMD3(CCC_Mask, "mt_script_gc", &g_mt_config, mtLUA_GC); - CMD3(CCC_Mask, "mt_level_sounds", &g_mt_config, mtLevelSounds); - CMD3(CCC_Mask, "mt_alife", &g_mt_config, mtALife); - CMD3(CCC_Mask, "mt_map", &g_mt_config, mtMap); + // ai + CMD3(CCC_Mask, "mt_ai_vision", &g_mt_config, mtAiVision); + CMD3(CCC_Mask, "mt_level_path", &g_mt_config, mtLevelPath); + CMD3(CCC_Mask, "mt_detail_path", &g_mt_config, mtDetailPath); + CMD3(CCC_Mask, "mt_object_handler", &g_mt_config, mtObjectHandler); + CMD3(CCC_Mask, "mt_sound_player", &g_mt_config, mtSoundPlayer); + CMD3(CCC_Mask, "mt_bullets", &g_mt_config, mtBullets); + CMD3(CCC_Mask, "mt_script_gc", &g_mt_config, mtLUA_GC); + CMD3(CCC_Mask, "mt_level_sounds", &g_mt_config, mtLevelSounds); + CMD3(CCC_Mask, "mt_alife", &g_mt_config, mtALife); + CMD3(CCC_Mask, "mt_map", &g_mt_config, mtMap); #endif // MASTER_GOLD #ifndef MASTER_GOLD - CMD3(CCC_Mask, "ai_obstacles_avoiding", &psAI_Flags, aiObstaclesAvoiding); - CMD3(CCC_Mask, "ai_obstacles_avoiding_static", &psAI_Flags, aiObstaclesAvoidingStatic); - CMD3(CCC_Mask, "ai_use_smart_covers", &psAI_Flags, aiUseSmartCovers); - CMD3(CCC_Mask, "ai_use_smart_covers_animation_slots", &psAI_Flags, (u32)aiUseSmartCoversAnimationSlot); - CMD4(CCC_Float, "ai_smart_factor", &g_smart_cover_factor, 0.f, 1000000.f); - CMD3(CCC_Mask, "ai_dbg_lua", &psAI_Flags, aiLua); + CMD3(CCC_Mask, "ai_obstacles_avoiding", &psAI_Flags, aiObstaclesAvoiding); + CMD3(CCC_Mask, "ai_obstacles_avoiding_static", &psAI_Flags, aiObstaclesAvoidingStatic); + CMD3(CCC_Mask, "ai_use_smart_covers", &psAI_Flags, aiUseSmartCovers); + CMD3(CCC_Mask, "ai_use_smart_covers_animation_slots", &psAI_Flags, (u32) aiUseSmartCoversAnimationSlot); + CMD4(CCC_Float, "ai_smart_factor", &g_smart_cover_factor, 0.f, 1000000.f); + CMD3(CCC_Mask, "ai_dbg_lua", &psAI_Flags, aiLua); #endif // MASTER_GOLD #ifdef DEBUG - CMD4(CCC_Integer, "lua_gcstep", &psLUA_GCSTEP, 1, 1000); - CMD3(CCC_Mask, "ai_debug", &psAI_Flags, aiDebug); - CMD3(CCC_Mask, "ai_dbg_brain", &psAI_Flags, aiBrain); - CMD3(CCC_Mask, "ai_dbg_motion", &psAI_Flags, aiMotion); - CMD3(CCC_Mask, "ai_dbg_frustum", &psAI_Flags, aiFrustum); - CMD3(CCC_Mask, "ai_dbg_funcs", &psAI_Flags, aiFuncs); - CMD3(CCC_Mask, "ai_dbg_alife", &psAI_Flags, aiALife); - CMD3(CCC_Mask, "ai_dbg_goap", &psAI_Flags, aiGOAP); - CMD3(CCC_Mask, "ai_dbg_goap_script", &psAI_Flags, aiGOAPScript); - CMD3(CCC_Mask, "ai_dbg_goap_object", &psAI_Flags, aiGOAPObject); - CMD3(CCC_Mask, "ai_dbg_cover", &psAI_Flags, aiCover); - CMD3(CCC_Mask, "ai_dbg_anim", &psAI_Flags, aiAnimation); - CMD3(CCC_Mask, "ai_dbg_vision", &psAI_Flags, aiVision); - CMD3(CCC_Mask, "ai_dbg_monster", &psAI_Flags, aiMonsterDebug); - CMD3(CCC_Mask, "ai_dbg_stalker", &psAI_Flags, aiStalker); - CMD3(CCC_Mask, "ai_stats", &psAI_Flags, aiStats); - CMD3(CCC_Mask, "ai_dbg_destroy", &psAI_Flags, aiDestroy); - CMD3(CCC_Mask, "ai_dbg_serialize", &psAI_Flags, aiSerialize); - CMD3(CCC_Mask, "ai_dbg_dialogs", &psAI_Flags, aiDialogs); - CMD3(CCC_Mask, "ai_dbg_infoportion", &psAI_Flags, aiInfoPortion); - - CMD3(CCC_Mask, "ai_draw_game_graph", &psAI_Flags, aiDrawGameGraph ); - CMD3(CCC_Mask, "ai_draw_game_graph_stalkers", &psAI_Flags, aiDrawGameGraphStalkers ); - CMD3(CCC_Mask, "ai_draw_game_graph_objects", &psAI_Flags, aiDrawGameGraphObjects ); - CMD3(CCC_Mask, "ai_draw_game_graph_real_pos", &psAI_Flags, aiDrawGameGraphRealPos ); - - - CMD3(CCC_Mask, "ai_nil_object_access", &psAI_Flags, aiNilObjectAccess); - - CMD3(CCC_Mask, "ai_draw_visibility_rays", &psAI_Flags, aiDrawVisibilityRays); - CMD3(CCC_Mask, "ai_animation_stats", &psAI_Flags, aiAnimationStats); - -/////////////////////////////////////////////HIT ANIMATION//////////////////////////////////////////////////// -//float power_factor = 2.f; -//float rotational_power_factor = 3.f; -//float side_sensitivity_threshold = 0.2f; -//float anim_channel_factor = 3.f; - -CMD4(CCC_Float, "hit_anims_power", &ghit_anims_params.power_factor, 0.0f, 100.0f); -CMD4(CCC_Float, "hit_anims_rotational_power", &ghit_anims_params.rotational_power_factor, 0.0f, 100.0f); -CMD4(CCC_Float, "hit_anims_side_sensitivity_threshold", &ghit_anims_params.side_sensitivity_threshold, 0.0f, 10.0f); -CMD4(CCC_Float, "hit_anims_channel_factor", &ghit_anims_params.anim_channel_factor, 0.0f, 100.0f); -//float block_blend = 0.1f; -//float reduce_blend = 0.5f; -//float reduce_power_factor = 0.5f; -CMD4(CCC_Float, "hit_anims_block_blend", &ghit_anims_params.block_blend, 0.f, 1.f); -CMD4(CCC_Float, "hit_anims_reduce_blend", &ghit_anims_params.reduce_blend, 0.f, 1.f); -CMD4(CCC_Float, "hit_anims_reduce_blend_factor", &ghit_anims_params.reduce_power_factor, 0.0f, 1.0f); -CMD4(CCC_Integer, "hit_anims_tune", &tune_hit_anims, 0, 1); -/////////////////////////////////////////////HIT ANIMATION END//////////////////////////////////////////////////// + CMD4(CCC_Integer, "lua_gcstep", &psLUA_GCSTEP, 1, 1000); + CMD3(CCC_Mask, "ai_debug", &psAI_Flags, aiDebug); + CMD3(CCC_Mask, "ai_dbg_brain", &psAI_Flags, aiBrain); + CMD3(CCC_Mask, "ai_dbg_motion", &psAI_Flags, aiMotion); + CMD3(CCC_Mask, "ai_dbg_frustum", &psAI_Flags, aiFrustum); + CMD3(CCC_Mask, "ai_dbg_funcs", &psAI_Flags, aiFuncs); + CMD3(CCC_Mask, "ai_dbg_alife", &psAI_Flags, aiALife); + CMD3(CCC_Mask, "ai_dbg_goap", &psAI_Flags, aiGOAP); + CMD3(CCC_Mask, "ai_dbg_goap_script", &psAI_Flags, aiGOAPScript); + CMD3(CCC_Mask, "ai_dbg_goap_object", &psAI_Flags, aiGOAPObject); + CMD3(CCC_Mask, "ai_dbg_cover", &psAI_Flags, aiCover); + CMD3(CCC_Mask, "ai_dbg_anim", &psAI_Flags, aiAnimation); + CMD3(CCC_Mask, "ai_dbg_vision", &psAI_Flags, aiVision); + CMD3(CCC_Mask, "ai_dbg_monster", &psAI_Flags, aiMonsterDebug); + CMD3(CCC_Mask, "ai_dbg_stalker", &psAI_Flags, aiStalker); + CMD3(CCC_Mask, "ai_stats", &psAI_Flags, aiStats); + CMD3(CCC_Mask, "ai_dbg_destroy", &psAI_Flags, aiDestroy); + CMD3(CCC_Mask, "ai_dbg_serialize", &psAI_Flags, aiSerialize); + CMD3(CCC_Mask, "ai_dbg_dialogs", &psAI_Flags, aiDialogs); + CMD3(CCC_Mask, "ai_dbg_infoportion", &psAI_Flags, aiInfoPortion); + + CMD3(CCC_Mask, "ai_draw_game_graph", &psAI_Flags, aiDrawGameGraph); + CMD3(CCC_Mask, "ai_draw_game_graph_stalkers", &psAI_Flags, aiDrawGameGraphStalkers); + CMD3(CCC_Mask, "ai_draw_game_graph_objects", &psAI_Flags, aiDrawGameGraphObjects); + CMD3(CCC_Mask, "ai_draw_game_graph_real_pos", &psAI_Flags, aiDrawGameGraphRealPos); + + CMD3(CCC_Mask, "ai_nil_object_access", &psAI_Flags, aiNilObjectAccess); + + CMD3(CCC_Mask, "ai_draw_visibility_rays", &psAI_Flags, aiDrawVisibilityRays); + CMD3(CCC_Mask, "ai_animation_stats", &psAI_Flags, aiAnimationStats); + + /////////////////////////////////////////////HIT ANIMATION//////////////////////////////////////////////////// + //float power_factor = 2.f; + //float rotational_power_factor = 3.f; + //float side_sensitivity_threshold = 0.2f; + //float anim_channel_factor = 3.f; + + CMD4(CCC_Float, "hit_anims_power", &ghit_anims_params.power_factor, 0.0f, 100.0f); + CMD4(CCC_Float, "hit_anims_rotational_power", &ghit_anims_params.rotational_power_factor, 0.0f, 100.0f); + CMD4(CCC_Float, "hit_anims_side_sensitivity_threshold", &ghit_anims_params.side_sensitivity_threshold, 0.0f, 10.0f); + CMD4(CCC_Float, "hit_anims_channel_factor", &ghit_anims_params.anim_channel_factor, 0.0f, 100.0f); + //float block_blend = 0.1f; + //float reduce_blend = 0.5f; + //float reduce_power_factor = 0.5f; + CMD4(CCC_Float, "hit_anims_block_blend", &ghit_anims_params.block_blend, 0.f, 1.f); + CMD4(CCC_Float, "hit_anims_reduce_blend", &ghit_anims_params.reduce_blend, 0.f, 1.f); + CMD4(CCC_Float, "hit_anims_reduce_blend_factor", &ghit_anims_params.reduce_power_factor, 0.0f, 1.0f); + CMD4(CCC_Integer, "hit_anims_tune", &tune_hit_anims, 0, 1); + /////////////////////////////////////////////HIT ANIMATION END//////////////////////////////////////////////////// #ifdef DEBUG_MEMORY_MANAGER - CMD3(CCC_Mask, "debug_on_frame_gather_stats", &psAI_Flags, aiDebugOnFrameAllocs); - CMD4(CCC_Float, "debug_on_frame_gather_stats_frequency", &debug_on_frame_gather_stats_frequency, 0.f, 1.f); - CMD1(CCC_MemAllocShowStats, "debug_on_frame_show_stats"); - CMD1(CCC_MemAllocClearStats,"debug_on_frame_clear_stats"); + CMD3(CCC_Mask, "debug_on_frame_gather_stats", &psAI_Flags, aiDebugOnFrameAllocs); + CMD4(CCC_Float, "debug_on_frame_gather_stats_frequency", &debug_on_frame_gather_stats_frequency, 0.f, 1.f); + CMD1(CCC_MemAllocShowStats, "debug_on_frame_show_stats"); + CMD1(CCC_MemAllocClearStats,"debug_on_frame_clear_stats"); #endif // DEBUG_MEMORY_MANAGER - CMD1(CCC_DumpModelBones, "debug_dump_model_bones"); + CMD1(CCC_DumpModelBones, "debug_dump_model_bones"); + + CMD1(CCC_DrawGameGraphAll, "ai_draw_game_graph_all"); + CMD1(CCC_DrawGameGraphCurrent, "ai_draw_game_graph_current_level"); + CMD1(CCC_DrawGameGraphLevel, "ai_draw_game_graph_level"); - CMD1(CCC_DrawGameGraphAll, "ai_draw_game_graph_all"); - CMD1(CCC_DrawGameGraphCurrent, "ai_draw_game_graph_current_level"); - CMD1(CCC_DrawGameGraphLevel, "ai_draw_game_graph_level"); + CMD4(CCC_Integer, "ai_dbg_inactive_time", &g_AI_inactive_time, 0, 1000000); - CMD4(CCC_Integer, "ai_dbg_inactive_time", &g_AI_inactive_time, 0, 1000000); - - CMD1(CCC_DebugNode, "ai_dbg_node"); + CMD1(CCC_DebugNode, "ai_dbg_node"); #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - CMD1(CCC_ScriptDbg, "script_debug_break"); - CMD1(CCC_ScriptDbg, "script_debug_stop"); - CMD1(CCC_ScriptDbg, "script_debug_restart"); + CMD1(CCC_ScriptDbg, "script_debug_break"); + CMD1(CCC_ScriptDbg, "script_debug_stop"); + CMD1(CCC_ScriptDbg, "script_debug_restart"); #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) - CMD1(CCC_ScriptLuaStudioConnect, "lua_studio_connect"); - CMD1(CCC_ScriptLuaStudioDisconnect, "lua_studio_disconnect"); + CMD1(CCC_ScriptLuaStudioConnect, "lua_studio_connect"); + CMD1(CCC_ScriptLuaStudioDisconnect, "lua_studio_disconnect"); #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) - - CMD1(CCC_ShowMonsterInfo, "ai_monster_info"); - CMD1(CCC_DebugFonts, "debug_fonts"); - CMD1(CCC_TuneAttachableItem,"dbg_adjust_attachable_item"); + CMD1(CCC_ShowMonsterInfo, "ai_monster_info"); + CMD1(CCC_DebugFonts, "debug_fonts"); + CMD1(CCC_TuneAttachableItem, "dbg_adjust_attachable_item"); - CMD1(CCC_ShowAnimationStats,"ai_show_animation_stats"); + CMD1(CCC_ShowAnimationStats, "ai_show_animation_stats"); #endif // DEBUG - + #ifndef MASTER_GOLD - CMD3(CCC_Mask, "ai_ignore_actor", &psAI_Flags, aiIgnoreActor); + CMD3(CCC_Mask, "ai_ignore_actor", &psAI_Flags, aiIgnoreActor); #endif // MASTER_GOLD - // Physics - CMD1(CCC_PHFps, "ph_frequency" ); - CMD1(CCC_PHIterations, "ph_iterations" ); + // Physics + CMD1(CCC_PHFps, "ph_frequency"); + CMD1(CCC_PHIterations, "ph_iterations"); #ifdef DEBUG - CMD1(CCC_PHGravity, "ph_gravity" ); - CMD4(CCC_FloatBlock, "ph_timefactor", &phTimefactor , 0.000001f ,1000.f ); - CMD4(CCC_FloatBlock, "ph_break_common_factor", &ph_console::phBreakCommonFactor , 0.f ,1000000000.f ); - CMD4(CCC_FloatBlock, "ph_rigid_break_weapon_factor", &ph_console::phRigidBreakWeaponFactor , 0.f ,1000000000.f ); - CMD4(CCC_Integer, "ph_tri_clear_disable_count", &ph_console::ph_tri_clear_disable_count , 0, 255 ); - CMD4(CCC_FloatBlock, "ph_tri_query_ex_aabb_rate", &ph_console::ph_tri_query_ex_aabb_rate , 1.01f ,3.f ); - CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP ); + CMD1(CCC_PHGravity, "ph_gravity"); + CMD4(CCC_FloatBlock, "ph_timefactor", &phTimefactor, 0.000001f, 1000.f); + CMD4(CCC_FloatBlock, "ph_break_common_factor", &ph_console::phBreakCommonFactor, 0.f, 1000000000.f); + CMD4(CCC_FloatBlock, "ph_rigid_break_weapon_factor", &ph_console::phRigidBreakWeaponFactor, 0.f, 1000000000.f); + CMD4(CCC_Integer, "ph_tri_clear_disable_count", &ph_console::ph_tri_clear_disable_count, 0, 255); + CMD4(CCC_FloatBlock, "ph_tri_query_ex_aabb_rate", &ph_console::ph_tri_query_ex_aabb_rate, 1.01f, 3.f); + CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); + CMD1(CCC_JumpToLevel, "jump_to_level"); + CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); + CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); + CMD1(CCC_Script, "run_script"); + CMD1(CCC_ScriptCommand, "run_string"); + CMD1(CCC_TimeFactor, "time_factor"); #endif // DEBUG -//#ifndef MASTER_GOLD - CMD1(CCC_JumpToLevel, "jump_to_level" ); - CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE ); - CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); - CMD1(CCC_Script, "run_script"); - CMD1(CCC_ScriptCommand, "run_string"); - CMD1(CCC_TimeFactor, "time_factor"); -//#endif // MASTER_GOLD - - CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); - CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); - CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); - -#ifdef DEBUG - CMD1(CCC_LuaHelp, "lua_help"); - CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); - CMD1(CCC_ClearSmartCastStats, "clear_smart_cast_stats"); - - CMD3(CCC_Mask, "dbg_draw_actor_alive", &dbg_net_Draw_Flags, dbg_draw_actor_alive); - CMD3(CCC_Mask, "dbg_draw_actor_dead", &dbg_net_Draw_Flags, dbg_draw_actor_dead ); - CMD3(CCC_Mask, "dbg_draw_customzone", &dbg_net_Draw_Flags, dbg_draw_customzone ); - CMD3(CCC_Mask, "dbg_draw_teamzone", &dbg_net_Draw_Flags, dbg_draw_teamzone); - CMD3(CCC_Mask, "dbg_draw_invitem", &dbg_net_Draw_Flags, dbg_draw_invitem); - CMD3(CCC_Mask, "dbg_draw_actor_phys", &dbg_net_Draw_Flags, dbg_draw_actor_phys); - CMD3(CCC_Mask, "dbg_draw_customdetector", &dbg_net_Draw_Flags, dbg_draw_customdetector); - CMD3(CCC_Mask, "dbg_destroy", &dbg_net_Draw_Flags, dbg_destroy); - CMD3(CCC_Mask, "dbg_draw_autopickupbox", &dbg_net_Draw_Flags, dbg_draw_autopickupbox); - CMD3(CCC_Mask, "dbg_draw_rp", &dbg_net_Draw_Flags, dbg_draw_rp); - CMD3(CCC_Mask, "dbg_draw_climbable", &dbg_net_Draw_Flags, dbg_draw_climbable); - CMD3(CCC_Mask, "dbg_draw_skeleton", &dbg_net_Draw_Flags, dbg_draw_skeleton); - - - CMD3(CCC_Mask, "dbg_draw_ph_contacts", &ph_dbg_draw_mask, phDbgDrawContacts); - CMD3(CCC_Mask, "dbg_draw_ph_enabled_aabbs", &ph_dbg_draw_mask, phDbgDrawEnabledAABBS); - CMD3(CCC_Mask, "dbg_draw_ph_intersected_tries",&ph_dbg_draw_mask, phDBgDrawIntersectedTries); - CMD3(CCC_Mask, "dbg_draw_ph_saved_tries", &ph_dbg_draw_mask, phDbgDrawSavedTries); - CMD3(CCC_Mask, "dbg_draw_ph_tri_trace", &ph_dbg_draw_mask, phDbgDrawTriTrace); - CMD3(CCC_Mask, "dbg_draw_ph_positive_tries", &ph_dbg_draw_mask, phDBgDrawPositiveTries); - CMD3(CCC_Mask, "dbg_draw_ph_negative_tries", &ph_dbg_draw_mask, phDBgDrawNegativeTries); - CMD3(CCC_Mask, "dbg_draw_ph_tri_test_aabb", &ph_dbg_draw_mask, phDbgDrawTriTestAABB); - CMD3(CCC_Mask, "dbg_draw_ph_tries_changes_sign",&ph_dbg_draw_mask, phDBgDrawTriesChangesSign); - CMD3(CCC_Mask, "dbg_draw_ph_tri_point" ,&ph_dbg_draw_mask, phDbgDrawTriPoint); - CMD3(CCC_Mask, "dbg_draw_ph_explosion_position",&ph_dbg_draw_mask, phDbgDrawExplosionPos); - CMD3(CCC_Mask, "dbg_draw_ph_statistics" ,&ph_dbg_draw_mask, phDbgDrawObjectStatistics); - CMD3(CCC_Mask, "dbg_draw_ph_mass_centres" ,&ph_dbg_draw_mask, phDbgDrawMassCenters); - CMD3(CCC_Mask, "dbg_draw_ph_death_boxes" ,&ph_dbg_draw_mask, phDbgDrawDeathActivationBox); - CMD3(CCC_Mask, "dbg_draw_ph_hit_app_pos" ,&ph_dbg_draw_mask, phHitApplicationPoints); - CMD3(CCC_Mask, "dbg_draw_ph_cashed_tries_stats",&ph_dbg_draw_mask, phDbgDrawCashedTriesStat); - CMD3(CCC_Mask, "dbg_draw_ph_car_dynamics" ,&ph_dbg_draw_mask, phDbgDrawCarDynamics); - CMD3(CCC_Mask, "dbg_draw_ph_car_plots" ,&ph_dbg_draw_mask, phDbgDrawCarPlots); - CMD3(CCC_Mask, "dbg_ph_ladder" ,&ph_dbg_draw_mask, phDbgLadder); - CMD3(CCC_Mask, "dbg_draw_ph_explosions" ,&ph_dbg_draw_mask, phDbgDrawExplosions); - CMD3(CCC_Mask, "dbg_draw_car_plots_all_trans" ,&ph_dbg_draw_mask, phDbgDrawCarAllTrnsm); - CMD3(CCC_Mask, "dbg_draw_ph_zbuffer_disable" ,&ph_dbg_draw_mask, phDbgDrawZDisable); - CMD3(CCC_Mask, "dbg_ph_obj_collision_damage" ,&ph_dbg_draw_mask, phDbgDispObjCollisionDammage); - CMD_RADIOGROUPMASK2("dbg_ph_ai_always_phmove",&ph_dbg_draw_mask,phDbgAlwaysUseAiPhMove,"dbg_ph_ai_never_phmove",&ph_dbg_draw_mask,phDbgNeverUseAiPhMove); - CMD3(CCC_Mask, "dbg_ph_ik" ,&ph_dbg_draw_mask, phDbgIK); - CMD3(CCC_Mask, "dbg_ph_ik_off" ,&ph_dbg_draw_mask1,phDbgIKOff); - CMD3(CCC_Mask, "dbg_draw_ph_ik_goal" ,&ph_dbg_draw_mask, phDbgDrawIKGoal); - CMD3(CCC_Mask, "dbg_ph_ik_limits" ,&ph_dbg_draw_mask, phDbgIKLimits); - CMD3(CCC_Mask, "dbg_ph_character_control" ,&ph_dbg_draw_mask, phDbgCharacterControl); - CMD3(CCC_Mask, "dbg_draw_ph_ray_motions" ,&ph_dbg_draw_mask, phDbgDrawRayMotions); - CMD4(CCC_Float, "dbg_ph_vel_collid_damage_to_display",&dbg_vel_collid_damage_to_display, 0.f, 1000.f); - CMD4(CCC_DbgBullets,"dbg_draw_bullet_hit", &g_bDrawBulletHit, 0, 1) ; - CMD4(CCC_Integer, "dbg_draw_fb_crosshair", &g_bDrawFirstBulletCrosshair, 0, 1); - CMD1(CCC_DbgPhTrackObj,"dbg_track_obj"); - CMD3(CCC_Mask, "dbg_ph_actor_restriction" ,&ph_dbg_draw_mask1, ph_m1_DbgActorRestriction); - CMD3(CCC_Mask, "dbg_draw_ph_hit_anims" ,&ph_dbg_draw_mask1, phDbgHitAnims); - CMD3(CCC_Mask, "dbg_draw_ph_ik_limits" ,&ph_dbg_draw_mask1, phDbgDrawIKLimits); - CMD3(CCC_Mask, "dbg_draw_ph_ik_predict" ,&ph_dbg_draw_mask1, phDbgDrawIKPredict); - CMD3(CCC_Mask, "dbg_draw_ph_ik_collision" ,&ph_dbg_draw_mask1, phDbgDrawIKCollision); - CMD3(CCC_Mask, "dbg_draw_ph_ik_shift_object" ,&ph_dbg_draw_mask1, phDbgDrawIKSHiftObject); - CMD3(CCC_Mask, "dbg_draw_ph_ik_blending" ,&ph_dbg_draw_mask1, phDbgDrawIKBlending); - CMD1(CCC_DBGDrawCashedClear, "dbg_ph_cashed_clear"); -extern BOOL dbg_draw_character_bones ; -extern BOOL dbg_draw_character_physics ; -extern BOOL dbg_draw_character_binds ; -extern BOOL dbg_draw_character_physics_pones ; -extern BOOL ik_cam_shift ; - CMD4(CCC_Integer, "dbg_draw_character_bones" ,&dbg_draw_character_bones, FALSE, TRUE ); - CMD4(CCC_Integer, "dbg_draw_character_physics" ,&dbg_draw_character_physics, FALSE, TRUE ); - CMD4(CCC_Integer, "dbg_draw_character_binds" ,&dbg_draw_character_binds, FALSE, TRUE ); - CMD4(CCC_Integer, "dbg_draw_character_physics_pones" ,&dbg_draw_character_physics_pones, FALSE, TRUE ); - - CMD4(CCC_Integer, "ik_cam_shift" ,&ik_cam_shift, FALSE, TRUE ); - -extern float ik_cam_shift_tolerance ; -CMD4(CCC_Float, "ik_cam_shift_tolerance",&ik_cam_shift_tolerance, 0.f, 2.f); -float ik_cam_shift_speed ; -CMD4(CCC_Float, "ik_cam_shift_speed",&ik_cam_shift_speed, 0.f, 1.f); -extern BOOL dbg_draw_doors ; -CMD4(CCC_Integer, "dbg_draw_doors" ,&dbg_draw_doors, FALSE, TRUE ); + /* AVO: changing restriction to -dbg key instead of DEBUG */ + //#ifndef MASTER_GOLD +#ifdef MASTER_GOLD + if (0 != strstr(Core.Params, "-dbg")) + { + CMD1(CCC_JumpToLevel, "jump_to_level"); + CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); + CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); + CMD1(CCC_Script, "run_script"); + CMD1(CCC_ScriptCommand, "run_string"); + CMD1(CCC_TimeFactor, "time_factor"); + //CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); + CMD1(CCC_PHGravity, "ph_gravity"); + } +#endif // MASTER_GOLD + //#endif // MASTER_GOLD + /* AVO: end */ -/* -extern int ik_allign_free_foot; -extern int ik_local_blending; -extern int ik_blend_free_foot; -extern int ik_collide_blend; - CMD4(CCC_Integer, "ik_allign_free_foot" ,&ik_allign_free_foot, 0, 1); - CMD4(CCC_Integer, "ik_local_blending" ,&ik_local_blending, 0, 1); - CMD4(CCC_Integer, "ik_blend_free_foot" ,&ik_blend_free_foot, 0, 1); - CMD4(CCC_Integer, "ik_collide_blend" ,&ik_collide_blend, 0, 1); -*/ -extern BOOL dbg_draw_ragdoll_spawn; - CMD4(CCC_Integer, "dbg_draw_ragdoll_spawn" ,&dbg_draw_ragdoll_spawn, FALSE, TRUE ); -extern BOOL debug_step_info; -extern BOOL debug_step_info_load; - CMD4(CCC_Integer, "debug_step_info" ,&debug_step_info, FALSE, TRUE ); - CMD4(CCC_Integer, "debug_step_info_load" ,&debug_step_info_load, FALSE, TRUE ); -extern BOOL debug_character_material_load; - CMD4(CCC_Integer, "debug_character_material_load" ,&debug_character_material_load, FALSE, TRUE ); -extern XRPHYSICS_API BOOL dbg_draw_camera_collision; - CMD4(CCC_Integer, "dbg_draw_camera_collision" ,&dbg_draw_camera_collision, FALSE, TRUE ); -extern XRPHYSICS_API float camera_collision_character_skin_depth ; -extern XRPHYSICS_API float camera_collision_character_shift_z ; - CMD4(CCC_FloatBlock,"camera_collision_character_shift_z", &camera_collision_character_shift_z, 0.f, 1.f ); - CMD4(CCC_FloatBlock,"camera_collision_character_skin_depth", &camera_collision_character_skin_depth, 0.f, 1.f ); -extern BOOL dbg_draw_animation_movement_controller; - CMD4(CCC_Integer, "dbg_draw_animation_movement_controller" ,&dbg_draw_animation_movement_controller, FALSE, TRUE ); + CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); + CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); + CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); -/* -enum -{ - dbg_track_obj_blends_bp_0 = 1<< 0, - dbg_track_obj_blends_bp_1 = 1<< 1, - dbg_track_obj_blends_bp_2 = 1<< 2, - dbg_track_obj_blends_bp_3 = 1<< 3, - dbg_track_obj_blends_motion_name = 1<< 4, - dbg_track_obj_blends_time = 1<< 5, - dbg_track_obj_blends_ammount = 1<< 6, - dbg_track_obj_blends_mix_params = 1<< 7, - dbg_track_obj_blends_flags = 1<< 8, - dbg_track_obj_blends_state = 1<< 9, - dbg_track_obj_blends_dump = 1<< 10 -}; -*/ -extern Flags32 dbg_track_obj_flags ; -CMD3(CCC_Mask, "dbg_track_obj_blends_bp_0" ,&dbg_track_obj_flags, dbg_track_obj_blends_bp_0); -CMD3(CCC_Mask, "dbg_track_obj_blends_bp_1" ,&dbg_track_obj_flags, dbg_track_obj_blends_bp_1); -CMD3(CCC_Mask, "dbg_track_obj_blends_bp_2" ,&dbg_track_obj_flags, dbg_track_obj_blends_bp_2); -CMD3(CCC_Mask, "dbg_track_obj_blends_bp_3" ,&dbg_track_obj_flags, dbg_track_obj_blends_bp_3); -CMD3(CCC_Mask, "dbg_track_obj_blends_motion_name" ,&dbg_track_obj_flags, dbg_track_obj_blends_motion_name); -CMD3(CCC_Mask, "dbg_track_obj_blends_time" ,&dbg_track_obj_flags, dbg_track_obj_blends_time); - -CMD3(CCC_Mask, "dbg_track_obj_blends_ammount" ,&dbg_track_obj_flags ,dbg_track_obj_blends_ammount ); -CMD3(CCC_Mask, "dbg_track_obj_blends_mix_params" ,&dbg_track_obj_flags ,dbg_track_obj_blends_mix_params ); -CMD3(CCC_Mask, "dbg_track_obj_blends_flags" ,&dbg_track_obj_flags ,dbg_track_obj_blends_flags ); -CMD3(CCC_Mask, "dbg_track_obj_blends_state" ,&dbg_track_obj_flags ,dbg_track_obj_blends_state ); -CMD3(CCC_Mask, "dbg_track_obj_blends_dump" ,&dbg_track_obj_flags ,dbg_track_obj_blends_dump ); - -CMD1(CCC_DbgVar, "dbg_var"); - -extern float dbg_text_height_scale; -CMD4(CCC_FloatBlock, "dbg_text_height_scale", &dbg_text_height_scale , 0.2f ,5.f ); +#ifdef DEBUG + CMD1(CCC_LuaHelp, "lua_help"); + CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); + CMD1(CCC_ClearSmartCastStats, "clear_smart_cast_stats"); + + CMD3(CCC_Mask, "dbg_draw_actor_alive", &dbg_net_Draw_Flags, dbg_draw_actor_alive); + CMD3(CCC_Mask, "dbg_draw_actor_dead", &dbg_net_Draw_Flags, dbg_draw_actor_dead); + CMD3(CCC_Mask, "dbg_draw_customzone", &dbg_net_Draw_Flags, dbg_draw_customzone); + CMD3(CCC_Mask, "dbg_draw_teamzone", &dbg_net_Draw_Flags, dbg_draw_teamzone); + CMD3(CCC_Mask, "dbg_draw_invitem", &dbg_net_Draw_Flags, dbg_draw_invitem); + CMD3(CCC_Mask, "dbg_draw_actor_phys", &dbg_net_Draw_Flags, dbg_draw_actor_phys); + CMD3(CCC_Mask, "dbg_draw_customdetector", &dbg_net_Draw_Flags, dbg_draw_customdetector); + CMD3(CCC_Mask, "dbg_destroy", &dbg_net_Draw_Flags, dbg_destroy); + CMD3(CCC_Mask, "dbg_draw_autopickupbox", &dbg_net_Draw_Flags, dbg_draw_autopickupbox); + CMD3(CCC_Mask, "dbg_draw_rp", &dbg_net_Draw_Flags, dbg_draw_rp); + CMD3(CCC_Mask, "dbg_draw_climbable", &dbg_net_Draw_Flags, dbg_draw_climbable); + CMD3(CCC_Mask, "dbg_draw_skeleton", &dbg_net_Draw_Flags, dbg_draw_skeleton); + + CMD3(CCC_Mask, "dbg_draw_ph_contacts", &ph_dbg_draw_mask, phDbgDrawContacts); + CMD3(CCC_Mask, "dbg_draw_ph_enabled_aabbs", &ph_dbg_draw_mask, phDbgDrawEnabledAABBS); + CMD3(CCC_Mask, "dbg_draw_ph_intersected_tries", &ph_dbg_draw_mask, phDBgDrawIntersectedTries); + CMD3(CCC_Mask, "dbg_draw_ph_saved_tries", &ph_dbg_draw_mask, phDbgDrawSavedTries); + CMD3(CCC_Mask, "dbg_draw_ph_tri_trace", &ph_dbg_draw_mask, phDbgDrawTriTrace); + CMD3(CCC_Mask, "dbg_draw_ph_positive_tries", &ph_dbg_draw_mask, phDBgDrawPositiveTries); + CMD3(CCC_Mask, "dbg_draw_ph_negative_tries", &ph_dbg_draw_mask, phDBgDrawNegativeTries); + CMD3(CCC_Mask, "dbg_draw_ph_tri_test_aabb", &ph_dbg_draw_mask, phDbgDrawTriTestAABB); + CMD3(CCC_Mask, "dbg_draw_ph_tries_changes_sign", &ph_dbg_draw_mask, phDBgDrawTriesChangesSign); + CMD3(CCC_Mask, "dbg_draw_ph_tri_point", &ph_dbg_draw_mask, phDbgDrawTriPoint); + CMD3(CCC_Mask, "dbg_draw_ph_explosion_position", &ph_dbg_draw_mask, phDbgDrawExplosionPos); + CMD3(CCC_Mask, "dbg_draw_ph_statistics", &ph_dbg_draw_mask, phDbgDrawObjectStatistics); + CMD3(CCC_Mask, "dbg_draw_ph_mass_centres", &ph_dbg_draw_mask, phDbgDrawMassCenters); + CMD3(CCC_Mask, "dbg_draw_ph_death_boxes", &ph_dbg_draw_mask, phDbgDrawDeathActivationBox); + CMD3(CCC_Mask, "dbg_draw_ph_hit_app_pos", &ph_dbg_draw_mask, phHitApplicationPoints); + CMD3(CCC_Mask, "dbg_draw_ph_cashed_tries_stats", &ph_dbg_draw_mask, phDbgDrawCashedTriesStat); + CMD3(CCC_Mask, "dbg_draw_ph_car_dynamics", &ph_dbg_draw_mask, phDbgDrawCarDynamics); + CMD3(CCC_Mask, "dbg_draw_ph_car_plots", &ph_dbg_draw_mask, phDbgDrawCarPlots); + CMD3(CCC_Mask, "dbg_ph_ladder", &ph_dbg_draw_mask, phDbgLadder); + CMD3(CCC_Mask, "dbg_draw_ph_explosions", &ph_dbg_draw_mask, phDbgDrawExplosions); + CMD3(CCC_Mask, "dbg_draw_car_plots_all_trans", &ph_dbg_draw_mask, phDbgDrawCarAllTrnsm); + CMD3(CCC_Mask, "dbg_draw_ph_zbuffer_disable", &ph_dbg_draw_mask, phDbgDrawZDisable); + CMD3(CCC_Mask, "dbg_ph_obj_collision_damage", &ph_dbg_draw_mask, phDbgDispObjCollisionDammage); + CMD_RADIOGROUPMASK2("dbg_ph_ai_always_phmove", &ph_dbg_draw_mask, phDbgAlwaysUseAiPhMove, "dbg_ph_ai_never_phmove", &ph_dbg_draw_mask, phDbgNeverUseAiPhMove); + CMD3(CCC_Mask, "dbg_ph_ik", &ph_dbg_draw_mask, phDbgIK); + CMD3(CCC_Mask, "dbg_ph_ik_off", &ph_dbg_draw_mask1, phDbgIKOff); + CMD3(CCC_Mask, "dbg_draw_ph_ik_goal", &ph_dbg_draw_mask, phDbgDrawIKGoal); + CMD3(CCC_Mask, "dbg_ph_ik_limits", &ph_dbg_draw_mask, phDbgIKLimits); + CMD3(CCC_Mask, "dbg_ph_character_control", &ph_dbg_draw_mask, phDbgCharacterControl); + CMD3(CCC_Mask, "dbg_draw_ph_ray_motions", &ph_dbg_draw_mask, phDbgDrawRayMotions); + CMD4(CCC_Float, "dbg_ph_vel_collid_damage_to_display", &dbg_vel_collid_damage_to_display, 0.f, 1000.f); + CMD4(CCC_DbgBullets, "dbg_draw_bullet_hit", &g_bDrawBulletHit, 0, 1); + CMD4(CCC_Integer, "dbg_draw_fb_crosshair", &g_bDrawFirstBulletCrosshair, 0, 1); + CMD1(CCC_DbgPhTrackObj, "dbg_track_obj"); + CMD3(CCC_Mask, "dbg_ph_actor_restriction", &ph_dbg_draw_mask1, ph_m1_DbgActorRestriction); + CMD3(CCC_Mask, "dbg_draw_ph_hit_anims", &ph_dbg_draw_mask1, phDbgHitAnims); + CMD3(CCC_Mask, "dbg_draw_ph_ik_limits", &ph_dbg_draw_mask1, phDbgDrawIKLimits); + CMD3(CCC_Mask, "dbg_draw_ph_ik_predict", &ph_dbg_draw_mask1, phDbgDrawIKPredict); + CMD3(CCC_Mask, "dbg_draw_ph_ik_collision", &ph_dbg_draw_mask1, phDbgDrawIKCollision); + CMD3(CCC_Mask, "dbg_draw_ph_ik_shift_object", &ph_dbg_draw_mask1, phDbgDrawIKSHiftObject); + CMD3(CCC_Mask, "dbg_draw_ph_ik_blending", &ph_dbg_draw_mask1, phDbgDrawIKBlending); + CMD1(CCC_DBGDrawCashedClear, "dbg_ph_cashed_clear"); + extern BOOL dbg_draw_character_bones; + extern BOOL dbg_draw_character_physics; + extern BOOL dbg_draw_character_binds; + extern BOOL dbg_draw_character_physics_pones; + extern BOOL ik_cam_shift; + CMD4(CCC_Integer, "dbg_draw_character_bones", &dbg_draw_character_bones, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_physics", &dbg_draw_character_physics, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_binds", &dbg_draw_character_binds, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_physics_pones", &dbg_draw_character_physics_pones, FALSE, TRUE); + + CMD4(CCC_Integer, "ik_cam_shift", &ik_cam_shift, FALSE, TRUE); + + extern float ik_cam_shift_tolerance; + CMD4(CCC_Float, "ik_cam_shift_tolerance", &ik_cam_shift_tolerance, 0.f, 2.f); + float ik_cam_shift_speed; + CMD4(CCC_Float, "ik_cam_shift_speed", &ik_cam_shift_speed, 0.f, 1.f); + extern BOOL dbg_draw_doors; + CMD4(CCC_Integer, "dbg_draw_doors", &dbg_draw_doors, FALSE, TRUE); + + /* + extern int ik_allign_free_foot; + extern int ik_local_blending; + extern int ik_blend_free_foot; + extern int ik_collide_blend; + CMD4(CCC_Integer, "ik_allign_free_foot" ,&ik_allign_free_foot, 0, 1); + CMD4(CCC_Integer, "ik_local_blending" ,&ik_local_blending, 0, 1); + CMD4(CCC_Integer, "ik_blend_free_foot" ,&ik_blend_free_foot, 0, 1); + CMD4(CCC_Integer, "ik_collide_blend" ,&ik_collide_blend, 0, 1); + */ + extern BOOL dbg_draw_ragdoll_spawn; + CMD4(CCC_Integer, "dbg_draw_ragdoll_spawn", &dbg_draw_ragdoll_spawn, FALSE, TRUE); + extern BOOL debug_step_info; + extern BOOL debug_step_info_load; + CMD4(CCC_Integer, "debug_step_info", &debug_step_info, FALSE, TRUE); + CMD4(CCC_Integer, "debug_step_info_load", &debug_step_info_load, FALSE, TRUE); + extern BOOL debug_character_material_load; + CMD4(CCC_Integer, "debug_character_material_load", &debug_character_material_load, FALSE, TRUE); + extern XRPHYSICS_API BOOL dbg_draw_camera_collision; + CMD4(CCC_Integer, "dbg_draw_camera_collision", &dbg_draw_camera_collision, FALSE, TRUE); + extern XRPHYSICS_API float camera_collision_character_skin_depth; + extern XRPHYSICS_API float camera_collision_character_shift_z; + CMD4(CCC_FloatBlock, "camera_collision_character_shift_z", &camera_collision_character_shift_z, 0.f, 1.f); + CMD4(CCC_FloatBlock, "camera_collision_character_skin_depth", &camera_collision_character_skin_depth, 0.f, 1.f); + extern BOOL dbg_draw_animation_movement_controller; + CMD4(CCC_Integer, "dbg_draw_animation_movement_controller", &dbg_draw_animation_movement_controller, FALSE, TRUE); + + /* + enum + { + dbg_track_obj_blends_bp_0 = 1<< 0, + dbg_track_obj_blends_bp_1 = 1<< 1, + dbg_track_obj_blends_bp_2 = 1<< 2, + dbg_track_obj_blends_bp_3 = 1<< 3, + dbg_track_obj_blends_motion_name = 1<< 4, + dbg_track_obj_blends_time = 1<< 5, + dbg_track_obj_blends_ammount = 1<< 6, + dbg_track_obj_blends_mix_params = 1<< 7, + dbg_track_obj_blends_flags = 1<< 8, + dbg_track_obj_blends_state = 1<< 9, + dbg_track_obj_blends_dump = 1<< 10 + }; + */ + extern Flags32 dbg_track_obj_flags; + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_0", &dbg_track_obj_flags, dbg_track_obj_blends_bp_0); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_1", &dbg_track_obj_flags, dbg_track_obj_blends_bp_1); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_2", &dbg_track_obj_flags, dbg_track_obj_blends_bp_2); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_3", &dbg_track_obj_flags, dbg_track_obj_blends_bp_3); + CMD3(CCC_Mask, "dbg_track_obj_blends_motion_name", &dbg_track_obj_flags, dbg_track_obj_blends_motion_name); + CMD3(CCC_Mask, "dbg_track_obj_blends_time", &dbg_track_obj_flags, dbg_track_obj_blends_time); + + CMD3(CCC_Mask, "dbg_track_obj_blends_ammount", &dbg_track_obj_flags, dbg_track_obj_blends_ammount); + CMD3(CCC_Mask, "dbg_track_obj_blends_mix_params", &dbg_track_obj_flags, dbg_track_obj_blends_mix_params); + CMD3(CCC_Mask, "dbg_track_obj_blends_flags", &dbg_track_obj_flags, dbg_track_obj_blends_flags); + CMD3(CCC_Mask, "dbg_track_obj_blends_state", &dbg_track_obj_flags, dbg_track_obj_blends_state); + CMD3(CCC_Mask, "dbg_track_obj_blends_dump", &dbg_track_obj_flags, dbg_track_obj_blends_dump); + + CMD1(CCC_DbgVar, "dbg_var"); + + extern float dbg_text_height_scale; + CMD4(CCC_FloatBlock, "dbg_text_height_scale", &dbg_text_height_scale, 0.2f, 5.f); #endif - - #ifdef DEBUG - CMD4(CCC_Integer, "string_table_error_msg", &CStringTable::m_bWriteErrorsToLog, 0, 1); + CMD4(CCC_Integer, "string_table_error_msg", &CStringTable::m_bWriteErrorsToLog, 0, 1); - CMD1(CCC_DumpInfos, "dump_infos"); - CMD1(CCC_DumpTasks, "dump_tasks"); - CMD1(CCC_DumpMap, "dump_map"); - CMD1(CCC_DumpCreatures, "dump_creatures"); + CMD1(CCC_DumpInfos, "dump_infos"); + CMD1(CCC_DumpTasks, "dump_tasks"); + CMD1(CCC_DumpMap, "dump_map"); + CMD1(CCC_DumpCreatures, "dump_creatures"); #endif - CMD3(CCC_Mask, "cl_dynamiccrosshair", &psHUD_Flags, HUD_CROSSHAIR_DYNAMIC); - CMD1(CCC_MainMenu, "main_menu" ); + CMD3(CCC_Mask, "cl_dynamiccrosshair", &psHUD_Flags, HUD_CROSSHAIR_DYNAMIC); + CMD1(CCC_MainMenu, "main_menu"); #ifndef MASTER_GOLD - CMD1(CCC_StartTimeSingle, "start_time_single"); - CMD4(CCC_TimeFactorSingle, "time_factor_single", &g_fTimeFactor, 0.f, 1000.0f); + CMD1(CCC_StartTimeSingle, "start_time_single"); + CMD4(CCC_TimeFactorSingle, "time_factor_single", &g_fTimeFactor, 0.f, 1000.0f); #endif // MASTER_GOLD + g_uCommonFlags.zero(); + g_uCommonFlags.set(flAiUseTorchDynamicLights, TRUE); - g_uCommonFlags.zero(); - g_uCommonFlags.set(flAiUseTorchDynamicLights, TRUE); - - CMD3(CCC_Mask, "ai_use_torch_dynamic_lights", &g_uCommonFlags, flAiUseTorchDynamicLights); + CMD3(CCC_Mask, "ai_use_torch_dynamic_lights", &g_uCommonFlags, flAiUseTorchDynamicLights); #ifndef MASTER_GOLD - CMD4(CCC_Vector3, "psp_cam_offset", &CCameraLook2::m_cam_offset, Fvector().set(-1000,-1000,-1000),Fvector().set(1000,1000,1000)); + CMD4(CCC_Vector3, "psp_cam_offset", &CCameraLook2::m_cam_offset, Fvector().set(-1000, -1000, -1000), Fvector().set(1000, 1000, 1000)); #endif // MASTER_GOLD - CMD1(CCC_GSCheckForUpdates, "check_for_updates"); + CMD1(CCC_GSCheckForUpdates, "check_for_updates"); #ifdef DEBUG - CMD1(CCC_Crash, "crash" ); - CMD1(CCC_DumpObjects,"dump_all_objects" ); - CMD3(CCC_String, "stalker_death_anim", dbg_stalker_death_anim, 32); - CMD4(CCC_Integer, "death_anim_debug", &death_anim_debug, FALSE, TRUE ); - CMD4(CCC_Integer, "death_anim_velocity", &b_death_anim_velocity, FALSE, TRUE ); - CMD4(CCC_Integer, "dbg_imotion_draw_velocity", &dbg_imotion_draw_velocity, FALSE, TRUE ); - CMD4(CCC_Integer, "dbg_imotion_collide_debug", &dbg_imotion_collide_debug, FALSE, TRUE ); - - CMD4(CCC_Integer, "dbg_imotion_draw_skeleton", &dbg_imotion_draw_skeleton, FALSE, TRUE ); - CMD4(CCC_Float, "dbg_imotion_draw_velocity_scale", &dbg_imotion_draw_velocity_scale, 0.0001f, 100.0f ); - - CMD4(CCC_Integer, "show_wnd_rect_all", &g_show_wnd_rect2, 0, 1); - CMD4(CCC_Integer, "dbg_show_ani_info", &g_ShowAnimationInfo, 0, 1) ; - CMD4(CCC_Integer, "dbg_dump_physics_step", &ph_console::g_bDebugDumpPhysicsStep, 0, 1); - CMD1(CCC_InvUpgradesHierarchy, "inv_upgrades_hierarchy"); - CMD1(CCC_InvUpgradesCurItem, "inv_upgrades_cur_item"); - CMD4(CCC_Integer, "inv_upgrades_log", &g_upgrades_log, 0, 1); - CMD1(CCC_InvDropAllItems, "inv_drop_all_items"); - -extern BOOL dbg_moving_bones_snd_player; - CMD4(CCC_Integer, "dbg_bones_snd_player", &dbg_moving_bones_snd_player, FALSE, TRUE ); + CMD1(CCC_Crash, "crash"); + CMD1(CCC_DumpObjects, "dump_all_objects"); + CMD3(CCC_String, "stalker_death_anim", dbg_stalker_death_anim, 32); + CMD4(CCC_Integer, "death_anim_debug", &death_anim_debug, FALSE, TRUE); + CMD4(CCC_Integer, "death_anim_velocity", &b_death_anim_velocity, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_imotion_draw_velocity", &dbg_imotion_draw_velocity, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_imotion_collide_debug", &dbg_imotion_collide_debug, FALSE, TRUE); + + CMD4(CCC_Integer, "dbg_imotion_draw_skeleton", &dbg_imotion_draw_skeleton, FALSE, TRUE); + CMD4(CCC_Float, "dbg_imotion_draw_velocity_scale", &dbg_imotion_draw_velocity_scale, 0.0001f, 100.0f); + + CMD4(CCC_Integer, "show_wnd_rect_all", &g_show_wnd_rect2, 0, 1); + CMD4(CCC_Integer, "dbg_show_ani_info", &g_ShowAnimationInfo, 0, 1); + CMD4(CCC_Integer, "dbg_dump_physics_step", &ph_console::g_bDebugDumpPhysicsStep, 0, 1); + CMD1(CCC_InvUpgradesHierarchy, "inv_upgrades_hierarchy"); + CMD1(CCC_InvUpgradesCurItem, "inv_upgrades_cur_item"); + CMD4(CCC_Integer, "inv_upgrades_log", &g_upgrades_log, 0, 1); + CMD1(CCC_InvDropAllItems, "inv_drop_all_items"); + + extern BOOL dbg_moving_bones_snd_player; + CMD4(CCC_Integer, "dbg_bones_snd_player", &dbg_moving_bones_snd_player, FALSE, TRUE); #endif - CMD4(CCC_Float, "con_sensitive", &g_console_sensitive, 0.01f, 1.0f ); - CMD4(CCC_Integer, "wpn_aim_toggle", &b_toggle_weapon_aim, 0, 1); -// CMD4(CCC_Integer, "hud_old_style", &g_old_style_ui_hud, 0, 1); + CMD4(CCC_Float, "con_sensitive", &g_console_sensitive, 0.01f, 1.0f); + CMD4(CCC_Integer, "wpn_aim_toggle", &b_toggle_weapon_aim, 0, 1); + // CMD4(CCC_Integer, "hud_old_style", &g_old_style_ui_hud, 0, 1); #ifdef DEBUG - CMD4(CCC_Float, "ai_smart_cover_animation_speed_factor", &g_smart_cover_animation_speed_factor, .1f, 10.f); - CMD4(CCC_Float, "air_resistance_epsilon", &air_resistance_epsilon, .0f, 1.f); + CMD4(CCC_Float, "ai_smart_cover_animation_speed_factor", &g_smart_cover_animation_speed_factor, .1f, 10.f); + CMD4(CCC_Float, "air_resistance_epsilon", &air_resistance_epsilon, .0f, 1.f); #endif // #ifdef DEBUG - CMD4(CCC_Integer, "g_sleep_time", &psActorSleepTime, 1, 24 ); - - CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); + CMD4(CCC_Integer, "g_sleep_time", &psActorSleepTime, 1, 24); + + CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); - CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); + CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG - //extern BOOL g_use_new_ballistics; - //CMD4(CCC_Integer, "use_new_ballistics", &g_use_new_ballistics, 0, 1); - extern float g_bullet_time_factor; - CMD4(CCC_Float, "g_bullet_time_factor", &g_bullet_time_factor, 0.f, 10.f); + //extern BOOL g_use_new_ballistics; + //CMD4(CCC_Integer, "use_new_ballistics", &g_use_new_ballistics, 0, 1); + extern float g_bullet_time_factor; + CMD4(CCC_Float, "g_bullet_time_factor", &g_bullet_time_factor, 0.f, 10.f); #endif - #ifdef DEBUG - extern BOOL g_ai_dbg_sight; - CMD4(CCC_Integer, "ai_dbg_sight", &g_ai_dbg_sight, 0, 1); + extern BOOL g_ai_dbg_sight; + CMD4(CCC_Integer, "ai_dbg_sight", &g_ai_dbg_sight, 0, 1); - extern BOOL g_ai_aim_use_smooth_aim; - CMD4(CCC_Integer, "ai_aim_use_smooth_aim", &g_ai_aim_use_smooth_aim, 0, 1); + extern BOOL g_ai_aim_use_smooth_aim; + CMD4(CCC_Integer, "ai_aim_use_smooth_aim", &g_ai_aim_use_smooth_aim, 0, 1); #endif // #ifdef DEBUG - extern float g_ai_aim_min_speed; - CMD4(CCC_Float, "ai_aim_min_speed", &g_ai_aim_min_speed, 0.f, 10.f*PI ); + extern float g_ai_aim_min_speed; + CMD4(CCC_Float, "ai_aim_min_speed", &g_ai_aim_min_speed, 0.f, 10.f*PI); - extern float g_ai_aim_min_angle; - CMD4(CCC_Float, "ai_aim_min_angle", &g_ai_aim_min_angle, 0.f, 10.f*PI ); + extern float g_ai_aim_min_angle; + CMD4(CCC_Float, "ai_aim_min_angle", &g_ai_aim_min_angle, 0.f, 10.f*PI); - extern float g_ai_aim_max_angle; - CMD4(CCC_Float, "ai_aim_max_angle", &g_ai_aim_max_angle, 0.f, 10.f*PI ); + extern float g_ai_aim_max_angle; + CMD4(CCC_Float, "ai_aim_max_angle", &g_ai_aim_max_angle, 0.f, 10.f*PI); #ifdef DEBUG - extern BOOL g_debug_doors; - CMD4(CCC_Integer, "ai_debug_doors", &g_debug_doors, 0, 1); + extern BOOL g_debug_doors; + CMD4(CCC_Integer, "ai_debug_doors", &g_debug_doors, 0, 1); #endif // #ifdef DEBUG - *g_last_saved_game = 0; + *g_last_saved_game = 0; - CMD3(CCC_String, "slot_0", g_quick_use_slots[0], 32); - CMD3(CCC_String, "slot_1", g_quick_use_slots[1], 32); - CMD3(CCC_String, "slot_2", g_quick_use_slots[2], 32); - CMD3(CCC_String, "slot_3", g_quick_use_slots[3], 32); + CMD3(CCC_String, "slot_0", g_quick_use_slots[0], 32); + CMD3(CCC_String, "slot_1", g_quick_use_slots[1], 32); + CMD3(CCC_String, "slot_2", g_quick_use_slots[2], 32); + CMD3(CCC_String, "slot_3", g_quick_use_slots[3], 32); - CMD4(CCC_Integer, "keypress_on_start", &g_keypress_on_start, 0, 1); - register_mp_console_commands (); + CMD4(CCC_Integer, "keypress_on_start", &g_keypress_on_start, 0, 1); + register_mp_console_commands(); } \ No newline at end of file diff --git a/src/xrServerEntities/script_engine_script.cpp b/src/xrServerEntities/script_engine_script.cpp index 08ef29abe0e..aa2399e9a32 100644 --- a/src/xrServerEntities/script_engine_script.cpp +++ b/src/xrServerEntities/script_engine_script.cpp @@ -16,171 +16,174 @@ using namespace luabind; void LuaLog(LPCSTR caMessage) { #ifndef MASTER_GOLD - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeMessage,"%s",caMessage); + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeMessage,"%s",caMessage); #endif // #ifndef MASTER_GOLD #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->Write(caMessage); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->Write(caMessage); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER } void ErrorLog(LPCSTR caMessage) { - ai().script_engine().error_log("%s",caMessage); + ai().script_engine().error_log("%s", caMessage); #ifdef PRINT_CALL_STACK - ai().script_engine().print_stack(); + ai().script_engine().print_stack(); #endif // #ifdef PRINT_CALL_STACK - + #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ){ - ai().script_engine().debugger()->Write(caMessage); - } + if( ai().script_engine().debugger() ){ + ai().script_engine().debugger()->Write(caMessage); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - R_ASSERT2(0, caMessage); + R_ASSERT2(0, caMessage); } void FlushLogs() { +//#ifdef DEBUG + FlushLog(); #ifdef DEBUG - FlushLog(); - ai().script_engine().flush_log(); + ai().script_engine().flush_log(); #endif // DEBUG } void verify_if_thread_is_running() { - THROW2 (ai().script_engine().current_thread(),"coroutine.yield() is called outside the LUA thread!"); + THROW2(ai().script_engine().current_thread(), "coroutine.yield() is called outside the LUA thread!"); } bool is_editor() { #ifdef XRGAME_EXPORTS - return (false); + return (false); #else - return (true); + return (true); #endif } #ifdef XRGAME_EXPORTS CRenderDevice *get_device() { - return (&Device); + return (&Device); } #endif int bit_and(int i, int j) { - return (i & j); + return (i & j); } int bit_or(int i, int j) { - return (i | j); + return (i | j); } int bit_xor(int i, int j) { - return (i ^ j); + return (i ^ j); } int bit_not(int i) { - return (~i); + return (~i); } LPCSTR user_name() { - return (Core.UserName); + return (Core.UserName); } void prefetch_module(LPCSTR file_name) { - ai().script_engine().process_file(file_name); + ai().script_engine().process_file(file_name); } -struct profile_timer_script { - u64 m_start_cpu_tick_count; - u64 m_accumulator; - u64 m_count; - int m_recurse_mark; - - IC profile_timer_script () - { - m_start_cpu_tick_count = 0; - m_accumulator = 0; - m_count = 0; - m_recurse_mark = 0; - } - - IC profile_timer_script (const profile_timer_script &profile_timer) - { - *this = profile_timer; - } - - IC profile_timer_script& operator= (const profile_timer_script &profile_timer) - { - m_start_cpu_tick_count = profile_timer.m_start_cpu_tick_count; - m_accumulator = profile_timer.m_accumulator; - m_count = profile_timer.m_count; - m_recurse_mark = profile_timer.m_recurse_mark; - return (*this); - } - - IC bool operator< (const profile_timer_script &profile_timer) const - { - return (m_accumulator < profile_timer.m_accumulator); - } - - IC void start () - { - if (m_recurse_mark) { - ++m_recurse_mark; - return; - } - - ++m_recurse_mark; - ++m_count; - m_start_cpu_tick_count = CPU::GetCLK(); - } - - IC void stop () - { - THROW (m_recurse_mark); - --m_recurse_mark; - - if (m_recurse_mark) - return; - - u64 finish = CPU::GetCLK(); - if (finish > m_start_cpu_tick_count) - m_accumulator += finish - m_start_cpu_tick_count; - } - - IC float time () const - { - FPU::m64r (); - float result = (float(double(m_accumulator)/double(CPU::clk_per_second))*1000000.f); - FPU::m24r (); - return (result); - } +struct profile_timer_script +{ + u64 m_start_cpu_tick_count; + u64 m_accumulator; + u64 m_count; + int m_recurse_mark; + + IC profile_timer_script() + { + m_start_cpu_tick_count = 0; + m_accumulator = 0; + m_count = 0; + m_recurse_mark = 0; + } + + IC profile_timer_script(const profile_timer_script &profile_timer) + { + *this = profile_timer; + } + + IC profile_timer_script& operator= (const profile_timer_script &profile_timer) + { + m_start_cpu_tick_count = profile_timer.m_start_cpu_tick_count; + m_accumulator = profile_timer.m_accumulator; + m_count = profile_timer.m_count; + m_recurse_mark = profile_timer.m_recurse_mark; + return (*this); + } + + IC bool operator< (const profile_timer_script &profile_timer) const + { + return (m_accumulator < profile_timer.m_accumulator); + } + + IC void start() + { + if (m_recurse_mark) + { + ++m_recurse_mark; + return; + } + + ++m_recurse_mark; + ++m_count; + m_start_cpu_tick_count = CPU::GetCLK(); + } + + IC void stop() + { + THROW(m_recurse_mark); + --m_recurse_mark; + + if (m_recurse_mark) + return; + + u64 finish = CPU::GetCLK(); + if (finish > m_start_cpu_tick_count) + m_accumulator += finish - m_start_cpu_tick_count; + } + + IC float time() const + { + FPU::m64r(); + float result = (float(double(m_accumulator) / double(CPU::clk_per_second))*1000000.f); + FPU::m24r(); + return (result); + } }; IC profile_timer_script operator+ (const profile_timer_script &portion0, const profile_timer_script &portion1) { - profile_timer_script result; - result.m_accumulator = portion0.m_accumulator + portion1.m_accumulator; - result.m_count = portion0.m_count + portion1.m_count; - return (result); + profile_timer_script result; + result.m_accumulator = portion0.m_accumulator + portion1.m_accumulator; + result.m_count = portion0.m_count + portion1.m_count; + return (result); } // IC std::ostream& operator<<(std::ostream &stream, profile_timer_script &timer) @@ -190,51 +193,52 @@ IC profile_timer_script operator+ (const profile_timer_script &portion0, const p // } #ifdef XRGAME_EXPORTS -ICF u32 script_time_global () { return Device.dwTimeGlobal; } -ICF u32 script_time_global_async () { return Device.TimerAsync_MMT(); } +ICF u32 script_time_global() { return Device.dwTimeGlobal; } +ICF u32 script_time_global_async() { return Device.TimerAsync_MMT(); } #else -ICF u32 script_time_global () { return 0; } -ICF u32 script_time_global_async () { return 0; } +ICF u32 script_time_global() { return 0; } +ICF u32 script_time_global_async() { return 0; } #endif #ifdef XRGAME_EXPORTS static bool is_enough_address_space_available_impl() { - ENGINE_API bool is_enough_address_space_available(); - return is_enough_address_space_available( ); + ENGINE_API bool is_enough_address_space_available(); + return is_enough_address_space_available(); } #endif // #ifdef XRGAME_EXPORTS #pragma optimize("s",on) void CScriptEngine::script_register(lua_State *L) { - module(L)[ - class_("profile_timer") - .def(constructor<>()) - .def(constructor()) - .def(const_self + profile_timer_script()) - .def(const_self < profile_timer_script()) - .def(tostring(self)) - .def("start",&profile_timer_script::start) - .def("stop",&profile_timer_script::stop) - .def("time",&profile_timer_script::time) - ]; - - function (L, "log", LuaLog); - function (L, "error_log", ErrorLog); - function (L, "flush", FlushLogs); - function (L, "prefetch", prefetch_module); - function (L, "verify_if_thread_is_running", verify_if_thread_is_running); - function (L, "editor", is_editor); - function (L, "bit_and", bit_and); - function (L, "bit_or", bit_or); - function (L, "bit_xor", bit_xor); - function (L, "bit_not", bit_not); - function (L, "user_name", user_name); - function (L, "time_global", script_time_global); - function (L, "time_global_async", script_time_global_async); + module(L)[ + def("log1", (void(*) (LPCSTR msg)) &Log), // AVO: log below does not work due to design of vscript_log so adding new function to scripts + class_("profile_timer") + .def(constructor<>()) + .def(constructor()) + .def(const_self + profile_timer_script()) + .def(const_self < profile_timer_script()) + .def(tostring(self)) + .def("start", &profile_timer_script::start) + .def("stop", &profile_timer_script::stop) + .def("time", &profile_timer_script::time) + ]; + + function(L, "log", LuaLog); + function(L, "error_log", ErrorLog); + function(L, "flush", FlushLogs); + function(L, "prefetch", prefetch_module); + function(L, "verify_if_thread_is_running", verify_if_thread_is_running); + function(L, "editor", is_editor); + function(L, "bit_and", bit_and); + function(L, "bit_or", bit_or); + function(L, "bit_xor", bit_xor); + function(L, "bit_not", bit_not); + function(L, "user_name", user_name); + function(L, "time_global", script_time_global); + function(L, "time_global_async", script_time_global_async); #ifdef XRGAME_EXPORTS - function (L, "device", get_device); - function (L, "is_enough_address_space_available",is_enough_address_space_available_impl); + function(L, "device", get_device); + function(L, "is_enough_address_space_available", is_enough_address_space_available_impl); #endif // #ifdef XRGAME_EXPORTS -} +} \ No newline at end of file From b57cdf9e1a749410a504b00111a271ac315d495e Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 15:51:43 -0500 Subject: [PATCH 011/166] + exposed lua debug library (under -dbg key) * added LuaJIT-1.1.8 project --- src/3rd party/LuaJIT-1.1.8/COPYRIGHT | 40 + .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 167 + .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters | 232 + src/3rd party/LuaJIT-1.1.8/Makefile | 130 + src/3rd party/LuaJIT-1.1.8/README | 46 + src/3rd party/LuaJIT-1.1.8/doc/amazon.gif | Bin 0 -> 797 bytes src/3rd party/LuaJIT-1.1.8/doc/contents.html | 497 + src/3rd party/LuaJIT-1.1.8/doc/cover.png | Bin 0 -> 3305 bytes src/3rd party/LuaJIT-1.1.8/doc/logo.gif | Bin 0 -> 4232 bytes src/3rd party/LuaJIT-1.1.8/doc/lua.1 | 163 + src/3rd party/LuaJIT-1.1.8/doc/lua.css | 83 + src/3rd party/LuaJIT-1.1.8/doc/lua.html | 172 + src/3rd party/LuaJIT-1.1.8/doc/luac.1 | 136 + src/3rd party/LuaJIT-1.1.8/doc/luac.html | 145 + src/3rd party/LuaJIT-1.1.8/doc/manual.css | 24 + src/3rd party/LuaJIT-1.1.8/doc/manual.html | 8804 +++++++++++++++++ src/3rd party/LuaJIT-1.1.8/doc/readme.html | 40 + .../LuaJIT-1.1.8/dynasm/dasm_proto.h | 68 + src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h | 455 + .../LuaJIT-1.1.8/dynasm/dasm_x86.lua | 1581 +++ src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua | 1070 ++ src/3rd party/LuaJIT-1.1.8/etc/README | 20 + src/3rd party/LuaJIT-1.1.8/etc/lua.hpp | 9 + src/3rd party/LuaJIT-1.1.8/etc/luajit.ico | Bin 0 -> 1078 bytes src/3rd party/LuaJIT-1.1.8/etc/luajit.pc | 28 + src/3rd party/LuaJIT-1.1.8/etc/luavs.bat | 22 + src/3rd party/LuaJIT-1.1.8/etc/strict.lua | 41 + src/3rd party/LuaJIT-1.1.8/jit/dis_x86.lua | 622 ++ src/3rd party/LuaJIT-1.1.8/jit/dump.lua | 265 + src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua | 239 + src/3rd party/LuaJIT-1.1.8/jit/opt.lua | 508 + src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua | 397 + src/3rd party/LuaJIT-1.1.8/jit/trace.lua | 111 + .../LuaJIT-1.1.8/jitdoc/bluequad-print.css | 166 + .../LuaJIT-1.1.8/jitdoc/bluequad.css | 292 + src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html | 132 + .../LuaJIT-1.1.8/jitdoc/coco_api.html | 182 + .../LuaJIT-1.1.8/jitdoc/coco_changes.html | 153 + .../LuaJIT-1.1.8/jitdoc/coco_portability.html | 239 + .../LuaJIT-1.1.8/jitdoc/contact.html | 105 + src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html | 116 + .../LuaJIT-1.1.8/jitdoc/dynasm_examples.html | 188 + .../LuaJIT-1.1.8/jitdoc/dynasm_features.html | 139 + .../LuaJIT-1.1.8/jitdoc/img/backbar.png | Bin 0 -> 118 bytes .../LuaJIT-1.1.8/jitdoc/img/bluebar.png | Bin 0 -> 134 bytes .../LuaJIT-1.1.8/jitdoc/img/contact.png | Bin 0 -> 1340 bytes .../LuaJIT-1.1.8/jitdoc/img/magentabar.png | Bin 0 -> 152 bytes .../LuaJIT-1.1.8/jitdoc/img/spacer.png | Bin 0 -> 95 bytes src/3rd party/LuaJIT-1.1.8/jitdoc/index.html | 103 + src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html | 109 + .../LuaJIT-1.1.8/jitdoc/luajit_api.html | 372 + .../LuaJIT-1.1.8/jitdoc/luajit_changes.html | 307 + .../LuaJIT-1.1.8/jitdoc/luajit_debug.html | 273 + .../LuaJIT-1.1.8/jitdoc/luajit_features.html | 226 + .../LuaJIT-1.1.8/jitdoc/luajit_install.html | 340 + .../LuaJIT-1.1.8/jitdoc/luajit_intro.html | 389 + .../jitdoc/luajit_performance.html | 394 + .../LuaJIT-1.1.8/jitdoc/luajit_run.html | 159 + src/3rd party/LuaJIT-1.1.8/src/Makefile | 252 + src/3rd party/LuaJIT-1.1.8/src/lapi.c | 1082 ++ src/3rd party/LuaJIT-1.1.8/src/lapi.h | 16 + src/3rd party/LuaJIT-1.1.8/src/lauxlib.c | 652 ++ src/3rd party/LuaJIT-1.1.8/src/lauxlib.h | 174 + src/3rd party/LuaJIT-1.1.8/src/lbaselib.c | 679 ++ src/3rd party/LuaJIT-1.1.8/src/lcoco.c | 693 ++ src/3rd party/LuaJIT-1.1.8/src/lcoco.h | 72 + src/3rd party/LuaJIT-1.1.8/src/lcode.c | 831 ++ src/3rd party/LuaJIT-1.1.8/src/lcode.h | 76 + src/3rd party/LuaJIT-1.1.8/src/ldblib.c | 398 + src/3rd party/LuaJIT-1.1.8/src/ldebug.c | 640 ++ src/3rd party/LuaJIT-1.1.8/src/ldebug.h | 33 + src/3rd party/LuaJIT-1.1.8/src/ldo.c | 520 + src/3rd party/LuaJIT-1.1.8/src/ldo.h | 59 + src/3rd party/LuaJIT-1.1.8/src/ldump.c | 164 + src/3rd party/LuaJIT-1.1.8/src/lfunc.c | 182 + src/3rd party/LuaJIT-1.1.8/src/lfunc.h | 34 + src/3rd party/LuaJIT-1.1.8/src/lgc.c | 710 ++ src/3rd party/LuaJIT-1.1.8/src/lgc.h | 110 + src/3rd party/LuaJIT-1.1.8/src/linit.c | 39 + src/3rd party/LuaJIT-1.1.8/src/liolib.c | 556 ++ src/3rd party/LuaJIT-1.1.8/src/ljit.h | 167 + src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c | 342 + src/3rd party/LuaJIT-1.1.8/src/ljit_core.c | 385 + src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c | 38 + src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h | 19 + src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h | 137 + src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c | 405 + src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc | 2457 +++++ src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash | 297 + src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h | 2301 +++++ .../LuaJIT-1.1.8/src/ljit_x86_inline.dash | 625 ++ src/3rd party/LuaJIT-1.1.8/src/ljitlib.c | 637 ++ src/3rd party/LuaJIT-1.1.8/src/llex.c | 463 + src/3rd party/LuaJIT-1.1.8/src/llex.h | 81 + src/3rd party/LuaJIT-1.1.8/src/llimits.h | 128 + src/3rd party/LuaJIT-1.1.8/src/lmathlib.c | 263 + src/3rd party/LuaJIT-1.1.8/src/lmem.c | 86 + src/3rd party/LuaJIT-1.1.8/src/lmem.h | 49 + src/3rd party/LuaJIT-1.1.8/src/loadlib.c | 669 ++ src/3rd party/LuaJIT-1.1.8/src/lobject.c | 214 + src/3rd party/LuaJIT-1.1.8/src/lobject.h | 386 + src/3rd party/LuaJIT-1.1.8/src/lopcodes.c | 102 + src/3rd party/LuaJIT-1.1.8/src/lopcodes.h | 268 + src/3rd party/LuaJIT-1.1.8/src/loslib.c | 244 + src/3rd party/LuaJIT-1.1.8/src/lparser.c | 1339 +++ src/3rd party/LuaJIT-1.1.8/src/lparser.h | 82 + src/3rd party/LuaJIT-1.1.8/src/lstate.c | 218 + src/3rd party/LuaJIT-1.1.8/src/lstate.h | 179 + src/3rd party/LuaJIT-1.1.8/src/lstring.c | 111 + src/3rd party/LuaJIT-1.1.8/src/lstring.h | 31 + src/3rd party/LuaJIT-1.1.8/src/lstrlib.c | 871 ++ src/3rd party/LuaJIT-1.1.8/src/ltable.c | 588 ++ src/3rd party/LuaJIT-1.1.8/src/ltable.h | 41 + src/3rd party/LuaJIT-1.1.8/src/ltablib.c | 287 + src/3rd party/LuaJIT-1.1.8/src/ltm.c | 75 + src/3rd party/LuaJIT-1.1.8/src/ltm.h | 54 + src/3rd party/LuaJIT-1.1.8/src/lua.c | 463 + src/3rd party/LuaJIT-1.1.8/src/lua.h | 385 + src/3rd party/LuaJIT-1.1.8/src/luac.c | 200 + src/3rd party/LuaJIT-1.1.8/src/luaconf.h | 786 ++ src/3rd party/LuaJIT-1.1.8/src/luajit.h | 68 + src/3rd party/LuaJIT-1.1.8/src/lualib.h | 56 + src/3rd party/LuaJIT-1.1.8/src/lundump.c | 227 + src/3rd party/LuaJIT-1.1.8/src/lundump.h | 36 + src/3rd party/LuaJIT-1.1.8/src/lvm.c | 767 ++ src/3rd party/LuaJIT-1.1.8/src/lvm.h | 40 + src/3rd party/LuaJIT-1.1.8/src/lzio.c | 82 + src/3rd party/LuaJIT-1.1.8/src/lzio.h | 67 + src/3rd party/LuaJIT-1.1.8/src/print.c | 227 + src/engine.sln | 15 + src/xrServerEntities/script_storage.cpp | 1230 +-- 131 files changed, 47167 insertions(+), 592 deletions(-) create mode 100644 src/3rd party/LuaJIT-1.1.8/COPYRIGHT create mode 100644 src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj create mode 100644 src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters create mode 100644 src/3rd party/LuaJIT-1.1.8/Makefile create mode 100644 src/3rd party/LuaJIT-1.1.8/README create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/amazon.gif create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/contents.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/cover.png create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/logo.gif create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.1 create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.css create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/luac.1 create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/luac.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/manual.css create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/manual.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/readme.html create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/README create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/lua.hpp create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luajit.ico create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luajit.pc create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luavs.bat create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/strict.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dis_x86.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dump.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/opt.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/trace.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/magentabar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/spacer.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/index.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html create mode 100644 src/3rd party/LuaJIT-1.1.8/src/Makefile create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lapi.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lapi.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lauxlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lauxlib.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lbaselib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcoco.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcoco.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcode.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcode.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldblib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldebug.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldebug.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldo.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldo.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldump.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lfunc.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lfunc.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lgc.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lgc.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/linit.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/liolib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_core.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljitlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llex.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llex.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llimits.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmathlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmem.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmem.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/loadlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lobject.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lobject.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lopcodes.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lopcodes.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/loslib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lparser.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lparser.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstate.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstate.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstring.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstring.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstrlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltable.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltable.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltablib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lua.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lua.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luac.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luaconf.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luajit.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lualib.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lundump.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lundump.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lvm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lvm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lzio.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lzio.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/print.c diff --git a/src/3rd party/LuaJIT-1.1.8/COPYRIGHT b/src/3rd party/LuaJIT-1.1.8/COPYRIGHT new file mode 100644 index 00000000000..ff6cd7251b6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/COPYRIGHT @@ -0,0 +1,40 @@ +Lua License +----------- + +Lua is licensed under the terms of the MIT license reproduced below. +This means that Lua is free software and can be used for both academic +and commercial purposes at absolutely no cost. + +For details and rationale, see http://www.lua.org/license.html . + +*** +LuaJIT is a derivative work, heavily based on Lua. The JIT extensions +are licensed under the same conditions (except by a different author). +The LuaJIT license can be found in: src/luajit.h +*** + +=============================================================================== + +Copyright (C) 1994-2012 Lua.org, PUC-Rio. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +THE SOFTWARE. + +=============================================================================== + +(end of COPYRIGHT) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj new file mode 100644 index 00000000000..0f460cafafc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -0,0 +1,167 @@ +п»ї + + + + Debug + Win32 + + + Release + Win32 + + + + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} + LuaJIT118 + + + + Application + true + v120 + MultiByte + + + DynamicLibrary + false + v120 + true + MultiByte + + + + + + + + + + + + + + + $(xrIntDir)$(ProjectName)\ + $(xrGameDir)_bin_rel\ + .dll + + + + Level3 + Disabled + true + + + true + + + + + Level4 + MaxSpeed + true + true + true + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + AnySuitable + Speed + true + true + WIN32;NDEBUG;%(PreprocessorDefinitions) + true + + false + StreamingSIMDExtensions + Fast + + + true + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters new file mode 100644 index 00000000000..8999ee07d33 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters @@ -0,0 +1,232 @@ +п»ї + + + + {4FC737F1-C7A5-4376-A066-2A32D752A2FF} + cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx + + + {93995380-89BD-4b04-88EB-625FBE52EBFB} + h;hh;hpp;hxx;hm;inl;inc;xsd + + + {67DA6AB6-F800-4c08-8B7A-83BB121AAD01} + rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms + + + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/3rd party/LuaJIT-1.1.8/Makefile b/src/3rd party/LuaJIT-1.1.8/Makefile new file mode 100644 index 00000000000..215772c0848 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/Makefile @@ -0,0 +1,130 @@ +# makefile for installing Lua +# see INSTALL for installation instructions +# see src/Makefile and src/luaconf.h for further customization + +# == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= + +# Your platform. See PLATS for possible values. +PLAT= none + +# Where to install. The installation starts in the src and doc directories, +# so take care if INSTALL_TOP is not an absolute path. +INSTALL_TOP= /usr/local +INSTALL_BIN= $(INSTALL_TOP)/bin +INSTALL_INC= $(INSTALL_TOP)/include +INSTALL_LIB= $(INSTALL_TOP)/lib +INSTALL_MAN= $(INSTALL_TOP)/man/man1 +# +# You probably want to make INSTALL_LMOD and INSTALL_CMOD consistent with +# LUA_ROOT, LUA_LDIR, and LUA_CDIR in luaconf.h (and also with etc/luajit.pc). +INSTALL_LMOD= $(INSTALL_TOP)/share/lua/$V +INSTALL_CMOD= $(INSTALL_TOP)/lib/lua/$V + +# How to install. If your install program does not support "-p", then you +# may have to run ranlib on the installed liblua.a (do "make ranlib"). +INSTALL= install -p +INSTALL_EXEC= $(INSTALL) -m 0755 +INSTALL_DATA= $(INSTALL) -m 0644 +# +# If you don't have install you can use cp instead. +# INSTALL= cp -p +# INSTALL_EXEC= $(INSTALL) +# INSTALL_DATA= $(INSTALL) + +# Utilities. +MKDIR= mkdir -p +RANLIB= ranlib + +# == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE ========= + +# Convenience platforms targets. +PLATS= linux bsd macosx solaris mingw cygwin posix generic linux_rl bsd_rl macosx_rl + +# What to install. +TO_BIN= luajit +###TO_INC= lua.h luaconf.h lualib.h lauxlib.h ../etc/lua.hpp +###TO_LIB= liblua.a +###TO_MAN= lua.1 luac.1 + +# Lua version and release. +V= 5.1 +R= 5.1.5 +# LuaJIT version. +JV= 1.1.8 + +all: $(PLAT) + +$(PLATS) clean: + cd src && $(MAKE) $@ + +test: dummy + src/luajit -O -e 'io.write("Hello world, from ", jit.version, "!\n")' + +install: dummy + cd src && $(MKDIR) $(INSTALL_BIN) $(INSTALL_INC) $(INSTALL_LIB) $(INSTALL_MAN) $(INSTALL_LMOD) $(INSTALL_CMOD) $(INSTALL_LMOD)/jit + cd src && $(INSTALL_EXEC) $(TO_BIN) $(INSTALL_BIN) + ###cd src && $(INSTALL_DATA) $(TO_INC) $(INSTALL_INC) + ###cd src && $(INSTALL_DATA) $(TO_LIB) $(INSTALL_LIB) + ###cd doc && $(INSTALL_DATA) $(TO_MAN) $(INSTALL_MAN) + cd jit && $(INSTALL_DATA) *.lua $(INSTALL_LMOD)/jit + +ranlib: + cd src && cd $(INSTALL_LIB) && $(RANLIB) $(TO_LIB) + +none: + @echo "Please do" + @echo " make PLATFORM" + @echo "where PLATFORM is one of these:" + @echo " $(PLATS)" + @echo "See jitdoc/luajit_install.html for complete instructions." + +# make may get confused with test/ and INSTALL in a case-insensitive OS +dummy: + +# echo config parameters +echo: + @echo "" + @echo "These are the parameters currently set in src/Makefile to build LuaJIT $(JV):" + @echo "" + @cd src && $(MAKE) -s echo + @echo "" + @echo "These are the parameters currently set in Makefile to install LuaJIT $(JV):" + @echo "" + @echo "PLAT = $(PLAT)" + @echo "INSTALL_TOP = $(INSTALL_TOP)" + @echo "INSTALL_BIN = $(INSTALL_BIN)" + @echo "INSTALL_INC = $(INSTALL_INC)" + @echo "INSTALL_LIB = $(INSTALL_LIB)" + @echo "INSTALL_MAN = $(INSTALL_MAN)" + @echo "INSTALL_LMOD = $(INSTALL_LMOD)" + @echo "INSTALL_CMOD = $(INSTALL_CMOD)" + @echo "INSTALL_EXEC = $(INSTALL_EXEC)" + @echo "INSTALL_DATA = $(INSTALL_DATA)" + @echo "" + @echo "See also src/luaconf.h ." + @echo "" + +# echo private config parameters +pecho: + @echo "V = $(V)" + @echo "R = $(R)" + @echo "JV = $(JV)" + @echo "TO_BIN = $(TO_BIN)" + @echo "TO_INC = $(TO_INC)" + @echo "TO_LIB = $(TO_LIB)" + @echo "TO_MAN = $(TO_MAN)" + +# echo config parameters as Lua code +# uncomment the last sed expression if you want nil instead of empty strings +lecho: + @echo "-- installation parameters for Lua $(R), LuaJIT $(JV)" + @echo "VERSION = '$(V)'" + @echo "RELEASE = '$(R)'" + @echo "LUAJIT_VERSION = '$(JV)'" + @$(MAKE) echo | grep = | sed -e 's/= /= "/' -e 's/$$/"/' #-e 's/""/nil/' + @echo "-- EOF" + +# list targets that do not create files (but not all makes understand .PHONY) +.PHONY: all $(PLATS) clean test install local none dummy echo pecho lecho + +# (end of Makefile) diff --git a/src/3rd party/LuaJIT-1.1.8/README b/src/3rd party/LuaJIT-1.1.8/README new file mode 100644 index 00000000000..530753a6eaf --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/README @@ -0,0 +1,46 @@ +README for LuaJIT 1.1.8 +----------------------- + +************************************************************ +* This is only a bugfix release for the LuaJIT 1.1 branch. * +* LuaJIT 2.0 is available with much improved performance! * +************************************************************ + +LuaJIT is a Just-In-Time (JIT) compiler for the Lua programming language. + + Lua is a powerful, light-weight programming language designed + for extending applications. Lua is also frequently used as a + general-purpose, stand-alone language. More information about + Lua can be found in the docs (see below) or at: http://www.lua.org/ + +LuaJIT 1.x is based on the Lua 5.1.x virtual machine and bytecode +interpreter from lua.org. It compiles bytecode to native x86 (i386+) +machine code to speed up the execution of Lua programs. + +Homepage: http://luajit.org/ + +LuaJIT is Copyright (C) 2005-2012 Mike Pall. LuaJIT is free +software, released under the MIT/X license. + +----------------------- + +Full documentation for LuaJIT is available in HTML format. +Please point your favourite browser to: + + jitdoc/luajit.html + +Detailed installation instructions are here: + + jitdoc/luajit_install.html + +The original documentation for Lua has been included for convenience: + + doc/readme.html + +----------------------- + +LuaJIT 1.1.8 is a heavily modified version of Lua 5.1.5. +The unmodified Lua distribution is available at: + + http://www.lua.org/ftp/lua-5.1.5.tar.gz + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/amazon.gif b/src/3rd party/LuaJIT-1.1.8/doc/amazon.gif new file mode 100644 index 0000000000000000000000000000000000000000..f2586d5765361bb8a33a72401449f3abdefe4e16 GIT binary patch literal 797 zcmV+&1LFKgNk%w1VOjtj0K^&q@9)h50%r{k3;+NBK0Y<5t#HiDnQw1j_x9wkua=aQ zf8O4{J3ExYz@^dAvgzr__o-L@ehvGQF7LT?@$1I#;Ij3_g2%_+^3u}mmw|9dEECm0Kc!X!@|#@3&?4Fr)=|m57&HqxlCDW&_KZ+1;`8vSj33YC_e@b zLW(B90kQ_n9Ds8N3z4jU4HiAyWz9`JYknO6suY&Mn*c`+`V13=EEIuKH*uwDKrGlz zo{tDTNaHR5yf%>5cyj}g-^zXgiM@QV=g%Gh303A)7B84EpbPvE-6X=O$DmxJ`b(9|4E82-m%Ds!U< zI=HL8TMx@{~>s4%C(a0wK8Wjd@n+|5vxOvSr(vuAh- z5-e0mzlK5u3lKm6pnB`22G3HYpfaDDC`;MbMg*4 b)M@9Pc;4WH3w-wJ=bwNED(Iksh5!INDePJ9 literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/contents.html b/src/3rd party/LuaJIT-1.1.8/doc/contents.html new file mode 100644 index 00000000000..3d83da98a6d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/contents.html @@ -0,0 +1,497 @@ + + + +Lua 5.1 Reference Manual - contents + + + + + + + +
+

+ +Lua 5.1 Reference Manual +

+ +

+The reference manual is the official definition of the Lua language. +For a complete introduction to Lua programming, see the book +Programming in Lua. + +

+This manual is also available as a book: +

+ + + +Lua 5.1 Reference Manual +
by R. Ierusalimschy, L. H. de Figueiredo, W. Celes +
Lua.org, August 2006 +
ISBN 85-903798-3-3 +
+
+ +

+Buy a copy +of this book and +help to support +the Lua project. + +

+start +· +contents +· +index +· +other versions +

+ +Copyright © 2006–2012 Lua.org, PUC-Rio. +Freely available under the terms of the +Lua license. + + +

Contents

+ + +

Index

+ + + + + + + +
+

Lua functions

+_G
+_VERSION
+

+ +assert
+collectgarbage
+dofile
+error
+getfenv
+getmetatable
+ipairs
+load
+loadfile
+loadstring
+module
+next
+pairs
+pcall
+print
+rawequal
+rawget
+rawset
+require
+select
+setfenv
+setmetatable
+tonumber
+tostring
+type
+unpack
+xpcall
+

+ +coroutine.create
+coroutine.resume
+coroutine.running
+coroutine.status
+coroutine.wrap
+coroutine.yield
+

+ +debug.debug
+debug.getfenv
+debug.gethook
+debug.getinfo
+debug.getlocal
+debug.getmetatable
+debug.getregistry
+debug.getupvalue
+debug.setfenv
+debug.sethook
+debug.setlocal
+debug.setmetatable
+debug.setupvalue
+debug.traceback
+ +

 +

 

+file:close
+file:flush
+file:lines
+file:read
+file:seek
+file:setvbuf
+file:write
+

+ +io.close
+io.flush
+io.input
+io.lines
+io.open
+io.output
+io.popen
+io.read
+io.stderr
+io.stdin
+io.stdout
+io.tmpfile
+io.type
+io.write
+

+ +math.abs
+math.acos
+math.asin
+math.atan
+math.atan2
+math.ceil
+math.cos
+math.cosh
+math.deg
+math.exp
+math.floor
+math.fmod
+math.frexp
+math.huge
+math.ldexp
+math.log
+math.log10
+math.max
+math.min
+math.modf
+math.pi
+math.pow
+math.rad
+math.random
+math.randomseed
+math.sin
+math.sinh
+math.sqrt
+math.tan
+math.tanh
+

+ +os.clock
+os.date
+os.difftime
+os.execute
+os.exit
+os.getenv
+os.remove
+os.rename
+os.setlocale
+os.time
+os.tmpname
+

+ +package.cpath
+package.loaded
+package.loaders
+package.loadlib
+package.path
+package.preload
+package.seeall
+

+ +string.byte
+string.char
+string.dump
+string.find
+string.format
+string.gmatch
+string.gsub
+string.len
+string.lower
+string.match
+string.rep
+string.reverse
+string.sub
+string.upper
+

+ +table.concat
+table.insert
+table.maxn
+table.remove
+table.sort
+ +

 +

C API

+lua_Alloc
+lua_CFunction
+lua_Debug
+lua_Hook
+lua_Integer
+lua_Number
+lua_Reader
+lua_State
+lua_Writer
+

+ +lua_atpanic
+lua_call
+lua_checkstack
+lua_close
+lua_concat
+lua_cpcall
+lua_createtable
+lua_dump
+lua_equal
+lua_error
+lua_gc
+lua_getallocf
+lua_getfenv
+lua_getfield
+lua_getglobal
+lua_gethook
+lua_gethookcount
+lua_gethookmask
+lua_getinfo
+lua_getlocal
+lua_getmetatable
+lua_getstack
+lua_gettable
+lua_gettop
+lua_getupvalue
+lua_insert
+lua_isboolean
+lua_iscfunction
+lua_isfunction
+lua_islightuserdata
+lua_isnil
+lua_isnone
+lua_isnoneornil
+lua_isnumber
+lua_isstring
+lua_istable
+lua_isthread
+lua_isuserdata
+lua_lessthan
+lua_load
+lua_newstate
+lua_newtable
+lua_newthread
+lua_newuserdata
+lua_next
+lua_objlen
+lua_pcall
+lua_pop
+lua_pushboolean
+lua_pushcclosure
+lua_pushcfunction
+lua_pushfstring
+lua_pushinteger
+lua_pushlightuserdata
+lua_pushliteral
+lua_pushlstring
+lua_pushnil
+lua_pushnumber
+lua_pushstring
+lua_pushthread
+lua_pushvalue
+lua_pushvfstring
+lua_rawequal
+lua_rawget
+lua_rawgeti
+lua_rawset
+lua_rawseti
+lua_register
+lua_remove
+lua_replace
+lua_resume
+lua_setallocf
+lua_setfenv
+lua_setfield
+lua_setglobal
+lua_sethook
+lua_setlocal
+lua_setmetatable
+lua_settable
+lua_settop
+lua_setupvalue
+lua_status
+lua_toboolean
+lua_tocfunction
+lua_tointeger
+lua_tolstring
+lua_tonumber
+lua_topointer
+lua_tostring
+lua_tothread
+lua_touserdata
+lua_type
+lua_typename
+lua_upvalueindex
+lua_xmove
+lua_yield
+ +

 +

auxiliary library

+luaL_Buffer
+luaL_Reg
+

+ +luaL_addchar
+luaL_addlstring
+luaL_addsize
+luaL_addstring
+luaL_addvalue
+luaL_argcheck
+luaL_argerror
+luaL_buffinit
+luaL_callmeta
+luaL_checkany
+luaL_checkint
+luaL_checkinteger
+luaL_checklong
+luaL_checklstring
+luaL_checknumber
+luaL_checkoption
+luaL_checkstack
+luaL_checkstring
+luaL_checktype
+luaL_checkudata
+luaL_dofile
+luaL_dostring
+luaL_error
+luaL_getmetafield
+luaL_getmetatable
+luaL_gsub
+luaL_loadbuffer
+luaL_loadfile
+luaL_loadstring
+luaL_newmetatable
+luaL_newstate
+luaL_openlibs
+luaL_optint
+luaL_optinteger
+luaL_optlong
+luaL_optlstring
+luaL_optnumber
+luaL_optstring
+luaL_prepbuffer
+luaL_pushresult
+luaL_ref
+luaL_register
+luaL_typename
+luaL_typerror
+luaL_unref
+luaL_where
+ +

+

+ +

+ +Last update: +Mon Feb 13 18:53:32 BRST 2012 + + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/cover.png b/src/3rd party/LuaJIT-1.1.8/doc/cover.png new file mode 100644 index 0000000000000000000000000000000000000000..2dbb198123f03a7250bfa57c8253739962d69afb GIT binary patch literal 3305 zcmVNc=P)V>IGcGYOVIUw=dB=aTYv^*htKxL4xjCf9X{I|EBQ!hu?+M>5oT>TE}0ye97P9R7S8qXycMFZ&6rBQl2xq6d5z1RT?1tMWggH(oGfxZ3MRwMW* zhWcm<0o+gGDNJLnwySJIYqTbnA(cT&JjHAh%b?&;aM%-PVunbF`4oU{acLCOU~~ed z=Xys9YZpo#i8bMPc#43D)u4sMGKqI^_da6LW&~0K*cO4+ z_PRNFEtj+pK65RYy#Eh+iK_)|A>ml%LRW(G?uWEPuP@)V__gB&q{E^1Drx0`;n)|1&{JZ#-e7eMcd1S~0(ChdB8 zS0!Ap-8R#X^0X5R7@pQ0wmH~jKhYj`l%C2tznfmz5?4vXD&s9-{r%L{8o|B1n{hn> zX-7F)1C|g{Fjw^QO3xSEM8WF{nF8))ijLB@AziK0j<-dAU&NHQAw-4j8oelO%2Dg_ z37hiyuBd>qbbcrr0xb~*rLW9q2cyBcq8kgCW9j_Jd}=!9R2g|I=9{KHXtr2}hFHKH zPZ!2Bg|$47mFu;Duqg$YQfQ4vD~-}9t!+atHYg~SbM=?ElxgB&vnLeLny@Jo1@}ra zw-%pO_5&GLRc)GAp8w;^w0pr+)}6{$xN2*=h1(z&s0B5@zOQ2Cj<++EgPm6D*KdLp^Jc$%i(A&wq1mn{*M;Pu$%2I-|s;8_q`68Jd zLJ$dITeas|8_h>+9GB??ksz(jj7@SsNq-j_f;Mf@l8W*L-v0vui)W9N64OhM7aV?n zo{!IxNC9-U@zPPgc8EYtsn)ggZ<}BOc#01{#gH6*gjm!cMXYMFiJ5! z$8SI7^a#mxl?1n2Bwr+veIkV`2fdd@*by0Naq>o!4A;Y!nrTV7gj#l-OAs* zvT_zQj8DKsyvuDrVn7=m8 z&;O0T{VN_DroW5Nu5jxvQZU%ZlLv@3)#xH@icfQd{R930nH<0P?=qQ<5s3ufc;l~s z^rLTdbhJn*9LK$Q@z$Gf{__VPoYQ~*AN<{S=xOJbXHXg;Sjdpd5Nq1FU!ZP(bkV*K z5BX<_uE(!VaN&B59T#f)0@ixmc3_}Kkful!<-+AYa=bk&rr9RA^GG2#cH|o2Jo3*;M^C0Z#I`l`S@(jjq^e|^t7&J*rAXei$y>%zrcxe zzKVokW{ylvDyoN%5F8rxOC(&6ljrfOA4aT&iHZA4RiB-iOg@n)*W;YNOgdZoU&C~Q zYvZ-d>YDjzn4Be*DQQDPBE@KZ$^kz7@cjMzsnv(*TI*A%M(*BC03b*t8J+ZR_jR(6 zttGy#T|b&jH^^6g-e(O?=xBjqSdb8D)Kd$tjjQa}6Izo*l=AOHBZzP@%TWj?-Z2yYmt`$ryp=SGWT>kg8zlLgEEs(4iVm;4Q>56I~!I5E_!W;Hjvwox?Uqoq) z@&EyI&Dg6UFbzN8)tb&2Y&=@c`Y|NW9`Pe8A!)AFN8A)Nk)Urp8ZM1e+_>zsWuw3Gwz#h*<|ZTYWyBV&rD^+OOrPXFnaE_T4H3gMI7NJvIPCeSU~lbZRURtjFJ3 zOtR_n9@p1NEV@-WX*<9pdwg@TE&lANPj7A1!>6YW%k<@shB-1^pOm#iGtfhChrf42 zsVsLR)XYafILOn7Dzbrs7oH##T<@vPK}ueH!cSN`F26lfqvKnrf9<;5xmTWYf?eG_ zeX!9}PBYlclLvflOw3@&T9Q?4=KSZAi+(6#NWSqr9j%R{qzT%*cARj9+M7Z={YZ`Z zkUIHTCXWs=UG`IipsSVd{5f`@zJAseNAl`14({FT2Xbx{9&lM)RVZ}_{lVes;w@a^N+fz49V zNXZM2^W9f`Rcp=JFX(8gt1f+0`B4G4?=d#PKzC_k7?Qz0y4x6=B$uz#sndjmeCtJC zJ5DgL%uYf!d*Z&jYQX0B2)f!R6lrVmT}CPC?c~T_GI?g_YxBM}hQWc|eD9k)^C*Fe z?D1?8AQoMD2D71Pn?G+{G@(R_)@FY(T|5yQo#5loxID%}wj5$qei{Hm5DK!lj~Ach z@X#`~XwB_uPF>*Z&(R#ISEvU#FA)Nz`TQED$+JgFvs?%)ll=n>_cNbnY=Y|(+?{11 zL&3o^iG=8GW2ldzK00F6PjxbRUOh&1<7lUfP!D<@?6{2FWT>x{XIvqi2CY#FPoWf2 zVo0P!tZu2v=D9u1zJZdTwyAHS9=M*uGC8uBNRUK|GgrvwmU;C8q`)+=EkZW7g=ru~ z6RQpkqkiq>Ru+?vAkXbSVK7dSLn?*gy_ zjjN{!SUh^+iEFRr=;K9At8qQ=c=~M}HT#)sT^Fg(`nT>?C{y%_^R>wBb&6$ nh%8`n`v3p{2XskIMF-Xh6%#iZwFs;u00000NkvXXu0mjfd@Wp4 literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/logo.gif b/src/3rd party/LuaJIT-1.1.8/doc/logo.gif new file mode 100644 index 0000000000000000000000000000000000000000..2f5e4ac2e742fbb7675e739879211553758aea9c GIT binary patch literal 4232 zcmeH``9G8i;K!fm@ywWE@XWZzZ5SF?A>^uN#>^O6HI%DVL*tw8h1>$H%uPC0$QQ=txe!o}PX)Ev+jn>*nFZ-TC=<^76WcLZL(=DJm)| zEiIKwrInSHXU?3duCC_u@5try#>U2`rlw1mF15F}U%!66tE;QKyIUmcDJ<+QF77*W zFJd#&)VAl)kJ6K zi<>tmZ{3>g>+2gB7#JQNe(>OdLh;A=`1q42PbMZNCMPF*dXxhLZw3aYhlZwyhu@Bj z%#4n{d-Q1b$&i4QMce4L#8^!oMdw{PDnm4D66&3*dxX=-YIX6DQL_g`jbzkd4k zZDCoLf=%jL&vIeE zO=XcZ9fxt`f}-DQ^%H*PHMUs(JN%UWkI|Y8h9#6~I$Cw@{RqzO4&P-x;jHCPJ6Ks2 zoU%foi)nXd_sdkiuJa@@5J4RrreKfWSnz5>eMa5yTP=)16uu)TIdx~Fhho))6jZl) z($*i>QrIX4u}u3>m{WSn_ehkUGQ& zs})aUlTH1Cj1g3ZE3=MPXsSniEwJ{e6C3N#HjD=B4`8rWIsz!a7ecYpec?WuH+y?Wsm18^$cS4WmHhH3_=r zh*ILlm*X1dB^E5($KVl&zT524%l}vpHg%;Y+LezV_&TAJCmH`idhuj-n$4FZ)UE|jXLayXa-&O3Q z?Iyo!x*$5hD_HfFnDfGYj-RD|eIb7I?%>Y_kf%}Nbd`BXb4l1(Pc+}zoUR|9%_!7f zum2T;wbx&pohtI+&@~wm3nH9xLbOYkg*`phY~TK5iC#3tZNXo9s`cahx+8j2)rh5C zQgZh6D7Ekgib|hpdhxYf{r!PTJc z!vsYG@{hA}l5kL)g)0N_)(nC<*L0qdUi*3fD5<0sn58>zklX@6Tyv3*X^}m=Cqc40 zQ6GfjG@kd1mFIm`qaubWunm_?P>WUZ`9|f_z%gGHi{n|uu(N8!L=aw5(qAcDj$-QK zu;D#j6e42OXTQD>)i zlvM$LX`$n9EEjxM$_QDF&a z7cme_rat}aXmiN&7`6Q98}dh4Z@8L_uAb#nK&GQiZOOUnA9kAEVb-csuN1AWL=sXt z{z9GCN%%l0N9QvJM;tl1nf?rrhT{*sE%4WqR?{0~aIrfCcCPxf4eh_*jjQ=`$p53Y z@_|Rsx2i}|3dNFetMQQ5y8agTK-E0D&7;@3-LUxfvZ7 z7~!p@&mFe^oca2^F|CBt+4Ly?^ViUVSAhAH>JH1GN{^TQb3QnM*x0ZiZgDyNI@_c3 z@{}(WH4*e3T~}n_^0}da4ElIxAf9B!IaL7z9X0Icvj@cIkE*~W--17&WN`Ea5)Gn> z#gpfRb#44;jVTOS{FuaZgd(-ZD848=fQzgST2MxR>wSLc1P=2HDvByz$B$IsNCC6L zCM?nK*OHj6JA9gz4|b<~2%RqelN^1Y)jIqnRs!mDKV^BQTfo@hOtz7*Ug}Ee^cbsj zNNlumRgAmt`1$b5MO;&X#5-EP<}AaY;52ihIpem&MTea$?3!DrwbYa?V`NjEfWF3z zUq5JY8Ch;L{kx&J<1K&Fe_Vn;8gk{%c;n?nA2(%(f%DCRHko3uT~VI7RE^JWEqaCq z)i|%nfj(*4|V*XhY3W%M# z*yn6SN4eUOHFxAD7B&9E_PO`G5bqgs^@J{9bk>&;PlUAiqo`j3rjQDgD!}mqLUtb` zCB}ZD@m@s#pf7bV4jreOC*JVfHZ|hyHkX!rauVdd_I9FL45d{gWH!DNYu;i(|8wVx z!)eLY6YXxZ2{Coae0xuTnxo1ACb5wtED?VJAz&@114$Ao6uG9YSy*!K;m5_mj=0^j zw%?b%AOs}ql@$TGC-!^^*_#RT5+y_kTzQG9?LPPZNAtt6cJ%d2$q(I)ws21*?xF%p zN+NeGnWRQ<5w70Rc(bl|S0Xr&5@WrmdurS|IgPB|EyuZO#=tf!35)G!HJ`E1jh^lH zTBu~rL#DhQO*XAWtBt}JHH$lc>3%r0yD|maW_(W=B_J+y164F>O4dO|@&@N3Z3p=B zmVl{|^Z&#atHY|9n&la)SBo}=3AFIF=_~LDJk6MTlA73CXtX+4bnn+c!}N}IPa5pp zwyqbqIkN|I3j_3vD6$zlu{Ps(N-J|*qzEt<$5Soh;s^AuKv_ z-Tz+O1_~6*9CJh4r}`}mbUtjbf#fX58RIIkP6&@*y9kI|5fK*_eZ%jv3U$5*x<>D_ za2M(TV8?XY+9xy>0En#Te<6X4$0&dbyd(go$~eq4u(u)EA2msyF<5ssLZ zDP|I}=~Bi_q)whWv=Ri~L1TYaNrR;5cMB@s78HF1{w&r(6GJ;_2@bD?#1p&P4n_?n0#9Vx~$qjMX=Lk?*!@aKo8m&$iPO7S{g3sFUwr`*<53(68xx7?z`2xf# zGSicy_zI(PJ|%qc2VxT+6bOE--a{k&aq7$<<= zFt)C<@|TPs`+eycPGoGL1Wn9|Ed&a2JyAmjnkm3DQBECX&`bt~odH9cUPq4M{#$-q?G3!)qO-it*&YHw+j-O* zYy78V*`4Q=kQ@^Yz*b6Tal4(Me7BGeS^;phWAW8+L^5A(=D)t?k!rLIwVAKtq=f7h z&^n&VX1-T$ScvN~639QLZ^d@niMaS{C-Q)8oHHBhwD*r~-1Ze#Q)GFOFptW32a-uF z;M@ux%i%a25NwIgXt*=GHX$3~aZfwovGL!}sf?j9TsVo^cn(%&a<--0mIXYqGe>c PWz_J}_#7St0k8iB@FZjZ literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.1 b/src/3rd party/LuaJIT-1.1.8/doc/lua.1 new file mode 100644 index 00000000000..24809cc6c10 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.1 @@ -0,0 +1,163 @@ +.\" $Id: lua.man,v 1.11 2006/01/06 16:03:34 lhf Exp $ +.TH LUA 1 "$Date: 2006/01/06 16:03:34 $" +.SH NAME +lua \- Lua interpreter +.SH SYNOPSIS +.B lua +[ +.I options +] +[ +.I script +[ +.I args +] +] +.SH DESCRIPTION +.B lua +is the stand-alone Lua interpreter. +It loads and executes Lua programs, +either in textual source form or +in precompiled binary form. +(Precompiled binaries are output by +.BR luac , +the Lua compiler.) +.B lua +can be used as a batch interpreter and also interactively. +.LP +The given +.I options +(see below) +are executed and then +the Lua program in file +.I script +is loaded and executed. +The given +.I args +are available to +.I script +as strings in a global table named +.BR arg . +If these arguments contain spaces or other characters special to the shell, +then they should be quoted +(but note that the quotes will be removed by the shell). +The arguments in +.B arg +start at 0, +which contains the string +.RI ' script '. +The index of the last argument is stored in +.BR arg.n . +The arguments given in the command line before +.IR script , +including the name of the interpreter, +are available in negative indices in +.BR arg . +.LP +At the very start, +before even handling the command line, +.B lua +executes the contents of the environment variable +.BR LUA_INIT , +if it is defined. +If the value of +.B LUA_INIT +is of the form +.RI '@ filename ', +then +.I filename +is executed. +Otherwise, the string is assumed to be a Lua statement and is executed. +.LP +Options start with +.B '\-' +and are described below. +You can use +.B "'\--'" +to signal the end of options. +.LP +If no arguments are given, +then +.B "\-v \-i" +is assumed when the standard input is a terminal; +otherwise, +.B "\-" +is assumed. +.LP +In interactive mode, +.B lua +prompts the user, +reads lines from the standard input, +and executes them as they are read. +If a line does not contain a complete statement, +then a secondary prompt is displayed and +lines are read until a complete statement is formed or +a syntax error is found. +So, one way to interrupt the reading of an incomplete statement is +to force a syntax error: +adding a +.B ';' +in the middle of a statement is a sure way of forcing a syntax error +(except inside multiline strings and comments; these must be closed explicitly). +If a line starts with +.BR '=' , +then +.B lua +displays the values of all the expressions in the remainder of the +line. The expressions must be separated by commas. +The primary prompt is the value of the global variable +.BR _PROMPT , +if this value is a string; +otherwise, the default prompt is used. +Similarly, the secondary prompt is the value of the global variable +.BR _PROMPT2 . +So, +to change the prompts, +set the corresponding variable to a string of your choice. +You can do that after calling the interpreter +or on the command line +(but in this case you have to be careful with quotes +if the prompt string contains a space; otherwise you may confuse the shell.) +The default prompts are "> " and ">> ". +.SH OPTIONS +.TP +.B \- +load and execute the standard input as a file, +that is, +not interactively, +even when the standard input is a terminal. +.TP +.BI \-e " stat" +execute statement +.IR stat . +You need to quote +.I stat +if it contains spaces, quotes, +or other characters special to the shell. +.TP +.B \-i +enter interactive mode after +.I script +is executed. +.TP +.BI \-l " name" +call +.BI require(' name ') +before executing +.IR script . +Typically used to load libraries. +.TP +.B \-v +show version information. +.SH "SEE ALSO" +.BR luac (1) +.br +http://www.lua.org/ +.SH DIAGNOSTICS +Error messages should be self explanatory. +.SH AUTHORS +R. Ierusalimschy, +L. H. de Figueiredo, +and +W. Celes +.\" EOF diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.css b/src/3rd party/LuaJIT-1.1.8/doc/lua.css new file mode 100644 index 00000000000..7fafbb1bb63 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.css @@ -0,0 +1,83 @@ +body { + color: #000000 ; + background-color: #FFFFFF ; + font-family: Helvetica, Arial, sans-serif ; + text-align: justify ; + margin-right: 30px ; + margin-left: 30px ; +} + +h1, h2, h3, h4 { + font-family: Verdana, Geneva, sans-serif ; + font-weight: normal ; + font-style: italic ; +} + +h2 { + padding-top: 0.4em ; + padding-bottom: 0.4em ; + padding-left: 30px ; + padding-right: 30px ; + margin-left: -30px ; + background-color: #E0E0FF ; +} + +h3 { + padding-left: 0.5em ; + border-left: solid #E0E0FF 1em ; +} + +table h3 { + padding-left: 0px ; + border-left: none ; +} + +a:link { + color: #000080 ; + background-color: inherit ; + text-decoration: none ; +} + +a:visited { + background-color: inherit ; + text-decoration: none ; +} + +a:link:hover, a:visited:hover { + color: #000080 ; + background-color: #E0E0FF ; +} + +a:link:active, a:visited:active { + color: #FF0000 ; +} + +hr { + border: 0 ; + height: 1px ; + color: #a0a0a0 ; + background-color: #a0a0a0 ; +} + +:target { + background-color: #F8F8F8 ; + padding: 8px ; + border: solid #a0a0a0 2px ; +} + +.footer { + color: gray ; + font-size: small ; +} + +input[type=text] { + border: solid #a0a0a0 2px ; + border-radius: 2em ; + -moz-border-radius: 2em ; + background-image: url('images/search.png') ; + background-repeat: no-repeat; + background-position: 4px center ; + padding-left: 20px ; + height: 2em ; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.html b/src/3rd party/LuaJIT-1.1.8/doc/lua.html new file mode 100644 index 00000000000..1d435ab029c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.html @@ -0,0 +1,172 @@ + + + +LUA man page + + + + + +

NAME

+lua - Lua interpreter +

SYNOPSIS

+lua +[ +options +] +[ +script +[ +args +] +] +

DESCRIPTION

+lua +is the stand-alone Lua interpreter. +It loads and executes Lua programs, +either in textual source form or +in precompiled binary form. +(Precompiled binaries are output by +luac, +the Lua compiler.) +lua +can be used as a batch interpreter and also interactively. +

+The given +options +(see below) +are executed and then +the Lua program in file +script +is loaded and executed. +The given +args +are available to +script +as strings in a global table named +arg. +If these arguments contain spaces or other characters special to the shell, +then they should be quoted +(but note that the quotes will be removed by the shell). +The arguments in +arg +start at 0, +which contains the string +'script'. +The index of the last argument is stored in +arg.n. +The arguments given in the command line before +script, +including the name of the interpreter, +are available in negative indices in +arg. +

+At the very start, +before even handling the command line, +lua +executes the contents of the environment variable +LUA_INIT, +if it is defined. +If the value of +LUA_INIT +is of the form +'@filename', +then +filename +is executed. +Otherwise, the string is assumed to be a Lua statement and is executed. +

+Options start with +'-' +and are described below. +You can use +'--' +to signal the end of options. +

+If no arguments are given, +then +"-v -i" +is assumed when the standard input is a terminal; +otherwise, +"-" +is assumed. +

+In interactive mode, +lua +prompts the user, +reads lines from the standard input, +and executes them as they are read. +If a line does not contain a complete statement, +then a secondary prompt is displayed and +lines are read until a complete statement is formed or +a syntax error is found. +So, one way to interrupt the reading of an incomplete statement is +to force a syntax error: +adding a +';' +in the middle of a statement is a sure way of forcing a syntax error +(except inside multiline strings and comments; these must be closed explicitly). +If a line starts with +'=', +then +lua +displays the values of all the expressions in the remainder of the +line. The expressions must be separated by commas. +The primary prompt is the value of the global variable +_PROMPT, +if this value is a string; +otherwise, the default prompt is used. +Similarly, the secondary prompt is the value of the global variable +_PROMPT2. +So, +to change the prompts, +set the corresponding variable to a string of your choice. +You can do that after calling the interpreter +or on the command line +(but in this case you have to be careful with quotes +if the prompt string contains a space; otherwise you may confuse the shell.) +The default prompts are "> " and ">> ". +

OPTIONS

+

+- +load and execute the standard input as a file, +that is, +not interactively, +even when the standard input is a terminal. +

+-e stat +execute statement +stat. +You need to quote +stat +if it contains spaces, quotes, +or other characters special to the shell. +

+-i +enter interactive mode after +script +is executed. +

+-l name +call +require('name') +before executing +script. +Typically used to load libraries. +

+-v +show version information. +

SEE ALSO

+luac(1) +
+http://www.lua.org/ +

DIAGNOSTICS

+Error messages should be self explanatory. +

AUTHORS

+R. Ierusalimschy, +L. H. de Figueiredo, +and +W. Celes + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/luac.1 b/src/3rd party/LuaJIT-1.1.8/doc/luac.1 new file mode 100644 index 00000000000..d8146782df7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/luac.1 @@ -0,0 +1,136 @@ +.\" $Id: luac.man,v 1.28 2006/01/06 16:03:34 lhf Exp $ +.TH LUAC 1 "$Date: 2006/01/06 16:03:34 $" +.SH NAME +luac \- Lua compiler +.SH SYNOPSIS +.B luac +[ +.I options +] [ +.I filenames +] +.SH DESCRIPTION +.B luac +is the Lua compiler. +It translates programs written in the Lua programming language +into binary files that can be later loaded and executed. +.LP +The main advantages of precompiling chunks are: +faster loading, +protecting source code from accidental user changes, +and +off-line syntax checking. +.LP +Pre-compiling does not imply faster execution +because in Lua chunks are always compiled into bytecodes before being executed. +.B luac +simply allows those bytecodes to be saved in a file for later execution. +.LP +Pre-compiled chunks are not necessarily smaller than the corresponding source. +The main goal in pre-compiling is faster loading. +.LP +The binary files created by +.B luac +are portable only among architectures with the same word size and byte order. +.LP +.B luac +produces a single output file containing the bytecodes +for all source files given. +By default, +the output file is named +.BR luac.out , +but you can change this with the +.B \-o +option. +.LP +In the command line, +you can mix +text files containing Lua source and +binary files containing precompiled chunks. +This is useful to combine several precompiled chunks, +even from different (but compatible) platforms, +into a single precompiled chunk. +.LP +You can use +.B "'\-'" +to indicate the standard input as a source file +and +.B "'\--'" +to signal the end of options +(that is, +all remaining arguments will be treated as files even if they start with +.BR "'\-'" ). +.LP +The internal format of the binary files produced by +.B luac +is likely to change when a new version of Lua is released. +So, +save the source files of all Lua programs that you precompile. +.LP +.SH OPTIONS +Options must be separate. +.TP +.B \-l +produce a listing of the compiled bytecode for Lua's virtual machine. +Listing bytecodes is useful to learn about Lua's virtual machine. +If no files are given, then +.B luac +loads +.B luac.out +and lists its contents. +.TP +.BI \-o " file" +output to +.IR file , +instead of the default +.BR luac.out . +(You can use +.B "'\-'" +for standard output, +but not on platforms that open standard output in text mode.) +The output file may be a source file because +all files are loaded before the output file is written. +Be careful not to overwrite precious files. +.TP +.B \-p +load files but do not generate any output file. +Used mainly for syntax checking and for testing precompiled chunks: +corrupted files will probably generate errors when loaded. +Lua always performs a thorough integrity test on precompiled chunks. +Bytecode that passes this test is completely safe, +in the sense that it will not break the interpreter. +However, +there is no guarantee that such code does anything sensible. +(None can be given, because the halting problem is unsolvable.) +If no files are given, then +.B luac +loads +.B luac.out +and tests its contents. +No messages are displayed if the file passes the integrity test. +.TP +.B \-s +strip debug information before writing the output file. +This saves some space in very large chunks, +but if errors occur when running a stripped chunk, +then the error messages may not contain the full information they usually do. +For instance, +line numbers and names of local variables are lost. +.TP +.B \-v +show version information. +.SH FILES +.TP 15 +.B luac.out +default output file +.SH "SEE ALSO" +.BR lua (1) +.br +http://www.lua.org/ +.SH DIAGNOSTICS +Error messages should be self explanatory. +.SH AUTHORS +L. H. de Figueiredo, +R. Ierusalimschy and +W. Celes +.\" EOF diff --git a/src/3rd party/LuaJIT-1.1.8/doc/luac.html b/src/3rd party/LuaJIT-1.1.8/doc/luac.html new file mode 100644 index 00000000000..179ffe82886 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/luac.html @@ -0,0 +1,145 @@ + + + +LUAC man page + + + + + +

NAME

+luac - Lua compiler +

SYNOPSIS

+luac +[ +options +] [ +filenames +] +

DESCRIPTION

+luac +is the Lua compiler. +It translates programs written in the Lua programming language +into binary files that can be later loaded and executed. +

+The main advantages of precompiling chunks are: +faster loading, +protecting source code from accidental user changes, +and +off-line syntax checking. +

+Precompiling does not imply faster execution +because in Lua chunks are always compiled into bytecodes before being executed. +luac +simply allows those bytecodes to be saved in a file for later execution. +

+Precompiled chunks are not necessarily smaller than the corresponding source. +The main goal in precompiling is faster loading. +

+The binary files created by +luac +are portable only among architectures with the same word size and byte order. +

+luac +produces a single output file containing the bytecodes +for all source files given. +By default, +the output file is named +luac.out, +but you can change this with the +-o +option. +

+In the command line, +you can mix +text files containing Lua source and +binary files containing precompiled chunks. +This is useful because several precompiled chunks, +even from different (but compatible) platforms, +can be combined into a single precompiled chunk. +

+You can use +'-' +to indicate the standard input as a source file +and +'--' +to signal the end of options +(that is, +all remaining arguments will be treated as files even if they start with +'-'). +

+The internal format of the binary files produced by +luac +is likely to change when a new version of Lua is released. +So, +save the source files of all Lua programs that you precompile. +

+

OPTIONS

+Options must be separate. +

+-l +produce a listing of the compiled bytecode for Lua's virtual machine. +Listing bytecodes is useful to learn about Lua's virtual machine. +If no files are given, then +luac +loads +luac.out +and lists its contents. +

+-o file +output to +file, +instead of the default +luac.out. +(You can use +'-' +for standard output, +but not on platforms that open standard output in text mode.) +The output file may be a source file because +all files are loaded before the output file is written. +Be careful not to overwrite precious files. +

+-p +load files but do not generate any output file. +Used mainly for syntax checking and for testing precompiled chunks: +corrupted files will probably generate errors when loaded. +Lua always performs a thorough integrity test on precompiled chunks. +Bytecode that passes this test is completely safe, +in the sense that it will not break the interpreter. +However, +there is no guarantee that such code does anything sensible. +(None can be given, because the halting problem is unsolvable.) +If no files are given, then +luac +loads +luac.out +and tests its contents. +No messages are displayed if the file passes the integrity test. +

+-s +strip debug information before writing the output file. +This saves some space in very large chunks, +but if errors occur when running a stripped chunk, +then the error messages may not contain the full information they usually do. +For instance, +line numbers and names of local variables are lost. +

+-v +show version information. +

FILES

+

+luac.out +default output file +

SEE ALSO

+lua(1) +
+http://www.lua.org/ +

DIAGNOSTICS

+Error messages should be self explanatory. +

AUTHORS

+L. H. de Figueiredo, +R. Ierusalimschy and +W. Celes + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/manual.css b/src/3rd party/LuaJIT-1.1.8/doc/manual.css new file mode 100644 index 00000000000..b49b362937a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/manual.css @@ -0,0 +1,24 @@ +h3 code { + font-family: inherit ; + font-size: inherit ; +} + +pre, code { + font-size: 12pt ; +} + +span.apii { + float: right ; + font-family: inherit ; + font-style: normal ; + font-size: small ; + color: gray ; +} + +p+h1, ul+h1 { + padding-top: 0.4em ; + padding-bottom: 0.4em ; + padding-left: 30px ; + margin-left: -30px ; + background-color: #E0E0FF ; +} diff --git a/src/3rd party/LuaJIT-1.1.8/doc/manual.html b/src/3rd party/LuaJIT-1.1.8/doc/manual.html new file mode 100644 index 00000000000..4e41683d028 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/manual.html @@ -0,0 +1,8804 @@ + + + + +Lua 5.1 Reference Manual + + + + + + + +
+

+ +Lua 5.1 Reference Manual +

+ +by Roberto Ierusalimschy, Luiz Henrique de Figueiredo, Waldemar Celes +

+ +Copyright © 2006–2012 Lua.org, PUC-Rio. +Freely available under the terms of the +Lua license. + +

+

+ +contents +· +index +· +other versions + + +

+ + + + + + +

1 - Introduction

+ +

+Lua is an extension programming language designed to support +general procedural programming with data description +facilities. +It also offers good support for object-oriented programming, +functional programming, and data-driven programming. +Lua is intended to be used as a powerful, light-weight +scripting language for any program that needs one. +Lua is implemented as a library, written in clean C +(that is, in the common subset of ANSI C and C++). + + +

+Being an extension language, Lua has no notion of a "main" program: +it only works embedded in a host client, +called the embedding program or simply the host. +This host program can invoke functions to execute a piece of Lua code, +can write and read Lua variables, +and can register C functions to be called by Lua code. +Through the use of C functions, Lua can be augmented to cope with +a wide range of different domains, +thus creating customized programming languages sharing a syntactical framework. +The Lua distribution includes a sample host program called lua, +which uses the Lua library to offer a complete, stand-alone Lua interpreter. + + +

+Lua is free software, +and is provided as usual with no guarantees, +as stated in its license. +The implementation described in this manual is available +at Lua's official web site, www.lua.org. + + +

+Like any other reference manual, +this document is dry in places. +For a discussion of the decisions behind the design of Lua, +see the technical papers available at Lua's web site. +For a detailed introduction to programming in Lua, +see Roberto's book, Programming in Lua (Second Edition). + + + +

2 - The Language

+ +

+This section describes the lexis, the syntax, and the semantics of Lua. +In other words, +this section describes +which tokens are valid, +how they can be combined, +and what their combinations mean. + + +

+The language constructs will be explained using the usual extended BNF notation, +in which +{a} means 0 or more a's, and +[a] means an optional a. +Non-terminals are shown like non-terminal, +keywords are shown like kword, +and other terminal symbols are shown like `=´. +The complete syntax of Lua can be found in §8 +at the end of this manual. + + + +

2.1 - Lexical Conventions

+ +

+Names +(also called identifiers) +in Lua can be any string of letters, +digits, and underscores, +not beginning with a digit. +This coincides with the definition of names in most languages. +(The definition of letter depends on the current locale: +any character considered alphabetic by the current locale +can be used in an identifier.) +Identifiers are used to name variables and table fields. + + +

+The following keywords are reserved +and cannot be used as names: + + +

+     and       break     do        else      elseif
+     end       false     for       function  if
+     in        local     nil       not       or
+     repeat    return    then      true      until     while
+
+ +

+Lua is a case-sensitive language: +and is a reserved word, but And and AND +are two different, valid names. +As a convention, names starting with an underscore followed by +uppercase letters (such as _VERSION) +are reserved for internal global variables used by Lua. + + +

+The following strings denote other tokens: + +

+     +     -     *     /     %     ^     #
+     ==    ~=    <=    >=    <     >     =
+     (     )     {     }     [     ]
+     ;     :     ,     .     ..    ...
+
+ +

+Literal strings +can be delimited by matching single or double quotes, +and can contain the following C-like escape sequences: +'\a' (bell), +'\b' (backspace), +'\f' (form feed), +'\n' (newline), +'\r' (carriage return), +'\t' (horizontal tab), +'\v' (vertical tab), +'\\' (backslash), +'\"' (quotation mark [double quote]), +and '\'' (apostrophe [single quote]). +Moreover, a backslash followed by a real newline +results in a newline in the string. +A character in a string can also be specified by its numerical value +using the escape sequence \ddd, +where ddd is a sequence of up to three decimal digits. +(Note that if a numerical escape is to be followed by a digit, +it must be expressed using exactly three digits.) +Strings in Lua can contain any 8-bit value, including embedded zeros, +which can be specified as '\0'. + + +

+Literal strings can also be defined using a long format +enclosed by long brackets. +We define an opening long bracket of level n as an opening +square bracket followed by n equal signs followed by another +opening square bracket. +So, an opening long bracket of level 0 is written as [[, +an opening long bracket of level 1 is written as [=[, +and so on. +A closing long bracket is defined similarly; +for instance, a closing long bracket of level 4 is written as ]====]. +A long string starts with an opening long bracket of any level and +ends at the first closing long bracket of the same level. +Literals in this bracketed form can run for several lines, +do not interpret any escape sequences, +and ignore long brackets of any other level. +They can contain anything except a closing bracket of the proper level. + + +

+For convenience, +when the opening long bracket is immediately followed by a newline, +the newline is not included in the string. +As an example, in a system using ASCII +(in which 'a' is coded as 97, +newline is coded as 10, and '1' is coded as 49), +the five literal strings below denote the same string: + +

+     a = 'alo\n123"'
+     a = "alo\n123\""
+     a = '\97lo\10\04923"'
+     a = [[alo
+     123"]]
+     a = [==[
+     alo
+     123"]==]
+
+ +

+A numerical constant can be written with an optional decimal part +and an optional decimal exponent. +Lua also accepts integer hexadecimal constants, +by prefixing them with 0x. +Examples of valid numerical constants are + +

+     3   3.0   3.1416   314.16e-2   0.31416E1   0xff   0x56
+
+ +

+A comment starts with a double hyphen (--) +anywhere outside a string. +If the text immediately after -- is not an opening long bracket, +the comment is a short comment, +which runs until the end of the line. +Otherwise, it is a long comment, +which runs until the corresponding closing long bracket. +Long comments are frequently used to disable code temporarily. + + + + + +

2.2 - Values and Types

+ +

+Lua is a dynamically typed language. +This means that +variables do not have types; only values do. +There are no type definitions in the language. +All values carry their own type. + + +

+All values in Lua are first-class values. +This means that all values can be stored in variables, +passed as arguments to other functions, and returned as results. + + +

+There are eight basic types in Lua: +nil, boolean, number, +string, function, userdata, +thread, and table. +Nil is the type of the value nil, +whose main property is to be different from any other value; +it usually represents the absence of a useful value. +Boolean is the type of the values false and true. +Both nil and false make a condition false; +any other value makes it true. +Number represents real (double-precision floating-point) numbers. +(It is easy to build Lua interpreters that use other +internal representations for numbers, +such as single-precision float or long integers; +see file luaconf.h.) +String represents arrays of characters. + +Lua is 8-bit clean: +strings can contain any 8-bit character, +including embedded zeros ('\0') (see §2.1). + + +

+Lua can call (and manipulate) functions written in Lua and +functions written in C +(see §2.5.8). + + +

+The type userdata is provided to allow arbitrary C data to +be stored in Lua variables. +This type corresponds to a block of raw memory +and has no pre-defined operations in Lua, +except assignment and identity test. +However, by using metatables, +the programmer can define operations for userdata values +(see §2.8). +Userdata values cannot be created or modified in Lua, +only through the C API. +This guarantees the integrity of data owned by the host program. + + +

+The type thread represents independent threads of execution +and it is used to implement coroutines (see §2.11). +Do not confuse Lua threads with operating-system threads. +Lua supports coroutines on all systems, +even those that do not support threads. + + +

+The type table implements associative arrays, +that is, arrays that can be indexed not only with numbers, +but with any value (except nil). +Tables can be heterogeneous; +that is, they can contain values of all types (except nil). +Tables are the sole data structuring mechanism in Lua; +they can be used to represent ordinary arrays, +symbol tables, sets, records, graphs, trees, etc. +To represent records, Lua uses the field name as an index. +The language supports this representation by +providing a.name as syntactic sugar for a["name"]. +There are several convenient ways to create tables in Lua +(see §2.5.7). + + +

+Like indices, +the value of a table field can be of any type (except nil). +In particular, +because functions are first-class values, +table fields can contain functions. +Thus tables can also carry methods (see §2.5.9). + + +

+Tables, functions, threads, and (full) userdata values are objects: +variables do not actually contain these values, +only references to them. +Assignment, parameter passing, and function returns +always manipulate references to such values; +these operations do not imply any kind of copy. + + +

+The library function type returns a string describing the type +of a given value. + + + +

2.2.1 - Coercion

+ +

+Lua provides automatic conversion between +string and number values at run time. +Any arithmetic operation applied to a string tries to convert +this string to a number, following the usual conversion rules. +Conversely, whenever a number is used where a string is expected, +the number is converted to a string, in a reasonable format. +For complete control over how numbers are converted to strings, +use the format function from the string library +(see string.format). + + + + + + + +

2.3 - Variables

+ +

+Variables are places that store values. + +There are three kinds of variables in Lua: +global variables, local variables, and table fields. + + +

+A single name can denote a global variable or a local variable +(or a function's formal parameter, +which is a particular kind of local variable): + +

+	var ::= Name
+

+Name denotes identifiers, as defined in §2.1. + + +

+Any variable is assumed to be global unless explicitly declared +as a local (see §2.4.7). +Local variables are lexically scoped: +local variables can be freely accessed by functions +defined inside their scope (see §2.6). + + +

+Before the first assignment to a variable, its value is nil. + + +

+Square brackets are used to index a table: + +

+	var ::= prefixexp `[´ exp `]´
+

+The meaning of accesses to global variables +and table fields can be changed via metatables. +An access to an indexed variable t[i] is equivalent to +a call gettable_event(t,i). +(See §2.8 for a complete description of the +gettable_event function. +This function is not defined or callable in Lua. +We use it here only for explanatory purposes.) + + +

+The syntax var.Name is just syntactic sugar for +var["Name"]: + +

+	var ::= prefixexp `.´ Name
+
+ +

+All global variables live as fields in ordinary Lua tables, +called environment tables or simply +environments (see §2.9). +Each function has its own reference to an environment, +so that all global variables in this function +will refer to this environment table. +When a function is created, +it inherits the environment from the function that created it. +To get the environment table of a Lua function, +you call getfenv. +To replace it, +you call setfenv. +(You can only manipulate the environment of C functions +through the debug library; (see §5.9).) + + +

+An access to a global variable x +is equivalent to _env.x, +which in turn is equivalent to + +

+     gettable_event(_env, "x")
+

+where _env is the environment of the running function. +(See §2.8 for a complete description of the +gettable_event function. +This function is not defined or callable in Lua. +Similarly, the _env variable is not defined in Lua. +We use them here only for explanatory purposes.) + + + + + +

2.4 - Statements

+ +

+Lua supports an almost conventional set of statements, +similar to those in Pascal or C. +This set includes +assignments, control structures, function calls, +and variable declarations. + + + +

2.4.1 - Chunks

+ +

+The unit of execution of Lua is called a chunk. +A chunk is simply a sequence of statements, +which are executed sequentially. +Each statement can be optionally followed by a semicolon: + +

+	chunk ::= {stat [`;´]}
+

+There are no empty statements and thus ';;' is not legal. + + +

+Lua handles a chunk as the body of an anonymous function +with a variable number of arguments +(see §2.5.9). +As such, chunks can define local variables, +receive arguments, and return values. + + +

+A chunk can be stored in a file or in a string inside the host program. +To execute a chunk, +Lua first pre-compiles the chunk into instructions for a virtual machine, +and then it executes the compiled code +with an interpreter for the virtual machine. + + +

+Chunks can also be pre-compiled into binary form; +see program luac for details. +Programs in source and compiled forms are interchangeable; +Lua automatically detects the file type and acts accordingly. + + + + + + +

2.4.2 - Blocks

+A block is a list of statements; +syntactically, a block is the same as a chunk: + +

+	block ::= chunk
+
+ +

+A block can be explicitly delimited to produce a single statement: + +

+	stat ::= do block end
+

+Explicit blocks are useful +to control the scope of variable declarations. +Explicit blocks are also sometimes used to +add a return or break statement in the middle +of another block (see §2.4.4). + + + + + +

2.4.3 - Assignment

+ +

+Lua allows multiple assignments. +Therefore, the syntax for assignment +defines a list of variables on the left side +and a list of expressions on the right side. +The elements in both lists are separated by commas: + +

+	stat ::= varlist `=´ explist
+	varlist ::= var {`,´ var}
+	explist ::= exp {`,´ exp}
+

+Expressions are discussed in §2.5. + + +

+Before the assignment, +the list of values is adjusted to the length of +the list of variables. +If there are more values than needed, +the excess values are thrown away. +If there are fewer values than needed, +the list is extended with as many nil's as needed. +If the list of expressions ends with a function call, +then all values returned by that call enter the list of values, +before the adjustment +(except when the call is enclosed in parentheses; see §2.5). + + +

+The assignment statement first evaluates all its expressions +and only then are the assignments performed. +Thus the code + +

+     i = 3
+     i, a[i] = i+1, 20
+

+sets a[3] to 20, without affecting a[4] +because the i in a[i] is evaluated (to 3) +before it is assigned 4. +Similarly, the line + +

+     x, y = y, x
+

+exchanges the values of x and y, +and + +

+     x, y, z = y, z, x
+

+cyclically permutes the values of x, y, and z. + + +

+The meaning of assignments to global variables +and table fields can be changed via metatables. +An assignment to an indexed variable t[i] = val is equivalent to +settable_event(t,i,val). +(See §2.8 for a complete description of the +settable_event function. +This function is not defined or callable in Lua. +We use it here only for explanatory purposes.) + + +

+An assignment to a global variable x = val +is equivalent to the assignment +_env.x = val, +which in turn is equivalent to + +

+     settable_event(_env, "x", val)
+

+where _env is the environment of the running function. +(The _env variable is not defined in Lua. +We use it here only for explanatory purposes.) + + + + + +

2.4.4 - Control Structures

+The control structures +if, while, and repeat have the usual meaning and +familiar syntax: + + + + +

+	stat ::= while exp do block end
+	stat ::= repeat block until exp
+	stat ::= if exp then block {elseif exp then block} [else block] end
+

+Lua also has a for statement, in two flavors (see §2.4.5). + + +

+The condition expression of a +control structure can return any value. +Both false and nil are considered false. +All values different from nil and false are considered true +(in particular, the number 0 and the empty string are also true). + + +

+In the repeat–until loop, +the inner block does not end at the until keyword, +but only after the condition. +So, the condition can refer to local variables +declared inside the loop block. + + +

+The return statement is used to return values +from a function or a chunk (which is just a function). + +Functions and chunks can return more than one value, +and so the syntax for the return statement is + +

+	stat ::= return [explist]
+
+ +

+The break statement is used to terminate the execution of a +while, repeat, or for loop, +skipping to the next statement after the loop: + + +

+	stat ::= break
+

+A break ends the innermost enclosing loop. + + +

+The return and break +statements can only be written as the last statement of a block. +If it is really necessary to return or break in the +middle of a block, +then an explicit inner block can be used, +as in the idioms +do return end and do break end, +because now return and break are the last statements in +their (inner) blocks. + + + + + +

2.4.5 - For Statement

+ +

+ +The for statement has two forms: +one numeric and one generic. + + +

+The numeric for loop repeats a block of code while a +control variable runs through an arithmetic progression. +It has the following syntax: + +

+	stat ::= for Name `=´ exp `,´ exp [`,´ exp] do block end
+

+The block is repeated for name starting at the value of +the first exp, until it passes the second exp by steps of the +third exp. +More precisely, a for statement like + +

+     for v = e1, e2, e3 do block end
+

+is equivalent to the code: + +

+     do
+       local var, limit, step = tonumber(e1), tonumber(e2), tonumber(e3)
+       if not (var and limit and step) then error() end
+       while (step > 0 and var <= limit) or (step <= 0 and var >= limit) do
+         local v = var
+         block
+         var = var + step
+       end
+     end
+

+Note the following: + +

    + +
  • +All three control expressions are evaluated only once, +before the loop starts. +They must all result in numbers. +
    • + +
  • +var, limit, and step are invisible variables. +The names shown here are for explanatory purposes only. +
    • + +
  • +If the third expression (the step) is absent, +then a step of 1 is used. +
    • + +
  • +You can use break to exit a for loop. +
    • + +
  • +The loop variable v is local to the loop; +you cannot use its value after the for ends or is broken. +If you need this value, +assign it to another variable before breaking or exiting the loop. +
    • + +
+ +

+The generic for statement works over functions, +called iterators. +On each iteration, the iterator function is called to produce a new value, +stopping when this new value is nil. +The generic for loop has the following syntax: + +

+	stat ::= for namelist in explist do block end
+	namelist ::= Name {`,´ Name}
+

+A for statement like + +

+     for var_1, ···, var_n in explist do block end
+

+is equivalent to the code: + +

+     do
+       local f, s, var = explist
+       while true do
+         local var_1, ···, var_n = f(s, var)
+         var = var_1
+         if var == nil then break end
+         block
+       end
+     end
+

+Note the following: + +

    + +
  • +explist is evaluated only once. +Its results are an iterator function, +a state, +and an initial value for the first iterator variable. +
    • + +
  • +f, s, and var are invisible variables. +The names are here for explanatory purposes only. +
    • + +
  • +You can use break to exit a for loop. +
    • + +
  • +The loop variables var_i are local to the loop; +you cannot use their values after the for ends. +If you need these values, +then assign them to other variables before breaking or exiting the loop. +
    • + +
+ + + + +

2.4.6 - Function Calls as Statements

+To allow possible side-effects, +function calls can be executed as statements: + +

+	stat ::= functioncall
+

+In this case, all returned values are thrown away. +Function calls are explained in §2.5.8. + + + + + +

2.4.7 - Local Declarations

+Local variables can be declared anywhere inside a block. +The declaration can include an initial assignment: + +

+	stat ::= local namelist [`=´ explist]
+

+If present, an initial assignment has the same semantics +of a multiple assignment (see §2.4.3). +Otherwise, all variables are initialized with nil. + + +

+A chunk is also a block (see §2.4.1), +and so local variables can be declared in a chunk outside any explicit block. +The scope of such local variables extends until the end of the chunk. + + +

+The visibility rules for local variables are explained in §2.6. + + + + + + + +

2.5 - Expressions

+ +

+The basic expressions in Lua are the following: + +

+	exp ::= prefixexp
+	exp ::= nil | false | true
+	exp ::= Number
+	exp ::= String
+	exp ::= function
+	exp ::= tableconstructor
+	exp ::= `...´
+	exp ::= exp binop exp
+	exp ::= unop exp
+	prefixexp ::= var | functioncall | `(´ exp `)´
+
+ +

+Numbers and literal strings are explained in §2.1; +variables are explained in §2.3; +function definitions are explained in §2.5.9; +function calls are explained in §2.5.8; +table constructors are explained in §2.5.7. +Vararg expressions, +denoted by three dots ('...'), can only be used when +directly inside a vararg function; +they are explained in §2.5.9. + + +

+Binary operators comprise arithmetic operators (see §2.5.1), +relational operators (see §2.5.2), logical operators (see §2.5.3), +and the concatenation operator (see §2.5.4). +Unary operators comprise the unary minus (see §2.5.1), +the unary not (see §2.5.3), +and the unary length operator (see §2.5.5). + + +

+Both function calls and vararg expressions can result in multiple values. +If an expression is used as a statement +(only possible for function calls (see §2.4.6)), +then its return list is adjusted to zero elements, +thus discarding all returned values. +If an expression is used as the last (or the only) element +of a list of expressions, +then no adjustment is made +(unless the call is enclosed in parentheses). +In all other contexts, +Lua adjusts the result list to one element, +discarding all values except the first one. + + +

+Here are some examples: + +

+     f()                -- adjusted to 0 results
+     g(f(), x)          -- f() is adjusted to 1 result
+     g(x, f())          -- g gets x plus all results from f()
+     a,b,c = f(), x     -- f() is adjusted to 1 result (c gets nil)
+     a,b = ...          -- a gets the first vararg parameter, b gets
+                        -- the second (both a and b can get nil if there
+                        -- is no corresponding vararg parameter)
+     
+     a,b,c = x, f()     -- f() is adjusted to 2 results
+     a,b,c = f()        -- f() is adjusted to 3 results
+     return f()         -- returns all results from f()
+     return ...         -- returns all received vararg parameters
+     return x,y,f()     -- returns x, y, and all results from f()
+     {f()}              -- creates a list with all results from f()
+     {...}              -- creates a list with all vararg parameters
+     {f(), nil}         -- f() is adjusted to 1 result
+
+ +

+Any expression enclosed in parentheses always results in only one value. +Thus, +(f(x,y,z)) is always a single value, +even if f returns several values. +(The value of (f(x,y,z)) is the first value returned by f +or nil if f does not return any values.) + + + +

2.5.1 - Arithmetic Operators

+Lua supports the usual arithmetic operators: +the binary + (addition), +- (subtraction), * (multiplication), +/ (division), % (modulo), and ^ (exponentiation); +and unary - (negation). +If the operands are numbers, or strings that can be converted to +numbers (see §2.2.1), +then all operations have the usual meaning. +Exponentiation works for any exponent. +For instance, x^(-0.5) computes the inverse of the square root of x. +Modulo is defined as + +

+     a % b == a - math.floor(a/b)*b
+

+That is, it is the remainder of a division that rounds +the quotient towards minus infinity. + + + + + +

2.5.2 - Relational Operators

+The relational operators in Lua are + +

+     ==    ~=    <     >     <=    >=
+

+These operators always result in false or true. + + +

+Equality (==) first compares the type of its operands. +If the types are different, then the result is false. +Otherwise, the values of the operands are compared. +Numbers and strings are compared in the usual way. +Objects (tables, userdata, threads, and functions) +are compared by reference: +two objects are considered equal only if they are the same object. +Every time you create a new object +(a table, userdata, thread, or function), +this new object is different from any previously existing object. + + +

+You can change the way that Lua compares tables and userdata +by using the "eq" metamethod (see §2.8). + + +

+The conversion rules of §2.2.1 +do not apply to equality comparisons. +Thus, "0"==0 evaluates to false, +and t[0] and t["0"] denote different +entries in a table. + + +

+The operator ~= is exactly the negation of equality (==). + + +

+The order operators work as follows. +If both arguments are numbers, then they are compared as such. +Otherwise, if both arguments are strings, +then their values are compared according to the current locale. +Otherwise, Lua tries to call the "lt" or the "le" +metamethod (see §2.8). +A comparison a > b is translated to b < a +and a >= b is translated to b <= a. + + + + + +

2.5.3 - Logical Operators

+The logical operators in Lua are +and, or, and not. +Like the control structures (see §2.4.4), +all logical operators consider both false and nil as false +and anything else as true. + + +

+The negation operator not always returns false or true. +The conjunction operator and returns its first argument +if this value is false or nil; +otherwise, and returns its second argument. +The disjunction operator or returns its first argument +if this value is different from nil and false; +otherwise, or returns its second argument. +Both and and or use short-cut evaluation; +that is, +the second operand is evaluated only if necessary. +Here are some examples: + +

+     10 or 20            --> 10
+     10 or error()       --> 10
+     nil or "a"          --> "a"
+     nil and 10          --> nil
+     false and error()   --> false
+     false and nil       --> false
+     false or nil        --> nil
+     10 and 20           --> 20
+

+(In this manual, +--> indicates the result of the preceding expression.) + + + + + +

2.5.4 - Concatenation

+The string concatenation operator in Lua is +denoted by two dots ('..'). +If both operands are strings or numbers, then they are converted to +strings according to the rules mentioned in §2.2.1. +Otherwise, the "concat" metamethod is called (see §2.8). + + + + + +

2.5.5 - The Length Operator

+ +

+The length operator is denoted by the unary operator #. +The length of a string is its number of bytes +(that is, the usual meaning of string length when each +character is one byte). + + +

+The length of a table t is defined to be any +integer index n +such that t[n] is not nil and t[n+1] is nil; +moreover, if t[1] is nil, n can be zero. +For a regular array, with non-nil values from 1 to a given n, +its length is exactly that n, +the index of its last value. +If the array has "holes" +(that is, nil values between other non-nil values), +then #t can be any of the indices that +directly precedes a nil value +(that is, it may consider any such nil value as the end of +the array). + + + + + +

2.5.6 - Precedence

+Operator precedence in Lua follows the table below, +from lower to higher priority: + +

+     or
+     and
+     <     >     <=    >=    ~=    ==
+     ..
+     +     -
+     *     /     %
+     not   #     - (unary)
+     ^
+

+As usual, +you can use parentheses to change the precedences of an expression. +The concatenation ('..') and exponentiation ('^') +operators are right associative. +All other binary operators are left associative. + + + + + +

2.5.7 - Table Constructors

+Table constructors are expressions that create tables. +Every time a constructor is evaluated, a new table is created. +A constructor can be used to create an empty table +or to create a table and initialize some of its fields. +The general syntax for constructors is + +

+	tableconstructor ::= `{´ [fieldlist] `}´
+	fieldlist ::= field {fieldsep field} [fieldsep]
+	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp
+	fieldsep ::= `,´ | `;´
+
+ +

+Each field of the form [exp1] = exp2 adds to the new table an entry +with key exp1 and value exp2. +A field of the form name = exp is equivalent to +["name"] = exp. +Finally, fields of the form exp are equivalent to +[i] = exp, where i are consecutive numerical integers, +starting with 1. +Fields in the other formats do not affect this counting. +For example, + +

+     a = { [f(1)] = g; "x", "y"; x = 1, f(x), [30] = 23; 45 }
+

+is equivalent to + +

+     do
+       local t = {}
+       t[f(1)] = g
+       t[1] = "x"         -- 1st exp
+       t[2] = "y"         -- 2nd exp
+       t.x = 1            -- t["x"] = 1
+       t[3] = f(x)        -- 3rd exp
+       t[30] = 23
+       t[4] = 45          -- 4th exp
+       a = t
+     end
+
+ +

+If the last field in the list has the form exp +and the expression is a function call or a vararg expression, +then all values returned by this expression enter the list consecutively +(see §2.5.8). +To avoid this, +enclose the function call or the vararg expression +in parentheses (see §2.5). + + +

+The field list can have an optional trailing separator, +as a convenience for machine-generated code. + + + + + +

2.5.8 - Function Calls

+A function call in Lua has the following syntax: + +

+	functioncall ::= prefixexp args
+

+In a function call, +first prefixexp and args are evaluated. +If the value of prefixexp has type function, +then this function is called +with the given arguments. +Otherwise, the prefixexp "call" metamethod is called, +having as first parameter the value of prefixexp, +followed by the original call arguments +(see §2.8). + + +

+The form + +

+	functioncall ::= prefixexp `:´ Name args
+

+can be used to call "methods". +A call v:name(args) +is syntactic sugar for v.name(v,args), +except that v is evaluated only once. + + +

+Arguments have the following syntax: + +

+	args ::= `(´ [explist] `)´
+	args ::= tableconstructor
+	args ::= String
+

+All argument expressions are evaluated before the call. +A call of the form f{fields} is +syntactic sugar for f({fields}); +that is, the argument list is a single new table. +A call of the form f'string' +(or f"string" or f[[string]]) +is syntactic sugar for f('string'); +that is, the argument list is a single literal string. + + +

+As an exception to the free-format syntax of Lua, +you cannot put a line break before the '(' in a function call. +This restriction avoids some ambiguities in the language. +If you write + +

+     a = f
+     (g).x(a)
+

+Lua would see that as a single statement, a = f(g).x(a). +So, if you want two statements, you must add a semi-colon between them. +If you actually want to call f, +you must remove the line break before (g). + + +

+A call of the form return functioncall is called +a tail call. +Lua implements proper tail calls +(or proper tail recursion): +in a tail call, +the called function reuses the stack entry of the calling function. +Therefore, there is no limit on the number of nested tail calls that +a program can execute. +However, a tail call erases any debug information about the +calling function. +Note that a tail call only happens with a particular syntax, +where the return has one single function call as argument; +this syntax makes the calling function return exactly +the returns of the called function. +So, none of the following examples are tail calls: + +

+     return (f(x))        -- results adjusted to 1
+     return 2 * f(x)
+     return x, f(x)       -- additional results
+     f(x); return         -- results discarded
+     return x or f(x)     -- results adjusted to 1
+
+ + + + +

2.5.9 - Function Definitions

+ +

+The syntax for function definition is + +

+	function ::= function funcbody
+	funcbody ::= `(´ [parlist] `)´ block end
+
+ +

+The following syntactic sugar simplifies function definitions: + +

+	stat ::= function funcname funcbody
+	stat ::= local function Name funcbody
+	funcname ::= Name {`.´ Name} [`:´ Name]
+

+The statement + +

+     function f () body end
+

+translates to + +

+     f = function () body end
+

+The statement + +

+     function t.a.b.c.f () body end
+

+translates to + +

+     t.a.b.c.f = function () body end
+

+The statement + +

+     local function f () body end
+

+translates to + +

+     local f; f = function () body end
+

+not to + +

+     local f = function () body end
+

+(This only makes a difference when the body of the function +contains references to f.) + + +

+A function definition is an executable expression, +whose value has type function. +When Lua pre-compiles a chunk, +all its function bodies are pre-compiled too. +Then, whenever Lua executes the function definition, +the function is instantiated (or closed). +This function instance (or closure) +is the final value of the expression. +Different instances of the same function +can refer to different external local variables +and can have different environment tables. + + +

+Parameters act as local variables that are +initialized with the argument values: + +

+	parlist ::= namelist [`,´ `...´] | `...´
+

+When a function is called, +the list of arguments is adjusted to +the length of the list of parameters, +unless the function is a variadic or vararg function, +which is +indicated by three dots ('...') at the end of its parameter list. +A vararg function does not adjust its argument list; +instead, it collects all extra arguments and supplies them +to the function through a vararg expression, +which is also written as three dots. +The value of this expression is a list of all actual extra arguments, +similar to a function with multiple results. +If a vararg expression is used inside another expression +or in the middle of a list of expressions, +then its return list is adjusted to one element. +If the expression is used as the last element of a list of expressions, +then no adjustment is made +(unless that last expression is enclosed in parentheses). + + +

+As an example, consider the following definitions: + +

+     function f(a, b) end
+     function g(a, b, ...) end
+     function r() return 1,2,3 end
+

+Then, we have the following mapping from arguments to parameters and +to the vararg expression: + +

+     CALL            PARAMETERS
+     
+     f(3)             a=3, b=nil
+     f(3, 4)          a=3, b=4
+     f(3, 4, 5)       a=3, b=4
+     f(r(), 10)       a=1, b=10
+     f(r())           a=1, b=2
+     
+     g(3)             a=3, b=nil, ... -->  (nothing)
+     g(3, 4)          a=3, b=4,   ... -->  (nothing)
+     g(3, 4, 5, 8)    a=3, b=4,   ... -->  5  8
+     g(5, r())        a=5, b=1,   ... -->  2  3
+
+ +

+Results are returned using the return statement (see §2.4.4). +If control reaches the end of a function +without encountering a return statement, +then the function returns with no results. + + +

+The colon syntax +is used for defining methods, +that is, functions that have an implicit extra parameter self. +Thus, the statement + +

+     function t.a.b.c:f (params) body end
+

+is syntactic sugar for + +

+     t.a.b.c.f = function (self, params) body end
+
+ + + + + + +

2.6 - Visibility Rules

+ +

+ +Lua is a lexically scoped language. +The scope of variables begins at the first statement after +their declaration and lasts until the end of the innermost block that +includes the declaration. +Consider the following example: + +

+     x = 10                -- global variable
+     do                    -- new block
+       local x = x         -- new 'x', with value 10
+       print(x)            --> 10
+       x = x+1
+       do                  -- another block
+         local x = x+1     -- another 'x'
+         print(x)          --> 12
+       end
+       print(x)            --> 11
+     end
+     print(x)              --> 10  (the global one)
+
+ +

+Notice that, in a declaration like local x = x, +the new x being declared is not in scope yet, +and so the second x refers to the outside variable. + + +

+Because of the lexical scoping rules, +local variables can be freely accessed by functions +defined inside their scope. +A local variable used by an inner function is called +an upvalue, or external local variable, +inside the inner function. + + +

+Notice that each execution of a local statement +defines new local variables. +Consider the following example: + +

+     a = {}
+     local x = 20
+     for i=1,10 do
+       local y = 0
+       a[i] = function () y=y+1; return x+y end
+     end
+

+The loop creates ten closures +(that is, ten instances of the anonymous function). +Each of these closures uses a different y variable, +while all of them share the same x. + + + + + +

2.7 - Error Handling

+ +

+Because Lua is an embedded extension language, +all Lua actions start from C code in the host program +calling a function from the Lua library (see lua_pcall). +Whenever an error occurs during Lua compilation or execution, +control returns to C, +which can take appropriate measures +(such as printing an error message). + + +

+Lua code can explicitly generate an error by calling the +error function. +If you need to catch errors in Lua, +you can use the pcall function. + + + + + +

2.8 - Metatables

+ +

+Every value in Lua can have a metatable. +This metatable is an ordinary Lua table +that defines the behavior of the original value +under certain special operations. +You can change several aspects of the behavior +of operations over a value by setting specific fields in its metatable. +For instance, when a non-numeric value is the operand of an addition, +Lua checks for a function in the field "__add" in its metatable. +If it finds one, +Lua calls this function to perform the addition. + + +

+We call the keys in a metatable events +and the values metamethods. +In the previous example, the event is "add" +and the metamethod is the function that performs the addition. + + +

+You can query the metatable of any value +through the getmetatable function. + + +

+You can replace the metatable of tables +through the setmetatable +function. +You cannot change the metatable of other types from Lua +(except by using the debug library); +you must use the C API for that. + + +

+Tables and full userdata have individual metatables +(although multiple tables and userdata can share their metatables). +Values of all other types share one single metatable per type; +that is, there is one single metatable for all numbers, +one for all strings, etc. + + +

+A metatable controls how an object behaves in arithmetic operations, +order comparisons, concatenation, length operation, and indexing. +A metatable also can define a function to be called when a userdata +is garbage collected. +For each of these operations Lua associates a specific key +called an event. +When Lua performs one of these operations over a value, +it checks whether this value has a metatable with the corresponding event. +If so, the value associated with that key (the metamethod) +controls how Lua will perform the operation. + + +

+Metatables control the operations listed next. +Each operation is identified by its corresponding name. +The key for each operation is a string with its name prefixed by +two underscores, '__'; +for instance, the key for operation "add" is the +string "__add". +The semantics of these operations is better explained by a Lua function +describing how the interpreter executes the operation. + + +

+The code shown here in Lua is only illustrative; +the real behavior is hard coded in the interpreter +and it is much more efficient than this simulation. +All functions used in these descriptions +(rawget, tonumber, etc.) +are described in §5.1. +In particular, to retrieve the metamethod of a given object, +we use the expression + +

+     metatable(obj)[event]
+

+This should be read as + +

+     rawget(getmetatable(obj) or {}, event)
+

+ +That is, the access to a metamethod does not invoke other metamethods, +and the access to objects with no metatables does not fail +(it simply results in nil). + + + +

    + +
  • "add": +the + operation. + + + +

    +The function getbinhandler below defines how Lua chooses a handler +for a binary operation. +First, Lua tries the first operand. +If its type does not define a handler for the operation, +then Lua tries the second operand. + +

    +     function getbinhandler (op1, op2, event)
+       return metatable(op1)[event] or metatable(op2)[event]
+     end
+

    +By using this function, +the behavior of the op1 + op2 is + +

    +     function add_event (op1, op2)
+       local o1, o2 = tonumber(op1), tonumber(op2)
+       if o1 and o2 then  -- both operands are numeric?
+         return o1 + o2   -- '+' here is the primitive 'add'
+       else  -- at least one of the operands is not numeric
+         local h = getbinhandler(op1, op2, "__add")
+         if h then
+           -- call the handler with both operands
+           return (h(op1, op2))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "sub": +the - operation. + +Behavior similar to the "add" operation. +
    • + +
  • "mul": +the * operation. + +Behavior similar to the "add" operation. +
    • + +
  • "div": +the / operation. + +Behavior similar to the "add" operation. +
    • + +
  • "mod": +the % operation. + +Behavior similar to the "add" operation, +with the operation +o1 - floor(o1/o2)*o2 as the primitive operation. +
    • + +
  • "pow": +the ^ (exponentiation) operation. + +Behavior similar to the "add" operation, +with the function pow (from the C math library) +as the primitive operation. +
    • + +
  • "unm": +the unary - operation. + + +
    +     function unm_event (op)
+       local o = tonumber(op)
+       if o then  -- operand is numeric?
+         return -o  -- '-' here is the primitive 'unm'
+       else  -- the operand is not numeric.
+         -- Try to get a handler from the operand
+         local h = metatable(op).__unm
+         if h then
+           -- call the handler with the operand
+           return (h(op))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "concat": +the .. (concatenation) operation. + + +
    +     function concat_event (op1, op2)
+       if (type(op1) == "string" or type(op1) == "number") and
+          (type(op2) == "string" or type(op2) == "number") then
+         return op1 .. op2  -- primitive string concatenation
+       else
+         local h = getbinhandler(op1, op2, "__concat")
+         if h then
+           return (h(op1, op2))
+         else
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "len": +the # operation. + + +
    +     function len_event (op)
+       if type(op) == "string" then
+         return strlen(op)         -- primitive string length
+       elseif type(op) == "table" then
+         return #op                -- primitive table length
+       else
+         local h = metatable(op).__len
+         if h then
+           -- call the handler with the operand
+           return (h(op))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +See §2.5.5 for a description of the length of a table. +

    • + +
  • "eq": +the == operation. + +The function getcomphandler defines how Lua chooses a metamethod +for comparison operators. +A metamethod only is selected when both objects +being compared have the same type +and the same metamethod for the selected operation. + +
    +     function getcomphandler (op1, op2, event)
+       if type(op1) ~= type(op2) then return nil end
+       local mm1 = metatable(op1)[event]
+       local mm2 = metatable(op2)[event]
+       if mm1 == mm2 then return mm1 else return nil end
+     end
+

    +The "eq" event is defined as follows: + +

    +     function eq_event (op1, op2)
+       if type(op1) ~= type(op2) then  -- different types?
+         return false   -- different objects
+       end
+       if op1 == op2 then   -- primitive equal?
+         return true   -- objects are equal
+       end
+       -- try metamethod
+       local h = getcomphandler(op1, op2, "__eq")
+       if h then
+         return (h(op1, op2))
+       else
+         return false
+       end
+     end
+

    +a ~= b is equivalent to not (a == b). +

    • + +
  • "lt": +the < operation. + + +
    +     function lt_event (op1, op2)
+       if type(op1) == "number" and type(op2) == "number" then
+         return op1 < op2   -- numeric comparison
+       elseif type(op1) == "string" and type(op2) == "string" then
+         return op1 < op2   -- lexicographic comparison
+       else
+         local h = getcomphandler(op1, op2, "__lt")
+         if h then
+           return (h(op1, op2))
+         else
+           error(···)
+         end
+       end
+     end
+

    +a > b is equivalent to b < a. +

    • + +
  • "le": +the <= operation. + + +
    +     function le_event (op1, op2)
+       if type(op1) == "number" and type(op2) == "number" then
+         return op1 <= op2   -- numeric comparison
+       elseif type(op1) == "string" and type(op2) == "string" then
+         return op1 <= op2   -- lexicographic comparison
+       else
+         local h = getcomphandler(op1, op2, "__le")
+         if h then
+           return (h(op1, op2))
+         else
+           h = getcomphandler(op1, op2, "__lt")
+           if h then
+             return not h(op2, op1)
+           else
+             error(···)
+           end
+         end
+       end
+     end
+

    +a >= b is equivalent to b <= a. +Note that, in the absence of a "le" metamethod, +Lua tries the "lt", assuming that a <= b is +equivalent to not (b < a). +

    • + +
  • "index": +The indexing access table[key]. + + +
    +     function gettable_event (table, key)
+       local h
+       if type(table) == "table" then
+         local v = rawget(table, key)
+         if v ~= nil then return v end
+         h = metatable(table).__index
+         if h == nil then return nil end
+       else
+         h = metatable(table).__index
+         if h == nil then
+           error(···)
+         end
+       end
+       if type(h) == "function" then
+         return (h(table, key))     -- call the handler
+       else return h[key]           -- or repeat operation on it
+       end
+     end
+

    +

    • + +
  • "newindex": +The indexing assignment table[key] = value. + + +
    +     function settable_event (table, key, value)
+       local h
+       if type(table) == "table" then
+         local v = rawget(table, key)
+         if v ~= nil then rawset(table, key, value); return end
+         h = metatable(table).__newindex
+         if h == nil then rawset(table, key, value); return end
+       else
+         h = metatable(table).__newindex
+         if h == nil then
+           error(···)
+         end
+       end
+       if type(h) == "function" then
+         h(table, key,value)           -- call the handler
+       else h[key] = value             -- or repeat operation on it
+       end
+     end
+

    +

    • + +
  • "call": +called when Lua calls a value. + + +
    +     function function_event (func, ...)
+       if type(func) == "function" then
+         return func(...)   -- primitive call
+       else
+         local h = metatable(func).__call
+         if h then
+           return h(func, ...)
+         else
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
+ + + + +

2.9 - Environments

+ +

+Besides metatables, +objects of types thread, function, and userdata +have another table associated with them, +called their environment. +Like metatables, environments are regular tables and +multiple objects can share the same environment. + + +

+Threads are created sharing the environment of the creating thread. +Userdata and C functions are created sharing the environment +of the creating C function. +Non-nested Lua functions +(created by loadfile, loadstring or load) +are created sharing the environment of the creating thread. +Nested Lua functions are created sharing the environment of +the creating Lua function. + + +

+Environments associated with userdata have no meaning for Lua. +It is only a convenience feature for programmers to associate a table to +a userdata. + + +

+Environments associated with threads are called +global environments. +They are used as the default environment for threads and +non-nested Lua functions created by the thread +and can be directly accessed by C code (see §3.3). + + +

+The environment associated with a C function can be directly +accessed by C code (see §3.3). +It is used as the default environment for other C functions +and userdata created by the function. + + +

+Environments associated with Lua functions are used to resolve +all accesses to global variables within the function (see §2.3). +They are used as the default environment for nested Lua functions +created by the function. + + +

+You can change the environment of a Lua function or the +running thread by calling setfenv. +You can get the environment of a Lua function or the running thread +by calling getfenv. +To manipulate the environment of other objects +(userdata, C functions, other threads) you must +use the C API. + + + + + +

2.10 - Garbage Collection

+ +

+Lua performs automatic memory management. +This means that +you have to worry neither about allocating memory for new objects +nor about freeing it when the objects are no longer needed. +Lua manages memory automatically by running +a garbage collector from time to time +to collect all dead objects +(that is, objects that are no longer accessible from Lua). +All memory used by Lua is subject to automatic management: +tables, userdata, functions, threads, strings, etc. + + +

+Lua implements an incremental mark-and-sweep collector. +It uses two numbers to control its garbage-collection cycles: +the garbage-collector pause and +the garbage-collector step multiplier. +Both use percentage points as units +(so that a value of 100 means an internal value of 1). + + +

+The garbage-collector pause +controls how long the collector waits before starting a new cycle. +Larger values make the collector less aggressive. +Values smaller than 100 mean the collector will not wait to +start a new cycle. +A value of 200 means that the collector waits for the total memory in use +to double before starting a new cycle. + + +

+The step multiplier +controls the relative speed of the collector relative to +memory allocation. +Larger values make the collector more aggressive but also increase +the size of each incremental step. +Values smaller than 100 make the collector too slow and +can result in the collector never finishing a cycle. +The default, 200, means that the collector runs at "twice" +the speed of memory allocation. + + +

+You can change these numbers by calling lua_gc in C +or collectgarbage in Lua. +With these functions you can also control +the collector directly (e.g., stop and restart it). + + + +

2.10.1 - Garbage-Collection Metamethods

+ +

+Using the C API, +you can set garbage-collector metamethods for userdata (see §2.8). +These metamethods are also called finalizers. +Finalizers allow you to coordinate Lua's garbage collection +with external resource management +(such as closing files, network or database connections, +or freeing your own memory). + + +

+Garbage userdata with a field __gc in their metatables are not +collected immediately by the garbage collector. +Instead, Lua puts them in a list. +After the collection, +Lua does the equivalent of the following function +for each userdata in that list: + +

+     function gc_event (udata)
+       local h = metatable(udata).__gc
+       if h then
+         h(udata)
+       end
+     end
+
+ +

+At the end of each garbage-collection cycle, +the finalizers for userdata are called in reverse +order of their creation, +among those collected in that cycle. +That is, the first finalizer to be called is the one associated +with the userdata created last in the program. +The userdata itself is freed only in the next garbage-collection cycle. + + + + + +

2.10.2 - Weak Tables

+ +

+A weak table is a table whose elements are +weak references. +A weak reference is ignored by the garbage collector. +In other words, +if the only references to an object are weak references, +then the garbage collector will collect this object. + + +

+A weak table can have weak keys, weak values, or both. +A table with weak keys allows the collection of its keys, +but prevents the collection of its values. +A table with both weak keys and weak values allows the collection of +both keys and values. +In any case, if either the key or the value is collected, +the whole pair is removed from the table. +The weakness of a table is controlled by the +__mode field of its metatable. +If the __mode field is a string containing the character 'k', +the keys in the table are weak. +If __mode contains 'v', +the values in the table are weak. + + +

+After you use a table as a metatable, +you should not change the value of its __mode field. +Otherwise, the weak behavior of the tables controlled by this +metatable is undefined. + + + + + + + +

2.11 - Coroutines

+ +

+Lua supports coroutines, +also called collaborative multithreading. +A coroutine in Lua represents an independent thread of execution. +Unlike threads in multithread systems, however, +a coroutine only suspends its execution by explicitly calling +a yield function. + + +

+You create a coroutine with a call to coroutine.create. +Its sole argument is a function +that is the main function of the coroutine. +The create function only creates a new coroutine and +returns a handle to it (an object of type thread); +it does not start the coroutine execution. + + +

+When you first call coroutine.resume, +passing as its first argument +a thread returned by coroutine.create, +the coroutine starts its execution, +at the first line of its main function. +Extra arguments passed to coroutine.resume are passed on +to the coroutine main function. +After the coroutine starts running, +it runs until it terminates or yields. + + +

+A coroutine can terminate its execution in two ways: +normally, when its main function returns +(explicitly or implicitly, after the last instruction); +and abnormally, if there is an unprotected error. +In the first case, coroutine.resume returns true, +plus any values returned by the coroutine main function. +In case of errors, coroutine.resume returns false +plus an error message. + + +

+A coroutine yields by calling coroutine.yield. +When a coroutine yields, +the corresponding coroutine.resume returns immediately, +even if the yield happens inside nested function calls +(that is, not in the main function, +but in a function directly or indirectly called by the main function). +In the case of a yield, coroutine.resume also returns true, +plus any values passed to coroutine.yield. +The next time you resume the same coroutine, +it continues its execution from the point where it yielded, +with the call to coroutine.yield returning any extra +arguments passed to coroutine.resume. + + +

+Like coroutine.create, +the coroutine.wrap function also creates a coroutine, +but instead of returning the coroutine itself, +it returns a function that, when called, resumes the coroutine. +Any arguments passed to this function +go as extra arguments to coroutine.resume. +coroutine.wrap returns all the values returned by coroutine.resume, +except the first one (the boolean error code). +Unlike coroutine.resume, +coroutine.wrap does not catch errors; +any error is propagated to the caller. + + +

+As an example, +consider the following code: + +

+     function foo (a)
+       print("foo", a)
+       return coroutine.yield(2*a)
+     end
+     
+     co = coroutine.create(function (a,b)
+           print("co-body", a, b)
+           local r = foo(a+1)
+           print("co-body", r)
+           local r, s = coroutine.yield(a+b, a-b)
+           print("co-body", r, s)
+           return b, "end"
+     end)
+            
+     print("main", coroutine.resume(co, 1, 10))
+     print("main", coroutine.resume(co, "r"))
+     print("main", coroutine.resume(co, "x", "y"))
+     print("main", coroutine.resume(co, "x", "y"))
+

+When you run it, it produces the following output: + +

+     co-body 1       10
+     foo     2
+     
+     main    true    4
+     co-body r
+     main    true    11      -9
+     co-body x       y
+     main    true    10      end
+     main    false   cannot resume dead coroutine
+
+ + + + +

3 - The Application Program Interface

+ +

+ +This section describes the C API for Lua, that is, +the set of C functions available to the host program to communicate +with Lua. +All API functions and related types and constants +are declared in the header file lua.h. + + +

+Even when we use the term "function", +any facility in the API may be provided as a macro instead. +All such macros use each of their arguments exactly once +(except for the first argument, which is always a Lua state), +and so do not generate any hidden side-effects. + + +

+As in most C libraries, +the Lua API functions do not check their arguments for validity or consistency. +However, you can change this behavior by compiling Lua +with a proper definition for the macro luai_apicheck, +in file luaconf.h. + + + +

3.1 - The Stack

+ +

+Lua uses a virtual stack to pass values to and from C. +Each element in this stack represents a Lua value +(nil, number, string, etc.). + + +

+Whenever Lua calls C, the called function gets a new stack, +which is independent of previous stacks and of stacks of +C functions that are still active. +This stack initially contains any arguments to the C function +and it is where the C function pushes its results +to be returned to the caller (see lua_CFunction). + + +

+For convenience, +most query operations in the API do not follow a strict stack discipline. +Instead, they can refer to any element in the stack +by using an index: +A positive index represents an absolute stack position +(starting at 1); +a negative index represents an offset relative to the top of the stack. +More specifically, if the stack has n elements, +then index 1 represents the first element +(that is, the element that was pushed onto the stack first) +and +index n represents the last element; +index -1 also represents the last element +(that is, the element at the top) +and index -n represents the first element. +We say that an index is valid +if it lies between 1 and the stack top +(that is, if 1 ≤ abs(index) ≤ top). + + + + + + +

3.2 - Stack Size

+ +

+When you interact with Lua API, +you are responsible for ensuring consistency. +In particular, +you are responsible for controlling stack overflow. +You can use the function lua_checkstack +to grow the stack size. + + +

+Whenever Lua calls C, +it ensures that at least LUA_MINSTACK stack positions are available. +LUA_MINSTACK is defined as 20, +so that usually you do not have to worry about stack space +unless your code has loops pushing elements onto the stack. + + +

+Most query functions accept as indices any value inside the +available stack space, that is, indices up to the maximum stack size +you have set through lua_checkstack. +Such indices are called acceptable indices. +More formally, we define an acceptable index +as follows: + +

+     (index < 0 && abs(index) <= top) ||
+     (index > 0 && index <= stackspace)
+

+Note that 0 is never an acceptable index. + + + + + +

3.3 - Pseudo-Indices

+ +

+Unless otherwise noted, +any function that accepts valid indices can also be called with +pseudo-indices, +which represent some Lua values that are accessible to C code +but which are not in the stack. +Pseudo-indices are used to access the thread environment, +the function environment, +the registry, +and the upvalues of a C function (see §3.4). + + +

+The thread environment (where global variables live) is +always at pseudo-index LUA_GLOBALSINDEX. +The environment of the running C function is always +at pseudo-index LUA_ENVIRONINDEX. + + +

+To access and change the value of global variables, +you can use regular table operations over an environment table. +For instance, to access the value of a global variable, do + +

+     lua_getfield(L, LUA_GLOBALSINDEX, varname);
+
+ + + + +

3.4 - C Closures

+ +

+When a C function is created, +it is possible to associate some values with it, +thus creating a C closure; +these values are called upvalues and are +accessible to the function whenever it is called +(see lua_pushcclosure). + + +

+Whenever a C function is called, +its upvalues are located at specific pseudo-indices. +These pseudo-indices are produced by the macro +lua_upvalueindex. +The first value associated with a function is at position +lua_upvalueindex(1), and so on. +Any access to lua_upvalueindex(n), +where n is greater than the number of upvalues of the +current function (but not greater than 256), +produces an acceptable (but invalid) index. + + + + + +

3.5 - Registry

+ +

+Lua provides a registry, +a pre-defined table that can be used by any C code to +store whatever Lua value it needs to store. +This table is always located at pseudo-index +LUA_REGISTRYINDEX. +Any C library can store data into this table, +but it should take care to choose keys different from those used +by other libraries, to avoid collisions. +Typically, you should use as key a string containing your library name +or a light userdata with the address of a C object in your code. + + +

+The integer keys in the registry are used by the reference mechanism, +implemented by the auxiliary library, +and therefore should not be used for other purposes. + + + + + +

3.6 - Error Handling in C

+ +

+Internally, Lua uses the C longjmp facility to handle errors. +(You can also choose to use exceptions if you use C++; +see file luaconf.h.) +When Lua faces any error +(such as memory allocation errors, type errors, syntax errors, +and runtime errors) +it raises an error; +that is, it does a long jump. +A protected environment uses setjmp +to set a recover point; +any error jumps to the most recent active recover point. + + +

+Most functions in the API can throw an error, +for instance due to a memory allocation error. +The documentation for each function indicates whether +it can throw errors. + + +

+Inside a C function you can throw an error by calling lua_error. + + + + + +

3.7 - Functions and Types

+ +

+Here we list all functions and types from the C API in +alphabetical order. +Each function has an indicator like this: +[-o, +p, x] + + +

+The first field, o, +is how many elements the function pops from the stack. +The second field, p, +is how many elements the function pushes onto the stack. +(Any function always pushes its results after popping its arguments.) +A field in the form x|y means the function can push (or pop) +x or y elements, +depending on the situation; +an interrogation mark '?' means that +we cannot know how many elements the function pops/pushes +by looking only at its arguments +(e.g., they may depend on what is on the stack). +The third field, x, +tells whether the function may throw errors: +'-' means the function never throws any error; +'m' means the function may throw an error +only due to not enough memory; +'e' means the function may throw other kinds of errors; +'v' means the function may throw an error on purpose. + + + +

lua_Alloc

+
typedef void * (*lua_Alloc) (void *ud,
+                             void *ptr,
+                             size_t osize,
+                             size_t nsize);
+ +

+The type of the memory-allocation function used by Lua states. +The allocator function must provide a +functionality similar to realloc, +but not exactly the same. +Its arguments are +ud, an opaque pointer passed to lua_newstate; +ptr, a pointer to the block being allocated/reallocated/freed; +osize, the original size of the block; +nsize, the new size of the block. +ptr is NULL if and only if osize is zero. +When nsize is zero, the allocator must return NULL; +if osize is not zero, +it should free the block pointed to by ptr. +When nsize is not zero, the allocator returns NULL +if and only if it cannot fill the request. +When nsize is not zero and osize is zero, +the allocator should behave like malloc. +When nsize and osize are not zero, +the allocator behaves like realloc. +Lua assumes that the allocator never fails when +osize >= nsize. + + +

+Here is a simple implementation for the allocator function. +It is used in the auxiliary library by luaL_newstate. + +

+     static void *l_alloc (void *ud, void *ptr, size_t osize,
+                                                size_t nsize) {
+       (void)ud;  (void)osize;  /* not used */
+       if (nsize == 0) {
+         free(ptr);
+         return NULL;
+       }
+       else
+         return realloc(ptr, nsize);
+     }
+

+This code assumes +that free(NULL) has no effect and that +realloc(NULL, size) is equivalent to malloc(size). +ANSI C ensures both behaviors. + + + + + +

lua_atpanic

+[-0, +0, -] +

lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf);
+ +

+Sets a new panic function and returns the old one. + + +

+If an error happens outside any protected environment, +Lua calls a panic function +and then calls exit(EXIT_FAILURE), +thus exiting the host application. +Your panic function can avoid this exit by +never returning (e.g., doing a long jump). + + +

+The panic function can access the error message at the top of the stack. + + + + + +

lua_call

+[-(nargs + 1), +nresults, e] +

void lua_call (lua_State *L, int nargs, int nresults);
+ +

+Calls a function. + + +

+To call a function you must use the following protocol: +first, the function to be called is pushed onto the stack; +then, the arguments to the function are pushed +in direct order; +that is, the first argument is pushed first. +Finally you call lua_call; +nargs is the number of arguments that you pushed onto the stack. +All arguments and the function value are popped from the stack +when the function is called. +The function results are pushed onto the stack when the function returns. +The number of results is adjusted to nresults, +unless nresults is LUA_MULTRET. +In this case, all results from the function are pushed. +Lua takes care that the returned values fit into the stack space. +The function results are pushed onto the stack in direct order +(the first result is pushed first), +so that after the call the last result is on the top of the stack. + + +

+Any error inside the called function is propagated upwards +(with a longjmp). + + +

+The following example shows how the host program can do the +equivalent to this Lua code: + +

+     a = f("how", t.x, 14)
+

+Here it is in C: + +

+     lua_getfield(L, LUA_GLOBALSINDEX, "f"); /* function to be called */
+     lua_pushstring(L, "how");                        /* 1st argument */
+     lua_getfield(L, LUA_GLOBALSINDEX, "t");   /* table to be indexed */
+     lua_getfield(L, -1, "x");        /* push result of t.x (2nd arg) */
+     lua_remove(L, -2);                  /* remove 't' from the stack */
+     lua_pushinteger(L, 14);                          /* 3rd argument */
+     lua_call(L, 3, 1);     /* call 'f' with 3 arguments and 1 result */
+     lua_setfield(L, LUA_GLOBALSINDEX, "a");        /* set global 'a' */
+

+Note that the code above is "balanced": +at its end, the stack is back to its original configuration. +This is considered good programming practice. + + + + + +

lua_CFunction

+
typedef int (*lua_CFunction) (lua_State *L);
+ +

+Type for C functions. + + +

+In order to communicate properly with Lua, +a C function must use the following protocol, +which defines the way parameters and results are passed: +a C function receives its arguments from Lua in its stack +in direct order (the first argument is pushed first). +So, when the function starts, +lua_gettop(L) returns the number of arguments received by the function. +The first argument (if any) is at index 1 +and its last argument is at index lua_gettop(L). +To return values to Lua, a C function just pushes them onto the stack, +in direct order (the first result is pushed first), +and returns the number of results. +Any other value in the stack below the results will be properly +discarded by Lua. +Like a Lua function, a C function called by Lua can also return +many results. + + +

+As an example, the following function receives a variable number +of numerical arguments and returns their average and sum: + +

+     static int foo (lua_State *L) {
+       int n = lua_gettop(L);    /* number of arguments */
+       lua_Number sum = 0;
+       int i;
+       for (i = 1; i <= n; i++) {
+         if (!lua_isnumber(L, i)) {
+           lua_pushstring(L, "incorrect argument");
+           lua_error(L);
+         }
+         sum += lua_tonumber(L, i);
+       }
+       lua_pushnumber(L, sum/n);        /* first result */
+       lua_pushnumber(L, sum);         /* second result */
+       return 2;                   /* number of results */
+     }
+
+ + + + +

lua_checkstack

+[-0, +0, m] +

int lua_checkstack (lua_State *L, int extra);
+ +

+Ensures that there are at least extra free stack slots in the stack. +It returns false if it cannot grow the stack to that size. +This function never shrinks the stack; +if the stack is already larger than the new size, +it is left unchanged. + + + + + +

lua_close

+[-0, +0, -] +

void lua_close (lua_State *L);
+ +

+Destroys all objects in the given Lua state +(calling the corresponding garbage-collection metamethods, if any) +and frees all dynamic memory used by this state. +On several platforms, you may not need to call this function, +because all resources are naturally released when the host program ends. +On the other hand, long-running programs, +such as a daemon or a web server, +might need to release states as soon as they are not needed, +to avoid growing too large. + + + + + +

lua_concat

+[-n, +1, e] +

void lua_concat (lua_State *L, int n);
+ +

+Concatenates the n values at the top of the stack, +pops them, and leaves the result at the top. +If n is 1, the result is the single value on the stack +(that is, the function does nothing); +if n is 0, the result is the empty string. +Concatenation is performed following the usual semantics of Lua +(see §2.5.4). + + + + + +

lua_cpcall

+[-0, +(0|1), -] +

int lua_cpcall (lua_State *L, lua_CFunction func, void *ud);
+ +

+Calls the C function func in protected mode. +func starts with only one element in its stack, +a light userdata containing ud. +In case of errors, +lua_cpcall returns the same error codes as lua_pcall, +plus the error object on the top of the stack; +otherwise, it returns zero, and does not change the stack. +All values returned by func are discarded. + + + + + +

lua_createtable

+[-0, +1, m] +

void lua_createtable (lua_State *L, int narr, int nrec);
+ +

+Creates a new empty table and pushes it onto the stack. +The new table has space pre-allocated +for narr array elements and nrec non-array elements. +This pre-allocation is useful when you know exactly how many elements +the table will have. +Otherwise you can use the function lua_newtable. + + + + + +

lua_dump

+[-0, +0, m] +

int lua_dump (lua_State *L, lua_Writer writer, void *data);
+ +

+Dumps a function as a binary chunk. +Receives a Lua function on the top of the stack +and produces a binary chunk that, +if loaded again, +results in a function equivalent to the one dumped. +As it produces parts of the chunk, +lua_dump calls function writer (see lua_Writer) +with the given data +to write them. + + +

+The value returned is the error code returned by the last +call to the writer; +0 means no errors. + + +

+This function does not pop the Lua function from the stack. + + + + + +

lua_equal

+[-0, +0, e] +

int lua_equal (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the two values in acceptable indices index1 and +index2 are equal, +following the semantics of the Lua == operator +(that is, may call metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices is non valid. + + + + + +

lua_error

+[-1, +0, v] +

int lua_error (lua_State *L);
+ +

+Generates a Lua error. +The error message (which can actually be a Lua value of any type) +must be on the stack top. +This function does a long jump, +and therefore never returns. +(see luaL_error). + + + + + +

lua_gc

+[-0, +0, e] +

int lua_gc (lua_State *L, int what, int data);
+ +

+Controls the garbage collector. + + +

+This function performs several tasks, +according to the value of the parameter what: + +

    + +
  • LUA_GCSTOP: +stops the garbage collector. +
    • + +
  • LUA_GCRESTART: +restarts the garbage collector. +
    • + +
  • LUA_GCCOLLECT: +performs a full garbage-collection cycle. +
    • + +
  • LUA_GCCOUNT: +returns the current amount of memory (in Kbytes) in use by Lua. +
    • + +
  • LUA_GCCOUNTB: +returns the remainder of dividing the current amount of bytes of +memory in use by Lua by 1024. +
    • + +
  • LUA_GCSTEP: +performs an incremental step of garbage collection. +The step "size" is controlled by data +(larger values mean more steps) in a non-specified way. +If you want to control the step size +you must experimentally tune the value of data. +The function returns 1 if the step finished a +garbage-collection cycle. +
    • + +
  • LUA_GCSETPAUSE: +sets data as the new value +for the pause of the collector (see §2.10). +The function returns the previous value of the pause. +
    • + +
  • LUA_GCSETSTEPMUL: +sets data as the new value for the step multiplier of +the collector (see §2.10). +The function returns the previous value of the step multiplier. +
    • + +
+ + + + +

lua_getallocf

+[-0, +0, -] +

lua_Alloc lua_getallocf (lua_State *L, void **ud);
+ +

+Returns the memory-allocation function of a given state. +If ud is not NULL, Lua stores in *ud the +opaque pointer passed to lua_newstate. + + + + + +

lua_getfenv

+[-0, +1, -] +

void lua_getfenv (lua_State *L, int index);
+ +

+Pushes onto the stack the environment table of +the value at the given index. + + + + + +

lua_getfield

+[-0, +1, e] +

void lua_getfield (lua_State *L, int index, const char *k);
+ +

+Pushes onto the stack the value t[k], +where t is the value at the given valid index. +As in Lua, this function may trigger a metamethod +for the "index" event (see §2.8). + + + + + +

lua_getglobal

+[-0, +1, e] +

void lua_getglobal (lua_State *L, const char *name);
+ +

+Pushes onto the stack the value of the global name. +It is defined as a macro: + +

+     #define lua_getglobal(L,s)  lua_getfield(L, LUA_GLOBALSINDEX, s)
+
+ + + + +

lua_getmetatable

+[-0, +(0|1), -] +

int lua_getmetatable (lua_State *L, int index);
+ +

+Pushes onto the stack the metatable of the value at the given +acceptable index. +If the index is not valid, +or if the value does not have a metatable, +the function returns 0 and pushes nothing on the stack. + + + + + +

lua_gettable

+[-1, +1, e] +

void lua_gettable (lua_State *L, int index);
+ +

+Pushes onto the stack the value t[k], +where t is the value at the given valid index +and k is the value at the top of the stack. + + +

+This function pops the key from the stack +(putting the resulting value in its place). +As in Lua, this function may trigger a metamethod +for the "index" event (see §2.8). + + + + + +

lua_gettop

+[-0, +0, -] +

int lua_gettop (lua_State *L);
+ +

+Returns the index of the top element in the stack. +Because indices start at 1, +this result is equal to the number of elements in the stack +(and so 0 means an empty stack). + + + + + +

lua_insert

+[-1, +1, -] +

void lua_insert (lua_State *L, int index);
+ +

+Moves the top element into the given valid index, +shifting up the elements above this index to open space. +Cannot be called with a pseudo-index, +because a pseudo-index is not an actual stack position. + + + + + +

lua_Integer

+
typedef ptrdiff_t lua_Integer;
+ +

+The type used by the Lua API to represent integral values. + + +

+By default it is a ptrdiff_t, +which is usually the largest signed integral type the machine handles +"comfortably". + + + + + +

lua_isboolean

+[-0, +0, -] +

int lua_isboolean (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index has type boolean, +and 0 otherwise. + + + + + +

lua_iscfunction

+[-0, +0, -] +

int lua_iscfunction (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a C function, +and 0 otherwise. + + + + + +

lua_isfunction

+[-0, +0, -] +

int lua_isfunction (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a function +(either C or Lua), and 0 otherwise. + + + + + +

lua_islightuserdata

+[-0, +0, -] +

int lua_islightuserdata (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a light userdata, +and 0 otherwise. + + + + + +

lua_isnil

+[-0, +0, -] +

int lua_isnil (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is nil, +and 0 otherwise. + + + + + +

lua_isnone

+[-0, +0, -] +

int lua_isnone (lua_State *L, int index);
+ +

+Returns 1 if the given acceptable index is not valid +(that is, it refers to an element outside the current stack), +and 0 otherwise. + + + + + +

lua_isnoneornil

+[-0, +0, -] +

int lua_isnoneornil (lua_State *L, int index);
+ +

+Returns 1 if the given acceptable index is not valid +(that is, it refers to an element outside the current stack) +or if the value at this index is nil, +and 0 otherwise. + + + + + +

lua_isnumber

+[-0, +0, -] +

int lua_isnumber (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a number +or a string convertible to a number, +and 0 otherwise. + + + + + +

lua_isstring

+[-0, +0, -] +

int lua_isstring (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a string +or a number (which is always convertible to a string), +and 0 otherwise. + + + + + +

lua_istable

+[-0, +0, -] +

int lua_istable (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a table, +and 0 otherwise. + + + + + +

lua_isthread

+[-0, +0, -] +

int lua_isthread (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a thread, +and 0 otherwise. + + + + + +

lua_isuserdata

+[-0, +0, -] +

int lua_isuserdata (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a userdata +(either full or light), and 0 otherwise. + + + + + +

lua_lessthan

+[-0, +0, e] +

int lua_lessthan (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the value at acceptable index index1 is smaller +than the value at acceptable index index2, +following the semantics of the Lua < operator +(that is, may call metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices is non valid. + + + + + +

lua_load

+[-0, +1, -] +

int lua_load (lua_State *L,
+              lua_Reader reader,
+              void *data,
+              const char *chunkname);
+ +

+Loads a Lua chunk. +If there are no errors, +lua_load pushes the compiled chunk as a Lua +function on top of the stack. +Otherwise, it pushes an error message. +The return values of lua_load are: + +

    + +
  • 0: no errors;
    • + +
  • LUA_ERRSYNTAX: +syntax error during pre-compilation;
    • + +
  • LUA_ERRMEM: +memory allocation error.
    • + +
+ +

+This function only loads a chunk; +it does not run it. + + +

+lua_load automatically detects whether the chunk is text or binary, +and loads it accordingly (see program luac). + + +

+The lua_load function uses a user-supplied reader function +to read the chunk (see lua_Reader). +The data argument is an opaque value passed to the reader function. + + +

+The chunkname argument gives a name to the chunk, +which is used for error messages and in debug information (see §3.8). + + + + + +

lua_newstate

+[-0, +0, -] +

lua_State *lua_newstate (lua_Alloc f, void *ud);
+ +

+Creates a new, independent state. +Returns NULL if cannot create the state +(due to lack of memory). +The argument f is the allocator function; +Lua does all memory allocation for this state through this function. +The second argument, ud, is an opaque pointer that Lua +simply passes to the allocator in every call. + + + + + +

lua_newtable

+[-0, +1, m] +

void lua_newtable (lua_State *L);
+ +

+Creates a new empty table and pushes it onto the stack. +It is equivalent to lua_createtable(L, 0, 0). + + + + + +

lua_newthread

+[-0, +1, m] +

lua_State *lua_newthread (lua_State *L);
+ +

+Creates a new thread, pushes it on the stack, +and returns a pointer to a lua_State that represents this new thread. +The new state returned by this function shares with the original state +all global objects (such as tables), +but has an independent execution stack. + + +

+There is no explicit function to close or to destroy a thread. +Threads are subject to garbage collection, +like any Lua object. + + + + + +

lua_newuserdata

+[-0, +1, m] +

void *lua_newuserdata (lua_State *L, size_t size);
+ +

+This function allocates a new block of memory with the given size, +pushes onto the stack a new full userdata with the block address, +and returns this address. + + +

+Userdata represent C values in Lua. +A full userdata represents a block of memory. +It is an object (like a table): +you must create it, it can have its own metatable, +and you can detect when it is being collected. +A full userdata is only equal to itself (under raw equality). + + +

+When Lua collects a full userdata with a gc metamethod, +Lua calls the metamethod and marks the userdata as finalized. +When this userdata is collected again then +Lua frees its corresponding memory. + + + + + +

lua_next

+[-1, +(2|0), e] +

int lua_next (lua_State *L, int index);
+ +

+Pops a key from the stack, +and pushes a key-value pair from the table at the given index +(the "next" pair after the given key). +If there are no more elements in the table, +then lua_next returns 0 (and pushes nothing). + + +

+A typical traversal looks like this: + +

+     /* table is in the stack at index 't' */
+     lua_pushnil(L);  /* first key */
+     while (lua_next(L, t) != 0) {
+       /* uses 'key' (at index -2) and 'value' (at index -1) */
+       printf("%s - %s\n",
+              lua_typename(L, lua_type(L, -2)),
+              lua_typename(L, lua_type(L, -1)));
+       /* removes 'value'; keeps 'key' for next iteration */
+       lua_pop(L, 1);
+     }
+
+ +

+While traversing a table, +do not call lua_tolstring directly on a key, +unless you know that the key is actually a string. +Recall that lua_tolstring changes +the value at the given index; +this confuses the next call to lua_next. + + + + + +

lua_Number

+
typedef double lua_Number;
+ +

+The type of numbers in Lua. +By default, it is double, but that can be changed in luaconf.h. + + +

+Through the configuration file you can change +Lua to operate with another type for numbers (e.g., float or long). + + + + + +

lua_objlen

+[-0, +0, -] +

size_t lua_objlen (lua_State *L, int index);
+ +

+Returns the "length" of the value at the given acceptable index: +for strings, this is the string length; +for tables, this is the result of the length operator ('#'); +for userdata, this is the size of the block of memory allocated +for the userdata; +for other values, it is 0. + + + + + +

lua_pcall

+[-(nargs + 1), +(nresults|1), -] +

int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc);
+ +

+Calls a function in protected mode. + + +

+Both nargs and nresults have the same meaning as +in lua_call. +If there are no errors during the call, +lua_pcall behaves exactly like lua_call. +However, if there is any error, +lua_pcall catches it, +pushes a single value on the stack (the error message), +and returns an error code. +Like lua_call, +lua_pcall always removes the function +and its arguments from the stack. + + +

+If errfunc is 0, +then the error message returned on the stack +is exactly the original error message. +Otherwise, errfunc is the stack index of an +error handler function. +(In the current implementation, this index cannot be a pseudo-index.) +In case of runtime errors, +this function will be called with the error message +and its return value will be the message returned on the stack by lua_pcall. + + +

+Typically, the error handler function is used to add more debug +information to the error message, such as a stack traceback. +Such information cannot be gathered after the return of lua_pcall, +since by then the stack has unwound. + + +

+The lua_pcall function returns 0 in case of success +or one of the following error codes +(defined in lua.h): + +

    + +
  • LUA_ERRRUN: +a runtime error. +
    • + +
  • LUA_ERRMEM: +memory allocation error. +For such errors, Lua does not call the error handler function. +
    • + +
  • LUA_ERRERR: +error while running the error handler function. +
    • + +
+ + + + +

lua_pop

+[-n, +0, -] +

void lua_pop (lua_State *L, int n);
+ +

+Pops n elements from the stack. + + + + + +

lua_pushboolean

+[-0, +1, -] +

void lua_pushboolean (lua_State *L, int b);
+ +

+Pushes a boolean value with value b onto the stack. + + + + + +

lua_pushcclosure

+[-n, +1, m] +

void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);
+ +

+Pushes a new C closure onto the stack. + + +

+When a C function is created, +it is possible to associate some values with it, +thus creating a C closure (see §3.4); +these values are then accessible to the function whenever it is called. +To associate values with a C function, +first these values should be pushed onto the stack +(when there are multiple values, the first value is pushed first). +Then lua_pushcclosure +is called to create and push the C function onto the stack, +with the argument n telling how many values should be +associated with the function. +lua_pushcclosure also pops these values from the stack. + + +

+The maximum value for n is 255. + + + + + +

lua_pushcfunction

+[-0, +1, m] +

void lua_pushcfunction (lua_State *L, lua_CFunction f);
+ +

+Pushes a C function onto the stack. +This function receives a pointer to a C function +and pushes onto the stack a Lua value of type function that, +when called, invokes the corresponding C function. + + +

+Any function to be registered in Lua must +follow the correct protocol to receive its parameters +and return its results (see lua_CFunction). + + +

+lua_pushcfunction is defined as a macro: + +

+     #define lua_pushcfunction(L,f)  lua_pushcclosure(L,f,0)
+
+ + + + +

lua_pushfstring

+[-0, +1, m] +

const char *lua_pushfstring (lua_State *L, const char *fmt, ...);
+ +

+Pushes onto the stack a formatted string +and returns a pointer to this string. +It is similar to the C function sprintf, +but has some important differences: + +

    + +
  • +You do not have to allocate space for the result: +the result is a Lua string and Lua takes care of memory allocation +(and deallocation, through garbage collection). +
    • + +
  • +The conversion specifiers are quite restricted. +There are no flags, widths, or precisions. +The conversion specifiers can only be +'%%' (inserts a '%' in the string), +'%s' (inserts a zero-terminated string, with no size restrictions), +'%f' (inserts a lua_Number), +'%p' (inserts a pointer as a hexadecimal numeral), +'%d' (inserts an int), and +'%c' (inserts an int as a character). +
    • + +
+ + + + +

lua_pushinteger

+[-0, +1, -] +

void lua_pushinteger (lua_State *L, lua_Integer n);
+ +

+Pushes a number with value n onto the stack. + + + + + +

lua_pushlightuserdata

+[-0, +1, -] +

void lua_pushlightuserdata (lua_State *L, void *p);
+ +

+Pushes a light userdata onto the stack. + + +

+Userdata represent C values in Lua. +A light userdata represents a pointer. +It is a value (like a number): +you do not create it, it has no individual metatable, +and it is not collected (as it was never created). +A light userdata is equal to "any" +light userdata with the same C address. + + + + + +

lua_pushliteral

+[-0, +1, m] +

void lua_pushliteral (lua_State *L, const char *s);
+ +

+This macro is equivalent to lua_pushlstring, +but can be used only when s is a literal string. +In these cases, it automatically provides the string length. + + + + + +

lua_pushlstring

+[-0, +1, m] +

void lua_pushlstring (lua_State *L, const char *s, size_t len);
+ +

+Pushes the string pointed to by s with size len +onto the stack. +Lua makes (or reuses) an internal copy of the given string, +so the memory at s can be freed or reused immediately after +the function returns. +The string can contain embedded zeros. + + + + + +

lua_pushnil

+[-0, +1, -] +

void lua_pushnil (lua_State *L);
+ +

+Pushes a nil value onto the stack. + + + + + +

lua_pushnumber

+[-0, +1, -] +

void lua_pushnumber (lua_State *L, lua_Number n);
+ +

+Pushes a number with value n onto the stack. + + + + + +

lua_pushstring

+[-0, +1, m] +

void lua_pushstring (lua_State *L, const char *s);
+ +

+Pushes the zero-terminated string pointed to by s +onto the stack. +Lua makes (or reuses) an internal copy of the given string, +so the memory at s can be freed or reused immediately after +the function returns. +The string cannot contain embedded zeros; +it is assumed to end at the first zero. + + + + + +

lua_pushthread

+[-0, +1, -] +

int lua_pushthread (lua_State *L);
+ +

+Pushes the thread represented by L onto the stack. +Returns 1 if this thread is the main thread of its state. + + + + + +

lua_pushvalue

+[-0, +1, -] +

void lua_pushvalue (lua_State *L, int index);
+ +

+Pushes a copy of the element at the given valid index +onto the stack. + + + + + +

lua_pushvfstring

+[-0, +1, m] +

const char *lua_pushvfstring (lua_State *L,
+                              const char *fmt,
+                              va_list argp);
+ +

+Equivalent to lua_pushfstring, except that it receives a va_list +instead of a variable number of arguments. + + + + + +

lua_rawequal

+[-0, +0, -] +

int lua_rawequal (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the two values in acceptable indices index1 and +index2 are primitively equal +(that is, without calling metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices are non valid. + + + + + +

lua_rawget

+[-1, +1, -] +

void lua_rawget (lua_State *L, int index);
+ +

+Similar to lua_gettable, but does a raw access +(i.e., without metamethods). + + + + + +

lua_rawgeti

+[-0, +1, -] +

void lua_rawgeti (lua_State *L, int index, int n);
+ +

+Pushes onto the stack the value t[n], +where t is the value at the given valid index. +The access is raw; +that is, it does not invoke metamethods. + + + + + +

lua_rawset

+[-2, +0, m] +

void lua_rawset (lua_State *L, int index);
+ +

+Similar to lua_settable, but does a raw assignment +(i.e., without metamethods). + + + + + +

lua_rawseti

+[-1, +0, m] +

void lua_rawseti (lua_State *L, int index, int n);
+ +

+Does the equivalent of t[n] = v, +where t is the value at the given valid index +and v is the value at the top of the stack. + + +

+This function pops the value from the stack. +The assignment is raw; +that is, it does not invoke metamethods. + + + + + +

lua_Reader

+
typedef const char * (*lua_Reader) (lua_State *L,
+                                    void *data,
+                                    size_t *size);
+ +

+The reader function used by lua_load. +Every time it needs another piece of the chunk, +lua_load calls the reader, +passing along its data parameter. +The reader must return a pointer to a block of memory +with a new piece of the chunk +and set size to the block size. +The block must exist until the reader function is called again. +To signal the end of the chunk, +the reader must return NULL or set size to zero. +The reader function may return pieces of any size greater than zero. + + + + + +

lua_register

+[-0, +0, e] +

void lua_register (lua_State *L,
+                   const char *name,
+                   lua_CFunction f);
+ +

+Sets the C function f as the new value of global name. +It is defined as a macro: + +

+     #define lua_register(L,n,f) \
+            (lua_pushcfunction(L, f), lua_setglobal(L, n))
+
+ + + + +

lua_remove

+[-1, +0, -] +

void lua_remove (lua_State *L, int index);
+ +

+Removes the element at the given valid index, +shifting down the elements above this index to fill the gap. +Cannot be called with a pseudo-index, +because a pseudo-index is not an actual stack position. + + + + + +

lua_replace

+[-1, +0, -] +

void lua_replace (lua_State *L, int index);
+ +

+Moves the top element into the given position (and pops it), +without shifting any element +(therefore replacing the value at the given position). + + + + + +

lua_resume

+[-?, +?, -] +

int lua_resume (lua_State *L, int narg);
+ +

+Starts and resumes a coroutine in a given thread. + + +

+To start a coroutine, you first create a new thread +(see lua_newthread); +then you push onto its stack the main function plus any arguments; +then you call lua_resume, +with narg being the number of arguments. +This call returns when the coroutine suspends or finishes its execution. +When it returns, the stack contains all values passed to lua_yield, +or all values returned by the body function. +lua_resume returns +LUA_YIELD if the coroutine yields, +0 if the coroutine finishes its execution +without errors, +or an error code in case of errors (see lua_pcall). +In case of errors, +the stack is not unwound, +so you can use the debug API over it. +The error message is on the top of the stack. +To restart a coroutine, you put on its stack only the values to +be passed as results from yield, +and then call lua_resume. + + + + + +

lua_setallocf

+[-0, +0, -] +

void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
+ +

+Changes the allocator function of a given state to f +with user data ud. + + + + + +

lua_setfenv

+[-1, +0, -] +

int lua_setfenv (lua_State *L, int index);
+ +

+Pops a table from the stack and sets it as +the new environment for the value at the given index. +If the value at the given index is +neither a function nor a thread nor a userdata, +lua_setfenv returns 0. +Otherwise it returns 1. + + + + + +

lua_setfield

+[-1, +0, e] +

void lua_setfield (lua_State *L, int index, const char *k);
+ +

+Does the equivalent to t[k] = v, +where t is the value at the given valid index +and v is the value at the top of the stack. + + +

+This function pops the value from the stack. +As in Lua, this function may trigger a metamethod +for the "newindex" event (see §2.8). + + + + + +

lua_setglobal

+[-1, +0, e] +

void lua_setglobal (lua_State *L, const char *name);
+ +

+Pops a value from the stack and +sets it as the new value of global name. +It is defined as a macro: + +

+     #define lua_setglobal(L,s)   lua_setfield(L, LUA_GLOBALSINDEX, s)
+
+ + + + +

lua_setmetatable

+[-1, +0, -] +

int lua_setmetatable (lua_State *L, int index);
+ +

+Pops a table from the stack and +sets it as the new metatable for the value at the given +acceptable index. + + + + + +

lua_settable

+[-2, +0, e] +

void lua_settable (lua_State *L, int index);
+ +

+Does the equivalent to t[k] = v, +where t is the value at the given valid index, +v is the value at the top of the stack, +and k is the value just below the top. + + +

+This function pops both the key and the value from the stack. +As in Lua, this function may trigger a metamethod +for the "newindex" event (see §2.8). + + + + + +

lua_settop

+[-?, +?, -] +

void lua_settop (lua_State *L, int index);
+ +

+Accepts any acceptable index, or 0, +and sets the stack top to this index. +If the new top is larger than the old one, +then the new elements are filled with nil. +If index is 0, then all stack elements are removed. + + + + + +

lua_State

+
typedef struct lua_State lua_State;
+ +

+Opaque structure that keeps the whole state of a Lua interpreter. +The Lua library is fully reentrant: +it has no global variables. +All information about a state is kept in this structure. + + +

+A pointer to this state must be passed as the first argument to +every function in the library, except to lua_newstate, +which creates a Lua state from scratch. + + + + + +

lua_status

+[-0, +0, -] +

int lua_status (lua_State *L);
+ +

+Returns the status of the thread L. + + +

+The status can be 0 for a normal thread, +an error code if the thread finished its execution with an error, +or LUA_YIELD if the thread is suspended. + + + + + +

lua_toboolean

+[-0, +0, -] +

int lua_toboolean (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index to a C boolean +value (0 or 1). +Like all tests in Lua, +lua_toboolean returns 1 for any Lua value +different from false and nil; +otherwise it returns 0. +It also returns 0 when called with a non-valid index. +(If you want to accept only actual boolean values, +use lua_isboolean to test the value's type.) + + + + + +

lua_tocfunction

+[-0, +0, -] +

lua_CFunction lua_tocfunction (lua_State *L, int index);
+ +

+Converts a value at the given acceptable index to a C function. +That value must be a C function; +otherwise, returns NULL. + + + + + +

lua_tointeger

+[-0, +0, -] +

lua_Integer lua_tointeger (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index +to the signed integral type lua_Integer. +The Lua value must be a number or a string convertible to a number +(see §2.2.1); +otherwise, lua_tointeger returns 0. + + +

+If the number is not an integer, +it is truncated in some non-specified way. + + + + + +

lua_tolstring

+[-0, +0, m] +

const char *lua_tolstring (lua_State *L, int index, size_t *len);
+ +

+Converts the Lua value at the given acceptable index to a C string. +If len is not NULL, +it also sets *len with the string length. +The Lua value must be a string or a number; +otherwise, the function returns NULL. +If the value is a number, +then lua_tolstring also +changes the actual value in the stack to a string. +(This change confuses lua_next +when lua_tolstring is applied to keys during a table traversal.) + + +

+lua_tolstring returns a fully aligned pointer +to a string inside the Lua state. +This string always has a zero ('\0') +after its last character (as in C), +but can contain other zeros in its body. +Because Lua has garbage collection, +there is no guarantee that the pointer returned by lua_tolstring +will be valid after the corresponding value is removed from the stack. + + + + + +

lua_tonumber

+[-0, +0, -] +

lua_Number lua_tonumber (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index +to the C type lua_Number (see lua_Number). +The Lua value must be a number or a string convertible to a number +(see §2.2.1); +otherwise, lua_tonumber returns 0. + + + + + +

lua_topointer

+[-0, +0, -] +

const void *lua_topointer (lua_State *L, int index);
+ +

+Converts the value at the given acceptable index to a generic +C pointer (void*). +The value can be a userdata, a table, a thread, or a function; +otherwise, lua_topointer returns NULL. +Different objects will give different pointers. +There is no way to convert the pointer back to its original value. + + +

+Typically this function is used only for debug information. + + + + + +

lua_tostring

+[-0, +0, m] +

const char *lua_tostring (lua_State *L, int index);
+ +

+Equivalent to lua_tolstring with len equal to NULL. + + + + + +

lua_tothread

+[-0, +0, -] +

lua_State *lua_tothread (lua_State *L, int index);
+ +

+Converts the value at the given acceptable index to a Lua thread +(represented as lua_State*). +This value must be a thread; +otherwise, the function returns NULL. + + + + + +

lua_touserdata

+[-0, +0, -] +

void *lua_touserdata (lua_State *L, int index);
+ +

+If the value at the given acceptable index is a full userdata, +returns its block address. +If the value is a light userdata, +returns its pointer. +Otherwise, returns NULL. + + + + + +

lua_type

+[-0, +0, -] +

int lua_type (lua_State *L, int index);
+ +

+Returns the type of the value in the given acceptable index, +or LUA_TNONE for a non-valid index +(that is, an index to an "empty" stack position). +The types returned by lua_type are coded by the following constants +defined in lua.h: +LUA_TNIL, +LUA_TNUMBER, +LUA_TBOOLEAN, +LUA_TSTRING, +LUA_TTABLE, +LUA_TFUNCTION, +LUA_TUSERDATA, +LUA_TTHREAD, +and +LUA_TLIGHTUSERDATA. + + + + + +

lua_typename

+[-0, +0, -] +

const char *lua_typename  (lua_State *L, int tp);
+ +

+Returns the name of the type encoded by the value tp, +which must be one the values returned by lua_type. + + + + + +

lua_Writer

+
typedef int (*lua_Writer) (lua_State *L,
+                           const void* p,
+                           size_t sz,
+                           void* ud);
+ +

+The type of the writer function used by lua_dump. +Every time it produces another piece of chunk, +lua_dump calls the writer, +passing along the buffer to be written (p), +its size (sz), +and the data parameter supplied to lua_dump. + + +

+The writer returns an error code: +0 means no errors; +any other value means an error and stops lua_dump from +calling the writer again. + + + + + +

lua_xmove

+[-?, +?, -] +

void lua_xmove (lua_State *from, lua_State *to, int n);
+ +

+Exchange values between different threads of the same global state. + + +

+This function pops n values from the stack from, +and pushes them onto the stack to. + + + + + +

lua_yield

+[-?, +?, -] +

int lua_yield  (lua_State *L, int nresults);
+ +

+Yields a coroutine. + + +

+This function should only be called as the +return expression of a C function, as follows: + +

+     return lua_yield (L, nresults);
+

+When a C function calls lua_yield in that way, +the running coroutine suspends its execution, +and the call to lua_resume that started this coroutine returns. +The parameter nresults is the number of values from the stack +that are passed as results to lua_resume. + + + + + + + +

3.8 - The Debug Interface

+ +

+Lua has no built-in debugging facilities. +Instead, it offers a special interface +by means of functions and hooks. +This interface allows the construction of different +kinds of debuggers, profilers, and other tools +that need "inside information" from the interpreter. + + + +

lua_Debug

+
typedef struct lua_Debug {
+  int event;
+  const char *name;           /* (n) */
+  const char *namewhat;       /* (n) */
+  const char *what;           /* (S) */
+  const char *source;         /* (S) */
+  int currentline;            /* (l) */
+  int nups;                   /* (u) number of upvalues */
+  int linedefined;            /* (S) */
+  int lastlinedefined;        /* (S) */
+  char short_src[LUA_IDSIZE]; /* (S) */
+  /* private part */
+  other fields
+} lua_Debug;
+ +

+A structure used to carry different pieces of +information about an active function. +lua_getstack fills only the private part +of this structure, for later use. +To fill the other fields of lua_Debug with useful information, +call lua_getinfo. + + +

+The fields of lua_Debug have the following meaning: + +

    + +
  • source: +If the function was defined in a string, +then source is that string. +If the function was defined in a file, +then source starts with a '@' followed by the file name. +
    • + +
  • short_src: +a "printable" version of source, to be used in error messages. +
    • + +
  • linedefined: +the line number where the definition of the function starts. +
    • + +
  • lastlinedefined: +the line number where the definition of the function ends. +
    • + +
  • what: +the string "Lua" if the function is a Lua function, +"C" if it is a C function, +"main" if it is the main part of a chunk, +and "tail" if it was a function that did a tail call. +In the latter case, +Lua has no other information about the function. +
    • + +
  • currentline: +the current line where the given function is executing. +When no line information is available, +currentline is set to -1. +
    • + +
  • name: +a reasonable name for the given function. +Because functions in Lua are first-class values, +they do not have a fixed name: +some functions can be the value of multiple global variables, +while others can be stored only in a table field. +The lua_getinfo function checks how the function was +called to find a suitable name. +If it cannot find a name, +then name is set to NULL. +
    • + +
  • namewhat: +explains the name field. +The value of namewhat can be +"global", "local", "method", +"field", "upvalue", or "" (the empty string), +according to how the function was called. +(Lua uses the empty string when no other option seems to apply.) +
    • + +
  • nups: +the number of upvalues of the function. +
    • + +
+ + + + +

lua_gethook

+[-0, +0, -] +

lua_Hook lua_gethook (lua_State *L);
+ +

+Returns the current hook function. + + + + + +

lua_gethookcount

+[-0, +0, -] +

int lua_gethookcount (lua_State *L);
+ +

+Returns the current hook count. + + + + + +

lua_gethookmask

+[-0, +0, -] +

int lua_gethookmask (lua_State *L);
+ +

+Returns the current hook mask. + + + + + +

lua_getinfo

+[-(0|1), +(0|1|2), m] +

int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);
+ +

+Returns information about a specific function or function invocation. + + +

+To get information about a function invocation, +the parameter ar must be a valid activation record that was +filled by a previous call to lua_getstack or +given as argument to a hook (see lua_Hook). + + +

+To get information about a function you push it onto the stack +and start the what string with the character '>'. +(In that case, +lua_getinfo pops the function in the top of the stack.) +For instance, to know in which line a function f was defined, +you can write the following code: + +

+     lua_Debug ar;
+     lua_getfield(L, LUA_GLOBALSINDEX, "f");  /* get global 'f' */
+     lua_getinfo(L, ">S", &ar);
+     printf("%d\n", ar.linedefined);
+
+ +

+Each character in the string what +selects some fields of the structure ar to be filled or +a value to be pushed on the stack: + +

    + +
  • 'n': fills in the field name and namewhat; +
    • + +
  • 'S': +fills in the fields source, short_src, +linedefined, lastlinedefined, and what; +
    • + +
  • 'l': fills in the field currentline; +
    • + +
  • 'u': fills in the field nups; +
    • + +
  • 'f': +pushes onto the stack the function that is +running at the given level; +
    • + +
  • 'L': +pushes onto the stack a table whose indices are the +numbers of the lines that are valid on the function. +(A valid line is a line with some associated code, +that is, a line where you can put a break point. +Non-valid lines include empty lines and comments.) +
    • + +
+ +

+This function returns 0 on error +(for instance, an invalid option in what). + + + + + +

lua_getlocal

+[-0, +(0|1), -] +

const char *lua_getlocal (lua_State *L, lua_Debug *ar, int n);
+ +

+Gets information about a local variable of a given activation record. +The parameter ar must be a valid activation record that was +filled by a previous call to lua_getstack or +given as argument to a hook (see lua_Hook). +The index n selects which local variable to inspect +(1 is the first parameter or active local variable, and so on, +until the last active local variable). +lua_getlocal pushes the variable's value onto the stack +and returns its name. + + +

+Variable names starting with '(' (open parentheses) +represent internal variables +(loop control variables, temporaries, and C function locals). + + +

+Returns NULL (and pushes nothing) +when the index is greater than +the number of active local variables. + + + + + +

lua_getstack

+[-0, +0, -] +

int lua_getstack (lua_State *L, int level, lua_Debug *ar);
+ +

+Get information about the interpreter runtime stack. + + +

+This function fills parts of a lua_Debug structure with +an identification of the activation record +of the function executing at a given level. +Level 0 is the current running function, +whereas level n+1 is the function that has called level n. +When there are no errors, lua_getstack returns 1; +when called with a level greater than the stack depth, +it returns 0. + + + + + +

lua_getupvalue

+[-0, +(0|1), -] +

const char *lua_getupvalue (lua_State *L, int funcindex, int n);
+ +

+Gets information about a closure's upvalue. +(For Lua functions, +upvalues are the external local variables that the function uses, +and that are consequently included in its closure.) +lua_getupvalue gets the index n of an upvalue, +pushes the upvalue's value onto the stack, +and returns its name. +funcindex points to the closure in the stack. +(Upvalues have no particular order, +as they are active through the whole function. +So, they are numbered in an arbitrary order.) + + +

+Returns NULL (and pushes nothing) +when the index is greater than the number of upvalues. +For C functions, this function uses the empty string "" +as a name for all upvalues. + + + + + +

lua_Hook

+
typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
+ +

+Type for debugging hook functions. + + +

+Whenever a hook is called, its ar argument has its field +event set to the specific event that triggered the hook. +Lua identifies these events with the following constants: +LUA_HOOKCALL, LUA_HOOKRET, +LUA_HOOKTAILRET, LUA_HOOKLINE, +and LUA_HOOKCOUNT. +Moreover, for line events, the field currentline is also set. +To get the value of any other field in ar, +the hook must call lua_getinfo. +For return events, event can be LUA_HOOKRET, +the normal value, or LUA_HOOKTAILRET. +In the latter case, Lua is simulating a return from +a function that did a tail call; +in this case, it is useless to call lua_getinfo. + + +

+While Lua is running a hook, it disables other calls to hooks. +Therefore, if a hook calls back Lua to execute a function or a chunk, +this execution occurs without any calls to hooks. + + + + + +

lua_sethook

+[-0, +0, -] +

int lua_sethook (lua_State *L, lua_Hook f, int mask, int count);
+ +

+Sets the debugging hook function. + + +

+Argument f is the hook function. +mask specifies on which events the hook will be called: +it is formed by a bitwise or of the constants +LUA_MASKCALL, +LUA_MASKRET, +LUA_MASKLINE, +and LUA_MASKCOUNT. +The count argument is only meaningful when the mask +includes LUA_MASKCOUNT. +For each event, the hook is called as explained below: + +

    + +
  • The call hook: is called when the interpreter calls a function. +The hook is called just after Lua enters the new function, +before the function gets its arguments. +
    • + +
  • The return hook: is called when the interpreter returns from a function. +The hook is called just before Lua leaves the function. +You have no access to the values to be returned by the function. +
    • + +
  • The line hook: is called when the interpreter is about to +start the execution of a new line of code, +or when it jumps back in the code (even to the same line). +(This event only happens while Lua is executing a Lua function.) +
    • + +
  • The count hook: is called after the interpreter executes every +count instructions. +(This event only happens while Lua is executing a Lua function.) +
    • + +
+ +

+A hook is disabled by setting mask to zero. + + + + + +

lua_setlocal

+[-(0|1), +0, -] +

const char *lua_setlocal (lua_State *L, lua_Debug *ar, int n);
+ +

+Sets the value of a local variable of a given activation record. +Parameters ar and n are as in lua_getlocal +(see lua_getlocal). +lua_setlocal assigns the value at the top of the stack +to the variable and returns its name. +It also pops the value from the stack. + + +

+Returns NULL (and pops nothing) +when the index is greater than +the number of active local variables. + + + + + +

lua_setupvalue

+[-(0|1), +0, -] +

const char *lua_setupvalue (lua_State *L, int funcindex, int n);
+ +

+Sets the value of a closure's upvalue. +It assigns the value at the top of the stack +to the upvalue and returns its name. +It also pops the value from the stack. +Parameters funcindex and n are as in the lua_getupvalue +(see lua_getupvalue). + + +

+Returns NULL (and pops nothing) +when the index is greater than the number of upvalues. + + + + + + + +

4 - The Auxiliary Library

+ +

+ +The auxiliary library provides several convenient functions +to interface C with Lua. +While the basic API provides the primitive functions for all +interactions between C and Lua, +the auxiliary library provides higher-level functions for some +common tasks. + + +

+All functions from the auxiliary library +are defined in header file lauxlib.h and +have a prefix luaL_. + + +

+All functions in the auxiliary library are built on +top of the basic API, +and so they provide nothing that cannot be done with this API. + + +

+Several functions in the auxiliary library are used to +check C function arguments. +Their names are always luaL_check* or luaL_opt*. +All of these functions throw an error if the check is not satisfied. +Because the error message is formatted for arguments +(e.g., "bad argument #1"), +you should not use these functions for other stack values. + + + +

4.1 - Functions and Types

+ +

+Here we list all functions and types from the auxiliary library +in alphabetical order. + + + +

luaL_addchar

+[-0, +0, m] +

void luaL_addchar (luaL_Buffer *B, char c);
+ +

+Adds the character c to the buffer B +(see luaL_Buffer). + + + + + +

luaL_addlstring

+[-0, +0, m] +

void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l);
+ +

+Adds the string pointed to by s with length l to +the buffer B +(see luaL_Buffer). +The string may contain embedded zeros. + + + + + +

luaL_addsize

+[-0, +0, m] +

void luaL_addsize (luaL_Buffer *B, size_t n);
+ +

+Adds to the buffer B (see luaL_Buffer) +a string of length n previously copied to the +buffer area (see luaL_prepbuffer). + + + + + +

luaL_addstring

+[-0, +0, m] +

void luaL_addstring (luaL_Buffer *B, const char *s);
+ +

+Adds the zero-terminated string pointed to by s +to the buffer B +(see luaL_Buffer). +The string may not contain embedded zeros. + + + + + +

luaL_addvalue

+[-1, +0, m] +

void luaL_addvalue (luaL_Buffer *B);
+ +

+Adds the value at the top of the stack +to the buffer B +(see luaL_Buffer). +Pops the value. + + +

+This is the only function on string buffers that can (and must) +be called with an extra element on the stack, +which is the value to be added to the buffer. + + + + + +

luaL_argcheck

+[-0, +0, v] +

void luaL_argcheck (lua_State *L,
+                    int cond,
+                    int narg,
+                    const char *extramsg);
+ +

+Checks whether cond is true. +If not, raises an error with the following message, +where func is retrieved from the call stack: + +

+     bad argument #<narg> to <func> (<extramsg>)
+
+ + + + +

luaL_argerror

+[-0, +0, v] +

int luaL_argerror (lua_State *L, int narg, const char *extramsg);
+ +

+Raises an error with the following message, +where func is retrieved from the call stack: + +

+     bad argument #<narg> to <func> (<extramsg>)
+
+ +

+This function never returns, +but it is an idiom to use it in C functions +as return luaL_argerror(args). + + + + + +

luaL_Buffer

+
typedef struct luaL_Buffer luaL_Buffer;
+ +

+Type for a string buffer. + + +

+A string buffer allows C code to build Lua strings piecemeal. +Its pattern of use is as follows: + +

    + +
  • First you declare a variable b of type luaL_Buffer.
    • + +
  • Then you initialize it with a call luaL_buffinit(L, &b).
    • + +
  • +Then you add string pieces to the buffer calling any of +the luaL_add* functions. +
    • + +
  • +You finish by calling luaL_pushresult(&b). +This call leaves the final string on the top of the stack. +
    • + +
+ +

+During its normal operation, +a string buffer uses a variable number of stack slots. +So, while using a buffer, you cannot assume that you know where +the top of the stack is. +You can use the stack between successive calls to buffer operations +as long as that use is balanced; +that is, +when you call a buffer operation, +the stack is at the same level +it was immediately after the previous buffer operation. +(The only exception to this rule is luaL_addvalue.) +After calling luaL_pushresult the stack is back to its +level when the buffer was initialized, +plus the final string on its top. + + + + + +

luaL_buffinit

+[-0, +0, -] +

void luaL_buffinit (lua_State *L, luaL_Buffer *B);
+ +

+Initializes a buffer B. +This function does not allocate any space; +the buffer must be declared as a variable +(see luaL_Buffer). + + + + + +

luaL_callmeta

+[-0, +(0|1), e] +

int luaL_callmeta (lua_State *L, int obj, const char *e);
+ +

+Calls a metamethod. + + +

+If the object at index obj has a metatable and this +metatable has a field e, +this function calls this field and passes the object as its only argument. +In this case this function returns 1 and pushes onto the +stack the value returned by the call. +If there is no metatable or no metamethod, +this function returns 0 (without pushing any value on the stack). + + + + + +

luaL_checkany

+[-0, +0, v] +

void luaL_checkany (lua_State *L, int narg);
+ +

+Checks whether the function has an argument +of any type (including nil) at position narg. + + + + + +

luaL_checkint

+[-0, +0, v] +

int luaL_checkint (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to an int. + + + + + +

luaL_checkinteger

+[-0, +0, v] +

lua_Integer luaL_checkinteger (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to a lua_Integer. + + + + + +

luaL_checklong

+[-0, +0, v] +

long luaL_checklong (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to a long. + + + + + +

luaL_checklstring

+[-0, +0, v] +

const char *luaL_checklstring (lua_State *L, int narg, size_t *l);
+ +

+Checks whether the function argument narg is a string +and returns this string; +if l is not NULL fills *l +with the string's length. + + +

+This function uses lua_tolstring to get its result, +so all conversions and caveats of that function apply here. + + + + + +

luaL_checknumber

+[-0, +0, v] +

lua_Number luaL_checknumber (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number. + + + + + +

luaL_checkoption

+[-0, +0, v] +

int luaL_checkoption (lua_State *L,
+                      int narg,
+                      const char *def,
+                      const char *const lst[]);
+ +

+Checks whether the function argument narg is a string and +searches for this string in the array lst +(which must be NULL-terminated). +Returns the index in the array where the string was found. +Raises an error if the argument is not a string or +if the string cannot be found. + + +

+If def is not NULL, +the function uses def as a default value when +there is no argument narg or if this argument is nil. + + +

+This is a useful function for mapping strings to C enums. +(The usual convention in Lua libraries is +to use strings instead of numbers to select options.) + + + + + +

luaL_checkstack

+[-0, +0, v] +

void luaL_checkstack (lua_State *L, int sz, const char *msg);
+ +

+Grows the stack size to top + sz elements, +raising an error if the stack cannot grow to that size. +msg is an additional text to go into the error message. + + + + + +

luaL_checkstring

+[-0, +0, v] +

const char *luaL_checkstring (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a string +and returns this string. + + +

+This function uses lua_tolstring to get its result, +so all conversions and caveats of that function apply here. + + + + + +

luaL_checktype

+[-0, +0, v] +

void luaL_checktype (lua_State *L, int narg, int t);
+ +

+Checks whether the function argument narg has type t. +See lua_type for the encoding of types for t. + + + + + +

luaL_checkudata

+[-0, +0, v] +

void *luaL_checkudata (lua_State *L, int narg, const char *tname);
+ +

+Checks whether the function argument narg is a userdata +of the type tname (see luaL_newmetatable). + + + + + +

luaL_dofile

+[-0, +?, m] +

int luaL_dofile (lua_State *L, const char *filename);
+ +

+Loads and runs the given file. +It is defined as the following macro: + +

+     (luaL_loadfile(L, filename) || lua_pcall(L, 0, LUA_MULTRET, 0))
+

+It returns 0 if there are no errors +or 1 in case of errors. + + + + + +

luaL_dostring

+[-0, +?, m] +

int luaL_dostring (lua_State *L, const char *str);
+ +

+Loads and runs the given string. +It is defined as the following macro: + +

+     (luaL_loadstring(L, str) || lua_pcall(L, 0, LUA_MULTRET, 0))
+

+It returns 0 if there are no errors +or 1 in case of errors. + + + + + +

luaL_error

+[-0, +0, v] +

int luaL_error (lua_State *L, const char *fmt, ...);
+ +

+Raises an error. +The error message format is given by fmt +plus any extra arguments, +following the same rules of lua_pushfstring. +It also adds at the beginning of the message the file name and +the line number where the error occurred, +if this information is available. + + +

+This function never returns, +but it is an idiom to use it in C functions +as return luaL_error(args). + + + + + +

luaL_getmetafield

+[-0, +(0|1), m] +

int luaL_getmetafield (lua_State *L, int obj, const char *e);
+ +

+Pushes onto the stack the field e from the metatable +of the object at index obj. +If the object does not have a metatable, +or if the metatable does not have this field, +returns 0 and pushes nothing. + + + + + +

luaL_getmetatable

+[-0, +1, -] +

void luaL_getmetatable (lua_State *L, const char *tname);
+ +

+Pushes onto the stack the metatable associated with name tname +in the registry (see luaL_newmetatable). + + + + + +

luaL_gsub

+[-0, +1, m] +

const char *luaL_gsub (lua_State *L,
+                       const char *s,
+                       const char *p,
+                       const char *r);
+ +

+Creates a copy of string s by replacing +any occurrence of the string p +with the string r. +Pushes the resulting string on the stack and returns it. + + + + + +

luaL_loadbuffer

+[-0, +1, m] +

int luaL_loadbuffer (lua_State *L,
+                     const char *buff,
+                     size_t sz,
+                     const char *name);
+ +

+Loads a buffer as a Lua chunk. +This function uses lua_load to load the chunk in the +buffer pointed to by buff with size sz. + + +

+This function returns the same results as lua_load. +name is the chunk name, +used for debug information and error messages. + + + + + +

luaL_loadfile

+[-0, +1, m] +

int luaL_loadfile (lua_State *L, const char *filename);
+ +

+Loads a file as a Lua chunk. +This function uses lua_load to load the chunk in the file +named filename. +If filename is NULL, +then it loads from the standard input. +The first line in the file is ignored if it starts with a #. + + +

+This function returns the same results as lua_load, +but it has an extra error code LUA_ERRFILE +if it cannot open/read the file. + + +

+As lua_load, this function only loads the chunk; +it does not run it. + + + + + +

luaL_loadstring

+[-0, +1, m] +

int luaL_loadstring (lua_State *L, const char *s);
+ +

+Loads a string as a Lua chunk. +This function uses lua_load to load the chunk in +the zero-terminated string s. + + +

+This function returns the same results as lua_load. + + +

+Also as lua_load, this function only loads the chunk; +it does not run it. + + + + + +

luaL_newmetatable

+[-0, +1, m] +

int luaL_newmetatable (lua_State *L, const char *tname);
+ +

+If the registry already has the key tname, +returns 0. +Otherwise, +creates a new table to be used as a metatable for userdata, +adds it to the registry with key tname, +and returns 1. + + +

+In both cases pushes onto the stack the final value associated +with tname in the registry. + + + + + +

luaL_newstate

+[-0, +0, -] +

lua_State *luaL_newstate (void);
+ +

+Creates a new Lua state. +It calls lua_newstate with an +allocator based on the standard C realloc function +and then sets a panic function (see lua_atpanic) that prints +an error message to the standard error output in case of fatal +errors. + + +

+Returns the new state, +or NULL if there is a memory allocation error. + + + + + +

luaL_openlibs

+[-0, +0, m] +

void luaL_openlibs (lua_State *L);
+ +

+Opens all standard Lua libraries into the given state. + + + + + +

luaL_optint

+[-0, +0, v] +

int luaL_optint (lua_State *L, int narg, int d);
+ +

+If the function argument narg is a number, +returns this number cast to an int. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optinteger

+[-0, +0, v] +

lua_Integer luaL_optinteger (lua_State *L,
+                             int narg,
+                             lua_Integer d);
+ +

+If the function argument narg is a number, +returns this number cast to a lua_Integer. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optlong

+[-0, +0, v] +

long luaL_optlong (lua_State *L, int narg, long d);
+ +

+If the function argument narg is a number, +returns this number cast to a long. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optlstring

+[-0, +0, v] +

const char *luaL_optlstring (lua_State *L,
+                             int narg,
+                             const char *d,
+                             size_t *l);
+ +

+If the function argument narg is a string, +returns this string. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + +

+If l is not NULL, +fills the position *l with the results's length. + + + + + +

luaL_optnumber

+[-0, +0, v] +

lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number d);
+ +

+If the function argument narg is a number, +returns this number. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optstring

+[-0, +0, v] +

const char *luaL_optstring (lua_State *L,
+                            int narg,
+                            const char *d);
+ +

+If the function argument narg is a string, +returns this string. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_prepbuffer

+[-0, +0, -] +

char *luaL_prepbuffer (luaL_Buffer *B);
+ +

+Returns an address to a space of size LUAL_BUFFERSIZE +where you can copy a string to be added to buffer B +(see luaL_Buffer). +After copying the string into this space you must call +luaL_addsize with the size of the string to actually add +it to the buffer. + + + + + +

luaL_pushresult

+[-?, +1, m] +

void luaL_pushresult (luaL_Buffer *B);
+ +

+Finishes the use of buffer B leaving the final string on +the top of the stack. + + + + + +

luaL_ref

+[-1, +0, m] +

int luaL_ref (lua_State *L, int t);
+ +

+Creates and returns a reference, +in the table at index t, +for the object at the top of the stack (and pops the object). + + +

+A reference is a unique integer key. +As long as you do not manually add integer keys into table t, +luaL_ref ensures the uniqueness of the key it returns. +You can retrieve an object referred by reference r +by calling lua_rawgeti(L, t, r). +Function luaL_unref frees a reference and its associated object. + + +

+If the object at the top of the stack is nil, +luaL_ref returns the constant LUA_REFNIL. +The constant LUA_NOREF is guaranteed to be different +from any reference returned by luaL_ref. + + + + + +

luaL_Reg

+
typedef struct luaL_Reg {
+  const char *name;
+  lua_CFunction func;
+} luaL_Reg;
+ +

+Type for arrays of functions to be registered by +luaL_register. +name is the function name and func is a pointer to +the function. +Any array of luaL_Reg must end with an sentinel entry +in which both name and func are NULL. + + + + + +

luaL_register

+[-(0|1), +1, m] +

void luaL_register (lua_State *L,
+                    const char *libname,
+                    const luaL_Reg *l);
+ +

+Opens a library. + + +

+When called with libname equal to NULL, +it simply registers all functions in the list l +(see luaL_Reg) into the table on the top of the stack. + + +

+When called with a non-null libname, +luaL_register creates a new table t, +sets it as the value of the global variable libname, +sets it as the value of package.loaded[libname], +and registers on it all functions in the list l. +If there is a table in package.loaded[libname] or in +variable libname, +reuses this table instead of creating a new one. + + +

+In any case the function leaves the table +on the top of the stack. + + + + + +

luaL_typename

+[-0, +0, -] +

const char *luaL_typename (lua_State *L, int index);
+ +

+Returns the name of the type of the value at the given index. + + + + + +

luaL_typerror

+[-0, +0, v] +

int luaL_typerror (lua_State *L, int narg, const char *tname);
+ +

+Generates an error with a message like the following: + +

+     location: bad argument narg to 'func' (tname expected, got rt)
+

+where location is produced by luaL_where, +func is the name of the current function, +and rt is the type name of the actual argument. + + + + + +

luaL_unref

+[-0, +0, -] +

void luaL_unref (lua_State *L, int t, int ref);
+ +

+Releases reference ref from the table at index t +(see luaL_ref). +The entry is removed from the table, +so that the referred object can be collected. +The reference ref is also freed to be used again. + + +

+If ref is LUA_NOREF or LUA_REFNIL, +luaL_unref does nothing. + + + + + +

luaL_where

+[-0, +1, m] +

void luaL_where (lua_State *L, int lvl);
+ +

+Pushes onto the stack a string identifying the current position +of the control at level lvl in the call stack. +Typically this string has the following format: + +

+     chunkname:currentline:
+

+Level 0 is the running function, +level 1 is the function that called the running function, +etc. + + +

+This function is used to build a prefix for error messages. + + + + + + + +

5 - Standard Libraries

+ +

+The standard Lua libraries provide useful functions +that are implemented directly through the C API. +Some of these functions provide essential services to the language +(e.g., type and getmetatable); +others provide access to "outside" services (e.g., I/O); +and others could be implemented in Lua itself, +but are quite useful or have critical performance requirements that +deserve an implementation in C (e.g., table.sort). + + +

+All libraries are implemented through the official C API +and are provided as separate C modules. +Currently, Lua has the following standard libraries: + +

    + +
  • basic library, which includes the coroutine sub-library;
    • + +
  • package library;
    • + +
  • string manipulation;
    • + +
  • table manipulation;
    • + +
  • mathematical functions (sin, log, etc.);
    • + +
  • input and output;
    • + +
  • operating system facilities;
    • + +
  • debug facilities.
    • + +

+Except for the basic and package libraries, +each library provides all its functions as fields of a global table +or as methods of its objects. + + +

+To have access to these libraries, +the C host program should call the luaL_openlibs function, +which opens all standard libraries. +Alternatively, +it can open them individually by calling +luaopen_base (for the basic library), +luaopen_package (for the package library), +luaopen_string (for the string library), +luaopen_table (for the table library), +luaopen_math (for the mathematical library), +luaopen_io (for the I/O library), +luaopen_os (for the Operating System library), +and luaopen_debug (for the debug library). +These functions are declared in lualib.h +and should not be called directly: +you must call them like any other Lua C function, +e.g., by using lua_call. + + + +

5.1 - Basic Functions

+ +

+The basic library provides some core functions to Lua. +If you do not include this library in your application, +you should check carefully whether you need to provide +implementations for some of its facilities. + + +

+

assert (v [, message])

+Issues an error when +the value of its argument v is false (i.e., nil or false); +otherwise, returns all its arguments. +message is an error message; +when absent, it defaults to "assertion failed!" + + + + +

+

collectgarbage ([opt [, arg]])

+ + +

+This function is a generic interface to the garbage collector. +It performs different functions according to its first argument, opt: + +

    + +
  • "collect": +performs a full garbage-collection cycle. +This is the default option. +
    • + +
  • "stop": +stops the garbage collector. +
    • + +
  • "restart": +restarts the garbage collector. +
    • + +
  • "count": +returns the total memory in use by Lua (in Kbytes). +
    • + +
  • "step": +performs a garbage-collection step. +The step "size" is controlled by arg +(larger values mean more steps) in a non-specified way. +If you want to control the step size +you must experimentally tune the value of arg. +Returns true if the step finished a collection cycle. +
    • + +
  • "setpause": +sets arg as the new value for the pause of +the collector (see §2.10). +Returns the previous value for pause. +
    • + +
  • "setstepmul": +sets arg as the new value for the step multiplier of +the collector (see §2.10). +Returns the previous value for step. +
    • + +
+ + + +

+

dofile ([filename])

+Opens the named file and executes its contents as a Lua chunk. +When called without arguments, +dofile executes the contents of the standard input (stdin). +Returns all values returned by the chunk. +In case of errors, dofile propagates the error +to its caller (that is, dofile does not run in protected mode). + + + + +

+

error (message [, level])

+Terminates the last protected function called +and returns message as the error message. +Function error never returns. + + +

+Usually, error adds some information about the error position +at the beginning of the message. +The level argument specifies how to get the error position. +With level 1 (the default), the error position is where the +error function was called. +Level 2 points the error to where the function +that called error was called; and so on. +Passing a level 0 avoids the addition of error position information +to the message. + + + + +

+

_G

+A global variable (not a function) that +holds the global environment (that is, _G._G = _G). +Lua itself does not use this variable; +changing its value does not affect any environment, +nor vice-versa. +(Use setfenv to change environments.) + + + + +

+

getfenv ([f])

+Returns the current environment in use by the function. +f can be a Lua function or a number +that specifies the function at that stack level: +Level 1 is the function calling getfenv. +If the given function is not a Lua function, +or if f is 0, +getfenv returns the global environment. +The default for f is 1. + + + + +

+

getmetatable (object)

+ + +

+If object does not have a metatable, returns nil. +Otherwise, +if the object's metatable has a "__metatable" field, +returns the associated value. +Otherwise, returns the metatable of the given object. + + + + +

+

ipairs (t)

+ + +

+Returns three values: an iterator function, the table t, and 0, +so that the construction + +

+     for i,v in ipairs(t) do body end
+

+will iterate over the pairs (1,t[1]), (2,t[2]), ···, +up to the first integer key absent from the table. + + + + +

+

load (func [, chunkname])

+ + +

+Loads a chunk using function func to get its pieces. +Each call to func must return a string that concatenates +with previous results. +A return of an empty string, nil, or no value signals the end of the chunk. + + +

+If there are no errors, +returns the compiled chunk as a function; +otherwise, returns nil plus the error message. +The environment of the returned function is the global environment. + + +

+chunkname is used as the chunk name for error messages +and debug information. +When absent, +it defaults to "=(load)". + + + + +

+

loadfile ([filename])

+ + +

+Similar to load, +but gets the chunk from file filename +or from the standard input, +if no file name is given. + + + + +

+

loadstring (string [, chunkname])

+ + +

+Similar to load, +but gets the chunk from the given string. + + +

+To load and run a given string, use the idiom + +

+     assert(loadstring(s))()
+
+ +

+When absent, +chunkname defaults to the given string. + + + + +

+

next (table [, index])

+ + +

+Allows a program to traverse all fields of a table. +Its first argument is a table and its second argument +is an index in this table. +next returns the next index of the table +and its associated value. +When called with nil as its second argument, +next returns an initial index +and its associated value. +When called with the last index, +or with nil in an empty table, +next returns nil. +If the second argument is absent, then it is interpreted as nil. +In particular, +you can use next(t) to check whether a table is empty. + + +

+The order in which the indices are enumerated is not specified, +even for numeric indices. +(To traverse a table in numeric order, +use a numerical for or the ipairs function.) + + +

+The behavior of next is undefined if, +during the traversal, +you assign any value to a non-existent field in the table. +You may however modify existing fields. +In particular, you may clear existing fields. + + + + +

+

pairs (t)

+ + +

+Returns three values: the next function, the table t, and nil, +so that the construction + +

+     for k,v in pairs(t) do body end
+

+will iterate over all key–value pairs of table t. + + +

+See function next for the caveats of modifying +the table during its traversal. + + + + +

+

pcall (f, arg1, ···)

+ + +

+Calls function f with +the given arguments in protected mode. +This means that any error inside f is not propagated; +instead, pcall catches the error +and returns a status code. +Its first result is the status code (a boolean), +which is true if the call succeeds without errors. +In such case, pcall also returns all results from the call, +after this first result. +In case of any error, pcall returns false plus the error message. + + + + +

+

print (···)

+Receives any number of arguments, +and prints their values to stdout, +using the tostring function to convert them to strings. +print is not intended for formatted output, +but only as a quick way to show a value, +typically for debugging. +For formatted output, use string.format. + + + + +

+

rawequal (v1, v2)

+Checks whether v1 is equal to v2, +without invoking any metamethod. +Returns a boolean. + + + + +

+

rawget (table, index)

+Gets the real value of table[index], +without invoking any metamethod. +table must be a table; +index may be any value. + + + + +

+

rawset (table, index, value)

+Sets the real value of table[index] to value, +without invoking any metamethod. +table must be a table, +index any value different from nil, +and value any Lua value. + + +

+This function returns table. + + + + +

+

select (index, ···)

+ + +

+If index is a number, +returns all arguments after argument number index. +Otherwise, index must be the string "#", +and select returns the total number of extra arguments it received. + + + + +

+

setfenv (f, table)

+ + +

+Sets the environment to be used by the given function. +f can be a Lua function or a number +that specifies the function at that stack level: +Level 1 is the function calling setfenv. +setfenv returns the given function. + + +

+As a special case, when f is 0 setfenv changes +the environment of the running thread. +In this case, setfenv returns no values. + + + + +

+

setmetatable (table, metatable)

+ + +

+Sets the metatable for the given table. +(You cannot change the metatable of other types from Lua, only from C.) +If metatable is nil, +removes the metatable of the given table. +If the original metatable has a "__metatable" field, +raises an error. + + +

+This function returns table. + + + + +

+

tonumber (e [, base])

+Tries to convert its argument to a number. +If the argument is already a number or a string convertible +to a number, then tonumber returns this number; +otherwise, it returns nil. + + +

+An optional argument specifies the base to interpret the numeral. +The base may be any integer between 2 and 36, inclusive. +In bases above 10, the letter 'A' (in either upper or lower case) +represents 10, 'B' represents 11, and so forth, +with 'Z' representing 35. +In base 10 (the default), the number can have a decimal part, +as well as an optional exponent part (see §2.1). +In other bases, only unsigned integers are accepted. + + + + +

+

tostring (e)

+Receives an argument of any type and +converts it to a string in a reasonable format. +For complete control of how numbers are converted, +use string.format. + + +

+If the metatable of e has a "__tostring" field, +then tostring calls the corresponding value +with e as argument, +and uses the result of the call as its result. + + + + +

+

type (v)

+Returns the type of its only argument, coded as a string. +The possible results of this function are +"nil" (a string, not the value nil), +"number", +"string", +"boolean", +"table", +"function", +"thread", +and "userdata". + + + + +

+

unpack (list [, i [, j]])

+Returns the elements from the given table. +This function is equivalent to + +
+     return list[i], list[i+1], ···, list[j]
+

+except that the above code can be written only for a fixed number +of elements. +By default, i is 1 and j is the length of the list, +as defined by the length operator (see §2.5.5). + + + + +

+

_VERSION

+A global variable (not a function) that +holds a string containing the current interpreter version. +The current contents of this variable is "Lua 5.1". + + + + +

+

xpcall (f, err)

+ + +

+This function is similar to pcall, +except that you can set a new error handler. + + +

+xpcall calls function f in protected mode, +using err as the error handler. +Any error inside f is not propagated; +instead, xpcall catches the error, +calls the err function with the original error object, +and returns a status code. +Its first result is the status code (a boolean), +which is true if the call succeeds without errors. +In this case, xpcall also returns all results from the call, +after this first result. +In case of any error, +xpcall returns false plus the result from err. + + + + + + + +

5.2 - Coroutine Manipulation

+ +

+The operations related to coroutines comprise a sub-library of +the basic library and come inside the table coroutine. +See §2.11 for a general description of coroutines. + + +

+

coroutine.create (f)

+ + +

+Creates a new coroutine, with body f. +f must be a Lua function. +Returns this new coroutine, +an object with type "thread". + + + + +

+

coroutine.resume (co [, val1, ···])

+ + +

+Starts or continues the execution of coroutine co. +The first time you resume a coroutine, +it starts running its body. +The values val1, ··· are passed +as the arguments to the body function. +If the coroutine has yielded, +resume restarts it; +the values val1, ··· are passed +as the results from the yield. + + +

+If the coroutine runs without any errors, +resume returns true plus any values passed to yield +(if the coroutine yields) or any values returned by the body function +(if the coroutine terminates). +If there is any error, +resume returns false plus the error message. + + + + +

+

coroutine.running ()

+ + +

+Returns the running coroutine, +or nil when called by the main thread. + + + + +

+

coroutine.status (co)

+ + +

+Returns the status of coroutine co, as a string: +"running", +if the coroutine is running (that is, it called status); +"suspended", if the coroutine is suspended in a call to yield, +or if it has not started running yet; +"normal" if the coroutine is active but not running +(that is, it has resumed another coroutine); +and "dead" if the coroutine has finished its body function, +or if it has stopped with an error. + + + + +

+

coroutine.wrap (f)

+ + +

+Creates a new coroutine, with body f. +f must be a Lua function. +Returns a function that resumes the coroutine each time it is called. +Any arguments passed to the function behave as the +extra arguments to resume. +Returns the same values returned by resume, +except the first boolean. +In case of error, propagates the error. + + + + +

+

coroutine.yield (···)

+ + +

+Suspends the execution of the calling coroutine. +The coroutine cannot be running a C function, +a metamethod, or an iterator. +Any arguments to yield are passed as extra results to resume. + + + + + + + +

5.3 - Modules

+ +

+The package library provides basic +facilities for loading and building modules in Lua. +It exports two of its functions directly in the global environment: +require and module. +Everything else is exported in a table package. + + +

+

module (name [, ···])

+ + +

+Creates a module. +If there is a table in package.loaded[name], +this table is the module. +Otherwise, if there is a global table t with the given name, +this table is the module. +Otherwise creates a new table t and +sets it as the value of the global name and +the value of package.loaded[name]. +This function also initializes t._NAME with the given name, +t._M with the module (t itself), +and t._PACKAGE with the package name +(the full module name minus last component; see below). +Finally, module sets t as the new environment +of the current function and the new value of package.loaded[name], +so that require returns t. + + +

+If name is a compound name +(that is, one with components separated by dots), +module creates (or reuses, if they already exist) +tables for each component. +For instance, if name is a.b.c, +then module stores the module table in field c of +field b of global a. + + +

+This function can receive optional options after +the module name, +where each option is a function to be applied over the module. + + + + +

+

require (modname)

+ + +

+Loads the given module. +The function starts by looking into the package.loaded table +to determine whether modname is already loaded. +If it is, then require returns the value stored +at package.loaded[modname]. +Otherwise, it tries to find a loader for the module. + + +

+To find a loader, +require is guided by the package.loaders array. +By changing this array, +we can change how require looks for a module. +The following explanation is based on the default configuration +for package.loaders. + + +

+First require queries package.preload[modname]. +If it has a value, +this value (which should be a function) is the loader. +Otherwise require searches for a Lua loader using the +path stored in package.path. +If that also fails, it searches for a C loader using the +path stored in package.cpath. +If that also fails, +it tries an all-in-one loader (see package.loaders). + + +

+Once a loader is found, +require calls the loader with a single argument, modname. +If the loader returns any value, +require assigns the returned value to package.loaded[modname]. +If the loader returns no value and +has not assigned any value to package.loaded[modname], +then require assigns true to this entry. +In any case, require returns the +final value of package.loaded[modname]. + + +

+If there is any error loading or running the module, +or if it cannot find any loader for the module, +then require signals an error. + + + + +

+

package.cpath

+ + +

+The path used by require to search for a C loader. + + +

+Lua initializes the C path package.cpath in the same way +it initializes the Lua path package.path, +using the environment variable LUA_CPATH +or a default path defined in luaconf.h. + + + + +

+ +

package.loaded

+ + +

+A table used by require to control which +modules are already loaded. +When you require a module modname and +package.loaded[modname] is not false, +require simply returns the value stored there. + + + + +

+

package.loaders

+ + +

+A table used by require to control how to load modules. + + +

+Each entry in this table is a searcher function. +When looking for a module, +require calls each of these searchers in ascending order, +with the module name (the argument given to require) as its +sole parameter. +The function can return another function (the module loader) +or a string explaining why it did not find that module +(or nil if it has nothing to say). +Lua initializes this table with four functions. + + +

+The first searcher simply looks for a loader in the +package.preload table. + + +

+The second searcher looks for a loader as a Lua library, +using the path stored at package.path. +A path is a sequence of templates separated by semicolons. +For each template, +the searcher will change each interrogation +mark in the template by filename, +which is the module name with each dot replaced by a +"directory separator" (such as "/" in Unix); +then it will try to open the resulting file name. +So, for instance, if the Lua path is the string + +

+     "./?.lua;./?.lc;/usr/local/?/init.lua"
+

+the search for a Lua file for module foo +will try to open the files +./foo.lua, ./foo.lc, and +/usr/local/foo/init.lua, in that order. + + +

+The third searcher looks for a loader as a C library, +using the path given by the variable package.cpath. +For instance, +if the C path is the string + +

+     "./?.so;./?.dll;/usr/local/?/init.so"
+

+the searcher for module foo +will try to open the files ./foo.so, ./foo.dll, +and /usr/local/foo/init.so, in that order. +Once it finds a C library, +this searcher first uses a dynamic link facility to link the +application with the library. +Then it tries to find a C function inside the library to +be used as the loader. +The name of this C function is the string "luaopen_" +concatenated with a copy of the module name where each dot +is replaced by an underscore. +Moreover, if the module name has a hyphen, +its prefix up to (and including) the first hyphen is removed. +For instance, if the module name is a.v1-b.c, +the function name will be luaopen_b_c. + + +

+The fourth searcher tries an all-in-one loader. +It searches the C path for a library for +the root name of the given module. +For instance, when requiring a.b.c, +it will search for a C library for a. +If found, it looks into it for an open function for +the submodule; +in our example, that would be luaopen_a_b_c. +With this facility, a package can pack several C submodules +into one single library, +with each submodule keeping its original open function. + + + + +

+

package.loadlib (libname, funcname)

+ + +

+Dynamically links the host program with the C library libname. +Inside this library, looks for a function funcname +and returns this function as a C function. +(So, funcname must follow the protocol (see lua_CFunction)). + + +

+This is a low-level function. +It completely bypasses the package and module system. +Unlike require, +it does not perform any path searching and +does not automatically adds extensions. +libname must be the complete file name of the C library, +including if necessary a path and extension. +funcname must be the exact name exported by the C library +(which may depend on the C compiler and linker used). + + +

+This function is not supported by ANSI C. +As such, it is only available on some platforms +(Windows, Linux, Mac OS X, Solaris, BSD, +plus other Unix systems that support the dlfcn standard). + + + + +

+

package.path

+ + +

+The path used by require to search for a Lua loader. + + +

+At start-up, Lua initializes this variable with +the value of the environment variable LUA_PATH or +with a default path defined in luaconf.h, +if the environment variable is not defined. +Any ";;" in the value of the environment variable +is replaced by the default path. + + + + +

+

package.preload

+ + +

+A table to store loaders for specific modules +(see require). + + + + +

+

package.seeall (module)

+ + +

+Sets a metatable for module with +its __index field referring to the global environment, +so that this module inherits values +from the global environment. +To be used as an option to function module. + + + + + + + +

5.4 - String Manipulation

+ +

+This library provides generic functions for string manipulation, +such as finding and extracting substrings, and pattern matching. +When indexing a string in Lua, the first character is at position 1 +(not at 0, as in C). +Indices are allowed to be negative and are interpreted as indexing backwards, +from the end of the string. +Thus, the last character is at position -1, and so on. + + +

+The string library provides all its functions inside the table +string. +It also sets a metatable for strings +where the __index field points to the string table. +Therefore, you can use the string functions in object-oriented style. +For instance, string.byte(s, i) +can be written as s:byte(i). + + +

+The string library assumes one-byte character encodings. + + +

+

string.byte (s [, i [, j]])

+Returns the internal numerical codes of the characters s[i], +s[i+1], ···, s[j]. +The default value for i is 1; +the default value for j is i. + + +

+Note that numerical codes are not necessarily portable across platforms. + + + + +

+

string.char (···)

+Receives zero or more integers. +Returns a string with length equal to the number of arguments, +in which each character has the internal numerical code equal +to its corresponding argument. + + +

+Note that numerical codes are not necessarily portable across platforms. + + + + +

+

string.dump (function)

+ + +

+Returns a string containing a binary representation of the given function, +so that a later loadstring on this string returns +a copy of the function. +function must be a Lua function without upvalues. + + + + +

+

string.find (s, pattern [, init [, plain]])

+Looks for the first match of +pattern in the string s. +If it finds a match, then find returns the indices of s +where this occurrence starts and ends; +otherwise, it returns nil. +A third, optional numerical argument init specifies +where to start the search; +its default value is 1 and can be negative. +A value of true as a fourth, optional argument plain +turns off the pattern matching facilities, +so the function does a plain "find substring" operation, +with no characters in pattern being considered "magic". +Note that if plain is given, then init must be given as well. + + +

+If the pattern has captures, +then in a successful match +the captured values are also returned, +after the two indices. + + + + +

+

string.format (formatstring, ···)

+Returns a formatted version of its variable number of arguments +following the description given in its first argument (which must be a string). +The format string follows the same rules as the printf family of +standard C functions. +The only differences are that the options/modifiers +*, l, L, n, p, +and h are not supported +and that there is an extra option, q. +The q option formats a string in a form suitable to be safely read +back by the Lua interpreter: +the string is written between double quotes, +and all double quotes, newlines, embedded zeros, +and backslashes in the string +are correctly escaped when written. +For instance, the call + +
+     string.format('%q', 'a string with "quotes" and \n new line')
+

+will produce the string: + +

+     "a string with \"quotes\" and \
+      new line"
+
+ +

+The options c, d, E, e, f, +g, G, i, o, u, X, and x all +expect a number as argument, +whereas q and s expect a string. + + +

+This function does not accept string values +containing embedded zeros, +except as arguments to the q option. + + + + +

+

string.gmatch (s, pattern)

+Returns an iterator function that, +each time it is called, +returns the next captures from pattern over string s. +If pattern specifies no captures, +then the whole match is produced in each call. + + +

+As an example, the following loop + +

+     s = "hello world from Lua"
+     for w in string.gmatch(s, "%a+") do
+       print(w)
+     end
+

+will iterate over all the words from string s, +printing one per line. +The next example collects all pairs key=value from the +given string into a table: + +

+     t = {}
+     s = "from=world, to=Lua"
+     for k, v in string.gmatch(s, "(%w+)=(%w+)") do
+       t[k] = v
+     end
+
+ +

+For this function, a '^' at the start of a pattern does not +work as an anchor, as this would prevent the iteration. + + + + +

+

string.gsub (s, pattern, repl [, n])

+Returns a copy of s +in which all (or the first n, if given) +occurrences of the pattern have been +replaced by a replacement string specified by repl, +which can be a string, a table, or a function. +gsub also returns, as its second value, +the total number of matches that occurred. + + +

+If repl is a string, then its value is used for replacement. +The character % works as an escape character: +any sequence in repl of the form %n, +with n between 1 and 9, +stands for the value of the n-th captured substring (see below). +The sequence %0 stands for the whole match. +The sequence %% stands for a single %. + + +

+If repl is a table, then the table is queried for every match, +using the first capture as the key; +if the pattern specifies no captures, +then the whole match is used as the key. + + +

+If repl is a function, then this function is called every time a +match occurs, with all captured substrings passed as arguments, +in order; +if the pattern specifies no captures, +then the whole match is passed as a sole argument. + + +

+If the value returned by the table query or by the function call +is a string or a number, +then it is used as the replacement string; +otherwise, if it is false or nil, +then there is no replacement +(that is, the original match is kept in the string). + + +

+Here are some examples: + +

+     x = string.gsub("hello world", "(%w+)", "%1 %1")
+     --> x="hello hello world world"
+     
+     x = string.gsub("hello world", "%w+", "%0 %0", 1)
+     --> x="hello hello world"
+     
+     x = string.gsub("hello world from Lua", "(%w+)%s*(%w+)", "%2 %1")
+     --> x="world hello Lua from"
+     
+     x = string.gsub("home = $HOME, user = $USER", "%$(%w+)", os.getenv)
+     --> x="home = /home/roberto, user = roberto"
+     
+     x = string.gsub("4+5 = $return 4+5$", "%$(.-)%$", function (s)
+           return loadstring(s)()
+         end)
+     --> x="4+5 = 9"
+     
+     local t = {name="lua", version="5.1"}
+     x = string.gsub("$name-$version.tar.gz", "%$(%w+)", t)
+     --> x="lua-5.1.tar.gz"
+
+ + + +

+

string.len (s)

+Receives a string and returns its length. +The empty string "" has length 0. +Embedded zeros are counted, +so "a\000bc\000" has length 5. + + + + +

+

string.lower (s)

+Receives a string and returns a copy of this string with all +uppercase letters changed to lowercase. +All other characters are left unchanged. +The definition of what an uppercase letter is depends on the current locale. + + + + +

+

string.match (s, pattern [, init])

+Looks for the first match of +pattern in the string s. +If it finds one, then match returns +the captures from the pattern; +otherwise it returns nil. +If pattern specifies no captures, +then the whole match is returned. +A third, optional numerical argument init specifies +where to start the search; +its default value is 1 and can be negative. + + + + +

+

string.rep (s, n)

+Returns a string that is the concatenation of n copies of +the string s. + + + + +

+

string.reverse (s)

+Returns a string that is the string s reversed. + + + + +

+

string.sub (s, i [, j])

+Returns the substring of s that +starts at i and continues until j; +i and j can be negative. +If j is absent, then it is assumed to be equal to -1 +(which is the same as the string length). +In particular, +the call string.sub(s,1,j) returns a prefix of s +with length j, +and string.sub(s, -i) returns a suffix of s +with length i. + + + + +

+

string.upper (s)

+Receives a string and returns a copy of this string with all +lowercase letters changed to uppercase. +All other characters are left unchanged. +The definition of what a lowercase letter is depends on the current locale. + + + +

5.4.1 - Patterns

+ + +

Character Class:

+A character class is used to represent a set of characters. +The following combinations are allowed in describing a character class: + +

    + +
  • x: +(where x is not one of the magic characters +^$()%.[]*+-?) +represents the character x itself. +
    • + +
  • .: (a dot) represents all characters.
    • + +
  • %a: represents all letters.
    • + +
  • %c: represents all control characters.
    • + +
  • %d: represents all digits.
    • + +
  • %l: represents all lowercase letters.
    • + +
  • %p: represents all punctuation characters.
    • + +
  • %s: represents all space characters.
    • + +
  • %u: represents all uppercase letters.
    • + +
  • %w: represents all alphanumeric characters.
    • + +
  • %x: represents all hexadecimal digits.
    • + +
  • %z: represents the character with representation 0.
    • + +
  • %x: (where x is any non-alphanumeric character) +represents the character x. +This is the standard way to escape the magic characters. +Any punctuation character (even the non magic) +can be preceded by a '%' +when used to represent itself in a pattern. +
    • + +
  • [set]: +represents the class which is the union of all +characters in set. +A range of characters can be specified by +separating the end characters of the range with a '-'. +All classes %x described above can also be used as +components in set. +All other characters in set represent themselves. +For example, [%w_] (or [_%w]) +represents all alphanumeric characters plus the underscore, +[0-7] represents the octal digits, +and [0-7%l%-] represents the octal digits plus +the lowercase letters plus the '-' character. + + +

    +The interaction between ranges and classes is not defined. +Therefore, patterns like [%a-z] or [a-%%] +have no meaning. +

    • + +
  • [^set]: +represents the complement of set, +where set is interpreted as above. +
    • + +

+For all classes represented by single letters (%a, %c, etc.), +the corresponding uppercase letter represents the complement of the class. +For instance, %S represents all non-space characters. + + +

+The definitions of letter, space, and other character groups +depend on the current locale. +In particular, the class [a-z] may not be equivalent to %l. + + + + + +

Pattern Item:

+A pattern item can be + +

    + +
  • +a single character class, +which matches any single character in the class; +
    • + +
  • +a single character class followed by '*', +which matches 0 or more repetitions of characters in the class. +These repetition items will always match the longest possible sequence; +
    • + +
  • +a single character class followed by '+', +which matches 1 or more repetitions of characters in the class. +These repetition items will always match the longest possible sequence; +
    • + +
  • +a single character class followed by '-', +which also matches 0 or more repetitions of characters in the class. +Unlike '*', +these repetition items will always match the shortest possible sequence; +
    • + +
  • +a single character class followed by '?', +which matches 0 or 1 occurrence of a character in the class; +
    • + +
  • +%n, for n between 1 and 9; +such item matches a substring equal to the n-th captured string +(see below); +
    • + +
  • +%bxy, where x and y are two distinct characters; +such item matches strings that start with x, end with y, +and where the x and y are balanced. +This means that, if one reads the string from left to right, +counting +1 for an x and -1 for a y, +the ending y is the first y where the count reaches 0. +For instance, the item %b() matches expressions with +balanced parentheses. +
    • + +
+ + + + +

Pattern:

+A pattern is a sequence of pattern items. +A '^' at the beginning of a pattern anchors the match at the +beginning of the subject string. +A '$' at the end of a pattern anchors the match at the +end of the subject string. +At other positions, +'^' and '$' have no special meaning and represent themselves. + + + + + +

Captures:

+A pattern can contain sub-patterns enclosed in parentheses; +they describe captures. +When a match succeeds, the substrings of the subject string +that match captures are stored (captured) for future use. +Captures are numbered according to their left parentheses. +For instance, in the pattern "(a*(.)%w(%s*))", +the part of the string matching "a*(.)%w(%s*)" is +stored as the first capture (and therefore has number 1); +the character matching "." is captured with number 2, +and the part matching "%s*" has number 3. + + +

+As a special case, the empty capture () captures +the current string position (a number). +For instance, if we apply the pattern "()aa()" on the +string "flaaap", there will be two captures: 3 and 5. + + +

+A pattern cannot contain embedded zeros. Use %z instead. + + + + + + + + + + + +

5.5 - Table Manipulation

+This library provides generic functions for table manipulation. +It provides all its functions inside the table table. + + +

+Most functions in the table library assume that the table +represents an array or a list. +For these functions, when we talk about the "length" of a table +we mean the result of the length operator. + + +

+

table.concat (table [, sep [, i [, j]]])

+Given an array where all elements are strings or numbers, +returns table[i]..sep..table[i+1] ··· sep..table[j]. +The default value for sep is the empty string, +the default for i is 1, +and the default for j is the length of the table. +If i is greater than j, returns the empty string. + + + + +

+

table.insert (table, [pos,] value)

+ + +

+Inserts element value at position pos in table, +shifting up other elements to open space, if necessary. +The default value for pos is n+1, +where n is the length of the table (see §2.5.5), +so that a call table.insert(t,x) inserts x at the end +of table t. + + + + +

+

table.maxn (table)

+ + +

+Returns the largest positive numerical index of the given table, +or zero if the table has no positive numerical indices. +(To do its job this function does a linear traversal of +the whole table.) + + + + +

+

table.remove (table [, pos])

+ + +

+Removes from table the element at position pos, +shifting down other elements to close the space, if necessary. +Returns the value of the removed element. +The default value for pos is n, +where n is the length of the table, +so that a call table.remove(t) removes the last element +of table t. + + + + +

+

table.sort (table [, comp])

+Sorts table elements in a given order, in-place, +from table[1] to table[n], +where n is the length of the table. +If comp is given, +then it must be a function that receives two table elements, +and returns true +when the first is less than the second +(so that not comp(a[i+1],a[i]) will be true after the sort). +If comp is not given, +then the standard Lua operator < is used instead. + + +

+The sort algorithm is not stable; +that is, elements considered equal by the given order +may have their relative positions changed by the sort. + + + + + + + +

5.6 - Mathematical Functions

+ +

+This library is an interface to the standard C math library. +It provides all its functions inside the table math. + + +

+

math.abs (x)

+ + +

+Returns the absolute value of x. + + + + +

+

math.acos (x)

+ + +

+Returns the arc cosine of x (in radians). + + + + +

+

math.asin (x)

+ + +

+Returns the arc sine of x (in radians). + + + + +

+

math.atan (x)

+ + +

+Returns the arc tangent of x (in radians). + + + + +

+

math.atan2 (y, x)

+ + +

+Returns the arc tangent of y/x (in radians), +but uses the signs of both parameters to find the +quadrant of the result. +(It also handles correctly the case of x being zero.) + + + + +

+

math.ceil (x)

+ + +

+Returns the smallest integer larger than or equal to x. + + + + +

+

math.cos (x)

+ + +

+Returns the cosine of x (assumed to be in radians). + + + + +

+

math.cosh (x)

+ + +

+Returns the hyperbolic cosine of x. + + + + +

+

math.deg (x)

+ + +

+Returns the angle x (given in radians) in degrees. + + + + +

+

math.exp (x)

+ + +

+Returns the value ex. + + + + +

+

math.floor (x)

+ + +

+Returns the largest integer smaller than or equal to x. + + + + +

+

math.fmod (x, y)

+ + +

+Returns the remainder of the division of x by y +that rounds the quotient towards zero. + + + + +

+

math.frexp (x)

+ + +

+Returns m and e such that x = m2e, +e is an integer and the absolute value of m is +in the range [0.5, 1) +(or zero when x is zero). + + + + +

+

math.huge

+ + +

+The value HUGE_VAL, +a value larger than or equal to any other numerical value. + + + + +

+

math.ldexp (m, e)

+ + +

+Returns m2e (e should be an integer). + + + + +

+

math.log (x)

+ + +

+Returns the natural logarithm of x. + + + + +

+

math.log10 (x)

+ + +

+Returns the base-10 logarithm of x. + + + + +

+

math.max (x, ···)

+ + +

+Returns the maximum value among its arguments. + + + + +

+

math.min (x, ···)

+ + +

+Returns the minimum value among its arguments. + + + + +

+

math.modf (x)

+ + +

+Returns two numbers, +the integral part of x and the fractional part of x. + + + + +

+

math.pi

+ + +

+The value of pi. + + + + +

+

math.pow (x, y)

+ + +

+Returns xy. +(You can also use the expression x^y to compute this value.) + + + + +

+

math.rad (x)

+ + +

+Returns the angle x (given in degrees) in radians. + + + + +

+

math.random ([m [, n]])

+ + +

+This function is an interface to the simple +pseudo-random generator function rand provided by ANSI C. +(No guarantees can be given for its statistical properties.) + + +

+When called without arguments, +returns a uniform pseudo-random real number +in the range [0,1). +When called with an integer number m, +math.random returns +a uniform pseudo-random integer in the range [1, m]. +When called with two integer numbers m and n, +math.random returns a uniform pseudo-random +integer in the range [m, n]. + + + + +

+

math.randomseed (x)

+ + +

+Sets x as the "seed" +for the pseudo-random generator: +equal seeds produce equal sequences of numbers. + + + + +

+

math.sin (x)

+ + +

+Returns the sine of x (assumed to be in radians). + + + + +

+

math.sinh (x)

+ + +

+Returns the hyperbolic sine of x. + + + + +

+

math.sqrt (x)

+ + +

+Returns the square root of x. +(You can also use the expression x^0.5 to compute this value.) + + + + +

+

math.tan (x)

+ + +

+Returns the tangent of x (assumed to be in radians). + + + + +

+

math.tanh (x)

+ + +

+Returns the hyperbolic tangent of x. + + + + + + + +

5.7 - Input and Output Facilities

+ +

+The I/O library provides two different styles for file manipulation. +The first one uses implicit file descriptors; +that is, there are operations to set a default input file and a +default output file, +and all input/output operations are over these default files. +The second style uses explicit file descriptors. + + +

+When using implicit file descriptors, +all operations are supplied by table io. +When using explicit file descriptors, +the operation io.open returns a file descriptor +and then all operations are supplied as methods of the file descriptor. + + +

+The table io also provides +three predefined file descriptors with their usual meanings from C: +io.stdin, io.stdout, and io.stderr. +The I/O library never closes these files. + + +

+Unless otherwise stated, +all I/O functions return nil on failure +(plus an error message as a second result and +a system-dependent error code as a third result) +and some value different from nil on success. + + +

+

io.close ([file])

+ + +

+Equivalent to file:close(). +Without a file, closes the default output file. + + + + +

+

io.flush ()

+ + +

+Equivalent to file:flush over the default output file. + + + + +

+

io.input ([file])

+ + +

+When called with a file name, it opens the named file (in text mode), +and sets its handle as the default input file. +When called with a file handle, +it simply sets this file handle as the default input file. +When called without parameters, +it returns the current default input file. + + +

+In case of errors this function raises the error, +instead of returning an error code. + + + + +

+

io.lines ([filename])

+ + +

+Opens the given file name in read mode +and returns an iterator function that, +each time it is called, +returns a new line from the file. +Therefore, the construction + +

+     for line in io.lines(filename) do body end
+

+will iterate over all lines of the file. +When the iterator function detects the end of file, +it returns nil (to finish the loop) and automatically closes the file. + + +

+The call io.lines() (with no file name) is equivalent +to io.input():lines(); +that is, it iterates over the lines of the default input file. +In this case it does not close the file when the loop ends. + + + + +

+

io.open (filename [, mode])

+ + +

+This function opens a file, +in the mode specified in the string mode. +It returns a new file handle, +or, in case of errors, nil plus an error message. + + +

+The mode string can be any of the following: + +

    +
  • "r": read mode (the default);
    • +
  • "w": write mode;
    • +
  • "a": append mode;
    • +
  • "r+": update mode, all previous data is preserved;
    • +
  • "w+": update mode, all previous data is erased;
    • +
  • "a+": append update mode, previous data is preserved, + writing is only allowed at the end of file.
    • +

+The mode string can also have a 'b' at the end, +which is needed in some systems to open the file in binary mode. +This string is exactly what is used in the +standard C function fopen. + + + + +

+

io.output ([file])

+ + +

+Similar to io.input, but operates over the default output file. + + + + +

+

io.popen (prog [, mode])

+ + +

+Starts program prog in a separated process and returns +a file handle that you can use to read data from this program +(if mode is "r", the default) +or to write data to this program +(if mode is "w"). + + +

+This function is system dependent and is not available +on all platforms. + + + + +

+

io.read (···)

+ + +

+Equivalent to io.input():read. + + + + +

+

io.tmpfile ()

+ + +

+Returns a handle for a temporary file. +This file is opened in update mode +and it is automatically removed when the program ends. + + + + +

+

io.type (obj)

+ + +

+Checks whether obj is a valid file handle. +Returns the string "file" if obj is an open file handle, +"closed file" if obj is a closed file handle, +or nil if obj is not a file handle. + + + + +

+

io.write (···)

+ + +

+Equivalent to io.output():write. + + + + +

+

file:close ()

+ + +

+Closes file. +Note that files are automatically closed when +their handles are garbage collected, +but that takes an unpredictable amount of time to happen. + + + + +

+

file:flush ()

+ + +

+Saves any written data to file. + + + + +

+

file:lines ()

+ + +

+Returns an iterator function that, +each time it is called, +returns a new line from the file. +Therefore, the construction + +

+     for line in file:lines() do body end
+

+will iterate over all lines of the file. +(Unlike io.lines, this function does not close the file +when the loop ends.) + + + + +

+

file:read (···)

+ + +

+Reads the file file, +according to the given formats, which specify what to read. +For each format, +the function returns a string (or a number) with the characters read, +or nil if it cannot read data with the specified format. +When called without formats, +it uses a default format that reads the entire next line +(see below). + + +

+The available formats are + +

    + +
  • "*n": +reads a number; +this is the only format that returns a number instead of a string. +
    • + +
  • "*a": +reads the whole file, starting at the current position. +On end of file, it returns the empty string. +
    • + +
  • "*l": +reads the next line (skipping the end of line), +returning nil on end of file. +This is the default format. +
    • + +
  • number: +reads a string with up to this number of characters, +returning nil on end of file. +If number is zero, +it reads nothing and returns an empty string, +or nil on end of file. +
    • + +
+ + + +

+

file:seek ([whence] [, offset])

+ + +

+Sets and gets the file position, +measured from the beginning of the file, +to the position given by offset plus a base +specified by the string whence, as follows: + +

    +
  • "set": base is position 0 (beginning of the file);
    • +
  • "cur": base is current position;
    • +
  • "end": base is end of file;
    • +

+In case of success, function seek returns the final file position, +measured in bytes from the beginning of the file. +If this function fails, it returns nil, +plus a string describing the error. + + +

+The default value for whence is "cur", +and for offset is 0. +Therefore, the call file:seek() returns the current +file position, without changing it; +the call file:seek("set") sets the position to the +beginning of the file (and returns 0); +and the call file:seek("end") sets the position to the +end of the file, and returns its size. + + + + +

+

file:setvbuf (mode [, size])

+ + +

+Sets the buffering mode for an output file. +There are three available modes: + +

    + +
  • "no": +no buffering; the result of any output operation appears immediately. +
    • + +
  • "full": +full buffering; output operation is performed only +when the buffer is full (or when you explicitly flush the file +(see io.flush)). +
    • + +
  • "line": +line buffering; output is buffered until a newline is output +or there is any input from some special files +(such as a terminal device). +
    • + +

+For the last two cases, size +specifies the size of the buffer, in bytes. +The default is an appropriate size. + + + + +

+

file:write (···)

+ + +

+Writes the value of each of its arguments to +the file. +The arguments must be strings or numbers. +To write other values, +use tostring or string.format before write. + + + + + + + +

5.8 - Operating System Facilities

+ +

+This library is implemented through table os. + + +

+

os.clock ()

+ + +

+Returns an approximation of the amount in seconds of CPU time +used by the program. + + + + +

+

os.date ([format [, time]])

+ + +

+Returns a string or a table containing date and time, +formatted according to the given string format. + + +

+If the time argument is present, +this is the time to be formatted +(see the os.time function for a description of this value). +Otherwise, date formats the current time. + + +

+If format starts with '!', +then the date is formatted in Coordinated Universal Time. +After this optional character, +if format is the string "*t", +then date returns a table with the following fields: +year (four digits), month (1--12), day (1--31), +hour (0--23), min (0--59), sec (0--61), +wday (weekday, Sunday is 1), +yday (day of the year), +and isdst (daylight saving flag, a boolean). + + +

+If format is not "*t", +then date returns the date as a string, +formatted according to the same rules as the C function strftime. + + +

+When called without arguments, +date returns a reasonable date and time representation that depends on +the host system and on the current locale +(that is, os.date() is equivalent to os.date("%c")). + + + + +

+

os.difftime (t2, t1)

+ + +

+Returns the number of seconds from time t1 to time t2. +In POSIX, Windows, and some other systems, +this value is exactly t2-t1. + + + + +

+

os.execute ([command])

+ + +

+This function is equivalent to the C function system. +It passes command to be executed by an operating system shell. +It returns a status code, which is system-dependent. +If command is absent, then it returns nonzero if a shell is available +and zero otherwise. + + + + +

+

os.exit ([code])

+ + +

+Calls the C function exit, +with an optional code, +to terminate the host program. +The default value for code is the success code. + + + + +

+

os.getenv (varname)

+ + +

+Returns the value of the process environment variable varname, +or nil if the variable is not defined. + + + + +

+

os.remove (filename)

+ + +

+Deletes the file or directory with the given name. +Directories must be empty to be removed. +If this function fails, it returns nil, +plus a string describing the error. + + + + +

+

os.rename (oldname, newname)

+ + +

+Renames file or directory named oldname to newname. +If this function fails, it returns nil, +plus a string describing the error. + + + + +

+

os.setlocale (locale [, category])

+ + +

+Sets the current locale of the program. +locale is a string specifying a locale; +category is an optional string describing which category to change: +"all", "collate", "ctype", +"monetary", "numeric", or "time"; +the default category is "all". +The function returns the name of the new locale, +or nil if the request cannot be honored. + + +

+If locale is the empty string, +the current locale is set to an implementation-defined native locale. +If locale is the string "C", +the current locale is set to the standard C locale. + + +

+When called with nil as the first argument, +this function only returns the name of the current locale +for the given category. + + + + +

+

os.time ([table])

+ + +

+Returns the current time when called without arguments, +or a time representing the date and time specified by the given table. +This table must have fields year, month, and day, +and may have fields hour, min, sec, and isdst +(for a description of these fields, see the os.date function). + + +

+The returned value is a number, whose meaning depends on your system. +In POSIX, Windows, and some other systems, this number counts the number +of seconds since some given start time (the "epoch"). +In other systems, the meaning is not specified, +and the number returned by time can be used only as an argument to +date and difftime. + + + + +

+

os.tmpname ()

+ + +

+Returns a string with a file name that can +be used for a temporary file. +The file must be explicitly opened before its use +and explicitly removed when no longer needed. + + +

+On some systems (POSIX), +this function also creates a file with that name, +to avoid security risks. +(Someone else might create the file with wrong permissions +in the time between getting the name and creating the file.) +You still have to open the file to use it +and to remove it (even if you do not use it). + + +

+When possible, +you may prefer to use io.tmpfile, +which automatically removes the file when the program ends. + + + + + + + +

5.9 - The Debug Library

+ +

+This library provides +the functionality of the debug interface to Lua programs. +You should exert care when using this library. +The functions provided here should be used exclusively for debugging +and similar tasks, such as profiling. +Please resist the temptation to use them as a +usual programming tool: +they can be very slow. +Moreover, several of these functions +violate some assumptions about Lua code +(e.g., that variables local to a function +cannot be accessed from outside or +that userdata metatables cannot be changed by Lua code) +and therefore can compromise otherwise secure code. + + +

+All functions in this library are provided +inside the debug table. +All functions that operate over a thread +have an optional first argument which is the +thread to operate over. +The default is always the current thread. + + +

+

debug.debug ()

+ + +

+Enters an interactive mode with the user, +running each string that the user enters. +Using simple commands and other debug facilities, +the user can inspect global and local variables, +change their values, evaluate expressions, and so on. +A line containing only the word cont finishes this function, +so that the caller continues its execution. + + +

+Note that commands for debug.debug are not lexically nested +within any function, and so have no direct access to local variables. + + + + +

+

debug.getfenv (o)

+Returns the environment of object o. + + + + +

+

debug.gethook ([thread])

+ + +

+Returns the current hook settings of the thread, as three values: +the current hook function, the current hook mask, +and the current hook count +(as set by the debug.sethook function). + + + + +

+

debug.getinfo ([thread,] function [, what])

+ + +

+Returns a table with information about a function. +You can give the function directly, +or you can give a number as the value of function, +which means the function running at level function of the call stack +of the given thread: +level 0 is the current function (getinfo itself); +level 1 is the function that called getinfo; +and so on. +If function is a number larger than the number of active functions, +then getinfo returns nil. + + +

+The returned table can contain all the fields returned by lua_getinfo, +with the string what describing which fields to fill in. +The default for what is to get all information available, +except the table of valid lines. +If present, +the option 'f' +adds a field named func with the function itself. +If present, +the option 'L' +adds a field named activelines with the table of +valid lines. + + +

+For instance, the expression debug.getinfo(1,"n").name returns +a table with a name for the current function, +if a reasonable name can be found, +and the expression debug.getinfo(print) +returns a table with all available information +about the print function. + + + + +

+

debug.getlocal ([thread,] level, local)

+ + +

+This function returns the name and the value of the local variable +with index local of the function at level level of the stack. +(The first parameter or local variable has index 1, and so on, +until the last active local variable.) +The function returns nil if there is no local +variable with the given index, +and raises an error when called with a level out of range. +(You can call debug.getinfo to check whether the level is valid.) + + +

+Variable names starting with '(' (open parentheses) +represent internal variables +(loop control variables, temporaries, and C function locals). + + + + +

+

debug.getmetatable (object)

+ + +

+Returns the metatable of the given object +or nil if it does not have a metatable. + + + + +

+

debug.getregistry ()

+ + +

+Returns the registry table (see §3.5). + + + + +

+

debug.getupvalue (func, up)

+ + +

+This function returns the name and the value of the upvalue +with index up of the function func. +The function returns nil if there is no upvalue with the given index. + + + + +

+

debug.setfenv (object, table)

+ + +

+Sets the environment of the given object to the given table. +Returns object. + + + + +

+

debug.sethook ([thread,] hook, mask [, count])

+ + +

+Sets the given function as a hook. +The string mask and the number count describe +when the hook will be called. +The string mask may have the following characters, +with the given meaning: + +

    +
  • "c": the hook is called every time Lua calls a function;
    • +
  • "r": the hook is called every time Lua returns from a function;
    • +
  • "l": the hook is called every time Lua enters a new line of code.
    • +

+With a count different from zero, +the hook is called after every count instructions. + + +

+When called without arguments, +debug.sethook turns off the hook. + + +

+When the hook is called, its first parameter is a string +describing the event that has triggered its call: +"call", "return" (or "tail return", +when simulating a return from a tail call), +"line", and "count". +For line events, +the hook also gets the new line number as its second parameter. +Inside a hook, +you can call getinfo with level 2 to get more information about +the running function +(level 0 is the getinfo function, +and level 1 is the hook function), +unless the event is "tail return". +In this case, Lua is only simulating the return, +and a call to getinfo will return invalid data. + + + + +

+

debug.setlocal ([thread,] level, local, value)

+ + +

+This function assigns the value value to the local variable +with index local of the function at level level of the stack. +The function returns nil if there is no local +variable with the given index, +and raises an error when called with a level out of range. +(You can call getinfo to check whether the level is valid.) +Otherwise, it returns the name of the local variable. + + + + +

+

debug.setmetatable (object, table)

+ + +

+Sets the metatable for the given object to the given table +(which can be nil). + + + + +

+

debug.setupvalue (func, up, value)

+ + +

+This function assigns the value value to the upvalue +with index up of the function func. +The function returns nil if there is no upvalue +with the given index. +Otherwise, it returns the name of the upvalue. + + + + +

+

debug.traceback ([thread,] [message [, level]])

+ + +

+Returns a string with a traceback of the call stack. +An optional message string is appended +at the beginning of the traceback. +An optional level number tells at which level +to start the traceback +(default is 1, the function calling traceback). + + + + + + + +

6 - Lua Stand-alone

+ +

+Although Lua has been designed as an extension language, +to be embedded in a host C program, +it is also frequently used as a stand-alone language. +An interpreter for Lua as a stand-alone language, +called simply lua, +is provided with the standard distribution. +The stand-alone interpreter includes +all standard libraries, including the debug library. +Its usage is: + +

+     lua [options] [script [args]]
+

+The options are: + +

    +
  • -e stat: executes string stat;
    • +
  • -l mod: "requires" mod;
    • +
  • -i: enters interactive mode after running script;
    • +
  • -v: prints version information;
    • +
  • --: stops handling options;
    • +
  • -: executes stdin as a file and stops handling options.
    • +

+After handling its options, lua runs the given script, +passing to it the given args as string arguments. +When called without arguments, +lua behaves as lua -v -i +when the standard input (stdin) is a terminal, +and as lua - otherwise. + + +

+Before running any argument, +the interpreter checks for an environment variable LUA_INIT. +If its format is @filename, +then lua executes the file. +Otherwise, lua executes the string itself. + + +

+All options are handled in order, except -i. +For instance, an invocation like + +

+     $ lua -e'a=1' -e 'print(a)' script.lua
+

+will first set a to 1, then print the value of a (which is '1'), +and finally run the file script.lua with no arguments. +(Here $ is the shell prompt. Your prompt may be different.) + + +

+Before starting to run the script, +lua collects all arguments in the command line +in a global table called arg. +The script name is stored at index 0, +the first argument after the script name goes to index 1, +and so on. +Any arguments before the script name +(that is, the interpreter name plus the options) +go to negative indices. +For instance, in the call + +

+     $ lua -la b.lua t1 t2
+

+the interpreter first runs the file a.lua, +then creates a table + +

+     arg = { [-2] = "lua", [-1] = "-la",
+             [0] = "b.lua",
+             [1] = "t1", [2] = "t2" }
+

+and finally runs the file b.lua. +The script is called with arg[1], arg[2], ··· +as arguments; +it can also access these arguments with the vararg expression '...'. + + +

+In interactive mode, +if you write an incomplete statement, +the interpreter waits for its completion +by issuing a different prompt. + + +

+If the global variable _PROMPT contains a string, +then its value is used as the prompt. +Similarly, if the global variable _PROMPT2 contains a string, +its value is used as the secondary prompt +(issued during incomplete statements). +Therefore, both prompts can be changed directly on the command line +or in any Lua programs by assigning to _PROMPT. +See the next example: + +

+     $ lua -e"_PROMPT='myprompt> '" -i
+

+(The outer pair of quotes is for the shell, +the inner pair is for Lua.) +Note the use of -i to enter interactive mode; +otherwise, +the program would just end silently +right after the assignment to _PROMPT. + + +

+To allow the use of Lua as a +script interpreter in Unix systems, +the stand-alone interpreter skips +the first line of a chunk if it starts with #. +Therefore, Lua scripts can be made into executable programs +by using chmod +x and the #! form, +as in + +

+     #!/usr/local/bin/lua
+

+(Of course, +the location of the Lua interpreter may be different in your machine. +If lua is in your PATH, +then + +

+     #!/usr/bin/env lua
+

+is a more portable solution.) + + + +

7 - Incompatibilities with the Previous Version

+ +

+Here we list the incompatibilities that you may find when moving a program +from Lua 5.0 to Lua 5.1. +You can avoid most of the incompatibilities compiling Lua with +appropriate options (see file luaconf.h). +However, +all these compatibility options will be removed in the next version of Lua. + + + +

7.1 - Changes in the Language

+
    + +
  • +The vararg system changed from the pseudo-argument arg with a +table with the extra arguments to the vararg expression. +(See compile-time option LUA_COMPAT_VARARG in luaconf.h.) +
    • + +
  • +There was a subtle change in the scope of the implicit +variables of the for statement and for the repeat statement. +
    • + +
  • +The long string/long comment syntax ([[string]]) +does not allow nesting. +You can use the new syntax ([=[string]=]) in these cases. +(See compile-time option LUA_COMPAT_LSTR in luaconf.h.) +
    • + +
+ + + + +

7.2 - Changes in the Libraries

+
    + +
  • +Function string.gfind was renamed string.gmatch. +(See compile-time option LUA_COMPAT_GFIND in luaconf.h.) +
    • + +
  • +When string.gsub is called with a function as its +third argument, +whenever this function returns nil or false the +replacement string is the whole match, +instead of the empty string. +
    • + +
  • +Function table.setn was deprecated. +Function table.getn corresponds +to the new length operator (#); +use the operator instead of the function. +(See compile-time option LUA_COMPAT_GETN in luaconf.h.) +
    • + +
  • +Function loadlib was renamed package.loadlib. +(See compile-time option LUA_COMPAT_LOADLIB in luaconf.h.) +
    • + +
  • +Function math.mod was renamed math.fmod. +(See compile-time option LUA_COMPAT_MOD in luaconf.h.) +
    • + +
  • +Functions table.foreach and table.foreachi are deprecated. +You can use a for loop with pairs or ipairs instead. +
    • + +
  • +There were substantial changes in function require due to +the new module system. +However, the new behavior is mostly compatible with the old, +but require gets the path from package.path instead +of from LUA_PATH. +
    • + +
  • +Function collectgarbage has different arguments. +Function gcinfo is deprecated; +use collectgarbage("count") instead. +
    • + +
+ + + + +

7.3 - Changes in the API

+
    + +
  • +The luaopen_* functions (to open libraries) +cannot be called directly, +like a regular C function. +They must be called through Lua, +like a Lua function. +
    • + +
  • +Function lua_open was replaced by lua_newstate to +allow the user to set a memory-allocation function. +You can use luaL_newstate from the standard library to +create a state with a standard allocation function +(based on realloc). +
    • + +
  • +Functions luaL_getn and luaL_setn +(from the auxiliary library) are deprecated. +Use lua_objlen instead of luaL_getn +and nothing instead of luaL_setn. +
    • + +
  • +Function luaL_openlib was replaced by luaL_register. +
    • + +
  • +Function luaL_checkudata now throws an error when the given value +is not a userdata of the expected type. +(In Lua 5.0 it returned NULL.) +
    • + +
+ + + + +

8 - The Complete Syntax of Lua

+ +

+Here is the complete syntax of Lua in extended BNF. +(It does not describe operator precedences.) + + + + +

+
+	chunk ::= {stat [`;´]} [laststat [`;´]]
+
+	block ::= chunk
+
+	stat ::=  varlist `=´ explist | 
+		 functioncall | 
+		 do block end | 
+		 while exp do block end | 
+		 repeat block until exp | 
+		 if exp then block {elseif exp then block} [else block] end | 
+		 for Name `=´ exp `,´ exp [`,´ exp] do block end | 
+		 for namelist in explist do block end | 
+		 function funcname funcbody | 
+		 local function Name funcbody | 
+		 local namelist [`=´ explist] 
+
+	laststat ::= return [explist] | break
+
+	funcname ::= Name {`.´ Name} [`:´ Name]
+
+	varlist ::= var {`,´ var}
+
+	var ::=  Name | prefixexp `[´ exp `]´ | prefixexp `.´ Name 
+
+	namelist ::= Name {`,´ Name}
+
+	explist ::= {exp `,´} exp
+
+	exp ::=  nil | false | true | Number | String | `...´ | function | 
+		 prefixexp | tableconstructor | exp binop exp | unop exp 
+
+	prefixexp ::= var | functioncall | `(´ exp `)´
+
+	functioncall ::=  prefixexp args | prefixexp `:´ Name args 
+
+	args ::=  `(´ [explist] `)´ | tableconstructor | String 
+
+	function ::= function funcbody
+
+	funcbody ::= `(´ [parlist] `)´ block end
+
+	parlist ::= namelist [`,´ `...´] | `...´
+
+	tableconstructor ::= `{´ [fieldlist] `}´
+
+	fieldlist ::= field {fieldsep field} [fieldsep]
+
+	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp
+
+	fieldsep ::= `,´ | `;´
+
+	binop ::= `+´ | `-´ | `*´ | `/´ | `^´ | `%´ | `..´ | 
+		 `<´ | `<=´ | `>´ | `>=´ | `==´ | `~=´ | 
+		 and | or
+
+	unop ::= `-´ | not | `#´
+
+
+ +

+ + + + + + + +

+ +Last update: +Mon Feb 13 18:54:19 BRST 2012 + + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/readme.html b/src/3rd party/LuaJIT-1.1.8/doc/readme.html new file mode 100644 index 00000000000..3ed6a81895b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/readme.html @@ -0,0 +1,40 @@ + + +Lua documentation + + + + + +
+

+Lua +Documentation +

+ +This is the documentation included in the source distribution of Lua 5.1.5. + + + +Lua's +official web site +contains updated documentation, +especially the +reference manual. +

+ +

+ +Last update: +Fri Feb 3 09:44:42 BRST 2012 + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h new file mode 100644 index 00000000000..c194cba84bc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h @@ -0,0 +1,68 @@ +/* +** DynASM encoding engine prototypes. +** Copyright (C) 2005-2008 Mike Pall. All rights reserved. +** Released under the MIT/X license. See dynasm.lua for full copyright notice. +*/ + +#ifndef _DASM_PROTO_H +#define _DASM_PROTO_H + +#include +#include + +#define DASM_VERSION 10104 /* 1.1.4 */ + +#ifndef Dst_DECL +#define Dst_DECL dasm_State *Dst +#endif + +#ifndef Dst_GET +#define Dst_GET (Dst) +#endif + +#ifndef DASM_FDEF +#define DASM_FDEF extern +#endif + + +/* Internal DynASM encoder state. */ +typedef struct dasm_State dasm_State; + +/* Action list type. */ +typedef const unsigned char *dasm_ActList; + + +/* Initialize and free DynASM state. */ +DASM_FDEF void dasm_init(Dst_DECL, int maxsection); +DASM_FDEF void dasm_free(Dst_DECL); + +/* Setup global array. Must be called before dasm_setup(). */ +DASM_FDEF void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl); + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +DASM_FDEF void dasm_growpc(Dst_DECL, unsigned int maxpc); + +/* Setup encoder. */ +DASM_FDEF void dasm_setup(Dst_DECL, dasm_ActList actionlist); + +/* Feed encoder with actions. Calls are generated by pre-processor. */ +DASM_FDEF void dasm_put(Dst_DECL, int start, ...); + +/* Link sections and return the resulting size. */ +DASM_FDEF int dasm_link(Dst_DECL, size_t *szp); + +/* Encode sections into buffer. */ +DASM_FDEF int dasm_encode(Dst_DECL, void *buffer); + +/* Get PC label offset. */ +DASM_FDEF int dasm_getpclabel(Dst_DECL, unsigned int pc); + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +DASM_FDEF int dasm_checkstep(Dst_DECL, int secmatch); +#else +#define dasm_checkstep(a, b) 0 +#endif + + +#endif /* _DASM_PROTO_H */ diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h new file mode 100644 index 00000000000..2d4fb26a067 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h @@ -0,0 +1,455 @@ +/* +** DynASM x86 encoding engine. +** Copyright (C) 2005-2008 Mike Pall. All rights reserved. +** Released under the MIT/X license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "x86" + +/* Action definitions. DASM_STOP must be 255. */ +enum { + DASM_DISP = 235, + DASM_IMM_S, DASM_IMM_B, DASM_IMM_W, DASM_IMM_D, DASM_IMM_WB, DASM_IMM_DB, + DASM_SPACE, DASM_SETLABEL, DASM_REL_A, DASM_REL_LG, DASM_REL_PC, DASM_IMM_LG, + DASM_IMM_PC, DASM_LABEL_LG, DASM_LABEL_PC, DASM_ALIGN, DASM_ESC, DASM_MARK, + DASM_SECTION, DASM_STOP +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_UNDEF_L 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, dasm_ActList actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs, mrm = 4; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = sec->bsize/sizeof(int) - DASM_MAXSECPOS + DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + int action = *p++; + if (action < DASM_DISP) { + ofs++; + } else if (action <= DASM_REL_A) { + int n = va_arg(ap, int); + b[pos++] = n; + switch (action) { + case DASM_DISP: + if (n == 0) { if ((mrm&7) == 4) mrm = p[-2]; if ((mrm&7) != 5) break; } + case DASM_IMM_DB: if (((n+128)&-256) == 0) goto ob; + case DASM_REL_A: /* Assumes ptrdiff_t is int. !x64 */ + case DASM_IMM_D: ofs += 4; break; + case DASM_IMM_S: CK(((n+128)&-256) == 0, RANGE_I); goto ob; + case DASM_IMM_B: CK((n&-256) == 0, RANGE_I); ob: ofs++; break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto ob; + case DASM_IMM_W: CK((n&-65536) == 0, RANGE_I); ofs += 2; break; + case DASM_SPACE: p++; ofs += n; break; + case DASM_SETLABEL: b[pos-2] = -0x40000000; break; /* Neg. label ofs. */ + } + mrm = 4; + } else { + int *pl, n; + switch (action) { + case DASM_REL_LG: + case DASM_IMM_LG: + n = *p++; pl = D->lglabels + n; + if (n <= 246) { CKPL(lg, LG); goto putrel; } /* Bkwd rel or global. */ + pl -= 246; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + case DASM_IMM_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + ofs += 4; /* Maximum offset needed. */ + if (action == DASM_REL_LG || action == DASM_REL_PC) + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_LABEL_LG: pl = D->lglabels + *p++; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_ALIGN: + ofs += *p++; /* Maximum alignment needed (arg is 2**n-1). */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_ESC: p++; ofs++; break; + case DASM_MARK: mrm = p[-2]; break; + case DASM_SECTION: + n = *p; CK(n < D->maxsection, RANGE_SEC); D->section = &D->sections[n]; + case DASM_STOP: goto stop; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink branches/aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 10; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + int op, action = *p++; + switch (action) { + case DASM_REL_LG: p++; op = p[-3]; goto rel_pc; + case DASM_REL_PC: op = p[-2]; rel_pc: { + int shrink = op == 0xe9 ? 3 : ((op&0xf0) == 0x80 ? 4 : 0); + if (shrink) { /* Shrinkable branch opcode? */ + int lofs, lpos = b[pos]; + if (lpos < 0) goto noshrink; /* Ext global? */ + lofs = *DASM_POS2PTR(D, lpos); + if (lpos > pos) { /* Fwd label: add cumulative section offsets. */ + int i; + for (i = secnum; i < DASM_POS2SEC(lpos); i++) + lofs += D->sections[i].ofs; + } else { + lofs -= ofs; /* Bkwd label: unfix offset. */ + } + lofs -= b[pos+1]; /* Short branch ok? */ + if (lofs >= -128-shrink && lofs <= 127) ofs -= shrink; /* Yes. */ + else { noshrink: shrink = 0; } /* No, cannot shrink op. */ + } + b[pos+1] = shrink; + pos += 2; + break; + } + case DASM_SPACE: case DASM_IMM_LG: p++; + case DASM_DISP: case DASM_IMM_S: case DASM_IMM_B: case DASM_IMM_W: + case DASM_IMM_D: case DASM_IMM_WB: case DASM_IMM_DB: + case DASM_SETLABEL: case DASM_REL_A: case DASM_IMM_PC: pos++; break; + case DASM_LABEL_LG: p++; + case DASM_LABEL_PC: b[pos++] += ofs; break; /* Fix label offset. */ + case DASM_ALIGN: ofs -= (b[pos++]+ofs)&*p++; break; /* Adjust ofs. */ + case DASM_ESC: p++; + case DASM_MARK: break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#define dasmb(x) *cp++ = (unsigned char)(x) +#ifndef DASM_ALIGNED_WRITES +#define dasmw(x) \ + do { *((unsigned short *)cp) = (unsigned short)(x); cp+=2; } while (0) +#define dasmd(x) \ + do { *((unsigned int *)cp) = (unsigned int)(x); cp+=4; } while (0) +#else +#define dasmw(x) do { dasmb(x); dasmb((x)>>8); } while (0) +#define dasmd(x) do { dasmw(x); dasmw((x)>>16); } while (0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + unsigned char *base = (unsigned char *)buffer; + unsigned char *cp = base; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + unsigned char *mark = NULL; + while (1) { + int action = *p++; + int n = (action >= DASM_DISP && action <= DASM_ALIGN) ? *b++ : 0; + switch (action) { + case DASM_DISP: if (!mark) mark = cp; { + unsigned char *mm = mark; + if (*p != DASM_IMM_DB && *p != DASM_IMM_WB) mark = NULL; + if (n == 0) { int mrm = mm[-1]&7; if (mrm == 4) mrm = mm[0]&7; + if (mrm != 5) { mm[-1] -= 0x80; break; } } + if (((n+128) & -256) != 0) goto wd; else mm[-1] -= 0x40; + } + case DASM_IMM_S: case DASM_IMM_B: wb: dasmb(n); break; + case DASM_IMM_DB: if (((n+128)&-256) == 0) { + db: if (!mark) mark = cp; mark[-2] += 2; mark = NULL; goto wb; + } else mark = NULL; + case DASM_IMM_D: wd: dasmd(n); break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto db; else mark = NULL; + case DASM_IMM_W: dasmw(n); break; + case DASM_REL_LG: p++; if (n >= 0) goto rel_pc; + b++; n = (int)D->globals[-n]; + case DASM_REL_A: rel_a: n -= (int)(cp+4); goto wd; /* !x64 */ + case DASM_REL_PC: rel_pc: { + int shrink = *b++; + int *pb = DASM_POS2PTR(D, n); if (*pb < 0) { n = pb[1]; goto rel_a; } + n = *pb - ((cp-base) + 4-shrink); + if (shrink == 0) goto wd; + if (shrink == 4) { cp--; cp[-1] = *cp-0x10; } else cp[-1] = 0xeb; + goto wb; + } + case DASM_IMM_LG: p++; if (n < 0) { n = (int)D->globals[-n]; goto wd; } + case DASM_IMM_PC: { + int *pb = DASM_POS2PTR(D, n); + n = *pb < 0 ? pb[1] : (*pb + (ptrdiff_t)base); + goto wd; + } + case DASM_LABEL_LG: { + int idx = *p++; + if (idx >= 10) + D->globals[idx] = (void *)(base + (*p == DASM_SETLABEL ? *b : n)); + break; + } + case DASM_LABEL_PC: case DASM_SETLABEL: break; + case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = fill; break; } + case DASM_ALIGN: + n = *p++; + while (((cp-base) & n)) *cp++ = 0x90; /* nop */ + break; + case DASM_MARK: mark = cp; break; + case DASM_ESC: action = *p++; + default: *cp++ = action; break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_L|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua new file mode 100644 index 00000000000..026c3b05321 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua @@ -0,0 +1,1581 @@ +------------------------------------------------------------------------------ +-- DynASM x86 module. +-- +-- Copyright (C) 2005-2008 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "x86", + description = "DynASM x86 (i386) module", + version = "1.1.4", + vernum = 10104, + release = "2008-01-29", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, unpack = assert, unpack +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local find, match, gmatch, gsub = _s.find, _s.match, _s.gmatch, _s.gsub +local concat, sort = table.concat, table.sort +local char, unpack = string.char, unpack + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + -- int arg, 1 buffer pos: + "DISP", "IMM_S", "IMM_B", "IMM_W", "IMM_D", "IMM_WB", "IMM_DB", + -- action arg (1 byte), int arg, 1 buffer pos (num): + "SPACE", + -- ptrdiff_t arg, 1 buffer pos (address): !x64 + "SETLABEL", "REL_A", + -- action arg (1 byte) or int arg, 2 buffer pos (link, offset): + "REL_LG", "REL_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (link): + "IMM_LG", "IMM_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (offset): + "LABEL_LG", "LABEL_PC", + -- action arg (1 byte), 1 buffer pos (offset): + "ALIGN", + -- action arg (1 byte), no buffer pos. + "ESC", + -- no action arg, no buffer pos. + "MARK", + -- action arg (1 byte), no buffer pos, terminal action: + "SECTION", + -- no args, no buffer pos, terminal action: + "STOP" +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number (dynamically generated below). +local map_action = {} +-- First action number. Everything below does not need to be escaped. +local actfirst = 256-#action_names + +-- Action list buffer and string (only used to remove dupes). +local actlist = {} +local actstr = "" + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Compute action numbers for action names. +for n,name in ipairs(action_names) do + local num = actfirst + n - 1 + map_action[name] = num +end + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + local last = actlist[nn] or 255 + actlist[nn] = nil -- Remove last byte. + if nn == 0 then nn = 1 end + out:write("static const unsigned char ", name, "[", nn, "] = {\n") + local s = " " + for n,b in ipairs(actlist) do + s = s..b.."," + if #s >= 75 then + assert(out:write(s, "\n")) + s = " " + end + end + out:write(s, last, "\n};\n\n") -- Add last byte back. +end + +------------------------------------------------------------------------------ + +-- Add byte to action list. +local function wputxb(n) + assert(n >= 0 and n <= 255 and n % 1 == 0, "byte out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, a, num) + wputxb(assert(map_action[action], "bad action name `"..action.."'")) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Add call to embedded DynASM C code. +local function wcall(func, args) + wline(format("dasm_%s(Dst, %s);", func, concat(args, ", ")), true) +end + +-- Delete duplicate action list chunks. A tad slow, but so what. +local function dedupechunk(offset) + local al, as = actlist, actstr + local chunk = char(unpack(al, offset+1, #al)) + local orig = find(as, chunk, 1, true) + if orig then + actargs[1] = orig-1 -- Replace with original offset. + for i=offset+1,#al do al[i] = nil end -- Kill dupe. + else + actstr = as..chunk + end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + local offset = actargs[1] + if #actlist == offset then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + dedupechunk(offset) + wcall("put", actargs) -- Add call to dasm_put(). + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped byte. +local function wputb(n) + if n >= actfirst then waction("ESC") end -- Need to escape byte. + wputxb(n) +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 10 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 246 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=10,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=10,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. +local map_archdef = {} -- Ext. register name -> int. name. +local map_reg_rev = {} -- Int. register name -> ext. name. +local map_reg_num = {} -- Int. register name -> register number. +local map_reg_opsize = {} -- Int. register name -> operand size. +local map_reg_valid_base = {} -- Int. register name -> valid base register? +local map_reg_valid_index = {} -- Int. register name -> valid index register? +local reg_list = {} -- Canonical list of int. register names. + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for _PTx macros). + +local addrsize = "d" -- Size for address operands. !x64 + +-- Helper function to fill register maps. +local function mkrmap(sz, names) + for n,name in ipairs(names) do + local iname = format("@%s%x", sz, n-1) + reg_list[#reg_list+1] = iname + map_archdef[name] = iname + map_reg_rev[iname] = name + map_reg_num[iname] = n-1 + map_reg_opsize[iname] = sz + if sz == addrsize then + map_reg_valid_base[iname] = true + map_reg_valid_index[iname] = true + end + end + reg_list[#reg_list+1] = "" +end + +-- Integer registers (dword, word and byte sized). +mkrmap("d", {"eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"}) +map_reg_valid_index[map_archdef.esp] = nil +mkrmap("w", {"ax", "cx", "dx", "bx", "sp", "bp", "si", "di"}) +mkrmap("b", {"al", "cl", "dl", "bl", "ah", "ch", "dh", "bh"}) + +-- FP registers (internally tword sized, but use "f" as operand size). +mkrmap("f", {"st0", "st1", "st2", "st3", "st4", "st5", "st6", "st7"}) + +-- SSE registers (oword sized, but qword and dword accessible). +mkrmap("o", {"xmm0", "xmm1", "xmm2", "xmm3", "xmm4", "xmm5", "xmm6", "xmm7"}) + +-- Operand size prefixes to codes. +local map_opsize = { + byte = "b", word = "w", dword = "d", qword = "q", oword = "o", tword = "t", + aword = addrsize, +} + +-- Operand size code to number. +local map_opsizenum = { + b = 1, w = 2, d = 4, q = 8, o = 16, t = 10, +} + +-- Operand size code to name. +local map_opsizename = { + b = "byte", w = "word", d = "dword", q = "qword", o = "oword", t = "tword", + f = "fpword", +} + +-- Valid index register scale factors. +local map_xsc = { + ["1"] = 0, ["2"] = 1, ["4"] = 2, ["8"] = 3, +} + +-- Condition codes. +local map_cc = { + o = 0, no = 1, b = 2, nb = 3, e = 4, ne = 5, be = 6, nbe = 7, + s = 8, ns = 9, p = 10, np = 11, l = 12, nl = 13, le = 14, nle = 15, + c = 2, nae = 2, nc = 3, ae = 3, z = 4, nz = 5, na = 6, a = 7, + nge = 12, ge = 13, ng = 14, g = 15, +} + + +-- Reverse defines for registers. +function _M.revdef(s) + return gsub(s, "@%w+", map_reg_rev) +end + +-- Dump register names and numbers +local function dumpregs(out) + out:write("Register names, sizes and internal numbers:\n") + for _,reg in ipairs(reg_list) do + if reg == "" then + out:write("\n") + else + local name = map_reg_rev[reg] + local num = map_reg_num[reg] + local opsize = map_opsizename[map_reg_opsize[reg]] + out:write(format(" %-5s %-8s %d\n", name, opsize, num)) + end + end +end + +------------------------------------------------------------------------------ + +-- Put action for label arg (IMM_LG, IMM_PC, REL_LG, REL_PC). +local function wputlabel(aprefix, imm, num) + if type(imm) == "number" then + waction(aprefix.."LG", nil, num); + wputxb(imm) + else + waction(aprefix.."PC", imm, num) + end +end + +-- Put signed byte or arg. +local function wputsbarg(n) + if type(n) == "number" then + if n < -128 or n > 127 then + werror("signed immediate byte out of range") + end + if n < 0 then n = n + 256 end + wputb(n) + else waction("IMM_S", n) end +end + +-- Put unsigned byte or arg. +local function wputbarg(n) + if type(n) == "number" then + if n < 0 or n > 255 then + werror("unsigned immediate byte out of range") + end + wputb(n) + else waction("IMM_B", n) end +end + +-- Put unsigned word or arg. +local function wputwarg(n) + if type(n) == "number" then + if n < 0 or n > 65535 then + werror("unsigned immediate word out of range") + end + local r = n%256; n = (n-r)/256; wputb(r); wputb(n); + else waction("IMM_W", n) end +end + +-- Put signed or unsigned dword or arg. +local function wputdarg(n) + local tn = type(n) + if tn == "number" then + if n < 0 then n = n + 4294967296 end + local r = n%256; n = (n-r)/256; wputb(r); + r = n%256; n = (n-r)/256; wputb(r); + r = n%256; n = (n-r)/256; wputb(r); wputb(n); + elseif tn == "table" then + wputlabel("IMM_", n[1], 1) + else + waction("IMM_D", n) + end +end + +-- Put operand-size dependent number or arg (defaults to dword). +local function wputszarg(sz, n) + if not sz or sz == "d" then wputdarg(n) + elseif sz == "w" then wputwarg(n) + elseif sz == "b" then wputbarg(n) + elseif sz == "s" then wputsbarg(n) + else werror("bad operand size") end +end + +-- Put multi-byte opcode with operand-size dependent modifications. +local function wputop(sz, op) + local r + if sz == "w" then wputb(102) end + if op >= 16777216 then r = op % 16777216 wputb((op-r) / 16777216) op = r end + if op >= 65536 then r = op % 65536 wputb((op-r) / 65536) op = r end + if op >= 256 then r = op % 256 wputb((op-r) / 256) op = r end + if sz == "b" then op = op - 1 end + wputb(op) +end + +-- Put ModRM or SIB formatted byte. +local function wputmodrm(m, s, rm) + assert(m < 4 and s < 8 and rm < 8, "bad modrm operands") + wputb(64*m + 8*s + rm) +end + +-- Put ModRM/SIB plus optional displacement. +local function wputmrmsib(t, s, imark) + -- Register mode. + if sub(t.mode, 1, 1) == "r" then + wputmodrm(3, s, t.reg) + return + end + + local disp = t.disp + local tdisp = type(disp) + -- No base register? + if not t.reg then + if t.xreg then + -- Indexed mode with index register only. + wputmodrm(0, s, 4) -- [xreg*xsc+disp] -> (0, s, esp) (xsc, xreg, ebp) + wputmodrm(t.xsc, t.xreg, 5) + else + -- Pure displacement. + wputmodrm(0, s, 5) -- [disp] -> (0, s, ebp) + end + wputdarg(disp) + return + end + + local m + if tdisp == "number" then -- Check displacement size at assembly time. + if disp == 0 and t.reg ~= 5 then m = 0 -- [ebp] -> [ebp+0] (in SIB, too) + elseif disp >= -128 and disp <= 127 then m = 1 + else m = 2 end + elseif tdisp == "table" then + m = 2 + end + + -- Index register present or esp as base register: need SIB encoding. + if t.xreg or t.reg == 4 then + wputmodrm(m or 2, s, 4) -- ModRM. + if (m == nil or imark) and tdisp ~= "table" then waction("MARK") end + wputmodrm(t.xsc or 0, t.xreg or 4, t.reg) -- SIB. + else + wputmodrm(m or 2, s, t.reg) -- ModRM. + if imark and (m == 1 or m == 2) then waction("MARK") end + end + + -- Put displacement. + if m == 1 then wputsbarg(disp) + elseif m == 2 then wputdarg(disp) + elseif not m then waction("DISP", disp) end +end + +------------------------------------------------------------------------------ + +-- Return human-readable operand mode string. +local function opmodestr(op, args) + local m = {} + for i=1,#args do + local a = args[i] + m[#m+1] = sub(a.mode, 1, 1)..(a.opsize or "?") + end + return op.." "..concat(m, ",") +end + +-- Convert number to valid integer or nil. +local function toint(expr) + local n = tonumber(expr) + if n then + if n % 1 ~= 0 or n < -2147483648 or n > 4294967295 then + werror("bad integer number `"..expr.."'") + end + return n + end +end + +-- Parse immediate expression. +local function immexpr(expr) + -- &expr (pointer) + if sub(expr, 1, 1) == "&" then + return "iPJ", format("(ptrdiff_t)(%s)", sub(expr,2)) + end + + local prefix = sub(expr, 1, 2) + -- =>expr (pc label reference) + if prefix == "=>" then + return "iJ", sub(expr, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "iJ", map_global[sub(expr, 3)] + end + + -- [<>][1-9] (local label reference) + local dir, lnum = match(expr, "^([<>])([1-9])$") + if dir then -- Fwd: 247-255, Bkwd: 1-9. + return "iJ", lnum + (dir == ">" and 246 or 0) + end + + -- expr (interpreted as immediate) + return "iI", expr +end + +-- Parse displacement expression: +-num, +-expr, +-opsize*num +local function dispexpr(expr) + local disp = expr == "" and 0 or toint(expr) + if disp then return disp end + local c, dispt = match(expr, "^([+-])%s*(.+)$") + if c == "+" then + expr = dispt + elseif not c then + werror("bad displacement expression `"..expr.."'") + end + local opsize, tailops = match(dispt, "^(%w+)%s*%*%s*(.+)$") + local ops, imm = map_opsize[opsize], toint(tailops) + if ops and imm then + if c == "-" then imm = -imm end + return imm*map_opsizenum[ops] + end + local mode, iexpr = immexpr(dispt) + if mode == "iJ" then + if c == "-" then werror("cannot invert label reference") end + return { iexpr } + end + return expr -- Need to return original signed expression. +end + +-- Parse register or type expression. +local function rtexpr(expr) + if not expr then return end + local tname, ovreg = match(expr, "^([%w_]+):(@[%w_]+)$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + local rnum = map_reg_num[reg] + if not rnum then + werror("type `"..(tname or expr).."' needs a register override") + end + if not map_reg_valid_base[reg] then + werror("bad base register override `"..(map_reg_rev[reg] or reg).."'") + end + return reg, rnum, tp + end + return expr, map_reg_num[expr] +end + +-- Parse operand and return { mode, opsize, reg, xreg, xsc, disp, imm }. +local function parseoperand(param) + local t = {} + + local expr = param + local opsize, tailops = match(param, "^(%w+)%s*(.+)$") + if opsize then + t.opsize = map_opsize[opsize] + if t.opsize then expr = tailops end + end + + local br = match(expr, "^%[%s*(.-)%s*%]$") + repeat + if br then + t.mode = "xm" + + -- [disp] + t.disp = toint(br) + if t.disp then + t.mode = "xmO" + break + end + + -- [reg...] + local tp + local reg, tailr = match(br, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if not t.reg then + -- [expr] + t.mode = "xmO" + t.disp = dispexpr("+"..br) + break + end + + -- [xreg*xsc] or [xreg*xsc+-disp] or [xreg*xsc+-expr] + local xsc, tailsc = match(tailr, "^%*%s*([1248])%s*(.*)$") + if xsc then + if not map_reg_valid_index[reg] then + werror("bad index register `"..map_reg_rev[reg].."'") + end + t.xsc = map_xsc[xsc] + t.xreg = t.reg + t.reg = nil + t.disp = dispexpr(tailsc) + break + end + if not map_reg_valid_base[reg] then + werror("bad base register `"..map_reg_rev[reg].."'") + end + + -- [reg] or [reg+-disp] + t.disp = toint(tailr) or (tailr == "" and 0) + if t.disp then break end + + -- [reg+xreg...] + local xreg, tailx = match(tailr, "^+%s*([@%w_:]+)%s*(.*)$") + xreg, t.xreg, tp = rtexpr(xreg) + if not t.xreg then + -- [reg+-expr] + t.disp = dispexpr(tailr) + break + end + if not map_reg_valid_index[xreg] then + werror("bad index register `"..map_reg_rev[xreg].."'") + end + + -- [reg+xreg*xsc...] + local xsc, tailsc = match(tailx, "^%*%s*([1248])%s*(.*)$") + if xsc then + t.xsc = map_xsc[xsc] + tailx = tailsc + end + + -- [...] or [...+-disp] or [...+-expr] + t.disp = dispexpr(tailx) + else + -- imm or opsize*imm + local imm = toint(expr) + if not imm and sub(expr, 1, 1) == "*" and t.opsize then + imm = toint(sub(expr, 2)) + if imm then + imm = imm * map_opsizenum[t.opsize] + t.opsize = nil + end + end + if imm then + if t.opsize then werror("bad operand size override") end + local m = "i" + if imm == 1 then m = m.."1" end + if imm >= 4294967168 and imm <= 4294967295 then imm = imm-4294967296 end + if imm >= -128 and imm <= 127 then m = m.."S" end + t.imm = imm + t.mode = m + break + end + + local tp + local reg, tailr = match(expr, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if t.reg then + -- reg + if tailr == "" then + if t.opsize then werror("bad operand size override") end + t.opsize = map_reg_opsize[reg] + if t.opsize == "f" then + t.mode = t.reg == 0 and "fF" or "f" + else + if reg == "@w4" then wwarn("bad idea, try again with `esp'") end + t.mode = t.reg == 0 and "rmR" or (reg == "@b1" and "rmC" or "rm") + end + break + end + + -- type[idx], type[idx].field, type->field -> [reg+offset_expr] + if not tp then werror("bad operand `"..param.."'") end + t.mode = "xm" + t.disp = format(tp.ctypefmt, tailr) + else + t.mode, t.imm = immexpr(expr) + if sub(t.mode, -1) == "J" then + if t.opsize and t.opsize ~= addrsize then + werror("bad operand size override") + end + t.opsize = addrsize + end + end + end + until true + return t +end + +------------------------------------------------------------------------------ +-- x86 Template String Description +-- =============================== +-- +-- Each template string is a list of [match:]pattern pairs, +-- separated by "|". The first match wins. No match means a +-- bad or unsupported combination of operand modes or sizes. +-- +-- The match part and the ":" is omitted if the operation has +-- no operands. Otherwise the first N characters are matched +-- against the mode strings of each of the N operands. +-- +-- The mode string for each operand type is (see parseoperand()): +-- Integer register: "rm", +"R" for eax, ax, al, +"C" for cl +-- FP register: "f", +"F" for st0 +-- Index operand: "xm", +"O" for [disp] (pure offset) +-- Immediate: "i", +"S" for signed 8 bit, +"1" for 1, +-- +"I" for arg, +"P" for pointer +-- Any: +"J" for valid jump targets +-- +-- So a match character "m" (mixed) matches both an integer register +-- and an index operand (to be encoded with the ModRM/SIB scheme). +-- But "r" matches only a register and "x" only an index operand +-- (e.g. for FP memory access operations). +-- +-- The operand size match string starts right after the mode match +-- characters and ends before the ":". "dwb" is assumed, if empty. +-- The effective data size of the operation is matched against this list. +-- +-- If only the regular "b", "w", "d", "q", "t" operand sizes are +-- present, then all operands must be the same size. Unspecified sizes +-- are ignored, but at least one operand must have a size or the pattern +-- won't match (use the "byte", "word", "dword", "qword", "tword" +-- operand size overrides. E.g.: mov dword [eax], 1). +-- +-- If the list has a "1" or "2" prefix, the operand size is taken +-- from the respective operand and any other operand sizes are ignored. +-- If the list contains only ".", all operand sizes are ignored. +-- If the list has a "/" prefix, the concatenated (mixed) operand sizes +-- are compared to the match. +-- +-- E.g. "rrdw" matches for either two dword registers or two word +-- registers. "Fx2dq" matches an st0 operand plus an index operand +-- pointing to a dword (float) or qword (double). +-- +-- Every character after the ":" is part of the pattern string: +-- Hex chars are accumulated to form the opcode (left to right). +-- "n" disables the standard opcode mods +-- (otherwise: -1 for "b", o16 prefix for "w") +-- "r"/"R" adds the reg. number from the 1st/2nd operand to the opcode. +-- "m"/"M" generates ModRM/SIB from the 1st/2nd operand. +-- The spare 3 bits are either filled with the last hex digit or +-- the result from a previous "r"/"R". The opcode is restored. +-- +-- All of the following characters force a flush of the opcode: +-- "o"/"O" stores a pure 32 bit disp (offset) from the 1st/2nd operand. +-- "S" stores a signed 8 bit immediate from the last operand. +-- "U" stores an unsigned 8 bit immediate from the last operand. +-- "W" stores an unsigned 16 bit immediate from the last operand. +-- "i" stores an operand sized immediate from the last operand. +-- "I" dito, but generates an action code to optionally modify +-- the opcode (+2) for a signed 8 bit immediate. +-- "J" generates one of the REL action codes from the last operand. +-- +------------------------------------------------------------------------------ + +-- Template strings for x86 instructions. Ordered by first opcode byte. +-- Unimplemented opcodes (deliberate omissions) are marked with *. +local map_op = { + -- 00-05: add... + -- 06: *push es + -- 07: *pop es + -- 08-0D: or... + -- 0E: *push cs + -- 0F: two byte opcode prefix + -- 10-15: adc... + -- 16: *push ss + -- 17: *pop ss + -- 18-1D: sbb... + -- 1E: *push ds + -- 1F: *pop ds + -- 20-25: and... + es_0 = "26", + -- 27: *daa + -- 28-2D: sub... + cs_0 = "2E", + -- 2F: *das + -- 30-35: xor... + ss_0 = "36", + -- 37: *aaa + -- 38-3D: cmp... + ds_0 = "3E", + -- 3F: *aas + inc_1 = "rdw:40r|m:FF0m", + dec_1 = "rdw:48r|m:FF1m", + push_1 = "rdw:50r|mdw:FF6m|S.:6AS|ib:n6Ai|i.:68i", + pop_1 = "rdw:58r|mdw:8F0m", + -- 60: *pusha, *pushad, *pushaw + -- 61: *popa, *popad, *popaw + -- 62: *bound rdw,x + -- 63: *arpl mw,rw + fs_0 = "64", + gs_0 = "65", + o16_0 = "66", + a16_0 = "67", + -- 68: push idw + -- 69: imul rdw,mdw,idw + -- 6A: push ib + -- 6B: imul rdw,mdw,S + -- 6C: *insb + -- 6D: *insd, *insw + -- 6E: *outsb + -- 6F: *outsd, *outsw + -- 70-7F: jcc lb + -- 80: add... mb,i + -- 81: add... mdw,i + -- 82: *undefined + -- 83: add... mdw,S + test_2 = "mr:85Rm|rm:85rM|Ri:A9i|mi:F70mi", + -- 86: xchg rb,mb + -- 87: xchg rdw,mdw + -- 88: mov mb,r + -- 89: mov mdw,r + -- 8A: mov r,mb + -- 8B: mov r,mdw + -- 8C: *mov mdw,seg + lea_2 = "rxd:8DrM", + -- 8E: *mov seg,mdw + -- 8F: pop mdw + nop_0 = "90", + xchg_2 = "Rrdw:90R|rRdw:90r|rm:87rM|mr:87Rm", + cbw_0 = "6698", + cwde_0 = "98", + cwd_0 = "6699", + cdq_0 = "99", + -- 9A: *call iw:idw + wait_0 = "9B", + fwait_0 = "9B", + pushf_0 = "9C", + pushfw_0 = "669C", + pushfd_0 = "9C", + popf_0 = "9D", + popfw_0 = "669D", + popfd_0 = "9D", + sahf_0 = "9E", + lahf_0 = "9F", + mov_2 = "OR:A3o|RO:A1O|mr:89Rm|rm:8BrM|rib:nB0ri|ridw:B8ri|mi:C70mi", + movsb_0 = "A4", + movsw_0 = "66A5", + movsd_0 = "A5", + cmpsb_0 = "A6", + cmpsw_0 = "66A7", + cmpsd_0 = "A7", + -- A8: test Rb,i + -- A9: test Rdw,i + stosb_0 = "AA", + stosw_0 = "66AB", + stosd_0 = "AB", + lodsb_0 = "AC", + lodsw_0 = "66AD", + lodsd_0 = "AD", + scasb_0 = "AE", + scasw_0 = "66AF", + scasd_0 = "AF", + -- B0-B7: mov rb,i + -- B8-BF: mov rdw,i + -- C0: rol... mb,i + -- C1: rol... mdw,i + ret_1 = "i.:nC2W", + ret_0 = "C3", + -- C4: *les rdw,mq + -- C5: *lds rdw,mq + -- C6: mov mb,i + -- C7: mov mdw,i + -- C8: *enter iw,ib + leave_0 = "C9", + -- CA: *retf iw + -- CB: *retf + int3_0 = "CC", + int_1 = "i.:nCDU", + into_0 = "CE", + -- CF: *iret + -- D0: rol... mb,1 + -- D1: rol... mdw,1 + -- D2: rol... mb,cl + -- D3: rol... mb,cl + -- D4: *aam ib + -- D5: *aad ib + -- D6: *salc + -- D7: *xlat + -- D8-DF: floating point ops + -- E0: *loopne + -- E1: *loope + -- E2: *loop + -- E3: *jcxz, *jecxz + -- E4: *in Rb,ib + -- E5: *in Rdw,ib + -- E6: *out ib,Rb + -- E7: *out ib,Rdw + call_1 = "md:FF2m|J.:E8J", + jmp_1 = "md:FF4m|J.:E9J", -- short: EB + -- EA: *jmp iw:idw + -- EB: jmp ib + -- EC: *in Rb,dx + -- ED: *in Rdw,dx + -- EE: *out dx,Rb + -- EF: *out dx,Rdw + -- F0: *lock + int1_0 = "F1", + repne_0 = "F2", + repnz_0 = "F2", + rep_0 = "F3", + repe_0 = "F3", + repz_0 = "F3", + -- F4: *hlt + cmc_0 = "F5", + -- F6: test... mb,i; div... mb + -- F7: test... mdw,i; div... mdw + clc_0 = "F8", + stc_0 = "F9", + -- FA: *cli + cld_0 = "FC", + std_0 = "FD", + -- FE: inc... mb + -- FF: inc... mdw + + -- misc ops + not_1 = "m:F72m", + neg_1 = "m:F73m", + mul_1 = "m:F74m", + imul_1 = "m:F75m", + div_1 = "m:F76m", + idiv_1 = "m:F77m", + + imul_2 = "rmdw:0FAFrM|rIdw:69rmI|rSdw:6BrmS|ridw:69rmi", + imul_3 = "rmIdw:69rMI|rmSdw:6BrMS|rmidw:69rMi", + + movzx_2 = "rm/db:0FB6rM|rm/wb:0FB6rM|rm/dw:0FB7rM", + movsx_2 = "rm/db:0FBErM|rm/wb:0FBErM|rm/dw:0FBFrM", + + bswap_1 = "rd:0FC8r", + bsf_2 = "rmdw:0FBCrM", + bsr_2 = "rmdw:0FBDrM", + bt_2 = "mrdw:0FA3Rm|midw:0FBA4mU", + btc_2 = "mrdw:0FBBRm|midw:0FBA7mU", + btr_2 = "mrdw:0FB3Rm|midw:0FBA6mU", + bts_2 = "mrdw:0FABRm|midw:0FBA5mU", + + rdtsc_0 = "0F31", -- P1+ + cpuid_0 = "0FA2", -- P1+ + + -- floating point ops + fst_1 = "ff:DDD0r|xd:D92m|xq:DD2m", + fstp_1 = "ff:DDD8r|xd:D93m|xq:DD3m|xt:DB7m", + fld_1 = "ff:D9C0r|xd:D90m|xq:DD0m|xt:DB5m", + + fpop_0 = "DDD8", -- Alias for fstp st0. + + fist_1 = "xw:nDF2m|xd:DB2m", + fistp_1 = "xw:nDF3m|xd:DB3m|xq:DF7m", + fisttp_1 = "xw:nDF1m|xd:DB1m|xq:DD1m", -- SSE3 + fild_1 = "xw:nDF0m|xd:DB0m|xq:DF5m", + + fxch_0 = "D9C9", + fxch_1 = "ff:D9C8r", + fxch_2 = "fFf:D9C8r|Fff:D9C8R", + + fucom_1 = "ff:DDE0r", + fucom_2 = "Fff:DDE0R", + fucomp_1 = "ff:DDE8r", + fucomp_2 = "Fff:DDE8R", + fucomi_1 = "ff:DBE8r", -- P6+ + fucomi_2 = "Fff:DBE8R", -- P6+ + fucomip_1 = "ff:DFE8r", -- P6+ + fucomip_2 = "Fff:DFE8R", -- P6+ + fcomi_1 = "ff:DBF0r", -- P6+ + fcomi_2 = "Fff:DBF0R", -- P6+ + fcomip_1 = "ff:DFF0r", -- P6+ + fcomip_2 = "Fff:DFF0R", -- P6+ + fucompp_0 = "DAE9", + fcompp_0 = "DED9", + + fldcw_1 = "xw:nD95m", + fstcw_1 = "xw:n9BD97m", + fnstcw_1 = "xw:nD97m", + fstsw_1 = "Rw:n9BDFE0|xw:n9BDD7m", + fnstsw_1 = "Rw:nDFE0|xw:nDD7m", + fclex_0 = "9BDBE2", + fnclex_0 = "DBE2", + + fnop_0 = "D9D0", + -- D9D1-D9DF: unassigned + + fchs_0 = "D9E0", + fabs_0 = "D9E1", + -- D9E2: unassigned + -- D9E3: unassigned + ftst_0 = "D9E4", + fxam_0 = "D9E5", + -- D9E6: unassigned + -- D9E7: unassigned + fld1_0 = "D9E8", + fldl2t_0 = "D9E9", + fldl2e_0 = "D9EA", + fldpi_0 = "D9EB", + fldlg2_0 = "D9EC", + fldln2_0 = "D9ED", + fldz_0 = "D9EE", + -- D9EF: unassigned + + f2xm1_0 = "D9F0", + fyl2x_0 = "D9F1", + fptan_0 = "D9F2", + fpatan_0 = "D9F3", + fxtract_0 = "D9F4", + fprem1_0 = "D9F5", + fdecstp_0 = "D9F6", + fincstp_0 = "D9F7", + fprem_0 = "D9F8", + fyl2xp1_0 = "D9F9", + fsqrt_0 = "D9FA", + fsincos_0 = "D9FB", + frndint_0 = "D9FC", + fscale_0 = "D9FD", + fsin_0 = "D9FE", + fcos_0 = "D9FF", + + -- SSE, SSE2, SSE3, SSSE3 ops + addsubpd_2 = "rmo:660FD0rM", + addsubps_2 = "rmo:F20FD0rM", + andnpd_2 = "rmo:660F55rM", + andnps_2 = "rmo:0F55rM", + andpd_2 = "rmo:660F54rM", + andps_2 = "rmo:0F54rM", + clflush_1 = "x.:0FAE7m", + cmppd_3 = "rmio:660FC2rMU", + cmpps_3 = "rmio:0FC2rMU", + cmpsd_3 = "rmio:F20FC2rMU", + cmpss_3 = "rmio:F30FC2rMU", + comisd_2 = "rmo:660F2FrM", + comiss_2 = "rmo:0F2FrM", + cvtdq2pd_2 = "rro:F30FE6rM|rx/oq:", + cvtdq2ps_2 = "rmo:0F5BrM", + cvtpd2dq_2 = "rmo:F20FE6rM", + cvtpd2ps_2 = "rmo:660F5ArM", + cvtpi2pd_2 = "rx/oq:660F2ArM", + cvtpi2ps_2 = "rx/oq:0F2ArM", + cvtps2dq_2 = "rmo:660F5BrM", + cvtps2pd_2 = "rro:0F5ArM|rx/oq:", + cvtsd2si_2 = "rr/do:F20F2DrM|rx/dq:", + cvtsd2ss_2 = "rro:F20F5ArM|rx/oq:", + cvtsi2sd_2 = "rm/od:F20F2ArM", + cvtsi2ss_2 = "rm/od:F30F2ArM", + cvtss2sd_2 = "rro:F30F5ArM|rx/od:", + cvtss2si_2 = "rr/do:F20F2CrM|rx/dd:", + cvttpd2dq_2 = "rmo:660FE6rM", + cvttps2dq_2 = "rmo:F30F5BrM", + cvttsd2si_2 = "rr/do:F20F2CrM|rx/dq:", + cvttss2si_2 = "rr/do:F30F2CrM|rx/dd:", + haddpd_2 = "rmo:660F7CrM", + haddps_2 = "rmo:F20F7CrM", + hsubpd_2 = "rmo:660F7DrM", + hsubps_2 = "rmo:F20F7DrM", + lddqu_2 = "rxo:F20FF0rM", + ldmxcsr_1 = "xd:0FAE2m", + lfence_0 = "0FAEE8", + maskmovdqu_2 = "rro:660FF7rM", + mfence_0 = "0FAEF0", + movapd_2 = "rmo:660F28rM|mro:660F29Rm", + movaps_2 = "rmo:0F28rM|mro:0F29Rm", + movd_2 = "rm/od:660F6ErM|mr/do:660F7ERm", + movddup_2 = "rmo:F20F12rM", + movdqa_2 = "rmo:660F6FrM|mro:660F7FRm", + movdqu_2 = "rmo:F30F6FrM|mro:F30F7FRm", + movhlps_2 = "rro:0F12rM", + movhpd_2 = "rx/oq:660F16rM|xr/qo:660F17Rm", + movhps_2 = "rx/oq:0F16rM|xr/qo:0F17Rm", + movlhps_2 = "rro:0F16rM", + movlpd_2 = "rx/oq:660F12rM|xr/qo:660F13Rm", + movlps_2 = "rx/oq:0F12rM|xr/qo:0F13Rm", + movmskpd_2 = "rr/do:660F50rM", + movmskps_2 = "rr/do:0F50rM", + movntdq_2 = "xro:660FE7Rm", + movnti_2 = "xrd:0FC3Rm", + movntpd_2 = "xro:660F2BRm", + movntps_2 = "xro:0F2BRm", + movq_2 = "rro:F30F7ErM|rx/oq:|xr/qo:660FD6Rm", + movsd_2 = "rro:F20F10rM|rx/oq:|xr/qo:F20F11Rm", + movshdup_2 = "rmo:F30F16rM", + movsldup_2 = "rmo:F30F12rM", + movss_2 = "rro:F30F10rM|rx/od:|xr/do:F30F11Rm", + movupd_2 = "rmo:660F10rM|mro:660F11Rm", + movups_2 = "rmo:0F10rM|mro:0F11Rm", + orpd_2 = "rmo:660F56rM", + orps_2 = "rmo:0F56rM", + pabsb_2 = "rmo:660F381CrM", + pabsd_2 = "rmo:660F381ErM", + pabsw_2 = "rmo:660F381DrM", + packssdw_2 = "rmo:660F6BrM", + packsswb_2 = "rmo:660F63rM", + packuswb_2 = "rmo:660F67rM", + paddb_2 = "rmo:660FFCrM", + paddd_2 = "rmo:660FFErM", + paddq_2 = "rmo:660FD4rM", + paddsb_2 = "rmo:660FECrM", + paddsw_2 = "rmo:660FEDrM", + paddusb_2 = "rmo:660FDCrM", + paddusw_2 = "rmo:660FDDrM", + paddw_2 = "rmo:660FFDrM", + palignr_3 = "rmio:660F3A0FrMU", + pand_2 = "rmo:660FDBrM", + pandn_2 = "rmo:660FDFrM", + pause_0 = "F390", + pavgb_2 = "rmo:660FE0rM", + pavgw_2 = "rmo:660FE3rM", + pcmpeqb_2 = "rmo:660F74rM", + pcmpeqd_2 = "rmo:660F76rM", + pcmpeqw_2 = "rmo:660F75rM", + pcmpgtb_2 = "rmo:660F64rM", + pcmpgtd_2 = "rmo:660F66rM", + pcmpgtw_2 = "rmo:660F65rM", + pextrw_3 = "rri/do:660FC5rMU", + phaddd_2 = "rmo:660F3802rM", + phaddsw_2 = "rmo:660F3803rM", + phaddw_2 = "rmo:660F3801rM", + phsubd_2 = "rmo:660F3806rM", + phsubsw_2 = "rmo:660F3807rM", + phsubw_2 = "rmo:660F3805rM", + pinsrw_3 = "rri/od:660FC4rMU|rmi/ow:", + pmaddubsw_2 = "rmo:660F3804rM", + pmaddwd_2 = "rmo:660FF5rM", + pmaxsw_2 = "rmo:660FEErM", + pmaxub_2 = "rmo:660FDErM", + pminsw_2 = "rmo:660FEArM", + pminub_2 = "rmo:660FDArM", + pmovmskb_2 = "rr/do:660FD7rM", + pmulhrsw_2 = "rmo:660F380BrM", + pmulhuw_2 = "rmo:660FE4rM", + pmulhw_2 = "rmo:660FE5rM", + pmullw_2 = "rmo:660FD5rM", + pmuludq_2 = "rmo:660FF4rM", + por_2 = "rmo:660FEBrM", + prefetchnta_1 = "xb:n0F180m", + prefetcht0_1 = "xb:n0F181m", + prefetcht1_1 = "xb:n0F182m", + prefetcht2_1 = "xb:n0F183m", + psadbw_2 = "rmo:660FF6rM", + pshufb_2 = "rmo:660F3800rM", + pshufd_3 = "rmio:660F70rMU", + pshufhw_3 = "rmio:F30F70rMU", + pshuflw_3 = "rmio:F20F70rMU", + psignb_2 = "rmo:660F3808rM", + psignd_2 = "rmo:660F380ArM", + psignw_2 = "rmo:660F3809rM", + pslld_2 = "rmo:660FF2rM|rio:660F726mU", + pslldq_2 = "rio:660F737mU", + psllq_2 = "rmo:660FF3rM|rio:660F736mU", + psllw_2 = "rmo:660FF1rM|rio:660F716mU", + psrad_2 = "rmo:660FE2rM|rio:660F724mU", + psraw_2 = "rmo:660FE1rM|rio:660F714mU", + psrld_2 = "rmo:660FD2rM|rio:660F722mU", + psrldq_2 = "rio:660F733mU", + psrlq_2 = "rmo:660FD3rM|rio:660F732mU", + psrlw_2 = "rmo:660FD1rM|rio:660F712mU", + psubb_2 = "rmo:660FF8rM", + psubd_2 = "rmo:660FFArM", + psubq_2 = "rmo:660FFBrM", + psubsb_2 = "rmo:660FE8rM", + psubsw_2 = "rmo:660FE9rM", + psubusb_2 = "rmo:660FD8rM", + psubusw_2 = "rmo:660FD9rM", + psubw_2 = "rmo:660FF9rM", + punpckhbw_2 = "rmo:660F68rM", + punpckhdq_2 = "rmo:660F6ArM", + punpckhqdq_2 = "rmo:660F6DrM", + punpckhwd_2 = "rmo:660F69rM", + punpcklbw_2 = "rmo:660F60rM", + punpckldq_2 = "rmo:660F62rM", + punpcklqdq_2 = "rmo:660F6CrM", + punpcklwd_2 = "rmo:660F61rM", + pxor_2 = "rmo:660FEFrM", + rcpps_2 = "rmo:0F53rM", + rcpss_2 = "rmo:F30F53rM", + rsqrtps_2 = "rmo:0F52rM", + rsqrtss_2 = "rmo:F30F52rM", + sfence_0 = "0FAEF8", + shufpd_3 = "rmio:660FC6rMU", + shufps_3 = "rmio:0FC6rMU", + stmxcsr_1 = "xd:0FAE3m", + ucomisd_2 = "rmo:660F2ErM", + ucomiss_2 = "rmo:0F2ErM", + unpckhpd_2 = "rmo:660F15rM", + unpckhps_2 = "rmo:0F15rM", + unpcklpd_2 = "rmo:660F14rM", + unpcklps_2 = "rmo:0F14rM", + xorpd_2 = "rmo:660F57rM", + xorps_2 = "rmo:0F57rM", +} + +------------------------------------------------------------------------------ + +-- Arithmetic ops. +for name,n in pairs{ add = 0, ["or"] = 1, adc = 2, sbb = 3, + ["and"] = 4, sub = 5, xor = 6, cmp = 7 } do + local n8 = n * 8 + map_op[name.."_2"] = format( + "mr:%02XRm|rm:%02XrM|mI1dw:81%XmI|mS1dw:83%XmS|Ri1dwb:%02Xi|mi1dwb:81%Xmi", + 1+n8, 3+n8, n, n, 5+n8, n) +end + +-- Shift ops. +for name,n in pairs{ rol = 0, ror = 1, rcl = 2, rcr = 3, + shl = 4, shr = 5, sar = 7, sal = 4 } do + map_op[name.."_2"] = format("m1:D1%Xm|mC1dwb:D3%Xm|mi:C1%XmU", n, n, n) +end + +-- Conditional ops. +for cc,n in pairs(map_cc) do + map_op["j"..cc.."_1"] = format("J.:0F8%XJ", n) -- short: 7%X + map_op["set"..cc.."_1"] = format("mb:n0F9%X2m", n) + map_op["cmov"..cc.."_2"] = format("rmdw:0F4%XrM", n) -- P6+ +end + +-- FP arithmetic ops. +for name,n in pairs{ add = 0, mul = 1, com = 2, comp = 3, + sub = 4, subr = 5, div = 6, divr = 7 } do + local nc = 192 + n * 8 + local nr = nc + (n < 4 and 0 or (n % 2 == 0 and 8 or -8)) + local fn = "f"..name + map_op[fn.."_1"] = format("ff:D8%02Xr|xd:D8%Xm|xq:DC%Xm", nc, n, n) + if n == 2 or n == 3 then + map_op[fn.."_2"] = format("Fff:D8%02XR|Fx2d:D8%XM|Fx2q:DC%XM", nc, n, n) + else + map_op[fn.."_2"] = format("Fff:D8%02XR|fFf:DC%02Xr|Fx2d:D8%XM|Fx2q:DC%XM", nc, nr, n, n) + map_op[fn.."p_1"] = format("ff:DE%02Xr", nr) + map_op[fn.."p_2"] = format("fFf:DE%02Xr", nr) + end + map_op["fi"..name.."_1"] = format("xd:DA%Xm|xw:nDE%Xm", n, n) +end + +-- FP conditional moves. +for cc,n in pairs{ b=0, e=1, be=2, u=3, nb=4, ne=5, nbe=6, nu=7 } do + local n4 = n % 4 + local nc = 56000 + n4 * 8 + (n-n4) * 64 + map_op["fcmov"..cc.."_1"] = format("ff:%04Xr", nc) -- P6+ + map_op["fcmov"..cc.."_2"] = format("Fff:%04XR", nc) -- P6+ +end + +-- SSE FP arithmetic ops. +for name,n in pairs{ sqrt = 1, add = 8, mul = 9, + sub = 12, min = 13, div = 14, max = 15 } do + map_op[name.."ps_2"] = format("rmo:0F5%XrM", n) + map_op[name.."ss_2"] = format("rro:F30F5%XrM|rx/od:", n) + map_op[name.."pd_2"] = format("rmo:660F5%XrM", n) + map_op[name.."sd_2"] = format("rro:F20F5%XrM|rx/oq:", n) +end + +------------------------------------------------------------------------------ + +-- Process pattern string. +local function dopattern(pat, args, sz, op) + local digit, addin + local opcode = 0 + local szov = sz + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 2 positions. !x64 + if secpos+2 > maxsecpos then wflush() end + + -- Process each character. + for c in gmatch(pat, ".") do + if match(c, "%x") then -- Hex digit. + digit = byte(c) - 48 + if digit > 48 then digit = digit - 39 + elseif digit > 16 then digit = digit - 7 end + opcode = opcode*16 + digit + addin = nil + elseif c == "n" then -- Disable operand size mods for opcode. + szov = nil + elseif c == "r" then -- Merge 1st operand regno. into opcode. + addin = args[1].reg; opcode = opcode + addin + elseif c == "R" then -- Merge 2nd operand regno. into opcode. + addin = args[2].reg; opcode = opcode + addin + elseif c == "m" or c == "M" then -- Encode ModRM/SIB. + if addin then + opcode = opcode - addin -- Undo regno opcode merge. + else + addin = opcode % 16 -- Undo last digit. + opcode = (opcode - addin) / 16 + end + wputop(szov, opcode); opcode = nil + local imark = (sub(pat, -1) == "I") -- Force a mark (ugly). + -- Put ModRM/SIB with regno/last digit as spare. + wputmrmsib(args[c == "m" and 1 or 2], addin, imark) + else + if opcode then wputop(szov, opcode); opcode = nil end -- Flush opcode. + if c == "o" or c == "O" then -- Offset (pure 32 bit displacement). + wputdarg(args[c == "o" and 1 or 2].disp) + else + -- Anything else is an immediate operand. + local a = args[#args] + local mode, imm = a.mode, a.imm + if mode == "iJ" and not match("iIJ", c) then + werror("bad operand size for label") + end + if c == "S" then + wputsbarg(imm) + elseif c == "U" then + wputbarg(imm) + elseif c == "W" then + wputwarg(imm) + elseif c == "i" or c == "I" then + if mode == "iJ" then + wputlabel("IMM_", imm, 1) + elseif mode == "iI" and c == "I" then + waction(sz == "w" and "IMM_WB" or "IMM_DB", imm) + else + wputszarg(sz, imm) + end + elseif c == "J" then + if mode == "iPJ" then + waction("REL_A", imm) -- !x64 (secpos) + else + wputlabel("REL_", imm, 2) + end + else + werror("bad char `"..c.."' in pattern `"..pat.."' for `"..op.."'") + end + end + end + end + if opcode then wputop(szov, opcode) end +end + +------------------------------------------------------------------------------ + +-- Mapping of operand modes to short names. Suppress output with '#'. +local map_modename = { + r = "reg", R = "eax", C = "cl", x = "mem", m = "mrm", i = "imm", + f = "stx", F = "st0", J = "lbl", ["1"] = "1", + I = "#", S = "#", O = "#", +} + +-- Return a table/string showing all possible operand modes. +local function templatehelp(template, nparams) + if nparams == 0 then return "" end + local t = {} + for tm in gmatch(template, "[^%|]+") do + local s = map_modename[sub(tm, 1, 1)] + s = s..gsub(sub(tm, 2, nparams), ".", function(c) + return ", "..map_modename[c] + end) + if not match(s, "#") then t[#t+1] = s end + end + return t +end + +-- Match operand modes against mode match part of template. +local function matchtm(tm, args) + for i=1,#args do + if not match(args[i].mode, sub(tm, i, i)) then return end + end + return true +end + +-- Handle opcodes defined with template strings. +map_op[".template__"] = function(params, template, nparams) + if not params then return templatehelp(template, nparams) end + local args = {} + + -- Zero-operand opcodes have no match part. + if #params == 0 then + dopattern(template, args, "d", params.op) + return + end + + -- Determine common operand size (coerce undefined size) or flag as mixed. + local sz, szmix + for i,p in ipairs(params) do + args[i] = parseoperand(p) + local nsz = args[i].opsize + if nsz then + if sz and sz ~= nsz then szmix = true else sz = nsz end + end + end + + -- Try all match:pattern pairs (separated by '|'). + local gotmatch, lastpat + for tm in gmatch(template, "[^%|]+") do + -- Split off size match (starts after mode match) and pattern string. + local szm, pat = match(tm, "^(.-):(.*)$", #args+1) + if pat == "" then pat = lastpat else lastpat = pat end + if matchtm(tm, args) then + local prefix = sub(szm, 1, 1) + if prefix == "/" then -- Match both operand sizes. + if args[1].opsize == sub(szm, 2, 2) and + args[2].opsize == sub(szm, 3, 3) then + dopattern(pat, args, sz, params.op) -- Process pattern string. + return + end + else -- Match common operand size. + local szp = sz + if szm == "" then szm = "dwb" end -- Default size match. + if prefix == "1" then szp = args[1].opsize; szmix = nil + elseif prefix == "2" then szp = args[2].opsize; szmix = nil end + if not szmix and (prefix == "." or match(szm, szp or "#")) then + dopattern(pat, args, szp, params.op) -- Process pattern string. + return + end + end + gotmatch = true + end + end + + local msg = "bad operand mode" + if gotmatch then + if szmix then + msg = "mixed operand size" + else + msg = sz and "bad operand size" or "missing operand size" + end + end + + werror(msg.." in `"..opmodestr(params.op, args).."'") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +local function op_data(params) + if not params then return "imm..." end + local sz = sub(params.op, 2, 2) + if sz == "a" then sz = addrsize end + for _,p in ipairs(params) do + local a = parseoperand(p) + if sub(a.mode, 1, 1) ~= "i" or (a.opsize and a.opsize ~= sz) then + werror("bad mode or size in `"..p.."'") + end + if a.mode == "iJ" then + wputlabel("IMM_", a.imm, 1) + else + wputszarg(sz, a.imm) + end + end +end + +map_op[".byte_*"] = op_data +map_op[".sbyte_*"] = op_data +map_op[".word_*"] = op_data +map_op[".dword_*"] = op_data +map_op[".aword_*"] = op_data + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_2"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr [, addr]" end + local a = parseoperand(params[1]) + local mode, imm = a.mode, a.imm + if type(imm) == "number" and (mode == "iJ" or (imm >= 1 and imm <= 9)) then + -- Local label (1: ... 9:) or global label (->global:). + waction("LABEL_LG", nil, 1) + wputxb(imm) + elseif mode == "iJ" then + -- PC label (=>pcexpr:). + waction("LABEL_PC", imm) + else + werror("bad label definition") + end + -- SETLABEL must immediately follow LABEL_LG/LABEL_PC. + local addr = params[2] + if addr then + local a = parseoperand(params[2]) + if a.mode == "iPJ" then + waction("SETLABEL", a.imm) -- !x64 (secpos) + else + werror("bad label assignment") + end + end +end +map_op[".label_1"] = map_op[".label_2"] + +------------------------------------------------------------------------------ + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + local align = tonumber(params[1]) or map_opsizenum[map_opsize[params[1]]] + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", nil, 1) + wputxb(align-1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +-- Spacing pseudo-opcode. +map_op[".space_2"] = function(params) + if not params then return "num [, filler]" end + waction("SPACE", params[1]) + local fill = params[2] + if fill then + fill = tonumber(fill) + if not fill or fill < 0 or fill > 255 then werror("bad filler") end + end + wputxb(fill or 0) +end +map_op[".space_1"] = map_op[".space_2"] + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + if reg and not map_reg_valid_base[reg] then + werror("bad base register `"..(map_reg_rev[reg] or reg).."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg and map_reg_rev[tp.reg] or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION") + wputxb(num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpregs(out) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua b/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua new file mode 100644 index 00000000000..264a4bb4def --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua @@ -0,0 +1,1070 @@ +------------------------------------------------------------------------------ +-- DynASM. A dynamic assembler for code generation engines. +-- Originally designed and implemented for LuaJIT. +-- +-- Copyright (C) 2005-2008 Mike Pall. All rights reserved. +-- See below for full copyright notice. +------------------------------------------------------------------------------ + +-- Application information. +local _info = { + name = "DynASM", + description = "A dynamic assembler for code generation engines", + version = "1.1.4", + vernum = 10104, + release = "2008-01-29", + author = "Mike Pall", + url = "http://luajit.org/dynasm.html", + license = "MIT", + copyright = [[ +Copyright (C) 2005-2008 Mike Pall. All rights reserved. + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +[ MIT license: http://www.opensource.org/licenses/mit-license.php ] +]], +} + +-- Cache library functions. +local type, pairs, ipairs = type, pairs, ipairs +local pcall, error, assert = pcall, error, assert +local _s = string +local sub, match, gmatch, gsub = _s.sub, _s.match, _s.gmatch, _s.gsub +local format, rep, upper = _s.format, _s.rep, _s.upper +local _t = table +local insert, remove, concat, sort = _t.insert, _t.remove, _t.concat, _t.sort +local exit = os.exit +local io = io +local stdin, stdout, stderr = io.stdin, io.stdout, io.stderr + +------------------------------------------------------------------------------ + +-- Program options. +local g_opt = {} + +-- Global state for current file. +local g_fname, g_curline, g_indent, g_lineno, g_synclineno, g_arch +local g_errcount = 0 + +-- Write buffer for output file. +local g_wbuffer, g_capbuffer + +------------------------------------------------------------------------------ + +-- Write an output line (or callback function) to the buffer. +local function wline(line, needindent) + local buf = g_capbuffer or g_wbuffer + buf[#buf+1] = needindent and g_indent..line or line + g_synclineno = g_synclineno + 1 +end + +-- Write assembler line as a comment, if requestd. +local function wcomment(aline) + if g_opt.comment then + wline(g_opt.comment..aline..g_opt.endcomment, true) + end +end + +-- Resync CPP line numbers. +local function wsync() + if g_synclineno ~= g_lineno and g_opt.cpp then + wline("# "..g_lineno..' "'..g_fname..'"') + g_synclineno = g_lineno + end +end + +-- Dummy action flush function. Replaced with arch-specific function later. +local function wflush(term) +end + +-- Dump all buffered output lines. +local function wdumplines(out, buf) + for _,line in ipairs(buf) do + if type(line) == "string" then + assert(out:write(line, "\n")) + else + -- Special callback to dynamically insert lines after end of processing. + line(out) + end + end +end + +------------------------------------------------------------------------------ + +-- Emit an error. Processing continues with next statement. +local function werror(msg) + error(format("%s:%s: error: %s:\n%s", g_fname, g_lineno, msg, g_curline), 0) +end + +-- Emit a fatal error. Processing stops. +local function wfatal(msg) + g_errcount = "fatal" + werror(msg) +end + +-- Print a warning. Processing continues. +local function wwarn(msg) + stderr:write(format("%s:%s: warning: %s:\n%s\n", + g_fname, g_lineno, msg, g_curline)) +end + +-- Print caught error message. But suppress excessive errors. +local function wprinterr(...) + if type(g_errcount) == "number" then + -- Regular error. + g_errcount = g_errcount + 1 + if g_errcount < 21 then -- Seems to be a reasonable limit. + stderr:write(...) + elseif g_errcount == 21 then + stderr:write(g_fname, + ":*: warning: too many errors (suppressed further messages).\n") + end + else + -- Fatal error. + stderr:write(...) + return true -- Stop processing. + end +end + +------------------------------------------------------------------------------ + +-- Map holding all option handlers. +local opt_map = {} +local opt_current + +-- Print error and exit with error status. +local function opterror(...) + stderr:write("dynasm.lua: ERROR: ", ...) + stderr:write("\n") + exit(1) +end + +-- Get option parameter. +local function optparam(args) + local argn = args.argn + local p = args[argn] + if not p then + opterror("missing parameter for option `", opt_current, "'.") + end + args.argn = argn + 1 + return p +end + +------------------------------------------------------------------------------ + +-- Core pseudo-opcodes. +local map_coreop = {} +-- Dummy opcode map. Replaced by arch-specific map. +local map_op = {} + +-- Forward declarations. +local dostmt +local readfile + +------------------------------------------------------------------------------ + +-- Map for defines (initially empty, chains to arch-specific map). +local map_def = {} + +-- Pseudo-opcode to define a substitution. +map_coreop[".define_2"] = function(params, nparams) + if not params then return nparams == 1 and "name" or "name, subst" end + local name, def = params[1], params[2] or "1" + if not match(name, "^[%a_][%w_]*$") then werror("bad or duplicate define") end + map_def[name] = def +end +map_coreop[".define_1"] = map_coreop[".define_2"] + +-- Define a substitution on the command line. +function opt_map.D(args) + local namesubst = optparam(args) + local name, subst = match(namesubst, "^([%a_][%w_]*)=(.*)$") + if name then + map_def[name] = subst + elseif match(namesubst, "^[%a_][%w_]*$") then + map_def[namesubst] = "1" + else + opterror("bad define") + end +end + +-- Undefine a substitution on the command line. +function opt_map.U(args) + local name = optparam(args) + if match(name, "^[%a_][%w_]*$") then + map_def[name] = nil + else + opterror("bad define") + end +end + +-- Helper for definesubst. +local gotsubst + +local function definesubst_one(word) + local subst = map_def[word] + if subst then gotsubst = word; return subst else return word end +end + +-- Iteratively substitute defines. +local function definesubst(stmt) + -- Limit number of iterations. + for i=1,100 do + gotsubst = false + stmt = gsub(stmt, "#?[%w_]+", definesubst_one) + if not gotsubst then break end + end + if gotsubst then wfatal("recursive define involving `"..gotsubst.."'") end + return stmt +end + +-- Dump all defines. +local function dumpdefines(out, lvl) + local t = {} + for name in pairs(map_def) do + t[#t+1] = name + end + sort(t) + out:write("Defines:\n") + for _,name in ipairs(t) do + local subst = map_def[name] + if g_arch then subst = g_arch.revdef(subst) end + out:write(format(" %-20s %s\n", name, subst)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Support variables for conditional assembly. +local condlevel = 0 +local condstack = {} + +-- Evaluate condition with a Lua expression. Substitutions already performed. +local function cond_eval(cond) + local func, err = loadstring("return "..cond) + if func then + setfenv(func, {}) -- No globals. All unknown identifiers evaluate to nil. + local ok, res = pcall(func) + if ok then + if res == 0 then return false end -- Oh well. + return not not res + end + err = res + end + wfatal("bad condition: "..err) +end + +-- Skip statements until next conditional pseudo-opcode at the same level. +local function stmtskip() + local dostmt_save = dostmt + local lvl = 0 + dostmt = function(stmt) + local op = match(stmt, "^%s*(%S+)") + if op == ".if" then + lvl = lvl + 1 + elseif lvl ~= 0 then + if op == ".endif" then lvl = lvl - 1 end + elseif op == ".elif" or op == ".else" or op == ".endif" then + dostmt = dostmt_save + dostmt(stmt) + end + end +end + +-- Pseudo-opcodes for conditional assembly. +map_coreop[".if_1"] = function(params) + if not params then return "condition" end + local lvl = condlevel + 1 + local res = cond_eval(params[1]) + condlevel = lvl + condstack[lvl] = res + if not res then stmtskip() end +end + +map_coreop[".elif_1"] = function(params) + if not params then return "condition" end + if condlevel == 0 then wfatal(".elif without .if") end + local lvl = condlevel + local res = condstack[lvl] + if res then + if res == "else" then wfatal(".elif after .else") end + else + res = cond_eval(params[1]) + if res then + condstack[lvl] = res + return + end + end + stmtskip() +end + +map_coreop[".else_0"] = function(params) + if condlevel == 0 then wfatal(".else without .if") end + local lvl = condlevel + local res = condstack[lvl] + condstack[lvl] = "else" + if res then + if res == "else" then wfatal(".else after .else") end + stmtskip() + end +end + +map_coreop[".endif_0"] = function(params) + local lvl = condlevel + if lvl == 0 then wfatal(".endif without .if") end + condlevel = lvl - 1 +end + +-- Check for unfinished conditionals. +local function checkconds() + if g_errcount ~= "fatal" and condlevel ~= 0 then + wprinterr(g_fname, ":*: error: unbalanced conditional\n") + end +end + +------------------------------------------------------------------------------ + +-- Search for a file in the given path and open it for reading. +local function pathopen(path, name) + local dirsep = match(package.path, "\\") and "\\" or "/" + for _,p in ipairs(path) do + local fullname = p == "" and name or p..dirsep..name + local fin = io.open(fullname, "r") + if fin then + g_fname = fullname + return fin + end + end +end + +-- Include a file. +map_coreop[".include_1"] = function(params) + if not params then return "filename" end + local name = params[1] + -- Save state. Ugly, I know. but upvalues are fast. + local gf, gl, gcl, gi = g_fname, g_lineno, g_curline, g_indent + -- Read the included file. + local fatal = readfile(pathopen(g_opt.include, name) or + wfatal("include file `"..name.."' not found")) + -- Restore state. + g_synclineno = -1 + g_fname, g_lineno, g_curline, g_indent = gf, gl, gcl, gi + if fatal then wfatal("in include file") end +end + +-- Make .include initially available, too. +map_op[".include_1"] = map_coreop[".include_1"] + +------------------------------------------------------------------------------ + +-- Support variables for macros. +local mac_capture, mac_lineno, mac_name +local mac_active = {} +local mac_list = {} + +-- Pseudo-opcode to define a macro. +map_coreop[".macro_*"] = function(mparams) + if not mparams then return "name [, params...]" end + -- Split off and validate macro name. + local name = remove(mparams, 1) + if not name then werror("missing macro name") end + if not (match(name, "^[%a_][%w_%.]*$") or match(name, "^%.[%w_%.]+$")) then + wfatal("bad macro name `"..name.."'") + end + -- Validate macro parameter names. + local mdup = {} + for _,mp in ipairs(mparams) do + if not match(mp, "^[%a_][%w_]*$") then + wfatal("bad macro parameter name `"..mp.."'") + end + if mdup[mp] then wfatal("duplicate macro parameter name `"..mp.."'") end + mdup[mp] = true + end + -- Check for duplicate or recursive macro definitions. + local opname = name.."_"..#mparams + if map_op[opname] or map_op[name.."_*"] then + wfatal("duplicate macro `"..name.."' ("..#mparams.." parameters)") + end + if mac_capture then wfatal("recursive macro definition") end + + -- Enable statement capture. + local lines = {} + mac_lineno = g_lineno + mac_name = name + mac_capture = function(stmt) -- Statement capture function. + -- Stop macro definition with .endmacro pseudo-opcode. + if not match(stmt, "^%s*.endmacro%s*$") then + lines[#lines+1] = stmt + return + end + mac_capture = nil + mac_lineno = nil + mac_name = nil + mac_list[#mac_list+1] = opname + -- Add macro-op definition. + map_op[opname] = function(params) + if not params then return mparams, lines end + -- Protect against recursive macro invocation. + if mac_active[opname] then wfatal("recursive macro invocation") end + mac_active[opname] = true + -- Setup substitution map. + local subst = {} + for i,mp in ipairs(mparams) do subst[mp] = params[i] end + local mcom + if g_opt.maccomment and g_opt.comment then + mcom = " MACRO "..name.." ("..#mparams..")" + wcomment("{"..mcom) + end + -- Loop through all captured statements + for _,stmt in ipairs(lines) do + -- Substitute macro parameters. + local st = gsub(stmt, "[%w_]+", subst) + st = definesubst(st) + st = gsub(st, "%s*%.%.%s*", "") -- Token paste a..b. + if mcom and sub(st, 1, 1) ~= "|" then wcomment(st) end + -- Emit statement. Use a protected call for better diagnostics. + local ok, err = pcall(dostmt, st) + if not ok then + -- Add the captured statement to the error. + wprinterr(err, "\n", g_indent, "| ", stmt, + "\t[MACRO ", name, " (", #mparams, ")]\n") + end + end + if mcom then wcomment("}"..mcom) end + mac_active[opname] = nil + end + end +end + +-- An .endmacro pseudo-opcode outside of a macro definition is an error. +map_coreop[".endmacro_0"] = function(params) + wfatal(".endmacro without .macro") +end + +-- Dump all macros and their contents (with -PP only). +local function dumpmacros(out, lvl) + sort(mac_list) + out:write("Macros:\n") + for _,opname in ipairs(mac_list) do + local name = sub(opname, 1, -3) + local params, lines = map_op[opname]() + out:write(format(" %-20s %s\n", name, concat(params, ", "))) + if lvl > 1 then + for _,line in ipairs(lines) do + out:write(" |", line, "\n") + end + out:write("\n") + end + end + out:write("\n") +end + +-- Check for unfinished macro definitions. +local function checkmacros() + if mac_capture then + wprinterr(g_fname, ":", mac_lineno, + ": error: unfinished .macro `", mac_name ,"'\n") + end +end + +------------------------------------------------------------------------------ + +-- Support variables for captures. +local cap_lineno, cap_name +local cap_buffers = {} +local cap_used = {} + +-- Start a capture. +map_coreop[".capture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + if cap_name then + wfatal("already capturing to `"..cap_name.."' since line "..cap_lineno) + end + cap_name = name + cap_lineno = g_lineno + -- Create or continue a capture buffer and start the output line capture. + local buf = cap_buffers[name] + if not buf then buf = {}; cap_buffers[name] = buf end + g_capbuffer = buf + g_synclineno = 0 +end + +-- Stop a capture. +map_coreop[".endcapture_0"] = function(params) + wflush() + if not cap_name then wfatal(".endcapture without a valid .capture") end + cap_name = nil + cap_lineno = nil + g_capbuffer = nil + g_synclineno = 0 +end + +-- Dump a capture buffer. +map_coreop[".dumpcapture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + cap_used[name] = true + wline(function(out) + local buf = cap_buffers[name] + if buf then wdumplines(out, buf) end + end) + g_synclineno = 0 +end + +-- Dump all captures and their buffers (with -PP only). +local function dumpcaptures(out, lvl) + out:write("Captures:\n") + for name,buf in pairs(cap_buffers) do + out:write(format(" %-20s %4s)\n", name, "("..#buf)) + if lvl > 1 then + local bar = rep("=", 76) + out:write(" ", bar, "\n") + for _,line in ipairs(buf) do + out:write(" ", line, "\n") + end + out:write(" ", bar, "\n\n") + end + end + out:write("\n") +end + +-- Check for unfinished or unused captures. +local function checkcaptures() + if cap_name then + wprinterr(g_fname, ":", cap_lineno, + ": error: unfinished .capture `", cap_name,"'\n") + return + end + for name in pairs(cap_buffers) do + if not cap_used[name] then + wprinterr(g_fname, ":*: error: missing .dumpcapture ", name ,"\n") + end + end +end + +------------------------------------------------------------------------------ + +-- Sections names. +local map_sections = {} + +-- Pseudo-opcode to define code sections. +-- TODO: Data sections, BSS sections. Needs extra C code and API. +map_coreop[".section_*"] = function(params) + if not params then return "name..." end + if #map_sections > 0 then werror("duplicate section definition") end + wflush() + for sn,name in ipairs(params) do + local opname = "."..name.."_0" + if not match(name, "^[%a][%w_]*$") or + map_op[opname] or map_op["."..name.."_*"] then + werror("bad section name `"..name.."'") + end + map_sections[#map_sections+1] = name + wline(format("#define DASM_SECTION_%s\t%d", upper(name), sn-1)) + map_op[opname] = function(params) g_arch.section(sn-1) end + end + wline(format("#define DASM_MAXSECTION\t\t%d", #map_sections)) +end + +-- Dump all sections. +local function dumpsections(out, lvl) + out:write("Sections:\n") + for _,name in ipairs(map_sections) do + out:write(format(" %s\n", name)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Load architecture-specific module. +local function loadarch(arch) + if not match(arch, "^[%w_]+$") then return "bad arch name" end + local ok, m_arch = pcall(require, "dasm_"..arch) + if not ok then return "cannot load module: "..m_arch end + g_arch = m_arch + wflush = m_arch.passcb(wline, werror, wfatal, wwarn) + m_arch.setup(arch, g_opt) + map_op, map_def = m_arch.mergemaps(map_coreop, map_def) +end + +-- Dump architecture description. +function opt_map.dumparch(args) + local name = optparam(args) + if not g_arch then + local err = loadarch(name) + if err then opterror(err) end + end + + local t = {} + for name in pairs(map_coreop) do t[#t+1] = name end + for name in pairs(map_op) do t[#t+1] = name end + sort(t) + + local out = stdout + local _arch = g_arch._info + out:write(format("%s version %s, released %s, %s\n", + _info.name, _info.version, _info.release, _info.url)) + g_arch.dumparch(out) + + local pseudo = true + out:write("Pseudo-Opcodes:\n") + for _,sname in ipairs(t) do + local name, nparam = match(sname, "^(.+)_([0-9%*])$") + if name then + if pseudo and sub(name, 1, 1) ~= "." then + out:write("\nOpcodes:\n") + pseudo = false + end + local f = map_op[sname] + local s + if nparam ~= "*" then nparam = nparam + 0 end + if nparam == 0 then + s = "" + elseif type(f) == "string" then + s = map_op[".template__"](nil, f, nparam) + else + s = f(nil, nparam) + end + if type(s) == "table" then + for _,s2 in ipairs(s) do + out:write(format(" %-12s %s\n", name, s2)) + end + else + out:write(format(" %-12s %s\n", name, s)) + end + end + end + out:write("\n") + exit(0) +end + +-- Pseudo-opcode to set the architecture. +-- Only initially available (map_op is replaced when called). +map_op[".arch_1"] = function(params) + if not params then return "name" end + local err = loadarch(params[1]) + if err then wfatal(err) end +end + +-- Dummy .arch pseudo-opcode to improve the error report. +map_coreop[".arch_1"] = function(params) + if not params then return "name" end + wfatal("duplicate .arch statement") +end + +------------------------------------------------------------------------------ + +-- Dummy pseudo-opcode. Don't confuse '.nop' with 'nop'. +map_coreop[".nop_*"] = function(params) + if not params then return "[ignored...]" end +end + +-- Pseudo-opcodes to raise errors. +map_coreop[".error_1"] = function(params) + if not params then return "message" end + werror(params[1]) +end + +map_coreop[".fatal_1"] = function(params) + if not params then return "message" end + wfatal(params[1]) +end + +-- Dump all user defined elements. +local function dumpdef(out) + local lvl = g_opt.dumpdef + if lvl == 0 then return end + dumpsections(out, lvl) + dumpdefines(out, lvl) + if g_arch then g_arch.dumpdef(out, lvl) end + dumpmacros(out, lvl) + dumpcaptures(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Helper for splitstmt. +local splitlvl + +local function splitstmt_one(c) + if c == "(" then + splitlvl = ")"..splitlvl + elseif c == "[" then + splitlvl = "]"..splitlvl + elseif c == ")" or c == "]" then + if sub(splitlvl, 1, 1) ~= c then werror("unbalanced () or []") end + splitlvl = sub(splitlvl, 2) + elseif splitlvl == "" then + return " \0 " + end + return c +end + +-- Split statement into (pseudo-)opcode and params. +local function splitstmt(stmt) + -- Convert label with trailing-colon into .label statement. + local label = match(stmt, "^%s*(.+):%s*$") + if label then return ".label", {label} end + + -- Split at commas and equal signs, but obey parentheses and brackets. + splitlvl = "" + stmt = gsub(stmt, "[,%(%)%[%]]", splitstmt_one) + if splitlvl ~= "" then werror("unbalanced () or []") end + + -- Split off opcode. + local op, other = match(stmt, "^%s*([^%s%z]+)%s*(.*)$") + if not op then werror("bad statement syntax") end + + -- Split parameters. + local params = {} + for p in gmatch(other, "%s*(%Z+)%z?") do + params[#params+1] = gsub(p, "%s+$", "") + end + if #params > 16 then werror("too many parameters") end + + params.op = op + return op, params +end + +-- Process a single statement. +dostmt = function(stmt) + -- Ignore empty statements. + if match(stmt, "^%s*$") then return end + + -- Capture macro defs before substitution. + if mac_capture then return mac_capture(stmt) end + stmt = definesubst(stmt) + + -- Emit C code without parsing the line. + if sub(stmt, 1, 1) == "|" then + local tail = sub(stmt, 2) + wflush() + if sub(tail, 1, 2) == "//" then wcomment(tail) else wline(tail, true) end + return + end + + -- Split into (pseudo-)opcode and params. + local op, params = splitstmt(stmt) + + -- Get opcode handler (matching # of parameters or generic handler). + local f = map_op[op.."_"..#params] or map_op[op.."_*"] + if not f then + if not g_arch then wfatal("first statement must be .arch") end + -- Improve error report. + for i=0,16 do + if map_op[op.."_"..i] then + werror("wrong number of parameters for `"..op.."'") + end + end + werror("unknown statement `"..op.."'") + end + + -- Call opcode handler or special handler for template strings. + if type(f) == "string" then + map_op[".template__"](params, f) + else + f(params) + end +end + +-- Process a single line. +local function doline(line) + if g_opt.flushline then wflush() end + + -- Assembler line? + local indent, aline = match(line, "^(%s*)%|(.*)$") + if not aline then + -- No, plain C code line, need to flush first. + wflush() + wsync() + wline(line, false) + return + end + + g_indent = indent -- Remember current line indentation. + + -- Emit C code (even from macros). Avoids echo and line parsing. + if sub(aline, 1, 1) == "|" then + if not mac_capture then + wsync() + elseif g_opt.comment then + wsync() + wcomment(aline) + end + dostmt(aline) + return + end + + -- Echo assembler line as a comment. + if g_opt.comment then + wsync() + wcomment(aline) + end + + -- Strip assembler comments. + aline = gsub(aline, "//.*$", "") + + -- Split line into statements at semicolons. + if match(aline, ";") then + for stmt in gmatch(aline, "[^;]+") do dostmt(stmt) end + else + dostmt(aline) + end +end + +------------------------------------------------------------------------------ + +-- Write DynASM header. +local function dasmhead(out) + out:write(format([[ +/* +** This file has been pre-processed with DynASM. +** %s +** DynASM version %s, DynASM %s version %s +** DO NOT EDIT! The original file is in "%s". +*/ + +#if DASM_VERSION != %d +#error "Version mismatch between DynASM and included encoding engine" +#endif + +]], _info.url, + _info.version, g_arch._info.arch, g_arch._info.version, + g_fname, _info.vernum)) +end + +-- Read input file. +readfile = function(fin) + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Process all lines. + for line in fin:lines() do + g_lineno = g_lineno + 1 + g_curline = line + local ok, err = pcall(doline, line) + if not ok and wprinterr(err, "\n") then return true end + end + wflush() + + -- Close input file. + assert(fin == stdin or fin:close()) +end + +-- Write output file. +local function writefile(outfile) + local fout + + -- Open output file. + if outfile == nil or outfile == "-" then + fout = stdout + else + fout = assert(io.open(outfile, "w")) + end + + -- Write all buffered lines + wdumplines(fout, g_wbuffer) + + -- Close output file. + assert(fout == stdout or fout:close()) + + -- Optionally dump definitions. + dumpdef(fout == stdout and stderr or stdout) +end + +-- Translate an input file to an output file. +local function translate(infile, outfile) + g_wbuffer = {} + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Put header. + wline(dasmhead) + + -- Read input file. + local fin + if infile == "-" then + g_fname = "(stdin)" + fin = stdin + else + g_fname = infile + fin = assert(io.open(infile, "r")) + end + readfile(fin) + + -- Check for errors. + if not g_arch then + wprinterr(g_fname, ":*: error: missing .arch directive\n") + end + checkconds() + checkmacros() + checkcaptures() + + if g_errcount ~= 0 then + stderr:write(g_fname, ":*: info: ", g_errcount, " error", + (type(g_errcount) == "number" and g_errcount > 1) and "s" or "", + " in input file -- no output file generated.\n") + dumpdef(stderr) + exit(1) + end + + -- Write output file. + writefile(outfile) +end + +------------------------------------------------------------------------------ + +-- Print help text. +function opt_map.help() + stdout:write("DynASM -- ", _info.description, ".\n") + stdout:write("DynASM ", _info.version, " ", _info.release, " ", _info.url, "\n") + stdout:write[[ + +Usage: dynasm [OPTION]... INFILE.dasc|- + + -h, --help Display this help text. + -V, --version Display version and copyright information. + + -o, --outfile FILE Output file name (default is stdout). + -I, --include DIR Add directory to the include search path. + + -c, --ccomment Use /* */ comments for assembler lines. + -C, --cppcomment Use // comments for assembler lines (default). + -N, --nocomment Suppress assembler lines in output. + -M, --maccomment Show macro expansions as comments (default off). + + -L, --nolineno Suppress CPP line number information in output. + -F, --flushline Flush action list for every line. + + -D NAME[=SUBST] Define a substitution. + -U NAME Undefine a substitution. + + -P, --dumpdef Dump defines, macros, etc. Repeat for more output. + -A, --dumparch ARCH Load architecture ARCH and dump description. +]] + exit(0) +end + +-- Print version information. +function opt_map.version() + stdout:write(format("%s version %s, released %s\n%s\n\n%s", + _info.name, _info.version, _info.release, _info.url, _info.copyright)) + exit(0) +end + +-- Misc. options. +function opt_map.outfile(args) g_opt.outfile = optparam(args) end +function opt_map.include(args) insert(g_opt.include, 1, optparam(args)) end +function opt_map.ccomment() g_opt.comment = "/*|"; g_opt.endcomment = " */" end +function opt_map.cppcomment() g_opt.comment = "//|"; g_opt.endcomment = "" end +function opt_map.nocomment() g_opt.comment = false end +function opt_map.maccomment() g_opt.maccomment = true end +function opt_map.nolineno() g_opt.cpp = false end +function opt_map.flushline() g_opt.flushline = true end +function opt_map.dumpdef() g_opt.dumpdef = g_opt.dumpdef + 1 end + +------------------------------------------------------------------------------ + +-- Short aliases for long options. +local opt_alias = { + h = "help", ["?"] = "help", V = "version", + o = "outfile", I = "include", + c = "ccomment", C = "cppcomment", N = "nocomment", M = "maccomment", + L = "nolineno", F = "flushline", + P = "dumpdef", A = "dumparch", +} + +-- Parse single option. +local function parseopt(opt, args) + opt_current = #opt == 1 and "-"..opt or "--"..opt + local f = opt_map[opt] or opt_map[opt_alias[opt]] + if not f then + opterror("unrecognized option `", opt_current, "'. Try `--help'.\n") + end + f(args) +end + +-- Parse arguments. +local function parseargs(args) + -- Default options. + g_opt.comment = "//|" + g_opt.endcomment = "" + g_opt.cpp = true + g_opt.dumpdef = 0 + g_opt.include = { "" } + + -- Process all option arguments. + args.argn = 1 + repeat + local a = args[args.argn] + if not a then break end + local lopt, opt = match(a, "^%-(%-?)(.+)") + if not opt then break end + args.argn = args.argn + 1 + if lopt == "" then + -- Loop through short options. + for o in gmatch(opt, ".") do parseopt(o, args) end + else + -- Long option. + parseopt(opt, args) + end + until false + + -- Check for proper number of arguments. + local nargs = #args - args.argn + 1 + if nargs ~= 1 then + if nargs == 0 then + if g_opt.dumpdef > 0 then return dumpdef(stdout) end + end + opt_map.help() + end + + -- Translate a single input file to a single output file + -- TODO: Handle multiple files? + translate(args[args.argn], g_opt.outfile) +end + +------------------------------------------------------------------------------ + +-- Add the directory dynasm.lua resides in to the Lua module search path. +local arg = arg +if arg and arg[0] then + local prefix = match(arg[0], "^(.*/)") + if prefix then package.path = prefix.."?.lua;"..package.path end +end + +-- Start DynASM. +parseargs{...} + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/LuaJIT-1.1.8/etc/README b/src/3rd party/LuaJIT-1.1.8/etc/README new file mode 100644 index 00000000000..98117d0a34d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/etc/README @@ -0,0 +1,20 @@ +This directory contains some useful files and code. +Unlike the code in ../src, everything here is in the public domain. + +lua.hpp + Lua header files for C++ using 'extern "C"'. + +luajit.ico + A LuaJIT icon for Windows (and web sites: save as favicon.ico). + Lua icon drawn by hand by Markus Gritsch. Modified for LuaJIT. + +luajit.pc + pkg-config data for LuaJIT + +luavs.bat + Script to build LuaJIT under "Visual Studio .NET Command Prompt". + Run it from the toplevel as etc\luavs.bat. + +strict.lua + Traps uses of undeclared global variables. + diff --git a/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp new file mode 100644 index 00000000000..ec417f59469 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp @@ -0,0 +1,9 @@ +// lua.hpp +// Lua header files for C++ +// <> not supplied automatically because Lua also compiles as C++ + +extern "C" { +#include "lua.h" +#include "lualib.h" +#include "lauxlib.h" +} diff --git a/src/3rd party/LuaJIT-1.1.8/etc/luajit.ico b/src/3rd party/LuaJIT-1.1.8/etc/luajit.ico new file mode 100644 index 0000000000000000000000000000000000000000..bdd7a90e8ad2f684fcd2743f62d6bd406a26be6c GIT binary patch literal 1078 zcma)5v2MaZ41J-fFtvO^VX7D_(Je!fVu?uonGTWKjT<7h8^2PCZdtPRHyArIRDucj z*_VT=>VSh|zwNuZp#F_{!e7krX}>Uihl_kh?}Q(l=7^0GCC1%b{6Zx7enM2v7t8PUNcH0R;n_-BM*?%cNXdm$ zy%`B4bUT6tVhRS>uOlYM 16 then hex = sub(hex, 1, 16).."." end + if operands then text = text.." "..operands end + if ctx.o16 then text = "o16 "..text; ctx.o16 = false end + if ctx.rep then text = ctx.rep.." "..text; ctx.rep = false end + if ctx.seg then + local text2, n = gsub(text, "%[", "["..ctx.seg..":") + if n == 0 then text = ctx.seg.." "..text else text = text2 end + ctx.seg = false + end + if ctx.lock then text = "lock "..text; ctx.lock = false end + local imm = ctx.imm + if imm then + local sym = ctx.symtab[imm] + if sym then text = text.."\t->"..sym end + end + ctx.out(format("%08x %-18s%s\n", ctx.addr+ctx.start, hex, text)) + ctx.mrm = false + ctx.start = pos + ctx.imm = nil +end + +-- Fallback for incomplete opcodes at the end. +local function incomplete(ctx) + ctx.pos = ctx.stop+1 + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + return putop(ctx, "(incomplete)") +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + return putop(ctx, "(unknown)") +end + +-- Return an immediate of the specified size. +local function getimm(ctx, pos, n) + if pos+n-1 > ctx.stop then return incomplete(ctx) end + local code = ctx.code + if n == 1 then + local b1 = byte(code, pos, pos) + return b1 + elseif n == 2 then + local b1, b2 = byte(code, pos, pos+1) + return b1+b2*256 + else + local b1, b2, b3, b4 = byte(code, pos, pos+3) + local imm = b1+b2*256+b3*65536+b4*16777216 + ctx.imm = imm + return imm + end +end + +-- Process pattern string and generate the operands. +local function putpat(ctx, name, pat) + local operands, regs, sz, mode, sp, rm, sc, rx, disp, sdisp + local code, pos, stop = ctx.code, ctx.pos, ctx.stop + + -- Chars used: 1DFGMPQRVWXacdfgijmoprsuwxyz + for p in gmatch(pat, ".") do + local x = nil + if p == "V" then + sz = ctx.o16 and "W" or "D"; ctx.o16 = false + regs = map_regs[sz] + elseif match(p, "[BWDQFGMX]") then + sz = p + regs = map_regs[sz] + elseif p == "P" then + sz = ctx.o16 and "X" or "M"; ctx.o16 = false + regs = map_regs[sz] + elseif p == "s" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = imm <= 127 and format("byte +0x%02x", imm) + or format("byte -0x%02x", 256-imm) + pos = pos+1 + elseif p == "u" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = format("0x%02x", imm) + pos = pos+1 + elseif p == "w" then + local imm = getimm(ctx, pos, 2); if not imm then return end + x = format("0x%x", imm) + pos = pos+2 + elseif p == "o" then -- [offset] + local imm = getimm(ctx, pos, 4); if not imm then return end + x = format("[0x%08x]", imm) + pos = pos+4 + elseif p == "i" then + local n = map_sz2n[sz] + local imm = getimm(ctx, pos, n); if not imm then return end + x = format(imm > 65535 and "0x%08x" or "0x%x", imm) + pos = pos+n + elseif p == "j" then + local n = map_sz2n[sz] + local imm = getimm(ctx, pos, n); if not imm then return end + if sz == "B" and imm > 127 then imm = imm-256 + elseif imm > 2147483647 then imm = imm-4294967296 end + pos = pos+n + imm = imm + pos + ctx.addr + ctx.imm = imm + x = sz == "W" and format("word 0x%04x", imm%65536) + or format("0x%08x", imm) + elseif p == "R" then x = regs[byte(code, pos-1, pos-1)%8+1] + elseif p == "a" then x = regs[1] + elseif p == "c" then x = "cl" + elseif p == "d" then x = "dx" + elseif p == "1" then x = "1" + else + if not mode then + mode = ctx.mrm + if not mode then + if pos > stop then return incomplete(ctx) end + mode = byte(code, pos, pos) + pos = pos+1 + end + rm = mode%8; mode = (mode-rm)/8 + sp = mode%8; mode = (mode-sp)/8 + sdisp = "" + if mode < 3 then + if rm == 4 then + if pos > stop then return incomplete(ctx) end + sc = byte(code, pos, pos) + pos = pos+1 + rm = sc%8; sc = (sc-rm)/8 + rx = sc%8; sc = (sc-rx)/8 + if rx == 4 then rx = nil end + end + if mode > 0 or rm == 5 then + local dsz = mode + if dsz ~= 1 then dsz = 4 end + disp = getimm(ctx, pos, dsz); if not disp then return end + sdisp = (dsz == 4 or disp <= 127) and + format(disp > 65535 and "+0x%08x" or "+0x%x", disp) or + format("-0x%x", 256-disp) + pos = pos+dsz + end + end + end + if p == "m" then + if mode == 3 then x = regs[rm+1] + else + local srm, srx = map_aregs[rm+1], "" + if rx then + srm = srm.."+" + srx = map_aregs[rx+1] + if sc > 0 then srx = srx.."*"..(2^sc) end + end + if mode == 0 and rm == 5 then + srm = "" + sdisp = format("%s0x%08x", rx and "+" or "", disp) + end + x = format("[%s%s%s]", srm, srx, sdisp) + end + if mode < 3 and + (not match(pat, "[aRrgp]") or + name == "movzx" or name == "movsx") then -- Yuck. + x = map_sz2prefix[sz].." "..x + end + elseif p == "r" then x = regs[sp+1] + elseif p == "g" then x = map_segregs[sp+1] + elseif p == "p" then -- Suppress prefix. + elseif p == "f" then x = "st"..rm + elseif p == "x" then x = "CR"..sp + elseif p == "y" then x = "DR"..sp + elseif p == "z" then x = "TR"..sp + else + error("bad pattern `"..pat.."'") + end + end + if x then operands = operands and operands..","..x or x end + end + ctx.pos = pos + return putop(ctx, name, operands) +end + +-- Forward declaration. +local map_act + +-- Get a pattern from an opcode map and dispatch to handler. +local function opcdispatch(ctx, opcmap) + local pos = ctx.pos + local opat = opcmap[byte(ctx.code, pos, pos)] + if not opat then return unknown(ctx) end + if match(opat, "%|") then -- MMX/SSE variants depending on prefix. + local p + if ctx.rep then p = ctx.rep=="rep" and "%|([^%|]*)" or "%|.-%|.-%|([^%|]*)" + elseif ctx.o16 then p = "%|.-%|([^%|]*)" + else p = "^[^%|]*" end + opat = match(opat, p) + if not opat or opat == "" then return unknown(ctx) end + ctx.rep = false; ctx.o16 = false + end + local name, pat, act = match(opat, "^([a-z0-9 ]*)((.?).*)") + ctx.pos = pos + 1 + return map_act[act](ctx, name, pat) +end + +-- Map for action codes. The key is the first char after the name. +map_act = { + -- Simple opcodes without operands. + [""] = function(ctx, name, pat) + return putop(ctx, name) + end, + + -- Operand size chars fall right through. + B = putpat, W = putpat, D = putpat, V = putpat, + F = putpat, G = putpat, + M = putpat, X = putpat, P = putpat, + + -- Collect prefixes. + [":"] = function(ctx, name, pat) + ctx[pat == ":" and name or sub(pat, 2)] = name + end, + + -- Select alternate opcode name when prefixed with o16. + ["/"] = function(ctx, name, pat) + local wname, rpat = match(pat, "^/([a-z0-9 ]+)(.*)") + if ctx.o16 then name = wname; ctx.o16 = false end + return putpat(ctx, name, rpat) + end, + + -- Chain to special handler specified by name. + ["*"] = function(ctx, name, pat) + return map_act[name](ctx, name, sub(pat, 2)) + end, + + -- Use named subtable for opcode group. + ["!"] = function(ctx, name, pat) + + local pos = ctx.pos + if pos > ctx.stop then return incomplete(ctx) end + local mrm = byte(ctx.code, pos, pos) + ctx.pos = pos+1 + ctx.mrm = mrm + + local opat = map_opcgroup[name][((mrm-(mrm%8))/8)%8+1] + if not opat then return unknown(ctx) end + local name, pat2 = match(opat, "^([a-z0-9 ]*)(.*)") + return putpat(ctx, name, pat2 ~= "" and pat2 or sub(pat, 2)) + end, + + -- Two-byte opcode dispatch. + opc2 = function(ctx, name, pat) + return opcdispatch(ctx, map_opc2) + end, + + -- SSSE3 dispatch. + ssse3 = function(ctx, name, pat) + return opcdispatch(ctx, map_ssse3[pat]) + end, + + -- Floating point opcode dispatch. + fp = function(ctx, name, pat) + + local pos = ctx.pos + if pos > ctx.stop then return incomplete(ctx) end + local mrm = byte(ctx.code, pos, pos) + ctx.pos = pos+1 + ctx.mrm = mrm + + local rm = mrm%8 + local idx = pat*8 + ((mrm-rm)/8)%8 + if mrm >= 192 then idx = idx + 64 end + local opat = map_opcfp[idx] + if type(opat) == "table" then opat = opat[rm+1] end + if not opat then return unknown(ctx) end + local name, pat2 = match(opat, "^([a-z0-9 ]*)(.*)") + return putpat(ctx, name, pat2) + end, +} + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + ofs = ofs + 1 + ctx.start = ofs + ctx.pos = ofs + ctx.stop = stop + ctx.imm = nil + ctx.mrm = false + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + while ctx.pos <= stop do opcdispatch(ctx, map_opc1) end + if ctx.pos ~= ctx.start then incomplete(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = (addr or 0) - 1 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + + +-- Public module functions. +module(...) + +create = create_ +disass = disass_ + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/dump.lua b/src/3rd party/LuaJIT-1.1.8/jit/dump.lua new file mode 100644 index 00000000000..b2e0cc26e23 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/dump.lua @@ -0,0 +1,265 @@ +---------------------------------------------------------------------------- +-- LuaJIT machine code dumper module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to dump the machine code for all functions +-- immediately after they have been compiled. The disassembler +-- output is mixed with the bytecode listing. +-- +-- Try: luajit -j dump -e 'print "foo"' +-- luajit -j dump=foo.dump foo.lua +-- luajit -j off -j dump -e 'jit.compile(assert(loadfile"foo.lua")))' +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_DUMPFILE". +-- Note: The file is overwritten each time you run luajit. +-- +-- TODO: Find a way to be more selective on what to dump. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Must run after backend (negative) +-- and should be even because we only catch successful compiles. +local PRIORITY = -98 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, format, gsub = type, string.format, string.gsub +local bytecode, const = jutil.bytecode, jutil.const +local getinfo = debug.getinfo +local stdout, stderr = io.stdout, io.stderr + +-- Load the right disassembler. +local dis = require("jit.dis_"..jit.arch) +local discreate, disass_ = dis.create, dis.disass + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Separator line. +local sepline = "-------------------------------" + +-- Map JSUB indices to names. +-- CHECK: must match the order in ljit_x86.h. Regenerate with: +-- grep '^ *JSUB_[^_].*,' ljit_x86.h | sed -e 's/^ *JSUB_/ "/' -e 's/,.*/",/' +local jsubnames = { + "STACKPTR", + "GATE_LJ", + "GATE_JL", + "GATE_JC", + "GROW_STACK", + "GROW_CI", + "GATE_JC_PATCH", + "GATE_JC_DEBUG", + "DEOPTIMIZE_CALLER", + "DEOPTIMIZE", + "DEOPTIMIZE_OPEN", + "HOOKINS", + "GCSTEP", + "STRING_SUB3", + "STRING_SUB2", + "HOOKCALL", + "HOOKRET", + "METACALL", + "METATAILCALL", + "BARRIERF", + "GETGLOBAL", + "GETTABLE_KSTR", + "GETTABLE_STR", + "BARRIERBACK", + "SETGLOBAL", + "SETTABLE_KSTR", + "SETTABLE_STR", + "GETTABLE_KNUM", + "GETTABLE_NUM", + "SETTABLE_KNUM", + "SETTABLE_NUM", + "LOG2_TWORD", + "CONCAT_STR2", +} + +-- Generate map from JSUB addresses to JSUB names. +local jsubmap = {} +do + local jsubmcode = jutil.jsubmcode + for pc=0,100000 do + local addr = jsubmcode(pc) + if not addr then break end + jsubmap[addr] = jsubnames[pc+1] or "JSUB#"..pc + end +end + +-- Pretty-print a constant. +local function conststr(func, idx) + local k = const(func, idx) + if k == nil then return "nil" + elseif k == true then return "true" + elseif k == false then return "false" + elseif type(k) == "string" then + if #k > 10 then return format('"%.10s"~', k) + else return '"'..k..'"' end + else return k.."" end +end + +-- Pretty-print a bytecode instruction (one or two lines). +local function bytecodeout(out, func, pc) + local op, a, b, c = bytecode(func, pc) + if not op then + return true + elseif op == "JMP" then + out:write(format("\n--%04d-- JMP => %04d", pc, pc+1+b)) + elseif op == "FORLOOP" or op == "FORPREP" then + out:write(format("\n--%04d-- %-9s %3d => %04d", pc, op, a, pc+1+b)) + else + out:write(format("\n--%04d-- %-9s %3d %4s %4s", + pc, op, a, b or "", c or "")) + if b and b < 0 then out:write(" ; ", conststr(func, b)) end + if c and c < 0 then out:write(" ; ", conststr(func, c)) end + end +end + +-- Dump machine code and mix it with the bytecode listing. +local function dumpfunc(func, out, deopt) + if not out then out = stderr end + local info = getinfo(func, "S") + + -- Don't bother checking for the right blocks to dump. + -- Dump the main block (if not deopt) and always all deopt blocks. + for block=deopt and 2 or 1,1000000 do + local addr, code, mfmiter = jutil.mcode(func, block) + if not addr then + if code then return code end -- Not compiled: return status. + break -- No more blocks to dump. + end + + -- Print header. + out:write(sepline, " ", info.source, ":", info.linedefined) + if block ~= 1 then out:write(" DEOPT block ", block) end + + -- Create disassembler context. + local ctx = discreate(code, addr, function(s) out:write(s) end) + ctx.symtab = jsubmap + + -- Dump an mcode block. + local pc, ofs = 1, 0 + local len, isdeopt = mfmiter() + if isdeopt then pc = len; len = 0 + elseif block ~= 1 then break end -- Stop before next main block. + for t, m in mfmiter do + if t == "COMBINE" then + bytecodeout(out, func, pc) + else + if len ~= 0 then + out:write("\n") + if len > 0 then + ctx:disass(ofs, len) + ofs = ofs + len + else + out:write(format("%08x ** deoptimized\n", addr+ofs)) + ofs = ofs - len + end + len = 0 + end + if type(t) == "number" then + if m then + if isdeopt then + pc = t - 1 + else + bytecodeout(out, func, pc) + len = -t + end + else + len = t + if bytecodeout(out, func, pc) then break end + end + end + end + pc = pc + 1 + end + if len and len ~= 0 then + out:write(sepline, " tail code\n") + ctx:disass(ofs, len) + end + end + + -- Print footer. + out:write(sepline, "\n") + out:flush() +end + +-- Dump the internal JIT subroutines. +local function dumpjsub_(out) + if not out then out = stderr end + local addr, code = jutil.jsubmcode() + + -- Create disassembler context. + local ctx = discreate(code, addr, function(s) out:write(s) end) + ctx.symtab = jsubmap + + -- Collect addresses and sort them. + local t = {} + for addr in pairs(jsubmap) do t[#t+1] = addr end + t[#t+1] = addr + #code + table.sort(t) + + -- Go through the addresses in ascending order. + local ofs = addr + for i=2,#t do + local next = t[i] + out:write("\n->", jsubmap[ofs], ":\n") -- Output label for JSUB. + ctx:disass(ofs-addr, next-ofs) -- Disassemble corresponding code block. + ofs = next + end + out:flush() +end + + +-- Active flag and output file handle. +local active, out + +-- Dump handler for compiler pipeline. +local function h_dump(st) + local ok, err = pcall(dumpfunc, st.func, out, st.deopt) + if not ok then + stderr:write("\nERROR: jit.dump disabled: ", err, "\n") + jit.attach(h_dump) -- Better turn ourselves off after a failure. + if out and out ~= stdout then out:close() end + out = nil + active = nil + end +end + +-- Detach dump handler from compiler pipeline. +local function dumpoff() + if active then + active = false + jit.attach(h_dump) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handler to compiler pipeline. +local function dumpon(filename) + if active then dumpoff() end + local outfile = filename or os.getenv("LUAJIT_DUMPFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_dump, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +disass = disass_ +dump = dumpfunc +dumpjsub = dumpjsub_ +on = dumpon +off = dumpoff +start = dumpon -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua b/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua new file mode 100644 index 00000000000..bf077bf0b7e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua @@ -0,0 +1,239 @@ +---------------------------------------------------------------------------- +-- LuaJIT hints dumper module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to dump the bytecode and the hints from +-- the optimizer for all functions to be compiled. +-- +-- Try: luajit -O -j dumphints -e 'return 1' +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_DUMPHINTSFILE". +-- Note: The file is overwritten each time you run luajit. +-- +-- TODO: Find a way to be more selective on what to dump. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Should run before backend (positive) +-- and should be even because we only catch successful compiles. +local PRIORITY = 10 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, pairs, format = type, pairs, string.format +local bytecode, const = jutil.bytecode, jutil.const +local hints, fhints = jutil.hints, jutil.fhints +local stdout, stderr = io.stdout, io.stderr + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Separator line. +local sepline = "-------------------------------" + + +-- Pretty-print a constant. +local function conststr(func, idx) + local k = const(func, idx) + if k == nil then return "nil" + elseif k == true then return "true" + elseif k == false then return "false" + elseif type(k) == "string" then + if #k > 10 then return format('"%.10s"~', k) + else return '"'..k..'"' end + else return k.."" end +end + +-- Pretty-print a bytecode instruction. +local function bytecodeline(func, pc, flag) + local op, a, b, c = bytecode(func, pc) + if not op then return end + if op == "JMP" then + return format("\n%04d %s JMP => %04d", pc, flag, pc+1+b) + end + if op == "FORLOOP" or op == "FORPREP" then + return format("\n%04d %s %-9s %3d => %04d", pc, flag, op, a, pc+1+b) + end + local s = format("\n%04d %s %-9s %3d %4s %4s", + pc, flag, op, a, b or "", c or "") + if b and b < 0 then s = s.." ; "..conststr(func, b) end + if c and c < 0 then s = s.." ; "..conststr(func, c) end + return s +end + +-- Precompute inverse hints table. +local invhints = {} +for k,v in pairs(hints) do invhints[v] = k end + +-- The inverse resolver for inline functions is loaded on demand. +local getname + +-- Helper functions to pretty-print hints. +local function typehint(h, v, st, pc) + if st[pc+hints.INLINE] then return "" end + local tp = type(v) + if tp == "function" then + tp = debug.getinfo(v, "S").what + elseif tp == "number" and v % 1 == 0 then + tp = "integer" + elseif v == false then + tp = "mixed" + end + return " #"..h.."("..tp..")" +end + +local hintprint = { + COMBINE = function(h, v, st, pc) + if v == false then return "" end -- Dead instructions are already marked. + end, + TYPE = typehint, + TYPEKEY = typehint, + INLINE = function(h, v, st, pc) + if not getname then getname = require("jit.opt_inline").getname end + return " #INLINE("..getname(st[pc+hints.TYPE], v)..")" + end, +} + +-- Generate range string from table: pc[-pc] [,...] +local function rangestring(t) + local s = "" + for i,range in ipairs(t) do + if i ~= 1 then s = s.."," end + local pc = range % 65536 + range = (range - pc) / 65536 + s = s..pc + if range ~= 0 then s = s..(-(pc+range)) end + end + return s +end + +-- Dump instructions and hints for a (to be compiled) function. +local function dumphints(st, out) + if not out then out = stderr end + local func = st.func + local COMBINE = hints.COMBINE + + -- Need to recompute branch targets (not part of hints). + local target = {} + for pc=1,1e6 do + local op, a, b, c = bytecode(func, pc) + if not op then break end + if op == "JMP" or op == "FORLOOP" then + local t = pc+1+b + if st[pc+COMBINE] ~= false then target[t] = true end + elseif op == "LOADBOOL" and c ~= 0 then + target[pc+2] = true + end + end + + -- Map hints to bytecode instructions. + local hintstr = {} + for k,v in pairs(st) do + -- CHECK: must match hint shift in ljit_hints.h:JIT_H2NUM(). + if type(k) == "number" and k >= 65536 then + local pc = k % 65536 + if pc > 0 then + k = k - pc + local h = invhints[k] or (k/65536) + local hp = hintprint[h] + local s = hp and hp(h, v, st, pc) or (" #"..h) + local hs = hintstr[pc] + hintstr[pc] = hs and (hs..s) or s + end + end + end + + -- Write header. + local info = debug.getinfo(func, "S") + out:write(sepline, " ", info.source, ":", info.linedefined) + + -- Write function hints. + for k,v in pairs(fhints) do + if st[v] then out:write("\n#", k) end + end + + -- Write instruction hints and bytecode. + local function dumprange(firstpc, lastpc) + for pc=firstpc,lastpc do + local prefix = " " + if st[pc+COMBINE] == false then prefix = "**" + elseif target[pc] then prefix = "=>" end + local line = bytecodeline(func, pc, prefix) + if not line then break end + local h = hintstr[pc] + if h then + out:write(format("%-40s %s", line, h)) + else + out:write(line) + end + end + end + + -- Handle deoptimization range table. + local t = st.deopt + if t then + out:write(" DEOPT=", rangestring(t)) + for i,range in ipairs(t) do + if i ~= 1 then out:write("\n----") end + local pc = range % 65536 + range = (range - pc) / 65536 + dumprange(pc, pc+range) + end + else + dumprange(1, 1000000) + end + + -- Write footer. + out:write("\n", sepline, "\n") + out:flush() +end + + +-- Active flag and output file handle. +local active, out + +-- Dump hints handler for compiler pipeline. +local function h_dumphints(st) + local ok, err = pcall(dumphints, st, out) + if not ok then + stderr:write("\nERROR: jit.dumphints disabled: ", err, "\n") + jit.attach(h_dumphints) -- Better turn ourselves off after a failure. + if out and out ~= stdout then out:close() end + out = nil + active = nil + end +end + +-- Detach dump handler from compiler pipeline. +local function dumphintsoff() + if active then + active = false + jit.attach(h_dumphints) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handler to compiler pipeline. +local function dumphintson(filename) + if active then dumphintsoff() end + local outfile = filename or os.getenv("LUAJIT_DUMPHINTSFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_dumphints, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +dump = dumphints +on = dumphintson +off = dumphintsoff +start = dumphintson -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/opt.lua b/src/3rd party/LuaJIT-1.1.8/jit/opt.lua new file mode 100644 index 00000000000..07b5be4e27b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/opt.lua @@ -0,0 +1,508 @@ +---------------------------------------------------------------------------- +-- LuaJIT optimizer. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- This module contains a simple optimizer that generates some hints for +-- the compiler backend. +-- +-- Compare: luajit -j dump -e 'return 1' +-- with: luajit -O -j dumphints -j dump -e 'return 1' +-- +-- This module uses a very simplistic (but fast) abstract interpretation +-- algorithm. It mostly ignores control flow and/or basic block boundaries. +-- Thus the results of the analysis are really only predictions (e.g. about +-- monomorphic use of operators). The backend _must_ check all contracts +-- (e.g. verify the object type) and use a (polymorphic) fallback or +-- deoptimization in case a contract is broken. +-- +-- Although simplistic, the generated hints are pretty accurate. Note that +-- some hints are really definitive and don't need to be checked (like +-- COMBINE or FOR_STEP_K). +-- +-- TODO: Try MFP with an extended lattice. But it's unclear whether the +-- added complexity really pays off with the current backend. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Right in the middle before the backend. +local PRIORITY = 50 + +-- Default optimizer level, i.e. what you get with -O. +-- Caveat: this may change in the future when more optimizations are added. +local OPTLEVEL = 2 + +-- Heuristic limits for what the compiler should reasonably handle. +-- Functions outside these limits are unlikely to be run more than once. +-- Maybe a bit on the generous side. Check ljit.h for backend limits, too. +-- TODO: make it depend on the bytecode distribution, too. +local LIMITS = { + bytecodes = 4000, + stackslots = 150, + params = 20, + consts = 200, + subs = 30, +} + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, rawget, next, pcall = type, rawget, next, pcall +local bytecode, const = jutil.bytecode, jutil.const +local hints, fhints = jutil.hints, jutil.fhints +local getmetatable = getmetatable + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Default optimizer level after loading. But -O runs setlevel(), too. +local optlevel = -1 + + +-- Use iterative path marking to mark live instructions and branch targets. +local function marklive(func) + local live, work, workn, pc = {}, {}, 0, 1 + repeat + repeat + local op, a, b, c, test = bytecode(func, pc) + live[pc] = true + pc = pc + 1 + if op == "JMP" then + pc = pc + b + live[-pc] = true + elseif op == "FORLOOP" then + local mpc = -pc + live[mpc - b] = true + live[mpc] = true + elseif op == "RETURN" then + break + elseif test then + local fpc = pc + 1 + -- No need for fallthrough target mark live[-fpc] in our analysis. + if not live[fpc] then -- Add fallthrough path to work list. + workn = workn + 1 + work[workn] = fpc + end + elseif op == "CLOSURE" then + pc = pc + jutil.closurenup(func, b) -- Do not mark pseudo-ins live. + elseif op == "LOADBOOL" and c ~= 0 then + pc = pc + 1 + live[-pc] = true + elseif op == "SETLIST" and c == 0 then + pc = pc + 1 -- Do not mark pseudo-ins live. + end + until live[pc] + if workn == 0 then return live end -- Return if work list is empty. + pc = work[workn] -- Else fetch next path to mark from work list. + workn = workn - 1 + until false +end + + +-- Empty objects. +local function empty() end + +-- Dummy function to set call hints. Replaced when jit.opt_inline is loaded. +local function callhint(st, slot, pc, base, narg, nres) + st[pc+hints.TYPE] = slot[base] + for i=base,base+nres-1 do slot[i] = nil end +end + +-- Set TYPE hint, but only for numbers, strings or tables. +local function typehint(st, pc, o) + local tp = type(o) + if tp == "number" or tp == "string" or tp == "table" then + st[pc+hints.TYPE] = o + end +end + +-- Set TYPE and TYPEKEY hints for table operations. +local function tablehint(st, slot, pc, t, kslot) + local tp = type(t) + if tp == "table" or tp == "userdata" then st[pc+hints.TYPE] = t end + if kslot >= 0 then -- Don't need this hint for constants. + local key = slot[kslot] + local tp = type(key) + if tp == "number" or tp == "string" then st[pc+hints.TYPEKEY] = key end + end +end + +-- Try to lookup a value. Guess the value or at least the value type. +local function trylookup(st, t, k) + if k == nil then return nil end + if type(t) == "table" then + local v = rawget(t, k) + if v ~= nil then return v end + end + local mt = getmetatable(t) + if type(mt) == "table" then + -- One __index level is enough for our purposes. + local it = rawget(mt, "__index") + if type(it) == "table" then + local v = rawget(it, k) + if v ~= nil then return v end + end + end + local v = st.tableval[t] -- Resort to a generic guess. + if v == nil and type(t) == "table" then v = next(t) end -- Getting desperate. + return v +end + +-- Check whether the previous instruction sets a const. +local function prevconst(st, slot, pc, reg) + if st.live[-pc] == nil then -- Current instruction must not be a target. + local op, ka, kb = bytecode(st.func, pc-1) + if ka == reg and (op == "LOADK" or op == "LOADBOOL" or + (op == "LOADNIL" and kb == reg)) then + return true, slot[reg] + end + end +end + +-- Common handler for arithmetic and comparison opcodes. +local function arithop(st, slot, pc, a, b, c, op) + local sb, sc = slot[b], slot[c] + if sb == nil then sb = sc elseif sc == nil then sc = sb end + local tb, tc = type(sb), type(sc) + if tb == tc then + if tb == "number" then -- Improve the guess for numbers. + if op == "DIV" or sb % 1 ~= 0 or sc % 1 ~= 0 then + sb = 0.5 -- Probably a non-integral number. + else + sb = 1 -- Optimistic guess. + end + end + if sb ~= nil then st[pc+hints.TYPE] = sb end + else + st[pc+hints.TYPE] = false -- Marker for mixed types. + end + if op ~= "LT" and op ~= "LE" then + slot[a] = sb -- Assume coercion to 1st type if different. + end +end + +-- Common handler for TEST and TESTSET. +local function testop(st, slot, pc, a, b, c) + -- Optimize the 'expr and k1 or k2' idiom. + local ok, k = prevconst(st, slot, pc, b) + if k and a == b then + st[pc+hints.COMBINE] = false -- Kill the TEST/TESTSET. + if c == 0 then st.live[pc+1] = nil end -- Kill the JMP. + end + slot[a] = slot[b] +end + +-- Dispatch table for opcode handlers. +local handler = { + MOVE = function(st, slot, pc, a, b, c) + slot[a] = slot[b] + end, + + LOADK = function(st, slot, pc, a, b, c) + slot[a] = const(st.func, b) + end, + + LOADBOOL = function(st, slot, pc, a, b, c) + slot[a] = (b == 1) + end, + + LOADNIL = function(st, slot, pc, a, b, c) + for i=a,b do slot[i] = nil end + end, + + GETUPVAL = function(st, slot, pc, a, b, c) + slot[a] = jutil.upvalue(st.func, b) + end, + + GETGLOBAL = function(st, slot, pc, a, b, c) + slot[a] = trylookup(st, st.stats.env, const(st.func, b)) + end, + + GETTABLE = function(st, slot, pc, a, b, c) + local t = slot[b] + tablehint(st, slot, pc, t, c) + slot[a] = trylookup(st, t, slot[c]) + end, + + SETGLOBAL = empty, + + SETUPVAL = empty, -- TODO: shortcut -- but this is rare? + + SETTABLE = function(st, slot, pc, a, b, c) + local t = slot[a] + tablehint(st, slot, pc, t, b) + if type(t) == "table" or type(t) == "userdata" then -- Must validate setkey. + local val = slot[c] + if val ~= nil then st.tableval[t] = val end + end + end, + + NEWTABLE = function(st, slot, pc, a, b, c) + slot[a] = {} -- Need unique tables for indexing st.tableval. + end, + + SELF = function(st, slot, pc, a, b, c) + local t = slot[b] + tablehint(st, slot, pc, t, c) + slot[a+1] = t + slot[a] = trylookup(st, t, slot[c]) + end, + + ADD = arithop, SUB = arithop, MUL = arithop, DIV = arithop, + MOD = arithop, POW = arithop, LT = arithop, LE = arithop, + + UNM = function(st, slot, pc, a, b, c) + return arithop(st, slot, pc, a, b, b, "UNM") + end, + + NOT = function(st, slot, pc, a, b, c) + slot[a] = true + end, + + LEN = function(st, slot, pc, a, b, c) + typehint(st, pc, slot[b]) + slot[a] = 1 + end, + + CONCAT = function(st, slot, pc, a, b, c) + local mixed + local sb = slot[b] + for i=b+1,c do + local si = slot[i] + if sb == nil then + sb = si + elseif si ~= nil and type(sb) ~= type(si) then + mixed = true + break + end + end + if sb == nil then + sb = "" + else + st[pc+hints.TYPE] = not mixed and sb or false + if type(sb) == "number" then sb = "" end + end + slot[a] = sb -- Assume coercion to 1st type (if different) or string. + end, + + JMP = function(st, slot, pc, a, b, c) + if b >= 0 then -- Kill JMPs across dead code. + local tpc = pc + b + while not st.live[tpc] do tpc = tpc - 1 end + if tpc == pc then st[pc+hints.COMBINE] = false end + end + end, + + EQ = function(st, slot, pc, a, b, c) + if b >= 0 and c >= 0 then typehint(st, pc, slot[b] or slot[c]) end + end, + + TEST = function(st, slot, pc, a, b, c) + return testop(st, slot, pc, a, a, c) + end, + + TESTSET = testop, + + CALL = function(st, slot, pc, a, b, c) + callhint(st, slot, pc, a, b-1, c-1) + end, + + TAILCALL = function(st, slot, pc, a, b, c) + callhint(st, slot, pc, a, b-1, -1) + end, + + RETURN = function(st, slot, pc, a, b, c) + if b == 2 and prevconst(st, slot, pc, a) then + st[pc-1+hints.COMBINE] = true -- Set COMBINE hint for prev. instruction. + end + end, + + FORLOOP = empty, + + FORPREP = function(st, slot, pc, a, b, c) + local ok, step = prevconst(st, slot, pc, a+2) + if type(step) == "number" then + st[pc+hints.FOR_STEP_K] = step + end + local nstart, nstep = slot[a], slot[a+2] + local tnstart, tnstep = type(nstart), type(nstep) + local ntype = ((tnstart == "number" and nstart % 1 ~= 0) or + (tnstep == "number" and nstep % 1 ~= 0)) and 0.5 or 1 + slot[a+3] = ntype + if tnstart == "number" and tnstep == "number" and + type(slot[a+1]) == "number" then + st[pc+hints.TYPE] = ntype + end + end, + + -- TFORLOOP is at the end of the loop. Setting slots would be pointless. + -- Inlining is handled by the corresponding iterator constructor (CALL). + TFORLOOP = function(st, slot, pc, a, b, c) + st[pc+hints.TYPE] = slot[a] + end, + + SETLIST = function(st, slot, pc, a, b, c) + -- TODO: if only (numeric) const: shortcut (+ nobarrier). + local t = slot[a] + -- Very imprecise. But better than nothing. + if type(t) == "table" then st.tableval[t] = slot[a+1] end + end, + + CLOSE = empty, + + CLOSURE = function(st, slot, pc, a, b, c) + slot[a] = empty + if st.noclose then + local nup = jutil.closurenup(st.func, b) + for i=pc+1,pc+nup do + local op = bytecode(st.func, i) + if op == "MOVE" then + st.noclose = false + return + end + end + end + end, + + VARARG = function(st, slot, pc, a, b, c) + local params = st.stats.params + for i=1,b do slot[a+i-1] = st[params+i] end + end, +} + +-- Generate some hints for the compiler backend. +local function optimize(st) + -- Deoptimization is simple: just don't generate any hints. :-) + if st.deopt then return end + + local func = st.func + local stats = jutil.stats(func) + if not stats then return jutil.status.COMPILER_ERROR end -- Eh? + + -- Check limits. + if stats.bytecodes > LIMITS.bytecodes or + stats.stackslots > LIMITS.stackslots or + stats.params > LIMITS.params or + stats.consts > LIMITS.consts or + stats.subs > LIMITS.subs then + return jutil.status.TOOLARGE + end + + -- Mark live instructions (live[pc]) and branch targets (live[-pc]). + local live = marklive(func) + + -- Handlers need access to some temporary state fields. + st.noclose = true + st.stats = stats + st.live = live + st.tableval = { [stats.env] = empty } -- Guess: unknown globals are functions. + + -- Initialize slots with argument hints and constants. + local slot = {} + for i=1,stats.params do slot[i-1] = st[i] end + for i=-1,-256,-1 do -- No need to copy non-RK-able consts. + local k, ok = const(func, i) + if not ok then break end + slot[i] = k + end + + -- Step through all live instructions, update slots and add hints. + for pc=1,stats.bytecodes do + if live[pc] then + local op, a, b, c, test = bytecode(func, pc) + handler[op](st, slot, pc, a, b, c, op) + else + st[pc+hints.COMBINE] = false -- Dead instruction hint. + end + end + + -- Update function hints. + if st.noclose then st[fhints.NOCLOSE] = true end + + -- Clear temporary state fields. + st.noclose = nil + st.stats = nil + st.live = nil + st.tableval = nil +end + + +-- Active flags. +local active, active_opt_inline + +-- Handler for compiler pipeline. +local function h_opt(st) + if optlevel <= 0 then return end + local ok, err = pcall(optimize, st) + if not ok then + io.stderr:write("\nERROR: jit.opt disabled: ", err, "\n") + jit.attach(h_opt) -- Better turn ourselves off after a failure. + active = nil + else + if err then return err end + end +end + +-- Load add-on module. +local function loadaddon(opt) + local name, val = string.match(opt, "^(.-)=(.*)$") -- Strip value. + if not name then name = opt end + name = "jit.opt_"..name + local ok, mod = pcall(require, name) + if not ok then + -- Return error if not installed, but propagate other errors. + if string.sub(mod, 1, 7) ~= "module " then error(mod, 0) end + return "optimizer add-on module "..name.." not found" + end + mod.start(val) +end + +-- Attach optimizer and set optimizer level or load add-on module. +local function setlevel_(opt) + -- Easier to always attach the optimizer (even for -O0). + if not active then + jit.attach(h_opt, PRIORITY) + active = true + end + + -- Parse -O or -O. + if opt == nil or opt == "" then + optlevel = OPTLEVEL + else + local level = tonumber(opt) -- Numeric level? + if level then + if level < 0 or level % 1 ~= 0 then + error("bad optimizer level", 0) + end + optlevel = level + else + if optlevel == -1 then optlevel = OPTLEVEL end + local err = loadaddon(opt) + if err then error(err, 0) end + end + end + + -- Load add-on module for inlining functions for -O2 and above. + if not active_opt_inline and optlevel >= 2 then + loadaddon("inline") -- Be silent if not installed. + active_opt_inline = true -- Try this only once. + end +end + + +-- Public module functions. +module(...) + +-- Callback to allow attaching a call hinter. Used by jit.opt_inline. +function attach_callhint(f) + callhint = f +end + +function getlevel() + return optlevel +end + +setlevel = setlevel_ +start = setlevel_ -- For -O command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua b/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua new file mode 100644 index 00000000000..6fd9e581d06 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua @@ -0,0 +1,397 @@ +---------------------------------------------------------------------------- +-- LuaJIT optimizer add-on module for function inlining. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- This is a simple framework for C function signature maps. +-- It helps with type propagation and C function inlining. +-- +-- This module is automatically loaded with -O2 and above. +-- By default most standard library functions are added. +-- +-- TODO: generalize it, e.g. for back propagation (i.e. arg types). +-- TODO: extend it for Lua functions (but need to analyze them before use). +------------------------------------------------------------------------------ + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, rawget, next = type, rawget, next +local hints, fhints = jutil.hints, jutil.fhints +local sub, match, gsub = string.sub, string.match, string.gsub + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Prototypical objects used for type hints. +local TABLE = {} +local CFUNC = collectgarbage -- Pretty sure this is never inlined. + + +-- Map from C closures to signatures. Cannot use a weak table. +-- Closures must be kept alive because inlining checks against their addrs. +local map_sign = {} + +-- For jit.dumphints: get printable name for TYPE hint: "#INLINE(foo.bar)". +local function getname_(f, idx) + local sign = map_sign[f] + if sign then + local libname, name = sign.libname, sign.name + if libname then + return libname.."."..name + else + return name + end + elseif idx == 0 then + return "recursive" + else + return "?" + end +end + +-- Name, base table and running index for convenience functions. +-- CHECK: the library index and the order below must match with ljit_hints.h +local flibname, flib, fidx + +local function fadd(name, results, args, handler) + local f = rawget(flib, name) + if f then + map_sign[f] = { + libname = flibname, name = name, idx = fidx, + results = results, args = args, handler = handler, + } + end + if fidx then fidx = fidx + 1 end +end + +local function faddf(name, f, results, args, handler) + map_sign[f] = { + libname = flibname, name = name, idx = fidx, + results = results, args = args, handler = handler, + } + if fidx then fidx = fidx + 1 end +end + + +-- Signature handler: copy first argument to first result. +local function copyfirst(st, slot, pc, base, narg, nres) + slot[base] = slot[base+1] +end + +-- Helper for iterators: check if the function is an iterator constructor. +-- +-- 'for ivars in func(args) do body end' +-- +-- ...load func+args... +-- CALL func <-- pc +-- JMP fwd ---+ +-- back: | <--+ +-- ...body... | | +-- fwd: <--+ | +-- TFORLOOP ivars | <-- tforpc +-- JMP back ---+ +-- +local function itercheck(st, slot, pc, base, idx) + if idx then + local bytecode, func = jutil.bytecode, st.func + local op, _, fwd = bytecode(func, pc+1) + if op == "JMP" then + local tforpc = pc+2+fwd + local op, tfbase, _, tfnres = bytecode(func, tforpc) + if op == "TFORLOOP" and tfbase == base and tfnres <= 2 then + local op, _, back = bytecode(func, tforpc+1) + if op == "JMP" and fwd+back == -2 then + -- Must set inlining hint for TFORLOOP instruction here. + st[tforpc+hints.INLINE] = idx -- Serves as iterator index, too. + return -- Inline it. + end + end + end + end + slot[base] = CFUNC -- Better make it different from pairs. + return true -- Better not inline it, if not used in a for statement. +end + +-- Helper for pairs/next: guess result types for standard table iterator. +local function guessnext(st, slot, base, dest) + local t, k, v = slot[base+1] + if type(t) == "table" then + k, v = next(t) + if v == nil then v = st.tableval[t] end + end + slot[dest] = k or "" -- Strings are a good guess for the key type. + slot[dest+1] = v -- But better not guess any fixed value type. +end + + +-- Signatures for base library functions. +-- Note: Only add functions where result type hints or inlining makes sense. +flibname, flib, fidx = nil, _G, 65536*1 +fadd("pairs", "..0", "T", + function(st, slot, pc, base, narg, nres, idx) + -- Table in slot[base+1] is kept (2nd result = 1st arg). + -- Fill result slots for the iterator here (TFORLOOP is at the end). + guessnext(st, slot, base, base+3) + return itercheck(st, slot, pc, base, idx) + end) + +fadd("ipairs", "..I", "T", + function(st, slot, pc, base, narg, nres, idx) + -- Table in slot[base+1] is kept (2nd result = 1st arg). + -- Fill result slots for the iterator here (TFORLOOP is at the end). + local t = slot[base+1] + slot[base+3] = 1 -- Integer key. + local v + if type(t) == "table" then + v = rawget(t, 1) + if v == nil then v = st.tableval[t] end + end + slot[base+4] = v + return itercheck(st, slot, pc, base, idx) + end) + +fidx = nil -- Pure result type signatures follow: +fadd("next", "..", "T.?", + function(st, slot, pc, base, narg, nres) + guessnext(st, slot, base, base) + end) +fadd("type", "S", ".") +fadd("getmetatable", "T", ".") +fadd("setmetatable", ".", "TT?", copyfirst) +fadd("rawequal", "B", "..") +fadd("rawget", ".", "T.", + function(st, slot, pc, base, narg, nres) + local t = slot[base+1] + slot[base] = type(t) == "table" and rawget(t, slot[base+2]) or "" + end) +fadd("rawset", ".", "T..", copyfirst) +fadd("assert", "*", "..*", + function(st, slot, pc, base, narg, nres) + for i=1,nres do slot[base+i-1] = i <= narg and slot[base+i] or nil end + end) +fadd("tonumber", "I", ".I?") +fadd("tostring", "S", ".") +fadd("require", "T", "S") + +-- Signatures for coroutine library functions. +flibname, flib, fidx = "coroutine", coroutine, 65536*2 +if flib then + fadd("yield", "*", ".*") + fadd("resume", "*", "R.*", + function(st, slot, pc, base, narg, nres) + slot[base] = true + for i=1,nres-1 do slot[base+i] = nil end -- No guess. + end) + + fidx = nil -- Pure result type signatures follow: + fadd("wrap", "C", "F") +end + +-- Signatures for string library functions. +flibname, flib, fidx = "string", string, 65536*3 +if flib then + fadd("len", "I", "S") + fadd("sub", "S", "SII?") + fadd("char", "S", "I*") + + fidx = nil -- Pure result type signatures follow: + fadd("byte", "I", "S", + function(st, slot, pc, base, narg, nres) + for i=0,nres-1 do slot[base+i] = 1 end -- Set all result hints. + end) + fadd("rep", "S", "SI") + fadd("reverse", "S", "S") + fadd("upper", "S", "S") + fadd("lower", "S", "S") + + fadd("format", "S", "S.*") + fadd("find", "*", "SSI?.?", + function(st, slot, pc, base, narg, nres) + slot[base] = 1 + slot[base+1] = 1 + for i=2,nres-1 do slot[base+i] = "" end -- Hints for matches. + end) + fadd("match", "*", "SSI?", + function(st, slot, pc, base, narg, nres) + for i=0,nres-1 do slot[base+i] = "" end -- Hints for matches. + end) + fadd("gsub", "SI", "SSGI?") + fadd("gmatch", "C00", "SS", + function(st, slot, pc, base, narg, nres) + -- Fill result slots for gmatch_iter here (TFORLOOP is at the end). + for i=base+3,st.stats.stackslots-1 do slot[i] = "" end + end) + -- The gmatch iterator itself is never inlined. No point in adding it. +end + +-- Signatures for table library functions. +flibname, flib, fidx = "table", table, 65536*4 +if flib then + fadd("insert", "", "TI?.") + fadd("remove", ".", "T", + function(st, slot, pc, base, narg, nres) + if nres >= 1 then + local t = slot[base+1] + slot[base] = type(t) == "table" and rawget(t, 1) or "" + end + end) + fadd("getn", "I", "T") + + fidx = nil -- Pure result type signatures follow: + fadd("concat", "S", "TS?I?I?") +end + +-- Signatures for math library functions. +flibname, flib, fidx = "math", math, 65536*5 +if flib then + -- 1 arg, 1 result. + fadd("log", "N", "N") + fadd("log10", "N", "N") + fadd("exp", "N", "N") + fadd("sinh", "N", "N") + fadd("cosh", "N", "N") + fadd("tanh", "N", "N") + fadd("asin", "N", "N") + fadd("acos", "N", "N") + fadd("atan", "N", "N") + fadd("sin", "N", "N") + fadd("cos", "N", "N") + fadd("tan", "N", "N") + fadd("ceil", "I", "N") + fadd("floor", "I", "N") + fadd("abs", ".", "N", copyfirst) + fadd("sqrt", "N", "N") + -- 2 args, 1 result. + -- math.fmod is aliased to math.mod for compatibility. + fadd("fmod", ".", "NN", + function(st, slot, pc, base, narg, nres) + slot[base] = slot[base+2] or 1 -- Copy integer or number hint. + end) + fadd("atan2", "N", "NN") + + fidx = nil -- Pure result type signatures follow: + -- 1-n args, 1 result. + fadd("min", ".", "NN*", copyfirst) -- Really depends on all args. + fadd("max", ".", "NN*", copyfirst) -- Really depends on all args. + -- 1 arg, 1 result. + fadd("deg", "N", "N") + fadd("rad", "N", "N") + -- 1 arg, 2 results. + fadd("modf", "IN", "N") + fadd("frexp", "NI", "N") + -- 2 args, 1 result. + fadd("pow", "N", "NN") + fadd("ldexp", ".", "NI", copyfirst) + -- 1 arg, 0 results. + fadd("randomseed", "", "I") + -- 0-2 args, 1 result. + fadd("random", "N", "I?I?", + function(st, slot, pc, base, narg, nres) + if narg > 0 then slot[base] = 1 end + end) +end + +-- Signatures for I/O library functions. +-- Not inlined anytime soon. Used for result types only. +flibname, flib, fidx = "io", io, nil +if flib then + fadd("lines", "C00S", "S?") + fadd("read", "S", "") -- Simplified (a lot). + -- Adding io methods doesn't work, because we don't deal with userdata (yet). +end + + +-- Type names to argument type shorthands. +-- TODO: make the matches more exact? Need to differentiate nil/unknown. +local map_argtype = { + ["nil"] = "0", boolean = "b", number = "n", string = "s", + table = "t", ["function"] = "f", userdata = "u", thread = "r", +} + +-- Complex argument match patterns to regexp fragments. +local map_argmatch = { + B = "[b0]", S = "[s0]", T = "[t0]", F = "[f0]", U = "[u0]", R = "[r0]", + N = "[n0]", I = "[n0]", -- Number/int args are the same for now. + G = "[stf0]", -- For string.gsub. +} + +-- Result type shorthands to sample types. +local map_restype = { + -- ["0"] = nil, + B = true, S = "", T = {}, + N = 0.5, I = 1, + L = function() end, C = collectgarbage, -- Pretty sure this is never inlined. +} + +-- Create argument match regexp and cache it. +local function getargmatch(sign) + local argmatch = "^"..gsub(sign.args, ".", map_argmatch).."0*$" + sign.argmatch = argmatch + return argmatch +end + +-- Set INLINE hints and result types for known C functions. +local function inlinehint(sign, st, slot, pc, base, narg, nres) + local idx = sign.idx + if idx then + if narg ~= -1 then + local argpat = "" + for i=1,narg do argpat = argpat..map_argtype[type(slot[base+i])] end + if not match(argpat, sign.argmatch or getargmatch(sign)) then + idx = nil + end + end + end + + local results = sign.results + if results ~= "*" and nres ~= -1 then + if nres > #results then idx = nil end + for i=1,#results do + local c = sub(results, i, i) + if c ~= "." then slot[base+i-1] = map_restype[c] end + end + end + + local handler = sign.handler + if handler and handler(st, slot, pc, base, narg, nres, idx) then idx = nil end + + if idx then st[pc+hints.INLINE] = idx end +end + +-- Set call hints and result types during forward propagation. +local function fwdcallhint(st, slot, pc, base, narg, nres) + local f = slot[base] + st[pc+hints.TYPE] = f + if type(f) == "function" then + local sign = map_sign[f] + if sign then + inlinehint(sign, st, slot, pc, base, narg, nres) + return + end + if f == st.func and not st.stats.isvararg and + (narg == -1 or narg == st.stats.params) then + st[pc+hints.INLINE] = 0 -- Recursive call. + end + end + -- Clear result types for unknown functions. + for i=base,base+nres-1 do slot[i] = nil end +end + + +-- Attach call hinter to optimizer. +local function start_() + local jopt = require "jit.opt" + jopt.attach_callhint(fwdcallhint) + -- Note that just loading the optimizer does not start it, yet. +end + + +-- Public module functions. +module(...) + +-- TODO: Public API to add signatures. Alas, the API is still in flux. +getname = getname_ +start = start_ + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/trace.lua b/src/3rd party/LuaJIT-1.1.8/jit/trace.lua new file mode 100644 index 00000000000..01ca6682d4f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/trace.lua @@ -0,0 +1,111 @@ +---------------------------------------------------------------------------- +-- LuaJIT compiler tracing module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to trace the progress of the JIT compiler. +-- +-- Try: luajit -j trace -e 'print "foo"' +-- luajit -j trace=foo.trace foo.lua +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_TRACEFILE". +-- Note: the file is overwritten each time you run luajit. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Must run after backend (negative) +-- and should be odd to catch compiler errors, too. +local PRIORITY = -99 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, tostring, sub, format = type, tostring, string.sub, string.format +local getinfo, justats = debug.getinfo, jutil.stats +local stdout, stderr = io.stdout, io.stderr + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Active flag and output file handle. +local active, out + +-- Generate range string from table: pc[-pc] [,...] +local function rangestring(t) + local s = "" + for i,range in ipairs(t) do + if i ~= 1 then s = s.."," end + local pc = range % 65536 + range = (range - pc) / 65536 + s = s..pc + if range ~= 0 then s = s..(-(pc+range)) end + end + return s +end + +-- Trace handler for compiler pipeline. +local function h_trace(st, status) + local o = out or stderr + local func = st.func + if type(func) ~= "function" then return end + local info = getinfo(func, "S") + local src, line = info.source, info.linedefined or 0 + if src then + if sub(src, 1, 1) == "@" or sub(src, 1, 2) == "=(" then + src = sub(src, 2) + else + src = "**"..string.gsub(sub(src, 1, 40), "%c", " ").."**" + end + else + src = "?" + end + local aux = st.deopt and " DEOPT="..rangestring(st.deopt) or "" + if status == nil then + local stats = justats(func) + if not stats then return end + o:write(format("[LuaJIT: OK %4d %6d %s:%d%s]\n", + stats.bytecodes, stats.mcodesize or -1, src, line, aux)) + return + else + local stname = jit.util.status[status] or status + local pc, err = st.dasm_pc, st.dasm_err + if type(pc) == "number" and type(err) == "number" then + local op = jutil.bytecode(func, pc) or "END" + o:write(format("[LuaJIT: %s %s@%d %08x %s:%d%s]\n", + stname, op, pc, err, src, line, aux)) + else + o:write(format("[LuaJIT: %s %s:%d%s]\n", stname, src, line, aux)) + end + end +end + +-- Detach trace handler from compiler pipeline. +local function traceoff() + if active then + active = false + jit.attach(h_trace) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach trace handler to compiler pipeline. +local function traceon(filename) + if active then traceoff() end + local outfile = filename or os.getenv("LUAJIT_TRACEFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_trace, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +on = traceon +off = traceoff +start = traceon -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css new file mode 100644 index 00000000000..16a6a72a304 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css @@ -0,0 +1,166 @@ +/* Copyright (C) 2004-2012 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +body { + font-family: serif; + font-size: 11pt; + margin: 0 3em; + padding: 0; + border: none; +} +a:link, a:visited, a:hover, a:active { + text-decoration: none; + background: transparent; + color: #0000ff; +} +h1, h2, h3 { + font-family: sans-serif; + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; +} +h1 { + font-size: 200%; +} +h2 { + font-size: 150%; +} +h3 { + font-size: 125%; +} +p { + margin: 0 0 0.5em 0; + padding: 0; +} +ul, ol { + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + margin: 1em 0; + padding: 1em; + border: 1px solid black; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +table { + table-layout: fixed; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid black; + border-spacing: 0; + border-collapse: collapse; +} +tr { + margin: 0; + padding: 0; + border: none; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border-top: 1px solid black; + border-bottom: 1px solid black; +} +tr.separate td { + border-top: double; +} +tt, pre, code, kbd, samp { + font-family: monospace; + font-size: 75%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + margin: 1em 2em; + padding: 0; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noprint, #nav { + display: none !important; +} +.pagebreak { + page-break-before: always; +} +#site { + text-align: right; + font-family: sans-serif; + font-weight: bold; + margin: 0 1em; + border-bottom: 1pt solid black; +} +#site a { + font-size: 1.2em; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#logo { + color: #ff8000; +} +#head { + clear: both; + margin: 0 1em; +} +#main { + line-height: 1.3; + text-align: justify; + margin: 1em; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0 1.25em; + padding: 0.5em 0 0 0; + border-top: 1pt solid black; + page-break-before: avoid; + page-break-after: avoid; +} diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css new file mode 100644 index 00000000000..b1bf8fcc1fb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css @@ -0,0 +1,292 @@ +/* Copyright (C) 2004-2012 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +/* colorscheme: + * + * site | head #4162bf/white | #6078bf/#e6ecff + * ------+------ ----------------+------------------- + * nav | main #bfcfff | #e6ecff/black + * + * nav: hiback loback #c5d5ff #b9c9f9 + * hiborder loborder #e6ecff #97a7d7 + * link hover #2142bf #ff0000 + * + * link: link visited hover #2142bf #8122bf #ff0000 + * + * main: boxback boxborder #f0f4ff #bfcfff + */ +body { + font-family: Verdana, Arial, Helvetica, sans-serif; + font-size: 10pt; + margin: 0; + padding: 0; + border: none; + background: #e0e0e0; + color: #000000; +} +a:link { + text-decoration: none; + background: transparent; + color: #2142bf; +} +a:visited { + text-decoration: none; + background: transparent; + color: #8122bf; +} +a:hover, a:active { + text-decoration: underline; + background: transparent; + color: #ff0000; +} +h1, h2, h3 { + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; + background: transparent; +} +h1 { + font-size: 200%; + line-height: 3em; /* really 6em relative to body, match #site span */ + margin: 0; +} +h2 { + font-size: 150%; + color: #606060; +} +h3 { + font-size: 125%; + color: #404040; +} +p { + max-width: 600px; + margin: 0 0 0.5em 0; + padding: 0; +} +ul, ol { + max-width: 600px; + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + max-width: 600px; + margin: 1em 0; + padding: 1em; + border: 1px solid #bfcfff; + background: #f0f4ff; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; + color: #808080; +} +dt a:visited { + text-decoration: none; + color: #2142bf; +} +dt a:hover, dt a:active { + text-decoration: none; + color: #ff0000; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +div.tablewrap { /* for IE *sigh* */ + max-width: 600px; +} +table { + table-layout: fixed; + border-spacing: 0; + border-collapse: collapse; + max-width: 600px; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid #bfcfff; +} +tr { + margin: 0; + padding: 0; + border: none; +} +tr.odd { + background: #f0f4ff; +} +tr.separate td { + border-top: 1px solid #bfcfff; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border: none; +} +tt, code, kbd, samp { + font-family: Courier New, Courier, monospace; + font-size: 110%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + max-width: 600px; + margin: 1em 2em; + padding: 0; +} +pre { + line-height: 1.1; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.indent { + padding-left: 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noscreen { + display: none !important; +} +.ext { + color: #ff8000; +} +#site { + clear: both; + float: left; + width: 13em; + text-align: center; + font-weight: bold; + margin: 0; + padding: 0; + background: transparent; + color: #ffffff; +} +#site a { + font-size: 200%; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#site span { + line-height: 3em; /* really 6em relative to body, match h1 */ +} +#logo { + color: #ffb380; +} +#head { + margin: 0; + padding: 0 0 0 2em; + border-left: solid 13em #4162bf; + border-right: solid 3em #6078bf; + background: #6078bf; + color: #e6ecff; +} +#nav { + clear: both; + float: left; + overflow: hidden; + text-align: left; + line-height: 1.5; + width: 13em; + padding-top: 1em; + background: transparent; +} +#nav ul { + list-style: none outside; + margin: 0; + padding: 0; +} +#nav li { + margin: 0; + padding: 0; +} +#nav a { + display: block; + text-decoration: none; + font-weight: bold; + margin: 0; + padding: 2px 1em; + border-top: 1px solid transparent; + border-bottom: 1px solid transparent; + background: transparent; + color: #2142bf; +} +#nav a:hover, #nav a:active { + text-decoration: none; + border-top: 1px solid #97a7d7; + border-bottom: 1px solid #e6ecff; + background: #b9c9f9; + color: #ff0000; +} +#nav a.current, #nav a.current:hover, #nav a.current:active { + border-top: 1px solid #e6ecff; + border-bottom: 1px solid #97a7d7; + background: #c5d5ff; + color: #2142bf; +} +#nav ul ul a { + padding: 0 1em 0 2em; +} +#main { + line-height: 1.5; + text-align: left; + margin: 0; + padding: 1em 2em; + border-left: solid 13em #bfcfff; + border-right: solid 3em #e6ecff; + background: #e6ecff; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0; + padding: 0.5em; + background: #6078bf; + color: #ffffff; +} +#foot a:link, #foot a:visited { + text-decoration: underline; + background: transparent; + color: #ffffff; +} +#foot a:hover, #foot a:active { + text-decoration: underline; + background: transparent; + color: #bfcfff; +} diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html new file mode 100644 index 00000000000..c4a26106790 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html @@ -0,0 +1,132 @@ + + + +Coco + + + + + + + + +
+Lua +
+ + +
+

+Coco is a small extension to get True C Coroutine +semantics for Lua 5.1. +

+

+Coco is both available as a stand-alone release and integrated +into LuaJIT 1.x. +

+

+The stand-alone release is a patchset against the +» standard Lua 5.1.5 +distribution. There are no dependencies on LuaJIT. However LuaJIT 1.x +depends on Coco to allow yielding for JIT compiled functions. +

+

+Coco is Copyright © 2004-2012 Mike Pall. +Coco is free software, released under the +» MIT/X license +(same license as the Lua core). +

+

Features

+

+True C coroutine semantics mean you can yield from a coroutine +across a C call boundary and resume back to it. +

+

+Coco allows you to use a dedicated C stack for each coroutine. +Resuming a coroutine and yielding from a coroutine automatically switches +C stacks, too. +

+

+In particular you can now: +

+
    +
  • Yield across all metamethods (not advised for __gc).
    • +
  • Yield across iterator functions (for x in func do).
    • +
  • Yield across callbacks (table.foreach(), dofile(), ...).
    • +
  • Yield across protected callbacks (pcall(), xpcall(), ...).
    • +
  • Yield from C functions and resume back to them.
    • +
+

+Best of all, you don't need to change your Lua or C sources +and still get the benefits. It's fully integrated into the +Lua core, but tries to minimize the required changes. +

+ +

More ...

+

+Please visit the » Download page +to fetch the current version of the stand-alone package. +

+

+Coco needs some machine-specific features — please have a look +at the Portability Requirements. +

+

+Coco also provides some upwards-compatible +API Extensions for Lua. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html new file mode 100644 index 00000000000..dc08084bea2 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html @@ -0,0 +1,182 @@ + + + +Coco API Extensions + + + + + + + + +
+Lua +
+ + +
+

+Coco changes the semantics of several standard API functions and +provides a few API extensions for Lua. +

+

+By default all your coroutines get an associated C stack. +If you want to be more selective, see below. +

+ +

Lua API extensions

+

+All coroutine.* functions should be fully upwards compatible. +

+ +

coroutine.coco

+

+This field is true when Coco is present (nil otherwise). +

+ +

coro = coroutine.create(f [, cstacksize])
+func = coroutine.wrap(f [, cstacksize])

+

+The optional argument cstacksize specifies the size of the +C stack to allocate for the coroutine: +

+
    +
  • A default stack size is used if cstacksize is not given +or is nil or zero.
    • +
  • No C stack is allocated if cstacksize is -1.
    • +
  • Any other value is rounded up to the minimum size +(i.e. use 1 to get the minimum size).
    • +
+

+Important notice for LuaJIT: JIT compiled functions cannot +yield if a coroutine does not have a dedicated C stack. +

+ +

olddefault = coroutine.cstacksize([newdefault])

+

+Returns the current default C stack size (may be 0 if the +underlying context switch method has its own default). +Sets a new default C stack size if newdefault is present. +Use 0 to reset it to the default C stack size. Any other +value is rounded up to the minimum size. +

+ +

C API extensions

+

+All C API functions are either unchanged or upwards compatible. +

+ +

int lua_yield(lua_State *L, int nresults)

+

+The semantics for lua_yield() have changed slightly. +Existing programs should work fine as long as they follow +the usage conventions from the Lua manual: +

+
+return lua_yield(L, nresults);
+
+

+Previously lua_yield() returned a 'magic' value (-1) that +indicated a yield. Your C function had to pass this value +on to the Lua core and was not called again. +

+

+Now, if the current coroutine has an associated C stack, +lua_yield() returns the number of arguments passed back from +the resume. This just happens to be the right convention for +returning them as a result from a C function. I.e. if you +used the above convention, you'll never notice the change. +

+

+But the results are on the Lua stack when lua_yield() +returns. So the C function can just continue and process them +or retry an I/O operation etc. And your whole C stack frame +(local variables etc.) is still there, too. You can yield from +anywhere in your C program, even several call levels deeper. +

+

+Of course all of this only works with Lua+Coco and not with standard Lua. +

+ +

lua_State *lua_newcthread(lua_State *L, int cstacksize)

+

+This is an (optional) new function that allows you to create +a coroutine with an associated C stack directly from the C API. +Other than that it works the same as lua_newthread(L). +

+

+You have to declare this function as extern +yourself, since it's not part of the official Lua API. +This means that a C module that uses this call cannot +be loaded with standard Lua. This may be intentional. +

+

+If you want your C module to work with both standard Lua +and Lua+Coco you can check whether Coco is available with: +

+
+  lua_getfield(L, LUA_GLOBALSINDEX, "coroutine");
+  lua_getfield(L, -1, "coco");
+  coco_available = lua_toboolean(L, -1);
+  lua_pop(L, 2);
+
+

+You can also create coroutines with a C stack by calling +the Lua function coroutine.create() from C. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html new file mode 100644 index 00000000000..889a402d1ff --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html @@ -0,0 +1,153 @@ + + + +Coco Change History + + + + + + + + +
+Lua +
+ + +
+

+This is a list of changes between the released versions of Coco. +The current stand-alone release is Coco 1.1.7. +

+

+Please check the +» Online Change History +to see whether newer versions are available. +

+ +

Coco 1.1.7 — 2012-04-16

+
    +
  • Patch is now relative to Lua 5.1.5.
    • +
  • Add setjmp method for iOS. Thanks to H. Muhlestein and Minux.
    • +
  • Fix MIPS ABI detection.
    • +
+ +

Coco 1.1.6 — 2009-09-08

+
    +
  • Fix compilation of the GCC inline assembler code on x64. +Now works when compiled as C++ code (reported by Jonathan Sauer) +or with -fPIC (reported by Jim Pryor).
    • +
  • Added GCC inline assembler for faster context switching on Sparc. +Thanks to Takayuki Usui.
    • +
+ +

Coco 1.1.5 — 2008-10-25

+
    +
  • Upgraded to patch cleanly into Lua 5.1.4.
    • +
  • Added GCC inline assembler for faster context switching on x64. +Thanks to Robert G. Jakabosky.
    • +
+ +

Coco 1.1.4 — 2008-02-05

+
    +
  • Upgraded to patch cleanly into Lua 5.1.3.
    • +
  • Fixed setjmp method for ARM with recent glibc versions. +Thanks to the LuaTeX developers.
    • +
  • Fixed setjmp method for x86 on Mac OS X (rarely used, +default is GCC inline assembler). Thanks to Jason Toffaletti.
    • +
+ +

Coco 1.1.3 — 2007-05-24

+
    +
  • Upgraded to patch cleanly into Lua 5.1.2.
    • +
  • Merged patch from Zachary P. Landau for a Linux/ARM setjmp method (uClibc and glibc).
    • +
+ +

Coco 1.1.1 — 2006-06-20

+
    +
  • Upgraded to patch cleanly into Lua 5.1.1.
    • +
  • C stacks are deallocated early: when a coroutine ends, and not when +the coroutine object is collected. This mainly benefits Windows Fibers.
    • +
  • Windows threads get the required Fiber context when resuming +a coroutine and not just on creation.
    • +
+ +

Coco 1.1.0 — 2006-02-18

+
    +
  • Upgraded to patch cleanly into Lua 5.1 (final).
    • +
  • Added GCC inline assembler for context switching on x86 and MIPS32 +[up to 3x faster].
    • +
  • New targets for setjmp method: +Mac OS X/x86, Solaris/x86 and x64 and Linux/MIPS32.
    • +
  • Workaround for WinXP problem with GetCurrentFiber().
    • +
  • The minimum C stack size has been increased to 32K+4K.
    • +
  • Removed lcocolib.c and integrated the (much smaller) changes +into lbaselib.c.
    +Note for embedders: this means you no longer need to call +luaopen_coco().
    • +
  • Optional Valgrind support requires version 3.x. +Renamed define to USE_VALGRIND.
    • +
  • C stacks are now registered with Valgrind.
    • +
+ +

Coco pre-release 51w6 — 2005-08-09

+

+This is the first pre-release of Coco. It targets Lua 5.1-work6 only +and is no longer available for download. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html new file mode 100644 index 00000000000..646486db18f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html @@ -0,0 +1,239 @@ + + + +Portability Requirements for Coco + + + + + + + + + +
+Lua +
+ + +
+

+Coco needs some machine-specific features which are +inherently non-portable. Although the coverage is pretty good, +this means that Coco will probably never be a standard part +of the Lua core (which is pure ANSI C). +

+ +

Context Switching Methods

+

+Coco relies on four different machine-specific methods +for allocating a C stack and switching context. +The appropriate method is automatically selected at compile time. +

+ +

GCC Inline Assembler

+

+This method is only available when GCC 3.x/4.x is used +to compile the source. +This is the fastest method for context switching, but only available +for a few CPUs (see below). +

+ +

Modified setjmp Buffer

+

+This method changes a few fields in the setjmp buffer to +redirect the next longjmp to a new function with a new stack +frame. It needs a bit of guesswork and lots of #ifdef's to +handle the supported CPU/OS combinations, but this is quite +manageable. +

+

+This is the fallback method if inline assembler is not available. +It's pretty fast because it doesn't have to save or restore signals +(which is slow and generally undesirable for Lua coroutines). +

+ +

POSIX ucontext

+

+The POSIX calls getcontext, makecontext and switchcontext +are used to set up and switch between different C stacks. +Although highly portable and even available for some +esoteric platforms, it's slower than the setjmp method +because it saves and restores signals, too (using at least one +syscall for each context switch). +

+

+You can force the use of ucontext (instead of setjmp) by enabling +-DCOCO_USE_UCONTEXT in src/Makefile. +

+ +

Windows Fibers

+

+This is the standard method to set up and switch between +different C stacks on Windows. It's available on Windows 98 +and later. +

+

+None of the other methods work for Windows because OS specific code +is required to switch exception handling contexts. +

+ +

Supported Platforms

+

+Coco has support for the following platforms: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CPUSystemMethod
x86(any OS)gccasm
x86Linuxsetjmp
x86FreeBSDsetjmp
x86NetBSDsetjmp
x86OpenBSDsetjmp
x86Solarissetjmp
x86OSXsetjmp
x64(any OS)gccasm
x64Solarissetjmp
MIPS32(any OS)gccasm
MIPS32Linuxsetjmp
ARMLinuxsetjmp
ARMiOSsetjmp
PPC32OSXsetjmp
Sparc(any OS)gccasm
(any CPU)POSIXucontext
(any CPU)Windowsfibers
+
+
+

+It should work pretty much anywhere where a correct +POSIX ucontext implementation is available. It has been tested +on every systems I could get hold of (e.g. Sparc, PPC32/PPC64, +IA64, Alpha, HPPA with various operating systems). +

+ +

Caveats

+
    +
  • +Some older operating systems may have defective ucontext +implementations because this feature is not widely used. E.g. some +implementations don't mix well with other C library functions +like malloc() or with native threads. +This is really not the fault of Coco — please upgrade your OS. +
    • +
  • +Note for Windows: Please read the explanation for the default +» Thread Stack Size +in case you want to create large numbers of Fiber-based coroutines. +
    • +
  • +Note for MinGW/Cygwin: Older releases of GCC (before 4.0) generate +wrong unwind information when -fomit-frame-pointer is used +with stdcalls. This may lead to crashes when exceptions are thrown. +The workaround is to always use two flags:
    +-fomit-frame-pointer -maccumulate-outgoing-args. +
    • +
  • +Note for MIPS CPUs without FPU: It's recommended to compile +all sources with -msoft-float, even if you don't use +any floating point ops anywhere. Otherwise context switching must +save and restore FPU registers (which needs to go through +the slow kernel emulation). +
    • +
  • +To run Coco with » Valgrind +(a memory debugger) you must add -DUSE_VALGRIND +to MYCFLAGS and recompile. You will get random errors +if you don't! Valgrind 3.x or later is required. Earlier versions +do not work well with newly allocated C stacks. +
    • +
+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html new file mode 100644 index 00000000000..38c84f639d6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html @@ -0,0 +1,105 @@ + + + +Contact + + + + + + + + +
+Lua +
+ + +
+

+Please send general questions regarding LuaJIT or Coco to the +» Lua mailing list. +You can also send any questions you have directly to me: +

+ + + + + +

Copyright

+

+All documentation is +Copyright © 2005-2012 Mike Pall. +

+ + +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html new file mode 100644 index 00000000000..9c571642bee --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html @@ -0,0 +1,116 @@ + + + +DynASM + + + + + + + + +
+Lua +
+ + +
+

+DynASM is a Dynamic Assembler for code generation +engines. +

+

+DynASM has been developed primarily as a tool for +LuaJIT, but might be useful for other +projects, too. +

+

+If you are writing a just-in-time compiler or need to generate +code on the fly (e.g. for high-performance graphics or other +CPU-intensive computations), DynASM might be just what you +are looking for. +

+

+Please have a look at the list of Features +to find out whether DynASM could be useful for your project. +

+

+DynASM is Copyright © 2005-2012 Mike Pall. +DynASM is free software, released under the +» MIT/X license. +

+ +

More ...

+

+Sorry, right now there is no proper documentation available other +than some Examples and of course +the source code. The source is well documented, though (IMHO). +

+

+I may add more docs in case someone actually finds DynASM to be +useful outside of LuaJIT. If you do, I'd like to +hear from you, please. Thank you! +

+

+If you want to check it out please visit the +» Download page and fetch the most recent +version of LuaJIT. All you need is in the dynasm directory. +For some complex examples take a peek at the +*.dasc and *.dash files in LuaJIT, too. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html new file mode 100644 index 00000000000..a08654587b8 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html @@ -0,0 +1,188 @@ + + + +DynASM Examples + + + + + + + + +
+Lua +
+ + +
+

A Simple Example

+

+To get you started, here is a simple code snippet to be pre-processed. +The lines starting with '|' (the pipe symbol) are for DynASM: +

+
+  if (ptr != NULL) {
+    |  mov eax, foo+17
+    |  mov edx, [eax+esi*2+0x20]
+    |  add ebx, [ecx+bar(ptr, 9)]
+  }
+
+

+After pre-processing you get: +

+
+  if (ptr != NULL) {
+    dasm_put(Dst, 123, foo+17, bar(ptr, 9));
+  }
+
+

+Note: yes, you usually get the assembler code as comments and proper +CPP directives to match them up with the source. I've omitted +them here for clarity. Oh and BTW: the pipe symbols probably +line up much more nicely in your editor than in a browser. +

+

+Here 123 is an offset into the action list buffer that +holds the partially specified machine code. Without going +into too much detail, the embedded C library implements a +tiny bytecode engine that takes the action list as input and +outputs machine code. It basically copies machine code snippets +from the action list and merges them with the arguments +passed in by dasm_put(). +

+

+The arguments can be any kind of C expressions. In practical +use most of them evaluate to constants (e.g. structure offsets). +Your C compiler should generate very compact code out of it. +

+

+The embedded C library knows only what's absolutely needed to +generate proper machine code for the target CPU (e.g. variable +displacement sizes, variable branch offset sizes and so on). +It doesn't have a clue about other atrocities like x86 opcode +encodings — and it doesn't need to. This dramatically +reduces the minimum required code size to around 2K [sic!]. +

+

+The action list buffer itself has a pretty compact encoding, too. +E.g. the whole action list buffer for an early version of LuaJIT +needs only around 3K. +

+ +

Advanced Features

+

+Here's a real-life example taken from LuaJIT that shows some +advanced features like type maps, macros and how to access +C structures: +

+
+|.type L,      lua_State,  esi  // L.
+|.type BASE,   TValue,     ebx  // L->base.
+|.type TOP,    TValue,     edi  // L->top.
+|.type CI,     CallInfo,   ecx  // L->ci.
+|.type LCL,    LClosure,   eax  // L->ci->func->value.
+|.type UPVAL,  UpVal
+
+|.macro copyslot, D, S, R1, R2, R3
+|  mov R1, S.value;  mov R2, S.value.na[1];  mov R3, S.tt
+|  mov D.value, R1;  mov D.value.na[1], R2;  mov D.tt, R3
+|.endmacro
+
+|.macro copyslot, D, S;  copyslot D, S, ecx, edx, eax; .endmacro
+
+|.macro getLCL, reg
+||if (!J->pt->is_vararg) {
+|  mov LCL:reg, BASE[-1].value
+||} else {
+|  mov CI, L->ci
+|  mov TOP, CI->func
+|  mov LCL:reg, TOP->value
+||}
+|.endmacro
+
+|.macro getLCL;  getLCL eax; .endmacro
+
+[...]
+
+static void jit_op_getupval(jit_State *J, int dest, int uvidx)
+{
+  |  getLCL
+  |  mov UPVAL:ecx, LCL->upvals[uvidx]
+  |  mov TOP, UPVAL:ecx->v
+  |  copyslot BASE[dest], TOP[0]
+}
+
+

+And here is the pre-processed output (stripped a bit for clarity): +

+
+#define Dt1(_V) (int)&(((lua_State *)0)_V)
+[...]
+static void jit_op_getupval(jit_State *J, int dest, int uvidx)
+{
+  if (!J->pt->is_vararg) {
+    dasm_put(Dst, 1164, Dt2([-1].value));
+  } else {
+    dasm_put(Dst, 1168, Dt1(->ci), Dt4(->func), Dt3(->value));
+  }
+  dasm_put(Dst, 1178, Dt5(->upvals[uvidx]), DtF(->v), Dt3([0].value),
+           Dt3([0].value.na[1]), Dt3([0].tt), Dt2([dest].value),
+           Dt2([dest].value.na[1]), Dt2([dest].tt));
+}
+
+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html new file mode 100644 index 00000000000..a89f0bee64a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html @@ -0,0 +1,139 @@ + + + +DynASM Features + + + + + + + + +
+Lua +
+ + +
+

DynASM Toolchain Features

+
    +
  • DynASM is a pre-processing assembler.
    • +
  • DynASM converts mixed C/Assembler source to plain C code.
    • +
  • The primary knowledge about instruction names, operand modes, +registers, opcodes and how to encode them is only +needed in the pre-processor.
    • +
  • The generated C code is extremely small and fast.
    • +
  • A tiny embeddable C library helps with the process of dynamically +assembling, relocating and linking machine code.
    • +
  • There are no outside dependencies on other tools (such as +stand-alone assemblers or linkers).
    • +
  • Internal consistency checks catch runtime errors +(e.g. undefined labels).
    • +
  • The toolchain is split into a portable subset and +CPU-specific modules.
    • +
  • DynASM itself (the pre-processor) is written in Lua.
    • +
  • There is no machine-dependency for the pre-processor itself. +It should work everywhere you can get Lua 5.1 up and running +(i.e. Linux, *BSD, Solaris, Windows, ... you name it).
    • +
+ +

DynASM Assembler Features

+
    +
  • C code and assembler code can be freely mixed. +Readable, too.
    • +
  • All the usual syntax for instructions and operand modes +you come to expect from a standard assembler.
    • +
  • Access to C variables and CPP defines in assembler statements.
    • +
  • Access to C structures and unions via type mapping.
    • +
  • Convenient shortcuts for accessing C structures.
    • +
  • Local and global labels.
    • +
  • Numbered labels (e.g. for mapping bytecode instruction numbers).
    • +
  • Multiple code sections (e.g. for tailcode).
    • +
  • Defines/substitutions (inline and from command line).
    • +
  • Conditionals (translation time) with proper nesting.
    • +
  • Macros with parameters.
    • +
  • Macros can mix assembler statements and C code.
    • +
  • Captures (output diversion for code reordering).
    • +
  • Simple and extensible template system for instruction definitions.
    • +
+ +

Restrictions

+

+Currently only a subset of x86 (i386+) instructions is supported. +Unsupported instructions are either not usable in user-mode or +are slow on modern CPUs (i.e. not suited for a code generator). +SSE, SSE2, SSE3 and SSSE3 are fully supported. MMX is not supported. +

+

+The whole toolchain has been designed to support multiple CPU +architectures. As LuaJIT gets support for more architectures, +DynASM will be extended with new CPU-specific modules. +

+

+The assembler itself will be extended with more features on an +as-needed basis. E.g. I'm thinking about vararg macros. +

+

+Note that runtime conditionals are not really needed, since you can +just use plain C code for that (and LuaJIT does this a lot). +It's not going to be more (time-) efficient if conditionals are done +by the embedded C library (maybe a bit more space-efficient). +

+ + +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png new file mode 100644 index 0000000000000000000000000000000000000000..3c9002970132d92d921ed85d570e7ae3a4dd5524 GIT binary patch literal 118 zcmeAS@N?(olHy`uVBq!ia0y~yV9Wrr8JU=YWFPyT1R%v3;1lBd|NsB}=l=tF3cZDF zK#H*>$S;_|;n|HeAV=EM#W93qW^zG712ZejWY&WzE(VelM7RY)co_80FzjAbyIByZ OjKR~@&t;ucLK6UMKptlR literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png new file mode 100644 index 0000000000000000000000000000000000000000..70dcf07be48c0236688b13438aa3a2b43efaf42a GIT binary patch literal 134 zcmeAS@N?(olHy`uVBq!ia0vp^j6lr8!VDw>m!3)iQi=gSA+FEf{9nB3{?YUA19SKH z%)7Gl=u5|>{gK7{6Dsz5X6$d8dVa1#&H|uf1y2{p5RRG283_dm90>^t0SN*L5eF_D h2sn^%z@Sl)kwNPP^T%6nvq3g7c)I$ztaD0e0sz4?Fvb7? literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png new file mode 100644 index 0000000000000000000000000000000000000000..9c73dc594efc1f47309d6c9b73d7719c3a9e04df GIT binary patch literal 1340 zcmV-C1;hG@P)sQ4|K#fZOHEVa==(`aQP0%nM@di3(&I%(O)@h#$&+f^&9&U}9=sU}#xfW8dZX zS6X4+hl`eQb9`=bdTMQUS6N_FRb1EH?oLrx)!OXR*y%bu zKs7fzyTH%6zRkD1%O4*iwYte19Urr}$DpLK7#SM{1qGa-tpfuC0RaJph?9SUjedfR ze1M8)YI0?0aARg}VPtGhP*&yZ{!C6(sq^PzF3k;#Avk3_bkCL7T2MCRjoQjT_h>Vwp zij{MAe{pnuZ*qHWaCvKPcUD+m*xm0?Qd!p9?bO-p)7k3L*XYmH<~BGyy}{8mHafb$ z&bYnIARr?h9v~YW9vK=O7Z@4@1O%I(tO5c8@Y5f50008dNklZz)3AlitwxnPH%H`Uot)Wm#A~UJD{dq04A@c=B#o!5#fVO zK9y#&^Z}?|*LsioK&(FDooZAR)tQj#4t{T51EP;48U9I=7br`Bk^O8MkeX!ZNe^m_BH=Vrj*jZZuSKj$t2j7FZ^2u4YKv8(~ zaMJ@oQZ>+`rSiG$iy;5QP}GpcaF4=ry2srsiZ0RqYjK@LQA)d@GB0_aay0Tvrp83dAL2x{13 zII2|!RUp(7P{l^2T*QHZ71!E*QcTqNtMh0|uLS!2k^8W?Ka#6$aBn3*=LUe(BpUo6 z=nkI1fP*0x3aYH^su6tQT}{)EfU4IyLBQ-;(w1i;#)>KNGk41l6I5_B2)f}c}CK-PL&a{M5Rut(jQ@VX1_p&z6vN)t zNcp7CYSP6-mE96jwhE}y?lvr|2kRa0g^iLTaJ1y+9qs~F+W}}-FHd&oy;TeG2n6hM z2eK~@vIu+Z%WDWZDK7wkG0}TEXW(~!Gk+0t(i)Sck-Ht%F=yzi{ZFXe-}F6T**!vM y)$^3mN5{Eb6*vAD>S)nmP3aw7v29)6WaBSReaJM4z7xj)0000m!3)iQi=gSA+Gz2_wUc$|NqVZ`#s2*n`}Zg9e}De{%cC#PPd%UfPU9U=F?)%puPggT9(i$VYZr;)K%kJkr;B3< zhio!O!mk4&2NoQda^O#6BBL?00EYpq0Ve~4?FAM^%e?Xopi%};S3j3^P6 + + +The LuaJIT Project + + + + + + + + +
+Lua +
+ + +
+

+This is the offline documentation for: +

+
    +
  • +LuaJIT — +a Just-In-Time Compiler for Lua. +
    • +
  • +Coco — +a Lua extension for True C Coroutines. +
    • +
  • +DynASM — +a Dynamic Assembler for code generation engines. +
    • +
+ + + +

More ...

+

+Please click on one of the links in the navigation bar to your left +to learn more. +

+

+Click on the Logo in the upper left corner to visit +the LuaJIT project page on the web. All other links to online +resources are marked with a '»'. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html new file mode 100644 index 00000000000..e5c27d616e8 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html @@ -0,0 +1,109 @@ + + + +LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is a Just-In-Time Compiler for the Lua +programming language. +

+

+Lua is a powerful, light-weight programming language designed +for extending applications. Lua is also frequently used as a +general-purpose, stand-alone language. More information about +Lua can be found at: » http://www.lua.org/ +

+

+LuaJIT 1.x is based on the Lua 5.1.x virtual machine and bytecode interpreter +from lua.org. It compiles bytecode to native x86 (i386+) machine code +to speed up the execution of Lua programs. +

+

+LuaJIT depends on Coco to allow yielding +from coroutines for JIT compiled functions. Coco is part of the +LuaJIT distribution. +

+

+LuaJIT is Copyright © 2005-2012 Mike Pall. +LuaJIT is free software, released under the +» MIT/X license +(same license as the Lua core). +

+

More ...

+

+Click on the LuaJIT sub-topics in the navigation bar to learn more +about LuaJIT. +

+

+LuaJIT 2.0 is available with much improved performance!
+Please visit the » Download page to fetch +the current version of LuaJIT. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html new file mode 100644 index 00000000000..1f9087a14fe --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html @@ -0,0 +1,372 @@ + + + +LuaJIT API Extensions + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT provides several new API functions organized into two +libraries. +

+

+LuaJIT includes Coco — so have a look at the +Coco API Extensions, too. +

+ +

Standard Library Functions

+

+All standard library functions have the same behaviour as +in the Lua distribution LuaJIT is based on. +

+

+The Lua loader used by the standard require() library +function has been modified to turn off compilation of the main +chunk of a module. The main chunk is only run once when the module +is loaded for the first time. There is no point in compiling it. +

+

+You might want to adapt this behaviour if you use your own utility +functions (and not require()) to load modules. +

+

+Note that the subfunctions defined in a loaded module are +of course compiled. See below if you want to override this. +

+ +

The jit.* Library

+

+This library holds several functions to control the behaviour +of the JIT engine. +

+ +

jit.on()
+jit.off()

+

+Turns the JIT engine on (default) or off. +

+

+These functions are typically used with the command line options +-j on or -j off. +

+ +

jit.on(func|true [,true|false])
+jit.off(func|true [,true|false])

+

+Enable (with jit.on, default) or disable (with jit.off) +JIT compilation for a Lua function. The current function (the Lua function +calling this library function) can be specified with true. +

+

+If the second argument is true, JIT compilation is also +enabled/disabled recursively for all subfunctions of a function. +With false only the subfunctions are affected. +

+

+Both library functions only set a flag which is checked when +the function is executed for the first/next time. They do not +trigger immediate compilation. +

+

+Typical usage is jit.off(true, true) in the main chunk +of a module to turn off JIT compilation for the whole module. +Note that require() already turns off compilation for +the main chunk itself. +

+ +

status = jit.compile(func [,args...])

+

+Compiles a Lua function and returns the compilation status. +Successful compilation is indicated with a nil status. +Failure is indicated with a numeric status (see jit.util.status). +

+

+The optimizer pass of the compiler tries to derive hints from the +passed arguments. Not passing any arguments or passing untypical +arguments (esp. the wrong types) reduces the efficiency of the +optimizer. The compiled function will still run, but probably not +with maximum speed. +

+

+This library function is typically used for Ahead-Of-Time (AOT) +compilation of time-critical functions or for testing/debugging. +

+ +

status = jit.compilesub(func|true [,true])

+

+Recursively compile all subfunctions of a Lua function. +The current function (the Lua function calling this library function) +can be specified with true. Note that the function +itself is not compiled (use jit.compile()). +

+

+If the second argument is true, compilation will stop +when the first error is encountered. Otherwise compilation will +continue with the next subfunction. +

+

+The returned status is nil, if all subfunctions have been +compiled successfully. A numeric status (see jit.util.status) +indicates that at least one compilation failed and gives the status +of the last failure (this is only helpful when stop on error +is true). +

+ +

jit.debug([level])

+

+Set the debug level for JIT compilation. If no level is given, +the maximum debug level is set. +

+
    +
  • Level 0 disables debugging: no checks for hooks are compiled +into the code. This is the default when LuaJIT is started and +provides the maximum performance.
    • +
  • Level 1 enables function call debugging: call hooks and +return hooks are checked in the function prologue and epilogue. +This slows down function calls somewhat (by up to 10%).
    • +
  • Level 2 enables full debugging: all hooks are checked. +This slows down execution quite a bit, even when the hooks +are not active.
    • +
+

+Note that some compiler optimizations are turned off when +debugging is enabled. +

+

+This function is typically used with the command line options +-j debug or -j debug=level. +

+ +

jit.attach(handler [, priority])

+

+Attach a handler to the compiler pipeline with the given priority. +The handler is detached if no priority is given. +

+

+The inner workings of the compiler pipeline and the API for handlers +are still in flux. Please see the source code for more details. +

+ +

jit.version

+

+Contains the LuaJIT version string. +

+ +

jit.version_num

+

+Contains the version number of the LuaJIT core. Version xx.yy.zz +is represented by the decimal number xxyyzz. +

+ +

jit.arch

+

+Contains the target architecture name (CPU and optional ABI). +

+ + +

The jit.util.* Library

+

+This library holds many utility functions used by the provided +extension modules for LuaJIT (e.g. the optimizer). The API may +change in future versions. +

+ +

stats = jit.util.stats(func)

+

+Retrieves information about a function. Returns nil +for C functions. Returns a table with the following fields for +Lua functions: +

+
    +
  • status: numeric compilation status (see jit.util.status).
    • +
  • stackslots: number of stack slots.
    • +
  • params: number of fixed parameters (arguments).
    • +
  • consts: number of constants.
    • +
  • upvalues: number of upvalues.
    • +
  • subs: number of subfunctions (sub prototypes).
    • +
  • bytecodes: number of bytecode instructions.
    • +
  • isvararg: fixarg (false) or vararg (true) function.
    • +
  • env: function environment table.
    • +
  • mcodesize: size of the compiled machine code.
    • +
  • mcodeaddr: start address of the compiled machine code.
    • +
+

+mcodesize and mcodeaddr are not set if the +function has not been compiled (yet). +

+ +

op, a, b, c, test = jit.util.bytecode(func, pc)

+

+Returns the fields of the bytecode instruction at the given pc +for a Lua function. The first instruction is at pc = 1. +Nothing is returned if pc is out of range. +

+

+The opcode name is returned as an uppercase string in op. +The opcode arguments are returned as a, b and +optionally c. Arguments that indicate an index into the +array of constants are translated to negative numbers (the first +constant is referred to with -1). Branch targets are signed numbers +relative to the next instruction. +

+

+test is true if the instruction is a test (i.e. followed +by a JMP). +

+ +

const, ok = jit.util.const(func, idx)

+

+Returns a constant from the array of constants for a Lua function. +ok is true if idx is in range. Otherwise nothing +is returned. +

+

+Constants are numbered starting with 1. A negative idx +is mapped to a positive index. +

+ +

upvalue, ok = jit.util.upvalue(func, idx)

+

+Returns an upvalue from the array of upvalues for a Lua function. +ok is true if idx is in range. Otherwise nothing +is returned. Upvalues are numbered starting with 0. +

+ +

nup = jit.util.closurenup(func, idx)

+

+Returns the number of upvalues for the subfunction prototype with +the given index idx for a Lua function. Nothing is returned +if idx is out of range. Subfunctions are numbered starting +with 0. +

+ +

addr, mcode, mfmiter = jit.util.mcode(func, block])

+

+Returns the numeric start address, the compiled machine code +(converted to a string) and an iterator for the machine code fragment map +for the specified machine code block associated with a Lua function. +

+

+Returns nil and a numeric status code (see jit.util.status) +if the function has not been compiled yet or compilation has failed +or compilation is disabled. Returns nothing if the selected +machine code block does not exist. +

+

+The machine code fragment map is used for debugging and error handling. +The format may change between versions and is an internal implementation +detail of LuaJIT. +

+ +

addr [, mcode] = jit.util.jsubmcode([idx])

+

+If idx is omitted or nil: +Returns the numeric start address and the compiled machine code +(converted to a string) for internal subroutines used by the +compiled machine code. +

+

+If idx is given: +Returns the numeric start address of the machine code for a specific +internal subroutine (0 based). Nothing is returned if idx is +out of range. +

+ +

jit.util.status

+

+This is a table that bidirectionally maps status numbers and +status names (strings): +

+
+ + + + + + + + + + +
Status NameDescription
OKOk, code has been compiled.
NONENothing analyzed or compiled, yet (default).
OFFCompilation disabled for this function.
ENGINE_OFFJIT engine is turned off.
DELAYEDCompilation delayed (recursive invocation).
TOOLARGEBytecode or machine code is too large.
COMPILER_ERRORError from compiler frontend.
DASM_ERRORError from DynASM engine.
+
+ +

jit.util.hints
+jit.util.fhints

+

+These two tables map compiler hint names to internal hint numbers. +

+

+The hint system is an internal implementation detail of LuaJIT. +Please see the source code for more info. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html new file mode 100644 index 00000000000..9474f1b3add --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html @@ -0,0 +1,307 @@ + + + +LuaJIT Change History + + + + + + + + +
+Lua +
+ + +
+

+This is a list of changes between the released versions of LuaJIT. +The current version is LuaJIT 1.1.8. +

+

+Please check the +» Online Change History +to see whether newer versions are available. +

+ +

LuaJIT 1.1.8 — 2012-04-16

+ + +

LuaJIT 1.1.7 — 2011-05-05

+ + +

LuaJIT 1.1.6 — 2010-03-28

+
    +
  • Added fixes for the +» currently known bugs in Lua 5.1.4.
    • +
  • Removed wrong GC check in jit_createstate(). +Thanks to Tim Mensch.
    • +
  • Fixed bad assertions while compiling table.insert() and +table.remove().
    • +
+ +

LuaJIT 1.1.5 — 2008-10-25

+ + +

LuaJIT 1.1.4 — 2008-02-05

+
    +
  • Merged with Lua 5.1.3. Fixes all +» known bugs in Lua 5.1.2.
    • +
  • Fixed possible (but unlikely) stack corruption while compiling +k^x expressions.
    • +
  • Fixed DynASM template for cmpss instruction.
    • +
+ +

LuaJIT 1.1.3 — 2007-05-24

+
    +
  • Merged with Lua 5.1.2. Fixes all +» known bugs in Lua 5.1.1.
    • +
  • Merged pending Lua 5.1.x fixes: "return -nil" bug, spurious count hook call.
    • +
  • Remove a (sometimes) wrong assertion in luaJIT_findpc().
    • +
  • DynASM now allows labels for displacements and .aword.
    • +
  • Fix some compiler warnings for DynASM glue (internal API change).
    • +
  • Correct naming for SSSE3 (temporarily known as SSE4) in DynASM and x86 disassembler.
    • +
  • The loadable debug modules now handle redirection to stdout +(e.g. -j trace=-).
    • +
+ +

LuaJIT 1.1.2 — 2006-06-24

+
    +
  • Fix MSVC inline assembly: use only local variables with +lua_number2int().
    • +
  • Fix "attempt to call a thread value" bug on Mac OS X: +make values of consts used as lightuserdata keys unique +to avoid joining by the compiler/linker.
    • +
+ +

LuaJIT 1.1.1 — 2006-06-20

+
    +
  • Merged with Lua 5.1.1. Fixes all +» known bugs in Lua 5.1.
    • +
  • Enforce (dynamic) linker error for EXE/DLL version mismatches.
    • +
  • Minor changes to DynASM: faster preprocessing, smaller encoding +for some immediates.
    • +
+

+This release is in sync with Coco 1.1.1 (see the +Coco Change History). +

+ +

LuaJIT 1.1.0 — 2006-03-13

+
    +
  • Merged with Lua 5.1 (final).
    • + +
  • New JIT call frame setup: +
      +
    • The C stack is kept 16 byte aligned (faster). +Mandatory for Mac OS X on Intel, too.
      • +
    • Faster calling conventions for internal C helper functions.
      • +
    • Better instruction scheduling for function prologue, OP_CALL and +OP_RETURN.
      • +
    • + +
  • Miscellaneous optimizations: +
      +
    • Faster loads of FP constants. Remove narrow-to-wide store-to-load +forwarding stalls.
      • +
    • Use (scalar) SSE2 ops (if the CPU supports it) to speed up slot moves +and FP to integer conversions.
      • +
    • Optimized the two-argument form of OP_CONCAT (a..b).
      • +
    • Inlined OP_MOD (a%b). +With better accuracy than the C variant, too.
      • +
    • Inlined OP_POW (a^b). Unroll x^k or +use k^x = 2^(log2(k)*x) or call pow().
      • +
    • + +
  • Changes in the optimizer: +
      +
    • Improved hinting for table keys derived from table values +(t1[t2[x]]).
      • +
    • Lookup hinting now works with arbitrary object types and +supports index chains, too.
      • +
    • Generate type hints for arithmetic and comparison operators, +OP_LEN, OP_CONCAT and OP_FORPREP.
      • +
    • Remove several hint definitions in favour of a generic COMBINE hint.
      • +
    • Complete rewrite of jit.opt_inline module +(ex jit.opt_lib).
      • +
    • + +
  • Use adaptive deoptimization: +
      +
    • If runtime verification of a contract fails, the affected +instruction is recompiled and patched on-the-fly. +Regular programs will trigger deoptimization only occasionally.
      • +
    • This avoids generating code for uncommon fallback cases +most of the time. Generated code is up to 30% smaller compared to +LuaJIT 1.0.3.
      • +
    • Deoptimization is used for many opcodes and contracts: +
        +
      • OP_CALL, OP_TAILCALL: type mismatch for callable.
        • +
      • Inlined calls: closure mismatch, parameter number and type mismatches.
        • +
      • OP_GETTABLE, OP_SETTABLE: table or key type and range mismatches.
        • +
      • All arithmetic and comparison operators, OP_LEN, OP_CONCAT, +OP_FORPREP: operand type and range mismatches.
        • +
      • +
    • Complete redesign of the debug and traceback info +(bytecode ↔ mcode) to support deoptimization. +Much more flexible and needs only 50% of the space.
      • +
    • The modules jit.trace, jit.dumphints and +jit.dump handle deoptimization.
      • +
    • + +
  • Inlined many popular library functions +(for commonly used arguments only): +
      +
    • Most math.* functions (the 18 most used ones) +[2x-10x faster].
      • +
    • string.len, string.sub and string.char +[2x-10x faster].
      • +
    • table.insert, table.remove and table.getn +[3x-5x faster].
      • +
    • coroutine.yield and coroutine.resume +[3x-5x faster].
      • +
    • pairs, ipairs and the corresponding iterators +[8x-15x faster].
      • +
    • + +
  • Changes in the core and loadable modules and the stand-alone executable: +
      +
    • Added jit.version, jit.version_num +and jit.arch.
      • +
    • Reorganized some internal API functions (jit.util.*mcode*).
      • +
    • The -j dump output now shows JSUB names, too.
      • +
    • New x86 disassembler module written in pure Lua. No dependency +on ndisasm anymore. Flexible API, very compact (500 lines) +and complete (x87, MMX, SSE, SSE2, SSE3, SSSE3, privileged instructions).
      • +
    • luajit -v prints the LuaJIT version and copyright +on a separate line.
      • +
    • + +
  • Added SSE, SSE2, SSE3 and SSSE3 support to DynASM.
    • +
  • Miscellaneous doc changes. Added a section about +embedding LuaJIT.
    • +
+

+This release is in sync with Coco 1.1.0 (see the +Coco Change History). +

+ +

LuaJIT 1.0.3 — 2005-09-08

+
    +
  • Even more docs.
    • +
  • Unified closure checks in jit.*.
    • +
  • Fixed some range checks in jit.util.*.
    • +
  • Fixed __newindex call originating from jit_settable_str().
    • +
  • Merged with Lua 5.1 alpha (including early bugfixes).
    • +
+

+This is the first public release of LuaJIT. +

+ +

LuaJIT 1.0.2 — 2005-09-02

+
    +
  • Add support for flushing the Valgrind translation cache
    +(MYCFLAGS= -DUSE_VALGRIND).
    • +
  • Add support for freeing executable mcode memory to the mmap()-based +variant for POSIX systems.
    • +
  • Reorganized the C function signature handling in +jit.opt_lib.
    • +
  • Changed to index-based hints for inlining C functions. +Still no support in the backend for inlining.
    • +
  • Hardcode HEAP_CREATE_ENABLE_EXECUTE value if undefined.
    • +
  • Misc. changes to the jit.* modules.
    • +
  • Misc. changes to the Makefiles.
    • +
  • Lots of new docs.
    • +
  • Complete doc reorg.
    • +
+

+Not released because Lua 5.1 alpha came out today. +

+ +

LuaJIT 1.0.1 — 2005-08-31

+
    +
  • Missing GC step in OP_CONCAT.
    • +
  • Fix result handling for C –> JIT calls.
    • +
  • Detect CPU feature bits.
    • +
  • Encode conditional moves (fucomip) only when supported.
    • +
  • Add fallback instructions for FP compares.
    • +
  • Add support for LUA_COMPAT_VARARG. Still disabled by default.
    • +
  • MSVC needs a specific place for the CALLBACK attribute +(David Burgess).
    • +
  • Misc. doc updates.
    • +
+

+Interim non-public release. +Special thanks to Adam D. Moss for reporting most of the bugs. +

+ +

LuaJIT 1.0.0 — 2005-08-29

+

+This is the initial non-public release of LuaJIT. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html new file mode 100644 index 00000000000..e4098d697d3 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html @@ -0,0 +1,273 @@ + + + +Debugging LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is a rather complex application. There will undoubtedly +be bugs lurking in there. You have been warned. :-) +

+

+If you came here looking for information on how to debug +your application (and not LuaJIT itself) then please +check out jit.debug() +and the -j debug +command line option. +

+

+But if you suspect a problem with LuaJIT itself, then try +any of the following suggestions (in order). +

+ +

Is LuaJIT the Problem?

+

+Try to run your application in several different ways: +

+
    +
  • luajit app.lua
    • +
  • luajit -O1 app.lua
    • +
  • luajit -O app.lua
    • +
  • luajit -j off app.lua
    • +
  • lua app.lua (i.e. with standard Lua)
    • +
+

+If the behaviour is the same as with standard Lua then ... +well ... that's what LuaJIT is about: doing the same things, +just faster. Even bugs fly faster. :-) +

+

+So this is most likely a bug in your application then. It may be easier +to debug this with plain Lua — the remainder of this page +is probably not helpful for you. +

+

+But if the behaviour is different, there is some likelihood +that you caught a bug in LuaJIT. Oh dear ... +

+

+Ok, so don't just give up. Please read on and help the community +by finding the bug. Thank you! +

+ +

Get the Latest Version

+

+Number one on your list of things to check is the +» Online Change History. +

+

+Please check if a newer version is available. Maybe the bug +you have encountered has been fixed already. Always download the +latest version and try it with your application before continuing. +

+ +

Reproduce the Bug

+

+First try to make the bug reproducible. Try to isolate the module +and the function the bug occurs in: +

+

+Either selectively turn off compilation for some modules with
+  jit.off(true, true)
+until the bug disappears ... +

+

+And/or turn the whole JIT engine off and selectively compile +functions with
+  jit.compile(func)
+until it reappears. +

+

+If you have isolated the point where it happens, it's most helpful +to reduce the affected Lua code to a short code snippet that +still shows the problem. You may need to print() some +variables until you can pinpoint the exact spot where it happens. +

+

+If you've got a reproducible and short test +you can either send it directly to me or the mailing list +(see the Contact Information) +or you can try to debug this a bit further. +

+

+Well — if you are brave enough. :-) +

+ +

Look at the Generated Code

+

+You may want to have a look at the output of -j dumphints +first. Try to change things around until you can see which hint +or which instruction is the cause of the bug. If you suspect +an optimizer bug then have a look at the backend (*.das[ch]) +and check how the hint is encoded. +

+

+Otherwise have a look at -j dump and see whether +you can spot the problem around the affected instruction. +It's helpful to have a good knowledge of assembler, though +(sorry). +

+ +

Locate a Crash

+

+If you get a crash, you should compile LuaJIT with debugging +turned on: +

+

+Add -g to CFLAGS and MYLDFLAGS +or whatever is needed to turn on debugging. For Windows you +need both an executable and a DLL built with debugging. +

+

+Then start LuaJIT with your debugger. Run it with +-j dump=test.dump. +

+

+Have a look at the backtrace and compare it with the generated +dump file to find out exactly where it crashes. I'm sorry, but +symbols or instructions for JIT compiled functions are not +displayed in your debugger (this is really hard to solve). +

+ +

Turn on Assertions

+

+Another way to debug LuaJIT is to turn on assertions. +They can be turned on only for the JIT engine by adding +-DLUAJIT_ASSERT to JITCFLAGS in src/Makefile. +Then recompile with make clean and make. +

+

+Add these two lines to src/luaconf.h to turn on all assertions in the Lua core:
+  #include <assert.h>
+  #define lua_assert(x) assert(x)
+This turns on the JIT engine assertions, too. +Recompile and see whether any assertions trigger. +Don't forget to turn off the (slow) assertions when you're done! +

+ +

Use Valgrind

+

+A tremendously useful (and free) tool for runtime code analysis +is » Valgrind. Regularly +run your applications with valgrind --memcheck and +your life will be better. +

+

+To run LuaJIT under Valgrind you must add +-DUSE_VALGRIND to MYCFLAGS +and recompile LuaJIT. You will get random errors if you don't! +Valgrind 3.x or later is required. Earlier versions +do not work well with newly allocated C stacks. +

+

+An executable built with this option runs fine without Valgrind +and without a performance loss. But it needs the Valgrind header +files for compilation (which is why it's not enabled by default). +

+

+It's helpful to compile LuaJIT with debugging turned on, too +(see above). +

+

+If Valgrind spots many invalid memory accesses that involve +memory allocation/free functions you've probably found a bug +related to garbage collection. Some object reference must have +gone astray. +

+

+Try to find out which object is disappearing. You can force +eager garbage collection with repeated calls to +collectgarbage() or by setting a very low threshold +with collectgarbage("setpause", 1). +

+ +

Don't Despair

+

+If all of this doesn't help to find the bug, please send +a summary of your findings to the mailing list. Describe as much +of the circumstances you think are relevant. +

+

+Please don't send your whole application to me +(without asking first) and especially not to the mailing list. +Code snippets should preferrably be less than 50 lines and +up to the point. +

+

+All bug reports are helpful, even if no immediate solution +is available. Often enough someone else finds the same bug +in a different setting and together with your bug report +this may help to track it down. +

+

+Finally I have to say a BIG THANK YOU +to everyone who has helped to make LuaJIT better by finding +and fixing bugs! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html new file mode 100644 index 00000000000..cad0939dd80 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html @@ -0,0 +1,226 @@ + + + +LuaJIT Features + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT tries to keep the spirit of Lua — it's light-weight, +efficient and extensible. +

+ +

Features

+

+All functions are by default compiled Just-In-Time (JIT) to +machine code: +

+
    +
  • Functions that are unused are not compiled at all.
    • +
  • Compilation can be enabled/disabled selectively for individual +functions and subfunctions or even whole modules.
    • +
  • Interpreted and compiled functions can be freely mixed.
    • +
+

+Ahead-Of-Time (AOT) compilation (at runtime) is supported, too: +

+
    +
  • A number of API functions and command line options allows +full user control over the compilation process.
    • +
+

+The JIT compiler is extensible: +

+
    +
  • The optimizer is an extra module that attaches to the compiler +pipeline.
    • +
  • Various modules provide trace and debug information about +the compilation process.
    • +
  • All of these features can be activated with command line options.
    • +
+ +

Performance

+

+The compiled machine code is very efficient: +

+
    +
  • Have a look at some +Performance Measurements.
    • +
  • Aggressive optimizations (specialization, inlining) are enabled +wherever possible. Inlined contracts catch wrong optimizer predictions +at runtime (undetected polymorphism).
    • +
  • Adaptive deoptimization is used to recompile individual bytecode +instructions with broken contracts. This avoids generating code for the +generic fallback cases most of the time (faster compilation, reduced +I-cache contention).
    • +
  • Special CPU features (such as conditional moves or SSE2) +are automatically used when detected.
    • +
+

+The JIT compiler is very fast: +

+
    +
  • Compilation times vary a great deal (depending on the nature of +the function to be compiled) but are generally in the +microsecond range.
    • +
  • Even compiling large functions (hundreds of lines) with the +maximum optimization level takes only a few milliseconds in the +worst case.
    • +
+

+LuaJIT is very small: +

+
    +
  • The whole JIT compiler engine adds only around 32K +of code to the Lua core (if compiled with -Os).
    • +
  • The optimizer is split into several optional modules that +can be loaded at runtime if requested.
    • +
  • LuaJIT adds around 6.000 lines of C and assembler code and +2.000 lines of Lua code to the Lua 5.1 core (17.000 lines of C).
    • +
  • Required build tools (DynASM) +take another 2.500 lines of Lua code.
    • +
+ +

Compatibility

+

+LuaJIT is designed to be fully compatible with Lua 5.1. +It accepts the same source code and/or precompiled bytecode. +It supports all standard language semantics. In particular: +

+
    +
  • All standard types, operators and metamethods are supported.
    • +
  • Implicit type coercions (number/string) work as expected.
    • +
  • Full IEEE-754 semantics for floating point arithmetics +(NaN, +-Inf, +-0, ...).
    • +
  • Full support for lexical closures. +Proper tail calls do not consume a call frame.
    • +
  • Exceptions are precise. Backtraces work fine.
    • +
  • Coroutines are supported with the help of Coco.
    • +
  • No changes to the Lua 5.1 incremental garbage collector.
    • +
  • No changes to the standard Lua/C API.
    • +
  • Dynamically loaded C modules are link compatible with Lua 5.1 +(same ABI).
    • +
  • LuaJIT can be embedded +into an application just like Lua.
    • +
+

+Some minor differences are related to debugging: +

+
    +
  • Debug hooks are only called if debug code generation is enabled.
    • +
  • There is no support for tailcall counting in JIT compiled code. +HOOKTAILRET is not called, too. Note: this won't affect you unless +you are writing a Lua debugger. *
    • +
+

+* There is not much I can do to improve this situation without undue +complications. A suggestion to modify the behaviour of standard Lua +has been made on the mailing list (it would be beneficial there, too). +

+ +

Restrictions

+
    +
  • Only x86 (i386+) CPUs are supported right now (but see below).
    • +
  • Only the default type for lua_Number is supported +(double).
    • +
  • The interrupt signal (Ctrl-C) is ignored unless you enable +debug hooks (with -j debug). But this will seriously +slow down your application. I'm looking for better ways to handle +this. In the meantime you have to press Ctrl-C twice to interrupt +a currently running JIT compiled function (just like C functions).
    • +
  • GDB, Valgrind and other debugging tools can't report symbols +or stack frames for JIT compiled code. This is rather difficult to solve. +Have a look at Debugging LuaJIT, too.
    • +
+ +

Caveats

+
    +
  • LuaJIT allocates executable memory for the generated machine code +if your OS has support for it: either HeapCreate() for Windows or +mmap() on POSIX systems.
    +The fallback is the standard Lua allocator (i.e. malloc()). +But this usually means the allocated memory is not marked executable. +Running compiled code will trap on CPUs/OS with the NX (No eXecute) +extension if you can only use the fallback.
    • +
  • DynASM is needed to regenerate the +ljit_x86.h file. But only in case you want to modify +the *.dasc/*.dash files. A pre-processed *.h +file is supplied with LuaJIT.
    +DynASM is written in Lua and needs a plain copy of Lua 5.1 +(installed as lua). Or you can run it with LuaJIT built from +the *.h file supplied with the distribution (modify +DASM= in src/Makefile). It's a good idea to install +a known good copy of LuaJIT under a different name for this.
    • +
  • LuaJIT ships with LUA_COMPAT_VARARG turned off. +I.e. the implicit arg parameter is not created anymore. +Please have a look at the comments in luaconf.h for +this configuration option. You can turn it on, if you really need it. +Or better yet, convert your code to the new Lua 5.1 vararg syntax.
    • +
+ +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html new file mode 100644 index 00000000000..2ace19837e7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html @@ -0,0 +1,340 @@ + + + +Installing LuaJIT + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is not much more difficult to install than Lua itself. +Just unpack the distribution file, change into the newly created +directory and follow the instructions below. +

+

+For the impatient: make linux && sudo make install
+Replace linux with e.g. bsd or macosx depending on your OS. +

+

+In case you've missed this in Features: +LuaJIT only works on x86 (i386+) systems right now. Support for +other architectures may be added in future versions. +

+ +

Configuring LuaJIT

+

+LuaJIT is (deliberately) not autoconfigured — the +defaults should work fine on most systems. But please check the +system-specific instructions below. +

+

+The following three files hold all configuration information: +

+
    +
  • Makefile holds settings for installing LuaJIT.
    • +
  • src/Makefile holds settings for compiling LuaJIT.
    • +
  • src/luaconf.h sets a multitude of configuration +variables.
    • +
+

+If this is your first build then it's better not to give into +the temptation to tweak every little setting. The standard +configuration provides sensible defaults (IMHO). +

+

+One particular setting you might want to change is the installation +path. Note that you need to modify both the top-level Makefile +and src/luaconf.h (right at the start) to take +effect. +

+

+If you have trouble getting Coco to work, you can disable it by +uncommenting the COCOFLAGS= -DCOCO_DISABLE line in +src/Makefile. But note that this effectively disables +yielding from coroutines for JIT compiled functions. +

+

+A few more settings need to be changed if you want to +Debug LuaJIT itself. +Application debugging can be turned on/off at runtime. +

+ +

Upgrading From Previous Versions

+

+It's important to keep the LuaJIT core and the add-on modules in sync. +Be sure to delete any old versions of LuaJIT modules from the +Lua module search path (check the current directory, too!). +

+

+Lua files compiled to bytecode may be incompatible if the underlying +Lua core has changed (like from Lua 5.1 alpha to Lua 5.1 +final between LuaJIT 1.0.3 and LuaJIT 1.1.0). The same +applies to any +» loadable C modules +(shared libraries, DLLs) which need to be recompiled with the new +Lua header files. +

+

+Compiled bytecode and loadable C modules are fully compatible and +can be freely exchanged between LuaJIT and the same +version of Lua it is based on. Please verify that LUA_RELEASE +in src/lua.h is the same in both distributions. +

+ +

Building LuaJIT

+ +

Makefile Targets

+

+The Makefiles have a number of targets for various operating systems: +

+ +
+ + + + + + + + + + +
SystemBuild CommandNotes
Linux i386make linux
BSD i386make bsdFreeBSD, NetBSD or OpenBSD
OSXmake macosxCheck src/Makefile for OSX < 10.4
Solaris x86make solarisGCC only, SunCC miscompiles LuaJIT
MinGW (Win32)make mingwcross-MinGW: must be 1st in PATH
Cygwinmake cygwin
POSIX on x86make posixCheck Portability Req. for Coco, too
Generic x86make genericCheck Portability Req. for Coco, too
+
+ +

+You may want to enable interactive line editing for the stand-alone +executable. There are extra targets for Linux, BSD and OSX: +make linux_rl, make bsd_rl +and make macosx_rl. +

+ +

MSVC (Win32)

+

+First check out etc\luavs.bat if it suits your needs. Then try +running it from the MSVC command prompt (start it from the toplevel directory). +

+

+Another option is to set up your own MSVC project: +

+

+Change to the src directory +and create a new DLL project for lua51.dll. +Add all C files to it except for lua.c, luac.c +and print.c. Add the ..\dynasm directory +to the include path and build the DLL. +

+

+Next create a new EXE project for luajit.exe. +Add lua.c to it and link with the import library +lua51.lib created for lua51.dll. Build +the executable. +

+ +

Installation

+ +

POSIX systems

+

+Run make install from the top-level directory. +You probably need to be the root user before doing so, i.e. use +sudo make install or su - root +before the make install. +

+

+By default this installs only:
+  /usr/local/bin/luajit — The stand-alone executable.
+  /usr/local/lib/lua/5.1 — C module directory.
+  /usr/local/share/lua/5.1 — Lua module directory.
+  /usr/local/share/lua/5.1/jit/*.lua — +jit.* modules.
+

+

+The Lua docs and includes are not installed to avoid overwriting +an existing Lua installation. In any case these are identical +to the version of Lua that LuaJIT is based on. If you want +to install them, edit the top-level makefile (look for ###). +

+

+The stand-alone Lua bytecode compiler luac is neither +built nor installed, for the same reason. If you really need it, +you may be better off with luac built from the original Lua +distribution (use the same version your copy of LuaJIT +is based on). This avoids dragging in most of LuaJIT which is not +needed for the pure bytecode compiler. You can also use the bare-bones +Lua to bytecode translator luac.lua (look in the test +directory of the original Lua distribution). +

+ +

Windows

+

+Copy luajit.exe and lua51.dll +to a newly created directory (any location is ok). Add lua +and lua\jit directories below it and copy all Lua files +from the jit directory of the distribution to the latter directory. +

+

+There are no hardcoded +absolute path names — all modules are loaded relative to the +directory where luajit.exe is installed +(see src/luaconf.h). +

+ +

Embedding LuaJIT

+

+It's strongly recommended that you build the stand-alone executable +with your toolchain and verify that it works before starting +to embed LuaJIT into an application. The stand-alone executable is +also useful later on, when you want to experiment with code snippets +or try out some Lua files. +

+

+Please consult the Lua docs for general information about how to +embed Lua into your application. The following list only shows +the additional steps needed for embedding LuaJIT: +

+
    +
  • You need to add the LuaJIT library functions by running +luaopen_jit() after all the other standard library functions. +The modified src/linit.c used by the stand-alone executable +already does this for you.
    • +
  • Caveat: LuaJIT is based on Lua 5.1 which +means the luaopen_*() functions must not +be called directly. See src/linit.c for the proper way to +run them. You'll get an error initializing the io library +if you don't follow these instructions.
    • +
  • To use the optimizer (strongly recommended) you need to: +
      +
    • Install the optimizer modules jit.opt and +jit.opt_inline relative to the Lua module path +(you've probably modified it — see src/luaconf.h):
      +jit/opt.lua
      +jit/opt_inline.lua
      • +
    • If you want to ship a single executable then you may want to +embed the optimizer modules into your application (but don't loose +time with this during the early development phase). This involves: +
        +
      • Compile the two modules to bytecode +(using luac -s from a plain Lua installation).
        • +
      • Convert them to C include files (search for "Lua bin2c").
        • +
      • On Windows you can also put the compiled bytecode into a resource +(search for "Lua bin2res").
        • +
      • Load the bytecode with luaL_loadbuffer (but don't run it).
        • +
      • Put the resulting functions into package.preload["jit.opt"] +and package.preload["jit.opt_inline"].
        • +
      • +
    • Activate the LuaJIT optimizer from Lua code to be run at startup: +  require("jit.opt").start()
      +Or use equivalent C code. See dojitopt() in src/lua.c.
      • +
    • +
  • All other LuaJIT specific modules (jit.*) are for debugging only. +They do not need to be shipped with an application. But they may be quite +useful, anyway (especially jit.trace).
    • +
  • DynASM is only needed while building LuaJIT. It's not +needed while running LuaJIT and there is no point in shipping or +installing it together with an application.
    • +
  • In case you want to strip some of the standard libraries from +your application: The optimizer modules need several functions from +the base library and the string library (and of course the LuaJIT +core libraries). The io library is only used to print a fatal error +message (you may want to replace it). The optional modules +for debugging depend on a few more library functions — +please check the source.
    • +
+

+Although the very liberal LuaJIT +» license +does not require any acknowledgment whatsoever, it would be appreciated +if you give some credit in the docs (or the "About" box) of your application. +A simple line like:
+  This product includes LuaJIT, http://luajit.org/
+would be nice. Please do not include any E-Mail addresses. Thank you! +

+

+I'm always interested where LuaJIT can be put to good use in applications. +Please tell me +or better yet write a few lines about your project to the +» Lua mailing list. +Thank you! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html new file mode 100644 index 00000000000..7b73a922bac --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html @@ -0,0 +1,389 @@ + + + +Introducing LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+This is a little essay that tries to answer the question: +'So, how does LuaJIT really work?'. +

+

+I tried to avoid going into all the gory details, but at the +same time provide a deep enough explanation, to let you find +your way around LuaJIT's inner workings. +

+

+The learning curve is maybe a little bit steep for newbies and +compiler gurus will certainly fall asleep after two paragraphs. +It's difficult to strike a balance here. +

+ +

Acronym Soup

+

+As the name says LuaJIT is a Just-In-Time (JIT) compiler. +This means that functions are compiled on demand, i.e. when they +are run first. This ensures both a quick application startup +and helps to avoid useless work, too. E.g. unused functions +are not compiled at all. +

+

+The other alternative is known as Ahead-Of-Time (AOT) +compilation. Here everything is compiled before running any function. +This is the classic way for many languages, such as C or C++. +

+

+In fact plain Lua allows you to pre-compile Lua source code into +Lua bytecode and store it in a binary file that can be run +later on. This is used only in specific settings (e.g. memory limited +embedded systems), because the Lua bytecode compiler is really fast. +The ability to run source files right away is part of what makes +a dynamic language (aka scripting language) so powerful. +

+

+JIT compilation has a few other advantages for dynamic languages +that AOT compilation can only provide with a massive amount +of code analysis. More can be found in the literature. +One particular advantage is explained later. +

+ +

Quick, JIT — Run!

+

+JIT compilation happens mostly invisible. You'll probably never +notice that a compilation is going on. Part of the secret is +that everything happens in little pieces intermixed with running +the application itself inbetween. The other part of the secret +is that JIT compilation can be made pretty fast. +

+

+Most applications quickly converge to a stable state where +everything that really needs to be compiled is compiled +right away. Only occasional isolated compiles happen later on. +

+

+Even though the name doesn't suggest it, LuaJIT can operate +in AOT mode, too. But this is completely under user control +(see jit.compile()) +and doesn't happen automatically. +

+

+Unless you have good reason to suspect that AOT compilation +might help for a specific application, I wouldn't bother though. +Compilation speed is usually a non-argument, because LuaJIT +is extremely fast. Compilation times are typically in the +microsecond range for individual Lua functions. +

+ +

Starting Up

+

+The next few paragraphs may not be exactly breaking news to you, +if you are familiar with JIT compilers. Still, please read on, +because some terms are introduced that are used later on. +

+

+When you start LuaJIT everything proceeds like in standard Lua: +the Lua core is initialized, the standard libraries are loaded and +the command line is analyzed. Then usually the first Lua source +code file is loaded and is translated to Lua bytecode. And finally +the function for the initial main chunk is run ... +

+ +

Kicking the Compiler

+

+This is where LuaJIT kicks in: +

+

+All Lua functions carry an additional status code for LuaJIT. +Initially this is set to 'NONE', i.e. the function has not been +looked at (yet). If a function is run with this setting, +the LuaJIT compiler pipeline is started up. +

+

+If you haven't loaded any special LuaJIT modules and optimization +is not turned on, the compiler pipeline only consists of the +compiler backend. +

+

+The compiler backend is the low-level encoding engine that translates +bytecode instructions to machine code instructions. Without any +further hints from other modules, the backend more or less does a +1:1 translation. I.e. a single variant of a bytecode instruction +corresponds to a single piece of machine code. +

+

+If all goes well, these little code pieces are put together, +a function prologue is slapped on and voila: your Lua function +has been translated to machine code. Of course things are not +that simple when you look closer, but hey — this is +the theory. +

+

+Anyway, the status code for the function is set to 'OK' and the +machine code is run. If this function runs another Lua function +which has not been compiled, that one is compiled, too. And so on. +

+ +

Call Gates

+

+Ok, so what happens when a function is called repeatedly? After all +this is the most common case. +

+

+Simple: The status code is checked again. This time it's set to 'OK', +so the machine code can be run directly. Well — that's not the +whole truth: for calls that originate in a JIT compiled function +a better mechanism, tentatively named call gates is used. +

+

+Every function has a call gate field (a function pointer). By default +it's set to a function that does the above checks and runs the +compiler. But as soon as a function is compiled, the call gate +is modified to point to the just compiled machine code. +

+

+Calling a function is then as easy as calling the code that the +call gate points to. But due to special (faster) calling conventions +this function pointer cannot be used directly from C. So calls from +a non-compiled function or from a C function use an extra entry +call gate which in turn calls the real call gate. But this is +really a non-issue since most calls in typical applications +are intra-JIT calls. +

+ +

The Compiler Pipeline

+

+The compiler pipeline has already been mentioned. This sounds +more complicated than it is. Basically this is a coroutine that +runs a frontend function which in turn calls all functions +from the pipeline table. +

+

+The pipeline table is sorted by priorities. The standard +backend has priority 0. Positive priorities are run before the +backend and negative priorities are run after the backend. Modules +can dynamically attach or detach themselves to the pipeline with +the library function jit.attach(). +

+

+So a typical optimizer pass better have a positive priority, +because it needs to be run before the backend is run. E.g. the +LuaJIT optimizer module registers itself with priority 50. +

+

+On the other hand a typical helper module for debugging — +a machine code disassembler — needs to be run after the +backend and is attached with a negative priority. +

+

+One special case occurs when compilation fails. This can be due to +an internal error (ouch) or on purpose. E.g. the optimizer module +checks some characteristics of the function to be compiled and +may decide that it's just not worth it. In this case a status +other than OK is passed back to the pipeline frontend. +

+

+The easiest thing would be to abort pipeline processing and just +give up. But this would remove the ability to trace the progress +of the compiler (which better include failed compilations, too). +So there is a special rule that odd priorities are still run, +but even priorities are not. That's why e.g. -j trace +registers itself with priority -99. +

+ +

The Optimizer

+

+Maybe it hasn't become clear from the above description, +but a module can attach any Lua or C function to the compiler +pipeline. In fact all of the loadable modules are Lua modules. +Only the backend itself is written in C. +

+

+So, yes — the LuaJIT optimizer is written in pure Lua! +

+

+And no, don't worry, it's quite fast. One reason for this is +that a very simple abstract interpretation algorithm +is used. It mostly ignores control flow and/or basic block +boundaries. +

+

+Thus the results of the analysis are really only hints. +The backend must check the preconditions (the contracts) +for these hints (e.g. the object type). Still, the generated +hints are pretty accurate and quite useful to speed up the +compiled code (see below). +

+

+Explaining how abstract interpretation works is not within the +scope for this short essay. You may want to have a look at the +optimizer source code and/or read some articles or books on +this topic. The canonical reference is +» Principles of Program Analysis. +Ok, so this one is a bit more on the theoretical side (a gross +understatement). Try a search engine with the keywords "abstract +interpretation", too. +

+

+Suffice to say the optimizer generates hints and passes these +on to the backend. The backend then decides to encode different +forms for the same bytecode instruction, to combine several +instructions or to inline code for C functions. If the hints +from the optimizer are good, the resulting code will perform +better because shorter code paths are used for the typical cases. +

+ +

The JIT Advantage

+

+One important feature of the optimizer is that it takes 'live' +function arguments into account. Since the JIT compiler is +called just before the function is run, the arguments for this +first invocation are already present. This can be used to great +advantage in a dynamically typed language, such as Lua. +

+

+Here's a trivial example: +

+
+function foo(t, k)
+  return t[k]
+end
+
+

+Without knowing the most likely arguments for the function +there's not much to optimize. +

+

+Ok, so 't' is most likely a table. But it could be userdata, too. +In fact it could be any type since the introduction of generic +metatables for types. +

+

+And more importantly 'k' can be a number, a string +or any other type. Oh and let's not forget about metamethods ... +

+

+If you know a bit about Lua internals, it should be clear by now +that the code for this function could potentially branch to half +of the Lua core. And it's of course impossible to inline all +these cases. +

+

+On the other hand if it's known (or there's a good hint) +that 't' is a table and that 'k' is a positive integer, then there +is a high likeliness that the key 'k' is in the array part +of the table. This lookup can be done with just a few machine code +instructions. +

+

+Of course the preconditions for this fast path have to be checked +(unless there are definitive hints). But if the hints are right, +the code runs a lot faster (about a factor of 3 in this case +for the pure table lookup). +

+ +

Optimizing the Optimizer

+

+A question that surely popped up in your mind while reading +the above section: does the optimizer optimize itself? I.e. +is the optimizer module compiled? +

+

+The current answer is no. Mainly because the compiler pipeline +is single-threaded only. It's locked during compilation and +any parallel attempt to JIT compile a function results in +a 'DELAYED' status code. In fact all modules that attach to +the compiler pipeline disable compilation for the entire +module (because LuaJIT would do that anyway). The main chunk +of modules loaded with require() is never compiled, +so there is no chicken-and-egg problem here. +

+

+Of course you could do an AOT compilation in the main chunk of +the optimizer module. But then only with the plain backend. +Recompiling it later on with the optimizer attached doesn't work, +because a function cannot be compiled twice (I plan to lift +this restriction). +

+

+The other question is whether it pays off to compile the optimizer +at all? Honestly, I haven't tried, because the current optimizer +is really simple. It runs very quickly, even under the bytecode +interpreter. +

+ +

That's All Folks

+

+Ok, that's all for now. I'll extend this text later on with +new topics that come up in questions. Keep on asking these +on the mailing list if you are interested. +

+

+Thank you for your attention! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html new file mode 100644 index 00000000000..d1b92df766b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html @@ -0,0 +1,394 @@ + + + +LuaJIT Performance + + + + + + + + + +
+Lua +
+ + +
+

+Here are some performance measurements, based on a few benchmarks. +

+

+LuaJIT 2.0 is available with much improved performance!
+Please check the new +» interactive performance comparison. +

+ +

Interpreting the Results

+

+As is always the case with benchmarks, care must be taken to +interpret the results: +

+

+First, the standard Lua interpreter is already very fast. +It's commonly the fastest of it's class (interpreters) in the +» Great Computer Language Shootout. +Only true machine code compilers get a better overall score. +

+

+Any performance improvements due to LuaJIT can only be incremental. +You can't expect a speedup of 50x if the fastest compiled language +is only 5x faster than interpreted Lua in a particular benchmark. +LuaJIT can't do miracles. +

+

+Also please note that most of the benchmarks below are not +trivial micro-benchmarks, which are often cited with marvelous numbers. +Micro-benchmarks do not realistically model the performance gains you +can expect in your own programs. +

+

+It's easy to make up a few one-liners like:
+  local function f(...) end; for i=1,1e7 do f() end
+This is more than 30x faster with LuaJIT. But you won't find +this in a real-world program. +

+ +

Measurement Methods

+

+All measurements have been taken on a Pentium III 1.139 GHz +running Linux 2.6. Both Lua and LuaJIT have been compiled with +GCC 3.3.6 with -O3 -fomit-frame-pointer. +You'll definitely get different results on different machines or +with different C compiler options. * +

+

+The base for the comparison are the user CPU times as reported by +/usr/bin/time. The runtime of each benchmark is parametrized +and has been adjusted to minimize the variation between several runs. +The ratio between the times for LuaJIT and Lua gives the speedup. +Only this number is shown because it's less dependent on a specific system. +

+

+E.g. a speedup of 6.74 means the same benchmark runs almost 7 times +faster with luajit -O than with standard Lua (or with +-j off). Your mileage may vary. +

+

+* Yes, LuaJIT relies on quite a bit of the Lua core infrastructure +like table and string handling. All of this is written in C and +should be compiled with full optimization turned on, or performance +will suffer. +

+ +

Comparing Lua to LuaJIT

+

+Here is a comparison using the current benchmark collection of the +» Great Computer Language Shootout (as of 3/2006): +

+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
BenchmarkSpeedup +-----1x----2x----3x----4x----5x----6x----7x----8x +
mandelbrot6.74========================================
recursive6.64========================================
fannkuch5.37================================
chameneos5.08==============================
nsievebits5.05==============================
pidigits4.94==============================
nbody4.63============================
spectralnorm4.59============================
cheapconcr4.46===========================
partialsums3.73======================
fasta2.68================
cheapconcw2.52===============
nsieve1.95============
revcomp1.92============
knucleotide1.59==========
binarytrees1.52=========
sumfile1.27========
regexdna1.01======
+
+

+Note that many of these benchmarks have changed over time (both spec +and code). Benchmark results shown in previous versions of LuaJIT +are not directly comparable. The next section compares different +versions with the current set of benchmarks. +

+ +

Comparing LuaJIT Versions

+

+This shows the improvements between the following versions: +

+
    +
  • LuaJIT 1.0.x (===)
    • +
  • LuaJIT 1.1.x (===##)
    • +
+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
BenchmarkSpeedup +-----1x----2x----3x----4x----5x----6x----7x----8x +
fannkuch3.96 → 5.37========================########
chameneos2.25 → 5.08==============################
nsievebits2.90 → 5.05=================#############
pidigits3.58 → 4.94=====================#########
nbody4.16 → 4.63=========================###
cheapconcr1.46 → 4.46=========##################
partialsums1.71 → 3.73==========############
fasta2.37 → 2.68==============##
cheapconcw1.27 → 2.52========#######
revcomp1.45 → 1.92=========###
knucleotide1.32 → 1.59========##
+
+

+All other benchmarks show only minor performance differences. +

+ +

Summary

+

+These results should give you an idea about what speedup +you can expect depending on the nature of your Lua code: +

+
    +
  • +LuaJIT is really good at (floating-point) math and loops +(mandelbrot, pidigits, spectralnorm, partialsums). +
    • +
  • +Function calls (recursive), vararg calls, table lookups (nbody), +table iteration and coroutine switching (chameneos, cheapconc) +are a lot faster than with plain Lua. +
    • +
  • +It's still pretty good for indexed table access (fannkuch, nsieve) +and string processing (fasta, revcomp, knucleotide). +But there is room for improvement in a future version. +
    • +
  • +If your application spends most of the time in C code +you won't see much of a difference (regexdna, sumfile). +Ok, so write more code in pure Lua. :-) +
    • +
  • +The real speedup may be shadowed by other dominant factors in a benchmark: +
      +
    • Common parts of the Lua core: e.g. memory allocation +and GC (binarytrees).
      • +
    • Language characteristics: e.g. lack of bit operations (nsievebits).
      • +
    • System characteristics: e.g. CPU cache size and memory speed (nsieve).
      • +
    +
    • +
+

+The best idea is of course to benchmark your own applications. +Please report any interesting results you may find. Thank you! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html new file mode 100644 index 00000000000..ad4b5f1bed6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html @@ -0,0 +1,159 @@ + + + +Running LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT has only a single stand-alone executable, called luajit. +It can be used to run simple Lua statements or whole Lua applications +from the command line. It has an interactive mode, too. +

+

+Note: The optimizer is not activated by default because it resides +in an external module +(see Installing LuaJIT). +It's recommended to always use the optimizer, i.e.: luajit -O +

+ +

Command Line Options

+

+The luajit stand-alone executable is just a slightly modified +version of the regular lua stand-alone executable. +It supports the same basic options, too. Please have a look at the +Manual Page +for the regular lua stand-alone executable. +

+

+Two additional options control LuaJIT behaviour: +

+ +

-j cmd[=value]

+

+This option performs a LuaJIT control command. LuaJIT has a small +but extensible set of control commands. It's easy to add your own. +

+

+The command is first searched for in the jit.* library. +If no matching function is found, a module named jit.<cmd> +is loaded. The module table must provide a start() function. +

+

+For the -j cmd form the function is called without an argument. +Otherwise the value is passed as the first argument (a string). +

+

+Here are the built-in LuaJIT control commands: +

+
    +
  • -j on — Turns the JIT engine on (default).
    • +
  • -j off — Turns the JIT engine off.
    • +
  • -j debug[=level] — Set debug level. See +jit.debug().
    • +
+

+The following control commands are loaded from add-on modules: +

+
    +
  • -j trace[=file] — Trace the progress of the JIT compiler.
    • +
  • -j dumphints[=file] — Dump bytecode + hints before compilation.
    • +
  • -j dump[=file] — Dump machine code after compilation.
    • +
+ + +

-O[level]

+

+This option loads and runs the optimizer module jit.opt. +The optimizer generates hints for the compiler backend to improve +the performance of the compiled code. The optimizer slows down +compilation slightly, but the end result should make up for it +in almost every case. +

+

+The -O form sets the default optimizer level, which is +currently 2 (this may change in future versions +of LuaJIT). +

+

+The -Olevel form explicitly sets the optimizer level: +

+
    +
  • -O0 — disable the optimizer but leave it attached.
    • +
  • -O1 — perform standard optimizations (like hints for table lookups).
    • +
  • -O2 — like -O1 but also loads jit.opt_inline to enable result hints and inlining for standard library functions.
    • +
+ +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/Makefile b/src/3rd party/LuaJIT-1.1.8/src/Makefile new file mode 100644 index 00000000000..8ea86a9cdd5 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/Makefile @@ -0,0 +1,252 @@ +# makefile for building Lua +# see ../INSTALL for installation instructions +# see ../Makefile and luaconf.h for further customization + +# == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= + +# Your platform. See PLATS for possible values. +PLAT= none + +CC= gcc -m32 +CFLAGS= -O2 -fomit-frame-pointer -Wall $(MYCFLAGS) $(COCOCFLAGS) $(JITCFLAGS) +AR= ar rcu +RANLIB= ranlib +RM= rm -f +LIBS= -lm $(MYLIBS) + +MYCFLAGS= +MYLDFLAGS= +MYLIBS= + +# ++ Coco ========= +# Default: autodetect gccasm/setjmp/ucontext/fibers context switch method. +COCOCFLAGS= +# Force use of setjmp (instead of gccasm). +#COCOCFLAGS= -DCOCO_USE_SETJMP +# Force use of ucontext (instead of gccasm or setjmp). +#COCOCFLAGS= -DCOCO_USE_UCONTEXT +# Uncomment this if you want to compile LuaJIT without Coco. +# This effectively disables yielding from JIT compiled functions. +#COCOCFLAGS= -DCOCO_DISABLE +# -- Coco ========= + +# == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE ========= + +PLATS= linux bsd macosx solaris mingw cygwin posix generic linux_rl bsd_rl macosx_rl + +# ++ Coco ========= +COCO_O= lcoco.o +# -- Coco ========= + +# ++ LuaJIT ========= +DASMDIR= ../dynasm +DASMFLAGS= +DASMDISTFLAGS= -LN + +# This assumes you already have a copy of (plain) Lua 5.1 installed +# You can use luajit, too (built with the pre-processed headers from the dist) +DASM= lua $(DASMDIR)/dynasm.lua + +JITCFLAGS= -I$(DASMDIR) +JIT_O= ljit_core.o ljit_mem.o ljit_dasm.o ljit_backend.o +JITLIB_O= ljitlib.o + +ALL_DH = ljit_x86.h +# -- LuaJIT ========= + +LUA_A= liblua.a +CORE_O= lapi.o lcode.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o lmem.o \ + lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o \ + lundump.o lvm.o lzio.o $(COCO_O) $(JIT_O) +LIB_O= lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \ + lstrlib.o loadlib.o $(JITLIB_O) linit.o + +# Standalone has been renamed to avoid conflicts during installation +LUA_T= luajit +LUA_O= lua.o + +LUAC_T= luac +LUAC_O= luac.o print.o + +ALL_O= $(CORE_O) $(LIB_O) $(LUA_O) $(LUAC_O) +# Do not build luac by default +#ALL_T= $(LUA_A) $(LUA_T) $(LUAC_T) +ALL_T= $(LUA_A) $(LUA_T) +ALL_A= $(LUA_A) + +default: $(PLAT) + +all: $(ALL_T) + +o: $(ALL_O) + +a: $(ALL_A) + +$(LUA_A): $(CORE_O) $(LIB_O) + $(AR) $@ $(CORE_O) $(LIB_O) + $(RANLIB) $@ + +$(LUA_T): $(LUA_O) $(LUA_A) + $(CC) -o $@ $(MYLDFLAGS) $(LUA_O) $(LUA_A) $(LIBS) + +$(LUAC_T): $(LUAC_O) $(LUA_A) + $(CC) -o $@ $(MYLDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS) + +# ++ LuaJIT ========= +ljit_x86.h: ljit_x86.dasc ljit_x86_inline.dash ljit_x86.dash + $(DASM) $(DASMFLAGS) -o $@ ljit_x86.dasc + +distclean: clean + $(DASM) $(DASMDISTFLAGS) -o ljit_x86.h ljit_x86.dasc + +cleaner: clean + $(RM) $(ALL_DH) +# -- LuaJIT ========= + +clean: + $(RM) $(ALL_T) $(ALL_O) + +depend: + @$(CC) $(CFLAGS) -MM l*.c print.c + +echo: + @echo "PLAT = $(PLAT)" + @echo "CC = $(CC)" + @echo "CFLAGS = $(CFLAGS)" + @echo "AR = $(AR)" + @echo "RANLIB = $(RANLIB)" + @echo "RM = $(RM)" + @echo "MYCFLAGS = $(MYCFLAGS)" + @echo "MYLDFLAGS = $(MYLDFLAGS)" + @echo "MYLIBS = $(MYLIBS)" + +# convenience targets for popular platforms + +none: + @echo "Please choose a platform:" + @echo " $(PLATS)" + +bsd: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" MYLIBS="-Wl,-E" + +bsd_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN -DLUA_USE_READLINE" MYLIBS="-Wl,-E -lreadline" + +generic: + $(MAKE) all MYCFLAGS= + +linux: + $(MAKE) all MYCFLAGS=-DLUA_USE_LINUX MYLIBS="-Wl,-E -ldl" + +linux_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_LINUX -DLUA_USE_READLINE" MYLIBS="-Wl,-E -ldl -lreadline -lhistory -lncurses" + +# Mac OS X on Intel Macs only! +macosx: + $(MAKE) all MYCFLAGS=-DLUA_USE_LINUX +# use this on Mac OS X 10.3 +# $(MAKE) all MYCFLAGS=-DLUA_USE_MACOSX + +macosx_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_LINUX -DLUA_USE_READLINE" MYLIBS="-lreadline" + +mingw: + $(MAKE) "LUA_A=lua51.dll" "LUA_T=luajit.exe" \ + "AR=$(CC) -shared -o" "RANLIB=strip --strip-unneeded" \ + "MYCFLAGS=-DLUA_BUILD_AS_DLL -maccumulate-outgoing-args" \ + "MYLIBS=" "MYLDFLAGS=-s" luajit.exe + +cygwin: + $(MAKE) "CC=gcc -mno-cygwin" mingw + +posix: + $(MAKE) all MYCFLAGS=-DLUA_USE_POSIX + +# Solaris x86 only! +solaris: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" MYLIBS="-ldl" + +# list targets that do not create files (but not all makes understand .PHONY) +.PHONY: all $(PLATS) default o a clean depend echo none cleaner distclean + +# DO NOT DELETE + +lapi.o: lapi.c lua.h luaconf.h lapi.h lobject.h llimits.h ldebug.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h \ + ltable.h lundump.h lvm.h +lauxlib.o: lauxlib.c lua.h luaconf.h lauxlib.h +lbaselib.o: lbaselib.c lua.h luaconf.h lauxlib.h lualib.h lcoco.h +lcoco.o: lcoco.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lvm.h lgc.h +lcode.o: lcode.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ + lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h lcoco.h \ + ldo.h lgc.h ltable.h +ldblib.o: ldblib.c lua.h luaconf.h lauxlib.h lualib.h +ldebug.o: ldebug.c lua.h luaconf.h lapi.h lobject.h llimits.h lcode.h \ + llex.h lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h \ + lcoco.h ldo.h lfunc.h lstring.h lgc.h ltable.h lvm.h ljit.h +ldo.o: ldo.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lopcodes.h lparser.h \ + lstring.h ltable.h lundump.h lvm.h ljit.h +ldump.o: ldump.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h lundump.h +lfunc.o: lfunc.c lua.h luaconf.h lfunc.h lobject.h llimits.h lgc.h lmem.h \ + lstate.h ltm.h lzio.h lcoco.h ljit.h +lgc.o: lgc.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h ltable.h +linit.o: linit.c lua.h luaconf.h lualib.h lauxlib.h +liolib.o: liolib.c lua.h luaconf.h lauxlib.h lualib.h +ljit_backend.o: ljit_backend.c lua.h luaconf.h lobject.h llimits.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h \ + ltable.h lvm.h lopcodes.h ldebug.h ljit.h ljit_hints.h ljit_dasm.h \ + ../dynasm/dasm_proto.h ljit_x86.h +ljit_core.o: ljit_core.c lua.h luaconf.h lobject.h llimits.h lstate.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lstring.h lgc.h ltable.h ldebug.h \ + lopcodes.h ljit.h ljit_hints.h luajit.h +ljit_dasm.o: ljit_dasm.c lua.h luaconf.h ljit.h lobject.h llimits.h \ + ljit_dasm.h ../dynasm/dasm_proto.h lmem.h ../dynasm/dasm_x86.h +ljit_mem.o: ljit_mem.c lua.h luaconf.h lmem.h llimits.h ldo.h lobject.h \ + lstate.h ltm.h lzio.h lcoco.h ljit.h ljit_dasm.h ../dynasm/dasm_proto.h +ljitlib.o: ljitlib.c lua.h luaconf.h lauxlib.h luajit.h lualib.h \ + lobject.h llimits.h lstate.h ltm.h lzio.h lmem.h lcoco.h lstring.h \ + lgc.h ltable.h lfunc.h lopcodes.h ljit.h ljit_hints.h +llex.o: llex.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h llex.h lparser.h lstring.h lgc.h ltable.h +lmathlib.o: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h +lmem.o: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h +loadlib.o: loadlib.c lua.h luaconf.h lauxlib.h lualib.h luajit.h +lobject.o: lobject.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h \ + ltm.h lzio.h lmem.h lcoco.h lstring.h lgc.h lvm.h +lopcodes.o: lopcodes.c lopcodes.h llimits.h lua.h luaconf.h +loslib.o: loslib.c lua.h luaconf.h lauxlib.h lualib.h +lparser.o: lparser.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ + lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h lcoco.h \ + ldo.h lfunc.h lstring.h lgc.h ltable.h +lstate.o: lstate.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h llex.h lstring.h \ + ltable.h ljit.h +lstring.o: lstring.c lua.h luaconf.h lmem.h llimits.h lobject.h lstate.h \ + ltm.h lzio.h lcoco.h lstring.h lgc.h +lstrlib.o: lstrlib.c lua.h luaconf.h lauxlib.h lualib.h +ltable.o: ltable.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lgc.h ltable.h +ltablib.o: ltablib.c lua.h luaconf.h lauxlib.h lualib.h +ltm.o: ltm.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h lzio.h \ + lmem.h lcoco.h lstring.h lgc.h ltable.h +lua.o: lua.c lua.h luaconf.h lauxlib.h lualib.h luajit.h +luac.o: luac.c lua.h luaconf.h lauxlib.h ldo.h lobject.h llimits.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h lfunc.h lopcodes.h lstring.h lgc.h \ + lundump.h +lundump.o: lundump.c lua.h luaconf.h ldebug.h lstate.h lobject.h \ + llimits.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lstring.h lgc.h \ + lundump.h +lvm.o: lvm.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lopcodes.h lstring.h ltable.h \ + lvm.h +lzio.o: lzio.c lua.h luaconf.h llimits.h lmem.h lstate.h lobject.h ltm.h \ + lzio.h lcoco.h +print.o: print.c ldebug.h lstate.h lua.h luaconf.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h lopcodes.h lundump.h + +# (end of Makefile) diff --git a/src/3rd party/LuaJIT-1.1.8/src/lapi.c b/src/3rd party/LuaJIT-1.1.8/src/lapi.c new file mode 100644 index 00000000000..e8347a28c4d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lapi.c @@ -0,0 +1,1082 @@ +/* +** $Id: lapi.c,v 2.55.1.5 2008/07/04 18:41:18 roberto Exp $ +** Lua API +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define lapi_c +#define LUA_CORE + +#include "lua.h" + +#include "lapi.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lundump.h" +#include "lvm.h" + + + +const char lua_ident[] = + "$Lua: " LUA_RELEASE " " LUA_COPYRIGHT " $\n" + "$Authors: " LUA_AUTHORS " $\n" + "$URL: www.lua.org $\n"; + + + +#define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->base)) + +#define api_checkvalidindex(L, i) api_check(L, (i) != luaO_nilobject) + +#define api_incr_top(L) {api_check(L, L->top < L->ci->top); L->top++;} + + + +static TValue *index2adr (lua_State *L, int idx) { + if (idx > 0) { + TValue *o = L->base + (idx - 1); + api_check(L, idx <= L->ci->top - L->base); + if (o >= L->top) return cast(TValue *, luaO_nilobject); + else return o; + } + else if (idx > LUA_REGISTRYINDEX) { + api_check(L, idx != 0 && -idx <= L->top - L->base); + return L->top + idx; + } + else switch (idx) { /* pseudo-indices */ + case LUA_REGISTRYINDEX: return registry(L); + case LUA_ENVIRONINDEX: { + Closure *func = curr_func(L); + sethvalue(L, &L->env, func->c.env); + return &L->env; + } + case LUA_GLOBALSINDEX: return gt(L); + default: { + Closure *func = curr_func(L); + idx = LUA_GLOBALSINDEX - idx; + return (idx <= func->c.nupvalues) + ? &func->c.upvalue[idx-1] + : cast(TValue *, luaO_nilobject); + } + } +} + + +static Table *getcurrenv (lua_State *L) { + if (L->ci == L->base_ci) /* no enclosing function? */ + return hvalue(gt(L)); /* use global table as environment */ + else { + Closure *func = curr_func(L); + return func->c.env; + } +} + + +void luaA_pushobject (lua_State *L, const TValue *o) { + setobj2s(L, L->top, o); + api_incr_top(L); +} + + +LUA_API int lua_checkstack (lua_State *L, int size) { + int res = 1; + lua_lock(L); + if (size > LUAI_MAXCSTACK || (L->top - L->base + size) > LUAI_MAXCSTACK) + res = 0; /* stack overflow */ + else if (size > 0) { + luaD_checkstack(L, size); + if (L->ci->top < L->top + size) + L->ci->top = L->top + size; + } + lua_unlock(L); + return res; +} + + +LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { + StkId f, t; + if (from == to) return; + lua_lock(to); + api_checknelems(from, n); + api_check(from, G(from) == G(to)); + api_check(from, to->ci->top - to->top >= n); + f = from->top; + t = to->top = to->top + n; + while (--n >= 0) setobj2s(to, --t, --f); + from->top = f; + lua_unlock(to); +} + + +LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) { + lua_CFunction old; + lua_lock(L); + old = G(L)->panic; + G(L)->panic = panicf; + lua_unlock(L); + return old; +} + + +LUA_API lua_State *lua_newthread (lua_State *L) { + lua_State *L1; + lua_lock(L); + luaC_checkGC(L); + L1 = luaE_newthread(L); + setthvalue(L, L->top, L1); + api_incr_top(L); + lua_unlock(L); + luai_userstatethread(L, L1); + return L1; +} + + + +/* +** basic stack manipulation +*/ + + +LUA_API int lua_gettop (lua_State *L) { + return cast_int(L->top - L->base); +} + + +LUA_API void lua_settop (lua_State *L, int idx) { + lua_lock(L); + if (idx >= 0) { + api_check(L, idx <= L->stack_last - L->base); + while (L->top < L->base + idx) + setnilvalue(L->top++); + L->top = L->base + idx; + } + else { + api_check(L, -(idx+1) <= (L->top - L->base)); + L->top += idx+1; /* `subtract' index (index is negative) */ + } + lua_unlock(L); +} + + +LUA_API void lua_remove (lua_State *L, int idx) { + StkId p; + lua_lock(L); + p = index2adr(L, idx); + api_checkvalidindex(L, p); + while (++p < L->top) setobjs2s(L, p-1, p); + L->top--; + lua_unlock(L); +} + + +LUA_API void lua_insert (lua_State *L, int idx) { + StkId p; + StkId q; + lua_lock(L); + p = index2adr(L, idx); + api_checkvalidindex(L, p); + for (q = L->top; q>p; q--) setobjs2s(L, q, q-1); + setobjs2s(L, p, L->top); + lua_unlock(L); +} + + +LUA_API void lua_replace (lua_State *L, int idx) { + StkId o; + lua_lock(L); + /* explicit test for incompatible code */ + if (idx == LUA_ENVIRONINDEX && L->ci == L->base_ci) + luaG_runerror(L, "no calling environment"); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + if (idx == LUA_ENVIRONINDEX) { + Closure *func = curr_func(L); + api_check(L, ttistable(L->top - 1)); + func->c.env = hvalue(L->top - 1); + luaC_barrier(L, func, L->top - 1); + } + else { + setobj(L, o, L->top - 1); + if (idx < LUA_GLOBALSINDEX) /* function upvalue? */ + luaC_barrier(L, curr_func(L), L->top - 1); + } + L->top--; + lua_unlock(L); +} + + +LUA_API void lua_pushvalue (lua_State *L, int idx) { + lua_lock(L); + setobj2s(L, L->top, index2adr(L, idx)); + api_incr_top(L); + lua_unlock(L); +} + + + +/* +** access functions (stack -> C) +*/ + + +LUA_API int lua_type (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (o == luaO_nilobject) ? LUA_TNONE : ttype(o); +} + + +LUA_API const char *lua_typename (lua_State *L, int t) { + UNUSED(L); + return (t == LUA_TNONE) ? "no value" : luaT_typenames[t]; +} + + +LUA_API int lua_iscfunction (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return iscfunction(o); +} + + +LUA_API int lua_isnumber (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + return tonumber(o, &n); +} + + +LUA_API int lua_isstring (lua_State *L, int idx) { + int t = lua_type(L, idx); + return (t == LUA_TSTRING || t == LUA_TNUMBER); +} + + +LUA_API int lua_isuserdata (lua_State *L, int idx) { + const TValue *o = index2adr(L, idx); + return (ttisuserdata(o) || ttislightuserdata(o)); +} + + +LUA_API int lua_rawequal (lua_State *L, int index1, int index2) { + StkId o1 = index2adr(L, index1); + StkId o2 = index2adr(L, index2); + return (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 + : luaO_rawequalObj(o1, o2); +} + + +LUA_API int lua_equal (lua_State *L, int index1, int index2) { + StkId o1, o2; + int i; + lua_lock(L); /* may call tag method */ + o1 = index2adr(L, index1); + o2 = index2adr(L, index2); + i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 : equalobj(L, o1, o2); + lua_unlock(L); + return i; +} + + +LUA_API int lua_lessthan (lua_State *L, int index1, int index2) { + StkId o1, o2; + int i; + lua_lock(L); /* may call tag method */ + o1 = index2adr(L, index1); + o2 = index2adr(L, index2); + i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 + : luaV_lessthan(L, o1, o2); + lua_unlock(L); + return i; +} + + + +LUA_API lua_Number lua_tonumber (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + if (tonumber(o, &n)) + return nvalue(o); + else + return 0; +} + + +LUA_API lua_Integer lua_tointeger (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + if (tonumber(o, &n)) { + lua_Integer res; + lua_Number num = nvalue(o); + lua_number2integer(res, num); + return res; + } + else + return 0; +} + + +LUA_API int lua_toboolean (lua_State *L, int idx) { + const TValue *o = index2adr(L, idx); + return !l_isfalse(o); +} + + +LUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) { + StkId o = index2adr(L, idx); + if (!ttisstring(o)) { + lua_lock(L); /* `luaV_tostring' may create a new string */ + if (!luaV_tostring(L, o)) { /* conversion failed? */ + if (len != NULL) *len = 0; + lua_unlock(L); + return NULL; + } + luaC_checkGC(L); + o = index2adr(L, idx); /* previous call may reallocate the stack */ + lua_unlock(L); + } + if (len != NULL) *len = tsvalue(o)->len; + return svalue(o); +} + + +LUA_API size_t lua_objlen (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TSTRING: return tsvalue(o)->len; + case LUA_TUSERDATA: return uvalue(o)->len; + case LUA_TTABLE: return luaH_getn(hvalue(o)); + case LUA_TNUMBER: { + size_t l; + lua_lock(L); /* `luaV_tostring' may create a new string */ + l = (luaV_tostring(L, o) ? tsvalue(o)->len : 0); + lua_unlock(L); + return l; + } + default: return 0; + } +} + + +LUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (!iscfunction(o)) ? NULL : clvalue(o)->c.f; +} + + +LUA_API void *lua_touserdata (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TUSERDATA: return (rawuvalue(o) + 1); + case LUA_TLIGHTUSERDATA: return pvalue(o); + default: return NULL; + } +} + + +LUA_API lua_State *lua_tothread (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (!ttisthread(o)) ? NULL : thvalue(o); +} + + +LUA_API const void *lua_topointer (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TTABLE: return hvalue(o); + case LUA_TFUNCTION: return clvalue(o); + case LUA_TTHREAD: return thvalue(o); + case LUA_TUSERDATA: + case LUA_TLIGHTUSERDATA: + return lua_touserdata(L, idx); + default: return NULL; + } +} + + + +/* +** push functions (C -> stack) +*/ + + +LUA_API void lua_pushnil (lua_State *L) { + lua_lock(L); + setnilvalue(L->top); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushnumber (lua_State *L, lua_Number n) { + lua_lock(L); + setnvalue(L->top, n); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) { + lua_lock(L); + setnvalue(L->top, cast_num(n)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) { + lua_lock(L); + luaC_checkGC(L); + setsvalue2s(L, L->top, luaS_newlstr(L, s, len)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushstring (lua_State *L, const char *s) { + if (s == NULL) + lua_pushnil(L); + else + lua_pushlstring(L, s, strlen(s)); +} + + +LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt, + va_list argp) { + const char *ret; + lua_lock(L); + luaC_checkGC(L); + ret = luaO_pushvfstring(L, fmt, argp); + lua_unlock(L); + return ret; +} + + +LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) { + const char *ret; + va_list argp; + lua_lock(L); + luaC_checkGC(L); + va_start(argp, fmt); + ret = luaO_pushvfstring(L, fmt, argp); + va_end(argp); + lua_unlock(L); + return ret; +} + + +LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { + Closure *cl; + lua_lock(L); + luaC_checkGC(L); + api_checknelems(L, n); + cl = luaF_newCclosure(L, n, getcurrenv(L)); + cl->c.f = fn; + L->top -= n; + while (n--) + setobj2n(L, &cl->c.upvalue[n], L->top+n); + setclvalue(L, L->top, cl); + lua_assert(iswhite(obj2gco(cl))); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushboolean (lua_State *L, int b) { + lua_lock(L); + setbvalue(L->top, (b != 0)); /* ensure that true is 1 */ + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushlightuserdata (lua_State *L, void *p) { + lua_lock(L); + setpvalue(L->top, p); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API int lua_pushthread (lua_State *L) { + lua_lock(L); + setthvalue(L, L->top, L); + api_incr_top(L); + lua_unlock(L); + return (G(L)->mainthread == L); +} + + + +/* +** get functions (Lua -> stack) +*/ + + +LUA_API void lua_gettable (lua_State *L, int idx) { + StkId t; + lua_lock(L); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + luaV_gettable(L, t, L->top - 1, L->top - 1); + lua_unlock(L); +} + + +LUA_API void lua_getfield (lua_State *L, int idx, const char *k) { + StkId t; + TValue key; + lua_lock(L); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + setsvalue(L, &key, luaS_new(L, k)); + luaV_gettable(L, t, &key, L->top); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_rawget (lua_State *L, int idx) { + StkId t; + lua_lock(L); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1)); + lua_unlock(L); +} + + +LUA_API void lua_rawgeti (lua_State *L, int idx, int n) { + StkId o; + lua_lock(L); + o = index2adr(L, idx); + api_check(L, ttistable(o)); + setobj2s(L, L->top, luaH_getnum(hvalue(o), n)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_createtable (lua_State *L, int narray, int nrec) { + lua_lock(L); + luaC_checkGC(L); + sethvalue(L, L->top, luaH_new(L, narray, nrec)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API int lua_getmetatable (lua_State *L, int objindex) { + const TValue *obj; + Table *mt = NULL; + int res; + lua_lock(L); + obj = index2adr(L, objindex); + switch (ttype(obj)) { + case LUA_TTABLE: + mt = hvalue(obj)->metatable; + break; + case LUA_TUSERDATA: + mt = uvalue(obj)->metatable; + break; + default: + mt = G(L)->mt[ttype(obj)]; + break; + } + if (mt == NULL) + res = 0; + else { + sethvalue(L, L->top, mt); + api_incr_top(L); + res = 1; + } + lua_unlock(L); + return res; +} + + +LUA_API void lua_getfenv (lua_State *L, int idx) { + StkId o; + lua_lock(L); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + switch (ttype(o)) { + case LUA_TFUNCTION: + sethvalue(L, L->top, clvalue(o)->c.env); + break; + case LUA_TUSERDATA: + sethvalue(L, L->top, uvalue(o)->env); + break; + case LUA_TTHREAD: + setobj2s(L, L->top, gt(thvalue(o))); + break; + default: + setnilvalue(L->top); + break; + } + api_incr_top(L); + lua_unlock(L); +} + + +/* +** set functions (stack -> Lua) +*/ + + +LUA_API void lua_settable (lua_State *L, int idx) { + StkId t; + lua_lock(L); + api_checknelems(L, 2); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + luaV_settable(L, t, L->top - 2, L->top - 1); + L->top -= 2; /* pop index and value */ + lua_unlock(L); +} + + +LUA_API void lua_setfield (lua_State *L, int idx, const char *k) { + StkId t; + TValue key; + lua_lock(L); + api_checknelems(L, 1); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + setsvalue(L, &key, luaS_new(L, k)); + luaV_settable(L, t, &key, L->top - 1); + L->top--; /* pop value */ + lua_unlock(L); +} + + +LUA_API void lua_rawset (lua_State *L, int idx) { + StkId t; + lua_lock(L); + api_checknelems(L, 2); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1); + luaC_barriert(L, hvalue(t), L->top-1); + L->top -= 2; + lua_unlock(L); +} + + +LUA_API void lua_rawseti (lua_State *L, int idx, int n) { + StkId o; + lua_lock(L); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_check(L, ttistable(o)); + setobj2t(L, luaH_setnum(L, hvalue(o), n), L->top-1); + luaC_barriert(L, hvalue(o), L->top-1); + L->top--; + lua_unlock(L); +} + + +LUA_API int lua_setmetatable (lua_State *L, int objindex) { + TValue *obj; + Table *mt; + lua_lock(L); + api_checknelems(L, 1); + obj = index2adr(L, objindex); + api_checkvalidindex(L, obj); + if (ttisnil(L->top - 1)) + mt = NULL; + else { + api_check(L, ttistable(L->top - 1)); + mt = hvalue(L->top - 1); + } + switch (ttype(obj)) { + case LUA_TTABLE: { + hvalue(obj)->metatable = mt; + if (mt) + luaC_objbarriert(L, hvalue(obj), mt); + break; + } + case LUA_TUSERDATA: { + uvalue(obj)->metatable = mt; + if (mt) + luaC_objbarrier(L, rawuvalue(obj), mt); + break; + } + default: { + G(L)->mt[ttype(obj)] = mt; + break; + } + } + L->top--; + lua_unlock(L); + return 1; +} + + +LUA_API int lua_setfenv (lua_State *L, int idx) { + StkId o; + int res = 1; + lua_lock(L); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + api_check(L, ttistable(L->top - 1)); + switch (ttype(o)) { + case LUA_TFUNCTION: + clvalue(o)->c.env = hvalue(L->top - 1); + break; + case LUA_TUSERDATA: + uvalue(o)->env = hvalue(L->top - 1); + break; + case LUA_TTHREAD: + sethvalue(L, gt(thvalue(o)), hvalue(L->top - 1)); + break; + default: + res = 0; + break; + } + if (res) luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1)); + L->top--; + lua_unlock(L); + return res; +} + + +/* +** `load' and `call' functions (run Lua code) +*/ + + +#define adjustresults(L,nres) \ + { if (nres == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; } + + +#define checkresults(L,na,nr) \ + api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na))) + + +LUA_API void lua_call (lua_State *L, int nargs, int nresults) { + StkId func; + lua_lock(L); + api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); + func = L->top - (nargs+1); + luaD_call(L, func, nresults); + adjustresults(L, nresults); + lua_unlock(L); +} + + + +/* +** Execute a protected call. +*/ +struct CallS { /* data to `f_call' */ + StkId func; + int nresults; +}; + + +static void f_call (lua_State *L, void *ud) { + struct CallS *c = cast(struct CallS *, ud); + luaD_call(L, c->func, c->nresults); +} + + + +LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc) { + struct CallS c; + int status; + ptrdiff_t func; + lua_lock(L); + api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); + if (errfunc == 0) + func = 0; + else { + StkId o = index2adr(L, errfunc); + api_checkvalidindex(L, o); + func = savestack(L, o); + } + c.func = L->top - (nargs+1); /* function to be called */ + c.nresults = nresults; + status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); + adjustresults(L, nresults); + lua_unlock(L); + return status; +} + + +/* +** Execute a protected C call. +*/ +struct CCallS { /* data to `f_Ccall' */ + lua_CFunction func; + void *ud; +}; + + +static void f_Ccall (lua_State *L, void *ud) { + struct CCallS *c = cast(struct CCallS *, ud); + Closure *cl; + cl = luaF_newCclosure(L, 0, getcurrenv(L)); + cl->c.f = c->func; + setclvalue(L, L->top, cl); /* push function */ + api_incr_top(L); + setpvalue(L->top, c->ud); /* push only argument */ + api_incr_top(L); + luaD_call(L, L->top - 2, 0); +} + + +LUA_API int lua_cpcall (lua_State *L, lua_CFunction func, void *ud) { + struct CCallS c; + int status; + lua_lock(L); + c.func = func; + c.ud = ud; + status = luaD_pcall(L, f_Ccall, &c, savestack(L, L->top), 0); + lua_unlock(L); + return status; +} + + +LUA_API int lua_load (lua_State *L, lua_Reader reader, void *data, + const char *chunkname) { + ZIO z; + int status; + lua_lock(L); + if (!chunkname) chunkname = "?"; + luaZ_init(L, &z, reader, data); + status = luaD_protectedparser(L, &z, chunkname); + lua_unlock(L); + return status; +} + + +LUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data) { + int status; + TValue *o; + lua_lock(L); + api_checknelems(L, 1); + o = L->top - 1; + if (isLfunction(o)) + status = luaU_dump(L, clvalue(o)->l.p, writer, data, 0); + else + status = 1; + lua_unlock(L); + return status; +} + + +LUA_API int lua_status (lua_State *L) { + return L->status; +} + + +/* +** Garbage-collection function +*/ + +LUA_API int lua_gc (lua_State *L, int what, int data) { + int res = 0; + global_State *g; + lua_lock(L); + g = G(L); + switch (what) { + case LUA_GCSTOP: { + g->GCthreshold = MAX_LUMEM; + break; + } + case LUA_GCRESTART: { + g->GCthreshold = g->totalbytes; + break; + } + case LUA_GCCOLLECT: { + luaC_fullgc(L); + break; + } + case LUA_GCCOUNT: { + /* GC values are expressed in Kbytes: #bytes/2^10 */ + res = cast_int(g->totalbytes >> 10); + break; + } + case LUA_GCCOUNTB: { + res = cast_int(g->totalbytes & 0x3ff); + break; + } + case LUA_GCSTEP: { + lu_mem a = (cast(lu_mem, data) << 10); + if (a <= g->totalbytes) + g->GCthreshold = g->totalbytes - a; + else + g->GCthreshold = 0; + while (g->GCthreshold <= g->totalbytes) { + luaC_step(L); + if (g->gcstate == GCSpause) { /* end of cycle? */ + res = 1; /* signal it */ + break; + } + } + break; + } + case LUA_GCSETPAUSE: { + res = g->gcpause; + g->gcpause = data; + break; + } + case LUA_GCSETSTEPMUL: { + res = g->gcstepmul; + g->gcstepmul = data; + break; + } + default: res = -1; /* invalid option */ + } + lua_unlock(L); + return res; +} + + + +/* +** miscellaneous functions +*/ + + +LUA_API int lua_error (lua_State *L) { + lua_lock(L); + api_checknelems(L, 1); + luaG_errormsg(L); + lua_unlock(L); + return 0; /* to avoid warnings */ +} + + +LUA_API int lua_next (lua_State *L, int idx) { + StkId t; + int more; + lua_lock(L); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + more = luaH_next(L, hvalue(t), L->top - 1); + if (more) { + api_incr_top(L); + } + else /* no more elements */ + L->top -= 1; /* remove key */ + lua_unlock(L); + return more; +} + + +LUA_API void lua_concat (lua_State *L, int n) { + lua_lock(L); + api_checknelems(L, n); + if (n >= 2) { + luaC_checkGC(L); + luaV_concat(L, n, cast_int(L->top - L->base) - 1); + L->top -= (n-1); + } + else if (n == 0) { /* push empty string */ + setsvalue2s(L, L->top, luaS_newlstr(L, "", 0)); + api_incr_top(L); + } + /* else n == 1; nothing to do */ + lua_unlock(L); +} + + +LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { + lua_Alloc f; + lua_lock(L); + if (ud) *ud = G(L)->ud; + f = G(L)->frealloc; + lua_unlock(L); + return f; +} + + +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { + lua_lock(L); + G(L)->ud = ud; + G(L)->frealloc = f; + lua_unlock(L); +} + + +LUA_API void *lua_newuserdata (lua_State *L, size_t size) { + Udata *u; + lua_lock(L); + luaC_checkGC(L); + u = luaS_newudata(L, size, getcurrenv(L)); + setuvalue(L, L->top, u); + api_incr_top(L); + lua_unlock(L); + return u + 1; +} + + + + +static const char *aux_upvalue (StkId fi, int n, TValue **val) { + Closure *f; + if (!ttisfunction(fi)) return NULL; + f = clvalue(fi); + if (f->c.isC) { + if (!(1 <= n && n <= f->c.nupvalues)) return NULL; + *val = &f->c.upvalue[n-1]; + return ""; + } + else { + Proto *p = f->l.p; + if (!(1 <= n && n <= p->sizeupvalues)) return NULL; + *val = f->l.upvals[n-1]->v; + return getstr(p->upvalues[n-1]); + } +} + + +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { + const char *name; + TValue *val; + lua_lock(L); + name = aux_upvalue(index2adr(L, funcindex), n, &val); + if (name) { + setobj2s(L, L->top, val); + api_incr_top(L); + } + lua_unlock(L); + return name; +} + + +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) { + const char *name; + TValue *val; + StkId fi; + lua_lock(L); + fi = index2adr(L, funcindex); + api_checknelems(L, 1); + name = aux_upvalue(fi, n, &val); + if (name) { + L->top--; + setobj(L, val, L->top); + luaC_barrier(L, clvalue(fi), L->top); + } + lua_unlock(L); + return name; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lapi.h b/src/3rd party/LuaJIT-1.1.8/src/lapi.h new file mode 100644 index 00000000000..2c3fab244ef --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lapi.h @@ -0,0 +1,16 @@ +/* +** $Id: lapi.h,v 2.2.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions from Lua API +** See Copyright Notice in lua.h +*/ + +#ifndef lapi_h +#define lapi_h + + +#include "lobject.h" + + +LUAI_FUNC void luaA_pushobject (lua_State *L, const TValue *o); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c new file mode 100644 index 00000000000..10f14e2c088 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c @@ -0,0 +1,652 @@ +/* +** $Id: lauxlib.c,v 1.159.1.3 2008/01/21 13:20:51 roberto Exp $ +** Auxiliary functions for building Lua libraries +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include +#include + + +/* This file uses only the official API of Lua. +** Any function declared here could be written as an application function. +*/ + +#define lauxlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" + + +#define FREELIST_REF 0 /* free list of references */ + + +/* convert a stack index to positive */ +#define abs_index(L, i) ((i) > 0 || (i) <= LUA_REGISTRYINDEX ? (i) : \ + lua_gettop(L) + (i) + 1) + + +/* +** {====================================================== +** Error-report functions +** ======================================================= +*/ + + +LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) { + lua_Debug ar; + if (!lua_getstack(L, 0, &ar)) /* no stack frame? */ + return luaL_error(L, "bad argument #%d (%s)", narg, extramsg); + lua_getinfo(L, "n", &ar); + if (strcmp(ar.namewhat, "method") == 0) { + narg--; /* do not count `self' */ + if (narg == 0) /* error is in the self argument itself? */ + return luaL_error(L, "calling " LUA_QS " on bad self (%s)", + ar.name, extramsg); + } + if (ar.name == NULL) + ar.name = "?"; + return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", + narg, ar.name, extramsg); +} + + +LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname) { + const char *msg = lua_pushfstring(L, "%s expected, got %s", + tname, luaL_typename(L, narg)); + return luaL_argerror(L, narg, msg); +} + + +static void tag_error (lua_State *L, int narg, int tag) { + luaL_typerror(L, narg, lua_typename(L, tag)); +} + + +LUALIB_API void luaL_where (lua_State *L, int level) { + lua_Debug ar; + if (lua_getstack(L, level, &ar)) { /* check function at level */ + lua_getinfo(L, "Sl", &ar); /* get info about it */ + if (ar.currentline > 0) { /* is there info? */ + lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); + return; + } + } + lua_pushliteral(L, ""); /* else, no information available... */ +} + + +LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) { + va_list argp; + va_start(argp, fmt); + luaL_where(L, 1); + lua_pushvfstring(L, fmt, argp); + va_end(argp); + lua_concat(L, 2); + return lua_error(L); +} + +/* }====================================================== */ + + +LUALIB_API int luaL_checkoption (lua_State *L, int narg, const char *def, + const char *const lst[]) { + const char *name = (def) ? luaL_optstring(L, narg, def) : + luaL_checkstring(L, narg); + int i; + for (i=0; lst[i]; i++) + if (strcmp(lst[i], name) == 0) + return i; + return luaL_argerror(L, narg, + lua_pushfstring(L, "invalid option " LUA_QS, name)); +} + + +LUALIB_API int luaL_newmetatable (lua_State *L, const char *tname) { + lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get registry.name */ + if (!lua_isnil(L, -1)) /* name already in use? */ + return 0; /* leave previous value on top, but return 0 */ + lua_pop(L, 1); + lua_newtable(L); /* create metatable */ + lua_pushvalue(L, -1); + lua_setfield(L, LUA_REGISTRYINDEX, tname); /* registry.name = metatable */ + return 1; +} + + +LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) { + void *p = lua_touserdata(L, ud); + if (p != NULL) { /* value is a userdata? */ + if (lua_getmetatable(L, ud)) { /* does it have a metatable? */ + lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get correct metatable */ + if (lua_rawequal(L, -1, -2)) { /* does it have the correct mt? */ + lua_pop(L, 2); /* remove both metatables */ + return p; + } + } + } + luaL_typerror(L, ud, tname); /* else error */ + return NULL; /* to avoid warnings */ +} + + +LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *mes) { + if (!lua_checkstack(L, space)) + luaL_error(L, "stack overflow (%s)", mes); +} + + +LUALIB_API void luaL_checktype (lua_State *L, int narg, int t) { + if (lua_type(L, narg) != t) + tag_error(L, narg, t); +} + + +LUALIB_API void luaL_checkany (lua_State *L, int narg) { + if (lua_type(L, narg) == LUA_TNONE) + luaL_argerror(L, narg, "value expected"); +} + + +LUALIB_API const char *luaL_checklstring (lua_State *L, int narg, size_t *len) { + const char *s = lua_tolstring(L, narg, len); + if (!s) tag_error(L, narg, LUA_TSTRING); + return s; +} + + +LUALIB_API const char *luaL_optlstring (lua_State *L, int narg, + const char *def, size_t *len) { + if (lua_isnoneornil(L, narg)) { + if (len) + *len = (def ? strlen(def) : 0); + return def; + } + else return luaL_checklstring(L, narg, len); +} + + +LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) { + lua_Number d = lua_tonumber(L, narg); + if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */ + tag_error(L, narg, LUA_TNUMBER); + return d; +} + + +LUALIB_API lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number def) { + return luaL_opt(L, luaL_checknumber, narg, def); +} + + +LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) { + lua_Integer d = lua_tointeger(L, narg); + if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */ + tag_error(L, narg, LUA_TNUMBER); + return d; +} + + +LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int narg, + lua_Integer def) { + return luaL_opt(L, luaL_checkinteger, narg, def); +} + + +LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { + if (!lua_getmetatable(L, obj)) /* no metatable? */ + return 0; + lua_pushstring(L, event); + lua_rawget(L, -2); + if (lua_isnil(L, -1)) { + lua_pop(L, 2); /* remove metatable and metafield */ + return 0; + } + else { + lua_remove(L, -2); /* remove only metatable */ + return 1; + } +} + + +LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { + obj = abs_index(L, obj); + if (!luaL_getmetafield(L, obj, event)) /* no metafield? */ + return 0; + lua_pushvalue(L, obj); + lua_call(L, 1, 1); + return 1; +} + + +LUALIB_API void (luaL_register) (lua_State *L, const char *libname, + const luaL_Reg *l) { + luaI_openlib(L, libname, l, 0); +} + + +static int libsize (const luaL_Reg *l) { + int size = 0; + for (; l->name; l++) size++; + return size; +} + + +LUALIB_API void luaI_openlib (lua_State *L, const char *libname, + const luaL_Reg *l, int nup) { + if (libname) { + int size = libsize(l); + /* check whether lib already exists */ + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 1); + lua_getfield(L, -1, libname); /* get _LOADED[libname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, size) != NULL) + luaL_error(L, "name conflict for module " LUA_QS, libname); + lua_pushvalue(L, -1); + lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ + } + lua_remove(L, -2); /* remove _LOADED table */ + lua_insert(L, -(nup+1)); /* move library table to below upvalues */ + } + for (; l->name; l++) { + int i; + for (i=0; ifunc, nup); + lua_setfield(L, -(nup+2), l->name); + } + lua_pop(L, nup); /* remove upvalues */ +} + + + +/* +** {====================================================== +** getn-setn: size for arrays +** ======================================================= +*/ + +#if defined(LUA_COMPAT_GETN) + +static int checkint (lua_State *L, int topop) { + int n = (lua_type(L, -1) == LUA_TNUMBER) ? lua_tointeger(L, -1) : -1; + lua_pop(L, topop); + return n; +} + + +static void getsizes (lua_State *L) { + lua_getfield(L, LUA_REGISTRYINDEX, "LUA_SIZES"); + if (lua_isnil(L, -1)) { /* no `size' table? */ + lua_pop(L, 1); /* remove nil */ + lua_newtable(L); /* create it */ + lua_pushvalue(L, -1); /* `size' will be its own metatable */ + lua_setmetatable(L, -2); + lua_pushliteral(L, "kv"); + lua_setfield(L, -2, "__mode"); /* metatable(N).__mode = "kv" */ + lua_pushvalue(L, -1); + lua_setfield(L, LUA_REGISTRYINDEX, "LUA_SIZES"); /* store in register */ + } +} + + +LUALIB_API void luaL_setn (lua_State *L, int t, int n) { + t = abs_index(L, t); + lua_pushliteral(L, "n"); + lua_rawget(L, t); + if (checkint(L, 1) >= 0) { /* is there a numeric field `n'? */ + lua_pushliteral(L, "n"); /* use it */ + lua_pushinteger(L, n); + lua_rawset(L, t); + } + else { /* use `sizes' */ + getsizes(L); + lua_pushvalue(L, t); + lua_pushinteger(L, n); + lua_rawset(L, -3); /* sizes[t] = n */ + lua_pop(L, 1); /* remove `sizes' */ + } +} + + +LUALIB_API int luaL_getn (lua_State *L, int t) { + int n; + t = abs_index(L, t); + lua_pushliteral(L, "n"); /* try t.n */ + lua_rawget(L, t); + if ((n = checkint(L, 1)) >= 0) return n; + getsizes(L); /* else try sizes[t] */ + lua_pushvalue(L, t); + lua_rawget(L, -2); + if ((n = checkint(L, 2)) >= 0) return n; + return (int)lua_objlen(L, t); +} + +#endif + +/* }====================================================== */ + + + +LUALIB_API const char *luaL_gsub (lua_State *L, const char *s, const char *p, + const char *r) { + const char *wild; + size_t l = strlen(p); + luaL_Buffer b; + luaL_buffinit(L, &b); + while ((wild = strstr(s, p)) != NULL) { + luaL_addlstring(&b, s, wild - s); /* push prefix */ + luaL_addstring(&b, r); /* push replacement in place of pattern */ + s = wild + l; /* continue after `p' */ + } + luaL_addstring(&b, s); /* push last suffix */ + luaL_pushresult(&b); + return lua_tostring(L, -1); +} + + +LUALIB_API const char *luaL_findtable (lua_State *L, int idx, + const char *fname, int szhint) { + const char *e; + lua_pushvalue(L, idx); + do { + e = strchr(fname, '.'); + if (e == NULL) e = fname + strlen(fname); + lua_pushlstring(L, fname, e - fname); + lua_rawget(L, -2); + if (lua_isnil(L, -1)) { /* no such field? */ + lua_pop(L, 1); /* remove this nil */ + lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */ + lua_pushlstring(L, fname, e - fname); + lua_pushvalue(L, -2); + lua_settable(L, -4); /* set new table into field */ + } + else if (!lua_istable(L, -1)) { /* field has a non-table value? */ + lua_pop(L, 2); /* remove table and value */ + return fname; /* return problematic part of the name */ + } + lua_remove(L, -2); /* remove previous table */ + fname = e + 1; + } while (*e == '.'); + return NULL; +} + + + +/* +** {====================================================== +** Generic Buffer manipulation +** ======================================================= +*/ + + +#define bufflen(B) ((B)->p - (B)->buffer) +#define bufffree(B) ((size_t)(LUAL_BUFFERSIZE - bufflen(B))) + +#define LIMIT (LUA_MINSTACK/2) + + +static int emptybuffer (luaL_Buffer *B) { + size_t l = bufflen(B); + if (l == 0) return 0; /* put nothing on stack */ + else { + lua_pushlstring(B->L, B->buffer, l); + B->p = B->buffer; + B->lvl++; + return 1; + } +} + + +static void adjuststack (luaL_Buffer *B) { + if (B->lvl > 1) { + lua_State *L = B->L; + int toget = 1; /* number of levels to concat */ + size_t toplen = lua_strlen(L, -1); + do { + size_t l = lua_strlen(L, -(toget+1)); + if (B->lvl - toget + 1 >= LIMIT || toplen > l) { + toplen += l; + toget++; + } + else break; + } while (toget < B->lvl); + lua_concat(L, toget); + B->lvl = B->lvl - toget + 1; + } +} + + +LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B) { + if (emptybuffer(B)) + adjuststack(B); + return B->buffer; +} + + +LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) { + while (l--) + luaL_addchar(B, *s++); +} + + +LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) { + luaL_addlstring(B, s, strlen(s)); +} + + +LUALIB_API void luaL_pushresult (luaL_Buffer *B) { + emptybuffer(B); + lua_concat(B->L, B->lvl); + B->lvl = 1; +} + + +LUALIB_API void luaL_addvalue (luaL_Buffer *B) { + lua_State *L = B->L; + size_t vl; + const char *s = lua_tolstring(L, -1, &vl); + if (vl <= bufffree(B)) { /* fit into buffer? */ + memcpy(B->p, s, vl); /* put it there */ + B->p += vl; + lua_pop(L, 1); /* remove from stack */ + } + else { + if (emptybuffer(B)) + lua_insert(L, -2); /* put buffer before new value */ + B->lvl++; /* add new value into B stack */ + adjuststack(B); + } +} + + +LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) { + B->L = L; + B->p = B->buffer; + B->lvl = 0; +} + +/* }====================================================== */ + + +LUALIB_API int luaL_ref (lua_State *L, int t) { + int ref; + t = abs_index(L, t); + if (lua_isnil(L, -1)) { + lua_pop(L, 1); /* remove from stack */ + return LUA_REFNIL; /* `nil' has a unique fixed reference */ + } + lua_rawgeti(L, t, FREELIST_REF); /* get first free element */ + ref = (int)lua_tointeger(L, -1); /* ref = t[FREELIST_REF] */ + lua_pop(L, 1); /* remove it from stack */ + if (ref != 0) { /* any free element? */ + lua_rawgeti(L, t, ref); /* remove it from list */ + lua_rawseti(L, t, FREELIST_REF); /* (t[FREELIST_REF] = t[ref]) */ + } + else { /* no free elements */ + ref = (int)lua_objlen(L, t); + ref++; /* create new reference */ + } + lua_rawseti(L, t, ref); + return ref; +} + + +LUALIB_API void luaL_unref (lua_State *L, int t, int ref) { + if (ref >= 0) { + t = abs_index(L, t); + lua_rawgeti(L, t, FREELIST_REF); + lua_rawseti(L, t, ref); /* t[ref] = t[FREELIST_REF] */ + lua_pushinteger(L, ref); + lua_rawseti(L, t, FREELIST_REF); /* t[FREELIST_REF] = ref */ + } +} + + + +/* +** {====================================================== +** Load functions +** ======================================================= +*/ + +typedef struct LoadF { + int extraline; + FILE *f; + char buff[LUAL_BUFFERSIZE]; +} LoadF; + + +static const char *getF (lua_State *L, void *ud, size_t *size) { + LoadF *lf = (LoadF *)ud; + (void)L; + if (lf->extraline) { + lf->extraline = 0; + *size = 1; + return "\n"; + } + if (feof(lf->f)) return NULL; + *size = fread(lf->buff, 1, sizeof(lf->buff), lf->f); + return (*size > 0) ? lf->buff : NULL; +} + + +static int errfile (lua_State *L, const char *what, int fnameindex) { + const char *serr = strerror(errno); + const char *filename = lua_tostring(L, fnameindex) + 1; + lua_pushfstring(L, "cannot %s %s: %s", what, filename, serr); + lua_remove(L, fnameindex); + return LUA_ERRFILE; +} + + +LUALIB_API int luaL_loadfile (lua_State *L, const char *filename) { + LoadF lf; + int status, readstatus; + int c; + int fnameindex = lua_gettop(L) + 1; /* index of filename on the stack */ + lf.extraline = 0; + if (filename == NULL) { + lua_pushliteral(L, "=stdin"); + lf.f = stdin; + } + else { + lua_pushfstring(L, "@%s", filename); + lf.f = fopen(filename, "r"); + if (lf.f == NULL) return errfile(L, "open", fnameindex); + } + c = getc(lf.f); + if (c == '#') { /* Unix exec. file? */ + lf.extraline = 1; + while ((c = getc(lf.f)) != EOF && c != '\n') ; /* skip first line */ + if (c == '\n') c = getc(lf.f); + } + if (c == LUA_SIGNATURE[0] && filename) { /* binary file? */ + lf.f = freopen(filename, "rb", lf.f); /* reopen in binary mode */ + if (lf.f == NULL) return errfile(L, "reopen", fnameindex); + /* skip eventual `#!...' */ + while ((c = getc(lf.f)) != EOF && c != LUA_SIGNATURE[0]) ; + lf.extraline = 0; + } + ungetc(c, lf.f); + status = lua_load(L, getF, &lf, lua_tostring(L, -1)); + readstatus = ferror(lf.f); + if (filename) fclose(lf.f); /* close file (even in case of errors) */ + if (readstatus) { + lua_settop(L, fnameindex); /* ignore results from `lua_load' */ + return errfile(L, "read", fnameindex); + } + lua_remove(L, fnameindex); + return status; +} + + +typedef struct LoadS { + const char *s; + size_t size; +} LoadS; + + +static const char *getS (lua_State *L, void *ud, size_t *size) { + LoadS *ls = (LoadS *)ud; + (void)L; + if (ls->size == 0) return NULL; + *size = ls->size; + ls->size = 0; + return ls->s; +} + + +LUALIB_API int luaL_loadbuffer (lua_State *L, const char *buff, size_t size, + const char *name) { + LoadS ls; + ls.s = buff; + ls.size = size; + return lua_load(L, getS, &ls, name); +} + + +LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s) { + return luaL_loadbuffer(L, s, strlen(s), s); +} + + + +/* }====================================================== */ + + +static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { + (void)ud; + (void)osize; + if (nsize == 0) { + free(ptr); + return NULL; + } + else + return realloc(ptr, nsize); +} + + +static int panic (lua_State *L) { + (void)L; /* to avoid warnings */ + fprintf(stderr, "PANIC: unprotected error in call to Lua API (%s)\n", + lua_tostring(L, -1)); + return 0; +} + + +LUALIB_API lua_State *luaL_newstate (void) { + lua_State *L = lua_newstate(l_alloc, NULL); + if (L) lua_atpanic(L, &panic); + return L; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h new file mode 100644 index 00000000000..34258235dbe --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h @@ -0,0 +1,174 @@ +/* +** $Id: lauxlib.h,v 1.88.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions for building Lua libraries +** See Copyright Notice in lua.h +*/ + + +#ifndef lauxlib_h +#define lauxlib_h + + +#include +#include + +#include "lua.h" + + +#if defined(LUA_COMPAT_GETN) +LUALIB_API int (luaL_getn) (lua_State *L, int t); +LUALIB_API void (luaL_setn) (lua_State *L, int t, int n); +#else +#define luaL_getn(L,i) ((int)lua_objlen(L, i)) +#define luaL_setn(L,i,j) ((void)0) /* no op! */ +#endif + +#if defined(LUA_COMPAT_OPENLIB) +#define luaI_openlib luaL_openlib +#endif + + +/* extra error code for `luaL_load' */ +#define LUA_ERRFILE (LUA_ERRERR+1) + + +typedef struct luaL_Reg { + const char *name; + lua_CFunction func; +} luaL_Reg; + + + +LUALIB_API void (luaI_openlib) (lua_State *L, const char *libname, + const luaL_Reg *l, int nup); +LUALIB_API void (luaL_register) (lua_State *L, const char *libname, + const luaL_Reg *l); +LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname); +LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); +LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, + size_t *l); +LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, + const char *def, size_t *l); +LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); +LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); + +LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); +LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, + lua_Integer def); + +LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); +LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); +LUALIB_API void (luaL_checkany) (lua_State *L, int narg); + +LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); +LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); + +LUALIB_API void (luaL_where) (lua_State *L, int lvl); +LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); + +LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, + const char *const lst[]); + +LUALIB_API int (luaL_ref) (lua_State *L, int t); +LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); + +LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename); +LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, + const char *name); +LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); + +LUALIB_API lua_State *(luaL_newstate) (void); + + +LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, + const char *r); + +LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx, + const char *fname, int szhint); + + + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define luaL_argcheck(L, cond,numarg,extramsg) \ + ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) +#define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) +#define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) +#define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) +#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) +#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) +#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) + +#define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) + +#define luaL_dofile(L, fn) \ + (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_dostring(L, s) \ + (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) + +#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) + +/* +** {====================================================== +** Generic Buffer manipulation +** ======================================================= +*/ + + + +typedef struct luaL_Buffer { + char *p; /* current position in buffer */ + int lvl; /* number of strings in the stack (level) */ + lua_State *L; + char buffer[LUAL_BUFFERSIZE]; +} luaL_Buffer; + +#define luaL_addchar(B,c) \ + ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ + (*(B)->p++ = (char)(c))) + +/* compatibility only */ +#define luaL_putchar(B,c) luaL_addchar(B,c) + +#define luaL_addsize(B,n) ((B)->p += (n)) + +LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); +LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B); +LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); +LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); +LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); +LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); + + +/* }====================================================== */ + + +/* compatibility with ref system */ + +/* pre-defined references */ +#define LUA_NOREF (-2) +#define LUA_REFNIL (-1) + +#define lua_ref(L,lock) ((lock) ? luaL_ref(L, LUA_REGISTRYINDEX) : \ + (lua_pushstring(L, "unlocked references are obsolete"), lua_error(L), 0)) + +#define lua_unref(L,ref) luaL_unref(L, LUA_REGISTRYINDEX, (ref)) + +#define lua_getref(L,ref) lua_rawgeti(L, LUA_REGISTRYINDEX, (ref)) + + +#define luaL_reg luaL_Reg + +#endif + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c b/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c new file mode 100644 index 00000000000..94d28cfa0ed --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c @@ -0,0 +1,679 @@ +/* +** $Id: lbaselib.c,v 1.191.1.6 2008/02/14 16:46:22 roberto Exp $ +** Basic library +** See Copyright Notice in lua.h +*/ + + + +#include +#include +#include +#include + +#define lbaselib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#ifndef COCO_DISABLE +#include "lcoco.h" +#endif + + + + +/* +** If your system does not support `stdout', you can just remove this function. +** If you need, you can define your own `print' function, following this +** model but changing `fputs' to put the strings at a proper place +** (a console window or a log file, for instance). +*/ +static int luaB_print (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + int i; + lua_getglobal(L, "tostring"); + for (i=1; i<=n; i++) { + const char *s; + lua_pushvalue(L, -1); /* function to be called */ + lua_pushvalue(L, i); /* value to print */ + lua_call(L, 1, 1); + s = lua_tostring(L, -1); /* get result */ + if (s == NULL) + return luaL_error(L, LUA_QL("tostring") " must return a string to " + LUA_QL("print")); + if (i>1) fputs("\t", stdout); + fputs(s, stdout); + lua_pop(L, 1); /* pop result */ + } + fputs("\n", stdout); + return 0; +} + + +static int luaB_tonumber (lua_State *L) { + int base = luaL_optint(L, 2, 10); + if (base == 10) { /* standard conversion */ + luaL_checkany(L, 1); + if (lua_isnumber(L, 1)) { + lua_pushnumber(L, lua_tonumber(L, 1)); + return 1; + } + } + else { + const char *s1 = luaL_checkstring(L, 1); + char *s2; + unsigned long n; + luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); + n = strtoul(s1, &s2, base); + if (s1 != s2) { /* at least one valid digit? */ + while (isspace((unsigned char)(*s2))) s2++; /* skip trailing spaces */ + if (*s2 == '\0') { /* no invalid trailing characters? */ + lua_pushnumber(L, (lua_Number)n); + return 1; + } + } + } + lua_pushnil(L); /* else not a number */ + return 1; +} + + +static int luaB_error (lua_State *L) { + int level = luaL_optint(L, 2, 1); + lua_settop(L, 1); + if (lua_isstring(L, 1) && level > 0) { /* add extra information? */ + luaL_where(L, level); + lua_pushvalue(L, 1); + lua_concat(L, 2); + } + return lua_error(L); +} + + +static int luaB_getmetatable (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_getmetatable(L, 1)) { + lua_pushnil(L); + return 1; /* no metatable */ + } + luaL_getmetafield(L, 1, "__metatable"); + return 1; /* returns either __metatable field (if present) or metatable */ +} + + +static int luaB_setmetatable (lua_State *L) { + int t = lua_type(L, 2); + luaL_checktype(L, 1, LUA_TTABLE); + luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, + "nil or table expected"); + if (luaL_getmetafield(L, 1, "__metatable")) + luaL_error(L, "cannot change a protected metatable"); + lua_settop(L, 2); + lua_setmetatable(L, 1); + return 1; +} + + +static void getfunc (lua_State *L, int opt) { + if (lua_isfunction(L, 1)) lua_pushvalue(L, 1); + else { + lua_Debug ar; + int level = opt ? luaL_optint(L, 1, 1) : luaL_checkint(L, 1); + luaL_argcheck(L, level >= 0, 1, "level must be non-negative"); + if (lua_getstack(L, level, &ar) == 0) + luaL_argerror(L, 1, "invalid level"); + lua_getinfo(L, "f", &ar); + if (lua_isnil(L, -1)) + luaL_error(L, "no function environment for tail call at level %d", + level); + } +} + + +static int luaB_getfenv (lua_State *L) { + getfunc(L, 1); + if (lua_iscfunction(L, -1)) /* is a C function? */ + lua_pushvalue(L, LUA_GLOBALSINDEX); /* return the thread's global env. */ + else + lua_getfenv(L, -1); + return 1; +} + + +static int luaB_setfenv (lua_State *L) { + luaL_checktype(L, 2, LUA_TTABLE); + getfunc(L, 0); + lua_pushvalue(L, 2); + if (lua_isnumber(L, 1) && lua_tonumber(L, 1) == 0) { + /* change environment of current thread */ + lua_pushthread(L); + lua_insert(L, -2); + lua_setfenv(L, -2); + return 0; + } + else if (lua_iscfunction(L, -2) || lua_setfenv(L, -2) == 0) + luaL_error(L, + LUA_QL("setfenv") " cannot change environment of given object"); + return 1; +} + + +static int luaB_rawequal (lua_State *L) { + luaL_checkany(L, 1); + luaL_checkany(L, 2); + lua_pushboolean(L, lua_rawequal(L, 1, 2)); + return 1; +} + + +static int luaB_rawget (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checkany(L, 2); + lua_settop(L, 2); + lua_rawget(L, 1); + return 1; +} + +static int luaB_rawset (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checkany(L, 2); + luaL_checkany(L, 3); + lua_settop(L, 3); + lua_rawset(L, 1); + return 1; +} + + +static int luaB_gcinfo (lua_State *L) { + lua_pushinteger(L, lua_getgccount(L)); + return 1; +} + + +static int luaB_collectgarbage (lua_State *L) { + static const char *const opts[] = {"stop", "restart", "collect", + "count", "step", "setpause", "setstepmul", NULL}; + static const int optsnum[] = {LUA_GCSTOP, LUA_GCRESTART, LUA_GCCOLLECT, + LUA_GCCOUNT, LUA_GCSTEP, LUA_GCSETPAUSE, LUA_GCSETSTEPMUL}; + int o = luaL_checkoption(L, 1, "collect", opts); + int ex = luaL_optint(L, 2, 0); + int res = lua_gc(L, optsnum[o], ex); + switch (optsnum[o]) { + case LUA_GCCOUNT: { + int b = lua_gc(L, LUA_GCCOUNTB, 0); + lua_pushnumber(L, res + ((lua_Number)b/1024)); + return 1; + } + case LUA_GCSTEP: { + lua_pushboolean(L, res); + return 1; + } + default: { + lua_pushnumber(L, res); + return 1; + } + } +} + + +static int luaB_type (lua_State *L) { + luaL_checkany(L, 1); + lua_pushstring(L, luaL_typename(L, 1)); + return 1; +} + + +static int luaB_next (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); /* create a 2nd argument if there isn't one */ + if (lua_next(L, 1)) + return 2; + else { + lua_pushnil(L); + return 1; + } +} + + +static int luaB_pairs (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushvalue(L, lua_upvalueindex(1)); /* return generator, */ + lua_pushvalue(L, 1); /* state, */ + lua_pushnil(L); /* and initial value */ + return 3; +} + + +static int ipairsaux (lua_State *L) { + int i = luaL_checkint(L, 2); + luaL_checktype(L, 1, LUA_TTABLE); + i++; /* next value */ + lua_pushinteger(L, i); + lua_rawgeti(L, 1, i); + return (lua_isnil(L, -1)) ? 0 : 2; +} + + +static int luaB_ipairs (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushvalue(L, lua_upvalueindex(1)); /* return generator, */ + lua_pushvalue(L, 1); /* state, */ + lua_pushinteger(L, 0); /* and initial value */ + return 3; +} + + +static int load_aux (lua_State *L, int status) { + if (status == 0) /* OK? */ + return 1; + else { + lua_pushnil(L); + lua_insert(L, -2); /* put before error message */ + return 2; /* return nil plus error message */ + } +} + + +static int luaB_loadstring (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + const char *chunkname = luaL_optstring(L, 2, s); + return load_aux(L, luaL_loadbuffer(L, s, l, chunkname)); +} + + +static int luaB_loadfile (lua_State *L) { + const char *fname = luaL_optstring(L, 1, NULL); + return load_aux(L, luaL_loadfile(L, fname)); +} + + +/* +** Reader for generic `load' function: `lua_load' uses the +** stack for internal stuff, so the reader cannot change the +** stack top. Instead, it keeps its resulting string in a +** reserved slot inside the stack. +*/ +static const char *generic_reader (lua_State *L, void *ud, size_t *size) { + (void)ud; /* to avoid warnings */ + luaL_checkstack(L, 2, "too many nested functions"); + lua_pushvalue(L, 1); /* get function */ + lua_call(L, 0, 1); /* call it */ + if (lua_isnil(L, -1)) { + *size = 0; + return NULL; + } + else if (lua_isstring(L, -1)) { + lua_replace(L, 3); /* save string in a reserved stack slot */ + return lua_tolstring(L, 3, size); + } + else luaL_error(L, "reader function must return a string"); + return NULL; /* to avoid warnings */ +} + + +static int luaB_load (lua_State *L) { + int status; + const char *cname = luaL_optstring(L, 2, "=(load)"); + luaL_checktype(L, 1, LUA_TFUNCTION); + lua_settop(L, 3); /* function, eventual name, plus one reserved slot */ + status = lua_load(L, generic_reader, NULL, cname); + return load_aux(L, status); +} + + +static int luaB_dofile (lua_State *L) { + const char *fname = luaL_optstring(L, 1, NULL); + int n = lua_gettop(L); + if (luaL_loadfile(L, fname) != 0) lua_error(L); + lua_call(L, 0, LUA_MULTRET); + return lua_gettop(L) - n; +} + + +static int luaB_assert (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_toboolean(L, 1)) + return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!")); + return lua_gettop(L); +} + + +static int luaB_unpack (lua_State *L) { + int i, e, n; + luaL_checktype(L, 1, LUA_TTABLE); + i = luaL_optint(L, 2, 1); + e = luaL_opt(L, luaL_checkint, 3, luaL_getn(L, 1)); + if (i > e) return 0; /* empty range */ + n = e - i + 1; /* number of elements */ + if (n <= 0 || !lua_checkstack(L, n)) /* n <= 0 means arith. overflow */ + return luaL_error(L, "too many results to unpack"); + lua_rawgeti(L, 1, i); /* push arg[i] (avoiding overflow problems) */ + while (i++ < e) /* push arg[i + 1...e] */ + lua_rawgeti(L, 1, i); + return n; +} + + +static int luaB_select (lua_State *L) { + int n = lua_gettop(L); + if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') { + lua_pushinteger(L, n-1); + return 1; + } + else { + int i = luaL_checkint(L, 1); + if (i < 0) i = n + i; + else if (i > n) i = n; + luaL_argcheck(L, 1 <= i, 1, "index out of range"); + return n - i; + } +} + + +static int luaB_pcall (lua_State *L) { + int status; + luaL_checkany(L, 1); + status = lua_pcall(L, lua_gettop(L) - 1, LUA_MULTRET, 0); + lua_pushboolean(L, (status == 0)); + lua_insert(L, 1); + return lua_gettop(L); /* return status + all results */ +} + + +static int luaB_xpcall (lua_State *L) { + int status; + luaL_checkany(L, 2); + lua_settop(L, 2); + lua_insert(L, 1); /* put error function under function to be called */ + status = lua_pcall(L, 0, LUA_MULTRET, 1); + lua_pushboolean(L, (status == 0)); + lua_replace(L, 1); + return lua_gettop(L); /* return status + all results */ +} + + +static int luaB_tostring (lua_State *L) { + luaL_checkany(L, 1); + if (luaL_callmeta(L, 1, "__tostring")) /* is there a metafield? */ + return 1; /* use its value */ + switch (lua_type(L, 1)) { + case LUA_TNUMBER: + lua_pushstring(L, lua_tostring(L, 1)); + break; + case LUA_TSTRING: + lua_pushvalue(L, 1); + break; + case LUA_TBOOLEAN: + lua_pushstring(L, (lua_toboolean(L, 1) ? "true" : "false")); + break; + case LUA_TNIL: + lua_pushliteral(L, "nil"); + break; + default: + lua_pushfstring(L, "%s: %p", luaL_typename(L, 1), lua_topointer(L, 1)); + break; + } + return 1; +} + + +static int luaB_newproxy (lua_State *L) { + lua_settop(L, 1); + lua_newuserdata(L, 0); /* create proxy */ + if (lua_toboolean(L, 1) == 0) + return 1; /* no metatable */ + else if (lua_isboolean(L, 1)) { + lua_newtable(L); /* create a new metatable `m' ... */ + lua_pushvalue(L, -1); /* ... and mark `m' as a valid metatable */ + lua_pushboolean(L, 1); + lua_rawset(L, lua_upvalueindex(1)); /* weaktable[m] = true */ + } + else { + int validproxy = 0; /* to check if weaktable[metatable(u)] == true */ + if (lua_getmetatable(L, 1)) { + lua_rawget(L, lua_upvalueindex(1)); + validproxy = lua_toboolean(L, -1); + lua_pop(L, 1); /* remove value */ + } + luaL_argcheck(L, validproxy, 1, "boolean or proxy expected"); + lua_getmetatable(L, 1); /* metatable is valid; get it */ + } + lua_setmetatable(L, 2); + return 1; +} + + +static const luaL_Reg base_funcs[] = { + {"assert", luaB_assert}, + {"collectgarbage", luaB_collectgarbage}, + {"dofile", luaB_dofile}, + {"error", luaB_error}, + {"gcinfo", luaB_gcinfo}, + {"getfenv", luaB_getfenv}, + {"getmetatable", luaB_getmetatable}, + {"loadfile", luaB_loadfile}, + {"load", luaB_load}, + {"loadstring", luaB_loadstring}, + {"next", luaB_next}, + {"pcall", luaB_pcall}, + {"print", luaB_print}, + {"rawequal", luaB_rawequal}, + {"rawget", luaB_rawget}, + {"rawset", luaB_rawset}, + {"select", luaB_select}, + {"setfenv", luaB_setfenv}, + {"setmetatable", luaB_setmetatable}, + {"tonumber", luaB_tonumber}, + {"tostring", luaB_tostring}, + {"type", luaB_type}, + {"unpack", luaB_unpack}, + {"xpcall", luaB_xpcall}, + {NULL, NULL} +}; + + +/* +** {====================================================== +** Coroutine library +** ======================================================= +*/ + +#define CO_RUN 0 /* running */ +#define CO_SUS 1 /* suspended */ +#define CO_NOR 2 /* 'normal' (it resumed another coroutine) */ +#define CO_DEAD 3 + +static const char *const statnames[] = + {"running", "suspended", "normal", "dead"}; + +static int costatus (lua_State *L, lua_State *co) { + if (L == co) return CO_RUN; + switch (lua_status(co)) { + case LUA_YIELD: + return CO_SUS; + case 0: { + lua_Debug ar; + if (lua_getstack(co, 0, &ar) > 0) /* does it have frames? */ + return CO_NOR; /* it is running */ + else if (lua_gettop(co) == 0) + return CO_DEAD; + else + return CO_SUS; /* initial state */ + } + default: /* some error occured */ + return CO_DEAD; + } +} + + +static int luaB_costatus (lua_State *L) { + lua_State *co = lua_tothread(L, 1); + luaL_argcheck(L, co, 1, "coroutine expected"); + lua_pushstring(L, statnames[costatus(L, co)]); + return 1; +} + + +static int auxresume (lua_State *L, lua_State *co, int narg) { + int status = costatus(L, co); + if (!lua_checkstack(co, narg)) + luaL_error(L, "too many arguments to resume"); + if (status != CO_SUS) { + lua_pushfstring(L, "cannot resume %s coroutine", statnames[status]); + return -1; /* error flag */ + } + lua_xmove(L, co, narg); + status = lua_resume(co, narg); + if (status == 0 || status == LUA_YIELD) { + int nres = lua_gettop(co); + if (!lua_checkstack(L, nres + 1)) + luaL_error(L, "too many results to resume"); + lua_xmove(co, L, nres); /* move yielded values */ + return nres; + } + else { + lua_xmove(co, L, 1); /* move error message */ + return -1; /* error flag */ + } +} + + +static int luaB_coresume (lua_State *L) { + lua_State *co = lua_tothread(L, 1); + int r; + luaL_argcheck(L, co, 1, "coroutine expected"); + r = auxresume(L, co, lua_gettop(L) - 1); + if (r < 0) { + lua_pushboolean(L, 0); + lua_insert(L, -2); + return 2; /* return false + error message */ + } + else { + lua_pushboolean(L, 1); + lua_insert(L, -(r + 1)); + return r + 1; /* return true + `resume' returns */ + } +} + + +static int luaB_auxwrap (lua_State *L) { + lua_State *co = lua_tothread(L, lua_upvalueindex(1)); + int r = auxresume(L, co, lua_gettop(L)); + if (r < 0) { + if (lua_isstring(L, -1)) { /* error object is a string? */ + luaL_where(L, 1); /* add extra info */ + lua_insert(L, -2); + lua_concat(L, 2); + } + lua_error(L); /* propagate error */ + } + return r; +} + + +#ifndef COCO_DISABLE +static int luaB_cstacksize (lua_State *L) +{ + lua_pushinteger(L, luaCOCO_cstacksize(luaL_optint(L, 1, -1))); + return 1; +} +#endif + + +static int luaB_cocreate (lua_State *L) { +#ifdef COCO_DISABLE + lua_State *NL = lua_newthread(L); + luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1, + "Lua function expected"); +#else + int cstacksize = luaL_optint(L, 2, 0); + lua_State *NL = lua_newcthread(L, cstacksize); + luaL_argcheck(L, lua_isfunction(L, 1) && + (cstacksize >= 0 ? 1 : !lua_iscfunction(L, 1)), + 1, "Lua function expected"); +#endif + lua_pushvalue(L, 1); /* move function to top */ + lua_xmove(L, NL, 1); /* move function from L to NL */ + return 1; +} + + +static int luaB_cowrap (lua_State *L) { + luaB_cocreate(L); + lua_pushcclosure(L, luaB_auxwrap, 1); + return 1; +} + + +static int luaB_yield (lua_State *L) { + return lua_yield(L, lua_gettop(L)); +} + + +static int luaB_corunning (lua_State *L) { + if (lua_pushthread(L)) + lua_pushnil(L); /* main thread is not a coroutine */ + return 1; +} + + +static const luaL_Reg co_funcs[] = { + {"create", luaB_cocreate}, + {"resume", luaB_coresume}, + {"running", luaB_corunning}, + {"status", luaB_costatus}, + {"wrap", luaB_cowrap}, + {"yield", luaB_yield}, +#ifndef COCO_DISABLE + {"cstacksize", luaB_cstacksize}, +#endif + {NULL, NULL} +}; + +/* }====================================================== */ + + +static void auxopen (lua_State *L, const char *name, + lua_CFunction f, lua_CFunction u) { + lua_pushcfunction(L, u); + lua_pushcclosure(L, f, 1); + lua_setfield(L, -2, name); +} + + +static void base_open (lua_State *L) { + /* set global _G */ + lua_pushvalue(L, LUA_GLOBALSINDEX); + lua_setglobal(L, "_G"); + /* open lib into global table */ + luaL_register(L, "_G", base_funcs); + lua_pushliteral(L, LUA_VERSION); + lua_setglobal(L, "_VERSION"); /* set global _VERSION */ + /* `ipairs' and `pairs' need auxiliary functions as upvalues */ + auxopen(L, "ipairs", luaB_ipairs, ipairsaux); + auxopen(L, "pairs", luaB_pairs, luaB_next); + /* `newproxy' needs a weaktable as upvalue */ + lua_createtable(L, 0, 1); /* new table `w' */ + lua_pushvalue(L, -1); /* `w' will be its own metatable */ + lua_setmetatable(L, -2); + lua_pushliteral(L, "kv"); + lua_setfield(L, -2, "__mode"); /* metatable(w).__mode = "kv" */ + lua_pushcclosure(L, luaB_newproxy, 1); + lua_setglobal(L, "newproxy"); /* set global `newproxy' */ +} + + +LUALIB_API int luaopen_base (lua_State *L) { + base_open(L); + luaL_register(L, LUA_COLIBNAME, co_funcs); +#ifndef COCO_DISABLE + lua_pushboolean(L, 1); + lua_setfield(L, -2, "coco"); +#endif + return 2; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcoco.c b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c new file mode 100644 index 00000000000..c3acc685513 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c @@ -0,0 +1,693 @@ +/* +** Copyright (C) 2004-2011 Mike Pall. All rights reserved. +** +** Permission is hereby granted, free of charge, to any person obtaining +** a copy of this software and associated documentation files (the +** "Software"), to deal in the Software without restriction, including +** without limitation the rights to use, copy, modify, merge, publish, +** distribute, sublicense, and/or sell copies of the Software, and to +** permit persons to whom the Software is furnished to do so, subject to +** the following conditions: +** +** The above copyright notice and this permission notice shall be +** included in all copies or substantial portions of the Software. +** +** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +** +** [ MIT license: http://www.opensource.org/licenses/mit-license.php ] +*/ + +/* Coco -- True C coroutines for Lua. http://luajit.org/coco.html */ +#ifndef COCO_DISABLE + +#define lcoco_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lvm.h" +#include "lgc.h" + + +/* +** Define this if you want to run Coco with valgrind. You will get random +** errors about accessing memory from newly allocated C stacks if you don't. +** You need at least valgrind 3.0 for this to work. +** +** This macro evaluates to a no-op if not run with valgrind. I.e. you can +** use the same binary for regular runs, too (without a performance loss). +*/ +#ifdef USE_VALGRIND +#include +#define STACK_REG(coco, p, sz) (coco)->vgid = VALGRIND_STACK_REGISTER(p, p+sz); +#define STACK_DEREG(coco) VALGRIND_STACK_DEREGISTER((coco)->vgid); +#define STACK_VGID unsigned int vgid; +#else +#define STACK_REG(coco, p, sz) +#define STACK_DEREG(id) +#define STACK_VGID +#endif + +/* ------------------------------------------------------------------------ */ + +/* Use Windows Fibers. */ +#if defined(COCO_USE_FIBERS) + +#define _WIN32_WINNT 0x0400 +#include + +#define COCO_MAIN_DECL CALLBACK + +typedef LPFIBER_START_ROUTINE coco_MainFunc; + +#define COCO_NEW(OL, NL, cstacksize, mainfunc) \ + if ((L2COCO(NL)->fib = CreateFiber(cstacksize, mainfunc, NL)) == NULL) \ + luaD_throw(OL, LUA_ERRMEM); + +#define COCO_FREE(L) \ + DeleteFiber(L2COCO(L)->fib); \ + L2COCO(L)->fib = NULL; + +/* See: http://blogs.msdn.com/oldnewthing/archive/2004/12/31/344799.aspx */ +#define COCO_JUMPIN(coco) \ + { void *cur = GetCurrentFiber(); \ + coco->back = (cur == NULL || cur == (void *)0x1e00) ? \ + ConvertThreadToFiber(NULL) : cur; } \ + SwitchToFiber(coco->fib); + +#define COCO_JUMPOUT(coco) \ + SwitchToFiber(coco->back); + +/* CreateFiber() defaults to STACKSIZE from the Windows module .def file. */ +#define COCO_DEFAULT_CSTACKSIZE 0 + +/* ------------------------------------------------------------------------ */ + +#else /* !COCO_USE_FIBERS */ + +#ifndef COCO_USE_UCONTEXT + +/* Try inline asm first. */ +#if __GNUC__ >= 3 && !defined(COCO_USE_SETJMP) + +#if defined(__i386) || defined(__i386__) + +#ifdef __PIC__ +typedef void *coco_ctx[4]; /* eip, esp, ebp, ebx */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "call 1f\n" "1:\tpopl %%eax\n\t" "addl $(2f-1b),%%eax\n\t" + "movl %%eax, (%0)\n\t" "movl %%esp, 4(%0)\n\t" + "movl %%ebp, 8(%0)\n\t" "movl %%ebx, 12(%0)\n\t" + "movl 12(%1), %%ebx\n\t" "movl 8(%1), %%ebp\n\t" + "movl 4(%1), %%esp\n\t" "jmp *(%1)\n" "2:\n" + : "+S" (from), "+D" (to) : : "eax", "ecx", "edx", "memory", "cc"); +} +#else +typedef void *coco_ctx[3]; /* eip, esp, ebp */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "movl $1f, (%0)\n\t" "movl %%esp, 4(%0)\n\t" "movl %%ebp, 8(%0)\n\t" + "movl 8(%1), %%ebp\n\t" "movl 4(%1), %%esp\n\t" "jmp *(%1)\n" "1:\n" + : "+S" (from), "+D" (to) : : "eax", "ebx", "ecx", "edx", "memory", "cc"); +} +#endif + +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)0; \ + stack[0] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); +#define COCO_STATE_HEAD size_t arg0; + +#elif defined(__x86_64__) + +static void coco_wrap_main(void) +{ + __asm__ __volatile__ ("\tmovq %r13, %rdi\n\tjmpq *%r12\n"); +} + +typedef void *coco_ctx[8]; /* rip, rsp, rbp, rbx, r12, r13, r14, r15 */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "leaq 1f(%%rip), %%rax\n\t" + "movq %%rax, (%0)\n\t" "movq %%rsp, 8(%0)\n\t" "movq %%rbp, 16(%0)\n\t" + "movq %%rbx, 24(%0)\n\t" "movq %%r12, 32(%0)\n\t" "movq %%r13, 40(%0)\n\t" + "movq %%r14, 48(%0)\n\t" "movq %%r15, 56(%0)\n\t" + "movq 56(%1), %%r15\n\t" "movq 48(%1), %%r14\n\t" "movq 40(%1), %%r13\n\t" + "movq 32(%1), %%r12\n\t" "movq 24(%1), %%rbx\n\t" "movq 16(%1), %%rbp\n\t" + "movq 8(%1), %%rsp\n\t" "jmpq *(%1)\n" "1:\n" + : "+S" (from), "+D" (to) : + : "rax", "rcx", "rdx", "r8", "r9", "r10", "r11", "memory", "cc"); +} + +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(coco_wrap_main); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)0; \ + buf[3] = (void *)0; \ + buf[4] = (void *)(func); \ + buf[5] = (void *)(a0); \ + buf[6] = (void *)0; \ + buf[7] = (void *)0; \ + stack[0] = 0xdeadc0c0deadc0c0; /* Dummy return address. */ \ + +#elif __mips && _MIPS_SIM == _MIPS_SIM_ABI32 && !defined(__mips_eabi) + +/* No way to avoid the function prologue with inline assembler. So use this: */ +static const unsigned int coco_switch[] = { +#ifdef __mips_soft_float +#define COCO_STACKSAVE -10 + 0x27bdffd8, /* addiu sp, sp, -(10*4) */ +#else +#define COCO_STACKSAVE -22 + 0x27bdffa8, /* addiu sp, sp, -(10*4+6*8) */ + /* sdc1 {$f20-$f30}, offset(sp) */ + 0xf7be0050, 0xf7bc0048, 0xf7ba0040, 0xf7b80038, 0xf7b60030, 0xf7b40028, +#endif + /* sw {gp,s0-s8}, offset(sp) */ + 0xafbe0024, 0xafb70020, 0xafb6001c, 0xafb50018, 0xafb40014, 0xafb30010, + 0xafb2000c, 0xafb10008, 0xafb00004, 0xafbc0000, + /* sw sp, 4(a0); sw ra, 0(a0); lw ra, 0(a1); lw sp, 4(a1); move t9, ra */ + 0xac9d0004, 0xac9f0000, 0x8cbf0000, 0x8cbd0004, 0x03e0c821, + /* lw caller-saved-reg, offset(sp) */ + 0x8fbe0024, 0x8fb70020, 0x8fb6001c, 0x8fb50018, 0x8fb40014, 0x8fb30010, + 0x8fb2000c, 0x8fb10008, 0x8fb00004, 0x8fbc0000, +#ifdef __mips_soft_float + 0x03e00008, 0x27bd0028 /* jr ra; addiu sp, sp, 10*4 */ +#else + /* ldc1 {$f20-$f30}, offset(sp) */ + 0xd7be0050, 0xd7bc0048, 0xd7ba0040, 0xd7b80038, 0xd7b60030, 0xd7b40028, + 0x03e00008, 0x27bd0058 /* jr ra; addiu sp, sp, 10*4+6*8 */ +#endif +}; + +typedef void *coco_ctx[2]; /* ra, sp */ +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) \ + ((void (*)(coco_ctx, coco_ctx))coco_switch)(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)&stack[COCO_STACKSAVE]; \ + stack[4] = (size_t)(a0); /* Assumes o32 ABI. */ +#define COCO_STACKADJUST 8 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L + +#elif defined(__sparc__) + +typedef void *coco_ctx[4]; +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_STACKADJUST 24 + +#if defined(__LP64__) +#define COCO_STACKBIAS (2047UL) +#define COCO_PTR2SP(stack) (((unsigned long)stack)-COCO_STACKBIAS) +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + void *__stack[16] __attribute__((aligned (16))); + unsigned long __tmp_sp = COCO_PTR2SP(__stack); + __asm__ __volatile__ + (/* Flush register window(s) to stack and save the previous stack + pointer to capture the current registers, %l0-%l7 and %i0-%i7. */ + "ta 3\n\t" + "stx %%sp,[%0+8]\n\t" + /* Move to a temporary stack. If the register window is flushed + for some reason (e.g. context switch), not the next stack + but the temporary stack should be used so as not to break + neither the previous nor next stack */ + "mov %2,%%sp\n\t" + "sethi %%hh(1f),%%g1\n\t" /* i.e. setx 1f,%%g1 */ + "or %%g1,%%hm(1f),%%g1\n\t" + "sethi %%lm(1f),%%g2\n\t" + "or %%g2,%%lo(1f),%%g2\n\t" + "sllx %%g1,32,%%g1\n\t" + "or %%g1,%%g2,%%g1\n\t" + "stx %%g1,[%0]\n\t" + /* Restore registers from stack. DO NOT load the next stack + pointer directly to %sp. The register window can be possibly + flushed and restored asynchronous (e.g. context switch). */ + "mov %1,%%o1\n\t" + "ldx [%%o1+8],%%o2\n\t" + "ldx [%%o2+%3],%%l0\n\t" + "ldx [%%o2+%3+8],%%l1\n\t" + "ldx [%%o2+%3+0x10],%%l2\n\t" + "ldx [%%o2+%3+0x18],%%l3\n\t" + "ldx [%%o2+%3+0x20],%%l4\n\t" + "ldx [%%o2+%3+0x28],%%l5\n\t" + "ldx [%%o2+%3+0x30],%%l6\n\t" + "ldx [%%o2+%3+0x38],%%l7\n\t" + "ldx [%%o2+%3+0x40],%%i0\n\t" + "ldx [%%o2+%3+0x48],%%i1\n\t" + "ldx [%%o2+%3+0x50],%%i2\n\t" + "ldx [%%o2+%3+0x58],%%i3\n\t" + "ldx [%%o2+%3+0x60],%%i4\n\t" + "ldx [%%o2+%3+0x68],%%i5\n\t" + "ldx [%%o2+%3+0x70],%%i6\n\t" + "ldx [%%o2+%3+0x78],%%i7\n\t" + /* Move to the next stack with the consistent registers atomically */ + "mov %%o2,%%sp\n\t" + "ldx [%%o1],%%o2\n\t" + /* Since %o0-%o7 are marked as clobbered, values are safely overwritten + across the inline assembly. %o0-%o7 will have meaningless values + after leaving the inline assembly. The only exception is %o0, which + serves as an argument to coco_main */ + "ldx [%%o1+16],%%o0\n\t" + "jmpl %%o2,%%g0\n\t" + "nop\n\t" + "1:\n" + /* An assumption is made here; no input operand is assigned to %g1 + nor %g2. It's the case for the currently avilable gcc's */ + : : "r"(from),"r"(to),"r"(__tmp_sp),"i"(COCO_STACKBIAS) + : "g1","g2","o0","o1","o2","o3","o4","o5","o7","memory","cc"); +} + +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)COCO_PTR2SP(&(stack)[0]); \ + buf[2] = (void *)(a0); \ + stack[0] = 0; \ + stack[1] = 0; \ + stack[2] = 0; \ + stack[3] = 0; \ + stack[4] = 0; \ + stack[5] = 0; \ + stack[6] = 0; \ + stack[7] = 0; \ + stack[8] = 0; \ + stack[9] = 0; \ + stack[10] = 0; \ + stack[11] = 0; \ + stack[12] = 0; \ + stack[13] = 0; \ + stack[14] = COCO_PTR2SP(&(stack)[COCO_STACKADJUST]); \ + stack[15] = 0xdeadc0c0deadc0c0; /* Dummy return address. */ \ + +#else +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + void *__tmp_stack[16] __attribute__((aligned (16))); + __asm__ __volatile__ + ("ta 3\n\t" + "st %%sp,[%0+4]\n\t" + "mov %2,%%sp\n\t" + "set 1f,%%g1\n\t" + "st %%g1,[%0]\n\t" + "mov %1,%%o1\n\t" + "ld [%%o1+4],%%o2\n\t" + "ldd [%%o2],%%l0\n\t" + "ldd [%%o2+8],%%l2\n\t" + "ldd [%%o2+0x10],%%l4\n\t" + "ldd [%%o2+0x18],%%l6\n\t" + "ldd [%%o2+0x20],%%i0\n\t" + "ldd [%%o2+0x28],%%i2\n\t" + "ldd [%%o2+0x30],%%i4\n\t" + "ldd [%%o2+0x38],%%i6\n\t" + "mov %%o2,%%sp\n\t" + "ld [%%o1],%%o2\n\t" + "ld [%%o1+8],%%o0\n\t" + "jmpl %%o2,%%g0\n\t" + "nop\n\t" + "1:\n" + : : "r"(from),"r"(to),"r"(__tmp_stack) + : "g1","o0","o1","o2","o3","o4","o5","o7","memory","cc"); +} + +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)(a0); \ + stack[0] = 0; \ + stack[1] = 0; \ + stack[2] = 0; \ + stack[3] = 0; \ + stack[4] = 0; \ + stack[5] = 0; \ + stack[6] = 0; \ + stack[7] = 0; \ + stack[8] = 0; \ + stack[9] = 0; \ + stack[10] = 0; \ + stack[11] = 0; \ + stack[12] = 0; \ + stack[13] = 0; \ + stack[14] = (size_t)&stack[COCO_STACKADJUST]; \ + stack[15] = 0xdeadc0c0; /* Dummy return address. */ \ + +#endif /* !define(__LP64__) */ + +#endif /* arch check */ + +#endif /* !(__GNUC__ >= 3 && !defined(COCO_USE_SETJMP)) */ + +/* Try _setjmp/_longjmp with a patched jump buffer. */ +#ifndef COCO_MAKECTX +#include + +/* Check for supported CPU+OS combinations. */ +#if defined(__i386) || defined(__i386__) + +#define COCO_STATE_HEAD size_t arg0; +#define COCO_SETJMP_X86(coco, stack, a0) \ + stack[COCO_STACKADJUST-1] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); + +#if __GLIBC__ == 2 && defined(JB_SP) /* x86-linux-glibc2 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf[JB_PC] = (int)(func); \ + buf->__jmpbuf[JB_SP] = (int)(stack); \ + buf->__jmpbuf[JB_BP] = 0; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__linux__) && defined(_I386_JMP_BUF_H) /* x86-linux-libc5 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__pc = (func); \ + buf->__sp = (stack); \ + buf->__bp = NULL; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__FreeBSD__) /* x86-FreeBSD */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->_jb[0] = (long)(func); \ + buf->_jb[2] = (long)(stack); \ + buf->_jb[3] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#define COCO_STACKADJUST 2 +#elif defined(__NetBSD__) || defined(__OpenBSD__) /* x86-NetBSD, x86-OpenBSD */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[0] = (long)(func); \ + buf[2] = (long)(stack); \ + buf[3] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#define COCO_STACKADJUST 2 +#elif defined(__solaris__) && _JBLEN == 10 /* x86-solaris */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[5] = (int)(func); \ + buf[4] = (int)(stack); \ + buf[3] = 0; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__MACH__) && defined(_BSD_I386_SETJMP_H) /* x86-macosx */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[12] = (int)(func); \ + buf[9] = (int)(stack); \ + buf[8] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#endif + +#elif defined(__x86_64__) || defined(__x86_64) + +#define COCO_STATE_HEAD size_t arg0; + +#define COCO_MAIN_PARAM \ + int _a, int _b, int _c, int _d, int _e, int _f, lua_State *L + +#if defined(__solaris__) && _JBLEN == 8 /* x64-solaris */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[7] = (long)(func); \ + buf[6] = (long)(stack); \ + buf[5] = 0; \ + stack[0] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); +#endif + +#elif defined(PPC) || defined(__ppc__) || defined(__PPC__) || \ + defined(__powerpc__) || defined(__POWERPC__) || defined(_ARCH_PPC) + +#define COCO_STACKADJUST 16 +#define COCO_MAIN_PARAM \ + int _a, int _b, int _c, int _d, int _e, int _f, int _g, int _h, lua_State *L + +#if defined(__MACH__) && defined(_BSD_PPC_SETJMP_H_) /* ppc32-macosx */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[21] = (int)(func); \ + buf[0] = (int)(stack); \ + stack[6+8] = (size_t)(a0); +#endif + +#elif (defined(MIPS) || defined(MIPSEL) || defined(__mips)) && \ + _MIPS_SIM == _MIPS_SIM_ABI32 && !defined(__mips_eabi) + +/* Stack layout for o32 ABI. */ +#define COCO_STACKADJUST 8 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L + +#if __GLIBC__ == 2 || defined(__UCLIBC__) /* mips32-linux-glibc2 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf->__pc = (func); /* = t9 in _longjmp. Reqd. for -mabicalls. */ \ + buf->__jmpbuf->__sp = (stack); \ + buf->__jmpbuf->__fp = (void *)0; \ + stack[4] = (size_t)(a0); +#endif + +#elif defined(__arm__) || defined(__ARM__) + +#if __GLIBC__ == 2 || defined(__UCLIBC__) /* arm-linux-glibc2 */ +#ifndef __JMP_BUF_SP +#define __JMP_BUF_SP ((sizeof(__jmp_buf)/sizeof(int))-2) +#endif +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf[__JMP_BUF_SP+1] = (int)(func); /* pc */ \ + buf->__jmpbuf[__JMP_BUF_SP] = (int)(stack); /* sp */ \ + buf->__jmpbuf[__JMP_BUF_SP-1] = 0; /* fp */ \ + stack[0] = (size_t)(a0); +#define COCO_STACKADJUST 2 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L +#endif + +#endif /* arch check */ + +#ifdef COCO_PATCHCTX +#define COCO_CTX jmp_buf +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + _setjmp(buf); COCO_PATCHCTX(coco, buf, func, stack, a0) +#define COCO_SWITCH(from, to) if (!_setjmp(from)) _longjmp(to, 1); +#endif + +#endif /* !defined(COCO_MAKECTX) */ + +#endif /* !defined(COCO_USE_UCONTEXT) */ + +/* ------------------------------------------------------------------------ */ + +/* Use inline asm or _setjmp/_longjmp if available. */ +#ifdef COCO_MAKECTX + +#ifndef COCO_STACKADJUST +#define COCO_STACKADJUST 1 +#endif + +#define COCO_FILL(coco, NL, mainfunc) \ +{ /* Include the return address to get proper stack alignment. */ \ + size_t *stackptr = &((size_t *)coco)[-COCO_STACKADJUST]; \ + COCO_MAKECTX(coco, coco->ctx, mainfunc, stackptr, NL) \ +} + +/* ------------------------------------------------------------------------ */ + +/* Else fallback to ucontext. Slower, because it saves/restores signals. */ +#else /* !defined(COCO_MAKECTX) */ + +#include + +#define COCO_CTX ucontext_t + +/* Ugly workaround for makecontext() deficiencies on 64 bit CPUs. */ +/* Note that WIN64 (which is LLP64) never comes here. See above. */ +#if defined(__LP64__) || defined(_LP64) || INT_MAX != LONG_MAX +/* 64 bit CPU: split the pointer into two 32 bit ints. */ +#define COCO_MAIN_PARAM unsigned int lo, unsigned int hi +#define COCO_MAIN_GETL \ + lua_State *L = (lua_State *)((((unsigned long)hi)<<32)+(unsigned long)lo); +#define COCO_MAKECTX(coco, NL, mainfunc) \ + makecontext(&coco->ctx, mainfunc, 2, \ + (int)(ptrdiff_t)NL, (int)((ptrdiff_t)NL>>32)); +#else +/* 32 bit CPU: a pointer fits into an int. */ +#define COCO_MAKECTX(coco, NL, mainfunc) \ + makecontext(&coco->ctx, mainfunc, 1, (int)NL); +#endif + +#define COCO_FILL(coco, NL, mainfunc) \ + getcontext(&coco->ctx); \ + coco->ctx.uc_link = NULL; /* We never exit from coco_main. */ \ + coco->ctx.uc_stack.ss_sp = coco->allocptr; \ + coco->ctx.uc_stack.ss_size = (char *)coco - (char *)(coco->allocptr); \ + COCO_MAKECTX(coco, NL, mainfunc) + +#define COCO_SWITCH(from, to) swapcontext(&(from), &(to)); + +#endif /* !defined(COCO_MAKECTX) */ + + +/* Common code for inline asm/setjmp/ucontext to allocate/free the stack. */ + +struct coco_State { +#ifdef COCO_STATE_HEAD + COCO_STATE_HEAD +#endif + COCO_CTX ctx; /* Own context. */ + COCO_CTX back; /* Context to switch back to. */ + void *allocptr; /* Pointer to allocated memory. */ + int allocsize; /* Size of allocated memory. */ + int nargs; /* Number of arguments to pass. */ + STACK_VGID /* Optional valgrind stack id. See above. */ +}; + +typedef void (*coco_MainFunc)(void); + +/* Put the Coco state at the end and align it downwards. */ +#define ALIGNED_END(p, s, t) \ + ((t *)(((char *)0) + ((((char *)(p)-(char *)0)+(s)-sizeof(t)) & -16))) + +/* TODO: use mmap. */ +#define COCO_NEW(OL, NL, cstacksize, mainfunc) \ +{ \ + void *ptr = luaM_malloc(OL, cstacksize); \ + coco_State *coco = ALIGNED_END(ptr, cstacksize, coco_State); \ + STACK_REG(coco, ptr, cstacksize) \ + coco->allocptr = ptr; \ + coco->allocsize = cstacksize; \ + COCO_FILL(coco, NL, mainfunc) \ + L2COCO(NL) = coco; \ +} + +#define COCO_FREE(L) \ + STACK_DEREG(L2COCO(L)) \ + luaM_freemem(L, L2COCO(L)->allocptr, L2COCO(L)->allocsize); \ + L2COCO(L) = NULL; + +#define COCO_JUMPIN(coco) COCO_SWITCH(coco->back, coco->ctx) +#define COCO_JUMPOUT(coco) COCO_SWITCH(coco->ctx, coco->back) + +#endif /* !COCO_USE_FIBERS */ + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_MIN_CSTACKSIZE +#define COCO_MIN_CSTACKSIZE (32768+4096) +#endif + +/* Don't use multiples of 64K to avoid D-cache aliasing conflicts. */ +#ifndef COCO_DEFAULT_CSTACKSIZE +#define COCO_DEFAULT_CSTACKSIZE (65536-4096) +#endif + +static int defaultcstacksize = COCO_DEFAULT_CSTACKSIZE; + +/* Start the Lua or C function. */ +static void coco_start(lua_State *L, void *ud) +{ + if (luaD_precall(L, (StkId)ud, LUA_MULTRET) == PCRLUA) + luaV_execute(L, L->ci - L->base_ci); +} + +#ifndef COCO_MAIN_PARAM +#define COCO_MAIN_PARAM lua_State *L +#endif + +#ifndef COCO_MAIN_DECL +#define COCO_MAIN_DECL +#endif + +/* Toplevel function for the new coroutine stack. Never exits. */ +static void COCO_MAIN_DECL coco_main(COCO_MAIN_PARAM) +{ +#ifdef COCO_MAIN_GETL + COCO_MAIN_GETL +#endif + coco_State *coco = L2COCO(L); + for (;;) { + L->status = luaD_rawrunprotected(L, coco_start, L->top - (coco->nargs+1)); + if (L->status != 0) luaD_seterrorobj(L, L->status, L->top); + COCO_JUMPOUT(coco) + } +} + +/* Add a C stack to a coroutine. */ +lua_State *lua_newcthread(lua_State *OL, int cstacksize) +{ + lua_State *NL = lua_newthread(OL); + + if (cstacksize < 0) + return NL; + if (cstacksize == 0) + cstacksize = defaultcstacksize; + else if (cstacksize < COCO_MIN_CSTACKSIZE) + cstacksize = COCO_MIN_CSTACKSIZE; + cstacksize &= -16; + + COCO_NEW(OL, NL, cstacksize, ((coco_MainFunc)(coco_main))) + + return NL; +} + +/* Free the C stack of a coroutine. Called from lstate.c. */ +void luaCOCO_free(lua_State *L) +{ + COCO_FREE(L) +} + +/* Resume a coroutine with a C stack. Called from ldo.c. */ +int luaCOCO_resume(lua_State *L, int nargs) +{ + coco_State *coco = L2COCO(L); + coco->nargs = nargs; + COCO_JUMPIN(coco) +#ifndef COCO_DISABLE_EARLY_FREE + if (L->status != LUA_YIELD) { + COCO_FREE(L) + } +#endif + return L->status; +} + +/* Yield from a coroutine with a C stack. Called from ldo.c. */ +int luaCOCO_yield(lua_State *L) +{ + coco_State *coco = L2COCO(L); + L->status = LUA_YIELD; + COCO_JUMPOUT(coco) + L->status = 0; + { + StkId base = L->top - coco->nargs; + StkId rbase = L->base; + if (rbase < base) { /* Need to move args down? */ + while (base < L->top) + setobjs2s(L, rbase++, base++); + L->top = rbase; + } + } + L->base = L->ci->base; /* Restore invariant. */ + return coco->nargs; +} + +/* Get/set the default C stack size. */ +int luaCOCO_cstacksize(int cstacksize) +{ + int oldsz = defaultcstacksize; + if (cstacksize >= 0) { + if (cstacksize == 0) + cstacksize = COCO_DEFAULT_CSTACKSIZE; + else if (cstacksize < COCO_MIN_CSTACKSIZE) + cstacksize = COCO_MIN_CSTACKSIZE; + defaultcstacksize = cstacksize; + } + return oldsz; +} + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcoco.h b/src/3rd party/LuaJIT-1.1.8/src/lcoco.h new file mode 100644 index 00000000000..9fb620718a4 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcoco.h @@ -0,0 +1,72 @@ +/* +** Lua/Coco glue. +** Copyright (C) 2004-2011 Mike Pall. See copyright notice in lcoco.c +*/ + +#ifndef lcoco_h +#define lcoco_h + +#define LUACOCO_VERSION "Coco 1.1.6" +#define LUACOCO_VERSION_NUM 10106 + +/* Exported C API to add a C stack to a coroutine. */ +LUA_API lua_State *lua_newcthread(lua_State *L, int cstacksize); + +/* Internal support routines. */ +LUAI_FUNC void luaCOCO_free(lua_State *L); +LUAI_FUNC int luaCOCO_resume(lua_State *L, int nargs); +LUAI_FUNC int luaCOCO_yield(lua_State *L); +LUAI_FUNC int luaCOCO_cstacksize(int cstacksize); + +/* Forward declaration. */ +typedef struct coco_State coco_State; + +/* These are redefined below. */ +#undef LUAI_EXTRASPACE +#undef luai_userstateopen +/* luai_userstateclose unused */ +#undef luai_userstatethread +#undef luai_userstatefree +#undef luai_userstateresume +#undef luai_userstateyield + +/* Use Windows Fibers (Win98+). */ +#if defined(_WIN32) + +/* Fibers allocate their own stack. The whole Coco state is in front of L. */ +struct coco_State { + void *fib; /* Own fiber (if any). */ + void *back; /* Fiber to switch back to. */ + int nargs; /* Number of arguments to pass. */ + int dummy_align; +}; + +#define L2COCO(L) (&((coco_State *)(L))[-1]) +#define LHASCOCO(L) (L2COCO(L)->fib) +#define LUAI_EXTRASPACE sizeof(coco_State) +#define luai_userstateopen(L) L2COCO(L)->fib = NULL +#define luai_userstatethread(L,L1) L2COCO(L1)->fib = NULL +#define COCO_USE_FIBERS + +#else /* !defined(_WIN32) */ + +/* The Coco state depends on the context switch method used. See lcoco.c. */ +/* It's stored at the end of the stack. Only need a pointer in front of L. */ +#define L2COCO(L) (((coco_State **)(L))[-1]) +#define LHASCOCO(L) (L2COCO(L)) +/* This wastes some space on 32 bit systems, but gets better alignment. */ +#define LUAI_EXTRASPACE sizeof(LUAI_USER_ALIGNMENT_T) +#define luai_userstateopen(L) L2COCO(L) = NULL +#define luai_userstatethread(L,L1) L2COCO(L1) = NULL + +#endif /* !defined(_WIN32) */ + +#define luai_userstatefree(L) if (LHASCOCO(L)) luaCOCO_free(L) +#define luai_userstateresume(L, nargs) \ + if (LHASCOCO(L)) return luaCOCO_resume(L, nargs) +#define luai_userstateyield(L, nresults) \ + do { if (LHASCOCO(L)) { \ + L->base = L->top - (nresults); /* Protect stack slots below. */ \ + return luaCOCO_yield(L); } } while (0) + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcode.c b/src/3rd party/LuaJIT-1.1.8/src/lcode.c new file mode 100644 index 00000000000..679cb9cfd98 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcode.c @@ -0,0 +1,831 @@ +/* +** $Id: lcode.c,v 2.25.1.5 2011/01/31 14:53:16 roberto Exp $ +** Code generator for Lua +** See Copyright Notice in lua.h +*/ + + +#include + +#define lcode_c +#define LUA_CORE + +#include "lua.h" + +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lgc.h" +#include "llex.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "ltable.h" + + +#define hasjumps(e) ((e)->t != (e)->f) + + +static int isnumeral(expdesc *e) { + return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP); +} + + +void luaK_nil (FuncState *fs, int from, int n) { + Instruction *previous; + if (fs->pc > fs->lasttarget) { /* no jumps to current position? */ + if (fs->pc == 0) { /* function start? */ + if (from >= fs->nactvar) + return; /* positions are already clean */ + } + else { + previous = &fs->f->code[fs->pc-1]; + if (GET_OPCODE(*previous) == OP_LOADNIL) { + int pfrom = GETARG_A(*previous); + int pto = GETARG_B(*previous); + if (pfrom <= from && from <= pto+1) { /* can connect both? */ + if (from+n-1 > pto) + SETARG_B(*previous, from+n-1); + return; + } + } + } + } + luaK_codeABC(fs, OP_LOADNIL, from, from+n-1, 0); /* else no optimization */ +} + + +int luaK_jump (FuncState *fs) { + int jpc = fs->jpc; /* save list of jumps to here */ + int j; + fs->jpc = NO_JUMP; + j = luaK_codeAsBx(fs, OP_JMP, 0, NO_JUMP); + luaK_concat(fs, &j, jpc); /* keep them on hold */ + return j; +} + + +void luaK_ret (FuncState *fs, int first, int nret) { + luaK_codeABC(fs, OP_RETURN, first, nret+1, 0); +} + + +static int condjump (FuncState *fs, OpCode op, int A, int B, int C) { + luaK_codeABC(fs, op, A, B, C); + return luaK_jump(fs); +} + + +static void fixjump (FuncState *fs, int pc, int dest) { + Instruction *jmp = &fs->f->code[pc]; + int offset = dest-(pc+1); + lua_assert(dest != NO_JUMP); + if (abs(offset) > MAXARG_sBx) + luaX_syntaxerror(fs->ls, "control structure too long"); + SETARG_sBx(*jmp, offset); +} + + +/* +** returns current `pc' and marks it as a jump target (to avoid wrong +** optimizations with consecutive instructions not in the same basic block). +*/ +int luaK_getlabel (FuncState *fs) { + fs->lasttarget = fs->pc; + return fs->pc; +} + + +static int getjump (FuncState *fs, int pc) { + int offset = GETARG_sBx(fs->f->code[pc]); + if (offset == NO_JUMP) /* point to itself represents end of list */ + return NO_JUMP; /* end of list */ + else + return (pc+1)+offset; /* turn offset into absolute position */ +} + + +static Instruction *getjumpcontrol (FuncState *fs, int pc) { + Instruction *pi = &fs->f->code[pc]; + if (pc >= 1 && testTMode(GET_OPCODE(*(pi-1)))) + return pi-1; + else + return pi; +} + + +/* +** check whether list has any jump that do not produce a value +** (or produce an inverted value) +*/ +static int need_value (FuncState *fs, int list) { + for (; list != NO_JUMP; list = getjump(fs, list)) { + Instruction i = *getjumpcontrol(fs, list); + if (GET_OPCODE(i) != OP_TESTSET) return 1; + } + return 0; /* not found */ +} + + +static int patchtestreg (FuncState *fs, int node, int reg) { + Instruction *i = getjumpcontrol(fs, node); + if (GET_OPCODE(*i) != OP_TESTSET) + return 0; /* cannot patch other instructions */ + if (reg != NO_REG && reg != GETARG_B(*i)) + SETARG_A(*i, reg); + else /* no register to put value or register already has the value */ + *i = CREATE_ABC(OP_TEST, GETARG_B(*i), 0, GETARG_C(*i)); + + return 1; +} + + +static void removevalues (FuncState *fs, int list) { + for (; list != NO_JUMP; list = getjump(fs, list)) + patchtestreg(fs, list, NO_REG); +} + + +static void patchlistaux (FuncState *fs, int list, int vtarget, int reg, + int dtarget) { + while (list != NO_JUMP) { + int next = getjump(fs, list); + if (patchtestreg(fs, list, reg)) + fixjump(fs, list, vtarget); + else + fixjump(fs, list, dtarget); /* jump to default target */ + list = next; + } +} + + +static void dischargejpc (FuncState *fs) { + patchlistaux(fs, fs->jpc, fs->pc, NO_REG, fs->pc); + fs->jpc = NO_JUMP; +} + + +void luaK_patchlist (FuncState *fs, int list, int target) { + if (target == fs->pc) + luaK_patchtohere(fs, list); + else { + lua_assert(target < fs->pc); + patchlistaux(fs, list, target, NO_REG, target); + } +} + + +void luaK_patchtohere (FuncState *fs, int list) { + luaK_getlabel(fs); + luaK_concat(fs, &fs->jpc, list); +} + + +void luaK_concat (FuncState *fs, int *l1, int l2) { + if (l2 == NO_JUMP) return; + else if (*l1 == NO_JUMP) + *l1 = l2; + else { + int list = *l1; + int next; + while ((next = getjump(fs, list)) != NO_JUMP) /* find last element */ + list = next; + fixjump(fs, list, l2); + } +} + + +void luaK_checkstack (FuncState *fs, int n) { + int newstack = fs->freereg + n; + if (newstack > fs->f->maxstacksize) { + if (newstack >= MAXSTACK) + luaX_syntaxerror(fs->ls, "function or expression too complex"); + fs->f->maxstacksize = cast_byte(newstack); + } +} + + +void luaK_reserveregs (FuncState *fs, int n) { + luaK_checkstack(fs, n); + fs->freereg += n; +} + + +static void freereg (FuncState *fs, int reg) { + if (!ISK(reg) && reg >= fs->nactvar) { + fs->freereg--; + lua_assert(reg == fs->freereg); + } +} + + +static void freeexp (FuncState *fs, expdesc *e) { + if (e->k == VNONRELOC) + freereg(fs, e->u.s.info); +} + + +static int addk (FuncState *fs, TValue *k, TValue *v) { + lua_State *L = fs->L; + TValue *idx = luaH_set(L, fs->h, k); + Proto *f = fs->f; + int oldsize = f->sizek; + if (ttisnumber(idx)) { + lua_assert(luaO_rawequalObj(&fs->f->k[cast_int(nvalue(idx))], v)); + return cast_int(nvalue(idx)); + } + else { /* constant not found; create a new entry */ + setnvalue(idx, cast_num(fs->nk)); + luaM_growvector(L, f->k, fs->nk, f->sizek, TValue, + MAXARG_Bx, "constant table overflow"); + while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]); + setobj(L, &f->k[fs->nk], v); + luaC_barrier(L, f, v); + return fs->nk++; + } +} + + +int luaK_stringK (FuncState *fs, TString *s) { + TValue o; + setsvalue(fs->L, &o, s); + return addk(fs, &o, &o); +} + + +int luaK_numberK (FuncState *fs, lua_Number r) { + TValue o; + setnvalue(&o, r); + return addk(fs, &o, &o); +} + + +static int boolK (FuncState *fs, int b) { + TValue o; + setbvalue(&o, b); + return addk(fs, &o, &o); +} + + +static int nilK (FuncState *fs) { + TValue k, v; + setnilvalue(&v); + /* cannot use nil as key; instead use table itself to represent nil */ + sethvalue(fs->L, &k, fs->h); + return addk(fs, &k, &v); +} + + +void luaK_setreturns (FuncState *fs, expdesc *e, int nresults) { + if (e->k == VCALL) { /* expression is an open function call? */ + SETARG_C(getcode(fs, e), nresults+1); + } + else if (e->k == VVARARG) { + SETARG_B(getcode(fs, e), nresults+1); + SETARG_A(getcode(fs, e), fs->freereg); + luaK_reserveregs(fs, 1); + } +} + + +void luaK_setoneret (FuncState *fs, expdesc *e) { + if (e->k == VCALL) { /* expression is an open function call? */ + e->k = VNONRELOC; + e->u.s.info = GETARG_A(getcode(fs, e)); + } + else if (e->k == VVARARG) { + SETARG_B(getcode(fs, e), 2); + e->k = VRELOCABLE; /* can relocate its simple result */ + } +} + + +void luaK_dischargevars (FuncState *fs, expdesc *e) { + switch (e->k) { + case VLOCAL: { + e->k = VNONRELOC; + break; + } + case VUPVAL: { + e->u.s.info = luaK_codeABC(fs, OP_GETUPVAL, 0, e->u.s.info, 0); + e->k = VRELOCABLE; + break; + } + case VGLOBAL: { + e->u.s.info = luaK_codeABx(fs, OP_GETGLOBAL, 0, e->u.s.info); + e->k = VRELOCABLE; + break; + } + case VINDEXED: { + freereg(fs, e->u.s.aux); + freereg(fs, e->u.s.info); + e->u.s.info = luaK_codeABC(fs, OP_GETTABLE, 0, e->u.s.info, e->u.s.aux); + e->k = VRELOCABLE; + break; + } + case VVARARG: + case VCALL: { + luaK_setoneret(fs, e); + break; + } + default: break; /* there is one value available (somewhere) */ + } +} + + +static int code_label (FuncState *fs, int A, int b, int jump) { + luaK_getlabel(fs); /* those instructions may be jump targets */ + return luaK_codeABC(fs, OP_LOADBOOL, A, b, jump); +} + + +static void discharge2reg (FuncState *fs, expdesc *e, int reg) { + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: { + luaK_nil(fs, reg, 1); + break; + } + case VFALSE: case VTRUE: { + luaK_codeABC(fs, OP_LOADBOOL, reg, e->k == VTRUE, 0); + break; + } + case VK: { + luaK_codeABx(fs, OP_LOADK, reg, e->u.s.info); + break; + } + case VKNUM: { + luaK_codeABx(fs, OP_LOADK, reg, luaK_numberK(fs, e->u.nval)); + break; + } + case VRELOCABLE: { + Instruction *pc = &getcode(fs, e); + SETARG_A(*pc, reg); + break; + } + case VNONRELOC: { + if (reg != e->u.s.info) + luaK_codeABC(fs, OP_MOVE, reg, e->u.s.info, 0); + break; + } + default: { + lua_assert(e->k == VVOID || e->k == VJMP); + return; /* nothing to do... */ + } + } + e->u.s.info = reg; + e->k = VNONRELOC; +} + + +static void discharge2anyreg (FuncState *fs, expdesc *e) { + if (e->k != VNONRELOC) { + luaK_reserveregs(fs, 1); + discharge2reg(fs, e, fs->freereg-1); + } +} + + +static void exp2reg (FuncState *fs, expdesc *e, int reg) { + discharge2reg(fs, e, reg); + if (e->k == VJMP) + luaK_concat(fs, &e->t, e->u.s.info); /* put this jump in `t' list */ + if (hasjumps(e)) { + int final; /* position after whole expression */ + int p_f = NO_JUMP; /* position of an eventual LOAD false */ + int p_t = NO_JUMP; /* position of an eventual LOAD true */ + if (need_value(fs, e->t) || need_value(fs, e->f)) { + int fj = (e->k == VJMP) ? NO_JUMP : luaK_jump(fs); + p_f = code_label(fs, reg, 0, 1); + p_t = code_label(fs, reg, 1, 0); + luaK_patchtohere(fs, fj); + } + final = luaK_getlabel(fs); + patchlistaux(fs, e->f, final, reg, p_f); + patchlistaux(fs, e->t, final, reg, p_t); + } + e->f = e->t = NO_JUMP; + e->u.s.info = reg; + e->k = VNONRELOC; +} + + +void luaK_exp2nextreg (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + freeexp(fs, e); + luaK_reserveregs(fs, 1); + exp2reg(fs, e, fs->freereg - 1); +} + + +int luaK_exp2anyreg (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + if (e->k == VNONRELOC) { + if (!hasjumps(e)) return e->u.s.info; /* exp is already in a register */ + if (e->u.s.info >= fs->nactvar) { /* reg. is not a local? */ + exp2reg(fs, e, e->u.s.info); /* put value on it */ + return e->u.s.info; + } + } + luaK_exp2nextreg(fs, e); /* default */ + return e->u.s.info; +} + + +void luaK_exp2val (FuncState *fs, expdesc *e) { + if (hasjumps(e)) + luaK_exp2anyreg(fs, e); + else + luaK_dischargevars(fs, e); +} + + +int luaK_exp2RK (FuncState *fs, expdesc *e) { + luaK_exp2val(fs, e); + switch (e->k) { + case VKNUM: + case VTRUE: + case VFALSE: + case VNIL: { + if (fs->nk <= MAXINDEXRK) { /* constant fit in RK operand? */ + e->u.s.info = (e->k == VNIL) ? nilK(fs) : + (e->k == VKNUM) ? luaK_numberK(fs, e->u.nval) : + boolK(fs, (e->k == VTRUE)); + e->k = VK; + return RKASK(e->u.s.info); + } + else break; + } + case VK: { + if (e->u.s.info <= MAXINDEXRK) /* constant fit in argC? */ + return RKASK(e->u.s.info); + else break; + } + default: break; + } + /* not a constant in the right range: put it in a register */ + return luaK_exp2anyreg(fs, e); +} + + +void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { + switch (var->k) { + case VLOCAL: { + freeexp(fs, ex); + exp2reg(fs, ex, var->u.s.info); + return; + } + case VUPVAL: { + int e = luaK_exp2anyreg(fs, ex); + luaK_codeABC(fs, OP_SETUPVAL, e, var->u.s.info, 0); + break; + } + case VGLOBAL: { + int e = luaK_exp2anyreg(fs, ex); + luaK_codeABx(fs, OP_SETGLOBAL, e, var->u.s.info); + break; + } + case VINDEXED: { + int e = luaK_exp2RK(fs, ex); + luaK_codeABC(fs, OP_SETTABLE, var->u.s.info, var->u.s.aux, e); + break; + } + default: { + lua_assert(0); /* invalid var kind to store */ + break; + } + } + freeexp(fs, ex); +} + + +void luaK_self (FuncState *fs, expdesc *e, expdesc *key) { + int func; + luaK_exp2anyreg(fs, e); + freeexp(fs, e); + func = fs->freereg; + luaK_reserveregs(fs, 2); + luaK_codeABC(fs, OP_SELF, func, e->u.s.info, luaK_exp2RK(fs, key)); + freeexp(fs, key); + e->u.s.info = func; + e->k = VNONRELOC; +} + + +static void invertjump (FuncState *fs, expdesc *e) { + Instruction *pc = getjumpcontrol(fs, e->u.s.info); + lua_assert(testTMode(GET_OPCODE(*pc)) && GET_OPCODE(*pc) != OP_TESTSET && + GET_OPCODE(*pc) != OP_TEST); + SETARG_A(*pc, !(GETARG_A(*pc))); +} + + +static int jumponcond (FuncState *fs, expdesc *e, int cond) { + if (e->k == VRELOCABLE) { + Instruction ie = getcode(fs, e); + if (GET_OPCODE(ie) == OP_NOT) { + fs->pc--; /* remove previous OP_NOT */ + return condjump(fs, OP_TEST, GETARG_B(ie), 0, !cond); + } + /* else go through */ + } + discharge2anyreg(fs, e); + freeexp(fs, e); + return condjump(fs, OP_TESTSET, NO_REG, e->u.s.info, cond); +} + + +void luaK_goiftrue (FuncState *fs, expdesc *e) { + int pc; /* pc of last jump */ + luaK_dischargevars(fs, e); + switch (e->k) { + case VK: case VKNUM: case VTRUE: { + pc = NO_JUMP; /* always true; do nothing */ + break; + } + case VJMP: { + invertjump(fs, e); + pc = e->u.s.info; + break; + } + default: { + pc = jumponcond(fs, e, 0); + break; + } + } + luaK_concat(fs, &e->f, pc); /* insert last jump in `f' list */ + luaK_patchtohere(fs, e->t); + e->t = NO_JUMP; +} + + +static void luaK_goiffalse (FuncState *fs, expdesc *e) { + int pc; /* pc of last jump */ + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: case VFALSE: { + pc = NO_JUMP; /* always false; do nothing */ + break; + } + case VJMP: { + pc = e->u.s.info; + break; + } + default: { + pc = jumponcond(fs, e, 1); + break; + } + } + luaK_concat(fs, &e->t, pc); /* insert last jump in `t' list */ + luaK_patchtohere(fs, e->f); + e->f = NO_JUMP; +} + + +static void codenot (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: case VFALSE: { + e->k = VTRUE; + break; + } + case VK: case VKNUM: case VTRUE: { + e->k = VFALSE; + break; + } + case VJMP: { + invertjump(fs, e); + break; + } + case VRELOCABLE: + case VNONRELOC: { + discharge2anyreg(fs, e); + freeexp(fs, e); + e->u.s.info = luaK_codeABC(fs, OP_NOT, 0, e->u.s.info, 0); + e->k = VRELOCABLE; + break; + } + default: { + lua_assert(0); /* cannot happen */ + break; + } + } + /* interchange true and false lists */ + { int temp = e->f; e->f = e->t; e->t = temp; } + removevalues(fs, e->f); + removevalues(fs, e->t); +} + + +void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k) { + t->u.s.aux = luaK_exp2RK(fs, k); + t->k = VINDEXED; +} + + +static int constfolding (OpCode op, expdesc *e1, expdesc *e2) { + lua_Number v1, v2, r; + if (!isnumeral(e1) || !isnumeral(e2)) return 0; + v1 = e1->u.nval; + v2 = e2->u.nval; + switch (op) { + case OP_ADD: r = luai_numadd(v1, v2); break; + case OP_SUB: r = luai_numsub(v1, v2); break; + case OP_MUL: r = luai_nummul(v1, v2); break; + case OP_DIV: + if (v2 == 0) return 0; /* do not attempt to divide by 0 */ + r = luai_numdiv(v1, v2); break; + case OP_MOD: + if (v2 == 0) return 0; /* do not attempt to divide by 0 */ + r = luai_nummod(v1, v2); break; + case OP_POW: r = luai_numpow(v1, v2); break; + case OP_UNM: r = luai_numunm(v1); break; + case OP_LEN: return 0; /* no constant folding for 'len' */ + default: lua_assert(0); r = 0; break; + } + if (luai_numisnan(r)) return 0; /* do not attempt to produce NaN */ + e1->u.nval = r; + return 1; +} + + +static void codearith (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2) { + if (constfolding(op, e1, e2)) + return; + else { + int o2 = (op != OP_UNM && op != OP_LEN) ? luaK_exp2RK(fs, e2) : 0; + int o1 = luaK_exp2RK(fs, e1); + if (o1 > o2) { + freeexp(fs, e1); + freeexp(fs, e2); + } + else { + freeexp(fs, e2); + freeexp(fs, e1); + } + e1->u.s.info = luaK_codeABC(fs, op, 0, o1, o2); + e1->k = VRELOCABLE; + } +} + + +static void codecomp (FuncState *fs, OpCode op, int cond, expdesc *e1, + expdesc *e2) { + int o1 = luaK_exp2RK(fs, e1); + int o2 = luaK_exp2RK(fs, e2); + freeexp(fs, e2); + freeexp(fs, e1); + if (cond == 0 && op != OP_EQ) { + int temp; /* exchange args to replace by `<' or `<=' */ + temp = o1; o1 = o2; o2 = temp; /* o1 <==> o2 */ + cond = 1; + } + e1->u.s.info = condjump(fs, op, cond, o1, o2); + e1->k = VJMP; +} + + +void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) { + expdesc e2; + e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0; + switch (op) { + case OPR_MINUS: { + if (!isnumeral(e)) + luaK_exp2anyreg(fs, e); /* cannot operate on non-numeric constants */ + codearith(fs, OP_UNM, e, &e2); + break; + } + case OPR_NOT: codenot(fs, e); break; + case OPR_LEN: { + luaK_exp2anyreg(fs, e); /* cannot operate on constants */ + codearith(fs, OP_LEN, e, &e2); + break; + } + default: lua_assert(0); + } +} + + +void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) { + switch (op) { + case OPR_AND: { + luaK_goiftrue(fs, v); + break; + } + case OPR_OR: { + luaK_goiffalse(fs, v); + break; + } + case OPR_CONCAT: { + luaK_exp2nextreg(fs, v); /* operand must be on the `stack' */ + break; + } + case OPR_ADD: case OPR_SUB: case OPR_MUL: case OPR_DIV: + case OPR_MOD: case OPR_POW: { + if (!isnumeral(v)) luaK_exp2RK(fs, v); + break; + } + default: { + luaK_exp2RK(fs, v); + break; + } + } +} + + +void luaK_posfix (FuncState *fs, BinOpr op, expdesc *e1, expdesc *e2) { + switch (op) { + case OPR_AND: { + lua_assert(e1->t == NO_JUMP); /* list must be closed */ + luaK_dischargevars(fs, e2); + luaK_concat(fs, &e2->f, e1->f); + *e1 = *e2; + break; + } + case OPR_OR: { + lua_assert(e1->f == NO_JUMP); /* list must be closed */ + luaK_dischargevars(fs, e2); + luaK_concat(fs, &e2->t, e1->t); + *e1 = *e2; + break; + } + case OPR_CONCAT: { + luaK_exp2val(fs, e2); + if (e2->k == VRELOCABLE && GET_OPCODE(getcode(fs, e2)) == OP_CONCAT) { + lua_assert(e1->u.s.info == GETARG_B(getcode(fs, e2))-1); + freeexp(fs, e1); + SETARG_B(getcode(fs, e2), e1->u.s.info); + e1->k = VRELOCABLE; e1->u.s.info = e2->u.s.info; + } + else { + luaK_exp2nextreg(fs, e2); /* operand must be on the 'stack' */ + codearith(fs, OP_CONCAT, e1, e2); + } + break; + } + case OPR_ADD: codearith(fs, OP_ADD, e1, e2); break; + case OPR_SUB: codearith(fs, OP_SUB, e1, e2); break; + case OPR_MUL: codearith(fs, OP_MUL, e1, e2); break; + case OPR_DIV: codearith(fs, OP_DIV, e1, e2); break; + case OPR_MOD: codearith(fs, OP_MOD, e1, e2); break; + case OPR_POW: codearith(fs, OP_POW, e1, e2); break; + case OPR_EQ: codecomp(fs, OP_EQ, 1, e1, e2); break; + case OPR_NE: codecomp(fs, OP_EQ, 0, e1, e2); break; + case OPR_LT: codecomp(fs, OP_LT, 1, e1, e2); break; + case OPR_LE: codecomp(fs, OP_LE, 1, e1, e2); break; + case OPR_GT: codecomp(fs, OP_LT, 0, e1, e2); break; + case OPR_GE: codecomp(fs, OP_LE, 0, e1, e2); break; + default: lua_assert(0); + } +} + + +void luaK_fixline (FuncState *fs, int line) { + fs->f->lineinfo[fs->pc - 1] = line; +} + + +static int luaK_code (FuncState *fs, Instruction i, int line) { + Proto *f = fs->f; + dischargejpc(fs); /* `pc' will change */ + /* put new instruction in code array */ + luaM_growvector(fs->L, f->code, fs->pc, f->sizecode, Instruction, + MAX_INT, "code size overflow"); + f->code[fs->pc] = i; + /* save corresponding line information */ + luaM_growvector(fs->L, f->lineinfo, fs->pc, f->sizelineinfo, int, + MAX_INT, "code size overflow"); + f->lineinfo[fs->pc] = line; + return fs->pc++; +} + + +int luaK_codeABC (FuncState *fs, OpCode o, int a, int b, int c) { + lua_assert(getOpMode(o) == iABC); + lua_assert(getBMode(o) != OpArgN || b == 0); + lua_assert(getCMode(o) != OpArgN || c == 0); + return luaK_code(fs, CREATE_ABC(o, a, b, c), fs->ls->lastline); +} + + +int luaK_codeABx (FuncState *fs, OpCode o, int a, unsigned int bc) { + lua_assert(getOpMode(o) == iABx || getOpMode(o) == iAsBx); + lua_assert(getCMode(o) == OpArgN); + return luaK_code(fs, CREATE_ABx(o, a, bc), fs->ls->lastline); +} + + +void luaK_setlist (FuncState *fs, int base, int nelems, int tostore) { + int c = (nelems - 1)/LFIELDS_PER_FLUSH + 1; + int b = (tostore == LUA_MULTRET) ? 0 : tostore; + lua_assert(tostore != 0); + if (c <= MAXARG_C) + luaK_codeABC(fs, OP_SETLIST, base, b, c); + else { + luaK_codeABC(fs, OP_SETLIST, base, b, 0); + luaK_code(fs, cast(Instruction, c), fs->ls->lastline); + } + fs->freereg = base + 1; /* free registers with list values */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcode.h b/src/3rd party/LuaJIT-1.1.8/src/lcode.h new file mode 100644 index 00000000000..b941c607212 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcode.h @@ -0,0 +1,76 @@ +/* +** $Id: lcode.h,v 1.48.1.1 2007/12/27 13:02:25 roberto Exp $ +** Code generator for Lua +** See Copyright Notice in lua.h +*/ + +#ifndef lcode_h +#define lcode_h + +#include "llex.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" + + +/* +** Marks the end of a patch list. It is an invalid value both as an absolute +** address, and as a list link (would link an element to itself). +*/ +#define NO_JUMP (-1) + + +/* +** grep "ORDER OPR" if you change these enums +*/ +typedef enum BinOpr { + OPR_ADD, OPR_SUB, OPR_MUL, OPR_DIV, OPR_MOD, OPR_POW, + OPR_CONCAT, + OPR_NE, OPR_EQ, + OPR_LT, OPR_LE, OPR_GT, OPR_GE, + OPR_AND, OPR_OR, + OPR_NOBINOPR +} BinOpr; + + +typedef enum UnOpr { OPR_MINUS, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr; + + +#define getcode(fs,e) ((fs)->f->code[(e)->u.s.info]) + +#define luaK_codeAsBx(fs,o,A,sBx) luaK_codeABx(fs,o,A,(sBx)+MAXARG_sBx) + +#define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET) + +LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned int Bx); +LUAI_FUNC int luaK_codeABC (FuncState *fs, OpCode o, int A, int B, int C); +LUAI_FUNC void luaK_fixline (FuncState *fs, int line); +LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n); +LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n); +LUAI_FUNC void luaK_checkstack (FuncState *fs, int n); +LUAI_FUNC int luaK_stringK (FuncState *fs, TString *s); +LUAI_FUNC int luaK_numberK (FuncState *fs, lua_Number r); +LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_exp2RK (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key); +LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k); +LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e); +LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults); +LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_jump (FuncState *fs); +LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret); +LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target); +LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list); +LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2); +LUAI_FUNC int luaK_getlabel (FuncState *fs); +LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v); +LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v); +LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2); +LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldblib.c b/src/3rd party/LuaJIT-1.1.8/src/ldblib.c new file mode 100644 index 00000000000..2027eda5983 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldblib.c @@ -0,0 +1,398 @@ +/* +** $Id: ldblib.c,v 1.104.1.4 2009/08/04 18:50:18 roberto Exp $ +** Interface from Lua to its debug API +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define ldblib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + + +static int db_getregistry (lua_State *L) { + lua_pushvalue(L, LUA_REGISTRYINDEX); + return 1; +} + + +static int db_getmetatable (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_getmetatable(L, 1)) { + lua_pushnil(L); /* no metatable */ + } + return 1; +} + + +static int db_setmetatable (lua_State *L) { + int t = lua_type(L, 2); + luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, + "nil or table expected"); + lua_settop(L, 2); + lua_pushboolean(L, lua_setmetatable(L, 1)); + return 1; +} + + +static int db_getfenv (lua_State *L) { + luaL_checkany(L, 1); + lua_getfenv(L, 1); + return 1; +} + + +static int db_setfenv (lua_State *L) { + luaL_checktype(L, 2, LUA_TTABLE); + lua_settop(L, 2); + if (lua_setfenv(L, 1) == 0) + luaL_error(L, LUA_QL("setfenv") + " cannot change environment of given object"); + return 1; +} + + +static void settabss (lua_State *L, const char *i, const char *v) { + lua_pushstring(L, v); + lua_setfield(L, -2, i); +} + + +static void settabsi (lua_State *L, const char *i, int v) { + lua_pushinteger(L, v); + lua_setfield(L, -2, i); +} + + +static lua_State *getthread (lua_State *L, int *arg) { + if (lua_isthread(L, 1)) { + *arg = 1; + return lua_tothread(L, 1); + } + else { + *arg = 0; + return L; + } +} + + +static void treatstackoption (lua_State *L, lua_State *L1, const char *fname) { + if (L == L1) { + lua_pushvalue(L, -2); + lua_remove(L, -3); + } + else + lua_xmove(L1, L, 1); + lua_setfield(L, -2, fname); +} + + +static int db_getinfo (lua_State *L) { + lua_Debug ar; + int arg; + lua_State *L1 = getthread(L, &arg); + const char *options = luaL_optstring(L, arg+2, "flnSu"); + if (lua_isnumber(L, arg+1)) { + if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), &ar)) { + lua_pushnil(L); /* level out of range */ + return 1; + } + } + else if (lua_isfunction(L, arg+1)) { + lua_pushfstring(L, ">%s", options); + options = lua_tostring(L, -1); + lua_pushvalue(L, arg+1); + lua_xmove(L, L1, 1); + } + else + return luaL_argerror(L, arg+1, "function or level expected"); + if (!lua_getinfo(L1, options, &ar)) + return luaL_argerror(L, arg+2, "invalid option"); + lua_createtable(L, 0, 2); + if (strchr(options, 'S')) { + settabss(L, "source", ar.source); + settabss(L, "short_src", ar.short_src); + settabsi(L, "linedefined", ar.linedefined); + settabsi(L, "lastlinedefined", ar.lastlinedefined); + settabss(L, "what", ar.what); + } + if (strchr(options, 'l')) + settabsi(L, "currentline", ar.currentline); + if (strchr(options, 'u')) + settabsi(L, "nups", ar.nups); + if (strchr(options, 'n')) { + settabss(L, "name", ar.name); + settabss(L, "namewhat", ar.namewhat); + } + if (strchr(options, 'L')) + treatstackoption(L, L1, "activelines"); + if (strchr(options, 'f')) + treatstackoption(L, L1, "func"); + return 1; /* return table */ +} + + +static int db_getlocal (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + const char *name; + if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ + return luaL_argerror(L, arg+1, "level out of range"); + name = lua_getlocal(L1, &ar, luaL_checkint(L, arg+2)); + if (name) { + lua_xmove(L1, L, 1); + lua_pushstring(L, name); + lua_pushvalue(L, -2); + return 2; + } + else { + lua_pushnil(L); + return 1; + } +} + + +static int db_setlocal (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ + return luaL_argerror(L, arg+1, "level out of range"); + luaL_checkany(L, arg+3); + lua_settop(L, arg+3); + lua_xmove(L, L1, 1); + lua_pushstring(L, lua_setlocal(L1, &ar, luaL_checkint(L, arg+2))); + return 1; +} + + +static int auxupvalue (lua_State *L, int get) { + const char *name; + int n = luaL_checkint(L, 2); + luaL_checktype(L, 1, LUA_TFUNCTION); + if (lua_iscfunction(L, 1)) return 0; /* cannot touch C upvalues from Lua */ + name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); + if (name == NULL) return 0; + lua_pushstring(L, name); + lua_insert(L, -(get+1)); + return get + 1; +} + + +static int db_getupvalue (lua_State *L) { + return auxupvalue(L, 1); +} + + +static int db_setupvalue (lua_State *L) { + luaL_checkany(L, 3); + return auxupvalue(L, 0); +} + + + +static const char KEY_HOOK = 'h'; + + +static void hookf (lua_State *L, lua_Debug *ar) { + static const char *const hooknames[] = + {"call", "return", "line", "count", "tail return"}; + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); + lua_pushlightuserdata(L, L); + lua_rawget(L, -2); + if (lua_isfunction(L, -1)) { + lua_pushstring(L, hooknames[(int)ar->event]); + if (ar->currentline >= 0) + lua_pushinteger(L, ar->currentline); + else lua_pushnil(L); + lua_assert(lua_getinfo(L, "lS", ar)); + lua_call(L, 2, 0); + } +} + + +static int makemask (const char *smask, int count) { + int mask = 0; + if (strchr(smask, 'c')) mask |= LUA_MASKCALL; + if (strchr(smask, 'r')) mask |= LUA_MASKRET; + if (strchr(smask, 'l')) mask |= LUA_MASKLINE; + if (count > 0) mask |= LUA_MASKCOUNT; + return mask; +} + + +static char *unmakemask (int mask, char *smask) { + int i = 0; + if (mask & LUA_MASKCALL) smask[i++] = 'c'; + if (mask & LUA_MASKRET) smask[i++] = 'r'; + if (mask & LUA_MASKLINE) smask[i++] = 'l'; + smask[i] = '\0'; + return smask; +} + + +static void gethooktable (lua_State *L) { + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + lua_createtable(L, 0, 1); + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_pushvalue(L, -2); + lua_rawset(L, LUA_REGISTRYINDEX); + } +} + + +static int db_sethook (lua_State *L) { + int arg, mask, count; + lua_Hook func; + lua_State *L1 = getthread(L, &arg); + if (lua_isnoneornil(L, arg+1)) { + lua_settop(L, arg+1); + func = NULL; mask = 0; count = 0; /* turn off hooks */ + } + else { + const char *smask = luaL_checkstring(L, arg+2); + luaL_checktype(L, arg+1, LUA_TFUNCTION); + count = luaL_optint(L, arg+3, 0); + func = hookf; mask = makemask(smask, count); + } + gethooktable(L); + lua_pushlightuserdata(L, L1); + lua_pushvalue(L, arg+1); + lua_rawset(L, -3); /* set new hook */ + lua_pop(L, 1); /* remove hook table */ + lua_sethook(L1, func, mask, count); /* set hooks */ + return 0; +} + + +static int db_gethook (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + char buff[5]; + int mask = lua_gethookmask(L1); + lua_Hook hook = lua_gethook(L1); + if (hook != NULL && hook != hookf) /* external hook? */ + lua_pushliteral(L, "external hook"); + else { + gethooktable(L); + lua_pushlightuserdata(L, L1); + lua_rawget(L, -2); /* get hook */ + lua_remove(L, -2); /* remove hook table */ + } + lua_pushstring(L, unmakemask(mask, buff)); + lua_pushinteger(L, lua_gethookcount(L1)); + return 3; +} + + +static int db_debug (lua_State *L) { + for (;;) { + char buffer[250]; + fputs("lua_debug> ", stderr); + if (fgets(buffer, sizeof(buffer), stdin) == 0 || + strcmp(buffer, "cont\n") == 0) + return 0; + if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || + lua_pcall(L, 0, 0, 0)) { + fputs(lua_tostring(L, -1), stderr); + fputs("\n", stderr); + } + lua_settop(L, 0); /* remove eventual returns */ + } +} + + +#define LEVELS1 12 /* size of the first part of the stack */ +#define LEVELS2 10 /* size of the second part of the stack */ + +static int db_errorfb (lua_State *L) { + int level; + int firstpart = 1; /* still before eventual `...' */ + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + if (lua_isnumber(L, arg+2)) { + level = (int)lua_tointeger(L, arg+2); + lua_pop(L, 1); + } + else + level = (L == L1) ? 1 : 0; /* level 0 may be this own function */ + if (lua_gettop(L) == arg) + lua_pushliteral(L, ""); + else if (!lua_isstring(L, arg+1)) return 1; /* message is not a string */ + else lua_pushliteral(L, "\n"); + lua_pushliteral(L, "stack traceback:"); + while (lua_getstack(L1, level++, &ar)) { + if (level > LEVELS1 && firstpart) { + /* no more than `LEVELS2' more levels? */ + if (!lua_getstack(L1, level+LEVELS2, &ar)) + level--; /* keep going */ + else { + lua_pushliteral(L, "\n\t..."); /* too many levels */ + while (lua_getstack(L1, level+LEVELS2, &ar)) /* find last levels */ + level++; + } + firstpart = 0; + continue; + } + lua_pushliteral(L, "\n\t"); + lua_getinfo(L1, "Snl", &ar); + lua_pushfstring(L, "%s:", ar.short_src); + if (ar.currentline > 0) + lua_pushfstring(L, "%d:", ar.currentline); + if (*ar.namewhat != '\0') /* is there a name? */ + lua_pushfstring(L, " in function " LUA_QS, ar.name); + else { + if (*ar.what == 'm') /* main? */ + lua_pushfstring(L, " in main chunk"); + else if (*ar.what == 'C' || *ar.what == 't') + lua_pushliteral(L, " ?"); /* C function or tail call */ + else + lua_pushfstring(L, " in function <%s:%d>", + ar.short_src, ar.linedefined); + } + lua_concat(L, lua_gettop(L) - arg); + } + lua_concat(L, lua_gettop(L) - arg); + return 1; +} + + +static const luaL_Reg dblib[] = { + {"debug", db_debug}, + {"getfenv", db_getfenv}, + {"gethook", db_gethook}, + {"getinfo", db_getinfo}, + {"getlocal", db_getlocal}, + {"getregistry", db_getregistry}, + {"getmetatable", db_getmetatable}, + {"getupvalue", db_getupvalue}, + {"setfenv", db_setfenv}, + {"sethook", db_sethook}, + {"setlocal", db_setlocal}, + {"setmetatable", db_setmetatable}, + {"setupvalue", db_setupvalue}, + {"traceback", db_errorfb}, + {NULL, NULL} +}; + + +LUALIB_API int luaopen_debug (lua_State *L) { + luaL_register(L, LUA_DBLIBNAME, dblib); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldebug.c b/src/3rd party/LuaJIT-1.1.8/src/ldebug.c new file mode 100644 index 00000000000..89891fdcf14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldebug.c @@ -0,0 +1,640 @@ +/* +** $Id: ldebug.c,v 2.29.1.6 2008/05/08 16:56:26 roberto Exp $ +** Debug Interface +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + + +#define ldebug_c +#define LUA_CORE + +#include "lua.h" + +#include "lapi.h" +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" +#include "ljit.h" + + + +static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name); + + +static int currentpc (lua_State *L, CallInfo *ci) { + if (isLua(ci)) /* must be a Lua function to get current PC */ + return luaJIT_findpc(ci_func(ci)->l.p, + ci==L->ci ? L->savedpc : ci->savedpc); + else + return -1; +} + + +static int currentline (lua_State *L, CallInfo *ci) { + int pc = currentpc(L, ci); + if (pc < 0) + return -1; /* only active lua functions have current-line information */ + else + return getline(ci_func(ci)->l.p, pc); +} + + +/* +** this function can be called asynchronous (e.g. during a signal) +*/ +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count) { + if (func == NULL || mask == 0) { /* turn off hooks? */ + mask = 0; + func = NULL; + } + L->hook = func; + L->basehookcount = count; + resethookcount(L); + L->hookmask = cast_byte(mask); + return 1; +} + + +LUA_API lua_Hook lua_gethook (lua_State *L) { + return L->hook; +} + + +LUA_API int lua_gethookmask (lua_State *L) { + return L->hookmask; +} + + +LUA_API int lua_gethookcount (lua_State *L) { + return L->basehookcount; +} + + +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) { + int status; + CallInfo *ci; + lua_lock(L); + for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) { + level--; + if (f_isLua(ci)) /* Lua function? */ + level -= ci->tailcalls; /* skip lost tail calls */ + } + if (level == 0 && ci > L->base_ci) { /* level found? */ + status = 1; + ar->i_ci = cast_int(ci - L->base_ci); + } + else if (level < 0) { /* level is of a lost tail call? */ + status = 1; + ar->i_ci = 0; + } + else status = 0; /* no such level */ + lua_unlock(L); + return status; +} + + +static Proto *getluaproto (CallInfo *ci) { + return (isLua(ci) ? ci_func(ci)->l.p : NULL); +} + + +static const char *findlocal (lua_State *L, CallInfo *ci, int n) { + const char *name; + Proto *fp = getluaproto(ci); + if (fp && (name = luaF_getlocalname(fp, n, currentpc(L, ci))) != NULL) + return name; /* is a local variable in a Lua function */ + else { + StkId limit = (ci == L->ci) ? L->top : (ci+1)->func; + if (limit - ci->base >= n && n > 0) /* is 'n' inside 'ci' stack? */ + return "(*temporary)"; + else + return NULL; + } +} + + +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) { + CallInfo *ci = L->base_ci + ar->i_ci; + const char *name = findlocal(L, ci, n); + lua_lock(L); + if (name) + luaA_pushobject(L, ci->base + (n - 1)); + lua_unlock(L); + return name; +} + + +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) { + CallInfo *ci = L->base_ci + ar->i_ci; + const char *name = findlocal(L, ci, n); + lua_lock(L); + if (name) + setobjs2s(L, ci->base + (n - 1), L->top - 1); + L->top--; /* pop value */ + lua_unlock(L); + return name; +} + + +static void funcinfo (lua_Debug *ar, Closure *cl) { + if (cl->c.isC) { + ar->source = "=[C]"; + ar->linedefined = -1; + ar->lastlinedefined = -1; + ar->what = "C"; + } + else { + ar->source = getstr(cl->l.p->source); + ar->linedefined = cl->l.p->linedefined; + ar->lastlinedefined = cl->l.p->lastlinedefined; + ar->what = (ar->linedefined == 0) ? "main" : "Lua"; + } + luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE); +} + + +static void info_tailcall (lua_Debug *ar) { + ar->name = ar->namewhat = ""; + ar->what = "tail"; + ar->lastlinedefined = ar->linedefined = ar->currentline = -1; + ar->source = "=(tail call)"; + luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE); + ar->nups = 0; +} + + +static void collectvalidlines (lua_State *L, Closure *f) { + if (f == NULL || f->c.isC) { + setnilvalue(L->top); + } + else { + Table *t = luaH_new(L, 0, 0); + int *lineinfo = f->l.p->lineinfo; + int i; + for (i=0; il.p->sizelineinfo; i++) + setbvalue(luaH_setnum(L, t, lineinfo[i]), 1); + sethvalue(L, L->top, t); + } + incr_top(L); +} + + +static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar, + Closure *f, CallInfo *ci) { + int status = 1; + if (f == NULL) { + info_tailcall(ar); + return status; + } + for (; *what; what++) { + switch (*what) { + case 'S': { + funcinfo(ar, f); + break; + } + case 'l': { + ar->currentline = (ci) ? currentline(L, ci) : -1; + break; + } + case 'u': { + ar->nups = f->c.nupvalues; + break; + } + case 'n': { + ar->namewhat = (ci) ? getfuncname(L, ci, &ar->name) : NULL; + if (ar->namewhat == NULL) { + ar->namewhat = ""; /* not found */ + ar->name = NULL; + } + break; + } + case 'L': + case 'f': /* handled by lua_getinfo */ + break; + default: status = 0; /* invalid option */ + } + } + return status; +} + + +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) { + int status; + Closure *f = NULL; + CallInfo *ci = NULL; + lua_lock(L); + if (*what == '>') { + StkId func = L->top - 1; + luai_apicheck(L, ttisfunction(func)); + what++; /* skip the '>' */ + f = clvalue(func); + L->top--; /* pop function */ + } + else if (ar->i_ci != 0) { /* no tail call? */ + ci = L->base_ci + ar->i_ci; + lua_assert(ttisfunction(ci->func)); + f = clvalue(ci->func); + } + status = auxgetinfo(L, what, ar, f, ci); + if (strchr(what, 'f')) { + if (f == NULL) setnilvalue(L->top); + else setclvalue(L, L->top, f); + incr_top(L); + } + if (strchr(what, 'L')) + collectvalidlines(L, f); + lua_unlock(L); + return status; +} + + +/* +** {====================================================== +** Symbolic Execution and code checker +** ======================================================= +*/ + +#define check(x) if (!(x)) return 0; + +#define checkjump(pt,pc) check(0 <= pc && pc < pt->sizecode) + +#define checkreg(pt,reg) check((reg) < (pt)->maxstacksize) + + + +static int precheck (const Proto *pt) { + check(pt->maxstacksize <= MAXSTACK); + check(pt->numparams+(pt->is_vararg & VARARG_HASARG) <= pt->maxstacksize); + check(!(pt->is_vararg & VARARG_NEEDSARG) || + (pt->is_vararg & VARARG_HASARG)); + check(pt->sizeupvalues <= pt->nups); + check(pt->sizelineinfo == pt->sizecode || pt->sizelineinfo == 0); + check(pt->sizecode > 0 && GET_OPCODE(pt->code[pt->sizecode-1]) == OP_RETURN); + return 1; +} + + +#define checkopenop(pt,pc) luaG_checkopenop((pt)->code[(pc)+1]) + +int luaG_checkopenop (Instruction i) { + switch (GET_OPCODE(i)) { + case OP_CALL: + case OP_TAILCALL: + case OP_RETURN: + case OP_SETLIST: { + check(GETARG_B(i) == 0); + return 1; + } + default: return 0; /* invalid instruction after an open call */ + } +} + + +static int checkArgMode (const Proto *pt, int r, enum OpArgMask mode) { + switch (mode) { + case OpArgN: check(r == 0); break; + case OpArgU: break; + case OpArgR: checkreg(pt, r); break; + case OpArgK: + check(ISK(r) ? INDEXK(r) < pt->sizek : r < pt->maxstacksize); + break; + } + return 1; +} + + +static Instruction symbexec (const Proto *pt, int lastpc, int reg) { + int pc; + int last; /* stores position of last instruction that changed `reg' */ + last = pt->sizecode-1; /* points to final return (a `neutral' instruction) */ + check(precheck(pt)); + for (pc = 0; pc < lastpc; pc++) { + Instruction i = pt->code[pc]; + OpCode op = GET_OPCODE(i); + int a = GETARG_A(i); + int b = 0; + int c = 0; + check(op < NUM_OPCODES); + checkreg(pt, a); + switch (getOpMode(op)) { + case iABC: { + b = GETARG_B(i); + c = GETARG_C(i); + check(checkArgMode(pt, b, getBMode(op))); + check(checkArgMode(pt, c, getCMode(op))); + break; + } + case iABx: { + b = GETARG_Bx(i); + if (getBMode(op) == OpArgK) check(b < pt->sizek); + break; + } + case iAsBx: { + b = GETARG_sBx(i); + if (getBMode(op) == OpArgR) { + int dest = pc+1+b; + check(0 <= dest && dest < pt->sizecode); + if (dest > 0) { + int j; + /* check that it does not jump to a setlist count; this + is tricky, because the count from a previous setlist may + have the same value of an invalid setlist; so, we must + go all the way back to the first of them (if any) */ + for (j = 0; j < dest; j++) { + Instruction d = pt->code[dest-1-j]; + if (!(GET_OPCODE(d) == OP_SETLIST && GETARG_C(d) == 0)) break; + } + /* if 'j' is even, previous value is not a setlist (even if + it looks like one) */ + check((j&1) == 0); + } + } + break; + } + } + if (testAMode(op)) { + if (a == reg) last = pc; /* change register `a' */ + } + if (testTMode(op)) { + check(pc+2 < pt->sizecode); /* check skip */ + check(GET_OPCODE(pt->code[pc+1]) == OP_JMP); + } + switch (op) { + case OP_LOADBOOL: { + if (c == 1) { /* does it jump? */ + check(pc+2 < pt->sizecode); /* check its jump */ + check(GET_OPCODE(pt->code[pc+1]) != OP_SETLIST || + GETARG_C(pt->code[pc+1]) != 0); + } + break; + } + case OP_LOADNIL: { + if (a <= reg && reg <= b) + last = pc; /* set registers from `a' to `b' */ + break; + } + case OP_GETUPVAL: + case OP_SETUPVAL: { + check(b < pt->nups); + break; + } + case OP_GETGLOBAL: + case OP_SETGLOBAL: { + check(ttisstring(&pt->k[b])); + break; + } + case OP_SELF: { + checkreg(pt, a+1); + if (reg == a+1) last = pc; + break; + } + case OP_CONCAT: { + check(b < c); /* at least two operands */ + break; + } + case OP_TFORLOOP: { + check(c >= 1); /* at least one result (control variable) */ + checkreg(pt, a+2+c); /* space for results */ + if (reg >= a+2) last = pc; /* affect all regs above its base */ + break; + } + case OP_FORLOOP: + case OP_FORPREP: + checkreg(pt, a+3); + /* go through */ + case OP_JMP: { + int dest = pc+1+b; + /* not full check and jump is forward and do not skip `lastpc'? */ + if (reg != NO_REG && pc < dest && dest <= lastpc) + pc += b; /* do the jump */ + break; + } + case OP_CALL: + case OP_TAILCALL: { + if (b != 0) { + checkreg(pt, a+b-1); + } + c--; /* c = num. returns */ + if (c == LUA_MULTRET) { + check(checkopenop(pt, pc)); + } + else if (c != 0) + checkreg(pt, a+c-1); + if (reg >= a) last = pc; /* affect all registers above base */ + break; + } + case OP_RETURN: { + b--; /* b = num. returns */ + if (b > 0) checkreg(pt, a+b-1); + break; + } + case OP_SETLIST: { + if (b > 0) checkreg(pt, a + b); + if (c == 0) { + pc++; + check(pc < pt->sizecode - 1); + } + break; + } + case OP_CLOSURE: { + int nup, j; + check(b < pt->sizep); + nup = pt->p[b]->nups; + check(pc + nup < pt->sizecode); + for (j = 1; j <= nup; j++) { + OpCode op1 = GET_OPCODE(pt->code[pc + j]); + check(op1 == OP_GETUPVAL || op1 == OP_MOVE); + } + if (reg != NO_REG) /* tracing? */ + pc += nup; /* do not 'execute' these pseudo-instructions */ + break; + } + case OP_VARARG: { + check((pt->is_vararg & VARARG_ISVARARG) && + !(pt->is_vararg & VARARG_NEEDSARG)); + b--; + if (b == LUA_MULTRET) check(checkopenop(pt, pc)); + checkreg(pt, a+b-1); + break; + } + default: break; + } + } + return pt->code[last]; +} + +#undef check +#undef checkjump +#undef checkreg + +/* }====================================================== */ + + +int luaG_checkcode (const Proto *pt) { + return (symbexec(pt, pt->sizecode, NO_REG) != 0); +} + + +static const char *kname (Proto *p, int c) { + if (ISK(c) && ttisstring(&p->k[INDEXK(c)])) + return svalue(&p->k[INDEXK(c)]); + else + return "?"; +} + + +static const char *getobjname (lua_State *L, CallInfo *ci, int stackpos, + const char **name) { + if (isLua(ci)) { /* a Lua function? */ + Proto *p = ci_func(ci)->l.p; + int pc = currentpc(L, ci); + Instruction i; + *name = luaF_getlocalname(p, stackpos+1, pc); + if (*name) /* is a local? */ + return "local"; + i = symbexec(p, pc, stackpos); /* try symbolic execution */ + lua_assert(pc != -1); + switch (GET_OPCODE(i)) { + case OP_GETGLOBAL: { + int g = GETARG_Bx(i); /* global index */ + lua_assert(ttisstring(&p->k[g])); + *name = svalue(&p->k[g]); + return "global"; + } + case OP_MOVE: { + int a = GETARG_A(i); + int b = GETARG_B(i); /* move from `b' to `a' */ + if (b < a) + return getobjname(L, ci, b, name); /* get name for `b' */ + break; + } + case OP_GETTABLE: { + int k = GETARG_C(i); /* key index */ + *name = kname(p, k); + return "field"; + } + case OP_GETUPVAL: { + int u = GETARG_B(i); /* upvalue index */ + *name = p->upvalues ? getstr(p->upvalues[u]) : "?"; + return "upvalue"; + } + case OP_SELF: { + int k = GETARG_C(i); /* key index */ + *name = kname(p, k); + return "method"; + } + default: break; + } + } + return NULL; /* no useful name found */ +} + + +static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { + Instruction i; + if ((isLua(ci) && ci->tailcalls > 0) || !isLua(ci - 1)) + return NULL; /* calling function is not Lua (or is unknown) */ + ci--; /* calling function */ + i = ci_func(ci)->l.p->code[currentpc(L, ci)]; + if (GET_OPCODE(i) == OP_CALL || GET_OPCODE(i) == OP_TAILCALL || + GET_OPCODE(i) == OP_TFORLOOP) + return getobjname(L, ci, GETARG_A(i), name); + else + return NULL; /* no useful name can be found */ +} + + +/* only ANSI way to check whether a pointer points to an array */ +static int isinstack (CallInfo *ci, const TValue *o) { + StkId p; + for (p = ci->base; p < ci->top; p++) + if (o == p) return 1; + return 0; +} + + +void luaG_typeerror (lua_State *L, const TValue *o, const char *op) { + const char *name = NULL; + const char *t = luaT_typenames[ttype(o)]; + const char *kind = (isinstack(L->ci, o)) ? + getobjname(L, L->ci, cast_int(o - L->base), &name) : + NULL; + if (kind) + luaG_runerror(L, "attempt to %s %s " LUA_QS " (a %s value)", + op, kind, name, t); + else + luaG_runerror(L, "attempt to %s a %s value", op, t); +} + + +void luaG_concaterror (lua_State *L, StkId p1, StkId p2) { + if (ttisstring(p1) || ttisnumber(p1)) p1 = p2; + lua_assert(!ttisstring(p1) && !ttisnumber(p1)); + luaG_typeerror(L, p1, "concatenate"); +} + + +void luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) { + TValue temp; + if (luaV_tonumber(p1, &temp) == NULL) + p2 = p1; /* first operand is wrong */ + luaG_typeerror(L, p2, "perform arithmetic on"); +} + + +int luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { + const char *t1 = luaT_typenames[ttype(p1)]; + const char *t2 = luaT_typenames[ttype(p2)]; + if (t1[2] == t2[2]) + luaG_runerror(L, "attempt to compare two %s values", t1); + else + luaG_runerror(L, "attempt to compare %s with %s", t1, t2); + return 0; +} + + +static void addinfo (lua_State *L, const char *msg) { + CallInfo *ci = L->ci; + if (isLua(ci)) { /* is Lua code? */ + char buff[LUA_IDSIZE]; /* add file:line information */ + int line = currentline(L, ci); + luaO_chunkid(buff, getstr(getluaproto(ci)->source), LUA_IDSIZE); + luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); + } +} + + +void luaG_errormsg (lua_State *L) { + if (L->errfunc != 0) { /* is there an error handling function? */ + StkId errfunc = restorestack(L, L->errfunc); + if (!ttisfunction(errfunc)) luaD_throw(L, LUA_ERRERR); + setobjs2s(L, L->top, L->top - 1); /* move argument */ + setobjs2s(L, L->top - 1, errfunc); /* push function */ + incr_top(L); + luaD_call(L, L->top - 2, 1); /* call it */ + } + luaD_throw(L, LUA_ERRRUN); +} + + +void luaG_runerror (lua_State *L, const char *fmt, ...) { + va_list argp; + va_start(argp, fmt); + addinfo(L, luaO_pushvfstring(L, fmt, argp)); + va_end(argp); + luaG_errormsg(L); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldebug.h b/src/3rd party/LuaJIT-1.1.8/src/ldebug.h new file mode 100644 index 00000000000..ba28a97248e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldebug.h @@ -0,0 +1,33 @@ +/* +** $Id: ldebug.h,v 2.3.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions from Debug Interface module +** See Copyright Notice in lua.h +*/ + +#ifndef ldebug_h +#define ldebug_h + + +#include "lstate.h" + + +#define pcRel(pc, p) (cast(int, (pc) - (p)->code) - 1) + +#define getline(f,pc) (((f)->lineinfo) ? (f)->lineinfo[pc] : 0) + +#define resethookcount(L) (L->hookcount = L->basehookcount) + + +LUAI_FUNC void luaG_typeerror (lua_State *L, const TValue *o, + const char *opname); +LUAI_FUNC void luaG_concaterror (lua_State *L, StkId p1, StkId p2); +LUAI_FUNC void luaG_aritherror (lua_State *L, const TValue *p1, + const TValue *p2); +LUAI_FUNC int luaG_ordererror (lua_State *L, const TValue *p1, + const TValue *p2); +LUAI_FUNC void luaG_runerror (lua_State *L, const char *fmt, ...); +LUAI_FUNC void luaG_errormsg (lua_State *L); +LUAI_FUNC int luaG_checkcode (const Proto *pt); +LUAI_FUNC int luaG_checkopenop (Instruction i); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldo.c b/src/3rd party/LuaJIT-1.1.8/src/ldo.c new file mode 100644 index 00000000000..d04745abe4e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldo.c @@ -0,0 +1,520 @@ +/* +** $Id: ldo.c,v 2.38.1.4 2012/01/18 02:27:10 roberto Exp $ +** Stack and Call structure of Lua +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define ldo_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lundump.h" +#include "lvm.h" +#include "lzio.h" +#include "ljit.h" + + + + +/* +** {====================================================== +** Error-recovery functions +** ======================================================= +*/ + + +/* chain list of long jump buffers */ +struct lua_longjmp { + struct lua_longjmp *previous; + luai_jmpbuf b; + volatile int status; /* error code */ +}; + + +void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop) { + switch (errcode) { + case LUA_ERRMEM: { + setsvalue2s(L, oldtop, luaS_newliteral(L, MEMERRMSG)); + break; + } + case LUA_ERRERR: { + setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); + break; + } + case LUA_ERRSYNTAX: + case LUA_ERRRUN: { + setobjs2s(L, oldtop, L->top - 1); /* error message on current top */ + break; + } + } + L->top = oldtop + 1; +} + + +static void restore_stack_limit (lua_State *L) { + lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1); + if (L->size_ci > LUAI_MAXCALLS) { /* there was an overflow? */ + int inuse = cast_int(L->ci - L->base_ci); + if (inuse + 1 < LUAI_MAXCALLS) /* can `undo' overflow? */ + luaD_reallocCI(L, LUAI_MAXCALLS); + } +} + + +static void resetstack (lua_State *L, int status) { + L->ci = L->base_ci; + L->base = L->ci->base; + luaF_close(L, L->base); /* close eventual pending closures */ + luaD_seterrorobj(L, status, L->base); + L->nCcalls = 0; + L->allowhook = 1; + restore_stack_limit(L); + L->errfunc = 0; + L->errorJmp = NULL; +} + + +void luaD_throw (lua_State *L, int errcode) { + if (L->errorJmp) { + L->errorJmp->status = errcode; + LUAI_THROW(L, L->errorJmp); + } + else { + L->status = cast_byte(errcode); + if (G(L)->panic) { + resetstack(L, errcode); + lua_unlock(L); + G(L)->panic(L); + } + exit(EXIT_FAILURE); + } +} + + +int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { + struct lua_longjmp lj; + lj.status = 0; + lj.previous = L->errorJmp; /* chain new error handler */ + L->errorJmp = &lj; + LUAI_TRY(L, &lj, + (*f)(L, ud); + ); + L->errorJmp = lj.previous; /* restore old error handler */ + return lj.status; +} + +/* }====================================================== */ + + +static void correctstack (lua_State *L, TValue *oldstack) { + CallInfo *ci; + GCObject *up; + L->top = (L->top - oldstack) + L->stack; + for (up = L->openupval; up != NULL; up = up->gch.next) + gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; + for (ci = L->base_ci; ci <= L->ci; ci++) { + ci->top = (ci->top - oldstack) + L->stack; + ci->base = (ci->base - oldstack) + L->stack; + ci->func = (ci->func - oldstack) + L->stack; + } + L->base = (L->base - oldstack) + L->stack; +} + + +void luaD_reallocstack (lua_State *L, int newsize) { + TValue *oldstack = L->stack; + int realsize = newsize + 1 + EXTRA_STACK; + lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1); + luaM_reallocvector(L, L->stack, L->stacksize, realsize, TValue); + L->stacksize = realsize; + L->stack_last = L->stack+newsize; + correctstack(L, oldstack); +} + + +void luaD_reallocCI (lua_State *L, int newsize) { + CallInfo *oldci = L->base_ci; + luaM_reallocvector(L, L->base_ci, L->size_ci, newsize, CallInfo); + L->size_ci = newsize; + L->ci = (L->ci - oldci) + L->base_ci; + L->end_ci = L->base_ci + L->size_ci - 1; +} + + +void luaD_growstack (lua_State *L, int n) { + if (n <= L->stacksize) /* double size is enough? */ + luaD_reallocstack(L, 2*L->stacksize); + else + luaD_reallocstack(L, L->stacksize + n); +} + + +CallInfo *luaD_growCI (lua_State *L) { + if (L->size_ci > LUAI_MAXCALLS) /* overflow while handling overflow? */ + luaD_throw(L, LUA_ERRERR); + else { + luaD_reallocCI(L, 2*L->size_ci); + if (L->size_ci > LUAI_MAXCALLS) + luaG_runerror(L, "stack overflow"); + } + return ++L->ci; +} + + +void luaD_callhook (lua_State *L, int event, int line) { + lua_Hook hook = L->hook; + if (hook && L->allowhook) { + ptrdiff_t top = savestack(L, L->top); + ptrdiff_t ci_top = savestack(L, L->ci->top); + lua_Debug ar; + ar.event = event; + ar.currentline = line; + if (event == LUA_HOOKTAILRET) + ar.i_ci = 0; /* tail call; no debug information about it */ + else + ar.i_ci = cast_int(L->ci - L->base_ci); + luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ + L->ci->top = L->top + LUA_MINSTACK; + lua_assert(L->ci->top <= L->stack_last); + L->allowhook = 0; /* cannot call hooks inside a hook */ + lua_unlock(L); + (*hook)(L, &ar); + lua_lock(L); + lua_assert(!L->allowhook); + L->allowhook = 1; + L->ci->top = restorestack(L, ci_top); + L->top = restorestack(L, top); + } +} + + +static StkId adjust_varargs (lua_State *L, Proto *p, int actual) { + int i; + int nfixargs = p->numparams; + Table *htab = NULL; + StkId base, fixed; + for (; actual < nfixargs; ++actual) + setnilvalue(L->top++); +#if defined(LUA_COMPAT_VARARG) + if (p->is_vararg & VARARG_NEEDSARG) { /* compat. with old-style vararg? */ + int nvar = actual - nfixargs; /* number of extra arguments */ + lua_assert(p->is_vararg & VARARG_HASARG); + luaC_checkGC(L); + luaD_checkstack(L, p->maxstacksize); + htab = luaH_new(L, nvar, 1); /* create `arg' table */ + for (i=0; itop - nvar + i); + /* store counter in field `n' */ + setnvalue(luaH_setstr(L, htab, luaS_newliteral(L, "n")), cast_num(nvar)); + } +#endif + /* move fixed parameters to final position */ + fixed = L->top - actual; /* first fixed argument */ + base = L->top; /* final position of first argument */ + for (i=0; itop++, fixed+i); + setnilvalue(fixed+i); + } + /* add `arg' parameter */ + if (htab) { + sethvalue(L, L->top++, htab); + lua_assert(iswhite(obj2gco(htab))); + } + return base; +} + + +StkId luaD_tryfuncTM (lua_State *L, StkId func) { + const TValue *tm = luaT_gettmbyobj(L, func, TM_CALL); + StkId p; + ptrdiff_t funcr = savestack(L, func); + if (!ttisfunction(tm)) + luaG_typeerror(L, func, "call"); + /* Open a hole inside the stack at `func' */ + for (p = L->top; p > func; p--) setobjs2s(L, p, p-1); + incr_top(L); + func = restorestack(L, funcr); /* previous call may change stack */ + setobj2s(L, func, tm); /* tag method is the new function to be called */ + return func; +} + + + +#define inc_ci(L) \ + ((L->ci == L->end_ci) ? luaD_growCI(L) : \ + (condhardstacktests(luaD_reallocCI(L, L->size_ci)), ++L->ci)) + + +int luaD_precall (lua_State *L, StkId func, int nresults) { + LClosure *cl; + ptrdiff_t funcr; + if (!ttisfunction(func)) /* `func' is not a function? */ + func = luaD_tryfuncTM(L, func); /* check the `function' tag method */ + funcr = savestack(L, func); + cl = &clvalue(func)->l; + L->ci->savedpc = L->savedpc; + if (!cl->isC) { /* Lua function? prepare its call */ + CallInfo *ci; + StkId st, base; + Proto *p = cl->p; + if (p->jit_status <= JIT_S_NONE) { /* JIT compiler enabled? */ + if (p->jit_status == JIT_S_OK) + return G(L)->jit_gateLJ(L, func, nresults); /* Run compiled code. */ + else + return luaJIT_run(L, func, nresults); /* Compile and run code. */ + } + luaD_checkstack(L, p->maxstacksize); + func = restorestack(L, funcr); + if (!p->is_vararg) { /* no varargs? */ + base = func + 1; + if (L->top > base + p->numparams) + L->top = base + p->numparams; + } + else { /* vararg function */ + int nargs = cast_int(L->top - func) - 1; + base = adjust_varargs(L, p, nargs); + func = restorestack(L, funcr); /* previous call may change the stack */ + } + ci = inc_ci(L); /* now `enter' new function */ + ci->func = func; + L->base = ci->base = base; + ci->top = L->base + p->maxstacksize; + lua_assert(ci->top <= L->stack_last); + L->savedpc = p->code; /* starting point */ + ci->tailcalls = 0; + ci->nresults = nresults; + for (st = L->top; st < ci->top; st++) + setnilvalue(st); + L->top = ci->top; + if (L->hookmask & LUA_MASKCALL) { + L->savedpc++; /* hooks assume 'pc' is already incremented */ + luaD_callhook(L, LUA_HOOKCALL, -1); + L->savedpc--; /* correct 'pc' */ + } + return PCRLUA; + } + else { /* if is a C function, call it */ + CallInfo *ci; + int n; + luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ + ci = inc_ci(L); /* now `enter' new function */ + ci->func = restorestack(L, funcr); + L->base = ci->base = ci->func + 1; + ci->top = L->top + LUA_MINSTACK; + lua_assert(ci->top <= L->stack_last); + ci->nresults = nresults; + if (L->hookmask & LUA_MASKCALL) + luaD_callhook(L, LUA_HOOKCALL, -1); + lua_unlock(L); + n = (*curr_func(L)->c.f)(L); /* do the actual call */ + lua_lock(L); + if (n < 0) /* yielding? */ + return PCRYIELD; + else { + luaD_poscall(L, L->top - n); + return PCRC; + } + } +} + + +static StkId callrethooks (lua_State *L, StkId firstResult) { + ptrdiff_t fr = savestack(L, firstResult); /* next call may change stack */ + luaD_callhook(L, LUA_HOOKRET, -1); + if (f_isLua(L->ci)) { /* Lua function? */ + while ((L->hookmask & LUA_MASKRET) && L->ci->tailcalls--) /* tail calls */ + luaD_callhook(L, LUA_HOOKTAILRET, -1); + } + return restorestack(L, fr); +} + + +int luaD_poscall (lua_State *L, StkId firstResult) { + StkId res; + int wanted, i; + CallInfo *ci; + if (L->hookmask & LUA_MASKRET) + firstResult = callrethooks(L, firstResult); + ci = L->ci--; + res = ci->func; /* res == final position of 1st result */ + wanted = ci->nresults; + L->base = (ci - 1)->base; /* restore base */ + L->savedpc = (ci - 1)->savedpc; /* restore savedpc */ + /* move results to correct place */ + for (i = wanted; i != 0 && firstResult < L->top; i--) + setobjs2s(L, res++, firstResult++); + while (i-- > 0) + setnilvalue(res++); + L->top = res; + return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */ +} + + +/* +** Call a function (C or Lua). The function to be called is at *func. +** The arguments are on the stack, right after the function. +** When returns, all the results are on the stack, starting at the original +** function position. +*/ +void luaD_call (lua_State *L, StkId func, int nResults) { + if (++L->nCcalls >= LUAI_MAXCCALLS) { + if (L->nCcalls == LUAI_MAXCCALLS) + luaG_runerror(L, "C stack overflow"); + else if (L->nCcalls >= (LUAI_MAXCCALLS + (LUAI_MAXCCALLS>>3))) + luaD_throw(L, LUA_ERRERR); /* error while handing stack error */ + } + if (luaD_precall(L, func, nResults) == PCRLUA) /* is a Lua function? */ + luaV_execute(L, 1); /* call it */ + L->nCcalls--; + luaC_checkGC(L); +} + + +static void resume (lua_State *L, void *ud) { + StkId firstArg = cast(StkId, ud); + CallInfo *ci = L->ci; + if (L->status == 0) { /* start coroutine? */ + lua_assert(ci == L->base_ci && firstArg > L->base); + if (luaD_precall(L, firstArg - 1, LUA_MULTRET) != PCRLUA) + return; + } + else { /* resuming from previous yield */ + lua_assert(L->status == LUA_YIELD); + L->status = 0; + if (!f_isLua(ci)) { /* `common' yield? */ + /* finish interrupted execution of `OP_CALL' */ + lua_assert(GET_OPCODE(*((ci-1)->savedpc - 1)) == OP_CALL || + GET_OPCODE(*((ci-1)->savedpc - 1)) == OP_TAILCALL); + if (luaD_poscall(L, firstArg)) /* complete it... */ + L->top = L->ci->top; /* and correct top if not multiple results */ + } + else /* yielded inside a hook: just continue its execution */ + L->base = L->ci->base; + } + luaV_execute(L, cast_int(L->ci - L->base_ci)); +} + + +static int resume_error (lua_State *L, const char *msg) { + L->top = L->ci->base; + setsvalue2s(L, L->top, luaS_new(L, msg)); + incr_top(L); + lua_unlock(L); + return LUA_ERRRUN; +} + + +LUA_API int lua_resume (lua_State *L, int nargs) { + int status; + lua_lock(L); + if (L->status != LUA_YIELD && (L->status != 0 || L->ci != L->base_ci)) + return resume_error(L, "cannot resume non-suspended coroutine"); + luai_userstateresume(L, nargs); + lua_assert(L->errfunc == 0 && L->nCcalls == 0); + status = luaD_rawrunprotected(L, resume, L->top - nargs); + if (status != 0) { /* error? */ + L->status = cast_byte(status); /* mark thread as `dead' */ + luaD_seterrorobj(L, status, L->top); + L->ci->top = L->top; + } + else + status = L->status; + lua_unlock(L); + return status; +} + + +LUA_API int lua_yield (lua_State *L, int nresults) { + luai_userstateyield(L, nresults); + lua_lock(L); + if (L->nCcalls > 0) + luaG_runerror(L, "attempt to yield across metamethod/C-call boundary"); + L->base = L->top - nresults; /* protect stack slots below */ + L->status = LUA_YIELD; + lua_unlock(L); + return -1; +} + + +int luaD_pcall (lua_State *L, Pfunc func, void *u, + ptrdiff_t old_top, ptrdiff_t ef) { + int status; + unsigned short oldnCcalls = L->nCcalls; + ptrdiff_t old_ci = saveci(L, L->ci); + lu_byte old_allowhooks = L->allowhook; + ptrdiff_t old_errfunc = L->errfunc; + L->errfunc = ef; + status = luaD_rawrunprotected(L, func, u); + if (status != 0) { /* an error occurred? */ + StkId oldtop = restorestack(L, old_top); + luaF_close(L, oldtop); /* close eventual pending closures */ + luaD_seterrorobj(L, status, oldtop); + L->nCcalls = oldnCcalls; + L->ci = restoreci(L, old_ci); + L->base = L->ci->base; + L->savedpc = L->ci->savedpc; + L->allowhook = old_allowhooks; + restore_stack_limit(L); + } + L->errfunc = old_errfunc; + return status; +} + + + +/* +** Execute a protected parser. +*/ +struct SParser { /* data to `f_parser' */ + ZIO *z; + Mbuffer buff; /* buffer to be used by the scanner */ + const char *name; +}; + +static void f_parser (lua_State *L, void *ud) { + int i; + Proto *tf; + Closure *cl; + struct SParser *p = cast(struct SParser *, ud); + int c = luaZ_lookahead(p->z); + luaC_checkGC(L); + tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, + &p->buff, p->name); + cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); + cl->l.p = tf; + for (i = 0; i < tf->nups; i++) /* initialize eventual upvalues */ + cl->l.upvals[i] = luaF_newupval(L); + setclvalue(L, L->top, cl); + incr_top(L); +} + + +int luaD_protectedparser (lua_State *L, ZIO *z, const char *name) { + struct SParser p; + int status; + p.z = z; p.name = name; + luaZ_initbuffer(L, &p.buff); + status = luaD_pcall(L, f_parser, &p, savestack(L, L->top), L->errfunc); + luaZ_freebuffer(L, &p.buff); + return status; +} + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldo.h b/src/3rd party/LuaJIT-1.1.8/src/ldo.h new file mode 100644 index 00000000000..63760f9cd1a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldo.h @@ -0,0 +1,59 @@ +/* +** $Id: ldo.h,v 2.7.1.1 2007/12/27 13:02:25 roberto Exp $ +** Stack and Call structure of Lua +** See Copyright Notice in lua.h +*/ + +#ifndef ldo_h +#define ldo_h + + +#include "lobject.h" +#include "lstate.h" +#include "lzio.h" + + +#define luaD_checkstack(L,n) \ + if ((char *)L->stack_last - (char *)L->top <= (n)*(int)sizeof(TValue)) \ + luaD_growstack(L, n); \ + else condhardstacktests(luaD_reallocstack(L, L->stacksize - EXTRA_STACK - 1)); + + +#define incr_top(L) {luaD_checkstack(L,1); L->top++;} + +#define savestack(L,p) ((char *)(p) - (char *)L->stack) +#define restorestack(L,n) ((TValue *)((char *)L->stack + (n))) + +#define saveci(L,p) ((char *)(p) - (char *)L->base_ci) +#define restoreci(L,n) ((CallInfo *)((char *)L->base_ci + (n))) + + +/* results from luaD_precall */ +#define PCRLUA 0 /* initiated a call to a Lua function */ +#define PCRC 1 /* did a call to a C function */ +#define PCRYIELD 2 /* C function yielded */ + + +/* type of protected functions, to be ran by `runprotected' */ +typedef void (*Pfunc) (lua_State *L, void *ud); + +LUAI_FUNC int luaD_protectedparser (lua_State *L, ZIO *z, const char *name); +LUAI_FUNC void luaD_callhook (lua_State *L, int event, int line); +LUAI_FUNC StkId luaD_tryfuncTM (lua_State *L, StkId func); +LUAI_FUNC int luaD_precall (lua_State *L, StkId func, int nresults); +LUAI_FUNC void luaD_call (lua_State *L, StkId func, int nResults); +LUAI_FUNC int luaD_pcall (lua_State *L, Pfunc func, void *u, + ptrdiff_t oldtop, ptrdiff_t ef); +LUAI_FUNC int luaD_poscall (lua_State *L, StkId firstResult); +LUAI_FUNC void luaD_reallocCI (lua_State *L, int newsize); +LUAI_FUNC CallInfo *luaD_growCI (lua_State *L); +LUAI_FUNC void luaD_reallocstack (lua_State *L, int newsize); +LUAI_FUNC void luaD_growstack (lua_State *L, int n); + +LUAI_FUNC void luaD_throw (lua_State *L, int errcode); +LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud); + +LUAI_FUNC void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldump.c b/src/3rd party/LuaJIT-1.1.8/src/ldump.c new file mode 100644 index 00000000000..c9d3d4870f4 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldump.c @@ -0,0 +1,164 @@ +/* +** $Id: ldump.c,v 2.8.1.1 2007/12/27 13:02:25 roberto Exp $ +** save precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#include + +#define ldump_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "lundump.h" + +typedef struct { + lua_State* L; + lua_Writer writer; + void* data; + int strip; + int status; +} DumpState; + +#define DumpMem(b,n,size,D) DumpBlock(b,(n)*(size),D) +#define DumpVar(x,D) DumpMem(&x,1,sizeof(x),D) + +static void DumpBlock(const void* b, size_t size, DumpState* D) +{ + if (D->status==0) + { + lua_unlock(D->L); + D->status=(*D->writer)(D->L,b,size,D->data); + lua_lock(D->L); + } +} + +static void DumpChar(int y, DumpState* D) +{ + char x=(char)y; + DumpVar(x,D); +} + +static void DumpInt(int x, DumpState* D) +{ + DumpVar(x,D); +} + +static void DumpNumber(lua_Number x, DumpState* D) +{ + DumpVar(x,D); +} + +static void DumpVector(const void* b, int n, size_t size, DumpState* D) +{ + DumpInt(n,D); + DumpMem(b,n,size,D); +} + +static void DumpString(const TString* s, DumpState* D) +{ + if (s==NULL || getstr(s)==NULL) + { + size_t size=0; + DumpVar(size,D); + } + else + { + size_t size=s->tsv.len+1; /* include trailing '\0' */ + DumpVar(size,D); + DumpBlock(getstr(s),size,D); + } +} + +#define DumpCode(f,D) DumpVector(f->code,f->sizecode,sizeof(Instruction),D) + +static void DumpFunction(const Proto* f, const TString* p, DumpState* D); + +static void DumpConstants(const Proto* f, DumpState* D) +{ + int i,n=f->sizek; + DumpInt(n,D); + for (i=0; ik[i]; + DumpChar(ttype(o),D); + switch (ttype(o)) + { + case LUA_TNIL: + break; + case LUA_TBOOLEAN: + DumpChar(bvalue(o),D); + break; + case LUA_TNUMBER: + DumpNumber(nvalue(o),D); + break; + case LUA_TSTRING: + DumpString(rawtsvalue(o),D); + break; + default: + lua_assert(0); /* cannot happen */ + break; + } + } + n=f->sizep; + DumpInt(n,D); + for (i=0; ip[i],f->source,D); +} + +static void DumpDebug(const Proto* f, DumpState* D) +{ + int i,n; + n= (D->strip) ? 0 : f->sizelineinfo; + DumpVector(f->lineinfo,n,sizeof(int),D); + n= (D->strip) ? 0 : f->sizelocvars; + DumpInt(n,D); + for (i=0; ilocvars[i].varname,D); + DumpInt(f->locvars[i].startpc,D); + DumpInt(f->locvars[i].endpc,D); + } + n= (D->strip) ? 0 : f->sizeupvalues; + DumpInt(n,D); + for (i=0; iupvalues[i],D); +} + +static void DumpFunction(const Proto* f, const TString* p, DumpState* D) +{ + DumpString((f->source==p || D->strip) ? NULL : f->source,D); + DumpInt(f->linedefined,D); + DumpInt(f->lastlinedefined,D); + DumpChar(f->nups,D); + DumpChar(f->numparams,D); + DumpChar(f->is_vararg,D); + DumpChar(f->maxstacksize,D); + DumpCode(f,D); + DumpConstants(f,D); + DumpDebug(f,D); +} + +static void DumpHeader(DumpState* D) +{ + char h[LUAC_HEADERSIZE]; + luaU_header(h); + DumpBlock(h,LUAC_HEADERSIZE,D); +} + +/* +** dump Lua function as precompiled chunk +*/ +int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip) +{ + DumpState D; + D.L=L; + D.writer=w; + D.data=data; + D.strip=strip; + D.status=0; + DumpHeader(&D); + DumpFunction(f,NULL,&D); + return D.status; +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lfunc.c b/src/3rd party/LuaJIT-1.1.8/src/lfunc.c new file mode 100644 index 00000000000..334e305bab3 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lfunc.c @@ -0,0 +1,182 @@ +/* +** $Id: lfunc.c,v 2.12.1.2 2007/12/28 14:58:43 roberto Exp $ +** Auxiliary functions to manipulate prototypes and closures +** See Copyright Notice in lua.h +*/ + + +#include + +#define lfunc_c +#define LUA_CORE + +#include "lua.h" + +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "ljit.h" + + + +Closure *luaF_newCclosure (lua_State *L, int nelems, Table *e) { + Closure *c = cast(Closure *, luaM_malloc(L, sizeCclosure(nelems))); + luaC_link(L, obj2gco(c), LUA_TFUNCTION); + c->c.isC = 1; + c->c.env = e; + c->c.nupvalues = cast_byte(nelems); + c->c.jit_gate = G(L)->jit_gateJC; + return c; +} + + +Closure *luaF_newLclosure (lua_State *L, int nelems, Table *e) { + Closure *c = cast(Closure *, luaM_malloc(L, sizeLclosure(nelems))); + luaC_link(L, obj2gco(c), LUA_TFUNCTION); + c->l.isC = 0; + c->l.env = e; + c->l.jit_gate = G(L)->jit_gateJL; + c->l.nupvalues = cast_byte(nelems); + while (nelems--) c->l.upvals[nelems] = NULL; + return c; +} + + +UpVal *luaF_newupval (lua_State *L) { + UpVal *uv = luaM_new(L, UpVal); + luaC_link(L, obj2gco(uv), LUA_TUPVAL); + uv->v = &uv->u.value; + setnilvalue(uv->v); + return uv; +} + + +UpVal *luaF_findupval (lua_State *L, StkId level) { + global_State *g = G(L); + GCObject **pp = &L->openupval; + UpVal *p; + UpVal *uv; + while (*pp != NULL && (p = ngcotouv(*pp))->v >= level) { + lua_assert(p->v != &p->u.value); + if (p->v == level) { /* found a corresponding upvalue? */ + if (isdead(g, obj2gco(p))) /* is it dead? */ + changewhite(obj2gco(p)); /* ressurect it */ + return p; + } + pp = &p->next; + } + uv = luaM_new(L, UpVal); /* not found: create a new one */ + uv->tt = LUA_TUPVAL; + uv->marked = luaC_white(g); + uv->v = level; /* current value lives in the stack */ + uv->next = *pp; /* chain it in the proper position */ + *pp = obj2gco(uv); + uv->u.l.prev = &g->uvhead; /* double link it in `uvhead' list */ + uv->u.l.next = g->uvhead.u.l.next; + uv->u.l.next->u.l.prev = uv; + g->uvhead.u.l.next = uv; + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + return uv; +} + + +static void unlinkupval (UpVal *uv) { + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + uv->u.l.next->u.l.prev = uv->u.l.prev; /* remove from `uvhead' list */ + uv->u.l.prev->u.l.next = uv->u.l.next; +} + + +void luaF_freeupval (lua_State *L, UpVal *uv) { + if (uv->v != &uv->u.value) /* is it open? */ + unlinkupval(uv); /* remove from open list */ + luaM_free(L, uv); /* free upvalue */ +} + + +void luaF_close (lua_State *L, StkId level) { + UpVal *uv; + global_State *g = G(L); + while (L->openupval != NULL && (uv = ngcotouv(L->openupval))->v >= level) { + GCObject *o = obj2gco(uv); + lua_assert(!isblack(o) && uv->v != &uv->u.value); + L->openupval = uv->next; /* remove from `open' list */ + if (isdead(g, o)) + luaF_freeupval(L, uv); /* free upvalue */ + else { + unlinkupval(uv); + setobj(L, &uv->u.value, uv->v); + uv->v = &uv->u.value; /* now current value lives here */ + luaC_linkupval(L, uv); /* link upvalue into `gcroot' list */ + } + } +} + + +Proto *luaF_newproto (lua_State *L) { + Proto *f = luaM_new(L, Proto); + luaC_link(L, obj2gco(f), LUA_TPROTO); + f->k = NULL; + f->sizek = 0; + f->p = NULL; + f->sizep = 0; + f->code = NULL; + f->sizecode = 0; + f->sizelineinfo = 0; + f->sizeupvalues = 0; + f->nups = 0; + f->upvalues = NULL; + f->numparams = 0; + f->is_vararg = 0; + f->maxstacksize = 0; + f->lineinfo = NULL; + f->sizelocvars = 0; + f->locvars = NULL; + f->linedefined = 0; + f->lastlinedefined = 0; + f->source = NULL; + /* LuaJIT extensions */ + f->jit_mcode = NULL; + f->jit_szmcode = 0; + f->jit_status = JIT_S_NONE; + return f; +} + + +void luaF_freeproto (lua_State *L, Proto *f) { + luaJIT_freeproto(L, f); + luaM_freearray(L, f->code, f->sizecode, Instruction); + luaM_freearray(L, f->p, f->sizep, Proto *); + luaM_freearray(L, f->k, f->sizek, TValue); + luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); + luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); + luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *); + luaM_free(L, f); +} + + +void luaF_freeclosure (lua_State *L, Closure *c) { + int size = (c->c.isC) ? sizeCclosure(c->c.nupvalues) : + sizeLclosure(c->l.nupvalues); + luaM_freemem(L, c, size); +} + + +/* +** Look for n-th local variable at line `line' in function `func'. +** Returns NULL if not found. +*/ +const char *luaF_getlocalname (const Proto *f, int local_number, int pc) { + int i; + for (i = 0; isizelocvars && f->locvars[i].startpc <= pc; i++) { + if (pc < f->locvars[i].endpc) { /* is variable active? */ + local_number--; + if (local_number == 0) + return getstr(f->locvars[i].varname); + } + } + return NULL; /* not found */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lfunc.h b/src/3rd party/LuaJIT-1.1.8/src/lfunc.h new file mode 100644 index 00000000000..a68cf5151cb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lfunc.h @@ -0,0 +1,34 @@ +/* +** $Id: lfunc.h,v 2.4.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions to manipulate prototypes and closures +** See Copyright Notice in lua.h +*/ + +#ifndef lfunc_h +#define lfunc_h + + +#include "lobject.h" + + +#define sizeCclosure(n) (cast(int, sizeof(CClosure)) + \ + cast(int, sizeof(TValue)*((n)-1))) + +#define sizeLclosure(n) (cast(int, sizeof(LClosure)) + \ + cast(int, sizeof(TValue *)*((n)-1))) + + +LUAI_FUNC Proto *luaF_newproto (lua_State *L); +LUAI_FUNC Closure *luaF_newCclosure (lua_State *L, int nelems, Table *e); +LUAI_FUNC Closure *luaF_newLclosure (lua_State *L, int nelems, Table *e); +LUAI_FUNC UpVal *luaF_newupval (lua_State *L); +LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level); +LUAI_FUNC void luaF_close (lua_State *L, StkId level); +LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f); +LUAI_FUNC void luaF_freeclosure (lua_State *L, Closure *c); +LUAI_FUNC void luaF_freeupval (lua_State *L, UpVal *uv); +LUAI_FUNC const char *luaF_getlocalname (const Proto *func, int local_number, + int pc); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lgc.c b/src/3rd party/LuaJIT-1.1.8/src/lgc.c new file mode 100644 index 00000000000..e909c79a969 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lgc.c @@ -0,0 +1,710 @@ +/* +** $Id: lgc.c,v 2.38.1.2 2011/03/18 18:05:38 roberto Exp $ +** Garbage Collector +** See Copyright Notice in lua.h +*/ + +#include + +#define lgc_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" + + +#define GCSTEPSIZE 1024u +#define GCSWEEPMAX 40 +#define GCSWEEPCOST 10 +#define GCFINALIZECOST 100 + + +#define maskmarks cast_byte(~(bitmask(BLACKBIT)|WHITEBITS)) + +#define makewhite(g,x) \ + ((x)->gch.marked = cast_byte(((x)->gch.marked & maskmarks) | luaC_white(g))) + +#define white2gray(x) reset2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT) +#define black2gray(x) resetbit((x)->gch.marked, BLACKBIT) + +#define stringmark(s) reset2bits((s)->tsv.marked, WHITE0BIT, WHITE1BIT) + + +#define isfinalized(u) testbit((u)->marked, FINALIZEDBIT) +#define markfinalized(u) l_setbit((u)->marked, FINALIZEDBIT) + + +#define KEYWEAK bitmask(KEYWEAKBIT) +#define VALUEWEAK bitmask(VALUEWEAKBIT) + + + +#define markvalue(g,o) { checkconsistency(o); \ + if (iscollectable(o) && iswhite(gcvalue(o))) reallymarkobject(g,gcvalue(o)); } + +#define markobject(g,t) { if (iswhite(obj2gco(t))) \ + reallymarkobject(g, obj2gco(t)); } + + +#define setthreshold(g) (g->GCthreshold = (g->estimate/100) * g->gcpause) + + +static void removeentry (Node *n) { + lua_assert(ttisnil(gval(n))); + if (iscollectable(gkey(n))) + setttype(gkey(n), LUA_TDEADKEY); /* dead key; remove it */ +} + + +static void reallymarkobject (global_State *g, GCObject *o) { + lua_assert(iswhite(o) && !isdead(g, o)); + white2gray(o); + switch (o->gch.tt) { + case LUA_TSTRING: { + return; + } + case LUA_TUSERDATA: { + Table *mt = gco2u(o)->metatable; + gray2black(o); /* udata are never gray */ + if (mt) markobject(g, mt); + markobject(g, gco2u(o)->env); + return; + } + case LUA_TUPVAL: { + UpVal *uv = gco2uv(o); + markvalue(g, uv->v); + if (uv->v == &uv->u.value) /* closed? */ + gray2black(o); /* open upvalues are never black */ + return; + } + case LUA_TFUNCTION: { + gco2cl(o)->c.gclist = g->gray; + g->gray = o; + break; + } + case LUA_TTABLE: { + gco2h(o)->gclist = g->gray; + g->gray = o; + break; + } + case LUA_TTHREAD: { + gco2th(o)->gclist = g->gray; + g->gray = o; + break; + } + case LUA_TPROTO: { + gco2p(o)->gclist = g->gray; + g->gray = o; + break; + } + default: lua_assert(0); + } +} + + +static void marktmu (global_State *g) { + GCObject *u = g->tmudata; + if (u) { + do { + u = u->gch.next; + makewhite(g, u); /* may be marked, if left from previous GC */ + reallymarkobject(g, u); + } while (u != g->tmudata); + } +} + + +/* move `dead' udata that need finalization to list `tmudata' */ +size_t luaC_separateudata (lua_State *L, int all) { + global_State *g = G(L); + size_t deadmem = 0; + GCObject **p = &g->mainthread->next; + GCObject *curr; + while ((curr = *p) != NULL) { + if (!(iswhite(curr) || all) || isfinalized(gco2u(curr))) + p = &curr->gch.next; /* don't bother with them */ + else if (fasttm(L, gco2u(curr)->metatable, TM_GC) == NULL) { + markfinalized(gco2u(curr)); /* don't need finalization */ + p = &curr->gch.next; + } + else { /* must call its gc method */ + deadmem += sizeudata(gco2u(curr)); + markfinalized(gco2u(curr)); + *p = curr->gch.next; + /* link `curr' at the end of `tmudata' list */ + if (g->tmudata == NULL) /* list is empty? */ + g->tmudata = curr->gch.next = curr; /* creates a circular list */ + else { + curr->gch.next = g->tmudata->gch.next; + g->tmudata->gch.next = curr; + g->tmudata = curr; + } + } + } + return deadmem; +} + + +static int traversetable (global_State *g, Table *h) { + int i; + int weakkey = 0; + int weakvalue = 0; + const TValue *mode; + if (h->metatable) + markobject(g, h->metatable); + mode = gfasttm(g, h->metatable, TM_MODE); + if (mode && ttisstring(mode)) { /* is there a weak mode? */ + weakkey = (strchr(svalue(mode), 'k') != NULL); + weakvalue = (strchr(svalue(mode), 'v') != NULL); + if (weakkey || weakvalue) { /* is really weak? */ + h->marked &= ~(KEYWEAK | VALUEWEAK); /* clear bits */ + h->marked |= cast_byte((weakkey << KEYWEAKBIT) | + (weakvalue << VALUEWEAKBIT)); + h->gclist = g->weak; /* must be cleared after GC, ... */ + g->weak = obj2gco(h); /* ... so put in the appropriate list */ + } + } + if (weakkey && weakvalue) return 1; + if (!weakvalue) { + i = h->sizearray; + while (i--) + markvalue(g, &h->array[i]); + } + i = sizenode(h); + while (i--) { + Node *n = gnode(h, i); + lua_assert(ttype(gkey(n)) != LUA_TDEADKEY || ttisnil(gval(n))); + if (ttisnil(gval(n))) + removeentry(n); /* remove empty entries */ + else { + lua_assert(!ttisnil(gkey(n))); + if (!weakkey) markvalue(g, gkey(n)); + if (!weakvalue) markvalue(g, gval(n)); + } + } + return weakkey || weakvalue; +} + + +/* +** All marks are conditional because a GC may happen while the +** prototype is still being created +*/ +static void traverseproto (global_State *g, Proto *f) { + int i; + if (f->source) stringmark(f->source); + for (i=0; isizek; i++) /* mark literals */ + markvalue(g, &f->k[i]); + for (i=0; isizeupvalues; i++) { /* mark upvalue names */ + if (f->upvalues[i]) + stringmark(f->upvalues[i]); + } + for (i=0; isizep; i++) { /* mark nested protos */ + if (f->p[i]) + markobject(g, f->p[i]); + } + for (i=0; isizelocvars; i++) { /* mark local-variable names */ + if (f->locvars[i].varname) + stringmark(f->locvars[i].varname); + } +} + + + +static void traverseclosure (global_State *g, Closure *cl) { + markobject(g, cl->c.env); + if (cl->c.isC) { + int i; + for (i=0; ic.nupvalues; i++) /* mark its upvalues */ + markvalue(g, &cl->c.upvalue[i]); + } + else { + int i; + lua_assert(cl->l.nupvalues == cl->l.p->nups); + markobject(g, cl->l.p); + for (i=0; il.nupvalues; i++) /* mark its upvalues */ + markobject(g, cl->l.upvals[i]); + } +} + + +static void checkstacksizes (lua_State *L, StkId max) { + int ci_used = cast_int(L->ci - L->base_ci); /* number of `ci' in use */ + int s_used = cast_int(max - L->stack); /* part of stack in use */ + if (L->size_ci > LUAI_MAXCALLS) /* handling overflow? */ + return; /* do not touch the stacks */ + if (4*ci_used < L->size_ci && 2*BASIC_CI_SIZE < L->size_ci) + luaD_reallocCI(L, L->size_ci/2); /* still big enough... */ + condhardstacktests(luaD_reallocCI(L, ci_used + 1)); + if (4*s_used < L->stacksize && + 2*(BASIC_STACK_SIZE+EXTRA_STACK) < L->stacksize) + luaD_reallocstack(L, L->stacksize/2); /* still big enough... */ + condhardstacktests(luaD_reallocstack(L, s_used)); +} + + +static void traversestack (global_State *g, lua_State *l) { + StkId o, lim; + CallInfo *ci; + markvalue(g, gt(l)); + lim = l->top; + for (ci = l->base_ci; ci <= l->ci; ci++) { + lua_assert(ci->top <= l->stack_last); + if (lim < ci->top) lim = ci->top; + } + for (o = l->stack; o < l->top; o++) + markvalue(g, o); + for (; o <= lim; o++) + setnilvalue(o); + checkstacksizes(l, lim); +} + + +/* +** traverse one gray object, turning it to black. +** Returns `quantity' traversed. +*/ +static l_mem propagatemark (global_State *g) { + GCObject *o = g->gray; + lua_assert(isgray(o)); + gray2black(o); + switch (o->gch.tt) { + case LUA_TTABLE: { + Table *h = gco2h(o); + g->gray = h->gclist; + if (traversetable(g, h)) /* table is weak? */ + black2gray(o); /* keep it gray */ + return sizeof(Table) + sizeof(TValue) * h->sizearray + + sizeof(Node) * sizenode(h); + } + case LUA_TFUNCTION: { + Closure *cl = gco2cl(o); + g->gray = cl->c.gclist; + traverseclosure(g, cl); + return (cl->c.isC) ? sizeCclosure(cl->c.nupvalues) : + sizeLclosure(cl->l.nupvalues); + } + case LUA_TTHREAD: { + lua_State *th = gco2th(o); + g->gray = th->gclist; + th->gclist = g->grayagain; + g->grayagain = o; + black2gray(o); + traversestack(g, th); + return sizeof(lua_State) + sizeof(TValue) * th->stacksize + + sizeof(CallInfo) * th->size_ci; + } + case LUA_TPROTO: { + Proto *p = gco2p(o); + g->gray = p->gclist; + traverseproto(g, p); + return sizeof(Proto) + sizeof(Instruction) * p->sizecode + + sizeof(Proto *) * p->sizep + + sizeof(TValue) * p->sizek + + sizeof(int) * p->sizelineinfo + + sizeof(LocVar) * p->sizelocvars + + sizeof(TString *) * p->sizeupvalues; + } + default: lua_assert(0); return 0; + } +} + + +static size_t propagateall (global_State *g) { + size_t m = 0; + while (g->gray) m += propagatemark(g); + return m; +} + + +/* +** The next function tells whether a key or value can be cleared from +** a weak table. Non-collectable objects are never removed from weak +** tables. Strings behave as `values', so are never removed too. for +** other objects: if really collected, cannot keep them; for userdata +** being finalized, keep them in keys, but not in values +*/ +static int iscleared (const TValue *o, int iskey) { + if (!iscollectable(o)) return 0; + if (ttisstring(o)) { + stringmark(rawtsvalue(o)); /* strings are `values', so are never weak */ + return 0; + } + return iswhite(gcvalue(o)) || + (ttisuserdata(o) && (!iskey && isfinalized(uvalue(o)))); +} + + +/* +** clear collected entries from weaktables +*/ +static void cleartable (GCObject *l) { + while (l) { + Table *h = gco2h(l); + int i = h->sizearray; + lua_assert(testbit(h->marked, VALUEWEAKBIT) || + testbit(h->marked, KEYWEAKBIT)); + if (testbit(h->marked, VALUEWEAKBIT)) { + while (i--) { + TValue *o = &h->array[i]; + if (iscleared(o, 0)) /* value was collected? */ + setnilvalue(o); /* remove value */ + } + } + i = sizenode(h); + while (i--) { + Node *n = gnode(h, i); + if (!ttisnil(gval(n)) && /* non-empty entry? */ + (iscleared(key2tval(n), 1) || iscleared(gval(n), 0))) { + setnilvalue(gval(n)); /* remove value ... */ + removeentry(n); /* remove entry from table */ + } + } + l = h->gclist; + } +} + + +static void freeobj (lua_State *L, GCObject *o) { + switch (o->gch.tt) { + case LUA_TPROTO: luaF_freeproto(L, gco2p(o)); break; + case LUA_TFUNCTION: luaF_freeclosure(L, gco2cl(o)); break; + case LUA_TUPVAL: luaF_freeupval(L, gco2uv(o)); break; + case LUA_TTABLE: luaH_free(L, gco2h(o)); break; + case LUA_TTHREAD: { + lua_assert(gco2th(o) != L && gco2th(o) != G(L)->mainthread); + luaE_freethread(L, gco2th(o)); + break; + } + case LUA_TSTRING: { + G(L)->strt.nuse--; + luaM_freemem(L, o, sizestring(gco2ts(o))); + break; + } + case LUA_TUSERDATA: { + luaM_freemem(L, o, sizeudata(gco2u(o))); + break; + } + default: lua_assert(0); + } +} + + + +#define sweepwholelist(L,p) sweeplist(L,p,MAX_LUMEM) + + +static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count) { + GCObject *curr; + global_State *g = G(L); + int deadmask = otherwhite(g); + while ((curr = *p) != NULL && count-- > 0) { + if (curr->gch.tt == LUA_TTHREAD) /* sweep open upvalues of each thread */ + sweepwholelist(L, &gco2th(curr)->openupval); + if ((curr->gch.marked ^ WHITEBITS) & deadmask) { /* not dead? */ + lua_assert(!isdead(g, curr) || testbit(curr->gch.marked, FIXEDBIT)); + makewhite(g, curr); /* make it white (for next cycle) */ + p = &curr->gch.next; + } + else { /* must erase `curr' */ + lua_assert(isdead(g, curr) || deadmask == bitmask(SFIXEDBIT)); + *p = curr->gch.next; + if (curr == g->rootgc) /* is the first element of the list? */ + g->rootgc = curr->gch.next; /* adjust first */ + freeobj(L, curr); + } + } + return p; +} + + +static void checkSizes (lua_State *L) { + global_State *g = G(L); + /* check size of string hash */ + if (g->strt.nuse < cast(lu_int32, g->strt.size/4) && + g->strt.size > MINSTRTABSIZE*2) + luaS_resize(L, g->strt.size/2); /* table is too big */ + /* check size of buffer */ + if (luaZ_sizebuffer(&g->buff) > LUA_MINBUFFER*2) { /* buffer too big? */ + size_t newsize = luaZ_sizebuffer(&g->buff) / 2; + luaZ_resizebuffer(L, &g->buff, newsize); + } +} + + +static void GCTM (lua_State *L) { + global_State *g = G(L); + GCObject *o = g->tmudata->gch.next; /* get first element */ + Udata *udata = rawgco2u(o); + const TValue *tm; + /* remove udata from `tmudata' */ + if (o == g->tmudata) /* last element? */ + g->tmudata = NULL; + else + g->tmudata->gch.next = udata->uv.next; + udata->uv.next = g->mainthread->next; /* return it to `root' list */ + g->mainthread->next = o; + makewhite(g, o); + tm = fasttm(L, udata->uv.metatable, TM_GC); + if (tm != NULL) { + lu_byte oldah = L->allowhook; + lu_mem oldt = g->GCthreshold; + L->allowhook = 0; /* stop debug hooks during GC tag method */ + g->GCthreshold = 2*g->totalbytes; /* avoid GC steps */ + setobj2s(L, L->top, tm); + setuvalue(L, L->top+1, udata); + L->top += 2; + luaD_call(L, L->top - 2, 0); + L->allowhook = oldah; /* restore hooks */ + g->GCthreshold = oldt; /* restore threshold */ + } +} + + +/* +** Call all GC tag methods +*/ +void luaC_callGCTM (lua_State *L) { + while (G(L)->tmudata) + GCTM(L); +} + + +void luaC_freeall (lua_State *L) { + global_State *g = G(L); + int i; + g->currentwhite = WHITEBITS | bitmask(SFIXEDBIT); /* mask to collect all elements */ + sweepwholelist(L, &g->rootgc); + for (i = 0; i < g->strt.size; i++) /* free all string lists */ + sweepwholelist(L, &g->strt.hash[i]); +} + + +static void markmt (global_State *g) { + int i; + for (i=0; imt[i]) markobject(g, g->mt[i]); +} + + +/* mark root set */ +static void markroot (lua_State *L) { + global_State *g = G(L); + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + markobject(g, g->mainthread); + /* make global table be traversed before main stack */ + markvalue(g, gt(g->mainthread)); + markvalue(g, registry(L)); + markmt(g); + g->gcstate = GCSpropagate; +} + + +static void remarkupvals (global_State *g) { + UpVal *uv; + for (uv = g->uvhead.u.l.next; uv != &g->uvhead; uv = uv->u.l.next) { + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + if (isgray(obj2gco(uv))) + markvalue(g, uv->v); + } +} + + +static void atomic (lua_State *L) { + global_State *g = G(L); + size_t udsize; /* total size of userdata to be finalized */ + /* remark occasional upvalues of (maybe) dead threads */ + remarkupvals(g); + /* traverse objects cautch by write barrier and by 'remarkupvals' */ + propagateall(g); + /* remark weak tables */ + g->gray = g->weak; + g->weak = NULL; + lua_assert(!iswhite(obj2gco(g->mainthread))); + markobject(g, L); /* mark running thread */ + markmt(g); /* mark basic metatables (again) */ + propagateall(g); + /* remark gray again */ + g->gray = g->grayagain; + g->grayagain = NULL; + propagateall(g); + udsize = luaC_separateudata(L, 0); /* separate userdata to be finalized */ + marktmu(g); /* mark `preserved' userdata */ + udsize += propagateall(g); /* remark, to propagate `preserveness' */ + cleartable(g->weak); /* remove collected objects from weak tables */ + /* flip current white */ + g->currentwhite = cast_byte(otherwhite(g)); + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + g->gcstate = GCSsweepstring; + g->estimate = g->totalbytes - udsize; /* first estimate */ +} + + +static l_mem singlestep (lua_State *L) { + global_State *g = G(L); + /*lua_checkmemory(L);*/ + switch (g->gcstate) { + case GCSpause: { + markroot(L); /* start a new collection */ + return 0; + } + case GCSpropagate: { + if (g->gray) + return propagatemark(g); + else { /* no more `gray' objects */ + atomic(L); /* finish mark phase */ + return 0; + } + } + case GCSsweepstring: { + lu_mem old = g->totalbytes; + sweepwholelist(L, &g->strt.hash[g->sweepstrgc++]); + if (g->sweepstrgc >= g->strt.size) /* nothing more to sweep? */ + g->gcstate = GCSsweep; /* end sweep-string phase */ + lua_assert(old >= g->totalbytes); + g->estimate -= old - g->totalbytes; + return GCSWEEPCOST; + } + case GCSsweep: { + lu_mem old = g->totalbytes; + g->sweepgc = sweeplist(L, g->sweepgc, GCSWEEPMAX); + if (*g->sweepgc == NULL) { /* nothing more to sweep? */ + checkSizes(L); + g->gcstate = GCSfinalize; /* end sweep phase */ + } + lua_assert(old >= g->totalbytes); + g->estimate -= old - g->totalbytes; + return GCSWEEPMAX*GCSWEEPCOST; + } + case GCSfinalize: { + if (g->tmudata) { + GCTM(L); + if (g->estimate > GCFINALIZECOST) + g->estimate -= GCFINALIZECOST; + return GCFINALIZECOST; + } + else { + g->gcstate = GCSpause; /* end collection */ + g->gcdept = 0; + return 0; + } + } + default: lua_assert(0); return 0; + } +} + + +void luaC_step (lua_State *L) { + global_State *g = G(L); + l_mem lim = (GCSTEPSIZE/100) * g->gcstepmul; + if (lim == 0) + lim = (MAX_LUMEM-1)/2; /* no limit */ + g->gcdept += g->totalbytes - g->GCthreshold; + do { + lim -= singlestep(L); + if (g->gcstate == GCSpause) + break; + } while (lim > 0); + if (g->gcstate != GCSpause) { + if (g->gcdept < GCSTEPSIZE) + g->GCthreshold = g->totalbytes + GCSTEPSIZE; /* - lim/g->gcstepmul;*/ + else { + g->gcdept -= GCSTEPSIZE; + g->GCthreshold = g->totalbytes; + } + } + else { + setthreshold(g); + } +} + + +void luaC_fullgc (lua_State *L) { + global_State *g = G(L); + if (g->gcstate <= GCSpropagate) { + /* reset sweep marks to sweep all elements (returning them to white) */ + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + /* reset other collector lists */ + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + g->gcstate = GCSsweepstring; + } + lua_assert(g->gcstate != GCSpause && g->gcstate != GCSpropagate); + /* finish any pending sweep phase */ + while (g->gcstate != GCSfinalize) { + lua_assert(g->gcstate == GCSsweepstring || g->gcstate == GCSsweep); + singlestep(L); + } + markroot(L); + while (g->gcstate != GCSpause) { + singlestep(L); + } + setthreshold(g); +} + + +void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v) { + global_State *g = G(L); + lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + lua_assert(ttype(&o->gch) != LUA_TTABLE); + /* must keep invariant? */ + if (g->gcstate == GCSpropagate) + reallymarkobject(g, v); /* restore invariant */ + else /* don't mind */ + makewhite(g, o); /* mark as white just to avoid other barriers */ +} + + +void luaC_barrierback (lua_State *L, Table *t) { + global_State *g = G(L); + GCObject *o = obj2gco(t); + lua_assert(isblack(o) && !isdead(g, o)); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + black2gray(o); /* make table gray (again) */ + t->gclist = g->grayagain; + g->grayagain = o; +} + + +void luaC_link (lua_State *L, GCObject *o, lu_byte tt) { + global_State *g = G(L); + o->gch.next = g->rootgc; + g->rootgc = o; + o->gch.marked = luaC_white(g); + o->gch.tt = tt; +} + + +void luaC_linkupval (lua_State *L, UpVal *uv) { + global_State *g = G(L); + GCObject *o = obj2gco(uv); + o->gch.next = g->rootgc; /* link upvalue into `rootgc' list */ + g->rootgc = o; + if (isgray(o)) { + if (g->gcstate == GCSpropagate) { + gray2black(o); /* closed upvalues need barrier */ + luaC_barrier(L, uv, uv->v); + } + else { /* sweep phase: sweep it (turning it into white) */ + makewhite(g, o); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + } + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lgc.h b/src/3rd party/LuaJIT-1.1.8/src/lgc.h new file mode 100644 index 00000000000..5a8dc605b31 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lgc.h @@ -0,0 +1,110 @@ +/* +** $Id: lgc.h,v 2.15.1.1 2007/12/27 13:02:25 roberto Exp $ +** Garbage Collector +** See Copyright Notice in lua.h +*/ + +#ifndef lgc_h +#define lgc_h + + +#include "lobject.h" + + +/* +** Possible states of the Garbage Collector +*/ +#define GCSpause 0 +#define GCSpropagate 1 +#define GCSsweepstring 2 +#define GCSsweep 3 +#define GCSfinalize 4 + + +/* +** some userful bit tricks +*/ +#define resetbits(x,m) ((x) &= cast(lu_byte, ~(m))) +#define setbits(x,m) ((x) |= (m)) +#define testbits(x,m) ((x) & (m)) +#define bitmask(b) (1<<(b)) +#define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) +#define l_setbit(x,b) setbits(x, bitmask(b)) +#define resetbit(x,b) resetbits(x, bitmask(b)) +#define testbit(x,b) testbits(x, bitmask(b)) +#define set2bits(x,b1,b2) setbits(x, (bit2mask(b1, b2))) +#define reset2bits(x,b1,b2) resetbits(x, (bit2mask(b1, b2))) +#define test2bits(x,b1,b2) testbits(x, (bit2mask(b1, b2))) + + + +/* +** Layout for bit use in `marked' field: +** bit 0 - object is white (type 0) +** bit 1 - object is white (type 1) +** bit 2 - object is black +** bit 3 - for userdata: has been finalized +** bit 3 - for tables: has weak keys +** bit 4 - for tables: has weak values +** bit 5 - object is fixed (should not be collected) +** bit 6 - object is "super" fixed (only the main thread) +*/ + + +#define WHITE0BIT 0 +#define WHITE1BIT 1 +#define BLACKBIT 2 +#define FINALIZEDBIT 3 +#define KEYWEAKBIT 3 +#define VALUEWEAKBIT 4 +#define FIXEDBIT 5 +#define SFIXEDBIT 6 +#define WHITEBITS bit2mask(WHITE0BIT, WHITE1BIT) + + +#define iswhite(x) test2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT) +#define isblack(x) testbit((x)->gch.marked, BLACKBIT) +#define isgray(x) (!isblack(x) && !iswhite(x)) + +#define otherwhite(g) (g->currentwhite ^ WHITEBITS) +#define isdead(g,v) ((v)->gch.marked & otherwhite(g) & WHITEBITS) + +#define changewhite(x) ((x)->gch.marked ^= WHITEBITS) +#define gray2black(x) l_setbit((x)->gch.marked, BLACKBIT) + +#define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) + +#define luaC_white(g) cast(lu_byte, (g)->currentwhite & WHITEBITS) + + +#define luaC_checkGC(L) { \ + condhardstacktests(luaD_reallocstack(L, L->stacksize - EXTRA_STACK - 1)); \ + if (G(L)->totalbytes >= G(L)->GCthreshold) \ + luaC_step(L); } + + +#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ + luaC_barrierf(L,obj2gco(p),gcvalue(v)); } + +#define luaC_barriert(L,t,v) { if (valiswhite(v) && isblack(obj2gco(t))) \ + luaC_barrierback(L,t); } + +#define luaC_objbarrier(L,p,o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ + luaC_barrierf(L,obj2gco(p),obj2gco(o)); } + +#define luaC_objbarriert(L,t,o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) luaC_barrierback(L,t); } + +LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all); +LUAI_FUNC void luaC_callGCTM (lua_State *L); +LUAI_FUNC void luaC_freeall (lua_State *L); +LUAI_FUNC void luaC_step (lua_State *L); +LUAI_FUNC void luaC_fullgc (lua_State *L); +LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt); +LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv); +LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); +LUAI_FUNC void luaC_barrierback (lua_State *L, Table *t); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/linit.c b/src/3rd party/LuaJIT-1.1.8/src/linit.c new file mode 100644 index 00000000000..db24ccd78c7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/linit.c @@ -0,0 +1,39 @@ +/* +** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $ +** Initialization of libraries for lua.c +** See Copyright Notice in lua.h +*/ + + +#define linit_c +#define LUA_LIB + +#include "lua.h" + +#include "lualib.h" +#include "lauxlib.h" + + +static const luaL_Reg lualibs[] = { + {"", luaopen_base}, + {LUA_LOADLIBNAME, luaopen_package}, + {LUA_TABLIBNAME, luaopen_table}, + {LUA_IOLIBNAME, luaopen_io}, + {LUA_OSLIBNAME, luaopen_os}, + {LUA_STRLIBNAME, luaopen_string}, + {LUA_MATHLIBNAME, luaopen_math}, + {LUA_DBLIBNAME, luaopen_debug}, + {LUA_JITLIBNAME, luaopen_jit}, + {NULL, NULL} +}; + + +LUALIB_API void luaL_openlibs (lua_State *L) { + const luaL_Reg *lib = lualibs; + for (; lib->func; lib++) { + lua_pushcfunction(L, lib->func); + lua_pushstring(L, lib->name); + lua_call(L, 1, 0); + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/liolib.c b/src/3rd party/LuaJIT-1.1.8/src/liolib.c new file mode 100644 index 00000000000..649f9a59515 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/liolib.c @@ -0,0 +1,556 @@ +/* +** $Id: liolib.c,v 2.73.1.4 2010/05/14 15:33:51 roberto Exp $ +** Standard I/O (and system) library +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define liolib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + + +#define IO_INPUT 1 +#define IO_OUTPUT 2 + + +static const char *const fnames[] = {"input", "output"}; + + +static int pushresult (lua_State *L, int i, const char *filename) { + int en = errno; /* calls to Lua API may change this value */ + if (i) { + lua_pushboolean(L, 1); + return 1; + } + else { + lua_pushnil(L); + if (filename) + lua_pushfstring(L, "%s: %s", filename, strerror(en)); + else + lua_pushfstring(L, "%s", strerror(en)); + lua_pushinteger(L, en); + return 3; + } +} + + +static void fileerror (lua_State *L, int arg, const char *filename) { + lua_pushfstring(L, "%s: %s", filename, strerror(errno)); + luaL_argerror(L, arg, lua_tostring(L, -1)); +} + + +#define tofilep(L) ((FILE **)luaL_checkudata(L, 1, LUA_FILEHANDLE)) + + +static int io_type (lua_State *L) { + void *ud; + luaL_checkany(L, 1); + ud = lua_touserdata(L, 1); + lua_getfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); + if (ud == NULL || !lua_getmetatable(L, 1) || !lua_rawequal(L, -2, -1)) + lua_pushnil(L); /* not a file */ + else if (*((FILE **)ud) == NULL) + lua_pushliteral(L, "closed file"); + else + lua_pushliteral(L, "file"); + return 1; +} + + +static FILE *tofile (lua_State *L) { + FILE **f = tofilep(L); + if (*f == NULL) + luaL_error(L, "attempt to use a closed file"); + return *f; +} + + + +/* +** When creating file handles, always creates a `closed' file handle +** before opening the actual file; so, if there is a memory error, the +** file is not left opened. +*/ +static FILE **newfile (lua_State *L) { + FILE **pf = (FILE **)lua_newuserdata(L, sizeof(FILE *)); + *pf = NULL; /* file handle is currently `closed' */ + luaL_getmetatable(L, LUA_FILEHANDLE); + lua_setmetatable(L, -2); + return pf; +} + + +/* +** function to (not) close the standard files stdin, stdout, and stderr +*/ +static int io_noclose (lua_State *L) { + lua_pushnil(L); + lua_pushliteral(L, "cannot close standard file"); + return 2; +} + + +/* +** function to close 'popen' files +*/ +static int io_pclose (lua_State *L) { + FILE **p = tofilep(L); + int ok = lua_pclose(L, *p); + *p = NULL; + return pushresult(L, ok, NULL); +} + + +/* +** function to close regular files +*/ +static int io_fclose (lua_State *L) { + FILE **p = tofilep(L); + int ok = (fclose(*p) == 0); + *p = NULL; + return pushresult(L, ok, NULL); +} + + +static int aux_close (lua_State *L) { + lua_getfenv(L, 1); + lua_getfield(L, -1, "__close"); + return (lua_tocfunction(L, -1))(L); +} + + +static int io_close (lua_State *L) { + if (lua_isnone(L, 1)) + lua_rawgeti(L, LUA_ENVIRONINDEX, IO_OUTPUT); + tofile(L); /* make sure argument is a file */ + return aux_close(L); +} + + +static int io_gc (lua_State *L) { + FILE *f = *tofilep(L); + /* ignore closed files */ + if (f != NULL) + aux_close(L); + return 0; +} + + +static int io_tostring (lua_State *L) { + FILE *f = *tofilep(L); + if (f == NULL) + lua_pushliteral(L, "file (closed)"); + else + lua_pushfstring(L, "file (%p)", f); + return 1; +} + + +static int io_open (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + const char *mode = luaL_optstring(L, 2, "r"); + FILE **pf = newfile(L); + *pf = fopen(filename, mode); + return (*pf == NULL) ? pushresult(L, 0, filename) : 1; +} + + +/* +** this function has a separated environment, which defines the +** correct __close for 'popen' files +*/ +static int io_popen (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + const char *mode = luaL_optstring(L, 2, "r"); + FILE **pf = newfile(L); + *pf = lua_popen(L, filename, mode); + return (*pf == NULL) ? pushresult(L, 0, filename) : 1; +} + + +static int io_tmpfile (lua_State *L) { + FILE **pf = newfile(L); + *pf = tmpfile(); + return (*pf == NULL) ? pushresult(L, 0, NULL) : 1; +} + + +static FILE *getiofile (lua_State *L, int findex) { + FILE *f; + lua_rawgeti(L, LUA_ENVIRONINDEX, findex); + f = *(FILE **)lua_touserdata(L, -1); + if (f == NULL) + luaL_error(L, "standard %s file is closed", fnames[findex - 1]); + return f; +} + + +static int g_iofile (lua_State *L, int f, const char *mode) { + if (!lua_isnoneornil(L, 1)) { + const char *filename = lua_tostring(L, 1); + if (filename) { + FILE **pf = newfile(L); + *pf = fopen(filename, mode); + if (*pf == NULL) + fileerror(L, 1, filename); + } + else { + tofile(L); /* check that it's a valid file handle */ + lua_pushvalue(L, 1); + } + lua_rawseti(L, LUA_ENVIRONINDEX, f); + } + /* return current value */ + lua_rawgeti(L, LUA_ENVIRONINDEX, f); + return 1; +} + + +static int io_input (lua_State *L) { + return g_iofile(L, IO_INPUT, "r"); +} + + +static int io_output (lua_State *L) { + return g_iofile(L, IO_OUTPUT, "w"); +} + + +static int io_readline (lua_State *L); + + +static void aux_lines (lua_State *L, int idx, int toclose) { + lua_pushvalue(L, idx); + lua_pushboolean(L, toclose); /* close/not close file when finished */ + lua_pushcclosure(L, io_readline, 2); +} + + +static int f_lines (lua_State *L) { + tofile(L); /* check that it's a valid file handle */ + aux_lines(L, 1, 0); + return 1; +} + + +static int io_lines (lua_State *L) { + if (lua_isnoneornil(L, 1)) { /* no arguments? */ + /* will iterate over default input */ + lua_rawgeti(L, LUA_ENVIRONINDEX, IO_INPUT); + return f_lines(L); + } + else { + const char *filename = luaL_checkstring(L, 1); + FILE **pf = newfile(L); + *pf = fopen(filename, "r"); + if (*pf == NULL) + fileerror(L, 1, filename); + aux_lines(L, lua_gettop(L), 1); + return 1; + } +} + + +/* +** {====================================================== +** READ +** ======================================================= +*/ + + +static int read_number (lua_State *L, FILE *f) { + lua_Number d; + if (fscanf(f, LUA_NUMBER_SCAN, &d) == 1) { + lua_pushnumber(L, d); + return 1; + } + else { + lua_pushnil(L); /* "result" to be removed */ + return 0; /* read fails */ + } +} + + +static int test_eof (lua_State *L, FILE *f) { + int c = getc(f); + ungetc(c, f); + lua_pushlstring(L, NULL, 0); + return (c != EOF); +} + + +static int read_line (lua_State *L, FILE *f) { + luaL_Buffer b; + luaL_buffinit(L, &b); + for (;;) { + size_t l; + char *p = luaL_prepbuffer(&b); + if (fgets(p, LUAL_BUFFERSIZE, f) == NULL) { /* eof? */ + luaL_pushresult(&b); /* close buffer */ + return (lua_objlen(L, -1) > 0); /* check whether read something */ + } + l = strlen(p); + if (l == 0 || p[l-1] != '\n') + luaL_addsize(&b, l); + else { + luaL_addsize(&b, l - 1); /* do not include `eol' */ + luaL_pushresult(&b); /* close buffer */ + return 1; /* read at least an `eol' */ + } + } +} + + +static int read_chars (lua_State *L, FILE *f, size_t n) { + size_t rlen; /* how much to read */ + size_t nr; /* number of chars actually read */ + luaL_Buffer b; + luaL_buffinit(L, &b); + rlen = LUAL_BUFFERSIZE; /* try to read that much each time */ + do { + char *p = luaL_prepbuffer(&b); + if (rlen > n) rlen = n; /* cannot read more than asked */ + nr = fread(p, sizeof(char), rlen, f); + luaL_addsize(&b, nr); + n -= nr; /* still have to read `n' chars */ + } while (n > 0 && nr == rlen); /* until end of count or eof */ + luaL_pushresult(&b); /* close buffer */ + return (n == 0 || lua_objlen(L, -1) > 0); +} + + +static int g_read (lua_State *L, FILE *f, int first) { + int nargs = lua_gettop(L) - 1; + int success; + int n; + clearerr(f); + if (nargs == 0) { /* no arguments? */ + success = read_line(L, f); + n = first+1; /* to return 1 result */ + } + else { /* ensure stack space for all results and for auxlib's buffer */ + luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); + success = 1; + for (n = first; nargs-- && success; n++) { + if (lua_type(L, n) == LUA_TNUMBER) { + size_t l = (size_t)lua_tointeger(L, n); + success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l); + } + else { + const char *p = lua_tostring(L, n); + luaL_argcheck(L, p && p[0] == '*', n, "invalid option"); + switch (p[1]) { + case 'n': /* number */ + success = read_number(L, f); + break; + case 'l': /* line */ + success = read_line(L, f); + break; + case 'a': /* file */ + read_chars(L, f, ~((size_t)0)); /* read MAX_SIZE_T chars */ + success = 1; /* always success */ + break; + default: + return luaL_argerror(L, n, "invalid format"); + } + } + } + } + if (ferror(f)) + return pushresult(L, 0, NULL); + if (!success) { + lua_pop(L, 1); /* remove last result */ + lua_pushnil(L); /* push nil instead */ + } + return n - first; +} + + +static int io_read (lua_State *L) { + return g_read(L, getiofile(L, IO_INPUT), 1); +} + + +static int f_read (lua_State *L) { + return g_read(L, tofile(L), 2); +} + + +static int io_readline (lua_State *L) { + FILE *f = *(FILE **)lua_touserdata(L, lua_upvalueindex(1)); + int sucess; + if (f == NULL) /* file is already closed? */ + luaL_error(L, "file is already closed"); + sucess = read_line(L, f); + if (ferror(f)) + return luaL_error(L, "%s", strerror(errno)); + if (sucess) return 1; + else { /* EOF */ + if (lua_toboolean(L, lua_upvalueindex(2))) { /* generator created file? */ + lua_settop(L, 0); + lua_pushvalue(L, lua_upvalueindex(1)); + aux_close(L); /* close it */ + } + return 0; + } +} + +/* }====================================================== */ + + +static int g_write (lua_State *L, FILE *f, int arg) { + int nargs = lua_gettop(L) - 1; + int status = 1; + for (; nargs--; arg++) { + if (lua_type(L, arg) == LUA_TNUMBER) { + /* optimization: could be done exactly as for strings */ + status = status && + fprintf(f, LUA_NUMBER_FMT, lua_tonumber(L, arg)) > 0; + } + else { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + status = status && (fwrite(s, sizeof(char), l, f) == l); + } + } + return pushresult(L, status, NULL); +} + + +static int io_write (lua_State *L) { + return g_write(L, getiofile(L, IO_OUTPUT), 1); +} + + +static int f_write (lua_State *L) { + return g_write(L, tofile(L), 2); +} + + +static int f_seek (lua_State *L) { + static const int mode[] = {SEEK_SET, SEEK_CUR, SEEK_END}; + static const char *const modenames[] = {"set", "cur", "end", NULL}; + FILE *f = tofile(L); + int op = luaL_checkoption(L, 2, "cur", modenames); + long offset = luaL_optlong(L, 3, 0); + op = fseek(f, offset, mode[op]); + if (op) + return pushresult(L, 0, NULL); /* error */ + else { + lua_pushinteger(L, ftell(f)); + return 1; + } +} + + +static int f_setvbuf (lua_State *L) { + static const int mode[] = {_IONBF, _IOFBF, _IOLBF}; + static const char *const modenames[] = {"no", "full", "line", NULL}; + FILE *f = tofile(L); + int op = luaL_checkoption(L, 2, NULL, modenames); + lua_Integer sz = luaL_optinteger(L, 3, LUAL_BUFFERSIZE); + int res = setvbuf(f, NULL, mode[op], sz); + return pushresult(L, res == 0, NULL); +} + + + +static int io_flush (lua_State *L) { + return pushresult(L, fflush(getiofile(L, IO_OUTPUT)) == 0, NULL); +} + + +static int f_flush (lua_State *L) { + return pushresult(L, fflush(tofile(L)) == 0, NULL); +} + + +static const luaL_Reg iolib[] = { + {"close", io_close}, + {"flush", io_flush}, + {"input", io_input}, + {"lines", io_lines}, + {"open", io_open}, + {"output", io_output}, + {"popen", io_popen}, + {"read", io_read}, + {"tmpfile", io_tmpfile}, + {"type", io_type}, + {"write", io_write}, + {NULL, NULL} +}; + + +static const luaL_Reg flib[] = { + {"close", io_close}, + {"flush", f_flush}, + {"lines", f_lines}, + {"read", f_read}, + {"seek", f_seek}, + {"setvbuf", f_setvbuf}, + {"write", f_write}, + {"__gc", io_gc}, + {"__tostring", io_tostring}, + {NULL, NULL} +}; + + +static void createmeta (lua_State *L) { + luaL_newmetatable(L, LUA_FILEHANDLE); /* create metatable for file handles */ + lua_pushvalue(L, -1); /* push metatable */ + lua_setfield(L, -2, "__index"); /* metatable.__index = metatable */ + luaL_register(L, NULL, flib); /* file methods */ +} + + +static void createstdfile (lua_State *L, FILE *f, int k, const char *fname) { + *newfile(L) = f; + if (k > 0) { + lua_pushvalue(L, -1); + lua_rawseti(L, LUA_ENVIRONINDEX, k); + } + lua_pushvalue(L, -2); /* copy environment */ + lua_setfenv(L, -2); /* set it */ + lua_setfield(L, -3, fname); +} + + +static void newfenv (lua_State *L, lua_CFunction cls) { + lua_createtable(L, 0, 1); + lua_pushcfunction(L, cls); + lua_setfield(L, -2, "__close"); +} + + +LUALIB_API int luaopen_io (lua_State *L) { + createmeta(L); + /* create (private) environment (with fields IO_INPUT, IO_OUTPUT, __close) */ + newfenv(L, io_fclose); + lua_replace(L, LUA_ENVIRONINDEX); + /* open library */ + luaL_register(L, LUA_IOLIBNAME, iolib); + /* create (and set) default files */ + newfenv(L, io_noclose); /* close function for default files */ + createstdfile(L, stdin, IO_INPUT, "stdin"); + createstdfile(L, stdout, IO_OUTPUT, "stdout"); + createstdfile(L, stderr, 0, "stderr"); + lua_pop(L, 1); /* pop environment for default files */ + lua_getfield(L, -1, "popen"); + newfenv(L, io_pclose); /* create environment for 'popen' */ + lua_setfenv(L, -2); /* set fenv for 'popen' */ + lua_pop(L, 1); /* pop 'popen' */ + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit.h b/src/3rd party/LuaJIT-1.1.8/src/ljit.h new file mode 100644 index 00000000000..666fe5920ba --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit.h @@ -0,0 +1,167 @@ +/* +** Interface to JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef ljit_h +#define ljit_h + +#include "lobject.h" + + +/* Define this to enable assertions when debugging LuaJIT. */ +#ifdef LUAJIT_ASSERT +#include +#define jit_assert(x) assert(x) +#define DASM_CHECKS +#else +/* A better idea is to define lua_assert() in luaconf.h. */ +#define jit_assert(x) lua_assert(x) +#endif + +/* Define this to set the C stack size for the compiler thread. */ +/* The compiler runs on the callers C stack otherwise. */ +#undef LUAJIT_COMPILER_CSTACK + +/* Hardcoded limits for the backend to avoid useless work. */ +/* Note: mind you, these are very generous limits. Check jit.opt, too. */ +#define LUAJIT_LIM_BYTECODE 3000 /* Max. # of bytecodes. */ +#define LUAJIT_LIM_MCODE 128000 /* Max. mcode size of a function. */ + +/* Global JIT engine flags. */ +#define JIT_F_ON 0x0001 /* JIT engine is on. */ +#define JIT_F_COMPILING 0x0002 /* Currently compiling. */ +#define JIT_F_INIT_FAILED 0x0004 /* Initialization failed. */ + +#define JIT_F_CPU_CMOV 0x0010 /* CPU has conditional move support. */ +#define JIT_F_CPU_SSE2 0x0020 /* CPU has SSE2 support. */ + +#define JIT_F_DEBUG_CALL 0x0100 /* Compile with call hooks. */ +#define JIT_F_DEBUG_INS 0x0200 /* Compile with instruction hooks. */ +#define JIT_F_DEBUG 0x0f00 /* Union of all debug flags. */ + +/* Temporary backend flags. */ +#define JIT_TF_USED_DEOPT 0x0001 /* Used .deopt segment. */ + +/* JIT engine status codes for prototypes (grep "ORDER JIT_S"). */ +enum { + JIT_S_OK, /* OK, code has been compiled. */ + JIT_S_NONE, /* Nothing compiled yet (default). */ + + JIT_S_OFF, /* Compilation for this prototype disabled. */ + JIT_S_ENGINE_OFF, /* JIT engine is turned off. */ + JIT_S_DELAYED, /* Compilation delayed (recursive invocation). */ + + JIT_S_TOOLARGE, /* Bytecode or machine code is too large. */ + JIT_S_COMPILER_ERROR, /* Error from compiler frontend. */ + JIT_S_DASM_ERROR, /* Error from DynASM engine. */ + + JIT_S_MAX +}; + +/* Machine code trailer and mcode fragment map. */ +typedef struct jit_MCTrailer { + char *mcode; /* Pointer to next machine code block. */ + size_t sz; /* Size of next machine code block. */ +} jit_MCTrailer; + +typedef unsigned short jit_Mfm; + +/* Deliberately return a void * because the trailer is not fully aligned. */ +#define JIT_MCTRAILER(mcode, sz) \ + ((void *)(((char *)(mcode))+(sz)-sizeof(jit_MCTrailer))) +#define JIT_MCMFM(mcode, sz) \ + ((jit_Mfm *)(((char *)(mcode))+(sz)-sizeof(jit_MCTrailer)-sizeof(jit_Mfm))) + +#define JIT_MFM_MAX 0x7ff0 /* Max. mcode fragment length. */ +#define JIT_MFM_MASK 0x7fff /* Tag mask. */ +#define JIT_MFM_MARK 0x8000 /* Deoptimized (main mfm), seek (deopt mfm). */ +#define JIT_MFM_COMBINE 0xfffd /* Combined with prev. instruction(s). */ +#define JIT_MFM_DEAD 0xfffe /* Dead instruction. */ +#define JIT_MFM_STOP 0xffff /* End of map. */ + +#define jit_mfm_ismain(mfm) (!(*(mfm) & JIT_MFM_MARK)) +#define jit_mfm_isdeoptpc(mfm, pc) ((mfm)[-(pc)] & JIT_MFM_MARK) + +/* Deoptimization hints at end of mfm. */ +#define JIT_MFM_DEOPT_PAIRS 0xfffc /* CALL+TFORLOOP inlined (i)pairs. */ + +/* Preallocation for the hash part of the compiler state table. */ +#define COMSTATE_PREALLOC 128 + +/* Forward declaration for DynASM state. */ +struct dasm_State; + +/* Frontend wrapper. */ +typedef int (*jit_FrontWrap)(lua_State *L, Table *st); + +/* Global JIT state. */ +typedef struct jit_State { + /* Permanent backend environment: */ + struct dasm_State *D; /* DynASM state. Keep this as the first field. */ + void *mcodeheap; /* Private heap to allocate executable memory from. */ + void **jsub; /* Addresses of JIT subroutines. */ + void *jsubmcode; /* Base address of JSUB mcode. */ + size_t szjsubmcode; /* Size of JSUB mcode. */ + int numjsub; /* Number of JSUBs. */ + + /* Temporary backend environment (valid only while running): */ + lua_State *L; /* Compiler thread. */ + Table *comstate; /* Compiler state table. */ + Proto *pt; /* Currently compiled prototype. */ + const Instruction *nextins; /* Pointer to next instruction. */ + jit_Mfm *mfm; /* Position in temporary mcode fragment map. */ + int nextpc; /* Next PC. */ + int combine; /* Number of following instructions to combine. */ + unsigned int tflags; /* Temporary flags. */ + int dasmstatus; /* DynASM status code. */ + + /* JIT engine fields: */ + jit_FrontWrap frontwrap; /* Compiler frontend wrapper. */ + unsigned int flags; /* Global JIT engine flags. */ +} jit_State; + + +/* --- ljit_core.c */ + +/* Initialize and free JIT engine state. */ +LUAI_FUNC void luaJIT_initstate(lua_State *L); +LUAI_FUNC void luaJIT_freestate(lua_State *L); + +/* Compile and run a function. */ +LUAI_FUNC int luaJIT_run(lua_State *L, StkId func, int nresults); +/* Deoptimize the current instruction. Return new mcode addr to continue. */ +LUAI_FUNC void *luaJIT_deoptimize(lua_State *L); + +/* Find relative PC (0 based) for a bytecode pointer or a JIT mcode address. */ +LUAI_FUNC int luaJIT_findpc(Proto *pt, const Instruction *savedpc); +/* Find mcode address for PC (1 based). */ +LUAI_FUNC void *luaJIT_findmcode(Proto *pt, int pc); + + +/* --- ljit_backend.c */ + +/* Arch string. */ +LUAI_DATA const char luaJIT_arch[]; +/* Initialize and free compiler backend. */ +LUAI_FUNC int luaJIT_initbackend(lua_State *L); +LUAI_FUNC void luaJIT_freebackend(lua_State *L); +/* Compiler backend. */ +LUAI_FUNC int luaJIT_backend(lua_State *L); +/* Notify backend that the debug mode may have changed. */ +LUAI_FUNC void luaJIT_debugnotify(jit_State *J); + + +/* ---- ljit_mem.c */ + +/* Free the mcode heap. */ +LUAI_FUNC void luaJIT_freemcodeheap(jit_State *J); +/* Free mcode. */ +LUAI_FUNC void luaJIT_freemcode(jit_State *J, void *mcode, size_t sz); +/* Free JIT structures in function prototype. */ +LUAI_FUNC void luaJIT_freeproto(lua_State *L, Proto *pt); +/* Link generated code. */ +LUAI_FUNC int luaJIT_link(jit_State *J, void **mcodep, size_t *szp); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c new file mode 100644 index 00000000000..f025820719f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c @@ -0,0 +1,342 @@ +/* +** LuaJIT wrapper for architecture-specific compiler backend. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include +#include + +#define ljit_backend_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" +#include "lopcodes.h" +#include "ldebug.h" +#include "lzio.h" + +#include "ljit.h" +#include "ljit_hints.h" +#include "ljit_dasm.h" + +/* ------------------------------------------------------------------------ */ + +/* Get target of combined JMP op. */ +static int jit_jmp_target(jit_State *J) +{ + J->combine++; + jit_assert(GET_OPCODE(*J->nextins)==OP_JMP); + return J->nextpc + 1 + GETARG_sBx(*J->nextins); +} + +/* ------------------------------------------------------------------------ */ + +/* Include pre-processed architecture-specific backend. */ +#if defined(__i386) || defined(__i386__) || defined(_M_IX86) +#ifndef LUA_NUMBER_DOUBLE +#error "No support for other number types on x86 (yet)" +#endif +#include "ljit_x86.h" +#else +#error "No support for this architecture (yet)" +#endif + +/* ------------------------------------------------------------------------ */ + +/* Compile instruction range. */ +static void jit_compile_irange(jit_State *J, int firstpc, int lastpc) +{ + J->combine = 0; + J->nextpc = firstpc; + J->nextins = J->pt->code + (firstpc-1); + while (J->nextpc <= lastpc) { + Instruction ins = *J->nextins++; + OpCode op = GET_OPCODE(ins); + int ra = GETARG_A(ins); + int rb = GETARG_B(ins); + int rc = GETARG_C(ins); + int rbx = GETARG_Bx(ins); + const TValue *combinehint; + + jit_ins_start(J); + J->nextpc++; + + combinehint = hint_get(J, COMBINE); + if (ttisboolean(combinehint)) { + if (bvalue(combinehint)) { /* COMBINE = true: combine with next ins. */ + if (!(J->flags & JIT_F_DEBUG)) /* But not when debugging. */ + J->combine = 1; + } else { /* COMBINE = false: dead instruction. */ + *J->mfm++ = JIT_MFM_DEAD; + continue; + } + } /* Other COMBINE hint value types are not defined (yet). */ + + if (J->flags & JIT_F_DEBUG_INS) + jit_ins_debug(J, luaG_checkopenop(ins)); + + switch (op) { + case OP_MOVE: jit_op_move(J, ra, rb); break; + case OP_LOADK: jit_op_loadk(J, ra, rbx); break; + case OP_LOADBOOL: jit_op_loadbool(J, ra, rb, rc); break; + case OP_LOADNIL: jit_op_loadnil(J, ra, rb); break; + + case OP_GETUPVAL: jit_op_getupval(J, ra, rb); break; + case OP_SETUPVAL: jit_op_setupval(J, ra, rb); break; + + case OP_GETGLOBAL: jit_op_getglobal(J, ra, rbx); break; + case OP_SETGLOBAL: jit_op_setglobal(J, ra, rbx); break; + + case OP_NEWTABLE: jit_op_newtable(J, ra, rb, rc); break; + case OP_GETTABLE: jit_op_gettable(J, ra, rb, rc); break; + case OP_SETTABLE: jit_op_settable(J, ra, rb, rc); break; + case OP_SELF: jit_op_self(J, ra, rb, rc); break; + case OP_SETLIST: jit_op_setlist(J, ra, rb, rc); break; + + case OP_ADD: jit_op_arith(J, ra, rb, rc, TM_ADD); break; + case OP_SUB: jit_op_arith(J, ra, rb, rc, TM_SUB); break; + case OP_MUL: jit_op_arith(J, ra, rb, rc, TM_MUL); break; + case OP_DIV: jit_op_arith(J, ra, rb, rc, TM_DIV); break; + case OP_MOD: jit_op_arith(J, ra, rb, rc, TM_MOD); break; + case OP_POW: jit_op_arith(J, ra, rb, rc, TM_POW); break; + case OP_UNM: jit_op_arith(J, ra, rb, rb, TM_UNM); break; /* rc unused. */ + + case OP_LEN: jit_op_len(J, ra, rb); break; + case OP_NOT: jit_op_not(J, ra, rb); break; + + case OP_CONCAT: jit_op_concat(J, ra, rb, rc); break; + + case OP_EQ: jit_op_eq(J, ra, rb, rc); break; + case OP_LT: jit_op_arith(J, ra, rb, rc, TM_LT); break; + case OP_LE: jit_op_arith(J, ra, rb, rc, TM_LE); break; + + case OP_TEST: jit_op_test(J, rc, ra, ra); break; + case OP_TESTSET: jit_op_test(J, rc, ra, rb); break; + + case OP_JMP: jit_op_jmp(J, J->nextpc + rbx-MAXARG_sBx); break; + + case OP_CALL: jit_op_call(J, ra, rb-1, rc-1); break; + case OP_TAILCALL: jit_op_tailcall(J, ra, rb-1); break; + case OP_RETURN: jit_op_return(J, ra, rb-1); break; + + case OP_FORLOOP: jit_op_forloop(J, ra, J->nextpc + rbx-MAXARG_sBx); break; + case OP_FORPREP: jit_op_forprep(J, ra, J->nextpc + rbx-MAXARG_sBx); break; + + case OP_TFORLOOP: jit_op_tforloop(J, ra, rc); break; + + case OP_CLOSE: jit_op_close(J, ra); break; + case OP_CLOSURE: jit_op_closure(J, ra, rbx); break; + + case OP_VARARG: jit_op_vararg(J, ra, rb-1); break; + + default: jit_assert(0); break; + } + + /* Convention: all opcodes start and end with the .code section. */ + if (dasm_checkstep(Dst, DASM_SECTION_CODE)) { J->nextpc--; return; } + + *J->mfm++ = 0; /* Placeholder mfm entry. Replaced later. */ + if (J->combine > 0) { /* Combine next J->combine ins with prev ins. */ + J->nextpc += J->combine; + J->nextins += J->combine; + do { *J->mfm++ = JIT_MFM_COMBINE; } while (--J->combine); + } + } +} + +/* Merge temporary mfm (forward) with PC labels to inverse mfm in mcode. */ +static void jit_mfm_merge(jit_State *J, jit_Mfm *from, jit_Mfm *to, int maxpc) +{ + int pc = 1, ofs = 0; + for (;;) { + int m = *from++; + if (m & JIT_MFM_MARK) { + switch (m) { + default: pc = m ^ JIT_MFM_MARK; break; + case JIT_MFM_COMBINE: case JIT_MFM_DEAD: break; + case JIT_MFM_STOP: return; + } + } else { + int idx, nofs; + for (idx = 0; from[idx] == JIT_MFM_COMBINE; idx++) ; + idx += pc; + if (idx == J->nextpc) idx = maxpc + 1; + nofs = dasm_getpclabel(Dst, idx); + m = nofs - ofs; + ofs = nofs; + jit_assert(nofs >= 0 && m >= 0 && m < JIT_MFM_MAX); + } + pc++; + *to-- = m; + } +} + +/* Compile function prototype. */ +static int jit_compile_proto(jit_State *J, Table *deopt) +{ + jit_Mfm *tempmfm; + void *mcode; + size_t sz; + int firstpc = 0, maxpc = J->pt->sizecode; + int deoptidx = 1; + int status; + /* (Ab)use the global string concatenation buffer for the temporary mfm. */ + /* Caveat: the GC must not be run while the backend is active. */ + tempmfm = (jit_Mfm *)luaZ_openspace(J->L, &G(J->L)->buff, + (1+maxpc+1+1+1)*sizeof(jit_Mfm)); +nextdeopt: + J->mfm = tempmfm; + J->tflags = 0; + /* Setup DynASM. */ + dasm_growpc(Dst, 1+maxpc+2); /* See jit_ins_last(). */ + dasm_setup(Dst, jit_actionlist); + if (deopt) { /* Partial deoptimization. */ + /* TODO: check deopt chain length? problem: pairs TFOR_CTL migration. */ + int pc, lastpc; + lua_Number n; + const TValue *obj = luaH_getnum(deopt, deoptidx++); + if (ttisnil(obj) && deoptidx != 2) return JIT_S_OK; + if (!ttisnumber(obj)) return JIT_S_COMPILER_ERROR; + n = nvalue(obj); + lua_number2int(pc, n); + firstpc = JIT_IH_IDX(pc); + lastpc = firstpc + JIT_IH_LIB(pc); + if (firstpc < 1 || firstpc > maxpc || lastpc > maxpc || + J->pt->jit_szmcode == 0) + return JIT_S_COMPILER_ERROR; + *J->mfm++ = JIT_MFM_MARK+firstpc; /* Seek to firstpc. */ + jit_compile_irange(J, firstpc, lastpc); + jit_assert(J->nextpc == lastpc+1); /* Problem with combined ins? */ + if (J->nextpc <= maxpc) jit_ins_chainto(J, J->nextpc); + *J->mfm++ = JIT_MFM_MARK+maxpc+1; /* Seek to .deopt/.tail. */ + for (pc = 1; pc <= maxpc; pc++) + if (dasm_getpclabel(Dst, pc) == -1) { /* Undefind label referenced? */ + jit_ins_setpc(J, pc, luaJIT_findmcode(J->pt, pc)); /* => Old mcode. */ + } + } else { /* Full compile. */ + *J->mfm++ = 0; /* Placeholder mfm entry for prologue. */ + jit_prologue(J); + jit_compile_irange(J, 1, maxpc); + } + *J->mfm++ = 0; /* Placeholder mfm entry for .deopt/.tail. */ + *J->mfm = JIT_MFM_STOP; + jit_ins_last(J, maxpc, (char *)J->mfm - (char *)tempmfm); + + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + + jit_mfm_merge(J, tempmfm, JIT_MCMFM(mcode, sz), maxpc); + + if (deopt) { + jit_MCTrailer tr; + /* Patch first instruction to jump to the deoptimized code. */ + jit_patch_jmp(J, luaJIT_findmcode(J->pt, firstpc), mcode); + /* Mark instruction as deoptimized in main mfm. */ + JIT_MCMFM(J->pt->jit_mcode, J->pt->jit_szmcode)[-firstpc] |= JIT_MFM_MARK; + /* Chain deopt mcode block between main mfm and existing mfms. */ + memcpy(JIT_MCTRAILER(mcode, sz), + JIT_MCTRAILER(J->pt->jit_mcode, J->pt->jit_szmcode), + sizeof(jit_MCTrailer)); + tr.mcode = (char *)mcode; + tr.sz = sz; + memcpy(JIT_MCTRAILER(J->pt->jit_mcode, J->pt->jit_szmcode), (void *)&tr, + sizeof(jit_MCTrailer)); + goto nextdeopt; + } + + if (J->pt->jit_szmcode != 0) { /* Full recompile? */ + jit_MCTrailer tr; + /* Patch old mcode entry so other closures get the new callgate. */ + jit_patch_jmp(J, J->pt->jit_mcode, J->jsub[JSUB_GATE_JL]); + /* Chain old main mfm after new main mfm. */ + tr.mcode = (char *)J->pt->jit_mcode; + tr.sz = J->pt->jit_szmcode; + memcpy(JIT_MCTRAILER(mcode, sz), (void *)&tr, sizeof(jit_MCTrailer)); + } + /* Set new main mcode block. */ + J->pt->jit_mcode = mcode; + J->pt->jit_szmcode = sz; + return JIT_S_OK; +} + +/* ------------------------------------------------------------------------ */ + +/* Compiler backend. */ +int luaJIT_backend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + const TValue *cl; + int status = JIT_S_COMPILER_ERROR; + lua_lock(L); + /* Remember compiler state table. */ + jit_assert(L->top > L->base && ttistable(L->top-1)); + J->comstate = hvalue(L->top-1); + /* Fetch prototoype. Better check this in case some handler screwed up. */ + cl = luaH_getstr(J->comstate, luaS_newliteral(L, "func")); + if (isLfunction(cl)) { + J->pt = clvalue(cl)->l.p; + if (J->pt->sizecode > LUAJIT_LIM_BYTECODE) { /* Hard backend limit. */ + status = JIT_S_TOOLARGE; + } else { + const TValue *obj = luaH_getstr(J->comstate, + luaS_newliteral(J->L, "deopt")); + status = jit_compile_proto(J, ttistable(obj) ? hvalue(obj) : (Table *)0); + } + } + lua_unlock(L); + J->comstate = NULL; /* Just in case. */ + J->pt = NULL; + if (status == JIT_S_OK) { + return 0; + } else { + if (status == JIT_S_DASM_ERROR) { + lua_pushinteger(L, J->nextpc); + lua_setfield(L, 1, "dasm_pc"); + lua_pushinteger(L, J->dasmstatus); + lua_setfield(L, 1, "dasm_err"); + } + lua_pushinteger(L, status); + return 1; + } +} + +/* Initialize compiler backend. */ +int luaJIT_initbackend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + J->L = L; + J->pt = NULL; /* Not in use. */ + J->D = NULL; + J->mcodeheap = NULL; + J->jsubmcode = NULL; + J->szjsubmcode = 0; + J->numjsub = JSUB__MAX; + J->jsub = luaM_newvector(J->L, JSUB__MAX, void *); + memset((void *)J->jsub, 0, JSUB__MAX*sizeof(void *)); /* Just in case. */ + dasm_init(Dst, DASM_MAXSECTION); + dasm_setupglobal(Dst, J->jsub, JSUB__MAX); + return jit_compile_jsub(J); +} + +/* Free compiler backend. */ +void luaJIT_freebackend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + J->L = L; + if (J->jsub) luaM_freearray(L, J->jsub, JSUB__MAX, void *); + luaJIT_freemcodeheap(J); /* Frees JSUB mcode, too. */ + dasm_free(Dst); +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c new file mode 100644 index 00000000000..9d584e5b08c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c @@ -0,0 +1,385 @@ +/* +** Interface to JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_core_c +#define LUA_CORE + +#include + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lstring.h" +#include "ltable.h" +#include "ldebug.h" +#include "lopcodes.h" + +#include "ljit.h" +#include "ljit_hints.h" +#include "luajit.h" + +const char luajit_ident[] = + "$LuaJIT: " LUAJIT_VERSION " " LUAJIT_COPYRIGHT " " LUAJIT_URL " $\n"; + +/* ------------------------------------------------------------------------ */ + +/* Initialize JIT engine state. */ +void luaJIT_initstate(lua_State *L) +{ + jit_State *J = luaM_new(L, jit_State); + G(L)->jit_state = J; + /* Clear JIT engine fields. */ + J->frontwrap = NULL; /* Filled in by ljitlib before enabling the engine. */ + J->flags = 0; /* Disable the JIT engine by default. */ + /* Try to initialize the backend. */ + if (luaJIT_initbackend(L) != JIT_S_OK) + J->flags = JIT_F_INIT_FAILED; + J->L = NULL; /* No compiler thread allocated, yet. */ +} + +/* Free JIT engine state. */ +void luaJIT_freestate(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + if (J == NULL) return; + luaJIT_freebackend(L); + luaM_free(L, J); + G(L)->jit_state = NULL; +} + +/* ------------------------------------------------------------------------ */ + +/* Find relative PC (0 based) for a bytecode pointer or a JIT mcode address. */ +int luaJIT_findpc(Proto *pt, const Instruction *savedpc) +{ + ptrdiff_t pcdiff = savedpc - pt->code; + if (pcdiff >= 0 && pcdiff <= pt->sizecode) { /* Bytecode pointer? */ + return (int)pcdiff-1; + } else { /* Else translate JIT mcode address to PC. */ + char *addr = (char *)savedpc; + jit_MCTrailer tr; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + /* Follow trailer chain until addr is part of an mcode block. */ + while (!((size_t)(addr - tr.mcode) < tr.sz)) { + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), + sizeof(jit_MCTrailer)); + if (tr.mcode == NULL) return -1; /* Not in chain. */ + } + { + jit_Mfm *mfm = JIT_MCMFM(tr.mcode, tr.sz); + int ofs = (int)(addr - tr.mcode); + int isdeopt = !jit_mfm_ismain(mfm); + int pc = 0; /* Prologue fragment is at start of main mfm. */ + while (pc <= pt->sizecode) { + int m = *mfm--; + switch (m) { + default: + if (m & JIT_MFM_MARK) { + m ^= JIT_MFM_MARK; + if (isdeopt) { pc = m; continue; } /* Seek. */ + } + ofs -= m; + if (ofs <= 0) return pc-1; /* Found! */ + case JIT_MFM_COMBINE: + case JIT_MFM_DEAD: + pc++; + break; + case JIT_MFM_STOP: + jit_assert(0); /* Premature STOP found. */ + return -1; + } + } + jit_assert(0); /* Address is in .tail. */ + return -1; + } + } +} + +/* Lookup mcode address for PC (1 based) in mfm. */ +static void *jit_mfmlookup(jit_Mfm *mfm, char *addr, int mpc) +{ + int isdeopt = !jit_mfm_ismain(mfm); + int pc = 0; /* Prologue fragment is at start of main mfm. */ + while (pc != mpc) { + int m = *mfm--; + switch (m) { + default: + if (m & JIT_MFM_MARK) { + m ^= JIT_MFM_MARK; + if (isdeopt) { pc = m; continue; } /* Seek. */ + } + addr += m; + case JIT_MFM_COMBINE: + case JIT_MFM_DEAD: + pc++; + break; + case JIT_MFM_STOP: + return NULL; + } + } + return (void *)addr; +} + +/* Find mcode address for PC (1 based). */ +void *luaJIT_findmcode(Proto *pt, int pc) +{ + void *addr = NULL; + jit_Mfm *mfm; + jit_MCTrailer tr; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + mfm = JIT_MCMFM(tr.mcode, tr.sz); + jit_assert(pc >= 1 && pc <= pt->sizecode); + while (mfm[-pc] == JIT_MFM_COMBINE) pc--; + while (mfm[-pc] == JIT_MFM_DEAD) pc++; + jit_assert(pc >= 1 && mfm[-pc] < (JIT_MFM_MARK|JIT_MFM_MAX)); /* Valid? */ + if (jit_mfm_isdeoptpc(mfm, pc)) { /* Deoptimized instruction. */ + do { /* Search through deopt mfm chain. */ + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), + sizeof(jit_MCTrailer)); + if (tr.mcode == NULL) break; /* Deopt ins missing in chain. */ + mfm = JIT_MCMFM(tr.mcode, tr.sz); + if (jit_mfm_ismain(mfm)) break; /* Old main mfm stops search, too. */ + addr = jit_mfmlookup(mfm, tr.mcode, pc); + } while (addr == NULL); + } else { /* Not deoptimized. Lookup in main mfm. */ + addr = jit_mfmlookup(mfm, tr.mcode, pc); + } + jit_assert(addr != NULL); /* Corrupt mfm chain. */ + return addr; +} + +/* ------------------------------------------------------------------------ */ + +/* Compile a prototype. */ +/* Note: func pointer may be invalidated because of stack reallocation. */ +static int jit_compile(lua_State *L, StkId func, Table *st, int force) +{ + jit_State *J = G(L)->jit_state; + Closure *cl = clvalue(func); + Proto *pt = cl->l.p; + int status; + + /* Check if JIT engine is enabled and prevent recursive invocation. */ + if ((J->flags & JIT_F_INIT_FAILED) || + (!force && !(J->flags & JIT_F_ON)) || + !J->frontwrap) { + status = JIT_S_ENGINE_OFF; + } else if (J->flags & JIT_F_COMPILING) { + status = JIT_S_DELAYED; + } else if (pt->jit_szmcode != 0 && force < 2) { /* Prevent recompile. */ + /* TODO: Allow recompiles? Use case? Extra flag for jit.compile()? */ + status = JIT_S_OK; + } else { + setclvalue(L, luaH_setstr(L, st, luaS_newliteral(L, "func")), cl); + /* Call frontend wrapper. */ + J->flags |= JIT_F_COMPILING; + lua_unlock(L); + status = J->frontwrap(L, st); + lua_lock(L); + J->flags &= ~JIT_F_COMPILING; + } + + /* Better sanity check what the frontend returns. */ + if ((status == JIT_S_OK && pt->jit_szmcode == 0) || status == JIT_S_NONE) + status = JIT_S_COMPILER_ERROR; + + /* Update closure callgate and prototype status. */ + cl->l.jit_gate = (status == JIT_S_OK) ? (lua_CFunction)pt->jit_mcode : + G(L)->jit_gateJL; + pt->jit_status = status; + return status; +} + +/* Create the state table and copy the arguments. */ +static Table *jit_createstate(lua_State *L, StkId arg, int nargs) +{ + Table *st = luaH_new(L, nargs, COMSTATE_PREALLOC); + int i; + for (i = 0; i < nargs; i++) + setobj2t(L, luaH_setnum(L, st, i+1), arg+i); + return st; +} + +/* ------------------------------------------------------------------------ */ + +/* Compile and run a function. To be used by luaD_precall() only. */ +int luaJIT_run(lua_State *L, StkId func, int nresults) +{ + ptrdiff_t funcr = savestack(L, func); + Table *st = jit_createstate(L, func+1, L->top-(func+1)); + int status = jit_compile(L, func, st, 0); /* Compile function. */ + func = restorestack(L, funcr); + + /* Run the compiled function on success. Fallback to bytecode on failure. */ + if (status == JIT_S_OK) + return G(L)->jit_gateLJ(L, func, nresults); + else + return luaD_precall(L, func, nresults); + /* Note: We are called from luaD_precall and we call it again. */ + /* So jit_compile makes sure pt->jit_status != JIT_S_NONE. */ +} + +/* ------------------------------------------------------------------------ */ + +/* No more than two ranges for a single deoptimization right now. */ +#define DEOPTRANGE_ALLOC 2 + +/* Find PC range of combined instructions and return a range hint. */ +static int combinedrange(jit_Mfm *mfm, int pc) +{ + int lastpc = pc; + while (mfm[-pc] == JIT_MFM_COMBINE) pc--; /* 1st comb. ins. */ + while (mfm[-(lastpc+1)] == JIT_MFM_COMBINE) lastpc++; /* Last comb. ins. */ + return JIT_IH_MKIDX(lastpc-pc, pc); /* (#ins-1, pc) in hint format. */ +} + +/* Process deoptimization hints for the given PC range. */ +static int deopthints(Proto *pt, jit_Mfm *dh, TValue *dhint, int pcrange) +{ + int m; + setnvalue(dhint++, (lua_Number)pcrange); + while ((m = *dh--) != JIT_MFM_STOP) { + if ((unsigned int)(m - JIT_IH_IDX(pcrange)) <= + (unsigned int)JIT_IH_LIB(pcrange)) { + switch (*dh--) { + case JIT_MFM_DEOPT_PAIRS: /* CALL [i]pairs(): deopt TFORLOOP+JMP. */ + if (GET_OPCODE(pt->code[m+1-1]) == OP_JMP) { + int tfpc = m+2 + GETARG_sBx(pt->code[m+1-1]); + if ((unsigned)tfpc < (unsigned)pt->sizecode && + GET_OPCODE(pt->code[tfpc-1]) == OP_TFORLOOP) { + setnvalue(dhint++, (lua_Number)JIT_IH_MKIDX(1, tfpc)); + break; + } + } + return 1; /* Bad hint. */ + default: + return 1; /* Cannot tolerate unknown deoptimization hints. */ + } + } + } + return 0; /* Ok. */ +} + +/* Deoptimize the current instruction. Return new mcode addr to continue. */ +void *luaJIT_deoptimize(lua_State *L) +{ + StkId func = L->ci->func; + Proto *pt = clvalue(func)->l.p; + int pc = luaJIT_findpc(pt, L->savedpc)+1; /* Get prev. PC (1 based). */ + jit_Mfm *mfm = JIT_MCMFM(pt->jit_mcode, pt->jit_szmcode); + int pcrange = combinedrange(mfm, pc); + if (!jit_mfm_isdeoptpc(mfm, JIT_IH_IDX(pcrange))) { /* Not deopt. yet? */ + Table *st = jit_createstate(L, NULL, 0); /* Don't know original args. */ + Table *deopt = luaH_new(L, DEOPTRANGE_ALLOC, 0); + sethvalue(L, luaH_setstr(L, st, luaS_newliteral(L, "deopt")), deopt); + if (deopthints(pt, mfm-(pt->sizecode+2), deopt->array, pcrange) || + jit_compile(L, func, st, 2) != JIT_S_OK) + luaG_runerror(L, "deoptimization failed"); + } + return luaJIT_findmcode(pt, pc); +} + +/* ------------------------------------------------------------------------ */ + +/* API function: Compile a Lua function. Pass arguments as hints. */ +LUA_API int luaJIT_compile(lua_State *L, int nargs) +{ + StkId func; + Table *st; + int status; + lua_lock(L); + api_check(L, (nargs+1) <= (L->top - L->base)); + func = L->top - (nargs+1); + st = jit_createstate(L, func+1, nargs); + status = isLfunction(func) ? jit_compile(L, func, st, 1) : -1; + lua_unlock(L); + return status; +} + +/* Recursively set the mode for all subroutines. */ +static void rec_setmode(Proto *pt, int on) +{ + int i; + for (i = 0; i < pt->sizep; i++) { + Proto *pti = pt->p[i]; + pti->jit_status = on ? (pti->jit_szmcode?JIT_S_OK:JIT_S_NONE) : JIT_S_OFF; + rec_setmode(pti, on); /* Recurse into proto. */ + } +} + +/* API function: Set the JIT mode for the whole engine or a function+subs. */ +LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode) +{ + jit_State *J = G(L)->jit_state; + int mm = mode & LUAJIT_MODE_MASK; + if (J->flags & JIT_F_INIT_FAILED) return -1; /* Init failed. */ + switch (mm) { + case LUAJIT_MODE_ENGINE: /* Set mode for JIT engine. */ + if (mode & LUAJIT_MODE_ON) + J->flags |= JIT_F_ON; + else + J->flags &= ~JIT_F_ON; + break; + case LUAJIT_MODE_DEBUG: { /* Set debug mode. */ + int dbg; + switch (idx) { + case 0: dbg = 0; break; + case 1: dbg = JIT_F_DEBUG_CALL; break; + case 2: default: dbg = JIT_F_DEBUG_CALL | JIT_F_DEBUG_INS; break; + } + J->flags = (J->flags & ~JIT_F_DEBUG) | dbg; + luaJIT_debugnotify(J); + break; + } + case LUAJIT_MODE_FUNC: /* Set mode for function. */ + case LUAJIT_MODE_ALLFUNC: /* Set mode for function + subfuncs. */ + case LUAJIT_MODE_ALLSUBFUNC: { /* Set mode for subfunctions. */ + StkId func; + lua_lock(L); + func = idx == 0 ? (L->ci-1)->func : + (idx > 0 ? L->base + (idx-1) : L->top + idx); + if (isLfunction(func)) { + Closure *cl = clvalue(func); + Proto *pt = cl->l.p; + if (mm != LUAJIT_MODE_ALLSUBFUNC) { + if (mode & LUAJIT_MODE_ON) { + if (pt->jit_szmcode) { /* Already compiled? */ + cl->l.jit_gate = (lua_CFunction)pt->jit_mcode; /* Reenable. */ + pt->jit_status = JIT_S_OK; + } else { + pt->jit_status = JIT_S_NONE; /* (Re-)enable proto compilation */ + } + } else { + cl->l.jit_gate = G(L)->jit_gateJL; /* Default callgate. */ + pt->jit_status = JIT_S_OFF; /* Disable proto compilation. */ + /* Note: compiled code must be retained for suspended threads. */ + } + } + if (mm != LUAJIT_MODE_FUNC) + rec_setmode(pt, mode & LUAJIT_MODE_ON); + lua_unlock(L); + } else { + lua_unlock(L); + return 0; /* Failed. */ + } + break; + } + default: + return 0; /* Failed. */ + } + return 1; /* OK. */ +} + +/* Enforce (dynamic) linker error for version mismatches. See lua.c. */ +LUA_API void LUAJIT_VERSION_SYM(void) +{ +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c new file mode 100644 index 00000000000..8f8f3a9ae98 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c @@ -0,0 +1,38 @@ +/* +** Wrapper for architecture-specific DynASM encoder. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_dasm_c +#define LUA_CORE + + +#include "lua.h" + +#include "ljit.h" +#include "ljit_dasm.h" +#include "lmem.h" + + +/* Glue macros for DynASM memory allocation. */ +#define DASM_M_GROW(J, t, p, sz, need) \ + do { \ + size_t _sz = (sz), _need = (need); \ + if (_sz < _need) { \ + if (_sz < 16) _sz = 16; \ + while (_sz < _need) _sz += _sz; \ + (p) = (t *)luaM_realloc_(J->L, (p), (sz), _sz); \ + (sz) = _sz; \ + } \ + } while(0) + +#define DASM_M_FREE(J, p, sz) luaM_freemem(J->L, p, sz) + +/* Embed architecture-specific DynASM encoder. */ +#if defined(__i386) || defined(__i386__) || defined(_M_IX86) +#include "dasm_x86.h" +#else +#error "No support for this architecture (yet)" +#endif + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h new file mode 100644 index 00000000000..ad271f3ba5d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h @@ -0,0 +1,19 @@ +/* +** Interface to DynASM engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef ljit_dasm_h +#define ljit_dasm_h + +#include "ljit.h" + +/* DynASM glue definitions. */ +#define Dst J +#define Dst_DECL jit_State *J +#define Dst_REF (J->D) +#define DASM_FDEF LUAI_FUNC + +#include "dasm_proto.h" + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h new file mode 100644 index 00000000000..d5b4b70480d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h @@ -0,0 +1,137 @@ +/* +** Hints for the JIT compiler backend. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifdef STRING_HINTS +#define HH(x, name) #name +#define HH_START(x) static const char *const hints_##x [] = { +#define HH_END(x) NULL } +#else +#define HH(x, name) JIT_##x##_##name +#define HH_START(x) enum { JIT_##x##_NONE, +#define HH_END(x) JIT_##x##_MAX } + +/* Macros to access hints. */ +#define JIT_H2NUM(x) ((x) << 16) + +#define fhint_get(J, hh) \ + (luaH_getnum(J->comstate, JIT_H2NUM(JIT_FH_##hh))) +#define fhint_isset(J, hh) (!ttisnil(fhint_get(J, hh))) + +#define hint_getpc(J, hh, pc) \ + (luaH_getnum(J->comstate, (pc)+JIT_H2NUM(JIT_H_##hh))) +#define hint_get(J, hh) hint_getpc(J, hh, J->nextpc-1) +#define hint_issetpc(J, hh, pc) (!ttisnil(hint_getpc(J, hh, pc))) +#define hint_isset(J, hh) hint_issetpc(J, hh, J->nextpc-1) + +#endif + +/* Hints for functions. */ +HH_START(FH) + HH(FH, NOCLOSE), /* No luaF_close() needed. */ +HH_END(FH); + +/* Hints for individual bytecode instruction. */ +HH_START(H) + HH(H, COMBINE), /* Combine/dead instruction: true/false. */ + HH(H, FOR_STEP_K), /* FORPREP/FORLOOP step is const: step. */ + HH(H, TYPE), /* Type hint: typed object. */ + HH(H, TYPEKEY), /* Type hint for keys: typed object. */ + HH(H, INLINE), /* Inline function call: internal index. */ +HH_END(H); + +#undef HH +#undef HH_START +#undef HH_END + + +/* Avoid multiple inclusion for the following. */ +#ifndef ljit_hints_h +#define ljit_hints_h + +/* Index numbers for inlining C functions. */ +/* CHECK: the index numbers must match with jit.opt_lib. */ + +#define JIT_IH_LIB(x) ((x) >> 16) +#define JIT_IH_IDX(x) ((x) & 0xffff) +#define JIT_IH_MKIDX(l, f) (((l) << 16) | (f)) + +/* Library index numbers. */ +enum { + JIT_IHLIB_INTERNAL, + JIT_IHLIB_BASE, + JIT_IHLIB_COROUTINE, + JIT_IHLIB_STRING, + JIT_IHLIB_TABLE, + JIT_IHLIB_MATH, + JIT_IHLIB__LAST +}; + +/* Internal functions. */ +enum { + JIT_IH_INTERNAL_RECURSIVE, /* Recursive call. */ + JIT_IH_INTERNAL__LAST +}; + +/* Base library functions. */ +enum { + JIT_IH_BASE_PAIRS, + JIT_IH_BASE_IPAIRS, + JIT_IH_BASE__LAST +}; + +/* Coroutine library functions. */ +enum { + JIT_IH_COROUTINE_YIELD, + JIT_IH_COROUTINE_RESUME, + JIT_IH_COROUTINE__LAST +}; + +/* String library functions. */ +enum { + JIT_IH_STRING_LEN, + JIT_IH_STRING_SUB, + JIT_IH_STRING_CHAR, + JIT_IH_STRING__LAST +}; + +/* Table library functions. */ +enum { + JIT_IH_TABLE_INSERT, + JIT_IH_TABLE_REMOVE, + JIT_IH_TABLE_GETN, + JIT_IH_TABLE__LAST +}; + +/* Math library functions. */ +/* CHECK: order must match with function table for jit_inline_math(). */ +enum { + /* 1 arg, 1 result. */ + /* Partially inlined. Call C function from libm: */ + JIT_IH_MATH_LOG, + JIT_IH_MATH_LOG10, + JIT_IH_MATH_EXP, + JIT_IH_MATH_SINH, + JIT_IH_MATH_COSH, + JIT_IH_MATH_TANH, + JIT_IH_MATH_ASIN, + JIT_IH_MATH_ACOS, + JIT_IH_MATH_ATAN, + /* Fully inlined: */ + JIT_IH_MATH_SIN, + JIT_IH_MATH_COS, + JIT_IH_MATH_TAN, + JIT_IH_MATH_CEIL, + JIT_IH_MATH_FLOOR, + JIT_IH_MATH_ABS, + JIT_IH_MATH_SQRT, + /* 2 args, 1 result. */ + JIT_IH_MATH_FMOD, + JIT_IH_MATH_ATAN2, + JIT_IH_MATH__LAST +}; + +#define JIT_IH_MATH__21 JIT_IH_MATH_FMOD + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c new file mode 100644 index 00000000000..64be383194c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c @@ -0,0 +1,405 @@ +/* +** Memory management for machine code. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_mem_c +#define LUA_CORE + +#include + +#include "lua.h" + +#include "lmem.h" +#include "ldo.h" +#include "ljit.h" +#include "ljit_dasm.h" + + +/* +** Define this if you want to run LuaJIT with valgrind. You will get random +** errors if you don't. And these errors are usually not caught by valgrind! +** +** This macro evaluates to a no-op if not run with valgrind. I.e. you can +** use the same binary for regular runs, too (without a performance loss). +*/ +#ifdef USE_VALGRIND +#include +#define MCH_INVALIDATE(ptr, addr) VALGRIND_DISCARD_TRANSLATIONS(ptr, addr) +#else +#define MCH_INVALIDATE(ptr, addr) ((void)0) +#endif + + +/* ------------------------------------------------------------------------ */ + +#if defined(_WIN32) && !defined(LUAJIT_MCH_USE_MALLOC) + +/* Use a private heap with executable memory for Windows. */ +#include + +/* No need for serialization. There's already a lock per Lua universe. */ +#ifdef HEAP_CREATE_ENABLE_EXECUTE +#define MCH_HCFLAGS (HEAP_NO_SERIALIZE|HEAP_CREATE_ENABLE_EXECUTE) +#else +#define MCH_HCFLAGS (HEAP_NO_SERIALIZE|0x00040000) +#endif + +/* Free the whole mcode heap. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + if (J->mcodeheap) HeapDestroy((HANDLE)J->mcodeheap); +} + +/* Allocate a code block from the mcode heap. */ +static void *mcode_alloc(jit_State *J, size_t sz) +{ + void *ptr; + if (J->mcodeheap == NULL) { + J->mcodeheap = (void *)HeapCreate(MCH_HCFLAGS, 0, 0); + if (J->mcodeheap == NULL) luaD_throw(J->L, LUA_ERRMEM); + } + ptr = HeapAlloc(J->mcodeheap, 0, (sz)); + if (ptr == NULL) luaD_throw(J->L, LUA_ERRMEM); + return ptr; +} + +#define mcode_free(L, J, p, sz) HeapFree(J->mcodeheap, 0, (p)) + +/* ------------------------------------------------------------------------ */ + +#elif defined(LUA_USE_POSIX) && !defined(LUAJIT_MCH_USE_MALLOC) + +/* +** Allocate EXECUTABLE memory with mmap() on POSIX systems. +** +** There is no standard way to reuse malloc(). So this is a very small, +** but also very naive memory allocator. This should be ok, because: +** +** 1. Most apps only allocate mcode while running and free all on exit. +** +** 2. Some apps regularly load/unload a bunch of modules ("stages"). +** Allocs/frees come in groups, so coalescing should work fine. +** +** If your app differs, then please elaborate and/or supply code. +** And no -- including a full blown malloc is NOT an option. +** +** Caveat: the mmap()'ed heaps are not freed until exit. +** This shouldn't be too difficult to add, but I didn't bother. +*/ + +#include +#include + +/* TODO: move this to luaconf.h */ +#define LUAJIT_MCH_CHUNKSIZE (1<<17) /* 128K */ + +#if defined(MAP_ANONYMOUS) +#define MCH_MMFLAGS (MAP_PRIVATE|MAP_ANONYMOUS) +#elif defined(MAP_ANON) +#define MCH_MMFLAGS (MAP_PRIVATE|MAP_ANON) +#else +/* I'm too lazy to add /dev/zero support for ancient systems. */ +#error "Your OS has no (easy) support for anonymous mmap(). Please upgrade." +#endif + +/* Chunk header. Used for the free chunk list / heap headers. */ +typedef struct MCodeHead { + struct MCodeHead *next; /* Next free chunk / 1st head: first free. */ + struct MCodeHead *prev; /* Prev free chunk / 1st head: next head. */ + size_t size; /* Size of free chunk / Size of heap. */ + size_t dummy; /* May or may not overlap with trailer. */ +} MCodeHead; + +/* Allocation granularity. Assumes sizeof(void *) >= sizeof(size_t). */ +#define MCH_GRANULARITY (4*sizeof(void *)) +#define MCH_ROUNDSIZE(x) (((x) + MCH_GRANULARITY-1) & -MCH_GRANULARITY) +#define MCH_ROUNDHEAP(x) (((x) + 4095) & -4096) +#define MCH_HEADERSIZE MCH_ROUNDSIZE(sizeof(MCodeHead)) + +/* Trailer flags. */ +#define MCH_USED 1 /* Next chunk is in use. */ +#define MCH_LAST 2 /* Next chunk is the last one. */ +#define MCH_FIRST 4 /* Next chunk is the first one. */ +/* Note: the last chunk of each heap doesn't have a trailer. */ + +/* Trailer macros. */ +#define MCH_PREVTRAILER(mh) ((size_t *)(mh) - 1) +#define MCH_TRAILER(mh, sz) ((size_t *)((char *)(mh) + (sz)) - 1) +#define MCH_TRFLAGS(tr) ((tr) & (MCH_USED|MCH_LAST)) +#define MCH_TRSIZE(tr) ((tr) & ~(MCH_USED|MCH_LAST)) + +/* Debugging memory allocators is ... oh well. */ +#ifdef MCH_DEBUG +#include +#define MCH_DBGF stderr +#define MCH_DBG(x) fprintf x +#else +#define MCH_DBG(x) ((void)0) +#endif + +/* Free the whole list of mcode heaps. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + MCodeHead *mh = (MCodeHead *)J->mcodeheap; + while (mh) { + MCodeHead *prev = mh->prev; /* Heaps are in the prev chain. */ +#ifdef MCH_DEBUG + munmap((void *)mh, mh->size+4096); +#else + munmap((void *)mh, mh->size); +#endif + mh = prev; + } + J->mcodeheap = NULL; +} + +/* Allocate a new heap of at least the given size. */ +static void mcode_newheap(jit_State *J, size_t sz) +{ + MCodeHead *mh, *mhn, *fh; + void *ptr; + + /* Ensure minimum size or round up. */ + if (sz + MCH_HEADERSIZE <= LUAJIT_MCH_CHUNKSIZE) + sz = LUAJIT_MCH_CHUNKSIZE; + else + sz = MCH_ROUNDHEAP(sz + MCH_HEADERSIZE); + +#ifdef MCH_DEBUG + /* Allocate a new heap plus a guard page. */ + ptr = mmap(NULL, sz+4096, PROT_READ|PROT_WRITE|PROT_EXEC, MCH_MMFLAGS, -1, 0); + if (ptr == MAP_FAILED) luaD_throw(J->L, LUA_ERRMEM); + mprotect((char *)ptr+sz, 4096, PROT_NONE); +#else + /* Allocate a new heap. */ + ptr = mmap(NULL, sz, PROT_READ|PROT_WRITE|PROT_EXEC, MCH_MMFLAGS, -1, 0); + if (ptr == MAP_FAILED) luaD_throw(J->L, LUA_ERRMEM); +#endif + + /* Initialize free chunk. */ + fh = (MCodeHead *)((char *)ptr + MCH_HEADERSIZE); + fh->size = sz - MCH_HEADERSIZE; + *MCH_PREVTRAILER(fh) = MCH_LAST | MCH_FIRST; /* Zero size, no coalesce. */ + + /* Initialize new heap and make it the first heap. */ + mh = (MCodeHead *)J->mcodeheap; + J->mcodeheap = ptr; + mhn = (MCodeHead *)ptr; + mhn->prev = mh; /* Heaps are in the prev. chain. */ + mhn->size = sz; + mhn->next = fh; /* Start of free list is always in the first heap. */ + fh->prev = mhn; + if (mh) { + fh->next = mh->next; /* Old start of free list. */ + mh->next = NULL; /* Just in case. */ + } else { + fh->next = NULL; /* No other free chunks yet. */ + } + MCH_DBG((MCH_DBGF, "HEAP %p %5x\n", mhn, sz)); +} + +/* Allocate a code block. */ +static void *mcode_alloc(jit_State *J, size_t sz) +{ + sz = MCH_ROUNDSIZE(sz + sizeof(size_t)); + for ( ; ; ) { + MCodeHead *mh = (MCodeHead *)J->mcodeheap; + if (mh) { /* Got at least one heap so search free list. */ +#ifdef MCH_DEBUG + int slen = 0; + for (mh = mh->next; mh ; mh = mh->next, slen++) +#else + for (mh = mh->next; mh ; mh = mh->next) +#endif + if (mh->size >= sz) { /* Very naive first fit. */ + size_t *trailer = MCH_TRAILER(mh, sz); + size_t *ptrailer = MCH_PREVTRAILER(mh); + if (mh->size == sz) { /* Exact match: just unchain chunk. */ + mh->prev->next = mh->next; + if (mh->next) + mh->next->prev = mh->prev; + *ptrailer |= MCH_USED; + MCH_DBG((MCH_DBGF, "NEW %p %5x FIT #%d%s\n", + mh, sz, slen, (*ptrailer & MCH_LAST) ? " LAST" : "")); + } else { /* Chunk is larger: rechain remainder chunk. */ + MCodeHead *fh = (MCodeHead *)((char *)mh + sz); + size_t tr; + fh->size = mh->size - sz; + (fh->prev = mh->prev)->next = fh; + if ((fh->next = mh->next) != NULL) + fh->next->prev = fh; + tr = *ptrailer; + if (tr & MCH_LAST) { + *ptrailer = (tr & ~MCH_LAST) | MCH_USED; + *trailer = sz | MCH_LAST; + MCH_DBG((MCH_DBGF, "NEW %p %5x REST %p %5x #%d LAST\n", + mh, sz, fh, fh->size, slen)); + } else { + size_t *ftrailer = MCH_TRAILER(fh, fh->size); + *ftrailer = MCH_TRFLAGS(*ftrailer) | fh->size; + *ptrailer = tr | MCH_USED; + *trailer = sz; + MCH_DBG((MCH_DBGF, "NEW %p %5x REST %p %5x #%d\n", + mh, sz, fh, fh->size, slen)); + } + } + return (void *)mh; + } + } + /* No luck. Allocate a new heap. Next loop iteration will succeed. */ + mcode_newheap(J, sz); + } +} + +/* Free a code block. */ +static void mcode_free_(jit_State *J, void *ptr, size_t sz) +{ + MCodeHead *mh = (MCodeHead *)ptr; + size_t *trailer = MCH_TRAILER(mh, sz); + size_t *ptrailer = MCH_PREVTRAILER(mh); + size_t tr = *ptrailer; + +#ifdef MCH_DEBUG + if (!(tr & MCH_USED)) MCH_DBG((MCH_DBGF, "**unused %p %5x\n", ptr, sz)); +#endif + + if (!(tr & MCH_FIRST)) { + MCodeHead *ph = (MCodeHead *)((char *)mh - MCH_TRSIZE(tr)); + size_t *pptrailer = MCH_PREVTRAILER(ph); + if (!(*pptrailer & MCH_USED)) { /* Prev free? */ + if (!(tr & MCH_LAST) && !(*trailer & MCH_USED)) { /* Next free? */ + /* Coalesce with previous and next chunk. */ + MCodeHead *nh = (MCodeHead *)((char *)mh + sz); + MCH_DBG((MCH_DBGF, "free %p %5x PN %p %5x %p %5x%s\n", + mh, sz, ph, ph->size, nh, nh->size, + (*trailer & MCH_LAST) ? " last" : "")); + if ((nh->prev->next = nh->next) != NULL) + nh->next->prev = nh->prev; + ph->size += sz + nh->size; + if (*trailer & MCH_LAST) { + *pptrailer |= MCH_LAST; + } else { + trailer = MCH_TRAILER(nh, nh->size); + *trailer = MCH_TRFLAGS(*trailer) | ph->size; + } + return; + } + MCH_DBG((MCH_DBGF, "free %p %5x P- %p %5x%s\n", + mh, sz, ph, ph->size, + (tr & MCH_LAST) ? " last" : "")); + ph->size += sz; + if (tr & MCH_LAST) + *pptrailer |= MCH_LAST; + else + *trailer = MCH_TRFLAGS(*trailer) | ph->size; + return; + } + } + + if (!(tr & MCH_LAST) && !(*trailer & MCH_USED)) { /* Next free? */ + /* Coalesce with next chunk. */ + MCodeHead *nh = (MCodeHead *)((char *)mh + sz); + MCH_DBG((MCH_DBGF, "free %p %5x -N %p %5x%s\n", + mh, sz, nh, nh->size, (*trailer & MCH_LAST) ? " last" : "")); + (mh->prev = nh->prev)->next = mh; + if ((mh->next = nh->next)) + mh->next->prev = mh; + mh->size = nh->size + sz; + if (*trailer & MCH_LAST) { + *ptrailer = (tr & ~MCH_USED) | MCH_LAST; + } else { + trailer = MCH_TRAILER(mh, mh->size); + *trailer = MCH_TRFLAGS(*trailer) | mh->size; + *ptrailer = tr & ~MCH_USED; + } + } else { + /* No coalesce possible, just add to free list. */ + MCodeHead *fh = (MCodeHead *)J->mcodeheap; + MCH_DBG((MCH_DBGF, "free %p %5x --%s\n", + mh, sz, (tr & MCH_LAST) ? " last" : "")); + if ((mh->next = fh->next)) + mh->next->prev = mh; + fh->next = mh; + mh->prev = fh; + mh->size = sz; + *ptrailer = tr & ~MCH_USED; + } +} + +#define mcode_free(L, J, p, sz) \ + mcode_free_(J, (p), MCH_ROUNDSIZE((sz) + sizeof(size_t))) + +/* ------------------------------------------------------------------------ */ + +#else + +/* +** Fallback to Lua's alloc, i.e. probably malloc(). +** +** Note: the returned memory is usually not marked executable! +** Running the code will crash if the CPU/OS checks for this. +** E.g. on x86 CPUs that support the NX (No eXecute) bit. +*/ + +/* There's no heap to free, but the JSUB mcode is. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + if (J->jsubmcode) luaM_freemem(J->L, J->jsubmcode, J->szjsubmcode); +} + +#define mcode_alloc(J, sz) luaM_realloc_(J->L, NULL, 0, (sz)) +#define mcode_free(L, J, p, sz) luaM_freemem(L, p, sz) + +#endif + +/* ------------------------------------------------------------------------ */ + +/* Free mcode. */ +void luaJIT_freemcode(jit_State *J, void *mcode, size_t sz) +{ + mcode_free(J->L, J, mcode, sz); +} + +/* Free JIT structures in function prototype. */ +void luaJIT_freeproto(lua_State *L, Proto *pt) +{ + char *mcode = (char *)pt->jit_mcode; + size_t sz = pt->jit_szmcode; + pt->jit_mcode = NULL; + pt->jit_szmcode = 0; + while (sz != 0) { /* Free whole chain of mcode blocks for this proto. */ + jit_MCTrailer next; + memcpy((void *)&next, JIT_MCTRAILER(mcode, sz), sizeof(jit_MCTrailer)); + MCH_INVALIDATE(mcode, sz); + mcode_free(L, G(L)->jit_state, mcode, sz); + mcode = next.mcode; + sz = next.sz; + } +} + +/* Link generated code. Return mcode address, size and status. */ +int luaJIT_link(jit_State *J, void **mcodep, size_t *szp) +{ + size_t sz; + void *mcode; + + /* Pass 2: link sections. */ + if ((J->dasmstatus = dasm_link(Dst, &sz))) return JIT_S_DASM_ERROR; + + /* Check for hardcoded limit on mcode size. */ + if (sz > LUAJIT_LIM_MCODE) return JIT_S_TOOLARGE; + + /* TODO: mark mcode readonly when we're done. */ + mcode = mcode_alloc(J, sz); + + /* Pass 3: encode sections. */ + if ((J->dasmstatus = dasm_encode(Dst, mcode)) != 0) { + mcode_free(J->L, J, mcode, sz); + return JIT_S_DASM_ERROR; + } + *mcodep = mcode; + *szp = sz; + return JIT_S_OK; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc new file mode 100644 index 00000000000..b96d02763a1 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc @@ -0,0 +1,2457 @@ +/* +** Bytecode to machine code translation for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +|// Include common definitions and macros. +|.include ljit_x86.dash +| +|// Place actionlist and globals here at the top of the file. +|.actionlist jit_actionlist +|.globals JSUB_ + +/* ------------------------------------------------------------------------ */ + +/* Arch string. */ +const char luaJIT_arch[] = "x86"; + +/* Forward declarations for C functions called from jsubs. */ +static void jit_hookins(lua_State *L, const Instruction *newpc); +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest); +static void jit_settable_fb(lua_State *L, Table *t, StkId val); + +/* ------------------------------------------------------------------------ */ + +/* Detect CPU features and set JIT flags. */ +static int jit_cpudetect(jit_State *J) +{ + void *mcode; + size_t sz; + int status; + /* Some of the jsubs need the flags. So compile this separately. */ + unsigned int feature; + dasm_setup(Dst, jit_actionlist); + | // Check for CPUID support first. + | pushfd + | pop edx + | mov ecx, edx + | xor edx, 0x00200000 // Toggle ID bit in flags. + | push edx + | popfd + | pushfd + | pop edx + | xor eax, eax // Zero means no features supported. + | cmp ecx, edx + | jz >1 // No ID toggle means no CPUID support. + | + | inc eax // CPUID function 1. + | push ebx // Callee-save ebx modified by CPUID. + | cpuid + | pop ebx + | mov eax, edx // Return feature support bits. + |1: + | ret + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + /* Check feature bits. See the Intel/AMD manuals for the bit definitions. */ + feature = ((unsigned int (*)(void))mcode)(); + if (feature & (1<<15)) J->flags |= JIT_F_CPU_CMOV; + if (feature & (1<<26)) J->flags |= JIT_F_CPU_SSE2; + luaJIT_freemcode(J, mcode, sz); /* We don't need this code anymore. */ + return JIT_S_OK; +} + +/* Check some assumptions. Should compile to nop. */ +static int jit_consistency_check(jit_State *J) +{ + do { + /* Force a compiler error for inconsistent structure sizes. */ + /* Check LUA_TVALUE_ALIGN in luaconf.h, too. */ + ||int check_TVALUE_SIZE_in_ljit_x86_dash[1+TVALUE_SIZE-sizeof(TValue)]; + ||int check_TVALUE_SIZE_in_ljit_x86_dash_[1+sizeof(TValue)-TVALUE_SIZE]; + ((void)check_TVALUE_SIZE_in_ljit_x86_dash[0]); + ((void)check_TVALUE_SIZE_in_ljit_x86_dash_[0]); + if (LUA_TNIL != 0 || LUA_TBOOLEAN != 1 || PCRLUA != 0) break; + if ((int)&(((Node *)0)->i_val) != (int)&(((StkId)0)->value)) break; + return JIT_S_OK; + } while (0); + J->dasmstatus = 999999999; /* Recognizable error. */ + return JIT_S_COMPILER_ERROR; +} + +/* Compile JIT subroutines (once). */ +static int jit_compile_jsub(jit_State *J) +{ + int status = jit_consistency_check(J); + if (status != JIT_S_OK) return status; + status = jit_cpudetect(J); + if (status != JIT_S_OK) return status; + dasm_setup(Dst, jit_actionlist); + |// Macros to reorder and combine JIT subroutine definitions. + |.macro .jsub, name + |.capture JSUB // Add the entry point. + ||//----------------------------------------------------------------------- + ||//->name: + | .align 16 + |->name: + |.endmacro + |.macro .endjsub; .endcapture; .endmacro + |.macro .dumpjsub; .dumpcapture JSUB; .endmacro + | + |.code + |//----------------------------------------------------------------------- + | .align 16 + | // Must be the first JSUB defined or used. + |->STACKPTR: // Get stack pointer (for jit.util.*). + | lea eax, [esp+aword*1] // But adjust for the return address. + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_LJ: // Lua -> JIT gate. (L, func, nresults) + | push ebp + | mov ebp, esp + | sub esp, LJFRAME_OFFSET + | mov SAVER1, BASE + | mov BASE, CARG2 // func + | mov CARG2, L // Arg used as savereg. Avoids aword*8 stack frame. + | mov L, CARG1 // L + | mov SAVER2, TOP + | mov TOP, L->top + | mov LCL, BASE->value + | mov CI, L->ci + | // Prevent stackless yields. No limit check -- this is not a real C call. + | inc word L->nCcalls // short + | + | call aword LCL->jit_gate // Call the compiled code. + | + | mov CI, L->ci + | mov L->top, TOP // Only correct for LUA_MULTRET. + | mov edx, CI->savedpc + | mov eax, CARG3 // nresults + | mov L->savedpc, edx // L->savedpc = CI->savedpc + | mov edx, CI->base + | test eax, eax + | mov L->base, edx // L->base = CI->base + | js >2 // Skip for nresults == LUA_MULTRET. + | + | TValuemul eax + | add BASE, eax + | xor ecx, ecx + | mov L->top, BASE // L->top = &func[nresults] + |1: // No initial check. May use EXTRA_STACK (once). + | mov TOP->tt, ecx // Clear unset stack slots. + | add TOP, #TOP + | cmp TOP, BASE + | jb <1 + | + |2: + | dec word L->nCcalls // short + | mov eax, PCRC + | mov TOP, SAVER2 + | mov BASE, SAVER1 + | mov L, CARG2 + | mov esp, ebp + | pop ebp + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_JL: // JIT -> Lua callgate. + | mov PROTO:edx, LCL->p + | cmp dword PROTO:edx->jit_status, JIT_S_OK + | jne >1 // Already compiled? + | + | // Yes, copy callgate to closure (so GATE_JL is not called again). + | mov edx, PROTO:edx->jit_mcode + | mov LCL->jit_gate, edx + | jmp edx // Chain to compiled code. + | + |1: // Let luaD_precall do the hard work: compile & run or fallback. + | sub esp, FRAME_OFFSET + | mov eax, CI->savedpc + | mov L->ci, CI // May not be in sync for tailcalls. + | mov L->top, TOP + | mov ARG3, -1 // LUA_MULTRET + | mov L->savedpc, eax // luaD_precall expects it there. + | mov ARG2, BASE + | sub BASE, L->stack // Preserve old BASE (= func). + | mov ARG1, L + | call &luaD_precall // luaD_precall(L, func, nresults) + | test eax,eax // Assumes: PCRLUA == 0 + | jnz >2 // PCRC? PCRYIELD cannot happen. + | + | // Returned PCRLUA: need to call the bytecode interpreter. + | call &luaV_execute, L, 1 + | // Indirect yield (L->status == LUA_YIELD) cannot happen. + | + |2: // Returned PCRC: compile & run done. Frame is already unwound. + | add esp, FRAME_OFFSET + | add BASE, L->stack // Restore stack-relative pointers BASE and TOP. + | mov TOP, L->top + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_JC: // JIT -> C callgate. + | lea eax, TOP[LUA_MINSTACK] + | sub esp, FRAME_OFFSET + | cmp eax, L->stack_last + | jae ->GROW_STACK // Stack overflow? + | cmp CI, L->end_ci + | lea CI, CI[1] + | je ->GROW_CI // CI overflow? + | mov L->ci, CI + | mov CI->func, BASE + | mov CI->top, eax + | mov CCLOSURE:edx, BASE->value + | add BASE, #BASE + | mov L->top, TOP + | mov L->base, BASE + | mov CI->base, BASE + | // ci->nresults is not set because we don't use luaD_poscall(). + | + |->GATE_JC_PATCH: // Patch mark for jmp to GATE_JC_DEBUG. + | + | call aword CCLOSURE:edx->f, L // Call the C function. + | + |2: // Label used below! + | add esp, FRAME_OFFSET + | mov CI, L->ci + | TValuemul eax // eax = nresults*sizeof(TValue) + | mov TOP, CI->func + | jz >4 // Skip loop if nresults == 0. + | // Yield (-1) cannot happen. + | mov BASE, L->top + | mov edx, BASE + | sub BASE, eax // BASE = &L->top[-nresults] + |3: // Relocate [L->top-nresults, L->top) -> [ci->func, ci->func+nresults) + | mov eax, [BASE] + | add BASE, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp BASE, edx + | jb <3 + | + |4: + | mov BASE, CI->func + | sub CI, #CI + | mov L->ci, CI + | ret + | + |//----------------------------------------------------------------------- + | nop; nop; nop; nop; nop; nop // Save area. See DEBUGPATCH_SIZE. + | .align 16 + |->GATE_JC_DEBUG: // JIT -> C callgate for debugging. + | test byte L->hookmask, LUA_MASKCALL // Need to call hook? + | jnz >7 + |6: + | call aword CCLOSURE:edx->f, L // Call the C function. + | + | test byte L->hookmask, LUA_MASKRET // Need to call hook? + | jz <2 + | + | // Return hook. TODO: LUA_HOOKTAILRET is not called since tailcalls == 0. + | mov BASE, eax // BASE (ebx) is callee-save. + | call &luaD_callhook, L, LUA_HOOKRET, -1 + | mov eax, BASE + | jmp <2 + | + |7: // Call hook. + | mov BASE, CCLOSURE:edx // BASE (ebx) is callee-save. + | call &luaD_callhook, L, LUA_HOOKCALL, -1 + | mov CCLOSURE:edx, BASE + | jmp <6 + | + |//----------------------------------------------------------------------- + | .align 16 + |->GROW_STACK: // Grow stack. Jump from/to prologue. + | sub eax, TOP + | TValuediv eax // eax = (eax-TOP)/sizeof(TValue). + | mov L->top, TOP + | sub BASE, L->stack + | mov ARG3, CI + | call &luaD_growstack, L, eax + | mov CI, ARG3 // CI may not be in sync with L->ci. + | add BASE, L->stack // Restore stack-relative pointers. + | mov TOP, L->top + | mov LCL, BASE->value + | add esp, FRAME_OFFSET // Undo esp adjust of prologue/GATE_JC. + | jmp aword LCL->jit_gate // Retry prologue. + | + |//----------------------------------------------------------------------- + | .align 16 + |->GROW_CI: // Grow CI. Jump from/to prologue. + | mov L->top, TOP // May throw LUA_ERRMEM, so save TOP. + | call &luaD_growCI, L + | lea CI, CINFO:eax[-1] // Undo ci++ (L->ci reset in prologue). + | mov LCL, BASE->value + | mov L->ci, CI + | add esp, FRAME_OFFSET // Undo esp adjust of prologue/GATE_JC. + | jmp aword LCL->jit_gate // Retry prologue. + | + |//----------------------------------------------------------------------- + |.dumpjsub // Dump all captured .jsub's. + | + |// Uncritical jsubs follow. No need to align them. + |//----------------------------------------------------------------------- + |->DEOPTIMIZE_CALLER: // Deoptimize calling instruction. + | pop edx + | jmp ->DEOPTIMIZE + | + |->DEOPTIMIZE_OPEN: // Deoptimize open instruction. + | mov L->top, TOP // Save TOP. + | + |->DEOPTIMIZE: // Deoptimize instruction. + | mov L->savedpc, edx // &J->nextins expected in edx. + | call &luaJIT_deoptimize, L + | mov BASE, L->base + | mov TOP, L->top // Restore TOP for open ins. + | jmp eax // Continue with new mcode addr. + | + | .align 16 + |//----------------------------------------------------------------------- + + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &J->jsubmcode, &J->szjsubmcode); + if (status != JIT_S_OK) + return status; + + /* Copy the callgates from the globals to the global state. */ + G(J->L)->jit_gateLJ = (luaJIT_GateLJ)J->jsub[JSUB_GATE_LJ]; + G(J->L)->jit_gateJL = (lua_CFunction)J->jsub[JSUB_GATE_JL]; + G(J->L)->jit_gateJC = (lua_CFunction)J->jsub[JSUB_GATE_JC]; + return JIT_S_OK; +} + +/* Match with number of nops above. Avoid confusing the instruction decoder. */ +#define DEBUGPATCH_SIZE 6 + +/* Notify backend that the debug mode may have changed. */ +void luaJIT_debugnotify(jit_State *J) +{ + unsigned char *patch = (unsigned char *)J->jsub[JSUB_GATE_JC_PATCH]; + unsigned char *target = (unsigned char *)J->jsub[JSUB_GATE_JC_DEBUG]; + /* Yep, this is self-modifying code -- don't tell anyone. */ + if (patch[0] == 0xe9) { /* Debug patch is active. */ + if (!(J->flags & JIT_F_DEBUG_CALL)) /* Deactivate it. */ + memcpy(patch, target-DEBUGPATCH_SIZE, DEBUGPATCH_SIZE); + } else { /* Debug patch is inactive. */ + if (J->flags & JIT_F_DEBUG_CALL) { /* Activate it. */ + int rel = target-(patch+5); + memcpy(target-DEBUGPATCH_SIZE, patch, DEBUGPATCH_SIZE); + patch[0] = 0xe9; /* jmp */ + memcpy(patch+1, &rel, 4); /* Relative address. */ + memset(patch+5, 0x90, DEBUGPATCH_SIZE-5); /* nop */ + } + } +} + +/* Patch a jmp into existing mcode. */ +static void jit_patch_jmp(jit_State *J, void *mcode, void *to) +{ + unsigned char *patch = (unsigned char *)mcode; + int rel = ((unsigned char *)to)-(patch+5); + patch[0] = 0xe9; /* jmp */ + memcpy((void *)(patch+1), &rel, 4); /* Relative addr. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Call line/count hook. */ +static void jit_hookins(lua_State *L, const Instruction *newpc) +{ + Proto *pt = ci_func(L->ci)->l.p; + int pc = luaJIT_findpc(pt, newpc); /* Sloooow with mcode addrs. */ + const Instruction *savedpc = L->savedpc; + L->savedpc = pt->code + pc + 1; + if (L->hookmask > LUA_MASKLINE && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (L->hookmask & LUA_MASKLINE) { + int newline = getline(pt, pc); + if (pc != 0) { + int oldpc = luaJIT_findpc(pt, savedpc); + if (!(pc <= oldpc || newline != getline(pt, oldpc))) return; + } + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + +/* Insert hook check for each instruction in full debug mode. */ +static void jit_ins_debug(jit_State *J, int openop) +{ + if (openop) { + | mov L->top, TOP + } + |// TODO: Passing bytecode addrs would speed this up (but use more space). + | call ->HOOKINS + + |.jsub HOOKINS + | test byte L->hookmask, LUA_MASKLINE|LUA_MASKCOUNT + | jz >2 + | dec dword L->hookcount + | jz >1 + | test byte L->hookmask, LUA_MASKLINE + | jz >2 + |1: + | mov eax, [esp] // Current machine code address. + | sub esp, FRAME_OFFSET + | call &jit_hookins, L, eax + | add esp, FRAME_OFFSET + | mov BASE, L->base // Restore stack-relative pointers. + | mov TOP, L->top + |2: + | ret + |.endjsub +} + +/* Called before every instruction. */ +static void jit_ins_start(jit_State *J) +{ + |// Always emit PC labels, even for dead code (but not for combined JMP). + |=>J->nextpc: +} + +/* Chain to another instruction. */ +static void jit_ins_chainto(jit_State *J, int pc) +{ + | jmp =>pc +} + +/* Set PC label. */ +static void jit_ins_setpc(jit_State *J, int pc, void *target) +{ + |.label =>pc, &target +} + +/* Called after the last instruction has been encoded. */ +static void jit_ins_last(jit_State *J, int lastpc, int sizemfm) +{ + if (J->tflags & JIT_TF_USED_DEOPT) { /* Deopt section has been used? */ + |.deopt + | jmp ->DEOPTIMIZE // Yes, need to add final jmp. + |.code + } + |=>lastpc+1: // Extra label at the end of .code. + |.tail + |=>lastpc+2: // And at the end of .deopt/.tail. + | .align word // Keep next section word aligned. + | .word 0xffff // Terminate mfm with JIT_MFM_STOP. + |.mfmap + | // <-- Deoptimization hints are inserted here. + | .space sizemfm // To be filled in with inverse mfm. + | .aword 0, 0 // Next mcode block pointer and size. + | // The previous two awords are only word, but not aword aligned. + | // Copying them is easier than aligning them and adjusting mfm handling. + |.code +} + +/* Add a deoptimize target for the current instruction. */ +static void jit_deopt_target(jit_State *J, int nargs) +{ + |.define L_DEOPTLABEL, 9 // Local deopt label. + |.define L_DEOPTIMIZE, <9 // Local deopt target. Use after call. + |.define L_DEOPTIMIZEF, >9 // Local deopt target. Use before call. + if (nargs != -1) { + |// Alas, x86 doesn't have conditional calls. So branch to the .deopt + |// section to load J->nextins and jump to JSUB_DEOPTIMIZE. + |// Only a single jump is added at the end (if needed) and any + |// intervening code sequences are shadowed (lea trick). + |.deopt // Occupies 6 bytes in .deopt section. + | .byte 0x8d // Shadow mov with lea edi, [edx+ofs]. + |L_DEOPTLABEL: + | mov edx, &J->nextins // Current instruction + 1. + |.code + J->tflags |= JIT_TF_USED_DEOPT; + } else { + |.tail // Occupies 10 bytes in .tail section. + |L_DEOPTLABEL: + | mov edx, &J->nextins + | jmp ->DEOPTIMIZE_OPEN // Open ins need to save TOP, too. + | // And TOP (edi) would be overwritten by the lea trick. + | // So checking for open ops later on wouldn't suffice. Sigh. + |.code + } +} + +/* luaC_checkGC() inlined. Destroys caller-saves + TOP (edi). Uses label 7:. */ +/* Use this only at the _end_ of an instruction. */ +static void jit_checkGC(jit_State *J) +{ + | mov GL:ecx, L->l_G + | mov eax, GL:ecx->totalbytes // size_t + | mov TOP, >7 + | cmp eax, GL:ecx->GCthreshold // size_t + | jae ->GCSTEP + |7: + + |.jsub GCSTEP + | call &luaC_step, L + | mov BASE, L->base + | jmp TOP + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +|// JIT->JIT calling conventions: +|// +|// Register/Type | Call Setup | Prologue | Epilogue | Call Finish +|// =========================================================================== +|// eax | LCL | = BASE->value| | * | * +|// ecx | CI | = L->ci | L->ci = ++CI | * | * +|// edx | * | * | * | * | * +|// --------------------------------------------------------------------------- +|// esi | L | | | | +|// ebx | BASE | += f | ++ | -- | -= f +|// edi | TOP | += f+1+nargs | = BASE+maxst | = f+nresults | = BASE+maxst +|// --------------------------------------------------------------------------- +|// L->base | | = BASE | | = BASE +|// L->top | | = TOP | | = TOP +|// L->ci | | ++, -> = ... | -- | +|// L->ci->savedpc| = &code[pc] | [ L-> = ] | | +|// --------------------------------------------------------------------------- +|// args + vars | | setnil | | +|// results | | | move | setnil +|// --------------------------------------------------------------------------- + + +|// Include support for function inlining. +|.include ljit_x86_inline.dash + + +#ifdef LUA_COMPAT_VARARG +static void jit_vararg_table(lua_State *L) +{ + Table *tab; + StkId base, func; + int i, num, numparams; + luaC_checkGC(L); + base = L->base; + func = L->ci->func; + numparams = clvalue(func)->l.p->numparams; + num = base - func - numparams - 1; + tab = luaH_new(L, num, 1); + for (i = 0; i < num; i++) + setobj2n(L, luaH_setnum(L, tab, i+1), base - num + i); + setnvalue(luaH_setstr(L, tab, luaS_newliteral(L, "n")), (lua_Number)num); + sethvalue(L, base + numparams, tab); +} +#endif + +/* Encode JIT function prologue. */ +static void jit_prologue(jit_State *J) +{ + Proto *pt = J->pt; + int numparams = pt->numparams; + int stacksize = pt->maxstacksize; + + |// Note: the order of the following instructions has been carefully tuned. + | lea eax, TOP[stacksize] + | sub esp, FRAME_OFFSET + | cmp eax, L->stack_last + | jae ->GROW_STACK // Stack overflow? + | // This is a slight overallocation (BASE[1+stacksize] would be enough). + | // We duplicate luaD_precall() behaviour so we can use luaD_growstack(). + | cmp CI, L->end_ci + | lea CI, CI[1] + | je ->GROW_CI // CI overflow? + | xor eax, eax // Assumes: LUA_TNIL == 0 + | mov CI->func, BASE + | add BASE, #BASE + | mov L->ci, CI + + if (numparams > 0) { + | lea edx, BASE[numparams] + | cmp TOP, edx // L->top >< L->base+numparams ? + } + + if (!pt->is_vararg) { /* Fixarg function. */ + /* Must cap L->top at L->base+numparams because 1st LOADNIL is omitted. */ + if (numparams == 0) { + | mov TOP, BASE + } else if (J->flags & JIT_F_CPU_CMOV) { + | cmova TOP, edx + } else { + | jna >1 + | mov TOP, edx + |1: + } + | lea edx, BASE[stacksize] // New ci->top. + | mov CI->tailcalls, eax // 0 + | mov CI->top, edx + | mov L->top, edx + | mov L->base, BASE + | mov CI->base, BASE + } else { /* Vararg function. */ + int i; + if (numparams > 0) { + |// If some fixargs are missing we need to clear them and + |// bump TOP to get a consistent frame layout for OP_VARARG. + | jb >5 + |4: + |.tail + |5: // This is uncommon. So move it to .tail and use a loop. + | mov TOP->tt, eax + | add TOP, #TOP + | cmp TOP, edx + | jb <5 + | jmp <4 + |.code + } + | mov L->base, TOP // New base is after last arg. + | mov CI->base, TOP + | mov CI->tailcalls, eax // 0 + for (i = 0; i < numparams; i++) { /* Move/clear fixargs. */ + |// Inline this. Vararg funcs usually have very few fixargs. + | copyslot TOP[i], BASE[i], ecx, edx + | mov BASE[i].tt, eax // Clear old fixarg slot (help the GC). + } + if (numparams > 0) { + | mov CI, L->ci // Reload CI = ecx (used by move). + } + | mov BASE, TOP + | lea edx, BASE[stacksize] // New ci->top. + | lea TOP, BASE[numparams] // Start of vars to clear. + | mov CI->top, edx + | mov L->top, edx + stacksize -= numparams; /* Fixargs are already cleared. */ + } + + /* Clear undefined args and all vars. Still assumes eax = LUA_TNIL = 0. */ + /* Note: cannot clear only args because L->top has grown. */ + if (stacksize <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < stacksize; i++) { + | mov TOP[i].tt, eax + } + } else { /* Standard loop. */ + |2: // Unrolled for 2 stack slots. No initial check. May use EXTRA_STACK. + | mov TOP[0].tt, eax + | mov TOP[1].tt, eax + | add TOP, 2*#TOP + | cmp TOP, edx + | jb <2 + |// Note: TOP is undefined now. TOP is only valid across calls/open ins. + } + +#ifdef LUA_COMPAT_VARARG + if (pt->is_vararg & VARARG_NEEDSARG) { + | call &jit_vararg_table, L + } +#endif + + /* Call hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + | test byte L->hookmask, LUA_MASKCALL + | jz >9 + | call ->HOOKCALL + |9: + + |.jsub HOOKCALL + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov PROTO:edi, LCL->p // clvalue(L->ci->func)->l.p + | mov eax, PROTO:edi->code + | add eax, 4 // Hooks expect incremented PC. + | mov L->savedpc, eax + | sub esp, FRAME_OFFSET + | call &luaD_callhook, L, LUA_HOOKCALL, -1 + | add esp, FRAME_OFFSET + | mov eax, PROTO:edi->code // PROTO:edi is callee-save. + | mov L->savedpc, eax // jit_hookins needs previous PC. + | mov BASE, L->base + | ret + |.endjsub + } +} + +/* Check if we can combine 'return const'. */ +static int jit_return_k(jit_State *J) +{ + if (!J->combine) return 0; /* COMBINE hint set? */ + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + | call &luaF_close, L, BASE + } + if (!J->pt->is_vararg) { /* Fixarg function. */ + | sub aword L->ci, #CI + | mov TOP, BASE + | sub BASE, #BASE + | add esp, FRAME_OFFSET + } else { /* Vararg function. */ + | mov CI, L->ci + | mov BASE, CI->func + | sub CI, #CI + | mov L->ci, CI + | lea TOP, BASE[1] + | add esp, FRAME_OFFSET + } + jit_assert(J->combine == 1); /* Required to skip next RETURN instruction. */ + return 1; +} + +static void jit_op_return(jit_State *J, int rbase, int nresults) +{ + /* Return hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + if (nresults < 0 && !(J->flags & JIT_F_DEBUG_INS)) { + | mov L->top, TOP + } + |// TODO: LUA_HOOKTAILRET (+ ci->tailcalls counting) or changed debug API. + | test byte L->hookmask, LUA_MASKRET + | jz >7 + | call ->HOOKRET + |7: + if (J->flags & JIT_F_DEBUG_INS) { + | mov eax, FRAME_RETADDR + | mov L->savedpc, eax + } + + |.jsub HOOKRET + | mov eax, [esp] // Current machine code address. + | mov L->savedpc, eax + | sub esp, FRAME_OFFSET + | call &luaD_callhook, L, LUA_HOOKRET, -1 + | add esp, FRAME_OFFSET + | mov BASE, L->base // Restore stack-relative pointers. + | mov TOP, L->top + | ret + |.endjsub + } + + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + | call &luaF_close, L, BASE + } + + /* Previous op was open: 'return f()' or 'return ...' */ + if (nresults < 0) { + |// Relocate [BASE+rbase, TOP) -> [ci->func, *). + | mov CI, L->ci + | addidx BASE, rbase + | mov edx, CI->func + | cmp BASE, TOP + | jnb >2 + |1: + | mov eax, [BASE] + | add BASE, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp BASE, TOP + | jb <1 + |2: + | add esp, FRAME_OFFSET + | mov BASE, CI->func + | sub CI, #CI + | mov TOP, edx // Relocated TOP. + | mov L->ci, CI + | ret + return; + } + + if (!J->pt->is_vararg) { /* Fixarg function, nresults >= 0. */ + int i; + | sub aword L->ci, #CI + |// Relocate [BASE+rbase,BASE+rbase+nresults) -> [BASE-1, *). + |// TODO: loop for large nresults? + | sub BASE, #BASE + for (i = 0; i < nresults; i++) { + | copyslot BASE[i], BASE[rbase+i+1] + } + | add esp, FRAME_OFFSET + | lea TOP, BASE[nresults] + | ret + } else { /* Vararg function, nresults >= 0. */ + int i; + |// Relocate [BASE+rbase,BASE+rbase+nresults) -> [ci->func, *). + | mov CI, L->ci + | mov TOP, CI->func + | sub CI, #CI + | mov L->ci, CI // CI = ecx is used by copyslot. + for (i = 0; i < nresults; i++) { + | copyslot TOP[i], BASE[rbase+i] + } + | add esp, FRAME_OFFSET + | mov BASE, TOP + | addidx TOP, nresults + | ret + } +} + +static void jit_op_call(jit_State *J, int func, int nargs, int nresults) +{ + int cltype = jit_inline_call(J, func, nargs, nresults); + if (cltype < 0) return; /* Inlined? */ + + |// Note: the order of the following instructions has been carefully tuned. + | addidx BASE, func + | mov CI, L->ci + | isfunction 0 // BASE[0] is L->base[func]. + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[1+nargs] + } + | mov LCL, BASE->value + | mov edx, &J->nextins + | mov CI->savedpc, edx + if (cltype == LUA_TFUNCTION) { + if (nargs == -1) { + | jne ->DEOPTIMIZE_OPEN // TYPE hint was wrong (open op)? + } else { + | jne ->DEOPTIMIZE // TYPE hint was wrong? + } + } else { + | je >1 // Skip __call handling for functions. + | call ->METACALL + |1: + + |.jsub METACALL // CALL to __call metamethod. + | sub esp, FRAME_OFFSET + | mov L->savedpc, edx // May throw errors. Save PC and TOP. + | mov L->top, TOP + | call &luaD_tryfuncTM, L, BASE // Resolve __call metamethod. + | add esp, FRAME_OFFSET + | mov BASE, eax // Restore stack-relative pointers. + | mov TOP, L->top + | mov LCL, BASE->value + | mov CI, L->ci + | ret + |.endjsub + } + | call aword LCL->jit_gate // Call JIT func or GATE_JL/GATE_JC. + | subidx BASE, func + | mov L->base, BASE + + /* Clear undefined results TOP <= o < func+nresults. */ + if (nresults > 0) { + | xor eax, eax + if (nresults <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < nresults; i++) { + | mov TOP[i].tt, eax + } + } else { /* Standard loop. TODO: move to .tail? */ + | lea edx, BASE[func+nresults] + |1: // Unrolled for 2 stack slots. No initial check. May use EXTRA_STACK. + | mov TOP[0].tt, eax // LUA_TNIL + | mov TOP[1].tt, eax // LUA_TNIL + | add TOP, 2*#TOP + | cmp TOP, edx + | jb <1 + } + } + + if (nresults >= 0) { /* Not an open ins. Restore L->top. */ + | lea TOP, BASE[J->pt->maxstacksize] // Faster than getting L->ci->top. + | mov L->top, TOP + } /* Otherwise keep TOP for next instruction. */ +} + +static void jit_op_tailcall(jit_State *J, int func, int nargs) +{ + int cltype; + + if (!fhint_isset(J, NOCLOSE)) { /* May need to close open upvalues. */ + | call &luaF_close, L, BASE + } + + cltype = jit_inline_call(J, func, nargs, -2); + if (cltype < 0) goto finish; /* Inlined? */ + + if (cltype == LUA_TFUNCTION) { + jit_deopt_target(J, nargs); + | isfunction func + | jne L_DEOPTIMIZE // TYPE hint was wrong? + } else { + | isfunction func; jne >5 // Handle generic callables first. + |.tail + |5: // Fallback for generic callables. + | addidx BASE, func + if (nargs >= 0) { + | lea TOP, BASE[1+nargs] + } + | mov edx, &J->nextins + | jmp ->METATAILCALL + |.code + + |.jsub METATAILCALL // TAILCALL to __call metamethod. + | mov L->savedpc, edx + | mov L->top, TOP + | call &luaD_tryfuncTM, L, BASE // Resolve __call metamethod. + | + |// Relocate [eax, L->top) -> [L->ci->func, *). + | mov CI, L->ci + | mov edx, L->top + | mov TOP, CI->func + |1: + | mov BASE, [eax] + | add eax, aword*1 + | mov [TOP], BASE + | add TOP, aword*1 + | cmp eax, edx + | jb <1 + | + | mov BASE, CI->func + | mov LCL, BASE->value + | sub CI, #CI + | add esp, FRAME_OFFSET + | jmp aword LCL->jit_gate // Chain to callgate. + |.endjsub + } + + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + int i; + /* Relocate [BASE+func, BASE+func+nargs] -> [ci->func, ci->func+nargs]. */ + /* TODO: loop for large nargs? */ + if (!J->pt->is_vararg) { /* Fixarg function. */ + | mov LCL, BASE[func].value + for (i = 0; i < nargs; i++) { + | copyslot BASE[i], BASE[func+1+i], ecx, edx + } + | lea TOP, BASE[nargs] + | sub BASE, #BASE + | mov CI, L->ci + | mov BASE->value, LCL // Sufficient to copy func->value. + } else { /* Vararg function. */ + | mov CI, L->ci + | lea TOP, BASE[func] + | mov BASE, CI->func + | mov LCL, TOP->value + | mov BASE->value, LCL // Sufficient to copy func->value. + for (i = 0; i < nargs; i++) { + | copyslot BASE[i+1], TOP[i+1], eax, edx + } + | lea TOP, BASE[1+nargs] + | mov LCL, BASE->value // Need to reload LCL = eax. + } + } else { /* Previous op was open and set TOP. */ + |// Relocate [BASE+func, TOP) -> [ci->func, *). + | mov CI, L->ci + | addidx BASE, func + | mov edx, CI->func + |1: + | mov eax, [BASE] + | add BASE, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp BASE, TOP + | jb <1 + | mov BASE, CI->func + | mov TOP, edx // Relocated TOP. + | mov LCL, BASE->value + } + | sub CI, #CI + | add esp, FRAME_OFFSET + | jmp aword LCL->jit_gate // Chain to JIT function. + +finish: + J->combine++; /* Combine with following return instruction. */ +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_move(jit_State *J, int dest, int src) +{ + | copyslot BASE[dest], BASE[src] +} + +static void jit_op_loadk(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + int rk = jit_return_k(J); + if (rk) dest = 0; + | copyconst BASE[dest], kk + if (rk) { + | ret + } +} + +static void jit_op_loadnil(jit_State *J, int first, int last) +{ + int idx, num = last - first + 1; + int rk = jit_return_k(J); + | xor eax, eax // Assumes: LUA_TNIL == 0 + if (rk) { + | settt BASE[0], eax + | ret + } else if (num <= 8) { + for (idx = first; idx <= last; idx++) { + | settt BASE[idx], eax // 3/6 bytes + } + } else { + | lea ecx, BASE[first].tt // 15-21 bytes + | lea edx, BASE[last].tt + |1: + | mov [ecx], eax + | cmp ecx, edx + | lea ecx, [ecx+#BASE] // Preserves CC. + | jbe <1 + } +} + +static void jit_op_loadbool(jit_State *J, int dest, int b, int dojump) +{ + int rk = jit_return_k(J); + if (rk) dest = 0; + | setbvalue BASE[dest], b + if (rk) { + | ret + } else if (dojump) { + const TValue *h = hint_getpc(J, COMBINE, J->nextpc); + if (!(ttisboolean(h) && bvalue(h) == 0)) { /* Avoid jmp around dead ins. */ + | jmp =>J->nextpc+1 + } + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_getupval(jit_State *J, int dest, int uvidx) +{ + | getLCL + | mov UPVAL:ecx, LCL->upvals[uvidx] + | mov TOP, UPVAL:ecx->v + | copyslot BASE[dest], TOP[0] +} + +static void jit_op_setupval(jit_State *J, int src, int uvidx) +{ + | getLCL + | mov UPVAL:ecx, LCL->upvals[uvidx] + | mov TOP, UPVAL:ecx->v + | // This is really copyslot TOP[0], BASE[src] with compare mixed in. + | mov eax, BASE[src].tt + | mov GCOBJECT:edx, BASE[src].value + | mov TOP->tt, eax + | cmp eax, LUA_TSTRING // iscollectable(val)? + | mov eax, BASE[src].value.na[1] + | mov TOP->value, GCOBJECT:edx + | mov TOP->value.na[1], eax + | jae >5 + |4: + |.tail + |5: + | test byte GCOBJECT:edx->gch.marked, WHITEBITS // && iswhite(val) + | jz <4 + | test byte UPVAL:ecx->marked, bitmask(BLACKBIT) // && isblack(uv) + | jz <4 + | call ->BARRIERF // Yes, need barrier. + | jmp <4 + |.code + + |.jsub BARRIERF // luaC_barrierf() with regparms. + | mov ARG4, GCOBJECT:edx + | mov ARG3, UPVAL:ecx + | mov ARG2, L + | jmp &luaC_barrierf // Chain to C code. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +/* Optimized table lookup routines. Enter via jsub, fallback to C. */ + +/* Fallback for GETTABLE_*. Temporary key is in L->env. */ +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_INDEX]); + if (ttisnil(tm)) { /* No __index method? */ + mt->flags |= 1<top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + dest = restorestack(L, destr); + L->top--; + setobjs2s(L, dest, L->top); + } else { /* Let luaV_gettable() continue with the __index object. */ + luaV_gettable(L, tm, &L->env, dest); + } + + |//----------------------------------------------------------------------- + |.jsub GETGLOBAL // Lookup global variable. + |// Call with: TSTRING:edx (key), BASE (dest) + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov TABLE:edi, LCL->env + | jmp >9 + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub GETTABLE_KSTR // Lookup constant string in table. + |// Call with: TOP (tab), TSTRING:edx (key), BASE (dest) + | cmp dword TOP->tt, LUA_TTABLE + | mov TABLE:edi, TOP->value + | jne ->DEOPTIMIZE_CALLER // Not a table? Deoptimize. + | + |// Common entry: TABLE:edi (tab), TSTRING:edx (key), BASE (dest) + |// Restores BASE, destroys eax, ecx, edx, edi (TOP). + |9: + | movzx ecx, byte TABLE:edi->lsizenode // hashstr(t, key). + | mov eax, 1 + | shl eax, cl + | dec eax + | and eax, TSTRING:edx->tsv.hash + | Nodemul NODE:eax + | add NODE:eax, TABLE:edi->node + | + |1: // Start of inner loop. Check node key. + | cmp dword NODE:eax->i_key.nk.tt, LUA_TSTRING + | jne >2 + | cmp aword NODE:eax->i_key.nk.value, TSTRING:edx + | jne >2 + | // Note: swapping the two checks is faster, but valgrind complains. + |// Assumes: (int)&(((Node *)0)->i_val) == (int)&(((StkId)0)->value) + | + |// Ok, key found. Copy node value to destination (stack) slot. + | mov ecx, NODE:eax->i_val.tt + | test ecx, ecx; je >3 // Node has nil value? + ||if (J->flags & JIT_F_CPU_SSE2) { + | movq xmm0, qword NODE:eax->i_val.value + | movq qword BASE->value, xmm0 + ||} else { + | mov edx, NODE:eax->i_val.value + | mov edi, NODE:eax->i_val.value.na[1] + | mov BASE->value, edx + | mov BASE->value.na[1], edi + ||} + | mov BASE->tt, ecx + | mov BASE, L->base + | ret + |2: + | mov NODE:eax, NODE:eax->i_key.nk.next // Get next key in chain. + | test NODE:eax, NODE:eax + | jnz <1 // Loop if non-NULL. + | + | xor ecx, ecx + |3: + | mov TABLE:eax, TABLE:edi->metatable + | test TABLE:eax, TABLE:eax + | jz >4 // No metatable? + | test byte TABLE:eax->flags, 1<5 // Or 'no __index' flag set? + |4: + | settt BASE[0], ecx // Yes, set to nil. + | mov BASE, L->base + | ret + | + |5: // Otherwise chain to C code which eventually calls luaV_gettable. + | setsvalue L->env, TSTRING:edx // Use L->env as temp key. + | mov ecx, [esp] + | sub esp, FRAME_OFFSET + | mov L->savedpc, ecx + | call &jit_gettable_fb, L, TABLE:edi, BASE + | add esp, FRAME_OFFSET + | mov BASE, L->base + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub GETTABLE_STR // Lookup string in table. + |// Call with: TOP (tab), TVALUE:ecx (key), BASE (dest) + | mov eax, TOP->tt; shl eax, 4; or eax, TVALUE:ecx->tt + | cmp eax, LUA_TTABLE_STR + | mov TABLE:edi, TOP->value + | mov TSTRING:edx, TVALUE:ecx->value + | je <9 // Types ok? Continue above. + | jmp ->DEOPTIMIZE_CALLER // Otherwise deoptimize. + |.endjsub +} + +/* Fallback for SETTABLE_*STR. Temporary (string) key is in L->env. */ +static void jit_settable_fb(lua_State *L, Table *t, StkId val) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_NEWINDEX]); + if (ttisnil(tm)) { /* No __newindex method? */ + mt->flags |= 1<flags = 0; /* But need to clear the cache for the table itself. */ + setobj2t(L, luaH_setstr(L, t, rawtsvalue(&L->env)), val); + luaC_barriert(L, t, val); + } else if (ttisfunction(tm)) { /* __newindex function? */ + setobj2s(L, L->top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + setobj2s(L, L->top+3, val); + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); + } else { /* Let luaV_settable() continue with the __newindex object. */ + luaV_settable(L, tm, &L->env, val); + } + + |//----------------------------------------------------------------------- + |.jsub BARRIERBACK // luaC_barrierback() with regparms. + |// Call with: TABLE:edi (table). Destroys ecx, edx. + | mov GL:ecx, L->l_G + | and byte TABLE:edi->marked, (~bitmask(BLACKBIT))&0xff + | mov edx, GL:ecx->grayagain + | mov GL:ecx->grayagain, TABLE:edi + | mov TABLE:edi->gclist, edx + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETGLOBAL // Set global variable. + |// Call with: TSTRING:edx (key), BASE (val) + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov TABLE:edi, LCL->env + | jmp >9 + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETTABLE_KSTR // Set constant string entry in table. + |// Call with: TOP (tab), TSTRING:edx (key), BASE (val) + | cmp dword TOP->tt, LUA_TTABLE + | mov TABLE:edi, TOP->value + | jne ->DEOPTIMIZE_CALLER // Not a table? Deoptimize. + | + |// Common entry: TABLE:edi (tab), TSTRING:edx (key), BASE (val) + |// Restores BASE, destroys eax, ecx, edx, edi (TOP). + |9: + | movzx ecx, byte TABLE:edi->lsizenode // hashstr(t, key). + | mov eax, 1 + | shl eax, cl + | dec eax + | and eax, TSTRING:edx->tsv.hash + | Nodemul NODE:eax + | add NODE:eax, TABLE:edi->node + | + |1: // Start of inner loop. Check node key. + | cmp dword NODE:eax->i_key.nk.tt, LUA_TSTRING + | jne >4 + | cmp aword NODE:eax->i_key.nk.value, TSTRING:edx + | jne >4 + | // Note: swapping the two checks is faster, but valgrind complains. + | + |// Ok, key found. Copy new value to node value. + | cmp dword NODE:eax->i_val.tt, LUA_TNIL // Previous value is nil? + | je >6 + | // Assumes: (int)&(((Node *)0)->i_val) == (int)&(((StkId)0)->value) + |2: + | mov byte TABLE:edi->flags, 0 // Clear metamethod cache. + |3: // Target for SETTABLE_NUM below. + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | jnz >8 // Unlikely, but set barrier back. + |7: // Caveat: recycled label. + | copyslot TVALUE:eax[0], BASE[0], ecx, edx, TOP + | mov BASE, L->base + | ret + | + |8: // Avoid valiswhite() check -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <7 + | + |4: + | mov NODE:eax, NODE:eax->i_key.nk.next // Get next key in chain. + | test NODE:eax, NODE:eax + | jnz <1 // Loop if non-NULL. + | + |// Key not found. Add a new one, but check metatable first. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz >5 // No metatable? + | test byte TABLE:ecx->flags, 1<7 // Or 'no __newindex' flag set? + | + |5: // Add new key. + | // No need for setting L->savedpc since only LUA_ERRMEM may be thrown. + | lea TVALUE:eax, L->env + | setsvalue TVALUE:eax[0], TSTRING:edx + | sub esp, FRAME_OFFSET + | call &luaH_newkey, L, TABLE:edi, TVALUE:eax + | add esp, FRAME_OFFSET + | jmp <2 // Copy to the returned value. See Node/TValue assumption above. + | + |6: // Key found, but previous value is nil. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<env, TSTRING:edx // Use L->env as temp key. + | mov ecx, [esp] + | sub esp, FRAME_OFFSET + | mov L->savedpc, ecx + | call &jit_settable_fb, L, TABLE:edi, BASE + | add esp, FRAME_OFFSET + | mov BASE, L->base + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETTABLE_STR // Set string entry in table. + |// Call with: TOP (tab), TVALUE:ecx (key), BASE (val) + | mov eax, TOP->tt; shl eax, 4; or eax, TVALUE:ecx->tt + | cmp eax, LUA_TTABLE_STR + | mov TABLE:edi, TOP->value + | mov TSTRING:edx, TVALUE:ecx->value + | je <9 // Types ok? Continue above. + | jmp ->DEOPTIMIZE_CALLER // Otherwise deoptimize. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_newtable(jit_State *J, int dest, int lnarray, int lnhash) +{ + | call &luaH_new, L, luaO_fb2int(lnarray), luaO_fb2int(lnhash) + | sethvalue BASE[dest], eax + jit_checkGC(J); +} + +static void jit_op_getglobal(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + | mov TSTRING:edx, &&kk->value.gc->ts + | addidx BASE, dest + | call ->GETGLOBAL +} + +static void jit_op_setglobal(jit_State *J, int rval, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + | mov TSTRING:edx, &&kk->value.gc->ts + | addidx BASE, rval + | call ->SETGLOBAL +} + +enum { TKEY_KSTR = -2, TKEY_STR = -1, TKEY_ANY = 0 }; + +/* Optimize key lookup depending on consts or hints type. */ +static int jit_keylookup(jit_State *J, int tab, int rkey) +{ + const TValue *tabt = hint_get(J, TYPE); + const TValue *key; + if (!ttistable(tabt)) return TKEY_ANY; /* Not a table? Use fallback. */ + key = ISK(rkey) ? &J->pt->k[INDEXK(rkey)] : hint_get(J, TYPEKEY); + if (ttisstring(key)) { /* String key? */ + if (ISK(rkey)) { + | lea TOP, BASE[tab] + | mov TSTRING:edx, &&key->value.gc->ts + return TKEY_KSTR; /* Const string key. */ + } else { + | lea TOP, BASE[tab] + | lea TVALUE:ecx, BASE[rkey] + return TKEY_STR; /* Var string key. */ + } + } else if (ttisnumber(key)) { /* Number key? */ + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (!(k >= 1 && k < (1 << 26) && (lua_Number)k == n)) + return TKEY_ANY; /* Not a proper array key? Use fallback. */ + if (ISK(rkey)) { + | istable tab + | mov TABLE:edi, BASE[tab].value + | jne >9 // TYPE hint was wrong? + | mov ecx, k // Needed for hash fallback. + | mov TVALUE:eax, TABLE:edi->array + | cmp ecx, TABLE:edi->sizearray; ja >5 // Not in array part? + return k; /* Const array key (>= 1). */ + } else { + | mov eax, BASE[tab].tt; shl eax, 4; or eax, BASE[rkey].tt + | cmp eax, LUA_TTABLE_NUM; jne >9 // TYPE/TYPEKEY hint was wrong? + if (J->flags & JIT_F_CPU_SSE2) { + | movsd xmm0, qword BASE[rkey] + | cvttsd2si eax, xmm0 + | cvtsi2sd xmm1, eax + | dec eax + | ucomisd xmm1, xmm0 + | mov TABLE:edi, BASE[tab].value + | jne >9; jp >9 // Not an integer? Deoptimize. + } else { + |// Annoying x87 stuff: check whether a number is an integer. + |// The latency of fist/fild is the real problem here. + | fld qword BASE[rkey].value + | fist dword TMP1 + | fild dword TMP1 + | fcomparepp // eax may be modified. + | jne >9; jp >9 // Not an integer? Deoptimize. + | mov eax, TMP1 + | mov TABLE:edi, BASE[tab].value + | dec eax + } + | cmp eax, TABLE:edi->sizearray; jae >5 // Not in array part? + | TValuemul eax + | add eax, TABLE:edi->array + return 1; /* Variable array key. */ + } + } + return TKEY_ANY; /* Use fallback. */ +} + +static void jit_op_gettable(jit_State *J, int dest, int tab, int rkey) +{ + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + | addidx BASE, dest + | call ->GETTABLE_KSTR + break; + case TKEY_STR: /* Variable string key. */ + | addidx BASE, dest + | call ->GETTABLE_STR + break; + case TKEY_ANY: /* Generic gettable fallback. */ + if (ISK(rkey)) { + | mov ecx, &&J->pt->k[INDEXK(rkey)] + } else { + | lea ecx, BASE[rkey] + } + | lea edx, BASE[tab] + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &luaV_gettable, L, edx, ecx, BASE + | mov BASE, L->base + break; + default: /* Array key. */ + |// This is really copyslot BASE[dest], TVALUE:eax[k-1] mixed with compare. + |1: + | mov edx, TVALUE:eax[k-1].tt + | test edx, edx; je >6 // Array has nil value? + if (J->flags & JIT_F_CPU_SSE2) { + | movq xmm0, qword TVALUE:eax[k-1].value + | movq qword BASE[dest].value, xmm0 + } else { + | mov ecx, TVALUE:eax[k-1].value + | mov eax, TVALUE:eax[k-1].value.na[1] + | mov BASE[dest].value, ecx + | mov BASE[dest].value.na[1], eax + } + |2: + | mov BASE[dest].tt, edx + |.tail + |5: // Fallback to hash part. TABLE:edi is callee-saved. + if (ISK(rkey)) { + | call ->GETTABLE_KNUM + } else { + | call ->GETTABLE_NUM + } + | jmp <1 // Slot is at TVALUE:eax[k-1]. + | + |6: // Shortcut for tables without an __index metamethod. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<nextins + | jmp ->DEOPTIMIZE + |.code + break; + } + + |.jsub GETTABLE_KNUM // Gettable fallback for const numeric keys. + | mov TMP2, ecx // Save k. + | sub esp, FRAME_OFFSET + | call &luaH_getnum, TABLE:edi, ecx + | add esp, FRAME_OFFSET + | mov ecx, TMP2 // Restore k. + | TValuemul ecx + | sub TVALUE:eax, ecx // Compensate for TVALUE:eax[k-1]. + | add TVALUE:eax, #TVALUE + | ret + |.endjsub + | + |.jsub GETTABLE_NUM // Gettable fallback for variable numeric keys. + | inc eax + | mov ARG2, TABLE:edi // Really ARG1 and ARG2. + | mov ARG3, eax + | jmp &luaH_getnum // Chain to C code. + |.endjsub +} + +static void jit_op_settable(jit_State *J, int tab, int rkey, int rval) +{ + const TValue *val = ISK(rval) ? &J->pt->k[INDEXK(rval)] : NULL; + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + case TKEY_STR: /* Variable string key. */ + if (ISK(rval)) { + | mov BASE, &val + } else { + | addidx BASE, rval + } + if (k == TKEY_KSTR) { + | call ->SETTABLE_KSTR + } else { + | call ->SETTABLE_STR + } + break; + case TKEY_ANY: /* Generic settable fallback. */ + if (ISK(rkey)) { + | mov ecx, &&J->pt->k[INDEXK(rkey)] + } else { + | lea ecx, BASE[rkey] + } + if (ISK(rval)) { + | mov edx, &val + } else { + | lea edx, BASE[rval] + } + | addidx BASE, tab + | mov L->savedpc, &J->nextins + | call &luaV_settable, L, BASE, ecx, edx + | mov BASE, L->base + break; + default: /* Array key. */ + |1: + | tvisnil TVALUE:eax[k-1]; je >6 // Previous value is nil? + |2: + |.tail + |5: // Fallback to hash part. TABLE:edi is callee-saved. + if (ISK(rkey)) { + | call ->SETTABLE_KNUM + } else { + | call ->SETTABLE_NUM + } + | jmp <1 // Slot is at TVALUE:eax[k-1]. + | + |6: // Shortcut for tables without a __newindex metamethod. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<nextins + | jmp ->DEOPTIMIZE + |.code + if (!ISK(rval) || iscollectable(val)) { + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | jnz >7 // Unlikely, but set barrier back. + |3: + |.tail + |7: // Avoid valiswhite() check -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <3 + |.code + } + if (ISK(rval)) { + | copyconst TVALUE:eax[k-1], val + } else { + | copyslot TVALUE:eax[k-1], BASE[rval], ecx, edx, TOP + } + break; + } + + |.jsub SETTABLE_KNUM // Settable fallback for const numeric keys. + | mov TMP2, ecx // Save k. + | sub esp, FRAME_OFFSET + | call &luaH_setnum, L, TABLE:edi, ecx + | add esp, FRAME_OFFSET + | mov ecx, TMP2 // Restore k. + | TValuemul ecx + | sub TVALUE:eax, ecx // Compensate for TVALUE:eax[k-1]. + | add TVALUE:eax, #TVALUE + | ret + |.endjsub + | + |.jsub SETTABLE_NUM // Settable fallback for variable numeric keys. + | inc eax + | mov ARG2, L // Really ARG1, ARG2 and ARG3. + | mov ARG3, TABLE:edi + | mov ARG4, eax + | jmp &luaH_setnum // Chain to C code. + |.endjsub +} + +static void jit_op_self(jit_State *J, int dest, int tab, int rkey) +{ + | copyslot BASE[dest+1], BASE[tab] + jit_op_gettable(J, dest, tab, rkey); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_setlist(jit_State *J, int ra, int num, int batch) +{ + if (batch == 0) { batch = (int)(*J->nextins); J->combine++; } + batch = (batch-1)*LFIELDS_PER_FLUSH; + if (num == 0) { /* Previous op was open and set TOP: {f()} or {...}. */ + | mov L->env.value, TOP // Need to save TOP (edi). + | lea eax, BASE[ra+1] + | sub eax, TOP + | neg eax + | TValuediv eax // num = (TOP-ra-1)/sizeof(TValue). + | mov TABLE:edi, BASE[ra].value + | jz >4 // Nothing to set? + if (batch > 0) { + | add eax, batch + } + | cmp dword TABLE:edi->sizearray, eax + | jae >1 // Skip resize if not needed. + | // A resize is likely, so inline it. + | call &luaH_resizearray, L, TABLE:edi, eax + |1: + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | mov edx, TABLE:edi->array + | jnz >6 // Unlikely, but set barrier back. + | mov TOP, L->env.value + | + |.tail + |6: // Avoid lots of valiswhite() checks -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <1 // Need to reload edx. + |.code + } else { /* Set fixed number of args. */ + | mov TABLE:edi, BASE[ra].value // edi is callee-save. + | cmp dword TABLE:edi->sizearray, batch+num + | jb >5 // Need to resize array? + |1: + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | mov edx, TABLE:edi->array + | jnz >6 // Unlikely, but set barrier back. + | lea TOP, BASE[ra+1+num] // Careful: TOP is edi. + | + |.tail + |5: // A resize is unlikely (impossible?). NEWTABLE should've done it. + | call &luaH_resizearray, L, TABLE:edi, batch+num + | jmp <1 + |6: // Avoid lots of valiswhite() checks -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <1 // Need to reload edx. + |.code + } + if (batch > 0) { + | add edx, batch*#TVALUE // edx = &t->array[(batch+1)-1] + } + | lea ecx, BASE[ra+1] + |3: // Copy stack slots to array. + | mov eax, [ecx] + | add ecx, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp ecx, TOP + | jb <3 + | + |4: + if (num == 0) { /* Previous op was open. Restore L->top. */ + | lea TOP, BASE[J->pt->maxstacksize] // Faster than getting L->ci->top. + | mov L->top, TOP + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_arith(jit_State *J, int dest, int rkb, int rkc, int ev) +{ + const TValue *kkb = ISK(rkb) ? &J->pt->k[INDEXK(rkb)] : NULL; + const TValue *kkc = ISK(rkc) ? &J->pt->k[INDEXK(rkc)] : NULL; + const Value *kval; + int idx, rev; + int target = (ev == TM_LT || ev == TM_LE) ? jit_jmp_target(J) : 0; + int hastail = 0; + + /* The bytecode compiler already folds constants except for: k/0, k%0, */ + /* NaN results, k1value; idx = rkb; rev = 1; } + else { kval = kkb ? &kkb->value : NULL; idx = rkc; rev = 0; } + + /* Special handling for some operators. */ + switch (ev) { + case TM_MOD: + /* Check for modulo with positive numbers, so we can use fprem. */ + if (kval) { + if (kval->na[1] < 0) { hastail = 0; goto fallback; } /* x%-k, -k%x */ + | isnumber idx + | mov eax, BASE[idx].value.na[1] + | jne L_DEOPTIMIZEF + | test eax, eax; js L_DEOPTIMIZEF + |// This will trigger deoptimization in some benchmarks (pidigits). + |// But it's still a win. + if (kkb) { + | fld qword BASE[rkc].value + | fld qword [kval] + } else { + | fld qword [kval] + | fld qword BASE[rkb].value + } + } else { + | isnumber2 rkb, rkc + | mov eax, BASE[rkb].value.na[1] + | jne L_DEOPTIMIZEF + | or eax, BASE[rkc].value.na[1]; js L_DEOPTIMIZEF + | fld qword BASE[rkc].value + | fld qword BASE[rkb].value + } + |1: ; fprem; fnstsw ax; sahf; jp <1 + | fstp st1 + goto fpstore; + case TM_POW: + if (hastail || !kval) break; /* Avoid this if not optimizing. */ + if (rev) { /* x^k for k > 0, k integer. */ + lua_Number n = kval->n; + int k; + lua_number2int(k, n); + /* All positive integers would work. But need to limit code explosion. */ + if (k > 0 && k <= 65536 && (lua_Number)k == n) { + | isnumber idx; jne L_DEOPTIMIZEF + | fld qword BASE[idx] + for (; (k & 1) == 0; k >>= 1) { /* Handle leading zeroes (2^k). */ + | fmul st0 + } + if ((k >>= 1) != 0) { /* Handle trailing bits. */ + | fld st0 + | fmul st0 + for (; k != 1; k >>= 1) { + if (k & 1) { + | fmul st1, st0 + } + | fmul st0 + } + | fmulp st1 + } + goto fpstore; + } + } else if (kval->n > (lua_Number)0) { /* k^x for k > 0. */ + int log2kval[3]; /* Enough storage for a tword (80 bits). */ + log2kval[2] = 0; /* Avoid leaking garbage. */ + /* Double precision log2(k) doesn't cut it (3^x != 3 for x = 1). */ + ((void (*)(int *, double))J->jsub[JSUB_LOG2_TWORD])(log2kval, kval->n); + | mov ARG1, log2kval[0] // Abuse stack for tword const. + | mov ARG2, log2kval[1] + | mov ARG3, log2kval[2] // TODO: store2load fwd stall. + | isnumber idx; jne L_DEOPTIMIZEF + | fld tword [esp] + | fmul qword BASE[idx].value // log2(k)*x + | fld st0; frndint; fsub st1, st0; fxch // Split into fract/int part. + | f2xm1; fld1; faddp st1; fscale // (2^fract-1 +1) << int. + | fstp st1 + + |.jsub LOG2_TWORD // Calculate log2(k) with max. precision. + |// Called with (int *ptr, double k). + | fld1; fld FPARG2 // Offset ok due to retaddr. + | fyl2x + | mov eax, ARG2 // Really ARG1. + | fstp tword [eax] + | ret + |.endjsub + goto fpstore; + } + break; + } + + /* Check number type and load 1st operand. */ + if (kval) { + | isnumber idx; jne L_DEOPTIMIZEF + | loadnvaluek kval + } else { + if (rkb == rkc) { + | isnumber rkb + } else { + | isnumber2 rkb, rkc + } + | jne L_DEOPTIMIZEF + | fld qword BASE[rkb].value + } + + /* Encode arithmetic operation with 2nd operand. */ + switch ((ev<<1)+rev) { + case TM_ADD<<1: case (TM_ADD<<1)+1: + if (rkb == rkc) { + | fadd st0 + } else { + | fadd qword BASE[idx].value + } + break; + case TM_SUB<<1: + | fsub qword BASE[idx].value + break; + case (TM_SUB<<1)+1: + | fsubr qword BASE[idx].value + break; + case TM_MUL<<1: case (TM_MUL<<1)+1: + if (rkb == rkc) { + | fmul st0 + } else { + | fmul qword BASE[idx].value + } + break; + case TM_DIV<<1: + | fdiv qword BASE[idx].value + break; + case (TM_DIV<<1)+1: + | fdivr qword BASE[idx].value + break; + case TM_POW<<1: + | sub esp, S2LFRAME_OFFSET + | fstp FPARG1 + | fld qword BASE[idx].value + | fstp FPARG2 + | call &pow + | add esp, S2LFRAME_OFFSET + break; + case (TM_POW<<1)+1: + | sub esp, S2LFRAME_OFFSET + | fstp FPARG2 + | fld qword BASE[idx].value + | fstp FPARG1 + | call &pow + | add esp, S2LFRAME_OFFSET + break; + case TM_UNM<<1: case (TM_UNM<<1)+1: + | fchs // No 2nd operand. + break; + default: /* TM_LT or TM_LE. */ + | fld qword BASE[idx].value + | fcomparepp + | jp =>dest?(J->nextpc+1):target // Unordered means false. + jit_assert(dest == 0 || dest == 1); /* Really cond. */ + switch (((rev^dest)<<1)+(dest^(ev == TM_LT))) { + case 0: + | jb =>target + break; + case 1: + | jbe =>target + break; + case 2: + | ja =>target + break; + case 3: + | jae =>target + break; + } + goto skipstore; + } +fpstore: + /* Store result and set result type (if necessary). */ + | fstp qword BASE[dest].value + if (dest != rkb && dest != rkc) { + | settt BASE[dest], LUA_TNUMBER + } + +skipstore: + if (!hastail) { + jit_deopt_target(J, 0); + return; + } + + |4: + |.tail + |L_DEOPTLABEL: // Recycle as fallback label. + +fallback: + /* Generic fallback for arithmetic ops. */ + if (kkb) { + | mov ecx, &kkb + } else { + | lea ecx, BASE[rkb] + } + if (kkc) { + | mov edx, &kkc + } else { + | lea edx, BASE[rkc] + } + if (target) { /* TM_LT or TM_LE. */ + | mov L->savedpc, &(J->nextins+1) + | call &ev==TM_LT?luaV_lessthan:luaV_lessequal, L, ecx, edx + | test eax, eax + | mov BASE, L->base + if (dest) { /* cond */ + | jnz =>target + } else { + | jz =>target + } + } else { + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &luaV_arith, L, BASE, ecx, edx, ev + | mov BASE, L->base + } + + if (hastail) { + | jmp <4 + |.code + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_fallback_len(lua_State *L, StkId ra, const TValue *rb) +{ + switch (ttype(rb)) { + case LUA_TTABLE: + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + case LUA_TSTRING: + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + default: { + const TValue *tm = luaT_gettmbyobj(L, rb, TM_LEN); + if (ttisfunction(tm)) { + ptrdiff_t rasave = savestack(L, ra); + setobj2s(L, L->top, tm); + setobj2s(L, L->top+1, rb); + luaD_checkstack(L, 2); + L->top += 2; + luaD_call(L, L->top - 2, 1); + ra = restorestack(L, rasave); + L->top--; + setobjs2s(L, ra, L->top); + } else { + luaG_typeerror(L, rb, "get length of"); + } + break; + } + } +} + +static void jit_op_len(jit_State *J, int dest, int rb) +{ + switch (ttype(hint_get(J, TYPE))) { + case LUA_TTABLE: + jit_deopt_target(J, 0); + | istable rb + | mov TABLE:ecx, BASE[rb].value + | jne L_DEOPTIMIZE // TYPE hint was wrong? + | call &luaH_getn, TABLE:ecx + | mov TMP1, eax + | fild dword TMP1 + | fstp qword BASE[dest].value + | settt BASE[dest], LUA_TNUMBER + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + | isstring rb + | mov TSTRING:ecx, BASE[rb].value + | jne L_DEOPTIMIZE // TYPE hint was wrong? + | fild aword TSTRING:ecx->tsv.len // size_t + | fstp qword BASE[dest].value + | settt BASE[dest], LUA_TNUMBER + break; + default: + | lea TVALUE:ecx, BASE[rb] + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &jit_fallback_len, L, BASE, TVALUE:ecx + | mov BASE, L->base + break; + } +} + +static void jit_op_not(jit_State *J, int dest, int rb) +{ + /* l_isfalse() without a branch -- truly devious. */ + /* ((value & tt) | (tt>>1)) is only zero for nil/false. */ + /* Assumes: LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + | mov eax, BASE[rb].tt + | mov ecx, BASE[rb].value + | mov edx, 1 + | and ecx, eax + | shr eax, 1 + | or ecx, eax + | xor eax, eax + | cmp ecx, edx + | adc eax, eax + | mov BASE[dest].tt, edx + | mov BASE[dest].value, eax +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_concat(jit_State *J, int dest, int first, int last) +{ + int num = last-first+1; + if (num == 2 && ttisstring(hint_get(J, TYPE))) { /* Optimize common case. */ + | addidx BASE, first + | call ->CONCAT_STR2 + | setsvalue BASE[dest], eax + } else { /* Generic fallback. */ + | mov L->savedpc, &J->nextins + | call &luaV_concat, L, num, last + | mov BASE, L->base + if (dest != first) { + | copyslot BASE[dest], BASE[first] + } + } + jit_checkGC(J); /* Always do this, even for the optimized variant. */ + + |.jsub CONCAT_STR2 // Concatenate two strings. + |// Call with: BASE (first). Destroys all regs. L and BASE restored. + | mov ARG2, L // Save L (esi). + | mov eax, BASE[0].tt; shl eax, 4; or eax, BASE[1].tt + | sub eax, LUA_TSTR_STR // eax = 0 on success. + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | + |1: + | mov GL:edi, L->l_G + | mov TSTRING:esi, BASE[0].value // Caveat: L (esi) is gone now! + | mov TSTRING:edx, BASE[1].value + | mov ecx, TSTRING:esi->tsv.len // size_t + | test ecx, ecx + | jz >2 // 1st string is empty? + | or eax, TSTRING:edx->tsv.len // eax is known to be zero. + | jz >4 // 2nd string is empty? + | add eax, ecx + | jc >9 // Length overflow? + | cmp eax, GL:edi->buff.buffsize // size_t + | ja >5 // Temp buffer overflow? + | mov edi, GL:edi->buff.buffer + | add esi, #TSTRING + | rep; movsb // Copy first string. + | mov ecx, TSTRING:edx->tsv.len + | lea esi, TSTRING:edx[1] + | rep; movsb // Copy second string. + | + | sub edi, eax // start = end - total. + | mov L, ARG2 // Restore L (esi). Reuse as 1st arg. + | mov ARG3, edi + | mov ARG4, eax + | mov BASE, L->base // Restore BASE. + | jmp &luaS_newlstr + | + |2: // 1st string is empty. + | mov eax, TSTRING:edx // Return 2nd string. + |3: + | mov L, ARG2 // Restore L (esi) and BASE. + | mov BASE, L->base + | ret + | + |4: // 2nd string is empty. + | mov eax, TSTRING:esi // Return 1st string. + | jmp <3 + | + |5: // Resize temp buffer. + | // No need for setting L->savedpc since only LUA_ERRMEM may be thrown. + | mov L, ARG2 // Restore L. + | lea ecx, GL:edi->buff + | sub esp, FRAME_OFFSET + | call &luaZ_openspace, L, ecx, eax + | add esp, FRAME_OFFSET + | xor eax, eax // BASE (first) and L saved. eax = 0. + | jmp <1 // Just restart. + | + |9: // Length overflow errors are rare (> 2 GB string required). + | mov L, ARG2 // Need L for deoptimization. + | jmp ->DEOPTIMIZE_CALLER + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_eq(jit_State *J, int cond, int rkb, int rkc) +{ + int target = jit_jmp_target(J); + int condtarget = cond ? (J->nextpc+1) : target; + jit_assert(cond == 0 || cond == 1); + + /* Comparison of two constants. Evaluate at compile time. */ + if (ISK(rkb&rkc)) { + if ((rkb == rkc) == cond) { /* Constants are already unique. */ + | jmp =>target + } + return; + } + + if (ISK(rkb|rkc)) { /* Compare a variable and a constant. */ + const TValue *kk; + if (ISK(rkb)) { int t = rkc; rkc = rkb; rkb = t; } /* rkc holds const. */ + kk = &J->pt->k[INDEXK(rkc)]; + switch (ttype(kk)) { + case LUA_TNIL: + | isnil rkb + break; + case LUA_TBOOLEAN: + if (bvalue(kk)) { + | mov eax, BASE[rkb].tt + | mov ecx, BASE[rkb].value + | dec eax + | dec ecx + | or eax, ecx + } else { + | mov eax, BASE[rkb].tt + | dec eax + | or eax, BASE[rkb].value + } + break; + case LUA_TNUMBER: + |// Note: bitwise comparison is not faster (and needs to handle -0 == 0). + | isnumber rkb + | jne =>condtarget + | fld qword BASE[rkb].value + | fld qword [&kk->value] + | fcomparepp + | jp =>condtarget // Unordered means not equal. + break; + case LUA_TSTRING: + | isstring rkb + | jne =>condtarget + | cmp aword BASE[rkb].value, &rawtsvalue(kk) + break; + default: jit_assert(0); break; + } + } else { /* Compare two variables. */ + | mov eax, BASE[rkb].tt + | cmp eax, BASE[rkc].tt + | jne =>condtarget + switch (ttype(hint_get(J, TYPE))) { + case LUA_TNUMBER: + jit_deopt_target(J, 0); + |// Note: bitwise comparison is not an option (-0 == 0, NaN ~= NaN). + | cmp eax, LUA_TNUMBER; jne L_DEOPTIMIZE + | fld qword BASE[rkb].value + | fld qword BASE[rkc].value + | fcomparepp + | jp =>condtarget // Unordered means not equal. + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + | cmp eax, LUA_TSTRING; jne L_DEOPTIMIZE + | mov ecx, BASE[rkb].value + | cmp ecx, BASE[rkc].value + break; + default: + |// Generic equality comparison fallback. + | lea edx, BASE[rkc] + | lea ecx, BASE[rkb] + | mov L->savedpc, &J->nextins + | call &luaV_equalval, L, ecx, edx + | dec eax + | mov BASE, L->base + break; + } + } + if (cond) { + | je =>target + } else { + | jne =>target + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_test(jit_State *J, int cond, int dest, int src) +{ + int target = jit_jmp_target(J); + + /* l_isfalse() without a branch. But this time preserve tt/value. */ + /* (((value & tt) * 2 + tt) >> 1) is only zero for nil/false. */ + /* Assumes: 3*tt < 2^32, LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + | mov eax, BASE[src].tt + | mov ecx, BASE[src].value + | mov edx, eax + | and edx, ecx + | lea edx, [eax+edx*2] + | shr edx, 1 + + /* Check if we can omit the stack copy. */ + if (dest == src) { /* Yes, invert branch condition. */ + if (cond) { + | jnz =>target + } else { + | jz =>target + } + } else { /* No, jump around copy code. */ + if (cond) { + | jz >1 + } else { + | jnz >1 + } + | mov edx, BASE[src].value.na[1] + | mov BASE[dest].tt, eax + | mov BASE[dest].value, ecx + | mov BASE[dest].value.na[1], edx + | jmp =>target + |1: + } +} + +static void jit_op_jmp(jit_State *J, int target) +{ + | jmp =>target +} + +/* ------------------------------------------------------------------------ */ + +enum { FOR_IDX, FOR_LIM, FOR_STP, FOR_EXT }; + +static const char *const jit_for_coerce_error[] = { + LUA_QL("for") " initial value must be a number", + LUA_QL("for") " limit must be a number", + LUA_QL("for") " step must be a number", +}; + +/* Try to coerce for slots with strings to numbers in place or complain. */ +static void jit_for_coerce(lua_State *L, TValue *o) +{ + int i; + for (i = FOR_IDX; i <= FOR_STP; i++, o++) { + lua_Number num; + if (ttisnumber(o)) continue; + if (ttisstring(o) && luaO_str2d(svalue(o), &num)) { + setnvalue(o, num); + } else { + luaG_runerror(L, jit_for_coerce_error[i]); + } + } +} + +static void jit_op_forprep(jit_State *J, int ra, int target) +{ + const TValue *step = hint_get(J, FOR_STEP_K); + if (ttisnumber(step)) { + | isnumber2 ra+FOR_IDX, ra+FOR_LIM; jne L_DEOPTIMIZEF + |4: + | fld qword BASE[ra+FOR_LIM].value // [lim] + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fst qword BASE[ra+FOR_EXT].value // extidx = idx + | fcomparepp // idx >< lim ? + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + if (nvalue(step) < (lua_Number)0) { + | jb =>target+1 // step < 0 && idx < lim: skip loop. + } else { + | ja =>target+1 // step >= 0 && idx > lim: skip loop. + } + } else { + |4: + | isnumber3 ra+FOR_IDX, ra+FOR_LIM, ra+FOR_STP + | mov eax, BASE[ra+FOR_STP].value.na[1] // Sign bit is in hi dword. + | jne L_DEOPTIMIZEF + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | test eax, eax // step >< 0 ? + | fst qword BASE[ra+FOR_EXT].value // extidx = idx + | js >1 + | fxch // if (step > 0) [lim idx] + |1: + | fcomparepp // step > 0 ? lim < idx : idx < lim + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | jb =>target+1 // Skip loop. + } + if (ttisnumber(hint_get(J, TYPE))) { + jit_deopt_target(J, 0); + } else { + |.tail + |L_DEOPTLABEL: // Recycle as fallback label. + | // Fallback for strings as loop vars. No need to make this fast. + | lea eax, BASE[ra] + | mov L->savedpc, &J->nextins + | call &jit_for_coerce, L, eax // Coerce strings or throw error. + | jmp <4 // Easier than reloading eax. + |.code + } +} + +static void jit_op_forloop(jit_State *J, int ra, int target) +{ + const TValue *step = hint_getpc(J, FOR_STEP_K, target-1); + if (ttisnumber(step)) { + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fadd qword BASE[ra+FOR_STP].value // [nidx lim] + | fst qword BASE[ra+FOR_EXT].value // extidx = nidx + | fst qword BASE[ra+FOR_IDX].value // idx = nidx + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | fcomparepp // nidx >< lim ? + if (nvalue(step) < (lua_Number)0) { + | jae =>target // step < 0 && nidx >= lim: loop again. + } else { + | jbe =>target // step >= 0 && nidx <= lim: loop again. + } + } else { + | mov eax, BASE[ra+FOR_STP].value.na[1] // Sign bit is in hi dword. + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fld qword BASE[ra+FOR_STP].value // [stp idx lim] + | faddp st1 // [nidx lim] + | fst qword BASE[ra+FOR_IDX].value // idx = nidx + | fst qword BASE[ra+FOR_EXT].value // extidx = nidx + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | test eax, eax // step >< 0 ? + | js >1 + | fxch // if (step > 0) [lim nidx] + |1: + | fcomparepp // step > 0 ? lim >= nidx : nidx >= lim + | jae =>target // Loop again. + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_tforloop(jit_State *J, int ra, int nresults) +{ + int target = jit_jmp_target(J); + int i; + if (jit_inline_tforloop(J, ra, nresults, target)) return; /* Inlined? */ + for (i = 2; i >= 0; i--) { + | copyslot BASE[ra+i+3], BASE[ra+i] // Copy ctlvar/state/callable. + } + jit_op_call(J, ra+3, 2, nresults); + | isnil ra+3; je >1 + | copyslot BASE[ra+2], BASE[ra+3] // Save control variable. + | jmp =>target + |1: +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_close(jit_State *J, int ra) +{ + if (ra) { + | lea eax, BASE[ra] + | mov ARG2, eax + } else { + | mov ARG2, BASE + } + | call &luaF_close, L // , StkId level (ARG2) +} + +static void jit_op_closure(jit_State *J, int dest, int ptidx) +{ + Proto *npt = J->pt->p[ptidx]; + int nup = npt->nups; + | getLCL edi // LCL:edi is callee-saved. + | mov edx, LCL:edi->env + | call &luaF_newLclosure, L, nup, edx + | mov LCL->p, &npt // Store new proto in returned closure. + | mov aword BASE[dest].value, LCL // setclvalue() + | settt BASE[dest], LUA_TFUNCTION + /* Process pseudo-instructions for upvalues. */ + if (nup > 0) { + const Instruction *uvcode = J->nextins; + int i, uvuv; + /* Check which of the two types we need. */ + for (i = 0, uvuv = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) uvuv++; + /* Copy upvalues from parent first. */ + if (uvuv) { + /* LCL:eax->upvals (new closure) <-- LCL:edi->upvals (own closure). */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) { + | mov UPVAL:edx, LCL:edi->upvals[GETARG_B(uvcode[i])] + | mov LCL->upvals[i], UPVAL:edx + } + } + /* Next find or create upvalues for our own stack slots. */ + if (nup > uvuv) { + | mov LCL:edi, LCL // Move new closure to callee-save register. */ + /* LCL:edi->upvals (new closure) <-- upvalue for stack slot. */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_MOVE) { + int rb = GETARG_B(uvcode[i]); + if (rb) { + | lea eax, BASE[rb] + | mov ARG2, eax + } else { + | mov ARG2, BASE + } + | call &luaF_findupval, L // , StkId level (ARG2) + | mov LCL:edi->upvals[i], UPVAL:eax + } + } + J->combine += nup; /* Skip pseudo-instructions. */ + } + jit_checkGC(J); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_vararg(jit_State *J, int dest, int num) +{ + if (num < 0) { /* Copy all varargs. */ + |// Copy [ci->func+1+pt->numparams, BASE) -> [BASE+dest, *). + |1: + | mov CI, L->ci + | mov edx, CI->func + | add edx, (1+J->pt->numparams)*#TVALUE // Start of varargs. + | + | // luaD_checkstack(L, nvararg) with nvararg = L->base - vastart. + | // This is a slight overallocation (BASE[dest+nvararg] would be enough). + | // We duplicate OP_VARARG behaviour so we can use luaD_growstack(). + | lea eax, [BASE+BASE+J->pt->maxstacksize*#TVALUE] // L->base + L->top + | sub eax, edx // L->top + (L->base - vastart) + | cmp eax, L->stack_last + | jae >5 // Need to grow stack? + | + | lea TOP, BASE[dest] + | cmp edx, BASE + | jnb >3 + |2: // Copy loop. + | mov eax, [edx] + | add edx, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp edx, BASE + | jb <2 + |3: + |// This is an open ins. Must keep TOP for next instruction. + | + |.tail + |5: // Grow stack for varargs. + | sub eax, L->top + | TValuediv eax + | call &luaD_growstack, L, eax + | mov BASE, L->base + | jmp <1 // Just restart op to avoid saving/restoring regs. + |.code + } else if (num > 0) { /* Copy limited number of varargs. */ + |// Copy [ci->func+1+pt->numparams, BASE) -> [BASE+dest, BASE+dest+num). + | mov CI, L->ci + | mov edx, CI->func + | add edx, (1+J->pt->numparams)*#TVALUE + | lea TOP, BASE[dest] + | lea ecx, BASE[dest+num] + | cmp edx, BASE // No varargs present: only fill. + | jnb >2 + | + |1: // Copy loop. + | mov eax, [edx] + | add edx, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp TOP, ecx // Stop if all dest slots got a vararg. + | jnb >4 + | cmp edx, BASE // Continue if more varargs present. + | jb <1 + | + |2: // Fill remaining slots with nils. + | xor eax, eax // Assumes: LUA_TNIL == 0 + |3: // Fill loop. + | settt TOP[0], eax + | add TOP, #TVALUE + | cmp TOP, ecx + | jb <3 + |4: + } +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash new file mode 100644 index 00000000000..140d1d2b924 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash @@ -0,0 +1,297 @@ +|// +|// Common DynASM definitions and macros for x86 CPUs. +|// Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +|// +| +|// Standard DynASM declarations. +|.arch x86 +|.section code, deopt, tail, mfmap +| +|// Type definitions with (almost) global validity. +|.type L, lua_State, esi // L. +|.type BASE, TValue, ebx // L->base. +|.type TOP, TValue, edi // L->top (calls/open ops). +|.type CI, CallInfo, ecx // L->ci (calls, locally). +|.type LCL, LClosure, eax // func->value (calls). +| +|// Type definitions with local validity. +|.type GL, global_State +|.type TVALUE, TValue +|.type VALUE, Value +|.type CINFO, CallInfo +|.type GCOBJECT, GCObject +|.type TSTRING, TString +|.type TABLE, Table +|.type CCLOSURE, CClosure +|.type PROTO, Proto +|.type UPVAL, UpVal +|.type NODE, Node +| +|// Definitions copied to DynASM domain to avoid unnecessary constant args. +|// CHECK: must match with the definitions in lua.h! +|.define LUA_TNIL, 0 +|.define LUA_TBOOLEAN, 1 +|.define LUA_TLIGHTUSERDATA, 2 +|.define LUA_TNUMBER, 3 +|.define LUA_TSTRING, 4 +|.define LUA_TTABLE, 5 +|.define LUA_TFUNCTION, 6 +|.define LUA_TUSERDATA, 7 +|.define LUA_TTHREAD, 8 +| +|.define LUA_TNUM_NUM, 0x33 +|.define LUA_TNUM_NUM_NUM, 0x333 +|.define LUA_TSTR_STR, 0x44 +|.define LUA_TSTR_NUM, 0x43 +|.define LUA_TSTR_NUM_NUM, 0x433 +|.define LUA_TTABLE_NUM, 0x53 +|.define LUA_TTABLE_STR, 0x54 +| +|// Macros to test, set and copy stack slots. +|.macro istt, idx, tp; cmp dword BASE[idx].tt, tp; .endmacro +|.macro isnil, idx; istt idx, LUA_TNIL; .endmacro +|.macro isnumber, idx; istt idx, LUA_TNUMBER; .endmacro +|.macro isstring, idx; istt idx, LUA_TSTRING; .endmacro +|.macro istable, idx; istt idx, LUA_TTABLE; .endmacro +|.macro isfunction, idx; istt idx, LUA_TFUNCTION; .endmacro +| +|.macro isnumber2, idx1, idx2, reg +| mov reg, BASE[idx1].tt; shl reg, 4; or reg, BASE[idx2].tt +| cmp reg, LUA_TNUM_NUM +|.endmacro +|.macro isnumber2, idx1, idx2; isnumber2, idx1, idx2, eax; .endmacro +| +|.macro isnumber3, idx1, idx2, idx3, reg +| mov reg, BASE[idx1].tt; shl reg, 4; or reg, BASE[idx2].tt +| shl reg, 4; or reg, BASE[idx3].tt; cmp reg, LUA_TNUM_NUM_NUM +|.endmacro +|.macro isnumber3, idx1, idx2, idx3; isnumber3, idx1, idx2, idx3, eax; .endmacro +| +|.macro tvisnil, tv; cmp dword tv.tt, LUA_TNIL; .endmacro +| +|.macro settt, tv, tp; mov dword tv.tt, tp; .endmacro +|.macro setnilvalue, tv; settt tv, LUA_TNIL; .endmacro +| +|.macro setbvalue, tv, val // May use edx. +||if (val) { /* true */ +| mov edx, LUA_TBOOLEAN +| mov dword tv.value, edx // Assumes: LUA_TBOOLEAN == 1 +| settt tv, edx +||} else { /* false */ +| mov dword tv.value, 0 +| settt tv, LUA_TBOOLEAN +||} +|.endmacro +| +|.macro loadnvaluek, vptr +||if ((vptr)->n == (lua_Number)0) { +| fldz +||} else if ((vptr)->n == (lua_Number)1) { +| fld1 +||} else { +| fld qword [vptr] +||} +|.endmacro +| +|.macro setnvaluek, tv, vptr // Pass a Value *! With permanent addr. +| // SSE2 does not pay off here (I tried). +| loadnvaluek vptr +| fstp qword tv.value +| settt tv, LUA_TNUMBER +|.endmacro +| +|.macro setnvalue, tv, vptr // Pass a Value *! Temporary ok. +| mov dword tv.value, (vptr)->na[0] +| mov dword tv.value.na[1], (vptr)->na[1] +| settt tv, LUA_TNUMBER +|.endmacro +| +|.macro setsvalue, tv, vptr +| mov aword tv.value, vptr +| settt tv, LUA_TSTRING +|.endmacro +| +|.macro sethvalue, tv, vptr +| mov aword tv.value, vptr +| settt tv, LUA_TTABLE +|.endmacro +| +|.macro copyslotSSE, D, S, R1 // May use xmm0. +| mov R1, S.tt; movq xmm0, qword S.value +| mov D.tt, R1; movq qword D.value, xmm0 +|.endmacro +| +|.macro copyslot, D, S, R1, R2, R3 +||if (J->flags & JIT_F_CPU_SSE2) { +| copyslotSSE D, S, R1 +||} else { +| mov R1, S.value; mov R2, S.value.na[1]; mov R3, S.tt +| mov D.value, R1; mov D.value.na[1], R2; mov D.tt, R3 +||} +|.endmacro +| +|.macro copyslot, D, S, R1, R2 +||if (J->flags & JIT_F_CPU_SSE2) { +| copyslotSSE D, S, R1 +||} else { +| mov R1, S.value; mov R2, S.value.na[1]; mov D.value, R1 +| mov R1, S.tt; mov D.value.na[1], R2; mov D.tt, R1 +||} +|.endmacro +| +|.macro copyslot, D, S +| copyslot D, S, ecx, edx, eax +|.endmacro +| +|.macro copyconst, tv, tvk // May use edx. +||switch (ttype(tvk)) { +||case LUA_TNIL: +| setnilvalue tv +|| break; +||case LUA_TBOOLEAN: +| setbvalue tv, bvalue(tvk) // May use edx. +|| break; +||case LUA_TNUMBER: { +| setnvaluek tv, &(tvk)->value +|| break; +||} +||case LUA_TSTRING: +| setsvalue tv, &gcvalue(tvk) +|| break; +||default: lua_assert(0); break; +||} +|.endmacro +| +|// Macros to get Lua structures. +|.macro getLCL, reg // May use CI and TOP (edi). +||if (!J->pt->is_vararg) { +| mov LCL:reg, BASE[-1].value +||} else { +| mov CI, L->ci +| mov TOP, CI->func +| mov LCL:reg, TOP->value +||} +|.endmacro +|.macro getLCL; getLCL eax; .endmacro +| +|// Macros to handle variants. +|.macro addidx, type, idx +||if (idx) { +| add type, idx*#type +||} +|.endmacro +| +|.macro subidx, type, idx +||if (idx) { +| sub type, idx*#type +||} +|.endmacro +| +|// Annoying x87 stuff: support for two compare variants. +|.macro fcomparepp // Compare and pop st0 >< st1. +||if (J->flags & JIT_F_CPU_CMOV) { +| fucomip st1 +| fpop +||} else { +| fucompp +| fnstsw ax // eax modified! +| sahf +| // Sometimes test ah, imm8 would be faster. +| // But all following compares need to be changed then. +| // Don't bother since this is only compatibility stuff for old CPUs. +||} +|.endmacro +| +|// If you change LUA_TVALUE_ALIGN, be sure to change the Makefile, too: +|// DASMFLAGS= -D TVALUE_SIZE=... +|// Then rerun make. Or change the default below: +|.if not TVALUE_SIZE; .define TVALUE_SIZE, 16; .endif +| +|.if TVALUE_SIZE == 16 +| .macro TValuemul, reg; sal reg, 4; .endmacro // *16 +| .macro TValuediv, reg; sar reg, 4; .endmacro // /16 +| .macro Nodemul, reg; sal reg, 5; .endmacro // *32 +|.elif TVALUE_SIZE == 12 +| .macro TValuemul, reg; sal reg, 2; lea reg, [reg+reg*2]; .endmacro // *12 +| .macro TValuediv, reg; sal reg, 2; imul reg, 0xaaaaaaab; .endmacro // /12 +| .macro Nodemul, reg; imul reg, 28; .endmacro // *28 +|.else +| .fatal Unsupported TValue size `TVALUE_SIZE'. +|.endif +| +|// +|// x86 C calling conventions and stack frame layout during a JIT call: +|// +|// ebp+aword*4 CARG2 nresults +|// ebp+aword*3 CARG2 func (also used as SAVER3 for L) +|// ebp+aword*2 CARG1 L +|// ------------------------------- call to GATE_LJ +|// ebp+aword*1 retaddr +|// ebp+aword*0 frameptr ebp +|// ebp-aword*1 SAVER1 TOP edi +|// ebp-aword*2 SAVER2 BASE ebx +|// ------------------------------- +|// GATE_LJ retaddr +|// esp+aword*2 ARG3 +|// esp+aword*1 ARG2 +|// esp+aword*0 ARG1 <-- esp for first JIT frame +|// ------------------------------- +|// 1st JIT frame retaddr +|// esp+aword*2 ARG3 +|// esp+aword*1 ARG2 +|// esp+aword*0 ARG1 <-- esp for second JIT frame +|// ------------------------------- +|// 2nd JIT frame retaddr +|// +|// We could omit the fixed frame pointer (ebp) and have one more register +|// available. But there is no pressing need (could use it for CI). +|// And it's easier for debugging (gdb is still confused -- why?). +|// +|// The stack is aligned to 4 awords (16 bytes). Calls to C functions +|// with up to 3 arguments do not need any stack pointer adjustment. +|// +| +|.define CARG3, [ebp+aword*4] +|.define CARG2, [ebp+aword*3] +|.define CARG1, [ebp+aword*2] +|.define SAVER1, [ebp-aword*1] +|.define SAVER2, [ebp-aword*2] +|.define ARG7, aword [esp+aword*6] // Requires large frame. +|.define ARG6, aword [esp+aword*5] // Requires large frame. +|.define ARG5, aword [esp+aword*4] // Requires large frame. +|.define ARG4, aword [esp+aword*3] // Requires large frame. +|.define ARG3, aword [esp+aword*2] +|.define ARG2, aword [esp+aword*1] +|.define ARG1, aword [esp] +|.define FRAME_RETADDR, aword [esp+aword*3] +|.define TMP3, [esp+aword*2] +|.define TMP2, [esp+aword*1] +|.define TMP1, [esp] +|.define FPARG2, qword [esp+qword*1] // Requires large frame. +|.define FPARG1, qword [esp] +|.define LJFRAME_OFFSET, aword*2 // 16 byte aligned with retaddr + ebp. +|.define FRAME_OFFSET, aword*3 // 16 byte aligned with retaddr. +|.define LFRAME_OFFSET, aword*7 // 16 byte aligned with retaddr. +|.define S2LFRAME_OFFSET, aword*4 // Delta to large frame. +| +|.macro call, target, a1 +| mov ARG1, a1; call target; .endmacro +|.macro call, target, a1, a2 +| mov ARG1, a1; mov ARG2, a2; call target; .endmacro +|.macro call, target, a1, a2, a3 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; call target; .endmacro +|.macro call, target, a1, a2, a3, a4 +| push a4; push a3; push a2; push a1 +| call target; add esp, S2LFRAME_OFFSET; .endmacro +|.macro call, target, a1, a2, a3, a4, a5 +| mov ARG1, a5; push a4; push a3; push a2; push a1 +| call target; add esp, S2LFRAME_OFFSET; .endmacro +| +|// The following macros require a large frame. +|.macro call_LFRAME, target, a1, a2, a3, a4 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; mov ARG4, a4 +| call target; .endmacro +|.macro call_LFRAME, target, a1, a2, a3, a4, a5 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; mov ARG4, a4; mov ARG5, a5 +| call target; .endmacro +| diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h new file mode 100644 index 00000000000..7f03ae527b1 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h @@ -0,0 +1,2301 @@ +/* +** This file has been pre-processed with DynASM. +** http://luajit.org/dynasm.html +** DynASM version 1.1.4, DynASM x86 version 1.1.4 +** DO NOT EDIT! The original file is in "ljit_x86.dasc". +*/ + +#if DASM_VERSION != 10104 +#error "Version mismatch between DynASM and included encoding engine" +#endif + +/* +** Bytecode to machine code translation for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define DASM_SECTION_CODE 0 +#define DASM_SECTION_DEOPT 1 +#define DASM_SECTION_TAIL 2 +#define DASM_SECTION_MFMAP 3 +#define DASM_MAXSECTION 4 +#define Dt1(_V) (int)&(((lua_State *)0)_V) +#define Dt2(_V) (int)&(((TValue *)0)_V) +#define Dt3(_V) (int)&(((TValue *)0)_V) +#define Dt4(_V) (int)&(((CallInfo *)0)_V) +#define Dt5(_V) (int)&(((LClosure *)0)_V) +#define Dt6(_V) (int)&(((global_State *)0)_V) +#define Dt7(_V) (int)&(((TValue *)0)_V) +#define Dt8(_V) (int)&(((Value *)0)_V) +#define Dt9(_V) (int)&(((CallInfo *)0)_V) +#define DtA(_V) (int)&(((GCObject *)0)_V) +#define DtB(_V) (int)&(((TString *)0)_V) +#define DtC(_V) (int)&(((Table *)0)_V) +#define DtD(_V) (int)&(((CClosure *)0)_V) +#define DtE(_V) (int)&(((Proto *)0)_V) +#define DtF(_V) (int)&(((UpVal *)0)_V) +#define Dt10(_V) (int)&(((Node *)0)_V) +static const unsigned char jit_actionlist[5059] = { + 156,90,137,209,129,252,242,0,0,32,0,82,157,156,90,49,192,57,209,15,132,245, + 247,64,83,15,162,91,137,208,249,1,195,255,254,0,251,15,249,10,141,68,36,4, + 195,251,15,249,11,85,137,229,131,252,236,8,137,93,252,252,139,93,12,137,117, + 12,139,117,8,137,125,252,248,139,190,235,139,131,235,139,142,235,102,252, + 255,134,235,252,255,144,235,139,142,235,137,190,235,139,145,235,139,69,16, + 137,150,235,139,145,235,133,192,137,150,235,15,136,245,248,193,224,4,1,195, + 49,201,137,158,235,249,1,137,143,235,129,199,241,57,223,15,130,245,1,249, + 2,255,102,252,255,142,235,184,239,139,125,252,248,139,93,252,252,139,117, + 12,137,252,236,93,195,251,15,249,12,139,144,235,129,186,235,241,15,133,245, + 247,139,146,235,137,144,235,252,255,226,249,1,131,252,236,12,139,129,235, + 137,142,235,137,190,235,199,68,36,8,252,255,252,255,252,255,252,255,137,134, + 235,137,92,36,4,43,158,235,137,52,36,232,244,133,192,15,133,245,248,137,52, + 36,199,68,36,4,1,0,0,0,232,244,249,2,131,196,12,3,158,235,255,139,190,235, + 195,251,15,249,13,141,135,235,131,252,236,12,59,134,235,15,131,245,14,59, + 142,235,141,137,235,15,132,245,15,137,142,235,137,153,235,137,129,235,139, + 147,235,129,195,241,137,190,235,137,158,235,137,153,235,249,16,137,52,36, + 252,255,146,235,249,2,131,196,12,139,142,235,255,193,224,4,139,185,235,15, + 132,245,250,139,158,235,137,218,41,195,249,3,139,3,131,195,4,137,7,131,199, + 4,57,211,15,130,245,3,249,4,139,153,235,129,233,241,137,142,235,195,144,144, + 144,144,144,144,251,15,249,17,252,246,134,235,237,15,133,245,253,249,6,137, + 52,36,252,255,146,235,252,246,134,235,237,15,132,245,2,255,137,195,137,52, + 36,199,68,36,4,239,199,68,36,8,252,255,252,255,252,255,252,255,232,244,137, + 216,233,245,2,249,7,137,211,137,52,36,199,68,36,4,239,199,68,36,8,252,255, + 252,255,252,255,252,255,232,244,137,218,233,245,6,251,15,249,14,41,252,248, + 193,252,248,4,137,190,235,43,158,235,137,76,36,8,137,52,36,137,68,36,4,232, + 244,139,76,36,8,3,158,235,139,190,235,139,131,235,131,196,12,252,255,160, + 235,251,15,249,15,137,190,235,137,52,36,232,244,141,136,235,255,139,131,235, + 137,142,235,131,196,12,252,255,160,235,255,249,18,90,233,245,19,249,20,137, + 190,235,249,19,137,150,235,137,52,36,232,244,139,158,235,139,190,235,252, + 255,224,251,15,255,137,190,235,255,232,245,21,255,251,15,249,21,252,246,134, + 235,237,15,132,245,248,252,255,142,235,15,132,245,247,252,246,134,235,237, + 15,132,245,248,249,1,139,4,36,131,252,236,12,137,52,36,137,68,36,4,232,244, + 131,196,12,139,158,235,139,190,235,249,2,195,255,250,255,233,246,255,250, + 243,255,254,1,233,245,19,254,0,250,254,2,250,251,1,252,255,252,255,254,3, + 242,0,0,0,0,0,0,0,0,0,254,0,141,249,9,186,239,254,0,249,9,186,239,233,245, + 20,254,0,139,142,235,139,129,235,191,247,253,59,129,235,15,131,245,22,249, + 7,255,251,15,249,22,137,52,36,232,244,139,158,235,252,255,231,255,131,187, + 235,5,15,133,245,9,49,192,137,131,235,137,131,235,254,3,238,238,254,0,131, + 190,235,0,15,132,245,9,199,134,235,239,129,195,241,255,141,187,235,255,137, + 158,235,137,190,235,137,52,36,232,244,139,158,235,139,190,235,255,199,135, + 235,0,0,0,0,255,139,139,235,252,243,15,126,131,235,137,139,235,102,15,214, + 131,235,255,139,139,235,139,147,235,139,131,235,137,139,235,137,147,235,137, + 131,235,255,57,223,15,130,245,9,255,131,187,235,8,15,133,245,9,139,131,235, + 131,184,235,0,15,132,245,9,199,134,235,239,137,190,235,137,52,36,137,92,36, + 4,199,68,36,8,239,232,244,139,158,235,255,137,199,255,131,187,235,4,15,133, + 245,9,139,139,235,219,129,235,199,131,235,3,0,0,0,221,155,235,255,141,187, + 235,232,245,23,137,131,235,199,131,235,4,0,0,0,255,141,187,235,232,245,24, + 137,131,235,199,131,235,4,0,0,0,255,131,187,235,3,15,133,245,9,141,134,235, + 221,131,235,219,24,129,56,252,255,0,0,0,15,135,245,9,137,52,36,137,68,36, + 4,199,68,36,8,1,0,0,0,232,244,137,131,235,199,131,235,4,0,0,0,255,251,15, + 249,23,139,135,235,193,224,4,11,135,235,193,224,4,11,135,235,45,51,4,0,0, + 15,133,245,18,221,135,235,221,135,235,219,92,36,8,219,92,36,4,139,143,235, + 139,185,235,139,84,36,8,57,215,15,130,245,250,249,1,11,68,36,4,15,142,245, + 252,249,2,41,194,15,140,245,253,141,140,253,1,235,66,249,3,137,116,36,4,137, + 76,36,8,137,84,36,12,139,190,235,139,135,235,255,59,135,235,15,131,245,254, + 233,244,249,4,15,140,245,251,141,84,58,1,233,245,1,249,5,137,252,250,233, + 245,1,249,6,15,132,245,251,1,252,248,64,15,143,245,2,249,5,184,1,0,0,0,233, + 245,2,249,7,49,210,233,245,3,255,251,15,249,24,139,135,235,193,224,4,11,135, + 235,131,232,67,15,133,245,18,221,135,235,219,92,36,4,139,143,235,139,185, + 235,137,252,250,233,245,1,249,8,131,252,236,12,137,52,36,232,244,131,196, + 12,139,158,235,233,244,255,131,187,235,5,15,133,245,9,255,141,131,235,137, + 52,36,137,68,36,4,232,244,255,141,131,235,141,139,235,137,52,36,137,68,36, + 4,137,76,36,8,232,244,255,139,131,235,137,4,36,232,244,137,4,36,219,4,36, + 221,155,235,199,131,235,3,0,0,0,255,131,187,235,3,15,133,245,9,221,131,235, + 255,139,131,235,193,224,4,11,131,235,131,252,248,51,15,133,245,9,255,217, + 252,254,255,217,252,255,255,217,252,242,221,216,255,217,60,36,217,45,239, + 217,252,252,217,44,36,255,217,225,255,217,252,250,255,221,131,235,221,131, + 235,249,1,217,252,248,223,224,158,15,138,245,1,221,217,255,221,131,235,221, + 131,235,217,252,243,255,221,28,36,232,244,255,131,187,235,6,15,133,245,9, + 129,187,235,239,15,133,245,9,255,141,131,235,57,199,15,133,245,9,255,141, + 187,235,137,190,235,255,131,196,12,129,252,235,241,129,174,235,241,195,255, + 141,187,235,137,52,36,137,124,36,4,232,244,133,192,15,133,246,255,139,131, + 235,64,139,147,235,137,131,235,137,20,36,137,68,36,4,232,244,139,136,235, + 133,201,15,132,245,255,219,131,235,199,131,235,3,0,0,0,221,155,235,139,144, + 235,139,128,235,137,139,235,137,147,235,137,131,235,233,246,249,9,255,141, + 135,235,131,252,236,12,59,134,235,15,131,245,14,59,142,235,141,137,235,15, + 132,245,15,49,192,137,153,235,129,195,241,137,142,235,255,141,147,235,57, + 215,255,137,223,255,15,71,252,250,255,15,134,245,247,137,215,249,1,255,141, + 147,235,137,129,235,137,145,235,137,150,235,137,158,235,137,153,235,255,15, + 130,245,251,249,4,254,2,249,5,137,135,235,129,199,241,57,215,15,130,245,5, + 233,245,4,254,0,137,190,235,137,185,235,137,129,235,255,139,139,235,252,243, + 15,126,131,235,137,143,235,102,15,214,135,235,255,139,139,235,139,147,235, + 137,143,235,139,139,235,137,151,235,137,143,235,255,137,252,251,141,147,235, + 141,187,235,137,145,235,137,150,235,255,137,135,235,255,249,2,137,135,235, + 137,135,235,129,199,241,57,215,15,130,245,2,255,137,52,36,232,244,255,252, + 246,134,235,237,15,132,245,255,232,245,25,249,9,255,251,15,249,25,139,142, + 235,139,185,235,139,135,235,139,184,235,139,135,235,131,192,4,137,134,235, + 131,252,236,12,137,52,36,199,68,36,4,239,199,68,36,8,252,255,252,255,252, + 255,252,255,232,244,131,196,12,139,135,235,137,134,235,139,158,235,195,255, + 137,52,36,137,92,36,4,232,244,255,129,174,235,241,137,223,129,252,235,241, + 131,196,12,255,139,142,235,139,153,235,129,233,241,137,142,235,141,187,235, + 131,196,12,255,252,246,134,235,237,15,132,245,253,232,245,26,249,7,255,139, + 68,36,12,137,134,235,255,251,15,249,26,139,4,36,137,134,235,131,252,236,12, + 137,52,36,199,68,36,4,239,199,68,36,8,252,255,252,255,252,255,252,255,232, + 244,131,196,12,139,158,235,139,190,235,195,255,139,145,235,57,252,251,15, + 131,245,248,249,1,139,3,131,195,4,137,2,131,194,4,57,252,251,15,130,245,1, + 249,2,131,196,12,139,153,235,129,233,241,137,215,137,142,235,195,255,129, + 174,235,241,129,252,235,241,255,131,196,12,141,187,235,195,255,139,142,235, + 139,185,235,129,233,241,137,142,235,255,139,139,235,139,147,235,139,131,235, + 137,143,235,137,151,235,137,135,235,255,131,196,12,137,252,251,255,129,199, + 241,255,139,142,235,131,187,235,6,255,139,131,235,186,239,137,145,235,255, + 15,133,245,20,255,15,133,245,19,255,15,132,245,247,232,245,27,249,1,255,251, + 15,249,27,131,252,236,12,137,150,235,137,190,235,137,52,36,137,92,36,4,232, + 244,131,196,12,137,195,139,190,235,139,131,235,139,142,235,195,255,252,255, + 144,235,255,137,158,235,255,49,192,255,141,147,235,249,1,137,135,235,137, + 135,235,129,199,241,57,215,15,130,245,1,255,131,187,235,6,15,133,245,9,255, + 131,187,235,6,15,133,245,251,254,2,249,5,255,186,239,233,245,28,254,0,251, + 15,249,28,137,150,235,137,190,235,137,52,36,137,92,36,4,232,244,139,142,235, + 139,150,235,139,185,235,249,1,139,24,131,192,4,137,31,131,199,4,57,208,15, + 130,245,1,139,153,235,139,131,235,129,233,241,131,196,12,252,255,160,235, + 255,139,131,235,255,139,139,235,139,147,235,137,139,235,139,139,235,137,147, + 235,137,139,235,255,141,187,235,129,252,235,241,139,142,235,137,131,235,255, + 139,142,235,141,187,235,139,153,235,139,135,235,137,131,235,255,139,135,235, + 252,243,15,126,135,235,137,131,235,102,15,214,131,235,255,139,135,235,139, + 151,235,137,131,235,139,135,235,137,147,235,137,131,235,255,141,187,235,139, + 131,235,255,139,145,235,249,1,139,3,131,195,4,137,2,131,194,4,57,252,251, + 15,130,245,1,139,153,235,137,215,139,131,235,255,199,131,235,0,0,0,0,255, + 186,1,0,0,0,137,147,235,137,147,235,255,199,131,235,0,0,0,0,199,131,235,1, + 0,0,0,255,217,252,238,255,217,232,255,221,5,239,255,199,131,235,239,199,131, + 235,4,0,0,0,255,137,131,235,195,255,141,139,235,141,147,235,249,1,137,1,57, + 209,141,137,235,15,134,245,1,255,139,142,235,139,185,235,139,135,235,255, + 139,136,235,139,185,235,255,139,143,235,252,243,15,126,135,235,137,139,235, + 102,15,214,131,235,255,139,143,235,139,151,235,139,135,235,137,139,235,137, + 147,235,137,131,235,255,139,136,235,139,185,235,139,131,235,139,147,235,137, + 135,235,131,252,248,4,139,131,235,137,151,235,137,135,235,15,131,245,251, + 249,4,254,2,249,5,252,246,130,235,237,15,132,245,4,252,246,129,235,237,15, + 132,245,4,232,245,29,233,245,4,254,0,251,15,249,29,137,84,36,12,137,76,36, + 8,137,116,36,4,233,244,255,251,15,249,30,139,142,235,139,185,235,139,135, + 235,139,184,235,233,245,255,255,251,15,249,31,131,191,235,5,139,191,235,15, + 133,245,18,249,9,15,182,143,235,184,1,0,0,0,211,224,72,35,130,235,193,224, + 5,3,135,235,249,1,131,184,235,4,15,133,245,248,57,144,235,15,133,245,248, + 139,136,235,133,201,15,132,245,249,255,252,243,15,126,128,235,102,15,214, + 131,235,255,139,144,235,139,184,235,137,147,235,137,187,235,255,137,139,235, + 139,158,235,195,249,2,139,128,235,133,192,15,133,245,1,49,201,249,3,139,135, + 235,133,192,15,132,245,250,252,246,128,235,237,15,132,245,251,249,4,137,139, + 235,139,158,235,195,249,5,137,150,235,199,134,235,4,0,0,0,139,12,36,131,252, + 236,12,137,142,235,137,52,36,137,124,36,4,137,92,36,8,232,244,131,196,12, + 139,158,235,255,251,15,249,32,139,135,235,193,224,4,11,129,235,131,252,248, + 84,139,191,235,139,145,235,15,132,245,9,233,245,18,255,251,15,249,33,139, + 142,235,128,167,235,237,139,145,235,137,185,235,137,151,235,195,255,251,15, + 249,34,139,142,235,139,185,235,139,135,235,139,184,235,233,245,255,255,251, + 15,249,35,131,191,235,5,139,191,235,15,133,245,18,249,9,15,182,143,235,184, + 1,0,0,0,211,224,72,35,130,235,193,224,5,3,135,235,249,1,131,184,235,4,15, + 133,245,250,57,144,235,15,133,245,250,131,184,235,0,15,132,245,252,249,2, + 198,135,235,0,249,3,255,252,246,135,235,237,15,133,245,254,249,7,255,139, + 139,235,252,243,15,126,131,235,137,136,235,102,15,214,128,235,255,139,139, + 235,139,147,235,139,187,235,137,136,235,137,144,235,137,184,235,255,139,158, + 235,195,249,8,232,245,33,233,245,7,249,4,139,128,235,133,192,15,133,245,1, + 139,143,235,133,201,15,132,245,251,252,246,129,235,237,15,132,245,253,249, + 5,141,134,235,137,144,235,199,128,235,4,0,0,0,131,252,236,12,137,52,36,137, + 124,36,4,137,68,36,8,232,244,131,196,12,233,245,2,249,6,255,139,143,235,133, + 201,15,132,245,2,252,246,129,235,237,15,133,245,2,249,7,137,150,235,199,134, + 235,4,0,0,0,139,12,36,131,252,236,12,137,142,235,137,52,36,137,124,36,4,137, + 92,36,8,232,244,131,196,12,139,158,235,195,255,251,15,249,36,139,135,235, + 193,224,4,11,129,235,131,252,248,84,139,191,235,139,145,235,15,132,245,9, + 233,245,18,255,137,52,36,199,68,36,4,239,199,68,36,8,239,232,244,137,131, + 235,199,131,235,5,0,0,0,255,186,239,255,232,245,30,255,232,245,34,255,141, + 187,235,186,239,255,141,187,235,141,139,235,255,131,187,235,5,139,187,235, + 15,133,245,255,185,239,139,135,235,59,143,235,15,135,245,251,255,139,131, + 235,193,224,4,11,131,235,131,252,248,83,15,133,245,255,255,252,242,15,16, + 131,235,252,242,15,44,192,252,242,15,42,200,72,102,15,46,200,139,187,235, + 15,133,245,255,15,138,245,255,255,221,131,235,219,20,36,219,4,36,255,223, + 233,221,216,255,218,233,223,224,158,255,15,133,245,255,15,138,245,255,139, + 4,36,139,187,235,72,255,59,135,235,15,131,245,251,193,224,4,3,135,235,255, + 232,245,31,255,232,245,32,255,185,239,255,141,147,235,255,199,134,235,239, + 83,81,82,86,232,244,131,196,16,139,158,235,255,249,1,139,144,235,133,210, + 15,132,245,252,255,139,136,235,139,128,235,137,139,235,137,131,235,255,249, + 2,137,147,235,254,2,232,245,37,255,232,245,38,255,233,245,1,249,6,139,143, + 235,133,201,15,132,245,2,252,246,129,235,237,15,133,245,2,249,9,186,239,233, + 245,19,254,0,251,15,249,37,137,76,36,4,131,252,236,12,137,60,36,137,76,36, + 4,232,244,131,196,12,139,76,36,4,193,225,4,41,200,129,192,241,195,255,251, + 15,249,38,64,137,124,36,4,137,68,36,8,233,244,255,187,239,255,232,245,35, + 255,232,245,36,255,199,134,235,239,82,81,83,86,232,244,131,196,16,139,158, + 235,255,249,1,131,184,235,0,15,132,245,252,249,2,254,2,232,245,39,255,232, + 245,40,255,252,246,135,235,237,15,133,245,253,249,3,254,2,249,7,232,245,33, + 233,245,3,254,0,199,128,235,0,0,0,0,255,186,1,0,0,0,137,144,235,137,144,235, + 255,199,128,235,0,0,0,0,199,128,235,1,0,0,0,255,221,152,235,199,128,235,3, + 0,0,0,255,199,128,235,239,199,128,235,4,0,0,0,255,251,15,249,39,137,76,36, + 4,131,252,236,12,137,52,36,137,124,36,4,137,76,36,8,232,244,131,196,12,139, + 76,36,4,193,225,4,41,200,129,192,241,195,255,251,15,249,40,64,137,116,36, + 4,137,124,36,8,137,68,36,12,233,244,255,137,190,235,141,131,235,41,252,248, + 252,247,216,193,252,248,4,139,187,235,15,132,245,250,255,129,192,241,255, + 57,135,235,15,131,245,247,137,52,36,137,124,36,4,137,68,36,8,232,244,249, + 1,252,246,135,235,237,139,151,235,15,133,245,252,139,190,235,254,2,249,6, + 232,245,33,233,245,1,254,0,139,187,235,129,191,235,241,15,130,245,251,249, + 1,252,246,135,235,237,139,151,235,15,133,245,252,141,187,235,254,2,249,5, + 137,52,36,137,124,36,4,199,68,36,8,239,232,244,233,245,1,249,6,232,245,33, + 233,245,1,254,0,129,194,241,255,141,139,235,249,3,139,1,131,193,4,137,2,131, + 194,4,57,252,249,15,130,245,3,249,4,255,131,187,235,3,139,131,235,15,133, + 245,255,133,192,15,136,245,255,255,221,131,235,221,5,239,255,221,5,239,221, + 131,235,255,139,131,235,193,224,4,11,131,235,131,252,248,51,139,131,235,15, + 133,245,255,11,131,235,15,136,245,255,221,131,235,221,131,235,255,131,187, + 235,3,15,133,245,255,221,131,235,255,216,200,255,217,192,216,200,255,220, + 201,255,222,201,255,199,4,36,239,199,68,36,4,239,199,68,36,8,239,131,187, + 235,3,15,133,245,255,219,44,36,220,139,235,217,192,217,252,252,220,233,217, + 201,217,252,240,217,232,222,193,217,252,253,221,217,255,251,15,249,41,217, + 232,221,68,36,8,217,252,241,139,68,36,4,219,56,195,255,131,187,235,3,15,133, + 245,255,255,131,187,235,3,255,139,131,235,193,224,4,11,131,235,131,252,248, + 51,255,216,192,255,220,131,235,255,220,163,235,255,220,171,235,255,220,139, + 235,255,220,179,235,255,220,187,235,255,131,252,236,16,221,28,36,221,131, + 235,221,92,36,8,232,244,131,196,16,255,131,252,236,16,221,92,36,8,221,131, + 235,221,28,36,232,244,131,196,16,255,217,224,255,15,138,246,255,15,130,246, + 255,15,134,246,255,15,135,246,255,15,131,246,255,199,134,235,239,137,52,36, + 137,76,36,4,137,84,36,8,232,244,133,192,139,158,235,255,15,132,246,255,199, + 134,235,239,199,4,36,239,82,81,83,86,232,244,131,196,16,139,158,235,255,131, + 187,235,5,139,139,235,15,133,245,9,137,12,36,232,244,137,4,36,219,4,36,221, + 155,235,199,131,235,3,0,0,0,255,131,187,235,4,139,139,235,15,133,245,9,219, + 129,235,221,155,235,199,131,235,3,0,0,0,255,199,134,235,239,137,52,36,137, + 92,36,4,137,76,36,8,232,244,139,158,235,255,139,131,235,139,139,235,186,1, + 0,0,0,33,193,209,232,9,193,49,192,57,209,17,192,137,147,235,137,131,235,255, + 232,245,42,137,131,235,199,131,235,4,0,0,0,255,199,134,235,239,137,52,36, + 199,68,36,4,239,199,68,36,8,239,232,244,139,158,235,255,251,15,249,42,137, + 116,36,4,139,131,235,193,224,4,11,131,235,131,232,68,15,133,245,18,249,1, + 139,190,235,139,179,235,139,147,235,139,142,235,133,201,15,132,245,248,11, + 130,235,15,132,245,250,1,200,15,130,245,255,59,135,235,15,135,245,251,139, + 191,235,129,198,241,255,252,243,164,139,138,235,141,178,235,252,243,164,41, + 199,139,116,36,4,137,124,36,8,137,68,36,12,139,158,235,233,244,249,2,137, + 208,249,3,139,116,36,4,139,158,235,195,249,4,137,252,240,233,245,3,249,5, + 139,116,36,4,141,143,235,131,252,236,12,137,52,36,137,76,36,4,137,68,36,8, + 232,244,131,196,12,49,192,233,245,1,249,9,139,116,36,4,233,245,18,255,131, + 187,235,0,255,139,131,235,139,139,235,72,73,9,200,255,139,131,235,72,11,131, + 235,255,131,187,235,3,15,133,246,221,131,235,221,5,239,255,131,187,235,4, + 15,133,246,129,187,235,239,255,139,131,235,59,131,235,15,133,246,255,131, + 252,248,3,15,133,245,9,221,131,235,221,131,235,255,131,252,248,4,15,133,245, + 9,139,139,235,59,139,235,255,141,147,235,141,139,235,199,134,235,239,137, + 52,36,137,76,36,4,137,84,36,8,232,244,72,139,158,235,255,139,131,235,139, + 139,235,137,194,33,202,141,20,80,209,234,255,15,132,245,247,255,15,133,245, + 247,255,139,147,235,137,131,235,137,139,235,137,147,235,233,246,249,1,255, + 139,131,235,193,224,4,11,131,235,131,252,248,51,15,133,245,255,249,4,221, + 131,235,221,131,235,221,147,235,255,249,4,139,131,235,193,224,4,11,131,235, + 193,224,4,11,131,235,61,51,3,0,0,139,131,235,15,133,245,255,221,131,235,221, + 131,235,133,192,221,147,235,15,136,245,247,217,201,249,1,255,199,131,235, + 3,0,0,0,15,130,246,255,249,9,141,131,235,199,134,235,239,137,52,36,137,68, + 36,4,232,244,233,245,4,254,0,221,131,235,221,131,235,220,131,235,221,147, + 235,221,147,235,199,131,235,3,0,0,0,255,139,131,235,221,131,235,221,131,235, + 221,131,235,222,193,221,147,235,221,147,235,199,131,235,3,0,0,0,133,192,15, + 136,245,247,217,201,249,1,255,131,187,235,0,15,132,245,247,255,141,131,235, + 137,68,36,4,255,137,92,36,4,255,139,187,235,255,139,142,235,139,185,235,139, + 191,235,255,139,151,235,137,52,36,199,68,36,4,239,137,84,36,8,232,244,199, + 128,235,239,137,131,235,199,131,235,6,0,0,0,255,139,151,235,137,144,235,255, + 137,52,36,232,244,137,135,235,255,249,1,139,142,235,139,145,235,129,194,241, + 141,132,253,27,235,41,208,59,134,235,15,131,245,251,141,187,235,57,218,15, + 131,245,249,249,2,139,2,131,194,4,137,7,131,199,4,57,218,15,130,245,2,249, + 3,254,2,249,5,43,134,235,193,252,248,4,137,52,36,137,68,36,4,232,244,139, + 158,235,233,245,1,254,0,139,142,235,139,145,235,129,194,241,141,187,235,141, + 139,235,57,218,15,131,245,248,249,1,139,2,131,194,4,137,7,131,199,4,57,207, + 15,131,245,250,57,218,15,130,245,1,249,2,49,192,249,3,137,135,235,129,199, + 241,57,207,15,130,245,3,249,4,255 +}; + +enum { + JSUB_STACKPTR, + JSUB_GATE_LJ, + JSUB_GATE_JL, + JSUB_GATE_JC, + JSUB_GROW_STACK, + JSUB_GROW_CI, + JSUB_GATE_JC_PATCH, + JSUB_GATE_JC_DEBUG, + JSUB_DEOPTIMIZE_CALLER, + JSUB_DEOPTIMIZE, + JSUB_DEOPTIMIZE_OPEN, + JSUB_HOOKINS, + JSUB_GCSTEP, + JSUB_STRING_SUB3, + JSUB_STRING_SUB2, + JSUB_HOOKCALL, + JSUB_HOOKRET, + JSUB_METACALL, + JSUB_METATAILCALL, + JSUB_BARRIERF, + JSUB_GETGLOBAL, + JSUB_GETTABLE_KSTR, + JSUB_GETTABLE_STR, + JSUB_BARRIERBACK, + JSUB_SETGLOBAL, + JSUB_SETTABLE_KSTR, + JSUB_SETTABLE_STR, + JSUB_GETTABLE_KNUM, + JSUB_GETTABLE_NUM, + JSUB_SETTABLE_KNUM, + JSUB_SETTABLE_NUM, + JSUB_LOG2_TWORD, + JSUB_CONCAT_STR2, + JSUB__MAX +}; + +/* ------------------------------------------------------------------------ */ + +/* Arch string. */ +const char luaJIT_arch[] = "x86"; + +/* Forward declarations for C functions called from jsubs. */ +static void jit_hookins(lua_State *L, const Instruction *newpc); +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest); +static void jit_settable_fb(lua_State *L, Table *t, StkId val); + +/* ------------------------------------------------------------------------ */ + +/* Detect CPU features and set JIT flags. */ +static int jit_cpudetect(jit_State *J) +{ + void *mcode; + size_t sz; + int status; + /* Some of the jsubs need the flags. So compile this separately. */ + unsigned int feature; + dasm_setup(Dst, jit_actionlist); + dasm_put(Dst, 0); + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + /* Check feature bits. See the Intel/AMD manuals for the bit definitions. */ + feature = ((unsigned int (*)(void))mcode)(); + if (feature & (1<<15)) J->flags |= JIT_F_CPU_CMOV; + if (feature & (1<<26)) J->flags |= JIT_F_CPU_SSE2; + luaJIT_freemcode(J, mcode, sz); /* We don't need this code anymore. */ + return JIT_S_OK; +} + +/* Check some assumptions. Should compile to nop. */ +static int jit_consistency_check(jit_State *J) +{ + do { + /* Force a compiler error for inconsistent structure sizes. */ + /* Check LUA_TVALUE_ALIGN in luaconf.h, too. */ + int check_TVALUE_SIZE_in_ljit_x86_dash[1+16-sizeof(TValue)]; + int check_TVALUE_SIZE_in_ljit_x86_dash_[1+sizeof(TValue)-16]; + ((void)check_TVALUE_SIZE_in_ljit_x86_dash[0]); + ((void)check_TVALUE_SIZE_in_ljit_x86_dash_[0]); + if (LUA_TNIL != 0 || LUA_TBOOLEAN != 1 || PCRLUA != 0) break; + if ((int)&(((Node *)0)->i_val) != (int)&(((StkId)0)->value)) break; + return JIT_S_OK; + } while (0); + J->dasmstatus = 999999999; /* Recognizable error. */ + return JIT_S_COMPILER_ERROR; +} + +/* Compile JIT subroutines (once). */ +static int jit_compile_jsub(jit_State *J) +{ + int status = jit_consistency_check(J); + if (status != JIT_S_OK) return status; + status = jit_cpudetect(J); + if (status != JIT_S_OK) return status; + dasm_setup(Dst, jit_actionlist); + dasm_put(Dst, 34); + dasm_put(Dst, 36, Dt1(->top), Dt2(->value), Dt1(->ci), Dt1(->nCcalls), Dt5(->jit_gate), Dt1(->ci), Dt1(->top), Dt4(->savedpc), Dt1(->savedpc), Dt4(->base), Dt1(->base), Dt1(->top), Dt3(->tt), sizeof(TValue)); + dasm_put(Dst, 145, Dt1(->nCcalls), PCRC, Dt5(->p), DtE(->jit_status), JIT_S_OK, DtE(->jit_mcode), Dt5(->jit_gate), Dt4(->savedpc), Dt1(->ci), Dt1(->top), Dt1(->savedpc), Dt1(->stack), (ptrdiff_t)(luaD_precall), (ptrdiff_t)(luaV_execute), Dt1(->stack)); + dasm_put(Dst, 262, Dt1(->top), Dt3([LUA_MINSTACK]), Dt1(->stack_last), Dt1(->end_ci), Dt4([1]), Dt1(->ci), Dt4(->func), Dt4(->top), Dt2(->value), sizeof(TValue), Dt1(->top), Dt1(->base), Dt4(->base), DtD(->f), Dt1(->ci)); + dasm_put(Dst, 336, Dt4(->func), Dt1(->top), Dt4(->func), sizeof(CallInfo), Dt1(->ci), Dt1(->hookmask), LUA_MASKCALL, DtD(->f), Dt1(->hookmask), LUA_MASKRET); + dasm_put(Dst, 421, LUA_HOOKRET, (ptrdiff_t)(luaD_callhook), LUA_HOOKCALL, (ptrdiff_t)(luaD_callhook), Dt1(->top), Dt1(->stack), (ptrdiff_t)(luaD_growstack), Dt1(->stack), Dt1(->top), Dt2(->value), Dt5(->jit_gate), Dt1(->top), (ptrdiff_t)(luaD_growCI), Dt9([-1])); + dasm_put(Dst, 547, Dt2(->value), Dt1(->ci), Dt5(->jit_gate)); + dasm_put(Dst, 602, Dt1(->hookmask), LUA_MASKLINE|LUA_MASKCOUNT, Dt1(->hookcount), Dt1(->hookmask), LUA_MASKLINE, (ptrdiff_t)(jit_hookins), Dt1(->base), Dt1(->top)); + dasm_put(Dst, 737, (ptrdiff_t)(luaC_step), Dt1(->base)); + dasm_put(Dst, 1026, Dt3([0].tt), Dt3([1].tt), Dt3([2].tt), Dt3([1].value), Dt3([2].value), Dt3([0].value), DtB(->tsv.len), sizeof(TString)-1, Dt1(->l_G), Dt6(->totalbytes)); + dasm_put(Dst, 1129, Dt6(->GCthreshold), (ptrdiff_t)(luaS_newlstr)); + dasm_put(Dst, 1191, Dt3([0].tt), Dt3([1].tt), Dt3([1].value), Dt3([0].value), DtB(->tsv.len), (ptrdiff_t)(luaC_step), Dt1(->base), (ptrdiff_t)(luaS_newlstr)); + dasm_put(Dst, 1755, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->p), DtE(->code), Dt1(->savedpc), LUA_HOOKCALL, (ptrdiff_t)(luaD_callhook), DtE(->code), Dt1(->savedpc), Dt1(->base)); + dasm_put(Dst, 1886, Dt1(->savedpc), LUA_HOOKRET, (ptrdiff_t)(luaD_callhook), Dt1(->base), Dt1(->top)); + dasm_put(Dst, 2077, Dt1(->savedpc), Dt1(->top), (ptrdiff_t)(luaD_tryfuncTM), Dt1(->top), Dt2(->value), Dt1(->ci)); + dasm_put(Dst, 2178, Dt1(->savedpc), Dt1(->top), (ptrdiff_t)(luaD_tryfuncTM), Dt1(->ci), Dt1(->top), Dt4(->func), Dt4(->func), Dt2(->value), sizeof(CallInfo), Dt5(->jit_gate)); + dasm_put(Dst, 2570, (ptrdiff_t)(luaC_barrierf)); + dasm_put(Dst, 2589, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->env)); + dasm_put(Dst, 2609, Dt3(->tt), Dt3(->value), DtC(->lsizenode), DtB(->tsv.hash), DtC(->node), Dt10(->i_key.nk.tt), Dt10(->i_key.nk.value), Dt10(->i_val.tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2674, Dt10(->i_val.value), Dt2(->value)); + } else { + dasm_put(Dst, 2686, Dt10(->i_val.value), Dt10(->i_val.value.na[1]), Dt2(->value), Dt2(->value.na[1])); + } + dasm_put(Dst, 2699, Dt2(->tt), Dt1(->base), Dt10(->i_key.nk.next), DtC(->metatable), DtC(->flags), 1<base), Dt1(->env.value), Dt1(->env.tt), Dt1(->savedpc), (ptrdiff_t)(jit_gettable_fb), Dt1(->base)); + dasm_put(Dst, 32); + dasm_put(Dst, 2790, Dt3(->tt), Dt7(->tt), Dt3(->value), Dt7(->value)); + dasm_put(Dst, 2821, Dt1(->l_G), DtC(->marked), (~bitmask(BLACKBIT))&0xff, Dt6(->grayagain), Dt6(->grayagain), DtC(->gclist)); + dasm_put(Dst, 2843, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->env)); + dasm_put(Dst, 2863, Dt3(->tt), Dt3(->value), DtC(->lsizenode), DtB(->tsv.hash), DtC(->node), Dt10(->i_key.nk.tt), Dt10(->i_key.nk.value), Dt10(->i_val.tt), DtC(->flags)); + dasm_put(Dst, 2935, DtC(->marked), bitmask(BLACKBIT)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2947, Dt2([0].tt), Dt2([0].value), Dt7([0].tt), Dt7([0].value)); + } else { + dasm_put(Dst, 2965, Dt2([0].value), Dt2([0].value.na[1]), Dt2([0].tt), Dt7([0].value), Dt7([0].value.na[1]), Dt7([0].tt)); + } + dasm_put(Dst, 2984, Dt1(->base), Dt10(->i_key.nk.next), DtC(->metatable), DtC(->flags), 1<env), Dt7([0].value), Dt7([0].tt), (ptrdiff_t)(luaH_newkey)); + dasm_put(Dst, 3066, DtC(->metatable), DtC(->flags), 1<env.value), Dt1(->env.tt), Dt1(->savedpc), (ptrdiff_t)(jit_settable_fb), Dt1(->base)); + dasm_put(Dst, 3127, Dt3(->tt), Dt7(->tt), Dt3(->value), Dt7(->value)); + dasm_put(Dst, 3438, (ptrdiff_t)(luaH_getnum), sizeof(TValue)); + dasm_put(Dst, 3476, (ptrdiff_t)(luaH_getnum)); + dasm_put(Dst, 3623, (ptrdiff_t)(luaH_setnum), sizeof(TValue)); + dasm_put(Dst, 3665, (ptrdiff_t)(luaH_setnum)); + dasm_put(Dst, 3992); + dasm_put(Dst, 4325, Dt2([0].tt), Dt2([1].tt), Dt1(->l_G), Dt2([0].value), Dt2([1].value), DtB(->tsv.len), DtB(->tsv.len), Dt6(->buff.buffsize), Dt6(->buff.buffer), sizeof(TString)); + dasm_put(Dst, 4396, DtB(->tsv.len), DtB([1]), Dt1(->base), (ptrdiff_t)(luaS_newlstr), Dt1(->base), Dt6(->buff), (ptrdiff_t)(luaZ_openspace)); + dasm_put(Dst, 561, Dt1(->top), Dt1(->savedpc), (ptrdiff_t)(luaJIT_deoptimize), Dt1(->base), Dt1(->top)); + + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &J->jsubmcode, &J->szjsubmcode); + if (status != JIT_S_OK) + return status; + + /* Copy the callgates from the globals to the global state. */ + G(J->L)->jit_gateLJ = (luaJIT_GateLJ)J->jsub[JSUB_GATE_LJ]; + G(J->L)->jit_gateJL = (lua_CFunction)J->jsub[JSUB_GATE_JL]; + G(J->L)->jit_gateJC = (lua_CFunction)J->jsub[JSUB_GATE_JC]; + return JIT_S_OK; +} + +/* Match with number of nops above. Avoid confusing the instruction decoder. */ +#define DEBUGPATCH_SIZE 6 + +/* Notify backend that the debug mode may have changed. */ +void luaJIT_debugnotify(jit_State *J) +{ + unsigned char *patch = (unsigned char *)J->jsub[JSUB_GATE_JC_PATCH]; + unsigned char *target = (unsigned char *)J->jsub[JSUB_GATE_JC_DEBUG]; + /* Yep, this is self-modifying code -- don't tell anyone. */ + if (patch[0] == 0xe9) { /* Debug patch is active. */ + if (!(J->flags & JIT_F_DEBUG_CALL)) /* Deactivate it. */ + memcpy(patch, target-DEBUGPATCH_SIZE, DEBUGPATCH_SIZE); + } else { /* Debug patch is inactive. */ + if (J->flags & JIT_F_DEBUG_CALL) { /* Activate it. */ + int rel = target-(patch+5); + memcpy(target-DEBUGPATCH_SIZE, patch, DEBUGPATCH_SIZE); + patch[0] = 0xe9; /* jmp */ + memcpy(patch+1, &rel, 4); /* Relative address. */ + memset(patch+5, 0x90, DEBUGPATCH_SIZE-5); /* nop */ + } + } +} + +/* Patch a jmp into existing mcode. */ +static void jit_patch_jmp(jit_State *J, void *mcode, void *to) +{ + unsigned char *patch = (unsigned char *)mcode; + int rel = ((unsigned char *)to)-(patch+5); + patch[0] = 0xe9; /* jmp */ + memcpy((void *)(patch+1), &rel, 4); /* Relative addr. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Call line/count hook. */ +static void jit_hookins(lua_State *L, const Instruction *newpc) +{ + Proto *pt = ci_func(L->ci)->l.p; + int pc = luaJIT_findpc(pt, newpc); /* Sloooow with mcode addrs. */ + const Instruction *savedpc = L->savedpc; + L->savedpc = pt->code + pc + 1; + if (L->hookmask > LUA_MASKLINE && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (L->hookmask & LUA_MASKLINE) { + int newline = getline(pt, pc); + if (pc != 0) { + int oldpc = luaJIT_findpc(pt, savedpc); + if (!(pc <= oldpc || newline != getline(pt, oldpc))) return; + } + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + +/* Insert hook check for each instruction in full debug mode. */ +static void jit_ins_debug(jit_State *J, int openop) +{ + if (openop) { + dasm_put(Dst, 594, Dt1(->top)); + } + dasm_put(Dst, 598); + +} + +/* Called before every instruction. */ +static void jit_ins_start(jit_State *J) +{ + dasm_put(Dst, 663, J->nextpc); +} + +/* Chain to another instruction. */ +static void jit_ins_chainto(jit_State *J, int pc) +{ + dasm_put(Dst, 665, pc); +} + +/* Set PC label. */ +static void jit_ins_setpc(jit_State *J, int pc, void *target) +{ + dasm_put(Dst, 668, pc, (ptrdiff_t)(target)); +} + +/* Called after the last instruction has been encoded. */ +static void jit_ins_last(jit_State *J, int lastpc, int sizemfm) +{ + if (J->tflags & JIT_TF_USED_DEOPT) { /* Deopt section has been used? */ + dasm_put(Dst, 671); + dasm_put(Dst, 673); + } + dasm_put(Dst, 678, lastpc+1); + dasm_put(Dst, 681, lastpc+2); + dasm_put(Dst, 690, sizemfm); +} + +/* Add a deoptimize target for the current instruction. */ +static void jit_deopt_target(jit_State *J, int nargs) +{ + if (nargs != -1) { + dasm_put(Dst, 671); + dasm_put(Dst, 702, (ptrdiff_t)(J->nextins)); + J->tflags |= JIT_TF_USED_DEOPT; + } else { + dasm_put(Dst, 679); + dasm_put(Dst, 709, (ptrdiff_t)(J->nextins)); + } +} + +/* luaC_checkGC() inlined. Destroys caller-saves + TOP (edi). Uses label 7:. */ +/* Use this only at the _end_ of an instruction. */ +static void jit_checkGC(jit_State *J) +{ + dasm_put(Dst, 718, Dt1(->l_G), Dt6(->totalbytes), Dt6(->GCthreshold)); + +} + +/* ------------------------------------------------------------------------ */ + + + +/* +** Function inlining support for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* ------------------------------------------------------------------------ */ + +/* Private structure holding function inlining info. */ +typedef struct jit_InlineInfo { + int func; /* Function slot. 1st arg slot = func+1. */ + int res; /* 1st result slot. Overlaps func/ci->func. */ + int nargs; /* Number of args. */ + int nresults; /* Number of results. */ + int xnargs; /* Expected number of args. */ + int xnresults; /* Returned number of results. */ + int hidx; /* Library/function index numbers. */ +} jit_InlineInfo; + +/* ------------------------------------------------------------------------ */ + +enum { TFOR_FUNC, TFOR_TAB, TFOR_CTL, TFOR_KEY, TFOR_VAL }; + +static void jit_inline_base(jit_State *J, jit_InlineInfo *ii) +{ + int func = ii->func; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + dasm_put(Dst, 753, Dt2([func+TFOR_TAB].tt), Dt2([func+TFOR_CTL].tt), Dt2([func+TFOR_CTL].value)); + dasm_put(Dst, 771, JIT_MFM_DEOPT_PAIRS, J->nextpc-1); + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_DISABLE + +/* Helper function for inlined coroutine.resume(). */ +static StkId jit_coroutine_resume(lua_State *L, StkId base, int nresults) +{ + lua_State *co = thvalue(base-1); + /* Check for proper usage. Merge of lua_resume() and auxresume() checks. */ + if (co->status != LUA_YIELD) { + if (co->status > LUA_YIELD) { +errdead: + setsvalue(L, base-1, luaS_newliteral(L, "cannot resume dead coroutine")); + goto err; + } else if (co->ci != co->base_ci) { + setsvalue(L, base-1, + luaS_newliteral(L, "cannot resume non-suspended coroutine")); + goto err; + } else if (co->base == co->top) { + goto errdead; + } + } + { + ptrdiff_t ndelta = (char *)L->top - (char *)base; + int nargs = ndelta/sizeof(TValue); /* Compute nargs. */ + int status; + if ((char *)co->stack_last-(char *)co->top <= ndelta) { + co->ci->top = (StkId)(((char *)co->top) + ndelta); /* Ok before grow. */ + luaD_growstack(co, nargs); /* Grow thread stack. */ + } + /* Copy args. */ + co->top = (StkId)(((char *)co->top) + ndelta); + { StkId t = co->top, f = L->top; while (f > base) setobj2s(co, --t, --f); } + L->top = base; + status = luaCOCO_resume(co, nargs); /* Resume Coco thread. */ + if (status == 0 || status == LUA_YIELD) { /* Ok. */ + StkId f; + if (nresults == 0) return NULL; + if (nresults == -1) { + luaD_checkstack(L, co->top - co->base); /* Grow own stack. */ + } + base = L->top - 2; + setbvalue(base++, 1); /* true */ + /* Copy results. Fill unused result slots with nil. */ + f = co->base; + while (--nresults != 0 && f < co->top) setobj2s(L, base++, f++); + while (nresults-- > 0) setnilvalue(base++); + co->top = co->base; + return base; + } else { /* Error. */ + base = L->top; + setobj2s(L, base-1, co->top-1); /* Copy error object. */ +err: + setbvalue(base-2, 0); /* false */ + nresults -= 2; + while (--nresults >= 0) setnilvalue(base+nresults); /* Fill results. */ + return base; + } + } +} + +static void jit_inline_coroutine(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int i; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_COROUTINE_YIELD: + dasm_put(Dst, 775, ((int)&LHASCOCO((lua_State *)0)), Dt1(->savedpc), (ptrdiff_t)(J->nextins), arg*sizeof(TValue)); + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([ii->nargs])); + } + dasm_put(Dst, 795, Dt1(->base), Dt1(->top), (ptrdiff_t)(luaCOCO_yield), Dt1(->base), Dt1(->top)); + jit_assert(ii->nresults >= 0 && ii->nresults <= EXTRA_STACK); + for (i = 0; i < ii->nresults; i++) { + dasm_put(Dst, 813, Dt3([i].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([arg+i].tt), Dt2([arg+i].value), Dt2([res+i].tt), Dt2([res+i].value)); + } else { + dasm_put(Dst, 839, Dt2([arg+i].value), Dt2([arg+i].value.na[1]), Dt2([arg+i].tt), Dt2([res+i].value), Dt2([res+i].value.na[1]), Dt2([res+i].tt)); + } + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + case JIT_IH_COROUTINE_RESUME: + jit_assert(ii->nargs != 0 && ii->res == ii->func); + dasm_put(Dst, 787, (arg+1)*sizeof(TValue)); + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([ii->nargs-1])); + } else { + dasm_put(Dst, 858); + } + dasm_put(Dst, 865, Dt2([-1].tt), Dt2([-1].value), ((int)&LHASCOCO((lua_State *)0)), Dt1(->savedpc), (ptrdiff_t)(J->nextins), Dt1(->top), ii->nresults, (ptrdiff_t)(jit_coroutine_resume), Dt1(->base)); + if (ii->nresults == -1) { + dasm_put(Dst, 909); + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + default: + jit_assert(0); + break; + } +} + +#endif /* COCO_DISABLE */ + +/* ------------------------------------------------------------------------ */ + +static void jit_inline_string(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_STRING_LEN: + dasm_put(Dst, 912, Dt2([arg].tt), Dt2([arg].value), DtB(->tsv.len), Dt2([res].tt), Dt2([res].value)); + break; + case JIT_IH_STRING_SUB: + /* TODO: inline numeric constants with help from the optimizer. */ + /* But this would save only another 15-20% in a trivial loop. */ + jit_assert(ii->nargs >= 2); /* Open op caveat is ok, too. */ + if (ii->nargs > 2) { + dasm_put(Dst, 937, Dt2([arg]), Dt2([res].value), Dt2([res].tt)); + } else { + dasm_put(Dst, 954, Dt2([arg]), Dt2([res].value), Dt2([res].tt)); + } + break; + case JIT_IH_STRING_CHAR: + dasm_put(Dst, 971, Dt2([arg].tt), Dt1(->env), Dt2([arg].value), (ptrdiff_t)(luaS_newlstr), Dt2([res].value), Dt2([res].tt)); + break; + default: + jit_assert(0); + break; + } + +} + +/* ------------------------------------------------------------------------ */ + +/* Helper functions for inlined calls to table.*. */ +static void jit_table_insert(lua_State *L, TValue *arg) +{ + setobj2t(L, luaH_setnum(L, hvalue(arg), luaH_getn(hvalue(arg))+1), arg+1); + luaC_barriert(L, hvalue(arg), arg+1); +} + +static TValue *jit_table_remove(lua_State *L, TValue *arg, TValue *res) +{ + int n = luaH_getn(hvalue(arg)); + if (n == 0) { + setnilvalue(res); /* For the nresults == 1 case. Harmless otherwise. */ + return res; /* For the nresults == -1 case. */ + } else { + TValue *val = luaH_setnum(L, hvalue(arg), n); + setobj2s(L, res, val); + setnilvalue(val); + return res+1; /* For the nresults == -1 case. */ + } +} + +static void jit_inline_table(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + dasm_put(Dst, 1250, Dt2([arg].tt)); + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_TABLE_INSERT: + dasm_put(Dst, 1259, Dt2([arg]), (ptrdiff_t)(jit_table_insert)); + break; + case JIT_IH_TABLE_REMOVE: + dasm_put(Dst, 1272, Dt2([arg]), Dt2([res]), (ptrdiff_t)(jit_table_remove)); + if (ii->nresults == -1) { + ii->xnresults = -1; + dasm_put(Dst, 909); + } + break; + case JIT_IH_TABLE_GETN: + dasm_put(Dst, 1292, Dt2([arg].value), (ptrdiff_t)(luaH_getn), Dt2([res].value), Dt2([res].tt)); + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +/* This typedef must match the libm function signature. */ +/* Serves as a check against wrong lua_Number or wrong calling conventions. */ +typedef lua_Number (*mathfunc_11)(lua_Number); + +/* Partially inlined math functions. */ +/* CHECK: must match with jit_hints.h and jit.opt_lib. */ +static const mathfunc_11 jit_mathfuncs_11[JIT_IH_MATH_SIN] = { + log, log10, exp, sinh, cosh, tanh, asin, acos, atan +}; + +/* FPU control words for ceil and floor (exceptions masked, full precision). */ +static const unsigned short jit_fpucw[2] = { 0x0b7f, 0x077f }; + +static void jit_inline_math(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int idx = JIT_IH_IDX(ii->hidx); + + if (idx < JIT_IH_MATH__21) { + dasm_put(Dst, 1317, Dt2([arg].tt), Dt2([arg].value)); + } else { + jit_assert(idx < JIT_IH_MATH__LAST); + dasm_put(Dst, 1329, Dt2([arg].tt), Dt2([arg+1].tt)); + } + switch (idx) { + /* We ignore sin/cos/tan range overflows (2^63 rad) just like -ffast-math. */ + case JIT_IH_MATH_SIN: + dasm_put(Dst, 1347); + break; + case JIT_IH_MATH_COS: + dasm_put(Dst, 1351); + break; + case JIT_IH_MATH_TAN: + dasm_put(Dst, 1355); + break; + case JIT_IH_MATH_CEIL: + case JIT_IH_MATH_FLOOR: + dasm_put(Dst, 1361, (ptrdiff_t)&jit_fpucw[idx-JIT_IH_MATH_CEIL]); + break; + case JIT_IH_MATH_ABS: + dasm_put(Dst, 1374); + break; + case JIT_IH_MATH_SQRT: + dasm_put(Dst, 1377); + break; + case JIT_IH_MATH_FMOD: + dasm_put(Dst, 1381, Dt2([arg+1].value), Dt2([arg].value)); + break; + case JIT_IH_MATH_ATAN2: + dasm_put(Dst, 1402, Dt2([arg].value), Dt2([arg+1].value)); + break; + default: + dasm_put(Dst, 1412, (ptrdiff_t)(jit_mathfuncs_11[idx])); + break; + } + dasm_put(Dst, 926, Dt2([res].tt), Dt2([res].value)); +} + +/* ------------------------------------------------------------------------ */ + +/* Try to inline a CALL or TAILCALL instruction. */ +static int jit_inline_call(jit_State *J, int func, int nargs, int nresults) +{ + const TValue *callable = hint_get(J, TYPE); /* TYPE hint = callable. */ + int cltype = ttype(callable); + const TValue *oidx; + jit_InlineInfo ii; + int idx; + + if (cltype != LUA_TFUNCTION) goto fail; + if (J->flags & JIT_F_DEBUG) goto fail; /* DWIM. */ + + oidx = hint_get(J, INLINE); /* INLINE hint = library/function index. */ + if (!ttisnumber(oidx)) goto fail; + + ii.hidx = (int)nvalue(oidx); + idx = JIT_IH_IDX(ii.hidx); + + if (nresults == -2) { /* Tailcall. */ + /* Tailcalls from vararg functions don't work with BASE[-1]. */ + if (J->pt->is_vararg) goto fail; /* So forget about this rare case. */ + ii.res = -1; /* Careful: 2nd result overlaps 1st stack slot. */ + ii.nresults = -1; + } else { + ii.res = func; + ii.nresults = nresults; + } + ii.func = func; + ii.nargs = nargs; + ii.xnargs = ii.xnresults = 1; /* Default: 1 arg, 1 result. */ + + /* Check for the currently supported cases. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: + switch (idx) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + if (nresults == -2) goto fail; /* Not useful for tailcalls. */ + ii.xnresults = 3; + goto check; + } + break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: + switch (idx) { + case JIT_IH_COROUTINE_YIELD: + /* Only support common cases: no tailcalls, low number of results. */ + if (nresults < 0 || nresults > EXTRA_STACK) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + case JIT_IH_COROUTINE_RESUME: + /* Only support common cases: no tailcalls, not with 0 args (error). */ + if (nresults == -2 || nargs == 0) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + } + break; +#endif + case JIT_IHLIB_STRING: + switch (idx) { + case JIT_IH_STRING_LEN: + goto check; + case JIT_IH_STRING_SUB: + if (nargs < 2) goto fail; /* No support for open calls, too. */ + goto ok; /* 2 or more args are ok. */ + case JIT_IH_STRING_CHAR: + goto check; /* Only single arg supported. */ + } + break; + case JIT_IHLIB_TABLE: + switch (idx) { + case JIT_IH_TABLE_INSERT: + ii.xnargs = 2; + goto check; /* Only push (append) supported. */ + case JIT_IH_TABLE_REMOVE: + goto check; /* Only pop supported. */ + case JIT_IH_TABLE_GETN: + goto check; + } + break; + case JIT_IHLIB_MATH: + if (idx >= JIT_IH_MATH__LAST) goto fail; + if (idx >= JIT_IH_MATH__21) ii.xnargs = 2; + goto check; + } +fail: + return cltype; /* Call could not be inlined. Return type of callable. */ + +check: + if (nargs != ii.xnargs && nargs != -1) goto fail; + /* The optimizer already checks the number of results (avoid setnil). */ + +ok: /* Whew, all checks done. Go for it! */ + + /* Start with the common leadin for inlined calls. */ + jit_deopt_target(J, nargs); + dasm_put(Dst, 1418, Dt2([func].tt), Dt2([func].value), (ptrdiff_t)(clvalue(callable))); + if (nargs == -1 && ii.xnargs >= 0) { + dasm_put(Dst, 1435, Dt2([func+1+ii.xnargs])); + } + + /* Now inline the function itself. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: jit_inline_base(J, &ii); break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: jit_inline_coroutine(J, &ii); break; +#endif + case JIT_IHLIB_STRING: jit_inline_string(J, &ii); break; + case JIT_IHLIB_TABLE: jit_inline_table(J, &ii); break; + case JIT_IHLIB_MATH: jit_inline_math(J, &ii); break; + default: jit_assert(0); break; + } + + /* And add the common leadout for inlined calls. */ + if (ii.nresults == -1) { + if (ii.xnresults >= 0) { + dasm_put(Dst, 791, Dt2([ii.res+ii.xnresults])); + } + } else if (ii.nargs == -1) { /* Restore L->top only if needed. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } + + if (nresults == -2) { /* Results are in place. Add return for tailcalls. */ + dasm_put(Dst, 1452, sizeof(TValue), Dt1(->ci), sizeof(CallInfo)); + } + + return -1; /* Success, call has been inlined. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Helper function for inlined iterator code. Paraphrased from luaH_next. */ +/* TODO: GCC has trouble optimizing this. */ +static int jit_table_next(lua_State *L, TValue *ra) +{ + Table *t = hvalue(&ra[TFOR_TAB]); + int i = ra[TFOR_CTL].value.b; /* Hidden control variable. */ + for (; i < t->sizearray; i++) { /* First the array part. */ + if (!ttisnil(&t->array[i])) { + setnvalue(&ra[TFOR_KEY], cast_num(i+1)); + setobj2s(L, &ra[TFOR_VAL], &t->array[i]); + ra[TFOR_CTL].value.b = i+1; + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* Then the hash part. */ + if (!ttisnil(gval(gnode(t, i)))) { + setobj2s(L, &ra[TFOR_KEY], key2tval(gnode(t, i))); + setobj2s(L, &ra[TFOR_VAL], gval(gnode(t, i))); + ra[TFOR_CTL].value.b = i+1+t->sizearray; + return 1; + } + } + return 0; /* End of iteration. */ +} + +/* Try to inline a TFORLOOP instruction. */ +static int jit_inline_tforloop(jit_State *J, int ra, int nresults, int target) +{ + const TValue *oidx = hint_get(J, INLINE); /* INLINE hint = lib/func idx. */ + int idx; + + if (!ttisnumber(oidx)) return 0; /* No hint: don't inline anything. */ + idx = (int)nvalue(oidx); + if (J->flags & JIT_F_DEBUG) return 0; /* DWIM. */ + + switch (idx) { + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_PAIRS): + dasm_put(Dst, 1465, Dt2([ra]), (ptrdiff_t)(jit_table_next), target); + return 1; /* Success, iterator has been inlined. */ + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_IPAIRS): + dasm_put(Dst, 1483, Dt2([ra+TFOR_CTL].value), Dt2([ra+TFOR_TAB].value), Dt2([ra+TFOR_CTL].value), (ptrdiff_t)(luaH_getnum), Dt7(->tt), Dt2([ra+TFOR_CTL].value), Dt2([ra+TFOR_KEY].tt), Dt2([ra+TFOR_KEY].value), Dt7(->value), Dt7(->value.na[1]), Dt2([ra+TFOR_VAL].tt), Dt2([ra+TFOR_VAL].value), Dt2([ra+TFOR_VAL].value.na[1]), target); + return 1; /* Success, iterator has been inlined. */ + } + + return 0; /* No support for inlining any other iterators. */ +} + +/* ------------------------------------------------------------------------ */ + + + +#ifdef LUA_COMPAT_VARARG +static void jit_vararg_table(lua_State *L) +{ + Table *tab; + StkId base, func; + int i, num, numparams; + luaC_checkGC(L); + base = L->base; + func = L->ci->func; + numparams = clvalue(func)->l.p->numparams; + num = base - func - numparams - 1; + tab = luaH_new(L, num, 1); + for (i = 0; i < num; i++) + setobj2n(L, luaH_setnum(L, tab, i+1), base - num + i); + setnvalue(luaH_setstr(L, tab, luaS_newliteral(L, "n")), (lua_Number)num); + sethvalue(L, base + numparams, tab); +} +#endif + +/* Encode JIT function prologue. */ +static void jit_prologue(jit_State *J) +{ + Proto *pt = J->pt; + int numparams = pt->numparams; + int stacksize = pt->maxstacksize; + + dasm_put(Dst, 1544, Dt3([stacksize]), Dt1(->stack_last), Dt1(->end_ci), Dt4([1]), Dt4(->func), sizeof(TValue), Dt1(->ci)); + + if (numparams > 0) { + dasm_put(Dst, 1580, Dt2([numparams])); + } + + if (!pt->is_vararg) { /* Fixarg function. */ + /* Must cap L->top at L->base+numparams because 1st LOADNIL is omitted. */ + if (numparams == 0) { + dasm_put(Dst, 1586); + } else if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 1589); + } else { + dasm_put(Dst, 1594); + } + dasm_put(Dst, 1603, Dt2([stacksize]), Dt4(->tailcalls), Dt4(->top), Dt1(->top), Dt1(->base), Dt4(->base)); + } else { /* Vararg function. */ + int i; + if (numparams > 0) { + dasm_put(Dst, 1622); + dasm_put(Dst, 1630, Dt3(->tt), sizeof(TValue)); + } + dasm_put(Dst, 1649, Dt1(->base), Dt4(->base), Dt4(->tailcalls)); + for (i = 0; i < numparams; i++) { /* Move/clear fixargs. */ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 1659, Dt2([i].tt), Dt2([i].value), Dt3([i].tt), Dt3([i].value)); + } else { + dasm_put(Dst, 1677, Dt2([i].value), Dt2([i].value.na[1]), Dt3([i].value), Dt2([i].tt), Dt3([i].value.na[1]), Dt3([i].tt)); + } + dasm_put(Dst, 854, Dt2([i].tt)); + } + if (numparams > 0) { + dasm_put(Dst, 332, Dt1(->ci)); + } + dasm_put(Dst, 1696, Dt2([stacksize]), Dt2([numparams]), Dt4(->top), Dt1(->top)); + stacksize -= numparams; /* Fixargs are already cleared. */ + } + + /* Clear undefined args and all vars. Still assumes eax = LUA_TNIL = 0. */ + /* Note: cannot clear only args because L->top has grown. */ + if (stacksize <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < stacksize; i++) { + dasm_put(Dst, 1712, Dt3([i].tt)); + } + } else { /* Standard loop. */ + dasm_put(Dst, 1716, Dt3([0].tt), Dt3([1].tt), 2*sizeof(TValue)); + } + +#ifdef LUA_COMPAT_VARARG + if (pt->is_vararg & VARARG_NEEDSARG) { + dasm_put(Dst, 1734, (ptrdiff_t)(jit_vararg_table)); + } +#endif + + /* Call hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + dasm_put(Dst, 1740, Dt1(->hookmask), LUA_MASKCALL); + + } +} + +/* Check if we can combine 'return const'. */ +static int jit_return_k(jit_State *J) +{ + if (!J->combine) return 0; /* COMBINE hint set? */ + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + if (!J->pt->is_vararg) { /* Fixarg function. */ + dasm_put(Dst, 1830, Dt1(->ci), sizeof(CallInfo), sizeof(TValue)); + } else { /* Vararg function. */ + dasm_put(Dst, 1844, Dt1(->ci), Dt4(->func), sizeof(CallInfo), Dt1(->ci), Dt2([1])); + } + jit_assert(J->combine == 1); /* Required to skip next RETURN instruction. */ + return 1; +} + +static void jit_op_return(jit_State *J, int rbase, int nresults) +{ + /* Return hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + if (nresults < 0 && !(J->flags & JIT_F_DEBUG_INS)) { + dasm_put(Dst, 594, Dt1(->top)); + } + dasm_put(Dst, 1863, Dt1(->hookmask), LUA_MASKRET); + if (J->flags & JIT_F_DEBUG_INS) { + dasm_put(Dst, 1878, Dt1(->savedpc)); + } + + } + + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + + /* Previous op was open: 'return f()' or 'return ...' */ + if (nresults < 0) { + dasm_put(Dst, 332, Dt1(->ci)); + if (rbase) { + dasm_put(Dst, 787, rbase*sizeof(TValue)); + } + dasm_put(Dst, 1933, Dt4(->func), Dt4(->func), sizeof(CallInfo), Dt1(->ci)); + return; + } + + if (!J->pt->is_vararg) { /* Fixarg function, nresults >= 0. */ + int i; + dasm_put(Dst, 1980, Dt1(->ci), sizeof(CallInfo), sizeof(TValue)); + for (i = 0; i < nresults; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([rbase+i+1].tt), Dt2([rbase+i+1].value), Dt2([i].tt), Dt2([i].value)); + } else { + dasm_put(Dst, 839, Dt2([rbase+i+1].value), Dt2([rbase+i+1].value.na[1]), Dt2([rbase+i+1].tt), Dt2([i].value), Dt2([i].value.na[1]), Dt2([i].tt)); + } + } + dasm_put(Dst, 1989, Dt2([nresults])); + } else { /* Vararg function, nresults >= 0. */ + int i; + dasm_put(Dst, 1997, Dt1(->ci), Dt4(->func), sizeof(CallInfo), Dt1(->ci)); + for (i = 0; i < nresults; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 1659, Dt2([rbase+i].tt), Dt2([rbase+i].value), Dt3([i].tt), Dt3([i].value)); + } else { + dasm_put(Dst, 2010, Dt2([rbase+i].value), Dt2([rbase+i].value.na[1]), Dt2([rbase+i].tt), Dt3([i].value), Dt3([i].value.na[1]), Dt3([i].tt)); + } + } + dasm_put(Dst, 2029); + if (nresults) { + dasm_put(Dst, 2036, nresults*sizeof(TValue)); + } + dasm_put(Dst, 32); + } +} + +static void jit_op_call(jit_State *J, int func, int nargs, int nresults) +{ + int cltype = jit_inline_call(J, func, nargs, nresults); + if (cltype < 0) return; /* Inlined? */ + + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + dasm_put(Dst, 2040, Dt1(->ci), Dt2([0].tt)); + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([1+nargs])); + } + dasm_put(Dst, 2048, Dt2(->value), (ptrdiff_t)(J->nextins), Dt4(->savedpc)); + if (cltype == LUA_TFUNCTION) { + if (nargs == -1) { + dasm_put(Dst, 2057); + } else { + dasm_put(Dst, 2062); + } + } else { + dasm_put(Dst, 2067); + + } + dasm_put(Dst, 2116, Dt5(->jit_gate)); + if (func) { + dasm_put(Dst, 1984, func*sizeof(TValue)); + } + dasm_put(Dst, 2121, Dt1(->base)); + + /* Clear undefined results TOP <= o < func+nresults. */ + if (nresults > 0) { + dasm_put(Dst, 2125); + if (nresults <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < nresults; i++) { + dasm_put(Dst, 1712, Dt3([i].tt)); + } + } else { /* Standard loop. TODO: move to .tail? */ + dasm_put(Dst, 2128, Dt2([func+nresults]), Dt3([0].tt), Dt3([1].tt), 2*sizeof(TValue)); + } + } + + if (nresults >= 0) { /* Not an open ins. Restore L->top. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } /* Otherwise keep TOP for next instruction. */ +} + +static void jit_op_tailcall(jit_State *J, int func, int nargs) +{ + int cltype; + + if (!fhint_isset(J, NOCLOSE)) { /* May need to close open upvalues. */ + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + + cltype = jit_inline_call(J, func, nargs, -2); + if (cltype < 0) goto finish; /* Inlined? */ + + if (cltype == LUA_TFUNCTION) { + jit_deopt_target(J, nargs); + dasm_put(Dst, 2149, Dt2([func].tt)); + } else { + dasm_put(Dst, 2158, Dt2([func].tt)); + dasm_put(Dst, 2168); + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + if (nargs >= 0) { + dasm_put(Dst, 791, Dt2([1+nargs])); + } + dasm_put(Dst, 2171, (ptrdiff_t)(J->nextins)); + + } + + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + int i; + /* Relocate [BASE+func, BASE+func+nargs] -> [ci->func, ci->func+nargs]. */ + /* TODO: loop for large nargs? */ + if (!J->pt->is_vararg) { /* Fixarg function. */ + dasm_put(Dst, 2241, Dt2([func].value)); + for (i = 0; i < nargs; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([func+1+i].tt), Dt2([func+1+i].value), Dt2([i].tt), Dt2([i].value)); + } else { + dasm_put(Dst, 2245, Dt2([func+1+i].value), Dt2([func+1+i].value.na[1]), Dt2([i].value), Dt2([func+1+i].tt), Dt2([i].value.na[1]), Dt2([i].tt)); + } + } + dasm_put(Dst, 2264, Dt2([nargs]), sizeof(TValue), Dt1(->ci), Dt2(->value)); + } else { /* Vararg function. */ + dasm_put(Dst, 2278, Dt1(->ci), Dt2([func]), Dt4(->func), Dt3(->value), Dt2(->value)); + for (i = 0; i < nargs; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2294, Dt3([i+1].tt), Dt3([i+1].value), Dt2([i+1].tt), Dt2([i+1].value)); + } else { + dasm_put(Dst, 2312, Dt3([i+1].value), Dt3([i+1].value.na[1]), Dt2([i+1].value), Dt3([i+1].tt), Dt2([i+1].value.na[1]), Dt2([i+1].tt)); + } + } + dasm_put(Dst, 2331, Dt2([1+nargs]), Dt2(->value)); + } + } else { /* Previous op was open and set TOP. */ + dasm_put(Dst, 332, Dt1(->ci)); + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + dasm_put(Dst, 2338, Dt4(->func), Dt4(->func), Dt2(->value)); + } + dasm_put(Dst, 2230, sizeof(CallInfo), Dt5(->jit_gate)); + +finish: + J->combine++; /* Combine with following return instruction. */ +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_move(jit_State *J, int dest, int src) +{ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([src].tt), Dt2([src].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 839, Dt2([src].value), Dt2([src].value.na[1]), Dt2([src].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } +} + +static void jit_op_loadk(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + int rk = jit_return_k(J); + if (rk) dest = 0; + switch (ttype(kk)) { + case 0: + dasm_put(Dst, 2369, Dt2([dest].tt)); + break; + case 1: + if (bvalue(kk)) { /* true */ + dasm_put(Dst, 2377, Dt2([dest].value), Dt2([dest].tt)); + } else { /* false */ + dasm_put(Dst, 2389, Dt2([dest].value), Dt2([dest].tt)); + } + break; + case 3: { + if ((&(kk)->value)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((&(kk)->value)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, &(kk)->value); + } + dasm_put(Dst, 1306, Dt2([dest].value), Dt2([dest].tt)); + break; + } + case 4: + dasm_put(Dst, 2415, Dt2([dest].value), (ptrdiff_t)(gcvalue(kk)), Dt2([dest].tt)); + break; + default: lua_assert(0); break; + } + if (rk) { + dasm_put(Dst, 32); + } +} + +static void jit_op_loadnil(jit_State *J, int first, int last) +{ + int idx, num = last - first + 1; + int rk = jit_return_k(J); + dasm_put(Dst, 2125); + if (rk) { + dasm_put(Dst, 2427, Dt2([0].tt)); + } else if (num <= 8) { + for (idx = first; idx <= last; idx++) { + dasm_put(Dst, 854, Dt2([idx].tt)); + } + } else { + dasm_put(Dst, 2432, Dt2([first].tt), Dt2([last].tt), sizeof(TValue)); + } +} + +static void jit_op_loadbool(jit_State *J, int dest, int b, int dojump) +{ + int rk = jit_return_k(J); + if (rk) dest = 0; + if (b) { /* true */ + dasm_put(Dst, 2377, Dt2([dest].value), Dt2([dest].tt)); + } else { /* false */ + dasm_put(Dst, 2389, Dt2([dest].value), Dt2([dest].tt)); + } + if (rk) { + dasm_put(Dst, 32); + } else if (dojump) { + const TValue *h = hint_getpc(J, COMBINE, J->nextpc); + if (!(ttisboolean(h) && bvalue(h) == 0)) { /* Avoid jmp around dead ins. */ + dasm_put(Dst, 665, J->nextpc+1); + } + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_getupval(jit_State *J, int dest, int uvidx) +{ + if (!J->pt->is_vararg) { + dasm_put(Dst, 2241, Dt2([-1].value)); + } else { + dasm_put(Dst, 2452, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 2462, Dt5(->upvals[uvidx]), DtF(->v)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2469, Dt3([0].tt), Dt3([0].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 2487, Dt3([0].value), Dt3([0].value.na[1]), Dt3([0].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } +} + +static void jit_op_setupval(jit_State *J, int src, int uvidx) +{ + if (!J->pt->is_vararg) { + dasm_put(Dst, 2241, Dt2([-1].value)); + } else { + dasm_put(Dst, 2452, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 2506, Dt5(->upvals[uvidx]), DtF(->v), Dt2([src].tt), Dt2([src].value), Dt3(->tt), Dt2([src].value.na[1]), Dt3(->value), Dt3(->value.na[1])); + dasm_put(Dst, 2542, DtA(->gch.marked), WHITEBITS, DtF(->marked), bitmask(BLACKBIT)); + +} + +/* ------------------------------------------------------------------------ */ + +/* Optimized table lookup routines. Enter via jsub, fallback to C. */ + +/* Fallback for GETTABLE_*. Temporary key is in L->env. */ +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_INDEX]); + if (ttisnil(tm)) { /* No __index method? */ + mt->flags |= 1<top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + dest = restorestack(L, destr); + L->top--; + setobjs2s(L, dest, L->top); + } else { /* Let luaV_gettable() continue with the __index object. */ + luaV_gettable(L, tm, &L->env, dest); + } + +} + +/* Fallback for SETTABLE_*STR. Temporary (string) key is in L->env. */ +static void jit_settable_fb(lua_State *L, Table *t, StkId val) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_NEWINDEX]); + if (ttisnil(tm)) { /* No __newindex method? */ + mt->flags |= 1<flags = 0; /* But need to clear the cache for the table itself. */ + setobj2t(L, luaH_setstr(L, t, rawtsvalue(&L->env)), val); + luaC_barriert(L, t, val); + } else if (ttisfunction(tm)) { /* __newindex function? */ + setobj2s(L, L->top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + setobj2s(L, L->top+3, val); + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); + } else { /* Let luaV_settable() continue with the __newindex object. */ + luaV_settable(L, tm, &L->env, val); + } + +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_newtable(jit_State *J, int dest, int lnarray, int lnhash) +{ + dasm_put(Dst, 3158, luaO_fb2int(lnarray), luaO_fb2int(lnhash), (ptrdiff_t)(luaH_new), Dt2([dest].value), Dt2([dest].tt)); + jit_checkGC(J); +} + +static void jit_op_getglobal(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + dasm_put(Dst, 3184, (ptrdiff_t)(&kk->value.gc->ts)); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3187); +} + +static void jit_op_setglobal(jit_State *J, int rval, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + dasm_put(Dst, 3184, (ptrdiff_t)(&kk->value.gc->ts)); + if (rval) { + dasm_put(Dst, 787, rval*sizeof(TValue)); + } + dasm_put(Dst, 3191); +} + +enum { TKEY_KSTR = -2, TKEY_STR = -1, TKEY_ANY = 0 }; + +/* Optimize key lookup depending on consts or hints type. */ +static int jit_keylookup(jit_State *J, int tab, int rkey) +{ + const TValue *tabt = hint_get(J, TYPE); + const TValue *key; + if (!ttistable(tabt)) return TKEY_ANY; /* Not a table? Use fallback. */ + key = ISK(rkey) ? &J->pt->k[INDEXK(rkey)] : hint_get(J, TYPEKEY); + if (ttisstring(key)) { /* String key? */ + if (ISK(rkey)) { + dasm_put(Dst, 3195, Dt2([tab]), (ptrdiff_t)(&key->value.gc->ts)); + return TKEY_KSTR; /* Const string key. */ + } else { + dasm_put(Dst, 3201, Dt2([tab]), Dt2([rkey])); + return TKEY_STR; /* Var string key. */ + } + } else if (ttisnumber(key)) { /* Number key? */ + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (!(k >= 1 && k < (1 << 26) && (lua_Number)k == n)) + return TKEY_ANY; /* Not a proper array key? Use fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3208, Dt2([tab].tt), Dt2([tab].value), k, DtC(->array), DtC(->sizearray)); + return k; /* Const array key (>= 1). */ + } else { + dasm_put(Dst, 3232, Dt2([tab].tt), Dt2([rkey].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 3250, Dt2([rkey]), Dt2([tab].value)); + } else { + dasm_put(Dst, 3283, Dt2([rkey].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 3304, Dt2([tab].value)); + } + dasm_put(Dst, 3320, DtC(->sizearray), DtC(->array)); + return 1; /* Variable array key. */ + } + } + return TKEY_ANY; /* Use fallback. */ +} + +static void jit_op_gettable(jit_State *J, int dest, int tab, int rkey) +{ + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3334); + break; + case TKEY_STR: /* Variable string key. */ + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3338); + break; + case TKEY_ANY: /* Generic gettable fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3342, (ptrdiff_t)(&J->pt->k[INDEXK(rkey)])); + } else { + dasm_put(Dst, 3204, Dt2([rkey])); + } + dasm_put(Dst, 3345, Dt2([tab])); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3349, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_gettable), Dt1(->base)); + break; + default: /* Array key. */ + dasm_put(Dst, 3366, Dt7([k-1].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2674, Dt7([k-1].value), Dt2([dest].value)); + } else { + dasm_put(Dst, 3378, Dt7([k-1].value), Dt7([k-1].value.na[1]), Dt2([dest].value), Dt2([dest].value.na[1])); + } + dasm_put(Dst, 3391, Dt2([dest].tt)); + dasm_put(Dst, 2168); + if (ISK(rkey)) { + dasm_put(Dst, 3398); + } else { + dasm_put(Dst, 3402); + } + dasm_put(Dst, 3406, DtC(->metatable), DtC(->flags), 1<nextins)); + break; + } + +} + +static void jit_op_settable(jit_State *J, int tab, int rkey, int rval) +{ + const TValue *val = ISK(rval) ? &J->pt->k[INDEXK(rval)] : NULL; + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + case TKEY_STR: /* Variable string key. */ + if (ISK(rval)) { + dasm_put(Dst, 3492, (ptrdiff_t)(val)); + } else { + if (rval) { + dasm_put(Dst, 787, rval*sizeof(TValue)); + } + } + if (k == TKEY_KSTR) { + dasm_put(Dst, 3495); + } else { + dasm_put(Dst, 3499); + } + break; + case TKEY_ANY: /* Generic settable fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3342, (ptrdiff_t)(&J->pt->k[INDEXK(rkey)])); + } else { + dasm_put(Dst, 3204, Dt2([rkey])); + } + if (ISK(rval)) { + dasm_put(Dst, 3184, (ptrdiff_t)(val)); + } else { + dasm_put(Dst, 3345, Dt2([rval])); + } + if (tab) { + dasm_put(Dst, 787, tab*sizeof(TValue)); + } + dasm_put(Dst, 3503, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_settable), Dt1(->base)); + break; + default: /* Array key. */ + dasm_put(Dst, 3520, Dt7([k-1].tt)); + dasm_put(Dst, 2168); + if (ISK(rkey)) { + dasm_put(Dst, 3534); + } else { + dasm_put(Dst, 3538); + } + dasm_put(Dst, 3406, DtC(->metatable), DtC(->flags), 1<nextins)); + if (!ISK(rval) || iscollectable(val)) { + dasm_put(Dst, 3542, DtC(->marked), bitmask(BLACKBIT)); + dasm_put(Dst, 3555); + } + if (ISK(rval)) { + switch (ttype(val)) { + case 0: + dasm_put(Dst, 3565, Dt7([k-1].tt)); + break; + case 1: + if (bvalue(val)) { /* true */ + dasm_put(Dst, 3573, Dt7([k-1].value), Dt7([k-1].tt)); + } else { /* false */ + dasm_put(Dst, 3585, Dt7([k-1].value), Dt7([k-1].tt)); + } + break; + case 3: { + if ((&(val)->value)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((&(val)->value)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, &(val)->value); + } + dasm_put(Dst, 3600, Dt7([k-1].value), Dt7([k-1].tt)); + break; + } + case 4: + dasm_put(Dst, 3611, Dt7([k-1].value), (ptrdiff_t)(gcvalue(val)), Dt7([k-1].tt)); + break; + default: lua_assert(0); break; + } + } else { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2947, Dt2([rval].tt), Dt2([rval].value), Dt7([k-1].tt), Dt7([k-1].value)); + } else { + dasm_put(Dst, 2965, Dt2([rval].value), Dt2([rval].value.na[1]), Dt2([rval].tt), Dt7([k-1].value), Dt7([k-1].value.na[1]), Dt7([k-1].tt)); + } + } + break; + } + +} + +static void jit_op_self(jit_State *J, int dest, int tab, int rkey) +{ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([tab].tt), Dt2([tab].value), Dt2([dest+1].tt), Dt2([dest+1].value)); + } else { + dasm_put(Dst, 839, Dt2([tab].value), Dt2([tab].value.na[1]), Dt2([tab].tt), Dt2([dest+1].value), Dt2([dest+1].value.na[1]), Dt2([dest+1].tt)); + } + jit_op_gettable(J, dest, tab, rkey); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_setlist(jit_State *J, int ra, int num, int batch) +{ + if (batch == 0) { batch = (int)(*J->nextins); J->combine++; } + batch = (batch-1)*LFIELDS_PER_FLUSH; + if (num == 0) { /* Previous op was open and set TOP: {f()} or {...}. */ + dasm_put(Dst, 3685, Dt1(->env.value), Dt2([ra+1]), Dt2([ra].value)); + if (batch > 0) { + dasm_put(Dst, 3709, batch); + } + dasm_put(Dst, 3713, DtC(->sizearray), (ptrdiff_t)(luaH_resizearray), DtC(->marked), bitmask(BLACKBIT), DtC(->array), Dt1(->env.value)); + dasm_put(Dst, 3752); + } else { /* Set fixed number of args. */ + dasm_put(Dst, 3762, Dt2([ra].value), DtC(->sizearray), batch+num, DtC(->marked), bitmask(BLACKBIT), DtC(->array), Dt2([ra+1+num])); + dasm_put(Dst, 3792, batch+num, (ptrdiff_t)(luaH_resizearray)); + } + if (batch > 0) { + dasm_put(Dst, 3821, batch*sizeof(TValue)); + } + dasm_put(Dst, 3825, Dt2([ra+1])); + if (num == 0) { /* Previous op was open. Restore L->top. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_arith(jit_State *J, int dest, int rkb, int rkc, int ev) +{ + const TValue *kkb = ISK(rkb) ? &J->pt->k[INDEXK(rkb)] : NULL; + const TValue *kkc = ISK(rkc) ? &J->pt->k[INDEXK(rkc)] : NULL; + const Value *kval; + int idx, rev; + int target = (ev == TM_LT || ev == TM_LE) ? jit_jmp_target(J) : 0; + int hastail = 0; + + /* The bytecode compiler already folds constants except for: k/0, k%0, */ + /* NaN results, k1value; idx = rkb; rev = 1; } + else { kval = kkb ? &kkb->value : NULL; idx = rkc; rev = 0; } + + /* Special handling for some operators. */ + switch (ev) { + case TM_MOD: + /* Check for modulo with positive numbers, so we can use fprem. */ + if (kval) { + if (kval->na[1] < 0) { hastail = 0; goto fallback; } /* x%-k, -k%x */ + dasm_put(Dst, 3850, Dt2([idx].tt), Dt2([idx].value.na[1])); + if (kkb) { + dasm_put(Dst, 3868, Dt2([rkc].value), kval); + } else { + dasm_put(Dst, 3875, kval, Dt2([rkb].value)); + } + } else { + dasm_put(Dst, 3882, Dt2([rkb].tt), Dt2([rkc].tt), Dt2([rkb].value.na[1]), Dt2([rkc].value.na[1]), Dt2([rkc].value), Dt2([rkb].value)); + } + dasm_put(Dst, 1387); + goto fpstore; + case TM_POW: + if (hastail || !kval) break; /* Avoid this if not optimizing. */ + if (rev) { /* x^k for k > 0, k integer. */ + lua_Number n = kval->n; + int k; + lua_number2int(k, n); + /* All positive integers would work. But need to limit code explosion. */ + if (k > 0 && k <= 65536 && (lua_Number)k == n) { + dasm_put(Dst, 3916, Dt2([idx].tt), Dt2([idx])); + for (; (k & 1) == 0; k >>= 1) { /* Handle leading zeroes (2^k). */ + dasm_put(Dst, 3928); + } + if ((k >>= 1) != 0) { /* Handle trailing bits. */ + dasm_put(Dst, 3931); + for (; k != 1; k >>= 1) { + if (k & 1) { + dasm_put(Dst, 3936); + } + dasm_put(Dst, 3928); + } + dasm_put(Dst, 3939); + } + goto fpstore; + } + } else if (kval->n > (lua_Number)0) { /* k^x for k > 0. */ + int log2kval[3]; /* Enough storage for a tword (80 bits). */ + log2kval[2] = 0; /* Avoid leaking garbage. */ + /* Double precision log2(k) doesn't cut it (3^x != 3 for x = 1). */ + ((void (*)(int *, double))J->jsub[JSUB_LOG2_TWORD])(log2kval, kval->n); + dasm_put(Dst, 3942, log2kval[0], log2kval[1], log2kval[2], Dt2([idx].tt), Dt2([idx].value)); + + goto fpstore; + } + break; + } + + /* Check number type and load 1st operand. */ + if (kval) { + dasm_put(Dst, 4013, Dt2([idx].tt)); + if ((kval)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((kval)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, kval); + } + } else { + if (rkb == rkc) { + dasm_put(Dst, 4022, Dt2([rkb].tt)); + } else { + dasm_put(Dst, 4027, Dt2([rkb].tt), Dt2([rkc].tt)); + } + dasm_put(Dst, 3920, Dt2([rkb].value)); + } + + /* Encode arithmetic operation with 2nd operand. */ + switch ((ev<<1)+rev) { + case TM_ADD<<1: case (TM_ADD<<1)+1: + if (rkb == rkc) { + dasm_put(Dst, 4041); + } else { + dasm_put(Dst, 4044, Dt2([idx].value)); + } + break; + case TM_SUB<<1: + dasm_put(Dst, 4048, Dt2([idx].value)); + break; + case (TM_SUB<<1)+1: + dasm_put(Dst, 4052, Dt2([idx].value)); + break; + case TM_MUL<<1: case (TM_MUL<<1)+1: + if (rkb == rkc) { + dasm_put(Dst, 3928); + } else { + dasm_put(Dst, 4056, Dt2([idx].value)); + } + break; + case TM_DIV<<1: + dasm_put(Dst, 4060, Dt2([idx].value)); + break; + case (TM_DIV<<1)+1: + dasm_put(Dst, 4064, Dt2([idx].value)); + break; + case TM_POW<<1: + dasm_put(Dst, 4068, Dt2([idx].value), (ptrdiff_t)(pow)); + break; + case (TM_POW<<1)+1: + dasm_put(Dst, 4088, Dt2([idx].value), (ptrdiff_t)(pow)); + break; + case TM_UNM<<1: case (TM_UNM<<1)+1: + dasm_put(Dst, 4108); + break; + default: /* TM_LT or TM_LE. */ + dasm_put(Dst, 1325, Dt2([idx].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, dest?(J->nextpc+1):target); + jit_assert(dest == 0 || dest == 1); /* Really cond. */ + switch (((rev^dest)<<1)+(dest^(ev == TM_LT))) { + case 0: + dasm_put(Dst, 4115, target); + break; + case 1: + dasm_put(Dst, 4119, target); + break; + case 2: + dasm_put(Dst, 4123, target); + break; + case 3: + dasm_put(Dst, 4127, target); + break; + } + goto skipstore; + } +fpstore: + /* Store result and set result type (if necessary). */ + dasm_put(Dst, 933, Dt2([dest].value)); + if (dest != rkb && dest != rkc) { + dasm_put(Dst, 1309, Dt2([dest].tt)); + } + +skipstore: + if (!hastail) { + jit_deopt_target(J, 0); + return; + } + + dasm_put(Dst, 1626); + dasm_put(Dst, 1541); + +fallback: + /* Generic fallback for arithmetic ops. */ + if (kkb) { + dasm_put(Dst, 3342, (ptrdiff_t)(kkb)); + } else { + dasm_put(Dst, 3204, Dt2([rkb])); + } + if (kkc) { + dasm_put(Dst, 3184, (ptrdiff_t)(kkc)); + } else { + dasm_put(Dst, 3345, Dt2([rkc])); + } + if (target) { /* TM_LT or TM_LE. */ + dasm_put(Dst, 4131, Dt1(->savedpc), (ptrdiff_t)((J->nextins+1)), (ptrdiff_t)(ev==TM_LT?luaV_lessthan:luaV_lessequal), Dt1(->base)); + if (dest) { /* cond */ + dasm_put(Dst, 1479, target); + } else { + dasm_put(Dst, 4154, target); + } + } else { + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 4158, Dt1(->savedpc), (ptrdiff_t)(J->nextins), ev, (ptrdiff_t)(luaV_arith), Dt1(->base)); + } + + if (hastail) { + dasm_put(Dst, 1644); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_fallback_len(lua_State *L, StkId ra, const TValue *rb) +{ + switch (ttype(rb)) { + case LUA_TTABLE: + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + case LUA_TSTRING: + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + default: { + const TValue *tm = luaT_gettmbyobj(L, rb, TM_LEN); + if (ttisfunction(tm)) { + ptrdiff_t rasave = savestack(L, ra); + setobj2s(L, L->top, tm); + setobj2s(L, L->top+1, rb); + luaD_checkstack(L, 2); + L->top += 2; + luaD_call(L, L->top - 2, 1); + ra = restorestack(L, rasave); + L->top--; + setobjs2s(L, ra, L->top); + } else { + luaG_typeerror(L, rb, "get length of"); + } + break; + } + } +} + +static void jit_op_len(jit_State *J, int dest, int rb) +{ + switch (ttype(hint_get(J, TYPE))) { + case LUA_TTABLE: + jit_deopt_target(J, 0); + dasm_put(Dst, 4179, Dt2([rb].tt), Dt2([rb].value), (ptrdiff_t)(luaH_getn), Dt2([dest].value), Dt2([dest].tt)); + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + dasm_put(Dst, 4212, Dt2([rb].tt), Dt2([rb].value), DtB(->tsv.len), Dt2([dest].value), Dt2([dest].tt)); + break; + default: + dasm_put(Dst, 3204, Dt2([rb])); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 4237, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(jit_fallback_len), Dt1(->base)); + break; + } +} + +static void jit_op_not(jit_State *J, int dest, int rb) +{ + /* l_isfalse() without a branch -- truly devious. */ + /* ((value & tt) | (tt>>1)) is only zero for nil/false. */ + /* Assumes: LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + dasm_put(Dst, 4258, Dt2([rb].tt), Dt2([rb].value), Dt2([dest].tt), Dt2([dest].value)); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_concat(jit_State *J, int dest, int first, int last) +{ + int num = last-first+1; + if (num == 2 && ttisstring(hint_get(J, TYPE))) { /* Optimize common case. */ + if (first) { + dasm_put(Dst, 787, first*sizeof(TValue)); + } + dasm_put(Dst, 4288, Dt2([dest].value), Dt2([dest].tt)); + } else { /* Generic fallback. */ + dasm_put(Dst, 4302, Dt1(->savedpc), (ptrdiff_t)(J->nextins), num, last, (ptrdiff_t)(luaV_concat), Dt1(->base)); + if (dest != first) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([first].tt), Dt2([first].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 839, Dt2([first].value), Dt2([first].value.na[1]), Dt2([first].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } + } + } + jit_checkGC(J); /* Always do this, even for the optimized variant. */ + +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_eq(jit_State *J, int cond, int rkb, int rkc) +{ + int target = jit_jmp_target(J); + int condtarget = cond ? (J->nextpc+1) : target; + jit_assert(cond == 0 || cond == 1); + + /* Comparison of two constants. Evaluate at compile time. */ + if (ISK(rkb&rkc)) { + if ((rkb == rkc) == cond) { /* Constants are already unique. */ + dasm_put(Dst, 665, target); + } + return; + } + + if (ISK(rkb|rkc)) { /* Compare a variable and a constant. */ + const TValue *kk; + if (ISK(rkb)) { int t = rkc; rkc = rkb; rkb = t; } /* rkc holds const. */ + kk = &J->pt->k[INDEXK(rkc)]; + switch (ttype(kk)) { + case LUA_TNIL: + dasm_put(Dst, 4493, Dt2([rkb].tt)); + break; + case LUA_TBOOLEAN: + if (bvalue(kk)) { + dasm_put(Dst, 4498, Dt2([rkb].tt), Dt2([rkb].value)); + } else { + dasm_put(Dst, 4509, Dt2([rkb].tt), Dt2([rkb].value)); + } + break; + case LUA_TNUMBER: + dasm_put(Dst, 4517, Dt2([rkb].tt), condtarget, Dt2([rkb].value), &kk->value); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, condtarget); + break; + case LUA_TSTRING: + dasm_put(Dst, 4531, Dt2([rkb].tt), condtarget, Dt2([rkb].value), (ptrdiff_t)(rawtsvalue(kk))); + break; + default: jit_assert(0); break; + } + } else { /* Compare two variables. */ + dasm_put(Dst, 4543, Dt2([rkb].tt), Dt2([rkc].tt), condtarget); + switch (ttype(hint_get(J, TYPE))) { + case LUA_TNUMBER: + jit_deopt_target(J, 0); + dasm_put(Dst, 4553, Dt2([rkb].value), Dt2([rkc].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, condtarget); + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + dasm_put(Dst, 4568, Dt2([rkb].value), Dt2([rkc].value)); + break; + default: + dasm_put(Dst, 4583, Dt2([rkc]), Dt2([rkb]), Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_equalval), Dt1(->base)); + break; + } + } + if (cond) { + dasm_put(Dst, 4154, target); + } else { + dasm_put(Dst, 1479, target); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_test(jit_State *J, int cond, int dest, int src) +{ + int target = jit_jmp_target(J); + + /* l_isfalse() without a branch. But this time preserve tt/value. */ + /* (((value & tt) * 2 + tt) >> 1) is only zero for nil/false. */ + /* Assumes: 3*tt < 2^32, LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + dasm_put(Dst, 4611, Dt2([src].tt), Dt2([src].value)); + + /* Check if we can omit the stack copy. */ + if (dest == src) { /* Yes, invert branch condition. */ + if (cond) { + dasm_put(Dst, 1479, target); + } else { + dasm_put(Dst, 4154, target); + } + } else { /* No, jump around copy code. */ + if (cond) { + dasm_put(Dst, 4627); + } else { + dasm_put(Dst, 4632); + } + dasm_put(Dst, 4637, Dt2([src].value.na[1]), Dt2([dest].tt), Dt2([dest].value), Dt2([dest].value.na[1]), target); + } +} + +static void jit_op_jmp(jit_State *J, int target) +{ + dasm_put(Dst, 665, target); +} + +/* ------------------------------------------------------------------------ */ + +enum { FOR_IDX, FOR_LIM, FOR_STP, FOR_EXT }; + +static const char *const jit_for_coerce_error[] = { + LUA_QL("for") " initial value must be a number", + LUA_QL("for") " limit must be a number", + LUA_QL("for") " step must be a number", +}; + +/* Try to coerce for slots with strings to numbers in place or complain. */ +static void jit_for_coerce(lua_State *L, TValue *o) +{ + int i; + for (i = FOR_IDX; i <= FOR_STP; i++, o++) { + lua_Number num; + if (ttisnumber(o)) continue; + if (ttisstring(o) && luaO_str2d(svalue(o), &num)) { + setnvalue(o, num); + } else { + luaG_runerror(L, jit_for_coerce_error[i]); + } + } +} + +static void jit_op_forprep(jit_State *J, int ra, int target) +{ + const TValue *step = hint_get(J, FOR_STEP_K); + if (ttisnumber(step)) { + dasm_put(Dst, 4654, Dt2([ra+FOR_IDX].tt), Dt2([ra+FOR_LIM].tt), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 1309, Dt2([ra+FOR_EXT].tt)); + if (nvalue(step) < (lua_Number)0) { + dasm_put(Dst, 4115, target+1); + } else { + dasm_put(Dst, 4123, target+1); + } + } else { + dasm_put(Dst, 4683, Dt2([ra+FOR_IDX].tt), Dt2([ra+FOR_LIM].tt), Dt2([ra+FOR_STP].tt), Dt2([ra+FOR_STP].value.na[1]), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4732, Dt2([ra+FOR_EXT].tt), target+1); + } + if (ttisnumber(hint_get(J, TYPE))) { + jit_deopt_target(J, 0); + } else { + dasm_put(Dst, 679); + dasm_put(Dst, 4743, Dt2([ra]), Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(jit_for_coerce)); + } +} + +static void jit_op_forloop(jit_State *J, int ra, int target) +{ + const TValue *step = hint_getpc(J, FOR_STEP_K, target-1); + if (ttisnumber(step)) { + dasm_put(Dst, 4766, Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_STP].value), Dt2([ra+FOR_EXT].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].tt)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + if (nvalue(step) < (lua_Number)0) { + dasm_put(Dst, 4127, target); + } else { + dasm_put(Dst, 4119, target); + } + } else { + dasm_put(Dst, 4789, Dt2([ra+FOR_STP].value.na[1]), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_STP].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value), Dt2([ra+FOR_EXT].tt)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4127, target); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_tforloop(jit_State *J, int ra, int nresults) +{ + int target = jit_jmp_target(J); + int i; + if (jit_inline_tforloop(J, ra, nresults, target)) return; /* Inlined? */ + for (i = 2; i >= 0; i--) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([ra+i].tt), Dt2([ra+i].value), Dt2([ra+i+3].tt), Dt2([ra+i+3].value)); + } else { + dasm_put(Dst, 839, Dt2([ra+i].value), Dt2([ra+i].value.na[1]), Dt2([ra+i].tt), Dt2([ra+i+3].value), Dt2([ra+i+3].value.na[1]), Dt2([ra+i+3].tt)); + } + } + jit_op_call(J, ra+3, 2, nresults); + dasm_put(Dst, 4827, Dt2([ra+3].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([ra+3].tt), Dt2([ra+3].value), Dt2([ra+2].tt), Dt2([ra+2].value)); + } else { + dasm_put(Dst, 839, Dt2([ra+3].value), Dt2([ra+3].value.na[1]), Dt2([ra+3].tt), Dt2([ra+2].value), Dt2([ra+2].value.na[1]), Dt2([ra+2].tt)); + } + dasm_put(Dst, 4649, target); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_close(jit_State *J, int ra) +{ + if (ra) { + dasm_put(Dst, 4836, Dt2([ra])); + } else { + dasm_put(Dst, 4844); + } + dasm_put(Dst, 1734, (ptrdiff_t)(luaF_close)); +} + +static void jit_op_closure(jit_State *J, int dest, int ptidx) +{ + Proto *npt = J->pt->p[ptidx]; + int nup = npt->nups; + if (!J->pt->is_vararg) { + dasm_put(Dst, 4849, Dt2([-1].value)); + } else { + dasm_put(Dst, 4853, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 4863, Dt5(->env), nup, (ptrdiff_t)(luaF_newLclosure), Dt5(->p), (ptrdiff_t)(npt), Dt2([dest].value), Dt2([dest].tt)); + /* Process pseudo-instructions for upvalues. */ + if (nup > 0) { + const Instruction *uvcode = J->nextins; + int i, uvuv; + /* Check which of the two types we need. */ + for (i = 0, uvuv = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) uvuv++; + /* Copy upvalues from parent first. */ + if (uvuv) { + /* LCL:eax->upvals (new closure) <-- LCL:edi->upvals (own closure). */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) { + dasm_put(Dst, 4895, Dt5(->upvals[GETARG_B(uvcode[i])]), Dt5(->upvals[i])); + } + } + /* Next find or create upvalues for our own stack slots. */ + if (nup > uvuv) { + dasm_put(Dst, 909); + /* LCL:edi->upvals (new closure) <-- upvalue for stack slot. */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_MOVE) { + int rb = GETARG_B(uvcode[i]); + if (rb) { + dasm_put(Dst, 4836, Dt2([rb])); + } else { + dasm_put(Dst, 4844); + } + dasm_put(Dst, 4902, (ptrdiff_t)(luaF_findupval), Dt5(->upvals[i])); + } + } + J->combine += nup; /* Skip pseudo-instructions. */ + } + jit_checkGC(J); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_vararg(jit_State *J, int dest, int num) +{ + if (num < 0) { /* Copy all varargs. */ + dasm_put(Dst, 4911, Dt1(->ci), Dt4(->func), (1+J->pt->numparams)*sizeof(TValue), J->pt->maxstacksize*sizeof(TValue), Dt1(->stack_last), Dt2([dest])); + dasm_put(Dst, 4967, Dt1(->top), (ptrdiff_t)(luaD_growstack), Dt1(->base)); + } else if (num > 0) { /* Copy limited number of varargs. */ + dasm_put(Dst, 4993, Dt1(->ci), Dt4(->func), (1+J->pt->numparams)*sizeof(TValue), Dt2([dest]), Dt2([dest+num]), Dt3([0].tt), sizeof(TValue)); + } +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash new file mode 100644 index 00000000000..dd3649030bb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash @@ -0,0 +1,625 @@ +/* +** Function inlining support for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* ------------------------------------------------------------------------ */ + +/* Private structure holding function inlining info. */ +typedef struct jit_InlineInfo { + int func; /* Function slot. 1st arg slot = func+1. */ + int res; /* 1st result slot. Overlaps func/ci->func. */ + int nargs; /* Number of args. */ + int nresults; /* Number of results. */ + int xnargs; /* Expected number of args. */ + int xnresults; /* Returned number of results. */ + int hidx; /* Library/function index numbers. */ +} jit_InlineInfo; + +/* ------------------------------------------------------------------------ */ + +enum { TFOR_FUNC, TFOR_TAB, TFOR_CTL, TFOR_KEY, TFOR_VAL }; + +static void jit_inline_base(jit_State *J, jit_InlineInfo *ii) +{ + int func = ii->func; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + |// Easy for regular calls: res == func. Not inlined for tailcalls. + |// Guaranteed to be inlined only if used in conjunction with TFORLOOP. + |// So we omit setting the iterator function and fake the control var. + | istable func+TFOR_TAB; jne L_DEOPTIMIZE // Caveat: deopt TFORLOOP, too! + | xor eax, eax // Assumes: LUA_TNIL == 0. + | mov BASE[func+TFOR_CTL].tt, eax // Fake nil type. + | mov BASE[func+TFOR_CTL].value, eax // Hidden control var = 0. + |// mov BASE[func+TFOR_FUNC].tt, eax // Kill function (not needed). + |.mfmap + | .word JIT_MFM_DEOPT_PAIRS, J->nextpc-1 // Deoptimize TFORLOOP, too. + |.code + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_DISABLE + +/* Helper function for inlined coroutine.resume(). */ +static StkId jit_coroutine_resume(lua_State *L, StkId base, int nresults) +{ + lua_State *co = thvalue(base-1); + /* Check for proper usage. Merge of lua_resume() and auxresume() checks. */ + if (co->status != LUA_YIELD) { + if (co->status > LUA_YIELD) { +errdead: + setsvalue(L, base-1, luaS_newliteral(L, "cannot resume dead coroutine")); + goto err; + } else if (co->ci != co->base_ci) { + setsvalue(L, base-1, + luaS_newliteral(L, "cannot resume non-suspended coroutine")); + goto err; + } else if (co->base == co->top) { + goto errdead; + } + } + { + ptrdiff_t ndelta = (char *)L->top - (char *)base; + int nargs = ndelta/sizeof(TValue); /* Compute nargs. */ + int status; + if ((char *)co->stack_last-(char *)co->top <= ndelta) { + co->ci->top = (StkId)(((char *)co->top) + ndelta); /* Ok before grow. */ + luaD_growstack(co, nargs); /* Grow thread stack. */ + } + /* Copy args. */ + co->top = (StkId)(((char *)co->top) + ndelta); + { StkId t = co->top, f = L->top; while (f > base) setobj2s(co, --t, --f); } + L->top = base; + status = luaCOCO_resume(co, nargs); /* Resume Coco thread. */ + if (status == 0 || status == LUA_YIELD) { /* Ok. */ + StkId f; + if (nresults == 0) return NULL; + if (nresults == -1) { + luaD_checkstack(L, co->top - co->base); /* Grow own stack. */ + } + base = L->top - 2; + setbvalue(base++, 1); /* true */ + /* Copy results. Fill unused result slots with nil. */ + f = co->base; + while (--nresults != 0 && f < co->top) setobj2s(L, base++, f++); + while (nresults-- > 0) setnilvalue(base++); + co->top = co->base; + return base; + } else { /* Error. */ + base = L->top; + setobj2s(L, base-1, co->top-1); /* Copy error object. */ +err: + setbvalue(base-2, 0); /* false */ + nresults -= 2; + while (--nresults >= 0) setnilvalue(base+nresults); /* Fill results. */ + return base; + } + } +} + +static void jit_inline_coroutine(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int i; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_COROUTINE_YIELD: + | cmp aword [L+((int)&LHASCOCO((lua_State *)0))], 0 // Got a C stack? + | je L_DEOPTIMIZE + | mov L->savedpc, &J->nextins // Debugger-friendly. + | add BASE, arg*#TVALUE + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[ii->nargs] + } + | mov L->base, BASE + | mov L->top, TOP + | call &luaCOCO_yield, L + | mov BASE, L->base + | mov TOP, L->top + jit_assert(ii->nresults >= 0 && ii->nresults <= EXTRA_STACK); + for (i = 0; i < ii->nresults; i++) { + | setnilvalue TOP[i] // Clear undefined result. + | copyslot BASE[res+i], BASE[arg+i] // Move result down. + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + case JIT_IH_COROUTINE_RESUME: + jit_assert(ii->nargs != 0 && ii->res == ii->func); + | add BASE, (arg+1)*#TVALUE + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[ii->nargs-1] + } else { + | cmp TOP, BASE; jb L_DEOPTIMIZE // No thread arg? Deoptimize. + } + | istt -1, LUA_TTHREAD; jne L_DEOPTIMIZE // Wrong type? Deoptimize. + | mov L:eax, BASE[-1].value + | cmp aword [L:eax+((int)&LHASCOCO((lua_State *)0))], 0 + | je L_DEOPTIMIZE // No C stack? Deoptimize. + | mov L->savedpc, &J->nextins // Debugger-friendly. + | mov L->top, TOP + | call &jit_coroutine_resume, L, BASE, ii->nresults + | mov BASE, L->base + if (ii->nresults == -1) { + | mov TOP, eax + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + default: + jit_assert(0); + break; + } +} + +#endif /* COCO_DISABLE */ + +/* ------------------------------------------------------------------------ */ + +static void jit_inline_string(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_STRING_LEN: + | isstring arg; jne L_DEOPTIMIZE + | mov TSTRING:ecx, BASE[arg].value + | fild aword TSTRING:ecx->tsv.len // size_t + | settt BASE[res], LUA_TNUMBER + | fstp qword BASE[res].value + break; + case JIT_IH_STRING_SUB: + /* TODO: inline numeric constants with help from the optimizer. */ + /* But this would save only another 15-20% in a trivial loop. */ + jit_assert(ii->nargs >= 2); /* Open op caveat is ok, too. */ + if (ii->nargs > 2) { + | lea TOP, BASE[arg] + | call ->STRING_SUB3 + | setsvalue BASE[res], eax + } else { + | lea TOP, BASE[arg] + | call ->STRING_SUB2 + | setsvalue BASE[res], eax + } + break; + case JIT_IH_STRING_CHAR: + | isnumber arg; jne L_DEOPTIMIZE + | lea eax, L->env // Abuse L->env to hold temp string. + | fld qword BASE[arg].value + | fistp dword [eax] // LSB is at start (little-endian). + | cmp dword [eax], 255; ja L_DEOPTIMIZE + | call &luaS_newlstr, L, eax, 1 + | setsvalue BASE[res], eax + break; + default: + jit_assert(0); + break; + } + + |//----------------------------------------------------------------------- + |.jsub STRING_SUB3 // string.sub(str, start, end) + | mov eax, TOP[0].tt; shl eax, 4; or eax, TOP[1].tt; shl eax, 4 + | or eax, TOP[2].tt; sub eax, LUA_TSTR_NUM_NUM + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | // eax must be zero here! + | fld qword TOP[1].value + | fld qword TOP[2].value + | fistp aword TMP3 // size_t + | fistp aword TMP2 // size_t + | mov TSTRING:ecx, TOP[0].value + | mov TOP, aword TSTRING:ecx->tsv.len // size_t + | mov edx, TMP3 + | cmp TOP, edx + | jb >4 + |1: + | or eax, TMP2 // eax is known to be zero. + | jle >6 // start <= 0? + |2: + | sub edx, eax // newlen = end-start + | jl >7 // start > end? + | lea ecx, [TSTRING:ecx+eax+#TSTRING-1] // svalue()-1+start + | inc edx + |3: + | mov ARG2, L // First arg for tailcall is ARG2. + | mov ARG3, ecx // Pointer to start. + | mov ARG4, edx // Length. + | mov GL:edi, L->l_G + | mov eax, GL:edi->totalbytes // size_t + | cmp eax, GL:edi->GCthreshold // size_t + | jae >8 // G->totalbytes >= G->GCthreshold? + | jmp &luaS_newlstr // Tailcall to C function. + | + |4: // Negative end or overflow. + | jl >5 + | lea edx, [edx+TOP+1] // end = end+(len+1) + | jmp <1 + |5: // Overflow + | mov edx, TOP // end = len + | jmp <1 + | + |6: // Negative start or underflow. + | je >5 + | add eax, TOP // start = start+(len+1) + | inc eax + | jg <2 // start > 0? + |5: // Underflow. + | mov eax, 1 // start = 1 + | jmp <2 + | + |7: // Range underflow. + | xor edx, edx // Zero length. + | jmp <3 // Any pointer in ecx is ok. + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub STRING_SUB2 // string.sub(str, start) + | mov eax, TOP[0].tt; shl eax, 4; or eax, TOP[1].tt; sub eax, LUA_TSTR_NUM + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | // eax must be zero here! + | fld qword TOP[1].value + | fistp aword TMP2 // size_t + | mov TSTRING:ecx, TOP[0].value + | mov TOP, aword TSTRING:ecx->tsv.len // size_t + | mov edx, TOP + | jmp <1 // See STRING_SUB3. + | + |8: // GC threshold reached. + | sub esp, FRAME_OFFSET + | call &luaC_step, L + | add esp, FRAME_OFFSET + | mov BASE, L->base + | jmp &luaS_newlstr // Tailcall to C function. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +/* Helper functions for inlined calls to table.*. */ +static void jit_table_insert(lua_State *L, TValue *arg) +{ + setobj2t(L, luaH_setnum(L, hvalue(arg), luaH_getn(hvalue(arg))+1), arg+1); + luaC_barriert(L, hvalue(arg), arg+1); +} + +static TValue *jit_table_remove(lua_State *L, TValue *arg, TValue *res) +{ + int n = luaH_getn(hvalue(arg)); + if (n == 0) { + setnilvalue(res); /* For the nresults == 1 case. Harmless otherwise. */ + return res; /* For the nresults == -1 case. */ + } else { + TValue *val = luaH_setnum(L, hvalue(arg), n); + setobj2s(L, res, val); + setnilvalue(val); + return res+1; /* For the nresults == -1 case. */ + } +} + +static void jit_inline_table(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + | istable arg; jne L_DEOPTIMIZE + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_TABLE_INSERT: + | lea TVALUE:eax, BASE[arg] + | call &jit_table_insert, L, TVALUE:eax + break; + case JIT_IH_TABLE_REMOVE: + | lea TVALUE:eax, BASE[arg] + | lea TVALUE:ecx, BASE[res] + | call &jit_table_remove, L, TVALUE:eax, TVALUE:ecx + if (ii->nresults == -1) { + ii->xnresults = -1; + | mov TOP, TVALUE:eax + } + break; + case JIT_IH_TABLE_GETN: + | mov TABLE:eax, BASE[arg].value + | call &luaH_getn, TABLE:eax + | mov TMP1, eax + | fild dword TMP1 + | fstp qword BASE[res].value + | settt BASE[res], LUA_TNUMBER + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +/* This typedef must match the libm function signature. */ +/* Serves as a check against wrong lua_Number or wrong calling conventions. */ +typedef lua_Number (*mathfunc_11)(lua_Number); + +/* Partially inlined math functions. */ +/* CHECK: must match with jit_hints.h and jit.opt_lib. */ +static const mathfunc_11 jit_mathfuncs_11[JIT_IH_MATH_SIN] = { + log, log10, exp, sinh, cosh, tanh, asin, acos, atan +}; + +/* FPU control words for ceil and floor (exceptions masked, full precision). */ +static const unsigned short jit_fpucw[2] = { 0x0b7f, 0x077f }; + +static void jit_inline_math(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int idx = JIT_IH_IDX(ii->hidx); + + if (idx < JIT_IH_MATH__21) { + | isnumber arg; jne L_DEOPTIMIZE + | fld qword BASE[arg].value + } else { + jit_assert(idx < JIT_IH_MATH__LAST); + | isnumber2 arg, arg+1; jne L_DEOPTIMIZE + } + switch (idx) { + /* We ignore sin/cos/tan range overflows (2^63 rad) just like -ffast-math. */ + case JIT_IH_MATH_SIN: + | fsin + break; + case JIT_IH_MATH_COS: + | fcos + break; + case JIT_IH_MATH_TAN: + | fptan; fpop + break; + case JIT_IH_MATH_CEIL: + case JIT_IH_MATH_FLOOR: + | fnstcw word TMP1 + | fldcw word [(ptrdiff_t)&jit_fpucw[idx-JIT_IH_MATH_CEIL]] + | frndint + | fldcw word TMP1 + break; + case JIT_IH_MATH_ABS: + | fabs + break; + case JIT_IH_MATH_SQRT: + | fsqrt + break; + case JIT_IH_MATH_FMOD: + | fld qword BASE[arg+1].value + | fld qword BASE[arg].value + |1: ; fprem; fnstsw ax; sahf; jp <1 + | fstp st1 + break; + case JIT_IH_MATH_ATAN2: + |// Inlining is easier than calling atan2(). + | fld qword BASE[arg].value + | fld qword BASE[arg+1].value + | fpatan + break; + default: + |// Partially inlined. Just call the libm function (__cdecl!). + | fstp FPARG1 + | call &jit_mathfuncs_11[idx] + break; + } + | settt BASE[res], LUA_TNUMBER + | fstp qword BASE[res].value +} + +/* ------------------------------------------------------------------------ */ + +/* Try to inline a CALL or TAILCALL instruction. */ +static int jit_inline_call(jit_State *J, int func, int nargs, int nresults) +{ + const TValue *callable = hint_get(J, TYPE); /* TYPE hint = callable. */ + int cltype = ttype(callable); + const TValue *oidx; + jit_InlineInfo ii; + int idx; + + if (cltype != LUA_TFUNCTION) goto fail; + if (J->flags & JIT_F_DEBUG) goto fail; /* DWIM. */ + + oidx = hint_get(J, INLINE); /* INLINE hint = library/function index. */ + if (!ttisnumber(oidx)) goto fail; + + ii.hidx = (int)nvalue(oidx); + idx = JIT_IH_IDX(ii.hidx); + + if (nresults == -2) { /* Tailcall. */ + /* Tailcalls from vararg functions don't work with BASE[-1]. */ + if (J->pt->is_vararg) goto fail; /* So forget about this rare case. */ + ii.res = -1; /* Careful: 2nd result overlaps 1st stack slot. */ + ii.nresults = -1; + } else { + ii.res = func; + ii.nresults = nresults; + } + ii.func = func; + ii.nargs = nargs; + ii.xnargs = ii.xnresults = 1; /* Default: 1 arg, 1 result. */ + + /* Check for the currently supported cases. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: + switch (idx) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + if (nresults == -2) goto fail; /* Not useful for tailcalls. */ + ii.xnresults = 3; + goto check; + } + break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: + switch (idx) { + case JIT_IH_COROUTINE_YIELD: + /* Only support common cases: no tailcalls, low number of results. */ + if (nresults < 0 || nresults > EXTRA_STACK) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + case JIT_IH_COROUTINE_RESUME: + /* Only support common cases: no tailcalls, not with 0 args (error). */ + if (nresults == -2 || nargs == 0) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + } + break; +#endif + case JIT_IHLIB_STRING: + switch (idx) { + case JIT_IH_STRING_LEN: + goto check; + case JIT_IH_STRING_SUB: + if (nargs < 2) goto fail; /* No support for open calls, too. */ + goto ok; /* 2 or more args are ok. */ + case JIT_IH_STRING_CHAR: + goto check; /* Only single arg supported. */ + } + break; + case JIT_IHLIB_TABLE: + switch (idx) { + case JIT_IH_TABLE_INSERT: + ii.xnargs = 2; + goto check; /* Only push (append) supported. */ + case JIT_IH_TABLE_REMOVE: + goto check; /* Only pop supported. */ + case JIT_IH_TABLE_GETN: + goto check; + } + break; + case JIT_IHLIB_MATH: + if (idx >= JIT_IH_MATH__LAST) goto fail; + if (idx >= JIT_IH_MATH__21) ii.xnargs = 2; + goto check; + } +fail: + return cltype; /* Call could not be inlined. Return type of callable. */ + +check: + if (nargs != ii.xnargs && nargs != -1) goto fail; + /* The optimizer already checks the number of results (avoid setnil). */ + +ok: /* Whew, all checks done. Go for it! */ + + /* Start with the common leadin for inlined calls. */ + jit_deopt_target(J, nargs); + |// Caveat: Must save TOP for open ops if jsub uses DEOPTIMIZE_CALLER. + | isfunction func + | jne L_DEOPTIMIZE // Not a function? Deoptimize. + | cmp aword BASE[func].value, &clvalue(callable) + | jne L_DEOPTIMIZE // Wrong closure? Deoptimize. + if (nargs == -1 && ii.xnargs >= 0) { + | lea eax, BASE[func+1+ii.xnargs] + | cmp TOP, eax + | jne L_DEOPTIMIZE // Wrong #args? Deoptimize. + } + + /* Now inline the function itself. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: jit_inline_base(J, &ii); break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: jit_inline_coroutine(J, &ii); break; +#endif + case JIT_IHLIB_STRING: jit_inline_string(J, &ii); break; + case JIT_IHLIB_TABLE: jit_inline_table(J, &ii); break; + case JIT_IHLIB_MATH: jit_inline_math(J, &ii); break; + default: jit_assert(0); break; + } + + /* And add the common leadout for inlined calls. */ + if (ii.nresults == -1) { + if (ii.xnresults >= 0) { + | lea TOP, BASE[ii.res+ii.xnresults] + } + } else if (ii.nargs == -1) { /* Restore L->top only if needed. */ + | lea TOP, BASE[J->pt->maxstacksize] + | mov L->top, TOP + } + + if (nresults == -2) { /* Results are in place. Add return for tailcalls. */ + | add esp, FRAME_OFFSET + | sub BASE, #BASE + | sub aword L->ci, #CI + | ret + } + + return -1; /* Success, call has been inlined. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Helper function for inlined iterator code. Paraphrased from luaH_next. */ +/* TODO: GCC has trouble optimizing this. */ +static int jit_table_next(lua_State *L, TValue *ra) +{ + Table *t = hvalue(&ra[TFOR_TAB]); + int i = ra[TFOR_CTL].value.b; /* Hidden control variable. */ + for (; i < t->sizearray; i++) { /* First the array part. */ + if (!ttisnil(&t->array[i])) { + setnvalue(&ra[TFOR_KEY], cast_num(i+1)); + setobj2s(L, &ra[TFOR_VAL], &t->array[i]); + ra[TFOR_CTL].value.b = i+1; + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* Then the hash part. */ + if (!ttisnil(gval(gnode(t, i)))) { + setobj2s(L, &ra[TFOR_KEY], key2tval(gnode(t, i))); + setobj2s(L, &ra[TFOR_VAL], gval(gnode(t, i))); + ra[TFOR_CTL].value.b = i+1+t->sizearray; + return 1; + } + } + return 0; /* End of iteration. */ +} + +/* Try to inline a TFORLOOP instruction. */ +static int jit_inline_tforloop(jit_State *J, int ra, int nresults, int target) +{ + const TValue *oidx = hint_get(J, INLINE); /* INLINE hint = lib/func idx. */ + int idx; + + if (!ttisnumber(oidx)) return 0; /* No hint: don't inline anything. */ + idx = (int)nvalue(oidx); + if (J->flags & JIT_F_DEBUG) return 0; /* DWIM. */ + + switch (idx) { + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_PAIRS): + |// The type checks can be omitted -- see the iterator constructor. + | lea TOP, BASE[ra] + | call &jit_table_next, L, TOP + | test eax, eax + | jnz =>target + return 1; /* Success, iterator has been inlined. */ + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_IPAIRS): + |// The type checks can be omitted -- see the iterator constructor. + | mov eax, BASE[ra+TFOR_CTL].value // Hidden control variable. + | inc eax + | mov TABLE:edx, BASE[ra+TFOR_TAB].value // Table object. + | mov BASE[ra+TFOR_CTL].value, eax + | call &luaH_getnum, TABLE:edx, eax + | // This is really copyslot BASE[ra+TFOR_VAL], TVALUE:eax[0] plus compare. + | mov ecx, TVALUE:eax->tt + | test ecx, ecx // Assumes: LUA_TNIL == 0. + | jz >9 // nil value stops iteration. + | fild dword BASE[ra+TFOR_CTL].value // Set numeric key. + | settt BASE[ra+TFOR_KEY], LUA_TNUMBER + | fstp qword BASE[ra+TFOR_KEY].value + | mov edx, TVALUE:eax->value + | mov eax, TVALUE:eax->value.na[1] // Overwrites eax. + | mov BASE[ra+TFOR_VAL].tt, ecx // Copy value from table slot. + | mov BASE[ra+TFOR_VAL].value, edx + | mov BASE[ra+TFOR_VAL].value.na[1], eax + | jmp =>target + |9: + return 1; /* Success, iterator has been inlined. */ + } + + return 0; /* No support for inlining any other iterators. */ +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c b/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c new file mode 100644 index 00000000000..c9feab3d416 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c @@ -0,0 +1,637 @@ +/* +** Lua library for the JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include +#include + +#define ljitlib_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "luajit.h" +#include "lualib.h" + +/* This file is not a pure C API user. Some internals are required. */ +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "lfunc.h" +#include "lgc.h" +#include "lopcodes.h" + +#include "ljit.h" +#include "ljit_hints.h" + +#define STRING_HINTS +#include "ljit_hints.h" + +/* ------------------------------------------------------------------------ */ + +/* Static pointer addresses used as registry keys. */ +/* The values do not matter, but must be different to prevent joining. */ +static const int regkey_frontend = 0x6c6a6c01; +static const int regkey_comthread = 0x6c6a6c02; + +/* Check that the first argument is a Lua function and return its closure. */ +static Closure *check_LCL(lua_State *L) +{ + StkId o = L->base; + switch (lua_type(L, 1)) { + case LUA_TBOOLEAN: + o = (L->ci-1)->func; + case LUA_TFUNCTION: + if (isLfunction(o)) + return clvalue(o); + break; + } + luaL_argerror(L, 1, "Lua function expected"); + return NULL; +} + +/* Create a new closure from a prototype. */ +/* Note: upvalues are assumed to be after first two slots. */ +static void push_LCL(lua_State *L, Proto *pt, Table *env) +{ + Closure *cl; + int i, nup = pt->nups; + /* Adjust the number of stack slots to the number of upvalues. */ + luaL_checkstack(L, nup, "too many upvalues"); + lua_settop(L, 2+nup); + /* Create a closure from the subroutine prototype. */ + cl = luaF_newLclosure(L, nup, env); + cl->l.p = pt; + /* Allocate new upvalues and close them. */ + for (i = 0; i < nup; i++) + cl->l.upvals[i] = luaF_findupval(L, L->base + (2+i)); + luaF_close(L, L->base + 2); + lua_settop(L, 2); /* Remove upvalues. */ + setclvalue(L, L->top++, cl); /* Return closure on top of stack. */ + luaC_checkGC(L); +} + +/* ------------------------------------------------------------------------ */ + +/* Set JIT mode for the engine or a closure and/or its subroutines. */ +static int setmode(lua_State *L, int mode) +{ + int idx = 0; + switch (lua_type(L, 1)) { + case LUA_TNONE: /* jit.on/off() */ + case LUA_TNIL: /* jit.on/off(nil) */ + luaJIT_setmode(L, 0, mode | LUAJIT_MODE_ENGINE); + break; + case LUA_TFUNCTION: /* jit.on/off(func, nil|true|false) */ + idx = 1; + case LUA_TBOOLEAN: /* jit.on/off(true, nil|true|false) (parent frame) */ + if (lua_isboolean(L, 2)) + mode |= lua_toboolean(L, 2)?LUAJIT_MODE_ALLFUNC:LUAJIT_MODE_ALLSUBFUNC; + else + mode |= LUAJIT_MODE_FUNC; + if (luaJIT_setmode(L, idx, mode) == 1) /* Ok? */ + break; + default: + luaL_argerror(L, 1, "Lua function expected"); + break; + } + return 0; +} + +/* Set JIT mode to on: (re-)enable compilation. */ +static int j_on(lua_State *L) +{ + return setmode(L, LUAJIT_MODE_ON); +} + +/* Set JIT mode to off: disable compilation. */ +static int j_off(lua_State *L) +{ + return setmode(L, LUAJIT_MODE_OFF); +} + +/* Set JIT debug level. Defaults to maximum level for use with -j. */ +static int j_debug(lua_State *L) +{ + luaJIT_setmode(L, luaL_optinteger(L, 1, 100), LUAJIT_MODE_DEBUG); + return 0; +} + +/* ------------------------------------------------------------------------ */ + +/* Report the compilation status. */ +static int compstatus(lua_State *L, int status) +{ + if (status == -1) + return luaL_argerror(L, 1, "Lua function expected"); + else if (status == JIT_S_OK) + return 0; + else { + lua_pushinteger(L, status); + return 1; + } +} + +/* Compile a function. Pass typical args to help the optimizer. */ +static int j_compile(lua_State *L) +{ + int nargs = lua_gettop(L) - 1; + return compstatus(L, nargs >= 0 ? luaJIT_compile(L, nargs) : -1); +} + +/* Recursively compile all subroutine prototypes. */ +static int rec_compile(lua_State *L, Proto *pt, Table *env, int stoponerror) +{ + int rstatus = JIT_S_OK; + int i; + for (i = 0; i < pt->sizep; i++) { + Proto *pti = pt->p[i]; + int status; + push_LCL(L, pti, env); /* Assumes stack is at 2 (no upvalues). */ + status = luaJIT_compile(L, 0); + lua_settop(L, 2); /* Clear stack */ + if (status != JIT_S_OK) { + rstatus = status; + if (stoponerror) break; + } + status = rec_compile(L, pti, env, stoponerror); + if (status != JIT_S_OK) { + rstatus = status; + if (stoponerror) break; + } + } + return rstatus; +} + +/* Compile all subroutines of a function. */ +/* Note: the function itself is _not_ compiled (use jit.compile()). */ +static int j_compilesub(lua_State *L) +{ + Closure *cl = check_LCL(L); + int stoponerror = lua_toboolean(L, 2); /* Stop on first error? */ + lua_settop(L, 2); + return compstatus(L, rec_compile(L, cl->l.p, cl->l.env, stoponerror)); +} + +/* jit.* functions. */ +static const luaL_Reg jitlib[] = { + { "on", j_on }, + { "off", j_off }, + { "debug", j_debug }, + { "compile", j_compile }, + { "compilesub", j_compilesub }, + /* j_attach is added below. */ + { NULL, NULL } +}; + +/* ------------------------------------------------------------------------ */ + +/* Get the compiler pipeline table from an upvalue (j_attach, j_frontend). */ +#define COMPIPE lua_upvalueindex(1) + +/* Attach/detach handler to/from compiler pipeline. */ +static int j_attach(lua_State *L) +{ + int pipesz; + luaL_checktype(L, 1, LUA_TFUNCTION); + pipesz = lua_objlen(L, COMPIPE); + if (lua_isnoneornil(L, 2)) { /* Detach if no priority given. */ + int i; + for (i = 1; i <= pipesz; i += 2) { + lua_rawgeti(L, COMPIPE, i); + if (lua_rawequal(L, 1, -1)) { /* Found: delete from pipeline. */ + for (; i+2 <= pipesz; i++) { /* Shift down. */ + lua_rawgeti(L, COMPIPE, i+2); + lua_rawseti(L, COMPIPE, i); + } + /* Clear last two elements. */ + lua_pushnil(L); lua_rawseti(L, COMPIPE, i); + lua_pushnil(L); lua_rawseti(L, COMPIPE, i+1); + return 0; + } + lua_pop(L, 1); + } + return 0; /* Not found: ignore detach request. */ + } else { /* Attach if priority given. */ + int prio = luaL_checkint(L, 2); + int pos, i; + for (pos = 2; pos <= pipesz; pos += 2) { + lua_rawgeti(L, COMPIPE, pos); + if (prio > (int)lua_tointeger(L, -1)) break; /* Insertion point found. */ + lua_pop(L, 1); + } + for (i = pipesz+2; i > pos; i--) { /* Shift up. */ + lua_rawgeti(L, COMPIPE, i-2); + lua_rawseti(L, COMPIPE, i); + } + /* Set handler and priority. */ + lua_pushvalue(L, 1); lua_rawseti(L, COMPIPE, i-1); + lua_pushvalue(L, 2); lua_rawseti(L, COMPIPE, i); + return 0; + } +} + +/* Compiler frontend. Runs in the compiler thread. */ +/* First and only arg is the compiler state table. */ +static int j_frontend(lua_State *L) +{ + int status = JIT_S_OK; + int pos; + /* Loop through all handlers in the compiler pipeline. */ + for (pos = 1; ; pos += 2) { + if (status != JIT_S_OK) { /* Pending failure? */ + int prio; + lua_rawgeti(L, COMPIPE, pos+1); /* Must check for odd/even priority. */ + if (lua_isnil(L, -1)) break; /* End of pipeline. */ + prio = (int)lua_tointeger(L, -1); + lua_pop(L, 1); + if ((prio & 1) == 0) continue; /* Skip handlers with even priority. */ + } + /* Call handler with compiler state table and optional failure status. */ + lua_rawgeti(L, COMPIPE, pos); + if (lua_isnil(L, -1)) break; /* End of pipeline. */ + lua_pushvalue(L, 1); + if (status != JIT_S_OK) + lua_pushinteger(L, status); + lua_call(L, status ? 2 : 1, 1); + if (!lua_isnil(L, -1)) /* Remember failure status. */ + status = (int)lua_tointeger(L, -1); + lua_pop(L, 1); + } + lua_pushinteger(L, status); + return 1; +} + +/* Compiler frontend wrapper. */ +static int frontwrap(lua_State *L, Table *st) +{ + jit_State *J = G(L)->jit_state; + lua_State *JL; + int status; + + /* Allocate compiler thread on demand. */ + if (J->L == NULL) { + if (!lua_checkstack(L, 3)) return JIT_S_COMPILER_ERROR; + sethvalue(L, L->top++, st); /* Prevent GC of state table. */ + lua_pushlightuserdata(L, (void *)®key_comthread); + /* Cannot use C stack, since it's deallocated early in Coco. */ + /* But we don't need one -- the compiler thread never yields, anyway. */ + J->L = lua_newthread(L); + lua_rawset(L, LUA_REGISTRYINDEX); + L->top--; /* Remove state table from this stack. */ + } + JL = J->L; + + /* Initialize compiler thread stack with frontend and state table. */ + lua_settop(JL, 0); + lua_pushlightuserdata(JL, (void *)®key_frontend); + lua_rawget(JL, LUA_REGISTRYINDEX); + sethvalue(JL, JL->top, st); + JL->top++; + + /* Start the frontend by resuming the compiler thread. */ + if (lua_resume(JL, 1) != 0) { /* Failed? */ + /* Note: LUA_YIELD is treated like any other error. */ + J->L = NULL; /* Get a new thread next time. */ + fprintf(stderr, "[LuaJIT frontend failed: %s]\n", + lua_isstring(JL, -1) ? lua_tostring(JL, -1) : "(unknown error)"); + return JIT_S_COMPILER_ERROR; + } + + /* Get status from terminated thread. */ + status = (int)lua_tointeger(JL, -1); + lua_settop(JL, 0); /* Help the GC. */ + return status; +} + +/* Create the compiler pipeline and register it. */ +static void makepipeline(lua_State *L) +{ + lua_createtable(L, 20, 0); /* 10 handlers+priorities should be enough. */ + lua_pushcfunction(L, luaJIT_backend); + lua_rawseti(L, -2, 1); + lua_pushinteger(L, 0); /* Fill in the backend at prio 0. */ + lua_rawseti(L, -2, 2); + + /* Store the compiler frontend in the registry. */ + lua_pushlightuserdata(L, (void *)®key_frontend); + lua_pushvalue(L, -2); /* Pipeline table as upvalue. */ + lua_pushcclosure(L, j_frontend, 1); + lua_rawset(L, LUA_REGISTRYINDEX); + + /* Register the frontend wrapper. */ + G(L)->jit_state->frontwrap = frontwrap; + + /* Add jit.attach with the pipeline table as upvalue. */ + lua_pushcclosure(L, j_attach, 1); + lua_setfield(L, -2, "attach"); /* "jit" table must be below. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Calculate total mcode size without mfm and only for active mcode blocks. */ +static size_t mcodesize(Proto *pt) +{ + jit_MCTrailer tr; + size_t sz = 0; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + do { + jit_Mfm *mfm = JIT_MCMFM(tr.mcode, tr.sz); + if (sz != 0 && jit_mfm_ismain(mfm)) break; /* Stop at old main mfm. */ + while (*mfm != JIT_MFM_STOP) mfm--; /* Search for end of mcode. */ + sz += (char *)mfm-(char *)tr.mcode; /* Add size of mcode without mfm. */ + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), sizeof(jit_MCTrailer)); + } while (tr.mcode != NULL); + return sz; +} + +#define setintfield(name, i) \ + do { lua_pushinteger(L, i); lua_setfield(L, -2, name); } while (0) + +/* local stats = jit.util.stats(func) */ +static int ju_stats(lua_State *L) +{ + if (!(L->top > L->base)) + luaL_argerror(L, 1, "Lua function expected"); + if (isLfunction(L->base)) { + Proto *pt = clvalue(L->base)->l.p; + lua_createtable(L, 0, 11); + setintfield("status", pt->jit_status); + setintfield("stackslots", pt->maxstacksize); + setintfield("params", pt->numparams); + setintfield("bytecodes", pt->sizecode); + setintfield("consts", pt->sizek); + setintfield("upvalues", pt->nups); + setintfield("subs", pt->sizep); + lua_pushboolean(L, pt->is_vararg); + lua_setfield(L, -2, "isvararg"); + lua_getfenv(L, 1); + lua_setfield(L, -2, "env"); + if (pt->jit_szmcode != 0) { + setintfield("mcodesize", (int)mcodesize(pt)); + lua_pushnumber(L, (lua_Number)(size_t)pt->jit_mcode); + lua_setfield(L, -2, "mcodeaddr"); + } + return 1; + } else { + return 0; /* Don't throw an error like the other util functions. */ + } +} + +/* local op, a, b, c, test = jit.util.bytecode(func, pc) */ +static int ju_bytecode(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + int pc = luaL_checkint(L, 2); + if (pc >= 1 && pc <= pt->sizecode) { + Instruction ins = pt->code[pc-1]; + OpCode op = GET_OPCODE(ins); + if (pc > 1 && (((int)OP_SETLIST) << POS_OP) == + (pt->code[pc-2] & (MASK1(SIZE_OP,POS_OP) | MASK1(SIZE_C,POS_C)))) { + lua_pushstring(L, luaP_opnames[OP_SETLIST]); + lua_pushnumber(L, (lua_Number)ins); /* Fake extended op. */ + return 1; + } + if (op >= NUM_OPCODES) return 0; /* Just in case. */ + lua_pushstring(L, luaP_opnames[op]); + lua_pushinteger(L, GETARG_A(ins)); + switch (getOpMode(op)) { + case iABC: { + int b = GETARG_B(ins), c = GETARG_C(ins); + switch (getBMode(op)) { + case OpArgN: lua_pushnil(L); break; + case OpArgK: if (ISK(b)) b = -1-INDEXK(b); + case OpArgR: case OpArgU: lua_pushinteger(L, b); break; + } + switch (getCMode(op)) { + case OpArgN: lua_pushnil(L); break; + case OpArgK: if (ISK(c)) c = -1-INDEXK(c); + case OpArgR: case OpArgU: lua_pushinteger(L, c); break; + } + lua_pushboolean(L, testTMode(op)); + return 5; + } + case iABx: { + int bx = GETARG_Bx(ins); + lua_pushinteger(L, getBMode(op) == OpArgK ? -1-bx : bx); + return 3; + } + case iAsBx: + lua_pushinteger(L, GETARG_sBx(ins)); + return 3; + } + } + return 0; +} + +/* local const, ok = jit.util.const(func, idx) */ +static int ju_const(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + int idx = luaL_checkint(L, 2); + if (idx < 0) idx = -idx; /* Handle both positive and negative indices. */ + if (idx >= 1 && idx <= pt->sizek) { + setobj2s(L, L->top-1, &pt->k[idx-1]); + lua_pushboolean(L, 1); + return 2; + } + lua_pushnil(L); + lua_pushboolean(L, 0); + return 2; +} + +/* local upvalue, ok = jit.util.upvalue(func, idx) */ +static int ju_upvalue(lua_State *L) +{ + Closure *cl = check_LCL(L); + Proto *pt = cl->l.p; + int idx = luaL_checkint(L, 2); + if (idx >= 0 && idx < pt->nups) { + setobj2s(L, L->top-1, cl->l.upvals[idx]->v); + lua_pushboolean(L, 1); + return 2; + } + lua_pushnil(L); + lua_pushboolean(L, 0); + return 2; +} + +/* local nup = jit.util.closurenup(func, idx) */ +static int ju_closurenup(lua_State *L) +{ + Closure *cl = check_LCL(L); + Proto *pt = cl->l.p; + int idx = luaL_checkint(L, 2); + if (idx >= 0 && idx < pt->sizep) { + lua_pushinteger(L, pt->p[idx]->nups); + return 1; + } + return 0; +} + +/* for tag, mark in mfmiter do ... end. */ +static int ju_mfmiter(lua_State *L) +{ + jit_Mfm *mfm = (jit_Mfm *)lua_touserdata(L, lua_upvalueindex(1)); + int m = *mfm--; + switch (m) { + case JIT_MFM_STOP: return 0; + case JIT_MFM_COMBINE: lua_pushliteral(L, "COMBINE"); lua_pushnil(L); break; + case JIT_MFM_DEAD: lua_pushliteral(L, "DEAD"); lua_pushnil(L); break; + default: + lua_pushinteger(L, m & JIT_MFM_MASK); + lua_pushboolean(L, m & JIT_MFM_MARK); + break; + } + lua_pushlightuserdata(L, (void *)mfm); + lua_replace(L, lua_upvalueindex(1)); + return 2; +} + +/* local addr, mcode, mfmiter = jit.util.mcode(func, block) */ +static int ju_mcode(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + if (pt->jit_szmcode == 0) { /* Not compiled (yet): return nil, status. */ + lua_pushnil(L); + lua_pushinteger(L, pt->jit_status); + return 2; + } else { + jit_Mfm *mfm; + jit_MCTrailer tr; + int block = luaL_checkint(L, 2); + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + while (--block > 0) { + void *trp = JIT_MCTRAILER(tr.mcode, tr.sz); + memcpy((void *)&tr, trp, sizeof(jit_MCTrailer)); + if (tr.sz == 0) return 0; + } + mfm = JIT_MCMFM(tr.mcode, tr.sz); + while (*mfm != JIT_MFM_STOP) mfm--; /* Search for end of mcode. */ + lua_pushnumber(L, (lua_Number)(size_t)tr.mcode); + lua_pushlstring(L, (const char *)tr.mcode, (char *)mfm-(char *)tr.mcode); + lua_pushlightuserdata(L, (void *)JIT_MCMFM(tr.mcode, tr.sz)); + lua_pushvalue(L, 1); /* Must hold onto function to avoid GC. */ + lua_pushcclosure(L, ju_mfmiter, 2); + return 3; + } +} + +/* local addr [, mcode] = jit.util.jsubmcode([idx]) */ +static int ju_jsubmcode(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + if (lua_isnoneornil(L, 1)) { + lua_pushnumber(L, (lua_Number)(size_t)J->jsubmcode); + lua_pushlstring(L, (const char *)J->jsubmcode, J->szjsubmcode); + return 2; + } else { + int idx = luaL_checkint(L, 1); + if (idx >= 0 && idx < J->numjsub) { + lua_pushnumber(L, (lua_Number)(size_t)J->jsub[idx]); + return 1; + } + return 0; + } +} + +/* FOR INTERNAL DEBUGGING USE ONLY: local addr = jit.util.stackptr() */ +static int ju_stackptr(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + size_t addr = cast(size_t (*)(void), J->jsub[0])(); /* JSUB_STACKPTR == 0! */ + lua_pushnumber(L, (lua_Number)addr); + return 1; +} + +/* jit.util.* functions. */ +static const luaL_Reg jitutillib[] = { + {"stats", ju_stats }, + {"bytecode", ju_bytecode }, + {"const", ju_const }, + {"upvalue", ju_upvalue }, + {"closurenup", ju_closurenup }, + {"mcode", ju_mcode }, + {"jsubmcode", ju_jsubmcode }, + {"stackptr", ju_stackptr }, + { NULL, NULL } +}; + +/* Make hint name to hint number map. */ +static void makehints(lua_State *L, const char *const *t, int tmax, + const char *name) +{ + int i; + lua_createtable(L, 0, tmax); + for (i = 1; i < tmax; i++) { + lua_pushinteger(L, JIT_H2NUM(i)); + lua_setfield(L, -2, t[i-1]); + } + lua_setfield(L, -2, name); +} + +/* CHECK: must match with ljit.h (grep "ORDER JIT_S"). */ +static const char *const status_list[] = { + "OK", + "NONE", + "OFF", + "ENGINE_OFF", + "DELAYED", + "TOOLARGE", + "COMPILER_ERROR", + "DASM_ERROR" +}; + +/* Make bidirectional status name to status number map. */ +static void makestatus(lua_State *L, const char *name) +{ + int i; + lua_createtable(L, JIT_S_MAX-1, JIT_S_MAX+1); /* Codes are not 1-based. */ + for (i = 0; i < JIT_S_MAX; i++) { + lua_pushstring(L, status_list[i]); + lua_pushinteger(L, i); + lua_pushvalue(L, -2); + lua_rawseti(L, -4, i); + lua_rawset(L, -3); + } + lua_setfield(L, -2, name); +} + +/* ------------------------------------------------------------------------ */ + +/* +** Open JIT library +*/ +LUALIB_API int luaopen_jit(lua_State *L) +{ + /* Add the core JIT library. */ + luaL_register(L, LUA_JITLIBNAME, jitlib); + lua_pushliteral(L, LUAJIT_VERSION); + lua_setfield(L, -2, "version"); + setintfield("version_num", LUAJIT_VERSION_NUM); + lua_pushstring(L, luaJIT_arch); + lua_setfield(L, -2, "arch"); + makepipeline(L); + + /* Add the utility JIT library. */ + luaL_register(L, LUA_JITLIBNAME ".util", jitutillib); + makestatus(L, "status"); + makehints(L, hints_H, JIT_H_MAX, "hints"); + makehints(L, hints_FH, JIT_FH_MAX, "fhints"); + lua_pop(L, 1); + + /* Everything ok, so turn the JIT engine on. Vroooom! */ + if (luaJIT_setmode(L, 0, LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON) <= 0) { + /* Ouch. Someone screwed up DynASM or the JSUBs. Probably me. */ + /* But if you get 999999999, look at jit_consistency_check(). */ + return luaL_error(L, "JIT engine init failed (%d)", + G(L)->jit_state->dasmstatus); + } + + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/llex.c b/src/3rd party/LuaJIT-1.1.8/src/llex.c new file mode 100644 index 00000000000..88c6790c076 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llex.c @@ -0,0 +1,463 @@ +/* +** $Id: llex.c,v 2.20.1.2 2009/11/23 14:58:22 roberto Exp $ +** Lexical Analyzer +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define llex_c +#define LUA_CORE + +#include "lua.h" + +#include "ldo.h" +#include "llex.h" +#include "lobject.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "lzio.h" + + + +#define next(ls) (ls->current = zgetc(ls->z)) + + + + +#define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') + + +/* ORDER RESERVED */ +const char *const luaX_tokens [] = { + "and", "break", "do", "else", "elseif", + "end", "false", "for", "function", "if", + "in", "local", "nil", "not", "or", "repeat", + "return", "then", "true", "until", "while", + "..", "...", "==", ">=", "<=", "~=", + "", "", "", "", + NULL +}; + + +#define save_and_next(ls) (save(ls, ls->current), next(ls)) + + +static void save (LexState *ls, int c) { + Mbuffer *b = ls->buff; + if (b->n + 1 > b->buffsize) { + size_t newsize; + if (b->buffsize >= MAX_SIZET/2) + luaX_lexerror(ls, "lexical element too long", 0); + newsize = b->buffsize * 2; + luaZ_resizebuffer(ls->L, b, newsize); + } + b->buffer[b->n++] = cast(char, c); +} + + +void luaX_init (lua_State *L) { + int i; + for (i=0; itsv.reserved = cast_byte(i+1); /* reserved word */ + } +} + + +#define MAXSRC 80 + + +const char *luaX_token2str (LexState *ls, int token) { + if (token < FIRST_RESERVED) { + lua_assert(token == cast(unsigned char, token)); + return (iscntrl(token)) ? luaO_pushfstring(ls->L, "char(%d)", token) : + luaO_pushfstring(ls->L, "%c", token); + } + else + return luaX_tokens[token-FIRST_RESERVED]; +} + + +static const char *txtToken (LexState *ls, int token) { + switch (token) { + case TK_NAME: + case TK_STRING: + case TK_NUMBER: + save(ls, '\0'); + return luaZ_buffer(ls->buff); + default: + return luaX_token2str(ls, token); + } +} + + +void luaX_lexerror (LexState *ls, const char *msg, int token) { + char buff[MAXSRC]; + luaO_chunkid(buff, getstr(ls->source), MAXSRC); + msg = luaO_pushfstring(ls->L, "%s:%d: %s", buff, ls->linenumber, msg); + if (token) + luaO_pushfstring(ls->L, "%s near " LUA_QS, msg, txtToken(ls, token)); + luaD_throw(ls->L, LUA_ERRSYNTAX); +} + + +void luaX_syntaxerror (LexState *ls, const char *msg) { + luaX_lexerror(ls, msg, ls->t.token); +} + + +TString *luaX_newstring (LexState *ls, const char *str, size_t l) { + lua_State *L = ls->L; + TString *ts = luaS_newlstr(L, str, l); + TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ + if (ttisnil(o)) { + setbvalue(o, 1); /* make sure `str' will not be collected */ + luaC_checkGC(L); + } + return ts; +} + + +static void inclinenumber (LexState *ls) { + int old = ls->current; + lua_assert(currIsNewline(ls)); + next(ls); /* skip `\n' or `\r' */ + if (currIsNewline(ls) && ls->current != old) + next(ls); /* skip `\n\r' or `\r\n' */ + if (++ls->linenumber >= MAX_INT) + luaX_syntaxerror(ls, "chunk has too many lines"); +} + + +void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source) { + ls->decpoint = '.'; + ls->L = L; + ls->lookahead.token = TK_EOS; /* no look-ahead token */ + ls->z = z; + ls->fs = NULL; + ls->linenumber = 1; + ls->lastline = 1; + ls->source = source; + luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ + next(ls); /* read first char */ +} + + + +/* +** ======================================================= +** LEXICAL ANALYZER +** ======================================================= +*/ + + + +static int check_next (LexState *ls, const char *set) { + if (!strchr(set, ls->current)) + return 0; + save_and_next(ls); + return 1; +} + + +static void buffreplace (LexState *ls, char from, char to) { + size_t n = luaZ_bufflen(ls->buff); + char *p = luaZ_buffer(ls->buff); + while (n--) + if (p[n] == from) p[n] = to; +} + + +static void trydecpoint (LexState *ls, SemInfo *seminfo) { + /* format error: try to update decimal point separator */ + struct lconv *cv = localeconv(); + char old = ls->decpoint; + ls->decpoint = (cv ? cv->decimal_point[0] : '.'); + buffreplace(ls, old, ls->decpoint); /* try updated decimal separator */ + if (!luaO_str2d(luaZ_buffer(ls->buff), &seminfo->r)) { + /* format error with correct decimal point: no more options */ + buffreplace(ls, ls->decpoint, '.'); /* undo change (for error message) */ + luaX_lexerror(ls, "malformed number", TK_NUMBER); + } +} + + +/* LUA_NUMBER */ +static void read_numeral (LexState *ls, SemInfo *seminfo) { + lua_assert(isdigit(ls->current)); + do { + save_and_next(ls); + } while (isdigit(ls->current) || ls->current == '.'); + if (check_next(ls, "Ee")) /* `E'? */ + check_next(ls, "+-"); /* optional exponent sign */ + while (isalnum(ls->current) || ls->current == '_') + save_and_next(ls); + save(ls, '\0'); + buffreplace(ls, '.', ls->decpoint); /* follow locale for decimal point */ + if (!luaO_str2d(luaZ_buffer(ls->buff), &seminfo->r)) /* format error? */ + trydecpoint(ls, seminfo); /* try to update decimal point separator */ +} + + +static int skip_sep (LexState *ls) { + int count = 0; + int s = ls->current; + lua_assert(s == '[' || s == ']'); + save_and_next(ls); + while (ls->current == '=') { + save_and_next(ls); + count++; + } + return (ls->current == s) ? count : (-count) - 1; +} + + +static void read_long_string (LexState *ls, SemInfo *seminfo, int sep) { + int cont = 0; + (void)(cont); /* avoid warnings when `cont' is not used */ + save_and_next(ls); /* skip 2nd `[' */ + if (currIsNewline(ls)) /* string starts with a newline? */ + inclinenumber(ls); /* skip it */ + for (;;) { + switch (ls->current) { + case EOZ: + luaX_lexerror(ls, (seminfo) ? "unfinished long string" : + "unfinished long comment", TK_EOS); + break; /* to avoid warnings */ +#if defined(LUA_COMPAT_LSTR) + case '[': { + if (skip_sep(ls) == sep) { + save_and_next(ls); /* skip 2nd `[' */ + cont++; +#if LUA_COMPAT_LSTR == 1 + if (sep == 0) + luaX_lexerror(ls, "nesting of [[...]] is deprecated", '['); +#endif + } + break; + } +#endif + case ']': { + if (skip_sep(ls) == sep) { + save_and_next(ls); /* skip 2nd `]' */ +#if defined(LUA_COMPAT_LSTR) && LUA_COMPAT_LSTR == 2 + cont--; + if (sep == 0 && cont >= 0) break; +#endif + goto endloop; + } + break; + } + case '\n': + case '\r': { + save(ls, '\n'); + inclinenumber(ls); + if (!seminfo) luaZ_resetbuffer(ls->buff); /* avoid wasting space */ + break; + } + default: { + if (seminfo) save_and_next(ls); + else next(ls); + } + } + } endloop: + if (seminfo) + seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + (2 + sep), + luaZ_bufflen(ls->buff) - 2*(2 + sep)); +} + + +static void read_string (LexState *ls, int del, SemInfo *seminfo) { + save_and_next(ls); + while (ls->current != del) { + switch (ls->current) { + case EOZ: + luaX_lexerror(ls, "unfinished string", TK_EOS); + continue; /* to avoid warnings */ + case '\n': + case '\r': + luaX_lexerror(ls, "unfinished string", TK_STRING); + continue; /* to avoid warnings */ + case '\\': { + int c; + next(ls); /* do not save the `\' */ + switch (ls->current) { + case 'a': c = '\a'; break; + case 'b': c = '\b'; break; + case 'f': c = '\f'; break; + case 'n': c = '\n'; break; + case 'r': c = '\r'; break; + case 't': c = '\t'; break; + case 'v': c = '\v'; break; + case '\n': /* go through */ + case '\r': save(ls, '\n'); inclinenumber(ls); continue; + case EOZ: continue; /* will raise an error next loop */ + default: { + if (!isdigit(ls->current)) + save_and_next(ls); /* handles \\, \", \', and \? */ + else { /* \xxx */ + int i = 0; + c = 0; + do { + c = 10*c + (ls->current-'0'); + next(ls); + } while (++i<3 && isdigit(ls->current)); + if (c > UCHAR_MAX) + luaX_lexerror(ls, "escape sequence too large", TK_STRING); + save(ls, c); + } + continue; + } + } + save(ls, c); + next(ls); + continue; + } + default: + save_and_next(ls); + } + } + save_and_next(ls); /* skip delimiter */ + seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + 1, + luaZ_bufflen(ls->buff) - 2); +} + + +static int llex (LexState *ls, SemInfo *seminfo) { + luaZ_resetbuffer(ls->buff); + for (;;) { + switch (ls->current) { + case '\n': + case '\r': { + inclinenumber(ls); + continue; + } + case '-': { + next(ls); + if (ls->current != '-') return '-'; + /* else is a comment */ + next(ls); + if (ls->current == '[') { + int sep = skip_sep(ls); + luaZ_resetbuffer(ls->buff); /* `skip_sep' may dirty the buffer */ + if (sep >= 0) { + read_long_string(ls, NULL, sep); /* long comment */ + luaZ_resetbuffer(ls->buff); + continue; + } + } + /* else short comment */ + while (!currIsNewline(ls) && ls->current != EOZ) + next(ls); + continue; + } + case '[': { + int sep = skip_sep(ls); + if (sep >= 0) { + read_long_string(ls, seminfo, sep); + return TK_STRING; + } + else if (sep == -1) return '['; + else luaX_lexerror(ls, "invalid long string delimiter", TK_STRING); + } + case '=': { + next(ls); + if (ls->current != '=') return '='; + else { next(ls); return TK_EQ; } + } + case '<': { + next(ls); + if (ls->current != '=') return '<'; + else { next(ls); return TK_LE; } + } + case '>': { + next(ls); + if (ls->current != '=') return '>'; + else { next(ls); return TK_GE; } + } + case '~': { + next(ls); + if (ls->current != '=') return '~'; + else { next(ls); return TK_NE; } + } + case '"': + case '\'': { + read_string(ls, ls->current, seminfo); + return TK_STRING; + } + case '.': { + save_and_next(ls); + if (check_next(ls, ".")) { + if (check_next(ls, ".")) + return TK_DOTS; /* ... */ + else return TK_CONCAT; /* .. */ + } + else if (!isdigit(ls->current)) return '.'; + else { + read_numeral(ls, seminfo); + return TK_NUMBER; + } + } + case EOZ: { + return TK_EOS; + } + default: { + if (isspace(ls->current)) { + lua_assert(!currIsNewline(ls)); + next(ls); + continue; + } + else if (isdigit(ls->current)) { + read_numeral(ls, seminfo); + return TK_NUMBER; + } + else if (isalpha(ls->current) || ls->current == '_') { + /* identifier or reserved word */ + TString *ts; + do { + save_and_next(ls); + } while (isalnum(ls->current) || ls->current == '_'); + ts = luaX_newstring(ls, luaZ_buffer(ls->buff), + luaZ_bufflen(ls->buff)); + if (ts->tsv.reserved > 0) /* reserved word? */ + return ts->tsv.reserved - 1 + FIRST_RESERVED; + else { + seminfo->ts = ts; + return TK_NAME; + } + } + else { + int c = ls->current; + next(ls); + return c; /* single-char tokens (+ - / ...) */ + } + } + } + } +} + + +void luaX_next (LexState *ls) { + ls->lastline = ls->linenumber; + if (ls->lookahead.token != TK_EOS) { /* is there a look-ahead token? */ + ls->t = ls->lookahead; /* use this one */ + ls->lookahead.token = TK_EOS; /* and discharge it */ + } + else + ls->t.token = llex(ls, &ls->t.seminfo); /* read next token */ +} + + +void luaX_lookahead (LexState *ls) { + lua_assert(ls->lookahead.token == TK_EOS); + ls->lookahead.token = llex(ls, &ls->lookahead.seminfo); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/llex.h b/src/3rd party/LuaJIT-1.1.8/src/llex.h new file mode 100644 index 00000000000..a9201cee484 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llex.h @@ -0,0 +1,81 @@ +/* +** $Id: llex.h,v 1.58.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lexical Analyzer +** See Copyright Notice in lua.h +*/ + +#ifndef llex_h +#define llex_h + +#include "lobject.h" +#include "lzio.h" + + +#define FIRST_RESERVED 257 + +/* maximum length of a reserved word */ +#define TOKEN_LEN (sizeof("function")/sizeof(char)) + + +/* +* WARNING: if you change the order of this enumeration, +* grep "ORDER RESERVED" +*/ +enum RESERVED { + /* terminal symbols denoted by reserved words */ + TK_AND = FIRST_RESERVED, TK_BREAK, + TK_DO, TK_ELSE, TK_ELSEIF, TK_END, TK_FALSE, TK_FOR, TK_FUNCTION, + TK_IF, TK_IN, TK_LOCAL, TK_NIL, TK_NOT, TK_OR, TK_REPEAT, + TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE, + /* other terminal symbols */ + TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NUMBER, + TK_NAME, TK_STRING, TK_EOS +}; + +/* number of reserved words */ +#define NUM_RESERVED (cast(int, TK_WHILE-FIRST_RESERVED+1)) + + +/* array with token `names' */ +LUAI_DATA const char *const luaX_tokens []; + + +typedef union { + lua_Number r; + TString *ts; +} SemInfo; /* semantics information */ + + +typedef struct Token { + int token; + SemInfo seminfo; +} Token; + + +typedef struct LexState { + int current; /* current character (charint) */ + int linenumber; /* input line counter */ + int lastline; /* line of last token `consumed' */ + Token t; /* current token */ + Token lookahead; /* look ahead token */ + struct FuncState *fs; /* `FuncState' is private to the parser */ + struct lua_State *L; + ZIO *z; /* input stream */ + Mbuffer *buff; /* buffer for tokens */ + TString *source; /* current source name */ + char decpoint; /* locale decimal point */ +} LexState; + + +LUAI_FUNC void luaX_init (lua_State *L); +LUAI_FUNC void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, + TString *source); +LUAI_FUNC TString *luaX_newstring (LexState *ls, const char *str, size_t l); +LUAI_FUNC void luaX_next (LexState *ls); +LUAI_FUNC void luaX_lookahead (LexState *ls); +LUAI_FUNC void luaX_lexerror (LexState *ls, const char *msg, int token); +LUAI_FUNC void luaX_syntaxerror (LexState *ls, const char *s); +LUAI_FUNC const char *luaX_token2str (LexState *ls, int token); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/llimits.h b/src/3rd party/LuaJIT-1.1.8/src/llimits.h new file mode 100644 index 00000000000..ca8dcb72244 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llimits.h @@ -0,0 +1,128 @@ +/* +** $Id: llimits.h,v 1.69.1.1 2007/12/27 13:02:25 roberto Exp $ +** Limits, basic types, and some other `installation-dependent' definitions +** See Copyright Notice in lua.h +*/ + +#ifndef llimits_h +#define llimits_h + + +#include +#include + + +#include "lua.h" + + +typedef LUAI_UINT32 lu_int32; + +typedef LUAI_UMEM lu_mem; + +typedef LUAI_MEM l_mem; + + + +/* chars used as small naturals (so that `char' is reserved for characters) */ +typedef unsigned char lu_byte; + + +#define MAX_SIZET ((size_t)(~(size_t)0)-2) + +#define MAX_LUMEM ((lu_mem)(~(lu_mem)0)-2) + + +#define MAX_INT (INT_MAX-2) /* maximum value of an int (-2 for safety) */ + +/* +** conversion of pointer to integer +** this is for hashing only; there is no problem if the integer +** cannot hold the whole pointer value +*/ +#define IntPoint(p) ((unsigned int)(lu_mem)(p)) + + + +/* type to ensure maximum alignment */ +typedef LUAI_USER_ALIGNMENT_T L_Umaxalign; + + +/* result of a `usual argument conversion' over lua_Number */ +typedef LUAI_UACNUMBER l_uacNumber; + + +/* internal assertions for in-house debugging */ +#ifdef lua_assert + +#define check_exp(c,e) (lua_assert(c), (e)) +#define api_check(l,e) lua_assert(e) + +#else + +#define lua_assert(c) ((void)0) +#define check_exp(c,e) (e) +#define api_check luai_apicheck + +#endif + + +#ifndef UNUSED +#define UNUSED(x) ((void)(x)) /* to avoid warnings */ +#endif + + +#ifndef cast +#define cast(t, exp) ((t)(exp)) +#endif + +#define cast_byte(i) cast(lu_byte, (i)) +#define cast_num(i) cast(lua_Number, (i)) +#define cast_int(i) cast(int, (i)) + + + +/* +** type for virtual-machine instructions +** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h) +*/ +typedef lu_int32 Instruction; + + + +/* maximum stack for a Lua function */ +#define MAXSTACK 250 + + + +/* minimum size for the string table (must be power of 2) */ +#ifndef MINSTRTABSIZE +#define MINSTRTABSIZE 32 +#endif + + +/* minimum size for string buffer */ +#ifndef LUA_MINBUFFER +#define LUA_MINBUFFER 32 +#endif + + +#ifndef lua_lock +#define lua_lock(L) ((void) 0) +#define lua_unlock(L) ((void) 0) +#endif + +#ifndef luai_threadyield +#define luai_threadyield(L) {lua_unlock(L); lua_lock(L);} +#endif + + +/* +** macro to control inclusion of some hard tests on stack reallocation +*/ +#ifndef HARDSTACKTESTS +#define condhardstacktests(x) ((void)0) +#else +#define condhardstacktests(x) x +#endif + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c b/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c new file mode 100644 index 00000000000..441fbf736c2 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c @@ -0,0 +1,263 @@ +/* +** $Id: lmathlib.c,v 1.67.1.1 2007/12/27 13:02:25 roberto Exp $ +** Standard mathematical library +** See Copyright Notice in lua.h +*/ + + +#include +#include + +#define lmathlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +#undef PI +#define PI (3.14159265358979323846) +#define RADIANS_PER_DEGREE (PI/180.0) + + + +static int math_abs (lua_State *L) { + lua_pushnumber(L, fabs(luaL_checknumber(L, 1))); + return 1; +} + +static int math_sin (lua_State *L) { + lua_pushnumber(L, sin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_sinh (lua_State *L) { + lua_pushnumber(L, sinh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cos (lua_State *L) { + lua_pushnumber(L, cos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cosh (lua_State *L) { + lua_pushnumber(L, cosh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tan (lua_State *L) { + lua_pushnumber(L, tan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tanh (lua_State *L) { + lua_pushnumber(L, tanh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_asin (lua_State *L) { + lua_pushnumber(L, asin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_acos (lua_State *L) { + lua_pushnumber(L, acos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan (lua_State *L) { + lua_pushnumber(L, atan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan2 (lua_State *L) { + lua_pushnumber(L, atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_ceil (lua_State *L) { + lua_pushnumber(L, ceil(luaL_checknumber(L, 1))); + return 1; +} + +static int math_floor (lua_State *L) { + lua_pushnumber(L, floor(luaL_checknumber(L, 1))); + return 1; +} + +static int math_fmod (lua_State *L) { + lua_pushnumber(L, fmod(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_modf (lua_State *L) { + double ip; + double fp = modf(luaL_checknumber(L, 1), &ip); + lua_pushnumber(L, ip); + lua_pushnumber(L, fp); + return 2; +} + +static int math_sqrt (lua_State *L) { + lua_pushnumber(L, sqrt(luaL_checknumber(L, 1))); + return 1; +} + +static int math_pow (lua_State *L) { + lua_pushnumber(L, pow(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_log (lua_State *L) { + lua_pushnumber(L, log(luaL_checknumber(L, 1))); + return 1; +} + +static int math_log10 (lua_State *L) { + lua_pushnumber(L, log10(luaL_checknumber(L, 1))); + return 1; +} + +static int math_exp (lua_State *L) { + lua_pushnumber(L, exp(luaL_checknumber(L, 1))); + return 1; +} + +static int math_deg (lua_State *L) { + lua_pushnumber(L, luaL_checknumber(L, 1)/RADIANS_PER_DEGREE); + return 1; +} + +static int math_rad (lua_State *L) { + lua_pushnumber(L, luaL_checknumber(L, 1)*RADIANS_PER_DEGREE); + return 1; +} + +static int math_frexp (lua_State *L) { + int e; + lua_pushnumber(L, frexp(luaL_checknumber(L, 1), &e)); + lua_pushinteger(L, e); + return 2; +} + +static int math_ldexp (lua_State *L) { + lua_pushnumber(L, ldexp(luaL_checknumber(L, 1), luaL_checkint(L, 2))); + return 1; +} + + + +static int math_min (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmin = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d < dmin) + dmin = d; + } + lua_pushnumber(L, dmin); + return 1; +} + + +static int math_max (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmax = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d > dmax) + dmax = d; + } + lua_pushnumber(L, dmax); + return 1; +} + + +static int math_random (lua_State *L) { + /* the `%' avoids the (rare) case of r==1, and is needed also because on + some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */ + lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX; + switch (lua_gettop(L)) { /* check number of arguments */ + case 0: { /* no arguments */ + lua_pushnumber(L, r); /* Number between 0 and 1 */ + break; + } + case 1: { /* only upper limit */ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1<=u, 1, "interval is empty"); + lua_pushnumber(L, floor(r*u)+1); /* int between 1 and `u' */ + break; + } + case 2: { /* lower and upper limits */ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l<=u, 2, "interval is empty"); + lua_pushnumber(L, floor(r*(u-l+1))+l); /* int between `l' and `u' */ + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; +} + + +static int math_randomseed (lua_State *L) { + srand(luaL_checkint(L, 1)); + return 0; +} + + +static const luaL_Reg mathlib[] = { + {"abs", math_abs}, + {"acos", math_acos}, + {"asin", math_asin}, + {"atan2", math_atan2}, + {"atan", math_atan}, + {"ceil", math_ceil}, + {"cosh", math_cosh}, + {"cos", math_cos}, + {"deg", math_deg}, + {"exp", math_exp}, + {"floor", math_floor}, + {"fmod", math_fmod}, + {"frexp", math_frexp}, + {"ldexp", math_ldexp}, + {"log10", math_log10}, + {"log", math_log}, + {"max", math_max}, + {"min", math_min}, + {"modf", math_modf}, + {"pow", math_pow}, + {"rad", math_rad}, + {"random", math_random}, + {"randomseed", math_randomseed}, + {"sinh", math_sinh}, + {"sin", math_sin}, + {"sqrt", math_sqrt}, + {"tanh", math_tanh}, + {"tan", math_tan}, + {NULL, NULL} +}; + + +/* +** Open math library +*/ +LUALIB_API int luaopen_math (lua_State *L) { + luaL_register(L, LUA_MATHLIBNAME, mathlib); + lua_pushnumber(L, PI); + lua_setfield(L, -2, "pi"); + lua_pushnumber(L, HUGE_VAL); + lua_setfield(L, -2, "huge"); +#if defined(LUA_COMPAT_MOD) + lua_getfield(L, -1, "fmod"); + lua_setfield(L, -2, "mod"); +#endif + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmem.c b/src/3rd party/LuaJIT-1.1.8/src/lmem.c new file mode 100644 index 00000000000..ae7d8c965f6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmem.c @@ -0,0 +1,86 @@ +/* +** $Id: lmem.c,v 1.70.1.1 2007/12/27 13:02:25 roberto Exp $ +** Interface to Memory Manager +** See Copyright Notice in lua.h +*/ + + +#include + +#define lmem_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" + + + +/* +** About the realloc function: +** void * frealloc (void *ud, void *ptr, size_t osize, size_t nsize); +** (`osize' is the old size, `nsize' is the new size) +** +** Lua ensures that (ptr == NULL) iff (osize == 0). +** +** * frealloc(ud, NULL, 0, x) creates a new block of size `x' +** +** * frealloc(ud, p, x, 0) frees the block `p' +** (in this specific case, frealloc must return NULL). +** particularly, frealloc(ud, NULL, 0, 0) does nothing +** (which is equivalent to free(NULL) in ANSI C) +** +** frealloc returns NULL if it cannot create or reallocate the area +** (any reallocation to an equal or smaller size cannot fail!) +*/ + + + +#define MINSIZEARRAY 4 + + +void *luaM_growaux_ (lua_State *L, void *block, int *size, size_t size_elems, + int limit, const char *errormsg) { + void *newblock; + int newsize; + if (*size >= limit/2) { /* cannot double it? */ + if (*size >= limit) /* cannot grow even a little? */ + luaG_runerror(L, errormsg); + newsize = limit; /* still have at least one free place */ + } + else { + newsize = (*size)*2; + if (newsize < MINSIZEARRAY) + newsize = MINSIZEARRAY; /* minimum size */ + } + newblock = luaM_reallocv(L, block, *size, newsize, size_elems); + *size = newsize; /* update only when everything else is OK */ + return newblock; +} + + +void *luaM_toobig (lua_State *L) { + luaG_runerror(L, "memory allocation error: block too big"); + return NULL; /* to avoid warnings */ +} + + + +/* +** generic allocation routine. +*/ +void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { + global_State *g = G(L); + lua_assert((osize == 0) == (block == NULL)); + block = (*g->frealloc)(g->ud, block, osize, nsize); + if (block == NULL && nsize > 0) + luaD_throw(L, LUA_ERRMEM); + lua_assert((nsize == 0) == (block == NULL)); + g->totalbytes = (g->totalbytes - osize) + nsize; + return block; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmem.h b/src/3rd party/LuaJIT-1.1.8/src/lmem.h new file mode 100644 index 00000000000..7c2dcb32207 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmem.h @@ -0,0 +1,49 @@ +/* +** $Id: lmem.h,v 1.31.1.1 2007/12/27 13:02:25 roberto Exp $ +** Interface to Memory Manager +** See Copyright Notice in lua.h +*/ + +#ifndef lmem_h +#define lmem_h + + +#include + +#include "llimits.h" +#include "lua.h" + +#define MEMERRMSG "not enough memory" + + +#define luaM_reallocv(L,b,on,n,e) \ + ((cast(size_t, (n)+1) <= MAX_SIZET/(e)) ? /* +1 to avoid warnings */ \ + luaM_realloc_(L, (b), (on)*(e), (n)*(e)) : \ + luaM_toobig(L)) + +#define luaM_freemem(L, b, s) luaM_realloc_(L, (b), (s), 0) +#define luaM_free(L, b) luaM_realloc_(L, (b), sizeof(*(b)), 0) +#define luaM_freearray(L, b, n, t) luaM_reallocv(L, (b), n, 0, sizeof(t)) + +#define luaM_malloc(L,t) luaM_realloc_(L, NULL, 0, (t)) +#define luaM_new(L,t) cast(t *, luaM_malloc(L, sizeof(t))) +#define luaM_newvector(L,n,t) \ + cast(t *, luaM_reallocv(L, NULL, 0, n, sizeof(t))) + +#define luaM_growvector(L,v,nelems,size,t,limit,e) \ + if ((nelems)+1 > (size)) \ + ((v)=cast(t *, luaM_growaux_(L,v,&(size),sizeof(t),limit,e))) + +#define luaM_reallocvector(L, v,oldn,n,t) \ + ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t)))) + + +LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, + size_t size); +LUAI_FUNC void *luaM_toobig (lua_State *L); +LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size, + size_t size_elem, int limit, + const char *errormsg); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/loadlib.c b/src/3rd party/LuaJIT-1.1.8/src/loadlib.c new file mode 100644 index 00000000000..7b05e06098d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/loadlib.c @@ -0,0 +1,669 @@ +/* +** $Id: loadlib.c,v 1.52.1.4 2009/09/09 13:17:16 roberto Exp $ +** Dynamic library loader for Lua +** See Copyright Notice in lua.h +** +** This module contains an implementation of loadlib for Unix systems +** that have dlfcn, an implementation for Darwin (Mac OS X), an +** implementation for Windows, and a stub for other systems. +*/ + + +#include +#include + + +#define loadlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" + + +/* prefix for open functions in C libraries */ +#define LUA_POF "luaopen_" + +/* separator for open functions in C libraries */ +#define LUA_OFSEP "_" + + +#define LIBPREFIX "LOADLIB: " + +#define POF LUA_POF +#define LIB_FAIL "open" + + +/* error codes for ll_loadfunc */ +#define ERRLIB 1 +#define ERRFUNC 2 + +#define setprogdir(L) ((void)0) + + +static void ll_unloadlib (void *lib); +static void *ll_load (lua_State *L, const char *path); +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym); + + + +#if defined(LUA_DL_DLOPEN) +/* +** {======================================================================== +** This is an implementation of loadlib based on the dlfcn interface. +** The dlfcn interface is available in Linux, SunOS, Solaris, IRIX, FreeBSD, +** NetBSD, AIX 4.2, HPUX 11, and probably most other Unix flavors, at least +** as an emulation layer on top of native functions. +** ========================================================================= +*/ + +#include + +static void ll_unloadlib (void *lib) { + dlclose(lib); +} + + +static void *ll_load (lua_State *L, const char *path) { + void *lib = dlopen(path, RTLD_NOW); + if (lib == NULL) lua_pushstring(L, dlerror()); + return lib; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + lua_CFunction f = (lua_CFunction)dlsym(lib, sym); + if (f == NULL) lua_pushstring(L, dlerror()); + return f; +} + +/* }====================================================== */ + + + +#elif defined(LUA_DL_DLL) +/* +** {====================================================================== +** This is an implementation of loadlib for Windows using native functions. +** ======================================================================= +*/ + +#include + + +#undef setprogdir + +static void setprogdir (lua_State *L) { + char buff[MAX_PATH + 1]; + char *lb; + DWORD nsize = sizeof(buff)/sizeof(char); + DWORD n = GetModuleFileNameA(NULL, buff, nsize); + if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) + luaL_error(L, "unable to get ModuleFileName"); + else { + *lb = '\0'; + luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff); + lua_remove(L, -2); /* remove original string */ + } +} + + +static void pusherror (lua_State *L) { + int error = GetLastError(); + char buffer[128]; + if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, + NULL, error, 0, buffer, sizeof(buffer), NULL)) + lua_pushstring(L, buffer); + else + lua_pushfstring(L, "system error %d\n", error); +} + +static void ll_unloadlib (void *lib) { + FreeLibrary((HINSTANCE)lib); +} + + +static void *ll_load (lua_State *L, const char *path) { + HINSTANCE lib = LoadLibraryA(path); + if (lib == NULL) pusherror(L); + return lib; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + lua_CFunction f = (lua_CFunction)GetProcAddress((HINSTANCE)lib, sym); + if (f == NULL) pusherror(L); + return f; +} + +/* }====================================================== */ + + + +#elif defined(LUA_DL_DYLD) +/* +** {====================================================================== +** Native Mac OS X / Darwin Implementation +** ======================================================================= +*/ + +#include + + +/* Mac appends a `_' before C function names */ +#undef POF +#define POF "_" LUA_POF + + +static void pusherror (lua_State *L) { + const char *err_str; + const char *err_file; + NSLinkEditErrors err; + int err_num; + NSLinkEditError(&err, &err_num, &err_file, &err_str); + lua_pushstring(L, err_str); +} + + +static const char *errorfromcode (NSObjectFileImageReturnCode ret) { + switch (ret) { + case NSObjectFileImageInappropriateFile: + return "file is not a bundle"; + case NSObjectFileImageArch: + return "library is for wrong CPU type"; + case NSObjectFileImageFormat: + return "bad format"; + case NSObjectFileImageAccess: + return "cannot access file"; + case NSObjectFileImageFailure: + default: + return "unable to load library"; + } +} + + +static void ll_unloadlib (void *lib) { + NSUnLinkModule((NSModule)lib, NSUNLINKMODULE_OPTION_RESET_LAZY_REFERENCES); +} + + +static void *ll_load (lua_State *L, const char *path) { + NSObjectFileImage img; + NSObjectFileImageReturnCode ret; + /* this would be a rare case, but prevents crashing if it happens */ + if(!_dyld_present()) { + lua_pushliteral(L, "dyld not present"); + return NULL; + } + ret = NSCreateObjectFileImageFromFile(path, &img); + if (ret == NSObjectFileImageSuccess) { + NSModule mod = NSLinkModule(img, path, NSLINKMODULE_OPTION_PRIVATE | + NSLINKMODULE_OPTION_RETURN_ON_ERROR); + NSDestroyObjectFileImage(img); + if (mod == NULL) pusherror(L); + return mod; + } + lua_pushstring(L, errorfromcode(ret)); + return NULL; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + NSSymbol nss = NSLookupSymbolInModule((NSModule)lib, sym); + if (nss == NULL) { + lua_pushfstring(L, "symbol " LUA_QS " not found", sym); + return NULL; + } + return (lua_CFunction)NSAddressOfSymbol(nss); +} + +/* }====================================================== */ + + + +#else +/* +** {====================================================== +** Fallback for other systems +** ======================================================= +*/ + +#undef LIB_FAIL +#define LIB_FAIL "absent" + + +#define DLMSG "dynamic libraries not enabled; check your Lua installation" + + +static void ll_unloadlib (void *lib) { + (void)lib; /* to avoid warnings */ +} + + +static void *ll_load (lua_State *L, const char *path) { + (void)path; /* to avoid warnings */ + lua_pushliteral(L, DLMSG); + return NULL; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + (void)lib; (void)sym; /* to avoid warnings */ + lua_pushliteral(L, DLMSG); + return NULL; +} + +/* }====================================================== */ +#endif + + + +static void **ll_register (lua_State *L, const char *path) { + void **plib; + lua_pushfstring(L, "%s%s", LIBPREFIX, path); + lua_gettable(L, LUA_REGISTRYINDEX); /* check library in registry? */ + if (!lua_isnil(L, -1)) /* is there an entry? */ + plib = (void **)lua_touserdata(L, -1); + else { /* no entry yet; create one */ + lua_pop(L, 1); + plib = (void **)lua_newuserdata(L, sizeof(const void *)); + *plib = NULL; + luaL_getmetatable(L, "_LOADLIB"); + lua_setmetatable(L, -2); + lua_pushfstring(L, "%s%s", LIBPREFIX, path); + lua_pushvalue(L, -2); + lua_settable(L, LUA_REGISTRYINDEX); + } + return plib; +} + + +/* +** __gc tag method: calls library's `ll_unloadlib' function with the lib +** handle +*/ +static int gctm (lua_State *L) { + void **lib = (void **)luaL_checkudata(L, 1, "_LOADLIB"); + if (*lib) ll_unloadlib(*lib); + *lib = NULL; /* mark library as closed */ + return 0; +} + + +static int ll_loadfunc (lua_State *L, const char *path, const char *sym) { + void **reg = ll_register(L, path); + if (*reg == NULL) *reg = ll_load(L, path); + if (*reg == NULL) + return ERRLIB; /* unable to load library */ + else { + lua_CFunction f = ll_sym(L, *reg, sym); + if (f == NULL) + return ERRFUNC; /* unable to find function */ + lua_pushcfunction(L, f); + return 0; /* return function */ + } +} + + +static int ll_loadlib (lua_State *L) { + const char *path = luaL_checkstring(L, 1); + const char *init = luaL_checkstring(L, 2); + int stat = ll_loadfunc(L, path, init); + if (stat == 0) /* no errors? */ + return 1; /* return the loaded function */ + else { /* error; error message is on stack top */ + lua_pushnil(L); + lua_insert(L, -2); + lua_pushstring(L, (stat == ERRLIB) ? LIB_FAIL : "init"); + return 3; /* return nil, error message, and where */ + } +} + + + +/* +** {====================================================== +** 'require' function +** ======================================================= +*/ + + +static int readable (const char *filename) { + FILE *f = fopen(filename, "r"); /* try to open file */ + if (f == NULL) return 0; /* open failed */ + fclose(f); + return 1; +} + + +static const char *pushnexttemplate (lua_State *L, const char *path) { + const char *l; + while (*path == *LUA_PATHSEP) path++; /* skip separators */ + if (*path == '\0') return NULL; /* no more templates */ + l = strchr(path, *LUA_PATHSEP); /* find next separator */ + if (l == NULL) l = path + strlen(path); + lua_pushlstring(L, path, l - path); /* template */ + return l; +} + + +static const char *findfile (lua_State *L, const char *name, + const char *pname) { + const char *path; + name = luaL_gsub(L, name, ".", LUA_DIRSEP); + lua_getfield(L, LUA_ENVIRONINDEX, pname); + path = lua_tostring(L, -1); + if (path == NULL) + luaL_error(L, LUA_QL("package.%s") " must be a string", pname); + lua_pushliteral(L, ""); /* error accumulator */ + while ((path = pushnexttemplate(L, path)) != NULL) { + const char *filename; + filename = luaL_gsub(L, lua_tostring(L, -1), LUA_PATH_MARK, name); + lua_remove(L, -2); /* remove path template */ + if (readable(filename)) /* does file exist and is readable? */ + return filename; /* return that file name */ + lua_pushfstring(L, "\n\tno file " LUA_QS, filename); + lua_remove(L, -2); /* remove file name */ + lua_concat(L, 2); /* add entry to possible error message */ + } + return NULL; /* not found */ +} + + +static void loaderror (lua_State *L, const char *filename) { + luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s", + lua_tostring(L, 1), filename, lua_tostring(L, -1)); +} + + +static int loader_Lua (lua_State *L) { + const char *filename; + const char *name = luaL_checkstring(L, 1); + filename = findfile(L, name, "path"); + if (filename == NULL) return 1; /* library not found in this path */ + if (luaL_loadfile(L, filename) != 0) + loaderror(L, filename); + /* not useful to JIT compile main chunk of a module */ + luaJIT_setmode(L, -1, LUAJIT_MODE_FUNC|LUAJIT_MODE_OFF); + return 1; /* library loaded successfully */ +} + + +static const char *mkfuncname (lua_State *L, const char *modname) { + const char *funcname; + const char *mark = strchr(modname, *LUA_IGMARK); + if (mark) modname = mark + 1; + funcname = luaL_gsub(L, modname, ".", LUA_OFSEP); + funcname = lua_pushfstring(L, POF"%s", funcname); + lua_remove(L, -2); /* remove 'gsub' result */ + return funcname; +} + + +static int loader_C (lua_State *L) { + const char *funcname; + const char *name = luaL_checkstring(L, 1); + const char *filename = findfile(L, name, "cpath"); + if (filename == NULL) return 1; /* library not found in this path */ + funcname = mkfuncname(L, name); + if (ll_loadfunc(L, filename, funcname) != 0) + loaderror(L, filename); + return 1; /* library loaded successfully */ +} + + +static int loader_Croot (lua_State *L) { + const char *funcname; + const char *filename; + const char *name = luaL_checkstring(L, 1); + const char *p = strchr(name, '.'); + int stat; + if (p == NULL) return 0; /* is root */ + lua_pushlstring(L, name, p - name); + filename = findfile(L, lua_tostring(L, -1), "cpath"); + if (filename == NULL) return 1; /* root not found */ + funcname = mkfuncname(L, name); + if ((stat = ll_loadfunc(L, filename, funcname)) != 0) { + if (stat != ERRFUNC) loaderror(L, filename); /* real error */ + lua_pushfstring(L, "\n\tno module " LUA_QS " in file " LUA_QS, + name, filename); + return 1; /* function not found */ + } + return 1; +} + + +static int loader_preload (lua_State *L) { + const char *name = luaL_checkstring(L, 1); + lua_getfield(L, LUA_ENVIRONINDEX, "preload"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.preload") " must be a table"); + lua_getfield(L, -1, name); + if (lua_isnil(L, -1)) /* not found? */ + lua_pushfstring(L, "\n\tno field package.preload['%s']", name); + return 1; +} + + +static const int sentinel_ = 0; +#define sentinel ((void *)&sentinel_) + + +static int ll_require (lua_State *L) { + const char *name = luaL_checkstring(L, 1); + int i; + lua_settop(L, 1); /* _LOADED table will be at index 2 */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, 2, name); + if (lua_toboolean(L, -1)) { /* is it there? */ + if (lua_touserdata(L, -1) == sentinel) /* check loops */ + luaL_error(L, "loop or previous error loading module " LUA_QS, name); + return 1; /* package is already loaded */ + } + /* else must load it; iterate over available loaders */ + lua_getfield(L, LUA_ENVIRONINDEX, "loaders"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.loaders") " must be a table"); + lua_pushliteral(L, ""); /* error message accumulator */ + for (i=1; ; i++) { + lua_rawgeti(L, -2, i); /* get a loader */ + if (lua_isnil(L, -1)) + luaL_error(L, "module " LUA_QS " not found:%s", + name, lua_tostring(L, -2)); + lua_pushstring(L, name); + lua_call(L, 1, 1); /* call it */ + if (lua_isfunction(L, -1)) /* did it find module? */ + break; /* module loaded successfully */ + else if (lua_isstring(L, -1)) /* loader returned error message? */ + lua_concat(L, 2); /* accumulate it */ + else + lua_pop(L, 1); + } + lua_pushlightuserdata(L, sentinel); + lua_setfield(L, 2, name); /* _LOADED[name] = sentinel */ + lua_pushstring(L, name); /* pass name as argument to module */ + lua_call(L, 1, 1); /* run loaded module */ + if (!lua_isnil(L, -1)) /* non-nil return? */ + lua_setfield(L, 2, name); /* _LOADED[name] = returned value */ + lua_getfield(L, 2, name); + if (lua_touserdata(L, -1) == sentinel) { /* module did not set a value? */ + lua_pushboolean(L, 1); /* use true as result */ + lua_pushvalue(L, -1); /* extra copy to be returned */ + lua_setfield(L, 2, name); /* _LOADED[name] = true */ + } + return 1; +} + +/* }====================================================== */ + + + +/* +** {====================================================== +** 'module' function +** ======================================================= +*/ + + +static void setfenv (lua_State *L) { + lua_Debug ar; + if (lua_getstack(L, 1, &ar) == 0 || + lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ + lua_iscfunction(L, -1)) + luaL_error(L, LUA_QL("module") " not called from a Lua function"); + lua_pushvalue(L, -2); + lua_setfenv(L, -2); + lua_pop(L, 1); +} + + +static void dooptions (lua_State *L, int n) { + int i; + for (i = 2; i <= n; i++) { + lua_pushvalue(L, i); /* get option (a function) */ + lua_pushvalue(L, -2); /* module */ + lua_call(L, 1, 0); + } +} + + +static void modinit (lua_State *L, const char *modname) { + const char *dot; + lua_pushvalue(L, -1); + lua_setfield(L, -2, "_M"); /* module._M = module */ + lua_pushstring(L, modname); + lua_setfield(L, -2, "_NAME"); + dot = strrchr(modname, '.'); /* look for last dot in module name */ + if (dot == NULL) dot = modname; + else dot++; + /* set _PACKAGE as package name (full module name minus last part) */ + lua_pushlstring(L, modname, dot - modname); + lua_setfield(L, -2, "_PACKAGE"); +} + + +static int ll_module (lua_State *L) { + const char *modname = luaL_checkstring(L, 1); + int loaded = lua_gettop(L) + 1; /* index of _LOADED table */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, loaded, modname); /* get _LOADED[modname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, modname, 1) != NULL) + return luaL_error(L, "name conflict for module " LUA_QS, modname); + lua_pushvalue(L, -1); + lua_setfield(L, loaded, modname); /* _LOADED[modname] = new table */ + } + /* check whether table already has a _NAME field */ + lua_getfield(L, -1, "_NAME"); + if (!lua_isnil(L, -1)) /* is table an initialized module? */ + lua_pop(L, 1); + else { /* no; initialize it */ + lua_pop(L, 1); + modinit(L, modname); + } + lua_pushvalue(L, -1); + setfenv(L); + dooptions(L, loaded - 1); + return 0; +} + + +static int ll_seeall (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + if (!lua_getmetatable(L, 1)) { + lua_createtable(L, 0, 1); /* create new metatable */ + lua_pushvalue(L, -1); + lua_setmetatable(L, 1); + } + lua_pushvalue(L, LUA_GLOBALSINDEX); + lua_setfield(L, -2, "__index"); /* mt.__index = _G */ + return 0; +} + + +/* }====================================================== */ + + + +/* auxiliary mark (for internal use) */ +#define AUXMARK "\1" + +static void setpath (lua_State *L, const char *fieldname, const char *envname, + const char *def) { + const char *path = getenv(envname); + if (path == NULL) /* no environment variable? */ + lua_pushstring(L, def); /* use default */ + else { + /* replace ";;" by ";AUXMARK;" and then AUXMARK by default path */ + path = luaL_gsub(L, path, LUA_PATHSEP LUA_PATHSEP, + LUA_PATHSEP AUXMARK LUA_PATHSEP); + luaL_gsub(L, path, AUXMARK, def); + lua_remove(L, -2); + } + setprogdir(L); + lua_setfield(L, -2, fieldname); +} + + +static const luaL_Reg pk_funcs[] = { + {"loadlib", ll_loadlib}, + {"seeall", ll_seeall}, + {NULL, NULL} +}; + + +static const luaL_Reg ll_funcs[] = { + {"module", ll_module}, + {"require", ll_require}, + {NULL, NULL} +}; + + +static const lua_CFunction loaders[] = + {loader_preload, loader_Lua, loader_C, loader_Croot, NULL}; + + +LUALIB_API int luaopen_package (lua_State *L) { + int i; + /* create new type _LOADLIB */ + luaL_newmetatable(L, "_LOADLIB"); + lua_pushcfunction(L, gctm); + lua_setfield(L, -2, "__gc"); + /* create `package' table */ + luaL_register(L, LUA_LOADLIBNAME, pk_funcs); +#if defined(LUA_COMPAT_LOADLIB) + lua_getfield(L, -1, "loadlib"); + lua_setfield(L, LUA_GLOBALSINDEX, "loadlib"); +#endif + lua_pushvalue(L, -1); + lua_replace(L, LUA_ENVIRONINDEX); + /* create `loaders' table */ + lua_createtable(L, sizeof(loaders)/sizeof(loaders[0]) - 1, 0); + /* fill it with pre-defined loaders */ + for (i=0; loaders[i] != NULL; i++) { + lua_pushcfunction(L, loaders[i]); + lua_rawseti(L, -2, i+1); + } + lua_setfield(L, -2, "loaders"); /* put it in field `loaders' */ + setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT); /* set field `path' */ + setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT); /* set field `cpath' */ + /* store config information */ + lua_pushliteral(L, LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" + LUA_EXECDIR "\n" LUA_IGMARK); + lua_setfield(L, -2, "config"); + /* set field `loaded' */ + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 2); + lua_setfield(L, -2, "loaded"); + /* set field `preload' */ + lua_newtable(L); + lua_setfield(L, -2, "preload"); + lua_pushvalue(L, LUA_GLOBALSINDEX); + luaL_register(L, NULL, ll_funcs); /* open lib into global table */ + lua_pop(L, 1); + return 1; /* return 'package' table */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lobject.c b/src/3rd party/LuaJIT-1.1.8/src/lobject.c new file mode 100644 index 00000000000..4ff50732a4a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lobject.c @@ -0,0 +1,214 @@ +/* +** $Id: lobject.c,v 2.22.1.1 2007/12/27 13:02:25 roberto Exp $ +** Some generic functions over Lua objects +** See Copyright Notice in lua.h +*/ + +#include +#include +#include +#include +#include + +#define lobject_c +#define LUA_CORE + +#include "lua.h" + +#include "ldo.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "lvm.h" + + + +const TValue luaO_nilobject_ = {{NULL}, LUA_TNIL}; + + +/* +** converts an integer to a "floating point byte", represented as +** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if +** eeeee != 0 and (xxx) otherwise. +*/ +int luaO_int2fb (unsigned int x) { + int e = 0; /* expoent */ + while (x >= 16) { + x = (x+1) >> 1; + e++; + } + if (x < 8) return x; + else return ((e+1) << 3) | (cast_int(x) - 8); +} + + +/* converts back */ +int luaO_fb2int (int x) { + int e = (x >> 3) & 31; + if (e == 0) return x; + else return ((x & 7)+8) << (e - 1); +} + + +int luaO_log2 (unsigned int x) { + static const lu_byte log_2[256] = { + 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, + 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, + 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, + 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 + }; + int l = -1; + while (x >= 256) { l += 8; x >>= 8; } + return l + log_2[x]; + +} + + +int luaO_rawequalObj (const TValue *t1, const TValue *t2) { + if (ttype(t1) != ttype(t2)) return 0; + else switch (ttype(t1)) { + case LUA_TNIL: + return 1; + case LUA_TNUMBER: + return luai_numeq(nvalue(t1), nvalue(t2)); + case LUA_TBOOLEAN: + return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */ + case LUA_TLIGHTUSERDATA: + return pvalue(t1) == pvalue(t2); + default: + lua_assert(iscollectable(t1)); + return gcvalue(t1) == gcvalue(t2); + } +} + + +int luaO_str2d (const char *s, lua_Number *result) { + char *endptr; + *result = lua_str2number(s, &endptr); + if (endptr == s) return 0; /* conversion failed */ + if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */ + *result = cast_num(strtoul(s, &endptr, 16)); + if (*endptr == '\0') return 1; /* most common case */ + while (isspace(cast(unsigned char, *endptr))) endptr++; + if (*endptr != '\0') return 0; /* invalid trailing characters? */ + return 1; +} + + + +static void pushstr (lua_State *L, const char *str) { + setsvalue2s(L, L->top, luaS_new(L, str)); + incr_top(L); +} + + +/* this function handles only `%d', `%c', %f, %p, and `%s' formats */ +const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { + int n = 1; + pushstr(L, ""); + for (;;) { + const char *e = strchr(fmt, '%'); + if (e == NULL) break; + setsvalue2s(L, L->top, luaS_newlstr(L, fmt, e-fmt)); + incr_top(L); + switch (*(e+1)) { + case 's': { + const char *s = va_arg(argp, char *); + if (s == NULL) s = "(null)"; + pushstr(L, s); + break; + } + case 'c': { + char buff[2]; + buff[0] = cast(char, va_arg(argp, int)); + buff[1] = '\0'; + pushstr(L, buff); + break; + } + case 'd': { + setnvalue(L->top, cast_num(va_arg(argp, int))); + incr_top(L); + break; + } + case 'f': { + setnvalue(L->top, cast_num(va_arg(argp, l_uacNumber))); + incr_top(L); + break; + } + case 'p': { + char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */ + sprintf(buff, "%p", va_arg(argp, void *)); + pushstr(L, buff); + break; + } + case '%': { + pushstr(L, "%"); + break; + } + default: { + char buff[3]; + buff[0] = '%'; + buff[1] = *(e+1); + buff[2] = '\0'; + pushstr(L, buff); + break; + } + } + n += 2; + fmt = e+2; + } + pushstr(L, fmt); + luaV_concat(L, n+1, cast_int(L->top - L->base) - 1); + L->top -= n; + return svalue(L->top - 1); +} + + +const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) { + const char *msg; + va_list argp; + va_start(argp, fmt); + msg = luaO_pushvfstring(L, fmt, argp); + va_end(argp); + return msg; +} + + +void luaO_chunkid (char *out, const char *source, size_t bufflen) { + if (*source == '=') { + strncpy(out, source+1, bufflen); /* remove first char */ + out[bufflen-1] = '\0'; /* ensures null termination */ + } + else { /* out = "source", or "...source" */ + if (*source == '@') { + size_t l; + source++; /* skip the `@' */ + bufflen -= sizeof(" '...' "); + l = strlen(source); + strcpy(out, ""); + if (l > bufflen) { + source += (l-bufflen); /* get last part of file name */ + strcat(out, "..."); + } + strcat(out, source); + } + else { /* out = [string "string"] */ + size_t len = strcspn(source, "\n\r"); /* stop at first newline */ + bufflen -= sizeof(" [string \"...\"] "); + if (len > bufflen) len = bufflen; + strcpy(out, "[string \""); + if (source[len] != '\0') { /* must truncate? */ + strncat(out, source, len); + strcat(out, "..."); + } + else + strcat(out, source); + strcat(out, "\"]"); + } + } +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lobject.h b/src/3rd party/LuaJIT-1.1.8/src/lobject.h new file mode 100644 index 00000000000..df9c528d9cb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lobject.h @@ -0,0 +1,386 @@ +/* +** $Id: lobject.h,v 2.20.1.2 2008/08/06 13:29:48 roberto Exp $ +** Type definitions for Lua objects +** See Copyright Notice in lua.h +*/ + + +#ifndef lobject_h +#define lobject_h + + +#include + + +#include "llimits.h" +#include "lua.h" + + +/* tags for values visible from Lua */ +#define LAST_TAG LUA_TTHREAD + +#define NUM_TAGS (LAST_TAG+1) + + +/* +** Extra tags for non-values +*/ +#define LUA_TPROTO (LAST_TAG+1) +#define LUA_TUPVAL (LAST_TAG+2) +#define LUA_TDEADKEY (LAST_TAG+3) + + +/* +** Union of all collectable objects +*/ +typedef union GCObject GCObject; + + +/* +** Common Header for all collectable objects (in macro form, to be +** included in other objects) +*/ +#define CommonHeader GCObject *next; lu_byte tt; lu_byte marked + + +/* +** Common header in struct form +*/ +typedef struct GCheader { + CommonHeader; +} GCheader; + + + + +/* +** Union of all Lua values +*/ +typedef union { + GCObject *gc; + void *p; + lua_Number n; + ptrdiff_t na[sizeof(lua_Number)/sizeof(ptrdiff_t)]; /* LuaJIT kludge */ + int b; +} Value; + + +/* +** Tagged Values +*/ + +#define TValuefields Value value; int tt + +typedef struct lua_TValue { + TValuefields; +} LUA_TVALUE_ALIGN TValue; + + +/* Macros to test type */ +#define ttisnil(o) (ttype(o) == LUA_TNIL) +#define ttisnumber(o) (ttype(o) == LUA_TNUMBER) +#define ttisstring(o) (ttype(o) == LUA_TSTRING) +#define ttistable(o) (ttype(o) == LUA_TTABLE) +#define ttisfunction(o) (ttype(o) == LUA_TFUNCTION) +#define ttisboolean(o) (ttype(o) == LUA_TBOOLEAN) +#define ttisuserdata(o) (ttype(o) == LUA_TUSERDATA) +#define ttisthread(o) (ttype(o) == LUA_TTHREAD) +#define ttislightuserdata(o) (ttype(o) == LUA_TLIGHTUSERDATA) + +/* Macros to access values */ +#define ttype(o) ((o)->tt) +#define gcvalue(o) check_exp(iscollectable(o), (o)->value.gc) +#define pvalue(o) check_exp(ttislightuserdata(o), (o)->value.p) +#define nvalue(o) check_exp(ttisnumber(o), (o)->value.n) +#define rawtsvalue(o) check_exp(ttisstring(o), &(o)->value.gc->ts) +#define tsvalue(o) (&rawtsvalue(o)->tsv) +#define rawuvalue(o) check_exp(ttisuserdata(o), &(o)->value.gc->u) +#define uvalue(o) (&rawuvalue(o)->uv) +#define clvalue(o) check_exp(ttisfunction(o), &(o)->value.gc->cl) +#define hvalue(o) check_exp(ttistable(o), &(o)->value.gc->h) +#define bvalue(o) check_exp(ttisboolean(o), (o)->value.b) +#define thvalue(o) check_exp(ttisthread(o), &(o)->value.gc->th) + +#define l_isfalse(o) (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) + +/* +** for internal debug only +*/ +#define checkconsistency(obj) \ + lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt)) + +#define checkliveness(g,obj) \ + lua_assert(!iscollectable(obj) || \ + ((ttype(obj) == (obj)->value.gc->gch.tt) && !isdead(g, (obj)->value.gc))) + + +/* Macros to set values */ +#define setnilvalue(obj) ((obj)->tt=LUA_TNIL) + +#define setnvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.n=(x); i_o->tt=LUA_TNUMBER; } + +#define setpvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; } + +#define setbvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.b=(x); i_o->tt=LUA_TBOOLEAN; } + +#define setsvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TSTRING; \ + checkliveness(G(L),i_o); } + +#define setuvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TUSERDATA; \ + checkliveness(G(L),i_o); } + +#define setthvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTHREAD; \ + checkliveness(G(L),i_o); } + +#define setclvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TFUNCTION; \ + checkliveness(G(L),i_o); } + +#define sethvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTABLE; \ + checkliveness(G(L),i_o); } + +#define setptvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \ + checkliveness(G(L),i_o); } + + + + +#define setobj(L,obj1,obj2) \ + { const TValue *o2=(obj2); TValue *o1=(obj1); \ + o1->value = o2->value; o1->tt=o2->tt; \ + checkliveness(G(L),o1); } + + +/* +** different types of sets, according to destination +*/ + +/* from stack to (same) stack */ +#define setobjs2s setobj +/* to stack (not from same stack) */ +#define setobj2s setobj +#define setsvalue2s setsvalue +#define sethvalue2s sethvalue +#define setptvalue2s setptvalue +/* from table to same table */ +#define setobjt2t setobj +/* to table */ +#define setobj2t setobj +/* to new object */ +#define setobj2n setobj +#define setsvalue2n setsvalue + +#define setttype(obj, tt) (ttype(obj) = (tt)) + + +#define iscollectable(o) (ttype(o) >= LUA_TSTRING) + + + +typedef TValue *StkId; /* index to stack elements */ + + +/* +** String headers for string table +*/ +typedef union TString { + L_Umaxalign dummy; /* ensures maximum alignment for strings */ + struct { + CommonHeader; + lu_byte reserved; + unsigned int hash; + size_t len; + } tsv; +} TString; + + +#define getstr(ts) cast(const char *, (ts) + 1) +#define svalue(o) getstr(rawtsvalue(o)) + + + +typedef union Udata { + L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */ + struct { + CommonHeader; + struct Table *metatable; + struct Table *env; + size_t len; + } uv; +} Udata; + + + + +/* +** Function Prototypes +*/ +typedef struct Proto { + CommonHeader; + TValue *k; /* constants used by the function */ + Instruction *code; + struct Proto **p; /* functions defined inside the function */ + int *lineinfo; /* map from opcodes to source lines */ + struct LocVar *locvars; /* information about local variables */ + TString **upvalues; /* upvalue names */ + TString *source; + int sizeupvalues; + int sizek; /* size of `k' */ + int sizecode; + int sizelineinfo; + int sizep; /* size of `p' */ + int sizelocvars; + int linedefined; + int lastlinedefined; + GCObject *gclist; + lu_byte nups; /* number of upvalues */ + lu_byte numparams; + lu_byte is_vararg; + lu_byte maxstacksize; + /* LuaJIT extensions */ + void *jit_mcode; /* compiled machine code base address */ + size_t jit_szmcode; /* size of compiled mcode */ + int jit_status; /* JIT engine status code */ +} Proto; + + +/* masks for new-style vararg */ +#define VARARG_HASARG 1 +#define VARARG_ISVARARG 2 +#define VARARG_NEEDSARG 4 + + +typedef struct LocVar { + TString *varname; + int startpc; /* first point where variable is active */ + int endpc; /* first point where variable is dead */ +} LocVar; + + + +/* +** Upvalues +*/ + +typedef struct UpVal { + CommonHeader; + TValue *v; /* points to stack or to its own value */ + union { + TValue value; /* the value (when closed) */ + struct { /* double linked list (when open) */ + struct UpVal *prev; + struct UpVal *next; + } l; + } u; +} UpVal; + + +/* +** Closures +*/ + +#define ClosureHeader \ + CommonHeader; lu_byte isC; lu_byte nupvalues; GCObject *gclist; \ + struct Table *env; lua_CFunction jit_gate + +typedef struct CClosure { + ClosureHeader; + lua_CFunction f; + TValue upvalue[1]; +} CClosure; + + +typedef struct LClosure { + ClosureHeader; + struct Proto *p; + UpVal *upvals[1]; +} LClosure; + + +typedef union Closure { + CClosure c; + LClosure l; +} Closure; + + +#define iscfunction(o) (ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC) +#define isLfunction(o) (ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC) + + +/* +** Tables +*/ + +typedef union TKey { + struct { + TValuefields; + struct Node *next; /* for chaining */ + } nk; + TValue tvk; +} TKey; + + +typedef struct Node { + TValue i_val; + TKey i_key; +} Node; + + +typedef struct Table { + CommonHeader; + lu_byte flags; /* 1<

lsizenode)) + + +#define luaO_nilobject (&luaO_nilobject_) + +LUAI_DATA const TValue luaO_nilobject_; + +#define ceillog2(x) (luaO_log2((x)-1) + 1) + +LUAI_FUNC int luaO_log2 (unsigned int x); +LUAI_FUNC int luaO_int2fb (unsigned int x); +LUAI_FUNC int luaO_fb2int (int x); +LUAI_FUNC int luaO_rawequalObj (const TValue *t1, const TValue *t2); +LUAI_FUNC int luaO_str2d (const char *s, lua_Number *result); +LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt, + va_list argp); +LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...); +LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t len); + + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c new file mode 100644 index 00000000000..4cc745230b7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c @@ -0,0 +1,102 @@ +/* +** $Id: lopcodes.c,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $ +** See Copyright Notice in lua.h +*/ + + +#define lopcodes_c +#define LUA_CORE + + +#include "lopcodes.h" + + +/* ORDER OP */ + +const char *const luaP_opnames[NUM_OPCODES+1] = { + "MOVE", + "LOADK", + "LOADBOOL", + "LOADNIL", + "GETUPVAL", + "GETGLOBAL", + "GETTABLE", + "SETGLOBAL", + "SETUPVAL", + "SETTABLE", + "NEWTABLE", + "SELF", + "ADD", + "SUB", + "MUL", + "DIV", + "MOD", + "POW", + "UNM", + "NOT", + "LEN", + "CONCAT", + "JMP", + "EQ", + "LT", + "LE", + "TEST", + "TESTSET", + "CALL", + "TAILCALL", + "RETURN", + "FORLOOP", + "FORPREP", + "TFORLOOP", + "SETLIST", + "CLOSE", + "CLOSURE", + "VARARG", + NULL +}; + + +#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m)) + +const lu_byte luaP_opmodes[NUM_OPCODES] = { +/* T A B C mode opcode */ + opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_MOVE */ + ,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_LOADK */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_LOADBOOL */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LOADNIL */ + ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_GETUPVAL */ + ,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_GETGLOBAL */ + ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_GETTABLE */ + ,opmode(0, 0, OpArgK, OpArgN, iABx) /* OP_SETGLOBAL */ + ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_SETUPVAL */ + ,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABLE */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_NEWTABLE */ + ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_SELF */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_ADD */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_SUB */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MUL */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_DIV */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MOD */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_POW */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_UNM */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_NOT */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LEN */ + ,opmode(0, 1, OpArgR, OpArgR, iABC) /* OP_CONCAT */ + ,opmode(0, 0, OpArgR, OpArgN, iAsBx) /* OP_JMP */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_EQ */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LT */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LE */ + ,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TEST */ + ,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TESTSET */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_CALL */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_TAILCALL */ + ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_RETURN */ + ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORLOOP */ + ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORPREP */ + ,opmode(1, 0, OpArgN, OpArgU, iABC) /* OP_TFORLOOP */ + ,opmode(0, 0, OpArgU, OpArgU, iABC) /* OP_SETLIST */ + ,opmode(0, 0, OpArgN, OpArgN, iABC) /* OP_CLOSE */ + ,opmode(0, 1, OpArgU, OpArgN, iABx) /* OP_CLOSURE */ + ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_VARARG */ +}; + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h new file mode 100644 index 00000000000..41224d6ee14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h @@ -0,0 +1,268 @@ +/* +** $Id: lopcodes.h,v 1.125.1.1 2007/12/27 13:02:25 roberto Exp $ +** Opcodes for Lua virtual machine +** See Copyright Notice in lua.h +*/ + +#ifndef lopcodes_h +#define lopcodes_h + +#include "llimits.h" + + +/*=========================================================================== + We assume that instructions are unsigned numbers. + All instructions have an opcode in the first 6 bits. + Instructions can have the following fields: + `A' : 8 bits + `B' : 9 bits + `C' : 9 bits + `Bx' : 18 bits (`B' and `C' together) + `sBx' : signed Bx + + A signed argument is represented in excess K; that is, the number + value is the unsigned value minus K. K is exactly the maximum value + for that argument (so that -max is represented by 0, and +max is + represented by 2*max), which is half the maximum for the corresponding + unsigned argument. +===========================================================================*/ + + +enum OpMode {iABC, iABx, iAsBx}; /* basic instruction format */ + + +/* +** size and position of opcode arguments. +*/ +#define SIZE_C 9 +#define SIZE_B 9 +#define SIZE_Bx (SIZE_C + SIZE_B) +#define SIZE_A 8 + +#define SIZE_OP 6 + +#define POS_OP 0 +#define POS_A (POS_OP + SIZE_OP) +#define POS_C (POS_A + SIZE_A) +#define POS_B (POS_C + SIZE_C) +#define POS_Bx POS_C + + +/* +** limits for opcode arguments. +** we use (signed) int to manipulate most arguments, +** so they must fit in LUAI_BITSINT-1 bits (-1 for sign) +*/ +#if SIZE_Bx < LUAI_BITSINT-1 +#define MAXARG_Bx ((1<>1) /* `sBx' is signed */ +#else +#define MAXARG_Bx MAX_INT +#define MAXARG_sBx MAX_INT +#endif + + +#define MAXARG_A ((1<>POS_OP) & MASK1(SIZE_OP,0))) +#define SET_OPCODE(i,o) ((i) = (((i)&MASK0(SIZE_OP,POS_OP)) | \ + ((cast(Instruction, o)<>POS_A) & MASK1(SIZE_A,0))) +#define SETARG_A(i,u) ((i) = (((i)&MASK0(SIZE_A,POS_A)) | \ + ((cast(Instruction, u)<>POS_B) & MASK1(SIZE_B,0))) +#define SETARG_B(i,b) ((i) = (((i)&MASK0(SIZE_B,POS_B)) | \ + ((cast(Instruction, b)<>POS_C) & MASK1(SIZE_C,0))) +#define SETARG_C(i,b) ((i) = (((i)&MASK0(SIZE_C,POS_C)) | \ + ((cast(Instruction, b)<>POS_Bx) & MASK1(SIZE_Bx,0))) +#define SETARG_Bx(i,b) ((i) = (((i)&MASK0(SIZE_Bx,POS_Bx)) | \ + ((cast(Instruction, b)< C) then pc++ */ +OP_TESTSET,/* A B C if (R(B) <=> C) then R(A) := R(B) else pc++ */ + +OP_CALL,/* A B C R(A), ... ,R(A+C-2) := R(A)(R(A+1), ... ,R(A+B-1)) */ +OP_TAILCALL,/* A B C return R(A)(R(A+1), ... ,R(A+B-1)) */ +OP_RETURN,/* A B return R(A), ... ,R(A+B-2) (see note) */ + +OP_FORLOOP,/* A sBx R(A)+=R(A+2); + if R(A) =) R(A)*/ +OP_CLOSURE,/* A Bx R(A) := closure(KPROTO[Bx], R(A), ... ,R(A+n)) */ + +OP_VARARG/* A B R(A), R(A+1), ..., R(A+B-1) = vararg */ +} OpCode; + + +#define NUM_OPCODES (cast(int, OP_VARARG) + 1) + + + +/*=========================================================================== + Notes: + (*) In OP_CALL, if (B == 0) then B = top. C is the number of returns - 1, + and can be 0: OP_CALL then sets `top' to last_result+1, so + next open instruction (OP_CALL, OP_RETURN, OP_SETLIST) may use `top'. + + (*) In OP_VARARG, if (B == 0) then use actual number of varargs and + set top (like in OP_CALL with C == 0). + + (*) In OP_RETURN, if (B == 0) then return up to `top' + + (*) In OP_SETLIST, if (B == 0) then B = `top'; + if (C == 0) then next `instruction' is real C + + (*) For comparisons, A specifies what condition the test should accept + (true or false). + + (*) All `skips' (pc++) assume that next instruction is a jump +===========================================================================*/ + + +/* +** masks for instruction properties. The format is: +** bits 0-1: op mode +** bits 2-3: C arg mode +** bits 4-5: B arg mode +** bit 6: instruction set register A +** bit 7: operator is a test +*/ + +enum OpArgMask { + OpArgN, /* argument is not used */ + OpArgU, /* argument is used */ + OpArgR, /* argument is a register or a jump offset */ + OpArgK /* argument is a constant or register/constant */ +}; + +LUAI_DATA const lu_byte luaP_opmodes[NUM_OPCODES]; + +#define getOpMode(m) (cast(enum OpMode, luaP_opmodes[m] & 3)) +#define getBMode(m) (cast(enum OpArgMask, (luaP_opmodes[m] >> 4) & 3)) +#define getCMode(m) (cast(enum OpArgMask, (luaP_opmodes[m] >> 2) & 3)) +#define testAMode(m) (luaP_opmodes[m] & (1 << 6)) +#define testTMode(m) (luaP_opmodes[m] & (1 << 7)) + + +LUAI_DATA const char *const luaP_opnames[NUM_OPCODES+1]; /* opcode names */ + + +/* number of list items to accumulate before a SETLIST instruction */ +#define LFIELDS_PER_FLUSH 50 + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/loslib.c b/src/3rd party/LuaJIT-1.1.8/src/loslib.c new file mode 100644 index 00000000000..01a02a28c14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/loslib.c @@ -0,0 +1,244 @@ +/* +** $Id: loslib.c,v 1.19.1.3 2008/01/18 16:38:18 roberto Exp $ +** Standard Operating System library +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include + +#define loslib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +static int os_pushresult (lua_State *L, int i, const char *filename) { + int en = errno; /* calls to Lua API may change this value */ + if (i) { + lua_pushboolean(L, 1); + return 1; + } + else { + lua_pushnil(L); + lua_pushfstring(L, "%s: %s", filename, strerror(en)); + lua_pushinteger(L, en); + return 3; + } +} + + +static int os_execute (lua_State *L) { + lua_pushinteger(L, system(luaL_optstring(L, 1, NULL))); + return 1; +} + + +static int os_remove (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + return os_pushresult(L, remove(filename) == 0, filename); +} + + +static int os_rename (lua_State *L) { + const char *fromname = luaL_checkstring(L, 1); + const char *toname = luaL_checkstring(L, 2); + return os_pushresult(L, rename(fromname, toname) == 0, fromname); +} + + +static int os_tmpname (lua_State *L) { + char buff[LUA_TMPNAMBUFSIZE]; + int err; + lua_tmpnam(buff, err); + if (err) + return luaL_error(L, "unable to generate a unique filename"); + lua_pushstring(L, buff); + return 1; +} + + +static int os_getenv (lua_State *L) { + lua_pushstring(L, getenv(luaL_checkstring(L, 1))); /* if NULL push nil */ + return 1; +} + + +static int os_clock (lua_State *L) { + lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC); + return 1; +} + + +/* +** {====================================================== +** Time/Date operations +** { year=%Y, month=%m, day=%d, hour=%H, min=%M, sec=%S, +** wday=%w+1, yday=%j, isdst=? } +** ======================================================= +*/ + +static void setfield (lua_State *L, const char *key, int value) { + lua_pushinteger(L, value); + lua_setfield(L, -2, key); +} + +static void setboolfield (lua_State *L, const char *key, int value) { + if (value < 0) /* undefined? */ + return; /* does not set field */ + lua_pushboolean(L, value); + lua_setfield(L, -2, key); +} + +static int getboolfield (lua_State *L, const char *key) { + int res; + lua_getfield(L, -1, key); + res = lua_isnil(L, -1) ? -1 : lua_toboolean(L, -1); + lua_pop(L, 1); + return res; +} + + +static int getfield (lua_State *L, const char *key, int d) { + int res; + lua_getfield(L, -1, key); + if (lua_isnumber(L, -1)) + res = (int)lua_tointeger(L, -1); + else { + if (d < 0) + return luaL_error(L, "field " LUA_QS " missing in date table", key); + res = d; + } + lua_pop(L, 1); + return res; +} + + +static int os_date (lua_State *L) { + const char *s = luaL_optstring(L, 1, "%c"); + time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); + struct tm *stm; + if (*s == '!') { /* UTC? */ + stm = gmtime(&t); + s++; /* skip `!' */ + } + else + stm = localtime(&t); + if (stm == NULL) /* invalid date? */ + lua_pushnil(L); + else if (strcmp(s, "*t") == 0) { + lua_createtable(L, 0, 9); /* 9 = number of fields */ + setfield(L, "sec", stm->tm_sec); + setfield(L, "min", stm->tm_min); + setfield(L, "hour", stm->tm_hour); + setfield(L, "day", stm->tm_mday); + setfield(L, "month", stm->tm_mon+1); + setfield(L, "year", stm->tm_year+1900); + setfield(L, "wday", stm->tm_wday+1); + setfield(L, "yday", stm->tm_yday+1); + setboolfield(L, "isdst", stm->tm_isdst); + } + else { + char cc[3]; + luaL_Buffer b; + cc[0] = '%'; cc[2] = '\0'; + luaL_buffinit(L, &b); + for (; *s; s++) { + if (*s != '%' || *(s + 1) == '\0') /* no conversion specifier? */ + luaL_addchar(&b, *s); + else { + size_t reslen; + char buff[200]; /* should be big enough for any conversion result */ + cc[1] = *(++s); + reslen = strftime(buff, sizeof(buff), cc, stm); + luaL_addlstring(&b, buff, reslen); + } + } + luaL_pushresult(&b); + } + return 1; +} + + +static int os_time (lua_State *L) { + time_t t; + if (lua_isnoneornil(L, 1)) /* called without args? */ + t = time(NULL); /* get current time */ + else { + struct tm ts; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 1); /* make sure table is at the top */ + ts.tm_sec = getfield(L, "sec", 0); + ts.tm_min = getfield(L, "min", 0); + ts.tm_hour = getfield(L, "hour", 12); + ts.tm_mday = getfield(L, "day", -1); + ts.tm_mon = getfield(L, "month", -1) - 1; + ts.tm_year = getfield(L, "year", -1) - 1900; + ts.tm_isdst = getboolfield(L, "isdst"); + t = mktime(&ts); + } + if (t == (time_t)(-1)) + lua_pushnil(L); + else + lua_pushnumber(L, (lua_Number)t); + return 1; +} + + +static int os_difftime (lua_State *L) { + lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)), + (time_t)(luaL_optnumber(L, 2, 0)))); + return 1; +} + +/* }====================================================== */ + + +static int os_setlocale (lua_State *L) { + static const int cat[] = {LC_ALL, LC_COLLATE, LC_CTYPE, LC_MONETARY, + LC_NUMERIC, LC_TIME}; + static const char *const catnames[] = {"all", "collate", "ctype", "monetary", + "numeric", "time", NULL}; + const char *l = luaL_optstring(L, 1, NULL); + int op = luaL_checkoption(L, 2, "all", catnames); + lua_pushstring(L, setlocale(cat[op], l)); + return 1; +} + + +static int os_exit (lua_State *L) { + exit(luaL_optint(L, 1, EXIT_SUCCESS)); + return 0; /* to avoid warnings */ +} + +static const luaL_Reg syslib[] = { + {"clock", os_clock}, + {"date", os_date}, + {"difftime", os_difftime}, + {"execute", os_execute}, + {"exit", os_exit}, + {"getenv", os_getenv}, + {"remove", os_remove}, + {"rename", os_rename}, + {"setlocale", os_setlocale}, + {"time", os_time}, + {"tmpname", os_tmpname}, + {NULL, NULL} +}; + +/* }====================================================== */ + + + +LUALIB_API int luaopen_os (lua_State *L) { + luaL_register(L, LUA_OSLIBNAME, syslib); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lparser.c b/src/3rd party/LuaJIT-1.1.8/src/lparser.c new file mode 100644 index 00000000000..dda7488dcad --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lparser.c @@ -0,0 +1,1339 @@ +/* +** $Id: lparser.c,v 2.42.1.4 2011/10/21 19:31:42 roberto Exp $ +** Lua Parser +** See Copyright Notice in lua.h +*/ + + +#include + +#define lparser_c +#define LUA_CORE + +#include "lua.h" + +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "llex.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" + + + +#define hasmultret(k) ((k) == VCALL || (k) == VVARARG) + +#define getlocvar(fs, i) ((fs)->f->locvars[(fs)->actvar[i]]) + +#define luaY_checklimit(fs,v,l,m) if ((v)>(l)) errorlimit(fs,l,m) + + +/* +** nodes for block list (list of active blocks) +*/ +typedef struct BlockCnt { + struct BlockCnt *previous; /* chain */ + int breaklist; /* list of jumps out of this loop */ + lu_byte nactvar; /* # active locals outside the breakable structure */ + lu_byte upval; /* true if some variable in the block is an upvalue */ + lu_byte isbreakable; /* true if `block' is a loop */ +} BlockCnt; + + + +/* +** prototypes for recursive non-terminal functions +*/ +static void chunk (LexState *ls); +static void expr (LexState *ls, expdesc *v); + + +static void anchor_token (LexState *ls) { + if (ls->t.token == TK_NAME || ls->t.token == TK_STRING) { + TString *ts = ls->t.seminfo.ts; + luaX_newstring(ls, getstr(ts), ts->tsv.len); + } +} + + +static void error_expected (LexState *ls, int token) { + luaX_syntaxerror(ls, + luaO_pushfstring(ls->L, LUA_QS " expected", luaX_token2str(ls, token))); +} + + +static void errorlimit (FuncState *fs, int limit, const char *what) { + const char *msg = (fs->f->linedefined == 0) ? + luaO_pushfstring(fs->L, "main function has more than %d %s", limit, what) : + luaO_pushfstring(fs->L, "function at line %d has more than %d %s", + fs->f->linedefined, limit, what); + luaX_lexerror(fs->ls, msg, 0); +} + + +static int testnext (LexState *ls, int c) { + if (ls->t.token == c) { + luaX_next(ls); + return 1; + } + else return 0; +} + + +static void check (LexState *ls, int c) { + if (ls->t.token != c) + error_expected(ls, c); +} + +static void checknext (LexState *ls, int c) { + check(ls, c); + luaX_next(ls); +} + + +#define check_condition(ls,c,msg) { if (!(c)) luaX_syntaxerror(ls, msg); } + + + +static void check_match (LexState *ls, int what, int who, int where) { + if (!testnext(ls, what)) { + if (where == ls->linenumber) + error_expected(ls, what); + else { + luaX_syntaxerror(ls, luaO_pushfstring(ls->L, + LUA_QS " expected (to close " LUA_QS " at line %d)", + luaX_token2str(ls, what), luaX_token2str(ls, who), where)); + } + } +} + + +static TString *str_checkname (LexState *ls) { + TString *ts; + check(ls, TK_NAME); + ts = ls->t.seminfo.ts; + luaX_next(ls); + return ts; +} + + +static void init_exp (expdesc *e, expkind k, int i) { + e->f = e->t = NO_JUMP; + e->k = k; + e->u.s.info = i; +} + + +static void codestring (LexState *ls, expdesc *e, TString *s) { + init_exp(e, VK, luaK_stringK(ls->fs, s)); +} + + +static void checkname(LexState *ls, expdesc *e) { + codestring(ls, e, str_checkname(ls)); +} + + +static int registerlocalvar (LexState *ls, TString *varname) { + FuncState *fs = ls->fs; + Proto *f = fs->f; + int oldsize = f->sizelocvars; + luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, + LocVar, SHRT_MAX, "too many local variables"); + while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; + f->locvars[fs->nlocvars].varname = varname; + luaC_objbarrier(ls->L, f, varname); + return fs->nlocvars++; +} + + +#define new_localvarliteral(ls,v,n) \ + new_localvar(ls, luaX_newstring(ls, "" v, (sizeof(v)/sizeof(char))-1), n) + + +static void new_localvar (LexState *ls, TString *name, int n) { + FuncState *fs = ls->fs; + luaY_checklimit(fs, fs->nactvar+n+1, LUAI_MAXVARS, "local variables"); + fs->actvar[fs->nactvar+n] = cast(unsigned short, registerlocalvar(ls, name)); +} + + +static void adjustlocalvars (LexState *ls, int nvars) { + FuncState *fs = ls->fs; + fs->nactvar = cast_byte(fs->nactvar + nvars); + for (; nvars; nvars--) { + getlocvar(fs, fs->nactvar - nvars).startpc = fs->pc; + } +} + + +static void removevars (LexState *ls, int tolevel) { + FuncState *fs = ls->fs; + while (fs->nactvar > tolevel) + getlocvar(fs, --fs->nactvar).endpc = fs->pc; +} + + +static int indexupvalue (FuncState *fs, TString *name, expdesc *v) { + int i; + Proto *f = fs->f; + int oldsize = f->sizeupvalues; + for (i=0; inups; i++) { + if (fs->upvalues[i].k == v->k && fs->upvalues[i].info == v->u.s.info) { + lua_assert(f->upvalues[i] == name); + return i; + } + } + /* new one */ + luaY_checklimit(fs, f->nups + 1, LUAI_MAXUPVALUES, "upvalues"); + luaM_growvector(fs->L, f->upvalues, f->nups, f->sizeupvalues, + TString *, MAX_INT, ""); + while (oldsize < f->sizeupvalues) f->upvalues[oldsize++] = NULL; + f->upvalues[f->nups] = name; + luaC_objbarrier(fs->L, f, name); + lua_assert(v->k == VLOCAL || v->k == VUPVAL); + fs->upvalues[f->nups].k = cast_byte(v->k); + fs->upvalues[f->nups].info = cast_byte(v->u.s.info); + return f->nups++; +} + + +static int searchvar (FuncState *fs, TString *n) { + int i; + for (i=fs->nactvar-1; i >= 0; i--) { + if (n == getlocvar(fs, i).varname) + return i; + } + return -1; /* not found */ +} + + +static void markupval (FuncState *fs, int level) { + BlockCnt *bl = fs->bl; + while (bl && bl->nactvar > level) bl = bl->previous; + if (bl) bl->upval = 1; +} + + +static int singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) { + if (fs == NULL) { /* no more levels? */ + init_exp(var, VGLOBAL, NO_REG); /* default is global variable */ + return VGLOBAL; + } + else { + int v = searchvar(fs, n); /* look up at current level */ + if (v >= 0) { + init_exp(var, VLOCAL, v); + if (!base) + markupval(fs, v); /* local will be used as an upval */ + return VLOCAL; + } + else { /* not found at current level; try upper one */ + if (singlevaraux(fs->prev, n, var, 0) == VGLOBAL) + return VGLOBAL; + var->u.s.info = indexupvalue(fs, n, var); /* else was LOCAL or UPVAL */ + var->k = VUPVAL; /* upvalue in this level */ + return VUPVAL; + } + } +} + + +static void singlevar (LexState *ls, expdesc *var) { + TString *varname = str_checkname(ls); + FuncState *fs = ls->fs; + if (singlevaraux(fs, varname, var, 1) == VGLOBAL) + var->u.s.info = luaK_stringK(fs, varname); /* info points to global name */ +} + + +static void adjust_assign (LexState *ls, int nvars, int nexps, expdesc *e) { + FuncState *fs = ls->fs; + int extra = nvars - nexps; + if (hasmultret(e->k)) { + extra++; /* includes call itself */ + if (extra < 0) extra = 0; + luaK_setreturns(fs, e, extra); /* last exp. provides the difference */ + if (extra > 1) luaK_reserveregs(fs, extra-1); + } + else { + if (e->k != VVOID) luaK_exp2nextreg(fs, e); /* close last expression */ + if (extra > 0) { + int reg = fs->freereg; + luaK_reserveregs(fs, extra); + luaK_nil(fs, reg, extra); + } + } +} + + +static void enterlevel (LexState *ls) { + if (++ls->L->nCcalls > LUAI_MAXCCALLS) + luaX_lexerror(ls, "chunk has too many syntax levels", 0); +} + + +#define leavelevel(ls) ((ls)->L->nCcalls--) + + +static void enterblock (FuncState *fs, BlockCnt *bl, lu_byte isbreakable) { + bl->breaklist = NO_JUMP; + bl->isbreakable = isbreakable; + bl->nactvar = fs->nactvar; + bl->upval = 0; + bl->previous = fs->bl; + fs->bl = bl; + lua_assert(fs->freereg == fs->nactvar); +} + + +static void leaveblock (FuncState *fs) { + BlockCnt *bl = fs->bl; + fs->bl = bl->previous; + removevars(fs->ls, bl->nactvar); + if (bl->upval) + luaK_codeABC(fs, OP_CLOSE, bl->nactvar, 0, 0); + /* a block either controls scope or breaks (never both) */ + lua_assert(!bl->isbreakable || !bl->upval); + lua_assert(bl->nactvar == fs->nactvar); + fs->freereg = fs->nactvar; /* free registers */ + luaK_patchtohere(fs, bl->breaklist); +} + + +static void pushclosure (LexState *ls, FuncState *func, expdesc *v) { + FuncState *fs = ls->fs; + Proto *f = fs->f; + int oldsize = f->sizep; + int i; + luaM_growvector(ls->L, f->p, fs->np, f->sizep, Proto *, + MAXARG_Bx, "constant table overflow"); + while (oldsize < f->sizep) f->p[oldsize++] = NULL; + f->p[fs->np++] = func->f; + luaC_objbarrier(ls->L, f, func->f); + init_exp(v, VRELOCABLE, luaK_codeABx(fs, OP_CLOSURE, 0, fs->np-1)); + for (i=0; if->nups; i++) { + OpCode o = (func->upvalues[i].k == VLOCAL) ? OP_MOVE : OP_GETUPVAL; + luaK_codeABC(fs, o, 0, func->upvalues[i].info, 0); + } +} + + +static void open_func (LexState *ls, FuncState *fs) { + lua_State *L = ls->L; + Proto *f = luaF_newproto(L); + fs->f = f; + fs->prev = ls->fs; /* linked list of funcstates */ + fs->ls = ls; + fs->L = L; + ls->fs = fs; + fs->pc = 0; + fs->lasttarget = -1; + fs->jpc = NO_JUMP; + fs->freereg = 0; + fs->nk = 0; + fs->np = 0; + fs->nlocvars = 0; + fs->nactvar = 0; + fs->bl = NULL; + f->source = ls->source; + f->maxstacksize = 2; /* registers 0/1 are always valid */ + fs->h = luaH_new(L, 0, 0); + /* anchor table of constants and prototype (to avoid being collected) */ + sethvalue2s(L, L->top, fs->h); + incr_top(L); + setptvalue2s(L, L->top, f); + incr_top(L); +} + + +static void close_func (LexState *ls) { + lua_State *L = ls->L; + FuncState *fs = ls->fs; + Proto *f = fs->f; + removevars(ls, 0); + luaK_ret(fs, 0, 0); /* final return */ + luaM_reallocvector(L, f->code, f->sizecode, fs->pc, Instruction); + f->sizecode = fs->pc; + luaM_reallocvector(L, f->lineinfo, f->sizelineinfo, fs->pc, int); + f->sizelineinfo = fs->pc; + luaM_reallocvector(L, f->k, f->sizek, fs->nk, TValue); + f->sizek = fs->nk; + luaM_reallocvector(L, f->p, f->sizep, fs->np, Proto *); + f->sizep = fs->np; + luaM_reallocvector(L, f->locvars, f->sizelocvars, fs->nlocvars, LocVar); + f->sizelocvars = fs->nlocvars; + luaM_reallocvector(L, f->upvalues, f->sizeupvalues, f->nups, TString *); + f->sizeupvalues = f->nups; + lua_assert(luaG_checkcode(f)); + lua_assert(fs->bl == NULL); + ls->fs = fs->prev; + /* last token read was anchored in defunct function; must reanchor it */ + if (fs) anchor_token(ls); + L->top -= 2; /* remove table and prototype from the stack */ +} + + +Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, const char *name) { + struct LexState lexstate; + struct FuncState funcstate; + lexstate.buff = buff; + luaX_setinput(L, &lexstate, z, luaS_new(L, name)); + open_func(&lexstate, &funcstate); + funcstate.f->is_vararg = VARARG_ISVARARG; /* main func. is always vararg */ + luaX_next(&lexstate); /* read first token */ + chunk(&lexstate); + check(&lexstate, TK_EOS); + close_func(&lexstate); + lua_assert(funcstate.prev == NULL); + lua_assert(funcstate.f->nups == 0); + lua_assert(lexstate.fs == NULL); + return funcstate.f; +} + + + +/*============================================================*/ +/* GRAMMAR RULES */ +/*============================================================*/ + + +static void field (LexState *ls, expdesc *v) { + /* field -> ['.' | ':'] NAME */ + FuncState *fs = ls->fs; + expdesc key; + luaK_exp2anyreg(fs, v); + luaX_next(ls); /* skip the dot or colon */ + checkname(ls, &key); + luaK_indexed(fs, v, &key); +} + + +static void yindex (LexState *ls, expdesc *v) { + /* index -> '[' expr ']' */ + luaX_next(ls); /* skip the '[' */ + expr(ls, v); + luaK_exp2val(ls->fs, v); + checknext(ls, ']'); +} + + +/* +** {====================================================================== +** Rules for Constructors +** ======================================================================= +*/ + + +struct ConsControl { + expdesc v; /* last list item read */ + expdesc *t; /* table descriptor */ + int nh; /* total number of `record' elements */ + int na; /* total number of array elements */ + int tostore; /* number of array elements pending to be stored */ +}; + + +static void recfield (LexState *ls, struct ConsControl *cc) { + /* recfield -> (NAME | `['exp1`]') = exp1 */ + FuncState *fs = ls->fs; + int reg = ls->fs->freereg; + expdesc key, val; + int rkkey; + if (ls->t.token == TK_NAME) { + luaY_checklimit(fs, cc->nh, MAX_INT, "items in a constructor"); + checkname(ls, &key); + } + else /* ls->t.token == '[' */ + yindex(ls, &key); + cc->nh++; + checknext(ls, '='); + rkkey = luaK_exp2RK(fs, &key); + expr(ls, &val); + luaK_codeABC(fs, OP_SETTABLE, cc->t->u.s.info, rkkey, luaK_exp2RK(fs, &val)); + fs->freereg = reg; /* free registers */ +} + + +static void closelistfield (FuncState *fs, struct ConsControl *cc) { + if (cc->v.k == VVOID) return; /* there is no list item */ + luaK_exp2nextreg(fs, &cc->v); + cc->v.k = VVOID; + if (cc->tostore == LFIELDS_PER_FLUSH) { + luaK_setlist(fs, cc->t->u.s.info, cc->na, cc->tostore); /* flush */ + cc->tostore = 0; /* no more items pending */ + } +} + + +static void lastlistfield (FuncState *fs, struct ConsControl *cc) { + if (cc->tostore == 0) return; + if (hasmultret(cc->v.k)) { + luaK_setmultret(fs, &cc->v); + luaK_setlist(fs, cc->t->u.s.info, cc->na, LUA_MULTRET); + cc->na--; /* do not count last expression (unknown number of elements) */ + } + else { + if (cc->v.k != VVOID) + luaK_exp2nextreg(fs, &cc->v); + luaK_setlist(fs, cc->t->u.s.info, cc->na, cc->tostore); + } +} + + +static void listfield (LexState *ls, struct ConsControl *cc) { + expr(ls, &cc->v); + luaY_checklimit(ls->fs, cc->na, MAX_INT, "items in a constructor"); + cc->na++; + cc->tostore++; +} + + +static void constructor (LexState *ls, expdesc *t) { + /* constructor -> ?? */ + FuncState *fs = ls->fs; + int line = ls->linenumber; + int pc = luaK_codeABC(fs, OP_NEWTABLE, 0, 0, 0); + struct ConsControl cc; + cc.na = cc.nh = cc.tostore = 0; + cc.t = t; + init_exp(t, VRELOCABLE, pc); + init_exp(&cc.v, VVOID, 0); /* no value (yet) */ + luaK_exp2nextreg(ls->fs, t); /* fix it at stack top (for gc) */ + checknext(ls, '{'); + do { + lua_assert(cc.v.k == VVOID || cc.tostore > 0); + if (ls->t.token == '}') break; + closelistfield(fs, &cc); + switch(ls->t.token) { + case TK_NAME: { /* may be listfields or recfields */ + luaX_lookahead(ls); + if (ls->lookahead.token != '=') /* expression? */ + listfield(ls, &cc); + else + recfield(ls, &cc); + break; + } + case '[': { /* constructor_item -> recfield */ + recfield(ls, &cc); + break; + } + default: { /* constructor_part -> listfield */ + listfield(ls, &cc); + break; + } + } + } while (testnext(ls, ',') || testnext(ls, ';')); + check_match(ls, '}', '{', line); + lastlistfield(fs, &cc); + SETARG_B(fs->f->code[pc], luaO_int2fb(cc.na)); /* set initial array size */ + SETARG_C(fs->f->code[pc], luaO_int2fb(cc.nh)); /* set initial table size */ +} + +/* }====================================================================== */ + + + +static void parlist (LexState *ls) { + /* parlist -> [ param { `,' param } ] */ + FuncState *fs = ls->fs; + Proto *f = fs->f; + int nparams = 0; + f->is_vararg = 0; + if (ls->t.token != ')') { /* is `parlist' not empty? */ + do { + switch (ls->t.token) { + case TK_NAME: { /* param -> NAME */ + new_localvar(ls, str_checkname(ls), nparams++); + break; + } + case TK_DOTS: { /* param -> `...' */ + luaX_next(ls); +#if defined(LUA_COMPAT_VARARG) + /* use `arg' as default name */ + new_localvarliteral(ls, "arg", nparams++); + f->is_vararg = VARARG_HASARG | VARARG_NEEDSARG; +#endif + f->is_vararg |= VARARG_ISVARARG; + break; + } + default: luaX_syntaxerror(ls, " or " LUA_QL("...") " expected"); + } + } while (!f->is_vararg && testnext(ls, ',')); + } + adjustlocalvars(ls, nparams); + f->numparams = cast_byte(fs->nactvar - (f->is_vararg & VARARG_HASARG)); + luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ +} + + +static void body (LexState *ls, expdesc *e, int needself, int line) { + /* body -> `(' parlist `)' chunk END */ + FuncState new_fs; + open_func(ls, &new_fs); + new_fs.f->linedefined = line; + checknext(ls, '('); + if (needself) { + new_localvarliteral(ls, "self", 0); + adjustlocalvars(ls, 1); + } + parlist(ls); + checknext(ls, ')'); + chunk(ls); + new_fs.f->lastlinedefined = ls->linenumber; + check_match(ls, TK_END, TK_FUNCTION, line); + close_func(ls); + pushclosure(ls, &new_fs, e); +} + + +static int explist1 (LexState *ls, expdesc *v) { + /* explist1 -> expr { `,' expr } */ + int n = 1; /* at least one expression */ + expr(ls, v); + while (testnext(ls, ',')) { + luaK_exp2nextreg(ls->fs, v); + expr(ls, v); + n++; + } + return n; +} + + +static void funcargs (LexState *ls, expdesc *f) { + FuncState *fs = ls->fs; + expdesc args; + int base, nparams; + int line = ls->linenumber; + switch (ls->t.token) { + case '(': { /* funcargs -> `(' [ explist1 ] `)' */ + if (line != ls->lastline) + luaX_syntaxerror(ls,"ambiguous syntax (function call x new statement)"); + luaX_next(ls); + if (ls->t.token == ')') /* arg list is empty? */ + args.k = VVOID; + else { + explist1(ls, &args); + luaK_setmultret(fs, &args); + } + check_match(ls, ')', '(', line); + break; + } + case '{': { /* funcargs -> constructor */ + constructor(ls, &args); + break; + } + case TK_STRING: { /* funcargs -> STRING */ + codestring(ls, &args, ls->t.seminfo.ts); + luaX_next(ls); /* must use `seminfo' before `next' */ + break; + } + default: { + luaX_syntaxerror(ls, "function arguments expected"); + return; + } + } + lua_assert(f->k == VNONRELOC); + base = f->u.s.info; /* base register for call */ + if (hasmultret(args.k)) + nparams = LUA_MULTRET; /* open call */ + else { + if (args.k != VVOID) + luaK_exp2nextreg(fs, &args); /* close last argument */ + nparams = fs->freereg - (base+1); + } + init_exp(f, VCALL, luaK_codeABC(fs, OP_CALL, base, nparams+1, 2)); + luaK_fixline(fs, line); + fs->freereg = base+1; /* call remove function and arguments and leaves + (unless changed) one result */ +} + + + + +/* +** {====================================================================== +** Expression parsing +** ======================================================================= +*/ + + +static void prefixexp (LexState *ls, expdesc *v) { + /* prefixexp -> NAME | '(' expr ')' */ + switch (ls->t.token) { + case '(': { + int line = ls->linenumber; + luaX_next(ls); + expr(ls, v); + check_match(ls, ')', '(', line); + luaK_dischargevars(ls->fs, v); + return; + } + case TK_NAME: { + singlevar(ls, v); + return; + } + default: { + luaX_syntaxerror(ls, "unexpected symbol"); + return; + } + } +} + + +static void primaryexp (LexState *ls, expdesc *v) { + /* primaryexp -> + prefixexp { `.' NAME | `[' exp `]' | `:' NAME funcargs | funcargs } */ + FuncState *fs = ls->fs; + prefixexp(ls, v); + for (;;) { + switch (ls->t.token) { + case '.': { /* field */ + field(ls, v); + break; + } + case '[': { /* `[' exp1 `]' */ + expdesc key; + luaK_exp2anyreg(fs, v); + yindex(ls, &key); + luaK_indexed(fs, v, &key); + break; + } + case ':': { /* `:' NAME funcargs */ + expdesc key; + luaX_next(ls); + checkname(ls, &key); + luaK_self(fs, v, &key); + funcargs(ls, v); + break; + } + case '(': case TK_STRING: case '{': { /* funcargs */ + luaK_exp2nextreg(fs, v); + funcargs(ls, v); + break; + } + default: return; + } + } +} + + +static void simpleexp (LexState *ls, expdesc *v) { + /* simpleexp -> NUMBER | STRING | NIL | true | false | ... | + constructor | FUNCTION body | primaryexp */ + switch (ls->t.token) { + case TK_NUMBER: { + init_exp(v, VKNUM, 0); + v->u.nval = ls->t.seminfo.r; + break; + } + case TK_STRING: { + codestring(ls, v, ls->t.seminfo.ts); + break; + } + case TK_NIL: { + init_exp(v, VNIL, 0); + break; + } + case TK_TRUE: { + init_exp(v, VTRUE, 0); + break; + } + case TK_FALSE: { + init_exp(v, VFALSE, 0); + break; + } + case TK_DOTS: { /* vararg */ + FuncState *fs = ls->fs; + check_condition(ls, fs->f->is_vararg, + "cannot use " LUA_QL("...") " outside a vararg function"); + fs->f->is_vararg &= ~VARARG_NEEDSARG; /* don't need 'arg' */ + init_exp(v, VVARARG, luaK_codeABC(fs, OP_VARARG, 0, 1, 0)); + break; + } + case '{': { /* constructor */ + constructor(ls, v); + return; + } + case TK_FUNCTION: { + luaX_next(ls); + body(ls, v, 0, ls->linenumber); + return; + } + default: { + primaryexp(ls, v); + return; + } + } + luaX_next(ls); +} + + +static UnOpr getunopr (int op) { + switch (op) { + case TK_NOT: return OPR_NOT; + case '-': return OPR_MINUS; + case '#': return OPR_LEN; + default: return OPR_NOUNOPR; + } +} + + +static BinOpr getbinopr (int op) { + switch (op) { + case '+': return OPR_ADD; + case '-': return OPR_SUB; + case '*': return OPR_MUL; + case '/': return OPR_DIV; + case '%': return OPR_MOD; + case '^': return OPR_POW; + case TK_CONCAT: return OPR_CONCAT; + case TK_NE: return OPR_NE; + case TK_EQ: return OPR_EQ; + case '<': return OPR_LT; + case TK_LE: return OPR_LE; + case '>': return OPR_GT; + case TK_GE: return OPR_GE; + case TK_AND: return OPR_AND; + case TK_OR: return OPR_OR; + default: return OPR_NOBINOPR; + } +} + + +static const struct { + lu_byte left; /* left priority for each binary operator */ + lu_byte right; /* right priority */ +} priority[] = { /* ORDER OPR */ + {6, 6}, {6, 6}, {7, 7}, {7, 7}, {7, 7}, /* `+' `-' `/' `%' */ + {10, 9}, {5, 4}, /* power and concat (right associative) */ + {3, 3}, {3, 3}, /* equality and inequality */ + {3, 3}, {3, 3}, {3, 3}, {3, 3}, /* order */ + {2, 2}, {1, 1} /* logical (and/or) */ +}; + +#define UNARY_PRIORITY 8 /* priority for unary operators */ + + +/* +** subexpr -> (simpleexp | unop subexpr) { binop subexpr } +** where `binop' is any binary operator with a priority higher than `limit' +*/ +static BinOpr subexpr (LexState *ls, expdesc *v, unsigned int limit) { + BinOpr op; + UnOpr uop; + enterlevel(ls); + uop = getunopr(ls->t.token); + if (uop != OPR_NOUNOPR) { + luaX_next(ls); + subexpr(ls, v, UNARY_PRIORITY); + luaK_prefix(ls->fs, uop, v); + } + else simpleexp(ls, v); + /* expand while operators have priorities higher than `limit' */ + op = getbinopr(ls->t.token); + while (op != OPR_NOBINOPR && priority[op].left > limit) { + expdesc v2; + BinOpr nextop; + luaX_next(ls); + luaK_infix(ls->fs, op, v); + /* read sub-expression with higher priority */ + nextop = subexpr(ls, &v2, priority[op].right); + luaK_posfix(ls->fs, op, v, &v2); + op = nextop; + } + leavelevel(ls); + return op; /* return first untreated operator */ +} + + +static void expr (LexState *ls, expdesc *v) { + subexpr(ls, v, 0); +} + +/* }==================================================================== */ + + + +/* +** {====================================================================== +** Rules for Statements +** ======================================================================= +*/ + + +static int block_follow (int token) { + switch (token) { + case TK_ELSE: case TK_ELSEIF: case TK_END: + case TK_UNTIL: case TK_EOS: + return 1; + default: return 0; + } +} + + +static void block (LexState *ls) { + /* block -> chunk */ + FuncState *fs = ls->fs; + BlockCnt bl; + enterblock(fs, &bl, 0); + chunk(ls); + lua_assert(bl.breaklist == NO_JUMP); + leaveblock(fs); +} + + +/* +** structure to chain all variables in the left-hand side of an +** assignment +*/ +struct LHS_assign { + struct LHS_assign *prev; + expdesc v; /* variable (global, local, upvalue, or indexed) */ +}; + + +/* +** check whether, in an assignment to a local variable, the local variable +** is needed in a previous assignment (to a table). If so, save original +** local value in a safe place and use this safe copy in the previous +** assignment. +*/ +static void check_conflict (LexState *ls, struct LHS_assign *lh, expdesc *v) { + FuncState *fs = ls->fs; + int extra = fs->freereg; /* eventual position to save local variable */ + int conflict = 0; + for (; lh; lh = lh->prev) { + if (lh->v.k == VINDEXED) { + if (lh->v.u.s.info == v->u.s.info) { /* conflict? */ + conflict = 1; + lh->v.u.s.info = extra; /* previous assignment will use safe copy */ + } + if (lh->v.u.s.aux == v->u.s.info) { /* conflict? */ + conflict = 1; + lh->v.u.s.aux = extra; /* previous assignment will use safe copy */ + } + } + } + if (conflict) { + luaK_codeABC(fs, OP_MOVE, fs->freereg, v->u.s.info, 0); /* make copy */ + luaK_reserveregs(fs, 1); + } +} + + +static void assignment (LexState *ls, struct LHS_assign *lh, int nvars) { + expdesc e; + check_condition(ls, VLOCAL <= lh->v.k && lh->v.k <= VINDEXED, + "syntax error"); + if (testnext(ls, ',')) { /* assignment -> `,' primaryexp assignment */ + struct LHS_assign nv; + nv.prev = lh; + primaryexp(ls, &nv.v); + if (nv.v.k == VLOCAL) + check_conflict(ls, lh, &nv.v); + luaY_checklimit(ls->fs, nvars, LUAI_MAXCCALLS - ls->L->nCcalls, + "variables in assignment"); + assignment(ls, &nv, nvars+1); + } + else { /* assignment -> `=' explist1 */ + int nexps; + checknext(ls, '='); + nexps = explist1(ls, &e); + if (nexps != nvars) { + adjust_assign(ls, nvars, nexps, &e); + if (nexps > nvars) + ls->fs->freereg -= nexps - nvars; /* remove extra values */ + } + else { + luaK_setoneret(ls->fs, &e); /* close last expression */ + luaK_storevar(ls->fs, &lh->v, &e); + return; /* avoid default */ + } + } + init_exp(&e, VNONRELOC, ls->fs->freereg-1); /* default assignment */ + luaK_storevar(ls->fs, &lh->v, &e); +} + + +static int cond (LexState *ls) { + /* cond -> exp */ + expdesc v; + expr(ls, &v); /* read condition */ + if (v.k == VNIL) v.k = VFALSE; /* `falses' are all equal here */ + luaK_goiftrue(ls->fs, &v); + return v.f; +} + + +static void breakstat (LexState *ls) { + FuncState *fs = ls->fs; + BlockCnt *bl = fs->bl; + int upval = 0; + while (bl && !bl->isbreakable) { + upval |= bl->upval; + bl = bl->previous; + } + if (!bl) + luaX_syntaxerror(ls, "no loop to break"); + if (upval) + luaK_codeABC(fs, OP_CLOSE, bl->nactvar, 0, 0); + luaK_concat(fs, &bl->breaklist, luaK_jump(fs)); +} + + +static void whilestat (LexState *ls, int line) { + /* whilestat -> WHILE cond DO block END */ + FuncState *fs = ls->fs; + int whileinit; + int condexit; + BlockCnt bl; + luaX_next(ls); /* skip WHILE */ + whileinit = luaK_getlabel(fs); + condexit = cond(ls); + enterblock(fs, &bl, 1); + checknext(ls, TK_DO); + block(ls); + luaK_patchlist(fs, luaK_jump(fs), whileinit); + check_match(ls, TK_END, TK_WHILE, line); + leaveblock(fs); + luaK_patchtohere(fs, condexit); /* false conditions finish the loop */ +} + + +static void repeatstat (LexState *ls, int line) { + /* repeatstat -> REPEAT block UNTIL cond */ + int condexit; + FuncState *fs = ls->fs; + int repeat_init = luaK_getlabel(fs); + BlockCnt bl1, bl2; + enterblock(fs, &bl1, 1); /* loop block */ + enterblock(fs, &bl2, 0); /* scope block */ + luaX_next(ls); /* skip REPEAT */ + chunk(ls); + check_match(ls, TK_UNTIL, TK_REPEAT, line); + condexit = cond(ls); /* read condition (inside scope block) */ + if (!bl2.upval) { /* no upvalues? */ + leaveblock(fs); /* finish scope */ + luaK_patchlist(ls->fs, condexit, repeat_init); /* close the loop */ + } + else { /* complete semantics when there are upvalues */ + breakstat(ls); /* if condition then break */ + luaK_patchtohere(ls->fs, condexit); /* else... */ + leaveblock(fs); /* finish scope... */ + luaK_patchlist(ls->fs, luaK_jump(fs), repeat_init); /* and repeat */ + } + leaveblock(fs); /* finish loop */ +} + + +static int exp1 (LexState *ls) { + expdesc e; + int k; + expr(ls, &e); + k = e.k; + luaK_exp2nextreg(ls->fs, &e); + return k; +} + + +static void forbody (LexState *ls, int base, int line, int nvars, int isnum) { + /* forbody -> DO block */ + BlockCnt bl; + FuncState *fs = ls->fs; + int prep, endfor; + adjustlocalvars(ls, 3); /* control variables */ + checknext(ls, TK_DO); + prep = isnum ? luaK_codeAsBx(fs, OP_FORPREP, base, NO_JUMP) : luaK_jump(fs); + enterblock(fs, &bl, 0); /* scope for declared variables */ + adjustlocalvars(ls, nvars); + luaK_reserveregs(fs, nvars); + block(ls); + leaveblock(fs); /* end of scope for declared variables */ + luaK_patchtohere(fs, prep); + endfor = (isnum) ? luaK_codeAsBx(fs, OP_FORLOOP, base, NO_JUMP) : + luaK_codeABC(fs, OP_TFORLOOP, base, 0, nvars); + luaK_fixline(fs, line); /* pretend that `OP_FOR' starts the loop */ + luaK_patchlist(fs, (isnum ? endfor : luaK_jump(fs)), prep + 1); +} + + +static void fornum (LexState *ls, TString *varname, int line) { + /* fornum -> NAME = exp1,exp1[,exp1] forbody */ + FuncState *fs = ls->fs; + int base = fs->freereg; + new_localvarliteral(ls, "(for index)", 0); + new_localvarliteral(ls, "(for limit)", 1); + new_localvarliteral(ls, "(for step)", 2); + new_localvar(ls, varname, 3); + checknext(ls, '='); + exp1(ls); /* initial value */ + checknext(ls, ','); + exp1(ls); /* limit */ + if (testnext(ls, ',')) + exp1(ls); /* optional step */ + else { /* default step = 1 */ + luaK_codeABx(fs, OP_LOADK, fs->freereg, luaK_numberK(fs, 1)); + luaK_reserveregs(fs, 1); + } + forbody(ls, base, line, 1, 1); +} + + +static void forlist (LexState *ls, TString *indexname) { + /* forlist -> NAME {,NAME} IN explist1 forbody */ + FuncState *fs = ls->fs; + expdesc e; + int nvars = 0; + int line; + int base = fs->freereg; + /* create control variables */ + new_localvarliteral(ls, "(for generator)", nvars++); + new_localvarliteral(ls, "(for state)", nvars++); + new_localvarliteral(ls, "(for control)", nvars++); + /* create declared variables */ + new_localvar(ls, indexname, nvars++); + while (testnext(ls, ',')) + new_localvar(ls, str_checkname(ls), nvars++); + checknext(ls, TK_IN); + line = ls->linenumber; + adjust_assign(ls, 3, explist1(ls, &e), &e); + luaK_checkstack(fs, 3); /* extra space to call generator */ + forbody(ls, base, line, nvars - 3, 0); +} + + +static void forstat (LexState *ls, int line) { + /* forstat -> FOR (fornum | forlist) END */ + FuncState *fs = ls->fs; + TString *varname; + BlockCnt bl; + enterblock(fs, &bl, 1); /* scope for loop and control variables */ + luaX_next(ls); /* skip `for' */ + varname = str_checkname(ls); /* first variable name */ + switch (ls->t.token) { + case '=': fornum(ls, varname, line); break; + case ',': case TK_IN: forlist(ls, varname); break; + default: luaX_syntaxerror(ls, LUA_QL("=") " or " LUA_QL("in") " expected"); + } + check_match(ls, TK_END, TK_FOR, line); + leaveblock(fs); /* loop scope (`break' jumps to this point) */ +} + + +static int test_then_block (LexState *ls) { + /* test_then_block -> [IF | ELSEIF] cond THEN block */ + int condexit; + luaX_next(ls); /* skip IF or ELSEIF */ + condexit = cond(ls); + checknext(ls, TK_THEN); + block(ls); /* `then' part */ + return condexit; +} + + +static void ifstat (LexState *ls, int line) { + /* ifstat -> IF cond THEN block {ELSEIF cond THEN block} [ELSE block] END */ + FuncState *fs = ls->fs; + int flist; + int escapelist = NO_JUMP; + flist = test_then_block(ls); /* IF cond THEN block */ + while (ls->t.token == TK_ELSEIF) { + luaK_concat(fs, &escapelist, luaK_jump(fs)); + luaK_patchtohere(fs, flist); + flist = test_then_block(ls); /* ELSEIF cond THEN block */ + } + if (ls->t.token == TK_ELSE) { + luaK_concat(fs, &escapelist, luaK_jump(fs)); + luaK_patchtohere(fs, flist); + luaX_next(ls); /* skip ELSE (after patch, for correct line info) */ + block(ls); /* `else' part */ + } + else + luaK_concat(fs, &escapelist, flist); + luaK_patchtohere(fs, escapelist); + check_match(ls, TK_END, TK_IF, line); +} + + +static void localfunc (LexState *ls) { + expdesc v, b; + FuncState *fs = ls->fs; + new_localvar(ls, str_checkname(ls), 0); + init_exp(&v, VLOCAL, fs->freereg); + luaK_reserveregs(fs, 1); + adjustlocalvars(ls, 1); + body(ls, &b, 0, ls->linenumber); + luaK_storevar(fs, &v, &b); + /* debug information will only see the variable after this point! */ + getlocvar(fs, fs->nactvar - 1).startpc = fs->pc; +} + + +static void localstat (LexState *ls) { + /* stat -> LOCAL NAME {`,' NAME} [`=' explist1] */ + int nvars = 0; + int nexps; + expdesc e; + do { + new_localvar(ls, str_checkname(ls), nvars++); + } while (testnext(ls, ',')); + if (testnext(ls, '=')) + nexps = explist1(ls, &e); + else { + e.k = VVOID; + nexps = 0; + } + adjust_assign(ls, nvars, nexps, &e); + adjustlocalvars(ls, nvars); +} + + +static int funcname (LexState *ls, expdesc *v) { + /* funcname -> NAME {field} [`:' NAME] */ + int needself = 0; + singlevar(ls, v); + while (ls->t.token == '.') + field(ls, v); + if (ls->t.token == ':') { + needself = 1; + field(ls, v); + } + return needself; +} + + +static void funcstat (LexState *ls, int line) { + /* funcstat -> FUNCTION funcname body */ + int needself; + expdesc v, b; + luaX_next(ls); /* skip FUNCTION */ + needself = funcname(ls, &v); + body(ls, &b, needself, line); + luaK_storevar(ls->fs, &v, &b); + luaK_fixline(ls->fs, line); /* definition `happens' in the first line */ +} + + +static void exprstat (LexState *ls) { + /* stat -> func | assignment */ + FuncState *fs = ls->fs; + struct LHS_assign v; + primaryexp(ls, &v.v); + if (v.v.k == VCALL) /* stat -> func */ + SETARG_C(getcode(fs, &v.v), 1); /* call statement uses no results */ + else { /* stat -> assignment */ + v.prev = NULL; + assignment(ls, &v, 1); + } +} + + +static void retstat (LexState *ls) { + /* stat -> RETURN explist */ + FuncState *fs = ls->fs; + expdesc e; + int first, nret; /* registers with returned values */ + luaX_next(ls); /* skip RETURN */ + if (block_follow(ls->t.token) || ls->t.token == ';') + first = nret = 0; /* return no values */ + else { + nret = explist1(ls, &e); /* optional return values */ + if (hasmultret(e.k)) { + luaK_setmultret(fs, &e); + if (e.k == VCALL && nret == 1) { /* tail call? */ + SET_OPCODE(getcode(fs,&e), OP_TAILCALL); + lua_assert(GETARG_A(getcode(fs,&e)) == fs->nactvar); + } + first = fs->nactvar; + nret = LUA_MULTRET; /* return all values */ + } + else { + if (nret == 1) /* only one single value? */ + first = luaK_exp2anyreg(fs, &e); + else { + luaK_exp2nextreg(fs, &e); /* values must go to the `stack' */ + first = fs->nactvar; /* return all `active' values */ + lua_assert(nret == fs->freereg - first); + } + } + } + luaK_ret(fs, first, nret); +} + + +static int statement (LexState *ls) { + int line = ls->linenumber; /* may be needed for error messages */ + switch (ls->t.token) { + case TK_IF: { /* stat -> ifstat */ + ifstat(ls, line); + return 0; + } + case TK_WHILE: { /* stat -> whilestat */ + whilestat(ls, line); + return 0; + } + case TK_DO: { /* stat -> DO block END */ + luaX_next(ls); /* skip DO */ + block(ls); + check_match(ls, TK_END, TK_DO, line); + return 0; + } + case TK_FOR: { /* stat -> forstat */ + forstat(ls, line); + return 0; + } + case TK_REPEAT: { /* stat -> repeatstat */ + repeatstat(ls, line); + return 0; + } + case TK_FUNCTION: { + funcstat(ls, line); /* stat -> funcstat */ + return 0; + } + case TK_LOCAL: { /* stat -> localstat */ + luaX_next(ls); /* skip LOCAL */ + if (testnext(ls, TK_FUNCTION)) /* local function? */ + localfunc(ls); + else + localstat(ls); + return 0; + } + case TK_RETURN: { /* stat -> retstat */ + retstat(ls); + return 1; /* must be last statement */ + } + case TK_BREAK: { /* stat -> breakstat */ + luaX_next(ls); /* skip BREAK */ + breakstat(ls); + return 1; /* must be last statement */ + } + default: { + exprstat(ls); + return 0; /* to avoid warnings */ + } + } +} + + +static void chunk (LexState *ls) { + /* chunk -> { stat [`;'] } */ + int islast = 0; + enterlevel(ls); + while (!islast && !block_follow(ls->t.token)) { + islast = statement(ls); + testnext(ls, ';'); + lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg && + ls->fs->freereg >= ls->fs->nactvar); + ls->fs->freereg = ls->fs->nactvar; /* free registers */ + } + leavelevel(ls); +} + +/* }====================================================================== */ diff --git a/src/3rd party/LuaJIT-1.1.8/src/lparser.h b/src/3rd party/LuaJIT-1.1.8/src/lparser.h new file mode 100644 index 00000000000..18836afd1cd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lparser.h @@ -0,0 +1,82 @@ +/* +** $Id: lparser.h,v 1.57.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua Parser +** See Copyright Notice in lua.h +*/ + +#ifndef lparser_h +#define lparser_h + +#include "llimits.h" +#include "lobject.h" +#include "lzio.h" + + +/* +** Expression descriptor +*/ + +typedef enum { + VVOID, /* no value */ + VNIL, + VTRUE, + VFALSE, + VK, /* info = index of constant in `k' */ + VKNUM, /* nval = numerical value */ + VLOCAL, /* info = local register */ + VUPVAL, /* info = index of upvalue in `upvalues' */ + VGLOBAL, /* info = index of table; aux = index of global name in `k' */ + VINDEXED, /* info = table register; aux = index register (or `k') */ + VJMP, /* info = instruction pc */ + VRELOCABLE, /* info = instruction pc */ + VNONRELOC, /* info = result register */ + VCALL, /* info = instruction pc */ + VVARARG /* info = instruction pc */ +} expkind; + +typedef struct expdesc { + expkind k; + union { + struct { int info, aux; } s; + lua_Number nval; + } u; + int t; /* patch list of `exit when true' */ + int f; /* patch list of `exit when false' */ +} expdesc; + + +typedef struct upvaldesc { + lu_byte k; + lu_byte info; +} upvaldesc; + + +struct BlockCnt; /* defined in lparser.c */ + + +/* state needed to generate code for a given function */ +typedef struct FuncState { + Proto *f; /* current function header */ + Table *h; /* table to find (and reuse) elements in `k' */ + struct FuncState *prev; /* enclosing function */ + struct LexState *ls; /* lexical state */ + struct lua_State *L; /* copy of the Lua state */ + struct BlockCnt *bl; /* chain of current blocks */ + int pc; /* next position to code (equivalent to `ncode') */ + int lasttarget; /* `pc' of last `jump target' */ + int jpc; /* list of pending jumps to `pc' */ + int freereg; /* first free register */ + int nk; /* number of elements in `k' */ + int np; /* number of elements in `p' */ + short nlocvars; /* number of elements in `locvars' */ + lu_byte nactvar; /* number of active local variables */ + upvaldesc upvalues[LUAI_MAXUPVALUES]; /* upvalues */ + unsigned short actvar[LUAI_MAXVARS]; /* declared-variable stack */ +} FuncState; + + +LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, + const char *name); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstate.c b/src/3rd party/LuaJIT-1.1.8/src/lstate.c new file mode 100644 index 00000000000..2bf835bdbfd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstate.c @@ -0,0 +1,218 @@ +/* +** $Id: lstate.c,v 2.36.1.2 2008/01/03 15:20:39 roberto Exp $ +** Global State +** See Copyright Notice in lua.h +*/ + + +#include + +#define lstate_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "llex.h" +#include "lmem.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "ljit.h" + + +#define state_size(x) (sizeof(x) + LUAI_EXTRASPACE) +#define fromstate(l) (cast(lu_byte *, (l)) - LUAI_EXTRASPACE) +#define tostate(l) (cast(lua_State *, cast(lu_byte *, l) + LUAI_EXTRASPACE)) + + +/* +** Main thread combines a thread state and the global state +*/ +typedef struct LG { + lua_State l; + global_State g; +} LG; + + + +static void stack_init (lua_State *L1, lua_State *L) { + /* initialize CallInfo array */ + L1->base_ci = luaM_newvector(L, BASIC_CI_SIZE, CallInfo); + L1->ci = L1->base_ci; + L1->size_ci = BASIC_CI_SIZE; + L1->end_ci = L1->base_ci + L1->size_ci - 1; + /* initialize stack array */ + L1->stack = luaM_newvector(L, BASIC_STACK_SIZE + EXTRA_STACK, TValue); + L1->stacksize = BASIC_STACK_SIZE + EXTRA_STACK; + L1->top = L1->stack; + L1->stack_last = L1->stack+(L1->stacksize - EXTRA_STACK)-1; + /* initialize first ci */ + L1->ci->func = L1->top; + setnilvalue(L1->top++); /* `function' entry for this `ci' */ + L1->base = L1->ci->base = L1->top; + L1->ci->top = L1->top + LUA_MINSTACK; +} + + +static void freestack (lua_State *L, lua_State *L1) { + luaM_freearray(L, L1->base_ci, L1->size_ci, CallInfo); + luaM_freearray(L, L1->stack, L1->stacksize, TValue); +} + + +/* +** open parts that may cause memory-allocation errors +*/ +static void f_luaopen (lua_State *L, void *ud) { + global_State *g = G(L); + UNUSED(ud); + stack_init(L, L); /* init stack */ + sethvalue(L, gt(L), luaH_new(L, 0, 2)); /* table of globals */ + sethvalue(L, registry(L), luaH_new(L, 0, 2)); /* registry */ + luaS_resize(L, MINSTRTABSIZE); /* initial size of string table */ + luaT_init(L); + luaX_init(L); + luaS_fix(luaS_newliteral(L, MEMERRMSG)); + g->GCthreshold = 4*g->totalbytes; + luaJIT_initstate(L); +} + + +static void preinit_state (lua_State *L, global_State *g) { + G(L) = g; + L->stack = NULL; + L->stacksize = 0; + L->errorJmp = NULL; + L->hook = NULL; + L->hookmask = 0; + L->basehookcount = 0; + L->allowhook = 1; + resethookcount(L); + L->openupval = NULL; + L->size_ci = 0; + L->nCcalls = 0; + L->status = 0; + L->base_ci = L->ci = NULL; + L->savedpc = NULL; + L->errfunc = 0; + setnilvalue(gt(L)); +} + + +static void close_state (lua_State *L) { + global_State *g = G(L); + luaF_close(L, L->stack); /* close all upvalues for this thread */ + luaC_freeall(L); /* collect all objects */ + luaJIT_freestate(L); + lua_assert(g->rootgc == obj2gco(L)); + lua_assert(g->strt.nuse == 0); + luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size, TString *); + luaZ_freebuffer(L, &g->buff); + freestack(L, L); + lua_assert(g->totalbytes == sizeof(LG)); + (*g->frealloc)(g->ud, fromstate(L), state_size(LG), 0); +} + + +lua_State *luaE_newthread (lua_State *L) { + lua_State *L1 = tostate(luaM_malloc(L, state_size(lua_State))); + luaC_link(L, obj2gco(L1), LUA_TTHREAD); + preinit_state(L1, G(L)); + stack_init(L1, L); /* init stack */ + setobj2n(L, gt(L1), gt(L)); /* share table of globals */ + L1->hookmask = L->hookmask; + L1->basehookcount = L->basehookcount; + L1->hook = L->hook; + resethookcount(L1); + lua_assert(iswhite(obj2gco(L1))); + return L1; +} + + +void luaE_freethread (lua_State *L, lua_State *L1) { + luaF_close(L1, L1->stack); /* close all upvalues for this thread */ + lua_assert(L1->openupval == NULL); + luai_userstatefree(L1); + freestack(L, L1); + luaM_freemem(L, fromstate(L1), state_size(lua_State)); +} + + +LUA_API lua_State *lua_newstate (lua_Alloc f, void *ud) { + int i; + lua_State *L; + global_State *g; + void *l = (*f)(ud, NULL, 0, state_size(LG)); + if (l == NULL) return NULL; + L = tostate(l); + g = &((LG *)L)->g; + L->next = NULL; + L->tt = LUA_TTHREAD; + g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT); + L->marked = luaC_white(g); + set2bits(L->marked, FIXEDBIT, SFIXEDBIT); + preinit_state(L, g); + g->frealloc = f; + g->ud = ud; + g->mainthread = L; + g->uvhead.u.l.prev = &g->uvhead; + g->uvhead.u.l.next = &g->uvhead; + g->GCthreshold = 0; /* mark it as unfinished state */ + g->strt.size = 0; + g->strt.nuse = 0; + g->strt.hash = NULL; + setnilvalue(registry(L)); + luaZ_initbuffer(L, &g->buff); + g->panic = NULL; + g->gcstate = GCSpause; + g->rootgc = obj2gco(L); + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + g->tmudata = NULL; + g->totalbytes = sizeof(LG); + g->gcpause = LUAI_GCPAUSE; + g->gcstepmul = LUAI_GCMUL; + g->gcdept = 0; + g->jit_state = NULL; + for (i=0; imt[i] = NULL; + if (luaD_rawrunprotected(L, f_luaopen, NULL) != 0) { + /* memory allocation error: free partial state */ + close_state(L); + L = NULL; + } + else + luai_userstateopen(L); + return L; +} + + +static void callallgcTM (lua_State *L, void *ud) { + UNUSED(ud); + luaC_callGCTM(L); /* call GC metamethods for all udata */ +} + + +LUA_API void lua_close (lua_State *L) { + L = G(L)->mainthread; /* only the main thread can be closed */ + lua_lock(L); + luaF_close(L, L->stack); /* close all upvalues for this thread */ + luaC_separateudata(L, 1); /* separate udata that have GC metamethods */ + L->errfunc = 0; /* no error function during GC metamethods */ + do { /* repeat until no more errors */ + L->ci = L->base_ci; + L->base = L->top = L->ci->base; + L->nCcalls = 0; + } while (luaD_rawrunprotected(L, callallgcTM, NULL) != 0); + lua_assert(G(L)->tmudata == NULL); + luai_userstateclose(L); + close_state(L); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstate.h b/src/3rd party/LuaJIT-1.1.8/src/lstate.h new file mode 100644 index 00000000000..ddaa554f789 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstate.h @@ -0,0 +1,179 @@ +/* +** $Id: lstate.h,v 2.24.1.2 2008/01/03 15:20:39 roberto Exp $ +** Global State +** See Copyright Notice in lua.h +*/ + +#ifndef lstate_h +#define lstate_h + +#include "lua.h" + +#include "lobject.h" +#include "ltm.h" +#include "lzio.h" +#ifndef COCO_DISABLE +#include "lcoco.h" +#endif + + + +struct lua_longjmp; /* defined in ldo.c */ +struct jit_State; /* defined in ljit.c */ +typedef int (*luaJIT_GateLJ)(lua_State *L, StkId func, int nresults); + + +/* table of globals */ +#define gt(L) (&L->l_gt) + +/* registry */ +#define registry(L) (&G(L)->l_registry) + + +/* extra stack space to handle TM calls and some other extras */ +/* LuaJIT uses more than the default (5) to speed up calls (setnil loop) */ +#define EXTRA_STACK 8 + + +#define BASIC_CI_SIZE 8 + +#define BASIC_STACK_SIZE (2*LUA_MINSTACK) + + + +typedef struct stringtable { + GCObject **hash; + lu_int32 nuse; /* number of elements */ + int size; +} stringtable; + + +/* +** informations about a call +*/ +typedef struct CallInfo { + StkId base; /* base for this function */ + StkId func; /* function index in the stack */ + StkId top; /* top for this function */ + const Instruction *savedpc; + int nresults; /* expected number of results from this function */ + int tailcalls; /* number of tail calls lost under this entry */ +} CallInfo; + + + +#define curr_func(L) (clvalue(L->ci->func)) +#define ci_func(ci) (clvalue((ci)->func)) +#define f_isLua(ci) (!ci_func(ci)->c.isC) +#define isLua(ci) (ttisfunction((ci)->func) && f_isLua(ci)) + + +/* +** `global state', shared by all threads of this state +*/ +typedef struct global_State { + stringtable strt; /* hash table for strings */ + lua_Alloc frealloc; /* function to reallocate memory */ + void *ud; /* auxiliary data to `frealloc' */ + lu_byte currentwhite; + lu_byte gcstate; /* state of garbage collector */ + int sweepstrgc; /* position of sweep in `strt' */ + GCObject *rootgc; /* list of all collectable objects */ + GCObject **sweepgc; /* position of sweep in `rootgc' */ + GCObject *gray; /* list of gray objects */ + GCObject *grayagain; /* list of objects to be traversed atomically */ + GCObject *weak; /* list of weak tables (to be cleared) */ + GCObject *tmudata; /* last element of list of userdata to be GC */ + Mbuffer buff; /* temporary buffer for string concatentation */ + lu_mem GCthreshold; + lu_mem totalbytes; /* number of bytes currently allocated */ + lu_mem estimate; /* an estimate of number of bytes actually in use */ + lu_mem gcdept; /* how much GC is `behind schedule' */ + int gcpause; /* size of pause between successive GCs */ + int gcstepmul; /* GC `granularity' */ + lua_CFunction panic; /* to be called in unprotected errors */ + TValue l_registry; + struct lua_State *mainthread; + UpVal uvhead; /* head of double-linked list of all open upvalues */ + struct Table *mt[NUM_TAGS]; /* metatables for basic types */ + TString *tmname[TM_N]; /* array with tag-method names */ + /* LuaJIT extensions */ + struct jit_State *jit_state; /* JIT state */ + luaJIT_GateLJ jit_gateLJ; /* Lua -> JIT gate */ + lua_CFunction jit_gateJL; /* JIT -> Lua callgate */ + lua_CFunction jit_gateJC; /* JIT -> C callgate */ +} global_State; + + +/* +** `per thread' state +*/ +struct lua_State { + CommonHeader; + lu_byte status; + StkId top; /* first free slot in the stack */ + StkId base; /* base of current function */ + global_State *l_G; + CallInfo *ci; /* call info for current function */ + const Instruction *savedpc; /* `savedpc' of current function */ + StkId stack_last; /* last free slot in the stack */ + StkId stack; /* stack base */ + CallInfo *end_ci; /* points after end of ci array*/ + CallInfo *base_ci; /* array of CallInfo's */ + int stacksize; + int size_ci; /* size of array `base_ci' */ + unsigned short nCcalls; /* number of nested C calls */ + lu_byte hookmask; + lu_byte allowhook; + int basehookcount; + int hookcount; + lua_Hook hook; + TValue l_gt; /* table of globals */ + TValue env; /* temporary place for environments */ + GCObject *openupval; /* list of open upvalues in this stack */ + GCObject *gclist; + struct lua_longjmp *errorJmp; /* current error recover point */ + ptrdiff_t errfunc; /* current error handling function (stack index) */ +}; + + +#define G(L) (L->l_G) + + +/* +** Union of all collectable objects +*/ +union GCObject { + GCheader gch; + union TString ts; + union Udata u; + union Closure cl; + struct Table h; + struct Proto p; + struct UpVal uv; + struct lua_State th; /* thread */ +}; + + +/* macros to convert a GCObject into a specific value */ +#define rawgco2ts(o) check_exp((o)->gch.tt == LUA_TSTRING, &((o)->ts)) +#define gco2ts(o) (&rawgco2ts(o)->tsv) +#define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) +#define gco2u(o) (&rawgco2u(o)->uv) +#define gco2cl(o) check_exp((o)->gch.tt == LUA_TFUNCTION, &((o)->cl)) +#define gco2h(o) check_exp((o)->gch.tt == LUA_TTABLE, &((o)->h)) +#define gco2p(o) check_exp((o)->gch.tt == LUA_TPROTO, &((o)->p)) +#define gco2uv(o) check_exp((o)->gch.tt == LUA_TUPVAL, &((o)->uv)) +#define ngcotouv(o) \ + check_exp((o) == NULL || (o)->gch.tt == LUA_TUPVAL, &((o)->uv)) +#define gco2th(o) check_exp((o)->gch.tt == LUA_TTHREAD, &((o)->th)) + +/* macro to convert any Lua object into a GCObject */ +#define obj2gco(v) (cast(GCObject *, (v))) + + +LUAI_FUNC lua_State *luaE_newthread (lua_State *L); +LUAI_FUNC void luaE_freethread (lua_State *L, lua_State *L1); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstring.c b/src/3rd party/LuaJIT-1.1.8/src/lstring.c new file mode 100644 index 00000000000..49113151cc7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstring.c @@ -0,0 +1,111 @@ +/* +** $Id: lstring.c,v 2.8.1.1 2007/12/27 13:02:25 roberto Exp $ +** String table (keeps all strings handled by Lua) +** See Copyright Notice in lua.h +*/ + + +#include + +#define lstring_c +#define LUA_CORE + +#include "lua.h" + +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" + + + +void luaS_resize (lua_State *L, int newsize) { + GCObject **newhash; + stringtable *tb; + int i; + if (G(L)->gcstate == GCSsweepstring) + return; /* cannot resize during GC traverse */ + newhash = luaM_newvector(L, newsize, GCObject *); + tb = &G(L)->strt; + for (i=0; isize; i++) { + GCObject *p = tb->hash[i]; + while (p) { /* for each node in the list */ + GCObject *next = p->gch.next; /* save next */ + unsigned int h = gco2ts(p)->hash; + int h1 = lmod(h, newsize); /* new position */ + lua_assert(cast_int(h%newsize) == lmod(h, newsize)); + p->gch.next = newhash[h1]; /* chain it */ + newhash[h1] = p; + p = next; + } + } + luaM_freearray(L, tb->hash, tb->size, TString *); + tb->size = newsize; + tb->hash = newhash; +} + + +static TString *newlstr (lua_State *L, const char *str, size_t l, + unsigned int h) { + TString *ts; + stringtable *tb; + if (l+1 > (MAX_SIZET - sizeof(TString))/sizeof(char)) + luaM_toobig(L); + ts = cast(TString *, luaM_malloc(L, (l+1)*sizeof(char)+sizeof(TString))); + ts->tsv.len = l; + ts->tsv.hash = h; + ts->tsv.marked = luaC_white(G(L)); + ts->tsv.tt = LUA_TSTRING; + ts->tsv.reserved = 0; + memcpy(ts+1, str, l*sizeof(char)); + ((char *)(ts+1))[l] = '\0'; /* ending 0 */ + tb = &G(L)->strt; + h = lmod(h, tb->size); + ts->tsv.next = tb->hash[h]; /* chain new entry */ + tb->hash[h] = obj2gco(ts); + tb->nuse++; + if (tb->nuse > cast(lu_int32, tb->size) && tb->size <= MAX_INT/2) + luaS_resize(L, tb->size*2); /* too crowded */ + return ts; +} + + +TString *luaS_newlstr (lua_State *L, const char *str, size_t l) { + GCObject *o; + unsigned int h = cast(unsigned int, l); /* seed */ + size_t step = (l>>5)+1; /* if string is too long, don't hash all its chars */ + size_t l1; + for (l1=l; l1>=step; l1-=step) /* compute hash */ + h = h ^ ((h<<5)+(h>>2)+cast(unsigned char, str[l1-1])); + for (o = G(L)->strt.hash[lmod(h, G(L)->strt.size)]; + o != NULL; + o = o->gch.next) { + TString *ts = rawgco2ts(o); + if (ts->tsv.len == l && (memcmp(str, getstr(ts), l) == 0)) { + /* string may be dead */ + if (isdead(G(L), o)) changewhite(o); + return ts; + } + } + return newlstr(L, str, l, h); /* not found */ +} + + +Udata *luaS_newudata (lua_State *L, size_t s, Table *e) { + Udata *u; + if (s > MAX_SIZET - sizeof(Udata)) + luaM_toobig(L); + u = cast(Udata *, luaM_malloc(L, s + sizeof(Udata))); + u->uv.marked = luaC_white(G(L)); /* is not finalized */ + u->uv.tt = LUA_TUSERDATA; + u->uv.len = s; + u->uv.metatable = NULL; + u->uv.env = e; + /* chain it on udata list (after main thread) */ + u->uv.next = G(L)->mainthread->next; + G(L)->mainthread->next = obj2gco(u); + return u; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstring.h b/src/3rd party/LuaJIT-1.1.8/src/lstring.h new file mode 100644 index 00000000000..73a2ff8b380 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstring.h @@ -0,0 +1,31 @@ +/* +** $Id: lstring.h,v 1.43.1.1 2007/12/27 13:02:25 roberto Exp $ +** String table (keep all strings handled by Lua) +** See Copyright Notice in lua.h +*/ + +#ifndef lstring_h +#define lstring_h + + +#include "lgc.h" +#include "lobject.h" +#include "lstate.h" + + +#define sizestring(s) (sizeof(union TString)+((s)->len+1)*sizeof(char)) + +#define sizeudata(u) (sizeof(union Udata)+(u)->len) + +#define luaS_new(L, s) (luaS_newlstr(L, s, strlen(s))) +#define luaS_newliteral(L, s) (luaS_newlstr(L, "" s, \ + (sizeof(s)/sizeof(char))-1)) + +#define luaS_fix(s) l_setbit((s)->tsv.marked, FIXEDBIT) + +LUAI_FUNC void luaS_resize (lua_State *L, int newsize); +LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, Table *e); +LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c b/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c new file mode 100644 index 00000000000..7a03489bebd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c @@ -0,0 +1,871 @@ +/* +** $Id: lstrlib.c,v 1.132.1.5 2010/05/14 15:34:19 roberto Exp $ +** Standard library for string operations and pattern-matching +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include + +#define lstrlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +/* macro to `unsign' a character */ +#define uchar(c) ((unsigned char)(c)) + + + +static int str_len (lua_State *L) { + size_t l; + luaL_checklstring(L, 1, &l); + lua_pushinteger(L, l); + return 1; +} + + +static ptrdiff_t posrelat (ptrdiff_t pos, size_t len) { + /* relative string position: negative means back from end */ + if (pos < 0) pos += (ptrdiff_t)len + 1; + return (pos >= 0) ? pos : 0; +} + + +static int str_sub (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + ptrdiff_t start = posrelat(luaL_checkinteger(L, 2), l); + ptrdiff_t end = posrelat(luaL_optinteger(L, 3, -1), l); + if (start < 1) start = 1; + if (end > (ptrdiff_t)l) end = (ptrdiff_t)l; + if (start <= end) + lua_pushlstring(L, s+start-1, end-start+1); + else lua_pushliteral(L, ""); + return 1; +} + + +static int str_reverse (lua_State *L) { + size_t l; + luaL_Buffer b; + const char *s = luaL_checklstring(L, 1, &l); + luaL_buffinit(L, &b); + while (l--) luaL_addchar(&b, s[l]); + luaL_pushresult(&b); + return 1; +} + + +static int str_lower (lua_State *L) { + size_t l; + size_t i; + luaL_Buffer b; + const char *s = luaL_checklstring(L, 1, &l); + luaL_buffinit(L, &b); + for (i=0; i 0) + luaL_addlstring(&b, s, l); + luaL_pushresult(&b); + return 1; +} + + +static int str_byte (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + ptrdiff_t posi = posrelat(luaL_optinteger(L, 2, 1), l); + ptrdiff_t pose = posrelat(luaL_optinteger(L, 3, posi), l); + int n, i; + if (posi <= 0) posi = 1; + if ((size_t)pose > l) pose = l; + if (posi > pose) return 0; /* empty interval; return no values */ + n = (int)(pose - posi + 1); + if (posi + n <= pose) /* overflow? */ + luaL_error(L, "string slice too long"); + luaL_checkstack(L, n, "string slice too long"); + for (i=0; i= ms->level || ms->capture[l].len == CAP_UNFINISHED) + return luaL_error(ms->L, "invalid capture index"); + return l; +} + + +static int capture_to_close (MatchState *ms) { + int level = ms->level; + for (level--; level>=0; level--) + if (ms->capture[level].len == CAP_UNFINISHED) return level; + return luaL_error(ms->L, "invalid pattern capture"); +} + + +static const char *classend (MatchState *ms, const char *p) { + switch (*p++) { + case L_ESC: { + if (*p == '\0') + luaL_error(ms->L, "malformed pattern (ends with " LUA_QL("%%") ")"); + return p+1; + } + case '[': { + if (*p == '^') p++; + do { /* look for a `]' */ + if (*p == '\0') + luaL_error(ms->L, "malformed pattern (missing " LUA_QL("]") ")"); + if (*(p++) == L_ESC && *p != '\0') + p++; /* skip escapes (e.g. `%]') */ + } while (*p != ']'); + return p+1; + } + default: { + return p; + } + } +} + + +static int match_class (int c, int cl) { + int res; + switch (tolower(cl)) { + case 'a' : res = isalpha(c); break; + case 'c' : res = iscntrl(c); break; + case 'd' : res = isdigit(c); break; + case 'l' : res = islower(c); break; + case 'p' : res = ispunct(c); break; + case 's' : res = isspace(c); break; + case 'u' : res = isupper(c); break; + case 'w' : res = isalnum(c); break; + case 'x' : res = isxdigit(c); break; + case 'z' : res = (c == 0); break; + default: return (cl == c); + } + return (islower(cl) ? res : !res); +} + + +static int matchbracketclass (int c, const char *p, const char *ec) { + int sig = 1; + if (*(p+1) == '^') { + sig = 0; + p++; /* skip the `^' */ + } + while (++p < ec) { + if (*p == L_ESC) { + p++; + if (match_class(c, uchar(*p))) + return sig; + } + else if ((*(p+1) == '-') && (p+2 < ec)) { + p+=2; + if (uchar(*(p-2)) <= c && c <= uchar(*p)) + return sig; + } + else if (uchar(*p) == c) return sig; + } + return !sig; +} + + +static int singlematch (int c, const char *p, const char *ep) { + switch (*p) { + case '.': return 1; /* matches any char */ + case L_ESC: return match_class(c, uchar(*(p+1))); + case '[': return matchbracketclass(c, p, ep-1); + default: return (uchar(*p) == c); + } +} + + +static const char *match (MatchState *ms, const char *s, const char *p); + + +static const char *matchbalance (MatchState *ms, const char *s, + const char *p) { + if (*p == 0 || *(p+1) == 0) + luaL_error(ms->L, "unbalanced pattern"); + if (*s != *p) return NULL; + else { + int b = *p; + int e = *(p+1); + int cont = 1; + while (++s < ms->src_end) { + if (*s == e) { + if (--cont == 0) return s+1; + } + else if (*s == b) cont++; + } + } + return NULL; /* string ends out of balance */ +} + + +static const char *max_expand (MatchState *ms, const char *s, + const char *p, const char *ep) { + ptrdiff_t i = 0; /* counts maximum expand for item */ + while ((s+i)src_end && singlematch(uchar(*(s+i)), p, ep)) + i++; + /* keeps trying to match with the maximum repetitions */ + while (i>=0) { + const char *res = match(ms, (s+i), ep+1); + if (res) return res; + i--; /* else didn't match; reduce 1 repetition to try again */ + } + return NULL; +} + + +static const char *min_expand (MatchState *ms, const char *s, + const char *p, const char *ep) { + for (;;) { + const char *res = match(ms, s, ep+1); + if (res != NULL) + return res; + else if (ssrc_end && singlematch(uchar(*s), p, ep)) + s++; /* try with one more repetition */ + else return NULL; + } +} + + +static const char *start_capture (MatchState *ms, const char *s, + const char *p, int what) { + const char *res; + int level = ms->level; + if (level >= LUA_MAXCAPTURES) luaL_error(ms->L, "too many captures"); + ms->capture[level].init = s; + ms->capture[level].len = what; + ms->level = level+1; + if ((res=match(ms, s, p)) == NULL) /* match failed? */ + ms->level--; /* undo capture */ + return res; +} + + +static const char *end_capture (MatchState *ms, const char *s, + const char *p) { + int l = capture_to_close(ms); + const char *res; + ms->capture[l].len = s - ms->capture[l].init; /* close capture */ + if ((res = match(ms, s, p)) == NULL) /* match failed? */ + ms->capture[l].len = CAP_UNFINISHED; /* undo capture */ + return res; +} + + +static const char *match_capture (MatchState *ms, const char *s, int l) { + size_t len; + l = check_capture(ms, l); + len = ms->capture[l].len; + if ((size_t)(ms->src_end-s) >= len && + memcmp(ms->capture[l].init, s, len) == 0) + return s+len; + else return NULL; +} + + +static const char *match (MatchState *ms, const char *s, const char *p) { + init: /* using goto's to optimize tail recursion */ + switch (*p) { + case '(': { /* start capture */ + if (*(p+1) == ')') /* position capture? */ + return start_capture(ms, s, p+2, CAP_POSITION); + else + return start_capture(ms, s, p+1, CAP_UNFINISHED); + } + case ')': { /* end capture */ + return end_capture(ms, s, p+1); + } + case L_ESC: { + switch (*(p+1)) { + case 'b': { /* balanced string? */ + s = matchbalance(ms, s, p+2); + if (s == NULL) return NULL; + p+=4; goto init; /* else return match(ms, s, p+4); */ + } + case 'f': { /* frontier? */ + const char *ep; char previous; + p += 2; + if (*p != '[') + luaL_error(ms->L, "missing " LUA_QL("[") " after " + LUA_QL("%%f") " in pattern"); + ep = classend(ms, p); /* points to what is next */ + previous = (s == ms->src_init) ? '\0' : *(s-1); + if (matchbracketclass(uchar(previous), p, ep-1) || + !matchbracketclass(uchar(*s), p, ep-1)) return NULL; + p=ep; goto init; /* else return match(ms, s, ep); */ + } + default: { + if (isdigit(uchar(*(p+1)))) { /* capture results (%0-%9)? */ + s = match_capture(ms, s, uchar(*(p+1))); + if (s == NULL) return NULL; + p+=2; goto init; /* else return match(ms, s, p+2) */ + } + goto dflt; /* case default */ + } + } + } + case '\0': { /* end of pattern */ + return s; /* match succeeded */ + } + case '$': { + if (*(p+1) == '\0') /* is the `$' the last char in pattern? */ + return (s == ms->src_end) ? s : NULL; /* check end of string */ + else goto dflt; + } + default: dflt: { /* it is a pattern item */ + const char *ep = classend(ms, p); /* points to what is next */ + int m = ssrc_end && singlematch(uchar(*s), p, ep); + switch (*ep) { + case '?': { /* optional */ + const char *res; + if (m && ((res=match(ms, s+1, ep+1)) != NULL)) + return res; + p=ep+1; goto init; /* else return match(ms, s, ep+1); */ + } + case '*': { /* 0 or more repetitions */ + return max_expand(ms, s, p, ep); + } + case '+': { /* 1 or more repetitions */ + return (m ? max_expand(ms, s+1, p, ep) : NULL); + } + case '-': { /* 0 or more repetitions (minimum) */ + return min_expand(ms, s, p, ep); + } + default: { + if (!m) return NULL; + s++; p=ep; goto init; /* else return match(ms, s+1, ep); */ + } + } + } + } +} + + + +static const char *lmemfind (const char *s1, size_t l1, + const char *s2, size_t l2) { + if (l2 == 0) return s1; /* empty strings are everywhere */ + else if (l2 > l1) return NULL; /* avoids a negative `l1' */ + else { + const char *init; /* to search for a `*s2' inside `s1' */ + l2--; /* 1st char will be checked by `memchr' */ + l1 = l1-l2; /* `s2' cannot be found after that */ + while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { + init++; /* 1st char is already checked */ + if (memcmp(init, s2+1, l2) == 0) + return init-1; + else { /* correct `l1' and `s1' to try again */ + l1 -= init-s1; + s1 = init; + } + } + return NULL; /* not found */ + } +} + + +static void push_onecapture (MatchState *ms, int i, const char *s, + const char *e) { + if (i >= ms->level) { + if (i == 0) /* ms->level == 0, too */ + lua_pushlstring(ms->L, s, e - s); /* add whole match */ + else + luaL_error(ms->L, "invalid capture index"); + } + else { + ptrdiff_t l = ms->capture[i].len; + if (l == CAP_UNFINISHED) luaL_error(ms->L, "unfinished capture"); + if (l == CAP_POSITION) + lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1); + else + lua_pushlstring(ms->L, ms->capture[i].init, l); + } +} + + +static int push_captures (MatchState *ms, const char *s, const char *e) { + int i; + int nlevels = (ms->level == 0 && s) ? 1 : ms->level; + luaL_checkstack(ms->L, nlevels, "too many captures"); + for (i = 0; i < nlevels; i++) + push_onecapture(ms, i, s, e); + return nlevels; /* number of strings pushed */ +} + + +static int str_find_aux (lua_State *L, int find) { + size_t l1, l2; + const char *s = luaL_checklstring(L, 1, &l1); + const char *p = luaL_checklstring(L, 2, &l2); + ptrdiff_t init = posrelat(luaL_optinteger(L, 3, 1), l1) - 1; + if (init < 0) init = 0; + else if ((size_t)(init) > l1) init = (ptrdiff_t)l1; + if (find && (lua_toboolean(L, 4) || /* explicit request? */ + strpbrk(p, SPECIALS) == NULL)) { /* or no special characters? */ + /* do a plain search */ + const char *s2 = lmemfind(s+init, l1-init, p, l2); + if (s2) { + lua_pushinteger(L, s2-s+1); + lua_pushinteger(L, s2-s+l2); + return 2; + } + } + else { + MatchState ms; + int anchor = (*p == '^') ? (p++, 1) : 0; + const char *s1=s+init; + ms.L = L; + ms.src_init = s; + ms.src_end = s+l1; + do { + const char *res; + ms.level = 0; + if ((res=match(&ms, s1, p)) != NULL) { + if (find) { + lua_pushinteger(L, s1-s+1); /* start */ + lua_pushinteger(L, res-s); /* end */ + return push_captures(&ms, NULL, 0) + 2; + } + else + return push_captures(&ms, s1, res); + } + } while (s1++ < ms.src_end && !anchor); + } + lua_pushnil(L); /* not found */ + return 1; +} + + +static int str_find (lua_State *L) { + return str_find_aux(L, 1); +} + + +static int str_match (lua_State *L) { + return str_find_aux(L, 0); +} + + +static int gmatch_aux (lua_State *L) { + MatchState ms; + size_t ls; + const char *s = lua_tolstring(L, lua_upvalueindex(1), &ls); + const char *p = lua_tostring(L, lua_upvalueindex(2)); + const char *src; + ms.L = L; + ms.src_init = s; + ms.src_end = s+ls; + for (src = s + (size_t)lua_tointeger(L, lua_upvalueindex(3)); + src <= ms.src_end; + src++) { + const char *e; + ms.level = 0; + if ((e = match(&ms, src, p)) != NULL) { + lua_Integer newstart = e-s; + if (e == src) newstart++; /* empty match? go at least one position */ + lua_pushinteger(L, newstart); + lua_replace(L, lua_upvalueindex(3)); + return push_captures(&ms, src, e); + } + } + return 0; /* not found */ +} + + +static int gmatch (lua_State *L) { + luaL_checkstring(L, 1); + luaL_checkstring(L, 2); + lua_settop(L, 2); + lua_pushinteger(L, 0); + lua_pushcclosure(L, gmatch_aux, 3); + return 1; +} + + +static int gfind_nodef (lua_State *L) { + return luaL_error(L, LUA_QL("string.gfind") " was renamed to " + LUA_QL("string.gmatch")); +} + + +static void add_s (MatchState *ms, luaL_Buffer *b, const char *s, + const char *e) { + size_t l, i; + const char *news = lua_tolstring(ms->L, 3, &l); + for (i = 0; i < l; i++) { + if (news[i] != L_ESC) + luaL_addchar(b, news[i]); + else { + i++; /* skip ESC */ + if (!isdigit(uchar(news[i]))) + luaL_addchar(b, news[i]); + else if (news[i] == '0') + luaL_addlstring(b, s, e - s); + else { + push_onecapture(ms, news[i] - '1', s, e); + luaL_addvalue(b); /* add capture to accumulated result */ + } + } + } +} + + +static void add_value (MatchState *ms, luaL_Buffer *b, const char *s, + const char *e) { + lua_State *L = ms->L; + switch (lua_type(L, 3)) { + case LUA_TNUMBER: + case LUA_TSTRING: { + add_s(ms, b, s, e); + return; + } + case LUA_TFUNCTION: { + int n; + lua_pushvalue(L, 3); + n = push_captures(ms, s, e); + lua_call(L, n, 1); + break; + } + case LUA_TTABLE: { + push_onecapture(ms, 0, s, e); + lua_gettable(L, 3); + break; + } + } + if (!lua_toboolean(L, -1)) { /* nil or false? */ + lua_pop(L, 1); + lua_pushlstring(L, s, e - s); /* keep original text */ + } + else if (!lua_isstring(L, -1)) + luaL_error(L, "invalid replacement value (a %s)", luaL_typename(L, -1)); + luaL_addvalue(b); /* add result to accumulator */ +} + + +static int str_gsub (lua_State *L) { + size_t srcl; + const char *src = luaL_checklstring(L, 1, &srcl); + const char *p = luaL_checkstring(L, 2); + int tr = lua_type(L, 3); + int max_s = luaL_optint(L, 4, srcl+1); + int anchor = (*p == '^') ? (p++, 1) : 0; + int n = 0; + MatchState ms; + luaL_Buffer b; + luaL_argcheck(L, tr == LUA_TNUMBER || tr == LUA_TSTRING || + tr == LUA_TFUNCTION || tr == LUA_TTABLE, 3, + "string/function/table expected"); + luaL_buffinit(L, &b); + ms.L = L; + ms.src_init = src; + ms.src_end = src+srcl; + while (n < max_s) { + const char *e; + ms.level = 0; + e = match(&ms, src, p); + if (e) { + n++; + add_value(&ms, &b, src, e); + } + if (e && e>src) /* non empty match? */ + src = e; /* skip it */ + else if (src < ms.src_end) + luaL_addchar(&b, *src++); + else break; + if (anchor) break; + } + luaL_addlstring(&b, src, ms.src_end-src); + luaL_pushresult(&b); + lua_pushinteger(L, n); /* number of substitutions */ + return 2; +} + +/* }====================================================== */ + + +/* maximum size of each formatted item (> len(format('%99.99f', -1e308))) */ +#define MAX_ITEM 512 +/* valid flags in a format specification */ +#define FLAGS "-+ #0" +/* +** maximum size of each format specification (such as '%-099.99d') +** (+10 accounts for %99.99x plus margin of error) +*/ +#define MAX_FORMAT (sizeof(FLAGS) + sizeof(LUA_INTFRMLEN) + 10) + + +static void addquoted (lua_State *L, luaL_Buffer *b, int arg) { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + luaL_addchar(b, '"'); + while (l--) { + switch (*s) { + case '"': case '\\': case '\n': { + luaL_addchar(b, '\\'); + luaL_addchar(b, *s); + break; + } + case '\r': { + luaL_addlstring(b, "\\r", 2); + break; + } + case '\0': { + luaL_addlstring(b, "\\000", 4); + break; + } + default: { + luaL_addchar(b, *s); + break; + } + } + s++; + } + luaL_addchar(b, '"'); +} + +static const char *scanformat (lua_State *L, const char *strfrmt, char *form) { + const char *p = strfrmt; + while (*p != '\0' && strchr(FLAGS, *p) != NULL) p++; /* skip flags */ + if ((size_t)(p - strfrmt) >= sizeof(FLAGS)) + luaL_error(L, "invalid format (repeated flags)"); + if (isdigit(uchar(*p))) p++; /* skip width */ + if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ + if (*p == '.') { + p++; + if (isdigit(uchar(*p))) p++; /* skip precision */ + if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ + } + if (isdigit(uchar(*p))) + luaL_error(L, "invalid format (width or precision too long)"); + *(form++) = '%'; + strncpy(form, strfrmt, p - strfrmt + 1); + form += p - strfrmt + 1; + *form = '\0'; + return p; +} + + +static void addintlen (char *form) { + size_t l = strlen(form); + char spec = form[l - 1]; + strcpy(form + l - 1, LUA_INTFRMLEN); + form[l + sizeof(LUA_INTFRMLEN) - 2] = spec; + form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0'; +} + + +static int str_format (lua_State *L) { + int top = lua_gettop(L); + int arg = 1; + size_t sfl; + const char *strfrmt = luaL_checklstring(L, arg, &sfl); + const char *strfrmt_end = strfrmt+sfl; + luaL_Buffer b; + luaL_buffinit(L, &b); + while (strfrmt < strfrmt_end) { + if (*strfrmt != L_ESC) + luaL_addchar(&b, *strfrmt++); + else if (*++strfrmt == L_ESC) + luaL_addchar(&b, *strfrmt++); /* %% */ + else { /* format item */ + char form[MAX_FORMAT]; /* to store the format (`%...') */ + char buff[MAX_ITEM]; /* to store the formatted item */ + if (++arg > top) + luaL_argerror(L, arg, "no value"); + strfrmt = scanformat(L, strfrmt, form); + switch (*strfrmt++) { + case 'c': { + sprintf(buff, form, (int)luaL_checknumber(L, arg)); + break; + } + case 'd': case 'i': { + addintlen(form); + sprintf(buff, form, (LUA_INTFRM_T)luaL_checknumber(L, arg)); + break; + } + case 'o': case 'u': case 'x': case 'X': { + addintlen(form); + sprintf(buff, form, (unsigned LUA_INTFRM_T)luaL_checknumber(L, arg)); + break; + } + case 'e': case 'E': case 'f': + case 'g': case 'G': { + sprintf(buff, form, (double)luaL_checknumber(L, arg)); + break; + } + case 'q': { + addquoted(L, &b, arg); + continue; /* skip the 'addsize' at the end */ + } + case 's': { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + if (!strchr(form, '.') && l >= 100) { + /* no precision and string is too long to be formatted; + keep original string */ + lua_pushvalue(L, arg); + luaL_addvalue(&b); + continue; /* skip the `addsize' at the end */ + } + else { + sprintf(buff, form, s); + break; + } + } + default: { /* also treat cases `pnLlh' */ + return luaL_error(L, "invalid option " LUA_QL("%%%c") " to " + LUA_QL("format"), *(strfrmt - 1)); + } + } + luaL_addlstring(&b, buff, strlen(buff)); + } + } + luaL_pushresult(&b); + return 1; +} + + +static const luaL_Reg strlib[] = { + {"byte", str_byte}, + {"char", str_char}, + {"dump", str_dump}, + {"find", str_find}, + {"format", str_format}, + {"gfind", gfind_nodef}, + {"gmatch", gmatch}, + {"gsub", str_gsub}, + {"len", str_len}, + {"lower", str_lower}, + {"match", str_match}, + {"rep", str_rep}, + {"reverse", str_reverse}, + {"sub", str_sub}, + {"upper", str_upper}, + {NULL, NULL} +}; + + +static void createmetatable (lua_State *L) { + lua_createtable(L, 0, 1); /* create metatable for strings */ + lua_pushliteral(L, ""); /* dummy string */ + lua_pushvalue(L, -2); + lua_setmetatable(L, -2); /* set string metatable */ + lua_pop(L, 1); /* pop dummy string */ + lua_pushvalue(L, -2); /* string library... */ + lua_setfield(L, -2, "__index"); /* ...is the __index metamethod */ + lua_pop(L, 1); /* pop metatable */ +} + + +/* +** Open string library +*/ +LUALIB_API int luaopen_string (lua_State *L) { + luaL_register(L, LUA_STRLIBNAME, strlib); +#if defined(LUA_COMPAT_GFIND) + lua_getfield(L, -1, "gmatch"); + lua_setfield(L, -2, "gfind"); +#endif + createmetatable(L); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltable.c b/src/3rd party/LuaJIT-1.1.8/src/ltable.c new file mode 100644 index 00000000000..6b226ad4790 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltable.c @@ -0,0 +1,588 @@ +/* +** $Id: ltable.c,v 2.32.1.2 2007/12/28 15:32:23 roberto Exp $ +** Lua tables (hash) +** See Copyright Notice in lua.h +*/ + + +/* +** Implementation of tables (aka arrays, objects, or hash tables). +** Tables keep its elements in two parts: an array part and a hash part. +** Non-negative integer keys are all candidates to be kept in the array +** part. The actual size of the array is the largest `n' such that at +** least half the slots between 0 and n are in use. +** Hash uses a mix of chained scatter table with Brent's variation. +** A main invariant of these tables is that, if an element is not +** in its main position (i.e. the `original' position that its hash gives +** to it), then the colliding element is in its own main position. +** Hence even when the load factor reaches 100%, performance remains good. +*/ + +#include +#include + +#define ltable_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "ltable.h" + + +/* +** max size of array part is 2^MAXBITS +*/ +#if LUAI_BITSINT > 26 +#define MAXBITS 26 +#else +#define MAXBITS (LUAI_BITSINT-2) +#endif + +#define MAXASIZE (1 << MAXBITS) + + +#define hashpow2(t,n) (gnode(t, lmod((n), sizenode(t)))) + +#define hashstr(t,str) hashpow2(t, (str)->tsv.hash) +#define hashboolean(t,p) hashpow2(t, p) + + +/* +** for some types, it is better to avoid modulus by power of 2, as +** they tend to have many 2 factors. +*/ +#define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1)))) + + +#define hashpointer(t,p) hashmod(t, IntPoint(p)) + + +/* +** number of ints inside a lua_Number +*/ +#define numints cast_int(sizeof(lua_Number)/sizeof(int)) + + + +#define dummynode (&dummynode_) + +static const Node dummynode_ = { + {{NULL}, LUA_TNIL}, /* value */ + {{{NULL}, LUA_TNIL, NULL}} /* key */ +}; + + +/* +** hash for lua_Numbers +*/ +static Node *hashnum (const Table *t, lua_Number n) { + unsigned int a[numints]; + int i; + if (luai_numeq(n, 0)) /* avoid problems with -0 */ + return gnode(t, 0); + memcpy(a, &n, sizeof(a)); + for (i = 1; i < numints; i++) a[0] += a[i]; + return hashmod(t, a[0]); +} + + + +/* +** returns the `main' position of an element in a table (that is, the index +** of its hash value) +*/ +static Node *mainposition (const Table *t, const TValue *key) { + switch (ttype(key)) { + case LUA_TNUMBER: + return hashnum(t, nvalue(key)); + case LUA_TSTRING: + return hashstr(t, rawtsvalue(key)); + case LUA_TBOOLEAN: + return hashboolean(t, bvalue(key)); + case LUA_TLIGHTUSERDATA: + return hashpointer(t, pvalue(key)); + default: + return hashpointer(t, gcvalue(key)); + } +} + + +/* +** returns the index for `key' if `key' is an appropriate key to live in +** the array part of the table, -1 otherwise. +*/ +static int arrayindex (const TValue *key) { + if (ttisnumber(key)) { + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (luai_numeq(cast_num(k), n)) + return k; + } + return -1; /* `key' did not match some condition */ +} + + +/* +** returns the index of a `key' for table traversals. First goes all +** elements in the array part, then elements in the hash part. The +** beginning of a traversal is signalled by -1. +*/ +static int findindex (lua_State *L, Table *t, StkId key) { + int i; + if (ttisnil(key)) return -1; /* first iteration */ + i = arrayindex(key); + if (0 < i && i <= t->sizearray) /* is `key' inside array part? */ + return i-1; /* yes; that's the index (corrected to C) */ + else { + Node *n = mainposition(t, key); + do { /* check whether `key' is somewhere in the chain */ + /* key may be dead already, but it is ok to use it in `next' */ + if (luaO_rawequalObj(key2tval(n), key) || + (ttype(gkey(n)) == LUA_TDEADKEY && iscollectable(key) && + gcvalue(gkey(n)) == gcvalue(key))) { + i = cast_int(n - gnode(t, 0)); /* key index in hash table */ + /* hash elements are numbered after array ones */ + return i + t->sizearray; + } + else n = gnext(n); + } while (n); + luaG_runerror(L, "invalid key to " LUA_QL("next")); /* key not found */ + return 0; /* to avoid warnings */ + } +} + + +int luaH_next (lua_State *L, Table *t, StkId key) { + int i = findindex(L, t, key); /* find original element */ + for (i++; i < t->sizearray; i++) { /* try first array part */ + if (!ttisnil(&t->array[i])) { /* a non-nil value? */ + setnvalue(key, cast_num(i+1)); + setobj2s(L, key+1, &t->array[i]); + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* then hash part */ + if (!ttisnil(gval(gnode(t, i)))) { /* a non-nil value? */ + setobj2s(L, key, key2tval(gnode(t, i))); + setobj2s(L, key+1, gval(gnode(t, i))); + return 1; + } + } + return 0; /* no more elements */ +} + + +/* +** {============================================================= +** Rehash +** ============================================================== +*/ + + +static int computesizes (int nums[], int *narray) { + int i; + int twotoi; /* 2^i */ + int a = 0; /* number of elements smaller than 2^i */ + int na = 0; /* number of elements to go to array part */ + int n = 0; /* optimal size for array part */ + for (i = 0, twotoi = 1; twotoi/2 < *narray; i++, twotoi *= 2) { + if (nums[i] > 0) { + a += nums[i]; + if (a > twotoi/2) { /* more than half elements present? */ + n = twotoi; /* optimal size (till now) */ + na = a; /* all elements smaller than n will go to array part */ + } + } + if (a == *narray) break; /* all elements already counted */ + } + *narray = n; + lua_assert(*narray/2 <= na && na <= *narray); + return na; +} + + +static int countint (const TValue *key, int *nums) { + int k = arrayindex(key); + if (0 < k && k <= MAXASIZE) { /* is `key' an appropriate array index? */ + nums[ceillog2(k)]++; /* count as such */ + return 1; + } + else + return 0; +} + + +static int numusearray (const Table *t, int *nums) { + int lg; + int ttlg; /* 2^lg */ + int ause = 0; /* summation of `nums' */ + int i = 1; /* count to traverse all array keys */ + for (lg=0, ttlg=1; lg<=MAXBITS; lg++, ttlg*=2) { /* for each slice */ + int lc = 0; /* counter */ + int lim = ttlg; + if (lim > t->sizearray) { + lim = t->sizearray; /* adjust upper limit */ + if (i > lim) + break; /* no more elements to count */ + } + /* count elements in range (2^(lg-1), 2^lg] */ + for (; i <= lim; i++) { + if (!ttisnil(&t->array[i-1])) + lc++; + } + nums[lg] += lc; + ause += lc; + } + return ause; +} + + +static int numusehash (const Table *t, int *nums, int *pnasize) { + int totaluse = 0; /* total number of elements */ + int ause = 0; /* summation of `nums' */ + int i = sizenode(t); + while (i--) { + Node *n = &t->node[i]; + if (!ttisnil(gval(n))) { + ause += countint(key2tval(n), nums); + totaluse++; + } + } + *pnasize += ause; + return totaluse; +} + + +static void setarrayvector (lua_State *L, Table *t, int size) { + int i; + luaM_reallocvector(L, t->array, t->sizearray, size, TValue); + for (i=t->sizearray; iarray[i]); + t->sizearray = size; +} + + +static void setnodevector (lua_State *L, Table *t, int size) { + int lsize; + if (size == 0) { /* no elements to hash part? */ + t->node = cast(Node *, dummynode); /* use common `dummynode' */ + lsize = 0; + } + else { + int i; + lsize = ceillog2(size); + if (lsize > MAXBITS) + luaG_runerror(L, "table overflow"); + size = twoto(lsize); + t->node = luaM_newvector(L, size, Node); + for (i=0; ilsizenode = cast_byte(lsize); + t->lastfree = gnode(t, size); /* all positions are free */ +} + + +static void resize (lua_State *L, Table *t, int nasize, int nhsize) { + int i; + int oldasize = t->sizearray; + int oldhsize = t->lsizenode; + Node *nold = t->node; /* save old hash ... */ + if (nasize > oldasize) /* array part must grow? */ + setarrayvector(L, t, nasize); + /* create new hash part with appropriate size */ + setnodevector(L, t, nhsize); + if (nasize < oldasize) { /* array part must shrink? */ + t->sizearray = nasize; + /* re-insert elements from vanishing slice */ + for (i=nasize; iarray[i])) + setobjt2t(L, luaH_setnum(L, t, i+1), &t->array[i]); + } + /* shrink array */ + luaM_reallocvector(L, t->array, oldasize, nasize, TValue); + } + /* re-insert elements from hash part */ + for (i = twoto(oldhsize) - 1; i >= 0; i--) { + Node *old = nold+i; + if (!ttisnil(gval(old))) + setobjt2t(L, luaH_set(L, t, key2tval(old)), gval(old)); + } + if (nold != dummynode) + luaM_freearray(L, nold, twoto(oldhsize), Node); /* free old array */ +} + + +void luaH_resizearray (lua_State *L, Table *t, int nasize) { + int nsize = (t->node == dummynode) ? 0 : sizenode(t); + resize(L, t, nasize, nsize); +} + + +static void rehash (lua_State *L, Table *t, const TValue *ek) { + int nasize, na; + int nums[MAXBITS+1]; /* nums[i] = number of keys between 2^(i-1) and 2^i */ + int i; + int totaluse; + for (i=0; i<=MAXBITS; i++) nums[i] = 0; /* reset counts */ + nasize = numusearray(t, nums); /* count keys in array part */ + totaluse = nasize; /* all those keys are integer keys */ + totaluse += numusehash(t, nums, &nasize); /* count keys in hash part */ + /* count extra key */ + nasize += countint(ek, nums); + totaluse++; + /* compute new size for array part */ + na = computesizes(nums, &nasize); + /* resize the table to new computed sizes */ + resize(L, t, nasize, totaluse - na); +} + + + +/* +** }============================================================= +*/ + + +Table *luaH_new (lua_State *L, int narray, int nhash) { + Table *t = luaM_new(L, Table); + luaC_link(L, obj2gco(t), LUA_TTABLE); + t->metatable = NULL; + t->flags = cast_byte(~0); + /* temporary values (kept only if some malloc fails) */ + t->array = NULL; + t->sizearray = 0; + t->lsizenode = 0; + t->node = cast(Node *, dummynode); + setarrayvector(L, t, narray); + setnodevector(L, t, nhash); + return t; +} + + +void luaH_free (lua_State *L, Table *t) { + if (t->node != dummynode) + luaM_freearray(L, t->node, sizenode(t), Node); + luaM_freearray(L, t->array, t->sizearray, TValue); + luaM_free(L, t); +} + + +static Node *getfreepos (Table *t) { + while (t->lastfree-- > t->node) { + if (ttisnil(gkey(t->lastfree))) + return t->lastfree; + } + return NULL; /* could not find a free place */ +} + + + +/* +** inserts a new key into a hash table; first, check whether key's main +** position is free. If not, check whether colliding node is in its main +** position or not: if it is not, move colliding node to an empty place and +** put new key in its main position; otherwise (colliding node is in its main +** position), new key goes to an empty position. +*/ +TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key) { + Node *mp = mainposition(t, key); + if (!ttisnil(gval(mp)) || mp == dummynode) { + Node *othern; + Node *n = getfreepos(t); /* get a free place */ + if (n == NULL) { /* cannot find a free place? */ + rehash(L, t, key); /* grow table */ + return luaH_set(L, t, key); /* re-insert key into grown table */ + } + lua_assert(n != dummynode); + othern = mainposition(t, key2tval(mp)); + if (othern != mp) { /* is colliding node out of its main position? */ + /* yes; move colliding node into free position */ + while (gnext(othern) != mp) othern = gnext(othern); /* find previous */ + gnext(othern) = n; /* redo the chain with `n' in place of `mp' */ + *n = *mp; /* copy colliding node into free pos. (mp->next also goes) */ + gnext(mp) = NULL; /* now `mp' is free */ + setnilvalue(gval(mp)); + } + else { /* colliding node is in its own main position */ + /* new node will go into free position */ + gnext(n) = gnext(mp); /* chain new position */ + gnext(mp) = n; + mp = n; + } + } + gkey(mp)->value = key->value; gkey(mp)->tt = key->tt; + luaC_barriert(L, t, key); + lua_assert(ttisnil(gval(mp))); + return gval(mp); +} + + +/* +** search function for integers +*/ +const TValue *luaH_getnum (Table *t, int key) { + /* (1 <= key && key <= t->sizearray) */ + if (cast(unsigned int, key-1) < cast(unsigned int, t->sizearray)) + return &t->array[key-1]; + else { + lua_Number nk = cast_num(key); + Node *n = hashnum(t, nk); + do { /* check whether `key' is somewhere in the chain */ + if (ttisnumber(gkey(n)) && luai_numeq(nvalue(gkey(n)), nk)) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; + } +} + + +/* +** search function for strings +*/ +const TValue *luaH_getstr (Table *t, TString *key) { + Node *n = hashstr(t, key); + do { /* check whether `key' is somewhere in the chain */ + if (ttisstring(gkey(n)) && rawtsvalue(gkey(n)) == key) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; +} + + +/* +** main search function +*/ +const TValue *luaH_get (Table *t, const TValue *key) { + switch (ttype(key)) { + case LUA_TNIL: return luaO_nilobject; + case LUA_TSTRING: return luaH_getstr(t, rawtsvalue(key)); + case LUA_TNUMBER: { + int k; + lua_Number n = nvalue(key); + lua_number2int(k, n); + if (luai_numeq(cast_num(k), nvalue(key))) /* index is int? */ + return luaH_getnum(t, k); /* use specialized version */ + /* else go through */ + } + default: { + Node *n = mainposition(t, key); + do { /* check whether `key' is somewhere in the chain */ + if (luaO_rawequalObj(key2tval(n), key)) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; + } + } +} + + +TValue *luaH_set (lua_State *L, Table *t, const TValue *key) { + const TValue *p = luaH_get(t, key); + t->flags = 0; + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + if (ttisnil(key)) luaG_runerror(L, "table index is nil"); + else if (ttisnumber(key) && luai_numisnan(nvalue(key))) + luaG_runerror(L, "table index is NaN"); + return luaH_newkey(L, t, key); + } +} + + +TValue *luaH_setnum (lua_State *L, Table *t, int key) { + const TValue *p = luaH_getnum(t, key); + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + TValue k; + setnvalue(&k, cast_num(key)); + return luaH_newkey(L, t, &k); + } +} + + +TValue *luaH_setstr (lua_State *L, Table *t, TString *key) { + const TValue *p = luaH_getstr(t, key); + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + TValue k; + setsvalue(L, &k, key); + return luaH_newkey(L, t, &k); + } +} + + +static int unbound_search (Table *t, unsigned int j) { + unsigned int i = j; /* i is zero or a present index */ + j++; + /* find `i' and `j' such that i is present and j is not */ + while (!ttisnil(luaH_getnum(t, j))) { + i = j; + j *= 2; + if (j > cast(unsigned int, MAX_INT)) { /* overflow? */ + /* table was built with bad purposes: resort to linear search */ + i = 1; + while (!ttisnil(luaH_getnum(t, i))) i++; + return i - 1; + } + } + /* now do a binary search between them */ + while (j - i > 1) { + unsigned int m = (i+j)/2; + if (ttisnil(luaH_getnum(t, m))) j = m; + else i = m; + } + return i; +} + + +/* +** Try to find a boundary in table `t'. A `boundary' is an integer index +** such that t[i] is non-nil and t[i+1] is nil (and 0 if t[1] is nil). +*/ +int luaH_getn (Table *t) { + unsigned int j = t->sizearray; + if (j > 0 && ttisnil(&t->array[j - 1])) { + /* there is a boundary in the array part: (binary) search for it */ + unsigned int i = 0; + while (j - i > 1) { + unsigned int m = (i+j)/2; + if (ttisnil(&t->array[m - 1])) j = m; + else i = m; + } + return i; + } + /* else must find a boundary in hash part */ + else if (t->node == dummynode) /* hash part is empty? */ + return j; /* that is easy... */ + else return unbound_search(t, j); +} + + + +#if defined(LUA_DEBUG) + +Node *luaH_mainposition (const Table *t, const TValue *key) { + return mainposition(t, key); +} + +int luaH_isdummy (Node *n) { return n == dummynode; } + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltable.h b/src/3rd party/LuaJIT-1.1.8/src/ltable.h new file mode 100644 index 00000000000..a61c9813076 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltable.h @@ -0,0 +1,41 @@ +/* +** $Id: ltable.h,v 2.10.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua tables (hash) +** See Copyright Notice in lua.h +*/ + +#ifndef ltable_h +#define ltable_h + +#include "lobject.h" + + +#define gnode(t,i) (&(t)->node[i]) +#define gkey(n) (&(n)->i_key.nk) +#define gval(n) (&(n)->i_val) +#define gnext(n) ((n)->i_key.nk.next) + +#define key2tval(n) (&(n)->i_key.tvk) + + +LUAI_FUNC const TValue *luaH_getnum (Table *t, int key); +LUAI_FUNC TValue *luaH_setnum (lua_State *L, Table *t, int key); +LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key); +LUAI_FUNC TValue *luaH_setstr (lua_State *L, Table *t, TString *key); +LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key); +LUAI_FUNC TValue *luaH_set (lua_State *L, Table *t, const TValue *key); +LUAI_FUNC Table *luaH_new (lua_State *L, int narray, int lnhash); +LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, int nasize); +LUAI_FUNC void luaH_free (lua_State *L, Table *t); +LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key); +LUAI_FUNC int luaH_getn (Table *t); +LUAI_FUNC TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key); + + +#if defined(LUA_DEBUG) +LUAI_FUNC Node *luaH_mainposition (const Table *t, const TValue *key); +LUAI_FUNC int luaH_isdummy (Node *n); +#endif + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltablib.c b/src/3rd party/LuaJIT-1.1.8/src/ltablib.c new file mode 100644 index 00000000000..b6d9cb4ac74 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltablib.c @@ -0,0 +1,287 @@ +/* +** $Id: ltablib.c,v 1.38.1.3 2008/02/14 16:46:58 roberto Exp $ +** Library for Table Manipulation +** See Copyright Notice in lua.h +*/ + + +#include + +#define ltablib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +#define aux_getn(L,n) (luaL_checktype(L, n, LUA_TTABLE), luaL_getn(L, n)) + + +static int foreachi (lua_State *L) { + int i; + int n = aux_getn(L, 1); + luaL_checktype(L, 2, LUA_TFUNCTION); + for (i=1; i <= n; i++) { + lua_pushvalue(L, 2); /* function */ + lua_pushinteger(L, i); /* 1st argument */ + lua_rawgeti(L, 1, i); /* 2nd argument */ + lua_call(L, 2, 1); + if (!lua_isnil(L, -1)) + return 1; + lua_pop(L, 1); /* remove nil result */ + } + return 0; +} + + +static int foreach (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checktype(L, 2, LUA_TFUNCTION); + lua_pushnil(L); /* first key */ + while (lua_next(L, 1)) { + lua_pushvalue(L, 2); /* function */ + lua_pushvalue(L, -3); /* key */ + lua_pushvalue(L, -3); /* value */ + lua_call(L, 2, 1); + if (!lua_isnil(L, -1)) + return 1; + lua_pop(L, 2); /* remove value and result */ + } + return 0; +} + + +static int maxn (lua_State *L) { + lua_Number max = 0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushnil(L); /* first key */ + while (lua_next(L, 1)) { + lua_pop(L, 1); /* remove value */ + if (lua_type(L, -1) == LUA_TNUMBER) { + lua_Number v = lua_tonumber(L, -1); + if (v > max) max = v; + } + } + lua_pushnumber(L, max); + return 1; +} + + +static int getn (lua_State *L) { + lua_pushinteger(L, aux_getn(L, 1)); + return 1; +} + + +static int setn (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); +#ifndef luaL_setn + luaL_setn(L, 1, luaL_checkint(L, 2)); +#else + luaL_error(L, LUA_QL("setn") " is obsolete"); +#endif + lua_pushvalue(L, 1); + return 1; +} + + +static int tinsert (lua_State *L) { + int e = aux_getn(L, 1) + 1; /* first empty element */ + int pos; /* where to insert new element */ + switch (lua_gettop(L)) { + case 2: { /* called with only 2 arguments */ + pos = e; /* insert new element at the end */ + break; + } + case 3: { + int i; + pos = luaL_checkint(L, 2); /* 2nd argument is the position */ + if (pos > e) e = pos; /* `grow' array if necessary */ + for (i = e; i > pos; i--) { /* move up elements */ + lua_rawgeti(L, 1, i-1); + lua_rawseti(L, 1, i); /* t[i] = t[i-1] */ + } + break; + } + default: { + return luaL_error(L, "wrong number of arguments to " LUA_QL("insert")); + } + } + luaL_setn(L, 1, e); /* new size */ + lua_rawseti(L, 1, pos); /* t[pos] = v */ + return 0; +} + + +static int tremove (lua_State *L) { + int e = aux_getn(L, 1); + int pos = luaL_optint(L, 2, e); + if (!(1 <= pos && pos <= e)) /* position is outside bounds? */ + return 0; /* nothing to remove */ + luaL_setn(L, 1, e - 1); /* t.n = n-1 */ + lua_rawgeti(L, 1, pos); /* result = t[pos] */ + for ( ;pos= P */ + while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { + if (i>u) luaL_error(L, "invalid order function for sorting"); + lua_pop(L, 1); /* remove a[i] */ + } + /* repeat --j until a[j] <= P */ + while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { + if (j + +#define ltm_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" + + + +const char *const luaT_typenames[] = { + "nil", "boolean", "userdata", "number", + "string", "table", "function", "userdata", "thread", + "proto", "upval" +}; + + +void luaT_init (lua_State *L) { + static const char *const luaT_eventname[] = { /* ORDER TM */ + "__index", "__newindex", + "__gc", "__mode", "__eq", + "__add", "__sub", "__mul", "__div", "__mod", + "__pow", "__unm", "__len", "__lt", "__le", + "__concat", "__call" + }; + int i; + for (i=0; itmname[i] = luaS_new(L, luaT_eventname[i]); + luaS_fix(G(L)->tmname[i]); /* never collect these names */ + } +} + + +/* +** function to be used with macro "fasttm": optimized for absence of +** tag methods +*/ +const TValue *luaT_gettm (Table *events, TMS event, TString *ename) { + const TValue *tm = luaH_getstr(events, ename); + lua_assert(event <= TM_EQ); + if (ttisnil(tm)) { /* no tag method? */ + events->flags |= cast_byte(1u<metatable; + break; + case LUA_TUSERDATA: + mt = uvalue(o)->metatable; + break; + default: + mt = G(L)->mt[ttype(o)]; + } + return (mt ? luaH_getstr(mt, G(L)->tmname[event]) : luaO_nilobject); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltm.h b/src/3rd party/LuaJIT-1.1.8/src/ltm.h new file mode 100644 index 00000000000..64343b781b6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltm.h @@ -0,0 +1,54 @@ +/* +** $Id: ltm.h,v 2.6.1.1 2007/12/27 13:02:25 roberto Exp $ +** Tag methods +** See Copyright Notice in lua.h +*/ + +#ifndef ltm_h +#define ltm_h + + +#include "lobject.h" + + +/* +* WARNING: if you change the order of this enumeration, +* grep "ORDER TM" +*/ +typedef enum { + TM_INDEX, + TM_NEWINDEX, + TM_GC, + TM_MODE, + TM_EQ, /* last tag method with `fast' access */ + TM_ADD, + TM_SUB, + TM_MUL, + TM_DIV, + TM_MOD, + TM_POW, + TM_UNM, + TM_LEN, + TM_LT, + TM_LE, + TM_CONCAT, + TM_CALL, + TM_N /* number of elements in the enum */ +} TMS; + + + +#define gfasttm(g,et,e) ((et) == NULL ? NULL : \ + ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) + +#define fasttm(l,et,e) gfasttm(G(l), et, e) + +LUAI_DATA const char *const luaT_typenames[]; + + +LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); +LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, + TMS event); +LUAI_FUNC void luaT_init (lua_State *L); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lua.c b/src/3rd party/LuaJIT-1.1.8/src/lua.c new file mode 100644 index 00000000000..a4b413f1ca6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lua.c @@ -0,0 +1,463 @@ +/* +** $Id: lua.c,v 1.160.1.2 2007/12/28 15:32:23 roberto Exp $ +** Lua stand-alone interpreter +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define lua_c + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" + + + +static lua_State *globalL = NULL; + +static const char *progname = LUA_PROGNAME; + + + +static void lstop (lua_State *L, lua_Debug *ar) { + (void)ar; /* unused arg. */ + lua_sethook(L, NULL, 0, 0); + luaL_error(L, "interrupted!"); +} + + +static void laction (int i) { + signal(i, SIG_DFL); /* if another SIGINT happens before lstop, + terminate process (default action) */ + lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1); +} + + +static void print_usage (void) { + fprintf(stderr, + "usage: %s [options] [script [args]].\n" + "Available options are:\n" + " -e stat execute string " LUA_QL("stat") "\n" + " -l name require library " LUA_QL("name") "\n" + " -j cmd perform LuaJIT control command\n" + " -O[lvl] set LuaJIT optimization level\n" + " -i enter interactive mode after executing " LUA_QL("script") "\n" + " -v show version information\n" + " -- stop handling options\n" + " - execute stdin and stop handling options\n" + , + progname); + fflush(stderr); +} + + +static void l_message (const char *pname, const char *msg) { + if (pname) fprintf(stderr, "%s: ", pname); + fprintf(stderr, "%s\n", msg); + fflush(stderr); +} + + +static int report (lua_State *L, int status) { + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(progname, msg); + lua_pop(L, 1); + } + return status; +} + + +static int traceback (lua_State *L) { + if (!lua_isstring(L, 1)) /* 'message' not a string? */ + return 1; /* keep it intact */ + lua_getfield(L, LUA_GLOBALSINDEX, "debug"); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + return 1; + } + lua_getfield(L, -1, "traceback"); + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); + return 1; + } + lua_pushvalue(L, 1); /* pass error message */ + lua_pushinteger(L, 2); /* skip this function and traceback */ + lua_call(L, 2, 1); /* call debug.traceback */ + return 1; +} + + +static int docall (lua_State *L, int narg, int clear) { + int status; + int base = lua_gettop(L) - narg; /* function index */ + lua_pushcfunction(L, traceback); /* push traceback function */ + lua_insert(L, base); /* put it under chunk and args */ + signal(SIGINT, laction); + status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base); + signal(SIGINT, SIG_DFL); + lua_remove(L, base); /* remove traceback function */ + /* force a complete garbage collection in case of errors */ + if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); + return status; +} + + +static void print_version (void) { + l_message(NULL, LUA_RELEASE " " LUA_COPYRIGHT); + l_message(NULL, LUAJIT_VERSION " " LUAJIT_COPYRIGHT ", " LUAJIT_URL); +} + + +static int getargs (lua_State *L, char **argv, int n) { + int narg; + int i; + int argc = 0; + while (argv[argc]) argc++; /* count total number of arguments */ + narg = argc - (n + 1); /* number of arguments to the script */ + luaL_checkstack(L, narg + 3, "too many arguments to script"); + for (i=n+1; i < argc; i++) + lua_pushstring(L, argv[i]); + lua_createtable(L, narg, n + 1); + for (i=0; i < argc; i++) { + lua_pushstring(L, argv[i]); + lua_rawseti(L, -2, i - n); + } + return narg; +} + + +static int dofile (lua_State *L, const char *name) { + int status = luaL_loadfile(L, name) || docall(L, 0, 1); + return report(L, status); +} + + +static int dostring (lua_State *L, const char *s, const char *name) { + int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1); + return report(L, status); +} + + +static int dolibrary (lua_State *L, const char *name) { + lua_getglobal(L, "require"); + lua_pushstring(L, name); + return report(L, docall(L, 1, 1)); +} + + +static const char *get_prompt (lua_State *L, int firstline) { + const char *p; + lua_getfield(L, LUA_GLOBALSINDEX, firstline ? "_PROMPT" : "_PROMPT2"); + p = lua_tostring(L, -1); + if (p == NULL) p = (firstline ? LUA_PROMPT : LUA_PROMPT2); + lua_pop(L, 1); /* remove global */ + return p; +} + + +static int incomplete (lua_State *L, int status) { + if (status == LUA_ERRSYNTAX) { + size_t lmsg; + const char *msg = lua_tolstring(L, -1, &lmsg); + const char *tp = msg + lmsg - (sizeof(LUA_QL("")) - 1); + if (strstr(msg, LUA_QL("")) == tp) { + lua_pop(L, 1); + return 1; + } + } + return 0; /* else... */ +} + + +static int pushline (lua_State *L, int firstline) { + char buffer[LUA_MAXINPUT]; + char *b = buffer; + size_t l; + const char *prmt = get_prompt(L, firstline); + if (lua_readline(L, b, prmt) == 0) + return 0; /* no input */ + l = strlen(b); + if (l > 0 && b[l-1] == '\n') /* line ends with newline? */ + b[l-1] = '\0'; /* remove it */ + if (firstline && b[0] == '=') /* first line starts with `=' ? */ + lua_pushfstring(L, "return %s", b+1); /* change it to `return' */ + else + lua_pushstring(L, b); + lua_freeline(L, b); + return 1; +} + + +static int loadline (lua_State *L) { + int status; + lua_settop(L, 0); + if (!pushline(L, 1)) + return -1; /* no input */ + for (;;) { /* repeat until gets a complete line */ + status = luaL_loadbuffer(L, lua_tostring(L, 1), lua_strlen(L, 1), "=stdin"); + if (!incomplete(L, status)) break; /* cannot try to add lines? */ + if (!pushline(L, 0)) /* no more input? */ + return -1; + lua_pushliteral(L, "\n"); /* add a new line... */ + lua_insert(L, -2); /* ...between the two lines */ + lua_concat(L, 3); /* join them */ + } + lua_saveline(L, 1); + lua_remove(L, 1); /* remove line */ + return status; +} + + +static void dotty (lua_State *L) { + int status; + const char *oldprogname = progname; + progname = NULL; + while ((status = loadline(L)) != -1) { + if (status == 0) status = docall(L, 0, 0); + report(L, status); + if (status == 0 && lua_gettop(L) > 0) { /* any result to print? */ + lua_getglobal(L, "print"); + lua_insert(L, 1); + if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) + l_message(progname, lua_pushfstring(L, + "error calling " LUA_QL("print") " (%s)", + lua_tostring(L, -1))); + } + } + lua_settop(L, 0); /* clear stack */ + fputs("\n", stdout); + fflush(stdout); + progname = oldprogname; +} + + +static int handle_script (lua_State *L, char **argv, int n) { + int status; + const char *fname; + int narg = getargs(L, argv, n); /* collect arguments */ + lua_setglobal(L, "arg"); + fname = argv[n]; + if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0) + fname = NULL; /* stdin */ + status = luaL_loadfile(L, fname); + lua_insert(L, -(narg+1)); + if (status == 0) + status = docall(L, narg, 0); + else + lua_pop(L, narg); + return report(L, status); +} + +/* ---- start of LuaJIT extensions */ + +static int loadjitmodule (lua_State *L, const char *notfound) { + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) { + l_message(progname, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; +} + +/* JIT engine control command: try jit library first or load add-on module */ +static int dojitcmd (lua_State *L, const char *cmd) { + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val+1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +} + +/* start optimizer */ +static int dojitopt (lua_State *L, const char *opt) { + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +} + +/* ---- end of LuaJIT extensions */ + +/* check that argument has no extra characters at the end */ +#define notail(x) {if ((x)[2] != '\0') return -1;} + + +static int collectargs (char **argv, int *pi, int *pv, int *pe) { + int i; + for (i = 1; argv[i] != NULL; i++) { + if (argv[i][0] != '-') /* not an option? */ + return i; + switch (argv[i][1]) { /* option */ + case '-': + notail(argv[i]); + return (argv[i+1] != NULL ? i+1 : 0); + case '\0': + return i; + case 'i': + notail(argv[i]); + *pi = 1; /* go through */ + case 'v': + notail(argv[i]); + *pv = 1; + break; + case 'e': + *pe = 1; /* go through */ + case 'j': /* LuaJIT extension */ + case 'l': + if (argv[i][2] == '\0') { + i++; + if (argv[i] == NULL) return -1; + } + break; + case 'O': break; /* LuaJIT extension */ + default: return -1; /* invalid option */ + } + } + return 0; +} + + +static int runargs (lua_State *L, char **argv, int n) { + int i; + for (i = 1; i < n; i++) { + if (argv[i] == NULL) continue; + lua_assert(argv[i][0] == '-'); + switch (argv[i][1]) { /* option */ + case 'e': { + const char *chunk = argv[i] + 2; + if (*chunk == '\0') chunk = argv[++i]; + lua_assert(chunk != NULL); + if (dostring(L, chunk, "=(command line)") != 0) + return 1; + break; + } + case 'l': { + const char *filename = argv[i] + 2; + if (*filename == '\0') filename = argv[++i]; + lua_assert(filename != NULL); + if (dolibrary(L, filename)) + return 1; /* stop if file fails */ + break; + } + case 'j': { /* LuaJIT extension */ + const char *cmd = argv[i] + 2; + if (*cmd == '\0') cmd = argv[++i]; + lua_assert(cmd != NULL); + if (dojitcmd(L, cmd)) + return 1; + break; + } + case 'O': /* LuaJIT extension */ + if (dojitopt(L, argv[i] + 2)) + return 1; + break; + default: break; + } + } + return 0; +} + + +static int handle_luainit (lua_State *L) { + const char *init = getenv(LUA_INIT); + if (init == NULL) return 0; /* status OK */ + else if (init[0] == '@') + return dofile(L, init+1); + else + return dostring(L, init, "=" LUA_INIT); +} + + +struct Smain { + int argc; + char **argv; + int status; +}; + + +static int pmain (lua_State *L) { + struct Smain *s = (struct Smain *)lua_touserdata(L, 1); + char **argv = s->argv; + int script; + int has_i = 0, has_v = 0, has_e = 0; + globalL = L; + if (argv[0] && argv[0][0]) progname = argv[0]; + LUAJIT_VERSION_SYM(); /* linker-enforced version check */ + lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ + luaL_openlibs(L); /* open libraries */ + lua_gc(L, LUA_GCRESTART, 0); + s->status = handle_luainit(L); + if (s->status != 0) return 0; + script = collectargs(argv, &has_i, &has_v, &has_e); + if (script < 0) { /* invalid args? */ + print_usage(); + s->status = 1; + return 0; + } + if (has_v) print_version(); + s->status = runargs(L, argv, (script > 0) ? script : s->argc); + if (s->status != 0) return 0; + if (script) + s->status = handle_script(L, argv, script); + if (s->status != 0) return 0; + if (has_i) + dotty(L); + else if (script == 0 && !has_e && !has_v) { + if (lua_stdin_is_tty()) { + print_version(); + dotty(L); + } + else dofile(L, NULL); /* executes stdin as a file */ + } + return 0; +} + + +int main (int argc, char **argv) { + int status; + struct Smain s; + lua_State *L = lua_open(); /* create state */ + if (L == NULL) { + l_message(argv[0], "cannot create state: not enough memory"); + return EXIT_FAILURE; + } + s.argc = argc; + s.argv = argv; + status = lua_cpcall(L, &pmain, &s); + report(L, status); + lua_close(L); + return (status || s.status) ? EXIT_FAILURE : EXIT_SUCCESS; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lua.h b/src/3rd party/LuaJIT-1.1.8/src/lua.h new file mode 100644 index 00000000000..da822f0ad92 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lua.h @@ -0,0 +1,385 @@ +/* +** $Id: lua.h,v 1.218.1.7 2012/01/13 20:36:20 roberto Exp $ +** Lua - An Extensible Extension Language +** Lua.org, PUC-Rio, Brazil (http://www.lua.org) +** See Copyright Notice at the end of this file +*/ + + +#ifndef lua_h +#define lua_h + +#include +#include + + +#include "luaconf.h" + + +#define LUA_VERSION "Lua 5.1" +#define LUA_RELEASE "Lua 5.1.5" +#define LUA_VERSION_NUM 501 +#define LUA_COPYRIGHT "Copyright (C) 1994-2012 Lua.org, PUC-Rio" +#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" + + +/* mark for precompiled code (`Lua') */ +#define LUA_SIGNATURE "\033Lua" + +/* option for multiple returns in `lua_pcall' and `lua_call' */ +#define LUA_MULTRET (-1) + + +/* +** pseudo-indices +*/ +#define LUA_REGISTRYINDEX (-10000) +#define LUA_ENVIRONINDEX (-10001) +#define LUA_GLOBALSINDEX (-10002) +#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i)) + + +/* thread status; 0 is OK */ +#define LUA_YIELD 1 +#define LUA_ERRRUN 2 +#define LUA_ERRSYNTAX 3 +#define LUA_ERRMEM 4 +#define LUA_ERRERR 5 + + +typedef struct lua_State lua_State; + +typedef int (*lua_CFunction) (lua_State *L); + + +/* +** functions that read/write blocks when loading/dumping Lua chunks +*/ +typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); + +typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud); + + +/* +** prototype for memory-allocation functions +*/ +typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); + + +/* +** basic types +*/ +#define LUA_TNONE (-1) + +#define LUA_TNIL 0 +#define LUA_TBOOLEAN 1 +#define LUA_TLIGHTUSERDATA 2 +#define LUA_TNUMBER 3 +#define LUA_TSTRING 4 +#define LUA_TTABLE 5 +#define LUA_TFUNCTION 6 +#define LUA_TUSERDATA 7 +#define LUA_TTHREAD 8 + + + +/* minimum Lua stack available to a C function */ +#define LUA_MINSTACK 20 + + +/* +** generic extra include file +*/ +#if defined(LUA_USER_H) +#include LUA_USER_H +#endif + + +/* type of numbers in Lua */ +typedef LUA_NUMBER lua_Number; + + +/* type for integer functions */ +typedef LUA_INTEGER lua_Integer; + + + +/* +** state manipulation +*/ +LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud); +LUA_API void (lua_close) (lua_State *L); +LUA_API lua_State *(lua_newthread) (lua_State *L); + +LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); + + +/* +** basic stack manipulation +*/ +LUA_API int (lua_gettop) (lua_State *L); +LUA_API void (lua_settop) (lua_State *L, int idx); +LUA_API void (lua_pushvalue) (lua_State *L, int idx); +LUA_API void (lua_remove) (lua_State *L, int idx); +LUA_API void (lua_insert) (lua_State *L, int idx); +LUA_API void (lua_replace) (lua_State *L, int idx); +LUA_API int (lua_checkstack) (lua_State *L, int sz); + +LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); + + +/* +** access functions (stack -> C) +*/ + +LUA_API int (lua_isnumber) (lua_State *L, int idx); +LUA_API int (lua_isstring) (lua_State *L, int idx); +LUA_API int (lua_iscfunction) (lua_State *L, int idx); +LUA_API int (lua_isuserdata) (lua_State *L, int idx); +LUA_API int (lua_type) (lua_State *L, int idx); +LUA_API const char *(lua_typename) (lua_State *L, int tp); + +LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2); + +LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx); +LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx); +LUA_API int (lua_toboolean) (lua_State *L, int idx); +LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); +LUA_API size_t (lua_objlen) (lua_State *L, int idx); +LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); +LUA_API void *(lua_touserdata) (lua_State *L, int idx); +LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); +LUA_API const void *(lua_topointer) (lua_State *L, int idx); + + +/* +** push functions (C -> stack) +*/ +LUA_API void (lua_pushnil) (lua_State *L); +LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); +LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); +LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l); +LUA_API void (lua_pushstring) (lua_State *L, const char *s); +LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, + va_list argp); +LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); +LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); +LUA_API void (lua_pushboolean) (lua_State *L, int b); +LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); +LUA_API int (lua_pushthread) (lua_State *L); + + +/* +** get functions (Lua -> stack) +*/ +LUA_API void (lua_gettable) (lua_State *L, int idx); +LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawget) (lua_State *L, int idx); +LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n); +LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec); +LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz); +LUA_API int (lua_getmetatable) (lua_State *L, int objindex); +LUA_API void (lua_getfenv) (lua_State *L, int idx); + + +/* +** set functions (stack -> Lua) +*/ +LUA_API void (lua_settable) (lua_State *L, int idx); +LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawset) (lua_State *L, int idx); +LUA_API void (lua_rawseti) (lua_State *L, int idx, int n); +LUA_API int (lua_setmetatable) (lua_State *L, int objindex); +LUA_API int (lua_setfenv) (lua_State *L, int idx); + + +/* +** `load' and `call' functions (load and run Lua code) +*/ +LUA_API void (lua_call) (lua_State *L, int nargs, int nresults); +LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); +LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud); +LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, + const char *chunkname); + +LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data); + + +/* +** coroutine functions +*/ +LUA_API int (lua_yield) (lua_State *L, int nresults); +LUA_API int (lua_resume) (lua_State *L, int narg); +LUA_API int (lua_status) (lua_State *L); + +/* +** garbage-collection function and options +*/ + +#define LUA_GCSTOP 0 +#define LUA_GCRESTART 1 +#define LUA_GCCOLLECT 2 +#define LUA_GCCOUNT 3 +#define LUA_GCCOUNTB 4 +#define LUA_GCSTEP 5 +#define LUA_GCSETPAUSE 6 +#define LUA_GCSETSTEPMUL 7 + +LUA_API int (lua_gc) (lua_State *L, int what, int data); + + +/* +** miscellaneous functions +*/ + +LUA_API int (lua_error) (lua_State *L); + +LUA_API int (lua_next) (lua_State *L, int idx); + +LUA_API void (lua_concat) (lua_State *L, int n); + +LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); + + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define lua_pop(L,n) lua_settop(L, -(n)-1) + +#define lua_newtable(L) lua_createtable(L, 0, 0) + +#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) + +#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) + +#define lua_strlen(L,i) lua_objlen(L, (i)) + +#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) +#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) +#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) +#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) +#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) +#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) +#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) +#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) + +#define lua_pushliteral(L, s) \ + lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1) + +#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s)) +#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s)) + +#define lua_tostring(L,i) lua_tolstring(L, (i), NULL) + + + +/* +** compatibility macros and functions +*/ + +#define lua_open() luaL_newstate() + +#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX) + +#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0) + +#define lua_Chunkreader lua_Reader +#define lua_Chunkwriter lua_Writer + + + +/* +** {====================================================================== +** Debug API +** ======================================================================= +*/ + + +/* +** Event codes +*/ +#define LUA_HOOKCALL 0 +#define LUA_HOOKRET 1 +#define LUA_HOOKLINE 2 +#define LUA_HOOKCOUNT 3 +#define LUA_HOOKTAILRET 4 + + +/* +** Event masks +*/ +#define LUA_MASKCALL (1 << LUA_HOOKCALL) +#define LUA_MASKRET (1 << LUA_HOOKRET) +#define LUA_MASKLINE (1 << LUA_HOOKLINE) +#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) + +typedef struct lua_Debug lua_Debug; /* activation record */ + + +/* Functions to be called by the debuger in specific events */ +typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); + + +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar); +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n); +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n); + +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count); +LUA_API lua_Hook lua_gethook (lua_State *L); +LUA_API int lua_gethookmask (lua_State *L); +LUA_API int lua_gethookcount (lua_State *L); + + +struct lua_Debug { + int event; + const char *name; /* (n) */ + const char *namewhat; /* (n) `global', `local', `field', `method' */ + const char *what; /* (S) `Lua', `C', `main', `tail' */ + const char *source; /* (S) */ + int currentline; /* (l) */ + int nups; /* (u) number of upvalues */ + int linedefined; /* (S) */ + int lastlinedefined; /* (S) */ + char short_src[LUA_IDSIZE]; /* (S) */ + /* private part */ + int i_ci; /* active function */ +}; + +/* }====================================================================== */ + + +/****************************************************************************** +* Copyright (C) 1994-2012 Lua.org, PUC-Rio. All rights reserved. +* +* Permission is hereby granted, free of charge, to any person obtaining +* a copy of this software and associated documentation files (the +* "Software"), to deal in the Software without restriction, including +* without limitation the rights to use, copy, modify, merge, publish, +* distribute, sublicense, and/or sell copies of the Software, and to +* permit persons to whom the Software is furnished to do so, subject to +* the following conditions: +* +* The above copyright notice and this permission notice shall be +* included in all copies or substantial portions of the Software. +* +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +******************************************************************************/ + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/luac.c b/src/3rd party/LuaJIT-1.1.8/src/luac.c new file mode 100644 index 00000000000..d07017391bf --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luac.c @@ -0,0 +1,200 @@ +/* +** $Id: luac.c,v 1.54 2006/06/02 17:37:11 lhf Exp $ +** Lua compiler (saves bytecodes to files; also list bytecodes) +** See Copyright Notice in lua.h +*/ + +#include +#include +#include +#include + +#define luac_c +#define LUA_CORE + +#include "lua.h" +#include "lauxlib.h" + +#include "ldo.h" +#include "lfunc.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstring.h" +#include "lundump.h" + +#define PROGNAME "luac" /* default program name */ +#define OUTPUT PROGNAME ".out" /* default output file */ + +static int listing=0; /* list bytecodes? */ +static int dumping=1; /* dump bytecodes? */ +static int stripping=0; /* strip debug information? */ +static char Output[]={ OUTPUT }; /* default output file name */ +static const char* output=Output; /* actual output file name */ +static const char* progname=PROGNAME; /* actual program name */ + +static void fatal(const char* message) +{ + fprintf(stderr,"%s: %s\n",progname,message); + exit(EXIT_FAILURE); +} + +static void cannot(const char* what) +{ + fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); + exit(EXIT_FAILURE); +} + +static void usage(const char* message) +{ + if (*message=='-') + fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); + else + fprintf(stderr,"%s: %s\n",progname,message); + fprintf(stderr, + "usage: %s [options] [filenames].\n" + "Available options are:\n" + " - process stdin\n" + " -l list\n" + " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" + " -p parse only\n" + " -s strip debug information\n" + " -v show version information\n" + " -- stop handling options\n", + progname,Output); + exit(EXIT_FAILURE); +} + +#define IS(s) (strcmp(argv[i],s)==0) + +static int doargs(int argc, char* argv[]) +{ + int i; + int version=0; + if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; + for (i=1; itop+(i))->l.p) + +static const Proto* combine(lua_State* L, int n) +{ + if (n==1) + return toproto(L,-1); + else + { + int i,pc; + Proto* f=luaF_newproto(L); + setptvalue2s(L,L->top,f); incr_top(L); + f->source=luaS_newliteral(L,"=(" PROGNAME ")"); + f->maxstacksize=1; + pc=2*n+1; + f->code=luaM_newvector(L,pc,Instruction); + f->sizecode=pc; + f->p=luaM_newvector(L,n,Proto*); + f->sizep=n; + pc=0; + for (i=0; ip[i]=toproto(L,i-n-1); + f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i); + f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1); + } + f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0); + return f; + } +} + +static int writer(lua_State* L, const void* p, size_t size, void* u) +{ + UNUSED(L); + return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0); +} + +struct Smain { + int argc; + char** argv; +}; + +static int pmain(lua_State* L) +{ + struct Smain* s = (struct Smain*)lua_touserdata(L, 1); + int argc=s->argc; + char** argv=s->argv; + const Proto* f; + int i; + if (!lua_checkstack(L,argc)) fatal("too many input files"); + for (i=0; i1); + if (dumping) + { + FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); + if (D==NULL) cannot("open"); + lua_lock(L); + luaU_dump(L,f,writer,D,stripping); + lua_unlock(L); + if (ferror(D)) cannot("write"); + if (fclose(D)) cannot("close"); + } + return 0; +} + +int main(int argc, char* argv[]) +{ + lua_State* L; + struct Smain s; + int i=doargs(argc,argv); + argc-=i; argv+=i; + if (argc<=0) usage("no input files given"); + L=lua_open(); + if (L==NULL) fatal("not enough memory for state"); + s.argc=argc; + s.argv=argv; + if (lua_cpcall(L,pmain,&s)!=0) fatal(lua_tostring(L,-1)); + lua_close(L); + return EXIT_SUCCESS; +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h new file mode 100644 index 00000000000..35a6bd1562e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h @@ -0,0 +1,786 @@ +/* +** $Id: luaconf.h,v 1.82.1.7 2008/02/11 16:25:08 roberto Exp $ +** Configuration file for Lua +** See Copyright Notice in lua.h +*/ + + +#ifndef lconfig_h +#define lconfig_h + +#include +#include + + +/* +** ================================================================== +** Search for "@@" to find all configurable definitions. +** =================================================================== +*/ + + +/* +@@ LUA_ANSI controls the use of non-ansi features. +** CHANGE it (define it) if you want Lua to avoid the use of any +** non-ansi feature or library. +*/ +#if defined(__STRICT_ANSI__) +#define LUA_ANSI +#endif + + +#if !defined(LUA_ANSI) && defined(_WIN32) +#define LUA_WIN +#endif + +#if defined(LUA_USE_LINUX) +#define LUA_USE_POSIX +#define LUA_USE_DLOPEN /* needs an extra library: -ldl */ +/* #define LUA_USE_READLINE */ /* needs some extra libraries */ +#endif + +#if defined(LUA_USE_MACOSX) +#define LUA_USE_POSIX +#define LUA_DL_DYLD /* does not need extra library */ +#endif + + + +/* +@@ LUA_USE_POSIX includes all functionallity listed as X/Open System +@* Interfaces Extension (XSI). +** CHANGE it (define it) if your system is XSI compatible. +*/ +#if defined(LUA_USE_POSIX) +#define LUA_USE_MKSTEMP +#define LUA_USE_ISATTY +#define LUA_USE_POPEN +#define LUA_USE_ULONGJMP +#endif + + +/* +@@ LUA_PATH and LUA_CPATH are the names of the environment variables that +@* Lua check to set its paths. +@@ LUA_INIT is the name of the environment variable that Lua +@* checks for initialization code. +** CHANGE them if you want different names. +*/ +#define LUA_PATH "LUA_PATH" +#define LUA_CPATH "LUA_CPATH" +#define LUA_INIT "LUA_INIT" + + +/* +@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for +@* Lua libraries. +@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for +@* C libraries. +** CHANGE them if your machine has a non-conventional directory +** hierarchy or if you want to install your libraries in +** non-conventional directories. +*/ +#if defined(_WIN32) +/* +** In Windows, any exclamation mark ('!') in the path is replaced by the +** path of the directory of the executable file of the current process. +*/ +#define LUA_LDIR "!\\lua\\" +#define LUA_CDIR "!\\" +#define LUA_PATH_DEFAULT \ + ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ + LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua" +#define LUA_CPATH_DEFAULT \ + ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" + +#else +#define LUA_ROOT "/usr/local/" +#define LUA_LDIR LUA_ROOT "share/lua/5.1/" +#define LUA_CDIR LUA_ROOT "lib/lua/5.1/" +#define LUA_PATH_DEFAULT \ + "./?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ + LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua" +#define LUA_CPATH_DEFAULT \ + "./?.so;" LUA_CDIR"?.so;" LUA_CDIR"loadall.so" +#endif + + +/* +@@ LUA_DIRSEP is the directory separator (for submodules). +** CHANGE it if your machine does not use "/" as the directory separator +** and is not Windows. (On Windows Lua automatically uses "\".) +*/ +#if defined(_WIN32) +#define LUA_DIRSEP "\\" +#else +#define LUA_DIRSEP "/" +#endif + + +/* +@@ LUA_PATHSEP is the character that separates templates in a path. +@@ LUA_PATH_MARK is the string that marks the substitution points in a +@* template. +@@ LUA_EXECDIR in a Windows path is replaced by the executable's +@* directory. +@@ LUA_IGMARK is a mark to ignore all before it when bulding the +@* luaopen_ function name. +** CHANGE them if for some reason your system cannot use those +** characters. (E.g., if one of those characters is a common character +** in file/directory names.) Probably you do not need to change them. +*/ +#define LUA_PATHSEP ";" +#define LUA_PATH_MARK "?" +#define LUA_EXECDIR "!" +#define LUA_IGMARK "-" + + +/* +@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger. +** CHANGE that if ptrdiff_t is not adequate on your machine. (On most +** machines, ptrdiff_t gives a good choice between int or long.) +*/ +#define LUA_INTEGER ptrdiff_t + + +/* +@@ LUA_API is a mark for all core API functions. +@@ LUALIB_API is a mark for all standard library functions. +** CHANGE them if you need to define those functions in some special way. +** For instance, if you want to create one Windows DLL with the core and +** the libraries, you may want to use the following definition (define +** LUA_BUILD_AS_DLL to get it). +*/ +#if defined(LUA_BUILD_AS_DLL) + +#if defined(LUA_CORE) || defined(LUA_LIB) +#define LUA_API __declspec(dllexport) +#else +#define LUA_API __declspec(dllimport) +#endif + +#else + +#define LUA_API extern + +#endif + +/* more often than not the libs go together with the core */ +#define LUALIB_API LUA_API + + +/* +@@ LUAI_FUNC is a mark for all extern functions that are not to be +@* exported to outside modules. +@@ LUAI_DATA is a mark for all extern (const) variables that are not to +@* be exported to outside modules. +** CHANGE them if you need to mark them in some special way. Elf/gcc +** (versions 3.2 and later) mark them as "hidden" to optimize access +** when Lua is compiled as a shared library. +*/ +#if defined(luaall_c) +#define LUAI_FUNC static +#define LUAI_DATA /* empty */ + +#elif defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ + defined(__ELF__) +#define LUAI_FUNC __attribute__((visibility("hidden"))) extern +#define LUAI_DATA LUAI_FUNC + +#else +#define LUAI_FUNC extern +#define LUAI_DATA extern +#endif + + + +/* +@@ LUA_QL describes how error messages quote program elements. +** CHANGE it if you want a different appearance. +*/ +#define LUA_QL(x) "'" x "'" +#define LUA_QS LUA_QL("%s") + + +/* +@@ LUA_IDSIZE gives the maximum size for the description of the source +@* of a function in debug information. +** CHANGE it if you want a different size. +*/ +#define LUA_IDSIZE 60 + + +/* +** {================================================================== +** Stand-alone configuration +** =================================================================== +*/ + +#if defined(lua_c) || defined(luaall_c) + +/* +@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that +@* is, whether we're running lua interactively). +** CHANGE it if you have a better definition for non-POSIX/non-Windows +** systems. +*/ +#if defined(LUA_USE_ISATTY) +#include +#define lua_stdin_is_tty() isatty(0) +#elif defined(LUA_WIN) +#include +#include +#define lua_stdin_is_tty() _isatty(_fileno(stdin)) +#else +#define lua_stdin_is_tty() 1 /* assume stdin is a tty */ +#endif + + +/* +@@ LUA_PROMPT is the default prompt used by stand-alone Lua. +@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua. +** CHANGE them if you want different prompts. (You can also change the +** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.) +*/ +#define LUA_PROMPT "> " +#define LUA_PROMPT2 ">> " + + +/* +@@ LUA_PROGNAME is the default name for the stand-alone Lua program. +** CHANGE it if your stand-alone interpreter has a different name and +** your system is not able to detect that name automatically. +*/ +#define LUA_PROGNAME "luajit" + + +/* +@@ LUA_MAXINPUT is the maximum length for an input line in the +@* stand-alone interpreter. +** CHANGE it if you need longer lines. +*/ +#define LUA_MAXINPUT 512 + + +/* +@@ lua_readline defines how to show a prompt and then read a line from +@* the standard input. +@@ lua_saveline defines how to "save" a read line in a "history". +@@ lua_freeline defines how to free a line read by lua_readline. +** CHANGE them if you want to improve this functionality (e.g., by using +** GNU readline and history facilities). +*/ +#if defined(LUA_USE_READLINE) +#include +#include +#include +#define lua_readline(L,b,p) ((void)L, ((b)=readline(p)) != NULL) +#define lua_saveline(L,idx) \ + if (lua_strlen(L,idx) > 0) /* non-empty line? */ \ + add_history(lua_tostring(L, idx)); /* add it to history */ +#define lua_freeline(L,b) ((void)L, free(b)) +#else +#define lua_readline(L,b,p) \ + ((void)L, fputs(p, stdout), fflush(stdout), /* show prompt */ \ + fgets(b, LUA_MAXINPUT, stdin) != NULL) /* get line */ +#define lua_saveline(L,idx) { (void)L; (void)idx; } +#define lua_freeline(L,b) { (void)L; (void)b; } +#endif + +#endif + +/* }================================================================== */ + + +/* +@@ LUAI_GCPAUSE defines the default pause between garbage-collector cycles +@* as a percentage. +** CHANGE it if you want the GC to run faster or slower (higher values +** mean larger pauses which mean slower collection.) You can also change +** this value dynamically. +*/ +#define LUAI_GCPAUSE 200 /* 200% (wait memory to double before next GC) */ + + +/* +@@ LUAI_GCMUL defines the default speed of garbage collection relative to +@* memory allocation as a percentage. +** CHANGE it if you want to change the granularity of the garbage +** collection. (Higher values mean coarser collections. 0 represents +** infinity, where each step performs a full collection.) You can also +** change this value dynamically. +*/ +#define LUAI_GCMUL 200 /* GC runs 'twice the speed' of memory allocation */ + + + +/* +@@ LUA_COMPAT_GETN controls compatibility with old getn behavior. +** CHANGE it (define it) if you want exact compatibility with the +** behavior of setn/getn in Lua 5.0. +** +** Note: this is not supported by LuaJIT. Leave it undefined. +*/ +#undef LUA_COMPAT_GETN + +/* +@@ LUA_COMPAT_LOADLIB controls compatibility about global loadlib. +** CHANGE it to undefined as soon as you do not need a global 'loadlib' +** function (the function is still available as 'package.loadlib'). +*/ +#undef LUA_COMPAT_LOADLIB + +/* +@@ LUA_COMPAT_VARARG controls compatibility with old vararg feature. +** CHANGE it to undefined as soon as your programs use only '...' to +** access vararg parameters (instead of the old 'arg' table). +** +** Note: this has a slightly negative performance impact with LuaJIT +** for all vararg functions. Leave it off if possible and upgrade your +** code (replace unpack(arg) with ... and/or add local arg = {...}). +*/ +#undef LUA_COMPAT_VARARG + +/* +@@ LUA_COMPAT_MOD controls compatibility with old math.mod function. +** CHANGE it to undefined as soon as your programs use 'math.fmod' or +** the new '%' operator instead of 'math.mod'. +*/ +#define LUA_COMPAT_MOD + +/* +@@ LUA_COMPAT_LSTR controls compatibility with old long string nesting +@* facility. +** CHANGE it to 2 if you want the old behaviour, or undefine it to turn +** off the advisory error when nesting [[...]]. +*/ +#define LUA_COMPAT_LSTR 1 + +/* +@@ LUA_COMPAT_GFIND controls compatibility with old 'string.gfind' name. +** CHANGE it to undefined as soon as you rename 'string.gfind' to +** 'string.gmatch'. +*/ +#define LUA_COMPAT_GFIND + +/* +@@ LUA_COMPAT_OPENLIB controls compatibility with old 'luaL_openlib' +@* behavior. +** CHANGE it to undefined as soon as you replace to 'luaL_register' +** your uses of 'luaL_openlib' +*/ +#define LUA_COMPAT_OPENLIB + + + +/* +@@ luai_apicheck is the assert macro used by the Lua-C API. +** CHANGE luai_apicheck if you want Lua to perform some checks in the +** parameters it gets from API calls. This may slow down the interpreter +** a bit, but may be quite useful when debugging C code that interfaces +** with Lua. A useful redefinition is to use assert.h. +*/ +#if defined(LUA_USE_APICHECK) +#include +#define luai_apicheck(L,o) { (void)L; assert(o); } +#else +#define luai_apicheck(L,o) { (void)L; } +#endif + + +/* +@@ LUAI_BITSINT defines the number of bits in an int. +** CHANGE here if Lua cannot automatically detect the number of bits of +** your machine. Probably you do not need to change this. +*/ +/* avoid overflows in comparison */ +#if INT_MAX-20 < 32760 +#define LUAI_BITSINT 16 +#elif INT_MAX > 2147483640L +/* int has at least 32 bits */ +#define LUAI_BITSINT 32 +#else +#error "you must define LUA_BITSINT with number of bits in an integer" +#endif + + +/* +@@ LUAI_UINT32 is an unsigned integer with at least 32 bits. +@@ LUAI_INT32 is an signed integer with at least 32 bits. +@@ LUAI_UMEM is an unsigned integer big enough to count the total +@* memory used by Lua. +@@ LUAI_MEM is a signed integer big enough to count the total memory +@* used by Lua. +** CHANGE here if for some weird reason the default definitions are not +** good enough for your machine. (The definitions in the 'else' +** part always works, but may waste space on machines with 64-bit +** longs.) Probably you do not need to change this. +*/ +#if LUAI_BITSINT >= 32 +#define LUAI_UINT32 unsigned int +#define LUAI_INT32 int +#define LUAI_MAXINT32 INT_MAX +#define LUAI_UMEM size_t +#define LUAI_MEM ptrdiff_t +#else +/* 16-bit ints */ +#define LUAI_UINT32 unsigned long +#define LUAI_INT32 long +#define LUAI_MAXINT32 LONG_MAX +#define LUAI_UMEM unsigned long +#define LUAI_MEM long +#endif + + +/* +@@ LUAI_MAXCALLS limits the number of nested calls. +** CHANGE it if you need really deep recursive calls. This limit is +** arbitrary; its only purpose is to stop infinite recursion before +** exhausting memory. +*/ +#define LUAI_MAXCALLS 20000 + + +/* +@@ LUAI_MAXCSTACK limits the number of Lua stack slots that a C function +@* can use. +** CHANGE it if you need lots of (Lua) stack space for your C +** functions. This limit is arbitrary; its only purpose is to stop C +** functions to consume unlimited stack space. (must be smaller than +** -LUA_REGISTRYINDEX) +*/ +#define LUAI_MAXCSTACK 8000 + + +/* +** {================================================================== +** CHANGE (to smaller values) the following definitions if your system +** has a small C stack. (Or you may want to change them to larger +** values if your system has a large C stack and these limits are +** too rigid for you.) Some of these constants control the size of +** stack-allocated arrays used by the compiler or the interpreter, while +** others limit the maximum number of recursive calls that the compiler +** or the interpreter can perform. Values too large may cause a C stack +** overflow for some forms of deep constructs. +** =================================================================== +*/ + + +/* +@@ LUAI_MAXCCALLS is the maximum depth for nested C calls (short) and +@* syntactical nested non-terminals in a program. +*/ +#define LUAI_MAXCCALLS 200 + + +/* +@@ LUAI_MAXVARS is the maximum number of local variables per function +@* (must be smaller than 250). +*/ +#define LUAI_MAXVARS 200 + + +/* +@@ LUAI_MAXUPVALUES is the maximum number of upvalues per function +@* (must be smaller than 250). +*/ +#define LUAI_MAXUPVALUES 60 + + +/* +@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. +*/ +#define LUAL_BUFFERSIZE BUFSIZ + +/* }================================================================== */ + + + + +/* +** {================================================================== +@@ LUA_NUMBER is the type of numbers in Lua. +** CHANGE the following definitions only if you want to build Lua +** with a number type different from double. You may also need to +** change lua_number2int & lua_number2integer. +** =================================================================== +*/ + +#define LUA_NUMBER_DOUBLE +#define LUA_NUMBER double + +/* +@@ LUAI_UACNUMBER is the result of an 'usual argument conversion' +@* over a number. +*/ +#define LUAI_UACNUMBER double + + +/* +@@ LUA_NUMBER_SCAN is the format for reading numbers. +@@ LUA_NUMBER_FMT is the format for writing numbers. +@@ lua_number2str converts a number to a string. +@@ LUAI_MAXNUMBER2STR is maximum size of previous conversion. +@@ lua_str2number converts a string to a number. +*/ +#define LUA_NUMBER_SCAN "%lf" +#define LUA_NUMBER_FMT "%.14g" +#define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) +#define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */ +#define lua_str2number(s,p) strtod((s), (p)) + + +/* +@@ The luai_num* macros define the primitive operations over numbers. +*/ +#if defined(LUA_CORE) +#include +#define luai_numadd(a,b) ((a)+(b)) +#define luai_numsub(a,b) ((a)-(b)) +#define luai_nummul(a,b) ((a)*(b)) +#define luai_numdiv(a,b) ((a)/(b)) +#define luai_nummod(a,b) ((a) - floor((a)/(b))*(b)) +#define luai_numpow(a,b) (pow(a,b)) +#define luai_numunm(a) (-(a)) +#define luai_numeq(a,b) ((a)==(b)) +#define luai_numlt(a,b) ((a)<(b)) +#define luai_numle(a,b) ((a)<=(b)) +#define luai_numisnan(a) (!luai_numeq((a), (a))) +#endif + + +/* +@@ lua_number2int is a macro to convert lua_Number to int. +@@ lua_number2integer is a macro to convert lua_Number to lua_Integer. +** CHANGE them if you know a faster way to convert a lua_Number to +** int (with any rounding method and without throwing errors) in your +** system. In Pentium machines, a naive typecast from double to int +** in C is extremely slow, so any alternative is worth trying. +*/ + +/* On a Pentium, resort to a trick */ +#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) && !defined(__SSE2__) && \ + (defined(__i386) || defined (_M_IX86) || defined(__i386__)) + +/* On a Microsoft compiler, use assembler */ +#if defined(_MSC_VER) + +#define lua_number2int(i,d) __asm fld d __asm fistp i +#define lua_number2integer(i,n) lua_number2int(i, n) + +/* the next trick should work on any Pentium, but sometimes clashes + with a DirectX idiosyncrasy */ +#else + +union luai_Cast { double l_d; long l_l; }; +#define lua_number2int(i,d) \ + { volatile union luai_Cast u; u.l_d = (d) + 6755399441055744.0; (i) = u.l_l; } +#define lua_number2integer(i,n) lua_number2int(i, n) + +#endif + + +/* this option always works, but may be slow */ +#else +#define lua_number2int(i,d) ((i)=(int)(d)) +#define lua_number2integer(i,d) ((i)=(lua_Integer)(d)) + +#endif + + +/* +@@ LUA_TVALUE_ALIGN specifies extra alignment constraints for the +@@ tagged value structure to get better lua_Number alignment. +** CHANGE it to an empty define if you want to save some space +** at the cost of execution time. Note that this is only needed +** for the x86 ABI on most POSIX systems, but not on Windows and +** not for most other CPUs. If you change it then you need to follow +** the instructions in ljit_x86.dash, too (look for TVALUE_SIZE). +*/ + +#if defined(LUA_NUMBER_DOUBLE) && defined(__GNUC__) && \ + (defined(__i386) || defined(__i386__)) && !defined(_WIN32) +#define LUA_TVALUE_ALIGN __attribute__ ((aligned(8))) +#else +#define LUA_TVALUE_ALIGN +#endif + +/* }================================================================== */ + + +/* +@@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment. +** CHANGE it if your system requires alignments larger than double. (For +** instance, if your system supports long doubles and they must be +** aligned in 16-byte boundaries, then you should add long double in the +** union.) Probably you do not need to change this. +*/ +#define LUAI_USER_ALIGNMENT_T union { double u; void *s; long l; } + + +/* +@@ LUAI_THROW/LUAI_TRY define how Lua does exception handling. +** CHANGE them if you prefer to use longjmp/setjmp even with C++ +** or if want/don't to use _longjmp/_setjmp instead of regular +** longjmp/setjmp. By default, Lua handles errors with exceptions when +** compiling as C++ code, with _longjmp/_setjmp when asked to use them, +** and with longjmp/setjmp otherwise. +*/ +#if defined(__cplusplus) +/* C++ exceptions */ +#define LUAI_THROW(L,c) throw(c) +#define LUAI_TRY(L,c,a) try { a } catch(...) \ + { if ((c)->status == 0) (c)->status = -1; } +#define luai_jmpbuf int /* dummy variable */ + +#elif defined(LUA_USE_ULONGJMP) +/* in Unix, try _longjmp/_setjmp (more efficient) */ +#define LUAI_THROW(L,c) _longjmp((c)->b, 1) +#define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } +#define luai_jmpbuf jmp_buf + +#else +/* default handling with long jumps */ +#define LUAI_THROW(L,c) longjmp((c)->b, 1) +#define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } +#define luai_jmpbuf jmp_buf + +#endif + + +/* +@@ LUA_MAXCAPTURES is the maximum number of captures that a pattern +@* can do during pattern-matching. +** CHANGE it if you need more captures. This limit is arbitrary. +*/ +#define LUA_MAXCAPTURES 32 + + +/* +@@ lua_tmpnam is the function that the OS library uses to create a +@* temporary name. +@@ LUA_TMPNAMBUFSIZE is the maximum size of a name created by lua_tmpnam. +** CHANGE them if you have an alternative to tmpnam (which is considered +** insecure) or if you want the original tmpnam anyway. By default, Lua +** uses tmpnam except when POSIX is available, where it uses mkstemp. +*/ +#if defined(loslib_c) || defined(luaall_c) + +#if defined(LUA_USE_MKSTEMP) +#include +#define LUA_TMPNAMBUFSIZE 32 +#define lua_tmpnam(b,e) { \ + strcpy(b, "/tmp/lua_XXXXXX"); \ + e = mkstemp(b); \ + if (e != -1) close(e); \ + e = (e == -1); } + +#else +#define LUA_TMPNAMBUFSIZE L_tmpnam +#define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } +#endif + +#endif + + +/* +@@ lua_popen spawns a new process connected to the current one through +@* the file streams. +** CHANGE it if you have a way to implement it in your system. +*/ +#if defined(LUA_USE_POPEN) + +#define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) +#define lua_pclose(L,file) ((void)L, (pclose(file) != -1)) + +#elif defined(LUA_WIN) + +#define lua_popen(L,c,m) ((void)L, _popen(c,m)) +#define lua_pclose(L,file) ((void)L, (_pclose(file) != -1)) + +#else + +#define lua_popen(L,c,m) ((void)((void)c, m), \ + luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) +#define lua_pclose(L,file) ((void)((void)L, file), 0) + +#endif + +/* +@@ LUA_DL_* define which dynamic-library system Lua should use. +** CHANGE here if Lua has problems choosing the appropriate +** dynamic-library system for your platform (either Windows' DLL, Mac's +** dyld, or Unix's dlopen). If your system is some kind of Unix, there +** is a good chance that it has dlopen, so LUA_DL_DLOPEN will work for +** it. To use dlopen you also need to adapt the src/Makefile (probably +** adding -ldl to the linker options), so Lua does not select it +** automatically. (When you change the makefile to add -ldl, you must +** also add -DLUA_USE_DLOPEN.) +** If you do not want any kind of dynamic library, undefine all these +** options. +** By default, _WIN32 gets LUA_DL_DLL and MAC OS X gets LUA_DL_DYLD. +*/ +#if defined(LUA_USE_DLOPEN) +#define LUA_DL_DLOPEN +#endif + +#if defined(LUA_WIN) +#define LUA_DL_DLL +#endif + + +/* +@@ LUAI_EXTRASPACE allows you to add user-specific data in a lua_State +@* (the data goes just *before* the lua_State pointer). +** CHANGE (define) this if you really need that. This value must be +** a multiple of the maximum alignment required for your machine. +*/ +#define LUAI_EXTRASPACE 0 + + +/* +@@ luai_userstate* allow user-specific actions on threads. +** CHANGE them if you defined LUAI_EXTRASPACE and need to do something +** extra when a thread is created/deleted/resumed/yielded. +*/ +#define luai_userstateopen(L) ((void)L) +#define luai_userstateclose(L) ((void)L) +#define luai_userstatethread(L,L1) ((void)L) +#define luai_userstatefree(L) ((void)L) +#define luai_userstateresume(L,n) ((void)L) +#define luai_userstateyield(L,n) ((void)L) + + +/* +@@ LUA_INTFRMLEN is the length modifier for integer conversions +@* in 'string.format'. +@@ LUA_INTFRM_T is the integer type correspoding to the previous length +@* modifier. +** CHANGE them if your system supports long long or does not support long. +*/ + +#if defined(LUA_USELONGLONG) + +#define LUA_INTFRMLEN "ll" +#define LUA_INTFRM_T long long + +#else + +#define LUA_INTFRMLEN "l" +#define LUA_INTFRM_T long + +#endif + + + +/* =================================================================== */ + +/* +** Local configuration. You can use this space to add your redefinitions +** without modifying the main part of the file. +*/ + + + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/luajit.h b/src/3rd party/LuaJIT-1.1.8/src/luajit.h new file mode 100644 index 00000000000..2507ad65363 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luajit.h @@ -0,0 +1,68 @@ +/* +** Copyright (C) 2005-2012 Mike Pall. All rights reserved. +** +** Permission is hereby granted, free of charge, to any person obtaining +** a copy of this software and associated documentation files (the +** "Software"), to deal in the Software without restriction, including +** without limitation the rights to use, copy, modify, merge, publish, +** distribute, sublicense, and/or sell copies of the Software, and to +** permit persons to whom the Software is furnished to do so, subject to +** the following conditions: +** +** The above copyright notice and this permission notice shall be +** included in all copies or substantial portions of the Software. +** +** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +** +** [ MIT license: http://www.opensource.org/licenses/mit-license.php ] +*/ + +/* LuaJIT -- a Just-In-Time Compiler for Lua. http://luajit.org/ */ + +/* LuaJIT public C API. */ +#ifndef luajit_h +#define luajit_h + +#include "lua.h" + + +#define LUAJIT_VERSION "LuaJIT 1.1.8" +#define LUAJIT_VERSION_NUM 10108 /* Version 1.1.8 = 01.01.08. */ +#define LUAJIT_VERSION_SYM luaJIT_version_1_1_8 +#define LUAJIT_COPYRIGHT "Copyright (C) 2005-2012 Mike Pall" +#define LUAJIT_URL "http://luajit.org/" + +/* Modes for luaJIT_setmode. */ +#define LUAJIT_MODE_MASK 0x00ff + +enum { + LUAJIT_MODE_ENGINE, /* Set mode for whole JIT engine. */ + LUAJIT_MODE_DEBUG, /* Set debug mode (idx = level). */ + + LUAJIT_MODE_FUNC, /* Change mode for a function. */ + LUAJIT_MODE_ALLFUNC, /* Recurse into subroutine protos. */ + LUAJIT_MODE_ALLSUBFUNC, /* Change only the subroutines. */ + LUAJIT_MODE_MAX +}; + +/* Flags or'ed in to the mode. */ +#define LUAJIT_MODE_OFF 0x0000 /* Disable JIT compilation. */ +#define LUAJIT_MODE_ON 0x0100 /* (Re-)enable JIT compilation. */ + + +/* Compile a Lua function. Pass arguments as hints. */ +LUA_API int luaJIT_compile(lua_State *L, int nargs); + +/* Set the JIT mode for the whole engine or a function (idx = 0: self). */ +LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode); + +/* Enforce (dynamic) linker error for version mismatches. Call from main. */ +LUA_API void LUAJIT_VERSION_SYM(void); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lualib.h b/src/3rd party/LuaJIT-1.1.8/src/lualib.h new file mode 100644 index 00000000000..c4567e9d370 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lualib.h @@ -0,0 +1,56 @@ +/* +** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $ +** Lua standard libraries +** See Copyright Notice in lua.h +*/ + + +#ifndef lualib_h +#define lualib_h + +#include "lua.h" + + +/* Key to file-handle type */ +#define LUA_FILEHANDLE "FILE*" + + +#define LUA_COLIBNAME "coroutine" +LUALIB_API int (luaopen_base) (lua_State *L); + +#define LUA_TABLIBNAME "table" +LUALIB_API int (luaopen_table) (lua_State *L); + +#define LUA_IOLIBNAME "io" +LUALIB_API int (luaopen_io) (lua_State *L); + +#define LUA_OSLIBNAME "os" +LUALIB_API int (luaopen_os) (lua_State *L); + +#define LUA_STRLIBNAME "string" +LUALIB_API int (luaopen_string) (lua_State *L); + +#define LUA_MATHLIBNAME "math" +LUALIB_API int (luaopen_math) (lua_State *L); + +#define LUA_DBLIBNAME "debug" +LUALIB_API int (luaopen_debug) (lua_State *L); + +#define LUA_LOADLIBNAME "package" +LUALIB_API int (luaopen_package) (lua_State *L); + +#define LUA_JITLIBNAME "jit" +LUALIB_API int (luaopen_jit) (lua_State *L); + + +/* open all previous libraries */ +LUALIB_API void (luaL_openlibs) (lua_State *L); + + + +#ifndef lua_assert +#define lua_assert(x) ((void)0) +#endif + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lundump.c b/src/3rd party/LuaJIT-1.1.8/src/lundump.c new file mode 100644 index 00000000000..8010a45795b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lundump.c @@ -0,0 +1,227 @@ +/* +** $Id: lundump.c,v 2.7.1.4 2008/04/04 19:51:41 roberto Exp $ +** load precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#include + +#define lundump_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstring.h" +#include "lundump.h" +#include "lzio.h" + +typedef struct { + lua_State* L; + ZIO* Z; + Mbuffer* b; + const char* name; +} LoadState; + +#ifdef LUAC_TRUST_BINARIES +#define IF(c,s) +#define error(S,s) +#else +#define IF(c,s) if (c) error(S,s) + +static void error(LoadState* S, const char* why) +{ + luaO_pushfstring(S->L,"%s: %s in precompiled chunk",S->name,why); + luaD_throw(S->L,LUA_ERRSYNTAX); +} +#endif + +#define LoadMem(S,b,n,size) LoadBlock(S,b,(n)*(size)) +#define LoadByte(S) (lu_byte)LoadChar(S) +#define LoadVar(S,x) LoadMem(S,&x,1,sizeof(x)) +#define LoadVector(S,b,n,size) LoadMem(S,b,n,size) + +static void LoadBlock(LoadState* S, void* b, size_t size) +{ + size_t r=luaZ_read(S->Z,b,size); + IF (r!=0, "unexpected end"); +} + +static int LoadChar(LoadState* S) +{ + char x; + LoadVar(S,x); + return x; +} + +static int LoadInt(LoadState* S) +{ + int x; + LoadVar(S,x); + IF (x<0, "bad integer"); + return x; +} + +static lua_Number LoadNumber(LoadState* S) +{ + lua_Number x; + LoadVar(S,x); + return x; +} + +static TString* LoadString(LoadState* S) +{ + size_t size; + LoadVar(S,size); + if (size==0) + return NULL; + else + { + char* s=luaZ_openspace(S->L,S->b,size); + LoadBlock(S,s,size); + return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ + } +} + +static void LoadCode(LoadState* S, Proto* f) +{ + int n=LoadInt(S); + f->code=luaM_newvector(S->L,n,Instruction); + f->sizecode=n; + LoadVector(S,f->code,n,sizeof(Instruction)); +} + +static Proto* LoadFunction(LoadState* S, TString* p); + +static void LoadConstants(LoadState* S, Proto* f) +{ + int i,n; + n=LoadInt(S); + f->k=luaM_newvector(S->L,n,TValue); + f->sizek=n; + for (i=0; ik[i]); + for (i=0; ik[i]; + int t=LoadChar(S); + switch (t) + { + case LUA_TNIL: + setnilvalue(o); + break; + case LUA_TBOOLEAN: + setbvalue(o,LoadChar(S)!=0); + break; + case LUA_TNUMBER: + setnvalue(o,LoadNumber(S)); + break; + case LUA_TSTRING: + setsvalue2n(S->L,o,LoadString(S)); + break; + default: + error(S,"bad constant"); + break; + } + } + n=LoadInt(S); + f->p=luaM_newvector(S->L,n,Proto*); + f->sizep=n; + for (i=0; ip[i]=NULL; + for (i=0; ip[i]=LoadFunction(S,f->source); +} + +static void LoadDebug(LoadState* S, Proto* f) +{ + int i,n; + n=LoadInt(S); + f->lineinfo=luaM_newvector(S->L,n,int); + f->sizelineinfo=n; + LoadVector(S,f->lineinfo,n,sizeof(int)); + n=LoadInt(S); + f->locvars=luaM_newvector(S->L,n,LocVar); + f->sizelocvars=n; + for (i=0; ilocvars[i].varname=NULL; + for (i=0; ilocvars[i].varname=LoadString(S); + f->locvars[i].startpc=LoadInt(S); + f->locvars[i].endpc=LoadInt(S); + } + n=LoadInt(S); + f->upvalues=luaM_newvector(S->L,n,TString*); + f->sizeupvalues=n; + for (i=0; iupvalues[i]=NULL; + for (i=0; iupvalues[i]=LoadString(S); +} + +static Proto* LoadFunction(LoadState* S, TString* p) +{ + Proto* f; + if (++S->L->nCcalls > LUAI_MAXCCALLS) error(S,"code too deep"); + f=luaF_newproto(S->L); + setptvalue2s(S->L,S->L->top,f); incr_top(S->L); + f->source=LoadString(S); if (f->source==NULL) f->source=p; + f->linedefined=LoadInt(S); + f->lastlinedefined=LoadInt(S); + f->nups=LoadByte(S); + f->numparams=LoadByte(S); + f->is_vararg=LoadByte(S); + f->maxstacksize=LoadByte(S); + LoadCode(S,f); + LoadConstants(S,f); + LoadDebug(S,f); + IF (!luaG_checkcode(f), "bad code"); + S->L->top--; + S->L->nCcalls--; + return f; +} + +static void LoadHeader(LoadState* S) +{ + char h[LUAC_HEADERSIZE]; + char s[LUAC_HEADERSIZE]; + luaU_header(h); + LoadBlock(S,s,LUAC_HEADERSIZE); + IF (memcmp(h,s,LUAC_HEADERSIZE)!=0, "bad header"); +} + +/* +** load precompiled chunk +*/ +Proto* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name) +{ + LoadState S; + if (*name=='@' || *name=='=') + S.name=name+1; + else if (*name==LUA_SIGNATURE[0]) + S.name="binary string"; + else + S.name=name; + S.L=L; + S.Z=Z; + S.b=buff; + LoadHeader(&S); + return LoadFunction(&S,luaS_newliteral(L,"=?")); +} + +/* +* make header +*/ +void luaU_header (char* h) +{ + int x=1; + memcpy(h,LUA_SIGNATURE,sizeof(LUA_SIGNATURE)-1); + h+=sizeof(LUA_SIGNATURE)-1; + *h++=(char)LUAC_VERSION; + *h++=(char)LUAC_FORMAT; + *h++=(char)*(char*)&x; /* endianness */ + *h++=(char)sizeof(int); + *h++=(char)sizeof(size_t); + *h++=(char)sizeof(Instruction); + *h++=(char)sizeof(lua_Number); + *h++=(char)(((lua_Number)0.5)==0); /* is lua_Number integral? */ +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lundump.h b/src/3rd party/LuaJIT-1.1.8/src/lundump.h new file mode 100644 index 00000000000..c80189dbffc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lundump.h @@ -0,0 +1,36 @@ +/* +** $Id: lundump.h,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $ +** load precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#ifndef lundump_h +#define lundump_h + +#include "lobject.h" +#include "lzio.h" + +/* load one chunk; from lundump.c */ +LUAI_FUNC Proto* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name); + +/* make header; from lundump.c */ +LUAI_FUNC void luaU_header (char* h); + +/* dump one chunk; from ldump.c */ +LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip); + +#ifdef luac_c +/* print one chunk; from print.c */ +LUAI_FUNC void luaU_print (const Proto* f, int full); +#endif + +/* for header of binary files -- this is Lua 5.1 */ +#define LUAC_VERSION 0x51 + +/* for header of binary files -- this is the official format */ +#define LUAC_FORMAT 0 + +/* size of header of binary files */ +#define LUAC_HEADERSIZE 12 + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lvm.c b/src/3rd party/LuaJIT-1.1.8/src/lvm.c new file mode 100644 index 00000000000..1bc0cd276d0 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lvm.c @@ -0,0 +1,767 @@ +/* +** $Id: lvm.c,v 2.63.1.5 2011/08/17 20:43:11 roberto Exp $ +** Lua virtual machine +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define lvm_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" + + + +/* limit for table tag-method chains (to avoid loops) */ +#define MAXTAGLOOP 100 + + +const TValue *luaV_tonumber (const TValue *obj, TValue *n) { + lua_Number num; + if (ttisnumber(obj)) return obj; + if (ttisstring(obj) && luaO_str2d(svalue(obj), &num)) { + setnvalue(n, num); + return n; + } + else + return NULL; +} + + +int luaV_tostring (lua_State *L, StkId obj) { + if (!ttisnumber(obj)) + return 0; + else { + char s[LUAI_MAXNUMBER2STR]; + lua_Number n = nvalue(obj); + lua_number2str(s, n); + setsvalue2s(L, obj, luaS_new(L, s)); + return 1; + } +} + + +static void traceexec (lua_State *L, const Instruction *pc) { + lu_byte mask = L->hookmask; + const Instruction *oldpc = L->savedpc; + L->savedpc = pc; + if ((mask & LUA_MASKCOUNT) && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (mask & LUA_MASKLINE) { + Proto *p = ci_func(L->ci)->l.p; + int npc = pcRel(pc, p); + int newline = getline(p, npc); + /* call linehook when enter a new function, when jump back (loop), + or when enter a new line */ + if (npc == 0 || pc <= oldpc || newline != getline(p, pcRel(oldpc, p))) + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + + +static void callTMres (lua_State *L, StkId res, const TValue *f, + const TValue *p1, const TValue *p2) { + ptrdiff_t result = savestack(L, res); + setobj2s(L, L->top, f); /* push function */ + setobj2s(L, L->top+1, p1); /* 1st argument */ + setobj2s(L, L->top+2, p2); /* 2nd argument */ + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + res = restorestack(L, result); + L->top--; + setobjs2s(L, res, L->top); +} + + + +static void callTM (lua_State *L, const TValue *f, const TValue *p1, + const TValue *p2, const TValue *p3) { + setobj2s(L, L->top, f); /* push function */ + setobj2s(L, L->top+1, p1); /* 1st argument */ + setobj2s(L, L->top+2, p2); /* 2nd argument */ + setobj2s(L, L->top+3, p3); /* 3th argument */ + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); +} + + +void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) { + int loop; + for (loop = 0; loop < MAXTAGLOOP; loop++) { + const TValue *tm; + if (ttistable(t)) { /* `t' is a table? */ + Table *h = hvalue(t); + const TValue *res = luaH_get(h, key); /* do a primitive get */ + if (!ttisnil(res) || /* result is no nil? */ + (tm = fasttm(L, h->metatable, TM_INDEX)) == NULL) { /* or no TM? */ + setobj2s(L, val, res); + return; + } + /* else will try the tag method */ + } + else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_INDEX))) + luaG_typeerror(L, t, "index"); + if (ttisfunction(tm)) { + callTMres(L, val, tm, t, key); + return; + } + t = tm; /* else repeat with `tm' */ + } + luaG_runerror(L, "loop in gettable"); +} + + +void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) { + int loop; + TValue temp; + for (loop = 0; loop < MAXTAGLOOP; loop++) { + const TValue *tm; + if (ttistable(t)) { /* `t' is a table? */ + Table *h = hvalue(t); + TValue *oldval = luaH_set(L, h, key); /* do a primitive set */ + if (!ttisnil(oldval) || /* result is no nil? */ + (tm = fasttm(L, h->metatable, TM_NEWINDEX)) == NULL) { /* or no TM? */ + setobj2t(L, oldval, val); + h->flags = 0; + luaC_barriert(L, h, val); + return; + } + /* else will try the tag method */ + } + else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_NEWINDEX))) + luaG_typeerror(L, t, "index"); + if (ttisfunction(tm)) { + callTM(L, tm, t, key, val); + return; + } + /* else repeat with `tm' */ + setobj(L, &temp, tm); /* avoid pointing inside table (may rehash) */ + t = &temp; + } + luaG_runerror(L, "loop in settable"); +} + + +static int call_binTM (lua_State *L, const TValue *p1, const TValue *p2, + StkId res, TMS event) { + const TValue *tm = luaT_gettmbyobj(L, p1, event); /* try first operand */ + if (ttisnil(tm)) + tm = luaT_gettmbyobj(L, p2, event); /* try second operand */ + if (ttisnil(tm)) return 0; + callTMres(L, res, tm, p1, p2); + return 1; +} + + +static const TValue *get_compTM (lua_State *L, Table *mt1, Table *mt2, + TMS event) { + const TValue *tm1 = fasttm(L, mt1, event); + const TValue *tm2; + if (tm1 == NULL) return NULL; /* no metamethod */ + if (mt1 == mt2) return tm1; /* same metatables => same metamethods */ + tm2 = fasttm(L, mt2, event); + if (tm2 == NULL) return NULL; /* no metamethod */ + if (luaO_rawequalObj(tm1, tm2)) /* same metamethods? */ + return tm1; + return NULL; +} + + +static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2, + TMS event) { + const TValue *tm1 = luaT_gettmbyobj(L, p1, event); + const TValue *tm2; + if (ttisnil(tm1)) return -1; /* no metamethod? */ + tm2 = luaT_gettmbyobj(L, p2, event); + if (!luaO_rawequalObj(tm1, tm2)) /* different metamethods? */ + return -1; + callTMres(L, L->top, tm1, p1, p2); + return !l_isfalse(L->top); +} + + +static int l_strcmp (const TString *ls, const TString *rs) { + const char *l = getstr(ls); + size_t ll = ls->tsv.len; + const char *r = getstr(rs); + size_t lr = rs->tsv.len; + for (;;) { + int temp = strcoll(l, r); + if (temp != 0) return temp; + else { /* strings are equal up to a `\0' */ + size_t len = strlen(l); /* index of first `\0' in both strings */ + if (len == lr) /* r is finished? */ + return (len == ll) ? 0 : 1; + else if (len == ll) /* l is finished? */ + return -1; /* l is smaller than r (because r is not finished) */ + /* both strings longer than `len'; go on comparing (after the `\0') */ + len++; + l += len; ll -= len; r += len; lr -= len; + } + } +} + + +int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) { + int res; + if (ttype(l) != ttype(r)) + return luaG_ordererror(L, l, r); + else if (ttisnumber(l)) + return luai_numlt(nvalue(l), nvalue(r)); + else if (ttisstring(l)) + return l_strcmp(rawtsvalue(l), rawtsvalue(r)) < 0; + else if ((res = call_orderTM(L, l, r, TM_LT)) != -1) + return res; + return luaG_ordererror(L, l, r); +} + + +int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) { + int res; + if (ttype(l) != ttype(r)) + return luaG_ordererror(L, l, r); + else if (ttisnumber(l)) + return luai_numle(nvalue(l), nvalue(r)); + else if (ttisstring(l)) + return l_strcmp(rawtsvalue(l), rawtsvalue(r)) <= 0; + else if ((res = call_orderTM(L, l, r, TM_LE)) != -1) /* first try `le' */ + return res; + else if ((res = call_orderTM(L, r, l, TM_LT)) != -1) /* else try `lt' */ + return !res; + return luaG_ordererror(L, l, r); +} + + +int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2) { + const TValue *tm; + lua_assert(ttype(t1) == ttype(t2)); + switch (ttype(t1)) { + case LUA_TNIL: return 1; + case LUA_TNUMBER: return luai_numeq(nvalue(t1), nvalue(t2)); + case LUA_TBOOLEAN: return bvalue(t1) == bvalue(t2); /* true must be 1 !! */ + case LUA_TLIGHTUSERDATA: return pvalue(t1) == pvalue(t2); + case LUA_TUSERDATA: { + if (uvalue(t1) == uvalue(t2)) return 1; + tm = get_compTM(L, uvalue(t1)->metatable, uvalue(t2)->metatable, + TM_EQ); + break; /* will try TM */ + } + case LUA_TTABLE: { + if (hvalue(t1) == hvalue(t2)) return 1; + tm = get_compTM(L, hvalue(t1)->metatable, hvalue(t2)->metatable, TM_EQ); + break; /* will try TM */ + } + default: return gcvalue(t1) == gcvalue(t2); + } + if (tm == NULL) return 0; /* no TM? */ + callTMres(L, L->top, tm, t1, t2); /* call TM */ + return !l_isfalse(L->top); +} + + +void luaV_concat (lua_State *L, int total, int last) { + do { + StkId top = L->base + last + 1; + int n = 2; /* number of elements handled in this pass (at least 2) */ + if (!(ttisstring(top-2) || ttisnumber(top-2)) || !tostring(L, top-1)) { + if (!call_binTM(L, top-2, top-1, top-2, TM_CONCAT)) + luaG_concaterror(L, top-2, top-1); + } else if (tsvalue(top-1)->len == 0) /* second op is empty? */ + (void)tostring(L, top - 2); /* result is first op (as string) */ + else { + /* at least two string values; get as many as possible */ + size_t tl = tsvalue(top-1)->len; + char *buffer; + int i; + /* collect total length */ + for (n = 1; n < total && tostring(L, top-n-1); n++) { + size_t l = tsvalue(top-n-1)->len; + if (l >= MAX_SIZET - tl) luaG_runerror(L, "string length overflow"); + tl += l; + } + buffer = luaZ_openspace(L, &G(L)->buff, tl); + tl = 0; + for (i=n; i>0; i--) { /* concat all strings */ + size_t l = tsvalue(top-i)->len; + memcpy(buffer+tl, svalue(top-i), l); + tl += l; + } + setsvalue2s(L, top-n, luaS_newlstr(L, buffer, tl)); + } + total -= n-1; /* got `n' strings to create 1 new */ + last -= n-1; + } while (total > 1); /* repeat until only 1 result left */ +} + + +void luaV_arith (lua_State *L, StkId ra, const TValue *rb, + const TValue *rc, TMS op) { + TValue tempb, tempc; + const TValue *b, *c; + if ((b = luaV_tonumber(rb, &tempb)) != NULL && + (c = luaV_tonumber(rc, &tempc)) != NULL) { + lua_Number nb = nvalue(b), nc = nvalue(c); + switch (op) { + case TM_ADD: setnvalue(ra, luai_numadd(nb, nc)); break; + case TM_SUB: setnvalue(ra, luai_numsub(nb, nc)); break; + case TM_MUL: setnvalue(ra, luai_nummul(nb, nc)); break; + case TM_DIV: setnvalue(ra, luai_numdiv(nb, nc)); break; + case TM_MOD: setnvalue(ra, luai_nummod(nb, nc)); break; + case TM_POW: setnvalue(ra, luai_numpow(nb, nc)); break; + case TM_UNM: setnvalue(ra, luai_numunm(nb)); break; + default: lua_assert(0); break; + } + } + else if (!call_binTM(L, rb, rc, ra, op)) + luaG_aritherror(L, rb, rc); +} + + + +/* +** some macros for common tasks in `luaV_execute' +*/ + +#define runtime_check(L, c) { if (!(c)) break; } + +#define RA(i) (base+GETARG_A(i)) +/* to be used after possible stack reallocation */ +#define RB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i)) +#define RC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i)) +#define RKB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, \ + ISK(GETARG_B(i)) ? k+INDEXK(GETARG_B(i)) : base+GETARG_B(i)) +#define RKC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgK, \ + ISK(GETARG_C(i)) ? k+INDEXK(GETARG_C(i)) : base+GETARG_C(i)) +#define KBx(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, k+GETARG_Bx(i)) + + +#define dojump(L,pc,i) {(pc) += (i); luai_threadyield(L);} + + +#define Protect(x) { L->savedpc = pc; {x;}; base = L->base; } + + +#define arith_op(op,tm) { \ + TValue *rb = RKB(i); \ + TValue *rc = RKC(i); \ + if (ttisnumber(rb) && ttisnumber(rc)) { \ + lua_Number nb = nvalue(rb), nc = nvalue(rc); \ + setnvalue(ra, op(nb, nc)); \ + } \ + else \ + Protect(luaV_arith(L, ra, rb, rc, tm)); \ + } + + + +void luaV_execute (lua_State *L, int nexeccalls) { + LClosure *cl; + StkId base; + TValue *k; + const Instruction *pc; + reentry: /* entry point */ + lua_assert(isLua(L->ci)); + pc = L->savedpc; + cl = &clvalue(L->ci->func)->l; + base = L->base; + k = cl->p->k; + /* main loop of interpreter */ + for (;;) { + const Instruction i = *pc++; + StkId ra; + if ((L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT)) && + (--L->hookcount == 0 || L->hookmask & LUA_MASKLINE)) { + traceexec(L, pc); + if (L->status == LUA_YIELD) { /* did hook yield? */ + L->savedpc = pc - 1; + return; + } + base = L->base; + } + /* warning!! several calls may realloc the stack and invalidate `ra' */ + ra = RA(i); + lua_assert(base == L->base && L->base == L->ci->base); + lua_assert(base <= L->top && L->top <= L->stack + L->stacksize); + lua_assert(L->top == L->ci->top || luaG_checkopenop(i)); + switch (GET_OPCODE(i)) { + case OP_MOVE: { + setobjs2s(L, ra, RB(i)); + continue; + } + case OP_LOADK: { + setobj2s(L, ra, KBx(i)); + continue; + } + case OP_LOADBOOL: { + setbvalue(ra, GETARG_B(i)); + if (GETARG_C(i)) pc++; /* skip next instruction (if C) */ + continue; + } + case OP_LOADNIL: { + TValue *rb = RB(i); + do { + setnilvalue(rb--); + } while (rb >= ra); + continue; + } + case OP_GETUPVAL: { + int b = GETARG_B(i); + setobj2s(L, ra, cl->upvals[b]->v); + continue; + } + case OP_GETGLOBAL: { + TValue g; + TValue *rb = KBx(i); + sethvalue(L, &g, cl->env); + lua_assert(ttisstring(rb)); + Protect(luaV_gettable(L, &g, rb, ra)); + continue; + } + case OP_GETTABLE: { + Protect(luaV_gettable(L, RB(i), RKC(i), ra)); + continue; + } + case OP_SETGLOBAL: { + TValue g; + sethvalue(L, &g, cl->env); + lua_assert(ttisstring(KBx(i))); + Protect(luaV_settable(L, &g, KBx(i), ra)); + continue; + } + case OP_SETUPVAL: { + UpVal *uv = cl->upvals[GETARG_B(i)]; + setobj(L, uv->v, ra); + luaC_barrier(L, uv, ra); + continue; + } + case OP_SETTABLE: { + Protect(luaV_settable(L, ra, RKB(i), RKC(i))); + continue; + } + case OP_NEWTABLE: { + int b = GETARG_B(i); + int c = GETARG_C(i); + sethvalue(L, ra, luaH_new(L, luaO_fb2int(b), luaO_fb2int(c))); + Protect(luaC_checkGC(L)); + continue; + } + case OP_SELF: { + StkId rb = RB(i); + setobjs2s(L, ra+1, rb); + Protect(luaV_gettable(L, rb, RKC(i), ra)); + continue; + } + case OP_ADD: { + arith_op(luai_numadd, TM_ADD); + continue; + } + case OP_SUB: { + arith_op(luai_numsub, TM_SUB); + continue; + } + case OP_MUL: { + arith_op(luai_nummul, TM_MUL); + continue; + } + case OP_DIV: { + arith_op(luai_numdiv, TM_DIV); + continue; + } + case OP_MOD: { + arith_op(luai_nummod, TM_MOD); + continue; + } + case OP_POW: { + arith_op(luai_numpow, TM_POW); + continue; + } + case OP_UNM: { + TValue *rb = RB(i); + if (ttisnumber(rb)) { + lua_Number nb = nvalue(rb); + setnvalue(ra, luai_numunm(nb)); + } + else { + Protect(luaV_arith(L, ra, rb, rb, TM_UNM)); + } + continue; + } + case OP_NOT: { + int res = l_isfalse(RB(i)); /* next assignment may change this value */ + setbvalue(ra, res); + continue; + } + case OP_LEN: { + const TValue *rb = RB(i); + switch (ttype(rb)) { + case LUA_TTABLE: { + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + } + case LUA_TSTRING: { + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + } + default: { /* try metamethod */ + Protect( + if (!call_binTM(L, rb, luaO_nilobject, ra, TM_LEN)) + luaG_typeerror(L, rb, "get length of"); + ) + } + } + continue; + } + case OP_CONCAT: { + int b = GETARG_B(i); + int c = GETARG_C(i); + Protect(luaV_concat(L, c-b+1, c); luaC_checkGC(L)); + setobjs2s(L, RA(i), base+b); + continue; + } + case OP_JMP: { + dojump(L, pc, GETARG_sBx(i)); + continue; + } + case OP_EQ: { + TValue *rb = RKB(i); + TValue *rc = RKC(i); + Protect( + if (equalobj(L, rb, rc) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_LT: { + Protect( + if (luaV_lessthan(L, RKB(i), RKC(i)) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_LE: { + Protect( + if (luaV_lessequal(L, RKB(i), RKC(i)) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_TEST: { + if (l_isfalse(ra) != GETARG_C(i)) + dojump(L, pc, GETARG_sBx(*pc)); + pc++; + continue; + } + case OP_TESTSET: { + TValue *rb = RB(i); + if (l_isfalse(rb) != GETARG_C(i)) { + setobjs2s(L, ra, rb); + dojump(L, pc, GETARG_sBx(*pc)); + } + pc++; + continue; + } + case OP_CALL: { + int b = GETARG_B(i); + int nresults = GETARG_C(i) - 1; + if (b != 0) L->top = ra+b; /* else previous instruction set top */ + L->savedpc = pc; + switch (luaD_precall(L, ra, nresults)) { + case PCRLUA: { + nexeccalls++; + goto reentry; /* restart luaV_execute over new Lua function */ + } + case PCRC: { + /* it was a C function (`precall' called it); adjust results */ + if (nresults >= 0) L->top = L->ci->top; + base = L->base; + continue; + } + default: { + return; /* yield */ + } + } + } + case OP_TAILCALL: { + int b = GETARG_B(i); + if (b != 0) L->top = ra+b; /* else previous instruction set top */ + L->savedpc = pc; + lua_assert(GETARG_C(i) - 1 == LUA_MULTRET); + switch (luaD_precall(L, ra, LUA_MULTRET)) { + case PCRLUA: { + /* tail call: put new frame in place of previous one */ + CallInfo *ci = L->ci - 1; /* previous frame */ + int aux; + StkId func = ci->func; + StkId pfunc = (ci+1)->func; /* previous function index */ + if (L->openupval) luaF_close(L, ci->base); + L->base = ci->base = ci->func + ((ci+1)->base - pfunc); + for (aux = 0; pfunc+aux < L->top; aux++) /* move frame down */ + setobjs2s(L, func+aux, pfunc+aux); + ci->top = L->top = func+aux; /* correct top */ + lua_assert(L->top == L->base + clvalue(func)->l.p->maxstacksize); + ci->savedpc = L->savedpc; + ci->tailcalls++; /* one more call lost */ + L->ci--; /* remove new frame */ + goto reentry; + } + case PCRC: { /* it was a C function (`precall' called it) */ + base = L->base; + continue; + } + default: { + return; /* yield */ + } + } + } + case OP_RETURN: { + int b = GETARG_B(i); + if (b != 0) L->top = ra+b-1; + if (L->openupval) luaF_close(L, base); + L->savedpc = pc; + b = luaD_poscall(L, ra); + if (--nexeccalls == 0) /* was previous function running `here'? */ + return; /* no: return */ + else { /* yes: continue its execution */ + if (b) L->top = L->ci->top; + lua_assert(isLua(L->ci)); + lua_assert(GET_OPCODE(*((L->ci)->savedpc - 1)) == OP_CALL); + goto reentry; + } + } + case OP_FORLOOP: { + lua_Number step = nvalue(ra+2); + lua_Number idx = luai_numadd(nvalue(ra), step); /* increment index */ + lua_Number limit = nvalue(ra+1); + if (luai_numlt(0, step) ? luai_numle(idx, limit) + : luai_numle(limit, idx)) { + dojump(L, pc, GETARG_sBx(i)); /* jump back */ + setnvalue(ra, idx); /* update internal index... */ + setnvalue(ra+3, idx); /* ...and external index */ + } + continue; + } + case OP_FORPREP: { + const TValue *init = ra; + const TValue *plimit = ra+1; + const TValue *pstep = ra+2; + L->savedpc = pc; /* next steps may throw errors */ + if (!tonumber(init, ra)) + luaG_runerror(L, LUA_QL("for") " initial value must be a number"); + else if (!tonumber(plimit, ra+1)) + luaG_runerror(L, LUA_QL("for") " limit must be a number"); + else if (!tonumber(pstep, ra+2)) + luaG_runerror(L, LUA_QL("for") " step must be a number"); + setnvalue(ra, luai_numsub(nvalue(ra), nvalue(pstep))); + dojump(L, pc, GETARG_sBx(i)); + continue; + } + case OP_TFORLOOP: { + StkId cb = ra + 3; /* call base */ + setobjs2s(L, cb+2, ra+2); + setobjs2s(L, cb+1, ra+1); + setobjs2s(L, cb, ra); + L->top = cb+3; /* func. + 2 args (state and index) */ + Protect(luaD_call(L, cb, GETARG_C(i))); + L->top = L->ci->top; + cb = RA(i) + 3; /* previous call may change the stack */ + if (!ttisnil(cb)) { /* continue loop? */ + setobjs2s(L, cb-1, cb); /* save control variable */ + dojump(L, pc, GETARG_sBx(*pc)); /* jump back */ + } + pc++; + continue; + } + case OP_SETLIST: { + int n = GETARG_B(i); + int c = GETARG_C(i); + int last; + Table *h; + if (n == 0) { + n = cast_int(L->top - ra) - 1; + L->top = L->ci->top; + } + if (c == 0) c = cast_int(*pc++); + runtime_check(L, ttistable(ra)); + h = hvalue(ra); + last = ((c-1)*LFIELDS_PER_FLUSH) + n; + if (last > h->sizearray) /* needs more space? */ + luaH_resizearray(L, h, last); /* pre-alloc it at once */ + for (; n > 0; n--) { + TValue *val = ra+n; + setobj2t(L, luaH_setnum(L, h, last--), val); + luaC_barriert(L, h, val); + } + continue; + } + case OP_CLOSE: { + luaF_close(L, ra); + continue; + } + case OP_CLOSURE: { + Proto *p; + Closure *ncl; + int nup, j; + p = cl->p->p[GETARG_Bx(i)]; + nup = p->nups; + ncl = luaF_newLclosure(L, nup, cl->env); + ncl->l.p = p; + for (j=0; jl.upvals[j] = cl->upvals[GETARG_B(*pc)]; + else { + lua_assert(GET_OPCODE(*pc) == OP_MOVE); + ncl->l.upvals[j] = luaF_findupval(L, base + GETARG_B(*pc)); + } + } + setclvalue(L, ra, ncl); + Protect(luaC_checkGC(L)); + continue; + } + case OP_VARARG: { + int b = GETARG_B(i) - 1; + int j; + CallInfo *ci = L->ci; + int n = cast_int(ci->base - ci->func) - cl->p->numparams - 1; + if (b == LUA_MULTRET) { + Protect(luaD_checkstack(L, n)); + ra = RA(i); /* previous call may change the stack */ + b = n; + L->top = ra + n; + } + for (j = 0; j < b; j++) { + if (j < n) { + setobjs2s(L, ra + j, ci->base - n + j); + } + else { + setnilvalue(ra + j); + } + } + continue; + } + } + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lvm.h b/src/3rd party/LuaJIT-1.1.8/src/lvm.h new file mode 100644 index 00000000000..506a29411f5 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lvm.h @@ -0,0 +1,40 @@ +/* +** $Id: lvm.h,v 2.5.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua virtual machine +** See Copyright Notice in lua.h +*/ + +#ifndef lvm_h +#define lvm_h + + +#include "ldo.h" +#include "lobject.h" +#include "ltm.h" + + +#define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o))) + +#define tonumber(o,n) (ttype(o) == LUA_TNUMBER || \ + (((o) = luaV_tonumber(o,n)) != NULL)) + +#define equalobj(L,o1,o2) \ + (ttype(o1) == ttype(o2) && luaV_equalval(L, o1, o2)) + + +LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); +LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r); +LUAI_FUNC int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2); +LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); +LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); +LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, + StkId val); +LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key, + StkId val); +LUAI_FUNC void luaV_arith (lua_State *L, StkId ra, const TValue *rb, + const TValue *rc, TMS op); + +LUAI_FUNC void luaV_execute (lua_State *L, int nexeccalls); +LUAI_FUNC void luaV_concat (lua_State *L, int total, int last); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lzio.c b/src/3rd party/LuaJIT-1.1.8/src/lzio.c new file mode 100644 index 00000000000..293edd59b08 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lzio.c @@ -0,0 +1,82 @@ +/* +** $Id: lzio.c,v 1.31.1.1 2007/12/27 13:02:25 roberto Exp $ +** a generic input stream interface +** See Copyright Notice in lua.h +*/ + + +#include + +#define lzio_c +#define LUA_CORE + +#include "lua.h" + +#include "llimits.h" +#include "lmem.h" +#include "lstate.h" +#include "lzio.h" + + +int luaZ_fill (ZIO *z) { + size_t size; + lua_State *L = z->L; + const char *buff; + lua_unlock(L); + buff = z->reader(L, z->data, &size); + lua_lock(L); + if (buff == NULL || size == 0) return EOZ; + z->n = size - 1; + z->p = buff; + return char2int(*(z->p++)); +} + + +int luaZ_lookahead (ZIO *z) { + if (z->n == 0) { + if (luaZ_fill(z) == EOZ) + return EOZ; + else { + z->n++; /* luaZ_fill removed first byte; put back it */ + z->p--; + } + } + return char2int(*z->p); +} + + +void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) { + z->L = L; + z->reader = reader; + z->data = data; + z->n = 0; + z->p = NULL; +} + + +/* --------------------------------------------------------------- read --- */ +size_t luaZ_read (ZIO *z, void *b, size_t n) { + while (n) { + size_t m; + if (luaZ_lookahead(z) == EOZ) + return n; /* return number of missing bytes */ + m = (n <= z->n) ? n : z->n; /* min. between n and z->n */ + memcpy(b, z->p, m); + z->n -= m; + z->p += m; + b = (char *)b + m; + n -= m; + } + return 0; +} + +/* ------------------------------------------------------------------------ */ +char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n) { + if (n > buff->buffsize) { + if (n < LUA_MINBUFFER) n = LUA_MINBUFFER; + luaZ_resizebuffer(L, buff, n); + } + return buff->buffer; +} + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lzio.h b/src/3rd party/LuaJIT-1.1.8/src/lzio.h new file mode 100644 index 00000000000..51d695d8c1d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lzio.h @@ -0,0 +1,67 @@ +/* +** $Id: lzio.h,v 1.21.1.1 2007/12/27 13:02:25 roberto Exp $ +** Buffered streams +** See Copyright Notice in lua.h +*/ + + +#ifndef lzio_h +#define lzio_h + +#include "lua.h" + +#include "lmem.h" + + +#define EOZ (-1) /* end of stream */ + +typedef struct Zio ZIO; + +#define char2int(c) cast(int, cast(unsigned char, (c))) + +#define zgetc(z) (((z)->n--)>0 ? char2int(*(z)->p++) : luaZ_fill(z)) + +typedef struct Mbuffer { + char *buffer; + size_t n; + size_t buffsize; +} Mbuffer; + +#define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0) + +#define luaZ_buffer(buff) ((buff)->buffer) +#define luaZ_sizebuffer(buff) ((buff)->buffsize) +#define luaZ_bufflen(buff) ((buff)->n) + +#define luaZ_resetbuffer(buff) ((buff)->n = 0) + + +#define luaZ_resizebuffer(L, buff, size) \ + (luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \ + (buff)->buffsize = size) + +#define luaZ_freebuffer(L, buff) luaZ_resizebuffer(L, buff, 0) + + +LUAI_FUNC char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n); +LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, + void *data); +LUAI_FUNC size_t luaZ_read (ZIO* z, void* b, size_t n); /* read next n bytes */ +LUAI_FUNC int luaZ_lookahead (ZIO *z); + + + +/* --------- Private Part ------------------ */ + +struct Zio { + size_t n; /* bytes still unread */ + const char *p; /* current position in buffer */ + lua_Reader reader; + void* data; /* additional data */ + lua_State *L; /* Lua state (for reader) */ +}; + + +LUAI_FUNC int luaZ_fill (ZIO *z); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/print.c b/src/3rd party/LuaJIT-1.1.8/src/print.c new file mode 100644 index 00000000000..e240cfc3c60 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/print.c @@ -0,0 +1,227 @@ +/* +** $Id: print.c,v 1.55a 2006/05/31 13:30:05 lhf Exp $ +** print bytecodes +** See Copyright Notice in lua.h +*/ + +#include +#include + +#define luac_c +#define LUA_CORE + +#include "ldebug.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lundump.h" + +#define PrintFunction luaU_print + +#define Sizeof(x) ((int)sizeof(x)) +#define VOID(p) ((const void*)(p)) + +static void PrintString(const TString* ts) +{ + const char* s=getstr(ts); + size_t i,n=ts->tsv.len; + putchar('"'); + for (i=0; ik[i]; + switch (ttype(o)) + { + case LUA_TNIL: + printf("nil"); + break; + case LUA_TBOOLEAN: + printf(bvalue(o) ? "true" : "false"); + break; + case LUA_TNUMBER: + printf(LUA_NUMBER_FMT,nvalue(o)); + break; + case LUA_TSTRING: + PrintString(rawtsvalue(o)); + break; + default: /* cannot happen */ + printf("? type=%d",ttype(o)); + break; + } +} + +static void PrintCode(const Proto* f) +{ + const Instruction* code=f->code; + int pc,n=f->sizecode; + for (pc=0; pc0) printf("[%d]\t",line); else printf("[-]\t"); + printf("%-9s\t",luaP_opnames[o]); + switch (getOpMode(o)) + { + case iABC: + printf("%d",a); + if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b); + if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c); + break; + case iABx: + if (getBMode(o)==OpArgK) printf("%d %d",a,-1-bx); else printf("%d %d",a,bx); + break; + case iAsBx: + if (o==OP_JMP) printf("%d",sbx); else printf("%d %d",a,sbx); + break; + } + switch (o) + { + case OP_LOADK: + printf("\t; "); PrintConstant(f,bx); + break; + case OP_GETUPVAL: + case OP_SETUPVAL: + printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-"); + break; + case OP_GETGLOBAL: + case OP_SETGLOBAL: + printf("\t; %s",svalue(&f->k[bx])); + break; + case OP_GETTABLE: + case OP_SELF: + if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); } + break; + case OP_SETTABLE: + case OP_ADD: + case OP_SUB: + case OP_MUL: + case OP_DIV: + case OP_POW: + case OP_EQ: + case OP_LT: + case OP_LE: + if (ISK(b) || ISK(c)) + { + printf("\t; "); + if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-"); + printf(" "); + if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-"); + } + break; + case OP_JMP: + case OP_FORLOOP: + case OP_FORPREP: + printf("\t; to %d",sbx+pc+2); + break; + case OP_CLOSURE: + printf("\t; %p",VOID(f->p[bx])); + break; + case OP_SETLIST: + if (c==0) printf("\t; %d",(int)code[++pc]); + else printf("\t; %d",c); + break; + default: + break; + } + printf("\n"); + } +} + +#define SS(x) (x==1)?"":"s" +#define S(x) x,SS(x) + +static void PrintHeader(const Proto* f) +{ + const char* s=getstr(f->source); + if (*s=='@' || *s=='=') + s++; + else if (*s==LUA_SIGNATURE[0]) + s="(bstring)"; + else + s="(string)"; + printf("\n%s <%s:%d,%d> (%d instruction%s, %d bytes at %p)\n", + (f->linedefined==0)?"main":"function",s, + f->linedefined,f->lastlinedefined, + S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f)); + printf("%d%s param%s, %d slot%s, %d upvalue%s, ", + f->numparams,f->is_vararg?"+":"",SS(f->numparams), + S(f->maxstacksize),S(f->nups)); + printf("%d local%s, %d constant%s, %d function%s\n", + S(f->sizelocvars),S(f->sizek),S(f->sizep)); +} + +static void PrintConstants(const Proto* f) +{ + int i,n=f->sizek; + printf("constants (%d) for %p:\n",n,VOID(f)); + for (i=0; isizelocvars; + printf("locals (%d) for %p:\n",n,VOID(f)); + for (i=0; ilocvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1); + } +} + +static void PrintUpvalues(const Proto* f) +{ + int i,n=f->sizeupvalues; + printf("upvalues (%d) for %p:\n",n,VOID(f)); + if (f->upvalues==NULL) return; + for (i=0; iupvalues[i])); + } +} + +void PrintFunction(const Proto* f, int full) +{ + int i,n=f->sizep; + PrintHeader(f); + PrintCode(f); + if (full) + { + PrintConstants(f); + PrintLocals(f); + PrintUpvalues(f); + } + for (i=0; ip[i],full); +} diff --git a/src/engine.sln b/src/engine.sln index 73d32525aec..8dbae2b7cdb 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -132,6 +132,8 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "CxImage", "3rd party\cximag EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "NVTT", "3rd party\NVTT\NVTT.vcxproj", "{0EB257DC-5CFC-44B0-82C9-CE6B158BE473}" EndProject +Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "LuaJIT-1.1.8", "3rd party\LuaJIT-1.1.8\LuaJIT-1.1.8.vcxproj", "{2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug_Dedicated|Win32 = Debug_Dedicated|Win32 @@ -590,6 +592,18 @@ Global {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.Build.0 = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.ActiveCfg = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.Build.0 = Release|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -618,6 +632,7 @@ Global {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {880CD250-BA77-4DAF-A8D4-552F12DD3AE4} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {0EB257DC-5CFC-44B0-82C9-CE6B158BE473} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index dcb69002070..3e811358e27 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -%s this %s \ -setmetatable(this, {__index = _G}) \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + %s this %s \ + setmetatable(this, {__index = _G}) \ + setfenv(1, this) \ + "; LPCSTR file_header_new = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -this._G = _G \ -%s this %s \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + this._G = _G \ + %s this %s \ + setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,320 +88,342 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator( 0, 0, "lua" ); +static doug_lea_allocator s_allocator(0, 0, "lua"); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { +static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) +{ #ifndef USE_MEMORY_MONITOR - (void)ud; - (void)osize; - if ( !nsize ) { - s_allocator.free_impl (ptr); - return 0; - } - - if ( !ptr ) - return s_allocator.malloc_impl((u32)nsize); - - return s_allocator.realloc_impl(ptr, (u32)nsize); + (void)ud; + (void) osize; + if (!nsize) + { + s_allocator.free_impl(ptr); + return 0; + } + + if (!ptr) + return s_allocator.malloc_impl((u32) nsize); + + return s_allocator.realloc_impl(ptr, (u32) nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage () +u32 game_lua_memory_usage() { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator ( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) { - LPVOID non_const_pointer = const_cast(pointer); - xr_free (non_const_pointer); - return ( 0 ); - } - - if (!pointer) { + if (!size) + { + LPVOID non_const_pointer = const_cast(pointer); + xr_free(non_const_pointer); + return (0); + } + + if (!pointer) + { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_alloc(size) ); + return (Memory.mem_alloc(size)); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size) ); + return (Memory.mem_realloc(non_const_pointer, size)); #endif // #ifdef DEBUG } -void setup_luabind_allocator () +void setup_luabind_allocator() { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message (lua_State* state, const char *msg) { - Msg ("! [LUA_JIT] %s", msg); +static void l_message(lua_State* state, const char *msg) +{ + Msg("! [LUA_JIT] %s", msg); } -static int report (lua_State *L, int status) { - if (status && !lua_isnil(L, -1)) { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report(lua_State *L, int status) +{ + if (status && !lua_isnil(L, -1)) + { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule (lua_State *L, const char *notfound) { - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule(lua_State *L, const char *notfound) +{ + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) + { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) + { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd (lua_State *L, const char *cmd) { - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val+1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd(lua_State *L, const char *cmd) +{ + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) + { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else + { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val + 1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt (lua_State *L, const char *opt) { - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt(lua_State *L, const char *opt) +{ + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage () +CScriptStorage::CScriptStorage() { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage () +CScriptStorage::~CScriptStorage() { - if (m_virtual_machine) - lua_close (m_virtual_machine); + if (m_virtual_machine) + lua_close(m_virtual_machine); } #ifndef DEBUG -static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal (state, "package"); - lua_pushstring (state, "preload"); - lua_gettable (state, -2); + lua_getglobal(state, "package"); + lua_pushstring(state, "preload"); + lua_gettable(state, -2); - lua_pushstring (state, package_id); - luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); - lua_settable (state, -3); + lua_pushstring(state, package_id); + luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); + lua_settable(state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit () +void CScriptStorage::reinit() { - if (m_virtual_machine) - lua_close (m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) { - Msg ("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit { - static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction (L, function); - lua_pushstring (L, module_name); - lua_call (L, 1, 0); - } - }; // struct lua; - - luajit::open_lib (lua(), "", luaopen_base); - luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); - -#ifdef DEBUG - luajit::open_lib (lua(), LUA_DBLIBNAME, luaopen_debug); -#endif // #ifdef DEBUG - - if (!strstr(Core.Params,"-nojit")) { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (m_virtual_machine) + lua_close(m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) + { + Msg("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit + { + static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction(L, function); + lua_pushstring(L, module_name); + lua_call(L, 1, 0); + } + }; // struct lua; + + luajit::open_lib(lua(), "", luaopen_base); + luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); + + /* AVO: unlock lua debug library */ + //#ifdef DEBUG + if (strstr(Core.Params, "-dbg")) + { + luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); + } + //#endif // #ifdef DEBUG + /* AVO: end */ + + if (!strstr(Core.Params, "-nojit")) + { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt (lua(), "2"); + put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt(lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params,"-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params, "-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE # ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK # ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) { + case ScriptStorage::eLuaMessageTypeInfo : { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError : { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage : { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall : { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn : { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine : { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount : { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn : { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default : NODEFAULT; + } + + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1,caFormat,marker); + Msg ("%s",S2); + + xr_strcpy (S2,SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1,caFormat,marker); + xr_strcat (S2,"\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } @@ -409,445 +431,469 @@ int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType void CScriptStorage::print_stack () { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { + lua_getinfo (L,"nSlu",&l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); + else + if (!xr_strcmp(l_tDebugInfo.what,"C")) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); + else + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start (marker,caFormat); - int result = vscript_log(tLuaMessageType,caFormat,marker); - va_end (marker); + va_list marker; + va_start(marker, caFormat); + int result = vscript_log(tLuaMessageType, caFormat, marker); + va_end(marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack (); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT (S2,caNamespaceName); - LPSTR S = S2; - for (int i=0;;++i) { - if (!xr_strlen(S)) { - script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat (b,b_size,"{"); - xr_strcat (b,b_size,S); - xr_strcat (b,b_size,"="); - if (i) - xr_strcat (c,c_size,"}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT(S2, caNamespaceName); + LPSTR S = S2; + for (int i = 0;; ++i) + { + if (!xr_strlen(S)) + { + script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat(b, b_size, "{"); + xr_strcat(b, b_size, S); + xr_strcat(b, b_size, "="); + if (i) + xr_strcat(c, c_size, "}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) - return (false); - - xr_sprintf (insert,header,caNameSpaceName,a,b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try { - if (total_size < 768*1024) - script = (LPSTR)_alloca(total_size); - else { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) + { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) + return (false); + + xr_sprintf(insert, header, caNameSpaceName, a, b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try + { + if (total_size < 768 * 1024) + script = (LPSTR) _alloca(total_size); + else + { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); + script = (LPSTR) Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy (script, total_size, insert); - CopyMemory (script + str_len,caBuffer,u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); - - if ( dynamic_allocation ) - xr_free (script); - } - else { -// try - { - l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); - } -// catch(...) { -// l_iErrorCode= LUA_ERRSYNTAX; -// } - } - - if (l_iErrorCode) { + script = (LPSTR) Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy(script, total_size, insert); + CopyMemory(script + str_len, caBuffer, u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); + + if (dynamic_allocation) + xr_free(script); + } + else + { + // try + { + l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); + } + // catch(...) { + // l_iErrorCode= LUA_ERRSYNTAX; + // } + } + + if (l_iErrorCode) + { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error (L); - return (false); - } - return (true); + on_error(L); + return (false); + } + return (true); } -bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) { - script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); - return (false); - } - strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); - - if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { -// VERIFY (lua_gettop(lua()) >= 4); -// lua_pop (lua(),4); -// VERIFY (lua_gettop(lua()) == start - 3); - lua_settop (lua(),start); - FS.r_close (l_tpFileReader); - return (false); - } - FS.r_close (l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) + { + script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); + return (false); + } + strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); + + if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) + { + // VERIFY (lua_gettop(lua()) >= 4); + // lua_pop (lua(),4); + // VERIFY (lua_gettop(lua()) == start - 3); + lua_settop(lua(), start); + FS.r_close(l_tpFileReader); + return (false); + } + FS.r_close(l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i=0; lua_type(lua(), -i-1); i++) - Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); - } + if (0) //. + { + for (int i = 0; lua_type(lua(), -i - 1); i++) + Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) { + if (l_iErrorCode) + { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error (lua()); - lua_settop (lua(),start); - return (false); - } + on_error(lua()); + lua_settop(lua(), start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName,caNamespaceName)) { - lua_settop (lua(),start); - return (false); - } - VERIFY (lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName, caNamespaceName)) + { + lua_settop(lua(), start); + return (false); + } + VERIFY(lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring (lua(),"_G"); - lua_rawget (lua(),LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy (S2,N); - LPSTR S = S2; - for (;;) { - if (!xr_strlen(S)) { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - lua_pushstring (lua(),S); - lua_rawget (lua(),-2); - if (lua_isnil(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 2); - lua_pop (lua(),2); - VERIFY (start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (start == lua_gettop(lua())); - FATAL (" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove (lua(),-2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) { - VERIFY (lua_gettop(lua()) == start + 1); - } - else { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring(lua(), "_G"); + lua_rawget(lua(), LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy(S2, N); + LPSTR S = S2; + for (;;) + { + if (!xr_strlen(S)) + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + lua_pushstring(lua(), S); + lua_rawget(lua(), -2); + if (lua_isnil(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 2); + lua_pop(lua(), 2); + VERIFY(start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + FATAL(" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove(lua(), -2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) + { + VERIFY(lua_gettop(lua()) == start + 1); + } + else + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object (LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil (lua()); - while (lua_next(lua(), -2)) { - - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { - VERIFY (lua_gettop(lua()) >= 3); - lua_pop (lua(), 3); - VERIFY (lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop (lua(), 1); - } - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil(lua()); + while (lua_next(lua(), -2)) + { + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) + { + VERIFY(lua_gettop(lua()) >= 3); + lua_pop(lua(), 3); + VERIFY(lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop(lua(), 1); + } + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { - VERIFY (lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier,type); - VERIFY (lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) + { + VERIFY(lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier, type); + VERIFY(lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy (S1,namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S,'.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy(S1, namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) + { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S, '.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable { - int m_error_code; - LPCSTR const& m_error_description; - raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard () - { +struct raii_guard : private boost::noncopyable +{ + int m_error_code; + LPCSTR const& m_error_description; + raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} + ~raii_guard() + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = true; #endif // #ifdef DEBUG - if ( !m_error_code ) - return; - - if ( break_on_assert ) - R_ASSERT2 ( !m_error_code, m_error_description ); - else - Msg ( "! SCRIPT ERROR: %s", m_error_description ); - } - } + if (!m_error_code) + return; + + if (break_on_assert) + R_ASSERT2(!m_error_code, m_error_description); + else + Msg("! SCRIPT ERROR: %s", m_error_description); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error (L,iErorCode); +{ + if (iErorCode) + print_error(L, iErorCode); + + LPCSTR S = "see call_stack for details!"; - LPCSTR S = "see call_stack for details!"; + raii_guard guard(iErorCode, S); - raii_guard guard(iErorCode, S); + if (!lua_isstring(L, -1)) + return (false); - if (!lua_isstring(L,-1)) - return (false); - - S = lua_tostring(L,-1); - if (!xr_strcmp(S,"cannot resume dead coroutine")) { - VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); + S = lua_tostring(L, -1); + if (!xr_strcmp(S, "cannot resume dead coroutine")) + { + VERIFY2("Please do not return any values from main!!!", caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else { - if (!iErorCode) - script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); - script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); + } + else + { + if (!iErorCode) + script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); + script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) { - case LUA_ERRRUN : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD : { - script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); - break; - } - default : NODEFAULT; - } + switch (iErrorCode) + { + case LUA_ERRRUN: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD: { + script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); + break; + } + default: NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log (LPCSTR format, ...) +int CScriptStorage::error_log(LPCSTR format, ...) { - va_list marker; - va_start (marker,format); + va_list marker; + va_start(marker, format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy(S2, S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1,format,marker); - va_end (marker); + int result = vsprintf(S1, format, marker); + va_end(marker); - Msg ("%s",S2); + Msg("%s", S2); - return (result); + return (result); } \ No newline at end of file From 96699eb85555429a8ffb3c9d2acb4d0a0becfd55 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 20:47:04 -0500 Subject: [PATCH 012/166] * luajit 1.1.8 currently not working correctly --- sdk/include/lua/library_linkage.h | 4 +++- sdk/include/lua/lua.h | 10 +++++----- sdk/include/lua/luaconf.h | 12 ++++-------- sdk/include/lua/lualib.h | 2 +- src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 17 ++++++++++++++--- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters | 3 +++ .../luabind/luabind.beta7-devel.rc4.vcxproj | 8 ++++++-- src/engine.sln | 1 - src/utils/xrSE_Factory/xrSE_Factory.vcxproj | 5 ++--- src/xrEngine/xrEngine.vcxproj | 12 ++++++++---- src/xrGame/xrGame.vcxproj | 7 +++---- 11 files changed, 49 insertions(+), 32 deletions(-) diff --git a/sdk/include/lua/library_linkage.h b/sdk/include/lua/library_linkage.h index 61c4ebe1202..6cd8f180420 100644 --- a/sdk/include/lua/library_linkage.h +++ b/sdk/include/lua/library_linkage.h @@ -9,6 +9,8 @@ #ifndef LUA_LIBRARY_LINKAGE_H_INCLUDED #define LUA_LIBRARY_LINKAGE_H_INCLUDED -#pragma comment(lib, "lua.JIT.1.1.4.lib" ) +//#pragma comment(lib, "lua.JIT.1.1.4.lib" ) // AVO: upgrade to 1.1.8 +#pragma comment(lib, "LuaJIT-1.1.8.lib" ) + #endif // #ifndef LUA_LIBRARY_LINKAGE_H_INCLUDED \ No newline at end of file diff --git a/sdk/include/lua/lua.h b/sdk/include/lua/lua.h index 3db38310349..da822f0ad92 100644 --- a/sdk/include/lua/lua.h +++ b/sdk/include/lua/lua.h @@ -1,5 +1,5 @@ /* -** $Id: lua.h,v 1.218.1.4 2008/01/03 15:41:15 roberto Exp $ +** $Id: lua.h,v 1.218.1.7 2012/01/13 20:36:20 roberto Exp $ ** Lua - An Extensible Extension Language ** Lua.org, PUC-Rio, Brazil (http://www.lua.org) ** See Copyright Notice at the end of this file @@ -13,13 +13,13 @@ #include -#include +#include "luaconf.h" #define LUA_VERSION "Lua 5.1" -#define LUA_RELEASE "Lua 5.1.3" +#define LUA_RELEASE "Lua 5.1.5" #define LUA_VERSION_NUM 501 -#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" +#define LUA_COPYRIGHT "Copyright (C) 1994-2012 Lua.org, PUC-Rio" #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" @@ -359,7 +359,7 @@ struct lua_Debug { /****************************************************************************** -* Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. +* Copyright (C) 1994-2012 Lua.org, PUC-Rio. All rights reserved. * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the diff --git a/sdk/include/lua/luaconf.h b/sdk/include/lua/luaconf.h index fe10205b3c3..35a6bd1562e 100644 --- a/sdk/include/lua/luaconf.h +++ b/sdk/include/lua/luaconf.h @@ -1,5 +1,5 @@ /* -** $Id: luaconf.h,v 1.82.1.6 2008/01/18 17:07:48 roberto Exp $ +** $Id: luaconf.h,v 1.82.1.7 2008/02/11 16:25:08 roberto Exp $ ** Configuration file for Lua ** See Copyright Notice in lua.h */ @@ -151,10 +151,6 @@ ** the libraries, you may want to use the following definition (define ** LUA_BUILD_AS_DLL to get it). */ -#ifdef WIN32 -# define LUA_BUILD_AS_DLL -#endif // #ifdef WIN32 - #if defined(LUA_BUILD_AS_DLL) #if defined(LUA_CORE) || defined(LUA_LIB) @@ -450,10 +446,10 @@ @* can use. ** CHANGE it if you need lots of (Lua) stack space for your C ** functions. This limit is arbitrary; its only purpose is to stop C -** functions to consume unlimited stack space. +** functions to consume unlimited stack space. (must be smaller than +** -LUA_REGISTRYINDEX) */ -#define LUAI_MCS_AUX ((int)(INT_MAX / (4*sizeof(LUA_NUMBER)))) -#define LUAI_MAXCSTACK (LUAI_MCS_AUX > SHRT_MAX ? SHRT_MAX : LUAI_MCS_AUX) +#define LUAI_MAXCSTACK 8000 /* diff --git a/sdk/include/lua/lualib.h b/sdk/include/lua/lualib.h index 7b9d625996d..c4567e9d370 100644 --- a/sdk/include/lua/lualib.h +++ b/sdk/include/lua/lualib.h @@ -8,7 +8,7 @@ #ifndef lualib_h #define lualib_h -#include +#include "lua.h" /* Key to file-handle type */ diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index 0f460cafafc..6908c74a937 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -44,6 +44,9 @@ $(xrIntDir)$(ProjectName)\ $(xrGameDir)_bin_rel\ .dll + $(ProjectName) + false + true @@ -59,7 +62,8 @@ Level4 MaxSpeed - true + + true true $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) @@ -67,17 +71,23 @@ Speed true true - WIN32;NDEBUG;%(PreprocessorDefinitions) + LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) true false - StreamingSIMDExtensions + StreamingSIMDExtensions2 Fast + 4996;4530;4100;4714;4127;4055;%(DisableSpecificWarnings) true true true + $(xrLibDir)$(TargetName).lib + Windows + false + $(xrLibDir)$(TargetName).lib + @@ -113,6 +123,7 @@ + diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters index 8999ee07d33..8f9320b611c 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters @@ -120,6 +120,9 @@ Source Files + + Source Files + diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index 2fc532611d5..119c50a4889 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -227,9 +227,13 @@ - - {f6c4f74a-152c-4612-9e3b-d02346234855} + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} + false false + false + true + false diff --git a/src/engine.sln b/src/engine.sln index 8dbae2b7cdb..be25675a0cc 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -490,7 +490,6 @@ Global {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.Build.0 = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.ActiveCfg = Release|Win32 - {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.Build.0 = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.Build.0 = Debug|Win32 diff --git a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj index 960619b0640..2147a8e23ff 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj +++ b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj @@ -691,9 +691,8 @@ {cc52e0b3-cc35-4934-9302-035b748f3f2c} false - - {f6c4f74a-152c-4612-9e3b-d02346234855} - false + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 0198e7afa38..eef78e76dab 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -736,10 +736,6 @@ {cc52e0b3-cc35-4934-9302-035b748f3f2c} false - - {f6c4f74a-152c-4612-9e3b-d02346234855} - false - {566551f4-4ef1-4cb4-a131-f982e7606907} false @@ -756,6 +752,14 @@ {ccca7859-eb86-493e-9b53-c4235f45b3c5} false + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} + false + false + false + true + false + diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index fde55ffc822..2f008ce4aa2 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -4144,10 +4144,6 @@ {cc52e0b3-cc35-4934-9302-035b748f3f2c} false - - {f6c4f74a-152c-4612-9e3b-d02346234855} - false - {1bf75feb-87dd-486c-880b-227987d191c2} false @@ -4176,6 +4172,9 @@ {94a1c366-3d19-48e6-8170-4adc2e70df98} false + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} + {ebf9b543-0830-4866-9b48-dc0740e87e8a} From 9af385da82f48e544e9a4bd4fcf02007c8b6eb2b Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 15:51:43 -0500 Subject: [PATCH 013/166] + exposed lua debug library (under -dbg key) * added LuaJIT-1.1.8 project --- src/3rd party/LuaJIT-1.1.8/COPYRIGHT | 40 + .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 167 + .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters | 232 + src/3rd party/LuaJIT-1.1.8/Makefile | 130 + src/3rd party/LuaJIT-1.1.8/README | 46 + src/3rd party/LuaJIT-1.1.8/doc/amazon.gif | Bin 0 -> 797 bytes src/3rd party/LuaJIT-1.1.8/doc/contents.html | 497 + src/3rd party/LuaJIT-1.1.8/doc/cover.png | Bin 0 -> 3305 bytes src/3rd party/LuaJIT-1.1.8/doc/logo.gif | Bin 0 -> 4232 bytes src/3rd party/LuaJIT-1.1.8/doc/lua.1 | 163 + src/3rd party/LuaJIT-1.1.8/doc/lua.css | 83 + src/3rd party/LuaJIT-1.1.8/doc/lua.html | 172 + src/3rd party/LuaJIT-1.1.8/doc/luac.1 | 136 + src/3rd party/LuaJIT-1.1.8/doc/luac.html | 145 + src/3rd party/LuaJIT-1.1.8/doc/manual.css | 24 + src/3rd party/LuaJIT-1.1.8/doc/manual.html | 8804 +++++++++++++++++ src/3rd party/LuaJIT-1.1.8/doc/readme.html | 40 + .../LuaJIT-1.1.8/dynasm/dasm_proto.h | 68 + src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h | 455 + .../LuaJIT-1.1.8/dynasm/dasm_x86.lua | 1581 +++ src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua | 1070 ++ src/3rd party/LuaJIT-1.1.8/etc/README | 20 + src/3rd party/LuaJIT-1.1.8/etc/lua.hpp | 9 + src/3rd party/LuaJIT-1.1.8/etc/luajit.ico | Bin 0 -> 1078 bytes src/3rd party/LuaJIT-1.1.8/etc/luajit.pc | 28 + src/3rd party/LuaJIT-1.1.8/etc/luavs.bat | 22 + src/3rd party/LuaJIT-1.1.8/etc/strict.lua | 41 + src/3rd party/LuaJIT-1.1.8/jit/dis_x86.lua | 622 ++ src/3rd party/LuaJIT-1.1.8/jit/dump.lua | 265 + src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua | 239 + src/3rd party/LuaJIT-1.1.8/jit/opt.lua | 508 + src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua | 397 + src/3rd party/LuaJIT-1.1.8/jit/trace.lua | 111 + .../LuaJIT-1.1.8/jitdoc/bluequad-print.css | 166 + .../LuaJIT-1.1.8/jitdoc/bluequad.css | 292 + src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html | 132 + .../LuaJIT-1.1.8/jitdoc/coco_api.html | 182 + .../LuaJIT-1.1.8/jitdoc/coco_changes.html | 153 + .../LuaJIT-1.1.8/jitdoc/coco_portability.html | 239 + .../LuaJIT-1.1.8/jitdoc/contact.html | 105 + src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html | 116 + .../LuaJIT-1.1.8/jitdoc/dynasm_examples.html | 188 + .../LuaJIT-1.1.8/jitdoc/dynasm_features.html | 139 + .../LuaJIT-1.1.8/jitdoc/img/backbar.png | Bin 0 -> 118 bytes .../LuaJIT-1.1.8/jitdoc/img/bluebar.png | Bin 0 -> 134 bytes .../LuaJIT-1.1.8/jitdoc/img/contact.png | Bin 0 -> 1340 bytes .../LuaJIT-1.1.8/jitdoc/img/magentabar.png | Bin 0 -> 152 bytes .../LuaJIT-1.1.8/jitdoc/img/spacer.png | Bin 0 -> 95 bytes src/3rd party/LuaJIT-1.1.8/jitdoc/index.html | 103 + src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html | 109 + .../LuaJIT-1.1.8/jitdoc/luajit_api.html | 372 + .../LuaJIT-1.1.8/jitdoc/luajit_changes.html | 307 + .../LuaJIT-1.1.8/jitdoc/luajit_debug.html | 273 + .../LuaJIT-1.1.8/jitdoc/luajit_features.html | 226 + .../LuaJIT-1.1.8/jitdoc/luajit_install.html | 340 + .../LuaJIT-1.1.8/jitdoc/luajit_intro.html | 389 + .../jitdoc/luajit_performance.html | 394 + .../LuaJIT-1.1.8/jitdoc/luajit_run.html | 159 + src/3rd party/LuaJIT-1.1.8/src/Makefile | 252 + src/3rd party/LuaJIT-1.1.8/src/lapi.c | 1082 ++ src/3rd party/LuaJIT-1.1.8/src/lapi.h | 16 + src/3rd party/LuaJIT-1.1.8/src/lauxlib.c | 652 ++ src/3rd party/LuaJIT-1.1.8/src/lauxlib.h | 174 + src/3rd party/LuaJIT-1.1.8/src/lbaselib.c | 679 ++ src/3rd party/LuaJIT-1.1.8/src/lcoco.c | 693 ++ src/3rd party/LuaJIT-1.1.8/src/lcoco.h | 72 + src/3rd party/LuaJIT-1.1.8/src/lcode.c | 831 ++ src/3rd party/LuaJIT-1.1.8/src/lcode.h | 76 + src/3rd party/LuaJIT-1.1.8/src/ldblib.c | 398 + src/3rd party/LuaJIT-1.1.8/src/ldebug.c | 640 ++ src/3rd party/LuaJIT-1.1.8/src/ldebug.h | 33 + src/3rd party/LuaJIT-1.1.8/src/ldo.c | 520 + src/3rd party/LuaJIT-1.1.8/src/ldo.h | 59 + src/3rd party/LuaJIT-1.1.8/src/ldump.c | 164 + src/3rd party/LuaJIT-1.1.8/src/lfunc.c | 182 + src/3rd party/LuaJIT-1.1.8/src/lfunc.h | 34 + src/3rd party/LuaJIT-1.1.8/src/lgc.c | 710 ++ src/3rd party/LuaJIT-1.1.8/src/lgc.h | 110 + src/3rd party/LuaJIT-1.1.8/src/linit.c | 39 + src/3rd party/LuaJIT-1.1.8/src/liolib.c | 556 ++ src/3rd party/LuaJIT-1.1.8/src/ljit.h | 167 + src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c | 342 + src/3rd party/LuaJIT-1.1.8/src/ljit_core.c | 385 + src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c | 38 + src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h | 19 + src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h | 137 + src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c | 405 + src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc | 2457 +++++ src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash | 297 + src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h | 2301 +++++ .../LuaJIT-1.1.8/src/ljit_x86_inline.dash | 625 ++ src/3rd party/LuaJIT-1.1.8/src/ljitlib.c | 637 ++ src/3rd party/LuaJIT-1.1.8/src/llex.c | 463 + src/3rd party/LuaJIT-1.1.8/src/llex.h | 81 + src/3rd party/LuaJIT-1.1.8/src/llimits.h | 128 + src/3rd party/LuaJIT-1.1.8/src/lmathlib.c | 263 + src/3rd party/LuaJIT-1.1.8/src/lmem.c | 86 + src/3rd party/LuaJIT-1.1.8/src/lmem.h | 49 + src/3rd party/LuaJIT-1.1.8/src/loadlib.c | 669 ++ src/3rd party/LuaJIT-1.1.8/src/lobject.c | 214 + src/3rd party/LuaJIT-1.1.8/src/lobject.h | 386 + src/3rd party/LuaJIT-1.1.8/src/lopcodes.c | 102 + src/3rd party/LuaJIT-1.1.8/src/lopcodes.h | 268 + src/3rd party/LuaJIT-1.1.8/src/loslib.c | 244 + src/3rd party/LuaJIT-1.1.8/src/lparser.c | 1339 +++ src/3rd party/LuaJIT-1.1.8/src/lparser.h | 82 + src/3rd party/LuaJIT-1.1.8/src/lstate.c | 218 + src/3rd party/LuaJIT-1.1.8/src/lstate.h | 179 + src/3rd party/LuaJIT-1.1.8/src/lstring.c | 111 + src/3rd party/LuaJIT-1.1.8/src/lstring.h | 31 + src/3rd party/LuaJIT-1.1.8/src/lstrlib.c | 871 ++ src/3rd party/LuaJIT-1.1.8/src/ltable.c | 588 ++ src/3rd party/LuaJIT-1.1.8/src/ltable.h | 41 + src/3rd party/LuaJIT-1.1.8/src/ltablib.c | 287 + src/3rd party/LuaJIT-1.1.8/src/ltm.c | 75 + src/3rd party/LuaJIT-1.1.8/src/ltm.h | 54 + src/3rd party/LuaJIT-1.1.8/src/lua.c | 463 + src/3rd party/LuaJIT-1.1.8/src/lua.h | 385 + src/3rd party/LuaJIT-1.1.8/src/luac.c | 200 + src/3rd party/LuaJIT-1.1.8/src/luaconf.h | 786 ++ src/3rd party/LuaJIT-1.1.8/src/luajit.h | 68 + src/3rd party/LuaJIT-1.1.8/src/lualib.h | 56 + src/3rd party/LuaJIT-1.1.8/src/lundump.c | 227 + src/3rd party/LuaJIT-1.1.8/src/lundump.h | 36 + src/3rd party/LuaJIT-1.1.8/src/lvm.c | 767 ++ src/3rd party/LuaJIT-1.1.8/src/lvm.h | 40 + src/3rd party/LuaJIT-1.1.8/src/lzio.c | 82 + src/3rd party/LuaJIT-1.1.8/src/lzio.h | 67 + src/3rd party/LuaJIT-1.1.8/src/print.c | 227 + src/engine.sln | 15 + src/xrServerEntities/script_storage.cpp | 1230 +-- 131 files changed, 47167 insertions(+), 592 deletions(-) create mode 100644 src/3rd party/LuaJIT-1.1.8/COPYRIGHT create mode 100644 src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj create mode 100644 src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters create mode 100644 src/3rd party/LuaJIT-1.1.8/Makefile create mode 100644 src/3rd party/LuaJIT-1.1.8/README create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/amazon.gif create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/contents.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/cover.png create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/logo.gif create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.1 create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.css create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/lua.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/luac.1 create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/luac.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/manual.css create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/manual.html create mode 100644 src/3rd party/LuaJIT-1.1.8/doc/readme.html create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/README create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/lua.hpp create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luajit.ico create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luajit.pc create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/luavs.bat create mode 100644 src/3rd party/LuaJIT-1.1.8/etc/strict.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dis_x86.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dump.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/opt.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jit/trace.lua create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/magentabar.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/img/spacer.png create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/index.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html create mode 100644 src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html create mode 100644 src/3rd party/LuaJIT-1.1.8/src/Makefile create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lapi.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lapi.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lauxlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lauxlib.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lbaselib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcoco.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcoco.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcode.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lcode.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldblib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldebug.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldebug.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldo.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldo.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ldump.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lfunc.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lfunc.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lgc.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lgc.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/linit.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/liolib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_core.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ljitlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llex.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llex.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/llimits.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmathlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmem.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lmem.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/loadlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lobject.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lobject.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lopcodes.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lopcodes.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/loslib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lparser.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lparser.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstate.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstate.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstring.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstring.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lstrlib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltable.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltable.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltablib.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/ltm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lua.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lua.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luac.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luaconf.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/luajit.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lualib.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lundump.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lundump.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lvm.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lvm.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lzio.c create mode 100644 src/3rd party/LuaJIT-1.1.8/src/lzio.h create mode 100644 src/3rd party/LuaJIT-1.1.8/src/print.c diff --git a/src/3rd party/LuaJIT-1.1.8/COPYRIGHT b/src/3rd party/LuaJIT-1.1.8/COPYRIGHT new file mode 100644 index 00000000000..ff6cd7251b6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/COPYRIGHT @@ -0,0 +1,40 @@ +Lua License +----------- + +Lua is licensed under the terms of the MIT license reproduced below. +This means that Lua is free software and can be used for both academic +and commercial purposes at absolutely no cost. + +For details and rationale, see http://www.lua.org/license.html . + +*** +LuaJIT is a derivative work, heavily based on Lua. The JIT extensions +are licensed under the same conditions (except by a different author). +The LuaJIT license can be found in: src/luajit.h +*** + +=============================================================================== + +Copyright (C) 1994-2012 Lua.org, PUC-Rio. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +THE SOFTWARE. + +=============================================================================== + +(end of COPYRIGHT) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj new file mode 100644 index 00000000000..0f460cafafc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -0,0 +1,167 @@ +п»ї + + + + Debug + Win32 + + + Release + Win32 + + + + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} + LuaJIT118 + + + + Application + true + v120 + MultiByte + + + DynamicLibrary + false + v120 + true + MultiByte + + + + + + + + + + + + + + + $(xrIntDir)$(ProjectName)\ + $(xrGameDir)_bin_rel\ + .dll + + + + Level3 + Disabled + true + + + true + + + + + Level4 + MaxSpeed + true + true + true + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + AnySuitable + Speed + true + true + WIN32;NDEBUG;%(PreprocessorDefinitions) + true + + false + StreamingSIMDExtensions + Fast + + + true + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters new file mode 100644 index 00000000000..8999ee07d33 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters @@ -0,0 +1,232 @@ +п»ї + + + + {4FC737F1-C7A5-4376-A066-2A32D752A2FF} + cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx + + + {93995380-89BD-4b04-88EB-625FBE52EBFB} + h;hh;hpp;hxx;hm;inl;inc;xsd + + + {67DA6AB6-F800-4c08-8B7A-83BB121AAD01} + rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms + + + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/3rd party/LuaJIT-1.1.8/Makefile b/src/3rd party/LuaJIT-1.1.8/Makefile new file mode 100644 index 00000000000..215772c0848 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/Makefile @@ -0,0 +1,130 @@ +# makefile for installing Lua +# see INSTALL for installation instructions +# see src/Makefile and src/luaconf.h for further customization + +# == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= + +# Your platform. See PLATS for possible values. +PLAT= none + +# Where to install. The installation starts in the src and doc directories, +# so take care if INSTALL_TOP is not an absolute path. +INSTALL_TOP= /usr/local +INSTALL_BIN= $(INSTALL_TOP)/bin +INSTALL_INC= $(INSTALL_TOP)/include +INSTALL_LIB= $(INSTALL_TOP)/lib +INSTALL_MAN= $(INSTALL_TOP)/man/man1 +# +# You probably want to make INSTALL_LMOD and INSTALL_CMOD consistent with +# LUA_ROOT, LUA_LDIR, and LUA_CDIR in luaconf.h (and also with etc/luajit.pc). +INSTALL_LMOD= $(INSTALL_TOP)/share/lua/$V +INSTALL_CMOD= $(INSTALL_TOP)/lib/lua/$V + +# How to install. If your install program does not support "-p", then you +# may have to run ranlib on the installed liblua.a (do "make ranlib"). +INSTALL= install -p +INSTALL_EXEC= $(INSTALL) -m 0755 +INSTALL_DATA= $(INSTALL) -m 0644 +# +# If you don't have install you can use cp instead. +# INSTALL= cp -p +# INSTALL_EXEC= $(INSTALL) +# INSTALL_DATA= $(INSTALL) + +# Utilities. +MKDIR= mkdir -p +RANLIB= ranlib + +# == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE ========= + +# Convenience platforms targets. +PLATS= linux bsd macosx solaris mingw cygwin posix generic linux_rl bsd_rl macosx_rl + +# What to install. +TO_BIN= luajit +###TO_INC= lua.h luaconf.h lualib.h lauxlib.h ../etc/lua.hpp +###TO_LIB= liblua.a +###TO_MAN= lua.1 luac.1 + +# Lua version and release. +V= 5.1 +R= 5.1.5 +# LuaJIT version. +JV= 1.1.8 + +all: $(PLAT) + +$(PLATS) clean: + cd src && $(MAKE) $@ + +test: dummy + src/luajit -O -e 'io.write("Hello world, from ", jit.version, "!\n")' + +install: dummy + cd src && $(MKDIR) $(INSTALL_BIN) $(INSTALL_INC) $(INSTALL_LIB) $(INSTALL_MAN) $(INSTALL_LMOD) $(INSTALL_CMOD) $(INSTALL_LMOD)/jit + cd src && $(INSTALL_EXEC) $(TO_BIN) $(INSTALL_BIN) + ###cd src && $(INSTALL_DATA) $(TO_INC) $(INSTALL_INC) + ###cd src && $(INSTALL_DATA) $(TO_LIB) $(INSTALL_LIB) + ###cd doc && $(INSTALL_DATA) $(TO_MAN) $(INSTALL_MAN) + cd jit && $(INSTALL_DATA) *.lua $(INSTALL_LMOD)/jit + +ranlib: + cd src && cd $(INSTALL_LIB) && $(RANLIB) $(TO_LIB) + +none: + @echo "Please do" + @echo " make PLATFORM" + @echo "where PLATFORM is one of these:" + @echo " $(PLATS)" + @echo "See jitdoc/luajit_install.html for complete instructions." + +# make may get confused with test/ and INSTALL in a case-insensitive OS +dummy: + +# echo config parameters +echo: + @echo "" + @echo "These are the parameters currently set in src/Makefile to build LuaJIT $(JV):" + @echo "" + @cd src && $(MAKE) -s echo + @echo "" + @echo "These are the parameters currently set in Makefile to install LuaJIT $(JV):" + @echo "" + @echo "PLAT = $(PLAT)" + @echo "INSTALL_TOP = $(INSTALL_TOP)" + @echo "INSTALL_BIN = $(INSTALL_BIN)" + @echo "INSTALL_INC = $(INSTALL_INC)" + @echo "INSTALL_LIB = $(INSTALL_LIB)" + @echo "INSTALL_MAN = $(INSTALL_MAN)" + @echo "INSTALL_LMOD = $(INSTALL_LMOD)" + @echo "INSTALL_CMOD = $(INSTALL_CMOD)" + @echo "INSTALL_EXEC = $(INSTALL_EXEC)" + @echo "INSTALL_DATA = $(INSTALL_DATA)" + @echo "" + @echo "See also src/luaconf.h ." + @echo "" + +# echo private config parameters +pecho: + @echo "V = $(V)" + @echo "R = $(R)" + @echo "JV = $(JV)" + @echo "TO_BIN = $(TO_BIN)" + @echo "TO_INC = $(TO_INC)" + @echo "TO_LIB = $(TO_LIB)" + @echo "TO_MAN = $(TO_MAN)" + +# echo config parameters as Lua code +# uncomment the last sed expression if you want nil instead of empty strings +lecho: + @echo "-- installation parameters for Lua $(R), LuaJIT $(JV)" + @echo "VERSION = '$(V)'" + @echo "RELEASE = '$(R)'" + @echo "LUAJIT_VERSION = '$(JV)'" + @$(MAKE) echo | grep = | sed -e 's/= /= "/' -e 's/$$/"/' #-e 's/""/nil/' + @echo "-- EOF" + +# list targets that do not create files (but not all makes understand .PHONY) +.PHONY: all $(PLATS) clean test install local none dummy echo pecho lecho + +# (end of Makefile) diff --git a/src/3rd party/LuaJIT-1.1.8/README b/src/3rd party/LuaJIT-1.1.8/README new file mode 100644 index 00000000000..530753a6eaf --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/README @@ -0,0 +1,46 @@ +README for LuaJIT 1.1.8 +----------------------- + +************************************************************ +* This is only a bugfix release for the LuaJIT 1.1 branch. * +* LuaJIT 2.0 is available with much improved performance! * +************************************************************ + +LuaJIT is a Just-In-Time (JIT) compiler for the Lua programming language. + + Lua is a powerful, light-weight programming language designed + for extending applications. Lua is also frequently used as a + general-purpose, stand-alone language. More information about + Lua can be found in the docs (see below) or at: http://www.lua.org/ + +LuaJIT 1.x is based on the Lua 5.1.x virtual machine and bytecode +interpreter from lua.org. It compiles bytecode to native x86 (i386+) +machine code to speed up the execution of Lua programs. + +Homepage: http://luajit.org/ + +LuaJIT is Copyright (C) 2005-2012 Mike Pall. LuaJIT is free +software, released under the MIT/X license. + +----------------------- + +Full documentation for LuaJIT is available in HTML format. +Please point your favourite browser to: + + jitdoc/luajit.html + +Detailed installation instructions are here: + + jitdoc/luajit_install.html + +The original documentation for Lua has been included for convenience: + + doc/readme.html + +----------------------- + +LuaJIT 1.1.8 is a heavily modified version of Lua 5.1.5. +The unmodified Lua distribution is available at: + + http://www.lua.org/ftp/lua-5.1.5.tar.gz + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/amazon.gif b/src/3rd party/LuaJIT-1.1.8/doc/amazon.gif new file mode 100644 index 0000000000000000000000000000000000000000..f2586d5765361bb8a33a72401449f3abdefe4e16 GIT binary patch literal 797 zcmV+&1LFKgNk%w1VOjtj0K^&q@9)h50%r{k3;+NBK0Y<5t#HiDnQw1j_x9wkua=aQ zf8O4{J3ExYz@^dAvgzr__o-L@ehvGQF7LT?@$1I#;Ij3_g2%_+^3u}mmw|9dEECm0Kc!X!@|#@3&?4Fr)=|m57&HqxlCDW&_KZ+1;`8vSj33YC_e@b zLW(B90kQ_n9Ds8N3z4jU4HiAyWz9`JYknO6suY&Mn*c`+`V13=EEIuKH*uwDKrGlz zo{tDTNaHR5yf%>5cyj}g-^zXgiM@QV=g%Gh303A)7B84EpbPvE-6X=O$DmxJ`b(9|4E82-m%Ds!U< zI=HL8TMx@{~>s4%C(a0wK8Wjd@n+|5vxOvSr(vuAh- z5-e0mzlK5u3lKm6pnB`22G3HYpfaDDC`;MbMg*4 b)M@9Pc;4WH3w-wJ=bwNED(Iksh5!INDePJ9 literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/contents.html b/src/3rd party/LuaJIT-1.1.8/doc/contents.html new file mode 100644 index 00000000000..3d83da98a6d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/contents.html @@ -0,0 +1,497 @@ + + + +Lua 5.1 Reference Manual - contents + + + + + + + +

+

+ +Lua 5.1 Reference Manual +

+ +

+The reference manual is the official definition of the Lua language. +For a complete introduction to Lua programming, see the book +Programming in Lua. + +

+This manual is also available as a book: +

+ + + +Lua 5.1 Reference Manual +
by R. Ierusalimschy, L. H. de Figueiredo, W. Celes +
Lua.org, August 2006 +
ISBN 85-903798-3-3 +
+
+ +

+Buy a copy +of this book and +help to support +the Lua project. + +

+start +· +contents +· +index +· +other versions +

+ +Copyright © 2006–2012 Lua.org, PUC-Rio. +Freely available under the terms of the +Lua license. + + +

Contents

+ + +

Index

+ + + + + + + +
+

Lua functions

+_G
+_VERSION
+

+ +assert
+collectgarbage
+dofile
+error
+getfenv
+getmetatable
+ipairs
+load
+loadfile
+loadstring
+module
+next
+pairs
+pcall
+print
+rawequal
+rawget
+rawset
+require
+select
+setfenv
+setmetatable
+tonumber
+tostring
+type
+unpack
+xpcall
+

+ +coroutine.create
+coroutine.resume
+coroutine.running
+coroutine.status
+coroutine.wrap
+coroutine.yield
+

+ +debug.debug
+debug.getfenv
+debug.gethook
+debug.getinfo
+debug.getlocal
+debug.getmetatable
+debug.getregistry
+debug.getupvalue
+debug.setfenv
+debug.sethook
+debug.setlocal
+debug.setmetatable
+debug.setupvalue
+debug.traceback
+ +

 +

 

+file:close
+file:flush
+file:lines
+file:read
+file:seek
+file:setvbuf
+file:write
+

+ +io.close
+io.flush
+io.input
+io.lines
+io.open
+io.output
+io.popen
+io.read
+io.stderr
+io.stdin
+io.stdout
+io.tmpfile
+io.type
+io.write
+

+ +math.abs
+math.acos
+math.asin
+math.atan
+math.atan2
+math.ceil
+math.cos
+math.cosh
+math.deg
+math.exp
+math.floor
+math.fmod
+math.frexp
+math.huge
+math.ldexp
+math.log
+math.log10
+math.max
+math.min
+math.modf
+math.pi
+math.pow
+math.rad
+math.random
+math.randomseed
+math.sin
+math.sinh
+math.sqrt
+math.tan
+math.tanh
+

+ +os.clock
+os.date
+os.difftime
+os.execute
+os.exit
+os.getenv
+os.remove
+os.rename
+os.setlocale
+os.time
+os.tmpname
+

+ +package.cpath
+package.loaded
+package.loaders
+package.loadlib
+package.path
+package.preload
+package.seeall
+

+ +string.byte
+string.char
+string.dump
+string.find
+string.format
+string.gmatch
+string.gsub
+string.len
+string.lower
+string.match
+string.rep
+string.reverse
+string.sub
+string.upper
+

+ +table.concat
+table.insert
+table.maxn
+table.remove
+table.sort
+ +

 +

C API

+lua_Alloc
+lua_CFunction
+lua_Debug
+lua_Hook
+lua_Integer
+lua_Number
+lua_Reader
+lua_State
+lua_Writer
+

+ +lua_atpanic
+lua_call
+lua_checkstack
+lua_close
+lua_concat
+lua_cpcall
+lua_createtable
+lua_dump
+lua_equal
+lua_error
+lua_gc
+lua_getallocf
+lua_getfenv
+lua_getfield
+lua_getglobal
+lua_gethook
+lua_gethookcount
+lua_gethookmask
+lua_getinfo
+lua_getlocal
+lua_getmetatable
+lua_getstack
+lua_gettable
+lua_gettop
+lua_getupvalue
+lua_insert
+lua_isboolean
+lua_iscfunction
+lua_isfunction
+lua_islightuserdata
+lua_isnil
+lua_isnone
+lua_isnoneornil
+lua_isnumber
+lua_isstring
+lua_istable
+lua_isthread
+lua_isuserdata
+lua_lessthan
+lua_load
+lua_newstate
+lua_newtable
+lua_newthread
+lua_newuserdata
+lua_next
+lua_objlen
+lua_pcall
+lua_pop
+lua_pushboolean
+lua_pushcclosure
+lua_pushcfunction
+lua_pushfstring
+lua_pushinteger
+lua_pushlightuserdata
+lua_pushliteral
+lua_pushlstring
+lua_pushnil
+lua_pushnumber
+lua_pushstring
+lua_pushthread
+lua_pushvalue
+lua_pushvfstring
+lua_rawequal
+lua_rawget
+lua_rawgeti
+lua_rawset
+lua_rawseti
+lua_register
+lua_remove
+lua_replace
+lua_resume
+lua_setallocf
+lua_setfenv
+lua_setfield
+lua_setglobal
+lua_sethook
+lua_setlocal
+lua_setmetatable
+lua_settable
+lua_settop
+lua_setupvalue
+lua_status
+lua_toboolean
+lua_tocfunction
+lua_tointeger
+lua_tolstring
+lua_tonumber
+lua_topointer
+lua_tostring
+lua_tothread
+lua_touserdata
+lua_type
+lua_typename
+lua_upvalueindex
+lua_xmove
+lua_yield
+ +

 +

auxiliary library

+luaL_Buffer
+luaL_Reg
+

+ +luaL_addchar
+luaL_addlstring
+luaL_addsize
+luaL_addstring
+luaL_addvalue
+luaL_argcheck
+luaL_argerror
+luaL_buffinit
+luaL_callmeta
+luaL_checkany
+luaL_checkint
+luaL_checkinteger
+luaL_checklong
+luaL_checklstring
+luaL_checknumber
+luaL_checkoption
+luaL_checkstack
+luaL_checkstring
+luaL_checktype
+luaL_checkudata
+luaL_dofile
+luaL_dostring
+luaL_error
+luaL_getmetafield
+luaL_getmetatable
+luaL_gsub
+luaL_loadbuffer
+luaL_loadfile
+luaL_loadstring
+luaL_newmetatable
+luaL_newstate
+luaL_openlibs
+luaL_optint
+luaL_optinteger
+luaL_optlong
+luaL_optlstring
+luaL_optnumber
+luaL_optstring
+luaL_prepbuffer
+luaL_pushresult
+luaL_ref
+luaL_register
+luaL_typename
+luaL_typerror
+luaL_unref
+luaL_where
+ +

+

+ +

+ +Last update: +Mon Feb 13 18:53:32 BRST 2012 + + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/cover.png b/src/3rd party/LuaJIT-1.1.8/doc/cover.png new file mode 100644 index 0000000000000000000000000000000000000000..2dbb198123f03a7250bfa57c8253739962d69afb GIT binary patch literal 3305 zcmVNc=P)V>IGcGYOVIUw=dB=aTYv^*htKxL4xjCf9X{I|EBQ!hu?+M>5oT>TE}0ye97P9R7S8qXycMFZ&6rBQl2xq6d5z1RT?1tMWggH(oGfxZ3MRwMW* zhWcm<0o+gGDNJLnwySJIYqTbnA(cT&JjHAh%b?&;aM%-PVunbF`4oU{acLCOU~~ed z=Xys9YZpo#i8bMPc#43D)u4sMGKqI^_da6LW&~0K*cO4+ z_PRNFEtj+pK65RYy#Eh+iK_)|A>ml%LRW(G?uWEPuP@)V__gB&q{E^1Drx0`;n)|1&{JZ#-e7eMcd1S~0(ChdB8 zS0!Ap-8R#X^0X5R7@pQ0wmH~jKhYj`l%C2tznfmz5?4vXD&s9-{r%L{8o|B1n{hn> zX-7F)1C|g{Fjw^QO3xSEM8WF{nF8))ijLB@AziK0j<-dAU&NHQAw-4j8oelO%2Dg_ z37hiyuBd>qbbcrr0xb~*rLW9q2cyBcq8kgCW9j_Jd}=!9R2g|I=9{KHXtr2}hFHKH zPZ!2Bg|$47mFu;Duqg$YQfQ4vD~-}9t!+atHYg~SbM=?ElxgB&vnLeLny@Jo1@}ra zw-%pO_5&GLRc)GAp8w;^w0pr+)}6{$xN2*=h1(z&s0B5@zOQ2Cj<++EgPm6D*KdLp^Jc$%i(A&wq1mn{*M;Pu$%2I-|s;8_q`68Jd zLJ$dITeas|8_h>+9GB??ksz(jj7@SsNq-j_f;Mf@l8W*L-v0vui)W9N64OhM7aV?n zo{!IxNC9-U@zPPgc8EYtsn)ggZ<}BOc#01{#gH6*gjm!cMXYMFiJ5! z$8SI7^a#mxl?1n2Bwr+veIkV`2fdd@*by0Naq>o!4A;Y!nrTV7gj#l-OAs* zvT_zQj8DKsyvuDrVn7=m8 z&;O0T{VN_DroW5Nu5jxvQZU%ZlLv@3)#xH@icfQd{R930nH<0P?=qQ<5s3ufc;l~s z^rLTdbhJn*9LK$Q@z$Gf{__VPoYQ~*AN<{S=xOJbXHXg;Sjdpd5Nq1FU!ZP(bkV*K z5BX<_uE(!VaN&B59T#f)0@ixmc3_}Kkful!<-+AYa=bk&rr9RA^GG2#cH|o2Jo3*;M^C0Z#I`l`S@(jjq^e|^t7&J*rAXei$y>%zrcxe zzKVokW{ylvDyoN%5F8rxOC(&6ljrfOA4aT&iHZA4RiB-iOg@n)*W;YNOgdZoU&C~Q zYvZ-d>YDjzn4Be*DQQDPBE@KZ$^kz7@cjMzsnv(*TI*A%M(*BC03b*t8J+ZR_jR(6 zttGy#T|b&jH^^6g-e(O?=xBjqSdb8D)Kd$tjjQa}6Izo*l=AOHBZzP@%TWj?-Z2yYmt`$ryp=SGWT>kg8zlLgEEs(4iVm;4Q>56I~!I5E_!W;Hjvwox?Uqoq) z@&EyI&Dg6UFbzN8)tb&2Y&=@c`Y|NW9`Pe8A!)AFN8A)Nk)Urp8ZM1e+_>zsWuw3Gwz#h*<|ZTYWyBV&rD^+OOrPXFnaE_T4H3gMI7NJvIPCeSU~lbZRURtjFJ3 zOtR_n9@p1NEV@-WX*<9pdwg@TE&lANPj7A1!>6YW%k<@shB-1^pOm#iGtfhChrf42 zsVsLR)XYafILOn7Dzbrs7oH##T<@vPK}ueH!cSN`F26lfqvKnrf9<;5xmTWYf?eG_ zeX!9}PBYlclLvflOw3@&T9Q?4=KSZAi+(6#NWSqr9j%R{qzT%*cARj9+M7Z={YZ`Z zkUIHTCXWs=UG`IipsSVd{5f`@zJAseNAl`14({FT2Xbx{9&lM)RVZ}_{lVes;w@a^N+fz49V zNXZM2^W9f`Rcp=JFX(8gt1f+0`B4G4?=d#PKzC_k7?Qz0y4x6=B$uz#sndjmeCtJC zJ5DgL%uYf!d*Z&jYQX0B2)f!R6lrVmT}CPC?c~T_GI?g_YxBM}hQWc|eD9k)^C*Fe z?D1?8AQoMD2D71Pn?G+{G@(R_)@FY(T|5yQo#5loxID%}wj5$qei{Hm5DK!lj~Ach z@X#`~XwB_uPF>*Z&(R#ISEvU#FA)Nz`TQED$+JgFvs?%)ll=n>_cNbnY=Y|(+?{11 zL&3o^iG=8GW2ldzK00F6PjxbRUOh&1<7lUfP!D<@?6{2FWT>x{XIvqi2CY#FPoWf2 zVo0P!tZu2v=D9u1zJZdTwyAHS9=M*uGC8uBNRUK|GgrvwmU;C8q`)+=EkZW7g=ru~ z6RQpkqkiq>Ru+?vAkXbSVK7dSLn?*gy_ zjjN{!SUh^+iEFRr=;K9At8qQ=c=~M}HT#)sT^Fg(`nT>?C{y%_^R>wBb&6$ nh%8`n`v3p{2XskIMF-Xh6%#iZwFs;u00000NkvXXu0mjfd@Wp4 literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/logo.gif b/src/3rd party/LuaJIT-1.1.8/doc/logo.gif new file mode 100644 index 0000000000000000000000000000000000000000..2f5e4ac2e742fbb7675e739879211553758aea9c GIT binary patch literal 4232 zcmeH``9G8i;K!fm@ywWE@XWZzZ5SF?A>^uN#>^O6HI%DVL*tw8h1>$H%uPC0$QQ=txe!o}PX)Ev+jn>*nFZ-TC=<^76WcLZL(=DJm)| zEiIKwrInSHXU?3duCC_u@5try#>U2`rlw1mF15F}U%!66tE;QKyIUmcDJ<+QF77*W zFJd#&)VAl)kJ6K zi<>tmZ{3>g>+2gB7#JQNe(>OdLh;A=`1q42PbMZNCMPF*dXxhLZw3aYhlZwyhu@Bj z%#4n{d-Q1b$&i4QMce4L#8^!oMdw{PDnm4D66&3*dxX=-YIX6DQL_g`jbzkd4k zZDCoLf=%jL&vIeE zO=XcZ9fxt`f}-DQ^%H*PHMUs(JN%UWkI|Y8h9#6~I$Cw@{RqzO4&P-x;jHCPJ6Ks2 zoU%foi)nXd_sdkiuJa@@5J4RrreKfWSnz5>eMa5yTP=)16uu)TIdx~Fhho))6jZl) z($*i>QrIX4u}u3>m{WSn_ehkUGQ& zs})aUlTH1Cj1g3ZE3=MPXsSniEwJ{e6C3N#HjD=B4`8rWIsz!a7ecYpec?WuH+y?Wsm18^$cS4WmHhH3_=r zh*ILlm*X1dB^E5($KVl&zT524%l}vpHg%;Y+LezV_&TAJCmH`idhuj-n$4FZ)UE|jXLayXa-&O3Q z?Iyo!x*$5hD_HfFnDfGYj-RD|eIb7I?%>Y_kf%}Nbd`BXb4l1(Pc+}zoUR|9%_!7f zum2T;wbx&pohtI+&@~wm3nH9xLbOYkg*`phY~TK5iC#3tZNXo9s`cahx+8j2)rh5C zQgZh6D7Ekgib|hpdhxYf{r!PTJc z!vsYG@{hA}l5kL)g)0N_)(nC<*L0qdUi*3fD5<0sn58>zklX@6Tyv3*X^}m=Cqc40 zQ6GfjG@kd1mFIm`qaubWunm_?P>WUZ`9|f_z%gGHi{n|uu(N8!L=aw5(qAcDj$-QK zu;D#j6e42OXTQD>)i zlvM$LX`$n9EEjxM$_QDF&a z7cme_rat}aXmiN&7`6Q98}dh4Z@8L_uAb#nK&GQiZOOUnA9kAEVb-csuN1AWL=sXt z{z9GCN%%l0N9QvJM;tl1nf?rrhT{*sE%4WqR?{0~aIrfCcCPxf4eh_*jjQ=`$p53Y z@_|Rsx2i}|3dNFetMQQ5y8agTK-E0D&7;@3-LUxfvZ7 z7~!p@&mFe^oca2^F|CBt+4Ly?^ViUVSAhAH>JH1GN{^TQb3QnM*x0ZiZgDyNI@_c3 z@{}(WH4*e3T~}n_^0}da4ElIxAf9B!IaL7z9X0Icvj@cIkE*~W--17&WN`Ea5)Gn> z#gpfRb#44;jVTOS{FuaZgd(-ZD848=fQzgST2MxR>wSLc1P=2HDvByz$B$IsNCC6L zCM?nK*OHj6JA9gz4|b<~2%RqelN^1Y)jIqnRs!mDKV^BQTfo@hOtz7*Ug}Ee^cbsj zNNlumRgAmt`1$b5MO;&X#5-EP<}AaY;52ihIpem&MTea$?3!DrwbYa?V`NjEfWF3z zUq5JY8Ch;L{kx&J<1K&Fe_Vn;8gk{%c;n?nA2(%(f%DCRHko3uT~VI7RE^JWEqaCq z)i|%nfj(*4|V*XhY3W%M# z*yn6SN4eUOHFxAD7B&9E_PO`G5bqgs^@J{9bk>&;PlUAiqo`j3rjQDgD!}mqLUtb` zCB}ZD@m@s#pf7bV4jreOC*JVfHZ|hyHkX!rauVdd_I9FL45d{gWH!DNYu;i(|8wVx z!)eLY6YXxZ2{Coae0xuTnxo1ACb5wtED?VJAz&@114$Ao6uG9YSy*!K;m5_mj=0^j zw%?b%AOs}ql@$TGC-!^^*_#RT5+y_kTzQG9?LPPZNAtt6cJ%d2$q(I)ws21*?xF%p zN+NeGnWRQ<5w70Rc(bl|S0Xr&5@WrmdurS|IgPB|EyuZO#=tf!35)G!HJ`E1jh^lH zTBu~rL#DhQO*XAWtBt}JHH$lc>3%r0yD|maW_(W=B_J+y164F>O4dO|@&@N3Z3p=B zmVl{|^Z&#atHY|9n&la)SBo}=3AFIF=_~LDJk6MTlA73CXtX+4bnn+c!}N}IPa5pp zwyqbqIkN|I3j_3vD6$zlu{Ps(N-J|*qzEt<$5Soh;s^AuKv_ z-Tz+O1_~6*9CJh4r}`}mbUtjbf#fX58RIIkP6&@*y9kI|5fK*_eZ%jv3U$5*x<>D_ za2M(TV8?XY+9xy>0En#Te<6X4$0&dbyd(go$~eq4u(u)EA2msyF<5ssLZ zDP|I}=~Bi_q)whWv=Ri~L1TYaNrR;5cMB@s78HF1{w&r(6GJ;_2@bD?#1p&P4n_?n0#9Vx~$qjMX=Lk?*!@aKo8m&$iPO7S{g3sFUwr`*<53(68xx7?z`2xf# zGSicy_zI(PJ|%qc2VxT+6bOE--a{k&aq7$<<= zFt)C<@|TPs`+eycPGoGL1Wn9|Ed&a2JyAmjnkm3DQBECX&`bt~odH9cUPq4M{#$-q?G3!)qO-it*&YHw+j-O* zYy78V*`4Q=kQ@^Yz*b6Tal4(Me7BGeS^;phWAW8+L^5A(=D)t?k!rLIwVAKtq=f7h z&^n&VX1-T$ScvN~639QLZ^d@niMaS{C-Q)8oHHBhwD*r~-1Ze#Q)GFOFptW32a-uF z;M@ux%i%a25NwIgXt*=GHX$3~aZfwovGL!}sf?j9TsVo^cn(%&a<--0mIXYqGe>c PWz_J}_#7St0k8iB@FZjZ literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.1 b/src/3rd party/LuaJIT-1.1.8/doc/lua.1 new file mode 100644 index 00000000000..24809cc6c10 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.1 @@ -0,0 +1,163 @@ +.\" $Id: lua.man,v 1.11 2006/01/06 16:03:34 lhf Exp $ +.TH LUA 1 "$Date: 2006/01/06 16:03:34 $" +.SH NAME +lua \- Lua interpreter +.SH SYNOPSIS +.B lua +[ +.I options +] +[ +.I script +[ +.I args +] +] +.SH DESCRIPTION +.B lua +is the stand-alone Lua interpreter. +It loads and executes Lua programs, +either in textual source form or +in precompiled binary form. +(Precompiled binaries are output by +.BR luac , +the Lua compiler.) +.B lua +can be used as a batch interpreter and also interactively. +.LP +The given +.I options +(see below) +are executed and then +the Lua program in file +.I script +is loaded and executed. +The given +.I args +are available to +.I script +as strings in a global table named +.BR arg . +If these arguments contain spaces or other characters special to the shell, +then they should be quoted +(but note that the quotes will be removed by the shell). +The arguments in +.B arg +start at 0, +which contains the string +.RI ' script '. +The index of the last argument is stored in +.BR arg.n . +The arguments given in the command line before +.IR script , +including the name of the interpreter, +are available in negative indices in +.BR arg . +.LP +At the very start, +before even handling the command line, +.B lua +executes the contents of the environment variable +.BR LUA_INIT , +if it is defined. +If the value of +.B LUA_INIT +is of the form +.RI '@ filename ', +then +.I filename +is executed. +Otherwise, the string is assumed to be a Lua statement and is executed. +.LP +Options start with +.B '\-' +and are described below. +You can use +.B "'\--'" +to signal the end of options. +.LP +If no arguments are given, +then +.B "\-v \-i" +is assumed when the standard input is a terminal; +otherwise, +.B "\-" +is assumed. +.LP +In interactive mode, +.B lua +prompts the user, +reads lines from the standard input, +and executes them as they are read. +If a line does not contain a complete statement, +then a secondary prompt is displayed and +lines are read until a complete statement is formed or +a syntax error is found. +So, one way to interrupt the reading of an incomplete statement is +to force a syntax error: +adding a +.B ';' +in the middle of a statement is a sure way of forcing a syntax error +(except inside multiline strings and comments; these must be closed explicitly). +If a line starts with +.BR '=' , +then +.B lua +displays the values of all the expressions in the remainder of the +line. The expressions must be separated by commas. +The primary prompt is the value of the global variable +.BR _PROMPT , +if this value is a string; +otherwise, the default prompt is used. +Similarly, the secondary prompt is the value of the global variable +.BR _PROMPT2 . +So, +to change the prompts, +set the corresponding variable to a string of your choice. +You can do that after calling the interpreter +or on the command line +(but in this case you have to be careful with quotes +if the prompt string contains a space; otherwise you may confuse the shell.) +The default prompts are "> " and ">> ". +.SH OPTIONS +.TP +.B \- +load and execute the standard input as a file, +that is, +not interactively, +even when the standard input is a terminal. +.TP +.BI \-e " stat" +execute statement +.IR stat . +You need to quote +.I stat +if it contains spaces, quotes, +or other characters special to the shell. +.TP +.B \-i +enter interactive mode after +.I script +is executed. +.TP +.BI \-l " name" +call +.BI require(' name ') +before executing +.IR script . +Typically used to load libraries. +.TP +.B \-v +show version information. +.SH "SEE ALSO" +.BR luac (1) +.br +http://www.lua.org/ +.SH DIAGNOSTICS +Error messages should be self explanatory. +.SH AUTHORS +R. Ierusalimschy, +L. H. de Figueiredo, +and +W. Celes +.\" EOF diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.css b/src/3rd party/LuaJIT-1.1.8/doc/lua.css new file mode 100644 index 00000000000..7fafbb1bb63 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.css @@ -0,0 +1,83 @@ +body { + color: #000000 ; + background-color: #FFFFFF ; + font-family: Helvetica, Arial, sans-serif ; + text-align: justify ; + margin-right: 30px ; + margin-left: 30px ; +} + +h1, h2, h3, h4 { + font-family: Verdana, Geneva, sans-serif ; + font-weight: normal ; + font-style: italic ; +} + +h2 { + padding-top: 0.4em ; + padding-bottom: 0.4em ; + padding-left: 30px ; + padding-right: 30px ; + margin-left: -30px ; + background-color: #E0E0FF ; +} + +h3 { + padding-left: 0.5em ; + border-left: solid #E0E0FF 1em ; +} + +table h3 { + padding-left: 0px ; + border-left: none ; +} + +a:link { + color: #000080 ; + background-color: inherit ; + text-decoration: none ; +} + +a:visited { + background-color: inherit ; + text-decoration: none ; +} + +a:link:hover, a:visited:hover { + color: #000080 ; + background-color: #E0E0FF ; +} + +a:link:active, a:visited:active { + color: #FF0000 ; +} + +hr { + border: 0 ; + height: 1px ; + color: #a0a0a0 ; + background-color: #a0a0a0 ; +} + +:target { + background-color: #F8F8F8 ; + padding: 8px ; + border: solid #a0a0a0 2px ; +} + +.footer { + color: gray ; + font-size: small ; +} + +input[type=text] { + border: solid #a0a0a0 2px ; + border-radius: 2em ; + -moz-border-radius: 2em ; + background-image: url('images/search.png') ; + background-repeat: no-repeat; + background-position: 4px center ; + padding-left: 20px ; + height: 2em ; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/lua.html b/src/3rd party/LuaJIT-1.1.8/doc/lua.html new file mode 100644 index 00000000000..1d435ab029c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/lua.html @@ -0,0 +1,172 @@ + + + +LUA man page + + + + + +

NAME

+lua - Lua interpreter +

SYNOPSIS

+lua +[ +options +] +[ +script +[ +args +] +] +

DESCRIPTION

+lua +is the stand-alone Lua interpreter. +It loads and executes Lua programs, +either in textual source form or +in precompiled binary form. +(Precompiled binaries are output by +luac, +the Lua compiler.) +lua +can be used as a batch interpreter and also interactively. +

+The given +options +(see below) +are executed and then +the Lua program in file +script +is loaded and executed. +The given +args +are available to +script +as strings in a global table named +arg. +If these arguments contain spaces or other characters special to the shell, +then they should be quoted +(but note that the quotes will be removed by the shell). +The arguments in +arg +start at 0, +which contains the string +'script'. +The index of the last argument is stored in +arg.n. +The arguments given in the command line before +script, +including the name of the interpreter, +are available in negative indices in +arg. +

+At the very start, +before even handling the command line, +lua +executes the contents of the environment variable +LUA_INIT, +if it is defined. +If the value of +LUA_INIT +is of the form +'@filename', +then +filename +is executed. +Otherwise, the string is assumed to be a Lua statement and is executed. +

+Options start with +'-' +and are described below. +You can use +'--' +to signal the end of options. +

+If no arguments are given, +then +"-v -i" +is assumed when the standard input is a terminal; +otherwise, +"-" +is assumed. +

+In interactive mode, +lua +prompts the user, +reads lines from the standard input, +and executes them as they are read. +If a line does not contain a complete statement, +then a secondary prompt is displayed and +lines are read until a complete statement is formed or +a syntax error is found. +So, one way to interrupt the reading of an incomplete statement is +to force a syntax error: +adding a +';' +in the middle of a statement is a sure way of forcing a syntax error +(except inside multiline strings and comments; these must be closed explicitly). +If a line starts with +'=', +then +lua +displays the values of all the expressions in the remainder of the +line. The expressions must be separated by commas. +The primary prompt is the value of the global variable +_PROMPT, +if this value is a string; +otherwise, the default prompt is used. +Similarly, the secondary prompt is the value of the global variable +_PROMPT2. +So, +to change the prompts, +set the corresponding variable to a string of your choice. +You can do that after calling the interpreter +or on the command line +(but in this case you have to be careful with quotes +if the prompt string contains a space; otherwise you may confuse the shell.) +The default prompts are "> " and ">> ". +

OPTIONS

+

+- +load and execute the standard input as a file, +that is, +not interactively, +even when the standard input is a terminal. +

+-e stat +execute statement +stat. +You need to quote +stat +if it contains spaces, quotes, +or other characters special to the shell. +

+-i +enter interactive mode after +script +is executed. +

+-l name +call +require('name') +before executing +script. +Typically used to load libraries. +

+-v +show version information. +

SEE ALSO

+luac(1) +
+http://www.lua.org/ +

DIAGNOSTICS

+Error messages should be self explanatory. +

AUTHORS

+R. Ierusalimschy, +L. H. de Figueiredo, +and +W. Celes + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/luac.1 b/src/3rd party/LuaJIT-1.1.8/doc/luac.1 new file mode 100644 index 00000000000..d8146782df7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/luac.1 @@ -0,0 +1,136 @@ +.\" $Id: luac.man,v 1.28 2006/01/06 16:03:34 lhf Exp $ +.TH LUAC 1 "$Date: 2006/01/06 16:03:34 $" +.SH NAME +luac \- Lua compiler +.SH SYNOPSIS +.B luac +[ +.I options +] [ +.I filenames +] +.SH DESCRIPTION +.B luac +is the Lua compiler. +It translates programs written in the Lua programming language +into binary files that can be later loaded and executed. +.LP +The main advantages of precompiling chunks are: +faster loading, +protecting source code from accidental user changes, +and +off-line syntax checking. +.LP +Pre-compiling does not imply faster execution +because in Lua chunks are always compiled into bytecodes before being executed. +.B luac +simply allows those bytecodes to be saved in a file for later execution. +.LP +Pre-compiled chunks are not necessarily smaller than the corresponding source. +The main goal in pre-compiling is faster loading. +.LP +The binary files created by +.B luac +are portable only among architectures with the same word size and byte order. +.LP +.B luac +produces a single output file containing the bytecodes +for all source files given. +By default, +the output file is named +.BR luac.out , +but you can change this with the +.B \-o +option. +.LP +In the command line, +you can mix +text files containing Lua source and +binary files containing precompiled chunks. +This is useful to combine several precompiled chunks, +even from different (but compatible) platforms, +into a single precompiled chunk. +.LP +You can use +.B "'\-'" +to indicate the standard input as a source file +and +.B "'\--'" +to signal the end of options +(that is, +all remaining arguments will be treated as files even if they start with +.BR "'\-'" ). +.LP +The internal format of the binary files produced by +.B luac +is likely to change when a new version of Lua is released. +So, +save the source files of all Lua programs that you precompile. +.LP +.SH OPTIONS +Options must be separate. +.TP +.B \-l +produce a listing of the compiled bytecode for Lua's virtual machine. +Listing bytecodes is useful to learn about Lua's virtual machine. +If no files are given, then +.B luac +loads +.B luac.out +and lists its contents. +.TP +.BI \-o " file" +output to +.IR file , +instead of the default +.BR luac.out . +(You can use +.B "'\-'" +for standard output, +but not on platforms that open standard output in text mode.) +The output file may be a source file because +all files are loaded before the output file is written. +Be careful not to overwrite precious files. +.TP +.B \-p +load files but do not generate any output file. +Used mainly for syntax checking and for testing precompiled chunks: +corrupted files will probably generate errors when loaded. +Lua always performs a thorough integrity test on precompiled chunks. +Bytecode that passes this test is completely safe, +in the sense that it will not break the interpreter. +However, +there is no guarantee that such code does anything sensible. +(None can be given, because the halting problem is unsolvable.) +If no files are given, then +.B luac +loads +.B luac.out +and tests its contents. +No messages are displayed if the file passes the integrity test. +.TP +.B \-s +strip debug information before writing the output file. +This saves some space in very large chunks, +but if errors occur when running a stripped chunk, +then the error messages may not contain the full information they usually do. +For instance, +line numbers and names of local variables are lost. +.TP +.B \-v +show version information. +.SH FILES +.TP 15 +.B luac.out +default output file +.SH "SEE ALSO" +.BR lua (1) +.br +http://www.lua.org/ +.SH DIAGNOSTICS +Error messages should be self explanatory. +.SH AUTHORS +L. H. de Figueiredo, +R. Ierusalimschy and +W. Celes +.\" EOF diff --git a/src/3rd party/LuaJIT-1.1.8/doc/luac.html b/src/3rd party/LuaJIT-1.1.8/doc/luac.html new file mode 100644 index 00000000000..179ffe82886 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/luac.html @@ -0,0 +1,145 @@ + + + +LUAC man page + + + + + +

NAME

+luac - Lua compiler +

SYNOPSIS

+luac +[ +options +] [ +filenames +] +

DESCRIPTION

+luac +is the Lua compiler. +It translates programs written in the Lua programming language +into binary files that can be later loaded and executed. +

+The main advantages of precompiling chunks are: +faster loading, +protecting source code from accidental user changes, +and +off-line syntax checking. +

+Precompiling does not imply faster execution +because in Lua chunks are always compiled into bytecodes before being executed. +luac +simply allows those bytecodes to be saved in a file for later execution. +

+Precompiled chunks are not necessarily smaller than the corresponding source. +The main goal in precompiling is faster loading. +

+The binary files created by +luac +are portable only among architectures with the same word size and byte order. +

+luac +produces a single output file containing the bytecodes +for all source files given. +By default, +the output file is named +luac.out, +but you can change this with the +-o +option. +

+In the command line, +you can mix +text files containing Lua source and +binary files containing precompiled chunks. +This is useful because several precompiled chunks, +even from different (but compatible) platforms, +can be combined into a single precompiled chunk. +

+You can use +'-' +to indicate the standard input as a source file +and +'--' +to signal the end of options +(that is, +all remaining arguments will be treated as files even if they start with +'-'). +

+The internal format of the binary files produced by +luac +is likely to change when a new version of Lua is released. +So, +save the source files of all Lua programs that you precompile. +

+

OPTIONS

+Options must be separate. +

+-l +produce a listing of the compiled bytecode for Lua's virtual machine. +Listing bytecodes is useful to learn about Lua's virtual machine. +If no files are given, then +luac +loads +luac.out +and lists its contents. +

+-o file +output to +file, +instead of the default +luac.out. +(You can use +'-' +for standard output, +but not on platforms that open standard output in text mode.) +The output file may be a source file because +all files are loaded before the output file is written. +Be careful not to overwrite precious files. +

+-p +load files but do not generate any output file. +Used mainly for syntax checking and for testing precompiled chunks: +corrupted files will probably generate errors when loaded. +Lua always performs a thorough integrity test on precompiled chunks. +Bytecode that passes this test is completely safe, +in the sense that it will not break the interpreter. +However, +there is no guarantee that such code does anything sensible. +(None can be given, because the halting problem is unsolvable.) +If no files are given, then +luac +loads +luac.out +and tests its contents. +No messages are displayed if the file passes the integrity test. +

+-s +strip debug information before writing the output file. +This saves some space in very large chunks, +but if errors occur when running a stripped chunk, +then the error messages may not contain the full information they usually do. +For instance, +line numbers and names of local variables are lost. +

+-v +show version information. +

FILES

+

+luac.out +default output file +

SEE ALSO

+lua(1) +
+http://www.lua.org/ +

DIAGNOSTICS

+Error messages should be self explanatory. +

AUTHORS

+L. H. de Figueiredo, +R. Ierusalimschy and +W. Celes + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/manual.css b/src/3rd party/LuaJIT-1.1.8/doc/manual.css new file mode 100644 index 00000000000..b49b362937a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/manual.css @@ -0,0 +1,24 @@ +h3 code { + font-family: inherit ; + font-size: inherit ; +} + +pre, code { + font-size: 12pt ; +} + +span.apii { + float: right ; + font-family: inherit ; + font-style: normal ; + font-size: small ; + color: gray ; +} + +p+h1, ul+h1 { + padding-top: 0.4em ; + padding-bottom: 0.4em ; + padding-left: 30px ; + margin-left: -30px ; + background-color: #E0E0FF ; +} diff --git a/src/3rd party/LuaJIT-1.1.8/doc/manual.html b/src/3rd party/LuaJIT-1.1.8/doc/manual.html new file mode 100644 index 00000000000..4e41683d028 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/manual.html @@ -0,0 +1,8804 @@ + + + + +Lua 5.1 Reference Manual + + + + + + + +
+

+ +Lua 5.1 Reference Manual +

+ +by Roberto Ierusalimschy, Luiz Henrique de Figueiredo, Waldemar Celes +

+ +Copyright © 2006–2012 Lua.org, PUC-Rio. +Freely available under the terms of the +Lua license. + +

+

+ +contents +· +index +· +other versions + + +

+ + + + + + +

1 - Introduction

+ +

+Lua is an extension programming language designed to support +general procedural programming with data description +facilities. +It also offers good support for object-oriented programming, +functional programming, and data-driven programming. +Lua is intended to be used as a powerful, light-weight +scripting language for any program that needs one. +Lua is implemented as a library, written in clean C +(that is, in the common subset of ANSI C and C++). + + +

+Being an extension language, Lua has no notion of a "main" program: +it only works embedded in a host client, +called the embedding program or simply the host. +This host program can invoke functions to execute a piece of Lua code, +can write and read Lua variables, +and can register C functions to be called by Lua code. +Through the use of C functions, Lua can be augmented to cope with +a wide range of different domains, +thus creating customized programming languages sharing a syntactical framework. +The Lua distribution includes a sample host program called lua, +which uses the Lua library to offer a complete, stand-alone Lua interpreter. + + +

+Lua is free software, +and is provided as usual with no guarantees, +as stated in its license. +The implementation described in this manual is available +at Lua's official web site, www.lua.org. + + +

+Like any other reference manual, +this document is dry in places. +For a discussion of the decisions behind the design of Lua, +see the technical papers available at Lua's web site. +For a detailed introduction to programming in Lua, +see Roberto's book, Programming in Lua (Second Edition). + + + +

2 - The Language

+ +

+This section describes the lexis, the syntax, and the semantics of Lua. +In other words, +this section describes +which tokens are valid, +how they can be combined, +and what their combinations mean. + + +

+The language constructs will be explained using the usual extended BNF notation, +in which +{a} means 0 or more a's, and +[a] means an optional a. +Non-terminals are shown like non-terminal, +keywords are shown like kword, +and other terminal symbols are shown like `=´. +The complete syntax of Lua can be found in §8 +at the end of this manual. + + + +

2.1 - Lexical Conventions

+ +

+Names +(also called identifiers) +in Lua can be any string of letters, +digits, and underscores, +not beginning with a digit. +This coincides with the definition of names in most languages. +(The definition of letter depends on the current locale: +any character considered alphabetic by the current locale +can be used in an identifier.) +Identifiers are used to name variables and table fields. + + +

+The following keywords are reserved +and cannot be used as names: + + +

+     and       break     do        else      elseif
+     end       false     for       function  if
+     in        local     nil       not       or
+     repeat    return    then      true      until     while
+
+ +

+Lua is a case-sensitive language: +and is a reserved word, but And and AND +are two different, valid names. +As a convention, names starting with an underscore followed by +uppercase letters (such as _VERSION) +are reserved for internal global variables used by Lua. + + +

+The following strings denote other tokens: + +

+     +     -     *     /     %     ^     #
+     ==    ~=    <=    >=    <     >     =
+     (     )     {     }     [     ]
+     ;     :     ,     .     ..    ...
+
+ +

+Literal strings +can be delimited by matching single or double quotes, +and can contain the following C-like escape sequences: +'\a' (bell), +'\b' (backspace), +'\f' (form feed), +'\n' (newline), +'\r' (carriage return), +'\t' (horizontal tab), +'\v' (vertical tab), +'\\' (backslash), +'\"' (quotation mark [double quote]), +and '\'' (apostrophe [single quote]). +Moreover, a backslash followed by a real newline +results in a newline in the string. +A character in a string can also be specified by its numerical value +using the escape sequence \ddd, +where ddd is a sequence of up to three decimal digits. +(Note that if a numerical escape is to be followed by a digit, +it must be expressed using exactly three digits.) +Strings in Lua can contain any 8-bit value, including embedded zeros, +which can be specified as '\0'. + + +

+Literal strings can also be defined using a long format +enclosed by long brackets. +We define an opening long bracket of level n as an opening +square bracket followed by n equal signs followed by another +opening square bracket. +So, an opening long bracket of level 0 is written as [[, +an opening long bracket of level 1 is written as [=[, +and so on. +A closing long bracket is defined similarly; +for instance, a closing long bracket of level 4 is written as ]====]. +A long string starts with an opening long bracket of any level and +ends at the first closing long bracket of the same level. +Literals in this bracketed form can run for several lines, +do not interpret any escape sequences, +and ignore long brackets of any other level. +They can contain anything except a closing bracket of the proper level. + + +

+For convenience, +when the opening long bracket is immediately followed by a newline, +the newline is not included in the string. +As an example, in a system using ASCII +(in which 'a' is coded as 97, +newline is coded as 10, and '1' is coded as 49), +the five literal strings below denote the same string: + +

+     a = 'alo\n123"'
+     a = "alo\n123\""
+     a = '\97lo\10\04923"'
+     a = [[alo
+     123"]]
+     a = [==[
+     alo
+     123"]==]
+
+ +

+A numerical constant can be written with an optional decimal part +and an optional decimal exponent. +Lua also accepts integer hexadecimal constants, +by prefixing them with 0x. +Examples of valid numerical constants are + +

+     3   3.0   3.1416   314.16e-2   0.31416E1   0xff   0x56
+
+ +

+A comment starts with a double hyphen (--) +anywhere outside a string. +If the text immediately after -- is not an opening long bracket, +the comment is a short comment, +which runs until the end of the line. +Otherwise, it is a long comment, +which runs until the corresponding closing long bracket. +Long comments are frequently used to disable code temporarily. + + + + + +

2.2 - Values and Types

+ +

+Lua is a dynamically typed language. +This means that +variables do not have types; only values do. +There are no type definitions in the language. +All values carry their own type. + + +

+All values in Lua are first-class values. +This means that all values can be stored in variables, +passed as arguments to other functions, and returned as results. + + +

+There are eight basic types in Lua: +nil, boolean, number, +string, function, userdata, +thread, and table. +Nil is the type of the value nil, +whose main property is to be different from any other value; +it usually represents the absence of a useful value. +Boolean is the type of the values false and true. +Both nil and false make a condition false; +any other value makes it true. +Number represents real (double-precision floating-point) numbers. +(It is easy to build Lua interpreters that use other +internal representations for numbers, +such as single-precision float or long integers; +see file luaconf.h.) +String represents arrays of characters. + +Lua is 8-bit clean: +strings can contain any 8-bit character, +including embedded zeros ('\0') (see §2.1). + + +

+Lua can call (and manipulate) functions written in Lua and +functions written in C +(see §2.5.8). + + +

+The type userdata is provided to allow arbitrary C data to +be stored in Lua variables. +This type corresponds to a block of raw memory +and has no pre-defined operations in Lua, +except assignment and identity test. +However, by using metatables, +the programmer can define operations for userdata values +(see §2.8). +Userdata values cannot be created or modified in Lua, +only through the C API. +This guarantees the integrity of data owned by the host program. + + +

+The type thread represents independent threads of execution +and it is used to implement coroutines (see §2.11). +Do not confuse Lua threads with operating-system threads. +Lua supports coroutines on all systems, +even those that do not support threads. + + +

+The type table implements associative arrays, +that is, arrays that can be indexed not only with numbers, +but with any value (except nil). +Tables can be heterogeneous; +that is, they can contain values of all types (except nil). +Tables are the sole data structuring mechanism in Lua; +they can be used to represent ordinary arrays, +symbol tables, sets, records, graphs, trees, etc. +To represent records, Lua uses the field name as an index. +The language supports this representation by +providing a.name as syntactic sugar for a["name"]. +There are several convenient ways to create tables in Lua +(see §2.5.7). + + +

+Like indices, +the value of a table field can be of any type (except nil). +In particular, +because functions are first-class values, +table fields can contain functions. +Thus tables can also carry methods (see §2.5.9). + + +

+Tables, functions, threads, and (full) userdata values are objects: +variables do not actually contain these values, +only references to them. +Assignment, parameter passing, and function returns +always manipulate references to such values; +these operations do not imply any kind of copy. + + +

+The library function type returns a string describing the type +of a given value. + + + +

2.2.1 - Coercion

+ +

+Lua provides automatic conversion between +string and number values at run time. +Any arithmetic operation applied to a string tries to convert +this string to a number, following the usual conversion rules. +Conversely, whenever a number is used where a string is expected, +the number is converted to a string, in a reasonable format. +For complete control over how numbers are converted to strings, +use the format function from the string library +(see string.format). + + + + + + + +

2.3 - Variables

+ +

+Variables are places that store values. + +There are three kinds of variables in Lua: +global variables, local variables, and table fields. + + +

+A single name can denote a global variable or a local variable +(or a function's formal parameter, +which is a particular kind of local variable): + +

+	var ::= Name
+

+Name denotes identifiers, as defined in §2.1. + + +

+Any variable is assumed to be global unless explicitly declared +as a local (see §2.4.7). +Local variables are lexically scoped: +local variables can be freely accessed by functions +defined inside their scope (see §2.6). + + +

+Before the first assignment to a variable, its value is nil. + + +

+Square brackets are used to index a table: + +

+	var ::= prefixexp `[´ exp `]´
+

+The meaning of accesses to global variables +and table fields can be changed via metatables. +An access to an indexed variable t[i] is equivalent to +a call gettable_event(t,i). +(See §2.8 for a complete description of the +gettable_event function. +This function is not defined or callable in Lua. +We use it here only for explanatory purposes.) + + +

+The syntax var.Name is just syntactic sugar for +var["Name"]: + +

+	var ::= prefixexp `.´ Name
+
+ +

+All global variables live as fields in ordinary Lua tables, +called environment tables or simply +environments (see §2.9). +Each function has its own reference to an environment, +so that all global variables in this function +will refer to this environment table. +When a function is created, +it inherits the environment from the function that created it. +To get the environment table of a Lua function, +you call getfenv. +To replace it, +you call setfenv. +(You can only manipulate the environment of C functions +through the debug library; (see §5.9).) + + +

+An access to a global variable x +is equivalent to _env.x, +which in turn is equivalent to + +

+     gettable_event(_env, "x")
+

+where _env is the environment of the running function. +(See §2.8 for a complete description of the +gettable_event function. +This function is not defined or callable in Lua. +Similarly, the _env variable is not defined in Lua. +We use them here only for explanatory purposes.) + + + + + +

2.4 - Statements

+ +

+Lua supports an almost conventional set of statements, +similar to those in Pascal or C. +This set includes +assignments, control structures, function calls, +and variable declarations. + + + +

2.4.1 - Chunks

+ +

+The unit of execution of Lua is called a chunk. +A chunk is simply a sequence of statements, +which are executed sequentially. +Each statement can be optionally followed by a semicolon: + +

+	chunk ::= {stat [`;´]}
+

+There are no empty statements and thus ';;' is not legal. + + +

+Lua handles a chunk as the body of an anonymous function +with a variable number of arguments +(see §2.5.9). +As such, chunks can define local variables, +receive arguments, and return values. + + +

+A chunk can be stored in a file or in a string inside the host program. +To execute a chunk, +Lua first pre-compiles the chunk into instructions for a virtual machine, +and then it executes the compiled code +with an interpreter for the virtual machine. + + +

+Chunks can also be pre-compiled into binary form; +see program luac for details. +Programs in source and compiled forms are interchangeable; +Lua automatically detects the file type and acts accordingly. + + + + + + +

2.4.2 - Blocks

+A block is a list of statements; +syntactically, a block is the same as a chunk: + +

+	block ::= chunk
+
+ +

+A block can be explicitly delimited to produce a single statement: + +

+	stat ::= do block end
+

+Explicit blocks are useful +to control the scope of variable declarations. +Explicit blocks are also sometimes used to +add a return or break statement in the middle +of another block (see §2.4.4). + + + + + +

2.4.3 - Assignment

+ +

+Lua allows multiple assignments. +Therefore, the syntax for assignment +defines a list of variables on the left side +and a list of expressions on the right side. +The elements in both lists are separated by commas: + +

+	stat ::= varlist `=´ explist
+	varlist ::= var {`,´ var}
+	explist ::= exp {`,´ exp}
+

+Expressions are discussed in §2.5. + + +

+Before the assignment, +the list of values is adjusted to the length of +the list of variables. +If there are more values than needed, +the excess values are thrown away. +If there are fewer values than needed, +the list is extended with as many nil's as needed. +If the list of expressions ends with a function call, +then all values returned by that call enter the list of values, +before the adjustment +(except when the call is enclosed in parentheses; see §2.5). + + +

+The assignment statement first evaluates all its expressions +and only then are the assignments performed. +Thus the code + +

+     i = 3
+     i, a[i] = i+1, 20
+

+sets a[3] to 20, without affecting a[4] +because the i in a[i] is evaluated (to 3) +before it is assigned 4. +Similarly, the line + +

+     x, y = y, x
+

+exchanges the values of x and y, +and + +

+     x, y, z = y, z, x
+

+cyclically permutes the values of x, y, and z. + + +

+The meaning of assignments to global variables +and table fields can be changed via metatables. +An assignment to an indexed variable t[i] = val is equivalent to +settable_event(t,i,val). +(See §2.8 for a complete description of the +settable_event function. +This function is not defined or callable in Lua. +We use it here only for explanatory purposes.) + + +

+An assignment to a global variable x = val +is equivalent to the assignment +_env.x = val, +which in turn is equivalent to + +

+     settable_event(_env, "x", val)
+

+where _env is the environment of the running function. +(The _env variable is not defined in Lua. +We use it here only for explanatory purposes.) + + + + + +

2.4.4 - Control Structures

+The control structures +if, while, and repeat have the usual meaning and +familiar syntax: + + + + +

+	stat ::= while exp do block end
+	stat ::= repeat block until exp
+	stat ::= if exp then block {elseif exp then block} [else block] end
+

+Lua also has a for statement, in two flavors (see §2.4.5). + + +

+The condition expression of a +control structure can return any value. +Both false and nil are considered false. +All values different from nil and false are considered true +(in particular, the number 0 and the empty string are also true). + + +

+In the repeat–until loop, +the inner block does not end at the until keyword, +but only after the condition. +So, the condition can refer to local variables +declared inside the loop block. + + +

+The return statement is used to return values +from a function or a chunk (which is just a function). + +Functions and chunks can return more than one value, +and so the syntax for the return statement is + +

+	stat ::= return [explist]
+
+ +

+The break statement is used to terminate the execution of a +while, repeat, or for loop, +skipping to the next statement after the loop: + + +

+	stat ::= break
+

+A break ends the innermost enclosing loop. + + +

+The return and break +statements can only be written as the last statement of a block. +If it is really necessary to return or break in the +middle of a block, +then an explicit inner block can be used, +as in the idioms +do return end and do break end, +because now return and break are the last statements in +their (inner) blocks. + + + + + +

2.4.5 - For Statement

+ +

+ +The for statement has two forms: +one numeric and one generic. + + +

+The numeric for loop repeats a block of code while a +control variable runs through an arithmetic progression. +It has the following syntax: + +

+	stat ::= for Name `=´ exp `,´ exp [`,´ exp] do block end
+

+The block is repeated for name starting at the value of +the first exp, until it passes the second exp by steps of the +third exp. +More precisely, a for statement like + +

+     for v = e1, e2, e3 do block end
+

+is equivalent to the code: + +

+     do
+       local var, limit, step = tonumber(e1), tonumber(e2), tonumber(e3)
+       if not (var and limit and step) then error() end
+       while (step > 0 and var <= limit) or (step <= 0 and var >= limit) do
+         local v = var
+         block
+         var = var + step
+       end
+     end
+

+Note the following: + +

    + +
  • +All three control expressions are evaluated only once, +before the loop starts. +They must all result in numbers. +
    • + +
  • +var, limit, and step are invisible variables. +The names shown here are for explanatory purposes only. +
    • + +
  • +If the third expression (the step) is absent, +then a step of 1 is used. +
    • + +
  • +You can use break to exit a for loop. +
    • + +
  • +The loop variable v is local to the loop; +you cannot use its value after the for ends or is broken. +If you need this value, +assign it to another variable before breaking or exiting the loop. +
    • + +
+ +

+The generic for statement works over functions, +called iterators. +On each iteration, the iterator function is called to produce a new value, +stopping when this new value is nil. +The generic for loop has the following syntax: + +

+	stat ::= for namelist in explist do block end
+	namelist ::= Name {`,´ Name}
+

+A for statement like + +

+     for var_1, ···, var_n in explist do block end
+

+is equivalent to the code: + +

+     do
+       local f, s, var = explist
+       while true do
+         local var_1, ···, var_n = f(s, var)
+         var = var_1
+         if var == nil then break end
+         block
+       end
+     end
+

+Note the following: + +

    + +
  • +explist is evaluated only once. +Its results are an iterator function, +a state, +and an initial value for the first iterator variable. +
    • + +
  • +f, s, and var are invisible variables. +The names are here for explanatory purposes only. +
    • + +
  • +You can use break to exit a for loop. +
    • + +
  • +The loop variables var_i are local to the loop; +you cannot use their values after the for ends. +If you need these values, +then assign them to other variables before breaking or exiting the loop. +
    • + +
+ + + + +

2.4.6 - Function Calls as Statements

+To allow possible side-effects, +function calls can be executed as statements: + +

+	stat ::= functioncall
+

+In this case, all returned values are thrown away. +Function calls are explained in §2.5.8. + + + + + +

2.4.7 - Local Declarations

+Local variables can be declared anywhere inside a block. +The declaration can include an initial assignment: + +

+	stat ::= local namelist [`=´ explist]
+

+If present, an initial assignment has the same semantics +of a multiple assignment (see §2.4.3). +Otherwise, all variables are initialized with nil. + + +

+A chunk is also a block (see §2.4.1), +and so local variables can be declared in a chunk outside any explicit block. +The scope of such local variables extends until the end of the chunk. + + +

+The visibility rules for local variables are explained in §2.6. + + + + + + + +

2.5 - Expressions

+ +

+The basic expressions in Lua are the following: + +

+	exp ::= prefixexp
+	exp ::= nil | false | true
+	exp ::= Number
+	exp ::= String
+	exp ::= function
+	exp ::= tableconstructor
+	exp ::= `...´
+	exp ::= exp binop exp
+	exp ::= unop exp
+	prefixexp ::= var | functioncall | `(´ exp `)´
+
+ +

+Numbers and literal strings are explained in §2.1; +variables are explained in §2.3; +function definitions are explained in §2.5.9; +function calls are explained in §2.5.8; +table constructors are explained in §2.5.7. +Vararg expressions, +denoted by three dots ('...'), can only be used when +directly inside a vararg function; +they are explained in §2.5.9. + + +

+Binary operators comprise arithmetic operators (see §2.5.1), +relational operators (see §2.5.2), logical operators (see §2.5.3), +and the concatenation operator (see §2.5.4). +Unary operators comprise the unary minus (see §2.5.1), +the unary not (see §2.5.3), +and the unary length operator (see §2.5.5). + + +

+Both function calls and vararg expressions can result in multiple values. +If an expression is used as a statement +(only possible for function calls (see §2.4.6)), +then its return list is adjusted to zero elements, +thus discarding all returned values. +If an expression is used as the last (or the only) element +of a list of expressions, +then no adjustment is made +(unless the call is enclosed in parentheses). +In all other contexts, +Lua adjusts the result list to one element, +discarding all values except the first one. + + +

+Here are some examples: + +

+     f()                -- adjusted to 0 results
+     g(f(), x)          -- f() is adjusted to 1 result
+     g(x, f())          -- g gets x plus all results from f()
+     a,b,c = f(), x     -- f() is adjusted to 1 result (c gets nil)
+     a,b = ...          -- a gets the first vararg parameter, b gets
+                        -- the second (both a and b can get nil if there
+                        -- is no corresponding vararg parameter)
+     
+     a,b,c = x, f()     -- f() is adjusted to 2 results
+     a,b,c = f()        -- f() is adjusted to 3 results
+     return f()         -- returns all results from f()
+     return ...         -- returns all received vararg parameters
+     return x,y,f()     -- returns x, y, and all results from f()
+     {f()}              -- creates a list with all results from f()
+     {...}              -- creates a list with all vararg parameters
+     {f(), nil}         -- f() is adjusted to 1 result
+
+ +

+Any expression enclosed in parentheses always results in only one value. +Thus, +(f(x,y,z)) is always a single value, +even if f returns several values. +(The value of (f(x,y,z)) is the first value returned by f +or nil if f does not return any values.) + + + +

2.5.1 - Arithmetic Operators

+Lua supports the usual arithmetic operators: +the binary + (addition), +- (subtraction), * (multiplication), +/ (division), % (modulo), and ^ (exponentiation); +and unary - (negation). +If the operands are numbers, or strings that can be converted to +numbers (see §2.2.1), +then all operations have the usual meaning. +Exponentiation works for any exponent. +For instance, x^(-0.5) computes the inverse of the square root of x. +Modulo is defined as + +

+     a % b == a - math.floor(a/b)*b
+

+That is, it is the remainder of a division that rounds +the quotient towards minus infinity. + + + + + +

2.5.2 - Relational Operators

+The relational operators in Lua are + +

+     ==    ~=    <     >     <=    >=
+

+These operators always result in false or true. + + +

+Equality (==) first compares the type of its operands. +If the types are different, then the result is false. +Otherwise, the values of the operands are compared. +Numbers and strings are compared in the usual way. +Objects (tables, userdata, threads, and functions) +are compared by reference: +two objects are considered equal only if they are the same object. +Every time you create a new object +(a table, userdata, thread, or function), +this new object is different from any previously existing object. + + +

+You can change the way that Lua compares tables and userdata +by using the "eq" metamethod (see §2.8). + + +

+The conversion rules of §2.2.1 +do not apply to equality comparisons. +Thus, "0"==0 evaluates to false, +and t[0] and t["0"] denote different +entries in a table. + + +

+The operator ~= is exactly the negation of equality (==). + + +

+The order operators work as follows. +If both arguments are numbers, then they are compared as such. +Otherwise, if both arguments are strings, +then their values are compared according to the current locale. +Otherwise, Lua tries to call the "lt" or the "le" +metamethod (see §2.8). +A comparison a > b is translated to b < a +and a >= b is translated to b <= a. + + + + + +

2.5.3 - Logical Operators

+The logical operators in Lua are +and, or, and not. +Like the control structures (see §2.4.4), +all logical operators consider both false and nil as false +and anything else as true. + + +

+The negation operator not always returns false or true. +The conjunction operator and returns its first argument +if this value is false or nil; +otherwise, and returns its second argument. +The disjunction operator or returns its first argument +if this value is different from nil and false; +otherwise, or returns its second argument. +Both and and or use short-cut evaluation; +that is, +the second operand is evaluated only if necessary. +Here are some examples: + +

+     10 or 20            --> 10
+     10 or error()       --> 10
+     nil or "a"          --> "a"
+     nil and 10          --> nil
+     false and error()   --> false
+     false and nil       --> false
+     false or nil        --> nil
+     10 and 20           --> 20
+

+(In this manual, +--> indicates the result of the preceding expression.) + + + + + +

2.5.4 - Concatenation

+The string concatenation operator in Lua is +denoted by two dots ('..'). +If both operands are strings or numbers, then they are converted to +strings according to the rules mentioned in §2.2.1. +Otherwise, the "concat" metamethod is called (see §2.8). + + + + + +

2.5.5 - The Length Operator

+ +

+The length operator is denoted by the unary operator #. +The length of a string is its number of bytes +(that is, the usual meaning of string length when each +character is one byte). + + +

+The length of a table t is defined to be any +integer index n +such that t[n] is not nil and t[n+1] is nil; +moreover, if t[1] is nil, n can be zero. +For a regular array, with non-nil values from 1 to a given n, +its length is exactly that n, +the index of its last value. +If the array has "holes" +(that is, nil values between other non-nil values), +then #t can be any of the indices that +directly precedes a nil value +(that is, it may consider any such nil value as the end of +the array). + + + + + +

2.5.6 - Precedence

+Operator precedence in Lua follows the table below, +from lower to higher priority: + +

+     or
+     and
+     <     >     <=    >=    ~=    ==
+     ..
+     +     -
+     *     /     %
+     not   #     - (unary)
+     ^
+

+As usual, +you can use parentheses to change the precedences of an expression. +The concatenation ('..') and exponentiation ('^') +operators are right associative. +All other binary operators are left associative. + + + + + +

2.5.7 - Table Constructors

+Table constructors are expressions that create tables. +Every time a constructor is evaluated, a new table is created. +A constructor can be used to create an empty table +or to create a table and initialize some of its fields. +The general syntax for constructors is + +

+	tableconstructor ::= `{´ [fieldlist] `}´
+	fieldlist ::= field {fieldsep field} [fieldsep]
+	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp
+	fieldsep ::= `,´ | `;´
+
+ +

+Each field of the form [exp1] = exp2 adds to the new table an entry +with key exp1 and value exp2. +A field of the form name = exp is equivalent to +["name"] = exp. +Finally, fields of the form exp are equivalent to +[i] = exp, where i are consecutive numerical integers, +starting with 1. +Fields in the other formats do not affect this counting. +For example, + +

+     a = { [f(1)] = g; "x", "y"; x = 1, f(x), [30] = 23; 45 }
+

+is equivalent to + +

+     do
+       local t = {}
+       t[f(1)] = g
+       t[1] = "x"         -- 1st exp
+       t[2] = "y"         -- 2nd exp
+       t.x = 1            -- t["x"] = 1
+       t[3] = f(x)        -- 3rd exp
+       t[30] = 23
+       t[4] = 45          -- 4th exp
+       a = t
+     end
+
+ +

+If the last field in the list has the form exp +and the expression is a function call or a vararg expression, +then all values returned by this expression enter the list consecutively +(see §2.5.8). +To avoid this, +enclose the function call or the vararg expression +in parentheses (see §2.5). + + +

+The field list can have an optional trailing separator, +as a convenience for machine-generated code. + + + + + +

2.5.8 - Function Calls

+A function call in Lua has the following syntax: + +

+	functioncall ::= prefixexp args
+

+In a function call, +first prefixexp and args are evaluated. +If the value of prefixexp has type function, +then this function is called +with the given arguments. +Otherwise, the prefixexp "call" metamethod is called, +having as first parameter the value of prefixexp, +followed by the original call arguments +(see §2.8). + + +

+The form + +

+	functioncall ::= prefixexp `:´ Name args
+

+can be used to call "methods". +A call v:name(args) +is syntactic sugar for v.name(v,args), +except that v is evaluated only once. + + +

+Arguments have the following syntax: + +

+	args ::= `(´ [explist] `)´
+	args ::= tableconstructor
+	args ::= String
+

+All argument expressions are evaluated before the call. +A call of the form f{fields} is +syntactic sugar for f({fields}); +that is, the argument list is a single new table. +A call of the form f'string' +(or f"string" or f[[string]]) +is syntactic sugar for f('string'); +that is, the argument list is a single literal string. + + +

+As an exception to the free-format syntax of Lua, +you cannot put a line break before the '(' in a function call. +This restriction avoids some ambiguities in the language. +If you write + +

+     a = f
+     (g).x(a)
+

+Lua would see that as a single statement, a = f(g).x(a). +So, if you want two statements, you must add a semi-colon between them. +If you actually want to call f, +you must remove the line break before (g). + + +

+A call of the form return functioncall is called +a tail call. +Lua implements proper tail calls +(or proper tail recursion): +in a tail call, +the called function reuses the stack entry of the calling function. +Therefore, there is no limit on the number of nested tail calls that +a program can execute. +However, a tail call erases any debug information about the +calling function. +Note that a tail call only happens with a particular syntax, +where the return has one single function call as argument; +this syntax makes the calling function return exactly +the returns of the called function. +So, none of the following examples are tail calls: + +

+     return (f(x))        -- results adjusted to 1
+     return 2 * f(x)
+     return x, f(x)       -- additional results
+     f(x); return         -- results discarded
+     return x or f(x)     -- results adjusted to 1
+
+ + + + +

2.5.9 - Function Definitions

+ +

+The syntax for function definition is + +

+	function ::= function funcbody
+	funcbody ::= `(´ [parlist] `)´ block end
+
+ +

+The following syntactic sugar simplifies function definitions: + +

+	stat ::= function funcname funcbody
+	stat ::= local function Name funcbody
+	funcname ::= Name {`.´ Name} [`:´ Name]
+

+The statement + +

+     function f () body end
+

+translates to + +

+     f = function () body end
+

+The statement + +

+     function t.a.b.c.f () body end
+

+translates to + +

+     t.a.b.c.f = function () body end
+

+The statement + +

+     local function f () body end
+

+translates to + +

+     local f; f = function () body end
+

+not to + +

+     local f = function () body end
+

+(This only makes a difference when the body of the function +contains references to f.) + + +

+A function definition is an executable expression, +whose value has type function. +When Lua pre-compiles a chunk, +all its function bodies are pre-compiled too. +Then, whenever Lua executes the function definition, +the function is instantiated (or closed). +This function instance (or closure) +is the final value of the expression. +Different instances of the same function +can refer to different external local variables +and can have different environment tables. + + +

+Parameters act as local variables that are +initialized with the argument values: + +

+	parlist ::= namelist [`,´ `...´] | `...´
+

+When a function is called, +the list of arguments is adjusted to +the length of the list of parameters, +unless the function is a variadic or vararg function, +which is +indicated by three dots ('...') at the end of its parameter list. +A vararg function does not adjust its argument list; +instead, it collects all extra arguments and supplies them +to the function through a vararg expression, +which is also written as three dots. +The value of this expression is a list of all actual extra arguments, +similar to a function with multiple results. +If a vararg expression is used inside another expression +or in the middle of a list of expressions, +then its return list is adjusted to one element. +If the expression is used as the last element of a list of expressions, +then no adjustment is made +(unless that last expression is enclosed in parentheses). + + +

+As an example, consider the following definitions: + +

+     function f(a, b) end
+     function g(a, b, ...) end
+     function r() return 1,2,3 end
+

+Then, we have the following mapping from arguments to parameters and +to the vararg expression: + +

+     CALL            PARAMETERS
+     
+     f(3)             a=3, b=nil
+     f(3, 4)          a=3, b=4
+     f(3, 4, 5)       a=3, b=4
+     f(r(), 10)       a=1, b=10
+     f(r())           a=1, b=2
+     
+     g(3)             a=3, b=nil, ... -->  (nothing)
+     g(3, 4)          a=3, b=4,   ... -->  (nothing)
+     g(3, 4, 5, 8)    a=3, b=4,   ... -->  5  8
+     g(5, r())        a=5, b=1,   ... -->  2  3
+
+ +

+Results are returned using the return statement (see §2.4.4). +If control reaches the end of a function +without encountering a return statement, +then the function returns with no results. + + +

+The colon syntax +is used for defining methods, +that is, functions that have an implicit extra parameter self. +Thus, the statement + +

+     function t.a.b.c:f (params) body end
+

+is syntactic sugar for + +

+     t.a.b.c.f = function (self, params) body end
+
+ + + + + + +

2.6 - Visibility Rules

+ +

+ +Lua is a lexically scoped language. +The scope of variables begins at the first statement after +their declaration and lasts until the end of the innermost block that +includes the declaration. +Consider the following example: + +

+     x = 10                -- global variable
+     do                    -- new block
+       local x = x         -- new 'x', with value 10
+       print(x)            --> 10
+       x = x+1
+       do                  -- another block
+         local x = x+1     -- another 'x'
+         print(x)          --> 12
+       end
+       print(x)            --> 11
+     end
+     print(x)              --> 10  (the global one)
+
+ +

+Notice that, in a declaration like local x = x, +the new x being declared is not in scope yet, +and so the second x refers to the outside variable. + + +

+Because of the lexical scoping rules, +local variables can be freely accessed by functions +defined inside their scope. +A local variable used by an inner function is called +an upvalue, or external local variable, +inside the inner function. + + +

+Notice that each execution of a local statement +defines new local variables. +Consider the following example: + +

+     a = {}
+     local x = 20
+     for i=1,10 do
+       local y = 0
+       a[i] = function () y=y+1; return x+y end
+     end
+

+The loop creates ten closures +(that is, ten instances of the anonymous function). +Each of these closures uses a different y variable, +while all of them share the same x. + + + + + +

2.7 - Error Handling

+ +

+Because Lua is an embedded extension language, +all Lua actions start from C code in the host program +calling a function from the Lua library (see lua_pcall). +Whenever an error occurs during Lua compilation or execution, +control returns to C, +which can take appropriate measures +(such as printing an error message). + + +

+Lua code can explicitly generate an error by calling the +error function. +If you need to catch errors in Lua, +you can use the pcall function. + + + + + +

2.8 - Metatables

+ +

+Every value in Lua can have a metatable. +This metatable is an ordinary Lua table +that defines the behavior of the original value +under certain special operations. +You can change several aspects of the behavior +of operations over a value by setting specific fields in its metatable. +For instance, when a non-numeric value is the operand of an addition, +Lua checks for a function in the field "__add" in its metatable. +If it finds one, +Lua calls this function to perform the addition. + + +

+We call the keys in a metatable events +and the values metamethods. +In the previous example, the event is "add" +and the metamethod is the function that performs the addition. + + +

+You can query the metatable of any value +through the getmetatable function. + + +

+You can replace the metatable of tables +through the setmetatable +function. +You cannot change the metatable of other types from Lua +(except by using the debug library); +you must use the C API for that. + + +

+Tables and full userdata have individual metatables +(although multiple tables and userdata can share their metatables). +Values of all other types share one single metatable per type; +that is, there is one single metatable for all numbers, +one for all strings, etc. + + +

+A metatable controls how an object behaves in arithmetic operations, +order comparisons, concatenation, length operation, and indexing. +A metatable also can define a function to be called when a userdata +is garbage collected. +For each of these operations Lua associates a specific key +called an event. +When Lua performs one of these operations over a value, +it checks whether this value has a metatable with the corresponding event. +If so, the value associated with that key (the metamethod) +controls how Lua will perform the operation. + + +

+Metatables control the operations listed next. +Each operation is identified by its corresponding name. +The key for each operation is a string with its name prefixed by +two underscores, '__'; +for instance, the key for operation "add" is the +string "__add". +The semantics of these operations is better explained by a Lua function +describing how the interpreter executes the operation. + + +

+The code shown here in Lua is only illustrative; +the real behavior is hard coded in the interpreter +and it is much more efficient than this simulation. +All functions used in these descriptions +(rawget, tonumber, etc.) +are described in §5.1. +In particular, to retrieve the metamethod of a given object, +we use the expression + +

+     metatable(obj)[event]
+

+This should be read as + +

+     rawget(getmetatable(obj) or {}, event)
+

+ +That is, the access to a metamethod does not invoke other metamethods, +and the access to objects with no metatables does not fail +(it simply results in nil). + + + +

    + +
  • "add": +the + operation. + + + +

    +The function getbinhandler below defines how Lua chooses a handler +for a binary operation. +First, Lua tries the first operand. +If its type does not define a handler for the operation, +then Lua tries the second operand. + +

    +     function getbinhandler (op1, op2, event)
+       return metatable(op1)[event] or metatable(op2)[event]
+     end
+

    +By using this function, +the behavior of the op1 + op2 is + +

    +     function add_event (op1, op2)
+       local o1, o2 = tonumber(op1), tonumber(op2)
+       if o1 and o2 then  -- both operands are numeric?
+         return o1 + o2   -- '+' here is the primitive 'add'
+       else  -- at least one of the operands is not numeric
+         local h = getbinhandler(op1, op2, "__add")
+         if h then
+           -- call the handler with both operands
+           return (h(op1, op2))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "sub": +the - operation. + +Behavior similar to the "add" operation. +
    • + +
  • "mul": +the * operation. + +Behavior similar to the "add" operation. +
    • + +
  • "div": +the / operation. + +Behavior similar to the "add" operation. +
    • + +
  • "mod": +the % operation. + +Behavior similar to the "add" operation, +with the operation +o1 - floor(o1/o2)*o2 as the primitive operation. +
    • + +
  • "pow": +the ^ (exponentiation) operation. + +Behavior similar to the "add" operation, +with the function pow (from the C math library) +as the primitive operation. +
    • + +
  • "unm": +the unary - operation. + + +
    +     function unm_event (op)
+       local o = tonumber(op)
+       if o then  -- operand is numeric?
+         return -o  -- '-' here is the primitive 'unm'
+       else  -- the operand is not numeric.
+         -- Try to get a handler from the operand
+         local h = metatable(op).__unm
+         if h then
+           -- call the handler with the operand
+           return (h(op))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "concat": +the .. (concatenation) operation. + + +
    +     function concat_event (op1, op2)
+       if (type(op1) == "string" or type(op1) == "number") and
+          (type(op2) == "string" or type(op2) == "number") then
+         return op1 .. op2  -- primitive string concatenation
+       else
+         local h = getbinhandler(op1, op2, "__concat")
+         if h then
+           return (h(op1, op2))
+         else
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
  • "len": +the # operation. + + +
    +     function len_event (op)
+       if type(op) == "string" then
+         return strlen(op)         -- primitive string length
+       elseif type(op) == "table" then
+         return #op                -- primitive table length
+       else
+         local h = metatable(op).__len
+         if h then
+           -- call the handler with the operand
+           return (h(op))
+         else  -- no handler available: default behavior
+           error(···)
+         end
+       end
+     end
+

    +See §2.5.5 for a description of the length of a table. +

    • + +
  • "eq": +the == operation. + +The function getcomphandler defines how Lua chooses a metamethod +for comparison operators. +A metamethod only is selected when both objects +being compared have the same type +and the same metamethod for the selected operation. + +
    +     function getcomphandler (op1, op2, event)
+       if type(op1) ~= type(op2) then return nil end
+       local mm1 = metatable(op1)[event]
+       local mm2 = metatable(op2)[event]
+       if mm1 == mm2 then return mm1 else return nil end
+     end
+

    +The "eq" event is defined as follows: + +

    +     function eq_event (op1, op2)
+       if type(op1) ~= type(op2) then  -- different types?
+         return false   -- different objects
+       end
+       if op1 == op2 then   -- primitive equal?
+         return true   -- objects are equal
+       end
+       -- try metamethod
+       local h = getcomphandler(op1, op2, "__eq")
+       if h then
+         return (h(op1, op2))
+       else
+         return false
+       end
+     end
+

    +a ~= b is equivalent to not (a == b). +

    • + +
  • "lt": +the < operation. + + +
    +     function lt_event (op1, op2)
+       if type(op1) == "number" and type(op2) == "number" then
+         return op1 < op2   -- numeric comparison
+       elseif type(op1) == "string" and type(op2) == "string" then
+         return op1 < op2   -- lexicographic comparison
+       else
+         local h = getcomphandler(op1, op2, "__lt")
+         if h then
+           return (h(op1, op2))
+         else
+           error(···)
+         end
+       end
+     end
+

    +a > b is equivalent to b < a. +

    • + +
  • "le": +the <= operation. + + +
    +     function le_event (op1, op2)
+       if type(op1) == "number" and type(op2) == "number" then
+         return op1 <= op2   -- numeric comparison
+       elseif type(op1) == "string" and type(op2) == "string" then
+         return op1 <= op2   -- lexicographic comparison
+       else
+         local h = getcomphandler(op1, op2, "__le")
+         if h then
+           return (h(op1, op2))
+         else
+           h = getcomphandler(op1, op2, "__lt")
+           if h then
+             return not h(op2, op1)
+           else
+             error(···)
+           end
+         end
+       end
+     end
+

    +a >= b is equivalent to b <= a. +Note that, in the absence of a "le" metamethod, +Lua tries the "lt", assuming that a <= b is +equivalent to not (b < a). +

    • + +
  • "index": +The indexing access table[key]. + + +
    +     function gettable_event (table, key)
+       local h
+       if type(table) == "table" then
+         local v = rawget(table, key)
+         if v ~= nil then return v end
+         h = metatable(table).__index
+         if h == nil then return nil end
+       else
+         h = metatable(table).__index
+         if h == nil then
+           error(···)
+         end
+       end
+       if type(h) == "function" then
+         return (h(table, key))     -- call the handler
+       else return h[key]           -- or repeat operation on it
+       end
+     end
+

    +

    • + +
  • "newindex": +The indexing assignment table[key] = value. + + +
    +     function settable_event (table, key, value)
+       local h
+       if type(table) == "table" then
+         local v = rawget(table, key)
+         if v ~= nil then rawset(table, key, value); return end
+         h = metatable(table).__newindex
+         if h == nil then rawset(table, key, value); return end
+       else
+         h = metatable(table).__newindex
+         if h == nil then
+           error(···)
+         end
+       end
+       if type(h) == "function" then
+         h(table, key,value)           -- call the handler
+       else h[key] = value             -- or repeat operation on it
+       end
+     end
+

    +

    • + +
  • "call": +called when Lua calls a value. + + +
    +     function function_event (func, ...)
+       if type(func) == "function" then
+         return func(...)   -- primitive call
+       else
+         local h = metatable(func).__call
+         if h then
+           return h(func, ...)
+         else
+           error(···)
+         end
+       end
+     end
+

    +

    • + +
+ + + + +

2.9 - Environments

+ +

+Besides metatables, +objects of types thread, function, and userdata +have another table associated with them, +called their environment. +Like metatables, environments are regular tables and +multiple objects can share the same environment. + + +

+Threads are created sharing the environment of the creating thread. +Userdata and C functions are created sharing the environment +of the creating C function. +Non-nested Lua functions +(created by loadfile, loadstring or load) +are created sharing the environment of the creating thread. +Nested Lua functions are created sharing the environment of +the creating Lua function. + + +

+Environments associated with userdata have no meaning for Lua. +It is only a convenience feature for programmers to associate a table to +a userdata. + + +

+Environments associated with threads are called +global environments. +They are used as the default environment for threads and +non-nested Lua functions created by the thread +and can be directly accessed by C code (see §3.3). + + +

+The environment associated with a C function can be directly +accessed by C code (see §3.3). +It is used as the default environment for other C functions +and userdata created by the function. + + +

+Environments associated with Lua functions are used to resolve +all accesses to global variables within the function (see §2.3). +They are used as the default environment for nested Lua functions +created by the function. + + +

+You can change the environment of a Lua function or the +running thread by calling setfenv. +You can get the environment of a Lua function or the running thread +by calling getfenv. +To manipulate the environment of other objects +(userdata, C functions, other threads) you must +use the C API. + + + + + +

2.10 - Garbage Collection

+ +

+Lua performs automatic memory management. +This means that +you have to worry neither about allocating memory for new objects +nor about freeing it when the objects are no longer needed. +Lua manages memory automatically by running +a garbage collector from time to time +to collect all dead objects +(that is, objects that are no longer accessible from Lua). +All memory used by Lua is subject to automatic management: +tables, userdata, functions, threads, strings, etc. + + +

+Lua implements an incremental mark-and-sweep collector. +It uses two numbers to control its garbage-collection cycles: +the garbage-collector pause and +the garbage-collector step multiplier. +Both use percentage points as units +(so that a value of 100 means an internal value of 1). + + +

+The garbage-collector pause +controls how long the collector waits before starting a new cycle. +Larger values make the collector less aggressive. +Values smaller than 100 mean the collector will not wait to +start a new cycle. +A value of 200 means that the collector waits for the total memory in use +to double before starting a new cycle. + + +

+The step multiplier +controls the relative speed of the collector relative to +memory allocation. +Larger values make the collector more aggressive but also increase +the size of each incremental step. +Values smaller than 100 make the collector too slow and +can result in the collector never finishing a cycle. +The default, 200, means that the collector runs at "twice" +the speed of memory allocation. + + +

+You can change these numbers by calling lua_gc in C +or collectgarbage in Lua. +With these functions you can also control +the collector directly (e.g., stop and restart it). + + + +

2.10.1 - Garbage-Collection Metamethods

+ +

+Using the C API, +you can set garbage-collector metamethods for userdata (see §2.8). +These metamethods are also called finalizers. +Finalizers allow you to coordinate Lua's garbage collection +with external resource management +(such as closing files, network or database connections, +or freeing your own memory). + + +

+Garbage userdata with a field __gc in their metatables are not +collected immediately by the garbage collector. +Instead, Lua puts them in a list. +After the collection, +Lua does the equivalent of the following function +for each userdata in that list: + +

+     function gc_event (udata)
+       local h = metatable(udata).__gc
+       if h then
+         h(udata)
+       end
+     end
+
+ +

+At the end of each garbage-collection cycle, +the finalizers for userdata are called in reverse +order of their creation, +among those collected in that cycle. +That is, the first finalizer to be called is the one associated +with the userdata created last in the program. +The userdata itself is freed only in the next garbage-collection cycle. + + + + + +

2.10.2 - Weak Tables

+ +

+A weak table is a table whose elements are +weak references. +A weak reference is ignored by the garbage collector. +In other words, +if the only references to an object are weak references, +then the garbage collector will collect this object. + + +

+A weak table can have weak keys, weak values, or both. +A table with weak keys allows the collection of its keys, +but prevents the collection of its values. +A table with both weak keys and weak values allows the collection of +both keys and values. +In any case, if either the key or the value is collected, +the whole pair is removed from the table. +The weakness of a table is controlled by the +__mode field of its metatable. +If the __mode field is a string containing the character 'k', +the keys in the table are weak. +If __mode contains 'v', +the values in the table are weak. + + +

+After you use a table as a metatable, +you should not change the value of its __mode field. +Otherwise, the weak behavior of the tables controlled by this +metatable is undefined. + + + + + + + +

2.11 - Coroutines

+ +

+Lua supports coroutines, +also called collaborative multithreading. +A coroutine in Lua represents an independent thread of execution. +Unlike threads in multithread systems, however, +a coroutine only suspends its execution by explicitly calling +a yield function. + + +

+You create a coroutine with a call to coroutine.create. +Its sole argument is a function +that is the main function of the coroutine. +The create function only creates a new coroutine and +returns a handle to it (an object of type thread); +it does not start the coroutine execution. + + +

+When you first call coroutine.resume, +passing as its first argument +a thread returned by coroutine.create, +the coroutine starts its execution, +at the first line of its main function. +Extra arguments passed to coroutine.resume are passed on +to the coroutine main function. +After the coroutine starts running, +it runs until it terminates or yields. + + +

+A coroutine can terminate its execution in two ways: +normally, when its main function returns +(explicitly or implicitly, after the last instruction); +and abnormally, if there is an unprotected error. +In the first case, coroutine.resume returns true, +plus any values returned by the coroutine main function. +In case of errors, coroutine.resume returns false +plus an error message. + + +

+A coroutine yields by calling coroutine.yield. +When a coroutine yields, +the corresponding coroutine.resume returns immediately, +even if the yield happens inside nested function calls +(that is, not in the main function, +but in a function directly or indirectly called by the main function). +In the case of a yield, coroutine.resume also returns true, +plus any values passed to coroutine.yield. +The next time you resume the same coroutine, +it continues its execution from the point where it yielded, +with the call to coroutine.yield returning any extra +arguments passed to coroutine.resume. + + +

+Like coroutine.create, +the coroutine.wrap function also creates a coroutine, +but instead of returning the coroutine itself, +it returns a function that, when called, resumes the coroutine. +Any arguments passed to this function +go as extra arguments to coroutine.resume. +coroutine.wrap returns all the values returned by coroutine.resume, +except the first one (the boolean error code). +Unlike coroutine.resume, +coroutine.wrap does not catch errors; +any error is propagated to the caller. + + +

+As an example, +consider the following code: + +

+     function foo (a)
+       print("foo", a)
+       return coroutine.yield(2*a)
+     end
+     
+     co = coroutine.create(function (a,b)
+           print("co-body", a, b)
+           local r = foo(a+1)
+           print("co-body", r)
+           local r, s = coroutine.yield(a+b, a-b)
+           print("co-body", r, s)
+           return b, "end"
+     end)
+            
+     print("main", coroutine.resume(co, 1, 10))
+     print("main", coroutine.resume(co, "r"))
+     print("main", coroutine.resume(co, "x", "y"))
+     print("main", coroutine.resume(co, "x", "y"))
+

+When you run it, it produces the following output: + +

+     co-body 1       10
+     foo     2
+     
+     main    true    4
+     co-body r
+     main    true    11      -9
+     co-body x       y
+     main    true    10      end
+     main    false   cannot resume dead coroutine
+
+ + + + +

3 - The Application Program Interface

+ +

+ +This section describes the C API for Lua, that is, +the set of C functions available to the host program to communicate +with Lua. +All API functions and related types and constants +are declared in the header file lua.h. + + +

+Even when we use the term "function", +any facility in the API may be provided as a macro instead. +All such macros use each of their arguments exactly once +(except for the first argument, which is always a Lua state), +and so do not generate any hidden side-effects. + + +

+As in most C libraries, +the Lua API functions do not check their arguments for validity or consistency. +However, you can change this behavior by compiling Lua +with a proper definition for the macro luai_apicheck, +in file luaconf.h. + + + +

3.1 - The Stack

+ +

+Lua uses a virtual stack to pass values to and from C. +Each element in this stack represents a Lua value +(nil, number, string, etc.). + + +

+Whenever Lua calls C, the called function gets a new stack, +which is independent of previous stacks and of stacks of +C functions that are still active. +This stack initially contains any arguments to the C function +and it is where the C function pushes its results +to be returned to the caller (see lua_CFunction). + + +

+For convenience, +most query operations in the API do not follow a strict stack discipline. +Instead, they can refer to any element in the stack +by using an index: +A positive index represents an absolute stack position +(starting at 1); +a negative index represents an offset relative to the top of the stack. +More specifically, if the stack has n elements, +then index 1 represents the first element +(that is, the element that was pushed onto the stack first) +and +index n represents the last element; +index -1 also represents the last element +(that is, the element at the top) +and index -n represents the first element. +We say that an index is valid +if it lies between 1 and the stack top +(that is, if 1 ≤ abs(index) ≤ top). + + + + + + +

3.2 - Stack Size

+ +

+When you interact with Lua API, +you are responsible for ensuring consistency. +In particular, +you are responsible for controlling stack overflow. +You can use the function lua_checkstack +to grow the stack size. + + +

+Whenever Lua calls C, +it ensures that at least LUA_MINSTACK stack positions are available. +LUA_MINSTACK is defined as 20, +so that usually you do not have to worry about stack space +unless your code has loops pushing elements onto the stack. + + +

+Most query functions accept as indices any value inside the +available stack space, that is, indices up to the maximum stack size +you have set through lua_checkstack. +Such indices are called acceptable indices. +More formally, we define an acceptable index +as follows: + +

+     (index < 0 && abs(index) <= top) ||
+     (index > 0 && index <= stackspace)
+

+Note that 0 is never an acceptable index. + + + + + +

3.3 - Pseudo-Indices

+ +

+Unless otherwise noted, +any function that accepts valid indices can also be called with +pseudo-indices, +which represent some Lua values that are accessible to C code +but which are not in the stack. +Pseudo-indices are used to access the thread environment, +the function environment, +the registry, +and the upvalues of a C function (see §3.4). + + +

+The thread environment (where global variables live) is +always at pseudo-index LUA_GLOBALSINDEX. +The environment of the running C function is always +at pseudo-index LUA_ENVIRONINDEX. + + +

+To access and change the value of global variables, +you can use regular table operations over an environment table. +For instance, to access the value of a global variable, do + +

+     lua_getfield(L, LUA_GLOBALSINDEX, varname);
+
+ + + + +

3.4 - C Closures

+ +

+When a C function is created, +it is possible to associate some values with it, +thus creating a C closure; +these values are called upvalues and are +accessible to the function whenever it is called +(see lua_pushcclosure). + + +

+Whenever a C function is called, +its upvalues are located at specific pseudo-indices. +These pseudo-indices are produced by the macro +lua_upvalueindex. +The first value associated with a function is at position +lua_upvalueindex(1), and so on. +Any access to lua_upvalueindex(n), +where n is greater than the number of upvalues of the +current function (but not greater than 256), +produces an acceptable (but invalid) index. + + + + + +

3.5 - Registry

+ +

+Lua provides a registry, +a pre-defined table that can be used by any C code to +store whatever Lua value it needs to store. +This table is always located at pseudo-index +LUA_REGISTRYINDEX. +Any C library can store data into this table, +but it should take care to choose keys different from those used +by other libraries, to avoid collisions. +Typically, you should use as key a string containing your library name +or a light userdata with the address of a C object in your code. + + +

+The integer keys in the registry are used by the reference mechanism, +implemented by the auxiliary library, +and therefore should not be used for other purposes. + + + + + +

3.6 - Error Handling in C

+ +

+Internally, Lua uses the C longjmp facility to handle errors. +(You can also choose to use exceptions if you use C++; +see file luaconf.h.) +When Lua faces any error +(such as memory allocation errors, type errors, syntax errors, +and runtime errors) +it raises an error; +that is, it does a long jump. +A protected environment uses setjmp +to set a recover point; +any error jumps to the most recent active recover point. + + +

+Most functions in the API can throw an error, +for instance due to a memory allocation error. +The documentation for each function indicates whether +it can throw errors. + + +

+Inside a C function you can throw an error by calling lua_error. + + + + + +

3.7 - Functions and Types

+ +

+Here we list all functions and types from the C API in +alphabetical order. +Each function has an indicator like this: +[-o, +p, x] + + +

+The first field, o, +is how many elements the function pops from the stack. +The second field, p, +is how many elements the function pushes onto the stack. +(Any function always pushes its results after popping its arguments.) +A field in the form x|y means the function can push (or pop) +x or y elements, +depending on the situation; +an interrogation mark '?' means that +we cannot know how many elements the function pops/pushes +by looking only at its arguments +(e.g., they may depend on what is on the stack). +The third field, x, +tells whether the function may throw errors: +'-' means the function never throws any error; +'m' means the function may throw an error +only due to not enough memory; +'e' means the function may throw other kinds of errors; +'v' means the function may throw an error on purpose. + + + +

lua_Alloc

+
typedef void * (*lua_Alloc) (void *ud,
+                             void *ptr,
+                             size_t osize,
+                             size_t nsize);
+ +

+The type of the memory-allocation function used by Lua states. +The allocator function must provide a +functionality similar to realloc, +but not exactly the same. +Its arguments are +ud, an opaque pointer passed to lua_newstate; +ptr, a pointer to the block being allocated/reallocated/freed; +osize, the original size of the block; +nsize, the new size of the block. +ptr is NULL if and only if osize is zero. +When nsize is zero, the allocator must return NULL; +if osize is not zero, +it should free the block pointed to by ptr. +When nsize is not zero, the allocator returns NULL +if and only if it cannot fill the request. +When nsize is not zero and osize is zero, +the allocator should behave like malloc. +When nsize and osize are not zero, +the allocator behaves like realloc. +Lua assumes that the allocator never fails when +osize >= nsize. + + +

+Here is a simple implementation for the allocator function. +It is used in the auxiliary library by luaL_newstate. + +

+     static void *l_alloc (void *ud, void *ptr, size_t osize,
+                                                size_t nsize) {
+       (void)ud;  (void)osize;  /* not used */
+       if (nsize == 0) {
+         free(ptr);
+         return NULL;
+       }
+       else
+         return realloc(ptr, nsize);
+     }
+

+This code assumes +that free(NULL) has no effect and that +realloc(NULL, size) is equivalent to malloc(size). +ANSI C ensures both behaviors. + + + + + +

lua_atpanic

+[-0, +0, -] +

lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf);
+ +

+Sets a new panic function and returns the old one. + + +

+If an error happens outside any protected environment, +Lua calls a panic function +and then calls exit(EXIT_FAILURE), +thus exiting the host application. +Your panic function can avoid this exit by +never returning (e.g., doing a long jump). + + +

+The panic function can access the error message at the top of the stack. + + + + + +

lua_call

+[-(nargs + 1), +nresults, e] +

void lua_call (lua_State *L, int nargs, int nresults);
+ +

+Calls a function. + + +

+To call a function you must use the following protocol: +first, the function to be called is pushed onto the stack; +then, the arguments to the function are pushed +in direct order; +that is, the first argument is pushed first. +Finally you call lua_call; +nargs is the number of arguments that you pushed onto the stack. +All arguments and the function value are popped from the stack +when the function is called. +The function results are pushed onto the stack when the function returns. +The number of results is adjusted to nresults, +unless nresults is LUA_MULTRET. +In this case, all results from the function are pushed. +Lua takes care that the returned values fit into the stack space. +The function results are pushed onto the stack in direct order +(the first result is pushed first), +so that after the call the last result is on the top of the stack. + + +

+Any error inside the called function is propagated upwards +(with a longjmp). + + +

+The following example shows how the host program can do the +equivalent to this Lua code: + +

+     a = f("how", t.x, 14)
+

+Here it is in C: + +

+     lua_getfield(L, LUA_GLOBALSINDEX, "f"); /* function to be called */
+     lua_pushstring(L, "how");                        /* 1st argument */
+     lua_getfield(L, LUA_GLOBALSINDEX, "t");   /* table to be indexed */
+     lua_getfield(L, -1, "x");        /* push result of t.x (2nd arg) */
+     lua_remove(L, -2);                  /* remove 't' from the stack */
+     lua_pushinteger(L, 14);                          /* 3rd argument */
+     lua_call(L, 3, 1);     /* call 'f' with 3 arguments and 1 result */
+     lua_setfield(L, LUA_GLOBALSINDEX, "a");        /* set global 'a' */
+

+Note that the code above is "balanced": +at its end, the stack is back to its original configuration. +This is considered good programming practice. + + + + + +

lua_CFunction

+
typedef int (*lua_CFunction) (lua_State *L);
+ +

+Type for C functions. + + +

+In order to communicate properly with Lua, +a C function must use the following protocol, +which defines the way parameters and results are passed: +a C function receives its arguments from Lua in its stack +in direct order (the first argument is pushed first). +So, when the function starts, +lua_gettop(L) returns the number of arguments received by the function. +The first argument (if any) is at index 1 +and its last argument is at index lua_gettop(L). +To return values to Lua, a C function just pushes them onto the stack, +in direct order (the first result is pushed first), +and returns the number of results. +Any other value in the stack below the results will be properly +discarded by Lua. +Like a Lua function, a C function called by Lua can also return +many results. + + +

+As an example, the following function receives a variable number +of numerical arguments and returns their average and sum: + +

+     static int foo (lua_State *L) {
+       int n = lua_gettop(L);    /* number of arguments */
+       lua_Number sum = 0;
+       int i;
+       for (i = 1; i <= n; i++) {
+         if (!lua_isnumber(L, i)) {
+           lua_pushstring(L, "incorrect argument");
+           lua_error(L);
+         }
+         sum += lua_tonumber(L, i);
+       }
+       lua_pushnumber(L, sum/n);        /* first result */
+       lua_pushnumber(L, sum);         /* second result */
+       return 2;                   /* number of results */
+     }
+
+ + + + +

lua_checkstack

+[-0, +0, m] +

int lua_checkstack (lua_State *L, int extra);
+ +

+Ensures that there are at least extra free stack slots in the stack. +It returns false if it cannot grow the stack to that size. +This function never shrinks the stack; +if the stack is already larger than the new size, +it is left unchanged. + + + + + +

lua_close

+[-0, +0, -] +

void lua_close (lua_State *L);
+ +

+Destroys all objects in the given Lua state +(calling the corresponding garbage-collection metamethods, if any) +and frees all dynamic memory used by this state. +On several platforms, you may not need to call this function, +because all resources are naturally released when the host program ends. +On the other hand, long-running programs, +such as a daemon or a web server, +might need to release states as soon as they are not needed, +to avoid growing too large. + + + + + +

lua_concat

+[-n, +1, e] +

void lua_concat (lua_State *L, int n);
+ +

+Concatenates the n values at the top of the stack, +pops them, and leaves the result at the top. +If n is 1, the result is the single value on the stack +(that is, the function does nothing); +if n is 0, the result is the empty string. +Concatenation is performed following the usual semantics of Lua +(see §2.5.4). + + + + + +

lua_cpcall

+[-0, +(0|1), -] +

int lua_cpcall (lua_State *L, lua_CFunction func, void *ud);
+ +

+Calls the C function func in protected mode. +func starts with only one element in its stack, +a light userdata containing ud. +In case of errors, +lua_cpcall returns the same error codes as lua_pcall, +plus the error object on the top of the stack; +otherwise, it returns zero, and does not change the stack. +All values returned by func are discarded. + + + + + +

lua_createtable

+[-0, +1, m] +

void lua_createtable (lua_State *L, int narr, int nrec);
+ +

+Creates a new empty table and pushes it onto the stack. +The new table has space pre-allocated +for narr array elements and nrec non-array elements. +This pre-allocation is useful when you know exactly how many elements +the table will have. +Otherwise you can use the function lua_newtable. + + + + + +

lua_dump

+[-0, +0, m] +

int lua_dump (lua_State *L, lua_Writer writer, void *data);
+ +

+Dumps a function as a binary chunk. +Receives a Lua function on the top of the stack +and produces a binary chunk that, +if loaded again, +results in a function equivalent to the one dumped. +As it produces parts of the chunk, +lua_dump calls function writer (see lua_Writer) +with the given data +to write them. + + +

+The value returned is the error code returned by the last +call to the writer; +0 means no errors. + + +

+This function does not pop the Lua function from the stack. + + + + + +

lua_equal

+[-0, +0, e] +

int lua_equal (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the two values in acceptable indices index1 and +index2 are equal, +following the semantics of the Lua == operator +(that is, may call metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices is non valid. + + + + + +

lua_error

+[-1, +0, v] +

int lua_error (lua_State *L);
+ +

+Generates a Lua error. +The error message (which can actually be a Lua value of any type) +must be on the stack top. +This function does a long jump, +and therefore never returns. +(see luaL_error). + + + + + +

lua_gc

+[-0, +0, e] +

int lua_gc (lua_State *L, int what, int data);
+ +

+Controls the garbage collector. + + +

+This function performs several tasks, +according to the value of the parameter what: + +

    + +
  • LUA_GCSTOP: +stops the garbage collector. +
    • + +
  • LUA_GCRESTART: +restarts the garbage collector. +
    • + +
  • LUA_GCCOLLECT: +performs a full garbage-collection cycle. +
    • + +
  • LUA_GCCOUNT: +returns the current amount of memory (in Kbytes) in use by Lua. +
    • + +
  • LUA_GCCOUNTB: +returns the remainder of dividing the current amount of bytes of +memory in use by Lua by 1024. +
    • + +
  • LUA_GCSTEP: +performs an incremental step of garbage collection. +The step "size" is controlled by data +(larger values mean more steps) in a non-specified way. +If you want to control the step size +you must experimentally tune the value of data. +The function returns 1 if the step finished a +garbage-collection cycle. +
    • + +
  • LUA_GCSETPAUSE: +sets data as the new value +for the pause of the collector (see §2.10). +The function returns the previous value of the pause. +
    • + +
  • LUA_GCSETSTEPMUL: +sets data as the new value for the step multiplier of +the collector (see §2.10). +The function returns the previous value of the step multiplier. +
    • + +
+ + + + +

lua_getallocf

+[-0, +0, -] +

lua_Alloc lua_getallocf (lua_State *L, void **ud);
+ +

+Returns the memory-allocation function of a given state. +If ud is not NULL, Lua stores in *ud the +opaque pointer passed to lua_newstate. + + + + + +

lua_getfenv

+[-0, +1, -] +

void lua_getfenv (lua_State *L, int index);
+ +

+Pushes onto the stack the environment table of +the value at the given index. + + + + + +

lua_getfield

+[-0, +1, e] +

void lua_getfield (lua_State *L, int index, const char *k);
+ +

+Pushes onto the stack the value t[k], +where t is the value at the given valid index. +As in Lua, this function may trigger a metamethod +for the "index" event (see §2.8). + + + + + +

lua_getglobal

+[-0, +1, e] +

void lua_getglobal (lua_State *L, const char *name);
+ +

+Pushes onto the stack the value of the global name. +It is defined as a macro: + +

+     #define lua_getglobal(L,s)  lua_getfield(L, LUA_GLOBALSINDEX, s)
+
+ + + + +

lua_getmetatable

+[-0, +(0|1), -] +

int lua_getmetatable (lua_State *L, int index);
+ +

+Pushes onto the stack the metatable of the value at the given +acceptable index. +If the index is not valid, +or if the value does not have a metatable, +the function returns 0 and pushes nothing on the stack. + + + + + +

lua_gettable

+[-1, +1, e] +

void lua_gettable (lua_State *L, int index);
+ +

+Pushes onto the stack the value t[k], +where t is the value at the given valid index +and k is the value at the top of the stack. + + +

+This function pops the key from the stack +(putting the resulting value in its place). +As in Lua, this function may trigger a metamethod +for the "index" event (see §2.8). + + + + + +

lua_gettop

+[-0, +0, -] +

int lua_gettop (lua_State *L);
+ +

+Returns the index of the top element in the stack. +Because indices start at 1, +this result is equal to the number of elements in the stack +(and so 0 means an empty stack). + + + + + +

lua_insert

+[-1, +1, -] +

void lua_insert (lua_State *L, int index);
+ +

+Moves the top element into the given valid index, +shifting up the elements above this index to open space. +Cannot be called with a pseudo-index, +because a pseudo-index is not an actual stack position. + + + + + +

lua_Integer

+
typedef ptrdiff_t lua_Integer;
+ +

+The type used by the Lua API to represent integral values. + + +

+By default it is a ptrdiff_t, +which is usually the largest signed integral type the machine handles +"comfortably". + + + + + +

lua_isboolean

+[-0, +0, -] +

int lua_isboolean (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index has type boolean, +and 0 otherwise. + + + + + +

lua_iscfunction

+[-0, +0, -] +

int lua_iscfunction (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a C function, +and 0 otherwise. + + + + + +

lua_isfunction

+[-0, +0, -] +

int lua_isfunction (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a function +(either C or Lua), and 0 otherwise. + + + + + +

lua_islightuserdata

+[-0, +0, -] +

int lua_islightuserdata (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a light userdata, +and 0 otherwise. + + + + + +

lua_isnil

+[-0, +0, -] +

int lua_isnil (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is nil, +and 0 otherwise. + + + + + +

lua_isnone

+[-0, +0, -] +

int lua_isnone (lua_State *L, int index);
+ +

+Returns 1 if the given acceptable index is not valid +(that is, it refers to an element outside the current stack), +and 0 otherwise. + + + + + +

lua_isnoneornil

+[-0, +0, -] +

int lua_isnoneornil (lua_State *L, int index);
+ +

+Returns 1 if the given acceptable index is not valid +(that is, it refers to an element outside the current stack) +or if the value at this index is nil, +and 0 otherwise. + + + + + +

lua_isnumber

+[-0, +0, -] +

int lua_isnumber (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a number +or a string convertible to a number, +and 0 otherwise. + + + + + +

lua_isstring

+[-0, +0, -] +

int lua_isstring (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a string +or a number (which is always convertible to a string), +and 0 otherwise. + + + + + +

lua_istable

+[-0, +0, -] +

int lua_istable (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a table, +and 0 otherwise. + + + + + +

lua_isthread

+[-0, +0, -] +

int lua_isthread (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a thread, +and 0 otherwise. + + + + + +

lua_isuserdata

+[-0, +0, -] +

int lua_isuserdata (lua_State *L, int index);
+ +

+Returns 1 if the value at the given acceptable index is a userdata +(either full or light), and 0 otherwise. + + + + + +

lua_lessthan

+[-0, +0, e] +

int lua_lessthan (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the value at acceptable index index1 is smaller +than the value at acceptable index index2, +following the semantics of the Lua < operator +(that is, may call metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices is non valid. + + + + + +

lua_load

+[-0, +1, -] +

int lua_load (lua_State *L,
+              lua_Reader reader,
+              void *data,
+              const char *chunkname);
+ +

+Loads a Lua chunk. +If there are no errors, +lua_load pushes the compiled chunk as a Lua +function on top of the stack. +Otherwise, it pushes an error message. +The return values of lua_load are: + +

    + +
  • 0: no errors;
    • + +
  • LUA_ERRSYNTAX: +syntax error during pre-compilation;
    • + +
  • LUA_ERRMEM: +memory allocation error.
    • + +
+ +

+This function only loads a chunk; +it does not run it. + + +

+lua_load automatically detects whether the chunk is text or binary, +and loads it accordingly (see program luac). + + +

+The lua_load function uses a user-supplied reader function +to read the chunk (see lua_Reader). +The data argument is an opaque value passed to the reader function. + + +

+The chunkname argument gives a name to the chunk, +which is used for error messages and in debug information (see §3.8). + + + + + +

lua_newstate

+[-0, +0, -] +

lua_State *lua_newstate (lua_Alloc f, void *ud);
+ +

+Creates a new, independent state. +Returns NULL if cannot create the state +(due to lack of memory). +The argument f is the allocator function; +Lua does all memory allocation for this state through this function. +The second argument, ud, is an opaque pointer that Lua +simply passes to the allocator in every call. + + + + + +

lua_newtable

+[-0, +1, m] +

void lua_newtable (lua_State *L);
+ +

+Creates a new empty table and pushes it onto the stack. +It is equivalent to lua_createtable(L, 0, 0). + + + + + +

lua_newthread

+[-0, +1, m] +

lua_State *lua_newthread (lua_State *L);
+ +

+Creates a new thread, pushes it on the stack, +and returns a pointer to a lua_State that represents this new thread. +The new state returned by this function shares with the original state +all global objects (such as tables), +but has an independent execution stack. + + +

+There is no explicit function to close or to destroy a thread. +Threads are subject to garbage collection, +like any Lua object. + + + + + +

lua_newuserdata

+[-0, +1, m] +

void *lua_newuserdata (lua_State *L, size_t size);
+ +

+This function allocates a new block of memory with the given size, +pushes onto the stack a new full userdata with the block address, +and returns this address. + + +

+Userdata represent C values in Lua. +A full userdata represents a block of memory. +It is an object (like a table): +you must create it, it can have its own metatable, +and you can detect when it is being collected. +A full userdata is only equal to itself (under raw equality). + + +

+When Lua collects a full userdata with a gc metamethod, +Lua calls the metamethod and marks the userdata as finalized. +When this userdata is collected again then +Lua frees its corresponding memory. + + + + + +

lua_next

+[-1, +(2|0), e] +

int lua_next (lua_State *L, int index);
+ +

+Pops a key from the stack, +and pushes a key-value pair from the table at the given index +(the "next" pair after the given key). +If there are no more elements in the table, +then lua_next returns 0 (and pushes nothing). + + +

+A typical traversal looks like this: + +

+     /* table is in the stack at index 't' */
+     lua_pushnil(L);  /* first key */
+     while (lua_next(L, t) != 0) {
+       /* uses 'key' (at index -2) and 'value' (at index -1) */
+       printf("%s - %s\n",
+              lua_typename(L, lua_type(L, -2)),
+              lua_typename(L, lua_type(L, -1)));
+       /* removes 'value'; keeps 'key' for next iteration */
+       lua_pop(L, 1);
+     }
+
+ +

+While traversing a table, +do not call lua_tolstring directly on a key, +unless you know that the key is actually a string. +Recall that lua_tolstring changes +the value at the given index; +this confuses the next call to lua_next. + + + + + +

lua_Number

+
typedef double lua_Number;
+ +

+The type of numbers in Lua. +By default, it is double, but that can be changed in luaconf.h. + + +

+Through the configuration file you can change +Lua to operate with another type for numbers (e.g., float or long). + + + + + +

lua_objlen

+[-0, +0, -] +

size_t lua_objlen (lua_State *L, int index);
+ +

+Returns the "length" of the value at the given acceptable index: +for strings, this is the string length; +for tables, this is the result of the length operator ('#'); +for userdata, this is the size of the block of memory allocated +for the userdata; +for other values, it is 0. + + + + + +

lua_pcall

+[-(nargs + 1), +(nresults|1), -] +

int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc);
+ +

+Calls a function in protected mode. + + +

+Both nargs and nresults have the same meaning as +in lua_call. +If there are no errors during the call, +lua_pcall behaves exactly like lua_call. +However, if there is any error, +lua_pcall catches it, +pushes a single value on the stack (the error message), +and returns an error code. +Like lua_call, +lua_pcall always removes the function +and its arguments from the stack. + + +

+If errfunc is 0, +then the error message returned on the stack +is exactly the original error message. +Otherwise, errfunc is the stack index of an +error handler function. +(In the current implementation, this index cannot be a pseudo-index.) +In case of runtime errors, +this function will be called with the error message +and its return value will be the message returned on the stack by lua_pcall. + + +

+Typically, the error handler function is used to add more debug +information to the error message, such as a stack traceback. +Such information cannot be gathered after the return of lua_pcall, +since by then the stack has unwound. + + +

+The lua_pcall function returns 0 in case of success +or one of the following error codes +(defined in lua.h): + +

    + +
  • LUA_ERRRUN: +a runtime error. +
    • + +
  • LUA_ERRMEM: +memory allocation error. +For such errors, Lua does not call the error handler function. +
    • + +
  • LUA_ERRERR: +error while running the error handler function. +
    • + +
+ + + + +

lua_pop

+[-n, +0, -] +

void lua_pop (lua_State *L, int n);
+ +

+Pops n elements from the stack. + + + + + +

lua_pushboolean

+[-0, +1, -] +

void lua_pushboolean (lua_State *L, int b);
+ +

+Pushes a boolean value with value b onto the stack. + + + + + +

lua_pushcclosure

+[-n, +1, m] +

void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);
+ +

+Pushes a new C closure onto the stack. + + +

+When a C function is created, +it is possible to associate some values with it, +thus creating a C closure (see §3.4); +these values are then accessible to the function whenever it is called. +To associate values with a C function, +first these values should be pushed onto the stack +(when there are multiple values, the first value is pushed first). +Then lua_pushcclosure +is called to create and push the C function onto the stack, +with the argument n telling how many values should be +associated with the function. +lua_pushcclosure also pops these values from the stack. + + +

+The maximum value for n is 255. + + + + + +

lua_pushcfunction

+[-0, +1, m] +

void lua_pushcfunction (lua_State *L, lua_CFunction f);
+ +

+Pushes a C function onto the stack. +This function receives a pointer to a C function +and pushes onto the stack a Lua value of type function that, +when called, invokes the corresponding C function. + + +

+Any function to be registered in Lua must +follow the correct protocol to receive its parameters +and return its results (see lua_CFunction). + + +

+lua_pushcfunction is defined as a macro: + +

+     #define lua_pushcfunction(L,f)  lua_pushcclosure(L,f,0)
+
+ + + + +

lua_pushfstring

+[-0, +1, m] +

const char *lua_pushfstring (lua_State *L, const char *fmt, ...);
+ +

+Pushes onto the stack a formatted string +and returns a pointer to this string. +It is similar to the C function sprintf, +but has some important differences: + +

    + +
  • +You do not have to allocate space for the result: +the result is a Lua string and Lua takes care of memory allocation +(and deallocation, through garbage collection). +
    • + +
  • +The conversion specifiers are quite restricted. +There are no flags, widths, or precisions. +The conversion specifiers can only be +'%%' (inserts a '%' in the string), +'%s' (inserts a zero-terminated string, with no size restrictions), +'%f' (inserts a lua_Number), +'%p' (inserts a pointer as a hexadecimal numeral), +'%d' (inserts an int), and +'%c' (inserts an int as a character). +
    • + +
+ + + + +

lua_pushinteger

+[-0, +1, -] +

void lua_pushinteger (lua_State *L, lua_Integer n);
+ +

+Pushes a number with value n onto the stack. + + + + + +

lua_pushlightuserdata

+[-0, +1, -] +

void lua_pushlightuserdata (lua_State *L, void *p);
+ +

+Pushes a light userdata onto the stack. + + +

+Userdata represent C values in Lua. +A light userdata represents a pointer. +It is a value (like a number): +you do not create it, it has no individual metatable, +and it is not collected (as it was never created). +A light userdata is equal to "any" +light userdata with the same C address. + + + + + +

lua_pushliteral

+[-0, +1, m] +

void lua_pushliteral (lua_State *L, const char *s);
+ +

+This macro is equivalent to lua_pushlstring, +but can be used only when s is a literal string. +In these cases, it automatically provides the string length. + + + + + +

lua_pushlstring

+[-0, +1, m] +

void lua_pushlstring (lua_State *L, const char *s, size_t len);
+ +

+Pushes the string pointed to by s with size len +onto the stack. +Lua makes (or reuses) an internal copy of the given string, +so the memory at s can be freed or reused immediately after +the function returns. +The string can contain embedded zeros. + + + + + +

lua_pushnil

+[-0, +1, -] +

void lua_pushnil (lua_State *L);
+ +

+Pushes a nil value onto the stack. + + + + + +

lua_pushnumber

+[-0, +1, -] +

void lua_pushnumber (lua_State *L, lua_Number n);
+ +

+Pushes a number with value n onto the stack. + + + + + +

lua_pushstring

+[-0, +1, m] +

void lua_pushstring (lua_State *L, const char *s);
+ +

+Pushes the zero-terminated string pointed to by s +onto the stack. +Lua makes (or reuses) an internal copy of the given string, +so the memory at s can be freed or reused immediately after +the function returns. +The string cannot contain embedded zeros; +it is assumed to end at the first zero. + + + + + +

lua_pushthread

+[-0, +1, -] +

int lua_pushthread (lua_State *L);
+ +

+Pushes the thread represented by L onto the stack. +Returns 1 if this thread is the main thread of its state. + + + + + +

lua_pushvalue

+[-0, +1, -] +

void lua_pushvalue (lua_State *L, int index);
+ +

+Pushes a copy of the element at the given valid index +onto the stack. + + + + + +

lua_pushvfstring

+[-0, +1, m] +

const char *lua_pushvfstring (lua_State *L,
+                              const char *fmt,
+                              va_list argp);
+ +

+Equivalent to lua_pushfstring, except that it receives a va_list +instead of a variable number of arguments. + + + + + +

lua_rawequal

+[-0, +0, -] +

int lua_rawequal (lua_State *L, int index1, int index2);
+ +

+Returns 1 if the two values in acceptable indices index1 and +index2 are primitively equal +(that is, without calling metamethods). +Otherwise returns 0. +Also returns 0 if any of the indices are non valid. + + + + + +

lua_rawget

+[-1, +1, -] +

void lua_rawget (lua_State *L, int index);
+ +

+Similar to lua_gettable, but does a raw access +(i.e., without metamethods). + + + + + +

lua_rawgeti

+[-0, +1, -] +

void lua_rawgeti (lua_State *L, int index, int n);
+ +

+Pushes onto the stack the value t[n], +where t is the value at the given valid index. +The access is raw; +that is, it does not invoke metamethods. + + + + + +

lua_rawset

+[-2, +0, m] +

void lua_rawset (lua_State *L, int index);
+ +

+Similar to lua_settable, but does a raw assignment +(i.e., without metamethods). + + + + + +

lua_rawseti

+[-1, +0, m] +

void lua_rawseti (lua_State *L, int index, int n);
+ +

+Does the equivalent of t[n] = v, +where t is the value at the given valid index +and v is the value at the top of the stack. + + +

+This function pops the value from the stack. +The assignment is raw; +that is, it does not invoke metamethods. + + + + + +

lua_Reader

+
typedef const char * (*lua_Reader) (lua_State *L,
+                                    void *data,
+                                    size_t *size);
+ +

+The reader function used by lua_load. +Every time it needs another piece of the chunk, +lua_load calls the reader, +passing along its data parameter. +The reader must return a pointer to a block of memory +with a new piece of the chunk +and set size to the block size. +The block must exist until the reader function is called again. +To signal the end of the chunk, +the reader must return NULL or set size to zero. +The reader function may return pieces of any size greater than zero. + + + + + +

lua_register

+[-0, +0, e] +

void lua_register (lua_State *L,
+                   const char *name,
+                   lua_CFunction f);
+ +

+Sets the C function f as the new value of global name. +It is defined as a macro: + +

+     #define lua_register(L,n,f) \
+            (lua_pushcfunction(L, f), lua_setglobal(L, n))
+
+ + + + +

lua_remove

+[-1, +0, -] +

void lua_remove (lua_State *L, int index);
+ +

+Removes the element at the given valid index, +shifting down the elements above this index to fill the gap. +Cannot be called with a pseudo-index, +because a pseudo-index is not an actual stack position. + + + + + +

lua_replace

+[-1, +0, -] +

void lua_replace (lua_State *L, int index);
+ +

+Moves the top element into the given position (and pops it), +without shifting any element +(therefore replacing the value at the given position). + + + + + +

lua_resume

+[-?, +?, -] +

int lua_resume (lua_State *L, int narg);
+ +

+Starts and resumes a coroutine in a given thread. + + +

+To start a coroutine, you first create a new thread +(see lua_newthread); +then you push onto its stack the main function plus any arguments; +then you call lua_resume, +with narg being the number of arguments. +This call returns when the coroutine suspends or finishes its execution. +When it returns, the stack contains all values passed to lua_yield, +or all values returned by the body function. +lua_resume returns +LUA_YIELD if the coroutine yields, +0 if the coroutine finishes its execution +without errors, +or an error code in case of errors (see lua_pcall). +In case of errors, +the stack is not unwound, +so you can use the debug API over it. +The error message is on the top of the stack. +To restart a coroutine, you put on its stack only the values to +be passed as results from yield, +and then call lua_resume. + + + + + +

lua_setallocf

+[-0, +0, -] +

void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
+ +

+Changes the allocator function of a given state to f +with user data ud. + + + + + +

lua_setfenv

+[-1, +0, -] +

int lua_setfenv (lua_State *L, int index);
+ +

+Pops a table from the stack and sets it as +the new environment for the value at the given index. +If the value at the given index is +neither a function nor a thread nor a userdata, +lua_setfenv returns 0. +Otherwise it returns 1. + + + + + +

lua_setfield

+[-1, +0, e] +

void lua_setfield (lua_State *L, int index, const char *k);
+ +

+Does the equivalent to t[k] = v, +where t is the value at the given valid index +and v is the value at the top of the stack. + + +

+This function pops the value from the stack. +As in Lua, this function may trigger a metamethod +for the "newindex" event (see §2.8). + + + + + +

lua_setglobal

+[-1, +0, e] +

void lua_setglobal (lua_State *L, const char *name);
+ +

+Pops a value from the stack and +sets it as the new value of global name. +It is defined as a macro: + +

+     #define lua_setglobal(L,s)   lua_setfield(L, LUA_GLOBALSINDEX, s)
+
+ + + + +

lua_setmetatable

+[-1, +0, -] +

int lua_setmetatable (lua_State *L, int index);
+ +

+Pops a table from the stack and +sets it as the new metatable for the value at the given +acceptable index. + + + + + +

lua_settable

+[-2, +0, e] +

void lua_settable (lua_State *L, int index);
+ +

+Does the equivalent to t[k] = v, +where t is the value at the given valid index, +v is the value at the top of the stack, +and k is the value just below the top. + + +

+This function pops both the key and the value from the stack. +As in Lua, this function may trigger a metamethod +for the "newindex" event (see §2.8). + + + + + +

lua_settop

+[-?, +?, -] +

void lua_settop (lua_State *L, int index);
+ +

+Accepts any acceptable index, or 0, +and sets the stack top to this index. +If the new top is larger than the old one, +then the new elements are filled with nil. +If index is 0, then all stack elements are removed. + + + + + +

lua_State

+
typedef struct lua_State lua_State;
+ +

+Opaque structure that keeps the whole state of a Lua interpreter. +The Lua library is fully reentrant: +it has no global variables. +All information about a state is kept in this structure. + + +

+A pointer to this state must be passed as the first argument to +every function in the library, except to lua_newstate, +which creates a Lua state from scratch. + + + + + +

lua_status

+[-0, +0, -] +

int lua_status (lua_State *L);
+ +

+Returns the status of the thread L. + + +

+The status can be 0 for a normal thread, +an error code if the thread finished its execution with an error, +or LUA_YIELD if the thread is suspended. + + + + + +

lua_toboolean

+[-0, +0, -] +

int lua_toboolean (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index to a C boolean +value (0 or 1). +Like all tests in Lua, +lua_toboolean returns 1 for any Lua value +different from false and nil; +otherwise it returns 0. +It also returns 0 when called with a non-valid index. +(If you want to accept only actual boolean values, +use lua_isboolean to test the value's type.) + + + + + +

lua_tocfunction

+[-0, +0, -] +

lua_CFunction lua_tocfunction (lua_State *L, int index);
+ +

+Converts a value at the given acceptable index to a C function. +That value must be a C function; +otherwise, returns NULL. + + + + + +

lua_tointeger

+[-0, +0, -] +

lua_Integer lua_tointeger (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index +to the signed integral type lua_Integer. +The Lua value must be a number or a string convertible to a number +(see §2.2.1); +otherwise, lua_tointeger returns 0. + + +

+If the number is not an integer, +it is truncated in some non-specified way. + + + + + +

lua_tolstring

+[-0, +0, m] +

const char *lua_tolstring (lua_State *L, int index, size_t *len);
+ +

+Converts the Lua value at the given acceptable index to a C string. +If len is not NULL, +it also sets *len with the string length. +The Lua value must be a string or a number; +otherwise, the function returns NULL. +If the value is a number, +then lua_tolstring also +changes the actual value in the stack to a string. +(This change confuses lua_next +when lua_tolstring is applied to keys during a table traversal.) + + +

+lua_tolstring returns a fully aligned pointer +to a string inside the Lua state. +This string always has a zero ('\0') +after its last character (as in C), +but can contain other zeros in its body. +Because Lua has garbage collection, +there is no guarantee that the pointer returned by lua_tolstring +will be valid after the corresponding value is removed from the stack. + + + + + +

lua_tonumber

+[-0, +0, -] +

lua_Number lua_tonumber (lua_State *L, int index);
+ +

+Converts the Lua value at the given acceptable index +to the C type lua_Number (see lua_Number). +The Lua value must be a number or a string convertible to a number +(see §2.2.1); +otherwise, lua_tonumber returns 0. + + + + + +

lua_topointer

+[-0, +0, -] +

const void *lua_topointer (lua_State *L, int index);
+ +

+Converts the value at the given acceptable index to a generic +C pointer (void*). +The value can be a userdata, a table, a thread, or a function; +otherwise, lua_topointer returns NULL. +Different objects will give different pointers. +There is no way to convert the pointer back to its original value. + + +

+Typically this function is used only for debug information. + + + + + +

lua_tostring

+[-0, +0, m] +

const char *lua_tostring (lua_State *L, int index);
+ +

+Equivalent to lua_tolstring with len equal to NULL. + + + + + +

lua_tothread

+[-0, +0, -] +

lua_State *lua_tothread (lua_State *L, int index);
+ +

+Converts the value at the given acceptable index to a Lua thread +(represented as lua_State*). +This value must be a thread; +otherwise, the function returns NULL. + + + + + +

lua_touserdata

+[-0, +0, -] +

void *lua_touserdata (lua_State *L, int index);
+ +

+If the value at the given acceptable index is a full userdata, +returns its block address. +If the value is a light userdata, +returns its pointer. +Otherwise, returns NULL. + + + + + +

lua_type

+[-0, +0, -] +

int lua_type (lua_State *L, int index);
+ +

+Returns the type of the value in the given acceptable index, +or LUA_TNONE for a non-valid index +(that is, an index to an "empty" stack position). +The types returned by lua_type are coded by the following constants +defined in lua.h: +LUA_TNIL, +LUA_TNUMBER, +LUA_TBOOLEAN, +LUA_TSTRING, +LUA_TTABLE, +LUA_TFUNCTION, +LUA_TUSERDATA, +LUA_TTHREAD, +and +LUA_TLIGHTUSERDATA. + + + + + +

lua_typename

+[-0, +0, -] +

const char *lua_typename  (lua_State *L, int tp);
+ +

+Returns the name of the type encoded by the value tp, +which must be one the values returned by lua_type. + + + + + +

lua_Writer

+
typedef int (*lua_Writer) (lua_State *L,
+                           const void* p,
+                           size_t sz,
+                           void* ud);
+ +

+The type of the writer function used by lua_dump. +Every time it produces another piece of chunk, +lua_dump calls the writer, +passing along the buffer to be written (p), +its size (sz), +and the data parameter supplied to lua_dump. + + +

+The writer returns an error code: +0 means no errors; +any other value means an error and stops lua_dump from +calling the writer again. + + + + + +

lua_xmove

+[-?, +?, -] +

void lua_xmove (lua_State *from, lua_State *to, int n);
+ +

+Exchange values between different threads of the same global state. + + +

+This function pops n values from the stack from, +and pushes them onto the stack to. + + + + + +

lua_yield

+[-?, +?, -] +

int lua_yield  (lua_State *L, int nresults);
+ +

+Yields a coroutine. + + +

+This function should only be called as the +return expression of a C function, as follows: + +

+     return lua_yield (L, nresults);
+

+When a C function calls lua_yield in that way, +the running coroutine suspends its execution, +and the call to lua_resume that started this coroutine returns. +The parameter nresults is the number of values from the stack +that are passed as results to lua_resume. + + + + + + + +

3.8 - The Debug Interface

+ +

+Lua has no built-in debugging facilities. +Instead, it offers a special interface +by means of functions and hooks. +This interface allows the construction of different +kinds of debuggers, profilers, and other tools +that need "inside information" from the interpreter. + + + +

lua_Debug

+
typedef struct lua_Debug {
+  int event;
+  const char *name;           /* (n) */
+  const char *namewhat;       /* (n) */
+  const char *what;           /* (S) */
+  const char *source;         /* (S) */
+  int currentline;            /* (l) */
+  int nups;                   /* (u) number of upvalues */
+  int linedefined;            /* (S) */
+  int lastlinedefined;        /* (S) */
+  char short_src[LUA_IDSIZE]; /* (S) */
+  /* private part */
+  other fields
+} lua_Debug;
+ +

+A structure used to carry different pieces of +information about an active function. +lua_getstack fills only the private part +of this structure, for later use. +To fill the other fields of lua_Debug with useful information, +call lua_getinfo. + + +

+The fields of lua_Debug have the following meaning: + +

    + +
  • source: +If the function was defined in a string, +then source is that string. +If the function was defined in a file, +then source starts with a '@' followed by the file name. +
    • + +
  • short_src: +a "printable" version of source, to be used in error messages. +
    • + +
  • linedefined: +the line number where the definition of the function starts. +
    • + +
  • lastlinedefined: +the line number where the definition of the function ends. +
    • + +
  • what: +the string "Lua" if the function is a Lua function, +"C" if it is a C function, +"main" if it is the main part of a chunk, +and "tail" if it was a function that did a tail call. +In the latter case, +Lua has no other information about the function. +
    • + +
  • currentline: +the current line where the given function is executing. +When no line information is available, +currentline is set to -1. +
    • + +
  • name: +a reasonable name for the given function. +Because functions in Lua are first-class values, +they do not have a fixed name: +some functions can be the value of multiple global variables, +while others can be stored only in a table field. +The lua_getinfo function checks how the function was +called to find a suitable name. +If it cannot find a name, +then name is set to NULL. +
    • + +
  • namewhat: +explains the name field. +The value of namewhat can be +"global", "local", "method", +"field", "upvalue", or "" (the empty string), +according to how the function was called. +(Lua uses the empty string when no other option seems to apply.) +
    • + +
  • nups: +the number of upvalues of the function. +
    • + +
+ + + + +

lua_gethook

+[-0, +0, -] +

lua_Hook lua_gethook (lua_State *L);
+ +

+Returns the current hook function. + + + + + +

lua_gethookcount

+[-0, +0, -] +

int lua_gethookcount (lua_State *L);
+ +

+Returns the current hook count. + + + + + +

lua_gethookmask

+[-0, +0, -] +

int lua_gethookmask (lua_State *L);
+ +

+Returns the current hook mask. + + + + + +

lua_getinfo

+[-(0|1), +(0|1|2), m] +

int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);
+ +

+Returns information about a specific function or function invocation. + + +

+To get information about a function invocation, +the parameter ar must be a valid activation record that was +filled by a previous call to lua_getstack or +given as argument to a hook (see lua_Hook). + + +

+To get information about a function you push it onto the stack +and start the what string with the character '>'. +(In that case, +lua_getinfo pops the function in the top of the stack.) +For instance, to know in which line a function f was defined, +you can write the following code: + +

+     lua_Debug ar;
+     lua_getfield(L, LUA_GLOBALSINDEX, "f");  /* get global 'f' */
+     lua_getinfo(L, ">S", &ar);
+     printf("%d\n", ar.linedefined);
+
+ +

+Each character in the string what +selects some fields of the structure ar to be filled or +a value to be pushed on the stack: + +

    + +
  • 'n': fills in the field name and namewhat; +
    • + +
  • 'S': +fills in the fields source, short_src, +linedefined, lastlinedefined, and what; +
    • + +
  • 'l': fills in the field currentline; +
    • + +
  • 'u': fills in the field nups; +
    • + +
  • 'f': +pushes onto the stack the function that is +running at the given level; +
    • + +
  • 'L': +pushes onto the stack a table whose indices are the +numbers of the lines that are valid on the function. +(A valid line is a line with some associated code, +that is, a line where you can put a break point. +Non-valid lines include empty lines and comments.) +
    • + +
+ +

+This function returns 0 on error +(for instance, an invalid option in what). + + + + + +

lua_getlocal

+[-0, +(0|1), -] +

const char *lua_getlocal (lua_State *L, lua_Debug *ar, int n);
+ +

+Gets information about a local variable of a given activation record. +The parameter ar must be a valid activation record that was +filled by a previous call to lua_getstack or +given as argument to a hook (see lua_Hook). +The index n selects which local variable to inspect +(1 is the first parameter or active local variable, and so on, +until the last active local variable). +lua_getlocal pushes the variable's value onto the stack +and returns its name. + + +

+Variable names starting with '(' (open parentheses) +represent internal variables +(loop control variables, temporaries, and C function locals). + + +

+Returns NULL (and pushes nothing) +when the index is greater than +the number of active local variables. + + + + + +

lua_getstack

+[-0, +0, -] +

int lua_getstack (lua_State *L, int level, lua_Debug *ar);
+ +

+Get information about the interpreter runtime stack. + + +

+This function fills parts of a lua_Debug structure with +an identification of the activation record +of the function executing at a given level. +Level 0 is the current running function, +whereas level n+1 is the function that has called level n. +When there are no errors, lua_getstack returns 1; +when called with a level greater than the stack depth, +it returns 0. + + + + + +

lua_getupvalue

+[-0, +(0|1), -] +

const char *lua_getupvalue (lua_State *L, int funcindex, int n);
+ +

+Gets information about a closure's upvalue. +(For Lua functions, +upvalues are the external local variables that the function uses, +and that are consequently included in its closure.) +lua_getupvalue gets the index n of an upvalue, +pushes the upvalue's value onto the stack, +and returns its name. +funcindex points to the closure in the stack. +(Upvalues have no particular order, +as they are active through the whole function. +So, they are numbered in an arbitrary order.) + + +

+Returns NULL (and pushes nothing) +when the index is greater than the number of upvalues. +For C functions, this function uses the empty string "" +as a name for all upvalues. + + + + + +

lua_Hook

+
typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
+ +

+Type for debugging hook functions. + + +

+Whenever a hook is called, its ar argument has its field +event set to the specific event that triggered the hook. +Lua identifies these events with the following constants: +LUA_HOOKCALL, LUA_HOOKRET, +LUA_HOOKTAILRET, LUA_HOOKLINE, +and LUA_HOOKCOUNT. +Moreover, for line events, the field currentline is also set. +To get the value of any other field in ar, +the hook must call lua_getinfo. +For return events, event can be LUA_HOOKRET, +the normal value, or LUA_HOOKTAILRET. +In the latter case, Lua is simulating a return from +a function that did a tail call; +in this case, it is useless to call lua_getinfo. + + +

+While Lua is running a hook, it disables other calls to hooks. +Therefore, if a hook calls back Lua to execute a function or a chunk, +this execution occurs without any calls to hooks. + + + + + +

lua_sethook

+[-0, +0, -] +

int lua_sethook (lua_State *L, lua_Hook f, int mask, int count);
+ +

+Sets the debugging hook function. + + +

+Argument f is the hook function. +mask specifies on which events the hook will be called: +it is formed by a bitwise or of the constants +LUA_MASKCALL, +LUA_MASKRET, +LUA_MASKLINE, +and LUA_MASKCOUNT. +The count argument is only meaningful when the mask +includes LUA_MASKCOUNT. +For each event, the hook is called as explained below: + +

    + +
  • The call hook: is called when the interpreter calls a function. +The hook is called just after Lua enters the new function, +before the function gets its arguments. +
    • + +
  • The return hook: is called when the interpreter returns from a function. +The hook is called just before Lua leaves the function. +You have no access to the values to be returned by the function. +
    • + +
  • The line hook: is called when the interpreter is about to +start the execution of a new line of code, +or when it jumps back in the code (even to the same line). +(This event only happens while Lua is executing a Lua function.) +
    • + +
  • The count hook: is called after the interpreter executes every +count instructions. +(This event only happens while Lua is executing a Lua function.) +
    • + +
+ +

+A hook is disabled by setting mask to zero. + + + + + +

lua_setlocal

+[-(0|1), +0, -] +

const char *lua_setlocal (lua_State *L, lua_Debug *ar, int n);
+ +

+Sets the value of a local variable of a given activation record. +Parameters ar and n are as in lua_getlocal +(see lua_getlocal). +lua_setlocal assigns the value at the top of the stack +to the variable and returns its name. +It also pops the value from the stack. + + +

+Returns NULL (and pops nothing) +when the index is greater than +the number of active local variables. + + + + + +

lua_setupvalue

+[-(0|1), +0, -] +

const char *lua_setupvalue (lua_State *L, int funcindex, int n);
+ +

+Sets the value of a closure's upvalue. +It assigns the value at the top of the stack +to the upvalue and returns its name. +It also pops the value from the stack. +Parameters funcindex and n are as in the lua_getupvalue +(see lua_getupvalue). + + +

+Returns NULL (and pops nothing) +when the index is greater than the number of upvalues. + + + + + + + +

4 - The Auxiliary Library

+ +

+ +The auxiliary library provides several convenient functions +to interface C with Lua. +While the basic API provides the primitive functions for all +interactions between C and Lua, +the auxiliary library provides higher-level functions for some +common tasks. + + +

+All functions from the auxiliary library +are defined in header file lauxlib.h and +have a prefix luaL_. + + +

+All functions in the auxiliary library are built on +top of the basic API, +and so they provide nothing that cannot be done with this API. + + +

+Several functions in the auxiliary library are used to +check C function arguments. +Their names are always luaL_check* or luaL_opt*. +All of these functions throw an error if the check is not satisfied. +Because the error message is formatted for arguments +(e.g., "bad argument #1"), +you should not use these functions for other stack values. + + + +

4.1 - Functions and Types

+ +

+Here we list all functions and types from the auxiliary library +in alphabetical order. + + + +

luaL_addchar

+[-0, +0, m] +

void luaL_addchar (luaL_Buffer *B, char c);
+ +

+Adds the character c to the buffer B +(see luaL_Buffer). + + + + + +

luaL_addlstring

+[-0, +0, m] +

void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l);
+ +

+Adds the string pointed to by s with length l to +the buffer B +(see luaL_Buffer). +The string may contain embedded zeros. + + + + + +

luaL_addsize

+[-0, +0, m] +

void luaL_addsize (luaL_Buffer *B, size_t n);
+ +

+Adds to the buffer B (see luaL_Buffer) +a string of length n previously copied to the +buffer area (see luaL_prepbuffer). + + + + + +

luaL_addstring

+[-0, +0, m] +

void luaL_addstring (luaL_Buffer *B, const char *s);
+ +

+Adds the zero-terminated string pointed to by s +to the buffer B +(see luaL_Buffer). +The string may not contain embedded zeros. + + + + + +

luaL_addvalue

+[-1, +0, m] +

void luaL_addvalue (luaL_Buffer *B);
+ +

+Adds the value at the top of the stack +to the buffer B +(see luaL_Buffer). +Pops the value. + + +

+This is the only function on string buffers that can (and must) +be called with an extra element on the stack, +which is the value to be added to the buffer. + + + + + +

luaL_argcheck

+[-0, +0, v] +

void luaL_argcheck (lua_State *L,
+                    int cond,
+                    int narg,
+                    const char *extramsg);
+ +

+Checks whether cond is true. +If not, raises an error with the following message, +where func is retrieved from the call stack: + +

+     bad argument #<narg> to <func> (<extramsg>)
+
+ + + + +

luaL_argerror

+[-0, +0, v] +

int luaL_argerror (lua_State *L, int narg, const char *extramsg);
+ +

+Raises an error with the following message, +where func is retrieved from the call stack: + +

+     bad argument #<narg> to <func> (<extramsg>)
+
+ +

+This function never returns, +but it is an idiom to use it in C functions +as return luaL_argerror(args). + + + + + +

luaL_Buffer

+
typedef struct luaL_Buffer luaL_Buffer;
+ +

+Type for a string buffer. + + +

+A string buffer allows C code to build Lua strings piecemeal. +Its pattern of use is as follows: + +

    + +
  • First you declare a variable b of type luaL_Buffer.
    • + +
  • Then you initialize it with a call luaL_buffinit(L, &b).
    • + +
  • +Then you add string pieces to the buffer calling any of +the luaL_add* functions. +
    • + +
  • +You finish by calling luaL_pushresult(&b). +This call leaves the final string on the top of the stack. +
    • + +
+ +

+During its normal operation, +a string buffer uses a variable number of stack slots. +So, while using a buffer, you cannot assume that you know where +the top of the stack is. +You can use the stack between successive calls to buffer operations +as long as that use is balanced; +that is, +when you call a buffer operation, +the stack is at the same level +it was immediately after the previous buffer operation. +(The only exception to this rule is luaL_addvalue.) +After calling luaL_pushresult the stack is back to its +level when the buffer was initialized, +plus the final string on its top. + + + + + +

luaL_buffinit

+[-0, +0, -] +

void luaL_buffinit (lua_State *L, luaL_Buffer *B);
+ +

+Initializes a buffer B. +This function does not allocate any space; +the buffer must be declared as a variable +(see luaL_Buffer). + + + + + +

luaL_callmeta

+[-0, +(0|1), e] +

int luaL_callmeta (lua_State *L, int obj, const char *e);
+ +

+Calls a metamethod. + + +

+If the object at index obj has a metatable and this +metatable has a field e, +this function calls this field and passes the object as its only argument. +In this case this function returns 1 and pushes onto the +stack the value returned by the call. +If there is no metatable or no metamethod, +this function returns 0 (without pushing any value on the stack). + + + + + +

luaL_checkany

+[-0, +0, v] +

void luaL_checkany (lua_State *L, int narg);
+ +

+Checks whether the function has an argument +of any type (including nil) at position narg. + + + + + +

luaL_checkint

+[-0, +0, v] +

int luaL_checkint (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to an int. + + + + + +

luaL_checkinteger

+[-0, +0, v] +

lua_Integer luaL_checkinteger (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to a lua_Integer. + + + + + +

luaL_checklong

+[-0, +0, v] +

long luaL_checklong (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number cast to a long. + + + + + +

luaL_checklstring

+[-0, +0, v] +

const char *luaL_checklstring (lua_State *L, int narg, size_t *l);
+ +

+Checks whether the function argument narg is a string +and returns this string; +if l is not NULL fills *l +with the string's length. + + +

+This function uses lua_tolstring to get its result, +so all conversions and caveats of that function apply here. + + + + + +

luaL_checknumber

+[-0, +0, v] +

lua_Number luaL_checknumber (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a number +and returns this number. + + + + + +

luaL_checkoption

+[-0, +0, v] +

int luaL_checkoption (lua_State *L,
+                      int narg,
+                      const char *def,
+                      const char *const lst[]);
+ +

+Checks whether the function argument narg is a string and +searches for this string in the array lst +(which must be NULL-terminated). +Returns the index in the array where the string was found. +Raises an error if the argument is not a string or +if the string cannot be found. + + +

+If def is not NULL, +the function uses def as a default value when +there is no argument narg or if this argument is nil. + + +

+This is a useful function for mapping strings to C enums. +(The usual convention in Lua libraries is +to use strings instead of numbers to select options.) + + + + + +

luaL_checkstack

+[-0, +0, v] +

void luaL_checkstack (lua_State *L, int sz, const char *msg);
+ +

+Grows the stack size to top + sz elements, +raising an error if the stack cannot grow to that size. +msg is an additional text to go into the error message. + + + + + +

luaL_checkstring

+[-0, +0, v] +

const char *luaL_checkstring (lua_State *L, int narg);
+ +

+Checks whether the function argument narg is a string +and returns this string. + + +

+This function uses lua_tolstring to get its result, +so all conversions and caveats of that function apply here. + + + + + +

luaL_checktype

+[-0, +0, v] +

void luaL_checktype (lua_State *L, int narg, int t);
+ +

+Checks whether the function argument narg has type t. +See lua_type for the encoding of types for t. + + + + + +

luaL_checkudata

+[-0, +0, v] +

void *luaL_checkudata (lua_State *L, int narg, const char *tname);
+ +

+Checks whether the function argument narg is a userdata +of the type tname (see luaL_newmetatable). + + + + + +

luaL_dofile

+[-0, +?, m] +

int luaL_dofile (lua_State *L, const char *filename);
+ +

+Loads and runs the given file. +It is defined as the following macro: + +

+     (luaL_loadfile(L, filename) || lua_pcall(L, 0, LUA_MULTRET, 0))
+

+It returns 0 if there are no errors +or 1 in case of errors. + + + + + +

luaL_dostring

+[-0, +?, m] +

int luaL_dostring (lua_State *L, const char *str);
+ +

+Loads and runs the given string. +It is defined as the following macro: + +

+     (luaL_loadstring(L, str) || lua_pcall(L, 0, LUA_MULTRET, 0))
+

+It returns 0 if there are no errors +or 1 in case of errors. + + + + + +

luaL_error

+[-0, +0, v] +

int luaL_error (lua_State *L, const char *fmt, ...);
+ +

+Raises an error. +The error message format is given by fmt +plus any extra arguments, +following the same rules of lua_pushfstring. +It also adds at the beginning of the message the file name and +the line number where the error occurred, +if this information is available. + + +

+This function never returns, +but it is an idiom to use it in C functions +as return luaL_error(args). + + + + + +

luaL_getmetafield

+[-0, +(0|1), m] +

int luaL_getmetafield (lua_State *L, int obj, const char *e);
+ +

+Pushes onto the stack the field e from the metatable +of the object at index obj. +If the object does not have a metatable, +or if the metatable does not have this field, +returns 0 and pushes nothing. + + + + + +

luaL_getmetatable

+[-0, +1, -] +

void luaL_getmetatable (lua_State *L, const char *tname);
+ +

+Pushes onto the stack the metatable associated with name tname +in the registry (see luaL_newmetatable). + + + + + +

luaL_gsub

+[-0, +1, m] +

const char *luaL_gsub (lua_State *L,
+                       const char *s,
+                       const char *p,
+                       const char *r);
+ +

+Creates a copy of string s by replacing +any occurrence of the string p +with the string r. +Pushes the resulting string on the stack and returns it. + + + + + +

luaL_loadbuffer

+[-0, +1, m] +

int luaL_loadbuffer (lua_State *L,
+                     const char *buff,
+                     size_t sz,
+                     const char *name);
+ +

+Loads a buffer as a Lua chunk. +This function uses lua_load to load the chunk in the +buffer pointed to by buff with size sz. + + +

+This function returns the same results as lua_load. +name is the chunk name, +used for debug information and error messages. + + + + + +

luaL_loadfile

+[-0, +1, m] +

int luaL_loadfile (lua_State *L, const char *filename);
+ +

+Loads a file as a Lua chunk. +This function uses lua_load to load the chunk in the file +named filename. +If filename is NULL, +then it loads from the standard input. +The first line in the file is ignored if it starts with a #. + + +

+This function returns the same results as lua_load, +but it has an extra error code LUA_ERRFILE +if it cannot open/read the file. + + +

+As lua_load, this function only loads the chunk; +it does not run it. + + + + + +

luaL_loadstring

+[-0, +1, m] +

int luaL_loadstring (lua_State *L, const char *s);
+ +

+Loads a string as a Lua chunk. +This function uses lua_load to load the chunk in +the zero-terminated string s. + + +

+This function returns the same results as lua_load. + + +

+Also as lua_load, this function only loads the chunk; +it does not run it. + + + + + +

luaL_newmetatable

+[-0, +1, m] +

int luaL_newmetatable (lua_State *L, const char *tname);
+ +

+If the registry already has the key tname, +returns 0. +Otherwise, +creates a new table to be used as a metatable for userdata, +adds it to the registry with key tname, +and returns 1. + + +

+In both cases pushes onto the stack the final value associated +with tname in the registry. + + + + + +

luaL_newstate

+[-0, +0, -] +

lua_State *luaL_newstate (void);
+ +

+Creates a new Lua state. +It calls lua_newstate with an +allocator based on the standard C realloc function +and then sets a panic function (see lua_atpanic) that prints +an error message to the standard error output in case of fatal +errors. + + +

+Returns the new state, +or NULL if there is a memory allocation error. + + + + + +

luaL_openlibs

+[-0, +0, m] +

void luaL_openlibs (lua_State *L);
+ +

+Opens all standard Lua libraries into the given state. + + + + + +

luaL_optint

+[-0, +0, v] +

int luaL_optint (lua_State *L, int narg, int d);
+ +

+If the function argument narg is a number, +returns this number cast to an int. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optinteger

+[-0, +0, v] +

lua_Integer luaL_optinteger (lua_State *L,
+                             int narg,
+                             lua_Integer d);
+ +

+If the function argument narg is a number, +returns this number cast to a lua_Integer. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optlong

+[-0, +0, v] +

long luaL_optlong (lua_State *L, int narg, long d);
+ +

+If the function argument narg is a number, +returns this number cast to a long. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optlstring

+[-0, +0, v] +

const char *luaL_optlstring (lua_State *L,
+                             int narg,
+                             const char *d,
+                             size_t *l);
+ +

+If the function argument narg is a string, +returns this string. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + +

+If l is not NULL, +fills the position *l with the results's length. + + + + + +

luaL_optnumber

+[-0, +0, v] +

lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number d);
+ +

+If the function argument narg is a number, +returns this number. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_optstring

+[-0, +0, v] +

const char *luaL_optstring (lua_State *L,
+                            int narg,
+                            const char *d);
+ +

+If the function argument narg is a string, +returns this string. +If this argument is absent or is nil, +returns d. +Otherwise, raises an error. + + + + + +

luaL_prepbuffer

+[-0, +0, -] +

char *luaL_prepbuffer (luaL_Buffer *B);
+ +

+Returns an address to a space of size LUAL_BUFFERSIZE +where you can copy a string to be added to buffer B +(see luaL_Buffer). +After copying the string into this space you must call +luaL_addsize with the size of the string to actually add +it to the buffer. + + + + + +

luaL_pushresult

+[-?, +1, m] +

void luaL_pushresult (luaL_Buffer *B);
+ +

+Finishes the use of buffer B leaving the final string on +the top of the stack. + + + + + +

luaL_ref

+[-1, +0, m] +

int luaL_ref (lua_State *L, int t);
+ +

+Creates and returns a reference, +in the table at index t, +for the object at the top of the stack (and pops the object). + + +

+A reference is a unique integer key. +As long as you do not manually add integer keys into table t, +luaL_ref ensures the uniqueness of the key it returns. +You can retrieve an object referred by reference r +by calling lua_rawgeti(L, t, r). +Function luaL_unref frees a reference and its associated object. + + +

+If the object at the top of the stack is nil, +luaL_ref returns the constant LUA_REFNIL. +The constant LUA_NOREF is guaranteed to be different +from any reference returned by luaL_ref. + + + + + +

luaL_Reg

+
typedef struct luaL_Reg {
+  const char *name;
+  lua_CFunction func;
+} luaL_Reg;
+ +

+Type for arrays of functions to be registered by +luaL_register. +name is the function name and func is a pointer to +the function. +Any array of luaL_Reg must end with an sentinel entry +in which both name and func are NULL. + + + + + +

luaL_register

+[-(0|1), +1, m] +

void luaL_register (lua_State *L,
+                    const char *libname,
+                    const luaL_Reg *l);
+ +

+Opens a library. + + +

+When called with libname equal to NULL, +it simply registers all functions in the list l +(see luaL_Reg) into the table on the top of the stack. + + +

+When called with a non-null libname, +luaL_register creates a new table t, +sets it as the value of the global variable libname, +sets it as the value of package.loaded[libname], +and registers on it all functions in the list l. +If there is a table in package.loaded[libname] or in +variable libname, +reuses this table instead of creating a new one. + + +

+In any case the function leaves the table +on the top of the stack. + + + + + +

luaL_typename

+[-0, +0, -] +

const char *luaL_typename (lua_State *L, int index);
+ +

+Returns the name of the type of the value at the given index. + + + + + +

luaL_typerror

+[-0, +0, v] +

int luaL_typerror (lua_State *L, int narg, const char *tname);
+ +

+Generates an error with a message like the following: + +

+     location: bad argument narg to 'func' (tname expected, got rt)
+

+where location is produced by luaL_where, +func is the name of the current function, +and rt is the type name of the actual argument. + + + + + +

luaL_unref

+[-0, +0, -] +

void luaL_unref (lua_State *L, int t, int ref);
+ +

+Releases reference ref from the table at index t +(see luaL_ref). +The entry is removed from the table, +so that the referred object can be collected. +The reference ref is also freed to be used again. + + +

+If ref is LUA_NOREF or LUA_REFNIL, +luaL_unref does nothing. + + + + + +

luaL_where

+[-0, +1, m] +

void luaL_where (lua_State *L, int lvl);
+ +

+Pushes onto the stack a string identifying the current position +of the control at level lvl in the call stack. +Typically this string has the following format: + +

+     chunkname:currentline:
+

+Level 0 is the running function, +level 1 is the function that called the running function, +etc. + + +

+This function is used to build a prefix for error messages. + + + + + + + +

5 - Standard Libraries

+ +

+The standard Lua libraries provide useful functions +that are implemented directly through the C API. +Some of these functions provide essential services to the language +(e.g., type and getmetatable); +others provide access to "outside" services (e.g., I/O); +and others could be implemented in Lua itself, +but are quite useful or have critical performance requirements that +deserve an implementation in C (e.g., table.sort). + + +

+All libraries are implemented through the official C API +and are provided as separate C modules. +Currently, Lua has the following standard libraries: + +

    + +
  • basic library, which includes the coroutine sub-library;
    • + +
  • package library;
    • + +
  • string manipulation;
    • + +
  • table manipulation;
    • + +
  • mathematical functions (sin, log, etc.);
    • + +
  • input and output;
    • + +
  • operating system facilities;
    • + +
  • debug facilities.
    • + +

+Except for the basic and package libraries, +each library provides all its functions as fields of a global table +or as methods of its objects. + + +

+To have access to these libraries, +the C host program should call the luaL_openlibs function, +which opens all standard libraries. +Alternatively, +it can open them individually by calling +luaopen_base (for the basic library), +luaopen_package (for the package library), +luaopen_string (for the string library), +luaopen_table (for the table library), +luaopen_math (for the mathematical library), +luaopen_io (for the I/O library), +luaopen_os (for the Operating System library), +and luaopen_debug (for the debug library). +These functions are declared in lualib.h +and should not be called directly: +you must call them like any other Lua C function, +e.g., by using lua_call. + + + +

5.1 - Basic Functions

+ +

+The basic library provides some core functions to Lua. +If you do not include this library in your application, +you should check carefully whether you need to provide +implementations for some of its facilities. + + +

+

assert (v [, message])

+Issues an error when +the value of its argument v is false (i.e., nil or false); +otherwise, returns all its arguments. +message is an error message; +when absent, it defaults to "assertion failed!" + + + + +

+

collectgarbage ([opt [, arg]])

+ + +

+This function is a generic interface to the garbage collector. +It performs different functions according to its first argument, opt: + +

    + +
  • "collect": +performs a full garbage-collection cycle. +This is the default option. +
    • + +
  • "stop": +stops the garbage collector. +
    • + +
  • "restart": +restarts the garbage collector. +
    • + +
  • "count": +returns the total memory in use by Lua (in Kbytes). +
    • + +
  • "step": +performs a garbage-collection step. +The step "size" is controlled by arg +(larger values mean more steps) in a non-specified way. +If you want to control the step size +you must experimentally tune the value of arg. +Returns true if the step finished a collection cycle. +
    • + +
  • "setpause": +sets arg as the new value for the pause of +the collector (see §2.10). +Returns the previous value for pause. +
    • + +
  • "setstepmul": +sets arg as the new value for the step multiplier of +the collector (see §2.10). +Returns the previous value for step. +
    • + +
+ + + +

+

dofile ([filename])

+Opens the named file and executes its contents as a Lua chunk. +When called without arguments, +dofile executes the contents of the standard input (stdin). +Returns all values returned by the chunk. +In case of errors, dofile propagates the error +to its caller (that is, dofile does not run in protected mode). + + + + +

+

error (message [, level])

+Terminates the last protected function called +and returns message as the error message. +Function error never returns. + + +

+Usually, error adds some information about the error position +at the beginning of the message. +The level argument specifies how to get the error position. +With level 1 (the default), the error position is where the +error function was called. +Level 2 points the error to where the function +that called error was called; and so on. +Passing a level 0 avoids the addition of error position information +to the message. + + + + +

+

_G

+A global variable (not a function) that +holds the global environment (that is, _G._G = _G). +Lua itself does not use this variable; +changing its value does not affect any environment, +nor vice-versa. +(Use setfenv to change environments.) + + + + +

+

getfenv ([f])

+Returns the current environment in use by the function. +f can be a Lua function or a number +that specifies the function at that stack level: +Level 1 is the function calling getfenv. +If the given function is not a Lua function, +or if f is 0, +getfenv returns the global environment. +The default for f is 1. + + + + +

+

getmetatable (object)

+ + +

+If object does not have a metatable, returns nil. +Otherwise, +if the object's metatable has a "__metatable" field, +returns the associated value. +Otherwise, returns the metatable of the given object. + + + + +

+

ipairs (t)

+ + +

+Returns three values: an iterator function, the table t, and 0, +so that the construction + +

+     for i,v in ipairs(t) do body end
+

+will iterate over the pairs (1,t[1]), (2,t[2]), ···, +up to the first integer key absent from the table. + + + + +

+

load (func [, chunkname])

+ + +

+Loads a chunk using function func to get its pieces. +Each call to func must return a string that concatenates +with previous results. +A return of an empty string, nil, or no value signals the end of the chunk. + + +

+If there are no errors, +returns the compiled chunk as a function; +otherwise, returns nil plus the error message. +The environment of the returned function is the global environment. + + +

+chunkname is used as the chunk name for error messages +and debug information. +When absent, +it defaults to "=(load)". + + + + +

+

loadfile ([filename])

+ + +

+Similar to load, +but gets the chunk from file filename +or from the standard input, +if no file name is given. + + + + +

+

loadstring (string [, chunkname])

+ + +

+Similar to load, +but gets the chunk from the given string. + + +

+To load and run a given string, use the idiom + +

+     assert(loadstring(s))()
+
+ +

+When absent, +chunkname defaults to the given string. + + + + +

+

next (table [, index])

+ + +

+Allows a program to traverse all fields of a table. +Its first argument is a table and its second argument +is an index in this table. +next returns the next index of the table +and its associated value. +When called with nil as its second argument, +next returns an initial index +and its associated value. +When called with the last index, +or with nil in an empty table, +next returns nil. +If the second argument is absent, then it is interpreted as nil. +In particular, +you can use next(t) to check whether a table is empty. + + +

+The order in which the indices are enumerated is not specified, +even for numeric indices. +(To traverse a table in numeric order, +use a numerical for or the ipairs function.) + + +

+The behavior of next is undefined if, +during the traversal, +you assign any value to a non-existent field in the table. +You may however modify existing fields. +In particular, you may clear existing fields. + + + + +

+

pairs (t)

+ + +

+Returns three values: the next function, the table t, and nil, +so that the construction + +

+     for k,v in pairs(t) do body end
+

+will iterate over all key–value pairs of table t. + + +

+See function next for the caveats of modifying +the table during its traversal. + + + + +

+

pcall (f, arg1, ···)

+ + +

+Calls function f with +the given arguments in protected mode. +This means that any error inside f is not propagated; +instead, pcall catches the error +and returns a status code. +Its first result is the status code (a boolean), +which is true if the call succeeds without errors. +In such case, pcall also returns all results from the call, +after this first result. +In case of any error, pcall returns false plus the error message. + + + + +

+

print (···)

+Receives any number of arguments, +and prints their values to stdout, +using the tostring function to convert them to strings. +print is not intended for formatted output, +but only as a quick way to show a value, +typically for debugging. +For formatted output, use string.format. + + + + +

+

rawequal (v1, v2)

+Checks whether v1 is equal to v2, +without invoking any metamethod. +Returns a boolean. + + + + +

+

rawget (table, index)

+Gets the real value of table[index], +without invoking any metamethod. +table must be a table; +index may be any value. + + + + +

+

rawset (table, index, value)

+Sets the real value of table[index] to value, +without invoking any metamethod. +table must be a table, +index any value different from nil, +and value any Lua value. + + +

+This function returns table. + + + + +

+

select (index, ···)

+ + +

+If index is a number, +returns all arguments after argument number index. +Otherwise, index must be the string "#", +and select returns the total number of extra arguments it received. + + + + +

+

setfenv (f, table)

+ + +

+Sets the environment to be used by the given function. +f can be a Lua function or a number +that specifies the function at that stack level: +Level 1 is the function calling setfenv. +setfenv returns the given function. + + +

+As a special case, when f is 0 setfenv changes +the environment of the running thread. +In this case, setfenv returns no values. + + + + +

+

setmetatable (table, metatable)

+ + +

+Sets the metatable for the given table. +(You cannot change the metatable of other types from Lua, only from C.) +If metatable is nil, +removes the metatable of the given table. +If the original metatable has a "__metatable" field, +raises an error. + + +

+This function returns table. + + + + +

+

tonumber (e [, base])

+Tries to convert its argument to a number. +If the argument is already a number or a string convertible +to a number, then tonumber returns this number; +otherwise, it returns nil. + + +

+An optional argument specifies the base to interpret the numeral. +The base may be any integer between 2 and 36, inclusive. +In bases above 10, the letter 'A' (in either upper or lower case) +represents 10, 'B' represents 11, and so forth, +with 'Z' representing 35. +In base 10 (the default), the number can have a decimal part, +as well as an optional exponent part (see §2.1). +In other bases, only unsigned integers are accepted. + + + + +

+

tostring (e)

+Receives an argument of any type and +converts it to a string in a reasonable format. +For complete control of how numbers are converted, +use string.format. + + +

+If the metatable of e has a "__tostring" field, +then tostring calls the corresponding value +with e as argument, +and uses the result of the call as its result. + + + + +

+

type (v)

+Returns the type of its only argument, coded as a string. +The possible results of this function are +"nil" (a string, not the value nil), +"number", +"string", +"boolean", +"table", +"function", +"thread", +and "userdata". + + + + +

+

unpack (list [, i [, j]])

+Returns the elements from the given table. +This function is equivalent to + +
+     return list[i], list[i+1], ···, list[j]
+

+except that the above code can be written only for a fixed number +of elements. +By default, i is 1 and j is the length of the list, +as defined by the length operator (see §2.5.5). + + + + +

+

_VERSION

+A global variable (not a function) that +holds a string containing the current interpreter version. +The current contents of this variable is "Lua 5.1". + + + + +

+

xpcall (f, err)

+ + +

+This function is similar to pcall, +except that you can set a new error handler. + + +

+xpcall calls function f in protected mode, +using err as the error handler. +Any error inside f is not propagated; +instead, xpcall catches the error, +calls the err function with the original error object, +and returns a status code. +Its first result is the status code (a boolean), +which is true if the call succeeds without errors. +In this case, xpcall also returns all results from the call, +after this first result. +In case of any error, +xpcall returns false plus the result from err. + + + + + + + +

5.2 - Coroutine Manipulation

+ +

+The operations related to coroutines comprise a sub-library of +the basic library and come inside the table coroutine. +See §2.11 for a general description of coroutines. + + +

+

coroutine.create (f)

+ + +

+Creates a new coroutine, with body f. +f must be a Lua function. +Returns this new coroutine, +an object with type "thread". + + + + +

+

coroutine.resume (co [, val1, ···])

+ + +

+Starts or continues the execution of coroutine co. +The first time you resume a coroutine, +it starts running its body. +The values val1, ··· are passed +as the arguments to the body function. +If the coroutine has yielded, +resume restarts it; +the values val1, ··· are passed +as the results from the yield. + + +

+If the coroutine runs without any errors, +resume returns true plus any values passed to yield +(if the coroutine yields) or any values returned by the body function +(if the coroutine terminates). +If there is any error, +resume returns false plus the error message. + + + + +

+

coroutine.running ()

+ + +

+Returns the running coroutine, +or nil when called by the main thread. + + + + +

+

coroutine.status (co)

+ + +

+Returns the status of coroutine co, as a string: +"running", +if the coroutine is running (that is, it called status); +"suspended", if the coroutine is suspended in a call to yield, +or if it has not started running yet; +"normal" if the coroutine is active but not running +(that is, it has resumed another coroutine); +and "dead" if the coroutine has finished its body function, +or if it has stopped with an error. + + + + +

+

coroutine.wrap (f)

+ + +

+Creates a new coroutine, with body f. +f must be a Lua function. +Returns a function that resumes the coroutine each time it is called. +Any arguments passed to the function behave as the +extra arguments to resume. +Returns the same values returned by resume, +except the first boolean. +In case of error, propagates the error. + + + + +

+

coroutine.yield (···)

+ + +

+Suspends the execution of the calling coroutine. +The coroutine cannot be running a C function, +a metamethod, or an iterator. +Any arguments to yield are passed as extra results to resume. + + + + + + + +

5.3 - Modules

+ +

+The package library provides basic +facilities for loading and building modules in Lua. +It exports two of its functions directly in the global environment: +require and module. +Everything else is exported in a table package. + + +

+

module (name [, ···])

+ + +

+Creates a module. +If there is a table in package.loaded[name], +this table is the module. +Otherwise, if there is a global table t with the given name, +this table is the module. +Otherwise creates a new table t and +sets it as the value of the global name and +the value of package.loaded[name]. +This function also initializes t._NAME with the given name, +t._M with the module (t itself), +and t._PACKAGE with the package name +(the full module name minus last component; see below). +Finally, module sets t as the new environment +of the current function and the new value of package.loaded[name], +so that require returns t. + + +

+If name is a compound name +(that is, one with components separated by dots), +module creates (or reuses, if they already exist) +tables for each component. +For instance, if name is a.b.c, +then module stores the module table in field c of +field b of global a. + + +

+This function can receive optional options after +the module name, +where each option is a function to be applied over the module. + + + + +

+

require (modname)

+ + +

+Loads the given module. +The function starts by looking into the package.loaded table +to determine whether modname is already loaded. +If it is, then require returns the value stored +at package.loaded[modname]. +Otherwise, it tries to find a loader for the module. + + +

+To find a loader, +require is guided by the package.loaders array. +By changing this array, +we can change how require looks for a module. +The following explanation is based on the default configuration +for package.loaders. + + +

+First require queries package.preload[modname]. +If it has a value, +this value (which should be a function) is the loader. +Otherwise require searches for a Lua loader using the +path stored in package.path. +If that also fails, it searches for a C loader using the +path stored in package.cpath. +If that also fails, +it tries an all-in-one loader (see package.loaders). + + +

+Once a loader is found, +require calls the loader with a single argument, modname. +If the loader returns any value, +require assigns the returned value to package.loaded[modname]. +If the loader returns no value and +has not assigned any value to package.loaded[modname], +then require assigns true to this entry. +In any case, require returns the +final value of package.loaded[modname]. + + +

+If there is any error loading or running the module, +or if it cannot find any loader for the module, +then require signals an error. + + + + +

+

package.cpath

+ + +

+The path used by require to search for a C loader. + + +

+Lua initializes the C path package.cpath in the same way +it initializes the Lua path package.path, +using the environment variable LUA_CPATH +or a default path defined in luaconf.h. + + + + +

+ +

package.loaded

+ + +

+A table used by require to control which +modules are already loaded. +When you require a module modname and +package.loaded[modname] is not false, +require simply returns the value stored there. + + + + +

+

package.loaders

+ + +

+A table used by require to control how to load modules. + + +

+Each entry in this table is a searcher function. +When looking for a module, +require calls each of these searchers in ascending order, +with the module name (the argument given to require) as its +sole parameter. +The function can return another function (the module loader) +or a string explaining why it did not find that module +(or nil if it has nothing to say). +Lua initializes this table with four functions. + + +

+The first searcher simply looks for a loader in the +package.preload table. + + +

+The second searcher looks for a loader as a Lua library, +using the path stored at package.path. +A path is a sequence of templates separated by semicolons. +For each template, +the searcher will change each interrogation +mark in the template by filename, +which is the module name with each dot replaced by a +"directory separator" (such as "/" in Unix); +then it will try to open the resulting file name. +So, for instance, if the Lua path is the string + +

+     "./?.lua;./?.lc;/usr/local/?/init.lua"
+

+the search for a Lua file for module foo +will try to open the files +./foo.lua, ./foo.lc, and +/usr/local/foo/init.lua, in that order. + + +

+The third searcher looks for a loader as a C library, +using the path given by the variable package.cpath. +For instance, +if the C path is the string + +

+     "./?.so;./?.dll;/usr/local/?/init.so"
+

+the searcher for module foo +will try to open the files ./foo.so, ./foo.dll, +and /usr/local/foo/init.so, in that order. +Once it finds a C library, +this searcher first uses a dynamic link facility to link the +application with the library. +Then it tries to find a C function inside the library to +be used as the loader. +The name of this C function is the string "luaopen_" +concatenated with a copy of the module name where each dot +is replaced by an underscore. +Moreover, if the module name has a hyphen, +its prefix up to (and including) the first hyphen is removed. +For instance, if the module name is a.v1-b.c, +the function name will be luaopen_b_c. + + +

+The fourth searcher tries an all-in-one loader. +It searches the C path for a library for +the root name of the given module. +For instance, when requiring a.b.c, +it will search for a C library for a. +If found, it looks into it for an open function for +the submodule; +in our example, that would be luaopen_a_b_c. +With this facility, a package can pack several C submodules +into one single library, +with each submodule keeping its original open function. + + + + +

+

package.loadlib (libname, funcname)

+ + +

+Dynamically links the host program with the C library libname. +Inside this library, looks for a function funcname +and returns this function as a C function. +(So, funcname must follow the protocol (see lua_CFunction)). + + +

+This is a low-level function. +It completely bypasses the package and module system. +Unlike require, +it does not perform any path searching and +does not automatically adds extensions. +libname must be the complete file name of the C library, +including if necessary a path and extension. +funcname must be the exact name exported by the C library +(which may depend on the C compiler and linker used). + + +

+This function is not supported by ANSI C. +As such, it is only available on some platforms +(Windows, Linux, Mac OS X, Solaris, BSD, +plus other Unix systems that support the dlfcn standard). + + + + +

+

package.path

+ + +

+The path used by require to search for a Lua loader. + + +

+At start-up, Lua initializes this variable with +the value of the environment variable LUA_PATH or +with a default path defined in luaconf.h, +if the environment variable is not defined. +Any ";;" in the value of the environment variable +is replaced by the default path. + + + + +

+

package.preload

+ + +

+A table to store loaders for specific modules +(see require). + + + + +

+

package.seeall (module)

+ + +

+Sets a metatable for module with +its __index field referring to the global environment, +so that this module inherits values +from the global environment. +To be used as an option to function module. + + + + + + + +

5.4 - String Manipulation

+ +

+This library provides generic functions for string manipulation, +such as finding and extracting substrings, and pattern matching. +When indexing a string in Lua, the first character is at position 1 +(not at 0, as in C). +Indices are allowed to be negative and are interpreted as indexing backwards, +from the end of the string. +Thus, the last character is at position -1, and so on. + + +

+The string library provides all its functions inside the table +string. +It also sets a metatable for strings +where the __index field points to the string table. +Therefore, you can use the string functions in object-oriented style. +For instance, string.byte(s, i) +can be written as s:byte(i). + + +

+The string library assumes one-byte character encodings. + + +

+

string.byte (s [, i [, j]])

+Returns the internal numerical codes of the characters s[i], +s[i+1], ···, s[j]. +The default value for i is 1; +the default value for j is i. + + +

+Note that numerical codes are not necessarily portable across platforms. + + + + +

+

string.char (···)

+Receives zero or more integers. +Returns a string with length equal to the number of arguments, +in which each character has the internal numerical code equal +to its corresponding argument. + + +

+Note that numerical codes are not necessarily portable across platforms. + + + + +

+

string.dump (function)

+ + +

+Returns a string containing a binary representation of the given function, +so that a later loadstring on this string returns +a copy of the function. +function must be a Lua function without upvalues. + + + + +

+

string.find (s, pattern [, init [, plain]])

+Looks for the first match of +pattern in the string s. +If it finds a match, then find returns the indices of s +where this occurrence starts and ends; +otherwise, it returns nil. +A third, optional numerical argument init specifies +where to start the search; +its default value is 1 and can be negative. +A value of true as a fourth, optional argument plain +turns off the pattern matching facilities, +so the function does a plain "find substring" operation, +with no characters in pattern being considered "magic". +Note that if plain is given, then init must be given as well. + + +

+If the pattern has captures, +then in a successful match +the captured values are also returned, +after the two indices. + + + + +

+

string.format (formatstring, ···)

+Returns a formatted version of its variable number of arguments +following the description given in its first argument (which must be a string). +The format string follows the same rules as the printf family of +standard C functions. +The only differences are that the options/modifiers +*, l, L, n, p, +and h are not supported +and that there is an extra option, q. +The q option formats a string in a form suitable to be safely read +back by the Lua interpreter: +the string is written between double quotes, +and all double quotes, newlines, embedded zeros, +and backslashes in the string +are correctly escaped when written. +For instance, the call + +
+     string.format('%q', 'a string with "quotes" and \n new line')
+

+will produce the string: + +

+     "a string with \"quotes\" and \
+      new line"
+
+ +

+The options c, d, E, e, f, +g, G, i, o, u, X, and x all +expect a number as argument, +whereas q and s expect a string. + + +

+This function does not accept string values +containing embedded zeros, +except as arguments to the q option. + + + + +

+

string.gmatch (s, pattern)

+Returns an iterator function that, +each time it is called, +returns the next captures from pattern over string s. +If pattern specifies no captures, +then the whole match is produced in each call. + + +

+As an example, the following loop + +

+     s = "hello world from Lua"
+     for w in string.gmatch(s, "%a+") do
+       print(w)
+     end
+

+will iterate over all the words from string s, +printing one per line. +The next example collects all pairs key=value from the +given string into a table: + +

+     t = {}
+     s = "from=world, to=Lua"
+     for k, v in string.gmatch(s, "(%w+)=(%w+)") do
+       t[k] = v
+     end
+
+ +

+For this function, a '^' at the start of a pattern does not +work as an anchor, as this would prevent the iteration. + + + + +

+

string.gsub (s, pattern, repl [, n])

+Returns a copy of s +in which all (or the first n, if given) +occurrences of the pattern have been +replaced by a replacement string specified by repl, +which can be a string, a table, or a function. +gsub also returns, as its second value, +the total number of matches that occurred. + + +

+If repl is a string, then its value is used for replacement. +The character % works as an escape character: +any sequence in repl of the form %n, +with n between 1 and 9, +stands for the value of the n-th captured substring (see below). +The sequence %0 stands for the whole match. +The sequence %% stands for a single %. + + +

+If repl is a table, then the table is queried for every match, +using the first capture as the key; +if the pattern specifies no captures, +then the whole match is used as the key. + + +

+If repl is a function, then this function is called every time a +match occurs, with all captured substrings passed as arguments, +in order; +if the pattern specifies no captures, +then the whole match is passed as a sole argument. + + +

+If the value returned by the table query or by the function call +is a string or a number, +then it is used as the replacement string; +otherwise, if it is false or nil, +then there is no replacement +(that is, the original match is kept in the string). + + +

+Here are some examples: + +

+     x = string.gsub("hello world", "(%w+)", "%1 %1")
+     --> x="hello hello world world"
+     
+     x = string.gsub("hello world", "%w+", "%0 %0", 1)
+     --> x="hello hello world"
+     
+     x = string.gsub("hello world from Lua", "(%w+)%s*(%w+)", "%2 %1")
+     --> x="world hello Lua from"
+     
+     x = string.gsub("home = $HOME, user = $USER", "%$(%w+)", os.getenv)
+     --> x="home = /home/roberto, user = roberto"
+     
+     x = string.gsub("4+5 = $return 4+5$", "%$(.-)%$", function (s)
+           return loadstring(s)()
+         end)
+     --> x="4+5 = 9"
+     
+     local t = {name="lua", version="5.1"}
+     x = string.gsub("$name-$version.tar.gz", "%$(%w+)", t)
+     --> x="lua-5.1.tar.gz"
+
+ + + +

+

string.len (s)

+Receives a string and returns its length. +The empty string "" has length 0. +Embedded zeros are counted, +so "a\000bc\000" has length 5. + + + + +

+

string.lower (s)

+Receives a string and returns a copy of this string with all +uppercase letters changed to lowercase. +All other characters are left unchanged. +The definition of what an uppercase letter is depends on the current locale. + + + + +

+

string.match (s, pattern [, init])

+Looks for the first match of +pattern in the string s. +If it finds one, then match returns +the captures from the pattern; +otherwise it returns nil. +If pattern specifies no captures, +then the whole match is returned. +A third, optional numerical argument init specifies +where to start the search; +its default value is 1 and can be negative. + + + + +

+

string.rep (s, n)

+Returns a string that is the concatenation of n copies of +the string s. + + + + +

+

string.reverse (s)

+Returns a string that is the string s reversed. + + + + +

+

string.sub (s, i [, j])

+Returns the substring of s that +starts at i and continues until j; +i and j can be negative. +If j is absent, then it is assumed to be equal to -1 +(which is the same as the string length). +In particular, +the call string.sub(s,1,j) returns a prefix of s +with length j, +and string.sub(s, -i) returns a suffix of s +with length i. + + + + +

+

string.upper (s)

+Receives a string and returns a copy of this string with all +lowercase letters changed to uppercase. +All other characters are left unchanged. +The definition of what a lowercase letter is depends on the current locale. + + + +

5.4.1 - Patterns

+ + +

Character Class:

+A character class is used to represent a set of characters. +The following combinations are allowed in describing a character class: + +

    + +
  • x: +(where x is not one of the magic characters +^$()%.[]*+-?) +represents the character x itself. +
    • + +
  • .: (a dot) represents all characters.
    • + +
  • %a: represents all letters.
    • + +
  • %c: represents all control characters.
    • + +
  • %d: represents all digits.
    • + +
  • %l: represents all lowercase letters.
    • + +
  • %p: represents all punctuation characters.
    • + +
  • %s: represents all space characters.
    • + +
  • %u: represents all uppercase letters.
    • + +
  • %w: represents all alphanumeric characters.
    • + +
  • %x: represents all hexadecimal digits.
    • + +
  • %z: represents the character with representation 0.
    • + +
  • %x: (where x is any non-alphanumeric character) +represents the character x. +This is the standard way to escape the magic characters. +Any punctuation character (even the non magic) +can be preceded by a '%' +when used to represent itself in a pattern. +
    • + +
  • [set]: +represents the class which is the union of all +characters in set. +A range of characters can be specified by +separating the end characters of the range with a '-'. +All classes %x described above can also be used as +components in set. +All other characters in set represent themselves. +For example, [%w_] (or [_%w]) +represents all alphanumeric characters plus the underscore, +[0-7] represents the octal digits, +and [0-7%l%-] represents the octal digits plus +the lowercase letters plus the '-' character. + + +

    +The interaction between ranges and classes is not defined. +Therefore, patterns like [%a-z] or [a-%%] +have no meaning. +

    • + +
  • [^set]: +represents the complement of set, +where set is interpreted as above. +
    • + +

+For all classes represented by single letters (%a, %c, etc.), +the corresponding uppercase letter represents the complement of the class. +For instance, %S represents all non-space characters. + + +

+The definitions of letter, space, and other character groups +depend on the current locale. +In particular, the class [a-z] may not be equivalent to %l. + + + + + +

Pattern Item:

+A pattern item can be + +

    + +
  • +a single character class, +which matches any single character in the class; +
    • + +
  • +a single character class followed by '*', +which matches 0 or more repetitions of characters in the class. +These repetition items will always match the longest possible sequence; +
    • + +
  • +a single character class followed by '+', +which matches 1 or more repetitions of characters in the class. +These repetition items will always match the longest possible sequence; +
    • + +
  • +a single character class followed by '-', +which also matches 0 or more repetitions of characters in the class. +Unlike '*', +these repetition items will always match the shortest possible sequence; +
    • + +
  • +a single character class followed by '?', +which matches 0 or 1 occurrence of a character in the class; +
    • + +
  • +%n, for n between 1 and 9; +such item matches a substring equal to the n-th captured string +(see below); +
    • + +
  • +%bxy, where x and y are two distinct characters; +such item matches strings that start with x, end with y, +and where the x and y are balanced. +This means that, if one reads the string from left to right, +counting +1 for an x and -1 for a y, +the ending y is the first y where the count reaches 0. +For instance, the item %b() matches expressions with +balanced parentheses. +
    • + +
+ + + + +

Pattern:

+A pattern is a sequence of pattern items. +A '^' at the beginning of a pattern anchors the match at the +beginning of the subject string. +A '$' at the end of a pattern anchors the match at the +end of the subject string. +At other positions, +'^' and '$' have no special meaning and represent themselves. + + + + + +

Captures:

+A pattern can contain sub-patterns enclosed in parentheses; +they describe captures. +When a match succeeds, the substrings of the subject string +that match captures are stored (captured) for future use. +Captures are numbered according to their left parentheses. +For instance, in the pattern "(a*(.)%w(%s*))", +the part of the string matching "a*(.)%w(%s*)" is +stored as the first capture (and therefore has number 1); +the character matching "." is captured with number 2, +and the part matching "%s*" has number 3. + + +

+As a special case, the empty capture () captures +the current string position (a number). +For instance, if we apply the pattern "()aa()" on the +string "flaaap", there will be two captures: 3 and 5. + + +

+A pattern cannot contain embedded zeros. Use %z instead. + + + + + + + + + + + +

5.5 - Table Manipulation

+This library provides generic functions for table manipulation. +It provides all its functions inside the table table. + + +

+Most functions in the table library assume that the table +represents an array or a list. +For these functions, when we talk about the "length" of a table +we mean the result of the length operator. + + +

+

table.concat (table [, sep [, i [, j]]])

+Given an array where all elements are strings or numbers, +returns table[i]..sep..table[i+1] ··· sep..table[j]. +The default value for sep is the empty string, +the default for i is 1, +and the default for j is the length of the table. +If i is greater than j, returns the empty string. + + + + +

+

table.insert (table, [pos,] value)

+ + +

+Inserts element value at position pos in table, +shifting up other elements to open space, if necessary. +The default value for pos is n+1, +where n is the length of the table (see §2.5.5), +so that a call table.insert(t,x) inserts x at the end +of table t. + + + + +

+

table.maxn (table)

+ + +

+Returns the largest positive numerical index of the given table, +or zero if the table has no positive numerical indices. +(To do its job this function does a linear traversal of +the whole table.) + + + + +

+

table.remove (table [, pos])

+ + +

+Removes from table the element at position pos, +shifting down other elements to close the space, if necessary. +Returns the value of the removed element. +The default value for pos is n, +where n is the length of the table, +so that a call table.remove(t) removes the last element +of table t. + + + + +

+

table.sort (table [, comp])

+Sorts table elements in a given order, in-place, +from table[1] to table[n], +where n is the length of the table. +If comp is given, +then it must be a function that receives two table elements, +and returns true +when the first is less than the second +(so that not comp(a[i+1],a[i]) will be true after the sort). +If comp is not given, +then the standard Lua operator < is used instead. + + +

+The sort algorithm is not stable; +that is, elements considered equal by the given order +may have their relative positions changed by the sort. + + + + + + + +

5.6 - Mathematical Functions

+ +

+This library is an interface to the standard C math library. +It provides all its functions inside the table math. + + +

+

math.abs (x)

+ + +

+Returns the absolute value of x. + + + + +

+

math.acos (x)

+ + +

+Returns the arc cosine of x (in radians). + + + + +

+

math.asin (x)

+ + +

+Returns the arc sine of x (in radians). + + + + +

+

math.atan (x)

+ + +

+Returns the arc tangent of x (in radians). + + + + +

+

math.atan2 (y, x)

+ + +

+Returns the arc tangent of y/x (in radians), +but uses the signs of both parameters to find the +quadrant of the result. +(It also handles correctly the case of x being zero.) + + + + +

+

math.ceil (x)

+ + +

+Returns the smallest integer larger than or equal to x. + + + + +

+

math.cos (x)

+ + +

+Returns the cosine of x (assumed to be in radians). + + + + +

+

math.cosh (x)

+ + +

+Returns the hyperbolic cosine of x. + + + + +

+

math.deg (x)

+ + +

+Returns the angle x (given in radians) in degrees. + + + + +

+

math.exp (x)

+ + +

+Returns the value ex. + + + + +

+

math.floor (x)

+ + +

+Returns the largest integer smaller than or equal to x. + + + + +

+

math.fmod (x, y)

+ + +

+Returns the remainder of the division of x by y +that rounds the quotient towards zero. + + + + +

+

math.frexp (x)

+ + +

+Returns m and e such that x = m2e, +e is an integer and the absolute value of m is +in the range [0.5, 1) +(or zero when x is zero). + + + + +

+

math.huge

+ + +

+The value HUGE_VAL, +a value larger than or equal to any other numerical value. + + + + +

+

math.ldexp (m, e)

+ + +

+Returns m2e (e should be an integer). + + + + +

+

math.log (x)

+ + +

+Returns the natural logarithm of x. + + + + +

+

math.log10 (x)

+ + +

+Returns the base-10 logarithm of x. + + + + +

+

math.max (x, ···)

+ + +

+Returns the maximum value among its arguments. + + + + +

+

math.min (x, ···)

+ + +

+Returns the minimum value among its arguments. + + + + +

+

math.modf (x)

+ + +

+Returns two numbers, +the integral part of x and the fractional part of x. + + + + +

+

math.pi

+ + +

+The value of pi. + + + + +

+

math.pow (x, y)

+ + +

+Returns xy. +(You can also use the expression x^y to compute this value.) + + + + +

+

math.rad (x)

+ + +

+Returns the angle x (given in degrees) in radians. + + + + +

+

math.random ([m [, n]])

+ + +

+This function is an interface to the simple +pseudo-random generator function rand provided by ANSI C. +(No guarantees can be given for its statistical properties.) + + +

+When called without arguments, +returns a uniform pseudo-random real number +in the range [0,1). +When called with an integer number m, +math.random returns +a uniform pseudo-random integer in the range [1, m]. +When called with two integer numbers m and n, +math.random returns a uniform pseudo-random +integer in the range [m, n]. + + + + +

+

math.randomseed (x)

+ + +

+Sets x as the "seed" +for the pseudo-random generator: +equal seeds produce equal sequences of numbers. + + + + +

+

math.sin (x)

+ + +

+Returns the sine of x (assumed to be in radians). + + + + +

+

math.sinh (x)

+ + +

+Returns the hyperbolic sine of x. + + + + +

+

math.sqrt (x)

+ + +

+Returns the square root of x. +(You can also use the expression x^0.5 to compute this value.) + + + + +

+

math.tan (x)

+ + +

+Returns the tangent of x (assumed to be in radians). + + + + +

+

math.tanh (x)

+ + +

+Returns the hyperbolic tangent of x. + + + + + + + +

5.7 - Input and Output Facilities

+ +

+The I/O library provides two different styles for file manipulation. +The first one uses implicit file descriptors; +that is, there are operations to set a default input file and a +default output file, +and all input/output operations are over these default files. +The second style uses explicit file descriptors. + + +

+When using implicit file descriptors, +all operations are supplied by table io. +When using explicit file descriptors, +the operation io.open returns a file descriptor +and then all operations are supplied as methods of the file descriptor. + + +

+The table io also provides +three predefined file descriptors with their usual meanings from C: +io.stdin, io.stdout, and io.stderr. +The I/O library never closes these files. + + +

+Unless otherwise stated, +all I/O functions return nil on failure +(plus an error message as a second result and +a system-dependent error code as a third result) +and some value different from nil on success. + + +

+

io.close ([file])

+ + +

+Equivalent to file:close(). +Without a file, closes the default output file. + + + + +

+

io.flush ()

+ + +

+Equivalent to file:flush over the default output file. + + + + +

+

io.input ([file])

+ + +

+When called with a file name, it opens the named file (in text mode), +and sets its handle as the default input file. +When called with a file handle, +it simply sets this file handle as the default input file. +When called without parameters, +it returns the current default input file. + + +

+In case of errors this function raises the error, +instead of returning an error code. + + + + +

+

io.lines ([filename])

+ + +

+Opens the given file name in read mode +and returns an iterator function that, +each time it is called, +returns a new line from the file. +Therefore, the construction + +

+     for line in io.lines(filename) do body end
+

+will iterate over all lines of the file. +When the iterator function detects the end of file, +it returns nil (to finish the loop) and automatically closes the file. + + +

+The call io.lines() (with no file name) is equivalent +to io.input():lines(); +that is, it iterates over the lines of the default input file. +In this case it does not close the file when the loop ends. + + + + +

+

io.open (filename [, mode])

+ + +

+This function opens a file, +in the mode specified in the string mode. +It returns a new file handle, +or, in case of errors, nil plus an error message. + + +

+The mode string can be any of the following: + +

    +
  • "r": read mode (the default);
    • +
  • "w": write mode;
    • +
  • "a": append mode;
    • +
  • "r+": update mode, all previous data is preserved;
    • +
  • "w+": update mode, all previous data is erased;
    • +
  • "a+": append update mode, previous data is preserved, + writing is only allowed at the end of file.
    • +

+The mode string can also have a 'b' at the end, +which is needed in some systems to open the file in binary mode. +This string is exactly what is used in the +standard C function fopen. + + + + +

+

io.output ([file])

+ + +

+Similar to io.input, but operates over the default output file. + + + + +

+

io.popen (prog [, mode])

+ + +

+Starts program prog in a separated process and returns +a file handle that you can use to read data from this program +(if mode is "r", the default) +or to write data to this program +(if mode is "w"). + + +

+This function is system dependent and is not available +on all platforms. + + + + +

+

io.read (···)

+ + +

+Equivalent to io.input():read. + + + + +

+

io.tmpfile ()

+ + +

+Returns a handle for a temporary file. +This file is opened in update mode +and it is automatically removed when the program ends. + + + + +

+

io.type (obj)

+ + +

+Checks whether obj is a valid file handle. +Returns the string "file" if obj is an open file handle, +"closed file" if obj is a closed file handle, +or nil if obj is not a file handle. + + + + +

+

io.write (···)

+ + +

+Equivalent to io.output():write. + + + + +

+

file:close ()

+ + +

+Closes file. +Note that files are automatically closed when +their handles are garbage collected, +but that takes an unpredictable amount of time to happen. + + + + +

+

file:flush ()

+ + +

+Saves any written data to file. + + + + +

+

file:lines ()

+ + +

+Returns an iterator function that, +each time it is called, +returns a new line from the file. +Therefore, the construction + +

+     for line in file:lines() do body end
+

+will iterate over all lines of the file. +(Unlike io.lines, this function does not close the file +when the loop ends.) + + + + +

+

file:read (···)

+ + +

+Reads the file file, +according to the given formats, which specify what to read. +For each format, +the function returns a string (or a number) with the characters read, +or nil if it cannot read data with the specified format. +When called without formats, +it uses a default format that reads the entire next line +(see below). + + +

+The available formats are + +

    + +
  • "*n": +reads a number; +this is the only format that returns a number instead of a string. +
    • + +
  • "*a": +reads the whole file, starting at the current position. +On end of file, it returns the empty string. +
    • + +
  • "*l": +reads the next line (skipping the end of line), +returning nil on end of file. +This is the default format. +
    • + +
  • number: +reads a string with up to this number of characters, +returning nil on end of file. +If number is zero, +it reads nothing and returns an empty string, +or nil on end of file. +
    • + +
+ + + +

+

file:seek ([whence] [, offset])

+ + +

+Sets and gets the file position, +measured from the beginning of the file, +to the position given by offset plus a base +specified by the string whence, as follows: + +

    +
  • "set": base is position 0 (beginning of the file);
    • +
  • "cur": base is current position;
    • +
  • "end": base is end of file;
    • +

+In case of success, function seek returns the final file position, +measured in bytes from the beginning of the file. +If this function fails, it returns nil, +plus a string describing the error. + + +

+The default value for whence is "cur", +and for offset is 0. +Therefore, the call file:seek() returns the current +file position, without changing it; +the call file:seek("set") sets the position to the +beginning of the file (and returns 0); +and the call file:seek("end") sets the position to the +end of the file, and returns its size. + + + + +

+

file:setvbuf (mode [, size])

+ + +

+Sets the buffering mode for an output file. +There are three available modes: + +

    + +
  • "no": +no buffering; the result of any output operation appears immediately. +
    • + +
  • "full": +full buffering; output operation is performed only +when the buffer is full (or when you explicitly flush the file +(see io.flush)). +
    • + +
  • "line": +line buffering; output is buffered until a newline is output +or there is any input from some special files +(such as a terminal device). +
    • + +

+For the last two cases, size +specifies the size of the buffer, in bytes. +The default is an appropriate size. + + + + +

+

file:write (···)

+ + +

+Writes the value of each of its arguments to +the file. +The arguments must be strings or numbers. +To write other values, +use tostring or string.format before write. + + + + + + + +

5.8 - Operating System Facilities

+ +

+This library is implemented through table os. + + +

+

os.clock ()

+ + +

+Returns an approximation of the amount in seconds of CPU time +used by the program. + + + + +

+

os.date ([format [, time]])

+ + +

+Returns a string or a table containing date and time, +formatted according to the given string format. + + +

+If the time argument is present, +this is the time to be formatted +(see the os.time function for a description of this value). +Otherwise, date formats the current time. + + +

+If format starts with '!', +then the date is formatted in Coordinated Universal Time. +After this optional character, +if format is the string "*t", +then date returns a table with the following fields: +year (four digits), month (1--12), day (1--31), +hour (0--23), min (0--59), sec (0--61), +wday (weekday, Sunday is 1), +yday (day of the year), +and isdst (daylight saving flag, a boolean). + + +

+If format is not "*t", +then date returns the date as a string, +formatted according to the same rules as the C function strftime. + + +

+When called without arguments, +date returns a reasonable date and time representation that depends on +the host system and on the current locale +(that is, os.date() is equivalent to os.date("%c")). + + + + +

+

os.difftime (t2, t1)

+ + +

+Returns the number of seconds from time t1 to time t2. +In POSIX, Windows, and some other systems, +this value is exactly t2-t1. + + + + +

+

os.execute ([command])

+ + +

+This function is equivalent to the C function system. +It passes command to be executed by an operating system shell. +It returns a status code, which is system-dependent. +If command is absent, then it returns nonzero if a shell is available +and zero otherwise. + + + + +

+

os.exit ([code])

+ + +

+Calls the C function exit, +with an optional code, +to terminate the host program. +The default value for code is the success code. + + + + +

+

os.getenv (varname)

+ + +

+Returns the value of the process environment variable varname, +or nil if the variable is not defined. + + + + +

+

os.remove (filename)

+ + +

+Deletes the file or directory with the given name. +Directories must be empty to be removed. +If this function fails, it returns nil, +plus a string describing the error. + + + + +

+

os.rename (oldname, newname)

+ + +

+Renames file or directory named oldname to newname. +If this function fails, it returns nil, +plus a string describing the error. + + + + +

+

os.setlocale (locale [, category])

+ + +

+Sets the current locale of the program. +locale is a string specifying a locale; +category is an optional string describing which category to change: +"all", "collate", "ctype", +"monetary", "numeric", or "time"; +the default category is "all". +The function returns the name of the new locale, +or nil if the request cannot be honored. + + +

+If locale is the empty string, +the current locale is set to an implementation-defined native locale. +If locale is the string "C", +the current locale is set to the standard C locale. + + +

+When called with nil as the first argument, +this function only returns the name of the current locale +for the given category. + + + + +

+

os.time ([table])

+ + +

+Returns the current time when called without arguments, +or a time representing the date and time specified by the given table. +This table must have fields year, month, and day, +and may have fields hour, min, sec, and isdst +(for a description of these fields, see the os.date function). + + +

+The returned value is a number, whose meaning depends on your system. +In POSIX, Windows, and some other systems, this number counts the number +of seconds since some given start time (the "epoch"). +In other systems, the meaning is not specified, +and the number returned by time can be used only as an argument to +date and difftime. + + + + +

+

os.tmpname ()

+ + +

+Returns a string with a file name that can +be used for a temporary file. +The file must be explicitly opened before its use +and explicitly removed when no longer needed. + + +

+On some systems (POSIX), +this function also creates a file with that name, +to avoid security risks. +(Someone else might create the file with wrong permissions +in the time between getting the name and creating the file.) +You still have to open the file to use it +and to remove it (even if you do not use it). + + +

+When possible, +you may prefer to use io.tmpfile, +which automatically removes the file when the program ends. + + + + + + + +

5.9 - The Debug Library

+ +

+This library provides +the functionality of the debug interface to Lua programs. +You should exert care when using this library. +The functions provided here should be used exclusively for debugging +and similar tasks, such as profiling. +Please resist the temptation to use them as a +usual programming tool: +they can be very slow. +Moreover, several of these functions +violate some assumptions about Lua code +(e.g., that variables local to a function +cannot be accessed from outside or +that userdata metatables cannot be changed by Lua code) +and therefore can compromise otherwise secure code. + + +

+All functions in this library are provided +inside the debug table. +All functions that operate over a thread +have an optional first argument which is the +thread to operate over. +The default is always the current thread. + + +

+

debug.debug ()

+ + +

+Enters an interactive mode with the user, +running each string that the user enters. +Using simple commands and other debug facilities, +the user can inspect global and local variables, +change their values, evaluate expressions, and so on. +A line containing only the word cont finishes this function, +so that the caller continues its execution. + + +

+Note that commands for debug.debug are not lexically nested +within any function, and so have no direct access to local variables. + + + + +

+

debug.getfenv (o)

+Returns the environment of object o. + + + + +

+

debug.gethook ([thread])

+ + +

+Returns the current hook settings of the thread, as three values: +the current hook function, the current hook mask, +and the current hook count +(as set by the debug.sethook function). + + + + +

+

debug.getinfo ([thread,] function [, what])

+ + +

+Returns a table with information about a function. +You can give the function directly, +or you can give a number as the value of function, +which means the function running at level function of the call stack +of the given thread: +level 0 is the current function (getinfo itself); +level 1 is the function that called getinfo; +and so on. +If function is a number larger than the number of active functions, +then getinfo returns nil. + + +

+The returned table can contain all the fields returned by lua_getinfo, +with the string what describing which fields to fill in. +The default for what is to get all information available, +except the table of valid lines. +If present, +the option 'f' +adds a field named func with the function itself. +If present, +the option 'L' +adds a field named activelines with the table of +valid lines. + + +

+For instance, the expression debug.getinfo(1,"n").name returns +a table with a name for the current function, +if a reasonable name can be found, +and the expression debug.getinfo(print) +returns a table with all available information +about the print function. + + + + +

+

debug.getlocal ([thread,] level, local)

+ + +

+This function returns the name and the value of the local variable +with index local of the function at level level of the stack. +(The first parameter or local variable has index 1, and so on, +until the last active local variable.) +The function returns nil if there is no local +variable with the given index, +and raises an error when called with a level out of range. +(You can call debug.getinfo to check whether the level is valid.) + + +

+Variable names starting with '(' (open parentheses) +represent internal variables +(loop control variables, temporaries, and C function locals). + + + + +

+

debug.getmetatable (object)

+ + +

+Returns the metatable of the given object +or nil if it does not have a metatable. + + + + +

+

debug.getregistry ()

+ + +

+Returns the registry table (see §3.5). + + + + +

+

debug.getupvalue (func, up)

+ + +

+This function returns the name and the value of the upvalue +with index up of the function func. +The function returns nil if there is no upvalue with the given index. + + + + +

+

debug.setfenv (object, table)

+ + +

+Sets the environment of the given object to the given table. +Returns object. + + + + +

+

debug.sethook ([thread,] hook, mask [, count])

+ + +

+Sets the given function as a hook. +The string mask and the number count describe +when the hook will be called. +The string mask may have the following characters, +with the given meaning: + +

    +
  • "c": the hook is called every time Lua calls a function;
    • +
  • "r": the hook is called every time Lua returns from a function;
    • +
  • "l": the hook is called every time Lua enters a new line of code.
    • +

+With a count different from zero, +the hook is called after every count instructions. + + +

+When called without arguments, +debug.sethook turns off the hook. + + +

+When the hook is called, its first parameter is a string +describing the event that has triggered its call: +"call", "return" (or "tail return", +when simulating a return from a tail call), +"line", and "count". +For line events, +the hook also gets the new line number as its second parameter. +Inside a hook, +you can call getinfo with level 2 to get more information about +the running function +(level 0 is the getinfo function, +and level 1 is the hook function), +unless the event is "tail return". +In this case, Lua is only simulating the return, +and a call to getinfo will return invalid data. + + + + +

+

debug.setlocal ([thread,] level, local, value)

+ + +

+This function assigns the value value to the local variable +with index local of the function at level level of the stack. +The function returns nil if there is no local +variable with the given index, +and raises an error when called with a level out of range. +(You can call getinfo to check whether the level is valid.) +Otherwise, it returns the name of the local variable. + + + + +

+

debug.setmetatable (object, table)

+ + +

+Sets the metatable for the given object to the given table +(which can be nil). + + + + +

+

debug.setupvalue (func, up, value)

+ + +

+This function assigns the value value to the upvalue +with index up of the function func. +The function returns nil if there is no upvalue +with the given index. +Otherwise, it returns the name of the upvalue. + + + + +

+

debug.traceback ([thread,] [message [, level]])

+ + +

+Returns a string with a traceback of the call stack. +An optional message string is appended +at the beginning of the traceback. +An optional level number tells at which level +to start the traceback +(default is 1, the function calling traceback). + + + + + + + +

6 - Lua Stand-alone

+ +

+Although Lua has been designed as an extension language, +to be embedded in a host C program, +it is also frequently used as a stand-alone language. +An interpreter for Lua as a stand-alone language, +called simply lua, +is provided with the standard distribution. +The stand-alone interpreter includes +all standard libraries, including the debug library. +Its usage is: + +

+     lua [options] [script [args]]
+

+The options are: + +

    +
  • -e stat: executes string stat;
    • +
  • -l mod: "requires" mod;
    • +
  • -i: enters interactive mode after running script;
    • +
  • -v: prints version information;
    • +
  • --: stops handling options;
    • +
  • -: executes stdin as a file and stops handling options.
    • +

+After handling its options, lua runs the given script, +passing to it the given args as string arguments. +When called without arguments, +lua behaves as lua -v -i +when the standard input (stdin) is a terminal, +and as lua - otherwise. + + +

+Before running any argument, +the interpreter checks for an environment variable LUA_INIT. +If its format is @filename, +then lua executes the file. +Otherwise, lua executes the string itself. + + +

+All options are handled in order, except -i. +For instance, an invocation like + +

+     $ lua -e'a=1' -e 'print(a)' script.lua
+

+will first set a to 1, then print the value of a (which is '1'), +and finally run the file script.lua with no arguments. +(Here $ is the shell prompt. Your prompt may be different.) + + +

+Before starting to run the script, +lua collects all arguments in the command line +in a global table called arg. +The script name is stored at index 0, +the first argument after the script name goes to index 1, +and so on. +Any arguments before the script name +(that is, the interpreter name plus the options) +go to negative indices. +For instance, in the call + +

+     $ lua -la b.lua t1 t2
+

+the interpreter first runs the file a.lua, +then creates a table + +

+     arg = { [-2] = "lua", [-1] = "-la",
+             [0] = "b.lua",
+             [1] = "t1", [2] = "t2" }
+

+and finally runs the file b.lua. +The script is called with arg[1], arg[2], ··· +as arguments; +it can also access these arguments with the vararg expression '...'. + + +

+In interactive mode, +if you write an incomplete statement, +the interpreter waits for its completion +by issuing a different prompt. + + +

+If the global variable _PROMPT contains a string, +then its value is used as the prompt. +Similarly, if the global variable _PROMPT2 contains a string, +its value is used as the secondary prompt +(issued during incomplete statements). +Therefore, both prompts can be changed directly on the command line +or in any Lua programs by assigning to _PROMPT. +See the next example: + +

+     $ lua -e"_PROMPT='myprompt> '" -i
+

+(The outer pair of quotes is for the shell, +the inner pair is for Lua.) +Note the use of -i to enter interactive mode; +otherwise, +the program would just end silently +right after the assignment to _PROMPT. + + +

+To allow the use of Lua as a +script interpreter in Unix systems, +the stand-alone interpreter skips +the first line of a chunk if it starts with #. +Therefore, Lua scripts can be made into executable programs +by using chmod +x and the #! form, +as in + +

+     #!/usr/local/bin/lua
+

+(Of course, +the location of the Lua interpreter may be different in your machine. +If lua is in your PATH, +then + +

+     #!/usr/bin/env lua
+

+is a more portable solution.) + + + +

7 - Incompatibilities with the Previous Version

+ +

+Here we list the incompatibilities that you may find when moving a program +from Lua 5.0 to Lua 5.1. +You can avoid most of the incompatibilities compiling Lua with +appropriate options (see file luaconf.h). +However, +all these compatibility options will be removed in the next version of Lua. + + + +

7.1 - Changes in the Language

+
    + +
  • +The vararg system changed from the pseudo-argument arg with a +table with the extra arguments to the vararg expression. +(See compile-time option LUA_COMPAT_VARARG in luaconf.h.) +
    • + +
  • +There was a subtle change in the scope of the implicit +variables of the for statement and for the repeat statement. +
    • + +
  • +The long string/long comment syntax ([[string]]) +does not allow nesting. +You can use the new syntax ([=[string]=]) in these cases. +(See compile-time option LUA_COMPAT_LSTR in luaconf.h.) +
    • + +
+ + + + +

7.2 - Changes in the Libraries

+
    + +
  • +Function string.gfind was renamed string.gmatch. +(See compile-time option LUA_COMPAT_GFIND in luaconf.h.) +
    • + +
  • +When string.gsub is called with a function as its +third argument, +whenever this function returns nil or false the +replacement string is the whole match, +instead of the empty string. +
    • + +
  • +Function table.setn was deprecated. +Function table.getn corresponds +to the new length operator (#); +use the operator instead of the function. +(See compile-time option LUA_COMPAT_GETN in luaconf.h.) +
    • + +
  • +Function loadlib was renamed package.loadlib. +(See compile-time option LUA_COMPAT_LOADLIB in luaconf.h.) +
    • + +
  • +Function math.mod was renamed math.fmod. +(See compile-time option LUA_COMPAT_MOD in luaconf.h.) +
    • + +
  • +Functions table.foreach and table.foreachi are deprecated. +You can use a for loop with pairs or ipairs instead. +
    • + +
  • +There were substantial changes in function require due to +the new module system. +However, the new behavior is mostly compatible with the old, +but require gets the path from package.path instead +of from LUA_PATH. +
    • + +
  • +Function collectgarbage has different arguments. +Function gcinfo is deprecated; +use collectgarbage("count") instead. +
    • + +
+ + + + +

7.3 - Changes in the API

+
    + +
  • +The luaopen_* functions (to open libraries) +cannot be called directly, +like a regular C function. +They must be called through Lua, +like a Lua function. +
    • + +
  • +Function lua_open was replaced by lua_newstate to +allow the user to set a memory-allocation function. +You can use luaL_newstate from the standard library to +create a state with a standard allocation function +(based on realloc). +
    • + +
  • +Functions luaL_getn and luaL_setn +(from the auxiliary library) are deprecated. +Use lua_objlen instead of luaL_getn +and nothing instead of luaL_setn. +
    • + +
  • +Function luaL_openlib was replaced by luaL_register. +
    • + +
  • +Function luaL_checkudata now throws an error when the given value +is not a userdata of the expected type. +(In Lua 5.0 it returned NULL.) +
    • + +
+ + + + +

8 - The Complete Syntax of Lua

+ +

+Here is the complete syntax of Lua in extended BNF. +(It does not describe operator precedences.) + + + + +

+
+	chunk ::= {stat [`;´]} [laststat [`;´]]
+
+	block ::= chunk
+
+	stat ::=  varlist `=´ explist | 
+		 functioncall | 
+		 do block end | 
+		 while exp do block end | 
+		 repeat block until exp | 
+		 if exp then block {elseif exp then block} [else block] end | 
+		 for Name `=´ exp `,´ exp [`,´ exp] do block end | 
+		 for namelist in explist do block end | 
+		 function funcname funcbody | 
+		 local function Name funcbody | 
+		 local namelist [`=´ explist] 
+
+	laststat ::= return [explist] | break
+
+	funcname ::= Name {`.´ Name} [`:´ Name]
+
+	varlist ::= var {`,´ var}
+
+	var ::=  Name | prefixexp `[´ exp `]´ | prefixexp `.´ Name 
+
+	namelist ::= Name {`,´ Name}
+
+	explist ::= {exp `,´} exp
+
+	exp ::=  nil | false | true | Number | String | `...´ | function | 
+		 prefixexp | tableconstructor | exp binop exp | unop exp 
+
+	prefixexp ::= var | functioncall | `(´ exp `)´
+
+	functioncall ::=  prefixexp args | prefixexp `:´ Name args 
+
+	args ::=  `(´ [explist] `)´ | tableconstructor | String 
+
+	function ::= function funcbody
+
+	funcbody ::= `(´ [parlist] `)´ block end
+
+	parlist ::= namelist [`,´ `...´] | `...´
+
+	tableconstructor ::= `{´ [fieldlist] `}´
+
+	fieldlist ::= field {fieldsep field} [fieldsep]
+
+	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp
+
+	fieldsep ::= `,´ | `;´
+
+	binop ::= `+´ | `-´ | `*´ | `/´ | `^´ | `%´ | `..´ | 
+		 `<´ | `<=´ | `>´ | `>=´ | `==´ | `~=´ | 
+		 and | or
+
+	unop ::= `-´ | not | `#´
+
+
+ +

+ + + + + + + +

+ +Last update: +Mon Feb 13 18:54:19 BRST 2012 + + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/doc/readme.html b/src/3rd party/LuaJIT-1.1.8/doc/readme.html new file mode 100644 index 00000000000..3ed6a81895b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/doc/readme.html @@ -0,0 +1,40 @@ + + +Lua documentation + + + + + +
+

+Lua +Documentation +

+ +This is the documentation included in the source distribution of Lua 5.1.5. + + + +Lua's +official web site +contains updated documentation, +especially the +reference manual. +

+ +

+ +Last update: +Fri Feb 3 09:44:42 BRST 2012 + + + + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h new file mode 100644 index 00000000000..c194cba84bc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_proto.h @@ -0,0 +1,68 @@ +/* +** DynASM encoding engine prototypes. +** Copyright (C) 2005-2008 Mike Pall. All rights reserved. +** Released under the MIT/X license. See dynasm.lua for full copyright notice. +*/ + +#ifndef _DASM_PROTO_H +#define _DASM_PROTO_H + +#include +#include + +#define DASM_VERSION 10104 /* 1.1.4 */ + +#ifndef Dst_DECL +#define Dst_DECL dasm_State *Dst +#endif + +#ifndef Dst_GET +#define Dst_GET (Dst) +#endif + +#ifndef DASM_FDEF +#define DASM_FDEF extern +#endif + + +/* Internal DynASM encoder state. */ +typedef struct dasm_State dasm_State; + +/* Action list type. */ +typedef const unsigned char *dasm_ActList; + + +/* Initialize and free DynASM state. */ +DASM_FDEF void dasm_init(Dst_DECL, int maxsection); +DASM_FDEF void dasm_free(Dst_DECL); + +/* Setup global array. Must be called before dasm_setup(). */ +DASM_FDEF void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl); + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +DASM_FDEF void dasm_growpc(Dst_DECL, unsigned int maxpc); + +/* Setup encoder. */ +DASM_FDEF void dasm_setup(Dst_DECL, dasm_ActList actionlist); + +/* Feed encoder with actions. Calls are generated by pre-processor. */ +DASM_FDEF void dasm_put(Dst_DECL, int start, ...); + +/* Link sections and return the resulting size. */ +DASM_FDEF int dasm_link(Dst_DECL, size_t *szp); + +/* Encode sections into buffer. */ +DASM_FDEF int dasm_encode(Dst_DECL, void *buffer); + +/* Get PC label offset. */ +DASM_FDEF int dasm_getpclabel(Dst_DECL, unsigned int pc); + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +DASM_FDEF int dasm_checkstep(Dst_DECL, int secmatch); +#else +#define dasm_checkstep(a, b) 0 +#endif + + +#endif /* _DASM_PROTO_H */ diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h new file mode 100644 index 00000000000..2d4fb26a067 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h @@ -0,0 +1,455 @@ +/* +** DynASM x86 encoding engine. +** Copyright (C) 2005-2008 Mike Pall. All rights reserved. +** Released under the MIT/X license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "x86" + +/* Action definitions. DASM_STOP must be 255. */ +enum { + DASM_DISP = 235, + DASM_IMM_S, DASM_IMM_B, DASM_IMM_W, DASM_IMM_D, DASM_IMM_WB, DASM_IMM_DB, + DASM_SPACE, DASM_SETLABEL, DASM_REL_A, DASM_REL_LG, DASM_REL_PC, DASM_IMM_LG, + DASM_IMM_PC, DASM_LABEL_LG, DASM_LABEL_PC, DASM_ALIGN, DASM_ESC, DASM_MARK, + DASM_SECTION, DASM_STOP +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_UNDEF_L 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, dasm_ActList actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs, mrm = 4; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = sec->bsize/sizeof(int) - DASM_MAXSECPOS + DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + int action = *p++; + if (action < DASM_DISP) { + ofs++; + } else if (action <= DASM_REL_A) { + int n = va_arg(ap, int); + b[pos++] = n; + switch (action) { + case DASM_DISP: + if (n == 0) { if ((mrm&7) == 4) mrm = p[-2]; if ((mrm&7) != 5) break; } + case DASM_IMM_DB: if (((n+128)&-256) == 0) goto ob; + case DASM_REL_A: /* Assumes ptrdiff_t is int. !x64 */ + case DASM_IMM_D: ofs += 4; break; + case DASM_IMM_S: CK(((n+128)&-256) == 0, RANGE_I); goto ob; + case DASM_IMM_B: CK((n&-256) == 0, RANGE_I); ob: ofs++; break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto ob; + case DASM_IMM_W: CK((n&-65536) == 0, RANGE_I); ofs += 2; break; + case DASM_SPACE: p++; ofs += n; break; + case DASM_SETLABEL: b[pos-2] = -0x40000000; break; /* Neg. label ofs. */ + } + mrm = 4; + } else { + int *pl, n; + switch (action) { + case DASM_REL_LG: + case DASM_IMM_LG: + n = *p++; pl = D->lglabels + n; + if (n <= 246) { CKPL(lg, LG); goto putrel; } /* Bkwd rel or global. */ + pl -= 246; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + case DASM_IMM_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + ofs += 4; /* Maximum offset needed. */ + if (action == DASM_REL_LG || action == DASM_REL_PC) + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_LABEL_LG: pl = D->lglabels + *p++; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_ALIGN: + ofs += *p++; /* Maximum alignment needed (arg is 2**n-1). */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_ESC: p++; ofs++; break; + case DASM_MARK: mrm = p[-2]; break; + case DASM_SECTION: + n = *p; CK(n < D->maxsection, RANGE_SEC); D->section = &D->sections[n]; + case DASM_STOP: goto stop; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink branches/aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 10; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + int op, action = *p++; + switch (action) { + case DASM_REL_LG: p++; op = p[-3]; goto rel_pc; + case DASM_REL_PC: op = p[-2]; rel_pc: { + int shrink = op == 0xe9 ? 3 : ((op&0xf0) == 0x80 ? 4 : 0); + if (shrink) { /* Shrinkable branch opcode? */ + int lofs, lpos = b[pos]; + if (lpos < 0) goto noshrink; /* Ext global? */ + lofs = *DASM_POS2PTR(D, lpos); + if (lpos > pos) { /* Fwd label: add cumulative section offsets. */ + int i; + for (i = secnum; i < DASM_POS2SEC(lpos); i++) + lofs += D->sections[i].ofs; + } else { + lofs -= ofs; /* Bkwd label: unfix offset. */ + } + lofs -= b[pos+1]; /* Short branch ok? */ + if (lofs >= -128-shrink && lofs <= 127) ofs -= shrink; /* Yes. */ + else { noshrink: shrink = 0; } /* No, cannot shrink op. */ + } + b[pos+1] = shrink; + pos += 2; + break; + } + case DASM_SPACE: case DASM_IMM_LG: p++; + case DASM_DISP: case DASM_IMM_S: case DASM_IMM_B: case DASM_IMM_W: + case DASM_IMM_D: case DASM_IMM_WB: case DASM_IMM_DB: + case DASM_SETLABEL: case DASM_REL_A: case DASM_IMM_PC: pos++; break; + case DASM_LABEL_LG: p++; + case DASM_LABEL_PC: b[pos++] += ofs; break; /* Fix label offset. */ + case DASM_ALIGN: ofs -= (b[pos++]+ofs)&*p++; break; /* Adjust ofs. */ + case DASM_ESC: p++; + case DASM_MARK: break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#define dasmb(x) *cp++ = (unsigned char)(x) +#ifndef DASM_ALIGNED_WRITES +#define dasmw(x) \ + do { *((unsigned short *)cp) = (unsigned short)(x); cp+=2; } while (0) +#define dasmd(x) \ + do { *((unsigned int *)cp) = (unsigned int)(x); cp+=4; } while (0) +#else +#define dasmw(x) do { dasmb(x); dasmb((x)>>8); } while (0) +#define dasmd(x) do { dasmw(x); dasmw((x)>>16); } while (0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + unsigned char *base = (unsigned char *)buffer; + unsigned char *cp = base; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + unsigned char *mark = NULL; + while (1) { + int action = *p++; + int n = (action >= DASM_DISP && action <= DASM_ALIGN) ? *b++ : 0; + switch (action) { + case DASM_DISP: if (!mark) mark = cp; { + unsigned char *mm = mark; + if (*p != DASM_IMM_DB && *p != DASM_IMM_WB) mark = NULL; + if (n == 0) { int mrm = mm[-1]&7; if (mrm == 4) mrm = mm[0]&7; + if (mrm != 5) { mm[-1] -= 0x80; break; } } + if (((n+128) & -256) != 0) goto wd; else mm[-1] -= 0x40; + } + case DASM_IMM_S: case DASM_IMM_B: wb: dasmb(n); break; + case DASM_IMM_DB: if (((n+128)&-256) == 0) { + db: if (!mark) mark = cp; mark[-2] += 2; mark = NULL; goto wb; + } else mark = NULL; + case DASM_IMM_D: wd: dasmd(n); break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto db; else mark = NULL; + case DASM_IMM_W: dasmw(n); break; + case DASM_REL_LG: p++; if (n >= 0) goto rel_pc; + b++; n = (int)D->globals[-n]; + case DASM_REL_A: rel_a: n -= (int)(cp+4); goto wd; /* !x64 */ + case DASM_REL_PC: rel_pc: { + int shrink = *b++; + int *pb = DASM_POS2PTR(D, n); if (*pb < 0) { n = pb[1]; goto rel_a; } + n = *pb - ((cp-base) + 4-shrink); + if (shrink == 0) goto wd; + if (shrink == 4) { cp--; cp[-1] = *cp-0x10; } else cp[-1] = 0xeb; + goto wb; + } + case DASM_IMM_LG: p++; if (n < 0) { n = (int)D->globals[-n]; goto wd; } + case DASM_IMM_PC: { + int *pb = DASM_POS2PTR(D, n); + n = *pb < 0 ? pb[1] : (*pb + (ptrdiff_t)base); + goto wd; + } + case DASM_LABEL_LG: { + int idx = *p++; + if (idx >= 10) + D->globals[idx] = (void *)(base + (*p == DASM_SETLABEL ? *b : n)); + break; + } + case DASM_LABEL_PC: case DASM_SETLABEL: break; + case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = fill; break; } + case DASM_ALIGN: + n = *p++; + while (((cp-base) & n)) *cp++ = 0x90; /* nop */ + break; + case DASM_MARK: mark = cp; break; + case DASM_ESC: action = *p++; + default: *cp++ = action; break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_L|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua new file mode 100644 index 00000000000..026c3b05321 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.lua @@ -0,0 +1,1581 @@ +------------------------------------------------------------------------------ +-- DynASM x86 module. +-- +-- Copyright (C) 2005-2008 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "x86", + description = "DynASM x86 (i386) module", + version = "1.1.4", + vernum = 10104, + release = "2008-01-29", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, unpack = assert, unpack +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local find, match, gmatch, gsub = _s.find, _s.match, _s.gmatch, _s.gsub +local concat, sort = table.concat, table.sort +local char, unpack = string.char, unpack + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + -- int arg, 1 buffer pos: + "DISP", "IMM_S", "IMM_B", "IMM_W", "IMM_D", "IMM_WB", "IMM_DB", + -- action arg (1 byte), int arg, 1 buffer pos (num): + "SPACE", + -- ptrdiff_t arg, 1 buffer pos (address): !x64 + "SETLABEL", "REL_A", + -- action arg (1 byte) or int arg, 2 buffer pos (link, offset): + "REL_LG", "REL_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (link): + "IMM_LG", "IMM_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (offset): + "LABEL_LG", "LABEL_PC", + -- action arg (1 byte), 1 buffer pos (offset): + "ALIGN", + -- action arg (1 byte), no buffer pos. + "ESC", + -- no action arg, no buffer pos. + "MARK", + -- action arg (1 byte), no buffer pos, terminal action: + "SECTION", + -- no args, no buffer pos, terminal action: + "STOP" +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number (dynamically generated below). +local map_action = {} +-- First action number. Everything below does not need to be escaped. +local actfirst = 256-#action_names + +-- Action list buffer and string (only used to remove dupes). +local actlist = {} +local actstr = "" + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Compute action numbers for action names. +for n,name in ipairs(action_names) do + local num = actfirst + n - 1 + map_action[name] = num +end + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + local last = actlist[nn] or 255 + actlist[nn] = nil -- Remove last byte. + if nn == 0 then nn = 1 end + out:write("static const unsigned char ", name, "[", nn, "] = {\n") + local s = " " + for n,b in ipairs(actlist) do + s = s..b.."," + if #s >= 75 then + assert(out:write(s, "\n")) + s = " " + end + end + out:write(s, last, "\n};\n\n") -- Add last byte back. +end + +------------------------------------------------------------------------------ + +-- Add byte to action list. +local function wputxb(n) + assert(n >= 0 and n <= 255 and n % 1 == 0, "byte out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, a, num) + wputxb(assert(map_action[action], "bad action name `"..action.."'")) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Add call to embedded DynASM C code. +local function wcall(func, args) + wline(format("dasm_%s(Dst, %s);", func, concat(args, ", ")), true) +end + +-- Delete duplicate action list chunks. A tad slow, but so what. +local function dedupechunk(offset) + local al, as = actlist, actstr + local chunk = char(unpack(al, offset+1, #al)) + local orig = find(as, chunk, 1, true) + if orig then + actargs[1] = orig-1 -- Replace with original offset. + for i=offset+1,#al do al[i] = nil end -- Kill dupe. + else + actstr = as..chunk + end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + local offset = actargs[1] + if #actlist == offset then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + dedupechunk(offset) + wcall("put", actargs) -- Add call to dasm_put(). + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped byte. +local function wputb(n) + if n >= actfirst then waction("ESC") end -- Need to escape byte. + wputxb(n) +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 10 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 246 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=10,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=10,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. +local map_archdef = {} -- Ext. register name -> int. name. +local map_reg_rev = {} -- Int. register name -> ext. name. +local map_reg_num = {} -- Int. register name -> register number. +local map_reg_opsize = {} -- Int. register name -> operand size. +local map_reg_valid_base = {} -- Int. register name -> valid base register? +local map_reg_valid_index = {} -- Int. register name -> valid index register? +local reg_list = {} -- Canonical list of int. register names. + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for _PTx macros). + +local addrsize = "d" -- Size for address operands. !x64 + +-- Helper function to fill register maps. +local function mkrmap(sz, names) + for n,name in ipairs(names) do + local iname = format("@%s%x", sz, n-1) + reg_list[#reg_list+1] = iname + map_archdef[name] = iname + map_reg_rev[iname] = name + map_reg_num[iname] = n-1 + map_reg_opsize[iname] = sz + if sz == addrsize then + map_reg_valid_base[iname] = true + map_reg_valid_index[iname] = true + end + end + reg_list[#reg_list+1] = "" +end + +-- Integer registers (dword, word and byte sized). +mkrmap("d", {"eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"}) +map_reg_valid_index[map_archdef.esp] = nil +mkrmap("w", {"ax", "cx", "dx", "bx", "sp", "bp", "si", "di"}) +mkrmap("b", {"al", "cl", "dl", "bl", "ah", "ch", "dh", "bh"}) + +-- FP registers (internally tword sized, but use "f" as operand size). +mkrmap("f", {"st0", "st1", "st2", "st3", "st4", "st5", "st6", "st7"}) + +-- SSE registers (oword sized, but qword and dword accessible). +mkrmap("o", {"xmm0", "xmm1", "xmm2", "xmm3", "xmm4", "xmm5", "xmm6", "xmm7"}) + +-- Operand size prefixes to codes. +local map_opsize = { + byte = "b", word = "w", dword = "d", qword = "q", oword = "o", tword = "t", + aword = addrsize, +} + +-- Operand size code to number. +local map_opsizenum = { + b = 1, w = 2, d = 4, q = 8, o = 16, t = 10, +} + +-- Operand size code to name. +local map_opsizename = { + b = "byte", w = "word", d = "dword", q = "qword", o = "oword", t = "tword", + f = "fpword", +} + +-- Valid index register scale factors. +local map_xsc = { + ["1"] = 0, ["2"] = 1, ["4"] = 2, ["8"] = 3, +} + +-- Condition codes. +local map_cc = { + o = 0, no = 1, b = 2, nb = 3, e = 4, ne = 5, be = 6, nbe = 7, + s = 8, ns = 9, p = 10, np = 11, l = 12, nl = 13, le = 14, nle = 15, + c = 2, nae = 2, nc = 3, ae = 3, z = 4, nz = 5, na = 6, a = 7, + nge = 12, ge = 13, ng = 14, g = 15, +} + + +-- Reverse defines for registers. +function _M.revdef(s) + return gsub(s, "@%w+", map_reg_rev) +end + +-- Dump register names and numbers +local function dumpregs(out) + out:write("Register names, sizes and internal numbers:\n") + for _,reg in ipairs(reg_list) do + if reg == "" then + out:write("\n") + else + local name = map_reg_rev[reg] + local num = map_reg_num[reg] + local opsize = map_opsizename[map_reg_opsize[reg]] + out:write(format(" %-5s %-8s %d\n", name, opsize, num)) + end + end +end + +------------------------------------------------------------------------------ + +-- Put action for label arg (IMM_LG, IMM_PC, REL_LG, REL_PC). +local function wputlabel(aprefix, imm, num) + if type(imm) == "number" then + waction(aprefix.."LG", nil, num); + wputxb(imm) + else + waction(aprefix.."PC", imm, num) + end +end + +-- Put signed byte or arg. +local function wputsbarg(n) + if type(n) == "number" then + if n < -128 or n > 127 then + werror("signed immediate byte out of range") + end + if n < 0 then n = n + 256 end + wputb(n) + else waction("IMM_S", n) end +end + +-- Put unsigned byte or arg. +local function wputbarg(n) + if type(n) == "number" then + if n < 0 or n > 255 then + werror("unsigned immediate byte out of range") + end + wputb(n) + else waction("IMM_B", n) end +end + +-- Put unsigned word or arg. +local function wputwarg(n) + if type(n) == "number" then + if n < 0 or n > 65535 then + werror("unsigned immediate word out of range") + end + local r = n%256; n = (n-r)/256; wputb(r); wputb(n); + else waction("IMM_W", n) end +end + +-- Put signed or unsigned dword or arg. +local function wputdarg(n) + local tn = type(n) + if tn == "number" then + if n < 0 then n = n + 4294967296 end + local r = n%256; n = (n-r)/256; wputb(r); + r = n%256; n = (n-r)/256; wputb(r); + r = n%256; n = (n-r)/256; wputb(r); wputb(n); + elseif tn == "table" then + wputlabel("IMM_", n[1], 1) + else + waction("IMM_D", n) + end +end + +-- Put operand-size dependent number or arg (defaults to dword). +local function wputszarg(sz, n) + if not sz or sz == "d" then wputdarg(n) + elseif sz == "w" then wputwarg(n) + elseif sz == "b" then wputbarg(n) + elseif sz == "s" then wputsbarg(n) + else werror("bad operand size") end +end + +-- Put multi-byte opcode with operand-size dependent modifications. +local function wputop(sz, op) + local r + if sz == "w" then wputb(102) end + if op >= 16777216 then r = op % 16777216 wputb((op-r) / 16777216) op = r end + if op >= 65536 then r = op % 65536 wputb((op-r) / 65536) op = r end + if op >= 256 then r = op % 256 wputb((op-r) / 256) op = r end + if sz == "b" then op = op - 1 end + wputb(op) +end + +-- Put ModRM or SIB formatted byte. +local function wputmodrm(m, s, rm) + assert(m < 4 and s < 8 and rm < 8, "bad modrm operands") + wputb(64*m + 8*s + rm) +end + +-- Put ModRM/SIB plus optional displacement. +local function wputmrmsib(t, s, imark) + -- Register mode. + if sub(t.mode, 1, 1) == "r" then + wputmodrm(3, s, t.reg) + return + end + + local disp = t.disp + local tdisp = type(disp) + -- No base register? + if not t.reg then + if t.xreg then + -- Indexed mode with index register only. + wputmodrm(0, s, 4) -- [xreg*xsc+disp] -> (0, s, esp) (xsc, xreg, ebp) + wputmodrm(t.xsc, t.xreg, 5) + else + -- Pure displacement. + wputmodrm(0, s, 5) -- [disp] -> (0, s, ebp) + end + wputdarg(disp) + return + end + + local m + if tdisp == "number" then -- Check displacement size at assembly time. + if disp == 0 and t.reg ~= 5 then m = 0 -- [ebp] -> [ebp+0] (in SIB, too) + elseif disp >= -128 and disp <= 127 then m = 1 + else m = 2 end + elseif tdisp == "table" then + m = 2 + end + + -- Index register present or esp as base register: need SIB encoding. + if t.xreg or t.reg == 4 then + wputmodrm(m or 2, s, 4) -- ModRM. + if (m == nil or imark) and tdisp ~= "table" then waction("MARK") end + wputmodrm(t.xsc or 0, t.xreg or 4, t.reg) -- SIB. + else + wputmodrm(m or 2, s, t.reg) -- ModRM. + if imark and (m == 1 or m == 2) then waction("MARK") end + end + + -- Put displacement. + if m == 1 then wputsbarg(disp) + elseif m == 2 then wputdarg(disp) + elseif not m then waction("DISP", disp) end +end + +------------------------------------------------------------------------------ + +-- Return human-readable operand mode string. +local function opmodestr(op, args) + local m = {} + for i=1,#args do + local a = args[i] + m[#m+1] = sub(a.mode, 1, 1)..(a.opsize or "?") + end + return op.." "..concat(m, ",") +end + +-- Convert number to valid integer or nil. +local function toint(expr) + local n = tonumber(expr) + if n then + if n % 1 ~= 0 or n < -2147483648 or n > 4294967295 then + werror("bad integer number `"..expr.."'") + end + return n + end +end + +-- Parse immediate expression. +local function immexpr(expr) + -- &expr (pointer) + if sub(expr, 1, 1) == "&" then + return "iPJ", format("(ptrdiff_t)(%s)", sub(expr,2)) + end + + local prefix = sub(expr, 1, 2) + -- =>expr (pc label reference) + if prefix == "=>" then + return "iJ", sub(expr, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "iJ", map_global[sub(expr, 3)] + end + + -- [<>][1-9] (local label reference) + local dir, lnum = match(expr, "^([<>])([1-9])$") + if dir then -- Fwd: 247-255, Bkwd: 1-9. + return "iJ", lnum + (dir == ">" and 246 or 0) + end + + -- expr (interpreted as immediate) + return "iI", expr +end + +-- Parse displacement expression: +-num, +-expr, +-opsize*num +local function dispexpr(expr) + local disp = expr == "" and 0 or toint(expr) + if disp then return disp end + local c, dispt = match(expr, "^([+-])%s*(.+)$") + if c == "+" then + expr = dispt + elseif not c then + werror("bad displacement expression `"..expr.."'") + end + local opsize, tailops = match(dispt, "^(%w+)%s*%*%s*(.+)$") + local ops, imm = map_opsize[opsize], toint(tailops) + if ops and imm then + if c == "-" then imm = -imm end + return imm*map_opsizenum[ops] + end + local mode, iexpr = immexpr(dispt) + if mode == "iJ" then + if c == "-" then werror("cannot invert label reference") end + return { iexpr } + end + return expr -- Need to return original signed expression. +end + +-- Parse register or type expression. +local function rtexpr(expr) + if not expr then return end + local tname, ovreg = match(expr, "^([%w_]+):(@[%w_]+)$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + local rnum = map_reg_num[reg] + if not rnum then + werror("type `"..(tname or expr).."' needs a register override") + end + if not map_reg_valid_base[reg] then + werror("bad base register override `"..(map_reg_rev[reg] or reg).."'") + end + return reg, rnum, tp + end + return expr, map_reg_num[expr] +end + +-- Parse operand and return { mode, opsize, reg, xreg, xsc, disp, imm }. +local function parseoperand(param) + local t = {} + + local expr = param + local opsize, tailops = match(param, "^(%w+)%s*(.+)$") + if opsize then + t.opsize = map_opsize[opsize] + if t.opsize then expr = tailops end + end + + local br = match(expr, "^%[%s*(.-)%s*%]$") + repeat + if br then + t.mode = "xm" + + -- [disp] + t.disp = toint(br) + if t.disp then + t.mode = "xmO" + break + end + + -- [reg...] + local tp + local reg, tailr = match(br, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if not t.reg then + -- [expr] + t.mode = "xmO" + t.disp = dispexpr("+"..br) + break + end + + -- [xreg*xsc] or [xreg*xsc+-disp] or [xreg*xsc+-expr] + local xsc, tailsc = match(tailr, "^%*%s*([1248])%s*(.*)$") + if xsc then + if not map_reg_valid_index[reg] then + werror("bad index register `"..map_reg_rev[reg].."'") + end + t.xsc = map_xsc[xsc] + t.xreg = t.reg + t.reg = nil + t.disp = dispexpr(tailsc) + break + end + if not map_reg_valid_base[reg] then + werror("bad base register `"..map_reg_rev[reg].."'") + end + + -- [reg] or [reg+-disp] + t.disp = toint(tailr) or (tailr == "" and 0) + if t.disp then break end + + -- [reg+xreg...] + local xreg, tailx = match(tailr, "^+%s*([@%w_:]+)%s*(.*)$") + xreg, t.xreg, tp = rtexpr(xreg) + if not t.xreg then + -- [reg+-expr] + t.disp = dispexpr(tailr) + break + end + if not map_reg_valid_index[xreg] then + werror("bad index register `"..map_reg_rev[xreg].."'") + end + + -- [reg+xreg*xsc...] + local xsc, tailsc = match(tailx, "^%*%s*([1248])%s*(.*)$") + if xsc then + t.xsc = map_xsc[xsc] + tailx = tailsc + end + + -- [...] or [...+-disp] or [...+-expr] + t.disp = dispexpr(tailx) + else + -- imm or opsize*imm + local imm = toint(expr) + if not imm and sub(expr, 1, 1) == "*" and t.opsize then + imm = toint(sub(expr, 2)) + if imm then + imm = imm * map_opsizenum[t.opsize] + t.opsize = nil + end + end + if imm then + if t.opsize then werror("bad operand size override") end + local m = "i" + if imm == 1 then m = m.."1" end + if imm >= 4294967168 and imm <= 4294967295 then imm = imm-4294967296 end + if imm >= -128 and imm <= 127 then m = m.."S" end + t.imm = imm + t.mode = m + break + end + + local tp + local reg, tailr = match(expr, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if t.reg then + -- reg + if tailr == "" then + if t.opsize then werror("bad operand size override") end + t.opsize = map_reg_opsize[reg] + if t.opsize == "f" then + t.mode = t.reg == 0 and "fF" or "f" + else + if reg == "@w4" then wwarn("bad idea, try again with `esp'") end + t.mode = t.reg == 0 and "rmR" or (reg == "@b1" and "rmC" or "rm") + end + break + end + + -- type[idx], type[idx].field, type->field -> [reg+offset_expr] + if not tp then werror("bad operand `"..param.."'") end + t.mode = "xm" + t.disp = format(tp.ctypefmt, tailr) + else + t.mode, t.imm = immexpr(expr) + if sub(t.mode, -1) == "J" then + if t.opsize and t.opsize ~= addrsize then + werror("bad operand size override") + end + t.opsize = addrsize + end + end + end + until true + return t +end + +------------------------------------------------------------------------------ +-- x86 Template String Description +-- =============================== +-- +-- Each template string is a list of [match:]pattern pairs, +-- separated by "|". The first match wins. No match means a +-- bad or unsupported combination of operand modes or sizes. +-- +-- The match part and the ":" is omitted if the operation has +-- no operands. Otherwise the first N characters are matched +-- against the mode strings of each of the N operands. +-- +-- The mode string for each operand type is (see parseoperand()): +-- Integer register: "rm", +"R" for eax, ax, al, +"C" for cl +-- FP register: "f", +"F" for st0 +-- Index operand: "xm", +"O" for [disp] (pure offset) +-- Immediate: "i", +"S" for signed 8 bit, +"1" for 1, +-- +"I" for arg, +"P" for pointer +-- Any: +"J" for valid jump targets +-- +-- So a match character "m" (mixed) matches both an integer register +-- and an index operand (to be encoded with the ModRM/SIB scheme). +-- But "r" matches only a register and "x" only an index operand +-- (e.g. for FP memory access operations). +-- +-- The operand size match string starts right after the mode match +-- characters and ends before the ":". "dwb" is assumed, if empty. +-- The effective data size of the operation is matched against this list. +-- +-- If only the regular "b", "w", "d", "q", "t" operand sizes are +-- present, then all operands must be the same size. Unspecified sizes +-- are ignored, but at least one operand must have a size or the pattern +-- won't match (use the "byte", "word", "dword", "qword", "tword" +-- operand size overrides. E.g.: mov dword [eax], 1). +-- +-- If the list has a "1" or "2" prefix, the operand size is taken +-- from the respective operand and any other operand sizes are ignored. +-- If the list contains only ".", all operand sizes are ignored. +-- If the list has a "/" prefix, the concatenated (mixed) operand sizes +-- are compared to the match. +-- +-- E.g. "rrdw" matches for either two dword registers or two word +-- registers. "Fx2dq" matches an st0 operand plus an index operand +-- pointing to a dword (float) or qword (double). +-- +-- Every character after the ":" is part of the pattern string: +-- Hex chars are accumulated to form the opcode (left to right). +-- "n" disables the standard opcode mods +-- (otherwise: -1 for "b", o16 prefix for "w") +-- "r"/"R" adds the reg. number from the 1st/2nd operand to the opcode. +-- "m"/"M" generates ModRM/SIB from the 1st/2nd operand. +-- The spare 3 bits are either filled with the last hex digit or +-- the result from a previous "r"/"R". The opcode is restored. +-- +-- All of the following characters force a flush of the opcode: +-- "o"/"O" stores a pure 32 bit disp (offset) from the 1st/2nd operand. +-- "S" stores a signed 8 bit immediate from the last operand. +-- "U" stores an unsigned 8 bit immediate from the last operand. +-- "W" stores an unsigned 16 bit immediate from the last operand. +-- "i" stores an operand sized immediate from the last operand. +-- "I" dito, but generates an action code to optionally modify +-- the opcode (+2) for a signed 8 bit immediate. +-- "J" generates one of the REL action codes from the last operand. +-- +------------------------------------------------------------------------------ + +-- Template strings for x86 instructions. Ordered by first opcode byte. +-- Unimplemented opcodes (deliberate omissions) are marked with *. +local map_op = { + -- 00-05: add... + -- 06: *push es + -- 07: *pop es + -- 08-0D: or... + -- 0E: *push cs + -- 0F: two byte opcode prefix + -- 10-15: adc... + -- 16: *push ss + -- 17: *pop ss + -- 18-1D: sbb... + -- 1E: *push ds + -- 1F: *pop ds + -- 20-25: and... + es_0 = "26", + -- 27: *daa + -- 28-2D: sub... + cs_0 = "2E", + -- 2F: *das + -- 30-35: xor... + ss_0 = "36", + -- 37: *aaa + -- 38-3D: cmp... + ds_0 = "3E", + -- 3F: *aas + inc_1 = "rdw:40r|m:FF0m", + dec_1 = "rdw:48r|m:FF1m", + push_1 = "rdw:50r|mdw:FF6m|S.:6AS|ib:n6Ai|i.:68i", + pop_1 = "rdw:58r|mdw:8F0m", + -- 60: *pusha, *pushad, *pushaw + -- 61: *popa, *popad, *popaw + -- 62: *bound rdw,x + -- 63: *arpl mw,rw + fs_0 = "64", + gs_0 = "65", + o16_0 = "66", + a16_0 = "67", + -- 68: push idw + -- 69: imul rdw,mdw,idw + -- 6A: push ib + -- 6B: imul rdw,mdw,S + -- 6C: *insb + -- 6D: *insd, *insw + -- 6E: *outsb + -- 6F: *outsd, *outsw + -- 70-7F: jcc lb + -- 80: add... mb,i + -- 81: add... mdw,i + -- 82: *undefined + -- 83: add... mdw,S + test_2 = "mr:85Rm|rm:85rM|Ri:A9i|mi:F70mi", + -- 86: xchg rb,mb + -- 87: xchg rdw,mdw + -- 88: mov mb,r + -- 89: mov mdw,r + -- 8A: mov r,mb + -- 8B: mov r,mdw + -- 8C: *mov mdw,seg + lea_2 = "rxd:8DrM", + -- 8E: *mov seg,mdw + -- 8F: pop mdw + nop_0 = "90", + xchg_2 = "Rrdw:90R|rRdw:90r|rm:87rM|mr:87Rm", + cbw_0 = "6698", + cwde_0 = "98", + cwd_0 = "6699", + cdq_0 = "99", + -- 9A: *call iw:idw + wait_0 = "9B", + fwait_0 = "9B", + pushf_0 = "9C", + pushfw_0 = "669C", + pushfd_0 = "9C", + popf_0 = "9D", + popfw_0 = "669D", + popfd_0 = "9D", + sahf_0 = "9E", + lahf_0 = "9F", + mov_2 = "OR:A3o|RO:A1O|mr:89Rm|rm:8BrM|rib:nB0ri|ridw:B8ri|mi:C70mi", + movsb_0 = "A4", + movsw_0 = "66A5", + movsd_0 = "A5", + cmpsb_0 = "A6", + cmpsw_0 = "66A7", + cmpsd_0 = "A7", + -- A8: test Rb,i + -- A9: test Rdw,i + stosb_0 = "AA", + stosw_0 = "66AB", + stosd_0 = "AB", + lodsb_0 = "AC", + lodsw_0 = "66AD", + lodsd_0 = "AD", + scasb_0 = "AE", + scasw_0 = "66AF", + scasd_0 = "AF", + -- B0-B7: mov rb,i + -- B8-BF: mov rdw,i + -- C0: rol... mb,i + -- C1: rol... mdw,i + ret_1 = "i.:nC2W", + ret_0 = "C3", + -- C4: *les rdw,mq + -- C5: *lds rdw,mq + -- C6: mov mb,i + -- C7: mov mdw,i + -- C8: *enter iw,ib + leave_0 = "C9", + -- CA: *retf iw + -- CB: *retf + int3_0 = "CC", + int_1 = "i.:nCDU", + into_0 = "CE", + -- CF: *iret + -- D0: rol... mb,1 + -- D1: rol... mdw,1 + -- D2: rol... mb,cl + -- D3: rol... mb,cl + -- D4: *aam ib + -- D5: *aad ib + -- D6: *salc + -- D7: *xlat + -- D8-DF: floating point ops + -- E0: *loopne + -- E1: *loope + -- E2: *loop + -- E3: *jcxz, *jecxz + -- E4: *in Rb,ib + -- E5: *in Rdw,ib + -- E6: *out ib,Rb + -- E7: *out ib,Rdw + call_1 = "md:FF2m|J.:E8J", + jmp_1 = "md:FF4m|J.:E9J", -- short: EB + -- EA: *jmp iw:idw + -- EB: jmp ib + -- EC: *in Rb,dx + -- ED: *in Rdw,dx + -- EE: *out dx,Rb + -- EF: *out dx,Rdw + -- F0: *lock + int1_0 = "F1", + repne_0 = "F2", + repnz_0 = "F2", + rep_0 = "F3", + repe_0 = "F3", + repz_0 = "F3", + -- F4: *hlt + cmc_0 = "F5", + -- F6: test... mb,i; div... mb + -- F7: test... mdw,i; div... mdw + clc_0 = "F8", + stc_0 = "F9", + -- FA: *cli + cld_0 = "FC", + std_0 = "FD", + -- FE: inc... mb + -- FF: inc... mdw + + -- misc ops + not_1 = "m:F72m", + neg_1 = "m:F73m", + mul_1 = "m:F74m", + imul_1 = "m:F75m", + div_1 = "m:F76m", + idiv_1 = "m:F77m", + + imul_2 = "rmdw:0FAFrM|rIdw:69rmI|rSdw:6BrmS|ridw:69rmi", + imul_3 = "rmIdw:69rMI|rmSdw:6BrMS|rmidw:69rMi", + + movzx_2 = "rm/db:0FB6rM|rm/wb:0FB6rM|rm/dw:0FB7rM", + movsx_2 = "rm/db:0FBErM|rm/wb:0FBErM|rm/dw:0FBFrM", + + bswap_1 = "rd:0FC8r", + bsf_2 = "rmdw:0FBCrM", + bsr_2 = "rmdw:0FBDrM", + bt_2 = "mrdw:0FA3Rm|midw:0FBA4mU", + btc_2 = "mrdw:0FBBRm|midw:0FBA7mU", + btr_2 = "mrdw:0FB3Rm|midw:0FBA6mU", + bts_2 = "mrdw:0FABRm|midw:0FBA5mU", + + rdtsc_0 = "0F31", -- P1+ + cpuid_0 = "0FA2", -- P1+ + + -- floating point ops + fst_1 = "ff:DDD0r|xd:D92m|xq:DD2m", + fstp_1 = "ff:DDD8r|xd:D93m|xq:DD3m|xt:DB7m", + fld_1 = "ff:D9C0r|xd:D90m|xq:DD0m|xt:DB5m", + + fpop_0 = "DDD8", -- Alias for fstp st0. + + fist_1 = "xw:nDF2m|xd:DB2m", + fistp_1 = "xw:nDF3m|xd:DB3m|xq:DF7m", + fisttp_1 = "xw:nDF1m|xd:DB1m|xq:DD1m", -- SSE3 + fild_1 = "xw:nDF0m|xd:DB0m|xq:DF5m", + + fxch_0 = "D9C9", + fxch_1 = "ff:D9C8r", + fxch_2 = "fFf:D9C8r|Fff:D9C8R", + + fucom_1 = "ff:DDE0r", + fucom_2 = "Fff:DDE0R", + fucomp_1 = "ff:DDE8r", + fucomp_2 = "Fff:DDE8R", + fucomi_1 = "ff:DBE8r", -- P6+ + fucomi_2 = "Fff:DBE8R", -- P6+ + fucomip_1 = "ff:DFE8r", -- P6+ + fucomip_2 = "Fff:DFE8R", -- P6+ + fcomi_1 = "ff:DBF0r", -- P6+ + fcomi_2 = "Fff:DBF0R", -- P6+ + fcomip_1 = "ff:DFF0r", -- P6+ + fcomip_2 = "Fff:DFF0R", -- P6+ + fucompp_0 = "DAE9", + fcompp_0 = "DED9", + + fldcw_1 = "xw:nD95m", + fstcw_1 = "xw:n9BD97m", + fnstcw_1 = "xw:nD97m", + fstsw_1 = "Rw:n9BDFE0|xw:n9BDD7m", + fnstsw_1 = "Rw:nDFE0|xw:nDD7m", + fclex_0 = "9BDBE2", + fnclex_0 = "DBE2", + + fnop_0 = "D9D0", + -- D9D1-D9DF: unassigned + + fchs_0 = "D9E0", + fabs_0 = "D9E1", + -- D9E2: unassigned + -- D9E3: unassigned + ftst_0 = "D9E4", + fxam_0 = "D9E5", + -- D9E6: unassigned + -- D9E7: unassigned + fld1_0 = "D9E8", + fldl2t_0 = "D9E9", + fldl2e_0 = "D9EA", + fldpi_0 = "D9EB", + fldlg2_0 = "D9EC", + fldln2_0 = "D9ED", + fldz_0 = "D9EE", + -- D9EF: unassigned + + f2xm1_0 = "D9F0", + fyl2x_0 = "D9F1", + fptan_0 = "D9F2", + fpatan_0 = "D9F3", + fxtract_0 = "D9F4", + fprem1_0 = "D9F5", + fdecstp_0 = "D9F6", + fincstp_0 = "D9F7", + fprem_0 = "D9F8", + fyl2xp1_0 = "D9F9", + fsqrt_0 = "D9FA", + fsincos_0 = "D9FB", + frndint_0 = "D9FC", + fscale_0 = "D9FD", + fsin_0 = "D9FE", + fcos_0 = "D9FF", + + -- SSE, SSE2, SSE3, SSSE3 ops + addsubpd_2 = "rmo:660FD0rM", + addsubps_2 = "rmo:F20FD0rM", + andnpd_2 = "rmo:660F55rM", + andnps_2 = "rmo:0F55rM", + andpd_2 = "rmo:660F54rM", + andps_2 = "rmo:0F54rM", + clflush_1 = "x.:0FAE7m", + cmppd_3 = "rmio:660FC2rMU", + cmpps_3 = "rmio:0FC2rMU", + cmpsd_3 = "rmio:F20FC2rMU", + cmpss_3 = "rmio:F30FC2rMU", + comisd_2 = "rmo:660F2FrM", + comiss_2 = "rmo:0F2FrM", + cvtdq2pd_2 = "rro:F30FE6rM|rx/oq:", + cvtdq2ps_2 = "rmo:0F5BrM", + cvtpd2dq_2 = "rmo:F20FE6rM", + cvtpd2ps_2 = "rmo:660F5ArM", + cvtpi2pd_2 = "rx/oq:660F2ArM", + cvtpi2ps_2 = "rx/oq:0F2ArM", + cvtps2dq_2 = "rmo:660F5BrM", + cvtps2pd_2 = "rro:0F5ArM|rx/oq:", + cvtsd2si_2 = "rr/do:F20F2DrM|rx/dq:", + cvtsd2ss_2 = "rro:F20F5ArM|rx/oq:", + cvtsi2sd_2 = "rm/od:F20F2ArM", + cvtsi2ss_2 = "rm/od:F30F2ArM", + cvtss2sd_2 = "rro:F30F5ArM|rx/od:", + cvtss2si_2 = "rr/do:F20F2CrM|rx/dd:", + cvttpd2dq_2 = "rmo:660FE6rM", + cvttps2dq_2 = "rmo:F30F5BrM", + cvttsd2si_2 = "rr/do:F20F2CrM|rx/dq:", + cvttss2si_2 = "rr/do:F30F2CrM|rx/dd:", + haddpd_2 = "rmo:660F7CrM", + haddps_2 = "rmo:F20F7CrM", + hsubpd_2 = "rmo:660F7DrM", + hsubps_2 = "rmo:F20F7DrM", + lddqu_2 = "rxo:F20FF0rM", + ldmxcsr_1 = "xd:0FAE2m", + lfence_0 = "0FAEE8", + maskmovdqu_2 = "rro:660FF7rM", + mfence_0 = "0FAEF0", + movapd_2 = "rmo:660F28rM|mro:660F29Rm", + movaps_2 = "rmo:0F28rM|mro:0F29Rm", + movd_2 = "rm/od:660F6ErM|mr/do:660F7ERm", + movddup_2 = "rmo:F20F12rM", + movdqa_2 = "rmo:660F6FrM|mro:660F7FRm", + movdqu_2 = "rmo:F30F6FrM|mro:F30F7FRm", + movhlps_2 = "rro:0F12rM", + movhpd_2 = "rx/oq:660F16rM|xr/qo:660F17Rm", + movhps_2 = "rx/oq:0F16rM|xr/qo:0F17Rm", + movlhps_2 = "rro:0F16rM", + movlpd_2 = "rx/oq:660F12rM|xr/qo:660F13Rm", + movlps_2 = "rx/oq:0F12rM|xr/qo:0F13Rm", + movmskpd_2 = "rr/do:660F50rM", + movmskps_2 = "rr/do:0F50rM", + movntdq_2 = "xro:660FE7Rm", + movnti_2 = "xrd:0FC3Rm", + movntpd_2 = "xro:660F2BRm", + movntps_2 = "xro:0F2BRm", + movq_2 = "rro:F30F7ErM|rx/oq:|xr/qo:660FD6Rm", + movsd_2 = "rro:F20F10rM|rx/oq:|xr/qo:F20F11Rm", + movshdup_2 = "rmo:F30F16rM", + movsldup_2 = "rmo:F30F12rM", + movss_2 = "rro:F30F10rM|rx/od:|xr/do:F30F11Rm", + movupd_2 = "rmo:660F10rM|mro:660F11Rm", + movups_2 = "rmo:0F10rM|mro:0F11Rm", + orpd_2 = "rmo:660F56rM", + orps_2 = "rmo:0F56rM", + pabsb_2 = "rmo:660F381CrM", + pabsd_2 = "rmo:660F381ErM", + pabsw_2 = "rmo:660F381DrM", + packssdw_2 = "rmo:660F6BrM", + packsswb_2 = "rmo:660F63rM", + packuswb_2 = "rmo:660F67rM", + paddb_2 = "rmo:660FFCrM", + paddd_2 = "rmo:660FFErM", + paddq_2 = "rmo:660FD4rM", + paddsb_2 = "rmo:660FECrM", + paddsw_2 = "rmo:660FEDrM", + paddusb_2 = "rmo:660FDCrM", + paddusw_2 = "rmo:660FDDrM", + paddw_2 = "rmo:660FFDrM", + palignr_3 = "rmio:660F3A0FrMU", + pand_2 = "rmo:660FDBrM", + pandn_2 = "rmo:660FDFrM", + pause_0 = "F390", + pavgb_2 = "rmo:660FE0rM", + pavgw_2 = "rmo:660FE3rM", + pcmpeqb_2 = "rmo:660F74rM", + pcmpeqd_2 = "rmo:660F76rM", + pcmpeqw_2 = "rmo:660F75rM", + pcmpgtb_2 = "rmo:660F64rM", + pcmpgtd_2 = "rmo:660F66rM", + pcmpgtw_2 = "rmo:660F65rM", + pextrw_3 = "rri/do:660FC5rMU", + phaddd_2 = "rmo:660F3802rM", + phaddsw_2 = "rmo:660F3803rM", + phaddw_2 = "rmo:660F3801rM", + phsubd_2 = "rmo:660F3806rM", + phsubsw_2 = "rmo:660F3807rM", + phsubw_2 = "rmo:660F3805rM", + pinsrw_3 = "rri/od:660FC4rMU|rmi/ow:", + pmaddubsw_2 = "rmo:660F3804rM", + pmaddwd_2 = "rmo:660FF5rM", + pmaxsw_2 = "rmo:660FEErM", + pmaxub_2 = "rmo:660FDErM", + pminsw_2 = "rmo:660FEArM", + pminub_2 = "rmo:660FDArM", + pmovmskb_2 = "rr/do:660FD7rM", + pmulhrsw_2 = "rmo:660F380BrM", + pmulhuw_2 = "rmo:660FE4rM", + pmulhw_2 = "rmo:660FE5rM", + pmullw_2 = "rmo:660FD5rM", + pmuludq_2 = "rmo:660FF4rM", + por_2 = "rmo:660FEBrM", + prefetchnta_1 = "xb:n0F180m", + prefetcht0_1 = "xb:n0F181m", + prefetcht1_1 = "xb:n0F182m", + prefetcht2_1 = "xb:n0F183m", + psadbw_2 = "rmo:660FF6rM", + pshufb_2 = "rmo:660F3800rM", + pshufd_3 = "rmio:660F70rMU", + pshufhw_3 = "rmio:F30F70rMU", + pshuflw_3 = "rmio:F20F70rMU", + psignb_2 = "rmo:660F3808rM", + psignd_2 = "rmo:660F380ArM", + psignw_2 = "rmo:660F3809rM", + pslld_2 = "rmo:660FF2rM|rio:660F726mU", + pslldq_2 = "rio:660F737mU", + psllq_2 = "rmo:660FF3rM|rio:660F736mU", + psllw_2 = "rmo:660FF1rM|rio:660F716mU", + psrad_2 = "rmo:660FE2rM|rio:660F724mU", + psraw_2 = "rmo:660FE1rM|rio:660F714mU", + psrld_2 = "rmo:660FD2rM|rio:660F722mU", + psrldq_2 = "rio:660F733mU", + psrlq_2 = "rmo:660FD3rM|rio:660F732mU", + psrlw_2 = "rmo:660FD1rM|rio:660F712mU", + psubb_2 = "rmo:660FF8rM", + psubd_2 = "rmo:660FFArM", + psubq_2 = "rmo:660FFBrM", + psubsb_2 = "rmo:660FE8rM", + psubsw_2 = "rmo:660FE9rM", + psubusb_2 = "rmo:660FD8rM", + psubusw_2 = "rmo:660FD9rM", + psubw_2 = "rmo:660FF9rM", + punpckhbw_2 = "rmo:660F68rM", + punpckhdq_2 = "rmo:660F6ArM", + punpckhqdq_2 = "rmo:660F6DrM", + punpckhwd_2 = "rmo:660F69rM", + punpcklbw_2 = "rmo:660F60rM", + punpckldq_2 = "rmo:660F62rM", + punpcklqdq_2 = "rmo:660F6CrM", + punpcklwd_2 = "rmo:660F61rM", + pxor_2 = "rmo:660FEFrM", + rcpps_2 = "rmo:0F53rM", + rcpss_2 = "rmo:F30F53rM", + rsqrtps_2 = "rmo:0F52rM", + rsqrtss_2 = "rmo:F30F52rM", + sfence_0 = "0FAEF8", + shufpd_3 = "rmio:660FC6rMU", + shufps_3 = "rmio:0FC6rMU", + stmxcsr_1 = "xd:0FAE3m", + ucomisd_2 = "rmo:660F2ErM", + ucomiss_2 = "rmo:0F2ErM", + unpckhpd_2 = "rmo:660F15rM", + unpckhps_2 = "rmo:0F15rM", + unpcklpd_2 = "rmo:660F14rM", + unpcklps_2 = "rmo:0F14rM", + xorpd_2 = "rmo:660F57rM", + xorps_2 = "rmo:0F57rM", +} + +------------------------------------------------------------------------------ + +-- Arithmetic ops. +for name,n in pairs{ add = 0, ["or"] = 1, adc = 2, sbb = 3, + ["and"] = 4, sub = 5, xor = 6, cmp = 7 } do + local n8 = n * 8 + map_op[name.."_2"] = format( + "mr:%02XRm|rm:%02XrM|mI1dw:81%XmI|mS1dw:83%XmS|Ri1dwb:%02Xi|mi1dwb:81%Xmi", + 1+n8, 3+n8, n, n, 5+n8, n) +end + +-- Shift ops. +for name,n in pairs{ rol = 0, ror = 1, rcl = 2, rcr = 3, + shl = 4, shr = 5, sar = 7, sal = 4 } do + map_op[name.."_2"] = format("m1:D1%Xm|mC1dwb:D3%Xm|mi:C1%XmU", n, n, n) +end + +-- Conditional ops. +for cc,n in pairs(map_cc) do + map_op["j"..cc.."_1"] = format("J.:0F8%XJ", n) -- short: 7%X + map_op["set"..cc.."_1"] = format("mb:n0F9%X2m", n) + map_op["cmov"..cc.."_2"] = format("rmdw:0F4%XrM", n) -- P6+ +end + +-- FP arithmetic ops. +for name,n in pairs{ add = 0, mul = 1, com = 2, comp = 3, + sub = 4, subr = 5, div = 6, divr = 7 } do + local nc = 192 + n * 8 + local nr = nc + (n < 4 and 0 or (n % 2 == 0 and 8 or -8)) + local fn = "f"..name + map_op[fn.."_1"] = format("ff:D8%02Xr|xd:D8%Xm|xq:DC%Xm", nc, n, n) + if n == 2 or n == 3 then + map_op[fn.."_2"] = format("Fff:D8%02XR|Fx2d:D8%XM|Fx2q:DC%XM", nc, n, n) + else + map_op[fn.."_2"] = format("Fff:D8%02XR|fFf:DC%02Xr|Fx2d:D8%XM|Fx2q:DC%XM", nc, nr, n, n) + map_op[fn.."p_1"] = format("ff:DE%02Xr", nr) + map_op[fn.."p_2"] = format("fFf:DE%02Xr", nr) + end + map_op["fi"..name.."_1"] = format("xd:DA%Xm|xw:nDE%Xm", n, n) +end + +-- FP conditional moves. +for cc,n in pairs{ b=0, e=1, be=2, u=3, nb=4, ne=5, nbe=6, nu=7 } do + local n4 = n % 4 + local nc = 56000 + n4 * 8 + (n-n4) * 64 + map_op["fcmov"..cc.."_1"] = format("ff:%04Xr", nc) -- P6+ + map_op["fcmov"..cc.."_2"] = format("Fff:%04XR", nc) -- P6+ +end + +-- SSE FP arithmetic ops. +for name,n in pairs{ sqrt = 1, add = 8, mul = 9, + sub = 12, min = 13, div = 14, max = 15 } do + map_op[name.."ps_2"] = format("rmo:0F5%XrM", n) + map_op[name.."ss_2"] = format("rro:F30F5%XrM|rx/od:", n) + map_op[name.."pd_2"] = format("rmo:660F5%XrM", n) + map_op[name.."sd_2"] = format("rro:F20F5%XrM|rx/oq:", n) +end + +------------------------------------------------------------------------------ + +-- Process pattern string. +local function dopattern(pat, args, sz, op) + local digit, addin + local opcode = 0 + local szov = sz + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 2 positions. !x64 + if secpos+2 > maxsecpos then wflush() end + + -- Process each character. + for c in gmatch(pat, ".") do + if match(c, "%x") then -- Hex digit. + digit = byte(c) - 48 + if digit > 48 then digit = digit - 39 + elseif digit > 16 then digit = digit - 7 end + opcode = opcode*16 + digit + addin = nil + elseif c == "n" then -- Disable operand size mods for opcode. + szov = nil + elseif c == "r" then -- Merge 1st operand regno. into opcode. + addin = args[1].reg; opcode = opcode + addin + elseif c == "R" then -- Merge 2nd operand regno. into opcode. + addin = args[2].reg; opcode = opcode + addin + elseif c == "m" or c == "M" then -- Encode ModRM/SIB. + if addin then + opcode = opcode - addin -- Undo regno opcode merge. + else + addin = opcode % 16 -- Undo last digit. + opcode = (opcode - addin) / 16 + end + wputop(szov, opcode); opcode = nil + local imark = (sub(pat, -1) == "I") -- Force a mark (ugly). + -- Put ModRM/SIB with regno/last digit as spare. + wputmrmsib(args[c == "m" and 1 or 2], addin, imark) + else + if opcode then wputop(szov, opcode); opcode = nil end -- Flush opcode. + if c == "o" or c == "O" then -- Offset (pure 32 bit displacement). + wputdarg(args[c == "o" and 1 or 2].disp) + else + -- Anything else is an immediate operand. + local a = args[#args] + local mode, imm = a.mode, a.imm + if mode == "iJ" and not match("iIJ", c) then + werror("bad operand size for label") + end + if c == "S" then + wputsbarg(imm) + elseif c == "U" then + wputbarg(imm) + elseif c == "W" then + wputwarg(imm) + elseif c == "i" or c == "I" then + if mode == "iJ" then + wputlabel("IMM_", imm, 1) + elseif mode == "iI" and c == "I" then + waction(sz == "w" and "IMM_WB" or "IMM_DB", imm) + else + wputszarg(sz, imm) + end + elseif c == "J" then + if mode == "iPJ" then + waction("REL_A", imm) -- !x64 (secpos) + else + wputlabel("REL_", imm, 2) + end + else + werror("bad char `"..c.."' in pattern `"..pat.."' for `"..op.."'") + end + end + end + end + if opcode then wputop(szov, opcode) end +end + +------------------------------------------------------------------------------ + +-- Mapping of operand modes to short names. Suppress output with '#'. +local map_modename = { + r = "reg", R = "eax", C = "cl", x = "mem", m = "mrm", i = "imm", + f = "stx", F = "st0", J = "lbl", ["1"] = "1", + I = "#", S = "#", O = "#", +} + +-- Return a table/string showing all possible operand modes. +local function templatehelp(template, nparams) + if nparams == 0 then return "" end + local t = {} + for tm in gmatch(template, "[^%|]+") do + local s = map_modename[sub(tm, 1, 1)] + s = s..gsub(sub(tm, 2, nparams), ".", function(c) + return ", "..map_modename[c] + end) + if not match(s, "#") then t[#t+1] = s end + end + return t +end + +-- Match operand modes against mode match part of template. +local function matchtm(tm, args) + for i=1,#args do + if not match(args[i].mode, sub(tm, i, i)) then return end + end + return true +end + +-- Handle opcodes defined with template strings. +map_op[".template__"] = function(params, template, nparams) + if not params then return templatehelp(template, nparams) end + local args = {} + + -- Zero-operand opcodes have no match part. + if #params == 0 then + dopattern(template, args, "d", params.op) + return + end + + -- Determine common operand size (coerce undefined size) or flag as mixed. + local sz, szmix + for i,p in ipairs(params) do + args[i] = parseoperand(p) + local nsz = args[i].opsize + if nsz then + if sz and sz ~= nsz then szmix = true else sz = nsz end + end + end + + -- Try all match:pattern pairs (separated by '|'). + local gotmatch, lastpat + for tm in gmatch(template, "[^%|]+") do + -- Split off size match (starts after mode match) and pattern string. + local szm, pat = match(tm, "^(.-):(.*)$", #args+1) + if pat == "" then pat = lastpat else lastpat = pat end + if matchtm(tm, args) then + local prefix = sub(szm, 1, 1) + if prefix == "/" then -- Match both operand sizes. + if args[1].opsize == sub(szm, 2, 2) and + args[2].opsize == sub(szm, 3, 3) then + dopattern(pat, args, sz, params.op) -- Process pattern string. + return + end + else -- Match common operand size. + local szp = sz + if szm == "" then szm = "dwb" end -- Default size match. + if prefix == "1" then szp = args[1].opsize; szmix = nil + elseif prefix == "2" then szp = args[2].opsize; szmix = nil end + if not szmix and (prefix == "." or match(szm, szp or "#")) then + dopattern(pat, args, szp, params.op) -- Process pattern string. + return + end + end + gotmatch = true + end + end + + local msg = "bad operand mode" + if gotmatch then + if szmix then + msg = "mixed operand size" + else + msg = sz and "bad operand size" or "missing operand size" + end + end + + werror(msg.." in `"..opmodestr(params.op, args).."'") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +local function op_data(params) + if not params then return "imm..." end + local sz = sub(params.op, 2, 2) + if sz == "a" then sz = addrsize end + for _,p in ipairs(params) do + local a = parseoperand(p) + if sub(a.mode, 1, 1) ~= "i" or (a.opsize and a.opsize ~= sz) then + werror("bad mode or size in `"..p.."'") + end + if a.mode == "iJ" then + wputlabel("IMM_", a.imm, 1) + else + wputszarg(sz, a.imm) + end + end +end + +map_op[".byte_*"] = op_data +map_op[".sbyte_*"] = op_data +map_op[".word_*"] = op_data +map_op[".dword_*"] = op_data +map_op[".aword_*"] = op_data + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_2"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr [, addr]" end + local a = parseoperand(params[1]) + local mode, imm = a.mode, a.imm + if type(imm) == "number" and (mode == "iJ" or (imm >= 1 and imm <= 9)) then + -- Local label (1: ... 9:) or global label (->global:). + waction("LABEL_LG", nil, 1) + wputxb(imm) + elseif mode == "iJ" then + -- PC label (=>pcexpr:). + waction("LABEL_PC", imm) + else + werror("bad label definition") + end + -- SETLABEL must immediately follow LABEL_LG/LABEL_PC. + local addr = params[2] + if addr then + local a = parseoperand(params[2]) + if a.mode == "iPJ" then + waction("SETLABEL", a.imm) -- !x64 (secpos) + else + werror("bad label assignment") + end + end +end +map_op[".label_1"] = map_op[".label_2"] + +------------------------------------------------------------------------------ + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + local align = tonumber(params[1]) or map_opsizenum[map_opsize[params[1]]] + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", nil, 1) + wputxb(align-1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +-- Spacing pseudo-opcode. +map_op[".space_2"] = function(params) + if not params then return "num [, filler]" end + waction("SPACE", params[1]) + local fill = params[2] + if fill then + fill = tonumber(fill) + if not fill or fill < 0 or fill > 255 then werror("bad filler") end + end + wputxb(fill or 0) +end +map_op[".space_1"] = map_op[".space_2"] + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + if reg and not map_reg_valid_base[reg] then + werror("bad base register `"..(map_reg_rev[reg] or reg).."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg and map_reg_rev[tp.reg] or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION") + wputxb(num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpregs(out) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua b/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua new file mode 100644 index 00000000000..264a4bb4def --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dynasm.lua @@ -0,0 +1,1070 @@ +------------------------------------------------------------------------------ +-- DynASM. A dynamic assembler for code generation engines. +-- Originally designed and implemented for LuaJIT. +-- +-- Copyright (C) 2005-2008 Mike Pall. All rights reserved. +-- See below for full copyright notice. +------------------------------------------------------------------------------ + +-- Application information. +local _info = { + name = "DynASM", + description = "A dynamic assembler for code generation engines", + version = "1.1.4", + vernum = 10104, + release = "2008-01-29", + author = "Mike Pall", + url = "http://luajit.org/dynasm.html", + license = "MIT", + copyright = [[ +Copyright (C) 2005-2008 Mike Pall. All rights reserved. + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +[ MIT license: http://www.opensource.org/licenses/mit-license.php ] +]], +} + +-- Cache library functions. +local type, pairs, ipairs = type, pairs, ipairs +local pcall, error, assert = pcall, error, assert +local _s = string +local sub, match, gmatch, gsub = _s.sub, _s.match, _s.gmatch, _s.gsub +local format, rep, upper = _s.format, _s.rep, _s.upper +local _t = table +local insert, remove, concat, sort = _t.insert, _t.remove, _t.concat, _t.sort +local exit = os.exit +local io = io +local stdin, stdout, stderr = io.stdin, io.stdout, io.stderr + +------------------------------------------------------------------------------ + +-- Program options. +local g_opt = {} + +-- Global state for current file. +local g_fname, g_curline, g_indent, g_lineno, g_synclineno, g_arch +local g_errcount = 0 + +-- Write buffer for output file. +local g_wbuffer, g_capbuffer + +------------------------------------------------------------------------------ + +-- Write an output line (or callback function) to the buffer. +local function wline(line, needindent) + local buf = g_capbuffer or g_wbuffer + buf[#buf+1] = needindent and g_indent..line or line + g_synclineno = g_synclineno + 1 +end + +-- Write assembler line as a comment, if requestd. +local function wcomment(aline) + if g_opt.comment then + wline(g_opt.comment..aline..g_opt.endcomment, true) + end +end + +-- Resync CPP line numbers. +local function wsync() + if g_synclineno ~= g_lineno and g_opt.cpp then + wline("# "..g_lineno..' "'..g_fname..'"') + g_synclineno = g_lineno + end +end + +-- Dummy action flush function. Replaced with arch-specific function later. +local function wflush(term) +end + +-- Dump all buffered output lines. +local function wdumplines(out, buf) + for _,line in ipairs(buf) do + if type(line) == "string" then + assert(out:write(line, "\n")) + else + -- Special callback to dynamically insert lines after end of processing. + line(out) + end + end +end + +------------------------------------------------------------------------------ + +-- Emit an error. Processing continues with next statement. +local function werror(msg) + error(format("%s:%s: error: %s:\n%s", g_fname, g_lineno, msg, g_curline), 0) +end + +-- Emit a fatal error. Processing stops. +local function wfatal(msg) + g_errcount = "fatal" + werror(msg) +end + +-- Print a warning. Processing continues. +local function wwarn(msg) + stderr:write(format("%s:%s: warning: %s:\n%s\n", + g_fname, g_lineno, msg, g_curline)) +end + +-- Print caught error message. But suppress excessive errors. +local function wprinterr(...) + if type(g_errcount) == "number" then + -- Regular error. + g_errcount = g_errcount + 1 + if g_errcount < 21 then -- Seems to be a reasonable limit. + stderr:write(...) + elseif g_errcount == 21 then + stderr:write(g_fname, + ":*: warning: too many errors (suppressed further messages).\n") + end + else + -- Fatal error. + stderr:write(...) + return true -- Stop processing. + end +end + +------------------------------------------------------------------------------ + +-- Map holding all option handlers. +local opt_map = {} +local opt_current + +-- Print error and exit with error status. +local function opterror(...) + stderr:write("dynasm.lua: ERROR: ", ...) + stderr:write("\n") + exit(1) +end + +-- Get option parameter. +local function optparam(args) + local argn = args.argn + local p = args[argn] + if not p then + opterror("missing parameter for option `", opt_current, "'.") + end + args.argn = argn + 1 + return p +end + +------------------------------------------------------------------------------ + +-- Core pseudo-opcodes. +local map_coreop = {} +-- Dummy opcode map. Replaced by arch-specific map. +local map_op = {} + +-- Forward declarations. +local dostmt +local readfile + +------------------------------------------------------------------------------ + +-- Map for defines (initially empty, chains to arch-specific map). +local map_def = {} + +-- Pseudo-opcode to define a substitution. +map_coreop[".define_2"] = function(params, nparams) + if not params then return nparams == 1 and "name" or "name, subst" end + local name, def = params[1], params[2] or "1" + if not match(name, "^[%a_][%w_]*$") then werror("bad or duplicate define") end + map_def[name] = def +end +map_coreop[".define_1"] = map_coreop[".define_2"] + +-- Define a substitution on the command line. +function opt_map.D(args) + local namesubst = optparam(args) + local name, subst = match(namesubst, "^([%a_][%w_]*)=(.*)$") + if name then + map_def[name] = subst + elseif match(namesubst, "^[%a_][%w_]*$") then + map_def[namesubst] = "1" + else + opterror("bad define") + end +end + +-- Undefine a substitution on the command line. +function opt_map.U(args) + local name = optparam(args) + if match(name, "^[%a_][%w_]*$") then + map_def[name] = nil + else + opterror("bad define") + end +end + +-- Helper for definesubst. +local gotsubst + +local function definesubst_one(word) + local subst = map_def[word] + if subst then gotsubst = word; return subst else return word end +end + +-- Iteratively substitute defines. +local function definesubst(stmt) + -- Limit number of iterations. + for i=1,100 do + gotsubst = false + stmt = gsub(stmt, "#?[%w_]+", definesubst_one) + if not gotsubst then break end + end + if gotsubst then wfatal("recursive define involving `"..gotsubst.."'") end + return stmt +end + +-- Dump all defines. +local function dumpdefines(out, lvl) + local t = {} + for name in pairs(map_def) do + t[#t+1] = name + end + sort(t) + out:write("Defines:\n") + for _,name in ipairs(t) do + local subst = map_def[name] + if g_arch then subst = g_arch.revdef(subst) end + out:write(format(" %-20s %s\n", name, subst)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Support variables for conditional assembly. +local condlevel = 0 +local condstack = {} + +-- Evaluate condition with a Lua expression. Substitutions already performed. +local function cond_eval(cond) + local func, err = loadstring("return "..cond) + if func then + setfenv(func, {}) -- No globals. All unknown identifiers evaluate to nil. + local ok, res = pcall(func) + if ok then + if res == 0 then return false end -- Oh well. + return not not res + end + err = res + end + wfatal("bad condition: "..err) +end + +-- Skip statements until next conditional pseudo-opcode at the same level. +local function stmtskip() + local dostmt_save = dostmt + local lvl = 0 + dostmt = function(stmt) + local op = match(stmt, "^%s*(%S+)") + if op == ".if" then + lvl = lvl + 1 + elseif lvl ~= 0 then + if op == ".endif" then lvl = lvl - 1 end + elseif op == ".elif" or op == ".else" or op == ".endif" then + dostmt = dostmt_save + dostmt(stmt) + end + end +end + +-- Pseudo-opcodes for conditional assembly. +map_coreop[".if_1"] = function(params) + if not params then return "condition" end + local lvl = condlevel + 1 + local res = cond_eval(params[1]) + condlevel = lvl + condstack[lvl] = res + if not res then stmtskip() end +end + +map_coreop[".elif_1"] = function(params) + if not params then return "condition" end + if condlevel == 0 then wfatal(".elif without .if") end + local lvl = condlevel + local res = condstack[lvl] + if res then + if res == "else" then wfatal(".elif after .else") end + else + res = cond_eval(params[1]) + if res then + condstack[lvl] = res + return + end + end + stmtskip() +end + +map_coreop[".else_0"] = function(params) + if condlevel == 0 then wfatal(".else without .if") end + local lvl = condlevel + local res = condstack[lvl] + condstack[lvl] = "else" + if res then + if res == "else" then wfatal(".else after .else") end + stmtskip() + end +end + +map_coreop[".endif_0"] = function(params) + local lvl = condlevel + if lvl == 0 then wfatal(".endif without .if") end + condlevel = lvl - 1 +end + +-- Check for unfinished conditionals. +local function checkconds() + if g_errcount ~= "fatal" and condlevel ~= 0 then + wprinterr(g_fname, ":*: error: unbalanced conditional\n") + end +end + +------------------------------------------------------------------------------ + +-- Search for a file in the given path and open it for reading. +local function pathopen(path, name) + local dirsep = match(package.path, "\\") and "\\" or "/" + for _,p in ipairs(path) do + local fullname = p == "" and name or p..dirsep..name + local fin = io.open(fullname, "r") + if fin then + g_fname = fullname + return fin + end + end +end + +-- Include a file. +map_coreop[".include_1"] = function(params) + if not params then return "filename" end + local name = params[1] + -- Save state. Ugly, I know. but upvalues are fast. + local gf, gl, gcl, gi = g_fname, g_lineno, g_curline, g_indent + -- Read the included file. + local fatal = readfile(pathopen(g_opt.include, name) or + wfatal("include file `"..name.."' not found")) + -- Restore state. + g_synclineno = -1 + g_fname, g_lineno, g_curline, g_indent = gf, gl, gcl, gi + if fatal then wfatal("in include file") end +end + +-- Make .include initially available, too. +map_op[".include_1"] = map_coreop[".include_1"] + +------------------------------------------------------------------------------ + +-- Support variables for macros. +local mac_capture, mac_lineno, mac_name +local mac_active = {} +local mac_list = {} + +-- Pseudo-opcode to define a macro. +map_coreop[".macro_*"] = function(mparams) + if not mparams then return "name [, params...]" end + -- Split off and validate macro name. + local name = remove(mparams, 1) + if not name then werror("missing macro name") end + if not (match(name, "^[%a_][%w_%.]*$") or match(name, "^%.[%w_%.]+$")) then + wfatal("bad macro name `"..name.."'") + end + -- Validate macro parameter names. + local mdup = {} + for _,mp in ipairs(mparams) do + if not match(mp, "^[%a_][%w_]*$") then + wfatal("bad macro parameter name `"..mp.."'") + end + if mdup[mp] then wfatal("duplicate macro parameter name `"..mp.."'") end + mdup[mp] = true + end + -- Check for duplicate or recursive macro definitions. + local opname = name.."_"..#mparams + if map_op[opname] or map_op[name.."_*"] then + wfatal("duplicate macro `"..name.."' ("..#mparams.." parameters)") + end + if mac_capture then wfatal("recursive macro definition") end + + -- Enable statement capture. + local lines = {} + mac_lineno = g_lineno + mac_name = name + mac_capture = function(stmt) -- Statement capture function. + -- Stop macro definition with .endmacro pseudo-opcode. + if not match(stmt, "^%s*.endmacro%s*$") then + lines[#lines+1] = stmt + return + end + mac_capture = nil + mac_lineno = nil + mac_name = nil + mac_list[#mac_list+1] = opname + -- Add macro-op definition. + map_op[opname] = function(params) + if not params then return mparams, lines end + -- Protect against recursive macro invocation. + if mac_active[opname] then wfatal("recursive macro invocation") end + mac_active[opname] = true + -- Setup substitution map. + local subst = {} + for i,mp in ipairs(mparams) do subst[mp] = params[i] end + local mcom + if g_opt.maccomment and g_opt.comment then + mcom = " MACRO "..name.." ("..#mparams..")" + wcomment("{"..mcom) + end + -- Loop through all captured statements + for _,stmt in ipairs(lines) do + -- Substitute macro parameters. + local st = gsub(stmt, "[%w_]+", subst) + st = definesubst(st) + st = gsub(st, "%s*%.%.%s*", "") -- Token paste a..b. + if mcom and sub(st, 1, 1) ~= "|" then wcomment(st) end + -- Emit statement. Use a protected call for better diagnostics. + local ok, err = pcall(dostmt, st) + if not ok then + -- Add the captured statement to the error. + wprinterr(err, "\n", g_indent, "| ", stmt, + "\t[MACRO ", name, " (", #mparams, ")]\n") + end + end + if mcom then wcomment("}"..mcom) end + mac_active[opname] = nil + end + end +end + +-- An .endmacro pseudo-opcode outside of a macro definition is an error. +map_coreop[".endmacro_0"] = function(params) + wfatal(".endmacro without .macro") +end + +-- Dump all macros and their contents (with -PP only). +local function dumpmacros(out, lvl) + sort(mac_list) + out:write("Macros:\n") + for _,opname in ipairs(mac_list) do + local name = sub(opname, 1, -3) + local params, lines = map_op[opname]() + out:write(format(" %-20s %s\n", name, concat(params, ", "))) + if lvl > 1 then + for _,line in ipairs(lines) do + out:write(" |", line, "\n") + end + out:write("\n") + end + end + out:write("\n") +end + +-- Check for unfinished macro definitions. +local function checkmacros() + if mac_capture then + wprinterr(g_fname, ":", mac_lineno, + ": error: unfinished .macro `", mac_name ,"'\n") + end +end + +------------------------------------------------------------------------------ + +-- Support variables for captures. +local cap_lineno, cap_name +local cap_buffers = {} +local cap_used = {} + +-- Start a capture. +map_coreop[".capture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + if cap_name then + wfatal("already capturing to `"..cap_name.."' since line "..cap_lineno) + end + cap_name = name + cap_lineno = g_lineno + -- Create or continue a capture buffer and start the output line capture. + local buf = cap_buffers[name] + if not buf then buf = {}; cap_buffers[name] = buf end + g_capbuffer = buf + g_synclineno = 0 +end + +-- Stop a capture. +map_coreop[".endcapture_0"] = function(params) + wflush() + if not cap_name then wfatal(".endcapture without a valid .capture") end + cap_name = nil + cap_lineno = nil + g_capbuffer = nil + g_synclineno = 0 +end + +-- Dump a capture buffer. +map_coreop[".dumpcapture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + cap_used[name] = true + wline(function(out) + local buf = cap_buffers[name] + if buf then wdumplines(out, buf) end + end) + g_synclineno = 0 +end + +-- Dump all captures and their buffers (with -PP only). +local function dumpcaptures(out, lvl) + out:write("Captures:\n") + for name,buf in pairs(cap_buffers) do + out:write(format(" %-20s %4s)\n", name, "("..#buf)) + if lvl > 1 then + local bar = rep("=", 76) + out:write(" ", bar, "\n") + for _,line in ipairs(buf) do + out:write(" ", line, "\n") + end + out:write(" ", bar, "\n\n") + end + end + out:write("\n") +end + +-- Check for unfinished or unused captures. +local function checkcaptures() + if cap_name then + wprinterr(g_fname, ":", cap_lineno, + ": error: unfinished .capture `", cap_name,"'\n") + return + end + for name in pairs(cap_buffers) do + if not cap_used[name] then + wprinterr(g_fname, ":*: error: missing .dumpcapture ", name ,"\n") + end + end +end + +------------------------------------------------------------------------------ + +-- Sections names. +local map_sections = {} + +-- Pseudo-opcode to define code sections. +-- TODO: Data sections, BSS sections. Needs extra C code and API. +map_coreop[".section_*"] = function(params) + if not params then return "name..." end + if #map_sections > 0 then werror("duplicate section definition") end + wflush() + for sn,name in ipairs(params) do + local opname = "."..name.."_0" + if not match(name, "^[%a][%w_]*$") or + map_op[opname] or map_op["."..name.."_*"] then + werror("bad section name `"..name.."'") + end + map_sections[#map_sections+1] = name + wline(format("#define DASM_SECTION_%s\t%d", upper(name), sn-1)) + map_op[opname] = function(params) g_arch.section(sn-1) end + end + wline(format("#define DASM_MAXSECTION\t\t%d", #map_sections)) +end + +-- Dump all sections. +local function dumpsections(out, lvl) + out:write("Sections:\n") + for _,name in ipairs(map_sections) do + out:write(format(" %s\n", name)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Load architecture-specific module. +local function loadarch(arch) + if not match(arch, "^[%w_]+$") then return "bad arch name" end + local ok, m_arch = pcall(require, "dasm_"..arch) + if not ok then return "cannot load module: "..m_arch end + g_arch = m_arch + wflush = m_arch.passcb(wline, werror, wfatal, wwarn) + m_arch.setup(arch, g_opt) + map_op, map_def = m_arch.mergemaps(map_coreop, map_def) +end + +-- Dump architecture description. +function opt_map.dumparch(args) + local name = optparam(args) + if not g_arch then + local err = loadarch(name) + if err then opterror(err) end + end + + local t = {} + for name in pairs(map_coreop) do t[#t+1] = name end + for name in pairs(map_op) do t[#t+1] = name end + sort(t) + + local out = stdout + local _arch = g_arch._info + out:write(format("%s version %s, released %s, %s\n", + _info.name, _info.version, _info.release, _info.url)) + g_arch.dumparch(out) + + local pseudo = true + out:write("Pseudo-Opcodes:\n") + for _,sname in ipairs(t) do + local name, nparam = match(sname, "^(.+)_([0-9%*])$") + if name then + if pseudo and sub(name, 1, 1) ~= "." then + out:write("\nOpcodes:\n") + pseudo = false + end + local f = map_op[sname] + local s + if nparam ~= "*" then nparam = nparam + 0 end + if nparam == 0 then + s = "" + elseif type(f) == "string" then + s = map_op[".template__"](nil, f, nparam) + else + s = f(nil, nparam) + end + if type(s) == "table" then + for _,s2 in ipairs(s) do + out:write(format(" %-12s %s\n", name, s2)) + end + else + out:write(format(" %-12s %s\n", name, s)) + end + end + end + out:write("\n") + exit(0) +end + +-- Pseudo-opcode to set the architecture. +-- Only initially available (map_op is replaced when called). +map_op[".arch_1"] = function(params) + if not params then return "name" end + local err = loadarch(params[1]) + if err then wfatal(err) end +end + +-- Dummy .arch pseudo-opcode to improve the error report. +map_coreop[".arch_1"] = function(params) + if not params then return "name" end + wfatal("duplicate .arch statement") +end + +------------------------------------------------------------------------------ + +-- Dummy pseudo-opcode. Don't confuse '.nop' with 'nop'. +map_coreop[".nop_*"] = function(params) + if not params then return "[ignored...]" end +end + +-- Pseudo-opcodes to raise errors. +map_coreop[".error_1"] = function(params) + if not params then return "message" end + werror(params[1]) +end + +map_coreop[".fatal_1"] = function(params) + if not params then return "message" end + wfatal(params[1]) +end + +-- Dump all user defined elements. +local function dumpdef(out) + local lvl = g_opt.dumpdef + if lvl == 0 then return end + dumpsections(out, lvl) + dumpdefines(out, lvl) + if g_arch then g_arch.dumpdef(out, lvl) end + dumpmacros(out, lvl) + dumpcaptures(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Helper for splitstmt. +local splitlvl + +local function splitstmt_one(c) + if c == "(" then + splitlvl = ")"..splitlvl + elseif c == "[" then + splitlvl = "]"..splitlvl + elseif c == ")" or c == "]" then + if sub(splitlvl, 1, 1) ~= c then werror("unbalanced () or []") end + splitlvl = sub(splitlvl, 2) + elseif splitlvl == "" then + return " \0 " + end + return c +end + +-- Split statement into (pseudo-)opcode and params. +local function splitstmt(stmt) + -- Convert label with trailing-colon into .label statement. + local label = match(stmt, "^%s*(.+):%s*$") + if label then return ".label", {label} end + + -- Split at commas and equal signs, but obey parentheses and brackets. + splitlvl = "" + stmt = gsub(stmt, "[,%(%)%[%]]", splitstmt_one) + if splitlvl ~= "" then werror("unbalanced () or []") end + + -- Split off opcode. + local op, other = match(stmt, "^%s*([^%s%z]+)%s*(.*)$") + if not op then werror("bad statement syntax") end + + -- Split parameters. + local params = {} + for p in gmatch(other, "%s*(%Z+)%z?") do + params[#params+1] = gsub(p, "%s+$", "") + end + if #params > 16 then werror("too many parameters") end + + params.op = op + return op, params +end + +-- Process a single statement. +dostmt = function(stmt) + -- Ignore empty statements. + if match(stmt, "^%s*$") then return end + + -- Capture macro defs before substitution. + if mac_capture then return mac_capture(stmt) end + stmt = definesubst(stmt) + + -- Emit C code without parsing the line. + if sub(stmt, 1, 1) == "|" then + local tail = sub(stmt, 2) + wflush() + if sub(tail, 1, 2) == "//" then wcomment(tail) else wline(tail, true) end + return + end + + -- Split into (pseudo-)opcode and params. + local op, params = splitstmt(stmt) + + -- Get opcode handler (matching # of parameters or generic handler). + local f = map_op[op.."_"..#params] or map_op[op.."_*"] + if not f then + if not g_arch then wfatal("first statement must be .arch") end + -- Improve error report. + for i=0,16 do + if map_op[op.."_"..i] then + werror("wrong number of parameters for `"..op.."'") + end + end + werror("unknown statement `"..op.."'") + end + + -- Call opcode handler or special handler for template strings. + if type(f) == "string" then + map_op[".template__"](params, f) + else + f(params) + end +end + +-- Process a single line. +local function doline(line) + if g_opt.flushline then wflush() end + + -- Assembler line? + local indent, aline = match(line, "^(%s*)%|(.*)$") + if not aline then + -- No, plain C code line, need to flush first. + wflush() + wsync() + wline(line, false) + return + end + + g_indent = indent -- Remember current line indentation. + + -- Emit C code (even from macros). Avoids echo and line parsing. + if sub(aline, 1, 1) == "|" then + if not mac_capture then + wsync() + elseif g_opt.comment then + wsync() + wcomment(aline) + end + dostmt(aline) + return + end + + -- Echo assembler line as a comment. + if g_opt.comment then + wsync() + wcomment(aline) + end + + -- Strip assembler comments. + aline = gsub(aline, "//.*$", "") + + -- Split line into statements at semicolons. + if match(aline, ";") then + for stmt in gmatch(aline, "[^;]+") do dostmt(stmt) end + else + dostmt(aline) + end +end + +------------------------------------------------------------------------------ + +-- Write DynASM header. +local function dasmhead(out) + out:write(format([[ +/* +** This file has been pre-processed with DynASM. +** %s +** DynASM version %s, DynASM %s version %s +** DO NOT EDIT! The original file is in "%s". +*/ + +#if DASM_VERSION != %d +#error "Version mismatch between DynASM and included encoding engine" +#endif + +]], _info.url, + _info.version, g_arch._info.arch, g_arch._info.version, + g_fname, _info.vernum)) +end + +-- Read input file. +readfile = function(fin) + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Process all lines. + for line in fin:lines() do + g_lineno = g_lineno + 1 + g_curline = line + local ok, err = pcall(doline, line) + if not ok and wprinterr(err, "\n") then return true end + end + wflush() + + -- Close input file. + assert(fin == stdin or fin:close()) +end + +-- Write output file. +local function writefile(outfile) + local fout + + -- Open output file. + if outfile == nil or outfile == "-" then + fout = stdout + else + fout = assert(io.open(outfile, "w")) + end + + -- Write all buffered lines + wdumplines(fout, g_wbuffer) + + -- Close output file. + assert(fout == stdout or fout:close()) + + -- Optionally dump definitions. + dumpdef(fout == stdout and stderr or stdout) +end + +-- Translate an input file to an output file. +local function translate(infile, outfile) + g_wbuffer = {} + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Put header. + wline(dasmhead) + + -- Read input file. + local fin + if infile == "-" then + g_fname = "(stdin)" + fin = stdin + else + g_fname = infile + fin = assert(io.open(infile, "r")) + end + readfile(fin) + + -- Check for errors. + if not g_arch then + wprinterr(g_fname, ":*: error: missing .arch directive\n") + end + checkconds() + checkmacros() + checkcaptures() + + if g_errcount ~= 0 then + stderr:write(g_fname, ":*: info: ", g_errcount, " error", + (type(g_errcount) == "number" and g_errcount > 1) and "s" or "", + " in input file -- no output file generated.\n") + dumpdef(stderr) + exit(1) + end + + -- Write output file. + writefile(outfile) +end + +------------------------------------------------------------------------------ + +-- Print help text. +function opt_map.help() + stdout:write("DynASM -- ", _info.description, ".\n") + stdout:write("DynASM ", _info.version, " ", _info.release, " ", _info.url, "\n") + stdout:write[[ + +Usage: dynasm [OPTION]... INFILE.dasc|- + + -h, --help Display this help text. + -V, --version Display version and copyright information. + + -o, --outfile FILE Output file name (default is stdout). + -I, --include DIR Add directory to the include search path. + + -c, --ccomment Use /* */ comments for assembler lines. + -C, --cppcomment Use // comments for assembler lines (default). + -N, --nocomment Suppress assembler lines in output. + -M, --maccomment Show macro expansions as comments (default off). + + -L, --nolineno Suppress CPP line number information in output. + -F, --flushline Flush action list for every line. + + -D NAME[=SUBST] Define a substitution. + -U NAME Undefine a substitution. + + -P, --dumpdef Dump defines, macros, etc. Repeat for more output. + -A, --dumparch ARCH Load architecture ARCH and dump description. +]] + exit(0) +end + +-- Print version information. +function opt_map.version() + stdout:write(format("%s version %s, released %s\n%s\n\n%s", + _info.name, _info.version, _info.release, _info.url, _info.copyright)) + exit(0) +end + +-- Misc. options. +function opt_map.outfile(args) g_opt.outfile = optparam(args) end +function opt_map.include(args) insert(g_opt.include, 1, optparam(args)) end +function opt_map.ccomment() g_opt.comment = "/*|"; g_opt.endcomment = " */" end +function opt_map.cppcomment() g_opt.comment = "//|"; g_opt.endcomment = "" end +function opt_map.nocomment() g_opt.comment = false end +function opt_map.maccomment() g_opt.maccomment = true end +function opt_map.nolineno() g_opt.cpp = false end +function opt_map.flushline() g_opt.flushline = true end +function opt_map.dumpdef() g_opt.dumpdef = g_opt.dumpdef + 1 end + +------------------------------------------------------------------------------ + +-- Short aliases for long options. +local opt_alias = { + h = "help", ["?"] = "help", V = "version", + o = "outfile", I = "include", + c = "ccomment", C = "cppcomment", N = "nocomment", M = "maccomment", + L = "nolineno", F = "flushline", + P = "dumpdef", A = "dumparch", +} + +-- Parse single option. +local function parseopt(opt, args) + opt_current = #opt == 1 and "-"..opt or "--"..opt + local f = opt_map[opt] or opt_map[opt_alias[opt]] + if not f then + opterror("unrecognized option `", opt_current, "'. Try `--help'.\n") + end + f(args) +end + +-- Parse arguments. +local function parseargs(args) + -- Default options. + g_opt.comment = "//|" + g_opt.endcomment = "" + g_opt.cpp = true + g_opt.dumpdef = 0 + g_opt.include = { "" } + + -- Process all option arguments. + args.argn = 1 + repeat + local a = args[args.argn] + if not a then break end + local lopt, opt = match(a, "^%-(%-?)(.+)") + if not opt then break end + args.argn = args.argn + 1 + if lopt == "" then + -- Loop through short options. + for o in gmatch(opt, ".") do parseopt(o, args) end + else + -- Long option. + parseopt(opt, args) + end + until false + + -- Check for proper number of arguments. + local nargs = #args - args.argn + 1 + if nargs ~= 1 then + if nargs == 0 then + if g_opt.dumpdef > 0 then return dumpdef(stdout) end + end + opt_map.help() + end + + -- Translate a single input file to a single output file + -- TODO: Handle multiple files? + translate(args[args.argn], g_opt.outfile) +end + +------------------------------------------------------------------------------ + +-- Add the directory dynasm.lua resides in to the Lua module search path. +local arg = arg +if arg and arg[0] then + local prefix = match(arg[0], "^(.*/)") + if prefix then package.path = prefix.."?.lua;"..package.path end +end + +-- Start DynASM. +parseargs{...} + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/LuaJIT-1.1.8/etc/README b/src/3rd party/LuaJIT-1.1.8/etc/README new file mode 100644 index 00000000000..98117d0a34d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/etc/README @@ -0,0 +1,20 @@ +This directory contains some useful files and code. +Unlike the code in ../src, everything here is in the public domain. + +lua.hpp + Lua header files for C++ using 'extern "C"'. + +luajit.ico + A LuaJIT icon for Windows (and web sites: save as favicon.ico). + Lua icon drawn by hand by Markus Gritsch. Modified for LuaJIT. + +luajit.pc + pkg-config data for LuaJIT + +luavs.bat + Script to build LuaJIT under "Visual Studio .NET Command Prompt". + Run it from the toplevel as etc\luavs.bat. + +strict.lua + Traps uses of undeclared global variables. + diff --git a/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp new file mode 100644 index 00000000000..ec417f59469 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp @@ -0,0 +1,9 @@ +// lua.hpp +// Lua header files for C++ +// <> not supplied automatically because Lua also compiles as C++ + +extern "C" { +#include "lua.h" +#include "lualib.h" +#include "lauxlib.h" +} diff --git a/src/3rd party/LuaJIT-1.1.8/etc/luajit.ico b/src/3rd party/LuaJIT-1.1.8/etc/luajit.ico new file mode 100644 index 0000000000000000000000000000000000000000..bdd7a90e8ad2f684fcd2743f62d6bd406a26be6c GIT binary patch literal 1078 zcma)5v2MaZ41J-fFtvO^VX7D_(Je!fVu?uonGTWKjT<7h8^2PCZdtPRHyArIRDucj z*_VT=>VSh|zwNuZp#F_{!e7krX}>Uihl_kh?}Q(l=7^0GCC1%b{6Zx7enM2v7t8PUNcH0R;n_-BM*?%cNXdm$ zy%`B4bUT6tVhRS>uOlYM 16 then hex = sub(hex, 1, 16).."." end + if operands then text = text.." "..operands end + if ctx.o16 then text = "o16 "..text; ctx.o16 = false end + if ctx.rep then text = ctx.rep.." "..text; ctx.rep = false end + if ctx.seg then + local text2, n = gsub(text, "%[", "["..ctx.seg..":") + if n == 0 then text = ctx.seg.." "..text else text = text2 end + ctx.seg = false + end + if ctx.lock then text = "lock "..text; ctx.lock = false end + local imm = ctx.imm + if imm then + local sym = ctx.symtab[imm] + if sym then text = text.."\t->"..sym end + end + ctx.out(format("%08x %-18s%s\n", ctx.addr+ctx.start, hex, text)) + ctx.mrm = false + ctx.start = pos + ctx.imm = nil +end + +-- Fallback for incomplete opcodes at the end. +local function incomplete(ctx) + ctx.pos = ctx.stop+1 + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + return putop(ctx, "(incomplete)") +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + return putop(ctx, "(unknown)") +end + +-- Return an immediate of the specified size. +local function getimm(ctx, pos, n) + if pos+n-1 > ctx.stop then return incomplete(ctx) end + local code = ctx.code + if n == 1 then + local b1 = byte(code, pos, pos) + return b1 + elseif n == 2 then + local b1, b2 = byte(code, pos, pos+1) + return b1+b2*256 + else + local b1, b2, b3, b4 = byte(code, pos, pos+3) + local imm = b1+b2*256+b3*65536+b4*16777216 + ctx.imm = imm + return imm + end +end + +-- Process pattern string and generate the operands. +local function putpat(ctx, name, pat) + local operands, regs, sz, mode, sp, rm, sc, rx, disp, sdisp + local code, pos, stop = ctx.code, ctx.pos, ctx.stop + + -- Chars used: 1DFGMPQRVWXacdfgijmoprsuwxyz + for p in gmatch(pat, ".") do + local x = nil + if p == "V" then + sz = ctx.o16 and "W" or "D"; ctx.o16 = false + regs = map_regs[sz] + elseif match(p, "[BWDQFGMX]") then + sz = p + regs = map_regs[sz] + elseif p == "P" then + sz = ctx.o16 and "X" or "M"; ctx.o16 = false + regs = map_regs[sz] + elseif p == "s" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = imm <= 127 and format("byte +0x%02x", imm) + or format("byte -0x%02x", 256-imm) + pos = pos+1 + elseif p == "u" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = format("0x%02x", imm) + pos = pos+1 + elseif p == "w" then + local imm = getimm(ctx, pos, 2); if not imm then return end + x = format("0x%x", imm) + pos = pos+2 + elseif p == "o" then -- [offset] + local imm = getimm(ctx, pos, 4); if not imm then return end + x = format("[0x%08x]", imm) + pos = pos+4 + elseif p == "i" then + local n = map_sz2n[sz] + local imm = getimm(ctx, pos, n); if not imm then return end + x = format(imm > 65535 and "0x%08x" or "0x%x", imm) + pos = pos+n + elseif p == "j" then + local n = map_sz2n[sz] + local imm = getimm(ctx, pos, n); if not imm then return end + if sz == "B" and imm > 127 then imm = imm-256 + elseif imm > 2147483647 then imm = imm-4294967296 end + pos = pos+n + imm = imm + pos + ctx.addr + ctx.imm = imm + x = sz == "W" and format("word 0x%04x", imm%65536) + or format("0x%08x", imm) + elseif p == "R" then x = regs[byte(code, pos-1, pos-1)%8+1] + elseif p == "a" then x = regs[1] + elseif p == "c" then x = "cl" + elseif p == "d" then x = "dx" + elseif p == "1" then x = "1" + else + if not mode then + mode = ctx.mrm + if not mode then + if pos > stop then return incomplete(ctx) end + mode = byte(code, pos, pos) + pos = pos+1 + end + rm = mode%8; mode = (mode-rm)/8 + sp = mode%8; mode = (mode-sp)/8 + sdisp = "" + if mode < 3 then + if rm == 4 then + if pos > stop then return incomplete(ctx) end + sc = byte(code, pos, pos) + pos = pos+1 + rm = sc%8; sc = (sc-rm)/8 + rx = sc%8; sc = (sc-rx)/8 + if rx == 4 then rx = nil end + end + if mode > 0 or rm == 5 then + local dsz = mode + if dsz ~= 1 then dsz = 4 end + disp = getimm(ctx, pos, dsz); if not disp then return end + sdisp = (dsz == 4 or disp <= 127) and + format(disp > 65535 and "+0x%08x" or "+0x%x", disp) or + format("-0x%x", 256-disp) + pos = pos+dsz + end + end + end + if p == "m" then + if mode == 3 then x = regs[rm+1] + else + local srm, srx = map_aregs[rm+1], "" + if rx then + srm = srm.."+" + srx = map_aregs[rx+1] + if sc > 0 then srx = srx.."*"..(2^sc) end + end + if mode == 0 and rm == 5 then + srm = "" + sdisp = format("%s0x%08x", rx and "+" or "", disp) + end + x = format("[%s%s%s]", srm, srx, sdisp) + end + if mode < 3 and + (not match(pat, "[aRrgp]") or + name == "movzx" or name == "movsx") then -- Yuck. + x = map_sz2prefix[sz].." "..x + end + elseif p == "r" then x = regs[sp+1] + elseif p == "g" then x = map_segregs[sp+1] + elseif p == "p" then -- Suppress prefix. + elseif p == "f" then x = "st"..rm + elseif p == "x" then x = "CR"..sp + elseif p == "y" then x = "DR"..sp + elseif p == "z" then x = "TR"..sp + else + error("bad pattern `"..pat.."'") + end + end + if x then operands = operands and operands..","..x or x end + end + ctx.pos = pos + return putop(ctx, name, operands) +end + +-- Forward declaration. +local map_act + +-- Get a pattern from an opcode map and dispatch to handler. +local function opcdispatch(ctx, opcmap) + local pos = ctx.pos + local opat = opcmap[byte(ctx.code, pos, pos)] + if not opat then return unknown(ctx) end + if match(opat, "%|") then -- MMX/SSE variants depending on prefix. + local p + if ctx.rep then p = ctx.rep=="rep" and "%|([^%|]*)" or "%|.-%|.-%|([^%|]*)" + elseif ctx.o16 then p = "%|.-%|([^%|]*)" + else p = "^[^%|]*" end + opat = match(opat, p) + if not opat or opat == "" then return unknown(ctx) end + ctx.rep = false; ctx.o16 = false + end + local name, pat, act = match(opat, "^([a-z0-9 ]*)((.?).*)") + ctx.pos = pos + 1 + return map_act[act](ctx, name, pat) +end + +-- Map for action codes. The key is the first char after the name. +map_act = { + -- Simple opcodes without operands. + [""] = function(ctx, name, pat) + return putop(ctx, name) + end, + + -- Operand size chars fall right through. + B = putpat, W = putpat, D = putpat, V = putpat, + F = putpat, G = putpat, + M = putpat, X = putpat, P = putpat, + + -- Collect prefixes. + [":"] = function(ctx, name, pat) + ctx[pat == ":" and name or sub(pat, 2)] = name + end, + + -- Select alternate opcode name when prefixed with o16. + ["/"] = function(ctx, name, pat) + local wname, rpat = match(pat, "^/([a-z0-9 ]+)(.*)") + if ctx.o16 then name = wname; ctx.o16 = false end + return putpat(ctx, name, rpat) + end, + + -- Chain to special handler specified by name. + ["*"] = function(ctx, name, pat) + return map_act[name](ctx, name, sub(pat, 2)) + end, + + -- Use named subtable for opcode group. + ["!"] = function(ctx, name, pat) + + local pos = ctx.pos + if pos > ctx.stop then return incomplete(ctx) end + local mrm = byte(ctx.code, pos, pos) + ctx.pos = pos+1 + ctx.mrm = mrm + + local opat = map_opcgroup[name][((mrm-(mrm%8))/8)%8+1] + if not opat then return unknown(ctx) end + local name, pat2 = match(opat, "^([a-z0-9 ]*)(.*)") + return putpat(ctx, name, pat2 ~= "" and pat2 or sub(pat, 2)) + end, + + -- Two-byte opcode dispatch. + opc2 = function(ctx, name, pat) + return opcdispatch(ctx, map_opc2) + end, + + -- SSSE3 dispatch. + ssse3 = function(ctx, name, pat) + return opcdispatch(ctx, map_ssse3[pat]) + end, + + -- Floating point opcode dispatch. + fp = function(ctx, name, pat) + + local pos = ctx.pos + if pos > ctx.stop then return incomplete(ctx) end + local mrm = byte(ctx.code, pos, pos) + ctx.pos = pos+1 + ctx.mrm = mrm + + local rm = mrm%8 + local idx = pat*8 + ((mrm-rm)/8)%8 + if mrm >= 192 then idx = idx + 64 end + local opat = map_opcfp[idx] + if type(opat) == "table" then opat = opat[rm+1] end + if not opat then return unknown(ctx) end + local name, pat2 = match(opat, "^([a-z0-9 ]*)(.*)") + return putpat(ctx, name, pat2) + end, +} + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + ofs = ofs + 1 + ctx.start = ofs + ctx.pos = ofs + ctx.stop = stop + ctx.imm = nil + ctx.mrm = false + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + while ctx.pos <= stop do opcdispatch(ctx, map_opc1) end + if ctx.pos ~= ctx.start then incomplete(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = (addr or 0) - 1 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + + +-- Public module functions. +module(...) + +create = create_ +disass = disass_ + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/dump.lua b/src/3rd party/LuaJIT-1.1.8/jit/dump.lua new file mode 100644 index 00000000000..b2e0cc26e23 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/dump.lua @@ -0,0 +1,265 @@ +---------------------------------------------------------------------------- +-- LuaJIT machine code dumper module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to dump the machine code for all functions +-- immediately after they have been compiled. The disassembler +-- output is mixed with the bytecode listing. +-- +-- Try: luajit -j dump -e 'print "foo"' +-- luajit -j dump=foo.dump foo.lua +-- luajit -j off -j dump -e 'jit.compile(assert(loadfile"foo.lua")))' +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_DUMPFILE". +-- Note: The file is overwritten each time you run luajit. +-- +-- TODO: Find a way to be more selective on what to dump. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Must run after backend (negative) +-- and should be even because we only catch successful compiles. +local PRIORITY = -98 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, format, gsub = type, string.format, string.gsub +local bytecode, const = jutil.bytecode, jutil.const +local getinfo = debug.getinfo +local stdout, stderr = io.stdout, io.stderr + +-- Load the right disassembler. +local dis = require("jit.dis_"..jit.arch) +local discreate, disass_ = dis.create, dis.disass + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Separator line. +local sepline = "-------------------------------" + +-- Map JSUB indices to names. +-- CHECK: must match the order in ljit_x86.h. Regenerate with: +-- grep '^ *JSUB_[^_].*,' ljit_x86.h | sed -e 's/^ *JSUB_/ "/' -e 's/,.*/",/' +local jsubnames = { + "STACKPTR", + "GATE_LJ", + "GATE_JL", + "GATE_JC", + "GROW_STACK", + "GROW_CI", + "GATE_JC_PATCH", + "GATE_JC_DEBUG", + "DEOPTIMIZE_CALLER", + "DEOPTIMIZE", + "DEOPTIMIZE_OPEN", + "HOOKINS", + "GCSTEP", + "STRING_SUB3", + "STRING_SUB2", + "HOOKCALL", + "HOOKRET", + "METACALL", + "METATAILCALL", + "BARRIERF", + "GETGLOBAL", + "GETTABLE_KSTR", + "GETTABLE_STR", + "BARRIERBACK", + "SETGLOBAL", + "SETTABLE_KSTR", + "SETTABLE_STR", + "GETTABLE_KNUM", + "GETTABLE_NUM", + "SETTABLE_KNUM", + "SETTABLE_NUM", + "LOG2_TWORD", + "CONCAT_STR2", +} + +-- Generate map from JSUB addresses to JSUB names. +local jsubmap = {} +do + local jsubmcode = jutil.jsubmcode + for pc=0,100000 do + local addr = jsubmcode(pc) + if not addr then break end + jsubmap[addr] = jsubnames[pc+1] or "JSUB#"..pc + end +end + +-- Pretty-print a constant. +local function conststr(func, idx) + local k = const(func, idx) + if k == nil then return "nil" + elseif k == true then return "true" + elseif k == false then return "false" + elseif type(k) == "string" then + if #k > 10 then return format('"%.10s"~', k) + else return '"'..k..'"' end + else return k.."" end +end + +-- Pretty-print a bytecode instruction (one or two lines). +local function bytecodeout(out, func, pc) + local op, a, b, c = bytecode(func, pc) + if not op then + return true + elseif op == "JMP" then + out:write(format("\n--%04d-- JMP => %04d", pc, pc+1+b)) + elseif op == "FORLOOP" or op == "FORPREP" then + out:write(format("\n--%04d-- %-9s %3d => %04d", pc, op, a, pc+1+b)) + else + out:write(format("\n--%04d-- %-9s %3d %4s %4s", + pc, op, a, b or "", c or "")) + if b and b < 0 then out:write(" ; ", conststr(func, b)) end + if c and c < 0 then out:write(" ; ", conststr(func, c)) end + end +end + +-- Dump machine code and mix it with the bytecode listing. +local function dumpfunc(func, out, deopt) + if not out then out = stderr end + local info = getinfo(func, "S") + + -- Don't bother checking for the right blocks to dump. + -- Dump the main block (if not deopt) and always all deopt blocks. + for block=deopt and 2 or 1,1000000 do + local addr, code, mfmiter = jutil.mcode(func, block) + if not addr then + if code then return code end -- Not compiled: return status. + break -- No more blocks to dump. + end + + -- Print header. + out:write(sepline, " ", info.source, ":", info.linedefined) + if block ~= 1 then out:write(" DEOPT block ", block) end + + -- Create disassembler context. + local ctx = discreate(code, addr, function(s) out:write(s) end) + ctx.symtab = jsubmap + + -- Dump an mcode block. + local pc, ofs = 1, 0 + local len, isdeopt = mfmiter() + if isdeopt then pc = len; len = 0 + elseif block ~= 1 then break end -- Stop before next main block. + for t, m in mfmiter do + if t == "COMBINE" then + bytecodeout(out, func, pc) + else + if len ~= 0 then + out:write("\n") + if len > 0 then + ctx:disass(ofs, len) + ofs = ofs + len + else + out:write(format("%08x ** deoptimized\n", addr+ofs)) + ofs = ofs - len + end + len = 0 + end + if type(t) == "number" then + if m then + if isdeopt then + pc = t - 1 + else + bytecodeout(out, func, pc) + len = -t + end + else + len = t + if bytecodeout(out, func, pc) then break end + end + end + end + pc = pc + 1 + end + if len and len ~= 0 then + out:write(sepline, " tail code\n") + ctx:disass(ofs, len) + end + end + + -- Print footer. + out:write(sepline, "\n") + out:flush() +end + +-- Dump the internal JIT subroutines. +local function dumpjsub_(out) + if not out then out = stderr end + local addr, code = jutil.jsubmcode() + + -- Create disassembler context. + local ctx = discreate(code, addr, function(s) out:write(s) end) + ctx.symtab = jsubmap + + -- Collect addresses and sort them. + local t = {} + for addr in pairs(jsubmap) do t[#t+1] = addr end + t[#t+1] = addr + #code + table.sort(t) + + -- Go through the addresses in ascending order. + local ofs = addr + for i=2,#t do + local next = t[i] + out:write("\n->", jsubmap[ofs], ":\n") -- Output label for JSUB. + ctx:disass(ofs-addr, next-ofs) -- Disassemble corresponding code block. + ofs = next + end + out:flush() +end + + +-- Active flag and output file handle. +local active, out + +-- Dump handler for compiler pipeline. +local function h_dump(st) + local ok, err = pcall(dumpfunc, st.func, out, st.deopt) + if not ok then + stderr:write("\nERROR: jit.dump disabled: ", err, "\n") + jit.attach(h_dump) -- Better turn ourselves off after a failure. + if out and out ~= stdout then out:close() end + out = nil + active = nil + end +end + +-- Detach dump handler from compiler pipeline. +local function dumpoff() + if active then + active = false + jit.attach(h_dump) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handler to compiler pipeline. +local function dumpon(filename) + if active then dumpoff() end + local outfile = filename or os.getenv("LUAJIT_DUMPFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_dump, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +disass = disass_ +dump = dumpfunc +dumpjsub = dumpjsub_ +on = dumpon +off = dumpoff +start = dumpon -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua b/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua new file mode 100644 index 00000000000..bf077bf0b7e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/dumphints.lua @@ -0,0 +1,239 @@ +---------------------------------------------------------------------------- +-- LuaJIT hints dumper module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to dump the bytecode and the hints from +-- the optimizer for all functions to be compiled. +-- +-- Try: luajit -O -j dumphints -e 'return 1' +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_DUMPHINTSFILE". +-- Note: The file is overwritten each time you run luajit. +-- +-- TODO: Find a way to be more selective on what to dump. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Should run before backend (positive) +-- and should be even because we only catch successful compiles. +local PRIORITY = 10 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, pairs, format = type, pairs, string.format +local bytecode, const = jutil.bytecode, jutil.const +local hints, fhints = jutil.hints, jutil.fhints +local stdout, stderr = io.stdout, io.stderr + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Separator line. +local sepline = "-------------------------------" + + +-- Pretty-print a constant. +local function conststr(func, idx) + local k = const(func, idx) + if k == nil then return "nil" + elseif k == true then return "true" + elseif k == false then return "false" + elseif type(k) == "string" then + if #k > 10 then return format('"%.10s"~', k) + else return '"'..k..'"' end + else return k.."" end +end + +-- Pretty-print a bytecode instruction. +local function bytecodeline(func, pc, flag) + local op, a, b, c = bytecode(func, pc) + if not op then return end + if op == "JMP" then + return format("\n%04d %s JMP => %04d", pc, flag, pc+1+b) + end + if op == "FORLOOP" or op == "FORPREP" then + return format("\n%04d %s %-9s %3d => %04d", pc, flag, op, a, pc+1+b) + end + local s = format("\n%04d %s %-9s %3d %4s %4s", + pc, flag, op, a, b or "", c or "") + if b and b < 0 then s = s.." ; "..conststr(func, b) end + if c and c < 0 then s = s.." ; "..conststr(func, c) end + return s +end + +-- Precompute inverse hints table. +local invhints = {} +for k,v in pairs(hints) do invhints[v] = k end + +-- The inverse resolver for inline functions is loaded on demand. +local getname + +-- Helper functions to pretty-print hints. +local function typehint(h, v, st, pc) + if st[pc+hints.INLINE] then return "" end + local tp = type(v) + if tp == "function" then + tp = debug.getinfo(v, "S").what + elseif tp == "number" and v % 1 == 0 then + tp = "integer" + elseif v == false then + tp = "mixed" + end + return " #"..h.."("..tp..")" +end + +local hintprint = { + COMBINE = function(h, v, st, pc) + if v == false then return "" end -- Dead instructions are already marked. + end, + TYPE = typehint, + TYPEKEY = typehint, + INLINE = function(h, v, st, pc) + if not getname then getname = require("jit.opt_inline").getname end + return " #INLINE("..getname(st[pc+hints.TYPE], v)..")" + end, +} + +-- Generate range string from table: pc[-pc] [,...] +local function rangestring(t) + local s = "" + for i,range in ipairs(t) do + if i ~= 1 then s = s.."," end + local pc = range % 65536 + range = (range - pc) / 65536 + s = s..pc + if range ~= 0 then s = s..(-(pc+range)) end + end + return s +end + +-- Dump instructions and hints for a (to be compiled) function. +local function dumphints(st, out) + if not out then out = stderr end + local func = st.func + local COMBINE = hints.COMBINE + + -- Need to recompute branch targets (not part of hints). + local target = {} + for pc=1,1e6 do + local op, a, b, c = bytecode(func, pc) + if not op then break end + if op == "JMP" or op == "FORLOOP" then + local t = pc+1+b + if st[pc+COMBINE] ~= false then target[t] = true end + elseif op == "LOADBOOL" and c ~= 0 then + target[pc+2] = true + end + end + + -- Map hints to bytecode instructions. + local hintstr = {} + for k,v in pairs(st) do + -- CHECK: must match hint shift in ljit_hints.h:JIT_H2NUM(). + if type(k) == "number" and k >= 65536 then + local pc = k % 65536 + if pc > 0 then + k = k - pc + local h = invhints[k] or (k/65536) + local hp = hintprint[h] + local s = hp and hp(h, v, st, pc) or (" #"..h) + local hs = hintstr[pc] + hintstr[pc] = hs and (hs..s) or s + end + end + end + + -- Write header. + local info = debug.getinfo(func, "S") + out:write(sepline, " ", info.source, ":", info.linedefined) + + -- Write function hints. + for k,v in pairs(fhints) do + if st[v] then out:write("\n#", k) end + end + + -- Write instruction hints and bytecode. + local function dumprange(firstpc, lastpc) + for pc=firstpc,lastpc do + local prefix = " " + if st[pc+COMBINE] == false then prefix = "**" + elseif target[pc] then prefix = "=>" end + local line = bytecodeline(func, pc, prefix) + if not line then break end + local h = hintstr[pc] + if h then + out:write(format("%-40s %s", line, h)) + else + out:write(line) + end + end + end + + -- Handle deoptimization range table. + local t = st.deopt + if t then + out:write(" DEOPT=", rangestring(t)) + for i,range in ipairs(t) do + if i ~= 1 then out:write("\n----") end + local pc = range % 65536 + range = (range - pc) / 65536 + dumprange(pc, pc+range) + end + else + dumprange(1, 1000000) + end + + -- Write footer. + out:write("\n", sepline, "\n") + out:flush() +end + + +-- Active flag and output file handle. +local active, out + +-- Dump hints handler for compiler pipeline. +local function h_dumphints(st) + local ok, err = pcall(dumphints, st, out) + if not ok then + stderr:write("\nERROR: jit.dumphints disabled: ", err, "\n") + jit.attach(h_dumphints) -- Better turn ourselves off after a failure. + if out and out ~= stdout then out:close() end + out = nil + active = nil + end +end + +-- Detach dump handler from compiler pipeline. +local function dumphintsoff() + if active then + active = false + jit.attach(h_dumphints) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handler to compiler pipeline. +local function dumphintson(filename) + if active then dumphintsoff() end + local outfile = filename or os.getenv("LUAJIT_DUMPHINTSFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_dumphints, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +dump = dumphints +on = dumphintson +off = dumphintsoff +start = dumphintson -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/opt.lua b/src/3rd party/LuaJIT-1.1.8/jit/opt.lua new file mode 100644 index 00000000000..07b5be4e27b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/opt.lua @@ -0,0 +1,508 @@ +---------------------------------------------------------------------------- +-- LuaJIT optimizer. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- This module contains a simple optimizer that generates some hints for +-- the compiler backend. +-- +-- Compare: luajit -j dump -e 'return 1' +-- with: luajit -O -j dumphints -j dump -e 'return 1' +-- +-- This module uses a very simplistic (but fast) abstract interpretation +-- algorithm. It mostly ignores control flow and/or basic block boundaries. +-- Thus the results of the analysis are really only predictions (e.g. about +-- monomorphic use of operators). The backend _must_ check all contracts +-- (e.g. verify the object type) and use a (polymorphic) fallback or +-- deoptimization in case a contract is broken. +-- +-- Although simplistic, the generated hints are pretty accurate. Note that +-- some hints are really definitive and don't need to be checked (like +-- COMBINE or FOR_STEP_K). +-- +-- TODO: Try MFP with an extended lattice. But it's unclear whether the +-- added complexity really pays off with the current backend. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Right in the middle before the backend. +local PRIORITY = 50 + +-- Default optimizer level, i.e. what you get with -O. +-- Caveat: this may change in the future when more optimizations are added. +local OPTLEVEL = 2 + +-- Heuristic limits for what the compiler should reasonably handle. +-- Functions outside these limits are unlikely to be run more than once. +-- Maybe a bit on the generous side. Check ljit.h for backend limits, too. +-- TODO: make it depend on the bytecode distribution, too. +local LIMITS = { + bytecodes = 4000, + stackslots = 150, + params = 20, + consts = 200, + subs = 30, +} + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, rawget, next, pcall = type, rawget, next, pcall +local bytecode, const = jutil.bytecode, jutil.const +local hints, fhints = jutil.hints, jutil.fhints +local getmetatable = getmetatable + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Default optimizer level after loading. But -O runs setlevel(), too. +local optlevel = -1 + + +-- Use iterative path marking to mark live instructions and branch targets. +local function marklive(func) + local live, work, workn, pc = {}, {}, 0, 1 + repeat + repeat + local op, a, b, c, test = bytecode(func, pc) + live[pc] = true + pc = pc + 1 + if op == "JMP" then + pc = pc + b + live[-pc] = true + elseif op == "FORLOOP" then + local mpc = -pc + live[mpc - b] = true + live[mpc] = true + elseif op == "RETURN" then + break + elseif test then + local fpc = pc + 1 + -- No need for fallthrough target mark live[-fpc] in our analysis. + if not live[fpc] then -- Add fallthrough path to work list. + workn = workn + 1 + work[workn] = fpc + end + elseif op == "CLOSURE" then + pc = pc + jutil.closurenup(func, b) -- Do not mark pseudo-ins live. + elseif op == "LOADBOOL" and c ~= 0 then + pc = pc + 1 + live[-pc] = true + elseif op == "SETLIST" and c == 0 then + pc = pc + 1 -- Do not mark pseudo-ins live. + end + until live[pc] + if workn == 0 then return live end -- Return if work list is empty. + pc = work[workn] -- Else fetch next path to mark from work list. + workn = workn - 1 + until false +end + + +-- Empty objects. +local function empty() end + +-- Dummy function to set call hints. Replaced when jit.opt_inline is loaded. +local function callhint(st, slot, pc, base, narg, nres) + st[pc+hints.TYPE] = slot[base] + for i=base,base+nres-1 do slot[i] = nil end +end + +-- Set TYPE hint, but only for numbers, strings or tables. +local function typehint(st, pc, o) + local tp = type(o) + if tp == "number" or tp == "string" or tp == "table" then + st[pc+hints.TYPE] = o + end +end + +-- Set TYPE and TYPEKEY hints for table operations. +local function tablehint(st, slot, pc, t, kslot) + local tp = type(t) + if tp == "table" or tp == "userdata" then st[pc+hints.TYPE] = t end + if kslot >= 0 then -- Don't need this hint for constants. + local key = slot[kslot] + local tp = type(key) + if tp == "number" or tp == "string" then st[pc+hints.TYPEKEY] = key end + end +end + +-- Try to lookup a value. Guess the value or at least the value type. +local function trylookup(st, t, k) + if k == nil then return nil end + if type(t) == "table" then + local v = rawget(t, k) + if v ~= nil then return v end + end + local mt = getmetatable(t) + if type(mt) == "table" then + -- One __index level is enough for our purposes. + local it = rawget(mt, "__index") + if type(it) == "table" then + local v = rawget(it, k) + if v ~= nil then return v end + end + end + local v = st.tableval[t] -- Resort to a generic guess. + if v == nil and type(t) == "table" then v = next(t) end -- Getting desperate. + return v +end + +-- Check whether the previous instruction sets a const. +local function prevconst(st, slot, pc, reg) + if st.live[-pc] == nil then -- Current instruction must not be a target. + local op, ka, kb = bytecode(st.func, pc-1) + if ka == reg and (op == "LOADK" or op == "LOADBOOL" or + (op == "LOADNIL" and kb == reg)) then + return true, slot[reg] + end + end +end + +-- Common handler for arithmetic and comparison opcodes. +local function arithop(st, slot, pc, a, b, c, op) + local sb, sc = slot[b], slot[c] + if sb == nil then sb = sc elseif sc == nil then sc = sb end + local tb, tc = type(sb), type(sc) + if tb == tc then + if tb == "number" then -- Improve the guess for numbers. + if op == "DIV" or sb % 1 ~= 0 or sc % 1 ~= 0 then + sb = 0.5 -- Probably a non-integral number. + else + sb = 1 -- Optimistic guess. + end + end + if sb ~= nil then st[pc+hints.TYPE] = sb end + else + st[pc+hints.TYPE] = false -- Marker for mixed types. + end + if op ~= "LT" and op ~= "LE" then + slot[a] = sb -- Assume coercion to 1st type if different. + end +end + +-- Common handler for TEST and TESTSET. +local function testop(st, slot, pc, a, b, c) + -- Optimize the 'expr and k1 or k2' idiom. + local ok, k = prevconst(st, slot, pc, b) + if k and a == b then + st[pc+hints.COMBINE] = false -- Kill the TEST/TESTSET. + if c == 0 then st.live[pc+1] = nil end -- Kill the JMP. + end + slot[a] = slot[b] +end + +-- Dispatch table for opcode handlers. +local handler = { + MOVE = function(st, slot, pc, a, b, c) + slot[a] = slot[b] + end, + + LOADK = function(st, slot, pc, a, b, c) + slot[a] = const(st.func, b) + end, + + LOADBOOL = function(st, slot, pc, a, b, c) + slot[a] = (b == 1) + end, + + LOADNIL = function(st, slot, pc, a, b, c) + for i=a,b do slot[i] = nil end + end, + + GETUPVAL = function(st, slot, pc, a, b, c) + slot[a] = jutil.upvalue(st.func, b) + end, + + GETGLOBAL = function(st, slot, pc, a, b, c) + slot[a] = trylookup(st, st.stats.env, const(st.func, b)) + end, + + GETTABLE = function(st, slot, pc, a, b, c) + local t = slot[b] + tablehint(st, slot, pc, t, c) + slot[a] = trylookup(st, t, slot[c]) + end, + + SETGLOBAL = empty, + + SETUPVAL = empty, -- TODO: shortcut -- but this is rare? + + SETTABLE = function(st, slot, pc, a, b, c) + local t = slot[a] + tablehint(st, slot, pc, t, b) + if type(t) == "table" or type(t) == "userdata" then -- Must validate setkey. + local val = slot[c] + if val ~= nil then st.tableval[t] = val end + end + end, + + NEWTABLE = function(st, slot, pc, a, b, c) + slot[a] = {} -- Need unique tables for indexing st.tableval. + end, + + SELF = function(st, slot, pc, a, b, c) + local t = slot[b] + tablehint(st, slot, pc, t, c) + slot[a+1] = t + slot[a] = trylookup(st, t, slot[c]) + end, + + ADD = arithop, SUB = arithop, MUL = arithop, DIV = arithop, + MOD = arithop, POW = arithop, LT = arithop, LE = arithop, + + UNM = function(st, slot, pc, a, b, c) + return arithop(st, slot, pc, a, b, b, "UNM") + end, + + NOT = function(st, slot, pc, a, b, c) + slot[a] = true + end, + + LEN = function(st, slot, pc, a, b, c) + typehint(st, pc, slot[b]) + slot[a] = 1 + end, + + CONCAT = function(st, slot, pc, a, b, c) + local mixed + local sb = slot[b] + for i=b+1,c do + local si = slot[i] + if sb == nil then + sb = si + elseif si ~= nil and type(sb) ~= type(si) then + mixed = true + break + end + end + if sb == nil then + sb = "" + else + st[pc+hints.TYPE] = not mixed and sb or false + if type(sb) == "number" then sb = "" end + end + slot[a] = sb -- Assume coercion to 1st type (if different) or string. + end, + + JMP = function(st, slot, pc, a, b, c) + if b >= 0 then -- Kill JMPs across dead code. + local tpc = pc + b + while not st.live[tpc] do tpc = tpc - 1 end + if tpc == pc then st[pc+hints.COMBINE] = false end + end + end, + + EQ = function(st, slot, pc, a, b, c) + if b >= 0 and c >= 0 then typehint(st, pc, slot[b] or slot[c]) end + end, + + TEST = function(st, slot, pc, a, b, c) + return testop(st, slot, pc, a, a, c) + end, + + TESTSET = testop, + + CALL = function(st, slot, pc, a, b, c) + callhint(st, slot, pc, a, b-1, c-1) + end, + + TAILCALL = function(st, slot, pc, a, b, c) + callhint(st, slot, pc, a, b-1, -1) + end, + + RETURN = function(st, slot, pc, a, b, c) + if b == 2 and prevconst(st, slot, pc, a) then + st[pc-1+hints.COMBINE] = true -- Set COMBINE hint for prev. instruction. + end + end, + + FORLOOP = empty, + + FORPREP = function(st, slot, pc, a, b, c) + local ok, step = prevconst(st, slot, pc, a+2) + if type(step) == "number" then + st[pc+hints.FOR_STEP_K] = step + end + local nstart, nstep = slot[a], slot[a+2] + local tnstart, tnstep = type(nstart), type(nstep) + local ntype = ((tnstart == "number" and nstart % 1 ~= 0) or + (tnstep == "number" and nstep % 1 ~= 0)) and 0.5 or 1 + slot[a+3] = ntype + if tnstart == "number" and tnstep == "number" and + type(slot[a+1]) == "number" then + st[pc+hints.TYPE] = ntype + end + end, + + -- TFORLOOP is at the end of the loop. Setting slots would be pointless. + -- Inlining is handled by the corresponding iterator constructor (CALL). + TFORLOOP = function(st, slot, pc, a, b, c) + st[pc+hints.TYPE] = slot[a] + end, + + SETLIST = function(st, slot, pc, a, b, c) + -- TODO: if only (numeric) const: shortcut (+ nobarrier). + local t = slot[a] + -- Very imprecise. But better than nothing. + if type(t) == "table" then st.tableval[t] = slot[a+1] end + end, + + CLOSE = empty, + + CLOSURE = function(st, slot, pc, a, b, c) + slot[a] = empty + if st.noclose then + local nup = jutil.closurenup(st.func, b) + for i=pc+1,pc+nup do + local op = bytecode(st.func, i) + if op == "MOVE" then + st.noclose = false + return + end + end + end + end, + + VARARG = function(st, slot, pc, a, b, c) + local params = st.stats.params + for i=1,b do slot[a+i-1] = st[params+i] end + end, +} + +-- Generate some hints for the compiler backend. +local function optimize(st) + -- Deoptimization is simple: just don't generate any hints. :-) + if st.deopt then return end + + local func = st.func + local stats = jutil.stats(func) + if not stats then return jutil.status.COMPILER_ERROR end -- Eh? + + -- Check limits. + if stats.bytecodes > LIMITS.bytecodes or + stats.stackslots > LIMITS.stackslots or + stats.params > LIMITS.params or + stats.consts > LIMITS.consts or + stats.subs > LIMITS.subs then + return jutil.status.TOOLARGE + end + + -- Mark live instructions (live[pc]) and branch targets (live[-pc]). + local live = marklive(func) + + -- Handlers need access to some temporary state fields. + st.noclose = true + st.stats = stats + st.live = live + st.tableval = { [stats.env] = empty } -- Guess: unknown globals are functions. + + -- Initialize slots with argument hints and constants. + local slot = {} + for i=1,stats.params do slot[i-1] = st[i] end + for i=-1,-256,-1 do -- No need to copy non-RK-able consts. + local k, ok = const(func, i) + if not ok then break end + slot[i] = k + end + + -- Step through all live instructions, update slots and add hints. + for pc=1,stats.bytecodes do + if live[pc] then + local op, a, b, c, test = bytecode(func, pc) + handler[op](st, slot, pc, a, b, c, op) + else + st[pc+hints.COMBINE] = false -- Dead instruction hint. + end + end + + -- Update function hints. + if st.noclose then st[fhints.NOCLOSE] = true end + + -- Clear temporary state fields. + st.noclose = nil + st.stats = nil + st.live = nil + st.tableval = nil +end + + +-- Active flags. +local active, active_opt_inline + +-- Handler for compiler pipeline. +local function h_opt(st) + if optlevel <= 0 then return end + local ok, err = pcall(optimize, st) + if not ok then + io.stderr:write("\nERROR: jit.opt disabled: ", err, "\n") + jit.attach(h_opt) -- Better turn ourselves off after a failure. + active = nil + else + if err then return err end + end +end + +-- Load add-on module. +local function loadaddon(opt) + local name, val = string.match(opt, "^(.-)=(.*)$") -- Strip value. + if not name then name = opt end + name = "jit.opt_"..name + local ok, mod = pcall(require, name) + if not ok then + -- Return error if not installed, but propagate other errors. + if string.sub(mod, 1, 7) ~= "module " then error(mod, 0) end + return "optimizer add-on module "..name.." not found" + end + mod.start(val) +end + +-- Attach optimizer and set optimizer level or load add-on module. +local function setlevel_(opt) + -- Easier to always attach the optimizer (even for -O0). + if not active then + jit.attach(h_opt, PRIORITY) + active = true + end + + -- Parse -O or -O. + if opt == nil or opt == "" then + optlevel = OPTLEVEL + else + local level = tonumber(opt) -- Numeric level? + if level then + if level < 0 or level % 1 ~= 0 then + error("bad optimizer level", 0) + end + optlevel = level + else + if optlevel == -1 then optlevel = OPTLEVEL end + local err = loadaddon(opt) + if err then error(err, 0) end + end + end + + -- Load add-on module for inlining functions for -O2 and above. + if not active_opt_inline and optlevel >= 2 then + loadaddon("inline") -- Be silent if not installed. + active_opt_inline = true -- Try this only once. + end +end + + +-- Public module functions. +module(...) + +-- Callback to allow attaching a call hinter. Used by jit.opt_inline. +function attach_callhint(f) + callhint = f +end + +function getlevel() + return optlevel +end + +setlevel = setlevel_ +start = setlevel_ -- For -O command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua b/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua new file mode 100644 index 00000000000..6fd9e581d06 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/opt_inline.lua @@ -0,0 +1,397 @@ +---------------------------------------------------------------------------- +-- LuaJIT optimizer add-on module for function inlining. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- This is a simple framework for C function signature maps. +-- It helps with type propagation and C function inlining. +-- +-- This module is automatically loaded with -O2 and above. +-- By default most standard library functions are added. +-- +-- TODO: generalize it, e.g. for back propagation (i.e. arg types). +-- TODO: extend it for Lua functions (but need to analyze them before use). +------------------------------------------------------------------------------ + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, rawget, next = type, rawget, next +local hints, fhints = jutil.hints, jutil.fhints +local sub, match, gsub = string.sub, string.match, string.gsub + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Prototypical objects used for type hints. +local TABLE = {} +local CFUNC = collectgarbage -- Pretty sure this is never inlined. + + +-- Map from C closures to signatures. Cannot use a weak table. +-- Closures must be kept alive because inlining checks against their addrs. +local map_sign = {} + +-- For jit.dumphints: get printable name for TYPE hint: "#INLINE(foo.bar)". +local function getname_(f, idx) + local sign = map_sign[f] + if sign then + local libname, name = sign.libname, sign.name + if libname then + return libname.."."..name + else + return name + end + elseif idx == 0 then + return "recursive" + else + return "?" + end +end + +-- Name, base table and running index for convenience functions. +-- CHECK: the library index and the order below must match with ljit_hints.h +local flibname, flib, fidx + +local function fadd(name, results, args, handler) + local f = rawget(flib, name) + if f then + map_sign[f] = { + libname = flibname, name = name, idx = fidx, + results = results, args = args, handler = handler, + } + end + if fidx then fidx = fidx + 1 end +end + +local function faddf(name, f, results, args, handler) + map_sign[f] = { + libname = flibname, name = name, idx = fidx, + results = results, args = args, handler = handler, + } + if fidx then fidx = fidx + 1 end +end + + +-- Signature handler: copy first argument to first result. +local function copyfirst(st, slot, pc, base, narg, nres) + slot[base] = slot[base+1] +end + +-- Helper for iterators: check if the function is an iterator constructor. +-- +-- 'for ivars in func(args) do body end' +-- +-- ...load func+args... +-- CALL func <-- pc +-- JMP fwd ---+ +-- back: | <--+ +-- ...body... | | +-- fwd: <--+ | +-- TFORLOOP ivars | <-- tforpc +-- JMP back ---+ +-- +local function itercheck(st, slot, pc, base, idx) + if idx then + local bytecode, func = jutil.bytecode, st.func + local op, _, fwd = bytecode(func, pc+1) + if op == "JMP" then + local tforpc = pc+2+fwd + local op, tfbase, _, tfnres = bytecode(func, tforpc) + if op == "TFORLOOP" and tfbase == base and tfnres <= 2 then + local op, _, back = bytecode(func, tforpc+1) + if op == "JMP" and fwd+back == -2 then + -- Must set inlining hint for TFORLOOP instruction here. + st[tforpc+hints.INLINE] = idx -- Serves as iterator index, too. + return -- Inline it. + end + end + end + end + slot[base] = CFUNC -- Better make it different from pairs. + return true -- Better not inline it, if not used in a for statement. +end + +-- Helper for pairs/next: guess result types for standard table iterator. +local function guessnext(st, slot, base, dest) + local t, k, v = slot[base+1] + if type(t) == "table" then + k, v = next(t) + if v == nil then v = st.tableval[t] end + end + slot[dest] = k or "" -- Strings are a good guess for the key type. + slot[dest+1] = v -- But better not guess any fixed value type. +end + + +-- Signatures for base library functions. +-- Note: Only add functions where result type hints or inlining makes sense. +flibname, flib, fidx = nil, _G, 65536*1 +fadd("pairs", "..0", "T", + function(st, slot, pc, base, narg, nres, idx) + -- Table in slot[base+1] is kept (2nd result = 1st arg). + -- Fill result slots for the iterator here (TFORLOOP is at the end). + guessnext(st, slot, base, base+3) + return itercheck(st, slot, pc, base, idx) + end) + +fadd("ipairs", "..I", "T", + function(st, slot, pc, base, narg, nres, idx) + -- Table in slot[base+1] is kept (2nd result = 1st arg). + -- Fill result slots for the iterator here (TFORLOOP is at the end). + local t = slot[base+1] + slot[base+3] = 1 -- Integer key. + local v + if type(t) == "table" then + v = rawget(t, 1) + if v == nil then v = st.tableval[t] end + end + slot[base+4] = v + return itercheck(st, slot, pc, base, idx) + end) + +fidx = nil -- Pure result type signatures follow: +fadd("next", "..", "T.?", + function(st, slot, pc, base, narg, nres) + guessnext(st, slot, base, base) + end) +fadd("type", "S", ".") +fadd("getmetatable", "T", ".") +fadd("setmetatable", ".", "TT?", copyfirst) +fadd("rawequal", "B", "..") +fadd("rawget", ".", "T.", + function(st, slot, pc, base, narg, nres) + local t = slot[base+1] + slot[base] = type(t) == "table" and rawget(t, slot[base+2]) or "" + end) +fadd("rawset", ".", "T..", copyfirst) +fadd("assert", "*", "..*", + function(st, slot, pc, base, narg, nres) + for i=1,nres do slot[base+i-1] = i <= narg and slot[base+i] or nil end + end) +fadd("tonumber", "I", ".I?") +fadd("tostring", "S", ".") +fadd("require", "T", "S") + +-- Signatures for coroutine library functions. +flibname, flib, fidx = "coroutine", coroutine, 65536*2 +if flib then + fadd("yield", "*", ".*") + fadd("resume", "*", "R.*", + function(st, slot, pc, base, narg, nres) + slot[base] = true + for i=1,nres-1 do slot[base+i] = nil end -- No guess. + end) + + fidx = nil -- Pure result type signatures follow: + fadd("wrap", "C", "F") +end + +-- Signatures for string library functions. +flibname, flib, fidx = "string", string, 65536*3 +if flib then + fadd("len", "I", "S") + fadd("sub", "S", "SII?") + fadd("char", "S", "I*") + + fidx = nil -- Pure result type signatures follow: + fadd("byte", "I", "S", + function(st, slot, pc, base, narg, nres) + for i=0,nres-1 do slot[base+i] = 1 end -- Set all result hints. + end) + fadd("rep", "S", "SI") + fadd("reverse", "S", "S") + fadd("upper", "S", "S") + fadd("lower", "S", "S") + + fadd("format", "S", "S.*") + fadd("find", "*", "SSI?.?", + function(st, slot, pc, base, narg, nres) + slot[base] = 1 + slot[base+1] = 1 + for i=2,nres-1 do slot[base+i] = "" end -- Hints for matches. + end) + fadd("match", "*", "SSI?", + function(st, slot, pc, base, narg, nres) + for i=0,nres-1 do slot[base+i] = "" end -- Hints for matches. + end) + fadd("gsub", "SI", "SSGI?") + fadd("gmatch", "C00", "SS", + function(st, slot, pc, base, narg, nres) + -- Fill result slots for gmatch_iter here (TFORLOOP is at the end). + for i=base+3,st.stats.stackslots-1 do slot[i] = "" end + end) + -- The gmatch iterator itself is never inlined. No point in adding it. +end + +-- Signatures for table library functions. +flibname, flib, fidx = "table", table, 65536*4 +if flib then + fadd("insert", "", "TI?.") + fadd("remove", ".", "T", + function(st, slot, pc, base, narg, nres) + if nres >= 1 then + local t = slot[base+1] + slot[base] = type(t) == "table" and rawget(t, 1) or "" + end + end) + fadd("getn", "I", "T") + + fidx = nil -- Pure result type signatures follow: + fadd("concat", "S", "TS?I?I?") +end + +-- Signatures for math library functions. +flibname, flib, fidx = "math", math, 65536*5 +if flib then + -- 1 arg, 1 result. + fadd("log", "N", "N") + fadd("log10", "N", "N") + fadd("exp", "N", "N") + fadd("sinh", "N", "N") + fadd("cosh", "N", "N") + fadd("tanh", "N", "N") + fadd("asin", "N", "N") + fadd("acos", "N", "N") + fadd("atan", "N", "N") + fadd("sin", "N", "N") + fadd("cos", "N", "N") + fadd("tan", "N", "N") + fadd("ceil", "I", "N") + fadd("floor", "I", "N") + fadd("abs", ".", "N", copyfirst) + fadd("sqrt", "N", "N") + -- 2 args, 1 result. + -- math.fmod is aliased to math.mod for compatibility. + fadd("fmod", ".", "NN", + function(st, slot, pc, base, narg, nres) + slot[base] = slot[base+2] or 1 -- Copy integer or number hint. + end) + fadd("atan2", "N", "NN") + + fidx = nil -- Pure result type signatures follow: + -- 1-n args, 1 result. + fadd("min", ".", "NN*", copyfirst) -- Really depends on all args. + fadd("max", ".", "NN*", copyfirst) -- Really depends on all args. + -- 1 arg, 1 result. + fadd("deg", "N", "N") + fadd("rad", "N", "N") + -- 1 arg, 2 results. + fadd("modf", "IN", "N") + fadd("frexp", "NI", "N") + -- 2 args, 1 result. + fadd("pow", "N", "NN") + fadd("ldexp", ".", "NI", copyfirst) + -- 1 arg, 0 results. + fadd("randomseed", "", "I") + -- 0-2 args, 1 result. + fadd("random", "N", "I?I?", + function(st, slot, pc, base, narg, nres) + if narg > 0 then slot[base] = 1 end + end) +end + +-- Signatures for I/O library functions. +-- Not inlined anytime soon. Used for result types only. +flibname, flib, fidx = "io", io, nil +if flib then + fadd("lines", "C00S", "S?") + fadd("read", "S", "") -- Simplified (a lot). + -- Adding io methods doesn't work, because we don't deal with userdata (yet). +end + + +-- Type names to argument type shorthands. +-- TODO: make the matches more exact? Need to differentiate nil/unknown. +local map_argtype = { + ["nil"] = "0", boolean = "b", number = "n", string = "s", + table = "t", ["function"] = "f", userdata = "u", thread = "r", +} + +-- Complex argument match patterns to regexp fragments. +local map_argmatch = { + B = "[b0]", S = "[s0]", T = "[t0]", F = "[f0]", U = "[u0]", R = "[r0]", + N = "[n0]", I = "[n0]", -- Number/int args are the same for now. + G = "[stf0]", -- For string.gsub. +} + +-- Result type shorthands to sample types. +local map_restype = { + -- ["0"] = nil, + B = true, S = "", T = {}, + N = 0.5, I = 1, + L = function() end, C = collectgarbage, -- Pretty sure this is never inlined. +} + +-- Create argument match regexp and cache it. +local function getargmatch(sign) + local argmatch = "^"..gsub(sign.args, ".", map_argmatch).."0*$" + sign.argmatch = argmatch + return argmatch +end + +-- Set INLINE hints and result types for known C functions. +local function inlinehint(sign, st, slot, pc, base, narg, nres) + local idx = sign.idx + if idx then + if narg ~= -1 then + local argpat = "" + for i=1,narg do argpat = argpat..map_argtype[type(slot[base+i])] end + if not match(argpat, sign.argmatch or getargmatch(sign)) then + idx = nil + end + end + end + + local results = sign.results + if results ~= "*" and nres ~= -1 then + if nres > #results then idx = nil end + for i=1,#results do + local c = sub(results, i, i) + if c ~= "." then slot[base+i-1] = map_restype[c] end + end + end + + local handler = sign.handler + if handler and handler(st, slot, pc, base, narg, nres, idx) then idx = nil end + + if idx then st[pc+hints.INLINE] = idx end +end + +-- Set call hints and result types during forward propagation. +local function fwdcallhint(st, slot, pc, base, narg, nres) + local f = slot[base] + st[pc+hints.TYPE] = f + if type(f) == "function" then + local sign = map_sign[f] + if sign then + inlinehint(sign, st, slot, pc, base, narg, nres) + return + end + if f == st.func and not st.stats.isvararg and + (narg == -1 or narg == st.stats.params) then + st[pc+hints.INLINE] = 0 -- Recursive call. + end + end + -- Clear result types for unknown functions. + for i=base,base+nres-1 do slot[i] = nil end +end + + +-- Attach call hinter to optimizer. +local function start_() + local jopt = require "jit.opt" + jopt.attach_callhint(fwdcallhint) + -- Note that just loading the optimizer does not start it, yet. +end + + +-- Public module functions. +module(...) + +-- TODO: Public API to add signatures. Alas, the API is still in flux. +getname = getname_ +start = start_ + diff --git a/src/3rd party/LuaJIT-1.1.8/jit/trace.lua b/src/3rd party/LuaJIT-1.1.8/jit/trace.lua new file mode 100644 index 00000000000..01ca6682d4f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jit/trace.lua @@ -0,0 +1,111 @@ +---------------------------------------------------------------------------- +-- LuaJIT compiler tracing module. +-- +-- Copyright (C) 2005-2012 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See luajit.h for full copyright notice. +---------------------------------------------------------------------------- +-- Activate this module to trace the progress of the JIT compiler. +-- +-- Try: luajit -j trace -e 'print "foo"' +-- luajit -j trace=foo.trace foo.lua +-- +-- Default output is to stderr. To redirect output to a file, +-- pass a filename as an argument or set the environment variable +-- "LUAJIT_TRACEFILE". +-- Note: the file is overwritten each time you run luajit. +------------------------------------------------------------------------------ + +-- Priority for compiler pipeline. Must run after backend (negative) +-- and should be odd to catch compiler errors, too. +local PRIORITY = -99 + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 10108, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local type, tostring, sub, format = type, tostring, string.sub, string.format +local getinfo, justats = debug.getinfo, jutil.stats +local stdout, stderr = io.stdout, io.stderr + +-- Turn compilation off for the whole module. LuaJIT would do that anyway. +jit.off(true, true) + +-- Active flag and output file handle. +local active, out + +-- Generate range string from table: pc[-pc] [,...] +local function rangestring(t) + local s = "" + for i,range in ipairs(t) do + if i ~= 1 then s = s.."," end + local pc = range % 65536 + range = (range - pc) / 65536 + s = s..pc + if range ~= 0 then s = s..(-(pc+range)) end + end + return s +end + +-- Trace handler for compiler pipeline. +local function h_trace(st, status) + local o = out or stderr + local func = st.func + if type(func) ~= "function" then return end + local info = getinfo(func, "S") + local src, line = info.source, info.linedefined or 0 + if src then + if sub(src, 1, 1) == "@" or sub(src, 1, 2) == "=(" then + src = sub(src, 2) + else + src = "**"..string.gsub(sub(src, 1, 40), "%c", " ").."**" + end + else + src = "?" + end + local aux = st.deopt and " DEOPT="..rangestring(st.deopt) or "" + if status == nil then + local stats = justats(func) + if not stats then return end + o:write(format("[LuaJIT: OK %4d %6d %s:%d%s]\n", + stats.bytecodes, stats.mcodesize or -1, src, line, aux)) + return + else + local stname = jit.util.status[status] or status + local pc, err = st.dasm_pc, st.dasm_err + if type(pc) == "number" and type(err) == "number" then + local op = jutil.bytecode(func, pc) or "END" + o:write(format("[LuaJIT: %s %s@%d %08x %s:%d%s]\n", + stname, op, pc, err, src, line, aux)) + else + o:write(format("[LuaJIT: %s %s:%d%s]\n", stname, src, line, aux)) + end + end +end + +-- Detach trace handler from compiler pipeline. +local function traceoff() + if active then + active = false + jit.attach(h_trace) + if out and out ~= stdout then out:close() end + out = nil + end +end + +-- Open the output file and attach trace handler to compiler pipeline. +local function traceon(filename) + if active then traceoff() end + local outfile = filename or os.getenv("LUAJIT_TRACEFILE") + out = outfile and (outfile == "-" and stdout or assert(io.open(outfile, "w"))) + jit.attach(h_trace, PRIORITY) + active = true +end + + +-- Public module functions. +module(...) + +on = traceon +off = traceoff +start = traceon -- For -j command line option. + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css new file mode 100644 index 00000000000..16a6a72a304 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad-print.css @@ -0,0 +1,166 @@ +/* Copyright (C) 2004-2012 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +body { + font-family: serif; + font-size: 11pt; + margin: 0 3em; + padding: 0; + border: none; +} +a:link, a:visited, a:hover, a:active { + text-decoration: none; + background: transparent; + color: #0000ff; +} +h1, h2, h3 { + font-family: sans-serif; + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; +} +h1 { + font-size: 200%; +} +h2 { + font-size: 150%; +} +h3 { + font-size: 125%; +} +p { + margin: 0 0 0.5em 0; + padding: 0; +} +ul, ol { + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + margin: 1em 0; + padding: 1em; + border: 1px solid black; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +table { + table-layout: fixed; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid black; + border-spacing: 0; + border-collapse: collapse; +} +tr { + margin: 0; + padding: 0; + border: none; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border-top: 1px solid black; + border-bottom: 1px solid black; +} +tr.separate td { + border-top: double; +} +tt, pre, code, kbd, samp { + font-family: monospace; + font-size: 75%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + margin: 1em 2em; + padding: 0; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noprint, #nav { + display: none !important; +} +.pagebreak { + page-break-before: always; +} +#site { + text-align: right; + font-family: sans-serif; + font-weight: bold; + margin: 0 1em; + border-bottom: 1pt solid black; +} +#site a { + font-size: 1.2em; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#logo { + color: #ff8000; +} +#head { + clear: both; + margin: 0 1em; +} +#main { + line-height: 1.3; + text-align: justify; + margin: 1em; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0 1.25em; + padding: 0.5em 0 0 0; + border-top: 1pt solid black; + page-break-before: avoid; + page-break-after: avoid; +} diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css new file mode 100644 index 00000000000..b1bf8fcc1fb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/bluequad.css @@ -0,0 +1,292 @@ +/* Copyright (C) 2004-2012 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +/* colorscheme: + * + * site | head #4162bf/white | #6078bf/#e6ecff + * ------+------ ----------------+------------------- + * nav | main #bfcfff | #e6ecff/black + * + * nav: hiback loback #c5d5ff #b9c9f9 + * hiborder loborder #e6ecff #97a7d7 + * link hover #2142bf #ff0000 + * + * link: link visited hover #2142bf #8122bf #ff0000 + * + * main: boxback boxborder #f0f4ff #bfcfff + */ +body { + font-family: Verdana, Arial, Helvetica, sans-serif; + font-size: 10pt; + margin: 0; + padding: 0; + border: none; + background: #e0e0e0; + color: #000000; +} +a:link { + text-decoration: none; + background: transparent; + color: #2142bf; +} +a:visited { + text-decoration: none; + background: transparent; + color: #8122bf; +} +a:hover, a:active { + text-decoration: underline; + background: transparent; + color: #ff0000; +} +h1, h2, h3 { + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; + background: transparent; +} +h1 { + font-size: 200%; + line-height: 3em; /* really 6em relative to body, match #site span */ + margin: 0; +} +h2 { + font-size: 150%; + color: #606060; +} +h3 { + font-size: 125%; + color: #404040; +} +p { + max-width: 600px; + margin: 0 0 0.5em 0; + padding: 0; +} +ul, ol { + max-width: 600px; + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + max-width: 600px; + margin: 1em 0; + padding: 1em; + border: 1px solid #bfcfff; + background: #f0f4ff; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; + color: #808080; +} +dt a:visited { + text-decoration: none; + color: #2142bf; +} +dt a:hover, dt a:active { + text-decoration: none; + color: #ff0000; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +div.tablewrap { /* for IE *sigh* */ + max-width: 600px; +} +table { + table-layout: fixed; + border-spacing: 0; + border-collapse: collapse; + max-width: 600px; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid #bfcfff; +} +tr { + margin: 0; + padding: 0; + border: none; +} +tr.odd { + background: #f0f4ff; +} +tr.separate td { + border-top: 1px solid #bfcfff; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border: none; +} +tt, code, kbd, samp { + font-family: Courier New, Courier, monospace; + font-size: 110%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + max-width: 600px; + margin: 1em 2em; + padding: 0; +} +pre { + line-height: 1.1; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.indent { + padding-left: 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noscreen { + display: none !important; +} +.ext { + color: #ff8000; +} +#site { + clear: both; + float: left; + width: 13em; + text-align: center; + font-weight: bold; + margin: 0; + padding: 0; + background: transparent; + color: #ffffff; +} +#site a { + font-size: 200%; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#site span { + line-height: 3em; /* really 6em relative to body, match h1 */ +} +#logo { + color: #ffb380; +} +#head { + margin: 0; + padding: 0 0 0 2em; + border-left: solid 13em #4162bf; + border-right: solid 3em #6078bf; + background: #6078bf; + color: #e6ecff; +} +#nav { + clear: both; + float: left; + overflow: hidden; + text-align: left; + line-height: 1.5; + width: 13em; + padding-top: 1em; + background: transparent; +} +#nav ul { + list-style: none outside; + margin: 0; + padding: 0; +} +#nav li { + margin: 0; + padding: 0; +} +#nav a { + display: block; + text-decoration: none; + font-weight: bold; + margin: 0; + padding: 2px 1em; + border-top: 1px solid transparent; + border-bottom: 1px solid transparent; + background: transparent; + color: #2142bf; +} +#nav a:hover, #nav a:active { + text-decoration: none; + border-top: 1px solid #97a7d7; + border-bottom: 1px solid #e6ecff; + background: #b9c9f9; + color: #ff0000; +} +#nav a.current, #nav a.current:hover, #nav a.current:active { + border-top: 1px solid #e6ecff; + border-bottom: 1px solid #97a7d7; + background: #c5d5ff; + color: #2142bf; +} +#nav ul ul a { + padding: 0 1em 0 2em; +} +#main { + line-height: 1.5; + text-align: left; + margin: 0; + padding: 1em 2em; + border-left: solid 13em #bfcfff; + border-right: solid 3em #e6ecff; + background: #e6ecff; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0; + padding: 0.5em; + background: #6078bf; + color: #ffffff; +} +#foot a:link, #foot a:visited { + text-decoration: underline; + background: transparent; + color: #ffffff; +} +#foot a:hover, #foot a:active { + text-decoration: underline; + background: transparent; + color: #bfcfff; +} diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html new file mode 100644 index 00000000000..c4a26106790 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco.html @@ -0,0 +1,132 @@ + + + +Coco + + + + + + + + +
+Lua +
+ + +
+

+Coco is a small extension to get True C Coroutine +semantics for Lua 5.1. +

+

+Coco is both available as a stand-alone release and integrated +into LuaJIT 1.x. +

+

+The stand-alone release is a patchset against the +» standard Lua 5.1.5 +distribution. There are no dependencies on LuaJIT. However LuaJIT 1.x +depends on Coco to allow yielding for JIT compiled functions. +

+

+Coco is Copyright © 2004-2012 Mike Pall. +Coco is free software, released under the +» MIT/X license +(same license as the Lua core). +

+

Features

+

+True C coroutine semantics mean you can yield from a coroutine +across a C call boundary and resume back to it. +

+

+Coco allows you to use a dedicated C stack for each coroutine. +Resuming a coroutine and yielding from a coroutine automatically switches +C stacks, too. +

+

+In particular you can now: +

+
    +
  • Yield across all metamethods (not advised for __gc).
    • +
  • Yield across iterator functions (for x in func do).
    • +
  • Yield across callbacks (table.foreach(), dofile(), ...).
    • +
  • Yield across protected callbacks (pcall(), xpcall(), ...).
    • +
  • Yield from C functions and resume back to them.
    • +
+

+Best of all, you don't need to change your Lua or C sources +and still get the benefits. It's fully integrated into the +Lua core, but tries to minimize the required changes. +

+ +

More ...

+

+Please visit the » Download page +to fetch the current version of the stand-alone package. +

+

+Coco needs some machine-specific features — please have a look +at the Portability Requirements. +

+

+Coco also provides some upwards-compatible +API Extensions for Lua. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html new file mode 100644 index 00000000000..dc08084bea2 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_api.html @@ -0,0 +1,182 @@ + + + +Coco API Extensions + + + + + + + + +
+Lua +
+ + +
+

+Coco changes the semantics of several standard API functions and +provides a few API extensions for Lua. +

+

+By default all your coroutines get an associated C stack. +If you want to be more selective, see below. +

+ +

Lua API extensions

+

+All coroutine.* functions should be fully upwards compatible. +

+ +

coroutine.coco

+

+This field is true when Coco is present (nil otherwise). +

+ +

coro = coroutine.create(f [, cstacksize])
+func = coroutine.wrap(f [, cstacksize])

+

+The optional argument cstacksize specifies the size of the +C stack to allocate for the coroutine: +

+
    +
  • A default stack size is used if cstacksize is not given +or is nil or zero.
    • +
  • No C stack is allocated if cstacksize is -1.
    • +
  • Any other value is rounded up to the minimum size +(i.e. use 1 to get the minimum size).
    • +
+

+Important notice for LuaJIT: JIT compiled functions cannot +yield if a coroutine does not have a dedicated C stack. +

+ +

olddefault = coroutine.cstacksize([newdefault])

+

+Returns the current default C stack size (may be 0 if the +underlying context switch method has its own default). +Sets a new default C stack size if newdefault is present. +Use 0 to reset it to the default C stack size. Any other +value is rounded up to the minimum size. +

+ +

C API extensions

+

+All C API functions are either unchanged or upwards compatible. +

+ +

int lua_yield(lua_State *L, int nresults)

+

+The semantics for lua_yield() have changed slightly. +Existing programs should work fine as long as they follow +the usage conventions from the Lua manual: +

+
+return lua_yield(L, nresults);
+
+

+Previously lua_yield() returned a 'magic' value (-1) that +indicated a yield. Your C function had to pass this value +on to the Lua core and was not called again. +

+

+Now, if the current coroutine has an associated C stack, +lua_yield() returns the number of arguments passed back from +the resume. This just happens to be the right convention for +returning them as a result from a C function. I.e. if you +used the above convention, you'll never notice the change. +

+

+But the results are on the Lua stack when lua_yield() +returns. So the C function can just continue and process them +or retry an I/O operation etc. And your whole C stack frame +(local variables etc.) is still there, too. You can yield from +anywhere in your C program, even several call levels deeper. +

+

+Of course all of this only works with Lua+Coco and not with standard Lua. +

+ +

lua_State *lua_newcthread(lua_State *L, int cstacksize)

+

+This is an (optional) new function that allows you to create +a coroutine with an associated C stack directly from the C API. +Other than that it works the same as lua_newthread(L). +

+

+You have to declare this function as extern +yourself, since it's not part of the official Lua API. +This means that a C module that uses this call cannot +be loaded with standard Lua. This may be intentional. +

+

+If you want your C module to work with both standard Lua +and Lua+Coco you can check whether Coco is available with: +

+
+  lua_getfield(L, LUA_GLOBALSINDEX, "coroutine");
+  lua_getfield(L, -1, "coco");
+  coco_available = lua_toboolean(L, -1);
+  lua_pop(L, 2);
+
+

+You can also create coroutines with a C stack by calling +the Lua function coroutine.create() from C. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html new file mode 100644 index 00000000000..889a402d1ff --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_changes.html @@ -0,0 +1,153 @@ + + + +Coco Change History + + + + + + + + +
+Lua +
+ + +
+

+This is a list of changes between the released versions of Coco. +The current stand-alone release is Coco 1.1.7. +

+

+Please check the +» Online Change History +to see whether newer versions are available. +

+ +

Coco 1.1.7 — 2012-04-16

+
    +
  • Patch is now relative to Lua 5.1.5.
    • +
  • Add setjmp method for iOS. Thanks to H. Muhlestein and Minux.
    • +
  • Fix MIPS ABI detection.
    • +
+ +

Coco 1.1.6 — 2009-09-08

+
    +
  • Fix compilation of the GCC inline assembler code on x64. +Now works when compiled as C++ code (reported by Jonathan Sauer) +or with -fPIC (reported by Jim Pryor).
    • +
  • Added GCC inline assembler for faster context switching on Sparc. +Thanks to Takayuki Usui.
    • +
+ +

Coco 1.1.5 — 2008-10-25

+
    +
  • Upgraded to patch cleanly into Lua 5.1.4.
    • +
  • Added GCC inline assembler for faster context switching on x64. +Thanks to Robert G. Jakabosky.
    • +
+ +

Coco 1.1.4 — 2008-02-05

+
    +
  • Upgraded to patch cleanly into Lua 5.1.3.
    • +
  • Fixed setjmp method for ARM with recent glibc versions. +Thanks to the LuaTeX developers.
    • +
  • Fixed setjmp method for x86 on Mac OS X (rarely used, +default is GCC inline assembler). Thanks to Jason Toffaletti.
    • +
+ +

Coco 1.1.3 — 2007-05-24

+
    +
  • Upgraded to patch cleanly into Lua 5.1.2.
    • +
  • Merged patch from Zachary P. Landau for a Linux/ARM setjmp method (uClibc and glibc).
    • +
+ +

Coco 1.1.1 — 2006-06-20

+
    +
  • Upgraded to patch cleanly into Lua 5.1.1.
    • +
  • C stacks are deallocated early: when a coroutine ends, and not when +the coroutine object is collected. This mainly benefits Windows Fibers.
    • +
  • Windows threads get the required Fiber context when resuming +a coroutine and not just on creation.
    • +
+ +

Coco 1.1.0 — 2006-02-18

+
    +
  • Upgraded to patch cleanly into Lua 5.1 (final).
    • +
  • Added GCC inline assembler for context switching on x86 and MIPS32 +[up to 3x faster].
    • +
  • New targets for setjmp method: +Mac OS X/x86, Solaris/x86 and x64 and Linux/MIPS32.
    • +
  • Workaround for WinXP problem with GetCurrentFiber().
    • +
  • The minimum C stack size has been increased to 32K+4K.
    • +
  • Removed lcocolib.c and integrated the (much smaller) changes +into lbaselib.c.
    +Note for embedders: this means you no longer need to call +luaopen_coco().
    • +
  • Optional Valgrind support requires version 3.x. +Renamed define to USE_VALGRIND.
    • +
  • C stacks are now registered with Valgrind.
    • +
+ +

Coco pre-release 51w6 — 2005-08-09

+

+This is the first pre-release of Coco. It targets Lua 5.1-work6 only +and is no longer available for download. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html new file mode 100644 index 00000000000..646486db18f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/coco_portability.html @@ -0,0 +1,239 @@ + + + +Portability Requirements for Coco + + + + + + + + + +
+Lua +
+ + +
+

+Coco needs some machine-specific features which are +inherently non-portable. Although the coverage is pretty good, +this means that Coco will probably never be a standard part +of the Lua core (which is pure ANSI C). +

+ +

Context Switching Methods

+

+Coco relies on four different machine-specific methods +for allocating a C stack and switching context. +The appropriate method is automatically selected at compile time. +

+ +

GCC Inline Assembler

+

+This method is only available when GCC 3.x/4.x is used +to compile the source. +This is the fastest method for context switching, but only available +for a few CPUs (see below). +

+ +

Modified setjmp Buffer

+

+This method changes a few fields in the setjmp buffer to +redirect the next longjmp to a new function with a new stack +frame. It needs a bit of guesswork and lots of #ifdef's to +handle the supported CPU/OS combinations, but this is quite +manageable. +

+

+This is the fallback method if inline assembler is not available. +It's pretty fast because it doesn't have to save or restore signals +(which is slow and generally undesirable for Lua coroutines). +

+ +

POSIX ucontext

+

+The POSIX calls getcontext, makecontext and switchcontext +are used to set up and switch between different C stacks. +Although highly portable and even available for some +esoteric platforms, it's slower than the setjmp method +because it saves and restores signals, too (using at least one +syscall for each context switch). +

+

+You can force the use of ucontext (instead of setjmp) by enabling +-DCOCO_USE_UCONTEXT in src/Makefile. +

+ +

Windows Fibers

+

+This is the standard method to set up and switch between +different C stacks on Windows. It's available on Windows 98 +and later. +

+

+None of the other methods work for Windows because OS specific code +is required to switch exception handling contexts. +

+ +

Supported Platforms

+

+Coco has support for the following platforms: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CPUSystemMethod
x86(any OS)gccasm
x86Linuxsetjmp
x86FreeBSDsetjmp
x86NetBSDsetjmp
x86OpenBSDsetjmp
x86Solarissetjmp
x86OSXsetjmp
x64(any OS)gccasm
x64Solarissetjmp
MIPS32(any OS)gccasm
MIPS32Linuxsetjmp
ARMLinuxsetjmp
ARMiOSsetjmp
PPC32OSXsetjmp
Sparc(any OS)gccasm
(any CPU)POSIXucontext
(any CPU)Windowsfibers
+
+
+

+It should work pretty much anywhere where a correct +POSIX ucontext implementation is available. It has been tested +on every systems I could get hold of (e.g. Sparc, PPC32/PPC64, +IA64, Alpha, HPPA with various operating systems). +

+ +

Caveats

+
    +
  • +Some older operating systems may have defective ucontext +implementations because this feature is not widely used. E.g. some +implementations don't mix well with other C library functions +like malloc() or with native threads. +This is really not the fault of Coco — please upgrade your OS. +
    • +
  • +Note for Windows: Please read the explanation for the default +» Thread Stack Size +in case you want to create large numbers of Fiber-based coroutines. +
    • +
  • +Note for MinGW/Cygwin: Older releases of GCC (before 4.0) generate +wrong unwind information when -fomit-frame-pointer is used +with stdcalls. This may lead to crashes when exceptions are thrown. +The workaround is to always use two flags:
    +-fomit-frame-pointer -maccumulate-outgoing-args. +
    • +
  • +Note for MIPS CPUs without FPU: It's recommended to compile +all sources with -msoft-float, even if you don't use +any floating point ops anywhere. Otherwise context switching must +save and restore FPU registers (which needs to go through +the slow kernel emulation). +
    • +
  • +To run Coco with » Valgrind +(a memory debugger) you must add -DUSE_VALGRIND +to MYCFLAGS and recompile. You will get random errors +if you don't! Valgrind 3.x or later is required. Earlier versions +do not work well with newly allocated C stacks. +
    • +
+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html new file mode 100644 index 00000000000..38c84f639d6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/contact.html @@ -0,0 +1,105 @@ + + + +Contact + + + + + + + + +
+Lua +
+ + +
+

+Please send general questions regarding LuaJIT or Coco to the +» Lua mailing list. +You can also send any questions you have directly to me: +

+ + + + + +

Copyright

+

+All documentation is +Copyright © 2005-2012 Mike Pall. +

+ + +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html new file mode 100644 index 00000000000..9c571642bee --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm.html @@ -0,0 +1,116 @@ + + + +DynASM + + + + + + + + +
+Lua +
+ + +
+

+DynASM is a Dynamic Assembler for code generation +engines. +

+

+DynASM has been developed primarily as a tool for +LuaJIT, but might be useful for other +projects, too. +

+

+If you are writing a just-in-time compiler or need to generate +code on the fly (e.g. for high-performance graphics or other +CPU-intensive computations), DynASM might be just what you +are looking for. +

+

+Please have a look at the list of Features +to find out whether DynASM could be useful for your project. +

+

+DynASM is Copyright © 2005-2012 Mike Pall. +DynASM is free software, released under the +» MIT/X license. +

+ +

More ...

+

+Sorry, right now there is no proper documentation available other +than some Examples and of course +the source code. The source is well documented, though (IMHO). +

+

+I may add more docs in case someone actually finds DynASM to be +useful outside of LuaJIT. If you do, I'd like to +hear from you, please. Thank you! +

+

+If you want to check it out please visit the +» Download page and fetch the most recent +version of LuaJIT. All you need is in the dynasm directory. +For some complex examples take a peek at the +*.dasc and *.dash files in LuaJIT, too. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html new file mode 100644 index 00000000000..a08654587b8 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_examples.html @@ -0,0 +1,188 @@ + + + +DynASM Examples + + + + + + + + +
+Lua +
+ + +
+

A Simple Example

+

+To get you started, here is a simple code snippet to be pre-processed. +The lines starting with '|' (the pipe symbol) are for DynASM: +

+
+  if (ptr != NULL) {
+    |  mov eax, foo+17
+    |  mov edx, [eax+esi*2+0x20]
+    |  add ebx, [ecx+bar(ptr, 9)]
+  }
+
+

+After pre-processing you get: +

+
+  if (ptr != NULL) {
+    dasm_put(Dst, 123, foo+17, bar(ptr, 9));
+  }
+
+

+Note: yes, you usually get the assembler code as comments and proper +CPP directives to match them up with the source. I've omitted +them here for clarity. Oh and BTW: the pipe symbols probably +line up much more nicely in your editor than in a browser. +

+

+Here 123 is an offset into the action list buffer that +holds the partially specified machine code. Without going +into too much detail, the embedded C library implements a +tiny bytecode engine that takes the action list as input and +outputs machine code. It basically copies machine code snippets +from the action list and merges them with the arguments +passed in by dasm_put(). +

+

+The arguments can be any kind of C expressions. In practical +use most of them evaluate to constants (e.g. structure offsets). +Your C compiler should generate very compact code out of it. +

+

+The embedded C library knows only what's absolutely needed to +generate proper machine code for the target CPU (e.g. variable +displacement sizes, variable branch offset sizes and so on). +It doesn't have a clue about other atrocities like x86 opcode +encodings — and it doesn't need to. This dramatically +reduces the minimum required code size to around 2K [sic!]. +

+

+The action list buffer itself has a pretty compact encoding, too. +E.g. the whole action list buffer for an early version of LuaJIT +needs only around 3K. +

+ +

Advanced Features

+

+Here's a real-life example taken from LuaJIT that shows some +advanced features like type maps, macros and how to access +C structures: +

+
+|.type L,      lua_State,  esi  // L.
+|.type BASE,   TValue,     ebx  // L->base.
+|.type TOP,    TValue,     edi  // L->top.
+|.type CI,     CallInfo,   ecx  // L->ci.
+|.type LCL,    LClosure,   eax  // L->ci->func->value.
+|.type UPVAL,  UpVal
+
+|.macro copyslot, D, S, R1, R2, R3
+|  mov R1, S.value;  mov R2, S.value.na[1];  mov R3, S.tt
+|  mov D.value, R1;  mov D.value.na[1], R2;  mov D.tt, R3
+|.endmacro
+
+|.macro copyslot, D, S;  copyslot D, S, ecx, edx, eax; .endmacro
+
+|.macro getLCL, reg
+||if (!J->pt->is_vararg) {
+|  mov LCL:reg, BASE[-1].value
+||} else {
+|  mov CI, L->ci
+|  mov TOP, CI->func
+|  mov LCL:reg, TOP->value
+||}
+|.endmacro
+
+|.macro getLCL;  getLCL eax; .endmacro
+
+[...]
+
+static void jit_op_getupval(jit_State *J, int dest, int uvidx)
+{
+  |  getLCL
+  |  mov UPVAL:ecx, LCL->upvals[uvidx]
+  |  mov TOP, UPVAL:ecx->v
+  |  copyslot BASE[dest], TOP[0]
+}
+
+

+And here is the pre-processed output (stripped a bit for clarity): +

+
+#define Dt1(_V) (int)&(((lua_State *)0)_V)
+[...]
+static void jit_op_getupval(jit_State *J, int dest, int uvidx)
+{
+  if (!J->pt->is_vararg) {
+    dasm_put(Dst, 1164, Dt2([-1].value));
+  } else {
+    dasm_put(Dst, 1168, Dt1(->ci), Dt4(->func), Dt3(->value));
+  }
+  dasm_put(Dst, 1178, Dt5(->upvals[uvidx]), DtF(->v), Dt3([0].value),
+           Dt3([0].value.na[1]), Dt3([0].tt), Dt2([dest].value),
+           Dt2([dest].value.na[1]), Dt2([dest].tt));
+}
+
+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html new file mode 100644 index 00000000000..a89f0bee64a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/dynasm_features.html @@ -0,0 +1,139 @@ + + + +DynASM Features + + + + + + + + +
+Lua +
+ + +
+

DynASM Toolchain Features

+
    +
  • DynASM is a pre-processing assembler.
    • +
  • DynASM converts mixed C/Assembler source to plain C code.
    • +
  • The primary knowledge about instruction names, operand modes, +registers, opcodes and how to encode them is only +needed in the pre-processor.
    • +
  • The generated C code is extremely small and fast.
    • +
  • A tiny embeddable C library helps with the process of dynamically +assembling, relocating and linking machine code.
    • +
  • There are no outside dependencies on other tools (such as +stand-alone assemblers or linkers).
    • +
  • Internal consistency checks catch runtime errors +(e.g. undefined labels).
    • +
  • The toolchain is split into a portable subset and +CPU-specific modules.
    • +
  • DynASM itself (the pre-processor) is written in Lua.
    • +
  • There is no machine-dependency for the pre-processor itself. +It should work everywhere you can get Lua 5.1 up and running +(i.e. Linux, *BSD, Solaris, Windows, ... you name it).
    • +
+ +

DynASM Assembler Features

+
    +
  • C code and assembler code can be freely mixed. +Readable, too.
    • +
  • All the usual syntax for instructions and operand modes +you come to expect from a standard assembler.
    • +
  • Access to C variables and CPP defines in assembler statements.
    • +
  • Access to C structures and unions via type mapping.
    • +
  • Convenient shortcuts for accessing C structures.
    • +
  • Local and global labels.
    • +
  • Numbered labels (e.g. for mapping bytecode instruction numbers).
    • +
  • Multiple code sections (e.g. for tailcode).
    • +
  • Defines/substitutions (inline and from command line).
    • +
  • Conditionals (translation time) with proper nesting.
    • +
  • Macros with parameters.
    • +
  • Macros can mix assembler statements and C code.
    • +
  • Captures (output diversion for code reordering).
    • +
  • Simple and extensible template system for instruction definitions.
    • +
+ +

Restrictions

+

+Currently only a subset of x86 (i386+) instructions is supported. +Unsupported instructions are either not usable in user-mode or +are slow on modern CPUs (i.e. not suited for a code generator). +SSE, SSE2, SSE3 and SSSE3 are fully supported. MMX is not supported. +

+

+The whole toolchain has been designed to support multiple CPU +architectures. As LuaJIT gets support for more architectures, +DynASM will be extended with new CPU-specific modules. +

+

+The assembler itself will be extended with more features on an +as-needed basis. E.g. I'm thinking about vararg macros. +

+

+Note that runtime conditionals are not really needed, since you can +just use plain C code for that (and LuaJIT does this a lot). +It's not going to be more (time-) efficient if conditionals are done +by the embedded C library (maybe a bit more space-efficient). +

+ + +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/backbar.png new file mode 100644 index 0000000000000000000000000000000000000000..3c9002970132d92d921ed85d570e7ae3a4dd5524 GIT binary patch literal 118 zcmeAS@N?(olHy`uVBq!ia0y~yV9Wrr8JU=YWFPyT1R%v3;1lBd|NsB}=l=tF3cZDF zK#H*>$S;_|;n|HeAV=EM#W93qW^zG712ZejWY&WzE(VelM7RY)co_80FzjAbyIByZ OjKR~@&t;ucLK6UMKptlR literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/bluebar.png new file mode 100644 index 0000000000000000000000000000000000000000..70dcf07be48c0236688b13438aa3a2b43efaf42a GIT binary patch literal 134 zcmeAS@N?(olHy`uVBq!ia0vp^j6lr8!VDw>m!3)iQi=gSA+FEf{9nB3{?YUA19SKH z%)7Gl=u5|>{gK7{6Dsz5X6$d8dVa1#&H|uf1y2{p5RRG283_dm90>^t0SN*L5eF_D h2sn^%z@Sl)kwNPP^T%6nvq3g7c)I$ztaD0e0sz4?Fvb7? literal 0 HcmV?d00001 diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png b/src/3rd party/LuaJIT-1.1.8/jitdoc/img/contact.png new file mode 100644 index 0000000000000000000000000000000000000000..9c73dc594efc1f47309d6c9b73d7719c3a9e04df GIT binary patch literal 1340 zcmV-C1;hG@P)sQ4|K#fZOHEVa==(`aQP0%nM@di3(&I%(O)@h#$&+f^&9&U}9=sU}#xfW8dZX zS6X4+hl`eQb9`=bdTMQUS6N_FRb1EH?oLrx)!OXR*y%bu zKs7fzyTH%6zRkD1%O4*iwYte19Urr}$DpLK7#SM{1qGa-tpfuC0RaJph?9SUjedfR ze1M8)YI0?0aARg}VPtGhP*&yZ{!C6(sq^PzF3k;#Avk3_bkCL7T2MCRjoQjT_h>Vwp zij{MAe{pnuZ*qHWaCvKPcUD+m*xm0?Qd!p9?bO-p)7k3L*XYmH<~BGyy}{8mHafb$ z&bYnIARr?h9v~YW9vK=O7Z@4@1O%I(tO5c8@Y5f50008dNklZz)3AlitwxnPH%H`Uot)Wm#A~UJD{dq04A@c=B#o!5#fVO zK9y#&^Z}?|*LsioK&(FDooZAR)tQj#4t{T51EP;48U9I=7br`Bk^O8MkeX!ZNe^m_BH=Vrj*jZZuSKj$t2j7FZ^2u4YKv8(~ zaMJ@oQZ>+`rSiG$iy;5QP}GpcaF4=ry2srsiZ0RqYjK@LQA)d@GB0_aay0Tvrp83dAL2x{13 zII2|!RUp(7P{l^2T*QHZ71!E*QcTqNtMh0|uLS!2k^8W?Ka#6$aBn3*=LUe(BpUo6 z=nkI1fP*0x3aYH^su6tQT}{)EfU4IyLBQ-;(w1i;#)>KNGk41l6I5_B2)f}c}CK-PL&a{M5Rut(jQ@VX1_p&z6vN)t zNcp7CYSP6-mE96jwhE}y?lvr|2kRa0g^iLTaJ1y+9qs~F+W}}-FHd&oy;TeG2n6hM z2eK~@vIu+Z%WDWZDK7wkG0}TEXW(~!Gk+0t(i)Sck-Ht%F=yzi{ZFXe-}F6T**!vM y)$^3mN5{Eb6*vAD>S)nmP3aw7v29)6WaBSReaJM4z7xj)0000m!3)iQi=gSA+Gz2_wUc$|NqVZ`#s2*n`}Zg9e}De{%cC#PPd%UfPU9U=F?)%puPggT9(i$VYZr;)K%kJkr;B3< zhio!O!mk4&2NoQda^O#6BBL?00EYpq0Ve~4?FAM^%e?Xopi%};S3j3^P6 + + +The LuaJIT Project + + + + + + + + +
+Lua +
+ + +
+

+This is the offline documentation for: +

+
    +
  • +LuaJIT — +a Just-In-Time Compiler for Lua. +
    • +
  • +Coco — +a Lua extension for True C Coroutines. +
    • +
  • +DynASM — +a Dynamic Assembler for code generation engines. +
    • +
+ + + +

More ...

+

+Please click on one of the links in the navigation bar to your left +to learn more. +

+

+Click on the Logo in the upper left corner to visit +the LuaJIT project page on the web. All other links to online +resources are marked with a '»'. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html new file mode 100644 index 00000000000..e5c27d616e8 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit.html @@ -0,0 +1,109 @@ + + + +LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is a Just-In-Time Compiler for the Lua +programming language. +

+

+Lua is a powerful, light-weight programming language designed +for extending applications. Lua is also frequently used as a +general-purpose, stand-alone language. More information about +Lua can be found at: » http://www.lua.org/ +

+

+LuaJIT 1.x is based on the Lua 5.1.x virtual machine and bytecode interpreter +from lua.org. It compiles bytecode to native x86 (i386+) machine code +to speed up the execution of Lua programs. +

+

+LuaJIT depends on Coco to allow yielding +from coroutines for JIT compiled functions. Coco is part of the +LuaJIT distribution. +

+

+LuaJIT is Copyright © 2005-2012 Mike Pall. +LuaJIT is free software, released under the +» MIT/X license +(same license as the Lua core). +

+

More ...

+

+Click on the LuaJIT sub-topics in the navigation bar to learn more +about LuaJIT. +

+

+LuaJIT 2.0 is available with much improved performance!
+Please visit the » Download page to fetch +the current version of LuaJIT. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html new file mode 100644 index 00000000000..1f9087a14fe --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_api.html @@ -0,0 +1,372 @@ + + + +LuaJIT API Extensions + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT provides several new API functions organized into two +libraries. +

+

+LuaJIT includes Coco — so have a look at the +Coco API Extensions, too. +

+ +

Standard Library Functions

+

+All standard library functions have the same behaviour as +in the Lua distribution LuaJIT is based on. +

+

+The Lua loader used by the standard require() library +function has been modified to turn off compilation of the main +chunk of a module. The main chunk is only run once when the module +is loaded for the first time. There is no point in compiling it. +

+

+You might want to adapt this behaviour if you use your own utility +functions (and not require()) to load modules. +

+

+Note that the subfunctions defined in a loaded module are +of course compiled. See below if you want to override this. +

+ +

The jit.* Library

+

+This library holds several functions to control the behaviour +of the JIT engine. +

+ +

jit.on()
+jit.off()

+

+Turns the JIT engine on (default) or off. +

+

+These functions are typically used with the command line options +-j on or -j off. +

+ +

jit.on(func|true [,true|false])
+jit.off(func|true [,true|false])

+

+Enable (with jit.on, default) or disable (with jit.off) +JIT compilation for a Lua function. The current function (the Lua function +calling this library function) can be specified with true. +

+

+If the second argument is true, JIT compilation is also +enabled/disabled recursively for all subfunctions of a function. +With false only the subfunctions are affected. +

+

+Both library functions only set a flag which is checked when +the function is executed for the first/next time. They do not +trigger immediate compilation. +

+

+Typical usage is jit.off(true, true) in the main chunk +of a module to turn off JIT compilation for the whole module. +Note that require() already turns off compilation for +the main chunk itself. +

+ +

status = jit.compile(func [,args...])

+

+Compiles a Lua function and returns the compilation status. +Successful compilation is indicated with a nil status. +Failure is indicated with a numeric status (see jit.util.status). +

+

+The optimizer pass of the compiler tries to derive hints from the +passed arguments. Not passing any arguments or passing untypical +arguments (esp. the wrong types) reduces the efficiency of the +optimizer. The compiled function will still run, but probably not +with maximum speed. +

+

+This library function is typically used for Ahead-Of-Time (AOT) +compilation of time-critical functions or for testing/debugging. +

+ +

status = jit.compilesub(func|true [,true])

+

+Recursively compile all subfunctions of a Lua function. +The current function (the Lua function calling this library function) +can be specified with true. Note that the function +itself is not compiled (use jit.compile()). +

+

+If the second argument is true, compilation will stop +when the first error is encountered. Otherwise compilation will +continue with the next subfunction. +

+

+The returned status is nil, if all subfunctions have been +compiled successfully. A numeric status (see jit.util.status) +indicates that at least one compilation failed and gives the status +of the last failure (this is only helpful when stop on error +is true). +

+ +

jit.debug([level])

+

+Set the debug level for JIT compilation. If no level is given, +the maximum debug level is set. +

+
    +
  • Level 0 disables debugging: no checks for hooks are compiled +into the code. This is the default when LuaJIT is started and +provides the maximum performance.
    • +
  • Level 1 enables function call debugging: call hooks and +return hooks are checked in the function prologue and epilogue. +This slows down function calls somewhat (by up to 10%).
    • +
  • Level 2 enables full debugging: all hooks are checked. +This slows down execution quite a bit, even when the hooks +are not active.
    • +
+

+Note that some compiler optimizations are turned off when +debugging is enabled. +

+

+This function is typically used with the command line options +-j debug or -j debug=level. +

+ +

jit.attach(handler [, priority])

+

+Attach a handler to the compiler pipeline with the given priority. +The handler is detached if no priority is given. +

+

+The inner workings of the compiler pipeline and the API for handlers +are still in flux. Please see the source code for more details. +

+ +

jit.version

+

+Contains the LuaJIT version string. +

+ +

jit.version_num

+

+Contains the version number of the LuaJIT core. Version xx.yy.zz +is represented by the decimal number xxyyzz. +

+ +

jit.arch

+

+Contains the target architecture name (CPU and optional ABI). +

+ + +

The jit.util.* Library

+

+This library holds many utility functions used by the provided +extension modules for LuaJIT (e.g. the optimizer). The API may +change in future versions. +

+ +

stats = jit.util.stats(func)

+

+Retrieves information about a function. Returns nil +for C functions. Returns a table with the following fields for +Lua functions: +

+
    +
  • status: numeric compilation status (see jit.util.status).
    • +
  • stackslots: number of stack slots.
    • +
  • params: number of fixed parameters (arguments).
    • +
  • consts: number of constants.
    • +
  • upvalues: number of upvalues.
    • +
  • subs: number of subfunctions (sub prototypes).
    • +
  • bytecodes: number of bytecode instructions.
    • +
  • isvararg: fixarg (false) or vararg (true) function.
    • +
  • env: function environment table.
    • +
  • mcodesize: size of the compiled machine code.
    • +
  • mcodeaddr: start address of the compiled machine code.
    • +
+

+mcodesize and mcodeaddr are not set if the +function has not been compiled (yet). +

+ +

op, a, b, c, test = jit.util.bytecode(func, pc)

+

+Returns the fields of the bytecode instruction at the given pc +for a Lua function. The first instruction is at pc = 1. +Nothing is returned if pc is out of range. +

+

+The opcode name is returned as an uppercase string in op. +The opcode arguments are returned as a, b and +optionally c. Arguments that indicate an index into the +array of constants are translated to negative numbers (the first +constant is referred to with -1). Branch targets are signed numbers +relative to the next instruction. +

+

+test is true if the instruction is a test (i.e. followed +by a JMP). +

+ +

const, ok = jit.util.const(func, idx)

+

+Returns a constant from the array of constants for a Lua function. +ok is true if idx is in range. Otherwise nothing +is returned. +

+

+Constants are numbered starting with 1. A negative idx +is mapped to a positive index. +

+ +

upvalue, ok = jit.util.upvalue(func, idx)

+

+Returns an upvalue from the array of upvalues for a Lua function. +ok is true if idx is in range. Otherwise nothing +is returned. Upvalues are numbered starting with 0. +

+ +

nup = jit.util.closurenup(func, idx)

+

+Returns the number of upvalues for the subfunction prototype with +the given index idx for a Lua function. Nothing is returned +if idx is out of range. Subfunctions are numbered starting +with 0. +

+ +

addr, mcode, mfmiter = jit.util.mcode(func, block])

+

+Returns the numeric start address, the compiled machine code +(converted to a string) and an iterator for the machine code fragment map +for the specified machine code block associated with a Lua function. +

+

+Returns nil and a numeric status code (see jit.util.status) +if the function has not been compiled yet or compilation has failed +or compilation is disabled. Returns nothing if the selected +machine code block does not exist. +

+

+The machine code fragment map is used for debugging and error handling. +The format may change between versions and is an internal implementation +detail of LuaJIT. +

+ +

addr [, mcode] = jit.util.jsubmcode([idx])

+

+If idx is omitted or nil: +Returns the numeric start address and the compiled machine code +(converted to a string) for internal subroutines used by the +compiled machine code. +

+

+If idx is given: +Returns the numeric start address of the machine code for a specific +internal subroutine (0 based). Nothing is returned if idx is +out of range. +

+ +

jit.util.status

+

+This is a table that bidirectionally maps status numbers and +status names (strings): +

+
+ + + + + + + + + + +
Status NameDescription
OKOk, code has been compiled.
NONENothing analyzed or compiled, yet (default).
OFFCompilation disabled for this function.
ENGINE_OFFJIT engine is turned off.
DELAYEDCompilation delayed (recursive invocation).
TOOLARGEBytecode or machine code is too large.
COMPILER_ERRORError from compiler frontend.
DASM_ERRORError from DynASM engine.
+
+ +

jit.util.hints
+jit.util.fhints

+

+These two tables map compiler hint names to internal hint numbers. +

+

+The hint system is an internal implementation detail of LuaJIT. +Please see the source code for more info. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html new file mode 100644 index 00000000000..9474f1b3add --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_changes.html @@ -0,0 +1,307 @@ + + + +LuaJIT Change History + + + + + + + + +
+Lua +
+ + +
+

+This is a list of changes between the released versions of LuaJIT. +The current version is LuaJIT 1.1.8. +

+

+Please check the +» Online Change History +to see whether newer versions are available. +

+ +

LuaJIT 1.1.8 — 2012-04-16

+ + +

LuaJIT 1.1.7 — 2011-05-05

+ + +

LuaJIT 1.1.6 — 2010-03-28

+
    +
  • Added fixes for the +» currently known bugs in Lua 5.1.4.
    • +
  • Removed wrong GC check in jit_createstate(). +Thanks to Tim Mensch.
    • +
  • Fixed bad assertions while compiling table.insert() and +table.remove().
    • +
+ +

LuaJIT 1.1.5 — 2008-10-25

+ + +

LuaJIT 1.1.4 — 2008-02-05

+
    +
  • Merged with Lua 5.1.3. Fixes all +» known bugs in Lua 5.1.2.
    • +
  • Fixed possible (but unlikely) stack corruption while compiling +k^x expressions.
    • +
  • Fixed DynASM template for cmpss instruction.
    • +
+ +

LuaJIT 1.1.3 — 2007-05-24

+
    +
  • Merged with Lua 5.1.2. Fixes all +» known bugs in Lua 5.1.1.
    • +
  • Merged pending Lua 5.1.x fixes: "return -nil" bug, spurious count hook call.
    • +
  • Remove a (sometimes) wrong assertion in luaJIT_findpc().
    • +
  • DynASM now allows labels for displacements and .aword.
    • +
  • Fix some compiler warnings for DynASM glue (internal API change).
    • +
  • Correct naming for SSSE3 (temporarily known as SSE4) in DynASM and x86 disassembler.
    • +
  • The loadable debug modules now handle redirection to stdout +(e.g. -j trace=-).
    • +
+ +

LuaJIT 1.1.2 — 2006-06-24

+
    +
  • Fix MSVC inline assembly: use only local variables with +lua_number2int().
    • +
  • Fix "attempt to call a thread value" bug on Mac OS X: +make values of consts used as lightuserdata keys unique +to avoid joining by the compiler/linker.
    • +
+ +

LuaJIT 1.1.1 — 2006-06-20

+
    +
  • Merged with Lua 5.1.1. Fixes all +» known bugs in Lua 5.1.
    • +
  • Enforce (dynamic) linker error for EXE/DLL version mismatches.
    • +
  • Minor changes to DynASM: faster preprocessing, smaller encoding +for some immediates.
    • +
+

+This release is in sync with Coco 1.1.1 (see the +Coco Change History). +

+ +

LuaJIT 1.1.0 — 2006-03-13

+
    +
  • Merged with Lua 5.1 (final).
    • + +
  • New JIT call frame setup: +
      +
    • The C stack is kept 16 byte aligned (faster). +Mandatory for Mac OS X on Intel, too.
      • +
    • Faster calling conventions for internal C helper functions.
      • +
    • Better instruction scheduling for function prologue, OP_CALL and +OP_RETURN.
      • +
    • + +
  • Miscellaneous optimizations: +
      +
    • Faster loads of FP constants. Remove narrow-to-wide store-to-load +forwarding stalls.
      • +
    • Use (scalar) SSE2 ops (if the CPU supports it) to speed up slot moves +and FP to integer conversions.
      • +
    • Optimized the two-argument form of OP_CONCAT (a..b).
      • +
    • Inlined OP_MOD (a%b). +With better accuracy than the C variant, too.
      • +
    • Inlined OP_POW (a^b). Unroll x^k or +use k^x = 2^(log2(k)*x) or call pow().
      • +
    • + +
  • Changes in the optimizer: +
      +
    • Improved hinting for table keys derived from table values +(t1[t2[x]]).
      • +
    • Lookup hinting now works with arbitrary object types and +supports index chains, too.
      • +
    • Generate type hints for arithmetic and comparison operators, +OP_LEN, OP_CONCAT and OP_FORPREP.
      • +
    • Remove several hint definitions in favour of a generic COMBINE hint.
      • +
    • Complete rewrite of jit.opt_inline module +(ex jit.opt_lib).
      • +
    • + +
  • Use adaptive deoptimization: +
      +
    • If runtime verification of a contract fails, the affected +instruction is recompiled and patched on-the-fly. +Regular programs will trigger deoptimization only occasionally.
      • +
    • This avoids generating code for uncommon fallback cases +most of the time. Generated code is up to 30% smaller compared to +LuaJIT 1.0.3.
      • +
    • Deoptimization is used for many opcodes and contracts: +
        +
      • OP_CALL, OP_TAILCALL: type mismatch for callable.
        • +
      • Inlined calls: closure mismatch, parameter number and type mismatches.
        • +
      • OP_GETTABLE, OP_SETTABLE: table or key type and range mismatches.
        • +
      • All arithmetic and comparison operators, OP_LEN, OP_CONCAT, +OP_FORPREP: operand type and range mismatches.
        • +
      • +
    • Complete redesign of the debug and traceback info +(bytecode ↔ mcode) to support deoptimization. +Much more flexible and needs only 50% of the space.
      • +
    • The modules jit.trace, jit.dumphints and +jit.dump handle deoptimization.
      • +
    • + +
  • Inlined many popular library functions +(for commonly used arguments only): +
      +
    • Most math.* functions (the 18 most used ones) +[2x-10x faster].
      • +
    • string.len, string.sub and string.char +[2x-10x faster].
      • +
    • table.insert, table.remove and table.getn +[3x-5x faster].
      • +
    • coroutine.yield and coroutine.resume +[3x-5x faster].
      • +
    • pairs, ipairs and the corresponding iterators +[8x-15x faster].
      • +
    • + +
  • Changes in the core and loadable modules and the stand-alone executable: +
      +
    • Added jit.version, jit.version_num +and jit.arch.
      • +
    • Reorganized some internal API functions (jit.util.*mcode*).
      • +
    • The -j dump output now shows JSUB names, too.
      • +
    • New x86 disassembler module written in pure Lua. No dependency +on ndisasm anymore. Flexible API, very compact (500 lines) +and complete (x87, MMX, SSE, SSE2, SSE3, SSSE3, privileged instructions).
      • +
    • luajit -v prints the LuaJIT version and copyright +on a separate line.
      • +
    • + +
  • Added SSE, SSE2, SSE3 and SSSE3 support to DynASM.
    • +
  • Miscellaneous doc changes. Added a section about +embedding LuaJIT.
    • +
+

+This release is in sync with Coco 1.1.0 (see the +Coco Change History). +

+ +

LuaJIT 1.0.3 — 2005-09-08

+
    +
  • Even more docs.
    • +
  • Unified closure checks in jit.*.
    • +
  • Fixed some range checks in jit.util.*.
    • +
  • Fixed __newindex call originating from jit_settable_str().
    • +
  • Merged with Lua 5.1 alpha (including early bugfixes).
    • +
+

+This is the first public release of LuaJIT. +

+ +

LuaJIT 1.0.2 — 2005-09-02

+
    +
  • Add support for flushing the Valgrind translation cache
    +(MYCFLAGS= -DUSE_VALGRIND).
    • +
  • Add support for freeing executable mcode memory to the mmap()-based +variant for POSIX systems.
    • +
  • Reorganized the C function signature handling in +jit.opt_lib.
    • +
  • Changed to index-based hints for inlining C functions. +Still no support in the backend for inlining.
    • +
  • Hardcode HEAP_CREATE_ENABLE_EXECUTE value if undefined.
    • +
  • Misc. changes to the jit.* modules.
    • +
  • Misc. changes to the Makefiles.
    • +
  • Lots of new docs.
    • +
  • Complete doc reorg.
    • +
+

+Not released because Lua 5.1 alpha came out today. +

+ +

LuaJIT 1.0.1 — 2005-08-31

+
    +
  • Missing GC step in OP_CONCAT.
    • +
  • Fix result handling for C –> JIT calls.
    • +
  • Detect CPU feature bits.
    • +
  • Encode conditional moves (fucomip) only when supported.
    • +
  • Add fallback instructions for FP compares.
    • +
  • Add support for LUA_COMPAT_VARARG. Still disabled by default.
    • +
  • MSVC needs a specific place for the CALLBACK attribute +(David Burgess).
    • +
  • Misc. doc updates.
    • +
+

+Interim non-public release. +Special thanks to Adam D. Moss for reporting most of the bugs. +

+ +

LuaJIT 1.0.0 — 2005-08-29

+

+This is the initial non-public release of LuaJIT. +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html new file mode 100644 index 00000000000..e4098d697d3 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_debug.html @@ -0,0 +1,273 @@ + + + +Debugging LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is a rather complex application. There will undoubtedly +be bugs lurking in there. You have been warned. :-) +

+

+If you came here looking for information on how to debug +your application (and not LuaJIT itself) then please +check out jit.debug() +and the -j debug +command line option. +

+

+But if you suspect a problem with LuaJIT itself, then try +any of the following suggestions (in order). +

+ +

Is LuaJIT the Problem?

+

+Try to run your application in several different ways: +

+
    +
  • luajit app.lua
    • +
  • luajit -O1 app.lua
    • +
  • luajit -O app.lua
    • +
  • luajit -j off app.lua
    • +
  • lua app.lua (i.e. with standard Lua)
    • +
+

+If the behaviour is the same as with standard Lua then ... +well ... that's what LuaJIT is about: doing the same things, +just faster. Even bugs fly faster. :-) +

+

+So this is most likely a bug in your application then. It may be easier +to debug this with plain Lua — the remainder of this page +is probably not helpful for you. +

+

+But if the behaviour is different, there is some likelihood +that you caught a bug in LuaJIT. Oh dear ... +

+

+Ok, so don't just give up. Please read on and help the community +by finding the bug. Thank you! +

+ +

Get the Latest Version

+

+Number one on your list of things to check is the +» Online Change History. +

+

+Please check if a newer version is available. Maybe the bug +you have encountered has been fixed already. Always download the +latest version and try it with your application before continuing. +

+ +

Reproduce the Bug

+

+First try to make the bug reproducible. Try to isolate the module +and the function the bug occurs in: +

+

+Either selectively turn off compilation for some modules with
+  jit.off(true, true)
+until the bug disappears ... +

+

+And/or turn the whole JIT engine off and selectively compile +functions with
+  jit.compile(func)
+until it reappears. +

+

+If you have isolated the point where it happens, it's most helpful +to reduce the affected Lua code to a short code snippet that +still shows the problem. You may need to print() some +variables until you can pinpoint the exact spot where it happens. +

+

+If you've got a reproducible and short test +you can either send it directly to me or the mailing list +(see the Contact Information) +or you can try to debug this a bit further. +

+

+Well — if you are brave enough. :-) +

+ +

Look at the Generated Code

+

+You may want to have a look at the output of -j dumphints +first. Try to change things around until you can see which hint +or which instruction is the cause of the bug. If you suspect +an optimizer bug then have a look at the backend (*.das[ch]) +and check how the hint is encoded. +

+

+Otherwise have a look at -j dump and see whether +you can spot the problem around the affected instruction. +It's helpful to have a good knowledge of assembler, though +(sorry). +

+ +

Locate a Crash

+

+If you get a crash, you should compile LuaJIT with debugging +turned on: +

+

+Add -g to CFLAGS and MYLDFLAGS +or whatever is needed to turn on debugging. For Windows you +need both an executable and a DLL built with debugging. +

+

+Then start LuaJIT with your debugger. Run it with +-j dump=test.dump. +

+

+Have a look at the backtrace and compare it with the generated +dump file to find out exactly where it crashes. I'm sorry, but +symbols or instructions for JIT compiled functions are not +displayed in your debugger (this is really hard to solve). +

+ +

Turn on Assertions

+

+Another way to debug LuaJIT is to turn on assertions. +They can be turned on only for the JIT engine by adding +-DLUAJIT_ASSERT to JITCFLAGS in src/Makefile. +Then recompile with make clean and make. +

+

+Add these two lines to src/luaconf.h to turn on all assertions in the Lua core:
+  #include <assert.h>
+  #define lua_assert(x) assert(x)
+This turns on the JIT engine assertions, too. +Recompile and see whether any assertions trigger. +Don't forget to turn off the (slow) assertions when you're done! +

+ +

Use Valgrind

+

+A tremendously useful (and free) tool for runtime code analysis +is » Valgrind. Regularly +run your applications with valgrind --memcheck and +your life will be better. +

+

+To run LuaJIT under Valgrind you must add +-DUSE_VALGRIND to MYCFLAGS +and recompile LuaJIT. You will get random errors if you don't! +Valgrind 3.x or later is required. Earlier versions +do not work well with newly allocated C stacks. +

+

+An executable built with this option runs fine without Valgrind +and without a performance loss. But it needs the Valgrind header +files for compilation (which is why it's not enabled by default). +

+

+It's helpful to compile LuaJIT with debugging turned on, too +(see above). +

+

+If Valgrind spots many invalid memory accesses that involve +memory allocation/free functions you've probably found a bug +related to garbage collection. Some object reference must have +gone astray. +

+

+Try to find out which object is disappearing. You can force +eager garbage collection with repeated calls to +collectgarbage() or by setting a very low threshold +with collectgarbage("setpause", 1). +

+ +

Don't Despair

+

+If all of this doesn't help to find the bug, please send +a summary of your findings to the mailing list. Describe as much +of the circumstances you think are relevant. +

+

+Please don't send your whole application to me +(without asking first) and especially not to the mailing list. +Code snippets should preferrably be less than 50 lines and +up to the point. +

+

+All bug reports are helpful, even if no immediate solution +is available. Often enough someone else finds the same bug +in a different setting and together with your bug report +this may help to track it down. +

+

+Finally I have to say a BIG THANK YOU +to everyone who has helped to make LuaJIT better by finding +and fixing bugs! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html new file mode 100644 index 00000000000..cad0939dd80 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_features.html @@ -0,0 +1,226 @@ + + + +LuaJIT Features + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT tries to keep the spirit of Lua — it's light-weight, +efficient and extensible. +

+ +

Features

+

+All functions are by default compiled Just-In-Time (JIT) to +machine code: +

+
    +
  • Functions that are unused are not compiled at all.
    • +
  • Compilation can be enabled/disabled selectively for individual +functions and subfunctions or even whole modules.
    • +
  • Interpreted and compiled functions can be freely mixed.
    • +
+

+Ahead-Of-Time (AOT) compilation (at runtime) is supported, too: +

+
    +
  • A number of API functions and command line options allows +full user control over the compilation process.
    • +
+

+The JIT compiler is extensible: +

+
    +
  • The optimizer is an extra module that attaches to the compiler +pipeline.
    • +
  • Various modules provide trace and debug information about +the compilation process.
    • +
  • All of these features can be activated with command line options.
    • +
+ +

Performance

+

+The compiled machine code is very efficient: +

+
    +
  • Have a look at some +Performance Measurements.
    • +
  • Aggressive optimizations (specialization, inlining) are enabled +wherever possible. Inlined contracts catch wrong optimizer predictions +at runtime (undetected polymorphism).
    • +
  • Adaptive deoptimization is used to recompile individual bytecode +instructions with broken contracts. This avoids generating code for the +generic fallback cases most of the time (faster compilation, reduced +I-cache contention).
    • +
  • Special CPU features (such as conditional moves or SSE2) +are automatically used when detected.
    • +
+

+The JIT compiler is very fast: +

+
    +
  • Compilation times vary a great deal (depending on the nature of +the function to be compiled) but are generally in the +microsecond range.
    • +
  • Even compiling large functions (hundreds of lines) with the +maximum optimization level takes only a few milliseconds in the +worst case.
    • +
+

+LuaJIT is very small: +

+
    +
  • The whole JIT compiler engine adds only around 32K +of code to the Lua core (if compiled with -Os).
    • +
  • The optimizer is split into several optional modules that +can be loaded at runtime if requested.
    • +
  • LuaJIT adds around 6.000 lines of C and assembler code and +2.000 lines of Lua code to the Lua 5.1 core (17.000 lines of C).
    • +
  • Required build tools (DynASM) +take another 2.500 lines of Lua code.
    • +
+ +

Compatibility

+

+LuaJIT is designed to be fully compatible with Lua 5.1. +It accepts the same source code and/or precompiled bytecode. +It supports all standard language semantics. In particular: +

+
    +
  • All standard types, operators and metamethods are supported.
    • +
  • Implicit type coercions (number/string) work as expected.
    • +
  • Full IEEE-754 semantics for floating point arithmetics +(NaN, +-Inf, +-0, ...).
    • +
  • Full support for lexical closures. +Proper tail calls do not consume a call frame.
    • +
  • Exceptions are precise. Backtraces work fine.
    • +
  • Coroutines are supported with the help of Coco.
    • +
  • No changes to the Lua 5.1 incremental garbage collector.
    • +
  • No changes to the standard Lua/C API.
    • +
  • Dynamically loaded C modules are link compatible with Lua 5.1 +(same ABI).
    • +
  • LuaJIT can be embedded +into an application just like Lua.
    • +
+

+Some minor differences are related to debugging: +

+
    +
  • Debug hooks are only called if debug code generation is enabled.
    • +
  • There is no support for tailcall counting in JIT compiled code. +HOOKTAILRET is not called, too. Note: this won't affect you unless +you are writing a Lua debugger. *
    • +
+

+* There is not much I can do to improve this situation without undue +complications. A suggestion to modify the behaviour of standard Lua +has been made on the mailing list (it would be beneficial there, too). +

+ +

Restrictions

+
    +
  • Only x86 (i386+) CPUs are supported right now (but see below).
    • +
  • Only the default type for lua_Number is supported +(double).
    • +
  • The interrupt signal (Ctrl-C) is ignored unless you enable +debug hooks (with -j debug). But this will seriously +slow down your application. I'm looking for better ways to handle +this. In the meantime you have to press Ctrl-C twice to interrupt +a currently running JIT compiled function (just like C functions).
    • +
  • GDB, Valgrind and other debugging tools can't report symbols +or stack frames for JIT compiled code. This is rather difficult to solve. +Have a look at Debugging LuaJIT, too.
    • +
+ +

Caveats

+
    +
  • LuaJIT allocates executable memory for the generated machine code +if your OS has support for it: either HeapCreate() for Windows or +mmap() on POSIX systems.
    +The fallback is the standard Lua allocator (i.e. malloc()). +But this usually means the allocated memory is not marked executable. +Running compiled code will trap on CPUs/OS with the NX (No eXecute) +extension if you can only use the fallback.
    • +
  • DynASM is needed to regenerate the +ljit_x86.h file. But only in case you want to modify +the *.dasc/*.dash files. A pre-processed *.h +file is supplied with LuaJIT.
    +DynASM is written in Lua and needs a plain copy of Lua 5.1 +(installed as lua). Or you can run it with LuaJIT built from +the *.h file supplied with the distribution (modify +DASM= in src/Makefile). It's a good idea to install +a known good copy of LuaJIT under a different name for this.
    • +
  • LuaJIT ships with LUA_COMPAT_VARARG turned off. +I.e. the implicit arg parameter is not created anymore. +Please have a look at the comments in luaconf.h for +this configuration option. You can turn it on, if you really need it. +Or better yet, convert your code to the new Lua 5.1 vararg syntax.
    • +
+ +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html new file mode 100644 index 00000000000..2ace19837e7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_install.html @@ -0,0 +1,340 @@ + + + +Installing LuaJIT + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is not much more difficult to install than Lua itself. +Just unpack the distribution file, change into the newly created +directory and follow the instructions below. +

+

+For the impatient: make linux && sudo make install
+Replace linux with e.g. bsd or macosx depending on your OS. +

+

+In case you've missed this in Features: +LuaJIT only works on x86 (i386+) systems right now. Support for +other architectures may be added in future versions. +

+ +

Configuring LuaJIT

+

+LuaJIT is (deliberately) not autoconfigured — the +defaults should work fine on most systems. But please check the +system-specific instructions below. +

+

+The following three files hold all configuration information: +

+
    +
  • Makefile holds settings for installing LuaJIT.
    • +
  • src/Makefile holds settings for compiling LuaJIT.
    • +
  • src/luaconf.h sets a multitude of configuration +variables.
    • +
+

+If this is your first build then it's better not to give into +the temptation to tweak every little setting. The standard +configuration provides sensible defaults (IMHO). +

+

+One particular setting you might want to change is the installation +path. Note that you need to modify both the top-level Makefile +and src/luaconf.h (right at the start) to take +effect. +

+

+If you have trouble getting Coco to work, you can disable it by +uncommenting the COCOFLAGS= -DCOCO_DISABLE line in +src/Makefile. But note that this effectively disables +yielding from coroutines for JIT compiled functions. +

+

+A few more settings need to be changed if you want to +Debug LuaJIT itself. +Application debugging can be turned on/off at runtime. +

+ +

Upgrading From Previous Versions

+

+It's important to keep the LuaJIT core and the add-on modules in sync. +Be sure to delete any old versions of LuaJIT modules from the +Lua module search path (check the current directory, too!). +

+

+Lua files compiled to bytecode may be incompatible if the underlying +Lua core has changed (like from Lua 5.1 alpha to Lua 5.1 +final between LuaJIT 1.0.3 and LuaJIT 1.1.0). The same +applies to any +» loadable C modules +(shared libraries, DLLs) which need to be recompiled with the new +Lua header files. +

+

+Compiled bytecode and loadable C modules are fully compatible and +can be freely exchanged between LuaJIT and the same +version of Lua it is based on. Please verify that LUA_RELEASE +in src/lua.h is the same in both distributions. +

+ +

Building LuaJIT

+ +

Makefile Targets

+

+The Makefiles have a number of targets for various operating systems: +

+ +
+ + + + + + + + + + +
SystemBuild CommandNotes
Linux i386make linux
BSD i386make bsdFreeBSD, NetBSD or OpenBSD
OSXmake macosxCheck src/Makefile for OSX < 10.4
Solaris x86make solarisGCC only, SunCC miscompiles LuaJIT
MinGW (Win32)make mingwcross-MinGW: must be 1st in PATH
Cygwinmake cygwin
POSIX on x86make posixCheck Portability Req. for Coco, too
Generic x86make genericCheck Portability Req. for Coco, too
+
+ +

+You may want to enable interactive line editing for the stand-alone +executable. There are extra targets for Linux, BSD and OSX: +make linux_rl, make bsd_rl +and make macosx_rl. +

+ +

MSVC (Win32)

+

+First check out etc\luavs.bat if it suits your needs. Then try +running it from the MSVC command prompt (start it from the toplevel directory). +

+

+Another option is to set up your own MSVC project: +

+

+Change to the src directory +and create a new DLL project for lua51.dll. +Add all C files to it except for lua.c, luac.c +and print.c. Add the ..\dynasm directory +to the include path and build the DLL. +

+

+Next create a new EXE project for luajit.exe. +Add lua.c to it and link with the import library +lua51.lib created for lua51.dll. Build +the executable. +

+ +

Installation

+ +

POSIX systems

+

+Run make install from the top-level directory. +You probably need to be the root user before doing so, i.e. use +sudo make install or su - root +before the make install. +

+

+By default this installs only:
+  /usr/local/bin/luajit — The stand-alone executable.
+  /usr/local/lib/lua/5.1 — C module directory.
+  /usr/local/share/lua/5.1 — Lua module directory.
+  /usr/local/share/lua/5.1/jit/*.lua — +jit.* modules.
+

+

+The Lua docs and includes are not installed to avoid overwriting +an existing Lua installation. In any case these are identical +to the version of Lua that LuaJIT is based on. If you want +to install them, edit the top-level makefile (look for ###). +

+

+The stand-alone Lua bytecode compiler luac is neither +built nor installed, for the same reason. If you really need it, +you may be better off with luac built from the original Lua +distribution (use the same version your copy of LuaJIT +is based on). This avoids dragging in most of LuaJIT which is not +needed for the pure bytecode compiler. You can also use the bare-bones +Lua to bytecode translator luac.lua (look in the test +directory of the original Lua distribution). +

+ +

Windows

+

+Copy luajit.exe and lua51.dll +to a newly created directory (any location is ok). Add lua +and lua\jit directories below it and copy all Lua files +from the jit directory of the distribution to the latter directory. +

+

+There are no hardcoded +absolute path names — all modules are loaded relative to the +directory where luajit.exe is installed +(see src/luaconf.h). +

+ +

Embedding LuaJIT

+

+It's strongly recommended that you build the stand-alone executable +with your toolchain and verify that it works before starting +to embed LuaJIT into an application. The stand-alone executable is +also useful later on, when you want to experiment with code snippets +or try out some Lua files. +

+

+Please consult the Lua docs for general information about how to +embed Lua into your application. The following list only shows +the additional steps needed for embedding LuaJIT: +

+
    +
  • You need to add the LuaJIT library functions by running +luaopen_jit() after all the other standard library functions. +The modified src/linit.c used by the stand-alone executable +already does this for you.
    • +
  • Caveat: LuaJIT is based on Lua 5.1 which +means the luaopen_*() functions must not +be called directly. See src/linit.c for the proper way to +run them. You'll get an error initializing the io library +if you don't follow these instructions.
    • +
  • To use the optimizer (strongly recommended) you need to: +
      +
    • Install the optimizer modules jit.opt and +jit.opt_inline relative to the Lua module path +(you've probably modified it — see src/luaconf.h):
      +jit/opt.lua
      +jit/opt_inline.lua
      • +
    • If you want to ship a single executable then you may want to +embed the optimizer modules into your application (but don't loose +time with this during the early development phase). This involves: +
        +
      • Compile the two modules to bytecode +(using luac -s from a plain Lua installation).
        • +
      • Convert them to C include files (search for "Lua bin2c").
        • +
      • On Windows you can also put the compiled bytecode into a resource +(search for "Lua bin2res").
        • +
      • Load the bytecode with luaL_loadbuffer (but don't run it).
        • +
      • Put the resulting functions into package.preload["jit.opt"] +and package.preload["jit.opt_inline"].
        • +
      • +
    • Activate the LuaJIT optimizer from Lua code to be run at startup: +  require("jit.opt").start()
      +Or use equivalent C code. See dojitopt() in src/lua.c.
      • +
    • +
  • All other LuaJIT specific modules (jit.*) are for debugging only. +They do not need to be shipped with an application. But they may be quite +useful, anyway (especially jit.trace).
    • +
  • DynASM is only needed while building LuaJIT. It's not +needed while running LuaJIT and there is no point in shipping or +installing it together with an application.
    • +
  • In case you want to strip some of the standard libraries from +your application: The optimizer modules need several functions from +the base library and the string library (and of course the LuaJIT +core libraries). The io library is only used to print a fatal error +message (you may want to replace it). The optional modules +for debugging depend on a few more library functions — +please check the source.
    • +
+

+Although the very liberal LuaJIT +» license +does not require any acknowledgment whatsoever, it would be appreciated +if you give some credit in the docs (or the "About" box) of your application. +A simple line like:
+  This product includes LuaJIT, http://luajit.org/
+would be nice. Please do not include any E-Mail addresses. Thank you! +

+

+I'm always interested where LuaJIT can be put to good use in applications. +Please tell me +or better yet write a few lines about your project to the +» Lua mailing list. +Thank you! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html new file mode 100644 index 00000000000..7b73a922bac --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_intro.html @@ -0,0 +1,389 @@ + + + +Introducing LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+This is a little essay that tries to answer the question: +'So, how does LuaJIT really work?'. +

+

+I tried to avoid going into all the gory details, but at the +same time provide a deep enough explanation, to let you find +your way around LuaJIT's inner workings. +

+

+The learning curve is maybe a little bit steep for newbies and +compiler gurus will certainly fall asleep after two paragraphs. +It's difficult to strike a balance here. +

+ +

Acronym Soup

+

+As the name says LuaJIT is a Just-In-Time (JIT) compiler. +This means that functions are compiled on demand, i.e. when they +are run first. This ensures both a quick application startup +and helps to avoid useless work, too. E.g. unused functions +are not compiled at all. +

+

+The other alternative is known as Ahead-Of-Time (AOT) +compilation. Here everything is compiled before running any function. +This is the classic way for many languages, such as C or C++. +

+

+In fact plain Lua allows you to pre-compile Lua source code into +Lua bytecode and store it in a binary file that can be run +later on. This is used only in specific settings (e.g. memory limited +embedded systems), because the Lua bytecode compiler is really fast. +The ability to run source files right away is part of what makes +a dynamic language (aka scripting language) so powerful. +

+

+JIT compilation has a few other advantages for dynamic languages +that AOT compilation can only provide with a massive amount +of code analysis. More can be found in the literature. +One particular advantage is explained later. +

+ +

Quick, JIT — Run!

+

+JIT compilation happens mostly invisible. You'll probably never +notice that a compilation is going on. Part of the secret is +that everything happens in little pieces intermixed with running +the application itself inbetween. The other part of the secret +is that JIT compilation can be made pretty fast. +

+

+Most applications quickly converge to a stable state where +everything that really needs to be compiled is compiled +right away. Only occasional isolated compiles happen later on. +

+

+Even though the name doesn't suggest it, LuaJIT can operate +in AOT mode, too. But this is completely under user control +(see jit.compile()) +and doesn't happen automatically. +

+

+Unless you have good reason to suspect that AOT compilation +might help for a specific application, I wouldn't bother though. +Compilation speed is usually a non-argument, because LuaJIT +is extremely fast. Compilation times are typically in the +microsecond range for individual Lua functions. +

+ +

Starting Up

+

+The next few paragraphs may not be exactly breaking news to you, +if you are familiar with JIT compilers. Still, please read on, +because some terms are introduced that are used later on. +

+

+When you start LuaJIT everything proceeds like in standard Lua: +the Lua core is initialized, the standard libraries are loaded and +the command line is analyzed. Then usually the first Lua source +code file is loaded and is translated to Lua bytecode. And finally +the function for the initial main chunk is run ... +

+ +

Kicking the Compiler

+

+This is where LuaJIT kicks in: +

+

+All Lua functions carry an additional status code for LuaJIT. +Initially this is set to 'NONE', i.e. the function has not been +looked at (yet). If a function is run with this setting, +the LuaJIT compiler pipeline is started up. +

+

+If you haven't loaded any special LuaJIT modules and optimization +is not turned on, the compiler pipeline only consists of the +compiler backend. +

+

+The compiler backend is the low-level encoding engine that translates +bytecode instructions to machine code instructions. Without any +further hints from other modules, the backend more or less does a +1:1 translation. I.e. a single variant of a bytecode instruction +corresponds to a single piece of machine code. +

+

+If all goes well, these little code pieces are put together, +a function prologue is slapped on and voila: your Lua function +has been translated to machine code. Of course things are not +that simple when you look closer, but hey — this is +the theory. +

+

+Anyway, the status code for the function is set to 'OK' and the +machine code is run. If this function runs another Lua function +which has not been compiled, that one is compiled, too. And so on. +

+ +

Call Gates

+

+Ok, so what happens when a function is called repeatedly? After all +this is the most common case. +

+

+Simple: The status code is checked again. This time it's set to 'OK', +so the machine code can be run directly. Well — that's not the +whole truth: for calls that originate in a JIT compiled function +a better mechanism, tentatively named call gates is used. +

+

+Every function has a call gate field (a function pointer). By default +it's set to a function that does the above checks and runs the +compiler. But as soon as a function is compiled, the call gate +is modified to point to the just compiled machine code. +

+

+Calling a function is then as easy as calling the code that the +call gate points to. But due to special (faster) calling conventions +this function pointer cannot be used directly from C. So calls from +a non-compiled function or from a C function use an extra entry +call gate which in turn calls the real call gate. But this is +really a non-issue since most calls in typical applications +are intra-JIT calls. +

+ +

The Compiler Pipeline

+

+The compiler pipeline has already been mentioned. This sounds +more complicated than it is. Basically this is a coroutine that +runs a frontend function which in turn calls all functions +from the pipeline table. +

+

+The pipeline table is sorted by priorities. The standard +backend has priority 0. Positive priorities are run before the +backend and negative priorities are run after the backend. Modules +can dynamically attach or detach themselves to the pipeline with +the library function jit.attach(). +

+

+So a typical optimizer pass better have a positive priority, +because it needs to be run before the backend is run. E.g. the +LuaJIT optimizer module registers itself with priority 50. +

+

+On the other hand a typical helper module for debugging — +a machine code disassembler — needs to be run after the +backend and is attached with a negative priority. +

+

+One special case occurs when compilation fails. This can be due to +an internal error (ouch) or on purpose. E.g. the optimizer module +checks some characteristics of the function to be compiled and +may decide that it's just not worth it. In this case a status +other than OK is passed back to the pipeline frontend. +

+

+The easiest thing would be to abort pipeline processing and just +give up. But this would remove the ability to trace the progress +of the compiler (which better include failed compilations, too). +So there is a special rule that odd priorities are still run, +but even priorities are not. That's why e.g. -j trace +registers itself with priority -99. +

+ +

The Optimizer

+

+Maybe it hasn't become clear from the above description, +but a module can attach any Lua or C function to the compiler +pipeline. In fact all of the loadable modules are Lua modules. +Only the backend itself is written in C. +

+

+So, yes — the LuaJIT optimizer is written in pure Lua! +

+

+And no, don't worry, it's quite fast. One reason for this is +that a very simple abstract interpretation algorithm +is used. It mostly ignores control flow and/or basic block +boundaries. +

+

+Thus the results of the analysis are really only hints. +The backend must check the preconditions (the contracts) +for these hints (e.g. the object type). Still, the generated +hints are pretty accurate and quite useful to speed up the +compiled code (see below). +

+

+Explaining how abstract interpretation works is not within the +scope for this short essay. You may want to have a look at the +optimizer source code and/or read some articles or books on +this topic. The canonical reference is +» Principles of Program Analysis. +Ok, so this one is a bit more on the theoretical side (a gross +understatement). Try a search engine with the keywords "abstract +interpretation", too. +

+

+Suffice to say the optimizer generates hints and passes these +on to the backend. The backend then decides to encode different +forms for the same bytecode instruction, to combine several +instructions or to inline code for C functions. If the hints +from the optimizer are good, the resulting code will perform +better because shorter code paths are used for the typical cases. +

+ +

The JIT Advantage

+

+One important feature of the optimizer is that it takes 'live' +function arguments into account. Since the JIT compiler is +called just before the function is run, the arguments for this +first invocation are already present. This can be used to great +advantage in a dynamically typed language, such as Lua. +

+

+Here's a trivial example: +

+
+function foo(t, k)
+  return t[k]
+end
+
+

+Without knowing the most likely arguments for the function +there's not much to optimize. +

+

+Ok, so 't' is most likely a table. But it could be userdata, too. +In fact it could be any type since the introduction of generic +metatables for types. +

+

+And more importantly 'k' can be a number, a string +or any other type. Oh and let's not forget about metamethods ... +

+

+If you know a bit about Lua internals, it should be clear by now +that the code for this function could potentially branch to half +of the Lua core. And it's of course impossible to inline all +these cases. +

+

+On the other hand if it's known (or there's a good hint) +that 't' is a table and that 'k' is a positive integer, then there +is a high likeliness that the key 'k' is in the array part +of the table. This lookup can be done with just a few machine code +instructions. +

+

+Of course the preconditions for this fast path have to be checked +(unless there are definitive hints). But if the hints are right, +the code runs a lot faster (about a factor of 3 in this case +for the pure table lookup). +

+ +

Optimizing the Optimizer

+

+A question that surely popped up in your mind while reading +the above section: does the optimizer optimize itself? I.e. +is the optimizer module compiled? +

+

+The current answer is no. Mainly because the compiler pipeline +is single-threaded only. It's locked during compilation and +any parallel attempt to JIT compile a function results in +a 'DELAYED' status code. In fact all modules that attach to +the compiler pipeline disable compilation for the entire +module (because LuaJIT would do that anyway). The main chunk +of modules loaded with require() is never compiled, +so there is no chicken-and-egg problem here. +

+

+Of course you could do an AOT compilation in the main chunk of +the optimizer module. But then only with the plain backend. +Recompiling it later on with the optimizer attached doesn't work, +because a function cannot be compiled twice (I plan to lift +this restriction). +

+

+The other question is whether it pays off to compile the optimizer +at all? Honestly, I haven't tried, because the current optimizer +is really simple. It runs very quickly, even under the bytecode +interpreter. +

+ +

That's All Folks

+

+Ok, that's all for now. I'll extend this text later on with +new topics that come up in questions. Keep on asking these +on the mailing list if you are interested. +

+

+Thank you for your attention! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html new file mode 100644 index 00000000000..d1b92df766b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_performance.html @@ -0,0 +1,394 @@ + + + +LuaJIT Performance + + + + + + + + + +
+Lua +
+ + +
+

+Here are some performance measurements, based on a few benchmarks. +

+

+LuaJIT 2.0 is available with much improved performance!
+Please check the new +» interactive performance comparison. +

+ +

Interpreting the Results

+

+As is always the case with benchmarks, care must be taken to +interpret the results: +

+

+First, the standard Lua interpreter is already very fast. +It's commonly the fastest of it's class (interpreters) in the +» Great Computer Language Shootout. +Only true machine code compilers get a better overall score. +

+

+Any performance improvements due to LuaJIT can only be incremental. +You can't expect a speedup of 50x if the fastest compiled language +is only 5x faster than interpreted Lua in a particular benchmark. +LuaJIT can't do miracles. +

+

+Also please note that most of the benchmarks below are not +trivial micro-benchmarks, which are often cited with marvelous numbers. +Micro-benchmarks do not realistically model the performance gains you +can expect in your own programs. +

+

+It's easy to make up a few one-liners like:
+  local function f(...) end; for i=1,1e7 do f() end
+This is more than 30x faster with LuaJIT. But you won't find +this in a real-world program. +

+ +

Measurement Methods

+

+All measurements have been taken on a Pentium III 1.139 GHz +running Linux 2.6. Both Lua and LuaJIT have been compiled with +GCC 3.3.6 with -O3 -fomit-frame-pointer. +You'll definitely get different results on different machines or +with different C compiler options. * +

+

+The base for the comparison are the user CPU times as reported by +/usr/bin/time. The runtime of each benchmark is parametrized +and has been adjusted to minimize the variation between several runs. +The ratio between the times for LuaJIT and Lua gives the speedup. +Only this number is shown because it's less dependent on a specific system. +

+

+E.g. a speedup of 6.74 means the same benchmark runs almost 7 times +faster with luajit -O than with standard Lua (or with +-j off). Your mileage may vary. +

+

+* Yes, LuaJIT relies on quite a bit of the Lua core infrastructure +like table and string handling. All of this is written in C and +should be compiled with full optimization turned on, or performance +will suffer. +

+ +

Comparing Lua to LuaJIT

+

+Here is a comparison using the current benchmark collection of the +» Great Computer Language Shootout (as of 3/2006): +

+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
BenchmarkSpeedup +-----1x----2x----3x----4x----5x----6x----7x----8x +
mandelbrot6.74========================================
recursive6.64========================================
fannkuch5.37================================
chameneos5.08==============================
nsievebits5.05==============================
pidigits4.94==============================
nbody4.63============================
spectralnorm4.59============================
cheapconcr4.46===========================
partialsums3.73======================
fasta2.68================
cheapconcw2.52===============
nsieve1.95============
revcomp1.92============
knucleotide1.59==========
binarytrees1.52=========
sumfile1.27========
regexdna1.01======
+
+

+Note that many of these benchmarks have changed over time (both spec +and code). Benchmark results shown in previous versions of LuaJIT +are not directly comparable. The next section compares different +versions with the current set of benchmarks. +

+ +

Comparing LuaJIT Versions

+

+This shows the improvements between the following versions: +

+
    +
  • LuaJIT 1.0.x (===)
    • +
  • LuaJIT 1.1.x (===##)
    • +
+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
BenchmarkSpeedup +-----1x----2x----3x----4x----5x----6x----7x----8x +
fannkuch3.96 → 5.37========================########
chameneos2.25 → 5.08==============################
nsievebits2.90 → 5.05=================#############
pidigits3.58 → 4.94=====================#########
nbody4.16 → 4.63=========================###
cheapconcr1.46 → 4.46=========##################
partialsums1.71 → 3.73==========############
fasta2.37 → 2.68==============##
cheapconcw1.27 → 2.52========#######
revcomp1.45 → 1.92=========###
knucleotide1.32 → 1.59========##
+
+

+All other benchmarks show only minor performance differences. +

+ +

Summary

+

+These results should give you an idea about what speedup +you can expect depending on the nature of your Lua code: +

+
    +
  • +LuaJIT is really good at (floating-point) math and loops +(mandelbrot, pidigits, spectralnorm, partialsums). +
    • +
  • +Function calls (recursive), vararg calls, table lookups (nbody), +table iteration and coroutine switching (chameneos, cheapconc) +are a lot faster than with plain Lua. +
    • +
  • +It's still pretty good for indexed table access (fannkuch, nsieve) +and string processing (fasta, revcomp, knucleotide). +But there is room for improvement in a future version. +
    • +
  • +If your application spends most of the time in C code +you won't see much of a difference (regexdna, sumfile). +Ok, so write more code in pure Lua. :-) +
    • +
  • +The real speedup may be shadowed by other dominant factors in a benchmark: +
      +
    • Common parts of the Lua core: e.g. memory allocation +and GC (binarytrees).
      • +
    • Language characteristics: e.g. lack of bit operations (nsievebits).
      • +
    • System characteristics: e.g. CPU cache size and memory speed (nsieve).
      • +
    +
    • +
+

+The best idea is of course to benchmark your own applications. +Please report any interesting results you may find. Thank you! +

+
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html new file mode 100644 index 00000000000..ad4b5f1bed6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/jitdoc/luajit_run.html @@ -0,0 +1,159 @@ + + + +Running LuaJIT + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT has only a single stand-alone executable, called luajit. +It can be used to run simple Lua statements or whole Lua applications +from the command line. It has an interactive mode, too. +

+

+Note: The optimizer is not activated by default because it resides +in an external module +(see Installing LuaJIT). +It's recommended to always use the optimizer, i.e.: luajit -O +

+ +

Command Line Options

+

+The luajit stand-alone executable is just a slightly modified +version of the regular lua stand-alone executable. +It supports the same basic options, too. Please have a look at the +Manual Page +for the regular lua stand-alone executable. +

+

+Two additional options control LuaJIT behaviour: +

+ +

-j cmd[=value]

+

+This option performs a LuaJIT control command. LuaJIT has a small +but extensible set of control commands. It's easy to add your own. +

+

+The command is first searched for in the jit.* library. +If no matching function is found, a module named jit.<cmd> +is loaded. The module table must provide a start() function. +

+

+For the -j cmd form the function is called without an argument. +Otherwise the value is passed as the first argument (a string). +

+

+Here are the built-in LuaJIT control commands: +

+
    +
  • -j on — Turns the JIT engine on (default).
    • +
  • -j off — Turns the JIT engine off.
    • +
  • -j debug[=level] — Set debug level. See +jit.debug().
    • +
+

+The following control commands are loaded from add-on modules: +

+
    +
  • -j trace[=file] — Trace the progress of the JIT compiler.
    • +
  • -j dumphints[=file] — Dump bytecode + hints before compilation.
    • +
  • -j dump[=file] — Dump machine code after compilation.
    • +
+ + +

-O[level]

+

+This option loads and runs the optimizer module jit.opt. +The optimizer generates hints for the compiler backend to improve +the performance of the compiled code. The optimizer slows down +compilation slightly, but the end result should make up for it +in almost every case. +

+

+The -O form sets the default optimizer level, which is +currently 2 (this may change in future versions +of LuaJIT). +

+

+The -Olevel form explicitly sets the optimizer level: +

+
    +
  • -O0 — disable the optimizer but leave it attached.
    • +
  • -O1 — perform standard optimizations (like hints for table lookups).
    • +
  • -O2 — like -O1 but also loads jit.opt_inline to enable result hints and inlining for standard library functions.
    • +
+ +
+
+ + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/Makefile b/src/3rd party/LuaJIT-1.1.8/src/Makefile new file mode 100644 index 00000000000..8ea86a9cdd5 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/Makefile @@ -0,0 +1,252 @@ +# makefile for building Lua +# see ../INSTALL for installation instructions +# see ../Makefile and luaconf.h for further customization + +# == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= + +# Your platform. See PLATS for possible values. +PLAT= none + +CC= gcc -m32 +CFLAGS= -O2 -fomit-frame-pointer -Wall $(MYCFLAGS) $(COCOCFLAGS) $(JITCFLAGS) +AR= ar rcu +RANLIB= ranlib +RM= rm -f +LIBS= -lm $(MYLIBS) + +MYCFLAGS= +MYLDFLAGS= +MYLIBS= + +# ++ Coco ========= +# Default: autodetect gccasm/setjmp/ucontext/fibers context switch method. +COCOCFLAGS= +# Force use of setjmp (instead of gccasm). +#COCOCFLAGS= -DCOCO_USE_SETJMP +# Force use of ucontext (instead of gccasm or setjmp). +#COCOCFLAGS= -DCOCO_USE_UCONTEXT +# Uncomment this if you want to compile LuaJIT without Coco. +# This effectively disables yielding from JIT compiled functions. +#COCOCFLAGS= -DCOCO_DISABLE +# -- Coco ========= + +# == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE ========= + +PLATS= linux bsd macosx solaris mingw cygwin posix generic linux_rl bsd_rl macosx_rl + +# ++ Coco ========= +COCO_O= lcoco.o +# -- Coco ========= + +# ++ LuaJIT ========= +DASMDIR= ../dynasm +DASMFLAGS= +DASMDISTFLAGS= -LN + +# This assumes you already have a copy of (plain) Lua 5.1 installed +# You can use luajit, too (built with the pre-processed headers from the dist) +DASM= lua $(DASMDIR)/dynasm.lua + +JITCFLAGS= -I$(DASMDIR) +JIT_O= ljit_core.o ljit_mem.o ljit_dasm.o ljit_backend.o +JITLIB_O= ljitlib.o + +ALL_DH = ljit_x86.h +# -- LuaJIT ========= + +LUA_A= liblua.a +CORE_O= lapi.o lcode.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o lmem.o \ + lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o \ + lundump.o lvm.o lzio.o $(COCO_O) $(JIT_O) +LIB_O= lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \ + lstrlib.o loadlib.o $(JITLIB_O) linit.o + +# Standalone has been renamed to avoid conflicts during installation +LUA_T= luajit +LUA_O= lua.o + +LUAC_T= luac +LUAC_O= luac.o print.o + +ALL_O= $(CORE_O) $(LIB_O) $(LUA_O) $(LUAC_O) +# Do not build luac by default +#ALL_T= $(LUA_A) $(LUA_T) $(LUAC_T) +ALL_T= $(LUA_A) $(LUA_T) +ALL_A= $(LUA_A) + +default: $(PLAT) + +all: $(ALL_T) + +o: $(ALL_O) + +a: $(ALL_A) + +$(LUA_A): $(CORE_O) $(LIB_O) + $(AR) $@ $(CORE_O) $(LIB_O) + $(RANLIB) $@ + +$(LUA_T): $(LUA_O) $(LUA_A) + $(CC) -o $@ $(MYLDFLAGS) $(LUA_O) $(LUA_A) $(LIBS) + +$(LUAC_T): $(LUAC_O) $(LUA_A) + $(CC) -o $@ $(MYLDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS) + +# ++ LuaJIT ========= +ljit_x86.h: ljit_x86.dasc ljit_x86_inline.dash ljit_x86.dash + $(DASM) $(DASMFLAGS) -o $@ ljit_x86.dasc + +distclean: clean + $(DASM) $(DASMDISTFLAGS) -o ljit_x86.h ljit_x86.dasc + +cleaner: clean + $(RM) $(ALL_DH) +# -- LuaJIT ========= + +clean: + $(RM) $(ALL_T) $(ALL_O) + +depend: + @$(CC) $(CFLAGS) -MM l*.c print.c + +echo: + @echo "PLAT = $(PLAT)" + @echo "CC = $(CC)" + @echo "CFLAGS = $(CFLAGS)" + @echo "AR = $(AR)" + @echo "RANLIB = $(RANLIB)" + @echo "RM = $(RM)" + @echo "MYCFLAGS = $(MYCFLAGS)" + @echo "MYLDFLAGS = $(MYLDFLAGS)" + @echo "MYLIBS = $(MYLIBS)" + +# convenience targets for popular platforms + +none: + @echo "Please choose a platform:" + @echo " $(PLATS)" + +bsd: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" MYLIBS="-Wl,-E" + +bsd_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN -DLUA_USE_READLINE" MYLIBS="-Wl,-E -lreadline" + +generic: + $(MAKE) all MYCFLAGS= + +linux: + $(MAKE) all MYCFLAGS=-DLUA_USE_LINUX MYLIBS="-Wl,-E -ldl" + +linux_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_LINUX -DLUA_USE_READLINE" MYLIBS="-Wl,-E -ldl -lreadline -lhistory -lncurses" + +# Mac OS X on Intel Macs only! +macosx: + $(MAKE) all MYCFLAGS=-DLUA_USE_LINUX +# use this on Mac OS X 10.3 +# $(MAKE) all MYCFLAGS=-DLUA_USE_MACOSX + +macosx_rl: + $(MAKE) all MYCFLAGS="-DLUA_USE_LINUX -DLUA_USE_READLINE" MYLIBS="-lreadline" + +mingw: + $(MAKE) "LUA_A=lua51.dll" "LUA_T=luajit.exe" \ + "AR=$(CC) -shared -o" "RANLIB=strip --strip-unneeded" \ + "MYCFLAGS=-DLUA_BUILD_AS_DLL -maccumulate-outgoing-args" \ + "MYLIBS=" "MYLDFLAGS=-s" luajit.exe + +cygwin: + $(MAKE) "CC=gcc -mno-cygwin" mingw + +posix: + $(MAKE) all MYCFLAGS=-DLUA_USE_POSIX + +# Solaris x86 only! +solaris: + $(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" MYLIBS="-ldl" + +# list targets that do not create files (but not all makes understand .PHONY) +.PHONY: all $(PLATS) default o a clean depend echo none cleaner distclean + +# DO NOT DELETE + +lapi.o: lapi.c lua.h luaconf.h lapi.h lobject.h llimits.h ldebug.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h \ + ltable.h lundump.h lvm.h +lauxlib.o: lauxlib.c lua.h luaconf.h lauxlib.h +lbaselib.o: lbaselib.c lua.h luaconf.h lauxlib.h lualib.h lcoco.h +lcoco.o: lcoco.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lvm.h lgc.h +lcode.o: lcode.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ + lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h lcoco.h \ + ldo.h lgc.h ltable.h +ldblib.o: ldblib.c lua.h luaconf.h lauxlib.h lualib.h +ldebug.o: ldebug.c lua.h luaconf.h lapi.h lobject.h llimits.h lcode.h \ + llex.h lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h \ + lcoco.h ldo.h lfunc.h lstring.h lgc.h ltable.h lvm.h ljit.h +ldo.o: ldo.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lopcodes.h lparser.h \ + lstring.h ltable.h lundump.h lvm.h ljit.h +ldump.o: ldump.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h lundump.h +lfunc.o: lfunc.c lua.h luaconf.h lfunc.h lobject.h llimits.h lgc.h lmem.h \ + lstate.h ltm.h lzio.h lcoco.h ljit.h +lgc.o: lgc.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h ltable.h +linit.o: linit.c lua.h luaconf.h lualib.h lauxlib.h +liolib.o: liolib.c lua.h luaconf.h lauxlib.h lualib.h +ljit_backend.o: ljit_backend.c lua.h luaconf.h lobject.h llimits.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lstring.h \ + ltable.h lvm.h lopcodes.h ldebug.h ljit.h ljit_hints.h ljit_dasm.h \ + ../dynasm/dasm_proto.h ljit_x86.h +ljit_core.o: ljit_core.c lua.h luaconf.h lobject.h llimits.h lstate.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lstring.h lgc.h ltable.h ldebug.h \ + lopcodes.h ljit.h ljit_hints.h luajit.h +ljit_dasm.o: ljit_dasm.c lua.h luaconf.h ljit.h lobject.h llimits.h \ + ljit_dasm.h ../dynasm/dasm_proto.h lmem.h ../dynasm/dasm_x86.h +ljit_mem.o: ljit_mem.c lua.h luaconf.h lmem.h llimits.h ldo.h lobject.h \ + lstate.h ltm.h lzio.h lcoco.h ljit.h ljit_dasm.h ../dynasm/dasm_proto.h +ljitlib.o: ljitlib.c lua.h luaconf.h lauxlib.h luajit.h lualib.h \ + lobject.h llimits.h lstate.h ltm.h lzio.h lmem.h lcoco.h lstring.h \ + lgc.h ltable.h lfunc.h lopcodes.h ljit.h ljit_hints.h +llex.o: llex.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h ltm.h \ + lzio.h lmem.h lcoco.h llex.h lparser.h lstring.h lgc.h ltable.h +lmathlib.o: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h +lmem.o: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h +loadlib.o: loadlib.c lua.h luaconf.h lauxlib.h lualib.h luajit.h +lobject.o: lobject.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h \ + ltm.h lzio.h lmem.h lcoco.h lstring.h lgc.h lvm.h +lopcodes.o: lopcodes.c lopcodes.h llimits.h lua.h luaconf.h +loslib.o: loslib.c lua.h luaconf.h lauxlib.h lualib.h +lparser.o: lparser.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ + lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h lcoco.h \ + ldo.h lfunc.h lstring.h lgc.h ltable.h +lstate.o: lstate.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h llex.h lstring.h \ + ltable.h ljit.h +lstring.o: lstring.c lua.h luaconf.h lmem.h llimits.h lobject.h lstate.h \ + ltm.h lzio.h lcoco.h lstring.h lgc.h +lstrlib.o: lstrlib.c lua.h luaconf.h lauxlib.h lualib.h +ltable.o: ltable.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h ldo.h lgc.h ltable.h +ltablib.o: ltablib.c lua.h luaconf.h lauxlib.h lualib.h +ltm.o: ltm.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h lzio.h \ + lmem.h lcoco.h lstring.h lgc.h ltable.h +lua.o: lua.c lua.h luaconf.h lauxlib.h lualib.h luajit.h +luac.o: luac.c lua.h luaconf.h lauxlib.h ldo.h lobject.h llimits.h \ + lstate.h ltm.h lzio.h lmem.h lcoco.h lfunc.h lopcodes.h lstring.h lgc.h \ + lundump.h +lundump.o: lundump.c lua.h luaconf.h ldebug.h lstate.h lobject.h \ + llimits.h ltm.h lzio.h lmem.h lcoco.h ldo.h lfunc.h lstring.h lgc.h \ + lundump.h +lvm.o: lvm.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ + lzio.h lmem.h lcoco.h ldo.h lfunc.h lgc.h lopcodes.h lstring.h ltable.h \ + lvm.h +lzio.o: lzio.c lua.h luaconf.h llimits.h lmem.h lstate.h lobject.h ltm.h \ + lzio.h lcoco.h +print.o: print.c ldebug.h lstate.h lua.h luaconf.h lobject.h llimits.h \ + ltm.h lzio.h lmem.h lcoco.h lopcodes.h lundump.h + +# (end of Makefile) diff --git a/src/3rd party/LuaJIT-1.1.8/src/lapi.c b/src/3rd party/LuaJIT-1.1.8/src/lapi.c new file mode 100644 index 00000000000..e8347a28c4d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lapi.c @@ -0,0 +1,1082 @@ +/* +** $Id: lapi.c,v 2.55.1.5 2008/07/04 18:41:18 roberto Exp $ +** Lua API +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define lapi_c +#define LUA_CORE + +#include "lua.h" + +#include "lapi.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lundump.h" +#include "lvm.h" + + + +const char lua_ident[] = + "$Lua: " LUA_RELEASE " " LUA_COPYRIGHT " $\n" + "$Authors: " LUA_AUTHORS " $\n" + "$URL: www.lua.org $\n"; + + + +#define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->base)) + +#define api_checkvalidindex(L, i) api_check(L, (i) != luaO_nilobject) + +#define api_incr_top(L) {api_check(L, L->top < L->ci->top); L->top++;} + + + +static TValue *index2adr (lua_State *L, int idx) { + if (idx > 0) { + TValue *o = L->base + (idx - 1); + api_check(L, idx <= L->ci->top - L->base); + if (o >= L->top) return cast(TValue *, luaO_nilobject); + else return o; + } + else if (idx > LUA_REGISTRYINDEX) { + api_check(L, idx != 0 && -idx <= L->top - L->base); + return L->top + idx; + } + else switch (idx) { /* pseudo-indices */ + case LUA_REGISTRYINDEX: return registry(L); + case LUA_ENVIRONINDEX: { + Closure *func = curr_func(L); + sethvalue(L, &L->env, func->c.env); + return &L->env; + } + case LUA_GLOBALSINDEX: return gt(L); + default: { + Closure *func = curr_func(L); + idx = LUA_GLOBALSINDEX - idx; + return (idx <= func->c.nupvalues) + ? &func->c.upvalue[idx-1] + : cast(TValue *, luaO_nilobject); + } + } +} + + +static Table *getcurrenv (lua_State *L) { + if (L->ci == L->base_ci) /* no enclosing function? */ + return hvalue(gt(L)); /* use global table as environment */ + else { + Closure *func = curr_func(L); + return func->c.env; + } +} + + +void luaA_pushobject (lua_State *L, const TValue *o) { + setobj2s(L, L->top, o); + api_incr_top(L); +} + + +LUA_API int lua_checkstack (lua_State *L, int size) { + int res = 1; + lua_lock(L); + if (size > LUAI_MAXCSTACK || (L->top - L->base + size) > LUAI_MAXCSTACK) + res = 0; /* stack overflow */ + else if (size > 0) { + luaD_checkstack(L, size); + if (L->ci->top < L->top + size) + L->ci->top = L->top + size; + } + lua_unlock(L); + return res; +} + + +LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { + StkId f, t; + if (from == to) return; + lua_lock(to); + api_checknelems(from, n); + api_check(from, G(from) == G(to)); + api_check(from, to->ci->top - to->top >= n); + f = from->top; + t = to->top = to->top + n; + while (--n >= 0) setobj2s(to, --t, --f); + from->top = f; + lua_unlock(to); +} + + +LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) { + lua_CFunction old; + lua_lock(L); + old = G(L)->panic; + G(L)->panic = panicf; + lua_unlock(L); + return old; +} + + +LUA_API lua_State *lua_newthread (lua_State *L) { + lua_State *L1; + lua_lock(L); + luaC_checkGC(L); + L1 = luaE_newthread(L); + setthvalue(L, L->top, L1); + api_incr_top(L); + lua_unlock(L); + luai_userstatethread(L, L1); + return L1; +} + + + +/* +** basic stack manipulation +*/ + + +LUA_API int lua_gettop (lua_State *L) { + return cast_int(L->top - L->base); +} + + +LUA_API void lua_settop (lua_State *L, int idx) { + lua_lock(L); + if (idx >= 0) { + api_check(L, idx <= L->stack_last - L->base); + while (L->top < L->base + idx) + setnilvalue(L->top++); + L->top = L->base + idx; + } + else { + api_check(L, -(idx+1) <= (L->top - L->base)); + L->top += idx+1; /* `subtract' index (index is negative) */ + } + lua_unlock(L); +} + + +LUA_API void lua_remove (lua_State *L, int idx) { + StkId p; + lua_lock(L); + p = index2adr(L, idx); + api_checkvalidindex(L, p); + while (++p < L->top) setobjs2s(L, p-1, p); + L->top--; + lua_unlock(L); +} + + +LUA_API void lua_insert (lua_State *L, int idx) { + StkId p; + StkId q; + lua_lock(L); + p = index2adr(L, idx); + api_checkvalidindex(L, p); + for (q = L->top; q>p; q--) setobjs2s(L, q, q-1); + setobjs2s(L, p, L->top); + lua_unlock(L); +} + + +LUA_API void lua_replace (lua_State *L, int idx) { + StkId o; + lua_lock(L); + /* explicit test for incompatible code */ + if (idx == LUA_ENVIRONINDEX && L->ci == L->base_ci) + luaG_runerror(L, "no calling environment"); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + if (idx == LUA_ENVIRONINDEX) { + Closure *func = curr_func(L); + api_check(L, ttistable(L->top - 1)); + func->c.env = hvalue(L->top - 1); + luaC_barrier(L, func, L->top - 1); + } + else { + setobj(L, o, L->top - 1); + if (idx < LUA_GLOBALSINDEX) /* function upvalue? */ + luaC_barrier(L, curr_func(L), L->top - 1); + } + L->top--; + lua_unlock(L); +} + + +LUA_API void lua_pushvalue (lua_State *L, int idx) { + lua_lock(L); + setobj2s(L, L->top, index2adr(L, idx)); + api_incr_top(L); + lua_unlock(L); +} + + + +/* +** access functions (stack -> C) +*/ + + +LUA_API int lua_type (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (o == luaO_nilobject) ? LUA_TNONE : ttype(o); +} + + +LUA_API const char *lua_typename (lua_State *L, int t) { + UNUSED(L); + return (t == LUA_TNONE) ? "no value" : luaT_typenames[t]; +} + + +LUA_API int lua_iscfunction (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return iscfunction(o); +} + + +LUA_API int lua_isnumber (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + return tonumber(o, &n); +} + + +LUA_API int lua_isstring (lua_State *L, int idx) { + int t = lua_type(L, idx); + return (t == LUA_TSTRING || t == LUA_TNUMBER); +} + + +LUA_API int lua_isuserdata (lua_State *L, int idx) { + const TValue *o = index2adr(L, idx); + return (ttisuserdata(o) || ttislightuserdata(o)); +} + + +LUA_API int lua_rawequal (lua_State *L, int index1, int index2) { + StkId o1 = index2adr(L, index1); + StkId o2 = index2adr(L, index2); + return (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 + : luaO_rawequalObj(o1, o2); +} + + +LUA_API int lua_equal (lua_State *L, int index1, int index2) { + StkId o1, o2; + int i; + lua_lock(L); /* may call tag method */ + o1 = index2adr(L, index1); + o2 = index2adr(L, index2); + i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 : equalobj(L, o1, o2); + lua_unlock(L); + return i; +} + + +LUA_API int lua_lessthan (lua_State *L, int index1, int index2) { + StkId o1, o2; + int i; + lua_lock(L); /* may call tag method */ + o1 = index2adr(L, index1); + o2 = index2adr(L, index2); + i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 + : luaV_lessthan(L, o1, o2); + lua_unlock(L); + return i; +} + + + +LUA_API lua_Number lua_tonumber (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + if (tonumber(o, &n)) + return nvalue(o); + else + return 0; +} + + +LUA_API lua_Integer lua_tointeger (lua_State *L, int idx) { + TValue n; + const TValue *o = index2adr(L, idx); + if (tonumber(o, &n)) { + lua_Integer res; + lua_Number num = nvalue(o); + lua_number2integer(res, num); + return res; + } + else + return 0; +} + + +LUA_API int lua_toboolean (lua_State *L, int idx) { + const TValue *o = index2adr(L, idx); + return !l_isfalse(o); +} + + +LUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) { + StkId o = index2adr(L, idx); + if (!ttisstring(o)) { + lua_lock(L); /* `luaV_tostring' may create a new string */ + if (!luaV_tostring(L, o)) { /* conversion failed? */ + if (len != NULL) *len = 0; + lua_unlock(L); + return NULL; + } + luaC_checkGC(L); + o = index2adr(L, idx); /* previous call may reallocate the stack */ + lua_unlock(L); + } + if (len != NULL) *len = tsvalue(o)->len; + return svalue(o); +} + + +LUA_API size_t lua_objlen (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TSTRING: return tsvalue(o)->len; + case LUA_TUSERDATA: return uvalue(o)->len; + case LUA_TTABLE: return luaH_getn(hvalue(o)); + case LUA_TNUMBER: { + size_t l; + lua_lock(L); /* `luaV_tostring' may create a new string */ + l = (luaV_tostring(L, o) ? tsvalue(o)->len : 0); + lua_unlock(L); + return l; + } + default: return 0; + } +} + + +LUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (!iscfunction(o)) ? NULL : clvalue(o)->c.f; +} + + +LUA_API void *lua_touserdata (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TUSERDATA: return (rawuvalue(o) + 1); + case LUA_TLIGHTUSERDATA: return pvalue(o); + default: return NULL; + } +} + + +LUA_API lua_State *lua_tothread (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + return (!ttisthread(o)) ? NULL : thvalue(o); +} + + +LUA_API const void *lua_topointer (lua_State *L, int idx) { + StkId o = index2adr(L, idx); + switch (ttype(o)) { + case LUA_TTABLE: return hvalue(o); + case LUA_TFUNCTION: return clvalue(o); + case LUA_TTHREAD: return thvalue(o); + case LUA_TUSERDATA: + case LUA_TLIGHTUSERDATA: + return lua_touserdata(L, idx); + default: return NULL; + } +} + + + +/* +** push functions (C -> stack) +*/ + + +LUA_API void lua_pushnil (lua_State *L) { + lua_lock(L); + setnilvalue(L->top); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushnumber (lua_State *L, lua_Number n) { + lua_lock(L); + setnvalue(L->top, n); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) { + lua_lock(L); + setnvalue(L->top, cast_num(n)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) { + lua_lock(L); + luaC_checkGC(L); + setsvalue2s(L, L->top, luaS_newlstr(L, s, len)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushstring (lua_State *L, const char *s) { + if (s == NULL) + lua_pushnil(L); + else + lua_pushlstring(L, s, strlen(s)); +} + + +LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt, + va_list argp) { + const char *ret; + lua_lock(L); + luaC_checkGC(L); + ret = luaO_pushvfstring(L, fmt, argp); + lua_unlock(L); + return ret; +} + + +LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) { + const char *ret; + va_list argp; + lua_lock(L); + luaC_checkGC(L); + va_start(argp, fmt); + ret = luaO_pushvfstring(L, fmt, argp); + va_end(argp); + lua_unlock(L); + return ret; +} + + +LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { + Closure *cl; + lua_lock(L); + luaC_checkGC(L); + api_checknelems(L, n); + cl = luaF_newCclosure(L, n, getcurrenv(L)); + cl->c.f = fn; + L->top -= n; + while (n--) + setobj2n(L, &cl->c.upvalue[n], L->top+n); + setclvalue(L, L->top, cl); + lua_assert(iswhite(obj2gco(cl))); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushboolean (lua_State *L, int b) { + lua_lock(L); + setbvalue(L->top, (b != 0)); /* ensure that true is 1 */ + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_pushlightuserdata (lua_State *L, void *p) { + lua_lock(L); + setpvalue(L->top, p); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API int lua_pushthread (lua_State *L) { + lua_lock(L); + setthvalue(L, L->top, L); + api_incr_top(L); + lua_unlock(L); + return (G(L)->mainthread == L); +} + + + +/* +** get functions (Lua -> stack) +*/ + + +LUA_API void lua_gettable (lua_State *L, int idx) { + StkId t; + lua_lock(L); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + luaV_gettable(L, t, L->top - 1, L->top - 1); + lua_unlock(L); +} + + +LUA_API void lua_getfield (lua_State *L, int idx, const char *k) { + StkId t; + TValue key; + lua_lock(L); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + setsvalue(L, &key, luaS_new(L, k)); + luaV_gettable(L, t, &key, L->top); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_rawget (lua_State *L, int idx) { + StkId t; + lua_lock(L); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1)); + lua_unlock(L); +} + + +LUA_API void lua_rawgeti (lua_State *L, int idx, int n) { + StkId o; + lua_lock(L); + o = index2adr(L, idx); + api_check(L, ttistable(o)); + setobj2s(L, L->top, luaH_getnum(hvalue(o), n)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API void lua_createtable (lua_State *L, int narray, int nrec) { + lua_lock(L); + luaC_checkGC(L); + sethvalue(L, L->top, luaH_new(L, narray, nrec)); + api_incr_top(L); + lua_unlock(L); +} + + +LUA_API int lua_getmetatable (lua_State *L, int objindex) { + const TValue *obj; + Table *mt = NULL; + int res; + lua_lock(L); + obj = index2adr(L, objindex); + switch (ttype(obj)) { + case LUA_TTABLE: + mt = hvalue(obj)->metatable; + break; + case LUA_TUSERDATA: + mt = uvalue(obj)->metatable; + break; + default: + mt = G(L)->mt[ttype(obj)]; + break; + } + if (mt == NULL) + res = 0; + else { + sethvalue(L, L->top, mt); + api_incr_top(L); + res = 1; + } + lua_unlock(L); + return res; +} + + +LUA_API void lua_getfenv (lua_State *L, int idx) { + StkId o; + lua_lock(L); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + switch (ttype(o)) { + case LUA_TFUNCTION: + sethvalue(L, L->top, clvalue(o)->c.env); + break; + case LUA_TUSERDATA: + sethvalue(L, L->top, uvalue(o)->env); + break; + case LUA_TTHREAD: + setobj2s(L, L->top, gt(thvalue(o))); + break; + default: + setnilvalue(L->top); + break; + } + api_incr_top(L); + lua_unlock(L); +} + + +/* +** set functions (stack -> Lua) +*/ + + +LUA_API void lua_settable (lua_State *L, int idx) { + StkId t; + lua_lock(L); + api_checknelems(L, 2); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + luaV_settable(L, t, L->top - 2, L->top - 1); + L->top -= 2; /* pop index and value */ + lua_unlock(L); +} + + +LUA_API void lua_setfield (lua_State *L, int idx, const char *k) { + StkId t; + TValue key; + lua_lock(L); + api_checknelems(L, 1); + t = index2adr(L, idx); + api_checkvalidindex(L, t); + setsvalue(L, &key, luaS_new(L, k)); + luaV_settable(L, t, &key, L->top - 1); + L->top--; /* pop value */ + lua_unlock(L); +} + + +LUA_API void lua_rawset (lua_State *L, int idx) { + StkId t; + lua_lock(L); + api_checknelems(L, 2); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1); + luaC_barriert(L, hvalue(t), L->top-1); + L->top -= 2; + lua_unlock(L); +} + + +LUA_API void lua_rawseti (lua_State *L, int idx, int n) { + StkId o; + lua_lock(L); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_check(L, ttistable(o)); + setobj2t(L, luaH_setnum(L, hvalue(o), n), L->top-1); + luaC_barriert(L, hvalue(o), L->top-1); + L->top--; + lua_unlock(L); +} + + +LUA_API int lua_setmetatable (lua_State *L, int objindex) { + TValue *obj; + Table *mt; + lua_lock(L); + api_checknelems(L, 1); + obj = index2adr(L, objindex); + api_checkvalidindex(L, obj); + if (ttisnil(L->top - 1)) + mt = NULL; + else { + api_check(L, ttistable(L->top - 1)); + mt = hvalue(L->top - 1); + } + switch (ttype(obj)) { + case LUA_TTABLE: { + hvalue(obj)->metatable = mt; + if (mt) + luaC_objbarriert(L, hvalue(obj), mt); + break; + } + case LUA_TUSERDATA: { + uvalue(obj)->metatable = mt; + if (mt) + luaC_objbarrier(L, rawuvalue(obj), mt); + break; + } + default: { + G(L)->mt[ttype(obj)] = mt; + break; + } + } + L->top--; + lua_unlock(L); + return 1; +} + + +LUA_API int lua_setfenv (lua_State *L, int idx) { + StkId o; + int res = 1; + lua_lock(L); + api_checknelems(L, 1); + o = index2adr(L, idx); + api_checkvalidindex(L, o); + api_check(L, ttistable(L->top - 1)); + switch (ttype(o)) { + case LUA_TFUNCTION: + clvalue(o)->c.env = hvalue(L->top - 1); + break; + case LUA_TUSERDATA: + uvalue(o)->env = hvalue(L->top - 1); + break; + case LUA_TTHREAD: + sethvalue(L, gt(thvalue(o)), hvalue(L->top - 1)); + break; + default: + res = 0; + break; + } + if (res) luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1)); + L->top--; + lua_unlock(L); + return res; +} + + +/* +** `load' and `call' functions (run Lua code) +*/ + + +#define adjustresults(L,nres) \ + { if (nres == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; } + + +#define checkresults(L,na,nr) \ + api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na))) + + +LUA_API void lua_call (lua_State *L, int nargs, int nresults) { + StkId func; + lua_lock(L); + api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); + func = L->top - (nargs+1); + luaD_call(L, func, nresults); + adjustresults(L, nresults); + lua_unlock(L); +} + + + +/* +** Execute a protected call. +*/ +struct CallS { /* data to `f_call' */ + StkId func; + int nresults; +}; + + +static void f_call (lua_State *L, void *ud) { + struct CallS *c = cast(struct CallS *, ud); + luaD_call(L, c->func, c->nresults); +} + + + +LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc) { + struct CallS c; + int status; + ptrdiff_t func; + lua_lock(L); + api_checknelems(L, nargs+1); + checkresults(L, nargs, nresults); + if (errfunc == 0) + func = 0; + else { + StkId o = index2adr(L, errfunc); + api_checkvalidindex(L, o); + func = savestack(L, o); + } + c.func = L->top - (nargs+1); /* function to be called */ + c.nresults = nresults; + status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); + adjustresults(L, nresults); + lua_unlock(L); + return status; +} + + +/* +** Execute a protected C call. +*/ +struct CCallS { /* data to `f_Ccall' */ + lua_CFunction func; + void *ud; +}; + + +static void f_Ccall (lua_State *L, void *ud) { + struct CCallS *c = cast(struct CCallS *, ud); + Closure *cl; + cl = luaF_newCclosure(L, 0, getcurrenv(L)); + cl->c.f = c->func; + setclvalue(L, L->top, cl); /* push function */ + api_incr_top(L); + setpvalue(L->top, c->ud); /* push only argument */ + api_incr_top(L); + luaD_call(L, L->top - 2, 0); +} + + +LUA_API int lua_cpcall (lua_State *L, lua_CFunction func, void *ud) { + struct CCallS c; + int status; + lua_lock(L); + c.func = func; + c.ud = ud; + status = luaD_pcall(L, f_Ccall, &c, savestack(L, L->top), 0); + lua_unlock(L); + return status; +} + + +LUA_API int lua_load (lua_State *L, lua_Reader reader, void *data, + const char *chunkname) { + ZIO z; + int status; + lua_lock(L); + if (!chunkname) chunkname = "?"; + luaZ_init(L, &z, reader, data); + status = luaD_protectedparser(L, &z, chunkname); + lua_unlock(L); + return status; +} + + +LUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data) { + int status; + TValue *o; + lua_lock(L); + api_checknelems(L, 1); + o = L->top - 1; + if (isLfunction(o)) + status = luaU_dump(L, clvalue(o)->l.p, writer, data, 0); + else + status = 1; + lua_unlock(L); + return status; +} + + +LUA_API int lua_status (lua_State *L) { + return L->status; +} + + +/* +** Garbage-collection function +*/ + +LUA_API int lua_gc (lua_State *L, int what, int data) { + int res = 0; + global_State *g; + lua_lock(L); + g = G(L); + switch (what) { + case LUA_GCSTOP: { + g->GCthreshold = MAX_LUMEM; + break; + } + case LUA_GCRESTART: { + g->GCthreshold = g->totalbytes; + break; + } + case LUA_GCCOLLECT: { + luaC_fullgc(L); + break; + } + case LUA_GCCOUNT: { + /* GC values are expressed in Kbytes: #bytes/2^10 */ + res = cast_int(g->totalbytes >> 10); + break; + } + case LUA_GCCOUNTB: { + res = cast_int(g->totalbytes & 0x3ff); + break; + } + case LUA_GCSTEP: { + lu_mem a = (cast(lu_mem, data) << 10); + if (a <= g->totalbytes) + g->GCthreshold = g->totalbytes - a; + else + g->GCthreshold = 0; + while (g->GCthreshold <= g->totalbytes) { + luaC_step(L); + if (g->gcstate == GCSpause) { /* end of cycle? */ + res = 1; /* signal it */ + break; + } + } + break; + } + case LUA_GCSETPAUSE: { + res = g->gcpause; + g->gcpause = data; + break; + } + case LUA_GCSETSTEPMUL: { + res = g->gcstepmul; + g->gcstepmul = data; + break; + } + default: res = -1; /* invalid option */ + } + lua_unlock(L); + return res; +} + + + +/* +** miscellaneous functions +*/ + + +LUA_API int lua_error (lua_State *L) { + lua_lock(L); + api_checknelems(L, 1); + luaG_errormsg(L); + lua_unlock(L); + return 0; /* to avoid warnings */ +} + + +LUA_API int lua_next (lua_State *L, int idx) { + StkId t; + int more; + lua_lock(L); + t = index2adr(L, idx); + api_check(L, ttistable(t)); + more = luaH_next(L, hvalue(t), L->top - 1); + if (more) { + api_incr_top(L); + } + else /* no more elements */ + L->top -= 1; /* remove key */ + lua_unlock(L); + return more; +} + + +LUA_API void lua_concat (lua_State *L, int n) { + lua_lock(L); + api_checknelems(L, n); + if (n >= 2) { + luaC_checkGC(L); + luaV_concat(L, n, cast_int(L->top - L->base) - 1); + L->top -= (n-1); + } + else if (n == 0) { /* push empty string */ + setsvalue2s(L, L->top, luaS_newlstr(L, "", 0)); + api_incr_top(L); + } + /* else n == 1; nothing to do */ + lua_unlock(L); +} + + +LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { + lua_Alloc f; + lua_lock(L); + if (ud) *ud = G(L)->ud; + f = G(L)->frealloc; + lua_unlock(L); + return f; +} + + +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { + lua_lock(L); + G(L)->ud = ud; + G(L)->frealloc = f; + lua_unlock(L); +} + + +LUA_API void *lua_newuserdata (lua_State *L, size_t size) { + Udata *u; + lua_lock(L); + luaC_checkGC(L); + u = luaS_newudata(L, size, getcurrenv(L)); + setuvalue(L, L->top, u); + api_incr_top(L); + lua_unlock(L); + return u + 1; +} + + + + +static const char *aux_upvalue (StkId fi, int n, TValue **val) { + Closure *f; + if (!ttisfunction(fi)) return NULL; + f = clvalue(fi); + if (f->c.isC) { + if (!(1 <= n && n <= f->c.nupvalues)) return NULL; + *val = &f->c.upvalue[n-1]; + return ""; + } + else { + Proto *p = f->l.p; + if (!(1 <= n && n <= p->sizeupvalues)) return NULL; + *val = f->l.upvals[n-1]->v; + return getstr(p->upvalues[n-1]); + } +} + + +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { + const char *name; + TValue *val; + lua_lock(L); + name = aux_upvalue(index2adr(L, funcindex), n, &val); + if (name) { + setobj2s(L, L->top, val); + api_incr_top(L); + } + lua_unlock(L); + return name; +} + + +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) { + const char *name; + TValue *val; + StkId fi; + lua_lock(L); + fi = index2adr(L, funcindex); + api_checknelems(L, 1); + name = aux_upvalue(fi, n, &val); + if (name) { + L->top--; + setobj(L, val, L->top); + luaC_barrier(L, clvalue(fi), L->top); + } + lua_unlock(L); + return name; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lapi.h b/src/3rd party/LuaJIT-1.1.8/src/lapi.h new file mode 100644 index 00000000000..2c3fab244ef --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lapi.h @@ -0,0 +1,16 @@ +/* +** $Id: lapi.h,v 2.2.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions from Lua API +** See Copyright Notice in lua.h +*/ + +#ifndef lapi_h +#define lapi_h + + +#include "lobject.h" + + +LUAI_FUNC void luaA_pushobject (lua_State *L, const TValue *o); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c new file mode 100644 index 00000000000..10f14e2c088 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.c @@ -0,0 +1,652 @@ +/* +** $Id: lauxlib.c,v 1.159.1.3 2008/01/21 13:20:51 roberto Exp $ +** Auxiliary functions for building Lua libraries +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include +#include + + +/* This file uses only the official API of Lua. +** Any function declared here could be written as an application function. +*/ + +#define lauxlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" + + +#define FREELIST_REF 0 /* free list of references */ + + +/* convert a stack index to positive */ +#define abs_index(L, i) ((i) > 0 || (i) <= LUA_REGISTRYINDEX ? (i) : \ + lua_gettop(L) + (i) + 1) + + +/* +** {====================================================== +** Error-report functions +** ======================================================= +*/ + + +LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) { + lua_Debug ar; + if (!lua_getstack(L, 0, &ar)) /* no stack frame? */ + return luaL_error(L, "bad argument #%d (%s)", narg, extramsg); + lua_getinfo(L, "n", &ar); + if (strcmp(ar.namewhat, "method") == 0) { + narg--; /* do not count `self' */ + if (narg == 0) /* error is in the self argument itself? */ + return luaL_error(L, "calling " LUA_QS " on bad self (%s)", + ar.name, extramsg); + } + if (ar.name == NULL) + ar.name = "?"; + return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", + narg, ar.name, extramsg); +} + + +LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname) { + const char *msg = lua_pushfstring(L, "%s expected, got %s", + tname, luaL_typename(L, narg)); + return luaL_argerror(L, narg, msg); +} + + +static void tag_error (lua_State *L, int narg, int tag) { + luaL_typerror(L, narg, lua_typename(L, tag)); +} + + +LUALIB_API void luaL_where (lua_State *L, int level) { + lua_Debug ar; + if (lua_getstack(L, level, &ar)) { /* check function at level */ + lua_getinfo(L, "Sl", &ar); /* get info about it */ + if (ar.currentline > 0) { /* is there info? */ + lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); + return; + } + } + lua_pushliteral(L, ""); /* else, no information available... */ +} + + +LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) { + va_list argp; + va_start(argp, fmt); + luaL_where(L, 1); + lua_pushvfstring(L, fmt, argp); + va_end(argp); + lua_concat(L, 2); + return lua_error(L); +} + +/* }====================================================== */ + + +LUALIB_API int luaL_checkoption (lua_State *L, int narg, const char *def, + const char *const lst[]) { + const char *name = (def) ? luaL_optstring(L, narg, def) : + luaL_checkstring(L, narg); + int i; + for (i=0; lst[i]; i++) + if (strcmp(lst[i], name) == 0) + return i; + return luaL_argerror(L, narg, + lua_pushfstring(L, "invalid option " LUA_QS, name)); +} + + +LUALIB_API int luaL_newmetatable (lua_State *L, const char *tname) { + lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get registry.name */ + if (!lua_isnil(L, -1)) /* name already in use? */ + return 0; /* leave previous value on top, but return 0 */ + lua_pop(L, 1); + lua_newtable(L); /* create metatable */ + lua_pushvalue(L, -1); + lua_setfield(L, LUA_REGISTRYINDEX, tname); /* registry.name = metatable */ + return 1; +} + + +LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) { + void *p = lua_touserdata(L, ud); + if (p != NULL) { /* value is a userdata? */ + if (lua_getmetatable(L, ud)) { /* does it have a metatable? */ + lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get correct metatable */ + if (lua_rawequal(L, -1, -2)) { /* does it have the correct mt? */ + lua_pop(L, 2); /* remove both metatables */ + return p; + } + } + } + luaL_typerror(L, ud, tname); /* else error */ + return NULL; /* to avoid warnings */ +} + + +LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *mes) { + if (!lua_checkstack(L, space)) + luaL_error(L, "stack overflow (%s)", mes); +} + + +LUALIB_API void luaL_checktype (lua_State *L, int narg, int t) { + if (lua_type(L, narg) != t) + tag_error(L, narg, t); +} + + +LUALIB_API void luaL_checkany (lua_State *L, int narg) { + if (lua_type(L, narg) == LUA_TNONE) + luaL_argerror(L, narg, "value expected"); +} + + +LUALIB_API const char *luaL_checklstring (lua_State *L, int narg, size_t *len) { + const char *s = lua_tolstring(L, narg, len); + if (!s) tag_error(L, narg, LUA_TSTRING); + return s; +} + + +LUALIB_API const char *luaL_optlstring (lua_State *L, int narg, + const char *def, size_t *len) { + if (lua_isnoneornil(L, narg)) { + if (len) + *len = (def ? strlen(def) : 0); + return def; + } + else return luaL_checklstring(L, narg, len); +} + + +LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) { + lua_Number d = lua_tonumber(L, narg); + if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */ + tag_error(L, narg, LUA_TNUMBER); + return d; +} + + +LUALIB_API lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number def) { + return luaL_opt(L, luaL_checknumber, narg, def); +} + + +LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) { + lua_Integer d = lua_tointeger(L, narg); + if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */ + tag_error(L, narg, LUA_TNUMBER); + return d; +} + + +LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int narg, + lua_Integer def) { + return luaL_opt(L, luaL_checkinteger, narg, def); +} + + +LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { + if (!lua_getmetatable(L, obj)) /* no metatable? */ + return 0; + lua_pushstring(L, event); + lua_rawget(L, -2); + if (lua_isnil(L, -1)) { + lua_pop(L, 2); /* remove metatable and metafield */ + return 0; + } + else { + lua_remove(L, -2); /* remove only metatable */ + return 1; + } +} + + +LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { + obj = abs_index(L, obj); + if (!luaL_getmetafield(L, obj, event)) /* no metafield? */ + return 0; + lua_pushvalue(L, obj); + lua_call(L, 1, 1); + return 1; +} + + +LUALIB_API void (luaL_register) (lua_State *L, const char *libname, + const luaL_Reg *l) { + luaI_openlib(L, libname, l, 0); +} + + +static int libsize (const luaL_Reg *l) { + int size = 0; + for (; l->name; l++) size++; + return size; +} + + +LUALIB_API void luaI_openlib (lua_State *L, const char *libname, + const luaL_Reg *l, int nup) { + if (libname) { + int size = libsize(l); + /* check whether lib already exists */ + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 1); + lua_getfield(L, -1, libname); /* get _LOADED[libname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, size) != NULL) + luaL_error(L, "name conflict for module " LUA_QS, libname); + lua_pushvalue(L, -1); + lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ + } + lua_remove(L, -2); /* remove _LOADED table */ + lua_insert(L, -(nup+1)); /* move library table to below upvalues */ + } + for (; l->name; l++) { + int i; + for (i=0; ifunc, nup); + lua_setfield(L, -(nup+2), l->name); + } + lua_pop(L, nup); /* remove upvalues */ +} + + + +/* +** {====================================================== +** getn-setn: size for arrays +** ======================================================= +*/ + +#if defined(LUA_COMPAT_GETN) + +static int checkint (lua_State *L, int topop) { + int n = (lua_type(L, -1) == LUA_TNUMBER) ? lua_tointeger(L, -1) : -1; + lua_pop(L, topop); + return n; +} + + +static void getsizes (lua_State *L) { + lua_getfield(L, LUA_REGISTRYINDEX, "LUA_SIZES"); + if (lua_isnil(L, -1)) { /* no `size' table? */ + lua_pop(L, 1); /* remove nil */ + lua_newtable(L); /* create it */ + lua_pushvalue(L, -1); /* `size' will be its own metatable */ + lua_setmetatable(L, -2); + lua_pushliteral(L, "kv"); + lua_setfield(L, -2, "__mode"); /* metatable(N).__mode = "kv" */ + lua_pushvalue(L, -1); + lua_setfield(L, LUA_REGISTRYINDEX, "LUA_SIZES"); /* store in register */ + } +} + + +LUALIB_API void luaL_setn (lua_State *L, int t, int n) { + t = abs_index(L, t); + lua_pushliteral(L, "n"); + lua_rawget(L, t); + if (checkint(L, 1) >= 0) { /* is there a numeric field `n'? */ + lua_pushliteral(L, "n"); /* use it */ + lua_pushinteger(L, n); + lua_rawset(L, t); + } + else { /* use `sizes' */ + getsizes(L); + lua_pushvalue(L, t); + lua_pushinteger(L, n); + lua_rawset(L, -3); /* sizes[t] = n */ + lua_pop(L, 1); /* remove `sizes' */ + } +} + + +LUALIB_API int luaL_getn (lua_State *L, int t) { + int n; + t = abs_index(L, t); + lua_pushliteral(L, "n"); /* try t.n */ + lua_rawget(L, t); + if ((n = checkint(L, 1)) >= 0) return n; + getsizes(L); /* else try sizes[t] */ + lua_pushvalue(L, t); + lua_rawget(L, -2); + if ((n = checkint(L, 2)) >= 0) return n; + return (int)lua_objlen(L, t); +} + +#endif + +/* }====================================================== */ + + + +LUALIB_API const char *luaL_gsub (lua_State *L, const char *s, const char *p, + const char *r) { + const char *wild; + size_t l = strlen(p); + luaL_Buffer b; + luaL_buffinit(L, &b); + while ((wild = strstr(s, p)) != NULL) { + luaL_addlstring(&b, s, wild - s); /* push prefix */ + luaL_addstring(&b, r); /* push replacement in place of pattern */ + s = wild + l; /* continue after `p' */ + } + luaL_addstring(&b, s); /* push last suffix */ + luaL_pushresult(&b); + return lua_tostring(L, -1); +} + + +LUALIB_API const char *luaL_findtable (lua_State *L, int idx, + const char *fname, int szhint) { + const char *e; + lua_pushvalue(L, idx); + do { + e = strchr(fname, '.'); + if (e == NULL) e = fname + strlen(fname); + lua_pushlstring(L, fname, e - fname); + lua_rawget(L, -2); + if (lua_isnil(L, -1)) { /* no such field? */ + lua_pop(L, 1); /* remove this nil */ + lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */ + lua_pushlstring(L, fname, e - fname); + lua_pushvalue(L, -2); + lua_settable(L, -4); /* set new table into field */ + } + else if (!lua_istable(L, -1)) { /* field has a non-table value? */ + lua_pop(L, 2); /* remove table and value */ + return fname; /* return problematic part of the name */ + } + lua_remove(L, -2); /* remove previous table */ + fname = e + 1; + } while (*e == '.'); + return NULL; +} + + + +/* +** {====================================================== +** Generic Buffer manipulation +** ======================================================= +*/ + + +#define bufflen(B) ((B)->p - (B)->buffer) +#define bufffree(B) ((size_t)(LUAL_BUFFERSIZE - bufflen(B))) + +#define LIMIT (LUA_MINSTACK/2) + + +static int emptybuffer (luaL_Buffer *B) { + size_t l = bufflen(B); + if (l == 0) return 0; /* put nothing on stack */ + else { + lua_pushlstring(B->L, B->buffer, l); + B->p = B->buffer; + B->lvl++; + return 1; + } +} + + +static void adjuststack (luaL_Buffer *B) { + if (B->lvl > 1) { + lua_State *L = B->L; + int toget = 1; /* number of levels to concat */ + size_t toplen = lua_strlen(L, -1); + do { + size_t l = lua_strlen(L, -(toget+1)); + if (B->lvl - toget + 1 >= LIMIT || toplen > l) { + toplen += l; + toget++; + } + else break; + } while (toget < B->lvl); + lua_concat(L, toget); + B->lvl = B->lvl - toget + 1; + } +} + + +LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B) { + if (emptybuffer(B)) + adjuststack(B); + return B->buffer; +} + + +LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) { + while (l--) + luaL_addchar(B, *s++); +} + + +LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) { + luaL_addlstring(B, s, strlen(s)); +} + + +LUALIB_API void luaL_pushresult (luaL_Buffer *B) { + emptybuffer(B); + lua_concat(B->L, B->lvl); + B->lvl = 1; +} + + +LUALIB_API void luaL_addvalue (luaL_Buffer *B) { + lua_State *L = B->L; + size_t vl; + const char *s = lua_tolstring(L, -1, &vl); + if (vl <= bufffree(B)) { /* fit into buffer? */ + memcpy(B->p, s, vl); /* put it there */ + B->p += vl; + lua_pop(L, 1); /* remove from stack */ + } + else { + if (emptybuffer(B)) + lua_insert(L, -2); /* put buffer before new value */ + B->lvl++; /* add new value into B stack */ + adjuststack(B); + } +} + + +LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) { + B->L = L; + B->p = B->buffer; + B->lvl = 0; +} + +/* }====================================================== */ + + +LUALIB_API int luaL_ref (lua_State *L, int t) { + int ref; + t = abs_index(L, t); + if (lua_isnil(L, -1)) { + lua_pop(L, 1); /* remove from stack */ + return LUA_REFNIL; /* `nil' has a unique fixed reference */ + } + lua_rawgeti(L, t, FREELIST_REF); /* get first free element */ + ref = (int)lua_tointeger(L, -1); /* ref = t[FREELIST_REF] */ + lua_pop(L, 1); /* remove it from stack */ + if (ref != 0) { /* any free element? */ + lua_rawgeti(L, t, ref); /* remove it from list */ + lua_rawseti(L, t, FREELIST_REF); /* (t[FREELIST_REF] = t[ref]) */ + } + else { /* no free elements */ + ref = (int)lua_objlen(L, t); + ref++; /* create new reference */ + } + lua_rawseti(L, t, ref); + return ref; +} + + +LUALIB_API void luaL_unref (lua_State *L, int t, int ref) { + if (ref >= 0) { + t = abs_index(L, t); + lua_rawgeti(L, t, FREELIST_REF); + lua_rawseti(L, t, ref); /* t[ref] = t[FREELIST_REF] */ + lua_pushinteger(L, ref); + lua_rawseti(L, t, FREELIST_REF); /* t[FREELIST_REF] = ref */ + } +} + + + +/* +** {====================================================== +** Load functions +** ======================================================= +*/ + +typedef struct LoadF { + int extraline; + FILE *f; + char buff[LUAL_BUFFERSIZE]; +} LoadF; + + +static const char *getF (lua_State *L, void *ud, size_t *size) { + LoadF *lf = (LoadF *)ud; + (void)L; + if (lf->extraline) { + lf->extraline = 0; + *size = 1; + return "\n"; + } + if (feof(lf->f)) return NULL; + *size = fread(lf->buff, 1, sizeof(lf->buff), lf->f); + return (*size > 0) ? lf->buff : NULL; +} + + +static int errfile (lua_State *L, const char *what, int fnameindex) { + const char *serr = strerror(errno); + const char *filename = lua_tostring(L, fnameindex) + 1; + lua_pushfstring(L, "cannot %s %s: %s", what, filename, serr); + lua_remove(L, fnameindex); + return LUA_ERRFILE; +} + + +LUALIB_API int luaL_loadfile (lua_State *L, const char *filename) { + LoadF lf; + int status, readstatus; + int c; + int fnameindex = lua_gettop(L) + 1; /* index of filename on the stack */ + lf.extraline = 0; + if (filename == NULL) { + lua_pushliteral(L, "=stdin"); + lf.f = stdin; + } + else { + lua_pushfstring(L, "@%s", filename); + lf.f = fopen(filename, "r"); + if (lf.f == NULL) return errfile(L, "open", fnameindex); + } + c = getc(lf.f); + if (c == '#') { /* Unix exec. file? */ + lf.extraline = 1; + while ((c = getc(lf.f)) != EOF && c != '\n') ; /* skip first line */ + if (c == '\n') c = getc(lf.f); + } + if (c == LUA_SIGNATURE[0] && filename) { /* binary file? */ + lf.f = freopen(filename, "rb", lf.f); /* reopen in binary mode */ + if (lf.f == NULL) return errfile(L, "reopen", fnameindex); + /* skip eventual `#!...' */ + while ((c = getc(lf.f)) != EOF && c != LUA_SIGNATURE[0]) ; + lf.extraline = 0; + } + ungetc(c, lf.f); + status = lua_load(L, getF, &lf, lua_tostring(L, -1)); + readstatus = ferror(lf.f); + if (filename) fclose(lf.f); /* close file (even in case of errors) */ + if (readstatus) { + lua_settop(L, fnameindex); /* ignore results from `lua_load' */ + return errfile(L, "read", fnameindex); + } + lua_remove(L, fnameindex); + return status; +} + + +typedef struct LoadS { + const char *s; + size_t size; +} LoadS; + + +static const char *getS (lua_State *L, void *ud, size_t *size) { + LoadS *ls = (LoadS *)ud; + (void)L; + if (ls->size == 0) return NULL; + *size = ls->size; + ls->size = 0; + return ls->s; +} + + +LUALIB_API int luaL_loadbuffer (lua_State *L, const char *buff, size_t size, + const char *name) { + LoadS ls; + ls.s = buff; + ls.size = size; + return lua_load(L, getS, &ls, name); +} + + +LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s) { + return luaL_loadbuffer(L, s, strlen(s), s); +} + + + +/* }====================================================== */ + + +static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { + (void)ud; + (void)osize; + if (nsize == 0) { + free(ptr); + return NULL; + } + else + return realloc(ptr, nsize); +} + + +static int panic (lua_State *L) { + (void)L; /* to avoid warnings */ + fprintf(stderr, "PANIC: unprotected error in call to Lua API (%s)\n", + lua_tostring(L, -1)); + return 0; +} + + +LUALIB_API lua_State *luaL_newstate (void) { + lua_State *L = lua_newstate(l_alloc, NULL); + if (L) lua_atpanic(L, &panic); + return L; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h new file mode 100644 index 00000000000..34258235dbe --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lauxlib.h @@ -0,0 +1,174 @@ +/* +** $Id: lauxlib.h,v 1.88.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions for building Lua libraries +** See Copyright Notice in lua.h +*/ + + +#ifndef lauxlib_h +#define lauxlib_h + + +#include +#include + +#include "lua.h" + + +#if defined(LUA_COMPAT_GETN) +LUALIB_API int (luaL_getn) (lua_State *L, int t); +LUALIB_API void (luaL_setn) (lua_State *L, int t, int n); +#else +#define luaL_getn(L,i) ((int)lua_objlen(L, i)) +#define luaL_setn(L,i,j) ((void)0) /* no op! */ +#endif + +#if defined(LUA_COMPAT_OPENLIB) +#define luaI_openlib luaL_openlib +#endif + + +/* extra error code for `luaL_load' */ +#define LUA_ERRFILE (LUA_ERRERR+1) + + +typedef struct luaL_Reg { + const char *name; + lua_CFunction func; +} luaL_Reg; + + + +LUALIB_API void (luaI_openlib) (lua_State *L, const char *libname, + const luaL_Reg *l, int nup); +LUALIB_API void (luaL_register) (lua_State *L, const char *libname, + const luaL_Reg *l); +LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname); +LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); +LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, + size_t *l); +LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, + const char *def, size_t *l); +LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); +LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); + +LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); +LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, + lua_Integer def); + +LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); +LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); +LUALIB_API void (luaL_checkany) (lua_State *L, int narg); + +LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); +LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); + +LUALIB_API void (luaL_where) (lua_State *L, int lvl); +LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); + +LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, + const char *const lst[]); + +LUALIB_API int (luaL_ref) (lua_State *L, int t); +LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); + +LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename); +LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, + const char *name); +LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); + +LUALIB_API lua_State *(luaL_newstate) (void); + + +LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, + const char *r); + +LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx, + const char *fname, int szhint); + + + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define luaL_argcheck(L, cond,numarg,extramsg) \ + ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) +#define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) +#define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) +#define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) +#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) +#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) +#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) + +#define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) + +#define luaL_dofile(L, fn) \ + (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_dostring(L, s) \ + (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) + +#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) + +/* +** {====================================================== +** Generic Buffer manipulation +** ======================================================= +*/ + + + +typedef struct luaL_Buffer { + char *p; /* current position in buffer */ + int lvl; /* number of strings in the stack (level) */ + lua_State *L; + char buffer[LUAL_BUFFERSIZE]; +} luaL_Buffer; + +#define luaL_addchar(B,c) \ + ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ + (*(B)->p++ = (char)(c))) + +/* compatibility only */ +#define luaL_putchar(B,c) luaL_addchar(B,c) + +#define luaL_addsize(B,n) ((B)->p += (n)) + +LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); +LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B); +LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); +LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); +LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); +LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); + + +/* }====================================================== */ + + +/* compatibility with ref system */ + +/* pre-defined references */ +#define LUA_NOREF (-2) +#define LUA_REFNIL (-1) + +#define lua_ref(L,lock) ((lock) ? luaL_ref(L, LUA_REGISTRYINDEX) : \ + (lua_pushstring(L, "unlocked references are obsolete"), lua_error(L), 0)) + +#define lua_unref(L,ref) luaL_unref(L, LUA_REGISTRYINDEX, (ref)) + +#define lua_getref(L,ref) lua_rawgeti(L, LUA_REGISTRYINDEX, (ref)) + + +#define luaL_reg luaL_Reg + +#endif + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c b/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c new file mode 100644 index 00000000000..94d28cfa0ed --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lbaselib.c @@ -0,0 +1,679 @@ +/* +** $Id: lbaselib.c,v 1.191.1.6 2008/02/14 16:46:22 roberto Exp $ +** Basic library +** See Copyright Notice in lua.h +*/ + + + +#include +#include +#include +#include + +#define lbaselib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#ifndef COCO_DISABLE +#include "lcoco.h" +#endif + + + + +/* +** If your system does not support `stdout', you can just remove this function. +** If you need, you can define your own `print' function, following this +** model but changing `fputs' to put the strings at a proper place +** (a console window or a log file, for instance). +*/ +static int luaB_print (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + int i; + lua_getglobal(L, "tostring"); + for (i=1; i<=n; i++) { + const char *s; + lua_pushvalue(L, -1); /* function to be called */ + lua_pushvalue(L, i); /* value to print */ + lua_call(L, 1, 1); + s = lua_tostring(L, -1); /* get result */ + if (s == NULL) + return luaL_error(L, LUA_QL("tostring") " must return a string to " + LUA_QL("print")); + if (i>1) fputs("\t", stdout); + fputs(s, stdout); + lua_pop(L, 1); /* pop result */ + } + fputs("\n", stdout); + return 0; +} + + +static int luaB_tonumber (lua_State *L) { + int base = luaL_optint(L, 2, 10); + if (base == 10) { /* standard conversion */ + luaL_checkany(L, 1); + if (lua_isnumber(L, 1)) { + lua_pushnumber(L, lua_tonumber(L, 1)); + return 1; + } + } + else { + const char *s1 = luaL_checkstring(L, 1); + char *s2; + unsigned long n; + luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); + n = strtoul(s1, &s2, base); + if (s1 != s2) { /* at least one valid digit? */ + while (isspace((unsigned char)(*s2))) s2++; /* skip trailing spaces */ + if (*s2 == '\0') { /* no invalid trailing characters? */ + lua_pushnumber(L, (lua_Number)n); + return 1; + } + } + } + lua_pushnil(L); /* else not a number */ + return 1; +} + + +static int luaB_error (lua_State *L) { + int level = luaL_optint(L, 2, 1); + lua_settop(L, 1); + if (lua_isstring(L, 1) && level > 0) { /* add extra information? */ + luaL_where(L, level); + lua_pushvalue(L, 1); + lua_concat(L, 2); + } + return lua_error(L); +} + + +static int luaB_getmetatable (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_getmetatable(L, 1)) { + lua_pushnil(L); + return 1; /* no metatable */ + } + luaL_getmetafield(L, 1, "__metatable"); + return 1; /* returns either __metatable field (if present) or metatable */ +} + + +static int luaB_setmetatable (lua_State *L) { + int t = lua_type(L, 2); + luaL_checktype(L, 1, LUA_TTABLE); + luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, + "nil or table expected"); + if (luaL_getmetafield(L, 1, "__metatable")) + luaL_error(L, "cannot change a protected metatable"); + lua_settop(L, 2); + lua_setmetatable(L, 1); + return 1; +} + + +static void getfunc (lua_State *L, int opt) { + if (lua_isfunction(L, 1)) lua_pushvalue(L, 1); + else { + lua_Debug ar; + int level = opt ? luaL_optint(L, 1, 1) : luaL_checkint(L, 1); + luaL_argcheck(L, level >= 0, 1, "level must be non-negative"); + if (lua_getstack(L, level, &ar) == 0) + luaL_argerror(L, 1, "invalid level"); + lua_getinfo(L, "f", &ar); + if (lua_isnil(L, -1)) + luaL_error(L, "no function environment for tail call at level %d", + level); + } +} + + +static int luaB_getfenv (lua_State *L) { + getfunc(L, 1); + if (lua_iscfunction(L, -1)) /* is a C function? */ + lua_pushvalue(L, LUA_GLOBALSINDEX); /* return the thread's global env. */ + else + lua_getfenv(L, -1); + return 1; +} + + +static int luaB_setfenv (lua_State *L) { + luaL_checktype(L, 2, LUA_TTABLE); + getfunc(L, 0); + lua_pushvalue(L, 2); + if (lua_isnumber(L, 1) && lua_tonumber(L, 1) == 0) { + /* change environment of current thread */ + lua_pushthread(L); + lua_insert(L, -2); + lua_setfenv(L, -2); + return 0; + } + else if (lua_iscfunction(L, -2) || lua_setfenv(L, -2) == 0) + luaL_error(L, + LUA_QL("setfenv") " cannot change environment of given object"); + return 1; +} + + +static int luaB_rawequal (lua_State *L) { + luaL_checkany(L, 1); + luaL_checkany(L, 2); + lua_pushboolean(L, lua_rawequal(L, 1, 2)); + return 1; +} + + +static int luaB_rawget (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checkany(L, 2); + lua_settop(L, 2); + lua_rawget(L, 1); + return 1; +} + +static int luaB_rawset (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checkany(L, 2); + luaL_checkany(L, 3); + lua_settop(L, 3); + lua_rawset(L, 1); + return 1; +} + + +static int luaB_gcinfo (lua_State *L) { + lua_pushinteger(L, lua_getgccount(L)); + return 1; +} + + +static int luaB_collectgarbage (lua_State *L) { + static const char *const opts[] = {"stop", "restart", "collect", + "count", "step", "setpause", "setstepmul", NULL}; + static const int optsnum[] = {LUA_GCSTOP, LUA_GCRESTART, LUA_GCCOLLECT, + LUA_GCCOUNT, LUA_GCSTEP, LUA_GCSETPAUSE, LUA_GCSETSTEPMUL}; + int o = luaL_checkoption(L, 1, "collect", opts); + int ex = luaL_optint(L, 2, 0); + int res = lua_gc(L, optsnum[o], ex); + switch (optsnum[o]) { + case LUA_GCCOUNT: { + int b = lua_gc(L, LUA_GCCOUNTB, 0); + lua_pushnumber(L, res + ((lua_Number)b/1024)); + return 1; + } + case LUA_GCSTEP: { + lua_pushboolean(L, res); + return 1; + } + default: { + lua_pushnumber(L, res); + return 1; + } + } +} + + +static int luaB_type (lua_State *L) { + luaL_checkany(L, 1); + lua_pushstring(L, luaL_typename(L, 1)); + return 1; +} + + +static int luaB_next (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); /* create a 2nd argument if there isn't one */ + if (lua_next(L, 1)) + return 2; + else { + lua_pushnil(L); + return 1; + } +} + + +static int luaB_pairs (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushvalue(L, lua_upvalueindex(1)); /* return generator, */ + lua_pushvalue(L, 1); /* state, */ + lua_pushnil(L); /* and initial value */ + return 3; +} + + +static int ipairsaux (lua_State *L) { + int i = luaL_checkint(L, 2); + luaL_checktype(L, 1, LUA_TTABLE); + i++; /* next value */ + lua_pushinteger(L, i); + lua_rawgeti(L, 1, i); + return (lua_isnil(L, -1)) ? 0 : 2; +} + + +static int luaB_ipairs (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushvalue(L, lua_upvalueindex(1)); /* return generator, */ + lua_pushvalue(L, 1); /* state, */ + lua_pushinteger(L, 0); /* and initial value */ + return 3; +} + + +static int load_aux (lua_State *L, int status) { + if (status == 0) /* OK? */ + return 1; + else { + lua_pushnil(L); + lua_insert(L, -2); /* put before error message */ + return 2; /* return nil plus error message */ + } +} + + +static int luaB_loadstring (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + const char *chunkname = luaL_optstring(L, 2, s); + return load_aux(L, luaL_loadbuffer(L, s, l, chunkname)); +} + + +static int luaB_loadfile (lua_State *L) { + const char *fname = luaL_optstring(L, 1, NULL); + return load_aux(L, luaL_loadfile(L, fname)); +} + + +/* +** Reader for generic `load' function: `lua_load' uses the +** stack for internal stuff, so the reader cannot change the +** stack top. Instead, it keeps its resulting string in a +** reserved slot inside the stack. +*/ +static const char *generic_reader (lua_State *L, void *ud, size_t *size) { + (void)ud; /* to avoid warnings */ + luaL_checkstack(L, 2, "too many nested functions"); + lua_pushvalue(L, 1); /* get function */ + lua_call(L, 0, 1); /* call it */ + if (lua_isnil(L, -1)) { + *size = 0; + return NULL; + } + else if (lua_isstring(L, -1)) { + lua_replace(L, 3); /* save string in a reserved stack slot */ + return lua_tolstring(L, 3, size); + } + else luaL_error(L, "reader function must return a string"); + return NULL; /* to avoid warnings */ +} + + +static int luaB_load (lua_State *L) { + int status; + const char *cname = luaL_optstring(L, 2, "=(load)"); + luaL_checktype(L, 1, LUA_TFUNCTION); + lua_settop(L, 3); /* function, eventual name, plus one reserved slot */ + status = lua_load(L, generic_reader, NULL, cname); + return load_aux(L, status); +} + + +static int luaB_dofile (lua_State *L) { + const char *fname = luaL_optstring(L, 1, NULL); + int n = lua_gettop(L); + if (luaL_loadfile(L, fname) != 0) lua_error(L); + lua_call(L, 0, LUA_MULTRET); + return lua_gettop(L) - n; +} + + +static int luaB_assert (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_toboolean(L, 1)) + return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!")); + return lua_gettop(L); +} + + +static int luaB_unpack (lua_State *L) { + int i, e, n; + luaL_checktype(L, 1, LUA_TTABLE); + i = luaL_optint(L, 2, 1); + e = luaL_opt(L, luaL_checkint, 3, luaL_getn(L, 1)); + if (i > e) return 0; /* empty range */ + n = e - i + 1; /* number of elements */ + if (n <= 0 || !lua_checkstack(L, n)) /* n <= 0 means arith. overflow */ + return luaL_error(L, "too many results to unpack"); + lua_rawgeti(L, 1, i); /* push arg[i] (avoiding overflow problems) */ + while (i++ < e) /* push arg[i + 1...e] */ + lua_rawgeti(L, 1, i); + return n; +} + + +static int luaB_select (lua_State *L) { + int n = lua_gettop(L); + if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') { + lua_pushinteger(L, n-1); + return 1; + } + else { + int i = luaL_checkint(L, 1); + if (i < 0) i = n + i; + else if (i > n) i = n; + luaL_argcheck(L, 1 <= i, 1, "index out of range"); + return n - i; + } +} + + +static int luaB_pcall (lua_State *L) { + int status; + luaL_checkany(L, 1); + status = lua_pcall(L, lua_gettop(L) - 1, LUA_MULTRET, 0); + lua_pushboolean(L, (status == 0)); + lua_insert(L, 1); + return lua_gettop(L); /* return status + all results */ +} + + +static int luaB_xpcall (lua_State *L) { + int status; + luaL_checkany(L, 2); + lua_settop(L, 2); + lua_insert(L, 1); /* put error function under function to be called */ + status = lua_pcall(L, 0, LUA_MULTRET, 1); + lua_pushboolean(L, (status == 0)); + lua_replace(L, 1); + return lua_gettop(L); /* return status + all results */ +} + + +static int luaB_tostring (lua_State *L) { + luaL_checkany(L, 1); + if (luaL_callmeta(L, 1, "__tostring")) /* is there a metafield? */ + return 1; /* use its value */ + switch (lua_type(L, 1)) { + case LUA_TNUMBER: + lua_pushstring(L, lua_tostring(L, 1)); + break; + case LUA_TSTRING: + lua_pushvalue(L, 1); + break; + case LUA_TBOOLEAN: + lua_pushstring(L, (lua_toboolean(L, 1) ? "true" : "false")); + break; + case LUA_TNIL: + lua_pushliteral(L, "nil"); + break; + default: + lua_pushfstring(L, "%s: %p", luaL_typename(L, 1), lua_topointer(L, 1)); + break; + } + return 1; +} + + +static int luaB_newproxy (lua_State *L) { + lua_settop(L, 1); + lua_newuserdata(L, 0); /* create proxy */ + if (lua_toboolean(L, 1) == 0) + return 1; /* no metatable */ + else if (lua_isboolean(L, 1)) { + lua_newtable(L); /* create a new metatable `m' ... */ + lua_pushvalue(L, -1); /* ... and mark `m' as a valid metatable */ + lua_pushboolean(L, 1); + lua_rawset(L, lua_upvalueindex(1)); /* weaktable[m] = true */ + } + else { + int validproxy = 0; /* to check if weaktable[metatable(u)] == true */ + if (lua_getmetatable(L, 1)) { + lua_rawget(L, lua_upvalueindex(1)); + validproxy = lua_toboolean(L, -1); + lua_pop(L, 1); /* remove value */ + } + luaL_argcheck(L, validproxy, 1, "boolean or proxy expected"); + lua_getmetatable(L, 1); /* metatable is valid; get it */ + } + lua_setmetatable(L, 2); + return 1; +} + + +static const luaL_Reg base_funcs[] = { + {"assert", luaB_assert}, + {"collectgarbage", luaB_collectgarbage}, + {"dofile", luaB_dofile}, + {"error", luaB_error}, + {"gcinfo", luaB_gcinfo}, + {"getfenv", luaB_getfenv}, + {"getmetatable", luaB_getmetatable}, + {"loadfile", luaB_loadfile}, + {"load", luaB_load}, + {"loadstring", luaB_loadstring}, + {"next", luaB_next}, + {"pcall", luaB_pcall}, + {"print", luaB_print}, + {"rawequal", luaB_rawequal}, + {"rawget", luaB_rawget}, + {"rawset", luaB_rawset}, + {"select", luaB_select}, + {"setfenv", luaB_setfenv}, + {"setmetatable", luaB_setmetatable}, + {"tonumber", luaB_tonumber}, + {"tostring", luaB_tostring}, + {"type", luaB_type}, + {"unpack", luaB_unpack}, + {"xpcall", luaB_xpcall}, + {NULL, NULL} +}; + + +/* +** {====================================================== +** Coroutine library +** ======================================================= +*/ + +#define CO_RUN 0 /* running */ +#define CO_SUS 1 /* suspended */ +#define CO_NOR 2 /* 'normal' (it resumed another coroutine) */ +#define CO_DEAD 3 + +static const char *const statnames[] = + {"running", "suspended", "normal", "dead"}; + +static int costatus (lua_State *L, lua_State *co) { + if (L == co) return CO_RUN; + switch (lua_status(co)) { + case LUA_YIELD: + return CO_SUS; + case 0: { + lua_Debug ar; + if (lua_getstack(co, 0, &ar) > 0) /* does it have frames? */ + return CO_NOR; /* it is running */ + else if (lua_gettop(co) == 0) + return CO_DEAD; + else + return CO_SUS; /* initial state */ + } + default: /* some error occured */ + return CO_DEAD; + } +} + + +static int luaB_costatus (lua_State *L) { + lua_State *co = lua_tothread(L, 1); + luaL_argcheck(L, co, 1, "coroutine expected"); + lua_pushstring(L, statnames[costatus(L, co)]); + return 1; +} + + +static int auxresume (lua_State *L, lua_State *co, int narg) { + int status = costatus(L, co); + if (!lua_checkstack(co, narg)) + luaL_error(L, "too many arguments to resume"); + if (status != CO_SUS) { + lua_pushfstring(L, "cannot resume %s coroutine", statnames[status]); + return -1; /* error flag */ + } + lua_xmove(L, co, narg); + status = lua_resume(co, narg); + if (status == 0 || status == LUA_YIELD) { + int nres = lua_gettop(co); + if (!lua_checkstack(L, nres + 1)) + luaL_error(L, "too many results to resume"); + lua_xmove(co, L, nres); /* move yielded values */ + return nres; + } + else { + lua_xmove(co, L, 1); /* move error message */ + return -1; /* error flag */ + } +} + + +static int luaB_coresume (lua_State *L) { + lua_State *co = lua_tothread(L, 1); + int r; + luaL_argcheck(L, co, 1, "coroutine expected"); + r = auxresume(L, co, lua_gettop(L) - 1); + if (r < 0) { + lua_pushboolean(L, 0); + lua_insert(L, -2); + return 2; /* return false + error message */ + } + else { + lua_pushboolean(L, 1); + lua_insert(L, -(r + 1)); + return r + 1; /* return true + `resume' returns */ + } +} + + +static int luaB_auxwrap (lua_State *L) { + lua_State *co = lua_tothread(L, lua_upvalueindex(1)); + int r = auxresume(L, co, lua_gettop(L)); + if (r < 0) { + if (lua_isstring(L, -1)) { /* error object is a string? */ + luaL_where(L, 1); /* add extra info */ + lua_insert(L, -2); + lua_concat(L, 2); + } + lua_error(L); /* propagate error */ + } + return r; +} + + +#ifndef COCO_DISABLE +static int luaB_cstacksize (lua_State *L) +{ + lua_pushinteger(L, luaCOCO_cstacksize(luaL_optint(L, 1, -1))); + return 1; +} +#endif + + +static int luaB_cocreate (lua_State *L) { +#ifdef COCO_DISABLE + lua_State *NL = lua_newthread(L); + luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1, + "Lua function expected"); +#else + int cstacksize = luaL_optint(L, 2, 0); + lua_State *NL = lua_newcthread(L, cstacksize); + luaL_argcheck(L, lua_isfunction(L, 1) && + (cstacksize >= 0 ? 1 : !lua_iscfunction(L, 1)), + 1, "Lua function expected"); +#endif + lua_pushvalue(L, 1); /* move function to top */ + lua_xmove(L, NL, 1); /* move function from L to NL */ + return 1; +} + + +static int luaB_cowrap (lua_State *L) { + luaB_cocreate(L); + lua_pushcclosure(L, luaB_auxwrap, 1); + return 1; +} + + +static int luaB_yield (lua_State *L) { + return lua_yield(L, lua_gettop(L)); +} + + +static int luaB_corunning (lua_State *L) { + if (lua_pushthread(L)) + lua_pushnil(L); /* main thread is not a coroutine */ + return 1; +} + + +static const luaL_Reg co_funcs[] = { + {"create", luaB_cocreate}, + {"resume", luaB_coresume}, + {"running", luaB_corunning}, + {"status", luaB_costatus}, + {"wrap", luaB_cowrap}, + {"yield", luaB_yield}, +#ifndef COCO_DISABLE + {"cstacksize", luaB_cstacksize}, +#endif + {NULL, NULL} +}; + +/* }====================================================== */ + + +static void auxopen (lua_State *L, const char *name, + lua_CFunction f, lua_CFunction u) { + lua_pushcfunction(L, u); + lua_pushcclosure(L, f, 1); + lua_setfield(L, -2, name); +} + + +static void base_open (lua_State *L) { + /* set global _G */ + lua_pushvalue(L, LUA_GLOBALSINDEX); + lua_setglobal(L, "_G"); + /* open lib into global table */ + luaL_register(L, "_G", base_funcs); + lua_pushliteral(L, LUA_VERSION); + lua_setglobal(L, "_VERSION"); /* set global _VERSION */ + /* `ipairs' and `pairs' need auxiliary functions as upvalues */ + auxopen(L, "ipairs", luaB_ipairs, ipairsaux); + auxopen(L, "pairs", luaB_pairs, luaB_next); + /* `newproxy' needs a weaktable as upvalue */ + lua_createtable(L, 0, 1); /* new table `w' */ + lua_pushvalue(L, -1); /* `w' will be its own metatable */ + lua_setmetatable(L, -2); + lua_pushliteral(L, "kv"); + lua_setfield(L, -2, "__mode"); /* metatable(w).__mode = "kv" */ + lua_pushcclosure(L, luaB_newproxy, 1); + lua_setglobal(L, "newproxy"); /* set global `newproxy' */ +} + + +LUALIB_API int luaopen_base (lua_State *L) { + base_open(L); + luaL_register(L, LUA_COLIBNAME, co_funcs); +#ifndef COCO_DISABLE + lua_pushboolean(L, 1); + lua_setfield(L, -2, "coco"); +#endif + return 2; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcoco.c b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c new file mode 100644 index 00000000000..c3acc685513 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c @@ -0,0 +1,693 @@ +/* +** Copyright (C) 2004-2011 Mike Pall. All rights reserved. +** +** Permission is hereby granted, free of charge, to any person obtaining +** a copy of this software and associated documentation files (the +** "Software"), to deal in the Software without restriction, including +** without limitation the rights to use, copy, modify, merge, publish, +** distribute, sublicense, and/or sell copies of the Software, and to +** permit persons to whom the Software is furnished to do so, subject to +** the following conditions: +** +** The above copyright notice and this permission notice shall be +** included in all copies or substantial portions of the Software. +** +** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +** +** [ MIT license: http://www.opensource.org/licenses/mit-license.php ] +*/ + +/* Coco -- True C coroutines for Lua. http://luajit.org/coco.html */ +#ifndef COCO_DISABLE + +#define lcoco_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lvm.h" +#include "lgc.h" + + +/* +** Define this if you want to run Coco with valgrind. You will get random +** errors about accessing memory from newly allocated C stacks if you don't. +** You need at least valgrind 3.0 for this to work. +** +** This macro evaluates to a no-op if not run with valgrind. I.e. you can +** use the same binary for regular runs, too (without a performance loss). +*/ +#ifdef USE_VALGRIND +#include +#define STACK_REG(coco, p, sz) (coco)->vgid = VALGRIND_STACK_REGISTER(p, p+sz); +#define STACK_DEREG(coco) VALGRIND_STACK_DEREGISTER((coco)->vgid); +#define STACK_VGID unsigned int vgid; +#else +#define STACK_REG(coco, p, sz) +#define STACK_DEREG(id) +#define STACK_VGID +#endif + +/* ------------------------------------------------------------------------ */ + +/* Use Windows Fibers. */ +#if defined(COCO_USE_FIBERS) + +#define _WIN32_WINNT 0x0400 +#include + +#define COCO_MAIN_DECL CALLBACK + +typedef LPFIBER_START_ROUTINE coco_MainFunc; + +#define COCO_NEW(OL, NL, cstacksize, mainfunc) \ + if ((L2COCO(NL)->fib = CreateFiber(cstacksize, mainfunc, NL)) == NULL) \ + luaD_throw(OL, LUA_ERRMEM); + +#define COCO_FREE(L) \ + DeleteFiber(L2COCO(L)->fib); \ + L2COCO(L)->fib = NULL; + +/* See: http://blogs.msdn.com/oldnewthing/archive/2004/12/31/344799.aspx */ +#define COCO_JUMPIN(coco) \ + { void *cur = GetCurrentFiber(); \ + coco->back = (cur == NULL || cur == (void *)0x1e00) ? \ + ConvertThreadToFiber(NULL) : cur; } \ + SwitchToFiber(coco->fib); + +#define COCO_JUMPOUT(coco) \ + SwitchToFiber(coco->back); + +/* CreateFiber() defaults to STACKSIZE from the Windows module .def file. */ +#define COCO_DEFAULT_CSTACKSIZE 0 + +/* ------------------------------------------------------------------------ */ + +#else /* !COCO_USE_FIBERS */ + +#ifndef COCO_USE_UCONTEXT + +/* Try inline asm first. */ +#if __GNUC__ >= 3 && !defined(COCO_USE_SETJMP) + +#if defined(__i386) || defined(__i386__) + +#ifdef __PIC__ +typedef void *coco_ctx[4]; /* eip, esp, ebp, ebx */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "call 1f\n" "1:\tpopl %%eax\n\t" "addl $(2f-1b),%%eax\n\t" + "movl %%eax, (%0)\n\t" "movl %%esp, 4(%0)\n\t" + "movl %%ebp, 8(%0)\n\t" "movl %%ebx, 12(%0)\n\t" + "movl 12(%1), %%ebx\n\t" "movl 8(%1), %%ebp\n\t" + "movl 4(%1), %%esp\n\t" "jmp *(%1)\n" "2:\n" + : "+S" (from), "+D" (to) : : "eax", "ecx", "edx", "memory", "cc"); +} +#else +typedef void *coco_ctx[3]; /* eip, esp, ebp */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "movl $1f, (%0)\n\t" "movl %%esp, 4(%0)\n\t" "movl %%ebp, 8(%0)\n\t" + "movl 8(%1), %%ebp\n\t" "movl 4(%1), %%esp\n\t" "jmp *(%1)\n" "1:\n" + : "+S" (from), "+D" (to) : : "eax", "ebx", "ecx", "edx", "memory", "cc"); +} +#endif + +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)0; \ + stack[0] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); +#define COCO_STATE_HEAD size_t arg0; + +#elif defined(__x86_64__) + +static void coco_wrap_main(void) +{ + __asm__ __volatile__ ("\tmovq %r13, %rdi\n\tjmpq *%r12\n"); +} + +typedef void *coco_ctx[8]; /* rip, rsp, rbp, rbx, r12, r13, r14, r15 */ +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + __asm__ __volatile__ ( + "leaq 1f(%%rip), %%rax\n\t" + "movq %%rax, (%0)\n\t" "movq %%rsp, 8(%0)\n\t" "movq %%rbp, 16(%0)\n\t" + "movq %%rbx, 24(%0)\n\t" "movq %%r12, 32(%0)\n\t" "movq %%r13, 40(%0)\n\t" + "movq %%r14, 48(%0)\n\t" "movq %%r15, 56(%0)\n\t" + "movq 56(%1), %%r15\n\t" "movq 48(%1), %%r14\n\t" "movq 40(%1), %%r13\n\t" + "movq 32(%1), %%r12\n\t" "movq 24(%1), %%rbx\n\t" "movq 16(%1), %%rbp\n\t" + "movq 8(%1), %%rsp\n\t" "jmpq *(%1)\n" "1:\n" + : "+S" (from), "+D" (to) : + : "rax", "rcx", "rdx", "r8", "r9", "r10", "r11", "memory", "cc"); +} + +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(coco_wrap_main); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)0; \ + buf[3] = (void *)0; \ + buf[4] = (void *)(func); \ + buf[5] = (void *)(a0); \ + buf[6] = (void *)0; \ + buf[7] = (void *)0; \ + stack[0] = 0xdeadc0c0deadc0c0; /* Dummy return address. */ \ + +#elif __mips && _MIPS_SIM == _MIPS_SIM_ABI32 && !defined(__mips_eabi) + +/* No way to avoid the function prologue with inline assembler. So use this: */ +static const unsigned int coco_switch[] = { +#ifdef __mips_soft_float +#define COCO_STACKSAVE -10 + 0x27bdffd8, /* addiu sp, sp, -(10*4) */ +#else +#define COCO_STACKSAVE -22 + 0x27bdffa8, /* addiu sp, sp, -(10*4+6*8) */ + /* sdc1 {$f20-$f30}, offset(sp) */ + 0xf7be0050, 0xf7bc0048, 0xf7ba0040, 0xf7b80038, 0xf7b60030, 0xf7b40028, +#endif + /* sw {gp,s0-s8}, offset(sp) */ + 0xafbe0024, 0xafb70020, 0xafb6001c, 0xafb50018, 0xafb40014, 0xafb30010, + 0xafb2000c, 0xafb10008, 0xafb00004, 0xafbc0000, + /* sw sp, 4(a0); sw ra, 0(a0); lw ra, 0(a1); lw sp, 4(a1); move t9, ra */ + 0xac9d0004, 0xac9f0000, 0x8cbf0000, 0x8cbd0004, 0x03e0c821, + /* lw caller-saved-reg, offset(sp) */ + 0x8fbe0024, 0x8fb70020, 0x8fb6001c, 0x8fb50018, 0x8fb40014, 0x8fb30010, + 0x8fb2000c, 0x8fb10008, 0x8fb00004, 0x8fbc0000, +#ifdef __mips_soft_float + 0x03e00008, 0x27bd0028 /* jr ra; addiu sp, sp, 10*4 */ +#else + /* ldc1 {$f20-$f30}, offset(sp) */ + 0xd7be0050, 0xd7bc0048, 0xd7ba0040, 0xd7b80038, 0xd7b60030, 0xd7b40028, + 0x03e00008, 0x27bd0058 /* jr ra; addiu sp, sp, 10*4+6*8 */ +#endif +}; + +typedef void *coco_ctx[2]; /* ra, sp */ +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) \ + ((void (*)(coco_ctx, coco_ctx))coco_switch)(from, to); +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)&stack[COCO_STACKSAVE]; \ + stack[4] = (size_t)(a0); /* Assumes o32 ABI. */ +#define COCO_STACKADJUST 8 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L + +#elif defined(__sparc__) + +typedef void *coco_ctx[4]; +#define COCO_CTX coco_ctx +#define COCO_SWITCH(from, to) coco_switch(from, to); +#define COCO_STACKADJUST 24 + +#if defined(__LP64__) +#define COCO_STACKBIAS (2047UL) +#define COCO_PTR2SP(stack) (((unsigned long)stack)-COCO_STACKBIAS) +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + void *__stack[16] __attribute__((aligned (16))); + unsigned long __tmp_sp = COCO_PTR2SP(__stack); + __asm__ __volatile__ + (/* Flush register window(s) to stack and save the previous stack + pointer to capture the current registers, %l0-%l7 and %i0-%i7. */ + "ta 3\n\t" + "stx %%sp,[%0+8]\n\t" + /* Move to a temporary stack. If the register window is flushed + for some reason (e.g. context switch), not the next stack + but the temporary stack should be used so as not to break + neither the previous nor next stack */ + "mov %2,%%sp\n\t" + "sethi %%hh(1f),%%g1\n\t" /* i.e. setx 1f,%%g1 */ + "or %%g1,%%hm(1f),%%g1\n\t" + "sethi %%lm(1f),%%g2\n\t" + "or %%g2,%%lo(1f),%%g2\n\t" + "sllx %%g1,32,%%g1\n\t" + "or %%g1,%%g2,%%g1\n\t" + "stx %%g1,[%0]\n\t" + /* Restore registers from stack. DO NOT load the next stack + pointer directly to %sp. The register window can be possibly + flushed and restored asynchronous (e.g. context switch). */ + "mov %1,%%o1\n\t" + "ldx [%%o1+8],%%o2\n\t" + "ldx [%%o2+%3],%%l0\n\t" + "ldx [%%o2+%3+8],%%l1\n\t" + "ldx [%%o2+%3+0x10],%%l2\n\t" + "ldx [%%o2+%3+0x18],%%l3\n\t" + "ldx [%%o2+%3+0x20],%%l4\n\t" + "ldx [%%o2+%3+0x28],%%l5\n\t" + "ldx [%%o2+%3+0x30],%%l6\n\t" + "ldx [%%o2+%3+0x38],%%l7\n\t" + "ldx [%%o2+%3+0x40],%%i0\n\t" + "ldx [%%o2+%3+0x48],%%i1\n\t" + "ldx [%%o2+%3+0x50],%%i2\n\t" + "ldx [%%o2+%3+0x58],%%i3\n\t" + "ldx [%%o2+%3+0x60],%%i4\n\t" + "ldx [%%o2+%3+0x68],%%i5\n\t" + "ldx [%%o2+%3+0x70],%%i6\n\t" + "ldx [%%o2+%3+0x78],%%i7\n\t" + /* Move to the next stack with the consistent registers atomically */ + "mov %%o2,%%sp\n\t" + "ldx [%%o1],%%o2\n\t" + /* Since %o0-%o7 are marked as clobbered, values are safely overwritten + across the inline assembly. %o0-%o7 will have meaningless values + after leaving the inline assembly. The only exception is %o0, which + serves as an argument to coco_main */ + "ldx [%%o1+16],%%o0\n\t" + "jmpl %%o2,%%g0\n\t" + "nop\n\t" + "1:\n" + /* An assumption is made here; no input operand is assigned to %g1 + nor %g2. It's the case for the currently avilable gcc's */ + : : "r"(from),"r"(to),"r"(__tmp_sp),"i"(COCO_STACKBIAS) + : "g1","g2","o0","o1","o2","o3","o4","o5","o7","memory","cc"); +} + +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)COCO_PTR2SP(&(stack)[0]); \ + buf[2] = (void *)(a0); \ + stack[0] = 0; \ + stack[1] = 0; \ + stack[2] = 0; \ + stack[3] = 0; \ + stack[4] = 0; \ + stack[5] = 0; \ + stack[6] = 0; \ + stack[7] = 0; \ + stack[8] = 0; \ + stack[9] = 0; \ + stack[10] = 0; \ + stack[11] = 0; \ + stack[12] = 0; \ + stack[13] = 0; \ + stack[14] = COCO_PTR2SP(&(stack)[COCO_STACKADJUST]); \ + stack[15] = 0xdeadc0c0deadc0c0; /* Dummy return address. */ \ + +#else +static inline void coco_switch(coco_ctx from, coco_ctx to) +{ + void *__tmp_stack[16] __attribute__((aligned (16))); + __asm__ __volatile__ + ("ta 3\n\t" + "st %%sp,[%0+4]\n\t" + "mov %2,%%sp\n\t" + "set 1f,%%g1\n\t" + "st %%g1,[%0]\n\t" + "mov %1,%%o1\n\t" + "ld [%%o1+4],%%o2\n\t" + "ldd [%%o2],%%l0\n\t" + "ldd [%%o2+8],%%l2\n\t" + "ldd [%%o2+0x10],%%l4\n\t" + "ldd [%%o2+0x18],%%l6\n\t" + "ldd [%%o2+0x20],%%i0\n\t" + "ldd [%%o2+0x28],%%i2\n\t" + "ldd [%%o2+0x30],%%i4\n\t" + "ldd [%%o2+0x38],%%i6\n\t" + "mov %%o2,%%sp\n\t" + "ld [%%o1],%%o2\n\t" + "ld [%%o1+8],%%o0\n\t" + "jmpl %%o2,%%g0\n\t" + "nop\n\t" + "1:\n" + : : "r"(from),"r"(to),"r"(__tmp_stack) + : "g1","o0","o1","o2","o3","o4","o5","o7","memory","cc"); +} + +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + buf[0] = (void *)(func); \ + buf[1] = (void *)(stack); \ + buf[2] = (void *)(a0); \ + stack[0] = 0; \ + stack[1] = 0; \ + stack[2] = 0; \ + stack[3] = 0; \ + stack[4] = 0; \ + stack[5] = 0; \ + stack[6] = 0; \ + stack[7] = 0; \ + stack[8] = 0; \ + stack[9] = 0; \ + stack[10] = 0; \ + stack[11] = 0; \ + stack[12] = 0; \ + stack[13] = 0; \ + stack[14] = (size_t)&stack[COCO_STACKADJUST]; \ + stack[15] = 0xdeadc0c0; /* Dummy return address. */ \ + +#endif /* !define(__LP64__) */ + +#endif /* arch check */ + +#endif /* !(__GNUC__ >= 3 && !defined(COCO_USE_SETJMP)) */ + +/* Try _setjmp/_longjmp with a patched jump buffer. */ +#ifndef COCO_MAKECTX +#include + +/* Check for supported CPU+OS combinations. */ +#if defined(__i386) || defined(__i386__) + +#define COCO_STATE_HEAD size_t arg0; +#define COCO_SETJMP_X86(coco, stack, a0) \ + stack[COCO_STACKADJUST-1] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); + +#if __GLIBC__ == 2 && defined(JB_SP) /* x86-linux-glibc2 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf[JB_PC] = (int)(func); \ + buf->__jmpbuf[JB_SP] = (int)(stack); \ + buf->__jmpbuf[JB_BP] = 0; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__linux__) && defined(_I386_JMP_BUF_H) /* x86-linux-libc5 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__pc = (func); \ + buf->__sp = (stack); \ + buf->__bp = NULL; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__FreeBSD__) /* x86-FreeBSD */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->_jb[0] = (long)(func); \ + buf->_jb[2] = (long)(stack); \ + buf->_jb[3] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#define COCO_STACKADJUST 2 +#elif defined(__NetBSD__) || defined(__OpenBSD__) /* x86-NetBSD, x86-OpenBSD */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[0] = (long)(func); \ + buf[2] = (long)(stack); \ + buf[3] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#define COCO_STACKADJUST 2 +#elif defined(__solaris__) && _JBLEN == 10 /* x86-solaris */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[5] = (int)(func); \ + buf[4] = (int)(stack); \ + buf[3] = 0; \ + COCO_SETJMP_X86(coco, stack, a0) +#elif defined(__MACH__) && defined(_BSD_I386_SETJMP_H) /* x86-macosx */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[12] = (int)(func); \ + buf[9] = (int)(stack); \ + buf[8] = 0; /* ebp */ \ + COCO_SETJMP_X86(coco, stack, a0) +#endif + +#elif defined(__x86_64__) || defined(__x86_64) + +#define COCO_STATE_HEAD size_t arg0; + +#define COCO_MAIN_PARAM \ + int _a, int _b, int _c, int _d, int _e, int _f, lua_State *L + +#if defined(__solaris__) && _JBLEN == 8 /* x64-solaris */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[7] = (long)(func); \ + buf[6] = (long)(stack); \ + buf[5] = 0; \ + stack[0] = 0xdeadc0c0; /* Dummy return address. */ \ + coco->arg0 = (size_t)(a0); +#endif + +#elif defined(PPC) || defined(__ppc__) || defined(__PPC__) || \ + defined(__powerpc__) || defined(__POWERPC__) || defined(_ARCH_PPC) + +#define COCO_STACKADJUST 16 +#define COCO_MAIN_PARAM \ + int _a, int _b, int _c, int _d, int _e, int _f, int _g, int _h, lua_State *L + +#if defined(__MACH__) && defined(_BSD_PPC_SETJMP_H_) /* ppc32-macosx */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf[21] = (int)(func); \ + buf[0] = (int)(stack); \ + stack[6+8] = (size_t)(a0); +#endif + +#elif (defined(MIPS) || defined(MIPSEL) || defined(__mips)) && \ + _MIPS_SIM == _MIPS_SIM_ABI32 && !defined(__mips_eabi) + +/* Stack layout for o32 ABI. */ +#define COCO_STACKADJUST 8 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L + +#if __GLIBC__ == 2 || defined(__UCLIBC__) /* mips32-linux-glibc2 */ +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf->__pc = (func); /* = t9 in _longjmp. Reqd. for -mabicalls. */ \ + buf->__jmpbuf->__sp = (stack); \ + buf->__jmpbuf->__fp = (void *)0; \ + stack[4] = (size_t)(a0); +#endif + +#elif defined(__arm__) || defined(__ARM__) + +#if __GLIBC__ == 2 || defined(__UCLIBC__) /* arm-linux-glibc2 */ +#ifndef __JMP_BUF_SP +#define __JMP_BUF_SP ((sizeof(__jmp_buf)/sizeof(int))-2) +#endif +#define COCO_PATCHCTX(coco, buf, func, stack, a0) \ + buf->__jmpbuf[__JMP_BUF_SP+1] = (int)(func); /* pc */ \ + buf->__jmpbuf[__JMP_BUF_SP] = (int)(stack); /* sp */ \ + buf->__jmpbuf[__JMP_BUF_SP-1] = 0; /* fp */ \ + stack[0] = (size_t)(a0); +#define COCO_STACKADJUST 2 +#define COCO_MAIN_PARAM int _a, int _b, int _c, int _d, lua_State *L +#endif + +#endif /* arch check */ + +#ifdef COCO_PATCHCTX +#define COCO_CTX jmp_buf +#define COCO_MAKECTX(coco, buf, func, stack, a0) \ + _setjmp(buf); COCO_PATCHCTX(coco, buf, func, stack, a0) +#define COCO_SWITCH(from, to) if (!_setjmp(from)) _longjmp(to, 1); +#endif + +#endif /* !defined(COCO_MAKECTX) */ + +#endif /* !defined(COCO_USE_UCONTEXT) */ + +/* ------------------------------------------------------------------------ */ + +/* Use inline asm or _setjmp/_longjmp if available. */ +#ifdef COCO_MAKECTX + +#ifndef COCO_STACKADJUST +#define COCO_STACKADJUST 1 +#endif + +#define COCO_FILL(coco, NL, mainfunc) \ +{ /* Include the return address to get proper stack alignment. */ \ + size_t *stackptr = &((size_t *)coco)[-COCO_STACKADJUST]; \ + COCO_MAKECTX(coco, coco->ctx, mainfunc, stackptr, NL) \ +} + +/* ------------------------------------------------------------------------ */ + +/* Else fallback to ucontext. Slower, because it saves/restores signals. */ +#else /* !defined(COCO_MAKECTX) */ + +#include + +#define COCO_CTX ucontext_t + +/* Ugly workaround for makecontext() deficiencies on 64 bit CPUs. */ +/* Note that WIN64 (which is LLP64) never comes here. See above. */ +#if defined(__LP64__) || defined(_LP64) || INT_MAX != LONG_MAX +/* 64 bit CPU: split the pointer into two 32 bit ints. */ +#define COCO_MAIN_PARAM unsigned int lo, unsigned int hi +#define COCO_MAIN_GETL \ + lua_State *L = (lua_State *)((((unsigned long)hi)<<32)+(unsigned long)lo); +#define COCO_MAKECTX(coco, NL, mainfunc) \ + makecontext(&coco->ctx, mainfunc, 2, \ + (int)(ptrdiff_t)NL, (int)((ptrdiff_t)NL>>32)); +#else +/* 32 bit CPU: a pointer fits into an int. */ +#define COCO_MAKECTX(coco, NL, mainfunc) \ + makecontext(&coco->ctx, mainfunc, 1, (int)NL); +#endif + +#define COCO_FILL(coco, NL, mainfunc) \ + getcontext(&coco->ctx); \ + coco->ctx.uc_link = NULL; /* We never exit from coco_main. */ \ + coco->ctx.uc_stack.ss_sp = coco->allocptr; \ + coco->ctx.uc_stack.ss_size = (char *)coco - (char *)(coco->allocptr); \ + COCO_MAKECTX(coco, NL, mainfunc) + +#define COCO_SWITCH(from, to) swapcontext(&(from), &(to)); + +#endif /* !defined(COCO_MAKECTX) */ + + +/* Common code for inline asm/setjmp/ucontext to allocate/free the stack. */ + +struct coco_State { +#ifdef COCO_STATE_HEAD + COCO_STATE_HEAD +#endif + COCO_CTX ctx; /* Own context. */ + COCO_CTX back; /* Context to switch back to. */ + void *allocptr; /* Pointer to allocated memory. */ + int allocsize; /* Size of allocated memory. */ + int nargs; /* Number of arguments to pass. */ + STACK_VGID /* Optional valgrind stack id. See above. */ +}; + +typedef void (*coco_MainFunc)(void); + +/* Put the Coco state at the end and align it downwards. */ +#define ALIGNED_END(p, s, t) \ + ((t *)(((char *)0) + ((((char *)(p)-(char *)0)+(s)-sizeof(t)) & -16))) + +/* TODO: use mmap. */ +#define COCO_NEW(OL, NL, cstacksize, mainfunc) \ +{ \ + void *ptr = luaM_malloc(OL, cstacksize); \ + coco_State *coco = ALIGNED_END(ptr, cstacksize, coco_State); \ + STACK_REG(coco, ptr, cstacksize) \ + coco->allocptr = ptr; \ + coco->allocsize = cstacksize; \ + COCO_FILL(coco, NL, mainfunc) \ + L2COCO(NL) = coco; \ +} + +#define COCO_FREE(L) \ + STACK_DEREG(L2COCO(L)) \ + luaM_freemem(L, L2COCO(L)->allocptr, L2COCO(L)->allocsize); \ + L2COCO(L) = NULL; + +#define COCO_JUMPIN(coco) COCO_SWITCH(coco->back, coco->ctx) +#define COCO_JUMPOUT(coco) COCO_SWITCH(coco->ctx, coco->back) + +#endif /* !COCO_USE_FIBERS */ + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_MIN_CSTACKSIZE +#define COCO_MIN_CSTACKSIZE (32768+4096) +#endif + +/* Don't use multiples of 64K to avoid D-cache aliasing conflicts. */ +#ifndef COCO_DEFAULT_CSTACKSIZE +#define COCO_DEFAULT_CSTACKSIZE (65536-4096) +#endif + +static int defaultcstacksize = COCO_DEFAULT_CSTACKSIZE; + +/* Start the Lua or C function. */ +static void coco_start(lua_State *L, void *ud) +{ + if (luaD_precall(L, (StkId)ud, LUA_MULTRET) == PCRLUA) + luaV_execute(L, L->ci - L->base_ci); +} + +#ifndef COCO_MAIN_PARAM +#define COCO_MAIN_PARAM lua_State *L +#endif + +#ifndef COCO_MAIN_DECL +#define COCO_MAIN_DECL +#endif + +/* Toplevel function for the new coroutine stack. Never exits. */ +static void COCO_MAIN_DECL coco_main(COCO_MAIN_PARAM) +{ +#ifdef COCO_MAIN_GETL + COCO_MAIN_GETL +#endif + coco_State *coco = L2COCO(L); + for (;;) { + L->status = luaD_rawrunprotected(L, coco_start, L->top - (coco->nargs+1)); + if (L->status != 0) luaD_seterrorobj(L, L->status, L->top); + COCO_JUMPOUT(coco) + } +} + +/* Add a C stack to a coroutine. */ +lua_State *lua_newcthread(lua_State *OL, int cstacksize) +{ + lua_State *NL = lua_newthread(OL); + + if (cstacksize < 0) + return NL; + if (cstacksize == 0) + cstacksize = defaultcstacksize; + else if (cstacksize < COCO_MIN_CSTACKSIZE) + cstacksize = COCO_MIN_CSTACKSIZE; + cstacksize &= -16; + + COCO_NEW(OL, NL, cstacksize, ((coco_MainFunc)(coco_main))) + + return NL; +} + +/* Free the C stack of a coroutine. Called from lstate.c. */ +void luaCOCO_free(lua_State *L) +{ + COCO_FREE(L) +} + +/* Resume a coroutine with a C stack. Called from ldo.c. */ +int luaCOCO_resume(lua_State *L, int nargs) +{ + coco_State *coco = L2COCO(L); + coco->nargs = nargs; + COCO_JUMPIN(coco) +#ifndef COCO_DISABLE_EARLY_FREE + if (L->status != LUA_YIELD) { + COCO_FREE(L) + } +#endif + return L->status; +} + +/* Yield from a coroutine with a C stack. Called from ldo.c. */ +int luaCOCO_yield(lua_State *L) +{ + coco_State *coco = L2COCO(L); + L->status = LUA_YIELD; + COCO_JUMPOUT(coco) + L->status = 0; + { + StkId base = L->top - coco->nargs; + StkId rbase = L->base; + if (rbase < base) { /* Need to move args down? */ + while (base < L->top) + setobjs2s(L, rbase++, base++); + L->top = rbase; + } + } + L->base = L->ci->base; /* Restore invariant. */ + return coco->nargs; +} + +/* Get/set the default C stack size. */ +int luaCOCO_cstacksize(int cstacksize) +{ + int oldsz = defaultcstacksize; + if (cstacksize >= 0) { + if (cstacksize == 0) + cstacksize = COCO_DEFAULT_CSTACKSIZE; + else if (cstacksize < COCO_MIN_CSTACKSIZE) + cstacksize = COCO_MIN_CSTACKSIZE; + defaultcstacksize = cstacksize; + } + return oldsz; +} + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcoco.h b/src/3rd party/LuaJIT-1.1.8/src/lcoco.h new file mode 100644 index 00000000000..9fb620718a4 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcoco.h @@ -0,0 +1,72 @@ +/* +** Lua/Coco glue. +** Copyright (C) 2004-2011 Mike Pall. See copyright notice in lcoco.c +*/ + +#ifndef lcoco_h +#define lcoco_h + +#define LUACOCO_VERSION "Coco 1.1.6" +#define LUACOCO_VERSION_NUM 10106 + +/* Exported C API to add a C stack to a coroutine. */ +LUA_API lua_State *lua_newcthread(lua_State *L, int cstacksize); + +/* Internal support routines. */ +LUAI_FUNC void luaCOCO_free(lua_State *L); +LUAI_FUNC int luaCOCO_resume(lua_State *L, int nargs); +LUAI_FUNC int luaCOCO_yield(lua_State *L); +LUAI_FUNC int luaCOCO_cstacksize(int cstacksize); + +/* Forward declaration. */ +typedef struct coco_State coco_State; + +/* These are redefined below. */ +#undef LUAI_EXTRASPACE +#undef luai_userstateopen +/* luai_userstateclose unused */ +#undef luai_userstatethread +#undef luai_userstatefree +#undef luai_userstateresume +#undef luai_userstateyield + +/* Use Windows Fibers (Win98+). */ +#if defined(_WIN32) + +/* Fibers allocate their own stack. The whole Coco state is in front of L. */ +struct coco_State { + void *fib; /* Own fiber (if any). */ + void *back; /* Fiber to switch back to. */ + int nargs; /* Number of arguments to pass. */ + int dummy_align; +}; + +#define L2COCO(L) (&((coco_State *)(L))[-1]) +#define LHASCOCO(L) (L2COCO(L)->fib) +#define LUAI_EXTRASPACE sizeof(coco_State) +#define luai_userstateopen(L) L2COCO(L)->fib = NULL +#define luai_userstatethread(L,L1) L2COCO(L1)->fib = NULL +#define COCO_USE_FIBERS + +#else /* !defined(_WIN32) */ + +/* The Coco state depends on the context switch method used. See lcoco.c. */ +/* It's stored at the end of the stack. Only need a pointer in front of L. */ +#define L2COCO(L) (((coco_State **)(L))[-1]) +#define LHASCOCO(L) (L2COCO(L)) +/* This wastes some space on 32 bit systems, but gets better alignment. */ +#define LUAI_EXTRASPACE sizeof(LUAI_USER_ALIGNMENT_T) +#define luai_userstateopen(L) L2COCO(L) = NULL +#define luai_userstatethread(L,L1) L2COCO(L1) = NULL + +#endif /* !defined(_WIN32) */ + +#define luai_userstatefree(L) if (LHASCOCO(L)) luaCOCO_free(L) +#define luai_userstateresume(L, nargs) \ + if (LHASCOCO(L)) return luaCOCO_resume(L, nargs) +#define luai_userstateyield(L, nresults) \ + do { if (LHASCOCO(L)) { \ + L->base = L->top - (nresults); /* Protect stack slots below. */ \ + return luaCOCO_yield(L); } } while (0) + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcode.c b/src/3rd party/LuaJIT-1.1.8/src/lcode.c new file mode 100644 index 00000000000..679cb9cfd98 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcode.c @@ -0,0 +1,831 @@ +/* +** $Id: lcode.c,v 2.25.1.5 2011/01/31 14:53:16 roberto Exp $ +** Code generator for Lua +** See Copyright Notice in lua.h +*/ + + +#include + +#define lcode_c +#define LUA_CORE + +#include "lua.h" + +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lgc.h" +#include "llex.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "ltable.h" + + +#define hasjumps(e) ((e)->t != (e)->f) + + +static int isnumeral(expdesc *e) { + return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP); +} + + +void luaK_nil (FuncState *fs, int from, int n) { + Instruction *previous; + if (fs->pc > fs->lasttarget) { /* no jumps to current position? */ + if (fs->pc == 0) { /* function start? */ + if (from >= fs->nactvar) + return; /* positions are already clean */ + } + else { + previous = &fs->f->code[fs->pc-1]; + if (GET_OPCODE(*previous) == OP_LOADNIL) { + int pfrom = GETARG_A(*previous); + int pto = GETARG_B(*previous); + if (pfrom <= from && from <= pto+1) { /* can connect both? */ + if (from+n-1 > pto) + SETARG_B(*previous, from+n-1); + return; + } + } + } + } + luaK_codeABC(fs, OP_LOADNIL, from, from+n-1, 0); /* else no optimization */ +} + + +int luaK_jump (FuncState *fs) { + int jpc = fs->jpc; /* save list of jumps to here */ + int j; + fs->jpc = NO_JUMP; + j = luaK_codeAsBx(fs, OP_JMP, 0, NO_JUMP); + luaK_concat(fs, &j, jpc); /* keep them on hold */ + return j; +} + + +void luaK_ret (FuncState *fs, int first, int nret) { + luaK_codeABC(fs, OP_RETURN, first, nret+1, 0); +} + + +static int condjump (FuncState *fs, OpCode op, int A, int B, int C) { + luaK_codeABC(fs, op, A, B, C); + return luaK_jump(fs); +} + + +static void fixjump (FuncState *fs, int pc, int dest) { + Instruction *jmp = &fs->f->code[pc]; + int offset = dest-(pc+1); + lua_assert(dest != NO_JUMP); + if (abs(offset) > MAXARG_sBx) + luaX_syntaxerror(fs->ls, "control structure too long"); + SETARG_sBx(*jmp, offset); +} + + +/* +** returns current `pc' and marks it as a jump target (to avoid wrong +** optimizations with consecutive instructions not in the same basic block). +*/ +int luaK_getlabel (FuncState *fs) { + fs->lasttarget = fs->pc; + return fs->pc; +} + + +static int getjump (FuncState *fs, int pc) { + int offset = GETARG_sBx(fs->f->code[pc]); + if (offset == NO_JUMP) /* point to itself represents end of list */ + return NO_JUMP; /* end of list */ + else + return (pc+1)+offset; /* turn offset into absolute position */ +} + + +static Instruction *getjumpcontrol (FuncState *fs, int pc) { + Instruction *pi = &fs->f->code[pc]; + if (pc >= 1 && testTMode(GET_OPCODE(*(pi-1)))) + return pi-1; + else + return pi; +} + + +/* +** check whether list has any jump that do not produce a value +** (or produce an inverted value) +*/ +static int need_value (FuncState *fs, int list) { + for (; list != NO_JUMP; list = getjump(fs, list)) { + Instruction i = *getjumpcontrol(fs, list); + if (GET_OPCODE(i) != OP_TESTSET) return 1; + } + return 0; /* not found */ +} + + +static int patchtestreg (FuncState *fs, int node, int reg) { + Instruction *i = getjumpcontrol(fs, node); + if (GET_OPCODE(*i) != OP_TESTSET) + return 0; /* cannot patch other instructions */ + if (reg != NO_REG && reg != GETARG_B(*i)) + SETARG_A(*i, reg); + else /* no register to put value or register already has the value */ + *i = CREATE_ABC(OP_TEST, GETARG_B(*i), 0, GETARG_C(*i)); + + return 1; +} + + +static void removevalues (FuncState *fs, int list) { + for (; list != NO_JUMP; list = getjump(fs, list)) + patchtestreg(fs, list, NO_REG); +} + + +static void patchlistaux (FuncState *fs, int list, int vtarget, int reg, + int dtarget) { + while (list != NO_JUMP) { + int next = getjump(fs, list); + if (patchtestreg(fs, list, reg)) + fixjump(fs, list, vtarget); + else + fixjump(fs, list, dtarget); /* jump to default target */ + list = next; + } +} + + +static void dischargejpc (FuncState *fs) { + patchlistaux(fs, fs->jpc, fs->pc, NO_REG, fs->pc); + fs->jpc = NO_JUMP; +} + + +void luaK_patchlist (FuncState *fs, int list, int target) { + if (target == fs->pc) + luaK_patchtohere(fs, list); + else { + lua_assert(target < fs->pc); + patchlistaux(fs, list, target, NO_REG, target); + } +} + + +void luaK_patchtohere (FuncState *fs, int list) { + luaK_getlabel(fs); + luaK_concat(fs, &fs->jpc, list); +} + + +void luaK_concat (FuncState *fs, int *l1, int l2) { + if (l2 == NO_JUMP) return; + else if (*l1 == NO_JUMP) + *l1 = l2; + else { + int list = *l1; + int next; + while ((next = getjump(fs, list)) != NO_JUMP) /* find last element */ + list = next; + fixjump(fs, list, l2); + } +} + + +void luaK_checkstack (FuncState *fs, int n) { + int newstack = fs->freereg + n; + if (newstack > fs->f->maxstacksize) { + if (newstack >= MAXSTACK) + luaX_syntaxerror(fs->ls, "function or expression too complex"); + fs->f->maxstacksize = cast_byte(newstack); + } +} + + +void luaK_reserveregs (FuncState *fs, int n) { + luaK_checkstack(fs, n); + fs->freereg += n; +} + + +static void freereg (FuncState *fs, int reg) { + if (!ISK(reg) && reg >= fs->nactvar) { + fs->freereg--; + lua_assert(reg == fs->freereg); + } +} + + +static void freeexp (FuncState *fs, expdesc *e) { + if (e->k == VNONRELOC) + freereg(fs, e->u.s.info); +} + + +static int addk (FuncState *fs, TValue *k, TValue *v) { + lua_State *L = fs->L; + TValue *idx = luaH_set(L, fs->h, k); + Proto *f = fs->f; + int oldsize = f->sizek; + if (ttisnumber(idx)) { + lua_assert(luaO_rawequalObj(&fs->f->k[cast_int(nvalue(idx))], v)); + return cast_int(nvalue(idx)); + } + else { /* constant not found; create a new entry */ + setnvalue(idx, cast_num(fs->nk)); + luaM_growvector(L, f->k, fs->nk, f->sizek, TValue, + MAXARG_Bx, "constant table overflow"); + while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]); + setobj(L, &f->k[fs->nk], v); + luaC_barrier(L, f, v); + return fs->nk++; + } +} + + +int luaK_stringK (FuncState *fs, TString *s) { + TValue o; + setsvalue(fs->L, &o, s); + return addk(fs, &o, &o); +} + + +int luaK_numberK (FuncState *fs, lua_Number r) { + TValue o; + setnvalue(&o, r); + return addk(fs, &o, &o); +} + + +static int boolK (FuncState *fs, int b) { + TValue o; + setbvalue(&o, b); + return addk(fs, &o, &o); +} + + +static int nilK (FuncState *fs) { + TValue k, v; + setnilvalue(&v); + /* cannot use nil as key; instead use table itself to represent nil */ + sethvalue(fs->L, &k, fs->h); + return addk(fs, &k, &v); +} + + +void luaK_setreturns (FuncState *fs, expdesc *e, int nresults) { + if (e->k == VCALL) { /* expression is an open function call? */ + SETARG_C(getcode(fs, e), nresults+1); + } + else if (e->k == VVARARG) { + SETARG_B(getcode(fs, e), nresults+1); + SETARG_A(getcode(fs, e), fs->freereg); + luaK_reserveregs(fs, 1); + } +} + + +void luaK_setoneret (FuncState *fs, expdesc *e) { + if (e->k == VCALL) { /* expression is an open function call? */ + e->k = VNONRELOC; + e->u.s.info = GETARG_A(getcode(fs, e)); + } + else if (e->k == VVARARG) { + SETARG_B(getcode(fs, e), 2); + e->k = VRELOCABLE; /* can relocate its simple result */ + } +} + + +void luaK_dischargevars (FuncState *fs, expdesc *e) { + switch (e->k) { + case VLOCAL: { + e->k = VNONRELOC; + break; + } + case VUPVAL: { + e->u.s.info = luaK_codeABC(fs, OP_GETUPVAL, 0, e->u.s.info, 0); + e->k = VRELOCABLE; + break; + } + case VGLOBAL: { + e->u.s.info = luaK_codeABx(fs, OP_GETGLOBAL, 0, e->u.s.info); + e->k = VRELOCABLE; + break; + } + case VINDEXED: { + freereg(fs, e->u.s.aux); + freereg(fs, e->u.s.info); + e->u.s.info = luaK_codeABC(fs, OP_GETTABLE, 0, e->u.s.info, e->u.s.aux); + e->k = VRELOCABLE; + break; + } + case VVARARG: + case VCALL: { + luaK_setoneret(fs, e); + break; + } + default: break; /* there is one value available (somewhere) */ + } +} + + +static int code_label (FuncState *fs, int A, int b, int jump) { + luaK_getlabel(fs); /* those instructions may be jump targets */ + return luaK_codeABC(fs, OP_LOADBOOL, A, b, jump); +} + + +static void discharge2reg (FuncState *fs, expdesc *e, int reg) { + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: { + luaK_nil(fs, reg, 1); + break; + } + case VFALSE: case VTRUE: { + luaK_codeABC(fs, OP_LOADBOOL, reg, e->k == VTRUE, 0); + break; + } + case VK: { + luaK_codeABx(fs, OP_LOADK, reg, e->u.s.info); + break; + } + case VKNUM: { + luaK_codeABx(fs, OP_LOADK, reg, luaK_numberK(fs, e->u.nval)); + break; + } + case VRELOCABLE: { + Instruction *pc = &getcode(fs, e); + SETARG_A(*pc, reg); + break; + } + case VNONRELOC: { + if (reg != e->u.s.info) + luaK_codeABC(fs, OP_MOVE, reg, e->u.s.info, 0); + break; + } + default: { + lua_assert(e->k == VVOID || e->k == VJMP); + return; /* nothing to do... */ + } + } + e->u.s.info = reg; + e->k = VNONRELOC; +} + + +static void discharge2anyreg (FuncState *fs, expdesc *e) { + if (e->k != VNONRELOC) { + luaK_reserveregs(fs, 1); + discharge2reg(fs, e, fs->freereg-1); + } +} + + +static void exp2reg (FuncState *fs, expdesc *e, int reg) { + discharge2reg(fs, e, reg); + if (e->k == VJMP) + luaK_concat(fs, &e->t, e->u.s.info); /* put this jump in `t' list */ + if (hasjumps(e)) { + int final; /* position after whole expression */ + int p_f = NO_JUMP; /* position of an eventual LOAD false */ + int p_t = NO_JUMP; /* position of an eventual LOAD true */ + if (need_value(fs, e->t) || need_value(fs, e->f)) { + int fj = (e->k == VJMP) ? NO_JUMP : luaK_jump(fs); + p_f = code_label(fs, reg, 0, 1); + p_t = code_label(fs, reg, 1, 0); + luaK_patchtohere(fs, fj); + } + final = luaK_getlabel(fs); + patchlistaux(fs, e->f, final, reg, p_f); + patchlistaux(fs, e->t, final, reg, p_t); + } + e->f = e->t = NO_JUMP; + e->u.s.info = reg; + e->k = VNONRELOC; +} + + +void luaK_exp2nextreg (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + freeexp(fs, e); + luaK_reserveregs(fs, 1); + exp2reg(fs, e, fs->freereg - 1); +} + + +int luaK_exp2anyreg (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + if (e->k == VNONRELOC) { + if (!hasjumps(e)) return e->u.s.info; /* exp is already in a register */ + if (e->u.s.info >= fs->nactvar) { /* reg. is not a local? */ + exp2reg(fs, e, e->u.s.info); /* put value on it */ + return e->u.s.info; + } + } + luaK_exp2nextreg(fs, e); /* default */ + return e->u.s.info; +} + + +void luaK_exp2val (FuncState *fs, expdesc *e) { + if (hasjumps(e)) + luaK_exp2anyreg(fs, e); + else + luaK_dischargevars(fs, e); +} + + +int luaK_exp2RK (FuncState *fs, expdesc *e) { + luaK_exp2val(fs, e); + switch (e->k) { + case VKNUM: + case VTRUE: + case VFALSE: + case VNIL: { + if (fs->nk <= MAXINDEXRK) { /* constant fit in RK operand? */ + e->u.s.info = (e->k == VNIL) ? nilK(fs) : + (e->k == VKNUM) ? luaK_numberK(fs, e->u.nval) : + boolK(fs, (e->k == VTRUE)); + e->k = VK; + return RKASK(e->u.s.info); + } + else break; + } + case VK: { + if (e->u.s.info <= MAXINDEXRK) /* constant fit in argC? */ + return RKASK(e->u.s.info); + else break; + } + default: break; + } + /* not a constant in the right range: put it in a register */ + return luaK_exp2anyreg(fs, e); +} + + +void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { + switch (var->k) { + case VLOCAL: { + freeexp(fs, ex); + exp2reg(fs, ex, var->u.s.info); + return; + } + case VUPVAL: { + int e = luaK_exp2anyreg(fs, ex); + luaK_codeABC(fs, OP_SETUPVAL, e, var->u.s.info, 0); + break; + } + case VGLOBAL: { + int e = luaK_exp2anyreg(fs, ex); + luaK_codeABx(fs, OP_SETGLOBAL, e, var->u.s.info); + break; + } + case VINDEXED: { + int e = luaK_exp2RK(fs, ex); + luaK_codeABC(fs, OP_SETTABLE, var->u.s.info, var->u.s.aux, e); + break; + } + default: { + lua_assert(0); /* invalid var kind to store */ + break; + } + } + freeexp(fs, ex); +} + + +void luaK_self (FuncState *fs, expdesc *e, expdesc *key) { + int func; + luaK_exp2anyreg(fs, e); + freeexp(fs, e); + func = fs->freereg; + luaK_reserveregs(fs, 2); + luaK_codeABC(fs, OP_SELF, func, e->u.s.info, luaK_exp2RK(fs, key)); + freeexp(fs, key); + e->u.s.info = func; + e->k = VNONRELOC; +} + + +static void invertjump (FuncState *fs, expdesc *e) { + Instruction *pc = getjumpcontrol(fs, e->u.s.info); + lua_assert(testTMode(GET_OPCODE(*pc)) && GET_OPCODE(*pc) != OP_TESTSET && + GET_OPCODE(*pc) != OP_TEST); + SETARG_A(*pc, !(GETARG_A(*pc))); +} + + +static int jumponcond (FuncState *fs, expdesc *e, int cond) { + if (e->k == VRELOCABLE) { + Instruction ie = getcode(fs, e); + if (GET_OPCODE(ie) == OP_NOT) { + fs->pc--; /* remove previous OP_NOT */ + return condjump(fs, OP_TEST, GETARG_B(ie), 0, !cond); + } + /* else go through */ + } + discharge2anyreg(fs, e); + freeexp(fs, e); + return condjump(fs, OP_TESTSET, NO_REG, e->u.s.info, cond); +} + + +void luaK_goiftrue (FuncState *fs, expdesc *e) { + int pc; /* pc of last jump */ + luaK_dischargevars(fs, e); + switch (e->k) { + case VK: case VKNUM: case VTRUE: { + pc = NO_JUMP; /* always true; do nothing */ + break; + } + case VJMP: { + invertjump(fs, e); + pc = e->u.s.info; + break; + } + default: { + pc = jumponcond(fs, e, 0); + break; + } + } + luaK_concat(fs, &e->f, pc); /* insert last jump in `f' list */ + luaK_patchtohere(fs, e->t); + e->t = NO_JUMP; +} + + +static void luaK_goiffalse (FuncState *fs, expdesc *e) { + int pc; /* pc of last jump */ + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: case VFALSE: { + pc = NO_JUMP; /* always false; do nothing */ + break; + } + case VJMP: { + pc = e->u.s.info; + break; + } + default: { + pc = jumponcond(fs, e, 1); + break; + } + } + luaK_concat(fs, &e->t, pc); /* insert last jump in `t' list */ + luaK_patchtohere(fs, e->f); + e->f = NO_JUMP; +} + + +static void codenot (FuncState *fs, expdesc *e) { + luaK_dischargevars(fs, e); + switch (e->k) { + case VNIL: case VFALSE: { + e->k = VTRUE; + break; + } + case VK: case VKNUM: case VTRUE: { + e->k = VFALSE; + break; + } + case VJMP: { + invertjump(fs, e); + break; + } + case VRELOCABLE: + case VNONRELOC: { + discharge2anyreg(fs, e); + freeexp(fs, e); + e->u.s.info = luaK_codeABC(fs, OP_NOT, 0, e->u.s.info, 0); + e->k = VRELOCABLE; + break; + } + default: { + lua_assert(0); /* cannot happen */ + break; + } + } + /* interchange true and false lists */ + { int temp = e->f; e->f = e->t; e->t = temp; } + removevalues(fs, e->f); + removevalues(fs, e->t); +} + + +void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k) { + t->u.s.aux = luaK_exp2RK(fs, k); + t->k = VINDEXED; +} + + +static int constfolding (OpCode op, expdesc *e1, expdesc *e2) { + lua_Number v1, v2, r; + if (!isnumeral(e1) || !isnumeral(e2)) return 0; + v1 = e1->u.nval; + v2 = e2->u.nval; + switch (op) { + case OP_ADD: r = luai_numadd(v1, v2); break; + case OP_SUB: r = luai_numsub(v1, v2); break; + case OP_MUL: r = luai_nummul(v1, v2); break; + case OP_DIV: + if (v2 == 0) return 0; /* do not attempt to divide by 0 */ + r = luai_numdiv(v1, v2); break; + case OP_MOD: + if (v2 == 0) return 0; /* do not attempt to divide by 0 */ + r = luai_nummod(v1, v2); break; + case OP_POW: r = luai_numpow(v1, v2); break; + case OP_UNM: r = luai_numunm(v1); break; + case OP_LEN: return 0; /* no constant folding for 'len' */ + default: lua_assert(0); r = 0; break; + } + if (luai_numisnan(r)) return 0; /* do not attempt to produce NaN */ + e1->u.nval = r; + return 1; +} + + +static void codearith (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2) { + if (constfolding(op, e1, e2)) + return; + else { + int o2 = (op != OP_UNM && op != OP_LEN) ? luaK_exp2RK(fs, e2) : 0; + int o1 = luaK_exp2RK(fs, e1); + if (o1 > o2) { + freeexp(fs, e1); + freeexp(fs, e2); + } + else { + freeexp(fs, e2); + freeexp(fs, e1); + } + e1->u.s.info = luaK_codeABC(fs, op, 0, o1, o2); + e1->k = VRELOCABLE; + } +} + + +static void codecomp (FuncState *fs, OpCode op, int cond, expdesc *e1, + expdesc *e2) { + int o1 = luaK_exp2RK(fs, e1); + int o2 = luaK_exp2RK(fs, e2); + freeexp(fs, e2); + freeexp(fs, e1); + if (cond == 0 && op != OP_EQ) { + int temp; /* exchange args to replace by `<' or `<=' */ + temp = o1; o1 = o2; o2 = temp; /* o1 <==> o2 */ + cond = 1; + } + e1->u.s.info = condjump(fs, op, cond, o1, o2); + e1->k = VJMP; +} + + +void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) { + expdesc e2; + e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0; + switch (op) { + case OPR_MINUS: { + if (!isnumeral(e)) + luaK_exp2anyreg(fs, e); /* cannot operate on non-numeric constants */ + codearith(fs, OP_UNM, e, &e2); + break; + } + case OPR_NOT: codenot(fs, e); break; + case OPR_LEN: { + luaK_exp2anyreg(fs, e); /* cannot operate on constants */ + codearith(fs, OP_LEN, e, &e2); + break; + } + default: lua_assert(0); + } +} + + +void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) { + switch (op) { + case OPR_AND: { + luaK_goiftrue(fs, v); + break; + } + case OPR_OR: { + luaK_goiffalse(fs, v); + break; + } + case OPR_CONCAT: { + luaK_exp2nextreg(fs, v); /* operand must be on the `stack' */ + break; + } + case OPR_ADD: case OPR_SUB: case OPR_MUL: case OPR_DIV: + case OPR_MOD: case OPR_POW: { + if (!isnumeral(v)) luaK_exp2RK(fs, v); + break; + } + default: { + luaK_exp2RK(fs, v); + break; + } + } +} + + +void luaK_posfix (FuncState *fs, BinOpr op, expdesc *e1, expdesc *e2) { + switch (op) { + case OPR_AND: { + lua_assert(e1->t == NO_JUMP); /* list must be closed */ + luaK_dischargevars(fs, e2); + luaK_concat(fs, &e2->f, e1->f); + *e1 = *e2; + break; + } + case OPR_OR: { + lua_assert(e1->f == NO_JUMP); /* list must be closed */ + luaK_dischargevars(fs, e2); + luaK_concat(fs, &e2->t, e1->t); + *e1 = *e2; + break; + } + case OPR_CONCAT: { + luaK_exp2val(fs, e2); + if (e2->k == VRELOCABLE && GET_OPCODE(getcode(fs, e2)) == OP_CONCAT) { + lua_assert(e1->u.s.info == GETARG_B(getcode(fs, e2))-1); + freeexp(fs, e1); + SETARG_B(getcode(fs, e2), e1->u.s.info); + e1->k = VRELOCABLE; e1->u.s.info = e2->u.s.info; + } + else { + luaK_exp2nextreg(fs, e2); /* operand must be on the 'stack' */ + codearith(fs, OP_CONCAT, e1, e2); + } + break; + } + case OPR_ADD: codearith(fs, OP_ADD, e1, e2); break; + case OPR_SUB: codearith(fs, OP_SUB, e1, e2); break; + case OPR_MUL: codearith(fs, OP_MUL, e1, e2); break; + case OPR_DIV: codearith(fs, OP_DIV, e1, e2); break; + case OPR_MOD: codearith(fs, OP_MOD, e1, e2); break; + case OPR_POW: codearith(fs, OP_POW, e1, e2); break; + case OPR_EQ: codecomp(fs, OP_EQ, 1, e1, e2); break; + case OPR_NE: codecomp(fs, OP_EQ, 0, e1, e2); break; + case OPR_LT: codecomp(fs, OP_LT, 1, e1, e2); break; + case OPR_LE: codecomp(fs, OP_LE, 1, e1, e2); break; + case OPR_GT: codecomp(fs, OP_LT, 0, e1, e2); break; + case OPR_GE: codecomp(fs, OP_LE, 0, e1, e2); break; + default: lua_assert(0); + } +} + + +void luaK_fixline (FuncState *fs, int line) { + fs->f->lineinfo[fs->pc - 1] = line; +} + + +static int luaK_code (FuncState *fs, Instruction i, int line) { + Proto *f = fs->f; + dischargejpc(fs); /* `pc' will change */ + /* put new instruction in code array */ + luaM_growvector(fs->L, f->code, fs->pc, f->sizecode, Instruction, + MAX_INT, "code size overflow"); + f->code[fs->pc] = i; + /* save corresponding line information */ + luaM_growvector(fs->L, f->lineinfo, fs->pc, f->sizelineinfo, int, + MAX_INT, "code size overflow"); + f->lineinfo[fs->pc] = line; + return fs->pc++; +} + + +int luaK_codeABC (FuncState *fs, OpCode o, int a, int b, int c) { + lua_assert(getOpMode(o) == iABC); + lua_assert(getBMode(o) != OpArgN || b == 0); + lua_assert(getCMode(o) != OpArgN || c == 0); + return luaK_code(fs, CREATE_ABC(o, a, b, c), fs->ls->lastline); +} + + +int luaK_codeABx (FuncState *fs, OpCode o, int a, unsigned int bc) { + lua_assert(getOpMode(o) == iABx || getOpMode(o) == iAsBx); + lua_assert(getCMode(o) == OpArgN); + return luaK_code(fs, CREATE_ABx(o, a, bc), fs->ls->lastline); +} + + +void luaK_setlist (FuncState *fs, int base, int nelems, int tostore) { + int c = (nelems - 1)/LFIELDS_PER_FLUSH + 1; + int b = (tostore == LUA_MULTRET) ? 0 : tostore; + lua_assert(tostore != 0); + if (c <= MAXARG_C) + luaK_codeABC(fs, OP_SETLIST, base, b, c); + else { + luaK_codeABC(fs, OP_SETLIST, base, b, 0); + luaK_code(fs, cast(Instruction, c), fs->ls->lastline); + } + fs->freereg = base + 1; /* free registers with list values */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcode.h b/src/3rd party/LuaJIT-1.1.8/src/lcode.h new file mode 100644 index 00000000000..b941c607212 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lcode.h @@ -0,0 +1,76 @@ +/* +** $Id: lcode.h,v 1.48.1.1 2007/12/27 13:02:25 roberto Exp $ +** Code generator for Lua +** See Copyright Notice in lua.h +*/ + +#ifndef lcode_h +#define lcode_h + +#include "llex.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" + + +/* +** Marks the end of a patch list. It is an invalid value both as an absolute +** address, and as a list link (would link an element to itself). +*/ +#define NO_JUMP (-1) + + +/* +** grep "ORDER OPR" if you change these enums +*/ +typedef enum BinOpr { + OPR_ADD, OPR_SUB, OPR_MUL, OPR_DIV, OPR_MOD, OPR_POW, + OPR_CONCAT, + OPR_NE, OPR_EQ, + OPR_LT, OPR_LE, OPR_GT, OPR_GE, + OPR_AND, OPR_OR, + OPR_NOBINOPR +} BinOpr; + + +typedef enum UnOpr { OPR_MINUS, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr; + + +#define getcode(fs,e) ((fs)->f->code[(e)->u.s.info]) + +#define luaK_codeAsBx(fs,o,A,sBx) luaK_codeABx(fs,o,A,(sBx)+MAXARG_sBx) + +#define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET) + +LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned int Bx); +LUAI_FUNC int luaK_codeABC (FuncState *fs, OpCode o, int A, int B, int C); +LUAI_FUNC void luaK_fixline (FuncState *fs, int line); +LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n); +LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n); +LUAI_FUNC void luaK_checkstack (FuncState *fs, int n); +LUAI_FUNC int luaK_stringK (FuncState *fs, TString *s); +LUAI_FUNC int luaK_numberK (FuncState *fs, lua_Number r); +LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_exp2RK (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key); +LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k); +LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e); +LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e); +LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults); +LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e); +LUAI_FUNC int luaK_jump (FuncState *fs); +LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret); +LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target); +LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list); +LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2); +LUAI_FUNC int luaK_getlabel (FuncState *fs); +LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v); +LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v); +LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2); +LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldblib.c b/src/3rd party/LuaJIT-1.1.8/src/ldblib.c new file mode 100644 index 00000000000..2027eda5983 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldblib.c @@ -0,0 +1,398 @@ +/* +** $Id: ldblib.c,v 1.104.1.4 2009/08/04 18:50:18 roberto Exp $ +** Interface from Lua to its debug API +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define ldblib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + + +static int db_getregistry (lua_State *L) { + lua_pushvalue(L, LUA_REGISTRYINDEX); + return 1; +} + + +static int db_getmetatable (lua_State *L) { + luaL_checkany(L, 1); + if (!lua_getmetatable(L, 1)) { + lua_pushnil(L); /* no metatable */ + } + return 1; +} + + +static int db_setmetatable (lua_State *L) { + int t = lua_type(L, 2); + luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, + "nil or table expected"); + lua_settop(L, 2); + lua_pushboolean(L, lua_setmetatable(L, 1)); + return 1; +} + + +static int db_getfenv (lua_State *L) { + luaL_checkany(L, 1); + lua_getfenv(L, 1); + return 1; +} + + +static int db_setfenv (lua_State *L) { + luaL_checktype(L, 2, LUA_TTABLE); + lua_settop(L, 2); + if (lua_setfenv(L, 1) == 0) + luaL_error(L, LUA_QL("setfenv") + " cannot change environment of given object"); + return 1; +} + + +static void settabss (lua_State *L, const char *i, const char *v) { + lua_pushstring(L, v); + lua_setfield(L, -2, i); +} + + +static void settabsi (lua_State *L, const char *i, int v) { + lua_pushinteger(L, v); + lua_setfield(L, -2, i); +} + + +static lua_State *getthread (lua_State *L, int *arg) { + if (lua_isthread(L, 1)) { + *arg = 1; + return lua_tothread(L, 1); + } + else { + *arg = 0; + return L; + } +} + + +static void treatstackoption (lua_State *L, lua_State *L1, const char *fname) { + if (L == L1) { + lua_pushvalue(L, -2); + lua_remove(L, -3); + } + else + lua_xmove(L1, L, 1); + lua_setfield(L, -2, fname); +} + + +static int db_getinfo (lua_State *L) { + lua_Debug ar; + int arg; + lua_State *L1 = getthread(L, &arg); + const char *options = luaL_optstring(L, arg+2, "flnSu"); + if (lua_isnumber(L, arg+1)) { + if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), &ar)) { + lua_pushnil(L); /* level out of range */ + return 1; + } + } + else if (lua_isfunction(L, arg+1)) { + lua_pushfstring(L, ">%s", options); + options = lua_tostring(L, -1); + lua_pushvalue(L, arg+1); + lua_xmove(L, L1, 1); + } + else + return luaL_argerror(L, arg+1, "function or level expected"); + if (!lua_getinfo(L1, options, &ar)) + return luaL_argerror(L, arg+2, "invalid option"); + lua_createtable(L, 0, 2); + if (strchr(options, 'S')) { + settabss(L, "source", ar.source); + settabss(L, "short_src", ar.short_src); + settabsi(L, "linedefined", ar.linedefined); + settabsi(L, "lastlinedefined", ar.lastlinedefined); + settabss(L, "what", ar.what); + } + if (strchr(options, 'l')) + settabsi(L, "currentline", ar.currentline); + if (strchr(options, 'u')) + settabsi(L, "nups", ar.nups); + if (strchr(options, 'n')) { + settabss(L, "name", ar.name); + settabss(L, "namewhat", ar.namewhat); + } + if (strchr(options, 'L')) + treatstackoption(L, L1, "activelines"); + if (strchr(options, 'f')) + treatstackoption(L, L1, "func"); + return 1; /* return table */ +} + + +static int db_getlocal (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + const char *name; + if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ + return luaL_argerror(L, arg+1, "level out of range"); + name = lua_getlocal(L1, &ar, luaL_checkint(L, arg+2)); + if (name) { + lua_xmove(L1, L, 1); + lua_pushstring(L, name); + lua_pushvalue(L, -2); + return 2; + } + else { + lua_pushnil(L); + return 1; + } +} + + +static int db_setlocal (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ + return luaL_argerror(L, arg+1, "level out of range"); + luaL_checkany(L, arg+3); + lua_settop(L, arg+3); + lua_xmove(L, L1, 1); + lua_pushstring(L, lua_setlocal(L1, &ar, luaL_checkint(L, arg+2))); + return 1; +} + + +static int auxupvalue (lua_State *L, int get) { + const char *name; + int n = luaL_checkint(L, 2); + luaL_checktype(L, 1, LUA_TFUNCTION); + if (lua_iscfunction(L, 1)) return 0; /* cannot touch C upvalues from Lua */ + name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); + if (name == NULL) return 0; + lua_pushstring(L, name); + lua_insert(L, -(get+1)); + return get + 1; +} + + +static int db_getupvalue (lua_State *L) { + return auxupvalue(L, 1); +} + + +static int db_setupvalue (lua_State *L) { + luaL_checkany(L, 3); + return auxupvalue(L, 0); +} + + + +static const char KEY_HOOK = 'h'; + + +static void hookf (lua_State *L, lua_Debug *ar) { + static const char *const hooknames[] = + {"call", "return", "line", "count", "tail return"}; + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); + lua_pushlightuserdata(L, L); + lua_rawget(L, -2); + if (lua_isfunction(L, -1)) { + lua_pushstring(L, hooknames[(int)ar->event]); + if (ar->currentline >= 0) + lua_pushinteger(L, ar->currentline); + else lua_pushnil(L); + lua_assert(lua_getinfo(L, "lS", ar)); + lua_call(L, 2, 0); + } +} + + +static int makemask (const char *smask, int count) { + int mask = 0; + if (strchr(smask, 'c')) mask |= LUA_MASKCALL; + if (strchr(smask, 'r')) mask |= LUA_MASKRET; + if (strchr(smask, 'l')) mask |= LUA_MASKLINE; + if (count > 0) mask |= LUA_MASKCOUNT; + return mask; +} + + +static char *unmakemask (int mask, char *smask) { + int i = 0; + if (mask & LUA_MASKCALL) smask[i++] = 'c'; + if (mask & LUA_MASKRET) smask[i++] = 'r'; + if (mask & LUA_MASKLINE) smask[i++] = 'l'; + smask[i] = '\0'; + return smask; +} + + +static void gethooktable (lua_State *L) { + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + lua_createtable(L, 0, 1); + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_pushvalue(L, -2); + lua_rawset(L, LUA_REGISTRYINDEX); + } +} + + +static int db_sethook (lua_State *L) { + int arg, mask, count; + lua_Hook func; + lua_State *L1 = getthread(L, &arg); + if (lua_isnoneornil(L, arg+1)) { + lua_settop(L, arg+1); + func = NULL; mask = 0; count = 0; /* turn off hooks */ + } + else { + const char *smask = luaL_checkstring(L, arg+2); + luaL_checktype(L, arg+1, LUA_TFUNCTION); + count = luaL_optint(L, arg+3, 0); + func = hookf; mask = makemask(smask, count); + } + gethooktable(L); + lua_pushlightuserdata(L, L1); + lua_pushvalue(L, arg+1); + lua_rawset(L, -3); /* set new hook */ + lua_pop(L, 1); /* remove hook table */ + lua_sethook(L1, func, mask, count); /* set hooks */ + return 0; +} + + +static int db_gethook (lua_State *L) { + int arg; + lua_State *L1 = getthread(L, &arg); + char buff[5]; + int mask = lua_gethookmask(L1); + lua_Hook hook = lua_gethook(L1); + if (hook != NULL && hook != hookf) /* external hook? */ + lua_pushliteral(L, "external hook"); + else { + gethooktable(L); + lua_pushlightuserdata(L, L1); + lua_rawget(L, -2); /* get hook */ + lua_remove(L, -2); /* remove hook table */ + } + lua_pushstring(L, unmakemask(mask, buff)); + lua_pushinteger(L, lua_gethookcount(L1)); + return 3; +} + + +static int db_debug (lua_State *L) { + for (;;) { + char buffer[250]; + fputs("lua_debug> ", stderr); + if (fgets(buffer, sizeof(buffer), stdin) == 0 || + strcmp(buffer, "cont\n") == 0) + return 0; + if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || + lua_pcall(L, 0, 0, 0)) { + fputs(lua_tostring(L, -1), stderr); + fputs("\n", stderr); + } + lua_settop(L, 0); /* remove eventual returns */ + } +} + + +#define LEVELS1 12 /* size of the first part of the stack */ +#define LEVELS2 10 /* size of the second part of the stack */ + +static int db_errorfb (lua_State *L) { + int level; + int firstpart = 1; /* still before eventual `...' */ + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + if (lua_isnumber(L, arg+2)) { + level = (int)lua_tointeger(L, arg+2); + lua_pop(L, 1); + } + else + level = (L == L1) ? 1 : 0; /* level 0 may be this own function */ + if (lua_gettop(L) == arg) + lua_pushliteral(L, ""); + else if (!lua_isstring(L, arg+1)) return 1; /* message is not a string */ + else lua_pushliteral(L, "\n"); + lua_pushliteral(L, "stack traceback:"); + while (lua_getstack(L1, level++, &ar)) { + if (level > LEVELS1 && firstpart) { + /* no more than `LEVELS2' more levels? */ + if (!lua_getstack(L1, level+LEVELS2, &ar)) + level--; /* keep going */ + else { + lua_pushliteral(L, "\n\t..."); /* too many levels */ + while (lua_getstack(L1, level+LEVELS2, &ar)) /* find last levels */ + level++; + } + firstpart = 0; + continue; + } + lua_pushliteral(L, "\n\t"); + lua_getinfo(L1, "Snl", &ar); + lua_pushfstring(L, "%s:", ar.short_src); + if (ar.currentline > 0) + lua_pushfstring(L, "%d:", ar.currentline); + if (*ar.namewhat != '\0') /* is there a name? */ + lua_pushfstring(L, " in function " LUA_QS, ar.name); + else { + if (*ar.what == 'm') /* main? */ + lua_pushfstring(L, " in main chunk"); + else if (*ar.what == 'C' || *ar.what == 't') + lua_pushliteral(L, " ?"); /* C function or tail call */ + else + lua_pushfstring(L, " in function <%s:%d>", + ar.short_src, ar.linedefined); + } + lua_concat(L, lua_gettop(L) - arg); + } + lua_concat(L, lua_gettop(L) - arg); + return 1; +} + + +static const luaL_Reg dblib[] = { + {"debug", db_debug}, + {"getfenv", db_getfenv}, + {"gethook", db_gethook}, + {"getinfo", db_getinfo}, + {"getlocal", db_getlocal}, + {"getregistry", db_getregistry}, + {"getmetatable", db_getmetatable}, + {"getupvalue", db_getupvalue}, + {"setfenv", db_setfenv}, + {"sethook", db_sethook}, + {"setlocal", db_setlocal}, + {"setmetatable", db_setmetatable}, + {"setupvalue", db_setupvalue}, + {"traceback", db_errorfb}, + {NULL, NULL} +}; + + +LUALIB_API int luaopen_debug (lua_State *L) { + luaL_register(L, LUA_DBLIBNAME, dblib); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldebug.c b/src/3rd party/LuaJIT-1.1.8/src/ldebug.c new file mode 100644 index 00000000000..89891fdcf14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldebug.c @@ -0,0 +1,640 @@ +/* +** $Id: ldebug.c,v 2.29.1.6 2008/05/08 16:56:26 roberto Exp $ +** Debug Interface +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + + +#define ldebug_c +#define LUA_CORE + +#include "lua.h" + +#include "lapi.h" +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" +#include "ljit.h" + + + +static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name); + + +static int currentpc (lua_State *L, CallInfo *ci) { + if (isLua(ci)) /* must be a Lua function to get current PC */ + return luaJIT_findpc(ci_func(ci)->l.p, + ci==L->ci ? L->savedpc : ci->savedpc); + else + return -1; +} + + +static int currentline (lua_State *L, CallInfo *ci) { + int pc = currentpc(L, ci); + if (pc < 0) + return -1; /* only active lua functions have current-line information */ + else + return getline(ci_func(ci)->l.p, pc); +} + + +/* +** this function can be called asynchronous (e.g. during a signal) +*/ +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count) { + if (func == NULL || mask == 0) { /* turn off hooks? */ + mask = 0; + func = NULL; + } + L->hook = func; + L->basehookcount = count; + resethookcount(L); + L->hookmask = cast_byte(mask); + return 1; +} + + +LUA_API lua_Hook lua_gethook (lua_State *L) { + return L->hook; +} + + +LUA_API int lua_gethookmask (lua_State *L) { + return L->hookmask; +} + + +LUA_API int lua_gethookcount (lua_State *L) { + return L->basehookcount; +} + + +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) { + int status; + CallInfo *ci; + lua_lock(L); + for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) { + level--; + if (f_isLua(ci)) /* Lua function? */ + level -= ci->tailcalls; /* skip lost tail calls */ + } + if (level == 0 && ci > L->base_ci) { /* level found? */ + status = 1; + ar->i_ci = cast_int(ci - L->base_ci); + } + else if (level < 0) { /* level is of a lost tail call? */ + status = 1; + ar->i_ci = 0; + } + else status = 0; /* no such level */ + lua_unlock(L); + return status; +} + + +static Proto *getluaproto (CallInfo *ci) { + return (isLua(ci) ? ci_func(ci)->l.p : NULL); +} + + +static const char *findlocal (lua_State *L, CallInfo *ci, int n) { + const char *name; + Proto *fp = getluaproto(ci); + if (fp && (name = luaF_getlocalname(fp, n, currentpc(L, ci))) != NULL) + return name; /* is a local variable in a Lua function */ + else { + StkId limit = (ci == L->ci) ? L->top : (ci+1)->func; + if (limit - ci->base >= n && n > 0) /* is 'n' inside 'ci' stack? */ + return "(*temporary)"; + else + return NULL; + } +} + + +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) { + CallInfo *ci = L->base_ci + ar->i_ci; + const char *name = findlocal(L, ci, n); + lua_lock(L); + if (name) + luaA_pushobject(L, ci->base + (n - 1)); + lua_unlock(L); + return name; +} + + +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) { + CallInfo *ci = L->base_ci + ar->i_ci; + const char *name = findlocal(L, ci, n); + lua_lock(L); + if (name) + setobjs2s(L, ci->base + (n - 1), L->top - 1); + L->top--; /* pop value */ + lua_unlock(L); + return name; +} + + +static void funcinfo (lua_Debug *ar, Closure *cl) { + if (cl->c.isC) { + ar->source = "=[C]"; + ar->linedefined = -1; + ar->lastlinedefined = -1; + ar->what = "C"; + } + else { + ar->source = getstr(cl->l.p->source); + ar->linedefined = cl->l.p->linedefined; + ar->lastlinedefined = cl->l.p->lastlinedefined; + ar->what = (ar->linedefined == 0) ? "main" : "Lua"; + } + luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE); +} + + +static void info_tailcall (lua_Debug *ar) { + ar->name = ar->namewhat = ""; + ar->what = "tail"; + ar->lastlinedefined = ar->linedefined = ar->currentline = -1; + ar->source = "=(tail call)"; + luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE); + ar->nups = 0; +} + + +static void collectvalidlines (lua_State *L, Closure *f) { + if (f == NULL || f->c.isC) { + setnilvalue(L->top); + } + else { + Table *t = luaH_new(L, 0, 0); + int *lineinfo = f->l.p->lineinfo; + int i; + for (i=0; il.p->sizelineinfo; i++) + setbvalue(luaH_setnum(L, t, lineinfo[i]), 1); + sethvalue(L, L->top, t); + } + incr_top(L); +} + + +static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar, + Closure *f, CallInfo *ci) { + int status = 1; + if (f == NULL) { + info_tailcall(ar); + return status; + } + for (; *what; what++) { + switch (*what) { + case 'S': { + funcinfo(ar, f); + break; + } + case 'l': { + ar->currentline = (ci) ? currentline(L, ci) : -1; + break; + } + case 'u': { + ar->nups = f->c.nupvalues; + break; + } + case 'n': { + ar->namewhat = (ci) ? getfuncname(L, ci, &ar->name) : NULL; + if (ar->namewhat == NULL) { + ar->namewhat = ""; /* not found */ + ar->name = NULL; + } + break; + } + case 'L': + case 'f': /* handled by lua_getinfo */ + break; + default: status = 0; /* invalid option */ + } + } + return status; +} + + +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) { + int status; + Closure *f = NULL; + CallInfo *ci = NULL; + lua_lock(L); + if (*what == '>') { + StkId func = L->top - 1; + luai_apicheck(L, ttisfunction(func)); + what++; /* skip the '>' */ + f = clvalue(func); + L->top--; /* pop function */ + } + else if (ar->i_ci != 0) { /* no tail call? */ + ci = L->base_ci + ar->i_ci; + lua_assert(ttisfunction(ci->func)); + f = clvalue(ci->func); + } + status = auxgetinfo(L, what, ar, f, ci); + if (strchr(what, 'f')) { + if (f == NULL) setnilvalue(L->top); + else setclvalue(L, L->top, f); + incr_top(L); + } + if (strchr(what, 'L')) + collectvalidlines(L, f); + lua_unlock(L); + return status; +} + + +/* +** {====================================================== +** Symbolic Execution and code checker +** ======================================================= +*/ + +#define check(x) if (!(x)) return 0; + +#define checkjump(pt,pc) check(0 <= pc && pc < pt->sizecode) + +#define checkreg(pt,reg) check((reg) < (pt)->maxstacksize) + + + +static int precheck (const Proto *pt) { + check(pt->maxstacksize <= MAXSTACK); + check(pt->numparams+(pt->is_vararg & VARARG_HASARG) <= pt->maxstacksize); + check(!(pt->is_vararg & VARARG_NEEDSARG) || + (pt->is_vararg & VARARG_HASARG)); + check(pt->sizeupvalues <= pt->nups); + check(pt->sizelineinfo == pt->sizecode || pt->sizelineinfo == 0); + check(pt->sizecode > 0 && GET_OPCODE(pt->code[pt->sizecode-1]) == OP_RETURN); + return 1; +} + + +#define checkopenop(pt,pc) luaG_checkopenop((pt)->code[(pc)+1]) + +int luaG_checkopenop (Instruction i) { + switch (GET_OPCODE(i)) { + case OP_CALL: + case OP_TAILCALL: + case OP_RETURN: + case OP_SETLIST: { + check(GETARG_B(i) == 0); + return 1; + } + default: return 0; /* invalid instruction after an open call */ + } +} + + +static int checkArgMode (const Proto *pt, int r, enum OpArgMask mode) { + switch (mode) { + case OpArgN: check(r == 0); break; + case OpArgU: break; + case OpArgR: checkreg(pt, r); break; + case OpArgK: + check(ISK(r) ? INDEXK(r) < pt->sizek : r < pt->maxstacksize); + break; + } + return 1; +} + + +static Instruction symbexec (const Proto *pt, int lastpc, int reg) { + int pc; + int last; /* stores position of last instruction that changed `reg' */ + last = pt->sizecode-1; /* points to final return (a `neutral' instruction) */ + check(precheck(pt)); + for (pc = 0; pc < lastpc; pc++) { + Instruction i = pt->code[pc]; + OpCode op = GET_OPCODE(i); + int a = GETARG_A(i); + int b = 0; + int c = 0; + check(op < NUM_OPCODES); + checkreg(pt, a); + switch (getOpMode(op)) { + case iABC: { + b = GETARG_B(i); + c = GETARG_C(i); + check(checkArgMode(pt, b, getBMode(op))); + check(checkArgMode(pt, c, getCMode(op))); + break; + } + case iABx: { + b = GETARG_Bx(i); + if (getBMode(op) == OpArgK) check(b < pt->sizek); + break; + } + case iAsBx: { + b = GETARG_sBx(i); + if (getBMode(op) == OpArgR) { + int dest = pc+1+b; + check(0 <= dest && dest < pt->sizecode); + if (dest > 0) { + int j; + /* check that it does not jump to a setlist count; this + is tricky, because the count from a previous setlist may + have the same value of an invalid setlist; so, we must + go all the way back to the first of them (if any) */ + for (j = 0; j < dest; j++) { + Instruction d = pt->code[dest-1-j]; + if (!(GET_OPCODE(d) == OP_SETLIST && GETARG_C(d) == 0)) break; + } + /* if 'j' is even, previous value is not a setlist (even if + it looks like one) */ + check((j&1) == 0); + } + } + break; + } + } + if (testAMode(op)) { + if (a == reg) last = pc; /* change register `a' */ + } + if (testTMode(op)) { + check(pc+2 < pt->sizecode); /* check skip */ + check(GET_OPCODE(pt->code[pc+1]) == OP_JMP); + } + switch (op) { + case OP_LOADBOOL: { + if (c == 1) { /* does it jump? */ + check(pc+2 < pt->sizecode); /* check its jump */ + check(GET_OPCODE(pt->code[pc+1]) != OP_SETLIST || + GETARG_C(pt->code[pc+1]) != 0); + } + break; + } + case OP_LOADNIL: { + if (a <= reg && reg <= b) + last = pc; /* set registers from `a' to `b' */ + break; + } + case OP_GETUPVAL: + case OP_SETUPVAL: { + check(b < pt->nups); + break; + } + case OP_GETGLOBAL: + case OP_SETGLOBAL: { + check(ttisstring(&pt->k[b])); + break; + } + case OP_SELF: { + checkreg(pt, a+1); + if (reg == a+1) last = pc; + break; + } + case OP_CONCAT: { + check(b < c); /* at least two operands */ + break; + } + case OP_TFORLOOP: { + check(c >= 1); /* at least one result (control variable) */ + checkreg(pt, a+2+c); /* space for results */ + if (reg >= a+2) last = pc; /* affect all regs above its base */ + break; + } + case OP_FORLOOP: + case OP_FORPREP: + checkreg(pt, a+3); + /* go through */ + case OP_JMP: { + int dest = pc+1+b; + /* not full check and jump is forward and do not skip `lastpc'? */ + if (reg != NO_REG && pc < dest && dest <= lastpc) + pc += b; /* do the jump */ + break; + } + case OP_CALL: + case OP_TAILCALL: { + if (b != 0) { + checkreg(pt, a+b-1); + } + c--; /* c = num. returns */ + if (c == LUA_MULTRET) { + check(checkopenop(pt, pc)); + } + else if (c != 0) + checkreg(pt, a+c-1); + if (reg >= a) last = pc; /* affect all registers above base */ + break; + } + case OP_RETURN: { + b--; /* b = num. returns */ + if (b > 0) checkreg(pt, a+b-1); + break; + } + case OP_SETLIST: { + if (b > 0) checkreg(pt, a + b); + if (c == 0) { + pc++; + check(pc < pt->sizecode - 1); + } + break; + } + case OP_CLOSURE: { + int nup, j; + check(b < pt->sizep); + nup = pt->p[b]->nups; + check(pc + nup < pt->sizecode); + for (j = 1; j <= nup; j++) { + OpCode op1 = GET_OPCODE(pt->code[pc + j]); + check(op1 == OP_GETUPVAL || op1 == OP_MOVE); + } + if (reg != NO_REG) /* tracing? */ + pc += nup; /* do not 'execute' these pseudo-instructions */ + break; + } + case OP_VARARG: { + check((pt->is_vararg & VARARG_ISVARARG) && + !(pt->is_vararg & VARARG_NEEDSARG)); + b--; + if (b == LUA_MULTRET) check(checkopenop(pt, pc)); + checkreg(pt, a+b-1); + break; + } + default: break; + } + } + return pt->code[last]; +} + +#undef check +#undef checkjump +#undef checkreg + +/* }====================================================== */ + + +int luaG_checkcode (const Proto *pt) { + return (symbexec(pt, pt->sizecode, NO_REG) != 0); +} + + +static const char *kname (Proto *p, int c) { + if (ISK(c) && ttisstring(&p->k[INDEXK(c)])) + return svalue(&p->k[INDEXK(c)]); + else + return "?"; +} + + +static const char *getobjname (lua_State *L, CallInfo *ci, int stackpos, + const char **name) { + if (isLua(ci)) { /* a Lua function? */ + Proto *p = ci_func(ci)->l.p; + int pc = currentpc(L, ci); + Instruction i; + *name = luaF_getlocalname(p, stackpos+1, pc); + if (*name) /* is a local? */ + return "local"; + i = symbexec(p, pc, stackpos); /* try symbolic execution */ + lua_assert(pc != -1); + switch (GET_OPCODE(i)) { + case OP_GETGLOBAL: { + int g = GETARG_Bx(i); /* global index */ + lua_assert(ttisstring(&p->k[g])); + *name = svalue(&p->k[g]); + return "global"; + } + case OP_MOVE: { + int a = GETARG_A(i); + int b = GETARG_B(i); /* move from `b' to `a' */ + if (b < a) + return getobjname(L, ci, b, name); /* get name for `b' */ + break; + } + case OP_GETTABLE: { + int k = GETARG_C(i); /* key index */ + *name = kname(p, k); + return "field"; + } + case OP_GETUPVAL: { + int u = GETARG_B(i); /* upvalue index */ + *name = p->upvalues ? getstr(p->upvalues[u]) : "?"; + return "upvalue"; + } + case OP_SELF: { + int k = GETARG_C(i); /* key index */ + *name = kname(p, k); + return "method"; + } + default: break; + } + } + return NULL; /* no useful name found */ +} + + +static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { + Instruction i; + if ((isLua(ci) && ci->tailcalls > 0) || !isLua(ci - 1)) + return NULL; /* calling function is not Lua (or is unknown) */ + ci--; /* calling function */ + i = ci_func(ci)->l.p->code[currentpc(L, ci)]; + if (GET_OPCODE(i) == OP_CALL || GET_OPCODE(i) == OP_TAILCALL || + GET_OPCODE(i) == OP_TFORLOOP) + return getobjname(L, ci, GETARG_A(i), name); + else + return NULL; /* no useful name can be found */ +} + + +/* only ANSI way to check whether a pointer points to an array */ +static int isinstack (CallInfo *ci, const TValue *o) { + StkId p; + for (p = ci->base; p < ci->top; p++) + if (o == p) return 1; + return 0; +} + + +void luaG_typeerror (lua_State *L, const TValue *o, const char *op) { + const char *name = NULL; + const char *t = luaT_typenames[ttype(o)]; + const char *kind = (isinstack(L->ci, o)) ? + getobjname(L, L->ci, cast_int(o - L->base), &name) : + NULL; + if (kind) + luaG_runerror(L, "attempt to %s %s " LUA_QS " (a %s value)", + op, kind, name, t); + else + luaG_runerror(L, "attempt to %s a %s value", op, t); +} + + +void luaG_concaterror (lua_State *L, StkId p1, StkId p2) { + if (ttisstring(p1) || ttisnumber(p1)) p1 = p2; + lua_assert(!ttisstring(p1) && !ttisnumber(p1)); + luaG_typeerror(L, p1, "concatenate"); +} + + +void luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) { + TValue temp; + if (luaV_tonumber(p1, &temp) == NULL) + p2 = p1; /* first operand is wrong */ + luaG_typeerror(L, p2, "perform arithmetic on"); +} + + +int luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { + const char *t1 = luaT_typenames[ttype(p1)]; + const char *t2 = luaT_typenames[ttype(p2)]; + if (t1[2] == t2[2]) + luaG_runerror(L, "attempt to compare two %s values", t1); + else + luaG_runerror(L, "attempt to compare %s with %s", t1, t2); + return 0; +} + + +static void addinfo (lua_State *L, const char *msg) { + CallInfo *ci = L->ci; + if (isLua(ci)) { /* is Lua code? */ + char buff[LUA_IDSIZE]; /* add file:line information */ + int line = currentline(L, ci); + luaO_chunkid(buff, getstr(getluaproto(ci)->source), LUA_IDSIZE); + luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); + } +} + + +void luaG_errormsg (lua_State *L) { + if (L->errfunc != 0) { /* is there an error handling function? */ + StkId errfunc = restorestack(L, L->errfunc); + if (!ttisfunction(errfunc)) luaD_throw(L, LUA_ERRERR); + setobjs2s(L, L->top, L->top - 1); /* move argument */ + setobjs2s(L, L->top - 1, errfunc); /* push function */ + incr_top(L); + luaD_call(L, L->top - 2, 1); /* call it */ + } + luaD_throw(L, LUA_ERRRUN); +} + + +void luaG_runerror (lua_State *L, const char *fmt, ...) { + va_list argp; + va_start(argp, fmt); + addinfo(L, luaO_pushvfstring(L, fmt, argp)); + va_end(argp); + luaG_errormsg(L); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldebug.h b/src/3rd party/LuaJIT-1.1.8/src/ldebug.h new file mode 100644 index 00000000000..ba28a97248e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldebug.h @@ -0,0 +1,33 @@ +/* +** $Id: ldebug.h,v 2.3.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions from Debug Interface module +** See Copyright Notice in lua.h +*/ + +#ifndef ldebug_h +#define ldebug_h + + +#include "lstate.h" + + +#define pcRel(pc, p) (cast(int, (pc) - (p)->code) - 1) + +#define getline(f,pc) (((f)->lineinfo) ? (f)->lineinfo[pc] : 0) + +#define resethookcount(L) (L->hookcount = L->basehookcount) + + +LUAI_FUNC void luaG_typeerror (lua_State *L, const TValue *o, + const char *opname); +LUAI_FUNC void luaG_concaterror (lua_State *L, StkId p1, StkId p2); +LUAI_FUNC void luaG_aritherror (lua_State *L, const TValue *p1, + const TValue *p2); +LUAI_FUNC int luaG_ordererror (lua_State *L, const TValue *p1, + const TValue *p2); +LUAI_FUNC void luaG_runerror (lua_State *L, const char *fmt, ...); +LUAI_FUNC void luaG_errormsg (lua_State *L); +LUAI_FUNC int luaG_checkcode (const Proto *pt); +LUAI_FUNC int luaG_checkopenop (Instruction i); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldo.c b/src/3rd party/LuaJIT-1.1.8/src/ldo.c new file mode 100644 index 00000000000..d04745abe4e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldo.c @@ -0,0 +1,520 @@ +/* +** $Id: ldo.c,v 2.38.1.4 2012/01/18 02:27:10 roberto Exp $ +** Stack and Call structure of Lua +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define ldo_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lundump.h" +#include "lvm.h" +#include "lzio.h" +#include "ljit.h" + + + + +/* +** {====================================================== +** Error-recovery functions +** ======================================================= +*/ + + +/* chain list of long jump buffers */ +struct lua_longjmp { + struct lua_longjmp *previous; + luai_jmpbuf b; + volatile int status; /* error code */ +}; + + +void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop) { + switch (errcode) { + case LUA_ERRMEM: { + setsvalue2s(L, oldtop, luaS_newliteral(L, MEMERRMSG)); + break; + } + case LUA_ERRERR: { + setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); + break; + } + case LUA_ERRSYNTAX: + case LUA_ERRRUN: { + setobjs2s(L, oldtop, L->top - 1); /* error message on current top */ + break; + } + } + L->top = oldtop + 1; +} + + +static void restore_stack_limit (lua_State *L) { + lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1); + if (L->size_ci > LUAI_MAXCALLS) { /* there was an overflow? */ + int inuse = cast_int(L->ci - L->base_ci); + if (inuse + 1 < LUAI_MAXCALLS) /* can `undo' overflow? */ + luaD_reallocCI(L, LUAI_MAXCALLS); + } +} + + +static void resetstack (lua_State *L, int status) { + L->ci = L->base_ci; + L->base = L->ci->base; + luaF_close(L, L->base); /* close eventual pending closures */ + luaD_seterrorobj(L, status, L->base); + L->nCcalls = 0; + L->allowhook = 1; + restore_stack_limit(L); + L->errfunc = 0; + L->errorJmp = NULL; +} + + +void luaD_throw (lua_State *L, int errcode) { + if (L->errorJmp) { + L->errorJmp->status = errcode; + LUAI_THROW(L, L->errorJmp); + } + else { + L->status = cast_byte(errcode); + if (G(L)->panic) { + resetstack(L, errcode); + lua_unlock(L); + G(L)->panic(L); + } + exit(EXIT_FAILURE); + } +} + + +int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { + struct lua_longjmp lj; + lj.status = 0; + lj.previous = L->errorJmp; /* chain new error handler */ + L->errorJmp = &lj; + LUAI_TRY(L, &lj, + (*f)(L, ud); + ); + L->errorJmp = lj.previous; /* restore old error handler */ + return lj.status; +} + +/* }====================================================== */ + + +static void correctstack (lua_State *L, TValue *oldstack) { + CallInfo *ci; + GCObject *up; + L->top = (L->top - oldstack) + L->stack; + for (up = L->openupval; up != NULL; up = up->gch.next) + gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; + for (ci = L->base_ci; ci <= L->ci; ci++) { + ci->top = (ci->top - oldstack) + L->stack; + ci->base = (ci->base - oldstack) + L->stack; + ci->func = (ci->func - oldstack) + L->stack; + } + L->base = (L->base - oldstack) + L->stack; +} + + +void luaD_reallocstack (lua_State *L, int newsize) { + TValue *oldstack = L->stack; + int realsize = newsize + 1 + EXTRA_STACK; + lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1); + luaM_reallocvector(L, L->stack, L->stacksize, realsize, TValue); + L->stacksize = realsize; + L->stack_last = L->stack+newsize; + correctstack(L, oldstack); +} + + +void luaD_reallocCI (lua_State *L, int newsize) { + CallInfo *oldci = L->base_ci; + luaM_reallocvector(L, L->base_ci, L->size_ci, newsize, CallInfo); + L->size_ci = newsize; + L->ci = (L->ci - oldci) + L->base_ci; + L->end_ci = L->base_ci + L->size_ci - 1; +} + + +void luaD_growstack (lua_State *L, int n) { + if (n <= L->stacksize) /* double size is enough? */ + luaD_reallocstack(L, 2*L->stacksize); + else + luaD_reallocstack(L, L->stacksize + n); +} + + +CallInfo *luaD_growCI (lua_State *L) { + if (L->size_ci > LUAI_MAXCALLS) /* overflow while handling overflow? */ + luaD_throw(L, LUA_ERRERR); + else { + luaD_reallocCI(L, 2*L->size_ci); + if (L->size_ci > LUAI_MAXCALLS) + luaG_runerror(L, "stack overflow"); + } + return ++L->ci; +} + + +void luaD_callhook (lua_State *L, int event, int line) { + lua_Hook hook = L->hook; + if (hook && L->allowhook) { + ptrdiff_t top = savestack(L, L->top); + ptrdiff_t ci_top = savestack(L, L->ci->top); + lua_Debug ar; + ar.event = event; + ar.currentline = line; + if (event == LUA_HOOKTAILRET) + ar.i_ci = 0; /* tail call; no debug information about it */ + else + ar.i_ci = cast_int(L->ci - L->base_ci); + luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ + L->ci->top = L->top + LUA_MINSTACK; + lua_assert(L->ci->top <= L->stack_last); + L->allowhook = 0; /* cannot call hooks inside a hook */ + lua_unlock(L); + (*hook)(L, &ar); + lua_lock(L); + lua_assert(!L->allowhook); + L->allowhook = 1; + L->ci->top = restorestack(L, ci_top); + L->top = restorestack(L, top); + } +} + + +static StkId adjust_varargs (lua_State *L, Proto *p, int actual) { + int i; + int nfixargs = p->numparams; + Table *htab = NULL; + StkId base, fixed; + for (; actual < nfixargs; ++actual) + setnilvalue(L->top++); +#if defined(LUA_COMPAT_VARARG) + if (p->is_vararg & VARARG_NEEDSARG) { /* compat. with old-style vararg? */ + int nvar = actual - nfixargs; /* number of extra arguments */ + lua_assert(p->is_vararg & VARARG_HASARG); + luaC_checkGC(L); + luaD_checkstack(L, p->maxstacksize); + htab = luaH_new(L, nvar, 1); /* create `arg' table */ + for (i=0; itop - nvar + i); + /* store counter in field `n' */ + setnvalue(luaH_setstr(L, htab, luaS_newliteral(L, "n")), cast_num(nvar)); + } +#endif + /* move fixed parameters to final position */ + fixed = L->top - actual; /* first fixed argument */ + base = L->top; /* final position of first argument */ + for (i=0; itop++, fixed+i); + setnilvalue(fixed+i); + } + /* add `arg' parameter */ + if (htab) { + sethvalue(L, L->top++, htab); + lua_assert(iswhite(obj2gco(htab))); + } + return base; +} + + +StkId luaD_tryfuncTM (lua_State *L, StkId func) { + const TValue *tm = luaT_gettmbyobj(L, func, TM_CALL); + StkId p; + ptrdiff_t funcr = savestack(L, func); + if (!ttisfunction(tm)) + luaG_typeerror(L, func, "call"); + /* Open a hole inside the stack at `func' */ + for (p = L->top; p > func; p--) setobjs2s(L, p, p-1); + incr_top(L); + func = restorestack(L, funcr); /* previous call may change stack */ + setobj2s(L, func, tm); /* tag method is the new function to be called */ + return func; +} + + + +#define inc_ci(L) \ + ((L->ci == L->end_ci) ? luaD_growCI(L) : \ + (condhardstacktests(luaD_reallocCI(L, L->size_ci)), ++L->ci)) + + +int luaD_precall (lua_State *L, StkId func, int nresults) { + LClosure *cl; + ptrdiff_t funcr; + if (!ttisfunction(func)) /* `func' is not a function? */ + func = luaD_tryfuncTM(L, func); /* check the `function' tag method */ + funcr = savestack(L, func); + cl = &clvalue(func)->l; + L->ci->savedpc = L->savedpc; + if (!cl->isC) { /* Lua function? prepare its call */ + CallInfo *ci; + StkId st, base; + Proto *p = cl->p; + if (p->jit_status <= JIT_S_NONE) { /* JIT compiler enabled? */ + if (p->jit_status == JIT_S_OK) + return G(L)->jit_gateLJ(L, func, nresults); /* Run compiled code. */ + else + return luaJIT_run(L, func, nresults); /* Compile and run code. */ + } + luaD_checkstack(L, p->maxstacksize); + func = restorestack(L, funcr); + if (!p->is_vararg) { /* no varargs? */ + base = func + 1; + if (L->top > base + p->numparams) + L->top = base + p->numparams; + } + else { /* vararg function */ + int nargs = cast_int(L->top - func) - 1; + base = adjust_varargs(L, p, nargs); + func = restorestack(L, funcr); /* previous call may change the stack */ + } + ci = inc_ci(L); /* now `enter' new function */ + ci->func = func; + L->base = ci->base = base; + ci->top = L->base + p->maxstacksize; + lua_assert(ci->top <= L->stack_last); + L->savedpc = p->code; /* starting point */ + ci->tailcalls = 0; + ci->nresults = nresults; + for (st = L->top; st < ci->top; st++) + setnilvalue(st); + L->top = ci->top; + if (L->hookmask & LUA_MASKCALL) { + L->savedpc++; /* hooks assume 'pc' is already incremented */ + luaD_callhook(L, LUA_HOOKCALL, -1); + L->savedpc--; /* correct 'pc' */ + } + return PCRLUA; + } + else { /* if is a C function, call it */ + CallInfo *ci; + int n; + luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ + ci = inc_ci(L); /* now `enter' new function */ + ci->func = restorestack(L, funcr); + L->base = ci->base = ci->func + 1; + ci->top = L->top + LUA_MINSTACK; + lua_assert(ci->top <= L->stack_last); + ci->nresults = nresults; + if (L->hookmask & LUA_MASKCALL) + luaD_callhook(L, LUA_HOOKCALL, -1); + lua_unlock(L); + n = (*curr_func(L)->c.f)(L); /* do the actual call */ + lua_lock(L); + if (n < 0) /* yielding? */ + return PCRYIELD; + else { + luaD_poscall(L, L->top - n); + return PCRC; + } + } +} + + +static StkId callrethooks (lua_State *L, StkId firstResult) { + ptrdiff_t fr = savestack(L, firstResult); /* next call may change stack */ + luaD_callhook(L, LUA_HOOKRET, -1); + if (f_isLua(L->ci)) { /* Lua function? */ + while ((L->hookmask & LUA_MASKRET) && L->ci->tailcalls--) /* tail calls */ + luaD_callhook(L, LUA_HOOKTAILRET, -1); + } + return restorestack(L, fr); +} + + +int luaD_poscall (lua_State *L, StkId firstResult) { + StkId res; + int wanted, i; + CallInfo *ci; + if (L->hookmask & LUA_MASKRET) + firstResult = callrethooks(L, firstResult); + ci = L->ci--; + res = ci->func; /* res == final position of 1st result */ + wanted = ci->nresults; + L->base = (ci - 1)->base; /* restore base */ + L->savedpc = (ci - 1)->savedpc; /* restore savedpc */ + /* move results to correct place */ + for (i = wanted; i != 0 && firstResult < L->top; i--) + setobjs2s(L, res++, firstResult++); + while (i-- > 0) + setnilvalue(res++); + L->top = res; + return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */ +} + + +/* +** Call a function (C or Lua). The function to be called is at *func. +** The arguments are on the stack, right after the function. +** When returns, all the results are on the stack, starting at the original +** function position. +*/ +void luaD_call (lua_State *L, StkId func, int nResults) { + if (++L->nCcalls >= LUAI_MAXCCALLS) { + if (L->nCcalls == LUAI_MAXCCALLS) + luaG_runerror(L, "C stack overflow"); + else if (L->nCcalls >= (LUAI_MAXCCALLS + (LUAI_MAXCCALLS>>3))) + luaD_throw(L, LUA_ERRERR); /* error while handing stack error */ + } + if (luaD_precall(L, func, nResults) == PCRLUA) /* is a Lua function? */ + luaV_execute(L, 1); /* call it */ + L->nCcalls--; + luaC_checkGC(L); +} + + +static void resume (lua_State *L, void *ud) { + StkId firstArg = cast(StkId, ud); + CallInfo *ci = L->ci; + if (L->status == 0) { /* start coroutine? */ + lua_assert(ci == L->base_ci && firstArg > L->base); + if (luaD_precall(L, firstArg - 1, LUA_MULTRET) != PCRLUA) + return; + } + else { /* resuming from previous yield */ + lua_assert(L->status == LUA_YIELD); + L->status = 0; + if (!f_isLua(ci)) { /* `common' yield? */ + /* finish interrupted execution of `OP_CALL' */ + lua_assert(GET_OPCODE(*((ci-1)->savedpc - 1)) == OP_CALL || + GET_OPCODE(*((ci-1)->savedpc - 1)) == OP_TAILCALL); + if (luaD_poscall(L, firstArg)) /* complete it... */ + L->top = L->ci->top; /* and correct top if not multiple results */ + } + else /* yielded inside a hook: just continue its execution */ + L->base = L->ci->base; + } + luaV_execute(L, cast_int(L->ci - L->base_ci)); +} + + +static int resume_error (lua_State *L, const char *msg) { + L->top = L->ci->base; + setsvalue2s(L, L->top, luaS_new(L, msg)); + incr_top(L); + lua_unlock(L); + return LUA_ERRRUN; +} + + +LUA_API int lua_resume (lua_State *L, int nargs) { + int status; + lua_lock(L); + if (L->status != LUA_YIELD && (L->status != 0 || L->ci != L->base_ci)) + return resume_error(L, "cannot resume non-suspended coroutine"); + luai_userstateresume(L, nargs); + lua_assert(L->errfunc == 0 && L->nCcalls == 0); + status = luaD_rawrunprotected(L, resume, L->top - nargs); + if (status != 0) { /* error? */ + L->status = cast_byte(status); /* mark thread as `dead' */ + luaD_seterrorobj(L, status, L->top); + L->ci->top = L->top; + } + else + status = L->status; + lua_unlock(L); + return status; +} + + +LUA_API int lua_yield (lua_State *L, int nresults) { + luai_userstateyield(L, nresults); + lua_lock(L); + if (L->nCcalls > 0) + luaG_runerror(L, "attempt to yield across metamethod/C-call boundary"); + L->base = L->top - nresults; /* protect stack slots below */ + L->status = LUA_YIELD; + lua_unlock(L); + return -1; +} + + +int luaD_pcall (lua_State *L, Pfunc func, void *u, + ptrdiff_t old_top, ptrdiff_t ef) { + int status; + unsigned short oldnCcalls = L->nCcalls; + ptrdiff_t old_ci = saveci(L, L->ci); + lu_byte old_allowhooks = L->allowhook; + ptrdiff_t old_errfunc = L->errfunc; + L->errfunc = ef; + status = luaD_rawrunprotected(L, func, u); + if (status != 0) { /* an error occurred? */ + StkId oldtop = restorestack(L, old_top); + luaF_close(L, oldtop); /* close eventual pending closures */ + luaD_seterrorobj(L, status, oldtop); + L->nCcalls = oldnCcalls; + L->ci = restoreci(L, old_ci); + L->base = L->ci->base; + L->savedpc = L->ci->savedpc; + L->allowhook = old_allowhooks; + restore_stack_limit(L); + } + L->errfunc = old_errfunc; + return status; +} + + + +/* +** Execute a protected parser. +*/ +struct SParser { /* data to `f_parser' */ + ZIO *z; + Mbuffer buff; /* buffer to be used by the scanner */ + const char *name; +}; + +static void f_parser (lua_State *L, void *ud) { + int i; + Proto *tf; + Closure *cl; + struct SParser *p = cast(struct SParser *, ud); + int c = luaZ_lookahead(p->z); + luaC_checkGC(L); + tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, + &p->buff, p->name); + cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); + cl->l.p = tf; + for (i = 0; i < tf->nups; i++) /* initialize eventual upvalues */ + cl->l.upvals[i] = luaF_newupval(L); + setclvalue(L, L->top, cl); + incr_top(L); +} + + +int luaD_protectedparser (lua_State *L, ZIO *z, const char *name) { + struct SParser p; + int status; + p.z = z; p.name = name; + luaZ_initbuffer(L, &p.buff); + status = luaD_pcall(L, f_parser, &p, savestack(L, L->top), L->errfunc); + luaZ_freebuffer(L, &p.buff); + return status; +} + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldo.h b/src/3rd party/LuaJIT-1.1.8/src/ldo.h new file mode 100644 index 00000000000..63760f9cd1a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldo.h @@ -0,0 +1,59 @@ +/* +** $Id: ldo.h,v 2.7.1.1 2007/12/27 13:02:25 roberto Exp $ +** Stack and Call structure of Lua +** See Copyright Notice in lua.h +*/ + +#ifndef ldo_h +#define ldo_h + + +#include "lobject.h" +#include "lstate.h" +#include "lzio.h" + + +#define luaD_checkstack(L,n) \ + if ((char *)L->stack_last - (char *)L->top <= (n)*(int)sizeof(TValue)) \ + luaD_growstack(L, n); \ + else condhardstacktests(luaD_reallocstack(L, L->stacksize - EXTRA_STACK - 1)); + + +#define incr_top(L) {luaD_checkstack(L,1); L->top++;} + +#define savestack(L,p) ((char *)(p) - (char *)L->stack) +#define restorestack(L,n) ((TValue *)((char *)L->stack + (n))) + +#define saveci(L,p) ((char *)(p) - (char *)L->base_ci) +#define restoreci(L,n) ((CallInfo *)((char *)L->base_ci + (n))) + + +/* results from luaD_precall */ +#define PCRLUA 0 /* initiated a call to a Lua function */ +#define PCRC 1 /* did a call to a C function */ +#define PCRYIELD 2 /* C function yielded */ + + +/* type of protected functions, to be ran by `runprotected' */ +typedef void (*Pfunc) (lua_State *L, void *ud); + +LUAI_FUNC int luaD_protectedparser (lua_State *L, ZIO *z, const char *name); +LUAI_FUNC void luaD_callhook (lua_State *L, int event, int line); +LUAI_FUNC StkId luaD_tryfuncTM (lua_State *L, StkId func); +LUAI_FUNC int luaD_precall (lua_State *L, StkId func, int nresults); +LUAI_FUNC void luaD_call (lua_State *L, StkId func, int nResults); +LUAI_FUNC int luaD_pcall (lua_State *L, Pfunc func, void *u, + ptrdiff_t oldtop, ptrdiff_t ef); +LUAI_FUNC int luaD_poscall (lua_State *L, StkId firstResult); +LUAI_FUNC void luaD_reallocCI (lua_State *L, int newsize); +LUAI_FUNC CallInfo *luaD_growCI (lua_State *L); +LUAI_FUNC void luaD_reallocstack (lua_State *L, int newsize); +LUAI_FUNC void luaD_growstack (lua_State *L, int n); + +LUAI_FUNC void luaD_throw (lua_State *L, int errcode); +LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud); + +LUAI_FUNC void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ldump.c b/src/3rd party/LuaJIT-1.1.8/src/ldump.c new file mode 100644 index 00000000000..c9d3d4870f4 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ldump.c @@ -0,0 +1,164 @@ +/* +** $Id: ldump.c,v 2.8.1.1 2007/12/27 13:02:25 roberto Exp $ +** save precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#include + +#define ldump_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "lundump.h" + +typedef struct { + lua_State* L; + lua_Writer writer; + void* data; + int strip; + int status; +} DumpState; + +#define DumpMem(b,n,size,D) DumpBlock(b,(n)*(size),D) +#define DumpVar(x,D) DumpMem(&x,1,sizeof(x),D) + +static void DumpBlock(const void* b, size_t size, DumpState* D) +{ + if (D->status==0) + { + lua_unlock(D->L); + D->status=(*D->writer)(D->L,b,size,D->data); + lua_lock(D->L); + } +} + +static void DumpChar(int y, DumpState* D) +{ + char x=(char)y; + DumpVar(x,D); +} + +static void DumpInt(int x, DumpState* D) +{ + DumpVar(x,D); +} + +static void DumpNumber(lua_Number x, DumpState* D) +{ + DumpVar(x,D); +} + +static void DumpVector(const void* b, int n, size_t size, DumpState* D) +{ + DumpInt(n,D); + DumpMem(b,n,size,D); +} + +static void DumpString(const TString* s, DumpState* D) +{ + if (s==NULL || getstr(s)==NULL) + { + size_t size=0; + DumpVar(size,D); + } + else + { + size_t size=s->tsv.len+1; /* include trailing '\0' */ + DumpVar(size,D); + DumpBlock(getstr(s),size,D); + } +} + +#define DumpCode(f,D) DumpVector(f->code,f->sizecode,sizeof(Instruction),D) + +static void DumpFunction(const Proto* f, const TString* p, DumpState* D); + +static void DumpConstants(const Proto* f, DumpState* D) +{ + int i,n=f->sizek; + DumpInt(n,D); + for (i=0; ik[i]; + DumpChar(ttype(o),D); + switch (ttype(o)) + { + case LUA_TNIL: + break; + case LUA_TBOOLEAN: + DumpChar(bvalue(o),D); + break; + case LUA_TNUMBER: + DumpNumber(nvalue(o),D); + break; + case LUA_TSTRING: + DumpString(rawtsvalue(o),D); + break; + default: + lua_assert(0); /* cannot happen */ + break; + } + } + n=f->sizep; + DumpInt(n,D); + for (i=0; ip[i],f->source,D); +} + +static void DumpDebug(const Proto* f, DumpState* D) +{ + int i,n; + n= (D->strip) ? 0 : f->sizelineinfo; + DumpVector(f->lineinfo,n,sizeof(int),D); + n= (D->strip) ? 0 : f->sizelocvars; + DumpInt(n,D); + for (i=0; ilocvars[i].varname,D); + DumpInt(f->locvars[i].startpc,D); + DumpInt(f->locvars[i].endpc,D); + } + n= (D->strip) ? 0 : f->sizeupvalues; + DumpInt(n,D); + for (i=0; iupvalues[i],D); +} + +static void DumpFunction(const Proto* f, const TString* p, DumpState* D) +{ + DumpString((f->source==p || D->strip) ? NULL : f->source,D); + DumpInt(f->linedefined,D); + DumpInt(f->lastlinedefined,D); + DumpChar(f->nups,D); + DumpChar(f->numparams,D); + DumpChar(f->is_vararg,D); + DumpChar(f->maxstacksize,D); + DumpCode(f,D); + DumpConstants(f,D); + DumpDebug(f,D); +} + +static void DumpHeader(DumpState* D) +{ + char h[LUAC_HEADERSIZE]; + luaU_header(h); + DumpBlock(h,LUAC_HEADERSIZE,D); +} + +/* +** dump Lua function as precompiled chunk +*/ +int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip) +{ + DumpState D; + D.L=L; + D.writer=w; + D.data=data; + D.strip=strip; + D.status=0; + DumpHeader(&D); + DumpFunction(f,NULL,&D); + return D.status; +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lfunc.c b/src/3rd party/LuaJIT-1.1.8/src/lfunc.c new file mode 100644 index 00000000000..334e305bab3 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lfunc.c @@ -0,0 +1,182 @@ +/* +** $Id: lfunc.c,v 2.12.1.2 2007/12/28 14:58:43 roberto Exp $ +** Auxiliary functions to manipulate prototypes and closures +** See Copyright Notice in lua.h +*/ + + +#include + +#define lfunc_c +#define LUA_CORE + +#include "lua.h" + +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "ljit.h" + + + +Closure *luaF_newCclosure (lua_State *L, int nelems, Table *e) { + Closure *c = cast(Closure *, luaM_malloc(L, sizeCclosure(nelems))); + luaC_link(L, obj2gco(c), LUA_TFUNCTION); + c->c.isC = 1; + c->c.env = e; + c->c.nupvalues = cast_byte(nelems); + c->c.jit_gate = G(L)->jit_gateJC; + return c; +} + + +Closure *luaF_newLclosure (lua_State *L, int nelems, Table *e) { + Closure *c = cast(Closure *, luaM_malloc(L, sizeLclosure(nelems))); + luaC_link(L, obj2gco(c), LUA_TFUNCTION); + c->l.isC = 0; + c->l.env = e; + c->l.jit_gate = G(L)->jit_gateJL; + c->l.nupvalues = cast_byte(nelems); + while (nelems--) c->l.upvals[nelems] = NULL; + return c; +} + + +UpVal *luaF_newupval (lua_State *L) { + UpVal *uv = luaM_new(L, UpVal); + luaC_link(L, obj2gco(uv), LUA_TUPVAL); + uv->v = &uv->u.value; + setnilvalue(uv->v); + return uv; +} + + +UpVal *luaF_findupval (lua_State *L, StkId level) { + global_State *g = G(L); + GCObject **pp = &L->openupval; + UpVal *p; + UpVal *uv; + while (*pp != NULL && (p = ngcotouv(*pp))->v >= level) { + lua_assert(p->v != &p->u.value); + if (p->v == level) { /* found a corresponding upvalue? */ + if (isdead(g, obj2gco(p))) /* is it dead? */ + changewhite(obj2gco(p)); /* ressurect it */ + return p; + } + pp = &p->next; + } + uv = luaM_new(L, UpVal); /* not found: create a new one */ + uv->tt = LUA_TUPVAL; + uv->marked = luaC_white(g); + uv->v = level; /* current value lives in the stack */ + uv->next = *pp; /* chain it in the proper position */ + *pp = obj2gco(uv); + uv->u.l.prev = &g->uvhead; /* double link it in `uvhead' list */ + uv->u.l.next = g->uvhead.u.l.next; + uv->u.l.next->u.l.prev = uv; + g->uvhead.u.l.next = uv; + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + return uv; +} + + +static void unlinkupval (UpVal *uv) { + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + uv->u.l.next->u.l.prev = uv->u.l.prev; /* remove from `uvhead' list */ + uv->u.l.prev->u.l.next = uv->u.l.next; +} + + +void luaF_freeupval (lua_State *L, UpVal *uv) { + if (uv->v != &uv->u.value) /* is it open? */ + unlinkupval(uv); /* remove from open list */ + luaM_free(L, uv); /* free upvalue */ +} + + +void luaF_close (lua_State *L, StkId level) { + UpVal *uv; + global_State *g = G(L); + while (L->openupval != NULL && (uv = ngcotouv(L->openupval))->v >= level) { + GCObject *o = obj2gco(uv); + lua_assert(!isblack(o) && uv->v != &uv->u.value); + L->openupval = uv->next; /* remove from `open' list */ + if (isdead(g, o)) + luaF_freeupval(L, uv); /* free upvalue */ + else { + unlinkupval(uv); + setobj(L, &uv->u.value, uv->v); + uv->v = &uv->u.value; /* now current value lives here */ + luaC_linkupval(L, uv); /* link upvalue into `gcroot' list */ + } + } +} + + +Proto *luaF_newproto (lua_State *L) { + Proto *f = luaM_new(L, Proto); + luaC_link(L, obj2gco(f), LUA_TPROTO); + f->k = NULL; + f->sizek = 0; + f->p = NULL; + f->sizep = 0; + f->code = NULL; + f->sizecode = 0; + f->sizelineinfo = 0; + f->sizeupvalues = 0; + f->nups = 0; + f->upvalues = NULL; + f->numparams = 0; + f->is_vararg = 0; + f->maxstacksize = 0; + f->lineinfo = NULL; + f->sizelocvars = 0; + f->locvars = NULL; + f->linedefined = 0; + f->lastlinedefined = 0; + f->source = NULL; + /* LuaJIT extensions */ + f->jit_mcode = NULL; + f->jit_szmcode = 0; + f->jit_status = JIT_S_NONE; + return f; +} + + +void luaF_freeproto (lua_State *L, Proto *f) { + luaJIT_freeproto(L, f); + luaM_freearray(L, f->code, f->sizecode, Instruction); + luaM_freearray(L, f->p, f->sizep, Proto *); + luaM_freearray(L, f->k, f->sizek, TValue); + luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); + luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); + luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *); + luaM_free(L, f); +} + + +void luaF_freeclosure (lua_State *L, Closure *c) { + int size = (c->c.isC) ? sizeCclosure(c->c.nupvalues) : + sizeLclosure(c->l.nupvalues); + luaM_freemem(L, c, size); +} + + +/* +** Look for n-th local variable at line `line' in function `func'. +** Returns NULL if not found. +*/ +const char *luaF_getlocalname (const Proto *f, int local_number, int pc) { + int i; + for (i = 0; isizelocvars && f->locvars[i].startpc <= pc; i++) { + if (pc < f->locvars[i].endpc) { /* is variable active? */ + local_number--; + if (local_number == 0) + return getstr(f->locvars[i].varname); + } + } + return NULL; /* not found */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lfunc.h b/src/3rd party/LuaJIT-1.1.8/src/lfunc.h new file mode 100644 index 00000000000..a68cf5151cb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lfunc.h @@ -0,0 +1,34 @@ +/* +** $Id: lfunc.h,v 2.4.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions to manipulate prototypes and closures +** See Copyright Notice in lua.h +*/ + +#ifndef lfunc_h +#define lfunc_h + + +#include "lobject.h" + + +#define sizeCclosure(n) (cast(int, sizeof(CClosure)) + \ + cast(int, sizeof(TValue)*((n)-1))) + +#define sizeLclosure(n) (cast(int, sizeof(LClosure)) + \ + cast(int, sizeof(TValue *)*((n)-1))) + + +LUAI_FUNC Proto *luaF_newproto (lua_State *L); +LUAI_FUNC Closure *luaF_newCclosure (lua_State *L, int nelems, Table *e); +LUAI_FUNC Closure *luaF_newLclosure (lua_State *L, int nelems, Table *e); +LUAI_FUNC UpVal *luaF_newupval (lua_State *L); +LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level); +LUAI_FUNC void luaF_close (lua_State *L, StkId level); +LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f); +LUAI_FUNC void luaF_freeclosure (lua_State *L, Closure *c); +LUAI_FUNC void luaF_freeupval (lua_State *L, UpVal *uv); +LUAI_FUNC const char *luaF_getlocalname (const Proto *func, int local_number, + int pc); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lgc.c b/src/3rd party/LuaJIT-1.1.8/src/lgc.c new file mode 100644 index 00000000000..e909c79a969 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lgc.c @@ -0,0 +1,710 @@ +/* +** $Id: lgc.c,v 2.38.1.2 2011/03/18 18:05:38 roberto Exp $ +** Garbage Collector +** See Copyright Notice in lua.h +*/ + +#include + +#define lgc_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" + + +#define GCSTEPSIZE 1024u +#define GCSWEEPMAX 40 +#define GCSWEEPCOST 10 +#define GCFINALIZECOST 100 + + +#define maskmarks cast_byte(~(bitmask(BLACKBIT)|WHITEBITS)) + +#define makewhite(g,x) \ + ((x)->gch.marked = cast_byte(((x)->gch.marked & maskmarks) | luaC_white(g))) + +#define white2gray(x) reset2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT) +#define black2gray(x) resetbit((x)->gch.marked, BLACKBIT) + +#define stringmark(s) reset2bits((s)->tsv.marked, WHITE0BIT, WHITE1BIT) + + +#define isfinalized(u) testbit((u)->marked, FINALIZEDBIT) +#define markfinalized(u) l_setbit((u)->marked, FINALIZEDBIT) + + +#define KEYWEAK bitmask(KEYWEAKBIT) +#define VALUEWEAK bitmask(VALUEWEAKBIT) + + + +#define markvalue(g,o) { checkconsistency(o); \ + if (iscollectable(o) && iswhite(gcvalue(o))) reallymarkobject(g,gcvalue(o)); } + +#define markobject(g,t) { if (iswhite(obj2gco(t))) \ + reallymarkobject(g, obj2gco(t)); } + + +#define setthreshold(g) (g->GCthreshold = (g->estimate/100) * g->gcpause) + + +static void removeentry (Node *n) { + lua_assert(ttisnil(gval(n))); + if (iscollectable(gkey(n))) + setttype(gkey(n), LUA_TDEADKEY); /* dead key; remove it */ +} + + +static void reallymarkobject (global_State *g, GCObject *o) { + lua_assert(iswhite(o) && !isdead(g, o)); + white2gray(o); + switch (o->gch.tt) { + case LUA_TSTRING: { + return; + } + case LUA_TUSERDATA: { + Table *mt = gco2u(o)->metatable; + gray2black(o); /* udata are never gray */ + if (mt) markobject(g, mt); + markobject(g, gco2u(o)->env); + return; + } + case LUA_TUPVAL: { + UpVal *uv = gco2uv(o); + markvalue(g, uv->v); + if (uv->v == &uv->u.value) /* closed? */ + gray2black(o); /* open upvalues are never black */ + return; + } + case LUA_TFUNCTION: { + gco2cl(o)->c.gclist = g->gray; + g->gray = o; + break; + } + case LUA_TTABLE: { + gco2h(o)->gclist = g->gray; + g->gray = o; + break; + } + case LUA_TTHREAD: { + gco2th(o)->gclist = g->gray; + g->gray = o; + break; + } + case LUA_TPROTO: { + gco2p(o)->gclist = g->gray; + g->gray = o; + break; + } + default: lua_assert(0); + } +} + + +static void marktmu (global_State *g) { + GCObject *u = g->tmudata; + if (u) { + do { + u = u->gch.next; + makewhite(g, u); /* may be marked, if left from previous GC */ + reallymarkobject(g, u); + } while (u != g->tmudata); + } +} + + +/* move `dead' udata that need finalization to list `tmudata' */ +size_t luaC_separateudata (lua_State *L, int all) { + global_State *g = G(L); + size_t deadmem = 0; + GCObject **p = &g->mainthread->next; + GCObject *curr; + while ((curr = *p) != NULL) { + if (!(iswhite(curr) || all) || isfinalized(gco2u(curr))) + p = &curr->gch.next; /* don't bother with them */ + else if (fasttm(L, gco2u(curr)->metatable, TM_GC) == NULL) { + markfinalized(gco2u(curr)); /* don't need finalization */ + p = &curr->gch.next; + } + else { /* must call its gc method */ + deadmem += sizeudata(gco2u(curr)); + markfinalized(gco2u(curr)); + *p = curr->gch.next; + /* link `curr' at the end of `tmudata' list */ + if (g->tmudata == NULL) /* list is empty? */ + g->tmudata = curr->gch.next = curr; /* creates a circular list */ + else { + curr->gch.next = g->tmudata->gch.next; + g->tmudata->gch.next = curr; + g->tmudata = curr; + } + } + } + return deadmem; +} + + +static int traversetable (global_State *g, Table *h) { + int i; + int weakkey = 0; + int weakvalue = 0; + const TValue *mode; + if (h->metatable) + markobject(g, h->metatable); + mode = gfasttm(g, h->metatable, TM_MODE); + if (mode && ttisstring(mode)) { /* is there a weak mode? */ + weakkey = (strchr(svalue(mode), 'k') != NULL); + weakvalue = (strchr(svalue(mode), 'v') != NULL); + if (weakkey || weakvalue) { /* is really weak? */ + h->marked &= ~(KEYWEAK | VALUEWEAK); /* clear bits */ + h->marked |= cast_byte((weakkey << KEYWEAKBIT) | + (weakvalue << VALUEWEAKBIT)); + h->gclist = g->weak; /* must be cleared after GC, ... */ + g->weak = obj2gco(h); /* ... so put in the appropriate list */ + } + } + if (weakkey && weakvalue) return 1; + if (!weakvalue) { + i = h->sizearray; + while (i--) + markvalue(g, &h->array[i]); + } + i = sizenode(h); + while (i--) { + Node *n = gnode(h, i); + lua_assert(ttype(gkey(n)) != LUA_TDEADKEY || ttisnil(gval(n))); + if (ttisnil(gval(n))) + removeentry(n); /* remove empty entries */ + else { + lua_assert(!ttisnil(gkey(n))); + if (!weakkey) markvalue(g, gkey(n)); + if (!weakvalue) markvalue(g, gval(n)); + } + } + return weakkey || weakvalue; +} + + +/* +** All marks are conditional because a GC may happen while the +** prototype is still being created +*/ +static void traverseproto (global_State *g, Proto *f) { + int i; + if (f->source) stringmark(f->source); + for (i=0; isizek; i++) /* mark literals */ + markvalue(g, &f->k[i]); + for (i=0; isizeupvalues; i++) { /* mark upvalue names */ + if (f->upvalues[i]) + stringmark(f->upvalues[i]); + } + for (i=0; isizep; i++) { /* mark nested protos */ + if (f->p[i]) + markobject(g, f->p[i]); + } + for (i=0; isizelocvars; i++) { /* mark local-variable names */ + if (f->locvars[i].varname) + stringmark(f->locvars[i].varname); + } +} + + + +static void traverseclosure (global_State *g, Closure *cl) { + markobject(g, cl->c.env); + if (cl->c.isC) { + int i; + for (i=0; ic.nupvalues; i++) /* mark its upvalues */ + markvalue(g, &cl->c.upvalue[i]); + } + else { + int i; + lua_assert(cl->l.nupvalues == cl->l.p->nups); + markobject(g, cl->l.p); + for (i=0; il.nupvalues; i++) /* mark its upvalues */ + markobject(g, cl->l.upvals[i]); + } +} + + +static void checkstacksizes (lua_State *L, StkId max) { + int ci_used = cast_int(L->ci - L->base_ci); /* number of `ci' in use */ + int s_used = cast_int(max - L->stack); /* part of stack in use */ + if (L->size_ci > LUAI_MAXCALLS) /* handling overflow? */ + return; /* do not touch the stacks */ + if (4*ci_used < L->size_ci && 2*BASIC_CI_SIZE < L->size_ci) + luaD_reallocCI(L, L->size_ci/2); /* still big enough... */ + condhardstacktests(luaD_reallocCI(L, ci_used + 1)); + if (4*s_used < L->stacksize && + 2*(BASIC_STACK_SIZE+EXTRA_STACK) < L->stacksize) + luaD_reallocstack(L, L->stacksize/2); /* still big enough... */ + condhardstacktests(luaD_reallocstack(L, s_used)); +} + + +static void traversestack (global_State *g, lua_State *l) { + StkId o, lim; + CallInfo *ci; + markvalue(g, gt(l)); + lim = l->top; + for (ci = l->base_ci; ci <= l->ci; ci++) { + lua_assert(ci->top <= l->stack_last); + if (lim < ci->top) lim = ci->top; + } + for (o = l->stack; o < l->top; o++) + markvalue(g, o); + for (; o <= lim; o++) + setnilvalue(o); + checkstacksizes(l, lim); +} + + +/* +** traverse one gray object, turning it to black. +** Returns `quantity' traversed. +*/ +static l_mem propagatemark (global_State *g) { + GCObject *o = g->gray; + lua_assert(isgray(o)); + gray2black(o); + switch (o->gch.tt) { + case LUA_TTABLE: { + Table *h = gco2h(o); + g->gray = h->gclist; + if (traversetable(g, h)) /* table is weak? */ + black2gray(o); /* keep it gray */ + return sizeof(Table) + sizeof(TValue) * h->sizearray + + sizeof(Node) * sizenode(h); + } + case LUA_TFUNCTION: { + Closure *cl = gco2cl(o); + g->gray = cl->c.gclist; + traverseclosure(g, cl); + return (cl->c.isC) ? sizeCclosure(cl->c.nupvalues) : + sizeLclosure(cl->l.nupvalues); + } + case LUA_TTHREAD: { + lua_State *th = gco2th(o); + g->gray = th->gclist; + th->gclist = g->grayagain; + g->grayagain = o; + black2gray(o); + traversestack(g, th); + return sizeof(lua_State) + sizeof(TValue) * th->stacksize + + sizeof(CallInfo) * th->size_ci; + } + case LUA_TPROTO: { + Proto *p = gco2p(o); + g->gray = p->gclist; + traverseproto(g, p); + return sizeof(Proto) + sizeof(Instruction) * p->sizecode + + sizeof(Proto *) * p->sizep + + sizeof(TValue) * p->sizek + + sizeof(int) * p->sizelineinfo + + sizeof(LocVar) * p->sizelocvars + + sizeof(TString *) * p->sizeupvalues; + } + default: lua_assert(0); return 0; + } +} + + +static size_t propagateall (global_State *g) { + size_t m = 0; + while (g->gray) m += propagatemark(g); + return m; +} + + +/* +** The next function tells whether a key or value can be cleared from +** a weak table. Non-collectable objects are never removed from weak +** tables. Strings behave as `values', so are never removed too. for +** other objects: if really collected, cannot keep them; for userdata +** being finalized, keep them in keys, but not in values +*/ +static int iscleared (const TValue *o, int iskey) { + if (!iscollectable(o)) return 0; + if (ttisstring(o)) { + stringmark(rawtsvalue(o)); /* strings are `values', so are never weak */ + return 0; + } + return iswhite(gcvalue(o)) || + (ttisuserdata(o) && (!iskey && isfinalized(uvalue(o)))); +} + + +/* +** clear collected entries from weaktables +*/ +static void cleartable (GCObject *l) { + while (l) { + Table *h = gco2h(l); + int i = h->sizearray; + lua_assert(testbit(h->marked, VALUEWEAKBIT) || + testbit(h->marked, KEYWEAKBIT)); + if (testbit(h->marked, VALUEWEAKBIT)) { + while (i--) { + TValue *o = &h->array[i]; + if (iscleared(o, 0)) /* value was collected? */ + setnilvalue(o); /* remove value */ + } + } + i = sizenode(h); + while (i--) { + Node *n = gnode(h, i); + if (!ttisnil(gval(n)) && /* non-empty entry? */ + (iscleared(key2tval(n), 1) || iscleared(gval(n), 0))) { + setnilvalue(gval(n)); /* remove value ... */ + removeentry(n); /* remove entry from table */ + } + } + l = h->gclist; + } +} + + +static void freeobj (lua_State *L, GCObject *o) { + switch (o->gch.tt) { + case LUA_TPROTO: luaF_freeproto(L, gco2p(o)); break; + case LUA_TFUNCTION: luaF_freeclosure(L, gco2cl(o)); break; + case LUA_TUPVAL: luaF_freeupval(L, gco2uv(o)); break; + case LUA_TTABLE: luaH_free(L, gco2h(o)); break; + case LUA_TTHREAD: { + lua_assert(gco2th(o) != L && gco2th(o) != G(L)->mainthread); + luaE_freethread(L, gco2th(o)); + break; + } + case LUA_TSTRING: { + G(L)->strt.nuse--; + luaM_freemem(L, o, sizestring(gco2ts(o))); + break; + } + case LUA_TUSERDATA: { + luaM_freemem(L, o, sizeudata(gco2u(o))); + break; + } + default: lua_assert(0); + } +} + + + +#define sweepwholelist(L,p) sweeplist(L,p,MAX_LUMEM) + + +static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count) { + GCObject *curr; + global_State *g = G(L); + int deadmask = otherwhite(g); + while ((curr = *p) != NULL && count-- > 0) { + if (curr->gch.tt == LUA_TTHREAD) /* sweep open upvalues of each thread */ + sweepwholelist(L, &gco2th(curr)->openupval); + if ((curr->gch.marked ^ WHITEBITS) & deadmask) { /* not dead? */ + lua_assert(!isdead(g, curr) || testbit(curr->gch.marked, FIXEDBIT)); + makewhite(g, curr); /* make it white (for next cycle) */ + p = &curr->gch.next; + } + else { /* must erase `curr' */ + lua_assert(isdead(g, curr) || deadmask == bitmask(SFIXEDBIT)); + *p = curr->gch.next; + if (curr == g->rootgc) /* is the first element of the list? */ + g->rootgc = curr->gch.next; /* adjust first */ + freeobj(L, curr); + } + } + return p; +} + + +static void checkSizes (lua_State *L) { + global_State *g = G(L); + /* check size of string hash */ + if (g->strt.nuse < cast(lu_int32, g->strt.size/4) && + g->strt.size > MINSTRTABSIZE*2) + luaS_resize(L, g->strt.size/2); /* table is too big */ + /* check size of buffer */ + if (luaZ_sizebuffer(&g->buff) > LUA_MINBUFFER*2) { /* buffer too big? */ + size_t newsize = luaZ_sizebuffer(&g->buff) / 2; + luaZ_resizebuffer(L, &g->buff, newsize); + } +} + + +static void GCTM (lua_State *L) { + global_State *g = G(L); + GCObject *o = g->tmudata->gch.next; /* get first element */ + Udata *udata = rawgco2u(o); + const TValue *tm; + /* remove udata from `tmudata' */ + if (o == g->tmudata) /* last element? */ + g->tmudata = NULL; + else + g->tmudata->gch.next = udata->uv.next; + udata->uv.next = g->mainthread->next; /* return it to `root' list */ + g->mainthread->next = o; + makewhite(g, o); + tm = fasttm(L, udata->uv.metatable, TM_GC); + if (tm != NULL) { + lu_byte oldah = L->allowhook; + lu_mem oldt = g->GCthreshold; + L->allowhook = 0; /* stop debug hooks during GC tag method */ + g->GCthreshold = 2*g->totalbytes; /* avoid GC steps */ + setobj2s(L, L->top, tm); + setuvalue(L, L->top+1, udata); + L->top += 2; + luaD_call(L, L->top - 2, 0); + L->allowhook = oldah; /* restore hooks */ + g->GCthreshold = oldt; /* restore threshold */ + } +} + + +/* +** Call all GC tag methods +*/ +void luaC_callGCTM (lua_State *L) { + while (G(L)->tmudata) + GCTM(L); +} + + +void luaC_freeall (lua_State *L) { + global_State *g = G(L); + int i; + g->currentwhite = WHITEBITS | bitmask(SFIXEDBIT); /* mask to collect all elements */ + sweepwholelist(L, &g->rootgc); + for (i = 0; i < g->strt.size; i++) /* free all string lists */ + sweepwholelist(L, &g->strt.hash[i]); +} + + +static void markmt (global_State *g) { + int i; + for (i=0; imt[i]) markobject(g, g->mt[i]); +} + + +/* mark root set */ +static void markroot (lua_State *L) { + global_State *g = G(L); + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + markobject(g, g->mainthread); + /* make global table be traversed before main stack */ + markvalue(g, gt(g->mainthread)); + markvalue(g, registry(L)); + markmt(g); + g->gcstate = GCSpropagate; +} + + +static void remarkupvals (global_State *g) { + UpVal *uv; + for (uv = g->uvhead.u.l.next; uv != &g->uvhead; uv = uv->u.l.next) { + lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); + if (isgray(obj2gco(uv))) + markvalue(g, uv->v); + } +} + + +static void atomic (lua_State *L) { + global_State *g = G(L); + size_t udsize; /* total size of userdata to be finalized */ + /* remark occasional upvalues of (maybe) dead threads */ + remarkupvals(g); + /* traverse objects cautch by write barrier and by 'remarkupvals' */ + propagateall(g); + /* remark weak tables */ + g->gray = g->weak; + g->weak = NULL; + lua_assert(!iswhite(obj2gco(g->mainthread))); + markobject(g, L); /* mark running thread */ + markmt(g); /* mark basic metatables (again) */ + propagateall(g); + /* remark gray again */ + g->gray = g->grayagain; + g->grayagain = NULL; + propagateall(g); + udsize = luaC_separateudata(L, 0); /* separate userdata to be finalized */ + marktmu(g); /* mark `preserved' userdata */ + udsize += propagateall(g); /* remark, to propagate `preserveness' */ + cleartable(g->weak); /* remove collected objects from weak tables */ + /* flip current white */ + g->currentwhite = cast_byte(otherwhite(g)); + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + g->gcstate = GCSsweepstring; + g->estimate = g->totalbytes - udsize; /* first estimate */ +} + + +static l_mem singlestep (lua_State *L) { + global_State *g = G(L); + /*lua_checkmemory(L);*/ + switch (g->gcstate) { + case GCSpause: { + markroot(L); /* start a new collection */ + return 0; + } + case GCSpropagate: { + if (g->gray) + return propagatemark(g); + else { /* no more `gray' objects */ + atomic(L); /* finish mark phase */ + return 0; + } + } + case GCSsweepstring: { + lu_mem old = g->totalbytes; + sweepwholelist(L, &g->strt.hash[g->sweepstrgc++]); + if (g->sweepstrgc >= g->strt.size) /* nothing more to sweep? */ + g->gcstate = GCSsweep; /* end sweep-string phase */ + lua_assert(old >= g->totalbytes); + g->estimate -= old - g->totalbytes; + return GCSWEEPCOST; + } + case GCSsweep: { + lu_mem old = g->totalbytes; + g->sweepgc = sweeplist(L, g->sweepgc, GCSWEEPMAX); + if (*g->sweepgc == NULL) { /* nothing more to sweep? */ + checkSizes(L); + g->gcstate = GCSfinalize; /* end sweep phase */ + } + lua_assert(old >= g->totalbytes); + g->estimate -= old - g->totalbytes; + return GCSWEEPMAX*GCSWEEPCOST; + } + case GCSfinalize: { + if (g->tmudata) { + GCTM(L); + if (g->estimate > GCFINALIZECOST) + g->estimate -= GCFINALIZECOST; + return GCFINALIZECOST; + } + else { + g->gcstate = GCSpause; /* end collection */ + g->gcdept = 0; + return 0; + } + } + default: lua_assert(0); return 0; + } +} + + +void luaC_step (lua_State *L) { + global_State *g = G(L); + l_mem lim = (GCSTEPSIZE/100) * g->gcstepmul; + if (lim == 0) + lim = (MAX_LUMEM-1)/2; /* no limit */ + g->gcdept += g->totalbytes - g->GCthreshold; + do { + lim -= singlestep(L); + if (g->gcstate == GCSpause) + break; + } while (lim > 0); + if (g->gcstate != GCSpause) { + if (g->gcdept < GCSTEPSIZE) + g->GCthreshold = g->totalbytes + GCSTEPSIZE; /* - lim/g->gcstepmul;*/ + else { + g->gcdept -= GCSTEPSIZE; + g->GCthreshold = g->totalbytes; + } + } + else { + setthreshold(g); + } +} + + +void luaC_fullgc (lua_State *L) { + global_State *g = G(L); + if (g->gcstate <= GCSpropagate) { + /* reset sweep marks to sweep all elements (returning them to white) */ + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + /* reset other collector lists */ + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + g->gcstate = GCSsweepstring; + } + lua_assert(g->gcstate != GCSpause && g->gcstate != GCSpropagate); + /* finish any pending sweep phase */ + while (g->gcstate != GCSfinalize) { + lua_assert(g->gcstate == GCSsweepstring || g->gcstate == GCSsweep); + singlestep(L); + } + markroot(L); + while (g->gcstate != GCSpause) { + singlestep(L); + } + setthreshold(g); +} + + +void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v) { + global_State *g = G(L); + lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + lua_assert(ttype(&o->gch) != LUA_TTABLE); + /* must keep invariant? */ + if (g->gcstate == GCSpropagate) + reallymarkobject(g, v); /* restore invariant */ + else /* don't mind */ + makewhite(g, o); /* mark as white just to avoid other barriers */ +} + + +void luaC_barrierback (lua_State *L, Table *t) { + global_State *g = G(L); + GCObject *o = obj2gco(t); + lua_assert(isblack(o) && !isdead(g, o)); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + black2gray(o); /* make table gray (again) */ + t->gclist = g->grayagain; + g->grayagain = o; +} + + +void luaC_link (lua_State *L, GCObject *o, lu_byte tt) { + global_State *g = G(L); + o->gch.next = g->rootgc; + g->rootgc = o; + o->gch.marked = luaC_white(g); + o->gch.tt = tt; +} + + +void luaC_linkupval (lua_State *L, UpVal *uv) { + global_State *g = G(L); + GCObject *o = obj2gco(uv); + o->gch.next = g->rootgc; /* link upvalue into `rootgc' list */ + g->rootgc = o; + if (isgray(o)) { + if (g->gcstate == GCSpropagate) { + gray2black(o); /* closed upvalues need barrier */ + luaC_barrier(L, uv, uv->v); + } + else { /* sweep phase: sweep it (turning it into white) */ + makewhite(g, o); + lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); + } + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lgc.h b/src/3rd party/LuaJIT-1.1.8/src/lgc.h new file mode 100644 index 00000000000..5a8dc605b31 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lgc.h @@ -0,0 +1,110 @@ +/* +** $Id: lgc.h,v 2.15.1.1 2007/12/27 13:02:25 roberto Exp $ +** Garbage Collector +** See Copyright Notice in lua.h +*/ + +#ifndef lgc_h +#define lgc_h + + +#include "lobject.h" + + +/* +** Possible states of the Garbage Collector +*/ +#define GCSpause 0 +#define GCSpropagate 1 +#define GCSsweepstring 2 +#define GCSsweep 3 +#define GCSfinalize 4 + + +/* +** some userful bit tricks +*/ +#define resetbits(x,m) ((x) &= cast(lu_byte, ~(m))) +#define setbits(x,m) ((x) |= (m)) +#define testbits(x,m) ((x) & (m)) +#define bitmask(b) (1<<(b)) +#define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) +#define l_setbit(x,b) setbits(x, bitmask(b)) +#define resetbit(x,b) resetbits(x, bitmask(b)) +#define testbit(x,b) testbits(x, bitmask(b)) +#define set2bits(x,b1,b2) setbits(x, (bit2mask(b1, b2))) +#define reset2bits(x,b1,b2) resetbits(x, (bit2mask(b1, b2))) +#define test2bits(x,b1,b2) testbits(x, (bit2mask(b1, b2))) + + + +/* +** Layout for bit use in `marked' field: +** bit 0 - object is white (type 0) +** bit 1 - object is white (type 1) +** bit 2 - object is black +** bit 3 - for userdata: has been finalized +** bit 3 - for tables: has weak keys +** bit 4 - for tables: has weak values +** bit 5 - object is fixed (should not be collected) +** bit 6 - object is "super" fixed (only the main thread) +*/ + + +#define WHITE0BIT 0 +#define WHITE1BIT 1 +#define BLACKBIT 2 +#define FINALIZEDBIT 3 +#define KEYWEAKBIT 3 +#define VALUEWEAKBIT 4 +#define FIXEDBIT 5 +#define SFIXEDBIT 6 +#define WHITEBITS bit2mask(WHITE0BIT, WHITE1BIT) + + +#define iswhite(x) test2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT) +#define isblack(x) testbit((x)->gch.marked, BLACKBIT) +#define isgray(x) (!isblack(x) && !iswhite(x)) + +#define otherwhite(g) (g->currentwhite ^ WHITEBITS) +#define isdead(g,v) ((v)->gch.marked & otherwhite(g) & WHITEBITS) + +#define changewhite(x) ((x)->gch.marked ^= WHITEBITS) +#define gray2black(x) l_setbit((x)->gch.marked, BLACKBIT) + +#define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) + +#define luaC_white(g) cast(lu_byte, (g)->currentwhite & WHITEBITS) + + +#define luaC_checkGC(L) { \ + condhardstacktests(luaD_reallocstack(L, L->stacksize - EXTRA_STACK - 1)); \ + if (G(L)->totalbytes >= G(L)->GCthreshold) \ + luaC_step(L); } + + +#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ + luaC_barrierf(L,obj2gco(p),gcvalue(v)); } + +#define luaC_barriert(L,t,v) { if (valiswhite(v) && isblack(obj2gco(t))) \ + luaC_barrierback(L,t); } + +#define luaC_objbarrier(L,p,o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ + luaC_barrierf(L,obj2gco(p),obj2gco(o)); } + +#define luaC_objbarriert(L,t,o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) luaC_barrierback(L,t); } + +LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all); +LUAI_FUNC void luaC_callGCTM (lua_State *L); +LUAI_FUNC void luaC_freeall (lua_State *L); +LUAI_FUNC void luaC_step (lua_State *L); +LUAI_FUNC void luaC_fullgc (lua_State *L); +LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt); +LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv); +LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); +LUAI_FUNC void luaC_barrierback (lua_State *L, Table *t); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/linit.c b/src/3rd party/LuaJIT-1.1.8/src/linit.c new file mode 100644 index 00000000000..db24ccd78c7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/linit.c @@ -0,0 +1,39 @@ +/* +** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $ +** Initialization of libraries for lua.c +** See Copyright Notice in lua.h +*/ + + +#define linit_c +#define LUA_LIB + +#include "lua.h" + +#include "lualib.h" +#include "lauxlib.h" + + +static const luaL_Reg lualibs[] = { + {"", luaopen_base}, + {LUA_LOADLIBNAME, luaopen_package}, + {LUA_TABLIBNAME, luaopen_table}, + {LUA_IOLIBNAME, luaopen_io}, + {LUA_OSLIBNAME, luaopen_os}, + {LUA_STRLIBNAME, luaopen_string}, + {LUA_MATHLIBNAME, luaopen_math}, + {LUA_DBLIBNAME, luaopen_debug}, + {LUA_JITLIBNAME, luaopen_jit}, + {NULL, NULL} +}; + + +LUALIB_API void luaL_openlibs (lua_State *L) { + const luaL_Reg *lib = lualibs; + for (; lib->func; lib++) { + lua_pushcfunction(L, lib->func); + lua_pushstring(L, lib->name); + lua_call(L, 1, 0); + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/liolib.c b/src/3rd party/LuaJIT-1.1.8/src/liolib.c new file mode 100644 index 00000000000..649f9a59515 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/liolib.c @@ -0,0 +1,556 @@ +/* +** $Id: liolib.c,v 2.73.1.4 2010/05/14 15:33:51 roberto Exp $ +** Standard I/O (and system) library +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define liolib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + + +#define IO_INPUT 1 +#define IO_OUTPUT 2 + + +static const char *const fnames[] = {"input", "output"}; + + +static int pushresult (lua_State *L, int i, const char *filename) { + int en = errno; /* calls to Lua API may change this value */ + if (i) { + lua_pushboolean(L, 1); + return 1; + } + else { + lua_pushnil(L); + if (filename) + lua_pushfstring(L, "%s: %s", filename, strerror(en)); + else + lua_pushfstring(L, "%s", strerror(en)); + lua_pushinteger(L, en); + return 3; + } +} + + +static void fileerror (lua_State *L, int arg, const char *filename) { + lua_pushfstring(L, "%s: %s", filename, strerror(errno)); + luaL_argerror(L, arg, lua_tostring(L, -1)); +} + + +#define tofilep(L) ((FILE **)luaL_checkudata(L, 1, LUA_FILEHANDLE)) + + +static int io_type (lua_State *L) { + void *ud; + luaL_checkany(L, 1); + ud = lua_touserdata(L, 1); + lua_getfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); + if (ud == NULL || !lua_getmetatable(L, 1) || !lua_rawequal(L, -2, -1)) + lua_pushnil(L); /* not a file */ + else if (*((FILE **)ud) == NULL) + lua_pushliteral(L, "closed file"); + else + lua_pushliteral(L, "file"); + return 1; +} + + +static FILE *tofile (lua_State *L) { + FILE **f = tofilep(L); + if (*f == NULL) + luaL_error(L, "attempt to use a closed file"); + return *f; +} + + + +/* +** When creating file handles, always creates a `closed' file handle +** before opening the actual file; so, if there is a memory error, the +** file is not left opened. +*/ +static FILE **newfile (lua_State *L) { + FILE **pf = (FILE **)lua_newuserdata(L, sizeof(FILE *)); + *pf = NULL; /* file handle is currently `closed' */ + luaL_getmetatable(L, LUA_FILEHANDLE); + lua_setmetatable(L, -2); + return pf; +} + + +/* +** function to (not) close the standard files stdin, stdout, and stderr +*/ +static int io_noclose (lua_State *L) { + lua_pushnil(L); + lua_pushliteral(L, "cannot close standard file"); + return 2; +} + + +/* +** function to close 'popen' files +*/ +static int io_pclose (lua_State *L) { + FILE **p = tofilep(L); + int ok = lua_pclose(L, *p); + *p = NULL; + return pushresult(L, ok, NULL); +} + + +/* +** function to close regular files +*/ +static int io_fclose (lua_State *L) { + FILE **p = tofilep(L); + int ok = (fclose(*p) == 0); + *p = NULL; + return pushresult(L, ok, NULL); +} + + +static int aux_close (lua_State *L) { + lua_getfenv(L, 1); + lua_getfield(L, -1, "__close"); + return (lua_tocfunction(L, -1))(L); +} + + +static int io_close (lua_State *L) { + if (lua_isnone(L, 1)) + lua_rawgeti(L, LUA_ENVIRONINDEX, IO_OUTPUT); + tofile(L); /* make sure argument is a file */ + return aux_close(L); +} + + +static int io_gc (lua_State *L) { + FILE *f = *tofilep(L); + /* ignore closed files */ + if (f != NULL) + aux_close(L); + return 0; +} + + +static int io_tostring (lua_State *L) { + FILE *f = *tofilep(L); + if (f == NULL) + lua_pushliteral(L, "file (closed)"); + else + lua_pushfstring(L, "file (%p)", f); + return 1; +} + + +static int io_open (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + const char *mode = luaL_optstring(L, 2, "r"); + FILE **pf = newfile(L); + *pf = fopen(filename, mode); + return (*pf == NULL) ? pushresult(L, 0, filename) : 1; +} + + +/* +** this function has a separated environment, which defines the +** correct __close for 'popen' files +*/ +static int io_popen (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + const char *mode = luaL_optstring(L, 2, "r"); + FILE **pf = newfile(L); + *pf = lua_popen(L, filename, mode); + return (*pf == NULL) ? pushresult(L, 0, filename) : 1; +} + + +static int io_tmpfile (lua_State *L) { + FILE **pf = newfile(L); + *pf = tmpfile(); + return (*pf == NULL) ? pushresult(L, 0, NULL) : 1; +} + + +static FILE *getiofile (lua_State *L, int findex) { + FILE *f; + lua_rawgeti(L, LUA_ENVIRONINDEX, findex); + f = *(FILE **)lua_touserdata(L, -1); + if (f == NULL) + luaL_error(L, "standard %s file is closed", fnames[findex - 1]); + return f; +} + + +static int g_iofile (lua_State *L, int f, const char *mode) { + if (!lua_isnoneornil(L, 1)) { + const char *filename = lua_tostring(L, 1); + if (filename) { + FILE **pf = newfile(L); + *pf = fopen(filename, mode); + if (*pf == NULL) + fileerror(L, 1, filename); + } + else { + tofile(L); /* check that it's a valid file handle */ + lua_pushvalue(L, 1); + } + lua_rawseti(L, LUA_ENVIRONINDEX, f); + } + /* return current value */ + lua_rawgeti(L, LUA_ENVIRONINDEX, f); + return 1; +} + + +static int io_input (lua_State *L) { + return g_iofile(L, IO_INPUT, "r"); +} + + +static int io_output (lua_State *L) { + return g_iofile(L, IO_OUTPUT, "w"); +} + + +static int io_readline (lua_State *L); + + +static void aux_lines (lua_State *L, int idx, int toclose) { + lua_pushvalue(L, idx); + lua_pushboolean(L, toclose); /* close/not close file when finished */ + lua_pushcclosure(L, io_readline, 2); +} + + +static int f_lines (lua_State *L) { + tofile(L); /* check that it's a valid file handle */ + aux_lines(L, 1, 0); + return 1; +} + + +static int io_lines (lua_State *L) { + if (lua_isnoneornil(L, 1)) { /* no arguments? */ + /* will iterate over default input */ + lua_rawgeti(L, LUA_ENVIRONINDEX, IO_INPUT); + return f_lines(L); + } + else { + const char *filename = luaL_checkstring(L, 1); + FILE **pf = newfile(L); + *pf = fopen(filename, "r"); + if (*pf == NULL) + fileerror(L, 1, filename); + aux_lines(L, lua_gettop(L), 1); + return 1; + } +} + + +/* +** {====================================================== +** READ +** ======================================================= +*/ + + +static int read_number (lua_State *L, FILE *f) { + lua_Number d; + if (fscanf(f, LUA_NUMBER_SCAN, &d) == 1) { + lua_pushnumber(L, d); + return 1; + } + else { + lua_pushnil(L); /* "result" to be removed */ + return 0; /* read fails */ + } +} + + +static int test_eof (lua_State *L, FILE *f) { + int c = getc(f); + ungetc(c, f); + lua_pushlstring(L, NULL, 0); + return (c != EOF); +} + + +static int read_line (lua_State *L, FILE *f) { + luaL_Buffer b; + luaL_buffinit(L, &b); + for (;;) { + size_t l; + char *p = luaL_prepbuffer(&b); + if (fgets(p, LUAL_BUFFERSIZE, f) == NULL) { /* eof? */ + luaL_pushresult(&b); /* close buffer */ + return (lua_objlen(L, -1) > 0); /* check whether read something */ + } + l = strlen(p); + if (l == 0 || p[l-1] != '\n') + luaL_addsize(&b, l); + else { + luaL_addsize(&b, l - 1); /* do not include `eol' */ + luaL_pushresult(&b); /* close buffer */ + return 1; /* read at least an `eol' */ + } + } +} + + +static int read_chars (lua_State *L, FILE *f, size_t n) { + size_t rlen; /* how much to read */ + size_t nr; /* number of chars actually read */ + luaL_Buffer b; + luaL_buffinit(L, &b); + rlen = LUAL_BUFFERSIZE; /* try to read that much each time */ + do { + char *p = luaL_prepbuffer(&b); + if (rlen > n) rlen = n; /* cannot read more than asked */ + nr = fread(p, sizeof(char), rlen, f); + luaL_addsize(&b, nr); + n -= nr; /* still have to read `n' chars */ + } while (n > 0 && nr == rlen); /* until end of count or eof */ + luaL_pushresult(&b); /* close buffer */ + return (n == 0 || lua_objlen(L, -1) > 0); +} + + +static int g_read (lua_State *L, FILE *f, int first) { + int nargs = lua_gettop(L) - 1; + int success; + int n; + clearerr(f); + if (nargs == 0) { /* no arguments? */ + success = read_line(L, f); + n = first+1; /* to return 1 result */ + } + else { /* ensure stack space for all results and for auxlib's buffer */ + luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); + success = 1; + for (n = first; nargs-- && success; n++) { + if (lua_type(L, n) == LUA_TNUMBER) { + size_t l = (size_t)lua_tointeger(L, n); + success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l); + } + else { + const char *p = lua_tostring(L, n); + luaL_argcheck(L, p && p[0] == '*', n, "invalid option"); + switch (p[1]) { + case 'n': /* number */ + success = read_number(L, f); + break; + case 'l': /* line */ + success = read_line(L, f); + break; + case 'a': /* file */ + read_chars(L, f, ~((size_t)0)); /* read MAX_SIZE_T chars */ + success = 1; /* always success */ + break; + default: + return luaL_argerror(L, n, "invalid format"); + } + } + } + } + if (ferror(f)) + return pushresult(L, 0, NULL); + if (!success) { + lua_pop(L, 1); /* remove last result */ + lua_pushnil(L); /* push nil instead */ + } + return n - first; +} + + +static int io_read (lua_State *L) { + return g_read(L, getiofile(L, IO_INPUT), 1); +} + + +static int f_read (lua_State *L) { + return g_read(L, tofile(L), 2); +} + + +static int io_readline (lua_State *L) { + FILE *f = *(FILE **)lua_touserdata(L, lua_upvalueindex(1)); + int sucess; + if (f == NULL) /* file is already closed? */ + luaL_error(L, "file is already closed"); + sucess = read_line(L, f); + if (ferror(f)) + return luaL_error(L, "%s", strerror(errno)); + if (sucess) return 1; + else { /* EOF */ + if (lua_toboolean(L, lua_upvalueindex(2))) { /* generator created file? */ + lua_settop(L, 0); + lua_pushvalue(L, lua_upvalueindex(1)); + aux_close(L); /* close it */ + } + return 0; + } +} + +/* }====================================================== */ + + +static int g_write (lua_State *L, FILE *f, int arg) { + int nargs = lua_gettop(L) - 1; + int status = 1; + for (; nargs--; arg++) { + if (lua_type(L, arg) == LUA_TNUMBER) { + /* optimization: could be done exactly as for strings */ + status = status && + fprintf(f, LUA_NUMBER_FMT, lua_tonumber(L, arg)) > 0; + } + else { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + status = status && (fwrite(s, sizeof(char), l, f) == l); + } + } + return pushresult(L, status, NULL); +} + + +static int io_write (lua_State *L) { + return g_write(L, getiofile(L, IO_OUTPUT), 1); +} + + +static int f_write (lua_State *L) { + return g_write(L, tofile(L), 2); +} + + +static int f_seek (lua_State *L) { + static const int mode[] = {SEEK_SET, SEEK_CUR, SEEK_END}; + static const char *const modenames[] = {"set", "cur", "end", NULL}; + FILE *f = tofile(L); + int op = luaL_checkoption(L, 2, "cur", modenames); + long offset = luaL_optlong(L, 3, 0); + op = fseek(f, offset, mode[op]); + if (op) + return pushresult(L, 0, NULL); /* error */ + else { + lua_pushinteger(L, ftell(f)); + return 1; + } +} + + +static int f_setvbuf (lua_State *L) { + static const int mode[] = {_IONBF, _IOFBF, _IOLBF}; + static const char *const modenames[] = {"no", "full", "line", NULL}; + FILE *f = tofile(L); + int op = luaL_checkoption(L, 2, NULL, modenames); + lua_Integer sz = luaL_optinteger(L, 3, LUAL_BUFFERSIZE); + int res = setvbuf(f, NULL, mode[op], sz); + return pushresult(L, res == 0, NULL); +} + + + +static int io_flush (lua_State *L) { + return pushresult(L, fflush(getiofile(L, IO_OUTPUT)) == 0, NULL); +} + + +static int f_flush (lua_State *L) { + return pushresult(L, fflush(tofile(L)) == 0, NULL); +} + + +static const luaL_Reg iolib[] = { + {"close", io_close}, + {"flush", io_flush}, + {"input", io_input}, + {"lines", io_lines}, + {"open", io_open}, + {"output", io_output}, + {"popen", io_popen}, + {"read", io_read}, + {"tmpfile", io_tmpfile}, + {"type", io_type}, + {"write", io_write}, + {NULL, NULL} +}; + + +static const luaL_Reg flib[] = { + {"close", io_close}, + {"flush", f_flush}, + {"lines", f_lines}, + {"read", f_read}, + {"seek", f_seek}, + {"setvbuf", f_setvbuf}, + {"write", f_write}, + {"__gc", io_gc}, + {"__tostring", io_tostring}, + {NULL, NULL} +}; + + +static void createmeta (lua_State *L) { + luaL_newmetatable(L, LUA_FILEHANDLE); /* create metatable for file handles */ + lua_pushvalue(L, -1); /* push metatable */ + lua_setfield(L, -2, "__index"); /* metatable.__index = metatable */ + luaL_register(L, NULL, flib); /* file methods */ +} + + +static void createstdfile (lua_State *L, FILE *f, int k, const char *fname) { + *newfile(L) = f; + if (k > 0) { + lua_pushvalue(L, -1); + lua_rawseti(L, LUA_ENVIRONINDEX, k); + } + lua_pushvalue(L, -2); /* copy environment */ + lua_setfenv(L, -2); /* set it */ + lua_setfield(L, -3, fname); +} + + +static void newfenv (lua_State *L, lua_CFunction cls) { + lua_createtable(L, 0, 1); + lua_pushcfunction(L, cls); + lua_setfield(L, -2, "__close"); +} + + +LUALIB_API int luaopen_io (lua_State *L) { + createmeta(L); + /* create (private) environment (with fields IO_INPUT, IO_OUTPUT, __close) */ + newfenv(L, io_fclose); + lua_replace(L, LUA_ENVIRONINDEX); + /* open library */ + luaL_register(L, LUA_IOLIBNAME, iolib); + /* create (and set) default files */ + newfenv(L, io_noclose); /* close function for default files */ + createstdfile(L, stdin, IO_INPUT, "stdin"); + createstdfile(L, stdout, IO_OUTPUT, "stdout"); + createstdfile(L, stderr, 0, "stderr"); + lua_pop(L, 1); /* pop environment for default files */ + lua_getfield(L, -1, "popen"); + newfenv(L, io_pclose); /* create environment for 'popen' */ + lua_setfenv(L, -2); /* set fenv for 'popen' */ + lua_pop(L, 1); /* pop 'popen' */ + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit.h b/src/3rd party/LuaJIT-1.1.8/src/ljit.h new file mode 100644 index 00000000000..666fe5920ba --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit.h @@ -0,0 +1,167 @@ +/* +** Interface to JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef ljit_h +#define ljit_h + +#include "lobject.h" + + +/* Define this to enable assertions when debugging LuaJIT. */ +#ifdef LUAJIT_ASSERT +#include +#define jit_assert(x) assert(x) +#define DASM_CHECKS +#else +/* A better idea is to define lua_assert() in luaconf.h. */ +#define jit_assert(x) lua_assert(x) +#endif + +/* Define this to set the C stack size for the compiler thread. */ +/* The compiler runs on the callers C stack otherwise. */ +#undef LUAJIT_COMPILER_CSTACK + +/* Hardcoded limits for the backend to avoid useless work. */ +/* Note: mind you, these are very generous limits. Check jit.opt, too. */ +#define LUAJIT_LIM_BYTECODE 3000 /* Max. # of bytecodes. */ +#define LUAJIT_LIM_MCODE 128000 /* Max. mcode size of a function. */ + +/* Global JIT engine flags. */ +#define JIT_F_ON 0x0001 /* JIT engine is on. */ +#define JIT_F_COMPILING 0x0002 /* Currently compiling. */ +#define JIT_F_INIT_FAILED 0x0004 /* Initialization failed. */ + +#define JIT_F_CPU_CMOV 0x0010 /* CPU has conditional move support. */ +#define JIT_F_CPU_SSE2 0x0020 /* CPU has SSE2 support. */ + +#define JIT_F_DEBUG_CALL 0x0100 /* Compile with call hooks. */ +#define JIT_F_DEBUG_INS 0x0200 /* Compile with instruction hooks. */ +#define JIT_F_DEBUG 0x0f00 /* Union of all debug flags. */ + +/* Temporary backend flags. */ +#define JIT_TF_USED_DEOPT 0x0001 /* Used .deopt segment. */ + +/* JIT engine status codes for prototypes (grep "ORDER JIT_S"). */ +enum { + JIT_S_OK, /* OK, code has been compiled. */ + JIT_S_NONE, /* Nothing compiled yet (default). */ + + JIT_S_OFF, /* Compilation for this prototype disabled. */ + JIT_S_ENGINE_OFF, /* JIT engine is turned off. */ + JIT_S_DELAYED, /* Compilation delayed (recursive invocation). */ + + JIT_S_TOOLARGE, /* Bytecode or machine code is too large. */ + JIT_S_COMPILER_ERROR, /* Error from compiler frontend. */ + JIT_S_DASM_ERROR, /* Error from DynASM engine. */ + + JIT_S_MAX +}; + +/* Machine code trailer and mcode fragment map. */ +typedef struct jit_MCTrailer { + char *mcode; /* Pointer to next machine code block. */ + size_t sz; /* Size of next machine code block. */ +} jit_MCTrailer; + +typedef unsigned short jit_Mfm; + +/* Deliberately return a void * because the trailer is not fully aligned. */ +#define JIT_MCTRAILER(mcode, sz) \ + ((void *)(((char *)(mcode))+(sz)-sizeof(jit_MCTrailer))) +#define JIT_MCMFM(mcode, sz) \ + ((jit_Mfm *)(((char *)(mcode))+(sz)-sizeof(jit_MCTrailer)-sizeof(jit_Mfm))) + +#define JIT_MFM_MAX 0x7ff0 /* Max. mcode fragment length. */ +#define JIT_MFM_MASK 0x7fff /* Tag mask. */ +#define JIT_MFM_MARK 0x8000 /* Deoptimized (main mfm), seek (deopt mfm). */ +#define JIT_MFM_COMBINE 0xfffd /* Combined with prev. instruction(s). */ +#define JIT_MFM_DEAD 0xfffe /* Dead instruction. */ +#define JIT_MFM_STOP 0xffff /* End of map. */ + +#define jit_mfm_ismain(mfm) (!(*(mfm) & JIT_MFM_MARK)) +#define jit_mfm_isdeoptpc(mfm, pc) ((mfm)[-(pc)] & JIT_MFM_MARK) + +/* Deoptimization hints at end of mfm. */ +#define JIT_MFM_DEOPT_PAIRS 0xfffc /* CALL+TFORLOOP inlined (i)pairs. */ + +/* Preallocation for the hash part of the compiler state table. */ +#define COMSTATE_PREALLOC 128 + +/* Forward declaration for DynASM state. */ +struct dasm_State; + +/* Frontend wrapper. */ +typedef int (*jit_FrontWrap)(lua_State *L, Table *st); + +/* Global JIT state. */ +typedef struct jit_State { + /* Permanent backend environment: */ + struct dasm_State *D; /* DynASM state. Keep this as the first field. */ + void *mcodeheap; /* Private heap to allocate executable memory from. */ + void **jsub; /* Addresses of JIT subroutines. */ + void *jsubmcode; /* Base address of JSUB mcode. */ + size_t szjsubmcode; /* Size of JSUB mcode. */ + int numjsub; /* Number of JSUBs. */ + + /* Temporary backend environment (valid only while running): */ + lua_State *L; /* Compiler thread. */ + Table *comstate; /* Compiler state table. */ + Proto *pt; /* Currently compiled prototype. */ + const Instruction *nextins; /* Pointer to next instruction. */ + jit_Mfm *mfm; /* Position in temporary mcode fragment map. */ + int nextpc; /* Next PC. */ + int combine; /* Number of following instructions to combine. */ + unsigned int tflags; /* Temporary flags. */ + int dasmstatus; /* DynASM status code. */ + + /* JIT engine fields: */ + jit_FrontWrap frontwrap; /* Compiler frontend wrapper. */ + unsigned int flags; /* Global JIT engine flags. */ +} jit_State; + + +/* --- ljit_core.c */ + +/* Initialize and free JIT engine state. */ +LUAI_FUNC void luaJIT_initstate(lua_State *L); +LUAI_FUNC void luaJIT_freestate(lua_State *L); + +/* Compile and run a function. */ +LUAI_FUNC int luaJIT_run(lua_State *L, StkId func, int nresults); +/* Deoptimize the current instruction. Return new mcode addr to continue. */ +LUAI_FUNC void *luaJIT_deoptimize(lua_State *L); + +/* Find relative PC (0 based) for a bytecode pointer or a JIT mcode address. */ +LUAI_FUNC int luaJIT_findpc(Proto *pt, const Instruction *savedpc); +/* Find mcode address for PC (1 based). */ +LUAI_FUNC void *luaJIT_findmcode(Proto *pt, int pc); + + +/* --- ljit_backend.c */ + +/* Arch string. */ +LUAI_DATA const char luaJIT_arch[]; +/* Initialize and free compiler backend. */ +LUAI_FUNC int luaJIT_initbackend(lua_State *L); +LUAI_FUNC void luaJIT_freebackend(lua_State *L); +/* Compiler backend. */ +LUAI_FUNC int luaJIT_backend(lua_State *L); +/* Notify backend that the debug mode may have changed. */ +LUAI_FUNC void luaJIT_debugnotify(jit_State *J); + + +/* ---- ljit_mem.c */ + +/* Free the mcode heap. */ +LUAI_FUNC void luaJIT_freemcodeheap(jit_State *J); +/* Free mcode. */ +LUAI_FUNC void luaJIT_freemcode(jit_State *J, void *mcode, size_t sz); +/* Free JIT structures in function prototype. */ +LUAI_FUNC void luaJIT_freeproto(lua_State *L, Proto *pt); +/* Link generated code. */ +LUAI_FUNC int luaJIT_link(jit_State *J, void **mcodep, size_t *szp); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c new file mode 100644 index 00000000000..f025820719f --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c @@ -0,0 +1,342 @@ +/* +** LuaJIT wrapper for architecture-specific compiler backend. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include +#include + +#define ljit_backend_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" +#include "lopcodes.h" +#include "ldebug.h" +#include "lzio.h" + +#include "ljit.h" +#include "ljit_hints.h" +#include "ljit_dasm.h" + +/* ------------------------------------------------------------------------ */ + +/* Get target of combined JMP op. */ +static int jit_jmp_target(jit_State *J) +{ + J->combine++; + jit_assert(GET_OPCODE(*J->nextins)==OP_JMP); + return J->nextpc + 1 + GETARG_sBx(*J->nextins); +} + +/* ------------------------------------------------------------------------ */ + +/* Include pre-processed architecture-specific backend. */ +#if defined(__i386) || defined(__i386__) || defined(_M_IX86) +#ifndef LUA_NUMBER_DOUBLE +#error "No support for other number types on x86 (yet)" +#endif +#include "ljit_x86.h" +#else +#error "No support for this architecture (yet)" +#endif + +/* ------------------------------------------------------------------------ */ + +/* Compile instruction range. */ +static void jit_compile_irange(jit_State *J, int firstpc, int lastpc) +{ + J->combine = 0; + J->nextpc = firstpc; + J->nextins = J->pt->code + (firstpc-1); + while (J->nextpc <= lastpc) { + Instruction ins = *J->nextins++; + OpCode op = GET_OPCODE(ins); + int ra = GETARG_A(ins); + int rb = GETARG_B(ins); + int rc = GETARG_C(ins); + int rbx = GETARG_Bx(ins); + const TValue *combinehint; + + jit_ins_start(J); + J->nextpc++; + + combinehint = hint_get(J, COMBINE); + if (ttisboolean(combinehint)) { + if (bvalue(combinehint)) { /* COMBINE = true: combine with next ins. */ + if (!(J->flags & JIT_F_DEBUG)) /* But not when debugging. */ + J->combine = 1; + } else { /* COMBINE = false: dead instruction. */ + *J->mfm++ = JIT_MFM_DEAD; + continue; + } + } /* Other COMBINE hint value types are not defined (yet). */ + + if (J->flags & JIT_F_DEBUG_INS) + jit_ins_debug(J, luaG_checkopenop(ins)); + + switch (op) { + case OP_MOVE: jit_op_move(J, ra, rb); break; + case OP_LOADK: jit_op_loadk(J, ra, rbx); break; + case OP_LOADBOOL: jit_op_loadbool(J, ra, rb, rc); break; + case OP_LOADNIL: jit_op_loadnil(J, ra, rb); break; + + case OP_GETUPVAL: jit_op_getupval(J, ra, rb); break; + case OP_SETUPVAL: jit_op_setupval(J, ra, rb); break; + + case OP_GETGLOBAL: jit_op_getglobal(J, ra, rbx); break; + case OP_SETGLOBAL: jit_op_setglobal(J, ra, rbx); break; + + case OP_NEWTABLE: jit_op_newtable(J, ra, rb, rc); break; + case OP_GETTABLE: jit_op_gettable(J, ra, rb, rc); break; + case OP_SETTABLE: jit_op_settable(J, ra, rb, rc); break; + case OP_SELF: jit_op_self(J, ra, rb, rc); break; + case OP_SETLIST: jit_op_setlist(J, ra, rb, rc); break; + + case OP_ADD: jit_op_arith(J, ra, rb, rc, TM_ADD); break; + case OP_SUB: jit_op_arith(J, ra, rb, rc, TM_SUB); break; + case OP_MUL: jit_op_arith(J, ra, rb, rc, TM_MUL); break; + case OP_DIV: jit_op_arith(J, ra, rb, rc, TM_DIV); break; + case OP_MOD: jit_op_arith(J, ra, rb, rc, TM_MOD); break; + case OP_POW: jit_op_arith(J, ra, rb, rc, TM_POW); break; + case OP_UNM: jit_op_arith(J, ra, rb, rb, TM_UNM); break; /* rc unused. */ + + case OP_LEN: jit_op_len(J, ra, rb); break; + case OP_NOT: jit_op_not(J, ra, rb); break; + + case OP_CONCAT: jit_op_concat(J, ra, rb, rc); break; + + case OP_EQ: jit_op_eq(J, ra, rb, rc); break; + case OP_LT: jit_op_arith(J, ra, rb, rc, TM_LT); break; + case OP_LE: jit_op_arith(J, ra, rb, rc, TM_LE); break; + + case OP_TEST: jit_op_test(J, rc, ra, ra); break; + case OP_TESTSET: jit_op_test(J, rc, ra, rb); break; + + case OP_JMP: jit_op_jmp(J, J->nextpc + rbx-MAXARG_sBx); break; + + case OP_CALL: jit_op_call(J, ra, rb-1, rc-1); break; + case OP_TAILCALL: jit_op_tailcall(J, ra, rb-1); break; + case OP_RETURN: jit_op_return(J, ra, rb-1); break; + + case OP_FORLOOP: jit_op_forloop(J, ra, J->nextpc + rbx-MAXARG_sBx); break; + case OP_FORPREP: jit_op_forprep(J, ra, J->nextpc + rbx-MAXARG_sBx); break; + + case OP_TFORLOOP: jit_op_tforloop(J, ra, rc); break; + + case OP_CLOSE: jit_op_close(J, ra); break; + case OP_CLOSURE: jit_op_closure(J, ra, rbx); break; + + case OP_VARARG: jit_op_vararg(J, ra, rb-1); break; + + default: jit_assert(0); break; + } + + /* Convention: all opcodes start and end with the .code section. */ + if (dasm_checkstep(Dst, DASM_SECTION_CODE)) { J->nextpc--; return; } + + *J->mfm++ = 0; /* Placeholder mfm entry. Replaced later. */ + if (J->combine > 0) { /* Combine next J->combine ins with prev ins. */ + J->nextpc += J->combine; + J->nextins += J->combine; + do { *J->mfm++ = JIT_MFM_COMBINE; } while (--J->combine); + } + } +} + +/* Merge temporary mfm (forward) with PC labels to inverse mfm in mcode. */ +static void jit_mfm_merge(jit_State *J, jit_Mfm *from, jit_Mfm *to, int maxpc) +{ + int pc = 1, ofs = 0; + for (;;) { + int m = *from++; + if (m & JIT_MFM_MARK) { + switch (m) { + default: pc = m ^ JIT_MFM_MARK; break; + case JIT_MFM_COMBINE: case JIT_MFM_DEAD: break; + case JIT_MFM_STOP: return; + } + } else { + int idx, nofs; + for (idx = 0; from[idx] == JIT_MFM_COMBINE; idx++) ; + idx += pc; + if (idx == J->nextpc) idx = maxpc + 1; + nofs = dasm_getpclabel(Dst, idx); + m = nofs - ofs; + ofs = nofs; + jit_assert(nofs >= 0 && m >= 0 && m < JIT_MFM_MAX); + } + pc++; + *to-- = m; + } +} + +/* Compile function prototype. */ +static int jit_compile_proto(jit_State *J, Table *deopt) +{ + jit_Mfm *tempmfm; + void *mcode; + size_t sz; + int firstpc = 0, maxpc = J->pt->sizecode; + int deoptidx = 1; + int status; + /* (Ab)use the global string concatenation buffer for the temporary mfm. */ + /* Caveat: the GC must not be run while the backend is active. */ + tempmfm = (jit_Mfm *)luaZ_openspace(J->L, &G(J->L)->buff, + (1+maxpc+1+1+1)*sizeof(jit_Mfm)); +nextdeopt: + J->mfm = tempmfm; + J->tflags = 0; + /* Setup DynASM. */ + dasm_growpc(Dst, 1+maxpc+2); /* See jit_ins_last(). */ + dasm_setup(Dst, jit_actionlist); + if (deopt) { /* Partial deoptimization. */ + /* TODO: check deopt chain length? problem: pairs TFOR_CTL migration. */ + int pc, lastpc; + lua_Number n; + const TValue *obj = luaH_getnum(deopt, deoptidx++); + if (ttisnil(obj) && deoptidx != 2) return JIT_S_OK; + if (!ttisnumber(obj)) return JIT_S_COMPILER_ERROR; + n = nvalue(obj); + lua_number2int(pc, n); + firstpc = JIT_IH_IDX(pc); + lastpc = firstpc + JIT_IH_LIB(pc); + if (firstpc < 1 || firstpc > maxpc || lastpc > maxpc || + J->pt->jit_szmcode == 0) + return JIT_S_COMPILER_ERROR; + *J->mfm++ = JIT_MFM_MARK+firstpc; /* Seek to firstpc. */ + jit_compile_irange(J, firstpc, lastpc); + jit_assert(J->nextpc == lastpc+1); /* Problem with combined ins? */ + if (J->nextpc <= maxpc) jit_ins_chainto(J, J->nextpc); + *J->mfm++ = JIT_MFM_MARK+maxpc+1; /* Seek to .deopt/.tail. */ + for (pc = 1; pc <= maxpc; pc++) + if (dasm_getpclabel(Dst, pc) == -1) { /* Undefind label referenced? */ + jit_ins_setpc(J, pc, luaJIT_findmcode(J->pt, pc)); /* => Old mcode. */ + } + } else { /* Full compile. */ + *J->mfm++ = 0; /* Placeholder mfm entry for prologue. */ + jit_prologue(J); + jit_compile_irange(J, 1, maxpc); + } + *J->mfm++ = 0; /* Placeholder mfm entry for .deopt/.tail. */ + *J->mfm = JIT_MFM_STOP; + jit_ins_last(J, maxpc, (char *)J->mfm - (char *)tempmfm); + + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + + jit_mfm_merge(J, tempmfm, JIT_MCMFM(mcode, sz), maxpc); + + if (deopt) { + jit_MCTrailer tr; + /* Patch first instruction to jump to the deoptimized code. */ + jit_patch_jmp(J, luaJIT_findmcode(J->pt, firstpc), mcode); + /* Mark instruction as deoptimized in main mfm. */ + JIT_MCMFM(J->pt->jit_mcode, J->pt->jit_szmcode)[-firstpc] |= JIT_MFM_MARK; + /* Chain deopt mcode block between main mfm and existing mfms. */ + memcpy(JIT_MCTRAILER(mcode, sz), + JIT_MCTRAILER(J->pt->jit_mcode, J->pt->jit_szmcode), + sizeof(jit_MCTrailer)); + tr.mcode = (char *)mcode; + tr.sz = sz; + memcpy(JIT_MCTRAILER(J->pt->jit_mcode, J->pt->jit_szmcode), (void *)&tr, + sizeof(jit_MCTrailer)); + goto nextdeopt; + } + + if (J->pt->jit_szmcode != 0) { /* Full recompile? */ + jit_MCTrailer tr; + /* Patch old mcode entry so other closures get the new callgate. */ + jit_patch_jmp(J, J->pt->jit_mcode, J->jsub[JSUB_GATE_JL]); + /* Chain old main mfm after new main mfm. */ + tr.mcode = (char *)J->pt->jit_mcode; + tr.sz = J->pt->jit_szmcode; + memcpy(JIT_MCTRAILER(mcode, sz), (void *)&tr, sizeof(jit_MCTrailer)); + } + /* Set new main mcode block. */ + J->pt->jit_mcode = mcode; + J->pt->jit_szmcode = sz; + return JIT_S_OK; +} + +/* ------------------------------------------------------------------------ */ + +/* Compiler backend. */ +int luaJIT_backend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + const TValue *cl; + int status = JIT_S_COMPILER_ERROR; + lua_lock(L); + /* Remember compiler state table. */ + jit_assert(L->top > L->base && ttistable(L->top-1)); + J->comstate = hvalue(L->top-1); + /* Fetch prototoype. Better check this in case some handler screwed up. */ + cl = luaH_getstr(J->comstate, luaS_newliteral(L, "func")); + if (isLfunction(cl)) { + J->pt = clvalue(cl)->l.p; + if (J->pt->sizecode > LUAJIT_LIM_BYTECODE) { /* Hard backend limit. */ + status = JIT_S_TOOLARGE; + } else { + const TValue *obj = luaH_getstr(J->comstate, + luaS_newliteral(J->L, "deopt")); + status = jit_compile_proto(J, ttistable(obj) ? hvalue(obj) : (Table *)0); + } + } + lua_unlock(L); + J->comstate = NULL; /* Just in case. */ + J->pt = NULL; + if (status == JIT_S_OK) { + return 0; + } else { + if (status == JIT_S_DASM_ERROR) { + lua_pushinteger(L, J->nextpc); + lua_setfield(L, 1, "dasm_pc"); + lua_pushinteger(L, J->dasmstatus); + lua_setfield(L, 1, "dasm_err"); + } + lua_pushinteger(L, status); + return 1; + } +} + +/* Initialize compiler backend. */ +int luaJIT_initbackend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + J->L = L; + J->pt = NULL; /* Not in use. */ + J->D = NULL; + J->mcodeheap = NULL; + J->jsubmcode = NULL; + J->szjsubmcode = 0; + J->numjsub = JSUB__MAX; + J->jsub = luaM_newvector(J->L, JSUB__MAX, void *); + memset((void *)J->jsub, 0, JSUB__MAX*sizeof(void *)); /* Just in case. */ + dasm_init(Dst, DASM_MAXSECTION); + dasm_setupglobal(Dst, J->jsub, JSUB__MAX); + return jit_compile_jsub(J); +} + +/* Free compiler backend. */ +void luaJIT_freebackend(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + J->L = L; + if (J->jsub) luaM_freearray(L, J->jsub, JSUB__MAX, void *); + luaJIT_freemcodeheap(J); /* Frees JSUB mcode, too. */ + dasm_free(Dst); +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c new file mode 100644 index 00000000000..9d584e5b08c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_core.c @@ -0,0 +1,385 @@ +/* +** Interface to JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_core_c +#define LUA_CORE + +#include + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "ldo.h" +#include "lstring.h" +#include "ltable.h" +#include "ldebug.h" +#include "lopcodes.h" + +#include "ljit.h" +#include "ljit_hints.h" +#include "luajit.h" + +const char luajit_ident[] = + "$LuaJIT: " LUAJIT_VERSION " " LUAJIT_COPYRIGHT " " LUAJIT_URL " $\n"; + +/* ------------------------------------------------------------------------ */ + +/* Initialize JIT engine state. */ +void luaJIT_initstate(lua_State *L) +{ + jit_State *J = luaM_new(L, jit_State); + G(L)->jit_state = J; + /* Clear JIT engine fields. */ + J->frontwrap = NULL; /* Filled in by ljitlib before enabling the engine. */ + J->flags = 0; /* Disable the JIT engine by default. */ + /* Try to initialize the backend. */ + if (luaJIT_initbackend(L) != JIT_S_OK) + J->flags = JIT_F_INIT_FAILED; + J->L = NULL; /* No compiler thread allocated, yet. */ +} + +/* Free JIT engine state. */ +void luaJIT_freestate(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + if (J == NULL) return; + luaJIT_freebackend(L); + luaM_free(L, J); + G(L)->jit_state = NULL; +} + +/* ------------------------------------------------------------------------ */ + +/* Find relative PC (0 based) for a bytecode pointer or a JIT mcode address. */ +int luaJIT_findpc(Proto *pt, const Instruction *savedpc) +{ + ptrdiff_t pcdiff = savedpc - pt->code; + if (pcdiff >= 0 && pcdiff <= pt->sizecode) { /* Bytecode pointer? */ + return (int)pcdiff-1; + } else { /* Else translate JIT mcode address to PC. */ + char *addr = (char *)savedpc; + jit_MCTrailer tr; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + /* Follow trailer chain until addr is part of an mcode block. */ + while (!((size_t)(addr - tr.mcode) < tr.sz)) { + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), + sizeof(jit_MCTrailer)); + if (tr.mcode == NULL) return -1; /* Not in chain. */ + } + { + jit_Mfm *mfm = JIT_MCMFM(tr.mcode, tr.sz); + int ofs = (int)(addr - tr.mcode); + int isdeopt = !jit_mfm_ismain(mfm); + int pc = 0; /* Prologue fragment is at start of main mfm. */ + while (pc <= pt->sizecode) { + int m = *mfm--; + switch (m) { + default: + if (m & JIT_MFM_MARK) { + m ^= JIT_MFM_MARK; + if (isdeopt) { pc = m; continue; } /* Seek. */ + } + ofs -= m; + if (ofs <= 0) return pc-1; /* Found! */ + case JIT_MFM_COMBINE: + case JIT_MFM_DEAD: + pc++; + break; + case JIT_MFM_STOP: + jit_assert(0); /* Premature STOP found. */ + return -1; + } + } + jit_assert(0); /* Address is in .tail. */ + return -1; + } + } +} + +/* Lookup mcode address for PC (1 based) in mfm. */ +static void *jit_mfmlookup(jit_Mfm *mfm, char *addr, int mpc) +{ + int isdeopt = !jit_mfm_ismain(mfm); + int pc = 0; /* Prologue fragment is at start of main mfm. */ + while (pc != mpc) { + int m = *mfm--; + switch (m) { + default: + if (m & JIT_MFM_MARK) { + m ^= JIT_MFM_MARK; + if (isdeopt) { pc = m; continue; } /* Seek. */ + } + addr += m; + case JIT_MFM_COMBINE: + case JIT_MFM_DEAD: + pc++; + break; + case JIT_MFM_STOP: + return NULL; + } + } + return (void *)addr; +} + +/* Find mcode address for PC (1 based). */ +void *luaJIT_findmcode(Proto *pt, int pc) +{ + void *addr = NULL; + jit_Mfm *mfm; + jit_MCTrailer tr; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + mfm = JIT_MCMFM(tr.mcode, tr.sz); + jit_assert(pc >= 1 && pc <= pt->sizecode); + while (mfm[-pc] == JIT_MFM_COMBINE) pc--; + while (mfm[-pc] == JIT_MFM_DEAD) pc++; + jit_assert(pc >= 1 && mfm[-pc] < (JIT_MFM_MARK|JIT_MFM_MAX)); /* Valid? */ + if (jit_mfm_isdeoptpc(mfm, pc)) { /* Deoptimized instruction. */ + do { /* Search through deopt mfm chain. */ + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), + sizeof(jit_MCTrailer)); + if (tr.mcode == NULL) break; /* Deopt ins missing in chain. */ + mfm = JIT_MCMFM(tr.mcode, tr.sz); + if (jit_mfm_ismain(mfm)) break; /* Old main mfm stops search, too. */ + addr = jit_mfmlookup(mfm, tr.mcode, pc); + } while (addr == NULL); + } else { /* Not deoptimized. Lookup in main mfm. */ + addr = jit_mfmlookup(mfm, tr.mcode, pc); + } + jit_assert(addr != NULL); /* Corrupt mfm chain. */ + return addr; +} + +/* ------------------------------------------------------------------------ */ + +/* Compile a prototype. */ +/* Note: func pointer may be invalidated because of stack reallocation. */ +static int jit_compile(lua_State *L, StkId func, Table *st, int force) +{ + jit_State *J = G(L)->jit_state; + Closure *cl = clvalue(func); + Proto *pt = cl->l.p; + int status; + + /* Check if JIT engine is enabled and prevent recursive invocation. */ + if ((J->flags & JIT_F_INIT_FAILED) || + (!force && !(J->flags & JIT_F_ON)) || + !J->frontwrap) { + status = JIT_S_ENGINE_OFF; + } else if (J->flags & JIT_F_COMPILING) { + status = JIT_S_DELAYED; + } else if (pt->jit_szmcode != 0 && force < 2) { /* Prevent recompile. */ + /* TODO: Allow recompiles? Use case? Extra flag for jit.compile()? */ + status = JIT_S_OK; + } else { + setclvalue(L, luaH_setstr(L, st, luaS_newliteral(L, "func")), cl); + /* Call frontend wrapper. */ + J->flags |= JIT_F_COMPILING; + lua_unlock(L); + status = J->frontwrap(L, st); + lua_lock(L); + J->flags &= ~JIT_F_COMPILING; + } + + /* Better sanity check what the frontend returns. */ + if ((status == JIT_S_OK && pt->jit_szmcode == 0) || status == JIT_S_NONE) + status = JIT_S_COMPILER_ERROR; + + /* Update closure callgate and prototype status. */ + cl->l.jit_gate = (status == JIT_S_OK) ? (lua_CFunction)pt->jit_mcode : + G(L)->jit_gateJL; + pt->jit_status = status; + return status; +} + +/* Create the state table and copy the arguments. */ +static Table *jit_createstate(lua_State *L, StkId arg, int nargs) +{ + Table *st = luaH_new(L, nargs, COMSTATE_PREALLOC); + int i; + for (i = 0; i < nargs; i++) + setobj2t(L, luaH_setnum(L, st, i+1), arg+i); + return st; +} + +/* ------------------------------------------------------------------------ */ + +/* Compile and run a function. To be used by luaD_precall() only. */ +int luaJIT_run(lua_State *L, StkId func, int nresults) +{ + ptrdiff_t funcr = savestack(L, func); + Table *st = jit_createstate(L, func+1, L->top-(func+1)); + int status = jit_compile(L, func, st, 0); /* Compile function. */ + func = restorestack(L, funcr); + + /* Run the compiled function on success. Fallback to bytecode on failure. */ + if (status == JIT_S_OK) + return G(L)->jit_gateLJ(L, func, nresults); + else + return luaD_precall(L, func, nresults); + /* Note: We are called from luaD_precall and we call it again. */ + /* So jit_compile makes sure pt->jit_status != JIT_S_NONE. */ +} + +/* ------------------------------------------------------------------------ */ + +/* No more than two ranges for a single deoptimization right now. */ +#define DEOPTRANGE_ALLOC 2 + +/* Find PC range of combined instructions and return a range hint. */ +static int combinedrange(jit_Mfm *mfm, int pc) +{ + int lastpc = pc; + while (mfm[-pc] == JIT_MFM_COMBINE) pc--; /* 1st comb. ins. */ + while (mfm[-(lastpc+1)] == JIT_MFM_COMBINE) lastpc++; /* Last comb. ins. */ + return JIT_IH_MKIDX(lastpc-pc, pc); /* (#ins-1, pc) in hint format. */ +} + +/* Process deoptimization hints for the given PC range. */ +static int deopthints(Proto *pt, jit_Mfm *dh, TValue *dhint, int pcrange) +{ + int m; + setnvalue(dhint++, (lua_Number)pcrange); + while ((m = *dh--) != JIT_MFM_STOP) { + if ((unsigned int)(m - JIT_IH_IDX(pcrange)) <= + (unsigned int)JIT_IH_LIB(pcrange)) { + switch (*dh--) { + case JIT_MFM_DEOPT_PAIRS: /* CALL [i]pairs(): deopt TFORLOOP+JMP. */ + if (GET_OPCODE(pt->code[m+1-1]) == OP_JMP) { + int tfpc = m+2 + GETARG_sBx(pt->code[m+1-1]); + if ((unsigned)tfpc < (unsigned)pt->sizecode && + GET_OPCODE(pt->code[tfpc-1]) == OP_TFORLOOP) { + setnvalue(dhint++, (lua_Number)JIT_IH_MKIDX(1, tfpc)); + break; + } + } + return 1; /* Bad hint. */ + default: + return 1; /* Cannot tolerate unknown deoptimization hints. */ + } + } + } + return 0; /* Ok. */ +} + +/* Deoptimize the current instruction. Return new mcode addr to continue. */ +void *luaJIT_deoptimize(lua_State *L) +{ + StkId func = L->ci->func; + Proto *pt = clvalue(func)->l.p; + int pc = luaJIT_findpc(pt, L->savedpc)+1; /* Get prev. PC (1 based). */ + jit_Mfm *mfm = JIT_MCMFM(pt->jit_mcode, pt->jit_szmcode); + int pcrange = combinedrange(mfm, pc); + if (!jit_mfm_isdeoptpc(mfm, JIT_IH_IDX(pcrange))) { /* Not deopt. yet? */ + Table *st = jit_createstate(L, NULL, 0); /* Don't know original args. */ + Table *deopt = luaH_new(L, DEOPTRANGE_ALLOC, 0); + sethvalue(L, luaH_setstr(L, st, luaS_newliteral(L, "deopt")), deopt); + if (deopthints(pt, mfm-(pt->sizecode+2), deopt->array, pcrange) || + jit_compile(L, func, st, 2) != JIT_S_OK) + luaG_runerror(L, "deoptimization failed"); + } + return luaJIT_findmcode(pt, pc); +} + +/* ------------------------------------------------------------------------ */ + +/* API function: Compile a Lua function. Pass arguments as hints. */ +LUA_API int luaJIT_compile(lua_State *L, int nargs) +{ + StkId func; + Table *st; + int status; + lua_lock(L); + api_check(L, (nargs+1) <= (L->top - L->base)); + func = L->top - (nargs+1); + st = jit_createstate(L, func+1, nargs); + status = isLfunction(func) ? jit_compile(L, func, st, 1) : -1; + lua_unlock(L); + return status; +} + +/* Recursively set the mode for all subroutines. */ +static void rec_setmode(Proto *pt, int on) +{ + int i; + for (i = 0; i < pt->sizep; i++) { + Proto *pti = pt->p[i]; + pti->jit_status = on ? (pti->jit_szmcode?JIT_S_OK:JIT_S_NONE) : JIT_S_OFF; + rec_setmode(pti, on); /* Recurse into proto. */ + } +} + +/* API function: Set the JIT mode for the whole engine or a function+subs. */ +LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode) +{ + jit_State *J = G(L)->jit_state; + int mm = mode & LUAJIT_MODE_MASK; + if (J->flags & JIT_F_INIT_FAILED) return -1; /* Init failed. */ + switch (mm) { + case LUAJIT_MODE_ENGINE: /* Set mode for JIT engine. */ + if (mode & LUAJIT_MODE_ON) + J->flags |= JIT_F_ON; + else + J->flags &= ~JIT_F_ON; + break; + case LUAJIT_MODE_DEBUG: { /* Set debug mode. */ + int dbg; + switch (idx) { + case 0: dbg = 0; break; + case 1: dbg = JIT_F_DEBUG_CALL; break; + case 2: default: dbg = JIT_F_DEBUG_CALL | JIT_F_DEBUG_INS; break; + } + J->flags = (J->flags & ~JIT_F_DEBUG) | dbg; + luaJIT_debugnotify(J); + break; + } + case LUAJIT_MODE_FUNC: /* Set mode for function. */ + case LUAJIT_MODE_ALLFUNC: /* Set mode for function + subfuncs. */ + case LUAJIT_MODE_ALLSUBFUNC: { /* Set mode for subfunctions. */ + StkId func; + lua_lock(L); + func = idx == 0 ? (L->ci-1)->func : + (idx > 0 ? L->base + (idx-1) : L->top + idx); + if (isLfunction(func)) { + Closure *cl = clvalue(func); + Proto *pt = cl->l.p; + if (mm != LUAJIT_MODE_ALLSUBFUNC) { + if (mode & LUAJIT_MODE_ON) { + if (pt->jit_szmcode) { /* Already compiled? */ + cl->l.jit_gate = (lua_CFunction)pt->jit_mcode; /* Reenable. */ + pt->jit_status = JIT_S_OK; + } else { + pt->jit_status = JIT_S_NONE; /* (Re-)enable proto compilation */ + } + } else { + cl->l.jit_gate = G(L)->jit_gateJL; /* Default callgate. */ + pt->jit_status = JIT_S_OFF; /* Disable proto compilation. */ + /* Note: compiled code must be retained for suspended threads. */ + } + } + if (mm != LUAJIT_MODE_FUNC) + rec_setmode(pt, mode & LUAJIT_MODE_ON); + lua_unlock(L); + } else { + lua_unlock(L); + return 0; /* Failed. */ + } + break; + } + default: + return 0; /* Failed. */ + } + return 1; /* OK. */ +} + +/* Enforce (dynamic) linker error for version mismatches. See lua.c. */ +LUA_API void LUAJIT_VERSION_SYM(void) +{ +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c new file mode 100644 index 00000000000..8f8f3a9ae98 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.c @@ -0,0 +1,38 @@ +/* +** Wrapper for architecture-specific DynASM encoder. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_dasm_c +#define LUA_CORE + + +#include "lua.h" + +#include "ljit.h" +#include "ljit_dasm.h" +#include "lmem.h" + + +/* Glue macros for DynASM memory allocation. */ +#define DASM_M_GROW(J, t, p, sz, need) \ + do { \ + size_t _sz = (sz), _need = (need); \ + if (_sz < _need) { \ + if (_sz < 16) _sz = 16; \ + while (_sz < _need) _sz += _sz; \ + (p) = (t *)luaM_realloc_(J->L, (p), (sz), _sz); \ + (sz) = _sz; \ + } \ + } while(0) + +#define DASM_M_FREE(J, p, sz) luaM_freemem(J->L, p, sz) + +/* Embed architecture-specific DynASM encoder. */ +#if defined(__i386) || defined(__i386__) || defined(_M_IX86) +#include "dasm_x86.h" +#else +#error "No support for this architecture (yet)" +#endif + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h new file mode 100644 index 00000000000..ad271f3ba5d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_dasm.h @@ -0,0 +1,19 @@ +/* +** Interface to DynASM engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef ljit_dasm_h +#define ljit_dasm_h + +#include "ljit.h" + +/* DynASM glue definitions. */ +#define Dst J +#define Dst_DECL jit_State *J +#define Dst_REF (J->D) +#define DASM_FDEF LUAI_FUNC + +#include "dasm_proto.h" + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h new file mode 100644 index 00000000000..d5b4b70480d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_hints.h @@ -0,0 +1,137 @@ +/* +** Hints for the JIT compiler backend. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifdef STRING_HINTS +#define HH(x, name) #name +#define HH_START(x) static const char *const hints_##x [] = { +#define HH_END(x) NULL } +#else +#define HH(x, name) JIT_##x##_##name +#define HH_START(x) enum { JIT_##x##_NONE, +#define HH_END(x) JIT_##x##_MAX } + +/* Macros to access hints. */ +#define JIT_H2NUM(x) ((x) << 16) + +#define fhint_get(J, hh) \ + (luaH_getnum(J->comstate, JIT_H2NUM(JIT_FH_##hh))) +#define fhint_isset(J, hh) (!ttisnil(fhint_get(J, hh))) + +#define hint_getpc(J, hh, pc) \ + (luaH_getnum(J->comstate, (pc)+JIT_H2NUM(JIT_H_##hh))) +#define hint_get(J, hh) hint_getpc(J, hh, J->nextpc-1) +#define hint_issetpc(J, hh, pc) (!ttisnil(hint_getpc(J, hh, pc))) +#define hint_isset(J, hh) hint_issetpc(J, hh, J->nextpc-1) + +#endif + +/* Hints for functions. */ +HH_START(FH) + HH(FH, NOCLOSE), /* No luaF_close() needed. */ +HH_END(FH); + +/* Hints for individual bytecode instruction. */ +HH_START(H) + HH(H, COMBINE), /* Combine/dead instruction: true/false. */ + HH(H, FOR_STEP_K), /* FORPREP/FORLOOP step is const: step. */ + HH(H, TYPE), /* Type hint: typed object. */ + HH(H, TYPEKEY), /* Type hint for keys: typed object. */ + HH(H, INLINE), /* Inline function call: internal index. */ +HH_END(H); + +#undef HH +#undef HH_START +#undef HH_END + + +/* Avoid multiple inclusion for the following. */ +#ifndef ljit_hints_h +#define ljit_hints_h + +/* Index numbers for inlining C functions. */ +/* CHECK: the index numbers must match with jit.opt_lib. */ + +#define JIT_IH_LIB(x) ((x) >> 16) +#define JIT_IH_IDX(x) ((x) & 0xffff) +#define JIT_IH_MKIDX(l, f) (((l) << 16) | (f)) + +/* Library index numbers. */ +enum { + JIT_IHLIB_INTERNAL, + JIT_IHLIB_BASE, + JIT_IHLIB_COROUTINE, + JIT_IHLIB_STRING, + JIT_IHLIB_TABLE, + JIT_IHLIB_MATH, + JIT_IHLIB__LAST +}; + +/* Internal functions. */ +enum { + JIT_IH_INTERNAL_RECURSIVE, /* Recursive call. */ + JIT_IH_INTERNAL__LAST +}; + +/* Base library functions. */ +enum { + JIT_IH_BASE_PAIRS, + JIT_IH_BASE_IPAIRS, + JIT_IH_BASE__LAST +}; + +/* Coroutine library functions. */ +enum { + JIT_IH_COROUTINE_YIELD, + JIT_IH_COROUTINE_RESUME, + JIT_IH_COROUTINE__LAST +}; + +/* String library functions. */ +enum { + JIT_IH_STRING_LEN, + JIT_IH_STRING_SUB, + JIT_IH_STRING_CHAR, + JIT_IH_STRING__LAST +}; + +/* Table library functions. */ +enum { + JIT_IH_TABLE_INSERT, + JIT_IH_TABLE_REMOVE, + JIT_IH_TABLE_GETN, + JIT_IH_TABLE__LAST +}; + +/* Math library functions. */ +/* CHECK: order must match with function table for jit_inline_math(). */ +enum { + /* 1 arg, 1 result. */ + /* Partially inlined. Call C function from libm: */ + JIT_IH_MATH_LOG, + JIT_IH_MATH_LOG10, + JIT_IH_MATH_EXP, + JIT_IH_MATH_SINH, + JIT_IH_MATH_COSH, + JIT_IH_MATH_TANH, + JIT_IH_MATH_ASIN, + JIT_IH_MATH_ACOS, + JIT_IH_MATH_ATAN, + /* Fully inlined: */ + JIT_IH_MATH_SIN, + JIT_IH_MATH_COS, + JIT_IH_MATH_TAN, + JIT_IH_MATH_CEIL, + JIT_IH_MATH_FLOOR, + JIT_IH_MATH_ABS, + JIT_IH_MATH_SQRT, + /* 2 args, 1 result. */ + JIT_IH_MATH_FMOD, + JIT_IH_MATH_ATAN2, + JIT_IH_MATH__LAST +}; + +#define JIT_IH_MATH__21 JIT_IH_MATH_FMOD + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c new file mode 100644 index 00000000000..64be383194c --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_mem.c @@ -0,0 +1,405 @@ +/* +** Memory management for machine code. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define ljit_mem_c +#define LUA_CORE + +#include + +#include "lua.h" + +#include "lmem.h" +#include "ldo.h" +#include "ljit.h" +#include "ljit_dasm.h" + + +/* +** Define this if you want to run LuaJIT with valgrind. You will get random +** errors if you don't. And these errors are usually not caught by valgrind! +** +** This macro evaluates to a no-op if not run with valgrind. I.e. you can +** use the same binary for regular runs, too (without a performance loss). +*/ +#ifdef USE_VALGRIND +#include +#define MCH_INVALIDATE(ptr, addr) VALGRIND_DISCARD_TRANSLATIONS(ptr, addr) +#else +#define MCH_INVALIDATE(ptr, addr) ((void)0) +#endif + + +/* ------------------------------------------------------------------------ */ + +#if defined(_WIN32) && !defined(LUAJIT_MCH_USE_MALLOC) + +/* Use a private heap with executable memory for Windows. */ +#include + +/* No need for serialization. There's already a lock per Lua universe. */ +#ifdef HEAP_CREATE_ENABLE_EXECUTE +#define MCH_HCFLAGS (HEAP_NO_SERIALIZE|HEAP_CREATE_ENABLE_EXECUTE) +#else +#define MCH_HCFLAGS (HEAP_NO_SERIALIZE|0x00040000) +#endif + +/* Free the whole mcode heap. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + if (J->mcodeheap) HeapDestroy((HANDLE)J->mcodeheap); +} + +/* Allocate a code block from the mcode heap. */ +static void *mcode_alloc(jit_State *J, size_t sz) +{ + void *ptr; + if (J->mcodeheap == NULL) { + J->mcodeheap = (void *)HeapCreate(MCH_HCFLAGS, 0, 0); + if (J->mcodeheap == NULL) luaD_throw(J->L, LUA_ERRMEM); + } + ptr = HeapAlloc(J->mcodeheap, 0, (sz)); + if (ptr == NULL) luaD_throw(J->L, LUA_ERRMEM); + return ptr; +} + +#define mcode_free(L, J, p, sz) HeapFree(J->mcodeheap, 0, (p)) + +/* ------------------------------------------------------------------------ */ + +#elif defined(LUA_USE_POSIX) && !defined(LUAJIT_MCH_USE_MALLOC) + +/* +** Allocate EXECUTABLE memory with mmap() on POSIX systems. +** +** There is no standard way to reuse malloc(). So this is a very small, +** but also very naive memory allocator. This should be ok, because: +** +** 1. Most apps only allocate mcode while running and free all on exit. +** +** 2. Some apps regularly load/unload a bunch of modules ("stages"). +** Allocs/frees come in groups, so coalescing should work fine. +** +** If your app differs, then please elaborate and/or supply code. +** And no -- including a full blown malloc is NOT an option. +** +** Caveat: the mmap()'ed heaps are not freed until exit. +** This shouldn't be too difficult to add, but I didn't bother. +*/ + +#include +#include + +/* TODO: move this to luaconf.h */ +#define LUAJIT_MCH_CHUNKSIZE (1<<17) /* 128K */ + +#if defined(MAP_ANONYMOUS) +#define MCH_MMFLAGS (MAP_PRIVATE|MAP_ANONYMOUS) +#elif defined(MAP_ANON) +#define MCH_MMFLAGS (MAP_PRIVATE|MAP_ANON) +#else +/* I'm too lazy to add /dev/zero support for ancient systems. */ +#error "Your OS has no (easy) support for anonymous mmap(). Please upgrade." +#endif + +/* Chunk header. Used for the free chunk list / heap headers. */ +typedef struct MCodeHead { + struct MCodeHead *next; /* Next free chunk / 1st head: first free. */ + struct MCodeHead *prev; /* Prev free chunk / 1st head: next head. */ + size_t size; /* Size of free chunk / Size of heap. */ + size_t dummy; /* May or may not overlap with trailer. */ +} MCodeHead; + +/* Allocation granularity. Assumes sizeof(void *) >= sizeof(size_t). */ +#define MCH_GRANULARITY (4*sizeof(void *)) +#define MCH_ROUNDSIZE(x) (((x) + MCH_GRANULARITY-1) & -MCH_GRANULARITY) +#define MCH_ROUNDHEAP(x) (((x) + 4095) & -4096) +#define MCH_HEADERSIZE MCH_ROUNDSIZE(sizeof(MCodeHead)) + +/* Trailer flags. */ +#define MCH_USED 1 /* Next chunk is in use. */ +#define MCH_LAST 2 /* Next chunk is the last one. */ +#define MCH_FIRST 4 /* Next chunk is the first one. */ +/* Note: the last chunk of each heap doesn't have a trailer. */ + +/* Trailer macros. */ +#define MCH_PREVTRAILER(mh) ((size_t *)(mh) - 1) +#define MCH_TRAILER(mh, sz) ((size_t *)((char *)(mh) + (sz)) - 1) +#define MCH_TRFLAGS(tr) ((tr) & (MCH_USED|MCH_LAST)) +#define MCH_TRSIZE(tr) ((tr) & ~(MCH_USED|MCH_LAST)) + +/* Debugging memory allocators is ... oh well. */ +#ifdef MCH_DEBUG +#include +#define MCH_DBGF stderr +#define MCH_DBG(x) fprintf x +#else +#define MCH_DBG(x) ((void)0) +#endif + +/* Free the whole list of mcode heaps. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + MCodeHead *mh = (MCodeHead *)J->mcodeheap; + while (mh) { + MCodeHead *prev = mh->prev; /* Heaps are in the prev chain. */ +#ifdef MCH_DEBUG + munmap((void *)mh, mh->size+4096); +#else + munmap((void *)mh, mh->size); +#endif + mh = prev; + } + J->mcodeheap = NULL; +} + +/* Allocate a new heap of at least the given size. */ +static void mcode_newheap(jit_State *J, size_t sz) +{ + MCodeHead *mh, *mhn, *fh; + void *ptr; + + /* Ensure minimum size or round up. */ + if (sz + MCH_HEADERSIZE <= LUAJIT_MCH_CHUNKSIZE) + sz = LUAJIT_MCH_CHUNKSIZE; + else + sz = MCH_ROUNDHEAP(sz + MCH_HEADERSIZE); + +#ifdef MCH_DEBUG + /* Allocate a new heap plus a guard page. */ + ptr = mmap(NULL, sz+4096, PROT_READ|PROT_WRITE|PROT_EXEC, MCH_MMFLAGS, -1, 0); + if (ptr == MAP_FAILED) luaD_throw(J->L, LUA_ERRMEM); + mprotect((char *)ptr+sz, 4096, PROT_NONE); +#else + /* Allocate a new heap. */ + ptr = mmap(NULL, sz, PROT_READ|PROT_WRITE|PROT_EXEC, MCH_MMFLAGS, -1, 0); + if (ptr == MAP_FAILED) luaD_throw(J->L, LUA_ERRMEM); +#endif + + /* Initialize free chunk. */ + fh = (MCodeHead *)((char *)ptr + MCH_HEADERSIZE); + fh->size = sz - MCH_HEADERSIZE; + *MCH_PREVTRAILER(fh) = MCH_LAST | MCH_FIRST; /* Zero size, no coalesce. */ + + /* Initialize new heap and make it the first heap. */ + mh = (MCodeHead *)J->mcodeheap; + J->mcodeheap = ptr; + mhn = (MCodeHead *)ptr; + mhn->prev = mh; /* Heaps are in the prev. chain. */ + mhn->size = sz; + mhn->next = fh; /* Start of free list is always in the first heap. */ + fh->prev = mhn; + if (mh) { + fh->next = mh->next; /* Old start of free list. */ + mh->next = NULL; /* Just in case. */ + } else { + fh->next = NULL; /* No other free chunks yet. */ + } + MCH_DBG((MCH_DBGF, "HEAP %p %5x\n", mhn, sz)); +} + +/* Allocate a code block. */ +static void *mcode_alloc(jit_State *J, size_t sz) +{ + sz = MCH_ROUNDSIZE(sz + sizeof(size_t)); + for ( ; ; ) { + MCodeHead *mh = (MCodeHead *)J->mcodeheap; + if (mh) { /* Got at least one heap so search free list. */ +#ifdef MCH_DEBUG + int slen = 0; + for (mh = mh->next; mh ; mh = mh->next, slen++) +#else + for (mh = mh->next; mh ; mh = mh->next) +#endif + if (mh->size >= sz) { /* Very naive first fit. */ + size_t *trailer = MCH_TRAILER(mh, sz); + size_t *ptrailer = MCH_PREVTRAILER(mh); + if (mh->size == sz) { /* Exact match: just unchain chunk. */ + mh->prev->next = mh->next; + if (mh->next) + mh->next->prev = mh->prev; + *ptrailer |= MCH_USED; + MCH_DBG((MCH_DBGF, "NEW %p %5x FIT #%d%s\n", + mh, sz, slen, (*ptrailer & MCH_LAST) ? " LAST" : "")); + } else { /* Chunk is larger: rechain remainder chunk. */ + MCodeHead *fh = (MCodeHead *)((char *)mh + sz); + size_t tr; + fh->size = mh->size - sz; + (fh->prev = mh->prev)->next = fh; + if ((fh->next = mh->next) != NULL) + fh->next->prev = fh; + tr = *ptrailer; + if (tr & MCH_LAST) { + *ptrailer = (tr & ~MCH_LAST) | MCH_USED; + *trailer = sz | MCH_LAST; + MCH_DBG((MCH_DBGF, "NEW %p %5x REST %p %5x #%d LAST\n", + mh, sz, fh, fh->size, slen)); + } else { + size_t *ftrailer = MCH_TRAILER(fh, fh->size); + *ftrailer = MCH_TRFLAGS(*ftrailer) | fh->size; + *ptrailer = tr | MCH_USED; + *trailer = sz; + MCH_DBG((MCH_DBGF, "NEW %p %5x REST %p %5x #%d\n", + mh, sz, fh, fh->size, slen)); + } + } + return (void *)mh; + } + } + /* No luck. Allocate a new heap. Next loop iteration will succeed. */ + mcode_newheap(J, sz); + } +} + +/* Free a code block. */ +static void mcode_free_(jit_State *J, void *ptr, size_t sz) +{ + MCodeHead *mh = (MCodeHead *)ptr; + size_t *trailer = MCH_TRAILER(mh, sz); + size_t *ptrailer = MCH_PREVTRAILER(mh); + size_t tr = *ptrailer; + +#ifdef MCH_DEBUG + if (!(tr & MCH_USED)) MCH_DBG((MCH_DBGF, "**unused %p %5x\n", ptr, sz)); +#endif + + if (!(tr & MCH_FIRST)) { + MCodeHead *ph = (MCodeHead *)((char *)mh - MCH_TRSIZE(tr)); + size_t *pptrailer = MCH_PREVTRAILER(ph); + if (!(*pptrailer & MCH_USED)) { /* Prev free? */ + if (!(tr & MCH_LAST) && !(*trailer & MCH_USED)) { /* Next free? */ + /* Coalesce with previous and next chunk. */ + MCodeHead *nh = (MCodeHead *)((char *)mh + sz); + MCH_DBG((MCH_DBGF, "free %p %5x PN %p %5x %p %5x%s\n", + mh, sz, ph, ph->size, nh, nh->size, + (*trailer & MCH_LAST) ? " last" : "")); + if ((nh->prev->next = nh->next) != NULL) + nh->next->prev = nh->prev; + ph->size += sz + nh->size; + if (*trailer & MCH_LAST) { + *pptrailer |= MCH_LAST; + } else { + trailer = MCH_TRAILER(nh, nh->size); + *trailer = MCH_TRFLAGS(*trailer) | ph->size; + } + return; + } + MCH_DBG((MCH_DBGF, "free %p %5x P- %p %5x%s\n", + mh, sz, ph, ph->size, + (tr & MCH_LAST) ? " last" : "")); + ph->size += sz; + if (tr & MCH_LAST) + *pptrailer |= MCH_LAST; + else + *trailer = MCH_TRFLAGS(*trailer) | ph->size; + return; + } + } + + if (!(tr & MCH_LAST) && !(*trailer & MCH_USED)) { /* Next free? */ + /* Coalesce with next chunk. */ + MCodeHead *nh = (MCodeHead *)((char *)mh + sz); + MCH_DBG((MCH_DBGF, "free %p %5x -N %p %5x%s\n", + mh, sz, nh, nh->size, (*trailer & MCH_LAST) ? " last" : "")); + (mh->prev = nh->prev)->next = mh; + if ((mh->next = nh->next)) + mh->next->prev = mh; + mh->size = nh->size + sz; + if (*trailer & MCH_LAST) { + *ptrailer = (tr & ~MCH_USED) | MCH_LAST; + } else { + trailer = MCH_TRAILER(mh, mh->size); + *trailer = MCH_TRFLAGS(*trailer) | mh->size; + *ptrailer = tr & ~MCH_USED; + } + } else { + /* No coalesce possible, just add to free list. */ + MCodeHead *fh = (MCodeHead *)J->mcodeheap; + MCH_DBG((MCH_DBGF, "free %p %5x --%s\n", + mh, sz, (tr & MCH_LAST) ? " last" : "")); + if ((mh->next = fh->next)) + mh->next->prev = mh; + fh->next = mh; + mh->prev = fh; + mh->size = sz; + *ptrailer = tr & ~MCH_USED; + } +} + +#define mcode_free(L, J, p, sz) \ + mcode_free_(J, (p), MCH_ROUNDSIZE((sz) + sizeof(size_t))) + +/* ------------------------------------------------------------------------ */ + +#else + +/* +** Fallback to Lua's alloc, i.e. probably malloc(). +** +** Note: the returned memory is usually not marked executable! +** Running the code will crash if the CPU/OS checks for this. +** E.g. on x86 CPUs that support the NX (No eXecute) bit. +*/ + +/* There's no heap to free, but the JSUB mcode is. */ +void luaJIT_freemcodeheap(jit_State *J) +{ + if (J->jsubmcode) luaM_freemem(J->L, J->jsubmcode, J->szjsubmcode); +} + +#define mcode_alloc(J, sz) luaM_realloc_(J->L, NULL, 0, (sz)) +#define mcode_free(L, J, p, sz) luaM_freemem(L, p, sz) + +#endif + +/* ------------------------------------------------------------------------ */ + +/* Free mcode. */ +void luaJIT_freemcode(jit_State *J, void *mcode, size_t sz) +{ + mcode_free(J->L, J, mcode, sz); +} + +/* Free JIT structures in function prototype. */ +void luaJIT_freeproto(lua_State *L, Proto *pt) +{ + char *mcode = (char *)pt->jit_mcode; + size_t sz = pt->jit_szmcode; + pt->jit_mcode = NULL; + pt->jit_szmcode = 0; + while (sz != 0) { /* Free whole chain of mcode blocks for this proto. */ + jit_MCTrailer next; + memcpy((void *)&next, JIT_MCTRAILER(mcode, sz), sizeof(jit_MCTrailer)); + MCH_INVALIDATE(mcode, sz); + mcode_free(L, G(L)->jit_state, mcode, sz); + mcode = next.mcode; + sz = next.sz; + } +} + +/* Link generated code. Return mcode address, size and status. */ +int luaJIT_link(jit_State *J, void **mcodep, size_t *szp) +{ + size_t sz; + void *mcode; + + /* Pass 2: link sections. */ + if ((J->dasmstatus = dasm_link(Dst, &sz))) return JIT_S_DASM_ERROR; + + /* Check for hardcoded limit on mcode size. */ + if (sz > LUAJIT_LIM_MCODE) return JIT_S_TOOLARGE; + + /* TODO: mark mcode readonly when we're done. */ + mcode = mcode_alloc(J, sz); + + /* Pass 3: encode sections. */ + if ((J->dasmstatus = dasm_encode(Dst, mcode)) != 0) { + mcode_free(J->L, J, mcode, sz); + return JIT_S_DASM_ERROR; + } + *mcodep = mcode; + *szp = sz; + return JIT_S_OK; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc new file mode 100644 index 00000000000..b96d02763a1 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dasc @@ -0,0 +1,2457 @@ +/* +** Bytecode to machine code translation for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +|// Include common definitions and macros. +|.include ljit_x86.dash +| +|// Place actionlist and globals here at the top of the file. +|.actionlist jit_actionlist +|.globals JSUB_ + +/* ------------------------------------------------------------------------ */ + +/* Arch string. */ +const char luaJIT_arch[] = "x86"; + +/* Forward declarations for C functions called from jsubs. */ +static void jit_hookins(lua_State *L, const Instruction *newpc); +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest); +static void jit_settable_fb(lua_State *L, Table *t, StkId val); + +/* ------------------------------------------------------------------------ */ + +/* Detect CPU features and set JIT flags. */ +static int jit_cpudetect(jit_State *J) +{ + void *mcode; + size_t sz; + int status; + /* Some of the jsubs need the flags. So compile this separately. */ + unsigned int feature; + dasm_setup(Dst, jit_actionlist); + | // Check for CPUID support first. + | pushfd + | pop edx + | mov ecx, edx + | xor edx, 0x00200000 // Toggle ID bit in flags. + | push edx + | popfd + | pushfd + | pop edx + | xor eax, eax // Zero means no features supported. + | cmp ecx, edx + | jz >1 // No ID toggle means no CPUID support. + | + | inc eax // CPUID function 1. + | push ebx // Callee-save ebx modified by CPUID. + | cpuid + | pop ebx + | mov eax, edx // Return feature support bits. + |1: + | ret + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + /* Check feature bits. See the Intel/AMD manuals for the bit definitions. */ + feature = ((unsigned int (*)(void))mcode)(); + if (feature & (1<<15)) J->flags |= JIT_F_CPU_CMOV; + if (feature & (1<<26)) J->flags |= JIT_F_CPU_SSE2; + luaJIT_freemcode(J, mcode, sz); /* We don't need this code anymore. */ + return JIT_S_OK; +} + +/* Check some assumptions. Should compile to nop. */ +static int jit_consistency_check(jit_State *J) +{ + do { + /* Force a compiler error for inconsistent structure sizes. */ + /* Check LUA_TVALUE_ALIGN in luaconf.h, too. */ + ||int check_TVALUE_SIZE_in_ljit_x86_dash[1+TVALUE_SIZE-sizeof(TValue)]; + ||int check_TVALUE_SIZE_in_ljit_x86_dash_[1+sizeof(TValue)-TVALUE_SIZE]; + ((void)check_TVALUE_SIZE_in_ljit_x86_dash[0]); + ((void)check_TVALUE_SIZE_in_ljit_x86_dash_[0]); + if (LUA_TNIL != 0 || LUA_TBOOLEAN != 1 || PCRLUA != 0) break; + if ((int)&(((Node *)0)->i_val) != (int)&(((StkId)0)->value)) break; + return JIT_S_OK; + } while (0); + J->dasmstatus = 999999999; /* Recognizable error. */ + return JIT_S_COMPILER_ERROR; +} + +/* Compile JIT subroutines (once). */ +static int jit_compile_jsub(jit_State *J) +{ + int status = jit_consistency_check(J); + if (status != JIT_S_OK) return status; + status = jit_cpudetect(J); + if (status != JIT_S_OK) return status; + dasm_setup(Dst, jit_actionlist); + |// Macros to reorder and combine JIT subroutine definitions. + |.macro .jsub, name + |.capture JSUB // Add the entry point. + ||//----------------------------------------------------------------------- + ||//->name: + | .align 16 + |->name: + |.endmacro + |.macro .endjsub; .endcapture; .endmacro + |.macro .dumpjsub; .dumpcapture JSUB; .endmacro + | + |.code + |//----------------------------------------------------------------------- + | .align 16 + | // Must be the first JSUB defined or used. + |->STACKPTR: // Get stack pointer (for jit.util.*). + | lea eax, [esp+aword*1] // But adjust for the return address. + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_LJ: // Lua -> JIT gate. (L, func, nresults) + | push ebp + | mov ebp, esp + | sub esp, LJFRAME_OFFSET + | mov SAVER1, BASE + | mov BASE, CARG2 // func + | mov CARG2, L // Arg used as savereg. Avoids aword*8 stack frame. + | mov L, CARG1 // L + | mov SAVER2, TOP + | mov TOP, L->top + | mov LCL, BASE->value + | mov CI, L->ci + | // Prevent stackless yields. No limit check -- this is not a real C call. + | inc word L->nCcalls // short + | + | call aword LCL->jit_gate // Call the compiled code. + | + | mov CI, L->ci + | mov L->top, TOP // Only correct for LUA_MULTRET. + | mov edx, CI->savedpc + | mov eax, CARG3 // nresults + | mov L->savedpc, edx // L->savedpc = CI->savedpc + | mov edx, CI->base + | test eax, eax + | mov L->base, edx // L->base = CI->base + | js >2 // Skip for nresults == LUA_MULTRET. + | + | TValuemul eax + | add BASE, eax + | xor ecx, ecx + | mov L->top, BASE // L->top = &func[nresults] + |1: // No initial check. May use EXTRA_STACK (once). + | mov TOP->tt, ecx // Clear unset stack slots. + | add TOP, #TOP + | cmp TOP, BASE + | jb <1 + | + |2: + | dec word L->nCcalls // short + | mov eax, PCRC + | mov TOP, SAVER2 + | mov BASE, SAVER1 + | mov L, CARG2 + | mov esp, ebp + | pop ebp + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_JL: // JIT -> Lua callgate. + | mov PROTO:edx, LCL->p + | cmp dword PROTO:edx->jit_status, JIT_S_OK + | jne >1 // Already compiled? + | + | // Yes, copy callgate to closure (so GATE_JL is not called again). + | mov edx, PROTO:edx->jit_mcode + | mov LCL->jit_gate, edx + | jmp edx // Chain to compiled code. + | + |1: // Let luaD_precall do the hard work: compile & run or fallback. + | sub esp, FRAME_OFFSET + | mov eax, CI->savedpc + | mov L->ci, CI // May not be in sync for tailcalls. + | mov L->top, TOP + | mov ARG3, -1 // LUA_MULTRET + | mov L->savedpc, eax // luaD_precall expects it there. + | mov ARG2, BASE + | sub BASE, L->stack // Preserve old BASE (= func). + | mov ARG1, L + | call &luaD_precall // luaD_precall(L, func, nresults) + | test eax,eax // Assumes: PCRLUA == 0 + | jnz >2 // PCRC? PCRYIELD cannot happen. + | + | // Returned PCRLUA: need to call the bytecode interpreter. + | call &luaV_execute, L, 1 + | // Indirect yield (L->status == LUA_YIELD) cannot happen. + | + |2: // Returned PCRC: compile & run done. Frame is already unwound. + | add esp, FRAME_OFFSET + | add BASE, L->stack // Restore stack-relative pointers BASE and TOP. + | mov TOP, L->top + | ret + | + |//----------------------------------------------------------------------- + | .align 16 + |->GATE_JC: // JIT -> C callgate. + | lea eax, TOP[LUA_MINSTACK] + | sub esp, FRAME_OFFSET + | cmp eax, L->stack_last + | jae ->GROW_STACK // Stack overflow? + | cmp CI, L->end_ci + | lea CI, CI[1] + | je ->GROW_CI // CI overflow? + | mov L->ci, CI + | mov CI->func, BASE + | mov CI->top, eax + | mov CCLOSURE:edx, BASE->value + | add BASE, #BASE + | mov L->top, TOP + | mov L->base, BASE + | mov CI->base, BASE + | // ci->nresults is not set because we don't use luaD_poscall(). + | + |->GATE_JC_PATCH: // Patch mark for jmp to GATE_JC_DEBUG. + | + | call aword CCLOSURE:edx->f, L // Call the C function. + | + |2: // Label used below! + | add esp, FRAME_OFFSET + | mov CI, L->ci + | TValuemul eax // eax = nresults*sizeof(TValue) + | mov TOP, CI->func + | jz >4 // Skip loop if nresults == 0. + | // Yield (-1) cannot happen. + | mov BASE, L->top + | mov edx, BASE + | sub BASE, eax // BASE = &L->top[-nresults] + |3: // Relocate [L->top-nresults, L->top) -> [ci->func, ci->func+nresults) + | mov eax, [BASE] + | add BASE, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp BASE, edx + | jb <3 + | + |4: + | mov BASE, CI->func + | sub CI, #CI + | mov L->ci, CI + | ret + | + |//----------------------------------------------------------------------- + | nop; nop; nop; nop; nop; nop // Save area. See DEBUGPATCH_SIZE. + | .align 16 + |->GATE_JC_DEBUG: // JIT -> C callgate for debugging. + | test byte L->hookmask, LUA_MASKCALL // Need to call hook? + | jnz >7 + |6: + | call aword CCLOSURE:edx->f, L // Call the C function. + | + | test byte L->hookmask, LUA_MASKRET // Need to call hook? + | jz <2 + | + | // Return hook. TODO: LUA_HOOKTAILRET is not called since tailcalls == 0. + | mov BASE, eax // BASE (ebx) is callee-save. + | call &luaD_callhook, L, LUA_HOOKRET, -1 + | mov eax, BASE + | jmp <2 + | + |7: // Call hook. + | mov BASE, CCLOSURE:edx // BASE (ebx) is callee-save. + | call &luaD_callhook, L, LUA_HOOKCALL, -1 + | mov CCLOSURE:edx, BASE + | jmp <6 + | + |//----------------------------------------------------------------------- + | .align 16 + |->GROW_STACK: // Grow stack. Jump from/to prologue. + | sub eax, TOP + | TValuediv eax // eax = (eax-TOP)/sizeof(TValue). + | mov L->top, TOP + | sub BASE, L->stack + | mov ARG3, CI + | call &luaD_growstack, L, eax + | mov CI, ARG3 // CI may not be in sync with L->ci. + | add BASE, L->stack // Restore stack-relative pointers. + | mov TOP, L->top + | mov LCL, BASE->value + | add esp, FRAME_OFFSET // Undo esp adjust of prologue/GATE_JC. + | jmp aword LCL->jit_gate // Retry prologue. + | + |//----------------------------------------------------------------------- + | .align 16 + |->GROW_CI: // Grow CI. Jump from/to prologue. + | mov L->top, TOP // May throw LUA_ERRMEM, so save TOP. + | call &luaD_growCI, L + | lea CI, CINFO:eax[-1] // Undo ci++ (L->ci reset in prologue). + | mov LCL, BASE->value + | mov L->ci, CI + | add esp, FRAME_OFFSET // Undo esp adjust of prologue/GATE_JC. + | jmp aword LCL->jit_gate // Retry prologue. + | + |//----------------------------------------------------------------------- + |.dumpjsub // Dump all captured .jsub's. + | + |// Uncritical jsubs follow. No need to align them. + |//----------------------------------------------------------------------- + |->DEOPTIMIZE_CALLER: // Deoptimize calling instruction. + | pop edx + | jmp ->DEOPTIMIZE + | + |->DEOPTIMIZE_OPEN: // Deoptimize open instruction. + | mov L->top, TOP // Save TOP. + | + |->DEOPTIMIZE: // Deoptimize instruction. + | mov L->savedpc, edx // &J->nextins expected in edx. + | call &luaJIT_deoptimize, L + | mov BASE, L->base + | mov TOP, L->top // Restore TOP for open ins. + | jmp eax // Continue with new mcode addr. + | + | .align 16 + |//----------------------------------------------------------------------- + + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &J->jsubmcode, &J->szjsubmcode); + if (status != JIT_S_OK) + return status; + + /* Copy the callgates from the globals to the global state. */ + G(J->L)->jit_gateLJ = (luaJIT_GateLJ)J->jsub[JSUB_GATE_LJ]; + G(J->L)->jit_gateJL = (lua_CFunction)J->jsub[JSUB_GATE_JL]; + G(J->L)->jit_gateJC = (lua_CFunction)J->jsub[JSUB_GATE_JC]; + return JIT_S_OK; +} + +/* Match with number of nops above. Avoid confusing the instruction decoder. */ +#define DEBUGPATCH_SIZE 6 + +/* Notify backend that the debug mode may have changed. */ +void luaJIT_debugnotify(jit_State *J) +{ + unsigned char *patch = (unsigned char *)J->jsub[JSUB_GATE_JC_PATCH]; + unsigned char *target = (unsigned char *)J->jsub[JSUB_GATE_JC_DEBUG]; + /* Yep, this is self-modifying code -- don't tell anyone. */ + if (patch[0] == 0xe9) { /* Debug patch is active. */ + if (!(J->flags & JIT_F_DEBUG_CALL)) /* Deactivate it. */ + memcpy(patch, target-DEBUGPATCH_SIZE, DEBUGPATCH_SIZE); + } else { /* Debug patch is inactive. */ + if (J->flags & JIT_F_DEBUG_CALL) { /* Activate it. */ + int rel = target-(patch+5); + memcpy(target-DEBUGPATCH_SIZE, patch, DEBUGPATCH_SIZE); + patch[0] = 0xe9; /* jmp */ + memcpy(patch+1, &rel, 4); /* Relative address. */ + memset(patch+5, 0x90, DEBUGPATCH_SIZE-5); /* nop */ + } + } +} + +/* Patch a jmp into existing mcode. */ +static void jit_patch_jmp(jit_State *J, void *mcode, void *to) +{ + unsigned char *patch = (unsigned char *)mcode; + int rel = ((unsigned char *)to)-(patch+5); + patch[0] = 0xe9; /* jmp */ + memcpy((void *)(patch+1), &rel, 4); /* Relative addr. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Call line/count hook. */ +static void jit_hookins(lua_State *L, const Instruction *newpc) +{ + Proto *pt = ci_func(L->ci)->l.p; + int pc = luaJIT_findpc(pt, newpc); /* Sloooow with mcode addrs. */ + const Instruction *savedpc = L->savedpc; + L->savedpc = pt->code + pc + 1; + if (L->hookmask > LUA_MASKLINE && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (L->hookmask & LUA_MASKLINE) { + int newline = getline(pt, pc); + if (pc != 0) { + int oldpc = luaJIT_findpc(pt, savedpc); + if (!(pc <= oldpc || newline != getline(pt, oldpc))) return; + } + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + +/* Insert hook check for each instruction in full debug mode. */ +static void jit_ins_debug(jit_State *J, int openop) +{ + if (openop) { + | mov L->top, TOP + } + |// TODO: Passing bytecode addrs would speed this up (but use more space). + | call ->HOOKINS + + |.jsub HOOKINS + | test byte L->hookmask, LUA_MASKLINE|LUA_MASKCOUNT + | jz >2 + | dec dword L->hookcount + | jz >1 + | test byte L->hookmask, LUA_MASKLINE + | jz >2 + |1: + | mov eax, [esp] // Current machine code address. + | sub esp, FRAME_OFFSET + | call &jit_hookins, L, eax + | add esp, FRAME_OFFSET + | mov BASE, L->base // Restore stack-relative pointers. + | mov TOP, L->top + |2: + | ret + |.endjsub +} + +/* Called before every instruction. */ +static void jit_ins_start(jit_State *J) +{ + |// Always emit PC labels, even for dead code (but not for combined JMP). + |=>J->nextpc: +} + +/* Chain to another instruction. */ +static void jit_ins_chainto(jit_State *J, int pc) +{ + | jmp =>pc +} + +/* Set PC label. */ +static void jit_ins_setpc(jit_State *J, int pc, void *target) +{ + |.label =>pc, &target +} + +/* Called after the last instruction has been encoded. */ +static void jit_ins_last(jit_State *J, int lastpc, int sizemfm) +{ + if (J->tflags & JIT_TF_USED_DEOPT) { /* Deopt section has been used? */ + |.deopt + | jmp ->DEOPTIMIZE // Yes, need to add final jmp. + |.code + } + |=>lastpc+1: // Extra label at the end of .code. + |.tail + |=>lastpc+2: // And at the end of .deopt/.tail. + | .align word // Keep next section word aligned. + | .word 0xffff // Terminate mfm with JIT_MFM_STOP. + |.mfmap + | // <-- Deoptimization hints are inserted here. + | .space sizemfm // To be filled in with inverse mfm. + | .aword 0, 0 // Next mcode block pointer and size. + | // The previous two awords are only word, but not aword aligned. + | // Copying them is easier than aligning them and adjusting mfm handling. + |.code +} + +/* Add a deoptimize target for the current instruction. */ +static void jit_deopt_target(jit_State *J, int nargs) +{ + |.define L_DEOPTLABEL, 9 // Local deopt label. + |.define L_DEOPTIMIZE, <9 // Local deopt target. Use after call. + |.define L_DEOPTIMIZEF, >9 // Local deopt target. Use before call. + if (nargs != -1) { + |// Alas, x86 doesn't have conditional calls. So branch to the .deopt + |// section to load J->nextins and jump to JSUB_DEOPTIMIZE. + |// Only a single jump is added at the end (if needed) and any + |// intervening code sequences are shadowed (lea trick). + |.deopt // Occupies 6 bytes in .deopt section. + | .byte 0x8d // Shadow mov with lea edi, [edx+ofs]. + |L_DEOPTLABEL: + | mov edx, &J->nextins // Current instruction + 1. + |.code + J->tflags |= JIT_TF_USED_DEOPT; + } else { + |.tail // Occupies 10 bytes in .tail section. + |L_DEOPTLABEL: + | mov edx, &J->nextins + | jmp ->DEOPTIMIZE_OPEN // Open ins need to save TOP, too. + | // And TOP (edi) would be overwritten by the lea trick. + | // So checking for open ops later on wouldn't suffice. Sigh. + |.code + } +} + +/* luaC_checkGC() inlined. Destroys caller-saves + TOP (edi). Uses label 7:. */ +/* Use this only at the _end_ of an instruction. */ +static void jit_checkGC(jit_State *J) +{ + | mov GL:ecx, L->l_G + | mov eax, GL:ecx->totalbytes // size_t + | mov TOP, >7 + | cmp eax, GL:ecx->GCthreshold // size_t + | jae ->GCSTEP + |7: + + |.jsub GCSTEP + | call &luaC_step, L + | mov BASE, L->base + | jmp TOP + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +|// JIT->JIT calling conventions: +|// +|// Register/Type | Call Setup | Prologue | Epilogue | Call Finish +|// =========================================================================== +|// eax | LCL | = BASE->value| | * | * +|// ecx | CI | = L->ci | L->ci = ++CI | * | * +|// edx | * | * | * | * | * +|// --------------------------------------------------------------------------- +|// esi | L | | | | +|// ebx | BASE | += f | ++ | -- | -= f +|// edi | TOP | += f+1+nargs | = BASE+maxst | = f+nresults | = BASE+maxst +|// --------------------------------------------------------------------------- +|// L->base | | = BASE | | = BASE +|// L->top | | = TOP | | = TOP +|// L->ci | | ++, -> = ... | -- | +|// L->ci->savedpc| = &code[pc] | [ L-> = ] | | +|// --------------------------------------------------------------------------- +|// args + vars | | setnil | | +|// results | | | move | setnil +|// --------------------------------------------------------------------------- + + +|// Include support for function inlining. +|.include ljit_x86_inline.dash + + +#ifdef LUA_COMPAT_VARARG +static void jit_vararg_table(lua_State *L) +{ + Table *tab; + StkId base, func; + int i, num, numparams; + luaC_checkGC(L); + base = L->base; + func = L->ci->func; + numparams = clvalue(func)->l.p->numparams; + num = base - func - numparams - 1; + tab = luaH_new(L, num, 1); + for (i = 0; i < num; i++) + setobj2n(L, luaH_setnum(L, tab, i+1), base - num + i); + setnvalue(luaH_setstr(L, tab, luaS_newliteral(L, "n")), (lua_Number)num); + sethvalue(L, base + numparams, tab); +} +#endif + +/* Encode JIT function prologue. */ +static void jit_prologue(jit_State *J) +{ + Proto *pt = J->pt; + int numparams = pt->numparams; + int stacksize = pt->maxstacksize; + + |// Note: the order of the following instructions has been carefully tuned. + | lea eax, TOP[stacksize] + | sub esp, FRAME_OFFSET + | cmp eax, L->stack_last + | jae ->GROW_STACK // Stack overflow? + | // This is a slight overallocation (BASE[1+stacksize] would be enough). + | // We duplicate luaD_precall() behaviour so we can use luaD_growstack(). + | cmp CI, L->end_ci + | lea CI, CI[1] + | je ->GROW_CI // CI overflow? + | xor eax, eax // Assumes: LUA_TNIL == 0 + | mov CI->func, BASE + | add BASE, #BASE + | mov L->ci, CI + + if (numparams > 0) { + | lea edx, BASE[numparams] + | cmp TOP, edx // L->top >< L->base+numparams ? + } + + if (!pt->is_vararg) { /* Fixarg function. */ + /* Must cap L->top at L->base+numparams because 1st LOADNIL is omitted. */ + if (numparams == 0) { + | mov TOP, BASE + } else if (J->flags & JIT_F_CPU_CMOV) { + | cmova TOP, edx + } else { + | jna >1 + | mov TOP, edx + |1: + } + | lea edx, BASE[stacksize] // New ci->top. + | mov CI->tailcalls, eax // 0 + | mov CI->top, edx + | mov L->top, edx + | mov L->base, BASE + | mov CI->base, BASE + } else { /* Vararg function. */ + int i; + if (numparams > 0) { + |// If some fixargs are missing we need to clear them and + |// bump TOP to get a consistent frame layout for OP_VARARG. + | jb >5 + |4: + |.tail + |5: // This is uncommon. So move it to .tail and use a loop. + | mov TOP->tt, eax + | add TOP, #TOP + | cmp TOP, edx + | jb <5 + | jmp <4 + |.code + } + | mov L->base, TOP // New base is after last arg. + | mov CI->base, TOP + | mov CI->tailcalls, eax // 0 + for (i = 0; i < numparams; i++) { /* Move/clear fixargs. */ + |// Inline this. Vararg funcs usually have very few fixargs. + | copyslot TOP[i], BASE[i], ecx, edx + | mov BASE[i].tt, eax // Clear old fixarg slot (help the GC). + } + if (numparams > 0) { + | mov CI, L->ci // Reload CI = ecx (used by move). + } + | mov BASE, TOP + | lea edx, BASE[stacksize] // New ci->top. + | lea TOP, BASE[numparams] // Start of vars to clear. + | mov CI->top, edx + | mov L->top, edx + stacksize -= numparams; /* Fixargs are already cleared. */ + } + + /* Clear undefined args and all vars. Still assumes eax = LUA_TNIL = 0. */ + /* Note: cannot clear only args because L->top has grown. */ + if (stacksize <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < stacksize; i++) { + | mov TOP[i].tt, eax + } + } else { /* Standard loop. */ + |2: // Unrolled for 2 stack slots. No initial check. May use EXTRA_STACK. + | mov TOP[0].tt, eax + | mov TOP[1].tt, eax + | add TOP, 2*#TOP + | cmp TOP, edx + | jb <2 + |// Note: TOP is undefined now. TOP is only valid across calls/open ins. + } + +#ifdef LUA_COMPAT_VARARG + if (pt->is_vararg & VARARG_NEEDSARG) { + | call &jit_vararg_table, L + } +#endif + + /* Call hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + | test byte L->hookmask, LUA_MASKCALL + | jz >9 + | call ->HOOKCALL + |9: + + |.jsub HOOKCALL + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov PROTO:edi, LCL->p // clvalue(L->ci->func)->l.p + | mov eax, PROTO:edi->code + | add eax, 4 // Hooks expect incremented PC. + | mov L->savedpc, eax + | sub esp, FRAME_OFFSET + | call &luaD_callhook, L, LUA_HOOKCALL, -1 + | add esp, FRAME_OFFSET + | mov eax, PROTO:edi->code // PROTO:edi is callee-save. + | mov L->savedpc, eax // jit_hookins needs previous PC. + | mov BASE, L->base + | ret + |.endjsub + } +} + +/* Check if we can combine 'return const'. */ +static int jit_return_k(jit_State *J) +{ + if (!J->combine) return 0; /* COMBINE hint set? */ + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + | call &luaF_close, L, BASE + } + if (!J->pt->is_vararg) { /* Fixarg function. */ + | sub aword L->ci, #CI + | mov TOP, BASE + | sub BASE, #BASE + | add esp, FRAME_OFFSET + } else { /* Vararg function. */ + | mov CI, L->ci + | mov BASE, CI->func + | sub CI, #CI + | mov L->ci, CI + | lea TOP, BASE[1] + | add esp, FRAME_OFFSET + } + jit_assert(J->combine == 1); /* Required to skip next RETURN instruction. */ + return 1; +} + +static void jit_op_return(jit_State *J, int rbase, int nresults) +{ + /* Return hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + if (nresults < 0 && !(J->flags & JIT_F_DEBUG_INS)) { + | mov L->top, TOP + } + |// TODO: LUA_HOOKTAILRET (+ ci->tailcalls counting) or changed debug API. + | test byte L->hookmask, LUA_MASKRET + | jz >7 + | call ->HOOKRET + |7: + if (J->flags & JIT_F_DEBUG_INS) { + | mov eax, FRAME_RETADDR + | mov L->savedpc, eax + } + + |.jsub HOOKRET + | mov eax, [esp] // Current machine code address. + | mov L->savedpc, eax + | sub esp, FRAME_OFFSET + | call &luaD_callhook, L, LUA_HOOKRET, -1 + | add esp, FRAME_OFFSET + | mov BASE, L->base // Restore stack-relative pointers. + | mov TOP, L->top + | ret + |.endjsub + } + + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + | call &luaF_close, L, BASE + } + + /* Previous op was open: 'return f()' or 'return ...' */ + if (nresults < 0) { + |// Relocate [BASE+rbase, TOP) -> [ci->func, *). + | mov CI, L->ci + | addidx BASE, rbase + | mov edx, CI->func + | cmp BASE, TOP + | jnb >2 + |1: + | mov eax, [BASE] + | add BASE, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp BASE, TOP + | jb <1 + |2: + | add esp, FRAME_OFFSET + | mov BASE, CI->func + | sub CI, #CI + | mov TOP, edx // Relocated TOP. + | mov L->ci, CI + | ret + return; + } + + if (!J->pt->is_vararg) { /* Fixarg function, nresults >= 0. */ + int i; + | sub aword L->ci, #CI + |// Relocate [BASE+rbase,BASE+rbase+nresults) -> [BASE-1, *). + |// TODO: loop for large nresults? + | sub BASE, #BASE + for (i = 0; i < nresults; i++) { + | copyslot BASE[i], BASE[rbase+i+1] + } + | add esp, FRAME_OFFSET + | lea TOP, BASE[nresults] + | ret + } else { /* Vararg function, nresults >= 0. */ + int i; + |// Relocate [BASE+rbase,BASE+rbase+nresults) -> [ci->func, *). + | mov CI, L->ci + | mov TOP, CI->func + | sub CI, #CI + | mov L->ci, CI // CI = ecx is used by copyslot. + for (i = 0; i < nresults; i++) { + | copyslot TOP[i], BASE[rbase+i] + } + | add esp, FRAME_OFFSET + | mov BASE, TOP + | addidx TOP, nresults + | ret + } +} + +static void jit_op_call(jit_State *J, int func, int nargs, int nresults) +{ + int cltype = jit_inline_call(J, func, nargs, nresults); + if (cltype < 0) return; /* Inlined? */ + + |// Note: the order of the following instructions has been carefully tuned. + | addidx BASE, func + | mov CI, L->ci + | isfunction 0 // BASE[0] is L->base[func]. + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[1+nargs] + } + | mov LCL, BASE->value + | mov edx, &J->nextins + | mov CI->savedpc, edx + if (cltype == LUA_TFUNCTION) { + if (nargs == -1) { + | jne ->DEOPTIMIZE_OPEN // TYPE hint was wrong (open op)? + } else { + | jne ->DEOPTIMIZE // TYPE hint was wrong? + } + } else { + | je >1 // Skip __call handling for functions. + | call ->METACALL + |1: + + |.jsub METACALL // CALL to __call metamethod. + | sub esp, FRAME_OFFSET + | mov L->savedpc, edx // May throw errors. Save PC and TOP. + | mov L->top, TOP + | call &luaD_tryfuncTM, L, BASE // Resolve __call metamethod. + | add esp, FRAME_OFFSET + | mov BASE, eax // Restore stack-relative pointers. + | mov TOP, L->top + | mov LCL, BASE->value + | mov CI, L->ci + | ret + |.endjsub + } + | call aword LCL->jit_gate // Call JIT func or GATE_JL/GATE_JC. + | subidx BASE, func + | mov L->base, BASE + + /* Clear undefined results TOP <= o < func+nresults. */ + if (nresults > 0) { + | xor eax, eax + if (nresults <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < nresults; i++) { + | mov TOP[i].tt, eax + } + } else { /* Standard loop. TODO: move to .tail? */ + | lea edx, BASE[func+nresults] + |1: // Unrolled for 2 stack slots. No initial check. May use EXTRA_STACK. + | mov TOP[0].tt, eax // LUA_TNIL + | mov TOP[1].tt, eax // LUA_TNIL + | add TOP, 2*#TOP + | cmp TOP, edx + | jb <1 + } + } + + if (nresults >= 0) { /* Not an open ins. Restore L->top. */ + | lea TOP, BASE[J->pt->maxstacksize] // Faster than getting L->ci->top. + | mov L->top, TOP + } /* Otherwise keep TOP for next instruction. */ +} + +static void jit_op_tailcall(jit_State *J, int func, int nargs) +{ + int cltype; + + if (!fhint_isset(J, NOCLOSE)) { /* May need to close open upvalues. */ + | call &luaF_close, L, BASE + } + + cltype = jit_inline_call(J, func, nargs, -2); + if (cltype < 0) goto finish; /* Inlined? */ + + if (cltype == LUA_TFUNCTION) { + jit_deopt_target(J, nargs); + | isfunction func + | jne L_DEOPTIMIZE // TYPE hint was wrong? + } else { + | isfunction func; jne >5 // Handle generic callables first. + |.tail + |5: // Fallback for generic callables. + | addidx BASE, func + if (nargs >= 0) { + | lea TOP, BASE[1+nargs] + } + | mov edx, &J->nextins + | jmp ->METATAILCALL + |.code + + |.jsub METATAILCALL // TAILCALL to __call metamethod. + | mov L->savedpc, edx + | mov L->top, TOP + | call &luaD_tryfuncTM, L, BASE // Resolve __call metamethod. + | + |// Relocate [eax, L->top) -> [L->ci->func, *). + | mov CI, L->ci + | mov edx, L->top + | mov TOP, CI->func + |1: + | mov BASE, [eax] + | add eax, aword*1 + | mov [TOP], BASE + | add TOP, aword*1 + | cmp eax, edx + | jb <1 + | + | mov BASE, CI->func + | mov LCL, BASE->value + | sub CI, #CI + | add esp, FRAME_OFFSET + | jmp aword LCL->jit_gate // Chain to callgate. + |.endjsub + } + + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + int i; + /* Relocate [BASE+func, BASE+func+nargs] -> [ci->func, ci->func+nargs]. */ + /* TODO: loop for large nargs? */ + if (!J->pt->is_vararg) { /* Fixarg function. */ + | mov LCL, BASE[func].value + for (i = 0; i < nargs; i++) { + | copyslot BASE[i], BASE[func+1+i], ecx, edx + } + | lea TOP, BASE[nargs] + | sub BASE, #BASE + | mov CI, L->ci + | mov BASE->value, LCL // Sufficient to copy func->value. + } else { /* Vararg function. */ + | mov CI, L->ci + | lea TOP, BASE[func] + | mov BASE, CI->func + | mov LCL, TOP->value + | mov BASE->value, LCL // Sufficient to copy func->value. + for (i = 0; i < nargs; i++) { + | copyslot BASE[i+1], TOP[i+1], eax, edx + } + | lea TOP, BASE[1+nargs] + | mov LCL, BASE->value // Need to reload LCL = eax. + } + } else { /* Previous op was open and set TOP. */ + |// Relocate [BASE+func, TOP) -> [ci->func, *). + | mov CI, L->ci + | addidx BASE, func + | mov edx, CI->func + |1: + | mov eax, [BASE] + | add BASE, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp BASE, TOP + | jb <1 + | mov BASE, CI->func + | mov TOP, edx // Relocated TOP. + | mov LCL, BASE->value + } + | sub CI, #CI + | add esp, FRAME_OFFSET + | jmp aword LCL->jit_gate // Chain to JIT function. + +finish: + J->combine++; /* Combine with following return instruction. */ +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_move(jit_State *J, int dest, int src) +{ + | copyslot BASE[dest], BASE[src] +} + +static void jit_op_loadk(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + int rk = jit_return_k(J); + if (rk) dest = 0; + | copyconst BASE[dest], kk + if (rk) { + | ret + } +} + +static void jit_op_loadnil(jit_State *J, int first, int last) +{ + int idx, num = last - first + 1; + int rk = jit_return_k(J); + | xor eax, eax // Assumes: LUA_TNIL == 0 + if (rk) { + | settt BASE[0], eax + | ret + } else if (num <= 8) { + for (idx = first; idx <= last; idx++) { + | settt BASE[idx], eax // 3/6 bytes + } + } else { + | lea ecx, BASE[first].tt // 15-21 bytes + | lea edx, BASE[last].tt + |1: + | mov [ecx], eax + | cmp ecx, edx + | lea ecx, [ecx+#BASE] // Preserves CC. + | jbe <1 + } +} + +static void jit_op_loadbool(jit_State *J, int dest, int b, int dojump) +{ + int rk = jit_return_k(J); + if (rk) dest = 0; + | setbvalue BASE[dest], b + if (rk) { + | ret + } else if (dojump) { + const TValue *h = hint_getpc(J, COMBINE, J->nextpc); + if (!(ttisboolean(h) && bvalue(h) == 0)) { /* Avoid jmp around dead ins. */ + | jmp =>J->nextpc+1 + } + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_getupval(jit_State *J, int dest, int uvidx) +{ + | getLCL + | mov UPVAL:ecx, LCL->upvals[uvidx] + | mov TOP, UPVAL:ecx->v + | copyslot BASE[dest], TOP[0] +} + +static void jit_op_setupval(jit_State *J, int src, int uvidx) +{ + | getLCL + | mov UPVAL:ecx, LCL->upvals[uvidx] + | mov TOP, UPVAL:ecx->v + | // This is really copyslot TOP[0], BASE[src] with compare mixed in. + | mov eax, BASE[src].tt + | mov GCOBJECT:edx, BASE[src].value + | mov TOP->tt, eax + | cmp eax, LUA_TSTRING // iscollectable(val)? + | mov eax, BASE[src].value.na[1] + | mov TOP->value, GCOBJECT:edx + | mov TOP->value.na[1], eax + | jae >5 + |4: + |.tail + |5: + | test byte GCOBJECT:edx->gch.marked, WHITEBITS // && iswhite(val) + | jz <4 + | test byte UPVAL:ecx->marked, bitmask(BLACKBIT) // && isblack(uv) + | jz <4 + | call ->BARRIERF // Yes, need barrier. + | jmp <4 + |.code + + |.jsub BARRIERF // luaC_barrierf() with regparms. + | mov ARG4, GCOBJECT:edx + | mov ARG3, UPVAL:ecx + | mov ARG2, L + | jmp &luaC_barrierf // Chain to C code. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +/* Optimized table lookup routines. Enter via jsub, fallback to C. */ + +/* Fallback for GETTABLE_*. Temporary key is in L->env. */ +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_INDEX]); + if (ttisnil(tm)) { /* No __index method? */ + mt->flags |= 1<top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + dest = restorestack(L, destr); + L->top--; + setobjs2s(L, dest, L->top); + } else { /* Let luaV_gettable() continue with the __index object. */ + luaV_gettable(L, tm, &L->env, dest); + } + + |//----------------------------------------------------------------------- + |.jsub GETGLOBAL // Lookup global variable. + |// Call with: TSTRING:edx (key), BASE (dest) + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov TABLE:edi, LCL->env + | jmp >9 + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub GETTABLE_KSTR // Lookup constant string in table. + |// Call with: TOP (tab), TSTRING:edx (key), BASE (dest) + | cmp dword TOP->tt, LUA_TTABLE + | mov TABLE:edi, TOP->value + | jne ->DEOPTIMIZE_CALLER // Not a table? Deoptimize. + | + |// Common entry: TABLE:edi (tab), TSTRING:edx (key), BASE (dest) + |// Restores BASE, destroys eax, ecx, edx, edi (TOP). + |9: + | movzx ecx, byte TABLE:edi->lsizenode // hashstr(t, key). + | mov eax, 1 + | shl eax, cl + | dec eax + | and eax, TSTRING:edx->tsv.hash + | Nodemul NODE:eax + | add NODE:eax, TABLE:edi->node + | + |1: // Start of inner loop. Check node key. + | cmp dword NODE:eax->i_key.nk.tt, LUA_TSTRING + | jne >2 + | cmp aword NODE:eax->i_key.nk.value, TSTRING:edx + | jne >2 + | // Note: swapping the two checks is faster, but valgrind complains. + |// Assumes: (int)&(((Node *)0)->i_val) == (int)&(((StkId)0)->value) + | + |// Ok, key found. Copy node value to destination (stack) slot. + | mov ecx, NODE:eax->i_val.tt + | test ecx, ecx; je >3 // Node has nil value? + ||if (J->flags & JIT_F_CPU_SSE2) { + | movq xmm0, qword NODE:eax->i_val.value + | movq qword BASE->value, xmm0 + ||} else { + | mov edx, NODE:eax->i_val.value + | mov edi, NODE:eax->i_val.value.na[1] + | mov BASE->value, edx + | mov BASE->value.na[1], edi + ||} + | mov BASE->tt, ecx + | mov BASE, L->base + | ret + |2: + | mov NODE:eax, NODE:eax->i_key.nk.next // Get next key in chain. + | test NODE:eax, NODE:eax + | jnz <1 // Loop if non-NULL. + | + | xor ecx, ecx + |3: + | mov TABLE:eax, TABLE:edi->metatable + | test TABLE:eax, TABLE:eax + | jz >4 // No metatable? + | test byte TABLE:eax->flags, 1<5 // Or 'no __index' flag set? + |4: + | settt BASE[0], ecx // Yes, set to nil. + | mov BASE, L->base + | ret + | + |5: // Otherwise chain to C code which eventually calls luaV_gettable. + | setsvalue L->env, TSTRING:edx // Use L->env as temp key. + | mov ecx, [esp] + | sub esp, FRAME_OFFSET + | mov L->savedpc, ecx + | call &jit_gettable_fb, L, TABLE:edi, BASE + | add esp, FRAME_OFFSET + | mov BASE, L->base + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub GETTABLE_STR // Lookup string in table. + |// Call with: TOP (tab), TVALUE:ecx (key), BASE (dest) + | mov eax, TOP->tt; shl eax, 4; or eax, TVALUE:ecx->tt + | cmp eax, LUA_TTABLE_STR + | mov TABLE:edi, TOP->value + | mov TSTRING:edx, TVALUE:ecx->value + | je <9 // Types ok? Continue above. + | jmp ->DEOPTIMIZE_CALLER // Otherwise deoptimize. + |.endjsub +} + +/* Fallback for SETTABLE_*STR. Temporary (string) key is in L->env. */ +static void jit_settable_fb(lua_State *L, Table *t, StkId val) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_NEWINDEX]); + if (ttisnil(tm)) { /* No __newindex method? */ + mt->flags |= 1<flags = 0; /* But need to clear the cache for the table itself. */ + setobj2t(L, luaH_setstr(L, t, rawtsvalue(&L->env)), val); + luaC_barriert(L, t, val); + } else if (ttisfunction(tm)) { /* __newindex function? */ + setobj2s(L, L->top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + setobj2s(L, L->top+3, val); + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); + } else { /* Let luaV_settable() continue with the __newindex object. */ + luaV_settable(L, tm, &L->env, val); + } + + |//----------------------------------------------------------------------- + |.jsub BARRIERBACK // luaC_barrierback() with regparms. + |// Call with: TABLE:edi (table). Destroys ecx, edx. + | mov GL:ecx, L->l_G + | and byte TABLE:edi->marked, (~bitmask(BLACKBIT))&0xff + | mov edx, GL:ecx->grayagain + | mov GL:ecx->grayagain, TABLE:edi + | mov TABLE:edi->gclist, edx + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETGLOBAL // Set global variable. + |// Call with: TSTRING:edx (key), BASE (val) + | mov CI, L->ci + | mov TOP, CI->func + | mov LCL, TOP->value + | mov TABLE:edi, LCL->env + | jmp >9 + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETTABLE_KSTR // Set constant string entry in table. + |// Call with: TOP (tab), TSTRING:edx (key), BASE (val) + | cmp dword TOP->tt, LUA_TTABLE + | mov TABLE:edi, TOP->value + | jne ->DEOPTIMIZE_CALLER // Not a table? Deoptimize. + | + |// Common entry: TABLE:edi (tab), TSTRING:edx (key), BASE (val) + |// Restores BASE, destroys eax, ecx, edx, edi (TOP). + |9: + | movzx ecx, byte TABLE:edi->lsizenode // hashstr(t, key). + | mov eax, 1 + | shl eax, cl + | dec eax + | and eax, TSTRING:edx->tsv.hash + | Nodemul NODE:eax + | add NODE:eax, TABLE:edi->node + | + |1: // Start of inner loop. Check node key. + | cmp dword NODE:eax->i_key.nk.tt, LUA_TSTRING + | jne >4 + | cmp aword NODE:eax->i_key.nk.value, TSTRING:edx + | jne >4 + | // Note: swapping the two checks is faster, but valgrind complains. + | + |// Ok, key found. Copy new value to node value. + | cmp dword NODE:eax->i_val.tt, LUA_TNIL // Previous value is nil? + | je >6 + | // Assumes: (int)&(((Node *)0)->i_val) == (int)&(((StkId)0)->value) + |2: + | mov byte TABLE:edi->flags, 0 // Clear metamethod cache. + |3: // Target for SETTABLE_NUM below. + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | jnz >8 // Unlikely, but set barrier back. + |7: // Caveat: recycled label. + | copyslot TVALUE:eax[0], BASE[0], ecx, edx, TOP + | mov BASE, L->base + | ret + | + |8: // Avoid valiswhite() check -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <7 + | + |4: + | mov NODE:eax, NODE:eax->i_key.nk.next // Get next key in chain. + | test NODE:eax, NODE:eax + | jnz <1 // Loop if non-NULL. + | + |// Key not found. Add a new one, but check metatable first. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz >5 // No metatable? + | test byte TABLE:ecx->flags, 1<7 // Or 'no __newindex' flag set? + | + |5: // Add new key. + | // No need for setting L->savedpc since only LUA_ERRMEM may be thrown. + | lea TVALUE:eax, L->env + | setsvalue TVALUE:eax[0], TSTRING:edx + | sub esp, FRAME_OFFSET + | call &luaH_newkey, L, TABLE:edi, TVALUE:eax + | add esp, FRAME_OFFSET + | jmp <2 // Copy to the returned value. See Node/TValue assumption above. + | + |6: // Key found, but previous value is nil. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<env, TSTRING:edx // Use L->env as temp key. + | mov ecx, [esp] + | sub esp, FRAME_OFFSET + | mov L->savedpc, ecx + | call &jit_settable_fb, L, TABLE:edi, BASE + | add esp, FRAME_OFFSET + | mov BASE, L->base + | ret + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub SETTABLE_STR // Set string entry in table. + |// Call with: TOP (tab), TVALUE:ecx (key), BASE (val) + | mov eax, TOP->tt; shl eax, 4; or eax, TVALUE:ecx->tt + | cmp eax, LUA_TTABLE_STR + | mov TABLE:edi, TOP->value + | mov TSTRING:edx, TVALUE:ecx->value + | je <9 // Types ok? Continue above. + | jmp ->DEOPTIMIZE_CALLER // Otherwise deoptimize. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_newtable(jit_State *J, int dest, int lnarray, int lnhash) +{ + | call &luaH_new, L, luaO_fb2int(lnarray), luaO_fb2int(lnhash) + | sethvalue BASE[dest], eax + jit_checkGC(J); +} + +static void jit_op_getglobal(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + | mov TSTRING:edx, &&kk->value.gc->ts + | addidx BASE, dest + | call ->GETGLOBAL +} + +static void jit_op_setglobal(jit_State *J, int rval, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + | mov TSTRING:edx, &&kk->value.gc->ts + | addidx BASE, rval + | call ->SETGLOBAL +} + +enum { TKEY_KSTR = -2, TKEY_STR = -1, TKEY_ANY = 0 }; + +/* Optimize key lookup depending on consts or hints type. */ +static int jit_keylookup(jit_State *J, int tab, int rkey) +{ + const TValue *tabt = hint_get(J, TYPE); + const TValue *key; + if (!ttistable(tabt)) return TKEY_ANY; /* Not a table? Use fallback. */ + key = ISK(rkey) ? &J->pt->k[INDEXK(rkey)] : hint_get(J, TYPEKEY); + if (ttisstring(key)) { /* String key? */ + if (ISK(rkey)) { + | lea TOP, BASE[tab] + | mov TSTRING:edx, &&key->value.gc->ts + return TKEY_KSTR; /* Const string key. */ + } else { + | lea TOP, BASE[tab] + | lea TVALUE:ecx, BASE[rkey] + return TKEY_STR; /* Var string key. */ + } + } else if (ttisnumber(key)) { /* Number key? */ + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (!(k >= 1 && k < (1 << 26) && (lua_Number)k == n)) + return TKEY_ANY; /* Not a proper array key? Use fallback. */ + if (ISK(rkey)) { + | istable tab + | mov TABLE:edi, BASE[tab].value + | jne >9 // TYPE hint was wrong? + | mov ecx, k // Needed for hash fallback. + | mov TVALUE:eax, TABLE:edi->array + | cmp ecx, TABLE:edi->sizearray; ja >5 // Not in array part? + return k; /* Const array key (>= 1). */ + } else { + | mov eax, BASE[tab].tt; shl eax, 4; or eax, BASE[rkey].tt + | cmp eax, LUA_TTABLE_NUM; jne >9 // TYPE/TYPEKEY hint was wrong? + if (J->flags & JIT_F_CPU_SSE2) { + | movsd xmm0, qword BASE[rkey] + | cvttsd2si eax, xmm0 + | cvtsi2sd xmm1, eax + | dec eax + | ucomisd xmm1, xmm0 + | mov TABLE:edi, BASE[tab].value + | jne >9; jp >9 // Not an integer? Deoptimize. + } else { + |// Annoying x87 stuff: check whether a number is an integer. + |// The latency of fist/fild is the real problem here. + | fld qword BASE[rkey].value + | fist dword TMP1 + | fild dword TMP1 + | fcomparepp // eax may be modified. + | jne >9; jp >9 // Not an integer? Deoptimize. + | mov eax, TMP1 + | mov TABLE:edi, BASE[tab].value + | dec eax + } + | cmp eax, TABLE:edi->sizearray; jae >5 // Not in array part? + | TValuemul eax + | add eax, TABLE:edi->array + return 1; /* Variable array key. */ + } + } + return TKEY_ANY; /* Use fallback. */ +} + +static void jit_op_gettable(jit_State *J, int dest, int tab, int rkey) +{ + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + | addidx BASE, dest + | call ->GETTABLE_KSTR + break; + case TKEY_STR: /* Variable string key. */ + | addidx BASE, dest + | call ->GETTABLE_STR + break; + case TKEY_ANY: /* Generic gettable fallback. */ + if (ISK(rkey)) { + | mov ecx, &&J->pt->k[INDEXK(rkey)] + } else { + | lea ecx, BASE[rkey] + } + | lea edx, BASE[tab] + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &luaV_gettable, L, edx, ecx, BASE + | mov BASE, L->base + break; + default: /* Array key. */ + |// This is really copyslot BASE[dest], TVALUE:eax[k-1] mixed with compare. + |1: + | mov edx, TVALUE:eax[k-1].tt + | test edx, edx; je >6 // Array has nil value? + if (J->flags & JIT_F_CPU_SSE2) { + | movq xmm0, qword TVALUE:eax[k-1].value + | movq qword BASE[dest].value, xmm0 + } else { + | mov ecx, TVALUE:eax[k-1].value + | mov eax, TVALUE:eax[k-1].value.na[1] + | mov BASE[dest].value, ecx + | mov BASE[dest].value.na[1], eax + } + |2: + | mov BASE[dest].tt, edx + |.tail + |5: // Fallback to hash part. TABLE:edi is callee-saved. + if (ISK(rkey)) { + | call ->GETTABLE_KNUM + } else { + | call ->GETTABLE_NUM + } + | jmp <1 // Slot is at TVALUE:eax[k-1]. + | + |6: // Shortcut for tables without an __index metamethod. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<nextins + | jmp ->DEOPTIMIZE + |.code + break; + } + + |.jsub GETTABLE_KNUM // Gettable fallback for const numeric keys. + | mov TMP2, ecx // Save k. + | sub esp, FRAME_OFFSET + | call &luaH_getnum, TABLE:edi, ecx + | add esp, FRAME_OFFSET + | mov ecx, TMP2 // Restore k. + | TValuemul ecx + | sub TVALUE:eax, ecx // Compensate for TVALUE:eax[k-1]. + | add TVALUE:eax, #TVALUE + | ret + |.endjsub + | + |.jsub GETTABLE_NUM // Gettable fallback for variable numeric keys. + | inc eax + | mov ARG2, TABLE:edi // Really ARG1 and ARG2. + | mov ARG3, eax + | jmp &luaH_getnum // Chain to C code. + |.endjsub +} + +static void jit_op_settable(jit_State *J, int tab, int rkey, int rval) +{ + const TValue *val = ISK(rval) ? &J->pt->k[INDEXK(rval)] : NULL; + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + case TKEY_STR: /* Variable string key. */ + if (ISK(rval)) { + | mov BASE, &val + } else { + | addidx BASE, rval + } + if (k == TKEY_KSTR) { + | call ->SETTABLE_KSTR + } else { + | call ->SETTABLE_STR + } + break; + case TKEY_ANY: /* Generic settable fallback. */ + if (ISK(rkey)) { + | mov ecx, &&J->pt->k[INDEXK(rkey)] + } else { + | lea ecx, BASE[rkey] + } + if (ISK(rval)) { + | mov edx, &val + } else { + | lea edx, BASE[rval] + } + | addidx BASE, tab + | mov L->savedpc, &J->nextins + | call &luaV_settable, L, BASE, ecx, edx + | mov BASE, L->base + break; + default: /* Array key. */ + |1: + | tvisnil TVALUE:eax[k-1]; je >6 // Previous value is nil? + |2: + |.tail + |5: // Fallback to hash part. TABLE:edi is callee-saved. + if (ISK(rkey)) { + | call ->SETTABLE_KNUM + } else { + | call ->SETTABLE_NUM + } + | jmp <1 // Slot is at TVALUE:eax[k-1]. + | + |6: // Shortcut for tables without a __newindex metamethod. + | mov TABLE:ecx, TABLE:edi->metatable + | test TABLE:ecx, TABLE:ecx + | jz <2 // No metatable? + | test byte TABLE:ecx->flags, 1<nextins + | jmp ->DEOPTIMIZE + |.code + if (!ISK(rval) || iscollectable(val)) { + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | jnz >7 // Unlikely, but set barrier back. + |3: + |.tail + |7: // Avoid valiswhite() check -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <3 + |.code + } + if (ISK(rval)) { + | copyconst TVALUE:eax[k-1], val + } else { + | copyslot TVALUE:eax[k-1], BASE[rval], ecx, edx, TOP + } + break; + } + + |.jsub SETTABLE_KNUM // Settable fallback for const numeric keys. + | mov TMP2, ecx // Save k. + | sub esp, FRAME_OFFSET + | call &luaH_setnum, L, TABLE:edi, ecx + | add esp, FRAME_OFFSET + | mov ecx, TMP2 // Restore k. + | TValuemul ecx + | sub TVALUE:eax, ecx // Compensate for TVALUE:eax[k-1]. + | add TVALUE:eax, #TVALUE + | ret + |.endjsub + | + |.jsub SETTABLE_NUM // Settable fallback for variable numeric keys. + | inc eax + | mov ARG2, L // Really ARG1, ARG2 and ARG3. + | mov ARG3, TABLE:edi + | mov ARG4, eax + | jmp &luaH_setnum // Chain to C code. + |.endjsub +} + +static void jit_op_self(jit_State *J, int dest, int tab, int rkey) +{ + | copyslot BASE[dest+1], BASE[tab] + jit_op_gettable(J, dest, tab, rkey); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_setlist(jit_State *J, int ra, int num, int batch) +{ + if (batch == 0) { batch = (int)(*J->nextins); J->combine++; } + batch = (batch-1)*LFIELDS_PER_FLUSH; + if (num == 0) { /* Previous op was open and set TOP: {f()} or {...}. */ + | mov L->env.value, TOP // Need to save TOP (edi). + | lea eax, BASE[ra+1] + | sub eax, TOP + | neg eax + | TValuediv eax // num = (TOP-ra-1)/sizeof(TValue). + | mov TABLE:edi, BASE[ra].value + | jz >4 // Nothing to set? + if (batch > 0) { + | add eax, batch + } + | cmp dword TABLE:edi->sizearray, eax + | jae >1 // Skip resize if not needed. + | // A resize is likely, so inline it. + | call &luaH_resizearray, L, TABLE:edi, eax + |1: + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | mov edx, TABLE:edi->array + | jnz >6 // Unlikely, but set barrier back. + | mov TOP, L->env.value + | + |.tail + |6: // Avoid lots of valiswhite() checks -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <1 // Need to reload edx. + |.code + } else { /* Set fixed number of args. */ + | mov TABLE:edi, BASE[ra].value // edi is callee-save. + | cmp dword TABLE:edi->sizearray, batch+num + | jb >5 // Need to resize array? + |1: + | test byte TABLE:edi->marked, bitmask(BLACKBIT) // isblack(table) + | mov edx, TABLE:edi->array + | jnz >6 // Unlikely, but set barrier back. + | lea TOP, BASE[ra+1+num] // Careful: TOP is edi. + | + |.tail + |5: // A resize is unlikely (impossible?). NEWTABLE should've done it. + | call &luaH_resizearray, L, TABLE:edi, batch+num + | jmp <1 + |6: // Avoid lots of valiswhite() checks -- black2gray(table) is ok. + | call ->BARRIERBACK + | jmp <1 // Need to reload edx. + |.code + } + if (batch > 0) { + | add edx, batch*#TVALUE // edx = &t->array[(batch+1)-1] + } + | lea ecx, BASE[ra+1] + |3: // Copy stack slots to array. + | mov eax, [ecx] + | add ecx, aword*1 + | mov [edx], eax + | add edx, aword*1 + | cmp ecx, TOP + | jb <3 + | + |4: + if (num == 0) { /* Previous op was open. Restore L->top. */ + | lea TOP, BASE[J->pt->maxstacksize] // Faster than getting L->ci->top. + | mov L->top, TOP + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_arith(jit_State *J, int dest, int rkb, int rkc, int ev) +{ + const TValue *kkb = ISK(rkb) ? &J->pt->k[INDEXK(rkb)] : NULL; + const TValue *kkc = ISK(rkc) ? &J->pt->k[INDEXK(rkc)] : NULL; + const Value *kval; + int idx, rev; + int target = (ev == TM_LT || ev == TM_LE) ? jit_jmp_target(J) : 0; + int hastail = 0; + + /* The bytecode compiler already folds constants except for: k/0, k%0, */ + /* NaN results, k1value; idx = rkb; rev = 1; } + else { kval = kkb ? &kkb->value : NULL; idx = rkc; rev = 0; } + + /* Special handling for some operators. */ + switch (ev) { + case TM_MOD: + /* Check for modulo with positive numbers, so we can use fprem. */ + if (kval) { + if (kval->na[1] < 0) { hastail = 0; goto fallback; } /* x%-k, -k%x */ + | isnumber idx + | mov eax, BASE[idx].value.na[1] + | jne L_DEOPTIMIZEF + | test eax, eax; js L_DEOPTIMIZEF + |// This will trigger deoptimization in some benchmarks (pidigits). + |// But it's still a win. + if (kkb) { + | fld qword BASE[rkc].value + | fld qword [kval] + } else { + | fld qword [kval] + | fld qword BASE[rkb].value + } + } else { + | isnumber2 rkb, rkc + | mov eax, BASE[rkb].value.na[1] + | jne L_DEOPTIMIZEF + | or eax, BASE[rkc].value.na[1]; js L_DEOPTIMIZEF + | fld qword BASE[rkc].value + | fld qword BASE[rkb].value + } + |1: ; fprem; fnstsw ax; sahf; jp <1 + | fstp st1 + goto fpstore; + case TM_POW: + if (hastail || !kval) break; /* Avoid this if not optimizing. */ + if (rev) { /* x^k for k > 0, k integer. */ + lua_Number n = kval->n; + int k; + lua_number2int(k, n); + /* All positive integers would work. But need to limit code explosion. */ + if (k > 0 && k <= 65536 && (lua_Number)k == n) { + | isnumber idx; jne L_DEOPTIMIZEF + | fld qword BASE[idx] + for (; (k & 1) == 0; k >>= 1) { /* Handle leading zeroes (2^k). */ + | fmul st0 + } + if ((k >>= 1) != 0) { /* Handle trailing bits. */ + | fld st0 + | fmul st0 + for (; k != 1; k >>= 1) { + if (k & 1) { + | fmul st1, st0 + } + | fmul st0 + } + | fmulp st1 + } + goto fpstore; + } + } else if (kval->n > (lua_Number)0) { /* k^x for k > 0. */ + int log2kval[3]; /* Enough storage for a tword (80 bits). */ + log2kval[2] = 0; /* Avoid leaking garbage. */ + /* Double precision log2(k) doesn't cut it (3^x != 3 for x = 1). */ + ((void (*)(int *, double))J->jsub[JSUB_LOG2_TWORD])(log2kval, kval->n); + | mov ARG1, log2kval[0] // Abuse stack for tword const. + | mov ARG2, log2kval[1] + | mov ARG3, log2kval[2] // TODO: store2load fwd stall. + | isnumber idx; jne L_DEOPTIMIZEF + | fld tword [esp] + | fmul qword BASE[idx].value // log2(k)*x + | fld st0; frndint; fsub st1, st0; fxch // Split into fract/int part. + | f2xm1; fld1; faddp st1; fscale // (2^fract-1 +1) << int. + | fstp st1 + + |.jsub LOG2_TWORD // Calculate log2(k) with max. precision. + |// Called with (int *ptr, double k). + | fld1; fld FPARG2 // Offset ok due to retaddr. + | fyl2x + | mov eax, ARG2 // Really ARG1. + | fstp tword [eax] + | ret + |.endjsub + goto fpstore; + } + break; + } + + /* Check number type and load 1st operand. */ + if (kval) { + | isnumber idx; jne L_DEOPTIMIZEF + | loadnvaluek kval + } else { + if (rkb == rkc) { + | isnumber rkb + } else { + | isnumber2 rkb, rkc + } + | jne L_DEOPTIMIZEF + | fld qword BASE[rkb].value + } + + /* Encode arithmetic operation with 2nd operand. */ + switch ((ev<<1)+rev) { + case TM_ADD<<1: case (TM_ADD<<1)+1: + if (rkb == rkc) { + | fadd st0 + } else { + | fadd qword BASE[idx].value + } + break; + case TM_SUB<<1: + | fsub qword BASE[idx].value + break; + case (TM_SUB<<1)+1: + | fsubr qword BASE[idx].value + break; + case TM_MUL<<1: case (TM_MUL<<1)+1: + if (rkb == rkc) { + | fmul st0 + } else { + | fmul qword BASE[idx].value + } + break; + case TM_DIV<<1: + | fdiv qword BASE[idx].value + break; + case (TM_DIV<<1)+1: + | fdivr qword BASE[idx].value + break; + case TM_POW<<1: + | sub esp, S2LFRAME_OFFSET + | fstp FPARG1 + | fld qword BASE[idx].value + | fstp FPARG2 + | call &pow + | add esp, S2LFRAME_OFFSET + break; + case (TM_POW<<1)+1: + | sub esp, S2LFRAME_OFFSET + | fstp FPARG2 + | fld qword BASE[idx].value + | fstp FPARG1 + | call &pow + | add esp, S2LFRAME_OFFSET + break; + case TM_UNM<<1: case (TM_UNM<<1)+1: + | fchs // No 2nd operand. + break; + default: /* TM_LT or TM_LE. */ + | fld qword BASE[idx].value + | fcomparepp + | jp =>dest?(J->nextpc+1):target // Unordered means false. + jit_assert(dest == 0 || dest == 1); /* Really cond. */ + switch (((rev^dest)<<1)+(dest^(ev == TM_LT))) { + case 0: + | jb =>target + break; + case 1: + | jbe =>target + break; + case 2: + | ja =>target + break; + case 3: + | jae =>target + break; + } + goto skipstore; + } +fpstore: + /* Store result and set result type (if necessary). */ + | fstp qword BASE[dest].value + if (dest != rkb && dest != rkc) { + | settt BASE[dest], LUA_TNUMBER + } + +skipstore: + if (!hastail) { + jit_deopt_target(J, 0); + return; + } + + |4: + |.tail + |L_DEOPTLABEL: // Recycle as fallback label. + +fallback: + /* Generic fallback for arithmetic ops. */ + if (kkb) { + | mov ecx, &kkb + } else { + | lea ecx, BASE[rkb] + } + if (kkc) { + | mov edx, &kkc + } else { + | lea edx, BASE[rkc] + } + if (target) { /* TM_LT or TM_LE. */ + | mov L->savedpc, &(J->nextins+1) + | call &ev==TM_LT?luaV_lessthan:luaV_lessequal, L, ecx, edx + | test eax, eax + | mov BASE, L->base + if (dest) { /* cond */ + | jnz =>target + } else { + | jz =>target + } + } else { + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &luaV_arith, L, BASE, ecx, edx, ev + | mov BASE, L->base + } + + if (hastail) { + | jmp <4 + |.code + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_fallback_len(lua_State *L, StkId ra, const TValue *rb) +{ + switch (ttype(rb)) { + case LUA_TTABLE: + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + case LUA_TSTRING: + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + default: { + const TValue *tm = luaT_gettmbyobj(L, rb, TM_LEN); + if (ttisfunction(tm)) { + ptrdiff_t rasave = savestack(L, ra); + setobj2s(L, L->top, tm); + setobj2s(L, L->top+1, rb); + luaD_checkstack(L, 2); + L->top += 2; + luaD_call(L, L->top - 2, 1); + ra = restorestack(L, rasave); + L->top--; + setobjs2s(L, ra, L->top); + } else { + luaG_typeerror(L, rb, "get length of"); + } + break; + } + } +} + +static void jit_op_len(jit_State *J, int dest, int rb) +{ + switch (ttype(hint_get(J, TYPE))) { + case LUA_TTABLE: + jit_deopt_target(J, 0); + | istable rb + | mov TABLE:ecx, BASE[rb].value + | jne L_DEOPTIMIZE // TYPE hint was wrong? + | call &luaH_getn, TABLE:ecx + | mov TMP1, eax + | fild dword TMP1 + | fstp qword BASE[dest].value + | settt BASE[dest], LUA_TNUMBER + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + | isstring rb + | mov TSTRING:ecx, BASE[rb].value + | jne L_DEOPTIMIZE // TYPE hint was wrong? + | fild aword TSTRING:ecx->tsv.len // size_t + | fstp qword BASE[dest].value + | settt BASE[dest], LUA_TNUMBER + break; + default: + | lea TVALUE:ecx, BASE[rb] + | addidx BASE, dest + | mov L->savedpc, &J->nextins + | call &jit_fallback_len, L, BASE, TVALUE:ecx + | mov BASE, L->base + break; + } +} + +static void jit_op_not(jit_State *J, int dest, int rb) +{ + /* l_isfalse() without a branch -- truly devious. */ + /* ((value & tt) | (tt>>1)) is only zero for nil/false. */ + /* Assumes: LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + | mov eax, BASE[rb].tt + | mov ecx, BASE[rb].value + | mov edx, 1 + | and ecx, eax + | shr eax, 1 + | or ecx, eax + | xor eax, eax + | cmp ecx, edx + | adc eax, eax + | mov BASE[dest].tt, edx + | mov BASE[dest].value, eax +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_concat(jit_State *J, int dest, int first, int last) +{ + int num = last-first+1; + if (num == 2 && ttisstring(hint_get(J, TYPE))) { /* Optimize common case. */ + | addidx BASE, first + | call ->CONCAT_STR2 + | setsvalue BASE[dest], eax + } else { /* Generic fallback. */ + | mov L->savedpc, &J->nextins + | call &luaV_concat, L, num, last + | mov BASE, L->base + if (dest != first) { + | copyslot BASE[dest], BASE[first] + } + } + jit_checkGC(J); /* Always do this, even for the optimized variant. */ + + |.jsub CONCAT_STR2 // Concatenate two strings. + |// Call with: BASE (first). Destroys all regs. L and BASE restored. + | mov ARG2, L // Save L (esi). + | mov eax, BASE[0].tt; shl eax, 4; or eax, BASE[1].tt + | sub eax, LUA_TSTR_STR // eax = 0 on success. + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | + |1: + | mov GL:edi, L->l_G + | mov TSTRING:esi, BASE[0].value // Caveat: L (esi) is gone now! + | mov TSTRING:edx, BASE[1].value + | mov ecx, TSTRING:esi->tsv.len // size_t + | test ecx, ecx + | jz >2 // 1st string is empty? + | or eax, TSTRING:edx->tsv.len // eax is known to be zero. + | jz >4 // 2nd string is empty? + | add eax, ecx + | jc >9 // Length overflow? + | cmp eax, GL:edi->buff.buffsize // size_t + | ja >5 // Temp buffer overflow? + | mov edi, GL:edi->buff.buffer + | add esi, #TSTRING + | rep; movsb // Copy first string. + | mov ecx, TSTRING:edx->tsv.len + | lea esi, TSTRING:edx[1] + | rep; movsb // Copy second string. + | + | sub edi, eax // start = end - total. + | mov L, ARG2 // Restore L (esi). Reuse as 1st arg. + | mov ARG3, edi + | mov ARG4, eax + | mov BASE, L->base // Restore BASE. + | jmp &luaS_newlstr + | + |2: // 1st string is empty. + | mov eax, TSTRING:edx // Return 2nd string. + |3: + | mov L, ARG2 // Restore L (esi) and BASE. + | mov BASE, L->base + | ret + | + |4: // 2nd string is empty. + | mov eax, TSTRING:esi // Return 1st string. + | jmp <3 + | + |5: // Resize temp buffer. + | // No need for setting L->savedpc since only LUA_ERRMEM may be thrown. + | mov L, ARG2 // Restore L. + | lea ecx, GL:edi->buff + | sub esp, FRAME_OFFSET + | call &luaZ_openspace, L, ecx, eax + | add esp, FRAME_OFFSET + | xor eax, eax // BASE (first) and L saved. eax = 0. + | jmp <1 // Just restart. + | + |9: // Length overflow errors are rare (> 2 GB string required). + | mov L, ARG2 // Need L for deoptimization. + | jmp ->DEOPTIMIZE_CALLER + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_eq(jit_State *J, int cond, int rkb, int rkc) +{ + int target = jit_jmp_target(J); + int condtarget = cond ? (J->nextpc+1) : target; + jit_assert(cond == 0 || cond == 1); + + /* Comparison of two constants. Evaluate at compile time. */ + if (ISK(rkb&rkc)) { + if ((rkb == rkc) == cond) { /* Constants are already unique. */ + | jmp =>target + } + return; + } + + if (ISK(rkb|rkc)) { /* Compare a variable and a constant. */ + const TValue *kk; + if (ISK(rkb)) { int t = rkc; rkc = rkb; rkb = t; } /* rkc holds const. */ + kk = &J->pt->k[INDEXK(rkc)]; + switch (ttype(kk)) { + case LUA_TNIL: + | isnil rkb + break; + case LUA_TBOOLEAN: + if (bvalue(kk)) { + | mov eax, BASE[rkb].tt + | mov ecx, BASE[rkb].value + | dec eax + | dec ecx + | or eax, ecx + } else { + | mov eax, BASE[rkb].tt + | dec eax + | or eax, BASE[rkb].value + } + break; + case LUA_TNUMBER: + |// Note: bitwise comparison is not faster (and needs to handle -0 == 0). + | isnumber rkb + | jne =>condtarget + | fld qword BASE[rkb].value + | fld qword [&kk->value] + | fcomparepp + | jp =>condtarget // Unordered means not equal. + break; + case LUA_TSTRING: + | isstring rkb + | jne =>condtarget + | cmp aword BASE[rkb].value, &rawtsvalue(kk) + break; + default: jit_assert(0); break; + } + } else { /* Compare two variables. */ + | mov eax, BASE[rkb].tt + | cmp eax, BASE[rkc].tt + | jne =>condtarget + switch (ttype(hint_get(J, TYPE))) { + case LUA_TNUMBER: + jit_deopt_target(J, 0); + |// Note: bitwise comparison is not an option (-0 == 0, NaN ~= NaN). + | cmp eax, LUA_TNUMBER; jne L_DEOPTIMIZE + | fld qword BASE[rkb].value + | fld qword BASE[rkc].value + | fcomparepp + | jp =>condtarget // Unordered means not equal. + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + | cmp eax, LUA_TSTRING; jne L_DEOPTIMIZE + | mov ecx, BASE[rkb].value + | cmp ecx, BASE[rkc].value + break; + default: + |// Generic equality comparison fallback. + | lea edx, BASE[rkc] + | lea ecx, BASE[rkb] + | mov L->savedpc, &J->nextins + | call &luaV_equalval, L, ecx, edx + | dec eax + | mov BASE, L->base + break; + } + } + if (cond) { + | je =>target + } else { + | jne =>target + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_test(jit_State *J, int cond, int dest, int src) +{ + int target = jit_jmp_target(J); + + /* l_isfalse() without a branch. But this time preserve tt/value. */ + /* (((value & tt) * 2 + tt) >> 1) is only zero for nil/false. */ + /* Assumes: 3*tt < 2^32, LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + | mov eax, BASE[src].tt + | mov ecx, BASE[src].value + | mov edx, eax + | and edx, ecx + | lea edx, [eax+edx*2] + | shr edx, 1 + + /* Check if we can omit the stack copy. */ + if (dest == src) { /* Yes, invert branch condition. */ + if (cond) { + | jnz =>target + } else { + | jz =>target + } + } else { /* No, jump around copy code. */ + if (cond) { + | jz >1 + } else { + | jnz >1 + } + | mov edx, BASE[src].value.na[1] + | mov BASE[dest].tt, eax + | mov BASE[dest].value, ecx + | mov BASE[dest].value.na[1], edx + | jmp =>target + |1: + } +} + +static void jit_op_jmp(jit_State *J, int target) +{ + | jmp =>target +} + +/* ------------------------------------------------------------------------ */ + +enum { FOR_IDX, FOR_LIM, FOR_STP, FOR_EXT }; + +static const char *const jit_for_coerce_error[] = { + LUA_QL("for") " initial value must be a number", + LUA_QL("for") " limit must be a number", + LUA_QL("for") " step must be a number", +}; + +/* Try to coerce for slots with strings to numbers in place or complain. */ +static void jit_for_coerce(lua_State *L, TValue *o) +{ + int i; + for (i = FOR_IDX; i <= FOR_STP; i++, o++) { + lua_Number num; + if (ttisnumber(o)) continue; + if (ttisstring(o) && luaO_str2d(svalue(o), &num)) { + setnvalue(o, num); + } else { + luaG_runerror(L, jit_for_coerce_error[i]); + } + } +} + +static void jit_op_forprep(jit_State *J, int ra, int target) +{ + const TValue *step = hint_get(J, FOR_STEP_K); + if (ttisnumber(step)) { + | isnumber2 ra+FOR_IDX, ra+FOR_LIM; jne L_DEOPTIMIZEF + |4: + | fld qword BASE[ra+FOR_LIM].value // [lim] + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fst qword BASE[ra+FOR_EXT].value // extidx = idx + | fcomparepp // idx >< lim ? + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + if (nvalue(step) < (lua_Number)0) { + | jb =>target+1 // step < 0 && idx < lim: skip loop. + } else { + | ja =>target+1 // step >= 0 && idx > lim: skip loop. + } + } else { + |4: + | isnumber3 ra+FOR_IDX, ra+FOR_LIM, ra+FOR_STP + | mov eax, BASE[ra+FOR_STP].value.na[1] // Sign bit is in hi dword. + | jne L_DEOPTIMIZEF + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | test eax, eax // step >< 0 ? + | fst qword BASE[ra+FOR_EXT].value // extidx = idx + | js >1 + | fxch // if (step > 0) [lim idx] + |1: + | fcomparepp // step > 0 ? lim < idx : idx < lim + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | jb =>target+1 // Skip loop. + } + if (ttisnumber(hint_get(J, TYPE))) { + jit_deopt_target(J, 0); + } else { + |.tail + |L_DEOPTLABEL: // Recycle as fallback label. + | // Fallback for strings as loop vars. No need to make this fast. + | lea eax, BASE[ra] + | mov L->savedpc, &J->nextins + | call &jit_for_coerce, L, eax // Coerce strings or throw error. + | jmp <4 // Easier than reloading eax. + |.code + } +} + +static void jit_op_forloop(jit_State *J, int ra, int target) +{ + const TValue *step = hint_getpc(J, FOR_STEP_K, target-1); + if (ttisnumber(step)) { + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fadd qword BASE[ra+FOR_STP].value // [nidx lim] + | fst qword BASE[ra+FOR_EXT].value // extidx = nidx + | fst qword BASE[ra+FOR_IDX].value // idx = nidx + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | fcomparepp // nidx >< lim ? + if (nvalue(step) < (lua_Number)0) { + | jae =>target // step < 0 && nidx >= lim: loop again. + } else { + | jbe =>target // step >= 0 && nidx <= lim: loop again. + } + } else { + | mov eax, BASE[ra+FOR_STP].value.na[1] // Sign bit is in hi dword. + | fld qword BASE[ra+FOR_LIM].value // [lim] (FP stack notation) + | fld qword BASE[ra+FOR_IDX].value // [idx lim] + | fld qword BASE[ra+FOR_STP].value // [stp idx lim] + | faddp st1 // [nidx lim] + | fst qword BASE[ra+FOR_IDX].value // idx = nidx + | fst qword BASE[ra+FOR_EXT].value // extidx = nidx + | settt BASE[ra+FOR_EXT], LUA_TNUMBER + | test eax, eax // step >< 0 ? + | js >1 + | fxch // if (step > 0) [lim nidx] + |1: + | fcomparepp // step > 0 ? lim >= nidx : nidx >= lim + | jae =>target // Loop again. + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_tforloop(jit_State *J, int ra, int nresults) +{ + int target = jit_jmp_target(J); + int i; + if (jit_inline_tforloop(J, ra, nresults, target)) return; /* Inlined? */ + for (i = 2; i >= 0; i--) { + | copyslot BASE[ra+i+3], BASE[ra+i] // Copy ctlvar/state/callable. + } + jit_op_call(J, ra+3, 2, nresults); + | isnil ra+3; je >1 + | copyslot BASE[ra+2], BASE[ra+3] // Save control variable. + | jmp =>target + |1: +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_close(jit_State *J, int ra) +{ + if (ra) { + | lea eax, BASE[ra] + | mov ARG2, eax + } else { + | mov ARG2, BASE + } + | call &luaF_close, L // , StkId level (ARG2) +} + +static void jit_op_closure(jit_State *J, int dest, int ptidx) +{ + Proto *npt = J->pt->p[ptidx]; + int nup = npt->nups; + | getLCL edi // LCL:edi is callee-saved. + | mov edx, LCL:edi->env + | call &luaF_newLclosure, L, nup, edx + | mov LCL->p, &npt // Store new proto in returned closure. + | mov aword BASE[dest].value, LCL // setclvalue() + | settt BASE[dest], LUA_TFUNCTION + /* Process pseudo-instructions for upvalues. */ + if (nup > 0) { + const Instruction *uvcode = J->nextins; + int i, uvuv; + /* Check which of the two types we need. */ + for (i = 0, uvuv = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) uvuv++; + /* Copy upvalues from parent first. */ + if (uvuv) { + /* LCL:eax->upvals (new closure) <-- LCL:edi->upvals (own closure). */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) { + | mov UPVAL:edx, LCL:edi->upvals[GETARG_B(uvcode[i])] + | mov LCL->upvals[i], UPVAL:edx + } + } + /* Next find or create upvalues for our own stack slots. */ + if (nup > uvuv) { + | mov LCL:edi, LCL // Move new closure to callee-save register. */ + /* LCL:edi->upvals (new closure) <-- upvalue for stack slot. */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_MOVE) { + int rb = GETARG_B(uvcode[i]); + if (rb) { + | lea eax, BASE[rb] + | mov ARG2, eax + } else { + | mov ARG2, BASE + } + | call &luaF_findupval, L // , StkId level (ARG2) + | mov LCL:edi->upvals[i], UPVAL:eax + } + } + J->combine += nup; /* Skip pseudo-instructions. */ + } + jit_checkGC(J); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_vararg(jit_State *J, int dest, int num) +{ + if (num < 0) { /* Copy all varargs. */ + |// Copy [ci->func+1+pt->numparams, BASE) -> [BASE+dest, *). + |1: + | mov CI, L->ci + | mov edx, CI->func + | add edx, (1+J->pt->numparams)*#TVALUE // Start of varargs. + | + | // luaD_checkstack(L, nvararg) with nvararg = L->base - vastart. + | // This is a slight overallocation (BASE[dest+nvararg] would be enough). + | // We duplicate OP_VARARG behaviour so we can use luaD_growstack(). + | lea eax, [BASE+BASE+J->pt->maxstacksize*#TVALUE] // L->base + L->top + | sub eax, edx // L->top + (L->base - vastart) + | cmp eax, L->stack_last + | jae >5 // Need to grow stack? + | + | lea TOP, BASE[dest] + | cmp edx, BASE + | jnb >3 + |2: // Copy loop. + | mov eax, [edx] + | add edx, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp edx, BASE + | jb <2 + |3: + |// This is an open ins. Must keep TOP for next instruction. + | + |.tail + |5: // Grow stack for varargs. + | sub eax, L->top + | TValuediv eax + | call &luaD_growstack, L, eax + | mov BASE, L->base + | jmp <1 // Just restart op to avoid saving/restoring regs. + |.code + } else if (num > 0) { /* Copy limited number of varargs. */ + |// Copy [ci->func+1+pt->numparams, BASE) -> [BASE+dest, BASE+dest+num). + | mov CI, L->ci + | mov edx, CI->func + | add edx, (1+J->pt->numparams)*#TVALUE + | lea TOP, BASE[dest] + | lea ecx, BASE[dest+num] + | cmp edx, BASE // No varargs present: only fill. + | jnb >2 + | + |1: // Copy loop. + | mov eax, [edx] + | add edx, aword*1 + | mov [TOP], eax + | add TOP, aword*1 + | cmp TOP, ecx // Stop if all dest slots got a vararg. + | jnb >4 + | cmp edx, BASE // Continue if more varargs present. + | jb <1 + | + |2: // Fill remaining slots with nils. + | xor eax, eax // Assumes: LUA_TNIL == 0 + |3: // Fill loop. + | settt TOP[0], eax + | add TOP, #TVALUE + | cmp TOP, ecx + | jb <3 + |4: + } +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash new file mode 100644 index 00000000000..140d1d2b924 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.dash @@ -0,0 +1,297 @@ +|// +|// Common DynASM definitions and macros for x86 CPUs. +|// Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +|// +| +|// Standard DynASM declarations. +|.arch x86 +|.section code, deopt, tail, mfmap +| +|// Type definitions with (almost) global validity. +|.type L, lua_State, esi // L. +|.type BASE, TValue, ebx // L->base. +|.type TOP, TValue, edi // L->top (calls/open ops). +|.type CI, CallInfo, ecx // L->ci (calls, locally). +|.type LCL, LClosure, eax // func->value (calls). +| +|// Type definitions with local validity. +|.type GL, global_State +|.type TVALUE, TValue +|.type VALUE, Value +|.type CINFO, CallInfo +|.type GCOBJECT, GCObject +|.type TSTRING, TString +|.type TABLE, Table +|.type CCLOSURE, CClosure +|.type PROTO, Proto +|.type UPVAL, UpVal +|.type NODE, Node +| +|// Definitions copied to DynASM domain to avoid unnecessary constant args. +|// CHECK: must match with the definitions in lua.h! +|.define LUA_TNIL, 0 +|.define LUA_TBOOLEAN, 1 +|.define LUA_TLIGHTUSERDATA, 2 +|.define LUA_TNUMBER, 3 +|.define LUA_TSTRING, 4 +|.define LUA_TTABLE, 5 +|.define LUA_TFUNCTION, 6 +|.define LUA_TUSERDATA, 7 +|.define LUA_TTHREAD, 8 +| +|.define LUA_TNUM_NUM, 0x33 +|.define LUA_TNUM_NUM_NUM, 0x333 +|.define LUA_TSTR_STR, 0x44 +|.define LUA_TSTR_NUM, 0x43 +|.define LUA_TSTR_NUM_NUM, 0x433 +|.define LUA_TTABLE_NUM, 0x53 +|.define LUA_TTABLE_STR, 0x54 +| +|// Macros to test, set and copy stack slots. +|.macro istt, idx, tp; cmp dword BASE[idx].tt, tp; .endmacro +|.macro isnil, idx; istt idx, LUA_TNIL; .endmacro +|.macro isnumber, idx; istt idx, LUA_TNUMBER; .endmacro +|.macro isstring, idx; istt idx, LUA_TSTRING; .endmacro +|.macro istable, idx; istt idx, LUA_TTABLE; .endmacro +|.macro isfunction, idx; istt idx, LUA_TFUNCTION; .endmacro +| +|.macro isnumber2, idx1, idx2, reg +| mov reg, BASE[idx1].tt; shl reg, 4; or reg, BASE[idx2].tt +| cmp reg, LUA_TNUM_NUM +|.endmacro +|.macro isnumber2, idx1, idx2; isnumber2, idx1, idx2, eax; .endmacro +| +|.macro isnumber3, idx1, idx2, idx3, reg +| mov reg, BASE[idx1].tt; shl reg, 4; or reg, BASE[idx2].tt +| shl reg, 4; or reg, BASE[idx3].tt; cmp reg, LUA_TNUM_NUM_NUM +|.endmacro +|.macro isnumber3, idx1, idx2, idx3; isnumber3, idx1, idx2, idx3, eax; .endmacro +| +|.macro tvisnil, tv; cmp dword tv.tt, LUA_TNIL; .endmacro +| +|.macro settt, tv, tp; mov dword tv.tt, tp; .endmacro +|.macro setnilvalue, tv; settt tv, LUA_TNIL; .endmacro +| +|.macro setbvalue, tv, val // May use edx. +||if (val) { /* true */ +| mov edx, LUA_TBOOLEAN +| mov dword tv.value, edx // Assumes: LUA_TBOOLEAN == 1 +| settt tv, edx +||} else { /* false */ +| mov dword tv.value, 0 +| settt tv, LUA_TBOOLEAN +||} +|.endmacro +| +|.macro loadnvaluek, vptr +||if ((vptr)->n == (lua_Number)0) { +| fldz +||} else if ((vptr)->n == (lua_Number)1) { +| fld1 +||} else { +| fld qword [vptr] +||} +|.endmacro +| +|.macro setnvaluek, tv, vptr // Pass a Value *! With permanent addr. +| // SSE2 does not pay off here (I tried). +| loadnvaluek vptr +| fstp qword tv.value +| settt tv, LUA_TNUMBER +|.endmacro +| +|.macro setnvalue, tv, vptr // Pass a Value *! Temporary ok. +| mov dword tv.value, (vptr)->na[0] +| mov dword tv.value.na[1], (vptr)->na[1] +| settt tv, LUA_TNUMBER +|.endmacro +| +|.macro setsvalue, tv, vptr +| mov aword tv.value, vptr +| settt tv, LUA_TSTRING +|.endmacro +| +|.macro sethvalue, tv, vptr +| mov aword tv.value, vptr +| settt tv, LUA_TTABLE +|.endmacro +| +|.macro copyslotSSE, D, S, R1 // May use xmm0. +| mov R1, S.tt; movq xmm0, qword S.value +| mov D.tt, R1; movq qword D.value, xmm0 +|.endmacro +| +|.macro copyslot, D, S, R1, R2, R3 +||if (J->flags & JIT_F_CPU_SSE2) { +| copyslotSSE D, S, R1 +||} else { +| mov R1, S.value; mov R2, S.value.na[1]; mov R3, S.tt +| mov D.value, R1; mov D.value.na[1], R2; mov D.tt, R3 +||} +|.endmacro +| +|.macro copyslot, D, S, R1, R2 +||if (J->flags & JIT_F_CPU_SSE2) { +| copyslotSSE D, S, R1 +||} else { +| mov R1, S.value; mov R2, S.value.na[1]; mov D.value, R1 +| mov R1, S.tt; mov D.value.na[1], R2; mov D.tt, R1 +||} +|.endmacro +| +|.macro copyslot, D, S +| copyslot D, S, ecx, edx, eax +|.endmacro +| +|.macro copyconst, tv, tvk // May use edx. +||switch (ttype(tvk)) { +||case LUA_TNIL: +| setnilvalue tv +|| break; +||case LUA_TBOOLEAN: +| setbvalue tv, bvalue(tvk) // May use edx. +|| break; +||case LUA_TNUMBER: { +| setnvaluek tv, &(tvk)->value +|| break; +||} +||case LUA_TSTRING: +| setsvalue tv, &gcvalue(tvk) +|| break; +||default: lua_assert(0); break; +||} +|.endmacro +| +|// Macros to get Lua structures. +|.macro getLCL, reg // May use CI and TOP (edi). +||if (!J->pt->is_vararg) { +| mov LCL:reg, BASE[-1].value +||} else { +| mov CI, L->ci +| mov TOP, CI->func +| mov LCL:reg, TOP->value +||} +|.endmacro +|.macro getLCL; getLCL eax; .endmacro +| +|// Macros to handle variants. +|.macro addidx, type, idx +||if (idx) { +| add type, idx*#type +||} +|.endmacro +| +|.macro subidx, type, idx +||if (idx) { +| sub type, idx*#type +||} +|.endmacro +| +|// Annoying x87 stuff: support for two compare variants. +|.macro fcomparepp // Compare and pop st0 >< st1. +||if (J->flags & JIT_F_CPU_CMOV) { +| fucomip st1 +| fpop +||} else { +| fucompp +| fnstsw ax // eax modified! +| sahf +| // Sometimes test ah, imm8 would be faster. +| // But all following compares need to be changed then. +| // Don't bother since this is only compatibility stuff for old CPUs. +||} +|.endmacro +| +|// If you change LUA_TVALUE_ALIGN, be sure to change the Makefile, too: +|// DASMFLAGS= -D TVALUE_SIZE=... +|// Then rerun make. Or change the default below: +|.if not TVALUE_SIZE; .define TVALUE_SIZE, 16; .endif +| +|.if TVALUE_SIZE == 16 +| .macro TValuemul, reg; sal reg, 4; .endmacro // *16 +| .macro TValuediv, reg; sar reg, 4; .endmacro // /16 +| .macro Nodemul, reg; sal reg, 5; .endmacro // *32 +|.elif TVALUE_SIZE == 12 +| .macro TValuemul, reg; sal reg, 2; lea reg, [reg+reg*2]; .endmacro // *12 +| .macro TValuediv, reg; sal reg, 2; imul reg, 0xaaaaaaab; .endmacro // /12 +| .macro Nodemul, reg; imul reg, 28; .endmacro // *28 +|.else +| .fatal Unsupported TValue size `TVALUE_SIZE'. +|.endif +| +|// +|// x86 C calling conventions and stack frame layout during a JIT call: +|// +|// ebp+aword*4 CARG2 nresults +|// ebp+aword*3 CARG2 func (also used as SAVER3 for L) +|// ebp+aword*2 CARG1 L +|// ------------------------------- call to GATE_LJ +|// ebp+aword*1 retaddr +|// ebp+aword*0 frameptr ebp +|// ebp-aword*1 SAVER1 TOP edi +|// ebp-aword*2 SAVER2 BASE ebx +|// ------------------------------- +|// GATE_LJ retaddr +|// esp+aword*2 ARG3 +|// esp+aword*1 ARG2 +|// esp+aword*0 ARG1 <-- esp for first JIT frame +|// ------------------------------- +|// 1st JIT frame retaddr +|// esp+aword*2 ARG3 +|// esp+aword*1 ARG2 +|// esp+aword*0 ARG1 <-- esp for second JIT frame +|// ------------------------------- +|// 2nd JIT frame retaddr +|// +|// We could omit the fixed frame pointer (ebp) and have one more register +|// available. But there is no pressing need (could use it for CI). +|// And it's easier for debugging (gdb is still confused -- why?). +|// +|// The stack is aligned to 4 awords (16 bytes). Calls to C functions +|// with up to 3 arguments do not need any stack pointer adjustment. +|// +| +|.define CARG3, [ebp+aword*4] +|.define CARG2, [ebp+aword*3] +|.define CARG1, [ebp+aword*2] +|.define SAVER1, [ebp-aword*1] +|.define SAVER2, [ebp-aword*2] +|.define ARG7, aword [esp+aword*6] // Requires large frame. +|.define ARG6, aword [esp+aword*5] // Requires large frame. +|.define ARG5, aword [esp+aword*4] // Requires large frame. +|.define ARG4, aword [esp+aword*3] // Requires large frame. +|.define ARG3, aword [esp+aword*2] +|.define ARG2, aword [esp+aword*1] +|.define ARG1, aword [esp] +|.define FRAME_RETADDR, aword [esp+aword*3] +|.define TMP3, [esp+aword*2] +|.define TMP2, [esp+aword*1] +|.define TMP1, [esp] +|.define FPARG2, qword [esp+qword*1] // Requires large frame. +|.define FPARG1, qword [esp] +|.define LJFRAME_OFFSET, aword*2 // 16 byte aligned with retaddr + ebp. +|.define FRAME_OFFSET, aword*3 // 16 byte aligned with retaddr. +|.define LFRAME_OFFSET, aword*7 // 16 byte aligned with retaddr. +|.define S2LFRAME_OFFSET, aword*4 // Delta to large frame. +| +|.macro call, target, a1 +| mov ARG1, a1; call target; .endmacro +|.macro call, target, a1, a2 +| mov ARG1, a1; mov ARG2, a2; call target; .endmacro +|.macro call, target, a1, a2, a3 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; call target; .endmacro +|.macro call, target, a1, a2, a3, a4 +| push a4; push a3; push a2; push a1 +| call target; add esp, S2LFRAME_OFFSET; .endmacro +|.macro call, target, a1, a2, a3, a4, a5 +| mov ARG1, a5; push a4; push a3; push a2; push a1 +| call target; add esp, S2LFRAME_OFFSET; .endmacro +| +|// The following macros require a large frame. +|.macro call_LFRAME, target, a1, a2, a3, a4 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; mov ARG4, a4 +| call target; .endmacro +|.macro call_LFRAME, target, a1, a2, a3, a4, a5 +| mov ARG1, a1; mov ARG2, a2; mov ARG3, a3; mov ARG4, a4; mov ARG5, a5 +| call target; .endmacro +| diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h new file mode 100644 index 00000000000..7f03ae527b1 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86.h @@ -0,0 +1,2301 @@ +/* +** This file has been pre-processed with DynASM. +** http://luajit.org/dynasm.html +** DynASM version 1.1.4, DynASM x86 version 1.1.4 +** DO NOT EDIT! The original file is in "ljit_x86.dasc". +*/ + +#if DASM_VERSION != 10104 +#error "Version mismatch between DynASM and included encoding engine" +#endif + +/* +** Bytecode to machine code translation for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define DASM_SECTION_CODE 0 +#define DASM_SECTION_DEOPT 1 +#define DASM_SECTION_TAIL 2 +#define DASM_SECTION_MFMAP 3 +#define DASM_MAXSECTION 4 +#define Dt1(_V) (int)&(((lua_State *)0)_V) +#define Dt2(_V) (int)&(((TValue *)0)_V) +#define Dt3(_V) (int)&(((TValue *)0)_V) +#define Dt4(_V) (int)&(((CallInfo *)0)_V) +#define Dt5(_V) (int)&(((LClosure *)0)_V) +#define Dt6(_V) (int)&(((global_State *)0)_V) +#define Dt7(_V) (int)&(((TValue *)0)_V) +#define Dt8(_V) (int)&(((Value *)0)_V) +#define Dt9(_V) (int)&(((CallInfo *)0)_V) +#define DtA(_V) (int)&(((GCObject *)0)_V) +#define DtB(_V) (int)&(((TString *)0)_V) +#define DtC(_V) (int)&(((Table *)0)_V) +#define DtD(_V) (int)&(((CClosure *)0)_V) +#define DtE(_V) (int)&(((Proto *)0)_V) +#define DtF(_V) (int)&(((UpVal *)0)_V) +#define Dt10(_V) (int)&(((Node *)0)_V) +static const unsigned char jit_actionlist[5059] = { + 156,90,137,209,129,252,242,0,0,32,0,82,157,156,90,49,192,57,209,15,132,245, + 247,64,83,15,162,91,137,208,249,1,195,255,254,0,251,15,249,10,141,68,36,4, + 195,251,15,249,11,85,137,229,131,252,236,8,137,93,252,252,139,93,12,137,117, + 12,139,117,8,137,125,252,248,139,190,235,139,131,235,139,142,235,102,252, + 255,134,235,252,255,144,235,139,142,235,137,190,235,139,145,235,139,69,16, + 137,150,235,139,145,235,133,192,137,150,235,15,136,245,248,193,224,4,1,195, + 49,201,137,158,235,249,1,137,143,235,129,199,241,57,223,15,130,245,1,249, + 2,255,102,252,255,142,235,184,239,139,125,252,248,139,93,252,252,139,117, + 12,137,252,236,93,195,251,15,249,12,139,144,235,129,186,235,241,15,133,245, + 247,139,146,235,137,144,235,252,255,226,249,1,131,252,236,12,139,129,235, + 137,142,235,137,190,235,199,68,36,8,252,255,252,255,252,255,252,255,137,134, + 235,137,92,36,4,43,158,235,137,52,36,232,244,133,192,15,133,245,248,137,52, + 36,199,68,36,4,1,0,0,0,232,244,249,2,131,196,12,3,158,235,255,139,190,235, + 195,251,15,249,13,141,135,235,131,252,236,12,59,134,235,15,131,245,14,59, + 142,235,141,137,235,15,132,245,15,137,142,235,137,153,235,137,129,235,139, + 147,235,129,195,241,137,190,235,137,158,235,137,153,235,249,16,137,52,36, + 252,255,146,235,249,2,131,196,12,139,142,235,255,193,224,4,139,185,235,15, + 132,245,250,139,158,235,137,218,41,195,249,3,139,3,131,195,4,137,7,131,199, + 4,57,211,15,130,245,3,249,4,139,153,235,129,233,241,137,142,235,195,144,144, + 144,144,144,144,251,15,249,17,252,246,134,235,237,15,133,245,253,249,6,137, + 52,36,252,255,146,235,252,246,134,235,237,15,132,245,2,255,137,195,137,52, + 36,199,68,36,4,239,199,68,36,8,252,255,252,255,252,255,252,255,232,244,137, + 216,233,245,2,249,7,137,211,137,52,36,199,68,36,4,239,199,68,36,8,252,255, + 252,255,252,255,252,255,232,244,137,218,233,245,6,251,15,249,14,41,252,248, + 193,252,248,4,137,190,235,43,158,235,137,76,36,8,137,52,36,137,68,36,4,232, + 244,139,76,36,8,3,158,235,139,190,235,139,131,235,131,196,12,252,255,160, + 235,251,15,249,15,137,190,235,137,52,36,232,244,141,136,235,255,139,131,235, + 137,142,235,131,196,12,252,255,160,235,255,249,18,90,233,245,19,249,20,137, + 190,235,249,19,137,150,235,137,52,36,232,244,139,158,235,139,190,235,252, + 255,224,251,15,255,137,190,235,255,232,245,21,255,251,15,249,21,252,246,134, + 235,237,15,132,245,248,252,255,142,235,15,132,245,247,252,246,134,235,237, + 15,132,245,248,249,1,139,4,36,131,252,236,12,137,52,36,137,68,36,4,232,244, + 131,196,12,139,158,235,139,190,235,249,2,195,255,250,255,233,246,255,250, + 243,255,254,1,233,245,19,254,0,250,254,2,250,251,1,252,255,252,255,254,3, + 242,0,0,0,0,0,0,0,0,0,254,0,141,249,9,186,239,254,0,249,9,186,239,233,245, + 20,254,0,139,142,235,139,129,235,191,247,253,59,129,235,15,131,245,22,249, + 7,255,251,15,249,22,137,52,36,232,244,139,158,235,252,255,231,255,131,187, + 235,5,15,133,245,9,49,192,137,131,235,137,131,235,254,3,238,238,254,0,131, + 190,235,0,15,132,245,9,199,134,235,239,129,195,241,255,141,187,235,255,137, + 158,235,137,190,235,137,52,36,232,244,139,158,235,139,190,235,255,199,135, + 235,0,0,0,0,255,139,139,235,252,243,15,126,131,235,137,139,235,102,15,214, + 131,235,255,139,139,235,139,147,235,139,131,235,137,139,235,137,147,235,137, + 131,235,255,57,223,15,130,245,9,255,131,187,235,8,15,133,245,9,139,131,235, + 131,184,235,0,15,132,245,9,199,134,235,239,137,190,235,137,52,36,137,92,36, + 4,199,68,36,8,239,232,244,139,158,235,255,137,199,255,131,187,235,4,15,133, + 245,9,139,139,235,219,129,235,199,131,235,3,0,0,0,221,155,235,255,141,187, + 235,232,245,23,137,131,235,199,131,235,4,0,0,0,255,141,187,235,232,245,24, + 137,131,235,199,131,235,4,0,0,0,255,131,187,235,3,15,133,245,9,141,134,235, + 221,131,235,219,24,129,56,252,255,0,0,0,15,135,245,9,137,52,36,137,68,36, + 4,199,68,36,8,1,0,0,0,232,244,137,131,235,199,131,235,4,0,0,0,255,251,15, + 249,23,139,135,235,193,224,4,11,135,235,193,224,4,11,135,235,45,51,4,0,0, + 15,133,245,18,221,135,235,221,135,235,219,92,36,8,219,92,36,4,139,143,235, + 139,185,235,139,84,36,8,57,215,15,130,245,250,249,1,11,68,36,4,15,142,245, + 252,249,2,41,194,15,140,245,253,141,140,253,1,235,66,249,3,137,116,36,4,137, + 76,36,8,137,84,36,12,139,190,235,139,135,235,255,59,135,235,15,131,245,254, + 233,244,249,4,15,140,245,251,141,84,58,1,233,245,1,249,5,137,252,250,233, + 245,1,249,6,15,132,245,251,1,252,248,64,15,143,245,2,249,5,184,1,0,0,0,233, + 245,2,249,7,49,210,233,245,3,255,251,15,249,24,139,135,235,193,224,4,11,135, + 235,131,232,67,15,133,245,18,221,135,235,219,92,36,4,139,143,235,139,185, + 235,137,252,250,233,245,1,249,8,131,252,236,12,137,52,36,232,244,131,196, + 12,139,158,235,233,244,255,131,187,235,5,15,133,245,9,255,141,131,235,137, + 52,36,137,68,36,4,232,244,255,141,131,235,141,139,235,137,52,36,137,68,36, + 4,137,76,36,8,232,244,255,139,131,235,137,4,36,232,244,137,4,36,219,4,36, + 221,155,235,199,131,235,3,0,0,0,255,131,187,235,3,15,133,245,9,221,131,235, + 255,139,131,235,193,224,4,11,131,235,131,252,248,51,15,133,245,9,255,217, + 252,254,255,217,252,255,255,217,252,242,221,216,255,217,60,36,217,45,239, + 217,252,252,217,44,36,255,217,225,255,217,252,250,255,221,131,235,221,131, + 235,249,1,217,252,248,223,224,158,15,138,245,1,221,217,255,221,131,235,221, + 131,235,217,252,243,255,221,28,36,232,244,255,131,187,235,6,15,133,245,9, + 129,187,235,239,15,133,245,9,255,141,131,235,57,199,15,133,245,9,255,141, + 187,235,137,190,235,255,131,196,12,129,252,235,241,129,174,235,241,195,255, + 141,187,235,137,52,36,137,124,36,4,232,244,133,192,15,133,246,255,139,131, + 235,64,139,147,235,137,131,235,137,20,36,137,68,36,4,232,244,139,136,235, + 133,201,15,132,245,255,219,131,235,199,131,235,3,0,0,0,221,155,235,139,144, + 235,139,128,235,137,139,235,137,147,235,137,131,235,233,246,249,9,255,141, + 135,235,131,252,236,12,59,134,235,15,131,245,14,59,142,235,141,137,235,15, + 132,245,15,49,192,137,153,235,129,195,241,137,142,235,255,141,147,235,57, + 215,255,137,223,255,15,71,252,250,255,15,134,245,247,137,215,249,1,255,141, + 147,235,137,129,235,137,145,235,137,150,235,137,158,235,137,153,235,255,15, + 130,245,251,249,4,254,2,249,5,137,135,235,129,199,241,57,215,15,130,245,5, + 233,245,4,254,0,137,190,235,137,185,235,137,129,235,255,139,139,235,252,243, + 15,126,131,235,137,143,235,102,15,214,135,235,255,139,139,235,139,147,235, + 137,143,235,139,139,235,137,151,235,137,143,235,255,137,252,251,141,147,235, + 141,187,235,137,145,235,137,150,235,255,137,135,235,255,249,2,137,135,235, + 137,135,235,129,199,241,57,215,15,130,245,2,255,137,52,36,232,244,255,252, + 246,134,235,237,15,132,245,255,232,245,25,249,9,255,251,15,249,25,139,142, + 235,139,185,235,139,135,235,139,184,235,139,135,235,131,192,4,137,134,235, + 131,252,236,12,137,52,36,199,68,36,4,239,199,68,36,8,252,255,252,255,252, + 255,252,255,232,244,131,196,12,139,135,235,137,134,235,139,158,235,195,255, + 137,52,36,137,92,36,4,232,244,255,129,174,235,241,137,223,129,252,235,241, + 131,196,12,255,139,142,235,139,153,235,129,233,241,137,142,235,141,187,235, + 131,196,12,255,252,246,134,235,237,15,132,245,253,232,245,26,249,7,255,139, + 68,36,12,137,134,235,255,251,15,249,26,139,4,36,137,134,235,131,252,236,12, + 137,52,36,199,68,36,4,239,199,68,36,8,252,255,252,255,252,255,252,255,232, + 244,131,196,12,139,158,235,139,190,235,195,255,139,145,235,57,252,251,15, + 131,245,248,249,1,139,3,131,195,4,137,2,131,194,4,57,252,251,15,130,245,1, + 249,2,131,196,12,139,153,235,129,233,241,137,215,137,142,235,195,255,129, + 174,235,241,129,252,235,241,255,131,196,12,141,187,235,195,255,139,142,235, + 139,185,235,129,233,241,137,142,235,255,139,139,235,139,147,235,139,131,235, + 137,143,235,137,151,235,137,135,235,255,131,196,12,137,252,251,255,129,199, + 241,255,139,142,235,131,187,235,6,255,139,131,235,186,239,137,145,235,255, + 15,133,245,20,255,15,133,245,19,255,15,132,245,247,232,245,27,249,1,255,251, + 15,249,27,131,252,236,12,137,150,235,137,190,235,137,52,36,137,92,36,4,232, + 244,131,196,12,137,195,139,190,235,139,131,235,139,142,235,195,255,252,255, + 144,235,255,137,158,235,255,49,192,255,141,147,235,249,1,137,135,235,137, + 135,235,129,199,241,57,215,15,130,245,1,255,131,187,235,6,15,133,245,9,255, + 131,187,235,6,15,133,245,251,254,2,249,5,255,186,239,233,245,28,254,0,251, + 15,249,28,137,150,235,137,190,235,137,52,36,137,92,36,4,232,244,139,142,235, + 139,150,235,139,185,235,249,1,139,24,131,192,4,137,31,131,199,4,57,208,15, + 130,245,1,139,153,235,139,131,235,129,233,241,131,196,12,252,255,160,235, + 255,139,131,235,255,139,139,235,139,147,235,137,139,235,139,139,235,137,147, + 235,137,139,235,255,141,187,235,129,252,235,241,139,142,235,137,131,235,255, + 139,142,235,141,187,235,139,153,235,139,135,235,137,131,235,255,139,135,235, + 252,243,15,126,135,235,137,131,235,102,15,214,131,235,255,139,135,235,139, + 151,235,137,131,235,139,135,235,137,147,235,137,131,235,255,141,187,235,139, + 131,235,255,139,145,235,249,1,139,3,131,195,4,137,2,131,194,4,57,252,251, + 15,130,245,1,139,153,235,137,215,139,131,235,255,199,131,235,0,0,0,0,255, + 186,1,0,0,0,137,147,235,137,147,235,255,199,131,235,0,0,0,0,199,131,235,1, + 0,0,0,255,217,252,238,255,217,232,255,221,5,239,255,199,131,235,239,199,131, + 235,4,0,0,0,255,137,131,235,195,255,141,139,235,141,147,235,249,1,137,1,57, + 209,141,137,235,15,134,245,1,255,139,142,235,139,185,235,139,135,235,255, + 139,136,235,139,185,235,255,139,143,235,252,243,15,126,135,235,137,139,235, + 102,15,214,131,235,255,139,143,235,139,151,235,139,135,235,137,139,235,137, + 147,235,137,131,235,255,139,136,235,139,185,235,139,131,235,139,147,235,137, + 135,235,131,252,248,4,139,131,235,137,151,235,137,135,235,15,131,245,251, + 249,4,254,2,249,5,252,246,130,235,237,15,132,245,4,252,246,129,235,237,15, + 132,245,4,232,245,29,233,245,4,254,0,251,15,249,29,137,84,36,12,137,76,36, + 8,137,116,36,4,233,244,255,251,15,249,30,139,142,235,139,185,235,139,135, + 235,139,184,235,233,245,255,255,251,15,249,31,131,191,235,5,139,191,235,15, + 133,245,18,249,9,15,182,143,235,184,1,0,0,0,211,224,72,35,130,235,193,224, + 5,3,135,235,249,1,131,184,235,4,15,133,245,248,57,144,235,15,133,245,248, + 139,136,235,133,201,15,132,245,249,255,252,243,15,126,128,235,102,15,214, + 131,235,255,139,144,235,139,184,235,137,147,235,137,187,235,255,137,139,235, + 139,158,235,195,249,2,139,128,235,133,192,15,133,245,1,49,201,249,3,139,135, + 235,133,192,15,132,245,250,252,246,128,235,237,15,132,245,251,249,4,137,139, + 235,139,158,235,195,249,5,137,150,235,199,134,235,4,0,0,0,139,12,36,131,252, + 236,12,137,142,235,137,52,36,137,124,36,4,137,92,36,8,232,244,131,196,12, + 139,158,235,255,251,15,249,32,139,135,235,193,224,4,11,129,235,131,252,248, + 84,139,191,235,139,145,235,15,132,245,9,233,245,18,255,251,15,249,33,139, + 142,235,128,167,235,237,139,145,235,137,185,235,137,151,235,195,255,251,15, + 249,34,139,142,235,139,185,235,139,135,235,139,184,235,233,245,255,255,251, + 15,249,35,131,191,235,5,139,191,235,15,133,245,18,249,9,15,182,143,235,184, + 1,0,0,0,211,224,72,35,130,235,193,224,5,3,135,235,249,1,131,184,235,4,15, + 133,245,250,57,144,235,15,133,245,250,131,184,235,0,15,132,245,252,249,2, + 198,135,235,0,249,3,255,252,246,135,235,237,15,133,245,254,249,7,255,139, + 139,235,252,243,15,126,131,235,137,136,235,102,15,214,128,235,255,139,139, + 235,139,147,235,139,187,235,137,136,235,137,144,235,137,184,235,255,139,158, + 235,195,249,8,232,245,33,233,245,7,249,4,139,128,235,133,192,15,133,245,1, + 139,143,235,133,201,15,132,245,251,252,246,129,235,237,15,132,245,253,249, + 5,141,134,235,137,144,235,199,128,235,4,0,0,0,131,252,236,12,137,52,36,137, + 124,36,4,137,68,36,8,232,244,131,196,12,233,245,2,249,6,255,139,143,235,133, + 201,15,132,245,2,252,246,129,235,237,15,133,245,2,249,7,137,150,235,199,134, + 235,4,0,0,0,139,12,36,131,252,236,12,137,142,235,137,52,36,137,124,36,4,137, + 92,36,8,232,244,131,196,12,139,158,235,195,255,251,15,249,36,139,135,235, + 193,224,4,11,129,235,131,252,248,84,139,191,235,139,145,235,15,132,245,9, + 233,245,18,255,137,52,36,199,68,36,4,239,199,68,36,8,239,232,244,137,131, + 235,199,131,235,5,0,0,0,255,186,239,255,232,245,30,255,232,245,34,255,141, + 187,235,186,239,255,141,187,235,141,139,235,255,131,187,235,5,139,187,235, + 15,133,245,255,185,239,139,135,235,59,143,235,15,135,245,251,255,139,131, + 235,193,224,4,11,131,235,131,252,248,83,15,133,245,255,255,252,242,15,16, + 131,235,252,242,15,44,192,252,242,15,42,200,72,102,15,46,200,139,187,235, + 15,133,245,255,15,138,245,255,255,221,131,235,219,20,36,219,4,36,255,223, + 233,221,216,255,218,233,223,224,158,255,15,133,245,255,15,138,245,255,139, + 4,36,139,187,235,72,255,59,135,235,15,131,245,251,193,224,4,3,135,235,255, + 232,245,31,255,232,245,32,255,185,239,255,141,147,235,255,199,134,235,239, + 83,81,82,86,232,244,131,196,16,139,158,235,255,249,1,139,144,235,133,210, + 15,132,245,252,255,139,136,235,139,128,235,137,139,235,137,131,235,255,249, + 2,137,147,235,254,2,232,245,37,255,232,245,38,255,233,245,1,249,6,139,143, + 235,133,201,15,132,245,2,252,246,129,235,237,15,133,245,2,249,9,186,239,233, + 245,19,254,0,251,15,249,37,137,76,36,4,131,252,236,12,137,60,36,137,76,36, + 4,232,244,131,196,12,139,76,36,4,193,225,4,41,200,129,192,241,195,255,251, + 15,249,38,64,137,124,36,4,137,68,36,8,233,244,255,187,239,255,232,245,35, + 255,232,245,36,255,199,134,235,239,82,81,83,86,232,244,131,196,16,139,158, + 235,255,249,1,131,184,235,0,15,132,245,252,249,2,254,2,232,245,39,255,232, + 245,40,255,252,246,135,235,237,15,133,245,253,249,3,254,2,249,7,232,245,33, + 233,245,3,254,0,199,128,235,0,0,0,0,255,186,1,0,0,0,137,144,235,137,144,235, + 255,199,128,235,0,0,0,0,199,128,235,1,0,0,0,255,221,152,235,199,128,235,3, + 0,0,0,255,199,128,235,239,199,128,235,4,0,0,0,255,251,15,249,39,137,76,36, + 4,131,252,236,12,137,52,36,137,124,36,4,137,76,36,8,232,244,131,196,12,139, + 76,36,4,193,225,4,41,200,129,192,241,195,255,251,15,249,40,64,137,116,36, + 4,137,124,36,8,137,68,36,12,233,244,255,137,190,235,141,131,235,41,252,248, + 252,247,216,193,252,248,4,139,187,235,15,132,245,250,255,129,192,241,255, + 57,135,235,15,131,245,247,137,52,36,137,124,36,4,137,68,36,8,232,244,249, + 1,252,246,135,235,237,139,151,235,15,133,245,252,139,190,235,254,2,249,6, + 232,245,33,233,245,1,254,0,139,187,235,129,191,235,241,15,130,245,251,249, + 1,252,246,135,235,237,139,151,235,15,133,245,252,141,187,235,254,2,249,5, + 137,52,36,137,124,36,4,199,68,36,8,239,232,244,233,245,1,249,6,232,245,33, + 233,245,1,254,0,129,194,241,255,141,139,235,249,3,139,1,131,193,4,137,2,131, + 194,4,57,252,249,15,130,245,3,249,4,255,131,187,235,3,139,131,235,15,133, + 245,255,133,192,15,136,245,255,255,221,131,235,221,5,239,255,221,5,239,221, + 131,235,255,139,131,235,193,224,4,11,131,235,131,252,248,51,139,131,235,15, + 133,245,255,11,131,235,15,136,245,255,221,131,235,221,131,235,255,131,187, + 235,3,15,133,245,255,221,131,235,255,216,200,255,217,192,216,200,255,220, + 201,255,222,201,255,199,4,36,239,199,68,36,4,239,199,68,36,8,239,131,187, + 235,3,15,133,245,255,219,44,36,220,139,235,217,192,217,252,252,220,233,217, + 201,217,252,240,217,232,222,193,217,252,253,221,217,255,251,15,249,41,217, + 232,221,68,36,8,217,252,241,139,68,36,4,219,56,195,255,131,187,235,3,15,133, + 245,255,255,131,187,235,3,255,139,131,235,193,224,4,11,131,235,131,252,248, + 51,255,216,192,255,220,131,235,255,220,163,235,255,220,171,235,255,220,139, + 235,255,220,179,235,255,220,187,235,255,131,252,236,16,221,28,36,221,131, + 235,221,92,36,8,232,244,131,196,16,255,131,252,236,16,221,92,36,8,221,131, + 235,221,28,36,232,244,131,196,16,255,217,224,255,15,138,246,255,15,130,246, + 255,15,134,246,255,15,135,246,255,15,131,246,255,199,134,235,239,137,52,36, + 137,76,36,4,137,84,36,8,232,244,133,192,139,158,235,255,15,132,246,255,199, + 134,235,239,199,4,36,239,82,81,83,86,232,244,131,196,16,139,158,235,255,131, + 187,235,5,139,139,235,15,133,245,9,137,12,36,232,244,137,4,36,219,4,36,221, + 155,235,199,131,235,3,0,0,0,255,131,187,235,4,139,139,235,15,133,245,9,219, + 129,235,221,155,235,199,131,235,3,0,0,0,255,199,134,235,239,137,52,36,137, + 92,36,4,137,76,36,8,232,244,139,158,235,255,139,131,235,139,139,235,186,1, + 0,0,0,33,193,209,232,9,193,49,192,57,209,17,192,137,147,235,137,131,235,255, + 232,245,42,137,131,235,199,131,235,4,0,0,0,255,199,134,235,239,137,52,36, + 199,68,36,4,239,199,68,36,8,239,232,244,139,158,235,255,251,15,249,42,137, + 116,36,4,139,131,235,193,224,4,11,131,235,131,232,68,15,133,245,18,249,1, + 139,190,235,139,179,235,139,147,235,139,142,235,133,201,15,132,245,248,11, + 130,235,15,132,245,250,1,200,15,130,245,255,59,135,235,15,135,245,251,139, + 191,235,129,198,241,255,252,243,164,139,138,235,141,178,235,252,243,164,41, + 199,139,116,36,4,137,124,36,8,137,68,36,12,139,158,235,233,244,249,2,137, + 208,249,3,139,116,36,4,139,158,235,195,249,4,137,252,240,233,245,3,249,5, + 139,116,36,4,141,143,235,131,252,236,12,137,52,36,137,76,36,4,137,68,36,8, + 232,244,131,196,12,49,192,233,245,1,249,9,139,116,36,4,233,245,18,255,131, + 187,235,0,255,139,131,235,139,139,235,72,73,9,200,255,139,131,235,72,11,131, + 235,255,131,187,235,3,15,133,246,221,131,235,221,5,239,255,131,187,235,4, + 15,133,246,129,187,235,239,255,139,131,235,59,131,235,15,133,246,255,131, + 252,248,3,15,133,245,9,221,131,235,221,131,235,255,131,252,248,4,15,133,245, + 9,139,139,235,59,139,235,255,141,147,235,141,139,235,199,134,235,239,137, + 52,36,137,76,36,4,137,84,36,8,232,244,72,139,158,235,255,139,131,235,139, + 139,235,137,194,33,202,141,20,80,209,234,255,15,132,245,247,255,15,133,245, + 247,255,139,147,235,137,131,235,137,139,235,137,147,235,233,246,249,1,255, + 139,131,235,193,224,4,11,131,235,131,252,248,51,15,133,245,255,249,4,221, + 131,235,221,131,235,221,147,235,255,249,4,139,131,235,193,224,4,11,131,235, + 193,224,4,11,131,235,61,51,3,0,0,139,131,235,15,133,245,255,221,131,235,221, + 131,235,133,192,221,147,235,15,136,245,247,217,201,249,1,255,199,131,235, + 3,0,0,0,15,130,246,255,249,9,141,131,235,199,134,235,239,137,52,36,137,68, + 36,4,232,244,233,245,4,254,0,221,131,235,221,131,235,220,131,235,221,147, + 235,221,147,235,199,131,235,3,0,0,0,255,139,131,235,221,131,235,221,131,235, + 221,131,235,222,193,221,147,235,221,147,235,199,131,235,3,0,0,0,133,192,15, + 136,245,247,217,201,249,1,255,131,187,235,0,15,132,245,247,255,141,131,235, + 137,68,36,4,255,137,92,36,4,255,139,187,235,255,139,142,235,139,185,235,139, + 191,235,255,139,151,235,137,52,36,199,68,36,4,239,137,84,36,8,232,244,199, + 128,235,239,137,131,235,199,131,235,6,0,0,0,255,139,151,235,137,144,235,255, + 137,52,36,232,244,137,135,235,255,249,1,139,142,235,139,145,235,129,194,241, + 141,132,253,27,235,41,208,59,134,235,15,131,245,251,141,187,235,57,218,15, + 131,245,249,249,2,139,2,131,194,4,137,7,131,199,4,57,218,15,130,245,2,249, + 3,254,2,249,5,43,134,235,193,252,248,4,137,52,36,137,68,36,4,232,244,139, + 158,235,233,245,1,254,0,139,142,235,139,145,235,129,194,241,141,187,235,141, + 139,235,57,218,15,131,245,248,249,1,139,2,131,194,4,137,7,131,199,4,57,207, + 15,131,245,250,57,218,15,130,245,1,249,2,49,192,249,3,137,135,235,129,199, + 241,57,207,15,130,245,3,249,4,255 +}; + +enum { + JSUB_STACKPTR, + JSUB_GATE_LJ, + JSUB_GATE_JL, + JSUB_GATE_JC, + JSUB_GROW_STACK, + JSUB_GROW_CI, + JSUB_GATE_JC_PATCH, + JSUB_GATE_JC_DEBUG, + JSUB_DEOPTIMIZE_CALLER, + JSUB_DEOPTIMIZE, + JSUB_DEOPTIMIZE_OPEN, + JSUB_HOOKINS, + JSUB_GCSTEP, + JSUB_STRING_SUB3, + JSUB_STRING_SUB2, + JSUB_HOOKCALL, + JSUB_HOOKRET, + JSUB_METACALL, + JSUB_METATAILCALL, + JSUB_BARRIERF, + JSUB_GETGLOBAL, + JSUB_GETTABLE_KSTR, + JSUB_GETTABLE_STR, + JSUB_BARRIERBACK, + JSUB_SETGLOBAL, + JSUB_SETTABLE_KSTR, + JSUB_SETTABLE_STR, + JSUB_GETTABLE_KNUM, + JSUB_GETTABLE_NUM, + JSUB_SETTABLE_KNUM, + JSUB_SETTABLE_NUM, + JSUB_LOG2_TWORD, + JSUB_CONCAT_STR2, + JSUB__MAX +}; + +/* ------------------------------------------------------------------------ */ + +/* Arch string. */ +const char luaJIT_arch[] = "x86"; + +/* Forward declarations for C functions called from jsubs. */ +static void jit_hookins(lua_State *L, const Instruction *newpc); +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest); +static void jit_settable_fb(lua_State *L, Table *t, StkId val); + +/* ------------------------------------------------------------------------ */ + +/* Detect CPU features and set JIT flags. */ +static int jit_cpudetect(jit_State *J) +{ + void *mcode; + size_t sz; + int status; + /* Some of the jsubs need the flags. So compile this separately. */ + unsigned int feature; + dasm_setup(Dst, jit_actionlist); + dasm_put(Dst, 0); + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &mcode, &sz); + if (status != JIT_S_OK) + return status; + /* Check feature bits. See the Intel/AMD manuals for the bit definitions. */ + feature = ((unsigned int (*)(void))mcode)(); + if (feature & (1<<15)) J->flags |= JIT_F_CPU_CMOV; + if (feature & (1<<26)) J->flags |= JIT_F_CPU_SSE2; + luaJIT_freemcode(J, mcode, sz); /* We don't need this code anymore. */ + return JIT_S_OK; +} + +/* Check some assumptions. Should compile to nop. */ +static int jit_consistency_check(jit_State *J) +{ + do { + /* Force a compiler error for inconsistent structure sizes. */ + /* Check LUA_TVALUE_ALIGN in luaconf.h, too. */ + int check_TVALUE_SIZE_in_ljit_x86_dash[1+16-sizeof(TValue)]; + int check_TVALUE_SIZE_in_ljit_x86_dash_[1+sizeof(TValue)-16]; + ((void)check_TVALUE_SIZE_in_ljit_x86_dash[0]); + ((void)check_TVALUE_SIZE_in_ljit_x86_dash_[0]); + if (LUA_TNIL != 0 || LUA_TBOOLEAN != 1 || PCRLUA != 0) break; + if ((int)&(((Node *)0)->i_val) != (int)&(((StkId)0)->value)) break; + return JIT_S_OK; + } while (0); + J->dasmstatus = 999999999; /* Recognizable error. */ + return JIT_S_COMPILER_ERROR; +} + +/* Compile JIT subroutines (once). */ +static int jit_compile_jsub(jit_State *J) +{ + int status = jit_consistency_check(J); + if (status != JIT_S_OK) return status; + status = jit_cpudetect(J); + if (status != JIT_S_OK) return status; + dasm_setup(Dst, jit_actionlist); + dasm_put(Dst, 34); + dasm_put(Dst, 36, Dt1(->top), Dt2(->value), Dt1(->ci), Dt1(->nCcalls), Dt5(->jit_gate), Dt1(->ci), Dt1(->top), Dt4(->savedpc), Dt1(->savedpc), Dt4(->base), Dt1(->base), Dt1(->top), Dt3(->tt), sizeof(TValue)); + dasm_put(Dst, 145, Dt1(->nCcalls), PCRC, Dt5(->p), DtE(->jit_status), JIT_S_OK, DtE(->jit_mcode), Dt5(->jit_gate), Dt4(->savedpc), Dt1(->ci), Dt1(->top), Dt1(->savedpc), Dt1(->stack), (ptrdiff_t)(luaD_precall), (ptrdiff_t)(luaV_execute), Dt1(->stack)); + dasm_put(Dst, 262, Dt1(->top), Dt3([LUA_MINSTACK]), Dt1(->stack_last), Dt1(->end_ci), Dt4([1]), Dt1(->ci), Dt4(->func), Dt4(->top), Dt2(->value), sizeof(TValue), Dt1(->top), Dt1(->base), Dt4(->base), DtD(->f), Dt1(->ci)); + dasm_put(Dst, 336, Dt4(->func), Dt1(->top), Dt4(->func), sizeof(CallInfo), Dt1(->ci), Dt1(->hookmask), LUA_MASKCALL, DtD(->f), Dt1(->hookmask), LUA_MASKRET); + dasm_put(Dst, 421, LUA_HOOKRET, (ptrdiff_t)(luaD_callhook), LUA_HOOKCALL, (ptrdiff_t)(luaD_callhook), Dt1(->top), Dt1(->stack), (ptrdiff_t)(luaD_growstack), Dt1(->stack), Dt1(->top), Dt2(->value), Dt5(->jit_gate), Dt1(->top), (ptrdiff_t)(luaD_growCI), Dt9([-1])); + dasm_put(Dst, 547, Dt2(->value), Dt1(->ci), Dt5(->jit_gate)); + dasm_put(Dst, 602, Dt1(->hookmask), LUA_MASKLINE|LUA_MASKCOUNT, Dt1(->hookcount), Dt1(->hookmask), LUA_MASKLINE, (ptrdiff_t)(jit_hookins), Dt1(->base), Dt1(->top)); + dasm_put(Dst, 737, (ptrdiff_t)(luaC_step), Dt1(->base)); + dasm_put(Dst, 1026, Dt3([0].tt), Dt3([1].tt), Dt3([2].tt), Dt3([1].value), Dt3([2].value), Dt3([0].value), DtB(->tsv.len), sizeof(TString)-1, Dt1(->l_G), Dt6(->totalbytes)); + dasm_put(Dst, 1129, Dt6(->GCthreshold), (ptrdiff_t)(luaS_newlstr)); + dasm_put(Dst, 1191, Dt3([0].tt), Dt3([1].tt), Dt3([1].value), Dt3([0].value), DtB(->tsv.len), (ptrdiff_t)(luaC_step), Dt1(->base), (ptrdiff_t)(luaS_newlstr)); + dasm_put(Dst, 1755, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->p), DtE(->code), Dt1(->savedpc), LUA_HOOKCALL, (ptrdiff_t)(luaD_callhook), DtE(->code), Dt1(->savedpc), Dt1(->base)); + dasm_put(Dst, 1886, Dt1(->savedpc), LUA_HOOKRET, (ptrdiff_t)(luaD_callhook), Dt1(->base), Dt1(->top)); + dasm_put(Dst, 2077, Dt1(->savedpc), Dt1(->top), (ptrdiff_t)(luaD_tryfuncTM), Dt1(->top), Dt2(->value), Dt1(->ci)); + dasm_put(Dst, 2178, Dt1(->savedpc), Dt1(->top), (ptrdiff_t)(luaD_tryfuncTM), Dt1(->ci), Dt1(->top), Dt4(->func), Dt4(->func), Dt2(->value), sizeof(CallInfo), Dt5(->jit_gate)); + dasm_put(Dst, 2570, (ptrdiff_t)(luaC_barrierf)); + dasm_put(Dst, 2589, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->env)); + dasm_put(Dst, 2609, Dt3(->tt), Dt3(->value), DtC(->lsizenode), DtB(->tsv.hash), DtC(->node), Dt10(->i_key.nk.tt), Dt10(->i_key.nk.value), Dt10(->i_val.tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2674, Dt10(->i_val.value), Dt2(->value)); + } else { + dasm_put(Dst, 2686, Dt10(->i_val.value), Dt10(->i_val.value.na[1]), Dt2(->value), Dt2(->value.na[1])); + } + dasm_put(Dst, 2699, Dt2(->tt), Dt1(->base), Dt10(->i_key.nk.next), DtC(->metatable), DtC(->flags), 1<base), Dt1(->env.value), Dt1(->env.tt), Dt1(->savedpc), (ptrdiff_t)(jit_gettable_fb), Dt1(->base)); + dasm_put(Dst, 32); + dasm_put(Dst, 2790, Dt3(->tt), Dt7(->tt), Dt3(->value), Dt7(->value)); + dasm_put(Dst, 2821, Dt1(->l_G), DtC(->marked), (~bitmask(BLACKBIT))&0xff, Dt6(->grayagain), Dt6(->grayagain), DtC(->gclist)); + dasm_put(Dst, 2843, Dt1(->ci), Dt4(->func), Dt3(->value), Dt5(->env)); + dasm_put(Dst, 2863, Dt3(->tt), Dt3(->value), DtC(->lsizenode), DtB(->tsv.hash), DtC(->node), Dt10(->i_key.nk.tt), Dt10(->i_key.nk.value), Dt10(->i_val.tt), DtC(->flags)); + dasm_put(Dst, 2935, DtC(->marked), bitmask(BLACKBIT)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2947, Dt2([0].tt), Dt2([0].value), Dt7([0].tt), Dt7([0].value)); + } else { + dasm_put(Dst, 2965, Dt2([0].value), Dt2([0].value.na[1]), Dt2([0].tt), Dt7([0].value), Dt7([0].value.na[1]), Dt7([0].tt)); + } + dasm_put(Dst, 2984, Dt1(->base), Dt10(->i_key.nk.next), DtC(->metatable), DtC(->flags), 1<env), Dt7([0].value), Dt7([0].tt), (ptrdiff_t)(luaH_newkey)); + dasm_put(Dst, 3066, DtC(->metatable), DtC(->flags), 1<env.value), Dt1(->env.tt), Dt1(->savedpc), (ptrdiff_t)(jit_settable_fb), Dt1(->base)); + dasm_put(Dst, 3127, Dt3(->tt), Dt7(->tt), Dt3(->value), Dt7(->value)); + dasm_put(Dst, 3438, (ptrdiff_t)(luaH_getnum), sizeof(TValue)); + dasm_put(Dst, 3476, (ptrdiff_t)(luaH_getnum)); + dasm_put(Dst, 3623, (ptrdiff_t)(luaH_setnum), sizeof(TValue)); + dasm_put(Dst, 3665, (ptrdiff_t)(luaH_setnum)); + dasm_put(Dst, 3992); + dasm_put(Dst, 4325, Dt2([0].tt), Dt2([1].tt), Dt1(->l_G), Dt2([0].value), Dt2([1].value), DtB(->tsv.len), DtB(->tsv.len), Dt6(->buff.buffsize), Dt6(->buff.buffer), sizeof(TString)); + dasm_put(Dst, 4396, DtB(->tsv.len), DtB([1]), Dt1(->base), (ptrdiff_t)(luaS_newlstr), Dt1(->base), Dt6(->buff), (ptrdiff_t)(luaZ_openspace)); + dasm_put(Dst, 561, Dt1(->top), Dt1(->savedpc), (ptrdiff_t)(luaJIT_deoptimize), Dt1(->base), Dt1(->top)); + + (void)dasm_checkstep(Dst, DASM_SECTION_CODE); + status = luaJIT_link(J, &J->jsubmcode, &J->szjsubmcode); + if (status != JIT_S_OK) + return status; + + /* Copy the callgates from the globals to the global state. */ + G(J->L)->jit_gateLJ = (luaJIT_GateLJ)J->jsub[JSUB_GATE_LJ]; + G(J->L)->jit_gateJL = (lua_CFunction)J->jsub[JSUB_GATE_JL]; + G(J->L)->jit_gateJC = (lua_CFunction)J->jsub[JSUB_GATE_JC]; + return JIT_S_OK; +} + +/* Match with number of nops above. Avoid confusing the instruction decoder. */ +#define DEBUGPATCH_SIZE 6 + +/* Notify backend that the debug mode may have changed. */ +void luaJIT_debugnotify(jit_State *J) +{ + unsigned char *patch = (unsigned char *)J->jsub[JSUB_GATE_JC_PATCH]; + unsigned char *target = (unsigned char *)J->jsub[JSUB_GATE_JC_DEBUG]; + /* Yep, this is self-modifying code -- don't tell anyone. */ + if (patch[0] == 0xe9) { /* Debug patch is active. */ + if (!(J->flags & JIT_F_DEBUG_CALL)) /* Deactivate it. */ + memcpy(patch, target-DEBUGPATCH_SIZE, DEBUGPATCH_SIZE); + } else { /* Debug patch is inactive. */ + if (J->flags & JIT_F_DEBUG_CALL) { /* Activate it. */ + int rel = target-(patch+5); + memcpy(target-DEBUGPATCH_SIZE, patch, DEBUGPATCH_SIZE); + patch[0] = 0xe9; /* jmp */ + memcpy(patch+1, &rel, 4); /* Relative address. */ + memset(patch+5, 0x90, DEBUGPATCH_SIZE-5); /* nop */ + } + } +} + +/* Patch a jmp into existing mcode. */ +static void jit_patch_jmp(jit_State *J, void *mcode, void *to) +{ + unsigned char *patch = (unsigned char *)mcode; + int rel = ((unsigned char *)to)-(patch+5); + patch[0] = 0xe9; /* jmp */ + memcpy((void *)(patch+1), &rel, 4); /* Relative addr. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Call line/count hook. */ +static void jit_hookins(lua_State *L, const Instruction *newpc) +{ + Proto *pt = ci_func(L->ci)->l.p; + int pc = luaJIT_findpc(pt, newpc); /* Sloooow with mcode addrs. */ + const Instruction *savedpc = L->savedpc; + L->savedpc = pt->code + pc + 1; + if (L->hookmask > LUA_MASKLINE && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (L->hookmask & LUA_MASKLINE) { + int newline = getline(pt, pc); + if (pc != 0) { + int oldpc = luaJIT_findpc(pt, savedpc); + if (!(pc <= oldpc || newline != getline(pt, oldpc))) return; + } + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + +/* Insert hook check for each instruction in full debug mode. */ +static void jit_ins_debug(jit_State *J, int openop) +{ + if (openop) { + dasm_put(Dst, 594, Dt1(->top)); + } + dasm_put(Dst, 598); + +} + +/* Called before every instruction. */ +static void jit_ins_start(jit_State *J) +{ + dasm_put(Dst, 663, J->nextpc); +} + +/* Chain to another instruction. */ +static void jit_ins_chainto(jit_State *J, int pc) +{ + dasm_put(Dst, 665, pc); +} + +/* Set PC label. */ +static void jit_ins_setpc(jit_State *J, int pc, void *target) +{ + dasm_put(Dst, 668, pc, (ptrdiff_t)(target)); +} + +/* Called after the last instruction has been encoded. */ +static void jit_ins_last(jit_State *J, int lastpc, int sizemfm) +{ + if (J->tflags & JIT_TF_USED_DEOPT) { /* Deopt section has been used? */ + dasm_put(Dst, 671); + dasm_put(Dst, 673); + } + dasm_put(Dst, 678, lastpc+1); + dasm_put(Dst, 681, lastpc+2); + dasm_put(Dst, 690, sizemfm); +} + +/* Add a deoptimize target for the current instruction. */ +static void jit_deopt_target(jit_State *J, int nargs) +{ + if (nargs != -1) { + dasm_put(Dst, 671); + dasm_put(Dst, 702, (ptrdiff_t)(J->nextins)); + J->tflags |= JIT_TF_USED_DEOPT; + } else { + dasm_put(Dst, 679); + dasm_put(Dst, 709, (ptrdiff_t)(J->nextins)); + } +} + +/* luaC_checkGC() inlined. Destroys caller-saves + TOP (edi). Uses label 7:. */ +/* Use this only at the _end_ of an instruction. */ +static void jit_checkGC(jit_State *J) +{ + dasm_put(Dst, 718, Dt1(->l_G), Dt6(->totalbytes), Dt6(->GCthreshold)); + +} + +/* ------------------------------------------------------------------------ */ + + + +/* +** Function inlining support for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* ------------------------------------------------------------------------ */ + +/* Private structure holding function inlining info. */ +typedef struct jit_InlineInfo { + int func; /* Function slot. 1st arg slot = func+1. */ + int res; /* 1st result slot. Overlaps func/ci->func. */ + int nargs; /* Number of args. */ + int nresults; /* Number of results. */ + int xnargs; /* Expected number of args. */ + int xnresults; /* Returned number of results. */ + int hidx; /* Library/function index numbers. */ +} jit_InlineInfo; + +/* ------------------------------------------------------------------------ */ + +enum { TFOR_FUNC, TFOR_TAB, TFOR_CTL, TFOR_KEY, TFOR_VAL }; + +static void jit_inline_base(jit_State *J, jit_InlineInfo *ii) +{ + int func = ii->func; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + dasm_put(Dst, 753, Dt2([func+TFOR_TAB].tt), Dt2([func+TFOR_CTL].tt), Dt2([func+TFOR_CTL].value)); + dasm_put(Dst, 771, JIT_MFM_DEOPT_PAIRS, J->nextpc-1); + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_DISABLE + +/* Helper function for inlined coroutine.resume(). */ +static StkId jit_coroutine_resume(lua_State *L, StkId base, int nresults) +{ + lua_State *co = thvalue(base-1); + /* Check for proper usage. Merge of lua_resume() and auxresume() checks. */ + if (co->status != LUA_YIELD) { + if (co->status > LUA_YIELD) { +errdead: + setsvalue(L, base-1, luaS_newliteral(L, "cannot resume dead coroutine")); + goto err; + } else if (co->ci != co->base_ci) { + setsvalue(L, base-1, + luaS_newliteral(L, "cannot resume non-suspended coroutine")); + goto err; + } else if (co->base == co->top) { + goto errdead; + } + } + { + ptrdiff_t ndelta = (char *)L->top - (char *)base; + int nargs = ndelta/sizeof(TValue); /* Compute nargs. */ + int status; + if ((char *)co->stack_last-(char *)co->top <= ndelta) { + co->ci->top = (StkId)(((char *)co->top) + ndelta); /* Ok before grow. */ + luaD_growstack(co, nargs); /* Grow thread stack. */ + } + /* Copy args. */ + co->top = (StkId)(((char *)co->top) + ndelta); + { StkId t = co->top, f = L->top; while (f > base) setobj2s(co, --t, --f); } + L->top = base; + status = luaCOCO_resume(co, nargs); /* Resume Coco thread. */ + if (status == 0 || status == LUA_YIELD) { /* Ok. */ + StkId f; + if (nresults == 0) return NULL; + if (nresults == -1) { + luaD_checkstack(L, co->top - co->base); /* Grow own stack. */ + } + base = L->top - 2; + setbvalue(base++, 1); /* true */ + /* Copy results. Fill unused result slots with nil. */ + f = co->base; + while (--nresults != 0 && f < co->top) setobj2s(L, base++, f++); + while (nresults-- > 0) setnilvalue(base++); + co->top = co->base; + return base; + } else { /* Error. */ + base = L->top; + setobj2s(L, base-1, co->top-1); /* Copy error object. */ +err: + setbvalue(base-2, 0); /* false */ + nresults -= 2; + while (--nresults >= 0) setnilvalue(base+nresults); /* Fill results. */ + return base; + } + } +} + +static void jit_inline_coroutine(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int i; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_COROUTINE_YIELD: + dasm_put(Dst, 775, ((int)&LHASCOCO((lua_State *)0)), Dt1(->savedpc), (ptrdiff_t)(J->nextins), arg*sizeof(TValue)); + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([ii->nargs])); + } + dasm_put(Dst, 795, Dt1(->base), Dt1(->top), (ptrdiff_t)(luaCOCO_yield), Dt1(->base), Dt1(->top)); + jit_assert(ii->nresults >= 0 && ii->nresults <= EXTRA_STACK); + for (i = 0; i < ii->nresults; i++) { + dasm_put(Dst, 813, Dt3([i].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([arg+i].tt), Dt2([arg+i].value), Dt2([res+i].tt), Dt2([res+i].value)); + } else { + dasm_put(Dst, 839, Dt2([arg+i].value), Dt2([arg+i].value.na[1]), Dt2([arg+i].tt), Dt2([res+i].value), Dt2([res+i].value.na[1]), Dt2([res+i].tt)); + } + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + case JIT_IH_COROUTINE_RESUME: + jit_assert(ii->nargs != 0 && ii->res == ii->func); + dasm_put(Dst, 787, (arg+1)*sizeof(TValue)); + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([ii->nargs-1])); + } else { + dasm_put(Dst, 858); + } + dasm_put(Dst, 865, Dt2([-1].tt), Dt2([-1].value), ((int)&LHASCOCO((lua_State *)0)), Dt1(->savedpc), (ptrdiff_t)(J->nextins), Dt1(->top), ii->nresults, (ptrdiff_t)(jit_coroutine_resume), Dt1(->base)); + if (ii->nresults == -1) { + dasm_put(Dst, 909); + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + default: + jit_assert(0); + break; + } +} + +#endif /* COCO_DISABLE */ + +/* ------------------------------------------------------------------------ */ + +static void jit_inline_string(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_STRING_LEN: + dasm_put(Dst, 912, Dt2([arg].tt), Dt2([arg].value), DtB(->tsv.len), Dt2([res].tt), Dt2([res].value)); + break; + case JIT_IH_STRING_SUB: + /* TODO: inline numeric constants with help from the optimizer. */ + /* But this would save only another 15-20% in a trivial loop. */ + jit_assert(ii->nargs >= 2); /* Open op caveat is ok, too. */ + if (ii->nargs > 2) { + dasm_put(Dst, 937, Dt2([arg]), Dt2([res].value), Dt2([res].tt)); + } else { + dasm_put(Dst, 954, Dt2([arg]), Dt2([res].value), Dt2([res].tt)); + } + break; + case JIT_IH_STRING_CHAR: + dasm_put(Dst, 971, Dt2([arg].tt), Dt1(->env), Dt2([arg].value), (ptrdiff_t)(luaS_newlstr), Dt2([res].value), Dt2([res].tt)); + break; + default: + jit_assert(0); + break; + } + +} + +/* ------------------------------------------------------------------------ */ + +/* Helper functions for inlined calls to table.*. */ +static void jit_table_insert(lua_State *L, TValue *arg) +{ + setobj2t(L, luaH_setnum(L, hvalue(arg), luaH_getn(hvalue(arg))+1), arg+1); + luaC_barriert(L, hvalue(arg), arg+1); +} + +static TValue *jit_table_remove(lua_State *L, TValue *arg, TValue *res) +{ + int n = luaH_getn(hvalue(arg)); + if (n == 0) { + setnilvalue(res); /* For the nresults == 1 case. Harmless otherwise. */ + return res; /* For the nresults == -1 case. */ + } else { + TValue *val = luaH_setnum(L, hvalue(arg), n); + setobj2s(L, res, val); + setnilvalue(val); + return res+1; /* For the nresults == -1 case. */ + } +} + +static void jit_inline_table(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + dasm_put(Dst, 1250, Dt2([arg].tt)); + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_TABLE_INSERT: + dasm_put(Dst, 1259, Dt2([arg]), (ptrdiff_t)(jit_table_insert)); + break; + case JIT_IH_TABLE_REMOVE: + dasm_put(Dst, 1272, Dt2([arg]), Dt2([res]), (ptrdiff_t)(jit_table_remove)); + if (ii->nresults == -1) { + ii->xnresults = -1; + dasm_put(Dst, 909); + } + break; + case JIT_IH_TABLE_GETN: + dasm_put(Dst, 1292, Dt2([arg].value), (ptrdiff_t)(luaH_getn), Dt2([res].value), Dt2([res].tt)); + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +/* This typedef must match the libm function signature. */ +/* Serves as a check against wrong lua_Number or wrong calling conventions. */ +typedef lua_Number (*mathfunc_11)(lua_Number); + +/* Partially inlined math functions. */ +/* CHECK: must match with jit_hints.h and jit.opt_lib. */ +static const mathfunc_11 jit_mathfuncs_11[JIT_IH_MATH_SIN] = { + log, log10, exp, sinh, cosh, tanh, asin, acos, atan +}; + +/* FPU control words for ceil and floor (exceptions masked, full precision). */ +static const unsigned short jit_fpucw[2] = { 0x0b7f, 0x077f }; + +static void jit_inline_math(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int idx = JIT_IH_IDX(ii->hidx); + + if (idx < JIT_IH_MATH__21) { + dasm_put(Dst, 1317, Dt2([arg].tt), Dt2([arg].value)); + } else { + jit_assert(idx < JIT_IH_MATH__LAST); + dasm_put(Dst, 1329, Dt2([arg].tt), Dt2([arg+1].tt)); + } + switch (idx) { + /* We ignore sin/cos/tan range overflows (2^63 rad) just like -ffast-math. */ + case JIT_IH_MATH_SIN: + dasm_put(Dst, 1347); + break; + case JIT_IH_MATH_COS: + dasm_put(Dst, 1351); + break; + case JIT_IH_MATH_TAN: + dasm_put(Dst, 1355); + break; + case JIT_IH_MATH_CEIL: + case JIT_IH_MATH_FLOOR: + dasm_put(Dst, 1361, (ptrdiff_t)&jit_fpucw[idx-JIT_IH_MATH_CEIL]); + break; + case JIT_IH_MATH_ABS: + dasm_put(Dst, 1374); + break; + case JIT_IH_MATH_SQRT: + dasm_put(Dst, 1377); + break; + case JIT_IH_MATH_FMOD: + dasm_put(Dst, 1381, Dt2([arg+1].value), Dt2([arg].value)); + break; + case JIT_IH_MATH_ATAN2: + dasm_put(Dst, 1402, Dt2([arg].value), Dt2([arg+1].value)); + break; + default: + dasm_put(Dst, 1412, (ptrdiff_t)(jit_mathfuncs_11[idx])); + break; + } + dasm_put(Dst, 926, Dt2([res].tt), Dt2([res].value)); +} + +/* ------------------------------------------------------------------------ */ + +/* Try to inline a CALL or TAILCALL instruction. */ +static int jit_inline_call(jit_State *J, int func, int nargs, int nresults) +{ + const TValue *callable = hint_get(J, TYPE); /* TYPE hint = callable. */ + int cltype = ttype(callable); + const TValue *oidx; + jit_InlineInfo ii; + int idx; + + if (cltype != LUA_TFUNCTION) goto fail; + if (J->flags & JIT_F_DEBUG) goto fail; /* DWIM. */ + + oidx = hint_get(J, INLINE); /* INLINE hint = library/function index. */ + if (!ttisnumber(oidx)) goto fail; + + ii.hidx = (int)nvalue(oidx); + idx = JIT_IH_IDX(ii.hidx); + + if (nresults == -2) { /* Tailcall. */ + /* Tailcalls from vararg functions don't work with BASE[-1]. */ + if (J->pt->is_vararg) goto fail; /* So forget about this rare case. */ + ii.res = -1; /* Careful: 2nd result overlaps 1st stack slot. */ + ii.nresults = -1; + } else { + ii.res = func; + ii.nresults = nresults; + } + ii.func = func; + ii.nargs = nargs; + ii.xnargs = ii.xnresults = 1; /* Default: 1 arg, 1 result. */ + + /* Check for the currently supported cases. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: + switch (idx) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + if (nresults == -2) goto fail; /* Not useful for tailcalls. */ + ii.xnresults = 3; + goto check; + } + break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: + switch (idx) { + case JIT_IH_COROUTINE_YIELD: + /* Only support common cases: no tailcalls, low number of results. */ + if (nresults < 0 || nresults > EXTRA_STACK) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + case JIT_IH_COROUTINE_RESUME: + /* Only support common cases: no tailcalls, not with 0 args (error). */ + if (nresults == -2 || nargs == 0) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + } + break; +#endif + case JIT_IHLIB_STRING: + switch (idx) { + case JIT_IH_STRING_LEN: + goto check; + case JIT_IH_STRING_SUB: + if (nargs < 2) goto fail; /* No support for open calls, too. */ + goto ok; /* 2 or more args are ok. */ + case JIT_IH_STRING_CHAR: + goto check; /* Only single arg supported. */ + } + break; + case JIT_IHLIB_TABLE: + switch (idx) { + case JIT_IH_TABLE_INSERT: + ii.xnargs = 2; + goto check; /* Only push (append) supported. */ + case JIT_IH_TABLE_REMOVE: + goto check; /* Only pop supported. */ + case JIT_IH_TABLE_GETN: + goto check; + } + break; + case JIT_IHLIB_MATH: + if (idx >= JIT_IH_MATH__LAST) goto fail; + if (idx >= JIT_IH_MATH__21) ii.xnargs = 2; + goto check; + } +fail: + return cltype; /* Call could not be inlined. Return type of callable. */ + +check: + if (nargs != ii.xnargs && nargs != -1) goto fail; + /* The optimizer already checks the number of results (avoid setnil). */ + +ok: /* Whew, all checks done. Go for it! */ + + /* Start with the common leadin for inlined calls. */ + jit_deopt_target(J, nargs); + dasm_put(Dst, 1418, Dt2([func].tt), Dt2([func].value), (ptrdiff_t)(clvalue(callable))); + if (nargs == -1 && ii.xnargs >= 0) { + dasm_put(Dst, 1435, Dt2([func+1+ii.xnargs])); + } + + /* Now inline the function itself. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: jit_inline_base(J, &ii); break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: jit_inline_coroutine(J, &ii); break; +#endif + case JIT_IHLIB_STRING: jit_inline_string(J, &ii); break; + case JIT_IHLIB_TABLE: jit_inline_table(J, &ii); break; + case JIT_IHLIB_MATH: jit_inline_math(J, &ii); break; + default: jit_assert(0); break; + } + + /* And add the common leadout for inlined calls. */ + if (ii.nresults == -1) { + if (ii.xnresults >= 0) { + dasm_put(Dst, 791, Dt2([ii.res+ii.xnresults])); + } + } else if (ii.nargs == -1) { /* Restore L->top only if needed. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } + + if (nresults == -2) { /* Results are in place. Add return for tailcalls. */ + dasm_put(Dst, 1452, sizeof(TValue), Dt1(->ci), sizeof(CallInfo)); + } + + return -1; /* Success, call has been inlined. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Helper function for inlined iterator code. Paraphrased from luaH_next. */ +/* TODO: GCC has trouble optimizing this. */ +static int jit_table_next(lua_State *L, TValue *ra) +{ + Table *t = hvalue(&ra[TFOR_TAB]); + int i = ra[TFOR_CTL].value.b; /* Hidden control variable. */ + for (; i < t->sizearray; i++) { /* First the array part. */ + if (!ttisnil(&t->array[i])) { + setnvalue(&ra[TFOR_KEY], cast_num(i+1)); + setobj2s(L, &ra[TFOR_VAL], &t->array[i]); + ra[TFOR_CTL].value.b = i+1; + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* Then the hash part. */ + if (!ttisnil(gval(gnode(t, i)))) { + setobj2s(L, &ra[TFOR_KEY], key2tval(gnode(t, i))); + setobj2s(L, &ra[TFOR_VAL], gval(gnode(t, i))); + ra[TFOR_CTL].value.b = i+1+t->sizearray; + return 1; + } + } + return 0; /* End of iteration. */ +} + +/* Try to inline a TFORLOOP instruction. */ +static int jit_inline_tforloop(jit_State *J, int ra, int nresults, int target) +{ + const TValue *oidx = hint_get(J, INLINE); /* INLINE hint = lib/func idx. */ + int idx; + + if (!ttisnumber(oidx)) return 0; /* No hint: don't inline anything. */ + idx = (int)nvalue(oidx); + if (J->flags & JIT_F_DEBUG) return 0; /* DWIM. */ + + switch (idx) { + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_PAIRS): + dasm_put(Dst, 1465, Dt2([ra]), (ptrdiff_t)(jit_table_next), target); + return 1; /* Success, iterator has been inlined. */ + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_IPAIRS): + dasm_put(Dst, 1483, Dt2([ra+TFOR_CTL].value), Dt2([ra+TFOR_TAB].value), Dt2([ra+TFOR_CTL].value), (ptrdiff_t)(luaH_getnum), Dt7(->tt), Dt2([ra+TFOR_CTL].value), Dt2([ra+TFOR_KEY].tt), Dt2([ra+TFOR_KEY].value), Dt7(->value), Dt7(->value.na[1]), Dt2([ra+TFOR_VAL].tt), Dt2([ra+TFOR_VAL].value), Dt2([ra+TFOR_VAL].value.na[1]), target); + return 1; /* Success, iterator has been inlined. */ + } + + return 0; /* No support for inlining any other iterators. */ +} + +/* ------------------------------------------------------------------------ */ + + + +#ifdef LUA_COMPAT_VARARG +static void jit_vararg_table(lua_State *L) +{ + Table *tab; + StkId base, func; + int i, num, numparams; + luaC_checkGC(L); + base = L->base; + func = L->ci->func; + numparams = clvalue(func)->l.p->numparams; + num = base - func - numparams - 1; + tab = luaH_new(L, num, 1); + for (i = 0; i < num; i++) + setobj2n(L, luaH_setnum(L, tab, i+1), base - num + i); + setnvalue(luaH_setstr(L, tab, luaS_newliteral(L, "n")), (lua_Number)num); + sethvalue(L, base + numparams, tab); +} +#endif + +/* Encode JIT function prologue. */ +static void jit_prologue(jit_State *J) +{ + Proto *pt = J->pt; + int numparams = pt->numparams; + int stacksize = pt->maxstacksize; + + dasm_put(Dst, 1544, Dt3([stacksize]), Dt1(->stack_last), Dt1(->end_ci), Dt4([1]), Dt4(->func), sizeof(TValue), Dt1(->ci)); + + if (numparams > 0) { + dasm_put(Dst, 1580, Dt2([numparams])); + } + + if (!pt->is_vararg) { /* Fixarg function. */ + /* Must cap L->top at L->base+numparams because 1st LOADNIL is omitted. */ + if (numparams == 0) { + dasm_put(Dst, 1586); + } else if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 1589); + } else { + dasm_put(Dst, 1594); + } + dasm_put(Dst, 1603, Dt2([stacksize]), Dt4(->tailcalls), Dt4(->top), Dt1(->top), Dt1(->base), Dt4(->base)); + } else { /* Vararg function. */ + int i; + if (numparams > 0) { + dasm_put(Dst, 1622); + dasm_put(Dst, 1630, Dt3(->tt), sizeof(TValue)); + } + dasm_put(Dst, 1649, Dt1(->base), Dt4(->base), Dt4(->tailcalls)); + for (i = 0; i < numparams; i++) { /* Move/clear fixargs. */ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 1659, Dt2([i].tt), Dt2([i].value), Dt3([i].tt), Dt3([i].value)); + } else { + dasm_put(Dst, 1677, Dt2([i].value), Dt2([i].value.na[1]), Dt3([i].value), Dt2([i].tt), Dt3([i].value.na[1]), Dt3([i].tt)); + } + dasm_put(Dst, 854, Dt2([i].tt)); + } + if (numparams > 0) { + dasm_put(Dst, 332, Dt1(->ci)); + } + dasm_put(Dst, 1696, Dt2([stacksize]), Dt2([numparams]), Dt4(->top), Dt1(->top)); + stacksize -= numparams; /* Fixargs are already cleared. */ + } + + /* Clear undefined args and all vars. Still assumes eax = LUA_TNIL = 0. */ + /* Note: cannot clear only args because L->top has grown. */ + if (stacksize <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < stacksize; i++) { + dasm_put(Dst, 1712, Dt3([i].tt)); + } + } else { /* Standard loop. */ + dasm_put(Dst, 1716, Dt3([0].tt), Dt3([1].tt), 2*sizeof(TValue)); + } + +#ifdef LUA_COMPAT_VARARG + if (pt->is_vararg & VARARG_NEEDSARG) { + dasm_put(Dst, 1734, (ptrdiff_t)(jit_vararg_table)); + } +#endif + + /* Call hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + dasm_put(Dst, 1740, Dt1(->hookmask), LUA_MASKCALL); + + } +} + +/* Check if we can combine 'return const'. */ +static int jit_return_k(jit_State *J) +{ + if (!J->combine) return 0; /* COMBINE hint set? */ + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + if (!J->pt->is_vararg) { /* Fixarg function. */ + dasm_put(Dst, 1830, Dt1(->ci), sizeof(CallInfo), sizeof(TValue)); + } else { /* Vararg function. */ + dasm_put(Dst, 1844, Dt1(->ci), Dt4(->func), sizeof(CallInfo), Dt1(->ci), Dt2([1])); + } + jit_assert(J->combine == 1); /* Required to skip next RETURN instruction. */ + return 1; +} + +static void jit_op_return(jit_State *J, int rbase, int nresults) +{ + /* Return hook check. */ + if (J->flags & JIT_F_DEBUG_CALL) { + if (nresults < 0 && !(J->flags & JIT_F_DEBUG_INS)) { + dasm_put(Dst, 594, Dt1(->top)); + } + dasm_put(Dst, 1863, Dt1(->hookmask), LUA_MASKRET); + if (J->flags & JIT_F_DEBUG_INS) { + dasm_put(Dst, 1878, Dt1(->savedpc)); + } + + } + + /* May need to close open upvalues. */ + if (!fhint_isset(J, NOCLOSE)) { + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + + /* Previous op was open: 'return f()' or 'return ...' */ + if (nresults < 0) { + dasm_put(Dst, 332, Dt1(->ci)); + if (rbase) { + dasm_put(Dst, 787, rbase*sizeof(TValue)); + } + dasm_put(Dst, 1933, Dt4(->func), Dt4(->func), sizeof(CallInfo), Dt1(->ci)); + return; + } + + if (!J->pt->is_vararg) { /* Fixarg function, nresults >= 0. */ + int i; + dasm_put(Dst, 1980, Dt1(->ci), sizeof(CallInfo), sizeof(TValue)); + for (i = 0; i < nresults; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([rbase+i+1].tt), Dt2([rbase+i+1].value), Dt2([i].tt), Dt2([i].value)); + } else { + dasm_put(Dst, 839, Dt2([rbase+i+1].value), Dt2([rbase+i+1].value.na[1]), Dt2([rbase+i+1].tt), Dt2([i].value), Dt2([i].value.na[1]), Dt2([i].tt)); + } + } + dasm_put(Dst, 1989, Dt2([nresults])); + } else { /* Vararg function, nresults >= 0. */ + int i; + dasm_put(Dst, 1997, Dt1(->ci), Dt4(->func), sizeof(CallInfo), Dt1(->ci)); + for (i = 0; i < nresults; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 1659, Dt2([rbase+i].tt), Dt2([rbase+i].value), Dt3([i].tt), Dt3([i].value)); + } else { + dasm_put(Dst, 2010, Dt2([rbase+i].value), Dt2([rbase+i].value.na[1]), Dt2([rbase+i].tt), Dt3([i].value), Dt3([i].value.na[1]), Dt3([i].tt)); + } + } + dasm_put(Dst, 2029); + if (nresults) { + dasm_put(Dst, 2036, nresults*sizeof(TValue)); + } + dasm_put(Dst, 32); + } +} + +static void jit_op_call(jit_State *J, int func, int nargs, int nresults) +{ + int cltype = jit_inline_call(J, func, nargs, nresults); + if (cltype < 0) return; /* Inlined? */ + + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + dasm_put(Dst, 2040, Dt1(->ci), Dt2([0].tt)); + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + dasm_put(Dst, 791, Dt2([1+nargs])); + } + dasm_put(Dst, 2048, Dt2(->value), (ptrdiff_t)(J->nextins), Dt4(->savedpc)); + if (cltype == LUA_TFUNCTION) { + if (nargs == -1) { + dasm_put(Dst, 2057); + } else { + dasm_put(Dst, 2062); + } + } else { + dasm_put(Dst, 2067); + + } + dasm_put(Dst, 2116, Dt5(->jit_gate)); + if (func) { + dasm_put(Dst, 1984, func*sizeof(TValue)); + } + dasm_put(Dst, 2121, Dt1(->base)); + + /* Clear undefined results TOP <= o < func+nresults. */ + if (nresults > 0) { + dasm_put(Dst, 2125); + if (nresults <= EXTRA_STACK) { /* Loopless clear. May use EXTRA_STACK. */ + int i; + for (i = 0; i < nresults; i++) { + dasm_put(Dst, 1712, Dt3([i].tt)); + } + } else { /* Standard loop. TODO: move to .tail? */ + dasm_put(Dst, 2128, Dt2([func+nresults]), Dt3([0].tt), Dt3([1].tt), 2*sizeof(TValue)); + } + } + + if (nresults >= 0) { /* Not an open ins. Restore L->top. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } /* Otherwise keep TOP for next instruction. */ +} + +static void jit_op_tailcall(jit_State *J, int func, int nargs) +{ + int cltype; + + if (!fhint_isset(J, NOCLOSE)) { /* May need to close open upvalues. */ + dasm_put(Dst, 1820, (ptrdiff_t)(luaF_close)); + } + + cltype = jit_inline_call(J, func, nargs, -2); + if (cltype < 0) goto finish; /* Inlined? */ + + if (cltype == LUA_TFUNCTION) { + jit_deopt_target(J, nargs); + dasm_put(Dst, 2149, Dt2([func].tt)); + } else { + dasm_put(Dst, 2158, Dt2([func].tt)); + dasm_put(Dst, 2168); + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + if (nargs >= 0) { + dasm_put(Dst, 791, Dt2([1+nargs])); + } + dasm_put(Dst, 2171, (ptrdiff_t)(J->nextins)); + + } + + if (nargs >= 0) { /* Previous op was not open and did not set TOP. */ + int i; + /* Relocate [BASE+func, BASE+func+nargs] -> [ci->func, ci->func+nargs]. */ + /* TODO: loop for large nargs? */ + if (!J->pt->is_vararg) { /* Fixarg function. */ + dasm_put(Dst, 2241, Dt2([func].value)); + for (i = 0; i < nargs; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([func+1+i].tt), Dt2([func+1+i].value), Dt2([i].tt), Dt2([i].value)); + } else { + dasm_put(Dst, 2245, Dt2([func+1+i].value), Dt2([func+1+i].value.na[1]), Dt2([i].value), Dt2([func+1+i].tt), Dt2([i].value.na[1]), Dt2([i].tt)); + } + } + dasm_put(Dst, 2264, Dt2([nargs]), sizeof(TValue), Dt1(->ci), Dt2(->value)); + } else { /* Vararg function. */ + dasm_put(Dst, 2278, Dt1(->ci), Dt2([func]), Dt4(->func), Dt3(->value), Dt2(->value)); + for (i = 0; i < nargs; i++) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2294, Dt3([i+1].tt), Dt3([i+1].value), Dt2([i+1].tt), Dt2([i+1].value)); + } else { + dasm_put(Dst, 2312, Dt3([i+1].value), Dt3([i+1].value.na[1]), Dt2([i+1].value), Dt3([i+1].tt), Dt2([i+1].value.na[1]), Dt2([i+1].tt)); + } + } + dasm_put(Dst, 2331, Dt2([1+nargs]), Dt2(->value)); + } + } else { /* Previous op was open and set TOP. */ + dasm_put(Dst, 332, Dt1(->ci)); + if (func) { + dasm_put(Dst, 787, func*sizeof(TValue)); + } + dasm_put(Dst, 2338, Dt4(->func), Dt4(->func), Dt2(->value)); + } + dasm_put(Dst, 2230, sizeof(CallInfo), Dt5(->jit_gate)); + +finish: + J->combine++; /* Combine with following return instruction. */ +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_move(jit_State *J, int dest, int src) +{ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([src].tt), Dt2([src].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 839, Dt2([src].value), Dt2([src].value.na[1]), Dt2([src].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } +} + +static void jit_op_loadk(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + int rk = jit_return_k(J); + if (rk) dest = 0; + switch (ttype(kk)) { + case 0: + dasm_put(Dst, 2369, Dt2([dest].tt)); + break; + case 1: + if (bvalue(kk)) { /* true */ + dasm_put(Dst, 2377, Dt2([dest].value), Dt2([dest].tt)); + } else { /* false */ + dasm_put(Dst, 2389, Dt2([dest].value), Dt2([dest].tt)); + } + break; + case 3: { + if ((&(kk)->value)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((&(kk)->value)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, &(kk)->value); + } + dasm_put(Dst, 1306, Dt2([dest].value), Dt2([dest].tt)); + break; + } + case 4: + dasm_put(Dst, 2415, Dt2([dest].value), (ptrdiff_t)(gcvalue(kk)), Dt2([dest].tt)); + break; + default: lua_assert(0); break; + } + if (rk) { + dasm_put(Dst, 32); + } +} + +static void jit_op_loadnil(jit_State *J, int first, int last) +{ + int idx, num = last - first + 1; + int rk = jit_return_k(J); + dasm_put(Dst, 2125); + if (rk) { + dasm_put(Dst, 2427, Dt2([0].tt)); + } else if (num <= 8) { + for (idx = first; idx <= last; idx++) { + dasm_put(Dst, 854, Dt2([idx].tt)); + } + } else { + dasm_put(Dst, 2432, Dt2([first].tt), Dt2([last].tt), sizeof(TValue)); + } +} + +static void jit_op_loadbool(jit_State *J, int dest, int b, int dojump) +{ + int rk = jit_return_k(J); + if (rk) dest = 0; + if (b) { /* true */ + dasm_put(Dst, 2377, Dt2([dest].value), Dt2([dest].tt)); + } else { /* false */ + dasm_put(Dst, 2389, Dt2([dest].value), Dt2([dest].tt)); + } + if (rk) { + dasm_put(Dst, 32); + } else if (dojump) { + const TValue *h = hint_getpc(J, COMBINE, J->nextpc); + if (!(ttisboolean(h) && bvalue(h) == 0)) { /* Avoid jmp around dead ins. */ + dasm_put(Dst, 665, J->nextpc+1); + } + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_getupval(jit_State *J, int dest, int uvidx) +{ + if (!J->pt->is_vararg) { + dasm_put(Dst, 2241, Dt2([-1].value)); + } else { + dasm_put(Dst, 2452, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 2462, Dt5(->upvals[uvidx]), DtF(->v)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2469, Dt3([0].tt), Dt3([0].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 2487, Dt3([0].value), Dt3([0].value.na[1]), Dt3([0].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } +} + +static void jit_op_setupval(jit_State *J, int src, int uvidx) +{ + if (!J->pt->is_vararg) { + dasm_put(Dst, 2241, Dt2([-1].value)); + } else { + dasm_put(Dst, 2452, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 2506, Dt5(->upvals[uvidx]), DtF(->v), Dt2([src].tt), Dt2([src].value), Dt3(->tt), Dt2([src].value.na[1]), Dt3(->value), Dt3(->value.na[1])); + dasm_put(Dst, 2542, DtA(->gch.marked), WHITEBITS, DtF(->marked), bitmask(BLACKBIT)); + +} + +/* ------------------------------------------------------------------------ */ + +/* Optimized table lookup routines. Enter via jsub, fallback to C. */ + +/* Fallback for GETTABLE_*. Temporary key is in L->env. */ +static void jit_gettable_fb(lua_State *L, Table *t, StkId dest) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_INDEX]); + if (ttisnil(tm)) { /* No __index method? */ + mt->flags |= 1<top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + dest = restorestack(L, destr); + L->top--; + setobjs2s(L, dest, L->top); + } else { /* Let luaV_gettable() continue with the __index object. */ + luaV_gettable(L, tm, &L->env, dest); + } + +} + +/* Fallback for SETTABLE_*STR. Temporary (string) key is in L->env. */ +static void jit_settable_fb(lua_State *L, Table *t, StkId val) +{ + Table *mt = t->metatable; + const TValue *tm = luaH_getstr(mt, G(L)->tmname[TM_NEWINDEX]); + if (ttisnil(tm)) { /* No __newindex method? */ + mt->flags |= 1<flags = 0; /* But need to clear the cache for the table itself. */ + setobj2t(L, luaH_setstr(L, t, rawtsvalue(&L->env)), val); + luaC_barriert(L, t, val); + } else if (ttisfunction(tm)) { /* __newindex function? */ + setobj2s(L, L->top, tm); + sethvalue(L, L->top+1, t); + setobj2s(L, L->top+2, &L->env); + setobj2s(L, L->top+3, val); + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); + } else { /* Let luaV_settable() continue with the __newindex object. */ + luaV_settable(L, tm, &L->env, val); + } + +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_newtable(jit_State *J, int dest, int lnarray, int lnhash) +{ + dasm_put(Dst, 3158, luaO_fb2int(lnarray), luaO_fb2int(lnhash), (ptrdiff_t)(luaH_new), Dt2([dest].value), Dt2([dest].tt)); + jit_checkGC(J); +} + +static void jit_op_getglobal(jit_State *J, int dest, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + dasm_put(Dst, 3184, (ptrdiff_t)(&kk->value.gc->ts)); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3187); +} + +static void jit_op_setglobal(jit_State *J, int rval, int kidx) +{ + const TValue *kk = &J->pt->k[kidx]; + jit_assert(ttisstring(kk)); + dasm_put(Dst, 3184, (ptrdiff_t)(&kk->value.gc->ts)); + if (rval) { + dasm_put(Dst, 787, rval*sizeof(TValue)); + } + dasm_put(Dst, 3191); +} + +enum { TKEY_KSTR = -2, TKEY_STR = -1, TKEY_ANY = 0 }; + +/* Optimize key lookup depending on consts or hints type. */ +static int jit_keylookup(jit_State *J, int tab, int rkey) +{ + const TValue *tabt = hint_get(J, TYPE); + const TValue *key; + if (!ttistable(tabt)) return TKEY_ANY; /* Not a table? Use fallback. */ + key = ISK(rkey) ? &J->pt->k[INDEXK(rkey)] : hint_get(J, TYPEKEY); + if (ttisstring(key)) { /* String key? */ + if (ISK(rkey)) { + dasm_put(Dst, 3195, Dt2([tab]), (ptrdiff_t)(&key->value.gc->ts)); + return TKEY_KSTR; /* Const string key. */ + } else { + dasm_put(Dst, 3201, Dt2([tab]), Dt2([rkey])); + return TKEY_STR; /* Var string key. */ + } + } else if (ttisnumber(key)) { /* Number key? */ + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (!(k >= 1 && k < (1 << 26) && (lua_Number)k == n)) + return TKEY_ANY; /* Not a proper array key? Use fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3208, Dt2([tab].tt), Dt2([tab].value), k, DtC(->array), DtC(->sizearray)); + return k; /* Const array key (>= 1). */ + } else { + dasm_put(Dst, 3232, Dt2([tab].tt), Dt2([rkey].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 3250, Dt2([rkey]), Dt2([tab].value)); + } else { + dasm_put(Dst, 3283, Dt2([rkey].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 3304, Dt2([tab].value)); + } + dasm_put(Dst, 3320, DtC(->sizearray), DtC(->array)); + return 1; /* Variable array key. */ + } + } + return TKEY_ANY; /* Use fallback. */ +} + +static void jit_op_gettable(jit_State *J, int dest, int tab, int rkey) +{ + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3334); + break; + case TKEY_STR: /* Variable string key. */ + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3338); + break; + case TKEY_ANY: /* Generic gettable fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3342, (ptrdiff_t)(&J->pt->k[INDEXK(rkey)])); + } else { + dasm_put(Dst, 3204, Dt2([rkey])); + } + dasm_put(Dst, 3345, Dt2([tab])); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 3349, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_gettable), Dt1(->base)); + break; + default: /* Array key. */ + dasm_put(Dst, 3366, Dt7([k-1].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2674, Dt7([k-1].value), Dt2([dest].value)); + } else { + dasm_put(Dst, 3378, Dt7([k-1].value), Dt7([k-1].value.na[1]), Dt2([dest].value), Dt2([dest].value.na[1])); + } + dasm_put(Dst, 3391, Dt2([dest].tt)); + dasm_put(Dst, 2168); + if (ISK(rkey)) { + dasm_put(Dst, 3398); + } else { + dasm_put(Dst, 3402); + } + dasm_put(Dst, 3406, DtC(->metatable), DtC(->flags), 1<nextins)); + break; + } + +} + +static void jit_op_settable(jit_State *J, int tab, int rkey, int rval) +{ + const TValue *val = ISK(rval) ? &J->pt->k[INDEXK(rval)] : NULL; + int k = jit_keylookup(J, tab, rkey); + switch (k) { + case TKEY_KSTR: /* Const string key. */ + case TKEY_STR: /* Variable string key. */ + if (ISK(rval)) { + dasm_put(Dst, 3492, (ptrdiff_t)(val)); + } else { + if (rval) { + dasm_put(Dst, 787, rval*sizeof(TValue)); + } + } + if (k == TKEY_KSTR) { + dasm_put(Dst, 3495); + } else { + dasm_put(Dst, 3499); + } + break; + case TKEY_ANY: /* Generic settable fallback. */ + if (ISK(rkey)) { + dasm_put(Dst, 3342, (ptrdiff_t)(&J->pt->k[INDEXK(rkey)])); + } else { + dasm_put(Dst, 3204, Dt2([rkey])); + } + if (ISK(rval)) { + dasm_put(Dst, 3184, (ptrdiff_t)(val)); + } else { + dasm_put(Dst, 3345, Dt2([rval])); + } + if (tab) { + dasm_put(Dst, 787, tab*sizeof(TValue)); + } + dasm_put(Dst, 3503, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_settable), Dt1(->base)); + break; + default: /* Array key. */ + dasm_put(Dst, 3520, Dt7([k-1].tt)); + dasm_put(Dst, 2168); + if (ISK(rkey)) { + dasm_put(Dst, 3534); + } else { + dasm_put(Dst, 3538); + } + dasm_put(Dst, 3406, DtC(->metatable), DtC(->flags), 1<nextins)); + if (!ISK(rval) || iscollectable(val)) { + dasm_put(Dst, 3542, DtC(->marked), bitmask(BLACKBIT)); + dasm_put(Dst, 3555); + } + if (ISK(rval)) { + switch (ttype(val)) { + case 0: + dasm_put(Dst, 3565, Dt7([k-1].tt)); + break; + case 1: + if (bvalue(val)) { /* true */ + dasm_put(Dst, 3573, Dt7([k-1].value), Dt7([k-1].tt)); + } else { /* false */ + dasm_put(Dst, 3585, Dt7([k-1].value), Dt7([k-1].tt)); + } + break; + case 3: { + if ((&(val)->value)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((&(val)->value)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, &(val)->value); + } + dasm_put(Dst, 3600, Dt7([k-1].value), Dt7([k-1].tt)); + break; + } + case 4: + dasm_put(Dst, 3611, Dt7([k-1].value), (ptrdiff_t)(gcvalue(val)), Dt7([k-1].tt)); + break; + default: lua_assert(0); break; + } + } else { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 2947, Dt2([rval].tt), Dt2([rval].value), Dt7([k-1].tt), Dt7([k-1].value)); + } else { + dasm_put(Dst, 2965, Dt2([rval].value), Dt2([rval].value.na[1]), Dt2([rval].tt), Dt7([k-1].value), Dt7([k-1].value.na[1]), Dt7([k-1].tt)); + } + } + break; + } + +} + +static void jit_op_self(jit_State *J, int dest, int tab, int rkey) +{ + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([tab].tt), Dt2([tab].value), Dt2([dest+1].tt), Dt2([dest+1].value)); + } else { + dasm_put(Dst, 839, Dt2([tab].value), Dt2([tab].value.na[1]), Dt2([tab].tt), Dt2([dest+1].value), Dt2([dest+1].value.na[1]), Dt2([dest+1].tt)); + } + jit_op_gettable(J, dest, tab, rkey); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_setlist(jit_State *J, int ra, int num, int batch) +{ + if (batch == 0) { batch = (int)(*J->nextins); J->combine++; } + batch = (batch-1)*LFIELDS_PER_FLUSH; + if (num == 0) { /* Previous op was open and set TOP: {f()} or {...}. */ + dasm_put(Dst, 3685, Dt1(->env.value), Dt2([ra+1]), Dt2([ra].value)); + if (batch > 0) { + dasm_put(Dst, 3709, batch); + } + dasm_put(Dst, 3713, DtC(->sizearray), (ptrdiff_t)(luaH_resizearray), DtC(->marked), bitmask(BLACKBIT), DtC(->array), Dt1(->env.value)); + dasm_put(Dst, 3752); + } else { /* Set fixed number of args. */ + dasm_put(Dst, 3762, Dt2([ra].value), DtC(->sizearray), batch+num, DtC(->marked), bitmask(BLACKBIT), DtC(->array), Dt2([ra+1+num])); + dasm_put(Dst, 3792, batch+num, (ptrdiff_t)(luaH_resizearray)); + } + if (batch > 0) { + dasm_put(Dst, 3821, batch*sizeof(TValue)); + } + dasm_put(Dst, 3825, Dt2([ra+1])); + if (num == 0) { /* Previous op was open. Restore L->top. */ + dasm_put(Dst, 1445, Dt2([J->pt->maxstacksize]), Dt1(->top)); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_arith(jit_State *J, int dest, int rkb, int rkc, int ev) +{ + const TValue *kkb = ISK(rkb) ? &J->pt->k[INDEXK(rkb)] : NULL; + const TValue *kkc = ISK(rkc) ? &J->pt->k[INDEXK(rkc)] : NULL; + const Value *kval; + int idx, rev; + int target = (ev == TM_LT || ev == TM_LE) ? jit_jmp_target(J) : 0; + int hastail = 0; + + /* The bytecode compiler already folds constants except for: k/0, k%0, */ + /* NaN results, k1value; idx = rkb; rev = 1; } + else { kval = kkb ? &kkb->value : NULL; idx = rkc; rev = 0; } + + /* Special handling for some operators. */ + switch (ev) { + case TM_MOD: + /* Check for modulo with positive numbers, so we can use fprem. */ + if (kval) { + if (kval->na[1] < 0) { hastail = 0; goto fallback; } /* x%-k, -k%x */ + dasm_put(Dst, 3850, Dt2([idx].tt), Dt2([idx].value.na[1])); + if (kkb) { + dasm_put(Dst, 3868, Dt2([rkc].value), kval); + } else { + dasm_put(Dst, 3875, kval, Dt2([rkb].value)); + } + } else { + dasm_put(Dst, 3882, Dt2([rkb].tt), Dt2([rkc].tt), Dt2([rkb].value.na[1]), Dt2([rkc].value.na[1]), Dt2([rkc].value), Dt2([rkb].value)); + } + dasm_put(Dst, 1387); + goto fpstore; + case TM_POW: + if (hastail || !kval) break; /* Avoid this if not optimizing. */ + if (rev) { /* x^k for k > 0, k integer. */ + lua_Number n = kval->n; + int k; + lua_number2int(k, n); + /* All positive integers would work. But need to limit code explosion. */ + if (k > 0 && k <= 65536 && (lua_Number)k == n) { + dasm_put(Dst, 3916, Dt2([idx].tt), Dt2([idx])); + for (; (k & 1) == 0; k >>= 1) { /* Handle leading zeroes (2^k). */ + dasm_put(Dst, 3928); + } + if ((k >>= 1) != 0) { /* Handle trailing bits. */ + dasm_put(Dst, 3931); + for (; k != 1; k >>= 1) { + if (k & 1) { + dasm_put(Dst, 3936); + } + dasm_put(Dst, 3928); + } + dasm_put(Dst, 3939); + } + goto fpstore; + } + } else if (kval->n > (lua_Number)0) { /* k^x for k > 0. */ + int log2kval[3]; /* Enough storage for a tword (80 bits). */ + log2kval[2] = 0; /* Avoid leaking garbage. */ + /* Double precision log2(k) doesn't cut it (3^x != 3 for x = 1). */ + ((void (*)(int *, double))J->jsub[JSUB_LOG2_TWORD])(log2kval, kval->n); + dasm_put(Dst, 3942, log2kval[0], log2kval[1], log2kval[2], Dt2([idx].tt), Dt2([idx].value)); + + goto fpstore; + } + break; + } + + /* Check number type and load 1st operand. */ + if (kval) { + dasm_put(Dst, 4013, Dt2([idx].tt)); + if ((kval)->n == (lua_Number)0) { + dasm_put(Dst, 2404); + } else if ((kval)->n == (lua_Number)1) { + dasm_put(Dst, 2408); + } else { + dasm_put(Dst, 2411, kval); + } + } else { + if (rkb == rkc) { + dasm_put(Dst, 4022, Dt2([rkb].tt)); + } else { + dasm_put(Dst, 4027, Dt2([rkb].tt), Dt2([rkc].tt)); + } + dasm_put(Dst, 3920, Dt2([rkb].value)); + } + + /* Encode arithmetic operation with 2nd operand. */ + switch ((ev<<1)+rev) { + case TM_ADD<<1: case (TM_ADD<<1)+1: + if (rkb == rkc) { + dasm_put(Dst, 4041); + } else { + dasm_put(Dst, 4044, Dt2([idx].value)); + } + break; + case TM_SUB<<1: + dasm_put(Dst, 4048, Dt2([idx].value)); + break; + case (TM_SUB<<1)+1: + dasm_put(Dst, 4052, Dt2([idx].value)); + break; + case TM_MUL<<1: case (TM_MUL<<1)+1: + if (rkb == rkc) { + dasm_put(Dst, 3928); + } else { + dasm_put(Dst, 4056, Dt2([idx].value)); + } + break; + case TM_DIV<<1: + dasm_put(Dst, 4060, Dt2([idx].value)); + break; + case (TM_DIV<<1)+1: + dasm_put(Dst, 4064, Dt2([idx].value)); + break; + case TM_POW<<1: + dasm_put(Dst, 4068, Dt2([idx].value), (ptrdiff_t)(pow)); + break; + case (TM_POW<<1)+1: + dasm_put(Dst, 4088, Dt2([idx].value), (ptrdiff_t)(pow)); + break; + case TM_UNM<<1: case (TM_UNM<<1)+1: + dasm_put(Dst, 4108); + break; + default: /* TM_LT or TM_LE. */ + dasm_put(Dst, 1325, Dt2([idx].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, dest?(J->nextpc+1):target); + jit_assert(dest == 0 || dest == 1); /* Really cond. */ + switch (((rev^dest)<<1)+(dest^(ev == TM_LT))) { + case 0: + dasm_put(Dst, 4115, target); + break; + case 1: + dasm_put(Dst, 4119, target); + break; + case 2: + dasm_put(Dst, 4123, target); + break; + case 3: + dasm_put(Dst, 4127, target); + break; + } + goto skipstore; + } +fpstore: + /* Store result and set result type (if necessary). */ + dasm_put(Dst, 933, Dt2([dest].value)); + if (dest != rkb && dest != rkc) { + dasm_put(Dst, 1309, Dt2([dest].tt)); + } + +skipstore: + if (!hastail) { + jit_deopt_target(J, 0); + return; + } + + dasm_put(Dst, 1626); + dasm_put(Dst, 1541); + +fallback: + /* Generic fallback for arithmetic ops. */ + if (kkb) { + dasm_put(Dst, 3342, (ptrdiff_t)(kkb)); + } else { + dasm_put(Dst, 3204, Dt2([rkb])); + } + if (kkc) { + dasm_put(Dst, 3184, (ptrdiff_t)(kkc)); + } else { + dasm_put(Dst, 3345, Dt2([rkc])); + } + if (target) { /* TM_LT or TM_LE. */ + dasm_put(Dst, 4131, Dt1(->savedpc), (ptrdiff_t)((J->nextins+1)), (ptrdiff_t)(ev==TM_LT?luaV_lessthan:luaV_lessequal), Dt1(->base)); + if (dest) { /* cond */ + dasm_put(Dst, 1479, target); + } else { + dasm_put(Dst, 4154, target); + } + } else { + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 4158, Dt1(->savedpc), (ptrdiff_t)(J->nextins), ev, (ptrdiff_t)(luaV_arith), Dt1(->base)); + } + + if (hastail) { + dasm_put(Dst, 1644); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_fallback_len(lua_State *L, StkId ra, const TValue *rb) +{ + switch (ttype(rb)) { + case LUA_TTABLE: + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + case LUA_TSTRING: + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + default: { + const TValue *tm = luaT_gettmbyobj(L, rb, TM_LEN); + if (ttisfunction(tm)) { + ptrdiff_t rasave = savestack(L, ra); + setobj2s(L, L->top, tm); + setobj2s(L, L->top+1, rb); + luaD_checkstack(L, 2); + L->top += 2; + luaD_call(L, L->top - 2, 1); + ra = restorestack(L, rasave); + L->top--; + setobjs2s(L, ra, L->top); + } else { + luaG_typeerror(L, rb, "get length of"); + } + break; + } + } +} + +static void jit_op_len(jit_State *J, int dest, int rb) +{ + switch (ttype(hint_get(J, TYPE))) { + case LUA_TTABLE: + jit_deopt_target(J, 0); + dasm_put(Dst, 4179, Dt2([rb].tt), Dt2([rb].value), (ptrdiff_t)(luaH_getn), Dt2([dest].value), Dt2([dest].tt)); + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + dasm_put(Dst, 4212, Dt2([rb].tt), Dt2([rb].value), DtB(->tsv.len), Dt2([dest].value), Dt2([dest].tt)); + break; + default: + dasm_put(Dst, 3204, Dt2([rb])); + if (dest) { + dasm_put(Dst, 787, dest*sizeof(TValue)); + } + dasm_put(Dst, 4237, Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(jit_fallback_len), Dt1(->base)); + break; + } +} + +static void jit_op_not(jit_State *J, int dest, int rb) +{ + /* l_isfalse() without a branch -- truly devious. */ + /* ((value & tt) | (tt>>1)) is only zero for nil/false. */ + /* Assumes: LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + dasm_put(Dst, 4258, Dt2([rb].tt), Dt2([rb].value), Dt2([dest].tt), Dt2([dest].value)); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_concat(jit_State *J, int dest, int first, int last) +{ + int num = last-first+1; + if (num == 2 && ttisstring(hint_get(J, TYPE))) { /* Optimize common case. */ + if (first) { + dasm_put(Dst, 787, first*sizeof(TValue)); + } + dasm_put(Dst, 4288, Dt2([dest].value), Dt2([dest].tt)); + } else { /* Generic fallback. */ + dasm_put(Dst, 4302, Dt1(->savedpc), (ptrdiff_t)(J->nextins), num, last, (ptrdiff_t)(luaV_concat), Dt1(->base)); + if (dest != first) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([first].tt), Dt2([first].value), Dt2([dest].tt), Dt2([dest].value)); + } else { + dasm_put(Dst, 839, Dt2([first].value), Dt2([first].value.na[1]), Dt2([first].tt), Dt2([dest].value), Dt2([dest].value.na[1]), Dt2([dest].tt)); + } + } + } + jit_checkGC(J); /* Always do this, even for the optimized variant. */ + +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_eq(jit_State *J, int cond, int rkb, int rkc) +{ + int target = jit_jmp_target(J); + int condtarget = cond ? (J->nextpc+1) : target; + jit_assert(cond == 0 || cond == 1); + + /* Comparison of two constants. Evaluate at compile time. */ + if (ISK(rkb&rkc)) { + if ((rkb == rkc) == cond) { /* Constants are already unique. */ + dasm_put(Dst, 665, target); + } + return; + } + + if (ISK(rkb|rkc)) { /* Compare a variable and a constant. */ + const TValue *kk; + if (ISK(rkb)) { int t = rkc; rkc = rkb; rkb = t; } /* rkc holds const. */ + kk = &J->pt->k[INDEXK(rkc)]; + switch (ttype(kk)) { + case LUA_TNIL: + dasm_put(Dst, 4493, Dt2([rkb].tt)); + break; + case LUA_TBOOLEAN: + if (bvalue(kk)) { + dasm_put(Dst, 4498, Dt2([rkb].tt), Dt2([rkb].value)); + } else { + dasm_put(Dst, 4509, Dt2([rkb].tt), Dt2([rkb].value)); + } + break; + case LUA_TNUMBER: + dasm_put(Dst, 4517, Dt2([rkb].tt), condtarget, Dt2([rkb].value), &kk->value); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, condtarget); + break; + case LUA_TSTRING: + dasm_put(Dst, 4531, Dt2([rkb].tt), condtarget, Dt2([rkb].value), (ptrdiff_t)(rawtsvalue(kk))); + break; + default: jit_assert(0); break; + } + } else { /* Compare two variables. */ + dasm_put(Dst, 4543, Dt2([rkb].tt), Dt2([rkc].tt), condtarget); + switch (ttype(hint_get(J, TYPE))) { + case LUA_TNUMBER: + jit_deopt_target(J, 0); + dasm_put(Dst, 4553, Dt2([rkb].value), Dt2([rkc].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4111, condtarget); + break; + case LUA_TSTRING: + jit_deopt_target(J, 0); + dasm_put(Dst, 4568, Dt2([rkb].value), Dt2([rkc].value)); + break; + default: + dasm_put(Dst, 4583, Dt2([rkc]), Dt2([rkb]), Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(luaV_equalval), Dt1(->base)); + break; + } + } + if (cond) { + dasm_put(Dst, 4154, target); + } else { + dasm_put(Dst, 1479, target); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_test(jit_State *J, int cond, int dest, int src) +{ + int target = jit_jmp_target(J); + + /* l_isfalse() without a branch. But this time preserve tt/value. */ + /* (((value & tt) * 2 + tt) >> 1) is only zero for nil/false. */ + /* Assumes: 3*tt < 2^32, LUA_TNIL == 0, LUA_TBOOLEAN == 1, bvalue() == 0/1 */ + dasm_put(Dst, 4611, Dt2([src].tt), Dt2([src].value)); + + /* Check if we can omit the stack copy. */ + if (dest == src) { /* Yes, invert branch condition. */ + if (cond) { + dasm_put(Dst, 1479, target); + } else { + dasm_put(Dst, 4154, target); + } + } else { /* No, jump around copy code. */ + if (cond) { + dasm_put(Dst, 4627); + } else { + dasm_put(Dst, 4632); + } + dasm_put(Dst, 4637, Dt2([src].value.na[1]), Dt2([dest].tt), Dt2([dest].value), Dt2([dest].value.na[1]), target); + } +} + +static void jit_op_jmp(jit_State *J, int target) +{ + dasm_put(Dst, 665, target); +} + +/* ------------------------------------------------------------------------ */ + +enum { FOR_IDX, FOR_LIM, FOR_STP, FOR_EXT }; + +static const char *const jit_for_coerce_error[] = { + LUA_QL("for") " initial value must be a number", + LUA_QL("for") " limit must be a number", + LUA_QL("for") " step must be a number", +}; + +/* Try to coerce for slots with strings to numbers in place or complain. */ +static void jit_for_coerce(lua_State *L, TValue *o) +{ + int i; + for (i = FOR_IDX; i <= FOR_STP; i++, o++) { + lua_Number num; + if (ttisnumber(o)) continue; + if (ttisstring(o) && luaO_str2d(svalue(o), &num)) { + setnvalue(o, num); + } else { + luaG_runerror(L, jit_for_coerce_error[i]); + } + } +} + +static void jit_op_forprep(jit_State *J, int ra, int target) +{ + const TValue *step = hint_get(J, FOR_STEP_K); + if (ttisnumber(step)) { + dasm_put(Dst, 4654, Dt2([ra+FOR_IDX].tt), Dt2([ra+FOR_LIM].tt), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 1309, Dt2([ra+FOR_EXT].tt)); + if (nvalue(step) < (lua_Number)0) { + dasm_put(Dst, 4115, target+1); + } else { + dasm_put(Dst, 4123, target+1); + } + } else { + dasm_put(Dst, 4683, Dt2([ra+FOR_IDX].tt), Dt2([ra+FOR_LIM].tt), Dt2([ra+FOR_STP].tt), Dt2([ra+FOR_STP].value.na[1]), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4732, Dt2([ra+FOR_EXT].tt), target+1); + } + if (ttisnumber(hint_get(J, TYPE))) { + jit_deopt_target(J, 0); + } else { + dasm_put(Dst, 679); + dasm_put(Dst, 4743, Dt2([ra]), Dt1(->savedpc), (ptrdiff_t)(J->nextins), (ptrdiff_t)(jit_for_coerce)); + } +} + +static void jit_op_forloop(jit_State *J, int ra, int target) +{ + const TValue *step = hint_getpc(J, FOR_STEP_K, target-1); + if (ttisnumber(step)) { + dasm_put(Dst, 4766, Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_STP].value), Dt2([ra+FOR_EXT].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].tt)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + if (nvalue(step) < (lua_Number)0) { + dasm_put(Dst, 4127, target); + } else { + dasm_put(Dst, 4119, target); + } + } else { + dasm_put(Dst, 4789, Dt2([ra+FOR_STP].value.na[1]), Dt2([ra+FOR_LIM].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_STP].value), Dt2([ra+FOR_IDX].value), Dt2([ra+FOR_EXT].value), Dt2([ra+FOR_EXT].tt)); + if (J->flags & JIT_F_CPU_CMOV) { + dasm_put(Dst, 3293); + } else { + dasm_put(Dst, 3298); + } + dasm_put(Dst, 4127, target); + } +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_tforloop(jit_State *J, int ra, int nresults) +{ + int target = jit_jmp_target(J); + int i; + if (jit_inline_tforloop(J, ra, nresults, target)) return; /* Inlined? */ + for (i = 2; i >= 0; i--) { + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([ra+i].tt), Dt2([ra+i].value), Dt2([ra+i+3].tt), Dt2([ra+i+3].value)); + } else { + dasm_put(Dst, 839, Dt2([ra+i].value), Dt2([ra+i].value.na[1]), Dt2([ra+i].tt), Dt2([ra+i+3].value), Dt2([ra+i+3].value.na[1]), Dt2([ra+i+3].tt)); + } + } + jit_op_call(J, ra+3, 2, nresults); + dasm_put(Dst, 4827, Dt2([ra+3].tt)); + if (J->flags & JIT_F_CPU_SSE2) { + dasm_put(Dst, 821, Dt2([ra+3].tt), Dt2([ra+3].value), Dt2([ra+2].tt), Dt2([ra+2].value)); + } else { + dasm_put(Dst, 839, Dt2([ra+3].value), Dt2([ra+3].value.na[1]), Dt2([ra+3].tt), Dt2([ra+2].value), Dt2([ra+2].value.na[1]), Dt2([ra+2].tt)); + } + dasm_put(Dst, 4649, target); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_close(jit_State *J, int ra) +{ + if (ra) { + dasm_put(Dst, 4836, Dt2([ra])); + } else { + dasm_put(Dst, 4844); + } + dasm_put(Dst, 1734, (ptrdiff_t)(luaF_close)); +} + +static void jit_op_closure(jit_State *J, int dest, int ptidx) +{ + Proto *npt = J->pt->p[ptidx]; + int nup = npt->nups; + if (!J->pt->is_vararg) { + dasm_put(Dst, 4849, Dt2([-1].value)); + } else { + dasm_put(Dst, 4853, Dt1(->ci), Dt4(->func), Dt3(->value)); + } + dasm_put(Dst, 4863, Dt5(->env), nup, (ptrdiff_t)(luaF_newLclosure), Dt5(->p), (ptrdiff_t)(npt), Dt2([dest].value), Dt2([dest].tt)); + /* Process pseudo-instructions for upvalues. */ + if (nup > 0) { + const Instruction *uvcode = J->nextins; + int i, uvuv; + /* Check which of the two types we need. */ + for (i = 0, uvuv = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) uvuv++; + /* Copy upvalues from parent first. */ + if (uvuv) { + /* LCL:eax->upvals (new closure) <-- LCL:edi->upvals (own closure). */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_GETUPVAL) { + dasm_put(Dst, 4895, Dt5(->upvals[GETARG_B(uvcode[i])]), Dt5(->upvals[i])); + } + } + /* Next find or create upvalues for our own stack slots. */ + if (nup > uvuv) { + dasm_put(Dst, 909); + /* LCL:edi->upvals (new closure) <-- upvalue for stack slot. */ + for (i = 0; i < nup; i++) + if (GET_OPCODE(uvcode[i]) == OP_MOVE) { + int rb = GETARG_B(uvcode[i]); + if (rb) { + dasm_put(Dst, 4836, Dt2([rb])); + } else { + dasm_put(Dst, 4844); + } + dasm_put(Dst, 4902, (ptrdiff_t)(luaF_findupval), Dt5(->upvals[i])); + } + } + J->combine += nup; /* Skip pseudo-instructions. */ + } + jit_checkGC(J); +} + +/* ------------------------------------------------------------------------ */ + +static void jit_op_vararg(jit_State *J, int dest, int num) +{ + if (num < 0) { /* Copy all varargs. */ + dasm_put(Dst, 4911, Dt1(->ci), Dt4(->func), (1+J->pt->numparams)*sizeof(TValue), J->pt->maxstacksize*sizeof(TValue), Dt1(->stack_last), Dt2([dest])); + dasm_put(Dst, 4967, Dt1(->top), (ptrdiff_t)(luaD_growstack), Dt1(->base)); + } else if (num > 0) { /* Copy limited number of varargs. */ + dasm_put(Dst, 4993, Dt1(->ci), Dt4(->func), (1+J->pt->numparams)*sizeof(TValue), Dt2([dest]), Dt2([dest+num]), Dt3([0].tt), sizeof(TValue)); + } +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash new file mode 100644 index 00000000000..dd3649030bb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_x86_inline.dash @@ -0,0 +1,625 @@ +/* +** Function inlining support for x86 CPUs. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* ------------------------------------------------------------------------ */ + +/* Private structure holding function inlining info. */ +typedef struct jit_InlineInfo { + int func; /* Function slot. 1st arg slot = func+1. */ + int res; /* 1st result slot. Overlaps func/ci->func. */ + int nargs; /* Number of args. */ + int nresults; /* Number of results. */ + int xnargs; /* Expected number of args. */ + int xnresults; /* Returned number of results. */ + int hidx; /* Library/function index numbers. */ +} jit_InlineInfo; + +/* ------------------------------------------------------------------------ */ + +enum { TFOR_FUNC, TFOR_TAB, TFOR_CTL, TFOR_KEY, TFOR_VAL }; + +static void jit_inline_base(jit_State *J, jit_InlineInfo *ii) +{ + int func = ii->func; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + |// Easy for regular calls: res == func. Not inlined for tailcalls. + |// Guaranteed to be inlined only if used in conjunction with TFORLOOP. + |// So we omit setting the iterator function and fake the control var. + | istable func+TFOR_TAB; jne L_DEOPTIMIZE // Caveat: deopt TFORLOOP, too! + | xor eax, eax // Assumes: LUA_TNIL == 0. + | mov BASE[func+TFOR_CTL].tt, eax // Fake nil type. + | mov BASE[func+TFOR_CTL].value, eax // Hidden control var = 0. + |// mov BASE[func+TFOR_FUNC].tt, eax // Kill function (not needed). + |.mfmap + | .word JIT_MFM_DEOPT_PAIRS, J->nextpc-1 // Deoptimize TFORLOOP, too. + |.code + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +#ifndef COCO_DISABLE + +/* Helper function for inlined coroutine.resume(). */ +static StkId jit_coroutine_resume(lua_State *L, StkId base, int nresults) +{ + lua_State *co = thvalue(base-1); + /* Check for proper usage. Merge of lua_resume() and auxresume() checks. */ + if (co->status != LUA_YIELD) { + if (co->status > LUA_YIELD) { +errdead: + setsvalue(L, base-1, luaS_newliteral(L, "cannot resume dead coroutine")); + goto err; + } else if (co->ci != co->base_ci) { + setsvalue(L, base-1, + luaS_newliteral(L, "cannot resume non-suspended coroutine")); + goto err; + } else if (co->base == co->top) { + goto errdead; + } + } + { + ptrdiff_t ndelta = (char *)L->top - (char *)base; + int nargs = ndelta/sizeof(TValue); /* Compute nargs. */ + int status; + if ((char *)co->stack_last-(char *)co->top <= ndelta) { + co->ci->top = (StkId)(((char *)co->top) + ndelta); /* Ok before grow. */ + luaD_growstack(co, nargs); /* Grow thread stack. */ + } + /* Copy args. */ + co->top = (StkId)(((char *)co->top) + ndelta); + { StkId t = co->top, f = L->top; while (f > base) setobj2s(co, --t, --f); } + L->top = base; + status = luaCOCO_resume(co, nargs); /* Resume Coco thread. */ + if (status == 0 || status == LUA_YIELD) { /* Ok. */ + StkId f; + if (nresults == 0) return NULL; + if (nresults == -1) { + luaD_checkstack(L, co->top - co->base); /* Grow own stack. */ + } + base = L->top - 2; + setbvalue(base++, 1); /* true */ + /* Copy results. Fill unused result slots with nil. */ + f = co->base; + while (--nresults != 0 && f < co->top) setobj2s(L, base++, f++); + while (nresults-- > 0) setnilvalue(base++); + co->top = co->base; + return base; + } else { /* Error. */ + base = L->top; + setobj2s(L, base-1, co->top-1); /* Copy error object. */ +err: + setbvalue(base-2, 0); /* false */ + nresults -= 2; + while (--nresults >= 0) setnilvalue(base+nresults); /* Fill results. */ + return base; + } + } +} + +static void jit_inline_coroutine(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int i; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_COROUTINE_YIELD: + | cmp aword [L+((int)&LHASCOCO((lua_State *)0))], 0 // Got a C stack? + | je L_DEOPTIMIZE + | mov L->savedpc, &J->nextins // Debugger-friendly. + | add BASE, arg*#TVALUE + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[ii->nargs] + } + | mov L->base, BASE + | mov L->top, TOP + | call &luaCOCO_yield, L + | mov BASE, L->base + | mov TOP, L->top + jit_assert(ii->nresults >= 0 && ii->nresults <= EXTRA_STACK); + for (i = 0; i < ii->nresults; i++) { + | setnilvalue TOP[i] // Clear undefined result. + | copyslot BASE[res+i], BASE[arg+i] // Move result down. + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + case JIT_IH_COROUTINE_RESUME: + jit_assert(ii->nargs != 0 && ii->res == ii->func); + | add BASE, (arg+1)*#TVALUE + if (ii->nargs >= 0) { /* Previous op was not open and did not set TOP. */ + | lea TOP, BASE[ii->nargs-1] + } else { + | cmp TOP, BASE; jb L_DEOPTIMIZE // No thread arg? Deoptimize. + } + | istt -1, LUA_TTHREAD; jne L_DEOPTIMIZE // Wrong type? Deoptimize. + | mov L:eax, BASE[-1].value + | cmp aword [L:eax+((int)&LHASCOCO((lua_State *)0))], 0 + | je L_DEOPTIMIZE // No C stack? Deoptimize. + | mov L->savedpc, &J->nextins // Debugger-friendly. + | mov L->top, TOP + | call &jit_coroutine_resume, L, BASE, ii->nresults + | mov BASE, L->base + if (ii->nresults == -1) { + | mov TOP, eax + } + ii->nargs = -1; /* Force restore of L->top. */ + break; + default: + jit_assert(0); + break; + } +} + +#endif /* COCO_DISABLE */ + +/* ------------------------------------------------------------------------ */ + +static void jit_inline_string(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_STRING_LEN: + | isstring arg; jne L_DEOPTIMIZE + | mov TSTRING:ecx, BASE[arg].value + | fild aword TSTRING:ecx->tsv.len // size_t + | settt BASE[res], LUA_TNUMBER + | fstp qword BASE[res].value + break; + case JIT_IH_STRING_SUB: + /* TODO: inline numeric constants with help from the optimizer. */ + /* But this would save only another 15-20% in a trivial loop. */ + jit_assert(ii->nargs >= 2); /* Open op caveat is ok, too. */ + if (ii->nargs > 2) { + | lea TOP, BASE[arg] + | call ->STRING_SUB3 + | setsvalue BASE[res], eax + } else { + | lea TOP, BASE[arg] + | call ->STRING_SUB2 + | setsvalue BASE[res], eax + } + break; + case JIT_IH_STRING_CHAR: + | isnumber arg; jne L_DEOPTIMIZE + | lea eax, L->env // Abuse L->env to hold temp string. + | fld qword BASE[arg].value + | fistp dword [eax] // LSB is at start (little-endian). + | cmp dword [eax], 255; ja L_DEOPTIMIZE + | call &luaS_newlstr, L, eax, 1 + | setsvalue BASE[res], eax + break; + default: + jit_assert(0); + break; + } + + |//----------------------------------------------------------------------- + |.jsub STRING_SUB3 // string.sub(str, start, end) + | mov eax, TOP[0].tt; shl eax, 4; or eax, TOP[1].tt; shl eax, 4 + | or eax, TOP[2].tt; sub eax, LUA_TSTR_NUM_NUM + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | // eax must be zero here! + | fld qword TOP[1].value + | fld qword TOP[2].value + | fistp aword TMP3 // size_t + | fistp aword TMP2 // size_t + | mov TSTRING:ecx, TOP[0].value + | mov TOP, aword TSTRING:ecx->tsv.len // size_t + | mov edx, TMP3 + | cmp TOP, edx + | jb >4 + |1: + | or eax, TMP2 // eax is known to be zero. + | jle >6 // start <= 0? + |2: + | sub edx, eax // newlen = end-start + | jl >7 // start > end? + | lea ecx, [TSTRING:ecx+eax+#TSTRING-1] // svalue()-1+start + | inc edx + |3: + | mov ARG2, L // First arg for tailcall is ARG2. + | mov ARG3, ecx // Pointer to start. + | mov ARG4, edx // Length. + | mov GL:edi, L->l_G + | mov eax, GL:edi->totalbytes // size_t + | cmp eax, GL:edi->GCthreshold // size_t + | jae >8 // G->totalbytes >= G->GCthreshold? + | jmp &luaS_newlstr // Tailcall to C function. + | + |4: // Negative end or overflow. + | jl >5 + | lea edx, [edx+TOP+1] // end = end+(len+1) + | jmp <1 + |5: // Overflow + | mov edx, TOP // end = len + | jmp <1 + | + |6: // Negative start or underflow. + | je >5 + | add eax, TOP // start = start+(len+1) + | inc eax + | jg <2 // start > 0? + |5: // Underflow. + | mov eax, 1 // start = 1 + | jmp <2 + | + |7: // Range underflow. + | xor edx, edx // Zero length. + | jmp <3 // Any pointer in ecx is ok. + |.endjsub + | + |//----------------------------------------------------------------------- + |.jsub STRING_SUB2 // string.sub(str, start) + | mov eax, TOP[0].tt; shl eax, 4; or eax, TOP[1].tt; sub eax, LUA_TSTR_NUM + | jne ->DEOPTIMIZE_CALLER // Wrong types? Deoptimize. + | // eax must be zero here! + | fld qword TOP[1].value + | fistp aword TMP2 // size_t + | mov TSTRING:ecx, TOP[0].value + | mov TOP, aword TSTRING:ecx->tsv.len // size_t + | mov edx, TOP + | jmp <1 // See STRING_SUB3. + | + |8: // GC threshold reached. + | sub esp, FRAME_OFFSET + | call &luaC_step, L + | add esp, FRAME_OFFSET + | mov BASE, L->base + | jmp &luaS_newlstr // Tailcall to C function. + |.endjsub +} + +/* ------------------------------------------------------------------------ */ + +/* Helper functions for inlined calls to table.*. */ +static void jit_table_insert(lua_State *L, TValue *arg) +{ + setobj2t(L, luaH_setnum(L, hvalue(arg), luaH_getn(hvalue(arg))+1), arg+1); + luaC_barriert(L, hvalue(arg), arg+1); +} + +static TValue *jit_table_remove(lua_State *L, TValue *arg, TValue *res) +{ + int n = luaH_getn(hvalue(arg)); + if (n == 0) { + setnilvalue(res); /* For the nresults == 1 case. Harmless otherwise. */ + return res; /* For the nresults == -1 case. */ + } else { + TValue *val = luaH_setnum(L, hvalue(arg), n); + setobj2s(L, res, val); + setnilvalue(val); + return res+1; /* For the nresults == -1 case. */ + } +} + +static void jit_inline_table(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + | istable arg; jne L_DEOPTIMIZE + switch (JIT_IH_IDX(ii->hidx)) { + case JIT_IH_TABLE_INSERT: + | lea TVALUE:eax, BASE[arg] + | call &jit_table_insert, L, TVALUE:eax + break; + case JIT_IH_TABLE_REMOVE: + | lea TVALUE:eax, BASE[arg] + | lea TVALUE:ecx, BASE[res] + | call &jit_table_remove, L, TVALUE:eax, TVALUE:ecx + if (ii->nresults == -1) { + ii->xnresults = -1; + | mov TOP, TVALUE:eax + } + break; + case JIT_IH_TABLE_GETN: + | mov TABLE:eax, BASE[arg].value + | call &luaH_getn, TABLE:eax + | mov TMP1, eax + | fild dword TMP1 + | fstp qword BASE[res].value + | settt BASE[res], LUA_TNUMBER + break; + default: + jit_assert(0); + break; + } +} + +/* ------------------------------------------------------------------------ */ + +/* This typedef must match the libm function signature. */ +/* Serves as a check against wrong lua_Number or wrong calling conventions. */ +typedef lua_Number (*mathfunc_11)(lua_Number); + +/* Partially inlined math functions. */ +/* CHECK: must match with jit_hints.h and jit.opt_lib. */ +static const mathfunc_11 jit_mathfuncs_11[JIT_IH_MATH_SIN] = { + log, log10, exp, sinh, cosh, tanh, asin, acos, atan +}; + +/* FPU control words for ceil and floor (exceptions masked, full precision). */ +static const unsigned short jit_fpucw[2] = { 0x0b7f, 0x077f }; + +static void jit_inline_math(jit_State *J, jit_InlineInfo *ii) +{ + int arg = ii->func+1; + int res = ii->res; + int idx = JIT_IH_IDX(ii->hidx); + + if (idx < JIT_IH_MATH__21) { + | isnumber arg; jne L_DEOPTIMIZE + | fld qword BASE[arg].value + } else { + jit_assert(idx < JIT_IH_MATH__LAST); + | isnumber2 arg, arg+1; jne L_DEOPTIMIZE + } + switch (idx) { + /* We ignore sin/cos/tan range overflows (2^63 rad) just like -ffast-math. */ + case JIT_IH_MATH_SIN: + | fsin + break; + case JIT_IH_MATH_COS: + | fcos + break; + case JIT_IH_MATH_TAN: + | fptan; fpop + break; + case JIT_IH_MATH_CEIL: + case JIT_IH_MATH_FLOOR: + | fnstcw word TMP1 + | fldcw word [(ptrdiff_t)&jit_fpucw[idx-JIT_IH_MATH_CEIL]] + | frndint + | fldcw word TMP1 + break; + case JIT_IH_MATH_ABS: + | fabs + break; + case JIT_IH_MATH_SQRT: + | fsqrt + break; + case JIT_IH_MATH_FMOD: + | fld qword BASE[arg+1].value + | fld qword BASE[arg].value + |1: ; fprem; fnstsw ax; sahf; jp <1 + | fstp st1 + break; + case JIT_IH_MATH_ATAN2: + |// Inlining is easier than calling atan2(). + | fld qword BASE[arg].value + | fld qword BASE[arg+1].value + | fpatan + break; + default: + |// Partially inlined. Just call the libm function (__cdecl!). + | fstp FPARG1 + | call &jit_mathfuncs_11[idx] + break; + } + | settt BASE[res], LUA_TNUMBER + | fstp qword BASE[res].value +} + +/* ------------------------------------------------------------------------ */ + +/* Try to inline a CALL or TAILCALL instruction. */ +static int jit_inline_call(jit_State *J, int func, int nargs, int nresults) +{ + const TValue *callable = hint_get(J, TYPE); /* TYPE hint = callable. */ + int cltype = ttype(callable); + const TValue *oidx; + jit_InlineInfo ii; + int idx; + + if (cltype != LUA_TFUNCTION) goto fail; + if (J->flags & JIT_F_DEBUG) goto fail; /* DWIM. */ + + oidx = hint_get(J, INLINE); /* INLINE hint = library/function index. */ + if (!ttisnumber(oidx)) goto fail; + + ii.hidx = (int)nvalue(oidx); + idx = JIT_IH_IDX(ii.hidx); + + if (nresults == -2) { /* Tailcall. */ + /* Tailcalls from vararg functions don't work with BASE[-1]. */ + if (J->pt->is_vararg) goto fail; /* So forget about this rare case. */ + ii.res = -1; /* Careful: 2nd result overlaps 1st stack slot. */ + ii.nresults = -1; + } else { + ii.res = func; + ii.nresults = nresults; + } + ii.func = func; + ii.nargs = nargs; + ii.xnargs = ii.xnresults = 1; /* Default: 1 arg, 1 result. */ + + /* Check for the currently supported cases. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: + switch (idx) { + case JIT_IH_BASE_PAIRS: + case JIT_IH_BASE_IPAIRS: + if (nresults == -2) goto fail; /* Not useful for tailcalls. */ + ii.xnresults = 3; + goto check; + } + break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: + switch (idx) { + case JIT_IH_COROUTINE_YIELD: + /* Only support common cases: no tailcalls, low number of results. */ + if (nresults < 0 || nresults > EXTRA_STACK) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + case JIT_IH_COROUTINE_RESUME: + /* Only support common cases: no tailcalls, not with 0 args (error). */ + if (nresults == -2 || nargs == 0) goto fail; + ii.xnargs = ii.xnresults = -1; + goto ok; /* Anything else is ok. */ + } + break; +#endif + case JIT_IHLIB_STRING: + switch (idx) { + case JIT_IH_STRING_LEN: + goto check; + case JIT_IH_STRING_SUB: + if (nargs < 2) goto fail; /* No support for open calls, too. */ + goto ok; /* 2 or more args are ok. */ + case JIT_IH_STRING_CHAR: + goto check; /* Only single arg supported. */ + } + break; + case JIT_IHLIB_TABLE: + switch (idx) { + case JIT_IH_TABLE_INSERT: + ii.xnargs = 2; + goto check; /* Only push (append) supported. */ + case JIT_IH_TABLE_REMOVE: + goto check; /* Only pop supported. */ + case JIT_IH_TABLE_GETN: + goto check; + } + break; + case JIT_IHLIB_MATH: + if (idx >= JIT_IH_MATH__LAST) goto fail; + if (idx >= JIT_IH_MATH__21) ii.xnargs = 2; + goto check; + } +fail: + return cltype; /* Call could not be inlined. Return type of callable. */ + +check: + if (nargs != ii.xnargs && nargs != -1) goto fail; + /* The optimizer already checks the number of results (avoid setnil). */ + +ok: /* Whew, all checks done. Go for it! */ + + /* Start with the common leadin for inlined calls. */ + jit_deopt_target(J, nargs); + |// Caveat: Must save TOP for open ops if jsub uses DEOPTIMIZE_CALLER. + | isfunction func + | jne L_DEOPTIMIZE // Not a function? Deoptimize. + | cmp aword BASE[func].value, &clvalue(callable) + | jne L_DEOPTIMIZE // Wrong closure? Deoptimize. + if (nargs == -1 && ii.xnargs >= 0) { + | lea eax, BASE[func+1+ii.xnargs] + | cmp TOP, eax + | jne L_DEOPTIMIZE // Wrong #args? Deoptimize. + } + + /* Now inline the function itself. */ + switch (JIT_IH_LIB(ii.hidx)) { + case JIT_IHLIB_BASE: jit_inline_base(J, &ii); break; +#ifndef COCO_DISABLE + case JIT_IHLIB_COROUTINE: jit_inline_coroutine(J, &ii); break; +#endif + case JIT_IHLIB_STRING: jit_inline_string(J, &ii); break; + case JIT_IHLIB_TABLE: jit_inline_table(J, &ii); break; + case JIT_IHLIB_MATH: jit_inline_math(J, &ii); break; + default: jit_assert(0); break; + } + + /* And add the common leadout for inlined calls. */ + if (ii.nresults == -1) { + if (ii.xnresults >= 0) { + | lea TOP, BASE[ii.res+ii.xnresults] + } + } else if (ii.nargs == -1) { /* Restore L->top only if needed. */ + | lea TOP, BASE[J->pt->maxstacksize] + | mov L->top, TOP + } + + if (nresults == -2) { /* Results are in place. Add return for tailcalls. */ + | add esp, FRAME_OFFSET + | sub BASE, #BASE + | sub aword L->ci, #CI + | ret + } + + return -1; /* Success, call has been inlined. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Helper function for inlined iterator code. Paraphrased from luaH_next. */ +/* TODO: GCC has trouble optimizing this. */ +static int jit_table_next(lua_State *L, TValue *ra) +{ + Table *t = hvalue(&ra[TFOR_TAB]); + int i = ra[TFOR_CTL].value.b; /* Hidden control variable. */ + for (; i < t->sizearray; i++) { /* First the array part. */ + if (!ttisnil(&t->array[i])) { + setnvalue(&ra[TFOR_KEY], cast_num(i+1)); + setobj2s(L, &ra[TFOR_VAL], &t->array[i]); + ra[TFOR_CTL].value.b = i+1; + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* Then the hash part. */ + if (!ttisnil(gval(gnode(t, i)))) { + setobj2s(L, &ra[TFOR_KEY], key2tval(gnode(t, i))); + setobj2s(L, &ra[TFOR_VAL], gval(gnode(t, i))); + ra[TFOR_CTL].value.b = i+1+t->sizearray; + return 1; + } + } + return 0; /* End of iteration. */ +} + +/* Try to inline a TFORLOOP instruction. */ +static int jit_inline_tforloop(jit_State *J, int ra, int nresults, int target) +{ + const TValue *oidx = hint_get(J, INLINE); /* INLINE hint = lib/func idx. */ + int idx; + + if (!ttisnumber(oidx)) return 0; /* No hint: don't inline anything. */ + idx = (int)nvalue(oidx); + if (J->flags & JIT_F_DEBUG) return 0; /* DWIM. */ + + switch (idx) { + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_PAIRS): + |// The type checks can be omitted -- see the iterator constructor. + | lea TOP, BASE[ra] + | call &jit_table_next, L, TOP + | test eax, eax + | jnz =>target + return 1; /* Success, iterator has been inlined. */ + case JIT_IH_MKIDX(JIT_IHLIB_BASE, JIT_IH_BASE_IPAIRS): + |// The type checks can be omitted -- see the iterator constructor. + | mov eax, BASE[ra+TFOR_CTL].value // Hidden control variable. + | inc eax + | mov TABLE:edx, BASE[ra+TFOR_TAB].value // Table object. + | mov BASE[ra+TFOR_CTL].value, eax + | call &luaH_getnum, TABLE:edx, eax + | // This is really copyslot BASE[ra+TFOR_VAL], TVALUE:eax[0] plus compare. + | mov ecx, TVALUE:eax->tt + | test ecx, ecx // Assumes: LUA_TNIL == 0. + | jz >9 // nil value stops iteration. + | fild dword BASE[ra+TFOR_CTL].value // Set numeric key. + | settt BASE[ra+TFOR_KEY], LUA_TNUMBER + | fstp qword BASE[ra+TFOR_KEY].value + | mov edx, TVALUE:eax->value + | mov eax, TVALUE:eax->value.na[1] // Overwrites eax. + | mov BASE[ra+TFOR_VAL].tt, ecx // Copy value from table slot. + | mov BASE[ra+TFOR_VAL].value, edx + | mov BASE[ra+TFOR_VAL].value.na[1], eax + | jmp =>target + |9: + return 1; /* Success, iterator has been inlined. */ + } + + return 0; /* No support for inlining any other iterators. */ +} + +/* ------------------------------------------------------------------------ */ + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c b/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c new file mode 100644 index 00000000000..c9feab3d416 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ljitlib.c @@ -0,0 +1,637 @@ +/* +** Lua library for the JIT engine. +** Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include +#include + +#define ljitlib_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "luajit.h" +#include "lualib.h" + +/* This file is not a pure C API user. Some internals are required. */ +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "lfunc.h" +#include "lgc.h" +#include "lopcodes.h" + +#include "ljit.h" +#include "ljit_hints.h" + +#define STRING_HINTS +#include "ljit_hints.h" + +/* ------------------------------------------------------------------------ */ + +/* Static pointer addresses used as registry keys. */ +/* The values do not matter, but must be different to prevent joining. */ +static const int regkey_frontend = 0x6c6a6c01; +static const int regkey_comthread = 0x6c6a6c02; + +/* Check that the first argument is a Lua function and return its closure. */ +static Closure *check_LCL(lua_State *L) +{ + StkId o = L->base; + switch (lua_type(L, 1)) { + case LUA_TBOOLEAN: + o = (L->ci-1)->func; + case LUA_TFUNCTION: + if (isLfunction(o)) + return clvalue(o); + break; + } + luaL_argerror(L, 1, "Lua function expected"); + return NULL; +} + +/* Create a new closure from a prototype. */ +/* Note: upvalues are assumed to be after first two slots. */ +static void push_LCL(lua_State *L, Proto *pt, Table *env) +{ + Closure *cl; + int i, nup = pt->nups; + /* Adjust the number of stack slots to the number of upvalues. */ + luaL_checkstack(L, nup, "too many upvalues"); + lua_settop(L, 2+nup); + /* Create a closure from the subroutine prototype. */ + cl = luaF_newLclosure(L, nup, env); + cl->l.p = pt; + /* Allocate new upvalues and close them. */ + for (i = 0; i < nup; i++) + cl->l.upvals[i] = luaF_findupval(L, L->base + (2+i)); + luaF_close(L, L->base + 2); + lua_settop(L, 2); /* Remove upvalues. */ + setclvalue(L, L->top++, cl); /* Return closure on top of stack. */ + luaC_checkGC(L); +} + +/* ------------------------------------------------------------------------ */ + +/* Set JIT mode for the engine or a closure and/or its subroutines. */ +static int setmode(lua_State *L, int mode) +{ + int idx = 0; + switch (lua_type(L, 1)) { + case LUA_TNONE: /* jit.on/off() */ + case LUA_TNIL: /* jit.on/off(nil) */ + luaJIT_setmode(L, 0, mode | LUAJIT_MODE_ENGINE); + break; + case LUA_TFUNCTION: /* jit.on/off(func, nil|true|false) */ + idx = 1; + case LUA_TBOOLEAN: /* jit.on/off(true, nil|true|false) (parent frame) */ + if (lua_isboolean(L, 2)) + mode |= lua_toboolean(L, 2)?LUAJIT_MODE_ALLFUNC:LUAJIT_MODE_ALLSUBFUNC; + else + mode |= LUAJIT_MODE_FUNC; + if (luaJIT_setmode(L, idx, mode) == 1) /* Ok? */ + break; + default: + luaL_argerror(L, 1, "Lua function expected"); + break; + } + return 0; +} + +/* Set JIT mode to on: (re-)enable compilation. */ +static int j_on(lua_State *L) +{ + return setmode(L, LUAJIT_MODE_ON); +} + +/* Set JIT mode to off: disable compilation. */ +static int j_off(lua_State *L) +{ + return setmode(L, LUAJIT_MODE_OFF); +} + +/* Set JIT debug level. Defaults to maximum level for use with -j. */ +static int j_debug(lua_State *L) +{ + luaJIT_setmode(L, luaL_optinteger(L, 1, 100), LUAJIT_MODE_DEBUG); + return 0; +} + +/* ------------------------------------------------------------------------ */ + +/* Report the compilation status. */ +static int compstatus(lua_State *L, int status) +{ + if (status == -1) + return luaL_argerror(L, 1, "Lua function expected"); + else if (status == JIT_S_OK) + return 0; + else { + lua_pushinteger(L, status); + return 1; + } +} + +/* Compile a function. Pass typical args to help the optimizer. */ +static int j_compile(lua_State *L) +{ + int nargs = lua_gettop(L) - 1; + return compstatus(L, nargs >= 0 ? luaJIT_compile(L, nargs) : -1); +} + +/* Recursively compile all subroutine prototypes. */ +static int rec_compile(lua_State *L, Proto *pt, Table *env, int stoponerror) +{ + int rstatus = JIT_S_OK; + int i; + for (i = 0; i < pt->sizep; i++) { + Proto *pti = pt->p[i]; + int status; + push_LCL(L, pti, env); /* Assumes stack is at 2 (no upvalues). */ + status = luaJIT_compile(L, 0); + lua_settop(L, 2); /* Clear stack */ + if (status != JIT_S_OK) { + rstatus = status; + if (stoponerror) break; + } + status = rec_compile(L, pti, env, stoponerror); + if (status != JIT_S_OK) { + rstatus = status; + if (stoponerror) break; + } + } + return rstatus; +} + +/* Compile all subroutines of a function. */ +/* Note: the function itself is _not_ compiled (use jit.compile()). */ +static int j_compilesub(lua_State *L) +{ + Closure *cl = check_LCL(L); + int stoponerror = lua_toboolean(L, 2); /* Stop on first error? */ + lua_settop(L, 2); + return compstatus(L, rec_compile(L, cl->l.p, cl->l.env, stoponerror)); +} + +/* jit.* functions. */ +static const luaL_Reg jitlib[] = { + { "on", j_on }, + { "off", j_off }, + { "debug", j_debug }, + { "compile", j_compile }, + { "compilesub", j_compilesub }, + /* j_attach is added below. */ + { NULL, NULL } +}; + +/* ------------------------------------------------------------------------ */ + +/* Get the compiler pipeline table from an upvalue (j_attach, j_frontend). */ +#define COMPIPE lua_upvalueindex(1) + +/* Attach/detach handler to/from compiler pipeline. */ +static int j_attach(lua_State *L) +{ + int pipesz; + luaL_checktype(L, 1, LUA_TFUNCTION); + pipesz = lua_objlen(L, COMPIPE); + if (lua_isnoneornil(L, 2)) { /* Detach if no priority given. */ + int i; + for (i = 1; i <= pipesz; i += 2) { + lua_rawgeti(L, COMPIPE, i); + if (lua_rawequal(L, 1, -1)) { /* Found: delete from pipeline. */ + for (; i+2 <= pipesz; i++) { /* Shift down. */ + lua_rawgeti(L, COMPIPE, i+2); + lua_rawseti(L, COMPIPE, i); + } + /* Clear last two elements. */ + lua_pushnil(L); lua_rawseti(L, COMPIPE, i); + lua_pushnil(L); lua_rawseti(L, COMPIPE, i+1); + return 0; + } + lua_pop(L, 1); + } + return 0; /* Not found: ignore detach request. */ + } else { /* Attach if priority given. */ + int prio = luaL_checkint(L, 2); + int pos, i; + for (pos = 2; pos <= pipesz; pos += 2) { + lua_rawgeti(L, COMPIPE, pos); + if (prio > (int)lua_tointeger(L, -1)) break; /* Insertion point found. */ + lua_pop(L, 1); + } + for (i = pipesz+2; i > pos; i--) { /* Shift up. */ + lua_rawgeti(L, COMPIPE, i-2); + lua_rawseti(L, COMPIPE, i); + } + /* Set handler and priority. */ + lua_pushvalue(L, 1); lua_rawseti(L, COMPIPE, i-1); + lua_pushvalue(L, 2); lua_rawseti(L, COMPIPE, i); + return 0; + } +} + +/* Compiler frontend. Runs in the compiler thread. */ +/* First and only arg is the compiler state table. */ +static int j_frontend(lua_State *L) +{ + int status = JIT_S_OK; + int pos; + /* Loop through all handlers in the compiler pipeline. */ + for (pos = 1; ; pos += 2) { + if (status != JIT_S_OK) { /* Pending failure? */ + int prio; + lua_rawgeti(L, COMPIPE, pos+1); /* Must check for odd/even priority. */ + if (lua_isnil(L, -1)) break; /* End of pipeline. */ + prio = (int)lua_tointeger(L, -1); + lua_pop(L, 1); + if ((prio & 1) == 0) continue; /* Skip handlers with even priority. */ + } + /* Call handler with compiler state table and optional failure status. */ + lua_rawgeti(L, COMPIPE, pos); + if (lua_isnil(L, -1)) break; /* End of pipeline. */ + lua_pushvalue(L, 1); + if (status != JIT_S_OK) + lua_pushinteger(L, status); + lua_call(L, status ? 2 : 1, 1); + if (!lua_isnil(L, -1)) /* Remember failure status. */ + status = (int)lua_tointeger(L, -1); + lua_pop(L, 1); + } + lua_pushinteger(L, status); + return 1; +} + +/* Compiler frontend wrapper. */ +static int frontwrap(lua_State *L, Table *st) +{ + jit_State *J = G(L)->jit_state; + lua_State *JL; + int status; + + /* Allocate compiler thread on demand. */ + if (J->L == NULL) { + if (!lua_checkstack(L, 3)) return JIT_S_COMPILER_ERROR; + sethvalue(L, L->top++, st); /* Prevent GC of state table. */ + lua_pushlightuserdata(L, (void *)®key_comthread); + /* Cannot use C stack, since it's deallocated early in Coco. */ + /* But we don't need one -- the compiler thread never yields, anyway. */ + J->L = lua_newthread(L); + lua_rawset(L, LUA_REGISTRYINDEX); + L->top--; /* Remove state table from this stack. */ + } + JL = J->L; + + /* Initialize compiler thread stack with frontend and state table. */ + lua_settop(JL, 0); + lua_pushlightuserdata(JL, (void *)®key_frontend); + lua_rawget(JL, LUA_REGISTRYINDEX); + sethvalue(JL, JL->top, st); + JL->top++; + + /* Start the frontend by resuming the compiler thread. */ + if (lua_resume(JL, 1) != 0) { /* Failed? */ + /* Note: LUA_YIELD is treated like any other error. */ + J->L = NULL; /* Get a new thread next time. */ + fprintf(stderr, "[LuaJIT frontend failed: %s]\n", + lua_isstring(JL, -1) ? lua_tostring(JL, -1) : "(unknown error)"); + return JIT_S_COMPILER_ERROR; + } + + /* Get status from terminated thread. */ + status = (int)lua_tointeger(JL, -1); + lua_settop(JL, 0); /* Help the GC. */ + return status; +} + +/* Create the compiler pipeline and register it. */ +static void makepipeline(lua_State *L) +{ + lua_createtable(L, 20, 0); /* 10 handlers+priorities should be enough. */ + lua_pushcfunction(L, luaJIT_backend); + lua_rawseti(L, -2, 1); + lua_pushinteger(L, 0); /* Fill in the backend at prio 0. */ + lua_rawseti(L, -2, 2); + + /* Store the compiler frontend in the registry. */ + lua_pushlightuserdata(L, (void *)®key_frontend); + lua_pushvalue(L, -2); /* Pipeline table as upvalue. */ + lua_pushcclosure(L, j_frontend, 1); + lua_rawset(L, LUA_REGISTRYINDEX); + + /* Register the frontend wrapper. */ + G(L)->jit_state->frontwrap = frontwrap; + + /* Add jit.attach with the pipeline table as upvalue. */ + lua_pushcclosure(L, j_attach, 1); + lua_setfield(L, -2, "attach"); /* "jit" table must be below. */ +} + +/* ------------------------------------------------------------------------ */ + +/* Calculate total mcode size without mfm and only for active mcode blocks. */ +static size_t mcodesize(Proto *pt) +{ + jit_MCTrailer tr; + size_t sz = 0; + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + do { + jit_Mfm *mfm = JIT_MCMFM(tr.mcode, tr.sz); + if (sz != 0 && jit_mfm_ismain(mfm)) break; /* Stop at old main mfm. */ + while (*mfm != JIT_MFM_STOP) mfm--; /* Search for end of mcode. */ + sz += (char *)mfm-(char *)tr.mcode; /* Add size of mcode without mfm. */ + memcpy((void *)&tr, JIT_MCTRAILER(tr.mcode, tr.sz), sizeof(jit_MCTrailer)); + } while (tr.mcode != NULL); + return sz; +} + +#define setintfield(name, i) \ + do { lua_pushinteger(L, i); lua_setfield(L, -2, name); } while (0) + +/* local stats = jit.util.stats(func) */ +static int ju_stats(lua_State *L) +{ + if (!(L->top > L->base)) + luaL_argerror(L, 1, "Lua function expected"); + if (isLfunction(L->base)) { + Proto *pt = clvalue(L->base)->l.p; + lua_createtable(L, 0, 11); + setintfield("status", pt->jit_status); + setintfield("stackslots", pt->maxstacksize); + setintfield("params", pt->numparams); + setintfield("bytecodes", pt->sizecode); + setintfield("consts", pt->sizek); + setintfield("upvalues", pt->nups); + setintfield("subs", pt->sizep); + lua_pushboolean(L, pt->is_vararg); + lua_setfield(L, -2, "isvararg"); + lua_getfenv(L, 1); + lua_setfield(L, -2, "env"); + if (pt->jit_szmcode != 0) { + setintfield("mcodesize", (int)mcodesize(pt)); + lua_pushnumber(L, (lua_Number)(size_t)pt->jit_mcode); + lua_setfield(L, -2, "mcodeaddr"); + } + return 1; + } else { + return 0; /* Don't throw an error like the other util functions. */ + } +} + +/* local op, a, b, c, test = jit.util.bytecode(func, pc) */ +static int ju_bytecode(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + int pc = luaL_checkint(L, 2); + if (pc >= 1 && pc <= pt->sizecode) { + Instruction ins = pt->code[pc-1]; + OpCode op = GET_OPCODE(ins); + if (pc > 1 && (((int)OP_SETLIST) << POS_OP) == + (pt->code[pc-2] & (MASK1(SIZE_OP,POS_OP) | MASK1(SIZE_C,POS_C)))) { + lua_pushstring(L, luaP_opnames[OP_SETLIST]); + lua_pushnumber(L, (lua_Number)ins); /* Fake extended op. */ + return 1; + } + if (op >= NUM_OPCODES) return 0; /* Just in case. */ + lua_pushstring(L, luaP_opnames[op]); + lua_pushinteger(L, GETARG_A(ins)); + switch (getOpMode(op)) { + case iABC: { + int b = GETARG_B(ins), c = GETARG_C(ins); + switch (getBMode(op)) { + case OpArgN: lua_pushnil(L); break; + case OpArgK: if (ISK(b)) b = -1-INDEXK(b); + case OpArgR: case OpArgU: lua_pushinteger(L, b); break; + } + switch (getCMode(op)) { + case OpArgN: lua_pushnil(L); break; + case OpArgK: if (ISK(c)) c = -1-INDEXK(c); + case OpArgR: case OpArgU: lua_pushinteger(L, c); break; + } + lua_pushboolean(L, testTMode(op)); + return 5; + } + case iABx: { + int bx = GETARG_Bx(ins); + lua_pushinteger(L, getBMode(op) == OpArgK ? -1-bx : bx); + return 3; + } + case iAsBx: + lua_pushinteger(L, GETARG_sBx(ins)); + return 3; + } + } + return 0; +} + +/* local const, ok = jit.util.const(func, idx) */ +static int ju_const(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + int idx = luaL_checkint(L, 2); + if (idx < 0) idx = -idx; /* Handle both positive and negative indices. */ + if (idx >= 1 && idx <= pt->sizek) { + setobj2s(L, L->top-1, &pt->k[idx-1]); + lua_pushboolean(L, 1); + return 2; + } + lua_pushnil(L); + lua_pushboolean(L, 0); + return 2; +} + +/* local upvalue, ok = jit.util.upvalue(func, idx) */ +static int ju_upvalue(lua_State *L) +{ + Closure *cl = check_LCL(L); + Proto *pt = cl->l.p; + int idx = luaL_checkint(L, 2); + if (idx >= 0 && idx < pt->nups) { + setobj2s(L, L->top-1, cl->l.upvals[idx]->v); + lua_pushboolean(L, 1); + return 2; + } + lua_pushnil(L); + lua_pushboolean(L, 0); + return 2; +} + +/* local nup = jit.util.closurenup(func, idx) */ +static int ju_closurenup(lua_State *L) +{ + Closure *cl = check_LCL(L); + Proto *pt = cl->l.p; + int idx = luaL_checkint(L, 2); + if (idx >= 0 && idx < pt->sizep) { + lua_pushinteger(L, pt->p[idx]->nups); + return 1; + } + return 0; +} + +/* for tag, mark in mfmiter do ... end. */ +static int ju_mfmiter(lua_State *L) +{ + jit_Mfm *mfm = (jit_Mfm *)lua_touserdata(L, lua_upvalueindex(1)); + int m = *mfm--; + switch (m) { + case JIT_MFM_STOP: return 0; + case JIT_MFM_COMBINE: lua_pushliteral(L, "COMBINE"); lua_pushnil(L); break; + case JIT_MFM_DEAD: lua_pushliteral(L, "DEAD"); lua_pushnil(L); break; + default: + lua_pushinteger(L, m & JIT_MFM_MASK); + lua_pushboolean(L, m & JIT_MFM_MARK); + break; + } + lua_pushlightuserdata(L, (void *)mfm); + lua_replace(L, lua_upvalueindex(1)); + return 2; +} + +/* local addr, mcode, mfmiter = jit.util.mcode(func, block) */ +static int ju_mcode(lua_State *L) +{ + Proto *pt = check_LCL(L)->l.p; + if (pt->jit_szmcode == 0) { /* Not compiled (yet): return nil, status. */ + lua_pushnil(L); + lua_pushinteger(L, pt->jit_status); + return 2; + } else { + jit_Mfm *mfm; + jit_MCTrailer tr; + int block = luaL_checkint(L, 2); + tr.mcode = (char *)pt->jit_mcode; + tr.sz = pt->jit_szmcode; + while (--block > 0) { + void *trp = JIT_MCTRAILER(tr.mcode, tr.sz); + memcpy((void *)&tr, trp, sizeof(jit_MCTrailer)); + if (tr.sz == 0) return 0; + } + mfm = JIT_MCMFM(tr.mcode, tr.sz); + while (*mfm != JIT_MFM_STOP) mfm--; /* Search for end of mcode. */ + lua_pushnumber(L, (lua_Number)(size_t)tr.mcode); + lua_pushlstring(L, (const char *)tr.mcode, (char *)mfm-(char *)tr.mcode); + lua_pushlightuserdata(L, (void *)JIT_MCMFM(tr.mcode, tr.sz)); + lua_pushvalue(L, 1); /* Must hold onto function to avoid GC. */ + lua_pushcclosure(L, ju_mfmiter, 2); + return 3; + } +} + +/* local addr [, mcode] = jit.util.jsubmcode([idx]) */ +static int ju_jsubmcode(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + if (lua_isnoneornil(L, 1)) { + lua_pushnumber(L, (lua_Number)(size_t)J->jsubmcode); + lua_pushlstring(L, (const char *)J->jsubmcode, J->szjsubmcode); + return 2; + } else { + int idx = luaL_checkint(L, 1); + if (idx >= 0 && idx < J->numjsub) { + lua_pushnumber(L, (lua_Number)(size_t)J->jsub[idx]); + return 1; + } + return 0; + } +} + +/* FOR INTERNAL DEBUGGING USE ONLY: local addr = jit.util.stackptr() */ +static int ju_stackptr(lua_State *L) +{ + jit_State *J = G(L)->jit_state; + size_t addr = cast(size_t (*)(void), J->jsub[0])(); /* JSUB_STACKPTR == 0! */ + lua_pushnumber(L, (lua_Number)addr); + return 1; +} + +/* jit.util.* functions. */ +static const luaL_Reg jitutillib[] = { + {"stats", ju_stats }, + {"bytecode", ju_bytecode }, + {"const", ju_const }, + {"upvalue", ju_upvalue }, + {"closurenup", ju_closurenup }, + {"mcode", ju_mcode }, + {"jsubmcode", ju_jsubmcode }, + {"stackptr", ju_stackptr }, + { NULL, NULL } +}; + +/* Make hint name to hint number map. */ +static void makehints(lua_State *L, const char *const *t, int tmax, + const char *name) +{ + int i; + lua_createtable(L, 0, tmax); + for (i = 1; i < tmax; i++) { + lua_pushinteger(L, JIT_H2NUM(i)); + lua_setfield(L, -2, t[i-1]); + } + lua_setfield(L, -2, name); +} + +/* CHECK: must match with ljit.h (grep "ORDER JIT_S"). */ +static const char *const status_list[] = { + "OK", + "NONE", + "OFF", + "ENGINE_OFF", + "DELAYED", + "TOOLARGE", + "COMPILER_ERROR", + "DASM_ERROR" +}; + +/* Make bidirectional status name to status number map. */ +static void makestatus(lua_State *L, const char *name) +{ + int i; + lua_createtable(L, JIT_S_MAX-1, JIT_S_MAX+1); /* Codes are not 1-based. */ + for (i = 0; i < JIT_S_MAX; i++) { + lua_pushstring(L, status_list[i]); + lua_pushinteger(L, i); + lua_pushvalue(L, -2); + lua_rawseti(L, -4, i); + lua_rawset(L, -3); + } + lua_setfield(L, -2, name); +} + +/* ------------------------------------------------------------------------ */ + +/* +** Open JIT library +*/ +LUALIB_API int luaopen_jit(lua_State *L) +{ + /* Add the core JIT library. */ + luaL_register(L, LUA_JITLIBNAME, jitlib); + lua_pushliteral(L, LUAJIT_VERSION); + lua_setfield(L, -2, "version"); + setintfield("version_num", LUAJIT_VERSION_NUM); + lua_pushstring(L, luaJIT_arch); + lua_setfield(L, -2, "arch"); + makepipeline(L); + + /* Add the utility JIT library. */ + luaL_register(L, LUA_JITLIBNAME ".util", jitutillib); + makestatus(L, "status"); + makehints(L, hints_H, JIT_H_MAX, "hints"); + makehints(L, hints_FH, JIT_FH_MAX, "fhints"); + lua_pop(L, 1); + + /* Everything ok, so turn the JIT engine on. Vroooom! */ + if (luaJIT_setmode(L, 0, LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON) <= 0) { + /* Ouch. Someone screwed up DynASM or the JSUBs. Probably me. */ + /* But if you get 999999999, look at jit_consistency_check(). */ + return luaL_error(L, "JIT engine init failed (%d)", + G(L)->jit_state->dasmstatus); + } + + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/llex.c b/src/3rd party/LuaJIT-1.1.8/src/llex.c new file mode 100644 index 00000000000..88c6790c076 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llex.c @@ -0,0 +1,463 @@ +/* +** $Id: llex.c,v 2.20.1.2 2009/11/23 14:58:22 roberto Exp $ +** Lexical Analyzer +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define llex_c +#define LUA_CORE + +#include "lua.h" + +#include "ldo.h" +#include "llex.h" +#include "lobject.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "lzio.h" + + + +#define next(ls) (ls->current = zgetc(ls->z)) + + + + +#define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') + + +/* ORDER RESERVED */ +const char *const luaX_tokens [] = { + "and", "break", "do", "else", "elseif", + "end", "false", "for", "function", "if", + "in", "local", "nil", "not", "or", "repeat", + "return", "then", "true", "until", "while", + "..", "...", "==", ">=", "<=", "~=", + "", "", "", "", + NULL +}; + + +#define save_and_next(ls) (save(ls, ls->current), next(ls)) + + +static void save (LexState *ls, int c) { + Mbuffer *b = ls->buff; + if (b->n + 1 > b->buffsize) { + size_t newsize; + if (b->buffsize >= MAX_SIZET/2) + luaX_lexerror(ls, "lexical element too long", 0); + newsize = b->buffsize * 2; + luaZ_resizebuffer(ls->L, b, newsize); + } + b->buffer[b->n++] = cast(char, c); +} + + +void luaX_init (lua_State *L) { + int i; + for (i=0; itsv.reserved = cast_byte(i+1); /* reserved word */ + } +} + + +#define MAXSRC 80 + + +const char *luaX_token2str (LexState *ls, int token) { + if (token < FIRST_RESERVED) { + lua_assert(token == cast(unsigned char, token)); + return (iscntrl(token)) ? luaO_pushfstring(ls->L, "char(%d)", token) : + luaO_pushfstring(ls->L, "%c", token); + } + else + return luaX_tokens[token-FIRST_RESERVED]; +} + + +static const char *txtToken (LexState *ls, int token) { + switch (token) { + case TK_NAME: + case TK_STRING: + case TK_NUMBER: + save(ls, '\0'); + return luaZ_buffer(ls->buff); + default: + return luaX_token2str(ls, token); + } +} + + +void luaX_lexerror (LexState *ls, const char *msg, int token) { + char buff[MAXSRC]; + luaO_chunkid(buff, getstr(ls->source), MAXSRC); + msg = luaO_pushfstring(ls->L, "%s:%d: %s", buff, ls->linenumber, msg); + if (token) + luaO_pushfstring(ls->L, "%s near " LUA_QS, msg, txtToken(ls, token)); + luaD_throw(ls->L, LUA_ERRSYNTAX); +} + + +void luaX_syntaxerror (LexState *ls, const char *msg) { + luaX_lexerror(ls, msg, ls->t.token); +} + + +TString *luaX_newstring (LexState *ls, const char *str, size_t l) { + lua_State *L = ls->L; + TString *ts = luaS_newlstr(L, str, l); + TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ + if (ttisnil(o)) { + setbvalue(o, 1); /* make sure `str' will not be collected */ + luaC_checkGC(L); + } + return ts; +} + + +static void inclinenumber (LexState *ls) { + int old = ls->current; + lua_assert(currIsNewline(ls)); + next(ls); /* skip `\n' or `\r' */ + if (currIsNewline(ls) && ls->current != old) + next(ls); /* skip `\n\r' or `\r\n' */ + if (++ls->linenumber >= MAX_INT) + luaX_syntaxerror(ls, "chunk has too many lines"); +} + + +void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source) { + ls->decpoint = '.'; + ls->L = L; + ls->lookahead.token = TK_EOS; /* no look-ahead token */ + ls->z = z; + ls->fs = NULL; + ls->linenumber = 1; + ls->lastline = 1; + ls->source = source; + luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ + next(ls); /* read first char */ +} + + + +/* +** ======================================================= +** LEXICAL ANALYZER +** ======================================================= +*/ + + + +static int check_next (LexState *ls, const char *set) { + if (!strchr(set, ls->current)) + return 0; + save_and_next(ls); + return 1; +} + + +static void buffreplace (LexState *ls, char from, char to) { + size_t n = luaZ_bufflen(ls->buff); + char *p = luaZ_buffer(ls->buff); + while (n--) + if (p[n] == from) p[n] = to; +} + + +static void trydecpoint (LexState *ls, SemInfo *seminfo) { + /* format error: try to update decimal point separator */ + struct lconv *cv = localeconv(); + char old = ls->decpoint; + ls->decpoint = (cv ? cv->decimal_point[0] : '.'); + buffreplace(ls, old, ls->decpoint); /* try updated decimal separator */ + if (!luaO_str2d(luaZ_buffer(ls->buff), &seminfo->r)) { + /* format error with correct decimal point: no more options */ + buffreplace(ls, ls->decpoint, '.'); /* undo change (for error message) */ + luaX_lexerror(ls, "malformed number", TK_NUMBER); + } +} + + +/* LUA_NUMBER */ +static void read_numeral (LexState *ls, SemInfo *seminfo) { + lua_assert(isdigit(ls->current)); + do { + save_and_next(ls); + } while (isdigit(ls->current) || ls->current == '.'); + if (check_next(ls, "Ee")) /* `E'? */ + check_next(ls, "+-"); /* optional exponent sign */ + while (isalnum(ls->current) || ls->current == '_') + save_and_next(ls); + save(ls, '\0'); + buffreplace(ls, '.', ls->decpoint); /* follow locale for decimal point */ + if (!luaO_str2d(luaZ_buffer(ls->buff), &seminfo->r)) /* format error? */ + trydecpoint(ls, seminfo); /* try to update decimal point separator */ +} + + +static int skip_sep (LexState *ls) { + int count = 0; + int s = ls->current; + lua_assert(s == '[' || s == ']'); + save_and_next(ls); + while (ls->current == '=') { + save_and_next(ls); + count++; + } + return (ls->current == s) ? count : (-count) - 1; +} + + +static void read_long_string (LexState *ls, SemInfo *seminfo, int sep) { + int cont = 0; + (void)(cont); /* avoid warnings when `cont' is not used */ + save_and_next(ls); /* skip 2nd `[' */ + if (currIsNewline(ls)) /* string starts with a newline? */ + inclinenumber(ls); /* skip it */ + for (;;) { + switch (ls->current) { + case EOZ: + luaX_lexerror(ls, (seminfo) ? "unfinished long string" : + "unfinished long comment", TK_EOS); + break; /* to avoid warnings */ +#if defined(LUA_COMPAT_LSTR) + case '[': { + if (skip_sep(ls) == sep) { + save_and_next(ls); /* skip 2nd `[' */ + cont++; +#if LUA_COMPAT_LSTR == 1 + if (sep == 0) + luaX_lexerror(ls, "nesting of [[...]] is deprecated", '['); +#endif + } + break; + } +#endif + case ']': { + if (skip_sep(ls) == sep) { + save_and_next(ls); /* skip 2nd `]' */ +#if defined(LUA_COMPAT_LSTR) && LUA_COMPAT_LSTR == 2 + cont--; + if (sep == 0 && cont >= 0) break; +#endif + goto endloop; + } + break; + } + case '\n': + case '\r': { + save(ls, '\n'); + inclinenumber(ls); + if (!seminfo) luaZ_resetbuffer(ls->buff); /* avoid wasting space */ + break; + } + default: { + if (seminfo) save_and_next(ls); + else next(ls); + } + } + } endloop: + if (seminfo) + seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + (2 + sep), + luaZ_bufflen(ls->buff) - 2*(2 + sep)); +} + + +static void read_string (LexState *ls, int del, SemInfo *seminfo) { + save_and_next(ls); + while (ls->current != del) { + switch (ls->current) { + case EOZ: + luaX_lexerror(ls, "unfinished string", TK_EOS); + continue; /* to avoid warnings */ + case '\n': + case '\r': + luaX_lexerror(ls, "unfinished string", TK_STRING); + continue; /* to avoid warnings */ + case '\\': { + int c; + next(ls); /* do not save the `\' */ + switch (ls->current) { + case 'a': c = '\a'; break; + case 'b': c = '\b'; break; + case 'f': c = '\f'; break; + case 'n': c = '\n'; break; + case 'r': c = '\r'; break; + case 't': c = '\t'; break; + case 'v': c = '\v'; break; + case '\n': /* go through */ + case '\r': save(ls, '\n'); inclinenumber(ls); continue; + case EOZ: continue; /* will raise an error next loop */ + default: { + if (!isdigit(ls->current)) + save_and_next(ls); /* handles \\, \", \', and \? */ + else { /* \xxx */ + int i = 0; + c = 0; + do { + c = 10*c + (ls->current-'0'); + next(ls); + } while (++i<3 && isdigit(ls->current)); + if (c > UCHAR_MAX) + luaX_lexerror(ls, "escape sequence too large", TK_STRING); + save(ls, c); + } + continue; + } + } + save(ls, c); + next(ls); + continue; + } + default: + save_and_next(ls); + } + } + save_and_next(ls); /* skip delimiter */ + seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + 1, + luaZ_bufflen(ls->buff) - 2); +} + + +static int llex (LexState *ls, SemInfo *seminfo) { + luaZ_resetbuffer(ls->buff); + for (;;) { + switch (ls->current) { + case '\n': + case '\r': { + inclinenumber(ls); + continue; + } + case '-': { + next(ls); + if (ls->current != '-') return '-'; + /* else is a comment */ + next(ls); + if (ls->current == '[') { + int sep = skip_sep(ls); + luaZ_resetbuffer(ls->buff); /* `skip_sep' may dirty the buffer */ + if (sep >= 0) { + read_long_string(ls, NULL, sep); /* long comment */ + luaZ_resetbuffer(ls->buff); + continue; + } + } + /* else short comment */ + while (!currIsNewline(ls) && ls->current != EOZ) + next(ls); + continue; + } + case '[': { + int sep = skip_sep(ls); + if (sep >= 0) { + read_long_string(ls, seminfo, sep); + return TK_STRING; + } + else if (sep == -1) return '['; + else luaX_lexerror(ls, "invalid long string delimiter", TK_STRING); + } + case '=': { + next(ls); + if (ls->current != '=') return '='; + else { next(ls); return TK_EQ; } + } + case '<': { + next(ls); + if (ls->current != '=') return '<'; + else { next(ls); return TK_LE; } + } + case '>': { + next(ls); + if (ls->current != '=') return '>'; + else { next(ls); return TK_GE; } + } + case '~': { + next(ls); + if (ls->current != '=') return '~'; + else { next(ls); return TK_NE; } + } + case '"': + case '\'': { + read_string(ls, ls->current, seminfo); + return TK_STRING; + } + case '.': { + save_and_next(ls); + if (check_next(ls, ".")) { + if (check_next(ls, ".")) + return TK_DOTS; /* ... */ + else return TK_CONCAT; /* .. */ + } + else if (!isdigit(ls->current)) return '.'; + else { + read_numeral(ls, seminfo); + return TK_NUMBER; + } + } + case EOZ: { + return TK_EOS; + } + default: { + if (isspace(ls->current)) { + lua_assert(!currIsNewline(ls)); + next(ls); + continue; + } + else if (isdigit(ls->current)) { + read_numeral(ls, seminfo); + return TK_NUMBER; + } + else if (isalpha(ls->current) || ls->current == '_') { + /* identifier or reserved word */ + TString *ts; + do { + save_and_next(ls); + } while (isalnum(ls->current) || ls->current == '_'); + ts = luaX_newstring(ls, luaZ_buffer(ls->buff), + luaZ_bufflen(ls->buff)); + if (ts->tsv.reserved > 0) /* reserved word? */ + return ts->tsv.reserved - 1 + FIRST_RESERVED; + else { + seminfo->ts = ts; + return TK_NAME; + } + } + else { + int c = ls->current; + next(ls); + return c; /* single-char tokens (+ - / ...) */ + } + } + } + } +} + + +void luaX_next (LexState *ls) { + ls->lastline = ls->linenumber; + if (ls->lookahead.token != TK_EOS) { /* is there a look-ahead token? */ + ls->t = ls->lookahead; /* use this one */ + ls->lookahead.token = TK_EOS; /* and discharge it */ + } + else + ls->t.token = llex(ls, &ls->t.seminfo); /* read next token */ +} + + +void luaX_lookahead (LexState *ls) { + lua_assert(ls->lookahead.token == TK_EOS); + ls->lookahead.token = llex(ls, &ls->lookahead.seminfo); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/llex.h b/src/3rd party/LuaJIT-1.1.8/src/llex.h new file mode 100644 index 00000000000..a9201cee484 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llex.h @@ -0,0 +1,81 @@ +/* +** $Id: llex.h,v 1.58.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lexical Analyzer +** See Copyright Notice in lua.h +*/ + +#ifndef llex_h +#define llex_h + +#include "lobject.h" +#include "lzio.h" + + +#define FIRST_RESERVED 257 + +/* maximum length of a reserved word */ +#define TOKEN_LEN (sizeof("function")/sizeof(char)) + + +/* +* WARNING: if you change the order of this enumeration, +* grep "ORDER RESERVED" +*/ +enum RESERVED { + /* terminal symbols denoted by reserved words */ + TK_AND = FIRST_RESERVED, TK_BREAK, + TK_DO, TK_ELSE, TK_ELSEIF, TK_END, TK_FALSE, TK_FOR, TK_FUNCTION, + TK_IF, TK_IN, TK_LOCAL, TK_NIL, TK_NOT, TK_OR, TK_REPEAT, + TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE, + /* other terminal symbols */ + TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NUMBER, + TK_NAME, TK_STRING, TK_EOS +}; + +/* number of reserved words */ +#define NUM_RESERVED (cast(int, TK_WHILE-FIRST_RESERVED+1)) + + +/* array with token `names' */ +LUAI_DATA const char *const luaX_tokens []; + + +typedef union { + lua_Number r; + TString *ts; +} SemInfo; /* semantics information */ + + +typedef struct Token { + int token; + SemInfo seminfo; +} Token; + + +typedef struct LexState { + int current; /* current character (charint) */ + int linenumber; /* input line counter */ + int lastline; /* line of last token `consumed' */ + Token t; /* current token */ + Token lookahead; /* look ahead token */ + struct FuncState *fs; /* `FuncState' is private to the parser */ + struct lua_State *L; + ZIO *z; /* input stream */ + Mbuffer *buff; /* buffer for tokens */ + TString *source; /* current source name */ + char decpoint; /* locale decimal point */ +} LexState; + + +LUAI_FUNC void luaX_init (lua_State *L); +LUAI_FUNC void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, + TString *source); +LUAI_FUNC TString *luaX_newstring (LexState *ls, const char *str, size_t l); +LUAI_FUNC void luaX_next (LexState *ls); +LUAI_FUNC void luaX_lookahead (LexState *ls); +LUAI_FUNC void luaX_lexerror (LexState *ls, const char *msg, int token); +LUAI_FUNC void luaX_syntaxerror (LexState *ls, const char *s); +LUAI_FUNC const char *luaX_token2str (LexState *ls, int token); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/llimits.h b/src/3rd party/LuaJIT-1.1.8/src/llimits.h new file mode 100644 index 00000000000..ca8dcb72244 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/llimits.h @@ -0,0 +1,128 @@ +/* +** $Id: llimits.h,v 1.69.1.1 2007/12/27 13:02:25 roberto Exp $ +** Limits, basic types, and some other `installation-dependent' definitions +** See Copyright Notice in lua.h +*/ + +#ifndef llimits_h +#define llimits_h + + +#include +#include + + +#include "lua.h" + + +typedef LUAI_UINT32 lu_int32; + +typedef LUAI_UMEM lu_mem; + +typedef LUAI_MEM l_mem; + + + +/* chars used as small naturals (so that `char' is reserved for characters) */ +typedef unsigned char lu_byte; + + +#define MAX_SIZET ((size_t)(~(size_t)0)-2) + +#define MAX_LUMEM ((lu_mem)(~(lu_mem)0)-2) + + +#define MAX_INT (INT_MAX-2) /* maximum value of an int (-2 for safety) */ + +/* +** conversion of pointer to integer +** this is for hashing only; there is no problem if the integer +** cannot hold the whole pointer value +*/ +#define IntPoint(p) ((unsigned int)(lu_mem)(p)) + + + +/* type to ensure maximum alignment */ +typedef LUAI_USER_ALIGNMENT_T L_Umaxalign; + + +/* result of a `usual argument conversion' over lua_Number */ +typedef LUAI_UACNUMBER l_uacNumber; + + +/* internal assertions for in-house debugging */ +#ifdef lua_assert + +#define check_exp(c,e) (lua_assert(c), (e)) +#define api_check(l,e) lua_assert(e) + +#else + +#define lua_assert(c) ((void)0) +#define check_exp(c,e) (e) +#define api_check luai_apicheck + +#endif + + +#ifndef UNUSED +#define UNUSED(x) ((void)(x)) /* to avoid warnings */ +#endif + + +#ifndef cast +#define cast(t, exp) ((t)(exp)) +#endif + +#define cast_byte(i) cast(lu_byte, (i)) +#define cast_num(i) cast(lua_Number, (i)) +#define cast_int(i) cast(int, (i)) + + + +/* +** type for virtual-machine instructions +** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h) +*/ +typedef lu_int32 Instruction; + + + +/* maximum stack for a Lua function */ +#define MAXSTACK 250 + + + +/* minimum size for the string table (must be power of 2) */ +#ifndef MINSTRTABSIZE +#define MINSTRTABSIZE 32 +#endif + + +/* minimum size for string buffer */ +#ifndef LUA_MINBUFFER +#define LUA_MINBUFFER 32 +#endif + + +#ifndef lua_lock +#define lua_lock(L) ((void) 0) +#define lua_unlock(L) ((void) 0) +#endif + +#ifndef luai_threadyield +#define luai_threadyield(L) {lua_unlock(L); lua_lock(L);} +#endif + + +/* +** macro to control inclusion of some hard tests on stack reallocation +*/ +#ifndef HARDSTACKTESTS +#define condhardstacktests(x) ((void)0) +#else +#define condhardstacktests(x) x +#endif + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c b/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c new file mode 100644 index 00000000000..441fbf736c2 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmathlib.c @@ -0,0 +1,263 @@ +/* +** $Id: lmathlib.c,v 1.67.1.1 2007/12/27 13:02:25 roberto Exp $ +** Standard mathematical library +** See Copyright Notice in lua.h +*/ + + +#include +#include + +#define lmathlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +#undef PI +#define PI (3.14159265358979323846) +#define RADIANS_PER_DEGREE (PI/180.0) + + + +static int math_abs (lua_State *L) { + lua_pushnumber(L, fabs(luaL_checknumber(L, 1))); + return 1; +} + +static int math_sin (lua_State *L) { + lua_pushnumber(L, sin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_sinh (lua_State *L) { + lua_pushnumber(L, sinh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cos (lua_State *L) { + lua_pushnumber(L, cos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cosh (lua_State *L) { + lua_pushnumber(L, cosh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tan (lua_State *L) { + lua_pushnumber(L, tan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tanh (lua_State *L) { + lua_pushnumber(L, tanh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_asin (lua_State *L) { + lua_pushnumber(L, asin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_acos (lua_State *L) { + lua_pushnumber(L, acos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan (lua_State *L) { + lua_pushnumber(L, atan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan2 (lua_State *L) { + lua_pushnumber(L, atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_ceil (lua_State *L) { + lua_pushnumber(L, ceil(luaL_checknumber(L, 1))); + return 1; +} + +static int math_floor (lua_State *L) { + lua_pushnumber(L, floor(luaL_checknumber(L, 1))); + return 1; +} + +static int math_fmod (lua_State *L) { + lua_pushnumber(L, fmod(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_modf (lua_State *L) { + double ip; + double fp = modf(luaL_checknumber(L, 1), &ip); + lua_pushnumber(L, ip); + lua_pushnumber(L, fp); + return 2; +} + +static int math_sqrt (lua_State *L) { + lua_pushnumber(L, sqrt(luaL_checknumber(L, 1))); + return 1; +} + +static int math_pow (lua_State *L) { + lua_pushnumber(L, pow(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_log (lua_State *L) { + lua_pushnumber(L, log(luaL_checknumber(L, 1))); + return 1; +} + +static int math_log10 (lua_State *L) { + lua_pushnumber(L, log10(luaL_checknumber(L, 1))); + return 1; +} + +static int math_exp (lua_State *L) { + lua_pushnumber(L, exp(luaL_checknumber(L, 1))); + return 1; +} + +static int math_deg (lua_State *L) { + lua_pushnumber(L, luaL_checknumber(L, 1)/RADIANS_PER_DEGREE); + return 1; +} + +static int math_rad (lua_State *L) { + lua_pushnumber(L, luaL_checknumber(L, 1)*RADIANS_PER_DEGREE); + return 1; +} + +static int math_frexp (lua_State *L) { + int e; + lua_pushnumber(L, frexp(luaL_checknumber(L, 1), &e)); + lua_pushinteger(L, e); + return 2; +} + +static int math_ldexp (lua_State *L) { + lua_pushnumber(L, ldexp(luaL_checknumber(L, 1), luaL_checkint(L, 2))); + return 1; +} + + + +static int math_min (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmin = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d < dmin) + dmin = d; + } + lua_pushnumber(L, dmin); + return 1; +} + + +static int math_max (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmax = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d > dmax) + dmax = d; + } + lua_pushnumber(L, dmax); + return 1; +} + + +static int math_random (lua_State *L) { + /* the `%' avoids the (rare) case of r==1, and is needed also because on + some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */ + lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX; + switch (lua_gettop(L)) { /* check number of arguments */ + case 0: { /* no arguments */ + lua_pushnumber(L, r); /* Number between 0 and 1 */ + break; + } + case 1: { /* only upper limit */ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1<=u, 1, "interval is empty"); + lua_pushnumber(L, floor(r*u)+1); /* int between 1 and `u' */ + break; + } + case 2: { /* lower and upper limits */ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l<=u, 2, "interval is empty"); + lua_pushnumber(L, floor(r*(u-l+1))+l); /* int between `l' and `u' */ + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; +} + + +static int math_randomseed (lua_State *L) { + srand(luaL_checkint(L, 1)); + return 0; +} + + +static const luaL_Reg mathlib[] = { + {"abs", math_abs}, + {"acos", math_acos}, + {"asin", math_asin}, + {"atan2", math_atan2}, + {"atan", math_atan}, + {"ceil", math_ceil}, + {"cosh", math_cosh}, + {"cos", math_cos}, + {"deg", math_deg}, + {"exp", math_exp}, + {"floor", math_floor}, + {"fmod", math_fmod}, + {"frexp", math_frexp}, + {"ldexp", math_ldexp}, + {"log10", math_log10}, + {"log", math_log}, + {"max", math_max}, + {"min", math_min}, + {"modf", math_modf}, + {"pow", math_pow}, + {"rad", math_rad}, + {"random", math_random}, + {"randomseed", math_randomseed}, + {"sinh", math_sinh}, + {"sin", math_sin}, + {"sqrt", math_sqrt}, + {"tanh", math_tanh}, + {"tan", math_tan}, + {NULL, NULL} +}; + + +/* +** Open math library +*/ +LUALIB_API int luaopen_math (lua_State *L) { + luaL_register(L, LUA_MATHLIBNAME, mathlib); + lua_pushnumber(L, PI); + lua_setfield(L, -2, "pi"); + lua_pushnumber(L, HUGE_VAL); + lua_setfield(L, -2, "huge"); +#if defined(LUA_COMPAT_MOD) + lua_getfield(L, -1, "fmod"); + lua_setfield(L, -2, "mod"); +#endif + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmem.c b/src/3rd party/LuaJIT-1.1.8/src/lmem.c new file mode 100644 index 00000000000..ae7d8c965f6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmem.c @@ -0,0 +1,86 @@ +/* +** $Id: lmem.c,v 1.70.1.1 2007/12/27 13:02:25 roberto Exp $ +** Interface to Memory Manager +** See Copyright Notice in lua.h +*/ + + +#include + +#define lmem_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" + + + +/* +** About the realloc function: +** void * frealloc (void *ud, void *ptr, size_t osize, size_t nsize); +** (`osize' is the old size, `nsize' is the new size) +** +** Lua ensures that (ptr == NULL) iff (osize == 0). +** +** * frealloc(ud, NULL, 0, x) creates a new block of size `x' +** +** * frealloc(ud, p, x, 0) frees the block `p' +** (in this specific case, frealloc must return NULL). +** particularly, frealloc(ud, NULL, 0, 0) does nothing +** (which is equivalent to free(NULL) in ANSI C) +** +** frealloc returns NULL if it cannot create or reallocate the area +** (any reallocation to an equal or smaller size cannot fail!) +*/ + + + +#define MINSIZEARRAY 4 + + +void *luaM_growaux_ (lua_State *L, void *block, int *size, size_t size_elems, + int limit, const char *errormsg) { + void *newblock; + int newsize; + if (*size >= limit/2) { /* cannot double it? */ + if (*size >= limit) /* cannot grow even a little? */ + luaG_runerror(L, errormsg); + newsize = limit; /* still have at least one free place */ + } + else { + newsize = (*size)*2; + if (newsize < MINSIZEARRAY) + newsize = MINSIZEARRAY; /* minimum size */ + } + newblock = luaM_reallocv(L, block, *size, newsize, size_elems); + *size = newsize; /* update only when everything else is OK */ + return newblock; +} + + +void *luaM_toobig (lua_State *L) { + luaG_runerror(L, "memory allocation error: block too big"); + return NULL; /* to avoid warnings */ +} + + + +/* +** generic allocation routine. +*/ +void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { + global_State *g = G(L); + lua_assert((osize == 0) == (block == NULL)); + block = (*g->frealloc)(g->ud, block, osize, nsize); + if (block == NULL && nsize > 0) + luaD_throw(L, LUA_ERRMEM); + lua_assert((nsize == 0) == (block == NULL)); + g->totalbytes = (g->totalbytes - osize) + nsize; + return block; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lmem.h b/src/3rd party/LuaJIT-1.1.8/src/lmem.h new file mode 100644 index 00000000000..7c2dcb32207 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lmem.h @@ -0,0 +1,49 @@ +/* +** $Id: lmem.h,v 1.31.1.1 2007/12/27 13:02:25 roberto Exp $ +** Interface to Memory Manager +** See Copyright Notice in lua.h +*/ + +#ifndef lmem_h +#define lmem_h + + +#include + +#include "llimits.h" +#include "lua.h" + +#define MEMERRMSG "not enough memory" + + +#define luaM_reallocv(L,b,on,n,e) \ + ((cast(size_t, (n)+1) <= MAX_SIZET/(e)) ? /* +1 to avoid warnings */ \ + luaM_realloc_(L, (b), (on)*(e), (n)*(e)) : \ + luaM_toobig(L)) + +#define luaM_freemem(L, b, s) luaM_realloc_(L, (b), (s), 0) +#define luaM_free(L, b) luaM_realloc_(L, (b), sizeof(*(b)), 0) +#define luaM_freearray(L, b, n, t) luaM_reallocv(L, (b), n, 0, sizeof(t)) + +#define luaM_malloc(L,t) luaM_realloc_(L, NULL, 0, (t)) +#define luaM_new(L,t) cast(t *, luaM_malloc(L, sizeof(t))) +#define luaM_newvector(L,n,t) \ + cast(t *, luaM_reallocv(L, NULL, 0, n, sizeof(t))) + +#define luaM_growvector(L,v,nelems,size,t,limit,e) \ + if ((nelems)+1 > (size)) \ + ((v)=cast(t *, luaM_growaux_(L,v,&(size),sizeof(t),limit,e))) + +#define luaM_reallocvector(L, v,oldn,n,t) \ + ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t)))) + + +LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, + size_t size); +LUAI_FUNC void *luaM_toobig (lua_State *L); +LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size, + size_t size_elem, int limit, + const char *errormsg); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/loadlib.c b/src/3rd party/LuaJIT-1.1.8/src/loadlib.c new file mode 100644 index 00000000000..7b05e06098d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/loadlib.c @@ -0,0 +1,669 @@ +/* +** $Id: loadlib.c,v 1.52.1.4 2009/09/09 13:17:16 roberto Exp $ +** Dynamic library loader for Lua +** See Copyright Notice in lua.h +** +** This module contains an implementation of loadlib for Unix systems +** that have dlfcn, an implementation for Darwin (Mac OS X), an +** implementation for Windows, and a stub for other systems. +*/ + + +#include +#include + + +#define loadlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" + + +/* prefix for open functions in C libraries */ +#define LUA_POF "luaopen_" + +/* separator for open functions in C libraries */ +#define LUA_OFSEP "_" + + +#define LIBPREFIX "LOADLIB: " + +#define POF LUA_POF +#define LIB_FAIL "open" + + +/* error codes for ll_loadfunc */ +#define ERRLIB 1 +#define ERRFUNC 2 + +#define setprogdir(L) ((void)0) + + +static void ll_unloadlib (void *lib); +static void *ll_load (lua_State *L, const char *path); +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym); + + + +#if defined(LUA_DL_DLOPEN) +/* +** {======================================================================== +** This is an implementation of loadlib based on the dlfcn interface. +** The dlfcn interface is available in Linux, SunOS, Solaris, IRIX, FreeBSD, +** NetBSD, AIX 4.2, HPUX 11, and probably most other Unix flavors, at least +** as an emulation layer on top of native functions. +** ========================================================================= +*/ + +#include + +static void ll_unloadlib (void *lib) { + dlclose(lib); +} + + +static void *ll_load (lua_State *L, const char *path) { + void *lib = dlopen(path, RTLD_NOW); + if (lib == NULL) lua_pushstring(L, dlerror()); + return lib; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + lua_CFunction f = (lua_CFunction)dlsym(lib, sym); + if (f == NULL) lua_pushstring(L, dlerror()); + return f; +} + +/* }====================================================== */ + + + +#elif defined(LUA_DL_DLL) +/* +** {====================================================================== +** This is an implementation of loadlib for Windows using native functions. +** ======================================================================= +*/ + +#include + + +#undef setprogdir + +static void setprogdir (lua_State *L) { + char buff[MAX_PATH + 1]; + char *lb; + DWORD nsize = sizeof(buff)/sizeof(char); + DWORD n = GetModuleFileNameA(NULL, buff, nsize); + if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) + luaL_error(L, "unable to get ModuleFileName"); + else { + *lb = '\0'; + luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff); + lua_remove(L, -2); /* remove original string */ + } +} + + +static void pusherror (lua_State *L) { + int error = GetLastError(); + char buffer[128]; + if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, + NULL, error, 0, buffer, sizeof(buffer), NULL)) + lua_pushstring(L, buffer); + else + lua_pushfstring(L, "system error %d\n", error); +} + +static void ll_unloadlib (void *lib) { + FreeLibrary((HINSTANCE)lib); +} + + +static void *ll_load (lua_State *L, const char *path) { + HINSTANCE lib = LoadLibraryA(path); + if (lib == NULL) pusherror(L); + return lib; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + lua_CFunction f = (lua_CFunction)GetProcAddress((HINSTANCE)lib, sym); + if (f == NULL) pusherror(L); + return f; +} + +/* }====================================================== */ + + + +#elif defined(LUA_DL_DYLD) +/* +** {====================================================================== +** Native Mac OS X / Darwin Implementation +** ======================================================================= +*/ + +#include + + +/* Mac appends a `_' before C function names */ +#undef POF +#define POF "_" LUA_POF + + +static void pusherror (lua_State *L) { + const char *err_str; + const char *err_file; + NSLinkEditErrors err; + int err_num; + NSLinkEditError(&err, &err_num, &err_file, &err_str); + lua_pushstring(L, err_str); +} + + +static const char *errorfromcode (NSObjectFileImageReturnCode ret) { + switch (ret) { + case NSObjectFileImageInappropriateFile: + return "file is not a bundle"; + case NSObjectFileImageArch: + return "library is for wrong CPU type"; + case NSObjectFileImageFormat: + return "bad format"; + case NSObjectFileImageAccess: + return "cannot access file"; + case NSObjectFileImageFailure: + default: + return "unable to load library"; + } +} + + +static void ll_unloadlib (void *lib) { + NSUnLinkModule((NSModule)lib, NSUNLINKMODULE_OPTION_RESET_LAZY_REFERENCES); +} + + +static void *ll_load (lua_State *L, const char *path) { + NSObjectFileImage img; + NSObjectFileImageReturnCode ret; + /* this would be a rare case, but prevents crashing if it happens */ + if(!_dyld_present()) { + lua_pushliteral(L, "dyld not present"); + return NULL; + } + ret = NSCreateObjectFileImageFromFile(path, &img); + if (ret == NSObjectFileImageSuccess) { + NSModule mod = NSLinkModule(img, path, NSLINKMODULE_OPTION_PRIVATE | + NSLINKMODULE_OPTION_RETURN_ON_ERROR); + NSDestroyObjectFileImage(img); + if (mod == NULL) pusherror(L); + return mod; + } + lua_pushstring(L, errorfromcode(ret)); + return NULL; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + NSSymbol nss = NSLookupSymbolInModule((NSModule)lib, sym); + if (nss == NULL) { + lua_pushfstring(L, "symbol " LUA_QS " not found", sym); + return NULL; + } + return (lua_CFunction)NSAddressOfSymbol(nss); +} + +/* }====================================================== */ + + + +#else +/* +** {====================================================== +** Fallback for other systems +** ======================================================= +*/ + +#undef LIB_FAIL +#define LIB_FAIL "absent" + + +#define DLMSG "dynamic libraries not enabled; check your Lua installation" + + +static void ll_unloadlib (void *lib) { + (void)lib; /* to avoid warnings */ +} + + +static void *ll_load (lua_State *L, const char *path) { + (void)path; /* to avoid warnings */ + lua_pushliteral(L, DLMSG); + return NULL; +} + + +static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { + (void)lib; (void)sym; /* to avoid warnings */ + lua_pushliteral(L, DLMSG); + return NULL; +} + +/* }====================================================== */ +#endif + + + +static void **ll_register (lua_State *L, const char *path) { + void **plib; + lua_pushfstring(L, "%s%s", LIBPREFIX, path); + lua_gettable(L, LUA_REGISTRYINDEX); /* check library in registry? */ + if (!lua_isnil(L, -1)) /* is there an entry? */ + plib = (void **)lua_touserdata(L, -1); + else { /* no entry yet; create one */ + lua_pop(L, 1); + plib = (void **)lua_newuserdata(L, sizeof(const void *)); + *plib = NULL; + luaL_getmetatable(L, "_LOADLIB"); + lua_setmetatable(L, -2); + lua_pushfstring(L, "%s%s", LIBPREFIX, path); + lua_pushvalue(L, -2); + lua_settable(L, LUA_REGISTRYINDEX); + } + return plib; +} + + +/* +** __gc tag method: calls library's `ll_unloadlib' function with the lib +** handle +*/ +static int gctm (lua_State *L) { + void **lib = (void **)luaL_checkudata(L, 1, "_LOADLIB"); + if (*lib) ll_unloadlib(*lib); + *lib = NULL; /* mark library as closed */ + return 0; +} + + +static int ll_loadfunc (lua_State *L, const char *path, const char *sym) { + void **reg = ll_register(L, path); + if (*reg == NULL) *reg = ll_load(L, path); + if (*reg == NULL) + return ERRLIB; /* unable to load library */ + else { + lua_CFunction f = ll_sym(L, *reg, sym); + if (f == NULL) + return ERRFUNC; /* unable to find function */ + lua_pushcfunction(L, f); + return 0; /* return function */ + } +} + + +static int ll_loadlib (lua_State *L) { + const char *path = luaL_checkstring(L, 1); + const char *init = luaL_checkstring(L, 2); + int stat = ll_loadfunc(L, path, init); + if (stat == 0) /* no errors? */ + return 1; /* return the loaded function */ + else { /* error; error message is on stack top */ + lua_pushnil(L); + lua_insert(L, -2); + lua_pushstring(L, (stat == ERRLIB) ? LIB_FAIL : "init"); + return 3; /* return nil, error message, and where */ + } +} + + + +/* +** {====================================================== +** 'require' function +** ======================================================= +*/ + + +static int readable (const char *filename) { + FILE *f = fopen(filename, "r"); /* try to open file */ + if (f == NULL) return 0; /* open failed */ + fclose(f); + return 1; +} + + +static const char *pushnexttemplate (lua_State *L, const char *path) { + const char *l; + while (*path == *LUA_PATHSEP) path++; /* skip separators */ + if (*path == '\0') return NULL; /* no more templates */ + l = strchr(path, *LUA_PATHSEP); /* find next separator */ + if (l == NULL) l = path + strlen(path); + lua_pushlstring(L, path, l - path); /* template */ + return l; +} + + +static const char *findfile (lua_State *L, const char *name, + const char *pname) { + const char *path; + name = luaL_gsub(L, name, ".", LUA_DIRSEP); + lua_getfield(L, LUA_ENVIRONINDEX, pname); + path = lua_tostring(L, -1); + if (path == NULL) + luaL_error(L, LUA_QL("package.%s") " must be a string", pname); + lua_pushliteral(L, ""); /* error accumulator */ + while ((path = pushnexttemplate(L, path)) != NULL) { + const char *filename; + filename = luaL_gsub(L, lua_tostring(L, -1), LUA_PATH_MARK, name); + lua_remove(L, -2); /* remove path template */ + if (readable(filename)) /* does file exist and is readable? */ + return filename; /* return that file name */ + lua_pushfstring(L, "\n\tno file " LUA_QS, filename); + lua_remove(L, -2); /* remove file name */ + lua_concat(L, 2); /* add entry to possible error message */ + } + return NULL; /* not found */ +} + + +static void loaderror (lua_State *L, const char *filename) { + luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s", + lua_tostring(L, 1), filename, lua_tostring(L, -1)); +} + + +static int loader_Lua (lua_State *L) { + const char *filename; + const char *name = luaL_checkstring(L, 1); + filename = findfile(L, name, "path"); + if (filename == NULL) return 1; /* library not found in this path */ + if (luaL_loadfile(L, filename) != 0) + loaderror(L, filename); + /* not useful to JIT compile main chunk of a module */ + luaJIT_setmode(L, -1, LUAJIT_MODE_FUNC|LUAJIT_MODE_OFF); + return 1; /* library loaded successfully */ +} + + +static const char *mkfuncname (lua_State *L, const char *modname) { + const char *funcname; + const char *mark = strchr(modname, *LUA_IGMARK); + if (mark) modname = mark + 1; + funcname = luaL_gsub(L, modname, ".", LUA_OFSEP); + funcname = lua_pushfstring(L, POF"%s", funcname); + lua_remove(L, -2); /* remove 'gsub' result */ + return funcname; +} + + +static int loader_C (lua_State *L) { + const char *funcname; + const char *name = luaL_checkstring(L, 1); + const char *filename = findfile(L, name, "cpath"); + if (filename == NULL) return 1; /* library not found in this path */ + funcname = mkfuncname(L, name); + if (ll_loadfunc(L, filename, funcname) != 0) + loaderror(L, filename); + return 1; /* library loaded successfully */ +} + + +static int loader_Croot (lua_State *L) { + const char *funcname; + const char *filename; + const char *name = luaL_checkstring(L, 1); + const char *p = strchr(name, '.'); + int stat; + if (p == NULL) return 0; /* is root */ + lua_pushlstring(L, name, p - name); + filename = findfile(L, lua_tostring(L, -1), "cpath"); + if (filename == NULL) return 1; /* root not found */ + funcname = mkfuncname(L, name); + if ((stat = ll_loadfunc(L, filename, funcname)) != 0) { + if (stat != ERRFUNC) loaderror(L, filename); /* real error */ + lua_pushfstring(L, "\n\tno module " LUA_QS " in file " LUA_QS, + name, filename); + return 1; /* function not found */ + } + return 1; +} + + +static int loader_preload (lua_State *L) { + const char *name = luaL_checkstring(L, 1); + lua_getfield(L, LUA_ENVIRONINDEX, "preload"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.preload") " must be a table"); + lua_getfield(L, -1, name); + if (lua_isnil(L, -1)) /* not found? */ + lua_pushfstring(L, "\n\tno field package.preload['%s']", name); + return 1; +} + + +static const int sentinel_ = 0; +#define sentinel ((void *)&sentinel_) + + +static int ll_require (lua_State *L) { + const char *name = luaL_checkstring(L, 1); + int i; + lua_settop(L, 1); /* _LOADED table will be at index 2 */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, 2, name); + if (lua_toboolean(L, -1)) { /* is it there? */ + if (lua_touserdata(L, -1) == sentinel) /* check loops */ + luaL_error(L, "loop or previous error loading module " LUA_QS, name); + return 1; /* package is already loaded */ + } + /* else must load it; iterate over available loaders */ + lua_getfield(L, LUA_ENVIRONINDEX, "loaders"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.loaders") " must be a table"); + lua_pushliteral(L, ""); /* error message accumulator */ + for (i=1; ; i++) { + lua_rawgeti(L, -2, i); /* get a loader */ + if (lua_isnil(L, -1)) + luaL_error(L, "module " LUA_QS " not found:%s", + name, lua_tostring(L, -2)); + lua_pushstring(L, name); + lua_call(L, 1, 1); /* call it */ + if (lua_isfunction(L, -1)) /* did it find module? */ + break; /* module loaded successfully */ + else if (lua_isstring(L, -1)) /* loader returned error message? */ + lua_concat(L, 2); /* accumulate it */ + else + lua_pop(L, 1); + } + lua_pushlightuserdata(L, sentinel); + lua_setfield(L, 2, name); /* _LOADED[name] = sentinel */ + lua_pushstring(L, name); /* pass name as argument to module */ + lua_call(L, 1, 1); /* run loaded module */ + if (!lua_isnil(L, -1)) /* non-nil return? */ + lua_setfield(L, 2, name); /* _LOADED[name] = returned value */ + lua_getfield(L, 2, name); + if (lua_touserdata(L, -1) == sentinel) { /* module did not set a value? */ + lua_pushboolean(L, 1); /* use true as result */ + lua_pushvalue(L, -1); /* extra copy to be returned */ + lua_setfield(L, 2, name); /* _LOADED[name] = true */ + } + return 1; +} + +/* }====================================================== */ + + + +/* +** {====================================================== +** 'module' function +** ======================================================= +*/ + + +static void setfenv (lua_State *L) { + lua_Debug ar; + if (lua_getstack(L, 1, &ar) == 0 || + lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ + lua_iscfunction(L, -1)) + luaL_error(L, LUA_QL("module") " not called from a Lua function"); + lua_pushvalue(L, -2); + lua_setfenv(L, -2); + lua_pop(L, 1); +} + + +static void dooptions (lua_State *L, int n) { + int i; + for (i = 2; i <= n; i++) { + lua_pushvalue(L, i); /* get option (a function) */ + lua_pushvalue(L, -2); /* module */ + lua_call(L, 1, 0); + } +} + + +static void modinit (lua_State *L, const char *modname) { + const char *dot; + lua_pushvalue(L, -1); + lua_setfield(L, -2, "_M"); /* module._M = module */ + lua_pushstring(L, modname); + lua_setfield(L, -2, "_NAME"); + dot = strrchr(modname, '.'); /* look for last dot in module name */ + if (dot == NULL) dot = modname; + else dot++; + /* set _PACKAGE as package name (full module name minus last part) */ + lua_pushlstring(L, modname, dot - modname); + lua_setfield(L, -2, "_PACKAGE"); +} + + +static int ll_module (lua_State *L) { + const char *modname = luaL_checkstring(L, 1); + int loaded = lua_gettop(L) + 1; /* index of _LOADED table */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, loaded, modname); /* get _LOADED[modname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, modname, 1) != NULL) + return luaL_error(L, "name conflict for module " LUA_QS, modname); + lua_pushvalue(L, -1); + lua_setfield(L, loaded, modname); /* _LOADED[modname] = new table */ + } + /* check whether table already has a _NAME field */ + lua_getfield(L, -1, "_NAME"); + if (!lua_isnil(L, -1)) /* is table an initialized module? */ + lua_pop(L, 1); + else { /* no; initialize it */ + lua_pop(L, 1); + modinit(L, modname); + } + lua_pushvalue(L, -1); + setfenv(L); + dooptions(L, loaded - 1); + return 0; +} + + +static int ll_seeall (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + if (!lua_getmetatable(L, 1)) { + lua_createtable(L, 0, 1); /* create new metatable */ + lua_pushvalue(L, -1); + lua_setmetatable(L, 1); + } + lua_pushvalue(L, LUA_GLOBALSINDEX); + lua_setfield(L, -2, "__index"); /* mt.__index = _G */ + return 0; +} + + +/* }====================================================== */ + + + +/* auxiliary mark (for internal use) */ +#define AUXMARK "\1" + +static void setpath (lua_State *L, const char *fieldname, const char *envname, + const char *def) { + const char *path = getenv(envname); + if (path == NULL) /* no environment variable? */ + lua_pushstring(L, def); /* use default */ + else { + /* replace ";;" by ";AUXMARK;" and then AUXMARK by default path */ + path = luaL_gsub(L, path, LUA_PATHSEP LUA_PATHSEP, + LUA_PATHSEP AUXMARK LUA_PATHSEP); + luaL_gsub(L, path, AUXMARK, def); + lua_remove(L, -2); + } + setprogdir(L); + lua_setfield(L, -2, fieldname); +} + + +static const luaL_Reg pk_funcs[] = { + {"loadlib", ll_loadlib}, + {"seeall", ll_seeall}, + {NULL, NULL} +}; + + +static const luaL_Reg ll_funcs[] = { + {"module", ll_module}, + {"require", ll_require}, + {NULL, NULL} +}; + + +static const lua_CFunction loaders[] = + {loader_preload, loader_Lua, loader_C, loader_Croot, NULL}; + + +LUALIB_API int luaopen_package (lua_State *L) { + int i; + /* create new type _LOADLIB */ + luaL_newmetatable(L, "_LOADLIB"); + lua_pushcfunction(L, gctm); + lua_setfield(L, -2, "__gc"); + /* create `package' table */ + luaL_register(L, LUA_LOADLIBNAME, pk_funcs); +#if defined(LUA_COMPAT_LOADLIB) + lua_getfield(L, -1, "loadlib"); + lua_setfield(L, LUA_GLOBALSINDEX, "loadlib"); +#endif + lua_pushvalue(L, -1); + lua_replace(L, LUA_ENVIRONINDEX); + /* create `loaders' table */ + lua_createtable(L, sizeof(loaders)/sizeof(loaders[0]) - 1, 0); + /* fill it with pre-defined loaders */ + for (i=0; loaders[i] != NULL; i++) { + lua_pushcfunction(L, loaders[i]); + lua_rawseti(L, -2, i+1); + } + lua_setfield(L, -2, "loaders"); /* put it in field `loaders' */ + setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT); /* set field `path' */ + setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT); /* set field `cpath' */ + /* store config information */ + lua_pushliteral(L, LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" + LUA_EXECDIR "\n" LUA_IGMARK); + lua_setfield(L, -2, "config"); + /* set field `loaded' */ + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 2); + lua_setfield(L, -2, "loaded"); + /* set field `preload' */ + lua_newtable(L); + lua_setfield(L, -2, "preload"); + lua_pushvalue(L, LUA_GLOBALSINDEX); + luaL_register(L, NULL, ll_funcs); /* open lib into global table */ + lua_pop(L, 1); + return 1; /* return 'package' table */ +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lobject.c b/src/3rd party/LuaJIT-1.1.8/src/lobject.c new file mode 100644 index 00000000000..4ff50732a4a --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lobject.c @@ -0,0 +1,214 @@ +/* +** $Id: lobject.c,v 2.22.1.1 2007/12/27 13:02:25 roberto Exp $ +** Some generic functions over Lua objects +** See Copyright Notice in lua.h +*/ + +#include +#include +#include +#include +#include + +#define lobject_c +#define LUA_CORE + +#include "lua.h" + +#include "ldo.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "lvm.h" + + + +const TValue luaO_nilobject_ = {{NULL}, LUA_TNIL}; + + +/* +** converts an integer to a "floating point byte", represented as +** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if +** eeeee != 0 and (xxx) otherwise. +*/ +int luaO_int2fb (unsigned int x) { + int e = 0; /* expoent */ + while (x >= 16) { + x = (x+1) >> 1; + e++; + } + if (x < 8) return x; + else return ((e+1) << 3) | (cast_int(x) - 8); +} + + +/* converts back */ +int luaO_fb2int (int x) { + int e = (x >> 3) & 31; + if (e == 0) return x; + else return ((x & 7)+8) << (e - 1); +} + + +int luaO_log2 (unsigned int x) { + static const lu_byte log_2[256] = { + 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, + 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, + 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, + 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 + }; + int l = -1; + while (x >= 256) { l += 8; x >>= 8; } + return l + log_2[x]; + +} + + +int luaO_rawequalObj (const TValue *t1, const TValue *t2) { + if (ttype(t1) != ttype(t2)) return 0; + else switch (ttype(t1)) { + case LUA_TNIL: + return 1; + case LUA_TNUMBER: + return luai_numeq(nvalue(t1), nvalue(t2)); + case LUA_TBOOLEAN: + return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */ + case LUA_TLIGHTUSERDATA: + return pvalue(t1) == pvalue(t2); + default: + lua_assert(iscollectable(t1)); + return gcvalue(t1) == gcvalue(t2); + } +} + + +int luaO_str2d (const char *s, lua_Number *result) { + char *endptr; + *result = lua_str2number(s, &endptr); + if (endptr == s) return 0; /* conversion failed */ + if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */ + *result = cast_num(strtoul(s, &endptr, 16)); + if (*endptr == '\0') return 1; /* most common case */ + while (isspace(cast(unsigned char, *endptr))) endptr++; + if (*endptr != '\0') return 0; /* invalid trailing characters? */ + return 1; +} + + + +static void pushstr (lua_State *L, const char *str) { + setsvalue2s(L, L->top, luaS_new(L, str)); + incr_top(L); +} + + +/* this function handles only `%d', `%c', %f, %p, and `%s' formats */ +const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { + int n = 1; + pushstr(L, ""); + for (;;) { + const char *e = strchr(fmt, '%'); + if (e == NULL) break; + setsvalue2s(L, L->top, luaS_newlstr(L, fmt, e-fmt)); + incr_top(L); + switch (*(e+1)) { + case 's': { + const char *s = va_arg(argp, char *); + if (s == NULL) s = "(null)"; + pushstr(L, s); + break; + } + case 'c': { + char buff[2]; + buff[0] = cast(char, va_arg(argp, int)); + buff[1] = '\0'; + pushstr(L, buff); + break; + } + case 'd': { + setnvalue(L->top, cast_num(va_arg(argp, int))); + incr_top(L); + break; + } + case 'f': { + setnvalue(L->top, cast_num(va_arg(argp, l_uacNumber))); + incr_top(L); + break; + } + case 'p': { + char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */ + sprintf(buff, "%p", va_arg(argp, void *)); + pushstr(L, buff); + break; + } + case '%': { + pushstr(L, "%"); + break; + } + default: { + char buff[3]; + buff[0] = '%'; + buff[1] = *(e+1); + buff[2] = '\0'; + pushstr(L, buff); + break; + } + } + n += 2; + fmt = e+2; + } + pushstr(L, fmt); + luaV_concat(L, n+1, cast_int(L->top - L->base) - 1); + L->top -= n; + return svalue(L->top - 1); +} + + +const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) { + const char *msg; + va_list argp; + va_start(argp, fmt); + msg = luaO_pushvfstring(L, fmt, argp); + va_end(argp); + return msg; +} + + +void luaO_chunkid (char *out, const char *source, size_t bufflen) { + if (*source == '=') { + strncpy(out, source+1, bufflen); /* remove first char */ + out[bufflen-1] = '\0'; /* ensures null termination */ + } + else { /* out = "source", or "...source" */ + if (*source == '@') { + size_t l; + source++; /* skip the `@' */ + bufflen -= sizeof(" '...' "); + l = strlen(source); + strcpy(out, ""); + if (l > bufflen) { + source += (l-bufflen); /* get last part of file name */ + strcat(out, "..."); + } + strcat(out, source); + } + else { /* out = [string "string"] */ + size_t len = strcspn(source, "\n\r"); /* stop at first newline */ + bufflen -= sizeof(" [string \"...\"] "); + if (len > bufflen) len = bufflen; + strcpy(out, "[string \""); + if (source[len] != '\0') { /* must truncate? */ + strncat(out, source, len); + strcat(out, "..."); + } + else + strcat(out, source); + strcat(out, "\"]"); + } + } +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lobject.h b/src/3rd party/LuaJIT-1.1.8/src/lobject.h new file mode 100644 index 00000000000..df9c528d9cb --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lobject.h @@ -0,0 +1,386 @@ +/* +** $Id: lobject.h,v 2.20.1.2 2008/08/06 13:29:48 roberto Exp $ +** Type definitions for Lua objects +** See Copyright Notice in lua.h +*/ + + +#ifndef lobject_h +#define lobject_h + + +#include + + +#include "llimits.h" +#include "lua.h" + + +/* tags for values visible from Lua */ +#define LAST_TAG LUA_TTHREAD + +#define NUM_TAGS (LAST_TAG+1) + + +/* +** Extra tags for non-values +*/ +#define LUA_TPROTO (LAST_TAG+1) +#define LUA_TUPVAL (LAST_TAG+2) +#define LUA_TDEADKEY (LAST_TAG+3) + + +/* +** Union of all collectable objects +*/ +typedef union GCObject GCObject; + + +/* +** Common Header for all collectable objects (in macro form, to be +** included in other objects) +*/ +#define CommonHeader GCObject *next; lu_byte tt; lu_byte marked + + +/* +** Common header in struct form +*/ +typedef struct GCheader { + CommonHeader; +} GCheader; + + + + +/* +** Union of all Lua values +*/ +typedef union { + GCObject *gc; + void *p; + lua_Number n; + ptrdiff_t na[sizeof(lua_Number)/sizeof(ptrdiff_t)]; /* LuaJIT kludge */ + int b; +} Value; + + +/* +** Tagged Values +*/ + +#define TValuefields Value value; int tt + +typedef struct lua_TValue { + TValuefields; +} LUA_TVALUE_ALIGN TValue; + + +/* Macros to test type */ +#define ttisnil(o) (ttype(o) == LUA_TNIL) +#define ttisnumber(o) (ttype(o) == LUA_TNUMBER) +#define ttisstring(o) (ttype(o) == LUA_TSTRING) +#define ttistable(o) (ttype(o) == LUA_TTABLE) +#define ttisfunction(o) (ttype(o) == LUA_TFUNCTION) +#define ttisboolean(o) (ttype(o) == LUA_TBOOLEAN) +#define ttisuserdata(o) (ttype(o) == LUA_TUSERDATA) +#define ttisthread(o) (ttype(o) == LUA_TTHREAD) +#define ttislightuserdata(o) (ttype(o) == LUA_TLIGHTUSERDATA) + +/* Macros to access values */ +#define ttype(o) ((o)->tt) +#define gcvalue(o) check_exp(iscollectable(o), (o)->value.gc) +#define pvalue(o) check_exp(ttislightuserdata(o), (o)->value.p) +#define nvalue(o) check_exp(ttisnumber(o), (o)->value.n) +#define rawtsvalue(o) check_exp(ttisstring(o), &(o)->value.gc->ts) +#define tsvalue(o) (&rawtsvalue(o)->tsv) +#define rawuvalue(o) check_exp(ttisuserdata(o), &(o)->value.gc->u) +#define uvalue(o) (&rawuvalue(o)->uv) +#define clvalue(o) check_exp(ttisfunction(o), &(o)->value.gc->cl) +#define hvalue(o) check_exp(ttistable(o), &(o)->value.gc->h) +#define bvalue(o) check_exp(ttisboolean(o), (o)->value.b) +#define thvalue(o) check_exp(ttisthread(o), &(o)->value.gc->th) + +#define l_isfalse(o) (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) + +/* +** for internal debug only +*/ +#define checkconsistency(obj) \ + lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt)) + +#define checkliveness(g,obj) \ + lua_assert(!iscollectable(obj) || \ + ((ttype(obj) == (obj)->value.gc->gch.tt) && !isdead(g, (obj)->value.gc))) + + +/* Macros to set values */ +#define setnilvalue(obj) ((obj)->tt=LUA_TNIL) + +#define setnvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.n=(x); i_o->tt=LUA_TNUMBER; } + +#define setpvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; } + +#define setbvalue(obj,x) \ + { TValue *i_o=(obj); i_o->value.b=(x); i_o->tt=LUA_TBOOLEAN; } + +#define setsvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TSTRING; \ + checkliveness(G(L),i_o); } + +#define setuvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TUSERDATA; \ + checkliveness(G(L),i_o); } + +#define setthvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTHREAD; \ + checkliveness(G(L),i_o); } + +#define setclvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TFUNCTION; \ + checkliveness(G(L),i_o); } + +#define sethvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTABLE; \ + checkliveness(G(L),i_o); } + +#define setptvalue(L,obj,x) \ + { TValue *i_o=(obj); \ + i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \ + checkliveness(G(L),i_o); } + + + + +#define setobj(L,obj1,obj2) \ + { const TValue *o2=(obj2); TValue *o1=(obj1); \ + o1->value = o2->value; o1->tt=o2->tt; \ + checkliveness(G(L),o1); } + + +/* +** different types of sets, according to destination +*/ + +/* from stack to (same) stack */ +#define setobjs2s setobj +/* to stack (not from same stack) */ +#define setobj2s setobj +#define setsvalue2s setsvalue +#define sethvalue2s sethvalue +#define setptvalue2s setptvalue +/* from table to same table */ +#define setobjt2t setobj +/* to table */ +#define setobj2t setobj +/* to new object */ +#define setobj2n setobj +#define setsvalue2n setsvalue + +#define setttype(obj, tt) (ttype(obj) = (tt)) + + +#define iscollectable(o) (ttype(o) >= LUA_TSTRING) + + + +typedef TValue *StkId; /* index to stack elements */ + + +/* +** String headers for string table +*/ +typedef union TString { + L_Umaxalign dummy; /* ensures maximum alignment for strings */ + struct { + CommonHeader; + lu_byte reserved; + unsigned int hash; + size_t len; + } tsv; +} TString; + + +#define getstr(ts) cast(const char *, (ts) + 1) +#define svalue(o) getstr(rawtsvalue(o)) + + + +typedef union Udata { + L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */ + struct { + CommonHeader; + struct Table *metatable; + struct Table *env; + size_t len; + } uv; +} Udata; + + + + +/* +** Function Prototypes +*/ +typedef struct Proto { + CommonHeader; + TValue *k; /* constants used by the function */ + Instruction *code; + struct Proto **p; /* functions defined inside the function */ + int *lineinfo; /* map from opcodes to source lines */ + struct LocVar *locvars; /* information about local variables */ + TString **upvalues; /* upvalue names */ + TString *source; + int sizeupvalues; + int sizek; /* size of `k' */ + int sizecode; + int sizelineinfo; + int sizep; /* size of `p' */ + int sizelocvars; + int linedefined; + int lastlinedefined; + GCObject *gclist; + lu_byte nups; /* number of upvalues */ + lu_byte numparams; + lu_byte is_vararg; + lu_byte maxstacksize; + /* LuaJIT extensions */ + void *jit_mcode; /* compiled machine code base address */ + size_t jit_szmcode; /* size of compiled mcode */ + int jit_status; /* JIT engine status code */ +} Proto; + + +/* masks for new-style vararg */ +#define VARARG_HASARG 1 +#define VARARG_ISVARARG 2 +#define VARARG_NEEDSARG 4 + + +typedef struct LocVar { + TString *varname; + int startpc; /* first point where variable is active */ + int endpc; /* first point where variable is dead */ +} LocVar; + + + +/* +** Upvalues +*/ + +typedef struct UpVal { + CommonHeader; + TValue *v; /* points to stack or to its own value */ + union { + TValue value; /* the value (when closed) */ + struct { /* double linked list (when open) */ + struct UpVal *prev; + struct UpVal *next; + } l; + } u; +} UpVal; + + +/* +** Closures +*/ + +#define ClosureHeader \ + CommonHeader; lu_byte isC; lu_byte nupvalues; GCObject *gclist; \ + struct Table *env; lua_CFunction jit_gate + +typedef struct CClosure { + ClosureHeader; + lua_CFunction f; + TValue upvalue[1]; +} CClosure; + + +typedef struct LClosure { + ClosureHeader; + struct Proto *p; + UpVal *upvals[1]; +} LClosure; + + +typedef union Closure { + CClosure c; + LClosure l; +} Closure; + + +#define iscfunction(o) (ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC) +#define isLfunction(o) (ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC) + + +/* +** Tables +*/ + +typedef union TKey { + struct { + TValuefields; + struct Node *next; /* for chaining */ + } nk; + TValue tvk; +} TKey; + + +typedef struct Node { + TValue i_val; + TKey i_key; +} Node; + + +typedef struct Table { + CommonHeader; + lu_byte flags; /* 1<

lsizenode)) + + +#define luaO_nilobject (&luaO_nilobject_) + +LUAI_DATA const TValue luaO_nilobject_; + +#define ceillog2(x) (luaO_log2((x)-1) + 1) + +LUAI_FUNC int luaO_log2 (unsigned int x); +LUAI_FUNC int luaO_int2fb (unsigned int x); +LUAI_FUNC int luaO_fb2int (int x); +LUAI_FUNC int luaO_rawequalObj (const TValue *t1, const TValue *t2); +LUAI_FUNC int luaO_str2d (const char *s, lua_Number *result); +LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt, + va_list argp); +LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...); +LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t len); + + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c new file mode 100644 index 00000000000..4cc745230b7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.c @@ -0,0 +1,102 @@ +/* +** $Id: lopcodes.c,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $ +** See Copyright Notice in lua.h +*/ + + +#define lopcodes_c +#define LUA_CORE + + +#include "lopcodes.h" + + +/* ORDER OP */ + +const char *const luaP_opnames[NUM_OPCODES+1] = { + "MOVE", + "LOADK", + "LOADBOOL", + "LOADNIL", + "GETUPVAL", + "GETGLOBAL", + "GETTABLE", + "SETGLOBAL", + "SETUPVAL", + "SETTABLE", + "NEWTABLE", + "SELF", + "ADD", + "SUB", + "MUL", + "DIV", + "MOD", + "POW", + "UNM", + "NOT", + "LEN", + "CONCAT", + "JMP", + "EQ", + "LT", + "LE", + "TEST", + "TESTSET", + "CALL", + "TAILCALL", + "RETURN", + "FORLOOP", + "FORPREP", + "TFORLOOP", + "SETLIST", + "CLOSE", + "CLOSURE", + "VARARG", + NULL +}; + + +#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m)) + +const lu_byte luaP_opmodes[NUM_OPCODES] = { +/* T A B C mode opcode */ + opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_MOVE */ + ,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_LOADK */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_LOADBOOL */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LOADNIL */ + ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_GETUPVAL */ + ,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_GETGLOBAL */ + ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_GETTABLE */ + ,opmode(0, 0, OpArgK, OpArgN, iABx) /* OP_SETGLOBAL */ + ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_SETUPVAL */ + ,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABLE */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_NEWTABLE */ + ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_SELF */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_ADD */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_SUB */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MUL */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_DIV */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MOD */ + ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_POW */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_UNM */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_NOT */ + ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LEN */ + ,opmode(0, 1, OpArgR, OpArgR, iABC) /* OP_CONCAT */ + ,opmode(0, 0, OpArgR, OpArgN, iAsBx) /* OP_JMP */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_EQ */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LT */ + ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LE */ + ,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TEST */ + ,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TESTSET */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_CALL */ + ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_TAILCALL */ + ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_RETURN */ + ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORLOOP */ + ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORPREP */ + ,opmode(1, 0, OpArgN, OpArgU, iABC) /* OP_TFORLOOP */ + ,opmode(0, 0, OpArgU, OpArgU, iABC) /* OP_SETLIST */ + ,opmode(0, 0, OpArgN, OpArgN, iABC) /* OP_CLOSE */ + ,opmode(0, 1, OpArgU, OpArgN, iABx) /* OP_CLOSURE */ + ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_VARARG */ +}; + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h new file mode 100644 index 00000000000..41224d6ee14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lopcodes.h @@ -0,0 +1,268 @@ +/* +** $Id: lopcodes.h,v 1.125.1.1 2007/12/27 13:02:25 roberto Exp $ +** Opcodes for Lua virtual machine +** See Copyright Notice in lua.h +*/ + +#ifndef lopcodes_h +#define lopcodes_h + +#include "llimits.h" + + +/*=========================================================================== + We assume that instructions are unsigned numbers. + All instructions have an opcode in the first 6 bits. + Instructions can have the following fields: + `A' : 8 bits + `B' : 9 bits + `C' : 9 bits + `Bx' : 18 bits (`B' and `C' together) + `sBx' : signed Bx + + A signed argument is represented in excess K; that is, the number + value is the unsigned value minus K. K is exactly the maximum value + for that argument (so that -max is represented by 0, and +max is + represented by 2*max), which is half the maximum for the corresponding + unsigned argument. +===========================================================================*/ + + +enum OpMode {iABC, iABx, iAsBx}; /* basic instruction format */ + + +/* +** size and position of opcode arguments. +*/ +#define SIZE_C 9 +#define SIZE_B 9 +#define SIZE_Bx (SIZE_C + SIZE_B) +#define SIZE_A 8 + +#define SIZE_OP 6 + +#define POS_OP 0 +#define POS_A (POS_OP + SIZE_OP) +#define POS_C (POS_A + SIZE_A) +#define POS_B (POS_C + SIZE_C) +#define POS_Bx POS_C + + +/* +** limits for opcode arguments. +** we use (signed) int to manipulate most arguments, +** so they must fit in LUAI_BITSINT-1 bits (-1 for sign) +*/ +#if SIZE_Bx < LUAI_BITSINT-1 +#define MAXARG_Bx ((1<>1) /* `sBx' is signed */ +#else +#define MAXARG_Bx MAX_INT +#define MAXARG_sBx MAX_INT +#endif + + +#define MAXARG_A ((1<>POS_OP) & MASK1(SIZE_OP,0))) +#define SET_OPCODE(i,o) ((i) = (((i)&MASK0(SIZE_OP,POS_OP)) | \ + ((cast(Instruction, o)<>POS_A) & MASK1(SIZE_A,0))) +#define SETARG_A(i,u) ((i) = (((i)&MASK0(SIZE_A,POS_A)) | \ + ((cast(Instruction, u)<>POS_B) & MASK1(SIZE_B,0))) +#define SETARG_B(i,b) ((i) = (((i)&MASK0(SIZE_B,POS_B)) | \ + ((cast(Instruction, b)<>POS_C) & MASK1(SIZE_C,0))) +#define SETARG_C(i,b) ((i) = (((i)&MASK0(SIZE_C,POS_C)) | \ + ((cast(Instruction, b)<>POS_Bx) & MASK1(SIZE_Bx,0))) +#define SETARG_Bx(i,b) ((i) = (((i)&MASK0(SIZE_Bx,POS_Bx)) | \ + ((cast(Instruction, b)< C) then pc++ */ +OP_TESTSET,/* A B C if (R(B) <=> C) then R(A) := R(B) else pc++ */ + +OP_CALL,/* A B C R(A), ... ,R(A+C-2) := R(A)(R(A+1), ... ,R(A+B-1)) */ +OP_TAILCALL,/* A B C return R(A)(R(A+1), ... ,R(A+B-1)) */ +OP_RETURN,/* A B return R(A), ... ,R(A+B-2) (see note) */ + +OP_FORLOOP,/* A sBx R(A)+=R(A+2); + if R(A) =) R(A)*/ +OP_CLOSURE,/* A Bx R(A) := closure(KPROTO[Bx], R(A), ... ,R(A+n)) */ + +OP_VARARG/* A B R(A), R(A+1), ..., R(A+B-1) = vararg */ +} OpCode; + + +#define NUM_OPCODES (cast(int, OP_VARARG) + 1) + + + +/*=========================================================================== + Notes: + (*) In OP_CALL, if (B == 0) then B = top. C is the number of returns - 1, + and can be 0: OP_CALL then sets `top' to last_result+1, so + next open instruction (OP_CALL, OP_RETURN, OP_SETLIST) may use `top'. + + (*) In OP_VARARG, if (B == 0) then use actual number of varargs and + set top (like in OP_CALL with C == 0). + + (*) In OP_RETURN, if (B == 0) then return up to `top' + + (*) In OP_SETLIST, if (B == 0) then B = `top'; + if (C == 0) then next `instruction' is real C + + (*) For comparisons, A specifies what condition the test should accept + (true or false). + + (*) All `skips' (pc++) assume that next instruction is a jump +===========================================================================*/ + + +/* +** masks for instruction properties. The format is: +** bits 0-1: op mode +** bits 2-3: C arg mode +** bits 4-5: B arg mode +** bit 6: instruction set register A +** bit 7: operator is a test +*/ + +enum OpArgMask { + OpArgN, /* argument is not used */ + OpArgU, /* argument is used */ + OpArgR, /* argument is a register or a jump offset */ + OpArgK /* argument is a constant or register/constant */ +}; + +LUAI_DATA const lu_byte luaP_opmodes[NUM_OPCODES]; + +#define getOpMode(m) (cast(enum OpMode, luaP_opmodes[m] & 3)) +#define getBMode(m) (cast(enum OpArgMask, (luaP_opmodes[m] >> 4) & 3)) +#define getCMode(m) (cast(enum OpArgMask, (luaP_opmodes[m] >> 2) & 3)) +#define testAMode(m) (luaP_opmodes[m] & (1 << 6)) +#define testTMode(m) (luaP_opmodes[m] & (1 << 7)) + + +LUAI_DATA const char *const luaP_opnames[NUM_OPCODES+1]; /* opcode names */ + + +/* number of list items to accumulate before a SETLIST instruction */ +#define LFIELDS_PER_FLUSH 50 + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/loslib.c b/src/3rd party/LuaJIT-1.1.8/src/loslib.c new file mode 100644 index 00000000000..01a02a28c14 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/loslib.c @@ -0,0 +1,244 @@ +/* +** $Id: loslib.c,v 1.19.1.3 2008/01/18 16:38:18 roberto Exp $ +** Standard Operating System library +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include + +#define loslib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +static int os_pushresult (lua_State *L, int i, const char *filename) { + int en = errno; /* calls to Lua API may change this value */ + if (i) { + lua_pushboolean(L, 1); + return 1; + } + else { + lua_pushnil(L); + lua_pushfstring(L, "%s: %s", filename, strerror(en)); + lua_pushinteger(L, en); + return 3; + } +} + + +static int os_execute (lua_State *L) { + lua_pushinteger(L, system(luaL_optstring(L, 1, NULL))); + return 1; +} + + +static int os_remove (lua_State *L) { + const char *filename = luaL_checkstring(L, 1); + return os_pushresult(L, remove(filename) == 0, filename); +} + + +static int os_rename (lua_State *L) { + const char *fromname = luaL_checkstring(L, 1); + const char *toname = luaL_checkstring(L, 2); + return os_pushresult(L, rename(fromname, toname) == 0, fromname); +} + + +static int os_tmpname (lua_State *L) { + char buff[LUA_TMPNAMBUFSIZE]; + int err; + lua_tmpnam(buff, err); + if (err) + return luaL_error(L, "unable to generate a unique filename"); + lua_pushstring(L, buff); + return 1; +} + + +static int os_getenv (lua_State *L) { + lua_pushstring(L, getenv(luaL_checkstring(L, 1))); /* if NULL push nil */ + return 1; +} + + +static int os_clock (lua_State *L) { + lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC); + return 1; +} + + +/* +** {====================================================== +** Time/Date operations +** { year=%Y, month=%m, day=%d, hour=%H, min=%M, sec=%S, +** wday=%w+1, yday=%j, isdst=? } +** ======================================================= +*/ + +static void setfield (lua_State *L, const char *key, int value) { + lua_pushinteger(L, value); + lua_setfield(L, -2, key); +} + +static void setboolfield (lua_State *L, const char *key, int value) { + if (value < 0) /* undefined? */ + return; /* does not set field */ + lua_pushboolean(L, value); + lua_setfield(L, -2, key); +} + +static int getboolfield (lua_State *L, const char *key) { + int res; + lua_getfield(L, -1, key); + res = lua_isnil(L, -1) ? -1 : lua_toboolean(L, -1); + lua_pop(L, 1); + return res; +} + + +static int getfield (lua_State *L, const char *key, int d) { + int res; + lua_getfield(L, -1, key); + if (lua_isnumber(L, -1)) + res = (int)lua_tointeger(L, -1); + else { + if (d < 0) + return luaL_error(L, "field " LUA_QS " missing in date table", key); + res = d; + } + lua_pop(L, 1); + return res; +} + + +static int os_date (lua_State *L) { + const char *s = luaL_optstring(L, 1, "%c"); + time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); + struct tm *stm; + if (*s == '!') { /* UTC? */ + stm = gmtime(&t); + s++; /* skip `!' */ + } + else + stm = localtime(&t); + if (stm == NULL) /* invalid date? */ + lua_pushnil(L); + else if (strcmp(s, "*t") == 0) { + lua_createtable(L, 0, 9); /* 9 = number of fields */ + setfield(L, "sec", stm->tm_sec); + setfield(L, "min", stm->tm_min); + setfield(L, "hour", stm->tm_hour); + setfield(L, "day", stm->tm_mday); + setfield(L, "month", stm->tm_mon+1); + setfield(L, "year", stm->tm_year+1900); + setfield(L, "wday", stm->tm_wday+1); + setfield(L, "yday", stm->tm_yday+1); + setboolfield(L, "isdst", stm->tm_isdst); + } + else { + char cc[3]; + luaL_Buffer b; + cc[0] = '%'; cc[2] = '\0'; + luaL_buffinit(L, &b); + for (; *s; s++) { + if (*s != '%' || *(s + 1) == '\0') /* no conversion specifier? */ + luaL_addchar(&b, *s); + else { + size_t reslen; + char buff[200]; /* should be big enough for any conversion result */ + cc[1] = *(++s); + reslen = strftime(buff, sizeof(buff), cc, stm); + luaL_addlstring(&b, buff, reslen); + } + } + luaL_pushresult(&b); + } + return 1; +} + + +static int os_time (lua_State *L) { + time_t t; + if (lua_isnoneornil(L, 1)) /* called without args? */ + t = time(NULL); /* get current time */ + else { + struct tm ts; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 1); /* make sure table is at the top */ + ts.tm_sec = getfield(L, "sec", 0); + ts.tm_min = getfield(L, "min", 0); + ts.tm_hour = getfield(L, "hour", 12); + ts.tm_mday = getfield(L, "day", -1); + ts.tm_mon = getfield(L, "month", -1) - 1; + ts.tm_year = getfield(L, "year", -1) - 1900; + ts.tm_isdst = getboolfield(L, "isdst"); + t = mktime(&ts); + } + if (t == (time_t)(-1)) + lua_pushnil(L); + else + lua_pushnumber(L, (lua_Number)t); + return 1; +} + + +static int os_difftime (lua_State *L) { + lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)), + (time_t)(luaL_optnumber(L, 2, 0)))); + return 1; +} + +/* }====================================================== */ + + +static int os_setlocale (lua_State *L) { + static const int cat[] = {LC_ALL, LC_COLLATE, LC_CTYPE, LC_MONETARY, + LC_NUMERIC, LC_TIME}; + static const char *const catnames[] = {"all", "collate", "ctype", "monetary", + "numeric", "time", NULL}; + const char *l = luaL_optstring(L, 1, NULL); + int op = luaL_checkoption(L, 2, "all", catnames); + lua_pushstring(L, setlocale(cat[op], l)); + return 1; +} + + +static int os_exit (lua_State *L) { + exit(luaL_optint(L, 1, EXIT_SUCCESS)); + return 0; /* to avoid warnings */ +} + +static const luaL_Reg syslib[] = { + {"clock", os_clock}, + {"date", os_date}, + {"difftime", os_difftime}, + {"execute", os_execute}, + {"exit", os_exit}, + {"getenv", os_getenv}, + {"remove", os_remove}, + {"rename", os_rename}, + {"setlocale", os_setlocale}, + {"time", os_time}, + {"tmpname", os_tmpname}, + {NULL, NULL} +}; + +/* }====================================================== */ + + + +LUALIB_API int luaopen_os (lua_State *L) { + luaL_register(L, LUA_OSLIBNAME, syslib); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lparser.c b/src/3rd party/LuaJIT-1.1.8/src/lparser.c new file mode 100644 index 00000000000..dda7488dcad --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lparser.c @@ -0,0 +1,1339 @@ +/* +** $Id: lparser.c,v 2.42.1.4 2011/10/21 19:31:42 roberto Exp $ +** Lua Parser +** See Copyright Notice in lua.h +*/ + + +#include + +#define lparser_c +#define LUA_CORE + +#include "lua.h" + +#include "lcode.h" +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "llex.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lparser.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" + + + +#define hasmultret(k) ((k) == VCALL || (k) == VVARARG) + +#define getlocvar(fs, i) ((fs)->f->locvars[(fs)->actvar[i]]) + +#define luaY_checklimit(fs,v,l,m) if ((v)>(l)) errorlimit(fs,l,m) + + +/* +** nodes for block list (list of active blocks) +*/ +typedef struct BlockCnt { + struct BlockCnt *previous; /* chain */ + int breaklist; /* list of jumps out of this loop */ + lu_byte nactvar; /* # active locals outside the breakable structure */ + lu_byte upval; /* true if some variable in the block is an upvalue */ + lu_byte isbreakable; /* true if `block' is a loop */ +} BlockCnt; + + + +/* +** prototypes for recursive non-terminal functions +*/ +static void chunk (LexState *ls); +static void expr (LexState *ls, expdesc *v); + + +static void anchor_token (LexState *ls) { + if (ls->t.token == TK_NAME || ls->t.token == TK_STRING) { + TString *ts = ls->t.seminfo.ts; + luaX_newstring(ls, getstr(ts), ts->tsv.len); + } +} + + +static void error_expected (LexState *ls, int token) { + luaX_syntaxerror(ls, + luaO_pushfstring(ls->L, LUA_QS " expected", luaX_token2str(ls, token))); +} + + +static void errorlimit (FuncState *fs, int limit, const char *what) { + const char *msg = (fs->f->linedefined == 0) ? + luaO_pushfstring(fs->L, "main function has more than %d %s", limit, what) : + luaO_pushfstring(fs->L, "function at line %d has more than %d %s", + fs->f->linedefined, limit, what); + luaX_lexerror(fs->ls, msg, 0); +} + + +static int testnext (LexState *ls, int c) { + if (ls->t.token == c) { + luaX_next(ls); + return 1; + } + else return 0; +} + + +static void check (LexState *ls, int c) { + if (ls->t.token != c) + error_expected(ls, c); +} + +static void checknext (LexState *ls, int c) { + check(ls, c); + luaX_next(ls); +} + + +#define check_condition(ls,c,msg) { if (!(c)) luaX_syntaxerror(ls, msg); } + + + +static void check_match (LexState *ls, int what, int who, int where) { + if (!testnext(ls, what)) { + if (where == ls->linenumber) + error_expected(ls, what); + else { + luaX_syntaxerror(ls, luaO_pushfstring(ls->L, + LUA_QS " expected (to close " LUA_QS " at line %d)", + luaX_token2str(ls, what), luaX_token2str(ls, who), where)); + } + } +} + + +static TString *str_checkname (LexState *ls) { + TString *ts; + check(ls, TK_NAME); + ts = ls->t.seminfo.ts; + luaX_next(ls); + return ts; +} + + +static void init_exp (expdesc *e, expkind k, int i) { + e->f = e->t = NO_JUMP; + e->k = k; + e->u.s.info = i; +} + + +static void codestring (LexState *ls, expdesc *e, TString *s) { + init_exp(e, VK, luaK_stringK(ls->fs, s)); +} + + +static void checkname(LexState *ls, expdesc *e) { + codestring(ls, e, str_checkname(ls)); +} + + +static int registerlocalvar (LexState *ls, TString *varname) { + FuncState *fs = ls->fs; + Proto *f = fs->f; + int oldsize = f->sizelocvars; + luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, + LocVar, SHRT_MAX, "too many local variables"); + while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; + f->locvars[fs->nlocvars].varname = varname; + luaC_objbarrier(ls->L, f, varname); + return fs->nlocvars++; +} + + +#define new_localvarliteral(ls,v,n) \ + new_localvar(ls, luaX_newstring(ls, "" v, (sizeof(v)/sizeof(char))-1), n) + + +static void new_localvar (LexState *ls, TString *name, int n) { + FuncState *fs = ls->fs; + luaY_checklimit(fs, fs->nactvar+n+1, LUAI_MAXVARS, "local variables"); + fs->actvar[fs->nactvar+n] = cast(unsigned short, registerlocalvar(ls, name)); +} + + +static void adjustlocalvars (LexState *ls, int nvars) { + FuncState *fs = ls->fs; + fs->nactvar = cast_byte(fs->nactvar + nvars); + for (; nvars; nvars--) { + getlocvar(fs, fs->nactvar - nvars).startpc = fs->pc; + } +} + + +static void removevars (LexState *ls, int tolevel) { + FuncState *fs = ls->fs; + while (fs->nactvar > tolevel) + getlocvar(fs, --fs->nactvar).endpc = fs->pc; +} + + +static int indexupvalue (FuncState *fs, TString *name, expdesc *v) { + int i; + Proto *f = fs->f; + int oldsize = f->sizeupvalues; + for (i=0; inups; i++) { + if (fs->upvalues[i].k == v->k && fs->upvalues[i].info == v->u.s.info) { + lua_assert(f->upvalues[i] == name); + return i; + } + } + /* new one */ + luaY_checklimit(fs, f->nups + 1, LUAI_MAXUPVALUES, "upvalues"); + luaM_growvector(fs->L, f->upvalues, f->nups, f->sizeupvalues, + TString *, MAX_INT, ""); + while (oldsize < f->sizeupvalues) f->upvalues[oldsize++] = NULL; + f->upvalues[f->nups] = name; + luaC_objbarrier(fs->L, f, name); + lua_assert(v->k == VLOCAL || v->k == VUPVAL); + fs->upvalues[f->nups].k = cast_byte(v->k); + fs->upvalues[f->nups].info = cast_byte(v->u.s.info); + return f->nups++; +} + + +static int searchvar (FuncState *fs, TString *n) { + int i; + for (i=fs->nactvar-1; i >= 0; i--) { + if (n == getlocvar(fs, i).varname) + return i; + } + return -1; /* not found */ +} + + +static void markupval (FuncState *fs, int level) { + BlockCnt *bl = fs->bl; + while (bl && bl->nactvar > level) bl = bl->previous; + if (bl) bl->upval = 1; +} + + +static int singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) { + if (fs == NULL) { /* no more levels? */ + init_exp(var, VGLOBAL, NO_REG); /* default is global variable */ + return VGLOBAL; + } + else { + int v = searchvar(fs, n); /* look up at current level */ + if (v >= 0) { + init_exp(var, VLOCAL, v); + if (!base) + markupval(fs, v); /* local will be used as an upval */ + return VLOCAL; + } + else { /* not found at current level; try upper one */ + if (singlevaraux(fs->prev, n, var, 0) == VGLOBAL) + return VGLOBAL; + var->u.s.info = indexupvalue(fs, n, var); /* else was LOCAL or UPVAL */ + var->k = VUPVAL; /* upvalue in this level */ + return VUPVAL; + } + } +} + + +static void singlevar (LexState *ls, expdesc *var) { + TString *varname = str_checkname(ls); + FuncState *fs = ls->fs; + if (singlevaraux(fs, varname, var, 1) == VGLOBAL) + var->u.s.info = luaK_stringK(fs, varname); /* info points to global name */ +} + + +static void adjust_assign (LexState *ls, int nvars, int nexps, expdesc *e) { + FuncState *fs = ls->fs; + int extra = nvars - nexps; + if (hasmultret(e->k)) { + extra++; /* includes call itself */ + if (extra < 0) extra = 0; + luaK_setreturns(fs, e, extra); /* last exp. provides the difference */ + if (extra > 1) luaK_reserveregs(fs, extra-1); + } + else { + if (e->k != VVOID) luaK_exp2nextreg(fs, e); /* close last expression */ + if (extra > 0) { + int reg = fs->freereg; + luaK_reserveregs(fs, extra); + luaK_nil(fs, reg, extra); + } + } +} + + +static void enterlevel (LexState *ls) { + if (++ls->L->nCcalls > LUAI_MAXCCALLS) + luaX_lexerror(ls, "chunk has too many syntax levels", 0); +} + + +#define leavelevel(ls) ((ls)->L->nCcalls--) + + +static void enterblock (FuncState *fs, BlockCnt *bl, lu_byte isbreakable) { + bl->breaklist = NO_JUMP; + bl->isbreakable = isbreakable; + bl->nactvar = fs->nactvar; + bl->upval = 0; + bl->previous = fs->bl; + fs->bl = bl; + lua_assert(fs->freereg == fs->nactvar); +} + + +static void leaveblock (FuncState *fs) { + BlockCnt *bl = fs->bl; + fs->bl = bl->previous; + removevars(fs->ls, bl->nactvar); + if (bl->upval) + luaK_codeABC(fs, OP_CLOSE, bl->nactvar, 0, 0); + /* a block either controls scope or breaks (never both) */ + lua_assert(!bl->isbreakable || !bl->upval); + lua_assert(bl->nactvar == fs->nactvar); + fs->freereg = fs->nactvar; /* free registers */ + luaK_patchtohere(fs, bl->breaklist); +} + + +static void pushclosure (LexState *ls, FuncState *func, expdesc *v) { + FuncState *fs = ls->fs; + Proto *f = fs->f; + int oldsize = f->sizep; + int i; + luaM_growvector(ls->L, f->p, fs->np, f->sizep, Proto *, + MAXARG_Bx, "constant table overflow"); + while (oldsize < f->sizep) f->p[oldsize++] = NULL; + f->p[fs->np++] = func->f; + luaC_objbarrier(ls->L, f, func->f); + init_exp(v, VRELOCABLE, luaK_codeABx(fs, OP_CLOSURE, 0, fs->np-1)); + for (i=0; if->nups; i++) { + OpCode o = (func->upvalues[i].k == VLOCAL) ? OP_MOVE : OP_GETUPVAL; + luaK_codeABC(fs, o, 0, func->upvalues[i].info, 0); + } +} + + +static void open_func (LexState *ls, FuncState *fs) { + lua_State *L = ls->L; + Proto *f = luaF_newproto(L); + fs->f = f; + fs->prev = ls->fs; /* linked list of funcstates */ + fs->ls = ls; + fs->L = L; + ls->fs = fs; + fs->pc = 0; + fs->lasttarget = -1; + fs->jpc = NO_JUMP; + fs->freereg = 0; + fs->nk = 0; + fs->np = 0; + fs->nlocvars = 0; + fs->nactvar = 0; + fs->bl = NULL; + f->source = ls->source; + f->maxstacksize = 2; /* registers 0/1 are always valid */ + fs->h = luaH_new(L, 0, 0); + /* anchor table of constants and prototype (to avoid being collected) */ + sethvalue2s(L, L->top, fs->h); + incr_top(L); + setptvalue2s(L, L->top, f); + incr_top(L); +} + + +static void close_func (LexState *ls) { + lua_State *L = ls->L; + FuncState *fs = ls->fs; + Proto *f = fs->f; + removevars(ls, 0); + luaK_ret(fs, 0, 0); /* final return */ + luaM_reallocvector(L, f->code, f->sizecode, fs->pc, Instruction); + f->sizecode = fs->pc; + luaM_reallocvector(L, f->lineinfo, f->sizelineinfo, fs->pc, int); + f->sizelineinfo = fs->pc; + luaM_reallocvector(L, f->k, f->sizek, fs->nk, TValue); + f->sizek = fs->nk; + luaM_reallocvector(L, f->p, f->sizep, fs->np, Proto *); + f->sizep = fs->np; + luaM_reallocvector(L, f->locvars, f->sizelocvars, fs->nlocvars, LocVar); + f->sizelocvars = fs->nlocvars; + luaM_reallocvector(L, f->upvalues, f->sizeupvalues, f->nups, TString *); + f->sizeupvalues = f->nups; + lua_assert(luaG_checkcode(f)); + lua_assert(fs->bl == NULL); + ls->fs = fs->prev; + /* last token read was anchored in defunct function; must reanchor it */ + if (fs) anchor_token(ls); + L->top -= 2; /* remove table and prototype from the stack */ +} + + +Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, const char *name) { + struct LexState lexstate; + struct FuncState funcstate; + lexstate.buff = buff; + luaX_setinput(L, &lexstate, z, luaS_new(L, name)); + open_func(&lexstate, &funcstate); + funcstate.f->is_vararg = VARARG_ISVARARG; /* main func. is always vararg */ + luaX_next(&lexstate); /* read first token */ + chunk(&lexstate); + check(&lexstate, TK_EOS); + close_func(&lexstate); + lua_assert(funcstate.prev == NULL); + lua_assert(funcstate.f->nups == 0); + lua_assert(lexstate.fs == NULL); + return funcstate.f; +} + + + +/*============================================================*/ +/* GRAMMAR RULES */ +/*============================================================*/ + + +static void field (LexState *ls, expdesc *v) { + /* field -> ['.' | ':'] NAME */ + FuncState *fs = ls->fs; + expdesc key; + luaK_exp2anyreg(fs, v); + luaX_next(ls); /* skip the dot or colon */ + checkname(ls, &key); + luaK_indexed(fs, v, &key); +} + + +static void yindex (LexState *ls, expdesc *v) { + /* index -> '[' expr ']' */ + luaX_next(ls); /* skip the '[' */ + expr(ls, v); + luaK_exp2val(ls->fs, v); + checknext(ls, ']'); +} + + +/* +** {====================================================================== +** Rules for Constructors +** ======================================================================= +*/ + + +struct ConsControl { + expdesc v; /* last list item read */ + expdesc *t; /* table descriptor */ + int nh; /* total number of `record' elements */ + int na; /* total number of array elements */ + int tostore; /* number of array elements pending to be stored */ +}; + + +static void recfield (LexState *ls, struct ConsControl *cc) { + /* recfield -> (NAME | `['exp1`]') = exp1 */ + FuncState *fs = ls->fs; + int reg = ls->fs->freereg; + expdesc key, val; + int rkkey; + if (ls->t.token == TK_NAME) { + luaY_checklimit(fs, cc->nh, MAX_INT, "items in a constructor"); + checkname(ls, &key); + } + else /* ls->t.token == '[' */ + yindex(ls, &key); + cc->nh++; + checknext(ls, '='); + rkkey = luaK_exp2RK(fs, &key); + expr(ls, &val); + luaK_codeABC(fs, OP_SETTABLE, cc->t->u.s.info, rkkey, luaK_exp2RK(fs, &val)); + fs->freereg = reg; /* free registers */ +} + + +static void closelistfield (FuncState *fs, struct ConsControl *cc) { + if (cc->v.k == VVOID) return; /* there is no list item */ + luaK_exp2nextreg(fs, &cc->v); + cc->v.k = VVOID; + if (cc->tostore == LFIELDS_PER_FLUSH) { + luaK_setlist(fs, cc->t->u.s.info, cc->na, cc->tostore); /* flush */ + cc->tostore = 0; /* no more items pending */ + } +} + + +static void lastlistfield (FuncState *fs, struct ConsControl *cc) { + if (cc->tostore == 0) return; + if (hasmultret(cc->v.k)) { + luaK_setmultret(fs, &cc->v); + luaK_setlist(fs, cc->t->u.s.info, cc->na, LUA_MULTRET); + cc->na--; /* do not count last expression (unknown number of elements) */ + } + else { + if (cc->v.k != VVOID) + luaK_exp2nextreg(fs, &cc->v); + luaK_setlist(fs, cc->t->u.s.info, cc->na, cc->tostore); + } +} + + +static void listfield (LexState *ls, struct ConsControl *cc) { + expr(ls, &cc->v); + luaY_checklimit(ls->fs, cc->na, MAX_INT, "items in a constructor"); + cc->na++; + cc->tostore++; +} + + +static void constructor (LexState *ls, expdesc *t) { + /* constructor -> ?? */ + FuncState *fs = ls->fs; + int line = ls->linenumber; + int pc = luaK_codeABC(fs, OP_NEWTABLE, 0, 0, 0); + struct ConsControl cc; + cc.na = cc.nh = cc.tostore = 0; + cc.t = t; + init_exp(t, VRELOCABLE, pc); + init_exp(&cc.v, VVOID, 0); /* no value (yet) */ + luaK_exp2nextreg(ls->fs, t); /* fix it at stack top (for gc) */ + checknext(ls, '{'); + do { + lua_assert(cc.v.k == VVOID || cc.tostore > 0); + if (ls->t.token == '}') break; + closelistfield(fs, &cc); + switch(ls->t.token) { + case TK_NAME: { /* may be listfields or recfields */ + luaX_lookahead(ls); + if (ls->lookahead.token != '=') /* expression? */ + listfield(ls, &cc); + else + recfield(ls, &cc); + break; + } + case '[': { /* constructor_item -> recfield */ + recfield(ls, &cc); + break; + } + default: { /* constructor_part -> listfield */ + listfield(ls, &cc); + break; + } + } + } while (testnext(ls, ',') || testnext(ls, ';')); + check_match(ls, '}', '{', line); + lastlistfield(fs, &cc); + SETARG_B(fs->f->code[pc], luaO_int2fb(cc.na)); /* set initial array size */ + SETARG_C(fs->f->code[pc], luaO_int2fb(cc.nh)); /* set initial table size */ +} + +/* }====================================================================== */ + + + +static void parlist (LexState *ls) { + /* parlist -> [ param { `,' param } ] */ + FuncState *fs = ls->fs; + Proto *f = fs->f; + int nparams = 0; + f->is_vararg = 0; + if (ls->t.token != ')') { /* is `parlist' not empty? */ + do { + switch (ls->t.token) { + case TK_NAME: { /* param -> NAME */ + new_localvar(ls, str_checkname(ls), nparams++); + break; + } + case TK_DOTS: { /* param -> `...' */ + luaX_next(ls); +#if defined(LUA_COMPAT_VARARG) + /* use `arg' as default name */ + new_localvarliteral(ls, "arg", nparams++); + f->is_vararg = VARARG_HASARG | VARARG_NEEDSARG; +#endif + f->is_vararg |= VARARG_ISVARARG; + break; + } + default: luaX_syntaxerror(ls, " or " LUA_QL("...") " expected"); + } + } while (!f->is_vararg && testnext(ls, ',')); + } + adjustlocalvars(ls, nparams); + f->numparams = cast_byte(fs->nactvar - (f->is_vararg & VARARG_HASARG)); + luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ +} + + +static void body (LexState *ls, expdesc *e, int needself, int line) { + /* body -> `(' parlist `)' chunk END */ + FuncState new_fs; + open_func(ls, &new_fs); + new_fs.f->linedefined = line; + checknext(ls, '('); + if (needself) { + new_localvarliteral(ls, "self", 0); + adjustlocalvars(ls, 1); + } + parlist(ls); + checknext(ls, ')'); + chunk(ls); + new_fs.f->lastlinedefined = ls->linenumber; + check_match(ls, TK_END, TK_FUNCTION, line); + close_func(ls); + pushclosure(ls, &new_fs, e); +} + + +static int explist1 (LexState *ls, expdesc *v) { + /* explist1 -> expr { `,' expr } */ + int n = 1; /* at least one expression */ + expr(ls, v); + while (testnext(ls, ',')) { + luaK_exp2nextreg(ls->fs, v); + expr(ls, v); + n++; + } + return n; +} + + +static void funcargs (LexState *ls, expdesc *f) { + FuncState *fs = ls->fs; + expdesc args; + int base, nparams; + int line = ls->linenumber; + switch (ls->t.token) { + case '(': { /* funcargs -> `(' [ explist1 ] `)' */ + if (line != ls->lastline) + luaX_syntaxerror(ls,"ambiguous syntax (function call x new statement)"); + luaX_next(ls); + if (ls->t.token == ')') /* arg list is empty? */ + args.k = VVOID; + else { + explist1(ls, &args); + luaK_setmultret(fs, &args); + } + check_match(ls, ')', '(', line); + break; + } + case '{': { /* funcargs -> constructor */ + constructor(ls, &args); + break; + } + case TK_STRING: { /* funcargs -> STRING */ + codestring(ls, &args, ls->t.seminfo.ts); + luaX_next(ls); /* must use `seminfo' before `next' */ + break; + } + default: { + luaX_syntaxerror(ls, "function arguments expected"); + return; + } + } + lua_assert(f->k == VNONRELOC); + base = f->u.s.info; /* base register for call */ + if (hasmultret(args.k)) + nparams = LUA_MULTRET; /* open call */ + else { + if (args.k != VVOID) + luaK_exp2nextreg(fs, &args); /* close last argument */ + nparams = fs->freereg - (base+1); + } + init_exp(f, VCALL, luaK_codeABC(fs, OP_CALL, base, nparams+1, 2)); + luaK_fixline(fs, line); + fs->freereg = base+1; /* call remove function and arguments and leaves + (unless changed) one result */ +} + + + + +/* +** {====================================================================== +** Expression parsing +** ======================================================================= +*/ + + +static void prefixexp (LexState *ls, expdesc *v) { + /* prefixexp -> NAME | '(' expr ')' */ + switch (ls->t.token) { + case '(': { + int line = ls->linenumber; + luaX_next(ls); + expr(ls, v); + check_match(ls, ')', '(', line); + luaK_dischargevars(ls->fs, v); + return; + } + case TK_NAME: { + singlevar(ls, v); + return; + } + default: { + luaX_syntaxerror(ls, "unexpected symbol"); + return; + } + } +} + + +static void primaryexp (LexState *ls, expdesc *v) { + /* primaryexp -> + prefixexp { `.' NAME | `[' exp `]' | `:' NAME funcargs | funcargs } */ + FuncState *fs = ls->fs; + prefixexp(ls, v); + for (;;) { + switch (ls->t.token) { + case '.': { /* field */ + field(ls, v); + break; + } + case '[': { /* `[' exp1 `]' */ + expdesc key; + luaK_exp2anyreg(fs, v); + yindex(ls, &key); + luaK_indexed(fs, v, &key); + break; + } + case ':': { /* `:' NAME funcargs */ + expdesc key; + luaX_next(ls); + checkname(ls, &key); + luaK_self(fs, v, &key); + funcargs(ls, v); + break; + } + case '(': case TK_STRING: case '{': { /* funcargs */ + luaK_exp2nextreg(fs, v); + funcargs(ls, v); + break; + } + default: return; + } + } +} + + +static void simpleexp (LexState *ls, expdesc *v) { + /* simpleexp -> NUMBER | STRING | NIL | true | false | ... | + constructor | FUNCTION body | primaryexp */ + switch (ls->t.token) { + case TK_NUMBER: { + init_exp(v, VKNUM, 0); + v->u.nval = ls->t.seminfo.r; + break; + } + case TK_STRING: { + codestring(ls, v, ls->t.seminfo.ts); + break; + } + case TK_NIL: { + init_exp(v, VNIL, 0); + break; + } + case TK_TRUE: { + init_exp(v, VTRUE, 0); + break; + } + case TK_FALSE: { + init_exp(v, VFALSE, 0); + break; + } + case TK_DOTS: { /* vararg */ + FuncState *fs = ls->fs; + check_condition(ls, fs->f->is_vararg, + "cannot use " LUA_QL("...") " outside a vararg function"); + fs->f->is_vararg &= ~VARARG_NEEDSARG; /* don't need 'arg' */ + init_exp(v, VVARARG, luaK_codeABC(fs, OP_VARARG, 0, 1, 0)); + break; + } + case '{': { /* constructor */ + constructor(ls, v); + return; + } + case TK_FUNCTION: { + luaX_next(ls); + body(ls, v, 0, ls->linenumber); + return; + } + default: { + primaryexp(ls, v); + return; + } + } + luaX_next(ls); +} + + +static UnOpr getunopr (int op) { + switch (op) { + case TK_NOT: return OPR_NOT; + case '-': return OPR_MINUS; + case '#': return OPR_LEN; + default: return OPR_NOUNOPR; + } +} + + +static BinOpr getbinopr (int op) { + switch (op) { + case '+': return OPR_ADD; + case '-': return OPR_SUB; + case '*': return OPR_MUL; + case '/': return OPR_DIV; + case '%': return OPR_MOD; + case '^': return OPR_POW; + case TK_CONCAT: return OPR_CONCAT; + case TK_NE: return OPR_NE; + case TK_EQ: return OPR_EQ; + case '<': return OPR_LT; + case TK_LE: return OPR_LE; + case '>': return OPR_GT; + case TK_GE: return OPR_GE; + case TK_AND: return OPR_AND; + case TK_OR: return OPR_OR; + default: return OPR_NOBINOPR; + } +} + + +static const struct { + lu_byte left; /* left priority for each binary operator */ + lu_byte right; /* right priority */ +} priority[] = { /* ORDER OPR */ + {6, 6}, {6, 6}, {7, 7}, {7, 7}, {7, 7}, /* `+' `-' `/' `%' */ + {10, 9}, {5, 4}, /* power and concat (right associative) */ + {3, 3}, {3, 3}, /* equality and inequality */ + {3, 3}, {3, 3}, {3, 3}, {3, 3}, /* order */ + {2, 2}, {1, 1} /* logical (and/or) */ +}; + +#define UNARY_PRIORITY 8 /* priority for unary operators */ + + +/* +** subexpr -> (simpleexp | unop subexpr) { binop subexpr } +** where `binop' is any binary operator with a priority higher than `limit' +*/ +static BinOpr subexpr (LexState *ls, expdesc *v, unsigned int limit) { + BinOpr op; + UnOpr uop; + enterlevel(ls); + uop = getunopr(ls->t.token); + if (uop != OPR_NOUNOPR) { + luaX_next(ls); + subexpr(ls, v, UNARY_PRIORITY); + luaK_prefix(ls->fs, uop, v); + } + else simpleexp(ls, v); + /* expand while operators have priorities higher than `limit' */ + op = getbinopr(ls->t.token); + while (op != OPR_NOBINOPR && priority[op].left > limit) { + expdesc v2; + BinOpr nextop; + luaX_next(ls); + luaK_infix(ls->fs, op, v); + /* read sub-expression with higher priority */ + nextop = subexpr(ls, &v2, priority[op].right); + luaK_posfix(ls->fs, op, v, &v2); + op = nextop; + } + leavelevel(ls); + return op; /* return first untreated operator */ +} + + +static void expr (LexState *ls, expdesc *v) { + subexpr(ls, v, 0); +} + +/* }==================================================================== */ + + + +/* +** {====================================================================== +** Rules for Statements +** ======================================================================= +*/ + + +static int block_follow (int token) { + switch (token) { + case TK_ELSE: case TK_ELSEIF: case TK_END: + case TK_UNTIL: case TK_EOS: + return 1; + default: return 0; + } +} + + +static void block (LexState *ls) { + /* block -> chunk */ + FuncState *fs = ls->fs; + BlockCnt bl; + enterblock(fs, &bl, 0); + chunk(ls); + lua_assert(bl.breaklist == NO_JUMP); + leaveblock(fs); +} + + +/* +** structure to chain all variables in the left-hand side of an +** assignment +*/ +struct LHS_assign { + struct LHS_assign *prev; + expdesc v; /* variable (global, local, upvalue, or indexed) */ +}; + + +/* +** check whether, in an assignment to a local variable, the local variable +** is needed in a previous assignment (to a table). If so, save original +** local value in a safe place and use this safe copy in the previous +** assignment. +*/ +static void check_conflict (LexState *ls, struct LHS_assign *lh, expdesc *v) { + FuncState *fs = ls->fs; + int extra = fs->freereg; /* eventual position to save local variable */ + int conflict = 0; + for (; lh; lh = lh->prev) { + if (lh->v.k == VINDEXED) { + if (lh->v.u.s.info == v->u.s.info) { /* conflict? */ + conflict = 1; + lh->v.u.s.info = extra; /* previous assignment will use safe copy */ + } + if (lh->v.u.s.aux == v->u.s.info) { /* conflict? */ + conflict = 1; + lh->v.u.s.aux = extra; /* previous assignment will use safe copy */ + } + } + } + if (conflict) { + luaK_codeABC(fs, OP_MOVE, fs->freereg, v->u.s.info, 0); /* make copy */ + luaK_reserveregs(fs, 1); + } +} + + +static void assignment (LexState *ls, struct LHS_assign *lh, int nvars) { + expdesc e; + check_condition(ls, VLOCAL <= lh->v.k && lh->v.k <= VINDEXED, + "syntax error"); + if (testnext(ls, ',')) { /* assignment -> `,' primaryexp assignment */ + struct LHS_assign nv; + nv.prev = lh; + primaryexp(ls, &nv.v); + if (nv.v.k == VLOCAL) + check_conflict(ls, lh, &nv.v); + luaY_checklimit(ls->fs, nvars, LUAI_MAXCCALLS - ls->L->nCcalls, + "variables in assignment"); + assignment(ls, &nv, nvars+1); + } + else { /* assignment -> `=' explist1 */ + int nexps; + checknext(ls, '='); + nexps = explist1(ls, &e); + if (nexps != nvars) { + adjust_assign(ls, nvars, nexps, &e); + if (nexps > nvars) + ls->fs->freereg -= nexps - nvars; /* remove extra values */ + } + else { + luaK_setoneret(ls->fs, &e); /* close last expression */ + luaK_storevar(ls->fs, &lh->v, &e); + return; /* avoid default */ + } + } + init_exp(&e, VNONRELOC, ls->fs->freereg-1); /* default assignment */ + luaK_storevar(ls->fs, &lh->v, &e); +} + + +static int cond (LexState *ls) { + /* cond -> exp */ + expdesc v; + expr(ls, &v); /* read condition */ + if (v.k == VNIL) v.k = VFALSE; /* `falses' are all equal here */ + luaK_goiftrue(ls->fs, &v); + return v.f; +} + + +static void breakstat (LexState *ls) { + FuncState *fs = ls->fs; + BlockCnt *bl = fs->bl; + int upval = 0; + while (bl && !bl->isbreakable) { + upval |= bl->upval; + bl = bl->previous; + } + if (!bl) + luaX_syntaxerror(ls, "no loop to break"); + if (upval) + luaK_codeABC(fs, OP_CLOSE, bl->nactvar, 0, 0); + luaK_concat(fs, &bl->breaklist, luaK_jump(fs)); +} + + +static void whilestat (LexState *ls, int line) { + /* whilestat -> WHILE cond DO block END */ + FuncState *fs = ls->fs; + int whileinit; + int condexit; + BlockCnt bl; + luaX_next(ls); /* skip WHILE */ + whileinit = luaK_getlabel(fs); + condexit = cond(ls); + enterblock(fs, &bl, 1); + checknext(ls, TK_DO); + block(ls); + luaK_patchlist(fs, luaK_jump(fs), whileinit); + check_match(ls, TK_END, TK_WHILE, line); + leaveblock(fs); + luaK_patchtohere(fs, condexit); /* false conditions finish the loop */ +} + + +static void repeatstat (LexState *ls, int line) { + /* repeatstat -> REPEAT block UNTIL cond */ + int condexit; + FuncState *fs = ls->fs; + int repeat_init = luaK_getlabel(fs); + BlockCnt bl1, bl2; + enterblock(fs, &bl1, 1); /* loop block */ + enterblock(fs, &bl2, 0); /* scope block */ + luaX_next(ls); /* skip REPEAT */ + chunk(ls); + check_match(ls, TK_UNTIL, TK_REPEAT, line); + condexit = cond(ls); /* read condition (inside scope block) */ + if (!bl2.upval) { /* no upvalues? */ + leaveblock(fs); /* finish scope */ + luaK_patchlist(ls->fs, condexit, repeat_init); /* close the loop */ + } + else { /* complete semantics when there are upvalues */ + breakstat(ls); /* if condition then break */ + luaK_patchtohere(ls->fs, condexit); /* else... */ + leaveblock(fs); /* finish scope... */ + luaK_patchlist(ls->fs, luaK_jump(fs), repeat_init); /* and repeat */ + } + leaveblock(fs); /* finish loop */ +} + + +static int exp1 (LexState *ls) { + expdesc e; + int k; + expr(ls, &e); + k = e.k; + luaK_exp2nextreg(ls->fs, &e); + return k; +} + + +static void forbody (LexState *ls, int base, int line, int nvars, int isnum) { + /* forbody -> DO block */ + BlockCnt bl; + FuncState *fs = ls->fs; + int prep, endfor; + adjustlocalvars(ls, 3); /* control variables */ + checknext(ls, TK_DO); + prep = isnum ? luaK_codeAsBx(fs, OP_FORPREP, base, NO_JUMP) : luaK_jump(fs); + enterblock(fs, &bl, 0); /* scope for declared variables */ + adjustlocalvars(ls, nvars); + luaK_reserveregs(fs, nvars); + block(ls); + leaveblock(fs); /* end of scope for declared variables */ + luaK_patchtohere(fs, prep); + endfor = (isnum) ? luaK_codeAsBx(fs, OP_FORLOOP, base, NO_JUMP) : + luaK_codeABC(fs, OP_TFORLOOP, base, 0, nvars); + luaK_fixline(fs, line); /* pretend that `OP_FOR' starts the loop */ + luaK_patchlist(fs, (isnum ? endfor : luaK_jump(fs)), prep + 1); +} + + +static void fornum (LexState *ls, TString *varname, int line) { + /* fornum -> NAME = exp1,exp1[,exp1] forbody */ + FuncState *fs = ls->fs; + int base = fs->freereg; + new_localvarliteral(ls, "(for index)", 0); + new_localvarliteral(ls, "(for limit)", 1); + new_localvarliteral(ls, "(for step)", 2); + new_localvar(ls, varname, 3); + checknext(ls, '='); + exp1(ls); /* initial value */ + checknext(ls, ','); + exp1(ls); /* limit */ + if (testnext(ls, ',')) + exp1(ls); /* optional step */ + else { /* default step = 1 */ + luaK_codeABx(fs, OP_LOADK, fs->freereg, luaK_numberK(fs, 1)); + luaK_reserveregs(fs, 1); + } + forbody(ls, base, line, 1, 1); +} + + +static void forlist (LexState *ls, TString *indexname) { + /* forlist -> NAME {,NAME} IN explist1 forbody */ + FuncState *fs = ls->fs; + expdesc e; + int nvars = 0; + int line; + int base = fs->freereg; + /* create control variables */ + new_localvarliteral(ls, "(for generator)", nvars++); + new_localvarliteral(ls, "(for state)", nvars++); + new_localvarliteral(ls, "(for control)", nvars++); + /* create declared variables */ + new_localvar(ls, indexname, nvars++); + while (testnext(ls, ',')) + new_localvar(ls, str_checkname(ls), nvars++); + checknext(ls, TK_IN); + line = ls->linenumber; + adjust_assign(ls, 3, explist1(ls, &e), &e); + luaK_checkstack(fs, 3); /* extra space to call generator */ + forbody(ls, base, line, nvars - 3, 0); +} + + +static void forstat (LexState *ls, int line) { + /* forstat -> FOR (fornum | forlist) END */ + FuncState *fs = ls->fs; + TString *varname; + BlockCnt bl; + enterblock(fs, &bl, 1); /* scope for loop and control variables */ + luaX_next(ls); /* skip `for' */ + varname = str_checkname(ls); /* first variable name */ + switch (ls->t.token) { + case '=': fornum(ls, varname, line); break; + case ',': case TK_IN: forlist(ls, varname); break; + default: luaX_syntaxerror(ls, LUA_QL("=") " or " LUA_QL("in") " expected"); + } + check_match(ls, TK_END, TK_FOR, line); + leaveblock(fs); /* loop scope (`break' jumps to this point) */ +} + + +static int test_then_block (LexState *ls) { + /* test_then_block -> [IF | ELSEIF] cond THEN block */ + int condexit; + luaX_next(ls); /* skip IF or ELSEIF */ + condexit = cond(ls); + checknext(ls, TK_THEN); + block(ls); /* `then' part */ + return condexit; +} + + +static void ifstat (LexState *ls, int line) { + /* ifstat -> IF cond THEN block {ELSEIF cond THEN block} [ELSE block] END */ + FuncState *fs = ls->fs; + int flist; + int escapelist = NO_JUMP; + flist = test_then_block(ls); /* IF cond THEN block */ + while (ls->t.token == TK_ELSEIF) { + luaK_concat(fs, &escapelist, luaK_jump(fs)); + luaK_patchtohere(fs, flist); + flist = test_then_block(ls); /* ELSEIF cond THEN block */ + } + if (ls->t.token == TK_ELSE) { + luaK_concat(fs, &escapelist, luaK_jump(fs)); + luaK_patchtohere(fs, flist); + luaX_next(ls); /* skip ELSE (after patch, for correct line info) */ + block(ls); /* `else' part */ + } + else + luaK_concat(fs, &escapelist, flist); + luaK_patchtohere(fs, escapelist); + check_match(ls, TK_END, TK_IF, line); +} + + +static void localfunc (LexState *ls) { + expdesc v, b; + FuncState *fs = ls->fs; + new_localvar(ls, str_checkname(ls), 0); + init_exp(&v, VLOCAL, fs->freereg); + luaK_reserveregs(fs, 1); + adjustlocalvars(ls, 1); + body(ls, &b, 0, ls->linenumber); + luaK_storevar(fs, &v, &b); + /* debug information will only see the variable after this point! */ + getlocvar(fs, fs->nactvar - 1).startpc = fs->pc; +} + + +static void localstat (LexState *ls) { + /* stat -> LOCAL NAME {`,' NAME} [`=' explist1] */ + int nvars = 0; + int nexps; + expdesc e; + do { + new_localvar(ls, str_checkname(ls), nvars++); + } while (testnext(ls, ',')); + if (testnext(ls, '=')) + nexps = explist1(ls, &e); + else { + e.k = VVOID; + nexps = 0; + } + adjust_assign(ls, nvars, nexps, &e); + adjustlocalvars(ls, nvars); +} + + +static int funcname (LexState *ls, expdesc *v) { + /* funcname -> NAME {field} [`:' NAME] */ + int needself = 0; + singlevar(ls, v); + while (ls->t.token == '.') + field(ls, v); + if (ls->t.token == ':') { + needself = 1; + field(ls, v); + } + return needself; +} + + +static void funcstat (LexState *ls, int line) { + /* funcstat -> FUNCTION funcname body */ + int needself; + expdesc v, b; + luaX_next(ls); /* skip FUNCTION */ + needself = funcname(ls, &v); + body(ls, &b, needself, line); + luaK_storevar(ls->fs, &v, &b); + luaK_fixline(ls->fs, line); /* definition `happens' in the first line */ +} + + +static void exprstat (LexState *ls) { + /* stat -> func | assignment */ + FuncState *fs = ls->fs; + struct LHS_assign v; + primaryexp(ls, &v.v); + if (v.v.k == VCALL) /* stat -> func */ + SETARG_C(getcode(fs, &v.v), 1); /* call statement uses no results */ + else { /* stat -> assignment */ + v.prev = NULL; + assignment(ls, &v, 1); + } +} + + +static void retstat (LexState *ls) { + /* stat -> RETURN explist */ + FuncState *fs = ls->fs; + expdesc e; + int first, nret; /* registers with returned values */ + luaX_next(ls); /* skip RETURN */ + if (block_follow(ls->t.token) || ls->t.token == ';') + first = nret = 0; /* return no values */ + else { + nret = explist1(ls, &e); /* optional return values */ + if (hasmultret(e.k)) { + luaK_setmultret(fs, &e); + if (e.k == VCALL && nret == 1) { /* tail call? */ + SET_OPCODE(getcode(fs,&e), OP_TAILCALL); + lua_assert(GETARG_A(getcode(fs,&e)) == fs->nactvar); + } + first = fs->nactvar; + nret = LUA_MULTRET; /* return all values */ + } + else { + if (nret == 1) /* only one single value? */ + first = luaK_exp2anyreg(fs, &e); + else { + luaK_exp2nextreg(fs, &e); /* values must go to the `stack' */ + first = fs->nactvar; /* return all `active' values */ + lua_assert(nret == fs->freereg - first); + } + } + } + luaK_ret(fs, first, nret); +} + + +static int statement (LexState *ls) { + int line = ls->linenumber; /* may be needed for error messages */ + switch (ls->t.token) { + case TK_IF: { /* stat -> ifstat */ + ifstat(ls, line); + return 0; + } + case TK_WHILE: { /* stat -> whilestat */ + whilestat(ls, line); + return 0; + } + case TK_DO: { /* stat -> DO block END */ + luaX_next(ls); /* skip DO */ + block(ls); + check_match(ls, TK_END, TK_DO, line); + return 0; + } + case TK_FOR: { /* stat -> forstat */ + forstat(ls, line); + return 0; + } + case TK_REPEAT: { /* stat -> repeatstat */ + repeatstat(ls, line); + return 0; + } + case TK_FUNCTION: { + funcstat(ls, line); /* stat -> funcstat */ + return 0; + } + case TK_LOCAL: { /* stat -> localstat */ + luaX_next(ls); /* skip LOCAL */ + if (testnext(ls, TK_FUNCTION)) /* local function? */ + localfunc(ls); + else + localstat(ls); + return 0; + } + case TK_RETURN: { /* stat -> retstat */ + retstat(ls); + return 1; /* must be last statement */ + } + case TK_BREAK: { /* stat -> breakstat */ + luaX_next(ls); /* skip BREAK */ + breakstat(ls); + return 1; /* must be last statement */ + } + default: { + exprstat(ls); + return 0; /* to avoid warnings */ + } + } +} + + +static void chunk (LexState *ls) { + /* chunk -> { stat [`;'] } */ + int islast = 0; + enterlevel(ls); + while (!islast && !block_follow(ls->t.token)) { + islast = statement(ls); + testnext(ls, ';'); + lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg && + ls->fs->freereg >= ls->fs->nactvar); + ls->fs->freereg = ls->fs->nactvar; /* free registers */ + } + leavelevel(ls); +} + +/* }====================================================================== */ diff --git a/src/3rd party/LuaJIT-1.1.8/src/lparser.h b/src/3rd party/LuaJIT-1.1.8/src/lparser.h new file mode 100644 index 00000000000..18836afd1cd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lparser.h @@ -0,0 +1,82 @@ +/* +** $Id: lparser.h,v 1.57.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua Parser +** See Copyright Notice in lua.h +*/ + +#ifndef lparser_h +#define lparser_h + +#include "llimits.h" +#include "lobject.h" +#include "lzio.h" + + +/* +** Expression descriptor +*/ + +typedef enum { + VVOID, /* no value */ + VNIL, + VTRUE, + VFALSE, + VK, /* info = index of constant in `k' */ + VKNUM, /* nval = numerical value */ + VLOCAL, /* info = local register */ + VUPVAL, /* info = index of upvalue in `upvalues' */ + VGLOBAL, /* info = index of table; aux = index of global name in `k' */ + VINDEXED, /* info = table register; aux = index register (or `k') */ + VJMP, /* info = instruction pc */ + VRELOCABLE, /* info = instruction pc */ + VNONRELOC, /* info = result register */ + VCALL, /* info = instruction pc */ + VVARARG /* info = instruction pc */ +} expkind; + +typedef struct expdesc { + expkind k; + union { + struct { int info, aux; } s; + lua_Number nval; + } u; + int t; /* patch list of `exit when true' */ + int f; /* patch list of `exit when false' */ +} expdesc; + + +typedef struct upvaldesc { + lu_byte k; + lu_byte info; +} upvaldesc; + + +struct BlockCnt; /* defined in lparser.c */ + + +/* state needed to generate code for a given function */ +typedef struct FuncState { + Proto *f; /* current function header */ + Table *h; /* table to find (and reuse) elements in `k' */ + struct FuncState *prev; /* enclosing function */ + struct LexState *ls; /* lexical state */ + struct lua_State *L; /* copy of the Lua state */ + struct BlockCnt *bl; /* chain of current blocks */ + int pc; /* next position to code (equivalent to `ncode') */ + int lasttarget; /* `pc' of last `jump target' */ + int jpc; /* list of pending jumps to `pc' */ + int freereg; /* first free register */ + int nk; /* number of elements in `k' */ + int np; /* number of elements in `p' */ + short nlocvars; /* number of elements in `locvars' */ + lu_byte nactvar; /* number of active local variables */ + upvaldesc upvalues[LUAI_MAXUPVALUES]; /* upvalues */ + unsigned short actvar[LUAI_MAXVARS]; /* declared-variable stack */ +} FuncState; + + +LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, + const char *name); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstate.c b/src/3rd party/LuaJIT-1.1.8/src/lstate.c new file mode 100644 index 00000000000..2bf835bdbfd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstate.c @@ -0,0 +1,218 @@ +/* +** $Id: lstate.c,v 2.36.1.2 2008/01/03 15:20:39 roberto Exp $ +** Global State +** See Copyright Notice in lua.h +*/ + + +#include + +#define lstate_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "llex.h" +#include "lmem.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "ljit.h" + + +#define state_size(x) (sizeof(x) + LUAI_EXTRASPACE) +#define fromstate(l) (cast(lu_byte *, (l)) - LUAI_EXTRASPACE) +#define tostate(l) (cast(lua_State *, cast(lu_byte *, l) + LUAI_EXTRASPACE)) + + +/* +** Main thread combines a thread state and the global state +*/ +typedef struct LG { + lua_State l; + global_State g; +} LG; + + + +static void stack_init (lua_State *L1, lua_State *L) { + /* initialize CallInfo array */ + L1->base_ci = luaM_newvector(L, BASIC_CI_SIZE, CallInfo); + L1->ci = L1->base_ci; + L1->size_ci = BASIC_CI_SIZE; + L1->end_ci = L1->base_ci + L1->size_ci - 1; + /* initialize stack array */ + L1->stack = luaM_newvector(L, BASIC_STACK_SIZE + EXTRA_STACK, TValue); + L1->stacksize = BASIC_STACK_SIZE + EXTRA_STACK; + L1->top = L1->stack; + L1->stack_last = L1->stack+(L1->stacksize - EXTRA_STACK)-1; + /* initialize first ci */ + L1->ci->func = L1->top; + setnilvalue(L1->top++); /* `function' entry for this `ci' */ + L1->base = L1->ci->base = L1->top; + L1->ci->top = L1->top + LUA_MINSTACK; +} + + +static void freestack (lua_State *L, lua_State *L1) { + luaM_freearray(L, L1->base_ci, L1->size_ci, CallInfo); + luaM_freearray(L, L1->stack, L1->stacksize, TValue); +} + + +/* +** open parts that may cause memory-allocation errors +*/ +static void f_luaopen (lua_State *L, void *ud) { + global_State *g = G(L); + UNUSED(ud); + stack_init(L, L); /* init stack */ + sethvalue(L, gt(L), luaH_new(L, 0, 2)); /* table of globals */ + sethvalue(L, registry(L), luaH_new(L, 0, 2)); /* registry */ + luaS_resize(L, MINSTRTABSIZE); /* initial size of string table */ + luaT_init(L); + luaX_init(L); + luaS_fix(luaS_newliteral(L, MEMERRMSG)); + g->GCthreshold = 4*g->totalbytes; + luaJIT_initstate(L); +} + + +static void preinit_state (lua_State *L, global_State *g) { + G(L) = g; + L->stack = NULL; + L->stacksize = 0; + L->errorJmp = NULL; + L->hook = NULL; + L->hookmask = 0; + L->basehookcount = 0; + L->allowhook = 1; + resethookcount(L); + L->openupval = NULL; + L->size_ci = 0; + L->nCcalls = 0; + L->status = 0; + L->base_ci = L->ci = NULL; + L->savedpc = NULL; + L->errfunc = 0; + setnilvalue(gt(L)); +} + + +static void close_state (lua_State *L) { + global_State *g = G(L); + luaF_close(L, L->stack); /* close all upvalues for this thread */ + luaC_freeall(L); /* collect all objects */ + luaJIT_freestate(L); + lua_assert(g->rootgc == obj2gco(L)); + lua_assert(g->strt.nuse == 0); + luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size, TString *); + luaZ_freebuffer(L, &g->buff); + freestack(L, L); + lua_assert(g->totalbytes == sizeof(LG)); + (*g->frealloc)(g->ud, fromstate(L), state_size(LG), 0); +} + + +lua_State *luaE_newthread (lua_State *L) { + lua_State *L1 = tostate(luaM_malloc(L, state_size(lua_State))); + luaC_link(L, obj2gco(L1), LUA_TTHREAD); + preinit_state(L1, G(L)); + stack_init(L1, L); /* init stack */ + setobj2n(L, gt(L1), gt(L)); /* share table of globals */ + L1->hookmask = L->hookmask; + L1->basehookcount = L->basehookcount; + L1->hook = L->hook; + resethookcount(L1); + lua_assert(iswhite(obj2gco(L1))); + return L1; +} + + +void luaE_freethread (lua_State *L, lua_State *L1) { + luaF_close(L1, L1->stack); /* close all upvalues for this thread */ + lua_assert(L1->openupval == NULL); + luai_userstatefree(L1); + freestack(L, L1); + luaM_freemem(L, fromstate(L1), state_size(lua_State)); +} + + +LUA_API lua_State *lua_newstate (lua_Alloc f, void *ud) { + int i; + lua_State *L; + global_State *g; + void *l = (*f)(ud, NULL, 0, state_size(LG)); + if (l == NULL) return NULL; + L = tostate(l); + g = &((LG *)L)->g; + L->next = NULL; + L->tt = LUA_TTHREAD; + g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT); + L->marked = luaC_white(g); + set2bits(L->marked, FIXEDBIT, SFIXEDBIT); + preinit_state(L, g); + g->frealloc = f; + g->ud = ud; + g->mainthread = L; + g->uvhead.u.l.prev = &g->uvhead; + g->uvhead.u.l.next = &g->uvhead; + g->GCthreshold = 0; /* mark it as unfinished state */ + g->strt.size = 0; + g->strt.nuse = 0; + g->strt.hash = NULL; + setnilvalue(registry(L)); + luaZ_initbuffer(L, &g->buff); + g->panic = NULL; + g->gcstate = GCSpause; + g->rootgc = obj2gco(L); + g->sweepstrgc = 0; + g->sweepgc = &g->rootgc; + g->gray = NULL; + g->grayagain = NULL; + g->weak = NULL; + g->tmudata = NULL; + g->totalbytes = sizeof(LG); + g->gcpause = LUAI_GCPAUSE; + g->gcstepmul = LUAI_GCMUL; + g->gcdept = 0; + g->jit_state = NULL; + for (i=0; imt[i] = NULL; + if (luaD_rawrunprotected(L, f_luaopen, NULL) != 0) { + /* memory allocation error: free partial state */ + close_state(L); + L = NULL; + } + else + luai_userstateopen(L); + return L; +} + + +static void callallgcTM (lua_State *L, void *ud) { + UNUSED(ud); + luaC_callGCTM(L); /* call GC metamethods for all udata */ +} + + +LUA_API void lua_close (lua_State *L) { + L = G(L)->mainthread; /* only the main thread can be closed */ + lua_lock(L); + luaF_close(L, L->stack); /* close all upvalues for this thread */ + luaC_separateudata(L, 1); /* separate udata that have GC metamethods */ + L->errfunc = 0; /* no error function during GC metamethods */ + do { /* repeat until no more errors */ + L->ci = L->base_ci; + L->base = L->top = L->ci->base; + L->nCcalls = 0; + } while (luaD_rawrunprotected(L, callallgcTM, NULL) != 0); + lua_assert(G(L)->tmudata == NULL); + luai_userstateclose(L); + close_state(L); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstate.h b/src/3rd party/LuaJIT-1.1.8/src/lstate.h new file mode 100644 index 00000000000..ddaa554f789 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstate.h @@ -0,0 +1,179 @@ +/* +** $Id: lstate.h,v 2.24.1.2 2008/01/03 15:20:39 roberto Exp $ +** Global State +** See Copyright Notice in lua.h +*/ + +#ifndef lstate_h +#define lstate_h + +#include "lua.h" + +#include "lobject.h" +#include "ltm.h" +#include "lzio.h" +#ifndef COCO_DISABLE +#include "lcoco.h" +#endif + + + +struct lua_longjmp; /* defined in ldo.c */ +struct jit_State; /* defined in ljit.c */ +typedef int (*luaJIT_GateLJ)(lua_State *L, StkId func, int nresults); + + +/* table of globals */ +#define gt(L) (&L->l_gt) + +/* registry */ +#define registry(L) (&G(L)->l_registry) + + +/* extra stack space to handle TM calls and some other extras */ +/* LuaJIT uses more than the default (5) to speed up calls (setnil loop) */ +#define EXTRA_STACK 8 + + +#define BASIC_CI_SIZE 8 + +#define BASIC_STACK_SIZE (2*LUA_MINSTACK) + + + +typedef struct stringtable { + GCObject **hash; + lu_int32 nuse; /* number of elements */ + int size; +} stringtable; + + +/* +** informations about a call +*/ +typedef struct CallInfo { + StkId base; /* base for this function */ + StkId func; /* function index in the stack */ + StkId top; /* top for this function */ + const Instruction *savedpc; + int nresults; /* expected number of results from this function */ + int tailcalls; /* number of tail calls lost under this entry */ +} CallInfo; + + + +#define curr_func(L) (clvalue(L->ci->func)) +#define ci_func(ci) (clvalue((ci)->func)) +#define f_isLua(ci) (!ci_func(ci)->c.isC) +#define isLua(ci) (ttisfunction((ci)->func) && f_isLua(ci)) + + +/* +** `global state', shared by all threads of this state +*/ +typedef struct global_State { + stringtable strt; /* hash table for strings */ + lua_Alloc frealloc; /* function to reallocate memory */ + void *ud; /* auxiliary data to `frealloc' */ + lu_byte currentwhite; + lu_byte gcstate; /* state of garbage collector */ + int sweepstrgc; /* position of sweep in `strt' */ + GCObject *rootgc; /* list of all collectable objects */ + GCObject **sweepgc; /* position of sweep in `rootgc' */ + GCObject *gray; /* list of gray objects */ + GCObject *grayagain; /* list of objects to be traversed atomically */ + GCObject *weak; /* list of weak tables (to be cleared) */ + GCObject *tmudata; /* last element of list of userdata to be GC */ + Mbuffer buff; /* temporary buffer for string concatentation */ + lu_mem GCthreshold; + lu_mem totalbytes; /* number of bytes currently allocated */ + lu_mem estimate; /* an estimate of number of bytes actually in use */ + lu_mem gcdept; /* how much GC is `behind schedule' */ + int gcpause; /* size of pause between successive GCs */ + int gcstepmul; /* GC `granularity' */ + lua_CFunction panic; /* to be called in unprotected errors */ + TValue l_registry; + struct lua_State *mainthread; + UpVal uvhead; /* head of double-linked list of all open upvalues */ + struct Table *mt[NUM_TAGS]; /* metatables for basic types */ + TString *tmname[TM_N]; /* array with tag-method names */ + /* LuaJIT extensions */ + struct jit_State *jit_state; /* JIT state */ + luaJIT_GateLJ jit_gateLJ; /* Lua -> JIT gate */ + lua_CFunction jit_gateJL; /* JIT -> Lua callgate */ + lua_CFunction jit_gateJC; /* JIT -> C callgate */ +} global_State; + + +/* +** `per thread' state +*/ +struct lua_State { + CommonHeader; + lu_byte status; + StkId top; /* first free slot in the stack */ + StkId base; /* base of current function */ + global_State *l_G; + CallInfo *ci; /* call info for current function */ + const Instruction *savedpc; /* `savedpc' of current function */ + StkId stack_last; /* last free slot in the stack */ + StkId stack; /* stack base */ + CallInfo *end_ci; /* points after end of ci array*/ + CallInfo *base_ci; /* array of CallInfo's */ + int stacksize; + int size_ci; /* size of array `base_ci' */ + unsigned short nCcalls; /* number of nested C calls */ + lu_byte hookmask; + lu_byte allowhook; + int basehookcount; + int hookcount; + lua_Hook hook; + TValue l_gt; /* table of globals */ + TValue env; /* temporary place for environments */ + GCObject *openupval; /* list of open upvalues in this stack */ + GCObject *gclist; + struct lua_longjmp *errorJmp; /* current error recover point */ + ptrdiff_t errfunc; /* current error handling function (stack index) */ +}; + + +#define G(L) (L->l_G) + + +/* +** Union of all collectable objects +*/ +union GCObject { + GCheader gch; + union TString ts; + union Udata u; + union Closure cl; + struct Table h; + struct Proto p; + struct UpVal uv; + struct lua_State th; /* thread */ +}; + + +/* macros to convert a GCObject into a specific value */ +#define rawgco2ts(o) check_exp((o)->gch.tt == LUA_TSTRING, &((o)->ts)) +#define gco2ts(o) (&rawgco2ts(o)->tsv) +#define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) +#define gco2u(o) (&rawgco2u(o)->uv) +#define gco2cl(o) check_exp((o)->gch.tt == LUA_TFUNCTION, &((o)->cl)) +#define gco2h(o) check_exp((o)->gch.tt == LUA_TTABLE, &((o)->h)) +#define gco2p(o) check_exp((o)->gch.tt == LUA_TPROTO, &((o)->p)) +#define gco2uv(o) check_exp((o)->gch.tt == LUA_TUPVAL, &((o)->uv)) +#define ngcotouv(o) \ + check_exp((o) == NULL || (o)->gch.tt == LUA_TUPVAL, &((o)->uv)) +#define gco2th(o) check_exp((o)->gch.tt == LUA_TTHREAD, &((o)->th)) + +/* macro to convert any Lua object into a GCObject */ +#define obj2gco(v) (cast(GCObject *, (v))) + + +LUAI_FUNC lua_State *luaE_newthread (lua_State *L); +LUAI_FUNC void luaE_freethread (lua_State *L, lua_State *L1); + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstring.c b/src/3rd party/LuaJIT-1.1.8/src/lstring.c new file mode 100644 index 00000000000..49113151cc7 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstring.c @@ -0,0 +1,111 @@ +/* +** $Id: lstring.c,v 2.8.1.1 2007/12/27 13:02:25 roberto Exp $ +** String table (keeps all strings handled by Lua) +** See Copyright Notice in lua.h +*/ + + +#include + +#define lstring_c +#define LUA_CORE + +#include "lua.h" + +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" + + + +void luaS_resize (lua_State *L, int newsize) { + GCObject **newhash; + stringtable *tb; + int i; + if (G(L)->gcstate == GCSsweepstring) + return; /* cannot resize during GC traverse */ + newhash = luaM_newvector(L, newsize, GCObject *); + tb = &G(L)->strt; + for (i=0; isize; i++) { + GCObject *p = tb->hash[i]; + while (p) { /* for each node in the list */ + GCObject *next = p->gch.next; /* save next */ + unsigned int h = gco2ts(p)->hash; + int h1 = lmod(h, newsize); /* new position */ + lua_assert(cast_int(h%newsize) == lmod(h, newsize)); + p->gch.next = newhash[h1]; /* chain it */ + newhash[h1] = p; + p = next; + } + } + luaM_freearray(L, tb->hash, tb->size, TString *); + tb->size = newsize; + tb->hash = newhash; +} + + +static TString *newlstr (lua_State *L, const char *str, size_t l, + unsigned int h) { + TString *ts; + stringtable *tb; + if (l+1 > (MAX_SIZET - sizeof(TString))/sizeof(char)) + luaM_toobig(L); + ts = cast(TString *, luaM_malloc(L, (l+1)*sizeof(char)+sizeof(TString))); + ts->tsv.len = l; + ts->tsv.hash = h; + ts->tsv.marked = luaC_white(G(L)); + ts->tsv.tt = LUA_TSTRING; + ts->tsv.reserved = 0; + memcpy(ts+1, str, l*sizeof(char)); + ((char *)(ts+1))[l] = '\0'; /* ending 0 */ + tb = &G(L)->strt; + h = lmod(h, tb->size); + ts->tsv.next = tb->hash[h]; /* chain new entry */ + tb->hash[h] = obj2gco(ts); + tb->nuse++; + if (tb->nuse > cast(lu_int32, tb->size) && tb->size <= MAX_INT/2) + luaS_resize(L, tb->size*2); /* too crowded */ + return ts; +} + + +TString *luaS_newlstr (lua_State *L, const char *str, size_t l) { + GCObject *o; + unsigned int h = cast(unsigned int, l); /* seed */ + size_t step = (l>>5)+1; /* if string is too long, don't hash all its chars */ + size_t l1; + for (l1=l; l1>=step; l1-=step) /* compute hash */ + h = h ^ ((h<<5)+(h>>2)+cast(unsigned char, str[l1-1])); + for (o = G(L)->strt.hash[lmod(h, G(L)->strt.size)]; + o != NULL; + o = o->gch.next) { + TString *ts = rawgco2ts(o); + if (ts->tsv.len == l && (memcmp(str, getstr(ts), l) == 0)) { + /* string may be dead */ + if (isdead(G(L), o)) changewhite(o); + return ts; + } + } + return newlstr(L, str, l, h); /* not found */ +} + + +Udata *luaS_newudata (lua_State *L, size_t s, Table *e) { + Udata *u; + if (s > MAX_SIZET - sizeof(Udata)) + luaM_toobig(L); + u = cast(Udata *, luaM_malloc(L, s + sizeof(Udata))); + u->uv.marked = luaC_white(G(L)); /* is not finalized */ + u->uv.tt = LUA_TUSERDATA; + u->uv.len = s; + u->uv.metatable = NULL; + u->uv.env = e; + /* chain it on udata list (after main thread) */ + u->uv.next = G(L)->mainthread->next; + G(L)->mainthread->next = obj2gco(u); + return u; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstring.h b/src/3rd party/LuaJIT-1.1.8/src/lstring.h new file mode 100644 index 00000000000..73a2ff8b380 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstring.h @@ -0,0 +1,31 @@ +/* +** $Id: lstring.h,v 1.43.1.1 2007/12/27 13:02:25 roberto Exp $ +** String table (keep all strings handled by Lua) +** See Copyright Notice in lua.h +*/ + +#ifndef lstring_h +#define lstring_h + + +#include "lgc.h" +#include "lobject.h" +#include "lstate.h" + + +#define sizestring(s) (sizeof(union TString)+((s)->len+1)*sizeof(char)) + +#define sizeudata(u) (sizeof(union Udata)+(u)->len) + +#define luaS_new(L, s) (luaS_newlstr(L, s, strlen(s))) +#define luaS_newliteral(L, s) (luaS_newlstr(L, "" s, \ + (sizeof(s)/sizeof(char))-1)) + +#define luaS_fix(s) l_setbit((s)->tsv.marked, FIXEDBIT) + +LUAI_FUNC void luaS_resize (lua_State *L, int newsize); +LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, Table *e); +LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l); + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c b/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c new file mode 100644 index 00000000000..7a03489bebd --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lstrlib.c @@ -0,0 +1,871 @@ +/* +** $Id: lstrlib.c,v 1.132.1.5 2010/05/14 15:34:19 roberto Exp $ +** Standard library for string operations and pattern-matching +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include +#include + +#define lstrlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +/* macro to `unsign' a character */ +#define uchar(c) ((unsigned char)(c)) + + + +static int str_len (lua_State *L) { + size_t l; + luaL_checklstring(L, 1, &l); + lua_pushinteger(L, l); + return 1; +} + + +static ptrdiff_t posrelat (ptrdiff_t pos, size_t len) { + /* relative string position: negative means back from end */ + if (pos < 0) pos += (ptrdiff_t)len + 1; + return (pos >= 0) ? pos : 0; +} + + +static int str_sub (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + ptrdiff_t start = posrelat(luaL_checkinteger(L, 2), l); + ptrdiff_t end = posrelat(luaL_optinteger(L, 3, -1), l); + if (start < 1) start = 1; + if (end > (ptrdiff_t)l) end = (ptrdiff_t)l; + if (start <= end) + lua_pushlstring(L, s+start-1, end-start+1); + else lua_pushliteral(L, ""); + return 1; +} + + +static int str_reverse (lua_State *L) { + size_t l; + luaL_Buffer b; + const char *s = luaL_checklstring(L, 1, &l); + luaL_buffinit(L, &b); + while (l--) luaL_addchar(&b, s[l]); + luaL_pushresult(&b); + return 1; +} + + +static int str_lower (lua_State *L) { + size_t l; + size_t i; + luaL_Buffer b; + const char *s = luaL_checklstring(L, 1, &l); + luaL_buffinit(L, &b); + for (i=0; i 0) + luaL_addlstring(&b, s, l); + luaL_pushresult(&b); + return 1; +} + + +static int str_byte (lua_State *L) { + size_t l; + const char *s = luaL_checklstring(L, 1, &l); + ptrdiff_t posi = posrelat(luaL_optinteger(L, 2, 1), l); + ptrdiff_t pose = posrelat(luaL_optinteger(L, 3, posi), l); + int n, i; + if (posi <= 0) posi = 1; + if ((size_t)pose > l) pose = l; + if (posi > pose) return 0; /* empty interval; return no values */ + n = (int)(pose - posi + 1); + if (posi + n <= pose) /* overflow? */ + luaL_error(L, "string slice too long"); + luaL_checkstack(L, n, "string slice too long"); + for (i=0; i= ms->level || ms->capture[l].len == CAP_UNFINISHED) + return luaL_error(ms->L, "invalid capture index"); + return l; +} + + +static int capture_to_close (MatchState *ms) { + int level = ms->level; + for (level--; level>=0; level--) + if (ms->capture[level].len == CAP_UNFINISHED) return level; + return luaL_error(ms->L, "invalid pattern capture"); +} + + +static const char *classend (MatchState *ms, const char *p) { + switch (*p++) { + case L_ESC: { + if (*p == '\0') + luaL_error(ms->L, "malformed pattern (ends with " LUA_QL("%%") ")"); + return p+1; + } + case '[': { + if (*p == '^') p++; + do { /* look for a `]' */ + if (*p == '\0') + luaL_error(ms->L, "malformed pattern (missing " LUA_QL("]") ")"); + if (*(p++) == L_ESC && *p != '\0') + p++; /* skip escapes (e.g. `%]') */ + } while (*p != ']'); + return p+1; + } + default: { + return p; + } + } +} + + +static int match_class (int c, int cl) { + int res; + switch (tolower(cl)) { + case 'a' : res = isalpha(c); break; + case 'c' : res = iscntrl(c); break; + case 'd' : res = isdigit(c); break; + case 'l' : res = islower(c); break; + case 'p' : res = ispunct(c); break; + case 's' : res = isspace(c); break; + case 'u' : res = isupper(c); break; + case 'w' : res = isalnum(c); break; + case 'x' : res = isxdigit(c); break; + case 'z' : res = (c == 0); break; + default: return (cl == c); + } + return (islower(cl) ? res : !res); +} + + +static int matchbracketclass (int c, const char *p, const char *ec) { + int sig = 1; + if (*(p+1) == '^') { + sig = 0; + p++; /* skip the `^' */ + } + while (++p < ec) { + if (*p == L_ESC) { + p++; + if (match_class(c, uchar(*p))) + return sig; + } + else if ((*(p+1) == '-') && (p+2 < ec)) { + p+=2; + if (uchar(*(p-2)) <= c && c <= uchar(*p)) + return sig; + } + else if (uchar(*p) == c) return sig; + } + return !sig; +} + + +static int singlematch (int c, const char *p, const char *ep) { + switch (*p) { + case '.': return 1; /* matches any char */ + case L_ESC: return match_class(c, uchar(*(p+1))); + case '[': return matchbracketclass(c, p, ep-1); + default: return (uchar(*p) == c); + } +} + + +static const char *match (MatchState *ms, const char *s, const char *p); + + +static const char *matchbalance (MatchState *ms, const char *s, + const char *p) { + if (*p == 0 || *(p+1) == 0) + luaL_error(ms->L, "unbalanced pattern"); + if (*s != *p) return NULL; + else { + int b = *p; + int e = *(p+1); + int cont = 1; + while (++s < ms->src_end) { + if (*s == e) { + if (--cont == 0) return s+1; + } + else if (*s == b) cont++; + } + } + return NULL; /* string ends out of balance */ +} + + +static const char *max_expand (MatchState *ms, const char *s, + const char *p, const char *ep) { + ptrdiff_t i = 0; /* counts maximum expand for item */ + while ((s+i)src_end && singlematch(uchar(*(s+i)), p, ep)) + i++; + /* keeps trying to match with the maximum repetitions */ + while (i>=0) { + const char *res = match(ms, (s+i), ep+1); + if (res) return res; + i--; /* else didn't match; reduce 1 repetition to try again */ + } + return NULL; +} + + +static const char *min_expand (MatchState *ms, const char *s, + const char *p, const char *ep) { + for (;;) { + const char *res = match(ms, s, ep+1); + if (res != NULL) + return res; + else if (ssrc_end && singlematch(uchar(*s), p, ep)) + s++; /* try with one more repetition */ + else return NULL; + } +} + + +static const char *start_capture (MatchState *ms, const char *s, + const char *p, int what) { + const char *res; + int level = ms->level; + if (level >= LUA_MAXCAPTURES) luaL_error(ms->L, "too many captures"); + ms->capture[level].init = s; + ms->capture[level].len = what; + ms->level = level+1; + if ((res=match(ms, s, p)) == NULL) /* match failed? */ + ms->level--; /* undo capture */ + return res; +} + + +static const char *end_capture (MatchState *ms, const char *s, + const char *p) { + int l = capture_to_close(ms); + const char *res; + ms->capture[l].len = s - ms->capture[l].init; /* close capture */ + if ((res = match(ms, s, p)) == NULL) /* match failed? */ + ms->capture[l].len = CAP_UNFINISHED; /* undo capture */ + return res; +} + + +static const char *match_capture (MatchState *ms, const char *s, int l) { + size_t len; + l = check_capture(ms, l); + len = ms->capture[l].len; + if ((size_t)(ms->src_end-s) >= len && + memcmp(ms->capture[l].init, s, len) == 0) + return s+len; + else return NULL; +} + + +static const char *match (MatchState *ms, const char *s, const char *p) { + init: /* using goto's to optimize tail recursion */ + switch (*p) { + case '(': { /* start capture */ + if (*(p+1) == ')') /* position capture? */ + return start_capture(ms, s, p+2, CAP_POSITION); + else + return start_capture(ms, s, p+1, CAP_UNFINISHED); + } + case ')': { /* end capture */ + return end_capture(ms, s, p+1); + } + case L_ESC: { + switch (*(p+1)) { + case 'b': { /* balanced string? */ + s = matchbalance(ms, s, p+2); + if (s == NULL) return NULL; + p+=4; goto init; /* else return match(ms, s, p+4); */ + } + case 'f': { /* frontier? */ + const char *ep; char previous; + p += 2; + if (*p != '[') + luaL_error(ms->L, "missing " LUA_QL("[") " after " + LUA_QL("%%f") " in pattern"); + ep = classend(ms, p); /* points to what is next */ + previous = (s == ms->src_init) ? '\0' : *(s-1); + if (matchbracketclass(uchar(previous), p, ep-1) || + !matchbracketclass(uchar(*s), p, ep-1)) return NULL; + p=ep; goto init; /* else return match(ms, s, ep); */ + } + default: { + if (isdigit(uchar(*(p+1)))) { /* capture results (%0-%9)? */ + s = match_capture(ms, s, uchar(*(p+1))); + if (s == NULL) return NULL; + p+=2; goto init; /* else return match(ms, s, p+2) */ + } + goto dflt; /* case default */ + } + } + } + case '\0': { /* end of pattern */ + return s; /* match succeeded */ + } + case '$': { + if (*(p+1) == '\0') /* is the `$' the last char in pattern? */ + return (s == ms->src_end) ? s : NULL; /* check end of string */ + else goto dflt; + } + default: dflt: { /* it is a pattern item */ + const char *ep = classend(ms, p); /* points to what is next */ + int m = ssrc_end && singlematch(uchar(*s), p, ep); + switch (*ep) { + case '?': { /* optional */ + const char *res; + if (m && ((res=match(ms, s+1, ep+1)) != NULL)) + return res; + p=ep+1; goto init; /* else return match(ms, s, ep+1); */ + } + case '*': { /* 0 or more repetitions */ + return max_expand(ms, s, p, ep); + } + case '+': { /* 1 or more repetitions */ + return (m ? max_expand(ms, s+1, p, ep) : NULL); + } + case '-': { /* 0 or more repetitions (minimum) */ + return min_expand(ms, s, p, ep); + } + default: { + if (!m) return NULL; + s++; p=ep; goto init; /* else return match(ms, s+1, ep); */ + } + } + } + } +} + + + +static const char *lmemfind (const char *s1, size_t l1, + const char *s2, size_t l2) { + if (l2 == 0) return s1; /* empty strings are everywhere */ + else if (l2 > l1) return NULL; /* avoids a negative `l1' */ + else { + const char *init; /* to search for a `*s2' inside `s1' */ + l2--; /* 1st char will be checked by `memchr' */ + l1 = l1-l2; /* `s2' cannot be found after that */ + while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { + init++; /* 1st char is already checked */ + if (memcmp(init, s2+1, l2) == 0) + return init-1; + else { /* correct `l1' and `s1' to try again */ + l1 -= init-s1; + s1 = init; + } + } + return NULL; /* not found */ + } +} + + +static void push_onecapture (MatchState *ms, int i, const char *s, + const char *e) { + if (i >= ms->level) { + if (i == 0) /* ms->level == 0, too */ + lua_pushlstring(ms->L, s, e - s); /* add whole match */ + else + luaL_error(ms->L, "invalid capture index"); + } + else { + ptrdiff_t l = ms->capture[i].len; + if (l == CAP_UNFINISHED) luaL_error(ms->L, "unfinished capture"); + if (l == CAP_POSITION) + lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1); + else + lua_pushlstring(ms->L, ms->capture[i].init, l); + } +} + + +static int push_captures (MatchState *ms, const char *s, const char *e) { + int i; + int nlevels = (ms->level == 0 && s) ? 1 : ms->level; + luaL_checkstack(ms->L, nlevels, "too many captures"); + for (i = 0; i < nlevels; i++) + push_onecapture(ms, i, s, e); + return nlevels; /* number of strings pushed */ +} + + +static int str_find_aux (lua_State *L, int find) { + size_t l1, l2; + const char *s = luaL_checklstring(L, 1, &l1); + const char *p = luaL_checklstring(L, 2, &l2); + ptrdiff_t init = posrelat(luaL_optinteger(L, 3, 1), l1) - 1; + if (init < 0) init = 0; + else if ((size_t)(init) > l1) init = (ptrdiff_t)l1; + if (find && (lua_toboolean(L, 4) || /* explicit request? */ + strpbrk(p, SPECIALS) == NULL)) { /* or no special characters? */ + /* do a plain search */ + const char *s2 = lmemfind(s+init, l1-init, p, l2); + if (s2) { + lua_pushinteger(L, s2-s+1); + lua_pushinteger(L, s2-s+l2); + return 2; + } + } + else { + MatchState ms; + int anchor = (*p == '^') ? (p++, 1) : 0; + const char *s1=s+init; + ms.L = L; + ms.src_init = s; + ms.src_end = s+l1; + do { + const char *res; + ms.level = 0; + if ((res=match(&ms, s1, p)) != NULL) { + if (find) { + lua_pushinteger(L, s1-s+1); /* start */ + lua_pushinteger(L, res-s); /* end */ + return push_captures(&ms, NULL, 0) + 2; + } + else + return push_captures(&ms, s1, res); + } + } while (s1++ < ms.src_end && !anchor); + } + lua_pushnil(L); /* not found */ + return 1; +} + + +static int str_find (lua_State *L) { + return str_find_aux(L, 1); +} + + +static int str_match (lua_State *L) { + return str_find_aux(L, 0); +} + + +static int gmatch_aux (lua_State *L) { + MatchState ms; + size_t ls; + const char *s = lua_tolstring(L, lua_upvalueindex(1), &ls); + const char *p = lua_tostring(L, lua_upvalueindex(2)); + const char *src; + ms.L = L; + ms.src_init = s; + ms.src_end = s+ls; + for (src = s + (size_t)lua_tointeger(L, lua_upvalueindex(3)); + src <= ms.src_end; + src++) { + const char *e; + ms.level = 0; + if ((e = match(&ms, src, p)) != NULL) { + lua_Integer newstart = e-s; + if (e == src) newstart++; /* empty match? go at least one position */ + lua_pushinteger(L, newstart); + lua_replace(L, lua_upvalueindex(3)); + return push_captures(&ms, src, e); + } + } + return 0; /* not found */ +} + + +static int gmatch (lua_State *L) { + luaL_checkstring(L, 1); + luaL_checkstring(L, 2); + lua_settop(L, 2); + lua_pushinteger(L, 0); + lua_pushcclosure(L, gmatch_aux, 3); + return 1; +} + + +static int gfind_nodef (lua_State *L) { + return luaL_error(L, LUA_QL("string.gfind") " was renamed to " + LUA_QL("string.gmatch")); +} + + +static void add_s (MatchState *ms, luaL_Buffer *b, const char *s, + const char *e) { + size_t l, i; + const char *news = lua_tolstring(ms->L, 3, &l); + for (i = 0; i < l; i++) { + if (news[i] != L_ESC) + luaL_addchar(b, news[i]); + else { + i++; /* skip ESC */ + if (!isdigit(uchar(news[i]))) + luaL_addchar(b, news[i]); + else if (news[i] == '0') + luaL_addlstring(b, s, e - s); + else { + push_onecapture(ms, news[i] - '1', s, e); + luaL_addvalue(b); /* add capture to accumulated result */ + } + } + } +} + + +static void add_value (MatchState *ms, luaL_Buffer *b, const char *s, + const char *e) { + lua_State *L = ms->L; + switch (lua_type(L, 3)) { + case LUA_TNUMBER: + case LUA_TSTRING: { + add_s(ms, b, s, e); + return; + } + case LUA_TFUNCTION: { + int n; + lua_pushvalue(L, 3); + n = push_captures(ms, s, e); + lua_call(L, n, 1); + break; + } + case LUA_TTABLE: { + push_onecapture(ms, 0, s, e); + lua_gettable(L, 3); + break; + } + } + if (!lua_toboolean(L, -1)) { /* nil or false? */ + lua_pop(L, 1); + lua_pushlstring(L, s, e - s); /* keep original text */ + } + else if (!lua_isstring(L, -1)) + luaL_error(L, "invalid replacement value (a %s)", luaL_typename(L, -1)); + luaL_addvalue(b); /* add result to accumulator */ +} + + +static int str_gsub (lua_State *L) { + size_t srcl; + const char *src = luaL_checklstring(L, 1, &srcl); + const char *p = luaL_checkstring(L, 2); + int tr = lua_type(L, 3); + int max_s = luaL_optint(L, 4, srcl+1); + int anchor = (*p == '^') ? (p++, 1) : 0; + int n = 0; + MatchState ms; + luaL_Buffer b; + luaL_argcheck(L, tr == LUA_TNUMBER || tr == LUA_TSTRING || + tr == LUA_TFUNCTION || tr == LUA_TTABLE, 3, + "string/function/table expected"); + luaL_buffinit(L, &b); + ms.L = L; + ms.src_init = src; + ms.src_end = src+srcl; + while (n < max_s) { + const char *e; + ms.level = 0; + e = match(&ms, src, p); + if (e) { + n++; + add_value(&ms, &b, src, e); + } + if (e && e>src) /* non empty match? */ + src = e; /* skip it */ + else if (src < ms.src_end) + luaL_addchar(&b, *src++); + else break; + if (anchor) break; + } + luaL_addlstring(&b, src, ms.src_end-src); + luaL_pushresult(&b); + lua_pushinteger(L, n); /* number of substitutions */ + return 2; +} + +/* }====================================================== */ + + +/* maximum size of each formatted item (> len(format('%99.99f', -1e308))) */ +#define MAX_ITEM 512 +/* valid flags in a format specification */ +#define FLAGS "-+ #0" +/* +** maximum size of each format specification (such as '%-099.99d') +** (+10 accounts for %99.99x plus margin of error) +*/ +#define MAX_FORMAT (sizeof(FLAGS) + sizeof(LUA_INTFRMLEN) + 10) + + +static void addquoted (lua_State *L, luaL_Buffer *b, int arg) { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + luaL_addchar(b, '"'); + while (l--) { + switch (*s) { + case '"': case '\\': case '\n': { + luaL_addchar(b, '\\'); + luaL_addchar(b, *s); + break; + } + case '\r': { + luaL_addlstring(b, "\\r", 2); + break; + } + case '\0': { + luaL_addlstring(b, "\\000", 4); + break; + } + default: { + luaL_addchar(b, *s); + break; + } + } + s++; + } + luaL_addchar(b, '"'); +} + +static const char *scanformat (lua_State *L, const char *strfrmt, char *form) { + const char *p = strfrmt; + while (*p != '\0' && strchr(FLAGS, *p) != NULL) p++; /* skip flags */ + if ((size_t)(p - strfrmt) >= sizeof(FLAGS)) + luaL_error(L, "invalid format (repeated flags)"); + if (isdigit(uchar(*p))) p++; /* skip width */ + if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ + if (*p == '.') { + p++; + if (isdigit(uchar(*p))) p++; /* skip precision */ + if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ + } + if (isdigit(uchar(*p))) + luaL_error(L, "invalid format (width or precision too long)"); + *(form++) = '%'; + strncpy(form, strfrmt, p - strfrmt + 1); + form += p - strfrmt + 1; + *form = '\0'; + return p; +} + + +static void addintlen (char *form) { + size_t l = strlen(form); + char spec = form[l - 1]; + strcpy(form + l - 1, LUA_INTFRMLEN); + form[l + sizeof(LUA_INTFRMLEN) - 2] = spec; + form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0'; +} + + +static int str_format (lua_State *L) { + int top = lua_gettop(L); + int arg = 1; + size_t sfl; + const char *strfrmt = luaL_checklstring(L, arg, &sfl); + const char *strfrmt_end = strfrmt+sfl; + luaL_Buffer b; + luaL_buffinit(L, &b); + while (strfrmt < strfrmt_end) { + if (*strfrmt != L_ESC) + luaL_addchar(&b, *strfrmt++); + else if (*++strfrmt == L_ESC) + luaL_addchar(&b, *strfrmt++); /* %% */ + else { /* format item */ + char form[MAX_FORMAT]; /* to store the format (`%...') */ + char buff[MAX_ITEM]; /* to store the formatted item */ + if (++arg > top) + luaL_argerror(L, arg, "no value"); + strfrmt = scanformat(L, strfrmt, form); + switch (*strfrmt++) { + case 'c': { + sprintf(buff, form, (int)luaL_checknumber(L, arg)); + break; + } + case 'd': case 'i': { + addintlen(form); + sprintf(buff, form, (LUA_INTFRM_T)luaL_checknumber(L, arg)); + break; + } + case 'o': case 'u': case 'x': case 'X': { + addintlen(form); + sprintf(buff, form, (unsigned LUA_INTFRM_T)luaL_checknumber(L, arg)); + break; + } + case 'e': case 'E': case 'f': + case 'g': case 'G': { + sprintf(buff, form, (double)luaL_checknumber(L, arg)); + break; + } + case 'q': { + addquoted(L, &b, arg); + continue; /* skip the 'addsize' at the end */ + } + case 's': { + size_t l; + const char *s = luaL_checklstring(L, arg, &l); + if (!strchr(form, '.') && l >= 100) { + /* no precision and string is too long to be formatted; + keep original string */ + lua_pushvalue(L, arg); + luaL_addvalue(&b); + continue; /* skip the `addsize' at the end */ + } + else { + sprintf(buff, form, s); + break; + } + } + default: { /* also treat cases `pnLlh' */ + return luaL_error(L, "invalid option " LUA_QL("%%%c") " to " + LUA_QL("format"), *(strfrmt - 1)); + } + } + luaL_addlstring(&b, buff, strlen(buff)); + } + } + luaL_pushresult(&b); + return 1; +} + + +static const luaL_Reg strlib[] = { + {"byte", str_byte}, + {"char", str_char}, + {"dump", str_dump}, + {"find", str_find}, + {"format", str_format}, + {"gfind", gfind_nodef}, + {"gmatch", gmatch}, + {"gsub", str_gsub}, + {"len", str_len}, + {"lower", str_lower}, + {"match", str_match}, + {"rep", str_rep}, + {"reverse", str_reverse}, + {"sub", str_sub}, + {"upper", str_upper}, + {NULL, NULL} +}; + + +static void createmetatable (lua_State *L) { + lua_createtable(L, 0, 1); /* create metatable for strings */ + lua_pushliteral(L, ""); /* dummy string */ + lua_pushvalue(L, -2); + lua_setmetatable(L, -2); /* set string metatable */ + lua_pop(L, 1); /* pop dummy string */ + lua_pushvalue(L, -2); /* string library... */ + lua_setfield(L, -2, "__index"); /* ...is the __index metamethod */ + lua_pop(L, 1); /* pop metatable */ +} + + +/* +** Open string library +*/ +LUALIB_API int luaopen_string (lua_State *L) { + luaL_register(L, LUA_STRLIBNAME, strlib); +#if defined(LUA_COMPAT_GFIND) + lua_getfield(L, -1, "gmatch"); + lua_setfield(L, -2, "gfind"); +#endif + createmetatable(L); + return 1; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltable.c b/src/3rd party/LuaJIT-1.1.8/src/ltable.c new file mode 100644 index 00000000000..6b226ad4790 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltable.c @@ -0,0 +1,588 @@ +/* +** $Id: ltable.c,v 2.32.1.2 2007/12/28 15:32:23 roberto Exp $ +** Lua tables (hash) +** See Copyright Notice in lua.h +*/ + + +/* +** Implementation of tables (aka arrays, objects, or hash tables). +** Tables keep its elements in two parts: an array part and a hash part. +** Non-negative integer keys are all candidates to be kept in the array +** part. The actual size of the array is the largest `n' such that at +** least half the slots between 0 and n are in use. +** Hash uses a mix of chained scatter table with Brent's variation. +** A main invariant of these tables is that, if an element is not +** in its main position (i.e. the `original' position that its hash gives +** to it), then the colliding element is in its own main position. +** Hence even when the load factor reaches 100%, performance remains good. +*/ + +#include +#include + +#define ltable_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lgc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstate.h" +#include "ltable.h" + + +/* +** max size of array part is 2^MAXBITS +*/ +#if LUAI_BITSINT > 26 +#define MAXBITS 26 +#else +#define MAXBITS (LUAI_BITSINT-2) +#endif + +#define MAXASIZE (1 << MAXBITS) + + +#define hashpow2(t,n) (gnode(t, lmod((n), sizenode(t)))) + +#define hashstr(t,str) hashpow2(t, (str)->tsv.hash) +#define hashboolean(t,p) hashpow2(t, p) + + +/* +** for some types, it is better to avoid modulus by power of 2, as +** they tend to have many 2 factors. +*/ +#define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1)))) + + +#define hashpointer(t,p) hashmod(t, IntPoint(p)) + + +/* +** number of ints inside a lua_Number +*/ +#define numints cast_int(sizeof(lua_Number)/sizeof(int)) + + + +#define dummynode (&dummynode_) + +static const Node dummynode_ = { + {{NULL}, LUA_TNIL}, /* value */ + {{{NULL}, LUA_TNIL, NULL}} /* key */ +}; + + +/* +** hash for lua_Numbers +*/ +static Node *hashnum (const Table *t, lua_Number n) { + unsigned int a[numints]; + int i; + if (luai_numeq(n, 0)) /* avoid problems with -0 */ + return gnode(t, 0); + memcpy(a, &n, sizeof(a)); + for (i = 1; i < numints; i++) a[0] += a[i]; + return hashmod(t, a[0]); +} + + + +/* +** returns the `main' position of an element in a table (that is, the index +** of its hash value) +*/ +static Node *mainposition (const Table *t, const TValue *key) { + switch (ttype(key)) { + case LUA_TNUMBER: + return hashnum(t, nvalue(key)); + case LUA_TSTRING: + return hashstr(t, rawtsvalue(key)); + case LUA_TBOOLEAN: + return hashboolean(t, bvalue(key)); + case LUA_TLIGHTUSERDATA: + return hashpointer(t, pvalue(key)); + default: + return hashpointer(t, gcvalue(key)); + } +} + + +/* +** returns the index for `key' if `key' is an appropriate key to live in +** the array part of the table, -1 otherwise. +*/ +static int arrayindex (const TValue *key) { + if (ttisnumber(key)) { + lua_Number n = nvalue(key); + int k; + lua_number2int(k, n); + if (luai_numeq(cast_num(k), n)) + return k; + } + return -1; /* `key' did not match some condition */ +} + + +/* +** returns the index of a `key' for table traversals. First goes all +** elements in the array part, then elements in the hash part. The +** beginning of a traversal is signalled by -1. +*/ +static int findindex (lua_State *L, Table *t, StkId key) { + int i; + if (ttisnil(key)) return -1; /* first iteration */ + i = arrayindex(key); + if (0 < i && i <= t->sizearray) /* is `key' inside array part? */ + return i-1; /* yes; that's the index (corrected to C) */ + else { + Node *n = mainposition(t, key); + do { /* check whether `key' is somewhere in the chain */ + /* key may be dead already, but it is ok to use it in `next' */ + if (luaO_rawequalObj(key2tval(n), key) || + (ttype(gkey(n)) == LUA_TDEADKEY && iscollectable(key) && + gcvalue(gkey(n)) == gcvalue(key))) { + i = cast_int(n - gnode(t, 0)); /* key index in hash table */ + /* hash elements are numbered after array ones */ + return i + t->sizearray; + } + else n = gnext(n); + } while (n); + luaG_runerror(L, "invalid key to " LUA_QL("next")); /* key not found */ + return 0; /* to avoid warnings */ + } +} + + +int luaH_next (lua_State *L, Table *t, StkId key) { + int i = findindex(L, t, key); /* find original element */ + for (i++; i < t->sizearray; i++) { /* try first array part */ + if (!ttisnil(&t->array[i])) { /* a non-nil value? */ + setnvalue(key, cast_num(i+1)); + setobj2s(L, key+1, &t->array[i]); + return 1; + } + } + for (i -= t->sizearray; i < sizenode(t); i++) { /* then hash part */ + if (!ttisnil(gval(gnode(t, i)))) { /* a non-nil value? */ + setobj2s(L, key, key2tval(gnode(t, i))); + setobj2s(L, key+1, gval(gnode(t, i))); + return 1; + } + } + return 0; /* no more elements */ +} + + +/* +** {============================================================= +** Rehash +** ============================================================== +*/ + + +static int computesizes (int nums[], int *narray) { + int i; + int twotoi; /* 2^i */ + int a = 0; /* number of elements smaller than 2^i */ + int na = 0; /* number of elements to go to array part */ + int n = 0; /* optimal size for array part */ + for (i = 0, twotoi = 1; twotoi/2 < *narray; i++, twotoi *= 2) { + if (nums[i] > 0) { + a += nums[i]; + if (a > twotoi/2) { /* more than half elements present? */ + n = twotoi; /* optimal size (till now) */ + na = a; /* all elements smaller than n will go to array part */ + } + } + if (a == *narray) break; /* all elements already counted */ + } + *narray = n; + lua_assert(*narray/2 <= na && na <= *narray); + return na; +} + + +static int countint (const TValue *key, int *nums) { + int k = arrayindex(key); + if (0 < k && k <= MAXASIZE) { /* is `key' an appropriate array index? */ + nums[ceillog2(k)]++; /* count as such */ + return 1; + } + else + return 0; +} + + +static int numusearray (const Table *t, int *nums) { + int lg; + int ttlg; /* 2^lg */ + int ause = 0; /* summation of `nums' */ + int i = 1; /* count to traverse all array keys */ + for (lg=0, ttlg=1; lg<=MAXBITS; lg++, ttlg*=2) { /* for each slice */ + int lc = 0; /* counter */ + int lim = ttlg; + if (lim > t->sizearray) { + lim = t->sizearray; /* adjust upper limit */ + if (i > lim) + break; /* no more elements to count */ + } + /* count elements in range (2^(lg-1), 2^lg] */ + for (; i <= lim; i++) { + if (!ttisnil(&t->array[i-1])) + lc++; + } + nums[lg] += lc; + ause += lc; + } + return ause; +} + + +static int numusehash (const Table *t, int *nums, int *pnasize) { + int totaluse = 0; /* total number of elements */ + int ause = 0; /* summation of `nums' */ + int i = sizenode(t); + while (i--) { + Node *n = &t->node[i]; + if (!ttisnil(gval(n))) { + ause += countint(key2tval(n), nums); + totaluse++; + } + } + *pnasize += ause; + return totaluse; +} + + +static void setarrayvector (lua_State *L, Table *t, int size) { + int i; + luaM_reallocvector(L, t->array, t->sizearray, size, TValue); + for (i=t->sizearray; iarray[i]); + t->sizearray = size; +} + + +static void setnodevector (lua_State *L, Table *t, int size) { + int lsize; + if (size == 0) { /* no elements to hash part? */ + t->node = cast(Node *, dummynode); /* use common `dummynode' */ + lsize = 0; + } + else { + int i; + lsize = ceillog2(size); + if (lsize > MAXBITS) + luaG_runerror(L, "table overflow"); + size = twoto(lsize); + t->node = luaM_newvector(L, size, Node); + for (i=0; ilsizenode = cast_byte(lsize); + t->lastfree = gnode(t, size); /* all positions are free */ +} + + +static void resize (lua_State *L, Table *t, int nasize, int nhsize) { + int i; + int oldasize = t->sizearray; + int oldhsize = t->lsizenode; + Node *nold = t->node; /* save old hash ... */ + if (nasize > oldasize) /* array part must grow? */ + setarrayvector(L, t, nasize); + /* create new hash part with appropriate size */ + setnodevector(L, t, nhsize); + if (nasize < oldasize) { /* array part must shrink? */ + t->sizearray = nasize; + /* re-insert elements from vanishing slice */ + for (i=nasize; iarray[i])) + setobjt2t(L, luaH_setnum(L, t, i+1), &t->array[i]); + } + /* shrink array */ + luaM_reallocvector(L, t->array, oldasize, nasize, TValue); + } + /* re-insert elements from hash part */ + for (i = twoto(oldhsize) - 1; i >= 0; i--) { + Node *old = nold+i; + if (!ttisnil(gval(old))) + setobjt2t(L, luaH_set(L, t, key2tval(old)), gval(old)); + } + if (nold != dummynode) + luaM_freearray(L, nold, twoto(oldhsize), Node); /* free old array */ +} + + +void luaH_resizearray (lua_State *L, Table *t, int nasize) { + int nsize = (t->node == dummynode) ? 0 : sizenode(t); + resize(L, t, nasize, nsize); +} + + +static void rehash (lua_State *L, Table *t, const TValue *ek) { + int nasize, na; + int nums[MAXBITS+1]; /* nums[i] = number of keys between 2^(i-1) and 2^i */ + int i; + int totaluse; + for (i=0; i<=MAXBITS; i++) nums[i] = 0; /* reset counts */ + nasize = numusearray(t, nums); /* count keys in array part */ + totaluse = nasize; /* all those keys are integer keys */ + totaluse += numusehash(t, nums, &nasize); /* count keys in hash part */ + /* count extra key */ + nasize += countint(ek, nums); + totaluse++; + /* compute new size for array part */ + na = computesizes(nums, &nasize); + /* resize the table to new computed sizes */ + resize(L, t, nasize, totaluse - na); +} + + + +/* +** }============================================================= +*/ + + +Table *luaH_new (lua_State *L, int narray, int nhash) { + Table *t = luaM_new(L, Table); + luaC_link(L, obj2gco(t), LUA_TTABLE); + t->metatable = NULL; + t->flags = cast_byte(~0); + /* temporary values (kept only if some malloc fails) */ + t->array = NULL; + t->sizearray = 0; + t->lsizenode = 0; + t->node = cast(Node *, dummynode); + setarrayvector(L, t, narray); + setnodevector(L, t, nhash); + return t; +} + + +void luaH_free (lua_State *L, Table *t) { + if (t->node != dummynode) + luaM_freearray(L, t->node, sizenode(t), Node); + luaM_freearray(L, t->array, t->sizearray, TValue); + luaM_free(L, t); +} + + +static Node *getfreepos (Table *t) { + while (t->lastfree-- > t->node) { + if (ttisnil(gkey(t->lastfree))) + return t->lastfree; + } + return NULL; /* could not find a free place */ +} + + + +/* +** inserts a new key into a hash table; first, check whether key's main +** position is free. If not, check whether colliding node is in its main +** position or not: if it is not, move colliding node to an empty place and +** put new key in its main position; otherwise (colliding node is in its main +** position), new key goes to an empty position. +*/ +TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key) { + Node *mp = mainposition(t, key); + if (!ttisnil(gval(mp)) || mp == dummynode) { + Node *othern; + Node *n = getfreepos(t); /* get a free place */ + if (n == NULL) { /* cannot find a free place? */ + rehash(L, t, key); /* grow table */ + return luaH_set(L, t, key); /* re-insert key into grown table */ + } + lua_assert(n != dummynode); + othern = mainposition(t, key2tval(mp)); + if (othern != mp) { /* is colliding node out of its main position? */ + /* yes; move colliding node into free position */ + while (gnext(othern) != mp) othern = gnext(othern); /* find previous */ + gnext(othern) = n; /* redo the chain with `n' in place of `mp' */ + *n = *mp; /* copy colliding node into free pos. (mp->next also goes) */ + gnext(mp) = NULL; /* now `mp' is free */ + setnilvalue(gval(mp)); + } + else { /* colliding node is in its own main position */ + /* new node will go into free position */ + gnext(n) = gnext(mp); /* chain new position */ + gnext(mp) = n; + mp = n; + } + } + gkey(mp)->value = key->value; gkey(mp)->tt = key->tt; + luaC_barriert(L, t, key); + lua_assert(ttisnil(gval(mp))); + return gval(mp); +} + + +/* +** search function for integers +*/ +const TValue *luaH_getnum (Table *t, int key) { + /* (1 <= key && key <= t->sizearray) */ + if (cast(unsigned int, key-1) < cast(unsigned int, t->sizearray)) + return &t->array[key-1]; + else { + lua_Number nk = cast_num(key); + Node *n = hashnum(t, nk); + do { /* check whether `key' is somewhere in the chain */ + if (ttisnumber(gkey(n)) && luai_numeq(nvalue(gkey(n)), nk)) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; + } +} + + +/* +** search function for strings +*/ +const TValue *luaH_getstr (Table *t, TString *key) { + Node *n = hashstr(t, key); + do { /* check whether `key' is somewhere in the chain */ + if (ttisstring(gkey(n)) && rawtsvalue(gkey(n)) == key) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; +} + + +/* +** main search function +*/ +const TValue *luaH_get (Table *t, const TValue *key) { + switch (ttype(key)) { + case LUA_TNIL: return luaO_nilobject; + case LUA_TSTRING: return luaH_getstr(t, rawtsvalue(key)); + case LUA_TNUMBER: { + int k; + lua_Number n = nvalue(key); + lua_number2int(k, n); + if (luai_numeq(cast_num(k), nvalue(key))) /* index is int? */ + return luaH_getnum(t, k); /* use specialized version */ + /* else go through */ + } + default: { + Node *n = mainposition(t, key); + do { /* check whether `key' is somewhere in the chain */ + if (luaO_rawequalObj(key2tval(n), key)) + return gval(n); /* that's it */ + else n = gnext(n); + } while (n); + return luaO_nilobject; + } + } +} + + +TValue *luaH_set (lua_State *L, Table *t, const TValue *key) { + const TValue *p = luaH_get(t, key); + t->flags = 0; + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + if (ttisnil(key)) luaG_runerror(L, "table index is nil"); + else if (ttisnumber(key) && luai_numisnan(nvalue(key))) + luaG_runerror(L, "table index is NaN"); + return luaH_newkey(L, t, key); + } +} + + +TValue *luaH_setnum (lua_State *L, Table *t, int key) { + const TValue *p = luaH_getnum(t, key); + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + TValue k; + setnvalue(&k, cast_num(key)); + return luaH_newkey(L, t, &k); + } +} + + +TValue *luaH_setstr (lua_State *L, Table *t, TString *key) { + const TValue *p = luaH_getstr(t, key); + if (p != luaO_nilobject) + return cast(TValue *, p); + else { + TValue k; + setsvalue(L, &k, key); + return luaH_newkey(L, t, &k); + } +} + + +static int unbound_search (Table *t, unsigned int j) { + unsigned int i = j; /* i is zero or a present index */ + j++; + /* find `i' and `j' such that i is present and j is not */ + while (!ttisnil(luaH_getnum(t, j))) { + i = j; + j *= 2; + if (j > cast(unsigned int, MAX_INT)) { /* overflow? */ + /* table was built with bad purposes: resort to linear search */ + i = 1; + while (!ttisnil(luaH_getnum(t, i))) i++; + return i - 1; + } + } + /* now do a binary search between them */ + while (j - i > 1) { + unsigned int m = (i+j)/2; + if (ttisnil(luaH_getnum(t, m))) j = m; + else i = m; + } + return i; +} + + +/* +** Try to find a boundary in table `t'. A `boundary' is an integer index +** such that t[i] is non-nil and t[i+1] is nil (and 0 if t[1] is nil). +*/ +int luaH_getn (Table *t) { + unsigned int j = t->sizearray; + if (j > 0 && ttisnil(&t->array[j - 1])) { + /* there is a boundary in the array part: (binary) search for it */ + unsigned int i = 0; + while (j - i > 1) { + unsigned int m = (i+j)/2; + if (ttisnil(&t->array[m - 1])) j = m; + else i = m; + } + return i; + } + /* else must find a boundary in hash part */ + else if (t->node == dummynode) /* hash part is empty? */ + return j; /* that is easy... */ + else return unbound_search(t, j); +} + + + +#if defined(LUA_DEBUG) + +Node *luaH_mainposition (const Table *t, const TValue *key) { + return mainposition(t, key); +} + +int luaH_isdummy (Node *n) { return n == dummynode; } + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltable.h b/src/3rd party/LuaJIT-1.1.8/src/ltable.h new file mode 100644 index 00000000000..a61c9813076 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltable.h @@ -0,0 +1,41 @@ +/* +** $Id: ltable.h,v 2.10.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua tables (hash) +** See Copyright Notice in lua.h +*/ + +#ifndef ltable_h +#define ltable_h + +#include "lobject.h" + + +#define gnode(t,i) (&(t)->node[i]) +#define gkey(n) (&(n)->i_key.nk) +#define gval(n) (&(n)->i_val) +#define gnext(n) ((n)->i_key.nk.next) + +#define key2tval(n) (&(n)->i_key.tvk) + + +LUAI_FUNC const TValue *luaH_getnum (Table *t, int key); +LUAI_FUNC TValue *luaH_setnum (lua_State *L, Table *t, int key); +LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key); +LUAI_FUNC TValue *luaH_setstr (lua_State *L, Table *t, TString *key); +LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key); +LUAI_FUNC TValue *luaH_set (lua_State *L, Table *t, const TValue *key); +LUAI_FUNC Table *luaH_new (lua_State *L, int narray, int lnhash); +LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, int nasize); +LUAI_FUNC void luaH_free (lua_State *L, Table *t); +LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key); +LUAI_FUNC int luaH_getn (Table *t); +LUAI_FUNC TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key); + + +#if defined(LUA_DEBUG) +LUAI_FUNC Node *luaH_mainposition (const Table *t, const TValue *key); +LUAI_FUNC int luaH_isdummy (Node *n); +#endif + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltablib.c b/src/3rd party/LuaJIT-1.1.8/src/ltablib.c new file mode 100644 index 00000000000..b6d9cb4ac74 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltablib.c @@ -0,0 +1,287 @@ +/* +** $Id: ltablib.c,v 1.38.1.3 2008/02/14 16:46:58 roberto Exp $ +** Library for Table Manipulation +** See Copyright Notice in lua.h +*/ + + +#include + +#define ltablib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +#define aux_getn(L,n) (luaL_checktype(L, n, LUA_TTABLE), luaL_getn(L, n)) + + +static int foreachi (lua_State *L) { + int i; + int n = aux_getn(L, 1); + luaL_checktype(L, 2, LUA_TFUNCTION); + for (i=1; i <= n; i++) { + lua_pushvalue(L, 2); /* function */ + lua_pushinteger(L, i); /* 1st argument */ + lua_rawgeti(L, 1, i); /* 2nd argument */ + lua_call(L, 2, 1); + if (!lua_isnil(L, -1)) + return 1; + lua_pop(L, 1); /* remove nil result */ + } + return 0; +} + + +static int foreach (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + luaL_checktype(L, 2, LUA_TFUNCTION); + lua_pushnil(L); /* first key */ + while (lua_next(L, 1)) { + lua_pushvalue(L, 2); /* function */ + lua_pushvalue(L, -3); /* key */ + lua_pushvalue(L, -3); /* value */ + lua_call(L, 2, 1); + if (!lua_isnil(L, -1)) + return 1; + lua_pop(L, 2); /* remove value and result */ + } + return 0; +} + + +static int maxn (lua_State *L) { + lua_Number max = 0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushnil(L); /* first key */ + while (lua_next(L, 1)) { + lua_pop(L, 1); /* remove value */ + if (lua_type(L, -1) == LUA_TNUMBER) { + lua_Number v = lua_tonumber(L, -1); + if (v > max) max = v; + } + } + lua_pushnumber(L, max); + return 1; +} + + +static int getn (lua_State *L) { + lua_pushinteger(L, aux_getn(L, 1)); + return 1; +} + + +static int setn (lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); +#ifndef luaL_setn + luaL_setn(L, 1, luaL_checkint(L, 2)); +#else + luaL_error(L, LUA_QL("setn") " is obsolete"); +#endif + lua_pushvalue(L, 1); + return 1; +} + + +static int tinsert (lua_State *L) { + int e = aux_getn(L, 1) + 1; /* first empty element */ + int pos; /* where to insert new element */ + switch (lua_gettop(L)) { + case 2: { /* called with only 2 arguments */ + pos = e; /* insert new element at the end */ + break; + } + case 3: { + int i; + pos = luaL_checkint(L, 2); /* 2nd argument is the position */ + if (pos > e) e = pos; /* `grow' array if necessary */ + for (i = e; i > pos; i--) { /* move up elements */ + lua_rawgeti(L, 1, i-1); + lua_rawseti(L, 1, i); /* t[i] = t[i-1] */ + } + break; + } + default: { + return luaL_error(L, "wrong number of arguments to " LUA_QL("insert")); + } + } + luaL_setn(L, 1, e); /* new size */ + lua_rawseti(L, 1, pos); /* t[pos] = v */ + return 0; +} + + +static int tremove (lua_State *L) { + int e = aux_getn(L, 1); + int pos = luaL_optint(L, 2, e); + if (!(1 <= pos && pos <= e)) /* position is outside bounds? */ + return 0; /* nothing to remove */ + luaL_setn(L, 1, e - 1); /* t.n = n-1 */ + lua_rawgeti(L, 1, pos); /* result = t[pos] */ + for ( ;pos= P */ + while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { + if (i>u) luaL_error(L, "invalid order function for sorting"); + lua_pop(L, 1); /* remove a[i] */ + } + /* repeat --j until a[j] <= P */ + while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { + if (j + +#define ltm_c +#define LUA_CORE + +#include "lua.h" + +#include "lobject.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" + + + +const char *const luaT_typenames[] = { + "nil", "boolean", "userdata", "number", + "string", "table", "function", "userdata", "thread", + "proto", "upval" +}; + + +void luaT_init (lua_State *L) { + static const char *const luaT_eventname[] = { /* ORDER TM */ + "__index", "__newindex", + "__gc", "__mode", "__eq", + "__add", "__sub", "__mul", "__div", "__mod", + "__pow", "__unm", "__len", "__lt", "__le", + "__concat", "__call" + }; + int i; + for (i=0; itmname[i] = luaS_new(L, luaT_eventname[i]); + luaS_fix(G(L)->tmname[i]); /* never collect these names */ + } +} + + +/* +** function to be used with macro "fasttm": optimized for absence of +** tag methods +*/ +const TValue *luaT_gettm (Table *events, TMS event, TString *ename) { + const TValue *tm = luaH_getstr(events, ename); + lua_assert(event <= TM_EQ); + if (ttisnil(tm)) { /* no tag method? */ + events->flags |= cast_byte(1u<metatable; + break; + case LUA_TUSERDATA: + mt = uvalue(o)->metatable; + break; + default: + mt = G(L)->mt[ttype(o)]; + } + return (mt ? luaH_getstr(mt, G(L)->tmname[event]) : luaO_nilobject); +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/ltm.h b/src/3rd party/LuaJIT-1.1.8/src/ltm.h new file mode 100644 index 00000000000..64343b781b6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/ltm.h @@ -0,0 +1,54 @@ +/* +** $Id: ltm.h,v 2.6.1.1 2007/12/27 13:02:25 roberto Exp $ +** Tag methods +** See Copyright Notice in lua.h +*/ + +#ifndef ltm_h +#define ltm_h + + +#include "lobject.h" + + +/* +* WARNING: if you change the order of this enumeration, +* grep "ORDER TM" +*/ +typedef enum { + TM_INDEX, + TM_NEWINDEX, + TM_GC, + TM_MODE, + TM_EQ, /* last tag method with `fast' access */ + TM_ADD, + TM_SUB, + TM_MUL, + TM_DIV, + TM_MOD, + TM_POW, + TM_UNM, + TM_LEN, + TM_LT, + TM_LE, + TM_CONCAT, + TM_CALL, + TM_N /* number of elements in the enum */ +} TMS; + + + +#define gfasttm(g,et,e) ((et) == NULL ? NULL : \ + ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) + +#define fasttm(l,et,e) gfasttm(G(l), et, e) + +LUAI_DATA const char *const luaT_typenames[]; + + +LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); +LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, + TMS event); +LUAI_FUNC void luaT_init (lua_State *L); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lua.c b/src/3rd party/LuaJIT-1.1.8/src/lua.c new file mode 100644 index 00000000000..a4b413f1ca6 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lua.c @@ -0,0 +1,463 @@ +/* +** $Id: lua.c,v 1.160.1.2 2007/12/28 15:32:23 roberto Exp $ +** Lua stand-alone interpreter +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include +#include + +#define lua_c + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" + + + +static lua_State *globalL = NULL; + +static const char *progname = LUA_PROGNAME; + + + +static void lstop (lua_State *L, lua_Debug *ar) { + (void)ar; /* unused arg. */ + lua_sethook(L, NULL, 0, 0); + luaL_error(L, "interrupted!"); +} + + +static void laction (int i) { + signal(i, SIG_DFL); /* if another SIGINT happens before lstop, + terminate process (default action) */ + lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1); +} + + +static void print_usage (void) { + fprintf(stderr, + "usage: %s [options] [script [args]].\n" + "Available options are:\n" + " -e stat execute string " LUA_QL("stat") "\n" + " -l name require library " LUA_QL("name") "\n" + " -j cmd perform LuaJIT control command\n" + " -O[lvl] set LuaJIT optimization level\n" + " -i enter interactive mode after executing " LUA_QL("script") "\n" + " -v show version information\n" + " -- stop handling options\n" + " - execute stdin and stop handling options\n" + , + progname); + fflush(stderr); +} + + +static void l_message (const char *pname, const char *msg) { + if (pname) fprintf(stderr, "%s: ", pname); + fprintf(stderr, "%s\n", msg); + fflush(stderr); +} + + +static int report (lua_State *L, int status) { + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(progname, msg); + lua_pop(L, 1); + } + return status; +} + + +static int traceback (lua_State *L) { + if (!lua_isstring(L, 1)) /* 'message' not a string? */ + return 1; /* keep it intact */ + lua_getfield(L, LUA_GLOBALSINDEX, "debug"); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + return 1; + } + lua_getfield(L, -1, "traceback"); + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); + return 1; + } + lua_pushvalue(L, 1); /* pass error message */ + lua_pushinteger(L, 2); /* skip this function and traceback */ + lua_call(L, 2, 1); /* call debug.traceback */ + return 1; +} + + +static int docall (lua_State *L, int narg, int clear) { + int status; + int base = lua_gettop(L) - narg; /* function index */ + lua_pushcfunction(L, traceback); /* push traceback function */ + lua_insert(L, base); /* put it under chunk and args */ + signal(SIGINT, laction); + status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base); + signal(SIGINT, SIG_DFL); + lua_remove(L, base); /* remove traceback function */ + /* force a complete garbage collection in case of errors */ + if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); + return status; +} + + +static void print_version (void) { + l_message(NULL, LUA_RELEASE " " LUA_COPYRIGHT); + l_message(NULL, LUAJIT_VERSION " " LUAJIT_COPYRIGHT ", " LUAJIT_URL); +} + + +static int getargs (lua_State *L, char **argv, int n) { + int narg; + int i; + int argc = 0; + while (argv[argc]) argc++; /* count total number of arguments */ + narg = argc - (n + 1); /* number of arguments to the script */ + luaL_checkstack(L, narg + 3, "too many arguments to script"); + for (i=n+1; i < argc; i++) + lua_pushstring(L, argv[i]); + lua_createtable(L, narg, n + 1); + for (i=0; i < argc; i++) { + lua_pushstring(L, argv[i]); + lua_rawseti(L, -2, i - n); + } + return narg; +} + + +static int dofile (lua_State *L, const char *name) { + int status = luaL_loadfile(L, name) || docall(L, 0, 1); + return report(L, status); +} + + +static int dostring (lua_State *L, const char *s, const char *name) { + int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1); + return report(L, status); +} + + +static int dolibrary (lua_State *L, const char *name) { + lua_getglobal(L, "require"); + lua_pushstring(L, name); + return report(L, docall(L, 1, 1)); +} + + +static const char *get_prompt (lua_State *L, int firstline) { + const char *p; + lua_getfield(L, LUA_GLOBALSINDEX, firstline ? "_PROMPT" : "_PROMPT2"); + p = lua_tostring(L, -1); + if (p == NULL) p = (firstline ? LUA_PROMPT : LUA_PROMPT2); + lua_pop(L, 1); /* remove global */ + return p; +} + + +static int incomplete (lua_State *L, int status) { + if (status == LUA_ERRSYNTAX) { + size_t lmsg; + const char *msg = lua_tolstring(L, -1, &lmsg); + const char *tp = msg + lmsg - (sizeof(LUA_QL("")) - 1); + if (strstr(msg, LUA_QL("")) == tp) { + lua_pop(L, 1); + return 1; + } + } + return 0; /* else... */ +} + + +static int pushline (lua_State *L, int firstline) { + char buffer[LUA_MAXINPUT]; + char *b = buffer; + size_t l; + const char *prmt = get_prompt(L, firstline); + if (lua_readline(L, b, prmt) == 0) + return 0; /* no input */ + l = strlen(b); + if (l > 0 && b[l-1] == '\n') /* line ends with newline? */ + b[l-1] = '\0'; /* remove it */ + if (firstline && b[0] == '=') /* first line starts with `=' ? */ + lua_pushfstring(L, "return %s", b+1); /* change it to `return' */ + else + lua_pushstring(L, b); + lua_freeline(L, b); + return 1; +} + + +static int loadline (lua_State *L) { + int status; + lua_settop(L, 0); + if (!pushline(L, 1)) + return -1; /* no input */ + for (;;) { /* repeat until gets a complete line */ + status = luaL_loadbuffer(L, lua_tostring(L, 1), lua_strlen(L, 1), "=stdin"); + if (!incomplete(L, status)) break; /* cannot try to add lines? */ + if (!pushline(L, 0)) /* no more input? */ + return -1; + lua_pushliteral(L, "\n"); /* add a new line... */ + lua_insert(L, -2); /* ...between the two lines */ + lua_concat(L, 3); /* join them */ + } + lua_saveline(L, 1); + lua_remove(L, 1); /* remove line */ + return status; +} + + +static void dotty (lua_State *L) { + int status; + const char *oldprogname = progname; + progname = NULL; + while ((status = loadline(L)) != -1) { + if (status == 0) status = docall(L, 0, 0); + report(L, status); + if (status == 0 && lua_gettop(L) > 0) { /* any result to print? */ + lua_getglobal(L, "print"); + lua_insert(L, 1); + if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) + l_message(progname, lua_pushfstring(L, + "error calling " LUA_QL("print") " (%s)", + lua_tostring(L, -1))); + } + } + lua_settop(L, 0); /* clear stack */ + fputs("\n", stdout); + fflush(stdout); + progname = oldprogname; +} + + +static int handle_script (lua_State *L, char **argv, int n) { + int status; + const char *fname; + int narg = getargs(L, argv, n); /* collect arguments */ + lua_setglobal(L, "arg"); + fname = argv[n]; + if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0) + fname = NULL; /* stdin */ + status = luaL_loadfile(L, fname); + lua_insert(L, -(narg+1)); + if (status == 0) + status = docall(L, narg, 0); + else + lua_pop(L, narg); + return report(L, status); +} + +/* ---- start of LuaJIT extensions */ + +static int loadjitmodule (lua_State *L, const char *notfound) { + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) { + l_message(progname, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; +} + +/* JIT engine control command: try jit library first or load add-on module */ +static int dojitcmd (lua_State *L, const char *cmd) { + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val+1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +} + +/* start optimizer */ +static int dojitopt (lua_State *L, const char *opt) { + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +} + +/* ---- end of LuaJIT extensions */ + +/* check that argument has no extra characters at the end */ +#define notail(x) {if ((x)[2] != '\0') return -1;} + + +static int collectargs (char **argv, int *pi, int *pv, int *pe) { + int i; + for (i = 1; argv[i] != NULL; i++) { + if (argv[i][0] != '-') /* not an option? */ + return i; + switch (argv[i][1]) { /* option */ + case '-': + notail(argv[i]); + return (argv[i+1] != NULL ? i+1 : 0); + case '\0': + return i; + case 'i': + notail(argv[i]); + *pi = 1; /* go through */ + case 'v': + notail(argv[i]); + *pv = 1; + break; + case 'e': + *pe = 1; /* go through */ + case 'j': /* LuaJIT extension */ + case 'l': + if (argv[i][2] == '\0') { + i++; + if (argv[i] == NULL) return -1; + } + break; + case 'O': break; /* LuaJIT extension */ + default: return -1; /* invalid option */ + } + } + return 0; +} + + +static int runargs (lua_State *L, char **argv, int n) { + int i; + for (i = 1; i < n; i++) { + if (argv[i] == NULL) continue; + lua_assert(argv[i][0] == '-'); + switch (argv[i][1]) { /* option */ + case 'e': { + const char *chunk = argv[i] + 2; + if (*chunk == '\0') chunk = argv[++i]; + lua_assert(chunk != NULL); + if (dostring(L, chunk, "=(command line)") != 0) + return 1; + break; + } + case 'l': { + const char *filename = argv[i] + 2; + if (*filename == '\0') filename = argv[++i]; + lua_assert(filename != NULL); + if (dolibrary(L, filename)) + return 1; /* stop if file fails */ + break; + } + case 'j': { /* LuaJIT extension */ + const char *cmd = argv[i] + 2; + if (*cmd == '\0') cmd = argv[++i]; + lua_assert(cmd != NULL); + if (dojitcmd(L, cmd)) + return 1; + break; + } + case 'O': /* LuaJIT extension */ + if (dojitopt(L, argv[i] + 2)) + return 1; + break; + default: break; + } + } + return 0; +} + + +static int handle_luainit (lua_State *L) { + const char *init = getenv(LUA_INIT); + if (init == NULL) return 0; /* status OK */ + else if (init[0] == '@') + return dofile(L, init+1); + else + return dostring(L, init, "=" LUA_INIT); +} + + +struct Smain { + int argc; + char **argv; + int status; +}; + + +static int pmain (lua_State *L) { + struct Smain *s = (struct Smain *)lua_touserdata(L, 1); + char **argv = s->argv; + int script; + int has_i = 0, has_v = 0, has_e = 0; + globalL = L; + if (argv[0] && argv[0][0]) progname = argv[0]; + LUAJIT_VERSION_SYM(); /* linker-enforced version check */ + lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ + luaL_openlibs(L); /* open libraries */ + lua_gc(L, LUA_GCRESTART, 0); + s->status = handle_luainit(L); + if (s->status != 0) return 0; + script = collectargs(argv, &has_i, &has_v, &has_e); + if (script < 0) { /* invalid args? */ + print_usage(); + s->status = 1; + return 0; + } + if (has_v) print_version(); + s->status = runargs(L, argv, (script > 0) ? script : s->argc); + if (s->status != 0) return 0; + if (script) + s->status = handle_script(L, argv, script); + if (s->status != 0) return 0; + if (has_i) + dotty(L); + else if (script == 0 && !has_e && !has_v) { + if (lua_stdin_is_tty()) { + print_version(); + dotty(L); + } + else dofile(L, NULL); /* executes stdin as a file */ + } + return 0; +} + + +int main (int argc, char **argv) { + int status; + struct Smain s; + lua_State *L = lua_open(); /* create state */ + if (L == NULL) { + l_message(argv[0], "cannot create state: not enough memory"); + return EXIT_FAILURE; + } + s.argc = argc; + s.argv = argv; + status = lua_cpcall(L, &pmain, &s); + report(L, status); + lua_close(L); + return (status || s.status) ? EXIT_FAILURE : EXIT_SUCCESS; +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lua.h b/src/3rd party/LuaJIT-1.1.8/src/lua.h new file mode 100644 index 00000000000..da822f0ad92 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lua.h @@ -0,0 +1,385 @@ +/* +** $Id: lua.h,v 1.218.1.7 2012/01/13 20:36:20 roberto Exp $ +** Lua - An Extensible Extension Language +** Lua.org, PUC-Rio, Brazil (http://www.lua.org) +** See Copyright Notice at the end of this file +*/ + + +#ifndef lua_h +#define lua_h + +#include +#include + + +#include "luaconf.h" + + +#define LUA_VERSION "Lua 5.1" +#define LUA_RELEASE "Lua 5.1.5" +#define LUA_VERSION_NUM 501 +#define LUA_COPYRIGHT "Copyright (C) 1994-2012 Lua.org, PUC-Rio" +#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" + + +/* mark for precompiled code (`Lua') */ +#define LUA_SIGNATURE "\033Lua" + +/* option for multiple returns in `lua_pcall' and `lua_call' */ +#define LUA_MULTRET (-1) + + +/* +** pseudo-indices +*/ +#define LUA_REGISTRYINDEX (-10000) +#define LUA_ENVIRONINDEX (-10001) +#define LUA_GLOBALSINDEX (-10002) +#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i)) + + +/* thread status; 0 is OK */ +#define LUA_YIELD 1 +#define LUA_ERRRUN 2 +#define LUA_ERRSYNTAX 3 +#define LUA_ERRMEM 4 +#define LUA_ERRERR 5 + + +typedef struct lua_State lua_State; + +typedef int (*lua_CFunction) (lua_State *L); + + +/* +** functions that read/write blocks when loading/dumping Lua chunks +*/ +typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); + +typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud); + + +/* +** prototype for memory-allocation functions +*/ +typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); + + +/* +** basic types +*/ +#define LUA_TNONE (-1) + +#define LUA_TNIL 0 +#define LUA_TBOOLEAN 1 +#define LUA_TLIGHTUSERDATA 2 +#define LUA_TNUMBER 3 +#define LUA_TSTRING 4 +#define LUA_TTABLE 5 +#define LUA_TFUNCTION 6 +#define LUA_TUSERDATA 7 +#define LUA_TTHREAD 8 + + + +/* minimum Lua stack available to a C function */ +#define LUA_MINSTACK 20 + + +/* +** generic extra include file +*/ +#if defined(LUA_USER_H) +#include LUA_USER_H +#endif + + +/* type of numbers in Lua */ +typedef LUA_NUMBER lua_Number; + + +/* type for integer functions */ +typedef LUA_INTEGER lua_Integer; + + + +/* +** state manipulation +*/ +LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud); +LUA_API void (lua_close) (lua_State *L); +LUA_API lua_State *(lua_newthread) (lua_State *L); + +LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); + + +/* +** basic stack manipulation +*/ +LUA_API int (lua_gettop) (lua_State *L); +LUA_API void (lua_settop) (lua_State *L, int idx); +LUA_API void (lua_pushvalue) (lua_State *L, int idx); +LUA_API void (lua_remove) (lua_State *L, int idx); +LUA_API void (lua_insert) (lua_State *L, int idx); +LUA_API void (lua_replace) (lua_State *L, int idx); +LUA_API int (lua_checkstack) (lua_State *L, int sz); + +LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); + + +/* +** access functions (stack -> C) +*/ + +LUA_API int (lua_isnumber) (lua_State *L, int idx); +LUA_API int (lua_isstring) (lua_State *L, int idx); +LUA_API int (lua_iscfunction) (lua_State *L, int idx); +LUA_API int (lua_isuserdata) (lua_State *L, int idx); +LUA_API int (lua_type) (lua_State *L, int idx); +LUA_API const char *(lua_typename) (lua_State *L, int tp); + +LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2); + +LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx); +LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx); +LUA_API int (lua_toboolean) (lua_State *L, int idx); +LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); +LUA_API size_t (lua_objlen) (lua_State *L, int idx); +LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); +LUA_API void *(lua_touserdata) (lua_State *L, int idx); +LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); +LUA_API const void *(lua_topointer) (lua_State *L, int idx); + + +/* +** push functions (C -> stack) +*/ +LUA_API void (lua_pushnil) (lua_State *L); +LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); +LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); +LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l); +LUA_API void (lua_pushstring) (lua_State *L, const char *s); +LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, + va_list argp); +LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); +LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); +LUA_API void (lua_pushboolean) (lua_State *L, int b); +LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); +LUA_API int (lua_pushthread) (lua_State *L); + + +/* +** get functions (Lua -> stack) +*/ +LUA_API void (lua_gettable) (lua_State *L, int idx); +LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawget) (lua_State *L, int idx); +LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n); +LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec); +LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz); +LUA_API int (lua_getmetatable) (lua_State *L, int objindex); +LUA_API void (lua_getfenv) (lua_State *L, int idx); + + +/* +** set functions (stack -> Lua) +*/ +LUA_API void (lua_settable) (lua_State *L, int idx); +LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawset) (lua_State *L, int idx); +LUA_API void (lua_rawseti) (lua_State *L, int idx, int n); +LUA_API int (lua_setmetatable) (lua_State *L, int objindex); +LUA_API int (lua_setfenv) (lua_State *L, int idx); + + +/* +** `load' and `call' functions (load and run Lua code) +*/ +LUA_API void (lua_call) (lua_State *L, int nargs, int nresults); +LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); +LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud); +LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, + const char *chunkname); + +LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data); + + +/* +** coroutine functions +*/ +LUA_API int (lua_yield) (lua_State *L, int nresults); +LUA_API int (lua_resume) (lua_State *L, int narg); +LUA_API int (lua_status) (lua_State *L); + +/* +** garbage-collection function and options +*/ + +#define LUA_GCSTOP 0 +#define LUA_GCRESTART 1 +#define LUA_GCCOLLECT 2 +#define LUA_GCCOUNT 3 +#define LUA_GCCOUNTB 4 +#define LUA_GCSTEP 5 +#define LUA_GCSETPAUSE 6 +#define LUA_GCSETSTEPMUL 7 + +LUA_API int (lua_gc) (lua_State *L, int what, int data); + + +/* +** miscellaneous functions +*/ + +LUA_API int (lua_error) (lua_State *L); + +LUA_API int (lua_next) (lua_State *L, int idx); + +LUA_API void (lua_concat) (lua_State *L, int n); + +LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); + + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define lua_pop(L,n) lua_settop(L, -(n)-1) + +#define lua_newtable(L) lua_createtable(L, 0, 0) + +#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) + +#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) + +#define lua_strlen(L,i) lua_objlen(L, (i)) + +#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) +#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) +#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) +#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) +#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) +#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) +#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) +#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) + +#define lua_pushliteral(L, s) \ + lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1) + +#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s)) +#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s)) + +#define lua_tostring(L,i) lua_tolstring(L, (i), NULL) + + + +/* +** compatibility macros and functions +*/ + +#define lua_open() luaL_newstate() + +#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX) + +#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0) + +#define lua_Chunkreader lua_Reader +#define lua_Chunkwriter lua_Writer + + + +/* +** {====================================================================== +** Debug API +** ======================================================================= +*/ + + +/* +** Event codes +*/ +#define LUA_HOOKCALL 0 +#define LUA_HOOKRET 1 +#define LUA_HOOKLINE 2 +#define LUA_HOOKCOUNT 3 +#define LUA_HOOKTAILRET 4 + + +/* +** Event masks +*/ +#define LUA_MASKCALL (1 << LUA_HOOKCALL) +#define LUA_MASKRET (1 << LUA_HOOKRET) +#define LUA_MASKLINE (1 << LUA_HOOKLINE) +#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) + +typedef struct lua_Debug lua_Debug; /* activation record */ + + +/* Functions to be called by the debuger in specific events */ +typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); + + +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar); +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n); +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n); + +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count); +LUA_API lua_Hook lua_gethook (lua_State *L); +LUA_API int lua_gethookmask (lua_State *L); +LUA_API int lua_gethookcount (lua_State *L); + + +struct lua_Debug { + int event; + const char *name; /* (n) */ + const char *namewhat; /* (n) `global', `local', `field', `method' */ + const char *what; /* (S) `Lua', `C', `main', `tail' */ + const char *source; /* (S) */ + int currentline; /* (l) */ + int nups; /* (u) number of upvalues */ + int linedefined; /* (S) */ + int lastlinedefined; /* (S) */ + char short_src[LUA_IDSIZE]; /* (S) */ + /* private part */ + int i_ci; /* active function */ +}; + +/* }====================================================================== */ + + +/****************************************************************************** +* Copyright (C) 1994-2012 Lua.org, PUC-Rio. All rights reserved. +* +* Permission is hereby granted, free of charge, to any person obtaining +* a copy of this software and associated documentation files (the +* "Software"), to deal in the Software without restriction, including +* without limitation the rights to use, copy, modify, merge, publish, +* distribute, sublicense, and/or sell copies of the Software, and to +* permit persons to whom the Software is furnished to do so, subject to +* the following conditions: +* +* The above copyright notice and this permission notice shall be +* included in all copies or substantial portions of the Software. +* +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +******************************************************************************/ + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/luac.c b/src/3rd party/LuaJIT-1.1.8/src/luac.c new file mode 100644 index 00000000000..d07017391bf --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luac.c @@ -0,0 +1,200 @@ +/* +** $Id: luac.c,v 1.54 2006/06/02 17:37:11 lhf Exp $ +** Lua compiler (saves bytecodes to files; also list bytecodes) +** See Copyright Notice in lua.h +*/ + +#include +#include +#include +#include + +#define luac_c +#define LUA_CORE + +#include "lua.h" +#include "lauxlib.h" + +#include "ldo.h" +#include "lfunc.h" +#include "lmem.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstring.h" +#include "lundump.h" + +#define PROGNAME "luac" /* default program name */ +#define OUTPUT PROGNAME ".out" /* default output file */ + +static int listing=0; /* list bytecodes? */ +static int dumping=1; /* dump bytecodes? */ +static int stripping=0; /* strip debug information? */ +static char Output[]={ OUTPUT }; /* default output file name */ +static const char* output=Output; /* actual output file name */ +static const char* progname=PROGNAME; /* actual program name */ + +static void fatal(const char* message) +{ + fprintf(stderr,"%s: %s\n",progname,message); + exit(EXIT_FAILURE); +} + +static void cannot(const char* what) +{ + fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); + exit(EXIT_FAILURE); +} + +static void usage(const char* message) +{ + if (*message=='-') + fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); + else + fprintf(stderr,"%s: %s\n",progname,message); + fprintf(stderr, + "usage: %s [options] [filenames].\n" + "Available options are:\n" + " - process stdin\n" + " -l list\n" + " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" + " -p parse only\n" + " -s strip debug information\n" + " -v show version information\n" + " -- stop handling options\n", + progname,Output); + exit(EXIT_FAILURE); +} + +#define IS(s) (strcmp(argv[i],s)==0) + +static int doargs(int argc, char* argv[]) +{ + int i; + int version=0; + if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; + for (i=1; itop+(i))->l.p) + +static const Proto* combine(lua_State* L, int n) +{ + if (n==1) + return toproto(L,-1); + else + { + int i,pc; + Proto* f=luaF_newproto(L); + setptvalue2s(L,L->top,f); incr_top(L); + f->source=luaS_newliteral(L,"=(" PROGNAME ")"); + f->maxstacksize=1; + pc=2*n+1; + f->code=luaM_newvector(L,pc,Instruction); + f->sizecode=pc; + f->p=luaM_newvector(L,n,Proto*); + f->sizep=n; + pc=0; + for (i=0; ip[i]=toproto(L,i-n-1); + f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i); + f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1); + } + f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0); + return f; + } +} + +static int writer(lua_State* L, const void* p, size_t size, void* u) +{ + UNUSED(L); + return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0); +} + +struct Smain { + int argc; + char** argv; +}; + +static int pmain(lua_State* L) +{ + struct Smain* s = (struct Smain*)lua_touserdata(L, 1); + int argc=s->argc; + char** argv=s->argv; + const Proto* f; + int i; + if (!lua_checkstack(L,argc)) fatal("too many input files"); + for (i=0; i1); + if (dumping) + { + FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); + if (D==NULL) cannot("open"); + lua_lock(L); + luaU_dump(L,f,writer,D,stripping); + lua_unlock(L); + if (ferror(D)) cannot("write"); + if (fclose(D)) cannot("close"); + } + return 0; +} + +int main(int argc, char* argv[]) +{ + lua_State* L; + struct Smain s; + int i=doargs(argc,argv); + argc-=i; argv+=i; + if (argc<=0) usage("no input files given"); + L=lua_open(); + if (L==NULL) fatal("not enough memory for state"); + s.argc=argc; + s.argv=argv; + if (lua_cpcall(L,pmain,&s)!=0) fatal(lua_tostring(L,-1)); + lua_close(L); + return EXIT_SUCCESS; +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h new file mode 100644 index 00000000000..35a6bd1562e --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h @@ -0,0 +1,786 @@ +/* +** $Id: luaconf.h,v 1.82.1.7 2008/02/11 16:25:08 roberto Exp $ +** Configuration file for Lua +** See Copyright Notice in lua.h +*/ + + +#ifndef lconfig_h +#define lconfig_h + +#include +#include + + +/* +** ================================================================== +** Search for "@@" to find all configurable definitions. +** =================================================================== +*/ + + +/* +@@ LUA_ANSI controls the use of non-ansi features. +** CHANGE it (define it) if you want Lua to avoid the use of any +** non-ansi feature or library. +*/ +#if defined(__STRICT_ANSI__) +#define LUA_ANSI +#endif + + +#if !defined(LUA_ANSI) && defined(_WIN32) +#define LUA_WIN +#endif + +#if defined(LUA_USE_LINUX) +#define LUA_USE_POSIX +#define LUA_USE_DLOPEN /* needs an extra library: -ldl */ +/* #define LUA_USE_READLINE */ /* needs some extra libraries */ +#endif + +#if defined(LUA_USE_MACOSX) +#define LUA_USE_POSIX +#define LUA_DL_DYLD /* does not need extra library */ +#endif + + + +/* +@@ LUA_USE_POSIX includes all functionallity listed as X/Open System +@* Interfaces Extension (XSI). +** CHANGE it (define it) if your system is XSI compatible. +*/ +#if defined(LUA_USE_POSIX) +#define LUA_USE_MKSTEMP +#define LUA_USE_ISATTY +#define LUA_USE_POPEN +#define LUA_USE_ULONGJMP +#endif + + +/* +@@ LUA_PATH and LUA_CPATH are the names of the environment variables that +@* Lua check to set its paths. +@@ LUA_INIT is the name of the environment variable that Lua +@* checks for initialization code. +** CHANGE them if you want different names. +*/ +#define LUA_PATH "LUA_PATH" +#define LUA_CPATH "LUA_CPATH" +#define LUA_INIT "LUA_INIT" + + +/* +@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for +@* Lua libraries. +@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for +@* C libraries. +** CHANGE them if your machine has a non-conventional directory +** hierarchy or if you want to install your libraries in +** non-conventional directories. +*/ +#if defined(_WIN32) +/* +** In Windows, any exclamation mark ('!') in the path is replaced by the +** path of the directory of the executable file of the current process. +*/ +#define LUA_LDIR "!\\lua\\" +#define LUA_CDIR "!\\" +#define LUA_PATH_DEFAULT \ + ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ + LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua" +#define LUA_CPATH_DEFAULT \ + ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" + +#else +#define LUA_ROOT "/usr/local/" +#define LUA_LDIR LUA_ROOT "share/lua/5.1/" +#define LUA_CDIR LUA_ROOT "lib/lua/5.1/" +#define LUA_PATH_DEFAULT \ + "./?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ + LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua" +#define LUA_CPATH_DEFAULT \ + "./?.so;" LUA_CDIR"?.so;" LUA_CDIR"loadall.so" +#endif + + +/* +@@ LUA_DIRSEP is the directory separator (for submodules). +** CHANGE it if your machine does not use "/" as the directory separator +** and is not Windows. (On Windows Lua automatically uses "\".) +*/ +#if defined(_WIN32) +#define LUA_DIRSEP "\\" +#else +#define LUA_DIRSEP "/" +#endif + + +/* +@@ LUA_PATHSEP is the character that separates templates in a path. +@@ LUA_PATH_MARK is the string that marks the substitution points in a +@* template. +@@ LUA_EXECDIR in a Windows path is replaced by the executable's +@* directory. +@@ LUA_IGMARK is a mark to ignore all before it when bulding the +@* luaopen_ function name. +** CHANGE them if for some reason your system cannot use those +** characters. (E.g., if one of those characters is a common character +** in file/directory names.) Probably you do not need to change them. +*/ +#define LUA_PATHSEP ";" +#define LUA_PATH_MARK "?" +#define LUA_EXECDIR "!" +#define LUA_IGMARK "-" + + +/* +@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger. +** CHANGE that if ptrdiff_t is not adequate on your machine. (On most +** machines, ptrdiff_t gives a good choice between int or long.) +*/ +#define LUA_INTEGER ptrdiff_t + + +/* +@@ LUA_API is a mark for all core API functions. +@@ LUALIB_API is a mark for all standard library functions. +** CHANGE them if you need to define those functions in some special way. +** For instance, if you want to create one Windows DLL with the core and +** the libraries, you may want to use the following definition (define +** LUA_BUILD_AS_DLL to get it). +*/ +#if defined(LUA_BUILD_AS_DLL) + +#if defined(LUA_CORE) || defined(LUA_LIB) +#define LUA_API __declspec(dllexport) +#else +#define LUA_API __declspec(dllimport) +#endif + +#else + +#define LUA_API extern + +#endif + +/* more often than not the libs go together with the core */ +#define LUALIB_API LUA_API + + +/* +@@ LUAI_FUNC is a mark for all extern functions that are not to be +@* exported to outside modules. +@@ LUAI_DATA is a mark for all extern (const) variables that are not to +@* be exported to outside modules. +** CHANGE them if you need to mark them in some special way. Elf/gcc +** (versions 3.2 and later) mark them as "hidden" to optimize access +** when Lua is compiled as a shared library. +*/ +#if defined(luaall_c) +#define LUAI_FUNC static +#define LUAI_DATA /* empty */ + +#elif defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ + defined(__ELF__) +#define LUAI_FUNC __attribute__((visibility("hidden"))) extern +#define LUAI_DATA LUAI_FUNC + +#else +#define LUAI_FUNC extern +#define LUAI_DATA extern +#endif + + + +/* +@@ LUA_QL describes how error messages quote program elements. +** CHANGE it if you want a different appearance. +*/ +#define LUA_QL(x) "'" x "'" +#define LUA_QS LUA_QL("%s") + + +/* +@@ LUA_IDSIZE gives the maximum size for the description of the source +@* of a function in debug information. +** CHANGE it if you want a different size. +*/ +#define LUA_IDSIZE 60 + + +/* +** {================================================================== +** Stand-alone configuration +** =================================================================== +*/ + +#if defined(lua_c) || defined(luaall_c) + +/* +@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that +@* is, whether we're running lua interactively). +** CHANGE it if you have a better definition for non-POSIX/non-Windows +** systems. +*/ +#if defined(LUA_USE_ISATTY) +#include +#define lua_stdin_is_tty() isatty(0) +#elif defined(LUA_WIN) +#include +#include +#define lua_stdin_is_tty() _isatty(_fileno(stdin)) +#else +#define lua_stdin_is_tty() 1 /* assume stdin is a tty */ +#endif + + +/* +@@ LUA_PROMPT is the default prompt used by stand-alone Lua. +@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua. +** CHANGE them if you want different prompts. (You can also change the +** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.) +*/ +#define LUA_PROMPT "> " +#define LUA_PROMPT2 ">> " + + +/* +@@ LUA_PROGNAME is the default name for the stand-alone Lua program. +** CHANGE it if your stand-alone interpreter has a different name and +** your system is not able to detect that name automatically. +*/ +#define LUA_PROGNAME "luajit" + + +/* +@@ LUA_MAXINPUT is the maximum length for an input line in the +@* stand-alone interpreter. +** CHANGE it if you need longer lines. +*/ +#define LUA_MAXINPUT 512 + + +/* +@@ lua_readline defines how to show a prompt and then read a line from +@* the standard input. +@@ lua_saveline defines how to "save" a read line in a "history". +@@ lua_freeline defines how to free a line read by lua_readline. +** CHANGE them if you want to improve this functionality (e.g., by using +** GNU readline and history facilities). +*/ +#if defined(LUA_USE_READLINE) +#include +#include +#include +#define lua_readline(L,b,p) ((void)L, ((b)=readline(p)) != NULL) +#define lua_saveline(L,idx) \ + if (lua_strlen(L,idx) > 0) /* non-empty line? */ \ + add_history(lua_tostring(L, idx)); /* add it to history */ +#define lua_freeline(L,b) ((void)L, free(b)) +#else +#define lua_readline(L,b,p) \ + ((void)L, fputs(p, stdout), fflush(stdout), /* show prompt */ \ + fgets(b, LUA_MAXINPUT, stdin) != NULL) /* get line */ +#define lua_saveline(L,idx) { (void)L; (void)idx; } +#define lua_freeline(L,b) { (void)L; (void)b; } +#endif + +#endif + +/* }================================================================== */ + + +/* +@@ LUAI_GCPAUSE defines the default pause between garbage-collector cycles +@* as a percentage. +** CHANGE it if you want the GC to run faster or slower (higher values +** mean larger pauses which mean slower collection.) You can also change +** this value dynamically. +*/ +#define LUAI_GCPAUSE 200 /* 200% (wait memory to double before next GC) */ + + +/* +@@ LUAI_GCMUL defines the default speed of garbage collection relative to +@* memory allocation as a percentage. +** CHANGE it if you want to change the granularity of the garbage +** collection. (Higher values mean coarser collections. 0 represents +** infinity, where each step performs a full collection.) You can also +** change this value dynamically. +*/ +#define LUAI_GCMUL 200 /* GC runs 'twice the speed' of memory allocation */ + + + +/* +@@ LUA_COMPAT_GETN controls compatibility with old getn behavior. +** CHANGE it (define it) if you want exact compatibility with the +** behavior of setn/getn in Lua 5.0. +** +** Note: this is not supported by LuaJIT. Leave it undefined. +*/ +#undef LUA_COMPAT_GETN + +/* +@@ LUA_COMPAT_LOADLIB controls compatibility about global loadlib. +** CHANGE it to undefined as soon as you do not need a global 'loadlib' +** function (the function is still available as 'package.loadlib'). +*/ +#undef LUA_COMPAT_LOADLIB + +/* +@@ LUA_COMPAT_VARARG controls compatibility with old vararg feature. +** CHANGE it to undefined as soon as your programs use only '...' to +** access vararg parameters (instead of the old 'arg' table). +** +** Note: this has a slightly negative performance impact with LuaJIT +** for all vararg functions. Leave it off if possible and upgrade your +** code (replace unpack(arg) with ... and/or add local arg = {...}). +*/ +#undef LUA_COMPAT_VARARG + +/* +@@ LUA_COMPAT_MOD controls compatibility with old math.mod function. +** CHANGE it to undefined as soon as your programs use 'math.fmod' or +** the new '%' operator instead of 'math.mod'. +*/ +#define LUA_COMPAT_MOD + +/* +@@ LUA_COMPAT_LSTR controls compatibility with old long string nesting +@* facility. +** CHANGE it to 2 if you want the old behaviour, or undefine it to turn +** off the advisory error when nesting [[...]]. +*/ +#define LUA_COMPAT_LSTR 1 + +/* +@@ LUA_COMPAT_GFIND controls compatibility with old 'string.gfind' name. +** CHANGE it to undefined as soon as you rename 'string.gfind' to +** 'string.gmatch'. +*/ +#define LUA_COMPAT_GFIND + +/* +@@ LUA_COMPAT_OPENLIB controls compatibility with old 'luaL_openlib' +@* behavior. +** CHANGE it to undefined as soon as you replace to 'luaL_register' +** your uses of 'luaL_openlib' +*/ +#define LUA_COMPAT_OPENLIB + + + +/* +@@ luai_apicheck is the assert macro used by the Lua-C API. +** CHANGE luai_apicheck if you want Lua to perform some checks in the +** parameters it gets from API calls. This may slow down the interpreter +** a bit, but may be quite useful when debugging C code that interfaces +** with Lua. A useful redefinition is to use assert.h. +*/ +#if defined(LUA_USE_APICHECK) +#include +#define luai_apicheck(L,o) { (void)L; assert(o); } +#else +#define luai_apicheck(L,o) { (void)L; } +#endif + + +/* +@@ LUAI_BITSINT defines the number of bits in an int. +** CHANGE here if Lua cannot automatically detect the number of bits of +** your machine. Probably you do not need to change this. +*/ +/* avoid overflows in comparison */ +#if INT_MAX-20 < 32760 +#define LUAI_BITSINT 16 +#elif INT_MAX > 2147483640L +/* int has at least 32 bits */ +#define LUAI_BITSINT 32 +#else +#error "you must define LUA_BITSINT with number of bits in an integer" +#endif + + +/* +@@ LUAI_UINT32 is an unsigned integer with at least 32 bits. +@@ LUAI_INT32 is an signed integer with at least 32 bits. +@@ LUAI_UMEM is an unsigned integer big enough to count the total +@* memory used by Lua. +@@ LUAI_MEM is a signed integer big enough to count the total memory +@* used by Lua. +** CHANGE here if for some weird reason the default definitions are not +** good enough for your machine. (The definitions in the 'else' +** part always works, but may waste space on machines with 64-bit +** longs.) Probably you do not need to change this. +*/ +#if LUAI_BITSINT >= 32 +#define LUAI_UINT32 unsigned int +#define LUAI_INT32 int +#define LUAI_MAXINT32 INT_MAX +#define LUAI_UMEM size_t +#define LUAI_MEM ptrdiff_t +#else +/* 16-bit ints */ +#define LUAI_UINT32 unsigned long +#define LUAI_INT32 long +#define LUAI_MAXINT32 LONG_MAX +#define LUAI_UMEM unsigned long +#define LUAI_MEM long +#endif + + +/* +@@ LUAI_MAXCALLS limits the number of nested calls. +** CHANGE it if you need really deep recursive calls. This limit is +** arbitrary; its only purpose is to stop infinite recursion before +** exhausting memory. +*/ +#define LUAI_MAXCALLS 20000 + + +/* +@@ LUAI_MAXCSTACK limits the number of Lua stack slots that a C function +@* can use. +** CHANGE it if you need lots of (Lua) stack space for your C +** functions. This limit is arbitrary; its only purpose is to stop C +** functions to consume unlimited stack space. (must be smaller than +** -LUA_REGISTRYINDEX) +*/ +#define LUAI_MAXCSTACK 8000 + + +/* +** {================================================================== +** CHANGE (to smaller values) the following definitions if your system +** has a small C stack. (Or you may want to change them to larger +** values if your system has a large C stack and these limits are +** too rigid for you.) Some of these constants control the size of +** stack-allocated arrays used by the compiler or the interpreter, while +** others limit the maximum number of recursive calls that the compiler +** or the interpreter can perform. Values too large may cause a C stack +** overflow for some forms of deep constructs. +** =================================================================== +*/ + + +/* +@@ LUAI_MAXCCALLS is the maximum depth for nested C calls (short) and +@* syntactical nested non-terminals in a program. +*/ +#define LUAI_MAXCCALLS 200 + + +/* +@@ LUAI_MAXVARS is the maximum number of local variables per function +@* (must be smaller than 250). +*/ +#define LUAI_MAXVARS 200 + + +/* +@@ LUAI_MAXUPVALUES is the maximum number of upvalues per function +@* (must be smaller than 250). +*/ +#define LUAI_MAXUPVALUES 60 + + +/* +@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. +*/ +#define LUAL_BUFFERSIZE BUFSIZ + +/* }================================================================== */ + + + + +/* +** {================================================================== +@@ LUA_NUMBER is the type of numbers in Lua. +** CHANGE the following definitions only if you want to build Lua +** with a number type different from double. You may also need to +** change lua_number2int & lua_number2integer. +** =================================================================== +*/ + +#define LUA_NUMBER_DOUBLE +#define LUA_NUMBER double + +/* +@@ LUAI_UACNUMBER is the result of an 'usual argument conversion' +@* over a number. +*/ +#define LUAI_UACNUMBER double + + +/* +@@ LUA_NUMBER_SCAN is the format for reading numbers. +@@ LUA_NUMBER_FMT is the format for writing numbers. +@@ lua_number2str converts a number to a string. +@@ LUAI_MAXNUMBER2STR is maximum size of previous conversion. +@@ lua_str2number converts a string to a number. +*/ +#define LUA_NUMBER_SCAN "%lf" +#define LUA_NUMBER_FMT "%.14g" +#define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) +#define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */ +#define lua_str2number(s,p) strtod((s), (p)) + + +/* +@@ The luai_num* macros define the primitive operations over numbers. +*/ +#if defined(LUA_CORE) +#include +#define luai_numadd(a,b) ((a)+(b)) +#define luai_numsub(a,b) ((a)-(b)) +#define luai_nummul(a,b) ((a)*(b)) +#define luai_numdiv(a,b) ((a)/(b)) +#define luai_nummod(a,b) ((a) - floor((a)/(b))*(b)) +#define luai_numpow(a,b) (pow(a,b)) +#define luai_numunm(a) (-(a)) +#define luai_numeq(a,b) ((a)==(b)) +#define luai_numlt(a,b) ((a)<(b)) +#define luai_numle(a,b) ((a)<=(b)) +#define luai_numisnan(a) (!luai_numeq((a), (a))) +#endif + + +/* +@@ lua_number2int is a macro to convert lua_Number to int. +@@ lua_number2integer is a macro to convert lua_Number to lua_Integer. +** CHANGE them if you know a faster way to convert a lua_Number to +** int (with any rounding method and without throwing errors) in your +** system. In Pentium machines, a naive typecast from double to int +** in C is extremely slow, so any alternative is worth trying. +*/ + +/* On a Pentium, resort to a trick */ +#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) && !defined(__SSE2__) && \ + (defined(__i386) || defined (_M_IX86) || defined(__i386__)) + +/* On a Microsoft compiler, use assembler */ +#if defined(_MSC_VER) + +#define lua_number2int(i,d) __asm fld d __asm fistp i +#define lua_number2integer(i,n) lua_number2int(i, n) + +/* the next trick should work on any Pentium, but sometimes clashes + with a DirectX idiosyncrasy */ +#else + +union luai_Cast { double l_d; long l_l; }; +#define lua_number2int(i,d) \ + { volatile union luai_Cast u; u.l_d = (d) + 6755399441055744.0; (i) = u.l_l; } +#define lua_number2integer(i,n) lua_number2int(i, n) + +#endif + + +/* this option always works, but may be slow */ +#else +#define lua_number2int(i,d) ((i)=(int)(d)) +#define lua_number2integer(i,d) ((i)=(lua_Integer)(d)) + +#endif + + +/* +@@ LUA_TVALUE_ALIGN specifies extra alignment constraints for the +@@ tagged value structure to get better lua_Number alignment. +** CHANGE it to an empty define if you want to save some space +** at the cost of execution time. Note that this is only needed +** for the x86 ABI on most POSIX systems, but not on Windows and +** not for most other CPUs. If you change it then you need to follow +** the instructions in ljit_x86.dash, too (look for TVALUE_SIZE). +*/ + +#if defined(LUA_NUMBER_DOUBLE) && defined(__GNUC__) && \ + (defined(__i386) || defined(__i386__)) && !defined(_WIN32) +#define LUA_TVALUE_ALIGN __attribute__ ((aligned(8))) +#else +#define LUA_TVALUE_ALIGN +#endif + +/* }================================================================== */ + + +/* +@@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment. +** CHANGE it if your system requires alignments larger than double. (For +** instance, if your system supports long doubles and they must be +** aligned in 16-byte boundaries, then you should add long double in the +** union.) Probably you do not need to change this. +*/ +#define LUAI_USER_ALIGNMENT_T union { double u; void *s; long l; } + + +/* +@@ LUAI_THROW/LUAI_TRY define how Lua does exception handling. +** CHANGE them if you prefer to use longjmp/setjmp even with C++ +** or if want/don't to use _longjmp/_setjmp instead of regular +** longjmp/setjmp. By default, Lua handles errors with exceptions when +** compiling as C++ code, with _longjmp/_setjmp when asked to use them, +** and with longjmp/setjmp otherwise. +*/ +#if defined(__cplusplus) +/* C++ exceptions */ +#define LUAI_THROW(L,c) throw(c) +#define LUAI_TRY(L,c,a) try { a } catch(...) \ + { if ((c)->status == 0) (c)->status = -1; } +#define luai_jmpbuf int /* dummy variable */ + +#elif defined(LUA_USE_ULONGJMP) +/* in Unix, try _longjmp/_setjmp (more efficient) */ +#define LUAI_THROW(L,c) _longjmp((c)->b, 1) +#define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } +#define luai_jmpbuf jmp_buf + +#else +/* default handling with long jumps */ +#define LUAI_THROW(L,c) longjmp((c)->b, 1) +#define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } +#define luai_jmpbuf jmp_buf + +#endif + + +/* +@@ LUA_MAXCAPTURES is the maximum number of captures that a pattern +@* can do during pattern-matching. +** CHANGE it if you need more captures. This limit is arbitrary. +*/ +#define LUA_MAXCAPTURES 32 + + +/* +@@ lua_tmpnam is the function that the OS library uses to create a +@* temporary name. +@@ LUA_TMPNAMBUFSIZE is the maximum size of a name created by lua_tmpnam. +** CHANGE them if you have an alternative to tmpnam (which is considered +** insecure) or if you want the original tmpnam anyway. By default, Lua +** uses tmpnam except when POSIX is available, where it uses mkstemp. +*/ +#if defined(loslib_c) || defined(luaall_c) + +#if defined(LUA_USE_MKSTEMP) +#include +#define LUA_TMPNAMBUFSIZE 32 +#define lua_tmpnam(b,e) { \ + strcpy(b, "/tmp/lua_XXXXXX"); \ + e = mkstemp(b); \ + if (e != -1) close(e); \ + e = (e == -1); } + +#else +#define LUA_TMPNAMBUFSIZE L_tmpnam +#define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } +#endif + +#endif + + +/* +@@ lua_popen spawns a new process connected to the current one through +@* the file streams. +** CHANGE it if you have a way to implement it in your system. +*/ +#if defined(LUA_USE_POPEN) + +#define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) +#define lua_pclose(L,file) ((void)L, (pclose(file) != -1)) + +#elif defined(LUA_WIN) + +#define lua_popen(L,c,m) ((void)L, _popen(c,m)) +#define lua_pclose(L,file) ((void)L, (_pclose(file) != -1)) + +#else + +#define lua_popen(L,c,m) ((void)((void)c, m), \ + luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) +#define lua_pclose(L,file) ((void)((void)L, file), 0) + +#endif + +/* +@@ LUA_DL_* define which dynamic-library system Lua should use. +** CHANGE here if Lua has problems choosing the appropriate +** dynamic-library system for your platform (either Windows' DLL, Mac's +** dyld, or Unix's dlopen). If your system is some kind of Unix, there +** is a good chance that it has dlopen, so LUA_DL_DLOPEN will work for +** it. To use dlopen you also need to adapt the src/Makefile (probably +** adding -ldl to the linker options), so Lua does not select it +** automatically. (When you change the makefile to add -ldl, you must +** also add -DLUA_USE_DLOPEN.) +** If you do not want any kind of dynamic library, undefine all these +** options. +** By default, _WIN32 gets LUA_DL_DLL and MAC OS X gets LUA_DL_DYLD. +*/ +#if defined(LUA_USE_DLOPEN) +#define LUA_DL_DLOPEN +#endif + +#if defined(LUA_WIN) +#define LUA_DL_DLL +#endif + + +/* +@@ LUAI_EXTRASPACE allows you to add user-specific data in a lua_State +@* (the data goes just *before* the lua_State pointer). +** CHANGE (define) this if you really need that. This value must be +** a multiple of the maximum alignment required for your machine. +*/ +#define LUAI_EXTRASPACE 0 + + +/* +@@ luai_userstate* allow user-specific actions on threads. +** CHANGE them if you defined LUAI_EXTRASPACE and need to do something +** extra when a thread is created/deleted/resumed/yielded. +*/ +#define luai_userstateopen(L) ((void)L) +#define luai_userstateclose(L) ((void)L) +#define luai_userstatethread(L,L1) ((void)L) +#define luai_userstatefree(L) ((void)L) +#define luai_userstateresume(L,n) ((void)L) +#define luai_userstateyield(L,n) ((void)L) + + +/* +@@ LUA_INTFRMLEN is the length modifier for integer conversions +@* in 'string.format'. +@@ LUA_INTFRM_T is the integer type correspoding to the previous length +@* modifier. +** CHANGE them if your system supports long long or does not support long. +*/ + +#if defined(LUA_USELONGLONG) + +#define LUA_INTFRMLEN "ll" +#define LUA_INTFRM_T long long + +#else + +#define LUA_INTFRMLEN "l" +#define LUA_INTFRM_T long + +#endif + + + +/* =================================================================== */ + +/* +** Local configuration. You can use this space to add your redefinitions +** without modifying the main part of the file. +*/ + + + +#endif + diff --git a/src/3rd party/LuaJIT-1.1.8/src/luajit.h b/src/3rd party/LuaJIT-1.1.8/src/luajit.h new file mode 100644 index 00000000000..2507ad65363 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/luajit.h @@ -0,0 +1,68 @@ +/* +** Copyright (C) 2005-2012 Mike Pall. All rights reserved. +** +** Permission is hereby granted, free of charge, to any person obtaining +** a copy of this software and associated documentation files (the +** "Software"), to deal in the Software without restriction, including +** without limitation the rights to use, copy, modify, merge, publish, +** distribute, sublicense, and/or sell copies of the Software, and to +** permit persons to whom the Software is furnished to do so, subject to +** the following conditions: +** +** The above copyright notice and this permission notice shall be +** included in all copies or substantial portions of the Software. +** +** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +** +** [ MIT license: http://www.opensource.org/licenses/mit-license.php ] +*/ + +/* LuaJIT -- a Just-In-Time Compiler for Lua. http://luajit.org/ */ + +/* LuaJIT public C API. */ +#ifndef luajit_h +#define luajit_h + +#include "lua.h" + + +#define LUAJIT_VERSION "LuaJIT 1.1.8" +#define LUAJIT_VERSION_NUM 10108 /* Version 1.1.8 = 01.01.08. */ +#define LUAJIT_VERSION_SYM luaJIT_version_1_1_8 +#define LUAJIT_COPYRIGHT "Copyright (C) 2005-2012 Mike Pall" +#define LUAJIT_URL "http://luajit.org/" + +/* Modes for luaJIT_setmode. */ +#define LUAJIT_MODE_MASK 0x00ff + +enum { + LUAJIT_MODE_ENGINE, /* Set mode for whole JIT engine. */ + LUAJIT_MODE_DEBUG, /* Set debug mode (idx = level). */ + + LUAJIT_MODE_FUNC, /* Change mode for a function. */ + LUAJIT_MODE_ALLFUNC, /* Recurse into subroutine protos. */ + LUAJIT_MODE_ALLSUBFUNC, /* Change only the subroutines. */ + LUAJIT_MODE_MAX +}; + +/* Flags or'ed in to the mode. */ +#define LUAJIT_MODE_OFF 0x0000 /* Disable JIT compilation. */ +#define LUAJIT_MODE_ON 0x0100 /* (Re-)enable JIT compilation. */ + + +/* Compile a Lua function. Pass arguments as hints. */ +LUA_API int luaJIT_compile(lua_State *L, int nargs); + +/* Set the JIT mode for the whole engine or a function (idx = 0: self). */ +LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode); + +/* Enforce (dynamic) linker error for version mismatches. Call from main. */ +LUA_API void LUAJIT_VERSION_SYM(void); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lualib.h b/src/3rd party/LuaJIT-1.1.8/src/lualib.h new file mode 100644 index 00000000000..c4567e9d370 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lualib.h @@ -0,0 +1,56 @@ +/* +** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $ +** Lua standard libraries +** See Copyright Notice in lua.h +*/ + + +#ifndef lualib_h +#define lualib_h + +#include "lua.h" + + +/* Key to file-handle type */ +#define LUA_FILEHANDLE "FILE*" + + +#define LUA_COLIBNAME "coroutine" +LUALIB_API int (luaopen_base) (lua_State *L); + +#define LUA_TABLIBNAME "table" +LUALIB_API int (luaopen_table) (lua_State *L); + +#define LUA_IOLIBNAME "io" +LUALIB_API int (luaopen_io) (lua_State *L); + +#define LUA_OSLIBNAME "os" +LUALIB_API int (luaopen_os) (lua_State *L); + +#define LUA_STRLIBNAME "string" +LUALIB_API int (luaopen_string) (lua_State *L); + +#define LUA_MATHLIBNAME "math" +LUALIB_API int (luaopen_math) (lua_State *L); + +#define LUA_DBLIBNAME "debug" +LUALIB_API int (luaopen_debug) (lua_State *L); + +#define LUA_LOADLIBNAME "package" +LUALIB_API int (luaopen_package) (lua_State *L); + +#define LUA_JITLIBNAME "jit" +LUALIB_API int (luaopen_jit) (lua_State *L); + + +/* open all previous libraries */ +LUALIB_API void (luaL_openlibs) (lua_State *L); + + + +#ifndef lua_assert +#define lua_assert(x) ((void)0) +#endif + + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lundump.c b/src/3rd party/LuaJIT-1.1.8/src/lundump.c new file mode 100644 index 00000000000..8010a45795b --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lundump.c @@ -0,0 +1,227 @@ +/* +** $Id: lundump.c,v 2.7.1.4 2008/04/04 19:51:41 roberto Exp $ +** load precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#include + +#define lundump_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lmem.h" +#include "lobject.h" +#include "lstring.h" +#include "lundump.h" +#include "lzio.h" + +typedef struct { + lua_State* L; + ZIO* Z; + Mbuffer* b; + const char* name; +} LoadState; + +#ifdef LUAC_TRUST_BINARIES +#define IF(c,s) +#define error(S,s) +#else +#define IF(c,s) if (c) error(S,s) + +static void error(LoadState* S, const char* why) +{ + luaO_pushfstring(S->L,"%s: %s in precompiled chunk",S->name,why); + luaD_throw(S->L,LUA_ERRSYNTAX); +} +#endif + +#define LoadMem(S,b,n,size) LoadBlock(S,b,(n)*(size)) +#define LoadByte(S) (lu_byte)LoadChar(S) +#define LoadVar(S,x) LoadMem(S,&x,1,sizeof(x)) +#define LoadVector(S,b,n,size) LoadMem(S,b,n,size) + +static void LoadBlock(LoadState* S, void* b, size_t size) +{ + size_t r=luaZ_read(S->Z,b,size); + IF (r!=0, "unexpected end"); +} + +static int LoadChar(LoadState* S) +{ + char x; + LoadVar(S,x); + return x; +} + +static int LoadInt(LoadState* S) +{ + int x; + LoadVar(S,x); + IF (x<0, "bad integer"); + return x; +} + +static lua_Number LoadNumber(LoadState* S) +{ + lua_Number x; + LoadVar(S,x); + return x; +} + +static TString* LoadString(LoadState* S) +{ + size_t size; + LoadVar(S,size); + if (size==0) + return NULL; + else + { + char* s=luaZ_openspace(S->L,S->b,size); + LoadBlock(S,s,size); + return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ + } +} + +static void LoadCode(LoadState* S, Proto* f) +{ + int n=LoadInt(S); + f->code=luaM_newvector(S->L,n,Instruction); + f->sizecode=n; + LoadVector(S,f->code,n,sizeof(Instruction)); +} + +static Proto* LoadFunction(LoadState* S, TString* p); + +static void LoadConstants(LoadState* S, Proto* f) +{ + int i,n; + n=LoadInt(S); + f->k=luaM_newvector(S->L,n,TValue); + f->sizek=n; + for (i=0; ik[i]); + for (i=0; ik[i]; + int t=LoadChar(S); + switch (t) + { + case LUA_TNIL: + setnilvalue(o); + break; + case LUA_TBOOLEAN: + setbvalue(o,LoadChar(S)!=0); + break; + case LUA_TNUMBER: + setnvalue(o,LoadNumber(S)); + break; + case LUA_TSTRING: + setsvalue2n(S->L,o,LoadString(S)); + break; + default: + error(S,"bad constant"); + break; + } + } + n=LoadInt(S); + f->p=luaM_newvector(S->L,n,Proto*); + f->sizep=n; + for (i=0; ip[i]=NULL; + for (i=0; ip[i]=LoadFunction(S,f->source); +} + +static void LoadDebug(LoadState* S, Proto* f) +{ + int i,n; + n=LoadInt(S); + f->lineinfo=luaM_newvector(S->L,n,int); + f->sizelineinfo=n; + LoadVector(S,f->lineinfo,n,sizeof(int)); + n=LoadInt(S); + f->locvars=luaM_newvector(S->L,n,LocVar); + f->sizelocvars=n; + for (i=0; ilocvars[i].varname=NULL; + for (i=0; ilocvars[i].varname=LoadString(S); + f->locvars[i].startpc=LoadInt(S); + f->locvars[i].endpc=LoadInt(S); + } + n=LoadInt(S); + f->upvalues=luaM_newvector(S->L,n,TString*); + f->sizeupvalues=n; + for (i=0; iupvalues[i]=NULL; + for (i=0; iupvalues[i]=LoadString(S); +} + +static Proto* LoadFunction(LoadState* S, TString* p) +{ + Proto* f; + if (++S->L->nCcalls > LUAI_MAXCCALLS) error(S,"code too deep"); + f=luaF_newproto(S->L); + setptvalue2s(S->L,S->L->top,f); incr_top(S->L); + f->source=LoadString(S); if (f->source==NULL) f->source=p; + f->linedefined=LoadInt(S); + f->lastlinedefined=LoadInt(S); + f->nups=LoadByte(S); + f->numparams=LoadByte(S); + f->is_vararg=LoadByte(S); + f->maxstacksize=LoadByte(S); + LoadCode(S,f); + LoadConstants(S,f); + LoadDebug(S,f); + IF (!luaG_checkcode(f), "bad code"); + S->L->top--; + S->L->nCcalls--; + return f; +} + +static void LoadHeader(LoadState* S) +{ + char h[LUAC_HEADERSIZE]; + char s[LUAC_HEADERSIZE]; + luaU_header(h); + LoadBlock(S,s,LUAC_HEADERSIZE); + IF (memcmp(h,s,LUAC_HEADERSIZE)!=0, "bad header"); +} + +/* +** load precompiled chunk +*/ +Proto* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name) +{ + LoadState S; + if (*name=='@' || *name=='=') + S.name=name+1; + else if (*name==LUA_SIGNATURE[0]) + S.name="binary string"; + else + S.name=name; + S.L=L; + S.Z=Z; + S.b=buff; + LoadHeader(&S); + return LoadFunction(&S,luaS_newliteral(L,"=?")); +} + +/* +* make header +*/ +void luaU_header (char* h) +{ + int x=1; + memcpy(h,LUA_SIGNATURE,sizeof(LUA_SIGNATURE)-1); + h+=sizeof(LUA_SIGNATURE)-1; + *h++=(char)LUAC_VERSION; + *h++=(char)LUAC_FORMAT; + *h++=(char)*(char*)&x; /* endianness */ + *h++=(char)sizeof(int); + *h++=(char)sizeof(size_t); + *h++=(char)sizeof(Instruction); + *h++=(char)sizeof(lua_Number); + *h++=(char)(((lua_Number)0.5)==0); /* is lua_Number integral? */ +} diff --git a/src/3rd party/LuaJIT-1.1.8/src/lundump.h b/src/3rd party/LuaJIT-1.1.8/src/lundump.h new file mode 100644 index 00000000000..c80189dbffc --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lundump.h @@ -0,0 +1,36 @@ +/* +** $Id: lundump.h,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $ +** load precompiled Lua chunks +** See Copyright Notice in lua.h +*/ + +#ifndef lundump_h +#define lundump_h + +#include "lobject.h" +#include "lzio.h" + +/* load one chunk; from lundump.c */ +LUAI_FUNC Proto* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name); + +/* make header; from lundump.c */ +LUAI_FUNC void luaU_header (char* h); + +/* dump one chunk; from ldump.c */ +LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip); + +#ifdef luac_c +/* print one chunk; from print.c */ +LUAI_FUNC void luaU_print (const Proto* f, int full); +#endif + +/* for header of binary files -- this is Lua 5.1 */ +#define LUAC_VERSION 0x51 + +/* for header of binary files -- this is the official format */ +#define LUAC_FORMAT 0 + +/* size of header of binary files */ +#define LUAC_HEADERSIZE 12 + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lvm.c b/src/3rd party/LuaJIT-1.1.8/src/lvm.c new file mode 100644 index 00000000000..1bc0cd276d0 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lvm.c @@ -0,0 +1,767 @@ +/* +** $Id: lvm.c,v 2.63.1.5 2011/08/17 20:43:11 roberto Exp $ +** Lua virtual machine +** See Copyright Notice in lua.h +*/ + + +#include +#include +#include + +#define lvm_c +#define LUA_CORE + +#include "lua.h" + +#include "ldebug.h" +#include "ldo.h" +#include "lfunc.h" +#include "lgc.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lstate.h" +#include "lstring.h" +#include "ltable.h" +#include "ltm.h" +#include "lvm.h" + + + +/* limit for table tag-method chains (to avoid loops) */ +#define MAXTAGLOOP 100 + + +const TValue *luaV_tonumber (const TValue *obj, TValue *n) { + lua_Number num; + if (ttisnumber(obj)) return obj; + if (ttisstring(obj) && luaO_str2d(svalue(obj), &num)) { + setnvalue(n, num); + return n; + } + else + return NULL; +} + + +int luaV_tostring (lua_State *L, StkId obj) { + if (!ttisnumber(obj)) + return 0; + else { + char s[LUAI_MAXNUMBER2STR]; + lua_Number n = nvalue(obj); + lua_number2str(s, n); + setsvalue2s(L, obj, luaS_new(L, s)); + return 1; + } +} + + +static void traceexec (lua_State *L, const Instruction *pc) { + lu_byte mask = L->hookmask; + const Instruction *oldpc = L->savedpc; + L->savedpc = pc; + if ((mask & LUA_MASKCOUNT) && L->hookcount == 0) { + resethookcount(L); + luaD_callhook(L, LUA_HOOKCOUNT, -1); + } + if (mask & LUA_MASKLINE) { + Proto *p = ci_func(L->ci)->l.p; + int npc = pcRel(pc, p); + int newline = getline(p, npc); + /* call linehook when enter a new function, when jump back (loop), + or when enter a new line */ + if (npc == 0 || pc <= oldpc || newline != getline(p, pcRel(oldpc, p))) + luaD_callhook(L, LUA_HOOKLINE, newline); + } +} + + +static void callTMres (lua_State *L, StkId res, const TValue *f, + const TValue *p1, const TValue *p2) { + ptrdiff_t result = savestack(L, res); + setobj2s(L, L->top, f); /* push function */ + setobj2s(L, L->top+1, p1); /* 1st argument */ + setobj2s(L, L->top+2, p2); /* 2nd argument */ + luaD_checkstack(L, 3); + L->top += 3; + luaD_call(L, L->top - 3, 1); + res = restorestack(L, result); + L->top--; + setobjs2s(L, res, L->top); +} + + + +static void callTM (lua_State *L, const TValue *f, const TValue *p1, + const TValue *p2, const TValue *p3) { + setobj2s(L, L->top, f); /* push function */ + setobj2s(L, L->top+1, p1); /* 1st argument */ + setobj2s(L, L->top+2, p2); /* 2nd argument */ + setobj2s(L, L->top+3, p3); /* 3th argument */ + luaD_checkstack(L, 4); + L->top += 4; + luaD_call(L, L->top - 4, 0); +} + + +void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) { + int loop; + for (loop = 0; loop < MAXTAGLOOP; loop++) { + const TValue *tm; + if (ttistable(t)) { /* `t' is a table? */ + Table *h = hvalue(t); + const TValue *res = luaH_get(h, key); /* do a primitive get */ + if (!ttisnil(res) || /* result is no nil? */ + (tm = fasttm(L, h->metatable, TM_INDEX)) == NULL) { /* or no TM? */ + setobj2s(L, val, res); + return; + } + /* else will try the tag method */ + } + else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_INDEX))) + luaG_typeerror(L, t, "index"); + if (ttisfunction(tm)) { + callTMres(L, val, tm, t, key); + return; + } + t = tm; /* else repeat with `tm' */ + } + luaG_runerror(L, "loop in gettable"); +} + + +void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) { + int loop; + TValue temp; + for (loop = 0; loop < MAXTAGLOOP; loop++) { + const TValue *tm; + if (ttistable(t)) { /* `t' is a table? */ + Table *h = hvalue(t); + TValue *oldval = luaH_set(L, h, key); /* do a primitive set */ + if (!ttisnil(oldval) || /* result is no nil? */ + (tm = fasttm(L, h->metatable, TM_NEWINDEX)) == NULL) { /* or no TM? */ + setobj2t(L, oldval, val); + h->flags = 0; + luaC_barriert(L, h, val); + return; + } + /* else will try the tag method */ + } + else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_NEWINDEX))) + luaG_typeerror(L, t, "index"); + if (ttisfunction(tm)) { + callTM(L, tm, t, key, val); + return; + } + /* else repeat with `tm' */ + setobj(L, &temp, tm); /* avoid pointing inside table (may rehash) */ + t = &temp; + } + luaG_runerror(L, "loop in settable"); +} + + +static int call_binTM (lua_State *L, const TValue *p1, const TValue *p2, + StkId res, TMS event) { + const TValue *tm = luaT_gettmbyobj(L, p1, event); /* try first operand */ + if (ttisnil(tm)) + tm = luaT_gettmbyobj(L, p2, event); /* try second operand */ + if (ttisnil(tm)) return 0; + callTMres(L, res, tm, p1, p2); + return 1; +} + + +static const TValue *get_compTM (lua_State *L, Table *mt1, Table *mt2, + TMS event) { + const TValue *tm1 = fasttm(L, mt1, event); + const TValue *tm2; + if (tm1 == NULL) return NULL; /* no metamethod */ + if (mt1 == mt2) return tm1; /* same metatables => same metamethods */ + tm2 = fasttm(L, mt2, event); + if (tm2 == NULL) return NULL; /* no metamethod */ + if (luaO_rawequalObj(tm1, tm2)) /* same metamethods? */ + return tm1; + return NULL; +} + + +static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2, + TMS event) { + const TValue *tm1 = luaT_gettmbyobj(L, p1, event); + const TValue *tm2; + if (ttisnil(tm1)) return -1; /* no metamethod? */ + tm2 = luaT_gettmbyobj(L, p2, event); + if (!luaO_rawequalObj(tm1, tm2)) /* different metamethods? */ + return -1; + callTMres(L, L->top, tm1, p1, p2); + return !l_isfalse(L->top); +} + + +static int l_strcmp (const TString *ls, const TString *rs) { + const char *l = getstr(ls); + size_t ll = ls->tsv.len; + const char *r = getstr(rs); + size_t lr = rs->tsv.len; + for (;;) { + int temp = strcoll(l, r); + if (temp != 0) return temp; + else { /* strings are equal up to a `\0' */ + size_t len = strlen(l); /* index of first `\0' in both strings */ + if (len == lr) /* r is finished? */ + return (len == ll) ? 0 : 1; + else if (len == ll) /* l is finished? */ + return -1; /* l is smaller than r (because r is not finished) */ + /* both strings longer than `len'; go on comparing (after the `\0') */ + len++; + l += len; ll -= len; r += len; lr -= len; + } + } +} + + +int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) { + int res; + if (ttype(l) != ttype(r)) + return luaG_ordererror(L, l, r); + else if (ttisnumber(l)) + return luai_numlt(nvalue(l), nvalue(r)); + else if (ttisstring(l)) + return l_strcmp(rawtsvalue(l), rawtsvalue(r)) < 0; + else if ((res = call_orderTM(L, l, r, TM_LT)) != -1) + return res; + return luaG_ordererror(L, l, r); +} + + +int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) { + int res; + if (ttype(l) != ttype(r)) + return luaG_ordererror(L, l, r); + else if (ttisnumber(l)) + return luai_numle(nvalue(l), nvalue(r)); + else if (ttisstring(l)) + return l_strcmp(rawtsvalue(l), rawtsvalue(r)) <= 0; + else if ((res = call_orderTM(L, l, r, TM_LE)) != -1) /* first try `le' */ + return res; + else if ((res = call_orderTM(L, r, l, TM_LT)) != -1) /* else try `lt' */ + return !res; + return luaG_ordererror(L, l, r); +} + + +int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2) { + const TValue *tm; + lua_assert(ttype(t1) == ttype(t2)); + switch (ttype(t1)) { + case LUA_TNIL: return 1; + case LUA_TNUMBER: return luai_numeq(nvalue(t1), nvalue(t2)); + case LUA_TBOOLEAN: return bvalue(t1) == bvalue(t2); /* true must be 1 !! */ + case LUA_TLIGHTUSERDATA: return pvalue(t1) == pvalue(t2); + case LUA_TUSERDATA: { + if (uvalue(t1) == uvalue(t2)) return 1; + tm = get_compTM(L, uvalue(t1)->metatable, uvalue(t2)->metatable, + TM_EQ); + break; /* will try TM */ + } + case LUA_TTABLE: { + if (hvalue(t1) == hvalue(t2)) return 1; + tm = get_compTM(L, hvalue(t1)->metatable, hvalue(t2)->metatable, TM_EQ); + break; /* will try TM */ + } + default: return gcvalue(t1) == gcvalue(t2); + } + if (tm == NULL) return 0; /* no TM? */ + callTMres(L, L->top, tm, t1, t2); /* call TM */ + return !l_isfalse(L->top); +} + + +void luaV_concat (lua_State *L, int total, int last) { + do { + StkId top = L->base + last + 1; + int n = 2; /* number of elements handled in this pass (at least 2) */ + if (!(ttisstring(top-2) || ttisnumber(top-2)) || !tostring(L, top-1)) { + if (!call_binTM(L, top-2, top-1, top-2, TM_CONCAT)) + luaG_concaterror(L, top-2, top-1); + } else if (tsvalue(top-1)->len == 0) /* second op is empty? */ + (void)tostring(L, top - 2); /* result is first op (as string) */ + else { + /* at least two string values; get as many as possible */ + size_t tl = tsvalue(top-1)->len; + char *buffer; + int i; + /* collect total length */ + for (n = 1; n < total && tostring(L, top-n-1); n++) { + size_t l = tsvalue(top-n-1)->len; + if (l >= MAX_SIZET - tl) luaG_runerror(L, "string length overflow"); + tl += l; + } + buffer = luaZ_openspace(L, &G(L)->buff, tl); + tl = 0; + for (i=n; i>0; i--) { /* concat all strings */ + size_t l = tsvalue(top-i)->len; + memcpy(buffer+tl, svalue(top-i), l); + tl += l; + } + setsvalue2s(L, top-n, luaS_newlstr(L, buffer, tl)); + } + total -= n-1; /* got `n' strings to create 1 new */ + last -= n-1; + } while (total > 1); /* repeat until only 1 result left */ +} + + +void luaV_arith (lua_State *L, StkId ra, const TValue *rb, + const TValue *rc, TMS op) { + TValue tempb, tempc; + const TValue *b, *c; + if ((b = luaV_tonumber(rb, &tempb)) != NULL && + (c = luaV_tonumber(rc, &tempc)) != NULL) { + lua_Number nb = nvalue(b), nc = nvalue(c); + switch (op) { + case TM_ADD: setnvalue(ra, luai_numadd(nb, nc)); break; + case TM_SUB: setnvalue(ra, luai_numsub(nb, nc)); break; + case TM_MUL: setnvalue(ra, luai_nummul(nb, nc)); break; + case TM_DIV: setnvalue(ra, luai_numdiv(nb, nc)); break; + case TM_MOD: setnvalue(ra, luai_nummod(nb, nc)); break; + case TM_POW: setnvalue(ra, luai_numpow(nb, nc)); break; + case TM_UNM: setnvalue(ra, luai_numunm(nb)); break; + default: lua_assert(0); break; + } + } + else if (!call_binTM(L, rb, rc, ra, op)) + luaG_aritherror(L, rb, rc); +} + + + +/* +** some macros for common tasks in `luaV_execute' +*/ + +#define runtime_check(L, c) { if (!(c)) break; } + +#define RA(i) (base+GETARG_A(i)) +/* to be used after possible stack reallocation */ +#define RB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i)) +#define RC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i)) +#define RKB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, \ + ISK(GETARG_B(i)) ? k+INDEXK(GETARG_B(i)) : base+GETARG_B(i)) +#define RKC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgK, \ + ISK(GETARG_C(i)) ? k+INDEXK(GETARG_C(i)) : base+GETARG_C(i)) +#define KBx(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, k+GETARG_Bx(i)) + + +#define dojump(L,pc,i) {(pc) += (i); luai_threadyield(L);} + + +#define Protect(x) { L->savedpc = pc; {x;}; base = L->base; } + + +#define arith_op(op,tm) { \ + TValue *rb = RKB(i); \ + TValue *rc = RKC(i); \ + if (ttisnumber(rb) && ttisnumber(rc)) { \ + lua_Number nb = nvalue(rb), nc = nvalue(rc); \ + setnvalue(ra, op(nb, nc)); \ + } \ + else \ + Protect(luaV_arith(L, ra, rb, rc, tm)); \ + } + + + +void luaV_execute (lua_State *L, int nexeccalls) { + LClosure *cl; + StkId base; + TValue *k; + const Instruction *pc; + reentry: /* entry point */ + lua_assert(isLua(L->ci)); + pc = L->savedpc; + cl = &clvalue(L->ci->func)->l; + base = L->base; + k = cl->p->k; + /* main loop of interpreter */ + for (;;) { + const Instruction i = *pc++; + StkId ra; + if ((L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT)) && + (--L->hookcount == 0 || L->hookmask & LUA_MASKLINE)) { + traceexec(L, pc); + if (L->status == LUA_YIELD) { /* did hook yield? */ + L->savedpc = pc - 1; + return; + } + base = L->base; + } + /* warning!! several calls may realloc the stack and invalidate `ra' */ + ra = RA(i); + lua_assert(base == L->base && L->base == L->ci->base); + lua_assert(base <= L->top && L->top <= L->stack + L->stacksize); + lua_assert(L->top == L->ci->top || luaG_checkopenop(i)); + switch (GET_OPCODE(i)) { + case OP_MOVE: { + setobjs2s(L, ra, RB(i)); + continue; + } + case OP_LOADK: { + setobj2s(L, ra, KBx(i)); + continue; + } + case OP_LOADBOOL: { + setbvalue(ra, GETARG_B(i)); + if (GETARG_C(i)) pc++; /* skip next instruction (if C) */ + continue; + } + case OP_LOADNIL: { + TValue *rb = RB(i); + do { + setnilvalue(rb--); + } while (rb >= ra); + continue; + } + case OP_GETUPVAL: { + int b = GETARG_B(i); + setobj2s(L, ra, cl->upvals[b]->v); + continue; + } + case OP_GETGLOBAL: { + TValue g; + TValue *rb = KBx(i); + sethvalue(L, &g, cl->env); + lua_assert(ttisstring(rb)); + Protect(luaV_gettable(L, &g, rb, ra)); + continue; + } + case OP_GETTABLE: { + Protect(luaV_gettable(L, RB(i), RKC(i), ra)); + continue; + } + case OP_SETGLOBAL: { + TValue g; + sethvalue(L, &g, cl->env); + lua_assert(ttisstring(KBx(i))); + Protect(luaV_settable(L, &g, KBx(i), ra)); + continue; + } + case OP_SETUPVAL: { + UpVal *uv = cl->upvals[GETARG_B(i)]; + setobj(L, uv->v, ra); + luaC_barrier(L, uv, ra); + continue; + } + case OP_SETTABLE: { + Protect(luaV_settable(L, ra, RKB(i), RKC(i))); + continue; + } + case OP_NEWTABLE: { + int b = GETARG_B(i); + int c = GETARG_C(i); + sethvalue(L, ra, luaH_new(L, luaO_fb2int(b), luaO_fb2int(c))); + Protect(luaC_checkGC(L)); + continue; + } + case OP_SELF: { + StkId rb = RB(i); + setobjs2s(L, ra+1, rb); + Protect(luaV_gettable(L, rb, RKC(i), ra)); + continue; + } + case OP_ADD: { + arith_op(luai_numadd, TM_ADD); + continue; + } + case OP_SUB: { + arith_op(luai_numsub, TM_SUB); + continue; + } + case OP_MUL: { + arith_op(luai_nummul, TM_MUL); + continue; + } + case OP_DIV: { + arith_op(luai_numdiv, TM_DIV); + continue; + } + case OP_MOD: { + arith_op(luai_nummod, TM_MOD); + continue; + } + case OP_POW: { + arith_op(luai_numpow, TM_POW); + continue; + } + case OP_UNM: { + TValue *rb = RB(i); + if (ttisnumber(rb)) { + lua_Number nb = nvalue(rb); + setnvalue(ra, luai_numunm(nb)); + } + else { + Protect(luaV_arith(L, ra, rb, rb, TM_UNM)); + } + continue; + } + case OP_NOT: { + int res = l_isfalse(RB(i)); /* next assignment may change this value */ + setbvalue(ra, res); + continue; + } + case OP_LEN: { + const TValue *rb = RB(i); + switch (ttype(rb)) { + case LUA_TTABLE: { + setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); + break; + } + case LUA_TSTRING: { + setnvalue(ra, cast_num(tsvalue(rb)->len)); + break; + } + default: { /* try metamethod */ + Protect( + if (!call_binTM(L, rb, luaO_nilobject, ra, TM_LEN)) + luaG_typeerror(L, rb, "get length of"); + ) + } + } + continue; + } + case OP_CONCAT: { + int b = GETARG_B(i); + int c = GETARG_C(i); + Protect(luaV_concat(L, c-b+1, c); luaC_checkGC(L)); + setobjs2s(L, RA(i), base+b); + continue; + } + case OP_JMP: { + dojump(L, pc, GETARG_sBx(i)); + continue; + } + case OP_EQ: { + TValue *rb = RKB(i); + TValue *rc = RKC(i); + Protect( + if (equalobj(L, rb, rc) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_LT: { + Protect( + if (luaV_lessthan(L, RKB(i), RKC(i)) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_LE: { + Protect( + if (luaV_lessequal(L, RKB(i), RKC(i)) == GETARG_A(i)) + dojump(L, pc, GETARG_sBx(*pc)); + ) + pc++; + continue; + } + case OP_TEST: { + if (l_isfalse(ra) != GETARG_C(i)) + dojump(L, pc, GETARG_sBx(*pc)); + pc++; + continue; + } + case OP_TESTSET: { + TValue *rb = RB(i); + if (l_isfalse(rb) != GETARG_C(i)) { + setobjs2s(L, ra, rb); + dojump(L, pc, GETARG_sBx(*pc)); + } + pc++; + continue; + } + case OP_CALL: { + int b = GETARG_B(i); + int nresults = GETARG_C(i) - 1; + if (b != 0) L->top = ra+b; /* else previous instruction set top */ + L->savedpc = pc; + switch (luaD_precall(L, ra, nresults)) { + case PCRLUA: { + nexeccalls++; + goto reentry; /* restart luaV_execute over new Lua function */ + } + case PCRC: { + /* it was a C function (`precall' called it); adjust results */ + if (nresults >= 0) L->top = L->ci->top; + base = L->base; + continue; + } + default: { + return; /* yield */ + } + } + } + case OP_TAILCALL: { + int b = GETARG_B(i); + if (b != 0) L->top = ra+b; /* else previous instruction set top */ + L->savedpc = pc; + lua_assert(GETARG_C(i) - 1 == LUA_MULTRET); + switch (luaD_precall(L, ra, LUA_MULTRET)) { + case PCRLUA: { + /* tail call: put new frame in place of previous one */ + CallInfo *ci = L->ci - 1; /* previous frame */ + int aux; + StkId func = ci->func; + StkId pfunc = (ci+1)->func; /* previous function index */ + if (L->openupval) luaF_close(L, ci->base); + L->base = ci->base = ci->func + ((ci+1)->base - pfunc); + for (aux = 0; pfunc+aux < L->top; aux++) /* move frame down */ + setobjs2s(L, func+aux, pfunc+aux); + ci->top = L->top = func+aux; /* correct top */ + lua_assert(L->top == L->base + clvalue(func)->l.p->maxstacksize); + ci->savedpc = L->savedpc; + ci->tailcalls++; /* one more call lost */ + L->ci--; /* remove new frame */ + goto reentry; + } + case PCRC: { /* it was a C function (`precall' called it) */ + base = L->base; + continue; + } + default: { + return; /* yield */ + } + } + } + case OP_RETURN: { + int b = GETARG_B(i); + if (b != 0) L->top = ra+b-1; + if (L->openupval) luaF_close(L, base); + L->savedpc = pc; + b = luaD_poscall(L, ra); + if (--nexeccalls == 0) /* was previous function running `here'? */ + return; /* no: return */ + else { /* yes: continue its execution */ + if (b) L->top = L->ci->top; + lua_assert(isLua(L->ci)); + lua_assert(GET_OPCODE(*((L->ci)->savedpc - 1)) == OP_CALL); + goto reentry; + } + } + case OP_FORLOOP: { + lua_Number step = nvalue(ra+2); + lua_Number idx = luai_numadd(nvalue(ra), step); /* increment index */ + lua_Number limit = nvalue(ra+1); + if (luai_numlt(0, step) ? luai_numle(idx, limit) + : luai_numle(limit, idx)) { + dojump(L, pc, GETARG_sBx(i)); /* jump back */ + setnvalue(ra, idx); /* update internal index... */ + setnvalue(ra+3, idx); /* ...and external index */ + } + continue; + } + case OP_FORPREP: { + const TValue *init = ra; + const TValue *plimit = ra+1; + const TValue *pstep = ra+2; + L->savedpc = pc; /* next steps may throw errors */ + if (!tonumber(init, ra)) + luaG_runerror(L, LUA_QL("for") " initial value must be a number"); + else if (!tonumber(plimit, ra+1)) + luaG_runerror(L, LUA_QL("for") " limit must be a number"); + else if (!tonumber(pstep, ra+2)) + luaG_runerror(L, LUA_QL("for") " step must be a number"); + setnvalue(ra, luai_numsub(nvalue(ra), nvalue(pstep))); + dojump(L, pc, GETARG_sBx(i)); + continue; + } + case OP_TFORLOOP: { + StkId cb = ra + 3; /* call base */ + setobjs2s(L, cb+2, ra+2); + setobjs2s(L, cb+1, ra+1); + setobjs2s(L, cb, ra); + L->top = cb+3; /* func. + 2 args (state and index) */ + Protect(luaD_call(L, cb, GETARG_C(i))); + L->top = L->ci->top; + cb = RA(i) + 3; /* previous call may change the stack */ + if (!ttisnil(cb)) { /* continue loop? */ + setobjs2s(L, cb-1, cb); /* save control variable */ + dojump(L, pc, GETARG_sBx(*pc)); /* jump back */ + } + pc++; + continue; + } + case OP_SETLIST: { + int n = GETARG_B(i); + int c = GETARG_C(i); + int last; + Table *h; + if (n == 0) { + n = cast_int(L->top - ra) - 1; + L->top = L->ci->top; + } + if (c == 0) c = cast_int(*pc++); + runtime_check(L, ttistable(ra)); + h = hvalue(ra); + last = ((c-1)*LFIELDS_PER_FLUSH) + n; + if (last > h->sizearray) /* needs more space? */ + luaH_resizearray(L, h, last); /* pre-alloc it at once */ + for (; n > 0; n--) { + TValue *val = ra+n; + setobj2t(L, luaH_setnum(L, h, last--), val); + luaC_barriert(L, h, val); + } + continue; + } + case OP_CLOSE: { + luaF_close(L, ra); + continue; + } + case OP_CLOSURE: { + Proto *p; + Closure *ncl; + int nup, j; + p = cl->p->p[GETARG_Bx(i)]; + nup = p->nups; + ncl = luaF_newLclosure(L, nup, cl->env); + ncl->l.p = p; + for (j=0; jl.upvals[j] = cl->upvals[GETARG_B(*pc)]; + else { + lua_assert(GET_OPCODE(*pc) == OP_MOVE); + ncl->l.upvals[j] = luaF_findupval(L, base + GETARG_B(*pc)); + } + } + setclvalue(L, ra, ncl); + Protect(luaC_checkGC(L)); + continue; + } + case OP_VARARG: { + int b = GETARG_B(i) - 1; + int j; + CallInfo *ci = L->ci; + int n = cast_int(ci->base - ci->func) - cl->p->numparams - 1; + if (b == LUA_MULTRET) { + Protect(luaD_checkstack(L, n)); + ra = RA(i); /* previous call may change the stack */ + b = n; + L->top = ra + n; + } + for (j = 0; j < b; j++) { + if (j < n) { + setobjs2s(L, ra + j, ci->base - n + j); + } + else { + setnilvalue(ra + j); + } + } + continue; + } + } + } +} + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lvm.h b/src/3rd party/LuaJIT-1.1.8/src/lvm.h new file mode 100644 index 00000000000..506a29411f5 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lvm.h @@ -0,0 +1,40 @@ +/* +** $Id: lvm.h,v 2.5.1.1 2007/12/27 13:02:25 roberto Exp $ +** Lua virtual machine +** See Copyright Notice in lua.h +*/ + +#ifndef lvm_h +#define lvm_h + + +#include "ldo.h" +#include "lobject.h" +#include "ltm.h" + + +#define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o))) + +#define tonumber(o,n) (ttype(o) == LUA_TNUMBER || \ + (((o) = luaV_tonumber(o,n)) != NULL)) + +#define equalobj(L,o1,o2) \ + (ttype(o1) == ttype(o2) && luaV_equalval(L, o1, o2)) + + +LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); +LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r); +LUAI_FUNC int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2); +LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); +LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); +LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, + StkId val); +LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key, + StkId val); +LUAI_FUNC void luaV_arith (lua_State *L, StkId ra, const TValue *rb, + const TValue *rc, TMS op); + +LUAI_FUNC void luaV_execute (lua_State *L, int nexeccalls); +LUAI_FUNC void luaV_concat (lua_State *L, int total, int last); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/lzio.c b/src/3rd party/LuaJIT-1.1.8/src/lzio.c new file mode 100644 index 00000000000..293edd59b08 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lzio.c @@ -0,0 +1,82 @@ +/* +** $Id: lzio.c,v 1.31.1.1 2007/12/27 13:02:25 roberto Exp $ +** a generic input stream interface +** See Copyright Notice in lua.h +*/ + + +#include + +#define lzio_c +#define LUA_CORE + +#include "lua.h" + +#include "llimits.h" +#include "lmem.h" +#include "lstate.h" +#include "lzio.h" + + +int luaZ_fill (ZIO *z) { + size_t size; + lua_State *L = z->L; + const char *buff; + lua_unlock(L); + buff = z->reader(L, z->data, &size); + lua_lock(L); + if (buff == NULL || size == 0) return EOZ; + z->n = size - 1; + z->p = buff; + return char2int(*(z->p++)); +} + + +int luaZ_lookahead (ZIO *z) { + if (z->n == 0) { + if (luaZ_fill(z) == EOZ) + return EOZ; + else { + z->n++; /* luaZ_fill removed first byte; put back it */ + z->p--; + } + } + return char2int(*z->p); +} + + +void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) { + z->L = L; + z->reader = reader; + z->data = data; + z->n = 0; + z->p = NULL; +} + + +/* --------------------------------------------------------------- read --- */ +size_t luaZ_read (ZIO *z, void *b, size_t n) { + while (n) { + size_t m; + if (luaZ_lookahead(z) == EOZ) + return n; /* return number of missing bytes */ + m = (n <= z->n) ? n : z->n; /* min. between n and z->n */ + memcpy(b, z->p, m); + z->n -= m; + z->p += m; + b = (char *)b + m; + n -= m; + } + return 0; +} + +/* ------------------------------------------------------------------------ */ +char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n) { + if (n > buff->buffsize) { + if (n < LUA_MINBUFFER) n = LUA_MINBUFFER; + luaZ_resizebuffer(L, buff, n); + } + return buff->buffer; +} + + diff --git a/src/3rd party/LuaJIT-1.1.8/src/lzio.h b/src/3rd party/LuaJIT-1.1.8/src/lzio.h new file mode 100644 index 00000000000..51d695d8c1d --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/lzio.h @@ -0,0 +1,67 @@ +/* +** $Id: lzio.h,v 1.21.1.1 2007/12/27 13:02:25 roberto Exp $ +** Buffered streams +** See Copyright Notice in lua.h +*/ + + +#ifndef lzio_h +#define lzio_h + +#include "lua.h" + +#include "lmem.h" + + +#define EOZ (-1) /* end of stream */ + +typedef struct Zio ZIO; + +#define char2int(c) cast(int, cast(unsigned char, (c))) + +#define zgetc(z) (((z)->n--)>0 ? char2int(*(z)->p++) : luaZ_fill(z)) + +typedef struct Mbuffer { + char *buffer; + size_t n; + size_t buffsize; +} Mbuffer; + +#define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0) + +#define luaZ_buffer(buff) ((buff)->buffer) +#define luaZ_sizebuffer(buff) ((buff)->buffsize) +#define luaZ_bufflen(buff) ((buff)->n) + +#define luaZ_resetbuffer(buff) ((buff)->n = 0) + + +#define luaZ_resizebuffer(L, buff, size) \ + (luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \ + (buff)->buffsize = size) + +#define luaZ_freebuffer(L, buff) luaZ_resizebuffer(L, buff, 0) + + +LUAI_FUNC char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n); +LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, + void *data); +LUAI_FUNC size_t luaZ_read (ZIO* z, void* b, size_t n); /* read next n bytes */ +LUAI_FUNC int luaZ_lookahead (ZIO *z); + + + +/* --------- Private Part ------------------ */ + +struct Zio { + size_t n; /* bytes still unread */ + const char *p; /* current position in buffer */ + lua_Reader reader; + void* data; /* additional data */ + lua_State *L; /* Lua state (for reader) */ +}; + + +LUAI_FUNC int luaZ_fill (ZIO *z); + +#endif diff --git a/src/3rd party/LuaJIT-1.1.8/src/print.c b/src/3rd party/LuaJIT-1.1.8/src/print.c new file mode 100644 index 00000000000..e240cfc3c60 --- /dev/null +++ b/src/3rd party/LuaJIT-1.1.8/src/print.c @@ -0,0 +1,227 @@ +/* +** $Id: print.c,v 1.55a 2006/05/31 13:30:05 lhf Exp $ +** print bytecodes +** See Copyright Notice in lua.h +*/ + +#include +#include + +#define luac_c +#define LUA_CORE + +#include "ldebug.h" +#include "lobject.h" +#include "lopcodes.h" +#include "lundump.h" + +#define PrintFunction luaU_print + +#define Sizeof(x) ((int)sizeof(x)) +#define VOID(p) ((const void*)(p)) + +static void PrintString(const TString* ts) +{ + const char* s=getstr(ts); + size_t i,n=ts->tsv.len; + putchar('"'); + for (i=0; ik[i]; + switch (ttype(o)) + { + case LUA_TNIL: + printf("nil"); + break; + case LUA_TBOOLEAN: + printf(bvalue(o) ? "true" : "false"); + break; + case LUA_TNUMBER: + printf(LUA_NUMBER_FMT,nvalue(o)); + break; + case LUA_TSTRING: + PrintString(rawtsvalue(o)); + break; + default: /* cannot happen */ + printf("? type=%d",ttype(o)); + break; + } +} + +static void PrintCode(const Proto* f) +{ + const Instruction* code=f->code; + int pc,n=f->sizecode; + for (pc=0; pc0) printf("[%d]\t",line); else printf("[-]\t"); + printf("%-9s\t",luaP_opnames[o]); + switch (getOpMode(o)) + { + case iABC: + printf("%d",a); + if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b); + if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c); + break; + case iABx: + if (getBMode(o)==OpArgK) printf("%d %d",a,-1-bx); else printf("%d %d",a,bx); + break; + case iAsBx: + if (o==OP_JMP) printf("%d",sbx); else printf("%d %d",a,sbx); + break; + } + switch (o) + { + case OP_LOADK: + printf("\t; "); PrintConstant(f,bx); + break; + case OP_GETUPVAL: + case OP_SETUPVAL: + printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-"); + break; + case OP_GETGLOBAL: + case OP_SETGLOBAL: + printf("\t; %s",svalue(&f->k[bx])); + break; + case OP_GETTABLE: + case OP_SELF: + if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); } + break; + case OP_SETTABLE: + case OP_ADD: + case OP_SUB: + case OP_MUL: + case OP_DIV: + case OP_POW: + case OP_EQ: + case OP_LT: + case OP_LE: + if (ISK(b) || ISK(c)) + { + printf("\t; "); + if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-"); + printf(" "); + if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-"); + } + break; + case OP_JMP: + case OP_FORLOOP: + case OP_FORPREP: + printf("\t; to %d",sbx+pc+2); + break; + case OP_CLOSURE: + printf("\t; %p",VOID(f->p[bx])); + break; + case OP_SETLIST: + if (c==0) printf("\t; %d",(int)code[++pc]); + else printf("\t; %d",c); + break; + default: + break; + } + printf("\n"); + } +} + +#define SS(x) (x==1)?"":"s" +#define S(x) x,SS(x) + +static void PrintHeader(const Proto* f) +{ + const char* s=getstr(f->source); + if (*s=='@' || *s=='=') + s++; + else if (*s==LUA_SIGNATURE[0]) + s="(bstring)"; + else + s="(string)"; + printf("\n%s <%s:%d,%d> (%d instruction%s, %d bytes at %p)\n", + (f->linedefined==0)?"main":"function",s, + f->linedefined,f->lastlinedefined, + S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f)); + printf("%d%s param%s, %d slot%s, %d upvalue%s, ", + f->numparams,f->is_vararg?"+":"",SS(f->numparams), + S(f->maxstacksize),S(f->nups)); + printf("%d local%s, %d constant%s, %d function%s\n", + S(f->sizelocvars),S(f->sizek),S(f->sizep)); +} + +static void PrintConstants(const Proto* f) +{ + int i,n=f->sizek; + printf("constants (%d) for %p:\n",n,VOID(f)); + for (i=0; isizelocvars; + printf("locals (%d) for %p:\n",n,VOID(f)); + for (i=0; ilocvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1); + } +} + +static void PrintUpvalues(const Proto* f) +{ + int i,n=f->sizeupvalues; + printf("upvalues (%d) for %p:\n",n,VOID(f)); + if (f->upvalues==NULL) return; + for (i=0; iupvalues[i])); + } +} + +void PrintFunction(const Proto* f, int full) +{ + int i,n=f->sizep; + PrintHeader(f); + PrintCode(f); + if (full) + { + PrintConstants(f); + PrintLocals(f); + PrintUpvalues(f); + } + for (i=0; ip[i],full); +} diff --git a/src/engine.sln b/src/engine.sln index 73d32525aec..8dbae2b7cdb 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -132,6 +132,8 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "CxImage", "3rd party\cximag EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "NVTT", "3rd party\NVTT\NVTT.vcxproj", "{0EB257DC-5CFC-44B0-82C9-CE6B158BE473}" EndProject +Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "LuaJIT-1.1.8", "3rd party\LuaJIT-1.1.8\LuaJIT-1.1.8.vcxproj", "{2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug_Dedicated|Win32 = Debug_Dedicated|Win32 @@ -590,6 +592,18 @@ Global {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.Build.0 = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.ActiveCfg = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.Build.0 = Release|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -618,6 +632,7 @@ Global {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {880CD250-BA77-4DAF-A8D4-552F12DD3AE4} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {0EB257DC-5CFC-44B0-82C9-CE6B158BE473} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index dcb69002070..3e811358e27 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -%s this %s \ -setmetatable(this, {__index = _G}) \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + %s this %s \ + setmetatable(this, {__index = _G}) \ + setfenv(1, this) \ + "; LPCSTR file_header_new = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -this._G = _G \ -%s this %s \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + this._G = _G \ + %s this %s \ + setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,320 +88,342 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator( 0, 0, "lua" ); +static doug_lea_allocator s_allocator(0, 0, "lua"); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { +static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) +{ #ifndef USE_MEMORY_MONITOR - (void)ud; - (void)osize; - if ( !nsize ) { - s_allocator.free_impl (ptr); - return 0; - } - - if ( !ptr ) - return s_allocator.malloc_impl((u32)nsize); - - return s_allocator.realloc_impl(ptr, (u32)nsize); + (void)ud; + (void) osize; + if (!nsize) + { + s_allocator.free_impl(ptr); + return 0; + } + + if (!ptr) + return s_allocator.malloc_impl((u32) nsize); + + return s_allocator.realloc_impl(ptr, (u32) nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage () +u32 game_lua_memory_usage() { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator ( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) { - LPVOID non_const_pointer = const_cast(pointer); - xr_free (non_const_pointer); - return ( 0 ); - } - - if (!pointer) { + if (!size) + { + LPVOID non_const_pointer = const_cast(pointer); + xr_free(non_const_pointer); + return (0); + } + + if (!pointer) + { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_alloc(size) ); + return (Memory.mem_alloc(size)); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size) ); + return (Memory.mem_realloc(non_const_pointer, size)); #endif // #ifdef DEBUG } -void setup_luabind_allocator () +void setup_luabind_allocator() { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message (lua_State* state, const char *msg) { - Msg ("! [LUA_JIT] %s", msg); +static void l_message(lua_State* state, const char *msg) +{ + Msg("! [LUA_JIT] %s", msg); } -static int report (lua_State *L, int status) { - if (status && !lua_isnil(L, -1)) { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report(lua_State *L, int status) +{ + if (status && !lua_isnil(L, -1)) + { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule (lua_State *L, const char *notfound) { - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule(lua_State *L, const char *notfound) +{ + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) + { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) + { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd (lua_State *L, const char *cmd) { - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val+1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd(lua_State *L, const char *cmd) +{ + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) + { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else + { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val + 1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt (lua_State *L, const char *opt) { - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt(lua_State *L, const char *opt) +{ + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage () +CScriptStorage::CScriptStorage() { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage () +CScriptStorage::~CScriptStorage() { - if (m_virtual_machine) - lua_close (m_virtual_machine); + if (m_virtual_machine) + lua_close(m_virtual_machine); } #ifndef DEBUG -static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal (state, "package"); - lua_pushstring (state, "preload"); - lua_gettable (state, -2); + lua_getglobal(state, "package"); + lua_pushstring(state, "preload"); + lua_gettable(state, -2); - lua_pushstring (state, package_id); - luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); - lua_settable (state, -3); + lua_pushstring(state, package_id); + luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); + lua_settable(state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit () +void CScriptStorage::reinit() { - if (m_virtual_machine) - lua_close (m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) { - Msg ("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit { - static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction (L, function); - lua_pushstring (L, module_name); - lua_call (L, 1, 0); - } - }; // struct lua; - - luajit::open_lib (lua(), "", luaopen_base); - luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); - -#ifdef DEBUG - luajit::open_lib (lua(), LUA_DBLIBNAME, luaopen_debug); -#endif // #ifdef DEBUG - - if (!strstr(Core.Params,"-nojit")) { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (m_virtual_machine) + lua_close(m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) + { + Msg("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit + { + static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction(L, function); + lua_pushstring(L, module_name); + lua_call(L, 1, 0); + } + }; // struct lua; + + luajit::open_lib(lua(), "", luaopen_base); + luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); + + /* AVO: unlock lua debug library */ + //#ifdef DEBUG + if (strstr(Core.Params, "-dbg")) + { + luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); + } + //#endif // #ifdef DEBUG + /* AVO: end */ + + if (!strstr(Core.Params, "-nojit")) + { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt (lua(), "2"); + put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt(lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params,"-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params, "-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE # ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK # ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) { + case ScriptStorage::eLuaMessageTypeInfo : { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError : { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage : { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall : { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn : { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine : { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount : { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn : { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default : NODEFAULT; + } + + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1,caFormat,marker); + Msg ("%s",S2); + + xr_strcpy (S2,SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1,caFormat,marker); + xr_strcat (S2,"\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } @@ -409,445 +431,469 @@ int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType void CScriptStorage::print_stack () { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { + lua_getinfo (L,"nSlu",&l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); + else + if (!xr_strcmp(l_tDebugInfo.what,"C")) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); + else + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start (marker,caFormat); - int result = vscript_log(tLuaMessageType,caFormat,marker); - va_end (marker); + va_list marker; + va_start(marker, caFormat); + int result = vscript_log(tLuaMessageType, caFormat, marker); + va_end(marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack (); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT (S2,caNamespaceName); - LPSTR S = S2; - for (int i=0;;++i) { - if (!xr_strlen(S)) { - script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat (b,b_size,"{"); - xr_strcat (b,b_size,S); - xr_strcat (b,b_size,"="); - if (i) - xr_strcat (c,c_size,"}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT(S2, caNamespaceName); + LPSTR S = S2; + for (int i = 0;; ++i) + { + if (!xr_strlen(S)) + { + script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat(b, b_size, "{"); + xr_strcat(b, b_size, S); + xr_strcat(b, b_size, "="); + if (i) + xr_strcat(c, c_size, "}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) - return (false); - - xr_sprintf (insert,header,caNameSpaceName,a,b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try { - if (total_size < 768*1024) - script = (LPSTR)_alloca(total_size); - else { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) + { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) + return (false); + + xr_sprintf(insert, header, caNameSpaceName, a, b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try + { + if (total_size < 768 * 1024) + script = (LPSTR) _alloca(total_size); + else + { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); + script = (LPSTR) Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy (script, total_size, insert); - CopyMemory (script + str_len,caBuffer,u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); - - if ( dynamic_allocation ) - xr_free (script); - } - else { -// try - { - l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); - } -// catch(...) { -// l_iErrorCode= LUA_ERRSYNTAX; -// } - } - - if (l_iErrorCode) { + script = (LPSTR) Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy(script, total_size, insert); + CopyMemory(script + str_len, caBuffer, u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); + + if (dynamic_allocation) + xr_free(script); + } + else + { + // try + { + l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); + } + // catch(...) { + // l_iErrorCode= LUA_ERRSYNTAX; + // } + } + + if (l_iErrorCode) + { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error (L); - return (false); - } - return (true); + on_error(L); + return (false); + } + return (true); } -bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) { - script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); - return (false); - } - strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); - - if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { -// VERIFY (lua_gettop(lua()) >= 4); -// lua_pop (lua(),4); -// VERIFY (lua_gettop(lua()) == start - 3); - lua_settop (lua(),start); - FS.r_close (l_tpFileReader); - return (false); - } - FS.r_close (l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) + { + script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); + return (false); + } + strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); + + if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) + { + // VERIFY (lua_gettop(lua()) >= 4); + // lua_pop (lua(),4); + // VERIFY (lua_gettop(lua()) == start - 3); + lua_settop(lua(), start); + FS.r_close(l_tpFileReader); + return (false); + } + FS.r_close(l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i=0; lua_type(lua(), -i-1); i++) - Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); - } + if (0) //. + { + for (int i = 0; lua_type(lua(), -i - 1); i++) + Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) { + if (l_iErrorCode) + { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error (lua()); - lua_settop (lua(),start); - return (false); - } + on_error(lua()); + lua_settop(lua(), start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName,caNamespaceName)) { - lua_settop (lua(),start); - return (false); - } - VERIFY (lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName, caNamespaceName)) + { + lua_settop(lua(), start); + return (false); + } + VERIFY(lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring (lua(),"_G"); - lua_rawget (lua(),LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy (S2,N); - LPSTR S = S2; - for (;;) { - if (!xr_strlen(S)) { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - lua_pushstring (lua(),S); - lua_rawget (lua(),-2); - if (lua_isnil(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 2); - lua_pop (lua(),2); - VERIFY (start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (start == lua_gettop(lua())); - FATAL (" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove (lua(),-2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) { - VERIFY (lua_gettop(lua()) == start + 1); - } - else { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring(lua(), "_G"); + lua_rawget(lua(), LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy(S2, N); + LPSTR S = S2; + for (;;) + { + if (!xr_strlen(S)) + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + lua_pushstring(lua(), S); + lua_rawget(lua(), -2); + if (lua_isnil(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 2); + lua_pop(lua(), 2); + VERIFY(start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + FATAL(" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove(lua(), -2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) + { + VERIFY(lua_gettop(lua()) == start + 1); + } + else + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object (LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil (lua()); - while (lua_next(lua(), -2)) { - - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { - VERIFY (lua_gettop(lua()) >= 3); - lua_pop (lua(), 3); - VERIFY (lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop (lua(), 1); - } - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil(lua()); + while (lua_next(lua(), -2)) + { + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) + { + VERIFY(lua_gettop(lua()) >= 3); + lua_pop(lua(), 3); + VERIFY(lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop(lua(), 1); + } + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { - VERIFY (lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier,type); - VERIFY (lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) + { + VERIFY(lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier, type); + VERIFY(lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy (S1,namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S,'.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy(S1, namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) + { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S, '.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable { - int m_error_code; - LPCSTR const& m_error_description; - raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard () - { +struct raii_guard : private boost::noncopyable +{ + int m_error_code; + LPCSTR const& m_error_description; + raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} + ~raii_guard() + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = true; #endif // #ifdef DEBUG - if ( !m_error_code ) - return; - - if ( break_on_assert ) - R_ASSERT2 ( !m_error_code, m_error_description ); - else - Msg ( "! SCRIPT ERROR: %s", m_error_description ); - } - } + if (!m_error_code) + return; + + if (break_on_assert) + R_ASSERT2(!m_error_code, m_error_description); + else + Msg("! SCRIPT ERROR: %s", m_error_description); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error (L,iErorCode); +{ + if (iErorCode) + print_error(L, iErorCode); + + LPCSTR S = "see call_stack for details!"; - LPCSTR S = "see call_stack for details!"; + raii_guard guard(iErorCode, S); - raii_guard guard(iErorCode, S); + if (!lua_isstring(L, -1)) + return (false); - if (!lua_isstring(L,-1)) - return (false); - - S = lua_tostring(L,-1); - if (!xr_strcmp(S,"cannot resume dead coroutine")) { - VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); + S = lua_tostring(L, -1); + if (!xr_strcmp(S, "cannot resume dead coroutine")) + { + VERIFY2("Please do not return any values from main!!!", caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else { - if (!iErorCode) - script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); - script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); + } + else + { + if (!iErorCode) + script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); + script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) { - case LUA_ERRRUN : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD : { - script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); - break; - } - default : NODEFAULT; - } + switch (iErrorCode) + { + case LUA_ERRRUN: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD: { + script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); + break; + } + default: NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log (LPCSTR format, ...) +int CScriptStorage::error_log(LPCSTR format, ...) { - va_list marker; - va_start (marker,format); + va_list marker; + va_start(marker, format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy(S2, S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1,format,marker); - va_end (marker); + int result = vsprintf(S1, format, marker); + va_end(marker); - Msg ("%s",S2); + Msg("%s", S2); - return (result); + return (result); } \ No newline at end of file From 9954a35560e6813824ab68463955867caa73faf9 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 22:23:27 -0500 Subject: [PATCH 014/166] ! rolled back lua debug library due to some bug. Need to check in future --- src/xrServerEntities/script_storage.cpp | 1230 +++++++++++------------ 1 file changed, 592 insertions(+), 638 deletions(-) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 3e811358e27..dcb69002070 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ - local function script_name() \ - return \"%s\" \ - end \ - local this = {} \ - %s this %s \ - setmetatable(this, {__index = _G}) \ - setfenv(1, this) \ - "; +local function script_name() \ +return \"%s\" \ +end \ +local this = {} \ +%s this %s \ +setmetatable(this, {__index = _G}) \ +setfenv(1, this) \ + "; LPCSTR file_header_new = "\ - local function script_name() \ - return \"%s\" \ - end \ - local this = {} \ - this._G = _G \ - %s this %s \ - setfenv(1, this) \ - "; +local function script_name() \ +return \"%s\" \ +end \ +local this = {} \ +this._G = _G \ +%s this %s \ +setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,342 +88,320 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator(0, 0, "lua"); +static doug_lea_allocator s_allocator( 0, 0, "lua" ); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) -{ +static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { #ifndef USE_MEMORY_MONITOR - (void)ud; - (void) osize; - if (!nsize) - { - s_allocator.free_impl(ptr); - return 0; - } - - if (!ptr) - return s_allocator.malloc_impl((u32) nsize); - - return s_allocator.realloc_impl(ptr, (u32) nsize); + (void)ud; + (void)osize; + if ( !nsize ) { + s_allocator.free_impl (ptr); + return 0; + } + + if ( !ptr ) + return s_allocator.malloc_impl((u32)nsize); + + return s_allocator.realloc_impl(ptr, (u32)nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage() +u32 game_lua_memory_usage () { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator ( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) - { - LPVOID non_const_pointer = const_cast(pointer); - xr_free(non_const_pointer); - return (0); - } - - if (!pointer) - { + if (!size) { + LPVOID non_const_pointer = const_cast(pointer); + xr_free (non_const_pointer); + return ( 0 ); + } + + if (!pointer) { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return (Memory.mem_alloc(size)); + return ( Memory.mem_alloc(size) ); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return (Memory.mem_realloc(non_const_pointer, size)); + return ( Memory.mem_realloc(non_const_pointer, size) ); #endif // #ifdef DEBUG } -void setup_luabind_allocator() +void setup_luabind_allocator () { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message(lua_State* state, const char *msg) -{ - Msg("! [LUA_JIT] %s", msg); +static void l_message (lua_State* state, const char *msg) { + Msg ("! [LUA_JIT] %s", msg); } -static int report(lua_State *L, int status) -{ - if (status && !lua_isnil(L, -1)) - { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report (lua_State *L, int status) { + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule(lua_State *L, const char *notfound) -{ - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) - { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) - { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule (lua_State *L, const char *notfound) { + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd(lua_State *L, const char *cmd) -{ - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) - { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else - { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val + 1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd (lua_State *L, const char *cmd) { + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val+1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt(lua_State *L, const char *opt) -{ - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt (lua_State *L, const char *opt) { + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage() +CScriptStorage::CScriptStorage () { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage() +CScriptStorage::~CScriptStorage () { - if (m_virtual_machine) - lua_close(m_virtual_machine); + if (m_virtual_machine) + lua_close (m_virtual_machine); } #ifndef DEBUG -static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal(state, "package"); - lua_pushstring(state, "preload"); - lua_gettable(state, -2); + lua_getglobal (state, "package"); + lua_pushstring (state, "preload"); + lua_gettable (state, -2); - lua_pushstring(state, package_id); - luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); - lua_settable(state, -3); + lua_pushstring (state, package_id); + luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); + lua_settable (state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit() +void CScriptStorage::reinit () { - if (m_virtual_machine) - lua_close(m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) - { - Msg("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit - { - static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction(L, function); - lua_pushstring(L, module_name); - lua_call(L, 1, 0); - } - }; // struct lua; - - luajit::open_lib(lua(), "", luaopen_base); - luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); - - /* AVO: unlock lua debug library */ - //#ifdef DEBUG - if (strstr(Core.Params, "-dbg")) - { - luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); - } - //#endif // #ifdef DEBUG - /* AVO: end */ - - if (!strstr(Core.Params, "-nojit")) - { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (m_virtual_machine) + lua_close (m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) { + Msg ("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit { + static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction (L, function); + lua_pushstring (L, module_name); + lua_call (L, 1, 0); + } + }; // struct lua; + + luajit::open_lib (lua(), "", luaopen_base); + luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); + +#ifdef DEBUG + luajit::open_lib (lua(), LUA_DBLIBNAME, luaopen_debug); +#endif // #ifdef DEBUG + + if (!strstr(Core.Params,"-nojit")) { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt(lua(), "2"); + put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt (lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params, "-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params,"-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE # ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK # ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) { + case ScriptStorage::eLuaMessageTypeInfo : { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError : { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage : { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall : { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn : { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine : { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount : { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn : { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default : NODEFAULT; + } + + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1,caFormat,marker); + Msg ("%s",S2); + + xr_strcpy (S2,SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1,caFormat,marker); + xr_strcat (S2,"\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } @@ -431,469 +409,445 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, void CScriptStorage::print_stack () { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { + lua_getinfo (L,"nSlu",&l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); + else + if (!xr_strcmp(l_tDebugInfo.what,"C")) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); + else + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start(marker, caFormat); - int result = vscript_log(tLuaMessageType, caFormat, marker); - va_end(marker); + va_list marker; + va_start (marker,caFormat); + int result = vscript_log(tLuaMessageType,caFormat,marker); + va_end (marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack (); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT(S2, caNamespaceName); - LPSTR S = S2; - for (int i = 0;; ++i) - { - if (!xr_strlen(S)) - { - script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S, '.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat(b, b_size, "{"); - xr_strcat(b, b_size, S); - xr_strcat(b, b_size, "="); - if (i) - xr_strcat(c, c_size, "}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT (S2,caNamespaceName); + LPSTR S = S2; + for (int i=0;;++i) { + if (!xr_strlen(S)) { + script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S,'.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat (b,b_size,"{"); + xr_strcat (b,b_size,S); + xr_strcat (b,b_size,"="); + if (i) + xr_strcat (c,c_size,"}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) - { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) - return (false); - - xr_sprintf(insert, header, caNameSpaceName, a, b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try - { - if (total_size < 768 * 1024) - script = (LPSTR) _alloca(total_size); - else - { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) + return (false); + + xr_sprintf (insert,header,caNameSpaceName,a,b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try { + if (total_size < 768*1024) + script = (LPSTR)_alloca(total_size); + else { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR) Memory.mem_alloc(total_size); + script = (LPSTR)Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR) Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy(script, total_size, insert); - CopyMemory(script + str_len, caBuffer, u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); - - if (dynamic_allocation) - xr_free(script); - } - else - { - // try - { - l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); - } - // catch(...) { - // l_iErrorCode= LUA_ERRSYNTAX; - // } - } - - if (l_iErrorCode) - { + script = (LPSTR)Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy (script, total_size, insert); + CopyMemory (script + str_len,caBuffer,u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); + + if ( dynamic_allocation ) + xr_free (script); + } + else { +// try + { + l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); + } +// catch(...) { +// l_iErrorCode= LUA_ERRSYNTAX; +// } + } + + if (l_iErrorCode) { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error(L); - return (false); - } - return (true); + on_error (L); + return (false); + } + return (true); } -bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) - { - script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); - return (false); - } - strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); - - if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) - { - // VERIFY (lua_gettop(lua()) >= 4); - // lua_pop (lua(),4); - // VERIFY (lua_gettop(lua()) == start - 3); - lua_settop(lua(), start); - FS.r_close(l_tpFileReader); - return (false); - } - FS.r_close(l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) { + script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); + return (false); + } + strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); + + if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { +// VERIFY (lua_gettop(lua()) >= 4); +// lua_pop (lua(),4); +// VERIFY (lua_gettop(lua()) == start - 3); + lua_settop (lua(),start); + FS.r_close (l_tpFileReader); + return (false); + } + FS.r_close (l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i = 0; lua_type(lua(), -i - 1); i++) - Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); - } + if (0) //. + { + for (int i=0; lua_type(lua(), -i-1); i++) + Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it - // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy - // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it +// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy +// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) - { + if (l_iErrorCode) { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error(lua()); - lua_settop(lua(), start); - return (false); - } + on_error (lua()); + lua_settop (lua(),start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName, caNamespaceName)) - { - lua_settop(lua(), start); - return (false); - } - VERIFY(lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName,caNamespaceName)) { + lua_settop (lua(),start); + return (false); + } + VERIFY (lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring(lua(), "_G"); - lua_rawget(lua(), LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy(S2, N); - LPSTR S = S2; - for (;;) - { - if (!xr_strlen(S)) - { - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S, '.'); - if (S1) - *S1 = 0; - lua_pushstring(lua(), S); - lua_rawget(lua(), -2); - if (lua_isnil(lua(), -1)) - { - // lua_settop (lua(),0); - VERIFY(lua_gettop(lua()) >= 2); - lua_pop(lua(), 2); - VERIFY(start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(), -1)) - { - // lua_settop (lua(),0); - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(start == lua_gettop(lua())); - FATAL(" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove(lua(), -2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) - { - VERIFY(lua_gettop(lua()) == start + 1); - } - else - { - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring (lua(),"_G"); + lua_rawget (lua(),LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy (S2,N); + LPSTR S = S2; + for (;;) { + if (!xr_strlen(S)) { + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(), 1); + VERIFY (start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S,'.'); + if (S1) + *S1 = 0; + lua_pushstring (lua(),S); + lua_rawget (lua(),-2); + if (lua_isnil(lua(),-1)) { +// lua_settop (lua(),0); + VERIFY (lua_gettop(lua()) >= 2); + lua_pop (lua(),2); + VERIFY (start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(),-1)) { +// lua_settop (lua(),0); + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(),1); + VERIFY (start == lua_gettop(lua())); + FATAL (" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove (lua(),-2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) { + VERIFY (lua_gettop(lua()) == start + 1); + } + else { + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(),1); + VERIFY (lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object(LPCSTR identifier, int type) +bool CScriptStorage::object (LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil(lua()); - while (lua_next(lua(), -2)) - { - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) - { - VERIFY(lua_gettop(lua()) >= 3); - lua_pop(lua(), 3); - VERIFY(lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop(lua(), 1); - } - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil (lua()); + while (lua_next(lua(), -2)) { + + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { + VERIFY (lua_gettop(lua()) >= 3); + lua_pop (lua(), 3); + VERIFY (lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop (lua(), 1); + } + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(), 1); + VERIFY (lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) - { - VERIFY(lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier, type); - VERIFY(lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { + VERIFY (lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier,type); + VERIFY (lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy(S1, namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) - { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S, '.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy (S1,namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S,'.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable -{ - int m_error_code; - LPCSTR const& m_error_description; - raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard() - { +struct raii_guard : private boost::noncopyable { + int m_error_code; + LPCSTR const& m_error_description; + raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} + ~raii_guard () + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = true; #endif // #ifdef DEBUG - if (!m_error_code) - return; - - if (break_on_assert) - R_ASSERT2(!m_error_code, m_error_description); - else - Msg("! SCRIPT ERROR: %s", m_error_description); - } - } + if ( !m_error_code ) + return; + + if ( break_on_assert ) + R_ASSERT2 ( !m_error_code, m_error_description ); + else + Msg ( "! SCRIPT ERROR: %s", m_error_description ); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error(L, iErorCode); - - LPCSTR S = "see call_stack for details!"; +{ + if (iErorCode) + print_error (L,iErorCode); - raii_guard guard(iErorCode, S); + LPCSTR S = "see call_stack for details!"; - if (!lua_isstring(L, -1)) - return (false); + raii_guard guard(iErorCode, S); - S = lua_tostring(L, -1); - if (!xr_strcmp(S, "cannot resume dead coroutine")) - { - VERIFY2("Please do not return any values from main!!!", caScriptFileName); + if (!lua_isstring(L,-1)) + return (false); + + S = lua_tostring(L,-1); + if (!xr_strcmp(S,"cannot resume dead coroutine")) { + VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else - { - if (!iErorCode) - script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); - script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); + } + else { + if (!iErorCode) + script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); + script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) - { - case LUA_ERRRUN: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD: { - script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); - break; - } - default: NODEFAULT; - } + switch (iErrorCode) { + case LUA_ERRRUN : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD : { + script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); + break; + } + default : NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log(LPCSTR format, ...) +int CScriptStorage::error_log (LPCSTR format, ...) { - va_list marker; - va_start(marker, format); + va_list marker; + va_start (marker,format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy(S2, S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1, format, marker); - va_end(marker); + int result = vsprintf(S1,format,marker); + va_end (marker); - Msg("%s", S2); + Msg ("%s",S2); - return (result); + return (result); } \ No newline at end of file From fc98b976f999ad3be0c56ec08214d96a053ded80 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 22:56:24 -0500 Subject: [PATCH 015/166] + LuaJIT-1.1.8 is now fully functional --- src/xrServerEntities/opt.lua.h | 8 ++++---- src/xrServerEntities/opt_inline.lua.h | 9 +++++---- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/src/xrServerEntities/opt.lua.h b/src/xrServerEntities/opt.lua.h index fe67a79b40b..dbcafe40a33 100644 --- a/src/xrServerEntities/opt.lua.h +++ b/src/xrServerEntities/opt.lua.h @@ -1,8 +1,8 @@ /* code automatically generated by bin2c -- DO NOT EDIT */ /* #include'ing this file in a C program is equivalent to calling - if (luaL_loadfile(L,"luac.out")==0) lua_pcall(L, 0, 0, 0); + if (luaL_loadfile(L,"opt.bin")==0) lua_call(L, 0, 0); */ -/* luac.out */ +/* opt.bin */ static const unsigned char opt_lua_binary[]={ 27, 76,117, 97, 81, 0, 1, 4, 4, 4, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 33,195, 0, 0, 0, 1, 0, 0, 0, 65, 64, 0, 0, @@ -54,7 +54,7 @@ static const unsigned char opt_lua_binary[]={ 0, 0, 62, 64, 4, 8, 0, 0, 0,114,101,113,117,105,114,101, 0, 4, 4, 0, 0, 0,106,105,116, 0, 4, 7, 0, 0, 0, 97,115,115,101,114,116, 0, 4, 12, 0, 0, 0,118,101,114,115,105,111,110, 95,110,117,109, 0, 3, 0, 0, 0, 0, - 0,188,195, 64, 4, 37, 0, 0, 0, 76,117, 97, 74, 73, 84, 32, 99,111,114,101, + 0,190,195, 64, 4, 37, 0, 0, 0, 76,117, 97, 74, 73, 84, 32, 99,111,114,101, 47,108,105, 98,114, 97,114,121, 32,118,101,114,115,105,111,110, 32,109,105,115, 109, 97,116, 99,104, 0, 4, 9, 0, 0, 0,106,105,116, 46,117,116,105,108, 0, 4, 5, 0, 0, 0,116,121,112,101, 0, 4, 7, 0, 0, 0,114, 97,119,103,101, @@ -424,4 +424,4 @@ static const unsigned char opt_lua_binary[]={ 0, 0, 4, 0, 0, 0, 30, 0, 0, 1, 30, 0,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -}; \ No newline at end of file +}; diff --git a/src/xrServerEntities/opt_inline.lua.h b/src/xrServerEntities/opt_inline.lua.h index f7ed711870b..48d2746cb0a 100644 --- a/src/xrServerEntities/opt_inline.lua.h +++ b/src/xrServerEntities/opt_inline.lua.h @@ -1,8 +1,8 @@ /* code automatically generated by bin2c -- DO NOT EDIT */ /* #include'ing this file in a C program is equivalent to calling - if (luaL_loadfile(L,"luac.out")==0) lua_pcall(L, 0, 0, 0); + if (luaL_loadfile(L,"opt_inline.bin")==0) lua_call(L, 0, 0); */ -/* luac.out */ +/* opt_inline.bin */ static const unsigned char opt_inline_lua_binary[]={ 27, 76,117, 97, 81, 0, 1, 4, 4, 4, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 31,240, 1, 0, 0, 5, 0, 0, 0, 65, 64, 0, 0, @@ -107,7 +107,7 @@ static const unsigned char opt_inline_lua_binary[]={ 92, 71, 0, 0, 71, 3, 38, 0, 7, 71, 38, 0, 30, 0,128, 0,154, 0, 0, 0, 4, 8, 0, 0, 0,114,101,113,117,105,114,101, 0, 4, 4, 0, 0, 0,106,105, 116, 0, 4, 7, 0, 0, 0, 97,115,115,101,114,116, 0, 4, 12, 0, 0, 0,118, -101,114,115,105,111,110, 95,110,117,109, 0, 3, 0, 0, 0, 0, 0,188,195, 64, +101,114,115,105,111,110, 95,110,117,109, 0, 3, 0, 0, 0, 0, 0,190,195, 64, 4, 37, 0, 0, 0, 76,117, 97, 74, 73, 84, 32, 99,111,114,101, 47,108,105, 98, 114, 97,114,121, 32,118,101,114,115,105,111,110, 32,109,105,115,109, 97,116, 99, 104, 0, 4, 9, 0, 0, 0,106,105,116, 46,117,116,105,108, 0, 4, 5, 0, 0, @@ -369,4 +369,5 @@ static const unsigned char opt_inline_lua_binary[]={ 0, 0, 0, 97,116,116, 97, 99,104, 95, 99, 97,108,108,104,105,110,116, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -}; \ No newline at end of file +}; + From 7e6fdc0e9c5ebee69cd51bbc150a81abfefda4d8 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 17 Dec 2014 23:08:06 -0500 Subject: [PATCH 016/166] * fixed lua debug export (requires -dbg key) --- src/xrServerEntities/script_storage.cpp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index dcb69002070..b46878f7662 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -302,9 +302,12 @@ void CScriptStorage::reinit () luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); -#ifdef DEBUG - luajit::open_lib (lua(), LUA_DBLIBNAME, luaopen_debug); -#endif // #ifdef DEBUG +//#ifdef DEBUG + if (strstr(Core.Params, "-dbg")) + { + luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); + } +//#endif // #ifdef DEBUG if (!strstr(Core.Params,"-nojit")) { luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); From e8aef590a7875befe46561e091ad392d7981c890 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Thu, 18 Dec 2014 11:10:44 -0500 Subject: [PATCH 017/166] ! increased LUAI_MAXCSTACK and LUAL_BUFFERSIZE values --- sdk/include/lua/luaconf.h | 6 ++++-- src/3rd party/LuaJIT-1.1.8/src/luaconf.h | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/sdk/include/lua/luaconf.h b/sdk/include/lua/luaconf.h index 35a6bd1562e..09bc2f20c10 100644 --- a/sdk/include/lua/luaconf.h +++ b/sdk/include/lua/luaconf.h @@ -449,7 +449,9 @@ ** functions to consume unlimited stack space. (must be smaller than ** -LUA_REGISTRYINDEX) */ -#define LUAI_MAXCSTACK 8000 +//#define LUAI_MAXCSTACK 8000 +#define LUAI_MCS_AUX ((int)(INT_MAX / (4*sizeof(LUA_NUMBER)))) +#define LUAI_MAXCSTACK (LUAI_MCS_AUX > SHRT_MAX ? SHRT_MAX : LUAI_MCS_AUX) /* @@ -490,7 +492,7 @@ /* @@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. */ -#define LUAL_BUFFERSIZE BUFSIZ +#define LUAL_BUFFERSIZE 4096 //BUFSIZ /* }================================================================== */ diff --git a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h index 35a6bd1562e..09bc2f20c10 100644 --- a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h +++ b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h @@ -449,7 +449,9 @@ ** functions to consume unlimited stack space. (must be smaller than ** -LUA_REGISTRYINDEX) */ -#define LUAI_MAXCSTACK 8000 +//#define LUAI_MAXCSTACK 8000 +#define LUAI_MCS_AUX ((int)(INT_MAX / (4*sizeof(LUA_NUMBER)))) +#define LUAI_MAXCSTACK (LUAI_MCS_AUX > SHRT_MAX ? SHRT_MAX : LUAI_MCS_AUX) /* @@ -490,7 +492,7 @@ /* @@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. */ -#define LUAL_BUFFERSIZE BUFSIZ +#define LUAL_BUFFERSIZE 4096 //BUFSIZ /* }================================================================== */ From e14004956743afc23efd3a6a261b731c0556e414 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Thu, 18 Dec 2014 13:08:13 -0500 Subject: [PATCH 018/166] + debug config for LuaJIT-1.1.8 project --- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 26 ++++++++++++++++--- src/engine.sln | 9 ------- 2 files changed, 23 insertions(+), 12 deletions(-) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index 6908c74a937..0f8a697c96e 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -16,7 +16,7 @@ - Application + DynamicLibrary true v120 MultiByte @@ -48,14 +48,34 @@ false true + + $(xrGameBinDir) + $(xrIntDir)$(ProjectName)\ + .dll + false + true + - Level3 + Level4 Disabled - true + + + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + ProgramDatabase + LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) + false + + true + Fast + 4996;4127;4100;4055;%(DisableSpecificWarnings) true + Windows + false + false + $(xrLibDir)$(TargetName).lib diff --git a/src/engine.sln b/src/engine.sln index be25675a0cc..5308c5d8ecd 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -201,7 +201,6 @@ Global {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.ActiveCfg = Debug|Win32 - {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.Build.0 = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.Build.0 = Release|Win32 @@ -217,7 +216,6 @@ Global {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.ActiveCfg = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.ActiveCfg = Debug|Win32 - {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.Build.0 = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -225,7 +223,6 @@ Global {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.ActiveCfg = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.ActiveCfg = Debug|Win32 - {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.Build.0 = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -242,7 +239,6 @@ Global {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.Build.0 = Release|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Win32.ActiveCfg = Debug|Win32 - {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Win32.Build.0 = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -250,7 +246,6 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.ActiveCfg = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.ActiveCfg = Debug|Win32 - {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.Build.0 = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -258,7 +253,6 @@ Global {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.ActiveCfg = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.ActiveCfg = Debug|Win32 - {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.Build.0 = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -484,7 +478,6 @@ Global {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.Build.0 = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Win32.ActiveCfg = Debug|Win32 - {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Win32.Build.0 = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.Build.0 = Debug|Win32 @@ -492,7 +485,6 @@ Global {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.ActiveCfg = Debug|Win32 - {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.Build.0 = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -500,7 +492,6 @@ Global {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.ActiveCfg = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.ActiveCfg = Debug|Win32 - {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.Build.0 = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.Build.0 = Mixed|Win32 From 92732343136f20093f19d7b47ed9725a3cb07088 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Thu, 18 Dec 2014 22:51:20 -0500 Subject: [PATCH 019/166] Core: + build_config_defines.h - take some control over ever growing number of changes Script callbacks (examples in bind_stalker.script) + key_press + key_release (disabled in build_config_defines.h) + key_hold (disabled in build_config_defines.h) + mouse_move (disabled in build_config_defines.h) + move_wheel + item_to_ruck + item_to_belt + item_to_slot Misc: + first person death (configurable in build_config_defines.h) --- res/gamedata/scripts/bind_stalker.script | 71 +- src/build_config_defines.h | 7 + src/xrGame/Actor.cpp | 8 +- src/xrGame/InventoryOwner.cpp | 758 +++---- src/xrGame/Level_input.cpp | 874 ++++---- src/xrGame/game_object_space.h | 98 +- .../script_game_object_inventory_owner.cpp | 1932 +++++++++-------- src/xrGame/script_game_object_script.cpp | 167 +- 8 files changed, 2067 insertions(+), 1848 deletions(-) create mode 100644 src/build_config_defines.h diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index d7896cb9895..fac3585112c 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -87,7 +87,14 @@ function actor_binder:net_destroy() ----| aVo |-------------------------------------------------------------------- self.object:set_callback(callback.hit, nil) - --self.object:set_callback(123, nil) + self.object:set_callback(callback.key_press, nil) + self.object:set_callback(callback.key_release, nil) + self.object:set_callback(callback.key_hold, nil) + self.object:set_callback(callback.mouse_move, nil) + self.object:set_callback(callback.mouse_wheel, nil) + self.object:set_callback(callback.item_to_belt, nil) + self.object:set_callback(callback.item_to_ruck, nil) + self.object:set_callback(callback.item_to_slot, nil) ----| end:aVo |---------------------------------------------------------------- log("--------->"..tostring(_G.amb_vol)) @@ -126,22 +133,72 @@ function actor_binder:reinit() ----| aVo |-------------------------------------------------------------------- self.object:set_callback(callback.hit, self.actor_hit, self) - -- self.object:set_callback(123, self.key_press, self) + self.object:set_callback(callback.key_press, self.key_press, self) + self.object:set_callback(callback.key_release, self.key_release, self) + self.object:set_callback(callback.key_hold, self.key_hold, self) + self.object:set_callback(callback.mouse_move, self.mouse_move, self) + self.object:set_callback(callback.mouse_wheel, self.mouse_wheel, self) + self.object:set_callback(callback.item_to_ruck, self.item_to_ruck, self) + self.object:set_callback(callback.item_to_belt, self.item_to_belt, self) + self.object:set_callback(callback.item_to_slot, self.item_to_slot, self) ----| end:aVo |---------------------------------------------------------------- end --------------------------------------------------------------------------------------------------------------------- ----| aVo |-------------------------------------------------------------------- --- Actor hit callback +-- actor hit callback function actor_binder:actor_hit(obj, amount, local_direction, who, bone_index) -- local msg = string.format("actor_hit %f, %i", amount, bone_index) -- get_console():execute("load ~:"..msg) end --- x-ray extensions key press callback ---function actor_binder:key_press(key) - --sm:call("key_press", key) ---end +-- key press callback +function actor_binder:key_press(key) + -- sm:call("key_press", key) + -- log1(string.format("key pressed %d", key)) + if key == DIK_keys.DIK_F7 then + log1("F7 pressed") + end +end +-- key release callback (turn on in build_config_defines.h only if absolutely needed) +function actor_binder:key_release(key) + -- sm:call("key_release", key) + -- log1(string.format("key released %d", key)) + if key == DIK_keys.DIK_F7 then + log1("F7 released") + end +end +-- key hold callback (turn on in build_config_defines.h only if absolutely needed) +function actor_binder:key_hold(key) + -- sm:call("key_hold", key) + -- log1(string.format("key hold %d", key)) + if key == DIK_keys.DIK_F7 then + log1("F7 hold") + end +end +-- mouse move callback (turn on in build_config_defines.h only if absolutely needed) +function actor_binder:mouse_move(dx, dy) + log1(string.format("mouse moved to: [%d]:[%d]", dx, dy)) +end +-- mouse wheel callback (direction is 120 up and -120 down) +function actor_binder:mouse_wheel(direction) + log1(string.format("mouse wheel moved %s", tostring(direction))) +end +-- item to ruck callback +-- note: this is called on new game and level change +function actor_binder:item_to_ruck(obj) + log1(string.format("item_to_ruck [%s]", obj:name())) +end +-- item to belt callback +-- note: this is called on new game and level change +function actor_binder:item_to_belt(obj) + log1(string.format("item_to_belt [%s]", obj:name())) +end +-- item to slot callback +-- note: this is called on new game and level change +function actor_binder:item_to_slot(obj) + log1(string.format("item_to_slot [%s]", obj:name())) +end ---------------------------------------------------------------------------------------------------------------------- function actor_binder:take_item_from_box(box, item) local box_name = box:name() diff --git a/src/build_config_defines.h b/src/build_config_defines.h new file mode 100644 index 00000000000..600aa9190ee --- /dev/null +++ b/src/build_config_defines.h @@ -0,0 +1,7 @@ +#pragma once + +/* Scripts */ +//#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) +//#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) +//#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) +#define FP_DEATH // first person death view \ No newline at end of file diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 19709170c3c..8b275ac78d4 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -74,6 +74,8 @@ #include "ActorHelmet.h" #include "UI/UIDragDropReferenceList.h" +#include "build_config_defines.h" + const u32 patch_frames = 50; const float respawn_delay = 1.f; const float respawn_auto = 7.f; @@ -846,9 +848,13 @@ void CActor::Die(CObject* who) if (IsGameTypeSingle()) { +#ifdef FP_DEATH + cam_Set(eacFirstEye); +#else cam_Set(eacFreeLook); +#endif // FP_DEATH CurrentGameUI()->HideShownDialogs(); - start_tutorial("game_over"); + //start_tutorial("game_over"); } else { diff --git a/src/xrGame/InventoryOwner.cpp b/src/xrGame/InventoryOwner.cpp index 5e154689157..2d1dd178245 100644 --- a/src/xrGame/InventoryOwner.cpp +++ b/src/xrGame/InventoryOwner.cpp @@ -27,473 +27,477 @@ #include "CustomOutfit.h" #include "Bolt.h" -CInventoryOwner::CInventoryOwner () +CInventoryOwner::CInventoryOwner() { - m_pTrade = NULL; - m_trade_parameters = 0; + m_pTrade = NULL; + m_trade_parameters = 0; - m_inventory = xr_new(); - m_pCharacterInfo = xr_new(); - - EnableTalk(); - EnableTrade(); - bDisableBreakDialog = false; + m_inventory = xr_new(); + m_pCharacterInfo = xr_new(); - m_known_info_registry = xr_new(); - m_tmp_active_slot_num = NO_ACTIVE_SLOT; - m_need_osoznanie_mode = FALSE; + EnableTalk(); + EnableTrade(); + bDisableBreakDialog = false; - m_deadbody_can_take = true; - m_deadbody_closed = false; - m_play_show_hide_reload_sounds = true; + m_known_info_registry = xr_new(); + m_tmp_active_slot_num = NO_ACTIVE_SLOT; + m_need_osoznanie_mode = FALSE; + + m_deadbody_can_take = true; + m_deadbody_closed = false; + m_play_show_hide_reload_sounds = true; } -DLL_Pure *CInventoryOwner::_construct () +DLL_Pure *CInventoryOwner::_construct() { - m_trade_parameters = 0; - m_purchase_list = 0; + m_trade_parameters = 0; + m_purchase_list = 0; - return (smart_cast(this)); + return (smart_cast(this)); } -CInventoryOwner::~CInventoryOwner () +CInventoryOwner::~CInventoryOwner() { - xr_delete (m_inventory); - xr_delete (m_pTrade); - xr_delete (m_pCharacterInfo); - xr_delete (m_known_info_registry); - xr_delete (m_trade_parameters); - xr_delete (m_purchase_list); + xr_delete(m_inventory); + xr_delete(m_pTrade); + xr_delete(m_pCharacterInfo); + xr_delete(m_known_info_registry); + xr_delete(m_trade_parameters); + xr_delete(m_purchase_list); } -void CInventoryOwner::Load (LPCSTR section) +void CInventoryOwner::Load(LPCSTR section) { - if(pSettings->line_exist(section, "inv_max_weight")) - m_inventory->SetMaxWeight( pSettings->r_float(section,"inv_max_weight") ); + if (pSettings->line_exist(section, "inv_max_weight")) + m_inventory->SetMaxWeight(pSettings->r_float(section, "inv_max_weight")); - if(pSettings->line_exist(section, "need_osoznanie_mode")) - { - m_need_osoznanie_mode=pSettings->r_bool(section,"need_osoznanie_mode"); - } - else - { - m_need_osoznanie_mode=FALSE; - } + if (pSettings->line_exist(section, "need_osoznanie_mode")) + { + m_need_osoznanie_mode = pSettings->r_bool(section, "need_osoznanie_mode"); + } + else + { + m_need_osoznanie_mode = FALSE; + } } -void CInventoryOwner::reload (LPCSTR section) +void CInventoryOwner::reload(LPCSTR section) { - inventory().Clear (); - inventory().m_pOwner = this; - inventory().SetSlotsUseful (true); + inventory().Clear(); + inventory().m_pOwner = this; + inventory().SetSlotsUseful(true); - m_money = 0; - m_bTrading = false; - m_bTalking = false; - m_pTalkPartner = NULL; + m_money = 0; + m_bTrading = false; + m_bTalking = false; + m_pTalkPartner = NULL; - CAttachmentOwner::reload (section); + CAttachmentOwner::reload(section); } -void CInventoryOwner::reinit () +void CInventoryOwner::reinit() { - CAttachmentOwner::reinit (); - m_item_to_spawn = shared_str(); - m_ammo_in_box_to_spawn = 0; + CAttachmentOwner::reinit(); + m_item_to_spawn = shared_str(); + m_ammo_in_box_to_spawn = 0; } //call this after CGameObject::net_Spawn -BOOL CInventoryOwner::net_Spawn (CSE_Abstract* DC) +BOOL CInventoryOwner::net_Spawn(CSE_Abstract* DC) { - if (!m_pTrade) - m_pTrade = xr_new(this); - - if (m_trade_parameters) - xr_delete (m_trade_parameters); + if (!m_pTrade) + m_pTrade = xr_new(this); - m_trade_parameters = xr_new(trade_section()); + if (m_trade_parameters) + xr_delete(m_trade_parameters); - //получить указатель на объект, InventoryOwner - //m_inventory->setSlotsBlocked(false); - CGameObject *pThis = smart_cast(this); - if(!pThis) return FALSE; - CSE_Abstract* E = (CSE_Abstract*)(DC); + m_trade_parameters = xr_new(trade_section()); - if ( IsGameTypeSingle() ) - { - CSE_ALifeTraderAbstract* pTrader = NULL; - if(E) pTrader = smart_cast(E); - if(!pTrader) return FALSE; + //получить указатель на объект, InventoryOwner + //m_inventory->setSlotsBlocked(false); + CGameObject *pThis = smart_cast(this); + if (!pThis) return FALSE; + CSE_Abstract* E = (CSE_Abstract*) (DC); - R_ASSERT( pTrader->character_profile().size() ); + if (IsGameTypeSingle()) + { + CSE_ALifeTraderAbstract* pTrader = NULL; + if (E) pTrader = smart_cast(E); + if (!pTrader) return FALSE; - //синхронизируем параметры персонажа с серверным объектом - CharacterInfo().Init(pTrader); + R_ASSERT(pTrader->character_profile().size()); - //------------------------------------- - m_known_info_registry->registry().init(E->ID); - //------------------------------------- + //синхронизируем параметры персонажа с серверным объектом + CharacterInfo().Init(pTrader); + //------------------------------------- + m_known_info_registry->registry().init(E->ID); + //------------------------------------- - CAI_PhraseDialogManager* dialog_manager = smart_cast(this); - if( dialog_manager && !dialog_manager->GetStartDialog().size() ) - { - dialog_manager->SetStartDialog(CharacterInfo().StartDialog()); - dialog_manager->SetDefaultStartDialog(CharacterInfo().StartDialog()); - } - m_game_name = pTrader->m_character_name; - - m_deadbody_can_take = pTrader->m_deadbody_can_take; - m_deadbody_closed = pTrader->m_deadbody_closed; - } - else - { - CharacterInfo().m_SpecificCharacter.Load ("mp_actor"); - CharacterInfo().InitSpecificCharacter ("mp_actor"); - CharacterInfo().m_SpecificCharacter.data()->m_sGameName = (E->name_replace()[0]) ? E->name_replace() : *pThis->cName(); - m_game_name = (E->name_replace()[0]) ? E->name_replace() : *pThis->cName(); - } - + CAI_PhraseDialogManager* dialog_manager = smart_cast(this); + if (dialog_manager && !dialog_manager->GetStartDialog().size()) + { + dialog_manager->SetStartDialog(CharacterInfo().StartDialog()); + dialog_manager->SetDefaultStartDialog(CharacterInfo().StartDialog()); + } + m_game_name = pTrader->m_character_name; - if(!pThis->Local()) return TRUE; + m_deadbody_can_take = pTrader->m_deadbody_can_take; + m_deadbody_closed = pTrader->m_deadbody_closed; + } + else + { + CharacterInfo().m_SpecificCharacter.Load("mp_actor"); + CharacterInfo().InitSpecificCharacter("mp_actor"); + CharacterInfo().m_SpecificCharacter.data()->m_sGameName = (E->name_replace()[0]) ? E->name_replace() : *pThis->cName(); + m_game_name = (E->name_replace()[0]) ? E->name_replace() : *pThis->cName(); + } + if (!pThis->Local()) return TRUE; - return TRUE; + return TRUE; } void CInventoryOwner::net_Destroy() { - CAttachmentOwner::net_Destroy(); - - inventory().Clear(); - inventory().SetActiveSlot(NO_ACTIVE_SLOT); -} + CAttachmentOwner::net_Destroy(); + inventory().Clear(); + inventory().SetActiveSlot(NO_ACTIVE_SLOT); +} -void CInventoryOwner::save (NET_Packet &output_packet) +void CInventoryOwner::save(NET_Packet &output_packet) { - if(inventory().GetActiveSlot() == NO_ACTIVE_SLOT) - output_packet.w_u8((u8)NO_ACTIVE_SLOT); - else - output_packet.w_u8((u8)inventory().GetActiveSlot()); + if (inventory().GetActiveSlot() == NO_ACTIVE_SLOT) + output_packet.w_u8((u8) NO_ACTIVE_SLOT); + else + output_packet.w_u8((u8) inventory().GetActiveSlot()); - CharacterInfo().save(output_packet); - save_data (m_game_name, output_packet); - save_data (m_money, output_packet); + CharacterInfo().save(output_packet); + save_data(m_game_name, output_packet); + save_data(m_money, output_packet); } -void CInventoryOwner::load (IReader &input_packet) +void CInventoryOwner::load(IReader &input_packet) { - u8 active_slot = input_packet.r_u8(); - if(active_slot == NO_ACTIVE_SLOT) - inventory().SetActiveSlot(NO_ACTIVE_SLOT); - //else - //inventory().Activate_deffered(active_slot, Device.dwFrame); + u8 active_slot = input_packet.r_u8(); + if (active_slot == NO_ACTIVE_SLOT) + inventory().SetActiveSlot(NO_ACTIVE_SLOT); + //else + //inventory().Activate_deffered(active_slot, Device.dwFrame); - m_tmp_active_slot_num = active_slot; + m_tmp_active_slot_num = active_slot; - CharacterInfo().load(input_packet); - load_data (m_game_name, input_packet); - load_data (m_money, input_packet); + CharacterInfo().load(input_packet); + load_data(m_game_name, input_packet); + load_data(m_money, input_packet); } - void CInventoryOwner::UpdateInventoryOwner(u32 deltaT) { - inventory().Update(); - - if ( m_pTrade ) - { - m_pTrade->UpdateTrade(); - } - if ( IsTrading() ) - { - //если мы умерли, то нет "trade" - if ( !is_alive() ) - { - StopTrading(); - } - } - - if ( IsTalking() ) - { - //если наш собеседник перестал говорить с нами, - //то и нам нечего ждать. - if ( !m_pTalkPartner->IsTalking() ) - { - StopTalk(); - } - - //если мы умерли, то тоже не говорить - if ( !is_alive() ) - { - StopTalk(); - } - } + inventory().Update(); + + if (m_pTrade) + { + m_pTrade->UpdateTrade(); + } + if (IsTrading()) + { + //если мы умерли, то нет "trade" + if (!is_alive()) + { + StopTrading(); + } + } + + if (IsTalking()) + { + //если наш собеседник перестал говорить с нами, + //то и нам нечего ждать. + if (!m_pTalkPartner->IsTalking()) + { + StopTalk(); + } + + //если мы умерли, то тоже не говорить + if (!is_alive()) + { + StopTalk(); + } + } } - //достать PDA из специального слота инвентаря CPda* CInventoryOwner::GetPDA() const { - return (CPda*)(m_inventory->ItemFromSlot(PDA_SLOT)); + return (CPda*) (m_inventory->ItemFromSlot(PDA_SLOT)); } -CTrade* CInventoryOwner::GetTrade() +CTrade* CInventoryOwner::GetTrade() { - R_ASSERT2(m_pTrade, "trade for object does not init yet"); - return m_pTrade; + R_ASSERT2(m_pTrade, "trade for object does not init yet"); + return m_pTrade; } - //состояние диалога //нам предлагают поговорить, -//проверяем наше отношение +//проверяем наше отношение //и если не враг начинаем разговор bool CInventoryOwner::OfferTalk(CInventoryOwner* talk_partner) { - if(!IsTalkEnabled()) return false; + if (!IsTalkEnabled()) return false; - //проверить отношение к собеседнику - CEntityAlive* pPartnerEntityAlive = smart_cast(talk_partner); - R_ASSERT(pPartnerEntityAlive); - -// ALife::ERelationType relation = RELATION_REGISTRY().GetRelationType(this, talk_partner); -// if(relation == ALife::eRelationTypeEnemy) return false; + //проверить отношение к собеседнику + CEntityAlive* pPartnerEntityAlive = smart_cast(talk_partner); + R_ASSERT(pPartnerEntityAlive); - if(!is_alive() || !pPartnerEntityAlive->g_Alive()) return false; + // ALife::ERelationType relation = RELATION_REGISTRY().GetRelationType(this, talk_partner); + // if(relation == ALife::eRelationTypeEnemy) return false; - StartTalk(talk_partner); + if (!is_alive() || !pPartnerEntityAlive->g_Alive()) return false; - return true; -} + StartTalk(talk_partner); + return true; +} void CInventoryOwner::StartTalk(CInventoryOwner* talk_partner, bool start_trade) { - m_bTalking = true; - m_pTalkPartner = talk_partner; - + m_bTalking = true; + m_pTalkPartner = talk_partner; } #include "UIGameSP.h" #include "ui\UITalkWnd.h" void CInventoryOwner::StopTalk() { - m_pTalkPartner = NULL; - m_bTalking = false; + m_pTalkPartner = NULL; + m_bTalking = false; - CUIGameSP* ui_sp = smart_cast(CurrentGameUI()); - if(ui_sp && ui_sp->TalkMenu->IsShown()) - ui_sp->TalkMenu->Stop(); + CUIGameSP* ui_sp = smart_cast(CurrentGameUI()); + if (ui_sp && ui_sp->TalkMenu->IsShown()) + ui_sp->TalkMenu->Stop(); } bool CInventoryOwner::IsTalking() { - return m_bTalking; + return m_bTalking; } void CInventoryOwner::StartTrading() { - m_bTrading = true; + m_bTrading = true; } void CInventoryOwner::StopTrading() { - m_bTrading = false; + m_bTrading = false; - CUIGameSP* ui_sp = smart_cast( CurrentGameUI() ); - if ( ui_sp ) - { - ui_sp->HideActorMenu(); - } + CUIGameSP* ui_sp = smart_cast(CurrentGameUI()); + if (ui_sp) + { + ui_sp->HideActorMenu(); + } } bool CInventoryOwner::IsTrading() { - return m_bTrading; + return m_bTrading; } //============== -void CInventoryOwner::renderable_Render () +void CInventoryOwner::renderable_Render() { - if (inventory().ActiveItem()) - inventory().ActiveItem()->renderable_Render(); + if (inventory().ActiveItem()) + inventory().ActiveItem()->renderable_Render(); - CAttachmentOwner::renderable_Render(); + CAttachmentOwner::renderable_Render(); } -void CInventoryOwner::OnItemTake (CInventoryItem *inventory_item) +void CInventoryOwner::OnItemTake(CInventoryItem *inventory_item) { - CGameObject *object = smart_cast(this); - VERIFY (object); - object->callback(GameObject::eOnItemTake)(inventory_item->object().lua_game_object()); + CGameObject *object = smart_cast(this); + VERIFY(object); + object->callback(GameObject::eOnItemTake)(inventory_item->object().lua_game_object()); - attach (inventory_item); + attach(inventory_item); - if(m_tmp_active_slot_num!=NO_ACTIVE_SLOT && - inventory_item->CurrPlace()==eItemPlaceSlot && - inventory_item->CurrSlot()==m_tmp_active_slot_num) - { - if(inventory().ItemFromSlot(m_tmp_active_slot_num)) - { - inventory().Activate(m_tmp_active_slot_num); - m_tmp_active_slot_num = NO_ACTIVE_SLOT; - } - } + if (m_tmp_active_slot_num != NO_ACTIVE_SLOT && + inventory_item->CurrPlace() == eItemPlaceSlot && + inventory_item->CurrSlot() == m_tmp_active_slot_num) + { + if (inventory().ItemFromSlot(m_tmp_active_slot_num)) + { + inventory().Activate(m_tmp_active_slot_num); + m_tmp_active_slot_num = NO_ACTIVE_SLOT; + } + } } //возвращает текуший разброс стрельбы с учетом движения (в радианах) -float CInventoryOwner::GetWeaponAccuracy () const +float CInventoryOwner::GetWeaponAccuracy() const { - return 0.f; + return 0.f; } //максимальный переносимы вес -float CInventoryOwner::MaxCarryWeight () const +float CInventoryOwner::MaxCarryWeight() const { - float ret = inventory().GetMaxWeight(); + float ret = inventory().GetMaxWeight(); - const CCustomOutfit* outfit = GetOutfit(); - if(outfit) - ret += outfit->m_additional_weight2; + const CCustomOutfit* outfit = GetOutfit(); + if (outfit) + ret += outfit->m_additional_weight2; - return ret; + return ret; } -void CInventoryOwner::spawn_supplies () +void CInventoryOwner::spawn_supplies() { - CGameObject *game_object = smart_cast(this); - VERIFY (game_object); - if (smart_cast(this)) return; - + CGameObject *game_object = smart_cast(this); + VERIFY(game_object); + if (smart_cast(this)) return; - if (use_bolts()) - Level().spawn_item ("bolt",game_object->Position(),game_object->ai_location().level_vertex_id(),game_object->ID()); + if (use_bolts()) + Level().spawn_item("bolt", game_object->Position(), game_object->ai_location().level_vertex_id(), game_object->ID()); - if (!ai().get_alife() && IsGameTypeSingle() ) - { - CSE_Abstract *abstract = Level().spawn_item("device_pda",game_object->Position(),game_object->ai_location().level_vertex_id(),game_object->ID(),true); - CSE_ALifeItemPDA *pda = smart_cast(abstract); - R_ASSERT (pda); - pda->m_original_owner = (u16)game_object->ID(); - NET_Packet P; - abstract->Spawn_Write (P,TRUE); - Level().Send (P,net_flags(TRUE)); - F_entity_Destroy (abstract); - } + if (!ai().get_alife() && IsGameTypeSingle()) + { + CSE_Abstract *abstract = Level().spawn_item("device_pda", game_object->Position(), game_object->ai_location().level_vertex_id(), game_object->ID(), true); + CSE_ALifeItemPDA *pda = smart_cast(abstract); + R_ASSERT(pda); + pda->m_original_owner = (u16) game_object->ID(); + NET_Packet P; + abstract->Spawn_Write(P, TRUE); + Level().Send(P, net_flags(TRUE)); + F_entity_Destroy(abstract); + } } -//игровое имя -LPCSTR CInventoryOwner::Name () const +//игровое имя +LPCSTR CInventoryOwner::Name() const { -// return CharacterInfo().Name(); - return m_game_name.c_str(); + // return CharacterInfo().Name(); + return m_game_name.c_str(); } -LPCSTR CInventoryOwner::IconName () const +LPCSTR CInventoryOwner::IconName() const { - return CharacterInfo().IconName().c_str(); + return CharacterInfo().IconName().c_str(); } - -void CInventoryOwner::NewPdaContact (CInventoryOwner* pInvOwner) +void CInventoryOwner::NewPdaContact(CInventoryOwner* pInvOwner) { } -void CInventoryOwner::LostPdaContact (CInventoryOwner* pInvOwner) +void CInventoryOwner::LostPdaContact(CInventoryOwner* pInvOwner) { } ////////////////////////////////////////////////////////////////////////// //для работы с relation system -u16 CInventoryOwner::object_id () const +u16 CInventoryOwner::object_id() const { - return smart_cast(this)->ID(); + return smart_cast(this)->ID(); } - ////////////////////////////////////////////////////////////////////////// //установка группировки на клиентском и серверном объкте -void CInventoryOwner::SetCommunity (CHARACTER_COMMUNITY_INDEX new_community) +void CInventoryOwner::SetCommunity(CHARACTER_COMMUNITY_INDEX new_community) { - CEntityAlive* EA = smart_cast(this); VERIFY(EA); + CEntityAlive* EA = smart_cast(this); VERIFY(EA); - CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); - if(!e_entity) return; + CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); + if (!e_entity) return; - CharacterInfo().SetCommunity( new_community ); - if( EA->g_Alive() ) - { - EA->ChangeTeam(CharacterInfo().Community().team(), EA->g_Squad(), EA->g_Group()); - } + CharacterInfo().SetCommunity(new_community); + if (EA->g_Alive()) + { + EA->ChangeTeam(CharacterInfo().Community().team(), EA->g_Squad(), EA->g_Group()); + } - CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); - if(!trader) return; -// EA->id_Team = CharacterInfo().Community().team(); - trader->m_community_index = new_community; + CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); + if (!trader) return; + // EA->id_Team = CharacterInfo().Community().team(); + trader->m_community_index = new_community; } -void CInventoryOwner::SetRank (CHARACTER_RANK_VALUE rank) +void CInventoryOwner::SetRank(CHARACTER_RANK_VALUE rank) { - CEntityAlive* EA = smart_cast(this); VERIFY(EA); - CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); - if(!e_entity) return; - CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); - if(!trader) return; + CEntityAlive* EA = smart_cast(this); VERIFY(EA); + CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); + if (!e_entity) return; + CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); + if (!trader) return; - CharacterInfo().m_CurrentRank.set(rank); - trader->m_rank = rank; + CharacterInfo().m_CurrentRank.set(rank); + trader->m_rank = rank; } -void CInventoryOwner::ChangeRank (CHARACTER_RANK_VALUE delta) +void CInventoryOwner::ChangeRank(CHARACTER_RANK_VALUE delta) { - SetRank(Rank()+delta); + SetRank(Rank() + delta); } -void CInventoryOwner::SetReputation (CHARACTER_REPUTATION_VALUE reputation) +void CInventoryOwner::SetReputation(CHARACTER_REPUTATION_VALUE reputation) { - CEntityAlive* EA = smart_cast(this); VERIFY(EA); - CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); - if(!e_entity) return; + CEntityAlive* EA = smart_cast(this); VERIFY(EA); + CSE_Abstract* e_entity = ai().alife().objects().object(EA->ID(), false); + if (!e_entity) return; - CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); - if(!trader) return; + CSE_ALifeTraderAbstract* trader = smart_cast(e_entity); + if (!trader) return; - CharacterInfo().m_CurrentReputation.set(reputation); - trader->m_reputation = reputation; + CharacterInfo().m_CurrentReputation.set(reputation); + trader->m_reputation = reputation; } -void CInventoryOwner::ChangeReputation (CHARACTER_REPUTATION_VALUE delta) +void CInventoryOwner::ChangeReputation(CHARACTER_REPUTATION_VALUE delta) { - SetReputation(Reputation() + delta); + SetReputation(Reputation() + delta); } - void CInventoryOwner::OnItemDrop(CInventoryItem *inventory_item, bool just_before_destroy) { - CGameObject *object = smart_cast(this); - VERIFY (object); - object->callback(GameObject::eOnItemDrop)(inventory_item->object().lua_game_object()); + CGameObject *object = smart_cast(this); + VERIFY(object); + object->callback(GameObject::eOnItemDrop)(inventory_item->object().lua_game_object()); - detach (inventory_item); + detach(inventory_item); } -void CInventoryOwner::OnItemDropUpdate () +void CInventoryOwner::OnItemDropUpdate() { } -void CInventoryOwner::OnItemBelt (CInventoryItem *inventory_item, const SInvItemPlace& previous_place) +void CInventoryOwner::OnItemBelt(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { + /* avo: script callback */ + CGameObject *object = smart_cast(this); + VERIFY(object); + object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()); + /* avo: end */ } -void CInventoryOwner::OnItemRuck (CInventoryItem *inventory_item, const SInvItemPlace& previous_place) +void CInventoryOwner::OnItemRuck(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { - detach (inventory_item); + /* avo: script callback */ + CGameObject *object = smart_cast(this); + VERIFY(object); + object->callback(GameObject::eItemToRuck)(inventory_item->object().lua_game_object()); + /* avo: end */ + + detach(inventory_item); } -void CInventoryOwner::OnItemSlot (CInventoryItem *inventory_item, const SInvItemPlace& previous_place) +void CInventoryOwner::OnItemSlot(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { - attach (inventory_item); + /* avo: script callback */ + CGameObject *object = smart_cast(this); + VERIFY(object); + object->callback(GameObject::eItemToSlot)(inventory_item->object().lua_game_object()); + /* avo: end */ + + attach(inventory_item); } CCustomOutfit* CInventoryOwner::GetOutfit() const @@ -501,156 +505,156 @@ CCustomOutfit* CInventoryOwner::GetOutfit() const return smart_cast(inventory().ItemFromSlot(OUTFIT_SLOT)); } -void CInventoryOwner::on_weapon_shot_start (CWeapon *weapon) +void CInventoryOwner::on_weapon_shot_start(CWeapon *weapon) { } -void CInventoryOwner::on_weapon_shot_update () +void CInventoryOwner::on_weapon_shot_update() { } -void CInventoryOwner::on_weapon_shot_stop () +void CInventoryOwner::on_weapon_shot_stop() { } -void CInventoryOwner::on_weapon_shot_remove (CWeapon *weapon) +void CInventoryOwner::on_weapon_shot_remove(CWeapon *weapon) { } -void CInventoryOwner::on_weapon_hide (CWeapon *weapon) +void CInventoryOwner::on_weapon_hide(CWeapon *weapon) { } -LPCSTR CInventoryOwner::trade_section () const +LPCSTR CInventoryOwner::trade_section() const { - const CGameObject *game_object = smart_cast(this); - VERIFY (game_object); - return (READ_IF_EXISTS(pSettings,r_string,game_object->cNameSect(),"trade_section","trade")); + const CGameObject *game_object = smart_cast(this); + VERIFY(game_object); + return (READ_IF_EXISTS(pSettings, r_string, game_object->cNameSect(), "trade_section", "trade")); } -float CInventoryOwner::deficit_factor (const shared_str §ion) const +float CInventoryOwner::deficit_factor(const shared_str §ion) const { - if (!m_purchase_list) - return (1.f); + if (!m_purchase_list) + return (1.f); - return (m_purchase_list->deficit(section)); + return (m_purchase_list->deficit(section)); } -void CInventoryOwner::buy_supplies (CInifile &ini_file, LPCSTR section) +void CInventoryOwner::buy_supplies(CInifile &ini_file, LPCSTR section) { - if (!m_purchase_list) - m_purchase_list = xr_new(); + if (!m_purchase_list) + m_purchase_list = xr_new(); - m_purchase_list->process (ini_file,section,*this); + m_purchase_list->process(ini_file, section, *this); } -void CInventoryOwner::sell_useless_items () +void CInventoryOwner::sell_useless_items() { - CGameObject *object = smart_cast(this); + CGameObject *object = smart_cast(this); - TIItemContainer::iterator I = inventory().m_all.begin(); - TIItemContainer::iterator E = inventory().m_all.end(); - for ( ; I != E; ++I) { - if ( smart_cast( *I ) ) - { - continue; - } - CInventoryItem* item = smart_cast( *I ); - if (item->CurrSlot()&&item->cast_weapon()) - continue; + TIItemContainer::iterator I = inventory().m_all.begin(); + TIItemContainer::iterator E = inventory().m_all.end(); + for (; I != E; ++I) + { + if (smart_cast(*I)) + { + continue; + } + CInventoryItem* item = smart_cast(*I); + if (item->CurrSlot() && item->cast_weapon()) + continue; - CPda* pda = smart_cast( *I ); - if ( pda ) - { - if (pda->GetOriginalOwnerID() == object->ID()) - { - continue; - } - } - (*I)->SetDropManual(FALSE); - (*I)->object().DestroyObject(); - } + CPda* pda = smart_cast(*I); + if (pda) + { + if (pda->GetOriginalOwnerID() == object->ID()) + { + continue; + } + } + (*I)->SetDropManual(FALSE); + (*I)->object().DestroyObject(); + } } -bool CInventoryOwner::AllowItemToTrade (CInventoryItem const * item, const SInvItemPlace& place) const +bool CInventoryOwner::AllowItemToTrade(CInventoryItem const * item, const SInvItemPlace& place) const { - return ( - trade_parameters().enabled( - CTradeParameters::action_sell(0), - item->object().cNameSect() - ) - ); + return ( + trade_parameters().enabled( + CTradeParameters::action_sell(0), + item->object().cNameSect() + ) + ); } -void CInventoryOwner::set_money (u32 amount, bool bSendEvent) +void CInventoryOwner::set_money(u32 amount, bool bSendEvent) { + if (InfinitiveMoney()) + m_money = _max(m_money, amount); + else + m_money = amount; - if(InfinitiveMoney()) - m_money = _max(m_money, amount); - else - m_money = amount; - - if(bSendEvent) - { - CGameObject *object = smart_cast(this); - NET_Packet packet; - object->u_EventGen (packet,GE_MONEY,object->ID()); - packet.w_u32 (m_money); - object->u_EventSend (packet); - } + if (bSendEvent) + { + CGameObject *object = smart_cast(this); + NET_Packet packet; + object->u_EventGen(packet, GE_MONEY, object->ID()); + packet.w_u32(m_money); + object->u_EventSend(packet); + } } -bool CInventoryOwner::use_default_throw_force () +bool CInventoryOwner::use_default_throw_force() { - return (true); + return (true); } -float CInventoryOwner::missile_throw_force () +float CInventoryOwner::missile_throw_force() { - NODEFAULT; + NODEFAULT; #ifdef DEBUG - return (0.f); + return (0.f); #endif } -bool CInventoryOwner::use_throw_randomness () +bool CInventoryOwner::use_throw_randomness() { - return (true); + return (true); } bool CInventoryOwner::is_alive() { - CEntityAlive* pEntityAlive = smart_cast(this); - R_ASSERT( pEntityAlive ); - return (!!pEntityAlive->g_Alive()); + CEntityAlive* pEntityAlive = smart_cast(this); + R_ASSERT(pEntityAlive); + return (!!pEntityAlive->g_Alive()); } -void CInventoryOwner::deadbody_can_take( bool status ) +void CInventoryOwner::deadbody_can_take(bool status) { - if ( is_alive() ) - { - return; - } - m_deadbody_can_take = status; + if (is_alive()) + { + return; + } + m_deadbody_can_take = status; - NET_Packet P; - CGameObject::u_EventGen( P, GE_INV_OWNER_STATUS, object_id() ); - P.w_u8( (m_deadbody_can_take)? 1 : 0 ); - P.w_u8( (m_deadbody_closed)? 1 : 0 ); - CGameObject::u_EventSend( P ); + NET_Packet P; + CGameObject::u_EventGen(P, GE_INV_OWNER_STATUS, object_id()); + P.w_u8((m_deadbody_can_take) ? 1 : 0); + P.w_u8((m_deadbody_closed) ? 1 : 0); + CGameObject::u_EventSend(P); } -void CInventoryOwner::deadbody_closed( bool status ) +void CInventoryOwner::deadbody_closed(bool status) { - if ( is_alive() ) - { - return; - } - m_deadbody_closed = status; + if (is_alive()) + { + return; + } + m_deadbody_closed = status; - NET_Packet P; - CGameObject::u_EventGen( P, GE_INV_OWNER_STATUS, object_id() ); - P.w_u8( (m_deadbody_can_take)? 1 : 0 ); - P.w_u8( (m_deadbody_closed)? 1 : 0 ); - CGameObject::u_EventSend( P ); + NET_Packet P; + CGameObject::u_EventGen(P, GE_INV_OWNER_STATUS, object_id()); + P.w_u8((m_deadbody_can_take) ? 1 : 0); + P.w_u8((m_deadbody_closed) ? 1 : 0); + CGameObject::u_EventSend(P); } \ No newline at end of file diff --git a/src/xrGame/Level_input.cpp b/src/xrGame/Level_input.cpp index 444f74ce103..2f1ac089c17 100644 --- a/src/xrGame/Level_input.cpp +++ b/src/xrGame/Level_input.cpp @@ -24,6 +24,8 @@ #include "../Include/xrRender/DebugRender.h" +#include "build_config_defines.h" + #ifdef DEBUG # include "ai/monsters/BaseMonster/base_monster.h" @@ -32,8 +34,8 @@ #endif #ifdef DEBUG - extern void try_change_current_entity(); - extern void restore_actor(); +extern void try_change_current_entity(); +extern void restore_actor(); #endif bool g_bDisableAllInput = false; @@ -41,47 +43,64 @@ extern float g_fTimeFactor; #define CURRENT_ENTITY() (game?((GameID() == eGameIDSingle) ? CurrentEntity() : CurrentControlEntity()):NULL) -void CLevel::IR_OnMouseWheel( int direction ) +void CLevel::IR_OnMouseWheel(int direction) { - if( g_bDisableAllInput ) return; + if (g_bDisableAllInput) return; + + /* avo: script callback */ + if (g_actor) g_actor->callback(GameObject::eMouseWheel)(direction); + /* avo: end */ - if (CurrentGameUI()->IR_UIOnMouseWheel(direction)) return; - if( Device.Paused() + if (CurrentGameUI()->IR_UIOnMouseWheel(direction)) return; + if (Device.Paused() #ifdef DEBUG - && !psActorFlags.test(AF_NO_CLIP) + && !psActorFlags.test(AF_NO_CLIP) #endif //DEBUG - ) return; + ) return; - if (CURRENT_ENTITY()) - { - IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); - if (IR) IR->IR_OnMouseWheel(direction); - } + if (CURRENT_ENTITY()) + { + IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); + if (IR) IR->IR_OnMouseWheel(direction); + } } -static int mouse_button_2_key [] = {MOUSE_1,MOUSE_2,MOUSE_3}; +static int mouse_button_2_key[] = {MOUSE_1, MOUSE_2, MOUSE_3}; void CLevel::IR_OnMousePress(int btn) -{ IR_OnKeyboardPress(mouse_button_2_key[btn]);} +{ + IR_OnKeyboardPress(mouse_button_2_key[btn]); +} void CLevel::IR_OnMouseRelease(int btn) -{ IR_OnKeyboardRelease(mouse_button_2_key[btn]);} +{ + IR_OnKeyboardRelease(mouse_button_2_key[btn]); +} void CLevel::IR_OnMouseHold(int btn) -{ IR_OnKeyboardHold(mouse_button_2_key[btn]);} +{ + IR_OnKeyboardHold(mouse_button_2_key[btn]); +} -void CLevel::IR_OnMouseMove( int dx, int dy ) +void CLevel::IR_OnMouseMove(int dx, int dy) { - if(g_bDisableAllInput) return; - if (CurrentGameUI()->IR_UIOnMouseMove(dx,dy)) return; - if (Device.Paused() && !IsDemoPlay() + if (g_bDisableAllInput) return; + +#ifdef MOUSE_MOVE_CALLBACK +/* avo: script callback */ + if (g_actor) g_actor->callback(GameObject::eMouseMove)(dx, dy); + /* avo: end */ +#endif // MOUSE_MOVE_CALLBACK + + if (CurrentGameUI()->IR_UIOnMouseMove(dx, dy)) return; + if (Device.Paused() && !IsDemoPlay() #ifdef DEBUG - && !psActorFlags.test(AF_NO_CLIP) + && !psActorFlags.test(AF_NO_CLIP) #endif //DEBUG - ) return; - if (CURRENT_ENTITY()) - { - IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); - if (IR) IR->IR_OnMouseMove (dx,dy); - } + ) return; + if (CURRENT_ENTITY()) + { + IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); + if (IR) IR->IR_OnMouseMove(dx, dy); + } } // Обработка нажатия клавиш @@ -95,454 +114,473 @@ extern float g_separate_radius; #include "script_engine.h" #include "ai_space.h" -void CLevel::IR_OnKeyboardPress (int key) +void CLevel::IR_OnKeyboardPress(int key) { - if(Device.dwPrecacheFrame) - return; + if (Device.dwPrecacheFrame) + return; #ifdef INGAME_EDITOR - if (Device.editor() && (pInput->iGetAsyncKeyState(DIK_LALT) || pInput->iGetAsyncKeyState(DIK_RALT))) - return; + if (Device.editor() && (pInput->iGetAsyncKeyState(DIK_LALT) || pInput->iGetAsyncKeyState(DIK_RALT))) + return; #endif // #ifdef INGAME_EDITOR - bool b_ui_exist = (!!CurrentGameUI()); + bool b_ui_exist = (!!CurrentGameUI()); + + EGameActions _curr = get_binded_action(key); - EGameActions _curr = get_binded_action(key); + /* avo: script callback */ + if (!g_bDisableAllInput && g_actor) g_actor->callback(GameObject::eKeyPress)(key); + /* avo: end */ - if(_curr==kPAUSE) - { - #ifdef INGAME_EDITOR - if (Device.editor()) return; - #endif // INGAME_EDITOR + if (_curr == kPAUSE) + { +#ifdef INGAME_EDITOR + if (Device.editor()) return; +#endif // INGAME_EDITOR - if (!g_block_pause && (IsGameTypeSingle() || IsDemoPlay())) - { + if (!g_block_pause && (IsGameTypeSingle() || IsDemoPlay())) + { #ifdef DEBUG - if(psActorFlags.test(AF_NO_CLIP)) - Device.Pause(!Device.Paused(), TRUE, TRUE, "li_pause_key_no_clip"); - else + if(psActorFlags.test(AF_NO_CLIP)) + Device.Pause(!Device.Paused(), TRUE, TRUE, "li_pause_key_no_clip"); + else #endif //DEBUG - Device.Pause(!Device.Paused(), TRUE, TRUE, "li_pause_key"); - } - return; - } - - if( g_bDisableAllInput ) return; - - switch ( _curr ) - { - case kSCREENSHOT: - Render->Screenshot(); - return; - break; - - case kCONSOLE: - Console->Show (); - return; - break; - - case kQUIT: - { - if(b_ui_exist && CurrentGameUI()->TopInputReceiver() ) - { - if(CurrentGameUI()->IR_UIOnKeyboardPress(key)) return;//special case for mp and main_menu - CurrentGameUI()->TopInputReceiver()->HideDialog(); - }else - { - Console->Execute("main_menu"); - }return; - }break; - }; - - if ( !bReady || !b_ui_exist ) return; - - if ( b_ui_exist && CurrentGameUI()->IR_UIOnKeyboardPress(key)) return; - - if ( Device.Paused() && !IsDemoPlay() + Device.Pause(!Device.Paused(), TRUE, TRUE, "li_pause_key"); + } + return; + } + + if (g_bDisableAllInput) return; + + switch (_curr) + { + case kSCREENSHOT: + Render->Screenshot(); + return; + break; + + case kCONSOLE: + Console->Show(); + return; + break; + + case kQUIT: + { + if (b_ui_exist && CurrentGameUI()->TopInputReceiver()) + { + if (CurrentGameUI()->IR_UIOnKeyboardPress(key)) return;//special case for mp and main_menu + CurrentGameUI()->TopInputReceiver()->HideDialog(); + } + else + { + Console->Execute("main_menu"); + }return; + }break; + }; + + if (!bReady || !b_ui_exist) return; + + if (b_ui_exist && CurrentGameUI()->IR_UIOnKeyboardPress(key)) return; + + if (Device.Paused() && !IsDemoPlay() #ifdef DEBUG - && !psActorFlags.test(AF_NO_CLIP) + && !psActorFlags.test(AF_NO_CLIP) #endif //DEBUG - ) return; + ) return; - if ( game && game->OnKeyboardPress(get_binded_action(key)) ) return; + if (game && game->OnKeyboardPress(get_binded_action(key))) return; - if(_curr == kQUICK_SAVE && IsGameTypeSingle()) - { - Console->Execute ("save"); - return; - } - if(_curr == kQUICK_LOAD && IsGameTypeSingle()) - { + if (_curr == kQUICK_SAVE && IsGameTypeSingle()) + { + Console->Execute("save"); + return; + } + if (_curr == kQUICK_LOAD && IsGameTypeSingle()) + { #ifdef DEBUG - FS.get_path ("$game_config$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.get_path ("$game_scripts$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.rescan_pathes (); + FS.get_path ("$game_config$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.get_path ("$game_scripts$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.rescan_pathes (); #endif // DEBUG - string_path saved_game,command; - strconcat (sizeof(saved_game),saved_game,Core.UserName," - ","quicksave"); - if (!CSavedGameWrapper::valid_saved_game(saved_game)) - return; + string_path saved_game, command; + strconcat(sizeof(saved_game), saved_game, Core.UserName, " - ", "quicksave"); + if (!CSavedGameWrapper::valid_saved_game(saved_game)) + return; - strconcat (sizeof(command),command,"load ",saved_game); - Console->Execute (command); - return; - } + strconcat(sizeof(command), command, "load ", saved_game); + Console->Execute(command); + return; + } #ifndef MASTER_GOLD - switch (key) { - case DIK_F7: { - if (GameID() != eGameIDSingle) return; - FS.get_path ("$game_config$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.get_path ("$game_scripts$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.rescan_pathes (); - NET_Packet net_packet; - net_packet.w_begin (M_RELOAD_GAME); - Send (net_packet,net_flags(TRUE)); - return; - } - case DIK_DIVIDE: { - if (!Server) - break; - - SetGameTimeFactor (g_fTimeFactor); + switch (key) { + case DIK_F7: { + if (GameID() != eGameIDSingle) return; + FS.get_path ("$game_config$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.get_path ("$game_scripts$")->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.rescan_pathes (); + NET_Packet net_packet; + net_packet.w_begin (M_RELOAD_GAME); + Send (net_packet,net_flags(TRUE)); + return; + } + case DIK_DIVIDE: { + if (!Server) + break; + + SetGameTimeFactor (g_fTimeFactor); #ifdef DEBUG - if(!m_bEnvPaused) - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); + if(!m_bEnvPaused) + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); #else //DEBUG - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); #endif //DEBUG - - break; - } - case DIK_MULTIPLY: { - if (!Server) - break; - - SetGameTimeFactor (1000.f); + + break; + } + case DIK_MULTIPLY: { + if (!Server) + break; + + SetGameTimeFactor (1000.f); #ifdef DEBUG - if(!m_bEnvPaused) - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 1000.f); + if(!m_bEnvPaused) + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 1000.f); #else //DEBUG - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 1000.f); + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 1000.f); #endif //DEBUG - - break; - } + + break; + } #ifdef DEBUG - case DIK_SUBTRACT:{ - if (!Server) - break; - if(m_bEnvPaused) - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); - else - SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 0.00001f); - - m_bEnvPaused = !m_bEnvPaused; - break; - } + case DIK_SUBTRACT:{ + if (!Server) + break; + if(m_bEnvPaused) + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), g_fTimeFactor); + else + SetEnvironmentGameTimeFactor(GetEnvironmentGameTime(), 0.00001f); + + m_bEnvPaused = !m_bEnvPaused; + break; + } #endif //DEBUG - case DIK_NUMPAD5: - { - if (GameID()!=eGameIDSingle) - { - Msg("For this game type Demo Record is disabled."); -/// return; - }; - if(!pInput->iGetAsyncKeyState(DIK_LSHIFT)) - { - Console->Hide (); - Console->Execute("demo_record 1"); - } - } - break; + case DIK_NUMPAD5: + { + if (GameID()!=eGameIDSingle) + { + Msg("For this game type Demo Record is disabled."); + /// return; + }; + if(!pInput->iGetAsyncKeyState(DIK_LSHIFT)) + { + Console->Hide (); + Console->Execute("demo_record 1"); + } + } + break; #ifdef DEBUG - // Lain: added TEMP!!! - case DIK_UP: - { - g_separate_factor /= 0.9f; - break; - } - case DIK_DOWN: - { - g_separate_factor *= 0.9f; - if ( g_separate_factor < 0.1f ) - { - g_separate_factor = 0.1f; - } - break; - } - case DIK_LEFT: - { - g_separate_radius *= 0.9f; - if ( g_separate_radius < 0 ) - { - g_separate_radius = 0; - } - break; - } - case DIK_RIGHT: - { - g_separate_radius /= 0.9f; - break; - } - - case DIK_RETURN: { - bDebug = !bDebug; - return; - } - case DIK_BACK: - if (GameID() == eGameIDSingle) - DRender->NextSceneMode(); - //HW.Caps.SceneMode = (HW.Caps.SceneMode+1)%3; - return; - - case DIK_F4: { - if (pInput->iGetAsyncKeyState(DIK_LALT)) - break; - - if (pInput->iGetAsyncKeyState(DIK_RALT)) - break; - - bool bOk = false; - u32 i=0, j, n=Objects.o_count(); - if (pCurrentEntity) - for ( ; i(Objects.o_get_by_iterator(i)); - if (tpEntityAlive) { - bOk = true; - break; - } - } - if (!bOk) - for (i = 0; i (Objects.o_get_by_iterator(i)); - if (tpEntityAlive) { - bOk = true; - break; - } - } - if (bOk) { - CObject *tpObject = CurrentEntity(); - CObject *__I = Objects.o_get_by_iterator(i); - CObject **I = &__I; - - SetEntity(*I); - if (tpObject != *I) - { - CActor* pActor = smart_cast (tpObject); - if (pActor) - pActor->inventory().Items_SetCurrentEntityHud(false); - } - if (tpObject) - { - Engine.Sheduler.Unregister (tpObject); - Engine.Sheduler.Register (tpObject, TRUE); - }; - Engine.Sheduler.Unregister (*I); - Engine.Sheduler.Register (*I, TRUE); - - CActor* pActor = smart_cast (*I); - if (pActor) - { - pActor->inventory().Items_SetCurrentEntityHud(true); - - CHudItem* pHudItem = smart_cast(pActor->inventory().ActiveItem()); - if (pHudItem) - { - pHudItem->OnStateSwitch(pHudItem->GetState()); - } - } - } - } - return; - } - // Lain: added - case DIK_F5: - { - if ( CBaseMonster* pBM = smart_cast(CurrentEntity())) - { - DBG().log_debug_info(); - } - break; - } - - case MOUSE_1: { - if (GameID() != eGameIDSingle) - break; - - if (pInput->iGetAsyncKeyState(DIK_LALT)) { - if (smart_cast(CurrentEntity())) - try_change_current_entity (); - else - restore_actor (); - return; - } - break; - } - /**/ + // Lain: added TEMP!!! + case DIK_UP: + { + g_separate_factor /= 0.9f; + break; + } + case DIK_DOWN: + { + g_separate_factor *= 0.9f; + if ( g_separate_factor < 0.1f ) + { + g_separate_factor = 0.1f; + } + break; + } + case DIK_LEFT: + { + g_separate_radius *= 0.9f; + if ( g_separate_radius < 0 ) + { + g_separate_radius = 0; + } + break; + } + case DIK_RIGHT: + { + g_separate_radius /= 0.9f; + break; + } + + case DIK_RETURN: { + bDebug = !bDebug; + return; + } + case DIK_BACK: + if (GameID() == eGameIDSingle) + DRender->NextSceneMode(); + //HW.Caps.SceneMode = (HW.Caps.SceneMode+1)%3; + return; + + case DIK_F4: { + if (pInput->iGetAsyncKeyState(DIK_LALT)) + break; + + if (pInput->iGetAsyncKeyState(DIK_RALT)) + break; + + bool bOk = false; + u32 i=0, j, n=Objects.o_count(); + if (pCurrentEntity) + for ( ; i(Objects.o_get_by_iterator(i)); + if (tpEntityAlive) { + bOk = true; + break; + } + } + if (!bOk) + for (i = 0; i (Objects.o_get_by_iterator(i)); + if (tpEntityAlive) { + bOk = true; + break; + } + } + if (bOk) { + CObject *tpObject = CurrentEntity(); + CObject *__I = Objects.o_get_by_iterator(i); + CObject **I = &__I; + + SetEntity(*I); + if (tpObject != *I) + { + CActor* pActor = smart_cast (tpObject); + if (pActor) + pActor->inventory().Items_SetCurrentEntityHud(false); + } + if (tpObject) + { + Engine.Sheduler.Unregister (tpObject); + Engine.Sheduler.Register (tpObject, TRUE); + }; + Engine.Sheduler.Unregister (*I); + Engine.Sheduler.Register (*I, TRUE); + + CActor* pActor = smart_cast (*I); + if (pActor) + { + pActor->inventory().Items_SetCurrentEntityHud(true); + + CHudItem* pHudItem = smart_cast(pActor->inventory().ActiveItem()); + if (pHudItem) + { + pHudItem->OnStateSwitch(pHudItem->GetState()); + } + } + } + } + return; + } + // Lain: added + case DIK_F5: + { + if ( CBaseMonster* pBM = smart_cast(CurrentEntity())) + { + DBG().log_debug_info(); + } + break; + } + + case MOUSE_1: { + if (GameID() != eGameIDSingle) + break; + + if (pInput->iGetAsyncKeyState(DIK_LALT)) { + if (smart_cast(CurrentEntity())) + try_change_current_entity (); + else + restore_actor (); + return; + } + break; + } + /**/ #endif #ifdef DEBUG - case DIK_F9:{ -// if (!ai().get_alife()) -// break; -// const_cast(ai().alife().header()).set_state(ALife::eZoneStateSurge); - break; - } - return; -// case DIK_F10:{ -// ai().level_graph().set_dest_point(); -// ai().level_graph().build_detail_path(); -// if (!Objects.FindObjectByName("m_stalker_e0000") || !Objects.FindObjectByName("localhost/dima")) -// return; -// if (!m_bSynchronization) { -// m_bSynchronization = true; -// ai().level_graph().set_start_point(); -// m_bSynchronization = false; -// } -// luabind::functor functor; -// ai().script_engine().functor("alife_test.set_switch_online",functor); -// functor(0,false); -// } -// return; -// case DIK_F11: -// ai().level_graph().build_detail_path(); -// if (!Objects.FindObjectByName("m_stalker_e0000") || !Objects.FindObjectByName("localhost/dima")) -// return; -// if (!m_bSynchronization) { -// m_bSynchronization = true; -// ai().level_graph().set_dest_point(); -// ai().level_graph().select_cover_point(); -// m_bSynchronization = false; -// } -// return; + case DIK_F9:{ + // if (!ai().get_alife()) + // break; + // const_cast(ai().alife().header()).set_state(ALife::eZoneStateSurge); + break; + } + return; + // case DIK_F10:{ + // ai().level_graph().set_dest_point(); + // ai().level_graph().build_detail_path(); + // if (!Objects.FindObjectByName("m_stalker_e0000") || !Objects.FindObjectByName("localhost/dima")) + // return; + // if (!m_bSynchronization) { + // m_bSynchronization = true; + // ai().level_graph().set_start_point(); + // m_bSynchronization = false; + // } + // luabind::functor functor; + // ai().script_engine().functor("alife_test.set_switch_online",functor); + // functor(0,false); + // } + // return; + // case DIK_F11: + // ai().level_graph().build_detail_path(); + // if (!Objects.FindObjectByName("m_stalker_e0000") || !Objects.FindObjectByName("localhost/dima")) + // return; + // if (!m_bSynchronization) { + // m_bSynchronization = true; + // ai().level_graph().set_dest_point(); + // ai().level_graph().select_cover_point(); + // m_bSynchronization = false; + // } + // return; #endif // DEBUG - } + } #endif // MASTER_GOLD - if (bindConsoleCmds.execute(key)) - return; - - if (CURRENT_ENTITY()) - { - IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); - if (IR) IR->IR_OnKeyboardPress(get_binded_action(key)); - } - - - #ifdef _DEBUG - CObject *obj = Level().Objects.FindObjectByName("monster"); - if (obj) { - CBaseMonster *monster = smart_cast(obj); - if (monster) - monster->debug_on_key(key); - } - #endif + if (bindConsoleCmds.execute(key)) + return; + + if (CURRENT_ENTITY()) + { + IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); + if (IR) IR->IR_OnKeyboardPress(get_binded_action(key)); + } + +#ifdef _DEBUG + CObject *obj = Level().Objects.FindObjectByName("monster"); + if (obj) { + CBaseMonster *monster = smart_cast(obj); + if (monster) + monster->debug_on_key(key); + } +#endif } void CLevel::IR_OnKeyboardRelease(int key) { - if (!bReady || g_bDisableAllInput ) return; - if ( CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardRelease(key)) return; - if (game && game->OnKeyboardRelease(get_binded_action(key)) ) return; - if (Device.Paused() + if (!bReady || g_bDisableAllInput) return; + +#ifdef KEY_RELEASE_CALLBACK + /* avo: script callback */ + if (g_actor) g_actor->callback(GameObject::eKeyRelease)(key); + /* avo: end */ +#endif // KEY_RELEASE_CALLBACK + + if (CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardRelease(key)) return; + if (game && game->OnKeyboardRelease(get_binded_action(key))) return; + if (Device.Paused() #ifdef DEBUG - && !psActorFlags.test(AF_NO_CLIP) + && !psActorFlags.test(AF_NO_CLIP) #endif //DEBUG - ) return; + ) return; - if (CURRENT_ENTITY()) - { - IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); - if (IR) IR->IR_OnKeyboardRelease (get_binded_action(key)); - } + if (CURRENT_ENTITY()) + { + IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); + if (IR) IR->IR_OnKeyboardRelease(get_binded_action(key)); + } } void CLevel::IR_OnKeyboardHold(int key) { - if(g_bDisableAllInput) return; + if (g_bDisableAllInput) return; + +#ifdef KEY_HOLD_CALLBACK + /* avo: script callback */ + if (g_actor) g_actor->callback(GameObject::eKeyHold)(key); + /* avo: end */ +#endif // KEY_HOLD_CALLBACK + #ifdef DEBUG - // Lain: added - if ( key == DIK_UP ) - { - static u32 time = Device.dwTimeGlobal; - if ( Device.dwTimeGlobal - time > 20 ) - { - if ( CBaseMonster* pBM = smart_cast(CurrentEntity()) ) - { - DBG().debug_info_up(); - time = Device.dwTimeGlobal; - } - } - } - else if ( key == DIK_DOWN ) - { - static u32 time = Device.dwTimeGlobal; - if ( Device.dwTimeGlobal - time > 20 ) - { - if ( CBaseMonster* pBM = smart_cast(CurrentEntity()) ) - { - DBG().debug_info_down(); - time = Device.dwTimeGlobal; - } - } - } + // Lain: added + if ( key == DIK_UP ) + { + static u32 time = Device.dwTimeGlobal; + if ( Device.dwTimeGlobal - time > 20 ) + { + if ( CBaseMonster* pBM = smart_cast(CurrentEntity()) ) + { + DBG().debug_info_up(); + time = Device.dwTimeGlobal; + } + } + } + else if ( key == DIK_DOWN ) + { + static u32 time = Device.dwTimeGlobal; + if ( Device.dwTimeGlobal - time > 20 ) + { + if ( CBaseMonster* pBM = smart_cast(CurrentEntity()) ) + { + DBG().debug_info_down(); + time = Device.dwTimeGlobal; + } + } + } #endif // DEBUG - if (CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardHold(key)) return; - if (Device.Paused() && !Level().IsDemoPlay() + if (CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardHold(key)) return; + if (Device.Paused() && !Level().IsDemoPlay() #ifdef DEBUG - && !psActorFlags.test(AF_NO_CLIP) + && !psActorFlags.test(AF_NO_CLIP) #endif //DEBUG - ) return; - if (CURRENT_ENTITY()) { - IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); - if (IR) IR->IR_OnKeyboardHold (get_binded_action(key)); - } + ) return; + if (CURRENT_ENTITY()) + { + IInputReceiver* IR = smart_cast (smart_cast(CURRENT_ENTITY())); + if (IR) IR->IR_OnKeyboardHold(get_binded_action(key)); + } } -void CLevel::IR_OnMouseStop( int /**axis/**/, int /**value/**/) +void CLevel::IR_OnMouseStop(int /**axis/**/, int /**value/**/) { } void CLevel::IR_OnActivate() { - if(!pInput) return; - int i; - for (i = 0; i < CInput::COUNT_KB_BUTTONS; i++ ) - { - if(IR_GetKeyState(i)) - { - - EGameActions action = get_binded_action(i); - switch (action){ - case kFWD : - case kBACK : - case kL_STRAFE : - case kR_STRAFE : - case kLEFT : - case kRIGHT : - case kUP : - case kDOWN : - case kCROUCH : - case kACCEL : - case kL_LOOKOUT : - case kR_LOOKOUT : - case kWPN_FIRE : - { - IR_OnKeyboardPress (i); - }break; - }; - }; - } -} + if (!pInput) return; + int i; + for (i = 0; i < CInput::COUNT_KB_BUTTONS; i++) + { + if (IR_GetKeyState(i)) + { + EGameActions action = get_binded_action(i); + switch (action) + { + case kFWD: + case kBACK: + case kL_STRAFE: + case kR_STRAFE: + case kLEFT: + case kRIGHT: + case kUP: + case kDOWN: + case kCROUCH: + case kACCEL: + case kL_LOOKOUT: + case kR_LOOKOUT: + case kWPN_FIRE: + { + IR_OnKeyboardPress(i); + }break; + }; + }; + } +} \ No newline at end of file diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 0992e8ad332..95051558cb6 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -1,58 +1,72 @@ #pragma once -namespace GameObject { - enum ECallbackType { - eTradeStart = u32(0), - eTradeStop, - eTradeSellBuyItem, - eTradePerformTradeOperation, +namespace GameObject +{ + enum ECallbackType + { + eTradeStart = u32(0), + eTradeStop, + eTradeSellBuyItem, + eTradePerformTradeOperation, - eZoneEnter, - eZoneExit, - eExitLevelBorder, - eEnterLevelBorder, - eDeath, + eZoneEnter, + eZoneExit, + eExitLevelBorder, + eEnterLevelBorder, + eDeath, - ePatrolPathInPoint, + ePatrolPathInPoint, - eInventoryPda, - eInventoryInfo, - eArticleInfo, - eTaskStateChange, - eMapLocationAdded, + eInventoryPda, + eInventoryInfo, + eArticleInfo, + eTaskStateChange, + eMapLocationAdded, - eUseObject, + eUseObject, - eHit, + eHit, - eSound, + eSound, - eActionTypeMovement, - eActionTypeWatch, - eActionTypeRemoved, - eActionTypeAnimation, - eActionTypeSound, - eActionTypeParticle, - eActionTypeObject, + eActionTypeMovement, + eActionTypeWatch, + eActionTypeRemoved, + eActionTypeAnimation, + eActionTypeSound, + eActionTypeParticle, + eActionTypeObject, - eActorSleep, + eActorSleep, - eHelicopterOnPoint, - eHelicopterOnHit, + eHelicopterOnPoint, + eHelicopterOnHit, - eOnItemTake, - eOnItemDrop, + eOnItemTake, + eOnItemDrop, - eScriptAnimation, - - eTraderGlobalAnimationRequest, - eTraderHeadAnimationRequest, - eTraderSoundEnd, + eScriptAnimation, - eInvBoxItemTake, - eWeaponNoAmmoAvailable, + eTraderGlobalAnimationRequest, + eTraderHeadAnimationRequest, + eTraderSoundEnd, - eDummy = u32(-1), - }; -}; + eInvBoxItemTake, + eWeaponNoAmmoAvailable, + + /* avo: custom callbacks */ + // input + eKeyPress, + eKeyRelease, + eKeyHold, + eMouseMove, + eMouseWheel, + // inventory + eItemToBelt, + eItemToSlot, + eItemToRuck, + /* avo: end */ + eDummy = u32(-1), + }; +}; diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index ad471e8f473..0f829bcaf6c 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -50,1475 +50,1555 @@ bool CScriptGameObject::GiveInfoPortion(LPCSTR info_id) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - pInventoryOwner->TransferInfo(info_id, true); - return true; + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + pInventoryOwner->TransferInfo(info_id, true); + return true; } bool CScriptGameObject::DisableInfoPortion(LPCSTR info_id) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - pInventoryOwner->TransferInfo(info_id, false); - return true; + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + pInventoryOwner->TransferInfo(info_id, false); + return true; } void _AddIconedTalkMessage(LPCSTR caption, LPCSTR text, LPCSTR texture_name, LPCSTR templ_name); void CScriptGameObject::AddIconedTalkMessage(LPCSTR caption, LPCSTR text, LPCSTR texture_name, LPCSTR templ_name) { - _AddIconedTalkMessage( caption, text, texture_name, templ_name ); + _AddIconedTalkMessage(caption, text, texture_name, templ_name); } void _AddIconedTalkMessage(LPCSTR caption, LPCSTR text, LPCSTR texture_name, LPCSTR templ_name) { - CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); - if(!pGameSP) return; + CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); + if (!pGameSP) return; - if(pGameSP->TalkMenu->IsShown()) - { - pGameSP->TalkMenu->AddIconedMessage( caption, text, texture_name, templ_name ? templ_name : "iconed_answer_item" ); - } + if (pGameSP->TalkMenu->IsShown()) + { + pGameSP->TalkMenu->AddIconedMessage(caption, text, texture_name, templ_name ? templ_name : "iconed_answer_item"); + } } -void _give_news (LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time, int type); +void _give_news(LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time, int type); void CScriptGameObject::GiveGameNews(LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time) { - GiveGameNews(caption, news, texture_name, delay, show_time, 0); + GiveGameNews(caption, news, texture_name, delay, show_time, 0); } void CScriptGameObject::GiveGameNews(LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time, int type) { - _give_news(caption, news, texture_name, delay, show_time, type); + _give_news(caption, news, texture_name, delay, show_time, type); } -void _give_news (LPCSTR caption, LPCSTR text, LPCSTR texture_name, int delay, int show_time, int type) +void _give_news(LPCSTR caption, LPCSTR text, LPCSTR texture_name, int delay, int show_time, int type) { - GAME_NEWS_DATA news_data; - news_data.m_type = (GAME_NEWS_DATA::eNewsType)type; - news_data.news_caption = caption; - news_data.news_text = text; - if(show_time!=0) - news_data.show_time = show_time;// override default + GAME_NEWS_DATA news_data; + news_data.m_type = (GAME_NEWS_DATA::eNewsType)type; + news_data.news_caption = caption; + news_data.news_text = text; + if (show_time != 0) + news_data.show_time = show_time;// override default - VERIFY(xr_strlen(texture_name)>0); + VERIFY(xr_strlen(texture_name) > 0); - news_data.texture_name = texture_name; + news_data.texture_name = texture_name; - if(delay==0) - Actor()->AddGameNews(news_data); - else - Actor()->AddGameNews_deffered(news_data,delay); + if (delay == 0) + Actor()->AddGameNews(news_data); + else + Actor()->AddGameNews_deffered(news_data, delay); } -bool CScriptGameObject::HasInfo (LPCSTR info_id) +bool CScriptGameObject::HasInfo(LPCSTR info_id) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - - return pInventoryOwner->HasInfo(info_id); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + return pInventoryOwner->HasInfo(info_id); } -bool CScriptGameObject::DontHasInfo (LPCSTR info_id) +bool CScriptGameObject::DontHasInfo(LPCSTR info_id) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return true; + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return true; - return !pInventoryOwner->HasInfo(info_id); + return !pInventoryOwner->HasInfo(info_id); } bool CScriptGameObject::IsTalking() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - return pInventoryOwner->IsTalking(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + return pInventoryOwner->IsTalking(); } void CScriptGameObject::StopTalk() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->StopTalk(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->StopTalk(); } void CScriptGameObject::EnableTalk() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->EnableTalk(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->EnableTalk(); } void CScriptGameObject::DisableTalk() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->DisableTalk(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->DisableTalk(); } bool CScriptGameObject::IsTalkEnabled() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - return pInventoryOwner->IsTalkEnabled(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + return pInventoryOwner->IsTalkEnabled(); } -void CScriptGameObject::EnableTrade () +void CScriptGameObject::EnableTrade() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->EnableTrade(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->EnableTrade(); } -void CScriptGameObject::DisableTrade () +void CScriptGameObject::DisableTrade() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->DisableTrade(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->DisableTrade(); } -bool CScriptGameObject::IsTradeEnabled () +bool CScriptGameObject::IsTradeEnabled() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - return pInventoryOwner->IsTradeEnabled(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + return pInventoryOwner->IsTradeEnabled(); } -void CScriptGameObject::EnableInvUpgrade () +void CScriptGameObject::EnableInvUpgrade() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->EnableInvUpgrade(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->EnableInvUpgrade(); } -void CScriptGameObject::DisableInvUpgrade () +void CScriptGameObject::DisableInvUpgrade() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return; - pInventoryOwner->DisableInvUpgrade(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return; + pInventoryOwner->DisableInvUpgrade(); } -bool CScriptGameObject::IsInvUpgradeEnabled () +bool CScriptGameObject::IsInvUpgradeEnabled() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if(!pInventoryOwner) return false; - return pInventoryOwner->IsInvUpgradeEnabled(); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) return false; + return pInventoryOwner->IsInvUpgradeEnabled(); } void CScriptGameObject::ForEachInventoryItems(const luabind::functor &functor) { - CInventoryOwner* owner = smart_cast(&object()); - if(!owner){ - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::ForEachInventoryItems non-CInventoryOwner object !!!"); - return; - } - - CInventory* pInv = &owner->inventory(); - TIItemContainer item_list; - pInv->AddAvailableItems(item_list, true); - - TIItemContainer::iterator it; - for(it = item_list.begin(); item_list.end() != it; ++it) - { - CGameObject* inv_go = smart_cast(*it); - if( inv_go ){ - functor(inv_go->lua_game_object(),this); - } - } + CInventoryOwner* owner = smart_cast(&object()); + if (!owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::ForEachInventoryItems non-CInventoryOwner object !!!"); + return; + } + + CInventory* pInv = &owner->inventory(); + TIItemContainer item_list; + pInv->AddAvailableItems(item_list, true); + + TIItemContainer::iterator it; + for (it = item_list.begin(); item_list.end() != it; ++it) + { + CGameObject* inv_go = smart_cast(*it); + if (inv_go) + { + functor(inv_go->lua_game_object(), this); + } + } } //1 -void CScriptGameObject::IterateInventory (luabind::functor functor, luabind::object object) +void CScriptGameObject::IterateInventory(luabind::functor functor, luabind::object object) { - CInventoryOwner *inventory_owner = smart_cast(&this->object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::IterateInventory non-CInventoryOwner object !!!"); - return; - } + CInventoryOwner *inventory_owner = smart_cast(&this->object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::IterateInventory non-CInventoryOwner object !!!"); + return; + } - TIItemContainer::iterator I = inventory_owner->inventory().m_all.begin(); - TIItemContainer::iterator E = inventory_owner->inventory().m_all.end(); - for ( ; I != E; ++I) - functor (object,(*I)->object().lua_game_object()); + TIItemContainer::iterator I = inventory_owner->inventory().m_all.begin(); + TIItemContainer::iterator E = inventory_owner->inventory().m_all.end(); + for (; I != E; ++I) + functor(object, (*I)->object().lua_game_object()); } #include "InventoryBox.h" -void CScriptGameObject::IterateInventoryBox (luabind::functor functor, luabind::object object) +void CScriptGameObject::IterateInventoryBox(luabind::functor functor, luabind::object object) { - CInventoryBox *inventory_box = smart_cast(&this->object()); - if (!inventory_box) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::IterateInventoryBox non-CInventoryBox object !!!"); - return; - } + CInventoryBox *inventory_box = smart_cast(&this->object()); + if (!inventory_box) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::IterateInventoryBox non-CInventoryBox object !!!"); + return; + } - xr_vector::const_iterator I = inventory_box->m_items.begin(); - xr_vector::const_iterator E = inventory_box->m_items.end(); - for ( ; I != E; ++I) - { - CGameObject* GO = smart_cast(Level().Objects.net_Find(*I)); - if(GO) - functor (object,GO->lua_game_object()); - } + xr_vector::const_iterator I = inventory_box->m_items.begin(); + xr_vector::const_iterator E = inventory_box->m_items.end(); + for (; I != E; ++I) + { + CGameObject* GO = smart_cast(Level().Objects.net_Find(*I)); + if (GO) + functor(object, GO->lua_game_object()); + } } -void CScriptGameObject::MarkItemDropped (CScriptGameObject *item) +void CScriptGameObject::MarkItemDropped(CScriptGameObject *item) { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::MarkItemDropped non-CInventoryOwner object !!!"); - return; - } + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::MarkItemDropped non-CInventoryOwner object !!!"); + return; + } - CInventoryItem *inventory_item = smart_cast(&item->object()); - if (!inventory_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::MarkItemDropped non-CInventoryItem object !!!"); - return; - } + CInventoryItem *inventory_item = smart_cast(&item->object()); + if (!inventory_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::MarkItemDropped non-CInventoryItem object !!!"); + return; + } - inventory_item->SetDropManual (TRUE); + inventory_item->SetDropManual(TRUE); } -bool CScriptGameObject::MarkedDropped (CScriptGameObject *item) +bool CScriptGameObject::MarkedDropped(CScriptGameObject *item) { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::MarkedDropped non-CInventoryOwner object !!!"); - return (false); - } + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::MarkedDropped non-CInventoryOwner object !!!"); + return (false); + } - CInventoryItem *inventory_item = smart_cast(&item->object()); - if (!inventory_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::MarkedDropped non-CInventoryItem object !!!"); - return (false); - } + CInventoryItem *inventory_item = smart_cast(&item->object()); + if (!inventory_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::MarkedDropped non-CInventoryItem object !!!"); + return (false); + } - return (!!inventory_item->GetDropManual()); + return (!!inventory_item->GetDropManual()); } -void CScriptGameObject::UnloadMagazine () +void CScriptGameObject::UnloadMagazine() { - CWeaponMagazined *weapon_magazined = smart_cast(&object()); - if (!weapon_magazined) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::UnloadMagazine non-CWeaponMagazined object !!!"); - return; - } + CWeaponMagazined *weapon_magazined = smart_cast(&object()); + if (!weapon_magazined) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::UnloadMagazine non-CWeaponMagazined object !!!"); + return; + } - CAI_Stalker *stalker = smart_cast(weapon_magazined->H_Parent()); - if (stalker && stalker->hammer_is_clutched()) - return; + CAI_Stalker *stalker = smart_cast(weapon_magazined->H_Parent()); + if (stalker && stalker->hammer_is_clutched()) + return; - weapon_magazined->UnloadMagazine (false); + weapon_magazined->UnloadMagazine(false); } // -void CScriptGameObject::DropItem (CScriptGameObject* pItem) +void CScriptGameObject::DropItem(CScriptGameObject* pItem) { - CInventoryOwner* owner = smart_cast(&object()); - CInventoryItem* item = smart_cast(&pItem->object()); - if(!owner||!item){ - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CScriptGameObject::DropItem non-CInventoryOwner object !!!"); - return; - } + CInventoryOwner* owner = smart_cast(&object()); + CInventoryItem* item = smart_cast(&pItem->object()); + if (!owner || !item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CScriptGameObject::DropItem non-CInventoryOwner object !!!"); + return; + } - NET_Packet P; - CGameObject::u_EventGen (P,GE_OWNERSHIP_REJECT, object().ID()); - P.w_u16 (pItem->object().ID()); - CGameObject::u_EventSend (P); + NET_Packet P; + CGameObject::u_EventGen(P, GE_OWNERSHIP_REJECT, object().ID()); + P.w_u16(pItem->object().ID()); + CGameObject::u_EventSend(P); } -void CScriptGameObject::DropItemAndTeleport (CScriptGameObject* pItem, Fvector position) +void CScriptGameObject::DropItemAndTeleport(CScriptGameObject* pItem, Fvector position) { - DropItem (pItem); + DropItem(pItem); - NET_Packet PP; - CGameObject::u_EventGen (PP,GE_CHANGE_POS, pItem->object().ID()); - PP.w_vec3 (position); - CGameObject::u_EventSend (PP); + NET_Packet PP; + CGameObject::u_EventGen(PP, GE_CHANGE_POS, pItem->object().ID()); + PP.w_vec3(position); + CGameObject::u_EventSend(PP); } void CScriptGameObject::MakeItemActive(CScriptGameObject* pItem) { - CInventoryOwner* owner = smart_cast(&object()); - CInventoryItem* item = smart_cast(&pItem->object()); - u16 slot = item->BaseSlot(); - - CInventoryItem* item_in_slot = owner->inventory().ItemFromSlot(slot); + CInventoryOwner* owner = smart_cast(&object()); + CInventoryItem* item = smart_cast(&pItem->object()); + u16 slot = item->BaseSlot(); - NET_Packet P; - if(item_in_slot) - { - CGameObject::u_EventGen (P, GEG_PLAYER_ITEM2RUCK, owner->object_id()); - P.w_u16 (item_in_slot->object().ID()); - CGameObject::u_EventSend (P); - } - CGameObject::u_EventGen (P, GEG_PLAYER_ITEM2SLOT, owner->object_id()); - P.w_u16 (item->object().ID()); - P.w_u16 (slot); - CGameObject::u_EventSend (P); + CInventoryItem* item_in_slot = owner->inventory().ItemFromSlot(slot); - CGameObject::u_EventGen (P, GEG_PLAYER_ACTIVATE_SLOT, owner->object_id()); - P.w_u16 (slot); - CGameObject::u_EventSend (P); + NET_Packet P; + if (item_in_slot) + { + CGameObject::u_EventGen(P, GEG_PLAYER_ITEM2RUCK, owner->object_id()); + P.w_u16(item_in_slot->object().ID()); + CGameObject::u_EventSend(P); + } + CGameObject::u_EventGen(P, GEG_PLAYER_ITEM2SLOT, owner->object_id()); + P.w_u16(item->object().ID()); + P.w_u16(slot); + CGameObject::u_EventSend(P); + CGameObject::u_EventGen(P, GEG_PLAYER_ACTIVATE_SLOT, owner->object_id()); + P.w_u16(slot); + CGameObject::u_EventSend(P); } //передаче вещи из своего инвентаря в инвентарь партнера void CScriptGameObject::TransferItem(CScriptGameObject* pItem, CScriptGameObject* pForWho) { - if (!pItem || !pForWho) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"cannot transfer NULL item"); - return; - } + if (!pItem || !pForWho) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "cannot transfer NULL item"); + return; + } - CInventoryItem* pIItem = smart_cast(&pItem->object()); + CInventoryItem* pIItem = smart_cast(&pItem->object()); - if (!pIItem) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"Cannot transfer not CInventoryItem item"); - return ; - } + if (!pIItem) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Cannot transfer not CInventoryItem item"); + return; + } - // выбросить у себя - NET_Packet P; - CGameObject::u_EventGen (P,GE_TRADE_SELL, object().ID()); - P.w_u16 (pIItem->object().ID()); - CGameObject::u_EventSend (P); + // выбросить у себя + NET_Packet P; + CGameObject::u_EventGen(P, GE_TRADE_SELL, object().ID()); + P.w_u16(pIItem->object().ID()); + CGameObject::u_EventSend(P); - // отдать партнеру - CGameObject::u_EventGen (P,GE_TRADE_BUY, pForWho->object().ID()); - P.w_u16 (pIItem->object().ID()); - CGameObject::u_EventSend (P); + // отдать партнеру + CGameObject::u_EventGen(P, GE_TRADE_BUY, pForWho->object().ID()); + P.w_u16(pIItem->object().ID()); + CGameObject::u_EventSend(P); } -u32 CScriptGameObject::Money () +u32 CScriptGameObject::Money() { - CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); - return pOurOwner->get_money(); + CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); + return pOurOwner->get_money(); } void CScriptGameObject::TransferMoney(int money, CScriptGameObject* pForWho) { - if (!pForWho) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"cannot transfer money for NULL object"); - return; - } - CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); - CInventoryOwner* pOtherOwner = smart_cast(&pForWho->object()); VERIFY(pOtherOwner); + if (!pForWho) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "cannot transfer money for NULL object"); + return; + } + CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); + CInventoryOwner* pOtherOwner = smart_cast(&pForWho->object()); VERIFY(pOtherOwner); - if (pOurOwner->get_money()-money<0) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"Character does not have enought money"); - return; - } + if (pOurOwner->get_money() - money < 0) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Character does not have enought money"); + return; + } - pOurOwner->set_money (pOurOwner->get_money() - money, true ); - pOtherOwner->set_money (pOtherOwner->get_money() + money, true ); + pOurOwner->set_money(pOurOwner->get_money() - money, true); + pOtherOwner->set_money(pOtherOwner->get_money() + money, true); } void CScriptGameObject::GiveMoney(int money) { - CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); - + CInventoryOwner* pOurOwner = smart_cast(&object()); VERIFY(pOurOwner); - pOurOwner->set_money (pOurOwner->get_money() + money, true ); + pOurOwner->set_money(pOurOwner->get_money() + money, true); } ////////////////////////////////////////////////////////////////////////// int CScriptGameObject::GetGoodwill(CScriptGameObject* pToWho) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"GetGoodwill available only for InventoryOwner"); - return 0; - } - return RELATION_REGISTRY().GetGoodwill(pInventoryOwner->object_id(), pToWho->object().ID()); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "GetGoodwill available only for InventoryOwner"); + return 0; + } + return RELATION_REGISTRY().GetGoodwill(pInventoryOwner->object_id(), pToWho->object().ID()); } void CScriptGameObject::SetGoodwill(int goodwill, CScriptGameObject* pWhoToSet) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetGoodwill available only for InventoryOwner"); - return ; - } - RELATION_REGISTRY().SetGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), goodwill); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetGoodwill available only for InventoryOwner"); + return; + } + RELATION_REGISTRY().SetGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), goodwill); } void CScriptGameObject::ForceSetGoodwill(int goodwill, CScriptGameObject* pWhoToSet) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"ForceSetGoodwill available only for InventoryOwner"); - return ; - } - RELATION_REGISTRY().ForceSetGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), goodwill); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "ForceSetGoodwill available only for InventoryOwner"); + return; + } + RELATION_REGISTRY().ForceSetGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), goodwill); } - void CScriptGameObject::ChangeGoodwill(int delta_goodwill, CScriptGameObject* pWhoToSet) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"ChangeGoodwill available only for InventoryOwner"); - return ; - } - RELATION_REGISTRY().ChangeGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), delta_goodwill); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "ChangeGoodwill available only for InventoryOwner"); + return; + } + RELATION_REGISTRY().ChangeGoodwill(pInventoryOwner->object_id(), pWhoToSet->object().ID(), delta_goodwill); } - ////////////////////////////////////////////////////////////////////////// void CScriptGameObject::SetRelation(ALife::ERelationType relation, CScriptGameObject* pWhoToSet) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetRelation available only for InventoryOwner"); - return ; - } + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetRelation available only for InventoryOwner"); + return; + } - CInventoryOwner* pOthersInventoryOwner = smart_cast(&pWhoToSet->object()); - VERIFY(pOthersInventoryOwner); - if (!pOthersInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetRelation available only for InventoryOwner"); - return ; - } - RELATION_REGISTRY().SetRelationType(pInventoryOwner, pOthersInventoryOwner, relation); + CInventoryOwner* pOthersInventoryOwner = smart_cast(&pWhoToSet->object()); + VERIFY(pOthersInventoryOwner); + if (!pOthersInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetRelation available only for InventoryOwner"); + return; + } + RELATION_REGISTRY().SetRelationType(pInventoryOwner, pOthersInventoryOwner, relation); } float CScriptGameObject::GetSympathy() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"GetSympathy available only for InventoryOwner"); - return 0.0f; - } - return pInventoryOwner->Sympathy(); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "GetSympathy available only for InventoryOwner"); + return 0.0f; + } + return pInventoryOwner->Sympathy(); } -void CScriptGameObject::SetSympathy( float sympathy ) +void CScriptGameObject::SetSympathy(float sympathy) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetSympathy available only for InventoryOwner"); - return ; - } - pInventoryOwner->CharacterInfo().SetSympathy( sympathy ); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetSympathy available only for InventoryOwner"); + return; + } + pInventoryOwner->CharacterInfo().SetSympathy(sympathy); } -int CScriptGameObject::GetCommunityGoodwill_obj( LPCSTR community ) +int CScriptGameObject::GetCommunityGoodwill_obj(LPCSTR community) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"GetCommunityGoodwill available only for InventoryOwner"); - return 0; - } - CHARACTER_COMMUNITY c; - c.set( community ); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "GetCommunityGoodwill available only for InventoryOwner"); + return 0; + } + CHARACTER_COMMUNITY c; + c.set(community); - return RELATION_REGISTRY().GetCommunityGoodwill( c.index(), pInventoryOwner->object_id() ); + return RELATION_REGISTRY().GetCommunityGoodwill(c.index(), pInventoryOwner->object_id()); } -void CScriptGameObject::SetCommunityGoodwill_obj( LPCSTR community, int goodwill ) +void CScriptGameObject::SetCommunityGoodwill_obj(LPCSTR community, int goodwill) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetCommunityGoodwill available only for InventoryOwner"); - return; - } - CHARACTER_COMMUNITY c; - c.set( community ); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetCommunityGoodwill available only for InventoryOwner"); + return; + } + CHARACTER_COMMUNITY c; + c.set(community); - RELATION_REGISTRY().SetCommunityGoodwill( c.index(), pInventoryOwner->object_id(), goodwill ); + RELATION_REGISTRY().SetCommunityGoodwill(c.index(), pInventoryOwner->object_id(), goodwill); } ////////////////////////////////////////////////////////////////////////// -int CScriptGameObject::GetAttitude (CScriptGameObject* pToWho) +int CScriptGameObject::GetAttitude(CScriptGameObject* pToWho) { - CInventoryOwner* pInventoryOwner = smart_cast(&object());VERIFY(pInventoryOwner); - CInventoryOwner* pOthersInventoryOwner = smart_cast(&pToWho->object());VERIFY(pOthersInventoryOwner); - return RELATION_REGISTRY().GetAttitude(pInventoryOwner, pOthersInventoryOwner); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); VERIFY(pInventoryOwner); + CInventoryOwner* pOthersInventoryOwner = smart_cast(&pToWho->object()); VERIFY(pOthersInventoryOwner); + return RELATION_REGISTRY().GetAttitude(pInventoryOwner, pOthersInventoryOwner); } - ////////////////////////////////////////////////////////////////////////// -LPCSTR CScriptGameObject::ProfileName () +LPCSTR CScriptGameObject::ProfileName() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"ProfileName available only for InventoryOwner"); - return NULL; - } - - shared_str profile_id = pInventoryOwner->CharacterInfo().Profile(); - if(!profile_id || !profile_id.size() ) - return NULL; - else - return *profile_id; -} + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "ProfileName available only for InventoryOwner"); + return NULL; + } + shared_str profile_id = pInventoryOwner->CharacterInfo().Profile(); + if (!profile_id || !profile_id.size()) + return NULL; + else + return *profile_id; +} -LPCSTR CScriptGameObject::CharacterName () +LPCSTR CScriptGameObject::CharacterName() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CharacterName available only for InventoryOwner"); - return NULL; - } - return pInventoryOwner->Name(); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CharacterName available only for InventoryOwner"); + return NULL; + } + return pInventoryOwner->Name(); } LPCSTR CScriptGameObject::CharacterIcon() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CharacterIconName available only for InventoryOwner"); - return NULL; - } - return pInventoryOwner->IconName(); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CharacterIconName available only for InventoryOwner"); + return NULL; + } + return pInventoryOwner->IconName(); } -int CScriptGameObject::CharacterRank () +int CScriptGameObject::CharacterRank() { - // rank support for monster - CBaseMonster *monster = smart_cast(&object()); - if (!monster) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CharacterRank available only for InventoryOwner and BaseMonster"); - return 0; - } - return pInventoryOwner->Rank(); - } - return monster->Rank(); + // rank support for monster + CBaseMonster *monster = smart_cast(&object()); + if (!monster) + { + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CharacterRank available only for InventoryOwner and BaseMonster"); + return 0; + } + return pInventoryOwner->Rank(); + } + return monster->Rank(); } -void CScriptGameObject::SetCharacterRank (int char_rank) +void CScriptGameObject::SetCharacterRank(int char_rank) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetCharacterRank available only for InventoryOwner"); - return ; - } - return pInventoryOwner->SetRank(char_rank); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetCharacterRank available only for InventoryOwner"); + return; + } + return pInventoryOwner->SetRank(char_rank); } -void CScriptGameObject::ChangeCharacterRank (int char_rank) +void CScriptGameObject::ChangeCharacterRank(int char_rank) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"ChangeCharacterRank available only for InventoryOwner"); - return; - } - return pInventoryOwner->ChangeRank(char_rank); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "ChangeCharacterRank available only for InventoryOwner"); + return; + } + return pInventoryOwner->ChangeRank(char_rank); } -int CScriptGameObject::CharacterReputation () +int CScriptGameObject::CharacterReputation() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CharacterReputation available only for InventoryOwner"); - return 0; - } - return pInventoryOwner->Reputation(); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CharacterReputation available only for InventoryOwner"); + return 0; + } + return pInventoryOwner->Reputation(); } - -void CScriptGameObject::ChangeCharacterReputation (int char_rep) +void CScriptGameObject::ChangeCharacterReputation(int char_rep) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"ChangeCharacterReputation available only for InventoryOwner"); - return ; - } - pInventoryOwner->ChangeReputation(char_rep); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "ChangeCharacterReputation available only for InventoryOwner"); + return; + } + pInventoryOwner->ChangeReputation(char_rep); } -LPCSTR CScriptGameObject::CharacterCommunity () +LPCSTR CScriptGameObject::CharacterCommunity() { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CharacterCommunity available only for InventoryOwner"); - return NULL; - } - return *pInventoryOwner->CharacterInfo().Community().id(); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CharacterCommunity available only for InventoryOwner"); + return NULL; + } + return *pInventoryOwner->CharacterInfo().Community().id(); } -void CScriptGameObject::SetCharacterCommunity (LPCSTR comm, int squad, int group) +void CScriptGameObject::SetCharacterCommunity(LPCSTR comm, int squad, int group) { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - CEntity* entity = smart_cast(&object()); + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + CEntity* entity = smart_cast(&object()); - if (!pInventoryOwner || !entity) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"SetCharacterCommunity available only for InventoryOwner"); - return; - } - CHARACTER_COMMUNITY community; - community.set(comm); - pInventoryOwner->SetCommunity(community.index()); - entity->ChangeTeam(community.team(), squad, group); + if (!pInventoryOwner || !entity) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetCharacterCommunity available only for InventoryOwner"); + return; + } + CHARACTER_COMMUNITY community; + community.set(comm); + pInventoryOwner->SetCommunity(community.index()); + entity->ChangeTeam(community.team(), squad, group); } -LPCSTR CScriptGameObject::sound_voice_prefix () const +LPCSTR CScriptGameObject::sound_voice_prefix() const { - CInventoryOwner* pInventoryOwner = smart_cast(&object()); - if (!pInventoryOwner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"sound_voice_prefix available only for InventoryOwner"); - return NULL; - } + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "sound_voice_prefix available only for InventoryOwner"); + return NULL; + } - return pInventoryOwner->SpecificCharacter().sound_voice_prefix(); + return pInventoryOwner->SpecificCharacter().sound_voice_prefix(); } #include "GameTaskManager.h" -ETaskState CScriptGameObject::GetGameTaskState (LPCSTR task_id) +ETaskState CScriptGameObject::GetGameTaskState(LPCSTR task_id) { - shared_str shared_name = task_id; - CGameTask* t = Level().GameTaskManager().HasGameTask(shared_name, true); - - if(NULL==t) - return eTaskStateDummy; + shared_str shared_name = task_id; + CGameTask* t = Level().GameTaskManager().HasGameTask(shared_name, true); - return t->GetTaskState(); + if (NULL == t) + return eTaskStateDummy; + return t->GetTaskState(); } -void CScriptGameObject::SetGameTaskState (ETaskState state, LPCSTR task_id) +void CScriptGameObject::SetGameTaskState(ETaskState state, LPCSTR task_id) { - shared_str shared_name = task_id; - Level().GameTaskManager().SetTaskState(shared_name, state); + shared_str shared_name = task_id; + Level().GameTaskManager().SetTaskState(shared_name, state); } ////////////////////////////////////////////////////////////////////////// -void CScriptGameObject::SwitchToTrade () +void CScriptGameObject::SwitchToTrade() { - CActor* pActor = smart_cast(&object()); if(!pActor) return; + CActor* pActor = smart_cast(&object()); if (!pActor) return; - //только если находимся в режиме single - CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); - if(!pGameSP) return; + //только если находимся в режиме single + CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); + if (!pGameSP) return; - if(pGameSP->TalkMenu->IsShown()) - { - pGameSP->TalkMenu->SwitchToTrade(); - } + if (pGameSP->TalkMenu->IsShown()) + { + pGameSP->TalkMenu->SwitchToTrade(); + } } -void CScriptGameObject::SwitchToUpgrade () +void CScriptGameObject::SwitchToUpgrade() { - CActor* pActor = smart_cast(&object()); if(!pActor) return; + CActor* pActor = smart_cast(&object()); if (!pActor) return; - //только если находимся в режиме single - CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); - if(!pGameSP) return; + //только если находимся в режиме single + CUIGameSP* pGameSP = smart_cast(CurrentGameUI()); + if (!pGameSP) return; - if(pGameSP->TalkMenu->IsShown()) - { - pGameSP->TalkMenu->SwitchToUpgrade(); - } + if (pGameSP->TalkMenu->IsShown()) + { + pGameSP->TalkMenu->SwitchToUpgrade(); + } } -void CScriptGameObject::SwitchToTalk () +void CScriptGameObject::SwitchToTalk() { - R_ASSERT("switch_to_talk called ;)"); + R_ASSERT("switch_to_talk called ;)"); } void CScriptGameObject::AllowBreakTalkDialog(bool b) { - CInventoryOwner* inv_owner = smart_cast(&object()); - VERIFY(inv_owner); - inv_owner->bDisableBreakDialog = !b; + CInventoryOwner* inv_owner = smart_cast(&object()); + VERIFY(inv_owner); + inv_owner->bDisableBreakDialog = !b; } void CScriptGameObject::RunTalkDialog(CScriptGameObject* pToWho, bool disable_break) { - CActor* pActor = smart_cast(&object()); -// R_ASSERT2(pActor, "RunTalkDialog applicable only for actor"); + CActor* pActor = smart_cast(&object()); + // R_ASSERT2(pActor, "RunTalkDialog applicable only for actor"); - if (!pActor) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"RunTalkDialog applicable only for actor"); - return; - } + if (!pActor) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "RunTalkDialog applicable only for actor"); + return; + } - CInventoryOwner* pPartner = smart_cast(&pToWho->object()); VERIFY(pPartner); - pActor->RunTalkDialog(pPartner, disable_break); + CInventoryOwner* pPartner = smart_cast(&pToWho->object()); VERIFY(pPartner); + pActor->RunTalkDialog(pPartner, disable_break); } -void CScriptGameObject::ActorLookAtPoint (Fvector point) +void CScriptGameObject::ActorLookAtPoint(Fvector point) { - CCameraBase* c = Actor()->cam_FirstEye(); - CCameraFirstEye* cf = smart_cast(c); - cf->LookAtPoint (point); + CCameraBase* c = Actor()->cam_FirstEye(); + CCameraFirstEye* cf = smart_cast(c); + cf->LookAtPoint(point); } ////////////////////////////////////////////////////////////////////////// void construct_restriction_vector(shared_str restrictions, xr_vector &result) { - result.clear(); - string64 temp; - u32 n = _GetItemCount(*restrictions); - for (u32 i=0; iID()); - } + result.clear(); + string64 temp; + u32 n = _GetItemCount(*restrictions); + for (u32 i = 0; i < n; ++i) + { + CObject *object = Level().Objects.FindObjectByName(_GetItem(*restrictions, i, temp)); + if (!object) + continue; + result.push_back(object->ID()); + } } -void CScriptGameObject::add_restrictions (LPCSTR out, LPCSTR in) +void CScriptGameObject::add_restrictions(LPCSTR out, LPCSTR in) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member add_restrictions!"); - return; - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member add_restrictions!"); + return; + } -// Msg ( "object[%s] add_restrictions( \"%s\", \"%s\" )", monster->cName().c_str(), out, in ); - monster->movement().restrictions().add_restrictions(out,in); + // Msg ( "object[%s] add_restrictions( \"%s\", \"%s\" )", monster->cName().c_str(), out, in ); + monster->movement().restrictions().add_restrictions(out, in); } -void CScriptGameObject::remove_restrictions (LPCSTR out, LPCSTR in) +void CScriptGameObject::remove_restrictions(LPCSTR out, LPCSTR in) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member remove_restrictions!"); - return; - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member remove_restrictions!"); + return; + } -// Msg ( "object[%s] remove_restrictions( \"%s\", \"%s\" )", monster->cName().c_str(), out, in ); - monster->movement().restrictions().remove_restrictions(out,in); + // Msg ( "object[%s] remove_restrictions( \"%s\", \"%s\" )", monster->cName().c_str(), out, in ); + monster->movement().restrictions().remove_restrictions(out, in); } -void CScriptGameObject::remove_all_restrictions () +void CScriptGameObject::remove_all_restrictions() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member remove_all_restrictions!"); - return; - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member remove_all_restrictions!"); + return; + } -// Msg ( "object[%s] remove_all_restrictions( )", monster->cName().c_str() ); - monster->movement().restrictions().remove_all_restrictions (); + // Msg ( "object[%s] remove_all_restrictions( )", monster->cName().c_str() ); + monster->movement().restrictions().remove_all_restrictions(); } -LPCSTR CScriptGameObject::in_restrictions () +LPCSTR CScriptGameObject::in_restrictions() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member in_restrictions!"); - return (""); - } - return (*monster->movement().restrictions().in_restrictions()); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member in_restrictions!"); + return (""); + } + return (*monster->movement().restrictions().in_restrictions()); } -LPCSTR CScriptGameObject::out_restrictions () +LPCSTR CScriptGameObject::out_restrictions() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member out_restrictions!"); - return (""); - } - return (*monster->movement().restrictions().out_restrictions()); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member out_restrictions!"); + return (""); + } + return (*monster->movement().restrictions().out_restrictions()); } -LPCSTR CScriptGameObject::base_in_restrictions () +LPCSTR CScriptGameObject::base_in_restrictions() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member base_in_restrictions!"); - return (""); - } - return (*monster->movement().restrictions().base_in_restrictions()); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member base_in_restrictions!"); + return (""); + } + return (*monster->movement().restrictions().base_in_restrictions()); } -LPCSTR CScriptGameObject::base_out_restrictions () +LPCSTR CScriptGameObject::base_out_restrictions() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member base_out_restrictions!"); - return (""); - } - return (*monster->movement().restrictions().base_out_restrictions()); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member base_out_restrictions!"); + return (""); + } + return (*monster->movement().restrictions().base_out_restrictions()); } -bool CScriptGameObject::accessible_position (const Fvector &position) +bool CScriptGameObject::accessible_position(const Fvector &position) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member accessible!"); - return (false); - } - return (monster->movement().restrictions().accessible(position)); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member accessible!"); + return (false); + } + return (monster->movement().restrictions().accessible(position)); } bool CScriptGameObject::accessible_vertex_id(u32 level_vertex_id) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member accessible!"); - return (false); - } - if(!ai().level_graph().valid_vertex_id(level_vertex_id)) - return false; - THROW2 (ai().level_graph().valid_vertex_id(level_vertex_id),"Cannot check if level vertex id is accessible, because it is invalid"); - return (monster->movement().restrictions().accessible(level_vertex_id)); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member accessible!"); + return (false); + } + if (!ai().level_graph().valid_vertex_id(level_vertex_id)) + return false; + THROW2(ai().level_graph().valid_vertex_id(level_vertex_id), "Cannot check if level vertex id is accessible, because it is invalid"); + return (monster->movement().restrictions().accessible(level_vertex_id)); } -u32 CScriptGameObject::accessible_nearest (const Fvector &position, Fvector &result) +u32 CScriptGameObject::accessible_nearest(const Fvector &position, Fvector &result) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : cannot access class member accessible!"); - return (u32(-1)); - } - if (monster->movement().restrictions().accessible(position)) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CRestrictedObject : you use accessible_nearest when position is already accessible!"); - return (u32(-1)); - } - return (monster->movement().restrictions().accessible_nearest(position,result)); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : cannot access class member accessible!"); + return (u32(-1)); + } + if (monster->movement().restrictions().accessible(position)) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CRestrictedObject : you use accessible_nearest when position is already accessible!"); + return (u32(-1)); + } + return (monster->movement().restrictions().accessible_nearest(position, result)); } -void CScriptGameObject::enable_attachable_item (bool value) +void CScriptGameObject::enable_attachable_item(bool value) { - CAttachableItem *attachable_item = smart_cast(&object()); - if (!attachable_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAttachableItem : cannot access class member enable_attachable_item!"); - return; - } - attachable_item->enable (value); + CAttachableItem *attachable_item = smart_cast(&object()); + if (!attachable_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAttachableItem : cannot access class member enable_attachable_item!"); + return; + } + attachable_item->enable(value); } - -bool CScriptGameObject::attachable_item_enabled () const +bool CScriptGameObject::attachable_item_enabled() const { - CAttachableItem *attachable_item = smart_cast(&object()); - if (!attachable_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAttachableItem : cannot access class member attachable_item_enabled!"); - return (false); - } - return (attachable_item->enabled()); + CAttachableItem *attachable_item = smart_cast(&object()); + if (!attachable_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAttachableItem : cannot access class member attachable_item_enabled!"); + return (false); + } + return (attachable_item->enabled()); } -void CScriptGameObject::enable_night_vision (bool value) +void CScriptGameObject::enable_night_vision(bool value) { - CTorch *torch = smart_cast(&object()); - if (!torch) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CTorch : cannot access class member enable_night_vision!"); - return; - } - torch->SwitchNightVision (value); + CTorch *torch = smart_cast(&object()); + if (!torch) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CTorch : cannot access class member enable_night_vision!"); + return; + } + torch->SwitchNightVision(value); } -bool CScriptGameObject::night_vision_enabled () const +bool CScriptGameObject::night_vision_enabled() const { - CTorch *torch = smart_cast(&object()); - if (!torch) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CTorch : cannot access class member enable_night_vision!"); - return (false); - } - return (torch->GetNightVisionStatus()); + CTorch *torch = smart_cast(&object()); + if (!torch) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CTorch : cannot access class member enable_night_vision!"); + return (false); + } + return (torch->GetNightVisionStatus()); } -void CScriptGameObject::enable_torch (bool value) +void CScriptGameObject::enable_torch(bool value) { - CTorch *torch = smart_cast(&object()); - if (!torch) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CTorch : cannot access class member enable_torch!"); - return; - } - torch->Switch (value); + CTorch *torch = smart_cast(&object()); + if (!torch) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CTorch : cannot access class member enable_torch!"); + return; + } + torch->Switch(value); } -bool CScriptGameObject::torch_enabled () const +bool CScriptGameObject::torch_enabled() const { - CTorch *torch = smart_cast(&object()); - if (!torch) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CTorch : cannot access class member torch_enabled!"); - return (false); - } - return (torch->torch_active()); + CTorch *torch = smart_cast(&object()); + if (!torch) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CTorch : cannot access class member torch_enabled!"); + return (false); + } + return (torch->torch_active()); } void CScriptGameObject::attachable_item_load_attach(LPCSTR section) { - CAttachableItem *attachable_item = smart_cast(&object()); - if (!attachable_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAttachableItem : cannot access class member attachable_item_load_attach!"); - return; - } - attachable_item->load_attach_position (section); - - if( attachable_item->object().H_Parent() ) - { //reattach - CAttachmentOwner* AO = smart_cast(attachable_item->object().H_Parent()); - if(AO) - AO->reattach_items(); - } + CAttachableItem *attachable_item = smart_cast(&object()); + if (!attachable_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAttachableItem : cannot access class member attachable_item_load_attach!"); + return; + } + attachable_item->load_attach_position(section); + + if (attachable_item->object().H_Parent()) + { //reattach + CAttachmentOwner* AO = smart_cast(attachable_item->object().H_Parent()); + if (AO) + AO->reattach_items(); + } } -void CScriptGameObject::RestoreWeapon () +void CScriptGameObject::RestoreWeapon() { #ifdef DEBUG - ai().script_engine().script_log (eLuaMessageTypeMessage,"CScriptGameObject::RestoreWeapon called!!!"); - ai().script_engine().print_stack(); + ai().script_engine().script_log (eLuaMessageTypeMessage,"CScriptGameObject::RestoreWeapon called!!!"); + ai().script_engine().print_stack(); #endif //#ifdef DEBUG - Actor()->SetWeaponHideState(INV_STATE_BLOCK_ALL,false); + Actor()->SetWeaponHideState(INV_STATE_BLOCK_ALL, false); } -void CScriptGameObject::HideWeapon () +void CScriptGameObject::HideWeapon() { #ifdef DEBUG - ai().script_engine().script_log (eLuaMessageTypeMessage,"CScriptGameObject::HideWeapon called!!!"); - ai().script_engine().print_stack(); + ai().script_engine().script_log (eLuaMessageTypeMessage,"CScriptGameObject::HideWeapon called!!!"); + ai().script_engine().print_stack(); #endif //#ifdef DEBUG - Actor()->SetWeaponHideState(INV_STATE_BLOCK_ALL,true); + Actor()->SetWeaponHideState(INV_STATE_BLOCK_ALL, true); } int CScriptGameObject::Weapon_GrenadeLauncher_Status() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_GrenadeLauncher_Status!"); - return (false); - } - return (int)weapon->get_GrenadeLauncherStatus(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_GrenadeLauncher_Status!"); + return (false); + } + return (int) weapon->get_GrenadeLauncherStatus(); } int CScriptGameObject::Weapon_Scope_Status() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_Scope_Status!"); - return (false); - } - return (int)weapon->get_ScopeStatus(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_Scope_Status!"); + return (false); + } + return (int) weapon->get_ScopeStatus(); } int CScriptGameObject::Weapon_Silencer_Status() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_Silencer_Status!"); - return (false); - } - return (int)weapon->get_SilencerStatus(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_Silencer_Status!"); + return (false); + } + return (int) weapon->get_SilencerStatus(); } bool CScriptGameObject::Weapon_IsGrenadeLauncherAttached() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_IsGrenadeLauncherAttached!"); - return (false); - } - return weapon->IsGrenadeLauncherAttached(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsGrenadeLauncherAttached!"); + return (false); + } + return weapon->IsGrenadeLauncherAttached(); } bool CScriptGameObject::Weapon_IsScopeAttached() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_IsScopeAttached!"); - return (false); - } - return weapon->IsScopeAttached(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!"); + return (false); + } + return weapon->IsScopeAttached(); } bool CScriptGameObject::Weapon_IsSilencerAttached() { - CWeapon* weapon = smart_cast( &object() ); - if ( !weapon ) - { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CWeapon : cannot access class member Weapon_IsSilencerAttached!"); - return (false); - } - return weapon->IsSilencerAttached(); + CWeapon* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsSilencerAttached!"); + return (false); + } + return weapon->IsSilencerAttached(); } void CScriptGameObject::AllowSprint(bool b) { - Actor()->SetCantRunState(!b); + Actor()->SetCantRunState(!b); } -int CScriptGameObject::animation_slot () const +int CScriptGameObject::animation_slot() const { - CHudItem *hud_item = smart_cast(&object()); - if (!hud_item) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CHudItem : cannot access class member animation_slot!"); - return (u32(-1)); - } - return (hud_item->animation_slot()); + CHudItem *hud_item = smart_cast(&object()); + if (!hud_item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CHudItem : cannot access class member animation_slot!"); + return (u32(-1)); + } + return (hud_item->animation_slot()); } -CScriptGameObject *CScriptGameObject::active_detector () const +CScriptGameObject *CScriptGameObject::active_detector() const { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member active_detector!"); - return (0); - } + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryOwner : cannot access class member active_detector!"); + return (0); + } - CInventoryItem *result = inventory_owner->inventory().ItemFromSlot(DETECTOR_SLOT); - if (result) { - CCustomDetector *detector = smart_cast(result); - VERIFY(detector); - return (detector->IsWorking() ? result->object().lua_game_object() : 0); - } - return (0); + CInventoryItem *result = inventory_owner->inventory().ItemFromSlot(DETECTOR_SLOT); + if (result) + { + CCustomDetector *detector = smart_cast(result); + VERIFY(detector); + return (detector->IsWorking() ? result->object().lua_game_object() : 0); + } + return (0); } - - -CScriptGameObject *CScriptGameObject::item_in_slot (u32 slot_id) const +CScriptGameObject *CScriptGameObject::item_in_slot(u32 slot_id) const { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member item_in_slot!"); - return (0); - } + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryOwner : cannot access class member item_in_slot!"); + return (0); + } - CInventoryItem *result = inventory_owner->inventory().ItemFromSlot((u16)slot_id); - return (result ? result->object().lua_game_object() : 0); + CInventoryItem *result = inventory_owner->inventory().ItemFromSlot((u16) slot_id); + return (result ? result->object().lua_game_object() : 0); } void CScriptGameObject::GiveTaskToActor(CGameTask* t, u32 dt, bool bCheckExisting, u32 t_timer) { - Level().GameTaskManager().GiveGameTaskToActor(t, dt, bCheckExisting, t_timer); + Level().GameTaskManager().GiveGameTaskToActor(t, dt, bCheckExisting, t_timer); } CGameTask* CScriptGameObject::GetTask(LPCSTR id, bool only_inprocess) { - return Level().GameTaskManager().HasGameTask(id, only_inprocess); + return Level().GameTaskManager().HasGameTask(id, only_inprocess); } void CScriptGameObject::SetActiveTask(CGameTask* t) { - VERIFY(t); - Level().GameTaskManager().SetActiveTask(t); + VERIFY(t); + Level().GameTaskManager().SetActiveTask(t); } bool CScriptGameObject::IsActiveTask(CGameTask* t) { - VERIFY(t); - return Level().GameTaskManager().ActiveTask()==t; + VERIFY(t); + return Level().GameTaskManager().ActiveTask() == t; } u32 CScriptGameObject::active_slot() { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member active_slot!"); - return (0); - } - return inventory_owner->inventory().GetActiveSlot(); + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryOwner : cannot access class member active_slot!"); + return (0); + } + return inventory_owner->inventory().GetActiveSlot(); } -void CScriptGameObject::activate_slot (u32 slot_id) +void CScriptGameObject::activate_slot(u32 slot_id) { - CInventoryOwner *inventory_owner = smart_cast(&object()); - if (!inventory_owner) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member activate_slot!"); - return ; - } - inventory_owner->inventory().Activate((u16)slot_id); + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryOwner : cannot access class member activate_slot!"); + return; + } + inventory_owner->inventory().Activate((u16) slot_id); } -void CScriptGameObject::enable_movement (bool enable) +void CScriptGameObject::enable_movement(bool enable) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomMonster : cannot access class member movement_enabled!"); - return; - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CCustomMonster : cannot access class member movement_enabled!"); + return; + } - monster->movement().enable_movement (enable); + monster->movement().enable_movement(enable); } -bool CScriptGameObject::movement_enabled () +bool CScriptGameObject::movement_enabled() { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomMonster : cannot access class member movement_enabled!"); - return (false); - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CCustomMonster : cannot access class member movement_enabled!"); + return (false); + } - return (monster->movement().enabled()); + return (monster->movement().enabled()); } -bool CScriptGameObject::can_throw_grenades () const +bool CScriptGameObject::can_throw_grenades() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member can_throw_grenades!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member can_throw_grenades!"); + return (false); + } - return (stalker->can_throw_grenades()); + return (stalker->can_throw_grenades()); } -void CScriptGameObject::can_throw_grenades (bool can_throw_grenades) +void CScriptGameObject::can_throw_grenades(bool can_throw_grenades) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member can_throw_grenades!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member can_throw_grenades!"); + return; + } - stalker->can_throw_grenades (can_throw_grenades); + stalker->can_throw_grenades(can_throw_grenades); } -u32 CScriptGameObject::throw_time_interval () const +u32 CScriptGameObject::throw_time_interval() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member throw_time_interval!"); - return (0); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member throw_time_interval!"); + return (0); + } - return (stalker->throw_time_interval()); + return (stalker->throw_time_interval()); } -void CScriptGameObject::throw_time_interval (u32 throw_time_interval) +void CScriptGameObject::throw_time_interval(u32 throw_time_interval) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member throw_time_interval!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member throw_time_interval!"); + return; + } - stalker->throw_time_interval (throw_time_interval); + stalker->throw_time_interval(throw_time_interval); } -u32 CScriptGameObject::group_throw_time_interval () const +u32 CScriptGameObject::group_throw_time_interval() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member group_throw_time_interval!"); - return (0); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member group_throw_time_interval!"); + return (0); + } - return (stalker->agent_manager().member().throw_time_interval()); + return (stalker->agent_manager().member().throw_time_interval()); } -void CScriptGameObject::group_throw_time_interval (u32 throw_time_interval) +void CScriptGameObject::group_throw_time_interval(u32 throw_time_interval) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member group_throw_time_interval!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member group_throw_time_interval!"); + return; + } - stalker->agent_manager().member().throw_time_interval (throw_time_interval); + stalker->agent_manager().member().throw_time_interval(throw_time_interval); } -void CScriptGameObject::aim_time (CScriptGameObject *weapon, u32 aim_time) +void CScriptGameObject::aim_time(CScriptGameObject *weapon, u32 aim_time) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_time!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_time!"); + return; + } - CWeapon *weapon_ = smart_cast(&weapon->object()); - if (!weapon_) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_time (not a weapon passed)!"); - return; - } + CWeapon *weapon_ = smart_cast(&weapon->object()); + if (!weapon_) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_time (not a weapon passed)!"); + return; + } - stalker->aim_time (*weapon_, aim_time); + stalker->aim_time(*weapon_, aim_time); } -u32 CScriptGameObject::aim_time (CScriptGameObject *weapon) +u32 CScriptGameObject::aim_time(CScriptGameObject *weapon) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_time!"); - return (u32(-1)); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_time!"); + return (u32(-1)); + } - CWeapon *weapon_ = smart_cast(&weapon->object()); - if (!weapon_) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_time (not a weapon passed)!"); - return (u32(-1)); - } + CWeapon *weapon_ = smart_cast(&weapon->object()); + if (!weapon_) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_time (not a weapon passed)!"); + return (u32(-1)); + } - return (stalker->aim_time(*weapon_)); + return (stalker->aim_time(*weapon_)); } -void CScriptGameObject::special_danger_move (bool value) +void CScriptGameObject::special_danger_move(bool value) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member special_danger_move!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member special_danger_move!"); + return; + } - stalker->animation().special_danger_move (value); + stalker->animation().special_danger_move(value); } -bool CScriptGameObject::special_danger_move () +bool CScriptGameObject::special_danger_move() { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member special_danger_move!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member special_danger_move!"); + return (false); + } - return (stalker->animation().special_danger_move()); + return (stalker->animation().special_danger_move()); } -void CScriptGameObject::sniper_update_rate (bool value) +void CScriptGameObject::sniper_update_rate(bool value) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member sniper_update_rate!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member sniper_update_rate!"); + return; + } - stalker->sniper_update_rate (value); + stalker->sniper_update_rate(value); } -bool CScriptGameObject::sniper_update_rate () const +bool CScriptGameObject::sniper_update_rate() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member sniper_update_rate!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member sniper_update_rate!"); + return (false); + } - return (stalker->sniper_update_rate()); + return (stalker->sniper_update_rate()); } -void CScriptGameObject::sniper_fire_mode (bool value) +void CScriptGameObject::sniper_fire_mode(bool value) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member sniper_fire_mode!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member sniper_fire_mode!"); + return; + } - stalker->sniper_fire_mode (value); + stalker->sniper_fire_mode(value); } -bool CScriptGameObject::sniper_fire_mode () const +bool CScriptGameObject::sniper_fire_mode() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member sniper_fire_mode!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member sniper_fire_mode!"); + return (false); + } - return (stalker->sniper_fire_mode()); + return (stalker->sniper_fire_mode()); } -void CScriptGameObject::aim_bone_id (LPCSTR bone_id) +void CScriptGameObject::aim_bone_id(LPCSTR bone_id) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_bone_id!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_bone_id!"); + return; + } - stalker->aim_bone_id (bone_id); + stalker->aim_bone_id(bone_id); } -LPCSTR CScriptGameObject::aim_bone_id () const +LPCSTR CScriptGameObject::aim_bone_id() const { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member aim_bone_id!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member aim_bone_id!"); + return (false); + } - return (stalker->aim_bone_id().c_str()); + return (stalker->aim_bone_id().c_str()); } -void CScriptGameObject::register_in_combat () +void CScriptGameObject::register_in_combat() { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member register_in_combat!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member register_in_combat!"); + return; + } - stalker->agent_manager().member().register_in_combat(stalker); + stalker->agent_manager().member().register_in_combat(stalker); } -void CScriptGameObject::unregister_in_combat () +void CScriptGameObject::unregister_in_combat() { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member unregister_in_combat!"); - return; - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member unregister_in_combat!"); + return; + } - stalker->agent_manager().member().unregister_in_combat(stalker); + stalker->agent_manager().member().unregister_in_combat(stalker); } -CCoverPoint const* CScriptGameObject::find_best_cover (Fvector position_to_cover_from) +CCoverPoint const* CScriptGameObject::find_best_cover(Fvector position_to_cover_from) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member find_best_cover!"); - return (0); - } + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member find_best_cover!"); + return (0); + } - return (stalker->find_best_cover(position_to_cover_from)); + return (stalker->find_best_cover(position_to_cover_from)); } -bool CScriptGameObject::suitable_smart_cover (CScriptGameObject* object) +bool CScriptGameObject::suitable_smart_cover(CScriptGameObject* object) { - if (!object) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker::suitable_smart_cover null smart cover specified!"); - return (false); - } + if (!object) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker::suitable_smart_cover null smart cover specified!"); + return (false); + } - CAI_Stalker *stalker = smart_cast(&this->object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member suitable_smart_cover!"); - return (false); - } + CAI_Stalker *stalker = smart_cast(&this->object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member suitable_smart_cover!"); + return (false); + } - smart_cover::object const* const smart_object = smart_cast(&object->object()); - if (!smart_object) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : suitable_smart_cover: passed non-smart_cover object!"); - return (false); - } + smart_cover::object const* const smart_object = smart_cast(&object->object()); + if (!smart_object) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : suitable_smart_cover: passed non-smart_cover object!"); + return (false); + } - smart_cover::cover const& cover = smart_object->cover(); - if (!cover.can_fire()) - return (true); + smart_cover::cover const& cover = smart_object->cover(); + if (!cover.can_fire()) + return (true); - CInventoryItem const* inventory_item= stalker->inventory().ActiveItem(); - if (inventory_item) - return (inventory_item->BaseSlot() == INV_SLOT_3); + CInventoryItem const* inventory_item = stalker->inventory().ActiveItem(); + if (inventory_item) + return (inventory_item->BaseSlot() == INV_SLOT_3); - CInventoryItem const* best_weapon = stalker->best_weapon(); - if (!best_weapon) - return (false); + CInventoryItem const* best_weapon = stalker->best_weapon(); + if (!best_weapon) + return (false); - return (best_weapon->BaseSlot() == INV_SLOT_3); + return (best_weapon->BaseSlot() == INV_SLOT_3); } -void CScriptGameObject::take_items_enabled (bool const value) +void CScriptGameObject::take_items_enabled(bool const value) { - CAI_Stalker* const stalker = smart_cast(&this->object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member take_items_enabled!"); - return; - } + CAI_Stalker* const stalker = smart_cast(&this->object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member take_items_enabled!"); + return; + } - stalker->take_items_enabled (value); + stalker->take_items_enabled(value); } -bool CScriptGameObject::take_items_enabled () const +bool CScriptGameObject::take_items_enabled() const { - CAI_Stalker* stalker = smart_cast(&this->object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member take_items_enabled!"); - return ( false ); - } + CAI_Stalker* stalker = smart_cast(&this->object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member take_items_enabled!"); + return (false); + } - return ( stalker->take_items_enabled() ); + return (stalker->take_items_enabled()); } void CScriptGameObject::SetPlayShHdRldSounds(bool val) { - CInventoryOwner* owner = smart_cast(&object()); - if (!owner) - { - ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member SetPlayShHdRldSounds!"); - return; - } - owner->SetPlayShHdRldSounds(val); + CInventoryOwner* owner = smart_cast(&object()); + if (!owner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryOwner : cannot access class member SetPlayShHdRldSounds!"); + return; + } + owner->SetPlayShHdRldSounds(val); } -void CScriptGameObject::death_sound_enabled (bool const value) +void CScriptGameObject::death_sound_enabled(bool const value) { - CAI_Stalker* const stalker = smart_cast(&this->object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member death_sound_enabled!"); - return; - } + CAI_Stalker* const stalker = smart_cast(&this->object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member death_sound_enabled!"); + return; + } - stalker->death_sound_enabled (value); + stalker->death_sound_enabled(value); } -bool CScriptGameObject::death_sound_enabled () const +bool CScriptGameObject::death_sound_enabled() const { - CAI_Stalker* stalker = smart_cast(&this->object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member death_sound_enabled!"); - return ( false ); - } + CAI_Stalker* stalker = smart_cast(&this->object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member death_sound_enabled!"); + return (false); + } - return ( stalker->death_sound_enabled() ); + return (stalker->death_sound_enabled()); } -void CScriptGameObject::register_door () +void CScriptGameObject::register_door() { - VERIFY2 ( !m_door, make_string("object %s has been registered as a door already", m_game_object->cName().c_str()) ); - m_door = ai().doors().register_door( *smart_cast(m_game_object) ); -// Msg ( "registering door 0x%-08x", m_door ); + VERIFY2(!m_door, make_string("object %s has been registered as a door already", m_game_object->cName().c_str())); + m_door = ai().doors().register_door(*smart_cast(m_game_object)); + // Msg ( "registering door 0x%-08x", m_door ); } -void CScriptGameObject::unregister_door () +void CScriptGameObject::unregister_door() { - VERIFY2 ( m_door, make_string("object %s is not a door", m_game_object->cName().c_str()) ); -// Msg ( "UNregistering door 0x%-08x", m_door ); - ai().doors().unregister_door ( m_door ); - m_door = 0; + VERIFY2(m_door, make_string("object %s is not a door", m_game_object->cName().c_str())); + // Msg ( "UNregistering door 0x%-08x", m_door ); + ai().doors().unregister_door(m_door); + m_door = 0; } -void CScriptGameObject::on_door_is_open () +void CScriptGameObject::on_door_is_open() { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - ai().doors().on_door_is_open ( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + ai().doors().on_door_is_open(m_door); } -void CScriptGameObject::on_door_is_closed () +void CScriptGameObject::on_door_is_closed() { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - ai().doors().on_door_is_closed ( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + ai().doors().on_door_is_closed(m_door); } -bool CScriptGameObject::is_door_locked_for_npc () const +bool CScriptGameObject::is_door_locked_for_npc() const { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - return ai().doors().is_door_locked( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + return ai().doors().is_door_locked(m_door); } -void CScriptGameObject::lock_door_for_npc () +void CScriptGameObject::lock_door_for_npc() { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - ai().doors().lock_door ( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + ai().doors().lock_door(m_door); } -void CScriptGameObject::unlock_door_for_npc () +void CScriptGameObject::unlock_door_for_npc() { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - ai().doors().unlock_door ( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + ai().doors().unlock_door(m_door); } -bool CScriptGameObject::is_door_blocked_by_npc () const +bool CScriptGameObject::is_door_blocked_by_npc() const { - VERIFY2 ( m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str()) ); - return ai().doors().is_door_blocked( m_door ); + VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); + return ai().doors().is_door_blocked(m_door); } \ No newline at end of file diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index c5e6b640b26..b8fdc3db8df 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -21,84 +21,97 @@ extern class_ &script_register_game_object_trader(class_ instance("game_object"); + class_ instance("game_object"); - module(L) - [ - class_("CSightParams") - .enum_("bla-bla") - [ - value("eSightTypeCurrentDirection", int(SightManager::eSightTypeCurrentDirection )), - value("eSightTypePathDirection", int(SightManager::eSightTypePathDirection )), - value("eSightTypeDirection", int(SightManager::eSightTypeDirection )), - value("eSightTypePosition", int(SightManager::eSightTypePosition )), - value("eSightTypeObject", int(SightManager::eSightTypeObject )), - value("eSightTypeCover", int(SightManager::eSightTypeCover )), - value("eSightTypeSearch", int(SightManager::eSightTypeSearch )), - value("eSightTypeLookOver", int(SightManager::eSightTypeLookOver )), - value("eSightTypeCoverLookOver", int(SightManager::eSightTypeCoverLookOver )), - value("eSightTypeFireObject", int(SightManager::eSightTypeFireObject )), - value("eSightTypeFirePosition", int(SightManager::eSightTypeFirePosition )), - value("eSightTypeAnimationDirection", int(SightManager::eSightTypeAnimationDirection )), - value("eSightTypeDummy", int(SightManager::eSightTypeDummy )) - ] - .def( constructor<>()) - .def_readonly("m_object", &CSightParams::m_object) - .def_readonly("m_vector", &CSightParams::m_vector) - .def_readonly("m_sight_type", &CSightParams::m_sight_type), - - script_register_game_object2( - script_register_game_object1( - script_register_game_object_trader(instance) - ) - ), + module(L) + [ + class_("CSightParams") + .enum_("bla-bla") + [ + value("eSightTypeCurrentDirection", int(SightManager::eSightTypeCurrentDirection )), + value("eSightTypePathDirection", int(SightManager::eSightTypePathDirection )), + value("eSightTypeDirection", int(SightManager::eSightTypeDirection )), + value("eSightTypePosition", int(SightManager::eSightTypePosition )), + value("eSightTypeObject", int(SightManager::eSightTypeObject )), + value("eSightTypeCover", int(SightManager::eSightTypeCover )), + value("eSightTypeSearch", int(SightManager::eSightTypeSearch )), + value("eSightTypeLookOver", int(SightManager::eSightTypeLookOver )), + value("eSightTypeCoverLookOver", int(SightManager::eSightTypeCoverLookOver )), + value("eSightTypeFireObject", int(SightManager::eSightTypeFireObject )), + value("eSightTypeFirePosition", int(SightManager::eSightTypeFirePosition )), + value("eSightTypeAnimationDirection", int(SightManager::eSightTypeAnimationDirection )), + value("eSightTypeDummy", int(SightManager::eSightTypeDummy )) + ] + .def( constructor<>()) + .def_readonly("m_object", &CSightParams::m_object) + .def_readonly("m_vector", &CSightParams::m_vector) + .def_readonly("m_sight_type", &CSightParams::m_sight_type), + + script_register_game_object2( + script_register_game_object1( + script_register_game_object_trader(instance) + ) + ), - class_ >("callback") - .enum_("callback_types") - [ - value("trade_start", int(GameObject::eTradeStart)), - value("trade_stop", int(GameObject::eTradeStop)), - value("trade_sell_buy_item", int(GameObject::eTradeSellBuyItem)), - value("trade_perform_operation", int(GameObject::eTradePerformTradeOperation)), - value("trader_global_anim_request", int(GameObject::eTraderGlobalAnimationRequest)), - value("trader_head_anim_request", int(GameObject::eTraderHeadAnimationRequest)), - value("trader_sound_end", int(GameObject::eTraderSoundEnd)), - value("zone_enter", int(GameObject::eZoneEnter)), - value("zone_exit", int(GameObject::eZoneExit)), - value("level_border_exit", int(GameObject::eExitLevelBorder)), - value("level_border_enter", int(GameObject::eEnterLevelBorder)), - value("death", int(GameObject::eDeath)), - value("patrol_path_in_point", int(GameObject::ePatrolPathInPoint)), - value("inventory_pda", int(GameObject::eInventoryPda)), - value("inventory_info", int(GameObject::eInventoryInfo)), - value("article_info", int(GameObject::eArticleInfo)), - value("use_object", int(GameObject::eUseObject)), - value("hit", int(GameObject::eHit)), - value("sound", int(GameObject::eSound)), - value("action_removed", int(GameObject::eActionTypeRemoved)), - value("action_movement", int(GameObject::eActionTypeMovement)), - value("action_watch", int(GameObject::eActionTypeWatch)), - value("action_animation", int(GameObject::eActionTypeAnimation)), - value("action_sound", int(GameObject::eActionTypeSound)), - value("action_particle", int(GameObject::eActionTypeParticle)), - value("action_object", int(GameObject::eActionTypeObject)), - value("actor_sleep", int(GameObject::eActorSleep)), - value("helicopter_on_point", int(GameObject::eHelicopterOnPoint)), - value("helicopter_on_hit", int(GameObject::eHelicopterOnHit)), - value("on_item_take", int(GameObject::eOnItemTake)), - value("on_item_drop", int(GameObject::eOnItemDrop)), - value("script_animation", int(GameObject::eScriptAnimation)), - value("task_state", int(GameObject::eTaskStateChange)), - value("take_item_from_box", int(GameObject::eInvBoxItemTake)), - value("weapon_no_ammo", int(GameObject::eWeaponNoAmmoAvailable)), - - value("map_location_added", int(GameObject::eMapLocationAdded)) - ], + class_ >("callback") + .enum_("callback_types") + [ + value("trade_start", int(GameObject::eTradeStart)), + value("trade_stop", int(GameObject::eTradeStop)), + value("trade_sell_buy_item", int(GameObject::eTradeSellBuyItem)), + value("trade_perform_operation", int(GameObject::eTradePerformTradeOperation)), + value("trader_global_anim_request", int(GameObject::eTraderGlobalAnimationRequest)), + value("trader_head_anim_request", int(GameObject::eTraderHeadAnimationRequest)), + value("trader_sound_end", int(GameObject::eTraderSoundEnd)), + value("zone_enter", int(GameObject::eZoneEnter)), + value("zone_exit", int(GameObject::eZoneExit)), + value("level_border_exit", int(GameObject::eExitLevelBorder)), + value("level_border_enter", int(GameObject::eEnterLevelBorder)), + value("death", int(GameObject::eDeath)), + value("patrol_path_in_point", int(GameObject::ePatrolPathInPoint)), + value("inventory_pda", int(GameObject::eInventoryPda)), + value("inventory_info", int(GameObject::eInventoryInfo)), + value("article_info", int(GameObject::eArticleInfo)), + value("use_object", int(GameObject::eUseObject)), + value("hit", int(GameObject::eHit)), + value("sound", int(GameObject::eSound)), + value("action_removed", int(GameObject::eActionTypeRemoved)), + value("action_movement", int(GameObject::eActionTypeMovement)), + value("action_watch", int(GameObject::eActionTypeWatch)), + value("action_animation", int(GameObject::eActionTypeAnimation)), + value("action_sound", int(GameObject::eActionTypeSound)), + value("action_particle", int(GameObject::eActionTypeParticle)), + value("action_object", int(GameObject::eActionTypeObject)), + value("actor_sleep", int(GameObject::eActorSleep)), + value("helicopter_on_point", int(GameObject::eHelicopterOnPoint)), + value("helicopter_on_hit", int(GameObject::eHelicopterOnHit)), + value("on_item_take", int(GameObject::eOnItemTake)), + value("on_item_drop", int(GameObject::eOnItemDrop)), + value("script_animation", int(GameObject::eScriptAnimation)), + value("task_state", int(GameObject::eTaskStateChange)), + value("take_item_from_box", int(GameObject::eInvBoxItemTake)), + value("weapon_no_ammo", int(GameObject::eWeaponNoAmmoAvailable)), - def("buy_condition", (void (*)(CScriptIniFile*,LPCSTR))(&::buy_condition)), - def("buy_condition", (void (*)(float,float))(&::buy_condition)), - def("sell_condition", (void (*)(CScriptIniFile*,LPCSTR))(&::sell_condition)), - def("sell_condition", (void (*)(float,float))(&::sell_condition)), - def("show_condition", &::show_condition) - ]; + /* avo: custom callbacks */ + // input + value("key_press", int(GameObject::eKeyPress)), + value("key_release", int(GameObject::eKeyRelease)), + value("key_hold", int(GameObject::eKeyHold)), + value("mouse_move", int(GameObject::eMouseMove)), + value("mouse_wheel", int(GameObject::eMouseWheel)), + // inventory + value("item_to_belt", int(GameObject::eItemToBelt)), + value("item_to_slot", int(GameObject::eItemToSlot)), + value("item_to_ruck", int(GameObject::eItemToRuck)), + /* avo: end */ + + value("map_location_added", int(GameObject::eMapLocationAdded)) + ], + + def("buy_condition", (void (*)(CScriptIniFile*,LPCSTR))(&::buy_condition)), + def("buy_condition", (void (*)(float,float))(&::buy_condition)), + def("sell_condition", (void (*)(CScriptIniFile*,LPCSTR))(&::sell_condition)), + def("sell_condition", (void (*)(float,float))(&::sell_condition)), + def("show_condition", &::show_condition) + ]; } \ No newline at end of file From cb83ca8e8243d701ef684bd53f721bcf545e7bdb Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:46:02 -0500 Subject: [PATCH 020/166] Update README.md --- README.md | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index c9686acd955..fabc1d19f4a 100644 --- a/README.md +++ b/README.md @@ -5,11 +5,11 @@ This repository contains X-Ray Engine sources based on version 1.6.02. The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World. It is a place to share ideas on what to implement, gather people that want to work on the engine, -and work on the source code. +and work on the source code -Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt). - -If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). +* Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt). +* If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). +* Detailed description of changes and instructions can be found on WIKI pages Pull requests appreciated! Just check out [the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) From 3413cee78a46f237a25185817a7a4299cb0a916a Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:46:47 -0500 Subject: [PATCH 021/166] Update README.md --- README.md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index fabc1d19f4a..7491af422f4 100644 --- a/README.md +++ b/README.md @@ -9,8 +9,9 @@ and work on the source code * Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt). * If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). -* Detailed description of changes and instructions can be found on WIKI pages +* Detailed description of changes and instructions can be found on [WIKI pages](https://github.com/avoitishin/xray-16/wiki) +--- Pull requests appreciated! Just check out [the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). From 2972f1d7d4fa31d93427710e4c0a27616b07cc49 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:47:30 -0500 Subject: [PATCH 022/166] Update README.md --- README.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 7491af422f4..5473a923ec5 100644 --- a/README.md +++ b/README.md @@ -1,6 +1,6 @@ -X-Ray Engine 1.6 expansion +XRAY 16 Engine Modifications ========================== - +---- This repository contains X-Ray Engine sources based on version 1.6.02. The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World. From 99be9966502e545ce53b15d903c331717426e3a3 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:47:57 -0500 Subject: [PATCH 023/166] Update README.md --- README.md | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/README.md b/README.md index 5473a923ec5..e1981f8aedf 100644 --- a/README.md +++ b/README.md @@ -1,5 +1,4 @@ -XRAY 16 Engine Modifications -========================== +## XRAY 16 Engine Modifications ---- This repository contains X-Ray Engine sources based on version 1.6.02. The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World. From 7c47e4667df2035672a6f51b27bd5c000addd37e Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:56:18 -0500 Subject: [PATCH 024/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index e1981f8aedf..a9d295a7eaa 100644 --- a/README.md +++ b/README.md @@ -11,6 +11,6 @@ and work on the source code * Detailed description of changes and instructions can be found on [WIKI pages](https://github.com/avoitishin/xray-16/wiki) --- -Pull requests appreciated! Just check out +> Pull requests appreciated! Just check out [the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). From c2218e33038d2ea98f40f2ace1436f0145c66191 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 21:56:41 -0500 Subject: [PATCH 025/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index a9d295a7eaa..e1981f8aedf 100644 --- a/README.md +++ b/README.md @@ -11,6 +11,6 @@ and work on the source code * Detailed description of changes and instructions can be found on [WIKI pages](https://github.com/avoitishin/xray-16/wiki) --- -> Pull requests appreciated! Just check out +Pull requests appreciated! Just check out [the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). From 247369415dfe0f2caf06f69fe63448c26ee3d04b Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 22:18:20 -0500 Subject: [PATCH 026/166] README.md updates --- README.md | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/README.md b/README.md index e1981f8aedf..4c827cd08f5 100644 --- a/README.md +++ b/README.md @@ -1,16 +1,17 @@ ## XRAY 16 Engine Modifications ---- -This repository contains X-Ray Engine sources based on version 1.6.02. -The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World. +This repository contains XRAY Engine sources based on version 1.6.02. +The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World and any changes to this engine are allowed for ***non-commercial*** use only. -It is a place to share ideas on what to implement, gather people that want to work on the engine, -and work on the source code +**Note** that [Master](https://github.com/avoitishin/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/avoitishin/xray-16/wiki) but you cal also checkout [Working](https://github.com/avoitishin/xray-16/tree/working) branch for nightly builds -* Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt). +* Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt) (**not** updated for this code base yet). * If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). -* Detailed description of changes and instructions can be found on [WIKI pages](https://github.com/avoitishin/xray-16/wiki) +* Please go to our [Wiki](https://github.com/avoitishin/xray-16/wiki) pages for detailed description of changes and other useful information. + + --- Pull requests appreciated! Just check out [the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) -and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). +and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). (**not** updated for this code base yet) From 8ec5ce3aaa332ed1998c9961f81535b2ef643e18 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 22:21:01 -0500 Subject: [PATCH 027/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 4c827cd08f5..a62bc696b60 100644 --- a/README.md +++ b/README.md @@ -3,7 +3,7 @@ This repository contains XRAY Engine sources based on version 1.6.02. The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World and any changes to this engine are allowed for ***non-commercial*** use only. -**Note** that [Master](https://github.com/avoitishin/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/avoitishin/xray-16/wiki) but you cal also checkout [Working](https://github.com/avoitishin/xray-16/tree/working) branch for nightly builds +**Note** that [Master](https://github.com/avoitishin/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/avoitishin/xray-16/wiki) but you can also checkout [Working](https://github.com/avoitishin/xray-16/tree/working) for nightly builds * Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt) (**not** updated for this code base yet). * If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). From 07210fc9d38259389a6068d260267c9273d33893 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 19 Dec 2014 22:41:43 -0500 Subject: [PATCH 028/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index a62bc696b60..7150a1a4cb0 100644 --- a/README.md +++ b/README.md @@ -1,7 +1,7 @@ ## XRAY 16 Engine Modifications ---- This repository contains XRAY Engine sources based on version 1.6.02. -The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World and any changes to this engine are allowed for ***non-commercial*** use only. +The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World and any changes to this engine are allowed for ***non-commercial*** use only (see [License.txt](https://github.com/avoitishin/xray-16/blob/master/License.txt) for details). **Note** that [Master](https://github.com/avoitishin/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/avoitishin/xray-16/wiki) but you can also checkout [Working](https://github.com/avoitishin/xray-16/tree/working) for nightly builds From f542c9554755d4f2d03e9945af83503da8ab69d2 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 21 Dec 2014 00:58:53 -0500 Subject: [PATCH 029/166] ~ changed first person death to star game_over tutorial * prevent stalker animation update from crashing the game and attempt to reset animations instead ~ added optimization off pragma to CCustomOutfit::HitThroughArmor method as some method calls were swallowed by compiler and made debug impossible --- src/xrGame/Actor.cpp | 21 +- src/xrGame/CustomOutfit.cpp | 4 +- .../stalker_animation_manager_update.cpp | 355 +++++++++--------- 3 files changed, 208 insertions(+), 172 deletions(-) diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 8b275ac78d4..831e114738d 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -854,7 +854,26 @@ void CActor::Die(CObject* who) cam_Set(eacFreeLook); #endif // FP_DEATH CurrentGameUI()->HideShownDialogs(); - //start_tutorial("game_over"); + + /* avo: attempt to set camera on timer */ + /*CTimer T; + T.Start(); + + if (!SwitchToThread()) + Sleep(2); + + while (true) + { + if (T.GetElapsed_sec() == 5) + { + cam_Set(eacFreeLook); + start_tutorial("game_over"); + break; + } + }*/ + /* avo: end */ + + start_tutorial("game_over"); } else { diff --git a/src/xrGame/CustomOutfit.cpp b/src/xrGame/CustomOutfit.cpp index f6a5c6d78f7..0d03c019222 100644 --- a/src/xrGame/CustomOutfit.cpp +++ b/src/xrGame/CustomOutfit.cpp @@ -143,7 +143,7 @@ float CCustomOutfit::GetBoneArmor(s16 element) { return m_boneProtection->getBoneArmor(element); } - +#pragma optimize( "", off ) float CCustomOutfit::HitThroughArmor(float hit_power, s16 element, float ap, bool& add_wound, ALife::EHitType hit_type) { float NewHitPower = hit_power; @@ -197,7 +197,7 @@ float CCustomOutfit::HitThroughArmor(float hit_power, s16 element, float ap, boo return NewHitPower; } - +#pragma optimize( "", on ) BOOL CCustomOutfit::BonePassBullet (int boneID) { return m_boneProtection->getBonePassBullet(s16(boneID)); diff --git a/src/xrGame/stalker_animation_manager_update.cpp b/src/xrGame/stalker_animation_manager_update.cpp index 9a6a048440e..1db0af68226 100644 --- a/src/xrGame/stalker_animation_manager_update.cpp +++ b/src/xrGame/stalker_animation_manager_update.cpp @@ -14,231 +14,248 @@ #include "profiler.h" #include "stalker_movement_manager_smart_cover.h" -IC void CStalkerAnimationManager::play_delayed_callbacks () +IC void CStalkerAnimationManager::play_delayed_callbacks() { - if (m_call_script_callback) { - m_call_script_callback = false; - object().callback (GameObject::eScriptAnimation) (); - return; - } - - if (m_call_global_callback) { - m_call_global_callback = false; - if (m_global_callback) - m_global_callback (); - return; - } + if (m_call_script_callback) + { + m_call_script_callback = false; + object().callback(GameObject::eScriptAnimation) (); + return; + } + + if (m_call_global_callback) + { + m_call_global_callback = false; + if (m_global_callback) + m_global_callback(); + return; + } } -IC bool CStalkerAnimationManager::script_callback () const +IC bool CStalkerAnimationManager::script_callback() const { - if (script_animations().empty()) - return (false); - - return (object().callback(GameObject::eScriptAnimation)); + if (script_animations().empty()) + return (false); + + return (object().callback(GameObject::eScriptAnimation)); } -IC bool CStalkerAnimationManager::need_update () const +IC bool CStalkerAnimationManager::need_update() const { - if (script_callback()) - return (true); + if (script_callback()) + return (true); - return (non_script_need_update()); + return (non_script_need_update()); } -IC void CStalkerAnimationManager::update_tracks () +IC void CStalkerAnimationManager::update_tracks() { - if (!need_update()) - return; + if (!need_update()) + return; - m_skeleton_animated->UpdateTracks (); + m_skeleton_animated->UpdateTracks(); } #ifdef USE_HEAD_BONE_PART_FAKE -IC void CStalkerAnimationManager::play_script_impl () +IC void CStalkerAnimationManager::play_script_impl() { - clear_unsafe_callbacks (); - global().reset (); - torso().reset (); - legs().reset (); - - const CStalkerAnimationScript &selected = assign_script_animation(); - script().animation (selected.animation()); - if (selected.use_movement_controller()) { - script().target_matrix (selected.transform(object())); - if ( m_start_new_script_animation ) { - m_start_new_script_animation = false; - if ( selected.has_transform() && object().animation_movement( ) ) - object().destroy_anim_mov_ctrl ( ); - } - } - - script().play ( - m_skeleton_animated, - script_play_callback, - selected.use_movement_controller(), - selected.local_animation(), - false, - m_script_bone_part_mask - ); - - head().animation (assign_head_animation()); - head().play (m_skeleton_animated,head_play_callback,false,false); + clear_unsafe_callbacks(); + global().reset(); + torso().reset(); + legs().reset(); + + const CStalkerAnimationScript &selected = assign_script_animation(); + script().animation(selected.animation()); + if (selected.use_movement_controller()) + { + script().target_matrix(selected.transform(object())); + if (m_start_new_script_animation) + { + m_start_new_script_animation = false; + if (selected.has_transform() && object().animation_movement()) + object().destroy_anim_mov_ctrl(); + } + } + + script().play( + m_skeleton_animated, + script_play_callback, + selected.use_movement_controller(), + selected.local_animation(), + false, + m_script_bone_part_mask + ); + + head().animation(assign_head_animation()); + head().play(m_skeleton_animated, head_play_callback, false, false); } #else // USE_HEAD_BONE_PART_FAKE IC void CStalkerAnimationManager::play_script_impl () { - clear_unsafe_callbacks (); - global().reset (); - head().reset (); - torso().reset (); - legs().reset (); - - const CStalkerAnimationScript &selected = assign_script_animation(); - script().animation (selected.animation()); - script().play ( - m_skeleton_animated, - script_play_callback, - selected.use_movement_controller(), - selected.local_animation(), - false, - m_script_bone_part_mask - ); + clear_unsafe_callbacks (); + global().reset (); + head().reset (); + torso().reset (); + legs().reset (); + + const CStalkerAnimationScript &selected = assign_script_animation(); + script().animation (selected.animation()); + script().play ( + m_skeleton_animated, + script_play_callback, + selected.use_movement_controller(), + selected.local_animation(), + false, + m_script_bone_part_mask + ); } #endif // USE_HEAD_BONE_PART_FAKE -bool CStalkerAnimationManager::play_script () +bool CStalkerAnimationManager::play_script() { - if (script_animations().empty()) { - m_start_new_script_animation = false; - script().reset (); - return (false); - } + if (script_animations().empty()) + { + m_start_new_script_animation = false; + script().reset(); + return (false); + } - play_script_impl (); + play_script_impl(); - return (true); + return (true); } #ifdef USE_HEAD_BONE_PART_FAKE -IC void CStalkerAnimationManager::play_global_impl (const MotionID &animation, bool const &animation_movement_controller) +IC void CStalkerAnimationManager::play_global_impl(const MotionID &animation, bool const &animation_movement_controller) { - torso().reset (); - legs().reset (); - - global().animation (animation); - global().play ( - m_skeleton_animated, - global_play_callback, - animation_movement_controller, - true, - false, - m_script_bone_part_mask, - true - ); - - if (m_global_modifier) - m_global_modifier (global().blend()); - - head().animation (assign_head_animation()); - head().play (m_skeleton_animated,head_play_callback,false,false); + torso().reset(); + legs().reset(); + + global().animation(animation); + global().play( + m_skeleton_animated, + global_play_callback, + animation_movement_controller, + true, + false, + m_script_bone_part_mask, + true + ); + + if (m_global_modifier) + m_global_modifier(global().blend()); + + head().animation(assign_head_animation()); + head().play(m_skeleton_animated, head_play_callback, false, false); } #else // USE_HEAD_BONE_PART_FAKE IC void CStalkerAnimationManager::play_global_impl (const MotionID &animation, bool const &animation_movement_controller) { - head().reset (); - torso().reset (); - legs().reset (); + head().reset (); + torso().reset (); + legs().reset (); - global().animation (animation); - global().play (m_skeleton_animated,global_play_callback,false,false,false); + global().animation (animation); + global().play (m_skeleton_animated,global_play_callback,false,false,false); } #endif // USE_HEAD_BONE_PART_FAKE -bool CStalkerAnimationManager::play_global () +bool CStalkerAnimationManager::play_global() { - bool animation_movement_controller = false; - const MotionID &global_animation = assign_global_animation(animation_movement_controller); - if (!global_animation) { - clear_unsafe_callbacks (); - global().reset (); - return (false); - } - - play_global_impl (global_animation, animation_movement_controller); - - return (true); + bool animation_movement_controller = false; + const MotionID &global_animation = assign_global_animation(animation_movement_controller); + if (!global_animation) + { + clear_unsafe_callbacks(); + global().reset(); + return (false); + } + + play_global_impl(global_animation, animation_movement_controller); + + return (true); } -IC void CStalkerAnimationManager::play_head () +IC void CStalkerAnimationManager::play_head() { - head().animation (assign_head_animation()); - head().play (m_skeleton_animated,head_play_callback,false,false); + head().animation(assign_head_animation()); + head().play(m_skeleton_animated, head_play_callback, false, false); } -IC void CStalkerAnimationManager::play_torso () +IC void CStalkerAnimationManager::play_torso() { - torso().animation (assign_torso_animation()); - torso().play (m_skeleton_animated,torso_play_callback,false,false); + torso().animation(assign_torso_animation()); + torso().play(m_skeleton_animated, torso_play_callback, false, false); } -void CStalkerAnimationManager::play_legs () +void CStalkerAnimationManager::play_legs() { - float speed = 0.f; - bool first_time = !legs().animation(); - bool result = legs().animation(assign_legs_animation()); - - if (!first_time && !result && legs().blend()) { - float amount = legs().blend()->blendAmount; - m_previous_speed = (m_target_speed - m_previous_speed)*amount + m_previous_speed; - } - - legs().play (m_skeleton_animated,legs_play_callback,false,false,!fis_zero(m_target_speed)); - - if (result && legs().blend()) { - float amount = legs().blend()->blendAmount; - speed = (m_target_speed - m_previous_speed)*amount + m_previous_speed; - } - - if (fis_zero(speed)) - return; - - if (!legs().blend()) - return; - - object().movement().setup_speed_from_animation (speed); + float speed = 0.f; + bool first_time = !legs().animation(); + bool result = legs().animation(assign_legs_animation()); + + if (!first_time && !result && legs().blend()) + { + float amount = legs().blend()->blendAmount; + m_previous_speed = (m_target_speed - m_previous_speed)*amount + m_previous_speed; + } + + legs().play(m_skeleton_animated, legs_play_callback, false, false, !fis_zero(m_target_speed)); + + if (result && legs().blend()) + { + float amount = legs().blend()->blendAmount; + speed = (m_target_speed - m_previous_speed)*amount + m_previous_speed; + } + + if (fis_zero(speed)) + return; + + if (!legs().blend()) + return; + + object().movement().setup_speed_from_animation(speed); } -void CStalkerAnimationManager::update_impl () +void CStalkerAnimationManager::update_impl() { - if (!object().g_Alive()) - return; + if (!object().g_Alive()) + return; - update_tracks (); - play_delayed_callbacks (); + update_tracks(); + play_delayed_callbacks(); - if (play_script()) - return; + if (play_script()) + return; - if (play_global()) - return; + if (play_global()) + return; - play_head (); - play_torso (); - play_legs (); + play_head(); + play_torso(); + play_legs(); - torso().synchronize (m_skeleton_animated,m_legs); + torso().synchronize(m_skeleton_animated, m_legs); } -void CStalkerAnimationManager::update () +void CStalkerAnimationManager::update() { - START_PROFILE("stalker/client_update/animations") - try { - update_impl (); - } - catch(...) { - Msg ("! error in stalker with visual %s",*object().cNameVisual()); - throw; - } - STOP_PROFILE -} + START_PROFILE("stalker/client_update/animations") + try + { + update_impl(); + } + catch (...) + { + Msg("! error in stalker with visual %s", *object().cNameVisual()); + /* avo: prevent game from crashing */ + head().reset(); + torso().reset(); + legs().reset(); + global().reset(); + return; + //throw; + /* avo: end */ + } + STOP_PROFILE +} \ No newline at end of file From e60e2fb225e37da42494b20726d842a461de0dff Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 22 Dec 2014 12:19:11 -0500 Subject: [PATCH 030/166] * fix issue when values were not updated (silently skipped) when same key is encountered more than once. This is how std::map is designed. Also used more efficient C++11 std::map::emplace method instead of outdated std::pair::make_pair. Note that xxx.insert(mk_pair(v1,v2)) pattern is used extensively throughout solution so there is a good potential for other bug fixes/improvements --- src/xrGame/ui/UITextureMaster.cpp | 179 ++++++++++++++++-------------- 1 file changed, 96 insertions(+), 83 deletions(-) diff --git a/src/xrGame/ui/UITextureMaster.cpp b/src/xrGame/ui/UITextureMaster.cpp index 66d9e0fece6..eb8c2d7c6bb 100644 --- a/src/xrGame/ui/UITextureMaster.cpp +++ b/src/xrGame/ui/UITextureMaster.cpp @@ -7,133 +7,146 @@ // // copyright 2005 GSC Game World - #include "StdAfx.h" #include "UITextureMaster.h" #include "UIStaticItem.h" #include "uiabstract.h" #include "xrUIXmlParser.h" #include "../Include/xrRender/UIShader.h" +#include xr_map CUITextureMaster::m_textures; xr_map CUITextureMaster::m_shaders; void CUITextureMaster::FreeTexInfo() { - m_textures.clear (); - FreeCachedShaders (); + m_textures.clear(); + FreeCachedShaders(); } void CUITextureMaster::FreeCachedShaders() { - m_shaders.clear(); + m_shaders.clear(); } - void CUITextureMaster::ParseShTexInfo(LPCSTR xml_file) { - CUIXml xml; - xml.Load (CONFIG_PATH, "ui\\textures_descr", xml_file); - - int files_num = xml.GetNodesNum("",0,"file"); - - - for(int fi=0; fi::iterator it = m_textures.find(texture_name); - if (it != m_textures.end()) - { - sh_pair p={it->second.file, shader_name}; - xr_map::iterator sh_it = m_shaders.find(p); - if(sh_it==m_shaders.end()) - m_shaders[p]->create(shader_name.c_str(), it->second.file.c_str()); - - out_shader = m_shaders[p]; - out_rect = (*it).second.rect; - }else - out_shader->create (shader_name.c_str(), texture_name.c_str()); + xr_map::iterator it = m_textures.find(texture_name); + if (it != m_textures.end()) + { + sh_pair p = {it->second.file, shader_name}; + xr_map::iterator sh_it = m_shaders.find(p); + if (sh_it == m_shaders.end()) + m_shaders[p]->create(shader_name.c_str(), it->second.file.c_str()); + + out_shader = m_shaders[p]; + out_rect = (*it).second.rect; + } + else + out_shader->create(shader_name.c_str(), texture_name.c_str()); } void CUITextureMaster::InitTexture(const shared_str& texture_name, CUIStaticItem* tc, const shared_str& shader_name) { - xr_map::iterator it = m_textures.find(texture_name); - if (it != m_textures.end()) - { - sh_pair p={it->second.file, shader_name}; - xr_map::iterator sh_it = m_shaders.find(p); - if(sh_it==m_shaders.end()) - m_shaders[p]->create(shader_name.c_str(), it->second.file.c_str()); - - tc->SetShader (m_shaders[p]); - tc->SetTextureRect ((*it).second.rect); - tc->SetSize (Fvector2().set(it->second.rect.width(),it->second.rect.height())); - }else - tc->CreateShader (texture_name.c_str(), shader_name.c_str()); + xr_map::iterator it = m_textures.find(texture_name); + if (it != m_textures.end()) + { + sh_pair p = {it->second.file, shader_name}; + xr_map::iterator sh_it = m_shaders.find(p); + if (sh_it == m_shaders.end()) + m_shaders[p]->create(shader_name.c_str(), it->second.file.c_str()); + + tc->SetShader(m_shaders[p]); + tc->SetTextureRect((*it).second.rect); + tc->SetSize(Fvector2().set(it->second.rect.width(), it->second.rect.height())); + } + else + tc->CreateShader(texture_name.c_str(), shader_name.c_str()); } -Frect CUITextureMaster::GetTextureRect(const shared_str& texture_name){ - TEX_INFO info = FindItem(texture_name); - return info.rect; +Frect CUITextureMaster::GetTextureRect(const shared_str& texture_name) +{ + TEX_INFO info = FindItem(texture_name); + return info.rect; } -float CUITextureMaster::GetTextureHeight(const shared_str& texture_name){ - TEX_INFO info = FindItem(texture_name); - return info.rect.height(); +float CUITextureMaster::GetTextureHeight(const shared_str& texture_name) +{ + TEX_INFO info = FindItem(texture_name); + return info.rect.height(); } float CUITextureMaster::GetTextureWidth(const shared_str& texture_name) { - TEX_INFO info = FindItem(texture_name); - return info.rect.width(); + TEX_INFO info = FindItem(texture_name); + return info.rect.width(); } TEX_INFO CUITextureMaster::FindItem(const shared_str& texture_name) { - xr_map::iterator it; - it = m_textures.find(texture_name); - - if (it != m_textures.end()) - return (it->second); - else{ - return TEX_INFO(); - } + xr_map::iterator it; + it = m_textures.find(texture_name); + + if (it != m_textures.end()) + return (it->second); + else + { + return TEX_INFO(); + } } -void CUITextureMaster::GetTextureShader(const shared_str& texture_name, ui_shader& sh){ - xr_map::iterator it; - it = m_textures.find(texture_name); +void CUITextureMaster::GetTextureShader(const shared_str& texture_name, ui_shader& sh) +{ + xr_map::iterator it; + it = m_textures.find(texture_name); - R_ASSERT3(it != m_textures.end(), "can't find texture", texture_name.c_str()); + R_ASSERT3(it != m_textures.end(), "can't find texture", texture_name.c_str()); - sh->create("hud\\default", *((*it).second.file)); + sh->create("hud\\default", *((*it).second.file)); } \ No newline at end of file From d6dc1bd91865fed5cc806d6d8ff087e856427cc5 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 22 Dec 2014 19:12:03 -0500 Subject: [PATCH 031/166] * made BugTrap optional (enable in build_config_defines.h). This is very useful when working on test build and expect lots of crashes, but can be turned back on before distributing engine to testers --- src/xrCore/xrDebugNew.cpp | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/src/xrCore/xrDebugNew.cpp b/src/xrCore/xrDebugNew.cpp index 580ac517788..50803c71841 100644 --- a/src/xrCore/xrDebugNew.cpp +++ b/src/xrCore/xrDebugNew.cpp @@ -24,7 +24,7 @@ extern bool shared_str_initialized; static BOOL bException = TRUE; # define USE_BUG_TRAP #else -# define USE_BUG_TRAP +//# define USE_BUG_TRAP # define DEBUG_INVOKE __asm int 3 static BOOL bException = FALSE; #endif @@ -53,7 +53,7 @@ static BOOL bException = FALSE; #include // for _set_new_mode #include // for signals -#ifdef DEBUG +#if 1//def DEBUG # define USE_OWN_ERROR_MESSAGE_WINDOW #else // DEBUG # define USE_OWN_MINI_DUMP @@ -199,9 +199,10 @@ void xrDebug::backend(const char* expression, const char* description, const cha #ifdef USE_OWN_ERROR_MESSAGE_WINDOW LPCSTR endline = "\r\n"; LPSTR buffer = assertion_info + xr_strlen(assertion_info); - buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress CANCEL to abort execution%s", endline, endline); + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress OK to abort execution%s", endline, endline); + /*buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress CANCEL to abort execution%s", endline, endline); buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press TRY AGAIN to continue execution%s", endline); - buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press CONTINUE to continue execution and ignore all the errors of this type%s%s", endline, endline); + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press CONTINUE to continue execution and ignore all the errors of this type%s%s", endline, endline);*/ #endif // USE_OWN_ERROR_MESSAGE_WINDOW if (handler) @@ -216,12 +217,14 @@ void xrDebug::backend(const char* expression, const char* description, const cha MessageBox (NULL,assertion_info,"X-Ray error",MB_OK|MB_ICONERROR|MB_SYSTEMMODAL); #else # ifdef USE_OWN_ERROR_MESSAGE_WINDOW + ShowCursor(true); + ShowWindow(GetActiveWindow(), SW_FORCEMINIMIZE); int result = MessageBox( GetTopWindow(NULL), assertion_info, "Fatal Error", - MB_CANCELTRYCONTINUE | MB_ICONERROR | MB_SYSTEMMODAL + /*MB_CANCELTRYCONTINUE*/MB_OK | MB_ICONERROR | /*MB_SYSTEMMODAL |*/ MB_DEFBUTTON1 | MB_SETFOREGROUND ); switch (result) @@ -245,6 +248,11 @@ void xrDebug::backend(const char* expression, const char* description, const cha ignore_always = true; break; } + case IDOK: + { + FlushLog(); + TerminateProcess(GetCurrentProcess(), 1); + } default: NODEFAULT; } @@ -260,6 +268,7 @@ void xrDebug::backend(const char* expression, const char* description, const cha get_on_dialog() (false); CS.Leave(); + } LPCSTR xrDebug::error2string(long code) @@ -763,7 +772,7 @@ void _terminate () LPCSTR endline = "\r\n"; LPSTR buffer = assertion_info + xr_strlen(assertion_info); - buffer += xr_sprintf(buffer,"Press OK to abort execution%s",endline); + buffer += xr_sprintf(buffer, sizeof(buffer), "Press OK to abort execution%s",endline); MessageBox ( GetTopWindow(NULL), From 363a75d795ad9a36037585fde972072df6513b49 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 24 Dec 2014 00:25:08 -0500 Subject: [PATCH 032/166] * lua debug library does not require -dbg key anymore --- src/xrServerEntities/script_storage.cpp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index b46878f7662..8d0b1649604 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -303,10 +303,10 @@ void CScriptStorage::reinit () luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); //#ifdef DEBUG - if (strstr(Core.Params, "-dbg")) - { + //if (strstr(Core.Params, "-dbg")) + //{ luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); - } + //} //#endif // #ifdef DEBUG if (!strstr(Core.Params,"-nojit")) { From fc35ebba7e1fe6c6af90aa250f753dee5e536d29 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 24 Dec 2014 12:35:01 -0500 Subject: [PATCH 033/166] * lua debug is now enabled in both debug build and release build with -dbg key --- src/xrServerEntities/script_storage.cpp | 1227 ++++++++++++----------- 1 file changed, 634 insertions(+), 593 deletions(-) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 8d0b1649604..855ca7632f0 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -%s this %s \ -setmetatable(this, {__index = _G}) \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + %s this %s \ + setmetatable(this, {__index = _G}) \ + setfenv(1, this) \ + "; LPCSTR file_header_new = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -this._G = _G \ -%s this %s \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + this._G = _G \ + %s this %s \ + setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,323 +88,340 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator( 0, 0, "lua" ); +static doug_lea_allocator s_allocator(0, 0, "lua"); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { +static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) +{ #ifndef USE_MEMORY_MONITOR - (void)ud; - (void)osize; - if ( !nsize ) { - s_allocator.free_impl (ptr); - return 0; - } - - if ( !ptr ) - return s_allocator.malloc_impl((u32)nsize); - - return s_allocator.realloc_impl(ptr, (u32)nsize); + (void)ud; + (void) osize; + if (!nsize) + { + s_allocator.free_impl(ptr); + return 0; + } + + if (!ptr) + return s_allocator.malloc_impl((u32) nsize); + + return s_allocator.realloc_impl(ptr, (u32) nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage () +u32 game_lua_memory_usage() { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator ( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) { - LPVOID non_const_pointer = const_cast(pointer); - xr_free (non_const_pointer); - return ( 0 ); - } - - if (!pointer) { + if (!size) + { + LPVOID non_const_pointer = const_cast(pointer); + xr_free(non_const_pointer); + return (0); + } + + if (!pointer) + { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_alloc(size) ); + return (Memory.mem_alloc(size)); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size) ); + return (Memory.mem_realloc(non_const_pointer, size)); #endif // #ifdef DEBUG } -void setup_luabind_allocator () +void setup_luabind_allocator() { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message (lua_State* state, const char *msg) { - Msg ("! [LUA_JIT] %s", msg); +static void l_message(lua_State* state, const char *msg) +{ + Msg("! [LUA_JIT] %s", msg); } -static int report (lua_State *L, int status) { - if (status && !lua_isnil(L, -1)) { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report(lua_State *L, int status) +{ + if (status && !lua_isnil(L, -1)) + { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule (lua_State *L, const char *notfound) { - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule(lua_State *L, const char *notfound) +{ + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) + { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) + { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd (lua_State *L, const char *cmd) { - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val+1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd(lua_State *L, const char *cmd) +{ + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) + { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else + { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val + 1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt (lua_State *L, const char *opt) { - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt(lua_State *L, const char *opt) +{ + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage () +CScriptStorage::CScriptStorage() { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage () +CScriptStorage::~CScriptStorage() { - if (m_virtual_machine) - lua_close (m_virtual_machine); + if (m_virtual_machine) + lua_close(m_virtual_machine); } #ifndef DEBUG -static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal (state, "package"); - lua_pushstring (state, "preload"); - lua_gettable (state, -2); + lua_getglobal(state, "package"); + lua_pushstring(state, "preload"); + lua_gettable(state, -2); - lua_pushstring (state, package_id); - luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); - lua_settable (state, -3); + lua_pushstring(state, package_id); + luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); + lua_settable(state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit () +void CScriptStorage::reinit() { - if (m_virtual_machine) - lua_close (m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) { - Msg ("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit { - static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction (L, function); - lua_pushstring (L, module_name); - lua_call (L, 1, 0); - } - }; // struct lua; - - luajit::open_lib (lua(), "", luaopen_base); - luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); - -//#ifdef DEBUG - //if (strstr(Core.Params, "-dbg")) - //{ + if (m_virtual_machine) + lua_close(m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) + { + Msg("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit + { + static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction(L, function); + lua_pushstring(L, module_name); + lua_call(L, 1, 0); + } + }; // struct lua; + + luajit::open_lib(lua(), "", luaopen_base); + luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); + +#ifdef DEBUG + luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); +#else + if (strstr(Core.Params, "-dbg")) luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); - //} -//#endif // #ifdef DEBUG +#endif // #ifdef DEBUG - if (!strstr(Core.Params,"-nojit")) { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (!strstr(Core.Params, "-nojit")) + { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt (lua(), "2"); + put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt(lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params,"-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params, "-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE # ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK # ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) { + case ScriptStorage::eLuaMessageTypeInfo : { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError : { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage : { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall : { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn : { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine : { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount : { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn : { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default : NODEFAULT; + } + + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1,caFormat,marker); + Msg ("%s",S2); + + xr_strcpy (S2,SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1,caFormat,marker); + xr_strcat (S2,"\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } @@ -412,445 +429,469 @@ int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType void CScriptStorage::print_stack () { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { + lua_getinfo (L,"nSlu",&l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); + else + if (!xr_strcmp(l_tDebugInfo.what,"C")) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); + else + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start (marker,caFormat); - int result = vscript_log(tLuaMessageType,caFormat,marker); - va_end (marker); + va_list marker; + va_start(marker, caFormat); + int result = vscript_log(tLuaMessageType, caFormat, marker); + va_end(marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack (); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT (S2,caNamespaceName); - LPSTR S = S2; - for (int i=0;;++i) { - if (!xr_strlen(S)) { - script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat (b,b_size,"{"); - xr_strcat (b,b_size,S); - xr_strcat (b,b_size,"="); - if (i) - xr_strcat (c,c_size,"}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT(S2, caNamespaceName); + LPSTR S = S2; + for (int i = 0;; ++i) + { + if (!xr_strlen(S)) + { + script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat(b, b_size, "{"); + xr_strcat(b, b_size, S); + xr_strcat(b, b_size, "="); + if (i) + xr_strcat(c, c_size, "}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) - return (false); - - xr_sprintf (insert,header,caNameSpaceName,a,b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try { - if (total_size < 768*1024) - script = (LPSTR)_alloca(total_size); - else { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) + { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) + return (false); + + xr_sprintf(insert, header, caNameSpaceName, a, b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try + { + if (total_size < 768 * 1024) + script = (LPSTR) _alloca(total_size); + else + { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); + script = (LPSTR) Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy (script, total_size, insert); - CopyMemory (script + str_len,caBuffer,u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); - - if ( dynamic_allocation ) - xr_free (script); - } - else { -// try - { - l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); - } -// catch(...) { -// l_iErrorCode= LUA_ERRSYNTAX; -// } - } - - if (l_iErrorCode) { + script = (LPSTR) Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy(script, total_size, insert); + CopyMemory(script + str_len, caBuffer, u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); + + if (dynamic_allocation) + xr_free(script); + } + else + { + // try + { + l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); + } + // catch(...) { + // l_iErrorCode= LUA_ERRSYNTAX; + // } + } + + if (l_iErrorCode) + { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error (L); - return (false); - } - return (true); + on_error(L); + return (false); + } + return (true); } -bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) { - script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); - return (false); - } - strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); - - if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { -// VERIFY (lua_gettop(lua()) >= 4); -// lua_pop (lua(),4); -// VERIFY (lua_gettop(lua()) == start - 3); - lua_settop (lua(),start); - FS.r_close (l_tpFileReader); - return (false); - } - FS.r_close (l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) + { + script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); + return (false); + } + strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); + + if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) + { + // VERIFY (lua_gettop(lua()) >= 4); + // lua_pop (lua(),4); + // VERIFY (lua_gettop(lua()) == start - 3); + lua_settop(lua(), start); + FS.r_close(l_tpFileReader); + return (false); + } + FS.r_close(l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i=0; lua_type(lua(), -i-1); i++) - Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); - } + if (0) //. + { + for (int i = 0; lua_type(lua(), -i - 1); i++) + Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) { + if (l_iErrorCode) + { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error (lua()); - lua_settop (lua(),start); - return (false); - } + on_error(lua()); + lua_settop(lua(), start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName,caNamespaceName)) { - lua_settop (lua(),start); - return (false); - } - VERIFY (lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName, caNamespaceName)) + { + lua_settop(lua(), start); + return (false); + } + VERIFY(lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring (lua(),"_G"); - lua_rawget (lua(),LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy (S2,N); - LPSTR S = S2; - for (;;) { - if (!xr_strlen(S)) { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - lua_pushstring (lua(),S); - lua_rawget (lua(),-2); - if (lua_isnil(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 2); - lua_pop (lua(),2); - VERIFY (start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (start == lua_gettop(lua())); - FATAL (" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove (lua(),-2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) { - VERIFY (lua_gettop(lua()) == start + 1); - } - else { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring(lua(), "_G"); + lua_rawget(lua(), LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy(S2, N); + LPSTR S = S2; + for (;;) + { + if (!xr_strlen(S)) + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + lua_pushstring(lua(), S); + lua_rawget(lua(), -2); + if (lua_isnil(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 2); + lua_pop(lua(), 2); + VERIFY(start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + FATAL(" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove(lua(), -2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) + { + VERIFY(lua_gettop(lua()) == start + 1); + } + else + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object (LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil (lua()); - while (lua_next(lua(), -2)) { - - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { - VERIFY (lua_gettop(lua()) >= 3); - lua_pop (lua(), 3); - VERIFY (lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop (lua(), 1); - } - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil(lua()); + while (lua_next(lua(), -2)) + { + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) + { + VERIFY(lua_gettop(lua()) >= 3); + lua_pop(lua(), 3); + VERIFY(lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop(lua(), 1); + } + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { - VERIFY (lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier,type); - VERIFY (lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) + { + VERIFY(lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier, type); + VERIFY(lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy (S1,namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S,'.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy(S1, namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) + { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S, '.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable { - int m_error_code; - LPCSTR const& m_error_description; - raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard () - { +struct raii_guard : private boost::noncopyable +{ + int m_error_code; + LPCSTR const& m_error_description; + raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} + ~raii_guard() + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = true; #endif // #ifdef DEBUG - if ( !m_error_code ) - return; - - if ( break_on_assert ) - R_ASSERT2 ( !m_error_code, m_error_description ); - else - Msg ( "! SCRIPT ERROR: %s", m_error_description ); - } - } + if (!m_error_code) + return; + + if (break_on_assert) + R_ASSERT2(!m_error_code, m_error_description); + else + Msg("! SCRIPT ERROR: %s", m_error_description); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error (L,iErorCode); +{ + if (iErorCode) + print_error(L, iErorCode); + + LPCSTR S = "see call_stack for details!"; - LPCSTR S = "see call_stack for details!"; + raii_guard guard(iErorCode, S); - raii_guard guard(iErorCode, S); + if (!lua_isstring(L, -1)) + return (false); - if (!lua_isstring(L,-1)) - return (false); - - S = lua_tostring(L,-1); - if (!xr_strcmp(S,"cannot resume dead coroutine")) { - VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); + S = lua_tostring(L, -1); + if (!xr_strcmp(S, "cannot resume dead coroutine")) + { + VERIFY2("Please do not return any values from main!!!", caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else { - if (!iErorCode) - script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); - script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); + } + else + { + if (!iErorCode) + script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); + script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) { - case LUA_ERRRUN : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD : { - script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); - break; - } - default : NODEFAULT; - } + switch (iErrorCode) + { + case LUA_ERRRUN: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD: { + script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); + break; + } + default: NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log (LPCSTR format, ...) +int CScriptStorage::error_log(LPCSTR format, ...) { - va_list marker; - va_start (marker,format); + va_list marker; + va_start(marker, format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy(S2, S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1,format,marker); - va_end (marker); + int result = vsprintf(S1, format, marker); + va_end(marker); - Msg ("%s",S2); + Msg("%s", S2); - return (result); + return (result); } \ No newline at end of file From 509f52e422fe49aebb5e60b81c66e80035acdaa0 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Wed, 24 Dec 2014 20:17:07 -0500 Subject: [PATCH 034/166] + Added sanity checks to a couple actions that should verify if enemy/danger object actually exists before executing since it's possible these can become NULL between the time the evaluator is ran and the action is executed + (Call of Chernobyl specific) Attempt to workaround strange line 114 (111 without my added code) of action_planner_inline.h crash when loading generators + Added support for rpm_mode_2 and cycle_down variables for weapon configs; used to emulate Abakan/AN-94's 1800 rpm two-shot burst and the cycle down to 600 RPM. + Added a condition check to see if member is visible_now before transfering enemy through CAI_Stalker::process_enemies to prevent omniscient detection * Changed ERROR to WARNING when an object is transfered to a new inventory owner when it doesn't have a parent --- src/xrGame/ShootingObject.cpp | 11 +- src/xrGame/ShootingObject.h | 2 + src/xrGame/WeaponMagazined.cpp | 22 +- src/xrGame/action_planner_inline.h | 29 +- src/xrGame/ai/stalker/ai_stalker_misc.cpp | 5 + src/xrGame/alife_online_offline_group.cpp | 19 + src/xrGame/stalker_combat_actions.cpp | 20 +- .../stalker_danger_in_direction_actions.cpp | 5 + src/xrGame/xrServer_process_event_reject.cpp | 2 +- src/xrServerEntities/script_storage.cpp | 1227 ++++++++--------- .../xrServer_Objects_ALife_Monsters.h | 3 +- ...rserver_objects_alife_monsters_script3.cpp | 1 + 12 files changed, 693 insertions(+), 653 deletions(-) diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index 9273e9f00c4..5d0bdc27ad0 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -68,8 +68,17 @@ void CShootingObject::Load (LPCSTR section) //время затрачиваемое на выстрел fOneShotTime = pSettings->r_float (section,"rpm"); + + //Alundaio: Two-shot burst rpm; used for Abakan/AN-94 + fModeShotTime = READ_IF_EXISTS(pSettings, r_float, section, "rpm_mode_2", fOneShotTime); + VERIFY(fOneShotTime>0.f); - fOneShotTime = 60.f / fOneShotTime; + fOneShotTime = 60.f / fOneShotTime; + fModeShotTime = 60.f / fModeShotTime; + + //Cycle down RPM after first 2 shots; used for Abakan/AN-94 + bCycleDown = READ_IF_EXISTS(pSettings, r_bool, section, "cycle_down", false); + //Alundaio: END LoadFireParams (section); LoadLights (section, ""); diff --git a/src/xrGame/ShootingObject.h b/src/xrGame/ShootingObject.h index e31ebb3beb0..755f7ee6285 100644 --- a/src/xrGame/ShootingObject.h +++ b/src/xrGame/ShootingObject.h @@ -67,6 +67,8 @@ class CShootingObject : public IAnticheatDumpable bool bWorking; float fOneShotTime; + float fModeShotTime; + bool bCycleDown; Fvector4 fvHitPower; Fvector4 fvHitPowerCritical; float fHitImpulse; diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 18563c3020a..afbd0650ffe 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -507,6 +507,14 @@ void CWeaponMagazined::state_Fire(float dt) VERIFY(!m_magazine.empty()); + //Alundaio: Use fModeShotTime instead of fOneShotTime if current fire mode is 2-shot burst + float rpm = fOneShotTime; + if (GetCurrentFireMode() == 2) + { + rpm = fModeShotTime; + } + //Alundaio: END + while ( !m_magazine.empty() && fShotTimeCounter<0 && (IsWorking() || m_bFireSingleShot) && @@ -521,7 +529,19 @@ void CWeaponMagazined::state_Fire(float dt) m_bFireSingleShot = false; - fShotTimeCounter += fOneShotTime; + //Alundaio: Cycle down RPM after two shots; used for Abakan/AN-94 + if (bCycleDown == true) + { + if (m_iShotNum <= 2) { + rpm = fModeShotTime; + } + else { + rpm = fOneShotTime; + } + } + + fShotTimeCounter += rpm; + //Alundaio: END ++m_iShotNum; diff --git a/src/xrGame/action_planner_inline.h b/src/xrGame/action_planner_inline.h index 54c5cc1e905..096bf9aadd2 100644 --- a/src/xrGame/action_planner_inline.h +++ b/src/xrGame/action_planner_inline.h @@ -99,20 +99,25 @@ void CPlanner::update () THROW (!solution().empty()); - if (initialized()) { - if (current_action_id() != solution().front()) { - current_action().finalize (); - m_current_action_id = solution().front(); - current_action().initialize (); + //Alundaio: Attempt to workaround strange line 114 crash when loading generators + if (!solution().empty()) + { + if (initialized()) { + if (current_action_id() != solution().front()) { + current_action().finalize(); + m_current_action_id = solution().front(); + current_action().initialize(); + } + } + else { + m_initialized = true; + m_current_action_id = solution().front(); + current_action().initialize(); } - } - else { - m_initialized = true; - m_current_action_id = solution().front(); - current_action().initialize (); - } - current_action().execute (); + current_action().execute (); + } + //Alundaio: END } TEMPLATE_SPECIALIZATION diff --git a/src/xrGame/ai/stalker/ai_stalker_misc.cpp b/src/xrGame/ai/stalker/ai_stalker_misc.cpp index d271649c742..087102fcfe5 100644 --- a/src/xrGame/ai/stalker/ai_stalker_misc.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_misc.cpp @@ -192,6 +192,11 @@ void CAI_Stalker::process_enemies () continue; } + //Alundaio: Only transfer enemy if I can see member at this very moment! + if (!memory().visual().visible_now(member)) + continue; + //Alundaio: END + memory().make_object_visible_somewhen (member->memory().enemy().selected()); found = true; break; diff --git a/src/xrGame/alife_online_offline_group.cpp b/src/xrGame/alife_online_offline_group.cpp index 00fa300ff25..9ad48bbc3c8 100644 --- a/src/xrGame/alife_online_offline_group.cpp +++ b/src/xrGame/alife_online_offline_group.cpp @@ -353,6 +353,25 @@ void CSE_ALifeOnlineOfflineGroup::force_change_position(Fvector position) //m_tGraphID = new_graph_vertex; } +//Alundaio: force new graph location +/* +void CSE_ALifeOnlineOfflineGroup::force_change_game_vertex_id(u32 game_vertex_id) +{ + if (game_vertex_id && ai().game_graph().valid_vertex_id(game_vertex_id)) + { + const CGameGraph::CVertex vertex = *ai().game_graph().vertex(game_vertex_id); + m_tNodeID = vertex.level_vertex_id; + o_Position = vertex.level_point; + + if (m_tGraphID != game_vertex_id) + { + alife().graph().change(this, m_tGraphID, game_vertex_id); + } + } +} +*/ +//Alundaio: END + void CSE_ALifeOnlineOfflineGroup::on_failed_switch_online() { MEMBERS::const_iterator I = m_members.begin(); diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index a64cd2feff1..ecee9753b15 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -757,7 +757,9 @@ void CStalkerActionDetourEnemy::initialize () object().agent_manager().member().member(m_object).cover(0); //#ifndef SILENT_COMBAT - if (object().memory().enemy().selected()->human_being() && object().agent_manager().member().group_behaviour()) + //Alundaio: Sanity + if (object().memory().enemy().selected() && object().memory().enemy().selected()->human_being() && object().agent_manager().member().group_behaviour()) + //Alundaio: END // object().sound().play (eStalkerSoundNeedBackup); object().sound().play (eStalkerSoundDetour); //#endif @@ -779,6 +781,11 @@ void CStalkerActionDetourEnemy::execute () inherited::execute (); + //Alundaio: Sanity + if (!object().memory().enemy().selected()) + return; + //Alundaio: END + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) @@ -979,8 +986,10 @@ void CStalkerActionSuddenAttack::execute () inherited::execute (); - if (object().agent_manager().member().combat_members().size() > 1) - m_storage->set_property (eWorldPropertyUseSuddenness,false); + //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a squad; most likely removed because of friendly fire but not an issue with rx_ff scheme + //if (object().agent_manager().member().combat_members().size() > 1) + // m_storage->set_property (eWorldPropertyUseSuddenness,false); + //Alundaio: END if (!object().memory().enemy().selected()) return; @@ -1089,6 +1098,11 @@ void CStalkerActionKillEnemyIfPlayerOnThePath::execute () inherited::execute (); + //Alundaio: Sanity + if (!object().memory().enemy().selected()) + return; + //Alundaio: END + object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); fire (); diff --git a/src/xrGame/stalker_danger_in_direction_actions.cpp b/src/xrGame/stalker_danger_in_direction_actions.cpp index 64aafb89828..42e32d15887 100644 --- a/src/xrGame/stalker_danger_in_direction_actions.cpp +++ b/src/xrGame/stalker_danger_in_direction_actions.cpp @@ -134,6 +134,11 @@ void CStalkerActionDangerInDirectionLookOut::execute () { inherited::execute (); + //Alundaio: This action should verify the danger object exists; sanity + if (!object().memory().danger().selected()) + return; + //Alundaio: END + // CMemoryInfo mem_object = object().memory().memory(object().memory().danger().selected()->object()); // // if (!mem_object.m_object) diff --git a/src/xrGame/xrServer_process_event_reject.cpp b/src/xrGame/xrServer_process_event_reject.cpp index cc52dd650c6..4eb08a4e35a 100644 --- a/src/xrGame/xrServer_process_event_reject.cpp +++ b/src/xrGame/xrServer_process_event_reject.cpp @@ -30,7 +30,7 @@ bool xrServer::Process_event_reject (NET_Packet& P, const ClientID sender, const xr_vector::iterator c = std::find (C.begin(),C.end(),id_entity); if (c == C.end()) { - Msg("! ERROR: SV: can't find children [%d] of parent [%d]", id_entity, e_parent); + Msg("! WARNING: SV: can't find children [%d] of parent [%d]", id_entity, e_parent); return false; } diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 855ca7632f0..8d0b1649604 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ - local function script_name() \ - return \"%s\" \ - end \ - local this = {} \ - %s this %s \ - setmetatable(this, {__index = _G}) \ - setfenv(1, this) \ - "; +local function script_name() \ +return \"%s\" \ +end \ +local this = {} \ +%s this %s \ +setmetatable(this, {__index = _G}) \ +setfenv(1, this) \ + "; LPCSTR file_header_new = "\ - local function script_name() \ - return \"%s\" \ - end \ - local this = {} \ - this._G = _G \ - %s this %s \ - setfenv(1, this) \ - "; +local function script_name() \ +return \"%s\" \ +end \ +local this = {} \ +this._G = _G \ +%s this %s \ +setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,340 +88,323 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator(0, 0, "lua"); +static doug_lea_allocator s_allocator( 0, 0, "lua" ); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) -{ +static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { #ifndef USE_MEMORY_MONITOR - (void)ud; - (void) osize; - if (!nsize) - { - s_allocator.free_impl(ptr); - return 0; - } - - if (!ptr) - return s_allocator.malloc_impl((u32) nsize); - - return s_allocator.realloc_impl(ptr, (u32) nsize); + (void)ud; + (void)osize; + if ( !nsize ) { + s_allocator.free_impl (ptr); + return 0; + } + + if ( !ptr ) + return s_allocator.malloc_impl((u32)nsize); + + return s_allocator.realloc_impl(ptr, (u32)nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage() +u32 game_lua_memory_usage () { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator ( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) - { - LPVOID non_const_pointer = const_cast(pointer); - xr_free(non_const_pointer); - return (0); - } - - if (!pointer) - { + if (!size) { + LPVOID non_const_pointer = const_cast(pointer); + xr_free (non_const_pointer); + return ( 0 ); + } + + if (!pointer) { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return (Memory.mem_alloc(size)); + return ( Memory.mem_alloc(size) ); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return (Memory.mem_realloc(non_const_pointer, size)); + return ( Memory.mem_realloc(non_const_pointer, size) ); #endif // #ifdef DEBUG } -void setup_luabind_allocator() +void setup_luabind_allocator () { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message(lua_State* state, const char *msg) -{ - Msg("! [LUA_JIT] %s", msg); +static void l_message (lua_State* state, const char *msg) { + Msg ("! [LUA_JIT] %s", msg); } -static int report(lua_State *L, int status) -{ - if (status && !lua_isnil(L, -1)) - { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report (lua_State *L, int status) { + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule(lua_State *L, const char *notfound) -{ - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) - { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) - { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule (lua_State *L, const char *notfound) { + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd(lua_State *L, const char *cmd) -{ - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) - { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else - { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val + 1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd (lua_State *L, const char *cmd) { + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val+1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt(lua_State *L, const char *opt) -{ - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt (lua_State *L, const char *opt) { + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage() +CScriptStorage::CScriptStorage () { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage() +CScriptStorage::~CScriptStorage () { - if (m_virtual_machine) - lua_close(m_virtual_machine); + if (m_virtual_machine) + lua_close (m_virtual_machine); } #ifndef DEBUG -static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal(state, "package"); - lua_pushstring(state, "preload"); - lua_gettable(state, -2); + lua_getglobal (state, "package"); + lua_pushstring (state, "preload"); + lua_gettable (state, -2); - lua_pushstring(state, package_id); - luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); - lua_settable(state, -3); + lua_pushstring (state, package_id); + luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); + lua_settable (state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit() +void CScriptStorage::reinit () { - if (m_virtual_machine) - lua_close(m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) - { - Msg("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit - { - static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction(L, function); - lua_pushstring(L, module_name); - lua_call(L, 1, 0); - } - }; // struct lua; - - luajit::open_lib(lua(), "", luaopen_base); - luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); - -#ifdef DEBUG - luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); -#else - if (strstr(Core.Params, "-dbg")) + if (m_virtual_machine) + lua_close (m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) { + Msg ("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit { + static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction (L, function); + lua_pushstring (L, module_name); + lua_call (L, 1, 0); + } + }; // struct lua; + + luajit::open_lib (lua(), "", luaopen_base); + luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); + +//#ifdef DEBUG + //if (strstr(Core.Params, "-dbg")) + //{ luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); -#endif // #ifdef DEBUG + //} +//#endif // #ifdef DEBUG - if (!strstr(Core.Params, "-nojit")) - { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (!strstr(Core.Params,"-nojit")) { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt(lua(), "2"); + put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt (lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params, "-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params,"-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE # ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK # ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); # endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) { + case ScriptStorage::eLuaMessageTypeInfo : { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError : { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage : { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall : { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn : { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine : { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount : { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn : { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default : NODEFAULT; + } + + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1,caFormat,marker); + Msg ("%s",S2); + + xr_strcpy (S2,SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1,caFormat,marker); + xr_strcat (S2,"\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } @@ -429,469 +412,445 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, void CScriptStorage::print_stack () { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { + lua_getinfo (L,"nSlu",&l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); + else + if (!xr_strcmp(l_tDebugInfo.what,"C")) + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); + else + script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start(marker, caFormat); - int result = vscript_log(tLuaMessageType, caFormat, marker); - va_end(marker); + va_list marker; + va_start (marker,caFormat); + int result = vscript_log(tLuaMessageType,caFormat,marker); + va_end (marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack (); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT(S2, caNamespaceName); - LPSTR S = S2; - for (int i = 0;; ++i) - { - if (!xr_strlen(S)) - { - script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S, '.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat(b, b_size, "{"); - xr_strcat(b, b_size, S); - xr_strcat(b, b_size, "="); - if (i) - xr_strcat(c, c_size, "}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT (S2,caNamespaceName); + LPSTR S = S2; + for (int i=0;;++i) { + if (!xr_strlen(S)) { + script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S,'.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat (b,b_size,"{"); + xr_strcat (b,b_size,S); + xr_strcat (b,b_size,"="); + if (i) + xr_strcat (c,c_size,"}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) - { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) - return (false); - - xr_sprintf(insert, header, caNameSpaceName, a, b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try - { - if (total_size < 768 * 1024) - script = (LPSTR) _alloca(total_size); - else - { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) + return (false); + + xr_sprintf (insert,header,caNameSpaceName,a,b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try { + if (total_size < 768*1024) + script = (LPSTR)_alloca(total_size); + else { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR) Memory.mem_alloc(total_size); + script = (LPSTR)Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR) Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy(script, total_size, insert); - CopyMemory(script + str_len, caBuffer, u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); - - if (dynamic_allocation) - xr_free(script); - } - else - { - // try - { - l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); - } - // catch(...) { - // l_iErrorCode= LUA_ERRSYNTAX; - // } - } - - if (l_iErrorCode) - { + script = (LPSTR)Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy (script, total_size, insert); + CopyMemory (script + str_len,caBuffer,u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); + + if ( dynamic_allocation ) + xr_free (script); + } + else { +// try + { + l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); + } +// catch(...) { +// l_iErrorCode= LUA_ERRSYNTAX; +// } + } + + if (l_iErrorCode) { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error(L); - return (false); - } - return (true); + on_error (L); + return (false); + } + return (true); } -bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) - { - script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); - return (false); - } - strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); - - if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) - { - // VERIFY (lua_gettop(lua()) >= 4); - // lua_pop (lua(),4); - // VERIFY (lua_gettop(lua()) == start - 3); - lua_settop(lua(), start); - FS.r_close(l_tpFileReader); - return (false); - } - FS.r_close(l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) { + script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); + return (false); + } + strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); + + if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { +// VERIFY (lua_gettop(lua()) >= 4); +// lua_pop (lua(),4); +// VERIFY (lua_gettop(lua()) == start - 3); + lua_settop (lua(),start); + FS.r_close (l_tpFileReader); + return (false); + } + FS.r_close (l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i = 0; lua_type(lua(), -i - 1); i++) - Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); - } + if (0) //. + { + for (int i=0; lua_type(lua(), -i-1); i++) + Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it - // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy - // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it +// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy +// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) - { + if (l_iErrorCode) { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error(lua()); - lua_settop(lua(), start); - return (false); - } + on_error (lua()); + lua_settop (lua(),start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName, caNamespaceName)) - { - lua_settop(lua(), start); - return (false); - } - VERIFY(lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName,caNamespaceName)) { + lua_settop (lua(),start); + return (false); + } + VERIFY (lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring(lua(), "_G"); - lua_rawget(lua(), LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy(S2, N); - LPSTR S = S2; - for (;;) - { - if (!xr_strlen(S)) - { - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S, '.'); - if (S1) - *S1 = 0; - lua_pushstring(lua(), S); - lua_rawget(lua(), -2); - if (lua_isnil(lua(), -1)) - { - // lua_settop (lua(),0); - VERIFY(lua_gettop(lua()) >= 2); - lua_pop(lua(), 2); - VERIFY(start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(), -1)) - { - // lua_settop (lua(),0); - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(start == lua_gettop(lua())); - FATAL(" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove(lua(), -2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) - { - VERIFY(lua_gettop(lua()) == start + 1); - } - else - { - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring (lua(),"_G"); + lua_rawget (lua(),LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy (S2,N); + LPSTR S = S2; + for (;;) { + if (!xr_strlen(S)) { + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(), 1); + VERIFY (start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S,'.'); + if (S1) + *S1 = 0; + lua_pushstring (lua(),S); + lua_rawget (lua(),-2); + if (lua_isnil(lua(),-1)) { +// lua_settop (lua(),0); + VERIFY (lua_gettop(lua()) >= 2); + lua_pop (lua(),2); + VERIFY (start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(),-1)) { +// lua_settop (lua(),0); + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(),1); + VERIFY (start == lua_gettop(lua())); + FATAL (" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove (lua(),-2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) { + VERIFY (lua_gettop(lua()) == start + 1); + } + else { + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(),1); + VERIFY (lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object(LPCSTR identifier, int type) +bool CScriptStorage::object (LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil(lua()); - while (lua_next(lua(), -2)) - { - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) - { - VERIFY(lua_gettop(lua()) >= 3); - lua_pop(lua(), 3); - VERIFY(lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop(lua(), 1); - } - VERIFY(lua_gettop(lua()) >= 1); - lua_pop(lua(), 1); - VERIFY(lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil (lua()); + while (lua_next(lua(), -2)) { + + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { + VERIFY (lua_gettop(lua()) >= 3); + lua_pop (lua(), 3); + VERIFY (lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop (lua(), 1); + } + VERIFY (lua_gettop(lua()) >= 1); + lua_pop (lua(), 1); + VERIFY (lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) - { - VERIFY(lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier, type); - VERIFY(lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { + VERIFY (lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier,type); + VERIFY (lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy(S1, namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) - { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S, '.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy (S1,namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S,'.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable -{ - int m_error_code; - LPCSTR const& m_error_description; - raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard() - { +struct raii_guard : private boost::noncopyable { + int m_error_code; + LPCSTR const& m_error_description; + raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} + ~raii_guard () + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = true; #endif // #ifdef DEBUG - if (!m_error_code) - return; - - if (break_on_assert) - R_ASSERT2(!m_error_code, m_error_description); - else - Msg("! SCRIPT ERROR: %s", m_error_description); - } - } + if ( !m_error_code ) + return; + + if ( break_on_assert ) + R_ASSERT2 ( !m_error_code, m_error_description ); + else + Msg ( "! SCRIPT ERROR: %s", m_error_description ); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error(L, iErorCode); - - LPCSTR S = "see call_stack for details!"; +{ + if (iErorCode) + print_error (L,iErorCode); - raii_guard guard(iErorCode, S); + LPCSTR S = "see call_stack for details!"; - if (!lua_isstring(L, -1)) - return (false); + raii_guard guard(iErorCode, S); - S = lua_tostring(L, -1); - if (!xr_strcmp(S, "cannot resume dead coroutine")) - { - VERIFY2("Please do not return any values from main!!!", caScriptFileName); + if (!lua_isstring(L,-1)) + return (false); + + S = lua_tostring(L,-1); + if (!xr_strcmp(S,"cannot resume dead coroutine")) { + VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else - { - if (!iErorCode) - script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); - script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); + } + else { + if (!iErorCode) + script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); + script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) - { - case LUA_ERRRUN: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX: { - script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD: { - script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); - break; - } - default: NODEFAULT; - } + switch (iErrorCode) { + case LUA_ERRRUN : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX : { + script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD : { + script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); + break; + } + default : NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log(LPCSTR format, ...) +int CScriptStorage::error_log (LPCSTR format, ...) { - va_list marker; - va_start(marker, format); + va_list marker; + va_start (marker,format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy(S2, S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy (S2,S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1, format, marker); - va_end(marker); + int result = vsprintf(S1,format,marker); + va_end (marker); - Msg("%s", S2); + Msg ("%s",S2); - return (result); + return (result); } \ No newline at end of file diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h index 2e7eb99a373..17382c56f9b 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h @@ -578,7 +578,8 @@ SERVER_ENTITY_DECLARE_BEGIN3(CSE_ALifeOnlineOfflineGroup,CSE_ALifeDynamicObject, u32 npc_count () const; void clear_location_types (); void add_location_type (LPCSTR mask); - void force_change_position (Fvector position); + void force_change_position(Fvector position); + //void force_change_game_vertex_id(u32 game_vertex_id); virtual void on_failed_switch_online (); #else public: diff --git a/src/xrServerEntities/xrserver_objects_alife_monsters_script3.cpp b/src/xrServerEntities/xrserver_objects_alife_monsters_script3.cpp index e81ea11f7f9..bdbf30bbf5b 100644 --- a/src/xrServerEntities/xrserver_objects_alife_monsters_script3.cpp +++ b/src/xrServerEntities/xrserver_objects_alife_monsters_script3.cpp @@ -105,6 +105,7 @@ void CSE_ALifeOnlineOfflineGroup::script_register(lua_State *L) .def("add_location_type", &CSE_ALifeOnlineOfflineGroup::add_location_type) .def("clear_location_types",&CSE_ALifeOnlineOfflineGroup::clear_location_types) .def("force_change_position",&CSE_ALifeOnlineOfflineGroup::force_change_position) + //.def("force_change_game_vertex_id", &CSE_ALifeOnlineOfflineGroup::force_change_game_vertex_id) #endif //#ifdef XRGAME_EXPORTS ]; } From a665139855d2452b9f8adcbec0cd07a1045f0f8e Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 29 Dec 2014 02:15:03 -0500 Subject: [PATCH 035/166] * changed out folders for Debug (bin_dbg) and Release (bin_rel) --- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 4 +- src/3rd party/NVTT/NVTT.vcxproj | 2 +- src/3rd party/crypto/crypto.vcxproj | 4 +- src/3rd party/cximage/cximage.vcxproj | 2 +- .../luabind/luabind.beta7-devel.rc4.vcxproj | 4 +- .../contrib/msvc7/ode_default/default.vcxproj | 4 +- .../OpenAL-Windows/Router/Router.vcxproj | 4 +- src/Layers/xrAPI/xrAPI.vcxproj | 4 +- src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 4 +- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 4 +- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 4 +- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 4 +- src/engine.sln | 45 +++++++++---------- src/xrCDB/xrCDB.vcxproj | 4 +- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 4 +- src/xrCore/xrCore.vcxproj | 4 +- src/xrD3D9-Null/xrD3D9-Null.vcxproj | 4 +- src/xrEngine/xrEngine.vcxproj | 4 +- src/xrGame/xrGame.vcxproj | 4 +- src/xrGameSpy/xrGameSpy.vcxproj | 4 +- src/xrNetServer/xrNetServer.vcxproj | 4 +- src/xrParticles/xrParticles.vcxproj | 4 +- src/xrPhysics/xrPhysics.vcxproj | 4 +- src/xrSound/xrSound.vcxproj | 4 +- src/xrXMLParser/xrXMLParser.vcxproj | 4 +- 25 files changed, 68 insertions(+), 69 deletions(-) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index 0f8a697c96e..c1d0aa90b2a 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -42,14 +42,14 @@ $(xrIntDir)$(ProjectName)\ - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ .dll $(ProjectName) false true - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ .dll false diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index 0a3219be261..add8801837f 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -211,7 +211,7 @@ $(xrIntDir)$(ProjectName)\ - $(xrGameBinDir) + $(xrBinDir) $(xrIntDir)$(ProjectName)\ diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 4a277373186..844fbace518 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -42,11 +42,11 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ - $(xrGameDir)_bin_rel + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ $(ProjectName) .dll diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index 317814c95d1..97b8d362063 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -57,7 +57,7 @@ $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) - $(xrGameBinDir) + $(xrBinDir) $(xrIntDir)$(ProjectName)\ false diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index 119c50a4889..8a0179990eb 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -43,12 +43,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj index 68434274050..11fb631a988 100644 --- a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj +++ b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj @@ -63,14 +63,14 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true false false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ true false diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index 8668fc8d256..bb5aa7e46d1 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -46,12 +46,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index fd4198e97f9..ee6429a665c 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -43,12 +43,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index dad1568b23d..d2645615855 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -59,13 +59,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index 8a00afe9a2e..5befda800cf 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -59,13 +59,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index 046d7504ce5..ff36269f8a6 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -59,13 +59,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index 054604fe7c0..aeab586f4bf 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -59,13 +59,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/engine.sln b/src/engine.sln index 5308c5d8ecd..695490d8283 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -1,6 +1,6 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2013 -VisualStudioVersion = 12.0.21005.1 +VisualStudioVersion = 12.0.31101.0 MinimumVisualStudioVersion = 10.0.40219.1 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "utils", "utils", "{89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B}" EndProject @@ -208,7 +208,6 @@ Global {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.ActiveCfg = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.ActiveCfg = Debug|Win32 - {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.Build.0 = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.Build.0 = Mixed|Win32 @@ -599,6 +598,13 @@ Global HideSolutionNode = FALSE EndGlobalSection GlobalSection(NestedProjects) = preSolution + {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} + {1BF75FEB-87DD-486C-880B-227987D191C2} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {566551F4-4EF1-4CB4-A131-F982E7606907} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {0899B131-F1D4-4876-9BA1-67AC821DB9E1} = {3FC858CB-4888-42FF-ABC5-82DAECB59C2C} + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} {C961EA19-716C-4A6D-BB13-689F8FB78B01} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {2FAAC8BA-369F-465E-B465-2235963FD377} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} @@ -610,34 +616,27 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {F1836CE2-59EF-4189-8B9C-D103A511CB27} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} + {F573DE85-0866-4775-955F-6C3241D2AE80} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {39EE310B-4F1D-4716-A39F-4AB844DB3680} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960} = {901F5C6A-BA06-4727-B9BC-762891749A46} + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160} = {901F5C6A-BA06-4727-B9BC-762891749A46} + {C928FBB1-EDD8-4198-90DC-170A54C2AD72} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {84D91673-C1A1-47FF-9A75-4E73F31F4C63} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {492D3DFE-9068-4E7E-A008-7C2420A651C0} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} + {CC52E0B3-CC35-4934-9302-035B748F3F2C} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {F6C4F74A-152C-4612-9E3B-D02346234855} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {EFB76D6F-0092-439C-A783-C0BE10BD17C9} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {EC924B9B-4991-4931-8623-E1DB9AE005CA} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {FFDF27A8-C198-49ED-BA13-4DA9054266C6} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} + {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {032A10AB-E44C-4751-A290-001EF99E664A} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} - {0899B131-F1D4-4876-9BA1-67AC821DB9E1} = {3FC858CB-4888-42FF-ABC5-82DAECB59C2C} - {1BF75FEB-87DD-486C-880B-227987D191C2} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {566551F4-4EF1-4CB4-A131-F982E7606907} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {CC52E0B3-CC35-4934-9302-035B748F3F2C} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {F6C4F74A-152C-4612-9E3B-D02346234855} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {FA169092-EA3E-40C1-8E5A-A2B575700FE8} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {880CD250-BA77-4DAF-A8D4-552F12DD3AE4} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {0EB257DC-5CFC-44B0-82C9-CE6B158BE473} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} - {901F5C6A-BA06-4727-B9BC-762891749A46} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {68CB7CEC-F907-47AD-B624-B8432F53AAE3} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {F1066EAC-EE25-4C7A-9023-5957A6F7BA27} = {A074ECE0-24F4-497F-99BD-AD45D5C51382} - {93AD3B7E-71DE-4FA2-90E7-A79782ED4960} = {901F5C6A-BA06-4727-B9BC-762891749A46} - {56AD8F54-F89E-4B5A-93F8-8A617BFD1160} = {901F5C6A-BA06-4727-B9BC-762891749A46} - {C928FBB1-EDD8-4198-90DC-170A54C2AD72} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {84D91673-C1A1-47FF-9A75-4E73F31F4C63} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {E5F40F9E-C01B-4B97-9BD5-FC24308D8022} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {FFDF27A8-C198-49ED-BA13-4DA9054266C6} = {68CB7CEC-F907-47AD-B624-B8432F53AAE3} - {F573DE85-0866-4775-955F-6C3241D2AE80} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {6BA3121A-ACBC-4685-9246-4549CA1EFFFD} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {39EE310B-4F1D-4716-A39F-4AB844DB3680} = {AB0D87B3-0937-4B2D-AB01-7A613B3EEF0D} - {492D3DFE-9068-4E7E-A008-7C2420A651C0} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} - {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48} = {2DDE8FE4-6490-4AC5-B020-7E6A203F6318} EndGlobalSection GlobalSection(DPCodeReviewSolutionGUID) = preSolution DPCodeReviewSolutionGUID = {00000000-0000-0000-0000-000000000000} diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 6f5034643f3..1f5195c9992 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -61,7 +61,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false @@ -71,7 +71,7 @@ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index 16c55b0facb..e68f412acfa 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -73,12 +73,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 15b69f58171..368351f35c9 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -59,12 +59,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrD3D9-Null/xrD3D9-Null.vcxproj b/src/xrD3D9-Null/xrD3D9-Null.vcxproj index 1265db415ec..72c26ec0fc4 100644 --- a/src/xrD3D9-Null/xrD3D9-Null.vcxproj +++ b/src/xrD3D9-Null/xrD3D9-Null.vcxproj @@ -44,12 +44,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index eef78e76dab..23b843247a9 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -107,7 +107,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true @@ -119,7 +119,7 @@ false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 2f008ce4aa2..b8896563b8f 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -61,7 +61,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true @@ -73,7 +73,7 @@ false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index 65f4ac4d12c..7d1dfccf6be 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -45,12 +45,12 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ false - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index 5b582fd0850..6a005c8ddbb 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -58,7 +58,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false @@ -68,7 +68,7 @@ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) true diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 921b996a033..5d4221522f0 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false @@ -69,7 +69,7 @@ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index e18cf0159f7..9b9a9d505c8 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -58,13 +58,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index cac3a3e66ac..28511b1b349 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -58,13 +58,13 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index 4ee0f787b16..1c7de9a7b4a 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -59,7 +59,7 @@ <_ProjectFileVersion>12.0.30501.0 - $(xrGameDir)_bin_rel\ + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ false @@ -69,7 +69,7 @@ false - $(xrGameBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ true true From 6dda126113c6ad8e34c3870fbfec75b165d29963 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Sat, 27 Dec 2014 17:54:53 -0500 Subject: [PATCH 036/166] + added alife().jump_to_level + added alife().teleport_object + added level.get_target_obj + added level.get_target_dist + added level.send + added several condition checks to stalker_combat_actions.cpp to further the validity of the performed action. --- src/xrGame/alife_online_offline_group.cpp | 7 +- src/xrGame/alife_simulator_script.cpp | 5 +- src/xrGame/level_script.cpp | 32 ++++++++ src/xrGame/stalker_combat_actions.cpp | 75 +++++++++++-------- src/xrServerEntities/script_storage.cpp | 2 +- .../xrServer_Objects_ALife_Monsters.h | 2 +- 6 files changed, 84 insertions(+), 39 deletions(-) diff --git a/src/xrGame/alife_online_offline_group.cpp b/src/xrGame/alife_online_offline_group.cpp index 9ad48bbc3c8..8ee83881e95 100644 --- a/src/xrGame/alife_online_offline_group.cpp +++ b/src/xrGame/alife_online_offline_group.cpp @@ -355,13 +355,12 @@ void CSE_ALifeOnlineOfflineGroup::force_change_position(Fvector position) //Alundaio: force new graph location /* -void CSE_ALifeOnlineOfflineGroup::force_change_game_vertex_id(u32 game_vertex_id) +void CSE_ALifeOnlineOfflineGroup::force_change_game_vertex_id(GameGraph::_GRAPH_ID game_vertex_id) { if (game_vertex_id && ai().game_graph().valid_vertex_id(game_vertex_id)) { - const CGameGraph::CVertex vertex = *ai().game_graph().vertex(game_vertex_id); - m_tNodeID = vertex.level_vertex_id; - o_Position = vertex.level_point; + m_tNodeID = ai().game_graph().vertex(game_vertex_id)->level_vertex_id(); + o_Position = ai().game_graph().vertex(game_vertex_id)->level_point(); if (m_tGraphID != game_vertex_id) { diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index 594db97a847..57800235f6d 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -353,7 +353,10 @@ void CALifeSimulator::script_register (lua_State *L) .def("dont_has_info", &dont_has_info) .def("switch_distance", &CALifeSimulator::switch_distance) .def("switch_distance", &CALifeSimulator::set_switch_distance) - + //Alundaio: extend alife simulator exports + .def("jump_to_level", (void (CALifeSimulator::*) (LPCSTR))(&CALifeSimulator::jump_to_level)) + .def("teleport_object", (void (CALifeSimulator::*) (ALife::_OBJECT_ID, GameGraph::_GRAPH_ID, u32, Fvector))(&CALifeSimulator::teleport_object)) + //Alundaio: END ,def("alife", &alife) ]; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index eef046821bc..a2ecc1012f3 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -36,6 +36,7 @@ #include "ui/UIInventoryUtilities.h" #include "alife_object_registry.h" #include "xrServer_Objects_ALife_Monsters.h" +#include "hudmanager.h" using namespace luabind; @@ -704,6 +705,31 @@ bool has_active_tutotial() return (g_tutorial!=NULL); } +//Alundaio: namespace level exports extension + +//ability to update level netpacket +void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighPriority = 0, bool bSendImmediately = 0) +{ + Level().Send(P,net_flags(bReliable,bSequential,bHighPriority,bSendImmediately)); +} + +//ability to get the target game_object at crosshair +CGameObject* g_get_target_obj() +{ + collide::rq_result& RQ = HUD().GetCurrentRayQuery(); + CGameObject* object = smart_cast(RQ.O); + if (object) + return object; +} + +float g_get_target_dist() +{ + collide::rq_result& RQ = HUD().GetCurrentRayQuery(); + CGameObject* object = smart_cast(RQ.O); + if (object) + return RQ.range; +} +//Alundaio: END #pragma optimize("s",on) @@ -718,6 +744,12 @@ void CLevel::script_register(lua_State *L) module(L,"level") [ + //Alundaio: Extend level namespace exports + def("send", g_send), //allow the ability to send netpacket to level + //def("ray_pick",g_ray_pick), + def("get_target_obj",g_get_target_obj), //intentionally named to what is in xray extensions + def("get_target_dist",g_get_target_dist), + //Alundaio: END // obsolete\deprecated def("object_by_id", get_object_by_id), #ifdef DEBUG diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index ecee9753b15..3d0c7021fac 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -202,16 +202,13 @@ void CStalkerActionRetreatFromEnemy::execute () { inherited::execute (); - if (!object().memory().enemy().selected()) - return; - if (!object().memory().enemy().selected()) return; object().movement().set_movement_type (eMovementTypeRun); object().movement().set_path_type (MovementManager::ePathTypeLevelPath); object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStatePanic); + object().movement().set_mental_state (eMentalStateDanger); //Alundaio: Panic animation looks ridiculous, danger set is better object().movement().set_body_state (eBodyStateStand); CCoverPoint const* point = 0; @@ -410,23 +407,24 @@ void CStalkerActionKillEnemy::execute () VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); - object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); + //Alundaio + if (object().memory().enemy().selected() && object().memory().enemy().selected()->g_Alive()) { + object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); -// u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; -// float distance = object().memory().enemy().selected()->Position().distance_to(object().Position()); -// select_queue_params (distance,min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); -// object().CObjectHandler::set_goal (eObjectActionFire1,object().best_weapon(),min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); - fire (); + fire(); - if (object().memory().enemy().selected()) { - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (mem_object.m_object) { - object().best_cover (mem_object.m_object_params.m_position); + object().best_cover(mem_object.m_object_params.m_position); } } + else { + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); + } + //Alundaio: END } ////////////////////////////////////////////////////////////////////////// @@ -457,7 +455,7 @@ void CStalkerActionTakeCover::initialize () m_storage->set_property (eWorldPropertyEnemyDetoured,false); #ifndef SILENT_COMBAT - if (object().memory().enemy().selected()->human_being()) { + if (object().memory().enemy().selected() && object().memory().enemy().selected()->human_being()) { if (object().agent_manager().member().can_cry_noninfo_phrase()) if (object().Position().distance_to_sqr(object().memory().enemy().selected()->Position()) < _sqr(10.f)) if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().agent_manager().member().group_behaviour()) @@ -479,6 +477,9 @@ void CStalkerActionTakeCover::execute () inherited::execute (); + if (!object().memory().enemy().selected()) + return; + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) @@ -599,6 +600,9 @@ void CStalkerActionLookOut::execute () inherited::execute (); + if (!object().memory().enemy().selected()) + return; + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) @@ -636,7 +640,7 @@ void CStalkerActionLookOut::execute () CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (mem_object.m_object) { - object().best_cover (mem_object.m_object_params.m_position); + object().best_cover(mem_object.m_object_params.m_position); } } } @@ -680,6 +684,9 @@ void CStalkerActionHoldPosition::execute () inherited::execute (); + if (!object().memory().enemy().selected()) + return; + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) @@ -986,7 +993,7 @@ void CStalkerActionSuddenAttack::execute () inherited::execute (); - //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a squad; most likely removed because of friendly fire but not an issue with rx_ff scheme + //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a group. //if (object().agent_manager().member().combat_members().size() > 1) // m_storage->set_property (eWorldPropertyUseSuddenness,false); //Alundaio: END @@ -1050,7 +1057,7 @@ void CStalkerActionSuddenAttack::execute () CVisualMemoryManager *visual_memory_manager = object().memory().enemy().selected()->visual_memory(); VERIFY (visual_memory_manager); - if (!visual_memory_manager->visible_now(&object())) + if (object().memory().enemy().selected()->g_Alive() && !visual_memory_manager->visible_now(&object())) return; m_storage->set_property (eWorldPropertyUseSuddenness, false); @@ -1128,24 +1135,28 @@ CStalkerActionCriticalHit::CStalkerActionCriticalHit (CAI_Stalker *object, LPCS { } -void CStalkerActionCriticalHit::initialize () +void CStalkerActionCriticalHit::initialize() { - inherited::initialize (); - - object().brain().affect_cover (false); - object().movement().set_movement_type (eMovementTypeStand); + inherited::initialize(); - if (object().memory().enemy().selected()) { - u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; - float distance = object().memory().enemy().selected()->Position().distance_to(object().Position()); - select_queue_params (distance,min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); - object().CObjectHandler::set_goal (eObjectActionIdle,object().best_weapon(),min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + object().brain().affect_cover(false); + object().movement().set_movement_type(eMovementTypeStand); + + if (object().inventory().ActiveItem() && object().best_weapon() && (object().inventory().ActiveItem()->object().ID() == object().best_weapon()->object().ID())) + { + if (object().memory().enemy().selected()) { + u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; + float distance = object().memory().enemy().selected()->Position().distance_to(object().Position()); + select_queue_params(distance, min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + object().CObjectHandler::set_goal(eObjectActionIdle, object().best_weapon(), min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + } + else { + object().CObjectHandler::set_goal(eObjectActionIdle, object().best_weapon()); + } } - else - object().CObjectHandler::set_goal (eObjectActionIdle,object().best_weapon()); - object().sight().setup (CSightAction(SightManager::eSightTypeCurrentDirection,true,true)); - object().sound().play (eStalkerSoundInjuring); + object().sight().setup(CSightAction(SightManager::eSightTypeCurrentDirection,true,true)); + object().sound().play(eStalkerSoundInjuring); } void CStalkerActionCriticalHit::finalize () diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 8d0b1649604..f0471fd7f07 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -742,7 +742,7 @@ struct raii_guard : private boost::noncopyable { #ifdef DEBUG static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = true; + static bool const break_on_assert = false; //Alundaio: Can't get a proper stack trace with this enabled #endif // #ifdef DEBUG if ( !m_error_code ) return; diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h index 17382c56f9b..8fd0641436c 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h @@ -579,7 +579,7 @@ SERVER_ENTITY_DECLARE_BEGIN3(CSE_ALifeOnlineOfflineGroup,CSE_ALifeDynamicObject, void clear_location_types (); void add_location_type (LPCSTR mask); void force_change_position(Fvector position); - //void force_change_game_vertex_id(u32 game_vertex_id); + //void force_change_game_vertex_id(GameGraph::_GRAPH_ID game_vertex_id); virtual void on_failed_switch_online (); #else public: From 4d7d0044d05387ac0d780bd146ea439e6b0f6d9b Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Sun, 28 Dec 2014 05:34:10 -0500 Subject: [PATCH 037/166] + Now pass game object of initiator using a door to ph_door:use_callback --- src/xrGame/doors_actor.cpp | 8 ++++++++ src/xrGame/doors_actor.h | 3 +++ src/xrGame/doors_door.cpp | 12 +++++++----- src/xrGame/doors_door.h | 2 +- src/xrGame/level_script.cpp | 16 ++++++++++------ 5 files changed, 29 insertions(+), 12 deletions(-) diff --git a/src/xrGame/doors_actor.cpp b/src/xrGame/doors_actor.cpp index 8cef732c343..2b4faf99fd6 100644 --- a/src/xrGame/doors_actor.cpp +++ b/src/xrGame/doors_actor.cpp @@ -10,6 +10,7 @@ #include "ai/stalker/ai_stalker.h" #include "stalker_movement_manager_smart_cover.h" #include "debug_renderer.h" +#include "script_game_object.h" //Alundaio using doors::actor; using doors::door; @@ -48,6 +49,13 @@ pcstr actor::get_name ( ) const return m_object.cName().c_str(); } +//Alundaio: add the ability to get lua game object +CScriptGameObject *actor::lua_game_object() const +{ + return m_object.lua_game_object(); +} +//Alundaio: END + void actor::revert_states ( doors_type& doors, door_state const state ) { doors_type::const_iterator i = doors.begin( ); diff --git a/src/xrGame/doors_actor.h b/src/xrGame/doors_actor.h index cf5db5ad5de..9b3f4fefcb5 100644 --- a/src/xrGame/doors_actor.h +++ b/src/xrGame/doors_actor.h @@ -11,6 +11,8 @@ #include "doors.h" class CAI_Stalker; +class CScriptGameObject; //Alundaio: Needed for return type + namespace doors { @@ -23,6 +25,7 @@ class actor : private boost::noncopyable { bool update_doors ( doors_type const& doors, float average_speed ); void on_door_destroy ( door& door ); pcstr get_name ( ) const; + CScriptGameObject *lua_game_object() const; //Alundaio #ifdef DEBUG void render ( ) const; #endif // #ifdef DEBUG diff --git a/src/xrGame/doors_door.cpp b/src/xrGame/doors_door.cpp index 27feb680bc8..cd38c385cb3 100644 --- a/src/xrGame/doors_door.cpp +++ b/src/xrGame/doors_door.cpp @@ -151,7 +151,8 @@ void door::unlock ( ) #endif // #ifdef DEBUG } -void door::change_state ( ) +//Alundaio: Modified to pass the initiator to ph_door:use_callback +void door::change_state(actor* initiator) { VERIFY ( valid(m_state) ); VERIFY ( valid(m_target_state) ); @@ -160,12 +161,13 @@ void door::change_state ( ) if ( m_state == m_target_state ) return; - m_object.callback(GameObject::eUseObject)( m_object.lua_game_object(), (CScriptGameObject*)0 ); + m_object.callback(GameObject::eUseObject)( m_object.lua_game_object(), (CScriptGameObject*) initiator->lua_game_object() ); #ifdef DEBUG if ( g_debug_doors) Msg ( "door[%s] started to change its state to [%s]", m_object.cName().c_str(), m_target_state == door_state_open ? "open" : "closed" ); #endif // #ifdef DEBUG } +//Alundaio: END void door::change_state ( actor* const initiator, door_state const start_state, door_state const stop_state ) { @@ -186,7 +188,7 @@ void door::change_state ( actor* const initiator, door_state const start_state // if ( !xr_strcmp( "sim_default_duty_28212", initiator->get_name()) ) { // int i=0; (void)i; // } - change_state ( ); + change_state(initiator); //Alundaio: Pass the initator! We need to know who is trying to open door! return; } @@ -229,7 +231,7 @@ void door::change_state ( actor* const initiator, door_state const start_state // if ( !xr_strcmp( "sim_default_duty_28212", initiator->get_name()) ) { // int i=0; (void)i; // } - change_state ( ); + change_state (initiator); //Alundaio: Pass the initator! We need to know who is trying to open door! } else VERIFY ( m_previous_state == stop_state ); @@ -261,7 +263,7 @@ void door::on_change_state ( door_state const state ) return; } - change_state ( ); + change_state((actor*)0); //Alundaio: NULL - no need to know who } #ifdef DEBUG diff --git a/src/xrGame/doors_door.h b/src/xrGame/doors_door.h index 791b9c87838..780eea28b44 100644 --- a/src/xrGame/doors_door.h +++ b/src/xrGame/doors_door.h @@ -39,7 +39,7 @@ class door : private boost::noncopyable { private: void change_state ( actor* initiator, door_state start_state, door_state stop_state ); - void change_state ( ); + void change_state (actor* initiator); //Alundaio: Pass the initiator private: typedef xr_vector actors_type; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index a2ecc1012f3..8b326c9c7a7 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -714,20 +714,24 @@ void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighP } //ability to get the target game_object at crosshair -CGameObject* g_get_target_obj() +CScriptGameObject* g_get_target_obj() { collide::rq_result& RQ = HUD().GetCurrentRayQuery(); - CGameObject* object = smart_cast(RQ.O); - if (object) - return object; + if (RQ.O) + { + CGameObject *game_object = static_cast(RQ.O); + if (game_object) + return game_object->lua_game_object(); + } + return (CScriptGameObject*)0; } float g_get_target_dist() { collide::rq_result& RQ = HUD().GetCurrentRayQuery(); - CGameObject* object = smart_cast(RQ.O); - if (object) + if (RQ.O) return RQ.range; + return 0.f; } //Alundaio: END From c9121c566e6592abe7c41b3008a1bb15c2b12ce1 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Mon, 29 Dec 2014 16:42:09 -0500 Subject: [PATCH 038/166] + added the ability to reload system ini through lua script via the namespace function reload_system_ini() + added DEBUG Msg for .thm parsing --- src/Layers/xrRender/TextureDescrManager.cpp | 5 +++ src/xrGame/level_script.cpp | 5 ++- .../script_ini_file_script.cpp | 34 +++++++++++++++++++ 3 files changed, 41 insertions(+), 3 deletions(-) diff --git a/src/Layers/xrRender/TextureDescrManager.cpp b/src/Layers/xrRender/TextureDescrManager.cpp index b3a1aaedbf3..bbdc3d0ceca 100644 --- a/src/Layers/xrRender/TextureDescrManager.cpp +++ b/src/Layers/xrRender/TextureDescrManager.cpp @@ -41,6 +41,11 @@ void CTextureDescrMngr::LoadTHM(LPCSTR initial) string_path fn; for(;It!=It_e;++It) { +//Alundaio: Print list of *.thm to find bad .thms! +#ifdef DEBUG + Msg("%s", (*It).name.c_str()); +#endif +//Alundaio: END FS.update_path (fn, initial, (*It).name.c_str()); IReader* F = FS.r_open(fn); diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 8b326c9c7a7..a014a80a090 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -723,7 +723,7 @@ CScriptGameObject* g_get_target_obj() if (game_object) return game_object->lua_game_object(); } - return (CScriptGameObject*)0; + return (0); } float g_get_target_dist() @@ -731,7 +731,7 @@ float g_get_target_dist() collide::rq_result& RQ = HUD().GetCurrentRayQuery(); if (RQ.O) return RQ.range; - return 0.f; + return (0); } //Alundaio: END @@ -750,7 +750,6 @@ void CLevel::script_register(lua_State *L) [ //Alundaio: Extend level namespace exports def("send", g_send), //allow the ability to send netpacket to level - //def("ray_pick",g_ray_pick), def("get_target_obj",g_get_target_obj), //intentionally named to what is in xray extensions def("get_target_dist",g_get_target_dist), //Alundaio: END diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index ce71e2af57e..d5b239c02fd 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -16,6 +16,17 @@ CScriptIniFile *get_system_ini() return ((CScriptIniFile*)pSettings); } +//Alundaio: The extended ability to reload system ini after application launch +CScriptIniFile *reload_system_ini() +{ + pSettings->Destroy(const_cast(pSettings)); + string_path fname; + FS.update_path(fname, "$game_config$", "system.ltx"); + pSettings = xr_new(fname); + return ((CScriptIniFile*)pSettings); +} +//Alundaio: END + #ifdef XRGAME_EXPORTS CScriptIniFile *get_game_ini() { @@ -66,6 +77,26 @@ void CScriptIniFile::script_register(lua_State *L) [ class_("ini_file") .def( constructor()) + //Alundaio: Extend script ini file + .def("w_bool",&CScriptIniFile::w_bool) + .def("w_color", &CScriptIniFile::w_color) + .def("w_fcolor", &CScriptIniFile::w_fcolor) + .def("w_float", &CScriptIniFile::w_float) + .def("w_vector2", &CScriptIniFile::w_fvector2) + .def("w_vector", &CScriptIniFile::w_fvector3) + .def("w_s16", &CScriptIniFile::w_s16) + .def("w_s32", &CScriptIniFile::w_s32) + .def("w_s64", &CScriptIniFile::w_s64) + .def("w_s8", &CScriptIniFile::w_s8) + .def("w_string", &CScriptIniFile::w_string) + .def("w_u16", &CScriptIniFile::w_u16) + .def("w_u32", &CScriptIniFile::w_u32) + .def("w_u64", &CScriptIniFile::w_u64) + .def("w_u8", &CScriptIniFile::w_u8) + .def("save_as", (bool (CScriptIniFile::*)(LPCSTR))(&CScriptIniFile::save_as)) + .def("save_at_end", &CScriptIniFile::save_at_end) + .def("remove_line", &CScriptIniFile::remove_line) + //Alundaio: END .def("section_exist", &CScriptIniFile::section_exist ) .def("line_exist", &CScriptIniFile::line_exist ) .def("r_clsid", &CScriptIniFile::r_clsid ) @@ -81,6 +112,9 @@ void CScriptIniFile::script_register(lua_State *L) .def("r_line", &::r_line, out_value(_4) + out_value(_5)), def("system_ini", &get_system_ini), + //Alundaio: extend + def("reload_system_ini", &reload_system_ini), + //Alundaio:: END #ifdef XRGAME_EXPORTS def("game_ini", &get_game_ini), #endif // XRGAME_EXPORTS From 43e2a0f774a06812bc2fd4e350d1fedacaf73095 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Mon, 29 Dec 2014 18:16:41 -0500 Subject: [PATCH 039/166] * fix teleport_object - removed jump_to_level; unnecessary --- src/xrGame/alife_simulator_script.cpp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index 57800235f6d..af252613c20 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -309,6 +309,11 @@ bool dont_has_info (const CALifeSimulator *self, const ALife::_OBJECT_ID return (!has_info(self,id,info_id)); } +void teleport_object(CALifeSimulator *alife, ALife::_OBJECT_ID id, GameGraph::_GRAPH_ID game_vertex_id, u32 level_vertex_id, const Fvector &position) +{ + alife->teleport_object(id, game_vertex_id, level_vertex_id, position); +} + //void disable_info_portion (const CALifeSimulator *self, const ALife::_OBJECT_ID &id) //{ // THROW (self); @@ -354,11 +359,10 @@ void CALifeSimulator::script_register (lua_State *L) .def("switch_distance", &CALifeSimulator::switch_distance) .def("switch_distance", &CALifeSimulator::set_switch_distance) //Alundaio: extend alife simulator exports - .def("jump_to_level", (void (CALifeSimulator::*) (LPCSTR))(&CALifeSimulator::jump_to_level)) - .def("teleport_object", (void (CALifeSimulator::*) (ALife::_OBJECT_ID, GameGraph::_GRAPH_ID, u32, Fvector))(&CALifeSimulator::teleport_object)) + .def("teleport_object", &teleport_object) //Alundaio: END - ,def("alife", &alife) ]; + ,def("alife", &alife) { if (story_ids.empty()) From 382bf9b3928eb1e7e9eeb3f84e0f613de6808121 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 29 Dec 2014 23:27:04 -0500 Subject: [PATCH 040/166] + commented few VERIFY statements to make COC run in Debug * minor change to methods added by @revolucas - changed function to be passed by reference instead of value when registering with LUA * bug fix in alife_simulator_script.cpp --- src/xrCore/FS.h | 2 +- src/xrEngine/xrTheora_Stream.cpp | 6 ++++-- src/xrGame/alife_simulator_script.cpp | 4 +++- src/xrGame/level_script.cpp | 6 +++--- 4 files changed, 11 insertions(+), 7 deletions(-) diff --git a/src/xrCore/FS.h b/src/xrCore/FS.h index e1689ddaa63..e80312b5b5a 100644 --- a/src/xrCore/FS.h +++ b/src/xrCore/FS.h @@ -285,7 +285,7 @@ class XRCORE_API IReader : public IReaderBase < IReader > IC void seek(int ptr) { Pos = ptr; VERIFY((Pos <= Size) && (Pos >= 0)); }; IC int length() const { return Size; }; IC void* pointer() const { return &(data[Pos]); }; - IC void advance(int cnt) { Pos += cnt; VERIFY((Pos <= Size) && (Pos >= 0)); }; + IC void advance(int cnt) { Pos += cnt; /*VERIFY((Pos <= Size) && (Pos >= 0));*/ }; //AVO: commented out to allow COC to run in debug. Was failing when reading one of *.thm public: void r(void* p, int cnt); diff --git a/src/xrEngine/xrTheora_Stream.cpp b/src/xrEngine/xrTheora_Stream.cpp index c876f67a18e..bfc03d9ac0c 100644 --- a/src/xrEngine/xrTheora_Stream.cpp +++ b/src/xrEngine/xrTheora_Stream.cpp @@ -197,11 +197,13 @@ BOOL CTheoraStream::Decode(u32 in_tm_play) if (d_frame < k_frame) { //. dbg_log ((stderr,"%04d: preroll\n",d_frame)); - VERIFY((0 != d_frame%key_rate) || (0 == d_frame%key_rate) && theora_packet_iskeyframe(&o_packet)); + //AVO: commented out VERIFY to get COC start in Debug - something is wrong with video stream + //VERIFY((0 != d_frame%key_rate) || (0 == d_frame%key_rate) && theora_packet_iskeyframe(&o_packet)); continue; } BOOL is_key = theora_packet_iskeyframe(&o_packet); - VERIFY((d_frame != k_frame) || ((d_frame == k_frame) && is_key)); + //AVO: commented out VERIFY to get COC start in Debug - something is wrong with video stream + //VERIFY((d_frame != k_frame) || ((d_frame == k_frame) && is_key)); // real decode //. dbg_log ((stderr,"%04d: decode\n",d_frame)); int res = theora_decode_packetin(&t_state, &o_packet); diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index af252613c20..cc3c94035d4 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -309,6 +309,7 @@ bool dont_has_info (const CALifeSimulator *self, const ALife::_OBJECT_ID return (!has_info(self,id,info_id)); } +//Alundaio: teleport object void teleport_object(CALifeSimulator *alife, ALife::_OBJECT_ID id, GameGraph::_GRAPH_ID game_vertex_id, u32 level_vertex_id, const Fvector &position) { alife->teleport_object(id, game_vertex_id, level_vertex_id, position); @@ -361,8 +362,9 @@ void CALifeSimulator::script_register (lua_State *L) //Alundaio: extend alife simulator exports .def("teleport_object", &teleport_object) //Alundaio: END - ]; + ,def("alife", &alife) + ]; { if (story_ids.empty()) diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index a014a80a090..b43b0f9384b 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -749,9 +749,9 @@ void CLevel::script_register(lua_State *L) module(L,"level") [ //Alundaio: Extend level namespace exports - def("send", g_send), //allow the ability to send netpacket to level - def("get_target_obj",g_get_target_obj), //intentionally named to what is in xray extensions - def("get_target_dist",g_get_target_dist), + def("send", &g_send), //allow the ability to send netpacket to level + def("get_target_obj", &g_get_target_obj), //intentionally named to what is in xray extensions + def("get_target_dist", &g_get_target_dist), //Alundaio: END // obsolete\deprecated def("object_by_id", get_object_by_id), From acbf8ecfdd07f9cd21552c793f96ca8f1f96ed7f Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 30 Dec 2014 09:04:45 -0500 Subject: [PATCH 041/166] + new config define LUA_DEBUG_PRINT to turn on script_engine().script_log() function (ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) (needs -dbg) * changed w_vector2 and w vector to w_fvector2 and w_fvector3 + exported additional methods for ini_file class to allow writing + exported is_* (is_stalker, etc.) methods --- src/build_config_defines.h | 3 +- src/xrGame/script_game_object.h | 1351 +++++++++-------- src/xrGame/script_game_object4.cpp | 513 ++++--- src/xrGame/script_game_object_script3.cpp | 624 ++++---- src/xrServerEntities/script_ini_file.cpp | 233 ++- src/xrServerEntities/script_ini_file.h | 23 + .../script_ini_file_script.cpp | 12 +- src/xrServerEntities/script_storage.cpp | 1255 +++++++-------- src/xrServerEntities/script_storage.h | 6 + 9 files changed, 2209 insertions(+), 1811 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 600aa9190ee..42aef20321b 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -4,4 +4,5 @@ //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) //#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) -#define FP_DEATH // first person death view \ No newline at end of file +#define FP_DEATH // first person death view +#define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 11d04b56947..07fa0955e54 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -32,38 +32,38 @@ class NET_Packet; class CGameTask; namespace PatrolPathManager { - enum EPatrolStartType; - enum EPatrolRouteType; + enum EPatrolStartType; + enum EPatrolRouteType; }; namespace MemorySpace { - struct CMemoryInfo; - struct CVisibleObject; - struct CSoundObject; - struct CHitObject; - struct CNotYetVisibleObject; + struct CMemoryInfo; + struct CVisibleObject; + struct CSoundObject; + struct CHitObject; + struct CNotYetVisibleObject; }; namespace MonsterSpace { - enum EBodyState; - enum EMovementType; - enum EMovementDirection; - enum EDirectionType; - enum EPathState; - enum EObjectAction; - enum EMentalState; - enum EScriptMonsterMoveAction; - enum EScriptMonsterSpeedParam; - enum EScriptMonsterAnimAction; - enum EScriptMonsterGlobalAction; - enum EScriptSoundAnim; - enum EMonsterSounds; - enum EMonsterHeadAnimType; - struct SBoneRotation; + enum EBodyState; + enum EMovementType; + enum EMovementDirection; + enum EDirectionType; + enum EPathState; + enum EObjectAction; + enum EMentalState; + enum EScriptMonsterMoveAction; + enum EScriptMonsterSpeedParam; + enum EScriptMonsterAnimAction; + enum EScriptMonsterGlobalAction; + enum EScriptSoundAnim; + enum EMonsterSounds; + enum EMonsterHeadAnimType; + struct SBoneRotation; }; namespace GameObject { - enum ECallbackType; + enum ECallbackType; }; class CGameObject; @@ -89,686 +89,727 @@ class CPhysicObject; class CArtefact; #ifdef DEBUG - template - class CActionBase; - - template - class CPropertyEvaluator; - - template < - typename _object_type, - bool _reverse_search, - typename _world_operator, - typename _condition_evaluator, - typename _world_operator_ptr, - typename _condition_evaluator_ptr - > - class CActionPlanner; - - typedef CActionPlanner< - CScriptGameObject, - false, - CActionBase, - CPropertyEvaluator, - CActionBase*, - CPropertyEvaluator* - > script_planner; + template + class CActionBase; + + template + class CPropertyEvaluator; + + template < + typename _object_type, + bool _reverse_search, + typename _world_operator, + typename _condition_evaluator, + typename _world_operator_ptr, + typename _condition_evaluator_ptr + > + class CActionPlanner; + + typedef CActionPlanner< + CScriptGameObject, + false, + CActionBase, + CPropertyEvaluator, + CActionBase*, + CPropertyEvaluator* + > script_planner; #endif // DEBUG class CScriptGameObject; namespace SightManager { - enum ESightType; + enum ESightType; } struct CSightParams { - SightManager::ESightType m_sight_type; - CScriptGameObject *m_object; - Fvector m_vector; + SightManager::ESightType m_sight_type; + CScriptGameObject *m_object; + Fvector m_vector; }; namespace luabind { - template - class functor; + template + class functor; - class object; + class object; } // namespace luabind class CScriptGameObject { - mutable CGameObject *m_game_object; - CScriptGameObject (CScriptGameObject const& game_object); + mutable CGameObject *m_game_object; + CScriptGameObject (CScriptGameObject const& game_object); public: - CScriptGameObject (CGameObject *tpGameObject); - virtual ~CScriptGameObject (); - operator CObject* (); - - IC CGameObject &object () const; - CScriptGameObject *Parent () const; - void Hit (CScriptHit *tLuaHit); - int clsid () const; - void play_cycle (LPCSTR anim, bool mix_in); - void play_cycle (LPCSTR anim); - Fvector Center (); - _DECLARE_FUNCTION10 (Position , Fvector ); - _DECLARE_FUNCTION10 (Direction , Fvector ); - _DECLARE_FUNCTION10 (Mass , float ); - _DECLARE_FUNCTION10 (ID , u16 ); - _DECLARE_FUNCTION10 (getVisible , BOOL ); - _DECLARE_FUNCTION10 (getEnabled , BOOL ); - _DECLARE_FUNCTION10 (story_id , ALife::_STORY_ID); - - LPCSTR Name () const; - shared_str cName () const; - LPCSTR Section () const; - // CInventoryItem - u32 Cost () const; - float GetCondition () const; - void SetCondition (float val); - - // CEntity - _DECLARE_FUNCTION10 (DeathTime , u32 ); - _DECLARE_FUNCTION10 (MaxHealth , float ); - _DECLARE_FUNCTION10 (Accuracy , float ); - _DECLARE_FUNCTION10 (Team , int ); - _DECLARE_FUNCTION10 (Squad , int ); - _DECLARE_FUNCTION10 (Group , int ); - - void Kill (CScriptGameObject* who); - - // CEntityAlive - _DECLARE_FUNCTION10 (GetFOV , float); - _DECLARE_FUNCTION10 (GetRange , float); - _DECLARE_FUNCTION10 (GetHealth , float); - _DECLARE_FUNCTION10 (GetPsyHealth , float); - _DECLARE_FUNCTION10 (GetPower , float); - _DECLARE_FUNCTION10 (GetRadiation , float); - _DECLARE_FUNCTION10 (GetSatiety , float); - _DECLARE_FUNCTION10 (GetBleeding , float); - _DECLARE_FUNCTION10 (GetMorale , float); - - _DECLARE_FUNCTION11 (SetHealth, void, float); - _DECLARE_FUNCTION11 (SetPsyHealth, void, float); - _DECLARE_FUNCTION11 (SetPower, void, float); - _DECLARE_FUNCTION11 (ChangeSatiety, void, float); - _DECLARE_FUNCTION11 (SetRadiation, void, float); - _DECLARE_FUNCTION11 (SetBleeding, void, float); - _DECLARE_FUNCTION11 (SetCircumspection, void, float); - _DECLARE_FUNCTION11 (SetMorale, void, float); - - void set_fov (float new_fov); - void set_range (float new_range); - bool Alive () const; - ALife::ERelationType GetRelationType (CScriptGameObject* who); - - // CScriptEntity - - _DECLARE_FUNCTION12 (SetScriptControl, void, bool, LPCSTR); - _DECLARE_FUNCTION10 (GetScriptControl , bool ); - _DECLARE_FUNCTION10 (GetScriptControlName, LPCSTR ); - _DECLARE_FUNCTION10 (GetEnemyStrength, int); - _DECLARE_FUNCTION10 (can_script_capture, bool); - - - CScriptEntityAction *GetCurrentAction () const; - void AddAction (const CScriptEntityAction *tpEntityAction, bool bHighPriority = false); - void ResetActionQueue (); - // Actor only - void SetActorPosition (Fvector pos); - void SetActorDirection (float dir); - void SetNpcPosition (Fvector pos); - void DisableHitMarks (bool disable); - bool DisableHitMarks () const; - Fvector GetMovementSpeed () const; - - // CCustomMonster - bool CheckObjectVisibility(const CScriptGameObject *tpLuaGameObject); - bool CheckTypeVisibility (const char *section_name); - LPCSTR WhoHitName (); - LPCSTR WhoHitSectionName (); - - void ChangeTeam (u8 team, u8 squad, u8 group); - void SetVisualMemoryEnabled (bool enabled); - - // CAI_Stalker - CScriptGameObject *GetCurrentWeapon () const; - CScriptGameObject *GetFood () const; - CScriptGameObject *GetMedikit () const; - void SetPlayShHdRldSounds(bool val); - - void set_force_anti_aim (bool force); - bool get_force_anti_aim (); - - // Burer - void burer_set_force_gravi_attack (bool force); - bool burer_get_force_gravi_attack (); - - // Poltergeist - void poltergeist_set_actor_ignore (bool ignore); - bool poltergeist_get_actor_ignore (); - - // CAI_Bloodsucker - void force_visibility_state (int state); - int get_visibility_state (); - - // CBaseMonster - void set_override_animation (pcstr anim_name); - void clear_override_animation(); - - void force_stand_sleep_animation (u32 index); - void release_stand_sleep_animation (); - - void set_invisible (bool val); - bool get_invisible (); - void set_manual_invisibility (bool val); - void set_alien_control (bool val); - void set_enemy (CScriptGameObject *e); - void set_vis_state (float value); - void off_collision (bool val); - void bloodsucker_drag_jump (CScriptGameObject* e, LPCSTR e_str, const Fvector &position, float factor); - - // Zombie - bool fake_death_fall_down (); - void fake_death_stand_up (); - - // CBaseMonster - void skip_transfer_enemy (bool val); - void set_home (LPCSTR name, float r_min, float r_max, bool aggressive, float r_mid); - void set_home (u32 lv_ID, float r_min, float r_max, bool aggressive, float r_mid); - void remove_home (); - void berserk (); - void set_custom_panic_threshold (float value); - void set_default_panic_threshold (); - - // CAI_Trader - void set_trader_global_anim (LPCSTR anim); - void set_trader_head_anim (LPCSTR anim); - void set_trader_sound (LPCSTR sound, LPCSTR anim); - void external_sound_start (LPCSTR sound); - void external_sound_stop (); - - - template - IC T *action_planner (); - - // CProjector - Fvector GetCurrentDirection (); - - bool IsInvBoxEmpty (); - bool inv_box_closed (bool status, LPCSTR reason); - bool inv_box_closed_status (); - bool inv_box_can_take (bool status); - bool inv_box_can_take_status (); - - //передача порции информации InventoryOwner - bool GiveInfoPortion (LPCSTR info_id); - bool DisableInfoPortion (LPCSTR info_id); - void GiveGameNews (LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time); - void GiveGameNews (LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time, int type); - - void AddIconedTalkMessage_old(LPCSTR text, LPCSTR texture_name, LPCSTR templ_name) {}; - void AddIconedTalkMessage(LPCSTR caption, LPCSTR text, LPCSTR texture_name, LPCSTR templ_name); - //предикаты наличия/отсутствия порции информации у персонажа - bool HasInfo (LPCSTR info_id); - bool DontHasInfo (LPCSTR info_id); - //работа с заданиями - ETaskState GetGameTaskState (LPCSTR task_id); - void SetGameTaskState (ETaskState state, LPCSTR task_id); - void GiveTaskToActor (CGameTask* t, u32 dt, bool bCheckExisting, u32 t_timer); - void SetActiveTask (CGameTask* t); - bool IsActiveTask (CGameTask* t); - CGameTask* GetTask (LPCSTR id, bool only_inprocess); - - - bool IsTalking (); - void StopTalk (); - void EnableTalk (); - void DisableTalk (); - bool IsTalkEnabled (); - - void EnableTrade (); - void DisableTrade (); - bool IsTradeEnabled (); - - void EnableInvUpgrade (); - void DisableInvUpgrade (); - bool IsInvUpgradeEnabled (); - - - void ActorLookAtPoint (Fvector point); - void IterateInventory (luabind::functor functor, luabind::object object); - void IterateInventoryBox (luabind::functor functor, luabind::object object); - void MarkItemDropped (CScriptGameObject *item); - bool MarkedDropped (CScriptGameObject *item); - void UnloadMagazine (); - - void DropItem (CScriptGameObject* pItem); - void DropItemAndTeleport (CScriptGameObject* pItem, Fvector position); - void ForEachInventoryItems(const luabind::functor &functor); - void TransferItem (CScriptGameObject* pItem, CScriptGameObject* pForWho); - void TransferMoney (int money, CScriptGameObject* pForWho); - void GiveMoney (int money); - u32 Money (); - void MakeItemActive (CScriptGameObject* pItem); - - void SetRelation (ALife::ERelationType relation, CScriptGameObject* pWhoToSet); - - float GetSympathy (); - void SetSympathy (float sympathy); - - int GetCommunityGoodwill_obj( LPCSTR community ); - void SetCommunityGoodwill_obj( LPCSTR community, int goodwill ); - - int GetAttitude (CScriptGameObject* pToWho); - - int GetGoodwill (CScriptGameObject* pToWho); - void SetGoodwill (int goodwill, CScriptGameObject* pWhoToSet); - void ForceSetGoodwill (int goodwill, CScriptGameObject* pWhoToSet); - void ChangeGoodwill (int delta_goodwill, CScriptGameObject* pWhoToSet); - - - void SetStartDialog (LPCSTR dialog_id); - void GetStartDialog (); - void RestoreDefaultStartDialog(); - - void SwitchToTrade (); - void SwitchToUpgrade (); - void SwitchToTalk (); - void RunTalkDialog (CScriptGameObject* pToWho, bool disable_break); - void AllowBreakTalkDialog(bool disable_break); - - void HideWeapon (); - void RestoreWeapon (); - void AllowSprint (bool b); - - bool Weapon_IsGrenadeLauncherAttached(); - bool Weapon_IsScopeAttached (); - bool Weapon_IsSilencerAttached (); - - int Weapon_GrenadeLauncher_Status (); - int Weapon_Scope_Status (); - int Weapon_Silencer_Status (); - - LPCSTR ProfileName (); - LPCSTR CharacterName (); - LPCSTR CharacterIcon (); - LPCSTR CharacterCommunity (); - int CharacterRank (); - int CharacterReputation (); - - - void SetCharacterRank (int); - void ChangeCharacterRank (int); - void ChangeCharacterReputation (int); - void SetCharacterCommunity (LPCSTR,int,int); - - - u32 GetInventoryObjectCount() const; - - CScriptGameObject *GetActiveItem (); - - CScriptGameObject *GetObjectByName (LPCSTR caObjectName) const; - CScriptGameObject *GetObjectByIndex (int iIndex) const; - - - // Callbacks - void SetCallback (GameObject::ECallbackType type, const luabind::functor &functor); - void SetCallback (GameObject::ECallbackType type, const luabind::functor &functor, const luabind::object &object); - void SetCallback (GameObject::ECallbackType type); - - void set_patrol_extrapolate_callback(const luabind::functor &functor); - void set_patrol_extrapolate_callback(const luabind::functor &functor, const luabind::object &object); - void set_patrol_extrapolate_callback(); - - void set_enemy_callback (const luabind::functor &functor); - void set_enemy_callback (const luabind::functor &functor, const luabind::object &object); - void set_enemy_callback (); - - ////////////////////////////////////////////////////////////////////////////////////// - ////////////////////////////use calback/////////////////////////////////////////////// - void SetTipText (LPCSTR tip_text); - void SetTipTextDefault (); - void SetNonscriptUsable (bool nonscript_usable); + CScriptGameObject (CGameObject *tpGameObject); + virtual ~CScriptGameObject (); + operator CObject* (); + + IC CGameObject &object () const; + CScriptGameObject *Parent () const; + void Hit (CScriptHit *tLuaHit); + int clsid () const; + void play_cycle (LPCSTR anim, bool mix_in); + void play_cycle (LPCSTR anim); + Fvector Center (); + _DECLARE_FUNCTION10 (Position , Fvector ); + _DECLARE_FUNCTION10 (Direction , Fvector ); + _DECLARE_FUNCTION10 (Mass , float ); + _DECLARE_FUNCTION10 (ID , u16 ); + _DECLARE_FUNCTION10 (getVisible , BOOL ); + _DECLARE_FUNCTION10 (getEnabled , BOOL ); + _DECLARE_FUNCTION10 (story_id , ALife::_STORY_ID); + + LPCSTR Name () const; + shared_str cName () const; + LPCSTR Section () const; + // CInventoryItem + u32 Cost () const; + float GetCondition () const; + void SetCondition (float val); + + // CEntity + _DECLARE_FUNCTION10 (DeathTime , u32 ); + _DECLARE_FUNCTION10 (MaxHealth , float ); + _DECLARE_FUNCTION10 (Accuracy , float ); + _DECLARE_FUNCTION10 (Team , int ); + _DECLARE_FUNCTION10 (Squad , int ); + _DECLARE_FUNCTION10 (Group , int ); + + void Kill (CScriptGameObject* who); + + // CEntityAlive + _DECLARE_FUNCTION10 (GetFOV , float); + _DECLARE_FUNCTION10 (GetRange , float); + _DECLARE_FUNCTION10 (GetHealth , float); + _DECLARE_FUNCTION10 (GetPsyHealth , float); + _DECLARE_FUNCTION10 (GetPower , float); + _DECLARE_FUNCTION10 (GetRadiation , float); + _DECLARE_FUNCTION10 (GetSatiety , float); + _DECLARE_FUNCTION10 (GetBleeding , float); + _DECLARE_FUNCTION10 (GetMorale , float); + + _DECLARE_FUNCTION11 (SetHealth, void, float); + _DECLARE_FUNCTION11 (SetPsyHealth, void, float); + _DECLARE_FUNCTION11 (SetPower, void, float); + _DECLARE_FUNCTION11 (ChangeSatiety, void, float); + _DECLARE_FUNCTION11 (SetRadiation, void, float); + _DECLARE_FUNCTION11 (SetBleeding, void, float); + _DECLARE_FUNCTION11 (SetCircumspection, void, float); + _DECLARE_FUNCTION11 (SetMorale, void, float); + + void set_fov (float new_fov); + void set_range (float new_range); + bool Alive () const; + ALife::ERelationType GetRelationType (CScriptGameObject* who); + + // CScriptEntity + + _DECLARE_FUNCTION12 (SetScriptControl, void, bool, LPCSTR); + _DECLARE_FUNCTION10 (GetScriptControl , bool ); + _DECLARE_FUNCTION10 (GetScriptControlName, LPCSTR ); + _DECLARE_FUNCTION10 (GetEnemyStrength, int); + _DECLARE_FUNCTION10 (can_script_capture, bool); + + + CScriptEntityAction *GetCurrentAction () const; + void AddAction (const CScriptEntityAction *tpEntityAction, bool bHighPriority = false); + void ResetActionQueue (); + // Actor only + void SetActorPosition (Fvector pos); + void SetActorDirection (float dir); + void SetNpcPosition (Fvector pos); + void DisableHitMarks (bool disable); + bool DisableHitMarks () const; + Fvector GetMovementSpeed () const; + + // CCustomMonster + bool CheckObjectVisibility(const CScriptGameObject *tpLuaGameObject); + bool CheckTypeVisibility (const char *section_name); + LPCSTR WhoHitName (); + LPCSTR WhoHitSectionName (); + + void ChangeTeam (u8 team, u8 squad, u8 group); + void SetVisualMemoryEnabled (bool enabled); + + // CAI_Stalker + CScriptGameObject *GetCurrentWeapon () const; + CScriptGameObject *GetFood () const; + CScriptGameObject *GetMedikit () const; + void SetPlayShHdRldSounds(bool val); + + void set_force_anti_aim (bool force); + bool get_force_anti_aim (); + + // Burer + void burer_set_force_gravi_attack (bool force); + bool burer_get_force_gravi_attack (); + + // Poltergeist + void poltergeist_set_actor_ignore (bool ignore); + bool poltergeist_get_actor_ignore (); + + // CAI_Bloodsucker + void force_visibility_state (int state); + int get_visibility_state (); + + // CBaseMonster + void set_override_animation (pcstr anim_name); + void clear_override_animation(); + + void force_stand_sleep_animation (u32 index); + void release_stand_sleep_animation (); + + void set_invisible (bool val); + bool get_invisible (); + void set_manual_invisibility (bool val); + void set_alien_control (bool val); + void set_enemy (CScriptGameObject *e); + void set_vis_state (float value); + void off_collision (bool val); + void bloodsucker_drag_jump (CScriptGameObject* e, LPCSTR e_str, const Fvector &position, float factor); + + // Zombie + bool fake_death_fall_down (); + void fake_death_stand_up (); + + // CBaseMonster + void skip_transfer_enemy (bool val); + void set_home (LPCSTR name, float r_min, float r_max, bool aggressive, float r_mid); + void set_home (u32 lv_ID, float r_min, float r_max, bool aggressive, float r_mid); + void remove_home (); + void berserk (); + void set_custom_panic_threshold (float value); + void set_default_panic_threshold (); + + // CAI_Trader + void set_trader_global_anim (LPCSTR anim); + void set_trader_head_anim (LPCSTR anim); + void set_trader_sound (LPCSTR sound, LPCSTR anim); + void external_sound_start (LPCSTR sound); + void external_sound_stop (); + + + template + IC T *action_planner (); + + // CProjector + Fvector GetCurrentDirection (); + + bool IsInvBoxEmpty (); + bool inv_box_closed (bool status, LPCSTR reason); + bool inv_box_closed_status (); + bool inv_box_can_take (bool status); + bool inv_box_can_take_status (); + + //передача порции информации InventoryOwner + bool GiveInfoPortion (LPCSTR info_id); + bool DisableInfoPortion (LPCSTR info_id); + void GiveGameNews (LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time); + void GiveGameNews (LPCSTR caption, LPCSTR news, LPCSTR texture_name, int delay, int show_time, int type); + + void AddIconedTalkMessage_old(LPCSTR text, LPCSTR texture_name, LPCSTR templ_name) {}; + void AddIconedTalkMessage(LPCSTR caption, LPCSTR text, LPCSTR texture_name, LPCSTR templ_name); + //предикаты наличия/отсутствия порции информации у персонажа + bool HasInfo (LPCSTR info_id); + bool DontHasInfo (LPCSTR info_id); + //работа с заданиями + ETaskState GetGameTaskState (LPCSTR task_id); + void SetGameTaskState (ETaskState state, LPCSTR task_id); + void GiveTaskToActor (CGameTask* t, u32 dt, bool bCheckExisting, u32 t_timer); + void SetActiveTask (CGameTask* t); + bool IsActiveTask (CGameTask* t); + CGameTask* GetTask (LPCSTR id, bool only_inprocess); + + + bool IsTalking (); + void StopTalk (); + void EnableTalk (); + void DisableTalk (); + bool IsTalkEnabled (); + + void EnableTrade (); + void DisableTrade (); + bool IsTradeEnabled (); + + void EnableInvUpgrade (); + void DisableInvUpgrade (); + bool IsInvUpgradeEnabled (); + + + void ActorLookAtPoint (Fvector point); + void IterateInventory (luabind::functor functor, luabind::object object); + void IterateInventoryBox (luabind::functor functor, luabind::object object); + void MarkItemDropped (CScriptGameObject *item); + bool MarkedDropped (CScriptGameObject *item); + void UnloadMagazine (); + + void DropItem (CScriptGameObject* pItem); + void DropItemAndTeleport (CScriptGameObject* pItem, Fvector position); + void ForEachInventoryItems(const luabind::functor &functor); + void TransferItem (CScriptGameObject* pItem, CScriptGameObject* pForWho); + void TransferMoney (int money, CScriptGameObject* pForWho); + void GiveMoney (int money); + u32 Money (); + void MakeItemActive (CScriptGameObject* pItem); + + void SetRelation (ALife::ERelationType relation, CScriptGameObject* pWhoToSet); + + float GetSympathy (); + void SetSympathy (float sympathy); + + int GetCommunityGoodwill_obj( LPCSTR community ); + void SetCommunityGoodwill_obj( LPCSTR community, int goodwill ); + + int GetAttitude (CScriptGameObject* pToWho); + + int GetGoodwill (CScriptGameObject* pToWho); + void SetGoodwill (int goodwill, CScriptGameObject* pWhoToSet); + void ForceSetGoodwill (int goodwill, CScriptGameObject* pWhoToSet); + void ChangeGoodwill (int delta_goodwill, CScriptGameObject* pWhoToSet); + + + void SetStartDialog (LPCSTR dialog_id); + void GetStartDialog (); + void RestoreDefaultStartDialog(); + + void SwitchToTrade (); + void SwitchToUpgrade (); + void SwitchToTalk (); + void RunTalkDialog (CScriptGameObject* pToWho, bool disable_break); + void AllowBreakTalkDialog(bool disable_break); + + void HideWeapon (); + void RestoreWeapon (); + void AllowSprint (bool b); + + bool Weapon_IsGrenadeLauncherAttached(); + bool Weapon_IsScopeAttached (); + bool Weapon_IsSilencerAttached (); + + int Weapon_GrenadeLauncher_Status (); + int Weapon_Scope_Status (); + int Weapon_Silencer_Status (); + + LPCSTR ProfileName (); + LPCSTR CharacterName (); + LPCSTR CharacterIcon (); + LPCSTR CharacterCommunity (); + int CharacterRank (); + int CharacterReputation (); + + + void SetCharacterRank (int); + void ChangeCharacterRank (int); + void ChangeCharacterReputation (int); + void SetCharacterCommunity (LPCSTR,int,int); + + + u32 GetInventoryObjectCount() const; + + CScriptGameObject *GetActiveItem (); + + CScriptGameObject *GetObjectByName (LPCSTR caObjectName) const; + CScriptGameObject *GetObjectByIndex (int iIndex) const; + + + // Callbacks + void SetCallback (GameObject::ECallbackType type, const luabind::functor &functor); + void SetCallback (GameObject::ECallbackType type, const luabind::functor &functor, const luabind::object &object); + void SetCallback (GameObject::ECallbackType type); + + void set_patrol_extrapolate_callback(const luabind::functor &functor); + void set_patrol_extrapolate_callback(const luabind::functor &functor, const luabind::object &object); + void set_patrol_extrapolate_callback(); + + void set_enemy_callback (const luabind::functor &functor); + void set_enemy_callback (const luabind::functor &functor, const luabind::object &object); + void set_enemy_callback (); + + ////////////////////////////////////////////////////////////////////////////////////// + ////////////////////////////use calback/////////////////////////////////////////////// + void SetTipText (LPCSTR tip_text); + void SetTipTextDefault (); + void SetNonscriptUsable (bool nonscript_usable); /////////////////////////////////////////////////////////////////////////////////////////// - void set_fastcall (const luabind::functor &functor, const luabind::object &object); - void set_const_force (const Fvector &dir,float value,u32 time_interval) ; + void set_fastcall (const luabind::functor &functor, const luabind::object &object); + void set_const_force (const Fvector &dir,float value,u32 time_interval) ; ////////////////////////////////////////////////////////////////////////// - LPCSTR GetPatrolPathName (); - u32 GetAmmoElapsed (); - void SetAmmoElapsed (int ammo_elapsed); - u32 GetSuitableAmmoTotal () const; - void SetQueueSize (u32 queue_size); - CScriptGameObject *GetBestEnemy (); - const CDangerObject *GetBestDanger (); - CScriptGameObject *GetBestItem (); + LPCSTR GetPatrolPathName (); + u32 GetAmmoElapsed (); + void SetAmmoElapsed (int ammo_elapsed); + u32 GetSuitableAmmoTotal () const; + void SetQueueSize (u32 queue_size); + CScriptGameObject *GetBestEnemy (); + const CDangerObject *GetBestDanger (); + CScriptGameObject *GetBestItem (); - _DECLARE_FUNCTION10 (GetActionCount,u32); - - const CScriptEntityAction *GetActionByIndex(u32 action_index = 0); + _DECLARE_FUNCTION10 (GetActionCount,u32); + + const CScriptEntityAction *GetActionByIndex(u32 action_index = 0); ////////////////////////////////////////////////////////////////////////// // Inventory Owner ////////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////////// - Flags32 get_actor_relation_flags () const; - void set_actor_relation_flags (Flags32); - LPCSTR sound_voice_prefix () const; - - ////////////////////////////////////////////////////////////////////////// - u32 memory_time (const CScriptGameObject &lua_game_object); - Fvector memory_position (const CScriptGameObject &lua_game_object); - CScriptGameObject *best_weapon (); - void explode (u32 level_time); - CScriptGameObject *GetEnemy () const; - CScriptGameObject *GetCorpse () const; - CScriptSoundInfo GetSoundInfo (); - CScriptMonsterHitInfo GetMonsterHitInfo(); - void bind_object (CScriptBinderObject *object); - CScriptGameObject *GetCurrentOutfit() const; - float GetCurrentOutfitProtection(int hit_type); - - void deadbody_closed (bool status); - bool deadbody_closed_status (); - void deadbody_can_take (bool status); - bool deadbody_can_take_status(); - - void can_select_weapon (bool status); - bool can_select_weapon () const; - ////////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////////// - void set_body_state (MonsterSpace::EBodyState body_state); - void set_movement_type (MonsterSpace::EMovementType movement_type); - void set_mental_state (MonsterSpace::EMentalState mental_state); - void set_path_type (MovementManager::EPathType path_type); - void set_detail_path_type(DetailPathManager::EDetailPathType detail_path_type); - - MonsterSpace::EBodyState body_state () const; - MonsterSpace::EBodyState target_body_state () const; - MonsterSpace::EMovementType movement_type () const; - MonsterSpace::EMovementType target_movement_type() const; - MonsterSpace::EMentalState mental_state () const; - MonsterSpace::EMentalState target_mental_state () const; - MovementManager::EPathType path_type () const; - DetailPathManager::EDetailPathType detail_path_type () const; - - u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name); - u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type); - u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name, LPCSTR head_anim); - u32 add_combat_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name); - void remove_sound (u32 internal_type); - void set_sound_mask (u32 sound_mask); - void set_sight (SightManager::ESightType sight_type, Fvector *vector3d, u32 dwLookOverDelay); - void set_sight (SightManager::ESightType sight_type, bool torso_look, bool path); - void set_sight (SightManager::ESightType sight_type, Fvector &vector3d, bool torso_look); - void set_sight (SightManager::ESightType sight_type, Fvector *vector3d); - void set_sight (CScriptGameObject *object_to_look); - void set_sight (CScriptGameObject *object_to_look, bool torso_look); - void set_sight (CScriptGameObject *object_to_look, bool torso_look, bool fire_object); - void set_sight (CScriptGameObject *object_to_look, bool torso_look, bool fire_object, bool no_pitch); - void set_sight (const MemorySpace::CMemoryInfo *memory_object, bool torso_look); - CHARACTER_RANK_VALUE GetRank (); - void play_sound (u32 internal_type); - void play_sound (u32 internal_type, u32 max_start_time); - void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time); - void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time); - void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time); - void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time, u32 id); - - void set_item (MonsterSpace::EObjectAction object_action); - void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object); - void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object, u32 queue_size); - void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object, u32 queue_size, u32 queue_interval); - void set_desired_position (); - void set_desired_position (const Fvector *desired_position); - void set_desired_direction (); - void set_desired_direction (const Fvector *desired_direction); - void set_patrol_path (LPCSTR path_name, const PatrolPathManager::EPatrolStartType patrol_start_type, const PatrolPathManager::EPatrolRouteType patrol_route_type, bool random); - void inactualize_patrol_path (); - void set_dest_level_vertex_id(u32 level_vertex_id); - void set_dest_game_vertex_id (GameGraph::_GRAPH_ID game_vertex_id); - void set_movement_selection_type(ESelectionType selection_type); - u32 level_vertex_id () const; - u32 game_vertex_id () const; - void add_animation (LPCSTR animation, bool hand_usage, bool use_movement_controller); - void add_animation (LPCSTR animation, bool hand_usage, Fvector position, Fvector rotation, bool local_animation); - void clear_animations (); - int animation_count () const; - int animation_slot () const; - CScriptBinderObject *binded_object (); - void set_previous_point (int point_index); - void set_start_point (int point_index); - u32 get_current_patrol_point_index(); - bool path_completed () const; - void patrol_path_make_inactual(); - void extrapolate_length (float extrapolate_length); - float extrapolate_length () const; - void enable_memory_object (CScriptGameObject *object, bool enable); - int active_sound_count (); - int active_sound_count (bool only_playing); - const CCoverPoint *best_cover (const Fvector &position, const Fvector &enemy_position, float radius, float min_enemy_distance, float max_enemy_distance); - const CCoverPoint *safe_cover (const Fvector &position, float radius, float min_distance); - CScriptIniFile *spawn_ini () const; - bool active_zone_contact (u16 id); - - /// - void add_restrictions (LPCSTR out, LPCSTR in); - void remove_restrictions (LPCSTR out, LPCSTR in); - void remove_all_restrictions (); - LPCSTR in_restrictions (); - LPCSTR out_restrictions (); - LPCSTR base_in_restrictions (); - LPCSTR base_out_restrictions (); - bool accessible_position (const Fvector &position); - bool accessible_vertex_id (u32 level_vertex_id); - u32 accessible_nearest (const Fvector &position, Fvector &result); - - const xr_vector &memory_visible_objects () const; - const xr_vector &memory_sound_objects () const; - const xr_vector &memory_hit_objects () const; - const xr_vector ¬_yet_visible_objects() const; - float visibility_threshold () const; - void enable_vision (bool value); - bool vision_enabled () const; - void set_sound_threshold (float value); - void restore_sound_threshold (); - ////////////////////////////////////////////////////////////////////////// - void enable_attachable_item (bool value); - bool attachable_item_enabled () const; - void enable_night_vision (bool value); - bool night_vision_enabled () const; - void enable_torch (bool value); - bool torch_enabled () const; - - void attachable_item_load_attach(LPCSTR section); - // CustomZone - void EnableAnomaly (); - void DisableAnomaly (); - float GetAnomalyPower (); - void SetAnomalyPower (float p); - - - // HELICOPTER - CHelicopter* get_helicopter (); - //CAR - CCar* get_car (); - //LAMP - CHangingLamp* get_hanging_lamp (); - CHolderCustom* get_custom_holder (); - CHolderCustom* get_current_holder (); //actor only - - void start_particles (LPCSTR pname, LPCSTR bone); - void stop_particles (LPCSTR pname, LPCSTR bone); - - Fvector bone_position (LPCSTR bone_name) const; - bool is_body_turning () const; - cphysics_shell_scripted* get_physics_shell () const; - u16 get_bone_id (LPCSTR bone_name) const; - bool weapon_strapped () const; - bool weapon_unstrapped () const; - void eat (CScriptGameObject *item); - bool inside (const Fvector &position, float epsilon) const; - bool inside (const Fvector &position) const; - - Fvector head_orientation () const; - u32 vertex_in_direction (u32 level_vertex_id, Fvector direction, float max_distance) const; - - void info_add (LPCSTR text); - void info_clear (); - - // Monster Jumper - void jump (const Fvector &position, float factor); - - void set_ignore_monster_threshold (float ignore_monster_threshold); - void restore_ignore_monster_threshold (); - float ignore_monster_threshold () const; - void set_max_ignore_monster_distance (const float &max_ignore_monster_distance); - void restore_max_ignore_monster_distance (); - float max_ignore_monster_distance () const; - - void make_object_visible_somewhen (CScriptGameObject *object); - - CScriptGameObject *item_in_slot (u32 slot_id) const; - CScriptGameObject *active_detector () const; - u32 active_slot (); - void activate_slot (u32 slot_id); - void enable_level_changer (bool b); - bool is_level_changer_enabled (); - void set_level_changer_invitation (LPCSTR str); + ////////////////////////////////////////////////////////////////////////// + Flags32 get_actor_relation_flags () const; + void set_actor_relation_flags (Flags32); + LPCSTR sound_voice_prefix () const; + + ////////////////////////////////////////////////////////////////////////// + u32 memory_time (const CScriptGameObject &lua_game_object); + Fvector memory_position (const CScriptGameObject &lua_game_object); + CScriptGameObject *best_weapon (); + void explode (u32 level_time); + CScriptGameObject *GetEnemy () const; + CScriptGameObject *GetCorpse () const; + CScriptSoundInfo GetSoundInfo (); + CScriptMonsterHitInfo GetMonsterHitInfo(); + void bind_object (CScriptBinderObject *object); + CScriptGameObject *GetCurrentOutfit() const; + float GetCurrentOutfitProtection(int hit_type); + + void deadbody_closed (bool status); + bool deadbody_closed_status (); + void deadbody_can_take (bool status); + bool deadbody_can_take_status(); + + void can_select_weapon (bool status); + bool can_select_weapon () const; + ////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////// + void set_body_state (MonsterSpace::EBodyState body_state); + void set_movement_type (MonsterSpace::EMovementType movement_type); + void set_mental_state (MonsterSpace::EMentalState mental_state); + void set_path_type (MovementManager::EPathType path_type); + void set_detail_path_type(DetailPathManager::EDetailPathType detail_path_type); + + MonsterSpace::EBodyState body_state () const; + MonsterSpace::EBodyState target_body_state () const; + MonsterSpace::EMovementType movement_type () const; + MonsterSpace::EMovementType target_movement_type() const; + MonsterSpace::EMentalState mental_state () const; + MonsterSpace::EMentalState target_mental_state () const; + MovementManager::EPathType path_type () const; + DetailPathManager::EDetailPathType detail_path_type () const; + + u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name); + u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type); + u32 add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name, LPCSTR head_anim); + u32 add_combat_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name); + void remove_sound (u32 internal_type); + void set_sound_mask (u32 sound_mask); + void set_sight (SightManager::ESightType sight_type, Fvector *vector3d, u32 dwLookOverDelay); + void set_sight (SightManager::ESightType sight_type, bool torso_look, bool path); + void set_sight (SightManager::ESightType sight_type, Fvector &vector3d, bool torso_look); + void set_sight (SightManager::ESightType sight_type, Fvector *vector3d); + void set_sight (CScriptGameObject *object_to_look); + void set_sight (CScriptGameObject *object_to_look, bool torso_look); + void set_sight (CScriptGameObject *object_to_look, bool torso_look, bool fire_object); + void set_sight (CScriptGameObject *object_to_look, bool torso_look, bool fire_object, bool no_pitch); + void set_sight (const MemorySpace::CMemoryInfo *memory_object, bool torso_look); + CHARACTER_RANK_VALUE GetRank (); + void play_sound (u32 internal_type); + void play_sound (u32 internal_type, u32 max_start_time); + void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time); + void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time); + void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time); + void play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time, u32 id); + + void set_item (MonsterSpace::EObjectAction object_action); + void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object); + void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object, u32 queue_size); + void set_item (MonsterSpace::EObjectAction object_action, CScriptGameObject *game_object, u32 queue_size, u32 queue_interval); + void set_desired_position (); + void set_desired_position (const Fvector *desired_position); + void set_desired_direction (); + void set_desired_direction (const Fvector *desired_direction); + void set_patrol_path (LPCSTR path_name, const PatrolPathManager::EPatrolStartType patrol_start_type, const PatrolPathManager::EPatrolRouteType patrol_route_type, bool random); + void inactualize_patrol_path (); + void set_dest_level_vertex_id(u32 level_vertex_id); + void set_dest_game_vertex_id (GameGraph::_GRAPH_ID game_vertex_id); + void set_movement_selection_type(ESelectionType selection_type); + u32 level_vertex_id () const; + u32 game_vertex_id () const; + void add_animation (LPCSTR animation, bool hand_usage, bool use_movement_controller); + void add_animation (LPCSTR animation, bool hand_usage, Fvector position, Fvector rotation, bool local_animation); + void clear_animations (); + int animation_count () const; + int animation_slot () const; + CScriptBinderObject *binded_object (); + void set_previous_point (int point_index); + void set_start_point (int point_index); + u32 get_current_patrol_point_index(); + bool path_completed () const; + void patrol_path_make_inactual(); + void extrapolate_length (float extrapolate_length); + float extrapolate_length () const; + void enable_memory_object (CScriptGameObject *object, bool enable); + int active_sound_count (); + int active_sound_count (bool only_playing); + const CCoverPoint *best_cover (const Fvector &position, const Fvector &enemy_position, float radius, float min_enemy_distance, float max_enemy_distance); + const CCoverPoint *safe_cover (const Fvector &position, float radius, float min_distance); + CScriptIniFile *spawn_ini () const; + bool active_zone_contact (u16 id); + + /// + void add_restrictions (LPCSTR out, LPCSTR in); + void remove_restrictions (LPCSTR out, LPCSTR in); + void remove_all_restrictions (); + LPCSTR in_restrictions (); + LPCSTR out_restrictions (); + LPCSTR base_in_restrictions (); + LPCSTR base_out_restrictions (); + bool accessible_position (const Fvector &position); + bool accessible_vertex_id (u32 level_vertex_id); + u32 accessible_nearest (const Fvector &position, Fvector &result); + + const xr_vector &memory_visible_objects () const; + const xr_vector &memory_sound_objects () const; + const xr_vector &memory_hit_objects () const; + const xr_vector ¬_yet_visible_objects() const; + float visibility_threshold () const; + void enable_vision (bool value); + bool vision_enabled () const; + void set_sound_threshold (float value); + void restore_sound_threshold (); + ////////////////////////////////////////////////////////////////////////// + void enable_attachable_item (bool value); + bool attachable_item_enabled () const; + void enable_night_vision (bool value); + bool night_vision_enabled () const; + void enable_torch (bool value); + bool torch_enabled () const; + + void attachable_item_load_attach(LPCSTR section); + // CustomZone + void EnableAnomaly (); + void DisableAnomaly (); + float GetAnomalyPower (); + void SetAnomalyPower (float p); + + + // HELICOPTER + CHelicopter* get_helicopter (); + //CAR + CCar* get_car (); + //LAMP + CHangingLamp* get_hanging_lamp (); + CHolderCustom* get_custom_holder (); + CHolderCustom* get_current_holder (); //actor only + + void start_particles (LPCSTR pname, LPCSTR bone); + void stop_particles (LPCSTR pname, LPCSTR bone); + + Fvector bone_position (LPCSTR bone_name) const; + bool is_body_turning () const; + cphysics_shell_scripted* get_physics_shell () const; + u16 get_bone_id (LPCSTR bone_name) const; + bool weapon_strapped () const; + bool weapon_unstrapped () const; + void eat (CScriptGameObject *item); + bool inside (const Fvector &position, float epsilon) const; + bool inside (const Fvector &position) const; + + Fvector head_orientation () const; + u32 vertex_in_direction (u32 level_vertex_id, Fvector direction, float max_distance) const; + + void info_add (LPCSTR text); + void info_clear (); + + // Monster Jumper + void jump (const Fvector &position, float factor); + + void set_ignore_monster_threshold (float ignore_monster_threshold); + void restore_ignore_monster_threshold (); + float ignore_monster_threshold () const; + void set_max_ignore_monster_distance (const float &max_ignore_monster_distance); + void restore_max_ignore_monster_distance (); + float max_ignore_monster_distance () const; + + void make_object_visible_somewhen (CScriptGameObject *object); + + CScriptGameObject *item_in_slot (u32 slot_id) const; + CScriptGameObject *active_detector () const; + u32 active_slot (); + void activate_slot (u32 slot_id); + void enable_level_changer (bool b); + bool is_level_changer_enabled (); + void set_level_changer_invitation (LPCSTR str); #ifdef DEBUG - void debug_planner (const script_planner *planner); + void debug_planner (const script_planner *planner); #endif - void sell_condition (CScriptIniFile *ini_file, LPCSTR section); - void sell_condition (float friend_factor, float enemy_factor); - void buy_condition (CScriptIniFile *ini_file, LPCSTR section); - void buy_condition (float friend_factor, float enemy_factor); - void show_condition (CScriptIniFile *ini_file, LPCSTR section); - void buy_supplies (CScriptIniFile *ini_file, LPCSTR section); - void buy_item_condition_factor (float factor); + void sell_condition (CScriptIniFile *ini_file, LPCSTR section); + void sell_condition (float friend_factor, float enemy_factor); + void buy_condition (CScriptIniFile *ini_file, LPCSTR section); + void buy_condition (float friend_factor, float enemy_factor); + void show_condition (CScriptIniFile *ini_file, LPCSTR section); + void buy_supplies (CScriptIniFile *ini_file, LPCSTR section); + void buy_item_condition_factor (float factor); - LPCSTR sound_prefix () const; - void sound_prefix (LPCSTR sound_prefix); + LPCSTR sound_prefix () const; + void sound_prefix (LPCSTR sound_prefix); - u32 location_on_path (float distance, Fvector *location); - bool is_there_items_to_pickup () const; + u32 location_on_path (float distance, Fvector *location); + bool is_there_items_to_pickup () const; - bool wounded () const; - void wounded (bool value); + bool wounded () const; + void wounded (bool value); - CSightParams sight_params (); + CSightParams sight_params (); - void enable_movement (bool enable); - bool movement_enabled (); + void enable_movement (bool enable); + bool movement_enabled (); - bool critically_wounded (); + bool critically_wounded (); - bool invulnerable () const; - void invulnerable (bool invulnerable); - LPCSTR get_smart_cover_description () const; - void set_visual_name (LPCSTR visual); - LPCSTR get_visual_name () const; + bool invulnerable () const; + void invulnerable (bool invulnerable); + LPCSTR get_smart_cover_description () const; + void set_visual_name (LPCSTR visual); + LPCSTR get_visual_name () const; - bool can_throw_grenades () const; - void can_throw_grenades (bool can_throw_grenades); + bool can_throw_grenades () const; + void can_throw_grenades (bool can_throw_grenades); - u32 throw_time_interval () const; - void throw_time_interval (u32 throw_time_interval); + u32 throw_time_interval () const; + void throw_time_interval (u32 throw_time_interval); - u32 group_throw_time_interval () const; - void group_throw_time_interval (u32 throw_time_interval); - CArtefact* get_artefact (); - CZoneCampfire* get_campfire (); - CPhysicObject* get_physics_object (); + u32 group_throw_time_interval () const; + void group_throw_time_interval (u32 throw_time_interval); + CArtefact* get_artefact (); + CZoneCampfire* get_campfire (); + CPhysicObject* get_physics_object (); - void aim_time (CScriptGameObject *weapon, u32 time); - u32 aim_time (CScriptGameObject *weapon); + void aim_time (CScriptGameObject *weapon, u32 time); + u32 aim_time (CScriptGameObject *weapon); - void special_danger_move (bool value); - bool special_danger_move (); + void special_danger_move (bool value); + bool special_danger_move (); - void sniper_update_rate (bool value); - bool sniper_update_rate () const; + void sniper_update_rate (bool value); + bool sniper_update_rate () const; - void sniper_fire_mode (bool value); - bool sniper_fire_mode () const; + void sniper_fire_mode (bool value); + bool sniper_fire_mode () const; - void aim_bone_id (LPCSTR value); - LPCSTR aim_bone_id () const; + void aim_bone_id (LPCSTR value); + LPCSTR aim_bone_id () const; - void register_in_combat (); - void unregister_in_combat (); - CCoverPoint const* find_best_cover (Fvector position_to_cover_from); + void register_in_combat (); + void unregister_in_combat (); + CCoverPoint const* find_best_cover (Fvector position_to_cover_from); // approved by Dima smart covers functions - bool use_smart_covers_only () const; - void use_smart_covers_only (bool value); - - bool in_smart_cover () const; - - void set_dest_smart_cover (LPCSTR cover_id); - void set_dest_smart_cover (); - CCoverPoint const* get_dest_smart_cover (); - LPCSTR get_dest_smart_cover_name (); - - void set_dest_loophole (LPCSTR loophole_id); - void set_dest_loophole (); - - void set_smart_cover_target (Fvector position); - void set_smart_cover_target (CScriptGameObject* object); - void set_smart_cover_target (); - - void set_smart_cover_target_selector (); - void set_smart_cover_target_selector (luabind::functor functor); - void set_smart_cover_target_selector (luabind::functor functor, luabind::object object); - - void set_smart_cover_target_idle (); - void set_smart_cover_target_lookout (); - void set_smart_cover_target_fire (); - void set_smart_cover_target_fire_no_lookout (); - void set_smart_cover_target_default (bool value); - - float const idle_min_time () const; - void idle_min_time (float value); - float const idle_max_time () const; - void idle_max_time (float value); - float const lookout_min_time () const; - void lookout_min_time (float value); - float const lookout_max_time () const; - void lookout_max_time (float value); - - bool in_loophole_fov (LPCSTR cover_id, LPCSTR loophole_id, Fvector object_position) const; - bool in_current_loophole_fov (Fvector object_position) const; - bool in_loophole_range (LPCSTR cover_id, LPCSTR loophole_id, Fvector object_position) const; - bool in_current_loophole_range (Fvector object_position) const; - - float apply_loophole_direction_distance () const; - void apply_loophole_direction_distance (float value); - - bool movement_target_reached (); - bool suitable_smart_cover (CScriptGameObject* object); - - void take_items_enabled (bool value); - bool take_items_enabled () const; - - void death_sound_enabled (bool value); - bool death_sound_enabled () const; - - void register_door (); - void unregister_door (); - void on_door_is_open (); - void on_door_is_closed (); - bool is_door_locked_for_npc () const; - void lock_door_for_npc (); - void unlock_door_for_npc (); - bool is_door_blocked_by_npc () const; - bool is_weapon_going_to_be_strapped ( CScriptGameObject const* object ) const; - - doors::door* m_door; - - DECLARE_SCRIPT_REGISTER_FUNCTION + bool use_smart_covers_only () const; + void use_smart_covers_only (bool value); + + bool in_smart_cover () const; + + void set_dest_smart_cover (LPCSTR cover_id); + void set_dest_smart_cover (); + CCoverPoint const* get_dest_smart_cover (); + LPCSTR get_dest_smart_cover_name (); + + void set_dest_loophole (LPCSTR loophole_id); + void set_dest_loophole (); + + void set_smart_cover_target (Fvector position); + void set_smart_cover_target (CScriptGameObject* object); + void set_smart_cover_target (); + + void set_smart_cover_target_selector (); + void set_smart_cover_target_selector (luabind::functor functor); + void set_smart_cover_target_selector (luabind::functor functor, luabind::object object); + + void set_smart_cover_target_idle (); + void set_smart_cover_target_lookout (); + void set_smart_cover_target_fire (); + void set_smart_cover_target_fire_no_lookout (); + void set_smart_cover_target_default (bool value); + + float const idle_min_time () const; + void idle_min_time (float value); + float const idle_max_time () const; + void idle_max_time (float value); + float const lookout_min_time () const; + void lookout_min_time (float value); + float const lookout_max_time () const; + void lookout_max_time (float value); + + bool in_loophole_fov (LPCSTR cover_id, LPCSTR loophole_id, Fvector object_position) const; + bool in_current_loophole_fov (Fvector object_position) const; + bool in_loophole_range (LPCSTR cover_id, LPCSTR loophole_id, Fvector object_position) const; + bool in_current_loophole_range (Fvector object_position) const; + + float apply_loophole_direction_distance () const; + void apply_loophole_direction_distance (float value); + + bool movement_target_reached (); + bool suitable_smart_cover (CScriptGameObject* object); + + void take_items_enabled (bool value); + bool take_items_enabled () const; + + void death_sound_enabled (bool value); + bool death_sound_enabled () const; + + void register_door (); + void unregister_door (); + void on_door_is_open (); + void on_door_is_closed (); + bool is_door_locked_for_npc () const; + void lock_door_for_npc (); + void unlock_door_for_npc (); + bool is_door_blocked_by_npc () const; + bool is_weapon_going_to_be_strapped ( CScriptGameObject const* object ) const; + + //AVO: functions for object testing + _DECLARE_FUNCTION10(IsGameObject, bool); + //_DECLARE_FUNCTION10(IsCar, bool); + _DECLARE_FUNCTION10(IsHeli, bool); + //_DECLARE_FUNCTION10(IsHolderCustom, bool); + _DECLARE_FUNCTION10(IsEntityAlive, bool); + _DECLARE_FUNCTION10(IsInventoryItem, bool); + _DECLARE_FUNCTION10(IsInventoryOwner, bool); + _DECLARE_FUNCTION10(IsActor, bool); + _DECLARE_FUNCTION10(IsCustomMonster, bool); + _DECLARE_FUNCTION10(IsWeapon, bool); + _DECLARE_FUNCTION10(IsMedkit, bool); + _DECLARE_FUNCTION10(IsEatableItem, bool); + _DECLARE_FUNCTION10(IsAntirad, bool); + _DECLARE_FUNCTION10(IsCustomOutfit, bool); + _DECLARE_FUNCTION10(IsScope, bool); + _DECLARE_FUNCTION10(IsSilencer, bool); + _DECLARE_FUNCTION10(IsGrenadeLauncher, bool); + _DECLARE_FUNCTION10(IsWeaponMagazined, bool); + _DECLARE_FUNCTION10(IsSpaceRestrictor, bool); + _DECLARE_FUNCTION10(IsStalker, bool); + _DECLARE_FUNCTION10(IsAnomaly, bool); + _DECLARE_FUNCTION10(IsMonster, bool); + _DECLARE_FUNCTION10(IsExplosive, bool); + _DECLARE_FUNCTION10(IsScriptZone, bool); + _DECLARE_FUNCTION10(IsProjector, bool); + _DECLARE_FUNCTION10(IsTrader, bool); + _DECLARE_FUNCTION10(IsHudItem, bool); + _DECLARE_FUNCTION10(IsFoodItem, bool); + _DECLARE_FUNCTION10(IsArtefact, bool); + _DECLARE_FUNCTION10(IsAmmo, bool); + _DECLARE_FUNCTION10(IsMissile, bool); + _DECLARE_FUNCTION10(IsPhysicsShellHolder, bool); + _DECLARE_FUNCTION10(IsGrenade, bool); + _DECLARE_FUNCTION10(IsBottleItem, bool); + _DECLARE_FUNCTION10(IsTorch, bool); + _DECLARE_FUNCTION10(IsWeaponGL, bool); + _DECLARE_FUNCTION10(IsInventoryBox, bool); + //end AVO + + + doors::door* m_door; + + DECLARE_SCRIPT_REGISTER_FUNCTION }; add_to_type_list(CScriptGameObject) #undef script_type_list diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index c194f76fd81..8f7ac8468c5 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -30,327 +30,408 @@ class CWeapon; ////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////// -bool CScriptGameObject::is_body_turning () const +bool CScriptGameObject::is_body_turning() const { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CGameObject : cannot access class member is_turning!"); - return (false); - } - - CAI_Stalker *stalker = smart_cast(monster); - if (!stalker) - return (!fis_zero(angle_difference(monster->movement().body_orientation().target.yaw,monster->movement().body_orientation().current.yaw))); - else - return (!fis_zero(angle_difference(stalker->movement().head_orientation().target.yaw,stalker->movement().head_orientation().current.yaw)) || !fis_zero(angle_difference(monster->movement().body_orientation().target.yaw,monster->movement().body_orientation().current.yaw))); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CGameObject : cannot access class member is_turning!"); + return (false); + } + + CAI_Stalker *stalker = smart_cast(monster); + if (!stalker) + return (!fis_zero(angle_difference(monster->movement().body_orientation().target.yaw, monster->movement().body_orientation().current.yaw))); + else + return (!fis_zero(angle_difference(stalker->movement().head_orientation().target.yaw, stalker->movement().head_orientation().current.yaw)) || !fis_zero(angle_difference(monster->movement().body_orientation().target.yaw, monster->movement().body_orientation().current.yaw))); } //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// -u32 CScriptGameObject::add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name) +u32 CScriptGameObject::add_sound(LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member add!"); - return (0); - } - else - return (monster->sound().add(prefix,max_count,type,priority,mask,internal_type,bone_name)); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member add!"); + return (0); + } + else + return (monster->sound().add(prefix, max_count, type, priority, mask, internal_type, bone_name)); } -u32 CScriptGameObject::add_combat_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name) +u32 CScriptGameObject::add_combat_sound(LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type, LPCSTR bone_name) { - CAI_Stalker* const stalker = smart_cast< CAI_Stalker* >(&object()); - if ( !stalker ) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member add!"); - return (0); - } - else - return ( stalker->sound().add(prefix,max_count,type,priority,mask,internal_type,bone_name, xr_new(stalker) ) ); + CAI_Stalker* const stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member add!"); + return (0); + } + else + return (stalker->sound().add(prefix, max_count, type, priority, mask, internal_type, bone_name, xr_new(stalker))); } -u32 CScriptGameObject::add_sound (LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type) +u32 CScriptGameObject::add_sound(LPCSTR prefix, u32 max_count, ESoundTypes type, u32 priority, u32 mask, u32 internal_type) { - return (add_sound(prefix,max_count,type,priority,mask,internal_type,"bip01_head")); + return (add_sound(prefix, max_count, type, priority, mask, internal_type, "bip01_head")); } -void CScriptGameObject::remove_sound (u32 internal_type) +void CScriptGameObject::remove_sound(u32 internal_type) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member add!"); - else - monster->sound().remove (internal_type); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member add!"); + else + monster->sound().remove(internal_type); } -void CScriptGameObject::set_sound_mask (u32 sound_mask) +void CScriptGameObject::set_sound_mask(u32 sound_mask) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member set_sound_mask!"); - else { - CEntityAlive *entity_alive = smart_cast(monster); - if (entity_alive) { - VERIFY2 (entity_alive->g_Alive(),"Stalkers talk after death??? Say why??"); - } - monster->sound().set_sound_mask(sound_mask); - } + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member set_sound_mask!"); + else + { + CEntityAlive *entity_alive = smart_cast(monster); + if (entity_alive) + { + VERIFY2(entity_alive->g_Alive(), "Stalkers talk after death??? Say why??"); + } + monster->sound().set_sound_mask(sound_mask); + } } -void CScriptGameObject::play_sound (u32 internal_type) +void CScriptGameObject::play_sound(u32 internal_type) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type); } -void CScriptGameObject::play_sound (u32 internal_type, u32 max_start_time) +void CScriptGameObject::play_sound(u32 internal_type, u32 max_start_time) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type,max_start_time); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type, max_start_time); } -void CScriptGameObject::play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time) +void CScriptGameObject::play_sound(u32 internal_type, u32 max_start_time, u32 min_start_time) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type,max_start_time,min_start_time); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type, max_start_time, min_start_time); } -void CScriptGameObject::play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time) +void CScriptGameObject::play_sound(u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type,max_start_time,min_start_time,max_stop_time); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type, max_start_time, min_start_time, max_stop_time); } -void CScriptGameObject::play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time) +void CScriptGameObject::play_sound(u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type,max_start_time,min_start_time,max_stop_time,min_stop_time); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type, max_start_time, min_start_time, max_stop_time, min_stop_time); } -void CScriptGameObject::play_sound (u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time, u32 id) +void CScriptGameObject::play_sound(u32 internal_type, u32 max_start_time, u32 min_start_time, u32 max_stop_time, u32 min_stop_time, u32 id) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSoundPlayer : cannot access class member play!"); - else - monster->sound().play (internal_type,max_start_time,min_start_time,max_stop_time,min_stop_time,id); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSoundPlayer : cannot access class member play!"); + else + monster->sound().play(internal_type, max_start_time, min_start_time, max_stop_time, min_stop_time, id); } -int CScriptGameObject::active_sound_count (bool only_playing) +int CScriptGameObject::active_sound_count(bool only_playing) { - CCustomMonster *monster = smart_cast(&object()); - if (!monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CGameObject : cannot access class member active_sound_count!"); - return (-1); - } - else - return (monster->sound().active_sound_count(only_playing)); + CCustomMonster *monster = smart_cast(&object()); + if (!monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CGameObject : cannot access class member active_sound_count!"); + return (-1); + } + else + return (monster->sound().active_sound_count(only_playing)); } -int CScriptGameObject::active_sound_count () +int CScriptGameObject::active_sound_count() { - return (active_sound_count(false)); + return (active_sound_count(false)); } -bool CScriptGameObject::wounded () const +bool CScriptGameObject::wounded() const { - const CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member wounded!"); - return (false); - } - - return (stalker->wounded()); + const CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member wounded!"); + return (false); + } + + return (stalker->wounded()); } -void CScriptGameObject::wounded (bool value) +void CScriptGameObject::wounded(bool value) { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member wounded!"); - return; - } - - stalker->wounded (value); + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member wounded!"); + return; + } + + stalker->wounded(value); } -CSightParams CScriptGameObject::sight_params () +CSightParams CScriptGameObject::sight_params() { - CAI_Stalker *stalker = smart_cast(&object()); - if (!stalker) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CAI_Stalker : cannot access class member sight_params!"); - - CSightParams result; - result.m_object = 0; - result.m_vector = Fvector().set(flt_max,flt_max,flt_max); - result.m_sight_type = SightManager::eSightTypeDummy; - return (result); - } - - const CSightControlAction &action = stalker->sight().current_action(); - CSightParams result; - result.m_sight_type = action.sight_type(); - result.m_object = action.object_to_look() ? action.object_to_look()->lua_game_object() : 0; - result.m_vector = action.vector3d(); - return (result); + CAI_Stalker *stalker = smart_cast(&object()); + if (!stalker) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CAI_Stalker : cannot access class member sight_params!"); + + CSightParams result; + result.m_object = 0; + result.m_vector = Fvector().set(flt_max, flt_max, flt_max); + result.m_sight_type = SightManager::eSightTypeDummy; + return (result); + } + + const CSightControlAction &action = stalker->sight().current_action(); + CSightParams result; + result.m_sight_type = action.sight_type(); + result.m_object = action.object_to_look() ? action.object_to_look()->lua_game_object() : 0; + result.m_vector = action.vector3d(); + return (result); } -bool CScriptGameObject::critically_wounded () +bool CScriptGameObject::critically_wounded() { - CCustomMonster *custom_monster = smart_cast(&object()); - if (!custom_monster) { - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomMonster : cannot access class member critically_wounded!"); - return (false); - } - - return (custom_monster->critically_wounded()); + CCustomMonster *custom_monster = smart_cast(&object()); + if (!custom_monster) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CCustomMonster : cannot access class member critically_wounded!"); + return (false); + } + + return (custom_monster->critically_wounded()); } bool CScriptGameObject::IsInvBoxEmpty() { - CInventoryBox* ib = smart_cast(&object()); - if(!ib) - return (false); - else - return ib->IsEmpty (); + CInventoryBox* ib = smart_cast(&object()); + if (!ib) + return (false); + else + return ib->IsEmpty(); } -bool CScriptGameObject::inv_box_closed( bool status, LPCSTR reason ) +bool CScriptGameObject::inv_box_closed(bool status, LPCSTR reason) { - CInventoryBox* ib = smart_cast(&object()); - if ( !ib ) - { - return false; - } - else - { - ib->set_closed( status, reason ); - return true; - } + CInventoryBox* ib = smart_cast(&object()); + if (!ib) + { + return false; + } + else + { + ib->set_closed(status, reason); + return true; + } } bool CScriptGameObject::inv_box_closed_status() { - CInventoryBox* ib = smart_cast(&object()); - if ( !ib ) - { - return false; - } - else - { - return ib->closed(); - } + CInventoryBox* ib = smart_cast(&object()); + if (!ib) + { + return false; + } + else + { + return ib->closed(); + } } -bool CScriptGameObject::inv_box_can_take( bool status ) +bool CScriptGameObject::inv_box_can_take(bool status) { - CInventoryBox* ib = smart_cast(&object()); - if ( !ib ) - { - return false; - } - else - { - ib->set_can_take( status ); - return true; - } + CInventoryBox* ib = smart_cast(&object()); + if (!ib) + { + return false; + } + else + { + ib->set_can_take(status); + return true; + } } bool CScriptGameObject::inv_box_can_take_status() { - CInventoryBox* ib = smart_cast(&object()); - if ( !ib ) - { - return false; - } - else - { - return ib->can_take(); - } + CInventoryBox* ib = smart_cast(&object()); + if (!ib) + { + return false; + } + else + { + return ib->can_take(); + } } CZoneCampfire* CScriptGameObject::get_campfire() { - return smart_cast(&object()); + return smart_cast(&object()); } CArtefact* CScriptGameObject::get_artefact() { - return smart_cast(&object()); + return smart_cast(&object()); } CPhysicObject* CScriptGameObject::get_physics_object() { - return smart_cast(&object()); + return smart_cast(&object()); } #include "level_changer.h" void CScriptGameObject::enable_level_changer(bool b) { - CLevelChanger* lch = smart_cast(&object()); - if(lch) - lch->EnableLevelChanger(b); + CLevelChanger* lch = smart_cast(&object()); + if (lch) + lch->EnableLevelChanger(b); } bool CScriptGameObject::is_level_changer_enabled() { - CLevelChanger* lch = smart_cast(&object()); - if(lch) - return lch->IsLevelChangerEnabled(); - return false; + CLevelChanger* lch = smart_cast(&object()); + if (lch) + return lch->IsLevelChangerEnabled(); + return false; } void CScriptGameObject::set_level_changer_invitation(LPCSTR str) { - CLevelChanger* lch = smart_cast(&object()); - if(lch) - lch->SetLEvelChangerInvitationStr(str); + CLevelChanger* lch = smart_cast(&object()); + if (lch) + lch->SetLEvelChangerInvitationStr(str); } void CScriptGameObject::start_particles(LPCSTR pname, LPCSTR bone) { - CParticlesPlayer* PP = smart_cast(&object()); - if(!PP) return; - - IKinematics* K = smart_cast(object().Visual()); - R_ASSERT (K); - - u16 play_bone = K->LL_BoneID(bone); - R_ASSERT (play_bone!=BI_NONE); - if(K->LL_GetBoneVisible(play_bone)) - PP->StartParticles (pname, play_bone, Fvector().set(0,1,0), 9999); - else - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"Cant start particles, bone [%s] is not visible now", bone); + CParticlesPlayer* PP = smart_cast(&object()); + if (!PP) return; + + IKinematics* K = smart_cast(object().Visual()); + R_ASSERT(K); + + u16 play_bone = K->LL_BoneID(bone); + R_ASSERT(play_bone != BI_NONE); + if (K->LL_GetBoneVisible(play_bone)) + PP->StartParticles(pname, play_bone, Fvector().set(0, 1, 0), 9999); + else + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Cant start particles, bone [%s] is not visible now", bone); } void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) { - CParticlesPlayer* PP = smart_cast(&object()); - if(!PP) return; + CParticlesPlayer* PP = smart_cast(&object()); + if (!PP) return; - IKinematics* K = smart_cast(object().Visual()); - R_ASSERT (K); + IKinematics* K = smart_cast(object().Visual()); + R_ASSERT(K); - u16 play_bone = K->LL_BoneID(bone); - R_ASSERT (play_bone!=BI_NONE); + u16 play_bone = K->LL_BoneID(bone); + R_ASSERT(play_bone != BI_NONE); + + if (K->LL_GetBoneVisible(play_bone)) + PP->StopParticles(9999, play_bone, true); + else + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Cant stop particles, bone [%s] is not visible now", bone); +} - if(K->LL_GetBoneVisible(play_bone)) - PP->StopParticles (9999, play_bone, true); - else - ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"Cant stop particles, bone [%s] is not visible now", bone); -} \ No newline at end of file +// AVO: functions for testing object class +// Credits: KD +//#include "car.h" +#include "helicopter.h" +#include "actor.h" +#include "customoutfit.h" +//#include "customzone.h" +#include "ai\monsters\basemonster\base_monster.h" +//#include "Artifact.h" +#include "medkit.h" +#include "antirad.h" +#include "scope.h" +#include "silencer.h" +#include "torch.h" +#include "GrenadeLauncher.h" +#include "searchlight.h" +//#include "WeaponAmmo.h" +#include "grenade.h" +#include "BottleItem.h" +#include "WeaponMagazinedWGrenade.h" + +#define TEST_OBJECT_CLASS(A,B)\ +bool A () const\ +{\ + B *l_tpEntity = smart_cast(&object());\ + if (!l_tpEntity)\ + return false;\ + else\ + return true;\ +};\ + +TEST_OBJECT_CLASS(CScriptGameObject::IsGameObject, CGameObject) +//TEST_OBJECT_CLASS(CScriptGameObject::IsCar, CCar) +TEST_OBJECT_CLASS(CScriptGameObject::IsHeli, CHelicopter) +//TEST_OBJECT_CLASS(CScriptGameObject::IsHolderCustom, CHolderCustom) +TEST_OBJECT_CLASS(CScriptGameObject::IsEntityAlive, CEntityAlive) +TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryItem, CInventoryItem) +TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryOwner, CInventoryOwner) +TEST_OBJECT_CLASS(CScriptGameObject::IsActor, CActor) +TEST_OBJECT_CLASS(CScriptGameObject::IsCustomMonster, CCustomMonster) +TEST_OBJECT_CLASS(CScriptGameObject::IsWeapon, CWeapon) +TEST_OBJECT_CLASS(CScriptGameObject::IsMedkit, CMedkit) +TEST_OBJECT_CLASS(CScriptGameObject::IsEatableItem, CEatableItem) +TEST_OBJECT_CLASS(CScriptGameObject::IsAntirad, CAntirad) +TEST_OBJECT_CLASS(CScriptGameObject::IsCustomOutfit, CCustomOutfit) +TEST_OBJECT_CLASS(CScriptGameObject::IsScope, CScope) +TEST_OBJECT_CLASS(CScriptGameObject::IsSilencer, CSilencer) +TEST_OBJECT_CLASS(CScriptGameObject::IsGrenadeLauncher, CGrenadeLauncher) +TEST_OBJECT_CLASS(CScriptGameObject::IsWeaponMagazined, CWeaponMagazined) +TEST_OBJECT_CLASS(CScriptGameObject::IsSpaceRestrictor, CSpaceRestrictor) +TEST_OBJECT_CLASS(CScriptGameObject::IsStalker, CAI_Stalker) +TEST_OBJECT_CLASS(CScriptGameObject::IsAnomaly, CCustomZone) +TEST_OBJECT_CLASS(CScriptGameObject::IsMonster, CBaseMonster) +TEST_OBJECT_CLASS(CScriptGameObject::IsExplosive, CExplosive) +TEST_OBJECT_CLASS(CScriptGameObject::IsScriptZone, CScriptZone) +TEST_OBJECT_CLASS(CScriptGameObject::IsProjector, CProjector) +TEST_OBJECT_CLASS(CScriptGameObject::IsTrader, CAI_Trader) +TEST_OBJECT_CLASS(CScriptGameObject::IsHudItem, CHudItem) +TEST_OBJECT_CLASS(CScriptGameObject::IsFoodItem, CFoodItem) +TEST_OBJECT_CLASS(CScriptGameObject::IsArtefact, CArtefact) +TEST_OBJECT_CLASS(CScriptGameObject::IsAmmo, CWeaponAmmo) +TEST_OBJECT_CLASS(CScriptGameObject::IsMissile, CMissile) +TEST_OBJECT_CLASS(CScriptGameObject::IsPhysicsShellHolder, CPhysicsShellHolder) +TEST_OBJECT_CLASS(CScriptGameObject::IsGrenade, CGrenade) +TEST_OBJECT_CLASS(CScriptGameObject::IsBottleItem, CBottleItem) +TEST_OBJECT_CLASS(CScriptGameObject::IsTorch, CTorch) +TEST_OBJECT_CLASS(CScriptGameObject::IsWeaponGL, CWeaponMagazinedWGrenade) +TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryBox, CInventoryBox) + +//end AVO \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 24e02f60bc7..0fe10423457 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -37,298 +37,338 @@ using namespace luabind; class_ &script_register_game_object2(class_ &instance) { - instance - .def("add_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32))(&CScriptGameObject::add_sound)) - .def("add_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32,LPCSTR))(&CScriptGameObject::add_sound)) - .def("add_combat_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32,LPCSTR))(&CScriptGameObject::add_combat_sound)) - .def("remove_sound", &CScriptGameObject::remove_sound) - .def("set_sound_mask", &CScriptGameObject::set_sound_mask) - .def("play_sound", (void (CScriptGameObject::*)(u32))(&CScriptGameObject::play_sound)) - .def("play_sound", (void (CScriptGameObject::*)(u32,u32))(&CScriptGameObject::play_sound)) - .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32))(&CScriptGameObject::play_sound)) - .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32))(&CScriptGameObject::play_sound)) - .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32,u32))(&CScriptGameObject::play_sound)) - .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32,u32,u32))(&CScriptGameObject::play_sound)) - .def("binded_object", &CScriptGameObject::binded_object) - .def("set_previous_point", &CScriptGameObject::set_previous_point) - .def("set_start_point", &CScriptGameObject::set_start_point) - .def("get_current_point_index", &CScriptGameObject::get_current_patrol_point_index) - .def("path_completed", &CScriptGameObject::path_completed) - .def("patrol_path_make_inactual", &CScriptGameObject::patrol_path_make_inactual) - .def("enable_memory_object", &CScriptGameObject::enable_memory_object) - .def("active_sound_count", (int (CScriptGameObject::*)())(&CScriptGameObject::active_sound_count)) - .def("active_sound_count", (int (CScriptGameObject::*)(bool))(&CScriptGameObject::active_sound_count)) - .def("best_cover", &CScriptGameObject::best_cover) - .def("safe_cover", &CScriptGameObject::safe_cover) - .def("spawn_ini", &CScriptGameObject::spawn_ini) - .def("memory_visible_objects", &CScriptGameObject::memory_visible_objects, return_stl_iterator) - .def("memory_sound_objects", &CScriptGameObject::memory_sound_objects, return_stl_iterator) - .def("memory_hit_objects", &CScriptGameObject::memory_hit_objects, return_stl_iterator) - .def("not_yet_visible_objects", &CScriptGameObject::not_yet_visible_objects, return_stl_iterator) - .def("visibility_threshold", &CScriptGameObject::visibility_threshold) - .def("enable_vision", &CScriptGameObject::enable_vision) - .def("vision_enabled", &CScriptGameObject::vision_enabled) - .def("set_sound_threshold", &CScriptGameObject::set_sound_threshold) - .def("restore_sound_threshold", &CScriptGameObject::restore_sound_threshold) - - // sight manager - .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector *vector3d, u32 dwLookOverDelay))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, bool torso_look, bool path))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector &vector3d, bool torso_look))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector *vector3d))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look, bool fire_object))(&CScriptGameObject::set_sight)) - .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look, bool fire_object, bool no_pitch))(&CScriptGameObject::set_sight)) + instance + .def("add_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32))(&CScriptGameObject::add_sound)) + .def("add_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32,LPCSTR))(&CScriptGameObject::add_sound)) + .def("add_combat_sound", (u32 (CScriptGameObject::*)(LPCSTR,u32,ESoundTypes,u32,u32,u32,LPCSTR))(&CScriptGameObject::add_combat_sound)) + .def("remove_sound", &CScriptGameObject::remove_sound) + .def("set_sound_mask", &CScriptGameObject::set_sound_mask) + .def("play_sound", (void (CScriptGameObject::*)(u32))(&CScriptGameObject::play_sound)) + .def("play_sound", (void (CScriptGameObject::*)(u32,u32))(&CScriptGameObject::play_sound)) + .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32))(&CScriptGameObject::play_sound)) + .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32))(&CScriptGameObject::play_sound)) + .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32,u32))(&CScriptGameObject::play_sound)) + .def("play_sound", (void (CScriptGameObject::*)(u32,u32,u32,u32,u32,u32))(&CScriptGameObject::play_sound)) + .def("binded_object", &CScriptGameObject::binded_object) + .def("set_previous_point", &CScriptGameObject::set_previous_point) + .def("set_start_point", &CScriptGameObject::set_start_point) + .def("get_current_point_index", &CScriptGameObject::get_current_patrol_point_index) + .def("path_completed", &CScriptGameObject::path_completed) + .def("patrol_path_make_inactual", &CScriptGameObject::patrol_path_make_inactual) + .def("enable_memory_object", &CScriptGameObject::enable_memory_object) + .def("active_sound_count", (int (CScriptGameObject::*)())(&CScriptGameObject::active_sound_count)) + .def("active_sound_count", (int (CScriptGameObject::*)(bool))(&CScriptGameObject::active_sound_count)) + .def("best_cover", &CScriptGameObject::best_cover) + .def("safe_cover", &CScriptGameObject::safe_cover) + .def("spawn_ini", &CScriptGameObject::spawn_ini) + .def("memory_visible_objects", &CScriptGameObject::memory_visible_objects, return_stl_iterator) + .def("memory_sound_objects", &CScriptGameObject::memory_sound_objects, return_stl_iterator) + .def("memory_hit_objects", &CScriptGameObject::memory_hit_objects, return_stl_iterator) + .def("not_yet_visible_objects", &CScriptGameObject::not_yet_visible_objects, return_stl_iterator) + .def("visibility_threshold", &CScriptGameObject::visibility_threshold) + .def("enable_vision", &CScriptGameObject::enable_vision) + .def("vision_enabled", &CScriptGameObject::vision_enabled) + .def("set_sound_threshold", &CScriptGameObject::set_sound_threshold) + .def("restore_sound_threshold", &CScriptGameObject::restore_sound_threshold) + + // sight manager + .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector *vector3d, u32 dwLookOverDelay))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, bool torso_look, bool path))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector &vector3d, bool torso_look))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(SightManager::ESightType sight_type, Fvector *vector3d))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look, bool fire_object))(&CScriptGameObject::set_sight)) + .def("set_sight", (void (CScriptGameObject::*)(CScriptGameObject *object_to_look, bool torso_look, bool fire_object, bool no_pitch))(&CScriptGameObject::set_sight)) // .def("set_sight", (void (CScriptGameObject::*)(const MemorySpace::CMemoryInfo *memory_object, bool torso_look))(&CScriptGameObject::set_sight)) - // object handler - .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction ))(&CScriptGameObject::set_item)) - .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *))(&CScriptGameObject::set_item)) - .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *, u32))(&CScriptGameObject::set_item)) - .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *, u32, u32))(&CScriptGameObject::set_item)) - - .def("bone_position", &CScriptGameObject::bone_position) - - .def("is_body_turning", &CScriptGameObject::is_body_turning) - - ////////////////////////////////////////////////////////////////////////// - // Space restrictions - ////////////////////////////////////////////////////////////////////////// - .def("add_restrictions", &CScriptGameObject::add_restrictions) - .def("remove_restrictions", &CScriptGameObject::remove_restrictions) - .def("remove_all_restrictions", &CScriptGameObject::remove_all_restrictions) - .def("in_restrictions", &CScriptGameObject::in_restrictions) - .def("out_restrictions", &CScriptGameObject::out_restrictions) - .def("base_in_restrictions", &CScriptGameObject::base_in_restrictions) - .def("base_out_restrictions", &CScriptGameObject::base_out_restrictions) - .def("accessible", &CScriptGameObject::accessible_position) - .def("accessible", &CScriptGameObject::accessible_vertex_id) - .def("accessible_nearest", &CScriptGameObject::accessible_nearest, out_value(_3)) - - ////////////////////////////////////////////////////////////////////////// - .def("enable_attachable_item", &CScriptGameObject::enable_attachable_item) - .def("attachable_item_enabled", &CScriptGameObject::attachable_item_enabled) - .def("enable_night_vision", &CScriptGameObject::enable_night_vision) - .def("night_vision_enabled", &CScriptGameObject::night_vision_enabled) - .def("enable_torch", &CScriptGameObject::enable_torch) - .def("torch_enabled", &CScriptGameObject::torch_enabled) - .def("attachable_item_load_attach", &CScriptGameObject::attachable_item_load_attach) - .def("weapon_strapped", &CScriptGameObject::weapon_strapped) - .def("weapon_unstrapped", &CScriptGameObject::weapon_unstrapped) - - ////////////////////////////////////////////////////////////////////////// - //inventory owner - ////////////////////////////////////////////////////////////////////////// - - .enum_("EPdaMsg") - [ - value("dialog_pda_msg", int(ePdaMsgDialog)), - value("info_pda_msg", int(ePdaMsgInfo)), - value("no_pda_msg", int(ePdaMsgMax)) - ] - - .def("give_info_portion", &CScriptGameObject::GiveInfoPortion) - .def("disable_info_portion", &CScriptGameObject::DisableInfoPortion) - .def("give_game_news", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,int,int))(&CScriptGameObject::GiveGameNews)) - .def("give_game_news", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,int,int,int))(&CScriptGameObject::GiveGameNews)) - - .def("give_talk_message", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR))(&CScriptGameObject::AddIconedTalkMessage_old))//old version, must remove! - .def("give_talk_message2", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,LPCSTR))(&CScriptGameObject::AddIconedTalkMessage)) - - .def("has_info", &CScriptGameObject::HasInfo) - .def("dont_has_info", &CScriptGameObject::DontHasInfo) - - .def("get_task_state", &CScriptGameObject::GetGameTaskState) - .def("set_task_state", &CScriptGameObject::SetGameTaskState) - .def("give_task", &CScriptGameObject::GiveTaskToActor, adopt(_2)) - .def("set_active_task", &CScriptGameObject::SetActiveTask) - .def("is_active_task", &CScriptGameObject::IsActiveTask) - .def("get_task", &CScriptGameObject::GetTask) - - .def("is_talking", &CScriptGameObject::IsTalking) - .def("stop_talk", &CScriptGameObject::StopTalk) - .def("enable_talk", &CScriptGameObject::EnableTalk) - .def("disable_talk", &CScriptGameObject::DisableTalk) - .def("is_talk_enabled", &CScriptGameObject::IsTalkEnabled) - - .def("enable_trade", &CScriptGameObject::EnableTrade) - .def("disable_trade", &CScriptGameObject::DisableTrade) - .def("is_trade_enabled", &CScriptGameObject::IsTradeEnabled) - .def("enable_inv_upgrade", &CScriptGameObject::EnableInvUpgrade) - .def("disable_inv_upgrade", &CScriptGameObject::DisableInvUpgrade) - .def("is_inv_upgrade_enabled", &CScriptGameObject::IsInvUpgradeEnabled) - - .def("disable_show_hide_sounds", &CScriptGameObject::SetPlayShHdRldSounds) - .def("inventory_for_each", &CScriptGameObject::ForEachInventoryItems) - .def("drop_item", &CScriptGameObject::DropItem) - .def("drop_item_and_teleport", &CScriptGameObject::DropItemAndTeleport) - .def("transfer_item", &CScriptGameObject::TransferItem) - .def("transfer_money", &CScriptGameObject::TransferMoney) - .def("give_money", &CScriptGameObject::GiveMoney) - .def("money", &CScriptGameObject::Money) - .def("make_item_active", &CScriptGameObject::MakeItemActive) - - .def("switch_to_trade", &CScriptGameObject::SwitchToTrade) - .def("switch_to_upgrade", &CScriptGameObject::SwitchToUpgrade) - .def("switch_to_talk", &CScriptGameObject::SwitchToTalk) - .def("run_talk_dialog", &CScriptGameObject::RunTalkDialog) - .def("allow_break_talk_dialog", &CScriptGameObject::AllowBreakTalkDialog) - - .def("hide_weapon", &CScriptGameObject::HideWeapon) - .def("restore_weapon", &CScriptGameObject::RestoreWeapon) - - .def("weapon_is_grenadelauncher", &CScriptGameObject::Weapon_IsGrenadeLauncherAttached) - .def("weapon_is_scope", &CScriptGameObject::Weapon_IsScopeAttached) - .def("weapon_is_silencer", &CScriptGameObject::Weapon_IsSilencerAttached) - - .def("weapon_grenadelauncher_status", &CScriptGameObject::Weapon_GrenadeLauncher_Status) - .def("weapon_scope_status", &CScriptGameObject::Weapon_Scope_Status) - .def("weapon_silencer_status", &CScriptGameObject::Weapon_Silencer_Status) - - .def("allow_sprint", &CScriptGameObject::AllowSprint) - - .def("set_start_dialog", &CScriptGameObject::SetStartDialog) - .def("get_start_dialog", &CScriptGameObject::GetStartDialog) - .def("restore_default_start_dialog",&CScriptGameObject::RestoreDefaultStartDialog) - - .def("goodwill", &CScriptGameObject::GetGoodwill) - .def("set_goodwill", &CScriptGameObject::SetGoodwill) - .def("force_set_goodwill", &CScriptGameObject::ForceSetGoodwill) - .def("change_goodwill", &CScriptGameObject::ChangeGoodwill) - - .def("general_goodwill", &CScriptGameObject::GetAttitude) - .def("set_relation", &CScriptGameObject::SetRelation) - - .def("community_goodwill", &CScriptGameObject::GetCommunityGoodwill_obj) - .def("set_community_goodwill", &CScriptGameObject::SetCommunityGoodwill_obj) - - .def("sympathy", &CScriptGameObject::GetSympathy) - .def("set_sympathy", &CScriptGameObject::SetSympathy) - - ////////////////////////////////////////////////////////////////////////// - .def("profile_name", &CScriptGameObject::ProfileName) - .def("character_name", &CScriptGameObject::CharacterName) - .def("character_icon", &CScriptGameObject::CharacterIcon) - .def("character_rank", &CScriptGameObject::CharacterRank) - .def("set_character_rank", &CScriptGameObject::SetCharacterRank) - .def("character_reputation", &CScriptGameObject::CharacterReputation) - .def("change_character_reputation", &CScriptGameObject::ChangeCharacterReputation) - .def("character_community", &CScriptGameObject::CharacterCommunity) - .def("set_character_community", &CScriptGameObject::SetCharacterCommunity) - - .def("get_actor_relation_flags", &CScriptGameObject::get_actor_relation_flags) - .def("set_actor_relation_flags", &CScriptGameObject::set_actor_relation_flags) - .def("sound_voice_prefix", &CScriptGameObject::sound_voice_prefix) - - .enum_("ACTOR_RELATIONS") - [ - value("relation_attack", int(RELATION_REGISTRY::ATTACK)), - value("relation_fight_help_monster", int(RELATION_REGISTRY::FIGHT_HELP_MONSTER)), - value("relation_fight_help_human", int(RELATION_REGISTRY::FIGHT_HELP_HUMAN)), - value("relation_kill", int(RELATION_REGISTRY::KILL)) - ] - - .enum_("CLSIDS") - [ - value("no_pda_msg", int(ePdaMsgMax)) - ] - - //CustomZone - .def("enable_anomaly", &CScriptGameObject::EnableAnomaly) - .def("disable_anomaly", &CScriptGameObject::DisableAnomaly) - .def("get_anomaly_power", &CScriptGameObject::GetAnomalyPower) - .def("set_anomaly_power", &CScriptGameObject::SetAnomalyPower) - - //HELICOPTER - .def("get_helicopter", &CScriptGameObject::get_helicopter) - .def("get_car", &CScriptGameObject::get_car) - .def("get_hanging_lamp", &CScriptGameObject::get_hanging_lamp) - .def("get_bone_id", &CScriptGameObject::get_bone_id) - .def("get_physics_shell", &CScriptGameObject::get_physics_shell) - .def("get_holder_class", &CScriptGameObject::get_custom_holder) - .def("get_current_holder", &CScriptGameObject::get_current_holder) - //usable object - .def("set_tip_text", &CScriptGameObject::SetTipText) - .def("set_tip_text_default", &CScriptGameObject::SetTipTextDefault) - .def("set_nonscript_usable", &CScriptGameObject::SetNonscriptUsable) - - // Script Zone - .def("active_zone_contact", &CScriptGameObject::active_zone_contact) - .def("inside", (bool (CScriptGameObject::*)(const Fvector &, float) const)(&CScriptGameObject::inside)) - .def("inside", (bool (CScriptGameObject::*)(const Fvector &) const)(&CScriptGameObject::inside)) - .def("set_fastcall", &CScriptGameObject::set_fastcall) - .def("set_const_force", &CScriptGameObject::set_const_force) - .def("info_add", &CScriptGameObject::info_add) - .def("info_clear", &CScriptGameObject::info_clear) - - // inv box - .def("is_inv_box_empty", &CScriptGameObject::IsInvBoxEmpty) - .def("inv_box_closed", &CScriptGameObject::inv_box_closed) - .def("inv_box_closed_status", &CScriptGameObject::inv_box_closed_status) - .def("inv_box_can_take", &CScriptGameObject::inv_box_can_take) - .def("inv_box_can_take_status", &CScriptGameObject::inv_box_can_take_status) - - // monster jumper - .def("jump", &CScriptGameObject::jump) - - .def("make_object_visible_somewhen",&CScriptGameObject::make_object_visible_somewhen) - - .def("buy_condition", (void (CScriptGameObject::*)(CScriptIniFile*,LPCSTR))(&CScriptGameObject::buy_condition)) - .def("buy_condition", (void (CScriptGameObject::*)(float,float))(&CScriptGameObject::buy_condition)) - .def("show_condition", &CScriptGameObject::show_condition) - .def("sell_condition", (void (CScriptGameObject::*)(CScriptIniFile*,LPCSTR))(&CScriptGameObject::sell_condition)) - .def("sell_condition", (void (CScriptGameObject::*)(float,float))(&CScriptGameObject::sell_condition)) - .def("buy_supplies", &CScriptGameObject::buy_supplies) - .def("buy_item_condition_factor", &CScriptGameObject::buy_item_condition_factor) - - .def("sound_prefix", (LPCSTR (CScriptGameObject::*)() const)(&CScriptGameObject::sound_prefix)) - .def("sound_prefix", (void (CScriptGameObject::*)(LPCSTR))(&CScriptGameObject::sound_prefix)) - - .def("location_on_path", &CScriptGameObject::location_on_path) - .def("is_there_items_to_pickup", &CScriptGameObject::is_there_items_to_pickup) - - .def("wounded", (bool (CScriptGameObject::*)() const)(&CScriptGameObject::wounded)) - .def("wounded", (void (CScriptGameObject::*)(bool))(&CScriptGameObject::wounded)) - - .def("iterate_inventory", &CScriptGameObject::IterateInventory) - .def("iterate_inventory_box", &CScriptGameObject::IterateInventoryBox) - .def("mark_item_dropped", &CScriptGameObject::MarkItemDropped) - .def("marked_dropped", &CScriptGameObject::MarkedDropped) - .def("unload_magazine", &CScriptGameObject::UnloadMagazine) - - .def("sight_params", &CScriptGameObject::sight_params) - - .def("movement_enabled", &CScriptGameObject::enable_movement) - .def("movement_enabled", &CScriptGameObject::movement_enabled) - - .def("critically_wounded", &CScriptGameObject::critically_wounded) - .def("get_campfire", &CScriptGameObject::get_campfire) - .def("get_artefact", &CScriptGameObject::get_artefact) - .def("get_physics_object", &CScriptGameObject::get_physics_object) - .def("aim_time", (void (CScriptGameObject::*) (CScriptGameObject*, u32))&CScriptGameObject::aim_time) - .def("aim_time", (u32 (CScriptGameObject::*) (CScriptGameObject*))&CScriptGameObject::aim_time) - - .def("special_danger_move", (void (CScriptGameObject::*) (bool))&CScriptGameObject::special_danger_move) - .def("special_danger_move", (bool (CScriptGameObject::*) ())&CScriptGameObject::special_danger_move) - - .def("sniper_update_rate", (void (CScriptGameObject::*) (bool))&CScriptGameObject::sniper_update_rate) - .def("sniper_update_rate", (bool (CScriptGameObject::*) () const)&CScriptGameObject::sniper_update_rate) - - .def("sniper_fire_mode", (void (CScriptGameObject::*) (bool))&CScriptGameObject::sniper_fire_mode) - .def("sniper_fire_mode", (bool (CScriptGameObject::*) () const)&CScriptGameObject::sniper_fire_mode) - - .def("aim_bone_id", (void (CScriptGameObject::*) (LPCSTR))&CScriptGameObject::aim_bone_id) - .def("aim_bone_id", (LPCSTR (CScriptGameObject::*) () const)&CScriptGameObject::aim_bone_id) - - .def("actor_look_at_point", &CScriptGameObject::ActorLookAtPoint) - .def("enable_level_changer", &CScriptGameObject::enable_level_changer) - .def("is_level_changer_enabled", &CScriptGameObject::is_level_changer_enabled) - - .def("set_level_changer_invitation",&CScriptGameObject::set_level_changer_invitation) - .def("start_particles", &CScriptGameObject::start_particles) - .def("stop_particles", &CScriptGameObject::stop_particles) - - - ;return (instance); + // object handler + .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction ))(&CScriptGameObject::set_item)) + .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *))(&CScriptGameObject::set_item)) + .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *, u32))(&CScriptGameObject::set_item)) + .def("set_item", (void (CScriptGameObject::*)(MonsterSpace::EObjectAction, CScriptGameObject *, u32, u32))(&CScriptGameObject::set_item)) + + .def("bone_position", &CScriptGameObject::bone_position) + + .def("is_body_turning", &CScriptGameObject::is_body_turning) + + ////////////////////////////////////////////////////////////////////////// + // Space restrictions + ////////////////////////////////////////////////////////////////////////// + .def("add_restrictions", &CScriptGameObject::add_restrictions) + .def("remove_restrictions", &CScriptGameObject::remove_restrictions) + .def("remove_all_restrictions", &CScriptGameObject::remove_all_restrictions) + .def("in_restrictions", &CScriptGameObject::in_restrictions) + .def("out_restrictions", &CScriptGameObject::out_restrictions) + .def("base_in_restrictions", &CScriptGameObject::base_in_restrictions) + .def("base_out_restrictions", &CScriptGameObject::base_out_restrictions) + .def("accessible", &CScriptGameObject::accessible_position) + .def("accessible", &CScriptGameObject::accessible_vertex_id) + .def("accessible_nearest", &CScriptGameObject::accessible_nearest, out_value(_3)) + + ////////////////////////////////////////////////////////////////////////// + .def("enable_attachable_item", &CScriptGameObject::enable_attachable_item) + .def("attachable_item_enabled", &CScriptGameObject::attachable_item_enabled) + .def("enable_night_vision", &CScriptGameObject::enable_night_vision) + .def("night_vision_enabled", &CScriptGameObject::night_vision_enabled) + .def("enable_torch", &CScriptGameObject::enable_torch) + .def("torch_enabled", &CScriptGameObject::torch_enabled) + .def("attachable_item_load_attach", &CScriptGameObject::attachable_item_load_attach) + .def("weapon_strapped", &CScriptGameObject::weapon_strapped) + .def("weapon_unstrapped", &CScriptGameObject::weapon_unstrapped) + + ////////////////////////////////////////////////////////////////////////// + //inventory owner + ////////////////////////////////////////////////////////////////////////// + + .enum_("EPdaMsg") + [ + value("dialog_pda_msg", int(ePdaMsgDialog)), + value("info_pda_msg", int(ePdaMsgInfo)), + value("no_pda_msg", int(ePdaMsgMax)) + ] + + .def("give_info_portion", &CScriptGameObject::GiveInfoPortion) + .def("disable_info_portion", &CScriptGameObject::DisableInfoPortion) + .def("give_game_news", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,int,int))(&CScriptGameObject::GiveGameNews)) + .def("give_game_news", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,int,int,int))(&CScriptGameObject::GiveGameNews)) + + .def("give_talk_message", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR))(&CScriptGameObject::AddIconedTalkMessage_old))//old version, must remove! + .def("give_talk_message2", (void (CScriptGameObject::*)(LPCSTR,LPCSTR,LPCSTR,LPCSTR))(&CScriptGameObject::AddIconedTalkMessage)) + + .def("has_info", &CScriptGameObject::HasInfo) + .def("dont_has_info", &CScriptGameObject::DontHasInfo) + + .def("get_task_state", &CScriptGameObject::GetGameTaskState) + .def("set_task_state", &CScriptGameObject::SetGameTaskState) + .def("give_task", &CScriptGameObject::GiveTaskToActor, adopt(_2)) + .def("set_active_task", &CScriptGameObject::SetActiveTask) + .def("is_active_task", &CScriptGameObject::IsActiveTask) + .def("get_task", &CScriptGameObject::GetTask) + + .def("is_talking", &CScriptGameObject::IsTalking) + .def("stop_talk", &CScriptGameObject::StopTalk) + .def("enable_talk", &CScriptGameObject::EnableTalk) + .def("disable_talk", &CScriptGameObject::DisableTalk) + .def("is_talk_enabled", &CScriptGameObject::IsTalkEnabled) + + .def("enable_trade", &CScriptGameObject::EnableTrade) + .def("disable_trade", &CScriptGameObject::DisableTrade) + .def("is_trade_enabled", &CScriptGameObject::IsTradeEnabled) + .def("enable_inv_upgrade", &CScriptGameObject::EnableInvUpgrade) + .def("disable_inv_upgrade", &CScriptGameObject::DisableInvUpgrade) + .def("is_inv_upgrade_enabled", &CScriptGameObject::IsInvUpgradeEnabled) + + .def("disable_show_hide_sounds", &CScriptGameObject::SetPlayShHdRldSounds) + .def("inventory_for_each", &CScriptGameObject::ForEachInventoryItems) + .def("drop_item", &CScriptGameObject::DropItem) + .def("drop_item_and_teleport", &CScriptGameObject::DropItemAndTeleport) + .def("transfer_item", &CScriptGameObject::TransferItem) + .def("transfer_money", &CScriptGameObject::TransferMoney) + .def("give_money", &CScriptGameObject::GiveMoney) + .def("money", &CScriptGameObject::Money) + .def("make_item_active", &CScriptGameObject::MakeItemActive) + + .def("switch_to_trade", &CScriptGameObject::SwitchToTrade) + .def("switch_to_upgrade", &CScriptGameObject::SwitchToUpgrade) + .def("switch_to_talk", &CScriptGameObject::SwitchToTalk) + .def("run_talk_dialog", &CScriptGameObject::RunTalkDialog) + .def("allow_break_talk_dialog", &CScriptGameObject::AllowBreakTalkDialog) + + .def("hide_weapon", &CScriptGameObject::HideWeapon) + .def("restore_weapon", &CScriptGameObject::RestoreWeapon) + + .def("weapon_is_grenadelauncher", &CScriptGameObject::Weapon_IsGrenadeLauncherAttached) + .def("weapon_is_scope", &CScriptGameObject::Weapon_IsScopeAttached) + .def("weapon_is_silencer", &CScriptGameObject::Weapon_IsSilencerAttached) + + .def("weapon_grenadelauncher_status", &CScriptGameObject::Weapon_GrenadeLauncher_Status) + .def("weapon_scope_status", &CScriptGameObject::Weapon_Scope_Status) + .def("weapon_silencer_status", &CScriptGameObject::Weapon_Silencer_Status) + + .def("allow_sprint", &CScriptGameObject::AllowSprint) + + .def("set_start_dialog", &CScriptGameObject::SetStartDialog) + .def("get_start_dialog", &CScriptGameObject::GetStartDialog) + .def("restore_default_start_dialog",&CScriptGameObject::RestoreDefaultStartDialog) + + .def("goodwill", &CScriptGameObject::GetGoodwill) + .def("set_goodwill", &CScriptGameObject::SetGoodwill) + .def("force_set_goodwill", &CScriptGameObject::ForceSetGoodwill) + .def("change_goodwill", &CScriptGameObject::ChangeGoodwill) + + .def("general_goodwill", &CScriptGameObject::GetAttitude) + .def("set_relation", &CScriptGameObject::SetRelation) + + .def("community_goodwill", &CScriptGameObject::GetCommunityGoodwill_obj) + .def("set_community_goodwill", &CScriptGameObject::SetCommunityGoodwill_obj) + + .def("sympathy", &CScriptGameObject::GetSympathy) + .def("set_sympathy", &CScriptGameObject::SetSympathy) + + ////////////////////////////////////////////////////////////////////////// + .def("profile_name", &CScriptGameObject::ProfileName) + .def("character_name", &CScriptGameObject::CharacterName) + .def("character_icon", &CScriptGameObject::CharacterIcon) + .def("character_rank", &CScriptGameObject::CharacterRank) + .def("set_character_rank", &CScriptGameObject::SetCharacterRank) + .def("character_reputation", &CScriptGameObject::CharacterReputation) + .def("change_character_reputation", &CScriptGameObject::ChangeCharacterReputation) + .def("character_community", &CScriptGameObject::CharacterCommunity) + .def("set_character_community", &CScriptGameObject::SetCharacterCommunity) + + .def("get_actor_relation_flags", &CScriptGameObject::get_actor_relation_flags) + .def("set_actor_relation_flags", &CScriptGameObject::set_actor_relation_flags) + .def("sound_voice_prefix", &CScriptGameObject::sound_voice_prefix) + + .enum_("ACTOR_RELATIONS") + [ + value("relation_attack", int(RELATION_REGISTRY::ATTACK)), + value("relation_fight_help_monster", int(RELATION_REGISTRY::FIGHT_HELP_MONSTER)), + value("relation_fight_help_human", int(RELATION_REGISTRY::FIGHT_HELP_HUMAN)), + value("relation_kill", int(RELATION_REGISTRY::KILL)) + ] + + .enum_("CLSIDS") + [ + value("no_pda_msg", int(ePdaMsgMax)) + ] + + //CustomZone + .def("enable_anomaly", &CScriptGameObject::EnableAnomaly) + .def("disable_anomaly", &CScriptGameObject::DisableAnomaly) + .def("get_anomaly_power", &CScriptGameObject::GetAnomalyPower) + .def("set_anomaly_power", &CScriptGameObject::SetAnomalyPower) + + //HELICOPTER + .def("get_helicopter", &CScriptGameObject::get_helicopter) + .def("get_car", &CScriptGameObject::get_car) + .def("get_hanging_lamp", &CScriptGameObject::get_hanging_lamp) + .def("get_bone_id", &CScriptGameObject::get_bone_id) + .def("get_physics_shell", &CScriptGameObject::get_physics_shell) + .def("get_holder_class", &CScriptGameObject::get_custom_holder) + .def("get_current_holder", &CScriptGameObject::get_current_holder) + //usable object + .def("set_tip_text", &CScriptGameObject::SetTipText) + .def("set_tip_text_default", &CScriptGameObject::SetTipTextDefault) + .def("set_nonscript_usable", &CScriptGameObject::SetNonscriptUsable) + + // Script Zone + .def("active_zone_contact", &CScriptGameObject::active_zone_contact) + .def("inside", (bool (CScriptGameObject::*)(const Fvector &, float) const)(&CScriptGameObject::inside)) + .def("inside", (bool (CScriptGameObject::*)(const Fvector &) const)(&CScriptGameObject::inside)) + .def("set_fastcall", &CScriptGameObject::set_fastcall) + .def("set_const_force", &CScriptGameObject::set_const_force) + .def("info_add", &CScriptGameObject::info_add) + .def("info_clear", &CScriptGameObject::info_clear) + + // inv box + .def("is_inv_box_empty", &CScriptGameObject::IsInvBoxEmpty) + .def("inv_box_closed", &CScriptGameObject::inv_box_closed) + .def("inv_box_closed_status", &CScriptGameObject::inv_box_closed_status) + .def("inv_box_can_take", &CScriptGameObject::inv_box_can_take) + .def("inv_box_can_take_status", &CScriptGameObject::inv_box_can_take_status) + + // monster jumper + .def("jump", &CScriptGameObject::jump) + + .def("make_object_visible_somewhen",&CScriptGameObject::make_object_visible_somewhen) + + .def("buy_condition", (void (CScriptGameObject::*)(CScriptIniFile*,LPCSTR))(&CScriptGameObject::buy_condition)) + .def("buy_condition", (void (CScriptGameObject::*)(float,float))(&CScriptGameObject::buy_condition)) + .def("show_condition", &CScriptGameObject::show_condition) + .def("sell_condition", (void (CScriptGameObject::*)(CScriptIniFile*,LPCSTR))(&CScriptGameObject::sell_condition)) + .def("sell_condition", (void (CScriptGameObject::*)(float,float))(&CScriptGameObject::sell_condition)) + .def("buy_supplies", &CScriptGameObject::buy_supplies) + .def("buy_item_condition_factor", &CScriptGameObject::buy_item_condition_factor) + + .def("sound_prefix", (LPCSTR (CScriptGameObject::*)() const)(&CScriptGameObject::sound_prefix)) + .def("sound_prefix", (void (CScriptGameObject::*)(LPCSTR))(&CScriptGameObject::sound_prefix)) + + .def("location_on_path", &CScriptGameObject::location_on_path) + .def("is_there_items_to_pickup", &CScriptGameObject::is_there_items_to_pickup) + + .def("wounded", (bool (CScriptGameObject::*)() const)(&CScriptGameObject::wounded)) + .def("wounded", (void (CScriptGameObject::*)(bool))(&CScriptGameObject::wounded)) + + .def("iterate_inventory", &CScriptGameObject::IterateInventory) + .def("iterate_inventory_box", &CScriptGameObject::IterateInventoryBox) + .def("mark_item_dropped", &CScriptGameObject::MarkItemDropped) + .def("marked_dropped", &CScriptGameObject::MarkedDropped) + .def("unload_magazine", &CScriptGameObject::UnloadMagazine) + + .def("sight_params", &CScriptGameObject::sight_params) + + .def("movement_enabled", &CScriptGameObject::enable_movement) + .def("movement_enabled", &CScriptGameObject::movement_enabled) + + .def("critically_wounded", &CScriptGameObject::critically_wounded) + .def("get_campfire", &CScriptGameObject::get_campfire) + .def("get_artefact", &CScriptGameObject::get_artefact) + .def("get_physics_object", &CScriptGameObject::get_physics_object) + .def("aim_time", (void (CScriptGameObject::*) (CScriptGameObject*, u32))&CScriptGameObject::aim_time) + .def("aim_time", (u32 (CScriptGameObject::*) (CScriptGameObject*))&CScriptGameObject::aim_time) + + .def("special_danger_move", (void (CScriptGameObject::*) (bool))&CScriptGameObject::special_danger_move) + .def("special_danger_move", (bool (CScriptGameObject::*) ())&CScriptGameObject::special_danger_move) + + .def("sniper_update_rate", (void (CScriptGameObject::*) (bool))&CScriptGameObject::sniper_update_rate) + .def("sniper_update_rate", (bool (CScriptGameObject::*) () const)&CScriptGameObject::sniper_update_rate) + + .def("sniper_fire_mode", (void (CScriptGameObject::*) (bool))&CScriptGameObject::sniper_fire_mode) + .def("sniper_fire_mode", (bool (CScriptGameObject::*) () const)&CScriptGameObject::sniper_fire_mode) + + .def("aim_bone_id", (void (CScriptGameObject::*) (LPCSTR))&CScriptGameObject::aim_bone_id) + .def("aim_bone_id", (LPCSTR (CScriptGameObject::*) () const)&CScriptGameObject::aim_bone_id) + + .def("actor_look_at_point", &CScriptGameObject::ActorLookAtPoint) + .def("enable_level_changer", &CScriptGameObject::enable_level_changer) + .def("is_level_changer_enabled", &CScriptGameObject::is_level_changer_enabled) + + .def("set_level_changer_invitation",&CScriptGameObject::set_level_changer_invitation) + .def("start_particles", &CScriptGameObject::start_particles) + .def("stop_particles", &CScriptGameObject::stop_particles) + + //AVO: functions for object testing + .def("is_game_object", &CScriptGameObject::IsGameObject) + //.def("is_car", &CScriptGameObject::IsCar) + .def("is_helicopter", &CScriptGameObject::IsHeli) + //.def("is_holder", &CScriptGameObject::IsHolderCustom) + .def("is_entity_alive", &CScriptGameObject::IsEntityAlive) + .def("is_inventory_item", &CScriptGameObject::IsInventoryItem) + .def("is_inventory_owner", &CScriptGameObject::IsInventoryOwner) + .def("is_actor", &CScriptGameObject::IsActor) + .def("is_custom_monster", &CScriptGameObject::IsCustomMonster) + .def("is_weapon", &CScriptGameObject::IsWeapon) + .def("is_medkit", &CScriptGameObject::IsMedkit) + .def("is_eatable_item", &CScriptGameObject::IsEatableItem) + .def("is_antirad", &CScriptGameObject::IsAntirad) + .def("is_outfit", &CScriptGameObject::IsCustomOutfit) + .def("is_scope", &CScriptGameObject::IsScope) + .def("is_silencer", &CScriptGameObject::IsSilencer) + .def("is_grenade_launcher", &CScriptGameObject::IsGrenadeLauncher) + .def("is_weapon_magazined", &CScriptGameObject::IsWeaponMagazined) + .def("is_space_restrictor", &CScriptGameObject::IsSpaceRestrictor) + .def("is_stalker", &CScriptGameObject::IsStalker) + .def("is_anomaly", &CScriptGameObject::IsAnomaly) + .def("is_monster", &CScriptGameObject::IsMonster) + .def("is_explosive", &CScriptGameObject::IsExplosive) + .def("is_script_zone", &CScriptGameObject::IsScriptZone) + .def("is_projector", &CScriptGameObject::IsProjector) + .def("is_trader", &CScriptGameObject::IsTrader) + .def("is_hud_item", &CScriptGameObject::IsHudItem) + .def("is_food_item", &CScriptGameObject::IsFoodItem) + .def("is_artefact", &CScriptGameObject::IsArtefact) + .def("is_ammo", &CScriptGameObject::IsAmmo) + .def("is_missile", &CScriptGameObject::IsMissile) + .def("is_physics_shell_holder", &CScriptGameObject::IsPhysicsShellHolder) + .def("is_grenade", &CScriptGameObject::IsGrenade) + .def("is_bottle_item", &CScriptGameObject::IsBottleItem) + .def("is_torch", &CScriptGameObject::IsTorch) + .def("is_weapon_gl", &CScriptGameObject::IsWeaponGL) + .def("is_inventory_box", &CScriptGameObject::IsInventoryBox) + //end AVO + + + ;return (instance); } diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index 86fdad0c3aa..50c6b875f71 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -12,94 +12,239 @@ #include "ai_space.h" #include "object_factory.h" -CScriptIniFile::CScriptIniFile (IReader *F, LPCSTR path) : - inherited (F,path) +CScriptIniFile::CScriptIniFile(IReader *F, LPCSTR path) : +inherited(F, path) +{} + +CScriptIniFile::CScriptIniFile(LPCSTR szFileName, BOOL ReadOnly, BOOL bLoadAtStart, BOOL SaveAtEnd) : +inherited(update(szFileName), ReadOnly, bLoadAtStart, SaveAtEnd) +{} + +CScriptIniFile::~CScriptIniFile() +{} + +LPCSTR CScriptIniFile::update(LPCSTR file_name) +{ + string_path S1; + FS.update_path(S1, "$game_config$", file_name); + return (*shared_str(S1)); +} + +bool CScriptIniFile::line_exist(LPCSTR S, LPCSTR L) +{ + return (!!inherited::line_exist(S, L)); +} + +bool CScriptIniFile::section_exist(LPCSTR S) +{ + return (!!inherited::section_exist(S)); +} + +int CScriptIniFile::r_clsid(LPCSTR S, LPCSTR L) +{ + return (object_factory().script_clsid(inherited::r_clsid(S, L))); +} + +bool CScriptIniFile::r_bool(LPCSTR S, LPCSTR L) +{ + return (!!inherited::r_bool(S, L)); +} + +int CScriptIniFile::r_token(LPCSTR S, LPCSTR L, const CScriptTokenList &token_list) +{ + return (inherited::r_token(S, L, &*token_list.tokens().begin())); +} + +LPCSTR CScriptIniFile::r_string_wb(LPCSTR S, LPCSTR L) +{ + return (*inherited::r_string_wb(S, L)); +} + +u32 CScriptIniFile::line_count(LPCSTR S) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + return (inherited::line_count(S)); +} + +LPCSTR CScriptIniFile::r_string(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return (inherited::r_string(S, L)); +} + +u32 CScriptIniFile::r_u32(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return (inherited::r_u32(S, L)); +} + +int CScriptIniFile::r_s32(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return (inherited::r_s32(S, L)); +} + +float CScriptIniFile::r_float(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return (inherited::r_float(S, L)); +} + +Fvector CScriptIniFile::r_fvector3(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return (inherited::r_fvector3(S, L)); +} + +//AVO: additional methods to allow writing to ini files +void CScriptIniFile::w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment) { + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_bool(S, L, V, comment); } -CScriptIniFile::CScriptIniFile (LPCSTR szFileName, BOOL ReadOnly, BOOL bLoadAtStart, BOOL SaveAtEnd) : - inherited (update(szFileName), ReadOnly, bLoadAtStart, SaveAtEnd) +void CScriptIniFile::w_color(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment) { + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_color(S, L, V, comment); } -CScriptIniFile::~CScriptIniFile () +void CScriptIniFile::w_fcolor(LPCSTR S, LPCSTR L, const Fcolor& V, LPCSTR comment) { + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_fcolor(S, L, V, comment); } -LPCSTR CScriptIniFile::update (LPCSTR file_name) +void CScriptIniFile::w_float(LPCSTR S, LPCSTR L, float V, LPCSTR comment) { - string_path S1; - FS.update_path (S1,"$game_config$",file_name); - return (*shared_str(S1)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_float(S, L, V, comment); } -bool CScriptIniFile::line_exist (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_fvector2(LPCSTR S, LPCSTR L, const Fvector2& V, LPCSTR comment) { - return (!!inherited::line_exist(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_fvector2(S, L, V, comment); } -bool CScriptIniFile::section_exist (LPCSTR S) +void CScriptIniFile::w_fvector3(LPCSTR S, LPCSTR L, const Fvector3& V, LPCSTR comment) { - return (!!inherited::section_exist(S)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_fvector3(S, L, V, comment); } -int CScriptIniFile::r_clsid (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_fvector4(LPCSTR S, LPCSTR L, const Fvector4& V, LPCSTR comment) { - return (object_factory().script_clsid(inherited::r_clsid(S,L))); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_fvector4(S, L, V, comment); } -bool CScriptIniFile::r_bool (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_s16(LPCSTR S, LPCSTR L, s16 V, LPCSTR comment) { - return (!!inherited::r_bool(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_s16(S, L, V, comment); } -int CScriptIniFile::r_token (LPCSTR S, LPCSTR L, const CScriptTokenList &token_list) +void CScriptIniFile::w_s32(LPCSTR S, LPCSTR L, s32 V, LPCSTR comment) { - return (inherited::r_token(S,L,&*token_list.tokens().begin())); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_s32(S, L, V, comment); } -LPCSTR CScriptIniFile::r_string_wb (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_s64(LPCSTR S, LPCSTR L, s64 V, LPCSTR comment) { - return (*inherited::r_string_wb(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_s64(S, L, V, comment); } -u32 CScriptIniFile::line_count (LPCSTR S) +void CScriptIniFile::w_s8(LPCSTR S, LPCSTR L, s8 V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - return (inherited::line_count(S)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_s8(S, L, V, comment); } -LPCSTR CScriptIniFile::r_string (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_string(LPCSTR S, LPCSTR L, LPCSTR V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - THROW3 (inherited::line_exist(S,L),"Cannot find line",L); - return (inherited::r_string(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_string(S, L, V, comment); } -u32 CScriptIniFile::r_u32 (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_u16(LPCSTR S, LPCSTR L, u16 V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - THROW3 (inherited::line_exist(S,L),"Cannot find line",L); - return (inherited::r_u32(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_u16(S, L, V, comment); } -int CScriptIniFile::r_s32 (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_u32(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - THROW3 (inherited::line_exist(S,L),"Cannot find line",L); - return (inherited::r_s32(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_u32(S, L, V, comment); } -float CScriptIniFile::r_float (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_u64(LPCSTR S, LPCSTR L, u64 V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - THROW3 (inherited::line_exist(S,L),"Cannot find line",L); - return (inherited::r_float(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_u64(S, L, V, comment); } -Fvector CScriptIniFile::r_fvector3 (LPCSTR S, LPCSTR L) +void CScriptIniFile::w_u8(LPCSTR S, LPCSTR L, u8 V, LPCSTR comment) { - THROW3 (inherited::section_exist(S),"Cannot find section",S); - THROW3 (inherited::line_exist(S,L),"Cannot find line",L); - return (inherited::r_fvector3(S,L)); + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::w_u8(S, L, V, comment); } + +bool CScriptIniFile::save_as(LPCSTR new_fname) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return(inherited::save_as(new_fname)); +} + +void CScriptIniFile::save_at_end(BOOL b) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::save_at_end(b); +} + +void CScriptIniFile::remove_line(LPCSTR S, LPCSTR L) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::remove_line(S, L); +} + +void CScriptIniFile::set_override_names(BOOL b) +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + inherited::set_override_names(b); +} + +u32 CScriptIniFile::section_count() +{ + THROW3(inherited::section_exist(S), "Cannot find section", S); + THROW3(inherited::line_exist(S, L), "Cannot find line", L); + return(inherited::section_count()); +} \ No newline at end of file diff --git a/src/xrServerEntities/script_ini_file.h b/src/xrServerEntities/script_ini_file.h index 15255775de2..d9e747a70fa 100644 --- a/src/xrServerEntities/script_ini_file.h +++ b/src/xrServerEntities/script_ini_file.h @@ -32,6 +32,29 @@ class CScriptIniFile : public CInifile { int r_s32 (LPCSTR S, LPCSTR L); float r_float (LPCSTR S, LPCSTR L); Fvector r_fvector3 (LPCSTR S, LPCSTR L); + //AVO: additional methods to allow writing to ini files + void w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment /* = 0 */); + void w_color(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment /* = 0 */); + void w_fcolor(LPCSTR S, LPCSTR L, const Fcolor& V, LPCSTR comment /* = 0 */); + void w_float(LPCSTR S, LPCSTR L, float V, LPCSTR comment /* = 0 */); + void w_fvector2(LPCSTR S, LPCSTR L, const Fvector2& V, LPCSTR comment /* = 0 */); + void w_fvector3(LPCSTR S, LPCSTR L, const Fvector3& V, LPCSTR comment /* = 0 */); + void w_fvector4(LPCSTR S, LPCSTR L, const Fvector4& V, LPCSTR comment /* = 0 */); + void w_s16(LPCSTR S, LPCSTR L, s16 V, LPCSTR comment /* = 0 */); + void w_s32(LPCSTR S, LPCSTR L, s32 V, LPCSTR comment /* = 0 */); + void w_s64(LPCSTR S, LPCSTR L, s64 V, LPCSTR comment /* = 0 */); + void w_s8(LPCSTR S, LPCSTR L, s8 V, LPCSTR comment /* = 0 */); + void w_string(LPCSTR S, LPCSTR L, LPCSTR V, LPCSTR comment /* = 0 */); + void w_u16(LPCSTR S, LPCSTR L, u16 V, LPCSTR comment /* = 0 */); + void w_u32(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment /* = 0 */); + void w_u64(LPCSTR S, LPCSTR L, u64 V, LPCSTR comment /* = 0 */); + void w_u8(LPCSTR S, LPCSTR L, u8 V, LPCSTR comment /* = 0 */); + bool save_as(LPCSTR new_fname /* = 0 */); + void save_at_end(BOOL b); + void remove_line(LPCSTR S, LPCSTR L); + void set_override_names(BOOL b); + u32 section_count(); + DECLARE_SCRIPT_REGISTER_FUNCTION }; add_to_type_list(CScriptIniFile) diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index d5b239c02fd..c432e5b97e3 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -76,14 +76,16 @@ void CScriptIniFile::script_register(lua_State *L) module(L) [ class_("ini_file") - .def( constructor()) + .def(constructor()) //Alundaio: Extend script ini file + .def(constructor()) .def("w_bool",&CScriptIniFile::w_bool) .def("w_color", &CScriptIniFile::w_color) .def("w_fcolor", &CScriptIniFile::w_fcolor) .def("w_float", &CScriptIniFile::w_float) - .def("w_vector2", &CScriptIniFile::w_fvector2) - .def("w_vector", &CScriptIniFile::w_fvector3) + .def("w_fvector2", &CScriptIniFile::w_fvector2) + .def("w_fvector3", &CScriptIniFile::w_fvector3) + .def("w_fvector4", &CScriptIniFile::w_fvector4) .def("w_s16", &CScriptIniFile::w_s16) .def("w_s32", &CScriptIniFile::w_s32) .def("w_s64", &CScriptIniFile::w_s64) @@ -93,9 +95,11 @@ void CScriptIniFile::script_register(lua_State *L) .def("w_u32", &CScriptIniFile::w_u32) .def("w_u64", &CScriptIniFile::w_u64) .def("w_u8", &CScriptIniFile::w_u8) - .def("save_as", (bool (CScriptIniFile::*)(LPCSTR))(&CScriptIniFile::save_as)) + .def("save_as", &CScriptIniFile::save_as) .def("save_at_end", &CScriptIniFile::save_at_end) .def("remove_line", &CScriptIniFile::remove_line) + .def("set_override_names", &CScriptIniFile::set_override_names) + .def("section_count", &CScriptIniFile::section_count) //Alundaio: END .def("section_exist", &CScriptIniFile::section_exist ) .def("line_exist", &CScriptIniFile::line_exist ) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index f0471fd7f07..f16488846c1 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -18,24 +18,24 @@ #endif // #ifndef DEBUG LPCSTR file_header_old = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -%s this %s \ -setmetatable(this, {__index = _G}) \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + %s this %s \ + setmetatable(this, {__index = _G}) \ + setfenv(1, this) \ + "; LPCSTR file_header_new = "\ -local function script_name() \ -return \"%s\" \ -end \ -local this = {} \ -this._G = _G \ -%s this %s \ -setfenv(1, this) \ - "; + local function script_name() \ + return \"%s\" \ + end \ + local this = {} \ + this._G = _G \ + %s this %s \ + setfenv(1, this) \ + "; LPCSTR file_header = 0; @@ -66,17 +66,17 @@ LPCSTR file_header = 0; #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { - (void)ud; - (void)osize; - if (nsize == 0) { - xr_free (ptr); - return NULL; - } - else + (void)ud; + (void)osize; + if (nsize == 0) { + xr_free (ptr); + return NULL; + } + else #ifdef DEBUG_MEMORY_NAME - return Memory.mem_realloc (ptr, nsize, "LUA"); + return Memory.mem_realloc (ptr, nsize, "LUA"); #else // DEBUG_MEMORY_MANAGER - return Memory.mem_realloc (ptr, nsize); + return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } #else // USE_DL_ALLOCATOR @@ -88,769 +88,826 @@ static const u32 s_arena_size = 96*1024*1024; static char s_fake_array[s_arena_size]; static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); #else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator( 0, 0, "lua" ); +static doug_lea_allocator s_allocator(0, 0, "lua"); #endif // #ifdef USE_ARENA_ALLOCATOR -static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { +static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) +{ #ifndef USE_MEMORY_MONITOR - (void)ud; - (void)osize; - if ( !nsize ) { - s_allocator.free_impl (ptr); - return 0; - } - - if ( !ptr ) - return s_allocator.malloc_impl((u32)nsize); - - return s_allocator.realloc_impl(ptr, (u32)nsize); + (void)ud; + (void) osize; + if (!nsize) + { + s_allocator.free_impl(ptr); + return 0; + } + + if (!ptr) + return s_allocator.malloc_impl((u32) nsize); + + return s_allocator.realloc_impl(ptr, (u32) nsize); #else // #ifndef USE_MEMORY_MONITOR - if ( !nsize ) { - memory_monitor::monitor_free(ptr); - s_allocator.free_impl (ptr); - return NULL; - } - - if ( !ptr ) { - void* const result = s_allocator.malloc_impl((u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; - } - - memory_monitor::monitor_free (ptr); - void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); - memory_monitor::monitor_alloc (result,nsize,"LUA"); - return result; + if ( !nsize ) { + memory_monitor::monitor_free(ptr); + s_allocator.free_impl (ptr); + return NULL; + } + + if ( !ptr ) { + void* const result = s_allocator.malloc_impl((u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; + } + + memory_monitor::monitor_free (ptr); + void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); + memory_monitor::monitor_alloc (result,nsize,"LUA"); + return result; #endif // #ifndef USE_MEMORY_MONITOR } -u32 game_lua_memory_usage () +u32 game_lua_memory_usage() { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } #endif // USE_DL_ALLOCATOR -static LPVOID __cdecl luabind_allocator ( - luabind::memory_allocation_function_parameter const, - void const * const pointer, - size_t const size - ) +static LPVOID __cdecl luabind_allocator( + luabind::memory_allocation_function_parameter const, + void const * const pointer, + size_t const size + ) { - if (!size) { - LPVOID non_const_pointer = const_cast(pointer); - xr_free (non_const_pointer); - return ( 0 ); - } - - if (!pointer) { + if (!size) + { + LPVOID non_const_pointer = const_cast(pointer); + xr_free(non_const_pointer); + return (0); + } + + if (!pointer) + { #ifdef DEBUG - return ( Memory.mem_alloc(size, "luabind") ); + return ( Memory.mem_alloc(size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_alloc(size) ); + return (Memory.mem_alloc(size)); #endif // #ifdef DEBUG - } + } - LPVOID non_const_pointer = const_cast(pointer); + LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); + return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); #else // #ifdef DEBUG - return ( Memory.mem_realloc(non_const_pointer, size) ); + return (Memory.mem_realloc(non_const_pointer, size)); #endif // #ifdef DEBUG } -void setup_luabind_allocator () +void setup_luabind_allocator() { - luabind::allocator = &luabind_allocator; - luabind::allocator_parameter = 0; + luabind::allocator = &luabind_allocator; + luabind::allocator_parameter = 0; } /* ---- start of LuaJIT extensions */ -static void l_message (lua_State* state, const char *msg) { - Msg ("! [LUA_JIT] %s", msg); +static void l_message(lua_State* state, const char *msg) +{ + Msg("! [LUA_JIT] %s", msg); } -static int report (lua_State *L, int status) { - if (status && !lua_isnil(L, -1)) { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(L, msg); - lua_pop(L, 1); - } - return status; +static int report(lua_State *L, int status) +{ + if (status && !lua_isnil(L, -1)) + { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(L, msg); + lua_pop(L, 1); + } + return status; } -static int loadjitmodule (lua_State *L, const char *notfound) { - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) { - l_message(L, notfound); - return 1; - } - else - return report(L, 1); - } - lua_getfield(L, -1, "start"); - lua_remove(L, -2); /* drop module table */ - return 0; +static int loadjitmodule(lua_State *L, const char *notfound) +{ + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) + { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) + { + l_message(L, notfound); + return 1; + } + else + return report(L, 1); + } + lua_getfield(L, -1, "start"); + lua_remove(L, -2); /* drop module table */ + return 0; } /* JIT engine control command: try jit library first or load add-on module */ -static int dojitcmd (lua_State *L, const char *cmd) { - const char *val = strchr(cmd, '='); - lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); - lua_getglobal(L, "jit"); /* get jit.* table */ - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* lookup library function */ - if (!lua_isfunction(L, -1)) { - lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ - if (loadjitmodule(L, "unknown luaJIT command")) - return 1; - } - else { - lua_remove(L, -2); /* drop jit.* table */ - } - lua_remove(L, -2); /* drop module name */ - if (val) lua_pushstring(L, val+1); - return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); +static int dojitcmd(lua_State *L, const char *cmd) +{ + const char *val = strchr(cmd, '='); + lua_pushlstring(L, cmd, val ? val - cmd : xr_strlen(cmd)); + lua_getglobal(L, "jit"); /* get jit.* table */ + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* lookup library function */ + if (!lua_isfunction(L, -1)) + { + lua_pop(L, 2); /* drop non-function and jit.* table, keep module name */ + if (loadjitmodule(L, "unknown luaJIT command")) + return 1; + } + else + { + lua_remove(L, -2); /* drop jit.* table */ + } + lua_remove(L, -2); /* drop module name */ + if (val) lua_pushstring(L, val + 1); + return report(L, lua_pcall(L, val ? 1 : 0, 0, 0)); } void jit_command(lua_State* state, LPCSTR command) { - dojitcmd(state, command); + dojitcmd(state, command); } #ifndef DEBUG /* start optimizer */ -static int dojitopt (lua_State *L, const char *opt) { - lua_pushliteral(L, "opt"); - if (loadjitmodule(L, "LuaJIT optimizer module not installed")) - return 1; - lua_remove(L, -2); /* drop module name */ - if (*opt) lua_pushstring(L, opt); - return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); +static int dojitopt(lua_State *L, const char *opt) +{ + lua_pushliteral(L, "opt"); + if (loadjitmodule(L, "LuaJIT optimizer module not installed")) + return 1; + lua_remove(L, -2); /* drop module name */ + if (*opt) lua_pushstring(L, opt); + return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ #endif // #ifndef DEBUG -CScriptStorage::CScriptStorage () +CScriptStorage::CScriptStorage() { - m_current_thread = 0; + m_current_thread = 0; #ifdef DEBUG - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // DEBUG - - m_virtual_machine = 0; + + m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER - STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); + STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); # endif // #ifndef USE_DEBUGGER #endif // #ifdef USE_LUA_STUDIO } -CScriptStorage::~CScriptStorage () +CScriptStorage::~CScriptStorage() { - if (m_virtual_machine) - lua_close (m_virtual_machine); + if (m_virtual_machine) + lua_close(m_virtual_machine); } #ifndef DEBUG -static void put_function (lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) { - lua_getglobal (state, "package"); - lua_pushstring (state, "preload"); - lua_gettable (state, -2); + lua_getglobal(state, "package"); + lua_pushstring(state, "preload"); + lua_gettable(state, -2); - lua_pushstring (state, package_id); - luaL_loadbuffer (state, (char*)buffer, buffer_size, package_id ); - lua_settable (state, -3); + lua_pushstring(state, package_id); + luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); + lua_settable(state, -3); } #endif // #ifndef DEBUG -void CScriptStorage::reinit () +void CScriptStorage::reinit() { - if (m_virtual_machine) - lua_close (m_virtual_machine); - - m_virtual_machine = lua_newstate(lua_alloc, NULL); - - if (!m_virtual_machine) { - Msg ("! ERROR : Cannot initialize script virtual machine!"); - return; - } - - // initialize lua standard library functions - struct luajit { - static void open_lib (lua_State *L, pcstr module_name, lua_CFunction function) - { - lua_pushcfunction (L, function); - lua_pushstring (L, module_name); - lua_call (L, 1, 0); - } - }; // struct lua; - - luajit::open_lib (lua(), "", luaopen_base); - luajit::open_lib (lua(), LUA_LOADLIBNAME, luaopen_package); - luajit::open_lib (lua(), LUA_TABLIBNAME, luaopen_table); - luajit::open_lib (lua(), LUA_IOLIBNAME, luaopen_io); - luajit::open_lib (lua(), LUA_OSLIBNAME, luaopen_os); - luajit::open_lib (lua(), LUA_MATHLIBNAME, luaopen_math); - luajit::open_lib (lua(), LUA_STRLIBNAME, luaopen_string); - -//#ifdef DEBUG - //if (strstr(Core.Params, "-dbg")) - //{ + if (m_virtual_machine) + lua_close(m_virtual_machine); + + m_virtual_machine = lua_newstate(lua_alloc, NULL); + + if (!m_virtual_machine) + { + Msg("! ERROR : Cannot initialize script virtual machine!"); + return; + } + + // initialize lua standard library functions + struct luajit + { + static void open_lib(lua_State *L, pcstr module_name, lua_CFunction function) + { + lua_pushcfunction(L, function); + lua_pushstring(L, module_name); + lua_call(L, 1, 0); + } + }; // struct lua; + + luajit::open_lib(lua(), "", luaopen_base); + luajit::open_lib(lua(), LUA_LOADLIBNAME, luaopen_package); + luajit::open_lib(lua(), LUA_TABLIBNAME, luaopen_table); + luajit::open_lib(lua(), LUA_IOLIBNAME, luaopen_io); + luajit::open_lib(lua(), LUA_OSLIBNAME, luaopen_os); + luajit::open_lib(lua(), LUA_MATHLIBNAME, luaopen_math); + luajit::open_lib(lua(), LUA_STRLIBNAME, luaopen_string); + +#ifdef DEBUG + luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); +#else + if (strstr(Core.Params, "-dbg")) luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); - //} -//#endif // #ifdef DEBUG +#endif // #ifdef DEBUG - if (!strstr(Core.Params,"-nojit")) { - luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); + if (!strstr(Core.Params, "-nojit")) + { + luajit::open_lib(lua(), LUA_JITLIBNAME, luaopen_jit); #ifndef DEBUG - put_function (lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); - put_function (lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); - dojitopt (lua(), "2"); + put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); + put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); + dojitopt(lua(), "2"); #endif // #ifndef DEBUG - } + } - if (strstr(Core.Params,"-_g")) - file_header = file_header_new; - else - file_header = file_header_old; + if (strstr(Core.Params, "-_g")) + file_header = file_header_new; + else + file_header = file_header_old; } -int CScriptStorage::vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) +int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE -# ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); -# endif +#ifdef DEBUG + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +#endif #endif #ifndef PRINT_CALL_STACK - return (0); + return (0); #else // #ifdef PRINT_CALL_STACK -# ifndef NO_XRGAME_SCRIPT_ENGINE - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); -# endif // #ifndef NO_XRGAME_SCRIPT_ENGINE - - LPCSTR S = "", SS = ""; - LPSTR S1; - string4096 S2; - switch (tLuaMessageType) { - case ScriptStorage::eLuaMessageTypeInfo : { - S = "* [LUA] "; - SS = "[INFO] "; - break; - } - case ScriptStorage::eLuaMessageTypeError : { - S = "! [LUA] "; - SS = "[ERROR] "; - break; - } - case ScriptStorage::eLuaMessageTypeMessage : { - S = "[LUA] "; - SS = "[MESSAGE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCall : { - S = "[LUA][HOOK_CALL] "; - SS = "[CALL] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookReturn : { - S = "[LUA][HOOK_RETURN] "; - SS = "[RETURN] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookLine : { - S = "[LUA][HOOK_LINE] "; - SS = "[LINE] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookCount : { - S = "[LUA][HOOK_COUNT] "; - SS = "[COUNT] "; - break; - } - case ScriptStorage::eLuaMessageTypeHookTailReturn : { - S = "[LUA][HOOK_TAIL_RETURN] "; - SS = "[TAIL_RETURN] "; - break; - } - default : NODEFAULT; - } - - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); - int l_iResult = vsprintf(S1,caFormat,marker); - Msg ("%s",S2); - - xr_strcpy (S2,SS); - S1 = S2 + xr_strlen(SS); - vsprintf(S1,caFormat,marker); - xr_strcat (S2,"\r\n"); +#ifndef NO_XRGAME_SCRIPT_ENGINE + //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) + if (!strstr(Core.Params, "-dbg")) + return(0); + +#ifdef LUA_DEBUG_PRINT +#ifdef DEBUG + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +#endif + //and AVO +#else + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +#endif +#endif // #ifndef NO_XRGAME_SCRIPT_ENGINE + + LPCSTR S = "", SS = ""; + LPSTR S1; + string4096 S2; + switch (tLuaMessageType) + { + case ScriptStorage::eLuaMessageTypeInfo: { + S = "* [LUA] "; + SS = "[INFO] "; + break; + } + case ScriptStorage::eLuaMessageTypeError: { + S = "! [LUA] "; + SS = "[ERROR] "; + break; + } + case ScriptStorage::eLuaMessageTypeMessage: { + S = "[LUA] "; + SS = "[MESSAGE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCall: { + S = "[LUA][HOOK_CALL] "; + SS = "[CALL] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookReturn: { + S = "[LUA][HOOK_RETURN] "; + SS = "[RETURN] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookLine: { + S = "[LUA][HOOK_LINE] "; + SS = "[LINE] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookCount: { + S = "[LUA][HOOK_COUNT] "; + SS = "[COUNT] "; + break; + } + case ScriptStorage::eLuaMessageTypeHookTailReturn: { + S = "[LUA][HOOK_TAIL_RETURN] "; + SS = "[TAIL_RETURN] "; + break; + } + default: NODEFAULT; + } + + xr_strcpy(S2, S); + S1 = S2 + xr_strlen(S); + int l_iResult = vsprintf(S1, caFormat, marker); + Msg("%s", S2); + + xr_strcpy(S2, SS); + S1 = S2 + xr_strlen(SS); + vsprintf(S1, caFormat, marker); + xr_strcat(S2, "\r\n"); #ifdef DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); # endif // #ifdef ENGINE_BUILD #endif // #ifdef DEBUG - return (l_iResult); + return (l_iResult); #endif // #ifdef PRINT_CALL_STACK } #ifdef PRINT_CALL_STACK -void CScriptStorage::print_stack () +void CScriptStorage::print_stack() { #ifdef DEBUG - if (!m_stack_is_ready) - return; + if (!m_stack_is_ready) + return; - m_stack_is_ready = false; + m_stack_is_ready = false; #endif // #ifdef DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; - for (int i=0; lua_getstack(L,i,&l_tDebugInfo);++i ) { - lua_getinfo (L,"nSlu",&l_tDebugInfo); - if (!l_tDebugInfo.name) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,""); - else - if (!xr_strcmp(l_tDebugInfo.what,"C")) - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [C ] %s",i,l_tDebugInfo.name); - else - script_log (ScriptStorage::eLuaMessageTypeError,"%2d : [%s] %s(%d) : %s",i,l_tDebugInfo.what,l_tDebugInfo.short_src,l_tDebugInfo.currentline,l_tDebugInfo.name); - } + lua_State *L = lua(); + lua_Debug l_tDebugInfo; + for (int i = 0; lua_getstack(L, i, &l_tDebugInfo); ++i) + { + lua_getinfo(L, "nSlu", &l_tDebugInfo); + if (!l_tDebugInfo.name) + script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); + else + if (!xr_strcmp(l_tDebugInfo.what, "C")) + script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); + else + script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); + } } #endif // #ifdef PRINT_CALL_STACK -int __cdecl CScriptStorage::script_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { - va_list marker; - va_start (marker,caFormat); - int result = vscript_log(tLuaMessageType,caFormat,marker); - va_end (marker); + va_list marker; + va_start(marker, caFormat); + int result = vscript_log(tLuaMessageType, caFormat, marker); + va_end(marker); #ifdef PRINT_CALL_STACK # ifndef ENGINE_BUILD - static bool reenterability = false; - if (!reenterability) { - reenterability = true; - if (eLuaMessageTypeError == tLuaMessageType) - ai().script_engine().print_stack (); - reenterability = false; - } + static bool reenterability = false; + if (!reenterability) + { + reenterability = true; + if (eLuaMessageTypeError == tLuaMessageType) + ai().script_engine().print_stack(); + reenterability = false; + } # endif // #ifndef ENGINE_BUILD #endif // #ifdef PRINT_CALL_STACK - return (result); + return (result); } bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size) { - *b = 0; - *c = 0; - LPSTR S2; - STRCONCAT (S2,caNamespaceName); - LPSTR S = S2; - for (int i=0;;++i) { - if (!xr_strlen(S)) { - script_log (ScriptStorage::eLuaMessageTypeError,"the namespace name %s is incorrect!",caNamespaceName); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - - if (i) - xr_strcat (b,b_size,"{"); - xr_strcat (b,b_size,S); - xr_strcat (b,b_size,"="); - if (i) - xr_strcat (c,c_size,"}"); - if (S1) - S = ++S1; - else - break; - } - - return (true); + *b = 0; + *c = 0; + LPSTR S2; + STRCONCAT(S2, caNamespaceName); + LPSTR S = S2; + for (int i = 0;; ++i) + { + if (!xr_strlen(S)) + { + script_log(ScriptStorage::eLuaMessageTypeError, "the namespace name %s is incorrect!", caNamespaceName); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + + if (i) + xr_strcat(b, b_size, "{"); + xr_strcat(b, b_size, S); + xr_strcat(b, b_size, "="); + if (i) + xr_strcat(c, c_size, "}"); + if (S1) + S = ++S1; + else + break; + } + + return (true); } -bool CScriptStorage::load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int l_iErrorCode; - if (caNameSpaceName && xr_strcmp("_G",caNameSpaceName)) { - string512 insert, a, b; - - LPCSTR header = file_header; - - if (!parse_namespace(caNameSpaceName,a,sizeof(a),b,sizeof(b))) - return (false); - - xr_sprintf (insert,header,caNameSpaceName,a,b); - u32 str_len = xr_strlen(insert); - u32 const total_size = str_len + tSize; - LPSTR script = 0; - bool dynamic_allocation = false; - - __try { - if (total_size < 768*1024) - script = (LPSTR)_alloca(total_size); - else { + int l_iErrorCode; + if (caNameSpaceName && xr_strcmp("_G", caNameSpaceName)) + { + string512 insert, a, b; + + LPCSTR header = file_header; + + if (!parse_namespace(caNameSpaceName, a, sizeof(a), b, sizeof(b))) + return (false); + + xr_sprintf(insert, header, caNameSpaceName, a, b); + u32 str_len = xr_strlen(insert); + u32 const total_size = str_len + tSize; + LPSTR script = 0; + bool dynamic_allocation = false; + + __try + { + if (total_size < 768 * 1024) + script = (LPSTR) _alloca(total_size); + else + { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); + script = (LPSTR) Memory.mem_alloc(total_size); #endif //#ifdef DEBUG - dynamic_allocation = true; - } - } - __except(GetExceptionCode() == STATUS_STACK_OVERFLOW) - { - int errcode = _resetstkoflw(); - R_ASSERT2 (errcode, "Could not reset the stack after \"Stack overflow\" exception!"); + dynamic_allocation = true; + } + } + __except (GetExceptionCode() == STATUS_STACK_OVERFLOW) + { + int errcode = _resetstkoflw(); + R_ASSERT2(errcode, "Could not reset the stack after \"Stack overflow\" exception!"); #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file (after exception)"); #else //#ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG - dynamic_allocation = true; - }; - - xr_strcpy (script, total_size, insert); - CopyMemory (script + str_len,caBuffer,u32(tSize)); - - l_iErrorCode = luaL_loadbuffer(L,script,tSize + str_len,caScriptName); - - if ( dynamic_allocation ) - xr_free (script); - } - else { -// try - { - l_iErrorCode= luaL_loadbuffer(L,caBuffer,tSize,caScriptName); - } -// catch(...) { -// l_iErrorCode= LUA_ERRSYNTAX; -// } - } - - if (l_iErrorCode) { + script = (LPSTR) Memory.mem_alloc(total_size); +#endif //#ifdef DEBUG + dynamic_allocation = true; + }; + + xr_strcpy(script, total_size, insert); + CopyMemory(script + str_len, caBuffer, u32(tSize)); + + l_iErrorCode = luaL_loadbuffer(L, script, tSize + str_len, caScriptName); + + if (dynamic_allocation) + xr_free(script); + } + else + { + // try + { + l_iErrorCode = luaL_loadbuffer(L, caBuffer, tSize, caScriptName); + } + // catch(...) { + // l_iErrorCode= LUA_ERRSYNTAX; + // } + } + + if (l_iErrorCode) + { #ifdef DEBUG - print_output (L,caScriptName,l_iErrorCode); + print_output (L,caScriptName,l_iErrorCode); #endif - on_error (L); - return (false); - } - return (true); + on_error(L); + return (false); + } + return (true); } -bool CScriptStorage::do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName) +bool CScriptStorage::do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName) { - int start = lua_gettop(lua()); - string_path l_caLuaFileName; - IReader *l_tpFileReader = FS.r_open(caScriptName); - if (!l_tpFileReader) { - script_log (eLuaMessageTypeError,"Cannot open file \"%s\"",caScriptName); - return (false); - } - strconcat (sizeof(l_caLuaFileName),l_caLuaFileName,"@",caScriptName); - - if (!load_buffer(lua(),static_cast(l_tpFileReader->pointer()),(size_t)l_tpFileReader->length(),l_caLuaFileName,caNameSpaceName)) { -// VERIFY (lua_gettop(lua()) >= 4); -// lua_pop (lua(),4); -// VERIFY (lua_gettop(lua()) == start - 3); - lua_settop (lua(),start); - FS.r_close (l_tpFileReader); - return (false); - } - FS.r_close (l_tpFileReader); - - int errFuncId = -1; + int start = lua_gettop(lua()); + string_path l_caLuaFileName; + IReader *l_tpFileReader = FS.r_open(caScriptName); + if (!l_tpFileReader) + { + script_log(eLuaMessageTypeError, "Cannot open file \"%s\"", caScriptName); + return (false); + } + strconcat(sizeof(l_caLuaFileName), l_caLuaFileName, "@", caScriptName); + + if (!load_buffer(lua(), static_cast(l_tpFileReader->pointer()), (size_t) l_tpFileReader->length(), l_caLuaFileName, caNameSpaceName)) + { + // VERIFY (lua_gettop(lua()) >= 4); + // lua_pop (lua(),4); + // VERIFY (lua_gettop(lua()) == start - 3); + lua_settop(lua(), start); + FS.r_close(l_tpFileReader); + return (false); + } + FS.r_close(l_tpFileReader); + + int errFuncId = -1; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); + if( ai().script_engine().debugger() ) + errFuncId = ai().script_engine().debugger()->PrepareLua(lua()); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (0) //. - { - for (int i=0; lua_type(lua(), -i-1); i++) - Msg ("%2d : %s",-i-1,lua_typename(lua(), lua_type(lua(), -i-1))); - } + if (0) //. + { + for (int i = 0; lua_type(lua(), -i - 1); i++) + Msg("%2d : %s", -i - 1, lua_typename(lua(), lua_type(lua(), -i - 1))); + } - // because that's the first and the only call of the main chunk - there is no point to compile it -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles - int l_iErrorCode = lua_pcall(lua(),0,0,(-1==errFuncId)?0:errFuncId); // new_Andy -// luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles + // because that's the first and the only call of the main chunk - there is no point to compile it + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_OFF); // Oles + int l_iErrorCode = lua_pcall(lua(), 0, 0, (-1 == errFuncId) ? 0 : errFuncId); // new_Andy + // luaJIT_setmode (lua(),0,LUAJIT_MODE_ENGINE|LUAJIT_MODE_ON); // Oles #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( ai().script_engine().debugger() ) - ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); + if( ai().script_engine().debugger() ) + ai().script_engine().debugger()->UnPrepareLua(lua(),errFuncId); # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - if (l_iErrorCode) { + if (l_iErrorCode) + { #ifdef DEBUG - print_output(lua(),caScriptName,l_iErrorCode); + print_output(lua(),caScriptName,l_iErrorCode); #endif - on_error (lua()); - lua_settop (lua(),start); - return (false); - } + on_error(lua()); + lua_settop(lua(), start); + return (false); + } - return (true); + return (true); } bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName) { - int start = lua_gettop(lua()); - if (!do_file(caScriptName,caNamespaceName)) { - lua_settop (lua(),start); - return (false); - } - VERIFY (lua_gettop(lua()) == start); - return (true); + int start = lua_gettop(lua()); + if (!do_file(caScriptName, caNamespaceName)) + { + lua_settop(lua(), start); + return (false); + } + VERIFY(lua_gettop(lua()) == start); + return (true); } bool CScriptStorage::namespace_loaded(LPCSTR N, bool remove_from_stack) { - int start = lua_gettop(lua()); - lua_pushstring (lua(),"_G"); - lua_rawget (lua(),LUA_GLOBALSINDEX); - string256 S2; - xr_strcpy (S2,N); - LPSTR S = S2; - for (;;) { - if (!xr_strlen(S)) { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (start == lua_gettop(lua())); - return (false); - } - LPSTR S1 = strchr(S,'.'); - if (S1) - *S1 = 0; - lua_pushstring (lua(),S); - lua_rawget (lua(),-2); - if (lua_isnil(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 2); - lua_pop (lua(),2); - VERIFY (start == lua_gettop(lua())); - return (false); // there is no namespace! - } - else - if (!lua_istable(lua(),-1)) { -// lua_settop (lua(),0); - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (start == lua_gettop(lua())); - FATAL (" Error : the namespace name is already being used by the non-table object!\n"); - return (false); - } - lua_remove (lua(),-2); - if (S1) - S = ++S1; - else - break; - } - if (!remove_from_stack) { - VERIFY (lua_gettop(lua()) == start + 1); - } - else { - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(),1); - VERIFY (lua_gettop(lua()) == start); - } - return (true); + int start = lua_gettop(lua()); + lua_pushstring(lua(), "_G"); + lua_rawget(lua(), LUA_GLOBALSINDEX); + string256 S2; + xr_strcpy(S2, N); + LPSTR S = S2; + for (;;) + { + if (!xr_strlen(S)) + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + return (false); + } + LPSTR S1 = strchr(S, '.'); + if (S1) + *S1 = 0; + lua_pushstring(lua(), S); + lua_rawget(lua(), -2); + if (lua_isnil(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 2); + lua_pop(lua(), 2); + VERIFY(start == lua_gettop(lua())); + return (false); // there is no namespace! + } + else + if (!lua_istable(lua(), -1)) + { + // lua_settop (lua(),0); + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(start == lua_gettop(lua())); + FATAL(" Error : the namespace name is already being used by the non-table object!\n"); + return (false); + } + lua_remove(lua(), -2); + if (S1) + S = ++S1; + else + break; + } + if (!remove_from_stack) + { + VERIFY(lua_gettop(lua()) == start + 1); + } + else + { + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start); + } + return (true); } -bool CScriptStorage::object (LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - lua_pushnil (lua()); - while (lua_next(lua(), -2)) { - - if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier,lua_tostring(lua(), -2))) { - VERIFY (lua_gettop(lua()) >= 3); - lua_pop (lua(), 3); - VERIFY (lua_gettop(lua()) == start - 1); - return (true); - } - lua_pop (lua(), 1); - } - VERIFY (lua_gettop(lua()) >= 1); - lua_pop (lua(), 1); - VERIFY (lua_gettop(lua()) == start - 1); - return (false); + int start = lua_gettop(lua()); + lua_pushnil(lua()); + while (lua_next(lua(), -2)) + { + if ((lua_type(lua(), -1) == type) && !xr_strcmp(identifier, lua_tostring(lua(), -2))) + { + VERIFY(lua_gettop(lua()) >= 3); + lua_pop(lua(), 3); + VERIFY(lua_gettop(lua()) == start - 1); + return (true); + } + lua_pop(lua(), 1); + } + VERIFY(lua_gettop(lua()) >= 1); + lua_pop(lua(), 1); + VERIFY(lua_gettop(lua()) == start - 1); + return (false); } -bool CScriptStorage::object (LPCSTR namespace_name, LPCSTR identifier, int type) +bool CScriptStorage::object(LPCSTR namespace_name, LPCSTR identifier, int type) { - int start = lua_gettop(lua()); - if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name,false)) { - VERIFY (lua_gettop(lua()) == start); - return (false); - } - bool result = object(identifier,type); - VERIFY (lua_gettop(lua()) == start); - return (result); + int start = lua_gettop(lua()); + if (xr_strlen(namespace_name) && !namespace_loaded(namespace_name, false)) + { + VERIFY(lua_gettop(lua()) == start); + return (false); + } + bool result = object(identifier, type); + VERIFY(lua_gettop(lua()) == start); + return (result); } luabind::object CScriptStorage::name_space(LPCSTR namespace_name) { - string256 S1; - xr_strcpy (S1,namespace_name); - LPSTR S = S1; - luabind::object lua_namespace = luabind::get_globals(lua()); - for (;;) { - if (!xr_strlen(S)) - return (lua_namespace); - LPSTR I = strchr(S,'.'); - if (!I) - return (lua_namespace[S]); - *I = 0; - lua_namespace = lua_namespace[S]; - S = I + 1; - } + string256 S1; + xr_strcpy(S1, namespace_name); + LPSTR S = S1; + luabind::object lua_namespace = luabind::get_globals(lua()); + for (;;) + { + if (!xr_strlen(S)) + return (lua_namespace); + LPSTR I = strchr(S, '.'); + if (!I) + return (lua_namespace[S]); + *I = 0; + lua_namespace = lua_namespace[S]; + S = I + 1; + } } #include -struct raii_guard : private boost::noncopyable { - int m_error_code; - LPCSTR const& m_error_description; - raii_guard (int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) {} - ~raii_guard () - { +struct raii_guard : private boost::noncopyable +{ + int m_error_code; + LPCSTR const& m_error_description; + raii_guard(int error_code, LPCSTR const& m_description) : m_error_code(error_code), m_error_description(m_description) + {} + ~raii_guard() + { #ifdef DEBUG - bool lua_studio_connected = !!ai().script_engine().debugger(); - if (!lua_studio_connected) + bool lua_studio_connected = !!ai().script_engine().debugger(); + if (!lua_studio_connected) #endif //#ifdef DEBUG - { + { #ifdef DEBUG - static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); + static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); #else // #ifdef DEBUG - static bool const break_on_assert = false; //Alundaio: Can't get a proper stack trace with this enabled + static bool const break_on_assert = false; //Alundaio: Can't get a proper stack trace with this enabled #endif // #ifdef DEBUG - if ( !m_error_code ) - return; - - if ( break_on_assert ) - R_ASSERT2 ( !m_error_code, m_error_description ); - else - Msg ( "! SCRIPT ERROR: %s", m_error_description ); - } - } + if (!m_error_code) + return; + + if (break_on_assert) + R_ASSERT2(!m_error_code, m_error_description); + else + Msg("! SCRIPT ERROR: %s", m_error_description); + } + } }; // struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) -{ - if (iErorCode) - print_error (L,iErorCode); +{ + if (iErorCode) + print_error(L, iErorCode); + + LPCSTR S = "see call_stack for details!"; - LPCSTR S = "see call_stack for details!"; + raii_guard guard(iErorCode, S); - raii_guard guard(iErorCode, S); + if (!lua_isstring(L, -1)) + return (false); - if (!lua_isstring(L,-1)) - return (false); - - S = lua_tostring(L,-1); - if (!xr_strcmp(S,"cannot resume dead coroutine")) { - VERIFY2 ("Please do not return any values from main!!!",caScriptFileName); + S = lua_tostring(L, -1); + if (!xr_strcmp(S, "cannot resume dead coroutine")) + { + VERIFY2("Please do not return any values from main!!!", caScriptFileName); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ - ai().script_engine().debugger()->Write(S); - ai().script_engine().debugger()->ErrorBreak(); - } + if(ai().script_engine().debugger() && ai().script_engine().debugger()->Active() ){ + ai().script_engine().debugger()->Write(S); + ai().script_engine().debugger()->ErrorBreak(); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - else { - if (!iErorCode) - script_log (ScriptStorage::eLuaMessageTypeInfo,"Output from %s",caScriptFileName); - script_log (iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage,"%s",S); + } + else + { + if (!iErorCode) + script_log(ScriptStorage::eLuaMessageTypeInfo, "Output from %s", caScriptFileName); + script_log(iErorCode ? ScriptStorage::eLuaMessageTypeError : ScriptStorage::eLuaMessageTypeMessage, "%s", S); #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { - ai().script_engine().debugger()->Write (S); - ai().script_engine().debugger()->ErrorBreak (); - } + if (ai().script_engine().debugger() && ai().script_engine().debugger()->Active()) { + ai().script_engine().debugger()->Write (S); + ai().script_engine().debugger()->ErrorBreak (); + } # endif // #ifndef USE_LUA_STUDIO #endif // #ifdef USE_DEBUGGER - } - return (true); + } + return (true); } void CScriptStorage::print_error(lua_State *L, int iErrorCode) { - switch (iErrorCode) { - case LUA_ERRRUN : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT RUNTIME ERROR"); - break; - } - case LUA_ERRMEM : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (memory allocation)"); - break; - } - case LUA_ERRERR : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running the error handler function)"); - break; - } - case LUA_ERRFILE : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT ERROR (while running file)"); - break; - } - case LUA_ERRSYNTAX : { - script_log (ScriptStorage::eLuaMessageTypeError,"SCRIPT SYNTAX ERROR"); - break; - } - case LUA_YIELD : { - script_log (ScriptStorage::eLuaMessageTypeInfo,"Thread is yielded"); - break; - } - default : NODEFAULT; - } + switch (iErrorCode) + { + case LUA_ERRRUN: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT RUNTIME ERROR"); + break; + } + case LUA_ERRMEM: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (memory allocation)"); + break; + } + case LUA_ERRERR: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running the error handler function)"); + break; + } + case LUA_ERRFILE: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT ERROR (while running file)"); + break; + } + case LUA_ERRSYNTAX: { + script_log(ScriptStorage::eLuaMessageTypeError, "SCRIPT SYNTAX ERROR"); + break; + } + case LUA_YIELD: { + script_log(ScriptStorage::eLuaMessageTypeInfo, "Thread is yielded"); + break; + } + default: NODEFAULT; + } } #ifdef DEBUG void CScriptStorage::flush_log() { - string_path log_file_name; - strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); - FS.update_path (log_file_name,"$logs$",log_file_name); - m_output.save_to (log_file_name); + string_path log_file_name; + strconcat (sizeof(log_file_name),log_file_name,Core.ApplicationName,"_",Core.UserName,"_lua.log"); + FS.update_path (log_file_name,"$logs$",log_file_name); + m_output.save_to (log_file_name); } #endif // DEBUG -int CScriptStorage::error_log (LPCSTR format, ...) +int CScriptStorage::error_log(LPCSTR format, ...) { - va_list marker; - va_start (marker,format); + va_list marker; + va_start(marker, format); - LPCSTR S = "! [LUA][ERROR] "; - LPSTR S1; - string4096 S2; - xr_strcpy (S2,S); - S1 = S2 + xr_strlen(S); + LPCSTR S = "! [LUA][ERROR] "; + LPSTR S1; + string4096 S2; + xr_strcpy(S2, S); + S1 = S2 + xr_strlen(S); - int result = vsprintf(S1,format,marker); - va_end (marker); + int result = vsprintf(S1, format, marker); + va_end(marker); - Msg ("%s",S2); + Msg("%s", S2); - return (result); + return (result); } \ No newline at end of file diff --git a/src/xrServerEntities/script_storage.h b/src/xrServerEntities/script_storage.h index dc94c6d19f2..653c6f493bf 100644 --- a/src/xrServerEntities/script_storage.h +++ b/src/xrServerEntities/script_storage.h @@ -29,6 +29,12 @@ class CScriptThread; # endif // #ifndef NDEBUG #endif // #ifdef XRGAME_EXPORTS +//AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) +#include "build_config_defines.h" +#ifdef LUA_DEBUG_PRINT +#define PRINT_CALL_STACK +#endif + using namespace ScriptStorage; class CScriptStorage { From 416c7866096dfa0f10bc8d1e5df617bf620c6b42 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 30 Dec 2014 15:54:12 -0500 Subject: [PATCH 042/166] * fix for previous commit (forgot to change debug checks) --- src/xrServerEntities/script_ini_file.cpp | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index 50c6b875f71..e57fbd7fbdb 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -216,15 +216,12 @@ void CScriptIniFile::w_u8(LPCSTR S, LPCSTR L, u8 V, LPCSTR comment) bool CScriptIniFile::save_as(LPCSTR new_fname) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); + THROW2(new_fname, "File name is null"); return(inherited::save_as(new_fname)); } void CScriptIniFile::save_at_end(BOOL b) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); inherited::save_at_end(b); } @@ -237,14 +234,10 @@ void CScriptIniFile::remove_line(LPCSTR S, LPCSTR L) void CScriptIniFile::set_override_names(BOOL b) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); inherited::set_override_names(b); } u32 CScriptIniFile::section_count() { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); return(inherited::section_count()); } \ No newline at end of file From a73f33fab4b3fd60fcbb60a02ec4d4d2f4ce3351 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 30 Dec 2014 15:54:12 -0500 Subject: [PATCH 043/166] * fix for previous commit (forgot to change debug checks) * fix for debug build issue in COC with "invalid sun direction" --- src/3rd party/cximage/cximage.vcxproj | 2 +- src/xrEngine/Environment_misc.cpp | 3 ++- src/xrServerEntities/script_ini_file.cpp | 9 +-------- src/xrServerEntities/script_storage.cpp | 2 ++ 4 files changed, 6 insertions(+), 10 deletions(-) diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index 97b8d362063..c447dc24799 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -57,7 +57,7 @@ $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) - $(xrBinDir) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ false diff --git a/src/xrEngine/Environment_misc.cpp b/src/xrEngine/Environment_misc.cpp index 32351540750..cb8799e22d4 100644 --- a/src/xrEngine/Environment_misc.cpp +++ b/src/xrEngine/Environment_misc.cpp @@ -289,7 +289,8 @@ void CEnvDescriptor::load(CEnvironment& environment, CInifile& config) // deg2rad(config.r_fvector2(m_identifier.c_str(),"sun_dir").y), // deg2rad(config.r_fvector2(m_identifier.c_str(),"sun_dir").x) // ); - VERIFY2(sun_dir.y < 0, "Invalid sun direction settings while loading"); + //AVO: commented to allow COC run in debug. I belive Cromm set longtitude to negative value in AF3 and that's why it is failing here + //VERIFY2(sun_dir.y < 0, "Invalid sun direction settings while loading"); lens_flare_id = environment.eff_LensFlare->AppendDef(environment, environment.m_suns_config, config.r_string(m_identifier.c_str(), "sun")); tb_id = environment.eff_Thunderbolt->AppendDef(environment, environment.m_thunderbolt_collections_config, environment.m_thunderbolts_config, config.r_string(m_identifier.c_str(), "thunderbolt_collection")); diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index 50c6b875f71..e57fbd7fbdb 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -216,15 +216,12 @@ void CScriptIniFile::w_u8(LPCSTR S, LPCSTR L, u8 V, LPCSTR comment) bool CScriptIniFile::save_as(LPCSTR new_fname) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); + THROW2(new_fname, "File name is null"); return(inherited::save_as(new_fname)); } void CScriptIniFile::save_at_end(BOOL b) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); inherited::save_at_end(b); } @@ -237,14 +234,10 @@ void CScriptIniFile::remove_line(LPCSTR S, LPCSTR L) void CScriptIniFile::set_override_names(BOOL b) { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); inherited::set_override_names(b); } u32 CScriptIniFile::section_count() { - THROW3(inherited::section_exist(S), "Cannot find section", S); - THROW3(inherited::line_exist(S, L), "Cannot find line", L); return(inherited::section_count()); } \ No newline at end of file diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index f16488846c1..4e43c695349 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -355,8 +355,10 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, #else // #ifdef PRINT_CALL_STACK #ifndef NO_XRGAME_SCRIPT_ENGINE //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) +#ifndef DEBUG if (!strstr(Core.Params, "-dbg")) return(0); +#endif #ifdef LUA_DEBUG_PRINT #ifdef DEBUG From 216c1104da512ef5464eaac313d5a23dd5d9eb8c Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Wed, 31 Dec 2014 14:34:29 -0500 Subject: [PATCH 044/166] - removed -dbg requirement for lua logs --- src/xrServerEntities/script_storage.cpp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 4e43c695349..b00f6c0f618 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -321,7 +321,8 @@ void CScriptStorage::reinit() #ifdef DEBUG luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); #else - if (strstr(Core.Params, "-dbg")) + //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory + //if (strstr(Core.Params, "-dbg")) luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); #endif // #ifdef DEBUG @@ -356,8 +357,9 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, #ifndef NO_XRGAME_SCRIPT_ENGINE //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) #ifndef DEBUG - if (!strstr(Core.Params, "-dbg")) - return(0); + //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory + //if (!strstr(Core.Params, "-dbg")) + // return(0); #endif #ifdef LUA_DEBUG_PRINT From d459536226e86f14858883b55451e460fe345099 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Thu, 1 Jan 2015 12:43:51 -0500 Subject: [PATCH 045/166] * more VERIFY calls tweaks to allow mods run in Debug --- src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp | 1 + src/xrCore/NET_utils.cpp | 4 +++- src/xrGame/Weapon.cpp | 3 ++- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp b/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp index aca50d2a2a1..6892fdc775e 100644 --- a/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp +++ b/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp @@ -579,6 +579,7 @@ CTexture* CResourceManager::_CreateTexture (LPCSTR _Name) { // DBG_VerifyTextures (); if (0==xr_strcmp(_Name,"null")) return 0; + //Msg("texture %s", _Name); R_ASSERT (_Name && _Name[0]); string_path Name; xr_strcpy (Name,_Name); //. andy if (strext(Name)) *strext(Name)=0; diff --git a/src/xrCore/NET_utils.cpp b/src/xrCore/NET_utils.cpp index bac027d6865..85d1cb8fa75 100644 --- a/src/xrCore/NET_utils.cpp +++ b/src/xrCore/NET_utils.cpp @@ -28,7 +28,9 @@ void NET_Packet::w_seek(u32 pos, const void* p, u32 count) void NET_Packet::r_seek(u32 pos) { INI_ASSERT(r_seek) - VERIFY(pos < B.count); + //AVO: changed changed condition to <= as all net packet script utils are using r_seek(0) to read the entire packet. + VERIFY(pos <= B.count); + //VERIFY(pos < B.count); r_pos = pos; } diff --git a/src/xrGame/Weapon.cpp b/src/xrGame/Weapon.cpp index 3cc4733c8ab..4b1eb7e69a1 100644 --- a/src/xrGame/Weapon.cpp +++ b/src/xrGame/Weapon.cpp @@ -251,7 +251,8 @@ void CWeapon::Load (LPCSTR section) float temp_f = 0.0f; temp_f = pSettings->r_float( section,"cam_relax_speed" ); cam_recoil.RelaxSpeed = _abs( deg2rad( temp_f ) ); - VERIFY( !fis_zero(cam_recoil.RelaxSpeed) ); + //AVO: commented out as very minor and is clashing with weapon mods + //VERIFY( !fis_zero(cam_recoil.RelaxSpeed) ); if ( fis_zero(cam_recoil.RelaxSpeed) ) { cam_recoil.RelaxSpeed = EPS_L; From 8b814946a224ebd8cdf2a7d0fb144c9b857a13e1 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Thu, 1 Jan 2015 19:34:17 -0500 Subject: [PATCH 046/166] * Altered the existing net_packet:r_begin(number) export to be net_packet:r_begin() to avoid SCRIPT ERROR "no overloaded function found for net_packet:r_begin(net_packet*,number) valid candidates are net_packet:r_begin(number&)" --- src/xrServerEntities/script_net_packet_script.cpp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/xrServerEntities/script_net_packet_script.cpp b/src/xrServerEntities/script_net_packet_script.cpp index ee53b0024a9..c2fb58a80ca 100644 --- a/src/xrServerEntities/script_net_packet_script.cpp +++ b/src/xrServerEntities/script_net_packet_script.cpp @@ -33,6 +33,13 @@ bool r_bool(NET_Packet *self) return (!!self->r_u8()); } +//Alundaio: Fix issue with using r_begin +u32 r_begin(NET_Packet *self) +{ + u16 dummy_u16; + return (!!self->r_begin(dummy_u16)); +} + ClientID r_clientID(NET_Packet *self) { ClientID clientID; @@ -85,7 +92,7 @@ void CScriptNetPacket::script_register(lua_State *L) .def("w_chunk_close8", &NET_Packet::w_chunk_close8 ) .def("w_chunk_open16", &NET_Packet::w_chunk_open16 ) .def("w_chunk_close16", &NET_Packet::w_chunk_close16) - .def("r_begin", &NET_Packet::r_begin ) + .def("r_begin", &r_begin ) // .def("r", &NET_Packet::r ) .def("r_seek", &NET_Packet::r_seek ) .def("r_tell", &NET_Packet::r_tell ) From 5c51a80defd43a4c0c01e5d2341a9a84ff4f07f8 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Thu, 1 Jan 2015 20:54:35 -0500 Subject: [PATCH 047/166] + SPAWN_ANTIFREEZE implementation from alpet --- src/build_config_defines.h | 3 +- src/xrEngine/device.h | 11 ++++ src/xrEngine/x_ray.cpp | 12 ++++ src/xrGame/Level.cpp | 115 +++++++++++++++++++++++++++++++------ src/xrGame/Level.h | 6 ++ 5 files changed, 129 insertions(+), 18 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 42aef20321b..170e4eac35a 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -5,4 +5,5 @@ //#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) #define FP_DEATH // first person death view -#define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) \ No newline at end of file +#define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) +#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) \ No newline at end of file diff --git a/src/xrEngine/device.h b/src/xrEngine/device.h index 1baf9741a6a..29c81f6548e 100644 --- a/src/xrEngine/device.h +++ b/src/xrEngine/device.h @@ -83,6 +83,11 @@ class ENGINE_API CRenderDeviceData u32 Timer_MM_Delta; CTimer_paused Timer; CTimer_paused TimerGlobal; + + //AVO: + CTimer frame_timer; //TODO: проверить, не дублируется-ли схожий таймер (alpet) + //-AVO + public: // Registrators @@ -282,6 +287,12 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase seqParallel.erase(I); } + //AVO: elapsed famed counter (by alpet) + IC u32 frame_elapsed() + { + return frame_timer.GetElapsed_ms(); + } + public: void xr_stdcall on_idle(); bool xr_stdcall on_message(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, LRESULT& result); diff --git a/src/xrEngine/x_ray.cpp b/src/xrEngine/x_ray.cpp index 18a1925788a..a31ea85fdc4 100644 --- a/src/xrEngine/x_ray.cpp +++ b/src/xrEngine/x_ray.cpp @@ -1198,6 +1198,9 @@ void CApplication::OnEvent(EVENT E, u64 P1, u64 P2) static CTimer phase_timer; extern ENGINE_API BOOL g_appLoaded = FALSE; +//AVO: used by SPAWN_ANTIFREEZE (by alpet) +extern ENGINE_API BOOL g_bootComplete = FALSE; +//-AVO void CApplication::LoadBegin() { @@ -1206,6 +1209,10 @@ void CApplication::LoadBegin() { g_appLoaded = FALSE; + + //AVO: + g_bootComplete = FALSE; + //-AVO #ifndef DEDICATED_SERVER _InitializeFont(pFontSystem, "ui_font_letterica18_russian", 0); @@ -1235,6 +1242,11 @@ void CApplication::LoadEnd() void CApplication::destroy_loading_shaders() { m_pRender->destroy_loading_shaders(); + + //AVO: + g_bootComplete = TRUE; + //-AVO + //hLevelLogo.destroy (); //sh_progress.destroy (); //. ::Sound->mute (false); diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index e502411db4d..e50ddcb5e09 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -49,6 +49,7 @@ #include "CustomDetector.h" #include "xrPhysics/IPHWorld.h" #include "xrPhysics/console_vars.h" +#include "../xrEngine/device.h" #ifdef DEBUG #include "level_debug.h" @@ -58,22 +59,47 @@ #include "PHDebug.h" #include "debug_text_tree.h" #endif - ENGINE_API bool g_dedicated_server; +//AVO: used by SPAWN_ANTIFREEZE (by alpet) +ENGINE_API BOOL g_bootComplete; +//-AVO extern CUISequencer* g_tutorial; extern CUISequencer* g_tutorial2; float g_cl_lvInterp = 0.1; u32 lvInterpSteps = 0; +//AVO: get object ID from spawn data (used by SPAWN_ANTIFREEZE by alpet) +u16 GetSpawnInfo(NET_Packet &P, u16 &parent_id) +{ + u16 dummy16, id; + P.r_begin(dummy16); + shared_str s_name; + P.r_stringZ(s_name); + CSE_Abstract* E = F_entity_Create(*s_name); + E->Spawn_Read(P); + if (E->s_flags.is(M_SPAWN_UPDATE)) + E->UPDATE_Read(P); + id = E->ID; + parent_id = E->ID_Parent; + F_entity_Destroy(E); + P.r_pos = 0; + return id; +} +//-AVO + + CLevel::CLevel() : - IPureClient(Device.GetTimerGlobal()) +IPureClient(Device.GetTimerGlobal()) #ifdef PROFILE_CRITICAL_SECTIONS - , DemoCS(MUTEX_PROFILE_ID(DemoCS)) +, DemoCS(MUTEX_PROFILE_ID(DemoCS)) #endif { g_bDebugEvents = strstr(Core.Params, "-debug_ge") != nullptr; game_events = xr_new(); + //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE + spawn_events = xr_new(); + //-AVO eChangeRP = Engine.Event.Handler_Attach("LEVEL:ChangeRP", this); eDemoPlay = Engine.Event.Handler_Attach("LEVEL:PlayDEMO", this); eChangeTrack = Engine.Event.Handler_Attach("LEVEL:PlayMusic", this); @@ -85,7 +111,7 @@ CLevel::CLevel() : m_map_manager = xr_new(); m_game_task_manager = xr_new(); } - m_dwDeltaUpdate = u32(fixed_step*1000); + m_dwDeltaUpdate = u32(fixed_step * 1000); m_seniority_hierarchy_holder = xr_new(); if (!g_dedicated_server) { @@ -159,7 +185,7 @@ CLevel::~CLevel() pObjects4CrPr.clear(); pActors4CrPr.clear(); ai().unload(); -#ifdef DEBUG +#ifdef DEBUG xr_delete(m_level_debug); #endif xr_delete(m_map_manager); @@ -302,6 +328,23 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) } } } +//AVO: used by SPAWN_ANTIFREEZE (by alpet) +bool CLevel::PostponedSpawn(u16 id) +{ + for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) + { + const NET_Event& E = *it; + NET_Packet P; + if (M_SPAWN != E.ID) continue; + E.implication(P); + u16 parent_id; + if (id == GetSpawnInfo(P, parent_id)) + return true; + } + + return false; +} +//-AVO void CLevel::ProcessGameEvents() { @@ -309,10 +352,51 @@ void CLevel::ProcessGameEvents() { NET_Packet P; u32 svT = timeServer() - NET_Latency; + + //AVO: spawn antifreeze implementation by alpet +#ifdef SPAWN_ANTIFREEZE + while (spawn_events->available(svT)) + { + u16 ID, dest, type; + spawn_events->get(ID, dest, type, P); + game_events->insert(P); + } + u32 avail_time = 5; + u32 elps = Device.frame_elapsed(); + if (elps < 30) avail_time = 33 - elps; + u32 work_limit = elps + avail_time; + +#endif + //-AVO + while (game_events->available(svT)) { u16 ID, dest, type; game_events->get(ID, dest, type, P); + //AVO: spawn antifreeze implementation by alpet +#ifdef SPAWN_ANTIFREEZE + // не отправлять события не заспавненным объектам + if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) + { + spawn_events->insert(P); + continue; + } + if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов + { + u16 parent_id; + GetSpawnInfo(P, parent_id); + //------------------------------------------------- + if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры + { + if (!spawn_events->available(svT)) + Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); + + spawn_events->insert(P); + continue; + } + } +#endif + //-AVO switch (ID) { case M_SPAWN: @@ -465,12 +549,12 @@ void CLevel::OnFrame() if (IsGameTypeSingle() && Device.dwPrecacheFrame == 0) { // XXX nitrocaster: was enabled in x-ray 1.5; to be restored or removed - //if (g_mt_config.test(mtMap)) + //if (g_mt_config.test(mtMap)) //{ // Device.seqParallel.push_back(fastdelegate::FastDelegate0<>( // m_game_task_manager,&CGameTaskManager::UpdateTasks)); //} - //else + //else GameTaskManager().UpdateTasks(); } } @@ -717,7 +801,6 @@ void CLevel::OnRender() } } - if (psAI_Flags.test(aiDrawVisibilityRays)) { for (u32 I = 0; I < Level().Objects.o_count(); I++) @@ -745,7 +828,7 @@ void CLevel::OnEvent(EVENT E, u64 P1, u64 /**P2/**/) } else if (E == eDemoPlay && P1) { - char* name = (char*)P1; + char* name = (char*) P1; string_path RealName; xr_strcpy(RealName, name); xr_strcat(RealName, ".xrdemo"); @@ -774,7 +857,6 @@ void CLevel::AddObject_To_Objects4CrPr(CGameObject* pObj) return; } pObjects4CrPr.push_back(pObj); - } void CLevel::AddActor_To_Actors4CrPr(CGameObject* pActor) { @@ -879,10 +961,10 @@ void CLevel::UpdateDeltaUpd(u32 LastTime) if (0 == g_cl_lvInterp) ReculcInterpolationSteps(); else - if (g_cl_lvInterp > 0) - { - lvInterpSteps = iCeil(g_cl_lvInterp / fixed_step); - } + if (g_cl_lvInterp > 0) + { + lvInterpSteps = iCeil(g_cl_lvInterp / fixed_step); + } } void CLevel::ReculcInterpolationSteps() @@ -1054,11 +1136,10 @@ bool CZoneList::feel_touch_contact(CObject* O) } CZoneList::CZoneList() -{ -} +{} CZoneList::~CZoneList() { clear(); destroy(); -} +} \ No newline at end of file diff --git a/src/xrGame/Level.h b/src/xrGame/Level.h index 275be1dca7f..c86c82f13c0 100644 --- a/src/xrGame/Level.h +++ b/src/xrGame/Level.h @@ -158,6 +158,9 @@ class CLevel : bool m_bGameConfigStarted = false; bool game_configured = false; NET_Queue_Event* game_events = nullptr; + //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE + NET_Queue_Event* spawn_events = nullptr; + //-AVO xr_deque game_spawn_queue; xrServer* Server = nullptr; GlobalFeelTouch m_feel_deny; @@ -220,6 +223,9 @@ class CLevel : virtual void net_StartPlayDemo(); void cl_Process_Event(u16 dest, u16 type, NET_Packet& P); void cl_Process_Spawn(NET_Packet& P); + //AVO: used by SPAWN_ANTIFREEZE (by alpet) + bool PostponedSpawn(u16 id); + //-AVO void ProcessGameEvents(); void ProcessGameSpawns(); void ProcessCompressedUpdate(NET_Packet& P, u8 const compression_type); From 7a774348f87205a2025eb1c06bea71e4a780789d Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 2 Jan 2015 01:04:14 -0500 Subject: [PATCH 048/166] + non fatal verify (with NON_FATAL_VERIFY define) + added back previously commented verifies --- src/build_config_defines.h | 3 ++- src/xrCore/FS.h | 2 +- src/xrCore/xrCore.vcxproj | 1 + src/xrCore/xrCore.vcxproj.filters | 1 + src/xrCore/xrDebug.h | 28 ++++++++++++++++++++++++---- src/xrCore/xrDebugNew.cpp | 27 +++++++++++++++++++++++++++ src/xrCore/xrDebug_macros.h | 14 ++++++++++++++ src/xrGame/StdAfx.h | 8 +++++++- src/xrGame/Weapon.cpp | 3 ++- 9 files changed, 79 insertions(+), 8 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 170e4eac35a..a3af7271e75 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -6,4 +6,5 @@ //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) #define FP_DEATH // first person death view #define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) -#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) \ No newline at end of file +#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) +#define NON_FATAL_VERIFY // don't crash game when VERIFY fails \ No newline at end of file diff --git a/src/xrCore/FS.h b/src/xrCore/FS.h index e80312b5b5a..309d2d8fef4 100644 --- a/src/xrCore/FS.h +++ b/src/xrCore/FS.h @@ -285,7 +285,7 @@ class XRCORE_API IReader : public IReaderBase < IReader > IC void seek(int ptr) { Pos = ptr; VERIFY((Pos <= Size) && (Pos >= 0)); }; IC int length() const { return Size; }; IC void* pointer() const { return &(data[Pos]); }; - IC void advance(int cnt) { Pos += cnt; /*VERIFY((Pos <= Size) && (Pos >= 0));*/ }; //AVO: commented out to allow COC to run in debug. Was failing when reading one of *.thm + IC void advance(int cnt) { Pos += cnt; VERIFY((Pos <= Size) && (Pos >= 0)); }; //AVO: commented out to allow COC to run in debug. Was failing when reading one of *.thm. UNDONE after non fatal VERIFY implementation public: void r(void* p, int cnt); diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 368351f35c9..0f68f53410c 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -391,6 +391,7 @@ + diff --git a/src/xrCore/xrCore.vcxproj.filters b/src/xrCore/xrCore.vcxproj.filters index c37ff501fef..58a469a772b 100644 --- a/src/xrCore/xrCore.vcxproj.filters +++ b/src/xrCore/xrCore.vcxproj.filters @@ -598,6 +598,7 @@ OS + diff --git a/src/xrCore/xrDebug.h b/src/xrCore/xrDebug.h index c88d326fef0..cac68283b21 100644 --- a/src/xrCore/xrDebug.h +++ b/src/xrCore/xrDebug.h @@ -16,11 +16,23 @@ class XRCORE_API xrDebug void _destroy(); public: - crashhandler* get_crashhandler() { return handler; }; - void set_crashhandler(crashhandler* _handler) { handler = _handler; }; + crashhandler* get_crashhandler() + { + return handler; + }; + void set_crashhandler(crashhandler* _handler) + { + handler = _handler; + }; - on_dialog* get_on_dialog() { return m_on_dialog; } - void set_on_dialog(on_dialog* on_dialog) { m_on_dialog = on_dialog; } + on_dialog* get_on_dialog() + { + return m_on_dialog; + } + void set_on_dialog(on_dialog* on_dialog) + { + m_on_dialog = on_dialog; + } LPCSTR error2string(long code); @@ -36,6 +48,14 @@ class XRCORE_API xrDebug void fail(const char* e1, const char* e2, const char* file, int line, const char* function, bool& ignore_always); void fail(const char* e1, const char* e2, const char* e3, const char* file, int line, const char* function, bool& ignore_always); void fail(const char* e1, const char* e2, const char* e3, const char* e4, const char* file, int line, const char* function, bool& ignore_always); + //AVO: print, dont crash + void soft_fail(LPCSTR e1, LPCSTR file, int line, LPCSTR function); + void soft_fail(LPCSTR e1, const std::string &e2, LPCSTR file, int line, LPCSTR function); + void soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR file, int line, LPCSTR function); + void soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR file, int line, LPCSTR function); + void soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR e4, LPCSTR file, int line, LPCSTR function); + void soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR e4, LPCSTR e5, LPCSTR file, int line, LPCSTR function); + //-AVO void error(long code, const char* e1, const char* file, int line, const char* function, bool& ignore_always); void error(long code, const char* e1, const char* e2, const char* file, int line, const char* function, bool& ignore_always); void _cdecl fatal(const char* file, int line, const char* function, const char* F, ...); diff --git a/src/xrCore/xrDebugNew.cpp b/src/xrCore/xrDebugNew.cpp index 50803c71841..08fd77289fb 100644 --- a/src/xrCore/xrDebugNew.cpp +++ b/src/xrCore/xrDebugNew.cpp @@ -323,6 +323,33 @@ void xrDebug::fail(const char* e1, const char* e2, const char* e3, const char* e backend(e1, e2, e3, e4, file, line, function, ignore_always); } +//AVO: print, dont crash +void xrDebug::soft_fail(LPCSTR e1, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s", file, line, function, e1); +} +void xrDebug::soft_fail(LPCSTR e1, const std::string &e2, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s %s", file, line, function, e1, e2.c_str()); +} +void xrDebug::soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s %s", file, line, function, e1, e2); +} +void xrDebug::soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s %s %s", file, line, function, e1, e2, e3); +} +void xrDebug::soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR e4, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s %s %s %s", file, line, function, e1, e2, e3, e4); +} +void xrDebug::soft_fail(LPCSTR e1, LPCSTR e2, LPCSTR e3, LPCSTR e4, LPCSTR e5, LPCSTR file, int line, LPCSTR function) +{ + Msg("! VERIFY_FAILED: %s[%d] {%s} %s %s %s %s %s", file, line, function, e1, e2, e3, e4, e5); +} +//-AVO + void __cdecl xrDebug::fatal(const char* file, int line, const char* function, const char* F, ...) { string1024 buffer; diff --git a/src/xrCore/xrDebug_macros.h b/src/xrCore/xrDebug_macros.h index cf13bd92291..b479269d17e 100644 --- a/src/xrCore/xrDebug_macros.h +++ b/src/xrCore/xrDebug_macros.h @@ -36,12 +36,25 @@ # endif // VERIFY # ifdef DEBUG +//AVO: +# include "../build_config_defines.h" +# ifdef NON_FATAL_VERIFY +# define NODEFAULT FATAL("nodefault reached") +# define VERIFY(expr) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.soft_fail(#expr,DEBUG_INFO);} while(0) +# define VERIFY2(expr,e2) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.soft_fail(#expr,e2,DEBUG_INFO);} while(0) +# define VERIFY3(expr,e2,e3) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.soft_fail(#expr,e2,e3,DEBUG_INFO);} while(0) +# define VERIFY4(expr,e2,e3,e4)do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.soft_fail(#expr,e2,e3,e4,DEBUG_INFO);} while(0) +//# define CHK_DX(expr) do {static bool ignore_always = false; HRESULT hr = expr; if (!ignore_always && FAILED(hr)) ::Debug.soft_fail(/*hr,*/#expr,DEBUG_INFO);} while(0) +# define CHK_DX(a) a +# else # define NODEFAULT FATAL("nodefault reached") # define VERIFY(expr) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.fail(#expr,DEBUG_INFO,ignore_always);} while(0) # define VERIFY2(expr,e2) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.fail(#expr,e2,DEBUG_INFO,ignore_always);} while(0) # define VERIFY3(expr,e2,e3) do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.fail(#expr,e2,e3,DEBUG_INFO,ignore_always);} while(0) # define VERIFY4(expr,e2,e3,e4)do {static bool ignore_always = false; if (!ignore_always && !(expr)) ::Debug.fail(#expr,e2,e3,e4,DEBUG_INFO,ignore_always);} while(0) # define CHK_DX(expr) do {static bool ignore_always = false; HRESULT hr = expr; if (!ignore_always && FAILED(hr)) ::Debug.error(hr,#expr,DEBUG_INFO,ignore_always);} while(0) +# endif // NON_FATAL_VERIFY +//-AVO # else // DEBUG # ifdef __BORLANDC__ # define NODEFAULT @@ -54,6 +67,7 @@ # define VERIFY4(expr, e2, e3, e4)do {} while (0) # define CHK_DX(a) a # endif // DEBUG + //--------------------------------------------------------------------------------------------- // FIXMEs / TODOs / NOTE macros //--------------------------------------------------------------------------------------------- diff --git a/src/xrGame/StdAfx.h b/src/xrGame/StdAfx.h index 959988053a0..230f47e661b 100644 --- a/src/xrGame/StdAfx.h +++ b/src/xrGame/StdAfx.h @@ -8,7 +8,13 @@ #pragma warning( 4 : 4244 ) #pragma warning(disable:4505) -#if XRAY_EXCEPTIONS +//AVO: print, don't fail +#include "../build_config_defines.h" +#ifdef NON_FATAL_VERIFY +# define THROW VERIFY +# define THROW2 VERIFY2 +# define THROW3 VERIFY3 +#elif XRAY_EXCEPTIONS # define THROW(expr) do {if (!(expr)) {string4096 assertion_info; ::Debug.gather_info(_TRE(#expr), 0, 0,0,DEBUG_INFO,assertion_info); throw assertion_info;}} while(0) # define THROW2(expr,msg0) do {if (!(expr)) {string4096 assertion_info; ::Debug.gather_info(_TRE(#expr),msg0, 0,0,DEBUG_INFO,assertion_info); throw assertion_info;}} while(0) # define THROW3(expr,msg0,msg1) do {if (!(expr)) {string4096 assertion_info; ::Debug.gather_info(_TRE(#expr),msg0,msg1,0,DEBUG_INFO,assertion_info); throw assertion_info;}} while(0) diff --git a/src/xrGame/Weapon.cpp b/src/xrGame/Weapon.cpp index 4b1eb7e69a1..18e5ec3e1ed 100644 --- a/src/xrGame/Weapon.cpp +++ b/src/xrGame/Weapon.cpp @@ -252,7 +252,8 @@ void CWeapon::Load (LPCSTR section) temp_f = pSettings->r_float( section,"cam_relax_speed" ); cam_recoil.RelaxSpeed = _abs( deg2rad( temp_f ) ); //AVO: commented out as very minor and is clashing with weapon mods - //VERIFY( !fis_zero(cam_recoil.RelaxSpeed) ); + //UNDONE after non fatal VERIFY implementation + VERIFY( !fis_zero(cam_recoil.RelaxSpeed) ); if ( fis_zero(cam_recoil.RelaxSpeed) ) { cam_recoil.RelaxSpeed = EPS_L; From 01971d7d5ebc03d841b7a946180f69ca72eb9234 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 2 Jan 2015 15:26:27 -0500 Subject: [PATCH 049/166] * fixed r_begin to return u32 - commented out annoying debug message --- src/Layers/xrRenderDX10/StateManager/dx10StateCache.cpp | 2 +- src/xrServerEntities/script_net_packet_script.cpp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Layers/xrRenderDX10/StateManager/dx10StateCache.cpp b/src/Layers/xrRenderDX10/StateManager/dx10StateCache.cpp index ce29ed27104..45b4371e656 100644 --- a/src/Layers/xrRenderDX10/StateManager/dx10StateCache.cpp +++ b/src/Layers/xrRenderDX10/StateManager/dx10StateCache.cpp @@ -66,7 +66,7 @@ ::CreateState( D3D_DEPTH_STENCIL_DESC desc, ID3DDepthStencilState** ppIState ) // TODO: DX10: Remove this. #ifdef DEBUG - Msg("ID3DDepthStencilState #%d created.", m_StateArray.size()); + //Msg("ID3DDepthStencilState #%d created.", m_StateArray.size()); #endif // DEBUG } diff --git a/src/xrServerEntities/script_net_packet_script.cpp b/src/xrServerEntities/script_net_packet_script.cpp index c2fb58a80ca..2c0a2ba5d57 100644 --- a/src/xrServerEntities/script_net_packet_script.cpp +++ b/src/xrServerEntities/script_net_packet_script.cpp @@ -37,7 +37,7 @@ bool r_bool(NET_Packet *self) u32 r_begin(NET_Packet *self) { u16 dummy_u16; - return (!!self->r_begin(dummy_u16)); + return (self->r_begin(dummy_u16)); } ClientID r_clientID(NET_Packet *self) From dc72468226722dbb2a3a50815b4ba5c16f4254ec Mon Sep 17 00:00:00 2001 From: Bangalore1010 Date: Fri, 2 Jan 2015 22:32:08 +0100 Subject: [PATCH 050/166] ECO RENDER ECO RENDER rip from KD/alpet SOC repo: https://xp-dev.com/sc/change/204486/122 Caps intro video (200 fps) and main menu (60 fps) FPS to avoid video card coil noise/overheating. --- src/Layers/xrRender/HW.cpp | 6 ++++-- src/Layers/xrRender/HW.h | 1 + src/xrEngine/IGame_Persistent.cpp | 2 ++ src/xrEngine/device.cpp | 17 ++++++++++++++++- src/xrEngine/x_ray.h | 1 + 5 files changed, 24 insertions(+), 3 deletions(-) diff --git a/src/Layers/xrRender/HW.cpp b/src/Layers/xrRender/HW.cpp index 2c14dcefe4d..d38eff159e5 100644 --- a/src/Layers/xrRender/HW.cpp +++ b/src/Layers/xrRender/HW.cpp @@ -35,7 +35,8 @@ CHW::CHW() : pDevice(NULL), pBaseRT(NULL), pBaseZB(NULL), - m_move_window(true) + m_move_window(true), + maxRefreshRate(200) //ECO_RENDER { ; } @@ -506,7 +507,8 @@ u32 CHW::selectRefresh(u32 dwWidth, u32 dwHeight, D3DFORMAT fmt) pD3D->EnumAdapterModes(DevAdapter,fmt,I,&Mode); if (Mode.Width==dwWidth && Mode.Height==dwHeight) { - if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; + //if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; + if (Mode.RefreshRate <= maxRefreshRate && Mode.RefreshRate>selected) selected = Mode.RefreshRate; //ECO_RENDER modif. } } return selected; diff --git a/src/Layers/xrRender/HW.h b/src/Layers/xrRender/HW.h index 5245ac414d3..1773bdab268 100644 --- a/src/Layers/xrRender/HW.h +++ b/src/Layers/xrRender/HW.h @@ -20,6 +20,7 @@ class CHW { // Functions section public: + int maxRefreshRate; //ECO_RENDER add CHW(); ~CHW(); diff --git a/src/xrEngine/IGame_Persistent.cpp b/src/xrEngine/IGame_Persistent.cpp index 682bc7b0ab6..a9cff2a793d 100644 --- a/src/xrEngine/IGame_Persistent.cpp +++ b/src/xrEngine/IGame_Persistent.cpp @@ -23,6 +23,8 @@ bool g_dedicated_server = false; ENGINE_API IGame_Persistent* g_pGamePersistent = NULL; +bool IsMainMenuActive() { return g_pGamePersistent && g_pGamePersistent->m_pMainMenu && g_pGamePersistent->m_pMainMenu->IsActive(); } //ECO_RENDER add + IGame_Persistent::IGame_Persistent() { RDEVICE.seqAppStart.Add(this); diff --git a/src/xrEngine/device.cpp b/src/xrEngine/device.cpp index 1b42b678a03..76b4b01398f 100644 --- a/src/xrEngine/device.cpp +++ b/src/xrEngine/device.cpp @@ -236,6 +236,8 @@ int g_svDedicateServerUpdateReate = 100; ENGINE_API xr_list g_loading_events; +extern bool IsMainMenuActive(); //ECO_RENDER add + void CRenderDevice::on_idle() { if (!b_is_Ready) @@ -295,7 +297,20 @@ void CRenderDevice::on_idle() // Release start point - allow thread to run mt_csLeave.Enter(); mt_csEnter.Leave(); - Sleep(0); + +#ifdef ECO_RENDER // ECO_RENDER START + static u32 time_frame = 0; + u32 time_curr = timeGetTime(); + u32 time_diff = time_curr - time_frame; + time_frame = time_curr; + u32 optimal = 10; + if (Device.Paused() || IsMainMenuActive()) + optimal = 32; + if (time_diff < optimal) + Sleep(optimal - time_diff); +#else + Sleep(0); +#endif // ECO_RENDER END #ifndef DEDICATED_SERVER Statistic->RenderTOTAL_Real.FrameStart(); diff --git a/src/xrEngine/x_ray.h b/src/xrEngine/x_ray.h index af6823a4d8a..8ba2aae41aa 100644 --- a/src/xrEngine/x_ray.h +++ b/src/xrEngine/x_ray.h @@ -1,5 +1,6 @@ #ifndef __X_RAY_H__ #define __X_RAY_H__ +#define ECO_RENDER //ECO_RENDER adds a small delay between rendering, reduce FPS in main menu or in videos // refs class ENGINE_API CGameFont; From 0670ddb86b3286849c7483aaf216a0034b7cb058 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Fri, 2 Jan 2015 17:25:38 -0500 Subject: [PATCH 051/166] + detail draw radius console setting (r__detail_radius) * extended detail density (r__detail_density) * extended extended geometry LOD (r__geometry_lod) * extended sun near (r2_sun_near) --- src/Layers/xrRender/DetailManager.cpp | 67 +++++++++++++++++++++- src/Layers/xrRender/DetailManager.h | 58 ++++++++++++++++--- src/Layers/xrRender/xrRender_console.cpp | 66 +++++++++++++++++++-- src/Layers/xrRenderPC_R1/FStaticRender.cpp | 8 ++- src/Layers/xrRenderPC_R2/r2.cpp | 16 ++++++ src/Layers/xrRenderPC_R3/r3.cpp | 16 ++++++ src/Layers/xrRenderPC_R4/r4.cpp | 16 ++++++ src/build_config_defines.h | 3 +- 8 files changed, 234 insertions(+), 16 deletions(-) diff --git a/src/Layers/xrRender/DetailManager.cpp b/src/Layers/xrRender/DetailManager.cpp index f03ba2f3013..25105b3b4ed 100644 --- a/src/Layers/xrRender/DetailManager.cpp +++ b/src/Layers/xrRender/DetailManager.cpp @@ -87,11 +87,76 @@ CDetailManager::CDetailManager () m_time_rot_2 = 0; m_time_pos = 0; m_global_time_old = 0; + +#ifdef DETAIL_RADIUS + // KD: variable detail radius + dm_size = dm_current_size; + dm_cache_line = dm_current_cache_line; + dm_cache1_line = dm_current_cache1_line; + dm_cache_size = dm_current_cache_size; + dm_fade = dm_current_fade; + ps_r__Detail_density = ps_current_detail_density; + cache_level1 = (CacheSlot1**) Memory.mem_alloc(dm_cache1_line*sizeof(CacheSlot1*) +#ifdef USE_MEMORY_MONITOR + , "CDetailManager::cache_level1" +#endif + ); + for (u32 i = 0; i < dm_cache1_line; ++i) + { + cache_level1[i] = (CacheSlot1*) Memory.mem_alloc(dm_cache1_line*sizeof(CacheSlot1) +#ifdef USE_MEMORY_MONITOR + , "CDetailManager::cache_level1 " + i +#endif + ); + for (u32 j = 0; j < dm_cache1_line; ++j) + new (&(cache_level1[i][j])) CacheSlot1(); + } + + cache = (Slot***) Memory.mem_alloc(dm_cache_line*sizeof(Slot**) +#ifdef USE_MEMORY_MONITOR + , "CDetailManager::cache" +#endif + ); + for (u32 i = 0; i < dm_cache_line; ++i) + cache[i] = (Slot**) Memory.mem_alloc(dm_cache_line*sizeof(Slot*) +#ifdef USE_MEMORY_MONITOR + , "CDetailManager::cache " + i +#endif + ); + + cache_pool = (Slot *) Memory.mem_alloc(dm_cache_size*sizeof(Slot) +#ifdef USE_MEMORY_MONITOR + , "CDetailManager::cache_pool" +#endif + ); + for (u32 i = 0; i < dm_cache_size; ++i) + new (&(cache_pool[i])) Slot(); + /* + CacheSlot1 cache_level1[dm_cache1_line][dm_cache1_line]; + Slot* cache [dm_cache_line][dm_cache_line]; // grid-cache itself + Slot cache_pool [dm_cache_size]; // just memory for slots */ +#endif } CDetailManager::~CDetailManager () { - +#ifdef DETAIL_RADIUS + for (u32 i = 0; i < dm_cache_size; ++i) + cache_pool[i].~Slot(); + Memory.mem_free(cache_pool); + + for (u32 i = 0; i < dm_cache_line; ++i) + Memory.mem_free(cache[i]); + Memory.mem_free(cache); + + for (u32 i = 0; i < dm_cache1_line; ++i) + { + for (u32 j = 0; j < dm_cache1_line; ++j) + cache_level1[i][j].~CacheSlot1(); + Memory.mem_free(cache_level1[i]); + } + Memory.mem_free(cache_level1); +#endif } /* */ diff --git a/src/Layers/xrRender/DetailManager.h b/src/Layers/xrRender/DetailManager.h index ff5a72e8932..852e97d9ebd 100644 --- a/src/Layers/xrRender/DetailManager.h +++ b/src/Layers/xrRender/DetailManager.h @@ -24,16 +24,42 @@ #else const int dm_max_decompress = 7; #endif -const int dm_size = 24; //! +//const int dm_size = 24; //! const int dm_cache1_count = 4; // -const int dm_cache1_line = dm_size*2/dm_cache1_count; //! dm_size*2 must be div dm_cache1_count +//const int dm_cache1_line = dm_size*2/dm_cache1_count; //! dm_size*2 must be div dm_cache1_count const int dm_max_objects = 64; const int dm_obj_in_slot = 4; -const int dm_cache_line = dm_size+1+dm_size; -const int dm_cache_size = dm_cache_line*dm_cache_line; -const float dm_fade = float(2*dm_size)-.5f; +//const int dm_cache_line = dm_size+1+dm_size; +//const int dm_cache_size = dm_cache_line*dm_cache_line; +//const float dm_fade = float(2*dm_size)-.5f; const float dm_slot_size = DETAIL_SLOT_SIZE; + +//AVO: detail radius +#include "../../build_config_defines.h" +#ifdef DETAIL_RADIUS +const u32 dm_max_cache_size = 62001; // assuming max dm_size = 124 +extern u32 dm_size; +extern u32 dm_cache1_line; +extern u32 dm_cache_line; +extern u32 dm_cache_size; +extern float dm_fade; +extern u32 dm_current_size;// = iFloor((float)ps_r__detail_radius/4)*2; //! +extern u32 dm_current_cache1_line;// = dm_current_size*2/dm_cache1_count; //! dm_current_size*2 must be div dm_cache1_count +extern u32 dm_current_cache_line;// = dm_current_size+1+dm_current_size; +extern u32 dm_current_cache_size;// = dm_current_cache_line*dm_current_cache_line; +extern float dm_current_fade;// = float(2*dm_current_size)-.5f; +extern float ps_current_detail_density; +#else +const int dm_size = 24; //! +const int dm_cache1_line = dm_size * 2 / dm_cache1_count; //! dm_size*2 must be div dm_cache1_count +const int dm_cache_line = dm_size + 1 + dm_size; +const int dm_cache_size = dm_cache_line * dm_cache_line; +const float dm_fade = float(2 * dm_size) - .5f; +#endif + + + class ECORE_API CDetailManager { public: @@ -114,10 +140,24 @@ class ECORE_API CDetailManager #ifndef _EDITOR xrXRC xrc; #endif - CacheSlot1 cache_level1[dm_cache1_line][dm_cache1_line]; - Slot* cache [dm_cache_line][dm_cache_line]; // grid-cache itself - svector cache_task; // non-unpacked slots - Slot cache_pool [dm_cache_size]; // just memory for slots + //AVO: detail draw raius + //CacheSlot1 cache_level1[dm_cache1_line][dm_cache1_line]; + //Slot* cache [dm_cache_line][dm_cache_line]; // grid-cache itself + //svector cache_task; // non-unpacked slots + //Slot cache_pool [dm_cache_size]; // just memory for slots + +#ifdef DETAIL_RADIUS + CacheSlot1** cache_level1; + Slot*** cache; // grid-cache itself + svector cache_task; // non-unpacked slots + Slot* cache_pool; // just memory for slots +#else + CacheSlot1 cache_level1[dm_cache1_line][dm_cache1_line]; + Slot* cache[dm_cache_line][dm_cache_line]; // grid-cache itself + svector cache_task; // non-unpacked slots + Slot cache_pool[dm_cache_size]; // just memory for slots*/ +#endif + int cache_cx; int cache_cz; diff --git a/src/Layers/xrRender/xrRender_console.cpp b/src/Layers/xrRender/xrRender_console.cpp index 48c8c9fb5fd..0332935e49b 100644 --- a/src/Layers/xrRender/xrRender_console.cpp +++ b/src/Layers/xrRender/xrRender_console.cpp @@ -4,6 +4,8 @@ #include "xrRender_console.h" #include "dxRenderDeviceRender.h" +#include "../../build_config_defines.h" + u32 ps_Preset = 2 ; xr_token qpreset_token [ ]={ { "Minimum", 0 }, @@ -224,6 +226,32 @@ float ps_r3_dyn_wet_surf_near = 10.f; // 10.0f float ps_r3_dyn_wet_surf_far = 30.f; // 30.0f int ps_r3_dyn_wet_surf_sm_res = 256; // 256 +//AVO: detail draw radius +Flags32 ps_common_flags = {0}; // r1-only +u32 ps_steep_parallax = 0; +int ps_r__detail_radius = 49; +#ifdef DETAIL_RADIUS // управление радиусом отрисовки травы +u32 dm_size = 24; +u32 dm_cache1_line = 12; //dm_size*2/dm_cache1_count +u32 dm_cache_line = 49; //dm_size+1+dm_size +u32 dm_cache_size = 2401; //dm_cache_line*dm_cache_line +float dm_fade = 47.5; //float(2*dm_size)-.5f; +u32 dm_current_size = 24; +u32 dm_current_cache1_line = 12; //dm_current_size*2/dm_cache1_count +u32 dm_current_cache_line = 49; //dm_current_size+1+dm_current_size +u32 dm_current_cache_size = 2401; //dm_current_cache_line*dm_current_cache_line +float dm_current_fade = 47.5; //float(2*dm_current_size)-.5f; +#endif +float ps_current_detail_density = 0.6; +xr_token ext_quality_token[] = { + {"qt_off", 0}, + {"qt_low", 1}, + {"qt_medium", 2}, + {"qt_high", 3}, + {"qt_extreme", 4}, + {0, 0} +}; +//-AVO //- Mad Max float ps_r2_gloss_factor = 4.0f; @@ -237,6 +265,34 @@ float ps_r2_gloss_factor = 4.0f; #endif // USE_DX10 //----------------------------------------------------------------------- +//AVO: detail draw radius +#ifdef DETAIL_RADIUS +class CCC_detail_radius : public CCC_Integer +{ +public: + void apply() + { + dm_current_size = iFloor((float) ps_r__detail_radius / 4) * 2; + dm_current_cache1_line = dm_current_size * 2 / 4; // assuming cache1_count = 4 + dm_current_cache_line = dm_current_size + 1 + dm_current_size; + dm_current_cache_size = dm_current_cache_line*dm_current_cache_line; + dm_current_fade = float(2 * dm_current_size) - .5f; + } + CCC_detail_radius(LPCSTR N, int* V, int _min = 0, int _max = 999) : CCC_Integer(N, V, _min, _max) + {}; + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + apply(); + } + virtual void Status(TStatus& S) + { + CCC_Integer::Status(S); + } +}; +//-AVO +#endif + class CCC_tf_Aniso : public CCC_Integer { public: @@ -681,11 +737,11 @@ void xrRender_initconsole () Fvector tw_min,tw_max; - CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, 1.2f ); + CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, /*1.2f*/ 3.f ); //AVO: extended from 1.2f to 3.f //. CMD4(CCC_Float, "r__geometry_lod_pow", &ps_r__LOD_Power, 0, 2 ); //. CMD4(CCC_Float, "r__detail_density", &ps_r__Detail_density, .05f, 0.99f ); - CMD4(CCC_Float, "r__detail_density", &ps_r__Detail_density, .2f, 0.6f ); + CMD4(CCC_Float, "r__detail_density", &ps_current_detail_density/*&ps_r__Detail_density*/, 0.04f/*.2f*/, 0.6f); //AVO: extended from 0.2 to 0.04 and replaced variable #ifdef DEBUG CMD4(CCC_Float, "r__detail_l_ambient", &ps_r__Detail_l_ambient, .5f, .95f ); @@ -772,7 +828,7 @@ void xrRender_initconsole () CMD3(CCC_Mask, "r2_sun_tsm", &ps_r2_ls_flags, R2FLAG_SUN_TSM ); CMD4(CCC_Float, "r2_sun_tsm_proj", &ps_r2_sun_tsm_projection, .001f, 0.8f ); CMD4(CCC_Float, "r2_sun_tsm_bias", &ps_r2_sun_tsm_bias, -0.5, +0.5 ); - CMD4(CCC_Float, "r2_sun_near", &ps_r2_sun_near, 1.f, 50.f ); + CMD4(CCC_Float, "r2_sun_near", &ps_r2_sun_near, 1.f, /*50.f*/150.f ); //AVO: extended from 50 to 150 #if RENDER!=R_R1 CMD4(CCC_Float, "r2_sun_far", &OLES_SUN_LIMIT_27_01_07, 51.f, 180.f ); #endif @@ -869,7 +925,9 @@ void xrRender_initconsole () CMD3(CCC_Token, "r3_msaa_alphatest", &ps_r3_msaa_atest, qmsaa__atest_token); CMD3(CCC_Token, "r3_minmax_sm", &ps_r3_minmax_sm, qminmax_sm_token); - +#ifdef DETAIL_RADIUS + CMD4(CCC_detail_radius, "r__detail_radius", &ps_r__detail_radius, 49, 300); +#endif // Allow real-time fog config reload #if (RENDER == R_R3) || (RENDER == R_R4) diff --git a/src/Layers/xrRenderPC_R1/FStaticRender.cpp b/src/Layers/xrRenderPC_R1/FStaticRender.cpp index 697dc0de165..cbe17ca0e57 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender.cpp @@ -122,7 +122,13 @@ void CRender::destroy () void CRender::reset_begin () { - xr_delete (Target); + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details->Unload(); + xr_delete(Details); + } + xr_delete(Target); //. HWOCC.occq_destroy (); } diff --git a/src/Layers/xrRenderPC_R2/r2.cpp b/src/Layers/xrRenderPC_R2/r2.cpp index f1ad8fd9ad6..3dcaf00ec46 100644 --- a/src/Layers/xrRenderPC_R2/r2.cpp +++ b/src/Layers/xrRenderPC_R2/r2.cpp @@ -321,6 +321,14 @@ void CRender::reset_begin() Lights_LastFrame.clear (); } + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details->Unload(); + xr_delete(Details); + } + //-AVO + xr_delete (Target); HWOCC.occq_destroy (); //_RELEASE (q_sync_point[1]); @@ -339,6 +347,14 @@ void CRender::reset_end() Target = xr_new (); + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details = xr_new(); + Details->Load(); + } + //-AVO + xrRender_apply_tf (); // Set this flag true to skip the first render frame, diff --git a/src/Layers/xrRenderPC_R3/r3.cpp b/src/Layers/xrRenderPC_R3/r3.cpp index 072c088f5b2..ff5414799da 100644 --- a/src/Layers/xrRenderPC_R3/r3.cpp +++ b/src/Layers/xrRenderPC_R3/r3.cpp @@ -440,6 +440,14 @@ void CRender::reset_begin() Lights_LastFrame.clear (); } + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details->Unload(); + xr_delete(Details); + } + //-AVO + xr_delete (Target); HWOCC.occq_destroy (); //_RELEASE (q_sync_point[1]); @@ -466,6 +474,14 @@ void CRender::reset_end() Target = xr_new (); + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details = xr_new(); + Details->Load(); + } + //-AVO + xrRender_apply_tf (); FluidManager.SetScreenSize(Device.dwWidth, Device.dwHeight); diff --git a/src/Layers/xrRenderPC_R4/r4.cpp b/src/Layers/xrRenderPC_R4/r4.cpp index da78151a5ee..22082741d39 100644 --- a/src/Layers/xrRenderPC_R4/r4.cpp +++ b/src/Layers/xrRenderPC_R4/r4.cpp @@ -454,6 +454,14 @@ void CRender::reset_begin() Lights_LastFrame.clear (); } + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details->Unload(); + xr_delete(Details); + } + //-AVO + xr_delete (Target); HWOCC.occq_destroy (); //_RELEASE (q_sync_point[1]); @@ -480,6 +488,14 @@ void CRender::reset_end() Target = xr_new (); + //AVO: let's reload details while changed details options on vid_restart + if (b_loaded && ((dm_current_size != dm_size) || (ps_r__Detail_density != ps_current_detail_density))) + { + Details = xr_new(); + Details->Load(); + } + //-AVO + xrRender_apply_tf (); FluidManager.SetScreenSize(Device.dwWidth, Device.dwHeight); diff --git a/src/build_config_defines.h b/src/build_config_defines.h index a3af7271e75..84ab5380060 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -7,4 +7,5 @@ #define FP_DEATH // first person death view #define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) #define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) -#define NON_FATAL_VERIFY // don't crash game when VERIFY fails \ No newline at end of file +#define NON_FATAL_VERIFY // don't crash game when VERIFY fails +#define DETAIL_RADIUS // detail draw radius (by KD) \ No newline at end of file From f2451401b3c998fcc9ba87ec28b96b0b3fbbf418 Mon Sep 17 00:00:00 2001 From: Swartz27 Date: Sat, 3 Jan 2015 12:53:23 -0500 Subject: [PATCH 052/166] +Actor shadow added +SE_NEAR changed from 9 to 20 +snd_reload_empty added +zoom_dof enabled +reload_dof and reload_empty_dof added +anm_idle_moving_crouch, anm_idle_moving_crouch_g, anm_idle_moving_crouch_w_gl added +Full auto pistols that show proper empty anim +Revolver animation set added (uses WP_WALTHER class) --- src/Layers/xrRender/r__dsgraph_render.cpp | 5 + src/Layers/xrRender/xrRender_console.cpp | 6 +- src/Layers/xrRender/xrRender_console.h | 7 + src/Layers/xrRenderPC_R1/FStaticRender.h | 2 +- src/Layers/xrRenderPC_R2/r2.h | 2 +- src/Layers/xrRenderPC_R2/r2_R_sun.cpp | 2 +- src/Layers/xrRenderPC_R3/r2_R_sun.cpp | 2 +- src/Layers/xrRenderPC_R3/r3.h | 2 +- src/Layers/xrRenderPC_R4/r2_R_sun.cpp | 2 +- src/Layers/xrRenderPC_R4/r4.h | 2 +- src/xrEngine/CustomHUD.h | 2 +- src/xrEngine/Render.h | 2 +- src/xrGame/Actor.cpp | 24 ++- src/xrGame/Actor.h | 2 +- src/xrGame/HUDManager.cpp | 13 ++ src/xrGame/HUDManager.h | 3 +- src/xrGame/HudItem.cpp | 13 +- src/xrGame/Weapon.cpp | 45 ++++-- src/xrGame/Weapon.h | 7 +- src/xrGame/WeaponCustomAuto.cpp | 28 ++++ src/xrGame/WeaponCustomAuto.h | 16 ++ src/xrGame/WeaponMagazined.cpp | 24 ++- src/xrGame/WeaponMagazined.h | 1 + src/xrGame/WeaponMagazinedWGrenade.cpp | 20 ++- src/xrGame/WeaponPistol.h | 6 +- src/xrGame/WeaponRPG7.h | 3 +- src/xrGame/WeaponRevolver.cpp | 176 ++++++++++++++++++++++ src/xrGame/WeaponRevolver.h | 38 +++++ src/xrGame/WeaponWalther.h | 2 +- src/xrGame/script_game_object.cpp | 17 +++ src/xrGame/xrGame.vcxproj | 4 + src/xrGame/xrGame.vcxproj.filters | 6 + 32 files changed, 430 insertions(+), 54 deletions(-) create mode 100644 src/xrGame/WeaponCustomAuto.cpp create mode 100644 src/xrGame/WeaponCustomAuto.h create mode 100644 src/xrGame/WeaponRevolver.cpp create mode 100644 src/xrGame/WeaponRevolver.h diff --git a/src/Layers/xrRender/r__dsgraph_render.cpp b/src/Layers/xrRender/r__dsgraph_render.cpp index 5848d117a2b..f1648ea76ea 100644 --- a/src/Layers/xrRender/r__dsgraph_render.cpp +++ b/src/Layers/xrRender/r__dsgraph_render.cpp @@ -715,6 +715,11 @@ void R_dsgraph_structure::r_dsgraph_render_subspace (IRender_Sector* _sector, CF renderable->renderable_Render (); } } +#if RENDER!=R_R1 +if (g_pGameLevel && (phase==RImplementation.PHASE_SMAP) && ps_actor_shadow_flags.test(RFLAG_ACTOR_SHADOW)) g_hud->Render_Actor_Shadow(); // Actor Shadow +#endif + + } // Restore diff --git a/src/Layers/xrRender/xrRender_console.cpp b/src/Layers/xrRender/xrRender_console.cpp index 48c8c9fb5fd..9c684dcb736 100644 --- a/src/Layers/xrRender/xrRender_console.cpp +++ b/src/Layers/xrRender/xrRender_console.cpp @@ -224,7 +224,7 @@ float ps_r3_dyn_wet_surf_near = 10.f; // 10.0f float ps_r3_dyn_wet_surf_far = 30.f; // 30.0f int ps_r3_dyn_wet_surf_sm_res = 256; // 256 - +Flags32 ps_actor_shadow_flags = { 0 }; //- Mad Max float ps_r2_gloss_factor = 4.0f; //- Mad Max @@ -681,7 +681,7 @@ void xrRender_initconsole () Fvector tw_min,tw_max; - CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, 1.2f ); + CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, 3.0f ); //. CMD4(CCC_Float, "r__geometry_lod_pow", &ps_r__LOD_Power, 0, 2 ); //. CMD4(CCC_Float, "r__detail_density", &ps_r__Detail_density, .05f, 0.99f ); @@ -751,7 +751,7 @@ void xrRender_initconsole () CMD3(CCC_Mask, "r2_zfill", &ps_r2_ls_flags, R2FLAG_ZFILL ); CMD4(CCC_Float, "r2_zfill_depth", &ps_r2_zfill, .001f, .5f ); CMD3(CCC_Mask, "r2_allow_r1_lights", &ps_r2_ls_flags, R2FLAG_R1LIGHTS ); - + CMD3(CCC_Mask, "r__actor_shadow", &ps_actor_shadow_flags, RFLAG_ACTOR_SHADOW ); //Swartz //- Mad Max CMD4(CCC_Float, "r2_gloss_factor", &ps_r2_gloss_factor, .0f, 10.f ); //- Mad Max diff --git a/src/Layers/xrRender/xrRender_console.h b/src/Layers/xrRender/xrRender_console.h index 2314f836dbe..429f7b7fe70 100644 --- a/src/Layers/xrRender/xrRender_console.h +++ b/src/Layers/xrRender/xrRender_console.h @@ -195,6 +195,13 @@ enum R2FLAGEXT_SUN_OLD = (1<<9), }; +extern ECORE_API Flags32 ps_actor_shadow_flags; + +enum +{ +RFLAG_ACTOR_SHADOW = (1<<0), +}; + extern void xrRender_initconsole (); extern BOOL xrRender_test_hw (); extern void xrRender_apply_tf (); diff --git a/src/Layers/xrRenderPC_R1/FStaticRender.h b/src/Layers/xrRenderPC_R1/FStaticRender.h index 61d51340cff..e8e3491028c 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender.h +++ b/src/Layers/xrRenderPC_R1/FStaticRender.h @@ -207,7 +207,7 @@ class CRender : public R_dsgraph_structure virtual void rmNear (); virtual void rmFar (); virtual void rmNormal (); - + virtual u32 active_phase () {return phase;}; // Constructor/destructor/loader CRender (); virtual ~CRender (); diff --git a/src/Layers/xrRenderPC_R2/r2.h b/src/Layers/xrRenderPC_R2/r2.h index ab966d06be3..9dc279403af 100644 --- a/src/Layers/xrRenderPC_R2/r2.h +++ b/src/Layers/xrRenderPC_R2/r2.h @@ -306,7 +306,7 @@ class CRender : public R_dsgraph_structure virtual void rmNear (); virtual void rmFar (); virtual void rmNormal (); - + virtual u32 active_phase () {return phase;}; // Constructor/destructor/loader CRender (); virtual ~CRender (); diff --git a/src/Layers/xrRenderPC_R2/r2_R_sun.cpp b/src/Layers/xrRenderPC_R2/r2_R_sun.cpp index bad8fa3d67a..1fc83eb26da 100644 --- a/src/Layers/xrRenderPC_R2/r2_R_sun.cpp +++ b/src/Layers/xrRenderPC_R2/r2_R_sun.cpp @@ -1410,7 +1410,7 @@ void CRender::init_cacades ( ) float fBias = -0.0000025f; // float size = MAP_SIZE_START; m_sun_cascades[0].reset_chain = true; - m_sun_cascades[0].size = 9; + m_sun_cascades[0].size = 20; m_sun_cascades[0].bias = m_sun_cascades[0].size*fBias; m_sun_cascades[1].size = 40; diff --git a/src/Layers/xrRenderPC_R3/r2_R_sun.cpp b/src/Layers/xrRenderPC_R3/r2_R_sun.cpp index 71ed0e41044..dd6e6162add 100644 --- a/src/Layers/xrRenderPC_R3/r2_R_sun.cpp +++ b/src/Layers/xrRenderPC_R3/r2_R_sun.cpp @@ -1015,7 +1015,7 @@ void CRender::init_cacades ( ) float fBias = -0.0000025f; // float size = MAP_SIZE_START; m_sun_cascades[0].reset_chain = true; - m_sun_cascades[0].size = 9; + m_sun_cascades[0].size = 20; m_sun_cascades[0].bias = m_sun_cascades[0].size*fBias; m_sun_cascades[1].size = 40; diff --git a/src/Layers/xrRenderPC_R3/r3.h b/src/Layers/xrRenderPC_R3/r3.h index f1d7964123b..6e271145893 100644 --- a/src/Layers/xrRenderPC_R3/r3.h +++ b/src/Layers/xrRenderPC_R3/r3.h @@ -340,7 +340,7 @@ class CRender : public R_dsgraph_structure virtual void rmNear (); virtual void rmFar (); virtual void rmNormal (); - + virtual u32 active_phase () {return phase;}; // Constructor/destructor/loader CRender (); virtual ~CRender (); diff --git a/src/Layers/xrRenderPC_R4/r2_R_sun.cpp b/src/Layers/xrRenderPC_R4/r2_R_sun.cpp index 2a5b0ec3b4f..e2c7d0b2b7c 100644 --- a/src/Layers/xrRenderPC_R4/r2_R_sun.cpp +++ b/src/Layers/xrRenderPC_R4/r2_R_sun.cpp @@ -1015,7 +1015,7 @@ void CRender::init_cacades ( ) float fBias = -0.0000025f; // float size = MAP_SIZE_START; m_sun_cascades[0].reset_chain = true; - m_sun_cascades[0].size = 9; + m_sun_cascades[0].size = 20; m_sun_cascades[0].bias = m_sun_cascades[0].size*fBias; m_sun_cascades[1].size = 40; diff --git a/src/Layers/xrRenderPC_R4/r4.h b/src/Layers/xrRenderPC_R4/r4.h index fc725ccdb7a..69c76061840 100644 --- a/src/Layers/xrRenderPC_R4/r4.h +++ b/src/Layers/xrRenderPC_R4/r4.h @@ -341,7 +341,7 @@ class CRender : public R_dsgraph_structure virtual void rmNear (); virtual void rmFar (); virtual void rmNormal (); - + virtual u32 active_phase () {return phase;}; // Constructor/destructor/loader CRender (); virtual ~CRender (); diff --git a/src/xrEngine/CustomHUD.h b/src/xrEngine/CustomHUD.h index 828b24c9e91..f31651c84d8 100644 --- a/src/xrEngine/CustomHUD.h +++ b/src/xrEngine/CustomHUD.h @@ -30,7 +30,7 @@ class ENGINE_API CCustomHUD : virtual void Render_First() { ; } virtual void Render_Last() { ; } - + virtual void Render_Actor_Shadow (){;} BENCH_SEC_SCRAMBLEVTBL1 virtual void OnFrame() { ; } diff --git a/src/xrEngine/Render.h b/src/xrEngine/Render.h index 8c7d729cecf..62f22aef28f 100644 --- a/src/xrEngine/Render.h +++ b/src/xrEngine/Render.h @@ -297,7 +297,7 @@ class ENGINE_API IRender_interface virtual void rmFar() = 0; virtual void rmNormal() = 0; virtual u32 memory_usage() = 0; - + virtual u32 active_phase () = 0; // Constructor/destructor virtual ~IRender_interface(); protected: diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 831e114738d..4d4d3533a0b 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -1448,15 +1448,23 @@ void CActor::shedule_Update(u32 DT) Check_for_AutoPickUp(); }; #include "debug_renderer.h" -void CActor::renderable_Render() +void CActor::renderable_Render () { - VERIFY(_valid(XFORM())); - inherited::renderable_Render(); - if (1/*!HUDview()*/) - { - CInventoryOwner::renderable_Render(); - } - VERIFY(_valid(XFORM())); + VERIFY(_valid(XFORM())); + inherited::renderable_Render (); + //if(1/*!HUDview()*/) +if ((cam_active==eacFirstEye && // first eye cam +::Render->get_generation() == ::Render->GENERATION_R2 && // R2 +::Render->active_phase() == 1) // shadow map rendering on R2 +|| +!(IsFocused() && +(cam_active==eacFirstEye) && +((!m_holder) || (m_holder && m_holder->allowWeapon() && m_holder->HUDView()))) +) + //{ + CInventoryOwner::renderable_Render (); + //} + //VERIFY(_valid(XFORM())); } BOOL CActor::renderable_ShadowGenerate() diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index 46a619a806e..b566f77e820 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -311,7 +311,7 @@ struct SDefNewsMsg{ CActorCameraManager& Cameras () {VERIFY(m_pActorEffector); return *m_pActorEffector;} IC CCameraBase* cam_Active () {return cameras[cam_active];} IC CCameraBase* cam_FirstEye () {return cameras[eacFirstEye];} - + IC EActorCameras active_cam () {return cam_active;} // KD: need to know which cam active outside actor methods protected: virtual void cam_Set (EActorCameras style); void cam_Update (float dt, float fFOV); diff --git a/src/xrGame/HUDManager.cpp b/src/xrGame/HUDManager.cpp index a307096bfce..9bf47280263 100644 --- a/src/xrGame/HUDManager.cpp +++ b/src/xrGame/HUDManager.cpp @@ -208,6 +208,19 @@ void CHUDManager::Render_Last() ::Render->set_HUD (FALSE); } +void CHUDManager::Render_Actor_Shadow() // added by KD +{ +if (0==pUIGame) return; +CObject* O = g_pGameLevel->CurrentViewEntity(); +if (0==O) return; +CActor* A = smart_cast (O); +if (!A) return; +if (A->active_cam() != eacFirstEye) return; // KD: we need to render actor shadow only in first eye cam mode because +// in other modes actor model already in scene graph and renders well +::Render->set_Object (O->H_Root()); +O->renderable_Render (); +} + #include "player_hud.h" bool CHUDManager::RenderActiveItemUIQuery() { diff --git a/src/xrGame/HUDManager.h b/src/xrGame/HUDManager.h index 43dbd0250ea..6e3eebced73 100644 --- a/src/xrGame/HUDManager.h +++ b/src/xrGame/HUDManager.h @@ -22,7 +22,8 @@ class CHUDManager : virtual void OnEvent (EVENT E, u64 P1, u64 P2); virtual void Render_First (); - virtual void Render_Last (); + virtual void Render_Last (); + virtual void Render_Actor_Shadow (); // added by KD virtual void OnFrame (); virtual void RenderUI (); diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index baf75b0b42d..5667803416c 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -361,7 +361,7 @@ bool CHudItem::TryPlayAnimIdle() PlayAnimIdleSprint(); return true; }else - if(!st.bCrouch && pActor->AnyMove()) + if(pActor->AnyMove()) { PlayAnimIdleMoving(); return true; @@ -373,7 +373,16 @@ bool CHudItem::TryPlayAnimIdle() void CHudItem::PlayAnimIdleMoving() { - PlayHUDMotion("anm_idle_moving", TRUE, NULL, GetState()); + CActor* pActor = smart_cast(object().H_Parent()); + if(pActor) + { + CEntity::SEntityState st; + pActor->g_State(st); + if(st.bCrouch) + PlayHUDMotion("anm_idle_moving_crouch", TRUE, NULL, GetState()); + else + PlayHUDMotion("anm_idle_moving", TRUE, NULL, GetState()); + } } void CHudItem::PlayAnimIdleSprint() diff --git a/src/xrGame/Weapon.cpp b/src/xrGame/Weapon.cpp index 18e5ec3e1ed..a90a5a3be3d 100644 --- a/src/xrGame/Weapon.cpp +++ b/src/xrGame/Weapon.cpp @@ -462,12 +462,13 @@ void CWeapon::Load (LPCSTR section) Fvector def_dof; def_dof.set (-1,-1,-1); -// m_zoom_params.m_ZoomDof = READ_IF_EXISTS(pSettings, r_fvector3, section, "zoom_dof", Fvector().set(-1,-1,-1)); -// m_zoom_params.m_bZoomDofEnabled = !def_dof.similar(m_zoom_params.m_ZoomDof); - -// m_zoom_params.m_ReloadDof = READ_IF_EXISTS(pSettings, r_fvector4, section, "reload_dof", Fvector4().set(-1,-1,-1,-1)); + m_zoom_params.m_ZoomDof = READ_IF_EXISTS(pSettings, r_fvector3, section, "zoom_dof", Fvector().set(-1,-1,-1)); + m_zoom_params.m_bZoomDofEnabled = !def_dof.similar(m_zoom_params.m_ZoomDof); + m_zoom_params.m_ReloadDof = READ_IF_EXISTS(pSettings, r_fvector4, section, "reload_dof", Fvector4().set(-1,-1,-1,-1)); + m_zoom_params.m_ReloadEmptyDof = READ_IF_EXISTS(pSettings, r_fvector4, section, "reload_empty_dof", Fvector4().set(-1,-1,-1,-1)); + m_bHasTracers = !!READ_IF_EXISTS(pSettings, r_bool, section, "tracers", true); m_u8TracerColorID = READ_IF_EXISTS(pSettings, r_u8, section, "tracers_color_ID", u8(-1)); @@ -1377,8 +1378,8 @@ void CWeapon::OnZoomIn() EnableHudInertion (FALSE); - //if(m_zoom_params.m_bZoomDofEnabled && !IsScopeAttached()) - // GamePersistent().SetEffectorDOF (m_zoom_params.m_ZoomDof); + if(m_zoom_params.m_bZoomDofEnabled && !IsScopeAttached()) + GamePersistent().SetEffectorDOF (m_zoom_params.m_ZoomDof); if(GetHUDmode()) GamePersistent().SetPickableEffectorDOF(true); @@ -1406,7 +1407,7 @@ void CWeapon::OnZoomOut() m_zoom_params.m_fCurrentZoomFactor = g_fov; EnableHudInertion (TRUE); -// GamePersistent().RestoreEffectorDOF (); + GamePersistent().RestoreEffectorDOF (); if(GetHUDmode()) GamePersistent().SetPickableEffectorDOF(false); @@ -1859,15 +1860,27 @@ void CWeapon::OnStateSwitch (u32 S) inherited::OnStateSwitch(S); m_BriefInfo_CalcFrame = 0; - //if(GetState()==eReload) - //{ - // if(H_Parent()==Level().CurrentEntity() && !fsimilar(m_zoom_params.m_ReloadDof.w,-1.0f)) - // { - // CActor* current_actor = smart_cast(H_Parent()); - // if (current_actor) - // current_actor->Cameras().AddCamEffector(xr_new(m_zoom_params.m_ReloadDof) ); - // } - //} + if(GetState()==eReload) + { + if (iAmmoElapsed==0) + { + if(H_Parent()==Level().CurrentEntity() && !fsimilar(m_zoom_params.m_ReloadEmptyDof.w,-1.0f)) + { + CActor* current_actor = smart_cast(H_Parent()); + if (current_actor) + current_actor->Cameras().AddCamEffector(xr_new(m_zoom_params.m_ReloadEmptyDof) ); + } + } + else + { + if(H_Parent()==Level().CurrentEntity() && !fsimilar(m_zoom_params.m_ReloadDof.w,-1.0f)) + { + CActor* current_actor = smart_cast(H_Parent()); + if (current_actor) + current_actor->Cameras().AddCamEffector(xr_new(m_zoom_params.m_ReloadDof) ); + } + } + } } void CWeapon::OnAnimationEnd(u32 state) diff --git a/src/xrGame/Weapon.h b/src/xrGame/Weapon.h index 41dce7c0d39..bc109725ecc 100644 --- a/src/xrGame/Weapon.h +++ b/src/xrGame/Weapon.h @@ -195,7 +195,7 @@ class CWeapon : public CHudItemObject, { bool m_bZoomEnabled; //разрешение режима приближения bool m_bHideCrosshairInZoom; -// bool m_bZoomDofEnabled; + bool m_bZoomDofEnabled; bool m_bIsZoomModeNow; //когда режим приближения включен float m_fCurrentZoomFactor; //текущий фактор приближения @@ -206,8 +206,9 @@ class CWeapon : public CHudItemObject, float m_fZoomRotationFactor; -// Fvector m_ZoomDof; -// Fvector4 m_ReloadDof; + Fvector m_ZoomDof; + Fvector4 m_ReloadDof; + Fvector4 m_ReloadEmptyDof; BOOL m_bUseDynamicZoom; shared_str m_sUseZoomPostprocess; shared_str m_sUseBinocularVision; diff --git a/src/xrGame/WeaponCustomAuto.cpp b/src/xrGame/WeaponCustomAuto.cpp new file mode 100644 index 00000000000..f4270e1ab64 --- /dev/null +++ b/src/xrGame/WeaponCustomAuto.cpp @@ -0,0 +1,28 @@ +#include "stdafx.h" + +#include "Entity.h" +#include "WeaponCustomAuto.h" + +CWeaponAutoPistol::CWeaponAutoPistol() : CWeaponMagazined(SOUND_TYPE_WEAPON_PISTOL) +{ +} + +CWeaponAutoPistol::~CWeaponAutoPistol() +{ +} +void CWeaponAutoPistol::switch2_Fire () +{ + m_bFireSingleShot = true; + //bWorking = false; + m_iShotNum = 0; + m_bStopedAfterQueueFired = false; +} + +void CWeaponAutoPistol::FireEnd() +{ + //if(fShotTimeCounter<=0) + //{ + //SetPending (FALSE); + inherited::FireEnd (); + //} +} \ No newline at end of file diff --git a/src/xrGame/WeaponCustomAuto.h b/src/xrGame/WeaponCustomAuto.h new file mode 100644 index 00000000000..6d92de25701 --- /dev/null +++ b/src/xrGame/WeaponCustomAuto.h @@ -0,0 +1,16 @@ +#pragma once + +#include "WeaponMagazined.h" + +class CWeaponAutoPistol: public CWeaponMagazined +{ +private: + typedef CWeaponMagazined inherited; +public: + CWeaponAutoPistol (); + virtual ~CWeaponAutoPistol(); + //virtual int GetCurrentFireMode () { return 1; }; +protected: + virtual void FireEnd (); + virtual void switch2_Fire (); +}; diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index afbd0650ffe..0ac13fc9672 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -42,6 +42,7 @@ CWeaponMagazined::CWeaponMagazined(ESoundTypes eSoundType) : CWeapon() m_eSoundShot = ESoundTypes(SOUND_TYPE_WEAPON_SHOOTING | eSoundType); m_eSoundEmptyClick = ESoundTypes(SOUND_TYPE_WEAPON_EMPTY_CLICKING | eSoundType); m_eSoundReload = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); + m_eSoundReloadEmpty = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); m_sounds_enabled = true; m_sSndShotCurrent = NULL; @@ -76,7 +77,7 @@ void CWeaponMagazined::Load (LPCSTR section) m_sounds.LoadSound(section,"snd_shoot", "sndShot" , false, m_eSoundShot ); m_sounds.LoadSound(section,"snd_empty", "sndEmptyClick" , false, m_eSoundEmptyClick ); m_sounds.LoadSound(section,"snd_reload", "sndReload" , true, m_eSoundReload ); - + m_sounds.LoadSound(section,"snd_reload_empty", "sndReloadEmpty" , true, m_eSoundReloadEmpty ); m_sSndShotCurrent = "sndShot"; //звуки и партиклы глушителя, еслит такой есть @@ -464,6 +465,7 @@ void CWeaponMagazined::UpdateSounds () m_sounds.SetPosition("sndHide", P); //. nah m_sounds.SetPosition("sndShot", P); m_sounds.SetPosition("sndReload", P); + m_sounds.SetPosition("sndReloadEmpty", P); //. nah m_sounds.SetPosition("sndEmptyClick", P); } @@ -720,7 +722,14 @@ void CWeaponMagazined::switch2_Empty() void CWeaponMagazined::PlayReloadSound() { if(m_sounds_enabled) - PlaySound ("sndReload",get_LastFP()); + if(iAmmoElapsed == 0) + { + PlaySound ("sndReloadEmpty",get_LastFP()); + } + else + { + PlaySound ("sndReload",get_LastFP()); + } } void CWeaponMagazined::switch2_Reload() @@ -1098,7 +1107,12 @@ void CWeaponMagazined::PlayAnimHide() void CWeaponMagazined::PlayAnimReload() { VERIFY(GetState()==eReload); - PlayHUDMotion("anm_reload", TRUE, this, GetState()); + if(iAmmoElapsed==0) + { + PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); + }else{ + PlayHUDMotion("anm_reload", TRUE, this, GetState()); + } } void CWeaponMagazined::PlayAnimAim() @@ -1366,6 +1380,10 @@ bool CWeaponMagazined::install_upgrade_impl( LPCSTR section, bool test ) result2 = process_if_exists_set( section, "snd_reload", &CInifile::r_string, str, test ); if ( result2 && !test ) { m_sounds.LoadSound( section, "snd_reload" , "sndReload" , true, m_eSoundReload ); } result |= result2; + + result2 = process_if_exists_set( section, "snd_reload_empty", &CInifile::r_string, str, test ); + if ( result2 && !test ) { m_sounds.LoadSound( section, "snd_reload_empty" , "sndReloadEmpty" , true, m_eSoundReloadEmpty ); } + result |= result2; //snd_shoot1 = weapons\ak74u_shot_1 ?? //snd_shoot2 = weapons\ak74u_shot_2 ?? diff --git a/src/xrGame/WeaponMagazined.h b/src/xrGame/WeaponMagazined.h index cddba59a088..aec58c4dd41 100644 --- a/src/xrGame/WeaponMagazined.h +++ b/src/xrGame/WeaponMagazined.h @@ -28,6 +28,7 @@ class CWeaponMagazined: public CWeapon ESoundTypes m_eSoundShot; ESoundTypes m_eSoundEmptyClick; ESoundTypes m_eSoundReload; + ESoundTypes m_eSoundReloadEmpty; bool m_sounds_enabled; // General //кадр момента пересчета UpdateSounds diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index ccbbcf98c7e..9dfde30cbad 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -606,9 +606,13 @@ void CWeaponMagazinedWGrenade::PlayAnimHide() void CWeaponMagazinedWGrenade::PlayAnimReload() { VERIFY(GetState()==eReload); - if(IsGrenadeLauncherAttached()) + if(iAmmoElapsed==0) + { + PlayHUDMotion("anm_reload_empty_w_gl", TRUE, this, GetState()); + }else{ PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); + } else inherited::PlayAnimReload(); } @@ -635,10 +639,15 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() { act_state = 1; }else - if(pActor->AnyMove()) + if(pActor->AnyMove() && (!st.bCrouch)) { act_state = 2; } + else + if(pActor->AnyMove() && (st.bCrouch)) + { + act_state = 3; + } } if(m_bGrenadeMode) @@ -651,7 +660,9 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() else if(act_state==2) PlayHUDMotion("anm_idle_moving_g", TRUE, NULL,GetState()); - + else + if(act_state==3) + PlayHUDMotion("anm_idle_moving_crouch_g", TRUE, NULL,GetState()); }else { if(act_state==0) @@ -662,6 +673,9 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() else if(act_state==2) PlayHUDMotion("anm_idle_moving_w_gl", TRUE, NULL,GetState()); + else + if(act_state==3) + PlayHUDMotion("anm_idle_moving_crouch_w_gl", TRUE, NULL,GetState()); } } diff --git a/src/xrGame/WeaponPistol.h b/src/xrGame/WeaponPistol.h index 69b205a3fcf..f2f58425447 100644 --- a/src/xrGame/WeaponPistol.h +++ b/src/xrGame/WeaponPistol.h @@ -1,10 +1,10 @@ #pragma once -#include "weaponcustompistol.h" +#include "weaponcustomauto.h" class CWeaponPistol : - public CWeaponCustomPistol + public CWeaponAutoPistol { - typedef CWeaponCustomPistol inherited; + typedef CWeaponAutoPistol inherited; public: CWeaponPistol (); virtual ~CWeaponPistol (); diff --git a/src/xrGame/WeaponRPG7.h b/src/xrGame/WeaponRPG7.h index c627fb63411..de75cb6c490 100644 --- a/src/xrGame/WeaponRPG7.h +++ b/src/xrGame/WeaponRPG7.h @@ -1,6 +1,7 @@ #pragma once -#include "weaponpistol.h" +//#include "weaponpistol.h" +#include "weaponcustompistol.h" #include "rocketlauncher.h" #include "script_export_space.h" diff --git a/src/xrGame/WeaponRevolver.cpp b/src/xrGame/WeaponRevolver.cpp new file mode 100644 index 00000000000..c89adfe2f35 --- /dev/null +++ b/src/xrGame/WeaponRevolver.cpp @@ -0,0 +1,176 @@ +#include "stdafx.h" +#include "weaponrevolver.h" +#include "ParticlesObject.h" +#include "actor.h" + +CWeaponRevolver::CWeaponRevolver() +{ + m_eSoundClose = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING); + SetPending (FALSE); +} + +CWeaponRevolver::~CWeaponRevolver(void) +{ +} + +void CWeaponRevolver::net_Destroy() +{ + inherited::net_Destroy(); +} + + +void CWeaponRevolver::Load (LPCSTR section) +{ + inherited::Load (section); + + m_sounds.LoadSound(section, "snd_close", "sndClose", false, m_eSoundClose); +} + +void CWeaponRevolver::OnH_B_Chield () +{ + inherited::OnH_B_Chield (); +} + +void CWeaponRevolver::PlayAnimShow () +{ + VERIFY(GetState()==eShowing); + + if(iAmmoElapsed==0) + PlayHUDMotion("anm_show_empty", FALSE, this, GetState()); + else + inherited::PlayAnimShow(); +} + +void CWeaponRevolver::PlayAnimBore() +{ + if(iAmmoElapsed==0) + PlayHUDMotion ("anm_bore_empty", TRUE, this, GetState()); + else + inherited::PlayAnimBore(); +} + +void CWeaponRevolver::PlayAnimIdleSprint() +{ + if(iAmmoElapsed==0) + { + PlayHUDMotion("anm_idle_sprint_empty", TRUE, NULL, GetState()); + }else{ + inherited::PlayAnimIdleSprint(); + } +} + +void CWeaponRevolver::PlayAnimIdleMoving() +{ + if(iAmmoElapsed==0) + { + PlayHUDMotion("anm_idle_moving_empty", TRUE, NULL, GetState()); + }else{ + inherited::PlayAnimIdleMoving(); + } +} + + +void CWeaponRevolver::PlayAnimIdle() +{ + if (TryPlayAnimIdle()) return; + + if(iAmmoElapsed==0) + { + PlayHUDMotion("anm_idle_empty", TRUE, NULL, GetState()); + }else{ + inherited::PlayAnimIdle (); + } +} + +void CWeaponRevolver::PlayAnimAim() +{ + if(iAmmoElapsed==0) + PlayHUDMotion("anm_idle_aim_empty", TRUE, NULL, GetState()); + else + inherited::PlayAnimAim(); +} + +void CWeaponRevolver::PlayAnimReload() +{ + VERIFY(GetState()==eReload); + if(iAmmoElapsed==1) + { + PlayHUDMotion("anm_reload_1", TRUE, this, GetState()); + }else if(iAmmoElapsed==2){ + PlayHUDMotion("anm_reload_2", TRUE, this, GetState()); + }else if(iAmmoElapsed==3){ + PlayHUDMotion("anm_reload_3", TRUE, this, GetState()); + }else if(iAmmoElapsed==4){ + PlayHUDMotion("anm_reload_4", TRUE, this, GetState()); + }else if(iAmmoElapsed==5){ + PlayHUDMotion("anm_reload_5", TRUE, this, GetState()); + }else{ + PlayHUDMotion("anm_reload", TRUE, this, GetState()); + } +} + + +void CWeaponRevolver::PlayAnimHide() +{ + VERIFY(GetState()==eHiding); + if(iAmmoElapsed==0) + { + PlaySound ("sndClose", get_LastFP()); + PlayHUDMotion ("anm_hide_empty" , TRUE, this, GetState()); + } + else + inherited::PlayAnimHide(); +} + +void CWeaponRevolver::PlayAnimShoot () +{ + VERIFY(GetState()==eFire); + if(iAmmoElapsed > 1) + { + PlayHUDMotion("anm_shots" , FALSE, this, GetState()); + } + else + { + PlayHUDMotion("anm_shot_l", FALSE, this, GetState()); + } +} + + +void CWeaponRevolver::switch2_Reload() +{ + inherited::switch2_Reload(); +} + +void CWeaponRevolver::OnAnimationEnd(u32 state) +{ + inherited::OnAnimationEnd(state); +} + +void CWeaponRevolver::OnShot () +{ + PlaySound (m_sSndShotCurrent.c_str(),get_LastFP()); + + AddShotEffector (); + + PlayAnimShoot (); + + // Shell Drop + Fvector vel; + PHGetLinearVell(vel); + OnShellDrop (get_LastSP(), vel); + + // Огонь из ствола + + StartFlameParticles (); + R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), + "can't set looped particles system for shoting with Revolver"); + + //дым из ствола + StartSmokeParticles (get_LastFP(), vel); +} + +void CWeaponRevolver::UpdateSounds() +{ + inherited::UpdateSounds(); + m_sounds.SetPosition("sndClose", get_LastFP()); +} \ No newline at end of file diff --git a/src/xrGame/WeaponRevolver.h b/src/xrGame/WeaponRevolver.h new file mode 100644 index 00000000000..c441cfe7fe7 --- /dev/null +++ b/src/xrGame/WeaponRevolver.h @@ -0,0 +1,38 @@ +#pragma once +#include "weaponcustompistol.h" + +class CWeaponRevolver : + public CWeaponCustomPistol +{ + typedef CWeaponCustomPistol inherited; +public: + CWeaponRevolver (); + virtual ~CWeaponRevolver (); + + virtual void Load (LPCSTR section); + + virtual void switch2_Reload (); + + virtual void OnShot (); + virtual void OnAnimationEnd (u32 state); + virtual void net_Destroy (); + virtual void OnH_B_Chield (); + + //анимации + virtual void PlayAnimShow (); + virtual void PlayAnimIdle (); + virtual void PlayAnimIdleMoving (); + virtual void PlayAnimIdleSprint (); + virtual void PlayAnimHide (); + virtual void PlayAnimReload (); + virtual void PlayAnimShoot (); + virtual void PlayAnimBore (); + virtual void PlayAnimAim (); + //virtual void PlayReloadSound (); + virtual void UpdateSounds (); +protected: + virtual bool AllowFireWhileWorking() {return true;} + + ESoundTypes m_eSoundClose; + //ESoundTypes m_eSoundReloadEmpty; +}; diff --git a/src/xrGame/WeaponWalther.h b/src/xrGame/WeaponWalther.h index 032aa5c2fc4..2e6fa776ee5 100644 --- a/src/xrGame/WeaponWalther.h +++ b/src/xrGame/WeaponWalther.h @@ -1,6 +1,6 @@ #pragma once -#include "weaponpistol.h" +#include "weaponrevolver.h" #include "script_export_space.h" class CWeaponWalther : diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 11f36c0de39..994b2955e3c 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -560,3 +560,20 @@ void CScriptGameObject::set_visual_name (LPCSTR visual) LPCSTR CScriptGameObject::get_visual_name () const { return object().cNameVisual().c_str(); } + +bool CScriptGameObject::IsActorOutdoors() const +{ +// Check to make sure all the params are available (we're in game and such). +if (!g_pGameLevel) +{ +return FALSE; +} +CObject *e = g_pGameLevel->CurrentViewEntity(); +if (!e || !e->renderable_ROS()) +{ +return FALSE; +} +// Now do the real check! This is a copy out of another section of code that is also hard coded. +// I don't know what the proper limit for this is supposed to be, but this seems good enough. +return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; +} \ No newline at end of file diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index b8896563b8f..f1f1cc791cf 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -1832,6 +1832,7 @@ + @@ -1843,6 +1844,7 @@ + @@ -4000,6 +4002,7 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch + @@ -4042,6 +4045,7 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch + pch_script.h diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index d847f3d419b..4e6105c4a3b 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -7377,6 +7377,12 @@ UI\Multiplayer\Voting + + Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + + + Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + From 58b2242c8518e40184d3be90b72db161fa4d774a Mon Sep 17 00:00:00 2001 From: Swartz27 Date: Sat, 3 Jan 2015 15:21:50 -0500 Subject: [PATCH 053/166] Forgot all of IsActorOutdoors function --- src/xrGame/script_game_object_script3.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 0fe10423457..2b069e2526b 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -328,7 +328,7 @@ class_ &script_register_game_object2(class_ Date: Sat, 3 Jan 2015 20:09:12 -0500 Subject: [PATCH 054/166] lua extensions: + standard library extensions by RVP-ARS + lua marshal + lfs --- src/3rd party/lua-extensions/LibLpack.c | 252 ++++++ src/3rd party/lua-extensions/LibMath.cpp | 64 ++ src/3rd party/lua-extensions/LibMath.h | 7 + src/3rd party/lua-extensions/LibStr.cpp | 71 ++ src/3rd party/lua-extensions/LibStr.h | 3 + src/3rd party/lua-extensions/LibTab.cpp | 91 ++ src/3rd party/lua-extensions/LibTab.h | 3 + src/3rd party/lua-extensions/Libs.h | 6 + src/3rd party/lua-extensions/Logger.cpp | 58 ++ src/3rd party/lua-extensions/base.cpp | 29 + src/3rd party/lua-extensions/keyboard.cpp | 40 + src/3rd party/lua-extensions/keyboard.h | 5 + src/3rd party/lua-extensions/lfs.c | 801 ++++++++++++++++++ src/3rd party/lua-extensions/lfs.h | 17 + src/3rd party/lua-extensions/lmarshal.c | 549 ++++++++++++ src/3rd party/lua-extensions/lmarshal.h | 3 + src/3rd party/lua-extensions/logger.h | 8 + .../lua-extensions/lua_extensions.filters | 77 ++ .../lua-extensions/lua_extensions.vcxproj | 141 +++ .../lua_extensions.vcxproj.filters | 55 ++ .../lua-extensions/script_additional_libs.cpp | 324 +++++++ .../lua-extensions/script_additional_libs.h | 10 + src/engine.sln | 15 + src/xrGame/Actor.cpp | 11 +- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 8 + 25 files changed, 2642 insertions(+), 6 deletions(-) create mode 100644 src/3rd party/lua-extensions/LibLpack.c create mode 100644 src/3rd party/lua-extensions/LibMath.cpp create mode 100644 src/3rd party/lua-extensions/LibMath.h create mode 100644 src/3rd party/lua-extensions/LibStr.cpp create mode 100644 src/3rd party/lua-extensions/LibStr.h create mode 100644 src/3rd party/lua-extensions/LibTab.cpp create mode 100644 src/3rd party/lua-extensions/LibTab.h create mode 100644 src/3rd party/lua-extensions/Libs.h create mode 100644 src/3rd party/lua-extensions/Logger.cpp create mode 100644 src/3rd party/lua-extensions/base.cpp create mode 100644 src/3rd party/lua-extensions/keyboard.cpp create mode 100644 src/3rd party/lua-extensions/keyboard.h create mode 100644 src/3rd party/lua-extensions/lfs.c create mode 100644 src/3rd party/lua-extensions/lfs.h create mode 100644 src/3rd party/lua-extensions/lmarshal.c create mode 100644 src/3rd party/lua-extensions/lmarshal.h create mode 100644 src/3rd party/lua-extensions/logger.h create mode 100644 src/3rd party/lua-extensions/lua_extensions.filters create mode 100644 src/3rd party/lua-extensions/lua_extensions.vcxproj create mode 100644 src/3rd party/lua-extensions/lua_extensions.vcxproj.filters create mode 100644 src/3rd party/lua-extensions/script_additional_libs.cpp create mode 100644 src/3rd party/lua-extensions/script_additional_libs.h diff --git a/src/3rd party/lua-extensions/LibLpack.c b/src/3rd party/lua-extensions/LibLpack.c new file mode 100644 index 00000000000..2536d7d2e65 --- /dev/null +++ b/src/3rd party/lua-extensions/LibLpack.c @@ -0,0 +1,252 @@ +/* +* lpack.c +* a Lua library for packing and unpacking binary data +* Luiz Henrique de Figueiredo +* 29 Jun 2007 19:27:20 +* This code is hereby placed in the public domain. +* with contributions from Ignacio Castaсo and +* Roberto Ierusalimschy . +*/ + +#define OP_ZSTRING 'z' /* zero-terminated string */ +#define OP_BSTRING 'p' /* string preceded by length byte */ +#define OP_WSTRING 'P' /* string preceded by length word */ +#define OP_SSTRING 'a' /* string preceded by length size_t */ +#define OP_STRING 'A' /* string */ +#define OP_FLOAT 'f' /* float */ +#define OP_DOUBLE 'd' /* double */ +#define OP_NUMBER 'n' /* Lua number */ +#define OP_CHAR 'c' /* char */ +#define OP_BYTE 'b' /* byte = unsigned char */ +#define OP_SHORT 'h' /* short */ +#define OP_USHORT 'H' /* unsigned short */ +#define OP_INT 'i' /* int */ +#define OP_UINT 'I' /* unsigned int */ +#define OP_LONG 'l' /* long */ +#define OP_ULONG 'L' /* unsigned long */ +#define OP_LITTLEENDIAN '<' /* little endian */ +#define OP_BIGENDIAN '>' /* big endian */ +#define OP_NATIVE '=' /* native endian */ + +#include +#include + +#include "lua.h" +#include "lualib.h" +#include "lauxlib.h" + +void badcode(lua_State *L, int c) +{ + char s[]="bad code `?'"; + s[sizeof(s)-3]=c; + luaL_argerror(L,1,s); +} + +int doendian(int c) +{ + int x=1; + int e=*(char*)&x; + if (c==OP_LITTLEENDIAN) return !e; + if (c==OP_BIGENDIAN) return e; + if (c==OP_NATIVE) return 0; + return 0; +} + +void doswap(int swap, void *p, size_t n) +{ + if (swap) + { + char *a=p; + int i,j; + for (i=0, j=n-1, n=n/2; n--; i++, j--) + { + char t=a[i]; a[i]=a[j]; a[j]=t; + } + } +} + +#define UNPACKNUMBER(OP,T) \ + case OP: \ +{ \ + T a; \ + int m=sizeof(a); \ + if (i+m>len) goto done; \ + memcpy(&a,s+i,m); \ + i+=m; \ + doswap(swap,&a,m); \ + lua_pushnumber(L,(lua_Number)a); \ + ++n; \ + break; \ +} + +#define UNPACKSTRING(OP,T) \ + case OP: \ +{ \ + T l; \ + int m=sizeof(l); \ + if (i+m>len) goto done; \ + memcpy(&l,s+i,m); \ + doswap(swap,&l,m); \ + if (i+m+l>len) goto done; \ + i+=m; \ + lua_pushlstring(L,s+i,l); \ + i+=l; \ + ++n; \ + break; \ +} + +int l_unpack(lua_State *L) /** unpack(s,f,[init]) */ +{ + size_t len; + const char *s=luaL_checklstring(L,1,&len); + const char *f=luaL_checkstring(L,2); + int i=(int)luaL_optnumber(L,3,1)-1; + int n=0; + int swap=0; + lua_pushnil(L); + while (*f) + { + int c=*f++; + int N=1; + if (isdigit(*f)) + { + N=0; + while (isdigit(*f)) N=10*N+(*f++)-'0'; + if (N==0 && c==OP_STRING) { lua_pushliteral(L,""); ++n; } + } + while (N--) switch (c) + { + case OP_LITTLEENDIAN: + case OP_BIGENDIAN: + case OP_NATIVE: + { + swap=doendian(c); + N=0; + break; + } + case OP_STRING: + { + ++N; + if (i+N>len) goto done; + lua_pushlstring(L,s+i,N); + i+=N; + ++n; + N=0; + break; + } + case OP_ZSTRING: + { + size_t l; + if (i>=len) goto done; + l=strlen(s+i); + lua_pushlstring(L,s+i,l); + i+=l+1; + ++n; + break; + } + UNPACKSTRING(OP_BSTRING, unsigned char) + UNPACKSTRING(OP_WSTRING, unsigned short) + UNPACKSTRING(OP_SSTRING, size_t) + UNPACKNUMBER(OP_NUMBER, lua_Number) + UNPACKNUMBER(OP_DOUBLE, double) + UNPACKNUMBER(OP_FLOAT, float) + UNPACKNUMBER(OP_CHAR, char) + UNPACKNUMBER(OP_BYTE, unsigned char) + UNPACKNUMBER(OP_SHORT, short) + UNPACKNUMBER(OP_USHORT, unsigned short) + UNPACKNUMBER(OP_INT, int) + UNPACKNUMBER(OP_UINT, unsigned int) + UNPACKNUMBER(OP_LONG, long) + UNPACKNUMBER(OP_ULONG, unsigned long) + case ' ': case ',': + break; + default: + badcode(L,c); + break; + } + } +done: + lua_pushnumber(L,(lua_Number)i+1); + lua_replace(L,-n-2); + return n+1; +} + +#define PACKNUMBER(OP,T) \ + case OP: \ +{ \ + T a=(T)luaL_checknumber(L,i++); \ + doswap(swap,&a,sizeof(a)); \ + luaL_addlstring(&b,(void*)&a,sizeof(a)); \ + break; \ +} + +#define PACKSTRING(OP,T) \ + case OP: \ +{ \ + size_t l; \ + const char *a=luaL_checklstring(L,i++,&l); \ + T ll=(T)l; \ + doswap(swap,&ll,sizeof(ll)); \ + luaL_addlstring(&b,(void*)&ll,sizeof(ll)); \ + luaL_addlstring(&b,a,l); \ + break; \ +} + +int l_pack(lua_State *L) /** pack(f,...) */ +{ + int i=2; + const char *f=luaL_checkstring(L,1); + int swap=0; + luaL_Buffer b; + luaL_buffinit(L,&b); + while (*f) + { + int c=*f++; + int N=1; + if (isdigit(*f)) + { + N=0; + while (isdigit(*f)) N=10*N+(*f++)-'0'; + } + while (N--) switch (c) + { + case OP_LITTLEENDIAN: + case OP_BIGENDIAN: + case OP_NATIVE: + { + swap=doendian(c); + N=0; + break; + } + case OP_STRING: + case OP_ZSTRING: + { + size_t l; + const char *a=luaL_checklstring(L,i++,&l); + luaL_addlstring(&b,a,l+(c==OP_ZSTRING)); + break; + } + PACKSTRING(OP_BSTRING, unsigned char) + PACKSTRING(OP_WSTRING, unsigned short) + PACKSTRING(OP_SSTRING, size_t) + PACKNUMBER(OP_NUMBER, lua_Number) + PACKNUMBER(OP_DOUBLE, double) + PACKNUMBER(OP_FLOAT, float) + PACKNUMBER(OP_CHAR, char) + PACKNUMBER(OP_BYTE, unsigned char) + PACKNUMBER(OP_SHORT, short) + PACKNUMBER(OP_USHORT, unsigned short) + PACKNUMBER(OP_INT, int) + PACKNUMBER(OP_UINT, unsigned int) + PACKNUMBER(OP_LONG, long) + PACKNUMBER(OP_ULONG, unsigned long) + case ' ': case ',': + break; + default: + badcode(L,c); + break; + } + } + luaL_pushresult(&b); + return 1; +} diff --git a/src/3rd party/lua-extensions/LibMath.cpp b/src/3rd party/lua-extensions/LibMath.cpp new file mode 100644 index 00000000000..b59f75171c7 --- /dev/null +++ b/src/3rd party/lua-extensions/LibMath.cpp @@ -0,0 +1,64 @@ +#include "LibMath.h" + +#include + +std::random_device ndrng; +std::mt19937 intgen; +std::uniform_real float_random_01; + +int gen_random_in_range(int a1, int a2) +{ //unsigned? + std::uniform_int<> dist(a1, a2); + return dist(intgen); +} + +int math_randomseed(lua_State *L){ + switch (lua_gettop(L)){ + case 0:{ + intgen.seed(ndrng()); + break; + } + case 1:{ + int seed_value = luaL_checkint(L, 1); + intgen.seed(seed_value); + break; + } + default: return luaL_error(L, "math_randomseed: wrong number of arguments"); + } + return 0; +} + +int math_random(lua_State *L) { + switch (lua_gettop(L)){ + case 0:{ + lua_pushnumber(L, float_random_01()); + break; + } + case 1:{ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1<=u, 1, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(1,u)); + break; + } + case 2:{ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l<=u, 2, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(l,u)); + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; +} + +const luaL_Reg mathlib[] = { + {"random", math_random}, + {"randomseed", math_randomseed}, + {NULL, NULL} +}; + +int open_math(lua_State *L){ + luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0); + return 0; +} \ No newline at end of file diff --git a/src/3rd party/lua-extensions/LibMath.h b/src/3rd party/lua-extensions/LibMath.h new file mode 100644 index 00000000000..7f812ae74b8 --- /dev/null +++ b/src/3rd party/lua-extensions/LibMath.h @@ -0,0 +1,7 @@ +#pragma once + +#include "../LuaJIT-1.1.8/etc/lua.hpp" + +int open_math(lua_State *L); + +int gen_random_in_range(int a1, int a2); \ No newline at end of file diff --git a/src/3rd party/lua-extensions/LibStr.cpp b/src/3rd party/lua-extensions/LibStr.cpp new file mode 100644 index 00000000000..713dfa5571a --- /dev/null +++ b/src/3rd party/lua-extensions/LibStr.cpp @@ -0,0 +1,71 @@ +#include "LibStr.h" + +#include +#include + +int str_trim(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*front) ; size-- , front++) + ; + for ( ; size && isspace(*end) ; size-- , end--) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_l(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*front) ; size-- , front++) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_r(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*end) ; size-- , end--) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_w(lua_State *L){ + int i=0 , d, n; + const char *s = luaL_checkstring(L,1);; + while (s[i]==' ') i++; + n=i; + while (s[i]!=' ' && s[i]) i++; + d=i-n; + lua_pushlstring(L, s+n, d); + return 1; +} + +extern "C" int l_pack(lua_State *L); +extern "C" int l_unpack(lua_State *L); + +const luaL_Reg strlib[] = { + {"trim", str_trim}, + {"trim_l", str_trim_l}, + {"trim_r", str_trim_r}, + {"trim_w", str_trim_w}, + {"pack", l_pack}, + {"unpack", l_unpack}, + {NULL, NULL} +}; + +int open_string(lua_State *L){ + luaL_openlib(L, LUA_STRLIBNAME, strlib, 0); + return 0; +} diff --git a/src/3rd party/lua-extensions/LibStr.h b/src/3rd party/lua-extensions/LibStr.h new file mode 100644 index 00000000000..87d8cbd0b7e --- /dev/null +++ b/src/3rd party/lua-extensions/LibStr.h @@ -0,0 +1,3 @@ +#include "../LuaJIT-1.1.8/etc/lua.hpp" + +int open_string(lua_State *L); diff --git a/src/3rd party/lua-extensions/LibTab.cpp b/src/3rd party/lua-extensions/LibTab.cpp new file mode 100644 index 00000000000..b61b1693a55 --- /dev/null +++ b/src/3rd party/lua-extensions/LibTab.cpp @@ -0,0 +1,91 @@ +#include "LibTab.h" +#include "LibMath.h" + +#include + +typedef unsigned long DWORD; + + +int tab_keys (lua_State *L){ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while(lua_next(L, 1) !=0 ){ + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -3); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; +} + +int tab_values (lua_State *L){ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while(lua_next(L, 1) != 0){ + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -2); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; +} + +int get_size(lua_State *L) { + int i = 0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); + while(lua_next(L, 1)){ + ++i; + lua_pop(L, 1); + } + lua_pushinteger(L, i); + return 1; +} + +inline DWORD C_get_size(lua_State *L){ + int i = 0; + lua_settop(L, 2); + while (lua_next(L, 1)){ + ++i; + lua_pop(L, 1); + } + return i; +} + +int get_random(lua_State *L){ + int i = C_get_size(L); + int j = gen_random_in_range(1, i); + i=0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); + while(lua_next(L, 1)){ + ++i; + if(i == j){ + lua_pushvalue(L, -2); + lua_pushvalue(L, -2); + return 2; + } + lua_pop(L, 1); + } + return 0; +} + +const luaL_Reg tab_funcs[] = { + {"keys", tab_keys}, + {"values", tab_values}, + {"size", get_size}, + {"random", get_random}, + {NULL, NULL} +}; + + +int open_table(lua_State *L){ + luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0); + return 0; +} diff --git a/src/3rd party/lua-extensions/LibTab.h b/src/3rd party/lua-extensions/LibTab.h new file mode 100644 index 00000000000..5a84e2e4857 --- /dev/null +++ b/src/3rd party/lua-extensions/LibTab.h @@ -0,0 +1,3 @@ +#include "../LuaJIT-1.1.8/etc/lua.hpp" + +int open_table(lua_State *L); diff --git a/src/3rd party/lua-extensions/Libs.h b/src/3rd party/lua-extensions/Libs.h new file mode 100644 index 00000000000..03e95f1dc1f --- /dev/null +++ b/src/3rd party/lua-extensions/Libs.h @@ -0,0 +1,6 @@ +#include "LibStr.h" +#include "LibMath.h" +#include "LibTab.h" +//#include "keyboard.h" +//#include "logger.h" + diff --git a/src/3rd party/lua-extensions/Logger.cpp b/src/3rd party/lua-extensions/Logger.cpp new file mode 100644 index 00000000000..33ab87ffdab --- /dev/null +++ b/src/3rd party/lua-extensions/Logger.cpp @@ -0,0 +1,58 @@ +#include "logger.h" + +std::ofstream LogFile; + +char fmt[64]; +char fmt_def[] = "[%x %X]\t"; + +void _cdecl Logger(const char *s){ + time_t t = time(NULL); + tm* ti = localtime(&t); + char buf[64]; + strftime(buf, 64, fmt, ti); + + LogFile << buf << s << "\n"; + LogFile.flush(); +} + +int SetLog(lua_State *L){ + if(!LogFile.is_open()){ + switch(lua_gettop(L)){ + case 1: + LogFile.open(luaL_checkstring(L, 1)); + strcpy(fmt, fmt_def); + break; + case 2: + LogFile.open(luaL_checkstring(L, 1)); + strcpy(fmt, luaL_checkstring(L, 2)); + break; + default: return luaL_error(L, "SetLog: wrong number of arguments"); + } + if(!LogFile.is_open()){ + Log("!!Cannot open log file"); + } + } + SetLogCB(Logger); + return 0; +} + +int DelLog(lua_State *L){ + SetLogCB(0); + return 0; +} + +int log123(lua_State *L){ + int n = lua_gettop(L); + for(int i=0; i +#include +#include + +int open_kb(lua_State *L); \ No newline at end of file diff --git a/src/3rd party/lua-extensions/lfs.c b/src/3rd party/lua-extensions/lfs.c new file mode 100644 index 00000000000..f46cfedef7d --- /dev/null +++ b/src/3rd party/lua-extensions/lfs.c @@ -0,0 +1,801 @@ +/* +** LuaFileSystem +** Copyright Kepler Project 2003 (http://www.keplerproject.org/luafilesystem) +** +** File system manipulation library. +** This library offers these functions: +** lfs.attributes (filepath [, attributename]) +** lfs.chdir (path) +** lfs.currentdir () +** lfs.dir (path) +** lfs.lock (fh, mode) +** lfs.lock_dir (path) +** lfs.mkdir (path) +** lfs.rmdir (path) +** lfs.setmode (filepath, mode) +** lfs.symlinkattributes (filepath [, attributename]) -- thanks to Sam Roberts +** lfs.touch (filepath [, atime [, mtime]]) +** lfs.unlock (fh) +** +** $Id: lfs.c,v 1.61 2009/07/04 02:10:16 mascarenhas Exp $ +*/ + +#ifndef _WIN32 +#ifndef _AIX +#define _FILE_OFFSET_BITS 64 /* Linux, Solaris and HP-UX */ +#else +#define _LARGE_FILES 1 /* AIX */ +#endif +#endif + +#define _LARGEFILE64_SOURCE + +#include +#include +#include +#include +#include +#include + +#ifdef _WIN32 +#include +#include +#include +#include +#ifdef __BORLANDC__ + #include +#else + #include +#endif +#include +#else +#include +#include +#include +#include +#include +#endif + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" +#include "lfs.h" + +/* Define 'strerror' for systems that do not implement it */ +#ifdef NO_STRERROR +#define strerror(_) "System unable to describe the error" +#endif + +/* Define 'getcwd' for systems that do not implement it */ +#ifdef NO_GETCWD +#define getcwd(p,s) NULL +#define getcwd_error "Function 'getcwd' not provided by system" +#else +#define getcwd_error strerror(errno) +#endif + +#define DIR_METATABLE "directory metatable" +#define MAX_DIR_LENGTH 1023 +typedef struct dir_data { + int closed; +#ifdef _WIN32 + long hFile; + char pattern[MAX_DIR_LENGTH+1]; +#else + DIR *dir; +#endif +} dir_data; + +#define LOCK_METATABLE "lock metatable" + +#ifdef _WIN32 + #ifdef __BORLANDC__ + #define lfs_setmode(L,file,m) ((void)L, setmode(_fileno(file), m)) + #define STAT_STRUCT struct stati64 + #else + #define lfs_setmode(L,file,m) ((void)L, _setmode(_fileno(file), m)) + #define STAT_STRUCT struct _stati64 + #endif +#define STAT_FUNC _stati64 +#else +#define _O_TEXT 0 +#define _O_BINARY 0 +#define lfs_setmode(L,file,m) ((void)((void)file,m), \ + luaL_error(L, LUA_QL("setmode") " not supported on this platform"), -1) +#define STAT_STRUCT struct stat +#define STAT_FUNC stat +#define LSTAT_FUNC lstat +#endif + +/* +** This function changes the working (current) directory +*/ +static int change_dir (lua_State *L) { + const char *path = luaL_checkstring(L, 1); + if (chdir(path)) { + lua_pushnil (L); + lua_pushfstring (L,"Unable to change working directory to '%s'\n%s\n", + path, chdir_error); + return 2; + } else { + lua_pushboolean (L, 1); + return 1; + } +} + +/* +** This function returns the current directory +** If unable to get the current directory, it returns nil +** and a string describing the error +*/ +static int get_dir (lua_State *L) { + char *path; + if ((path = getcwd(NULL, 0)) == NULL) { + lua_pushnil(L); + lua_pushstring(L, getcwd_error); + return 2; + } + else { + lua_pushstring(L, path); + free(path); + return 1; + } +} + +/* +** Check if the given element on the stack is a file and returns it. +*/ +static FILE *check_file (lua_State *L, int idx, const char *funcname) { + FILE **fh = (FILE **)luaL_checkudata (L, idx, "FILE*"); + if (fh == NULL) { + luaL_error (L, "%s: not a file", funcname); + return 0; + } else if (*fh == NULL) { + luaL_error (L, "%s: closed file", funcname); + return 0; + } else + return *fh; +} + + +/* +** +*/ +static int _file_lock (lua_State *L, FILE *fh, const char *mode, const long start, long len, const char *funcname) { + int code; +#ifdef _WIN32 + /* lkmode valid values are: + LK_LOCK Locks the specified bytes. If the bytes cannot be locked, the program immediately tries again after 1 second. If, after 10 attempts, the bytes cannot be locked, the constant returns an error. + LK_NBLCK Locks the specified bytes. If the bytes cannot be locked, the constant returns an error. + LK_NBRLCK Same as _LK_NBLCK. + LK_RLCK Same as _LK_LOCK. + LK_UNLCK Unlocks the specified bytes, which must have been previously locked. + + Regions should be locked only briefly and should be unlocked before closing a file or exiting the program. + + http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_crt__locking.asp + */ + int lkmode; + switch (*mode) { + case 'r': lkmode = LK_NBLCK; break; + case 'w': lkmode = LK_NBLCK; break; + case 'u': lkmode = LK_UNLCK; break; + default : return luaL_error (L, "%s: invalid mode", funcname); + } + if (!len) { + fseek (fh, 0L, SEEK_END); + len = ftell (fh); + } + fseek (fh, start, SEEK_SET); +#ifdef __BORLANDC__ + code = locking (fileno(fh), lkmode, len); +#else + code = _locking (fileno(fh), lkmode, len); +#endif +#else + struct flock f; + switch (*mode) { + case 'w': f.l_type = F_WRLCK; break; + case 'r': f.l_type = F_RDLCK; break; + case 'u': f.l_type = F_UNLCK; break; + default : return luaL_error (L, "%s: invalid mode", funcname); + } + f.l_whence = SEEK_SET; + f.l_start = (off_t)start; + f.l_len = (off_t)len; + code = fcntl (fileno(fh), F_SETLK, &f); +#endif + return (code != -1); +} + +#ifdef _WIN32 +typedef struct lfs_Lock { + HANDLE fd; +} lfs_Lock; +static int lfs_lock_dir(lua_State *L) { + size_t pathl; HANDLE fd; + lfs_Lock *lock; + char *ln; + const char *lockfile = "/lockfile.lfs"; + const char *path = luaL_checklstring(L, 1, &pathl); + ln = (char*)malloc(pathl + strlen(lockfile) + 1); + if(!ln) { + lua_pushnil(L); lua_pushstring(L, strerror(errno)); return 2; + } + strcpy(ln, path); strcat(ln, lockfile); + if((fd = CreateFile(ln, GENERIC_WRITE, 0, NULL, CREATE_NEW, + FILE_ATTRIBUTE_NORMAL | FILE_FLAG_DELETE_ON_CLOSE, NULL)) == INVALID_HANDLE_VALUE) { + int en = GetLastError(); + free(ln); lua_pushnil(L); + if(en == ERROR_FILE_EXISTS || en == ERROR_SHARING_VIOLATION) + lua_pushstring(L, "File exists"); + else + lua_pushstring(L, strerror(en)); + return 2; + } + free(ln); + lock = (lfs_Lock*)lua_newuserdata(L, sizeof(lfs_Lock)); + lock->fd = fd; + luaL_getmetatable (L, LOCK_METATABLE); + lua_setmetatable (L, -2); + return 1; +} +static int lfs_unlock_dir(lua_State *L) { + lfs_Lock *lock = luaL_checkudata(L, 1, LOCK_METATABLE); + CloseHandle(lock->fd); + return 0; +} +#else +typedef struct lfs_Lock { + char *ln; +} lfs_Lock; +static int lfs_lock_dir(lua_State *L) { + lfs_Lock *lock; + size_t pathl; + char *ln; + const char *lockfile = "/lockfile.lfs"; + const char *path = luaL_checklstring(L, 1, &pathl); + lock = (lfs_Lock*)lua_newuserdata(L, sizeof(lfs_Lock)); + ln = (char*)malloc(pathl + strlen(lockfile) + 1); + if(!ln) { + lua_pushnil(L); lua_pushstring(L, strerror(errno)); return 2; + } + strcpy(ln, path); strcat(ln, lockfile); + if(symlink("lock", ln) == -1) { + free(ln); lua_pushnil(L); + lua_pushstring(L, strerror(errno)); return 2; + } + lock->ln = ln; + luaL_getmetatable (L, LOCK_METATABLE); + lua_setmetatable (L, -2); + return 1; +} +static int lfs_unlock_dir(lua_State *L) { + lfs_Lock *lock = luaL_checkudata(L, 1, LOCK_METATABLE); + if(lock->ln) { + unlink(lock->ln); + free(lock->ln); + lock->ln = NULL; + } + return 0; +} +#endif + +#ifdef _WIN32 +static int lfs_g_setmode (lua_State *L, FILE *f, int arg) { + static const int mode[] = {_O_TEXT, _O_BINARY}; + static const char *const modenames[] = {"text", "binary", NULL}; + int op = luaL_checkoption(L, arg, NULL, modenames); + int res = lfs_setmode(L, f, mode[op]); + if (res != -1) { + int i; + lua_pushboolean(L, 1); + for (i = 0; modenames[i] != NULL; i++) { + if (mode[i] == res) { + lua_pushstring(L, modenames[i]); + goto exit; + } + } + lua_pushnil(L); + exit: + return 2; + } else { + int en = errno; + lua_pushnil(L); + lua_pushfstring(L, "%s", strerror(en)); + lua_pushinteger(L, en); + return 3; + } +} +#else +static int lfs_g_setmode (lua_State *L, FILE *f, int arg) { + lua_pushboolean(L, 0); + lua_pushliteral(L, "setmode not supported on this platform"); + return 2; +} +#endif + +static int lfs_f_setmode(lua_State *L) { + return lfs_g_setmode(L, check_file(L, 1, "setmode"), 2); +} + +/* +** Locks a file. +** @param #1 File handle. +** @param #2 String with lock mode ('w'rite, 'r'ead). +** @param #3 Number with start position (optional). +** @param #4 Number with length (optional). +*/ +static int file_lock (lua_State *L) { + FILE *fh = check_file (L, 1, "lock"); + const char *mode = luaL_checkstring (L, 2); + const long start = luaL_optlong (L, 3, 0); + long len = luaL_optlong (L, 4, 0); + if (_file_lock (L, fh, mode, start, len, "lock")) { + lua_pushboolean (L, 1); + return 1; + } else { + lua_pushnil (L); + lua_pushfstring (L, "%s", strerror(errno)); + return 2; + } +} + + +/* +** Unlocks a file. +** @param #1 File handle. +** @param #2 Number with start position (optional). +** @param #3 Number with length (optional). +*/ +static int file_unlock (lua_State *L) { + FILE *fh = check_file (L, 1, "unlock"); + const long start = luaL_optlong (L, 2, 0); + long len = luaL_optlong (L, 3, 0); + if (_file_lock (L, fh, "u", start, len, "unlock")) { + lua_pushboolean (L, 1); + return 1; + } else { + lua_pushnil (L); + lua_pushfstring (L, "%s", strerror(errno)); + return 2; + } +} + + +static int make_dir (lua_State *L) { + const char *path = luaL_checkstring (L, 1); + int fail; +#ifdef _WIN32 + int oldmask = umask (0); + fail = _mkdir (path); +#else + mode_t oldmask = umask( (mode_t)0 ); + fail = mkdir (path, S_IRUSR | S_IWUSR | S_IXUSR | S_IRGRP | + S_IWGRP | S_IXGRP | S_IROTH | S_IXOTH ); +#endif + if (fail) { + lua_pushnil (L); + lua_pushfstring (L, "%s", strerror(errno)); + return 2; + } + umask (oldmask); + lua_pushboolean (L, 1); + return 1; +} + +/* +** Removes a directory. +** @param #1 Directory path. +*/ +static int remove_dir (lua_State *L) { + const char *path = luaL_checkstring (L, 1); + int fail; + + fail = rmdir (path); + + if (fail) { + lua_pushnil (L); + lua_pushfstring (L, "%s", strerror(errno)); + return 2; + } + lua_pushboolean (L, 1); + return 1; +} + +/* +** Directory iterator +*/ +static int dir_iter (lua_State *L) { +#ifdef _WIN32 + struct _finddata_t c_file; +#else + struct dirent *entry; +#endif + dir_data *d = (dir_data *)luaL_checkudata (L, 1, DIR_METATABLE); + luaL_argcheck (L, !d->closed, 1, "closed directory"); +#ifdef _WIN32 + if (d->hFile == 0L) { /* first entry */ + if ((d->hFile = _findfirst (d->pattern, &c_file)) == -1L) { + lua_pushnil (L); + lua_pushstring (L, strerror (errno)); + return 2; + } else { + lua_pushstring (L, c_file.name); + return 1; + } + } else { /* next entry */ + if (_findnext (d->hFile, &c_file) == -1L) { + /* no more entries => close directory */ + _findclose (d->hFile); + d->closed = 1; + return 0; + } else { + lua_pushstring (L, c_file.name); + return 1; + } + } +#else + if ((entry = readdir (d->dir)) != NULL) { + lua_pushstring (L, entry->d_name); + return 1; + } else { + /* no more entries => close directory */ + closedir (d->dir); + d->closed = 1; + return 0; + } +#endif +} + + +/* +** Closes directory iterators +*/ +static int dir_close (lua_State *L) { + dir_data *d = (dir_data *)lua_touserdata (L, 1); +#ifdef _WIN32 + if (!d->closed && d->hFile) { + _findclose (d->hFile); + d->closed = 1; + } +#else + if (!d->closed && d->dir) { + closedir (d->dir); + d->closed = 1; + } +#endif + return 0; +} + + +/* +** Factory of directory iterators +*/ +static int dir_iter_factory (lua_State *L) { + const char *path = luaL_checkstring (L, 1); + dir_data *d; + lua_pushcfunction (L, dir_iter); + d = (dir_data *) lua_newuserdata (L, sizeof(dir_data)); + d->closed = 0; +#ifdef _WIN32 + d->hFile = 0L; + luaL_getmetatable (L, DIR_METATABLE); + lua_setmetatable (L, -2); + if (strlen(path) > MAX_DIR_LENGTH) + luaL_error (L, "path too long: %s", path); + else + sprintf (d->pattern, "%s/*", path); +#else + luaL_getmetatable (L, DIR_METATABLE); + lua_setmetatable (L, -2); + d->dir = opendir (path); + if (d->dir == NULL) + luaL_error (L, "cannot open %s: %s", path, strerror (errno)); +#endif + return 2; +} + + +/* +** Creates directory metatable. +*/ +static int dir_create_meta (lua_State *L) { + luaL_newmetatable (L, DIR_METATABLE); + /* set its __gc field */ + lua_pushstring (L, "__index"); + lua_newtable(L); + lua_pushstring (L, "next"); + lua_pushcfunction (L, dir_iter); + lua_settable(L, -3); + lua_pushstring (L, "close"); + lua_pushcfunction (L, dir_close); + lua_settable(L, -3); + lua_settable (L, -3); + lua_pushstring (L, "__gc"); + lua_pushcfunction (L, dir_close); + lua_settable (L, -3); + return 1; +} + +/* +** Creates lock metatable. +*/ +static int lock_create_meta (lua_State *L) { + luaL_newmetatable (L, LOCK_METATABLE); + /* set its __gc field */ + lua_newtable(L); + lua_pushcfunction(L, lfs_unlock_dir); + lua_setfield(L, -2, "free"); + lua_setfield(L, -2, "__index"); + lua_pushcfunction(L, lfs_unlock_dir); + lua_setfield(L, -2, "__gc"); + return 1; +} + + +#ifdef _WIN32 + #ifndef S_ISDIR + #define S_ISDIR(mode) (mode&_S_IFDIR) + #endif + #ifndef S_ISREG + #define S_ISREG(mode) (mode&_S_IFREG) + #endif + #ifndef S_ISLNK + #define S_ISLNK(mode) (0) + #endif + #ifndef S_ISSOCK + #define S_ISSOCK(mode) (0) + #endif + #ifndef S_ISFIFO + #define S_ISFIFO(mode) (0) + #endif + #ifndef S_ISCHR + #define S_ISCHR(mode) (mode&_S_IFCHR) + #endif + #ifndef S_ISBLK + #define S_ISBLK(mode) (0) + #endif +#endif +/* +** Convert the inode protection mode to a string. +*/ +#ifdef _WIN32 +static const char *mode2string (unsigned short mode) { +#else +static const char *mode2string (mode_t mode) { +#endif + if ( S_ISREG(mode) ) + return "file"; + else if ( S_ISDIR(mode) ) + return "directory"; + else if ( S_ISLNK(mode) ) + return "link"; + else if ( S_ISSOCK(mode) ) + return "socket"; + else if ( S_ISFIFO(mode) ) + return "named pipe"; + else if ( S_ISCHR(mode) ) + return "char device"; + else if ( S_ISBLK(mode) ) + return "block device"; + else + return "other"; +} + + +/* +** Set access time and modification values for file +*/ +static int file_utime (lua_State *L) { + const char *file = luaL_checkstring (L, 1); + struct utimbuf utb, *buf; + + if (lua_gettop (L) == 1) /* set to current date/time */ + buf = NULL; + else { + utb.actime = (time_t)luaL_optnumber (L, 2, 0); + utb.modtime = (time_t)luaL_optnumber (L, 3, utb.actime); + buf = &utb; + } + if (utime (file, buf)) { + lua_pushnil (L); + lua_pushfstring (L, "%s", strerror (errno)); + return 2; + } + lua_pushboolean (L, 1); + return 1; +} + + +/* inode protection mode */ +static void push_st_mode (lua_State *L, STAT_STRUCT *info) { + lua_pushstring (L, mode2string (info->st_mode)); +} +/* device inode resides on */ +static void push_st_dev (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_dev); +} +/* inode's number */ +static void push_st_ino (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_ino); +} +/* number of hard links to the file */ +static void push_st_nlink (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_nlink); +} +/* user-id of owner */ +static void push_st_uid (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_uid); +} +/* group-id of owner */ +static void push_st_gid (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_gid); +} +/* device type, for special file inode */ +static void push_st_rdev (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_rdev); +} +/* time of last access */ +static void push_st_atime (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, info->st_atime); +} +/* time of last data modification */ +static void push_st_mtime (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, info->st_mtime); +} +/* time of last file status change */ +static void push_st_ctime (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, info->st_ctime); +} +/* file size, in bytes */ +static void push_st_size (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_size); +} +#ifndef _WIN32 +/* blocks allocated for file */ +static void push_st_blocks (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_blocks); +} +/* optimal file system I/O blocksize */ +static void push_st_blksize (lua_State *L, STAT_STRUCT *info) { + lua_pushnumber (L, (lua_Number)info->st_blksize); +} +#endif +static void push_invalid (lua_State *L, STAT_STRUCT *info) { + luaL_error(L, "invalid attribute name"); +#ifndef _WIN32 + info->st_blksize = 0; /* never reached */ +#endif +} + +typedef void (*_push_function) (lua_State *L, STAT_STRUCT *info); + +struct _stat_members { + const char *name; + _push_function push; +}; + +struct _stat_members members[] = { + { "mode", push_st_mode }, + { "dev", push_st_dev }, + { "ino", push_st_ino }, + { "nlink", push_st_nlink }, + { "uid", push_st_uid }, + { "gid", push_st_gid }, + { "rdev", push_st_rdev }, + { "access", push_st_atime }, + { "modification", push_st_mtime }, + { "change", push_st_ctime }, + { "size", push_st_size }, +#ifndef _WIN32 + { "blocks", push_st_blocks }, + { "blksize", push_st_blksize }, +#endif + { NULL, push_invalid } +}; + +/* +** Get file or symbolic link information +*/ +static int _file_info_ (lua_State *L, int (*st)(const char*, STAT_STRUCT*)) { + int i; + STAT_STRUCT info; + const char *file = luaL_checkstring (L, 1); + + if (st(file, &info)) { + lua_pushnil (L); + lua_pushfstring (L, "cannot obtain information from file `%s'", file); + return 2; + } + if (lua_isstring (L, 2)) { + int v; + const char *member = lua_tostring (L, 2); + if (strcmp (member, "mode") == 0) v = 0; +#ifndef _WIN32 + else if (strcmp (member, "blocks") == 0) v = 11; + else if (strcmp (member, "blksize") == 0) v = 12; +#endif + else /* look for member */ + for (v = 1; members[v].name; v++) + if (*members[v].name == *member) + break; + /* push member value and return */ + members[v].push (L, &info); + return 1; + } else if (!lua_istable (L, 2)) + /* creates a table if none is given */ + lua_newtable (L); + /* stores all members in table on top of the stack */ + for (i = 0; members[i].name; i++) { + lua_pushstring (L, members[i].name); + members[i].push (L, &info); + lua_rawset (L, -3); + } + return 1; +} + + +/* +** Get file information using stat. +*/ +static int file_info (lua_State *L) { + return _file_info_ (L, STAT_FUNC); +} + + +/* +** Get symbolic link information using lstat. +*/ +#ifndef _WIN32 +static int link_info (lua_State *L) { + return _file_info_ (L, LSTAT_FUNC); +} +#else +static int link_info (lua_State *L) { + lua_pushboolean(L, 0); + lua_pushliteral(L, "symlinkattributes not supported on this platform"); + return 2; +} +#endif + + +/* +** Assumes the table is on top of the stack. +*/ +static void set_info (lua_State *L) { + lua_pushliteral (L, "_COPYRIGHT"); + lua_pushliteral (L, "Copyright (C) 2003-2009 Kepler Project"); + lua_settable (L, -3); + lua_pushliteral (L, "_DESCRIPTION"); + lua_pushliteral (L, "LuaFileSystem is a Lua library developed to complement the set of functions related to file systems offered by the standard Lua distribution"); + lua_settable (L, -3); + lua_pushliteral (L, "_VERSION"); + lua_pushliteral (L, "LuaFileSystem 1.5.0"); + lua_settable (L, -3); +} + + +static const struct luaL_reg fslib[] = { + {"attributes", file_info}, + {"chdir", change_dir}, + {"currentdir", get_dir}, + {"dir", dir_iter_factory}, + {"lock", file_lock}, + {"mkdir", make_dir}, + {"rmdir", remove_dir}, + {"symlinkattributes", link_info}, + {"setmode", lfs_f_setmode}, + {"touch", file_utime}, + {"unlock", file_unlock}, + {"lock_dir", lfs_lock_dir}, + {NULL, NULL}, +}; + +int luaopen_lfs (lua_State *L) { + dir_create_meta (L); + lock_create_meta (L); + luaL_register (L, "lfs", fslib); + set_info (L); + return 1; +} diff --git a/src/3rd party/lua-extensions/lfs.h b/src/3rd party/lua-extensions/lfs.h new file mode 100644 index 00000000000..4b52780bb3f --- /dev/null +++ b/src/3rd party/lua-extensions/lfs.h @@ -0,0 +1,17 @@ +/* +** LuaFileSystem +** Copyright Kepler Project 2003 (http://www.keplerproject.org/luafilesystem) +** +** $Id: lfs.h,v 1.5 2008/02/19 20:08:23 mascarenhas Exp $ +*/ + +/* Define 'chdir' for systems that do not implement it */ +#ifdef NO_CHDIR +#define chdir(p) (-1) +#define chdir_error "Function 'chdir' not provided by system" +#else +#define chdir_error strerror(errno) +#endif + + +int luaopen_lfs (lua_State *L); diff --git a/src/3rd party/lua-extensions/lmarshal.c b/src/3rd party/lua-extensions/lmarshal.c new file mode 100644 index 00000000000..2d9effddd57 --- /dev/null +++ b/src/3rd party/lua-extensions/lmarshal.c @@ -0,0 +1,549 @@ +/* +* lmarshal.c +* A Lua library for serializing and deserializing Lua values +* Richard Hundt +* +* License: MIT +* +* Copyright (c) 2010 Richard Hundt +* +* Permission is hereby granted, free of charge, to any person +* obtaining a copy of this software and associated documentation +* files (the "Software"), to deal in the Software without +* restriction, including without limitation the rights to use, +* copy, modify, merge, publish, distribute, sublicense, and/or sell +* copies of the Software, and to permit persons to whom the +* Software is furnished to do so, subject to the following +* conditions: +* +* The above copyright notice and this permission notice shall be +* included in all copies or substantial portions of the Software. +* +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES +* OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT +* HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, +* WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +* OTHER DEALINGS IN THE SOFTWARE. +*/ + +#include +#include +#include + +#include "lua.h" +#include "lualib.h" +#include "lauxlib.h" +#include "lmarshal.h" + + +#define MAR_TREF 1 +#define MAR_TVAL 2 +#define MAR_TUSR 3 + +#define MAR_CHR 1 +#define MAR_I32 4 +#define MAR_I64 8 + +#define MAR_MAGIC 0x8e +#define SEEN_IDX 3 + +typedef struct mar_Buffer { + size_t size; + size_t seek; + size_t head; + char* data; +} mar_Buffer; + +static int mar_encode_table(lua_State *L, mar_Buffer *buf, size_t *idx); +static int mar_decode_table(lua_State *L, const char* buf, size_t len, size_t *idx); + +static void buf_init(lua_State *L, mar_Buffer *buf) +{ + buf->size = 128; + buf->seek = 0; + buf->head = 0; + if (!(buf->data = malloc(buf->size))) luaL_error(L, "Out of memory!"); +} + +static void buf_done(lua_State* L, mar_Buffer *buf) +{ + free(buf->data); +} + +static int buf_write(lua_State* L, const char* str, size_t len, mar_Buffer *buf) +{ + if (len > UINT32_MAX) luaL_error(L, "buffer too long"); + if (buf->size - buf->head < len) { + size_t new_size = buf->size << 1; + size_t cur_head = buf->head; + while (new_size - cur_head <= len) { + new_size = new_size << 1; + } + if (!(buf->data = realloc(buf->data, new_size))) { + luaL_error(L, "Out of memory!"); + } + buf->size = new_size; + } + memcpy(&buf->data[buf->head], str, len); + buf->head += len; + return 0; +} + +static const char* buf_read(lua_State *L, mar_Buffer *buf, size_t *len) +{ + if (buf->seek < buf->head) { + buf->seek = buf->head; + *len = buf->seek; + return buf->data; + } + *len = 0; + return NULL; +} + +static void mar_encode_value(lua_State *L, mar_Buffer *buf, int val, size_t *idx) +{ + size_t l; + int val_type = lua_type(L, val); + lua_pushvalue(L, val); + + buf_write(L, (void*)&val_type, MAR_CHR, buf); + switch (val_type) { + case LUA_TBOOLEAN: { + int int_val = lua_toboolean(L, -1); + buf_write(L, (void*)&int_val, MAR_CHR, buf); + break; + } + case LUA_TSTRING: { + const char *str_val = lua_tolstring(L, -1, &l); + buf_write(L, (void*)&l, MAR_I32, buf); + buf_write(L, str_val, l, buf); + break; + } + case LUA_TNUMBER: { + lua_Number num_val = lua_tonumber(L, -1); + buf_write(L, (void*)&num_val, MAR_I64, buf); + break; + } + case LUA_TTABLE: { + int tag, ref; + lua_pushvalue(L, -1); + lua_rawget(L, SEEN_IDX); + if (!lua_isnil(L, -1)) { + ref = lua_tointeger(L, -1); + tag = MAR_TREF; + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&ref, MAR_I32, buf); + lua_pop(L, 1); + } + else { + mar_Buffer rec_buf; + lua_pop(L, 1); /* pop nil */ + if (luaL_getmetafield(L, -1, "__persist")) { + tag = MAR_TUSR; + + lua_pushvalue(L, -2); /* self */ + lua_call(L, 1, 1); + if (!lua_isfunction(L, -1)) { + luaL_error(L, "__persist must return a function"); + } + + lua_remove(L, -2); /* __persist */ + + lua_newtable(L); + lua_pushvalue(L, -2); /* callback */ + lua_rawseti(L, -2, 1); + + buf_init(L, &rec_buf); + mar_encode_table(L, &rec_buf, idx); + + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&rec_buf.head, MAR_I32, buf); + buf_write(L, rec_buf.data, rec_buf.head, buf); + buf_done(L, &rec_buf); + lua_pop(L, 1); + } + else { + tag = MAR_TVAL; + + lua_pushvalue(L, -1); + lua_pushinteger(L, (*idx)++); + lua_rawset(L, SEEN_IDX); + + lua_pushvalue(L, -1); + buf_init(L, &rec_buf); + mar_encode_table(L, &rec_buf, idx); + lua_pop(L, 1); + + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&rec_buf.head, MAR_I32, buf); + buf_write(L, rec_buf.data,rec_buf.head, buf); + buf_done(L, &rec_buf); + } + } + break; + } + case LUA_TFUNCTION: { + int tag, ref; + lua_pushvalue(L, -1); + lua_rawget(L, SEEN_IDX); + if (!lua_isnil(L, -1)) { + ref = lua_tointeger(L, -1); + tag = MAR_TREF; + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&ref, MAR_I32, buf); + lua_pop(L, 1); + } + else { + mar_Buffer rec_buf; + int i; + lua_Debug ar; + lua_pop(L, 1); /* pop nil */ + + lua_pushvalue(L, -1); + lua_getinfo(L, ">nuS", &ar); + if (ar.what[0] != 'L') { + luaL_error(L, "attempt to persist a C function '%s'", ar.name); + } + tag = MAR_TVAL; + lua_pushvalue(L, -1); + lua_pushinteger(L, (*idx)++); + lua_rawset(L, SEEN_IDX); + + lua_pushvalue(L, -1); + buf_init(L, &rec_buf); + lua_dump(L, (lua_Writer)buf_write, &rec_buf); + + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&rec_buf.head, MAR_I32, buf); + buf_write(L, rec_buf.data, rec_buf.head, buf); + buf_done(L, &rec_buf); + lua_pop(L, 1); + + lua_newtable(L); + for (i=1; i <= ar.nups; i++) { + lua_getupvalue(L, -2, i); + lua_rawseti(L, -2, i); + } + + buf_init(L, &rec_buf); + mar_encode_table(L, &rec_buf, idx); + + buf_write(L, (void*)&rec_buf.head, MAR_I32, buf); + buf_write(L, rec_buf.data, rec_buf.head, buf); + buf_done(L, &rec_buf); + lua_pop(L, 1); + } + + break; + } + case LUA_TUSERDATA: { + int tag, ref; + lua_pushvalue(L, -1); + lua_rawget(L, SEEN_IDX); + if (!lua_isnil(L, -1)) { + ref = lua_tointeger(L, -1); + tag = MAR_TREF; + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&ref, MAR_I32, buf); + lua_pop(L, 1); + } + else { + mar_Buffer rec_buf; + lua_pop(L, 1); /* pop nil */ + if (luaL_getmetafield(L, -1, "__persist")) { + tag = MAR_TUSR; + + lua_pushvalue(L, -2); + lua_pushinteger(L, (*idx)++); + lua_rawset(L, SEEN_IDX); + + lua_pushvalue(L, -2); + lua_call(L, 1, 1); + if (!lua_isfunction(L, -1)) { + luaL_error(L, "__persist must return a function"); + } + lua_newtable(L); + lua_pushvalue(L, -2); + lua_rawseti(L, -2, 1); + lua_remove(L, -2); + + buf_init(L, &rec_buf); + mar_encode_table(L, &rec_buf, idx); + + buf_write(L, (void*)&tag, MAR_CHR, buf); + buf_write(L, (void*)&rec_buf.head, MAR_I32, buf); + buf_write(L, rec_buf.data, rec_buf.head, buf); + buf_done(L, &rec_buf); + } + else { + luaL_error(L, "attempt to encode userdata (no __persist hook)"); + } + lua_pop(L, 1); + } + break; + } + case LUA_TNIL: break; + default: + luaL_error(L, "invalid value type (%s)", lua_typename(L, val_type)); + } + lua_pop(L, 1); +} + +static int mar_encode_table(lua_State *L, mar_Buffer *buf, size_t *idx) +{ + lua_pushnil(L); + while (lua_next(L, -2) != 0) { + mar_encode_value(L, buf, -2, idx); + mar_encode_value(L, buf, -1, idx); + lua_pop(L, 1); + } + return 1; +} + +#define mar_incr_ptr(l) \ + if (((*p)-buf)+(l) > len) luaL_error(L, "bad code"); (*p) += (l); + +#define mar_next_len(l,T) \ + if (((*p)-buf)+sizeof(T) > len) luaL_error(L, "bad code"); \ + l = *(T*)*p; (*p) += sizeof(T); + +static void mar_decode_value + (lua_State *L, const char *buf, size_t len, const char **p, size_t *idx) +{ + size_t l; + char val_type = **p; + mar_incr_ptr(MAR_CHR); + switch (val_type) { + case LUA_TBOOLEAN: + lua_pushboolean(L, *(char*)*p); + mar_incr_ptr(MAR_CHR); + break; + case LUA_TNUMBER: + lua_pushnumber(L, *(lua_Number*)*p); + mar_incr_ptr(MAR_I64); + break; + case LUA_TSTRING: + mar_next_len(l, uint32_t); + lua_pushlstring(L, *p, l); + mar_incr_ptr(l); + break; + case LUA_TTABLE: { + char tag = *(char*)*p; + mar_incr_ptr(MAR_CHR); + if (tag == MAR_TREF) { + int ref; + mar_next_len(ref, int); + lua_rawgeti(L, SEEN_IDX, ref); + } + else if (tag == MAR_TVAL) { + mar_next_len(l, uint32_t); + lua_newtable(L); + lua_pushvalue(L, -1); + lua_rawseti(L, SEEN_IDX, (*idx)++); + mar_decode_table(L, *p, l, idx); + mar_incr_ptr(l); + } + else if (tag == MAR_TUSR) { + mar_next_len(l, uint32_t); + lua_newtable(L); + mar_decode_table(L, *p, l, idx); + lua_rawgeti(L, -1, 1); + lua_call(L, 0, 1); + lua_remove(L, -2); + lua_pushvalue(L, -1); + lua_rawseti(L, SEEN_IDX, (*idx)++); + mar_incr_ptr(l); + } + else { + luaL_error(L, "bad encoded data"); + } + break; + } + case LUA_TFUNCTION: { + size_t nups; + int i; + mar_Buffer dec_buf; + char tag = *(char*)*p; + mar_incr_ptr(1); + if (tag == MAR_TREF) { + int ref; + mar_next_len(ref, int); + lua_rawgeti(L, SEEN_IDX, ref); + } + else { + mar_next_len(l, uint32_t); + dec_buf.data = (char*)*p; + dec_buf.size = l; + dec_buf.head = l; + dec_buf.seek = 0; + lua_load(L, (lua_Reader)buf_read, &dec_buf, "=marshal"); + mar_incr_ptr(l); + + lua_pushvalue(L, -1); + lua_rawseti(L, SEEN_IDX, (*idx)++); + + mar_next_len(l, uint32_t); + lua_newtable(L); + mar_decode_table(L, *p, l, idx); + nups = lua_objlen(L, -1); + for (i=1; i <= nups; i++) { + lua_rawgeti(L, -1, i); + lua_setupvalue(L, -3, i); + } + lua_pop(L, 1); + mar_incr_ptr(l); + } + break; + } + case LUA_TUSERDATA: { + char tag = *(char*)*p; + mar_incr_ptr(MAR_CHR); + if (tag == MAR_TREF) { + int ref; + mar_next_len(ref, int); + lua_rawgeti(L, SEEN_IDX, ref); + } + else if (tag == MAR_TUSR) { + mar_next_len(l, uint32_t); + lua_newtable(L); + mar_decode_table(L, *p, l, idx); + lua_rawgeti(L, -1, 1); + lua_call(L, 0, 1); + lua_remove(L, -2); + lua_pushvalue(L, -1); + lua_rawseti(L, SEEN_IDX, (*idx)++); + mar_incr_ptr(l); + } + else { /* tag == MAR_TVAL */ + lua_pushnil(L); + } + break; + } + case LUA_TNIL: + case LUA_TTHREAD: + lua_pushnil(L); + break; + default: + luaL_error(L, "bad code"); + } +} + +static int mar_decode_table(lua_State *L, const char* buf, size_t len, size_t *idx) +{ + const char* p; + p = buf; + while (p - buf < len) { + mar_decode_value(L, buf, len, &p, idx); + mar_decode_value(L, buf, len, &p, idx); + lua_settable(L, -3); + } + return 1; +} + +static int mar_encode(lua_State* L) +{ + const unsigned char m = MAR_MAGIC; + size_t idx, len; + mar_Buffer buf; + + if (lua_isnone(L, 1)) { + lua_pushnil(L); + } + if (lua_isnoneornil(L, 2)) { + lua_newtable(L); + } + else if (!lua_istable(L, 2)) { + luaL_error(L, "bad argument #2 to encode (expected table)"); + } + lua_settop(L, 2); + + len = lua_objlen(L, 2); + lua_newtable(L); + for (idx = 1; idx <= len; idx++) { + lua_rawgeti(L, 2, idx); + if (lua_isnil(L, -1)) { + lua_pop(L, 1); + continue; + } + lua_pushinteger(L, idx); + lua_rawset(L, SEEN_IDX); + } + lua_pushvalue(L, 1); + + buf_init(L, &buf); + buf_write(L, (void*)&m, 1, &buf); + + mar_encode_value(L, &buf, -1, &idx); + + lua_pop(L, 1); + + lua_pushlstring(L, buf.data, buf.head); + + buf_done(L, &buf); + + lua_remove(L, SEEN_IDX); + + return 1; +} + +static int mar_decode(lua_State* L) +{ + size_t l, idx, len; + const char *p; + const char *s = luaL_checklstring(L, 1, &l); + + if (l < 1) luaL_error(L, "bad header"); + if (*(unsigned char *)s++ != MAR_MAGIC) luaL_error(L, "bad magic"); + l -= 1; + + if (lua_isnoneornil(L, 2)) { + lua_newtable(L); + } + else if (!lua_istable(L, 2)) { + luaL_error(L, "bad argument #2 to decode (expected table)"); + } + lua_settop(L, 2); + + len = lua_objlen(L, 2); + lua_newtable(L); + for (idx = 1; idx <= len; idx++) { + lua_rawgeti(L, 2, idx); + lua_rawseti(L, SEEN_IDX, idx); + } + + p = s; + mar_decode_value(L, s, l, &p, &idx); + + lua_remove(L, SEEN_IDX); + lua_remove(L, 2); + + return 1; +} + +static int mar_clone(lua_State* L) +{ + mar_encode(L); + lua_replace(L, 1); + mar_decode(L); + return 1; +} + +static const struct luaL_reg R[] = +{ + {"encode", mar_encode}, + {"decode", mar_decode}, + {"clone", mar_clone}, + {NULL, NULL}, +}; + +int luaopen_marshal(lua_State *L) +{ + //lua_newtable(L); + //luaL_register(L, NULL, R); + luaL_register(L, "marshal", R); + return 1; +} + diff --git a/src/3rd party/lua-extensions/lmarshal.h b/src/3rd party/lua-extensions/lmarshal.h new file mode 100644 index 00000000000..ab177f4cb4c --- /dev/null +++ b/src/3rd party/lua-extensions/lmarshal.h @@ -0,0 +1,3 @@ + + +int luaopen_marshal (lua_State *L); \ No newline at end of file diff --git a/src/3rd party/lua-extensions/logger.h b/src/3rd party/lua-extensions/logger.h new file mode 100644 index 00000000000..d133cc06583 --- /dev/null +++ b/src/3rd party/lua-extensions/logger.h @@ -0,0 +1,8 @@ +#include +#include "xrCore.h" + +#include +#include + + +int open_log(lua_State *L); \ No newline at end of file diff --git a/src/3rd party/lua-extensions/lua_extensions.filters b/src/3rd party/lua-extensions/lua_extensions.filters new file mode 100644 index 00000000000..9bbba7d69e3 --- /dev/null +++ b/src/3rd party/lua-extensions/lua_extensions.filters @@ -0,0 +1,77 @@ +п»ї + + + + {4FC737F1-C7A5-4376-A066-2A32D752A2FF} + cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx + + + {93995380-89BD-4b04-88EB-625FBE52EBFB} + h;hpp;hxx;hm;inl;inc;xsd + + + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + \ No newline at end of file diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj new file mode 100644 index 00000000000..e3cc00eac97 --- /dev/null +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -0,0 +1,141 @@ +п»ї + + + + Debug + Win32 + + + Release + Win32 + + + + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE} + rvp + lua_extensions + + + + DynamicLibrary + true + MultiByte + Static + v120 + + + DynamicLibrary + false + true + MultiByte + false + v120 + + + + + + + + + + + + + + $(ProjectName) + $(VC_IncludePath);$(WindowsSDK_IncludePath); + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); + false + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + + + + Level3 + Disabled + E:\STALKER\Working\xrluafix\cs_cop_andrey\lua;%(AdditionalIncludeDirectories) + + + true + + + + + TurnOffAllWarnings + MaxSpeed + true + true + ..\LuaJIT-1.1.8\src;%(AdditionalIncludeDirectories) + + + true + true + true + $(xrLibDir);%(AdditionalLibraryDirectories) + + + + + + true + + + + true + + + true + + + true + + + true + + + + true + + + + + + true + + + + true + + + true + + + true + + + true + + + + true + + + + + + {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} + + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} + false + true + false + true + true + + + + + + \ No newline at end of file diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters new file mode 100644 index 00000000000..0d1c9fd5a1c --- /dev/null +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters @@ -0,0 +1,55 @@ +п»ї + + + + + + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + + + + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + Old Files + + + + + {ec3c7f77-99ea-46d1-ad76-3439ab31bcd2} + + + \ No newline at end of file diff --git a/src/3rd party/lua-extensions/script_additional_libs.cpp b/src/3rd party/lua-extensions/script_additional_libs.cpp new file mode 100644 index 00000000000..175a5133503 --- /dev/null +++ b/src/3rd party/lua-extensions/script_additional_libs.cpp @@ -0,0 +1,324 @@ +//RvP, 11.05.2014 Функционал из xrLuaFix +//#include "StdAfx.h" +#include "script_additional_libs.h" +#include + +/******************** BIT ********************/ +int ROL(int a, int n){ + int t1, t2; + n = n % (sizeof(a) * 8); + t1 = a << n; + t2 = a >> (sizeof(a) * 8 - n); + return t1 | t2; +} +int ROR(int a, int n){ + int t1, t2; + n = n % (sizeof(a) * 8); + t1 = a >> n; + t2 = a << (sizeof(a) * 8 - n); + return t1 | t2; +} + +int bit_tobit(lua_State *L){ + LUA_INTEGER n = luaL_checkinteger(L, 1); + BYTE len = sizeof(n)*8; + char *s = new char[len+1]; + itoa(n, s, 2); + lua_pushfstring(L, s); + return 1; +} + +int bit_tohex(lua_State *L){ + LUA_INTEGER n = luaL_checkinteger(L, 1); + BYTE len = sizeof(n)*2; + char *s = new char[len+1]; + itoa(n, s, 16); + lua_pushfstring(L, s); + return 1; +} + +int bit_not(lua_State *L){ + LUA_INTEGER n = luaL_checkinteger(L, 1); + lua_pushinteger(L, ~n); + return 1; +} + +int bit_and(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a & b); + return 1; +} + +int bit_or(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a | b); + return 1; +} + +int bit_xor(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a ^ b); + return 1; +} + +int bit_rol(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, ROL(a, n)); + return 1; +} + +int bit_ror(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, ROR(a, n)); + return 1; +} + +int bit_lshift(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, a << n); + return 1; +} + +int bit_rshift(lua_State *L){ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, a >> n); + return 1; +} + +const struct luaL_Reg bit_funcs[] = { + { "tobit", bit_tobit }, + { "tohex", bit_tohex }, + { "bnot", bit_not }, + { "band", bit_and }, + { "bor", bit_or }, + { "bxor", bit_xor }, + { "lshift", bit_lshift }, + { "rshift", bit_rshift }, + { "rol", bit_rol }, + { "ror", bit_ror }, + { NULL, NULL } +}; + +int open_bit(lua_State *L){ + luaL_register(L, "bit", bit_funcs); + return 0; +} +/******************** BIT END ********************/ + +/******************** STRING ********************/ +int str_trim(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*front) ; size-- , front++) + ; + for ( ; size && isspace(*end) ; size-- , end--) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_l(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*front) ; size-- , front++) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_r(lua_State *L){ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L,1,&size); + end = &front[size - 1]; + for ( ; size && isspace(*end) ; size-- , end--) + ; + lua_pushlstring(L,front,(size_t)(end - front) + 1); + return 1; +} + +int str_trim_w(lua_State *L){ + int i=0 , d, n; + const char *s = luaL_checkstring(L,1);; + while (s[i]==' ') i++; + n=i; + while (s[i]!=' ' && s[i]) i++; + d=i-n; + lua_pushlstring(L, s+n, d); + return 1; +} + +const luaL_Reg strlib[] = { + {"trim", str_trim}, + {"trim_l", str_trim_l}, + {"trim_r", str_trim_r}, + {"trim_w", str_trim_w}, + {NULL, NULL} +}; + +int open_string(lua_State *L){ + luaL_openlib(L, LUA_STRLIBNAME, strlib, 0); + return 0; +} +/******************** STRING END ********************/ + +/******************** MATH ********************/ +std::random_device ndrng; +std::mt19937 intgen; +std::uniform_real float_random_01; + +int gen_random_in_range(int a1, int a2){ //unsigned? + std::uniform_int<> dist(a1, a2); + return dist(intgen); +} + +int math_randomseed(lua_State *L){ + switch (lua_gettop(L)){ + case 0:{ + intgen.seed(ndrng()); + break; + } + case 1:{ + DWORD seed_value = luaL_checkint(L, 1); + intgen.seed(seed_value); + break; + } + default: return luaL_error(L, "math_randomseed: wrong number of arguments"); + } + return 0; +} + +int math_random(lua_State *L){ + switch (lua_gettop(L)){ + case 0:{ + lua_pushnumber(L, float_random_01(intgen)); + break; + } + case 1:{ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1<=u, 1, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(1,u)); + break; + } + case 2:{ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l<=u, 2, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(l,u)); + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; +} + +const luaL_Reg mathlib[] = { + {"random", math_random}, + {"randomseed", math_randomseed}, + {NULL, NULL} +}; + +int open_math(lua_State *L){ + luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0); + return 0; +} +/******************** MATH END ********************/ + +/******************** TABLE ********************/ +inline DWORD C_get_size(lua_State *L){ + int i = 0; + lua_settop(L, 2); + while (lua_next(L, 1)){ + ++i; + lua_pop(L, 1); + } + return i; +} + +int tab_keys (lua_State *L){ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while(lua_next(L, 1) !=0 ){ + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -3); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; +} + +int tab_values (lua_State *L){ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while(lua_next(L, 1) != 0){ + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -2); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; +} + +int get_size(lua_State *L) { + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushinteger(L, C_get_size(L)); + return 1; +} + +int get_random(lua_State *L){ + int i = C_get_size(L); + int j = gen_random_in_range(1, i); + i=0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); + while(lua_next(L, 1)){ + ++i; + if(i == j){ + lua_pushvalue(L, -2); + lua_pushvalue(L, -2); + return 2; + } + lua_pop(L, 1); + } + return 0; +} + +const luaL_Reg tab_funcs[] = { + {"keys", tab_keys}, + {"values", tab_values}, + {"size", get_size}, + {"random", get_random}, + {NULL, NULL} +}; + +int open_table(lua_State *L){ + luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0); + return 0; +} +/******************** TABLE END ********************/ +void open_additional_libs(lua_State *L){ + open_bit(L); + open_string(L); + open_math(L); + open_table(L); +} \ No newline at end of file diff --git a/src/3rd party/lua-extensions/script_additional_libs.h b/src/3rd party/lua-extensions/script_additional_libs.h new file mode 100644 index 00000000000..bdce2c7ea0b --- /dev/null +++ b/src/3rd party/lua-extensions/script_additional_libs.h @@ -0,0 +1,10 @@ +#pragma once + +#include "../LuaJIT-1.1.8/etc/lua.hpp" +#include +#include + +typedef unsigned long DWORD; +typedef unsigned char BYTE; + +void open_additional_libs(lua_State*); \ No newline at end of file diff --git a/src/engine.sln b/src/engine.sln index 695490d8283..6ef9a6a2b71 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -134,6 +134,8 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "NVTT", "3rd party\NVTT\NVTT EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "LuaJIT-1.1.8", "3rd party\LuaJIT-1.1.8\LuaJIT-1.1.8.vcxproj", "{2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}" EndProject +Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lua_extensions", "3rd party\lua-extensions\lua_extensions.vcxproj", "{44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug_Dedicated|Win32 = Debug_Dedicated|Win32 @@ -593,6 +595,18 @@ Global {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.ActiveCfg = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.Build.0 = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Win32.ActiveCfg = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.ActiveCfg = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.Build.0 = Release|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -637,6 +651,7 @@ Global {880CD250-BA77-4DAF-A8D4-552F12DD3AE4} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {0EB257DC-5CFC-44B0-82C9-CE6B158BE473} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} EndGlobalSection GlobalSection(DPCodeReviewSolutionGUID) = preSolution DPCodeReviewSolutionGUID = {00000000-0000-0000-0000-000000000000} diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 831e114738d..4e10c4ae472 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -732,14 +732,13 @@ void CActor::HitMark(float P, void CActor::HitSignal(float perc, Fvector& vLocalDir, CObject* who, s16 element) { + //AVO: get bone names from IDs + //LPCSTR bone_name = smart_cast(this->Visual())->LL_BoneName_dbg(element); + //Msg("Bone [%d]->[%s]", element, bone_name); + //-AVO + if (g_Alive()) { - /* AVO: to get bone names from IDs*/ - /*Log("hit info"); - Log("bone ID = %s", element); - Log("bone Name = %s", smart_cast(this->Visual())->LL_BoneName_dbg(element)); - Log("hit info END");*/ - // check damage bone Fvector D; XFORM().transform_dir(D, vLocalDir); diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index 49f1843c1e3..36db3af6bf2 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -214,6 +214,14 @@ void CAI_Stalker::Hit(SHit* pHDS) //хит может меняться в зависимости от ранга (новички получают больше хита, чем ветераны) SHit HDS = *pHDS; HDS.add_wound = true; + + //AVO: get bone names from IDs + //if (HDS.whoID == 0) // if shot by actor + //{ + // LPCSTR bone_name = smart_cast(this->Visual())->LL_BoneName_dbg(HDS.boneID); + // Msg("Bone [%d]->[%s]", HDS.boneID, bone_name); + //} + //-AVO float hit_power = HDS.power * m_fRankImmunity; From 78b92b4f8331b95c008a49fc33a0759e0261f316 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 4 Jan 2015 21:59:36 -0500 Subject: [PATCH 055/166] * bug fixes for previous commit + weapons class diagram --- src/xrGame/HudItem.cpp | 9 +- src/xrGame/HudItem.h | 2 +- src/xrGame/WeaponAutomaticShotgun.h | 2 +- src/xrGame/WeaponMagazined.cpp | 24 +- src/xrGame/WeaponMagazined.h | 9 +- src/xrGame/WeaponMagazinedWGrenade.cpp | 6 +- src/xrGame/Weapons.cd | 291 +++++++++++++++++++++++++ src/xrGame/xrGame.vcxproj | 3 + src/xrGame/xrGame.vcxproj.filters | 14 ++ 9 files changed, 342 insertions(+), 18 deletions(-) create mode 100644 src/xrGame/Weapons.cd diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index c4c8186c528..dc9d74778e8 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -383,20 +383,19 @@ bool CHudItem::TryPlayAnimIdle() } //AVO: check is animation exists -bool CHudItem::DoesAnimationExist(LPCSTR anim_name) +bool CHudItem::HudAnimationExist(LPCSTR anim_name) { string256 anim_name_r; bool is_16x9 = UI().is_widescreen(); u16 attach_place_idx = pSettings->r_u16(HudItemData()->m_sect_name, "attach_place_idx"); xr_sprintf(anim_name_r, "%s%s", anim_name, ((attach_place_idx == 1) && is_16x9) ? "_16x9" : ""); - player_hud_motion_container m_hand_motions; - player_hud_motion* anm = m_hand_motions.find_motion(anim_name_r); + player_hud_motion* anm = HudItemData()->m_hand_motions.find_motion(anim_name_r); //VERIFY2(anm, make_string("Animation [%s] not found", anim_name).c_str()); if (anm) return true; else { - Msg("AVO----->Animation [%s] does not exist", anim_name); + Msg("~ [WARNING] ------ Animation [%s] does not exist in [%s]", anim_name, HudItemData()->m_sect_name.c_str()); return false; } } @@ -405,7 +404,7 @@ bool CHudItem::DoesAnimationExist(LPCSTR anim_name) //AVO: new crouch idle animation void CHudItem::PlayAnimCrouchIdleMoving() { - if (DoesAnimationExist("anm_idle_moving_crouch")) + if (HudAnimationExist("anm_idle_moving_crouch")) PlayHUDMotion("anm_idle_moving_crouch", TRUE, NULL, GetState()); } //-AVO diff --git a/src/xrGame/HudItem.h b/src/xrGame/HudItem.h index 33ed21d28ce..6360d94bad1 100644 --- a/src/xrGame/HudItem.h +++ b/src/xrGame/HudItem.h @@ -173,6 +173,6 @@ class CHudItem :public CHUDState virtual CHudItem* cast_hud_item () { return this; } void PlayAnimCrouchIdleMoving(); //AVO: new crouch idle animation - bool DoesAnimationExist(LPCSTR anim_name); + bool HudAnimationExist(LPCSTR anim_name); }; diff --git a/src/xrGame/WeaponAutomaticShotgun.h b/src/xrGame/WeaponAutomaticShotgun.h index c6fc3ff78f9..a09dbe9cfce 100644 --- a/src/xrGame/WeaponAutomaticShotgun.h +++ b/src/xrGame/WeaponAutomaticShotgun.h @@ -25,7 +25,7 @@ class CWeaponAutomaticShotgun : public CWeaponMagazined void PlayAnimCloseWeapon (); virtual bool Action (u16 cmd, u32 flags); - virtual int GetCurrentFireMode () { return m_aFireModes[m_iCurFireMode]; }; + //virtual int GetCurrentFireMode () { return m_aFireModes[m_iCurFireMode]; }; //AVO: this is already implemented in paremnt class (CWeaponMagazined) protected: virtual void OnAnimationEnd (u32 state); diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index b11ab6f6920..77f13dda60f 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -68,6 +68,21 @@ void CWeaponMagazined::net_Destroy() inherited::net_Destroy(); } +//AVO: for custom added sounds check if sound exists +bool CWeaponMagazined::WeaponSoundExist(LPCSTR section, LPCSTR sound_name) +{ + LPCSTR str; + bool sec_exist = process_if_exists_set(section, sound_name, &CInifile::r_string, str, true); + if (sec_exist) + return true; + else + { + Msg("~ [WARNING] ------ Sound [%s] does not exist in [%s]", sound_name, section); + return false; + } +} +//-AVO + void CWeaponMagazined::Load(LPCSTR section) { inherited::Load(section); @@ -80,13 +95,8 @@ void CWeaponMagazined::Load(LPCSTR section) m_sounds.LoadSound(section, "snd_reload", "sndReload", true, m_eSoundReload); #ifdef NEW_SOUNDS //AVO: custom sounds go here - //TODO: refactor sound exstance check into its own function - LPCSTR str; - bool sec_exist = process_if_exists_set(section, "snd_reload_empty", &CInifile::r_string, str, true); - if (sec_exist) + if (WeaponSoundExist(section, "snd_reload_empty")) m_sounds.LoadSound(section, "snd_reload_empty", "sndReloadEmpty", true, m_eSoundReloadEmpty); - else - Msg("AVO----->Sound snd_reload_empty not found"); #endif //-NEW_SOUNDS m_sSndShotCurrent = "sndShot"; @@ -1125,7 +1135,7 @@ void CWeaponMagazined::PlayAnimReload() if (iAmmoElapsed == 0) { #ifdef NEW_ANIMS //AVO: new reload animation - if (DoesAnimationExist("anm_reload_empty")) + if (HudAnimationExist("anm_reload_empty")) PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); else #endif //-NEW_ANIMS diff --git a/src/xrGame/WeaponMagazined.h b/src/xrGame/WeaponMagazined.h index 992eb693858..a25426443ce 100644 --- a/src/xrGame/WeaponMagazined.h +++ b/src/xrGame/WeaponMagazined.h @@ -161,7 +161,12 @@ class CWeaponMagazined : public CWeapon }; virtual int GetCurrentFireMode() { - return m_aFireModes[m_iCurFireMode]; + //AVO: fixed crash due to original GSC assumption that CWeaponMagazined will always have firemodes specified in configs. + //return m_aFireModes[m_iCurFireMode]; + if (HasFireModes()) + return m_aFireModes[m_iCurFireMode]; + else + return 1; }; virtual void save(NET_Packet &output_packet); @@ -198,4 +203,6 @@ class CWeaponMagazined : public CWeapon u16 parent_id, u16 weapon_id, bool send_hit); + //AVO: for custom added sounds check if sound exists + bool WeaponSoundExist(LPCSTR section, LPCSTR sound_name); }; diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 1a4fa97d2d4..3a07f43a5dd 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -613,7 +613,7 @@ void CWeaponMagazinedWGrenade::PlayAnimReload() if (iAmmoElapsed == 0) { #ifdef NEW_ANIMS //AVO: new reload animation - if (DoesAnimationExist("anm_reload_empty_w_gl")) + if (HudAnimationExist("anm_reload_empty_w_gl")) PlayHUDMotion("anm_reload_empty_w_gl", TRUE, this, GetState()); else #endif //-NEW_ANIMS @@ -676,7 +676,7 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() if (act_state == 3) { #ifdef NEW_ANIMS //AVO: custom move animation - if (DoesAnimationExist("anm_idle_moving_crouch_g")) + if (HudAnimationExist("anm_idle_moving_crouch_g")) PlayHUDMotion("anm_idle_moving_crouch_g", TRUE, NULL, GetState()); #endif //-NEW_ANIMS } @@ -695,7 +695,7 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() if (act_state == 3) { #ifdef NEW_ANIMS //AVO: custom move animation - if (DoesAnimationExist("anm_idle_moving_crouch_w_gl")) + if (HudAnimationExist("anm_idle_moving_crouch_w_gl")) PlayHUDMotion("anm_idle_moving_crouch_w_gl", TRUE, NULL, GetState()); #endif //-NEW_ANIMS } diff --git a/src/xrGame/Weapons.cd b/src/xrGame/Weapons.cd new file mode 100644 index 00000000000..e2c03c190e8 --- /dev/null +++ b/src/xrGame/Weapons.cd @@ -0,0 +1,291 @@ +п»ї + + + + + BBgBgAAAAwACYAAAAAAQAAAAIAgAQAQAAAAAIAREAAA= + WeaponPistol.h + + + + + + AIAACAAAAAAAAAAAQAAAAgAAAAAAAAAAAAAAAAAAAAA= + WeaponCustomAuto.h + + + + + + hPoBiBBJZ6iGxErgZMEEYAMYJMIIgUgBKDEhAyRkTwQ= + WeaponMagazined.h + + + + + + b9YKtlUjd5jVtrNfL0rfd7I8fGztrz5HT9h+LzLP+/4= + Weapon.h + + + + + + AAIAgAAAAAwAAIAQIEAQAIBEJAAAKAAAAACAAogACAQ= + hud_item_object.h + + + + + + hMEohOAAQQAFoIGEgoAEBISIDCyJC4RCygUwCZIKgvk= + ShootingObject.h + + + + + + IBIAiBAAkYWAAoBRAEIUBABAIAAIKAAEAYAIagQDCAE= + inventory_item_object.h + + + + + + BCAQgEAQASxYaPIVoEQQhKhMcIAEaSAgYgKCLxkAGRw= + HudItem.h + + + + + + eJMEghCtlf+hKu5VbGJ8dpT5oqNOJJUkYICJawxrCQU= + inventory_item.h + + + + + + AQAAgAAAAAAAAIIRIAAQBAAAIAAIAAIAAAAAYAAKCAA= + physic_item.h + + + + + + CAKCAQQAACAAAAAIAAaBBABSkAgJKQQAAAIAAgAEAAE= + attachable_item.h + + + + + + AAAAAAIAAgACAEAAAgQAAAAAAAAAAAAAAAAAAAAAQAA= + hit_immunity.h + + + + + + AIAACAAAAAAAAAAAAAAAAAAAACAACAgAAAAAAAAAAAA= + WeaponCustomPistol.h + + + + + + BBgBgAAAAwACYCAAAAAQAAAAIAAAQAQAAAAAIAREgAA= + WeaponRevolver.h + + + + + + AAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIA= + WeaponWalther.h + + + + + + AAAAAAAAEAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAA= + WeaponUSP45.h + + + + + + AAgAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAAAAAAAA= + WeaponFORT.h + + + + + + AAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAIAAAAAA= + WeaponHPSA.h + + + + + + BYoAgABPY4iCQIpYJEgUAAEgYMAgAAABIABAIAVEAgQ= + WeaponMagazinedWGrenade.h + + + + + + IBACgAAIISQAAIAQAEIQQiAAIABCMhAUIQCATgACOAQ= + Grenade.h + + + + + + CQADgAAAAISEIIAQCEAAEAIAIAAAAAAAIAAAAAAACAQ= + WeaponBinoculars.h + + + + + + BAgAgAAAAgACYAAAAAAAQAAAAAAAQAAAAAAAIAAQAAA= + weaponBM16.h + + + + + + QQgCgEEhEZggIKARAMADFAEAKhBAAgAMJQIIBkgCCgQ= + Missile.h + + + + + + AACAnAAAQQgRAABAAAAEAhAAIiEAAAQQCAAAAAAAAAQ= + WeaponShotgun.h + + + + + + IAAAAAAAIAAAAAAAAAIAAAAAABAAAAAAAQAACgAiAAQ= + Bolt.h + + + + + + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAEAAAAA= + WeaponFN2000.h + + + + + + AAAAAAAAAAEAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAA= + F1.h + + + + + + AAEiwFAIIQwsAhRECIBAAKCAwEiBAXgUIgAR4RogQgQ= + WeaponKnife.h + + + + + + AAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAA= + WeaponLR300.h + + + + + + AAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAAAACAAAAAAAA= + WeaponPM.h + + + + + + AAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAEAA= + RGD5.h + + + + + + BEAAiAAAIAgAAICAIEAEABAAAIIBAAAAAAACASAAAAA= + WeaponRPG7.h + + + + + + AAEACAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAA= + WeaponSVD.h + + + + + + ACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAA= + WeaponSVU.h + + + + + + AIAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAA= + WeaponAK74.h + + + + + + AACAlAAAAQgRAABAAAAEAhAAAgEAAAwQCAEAAEAAAAQ= + WeaponAutomaticShotgun.h + + + + + + AQAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA= + WeaponGroza.h + + + + + + AAAAgAAAAAABAIAAAEAAAAAAAAAAAAAAAAACAQAAAAA= + WeaponRG6.h + + + + + + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAACAAAAAAAA= + WeaponVal.h + + + + + + AAAAAAAAAAAAQAAAAAAAAAAAAAAABAAAAAAAAAAAAAA= + WeaponVintorez.h + + + + + + CoAAoEAAAAIAAAAAAQAIAAAAAAAAAAAgAAAQAAAIAEE= + RocketLauncher.h + + + + \ No newline at end of file diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index f1f1cc791cf..e2b36e9ff50 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -4189,6 +4189,9 @@ {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} + + + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index 4e6105c4a3b..3894d45e2ad 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -2488,6 +2488,9 @@ {66d4d9cb-fbc2-4e9a-8483-4eb5c1738ed9} + + {3c08723e-1b59-45e4-958f-3a1c5590cfa9} + @@ -11030,6 +11033,12 @@ UI\Multiplayer\Voting + + Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + + + Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + @@ -11051,4 +11060,9 @@ UI\Common\PDA\Statistics & Rankings + + + Class Diagrams + + \ No newline at end of file From 8bc50bb7ed42c5ff9b6019e61d7bc09252be5c6d Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 4 Jan 2015 22:23:14 -0500 Subject: [PATCH 056/166] * fixed fast animation switches with GL --- src/xrGame/WeaponMagazinedWGrenade.cpp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 3a07f43a5dd..36f88747ece 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -634,7 +634,7 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() if (IsZoomed()) { if (m_bGrenadeMode) - PlayHUDMotion("anm_idle_g_aim", FALSE, NULL, GetState()); + PlayHUDMotion("anm_idle_g_aim", /*FALSE*/TRUE, NULL, GetState()); //AVO: fix fast anim switch else PlayHUDMotion("anm_idle_w_gl_aim", TRUE, NULL, GetState()); } @@ -665,7 +665,7 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() if (m_bGrenadeMode) { if (act_state == 0) - PlayHUDMotion("anm_idle_g", FALSE, NULL, GetState()); + PlayHUDMotion("anm_idle_g", /*FALSE*/TRUE, NULL, GetState()); //AVO: fix fast anim switch else if (act_state == 1) PlayHUDMotion("anm_idle_sprint_g", TRUE, NULL, GetState()); @@ -684,7 +684,7 @@ void CWeaponMagazinedWGrenade::PlayAnimIdle() else { if (act_state == 0) - PlayHUDMotion("anm_idle_w_gl", FALSE, NULL, GetState()); + PlayHUDMotion("anm_idle_w_gl", /*FALSE*/TRUE, NULL, GetState()); //AVO: fix fast anim switch else if (act_state == 1) PlayHUDMotion("anm_idle_sprint_w_gl", TRUE, NULL, GetState()); @@ -725,9 +725,9 @@ void CWeaponMagazinedWGrenade::PlayAnimShoot() void CWeaponMagazinedWGrenade::PlayAnimModeSwitch() { if (m_bGrenadeMode) - PlayHUDMotion("anm_switch_g", FALSE, this, eSwitch); + PlayHUDMotion("anm_switch_g", /*FALSE*/ TRUE, this, eSwitch); //AVO: fix fast anim switch else - PlayHUDMotion("anm_switch", FALSE, this, eSwitch); + PlayHUDMotion("anm_switch", /*FALSE*/ TRUE, this, eSwitch); //AVO: fix fast anim switch } void CWeaponMagazinedWGrenade::PlayAnimBore() From ae54aa5575f18255f5b8e9658a511d9b8ff105f0 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 5 Jan 2015 00:38:00 -0500 Subject: [PATCH 057/166] + initial framework for misfire sounds and animations (aka gunslinger) --- src/xrGame/WeaponMagazined.cpp | 49 +++++++++++++++++++++++----------- 1 file changed, 33 insertions(+), 16 deletions(-) diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 77f13dda60f..837d9c74624 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -481,7 +481,7 @@ void CWeaponMagazined::UpdateSounds() m_sounds.SetPosition("sndHide", P); //. nah m_sounds.SetPosition("sndShot", P); m_sounds.SetPosition("sndReload", P); - + #ifdef NEW_SOUNDS //AVO: custom sounds go here if (m_sounds.FindSoundItem("sndReloadEmpty", false)) m_sounds.SetPosition("sndReloadEmpty", P); @@ -742,20 +742,28 @@ void CWeaponMagazined::switch2_Empty() void CWeaponMagazined::PlayReloadSound() { if (m_sounds_enabled) - if (iAmmoElapsed == 0) + { +#ifdef NEW_SOUNDS //AVO: use custom sounds + if (bMisfire) { - -#ifdef NEW_SOUNDS //AVO: custom reload sound - if (m_sounds.FindSoundItem("sndReloadEmpty", false)) - PlaySound("sndReloadEmpty", get_LastFP()); - else -#endif //-NEW_SOUNDS + //TODO: make sure correct sound is loaded in CWeaponMagazined::Load(LPCSTR section) + if (m_sounds.FindSoundItem("sndReload", false)) PlaySound("sndReload", get_LastFP()); } else { - PlaySound("sndReload", get_LastFP()); + if (iAmmoElapsed == 0) + { + if (m_sounds.FindSoundItem("sndReloadEmpty", false)) + PlaySound("sndReloadEmpty", get_LastFP()); + } + else + PlaySound("sndReload", get_LastFP()); } +#else + PlaySound("sndReload", get_LastFP()); +#endif //-AVO + } } void CWeaponMagazined::switch2_Reload() @@ -1132,19 +1140,28 @@ void CWeaponMagazined::PlayAnimHide() void CWeaponMagazined::PlayAnimReload() { VERIFY(GetState() == eReload); - if (iAmmoElapsed == 0) +#ifdef NEW_ANIMS //AVO: use new animations + if (bMisfire) { -#ifdef NEW_ANIMS //AVO: new reload animation - if (HudAnimationExist("anm_reload_empty")) - PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); - else -#endif //-NEW_ANIMS + Msg("AVO: ------ MISFIRE"); + if (HudAnimationExist("anm_reload")) PlayHUDMotion("anm_reload", TRUE, this, GetState()); } else { - PlayHUDMotion("anm_reload", TRUE, this, GetState()); + if (iAmmoElapsed == 0) + { + if (HudAnimationExist("anm_reload_empty")) + PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); + } + else + { + PlayHUDMotion("anm_reload", TRUE, this, GetState()); + } } +#else + PlayHUDMotion("anm_reload", TRUE, this, GetState()); +#endif //-NEW_ANIM } void CWeaponMagazined::PlayAnimAim() From 9307c4c1b2a07652a40e38d15badda1f30dd3109 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 5 Jan 2015 11:02:28 -0500 Subject: [PATCH 058/166] * added ability to check for existence of 3rd person animations * refactoring --- src/xrGame/HudItem.cpp | 29 ++-- src/xrGame/WeaponCustomAuto.cpp | 30 ++-- src/xrGame/WeaponCustomAuto.h | 15 +- src/xrGame/WeaponMagazined.cpp | 12 +- src/xrGame/WeaponMagazinedWGrenade.cpp | 30 +++- src/xrGame/WeaponPistol.cpp | 192 +++++++++++++------------ src/xrGame/WeaponPistol.h | 53 +++---- src/xrGame/Weapons.cd | 41 +++++- 8 files changed, 240 insertions(+), 162 deletions(-) diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index dc9d74778e8..87ade57dc60 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -382,22 +382,27 @@ bool CHudItem::TryPlayAnimIdle() return false; } -//AVO: check is animation exists +//AVO: check if animation exists bool CHudItem::HudAnimationExist(LPCSTR anim_name) { - string256 anim_name_r; - bool is_16x9 = UI().is_widescreen(); - u16 attach_place_idx = pSettings->r_u16(HudItemData()->m_sect_name, "attach_place_idx"); - xr_sprintf(anim_name_r, "%s%s", anim_name, ((attach_place_idx == 1) && is_16x9) ? "_16x9" : ""); - player_hud_motion* anm = HudItemData()->m_hand_motions.find_motion(anim_name_r); - //VERIFY2(anm, make_string("Animation [%s] not found", anim_name).c_str()); - if (anm) - return true; - else + if (HudItemData()) // First person { - Msg("~ [WARNING] ------ Animation [%s] does not exist in [%s]", anim_name, HudItemData()->m_sect_name.c_str()); - return false; + string256 anim_name_r; + bool is_16x9 = UI().is_widescreen(); + u16 attach_place_idx = pSettings->r_u16(HudItemData()->m_sect_name, "attach_place_idx"); + xr_sprintf(anim_name_r, "%s%s", anim_name, ((attach_place_idx == 1) && is_16x9) ? "_16x9" : ""); + player_hud_motion* anm = HudItemData()->m_hand_motions.find_motion(anim_name_r); + if (anm) + return true; } + else // Third person + { + if (g_player_hud->motion_length(anim_name, HudSection(), m_current_motion_def) > 100) + return true; + + } + Msg("~ [WARNING] ------ Animation [%s] does not exist in [%s]", anim_name, HudSection().c_str()); + return false; } //-AVO diff --git a/src/xrGame/WeaponCustomAuto.cpp b/src/xrGame/WeaponCustomAuto.cpp index f4270e1ab64..e9a4ec2b041 100644 --- a/src/xrGame/WeaponCustomAuto.cpp +++ b/src/xrGame/WeaponCustomAuto.cpp @@ -4,25 +4,29 @@ #include "WeaponCustomAuto.h" CWeaponAutoPistol::CWeaponAutoPistol() : CWeaponMagazined(SOUND_TYPE_WEAPON_PISTOL) -{ -} +{} CWeaponAutoPistol::~CWeaponAutoPistol() +{} + +void CWeaponAutoPistol::switch2_Fire() { + m_bFireSingleShot = true; + //bWorking = false; + m_iShotNum = 0; + m_bStopedAfterQueueFired = false; } -void CWeaponAutoPistol::switch2_Fire () + +void CWeaponAutoPistol::FireEnd() { - m_bFireSingleShot = true; - //bWorking = false; - m_iShotNum = 0; - m_bStopedAfterQueueFired = false; + //if(fShotTimeCounter<=0) + //{ + //SetPending (FALSE); + inherited::FireEnd(); + //} } -void CWeaponAutoPistol::FireEnd() +void CWeaponAutoPistol::PlayAnimReload() { - //if(fShotTimeCounter<=0) - //{ - //SetPending (FALSE); - inherited::FireEnd (); - //} + inherited::PlayAnimReload(); } \ No newline at end of file diff --git a/src/xrGame/WeaponCustomAuto.h b/src/xrGame/WeaponCustomAuto.h index 6d92de25701..837c488322b 100644 --- a/src/xrGame/WeaponCustomAuto.h +++ b/src/xrGame/WeaponCustomAuto.h @@ -2,15 +2,16 @@ #include "WeaponMagazined.h" -class CWeaponAutoPistol: public CWeaponMagazined +class CWeaponAutoPistol : public CWeaponMagazined { private: - typedef CWeaponMagazined inherited; + typedef CWeaponMagazined inherited; public: - CWeaponAutoPistol (); - virtual ~CWeaponAutoPistol(); - //virtual int GetCurrentFireMode () { return 1; }; + CWeaponAutoPistol(); + virtual ~CWeaponAutoPistol(); + //virtual int GetCurrentFireMode () { return 1; }; protected: - virtual void FireEnd (); - virtual void switch2_Fire (); + virtual void FireEnd(); + virtual void switch2_Fire(); + virtual void PlayAnimReload(); }; diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 837d9c74624..c497bf1519a 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -747,7 +747,9 @@ void CWeaponMagazined::PlayReloadSound() if (bMisfire) { //TODO: make sure correct sound is loaded in CWeaponMagazined::Load(LPCSTR section) - if (m_sounds.FindSoundItem("sndReload", false)) + if (m_sounds.FindSoundItem("sndReloadMisfire", false)) + PlaySound("sndReloadMisfire", get_LastFP()); + else PlaySound("sndReload", get_LastFP()); } else @@ -756,6 +758,8 @@ void CWeaponMagazined::PlayReloadSound() { if (m_sounds.FindSoundItem("sndReloadEmpty", false)) PlaySound("sndReloadEmpty", get_LastFP()); + else + PlaySound("sndReload", get_LastFP()); } else PlaySound("sndReload", get_LastFP()); @@ -1144,7 +1148,9 @@ void CWeaponMagazined::PlayAnimReload() if (bMisfire) { Msg("AVO: ------ MISFIRE"); - if (HudAnimationExist("anm_reload")) + if (HudAnimationExist("anm_reload_misfire")) + PlayHUDMotion("anm_reload_misfire", TRUE, this, GetState()); + else PlayHUDMotion("anm_reload", TRUE, this, GetState()); } else @@ -1153,6 +1159,8 @@ void CWeaponMagazined::PlayAnimReload() { if (HudAnimationExist("anm_reload_empty")) PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); + else + PlayHUDMotion("anm_reload", TRUE, this, GetState()); } else { diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 36f88747ece..6af7c8b0db8 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -609,22 +609,40 @@ void CWeaponMagazinedWGrenade::PlayAnimHide() void CWeaponMagazinedWGrenade::PlayAnimReload() { VERIFY(GetState() == eReload); + +#ifdef NEW_ANIMS //AVO: use new animations if (IsGrenadeLauncherAttached()) - if (iAmmoElapsed == 0) + { + if (bMisfire) { -#ifdef NEW_ANIMS //AVO: new reload animation - if (HudAnimationExist("anm_reload_empty_w_gl")) - PlayHUDMotion("anm_reload_empty_w_gl", TRUE, this, GetState()); + if (HudAnimationExist("anm_reload_misfire_w_gl")) + PlayHUDMotion("anm_reload_misfire_w_gl", TRUE, this, GetState()); else -#endif //-NEW_ANIMS PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); } else { - PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); + if (iAmmoElapsed == 0) + { + if (HudAnimationExist("anm_reload_empty_w_gl")) + PlayHUDMotion("anm_reload_empty_w_gl", TRUE, this, GetState()); + else + PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); + } + else + { + PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); + } } + } else inherited::PlayAnimReload(); +#else + if (IsGrenadeLauncherAttached()) + PlayHUDMotion("anm_reload_w_gl", TRUE, this, GetState()); + else + inherited::PlayAnimReload(); +#endif //-NEW_ANIMS } void CWeaponMagazinedWGrenade::PlayAnimIdle() diff --git a/src/xrGame/WeaponPistol.cpp b/src/xrGame/WeaponPistol.cpp index 42b816a9ff5..bca7abebc4b 100644 --- a/src/xrGame/WeaponPistol.cpp +++ b/src/xrGame/WeaponPistol.cpp @@ -5,164 +5,168 @@ CWeaponPistol::CWeaponPistol() { - m_eSoundClose = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING); - SetPending (FALSE); + m_eSoundClose = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING); + SetPending(FALSE); } CWeaponPistol::~CWeaponPistol(void) -{ -} +{} void CWeaponPistol::net_Destroy() { - inherited::net_Destroy(); + inherited::net_Destroy(); } - -void CWeaponPistol::Load (LPCSTR section) +void CWeaponPistol::Load(LPCSTR section) { - inherited::Load (section); + inherited::Load(section); - m_sounds.LoadSound(section, "snd_close", "sndClose", false, m_eSoundClose); + m_sounds.LoadSound(section, "snd_close", "sndClose", false, m_eSoundClose); } -void CWeaponPistol::OnH_B_Chield () +void CWeaponPistol::OnH_B_Chield() { - inherited::OnH_B_Chield (); + inherited::OnH_B_Chield(); } -void CWeaponPistol::PlayAnimShow () +void CWeaponPistol::PlayAnimShow() { - VERIFY(GetState()==eShowing); + VERIFY(GetState() == eShowing); - if(iAmmoElapsed==0) - PlayHUDMotion("anm_show_empty", FALSE, this, GetState()); - else - inherited::PlayAnimShow(); + if (iAmmoElapsed == 0) + PlayHUDMotion("anm_show_empty", FALSE, this, GetState()); + else + inherited::PlayAnimShow(); } void CWeaponPistol::PlayAnimBore() { - if(iAmmoElapsed==0) - PlayHUDMotion ("anm_bore_empty", TRUE, this, GetState()); - else - inherited::PlayAnimBore(); + if (iAmmoElapsed == 0) + PlayHUDMotion("anm_bore_empty", TRUE, this, GetState()); + else + inherited::PlayAnimBore(); } void CWeaponPistol::PlayAnimIdleSprint() { - if(iAmmoElapsed==0) - { - PlayHUDMotion("anm_idle_sprint_empty", TRUE, NULL, GetState()); - }else{ - inherited::PlayAnimIdleSprint(); - } + if (iAmmoElapsed == 0) + { + PlayHUDMotion("anm_idle_sprint_empty", TRUE, NULL, GetState()); + } + else + { + inherited::PlayAnimIdleSprint(); + } } void CWeaponPistol::PlayAnimIdleMoving() { - if(iAmmoElapsed==0) - { - PlayHUDMotion("anm_idle_moving_empty", TRUE, NULL, GetState()); - }else{ - inherited::PlayAnimIdleMoving(); - } + if (iAmmoElapsed == 0) + { + PlayHUDMotion("anm_idle_moving_empty", TRUE, NULL, GetState()); + } + else + { + inherited::PlayAnimIdleMoving(); + } } - void CWeaponPistol::PlayAnimIdle() { - if (TryPlayAnimIdle()) return; + if (TryPlayAnimIdle()) return; - if(iAmmoElapsed==0) - { - PlayHUDMotion("anm_idle_empty", TRUE, NULL, GetState()); - }else{ - inherited::PlayAnimIdle (); - } + if (iAmmoElapsed == 0) + { + PlayHUDMotion("anm_idle_empty", TRUE, NULL, GetState()); + } + else + { + inherited::PlayAnimIdle(); + } } void CWeaponPistol::PlayAnimAim() { - if(iAmmoElapsed==0) - PlayHUDMotion("anm_idle_aim_empty", TRUE, NULL, GetState()); - else - inherited::PlayAnimAim(); + if (iAmmoElapsed == 0) + PlayHUDMotion("anm_idle_aim_empty", TRUE, NULL, GetState()); + else + inherited::PlayAnimAim(); } void CWeaponPistol::PlayAnimReload() -{ - VERIFY(GetState()==eReload); - if(iAmmoElapsed==0) - { - PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); - }else{ - PlayHUDMotion("anm_reload", TRUE, this, GetState()); - } +{ + /*VERIFY(GetState() == eReload); + if (iAmmoElapsed == 0) + { + PlayHUDMotion("anm_reload_empty", TRUE, this, GetState()); + } + else + { + PlayHUDMotion("anm_reload", TRUE, this, GetState()); + }*/ + inherited::PlayAnimReload(); //AVO: refactored to use grand-parent (CWeaponMagazined) function } - void CWeaponPistol::PlayAnimHide() { - VERIFY(GetState()==eHiding); - if(iAmmoElapsed==0) - { - PlaySound ("sndClose", get_LastFP()); - PlayHUDMotion ("anm_hide_empty" , TRUE, this, GetState()); - } - else - inherited::PlayAnimHide(); + VERIFY(GetState() == eHiding); + if (iAmmoElapsed == 0) + { + PlaySound("sndClose", get_LastFP()); + PlayHUDMotion("anm_hide_empty", TRUE, this, GetState()); + } + else + inherited::PlayAnimHide(); } -void CWeaponPistol::PlayAnimShoot () +void CWeaponPistol::PlayAnimShoot() { - VERIFY(GetState()==eFire); - if(iAmmoElapsed > 1) - { - PlayHUDMotion("anm_shots" , FALSE, this, GetState()); - } - else - { - PlayHUDMotion("anm_shot_l", FALSE, this, GetState()); - } + VERIFY(GetState() == eFire); + if (iAmmoElapsed > 1) + { + PlayHUDMotion("anm_shots", FALSE, this, GetState()); + } + else + { + PlayHUDMotion("anm_shot_l", FALSE, this, GetState()); + } } - void CWeaponPistol::switch2_Reload() { - inherited::switch2_Reload(); + inherited::switch2_Reload(); } void CWeaponPistol::OnAnimationEnd(u32 state) { - inherited::OnAnimationEnd(state); + inherited::OnAnimationEnd(state); } -void CWeaponPistol::OnShot () +void CWeaponPistol::OnShot() { - PlaySound (m_sSndShotCurrent.c_str(),get_LastFP()); + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP()); + + AddShotEffector(); + + PlayAnimShoot(); + + // Shell Drop + Fvector vel; + PHGetLinearVell(vel); + OnShellDrop(get_LastSP(), vel); - AddShotEffector (); - - PlayAnimShoot (); + // Огонь из ствола - // Shell Drop - Fvector vel; - PHGetLinearVell(vel); - OnShellDrop (get_LastSP(), vel); + StartFlameParticles(); + R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), + "can't set looped particles system for shoting with pistol"); - // Огонь из ствола - - StartFlameParticles (); - R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), - "can't set looped particles system for shoting with pistol"); - - //дым из ствола - StartSmokeParticles (get_LastFP(), vel); + //дым из ствола + StartSmokeParticles(get_LastFP(), vel); } void CWeaponPistol::UpdateSounds() { - inherited::UpdateSounds(); - m_sounds.SetPosition("sndClose", get_LastFP()); + inherited::UpdateSounds(); + m_sounds.SetPosition("sndClose", get_LastFP()); } \ No newline at end of file diff --git a/src/xrGame/WeaponPistol.h b/src/xrGame/WeaponPistol.h index f2f58425447..6c868d12060 100644 --- a/src/xrGame/WeaponPistol.h +++ b/src/xrGame/WeaponPistol.h @@ -2,36 +2,39 @@ #include "weaponcustomauto.h" class CWeaponPistol : - public CWeaponAutoPistol + public CWeaponAutoPistol { - typedef CWeaponAutoPistol inherited; + typedef CWeaponAutoPistol inherited; public: - CWeaponPistol (); - virtual ~CWeaponPistol (); + CWeaponPistol(); + virtual ~CWeaponPistol(); - virtual void Load (LPCSTR section); - - virtual void switch2_Reload (); + virtual void Load(LPCSTR section); - virtual void OnShot (); - virtual void OnAnimationEnd (u32 state); - virtual void net_Destroy (); - virtual void OnH_B_Chield (); + virtual void switch2_Reload(); - //анимации - virtual void PlayAnimShow (); - virtual void PlayAnimIdle (); - virtual void PlayAnimIdleMoving (); - virtual void PlayAnimIdleSprint (); - virtual void PlayAnimHide (); - virtual void PlayAnimReload (); - virtual void PlayAnimShoot (); - virtual void PlayAnimBore (); - virtual void PlayAnimAim (); + virtual void OnShot(); + virtual void OnAnimationEnd(u32 state); + virtual void net_Destroy(); + virtual void OnH_B_Chield(); - virtual void UpdateSounds (); -protected: - virtual bool AllowFireWhileWorking() {return true;} + //анимации + virtual void PlayAnimShow(); + virtual void PlayAnimIdle(); + virtual void PlayAnimIdleMoving(); + virtual void PlayAnimIdleSprint(); + virtual void PlayAnimHide(); + virtual void PlayAnimReload(); + virtual void PlayAnimShoot(); + virtual void PlayAnimBore(); + virtual void PlayAnimAim(); - ESoundTypes m_eSoundClose; + virtual void UpdateSounds(); +protected: + virtual bool AllowFireWhileWorking() + { + return true; + } + + ESoundTypes m_eSoundClose; }; diff --git a/src/xrGame/Weapons.cd b/src/xrGame/Weapons.cd index e2c03c190e8..53e1122a1f2 100644 --- a/src/xrGame/Weapons.cd +++ b/src/xrGame/Weapons.cd @@ -1,5 +1,8 @@ п»ї + + + @@ -17,12 +20,44 @@ - hPoBiBBJZ6iGxErgZMEEYAMYJMIIgUgBKDEhAyRkTwQ= + hPoBiBBJZ6iGxErgZMEEYAMYNMIIgUgBKDEhAyRkTwQ= WeaponMagazined.h + + + + Weapon.h + + + + + Weapon.h + + + + + Weapon.h + + + + + Weapon.h + + + + + Weapon.h + + + + + Weapon.h + + + b9YKtlUjd5jVtrNfL0rfd7I8fGztrz5HT9h+LzLP+/4= Weapon.h @@ -52,7 +87,7 @@ - BCAQgEAQASxYaPIVoEQQhKhMcIAEaSAgYgKCLxkAGRw= + BCAQgEAQASxYaPIVoEQQhKhMcIAEaSAgYgKCLxkAWRQ= HudItem.h @@ -248,7 +283,7 @@ - AACAlAAAAQgRAABAAAAEAhAAAgEAAAwQCAEAAEAAAAQ= + AACAlAAAAQgRAABAAAAEAhAAAgEAAAQQCAEAAEAAAAQ= WeaponAutomaticShotgun.h From 67d3b0155986cc7d701bc1e9137dcb85472157f8 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 5 Jan 2015 11:24:44 -0500 Subject: [PATCH 059/166] + players class diagram --- src/xrGame/Players.cd | 146 ++++++++++++++++++++++++++++++ src/xrGame/xrGame.vcxproj | 1 + src/xrGame/xrGame.vcxproj.filters | 3 + 3 files changed, 150 insertions(+) create mode 100644 src/xrGame/Players.cd diff --git a/src/xrGame/Players.cd b/src/xrGame/Players.cd new file mode 100644 index 00000000000..ee0576a1ee0 --- /dev/null +++ b/src/xrGame/Players.cd @@ -0,0 +1,146 @@ +п»ї + + + + + 6f/vv3f+79/Wfvvr6/9/7W3zfvP+bzl3b93f75rd//8= + Actor.h + + + + + + AVAK4OEEUsCAkLFpBu8KlCFBabGYDNUEIxSgQaLAJGk= + entity_alive.h + + + + + + yECpvFHgxZLqmoShGPkCDU5CY7iurgoqCABGyXgbwmA= + InventoryOwner.h + + + + + + AgYIwQAFDASBYYqgAEKCBADDIAoYAQEIBCBAgWgAIDA= + Entity.h + + + + + + AWAACADCYKKEkJrJYAJBKkSE5aVQIQcKSAYESAaKD6A= + PhysicsShellHolder.h + + + + + + AAAQAAAAABAAAAAABAAAAABAIAAIAAAgCAAAACAAAAQ= + damage_manager.h + + + + + + KBZPiFAewcGADoGT6HJTRCUXMDNIaQNxbZgIYDcHj1M= + GameObject.h + + + + + + hPZO0AkAWAK4ioVwDKAXQUIEISDAuhKAwdCEgogIalM= + g:\stalker\cop\engine\xray-16\src\xrengine\xr_object.h + + + + + + AAANAAAAAAAAAEAAAAAACAAAAAAQAIAABAAAAAABAAE= + UsableScriptObject.h + + + + + + AFCDgAAAAKCAAIAAAAACBAAAIAAIAAIgAAAAAAAAAAA= + script_binder.h + + + + + + 6nz///dP9f//7e//3+/P3/36/d/c+3t///ze77+f//8= + Ai\Stalker\ai_stalker.h + + + + + + + + CustomMonster.h + + + + + CustomMonster.h + + + + + CustomMonster.h + + + + + CustomMonster.h + + + + + CustomMonster.h + + + + + 4HPmuMBMYbiE2InxQu7W3iBMcNfdYKkORl2IN06TSUg= + CustomMonster.h + + + + + + + + object_handler.h + + + + + object_handler.h + + + + + object_handler.h + + + + + AAAAgAoAAoNAEIABGQADBaABAAAIBBCACABIIiGGgAA= + object_handler.h + + + + + + AAAQAAAAAgEAAAAAAAAgBAEAJAAIKCCAAAAAQAAAgCI= + attachment_owner.h + + + + \ No newline at end of file diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index e2b36e9ff50..cd75e4cc4a3 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -4190,6 +4190,7 @@ + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index 3894d45e2ad..0110933ebcf 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -11064,5 +11064,8 @@ Class Diagrams + + Class Diagrams + \ No newline at end of file From 42b25c69fe8a4cea3fa6503b286e2880be500dde Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Tue, 6 Jan 2015 01:21:52 -0500 Subject: [PATCH 060/166] + added weapon_addon_attach and weapon_addon_detach exports (not working...) - reverted change in action_planner_inline.h + added workaround to stalker_animation_callbacks.cpp for crash at verify bone rotation --- src/xrGame/action_planner_inline.h | 9 ++--- src/xrGame/script_game_object.h | 2 ++ .../script_game_object_inventory_owner.cpp | 34 ++++++++++++++++++- src/xrGame/script_game_object_script3.cpp | 5 +++ src/xrGame/stalker_animation_callbacks.cpp | 16 +++++++-- 5 files changed, 59 insertions(+), 7 deletions(-) diff --git a/src/xrGame/action_planner_inline.h b/src/xrGame/action_planner_inline.h index 096bf9aadd2..bc523d7d3c6 100644 --- a/src/xrGame/action_planner_inline.h +++ b/src/xrGame/action_planner_inline.h @@ -99,9 +99,10 @@ void CPlanner::update () THROW (!solution().empty()); + //Alundaio: Reverted //Alundaio: Attempt to workaround strange line 114 crash when loading generators - if (!solution().empty()) - { + //if (!solution().empty()) + //{ if (initialized()) { if (current_action_id() != solution().front()) { current_action().finalize(); @@ -116,7 +117,7 @@ void CPlanner::update () } current_action().execute (); - } + //} //Alundaio: END } @@ -142,7 +143,7 @@ IC typename CPlanner::CConditionEvaluator &CPlanner::evaluator (const _conditio TEMPLATE_SPECIALIZATION IC typename CPlanner::_action_id_type CPlanner::current_action_id () const { - VERIFY (initialized()); + VERIFY2 (initialized(),make_string("ERROR: action by id [%d] not initialized!",m_current_action_id)); //Alundaio: More detailed information needed return (m_current_action_id); } diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 07fa0955e54..3c4a4e324b0 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -385,6 +385,8 @@ class CScriptGameObject { bool Weapon_IsGrenadeLauncherAttached(); bool Weapon_IsScopeAttached (); bool Weapon_IsSilencerAttached (); + void Weapon_AddonAttach(CScriptGameObject &item); //Alundaio + void Weapon_AddonDetach(LPCSTR item_section); //Alundaio int Weapon_GrenadeLauncher_Status (); int Weapon_Scope_Status (); diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 0f829bcaf6c..e7e3dda7273 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -1601,4 +1601,36 @@ bool CScriptGameObject::is_door_blocked_by_npc() const { VERIFY2(m_door, make_string("object %s hasn't been registered as a door already", m_game_object->cName().c_str())); return ai().doors().is_door_blocked(m_door); -} \ No newline at end of file +} + +//Alundaio: Methods for exporting the ability to detach/attach addons for magazined weapons +void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject &item) +{ + CWeaponMagazined* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeaponMagazined : cannot access class member Weapon_AddonAttach!"); + return; + } + + if (weapon->CanAttach((PIItem)&item)) + { + weapon->Attach((PIItem)&item, true); + } +} + +void CScriptGameObject::Weapon_AddonDetach(LPCSTR item_section) +{ + CWeaponMagazined* weapon = smart_cast(&object()); + if (!weapon) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeaponMagazined : cannot access class member Weapon_AddonDetach!"); + return; + } + + if (weapon->CanDetach(item_section)) + { + weapon->Detach(item_section, true); + } +} +//Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 0fe10423457..cd8d53c3cdf 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -182,6 +182,11 @@ class_ &script_register_game_object2(class_mTransform.c; - R_ASSERT ( _valid( *parameter->m_rotation ) ); - bone->mTransform.mulA_43 (*parameter->m_rotation); + + //Alundaio: Attempt to workaround crash + //R_ASSERT ( _valid( *parameter->m_rotation ) ); + //bone->mTransform.mulA_43 (*parameter->m_rotation); + + if (_valid(*parameter->m_rotation)) + { + bone->mTransform.mulA_43(*parameter->m_rotation); + } + else { + Msg("ERROR: stalker_animation_callbacks.cpp | callback_rotation | _valid(*parameter->m_rotation) failed for %s", object->Name()); + } + //Alundaio: END + CWeaponShotEffector& effector = object->weapon_shot_effector(); if (!effector.IsActive()) { bone->mTransform.c = position; From 7087aa2d2386277d886259df915b5af7b1ef3696 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 10 Jan 2015 22:01:26 -0500 Subject: [PATCH 061/166] + print_stack is exported to global namespace * fixed log function - log1 as redundant: UPDATE SCRIPTS!!! * fixed error_log it is now working correctly and will: log message, log callstack, crash the game * allow flushing of lua logs when LUA_DEBUG_PRINT is defined * fixed print_stack printing duplicates --- src/engine.favdoc | 31 +++ src/xrGame/HudItem.cpp | 2 + src/xrGame/Monsters.cd | 81 ++++++++ src/xrGame/WeaponMagazined.cpp | 4 + src/xrGame/WeaponMagazined.h | 1 + src/xrServerEntities/script_engine.cpp | 22 +- src/xrServerEntities/script_engine_script.cpp | 91 ++++++--- src/xrServerEntities/script_storage.cpp | 193 +++++++++--------- src/xrServerEntities/script_storage.h | 100 +++++---- 9 files changed, 349 insertions(+), 176 deletions(-) create mode 100644 src/engine.favdoc create mode 100644 src/xrGame/Monsters.cd diff --git a/src/engine.favdoc b/src/engine.favdoc new file mode 100644 index 00000000000..81db1f530e7 --- /dev/null +++ b/src/engine.favdoc @@ -0,0 +1,31 @@ + + + + + Scripting + + + script_engine.cpp + xrServerEntities\script_engine.cpp + G:\Stalker\COP\Engine\xray-16\src\xrServerEntities\script_engine.cpp + + + script_engine_script.cpp + xrServerEntities\script_engine_script.cpp + G:\Stalker\COP\Engine\xray-16\src\xrServerEntities\script_engine_script.cpp + + + script_storage.cpp + xrServerEntities\script_storage.cpp + G:\Stalker\COP\Engine\xray-16\src\xrServerEntities\script_storage.cpp + + + ScriptClasses.se + xrGame\AI\AScript\ScriptClasses + Solution Explorer + + + + + + \ No newline at end of file diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index 87ade57dc60..7202f2df404 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -401,7 +401,9 @@ bool CHudItem::HudAnimationExist(LPCSTR anim_name) return true; } +#ifdef DEBUG Msg("~ [WARNING] ------ Animation [%s] does not exist in [%s]", anim_name, HudSection().c_str()); +#endif return false; } //-AVO diff --git a/src/xrGame/Monsters.cd b/src/xrGame/Monsters.cd new file mode 100644 index 00000000000..ab378f7062b --- /dev/null +++ b/src/xrGame/Monsters.cd @@ -0,0 +1,81 @@ +п»ї + + + + + YAAAghACEABAMIIAAgAiBwNBCCoIAFAAGAABAAaECEA= + ai\Monsters\Dog\dog.h + + + + + + d5b7nNHMe/bYt7v8++OmnuxseZ/8avfenW0IZ4bHXfk= + ai\Monsters\BaseMonster\base_monster.h + + + + + + AAQAAAAMAEAABAIARIAAAAABAAAAAAAiAIAAAAAABBQ= + ai\Monsters\controlled_entity.h + + + + + + 4HPmuMBMYbiE2InxQu7W3iBMcNfdYKkORl2IN06TSUg= + CustomMonster.h + + + + + + AACAAAAAAAgwAAAAhAAAIEBAAEAJJAAgoAABAAAEAAA= + step_manager.h + + + + + + AAQAAAAMAEAABAAABAAAAAABAAAAAAACAIAAAAAAAAQ= + ai\Monsters\controlled_entity.h + + + + + + AVAK4OEEUsCAkLFpBu8KlCFBabGYDNUEIxSgQaLAJGk= + entity_alive.h + + + + + + AWCCBggEECUAIoJATABDBohAMBCAUAKkQCAAyACwSQw= + script_entity.h + + + + + + AgYIwQAFDASBYYqgAEKCBADDIAoYAQEIBCBAgWgAIDA= + Entity.h + + + + + + AWAACADCYKKEkJrJYAJBKkSE5aVQIQcKSAYESAaKD6A= + PhysicsShellHolder.h + + + + + + AAAQAAAAABAAAAAABAAAAABAIAAIAAAgCAAAACAAAAQ= + damage_manager.h + + + + \ No newline at end of file diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index c497bf1519a..7e6f327592f 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -77,7 +77,9 @@ bool CWeaponMagazined::WeaponSoundExist(LPCSTR section, LPCSTR sound_name) return true; else { +#ifdef DEBUG Msg("~ [WARNING] ------ Sound [%s] does not exist in [%s]", sound_name, section); +#endif return false; } } @@ -97,6 +99,8 @@ void CWeaponMagazined::Load(LPCSTR section) #ifdef NEW_SOUNDS //AVO: custom sounds go here if (WeaponSoundExist(section, "snd_reload_empty")) m_sounds.LoadSound(section, "snd_reload_empty", "sndReloadEmpty", true, m_eSoundReloadEmpty); + if (WeaponSoundExist(section, "snd_reload_misfire")) + m_sounds.LoadSound(section, "snd_reload_misfire", "sndReloadMisfire", true, m_eSoundReloadMisfire); #endif //-NEW_SOUNDS m_sSndShotCurrent = "sndShot"; diff --git a/src/xrGame/WeaponMagazined.h b/src/xrGame/WeaponMagazined.h index a25426443ce..a2820f09835 100644 --- a/src/xrGame/WeaponMagazined.h +++ b/src/xrGame/WeaponMagazined.h @@ -29,6 +29,7 @@ class CWeaponMagazined : public CWeapon ESoundTypes m_eSoundReload; #ifdef NEW_SOUNDS //AVO: new sounds go here ESoundTypes m_eSoundReloadEmpty; + ESoundTypes m_eSoundReloadMisfire; #endif //-NEW_SOUNDS bool m_sounds_enabled; // General diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index bf2de31e836..92c2e17418e 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -15,7 +15,7 @@ #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO # include "script_debugger.h" -# else // #ifndef USE_LUA_STUDIO +# else //USE_LUA_STUDIO # include "lua_studio.h" typedef cs::lua_studio::create_world_function_type create_world_function_type; typedef cs::lua_studio::destroy_world_function_type destroy_world_function_type; @@ -24,15 +24,15 @@ static destroy_world_function_type s_destroy_world = 0; static HMODULE s_script_debugger_handle = 0; static LogCallback s_old_log_callback = 0; -# endif // #ifndef USE_LUA_STUDIO +# endif //!USE_LUA_STUDIO #endif #ifndef XRSE_FACTORY_EXPORTS # ifdef DEBUG # include "ai_debug.h" extern Flags32 psAI_Flags; -# endif -#endif +# endif //-DEBUG +#endif //!XRSE_FACTORY_EXPORTS void jit_command(lua_State*, LPCSTR); @@ -121,7 +121,7 @@ void CScriptEngine::disconnect_from_debugger () finalize_lua_studio ( lua(), m_lua_studio_world, m_lua_studio_engine ); } -#endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) +#endif //-(USE_DEBUGGER) && defined(USE_LUA_STUDIO) CScriptEngine::CScriptEngine () { @@ -134,9 +134,9 @@ CScriptEngine::CScriptEngine () # ifndef USE_LUA_STUDIO m_scriptDebugger = NULL; restartDebugger (); -# else // #ifndef USE_LUA_STUDIO +# else //USE_LUA_STUDIO m_lua_studio_world = 0; -# endif // #ifndef USE_LUA_STUDIO +# endif //!USE_LUA_STUDIO #endif } @@ -146,8 +146,12 @@ CScriptEngine::~CScriptEngine () remove_script_process(m_script_processes.begin()->first); #ifdef DEBUG - flush_log (); -#endif // DEBUG + flush_log(); +#else +# ifdef LUA_DEBUG_PRINT + flush_log(); +# endif //-LUA_DEBUG_PRINT +#endif //-DEBUG #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO diff --git a/src/xrServerEntities/script_engine_script.cpp b/src/xrServerEntities/script_engine_script.cpp index aa2399e9a32..818e7257588 100644 --- a/src/xrServerEntities/script_engine_script.cpp +++ b/src/xrServerEntities/script_engine_script.cpp @@ -1,7 +1,7 @@ //////////////////////////////////////////////////////////////////////////// // Module : script_engine_script.cpp // Created : 25.12.2002 -// Modified : 13.05.2004 +// Modified : 10.01.2015 // Author : Dmitriy Iassenev // Description : ALife Simulator script engine export //////////////////////////////////////////////////////////////////////////// @@ -17,6 +17,8 @@ void LuaLog(LPCSTR caMessage) { #ifndef MASTER_GOLD ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeMessage,"%s",caMessage); +#else + Log(caMessage); #endif // #ifndef MASTER_GOLD #ifdef USE_DEBUGGER @@ -30,17 +32,17 @@ void LuaLog(LPCSTR caMessage) void ErrorLog(LPCSTR caMessage) { ai().script_engine().error_log("%s", caMessage); -#ifdef PRINT_CALL_STACK +//#ifdef PRINT_CALL_STACK ai().script_engine().print_stack(); -#endif // #ifdef PRINT_CALL_STACK +//#endif //-PRINT_CALL_STACK #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO if( ai().script_engine().debugger() ){ ai().script_engine().debugger()->Write(caMessage); } -# endif // #ifndef USE_LUA_STUDIO -#endif // #ifdef USE_DEBUGGER +# endif //!USE_LUA_STUDIO +#endif //-USE_DEBUGGER #ifdef DEBUG bool lua_studio_connected = !!ai().script_engine().debugger(); @@ -49,11 +51,18 @@ void ErrorLog(LPCSTR caMessage) R_ASSERT2(0, caMessage); } +//AVO: +void PrintStack() +{ + ai().script_engine().print_stack(); +} +//-AVO + void FlushLogs() { //#ifdef DEBUG FlushLog(); -#ifdef DEBUG +#ifdef LUA_DEBUG_PRINT //DEBUG ai().script_engine().flush_log(); #endif // DEBUG } @@ -193,12 +202,12 @@ IC profile_timer_script operator+ (const profile_timer_script &portion0, const p // } #ifdef XRGAME_EXPORTS -ICF u32 script_time_global() { return Device.dwTimeGlobal; } -ICF u32 script_time_global_async() { return Device.TimerAsync_MMT(); } + ICF u32 script_time_global() { return Device.dwTimeGlobal; } + ICF u32 script_time_global_async() { return Device.TimerAsync_MMT(); } #else -ICF u32 script_time_global() { return 0; } -ICF u32 script_time_global_async() { return 0; } -#endif + ICF u32 script_time_global() { return 0; } + ICF u32 script_time_global_async() { return 0; } +#endif //-XRGAME_EXPORTS #ifdef XRGAME_EXPORTS static bool is_enough_address_space_available_impl() @@ -206,13 +215,32 @@ static bool is_enough_address_space_available_impl() ENGINE_API bool is_enough_address_space_available(); return is_enough_address_space_available(); } -#endif // #ifdef XRGAME_EXPORTS +#endif //-XRGAME_EXPORTS #pragma optimize("s",on) void CScriptEngine::script_register(lua_State *L) { - module(L)[ - def("log1", (void(*) (LPCSTR msg)) &Log), // AVO: log below does not work due to design of vscript_log so adding new function to scripts + module(L) + [ + //def("log1", (void(*) (LPCSTR msg)) &Log), // AVO: fixed log func + def("log", &LuaLog), + def("print_stack", &PrintStack), + def("error_log", &ErrorLog), + def("flush", &FlushLogs), + def("prefetch", &prefetch_module), + def("verify_if_thread_is_running", &verify_if_thread_is_running), + def("editor", &is_editor), + def("bit_and", &bit_and), + def("bit_or", &bit_or), + def("bit_xor", &bit_xor), + def("bit_not", &bit_not), + def("user_name", &user_name), + def("time_global", &script_time_global), + def("time_global_async", &script_time_global_async), +#ifdef XRGAME_EXPORTS + def("device", &get_device), + def("is_enough_address_space_available", &is_enough_address_space_available_impl), +#endif //-XRGAME_EXPORTS class_("profile_timer") .def(constructor<>()) .def(constructor()) @@ -224,21 +252,22 @@ void CScriptEngine::script_register(lua_State *L) .def("time", &profile_timer_script::time) ]; - function(L, "log", LuaLog); - function(L, "error_log", ErrorLog); - function(L, "flush", FlushLogs); - function(L, "prefetch", prefetch_module); - function(L, "verify_if_thread_is_running", verify_if_thread_is_running); - function(L, "editor", is_editor); - function(L, "bit_and", bit_and); - function(L, "bit_or", bit_or); - function(L, "bit_xor", bit_xor); - function(L, "bit_not", bit_not); - function(L, "user_name", user_name); - function(L, "time_global", script_time_global); - function(L, "time_global_async", script_time_global_async); -#ifdef XRGAME_EXPORTS - function(L, "device", get_device); - function(L, "is_enough_address_space_available", is_enough_address_space_available_impl); -#endif // #ifdef XRGAME_EXPORTS + //function(L, "print_stack", PrintStack); + //function(L, "log", LuaLog); + //function(L, "error_log", ErrorLog); + //function(L, "flush", FlushLogs); + //function(L, "prefetch", prefetch_module); + //function(L, "verify_if_thread_is_running", verify_if_thread_is_running); + //function(L, "editor", is_editor); + //function(L, "bit_and", bit_and); + //function(L, "bit_or", bit_or); + //function(L, "bit_xor", bit_xor); + //function(L, "bit_not", bit_not); + //function(L, "user_name", user_name); + //function(L, "time_global", script_time_global); + //function(L, "time_global_async", script_time_global_async); +//#ifdef XRGAME_EXPORTS + //function(L, "device", get_device); + //function(L, "is_enough_address_space_available", is_enough_address_space_available_impl); +//#endif //-XRGAME_EXPORTS } \ No newline at end of file diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index b00f6c0f618..dc991c2bbd2 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -1,7 +1,7 @@ //////////////////////////////////////////////////////////////////////////// // Module : script_storage.cpp // Created : 01.04.2004 -// Modified : 01.04.2004 +// Modified : 10.01.2015 // Author : Dmitriy Iassenev // Description : XRay Script Storage //////////////////////////////////////////////////////////////////////////// @@ -15,7 +15,7 @@ #ifndef DEBUG # include "opt.lua.h" # include "opt_inline.lua.h" -#endif // #ifndef DEBUG +#endif //-DEBUG LPCSTR file_header_old = "\ local function script_name() \ @@ -25,7 +25,7 @@ LPCSTR file_header_old = "\ %s this %s \ setmetatable(this, {__index = _G}) \ setfenv(1, this) \ - "; + "; LPCSTR file_header_new = "\ local function script_name() \ @@ -35,24 +35,24 @@ LPCSTR file_header_new = "\ this._G = _G \ %s this %s \ setfenv(1, this) \ - "; + "; LPCSTR file_header = 0; #ifndef ENGINE_BUILD # include "script_engine.h" # include "ai_space.h" -#else +#else //ENGINE_BUILD # define NO_XRGAME_SCRIPT_ENGINE -#endif +#endif //!ENGINE_BUILD #ifndef XRGAME_EXPORTS # define NO_XRGAME_SCRIPT_ENGINE -#endif +#endif //!XRGAME_EXPORTS #ifndef NO_XRGAME_SCRIPT_ENGINE # include "ai_debug.h" -#endif +#endif //!NO_XRGAME_SCRIPT_ENGINE #ifdef USE_DEBUGGER # include "script_debugger.h" @@ -61,8 +61,8 @@ LPCSTR file_header = 0; #ifndef PURE_ALLOC //# ifndef USE_MEMORY_MONITOR # define USE_DL_ALLOCATOR -//# endif // USE_MEMORY_MONITOR -#endif // PURE_ALLOC +//# endif //!USE_MEMORY_MONITOR +#endif //!PURE_ALLOC #ifndef USE_DL_ALLOCATOR static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { @@ -79,17 +79,15 @@ static void *lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { return Memory.mem_realloc (ptr, nsize); #endif // DEBUG_MEMORY_MANAGER } -#else // USE_DL_ALLOCATOR - -#include "../xrCore/memory_allocator_options.h" - -#ifdef USE_ARENA_ALLOCATOR -static const u32 s_arena_size = 96*1024*1024; -static char s_fake_array[s_arena_size]; -static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); -#else // #ifdef USE_ARENA_ALLOCATOR -static doug_lea_allocator s_allocator(0, 0, "lua"); -#endif // #ifdef USE_ARENA_ALLOCATOR +#else //USE_DL_ALLOCATOR +# include "../xrCore/memory_allocator_options.h" +# ifdef USE_ARENA_ALLOCATOR + static const u32 s_arena_size = 96*1024*1024; + static char s_fake_array[s_arena_size]; + static doug_lea_allocator s_allocator( s_fake_array, s_arena_size, "lua" ); +# else //-USE_ARENA_ALLOCATOR + static doug_lea_allocator s_allocator(0, 0, "lua"); +# endif //-USE_ARENA_ALLOCATOR static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) { @@ -99,14 +97,13 @@ static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) if (!nsize) { s_allocator.free_impl(ptr); - return 0; + return 0; } - if (!ptr) - return s_allocator.malloc_impl((u32) nsize); + return s_allocator.malloc_impl((u32) nsize); - return s_allocator.realloc_impl(ptr, (u32) nsize); -#else // #ifndef USE_MEMORY_MONITOR + return s_allocator.realloc_impl(ptr, (u32) nsize); +#else //USE_MEMORY_MONITOR if ( !nsize ) { memory_monitor::monitor_free(ptr); s_allocator.free_impl (ptr); @@ -123,14 +120,14 @@ static void *lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize) void* const result = s_allocator.realloc_impl(ptr, (u32)nsize); memory_monitor::monitor_alloc (result,nsize,"LUA"); return result; -#endif // #ifndef USE_MEMORY_MONITOR +#endif //!USE_MEMORY_MONITOR } u32 game_lua_memory_usage() { - return (s_allocator.get_allocated_size()); + return (s_allocator.get_allocated_size()); } -#endif // USE_DL_ALLOCATOR +#endif //!USE_DL_ALLOCATOR static LPVOID __cdecl luabind_allocator( luabind::memory_allocation_function_parameter const, @@ -149,17 +146,17 @@ static LPVOID __cdecl luabind_allocator( { #ifdef DEBUG return ( Memory.mem_alloc(size, "luabind") ); -#else // #ifdef DEBUG +#else //!DEBUG return (Memory.mem_alloc(size)); -#endif // #ifdef DEBUG +#endif //-DEBUG } LPVOID non_const_pointer = const_cast(pointer); #ifdef DEBUG return ( Memory.mem_realloc(non_const_pointer, size, "luabind") ); -#else // #ifdef DEBUG +#else //!DEBUG return (Memory.mem_realloc(non_const_pointer, size)); -#endif // #ifdef DEBUG +#endif //-DEBUG } void setup_luabind_allocator() @@ -248,7 +245,7 @@ static int dojitopt(lua_State *L, const char *opt) return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } /* ---- end of LuaJIT extensions */ -#endif // #ifndef DEBUG +#endif //!DEBUG CScriptStorage::CScriptStorage() { @@ -256,15 +253,15 @@ CScriptStorage::CScriptStorage() #ifdef DEBUG m_stack_is_ready = false; -#endif // DEBUG +#endif //-DEBUG m_virtual_machine = 0; #ifdef USE_LUA_STUDIO # ifndef USE_DEBUGGER STATIC_CHECK( false, Do_Not_Define_USE_LUA_STUDIO_macro_without_USE_DEBUGGER_macro ); -# endif // #ifndef USE_DEBUGGER -#endif // #ifdef USE_LUA_STUDIO +# endif //!USE_DEBUGGER +#endif //-USE_LUA_STUDIO } CScriptStorage::~CScriptStorage() @@ -284,7 +281,7 @@ static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_si luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); lua_settable(state, -3); } -#endif // #ifndef DEBUG +#endif //!DEBUG void CScriptStorage::reinit() { @@ -320,11 +317,11 @@ void CScriptStorage::reinit() #ifdef DEBUG luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); -#else - //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory +#else //!DEBUG + //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory //if (strstr(Core.Params, "-dbg")) luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); -#endif // #ifdef DEBUG +#endif //-DEBUG if (!strstr(Core.Params, "-nojit")) { @@ -333,11 +330,11 @@ void CScriptStorage::reinit() put_function(lua(), opt_lua_binary, sizeof(opt_lua_binary), "jit.opt"); put_function(lua(), opt_inline_lua_binary, sizeof(opt_lua_binary), "jit.opt_inline"); dojitopt(lua(), "2"); -#endif // #ifndef DEBUG +#endif //!DEBUG } if (strstr(Core.Params, "-_g")) - file_header = file_header_new; + file_header = file_header_new; //AVO: I get fatal crash at the start if this is used else file_header = file_header_old; } @@ -345,34 +342,32 @@ void CScriptStorage::reinit() int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker) { #ifndef NO_XRGAME_SCRIPT_ENGINE -#ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); -#endif -#endif - -#ifndef PRINT_CALL_STACK - return (0); -#else // #ifdef PRINT_CALL_STACK -#ifndef NO_XRGAME_SCRIPT_ENGINE +# ifdef DEBUG + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +# endif //-DEBUG +#endif //!NO_XRGAME_SCRIPT_ENGINE + +//#ifndef PRINT_CALL_STACK + //return (0); +//#else //PRINT_CALL_STACK +# ifndef NO_XRGAME_SCRIPT_ENGINE //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) -#ifndef DEBUG - //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory +# ifndef DEBUG + //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory //if (!strstr(Core.Params, "-dbg")) // return(0); -#endif - -#ifdef LUA_DEBUG_PRINT -#ifdef DEBUG - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); -#endif - //and AVO -#else - if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) - return(0); -#endif -#endif // #ifndef NO_XRGAME_SCRIPT_ENGINE +# endif //!DEBUG +# ifdef LUA_DEBUG_PRINT +# ifdef DEBUG + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +# endif //-DEBUG +# else //!LUA_DEBUG_PRINT + if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) + return(0); +# endif //-LUA_DEBUG_PRINT +#endif //-NO_XRGAME_SCRIPT_ENGINE LPCSTR S = "", SS = ""; LPSTR S1; @@ -390,7 +385,7 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, break; } case ScriptStorage::eLuaMessageTypeMessage: { - S = "[LUA] "; + S = "~ [LUA] "; SS = "[MESSAGE] "; break; } @@ -432,41 +427,55 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, vsprintf(S1, caFormat, marker); xr_strcat(S2, "\r\n"); -#ifdef DEBUG +#ifdef LUA_DEBUG_PRINT //DEBUG # ifndef ENGINE_BUILD - ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); -# endif // #ifdef ENGINE_BUILD -#endif // #ifdef DEBUG + ai().script_engine().m_output.w(S2,xr_strlen(S2)*sizeof(char)); +# endif //!ENGINE_BUILD +#endif //-LUA_DEBUG_PRINT DEBUG return (l_iResult); -#endif // #ifdef PRINT_CALL_STACK +//#endif //-PRINT_CALL_STACK } -#ifdef PRINT_CALL_STACK +//#ifdef PRINT_CALL_STACK void CScriptStorage::print_stack() { #ifdef DEBUG if (!m_stack_is_ready) return; - m_stack_is_ready = false; -#endif // #ifdef DEBUG + m_stack_is_ready = false; +#endif //-DEBUG - lua_State *L = lua(); - lua_Debug l_tDebugInfo; + lua_State *L = lua(); + lua_Debug l_tDebugInfo; for (int i = 0; lua_getstack(L, i, &l_tDebugInfo); ++i) { lua_getinfo(L, "nSlu", &l_tDebugInfo); if (!l_tDebugInfo.name) - script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); + script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); + //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); else if (!xr_strcmp(l_tDebugInfo.what, "C")) - script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); + script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); + //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); else - script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); + script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); + //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); } } -#endif // #ifdef PRINT_CALL_STACK +//#endif //-PRINT_CALL_STACK + +//AVO: added to stop duplicate stack output prints in log +int __cdecl CScriptStorage::script_log_no_stack(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) +{ + va_list marker; + va_start(marker, caFormat); + int result = vscript_log(tLuaMessageType, caFormat, marker); + va_end(marker); + return result; +} +//-AVO int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...) { @@ -485,8 +494,8 @@ int __cdecl CScriptStorage::script_log(ScriptStorage::ELuaMessageType tLuaMessag ai().script_engine().print_stack(); reenterability = false; } -# endif // #ifndef ENGINE_BUILD -#endif // #ifdef PRINT_CALL_STACK +# endif //!ENGINE_BUILD +#endif //-PRINT_CALL_STACK return (result); } @@ -510,7 +519,7 @@ bool CScriptStorage::parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const *S1 = 0; if (i) - xr_strcat(b, b_size, "{"); + xr_strcat(b, b_size, "{"); xr_strcat(b, b_size, S); xr_strcat(b, b_size, "="); if (i) @@ -549,10 +558,10 @@ bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LP else { #ifdef DEBUG - script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); -#else //#ifdef DEBUG + script = (LPSTR)Memory.mem_alloc(total_size, "lua script file"); +#else //!DEBUG script = (LPSTR) Memory.mem_alloc(total_size); -#endif //#ifdef DEBUG +#endif //-DEBUG dynamic_allocation = true; } } @@ -591,7 +600,7 @@ bool CScriptStorage::load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LP { #ifdef DEBUG print_output (L,caScriptName,l_iErrorCode); -#endif +#endif //-DEBUG on_error(L); return (false); } @@ -887,7 +896,7 @@ void CScriptStorage::print_error(lua_State *L, int iErrorCode) } } -#ifdef DEBUG +#ifdef LUA_DEBUG_PRINT //DEBUG void CScriptStorage::flush_log() { string_path log_file_name; @@ -895,7 +904,7 @@ void CScriptStorage::flush_log() FS.update_path (log_file_name,"$logs$",log_file_name); m_output.save_to (log_file_name); } -#endif // DEBUG +#endif //-DEBUG int CScriptStorage::error_log(LPCSTR format, ...) { diff --git a/src/xrServerEntities/script_storage.h b/src/xrServerEntities/script_storage.h index 653c6f493bf..d332fb404f7 100644 --- a/src/xrServerEntities/script_storage.h +++ b/src/xrServerEntities/script_storage.h @@ -1,7 +1,7 @@ //////////////////////////////////////////////////////////////////////////// // Module : script_storage.h // Created : 01.04.2004 -// Modified : 01.04.2004 +// Modified : 10.01.2015 // Author : Dmitriy Iassenev // Description : XRay Script Storage //////////////////////////////////////////////////////////////////////////// @@ -17,75 +17,87 @@ class CScriptThread; #ifndef MASTER_GOLD # define USE_DEBUGGER # define USE_LUA_STUDIO -#endif // #ifndef MASTER_GOLD +#endif //-!MASTER_GOLD #ifdef XRGAME_EXPORTS # ifndef MASTER_GOLD # define PRINT_CALL_STACK -# endif // #ifndef MASTER_GOLD -#else // #ifdef XRGAME_EXPORTS +# endif //-!MASTER_GOLD +#else //!XRGAME_EXPORTS # ifndef NDEBUG # define PRINT_CALL_STACK # endif // #ifndef NDEBUG -#endif // #ifdef XRGAME_EXPORTS +#endif //-XRGAME_EXPORTS //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) #include "build_config_defines.h" -#ifdef LUA_DEBUG_PRINT -#define PRINT_CALL_STACK -#endif +#ifndef DEBUG +# ifdef LUA_DEBUG_PRINT +# define PRINT_CALL_STACK +# endif +#endif //-!DEBUG +//-AVO using namespace ScriptStorage; -class CScriptStorage { +class CScriptStorage +{ private: - lua_State *m_virtual_machine ; - CScriptThread *m_current_thread ; - BOOL m_jit ; + lua_State *m_virtual_machine; + CScriptThread *m_current_thread; + BOOL m_jit; #ifdef DEBUG public: - bool m_stack_is_ready ; -#endif // #ifdef DEBUG + bool m_stack_is_ready ; +#endif //-DEBUG -#ifdef PRINT_CALL_STACK +#ifdef LUA_DEBUG_PRINT//PRINT_CALL_STACK protected: - CMemoryWriter m_output; -#endif // #ifdef PRINT_CALL_STACK + CMemoryWriter m_output; +#else +# ifdef DEBUG +protected: + CMemoryWriter m_output; +# endif //-DEBUG +#endif //-LUA_DEBUG_PRINT PRINT_CALL_STACK protected: - static int vscript_log (ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker); - bool parse_namespace (LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size); - bool do_file (LPCSTR caScriptName, LPCSTR caNameSpaceName); - void reinit (); + static int vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, va_list marker); + bool parse_namespace(LPCSTR caNamespaceName, LPSTR b, u32 const b_size, LPSTR c, u32 const c_size); + bool do_file(LPCSTR caScriptName, LPCSTR caNameSpaceName); + void reinit(); public: -#ifdef PRINT_CALL_STACK - void print_stack (); -#endif // #ifdef PRINT_CALL_STACK +//#ifdef PRINT_CALL_STACK + void print_stack(); + //AVO: added to stop duplicate stack output prints in log + static int __cdecl script_log_no_stack(ScriptStorage::ELuaMessageType tLuaMessageType, LPCSTR caFormat, ...); + //-AVO +//#endif //-PRINT_CALL_STACK public: - CScriptStorage (); - virtual ~CScriptStorage (); - IC lua_State *lua (); - IC void current_thread (CScriptThread *thread); - IC CScriptThread *current_thread () const; - bool load_buffer (lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName = 0); - bool load_file_into_namespace (LPCSTR caScriptName, LPCSTR caNamespaceName); - bool namespace_loaded (LPCSTR caName, bool remove_from_stack = true); - bool object (LPCSTR caIdentifier, int type); - bool object (LPCSTR caNamespaceName, LPCSTR caIdentifier, int type); - luabind::object name_space (LPCSTR namespace_name); - int error_log (LPCSTR caFormat, ...); - static int __cdecl script_log (ELuaMessageType message, LPCSTR caFormat, ...); - static bool print_output (lua_State *L, LPCSTR caScriptName, int iErorCode = 0); - static void print_error (lua_State *L, int iErrorCode); - virtual void on_error (lua_State *L) = 0; + CScriptStorage(); + virtual ~CScriptStorage(); + IC lua_State *lua(); + IC void current_thread(CScriptThread *thread); + IC CScriptThread *current_thread() const; + bool load_buffer(lua_State *L, LPCSTR caBuffer, size_t tSize, LPCSTR caScriptName, LPCSTR caNameSpaceName = 0); + bool load_file_into_namespace(LPCSTR caScriptName, LPCSTR caNamespaceName); + bool namespace_loaded(LPCSTR caName, bool remove_from_stack = true); + bool object(LPCSTR caIdentifier, int type); + bool object(LPCSTR caNamespaceName, LPCSTR caIdentifier, int type); + luabind::object name_space(LPCSTR namespace_name); + int error_log(LPCSTR caFormat, ...); + static int __cdecl script_log(ELuaMessageType message, LPCSTR caFormat, ...); + static bool print_output(lua_State *L, LPCSTR caScriptName, int iErorCode = 0); + static void print_error(lua_State *L, int iErrorCode); + virtual void on_error(lua_State *L) = 0; -#ifdef DEBUG +#ifdef LUA_DEBUG_PRINT //DEBUG public: - void flush_log (); -#endif // DEBUG + void flush_log(); +#endif //-DEBUG }; -#include "script_storage_inline.h" \ No newline at end of file +#include "script_storage_inline.h" From c32556ff6bafcbf44a08d056f61a4933c6cd9c65 Mon Sep 17 00:00:00 2001 From: Revo Lucas Date: Sun, 11 Jan 2015 19:58:30 -0500 Subject: [PATCH 062/166] + added the ability to define phantom_section in configs for psy_dog to allow the possibility to spawn sections other than phantom_psy_dog --- src/xrGame/ai/monsters/pseudodog/psy_dog.cpp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/xrGame/ai/monsters/pseudodog/psy_dog.cpp b/src/xrGame/ai/monsters/pseudodog/psy_dog.cpp index ef1a3c827be..2c649171b0c 100644 --- a/src/xrGame/ai/monsters/pseudodog/psy_dog.cpp +++ b/src/xrGame/ai/monsters/pseudodog/psy_dog.cpp @@ -99,7 +99,10 @@ bool CPsyDog::spawn_phantom() if (!control().path_builder().get_node_in_radius(ai_location().level_vertex_id(), 4,8,5,node)) return false; // set id to created server object - CSE_Abstract *phantom = Level().spawn_item("psy_dog_phantom", ai().level_graph().vertex_position(node), node, 0xffff, true); + //Alundaio: + LPCSTR phantomSection = READ_IF_EXISTS(pSettings, r_string, this->get_section(), "phantom_section", "psy_dog_phantom"); + CSE_Abstract *phantom = Level().spawn_item(phantomSection, ai().level_graph().vertex_position(node), node, 0xffff, true); + //Alundaio: END CSE_ALifeMonsterBase *pSE_Monster = smart_cast(phantom); VERIFY(pSE_Monster); From 3b0dec0296ce4e47ea970057368098534dd01074 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 11 Jan 2015 21:10:07 -0500 Subject: [PATCH 063/166] * debug config for lua-extensions --- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 3 +- src/3rd party/LuaJIT-1.1.8/src/luaconf.h | 3 + .../lua-extensions/lua_extensions.vcxproj | 73 +++++++++---------- .../lua_extensions.vcxproj.filters | 36 --------- src/engine.favdoc | 10 +++ 5 files changed, 49 insertions(+), 76 deletions(-) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index c1d0aa90b2a..76bb1719f29 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -103,7 +103,8 @@ true true true - $(xrLibDir)$(TargetName).lib + + Windows false $(xrLibDir)$(TargetName).lib diff --git a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h index 09bc2f20c10..b61e2d24292 100644 --- a/src/3rd party/LuaJIT-1.1.8/src/luaconf.h +++ b/src/3rd party/LuaJIT-1.1.8/src/luaconf.h @@ -151,6 +151,9 @@ ** the libraries, you may want to use the following definition (define ** LUA_BUILD_AS_DLL to get it). */ +#ifndef LUA_CORE +# define LUA_CORE +#endif #if defined(LUA_BUILD_AS_DLL) #if defined(LUA_CORE) || defined(LUA_LIB) diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index e3cc00eac97..70e0739d5d2 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -20,7 +20,7 @@ DynamicLibrary true MultiByte - Static + false v120 @@ -36,6 +36,7 @@ + @@ -50,76 +51,70 @@ $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + + + Level3 Disabled - E:\STALKER\Working\xrluafix\cs_cop_andrey\lua;%(AdditionalIncludeDirectories) + ..\LuaJIT-1.1.8\src;%(AdditionalIncludeDirectories) + false + SyncCThrow + Fast + true + _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + Default + true + ProgramDatabase true + $(xrLibDir);%(AdditionalLibraryDirectories) + true + false + false + $(xrLibDir)$(TargetName).lib - TurnOffAllWarnings + Level3 MaxSpeed true true ..\LuaJIT-1.1.8\src;%(AdditionalIncludeDirectories) + Speed + false + SyncCThrow + false + Fast + Default + _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) true true true $(xrLibDir);%(AdditionalLibraryDirectories) + true + false + $(xrLibDir)$(TargetName).lib - - true - - - true - - - true - - - true - - - true - - - true - - - true - - - true - - - true - - - true - - - true - - - true - diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters index 0d1c9fd5a1c..da5b466603e 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters @@ -5,47 +5,11 @@ - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - - - Old Files - diff --git a/src/engine.favdoc b/src/engine.favdoc index 81db1f530e7..bc45c5e5473 100644 --- a/src/engine.favdoc +++ b/src/engine.favdoc @@ -26,6 +26,16 @@ + + ALife + + + xrServer_Objects_ALife_Monsters.cpp + xrServerEntities\xrServer_Objects_ALife_Monsters.cpp + G:\Stalker\COP\Engine\xray-16\src\xrServerEntities\xrServer_Objects_ALife_Monsters.cpp + + + \ No newline at end of file From 42f5c21de10b8a0ffcfe9266217331da37371970 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 11 Jan 2015 22:58:40 -0500 Subject: [PATCH 064/166] + vsync by avbaula (enabled by VSYNC_FIX) - ECO_RENDER as redundant * fix for previous commit (missed one #include "build_config_defines.h") --- src/Layers/xrRender/HW.cpp | 986 ++++++++++--------- src/Layers/xrRender/dxRenderDeviceRender.cpp | 414 ++++---- src/build_config_defines.h | 22 +- src/xrServerEntities/script_engine.cpp | 558 +++++------ src/xrServerEntities/script_engine.h | 1 + src/xrServerEntities/script_storage.cpp | 12 +- src/xrServerEntities/script_storage.h | 2 +- 7 files changed, 1023 insertions(+), 972 deletions(-) diff --git a/src/Layers/xrRender/HW.cpp b/src/Layers/xrRender/HW.cpp index d38eff159e5..80415c2b7aa 100644 --- a/src/Layers/xrRender/HW.cpp +++ b/src/Layers/xrRender/HW.cpp @@ -11,16 +11,16 @@ #include "../../xrEngine/XR_IOConsole.h" #ifndef _EDITOR - void fill_vid_mode_list (CHW* _hw); - void free_vid_mode_list (); + void fill_vid_mode_list (CHW* _hw); + void free_vid_mode_list (); - void fill_render_mode_list (); - void free_render_mode_list (); + void fill_render_mode_list (); + void free_render_mode_list (); #else - void fill_vid_mode_list (CHW* _hw) {} - void free_vid_mode_list () {} - void fill_render_mode_list () {} - void free_render_mode_list () {} + void fill_vid_mode_list (CHW* _hw) {} + void free_vid_mode_list () {} + void fill_render_mode_list () {} + void free_render_mode_list () {} #endif CHW HW; @@ -30,29 +30,29 @@ IDirect3DStateBlock9* dwDebugSB = 0; #endif CHW::CHW() : - hD3D(NULL), - pD3D(NULL), - pDevice(NULL), - pBaseRT(NULL), - pBaseZB(NULL), - m_move_window(true), - maxRefreshRate(200) //ECO_RENDER + hD3D(NULL), + pD3D(NULL), + pDevice(NULL), + pBaseRT(NULL), + pBaseZB(NULL), + m_move_window(true), + maxRefreshRate(200) //ECO_RENDER { - ; + ; } CHW::~CHW() { - ; + ; } void CHW::Reset (HWND hwnd) { #ifdef DEBUG - _RELEASE (dwDebugSB); + _RELEASE (dwDebugSB); #endif - _RELEASE (pBaseZB); - _RELEASE (pBaseRT); + _RELEASE (pBaseZB); + _RELEASE (pBaseRT); #ifndef _EDITOR //#ifndef DEDICATED_SERVER @@ -60,32 +60,46 @@ void CHW::Reset (HWND hwnd) //#else // BOOL bWindowed = TRUE; //#endif - BOOL bWindowed = TRUE; - if (!g_dedicated_server) - bWindowed = !psDeviceFlags.is (rsFullscreen); - - selectResolution (DevPP.BackBufferWidth, DevPP.BackBufferHeight, bWindowed); - // Windoze - DevPP.SwapEffect = bWindowed?D3DSWAPEFFECT_COPY:D3DSWAPEFFECT_DISCARD; - DevPP.Windowed = bWindowed; - DevPP.PresentationInterval = D3DPRESENT_INTERVAL_IMMEDIATE; - if( !bWindowed ) DevPP.FullScreen_RefreshRateInHz = selectRefresh (DevPP.BackBufferWidth,DevPP.BackBufferHeight,Caps.fTarget); - else DevPP.FullScreen_RefreshRateInHz = D3DPRESENT_RATE_DEFAULT; -#endif - - while (TRUE) { - HRESULT _hr = HW.pDevice->Reset (&DevPP); - if (SUCCEEDED(_hr)) break; - Msg ("! ERROR: [%dx%d]: %s",DevPP.BackBufferWidth,DevPP.BackBufferHeight,Debug.error2string(_hr)); - Sleep (100); - } - R_CHK (pDevice->GetRenderTarget (0,&pBaseRT)); - R_CHK (pDevice->GetDepthStencilSurface (&pBaseZB)); + BOOL bWindowed = TRUE; + if (!g_dedicated_server) + bWindowed = !psDeviceFlags.is (rsFullscreen); + + selectResolution (DevPP.BackBufferWidth, DevPP.BackBufferHeight, bWindowed); + // Windoze + DevPP.SwapEffect = bWindowed?D3DSWAPEFFECT_COPY:D3DSWAPEFFECT_DISCARD; + DevPP.Windowed = bWindowed; + + //AVO: fucntional vsync by avbaula +#ifdef VSYNC_FIX + + DevPP.PresentationInterval = selectPresentInterval(); // Vsync + if(!bWindowed) // Refresh rate + DevPP.FullScreen_RefreshRateInHz = selectRefresh(DevPP.BackBufferWidth,DevPP.BackBufferHeight,Caps.fTarget); + else + DevPP.FullScreen_RefreshRateInHz = D3DPRESENT_RATE_DEFAULT; + +#else //!VSYNC_FIX + DevPP.PresentationInterval = D3DPRESENT_INTERVAL_IMMEDIATE; + if( !bWindowed ) DevPP.FullScreen_RefreshRateInHz = selectRefresh (DevPP.BackBufferWidth,DevPP.BackBufferHeight,Caps.fTarget); + else DevPP.FullScreen_RefreshRateInHz = D3DPRESENT_RATE_DEFAULT; +#endif //-VSYNC_FIX + //-AVO + +#endif //-_EDITOR + + while (TRUE) { + HRESULT _hr = HW.pDevice->Reset (&DevPP); + if (SUCCEEDED(_hr)) break; + Msg ("! ERROR: [%dx%d]: %s",DevPP.BackBufferWidth,DevPP.BackBufferHeight,Debug.error2string(_hr)); + Sleep (100); + } + R_CHK (pDevice->GetRenderTarget (0,&pBaseRT)); + R_CHK (pDevice->GetDepthStencilSurface (&pBaseZB)); #ifdef DEBUG - R_CHK (pDevice->CreateStateBlock (D3DSBT_ALL,&dwDebugSB)); + R_CHK (pDevice->CreateStateBlock (D3DSBT_ALL,&dwDebugSB)); #endif #ifndef _EDITOR - updateWindowProps (hwnd); + updateWindowProps (hwnd); #endif } @@ -102,25 +116,25 @@ void CHW::CreateD3D () // LPCSTR _name = "xrd3d9-null.dll"; //#endif - LPCSTR _name = "xrd3d9-null.dll"; + LPCSTR _name = "xrd3d9-null.dll"; #ifndef _EDITOR - if (!g_dedicated_server) + if (!g_dedicated_server) #endif - _name = "d3d9.dll"; + _name = "d3d9.dll"; - hD3D = LoadLibrary(_name); - R_ASSERT2 (hD3D,"Can't find 'd3d9.dll'\nPlease install latest version of DirectX before running this program"); + hD3D = LoadLibrary(_name); + R_ASSERT2 (hD3D,"Can't find 'd3d9.dll'\nPlease install latest version of DirectX before running this program"); typedef IDirect3D9 * WINAPI _Direct3DCreate9(UINT SDKVersion); - _Direct3DCreate9* createD3D = (_Direct3DCreate9*)GetProcAddress(hD3D,"Direct3DCreate9"); R_ASSERT(createD3D); + _Direct3DCreate9* createD3D = (_Direct3DCreate9*)GetProcAddress(hD3D,"Direct3DCreate9"); R_ASSERT(createD3D); this->pD3D = createD3D( D3D_SDK_VERSION ); R_ASSERT2 (this->pD3D,"Please install DirectX 9.0c"); } void CHW::DestroyD3D() { - _RELEASE (this->pD3D); + _RELEASE (this->pD3D); FreeLibrary (hD3D); } @@ -129,397 +143,405 @@ void CHW::DestroyD3D() ////////////////////////////////////////////////////////////////////// D3DFORMAT CHW::selectDepthStencil (D3DFORMAT fTarget) { - // R2 hack + // R2 hack #pragma todo("R2 need to specify depth format") - if (psDeviceFlags.test(rsR2)) return D3DFMT_D24S8; + if (psDeviceFlags.test(rsR2)) return D3DFMT_D24S8; - // R1 usual - static D3DFORMAT fDS_Try1[6] = - {D3DFMT_D24S8,D3DFMT_D24X4S4,D3DFMT_D32,D3DFMT_D24X8,D3DFMT_D16,D3DFMT_D15S1}; + // R1 usual + static D3DFORMAT fDS_Try1[6] = + {D3DFMT_D24S8,D3DFMT_D24X4S4,D3DFMT_D32,D3DFMT_D24X8,D3DFMT_D16,D3DFMT_D15S1}; - D3DFORMAT* fDS_Try = fDS_Try1; - int fDS_Cnt = 6; + D3DFORMAT* fDS_Try = fDS_Try1; + int fDS_Cnt = 6; - for (int it = 0; itCheckDeviceFormat( - DevAdapter,DevT,fTarget, - D3DUSAGE_DEPTHSTENCIL,D3DRTYPE_SURFACE,fDS_Try[it]))) - { + for (int it = 0; itCheckDeviceFormat( + DevAdapter,DevT,fTarget, + D3DUSAGE_DEPTHSTENCIL,D3DRTYPE_SURFACE,fDS_Try[it]))) + { if( SUCCEEDED( pD3D->CheckDepthStencilMatch( - DevAdapter,DevT, + DevAdapter,DevT, fTarget, fTarget, fDS_Try[it]) ) ) { - return fDS_Try[it]; + return fDS_Try[it]; } - } - } - return D3DFMT_UNKNOWN; + } + } + return D3DFMT_UNKNOWN; } void CHW::DestroyDevice () { - _SHOW_REF ("refCount:pBaseZB",pBaseZB); - _RELEASE (pBaseZB); + _SHOW_REF ("refCount:pBaseZB",pBaseZB); + _RELEASE (pBaseZB); - _SHOW_REF ("refCount:pBaseRT",pBaseRT); - _RELEASE (pBaseRT); + _SHOW_REF ("refCount:pBaseRT",pBaseRT); + _RELEASE (pBaseRT); #ifdef DEBUG - _SHOW_REF ("refCount:dwDebugSB",dwDebugSB); - _RELEASE (dwDebugSB); + _SHOW_REF ("refCount:dwDebugSB",dwDebugSB); + _RELEASE (dwDebugSB); #endif #ifdef _EDITOR - _RELEASE (HW.pDevice); + _RELEASE (HW.pDevice); #else - _SHOW_REF ("DeviceREF:",HW.pDevice); - _RELEASE (HW.pDevice); + _SHOW_REF ("DeviceREF:",HW.pDevice); + _RELEASE (HW.pDevice); #endif - DestroyD3D (); - + DestroyD3D (); + #ifndef _EDITOR - free_vid_mode_list (); + free_vid_mode_list (); #endif } void CHW::selectResolution (u32 &dwWidth, u32 &dwHeight, BOOL bWindowed) { - fill_vid_mode_list (this); + fill_vid_mode_list (this); #ifndef _EDITOR - if (g_dedicated_server) - { - dwWidth = 640; - dwHeight = 480; - } - else + if (g_dedicated_server) + { + dwWidth = 640; + dwHeight = 480; + } + else #endif - { - if(bWindowed) - { - dwWidth = psCurrentVidMode[0]; - dwHeight = psCurrentVidMode[1]; - }else //check - { + { + if(bWindowed) + { + dwWidth = psCurrentVidMode[0]; + dwHeight = psCurrentVidMode[1]; + }else //check + { #ifndef _EDITOR - string64 buff; - xr_sprintf (buff,sizeof(buff),"%dx%d",psCurrentVidMode[0],psCurrentVidMode[1]); + string64 buff; + xr_sprintf (buff,sizeof(buff),"%dx%d",psCurrentVidMode[0],psCurrentVidMode[1]); - if(_ParseItem(buff,vid_mode_token)==u32(-1)) //not found - { //select safe - xr_sprintf (buff,sizeof(buff),"vid_mode %s",vid_mode_token[0].name); - Console->Execute (buff); - } + if(_ParseItem(buff,vid_mode_token)==u32(-1)) //not found + { //select safe + xr_sprintf (buff,sizeof(buff),"vid_mode %s",vid_mode_token[0].name); + Console->Execute (buff); + } - dwWidth = psCurrentVidMode[0]; - dwHeight = psCurrentVidMode[1]; + dwWidth = psCurrentVidMode[0]; + dwHeight = psCurrentVidMode[1]; #endif - } - } + } + } //#endif } void CHW::CreateDevice (HWND m_hWnd, bool move_window) { - m_move_window = move_window; - CreateD3D (); + m_move_window = move_window; + CreateD3D (); - // General - select adapter and device + // General - select adapter and device //#ifdef DEDICATED_SERVER // BOOL bWindowed = TRUE; //#else // BOOL bWindowed = !psDeviceFlags.is(rsFullscreen); //#endif - BOOL bWindowed = TRUE; - + BOOL bWindowed = TRUE; + #ifndef _EDITOR - if (!g_dedicated_server) - bWindowed = !psDeviceFlags.is(rsFullscreen); + if (!g_dedicated_server) + bWindowed = !psDeviceFlags.is(rsFullscreen); #else - bWindowed = 1; + bWindowed = 1; #endif - DevAdapter = D3DADAPTER_DEFAULT; - DevT = Caps.bForceGPU_REF?D3DDEVTYPE_REF:D3DDEVTYPE_HAL; + DevAdapter = D3DADAPTER_DEFAULT; + DevT = Caps.bForceGPU_REF?D3DDEVTYPE_REF:D3DDEVTYPE_HAL; #ifndef MASTER_GOLD - // Look for 'NVIDIA NVPerfHUD' adapter - // If it is present, override default settings - for (UINT Adapter=0;AdapterGetAdapterCount();Adapter++) { - D3DADAPTER_IDENTIFIER9 Identifier; - HRESULT Res=pD3D->GetAdapterIdentifier(Adapter,0,&Identifier); - if (SUCCEEDED(Res) && (xr_strcmp(Identifier.Description,"NVIDIA PerfHUD")==0)) - { - DevAdapter =Adapter; - DevT =D3DDEVTYPE_REF; - break; - } - } + // Look for 'NVIDIA NVPerfHUD' adapter + // If it is present, override default settings + for (UINT Adapter=0;AdapterGetAdapterCount();Adapter++) { + D3DADAPTER_IDENTIFIER9 Identifier; + HRESULT Res=pD3D->GetAdapterIdentifier(Adapter,0,&Identifier); + if (SUCCEEDED(Res) && (xr_strcmp(Identifier.Description,"NVIDIA PerfHUD")==0)) + { + DevAdapter =Adapter; + DevT =D3DDEVTYPE_REF; + break; + } + } #endif // MASTER_GOLD - // Display the name of video board - D3DADAPTER_IDENTIFIER9 adapterID; - R_CHK (pD3D->GetAdapterIdentifier(DevAdapter,0,&adapterID)); - Msg ("* GPU [vendor:%X]-[device:%X]: %s",adapterID.VendorId,adapterID.DeviceId,adapterID.Description); - - u16 drv_Product = HIWORD(adapterID.DriverVersion.HighPart); - u16 drv_Version = LOWORD(adapterID.DriverVersion.HighPart); - u16 drv_SubVersion = HIWORD(adapterID.DriverVersion.LowPart); - u16 drv_Build = LOWORD(adapterID.DriverVersion.LowPart); - Msg ("* GPU driver: %d.%d.%d.%d",u32(drv_Product),u32(drv_Version),u32(drv_SubVersion), u32(drv_Build)); - - Caps.id_vendor = adapterID.VendorId; - Caps.id_device = adapterID.DeviceId; - - // Retreive windowed mode - D3DDISPLAYMODE mWindowed; - R_CHK(pD3D->GetAdapterDisplayMode(DevAdapter, &mWindowed)); - - // Select back-buffer & depth-stencil format - D3DFORMAT& fTarget = Caps.fTarget; - D3DFORMAT& fDepth = Caps.fDepth; - if (bWindowed) - { - fTarget = mWindowed.Format; - R_CHK(pD3D->CheckDeviceType (DevAdapter,DevT,fTarget,fTarget,TRUE)); - fDepth = selectDepthStencil(fTarget); - } else { - switch (psCurrentBPP) { - case 32: - fTarget = D3DFMT_X8R8G8B8; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_A8R8G8B8; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_R8G8B8; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_UNKNOWN; - break; - case 16: - default: - fTarget = D3DFMT_R5G6B5; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_X1R5G5B5; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_X4R4G4B4; - if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) - break; - fTarget = D3DFMT_UNKNOWN; - break; - } - fDepth = selectDepthStencil(fTarget); - } - - if ((D3DFMT_UNKNOWN==fTarget) || (D3DFMT_UNKNOWN==fTarget)) { - Msg ("Failed to initialize graphics hardware.\n" - "Please try to restart the game.\n" - "Can not find matching format for back buffer." - ); - FlushLog (); - MessageBox (NULL,"Failed to initialize graphics hardware.\nPlease try to restart the game.","Error!",MB_OK|MB_ICONERROR); - TerminateProcess (GetCurrentProcess(),0); - } + // Display the name of video board + D3DADAPTER_IDENTIFIER9 adapterID; + R_CHK (pD3D->GetAdapterIdentifier(DevAdapter,0,&adapterID)); + Msg ("* GPU [vendor:%X]-[device:%X]: %s",adapterID.VendorId,adapterID.DeviceId,adapterID.Description); + + u16 drv_Product = HIWORD(adapterID.DriverVersion.HighPart); + u16 drv_Version = LOWORD(adapterID.DriverVersion.HighPart); + u16 drv_SubVersion = HIWORD(adapterID.DriverVersion.LowPart); + u16 drv_Build = LOWORD(adapterID.DriverVersion.LowPart); + Msg ("* GPU driver: %d.%d.%d.%d",u32(drv_Product),u32(drv_Version),u32(drv_SubVersion), u32(drv_Build)); + + Caps.id_vendor = adapterID.VendorId; + Caps.id_device = adapterID.DeviceId; + + // Retreive windowed mode + D3DDISPLAYMODE mWindowed; + R_CHK(pD3D->GetAdapterDisplayMode(DevAdapter, &mWindowed)); + + // Select back-buffer & depth-stencil format + D3DFORMAT& fTarget = Caps.fTarget; + D3DFORMAT& fDepth = Caps.fDepth; + if (bWindowed) + { + fTarget = mWindowed.Format; + R_CHK(pD3D->CheckDeviceType (DevAdapter,DevT,fTarget,fTarget,TRUE)); + fDepth = selectDepthStencil(fTarget); + } else { + switch (psCurrentBPP) { + case 32: + fTarget = D3DFMT_X8R8G8B8; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_A8R8G8B8; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_R8G8B8; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_UNKNOWN; + break; + case 16: + default: + fTarget = D3DFMT_R5G6B5; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_X1R5G5B5; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_X4R4G4B4; + if (SUCCEEDED(pD3D->CheckDeviceType(DevAdapter,DevT,fTarget,fTarget,FALSE))) + break; + fTarget = D3DFMT_UNKNOWN; + break; + } + fDepth = selectDepthStencil(fTarget); + } + + if ((D3DFMT_UNKNOWN==fTarget) || (D3DFMT_UNKNOWN==fTarget)) { + Msg ("Failed to initialize graphics hardware.\n" + "Please try to restart the game.\n" + "Can not find matching format for back buffer." + ); + FlushLog (); + MessageBox (NULL,"Failed to initialize graphics hardware.\nPlease try to restart the game.","Error!",MB_OK|MB_ICONERROR); + TerminateProcess (GetCurrentProcess(),0); + } // Set up the presentation parameters - D3DPRESENT_PARAMETERS& P = DevPP; + D3DPRESENT_PARAMETERS& P = DevPP; ZeroMemory ( &P, sizeof(P) ); #ifndef _EDITOR - selectResolution (P.BackBufferWidth, P.BackBufferHeight, bWindowed); + selectResolution (P.BackBufferWidth, P.BackBufferHeight, bWindowed); #endif // Back buffer //. P.BackBufferWidth = dwWidth; //. P.BackBufferHeight = dwHeight; - P.BackBufferFormat = fTarget; - P.BackBufferCount = 1; + P.BackBufferFormat = fTarget; + P.BackBufferCount = 1; - // Multisample + // Multisample P.MultiSampleType = D3DMULTISAMPLE_NONE; - P.MultiSampleQuality = 0; + P.MultiSampleQuality = 0; - // Windoze + // Windoze P.SwapEffect = bWindowed?D3DSWAPEFFECT_COPY:D3DSWAPEFFECT_DISCARD; - P.hDeviceWindow = m_hWnd; + P.hDeviceWindow = m_hWnd; P.Windowed = bWindowed; - // Depth/stencil - P.EnableAutoDepthStencil= TRUE; + // Depth/stencil + P.EnableAutoDepthStencil= TRUE; P.AutoDepthStencilFormat= fDepth; - P.Flags = 0; //. D3DPRESENTFLAG_DISCARD_DEPTHSTENCIL; - - // Refresh rate - P.PresentationInterval = D3DPRESENT_INTERVAL_IMMEDIATE; + P.Flags = 0; //. D3DPRESENTFLAG_DISCARD_DEPTHSTENCIL; + + //AVO: functional vsync by avbaula +#ifdef VSYNC_FIX + P.PresentationInterval = selectPresentInterval(); // Vsync + if(!bWindowed) + P.FullScreen_RefreshRateInHz = selectRefresh(P.BackBufferWidth, P.BackBufferHeight,fTarget); +#else //!VSYNC_FIX + // Refresh rate + P.PresentationInterval = D3DPRESENT_INTERVAL_IMMEDIATE; if( !bWindowed ) P.FullScreen_RefreshRateInHz = selectRefresh (P.BackBufferWidth, P.BackBufferHeight,fTarget); +#endif //-VSYNC_FIX + //-AVO else P.FullScreen_RefreshRateInHz = D3DPRESENT_RATE_DEFAULT; // Create the device - u32 GPU = selectGPU(); - HRESULT R = HW.pD3D->CreateDevice(DevAdapter, - DevT, - m_hWnd, - GPU | D3DCREATE_MULTITHREADED, //. ? locks at present - &P, - &pDevice ); - - if (FAILED(R)) { - R = HW.pD3D->CreateDevice( DevAdapter, - DevT, - m_hWnd, - GPU | D3DCREATE_MULTITHREADED, //. ? locks at present - &P, - &pDevice ); - } - if (D3DERR_DEVICELOST==R) { - // Fatal error! Cannot create rendering device AT STARTUP !!! - Msg ("Failed to initialize graphics hardware.\n" - "Please try to restart the game.\n" - "CreateDevice returned 0x%08x(D3DERR_DEVICELOST)", R); - FlushLog (); - MessageBox (NULL,"Failed to initialize graphics hardware.\nPlease try to restart the game.","Error!",MB_OK|MB_ICONERROR); - TerminateProcess (GetCurrentProcess(),0); - }; - R_CHK (R); - - _SHOW_REF ("* CREATE: DeviceREF:",HW.pDevice); - switch (GPU) - { - case D3DCREATE_SOFTWARE_VERTEXPROCESSING: - Log ("* Vertex Processor: SOFTWARE"); - break; - case D3DCREATE_MIXED_VERTEXPROCESSING: - Log ("* Vertex Processor: MIXED"); - break; - case D3DCREATE_HARDWARE_VERTEXPROCESSING: - Log ("* Vertex Processor: HARDWARE"); - break; - case D3DCREATE_HARDWARE_VERTEXPROCESSING|D3DCREATE_PUREDEVICE: - Log ("* Vertex Processor: PURE HARDWARE"); - break; - } - - // Capture misc data + u32 GPU = selectGPU(); + HRESULT R = HW.pD3D->CreateDevice(DevAdapter, + DevT, + m_hWnd, + GPU | D3DCREATE_MULTITHREADED, //. ? locks at present + &P, + &pDevice ); + + if (FAILED(R)) { + R = HW.pD3D->CreateDevice( DevAdapter, + DevT, + m_hWnd, + GPU | D3DCREATE_MULTITHREADED, //. ? locks at present + &P, + &pDevice ); + } + if (D3DERR_DEVICELOST==R) { + // Fatal error! Cannot create rendering device AT STARTUP !!! + Msg ("Failed to initialize graphics hardware.\n" + "Please try to restart the game.\n" + "CreateDevice returned 0x%08x(D3DERR_DEVICELOST)", R); + FlushLog (); + MessageBox (NULL,"Failed to initialize graphics hardware.\nPlease try to restart the game.","Error!",MB_OK|MB_ICONERROR); + TerminateProcess (GetCurrentProcess(),0); + }; + R_CHK (R); + + _SHOW_REF ("* CREATE: DeviceREF:",HW.pDevice); + switch (GPU) + { + case D3DCREATE_SOFTWARE_VERTEXPROCESSING: + Log ("* Vertex Processor: SOFTWARE"); + break; + case D3DCREATE_MIXED_VERTEXPROCESSING: + Log ("* Vertex Processor: MIXED"); + break; + case D3DCREATE_HARDWARE_VERTEXPROCESSING: + Log ("* Vertex Processor: HARDWARE"); + break; + case D3DCREATE_HARDWARE_VERTEXPROCESSING|D3DCREATE_PUREDEVICE: + Log ("* Vertex Processor: PURE HARDWARE"); + break; + } + + // Capture misc data #ifdef DEBUG - R_CHK (pDevice->CreateStateBlock (D3DSBT_ALL,&dwDebugSB)); + R_CHK (pDevice->CreateStateBlock (D3DSBT_ALL,&dwDebugSB)); #endif - R_CHK (pDevice->GetRenderTarget (0,&pBaseRT)); - R_CHK (pDevice->GetDepthStencilSurface (&pBaseZB)); - u32 memory = pDevice->GetAvailableTextureMem (); - Msg ("* Texture memory: %d M", memory/(1024*1024)); - Msg ("* DDI-level: %2.1f", float(D3DXGetDriverLevel(pDevice))/100.f); + R_CHK (pDevice->GetRenderTarget (0,&pBaseRT)); + R_CHK (pDevice->GetDepthStencilSurface (&pBaseZB)); + u32 memory = pDevice->GetAvailableTextureMem (); + Msg ("* Texture memory: %d M", memory/(1024*1024)); + Msg ("* DDI-level: %2.1f", float(D3DXGetDriverLevel(pDevice))/100.f); #ifndef _EDITOR - updateWindowProps (m_hWnd); - fill_vid_mode_list (this); + updateWindowProps (m_hWnd); + fill_vid_mode_list (this); #endif } u32 CHW::selectPresentInterval () { - D3DCAPS9 caps; - pD3D->GetDeviceCaps(DevAdapter,DevT,&caps); - - if (!psDeviceFlags.test(rsVSync)) - { - if (caps.PresentationIntervals & D3DPRESENT_INTERVAL_IMMEDIATE) - return D3DPRESENT_INTERVAL_IMMEDIATE; - if (caps.PresentationIntervals & D3DPRESENT_INTERVAL_ONE) - return D3DPRESENT_INTERVAL_ONE; - } - return D3DPRESENT_INTERVAL_DEFAULT; + D3DCAPS9 caps; + pD3D->GetDeviceCaps(DevAdapter,DevT,&caps); + + if (!psDeviceFlags.test(rsVSync)) + { + if (caps.PresentationIntervals & D3DPRESENT_INTERVAL_IMMEDIATE) + return D3DPRESENT_INTERVAL_IMMEDIATE; + if (caps.PresentationIntervals & D3DPRESENT_INTERVAL_ONE) + return D3DPRESENT_INTERVAL_ONE; + } + return D3DPRESENT_INTERVAL_DEFAULT; } u32 CHW::selectGPU () { #if RENDER == R_R1 - BOOL isIntelGMA = FALSE; - - if ( Caps.id_vendor == 0x8086 ) { // Intel - - #define GMA_SL_SIZE 43 - - DWORD IntelGMA_SoftList[ GMA_SL_SIZE ] = { - 0x2782,0x2582,0x2792,0x2592,0x2772,0x2776,0x27A2,0x27A6,0x27AE, - 0x2982,0x2983,0x2992,0x2993,0x29A2,0x29A3,0x2972,0x2973,0x2A02, - 0x2A03,0x2A12,0x2A13,0x29C2,0x29C3,0x29B2,0x29B3,0x29D2,0x29D3, - - 0x2A42,0x2A43,0x2E02,0x2E03,0x2E12,0x2E13,0x2E22,0x2E23,0x2E32, - 0x2E33,0x2E42,0x2E43,0x2E92,0x2E93,0x0042,0x0046 - }; - - for ( int idx = 0 ; idx < GMA_SL_SIZE ; ++idx ) - if ( IntelGMA_SoftList[ idx ] == Caps.id_device ) { - isIntelGMA = TRUE; - break; - } - } - - if ( isIntelGMA ) - switch ( ps_r1_SoftwareSkinning ) { - case 0 : - Msg( "* Enabling software skinning" ); - ps_r1_SoftwareSkinning = 1; - break; - case 1 : - Msg( "* Using software skinning" ); - break; - case 2 : - Msg( "* WARNING: Using hardware skinning" ); - Msg( "* setting 'r1_software_skinning' to '1' may improve performance" ); - break; - } else - if ( ps_r1_SoftwareSkinning == 1 ) { - Msg( "* WARNING: Using software skinning" ); - Msg( "* setting 'r1_software_skinning' to '0' should improve performance" ); - } + BOOL isIntelGMA = FALSE; + + if ( Caps.id_vendor == 0x8086 ) { // Intel + + #define GMA_SL_SIZE 43 + + DWORD IntelGMA_SoftList[ GMA_SL_SIZE ] = { + 0x2782,0x2582,0x2792,0x2592,0x2772,0x2776,0x27A2,0x27A6,0x27AE, + 0x2982,0x2983,0x2992,0x2993,0x29A2,0x29A3,0x2972,0x2973,0x2A02, + 0x2A03,0x2A12,0x2A13,0x29C2,0x29C3,0x29B2,0x29B3,0x29D2,0x29D3, + + 0x2A42,0x2A43,0x2E02,0x2E03,0x2E12,0x2E13,0x2E22,0x2E23,0x2E32, + 0x2E33,0x2E42,0x2E43,0x2E92,0x2E93,0x0042,0x0046 + }; + + for ( int idx = 0 ; idx < GMA_SL_SIZE ; ++idx ) + if ( IntelGMA_SoftList[ idx ] == Caps.id_device ) { + isIntelGMA = TRUE; + break; + } + } + + if ( isIntelGMA ) + switch ( ps_r1_SoftwareSkinning ) { + case 0 : + Msg( "* Enabling software skinning" ); + ps_r1_SoftwareSkinning = 1; + break; + case 1 : + Msg( "* Using software skinning" ); + break; + case 2 : + Msg( "* WARNING: Using hardware skinning" ); + Msg( "* setting 'r1_software_skinning' to '1' may improve performance" ); + break; + } else + if ( ps_r1_SoftwareSkinning == 1 ) { + Msg( "* WARNING: Using software skinning" ); + Msg( "* setting 'r1_software_skinning' to '0' should improve performance" ); + } #endif // RENDER == R_R1 - if ( Caps.bForceGPU_SW ) - return D3DCREATE_SOFTWARE_VERTEXPROCESSING; + if ( Caps.bForceGPU_SW ) + return D3DCREATE_SOFTWARE_VERTEXPROCESSING; - D3DCAPS9 caps; - pD3D->GetDeviceCaps(DevAdapter,DevT,&caps); + D3DCAPS9 caps; + pD3D->GetDeviceCaps(DevAdapter,DevT,&caps); if(caps.DevCaps&D3DDEVCAPS_HWTRANSFORMANDLIGHT) - { - if (Caps.bForceGPU_NonPure) return D3DCREATE_HARDWARE_VERTEXPROCESSING; - else { - if (caps.DevCaps&D3DDEVCAPS_PUREDEVICE) return D3DCREATE_HARDWARE_VERTEXPROCESSING|D3DCREATE_PUREDEVICE; - else return D3DCREATE_HARDWARE_VERTEXPROCESSING; - } - // return D3DCREATE_MIXED_VERTEXPROCESSING; - } else return D3DCREATE_SOFTWARE_VERTEXPROCESSING; + { + if (Caps.bForceGPU_NonPure) return D3DCREATE_HARDWARE_VERTEXPROCESSING; + else { + if (caps.DevCaps&D3DDEVCAPS_PUREDEVICE) return D3DCREATE_HARDWARE_VERTEXPROCESSING|D3DCREATE_PUREDEVICE; + else return D3DCREATE_HARDWARE_VERTEXPROCESSING; + } + // return D3DCREATE_MIXED_VERTEXPROCESSING; + } else return D3DCREATE_SOFTWARE_VERTEXPROCESSING; } u32 CHW::selectRefresh(u32 dwWidth, u32 dwHeight, D3DFORMAT fmt) { - if (psDeviceFlags.is(rsRefresh60hz)) return D3DPRESENT_RATE_DEFAULT; - else - { - u32 selected = D3DPRESENT_RATE_DEFAULT; - u32 count = pD3D->GetAdapterModeCount(DevAdapter,fmt); - for (u32 I=0; IEnumAdapterModes(DevAdapter,fmt,I,&Mode); - if (Mode.Width==dwWidth && Mode.Height==dwHeight) - { - //if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; - if (Mode.RefreshRate <= maxRefreshRate && Mode.RefreshRate>selected) selected = Mode.RefreshRate; //ECO_RENDER modif. - } - } - return selected; - } + if (psDeviceFlags.is(rsRefresh60hz)) return D3DPRESENT_RATE_DEFAULT; + else + { + u32 selected = D3DPRESENT_RATE_DEFAULT; + u32 count = pD3D->GetAdapterModeCount(DevAdapter,fmt); + for (u32 I=0; IEnumAdapterModes(DevAdapter,fmt,I,&Mode); + if (Mode.Width==dwWidth && Mode.Height==dwHeight) + { + //if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; + if (Mode.RefreshRate <= maxRefreshRate && Mode.RefreshRate>selected) selected = Mode.RefreshRate; //ECO_RENDER modif. + } + } + return selected; + } } BOOL CHW::support (D3DFORMAT fmt, DWORD type, DWORD usage) { - HRESULT hr = pD3D->CheckDeviceFormat(DevAdapter,DevT,Caps.fTarget,usage,(D3DRESOURCETYPE)type,fmt); - if (FAILED(hr)) return FALSE; - else return TRUE; + HRESULT hr = pD3D->CheckDeviceFormat(DevAdapter,DevT,Caps.fTarget,usage,(D3DRESOURCETYPE)type,fmt); + if (FAILED(hr)) return FALSE; + else return TRUE; } void CHW::updateWindowProps (HWND m_hWnd) @@ -531,72 +553,72 @@ void CHW::updateWindowProps (HWND m_hWnd) // BOOL bWindowed = TRUE; //#endif - BOOL bWindowed = TRUE; + BOOL bWindowed = TRUE; #ifndef _EDITOR - if (!g_dedicated_server) - bWindowed = !psDeviceFlags.is(rsFullscreen); + if (!g_dedicated_server) + bWindowed = !psDeviceFlags.is(rsFullscreen); #endif - u32 dwWindowStyle = 0; - // Set window properties depending on what mode were in. - if (bWindowed) { - if (m_move_window) { + u32 dwWindowStyle = 0; + // Set window properties depending on what mode were in. + if (bWindowed) { + if (m_move_window) { dwWindowStyle = WS_BORDER | WS_VISIBLE; if (!strstr(Core.Params, "-no_dialog_header")) dwWindowStyle |= WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX; SetWindowLong(m_hWnd, GWL_STYLE, dwWindowStyle); - // When moving from fullscreen to windowed mode, it is important to - // adjust the window size after recreating the device rather than - // beforehand to ensure that you get the window size you want. For - // example, when switching from 640x480 fullscreen to windowed with - // a 1000x600 window on a 1024x768 desktop, it is impossible to set - // the window size to 1000x600 until after the display mode has - // changed to 1024x768, because windows cannot be larger than the - // desktop. - - RECT m_rcWindowBounds; - RECT DesktopRect; - - GetClientRect (GetDesktopWindow(), &DesktopRect); - - SetRect( &m_rcWindowBounds, - (DesktopRect.right-DevPP.BackBufferWidth)/2, - (DesktopRect.bottom-DevPP.BackBufferHeight)/2, - (DesktopRect.right+DevPP.BackBufferWidth)/2, - (DesktopRect.bottom+DevPP.BackBufferHeight)/2 ); - - AdjustWindowRect ( &m_rcWindowBounds, dwWindowStyle, FALSE ); - - SetWindowPos ( m_hWnd, - HWND_NOTOPMOST, + // When moving from fullscreen to windowed mode, it is important to + // adjust the window size after recreating the device rather than + // beforehand to ensure that you get the window size you want. For + // example, when switching from 640x480 fullscreen to windowed with + // a 1000x600 window on a 1024x768 desktop, it is impossible to set + // the window size to 1000x600 until after the display mode has + // changed to 1024x768, because windows cannot be larger than the + // desktop. + + RECT m_rcWindowBounds; + RECT DesktopRect; + + GetClientRect (GetDesktopWindow(), &DesktopRect); + + SetRect( &m_rcWindowBounds, + (DesktopRect.right-DevPP.BackBufferWidth)/2, + (DesktopRect.bottom-DevPP.BackBufferHeight)/2, + (DesktopRect.right+DevPP.BackBufferWidth)/2, + (DesktopRect.bottom+DevPP.BackBufferHeight)/2 ); + + AdjustWindowRect ( &m_rcWindowBounds, dwWindowStyle, FALSE ); + + SetWindowPos ( m_hWnd, + HWND_NOTOPMOST, m_rcWindowBounds.left, m_rcWindowBounds.top, - ( m_rcWindowBounds.right - m_rcWindowBounds.left ), - ( m_rcWindowBounds.bottom - m_rcWindowBounds.top ), - SWP_SHOWWINDOW|SWP_NOCOPYBITS|SWP_DRAWFRAME ); - } - } - else - { - SetWindowLong ( m_hWnd, GWL_STYLE, dwWindowStyle=(WS_POPUP|WS_VISIBLE) ); - SetWindowLong ( m_hWnd, GWL_EXSTYLE, WS_EX_TOPMOST); - } + ( m_rcWindowBounds.right - m_rcWindowBounds.left ), + ( m_rcWindowBounds.bottom - m_rcWindowBounds.top ), + SWP_SHOWWINDOW|SWP_NOCOPYBITS|SWP_DRAWFRAME ); + } + } + else + { + SetWindowLong ( m_hWnd, GWL_STYLE, dwWindowStyle=(WS_POPUP|WS_VISIBLE) ); + SetWindowLong ( m_hWnd, GWL_EXSTYLE, WS_EX_TOPMOST); + } #ifndef _EDITOR - if (!g_dedicated_server) - { - ShowCursor (FALSE); - SetForegroundWindow( m_hWnd ); - } + if (!g_dedicated_server) + { + ShowCursor (FALSE); + SetForegroundWindow( m_hWnd ); + } #endif } struct _uniq_mode { - _uniq_mode(LPCSTR v):_val(v){} - LPCSTR _val; - bool operator() (LPCSTR _other) {return !stricmp(_val,_other);} + _uniq_mode(LPCSTR v):_val(v){} + LPCSTR _val; + bool operator() (LPCSTR _other) {return !stricmp(_val,_other);} }; #ifndef _EDITOR @@ -604,128 +626,128 @@ struct _uniq_mode /* void free_render_mode_list() { - for( int i=0; vid_quality_token[i].name; i++ ) - { - xr_free (vid_quality_token[i].name); - } - xr_free (vid_quality_token); - vid_quality_token = NULL; + for( int i=0; vid_quality_token[i].name; i++ ) + { + xr_free (vid_quality_token[i].name); + } + xr_free (vid_quality_token); + vid_quality_token = NULL; } */ /* void fill_render_mode_list() { - if(vid_quality_token != NULL) return; - - D3DCAPS9 caps; - CHW _HW; - _HW.CreateD3D (); - _HW.pD3D->GetDeviceCaps (D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,&caps); - _HW.DestroyD3D (); - u16 ps_ver_major = u16 ( u32(u32(caps.PixelShaderVersion)&u32(0xf << 8ul))>>8 ); - - xr_vector _tmp; - u32 i = 0; - for(; i<5; ++i) - { - bool bBreakLoop = false; - switch (i) - { - case 3: //"renderer_r2.5" - if (ps_ver_major < 3) - bBreakLoop = true; - break; - case 4: //"renderer_r_dx10" - bBreakLoop = true; - break; - default: ; - } - - if (bBreakLoop) break; - - _tmp.push_back (NULL); - LPCSTR val = NULL; - switch (i) - { - case 0: val ="renderer_r1"; break; - case 1: val ="renderer_r2a"; break; - case 2: val ="renderer_r2"; break; - case 3: val ="renderer_r2.5"; break; - case 4: val ="renderer_r_dx10"; break; // -) - } - _tmp.back() = xr_strdup(val); - } - u32 _cnt = _tmp.size()+1; - vid_quality_token = xr_alloc(_cnt); - - vid_quality_token[_cnt-1].id = -1; - vid_quality_token[_cnt-1].name = NULL; + if(vid_quality_token != NULL) return; + + D3DCAPS9 caps; + CHW _HW; + _HW.CreateD3D (); + _HW.pD3D->GetDeviceCaps (D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,&caps); + _HW.DestroyD3D (); + u16 ps_ver_major = u16 ( u32(u32(caps.PixelShaderVersion)&u32(0xf << 8ul))>>8 ); + + xr_vector _tmp; + u32 i = 0; + for(; i<5; ++i) + { + bool bBreakLoop = false; + switch (i) + { + case 3: //"renderer_r2.5" + if (ps_ver_major < 3) + bBreakLoop = true; + break; + case 4: //"renderer_r_dx10" + bBreakLoop = true; + break; + default: ; + } + + if (bBreakLoop) break; + + _tmp.push_back (NULL); + LPCSTR val = NULL; + switch (i) + { + case 0: val ="renderer_r1"; break; + case 1: val ="renderer_r2a"; break; + case 2: val ="renderer_r2"; break; + case 3: val ="renderer_r2.5"; break; + case 4: val ="renderer_r_dx10"; break; // -) + } + _tmp.back() = xr_strdup(val); + } + u32 _cnt = _tmp.size()+1; + vid_quality_token = xr_alloc(_cnt); + + vid_quality_token[_cnt-1].id = -1; + vid_quality_token[_cnt-1].name = NULL; #ifdef DEBUG - Msg("Available render modes[%d]:",_tmp.size()); + Msg("Available render modes[%d]:",_tmp.size()); #endif // DEBUG - for(u32 i=0; i<_tmp.size();++i) - { - vid_quality_token[i].id = i; - vid_quality_token[i].name = _tmp[i]; + for(u32 i=0; i<_tmp.size();++i) + { + vid_quality_token[i].id = i; + vid_quality_token[i].name = _tmp[i]; #ifdef DEBUG - Msg ("[%s]",_tmp[i]); + Msg ("[%s]",_tmp[i]); #endif // DEBUG - } + } } */ void free_vid_mode_list() { - for( int i=0; vid_mode_token[i].name; i++ ) - { - xr_free (vid_mode_token[i].name); - } - xr_free (vid_mode_token); - vid_mode_token = NULL; + for( int i=0; vid_mode_token[i].name; i++ ) + { + xr_free (vid_mode_token[i].name); + } + xr_free (vid_mode_token); + vid_mode_token = NULL; } void fill_vid_mode_list(CHW* _hw) { - if(vid_mode_token != NULL) return; - xr_vector _tmp; - u32 cnt = _hw->pD3D->GetAdapterModeCount (_hw->DevAdapter, _hw->Caps.fTarget); + if(vid_mode_token != NULL) return; + xr_vector _tmp; + u32 cnt = _hw->pD3D->GetAdapterModeCount (_hw->DevAdapter, _hw->Caps.fTarget); u32 i; - for(i=0; ipD3D->EnumAdapterModes(_hw->DevAdapter, _hw->Caps.fTarget, i, &Mode); - if(Mode.Width < 800) continue; + _hw->pD3D->EnumAdapterModes(_hw->DevAdapter, _hw->Caps.fTarget, i, &Mode); + if(Mode.Width < 800) continue; - xr_sprintf (str,sizeof(str),"%dx%d", Mode.Width, Mode.Height); - - if(_tmp.end() != std::find_if(_tmp.begin(), _tmp.end(), _uniq_mode(str))) - continue; + xr_sprintf (str,sizeof(str),"%dx%d", Mode.Width, Mode.Height); + + if(_tmp.end() != std::find_if(_tmp.begin(), _tmp.end(), _uniq_mode(str))) + continue; - _tmp.push_back (NULL); - _tmp.back() = xr_strdup(str); - } + _tmp.push_back (NULL); + _tmp.back() = xr_strdup(str); + } - u32 _cnt = _tmp.size()+1; + u32 _cnt = _tmp.size()+1; - vid_mode_token = xr_alloc(_cnt); + vid_mode_token = xr_alloc(_cnt); - vid_mode_token[_cnt-1].id = -1; - vid_mode_token[_cnt-1].name = NULL; + vid_mode_token[_cnt-1].id = -1; + vid_mode_token[_cnt-1].name = NULL; #ifdef DEBUG - Msg("Available video modes[%d]:",_tmp.size()); + Msg("Available video modes[%d]:",_tmp.size()); #endif // DEBUG - for(i=0; i<_tmp.size();++i) - { - vid_mode_token[i].id = i; - vid_mode_token[i].name = _tmp[i]; + for(i=0; i<_tmp.size();++i) + { + vid_mode_token[i].id = i; + vid_mode_token[i].name = _tmp[i]; #ifdef DEBUG - Msg ("[%s]",_tmp[i]); + Msg ("[%s]",_tmp[i]); #endif // DEBUG - } + } } #endif diff --git a/src/Layers/xrRender/dxRenderDeviceRender.cpp b/src/Layers/xrRender/dxRenderDeviceRender.cpp index 8ee4d9ee647..6d43b30201b 100644 --- a/src/Layers/xrRender/dxRenderDeviceRender.cpp +++ b/src/Layers/xrRender/dxRenderDeviceRender.cpp @@ -4,325 +4,325 @@ #include "ResourceManager.h" dxRenderDeviceRender::dxRenderDeviceRender() - : Resources(0) + : Resources(0) { - ; + ; } void dxRenderDeviceRender::Copy(IRenderDeviceRender &_in) { - *this = *(dxRenderDeviceRender*)&_in; + *this = *(dxRenderDeviceRender*)&_in; } void dxRenderDeviceRender::setGamma(float fGamma) { - m_Gamma.Gamma(fGamma); + m_Gamma.Gamma(fGamma); } void dxRenderDeviceRender::setBrightness(float fGamma) { - m_Gamma.Brightness(fGamma); + m_Gamma.Brightness(fGamma); } void dxRenderDeviceRender::setContrast(float fGamma) { - m_Gamma.Contrast(fGamma); + m_Gamma.Contrast(fGamma); } void dxRenderDeviceRender::updateGamma() { - m_Gamma.Update(); + m_Gamma.Update(); } void dxRenderDeviceRender::OnDeviceDestroy( BOOL bKeepTextures) { - m_WireShader.destroy(); - m_SelectionShader.destroy(); + m_WireShader.destroy(); + m_SelectionShader.destroy(); - Resources->OnDeviceDestroy( bKeepTextures); - RCache.OnDeviceDestroy(); + Resources->OnDeviceDestroy( bKeepTextures); + RCache.OnDeviceDestroy(); } void dxRenderDeviceRender::ValidateHW() { - HW.Validate(); + HW.Validate(); } void dxRenderDeviceRender::DestroyHW() { - xr_delete (Resources); - HW.DestroyDevice (); + xr_delete (Resources); + HW.DestroyDevice (); } void dxRenderDeviceRender::Reset( HWND hWnd, u32 &dwWidth, u32 &dwHeight, float &fWidth_2, float &fHeight_2) { #ifdef DEBUG - _SHOW_REF("*ref -CRenderDevice::ResetTotal: DeviceREF:",HW.pDevice); + _SHOW_REF("*ref -CRenderDevice::ResetTotal: DeviceREF:",HW.pDevice); #endif // DEBUG - Resources->reset_begin (); - Memory.mem_compact (); - HW.Reset (hWnd); + Resources->reset_begin (); + Memory.mem_compact (); + HW.Reset (hWnd); #if defined(USE_DX10) || defined(USE_DX11) - dwWidth = HW.m_ChainDesc.BufferDesc.Width; - dwHeight = HW.m_ChainDesc.BufferDesc.Height; + dwWidth = HW.m_ChainDesc.BufferDesc.Width; + dwHeight = HW.m_ChainDesc.BufferDesc.Height; #else // USE_DX10 - dwWidth = HW.DevPP.BackBufferWidth; - dwHeight = HW.DevPP.BackBufferHeight; + dwWidth = HW.DevPP.BackBufferWidth; + dwHeight = HW.DevPP.BackBufferHeight; #endif // USE_DX10 - fWidth_2 = float(dwWidth/2); - fHeight_2 = float(dwHeight/2); - Resources->reset_end (); + fWidth_2 = float(dwWidth/2); + fHeight_2 = float(dwHeight/2); + Resources->reset_end (); #ifdef DEBUG - _SHOW_REF("*ref +CRenderDevice::ResetTotal: DeviceREF:",HW.pDevice); + _SHOW_REF("*ref +CRenderDevice::ResetTotal: DeviceREF:",HW.pDevice); #endif // DEBUG } void dxRenderDeviceRender::SetupStates() { - HW.Caps.Update (); + HW.Caps.Update (); #if defined(USE_DX10) || defined(USE_DX11) - // TODO: DX10: Implement Resetting of render states into default mode - //VERIFY(!"dxRenderDeviceRender::SetupStates not implemented."); + // TODO: DX10: Implement Resetting of render states into default mode + //VERIFY(!"dxRenderDeviceRender::SetupStates not implemented."); #else // USE_DX10 - for (u32 i=0; iSetSamplerState ( i, D3DSAMP_MAXANISOTROPY, 4 )); - CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MIPMAPLODBIAS, *((LPDWORD) (&fBias)))); - CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MINFILTER, D3DTEXF_LINEAR )); - CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MAGFILTER, D3DTEXF_LINEAR )); - CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MIPFILTER, D3DTEXF_LINEAR )); - } - CHK_DX(HW.pDevice->SetRenderState( D3DRS_DITHERENABLE, TRUE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_COLORVERTEX, TRUE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_ZENABLE, TRUE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_SHADEMODE, D3DSHADE_GOURAUD )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_CULLMODE, D3DCULL_CCW )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_ALPHAFUNC, D3DCMP_GREATER )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_LOCALVIEWER, TRUE )); - - CHK_DX(HW.pDevice->SetRenderState( D3DRS_DIFFUSEMATERIALSOURCE, D3DMCS_MATERIAL )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_SPECULARMATERIALSOURCE,D3DMCS_MATERIAL )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_AMBIENTMATERIALSOURCE, D3DMCS_MATERIAL )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_EMISSIVEMATERIALSOURCE,D3DMCS_COLOR1 )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_MULTISAMPLEANTIALIAS, FALSE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_NORMALIZENORMALS, TRUE )); - - if (psDeviceFlags.test(rsWireframe)) { CHK_DX(HW.pDevice->SetRenderState( D3DRS_FILLMODE, D3DFILL_WIREFRAME )); } - else { CHK_DX(HW.pDevice->SetRenderState( D3DRS_FILLMODE, D3DFILL_SOLID )); } - - // ******************** Fog parameters - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGCOLOR, 0 )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_RANGEFOGENABLE, FALSE )); - if (HW.Caps.bTableFog) { - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGTABLEMODE, D3DFOG_LINEAR )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGVERTEXMODE, D3DFOG_NONE )); - } else { - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGTABLEMODE, D3DFOG_NONE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGVERTEXMODE, D3DFOG_LINEAR )); - } + for (u32 i=0; iSetSamplerState ( i, D3DSAMP_MAXANISOTROPY, 4 )); + CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MIPMAPLODBIAS, *((LPDWORD) (&fBias)))); + CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MINFILTER, D3DTEXF_LINEAR )); + CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MAGFILTER, D3DTEXF_LINEAR )); + CHK_DX(HW.pDevice->SetSamplerState ( i, D3DSAMP_MIPFILTER, D3DTEXF_LINEAR )); + } + CHK_DX(HW.pDevice->SetRenderState( D3DRS_DITHERENABLE, TRUE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_COLORVERTEX, TRUE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_ZENABLE, TRUE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_SHADEMODE, D3DSHADE_GOURAUD )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_CULLMODE, D3DCULL_CCW )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_ALPHAFUNC, D3DCMP_GREATER )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_LOCALVIEWER, TRUE )); + + CHK_DX(HW.pDevice->SetRenderState( D3DRS_DIFFUSEMATERIALSOURCE, D3DMCS_MATERIAL )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_SPECULARMATERIALSOURCE,D3DMCS_MATERIAL )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_AMBIENTMATERIALSOURCE, D3DMCS_MATERIAL )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_EMISSIVEMATERIALSOURCE,D3DMCS_COLOR1 )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_MULTISAMPLEANTIALIAS, FALSE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_NORMALIZENORMALS, TRUE )); + + if (psDeviceFlags.test(rsWireframe)) { CHK_DX(HW.pDevice->SetRenderState( D3DRS_FILLMODE, D3DFILL_WIREFRAME )); } + else { CHK_DX(HW.pDevice->SetRenderState( D3DRS_FILLMODE, D3DFILL_SOLID )); } + + // ******************** Fog parameters + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGCOLOR, 0 )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_RANGEFOGENABLE, FALSE )); + if (HW.Caps.bTableFog) { + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGTABLEMODE, D3DFOG_LINEAR )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGVERTEXMODE, D3DFOG_NONE )); + } else { + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGTABLEMODE, D3DFOG_NONE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_FOGVERTEXMODE, D3DFOG_LINEAR )); + } #endif // USE_DX10 } void dxRenderDeviceRender::OnDeviceCreate(LPCSTR shName) { - // Signal everyone - device created - RCache.OnDeviceCreate (); - m_Gamma.Update (); - Resources->OnDeviceCreate (shName); - ::Render->create (); - Device.Statistic->OnDeviceCreate (); + // Signal everyone - device created + RCache.OnDeviceCreate (); + m_Gamma.Update (); + Resources->OnDeviceCreate (shName); + ::Render->create (); + Device.Statistic->OnDeviceCreate (); //#ifndef DEDICATED_SERVER - if (!g_dedicated_server) - { - m_WireShader.create ("editor\\wire"); - m_SelectionShader.create ("editor\\selection"); + if (!g_dedicated_server) + { + m_WireShader.create ("editor\\wire"); + m_SelectionShader.create ("editor\\selection"); - DUImpl.OnDeviceCreate (); - } + DUImpl.OnDeviceCreate (); + } //#endif } void dxRenderDeviceRender::Create( HWND hWnd, u32 &dwWidth, u32 &dwHeight, float &fWidth_2, float &fHeight_2, bool move_window) { - HW.CreateDevice (hWnd, move_window); + HW.CreateDevice (hWnd, move_window); #if defined(USE_DX10) || defined(USE_DX11) - dwWidth = HW.m_ChainDesc.BufferDesc.Width; - dwHeight = HW.m_ChainDesc.BufferDesc.Height; + dwWidth = HW.m_ChainDesc.BufferDesc.Width; + dwHeight = HW.m_ChainDesc.BufferDesc.Height; #else // USE_DX10 - dwWidth = HW.DevPP.BackBufferWidth; - dwHeight = HW.DevPP.BackBufferHeight; + dwWidth = HW.DevPP.BackBufferWidth; + dwHeight = HW.DevPP.BackBufferHeight; #endif // USE_DX10 - fWidth_2 = float(dwWidth/2) ; - fHeight_2 = float(dwHeight/2) ; - Resources = xr_new (); + fWidth_2 = float(dwWidth/2) ; + fHeight_2 = float(dwHeight/2) ; + Resources = xr_new (); } void dxRenderDeviceRender::SetupGPU( BOOL bForceGPU_SW, BOOL bForceGPU_NonPure, BOOL bForceGPU_REF) { - HW.Caps.bForceGPU_SW = bForceGPU_SW; - HW.Caps.bForceGPU_NonPure = bForceGPU_NonPure; - HW.Caps.bForceGPU_REF = bForceGPU_REF; + HW.Caps.bForceGPU_SW = bForceGPU_SW; + HW.Caps.bForceGPU_NonPure = bForceGPU_NonPure; + HW.Caps.bForceGPU_REF = bForceGPU_REF; } void dxRenderDeviceRender::overdrawBegin() { #if defined(USE_DX10) || defined(USE_DX11) - // TODO: DX10: Implement overdrawBegin - VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); + // TODO: DX10: Implement overdrawBegin + VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); #else // USE_DX10 - // Turn stenciling - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILENABLE, TRUE )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILFUNC, D3DCMP_ALWAYS )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILREF, 0 )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILMASK, 0x00000000 )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILWRITEMASK, 0xffffffff )); - - // Increment the stencil buffer for each pixel drawn - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILFAIL, D3DSTENCILOP_KEEP )); - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILPASS, D3DSTENCILOP_INCRSAT )); - - if (1==HW.Caps.SceneMode) - { CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_KEEP )); } // Overdraw - else - { CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_INCRSAT )); } // ZB access + // Turn stenciling + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILENABLE, TRUE )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILFUNC, D3DCMP_ALWAYS )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILREF, 0 )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILMASK, 0x00000000 )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILWRITEMASK, 0xffffffff )); + + // Increment the stencil buffer for each pixel drawn + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILFAIL, D3DSTENCILOP_KEEP )); + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILPASS, D3DSTENCILOP_INCRSAT )); + + if (1==HW.Caps.SceneMode) + { CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_KEEP )); } // Overdraw + else + { CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_INCRSAT )); } // ZB access #endif // USE_DX10 } void dxRenderDeviceRender::overdrawEnd() { #if defined(USE_DX10) || defined(USE_DX11) - // TODO: DX10: Implement overdrawEnd - VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); + // TODO: DX10: Implement overdrawEnd + VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); #else // USE_DX10 - // Set up the stencil states - CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_KEEP )); - CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILFAIL, D3DSTENCILOP_KEEP )); - CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILPASS, D3DSTENCILOP_KEEP )); - CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILFUNC, D3DCMP_EQUAL )); - CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILMASK, 0xff )); - - // Set the background to black - CHK_DX (HW.pDevice->Clear(0,0,D3DCLEAR_TARGET,D3DCOLOR_XRGB(255,0,0),0,0)); - - // Draw a rectangle wherever the count equal I - RCache.OnFrameEnd (); - CHK_DX (HW.pDevice->SetFVF( FVF::F_TL )); - - // Render gradients - for (int I=0; I<12; I++ ) - { - u32 _c = I*256/13; - u32 c = D3DCOLOR_XRGB(_c,_c,_c); - - FVF::TL pv[4]; - pv[0].set(float(0), float(Device.dwHeight), c,0,0); - pv[1].set(float(0), float(0), c,0,0); - pv[2].set(float(Device.dwWidth), float(Device.dwHeight), c,0,0); - pv[3].set(float(Device.dwWidth), float(0), c,0,0); - - CHK_DX(HW.pDevice->SetRenderState ( D3DRS_STENCILREF, I )); - CHK_DX(HW.pDevice->DrawPrimitiveUP ( D3DPT_TRIANGLESTRIP, 2, pv, sizeof(FVF::TL) )); - } - CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILENABLE, FALSE )); + // Set up the stencil states + CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILZFAIL, D3DSTENCILOP_KEEP )); + CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILFAIL, D3DSTENCILOP_KEEP )); + CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILPASS, D3DSTENCILOP_KEEP )); + CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILFUNC, D3DCMP_EQUAL )); + CHK_DX (HW.pDevice->SetRenderState( D3DRS_STENCILMASK, 0xff )); + + // Set the background to black + CHK_DX (HW.pDevice->Clear(0,0,D3DCLEAR_TARGET,D3DCOLOR_XRGB(255,0,0),0,0)); + + // Draw a rectangle wherever the count equal I + RCache.OnFrameEnd (); + CHK_DX (HW.pDevice->SetFVF( FVF::F_TL )); + + // Render gradients + for (int I=0; I<12; I++ ) + { + u32 _c = I*256/13; + u32 c = D3DCOLOR_XRGB(_c,_c,_c); + + FVF::TL pv[4]; + pv[0].set(float(0), float(Device.dwHeight), c,0,0); + pv[1].set(float(0), float(0), c,0,0); + pv[2].set(float(Device.dwWidth), float(Device.dwHeight), c,0,0); + pv[3].set(float(Device.dwWidth), float(0), c,0,0); + + CHK_DX(HW.pDevice->SetRenderState ( D3DRS_STENCILREF, I )); + CHK_DX(HW.pDevice->DrawPrimitiveUP ( D3DPT_TRIANGLESTRIP, 2, pv, sizeof(FVF::TL) )); + } + CHK_DX(HW.pDevice->SetRenderState( D3DRS_STENCILENABLE, FALSE )); #endif // USE_DX10 } void dxRenderDeviceRender::DeferredLoad(BOOL E) { - Resources->DeferredLoad(E); + Resources->DeferredLoad(E); } void dxRenderDeviceRender::ResourcesDeferredUpload() { - Resources->DeferredUpload(); + Resources->DeferredUpload(); } void dxRenderDeviceRender::ResourcesGetMemoryUsage(u32& m_base, u32& c_base, u32& m_lmaps, u32& c_lmaps) { - if (Resources) - Resources->_GetMemoryUsage(m_base, c_base, m_lmaps, c_lmaps); + if (Resources) + Resources->_GetMemoryUsage(m_base, c_base, m_lmaps, c_lmaps); } void dxRenderDeviceRender::ResourcesStoreNecessaryTextures() { - dxRenderDeviceRender::Instance().Resources->StoreNecessaryTextures(); + dxRenderDeviceRender::Instance().Resources->StoreNecessaryTextures(); } void dxRenderDeviceRender::ResourcesDumpMemoryUsage() { - dxRenderDeviceRender::Instance().Resources->_DumpMemoryUsage(); + dxRenderDeviceRender::Instance().Resources->_DumpMemoryUsage(); } dxRenderDeviceRender::DeviceState dxRenderDeviceRender::GetDeviceState() { - HW.Validate (); + HW.Validate (); #if defined(USE_DX10) || defined(USE_DX11) - // TODO: DX10: Implement GetDeviceState - // TODO: DX10: Implement DXGI_PRESENT_TEST testing - //VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); + // TODO: DX10: Implement GetDeviceState + // TODO: DX10: Implement DXGI_PRESENT_TEST testing + //VERIFY(!"dxRenderDeviceRender::overdrawBegin not implemented."); #else // USE_DX10 - HRESULT _hr = HW.pDevice->TestCooperativeLevel(); - if (FAILED(_hr)) - { - // If the device was lost, do not render until we get it back - if (D3DERR_DEVICELOST==_hr) - return dsLost; - - // Check if the device is ready to be reset - if (D3DERR_DEVICENOTRESET==_hr) - return dsNeedReset; - } + HRESULT _hr = HW.pDevice->TestCooperativeLevel(); + if (FAILED(_hr)) + { + // If the device was lost, do not render until we get it back + if (D3DERR_DEVICELOST==_hr) + return dsLost; + + // Check if the device is ready to be reset + if (D3DERR_DEVICENOTRESET==_hr) + return dsNeedReset; + } #endif // USE_DX10 - return dsOK; + return dsOK; } BOOL dxRenderDeviceRender::GetForceGPU_REF() { - return HW.Caps.bForceGPU_REF; + return HW.Caps.bForceGPU_REF; } u32 dxRenderDeviceRender::GetCacheStatPolys() { - return RCache.stat.polys; + return RCache.stat.polys; } void dxRenderDeviceRender::Begin() { #if !defined(USE_DX10) && !defined(USE_DX11) - CHK_DX (HW.pDevice->BeginScene()); + CHK_DX (HW.pDevice->BeginScene()); #endif // USE_DX10 - RCache.OnFrameBegin (); - RCache.set_CullMode (CULL_CW); - RCache.set_CullMode (CULL_CCW); - if (HW.Caps.SceneMode) overdrawBegin (); + RCache.OnFrameBegin (); + RCache.set_CullMode (CULL_CW); + RCache.set_CullMode (CULL_CCW); + if (HW.Caps.SceneMode) overdrawBegin (); } void dxRenderDeviceRender::Clear() { #if defined(USE_DX10) || defined(USE_DX11) - HW.pContext->ClearDepthStencilView(RCache.get_ZB(), - D3D_CLEAR_DEPTH|D3D_CLEAR_STENCIL, 1.0f, 0); - - if (psDeviceFlags.test(rsClearBB)) - { - FLOAT ColorRGBA[4] = {0.0f,0.0f,0.0f,0.0f}; - HW.pContext->ClearRenderTargetView(RCache.get_RT(), ColorRGBA); - } + HW.pContext->ClearDepthStencilView(RCache.get_ZB(), + D3D_CLEAR_DEPTH|D3D_CLEAR_STENCIL, 1.0f, 0); + + if (psDeviceFlags.test(rsClearBB)) + { + FLOAT ColorRGBA[4] = {0.0f,0.0f,0.0f,0.0f}; + HW.pContext->ClearRenderTargetView(RCache.get_RT(), ColorRGBA); + } #else // USE_DX10 - CHK_DX(HW.pDevice->Clear(0,0, - D3DCLEAR_ZBUFFER| - (psDeviceFlags.test(rsClearBB)?D3DCLEAR_TARGET:0)| - (HW.Caps.bStencil?D3DCLEAR_STENCIL:0), - D3DCOLOR_XRGB(0,0,0),1,0 - )); + CHK_DX(HW.pDevice->Clear(0,0, + D3DCLEAR_ZBUFFER| + (psDeviceFlags.test(rsClearBB)?D3DCLEAR_TARGET:0)| + (HW.Caps.bStencil?D3DCLEAR_STENCIL:0), + D3DCOLOR_XRGB(0,0,0),1,0 + )); #endif // USE_DX10 } @@ -330,56 +330,62 @@ void DoAsyncScreenshot(); void dxRenderDeviceRender::End() { - VERIFY (HW.pDevice); + VERIFY (HW.pDevice); - if (HW.Caps.SceneMode) overdrawEnd(); + if (HW.Caps.SceneMode) overdrawEnd(); - RCache.OnFrameEnd (); - Memory.dbg_check (); + RCache.OnFrameEnd (); + Memory.dbg_check (); - DoAsyncScreenshot(); + DoAsyncScreenshot(); #if defined(USE_DX10) || defined(USE_DX11) - HW.m_pSwapChain->Present( 0, 0 ); -#else // USE_DX10 - CHK_DX (HW.pDevice->EndScene()); - - HW.pDevice->Present( NULL, NULL, NULL, NULL ); -#endif // USE_DX10 - //HRESULT _hr = HW.pDevice->Present( NULL, NULL, NULL, NULL ); - //if (D3DERR_DEVICELOST==_hr) return; // we will handle this later + //AVO: functional vsync by avbaula +#ifdef VSYNC_FIX + HW.m_pSwapChain->Present( psDeviceFlags.test(rsVSync) ? 1 : 0, 0 ); +#else //!VSYNC_FIX + HW.m_pSwapChain->Present( 0, 0 ); +#endif //-VSYNC_FIX + //-AVO +#else //!USE_DX10 || USE_DX11 + CHK_DX (HW.pDevice->EndScene()); + + HW.pDevice->Present( NULL, NULL, NULL, NULL ); +#endif //-USE_DX10 + //HRESULT _hr = HW.pDevice->Present( NULL, NULL, NULL, NULL ); + //if (D3DERR_DEVICELOST==_hr) return; // we will handle this later } void dxRenderDeviceRender::ResourcesDestroyNecessaryTextures() { - Resources->DestroyNecessaryTextures(); + Resources->DestroyNecessaryTextures(); } void dxRenderDeviceRender::ClearTarget() { #if defined(USE_DX10) || defined(USE_DX11) - FLOAT ColorRGBA[4] = {0.0f,0.0f,0.0f,0.0f}; - HW.pContext->ClearRenderTargetView(RCache.get_RT(), ColorRGBA); + FLOAT ColorRGBA[4] = {0.0f,0.0f,0.0f,0.0f}; + HW.pContext->ClearRenderTargetView(RCache.get_RT(), ColorRGBA); #else // USE_DX10 - CHK_DX(HW.pDevice->Clear(0,0,D3DCLEAR_TARGET,D3DCOLOR_XRGB(0,0,0),1,0)); + CHK_DX(HW.pDevice->Clear(0,0,D3DCLEAR_TARGET,D3DCOLOR_XRGB(0,0,0),1,0)); #endif // USE_DX10 } void dxRenderDeviceRender::SetCacheXform(Fmatrix &mView, Fmatrix &mProject) { - RCache.set_xform_view(mView); - RCache.set_xform_project(mProject); + RCache.set_xform_view(mView); + RCache.set_xform_project(mProject); } bool dxRenderDeviceRender::HWSupportsShaderYUV2RGB() { - u32 v_dev = CAP_VERSION(HW.Caps.raster_major, HW.Caps.raster_minor); - u32 v_need = CAP_VERSION(2,0); - return (v_dev>=v_need); + u32 v_dev = CAP_VERSION(HW.Caps.raster_major, HW.Caps.raster_minor); + u32 v_need = CAP_VERSION(2,0); + return (v_dev>=v_need); } void dxRenderDeviceRender::OnAssetsChanged() { - Resources->m_textures_description.UnLoad(); - Resources->m_textures_description.Load(); + Resources->m_textures_description.UnLoad(); + Resources->m_textures_description.Load(); } diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 7c40b2b4d18..904b1bbece6 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -1,14 +1,26 @@ #pragma once -/* Scripts */ +// SCRIPTS: //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) //#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) -#define FP_DEATH // first person death view -#define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) +#define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) +//-SCRIPTS + +// CORE: #define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails +//-CORE + +// VISUAL: #define DETAIL_RADIUS // detail draw radius (by KD) -#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) +#define VSYNC_FIX // functional VSync by avbaula +// ECO_RENDER is not needed with VSYNC_FIX enabled +//#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) +//-VISUAL + +// TWEAKS: +#define FP_DEATH // first person death view #define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define -#define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define \ No newline at end of file +#define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define +//-TWEAKS \ No newline at end of file diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index 92c2e17418e..f4cc1defe43 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -11,26 +11,28 @@ #include "ai_space.h" #include "object_factory.h" #include "script_process.h" +#include "../build_config_defines.h" +#include "script_storage.h" #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO # include "script_debugger.h" # else //USE_LUA_STUDIO # include "lua_studio.h" - typedef cs::lua_studio::create_world_function_type create_world_function_type; - typedef cs::lua_studio::destroy_world_function_type destroy_world_function_type; + typedef cs::lua_studio::create_world_function_type create_world_function_type; + typedef cs::lua_studio::destroy_world_function_type destroy_world_function_type; - static create_world_function_type s_create_world = 0; - static destroy_world_function_type s_destroy_world = 0; - static HMODULE s_script_debugger_handle = 0; - static LogCallback s_old_log_callback = 0; + static create_world_function_type s_create_world = 0; + static destroy_world_function_type s_destroy_world = 0; + static HMODULE s_script_debugger_handle = 0; + static LogCallback s_old_log_callback = 0; # endif //!USE_LUA_STUDIO #endif #ifndef XRSE_FACTORY_EXPORTS # ifdef DEBUG # include "ai_debug.h" - extern Flags32 psAI_Flags; + extern Flags32 psAI_Flags; # endif //-DEBUG #endif //!XRSE_FACTORY_EXPORTS @@ -39,239 +41,239 @@ void jit_command(lua_State*, LPCSTR); #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) static void log_callback (LPCSTR message) { - if (s_old_log_callback) - s_old_log_callback (message); + if (s_old_log_callback) + s_old_log_callback (message); - if (!ai().script_engine().debugger()) - return; + if (!ai().script_engine().debugger()) + return; - ai().script_engine().debugger()->add_log_line (message); + ai().script_engine().debugger()->add_log_line (message); } static void initialize_lua_studio ( lua_State* state, cs::lua_studio::world*& world, lua_studio_engine*& engine) { - engine = 0; - world = 0; - - u32 const old_error_mode = SetErrorMode(SEM_FAILCRITICALERRORS); - s_script_debugger_handle = LoadLibrary(CS_LUA_STUDIO_BACKEND_FILE_NAME); - SetErrorMode (old_error_mode); - if (!s_script_debugger_handle) { - Msg ("! cannot load %s dynamic library", CS_LUA_STUDIO_BACKEND_FILE_NAME); - return; - } - - R_ASSERT2 (s_script_debugger_handle, "can't load script debugger library"); - - s_create_world = (create_world_function_type) - GetProcAddress( - s_script_debugger_handle, - "_cs_lua_studio_backend_create_world@12" - ); - R_ASSERT2 (s_create_world, "can't find function \"cs_lua_studio_backend_create_world\""); - - s_destroy_world = (destroy_world_function_type) - GetProcAddress( - s_script_debugger_handle, - "_cs_lua_studio_backend_destroy_world@4" - ); - R_ASSERT2 (s_destroy_world, "can't find function \"cs_lua_studio_backend_destroy_world\" in the library"); - - engine = xr_new(); - world = s_create_world( *engine, false, false ); - VERIFY (world); - - s_old_log_callback = SetLogCB(&log_callback); - - jit_command (state, "debug=2"); - jit_command (state, "off"); - - world->add (state); + engine = 0; + world = 0; + + u32 const old_error_mode = SetErrorMode(SEM_FAILCRITICALERRORS); + s_script_debugger_handle = LoadLibrary(CS_LUA_STUDIO_BACKEND_FILE_NAME); + SetErrorMode (old_error_mode); + if (!s_script_debugger_handle) { + Msg ("! cannot load %s dynamic library", CS_LUA_STUDIO_BACKEND_FILE_NAME); + return; + } + + R_ASSERT2 (s_script_debugger_handle, "can't load script debugger library"); + + s_create_world = (create_world_function_type) + GetProcAddress( + s_script_debugger_handle, + "_cs_lua_studio_backend_create_world@12" + ); + R_ASSERT2 (s_create_world, "can't find function \"cs_lua_studio_backend_create_world\""); + + s_destroy_world = (destroy_world_function_type) + GetProcAddress( + s_script_debugger_handle, + "_cs_lua_studio_backend_destroy_world@4" + ); + R_ASSERT2 (s_destroy_world, "can't find function \"cs_lua_studio_backend_destroy_world\" in the library"); + + engine = xr_new(); + world = s_create_world( *engine, false, false ); + VERIFY (world); + + s_old_log_callback = SetLogCB(&log_callback); + + jit_command (state, "debug=2"); + jit_command (state, "off"); + + world->add (state); } static void finalize_lua_studio ( lua_State* state, cs::lua_studio::world*& world, lua_studio_engine*& engine) { - world->remove (state); + world->remove (state); - VERIFY (world); - s_destroy_world (world); - world = 0; + VERIFY (world); + s_destroy_world (world); + world = 0; - VERIFY (engine); - xr_delete (engine); + VERIFY (engine); + xr_delete (engine); - FreeLibrary (s_script_debugger_handle); - s_script_debugger_handle = 0; + FreeLibrary (s_script_debugger_handle); + s_script_debugger_handle = 0; - SetLogCB (s_old_log_callback); + SetLogCB (s_old_log_callback); } void CScriptEngine::try_connect_to_debugger () { - if (m_lua_studio_world) - return; + if (m_lua_studio_world) + return; - initialize_lua_studio ( lua(), m_lua_studio_world, m_lua_studio_engine ); + initialize_lua_studio ( lua(), m_lua_studio_world, m_lua_studio_engine ); } void CScriptEngine::disconnect_from_debugger () { - if (!m_lua_studio_world) - return; + if (!m_lua_studio_world) + return; - finalize_lua_studio ( lua(), m_lua_studio_world, m_lua_studio_engine ); + finalize_lua_studio ( lua(), m_lua_studio_world, m_lua_studio_engine ); } #endif //-(USE_DEBUGGER) && defined(USE_LUA_STUDIO) CScriptEngine::CScriptEngine () { - m_stack_level = 0; - m_reload_modules = false; - m_last_no_file_length = 0; - *m_last_no_file = 0; + m_stack_level = 0; + m_reload_modules = false; + m_last_no_file_length = 0; + *m_last_no_file = 0; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - m_scriptDebugger = NULL; - restartDebugger (); + m_scriptDebugger = NULL; + restartDebugger (); # else //USE_LUA_STUDIO - m_lua_studio_world = 0; + m_lua_studio_world = 0; # endif //!USE_LUA_STUDIO #endif } CScriptEngine::~CScriptEngine () { - while (!m_script_processes.empty()) - remove_script_process(m_script_processes.begin()->first); + while (!m_script_processes.empty()) + remove_script_process(m_script_processes.begin()->first); #ifdef DEBUG - flush_log(); + flush_log(); #else # ifdef LUA_DEBUG_PRINT - flush_log(); + flush_log(); # endif //-LUA_DEBUG_PRINT #endif //-DEBUG #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - xr_delete (m_scriptDebugger); + xr_delete (m_scriptDebugger); # else // #ifndef USE_LUA_STUDIO - disconnect_from_debugger(); + disconnect_from_debugger(); # endif // #ifndef USE_LUA_STUDIO #endif } void CScriptEngine::unload () { - lua_settop (lua(),m_stack_level); - m_last_no_file_length = 0; - *m_last_no_file = 0; + lua_settop (lua(),m_stack_level); + m_last_no_file_length = 0; + *m_last_no_file = 0; } int CScriptEngine::lua_panic (lua_State *L) { - print_output (L,"PANIC",LUA_ERRRUN); - return (0); + print_output (L,"PANIC",LUA_ERRRUN); + return (0); } void CScriptEngine::lua_error (lua_State *L) { - print_output (L,"",LUA_ERRRUN); - ai().script_engine().on_error (L); + print_output (L,"",LUA_ERRRUN); + ai().script_engine().on_error (L); #if !XRAY_EXCEPTIONS - Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_tostring(L,-1)); + Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_tostring(L,-1)); #else - throw lua_tostring(L,-1); + throw lua_tostring(L,-1); #endif } int CScriptEngine::lua_pcall_failed (lua_State *L) { - print_output (L,"",LUA_ERRRUN); - ai().script_engine().on_error (L); + print_output (L,"",LUA_ERRRUN); + ai().script_engine().on_error (L); #if !XRAY_EXCEPTIONS - Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_isstring(L,-1) ? lua_tostring(L,-1) : ""); + Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_isstring(L,-1) ? lua_tostring(L,-1) : ""); #endif - if (lua_isstring(L,-1)) - lua_pop (L,1); - return (LUA_ERRRUN); + if (lua_isstring(L,-1)) + lua_pop (L,1); + return (LUA_ERRRUN); } void lua_cast_failed (lua_State *L, LUABIND_TYPE_INFO info) { - CScriptEngine::print_output (L,"",LUA_ERRRUN); + CScriptEngine::print_output (L,"",LUA_ERRRUN); - Debug.fatal (DEBUG_INFO,"LUA error: cannot cast lua value to %s",info->name()); + Debug.fatal (DEBUG_INFO,"LUA error: cannot cast lua value to %s",info->name()); } void CScriptEngine::setup_callbacks () { #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( debugger() ) - debugger()->PrepareLuaBind (); + if( debugger() ) + debugger()->PrepareLuaBind (); # endif // #ifndef USE_LUA_STUDIO #endif #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (!debugger() || !debugger()->Active() ) + if (!debugger() || !debugger()->Active() ) # endif // #ifndef USE_LUA_STUDIO #endif - { + { #if !XRAY_EXCEPTIONS - luabind::set_error_callback (CScriptEngine::lua_error); + luabind::set_error_callback (CScriptEngine::lua_error); #endif #ifndef MASTER_GOLD - luabind::set_pcall_callback (CScriptEngine::lua_pcall_failed); + luabind::set_pcall_callback (CScriptEngine::lua_pcall_failed); #endif // MASTER_GOLD - } + } #if !XRAY_EXCEPTIONS - luabind::set_cast_failed_callback (lua_cast_failed); + luabind::set_cast_failed_callback (lua_cast_failed); #endif - lua_atpanic (lua(),CScriptEngine::lua_panic); + lua_atpanic (lua(),CScriptEngine::lua_panic); } #ifdef DEBUG # include "script_thread.h" void CScriptEngine::lua_hook_call (lua_State *L, lua_Debug *dbg) { - if (ai().script_engine().current_thread()) - ai().script_engine().current_thread()->script_hook(L,dbg); - else - ai().script_engine().m_stack_is_ready = true; + if (ai().script_engine().current_thread()) + ai().script_engine().current_thread()->script_hook(L,dbg); + else + ai().script_engine().m_stack_is_ready = true; } #endif int auto_load (lua_State *L) { - if ((lua_gettop(L) < 2) || !lua_istable(L,1) || !lua_isstring(L,2)) { - lua_pushnil (L); - return (1); - } - - ai().script_engine().process_file_if_exists(lua_tostring(L,2),false); - lua_rawget (L,1); - return (1); + if ((lua_gettop(L) < 2) || !lua_istable(L,1) || !lua_isstring(L,2)) { + lua_pushnil (L); + return (1); + } + + ai().script_engine().process_file_if_exists(lua_tostring(L,2),false); + lua_rawget (L,1); + return (1); } void CScriptEngine::setup_auto_load () { - luaL_newmetatable (lua(),"XRAY_AutoLoadMetaTable"); - lua_pushstring (lua(),"__index"); - lua_pushcfunction (lua(), auto_load); - lua_settable (lua(),-3); - lua_pushstring (lua(),"_G"); - lua_gettable (lua(),LUA_GLOBALSINDEX); - luaL_getmetatable (lua(),"XRAY_AutoLoadMetaTable"); - lua_setmetatable (lua(),-2); - //. ?????????? - // lua_settop (lua(),-0); + luaL_newmetatable (lua(),"XRAY_AutoLoadMetaTable"); + lua_pushstring (lua(),"__index"); + lua_pushcfunction (lua(), auto_load); + lua_settable (lua(),-3); + lua_pushstring (lua(),"_G"); + lua_gettable (lua(),LUA_GLOBALSINDEX); + luaL_getmetatable (lua(),"XRAY_AutoLoadMetaTable"); + lua_setmetatable (lua(),-2); + //. ?????????? + // lua_settop (lua(),-0); } extern void export_classes(lua_State *L); @@ -279,249 +281,249 @@ extern void export_classes(lua_State *L); void CScriptEngine::init () { #ifdef USE_LUA_STUDIO - bool lua_studio_connected = !!m_lua_studio_world; - if (lua_studio_connected) - m_lua_studio_world->remove (lua()); + bool lua_studio_connected = !!m_lua_studio_world; + if (lua_studio_connected) + m_lua_studio_world->remove (lua()); #endif // #ifdef USE_LUA_STUDIO - CScriptStorage::reinit (); + CScriptStorage::reinit (); #ifdef USE_LUA_STUDIO - if (m_lua_studio_world || strstr(Core.Params, "-lua_studio")) { - if (!lua_studio_connected) - try_connect_to_debugger (); - else { - jit_command (lua(), "debug=2"); - jit_command (lua(), "off"); - m_lua_studio_world->add (lua()); - } - } + if (m_lua_studio_world || strstr(Core.Params, "-lua_studio")) { + if (!lua_studio_connected) + try_connect_to_debugger (); + else { + jit_command (lua(), "debug=2"); + jit_command (lua(), "off"); + m_lua_studio_world->add (lua()); + } + } #endif // #ifdef USE_LUA_STUDIO - luabind::open (lua()); - setup_callbacks (); - export_classes (lua()); - setup_auto_load (); + luabind::open (lua()); + setup_callbacks (); + export_classes (lua()); + setup_auto_load (); #ifdef DEBUG - m_stack_is_ready = true; + m_stack_is_ready = true; #endif #ifndef USE_LUA_STUDIO # ifdef DEBUG # if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - if( !debugger() || !debugger()->Active() ) + if( !debugger() || !debugger()->Active() ) # endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - lua_sethook (lua(),lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); + lua_sethook (lua(),lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); # endif // #ifdef DEBUG #endif // #ifndef USE_LUA_STUDIO // lua_sethook (lua(), lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); - bool save = m_reload_modules; - m_reload_modules = true; - process_file_if_exists ("_G",false); - m_reload_modules = save; + bool save = m_reload_modules; + m_reload_modules = true; + process_file_if_exists ("_G",false); + m_reload_modules = save; - register_script_classes (); - object_factory().register_script (); + register_script_classes (); + object_factory().register_script (); #ifdef XRGAME_EXPORTS - load_common_scripts (); + load_common_scripts (); #endif - m_stack_level = lua_gettop(lua()); + m_stack_level = lua_gettop(lua()); } void CScriptEngine::remove_script_process (const EScriptProcessors &process_id) { - CScriptProcessStorage::iterator I = m_script_processes.find(process_id); - if (I != m_script_processes.end()) { - xr_delete ((*I).second); - m_script_processes.erase (I); - } + CScriptProcessStorage::iterator I = m_script_processes.find(process_id); + if (I != m_script_processes.end()) { + xr_delete ((*I).second); + m_script_processes.erase (I); + } } void CScriptEngine::load_common_scripts() { #ifdef DBG_DISABLE_SCRIPTS - return; + return; #endif - string_path S; - FS.update_path (S,"$game_config$","script.ltx"); - CInifile *l_tpIniFile = xr_new(S); - R_ASSERT (l_tpIniFile); - if (!l_tpIniFile->section_exist("common")) { - xr_delete (l_tpIniFile); - return; - } - - if (l_tpIniFile->line_exist("common","script")) { - LPCSTR caScriptString = l_tpIniFile->r_string("common","script"); - u32 n = _GetItemCount(caScriptString); - string256 I; - for (u32 i=0; i(S); + R_ASSERT (l_tpIniFile); + if (!l_tpIniFile->section_exist("common")) { + xr_delete (l_tpIniFile); + return; + } + + if (l_tpIniFile->line_exist("common","script")) { + LPCSTR caScriptString = l_tpIniFile->r_string("common","script"); + u32 n = _GetItemCount(caScriptString); + string256 I; + for (u32 i=0; i f; - R_ASSERT (functor(I,f)); - f (); - } - } - } - - xr_delete (l_tpIniFile); + luabind::functor f; + R_ASSERT (functor(I,f)); + f (); + } + } + } + + xr_delete (l_tpIniFile); } void CScriptEngine::process_file_if_exists (LPCSTR file_name, bool warn_if_not_exist) { - u32 string_length = xr_strlen(file_name); - if (!warn_if_not_exist && no_file_exists(file_name,string_length)) - return; - - string_path S,S1; - if (m_reload_modules || (*file_name && !namespace_loaded(file_name))) { - FS.update_path (S,"$game_scripts$",strconcat(sizeof(S1),S1,file_name,".script")); - if (!warn_if_not_exist && !FS.exist(S)) { + u32 string_length = xr_strlen(file_name); + if (!warn_if_not_exist && no_file_exists(file_name,string_length)) + return; + + string_path S,S1; + if (m_reload_modules || (*file_name && !namespace_loaded(file_name))) { + FS.update_path (S,"$game_scripts$",strconcat(sizeof(S1),S1,file_name,".script")); + if (!warn_if_not_exist && !FS.exist(S)) { #ifdef DEBUG # ifndef XRSE_FACTORY_EXPORTS - if (psAI_Flags.test(aiNilObjectAccess)) + if (psAI_Flags.test(aiNilObjectAccess)) # endif - { - print_stack (); - Msg ("* trying to access variable %s, which doesn't exist, or to load script %s, which doesn't exist too",file_name,S1); - m_stack_is_ready = true; - } + { + print_stack (); + Msg ("* trying to access variable %s, which doesn't exist, or to load script %s, which doesn't exist too",file_name,S1); + m_stack_is_ready = true; + } #endif - add_no_file (file_name,string_length); - return; - } + add_no_file (file_name,string_length); + return; + } #ifndef MASTER_GOLD - Msg ("* loading script %s",S1); + Msg ("* loading script %s",S1); #endif // MASTER_GOLD - m_reload_modules = false; - load_file_into_namespace(S,*file_name ? file_name : "_G"); - } + m_reload_modules = false; + load_file_into_namespace(S,*file_name ? file_name : "_G"); + } } void CScriptEngine::process_file (LPCSTR file_name) { - process_file_if_exists (file_name,true); + process_file_if_exists (file_name,true); } void CScriptEngine::process_file (LPCSTR file_name, bool reload_modules) { - m_reload_modules = reload_modules; - process_file_if_exists (file_name,true); - m_reload_modules = false; + m_reload_modules = reload_modules; + process_file_if_exists (file_name,true); + m_reload_modules = false; } void CScriptEngine::register_script_classes () { #ifdef DBG_DISABLE_SCRIPTS - return; + return; #endif - string_path S; - FS.update_path (S,"$game_config$","script.ltx"); - CInifile *l_tpIniFile = xr_new(S); - R_ASSERT (l_tpIniFile); - - if (!l_tpIniFile->section_exist("common")) { - xr_delete (l_tpIniFile); - return; - } - - m_class_registrators = READ_IF_EXISTS(l_tpIniFile,r_string,"common","class_registrators",""); - xr_delete (l_tpIniFile); - - u32 n = _GetItemCount(*m_class_registrators); - string256 I; - for (u32 i=0; i result; - if (!functor(I,result)) { - script_log (eLuaMessageTypeError,"Cannot load class registrator %s!",I); - continue; - } - result (const_cast(&object_factory())); - } + string_path S; + FS.update_path (S,"$game_config$","script.ltx"); + CInifile *l_tpIniFile = xr_new(S); + R_ASSERT (l_tpIniFile); + + if (!l_tpIniFile->section_exist("common")) { + xr_delete (l_tpIniFile); + return; + } + + m_class_registrators = READ_IF_EXISTS(l_tpIniFile,r_string,"common","class_registrators",""); + xr_delete (l_tpIniFile); + + u32 n = _GetItemCount(*m_class_registrators); + string256 I; + for (u32 i=0; i result; + if (!functor(I,result)) { + script_log (eLuaMessageTypeError,"Cannot load class registrator %s!",I); + continue; + } + result (const_cast(&object_factory())); + } } bool CScriptEngine::function_object(LPCSTR function_to_call, luabind::object &object, int type) { - if (!xr_strlen(function_to_call)) - return (false); - - string256 name_space, function; - - parse_script_namespace (function_to_call,name_space,sizeof(name_space),function,sizeof(function)); - if (xr_strcmp(name_space,"_G")) { - LPSTR file_name = strchr(name_space,'.'); - if (!file_name) - process_file (name_space); - else { - *file_name = 0; - process_file (name_space); - *file_name = '.'; - } - } - - if (!this->object(name_space,function,type)) - return (false); - - luabind::object lua_namespace = this->name_space(name_space); - object = lua_namespace[function]; - return (true); + if (!xr_strlen(function_to_call)) + return (false); + + string256 name_space, function; + + parse_script_namespace (function_to_call,name_space,sizeof(name_space),function,sizeof(function)); + if (xr_strcmp(name_space,"_G")) { + LPSTR file_name = strchr(name_space,'.'); + if (!file_name) + process_file (name_space); + else { + *file_name = 0; + process_file (name_space); + *file_name = '.'; + } + } + + if (!this->object(name_space,function,type)) + return (false); + + luabind::object lua_namespace = this->name_space(name_space); + object = lua_namespace[function]; + return (true); } #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) void CScriptEngine::stopDebugger () { - if (debugger()){ - xr_delete (m_scriptDebugger); - Msg ("Script debugger succesfully stoped."); - } - else - Msg ("Script debugger not present."); + if (debugger()){ + xr_delete (m_scriptDebugger); + Msg ("Script debugger succesfully stoped."); + } + else + Msg ("Script debugger not present."); } void CScriptEngine::restartDebugger () { - if(debugger()) - stopDebugger(); + if(debugger()) + stopDebugger(); - m_scriptDebugger = xr_new(); - debugger()->PrepareLuaBind(); - Msg ("Script debugger succesfully restarted."); + m_scriptDebugger = xr_new(); + debugger()->PrepareLuaBind(); + Msg ("Script debugger succesfully restarted."); } #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) bool CScriptEngine::no_file_exists (LPCSTR file_name, u32 string_length) { - if (m_last_no_file_length != string_length) - return (false); + if (m_last_no_file_length != string_length) + return (false); - return (!memcmp(m_last_no_file,file_name,string_length*sizeof(char))); + return (!memcmp(m_last_no_file,file_name,string_length*sizeof(char))); } void CScriptEngine::add_no_file (LPCSTR file_name, u32 string_length) { - m_last_no_file_length = string_length; - CopyMemory (m_last_no_file,file_name,(string_length+1)*sizeof(char)); + m_last_no_file_length = string_length; + CopyMemory (m_last_no_file,file_name,(string_length+1)*sizeof(char)); } void CScriptEngine::collect_all_garbage () { - lua_gc (lua(),LUA_GCCOLLECT,0); - lua_gc (lua(),LUA_GCCOLLECT,0); + lua_gc (lua(),LUA_GCCOLLECT,0); + lua_gc (lua(),LUA_GCCOLLECT,0); } void CScriptEngine::on_error (lua_State* state) { #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) - if (!debugger()) - return; + if (!debugger()) + return; - debugger()->on_error ( state ); + debugger()->on_error ( state ); #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) } \ No newline at end of file diff --git a/src/xrServerEntities/script_engine.h b/src/xrServerEntities/script_engine.h index 8d46d71a1cd..62edfc05b42 100644 --- a/src/xrServerEntities/script_engine.h +++ b/src/xrServerEntities/script_engine.h @@ -12,6 +12,7 @@ #include "script_export_space.h" #include "script_space_forward.h" #include "associative_vector.h" +#include "script_storage.h" extern "C" { #include diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index dc991c2bbd2..55dda2e7c86 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -453,15 +453,23 @@ void CScriptStorage::print_stack() { lua_getinfo(L, "nSlu", &l_tDebugInfo); if (!l_tDebugInfo.name) + { script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, ""); + } else + { if (!xr_strcmp(l_tDebugInfo.what, "C")) + { script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); - //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); + //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [C ] %s", i, l_tDebugInfo.name); + } else + { script_log_no_stack(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); //script_log(ScriptStorage::eLuaMessageTypeError, "%2d : [%s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, l_tDebugInfo.name); + } + } } } //#endif //-PRINT_CALL_STACK @@ -904,7 +912,7 @@ void CScriptStorage::flush_log() FS.update_path (log_file_name,"$logs$",log_file_name); m_output.save_to (log_file_name); } -#endif //-DEBUG +#endif //-LUA_DEBUG_PRINT DEBUG int CScriptStorage::error_log(LPCSTR format, ...) { diff --git a/src/xrServerEntities/script_storage.h b/src/xrServerEntities/script_storage.h index d332fb404f7..82dd767b3df 100644 --- a/src/xrServerEntities/script_storage.h +++ b/src/xrServerEntities/script_storage.h @@ -97,7 +97,7 @@ class CScriptStorage #ifdef LUA_DEBUG_PRINT //DEBUG public: void flush_log(); -#endif //-DEBUG +#endif //-LUA_DEBUG_PRINT DEBUG }; #include "script_storage_inline.h" From 6d4912ded387cbd543ae1bd22917935c376d72cb Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Mon, 12 Jan 2015 19:55:00 -0500 Subject: [PATCH 065/166] * changed log1 to log --- res/gamedata/scripts/bind_stalker.script | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index fac3585112c..70f8df436b5 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -155,49 +155,49 @@ end -- key press callback function actor_binder:key_press(key) -- sm:call("key_press", key) - -- log1(string.format("key pressed %d", key)) + -- log(string.format("key pressed %d", key)) if key == DIK_keys.DIK_F7 then - log1("F7 pressed") + log("F7 pressed") end end -- key release callback (turn on in build_config_defines.h only if absolutely needed) function actor_binder:key_release(key) -- sm:call("key_release", key) - -- log1(string.format("key released %d", key)) + -- log(string.format("key released %d", key)) if key == DIK_keys.DIK_F7 then - log1("F7 released") + log("F7 released") end end -- key hold callback (turn on in build_config_defines.h only if absolutely needed) function actor_binder:key_hold(key) -- sm:call("key_hold", key) - -- log1(string.format("key hold %d", key)) + -- log(string.format("key hold %d", key)) if key == DIK_keys.DIK_F7 then - log1("F7 hold") + log("F7 hold") end end -- mouse move callback (turn on in build_config_defines.h only if absolutely needed) function actor_binder:mouse_move(dx, dy) - log1(string.format("mouse moved to: [%d]:[%d]", dx, dy)) + log(string.format("mouse moved to: [%d]:[%d]", dx, dy)) end -- mouse wheel callback (direction is 120 up and -120 down) function actor_binder:mouse_wheel(direction) - log1(string.format("mouse wheel moved %s", tostring(direction))) + log(string.format("mouse wheel moved %s", tostring(direction))) end -- item to ruck callback -- note: this is called on new game and level change function actor_binder:item_to_ruck(obj) - log1(string.format("item_to_ruck [%s]", obj:name())) + log(string.format("item_to_ruck [%s]", obj:name())) end -- item to belt callback -- note: this is called on new game and level change function actor_binder:item_to_belt(obj) - log1(string.format("item_to_belt [%s]", obj:name())) + log(string.format("item_to_belt [%s]", obj:name())) end -- item to slot callback -- note: this is called on new game and level change function actor_binder:item_to_slot(obj) - log1(string.format("item_to_slot [%s]", obj:name())) + log(string.format("item_to_slot [%s]", obj:name())) end ---------------------------------------------------------------------------------------------------------------------- function actor_binder:take_item_from_box(box, item) From 3bf8cd0a46b67126fd970680e041feeaa49df999 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 13 Jan 2015 00:34:38 -0500 Subject: [PATCH 066/166] + initial setup of luajit-2.0.3 (need some more work plus smart_terrain.script is crapping out for some reason when loading jobs from gulag_general.script) --- sdk/include/lua/lauxlib.h | 29 +- sdk/include/lua/library_linkage.h | 3 +- sdk/include/lua/lua.h | 22 +- sdk/include/lua/luaconf.h | 828 +- sdk/include/lua/lualib.h | 63 +- .../luabind/luabind.beta7-devel.rc4.vcxproj | 13 +- src/3rd party/luajit-2.0/.gitignore | 11 + src/3rd party/luajit-2.0/COPYRIGHT | 56 + src/3rd party/luajit-2.0/Makefile | 151 + src/3rd party/luajit-2.0/README | 16 + .../luajit-2.0/doc/bluequad-print.css | 166 + src/3rd party/luajit-2.0/doc/bluequad.css | 325 + src/3rd party/luajit-2.0/doc/changes.html | 928 ++ src/3rd party/luajit-2.0/doc/contact.html | 102 + src/3rd party/luajit-2.0/doc/ext_c_api.html | 187 + src/3rd party/luajit-2.0/doc/ext_ffi.html | 330 + src/3rd party/luajit-2.0/doc/ext_ffi_api.html | 566 ++ .../luajit-2.0/doc/ext_ffi_semantics.html | 1245 +++ .../luajit-2.0/doc/ext_ffi_tutorial.html | 601 ++ src/3rd party/luajit-2.0/doc/ext_jit.html | 199 + src/3rd party/luajit-2.0/doc/extensions.html | 408 + src/3rd party/luajit-2.0/doc/faq.html | 184 + src/3rd party/luajit-2.0/doc/img/contact.png | Bin 0 -> 1340 bytes src/3rd party/luajit-2.0/doc/install.html | 646 ++ src/3rd party/luajit-2.0/doc/luajit.html | 234 + src/3rd party/luajit-2.0/doc/running.html | 306 + src/3rd party/luajit-2.0/doc/status.html | 125 + src/3rd party/luajit-2.0/dynasm/dasm_arm.h | 456 + src/3rd party/luajit-2.0/dynasm/dasm_arm.lua | 1125 +++ src/3rd party/luajit-2.0/dynasm/dasm_mips.h | 416 + src/3rd party/luajit-2.0/dynasm/dasm_mips.lua | 953 ++ src/3rd party/luajit-2.0/dynasm/dasm_ppc.h | 412 + src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua | 1249 +++ src/3rd party/luajit-2.0/dynasm/dasm_proto.h | 83 + src/3rd party/luajit-2.0/dynasm/dasm_x64.lua | 12 + src/3rd party/luajit-2.0/dynasm/dasm_x86.h | 471 + src/3rd party/luajit-2.0/dynasm/dasm_x86.lua | 1945 +++++ src/3rd party/luajit-2.0/dynasm/dynasm.lua | 1094 +++ src/3rd party/luajit-2.0/etc/luajit.1 | 88 + src/3rd party/luajit-2.0/etc/luajit.pc | 25 + src/3rd party/luajit-2.0/src/.gitignore | 7 + src/3rd party/luajit-2.0/src/Makefile | 684 ++ src/3rd party/luajit-2.0/src/Makefile.dep | 226 + src/3rd party/luajit-2.0/src/host/.gitignore | 3 + src/3rd party/luajit-2.0/src/host/README | 4 + src/3rd party/luajit-2.0/src/host/buildvm.c | 516 ++ src/3rd party/luajit-2.0/src/host/buildvm.h | 104 + .../luajit-2.0/src/host/buildvm_asm.c | 313 + .../luajit-2.0/src/host/buildvm_fold.c | 229 + .../luajit-2.0/src/host/buildvm_lib.c | 398 + .../luajit-2.0/src/host/buildvm_peobj.c | 368 + .../luajit-2.0/src/host/genminilua.lua | 428 + src/3rd party/luajit-2.0/src/host/minilua.c | 7770 +++++++++++++++++ src/3rd party/luajit-2.0/src/jit/.gitignore | 1 + src/3rd party/luajit-2.0/src/jit/bc.lua | 191 + src/3rd party/luajit-2.0/src/jit/bcsave.lua | 659 ++ src/3rd party/luajit-2.0/src/jit/dis_arm.lua | 689 ++ src/3rd party/luajit-2.0/src/jit/dis_mips.lua | 428 + .../luajit-2.0/src/jit/dis_mipsel.lua | 20 + src/3rd party/luajit-2.0/src/jit/dis_ppc.lua | 591 ++ src/3rd party/luajit-2.0/src/jit/dis_x64.lua | 20 + src/3rd party/luajit-2.0/src/jit/dis_x86.lua | 836 ++ src/3rd party/luajit-2.0/src/jit/dump.lua | 699 ++ src/3rd party/luajit-2.0/src/jit/v.lua | 167 + src/3rd party/luajit-2.0/src/lauxlib.h | 167 + src/3rd party/luajit-2.0/src/lib_aux.c | 356 + src/3rd party/luajit-2.0/src/lib_base.c | 683 ++ src/3rd party/luajit-2.0/src/lib_bit.c | 74 + src/3rd party/luajit-2.0/src/lib_debug.c | 405 + src/3rd party/luajit-2.0/src/lib_ffi.c | 851 ++ src/3rd party/luajit-2.0/src/lib_init.c | 55 + src/3rd party/luajit-2.0/src/lib_io.c | 539 ++ src/3rd party/luajit-2.0/src/lib_jit.c | 663 ++ src/3rd party/luajit-2.0/src/lib_math.c | 233 + src/3rd party/luajit-2.0/src/lib_os.c | 287 + src/3rd party/luajit-2.0/src/lib_package.c | 602 ++ src/3rd party/luajit-2.0/src/lib_string.c | 940 ++ src/3rd party/luajit-2.0/src/lib_table.c | 300 + src/3rd party/luajit-2.0/src/lj.supp | 26 + src/3rd party/luajit-2.0/src/lj_alloc.c | 1396 +++ src/3rd party/luajit-2.0/src/lj_alloc.h | 17 + src/3rd party/luajit-2.0/src/lj_api.c | 1200 +++ src/3rd party/luajit-2.0/src/lj_arch.h | 432 + src/3rd party/luajit-2.0/src/lj_asm.c | 1920 ++++ src/3rd party/luajit-2.0/src/lj_asm.h | 17 + src/3rd party/luajit-2.0/src/lj_asm_arm.h | 2361 +++++ src/3rd party/luajit-2.0/src/lj_asm_mips.h | 1977 +++++ src/3rd party/luajit-2.0/src/lj_asm_ppc.h | 2169 +++++ src/3rd party/luajit-2.0/src/lj_asm_x86.h | 2802 ++++++ src/3rd party/luajit-2.0/src/lj_bc.c | 14 + src/3rd party/luajit-2.0/src/lj_bc.h | 261 + src/3rd party/luajit-2.0/src/lj_bcdump.h | 66 + src/3rd party/luajit-2.0/src/lj_bcread.c | 476 + src/3rd party/luajit-2.0/src/lj_bcwrite.c | 396 + src/3rd party/luajit-2.0/src/lj_carith.c | 353 + src/3rd party/luajit-2.0/src/lj_carith.h | 27 + src/3rd party/luajit-2.0/src/lj_ccall.c | 900 ++ src/3rd party/luajit-2.0/src/lj_ccall.h | 171 + src/3rd party/luajit-2.0/src/lj_ccallback.c | 644 ++ src/3rd party/luajit-2.0/src/lj_ccallback.h | 25 + src/3rd party/luajit-2.0/src/lj_cconv.c | 752 ++ src/3rd party/luajit-2.0/src/lj_cconv.h | 70 + src/3rd party/luajit-2.0/src/lj_cdata.c | 285 + src/3rd party/luajit-2.0/src/lj_cdata.h | 75 + src/3rd party/luajit-2.0/src/lj_char.c | 43 + src/3rd party/luajit-2.0/src/lj_char.h | 42 + src/3rd party/luajit-2.0/src/lj_clib.c | 409 + src/3rd party/luajit-2.0/src/lj_clib.h | 29 + src/3rd party/luajit-2.0/src/lj_cparse.c | 1872 ++++ src/3rd party/luajit-2.0/src/lj_cparse.h | 65 + src/3rd party/luajit-2.0/src/lj_crecord.c | 1671 ++++ src/3rd party/luajit-2.0/src/lj_crecord.h | 31 + src/3rd party/luajit-2.0/src/lj_ctype.c | 634 ++ src/3rd party/luajit-2.0/src/lj_ctype.h | 461 + src/3rd party/luajit-2.0/src/lj_debug.c | 605 ++ src/3rd party/luajit-2.0/src/lj_debug.h | 61 + src/3rd party/luajit-2.0/src/lj_def.h | 353 + src/3rd party/luajit-2.0/src/lj_dispatch.c | 494 ++ src/3rd party/luajit-2.0/src/lj_dispatch.h | 131 + src/3rd party/luajit-2.0/src/lj_emit_arm.h | 356 + src/3rd party/luajit-2.0/src/lj_emit_mips.h | 211 + src/3rd party/luajit-2.0/src/lj_emit_ppc.h | 238 + src/3rd party/luajit-2.0/src/lj_emit_x86.h | 466 + src/3rd party/luajit-2.0/src/lj_err.c | 786 ++ src/3rd party/luajit-2.0/src/lj_err.h | 41 + src/3rd party/luajit-2.0/src/lj_errmsg.h | 193 + src/3rd party/luajit-2.0/src/lj_ff.h | 18 + src/3rd party/luajit-2.0/src/lj_ffrecord.c | 888 ++ src/3rd party/luajit-2.0/src/lj_ffrecord.h | 24 + src/3rd party/luajit-2.0/src/lj_frame.h | 183 + src/3rd party/luajit-2.0/src/lj_func.c | 185 + src/3rd party/luajit-2.0/src/lj_func.h | 24 + src/3rd party/luajit-2.0/src/lj_gc.c | 849 ++ src/3rd party/luajit-2.0/src/lj_gc.h | 134 + src/3rd party/luajit-2.0/src/lj_gdbjit.c | 795 ++ src/3rd party/luajit-2.0/src/lj_gdbjit.h | 22 + src/3rd party/luajit-2.0/src/lj_ir.c | 501 ++ src/3rd party/luajit-2.0/src/lj_ir.h | 551 ++ src/3rd party/luajit-2.0/src/lj_ircall.h | 277 + src/3rd party/luajit-2.0/src/lj_iropt.h | 161 + src/3rd party/luajit-2.0/src/lj_jit.h | 417 + src/3rd party/luajit-2.0/src/lj_lex.c | 481 + src/3rd party/luajit-2.0/src/lj_lex.h | 85 + src/3rd party/luajit-2.0/src/lj_lib.c | 258 + src/3rd party/luajit-2.0/src/lj_lib.h | 112 + src/3rd party/luajit-2.0/src/lj_load.c | 168 + src/3rd party/luajit-2.0/src/lj_mcode.c | 373 + src/3rd party/luajit-2.0/src/lj_mcode.h | 30 + src/3rd party/luajit-2.0/src/lj_meta.c | 466 + src/3rd party/luajit-2.0/src/lj_meta.h | 37 + src/3rd party/luajit-2.0/src/lj_obj.c | 35 + src/3rd party/luajit-2.0/src/lj_obj.h | 856 ++ src/3rd party/luajit-2.0/src/lj_opt_dce.c | 78 + src/3rd party/luajit-2.0/src/lj_opt_fold.c | 2299 +++++ src/3rd party/luajit-2.0/src/lj_opt_loop.c | 436 + src/3rd party/luajit-2.0/src/lj_opt_mem.c | 915 ++ src/3rd party/luajit-2.0/src/lj_opt_narrow.c | 648 ++ src/3rd party/luajit-2.0/src/lj_opt_sink.c | 245 + src/3rd party/luajit-2.0/src/lj_opt_split.c | 731 ++ src/3rd party/luajit-2.0/src/lj_parse.c | 2754 ++++++ src/3rd party/luajit-2.0/src/lj_parse.h | 18 + src/3rd party/luajit-2.0/src/lj_record.c | 2250 +++++ src/3rd party/luajit-2.0/src/lj_record.h | 44 + src/3rd party/luajit-2.0/src/lj_snap.c | 866 ++ src/3rd party/luajit-2.0/src/lj_snap.h | 34 + src/3rd party/luajit-2.0/src/lj_state.c | 287 + src/3rd party/luajit-2.0/src/lj_state.h | 35 + src/3rd party/luajit-2.0/src/lj_str.c | 339 + src/3rd party/luajit-2.0/src/lj_str.h | 50 + src/3rd party/luajit-2.0/src/lj_strscan.c | 498 ++ src/3rd party/luajit-2.0/src/lj_strscan.h | 39 + src/3rd party/luajit-2.0/src/lj_tab.c | 631 ++ src/3rd party/luajit-2.0/src/lj_tab.h | 70 + src/3rd party/luajit-2.0/src/lj_target.h | 162 + src/3rd party/luajit-2.0/src/lj_target_arm.h | 274 + src/3rd party/luajit-2.0/src/lj_target_mips.h | 257 + src/3rd party/luajit-2.0/src/lj_target_ppc.h | 280 + src/3rd party/luajit-2.0/src/lj_target_x86.h | 342 + src/3rd party/luajit-2.0/src/lj_trace.c | 816 ++ src/3rd party/luajit-2.0/src/lj_trace.h | 53 + src/3rd party/luajit-2.0/src/lj_traceerr.h | 61 + src/3rd party/luajit-2.0/src/lj_udata.c | 34 + src/3rd party/luajit-2.0/src/lj_udata.h | 14 + src/3rd party/luajit-2.0/src/lj_vm.h | 116 + src/3rd party/luajit-2.0/src/lj_vmevent.c | 57 + src/3rd party/luajit-2.0/src/lj_vmevent.h | 59 + src/3rd party/luajit-2.0/src/lj_vmmath.c | 140 + src/3rd party/luajit-2.0/src/ljamalg.c | 93 + src/3rd party/luajit-2.0/src/lua.h | 393 + src/3rd party/luajit-2.0/src/lua.hpp | 9 + src/3rd party/luajit-2.0/src/luaconf.h | 156 + src/3rd party/luajit-2.0/src/luajit.c | 571 ++ src/3rd party/luajit-2.0/src/luajit.h | 70 + src/3rd party/luajit-2.0/src/lualib.h | 43 + src/3rd party/luajit-2.0/src/msvcbuild.bat | 113 + src/3rd party/luajit-2.0/src/ps4build.bat | 103 + src/3rd party/luajit-2.0/src/psvitabuild.bat | 93 + src/3rd party/luajit-2.0/src/vm_arm.dasc | 4486 ++++++++++ src/3rd party/luajit-2.0/src/vm_mips.dasc | 4241 +++++++++ src/3rd party/luajit-2.0/src/vm_ppc.dasc | 5160 +++++++++++ src/3rd party/luajit-2.0/src/vm_ppcspe.dasc | 3691 ++++++++ src/3rd party/luajit-2.0/src/vm_x86.dasc | 6373 ++++++++++++++ src/3rd party/luajit-2.0/src/xedkbuild.bat | 92 + src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 2 +- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 2 +- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 2 +- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 2 +- src/engine.sln | 1 - src/xrEngine/xrEngine.vcxproj | 11 +- src/xrGame/xrGame.vcxproj | 8 +- src/xrServerEntities/script_storage.cpp | 8 +- 211 files changed, 114362 insertions(+), 826 deletions(-) create mode 100644 src/3rd party/luajit-2.0/.gitignore create mode 100644 src/3rd party/luajit-2.0/COPYRIGHT create mode 100644 src/3rd party/luajit-2.0/Makefile create mode 100644 src/3rd party/luajit-2.0/README create mode 100644 src/3rd party/luajit-2.0/doc/bluequad-print.css create mode 100644 src/3rd party/luajit-2.0/doc/bluequad.css create mode 100644 src/3rd party/luajit-2.0/doc/changes.html create mode 100644 src/3rd party/luajit-2.0/doc/contact.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_c_api.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_ffi.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_ffi_api.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html create mode 100644 src/3rd party/luajit-2.0/doc/ext_jit.html create mode 100644 src/3rd party/luajit-2.0/doc/extensions.html create mode 100644 src/3rd party/luajit-2.0/doc/faq.html create mode 100644 src/3rd party/luajit-2.0/doc/img/contact.png create mode 100644 src/3rd party/luajit-2.0/doc/install.html create mode 100644 src/3rd party/luajit-2.0/doc/luajit.html create mode 100644 src/3rd party/luajit-2.0/doc/running.html create mode 100644 src/3rd party/luajit-2.0/doc/status.html create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_arm.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_arm.lua create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_mips.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_mips.lua create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_ppc.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_proto.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_x64.lua create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_x86.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_x86.lua create mode 100644 src/3rd party/luajit-2.0/dynasm/dynasm.lua create mode 100644 src/3rd party/luajit-2.0/etc/luajit.1 create mode 100644 src/3rd party/luajit-2.0/etc/luajit.pc create mode 100644 src/3rd party/luajit-2.0/src/.gitignore create mode 100644 src/3rd party/luajit-2.0/src/Makefile create mode 100644 src/3rd party/luajit-2.0/src/Makefile.dep create mode 100644 src/3rd party/luajit-2.0/src/host/.gitignore create mode 100644 src/3rd party/luajit-2.0/src/host/README create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm.c create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm.h create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm_asm.c create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm_fold.c create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm_lib.c create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm_peobj.c create mode 100644 src/3rd party/luajit-2.0/src/host/genminilua.lua create mode 100644 src/3rd party/luajit-2.0/src/host/minilua.c create mode 100644 src/3rd party/luajit-2.0/src/jit/.gitignore create mode 100644 src/3rd party/luajit-2.0/src/jit/bc.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/bcsave.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_arm.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_mips.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_ppc.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_x64.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dis_x86.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/dump.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/v.lua create mode 100644 src/3rd party/luajit-2.0/src/lauxlib.h create mode 100644 src/3rd party/luajit-2.0/src/lib_aux.c create mode 100644 src/3rd party/luajit-2.0/src/lib_base.c create mode 100644 src/3rd party/luajit-2.0/src/lib_bit.c create mode 100644 src/3rd party/luajit-2.0/src/lib_debug.c create mode 100644 src/3rd party/luajit-2.0/src/lib_ffi.c create mode 100644 src/3rd party/luajit-2.0/src/lib_init.c create mode 100644 src/3rd party/luajit-2.0/src/lib_io.c create mode 100644 src/3rd party/luajit-2.0/src/lib_jit.c create mode 100644 src/3rd party/luajit-2.0/src/lib_math.c create mode 100644 src/3rd party/luajit-2.0/src/lib_os.c create mode 100644 src/3rd party/luajit-2.0/src/lib_package.c create mode 100644 src/3rd party/luajit-2.0/src/lib_string.c create mode 100644 src/3rd party/luajit-2.0/src/lib_table.c create mode 100644 src/3rd party/luajit-2.0/src/lj.supp create mode 100644 src/3rd party/luajit-2.0/src/lj_alloc.c create mode 100644 src/3rd party/luajit-2.0/src/lj_alloc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_api.c create mode 100644 src/3rd party/luajit-2.0/src/lj_arch.h create mode 100644 src/3rd party/luajit-2.0/src/lj_asm.c create mode 100644 src/3rd party/luajit-2.0/src/lj_asm.h create mode 100644 src/3rd party/luajit-2.0/src/lj_asm_arm.h create mode 100644 src/3rd party/luajit-2.0/src/lj_asm_mips.h create mode 100644 src/3rd party/luajit-2.0/src/lj_asm_ppc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_asm_x86.h create mode 100644 src/3rd party/luajit-2.0/src/lj_bc.c create mode 100644 src/3rd party/luajit-2.0/src/lj_bc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_bcdump.h create mode 100644 src/3rd party/luajit-2.0/src/lj_bcread.c create mode 100644 src/3rd party/luajit-2.0/src/lj_bcwrite.c create mode 100644 src/3rd party/luajit-2.0/src/lj_carith.c create mode 100644 src/3rd party/luajit-2.0/src/lj_carith.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ccall.c create mode 100644 src/3rd party/luajit-2.0/src/lj_ccall.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ccallback.c create mode 100644 src/3rd party/luajit-2.0/src/lj_ccallback.h create mode 100644 src/3rd party/luajit-2.0/src/lj_cconv.c create mode 100644 src/3rd party/luajit-2.0/src/lj_cconv.h create mode 100644 src/3rd party/luajit-2.0/src/lj_cdata.c create mode 100644 src/3rd party/luajit-2.0/src/lj_cdata.h create mode 100644 src/3rd party/luajit-2.0/src/lj_char.c create mode 100644 src/3rd party/luajit-2.0/src/lj_char.h create mode 100644 src/3rd party/luajit-2.0/src/lj_clib.c create mode 100644 src/3rd party/luajit-2.0/src/lj_clib.h create mode 100644 src/3rd party/luajit-2.0/src/lj_cparse.c create mode 100644 src/3rd party/luajit-2.0/src/lj_cparse.h create mode 100644 src/3rd party/luajit-2.0/src/lj_crecord.c create mode 100644 src/3rd party/luajit-2.0/src/lj_crecord.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ctype.c create mode 100644 src/3rd party/luajit-2.0/src/lj_ctype.h create mode 100644 src/3rd party/luajit-2.0/src/lj_debug.c create mode 100644 src/3rd party/luajit-2.0/src/lj_debug.h create mode 100644 src/3rd party/luajit-2.0/src/lj_def.h create mode 100644 src/3rd party/luajit-2.0/src/lj_dispatch.c create mode 100644 src/3rd party/luajit-2.0/src/lj_dispatch.h create mode 100644 src/3rd party/luajit-2.0/src/lj_emit_arm.h create mode 100644 src/3rd party/luajit-2.0/src/lj_emit_mips.h create mode 100644 src/3rd party/luajit-2.0/src/lj_emit_ppc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_emit_x86.h create mode 100644 src/3rd party/luajit-2.0/src/lj_err.c create mode 100644 src/3rd party/luajit-2.0/src/lj_err.h create mode 100644 src/3rd party/luajit-2.0/src/lj_errmsg.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ff.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ffrecord.c create mode 100644 src/3rd party/luajit-2.0/src/lj_ffrecord.h create mode 100644 src/3rd party/luajit-2.0/src/lj_frame.h create mode 100644 src/3rd party/luajit-2.0/src/lj_func.c create mode 100644 src/3rd party/luajit-2.0/src/lj_func.h create mode 100644 src/3rd party/luajit-2.0/src/lj_gc.c create mode 100644 src/3rd party/luajit-2.0/src/lj_gc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_gdbjit.c create mode 100644 src/3rd party/luajit-2.0/src/lj_gdbjit.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ir.c create mode 100644 src/3rd party/luajit-2.0/src/lj_ir.h create mode 100644 src/3rd party/luajit-2.0/src/lj_ircall.h create mode 100644 src/3rd party/luajit-2.0/src/lj_iropt.h create mode 100644 src/3rd party/luajit-2.0/src/lj_jit.h create mode 100644 src/3rd party/luajit-2.0/src/lj_lex.c create mode 100644 src/3rd party/luajit-2.0/src/lj_lex.h create mode 100644 src/3rd party/luajit-2.0/src/lj_lib.c create mode 100644 src/3rd party/luajit-2.0/src/lj_lib.h create mode 100644 src/3rd party/luajit-2.0/src/lj_load.c create mode 100644 src/3rd party/luajit-2.0/src/lj_mcode.c create mode 100644 src/3rd party/luajit-2.0/src/lj_mcode.h create mode 100644 src/3rd party/luajit-2.0/src/lj_meta.c create mode 100644 src/3rd party/luajit-2.0/src/lj_meta.h create mode 100644 src/3rd party/luajit-2.0/src/lj_obj.c create mode 100644 src/3rd party/luajit-2.0/src/lj_obj.h create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_dce.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_fold.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_loop.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_mem.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_narrow.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_sink.c create mode 100644 src/3rd party/luajit-2.0/src/lj_opt_split.c create mode 100644 src/3rd party/luajit-2.0/src/lj_parse.c create mode 100644 src/3rd party/luajit-2.0/src/lj_parse.h create mode 100644 src/3rd party/luajit-2.0/src/lj_record.c create mode 100644 src/3rd party/luajit-2.0/src/lj_record.h create mode 100644 src/3rd party/luajit-2.0/src/lj_snap.c create mode 100644 src/3rd party/luajit-2.0/src/lj_snap.h create mode 100644 src/3rd party/luajit-2.0/src/lj_state.c create mode 100644 src/3rd party/luajit-2.0/src/lj_state.h create mode 100644 src/3rd party/luajit-2.0/src/lj_str.c create mode 100644 src/3rd party/luajit-2.0/src/lj_str.h create mode 100644 src/3rd party/luajit-2.0/src/lj_strscan.c create mode 100644 src/3rd party/luajit-2.0/src/lj_strscan.h create mode 100644 src/3rd party/luajit-2.0/src/lj_tab.c create mode 100644 src/3rd party/luajit-2.0/src/lj_tab.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target_arm.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target_mips.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target_ppc.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target_x86.h create mode 100644 src/3rd party/luajit-2.0/src/lj_trace.c create mode 100644 src/3rd party/luajit-2.0/src/lj_trace.h create mode 100644 src/3rd party/luajit-2.0/src/lj_traceerr.h create mode 100644 src/3rd party/luajit-2.0/src/lj_udata.c create mode 100644 src/3rd party/luajit-2.0/src/lj_udata.h create mode 100644 src/3rd party/luajit-2.0/src/lj_vm.h create mode 100644 src/3rd party/luajit-2.0/src/lj_vmevent.c create mode 100644 src/3rd party/luajit-2.0/src/lj_vmevent.h create mode 100644 src/3rd party/luajit-2.0/src/lj_vmmath.c create mode 100644 src/3rd party/luajit-2.0/src/ljamalg.c create mode 100644 src/3rd party/luajit-2.0/src/lua.h create mode 100644 src/3rd party/luajit-2.0/src/lua.hpp create mode 100644 src/3rd party/luajit-2.0/src/luaconf.h create mode 100644 src/3rd party/luajit-2.0/src/luajit.c create mode 100644 src/3rd party/luajit-2.0/src/luajit.h create mode 100644 src/3rd party/luajit-2.0/src/lualib.h create mode 100644 src/3rd party/luajit-2.0/src/msvcbuild.bat create mode 100644 src/3rd party/luajit-2.0/src/ps4build.bat create mode 100644 src/3rd party/luajit-2.0/src/psvitabuild.bat create mode 100644 src/3rd party/luajit-2.0/src/vm_arm.dasc create mode 100644 src/3rd party/luajit-2.0/src/vm_mips.dasc create mode 100644 src/3rd party/luajit-2.0/src/vm_ppc.dasc create mode 100644 src/3rd party/luajit-2.0/src/vm_ppcspe.dasc create mode 100644 src/3rd party/luajit-2.0/src/vm_x86.dasc create mode 100644 src/3rd party/luajit-2.0/src/xedkbuild.bat diff --git a/sdk/include/lua/lauxlib.h b/sdk/include/lua/lauxlib.h index 84e156c1969..fed1491b894 100644 --- a/sdk/include/lua/lauxlib.h +++ b/sdk/include/lua/lauxlib.h @@ -12,34 +12,21 @@ #include #include -#include +#include "lua.h" -#if defined(LUA_COMPAT_GETN) -LUALIB_API int (luaL_getn) (lua_State *L, int t); -LUALIB_API void (luaL_setn) (lua_State *L, int t, int n); -#else #define luaL_getn(L,i) ((int)lua_objlen(L, i)) #define luaL_setn(L,i,j) ((void)0) /* no op! */ -#endif - -#if defined(LUA_COMPAT_OPENLIB) -#define luaI_openlib luaL_openlib -#endif - /* extra error code for `luaL_load' */ #define LUA_ERRFILE (LUA_ERRERR+1) - typedef struct luaL_Reg { const char *name; lua_CFunction func; } luaL_Reg; - - -LUALIB_API void (luaI_openlib) (lua_State *L, const char *libname, +LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname, const luaL_Reg *l, int nup); LUALIB_API void (luaL_register) (lua_State *L, const char *libname, const luaL_Reg *l); @@ -88,7 +75,15 @@ LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx, const char *fname, int szhint); - +/* From Lua 5.2. */ +LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname); +LUALIB_API int luaL_execresult(lua_State *L, int stat); +LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename, + const char *mode); +LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, + const char *name, const char *mode); +LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, + int level); /* @@ -170,5 +165,3 @@ LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); #define luaL_reg luaL_Reg #endif - - diff --git a/sdk/include/lua/library_linkage.h b/sdk/include/lua/library_linkage.h index 6cd8f180420..b81aa165a14 100644 --- a/sdk/include/lua/library_linkage.h +++ b/sdk/include/lua/library_linkage.h @@ -10,7 +10,8 @@ #define LUA_LIBRARY_LINKAGE_H_INCLUDED //#pragma comment(lib, "lua.JIT.1.1.4.lib" ) // AVO: upgrade to 1.1.8 -#pragma comment(lib, "LuaJIT-1.1.8.lib" ) +#pragma comment(lib, "lua51.lib" ) +//#pragma comment(lib, "LuaJIT-1.1.8.lib" ) #endif // #ifndef LUA_LIBRARY_LINKAGE_H_INCLUDED \ No newline at end of file diff --git a/sdk/include/lua/lua.h b/sdk/include/lua/lua.h index da822f0ad92..c83fd3bbe7f 100644 --- a/sdk/include/lua/lua.h +++ b/sdk/include/lua/lua.h @@ -1,5 +1,5 @@ /* -** $Id: lua.h,v 1.218.1.7 2012/01/13 20:36:20 roberto Exp $ +** $Id: lua.h,v 1.218.1.5 2008/08/06 13:30:12 roberto Exp $ ** Lua - An Extensible Extension Language ** Lua.org, PUC-Rio, Brazil (http://www.lua.org) ** See Copyright Notice at the end of this file @@ -17,10 +17,10 @@ #define LUA_VERSION "Lua 5.1" -#define LUA_RELEASE "Lua 5.1.5" +#define LUA_RELEASE "Lua 5.1.4" #define LUA_VERSION_NUM 501 -#define LUA_COPYRIGHT "Copyright (C) 1994-2012 Lua.org, PUC-Rio" -#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" +#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" +#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" /* mark for precompiled code (`Lua') */ @@ -245,7 +245,7 @@ LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); -/* +/* ** =============================================================== ** some useful macros ** =============================================================== @@ -294,6 +294,9 @@ LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); #define lua_Chunkwriter lua_Writer +/* hack */ +LUA_API void lua_setlevel (lua_State *from, lua_State *to); + /* ** {====================================================================== @@ -333,12 +336,17 @@ LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n); LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n); - LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count); LUA_API lua_Hook lua_gethook (lua_State *L); LUA_API int lua_gethookmask (lua_State *L); LUA_API int lua_gethookcount (lua_State *L); +/* From Lua 5.2. */ +LUA_API void *lua_upvalueid (lua_State *L, int idx, int n); +LUA_API void lua_upvaluejoin (lua_State *L, int idx1, int n1, int idx2, int n2); +LUA_API int lua_loadx (lua_State *L, lua_Reader reader, void *dt, + const char *chunkname, const char *mode); + struct lua_Debug { int event; @@ -359,7 +367,7 @@ struct lua_Debug { /****************************************************************************** -* Copyright (C) 1994-2012 Lua.org, PUC-Rio. All rights reserved. +* Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the diff --git a/sdk/include/lua/luaconf.h b/sdk/include/lua/luaconf.h index 09bc2f20c10..7f57bae1a07 100644 --- a/sdk/include/lua/luaconf.h +++ b/sdk/include/lua/luaconf.h @@ -1,788 +1,156 @@ /* -** $Id: luaconf.h,v 1.82.1.7 2008/02/11 16:25:08 roberto Exp $ -** Configuration file for Lua -** See Copyright Notice in lua.h +** Configuration header. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h */ +#ifndef luaconf_h +#define luaconf_h -#ifndef lconfig_h -#define lconfig_h - +#ifndef WINVER +#define WINVER 0x0501 +#endif #include #include - +/* Default path for loading Lua and C modules with require(). */ +#if defined(_WIN32) /* -** ================================================================== -** Search for "@@" to find all configurable definitions. -** =================================================================== +** In Windows, any exclamation mark ('!') in the path is replaced by the +** path of the directory of the executable file of the current process. */ - - +#define LUA_LDIR "!\\lua\\" +#define LUA_CDIR "!\\" +#define LUA_PATH_DEFAULT \ + ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" +#define LUA_CPATH_DEFAULT \ + ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" +#else /* -@@ LUA_ANSI controls the use of non-ansi features. -** CHANGE it (define it) if you want Lua to avoid the use of any -** non-ansi feature or library. +** Note to distribution maintainers: do NOT patch the following lines! +** Please read ../doc/install.html#distro and pass PREFIX=/usr instead. */ -#if defined(__STRICT_ANSI__) -#define LUA_ANSI +#ifndef LUA_MULTILIB +#define LUA_MULTILIB "lib" #endif - - -#if !defined(LUA_ANSI) && defined(_WIN32) -#define LUA_WIN +#ifndef LUA_LMULTILIB +#define LUA_LMULTILIB "lib" #endif +#define LUA_LROOT "/usr/local" +#define LUA_LUADIR "/lua/5.1/" +#define LUA_LJDIR "/luajit-2.0.3/" -#if defined(LUA_USE_LINUX) -#define LUA_USE_POSIX -#define LUA_USE_DLOPEN /* needs an extra library: -ldl */ -/* #define LUA_USE_READLINE */ /* needs some extra libraries */ -#endif - -#if defined(LUA_USE_MACOSX) -#define LUA_USE_POSIX -#define LUA_DL_DYLD /* does not need extra library */ +#ifdef LUA_ROOT +#define LUA_JROOT LUA_ROOT +#define LUA_RLDIR LUA_ROOT "/share" LUA_LUADIR +#define LUA_RCDIR LUA_ROOT "/" LUA_MULTILIB LUA_LUADIR +#define LUA_RLPATH ";" LUA_RLDIR "?.lua;" LUA_RLDIR "?/init.lua" +#define LUA_RCPATH ";" LUA_RCDIR "?.so" +#else +#define LUA_JROOT LUA_LROOT +#define LUA_RLPATH +#define LUA_RCPATH #endif +#define LUA_JPATH ";" LUA_JROOT "/share" LUA_LJDIR "?.lua" +#define LUA_LLDIR LUA_LROOT "/share" LUA_LUADIR +#define LUA_LCDIR LUA_LROOT "/" LUA_LMULTILIB LUA_LUADIR +#define LUA_LLPATH ";" LUA_LLDIR "?.lua;" LUA_LLDIR "?/init.lua" +#define LUA_LCPATH1 ";" LUA_LCDIR "?.so" +#define LUA_LCPATH2 ";" LUA_LCDIR "loadall.so" - -/* -@@ LUA_USE_POSIX includes all functionallity listed as X/Open System -@* Interfaces Extension (XSI). -** CHANGE it (define it) if your system is XSI compatible. -*/ -#if defined(LUA_USE_POSIX) -#define LUA_USE_MKSTEMP -#define LUA_USE_ISATTY -#define LUA_USE_POPEN -#define LUA_USE_ULONGJMP +#define LUA_PATH_DEFAULT "./?.lua" LUA_JPATH LUA_LLPATH LUA_RLPATH +#define LUA_CPATH_DEFAULT "./?.so" LUA_LCPATH1 LUA_RCPATH LUA_LCPATH2 #endif - -/* -@@ LUA_PATH and LUA_CPATH are the names of the environment variables that -@* Lua check to set its paths. -@@ LUA_INIT is the name of the environment variable that Lua -@* checks for initialization code. -** CHANGE them if you want different names. -*/ -#define LUA_PATH "LUA_PATH" -#define LUA_CPATH "LUA_CPATH" +/* Environment variable names for path overrides and initialization code. */ +#define LUA_PATH "LUA_PATH" +#define LUA_CPATH "LUA_CPATH" #define LUA_INIT "LUA_INIT" - -/* -@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for -@* Lua libraries. -@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for -@* C libraries. -** CHANGE them if your machine has a non-conventional directory -** hierarchy or if you want to install your libraries in -** non-conventional directories. -*/ -#if defined(_WIN32) -/* -** In Windows, any exclamation mark ('!') in the path is replaced by the -** path of the directory of the executable file of the current process. -*/ -#define LUA_LDIR "!\\lua\\" -#define LUA_CDIR "!\\" -#define LUA_PATH_DEFAULT \ - ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ - LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua" -#define LUA_CPATH_DEFAULT \ - ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" - -#else -#define LUA_ROOT "/usr/local/" -#define LUA_LDIR LUA_ROOT "share/lua/5.1/" -#define LUA_CDIR LUA_ROOT "lib/lua/5.1/" -#define LUA_PATH_DEFAULT \ - "./?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ - LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua" -#define LUA_CPATH_DEFAULT \ - "./?.so;" LUA_CDIR"?.so;" LUA_CDIR"loadall.so" -#endif - - -/* -@@ LUA_DIRSEP is the directory separator (for submodules). -** CHANGE it if your machine does not use "/" as the directory separator -** and is not Windows. (On Windows Lua automatically uses "\".) -*/ +/* Special file system characters. */ #if defined(_WIN32) #define LUA_DIRSEP "\\" #else #define LUA_DIRSEP "/" #endif - - -/* -@@ LUA_PATHSEP is the character that separates templates in a path. -@@ LUA_PATH_MARK is the string that marks the substitution points in a -@* template. -@@ LUA_EXECDIR in a Windows path is replaced by the executable's -@* directory. -@@ LUA_IGMARK is a mark to ignore all before it when bulding the -@* luaopen_ function name. -** CHANGE them if for some reason your system cannot use those -** characters. (E.g., if one of those characters is a common character -** in file/directory names.) Probably you do not need to change them. -*/ #define LUA_PATHSEP ";" #define LUA_PATH_MARK "?" #define LUA_EXECDIR "!" #define LUA_IGMARK "-" +#define LUA_PATH_CONFIG \ + LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" \ + LUA_EXECDIR "\n" LUA_IGMARK - -/* -@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger. -** CHANGE that if ptrdiff_t is not adequate on your machine. (On most -** machines, ptrdiff_t gives a good choice between int or long.) -*/ -#define LUA_INTEGER ptrdiff_t - - -/* -@@ LUA_API is a mark for all core API functions. -@@ LUALIB_API is a mark for all standard library functions. -** CHANGE them if you need to define those functions in some special way. -** For instance, if you want to create one Windows DLL with the core and -** the libraries, you may want to use the following definition (define -** LUA_BUILD_AS_DLL to get it). -*/ -#if defined(LUA_BUILD_AS_DLL) - -#if defined(LUA_CORE) || defined(LUA_LIB) -#define LUA_API __declspec(dllexport) -#else -#define LUA_API __declspec(dllimport) -#endif - -#else - -#define LUA_API extern - -#endif - -/* more often than not the libs go together with the core */ -#define LUALIB_API LUA_API - - -/* -@@ LUAI_FUNC is a mark for all extern functions that are not to be -@* exported to outside modules. -@@ LUAI_DATA is a mark for all extern (const) variables that are not to -@* be exported to outside modules. -** CHANGE them if you need to mark them in some special way. Elf/gcc -** (versions 3.2 and later) mark them as "hidden" to optimize access -** when Lua is compiled as a shared library. -*/ -#if defined(luaall_c) -#define LUAI_FUNC static -#define LUAI_DATA /* empty */ - -#elif defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ - defined(__ELF__) -#define LUAI_FUNC __attribute__((visibility("hidden"))) extern -#define LUAI_DATA LUAI_FUNC - -#else -#define LUAI_FUNC extern -#define LUAI_DATA extern -#endif - - - -/* -@@ LUA_QL describes how error messages quote program elements. -** CHANGE it if you want a different appearance. -*/ +/* Quoting in error messages. */ #define LUA_QL(x) "'" x "'" #define LUA_QS LUA_QL("%s") +/* Various tunables. */ +#define LUAI_MAXSTACK 65500 /* Max. # of stack slots for a thread (<64K). */ +#define LUAI_MAXCSTACK 8000 /* Max. # of stack slots for a C func (<10K). */ +#define LUAI_GCPAUSE 200 /* Pause GC until memory is at 200%. */ +#define LUAI_GCMUL 200 /* Run GC at 200% of allocation speed. */ +#define LUA_MAXCAPTURES 32 /* Max. pattern captures. */ -/* -@@ LUA_IDSIZE gives the maximum size for the description of the source -@* of a function in debug information. -** CHANGE it if you want a different size. -*/ -#define LUA_IDSIZE 60 - - -/* -** {================================================================== -** Stand-alone configuration -** =================================================================== -*/ - -#if defined(lua_c) || defined(luaall_c) - -/* -@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that -@* is, whether we're running lua interactively). -** CHANGE it if you have a better definition for non-POSIX/non-Windows -** systems. -*/ -#if defined(LUA_USE_ISATTY) -#include -#define lua_stdin_is_tty() isatty(0) -#elif defined(LUA_WIN) -#include -#include -#define lua_stdin_is_tty() _isatty(_fileno(stdin)) -#else -#define lua_stdin_is_tty() 1 /* assume stdin is a tty */ -#endif - - -/* -@@ LUA_PROMPT is the default prompt used by stand-alone Lua. -@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua. -** CHANGE them if you want different prompts. (You can also change the -** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.) -*/ -#define LUA_PROMPT "> " -#define LUA_PROMPT2 ">> " - - -/* -@@ LUA_PROGNAME is the default name for the stand-alone Lua program. -** CHANGE it if your stand-alone interpreter has a different name and -** your system is not able to detect that name automatically. -*/ -#define LUA_PROGNAME "luajit" - - -/* -@@ LUA_MAXINPUT is the maximum length for an input line in the -@* stand-alone interpreter. -** CHANGE it if you need longer lines. -*/ -#define LUA_MAXINPUT 512 - - -/* -@@ lua_readline defines how to show a prompt and then read a line from -@* the standard input. -@@ lua_saveline defines how to "save" a read line in a "history". -@@ lua_freeline defines how to free a line read by lua_readline. -** CHANGE them if you want to improve this functionality (e.g., by using -** GNU readline and history facilities). -*/ -#if defined(LUA_USE_READLINE) -#include -#include -#include -#define lua_readline(L,b,p) ((void)L, ((b)=readline(p)) != NULL) -#define lua_saveline(L,idx) \ - if (lua_strlen(L,idx) > 0) /* non-empty line? */ \ - add_history(lua_tostring(L, idx)); /* add it to history */ -#define lua_freeline(L,b) ((void)L, free(b)) -#else -#define lua_readline(L,b,p) \ - ((void)L, fputs(p, stdout), fflush(stdout), /* show prompt */ \ - fgets(b, LUA_MAXINPUT, stdin) != NULL) /* get line */ -#define lua_saveline(L,idx) { (void)L; (void)idx; } -#define lua_freeline(L,b) { (void)L; (void)b; } -#endif - -#endif - -/* }================================================================== */ - - -/* -@@ LUAI_GCPAUSE defines the default pause between garbage-collector cycles -@* as a percentage. -** CHANGE it if you want the GC to run faster or slower (higher values -** mean larger pauses which mean slower collection.) You can also change -** this value dynamically. -*/ -#define LUAI_GCPAUSE 200 /* 200% (wait memory to double before next GC) */ - - -/* -@@ LUAI_GCMUL defines the default speed of garbage collection relative to -@* memory allocation as a percentage. -** CHANGE it if you want to change the granularity of the garbage -** collection. (Higher values mean coarser collections. 0 represents -** infinity, where each step performs a full collection.) You can also -** change this value dynamically. -*/ -#define LUAI_GCMUL 200 /* GC runs 'twice the speed' of memory allocation */ - - - -/* -@@ LUA_COMPAT_GETN controls compatibility with old getn behavior. -** CHANGE it (define it) if you want exact compatibility with the -** behavior of setn/getn in Lua 5.0. -** -** Note: this is not supported by LuaJIT. Leave it undefined. -*/ -#undef LUA_COMPAT_GETN - -/* -@@ LUA_COMPAT_LOADLIB controls compatibility about global loadlib. -** CHANGE it to undefined as soon as you do not need a global 'loadlib' -** function (the function is still available as 'package.loadlib'). -*/ -#undef LUA_COMPAT_LOADLIB - -/* -@@ LUA_COMPAT_VARARG controls compatibility with old vararg feature. -** CHANGE it to undefined as soon as your programs use only '...' to -** access vararg parameters (instead of the old 'arg' table). -** -** Note: this has a slightly negative performance impact with LuaJIT -** for all vararg functions. Leave it off if possible and upgrade your -** code (replace unpack(arg) with ... and/or add local arg = {...}). -*/ -#undef LUA_COMPAT_VARARG - -/* -@@ LUA_COMPAT_MOD controls compatibility with old math.mod function. -** CHANGE it to undefined as soon as your programs use 'math.fmod' or -** the new '%' operator instead of 'math.mod'. -*/ -#define LUA_COMPAT_MOD - -/* -@@ LUA_COMPAT_LSTR controls compatibility with old long string nesting -@* facility. -** CHANGE it to 2 if you want the old behaviour, or undefine it to turn -** off the advisory error when nesting [[...]]. -*/ -#define LUA_COMPAT_LSTR 1 - -/* -@@ LUA_COMPAT_GFIND controls compatibility with old 'string.gfind' name. -** CHANGE it to undefined as soon as you rename 'string.gfind' to -** 'string.gmatch'. -*/ -#define LUA_COMPAT_GFIND - -/* -@@ LUA_COMPAT_OPENLIB controls compatibility with old 'luaL_openlib' -@* behavior. -** CHANGE it to undefined as soon as you replace to 'luaL_register' -** your uses of 'luaL_openlib' -*/ -#define LUA_COMPAT_OPENLIB - - - -/* -@@ luai_apicheck is the assert macro used by the Lua-C API. -** CHANGE luai_apicheck if you want Lua to perform some checks in the -** parameters it gets from API calls. This may slow down the interpreter -** a bit, but may be quite useful when debugging C code that interfaces -** with Lua. A useful redefinition is to use assert.h. -*/ -#if defined(LUA_USE_APICHECK) -#include -#define luai_apicheck(L,o) { (void)L; assert(o); } -#else -#define luai_apicheck(L,o) { (void)L; } -#endif - - -/* -@@ LUAI_BITSINT defines the number of bits in an int. -** CHANGE here if Lua cannot automatically detect the number of bits of -** your machine. Probably you do not need to change this. -*/ -/* avoid overflows in comparison */ -#if INT_MAX-20 < 32760 -#define LUAI_BITSINT 16 -#elif INT_MAX > 2147483640L -/* int has at least 32 bits */ -#define LUAI_BITSINT 32 -#else -#error "you must define LUA_BITSINT with number of bits in an integer" -#endif - +/* Compatibility with older library function names. */ +#define LUA_COMPAT_MOD /* OLD: math.mod, NEW: math.fmod */ +#define LUA_COMPAT_GFIND /* OLD: string.gfind, NEW: string.gmatch */ -/* -@@ LUAI_UINT32 is an unsigned integer with at least 32 bits. -@@ LUAI_INT32 is an signed integer with at least 32 bits. -@@ LUAI_UMEM is an unsigned integer big enough to count the total -@* memory used by Lua. -@@ LUAI_MEM is a signed integer big enough to count the total memory -@* used by Lua. -** CHANGE here if for some weird reason the default definitions are not -** good enough for your machine. (The definitions in the 'else' -** part always works, but may waste space on machines with 64-bit -** longs.) Probably you do not need to change this. -*/ -#if LUAI_BITSINT >= 32 -#define LUAI_UINT32 unsigned int -#define LUAI_INT32 int -#define LUAI_MAXINT32 INT_MAX -#define LUAI_UMEM size_t -#define LUAI_MEM ptrdiff_t -#else -/* 16-bit ints */ -#define LUAI_UINT32 unsigned long -#define LUAI_INT32 long -#define LUAI_MAXINT32 LONG_MAX -#define LUAI_UMEM unsigned long -#define LUAI_MEM long +/* Configuration for the frontend (the luajit executable). */ +#if defined(luajit_c) +#define LUA_PROGNAME "luajit" /* Fallback frontend name. */ +#define LUA_PROMPT "> " /* Interactive prompt. */ +#define LUA_PROMPT2 ">> " /* Continuation prompt. */ +#define LUA_MAXINPUT 512 /* Max. input line length. */ #endif - -/* -@@ LUAI_MAXCALLS limits the number of nested calls. -** CHANGE it if you need really deep recursive calls. This limit is -** arbitrary; its only purpose is to stop infinite recursion before -** exhausting memory. -*/ -#define LUAI_MAXCALLS 20000 - - -/* -@@ LUAI_MAXCSTACK limits the number of Lua stack slots that a C function -@* can use. -** CHANGE it if you need lots of (Lua) stack space for your C -** functions. This limit is arbitrary; its only purpose is to stop C -** functions to consume unlimited stack space. (must be smaller than -** -LUA_REGISTRYINDEX) -*/ -//#define LUAI_MAXCSTACK 8000 -#define LUAI_MCS_AUX ((int)(INT_MAX / (4*sizeof(LUA_NUMBER)))) -#define LUAI_MAXCSTACK (LUAI_MCS_AUX > SHRT_MAX ? SHRT_MAX : LUAI_MCS_AUX) - - -/* -** {================================================================== -** CHANGE (to smaller values) the following definitions if your system -** has a small C stack. (Or you may want to change them to larger -** values if your system has a large C stack and these limits are -** too rigid for you.) Some of these constants control the size of -** stack-allocated arrays used by the compiler or the interpreter, while -** others limit the maximum number of recursive calls that the compiler -** or the interpreter can perform. Values too large may cause a C stack -** overflow for some forms of deep constructs. -** =================================================================== -*/ - - -/* -@@ LUAI_MAXCCALLS is the maximum depth for nested C calls (short) and -@* syntactical nested non-terminals in a program. -*/ -#define LUAI_MAXCCALLS 200 - - -/* -@@ LUAI_MAXVARS is the maximum number of local variables per function -@* (must be smaller than 250). -*/ -#define LUAI_MAXVARS 200 - - -/* -@@ LUAI_MAXUPVALUES is the maximum number of upvalues per function -@* (must be smaller than 250). -*/ -#define LUAI_MAXUPVALUES 60 - - +/* Note: changing the following defines breaks the Lua 5.1 ABI. */ +#define LUA_INTEGER ptrdiff_t +#define LUA_IDSIZE 60 /* Size of lua_Debug.short_src. */ /* -@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. +** Size of lauxlib and io.* on-stack buffers. Weird workaround to avoid using +** unreasonable amounts of stack space, but still retain ABI compatibility. +** Blame Lua for depending on BUFSIZ in the ABI, blame **** for wrecking it. */ -#define LUAL_BUFFERSIZE 4096 //BUFSIZ - -/* }================================================================== */ +#define LUAL_BUFFERSIZE (BUFSIZ > 16384 ? 8192 : BUFSIZ) - - - -/* -** {================================================================== -@@ LUA_NUMBER is the type of numbers in Lua. -** CHANGE the following definitions only if you want to build Lua -** with a number type different from double. You may also need to -** change lua_number2int & lua_number2integer. -** =================================================================== +/* The following defines are here only for compatibility with luaconf.h +** from the standard Lua distribution. They must not be changed for LuaJIT. */ - #define LUA_NUMBER_DOUBLE -#define LUA_NUMBER double - -/* -@@ LUAI_UACNUMBER is the result of an 'usual argument conversion' -@* over a number. -*/ -#define LUAI_UACNUMBER double - - -/* -@@ LUA_NUMBER_SCAN is the format for reading numbers. -@@ LUA_NUMBER_FMT is the format for writing numbers. -@@ lua_number2str converts a number to a string. -@@ LUAI_MAXNUMBER2STR is maximum size of previous conversion. -@@ lua_str2number converts a string to a number. -*/ +#define LUA_NUMBER double +#define LUAI_UACNUMBER double #define LUA_NUMBER_SCAN "%lf" #define LUA_NUMBER_FMT "%.14g" -#define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) -#define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */ -#define lua_str2number(s,p) strtod((s), (p)) - - -/* -@@ The luai_num* macros define the primitive operations over numbers. -*/ -#if defined(LUA_CORE) -#include -#define luai_numadd(a,b) ((a)+(b)) -#define luai_numsub(a,b) ((a)-(b)) -#define luai_nummul(a,b) ((a)*(b)) -#define luai_numdiv(a,b) ((a)/(b)) -#define luai_nummod(a,b) ((a) - floor((a)/(b))*(b)) -#define luai_numpow(a,b) (pow(a,b)) -#define luai_numunm(a) (-(a)) -#define luai_numeq(a,b) ((a)==(b)) -#define luai_numlt(a,b) ((a)<(b)) -#define luai_numle(a,b) ((a)<=(b)) -#define luai_numisnan(a) (!luai_numeq((a), (a))) -#endif - - -/* -@@ lua_number2int is a macro to convert lua_Number to int. -@@ lua_number2integer is a macro to convert lua_Number to lua_Integer. -** CHANGE them if you know a faster way to convert a lua_Number to -** int (with any rounding method and without throwing errors) in your -** system. In Pentium machines, a naive typecast from double to int -** in C is extremely slow, so any alternative is worth trying. -*/ - -/* On a Pentium, resort to a trick */ -#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) && !defined(__SSE2__) && \ - (defined(__i386) || defined (_M_IX86) || defined(__i386__)) - -/* On a Microsoft compiler, use assembler */ -#if defined(_MSC_VER) - -#define lua_number2int(i,d) __asm fld d __asm fistp i -#define lua_number2integer(i,n) lua_number2int(i, n) - -/* the next trick should work on any Pentium, but sometimes clashes - with a DirectX idiosyncrasy */ -#else - -union luai_Cast { double l_d; long l_l; }; -#define lua_number2int(i,d) \ - { volatile union luai_Cast u; u.l_d = (d) + 6755399441055744.0; (i) = u.l_l; } -#define lua_number2integer(i,n) lua_number2int(i, n) - -#endif - - -/* this option always works, but may be slow */ -#else -#define lua_number2int(i,d) ((i)=(int)(d)) -#define lua_number2integer(i,d) ((i)=(lua_Integer)(d)) - -#endif - - -/* -@@ LUA_TVALUE_ALIGN specifies extra alignment constraints for the -@@ tagged value structure to get better lua_Number alignment. -** CHANGE it to an empty define if you want to save some space -** at the cost of execution time. Note that this is only needed -** for the x86 ABI on most POSIX systems, but not on Windows and -** not for most other CPUs. If you change it then you need to follow -** the instructions in ljit_x86.dash, too (look for TVALUE_SIZE). -*/ - -#if defined(LUA_NUMBER_DOUBLE) && defined(__GNUC__) && \ - (defined(__i386) || defined(__i386__)) && !defined(_WIN32) -#define LUA_TVALUE_ALIGN __attribute__ ((aligned(8))) -#else -#define LUA_TVALUE_ALIGN -#endif - -/* }================================================================== */ - - -/* -@@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment. -** CHANGE it if your system requires alignments larger than double. (For -** instance, if your system supports long doubles and they must be -** aligned in 16-byte boundaries, then you should add long double in the -** union.) Probably you do not need to change this. -*/ -#define LUAI_USER_ALIGNMENT_T union { double u; void *s; long l; } - - -/* -@@ LUAI_THROW/LUAI_TRY define how Lua does exception handling. -** CHANGE them if you prefer to use longjmp/setjmp even with C++ -** or if want/don't to use _longjmp/_setjmp instead of regular -** longjmp/setjmp. By default, Lua handles errors with exceptions when -** compiling as C++ code, with _longjmp/_setjmp when asked to use them, -** and with longjmp/setjmp otherwise. -*/ -#if defined(__cplusplus) -/* C++ exceptions */ -#define LUAI_THROW(L,c) throw(c) -#define LUAI_TRY(L,c,a) try { a } catch(...) \ - { if ((c)->status == 0) (c)->status = -1; } -#define luai_jmpbuf int /* dummy variable */ - -#elif defined(LUA_USE_ULONGJMP) -/* in Unix, try _longjmp/_setjmp (more efficient) */ -#define LUAI_THROW(L,c) _longjmp((c)->b, 1) -#define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } -#define luai_jmpbuf jmp_buf +#define lua_number2str(s, n) sprintf((s), LUA_NUMBER_FMT, (n)) +#define LUAI_MAXNUMBER2STR 32 +#define LUA_INTFRMLEN "l" +#define LUA_INTFRM_T long +/* Linkage of public API functions. */ +#if defined(LUA_BUILD_AS_DLL) +#if defined(LUA_CORE) || defined(LUA_LIB) +#define LUA_API __declspec(dllexport) #else -/* default handling with long jumps */ -#define LUAI_THROW(L,c) longjmp((c)->b, 1) -#define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } -#define luai_jmpbuf jmp_buf - +#define LUA_API __declspec(dllimport) #endif - - -/* -@@ LUA_MAXCAPTURES is the maximum number of captures that a pattern -@* can do during pattern-matching. -** CHANGE it if you need more captures. This limit is arbitrary. -*/ -#define LUA_MAXCAPTURES 32 - - -/* -@@ lua_tmpnam is the function that the OS library uses to create a -@* temporary name. -@@ LUA_TMPNAMBUFSIZE is the maximum size of a name created by lua_tmpnam. -** CHANGE them if you have an alternative to tmpnam (which is considered -** insecure) or if you want the original tmpnam anyway. By default, Lua -** uses tmpnam except when POSIX is available, where it uses mkstemp. -*/ -#if defined(loslib_c) || defined(luaall_c) - -#if defined(LUA_USE_MKSTEMP) -#include -#define LUA_TMPNAMBUFSIZE 32 -#define lua_tmpnam(b,e) { \ - strcpy(b, "/tmp/lua_XXXXXX"); \ - e = mkstemp(b); \ - if (e != -1) close(e); \ - e = (e == -1); } - #else -#define LUA_TMPNAMBUFSIZE L_tmpnam -#define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } -#endif - +#define LUA_API extern #endif +#define LUALIB_API LUA_API -/* -@@ lua_popen spawns a new process connected to the current one through -@* the file streams. -** CHANGE it if you have a way to implement it in your system. -*/ -#if defined(LUA_USE_POPEN) - -#define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) -#define lua_pclose(L,file) ((void)L, (pclose(file) != -1)) - -#elif defined(LUA_WIN) - -#define lua_popen(L,c,m) ((void)L, _popen(c,m)) -#define lua_pclose(L,file) ((void)L, (_pclose(file) != -1)) - -#else - -#define lua_popen(L,c,m) ((void)((void)c, m), \ - luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) -#define lua_pclose(L,file) ((void)((void)L, file), 0) - -#endif - -/* -@@ LUA_DL_* define which dynamic-library system Lua should use. -** CHANGE here if Lua has problems choosing the appropriate -** dynamic-library system for your platform (either Windows' DLL, Mac's -** dyld, or Unix's dlopen). If your system is some kind of Unix, there -** is a good chance that it has dlopen, so LUA_DL_DLOPEN will work for -** it. To use dlopen you also need to adapt the src/Makefile (probably -** adding -ldl to the linker options), so Lua does not select it -** automatically. (When you change the makefile to add -ldl, you must -** also add -DLUA_USE_DLOPEN.) -** If you do not want any kind of dynamic library, undefine all these -** options. -** By default, _WIN32 gets LUA_DL_DLL and MAC OS X gets LUA_DL_DYLD. -*/ -#if defined(LUA_USE_DLOPEN) -#define LUA_DL_DLOPEN +/* Support for internal assertions. */ +#if defined(LUA_USE_ASSERT) || defined(LUA_USE_APICHECK) +#include #endif - -#if defined(LUA_WIN) -#define LUA_DL_DLL +#ifdef LUA_USE_ASSERT +#define lua_assert(x) assert(x) #endif - - -/* -@@ LUAI_EXTRASPACE allows you to add user-specific data in a lua_State -@* (the data goes just *before* the lua_State pointer). -** CHANGE (define) this if you really need that. This value must be -** a multiple of the maximum alignment required for your machine. -*/ -#define LUAI_EXTRASPACE 0 - - -/* -@@ luai_userstate* allow user-specific actions on threads. -** CHANGE them if you defined LUAI_EXTRASPACE and need to do something -** extra when a thread is created/deleted/resumed/yielded. -*/ -#define luai_userstateopen(L) ((void)L) -#define luai_userstateclose(L) ((void)L) -#define luai_userstatethread(L,L1) ((void)L) -#define luai_userstatefree(L) ((void)L) -#define luai_userstateresume(L,n) ((void)L) -#define luai_userstateyield(L,n) ((void)L) - - -/* -@@ LUA_INTFRMLEN is the length modifier for integer conversions -@* in 'string.format'. -@@ LUA_INTFRM_T is the integer type correspoding to the previous length -@* modifier. -** CHANGE them if your system supports long long or does not support long. -*/ - -#if defined(LUA_USELONGLONG) - -#define LUA_INTFRMLEN "ll" -#define LUA_INTFRM_T long long - +#ifdef LUA_USE_APICHECK +#define luai_apicheck(L, o) { (void)L; assert(o); } #else - -#define LUA_INTFRMLEN "l" -#define LUA_INTFRM_T long - +#define luai_apicheck(L, o) { (void)L; } #endif - - -/* =================================================================== */ - -/* -** Local configuration. You can use this space to add your redefinitions -** without modifying the main part of the file. -*/ - - - #endif - diff --git a/sdk/include/lua/lualib.h b/sdk/include/lua/lualib.h index c4567e9d370..96530e79adc 100644 --- a/sdk/include/lua/lualib.h +++ b/sdk/include/lua/lualib.h @@ -1,56 +1,43 @@ /* -** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $ -** Lua standard libraries -** See Copyright Notice in lua.h +** Standard library header. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h */ - -#ifndef lualib_h -#define lualib_h +#ifndef _LUALIB_H +#define _LUALIB_H #include "lua.h" - -/* Key to file-handle type */ -#define LUA_FILEHANDLE "FILE*" - +#define LUA_FILEHANDLE "FILE*" #define LUA_COLIBNAME "coroutine" -LUALIB_API int (luaopen_base) (lua_State *L); - +#define LUA_MATHLIBNAME "math" +#define LUA_STRLIBNAME "string" #define LUA_TABLIBNAME "table" -LUALIB_API int (luaopen_table) (lua_State *L); - #define LUA_IOLIBNAME "io" -LUALIB_API int (luaopen_io) (lua_State *L); - #define LUA_OSLIBNAME "os" -LUALIB_API int (luaopen_os) (lua_State *L); - -#define LUA_STRLIBNAME "string" -LUALIB_API int (luaopen_string) (lua_State *L); - -#define LUA_MATHLIBNAME "math" -LUALIB_API int (luaopen_math) (lua_State *L); - -#define LUA_DBLIBNAME "debug" -LUALIB_API int (luaopen_debug) (lua_State *L); - #define LUA_LOADLIBNAME "package" -LUALIB_API int (luaopen_package) (lua_State *L); - -#define LUA_JITLIBNAME "jit" -LUALIB_API int (luaopen_jit) (lua_State *L); - - -/* open all previous libraries */ -LUALIB_API void (luaL_openlibs) (lua_State *L); - - +#define LUA_DBLIBNAME "debug" +#define LUA_BITLIBNAME "bit" +#define LUA_JITLIBNAME "jit" +#define LUA_FFILIBNAME "ffi" + +LUALIB_API int luaopen_base(lua_State *L); +LUALIB_API int luaopen_math(lua_State *L); +LUALIB_API int luaopen_string(lua_State *L); +LUALIB_API int luaopen_table(lua_State *L); +LUALIB_API int luaopen_io(lua_State *L); +LUALIB_API int luaopen_os(lua_State *L); +LUALIB_API int luaopen_package(lua_State *L); +LUALIB_API int luaopen_debug(lua_State *L); +LUALIB_API int luaopen_bit(lua_State *L); +LUALIB_API int luaopen_jit(lua_State *L); +LUALIB_API int luaopen_ffi(lua_State *L); + +LUALIB_API void luaL_openlibs(lua_State *L); #ifndef lua_assert #define lua_assert(x) ((void)0) #endif - #endif diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index 8a0179990eb..cecd3491209 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -76,7 +76,7 @@ 4530;4100;4714;4127;%(DisableSpecificWarnings) - $(xrLibDir);%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalLibraryDirectories) true false Windows @@ -86,6 +86,7 @@ $(xrLibDir)$(TargetName).lib MachineX86 + true @@ -226,16 +227,6 @@ - - - {2ac1029e-e582-40cf-9cd1-5efa4211afc9} - false - false - false - true - false - - diff --git a/src/3rd party/luajit-2.0/.gitignore b/src/3rd party/luajit-2.0/.gitignore new file mode 100644 index 00000000000..1a07bf75bf2 --- /dev/null +++ b/src/3rd party/luajit-2.0/.gitignore @@ -0,0 +1,11 @@ +*.[oa] +*.so +*.obj +*.lib +*.exp +*.dll +*.exe +*.manifest +*.dmp +*.swp +.tags diff --git a/src/3rd party/luajit-2.0/COPYRIGHT b/src/3rd party/luajit-2.0/COPYRIGHT new file mode 100644 index 00000000000..1ef7df62446 --- /dev/null +++ b/src/3rd party/luajit-2.0/COPYRIGHT @@ -0,0 +1,56 @@ +=============================================================================== +LuaJIT -- a Just-In-Time Compiler for Lua. http://luajit.org/ + +Copyright (C) 2005-2015 Mike Pall. All rights reserved. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +THE SOFTWARE. + +[ MIT license: http://www.opensource.org/licenses/mit-license.php ] + +=============================================================================== +[ LuaJIT includes code from Lua 5.1/5.2, which has this license statement: ] + +Copyright (C) 1994-2012 Lua.org, PUC-Rio. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +THE SOFTWARE. + +=============================================================================== +[ LuaJIT includes code from dlmalloc, which has this license statement: ] + +This is a version (aka dlmalloc) of malloc/free/realloc written by +Doug Lea and released to the public domain, as explained at +http://creativecommons.org/licenses/publicdomain + +=============================================================================== diff --git a/src/3rd party/luajit-2.0/Makefile b/src/3rd party/luajit-2.0/Makefile new file mode 100644 index 00000000000..0891b713c5e --- /dev/null +++ b/src/3rd party/luajit-2.0/Makefile @@ -0,0 +1,151 @@ +############################################################################## +# LuaJIT top level Makefile for installation. Requires GNU Make. +# +# Please read doc/install.html before changing any variables! +# +# Suitable for POSIX platforms (Linux, *BSD, OSX etc.). +# Note: src/Makefile has many more configurable options. +# +# ##### This Makefile is NOT useful for Windows! ##### +# For MSVC, please follow the instructions given in src/msvcbuild.bat. +# For MinGW and Cygwin, cd to src and run make with the Makefile there. +# +# Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +############################################################################## + +MAJVER= 2 +MINVER= 0 +RELVER= 3 +VERSION= $(MAJVER).$(MINVER).$(RELVER) +ABIVER= 5.1 + +############################################################################## +# +# Change the installation path as needed. This automatically adjusts +# the paths in src/luaconf.h, too. Note: PREFIX must be an absolute path! +# +export PREFIX= /usr/local +export MULTILIB= lib +############################################################################## + +DPREFIX= $(DESTDIR)$(PREFIX) +INSTALL_BIN= $(DPREFIX)/bin +INSTALL_LIB= $(DPREFIX)/$(MULTILIB) +INSTALL_SHARE= $(DPREFIX)/share +INSTALL_INC= $(DPREFIX)/include/luajit-$(MAJVER).$(MINVER) + +INSTALL_LJLIBD= $(INSTALL_SHARE)/luajit-$(VERSION) +INSTALL_JITLIB= $(INSTALL_LJLIBD)/jit +INSTALL_LMODD= $(INSTALL_SHARE)/lua +INSTALL_LMOD= $(INSTALL_LMODD)/$(ABIVER) +INSTALL_CMODD= $(INSTALL_LIB)/lua +INSTALL_CMOD= $(INSTALL_CMODD)/$(ABIVER) +INSTALL_MAN= $(INSTALL_SHARE)/man/man1 +INSTALL_PKGCONFIG= $(INSTALL_LIB)/pkgconfig + +INSTALL_TNAME= luajit-$(VERSION) +INSTALL_TSYMNAME= luajit +INSTALL_ANAME= libluajit-$(ABIVER).a +INSTALL_SONAME= libluajit-$(ABIVER).so.$(MAJVER).$(MINVER).$(RELVER) +INSTALL_SOSHORT= libluajit-$(ABIVER).so +INSTALL_DYLIBNAME= libluajit-$(ABIVER).$(MAJVER).$(MINVER).$(RELVER).dylib +INSTALL_DYLIBSHORT1= libluajit-$(ABIVER).dylib +INSTALL_DYLIBSHORT2= libluajit-$(ABIVER).$(MAJVER).dylib +INSTALL_PCNAME= luajit.pc + +INSTALL_STATIC= $(INSTALL_LIB)/$(INSTALL_ANAME) +INSTALL_DYN= $(INSTALL_LIB)/$(INSTALL_SONAME) +INSTALL_SHORT1= $(INSTALL_LIB)/$(INSTALL_SOSHORT) +INSTALL_SHORT2= $(INSTALL_LIB)/$(INSTALL_SOSHORT) +INSTALL_T= $(INSTALL_BIN)/$(INSTALL_TNAME) +INSTALL_TSYM= $(INSTALL_BIN)/$(INSTALL_TSYMNAME) +INSTALL_PC= $(INSTALL_PKGCONFIG)/$(INSTALL_PCNAME) + +INSTALL_DIRS= $(INSTALL_BIN) $(INSTALL_LIB) $(INSTALL_INC) $(INSTALL_MAN) \ + $(INSTALL_PKGCONFIG) $(INSTALL_JITLIB) $(INSTALL_LMOD) $(INSTALL_CMOD) +UNINSTALL_DIRS= $(INSTALL_JITLIB) $(INSTALL_LJLIBD) $(INSTALL_INC) \ + $(INSTALL_LMOD) $(INSTALL_LMODD) $(INSTALL_CMOD) $(INSTALL_CMODD) + +RM= rm -f +MKDIR= mkdir -p +RMDIR= rmdir 2>/dev/null +SYMLINK= ln -sf +INSTALL_X= install -m 0755 +INSTALL_F= install -m 0644 +UNINSTALL= $(RM) +LDCONFIG= ldconfig -n +SED_PC= sed -e "s|^prefix=.*|prefix=$(PREFIX)|" \ + -e "s|^multilib=.*|multilib=$(MULTILIB)|" + +FILE_T= luajit +FILE_A= libluajit.a +FILE_SO= libluajit.so +FILE_MAN= luajit.1 +FILE_PC= luajit.pc +FILES_INC= lua.h lualib.h lauxlib.h luaconf.h lua.hpp luajit.h +FILES_JITLIB= bc.lua v.lua dump.lua dis_x86.lua dis_x64.lua dis_arm.lua \ + dis_ppc.lua dis_mips.lua dis_mipsel.lua bcsave.lua vmdef.lua + +ifeq (,$(findstring Windows,$(OS))) + ifeq (Darwin,$(shell uname -s)) + INSTALL_SONAME= $(INSTALL_DYLIBNAME) + INSTALL_SHORT1= $(INSTALL_LIB)/$(INSTALL_DYLIBSHORT1) + INSTALL_SHORT2= $(INSTALL_LIB)/$(INSTALL_DYLIBSHORT2) + LDCONFIG= : + endif +endif + +############################################################################## + +INSTALL_DEP= src/luajit + +default all $(INSTALL_DEP): + @echo "==== Building LuaJIT $(VERSION) ====" + $(MAKE) -C src + @echo "==== Successfully built LuaJIT $(VERSION) ====" + +install: $(INSTALL_DEP) + @echo "==== Installing LuaJIT $(VERSION) to $(PREFIX) ====" + $(MKDIR) $(INSTALL_DIRS) + cd src && $(INSTALL_X) $(FILE_T) $(INSTALL_T) + cd src && test -f $(FILE_A) && $(INSTALL_F) $(FILE_A) $(INSTALL_STATIC) || : + $(RM) $(INSTALL_TSYM) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) + cd src && test -f $(FILE_SO) && \ + $(INSTALL_X) $(FILE_SO) $(INSTALL_DYN) && \ + $(LDCONFIG) $(INSTALL_LIB) && \ + $(SYMLINK) $(INSTALL_SONAME) $(INSTALL_SHORT1) && \ + $(SYMLINK) $(INSTALL_SONAME) $(INSTALL_SHORT2) || : + cd etc && $(INSTALL_F) $(FILE_MAN) $(INSTALL_MAN) + cd etc && $(SED_PC) $(FILE_PC) > $(FILE_PC).tmp && \ + $(INSTALL_F) $(FILE_PC).tmp $(INSTALL_PC) && \ + $(RM) $(FILE_PC).tmp + cd src && $(INSTALL_F) $(FILES_INC) $(INSTALL_INC) + cd src/jit && $(INSTALL_F) $(FILES_JITLIB) $(INSTALL_JITLIB) + $(SYMLINK) $(INSTALL_TNAME) $(INSTALL_TSYM) + @echo "==== Successfully installed LuaJIT $(VERSION) to $(PREFIX) ====" + +uninstall: + @echo "==== Uninstalling LuaJIT $(VERSION) from $(PREFIX) ====" + $(UNINSTALL) $(INSTALL_TSYM) $(INSTALL_T) $(INSTALL_STATIC) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) $(INSTALL_MAN)/$(FILE_MAN) $(INSTALL_PC) + for file in $(FILES_JITLIB); do \ + $(UNINSTALL) $(INSTALL_JITLIB)/$$file; \ + done + for file in $(FILES_INC); do \ + $(UNINSTALL) $(INSTALL_INC)/$$file; \ + done + $(LDCONFIG) $(INSTALL_LIB) + $(RMDIR) $(UNINSTALL_DIRS) || : + @echo "==== Successfully uninstalled LuaJIT $(VERSION) from $(PREFIX) ====" + +############################################################################## + +amalg: + @echo "Building LuaJIT $(VERSION)" + $(MAKE) -C src amalg + +clean: + $(MAKE) -C src clean + +.PHONY: all install amalg clean + +############################################################################## diff --git a/src/3rd party/luajit-2.0/README b/src/3rd party/luajit-2.0/README new file mode 100644 index 00000000000..d151bb7b2e8 --- /dev/null +++ b/src/3rd party/luajit-2.0/README @@ -0,0 +1,16 @@ +README for LuaJIT 2.0.3 +----------------------- + +LuaJIT is a Just-In-Time (JIT) compiler for the Lua programming language. + +Project Homepage: http://luajit.org/ + +LuaJIT is Copyright (C) 2005-2015 Mike Pall. +LuaJIT is free software, released under the MIT license. +See full Copyright Notice in the COPYRIGHT file or in luajit.h. + +Documentation for LuaJIT is available in HTML format. +Please point your favorite browser to: + + doc/luajit.html + diff --git a/src/3rd party/luajit-2.0/doc/bluequad-print.css b/src/3rd party/luajit-2.0/doc/bluequad-print.css new file mode 100644 index 00000000000..07f5c84a5f6 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/bluequad-print.css @@ -0,0 +1,166 @@ +/* Copyright (C) 2004-2015 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +body { + font-family: serif; + font-size: 11pt; + margin: 0 3em; + padding: 0; + border: none; +} +a:link, a:visited, a:hover, a:active { + text-decoration: none; + background: transparent; + color: #0000ff; +} +h1, h2, h3 { + font-family: sans-serif; + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; +} +h1 { + font-size: 200%; +} +h2 { + font-size: 150%; +} +h3 { + font-size: 125%; +} +p { + margin: 0 0 0.5em 0; + padding: 0; +} +ul, ol { + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + margin: 1em 0; + padding: 1em; + border: 1px solid black; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +table { + table-layout: fixed; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid black; + border-spacing: 0; + border-collapse: collapse; +} +tr { + margin: 0; + padding: 0; + border: none; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border-top: 1px solid black; + border-bottom: 1px solid black; +} +tr.separate td { + border-top: double; +} +tt, pre, code, kbd, samp { + font-family: monospace; + font-size: 75%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + margin: 1em 2em; + padding: 0; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noprint, #nav { + display: none !important; +} +.pagebreak { + page-break-before: always; +} +#site { + text-align: right; + font-family: sans-serif; + font-weight: bold; + margin: 0 1em; + border-bottom: 1pt solid black; +} +#site a { + font-size: 1.2em; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#logo { + color: #ff8000; +} +#head { + clear: both; + margin: 0 1em; +} +#main { + line-height: 1.3; + text-align: justify; + margin: 1em; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0 1.25em; + padding: 0.5em 0 0 0; + border-top: 1pt solid black; + page-break-before: avoid; + page-break-after: avoid; +} diff --git a/src/3rd party/luajit-2.0/doc/bluequad.css b/src/3rd party/luajit-2.0/doc/bluequad.css new file mode 100644 index 00000000000..ae531430d19 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/bluequad.css @@ -0,0 +1,325 @@ +/* Copyright (C) 2004-2015 Mike Pall. + * + * You are welcome to use the general ideas of this design for your own sites. + * But please do not steal the stylesheet, the layout or the color scheme. + */ +/* colorscheme: + * + * site | head #4162bf/white | #6078bf/#e6ecff + * ------+------ ----------------+------------------- + * nav | main #bfcfff | #e6ecff/black + * + * nav: hiback loback #c5d5ff #b9c9f9 + * hiborder loborder #e6ecff #97a7d7 + * link hover #2142bf #ff0000 + * + * link: link visited hover #2142bf #8122bf #ff0000 + * + * main: boxback boxborder #f0f4ff #bfcfff + */ +body { + font-family: Verdana, Arial, Helvetica, sans-serif; + font-size: 10pt; + margin: 0; + padding: 0; + border: none; + background: #e0e0e0; + color: #000000; +} +a:link { + text-decoration: none; + background: transparent; + color: #2142bf; +} +a:visited { + text-decoration: none; + background: transparent; + color: #8122bf; +} +a:hover, a:active { + text-decoration: underline; + background: transparent; + color: #ff0000; +} +h1, h2, h3 { + font-weight: bold; + text-align: left; + margin: 0.5em 0; + padding: 0; + background: transparent; +} +h1 { + font-size: 200%; + line-height: 3em; /* really 6em relative to body, match #site span */ + margin: 0; +} +h2 { + font-size: 150%; + color: #606060; +} +h3 { + font-size: 125%; + color: #404040; +} +p { + max-width: 600px; + margin: 0 0 0.5em 0; + padding: 0; +} +b { + color: #404040; +} +ul, ol { + max-width: 600px; + margin: 0.5em 0; + padding: 0 0 0 2em; +} +ul { + list-style: outside square; +} +ol { + list-style: outside decimal; +} +li { + margin: 0; + padding: 0; +} +dl { + max-width: 600px; + margin: 1em 0; + padding: 1em; + border: 1px solid #bfcfff; + background: #f0f4ff; +} +dt { + font-weight: bold; + margin: 0; + padding: 0; +} +dt sup { + float: right; + margin-left: 1em; + color: #808080; +} +dt a:visited { + text-decoration: none; + color: #2142bf; +} +dt a:hover, dt a:active { + text-decoration: none; + color: #ff0000; +} +dd { + margin: 0.5em 0 0 2em; + padding: 0; +} +div.tablewrap { /* for IE *sigh* */ + max-width: 600px; +} +table { + table-layout: fixed; + border-spacing: 0; + border-collapse: collapse; + max-width: 600px; + width: 100%; + margin: 1em 0; + padding: 0; + border: 1px solid #bfcfff; +} +tr { + margin: 0; + padding: 0; + border: none; +} +tr.odd { + background: #f0f4ff; +} +tr.separate td { + border-top: 1px solid #bfcfff; +} +td { + text-align: left; + margin: 0; + padding: 0.2em 0.5em; + border: none; +} +tt, code, kbd, samp { + font-family: Courier New, Courier, monospace; + line-height: 1.2; + font-size: 110%; +} +kbd { + font-weight: bolder; +} +blockquote, pre { + max-width: 600px; + margin: 1em 2em; + padding: 0; +} +pre { + line-height: 1.1; +} +pre.code { + line-height: 1.4; + margin: 0.5em 0 1em 0.5em; + padding: 0.5em 1em; + border: 1px solid #bfcfff; + background: #f0f4ff; +} +pre.mark { + padding-left: 2em; +} +span.codemark { + position:absolute; + left: 16em; + color: #4040c0; +} +span.mark { + color: #4040c0; + font-family: Courier New, Courier, monospace; + line-height: 1.1; +} +img { + border: none; + vertical-align: baseline; + margin: 0; + padding: 0; +} +img.left { + float: left; + margin: 0.5em 1em 0.5em 0; +} +img.right { + float: right; + margin: 0.5em 0 0.5em 1em; +} +.indent { + padding-left: 1em; +} +.flush { + clear: both; + visibility: hidden; +} +.hide, .noscreen { + display: none !important; +} +.ext { + color: #ff8000; +} +.new { + font-size: 6pt; + vertical-align: middle; + background: #ff8000; + color: #ffffff; +} +#site { + clear: both; + float: left; + width: 13em; + text-align: center; + font-weight: bold; + margin: 0; + padding: 0; + background: transparent; + color: #ffffff; +} +#site a { + font-size: 200%; +} +#site a:link, #site a:visited { + text-decoration: none; + font-weight: bold; + background: transparent; + color: #ffffff; +} +#site span { + line-height: 3em; /* really 6em relative to body, match h1 */ +} +#logo { + color: #ffb380; +} +#head { + margin: 0; + padding: 0 0 0 2em; + border-left: solid 13em #4162bf; + border-right: solid 3em #6078bf; + background: #6078bf; + color: #e6ecff; +} +#nav { + clear: both; + float: left; + overflow: hidden; + text-align: left; + line-height: 1.5; + width: 13em; + padding-top: 1em; + background: transparent; +} +#nav ul { + list-style: none outside; + margin: 0; + padding: 0; +} +#nav li { + margin: 0; + padding: 0; +} +#nav a { + display: block; + text-decoration: none; + font-weight: bold; + margin: 0; + padding: 2px 1em; + border-top: 1px solid transparent; + border-bottom: 1px solid transparent; + background: transparent; + color: #2142bf; +} +#nav a:hover, #nav a:active { + text-decoration: none; + border-top: 1px solid #97a7d7; + border-bottom: 1px solid #e6ecff; + background: #b9c9f9; + color: #ff0000; +} +#nav a.current, #nav a.current:hover, #nav a.current:active { + border-top: 1px solid #e6ecff; + border-bottom: 1px solid #97a7d7; + background: #c5d5ff; + color: #2142bf; +} +#nav ul ul a { + padding: 0 1em 0 1.7em; +} +#nav ul ul ul a { + padding: 0 0.5em 0 2.4em; +} +#main { + line-height: 1.5; + text-align: left; + margin: 0; + padding: 1em 2em; + border-left: solid 13em #bfcfff; + border-right: solid 3em #e6ecff; + background: #e6ecff; +} +#foot { + clear: both; + font-size: 80%; + text-align: center; + margin: 0; + padding: 0.5em; + background: #6078bf; + color: #ffffff; +} +#foot a:link, #foot a:visited { + text-decoration: underline; + background: transparent; + color: #ffffff; +} +#foot a:hover, #foot a:active { + text-decoration: underline; + background: transparent; + color: #bfcfff; +} diff --git a/src/3rd party/luajit-2.0/doc/changes.html b/src/3rd party/luajit-2.0/doc/changes.html new file mode 100644 index 00000000000..3d8f5dbba90 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/changes.html @@ -0,0 +1,928 @@ + + + +LuaJIT Change History + + + + + + + + + +

+Lua +
+ + +
+

+This is a list of changes between the released versions of LuaJIT.
+The current stable version is LuaJIT 2.0.3.
+

+

+Please check the +» Online Change History +to see whether newer versions are available. +

+ +
+

LuaJIT 2.0.3 — 2014-03-12

+
    +
  • Add PS4 port.
    • +
  • Add support for multilib distro builds.
    • +
  • Fix OSX build.
    • +
  • Fix MinGW build.
    • +
  • Fix Xbox 360 build.
    • +
  • Improve ULOAD forwarding for open upvalues.
    • +
  • Fix GC steps threshold handling when called by JIT-compiled code.
    • +
  • Fix argument checks for math.deg() and math.rad().
    • +
  • Fix jit.flush(func|true).
    • +
  • Respect jit.off(func) when returning to a function, too.
    • +
  • Fix compilation of string.byte(s, nil, n).
    • +
  • Fix line number for relocated bytecode after closure fixup
    • +
  • Fix frame traversal for backtraces.
    • +
  • Fix ABC elimination.
    • +
  • Fix handling of redundant PHIs.
    • +
  • Fix snapshot restore for exit to function header.
    • +
  • Fix type punning alias analysis for constified pointers
    • +
  • Fix call unroll checks in the presence of metamethod frames.
    • +
  • Fix initial maxslot for down-recursive traces.
    • +
  • Prevent BASE register coalescing if parent uses IR_RETF.
    • +
  • Don't purge modified function from stack slots in BC_RET.
    • +
  • Fix recording of BC_VARG.
    • +
  • Don't access dangling reference to reallocated IR.
    • +
  • Fix frame depth display for bytecode dump in -jdump.
    • +
  • ARM: Fix register allocation when rematerializing FPRs.
    • +
  • x64: Fix store to upvalue for lightuserdata values.
    • +
  • FFI: Add missing GC steps for callback argument conversions.
    • +
  • FFI: Properly unload loaded DLLs.
    • +
  • FFI: Fix argument checks for ffi.string().
    • +
  • FFI/x64: Fix passing of vector arguments to calls.
    • +
  • FFI: Rehash finalizer table after GC cycle, if needed.
    • +
  • FFI: Fix cts->L for cdata unsinking in snapshot restore.
    • +
+ +

LuaJIT 2.0.2 — 2013-06-03

+
    +
  • Fix memory access check for fast string interning.
    • +
  • Fix MSVC intrinsics for older versions.
    • +
  • Add missing GC steps for io.* functions.
    • +
  • Fix spurious red zone overflows in machine code generation.
    • +
  • Fix jump-range constrained mcode allocation.
    • +
  • Inhibit DSE for implicit loads via calls.
    • +
  • Fix builtin string to number conversion for overflow digits.
    • +
  • Fix optional argument handling while recording builtins.
    • +
  • Fix optional argument handling in table.concat().
    • +
  • Add partial support for building with MingW64 GCC 4.8-SEH.
    • +
  • Add missing PHI barrier to string.sub(str, a, b) == kstr FOLD rule.
    • +
  • Fix compatibility issues with Illumos.
    • +
  • ARM: Fix cache flush/sync for exit stubs of JIT-compiled code.
    • +
  • MIPS: Fix cache flush/sync for JIT-compiled code jump area.
    • +
  • PPC: Add plt suffix for external calls from assembler code.
    • +
  • FFI: Fix snapshot substitution in SPLIT pass.
    • +
  • FFI/x86: Fix register allocation for 64 bit comparisons.
    • +
  • FFI: Fix tailcall in lowest frame to C function with bool result.
    • +
  • FFI: Ignore long type specifier in ffi.istype().
    • +
  • FFI: Fix calling conventions for 32 bit OSX and iOS simulator (struct returns).
    • +
  • FFI: Fix calling conventions for ARM hard-float EABI (nested structs).
    • +
  • FFI: Improve error messages for arithmetic and comparison operators.
    • +
  • FFI: Insert no-op type conversion for pointer to integer cast.
    • +
  • FFI: Fix unroll limit for ffi.fill().
    • +
  • FFI: Must sink XBAR together with XSTOREs.
    • +
  • FFI: Preserve intermediate string for const char * conversion.
    • +
+ +

LuaJIT 2.0.1 — 2013-02-19

+
    +
  • Don't clear frame for out-of-memory error.
    • +
  • Leave hook when resume catches error thrown from hook.
    • +
  • Add missing GC steps for template table creation.
    • +
  • Fix discharge order of comparisons in Lua parser.
    • +
  • Improve buffer handling for io.read().
    • +
  • OSX: Add support for Mach-O object files to -b option.
    • +
  • Fix PS3 port.
    • +
  • Fix/enable Xbox 360 port.
    • +
  • x86/x64: Always mark ref for shift count as non-weak.
    • +
  • x64: Don't fuse implicitly 32-to-64 extended operands.
    • +
  • ARM: Fix armhf call argument handling.
    • +
  • ARM: Fix code generation for integer math.min/math.max.
    • +
  • PPC/e500: Fix lj_vm_floor() for Inf/NaN.
    • +
  • FFI: Change priority of table initializer variants for structs.
    • +
  • FFI: Fix code generation for bool call result check on x86/x64.
    • +
  • FFI: Load FFI library on-demand for bytecode with cdata literals.
    • +
  • FFI: Fix handling of qualified transparent structs/unions.
    • +
+ +

LuaJIT 2.0.0 — 2012-11-08

+
    +
  • Correctness and completeness: +
      +
    • Fix Android/x86 build.
      • +
    • Fix recording of equality comparisons with __eq metamethods.
      • +
    • Fix detection of immutable upvalues.
      • +
    • Replace error with PANIC for callbacks from JIT-compiled code.
      • +
    • Fix builtin string to number conversion for INT_MIN.
      • +
    • Don't create unneeded array part for template tables.
      • +
    • Fix CONV.num.int sinking.
      • +
    • Don't propagate implicitly widened number to index metamethods.
      • +
    • ARM: Fix ordered comparisons of number vs. non-number.
      • +
    • FFI: Fix code generation for replay of sunk float fields.
      • +
    • FFI: Fix signedness of bool.
      • +
    • FFI: Fix recording of bool call result check on x86/x64.
      • +
    • FFI: Fix stack-adjustment for __thiscall callbacks.
      • +
    • +
+ +

LuaJIT 2.0.0-beta11 — 2012-10-16

+
    +
  • New features: +
      +
    • Use ARM VFP instructions, if available (build-time detection).
      • +
    • Add support for ARM hard-float EABI (armhf).
      • +
    • Add PS3 port.
      • +
    • Add many features from Lua 5.2, e.g. goto/labels. + Refer to this list.
      • +
    • FFI: Add parameterized C types.
      • +
    • FFI: Add support for copy constructors.
      • +
    • FFI: Equality comparisons never raise an error (treat as unequal instead).
      • +
    • FFI: Box all accessed or returned enums.
      • +
    • FFI: Check for __new metamethod when calling a constructor.
      • +
    • FFI: Handle __pairs/__ipairs metamethods for cdata objects.
      • +
    • FFI: Convert io.* file handle to FILE * pointer (but as a void *).
      • +
    • FFI: Detect and support type punning through unions.
      • +
    • FFI: Improve various error messages.
      • +
    • +
  • Build-system reorganization: +
      +
    • Reorganize directory layout:
      + lib/* → src/jit/*
      + src/buildvm_*.dasc → src/vm_*.dasc
      + src/buildvm_*.h → removed
      + src/buildvm* → src/host/*
      • +
    • Add minified Lua interpreter plus Lua BitOp (minilua) to run DynASM.
      • +
    • Change DynASM bit operations to use Lua BitOp
      • +
    • Translate only vm_*.dasc for detected target architecture.
      • +
    • Improve target detection for msvcbuild.bat.
      • +
    • Fix build issues on Cygwin and MinGW with optional MSys.
      • +
    • Handle cross-compiles with FPU/no-FPU or hard-fp/soft-fp ABI mismatch.
      • +
    • Remove some library functions for no-JIT/no-FFI builds.
      • +
    • Add uninstall target to top-level Makefile.
      • +
    • +
  • Correctness and completeness: +
      +
    • Preserve snapshot #0 PC for all traces.
      • +
    • Fix argument checks for coroutine.create().
      • +
    • Command line prints version and JIT status to stdout, not stderr.
      • +
    • Fix userdata __gc separations at Lua state close.
      • +
    • Fix TDUP to HLOAD forwarding for LJ_DUALNUM builds.
      • +
    • Fix buffer check in bytecode writer.
      • +
    • Make os.date() thread-safe.
      • +
    • Add missing declarations for MSVC intrinsics.
      • +
    • Fix dispatch table modifications for return hooks.
      • +
    • Workaround for MSVC conversion bug (double → uint32_t → int32_t).
      • +
    • Fix FOLD rule (i-j)-i => 0-j.
      • +
    • Never use DWARF unwinder on Windows.
      • +
    • Fix shrinking of direct mapped blocks in builtin allocator.
      • +
    • Limit recursion depth in string.match() et al.
      • +
    • Fix late despecialization of ITERN after loop has been entered.
      • +
    • Fix 'f' and 'L' options for debug.getinfo() and lua_getinfo().
      • +
    • Fix package.searchpath().
      • +
    • OSX: Change dylib names to be consistent with other platforms.
      • +
    • Android: Workaround for broken sprintf("%g", -0.0).
      • +
    • x86: Remove support for ancient CPUs without CMOV (before Pentium Pro).
      • +
    • x86: Fix register allocation for calls returning register pair.
      • +
    • x86/x64: Fix fusion of unsigned byte comparisons with swapped operands.
      • +
    • ARM: Fix tonumber() argument check.
      • +
    • ARM: Fix modulo operator and math.floor()/math.ceil() for inf/nan.
      • +
    • ARM: Invoke SPLIT pass for leftover IR_TOBIT.
      • +
    • ARM: Fix BASE register coalescing.
      • +
    • PPC: Fix interpreter state setup in callbacks.
      • +
    • PPC: Fix string.sub() range check.
      • +
    • MIPS: Support generation of MIPS/MIPSEL bytecode object files.
      • +
    • MIPS: Fix calls to floor()/ceil()/trunc().
      • +
    • ARM/PPC: Detect more target architecture variants.
      • +
    • ARM/PPC/e500/MIPS: Fix tailcalls from fast functions, esp. tostring().
      • +
    • ARM/PPC/MIPS: Fix rematerialization of FP constants.
      • +
    • FFI: Don't call FreeLibrary() on our own EXE/DLL.
      • +
    • FFI: Resolve metamethods for constructors, too.
      • +
    • FFI: Properly disable callbacks on iOS (would require executable memory).
      • +
    • FFI: Fix cdecl string parsing during recording.
      • +
    • FFI: Show address pointed to for tostring(ref), too.
      • +
    • FFI: Fix alignment of C call argument/return structure.
      • +
    • FFI: Initialize all fields of standard types.
      • +
    • FFI: Fix callback handling when new C types are declared in callback.
      • +
    • FFI: Fix recording of constructors for pointers.
      • +
    • FFI: Always resolve metamethods for pointers to structs.
      • +
    • FFI: Correctly propagate alignment when interning nested types.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Add allocation sinking and store sinking optimization.
      • +
    • Constify immutable upvalues.
      • +
    • Add builtin string to integer or FP number conversion. Improves cross-platform consistency and correctness.
      • +
    • Create string hash slots in template tables for non-const values, too. Avoids later table resizes.
      • +
    • Eliminate HREFK guard for template table references.
      • +
    • Add various new FOLD rules.
      • +
    • Don't use stack unwinding for lua_yield() (slow on x64).
      • +
    • ARM, PPC, MIPS: Improve XLOAD operand fusion and register hinting.
      • +
    • PPC, MIPS: Compile math.sqrt() to sqrt instruction, if available.
      • +
    • FFI: Fold KPTR + constant offset in SPLIT pass.
      • +
    • FFI: Optimize/inline ffi.copy() and ffi.fill().
      • +
    • FFI: Compile and optimize array/struct copies.
      • +
    • FFI: Compile ffi.typeof(cdata|ctype), ffi.sizeof(), ffi.alignof(), ffi.offsetof() and ffi.gc().
      • +
    • +
+ +

LuaJIT 2.0.0-beta10 — 2012-05-09

+
    +
  • New features: +
      +
    • The MIPS of LuaJIT is complete. It requires a CPU conforming to the +MIPS32 R1 architecture with hardware FPU. O32 hard-fp ABI, +little-endian or big-endian.
      • +
    • Auto-detect target arch via cross-compiler. No need for +TARGET=arch anymore.
      • +
    • Make DynASM compatible with Lua 5.2.
      • +
    • From Lua 5.2: Try __tostring metamethod on non-string error +messages..
      • +
    • +
  • Correctness and completeness: +
      +
    • Fix parsing of hex literals with exponents.
      • +
    • Fix bytecode dump for certain number constants.
      • +
    • Fix argument type in error message for relative arguments.
      • +
    • Fix argument error handling on Lua stacks without a frame.
      • +
    • Add missing mcode limit check in assembler backend.
      • +
    • Fix compilation on OpenBSD.
      • +
    • Avoid recursive GC steps after GC-triggered trace exit.
      • +
    • Replace <unwind.h> definitions with our own.
      • +
    • Fix OSX build issues. Bump minimum required OSX version to 10.4.
      • +
    • Fix discharge order of comparisons in Lua parser.
      • +
    • Ensure running __gc of userdata created in __gc +at state close.
      • +
    • Limit number of userdata __gc separations at state close.
      • +
    • Fix bytecode JMP slot range when optimizing +and/or with constant LHS.
      • +
    • Fix DSE of USTORE.
      • +
    • Make lua_concat() work from C hook with partial frame.
      • +
    • Add required PHIs for implicit conversions, e.g. via XREF +forwarding.
      • +
    • Add more comparison variants to Valgrind suppressions file.
      • +
    • Disable loading bytecode with an extra header (BOM or #!).
      • +
    • Fix PHI stack slot syncing.
      • +
    • ARM: Reorder type/value tests to silence Valgrind.
      • +
    • ARM: Fix register allocation for ldrd-optimized +HREFK.
      • +
    • ARM: Fix conditional branch fixup for OBAR.
      • +
    • ARM: Invoke SPLIT pass for double args in FFI call.
      • +
    • ARM: Handle all CALL* ops with double results in +SPLIT pass.
      • +
    • ARM: Fix rejoin of POW in SPLIT pass.
      • +
    • ARM: Fix compilation of math.sinh, math.cosh, +math.tanh.
      • +
    • ARM, PPC: Avoid pointless arg clearing in BC_IFUNCF.
      • +
    • PPC: Fix resume after yield from hook.
      • +
    • PPC: Fix argument checking for rawget().
      • +
    • PPC: Fix fusion of floating-point XLOAD/XSTORE.
      • +
    • PPC: Fix HREFK code generation for huge tables.
      • +
    • PPC: Use builtin D-Cache/I-Cache sync code.
      • +
    • +
  • FFI library: +
      +
    • Ignore empty statements in ffi.cdef().
      • +
    • Ignore number parsing errors while skipping definitions.
      • +
    • Don't touch frame in callbacks with tailcalls to fast functions.
      • +
    • Fix library unloading on POSIX systems.
      • +
    • Finalize cdata before userdata when closing the state.
      • +
    • Change ffi.load() library name resolution for Cygwin.
      • +
    • Fix resolving of function name redirects on Windows/x86.
      • +
    • Fix symbol resolving error messages on Windows.
      • +
    • Fix blacklisting of C functions calling callbacks.
      • +
    • Fix result type of pointer difference.
      • +
    • Use correct PC in FFI metamethod error message.
      • +
    • Allow 'typedef _Bool int BOOL;' for the Windows API.
      • +
    • Don't record test for bool result of call, if ignored.
      • +
    • +
+ +

LuaJIT 2.0.0-beta9 — 2011-12-14

+
    +
  • New features: +
      +
    • PPC port of LuaJIT is complete. Default is the dual-number port +(usually faster). Single-number port selectable via src/Makefile +at build time.
      • +
    • Add FFI callback support.
      • +
    • Extend -b to generate .c, .h or .obj/.o +files with embedded bytecode.
      • +
    • Allow loading embedded bytecode with require().
      • +
    • From Lua 5.2: Change to '\z' escape. Reject undefined escape +sequences.
      • +
    • +
  • Correctness and completeness: +
      +
    • Fix OSX 10.7 build. Fix install_name and versioning on OSX.
      • +
    • Fix iOS build.
      • +
    • Install dis_arm.lua, too.
      • +
    • Mark installed shared library as executable.
      • +
    • Add debug option to msvcbuild.bat and improve error handling.
      • +
    • Fix data-flow analysis for iterators.
      • +
    • Fix forced unwinding triggered by external unwinder.
      • +
    • Record missing for loop slot loads (return to lower frame).
      • +
    • Always use ANSI variants of Windows system functions.
      • +
    • Fix GC barrier for multi-result table constructor (TSETM).
      • +
    • Fix/add various FOLD rules.
      • +
    • Add potential PHI for number conversions due to type instability.
      • +
    • Do not eliminate PHIs only referenced from other PHIs.
      • +
    • Correctly anchor implicit number to string conversions in Lua/C API.
      • +
    • Fix various stack limit checks.
      • +
    • x64: Use thread-safe exceptions for external unwinding (GCC platforms).
      • +
    • x64: Fix result type of cdata index conversions.
      • +
    • x64: Fix math.random() and bit.bswap() code generation.
      • +
    • x64: Fix lightuserdata comparisons.
      • +
    • x64: Always extend stack-passed arguments to pointer size.
      • +
    • ARM: Many fixes to code generation backend.
      • +
    • PPC/e500: Fix dispatch for binop metamethods.
      • +
    • PPC/e500: Save/restore condition registers when entering/leaving the VM.
      • +
    • PPC/e500: Fix write barrier in stores of strings to upvalues.
      • +
    • +
  • FFI library: +
      +
    • Fix C comment parsing.
      • +
    • Fix snapshot optimization for cdata comparisons.
      • +
    • Fix recording of const/enum lookups in namespaces.
      • +
    • Fix call argument and return handling for I8/U8/I16/U16 types.
      • +
    • Fix unfused loads of float fields.
      • +
    • Fix ffi.string() recording.
      • +
    • Save GetLastError() around ffi.load() and symbol +resolving, too.
      • +
    • Improve ld script detection in ffi.load().
      • +
    • Record loads/stores to external variables in namespaces.
      • +
    • Compile calls to stdcall, fastcall and vararg functions.
      • +
    • Treat function ctypes like pointers in comparisons.
      • +
    • Resolve __call metamethod for pointers, too.
      • +
    • Record C function calls with bool return values.
      • +
    • Record ffi.errno().
      • +
    • x86: Fix number to uint32_t conversion rounding.
      • +
    • x86: Fix 64 bit arithmetic in assembler backend.
      • +
    • x64: Fix struct-by-value calling conventions.
      • +
    • ARM: Ensure invocation of SPLIT pass for float conversions.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Display trace types with -jv and -jdump.
      • +
    • Record isolated calls. But prefer recording loops over calls.
      • +
    • Specialize to prototype for non-monomorphic functions. Solves the +trace-explosion problem for closure-heavy programming styles.
      • +
    • Always generate a portable vmdef.lua. Easier for distros.
      • +
    • +
+ +

LuaJIT 2.0.0-beta8 — 2011-06-23

+
    +
  • New features: +
      +
    • Soft-float ARM port of LuaJIT is complete.
      • +
    • Add support for bytecode loading/saving and -b command line +option.
      • +
    • From Lua 5.2: __len metamethod for tables +(disabled by default).
      • +
    • +
  • Correctness and completeness: +
      +
    • ARM: Misc. fixes for interpreter.
      • +
    • x86/x64: Fix bit.* argument checking in interpreter.
      • +
    • Catch early out-of-memory in memory allocator initialization.
      • +
    • Fix data-flow analysis for paths leading to an upvalue close.
      • +
    • Fix check for missing arguments in string.format().
      • +
    • Fix Solaris/x86 build (note: not a supported target).
      • +
    • Fix recording of loops with instable directions in side traces.
      • +
    • x86/x64: Fix fusion of comparisons with u8/u16 +XLOAD.
      • +
    • x86/x64: Fix register allocation for variable shifts.
      • +
    • +
  • FFI library: +
      +
    • Add ffi.errno(). Save errno/GetLastError() +around allocations etc.
      • +
    • Fix __gc for VLA/VLS cdata objects.
      • +
    • Fix recording of casts from 32 bit cdata pointers to integers.
      • +
    • tonumber(cdata) returns nil for non-numbers.
      • +
    • Show address pointed to for tostring(pointer).
      • +
    • Print NULL pointers as "cdata<... *>: NULL".
      • +
    • Support __tostring metamethod for pointers to structs, too.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • More tuning for loop unrolling heuristics.
      • +
    • Flatten and compress in-memory debug info (saves ~70%).
      • +
    • +
+ +

LuaJIT 2.0.0-beta7 — 2011-05-05

+
    +
  • New features: +
      +
    • ARM port of the LuaJIT interpreter is complete.
      • +
    • FFI library: Add ffi.gc(), ffi.metatype(), +ffi.istype().
      • +
    • FFI library: Resolve ld script redirection in ffi.load().
      • +
    • From Lua 5.2: package.searchpath(), fp:read("*L"), +load(string).
      • +
    • From Lua 5.2, disabled by default: empty statement, +table.unpack(), modified coroutine.running().
      • +
    • +
  • Correctness and completeness: +
      +
    • FFI library: numerous fixes.
      • +
    • Fix type mismatches in store-to-load forwarding.
      • +
    • Fix error handling within metamethods.
      • +
    • Fix table.maxn().
      • +
    • Improve accuracy of x^-k on x64.
      • +
    • Fix code generation for Intel Atom in x64 mode.
      • +
    • Fix narrowing of POW.
      • +
    • Fix recording of retried fast functions.
      • +
    • Fix code generation for bit.bnot() and multiplies.
      • +
    • Fix error location within cpcall frames.
      • +
    • Add workaround for old libgcc unwind bug.
      • +
    • Fix lua_yield() and getmetatable(lightuserdata) on x64.
      • +
    • Misc. fixes for PPC/e500 interpreter.
      • +
    • Fix stack slot updates for down-recursion.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Add dual-number mode (int/double) for the VM. Enabled for ARM.
      • +
    • Improve narrowing of arithmetic operators and for loops.
      • +
    • Tune loop unrolling heuristics and increase trace recorder limits.
      • +
    • Eliminate dead slots in snapshots using bytecode data-flow analysis.
      • +
    • Avoid phantom stores to proxy tables.
      • +
    • Optimize lookups in empty proxy tables.
      • +
    • Improve bytecode optimization of and/or operators.
      • +
    • +
+ +

LuaJIT 2.0.0-beta6 — 2011-02-11

+
    +
  • New features: +
      +
    • PowerPC/e500v2 port of the LuaJIT interpreter is complete.
      • +
    • Various minor features from Lua 5.2: Hex escapes in literals, +'\*' escape, reversible string.format("%q",s), +"%g" pattern, table.sort checks callbacks, +os.exit(status|true|false[,close]).
      • +
    • Lua 5.2 __pairs and __ipairs metamethods +(disabled by default).
      • +
    • Initial release of the FFI library.
      • +
    • +
  • Correctness and completeness: +
      +
    • Fix string.format() for non-finite numbers.
      • +
    • Fix memory leak when compiled to use the built-in allocator.
      • +
    • x86/x64: Fix unnecessary resize in TSETM bytecode.
      • +
    • Fix various GC issues with traces and jit.flush().
      • +
    • x64: Fix fusion of indexes for array references.
      • +
    • x86/x64: Fix stack overflow handling for coroutine results.
      • +
    • Enable low-2GB memory allocation on FreeBSD/x64.
      • +
    • Fix collectgarbage("count") result if more than 2GB is in use.
      • +
    • Fix parsing of hex floats.
      • +
    • x86/x64: Fix loop branch inversion with trailing +HREF+NE/EQ.
      • +
    • Add jit.os string.
      • +
    • coroutine.create() permits running C functions, too.
      • +
    • Fix OSX build to work with newer ld64 versions.
      • +
    • Fix bytecode optimization of and/or operators.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Emit specialized bytecode for pairs()/next().
      • +
    • Improve bytecode coalescing of nil constants.
      • +
    • Compile calls to vararg functions.
      • +
    • Compile select().
      • +
    • Improve alias analysis, esp. for loads from allocations.
      • +
    • Tuning of various compiler heuristics.
      • +
    • Refactor and extend IR conversion instructions.
      • +
    • x86/x64: Various backend enhancements related to the FFI.
      • +
    • Add SPLIT pass to split 64 bit IR instructions for 32 bit CPUs.
      • +
    • +
+ +

LuaJIT 2.0.0-beta5 — 2010-08-24

+
    +
  • Correctness and completeness: +
      +
    • Fix trace exit dispatch to function headers.
      • +
    • Fix Windows and OSX builds with LUAJIT_DISABLE_JIT.
      • +
    • Reorganize and fix placement of generated machine code on x64.
      • +
    • Fix TNEW in x64 interpreter.
      • +
    • Do not eliminate PHIs for values only referenced from side exits.
      • +
    • OS-independent canonicalization of strings for non-finite numbers.
      • +
    • Fix string.char() range check on x64.
      • +
    • Fix tostring() resolving within print().
      • +
    • Fix error handling for next().
      • +
    • Fix passing of constant arguments to external calls on x64.
      • +
    • Fix interpreter argument check for two-argument SSE math functions.
      • +
    • Fix C frame chain corruption caused by lua_cpcall().
      • +
    • Fix return from pcall() within active hook.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Replace on-trace GC frame syncing with interpreter exit.
      • +
    • Improve hash lookup specialization by not removing dead keys during GC.
      • +
    • Turn traces into true GC objects.
      • +
    • Avoid starting a GC cycle immediately after library init.
      • +
    • Add weak guards to improve dead-code elimination.
      • +
    • Speed up string interning.
      • +
    • +
+ +

LuaJIT 2.0.0-beta4 — 2010-03-28

+
    +
  • Correctness and completeness: +
      +
    • Fix precondition for on-trace creation of table keys.
      • +
    • Fix {f()} on x64 when table is resized.
      • +
    • Fix folding of ordered comparisons with same references.
      • +
    • Fix snapshot restores for multi-result bytecodes.
      • +
    • Fix potential hang when recording bytecode with nested closures.
      • +
    • Fix recording of getmetatable(), tonumber() and bad argument types.
      • +
    • Fix SLOAD fusion across returns to lower frames.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Add array bounds check elimination. -Oabc is enabled by default.
      • +
    • More tuning for x64, e.g. smaller table objects.
      • +
    • +
+ +

LuaJIT 2.0.0-beta3 — 2010-03-07

+
    +
  • LuaJIT x64 port: +
      +
    • Port integrated memory allocator to Linux/x64, Windows/x64 and OSX/x64.
      • +
    • Port interpreter and JIT compiler to x64.
      • +
    • Port DynASM to x64.
      • +
    • Many 32/64 bit cleanups in the VM.
      • +
    • Allow building the interpreter with either x87 or SSE2 arithmetics.
      • +
    • Add external unwinding and C++ exception interop (default on x64).
      • +
    • +
  • Correctness and completeness: +
      +
    • Fix constructor bytecode generation for certain conditional values.
      • +
    • Fix some cases of ordered string comparisons.
      • +
    • Fix lua_tocfunction().
      • +
    • Fix cutoff register in JMP bytecode for some conditional expressions.
      • +
    • Fix PHI marking algorithm for references from variant slots.
      • +
    • Fix package.cpath for non-default PREFIX.
      • +
    • Fix DWARF2 frame unwind information for interpreter on OSX.
      • +
    • Drive the GC forward on string allocations in the parser.
      • +
    • Implement call/return hooks (zero-cost if disabled).
      • +
    • Implement yield from C hooks.
      • +
    • Disable JIT compiler on older non-SSE2 CPUs instead of aborting.
      • +
    • +
  • Structural and performance enhancements: +
      +
    • Compile recursive code (tail-, up- and down-recursion).
      • +
    • Improve heuristics for bytecode penalties and blacklisting.
      • +
    • Split CALL/FUNC recording and clean up fast function call semantics.
      • +
    • Major redesign of internal function call handling.
      • +
    • Improve FOR loop const specialization and integerness checks.
      • +
    • Switch to pre-initialized stacks. Avoid frame-clearing.
      • +
    • Colocation of prototypes and related data: bytecode, constants, debug info.
      • +
    • Cleanup parser and streamline bytecode generation.
      • +
    • Add support for weak IR references to register allocator.
      • +
    • Switch to compressed, extensible snapshots.
      • +
    • Compile returns to frames below the start frame.
      • +
    • Improve alias analysis of upvalues using a disambiguation hash value.
      • +
    • Compile floor/ceil/trunc to SSE2 helper calls or SSE4.1 instructions.
      • +
    • Add generic C call handling to IR and backend.
      • +
    • Improve KNUM fuse vs. load heuristics.
      • +
    • Compile various io.*() functions.
      • +
    • Compile math.sinh(), math.cosh(), math.tanh() +and math.random().
      • +
    • +
+ +

LuaJIT 2.0.0-beta2 — 2009-11-09

+
    +
  • Reorganize build system. Build static+shared library on POSIX.
    • +
  • Allow C++ exception conversion on all platforms +using a wrapper function.
    • +
  • Automatically catch C++ exceptions and rethrow Lua error +(DWARF2 only).
    • +
  • Check for the correct x87 FPU precision at strategic points.
    • +
  • Always use wrappers for libm functions.
    • +
  • Resurrect metamethod name strings before copying them.
    • +
  • Mark current trace, even if compiler is idle.
    • +
  • Ensure FILE metatable is created only once.
    • +
  • Fix type comparisons when different integer types are involved.
    • +
  • Fix getmetatable() recording.
    • +
  • Fix TDUP with dead keys in template table.
    • +
  • jit.flush(tr) returns status. +Prevent manual flush of a trace that's still linked.
    • +
  • Improve register allocation heuristics for invariant references.
    • +
  • Compile the push/pop variants of table.insert() and +table.remove().
    • +
  • Compatibility with MSVC link /debug.
    • +
  • Fix lua_iscfunction().
    • +
  • Fix math.random() when compiled with -fpic (OSX).
    • +
  • Fix table.maxn().
    • +
  • Bump MACOSX_DEPLOYMENT_TARGET to 10.4
    • +
  • luaL_check*() and luaL_opt*() now support +negative arguments, too.
    +This matches the behavior of Lua 5.1, but not the specification.
    • +
+ +

LuaJIT 2.0.0-beta1 — 2009-10-31

+
    +
  • This is the first public release of LuaJIT 2.0.
    • +
  • The whole VM has been rewritten from the ground up, so there's +no point in listing differences over earlier versions.
    • +
+
+ +
+

LuaJIT 1.1.8 — 2012-04-16

+ + +

LuaJIT 1.1.7 — 2011-05-05

+ + +

LuaJIT 1.1.6 — 2010-03-28

+
    +
  • Added fixes for the +» currently known bugs in Lua 5.1.4.
    • +
  • Removed wrong GC check in jit_createstate(). +Thanks to Tim Mensch.
    • +
  • Fixed bad assertions while compiling table.insert() and +table.remove().
    • +
+ +

LuaJIT 1.1.5 — 2008-10-25

+ + +

LuaJIT 1.1.4 — 2008-02-05

+
    +
  • Merged with Lua 5.1.3. Fixes all +» known bugs in Lua 5.1.2.
    • +
  • Fixed possible (but unlikely) stack corruption while compiling +k^x expressions.
    • +
  • Fixed DynASM template for cmpss instruction.
    • +
+ +

LuaJIT 1.1.3 — 2007-05-24

+
    +
  • Merged with Lua 5.1.2. Fixes all +» known bugs in Lua 5.1.1.
    • +
  • Merged pending Lua 5.1.x fixes: "return -nil" bug, spurious count hook call.
    • +
  • Remove a (sometimes) wrong assertion in luaJIT_findpc().
    • +
  • DynASM now allows labels for displacements and .aword.
    • +
  • Fix some compiler warnings for DynASM glue (internal API change).
    • +
  • Correct naming for SSSE3 (temporarily known as SSE4) in DynASM and x86 disassembler.
    • +
  • The loadable debug modules now handle redirection to stdout +(e.g. -j trace=-).
    • +
+ +

LuaJIT 1.1.2 — 2006-06-24

+
    +
  • Fix MSVC inline assembly: use only local variables with +lua_number2int().
    • +
  • Fix "attempt to call a thread value" bug on Mac OS X: +make values of consts used as lightuserdata keys unique +to avoid joining by the compiler/linker.
    • +
+ +

LuaJIT 1.1.1 — 2006-06-20

+
    +
  • Merged with Lua 5.1.1. Fixes all +» known bugs in Lua 5.1.
    • +
  • Enforce (dynamic) linker error for EXE/DLL version mismatches.
    • +
  • Minor changes to DynASM: faster pre-processing, smaller encoding +for some immediates.
    • +
+

+This release is in sync with Coco 1.1.1 (see the +» Coco Change History). +

+ +

LuaJIT 1.1.0 — 2006-03-13

+
    +
  • Merged with Lua 5.1 (final).
    • + +
  • New JIT call frame setup: +
      +
    • The C stack is kept 16 byte aligned (faster). +Mandatory for Mac OS X on Intel, too.
      • +
    • Faster calling conventions for internal C helper functions.
      • +
    • Better instruction scheduling for function prologue, OP_CALL and +OP_RETURN.
      • +
    • + +
  • Miscellaneous optimizations: +
      +
    • Faster loads of FP constants. Remove narrow-to-wide store-to-load +forwarding stalls.
      • +
    • Use (scalar) SSE2 ops (if the CPU supports it) to speed up slot moves +and FP to integer conversions.
      • +
    • Optimized the two-argument form of OP_CONCAT (a..b).
      • +
    • Inlined OP_MOD (a%b). +With better accuracy than the C variant, too.
      • +
    • Inlined OP_POW (a^b). Unroll x^k or +use k^x = 2^(log2(k)*x) or call pow().
      • +
    • + +
  • Changes in the optimizer: +
      +
    • Improved hinting for table keys derived from table values +(t1[t2[x]]).
      • +
    • Lookup hinting now works with arbitrary object types and +supports index chains, too.
      • +
    • Generate type hints for arithmetic and comparison operators, +OP_LEN, OP_CONCAT and OP_FORPREP.
      • +
    • Remove several hint definitions in favour of a generic COMBINE hint.
      • +
    • Complete rewrite of jit.opt_inline module +(ex jit.opt_lib).
      • +
    • + +
  • Use adaptive deoptimization: +
      +
    • If runtime verification of a contract fails, the affected +instruction is recompiled and patched on-the-fly. +Regular programs will trigger deoptimization only occasionally.
      • +
    • This avoids generating code for uncommon fallback cases +most of the time. Generated code is up to 30% smaller compared to +LuaJIT 1.0.3.
      • +
    • Deoptimization is used for many opcodes and contracts: +
        +
      • OP_CALL, OP_TAILCALL: type mismatch for callable.
        • +
      • Inlined calls: closure mismatch, parameter number and type mismatches.
        • +
      • OP_GETTABLE, OP_SETTABLE: table or key type and range mismatches.
        • +
      • All arithmetic and comparison operators, OP_LEN, OP_CONCAT, +OP_FORPREP: operand type and range mismatches.
        • +
      • +
    • Complete redesign of the debug and traceback info +(bytecode ↔ mcode) to support deoptimization. +Much more flexible and needs only 50% of the space.
      • +
    • The modules jit.trace, jit.dumphints and +jit.dump handle deoptimization.
      • +
    • + +
  • Inlined many popular library functions +(for commonly used arguments only): +
      +
    • Most math.* functions (the 18 most used ones) +[2x-10x faster].
      • +
    • string.len, string.sub and string.char +[2x-10x faster].
      • +
    • table.insert, table.remove and table.getn +[3x-5x faster].
      • +
    • coroutine.yield and coroutine.resume +[3x-5x faster].
      • +
    • pairs, ipairs and the corresponding iterators +[8x-15x faster].
      • +
    • + +
  • Changes in the core and loadable modules and the stand-alone executable: +
      +
    • Added jit.version, jit.version_num +and jit.arch.
      • +
    • Reorganized some internal API functions (jit.util.*mcode*).
      • +
    • The -j dump output now shows JSUB names, too.
      • +
    • New x86 disassembler module written in pure Lua. No dependency +on ndisasm anymore. Flexible API, very compact (500 lines) +and complete (x87, MMX, SSE, SSE2, SSE3, SSSE3, privileged instructions).
      • +
    • luajit -v prints the LuaJIT version and copyright +on a separate line.
      • +
    • + +
  • Added SSE, SSE2, SSE3 and SSSE3 support to DynASM.
    • +
  • Miscellaneous doc changes. Added a section about +embedding LuaJIT.
    • +
+

+This release is in sync with Coco 1.1.0 (see the +» Coco Change History). +

+
+ +
+

LuaJIT 1.0.3 — 2005-09-08

+
    +
  • Even more docs.
    • +
  • Unified closure checks in jit.*.
    • +
  • Fixed some range checks in jit.util.*.
    • +
  • Fixed __newindex call originating from jit_settable_str().
    • +
  • Merged with Lua 5.1 alpha (including early bug fixes).
    • +
+

+This is the first public release of LuaJIT. +

+ +

LuaJIT 1.0.2 — 2005-09-02

+
    +
  • Add support for flushing the Valgrind translation cache
    +(MYCFLAGS= -DUSE_VALGRIND).
    • +
  • Add support for freeing executable mcode memory to the mmap()-based +variant for POSIX systems.
    • +
  • Reorganized the C function signature handling in +jit.opt_lib.
    • +
  • Changed to index-based hints for inlining C functions. +Still no support in the backend for inlining.
    • +
  • Hardcode HEAP_CREATE_ENABLE_EXECUTE value if undefined.
    • +
  • Misc. changes to the jit.* modules.
    • +
  • Misc. changes to the Makefiles.
    • +
  • Lots of new docs.
    • +
  • Complete doc reorg.
    • +
+

+Not released because Lua 5.1 alpha came out today. +

+ +

LuaJIT 1.0.1 — 2005-08-31

+
    +
  • Missing GC step in OP_CONCAT.
    • +
  • Fix result handling for C –> JIT calls.
    • +
  • Detect CPU feature bits.
    • +
  • Encode conditional moves (fucomip) only when supported.
    • +
  • Add fallback instructions for FP compares.
    • +
  • Add support for LUA_COMPAT_VARARG. Still disabled by default.
    • +
  • MSVC needs a specific place for the CALLBACK attribute +(David Burgess).
    • +
  • Misc. doc updates.
    • +
+

+Interim non-public release. +Special thanks to Adam D. Moss for reporting most of the bugs. +

+ +

LuaJIT 1.0.0 — 2005-08-29

+

+This is the initial non-public release of LuaJIT. +

+
+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/contact.html b/src/3rd party/luajit-2.0/doc/contact.html new file mode 100644 index 00000000000..0ef01a7c159 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/contact.html @@ -0,0 +1,102 @@ + + + +Contact + + + + + + + + +
+Lua +
+ + +
+

+Please send general questions to the +» LuaJIT mailing list. +You can also send any questions you have directly to me: +

+ + + + + +

Copyright

+

+All documentation is +Copyright © 2005-2015 Mike Pall. +

+ + +
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_c_api.html b/src/3rd party/luajit-2.0/doc/ext_c_api.html new file mode 100644 index 00000000000..65981806da0 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_c_api.html @@ -0,0 +1,187 @@ + + + +Lua/C API Extensions + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT adds some extensions to the standard Lua/C API. The LuaJIT include +directory must be in the compiler search path (-Ipath) +to be able to include the required header for C code: +

+
+#include "luajit.h"
+
+

+Or for C++ code: +

+
+#include "lua.hpp"
+
+ +

luaJIT_setmode(L, idx, mode) +— Control VM

+

+This is a C API extension to allow control of the VM from C code. The +full prototype of LuaJIT_setmode is: +

+
+LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode);
+
+

+The returned status is either success (1) or failure (0). +The second argument is either 0 or a stack index (similar to the +other Lua/C API functions). +

+

+The third argument specifies the mode, which is 'or'ed with a flag. +The flag can be LUAJIT_MODE_OFF to turn a feature on, +LUAJIT_MODE_ON to turn a feature off, or +LUAJIT_MODE_FLUSH to flush cached code. +

+

+The following modes are defined: +

+ +

luaJIT_setmode(L, 0, LUAJIT_MODE_ENGINE|flag)

+

+Turn the whole JIT compiler on or off or flush the whole cache of compiled code. +

+ +

luaJIT_setmode(L, idx, LUAJIT_MODE_FUNC|flag)
+luaJIT_setmode(L, idx, LUAJIT_MODE_ALLFUNC|flag)
+luaJIT_setmode(L, idx, LUAJIT_MODE_ALLSUBFUNC|flag)

+

+This sets the mode for the function at the stack index idx or +the parent of the calling function (idx = 0). It either +enables JIT compilation for a function, disables it and flushes any +already compiled code or only flushes already compiled code. This +applies recursively to all sub-functions of the function with +LUAJIT_MODE_ALLFUNC or only to the sub-functions with +LUAJIT_MODE_ALLSUBFUNC. +

+ +

luaJIT_setmode(L, trace,
+  LUAJIT_MODE_TRACE|LUAJIT_MODE_FLUSH)

+

+Flushes the specified root trace and all of its side traces from the cache. +The code for the trace will be retained as long as there are any other +traces which link to it. +

+ +

luaJIT_setmode(L, idx, LUAJIT_MODE_WRAPCFUNC|flag)

+

+This mode defines a wrapper function for calls to C functions. If +called with LUAJIT_MODE_ON, the stack index at idx +must be a lightuserdata object holding a pointer to the wrapper +function. From now on all C functions are called through the wrapper +function. If called with LUAJIT_MODE_OFF this mode is turned +off and all C functions are directly called. +

+

+The wrapper function can be used for debugging purposes or to catch +and convert foreign exceptions. But please read the section on +C++ exception interoperability +first. Recommended usage can be seen in this C++ code excerpt: +

+
+#include <exception>
+#include "lua.hpp"
+
+// Catch C++ exceptions and convert them to Lua error messages.
+// Customize as needed for your own exception classes.
+static int wrap_exceptions(lua_State *L, lua_CFunction f)
+{
+  try {
+    return f(L);  // Call wrapped function and return result.
+  } catch (const char *s) {  // Catch and convert exceptions.
+    lua_pushstring(L, s);
+  } catch (std::exception& e) {
+    lua_pushstring(L, e.what());
+  } catch (...) {
+    lua_pushliteral(L, "caught (...)");
+  }
+  return lua_error(L);  // Rethrow as a Lua error.
+}
+
+static int myinit(lua_State *L)
+{
+  ...
+  // Define wrapper function and enable it.
+  lua_pushlightuserdata(L, (void *)wrap_exceptions);
+  luaJIT_setmode(L, -1, LUAJIT_MODE_WRAPCFUNC|LUAJIT_MODE_ON);
+  lua_pop(L, 1);
+  ...
+}
+
+

+Note that you can only define a single global wrapper function, +so be careful when using this mechanism from multiple C++ modules. +Also note that this mechanism is not without overhead. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi.html b/src/3rd party/luajit-2.0/doc/ext_ffi.html new file mode 100644 index 00000000000..77b8e26c567 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_ffi.html @@ -0,0 +1,330 @@ + + + +FFI Library + + + + + + + + +
+Lua +
+ + +
+

+ +The FFI library allows calling external C functions and +using C data structures from pure Lua code. + +

+

+ +The FFI library largely obviates the need to write tedious manual +Lua/C bindings in C. No need to learn a separate binding language +— it parses plain C declarations! These can be +cut-n-pasted from C header files or reference manuals. It's up to +the task of binding large libraries without the need for dealing with +fragile binding generators. + +

+

+The FFI library is tightly integrated into LuaJIT (it's not available +as a separate module). The code generated by the JIT-compiler for +accesses to C data structures from Lua code is on par with the +code a C compiler would generate. Calls to C functions can +be inlined in JIT-compiled code, unlike calls to functions bound via +the classic Lua/C API. +

+

+This page gives a short introduction to the usage of the FFI library. +Please use the FFI sub-topics in the navigation bar to learn more. +

+ +

Motivating Example: Calling External C Functions

+

+It's really easy to call an external C library function: +

+
+①
+②
+
+
+③local ffi = require("ffi")
+ffi.cdef[[
+int printf(const char *fmt, ...);
+]]
+ffi.C.printf("Hello %s!", "world")
+
+

+So, let's pick that apart: +

+

+① Load the FFI library. +

+

+② Add a C declaration +for the function. The part inside the double-brackets (in green) is +just standard C syntax. +

+

+③ Call the named +C function — Yes, it's that simple! +

+

+Actually, what goes on behind the scenes is far from simple: ③ makes use of the standard +C library namespace ffi.C. Indexing this namespace with +a symbol name ("printf") automatically binds it to the +standard C library. The result is a special kind of object which, +when called, runs the printf function. The arguments passed +to this function are automatically converted from Lua objects to the +corresponding C types. +

+

+Ok, so maybe the use of printf() wasn't such a spectacular +example. You could have done that with io.write() and +string.format(), too. But you get the idea ... +

+

+So here's something to pop up a message box on Windows: +

+
+local ffi = require("ffi")
+ffi.cdef[[
+int MessageBoxA(void *w, const char *txt, const char *cap, int type);
+]]
+ffi.C.MessageBoxA(nil, "Hello world!", "Test", 0)
+
+

+Bing! Again, that was far too easy, no? +

+

+Compare this with the effort required to bind that function using the +classic Lua/C API: create an extra C file, add a C function +that retrieves and checks the argument types passed from Lua and calls +the actual C function, add a list of module functions and their +names, add a luaopen_* function and register all module +functions, compile and link it into a shared library (DLL), move it to +the proper path, add Lua code that loads the module aaaand ... finally +call the binding function. Phew! +

+ +

Motivating Example: Using C Data Structures

+

+The FFI library allows you to create and access C data +structures. Of course the main use for this is for interfacing with +C functions. But they can be used stand-alone, too. +

+

+Lua is built upon high-level data types. They are flexible, extensible +and dynamic. That's why we all love Lua so much. Alas, this can be +inefficient for certain tasks, where you'd really want a low-level +data type. E.g. a large array of a fixed structure needs to be +implemented with a big table holding lots of tiny tables. This imposes +both a substantial memory overhead as well as a performance overhead. +

+

+Here's a sketch of a library that operates on color images plus a +simple benchmark. First, the plain Lua version: +

+
+local floor = math.floor
+
+local function image_ramp_green(n)
+  local img = {}
+  local f = 255/(n-1)
+  for i=1,n do
+    img[i] = { red = 0, green = floor((i-1)*f), blue = 0, alpha = 255 }
+  end
+  return img
+end
+
+local function image_to_grey(img, n)
+  for i=1,n do
+    local y = floor(0.3*img[i].red + 0.59*img[i].green + 0.11*img[i].blue)
+    img[i].red = y; img[i].green = y; img[i].blue = y
+  end
+end
+
+local N = 400*400
+local img = image_ramp_green(N)
+for i=1,1000 do
+  image_to_grey(img, N)
+end
+
+

+This creates a table with 160.000 pixels, each of which is a table +holding four number values in the range of 0-255. First an image with +a green ramp is created (1D for simplicity), then the image is +converted to greyscale 1000 times. Yes, that's silly, but I was in +need of a simple example ... +

+

+And here's the FFI version. The modified parts have been marked in +bold: +

+
+①
+
+
+
+
+
+②
+
+③
+④
+
+
+
+
+
+
+③
+⑤local ffi = require("ffi")
+ffi.cdef[[
+typedef struct { uint8_t red, green, blue, alpha; } rgba_pixel;
+]]
+
+local function image_ramp_green(n)
+  local img = ffi.new("rgba_pixel[?]", n)
+  local f = 255/(n-1)
+  for i=0,n-1 do
+    img[i].green = i*f
+    img[i].alpha = 255
+  end
+  return img
+end
+
+local function image_to_grey(img, n)
+  for i=0,n-1 do
+    local y = 0.3*img[i].red + 0.59*img[i].green + 0.11*img[i].blue
+    img[i].red = y; img[i].green = y; img[i].blue = y
+  end
+end
+
+local N = 400*400
+local img = image_ramp_green(N)
+for i=1,1000 do
+  image_to_grey(img, N)
+end
+
+

+Ok, so that wasn't too difficult: +

+

+① First, load the FFI +library and declare the low-level data type. Here we choose a +struct which holds four byte fields, one for each component +of a 4x8 bit RGBA pixel. +

+

+② Creating the data +structure with ffi.new() is straightforward — the +'?' is a placeholder for the number of elements of a +variable-length array. +

+

+③ C arrays are +zero-based, so the indexes have to run from 0 to +n-1. One might want to allocate one more element instead to +simplify converting legacy code. +

+

+④ Since ffi.new() +zero-fills the array by default, we only need to set the green and the +alpha fields. +

+

+⑤ The calls to +math.floor() can be omitted here, because floating-point +numbers are already truncated towards zero when converting them to an +integer. This happens implicitly when the number is stored in the +fields of each pixel. +

+

+Now let's have a look at the impact of the changes: first, memory +consumption for the image is down from 22 Megabytes to +640 Kilobytes (400*400*4 bytes). That's a factor of 35x less! So, +yes, tables do have a noticeable overhead. BTW: The original program +would consume 40 Megabytes in plain Lua (on x64). +

+

+Next, performance: the pure Lua version runs in 9.57 seconds (52.9 +seconds with the Lua interpreter) and the FFI version runs in 0.48 +seconds on my machine (YMMV). That's a factor of 20x faster (110x +faster than the Lua interpreter). +

+

+The avid reader may notice that converting the pure Lua version over +to use array indexes for the colors ([1] instead of +.red, [2] instead of .green etc.) ought to +be more compact and faster. This is certainly true (by a factor of +~1.7x). Switching to a struct-of-arrays would help, too. +

+

+However the resulting code would be less idiomatic and rather +error-prone. And it still doesn't get even close to the performance of +the FFI version of the code. Also, high-level data structures cannot +be easily passed to other C functions, especially I/O functions, +without undue conversion penalties. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_api.html b/src/3rd party/luajit-2.0/doc/ext_ffi_api.html new file mode 100644 index 00000000000..8f577e9fea6 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_api.html @@ -0,0 +1,566 @@ + + + +ffi.* API Functions + + + + + + + + + +
+Lua +
+ + +
+

+This page describes the API functions provided by the FFI library in +detail. It's recommended to read through the +introduction and the +FFI tutorial first. +

+ +

Glossary

+
    +
  • cdecl — An abstract C type declaration (a Lua +string).
    • +
  • ctype — A C type object. This is a special kind of +cdata returned by ffi.typeof(). It serves as a +cdata constructor when called.
    • +
  • cdata — A C data object. It holds a value of the +corresponding ctype.
    • +
  • ct — A C type specification which can be used for +most of the API functions. Either a cdecl, a ctype or a +cdata serving as a template type.
    • +
  • cb — A callback object. This is a C data object +holding a special function pointer. Calling this function from +C code runs an associated Lua function.
    • +
  • VLA — A variable-length array is declared with a +? instead of the number of elements, e.g. "int[?]". +The number of elements (nelem) must be given when it's +created.
    • +
  • VLS — A variable-length struct is a struct C +type where the last element is a VLA. The same rules for +declaration and creation apply.
    • +
+ +

Declaring and Accessing External Symbols

+

+External symbols must be declared first and can then be accessed by +indexing a C library +namespace, which automatically binds the symbol to a specific +library. +

+ +

ffi.cdef(def)

+

+Adds multiple C declarations for types or external symbols (named +variables or functions). def must be a Lua string. It's +recommended to use the syntactic sugar for string arguments as +follows: +

+
+ffi.cdef[[
+typedef struct foo { int a, b; } foo_t;  // Declare a struct and typedef.
+int dofoo(foo_t *f, int n);  /* Declare an external C function. */
+]]
+
+

+The contents of the string (the part in green above) must be a +sequence of +C declarations, +separated by semicolons. The trailing semicolon for a single +declaration may be omitted. +

+

+Please note that external symbols are only declared, but they +are not bound to any specific address, yet. Binding is +achieved with C library namespaces (see below). +

+

+C declarations are not passed through a C pre-processor, +yet. No pre-processor tokens are allowed, except for +#pragma pack. Replace #define in existing +C header files with enum, static const +or typedef and/or pass the files through an external +C pre-processor (once). Be careful not to include unneeded or +redundant declarations from unrelated header files. +

+ +

ffi.C

+

+This is the default C library namespace — note the +uppercase 'C'. It binds to the default set of symbols or +libraries on the target system. These are more or less the same as a +C compiler would offer by default, without specifying extra link +libraries. +

+

+On POSIX systems, this binds to symbols in the default or global +namespace. This includes all exported symbols from the executable and +any libraries loaded into the global namespace. This includes at least +libc, libm, libdl (on Linux), +libgcc (if compiled with GCC), as well as any exported +symbols from the Lua/C API provided by LuaJIT itself. +

+

+On Windows systems, this binds to symbols exported from the +*.exe, the lua51.dll (i.e. the Lua/C API +provided by LuaJIT itself), the C runtime library LuaJIT was linked +with (msvcrt*.dll), kernel32.dll, +user32.dll and gdi32.dll. +

+ +

clib = ffi.load(name [,global])

+

+This loads the dynamic library given by name and returns +a new C library namespace which binds to its symbols. On POSIX +systems, if global is true, the library symbols are +loaded into the global namespace, too. +

+

+If name is a path, the library is loaded from this path. +Otherwise name is canonicalized in a system-dependent way and +searched in the default search path for dynamic libraries: +

+

+On POSIX systems, if the name contains no dot, the extension +.so is appended. Also, the lib prefix is prepended +if necessary. So ffi.load("z") looks for "libz.so" +in the default shared library search path. +

+

+On Windows systems, if the name contains no dot, the extension +.dll is appended. So ffi.load("ws2_32") looks for +"ws2_32.dll" in the default DLL search path. +

+ +

Creating cdata Objects

+

+The following API functions create cdata objects (type() +returns "cdata"). All created cdata objects are +garbage collected. +

+ +

cdata = ffi.new(ct [,nelem] [,init...])
+cdata = ctype([nelem,] [init...])

+

+Creates a cdata object for the given ct. VLA/VLS types +require the nelem argument. The second syntax uses a ctype as +a constructor and is otherwise fully equivalent. +

+

+The cdata object is initialized according to the +rules for initializers, +using the optional init arguments. Excess initializers cause +an error. +

+

+Performance notice: if you want to create many objects of one kind, +parse the cdecl only once and get its ctype with +ffi.typeof(). Then use the ctype as a constructor repeatedly. +

+

+Please note that an anonymous struct declaration implicitly +creates a new and distinguished ctype every time you use it for +ffi.new(). This is probably not what you want, +especially if you create more than one cdata object. Different anonymous +structs are not considered assignment-compatible by the +C standard, even though they may have the same fields! Also, they +are considered different types by the JIT-compiler, which may cause an +excessive number of traces. It's strongly suggested to either declare +a named struct or typedef with ffi.cdef() +or to create a single ctype object for an anonymous struct +with ffi.typeof(). +

+ +

ctype = ffi.typeof(ct)

+

+Creates a ctype object for the given ct. +

+

+This function is especially useful to parse a cdecl only once and then +use the resulting ctype object as a constructor. +

+ +

cdata = ffi.cast(ct, init)

+

+Creates a scalar cdata object for the given ct. The cdata +object is initialized with init using the "cast" variant of +the C type conversion +rules. +

+

+This functions is mainly useful to override the pointer compatibility +checks or to convert pointers to addresses or vice versa. +

+ +

ctype = ffi.metatype(ct, metatable)

+

+Creates a ctype object for the given ct and associates it with +a metatable. Only struct/union types, complex numbers +and vectors are allowed. Other types may be wrapped in a +struct, if needed. +

+

+The association with a metatable is permanent and cannot be changed +afterwards. Neither the contents of the metatable nor the +contents of an __index table (if any) may be modified +afterwards. The associated metatable automatically applies to all uses +of this type, no matter how the objects are created or where they +originate from. Note that pre-defined operations on types have +precedence (e.g. declared field names cannot be overriden). +

+

+All standard Lua metamethods are implemented. These are called directly, +without shortcuts and on any mix of types. For binary operations, the +left operand is checked first for a valid ctype metamethod. The +__gc metamethod only applies to struct/union +types and performs an implicit ffi.gc() +call during creation of an instance. +

+ +

cdata = ffi.gc(cdata, finalizer)

+

+Associates a finalizer with a pointer or aggregate cdata object. The +cdata object is returned unchanged. +

+

+This function allows safe integration of unmanaged resources into the +automatic memory management of the LuaJIT garbage collector. Typical +usage: +

+
+local p = ffi.gc(ffi.C.malloc(n), ffi.C.free)
+...
+p = nil -- Last reference to p is gone.
+-- GC will eventually run finalizer: ffi.C.free(p)
+
+

+A cdata finalizer works like the __gc metamethod for userdata +objects: when the last reference to a cdata object is gone, the +associated finalizer is called with the cdata object as an argument. The +finalizer can be a Lua function or a cdata function or cdata function +pointer. An existing finalizer can be removed by setting a nil +finalizer, e.g. right before explicitly deleting a resource: +

+
+ffi.C.free(ffi.gc(p, nil)) -- Manually free the memory.
+
+ +

C Type Information

+

+The following API functions return information about C types. +They are most useful for inspecting cdata objects. +

+ +

size = ffi.sizeof(ct [,nelem])

+

+Returns the size of ct in bytes. Returns nil if +the size is not known (e.g. for "void" or function types). +Requires nelem for VLA/VLS types, except for cdata objects. +

+ +

align = ffi.alignof(ct)

+

+Returns the minimum required alignment for ct in bytes. +

+ +

ofs [,bpos,bsize] = ffi.offsetof(ct, field)

+

+Returns the offset (in bytes) of field relative to the start +of ct, which must be a struct. Additionally returns +the position and the field size (in bits) for bit fields. +

+ +

status = ffi.istype(ct, obj)

+

+Returns true if obj has the C type given by +ct. Returns false otherwise. +

+

+C type qualifiers (const etc.) are ignored. Pointers are +checked with the standard pointer compatibility rules, but without any +special treatment for void *. If ct specifies a +struct/union, then a pointer to this type is accepted, +too. Otherwise the types must match exactly. +

+

+Note: this function accepts all kinds of Lua objects for the +obj argument, but always returns false for non-cdata +objects. +

+ +

Utility Functions

+ +

err = ffi.errno([newerr])

+

+Returns the error number set by the last C function call which +indicated an error condition. If the optional newerr argument +is present, the error number is set to the new value and the previous +value is returned. +

+

+This function offers a portable and OS-independent way to get and set the +error number. Note that only some C functions set the error +number. And it's only significant if the function actually indicated an +error condition (e.g. with a return value of -1 or +NULL). Otherwise, it may or may not contain any previously set +value. +

+

+You're advised to call this function only when needed and as close as +possible after the return of the related C function. The +errno value is preserved across hooks, memory allocations, +invocations of the JIT compiler and other internal VM activity. The same +applies to the value returned by GetLastError() on Windows, but +you need to declare and call it yourself. +

+ +

str = ffi.string(ptr [,len])

+

+Creates an interned Lua string from the data pointed to by +ptr. +

+

+If the optional argument len is missing, ptr is +converted to a "char *" and the data is assumed to be +zero-terminated. The length of the string is computed with +strlen(). +

+

+Otherwise ptr is converted to a "void *" and +len gives the length of the data. The data may contain +embedded zeros and need not be byte-oriented (though this may cause +endianess issues). +

+

+This function is mainly useful to convert (temporary) +"const char *" pointers returned by +C functions to Lua strings and store them or pass them to other +functions expecting a Lua string. The Lua string is an (interned) copy +of the data and bears no relation to the original data area anymore. +Lua strings are 8 bit clean and may be used to hold arbitrary, +non-character data. +

+

+Performance notice: it's faster to pass the length of the string, if +it's known. E.g. when the length is returned by a C call like +sprintf(). +

+ +

ffi.copy(dst, src, len)
+ffi.copy(dst, str)

+

+Copies the data pointed to by src to dst. +dst is converted to a "void *" and src +is converted to a "const void *". +

+

+In the first syntax, len gives the number of bytes to copy. +Caveat: if src is a Lua string, then len must not +exceed #src+1. +

+

+In the second syntax, the source of the copy must be a Lua string. All +bytes of the string plus a zero-terminator are copied to +dst (i.e. #src+1 bytes). +

+

+Performance notice: ffi.copy() may be used as a faster +(inlinable) replacement for the C library functions +memcpy(), strcpy() and strncpy(). +

+ +

ffi.fill(dst, len [,c])

+

+Fills the data pointed to by dst with len constant +bytes, given by c. If c is omitted, the data is +zero-filled. +

+

+Performance notice: ffi.fill() may be used as a faster +(inlinable) replacement for the C library function +memset(dst, c, len). Please note the different +order of arguments! +

+ +

Target-specific Information

+ +

status = ffi.abi(param)

+

+Returns true if param (a Lua string) applies for the +target ABI (Application Binary Interface). Returns false +otherwise. The following parameters are currently defined: +

+ + + + + + + + + + + + + + + + + + + + + + + +
ParameterDescription
32bit32 bit architecture
64bit64 bit architecture
leLittle-endian architecture
beBig-endian architecture
fpuTarget has a hardware FPU
softfpsoftfp calling conventions
hardfphardfp calling conventions
eabiEABI variant of the standard ABI
winWindows variant of the standard ABI
+ +

ffi.os

+

+Contains the target OS name. Same contents as +jit.os. +

+ +

ffi.arch

+

+Contains the target architecture name. Same contents as +jit.arch. +

+ +

Methods for Callbacks

+

+The C types for callbacks +have some extra methods: +

+ +

cb:free()

+

+Free the resources associated with a callback. The associated Lua +function is unanchored and may be garbage collected. The callback +function pointer is no longer valid and must not be called anymore +(it may be reused by a subsequently created callback). +

+ +

cb:set(func)

+

+Associate a new Lua function with a callback. The C type of the +callback and the callback function pointer are unchanged. +

+

+This method is useful to dynamically switch the receiver of callbacks +without creating a new callback each time and registering it again (e.g. +with a GUI library). +

+ +

Extended Standard Library Functions

+

+The following standard library functions have been extended to work +with cdata objects: +

+ +

n = tonumber(cdata)

+

+Converts a number cdata object to a double and returns it as +a Lua number. This is particularly useful for boxed 64 bit +integer values. Caveat: this conversion may incur a precision loss. +

+ +

s = tostring(cdata)

+

+Returns a string representation of the value of 64 bit integers +("nnnLL" or "nnnULL") or +complex numbers ("re±imi"). Otherwise +returns a string representation of the C type of a ctype object +("ctype<type>") or a cdata object +("cdata<type>: address"), unless you +override it with a __tostring metamethod (see +ffi.metatype()). +

+ +

iter, obj, start = pairs(cdata)
+iter, obj, start = ipairs(cdata)

+

+Calls the __pairs or __ipairs metamethod of the +corresponding ctype. +

+ +

Extensions to the Lua Parser

+

+The parser for Lua source code treats numeric literals with the +suffixes LL or ULL as signed or unsigned 64 bit +integers. Case doesn't matter, but uppercase is recommended for +readability. It handles both decimal (42LL) and hexadecimal +(0x2aLL) literals. +

+

+The imaginary part of complex numbers can be specified by suffixing +number literals with i or I, e.g. 12.5i. +Caveat: you'll need to use 1i to get an imaginary part with +the value one, since i itself still refers to a variable +named i. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html b/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html new file mode 100644 index 00000000000..c267b555668 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html @@ -0,0 +1,1245 @@ + + + +FFI Semantics + + + + + + + + + +
+Lua +
+ + +
+

+This page describes the detailed semantics underlying the FFI library +and its interaction with both Lua and C code. +

+

+Given that the FFI library is designed to interface with C code +and that declarations can be written in plain C syntax, it +closely follows the C language semantics, wherever possible. +Some minor concessions are needed for smoother interoperation with Lua +language semantics. +

+

+Please don't be overwhelmed by the contents of this page — this +is a reference and you may need to consult it, if in doubt. It doesn't +hurt to skim this page, but most of the semantics "just work" as you'd +expect them to work. It should be straightforward to write +applications using the LuaJIT FFI for developers with a C or C++ +background. +

+ +

C Language Support

+

+The FFI library has a built-in C parser with a minimal memory +footprint. It's used by the ffi.* library +functions to declare C types or external symbols. +

+

+It's only purpose is to parse C declarations, as found e.g. in +C header files. Although it does evaluate constant expressions, +it's not a C compiler. The body of inline +C function definitions is simply ignored. +

+

+Also, this is not a validating C parser. It expects and +accepts correctly formed C declarations, but it may choose to +ignore bad declarations or show rather generic error messages. If in +doubt, please check the input against your favorite C compiler. +

+

+The C parser complies to the C99 language standard plus +the following extensions: +

+
    + +
  • The '\e' escape in character and string literals.
    • + +
  • The C99/C++ boolean type, declared with the keywords bool +or _Bool.
    • + +
  • Complex numbers, declared with the keywords complex or +_Complex.
    • + +
  • Two complex number types: complex (aka +complex double) and complex float.
    • + +
  • Vector types, declared with the GCC mode or +vector_size attribute.
    • + +
  • Unnamed ('transparent') struct/union fields +inside a struct/union.
    • + +
  • Incomplete enum declarations, handled like incomplete +struct declarations.
    • + +
  • Unnamed enum fields inside a +struct/union. This is similar to a scoped C++ +enum, except that declared constants are visible in the +global namespace, too.
    • + +
  • Scoped static const declarations inside a +struct/union (from C++).
    • + +
  • Zero-length arrays ([0]), empty +struct/union, variable-length arrays (VLA, +[?]) and variable-length structs (VLS, with a trailing +VLA).
    • + +
  • C++ reference types (int &x).
    • + +
  • Alternate GCC keywords with '__', e.g. +__const__.
    • + +
  • GCC __attribute__ with the following attributes: +aligned, packed, mode, +vector_size, cdecl, fastcall, +stdcall, thiscall.
    • + +
  • The GCC __extension__ keyword and the GCC +__alignof__ operator.
    • + +
  • GCC __asm__("symname") symbol name redirection for +function declarations.
    • + +
  • MSVC keywords for fixed-length types: __int8, +__int16, __int32 and __int64.
    • + +
  • MSVC __cdecl, __fastcall, __stdcall, +__thiscall, __ptr32, __ptr64, +__declspec(align(n)) and #pragma pack.
    • + +
  • All other GCC/MSVC-specific attributes are ignored.
    • + +
+

+The following C types are pre-defined by the C parser (like +a typedef, except re-declarations will be ignored): +

+
    + +
  • Vararg handling: va_list, __builtin_va_list, +__gnuc_va_list.
    • + +
  • From <stddef.h>: ptrdiff_t, +size_t, wchar_t.
    • + +
  • From <stdint.h>: int8_t, int16_t, +int32_t, int64_t, uint8_t, +uint16_t, uint32_t, uint64_t, +intptr_t, uintptr_t.
    • + +
+

+You're encouraged to use these types in preference to +compiler-specific extensions or target-dependent standard types. +E.g. char differs in signedness and long differs in +size, depending on the target architecture and platform ABI. +

+

+The following C features are not supported: +

+
    + +
  • A declaration must always have a type specifier; it doesn't +default to an int type.
    • + +
  • Old-style empty function declarations (K&R) are not allowed. +All C functions must have a proper prototype declaration. A +function declared without parameters (int foo();) is +treated as a function taking zero arguments, like in C++.
    • + +
  • The long double C type is parsed correctly, but +there's no support for the related conversions, accesses or arithmetic +operations.
    • + +
  • Wide character strings and character literals are not +supported.
    • + +
  • See below for features that are currently +not implemented.
    • + +
+ +

C Type Conversion Rules

+ +

Conversions from C types to Lua objects

+

+These conversion rules apply for read accesses to +C types: indexing pointers, arrays or +struct/union types; reading external variables or +constant values; retrieving return values from C calls: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
InputConversionOutput
int8_t, int16_t→sign-ext int32_t → doublenumber
uint8_t, uint16_t→zero-ext int32_t → doublenumber
int32_t, uint32_t→ doublenumber
int64_t, uint64_tboxed value64 bit int cdata
double, float→ doublenumber
bool0 → false, otherwise trueboolean
enumboxed valueenum cdata
Complex numberboxed valuecomplex cdata
Vectorboxed valuevector cdata
Pointerboxed valuepointer cdata
Arrayboxed referencereference cdata
struct/unionboxed referencereference cdata
+

+Bitfields are treated like their underlying type. +

+

+Reference types are dereferenced before a conversion can take +place — the conversion is applied to the C type pointed to +by the reference. +

+ +

Conversions from Lua objects to C types

+

+These conversion rules apply for write accesses to +C types: indexing pointers, arrays or +struct/union types; initializing cdata objects; +casts to C types; writing to external variables; passing +arguments to C calls: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
InputConversionOutput
number→double
booleanfalse → 0, true → 1bool
nilNULL →(void *)
lightuserdatalightuserdata address →(void *)
userdatauserdata payload →(void *)
io.* fileget FILE * handle →(void *)
stringmatch against enum constantenum
stringcopy string data + zero-byteint8_t[], uint8_t[]
stringstring data →const char[]
functioncreate callback →C function type
tabletable initializerArray
tabletable initializerstruct/union
cdatacdata payload →C type
+

+If the result type of this conversion doesn't match the +C type of the destination, the +conversion rules between C types +are applied. +

+

+Reference types are immutable after initialization ("no re-seating of +references"). For initialization purposes or when passing values to +reference parameters, they are treated like pointers. Note that unlike +in C++, there's no way to implement automatic reference generation of +variables under the Lua language semantics. If you want to call a +function with a reference parameter, you need to explicitly pass a +one-element array. +

+ +

Conversions between C types

+

+These conversion rules are more or less the same as the standard +C conversion rules. Some rules only apply to casts, or require +pointer or type compatibility: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
InputConversionOutput
Signed integer→narrow or sign-extendInteger
Unsigned integer→narrow or zero-extendInteger
Integer→rounddouble, float
double, float→trunc int32_t →narrow(u)int8_t, (u)int16_t
double, float→trunc(u)int32_t, (u)int64_t
double, float→roundfloat, double
Numbern == 0 → 0, otherwise 1bool
boolfalse → 0, true → 1Number
Complex numberconvert real partNumber
Numberconvert real part, imag = 0Complex number
Complex numberconvert real and imag partComplex number
Numberconvert scalar and replicateVector
Vectorcopy (same size)Vector
struct/uniontake base address (compat)Pointer
Arraytake base address (compat)Pointer
Functiontake function addressFunction pointer
Numberconvert via uintptr_t (cast)Pointer
Pointerconvert address (compat/cast)Pointer
Pointerconvert address (cast)Integer
Arrayconvert base address (cast)Integer
Arraycopy (compat)Array
struct/unioncopy (identical type)struct/union
+

+Bitfields or enum types are treated like their underlying +type. +

+

+Conversions not listed above will raise an error. E.g. it's not +possible to convert a pointer to a complex number or vice versa. +

+ +

Conversions for vararg C function arguments

+

+The following default conversion rules apply when passing Lua objects +to the variable argument part of vararg C functions: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
InputConversionOutput
number→double
booleanfalse → 0, true → 1bool
nilNULL →(void *)
userdatauserdata payload →(void *)
lightuserdatalightuserdata address →(void *)
stringstring data →const char *
float cdata→double
Array cdatatake base addressElement pointer
struct/union cdatatake base addressstruct/union pointer
Function cdatatake function addressFunction pointer
Any other cdatano conversionC type
+

+To pass a Lua object, other than a cdata object, as a specific type, +you need to override the conversion rules: create a temporary cdata +object with a constructor or a cast and initialize it with the value +to pass: +

+

+Assuming x is a Lua number, here's how to pass it as an +integer to a vararg function: +

+
+ffi.cdef[[
+int printf(const char *fmt, ...);
+]]
+ffi.C.printf("integer value: %d\n", ffi.new("int", x))
+
+

+If you don't do this, the default Lua number → double +conversion rule applies. A vararg C function expecting an integer +will see a garbled or uninitialized value. +

+ +

Initializers

+

+Creating a cdata object with +ffi.new() or the +equivalent constructor syntax always initializes its contents, too. +Different rules apply, depending on the number of optional +initializers and the C types involved: +

+
    +
  • If no initializers are given, the object is filled with zero bytes.
    • + +
  • Scalar types (numbers and pointers) accept a single initializer. +The Lua object is converted to the scalar +C type.
    • + +
  • Valarrays (complex numbers and vectors) are treated like scalars +when a single initializer is given. Otherwise they are treated like +regular arrays.
    • + +
  • Aggregate types (arrays and structs) accept either a single cdata +initializer of the same type (copy constructor), a single +table initializer, or a flat list of +initializers.
    • + +
  • The elements of an array are initialized, starting at index zero. +If a single initializer is given for an array, it's repeated for all +remaining elements. This doesn't happen if two or more initializers +are given: all remaining uninitialized elements are filled with zero +bytes.
    • + +
  • Byte arrays may also be initialized with a Lua string. This copies +the whole string plus a terminating zero-byte. The copy stops early only +if the array has a known, fixed size.
    • + +
  • The fields of a struct are initialized in the order of +their declaration. Uninitialized fields are filled with zero +bytes.
    • + +
  • Only the first field of a union can be initialized with a +flat initializer.
    • + +
  • Elements or fields which are aggregates themselves are initialized +with a single initializer, but this may be a table +initializer or a compatible aggregate.
    • + +
  • Excess initializers cause an error.
    • + +
+ +

Table Initializers

+

+The following rules apply if a Lua table is used to initialize an +Array or a struct/union: +

+
    + +
  • If the table index [0] is non-nil, then the +table is assumed to be zero-based. Otherwise it's assumed to be +one-based.
    • + +
  • Array elements, starting at index zero, are initialized one-by-one +with the consecutive table elements, starting at either index +[0] or [1]. This process stops at the first +nil table element.
    • + +
  • If exactly one array element was initialized, it's repeated for +all the remaining elements. Otherwise all remaining uninitialized +elements are filled with zero bytes.
    • + +
  • The above logic only applies to arrays with a known fixed size. +A VLA is only initialized with the element(s) given in the table. +Depending on the use case, you may need to explicitly add a +NULL or 0 terminator to a VLA.
    • + +
  • A struct/union can be initialized in the +order of the declaration of its fields. Each field is initialized with +consecutive table elements, starting at either index [0] +or [1]. This process stops at the first nil table +element.
    • + +
  • Otherwise, if neither index [0] nor [1] is present, +a struct/union is initialized by looking up each field +name (as a string key) in the table. Each non-nil value is +used to initialize the corresponding field.
    • + +
  • Uninitialized fields of a struct are filled with zero +bytes, except for the trailing VLA of a VLS.
    • + +
  • Initialization of a union stops after one field has been +initialized. If no field has been initialized, the union is +filled with zero bytes.
    • + +
  • Elements or fields which are aggregates themselves are initialized +with a single initializer, but this may be a nested table +initializer (or a compatible aggregate).
    • + +
  • Excess initializers for an array cause an error. Excess +initializers for a struct/union are ignored. +Unrelated table entries are ignored, too.
    • + +
+

+Example: +

+
+local ffi = require("ffi")
+
+ffi.cdef[[
+struct foo { int a, b; };
+union bar { int i; double d; };
+struct nested { int x; struct foo y; };
+]]
+
+ffi.new("int[3]", {})            --> 0, 0, 0
+ffi.new("int[3]", {1})           --> 1, 1, 1
+ffi.new("int[3]", {1,2})         --> 1, 2, 0
+ffi.new("int[3]", {1,2,3})       --> 1, 2, 3
+ffi.new("int[3]", {[0]=1})       --> 1, 1, 1
+ffi.new("int[3]", {[0]=1,2})     --> 1, 2, 0
+ffi.new("int[3]", {[0]=1,2,3})   --> 1, 2, 3
+ffi.new("int[3]", {[0]=1,2,3,4}) --> error: too many initializers
+
+ffi.new("struct foo", {})            --> a = 0, b = 0
+ffi.new("struct foo", {1})           --> a = 1, b = 0
+ffi.new("struct foo", {1,2})         --> a = 1, b = 2
+ffi.new("struct foo", {[0]=1,2})     --> a = 1, b = 2
+ffi.new("struct foo", {b=2})         --> a = 0, b = 2
+ffi.new("struct foo", {a=1,b=2,c=3}) --> a = 1, b = 2  'c' is ignored
+
+ffi.new("union bar", {})        --> i = 0, d = 0.0
+ffi.new("union bar", {1})       --> i = 1, d = ?
+ffi.new("union bar", {[0]=1,2}) --> i = 1, d = ?    '2' is ignored
+ffi.new("union bar", {d=2})     --> i = ?, d = 2.0
+
+ffi.new("struct nested", {1,{2,3}})     --> x = 1, y.a = 2, y.b = 3
+ffi.new("struct nested", {x=1,y={2,3}}) --> x = 1, y.a = 2, y.b = 3
+
+ +

Operations on cdata Objects

+

+All of the standard Lua operators can be applied to cdata objects or a +mix of a cdata object and another Lua object. The following list shows +the pre-defined operations. +

+

+Reference types are dereferenced before performing each of +the operations below — the operation is applied to the +C type pointed to by the reference. +

+

+The pre-defined operations are always tried first before deferring to a +metamethod or index table (if any) for the corresponding ctype (except +for __new). An error is raised if the metamethod lookup or +index table lookup fails. +

+ +

Indexing a cdata object

+
    + +
  • Indexing a pointer/array: a cdata pointer/array can be +indexed by a cdata number or a Lua number. The element address is +computed as the base address plus the number value multiplied by the +element size in bytes. A read access loads the element value and +converts it to a Lua object. A write +access converts a Lua object to the element +type and stores the converted value to the element. An error is +raised if the element size is undefined or a write access to a +constant element is attempted.
    • + +
  • Dereferencing a struct/union field: a +cdata struct/union or a pointer to a +struct/union can be dereferenced by a string key, +giving the field name. The field address is computed as the base +address plus the relative offset of the field. A read access loads the +field value and converts it to a Lua +object. A write access converts a Lua +object to the field type and stores the converted value to the +field. An error is raised if a write access to a constant +struct/union or a constant field is attempted. +Scoped enum constants or static constants are treated like a constant +field.
    • + +
  • Indexing a complex number: a complex number can be indexed +either by a cdata number or a Lua number with the values 0 or 1, or by +the strings "re" or "im". A read access loads the +real part ([0], .re) or the imaginary part +([1], .im) part of a complex number and +converts it to a Lua number. The +sub-parts of a complex number are immutable — assigning to an +index of a complex number raises an error. Accessing out-of-bound +indexes returns unspecified results, but is guaranteed not to trigger +memory access violations.
    • + +
  • Indexing a vector: a vector is treated like an array for +indexing purposes, except the vector elements are immutable — +assigning to an index of a vector raises an error.
    • + +
+

+A ctype object can be indexed with a string key, too. The only +pre-defined operation is reading scoped constants of +struct/union types. All other accesses defer +to the corresponding metamethods or index tables (if any). +

+

+Note: since there's (deliberately) no address-of operator, a cdata +object holding a value type is effectively immutable after +initialization. The JIT compiler benefits from this fact when applying +certain optimizations. +

+

+As a consequence, the elements of complex numbers and +vectors are immutable. But the elements of an aggregate holding these +types may be modified of course. I.e. you cannot assign to +foo.c.im, but you can assign a (newly created) complex number +to foo.c. +

+

+The JIT compiler implements strict aliasing rules: accesses to different +types do not alias, except for differences in signedness (this +applies even to char pointers, unlike C99). Type punning +through unions is explicitly detected and allowed. +

+ +

Calling a cdata object

+
    + +
  • Constructor: a ctype object can be called and used as a +constructor. This is equivalent +to ffi.new(ct, ...), unless a __new metamethod is +defined. The __new metamethod is called with the ctype object +plus any other arguments passed to the contructor. Note that you have to +use ffi.new inside of it, since calling ct(...) would +cause infinite recursion.
    • + +
  • C function call: a cdata function or cdata function +pointer can be called. The passed arguments are +converted to the C types of the +parameters given by the function declaration. Arguments passed to the +variable argument part of vararg C function use +special conversion rules. This +C function is called and the return value (if any) is +converted to a Lua object.
    +On Windows/x86 systems, __stdcall functions are automatically +detected and a function declared as __cdecl (the default) is +silently fixed up after the first call.
    • + +
+ +

Arithmetic on cdata objects

+
    + +
  • Pointer arithmetic: a cdata pointer/array and a cdata +number or a Lua number can be added or subtracted. The number must be +on the right hand side for a subtraction. The result is a pointer of +the same type with an address plus or minus the number value +multiplied by the element size in bytes. An error is raised if the +element size is undefined.
    • + +
  • Pointer difference: two compatible cdata pointers/arrays +can be subtracted. The result is the difference between their +addresses, divided by the element size in bytes. An error is raised if +the element size is undefined or zero.
    • + +
  • 64 bit integer arithmetic: the standard arithmetic +operators (+ - * / % ^ and unary +minus) can be applied to two cdata numbers, or a cdata number and a +Lua number. If one of them is an uint64_t, the other side is +converted to an uint64_t and an unsigned arithmetic operation +is performed. Otherwise both sides are converted to an +int64_t and a signed arithmetic operation is performed. The +result is a boxed 64 bit cdata object.
    + +If one of the operands is an enum and the other operand is a +string, the string is converted to the value of a matching enum +constant before the above conversion.
    + +These rules ensure that 64 bit integers are "sticky". Any +expression involving at least one 64 bit integer operand results +in another one. The undefined cases for the division, modulo and power +operators return 2LL ^ 63 or +2ULL ^ 63.
    + +You'll have to explicitly convert a 64 bit integer to a Lua +number (e.g. for regular floating-point calculations) with +tonumber(). But note this may incur a precision loss.
    • + +
+ +

Comparisons of cdata objects

+
    + +
  • Pointer comparison: two compatible cdata pointers/arrays +can be compared. The result is the same as an unsigned comparison of +their addresses. nil is treated like a NULL pointer, +which is compatible with any other pointer type.
    • + +
  • 64 bit integer comparison: two cdata numbers, or a +cdata number and a Lua number can be compared with each other. If one +of them is an uint64_t, the other side is converted to an +uint64_t and an unsigned comparison is performed. Otherwise +both sides are converted to an int64_t and a signed +comparison is performed.
    + +If one of the operands is an enum and the other operand is a +string, the string is converted to the value of a matching enum +constant before the above conversion.
    + +
  • Comparisons for equality/inequality never raise an error. +Even incompatible pointers can be compared for equality by address. Any +other incompatible comparison (also with non-cdata objects) treats the +two sides as unequal.
    • + +
+ +

cdata objects as table keys

+

+Lua tables may be indexed by cdata objects, but this doesn't provide +any useful semantics — cdata objects are unsuitable as table +keys! +

+

+A cdata object is treated like any other garbage-collected object and +is hashed and compared by its address for table indexing. Since +there's no interning for cdata value types, the same value may be +boxed in different cdata objects with different addresses. Thus +t[1LL+1LL] and t[2LL] usually do not point to +the same hash slot and they certainly do not point to the same +hash slot as t[2]. +

+

+It would seriously drive up implementation complexity and slow down +the common case, if one were to add extra handling for by-value +hashing and comparisons to Lua tables. Given the ubiquity of their use +inside the VM, this is not acceptable. +

+

+There are three viable alternatives, if you really need to use cdata +objects as keys: +

+
    + +
  • If you can get by with the precision of Lua numbers +(52 bits), then use tonumber() on a cdata number or +combine multiple fields of a cdata aggregate to a Lua number. Then use +the resulting Lua number as a key when indexing tables.
    +One obvious benefit: t[tonumber(2LL)] does point to +the same slot as t[2].
    • + +
  • Otherwise use either tostring() on 64 bit integers +or complex numbers or combine multiple fields of a cdata aggregate to +a Lua string (e.g. with +ffi.string()). Then +use the resulting Lua string as a key when indexing tables.
    • + +
  • Create your own specialized hash table implementation using the +C types provided by the FFI library, just like you would in +C code. Ultimately this may give much better performance than the +other alternatives or what a generic by-value hash table could +possibly provide.
    • + +
+ +

Parameterized Types

+

+To facilitate some abstractions, the two functions +ffi.typeof and +ffi.cdef support +parameterized types in C declarations. Note: none of the other API +functions taking a cdecl allow this. +

+

+Any place you can write a typedef name, an +identifier or a number in a declaration, you can write +$ (the dollar sign) instead. These placeholders are replaced in +order of appearance with the arguments following the cdecl string: +

+
+-- Declare a struct with a parameterized field type and name:
+ffi.cdef([[
+typedef struct { $ $; } foo_t;
+]], type1, name1)
+
+-- Anonymous struct with dynamic names:
+local bar_t = ffi.typeof("struct { int $, $; }", name1, name2)
+-- Derived pointer type:
+local bar_ptr_t = ffi.typeof("$ *", bar_t)
+
+-- Parameterized dimensions work even where a VLA won't work:
+local matrix_t = ffi.typeof("uint8_t[$][$]", width, height)
+
+

+Caveat: this is not simple text substitution! A passed ctype or +cdata object is treated like the underlying type, a passed string is +considered an identifier and a number is considered a number. You must +not mix this up: e.g. passing "int" as a string doesn't work in +place of a type, you'd need to use ffi.typeof("int") instead. +

+

+The main use for parameterized types are libraries implementing abstract +data types +(» example), +similar to what can be achieved with C++ template metaprogramming. +Another use case are derived types of anonymous structs, which avoids +pollution of the global struct namespace. +

+

+Please note that parameterized types are a nice tool and indispensable +for certain use cases. But you'll want to use them sparingly in regular +code, e.g. when all types are actually fixed. +

+ +

Garbage Collection of cdata Objects

+

+All explicitly (ffi.new(), ffi.cast() etc.) or +implicitly (accessors) created cdata objects are garbage collected. +You need to ensure to retain valid references to cdata objects +somewhere on a Lua stack, an upvalue or in a Lua table while they are +still in use. Once the last reference to a cdata object is gone, the +garbage collector will automatically free the memory used by it (at +the end of the next GC cycle). +

+

+Please note that pointers themselves are cdata objects, however they +are not followed by the garbage collector. So e.g. if you +assign a cdata array to a pointer, you must keep the cdata object +holding the array alive as long as the pointer is still in use: +

+
+ffi.cdef[[
+typedef struct { int *a; } foo_t;
+]]
+
+local s = ffi.new("foo_t", ffi.new("int[10]")) -- WRONG!
+
+local a = ffi.new("int[10]") -- OK
+local s = ffi.new("foo_t", a)
+-- Now do something with 's', but keep 'a' alive until you're done.
+
+

+Similar rules apply for Lua strings which are implicitly converted to +"const char *": the string object itself must be +referenced somewhere or it'll be garbage collected eventually. The +pointer will then point to stale data, which may have already been +overwritten. Note that string literals are automatically kept +alive as long as the function containing it (actually its prototype) +is not garbage collected. +

+

+Objects which are passed as an argument to an external C function +are kept alive until the call returns. So it's generally safe to +create temporary cdata objects in argument lists. This is a common +idiom for passing specific C types to +vararg functions. +

+

+Memory areas returned by C functions (e.g. from malloc()) +must be manually managed, of course (or use +ffi.gc()). Pointers to +cdata objects are indistinguishable from pointers returned by C +functions (which is one of the reasons why the GC cannot follow them). +

+ +

Callbacks

+

+The LuaJIT FFI automatically generates special callback functions +whenever a Lua function is converted to a C function pointer. This +associates the generated callback function pointer with the C type +of the function pointer and the Lua function object (closure). +

+

+This can happen implicitly due to the usual conversions, e.g. when +passing a Lua function to a function pointer argument. Or you can use +ffi.cast() to explicitly cast a Lua function to a +C function pointer. +

+

+Currently only certain C function types can be used as callback +functions. Neither C vararg functions nor functions with +pass-by-value aggregate argument or result types are supported. There +are no restrictions for the kind of Lua functions that can be called +from the callback — no checks for the proper number of arguments +are made. The return value of the Lua function will be converted to the +result type and an error will be thrown for invalid conversions. +

+

+It's allowed to throw errors across a callback invocation, but it's not +advisable in general. Do this only if you know the C function, that +called the callback, copes with the forced stack unwinding and doesn't +leak resources. +

+

+One thing that's not allowed, is to let an FFI call into a C function +get JIT-compiled, which in turn calls a callback, calling into Lua again. +Usually this attempt is caught by the interpreter first and the +C function is blacklisted for compilation. +

+

+However, this heuristic may fail under specific circumstances: e.g. a +message polling function might not run Lua callbacks right away and the call +gets JIT-compiled. If it later happens to call back into Lua (e.g. a rarely +invoked error callback), you'll get a VM PANIC with the message +"bad callback". Then you'll need to manually turn off +JIT-compilation with +jit.off() for the +surrounding Lua function that invokes such a message polling function (or +similar). +

+ +

Callback resource handling

+

+Callbacks take up resources — you can only have a limited number +of them at the same time (500 - 1000, depending on the +architecture). The associated Lua functions are anchored to prevent +garbage collection, too. +

+

+Callbacks due to implicit conversions are permanent! There is no +way to guess their lifetime, since the C side might store the +function pointer for later use (typical for GUI toolkits). The associated +resources cannot be reclaimed until termination: +

+
+ffi.cdef[[
+typedef int (__stdcall *WNDENUMPROC)(void *hwnd, intptr_t l);
+int EnumWindows(WNDENUMPROC func, intptr_t l);
+]]
+
+-- Implicit conversion to a callback via function pointer argument.
+local count = 0
+ffi.C.EnumWindows(function(hwnd, l)
+  count = count + 1
+  return true
+end, 0)
+-- The callback is permanent and its resources cannot be reclaimed!
+-- Ok, so this may not be a problem, if you do this only once.
+
+

+Note: this example shows that you must properly declare +__stdcall callbacks on Windows/x86 systems. The calling +convention cannot be automatically detected, unlike for +__stdcall calls to Windows functions. +

+

+For some use cases it's necessary to free up the resources or to +dynamically redirect callbacks. Use an explicit cast to a +C function pointer and keep the resulting cdata object. Then use +the cb:free() +or cb:set() methods +on the cdata object: +

+
+-- Explicitly convert to a callback via cast.
+local count = 0
+local cb = ffi.cast("WNDENUMPROC", function(hwnd, l)
+  count = count + 1
+  return true
+end)
+
+-- Pass it to a C function.
+ffi.C.EnumWindows(cb, 0)
+-- EnumWindows doesn't need the callback after it returns, so free it.
+
+cb:free()
+-- The callback function pointer is no longer valid and its resources
+-- will be reclaimed. The created Lua closure will be garbage collected.
+
+ +

Callback performance

+

+Callbacks are slow! First, the C to Lua transition itself +has an unavoidable cost, similar to a lua_call() or +lua_pcall(). Argument and result marshalling add to that cost. +And finally, neither the C compiler nor LuaJIT can inline or +optimize across the language barrier and hoist repeated computations out +of a callback function. +

+

+Do not use callbacks for performance-sensitive work: e.g. consider a +numerical integration routine which takes a user-defined function to +integrate over. It's a bad idea to call a user-defined Lua function from +C code millions of times. The callback overhead will be absolutely +detrimental for performance. +

+

+It's considerably faster to write the numerical integration routine +itself in Lua — the JIT compiler will be able to inline the +user-defined function and optimize it together with its calling context, +with very competitive performance. +

+

+As a general guideline: use callbacks only when you must, because +of existing C APIs. E.g. callback performance is irrelevant for a +GUI application, which waits for user input most of the time, anyway. +

+

+For new designs avoid push-style APIs: a C function repeatedly +calling a callback for each result. Instead use pull-style APIs: +call a C function repeatedly to get a new result. Calls from Lua +to C via the FFI are much faster than the other way round. Most well-designed +libraries already use pull-style APIs (read/write, get/put). +

+ +

C Library Namespaces

+

+A C library namespace is a special kind of object which allows +access to the symbols contained in shared libraries or the default +symbol namespace. The default +ffi.C namespace is +automatically created when the FFI library is loaded. C library +namespaces for specific shared libraries may be created with the +ffi.load() API +function. +

+

+Indexing a C library namespace object with a symbol name (a Lua +string) automatically binds it to the library. First the symbol type +is resolved — it must have been declared with +ffi.cdef. Then the +symbol address is resolved by searching for the symbol name in the +associated shared libraries or the default symbol namespace. Finally, +the resulting binding between the symbol name, the symbol type and its +address is cached. Missing symbol declarations or nonexistent symbol +names cause an error. +

+

+This is what happens on a read access for the different kinds of +symbols: +

+
    + +
  • External functions: a cdata object with the type of the function +and its address is returned.
    • + +
  • External variables: the symbol address is dereferenced and the +loaded value is converted to a Lua object +and returned.
    • + +
  • Constant values (static const or enum +constants): the constant is converted to a +Lua object and returned.
    • + +
+

+This is what happens on a write access: +

+
    + +
  • External variables: the value to be written is +converted to the C type of the +variable and then stored at the symbol address.
    • + +
  • Writing to constant variables or to any other symbol type causes +an error, like any other attempted write to a constant location.
    • + +
+

+C library namespaces themselves are garbage collected objects. If +the last reference to the namespace object is gone, the garbage +collector will eventually release the shared library reference and +remove all memory associated with the namespace. Since this may +trigger the removal of the shared library from the memory of the +running process, it's generally not safe to use function +cdata objects obtained from a library if the namespace object may be +unreferenced. +

+

+Performance notice: the JIT compiler specializes to the identity of +namespace objects and to the strings used to index it. This +effectively turns function cdata objects into constants. It's not +useful and actually counter-productive to explicitly cache these +function objects, e.g. local strlen = ffi.C.strlen. OTOH it +is useful to cache the namespace itself, e.g. local C = +ffi.C. +

+ +

No Hand-holding!

+

+The FFI library has been designed as a low-level library. The +goal is to interface with C code and C data types with a +minimum of overhead. This means you can do anything you can do +from C: access all memory, overwrite anything in memory, call +machine code at any memory address and so on. +

+

+The FFI library provides no memory safety, unlike regular Lua +code. It will happily allow you to dereference a NULL +pointer, to access arrays out of bounds or to misdeclare +C functions. If you make a mistake, your application might crash, +just like equivalent C code would. +

+

+This behavior is inevitable, since the goal is to provide full +interoperability with C code. Adding extra safety measures, like +bounds checks, would be futile. There's no way to detect +misdeclarations of C functions, since shared libraries only +provide symbol names, but no type information. Likewise there's no way +to infer the valid range of indexes for a returned pointer. +

+

+Again: the FFI library is a low-level library. This implies it needs +to be used with care, but it's flexibility and performance often +outweigh this concern. If you're a C or C++ developer, it'll be easy +to apply your existing knowledge. OTOH writing code for the FFI +library is not for the faint of heart and probably shouldn't be the +first exercise for someone with little experience in Lua, C or C++. +

+

+As a corollary of the above, the FFI library is not safe for use by +untrusted Lua code. If you're sandboxing untrusted Lua code, you +definitely don't want to give this code access to the FFI library or +to any cdata object (except 64 bit integers or complex +numbers). Any properly engineered Lua sandbox needs to provide safety +wrappers for many of the standard Lua library functions — +similar wrappers need to be written for high-level operations on FFI +data types, too. +

+ +

Current Status

+

+The initial release of the FFI library has some limitations and is +missing some features. Most of these will be fixed in future releases. +

+

+C language support is +currently incomplete: +

+
    +
  • C declarations are not passed through a C pre-processor, +yet.
    • +
  • The C parser is able to evaluate most constant expressions +commonly found in C header files. However it doesn't handle the +full range of C expression semantics and may fail for some +obscure constructs.
    • +
  • static const declarations only work for integer types +up to 32 bits. Neither declaring string constants nor +floating-point constants is supported.
    • +
  • Packed struct bitfields that cross container boundaries +are not implemented.
    • +
  • Native vector types may be defined with the GCC mode or +vector_size attribute. But no operations other than loading, +storing and initializing them are supported, yet.
    • +
  • The volatile type qualifier is currently ignored by +compiled code.
    • +
  • ffi.cdef silently +ignores most re-declarations. Note: avoid re-declarations which do not +conform to C99. The implementation will eventually be changed to +perform strict checks.
    • +
+

+The JIT compiler already handles a large subset of all FFI operations. +It automatically falls back to the interpreter for unimplemented +operations (you can check for this with the +-jv command line option). +The following operations are currently not compiled and may exhibit +suboptimal performance, especially when used in inner loops: +

+
    +
  • Bitfield accesses and initializations.
    • +
  • Vector operations.
    • +
  • Table initializers.
    • +
  • Initialization of nested struct/union types.
    • +
  • Allocations of variable-length arrays or structs.
    • +
  • Allocations of C types with a size > 128 bytes or an +alignment > 8 bytes.
    • +
  • Conversions from lightuserdata to void *.
    • +
  • Pointer differences for element sizes that are not a power of +two.
    • +
  • Calls to C functions with aggregates passed or returned by +value.
    • +
  • Calls to ctype metamethods which are not plain functions.
    • +
  • ctype __newindex tables and non-string lookups in ctype +__index tables.
    • +
  • tostring() for cdata types.
    • +
  • Calls to ffi.cdef(), ffi.load() and +ffi.metatype().
    • +
+

+Other missing features: +

+
    +
  • Bit operations for 64 bit types.
    • +
  • Arithmetic for complex numbers.
    • +
  • Passing structs by value to vararg C functions.
    • +
  • C++ exception interoperability +does not extend to C functions called via the FFI, if the call is +compiled.
    • +
+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html b/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html new file mode 100644 index 00000000000..8f99bfb1bbd --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html @@ -0,0 +1,601 @@ + + + +FFI Tutorial + + + + + + + + + +
+Lua +
+ + +
+

+This page is intended to give you an overview of the features of the FFI +library by presenting a few use cases and guidelines. +

+

+This page makes no attempt to explain all of the FFI library, though. +You'll want to have a look at the ffi.* API +function reference and the FFI +semantics to learn more. +

+ +

Loading the FFI Library

+

+The FFI library is built into LuaJIT by default, but it's not loaded +and initialized by default. The suggested way to use the FFI library +is to add the following to the start of every Lua file that needs one +of its functions: +

+
+local ffi = require("ffi")
+
+

+Please note this doesn't define an ffi variable in the table +of globals — you really need to use the local variable. The +require function ensures the library is only loaded once. +

+

+Note: If you want to experiment with the FFI from the interactive prompt +of the command line executable, omit the local, as it doesn't +preserve local variables across lines. +

+ +

Accessing Standard System Functions

+

+The following code explains how to access standard system functions. +We slowly print two lines of dots by sleeping for 10 milliseconds +after each dot: +

+
+ 
+①
+
+
+
+
+
+②
+③
+④
+
+
+
+⑤
+
+
+
+
+
+⑥local ffi = require("ffi")
+ffi.cdef[[
+void Sleep(int ms);
+int poll(struct pollfd *fds, unsigned long nfds, int timeout);
+]]
+
+local sleep
+if ffi.os == "Windows" then
+  function sleep(s)
+    ffi.C.Sleep(s*1000)
+  end
+else
+  function sleep(s)
+    ffi.C.poll(nil, 0, s*1000)
+  end
+end
+
+for i=1,160 do
+  io.write("."); io.flush()
+  sleep(0.01)
+end
+io.write("\n")
+
+

+Here's the step-by-step explanation: +

+

+① This defines the +C library functions we're going to use. The part inside the +double-brackets (in green) is just standard C syntax. You can +usually get this info from the C header files or the +documentation provided by each C library or C compiler. +

+

+② The difficulty we're +facing here, is that there are different standards to choose from. +Windows has a simple Sleep() function. On other systems there +are a variety of functions available to achieve sub-second sleeps, but +with no clear consensus. Thankfully poll() can be used for +this task, too, and it's present on most non-Windows systems. The +check for ffi.os makes sure we use the Windows-specific +function only on Windows systems. +

+

+③ Here we're wrapping the +call to the C function in a Lua function. This isn't strictly +necessary, but it's helpful to deal with system-specific issues only +in one part of the code. The way we're wrapping it ensures the check +for the OS is only done during initialization and not for every call. +

+

+④ A more subtle point is +that we defined our sleep() function (for the sake of this +example) as taking the number of seconds, but accepting fractional +seconds. Multiplying this by 1000 gets us milliseconds, but that still +leaves it a Lua number, which is a floating-point value. Alas, the +Sleep() function only accepts an integer value. Luckily for +us, the FFI library automatically performs the conversion when calling +the function (truncating the FP value towards zero, like in C). +

+

+Some readers will notice that Sleep() is part of +KERNEL32.DLL and is also a stdcall function. So how +can this possibly work? The FFI library provides the ffi.C +default C library namespace, which allows calling functions from +the default set of libraries, like a C compiler would. Also, the +FFI library automatically detects stdcall functions, so you +don't need to declare them as such. +

+

+⑤ The poll() +function takes a couple more arguments we're not going to use. You can +simply use nil to pass a NULL pointer and 0 +for the nfds parameter. Please note that the +number 0 does not convert to a pointer value, +unlike in C++. You really have to pass pointers to pointer arguments +and numbers to number arguments. +

+

+The page on FFI semantics has all +of the gory details about +conversions between Lua +objects and C types. For the most part you don't have to deal +with this, as it's performed automatically and it's carefully designed +to bridge the semantic differences between Lua and C. +

+

+⑥ Now that we have defined +our own sleep() function, we can just call it from plain Lua +code. That wasn't so bad, huh? Turning these boring animated dots into +a fascinating best-selling game is left as an exercise for the reader. +:-) +

+ +

Accessing the zlib Compression Library

+

+The following code shows how to access the zlib compression library from Lua code. +We'll define two convenience wrapper functions that take a string and +compress or uncompress it to another string: +

+
+ 
+①
+
+
+
+
+
+
+②
+
+
+③
+
+④
+
+
+⑤
+
+
+⑥
+
+
+
+
+
+
+
+⑦local ffi = require("ffi")
+ffi.cdef[[
+unsigned long compressBound(unsigned long sourceLen);
+int compress2(uint8_t *dest, unsigned long *destLen,
+	      const uint8_t *source, unsigned long sourceLen, int level);
+int uncompress(uint8_t *dest, unsigned long *destLen,
+	       const uint8_t *source, unsigned long sourceLen);
+]]
+local zlib = ffi.load(ffi.os == "Windows" and "zlib1" or "z")
+
+local function compress(txt)
+  local n = zlib.compressBound(#txt)
+  local buf = ffi.new("uint8_t[?]", n)
+  local buflen = ffi.new("unsigned long[1]", n)
+  local res = zlib.compress2(buf, buflen, txt, #txt, 9)
+  assert(res == 0)
+  return ffi.string(buf, buflen[0])
+end
+
+local function uncompress(comp, n)
+  local buf = ffi.new("uint8_t[?]", n)
+  local buflen = ffi.new("unsigned long[1]", n)
+  local res = zlib.uncompress(buf, buflen, comp, #comp)
+  assert(res == 0)
+  return ffi.string(buf, buflen[0])
+end
+
+-- Simple test code.
+local txt = string.rep("abcd", 1000)
+print("Uncompressed size: ", #txt)
+local c = compress(txt)
+print("Compressed size: ", #c)
+local txt2 = uncompress(c, #txt)
+assert(txt2 == txt)
+
+

+Here's the step-by-step explanation: +

+

+① This defines some of the +C functions provided by zlib. For the sake of this example, some +type indirections have been reduced and it uses the pre-defined +fixed-size integer types, while still adhering to the zlib API/ABI. +

+

+② This loads the zlib shared +library. On POSIX systems it's named libz.so and usually +comes pre-installed. Since ffi.load() automatically adds any +missing standard prefixes/suffixes, we can simply load the +"z" library. On Windows it's named zlib1.dll and +you'll have to download it first from the +» zlib site. The check for +ffi.os makes sure we pass the right name to +ffi.load(). +

+

+③ First, the maximum size of +the compression buffer is obtained by calling the +zlib.compressBound function with the length of the +uncompressed string. The next line allocates a byte buffer of this +size. The [?] in the type specification indicates a +variable-length array (VLA). The actual number of elements of this +array is given as the 2nd argument to ffi.new(). +

+

+④ This may look strange at +first, but have a look at the declaration of the compress2 +function from zlib: the destination length is defined as a pointer! +This is because you pass in the maximum buffer size and get back the +actual length that was used. +

+

+In C you'd pass in the address of a local variable +(&buflen). But since there's no address-of operator in +Lua, we'll just pass in a one-element array. Conveniently it can be +initialized with the maximum buffer size in one step. Calling the +actual zlib.compress2 function is then straightforward. +

+

+⑤ We want to return the +compressed data as a Lua string, so we'll use ffi.string(). +It needs a pointer to the start of the data and the actual length. The +length has been returned in the buflen array, so we'll just +get it from there. +

+

+Note that since the function returns now, the buf and +buflen variables will eventually be garbage collected. This +is fine, because ffi.string() has copied the contents to a +newly created (interned) Lua string. If you plan to call this function +lots of times, consider reusing the buffers and/or handing back the +results in buffers instead of strings. This will reduce the overhead +for garbage collection and string interning. +

+

+⑥ The uncompress +functions does the exact opposite of the compress function. +The compressed data doesn't include the size of the original string, +so this needs to be passed in. Otherwise no surprises here. +

+

+⑦ The code, that makes use +of the functions we just defined, is just plain Lua code. It doesn't +need to know anything about the LuaJIT FFI — the convenience +wrapper functions completely hide it. +

+

+One major advantage of the LuaJIT FFI is that you are now able to +write those wrappers in Lua. And at a fraction of the time it +would cost you to create an extra C module using the Lua/C API. +Many of the simpler C functions can probably be used directly +from your Lua code, without any wrappers. +

+

+Side note: the zlib API uses the long type for passing +lengths and sizes around. But all those zlib functions actually only +deal with 32 bit values. This is an unfortunate choice for a +public API, but may be explained by zlib's history — we'll just +have to deal with it. +

+

+First, you should know that a long is a 64 bit type e.g. +on POSIX/x64 systems, but a 32 bit type on Windows/x64 and on +32 bit systems. Thus a long result can be either a plain +Lua number or a boxed 64 bit integer cdata object, depending on +the target system. +

+

+Ok, so the ffi.* functions generally accept cdata objects +wherever you'd want to use a number. That's why we get a away with +passing n to ffi.string() above. But other Lua +library functions or modules don't know how to deal with this. So for +maximum portability one needs to use tonumber() on returned +long results before passing them on. Otherwise the +application might work on some systems, but would fail in a POSIX/x64 +environment. +

+ +

Defining Metamethods for a C Type

+

+The following code explains how to define metamethods for a C type. +We define a simple point type and add some operations to it: +

+
+ 
+①
+
+
+
+②
+
+③
+
+④
+
+
+
+⑤
+
+⑥local ffi = require("ffi")
+ffi.cdef[[
+typedef struct { double x, y; } point_t;
+]]
+
+local point
+local mt = {
+  __add = function(a, b) return point(a.x+b.x, a.y+b.y) end,
+  __len = function(a) return math.sqrt(a.x*a.x + a.y*a.y) end,
+  __index = {
+    area = function(a) return a.x*a.x + a.y*a.y end,
+  },
+}
+point = ffi.metatype("point_t", mt)
+
+local a = point(3, 4)
+print(a.x, a.y)  --> 3  4
+print(#a)        --> 5
+print(a:area())  --> 25
+local b = a + point(0.5, 8)
+print(#b)        --> 12.5
+
+

+Here's the step-by-step explanation: +

+

+① This defines the C type for a +two-dimensional point object. +

+

+② We have to declare the variable +holding the point constructor first, because it's used inside of a +metamethod. +

+

+③ Let's define an __add +metamethod which adds the coordinates of two points and creates a new +point object. For simplicity, this function assumes that both arguments +are points. But it could be any mix of objects, if at least one operand +is of the required type (e.g. adding a point plus a number or vice +versa). Our __len metamethod returns the distance of a point to +the origin. +

+

+④ If we run out of operators, we can +define named methods, too. Here the __index table defines an +area function. For custom indexing needs, one might want to +define __index and __newindex functions instead. +

+

+⑤ This associates the metamethods with +our C type. This only needs to be done once. For convenience, a +constructor is returned by +ffi.metatype(). +We're not required to use it, though. The original C type can still +be used e.g. to create an array of points. The metamethods automatically +apply to any and all uses of this type. +

+

+Please note that the association with a metatable is permanent and +the metatable must not be modified afterwards! Ditto for the +__index table. +

+

+⑥ Here are some simple usage examples +for the point type and their expected results. The pre-defined +operations (such as a.x) can be freely mixed with the newly +defined metamethods. Note that area is a method and must be +called with the Lua syntax for methods: a:area(), not +a.area(). +

+

+The C type metamethod mechanism is most useful when used in +conjunction with C libraries that are written in an object-oriented +style. Creators return a pointer to a new instance and methods take an +instance pointer as the first argument. Sometimes you can just point +__index to the library namespace and __gc to the +destructor and you're done. But often enough you'll want to add +convenience wrappers, e.g. to return actual Lua strings or when +returning multiple values. +

+

+Some C libraries only declare instance pointers as an opaque +void * type. In this case you can use a fake type for all +declarations, e.g. a pointer to a named (incomplete) struct will do: +typedef struct foo_type *foo_handle. The C side doesn't +know what you declare with the LuaJIT FFI, but as long as the underlying +types are compatible, everything still works. +

+ +

Translating C Idioms

+

+Here's a list of common C idioms and their translation to the +LuaJIT FFI: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
IdiomC codeLua code
Pointer dereference
int *p;		x = *p;
*p = y;		x = p[0]
p[0] = y
Pointer indexing
int i, *p;		x = p[i];
p[i+1] = y;		x = p[i]
p[i+1] = y
Array indexing
int i, a[];		x = a[i];
a[i+1] = y;		x = a[i]
a[i+1] = y
struct/union dereference
struct foo s;		x = s.field;
s.field = y;		x = s.field
s.field = y
struct/union pointer deref.
struct foo *sp;		x = sp->field;
sp->field = y;		x = s.field
s.field = y
Pointer arithmetic
int i, *p;		x = p + i;
y = p - i;		x = p + i
y = p - i
Pointer difference
int *p1, *p2;		x = p1 - p2;x = p1 - p2
Array element pointer
int i, a[];		x = &a[i];x = a+i
Cast pointer to address
int *p;		x = (intptr_t)p;x = tonumber(
 ffi.cast("intptr_t",
          p))
Functions with outargs
void foo(int *inoutlen);		int len = x;
foo(&len);
y = len;		local len =
  ffi.new("int[1]", x)
foo(len)
y = len[0]
Vararg conversions
int printf(char *fmt, ...);		printf("%g", 1.0);
printf("%d", 1);
 		printf("%g", 1);
printf("%d",
  ffi.new("int", 1))
+ +

To Cache or Not to Cache

+

+It's a common Lua idiom to cache library functions in local variables +or upvalues, e.g.: +

+
+local byte, char = string.byte, string.char
+local function foo(x)
+  return char(byte(x)+1)
+end
+
+

+This replaces several hash-table lookups with a (faster) direct use of +a local or an upvalue. This is less important with LuaJIT, since the +JIT compiler optimizes hash-table lookups a lot and is even able to +hoist most of them out of the inner loops. It can't eliminate +all of them, though, and it saves some typing for often-used +functions. So there's still a place for this, even with LuaJIT. +

+

+The situation is a bit different with C function calls via the +FFI library. The JIT compiler has special logic to eliminate all +of the lookup overhead for functions resolved from a +C library namespace! +Thus it's not helpful and actually counter-productive to cache +individual C functions like this: +

+
+local funca, funcb = ffi.C.funca, ffi.C.funcb -- Not helpful!
+local function foo(x, n)
+  for i=1,n do funcb(funca(x, i), 1) end
+end
+
+

+This turns them into indirect calls and generates bigger and slower +machine code. Instead you'll want to cache the namespace itself and +rely on the JIT compiler to eliminate the lookups: +

+
+local C = ffi.C          -- Instead use this!
+local function foo(x, n)
+  for i=1,n do C.funcb(C.funca(x, i), 1) end
+end
+
+

+This generates both shorter and faster code. So don't cache +C functions, but do cache namespaces! Most often the +namespace is already in a local variable at an outer scope, e.g. from +local lib = ffi.load(...). Note that copying +it to a local variable in the function scope is unnecessary. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/ext_jit.html b/src/3rd party/luajit-2.0/doc/ext_jit.html new file mode 100644 index 00000000000..27351dd64b8 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_jit.html @@ -0,0 +1,199 @@ + + + +jit.* Library + + + + + + + + +
+Lua +
+ + +
+

+The functions in this built-in module control the behavior of the JIT +compiler engine. Note that JIT-compilation is fully automatic — +you probably won't need to use any of the following functions unless +you have special needs. +

+ +

jit.on()
+jit.off()

+

+Turns the whole JIT compiler on (default) or off. +

+

+These functions are typically used with the command line options +-j on or -j off. +

+ +

jit.flush()

+

+Flushes the whole cache of compiled code. +

+ +

jit.on(func|true [,true|false])
+jit.off(func|true [,true|false])
+jit.flush(func|true [,true|false])

+

+jit.on enables JIT compilation for a Lua function (this is +the default). +

+

+jit.off disables JIT compilation for a Lua function and +flushes any already compiled code from the code cache. +

+

+jit.flush flushes the code, but doesn't affect the +enable/disable status. +

+

+The current function, i.e. the Lua function calling this library +function, can also be specified by passing true as the first +argument. +

+

+If the second argument is true, JIT compilation is also +enabled, disabled or flushed recursively for all sub-functions of a +function. With false only the sub-functions are affected. +

+

+The jit.on and jit.off functions only set a flag +which is checked when the function is about to be compiled. They do +not trigger immediate compilation. +

+

+Typical usage is jit.off(true, true) in the main chunk +of a module to turn off JIT compilation for the whole module for +debugging purposes. +

+ +

jit.flush(tr)

+

+Flushes the root trace, specified by its number, and all of its side +traces from the cache. The code for the trace will be retained as long +as there are any other traces which link to it. +

+ +

status, ... = jit.status()

+

+Returns the current status of the JIT compiler. The first result is +either true or false if the JIT compiler is turned +on or off. The remaining results are strings for CPU-specific features +and enabled optimizations. +

+ +

jit.version

+

+Contains the LuaJIT version string. +

+ +

jit.version_num

+

+Contains the version number of the LuaJIT core. Version xx.yy.zz +is represented by the decimal number xxyyzz. +

+ +

jit.os

+

+Contains the target OS name: +"Windows", "Linux", "OSX", "BSD", "POSIX" or "Other". +

+ +

jit.arch

+

+Contains the target architecture name: +"x86", "x64", "arm", "ppc", "ppcspe", or "mips". +

+ +

jit.opt.* — JIT compiler optimization control

+

+This sub-module provides the backend for the -O command line +option. +

+

+You can also use it programmatically, e.g.: +

+
+jit.opt.start(2) -- same as -O2
+jit.opt.start("-dce")
+jit.opt.start("hotloop=10", "hotexit=2")
+
+

+Unlike in LuaJIT 1.x, the module is built-in and +optimization is turned on by default! +It's no longer necessary to run require("jit.opt").start(), +which was one of the ways to enable optimization. +

+ +

jit.util.* — JIT compiler introspection

+

+This sub-module holds functions to introspect the bytecode, generated +traces, the IR and the generated machine code. The functionality +provided by this module is still in flux and therefore undocumented. +

+

+The debug modules -jbc, -jv and -jdump make +extensive use of these functions. Please check out their source code, +if you want to know more. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/extensions.html b/src/3rd party/luajit-2.0/doc/extensions.html new file mode 100644 index 00000000000..e9cd136cc4f --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/extensions.html @@ -0,0 +1,408 @@ + + + +Extensions + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is fully upwards-compatible with Lua 5.1. It supports all +» standard Lua +library functions and the full set of +» Lua/C API +functions. +

+

+LuaJIT is also fully ABI-compatible to Lua 5.1 at the linker/dynamic +loader level. This means you can compile a C module against the +standard Lua headers and load the same shared library from either Lua +or LuaJIT. +

+

+LuaJIT extends the standard Lua VM with new functionality and adds +several extension modules. Please note this page is only about +functional enhancements and not about performance enhancements, +such as the optimized VM, the faster interpreter or the JIT compiler. +

+ +

Extensions Modules

+

+LuaJIT comes with several built-in extension modules: +

+ +

bit.* — Bitwise operations

+

+LuaJIT supports all bitwise operations as defined by +» Lua BitOp: +

+
+bit.tobit  bit.tohex  bit.bnot    bit.band bit.bor  bit.bxor
+bit.lshift bit.rshift bit.arshift bit.rol  bit.ror  bit.bswap
+
+

+This module is a LuaJIT built-in — you don't need to download or +install Lua BitOp. The Lua BitOp site has full documentation for all +» Lua BitOp API functions. +

+

+Please make sure to require the module before using any of +its functions: +

+
+local bit = require("bit")
+
+

+An already installed Lua BitOp module is ignored by LuaJIT. +This way you can use bit operations from both Lua and LuaJIT on a +shared installation. +

+ +

ffi.* — FFI library

+

+The FFI library allows calling external +C functions and the use of C data structures from pure Lua +code. +

+ +

jit.* — JIT compiler control

+

+The functions in this module +control the behavior of the JIT compiler engine. +

+ +

C API extensions

+

+LuaJIT adds some +extra functions to the Lua/C API. +

+ +

Enhanced Standard Library Functions

+ +

xpcall(f, err [,args...]) passes arguments

+

+Unlike the standard implementation in Lua 5.1, xpcall() +passes any arguments after the error function to the function +which is called in a protected context. +

+ +

loadfile() etc. handle UTF-8 source code

+

+Non-ASCII characters are handled transparently by the Lua source code parser. +This allows the use of UTF-8 characters in identifiers and strings. +A UTF-8 BOM is skipped at the start of the source code. +

+ +

tostring() etc. canonicalize NaN and ±Inf

+

+All number-to-string conversions consistently convert non-finite numbers +to the same strings on all platforms. NaN results in "nan", +positive infinity results in "inf" and negative infinity results +in "-inf". +

+ +

tonumber() etc. use builtin string to number conversion

+

+All string-to-number conversions consistently convert integer and +floating-point inputs in decimal and hexadecimal on all platforms. +strtod() is not used anymore, which avoids numerous +problems with poor C library implementations. The builtin conversion +function provides full precision according to the IEEE-754 standard, it +works independently of the current locale and it supports hex floating-point +numbers (e.g. 0x1.5p-3). +

+ +

string.dump(f [,strip]) generates portable bytecode

+

+An extra argument has been added to string.dump(). If set to +true, 'stripped' bytecode without debug information is +generated. This speeds up later bytecode loading and reduces memory +usage. See also the +-b command line option. +

+

+The generated bytecode is portable and can be loaded on any architecture +that LuaJIT supports, independent of word size or endianess. However the +bytecode compatibility versions must match. Bytecode stays compatible +for dot releases (x.y.0 → x.y.1), but may change with major or +minor releases (2.0 → 2.1) or between any beta release. Foreign +bytecode (e.g. from Lua 5.1) is incompatible and cannot be loaded. +

+ +

Enhanced PRNG for math.random()

+

+LuaJIT uses a Tausworthe PRNG with period 2^223 to implement +math.random() and math.randomseed(). The quality of +the PRNG results is much superior compared to the standard Lua +implementation which uses the platform-specific ANSI rand(). +

+

+The PRNG generates the same sequences from the same seeds on all +platforms and makes use of all bits in the seed argument. +math.random() without arguments generates 52 pseudo-random bits +for every call. The result is uniformly distributed between 0.0 and 1.0. +It's correctly scaled up and rounded for math.random(n [,m]) to +preserve uniformity. +

+ +

io.* functions handle 64 bit file offsets

+

+The file I/O functions in the standard io.* library handle +64 bit file offsets. In particular this means it's possible +to open files larger than 2 Gigabytes and to reposition or obtain +the current file position for offsets beyond 2 GB +(fp:seek() method). +

+ +

debug.* functions identify metamethods

+

+debug.getinfo() and lua_getinfo() also return information +about invoked metamethods. The namewhat field is set to +"metamethod" and the name field has the name of +the corresponding metamethod (e.g. "__index"). +

+ +

Fully Resumable VM

+

+The LuaJIT VM is fully resumable. This means you can yield from a +coroutine even across contexts, where this would not possible with +the standard Lua 5.1 VM: e.g. you can yield across pcall() +and xpcall(), across iterators and across metamethods. +

+ +

Extensions from Lua 5.2

+

+LuaJIT supports some language and library extensions from Lua 5.2. +Features that are unlikely to break existing code are unconditionally +enabled: +

+
    +
  • goto and ::labels::.
    • +
  • Hex escapes '\x3F' and '\*' escape in strings.
    • +
  • load(string|reader [, chunkname [,mode [,env]]]).
    • +
  • loadstring() is an alias for load().
    • +
  • loadfile(filename [,mode [,env]]).
    • +
  • math.log(x [,base]). +
  • string.rep(s, n [,sep]). +
  • string.format(): %q reversible. +%s checks __tostring. +%a and "%A added.
    • +
  • String matching pattern %g added.
    • +
  • io.read("*L").
    • +
  • io.lines() and file:lines() process +io.read() options.
    • +
  • os.exit(status|true|false [,close]).
    • +
  • package.searchpath(name, path [, sep [, rep]]).
    • +
  • package.loadlib(name, "*").
    • +
  • debug.getinfo() returns nparams and isvararg +for option "u".
    • +
  • debug.getlocal() accepts function instead of level.
    • +
  • debug.getlocal() and debug.setlocal() accept negative +indexes for varargs.
    • +
  • debug.getupvalue() and debug.setupvalue() handle +C functions.
    • +
  • debug.upvalueid() and debug.upvaluejoin().
    • +
  • Command line option -E.
    • +
  • Command line checks __tostring for errors.
    • +
+

+Other features are only enabled, if LuaJIT is built with +-DLUAJIT_ENABLE_LUA52COMPAT: +

+
    +
  • goto is a keyword and not a valid variable name anymore.
    • +
  • break can be placed anywhere. Empty statements (;;) +are allowed.
    • +
  • __lt, __le are invoked for mixed types.
    • +
  • __len for tables. rawlen() library function.
    • +
  • pairs() and ipairs() check for __pairs and +__ipairs.
    • +
  • coroutine.running() returns two results.
    • +
  • table.pack() and table.unpack() +(same as unpack()).
    • +
  • io.write() and file:write() return file handle +instead of true.
    • +
  • os.execute() and pipe:close() return detailed +exit status.
    • +
  • debug.setmetatable() returns object.
    • +
  • debug.getuservalue() and debug.setuservalue().
    • +
  • Remove math.mod(), string.gfind(). +
+

+Note: this provides only partial compatibility with Lua 5.2 at the +language and Lua library level. LuaJIT is API+ABI-compatible with +Lua 5.1, which prevents implementing features that would otherwise +break the Lua/C API and ABI (e.g. _ENV). +

+ +

C++ Exception Interoperability

+

+LuaJIT has built-in support for interoperating with C++ exceptions. +The available range of features depends on the target platform and +the toolchain used to compile LuaJIT: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
PlatformCompilerInteroperability
POSIX/x64, DWARF2 unwindingGCC 4.3+Full
Other platforms, DWARF2 unwindingGCCLimited
Windows/x64MSVC or WinSDKFull
Windows/x86AnyNo
Other platformsOther compilersNo
+

+Full interoperability means: +

+
    +
  • C++ exceptions can be caught on the Lua side with pcall(), +lua_pcall() etc.
    • +
  • C++ exceptions will be converted to the generic Lua error +"C++ exception", unless you use the +C call wrapper feature.
    • +
  • It's safe to throw C++ exceptions across non-protected Lua frames +on the C stack. The contents of the C++ exception object +pass through unmodified.
    • +
  • Lua errors can be caught on the C++ side with catch(...). +The corresponding Lua error message can be retrieved from the Lua stack.
    • +
  • Throwing Lua errors across C++ frames is safe. C++ destructors +will be called.
    • +
+

+Limited interoperability means: +

+
    +
  • C++ exceptions can be caught on the Lua side with pcall(), +lua_pcall() etc.
    • +
  • C++ exceptions will be converted to the generic Lua error +"C++ exception", unless you use the +C call wrapper feature.
    • +
  • C++ exceptions will be caught by non-protected Lua frames and +are rethrown as a generic Lua error. The C++ exception object will +be destroyed.
    • +
  • Lua errors cannot be caught on the C++ side.
    • +
  • Throwing Lua errors across C++ frames will not call +C++ destructors.
    • +
+ +

+No interoperability means: +

+
    +
  • It's not safe to throw C++ exceptions across Lua frames.
    • +
  • C++ exceptions cannot be caught on the Lua side.
    • +
  • Lua errors cannot be caught on the C++ side.
    • +
  • Throwing Lua errors across C++ frames will not call +C++ destructors.
    • +
  • Additionally, on Windows/x86 with SEH-based C++ exceptions: +it's not safe to throw a Lua error across any frames containing +a C++ function with any try/catch construct or using variables with +(implicit) destructors. This also applies to any functions which may be +inlined in such a function. It doesn't matter whether lua_error() +is called inside or outside of a try/catch or whether any object actually +needs to be destroyed: the SEH chain is corrupted and this will eventually +lead to the termination of the process.
    • +
+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/faq.html b/src/3rd party/luajit-2.0/doc/faq.html new file mode 100644 index 00000000000..9902f0903c0 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/faq.html @@ -0,0 +1,184 @@ + + + +Frequently Asked Questions (FAQ) + + + + + + + + + +
+Lua +
+ + +
+
+
Q: Where can I learn more about LuaJIT and Lua?
+
+ +
+ +
+
Q: Where can I learn more about the compiler technology used by LuaJIT?
+
+I'm planning to write more documentation about the internals of LuaJIT. +In the meantime, please use the following Google Scholar searches +to find relevant papers:
+Search for: » Trace Compiler
+Search for: » JIT Compiler
+Search for: » Dynamic Language Optimizations
+Search for: » SSA Form
+Search for: » Linear Scan Register Allocation
+Here is a list of the » innovative features in LuaJIT.
+And, you know, reading the source is of course the only way to enlightenment. :-) +
+
+ +
+
Q: Why do I get this error: "attempt to index global 'arg' (a nil value)"?
+Q: My vararg functions fail after switching to LuaJIT!
+
LuaJIT is compatible to the Lua 5.1 language standard. It doesn't +support the implicit arg parameter for old-style vararg +functions from Lua 5.0.
Please convert your code to the +» Lua 5.1 +vararg syntax.
+
+ +
+
Q: Why do I get this error: "bad FPU precision"?
+
Q: I get weird behavior after initializing Direct3D.
+
Q: Some FPU operations crash after I load a Delphi DLL.
+
+
+ +DirectX/Direct3D (up to version 9) sets the x87 FPU to single-precision +mode by default. This violates the Windows ABI and interferes with the +operation of many programs — LuaJIT is affected, too. Please make +sure you always use the D3DCREATE_FPU_PRESERVE flag when +initializing Direct3D.
+ +Direct3D version 10 or higher do not show this behavior anymore. +Consider testing your application with older versions, too.
+ +Similarly, the Borland/Delphi runtime modifies the FPU control word and +enables FP exceptions. Of course this violates the Windows ABI, too. +Please check the Delphi docs for the Set8087CW method. + +
+ +
+
Q: Sometimes Ctrl-C fails to stop my Lua program. Why?
+
The interrupt signal handler sets a Lua debug hook. But this is +currently ignored by compiled code (this will eventually be fixed). If +your program is running in a tight loop and never falls back to the +interpreter, the debug hook never runs and can't throw the +"interrupted!" error.
In the meantime you have to press Ctrl-C +twice to get stop your program. That's similar to when it's stuck +running inside a C function under the Lua interpreter.
+
+ +
+
Q: Why doesn't my favorite power-patch for Lua apply against LuaJIT?
+
Because it's a completely redesigned VM and has very little code +in common with Lua anymore. Also, if the patch introduces changes to +the Lua semantics, these would need to be reflected everywhere in the +VM, from the interpreter up to all stages of the compiler.
Please +use only standard Lua language constructs. For many common needs you +can use source transformations or use wrapper or proxy functions. +The compiler will happily optimize away such indirections.
+
+ +
+
Q: Lua runs everywhere. Why doesn't LuaJIT support my CPU?
+
Because it's a compiler — it needs to generate native +machine code. This means the code generator must be ported to each +architecture. And the fast interpreter is written in assembler and +must be ported, too. This is quite an undertaking.
+The install documentation shows the supported +architectures. Other architectures will follow based on sufficient user +demand and/or sponsoring.
+
+ +
+
Q: When will feature X be added? When will the next version be released?
+
When it's ready.
+C'mon, it's open source — I'm doing it on my own time and you're +getting it for free. You can either contribute a patch or sponsor +the development of certain features, if they are important to you. +
+
+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/img/contact.png b/src/3rd party/luajit-2.0/doc/img/contact.png new file mode 100644 index 0000000000000000000000000000000000000000..9c73dc594efc1f47309d6c9b73d7719c3a9e04df GIT binary patch literal 1340 zcmV-C1;hG@P)sQ4|K#fZOHEVa==(`aQP0%nM@di3(&I%(O)@h#$&+f^&9&U}9=sU}#xfW8dZX zS6X4+hl`eQb9`=bdTMQUS6N_FRb1EH?oLrx)!OXR*y%bu zKs7fzyTH%6zRkD1%O4*iwYte19Urr}$DpLK7#SM{1qGa-tpfuC0RaJph?9SUjedfR ze1M8)YI0?0aARg}VPtGhP*&yZ{!C6(sq^PzF3k;#Avk3_bkCL7T2MCRjoQjT_h>Vwp zij{MAe{pnuZ*qHWaCvKPcUD+m*xm0?Qd!p9?bO-p)7k3L*XYmH<~BGyy}{8mHafb$ z&bYnIARr?h9v~YW9vK=O7Z@4@1O%I(tO5c8@Y5f50008dNklZz)3AlitwxnPH%H`Uot)Wm#A~UJD{dq04A@c=B#o!5#fVO zK9y#&^Z}?|*LsioK&(FDooZAR)tQj#4t{T51EP;48U9I=7br`Bk^O8MkeX!ZNe^m_BH=Vrj*jZZuSKj$t2j7FZ^2u4YKv8(~ zaMJ@oQZ>+`rSiG$iy;5QP}GpcaF4=ry2srsiZ0RqYjK@LQA)d@GB0_aay0Tvrp83dAL2x{13 zII2|!RUp(7P{l^2T*QHZ71!E*QcTqNtMh0|uLS!2k^8W?Ka#6$aBn3*=LUe(BpUo6 z=nkI1fP*0x3aYH^su6tQT}{)EfU4IyLBQ-;(w1i;#)>KNGk41l6I5_B2)f}c}CK-PL&a{M5Rut(jQ@VX1_p&z6vN)t zNcp7CYSP6-mE96jwhE}y?lvr|2kRa0g^iLTaJ1y+9qs~F+W}}-FHd&oy;TeG2n6hM z2eK~@vIu+Z%WDWZDK7wkG0}TEXW(~!Gk+0t(i)Sck-Ht%F=yzi{ZFXe-}F6T**!vM y)$^3mN5{Eb6*vAD>S)nmP3aw7v29)6WaBSReaJM4z7xj)0000 + + +Installation + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is only distributed as a source package. This page explains +how to build and install LuaJIT with different operating systems +and C compilers. +

+

+For the impatient (on POSIX systems): +

+
+make && sudo make install
+
+

+LuaJIT currently builds out-of-the box on most systems. +Here's the compatibility matrix for the supported combinations of +operating systems, CPUs and compilers: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CPU / OSLinux or
Android		*BSD, OtherOSX 10.4+ or
iOS 3.0+		Windows
XP/Vista/7
x86 (32 bit)GCC 4.x
GCC 3.4		GCC 4.x
GCC 3.4		GCC 4.x
GCC 3.4		MSVC, MSVC/EE
WinSDK
MinGW, Cygwin
x64 (64 bit)GCC 4.xORBIS (PS4)GCC 4.xMSVC + SDK v7.0
WinSDK v7.0
ARMv5+
ARM9E+		GCC 4.2+GCC 4.2+
PSP2 (PS VITA)		GCC 4.2+ 
PPCGCC 4.3+GCC 4.3+
GCC 4.1 (PS3)		 XEDK (Xbox 360)
PPC/e500v2GCC 4.3+GCC 4.3+  
MIPSGCC 4.3+GCC 4.3+  
+ +

Configuring LuaJIT

+

+The standard configuration should work fine for most installations. +Usually there is no need to tweak the settings. The following files +hold all user-configurable settings: +

+
    +
  • src/luaconf.h sets some configuration variables.
    • +
  • Makefile has settings for installing LuaJIT (POSIX +only).
    • +
  • src/Makefile has settings for compiling LuaJIT +under POSIX, MinGW or Cygwin.
    • +
  • src/msvcbuild.bat has settings for compiling LuaJIT with +MSVC or WinSDK.
    • +
+

+Please read the instructions given in these files, before changing +any settings. +

+ +

POSIX Systems (Linux, OSX, *BSD etc.)

+

Prerequisites

+

+Depending on your distribution, you may need to install a package for +GCC, the development headers and/or a complete SDK. E.g. on a current +Debian/Ubuntu, install libc6-dev with the package manager. +

+

+Download the current source package of LuaJIT (pick the .tar.gz), +if you haven't already done so. Move it to a directory of your choice, +open a terminal window and change to this directory. Now unpack the archive +and change to the newly created directory: +

+
+tar zxf LuaJIT-2.0.3.tar.gz
+cd LuaJIT-2.0.3
+

Building LuaJIT

+

+The supplied Makefiles try to auto-detect the settings needed for your +operating system and your compiler. They need to be run with GNU Make, +which is probably the default on your system, anyway. Simply run: +

+
+make
+
+

+This always builds a native x86, x64 or PPC binary, depending on the host OS +you're running this command on. Check the section on +cross-compilation for more options. +

+

+By default, modules are only searched under the prefix /usr/local. +You can add an extra prefix to the search paths by appending the +PREFIX option, e.g.: +

+
+make PREFIX=/home/myself/lj2
+
+

+Note for OSX: if the MACOSX_DEPLOYMENT_TARGET environment +variable is not set, then it's forced to 10.4. +

+

Installing LuaJIT

+

+The top-level Makefile installs LuaJIT by default under +/usr/local, i.e. the executable ends up in +/usr/local/bin and so on. You need root privileges +to write to this path. So, assuming sudo is installed on your system, +run the following command and enter your sudo password: +

+
+sudo make install
+
+

+Otherwise specify the directory prefix as an absolute path, e.g.: +

+
+make install PREFIX=/home/myself/lj2
+
+

+Obviously the prefixes given during build and installation need to be the same. +

+ +

Windows Systems

+

Prerequisites

+

+Either install one of the open source SDKs +(» MinGW or +» Cygwin), which come with a modified +GCC plus the required development headers. +

+

+Or install Microsoft's Visual C++ (MSVC). The freely downloadable +» Express Edition +works just fine, but only contains an x86 compiler. +

+

+The freely downloadable +» Windows SDK +only comes with command line tools, but this is all you need to build LuaJIT. +It contains x86 and x64 compilers. +

+

+Next, download the source package and unpack it using an archive manager +(e.g. the Windows Explorer) to a directory of your choice. +

+

Building with MSVC

+

+Open a "Visual Studio .NET Command Prompt", cd to the +directory where you've unpacked the sources and run these commands: +

+
+cd src
+msvcbuild
+
+

+Then follow the installation instructions below. +

+

Building with the Windows SDK

+

+Open a "Windows SDK Command Shell" and select the x86 compiler: +

+
+setenv /release /x86
+
+

+Or select the x64 compiler: +

+
+setenv /release /x64
+
+

+Then cd to the directory where you've unpacked the sources +and run these commands: +

+
+cd src
+msvcbuild
+
+

+Then follow the installation instructions below. +

+

Building with MinGW or Cygwin

+

+Open a command prompt window and make sure the MinGW or Cygwin programs +are in your path. Then cd to the directory where +you've unpacked the sources and run this command for MinGW: +

+
+mingw32-make
+
+

+Or this command for Cygwin: +

+
+make
+
+

+Then follow the installation instructions below. +

+

Installing LuaJIT

+

+Copy luajit.exe and lua51.dll (built in the src +directory) to a newly created directory (any location is ok). +Add lua and lua\jit directories below it and copy +all Lua files from the src\jit directory of the distribution +to the latter directory. +

+

+There are no hardcoded +absolute path names — all modules are loaded relative to the +directory where luajit.exe is installed +(see src/luaconf.h). +

+ +

Cross-compiling LuaJIT

+

+The GNU Makefile-based build system allows cross-compiling on any host +for any supported target, as long as both architectures have the same +pointer size. If you want to cross-compile to any 32 bit target on an +x64 OS, you need to install the multilib development package (e.g. +libc6-dev-i386 on Debian/Ubuntu) and build a 32 bit host part +(HOST_CC="gcc -m32"). +

+

+You need to specify TARGET_SYS whenever the host OS and the +target OS differ, or you'll get assembler or linker errors. E.g. if +you're compiling on a Windows or OSX host for embedded Linux or Android, +you need to add TARGET_SYS=Linux to the examples below. For a +minimal target OS, you may need to disable the built-in allocator in +src/Makefile and use TARGET_SYS=Other. The examples +below only show some popular targets — please check the comments +in src/Makefile for more details. +

+
+# Cross-compile to a 32 bit binary on a multilib x64 OS
+make CC="gcc -m32"
+
+# Cross-compile on Debian/Ubuntu for Windows (mingw32 package)
+make HOST_CC="gcc -m32" CROSS=i586-mingw32msvc- TARGET_SYS=Windows
+
+

+The CROSS prefix allows specifying a standard GNU cross-compile +toolchain (Binutils, GCC and a matching libc). The prefix may vary +depending on the --target the toolchain was built for (note the +CROSS prefix has a trailing "-"). The examples below +use the canonical toolchain triplets for Linux. +

+

+Since there's often no easy way to detect CPU features at runtime, it's +important to compile with the proper CPU or architecture settings. You +can specify these when building the toolchain yourself. Or add +-mcpu=... or -march=... to TARGET_CFLAGS. For +ARM it's important to have the correct -mfloat-abi=... setting, +too. Otherwise LuaJIT may not run at the full performance of your target +CPU. +

+
+# ARM soft-float
+make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabi- \
+     TARGET_CFLAGS="-mfloat-abi=soft"
+
+# ARM soft-float ABI with VFP (example for Cortex-A8)
+make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabi- \
+     TARGET_CFLAGS="-mcpu=cortex-a8 -mfloat-abi=softfp"
+
+# ARM hard-float ABI with VFP (armhf, requires recent toolchain)
+make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabihf-
+
+# PPC
+make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu-
+# PPC/e500v2 (fast interpreter only)
+make HOST_CC="gcc -m32" CROSS=powerpc-e500v2-linux-gnuspe-
+
+# MIPS big-endian
+make HOST_CC="gcc -m32" CROSS=mips-linux-
+# MIPS little-endian
+make HOST_CC="gcc -m32" CROSS=mipsel-linux-
+
+

+You can cross-compile for Android using the » Android NDK. +The environment variables need to match the install locations and the +desired target platform. E.g. Android 4.0 corresponds to ABI level 14. +For details check the folder docs in the NDK directory. +

+

+Only a few common variations for the different CPUs, ABIs and platforms +are listed. Please use your own judgement for which combination you want +to build/deploy or which lowest common denominator you want to pick: +

+
+# Android/ARM, armeabi (ARMv5TE soft-float), Android 2.2+ (Froyo)
+NDK=/opt/android/ndk
+NDKABI=8
+NDKVER=$NDK/toolchains/arm-linux-androideabi-4.6
+NDKP=$NDKVER/prebuilt/linux-x86/bin/arm-linux-androideabi-
+NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-arm"
+make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
+
+# Android/ARM, armeabi-v7a (ARMv7 VFP), Android 4.0+ (ICS)
+NDK=/opt/android/ndk
+NDKABI=14
+NDKVER=$NDK/toolchains/arm-linux-androideabi-4.6
+NDKP=$NDKVER/prebuilt/linux-x86/bin/arm-linux-androideabi-
+NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-arm"
+NDKARCH="-march=armv7-a -mfloat-abi=softfp -Wl,--fix-cortex-a8"
+make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF $NDKARCH"
+
+# Android/MIPS, mips (MIPS32R1 hard-float), Android 4.0+ (ICS)
+NDK=/opt/android/ndk
+NDKABI=14
+NDKVER=$NDK/toolchains/mipsel-linux-android-4.6
+NDKP=$NDKVER/prebuilt/linux-x86/bin/mipsel-linux-android-
+NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-mips"
+make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
+
+# Android/x86, x86 (i686 SSE3), Android 4.0+ (ICS)
+NDK=/opt/android/ndk
+NDKABI=14
+NDKVER=$NDK/toolchains/x86-4.6
+NDKP=$NDKVER/prebuilt/linux-x86/bin/i686-linux-android-
+NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-x86"
+make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
+
+

+You can cross-compile for iOS 3.0+ (iPhone/iPad) using the » iOS SDK. +The environment variables need to match the iOS SDK version: +

+

+Note: the JIT compiler is disabled for iOS, because regular iOS Apps +are not allowed to generate code at runtime. You'll only get the performance +of the LuaJIT interpreter on iOS. This is still faster than plain Lua, but +much slower than the JIT compiler. Please complain to Apple, not me. +Or use Android. :-p +

+
+IXCODE=`xcode-select -print-path`
+ISDK=$IXCODE/Platforms/iPhoneOS.platform/Developer
+ISDKVER=iPhoneOS6.0.sdk
+ISDKP=$ISDK/usr/bin/
+ISDKF="-arch armv7 -isysroot $ISDK/SDKs/$ISDKVER"
+make HOST_CC="gcc -m32 -arch i386" CROSS=$ISDKP TARGET_FLAGS="$ISDKF" \
+     TARGET_SYS=iOS
+
+ +

Cross-compiling for consoles

+

+Building LuaJIT for consoles requires both a supported host compiler +(x86 or x64) and a cross-compiler (to PPC or ARM) from the official +console SDK. +

+

+Due to restrictions on consoles, the JIT compiler is disabled and only +the fast interpreter is built. This is still faster than plain Lua, +but much slower than the JIT compiler. The FFI is disabled, too, since +it's not very useful in such an environment. +

+

+The following commands build a static library libluajit.a, +which can be linked against your game, just like the Lua library. +

+

+To cross-compile for PS3 from a Linux host (requires +32 bit GCC, i.e. multilib Linux/x64) or a Windows host (requires +32 bit MinGW), run this command: +

+
+make HOST_CC="gcc -m32" CROSS=ppu-lv2-
+
+

+To cross-compile for PS4 from a Windows host, +open a "Visual Studio .NET Command Prompt" (64 bit host compiler), +cd to the directory where you've unpacked the sources and +run the following commands: +

+
+cd src
+ps4build
+
+

+To cross-compile for PS Vita from a Windows host, +open a "Visual Studio .NET Command Prompt" (32 bit host compiler), +cd to the directory where you've unpacked the sources and +run the following commands: +

+
+cd src
+psvitabuild
+
+

+To cross-compile for Xbox 360 from a Windows host, +open a "Visual Studio .NET Command Prompt" (32 bit host compiler), +cd to the directory where you've unpacked the sources and run +the following commands: +

+
+cd src
+xedkbuild
+
+ +

Embedding LuaJIT

+

+LuaJIT is API-compatible with Lua 5.1. If you've already embedded Lua +into your application, you probably don't need to do anything to switch +to LuaJIT, except link with a different library: +

+
    +
  • It's strongly suggested to build LuaJIT separately using the supplied +build system. Please do not attempt to integrate the individual +source files into your build tree. You'll most likely get the internal build +dependencies wrong or mess up the compiler flags. Treat LuaJIT like any +other external library and link your application with either the dynamic +or static library, depending on your needs.
    • +
  • If you want to load C modules compiled for plain Lua +with require(), you need to make sure the public symbols +(e.g. lua_pushnumber) are exported, too: +
    • On POSIX systems you can either link to the shared library +or link the static library into your application. In the latter case +you'll need to export all public symbols from your main executable +(e.g. -Wl,-E on Linux) and add the external dependencies +(e.g. -lm -ldl on Linux).
      • +
    • Since Windows symbols are bound to a specific DLL name, you need to +link to the lua51.dll created by the LuaJIT build (do not rename +the DLL). You may link LuaJIT statically on Windows only if you don't +intend to load Lua/C modules at runtime. +
    +
    • +
  • +If you're building a 64 bit application on OSX which links directly or +indirectly against LuaJIT, you need to link your main executable +with these flags: +
    +-pagezero_size 10000 -image_base 100000000
+
    +Also, it's recommended to rebase all (self-compiled) shared libraries +which are loaded at runtime on OSX/x64 (e.g. C extension modules for Lua). +See: man rebase +
    • +
+

Additional hints for initializing LuaJIT using the C API functions:

+
    +
  • Here's a +» simple example +for embedding Lua or LuaJIT into your application.
    • +
  • Make sure you use luaL_newstate. Avoid using +lua_newstate, since this uses the (slower) default memory +allocator from your system (no support for this on x64).
    • +
  • Make sure you use luaL_openlibs and not the old Lua 5.0 style +of calling luaopen_base etc. directly.
    • +
  • To change or extend the list of standard libraries to load, copy +src/lib_init.c to your project and modify it accordingly. +Make sure the jit library is loaded or the JIT compiler +will not be activated.
    • +
  • The bit.* module for bitwise operations +is already built-in. There's no need to statically link +» Lua BitOp to your application.
    • +
+ +

Hints for Distribution Maintainers

+

+The LuaJIT build system has extra provisions for the needs of most +POSIX-based distributions. If you're a package maintainer for +a distribution, please make use of these features and +avoid patching, subverting, autotoolizing or messing up the build system +in unspeakable ways. +

+

+There should be absolutely no need to patch luaconf.h or any +of the Makefiles. And please do not hand-pick files for your packages — +simply use whatever make install creates. There's a reason +for all of the files and directories it creates. +

+

+The build system uses GNU make and auto-detects most settings based on +the host you're building it on. This should work fine for native builds, +even when sandboxed. You may need to pass some of the following flags to +both the make and the make install command lines +for a regular distribution build: +

+
    +
  • PREFIX overrides the installation path and should usually +be set to /usr. Setting this also changes the module paths and +the paths needed to locate the shared library.
    • +
  • DESTDIR is an absolute path which allows you to install +to a shadow tree instead of the root tree of the build system.
    • +
  • MULTILIB sets the architecture-specific library path component +for multilib systems. The default is lib.
    • +
  • Have a look at the top-level Makefile and src/Makefile +for additional variables to tweak. The following variables may be +overridden, but it's not recommended, except for special needs +like cross-builds: +BUILDMODE, CC, HOST_CC, STATIC_CC, DYNAMIC_CC, CFLAGS, HOST_CFLAGS, +TARGET_CFLAGS, LDFLAGS, HOST_LDFLAGS, TARGET_LDFLAGS, TARGET_SHLDFLAGS, +TARGET_FLAGS, LIBS, HOST_LIBS, TARGET_LIBS, CROSS, HOST_SYS, TARGET_SYS +
    • +
+

+The build system has a special target for an amalgamated build, i.e. +make amalg. This compiles the LuaJIT core as one huge C file +and allows GCC to generate faster and shorter code. Alas, this requires +lots of memory during the build. This may be a problem for some users, +that's why it's not enabled by default. But it shouldn't be a problem for +most build farms. It's recommended that binary distributions use this +target for their LuaJIT builds. +

+

+The tl;dr version of the above: +

+
+make amalg PREFIX=/usr && \
+make install PREFIX=/usr DESTDIR=/tmp/buildroot
+
+

+Finally, if you encounter any difficulties, please +contact me first, instead of releasing a broken +package onto unsuspecting users. Because they'll usually gonna complain +to me (the upstream) and not you (the package maintainer), anyway. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/luajit.html b/src/3rd party/luajit-2.0/doc/luajit.html new file mode 100644 index 00000000000..45507c122b4 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/luajit.html @@ -0,0 +1,234 @@ + + + +LuaJIT + + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT is a Just-In-Time Compiler (JIT) for the +» Lua programming language. +Lua is a powerful, dynamic and light-weight programming language. +It may be embedded or used as a general-purpose, stand-alone language. +

+

+LuaJIT is Copyright © 2005-2015 Mike Pall, released under the +» MIT open source license. +

+

+

+ +

Compatibility

+ + +
WindowsLinuxBSDOSXPOSIX
+ + +
EmbeddedAndroidiOS
+ + +
PS3PS4PS VitaXbox 360
+ + +
GCCCLANG
LLVM		MSVC
+ + +
x86x64ARMPPCe500MIPS
+ + +
Lua 5.1
API+ABI		+ JIT+ BitOp+ FFIDrop-in
DLL/.so
+ +

Overview

+ + + + + + + + + +
3x
-  100x		115 KB
VM		90 KB
JIT		63 KLOC
C		24 KLOC
ASM		11 KLOC
Lua
+

+LuaJIT has been successfully used as a scripting middleware in +games, appliances, network and graphics apps, numerical simulations, +trading platforms and many other specialty applications. It scales from +embedded devices, smartphones, desktops up to server farms. It combines +high flexibility with » high performance +and an unmatched low memory footprint. +

+

+LuaJIT has been in continuous development since 2005. It's widely +considered to be one of the fastest dynamic language +implementations. It has outperformed other dynamic languages on many +cross-language benchmarks since its first release — often by a +substantial margin. +

+

+For LuaJIT 2.0, the whole VM has been rewritten from the ground up +and relentlessly optimized for performance. It combines a high-speed +interpreter, written in assembler, with a state-of-the-art JIT +compiler. +

+

+An innovative trace compiler is integrated with advanced, +SSA-based optimizations and highly tuned code generation backends. +A substantial reduction of the overhead associated with dynamic languages +allows it to break into the performance range traditionally reserved for +offline, static language compilers. +

+ +

More ...

+

+Please select a sub-topic in the navigation bar to learn more about LuaJIT. +

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/running.html b/src/3rd party/luajit-2.0/doc/running.html new file mode 100644 index 00000000000..c2ec51132d1 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/running.html @@ -0,0 +1,306 @@ + + + +Running LuaJIT + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT has only a single stand-alone executable, called luajit on +POSIX systems or luajit.exe on Windows. It can be used to run simple +Lua statements or whole Lua applications from the command line. It has an +interactive mode, too. +

+ +

Command Line Options

+

+The luajit stand-alone executable is just a slightly modified +version of the regular lua stand-alone executable. +It supports the same basic options, too. luajit -h +prints a short list of the available options. Please have a look at the +» Lua manual +for details. +

+

+LuaJIT has some additional options: +

+ +

-b[options] input output

+

+This option saves or lists bytecode. The following additional options +are accepted: +

+
    +
  • -l — Only list bytecode.
    • +
  • -s — Strip debug info (this is the default).
    • +
  • -g — Keep debug info.
    • +
  • -n name — Set module name (default: auto-detect from input name)
    • +
  • -t type — Set output file type (default: auto-detect from output name).
    • +
  • -a arch — Override architecture for object files (default: native).
    • +
  • -o os — Override OS for object files (default: native).
    • +
  • -e chunk — Use chunk string as input.
    • +
  • - (a single minus sign) — Use stdin as input and/or stdout as output.
    • +
+

+The output file type is auto-detected from the extension of the output +file name: +

+
    +
  • c — C source file, exported bytecode data.
    • +
  • h — C header file, static bytecode data.
    • +
  • obj or o — Object file, exported bytecode data +(OS- and architecture-specific).
    • +
  • raw or any other extension — Raw bytecode file (portable). +
+

+Notes: +

+
    +
  • See also string.dump() +for information on bytecode portability and compatibility.
    • +
  • A file in raw bytecode format is auto-detected and can be loaded like +any Lua source file. E.g. directly from the command line or with +loadfile(), dofile() etc.
    • +
  • To statically embed the bytecode of a module in your application, +generate an object file and just link it with your application.
    • +
  • On most ELF-based systems (e.g. Linux) you need to explicitly export the +global symbols when linking your application, e.g. with: -Wl,-E
    • +
  • require() tries to load embedded bytecode data from exported +symbols (in *.exe or lua51.dll on Windows) and from +shared libraries in package.cpath.
    • +
+

+Typical usage examples: +

+
+luajit -b test.lua test.out                 # Save bytecode to test.out
+luajit -bg test.lua test.out                # Keep debug info
+luajit -be "print('hello world')" test.out  # Save cmdline script
+
+luajit -bl test.lua                         # List to stdout
+luajit -bl test.lua test.txt                # List to test.txt
+luajit -ble "print('hello world')"          # List cmdline script
+
+luajit -b test.lua test.obj                 # Generate object file
+# Link test.obj with your application and load it with require("test")
+
+ +

-j cmd[=arg[,arg...]]

+

+This option performs a LuaJIT control command or activates one of the +loadable extension modules. The command is first looked up in the +jit.* library. If no matching function is found, a module +named jit.<cmd> is loaded and the start() +function of the module is called with the specified arguments (if +any). The space between -j and cmd is optional. +

+

+Here are the available LuaJIT control commands: +

+
    +
  • -jon — Turns the JIT compiler on (default).
    • +
  • -joff — Turns the JIT compiler off (only use the interpreter).
    • +
  • -jflush — Flushes the whole cache of compiled code.
    • +
  • -jv — Shows verbose information about the progress of the JIT compiler.
    • +
  • -jdump — Dumps the code and structures used in various compiler stages.
    • +
+

+The -jv and -jdump commands are extension modules +written in Lua. They are mainly used for debugging the JIT compiler +itself. For a description of their options and output format, please +read the comment block at the start of their source. +They can be found in the lib directory of the source +distribution or installed under the jit directory. By default +this is /usr/local/share/luajit-2.0.3/jit on POSIX +systems. +

+ +

-O[level]
+-O[+]flag   -O-flag
+-Oparam=value

+

+This options allows fine-tuned control of the optimizations used by +the JIT compiler. This is mainly intended for debugging LuaJIT itself. +Please note that the JIT compiler is extremely fast (we are talking +about the microsecond to millisecond range). Disabling optimizations +doesn't have any visible impact on its overhead, but usually generates +code that runs slower. +

+

+The first form sets an optimization level — this enables a +specific mix of optimization flags. -O0 turns off all +optimizations and higher numbers enable more optimizations. Omitting +the level (i.e. just -O) sets the default optimization level, +which is -O3 in the current version. +

+

+The second form adds or removes individual optimization flags. +The third form sets a parameter for the VM or the JIT compiler +to a specific value. +

+

+You can either use this option multiple times (like -Ocse +-O-dce -Ohotloop=10) or separate several settings with a comma +(like -O+cse,-dce,hotloop=10). The settings are applied from +left to right and later settings override earlier ones. You can freely +mix the three forms, but note that setting an optimization level +overrides all earlier flags. +

+

+Here are the available flags and at what optimization levels they +are enabled: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Flag-O1-O2-O3 
fold•••Constant Folding, Simplifications and Reassociation
cse•••Common-Subexpression Elimination
dce•••Dead-Code Elimination
narrow ••Narrowing of numbers to integers
loop ••Loop Optimizations (code hoisting)
fwd  •Load Forwarding (L2L) and Store Forwarding (S2L)
dse  •Dead-Store Elimination
abc  •Array Bounds Check Elimination
sink  •Allocation/Store Sinking
fuse  •Fusion of operands into instructions
+

+Here are the parameters and their default settings: +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ParameterDefault 
maxtrace1000Max. number of traces in the cache
maxrecord4000Max. number of recorded IR instructions
maxirconst500Max. number of IR constants of a trace
maxside100Max. number of side traces of a root trace
maxsnap500Max. number of snapshots for a trace
hotloop56Number of iterations to detect a hot loop or hot call
hotexit10Number of taken exits to start a side trace
tryside4Number of attempts to compile a side trace
instunroll4Max. unroll factor for instable loops
loopunroll15Max. unroll factor for loop ops in side traces
callunroll3Max. unroll factor for pseudo-recursive calls
recunroll2Min. unroll factor for true recursion
sizemcode32Size of each machine code area in KBytes (Windows: 64K)
maxmcode512Max. total size of all machine code areas in KBytes
+
+
+ + + diff --git a/src/3rd party/luajit-2.0/doc/status.html b/src/3rd party/luajit-2.0/doc/status.html new file mode 100644 index 00000000000..e3655d48cb0 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/status.html @@ -0,0 +1,125 @@ + + + +Status & Roadmap + + + + + + + + + +
+Lua +
+ + +
+

+LuaJIT 2.0 is the current +stable branch. This branch is in +feature-freeze — new features will only be added to LuaJIT 2.1. +

+ +

Current Status

+

+LuaJIT ought to run all Lua 5.1-compatible source code just fine. +It's considered a serious bug if the VM crashes or produces unexpected +results — please report this. +

+

+Known incompatibilities and issues in LuaJIT 2.0: +

+
    +
  • +There are some differences in implementation-defined behavior. +These either have a good reason, are arbitrary design choices +or are due to quirks in the VM. The latter cases may get fixed if a +demonstrable need is shown. +
    • +
  • +The Lua debug API is missing a couple of features (return +hooks for non-Lua functions) and shows slightly different behavior +in LuaJIT (no per-coroutine hooks, no tail call counting). +
    • +
  • +Some checks are missing in the JIT-compiled code for obscure situations +with open upvalues aliasing one of the SSA slots later on (or +vice versa). Bonus points, if you can find a real world test case for +this. +
    • +
  • +Currently some out-of-memory errors from on-trace code are not +handled correctly. The error may fall through an on-trace +pcall or it may be passed on to the function set with +lua_atpanic on x64. This issue will be fixed with the new +garbage collector. +
    • +
+ +

Roadmap

+

+Please refer to the +» LuaJIT Roadmap 2012/2013 and an +» update on release planning for details. +

+

+

+
+
+ + + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm.h b/src/3rd party/luajit-2.0/dynasm/dasm_arm.h new file mode 100644 index 00000000000..57e0116f5ac --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_arm.h @@ -0,0 +1,456 @@ +/* +** DynASM ARM encoding engine. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "arm" + +#ifndef DASM_EXTERN +#define DASM_EXTERN(a,b,c,d) 0 +#endif + +/* Action definitions. */ +enum { + DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, + /* The following actions need a buffer position. */ + DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, + /* The following actions also have an argument. */ + DASM_REL_PC, DASM_LABEL_PC, + DASM_IMM, DASM_IMM12, DASM_IMM16, DASM_IMML8, DASM_IMML12, DASM_IMMV8, + DASM__MAX +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_RANGE_REL 0x15000000 +#define DASM_S_UNDEF_LG 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Action list type. */ +typedef const unsigned int *dasm_ActList; + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, const void *actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = (dasm_ActList)actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +static int dasm_imm12(unsigned int n) +{ + int i; + for (i = 0; i < 16; i++, n = (n << 2) | (n >> 30)) + if (n <= 255) return (int)(n + (i << 8)); + return -1; +} + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + if (action >= DASM__MAX) { + ofs += 4; + } else { + int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; + switch (action) { + case DASM_STOP: goto stop; + case DASM_SECTION: + n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); + D->section = &D->sections[n]; goto stop; + case DASM_ESC: p++; ofs += 4; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; + case DASM_REL_LG: + n = (ins & 2047) - 10; pl = D->lglabels + n; + /* Bkwd rel or global. */ + if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } + pl += 10; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + break; + case DASM_LABEL_LG: + pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; + } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_IMM: + case DASM_IMM16: +#ifdef DASM_CHECKS + CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); + if ((ins & 0x8000)) + CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); + else + CK((n>>((ins>>5)&31)) == 0, RANGE_I); +#endif + b[pos++] = n; + break; + case DASM_IMMV8: + CK((n & 3) == 0, RANGE_I); + n >>= 2; + case DASM_IMML8: + case DASM_IMML12: + CK(n >= 0 ? ((n>>((ins>>5)&31)) == 0) : + (((-n)>>((ins>>5)&31)) == 0), RANGE_I); + b[pos++] = n; + break; + case DASM_IMM12: + CK(dasm_imm12((unsigned int)n) != -1, RANGE_I); + b[pos++] = n; + break; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: p++; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; + case DASM_REL_LG: case DASM_REL_PC: pos++; break; + case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; + case DASM_IMM: case DASM_IMM12: case DASM_IMM16: + case DASM_IMML8: case DASM_IMML12: case DASM_IMMV8: pos++; break; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) +#else +#define CK(x, st) ((void)0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + char *base = (char *)buffer; + unsigned int *cp = (unsigned int *)buffer; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: *cp++ = *p++; break; + case DASM_REL_EXT: + n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins&2047), !(ins&2048)); + goto patchrel; + case DASM_ALIGN: + ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0xe1a00000; + break; + case DASM_REL_LG: + CK(n >= 0, UNDEF_LG); + case DASM_REL_PC: + CK(n >= 0, UNDEF_PC); + n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base) - 4; + patchrel: + if ((ins & 0x800) == 0) { + CK((n & 3) == 0 && ((n+0x02000000) >> 26) == 0, RANGE_REL); + cp[-1] |= ((n >> 2) & 0x00ffffff); + } else if ((ins & 0x1000)) { + CK((n & 3) == 0 && -256 <= n && n <= 256, RANGE_REL); + goto patchimml8; + } else if ((ins & 0x2000) == 0) { + CK((n & 3) == 0 && -4096 <= n && n <= 4096, RANGE_REL); + goto patchimml; + } else { + CK((n & 3) == 0 && -1020 <= n && n <= 1020, RANGE_REL); + n >>= 2; + goto patchimml; + } + break; + case DASM_LABEL_LG: + ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); + break; + case DASM_LABEL_PC: break; + case DASM_IMM: + cp[-1] |= ((n>>((ins>>10)&31)) & ((1<<((ins>>5)&31))-1)) << (ins&31); + break; + case DASM_IMM12: + cp[-1] |= dasm_imm12((unsigned int)n); + break; + case DASM_IMM16: + cp[-1] |= ((n & 0xf000) << 4) | (n & 0x0fff); + break; + case DASM_IMML8: patchimml8: + cp[-1] |= n >= 0 ? (0x00800000 | (n & 0x0f) | ((n & 0xf0) << 4)) : + ((-n & 0x0f) | ((-n & 0xf0) << 4)); + break; + case DASM_IMML12: case DASM_IMMV8: patchimml: + cp[-1] |= n >= 0 ? (0x00800000 | n) : (-n); + break; + default: *cp++ = ins; break; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != (char *)cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} +#undef CK + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm.lua b/src/3rd party/luajit-2.0/dynasm/dasm_arm.lua new file mode 100644 index 00000000000..90a259c5c33 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_arm.lua @@ -0,0 +1,1125 @@ +------------------------------------------------------------------------------ +-- DynASM ARM module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "arm", + description = "DynASM ARM module", + version = "1.3.0", + vernum = 10300, + release = "2011-05-05", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, setmetatable, rawget = assert, setmetatable, rawget +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local match, gmatch, gsub = _s.match, _s.gmatch, _s.gsub +local concat, sort, insert = table.concat, table.sort, table.insert +local bit = bit or require("bit") +local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift +local ror, tohex = bit.ror, bit.tohex + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + "STOP", "SECTION", "ESC", "REL_EXT", + "ALIGN", "REL_LG", "LABEL_LG", + "REL_PC", "LABEL_PC", "IMM", "IMM12", "IMM16", "IMML8", "IMML12", "IMMV8", +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number. +local map_action = {} +for n,name in ipairs(action_names) do + map_action[name] = n-1 +end + +-- Action list buffer. +local actlist = {} + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + if nn == 0 then nn = 1; actlist[0] = map_action.STOP end + out:write("static const unsigned int ", name, "[", nn, "] = {\n") + for i = 1,nn-1 do + assert(out:write("0x", tohex(actlist[i]), ",\n")) + end + assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) +end + +------------------------------------------------------------------------------ + +-- Add word to action list. +local function wputxw(n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, val, a, num) + local w = assert(map_action[action], "bad action name `"..action.."'") + wputxw(w * 0x10000 + (val or 0)) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + if #actlist == actargs[1] then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped word. +local function wputw(n) + if n <= 0x000fffff then waction("ESC") end + wputxw(n) +end + +-- Reserve position for word. +local function wpos() + local pos = #actlist+1 + actlist[pos] = "" + return pos +end + +-- Store word to reserved position. +local function wputpos(pos, n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + if n <= 0x000fffff then + insert(actlist, pos+1, n) + n = map_action.ESC * 0x10000 + end + actlist[pos] = n +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 20 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 2047 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=20,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=20,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +-- Write global label names. +local function writeglobalnames(out, name) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=20,next_global-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Extern label name -> extern label number. With auto assignment on 1st use. +local next_extern = 0 +local map_extern_ = {} +local map_extern = setmetatable({}, { __index = function(t, name) + -- No restrictions on the name for now. + local n = next_extern + if n > 2047 then werror("too many extern labels") end + next_extern = n + 1 + t[name] = n + map_extern_[n] = name + return n +end}) + +-- Dump extern labels. +local function dumpexterns(out, lvl) + out:write("Extern labels:\n") + for i=0,next_extern-1 do + out:write(format(" %s\n", map_extern_[i])) + end + out:write("\n") +end + +-- Write extern label names. +local function writeexternnames(out, name) + out:write("static const char *const ", name, "[] = {\n") + for i=0,next_extern-1 do + out:write(" \"", map_extern_[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. + +-- Ext. register name -> int. name. +local map_archdef = { sp = "r13", lr = "r14", pc = "r15", } + +-- Int. register name -> ext. name. +local map_reg_rev = { r13 = "sp", r14 = "lr", r15 = "pc", } + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for Dt... macros). + +-- Reverse defines for registers. +function _M.revdef(s) + return map_reg_rev[s] or s +end + +local map_shift = { lsl = 0, lsr = 1, asr = 2, ror = 3, } + +local map_cond = { + eq = 0, ne = 1, cs = 2, cc = 3, mi = 4, pl = 5, vs = 6, vc = 7, + hi = 8, ls = 9, ge = 10, lt = 11, gt = 12, le = 13, al = 14, + hs = 2, lo = 3, +} + +------------------------------------------------------------------------------ + +-- Template strings for ARM instructions. +local map_op = { + -- Basic data processing instructions. + and_3 = "e0000000DNPs", + eor_3 = "e0200000DNPs", + sub_3 = "e0400000DNPs", + rsb_3 = "e0600000DNPs", + add_3 = "e0800000DNPs", + adc_3 = "e0a00000DNPs", + sbc_3 = "e0c00000DNPs", + rsc_3 = "e0e00000DNPs", + tst_2 = "e1100000NP", + teq_2 = "e1300000NP", + cmp_2 = "e1500000NP", + cmn_2 = "e1700000NP", + orr_3 = "e1800000DNPs", + mov_2 = "e1a00000DPs", + bic_3 = "e1c00000DNPs", + mvn_2 = "e1e00000DPs", + + and_4 = "e0000000DNMps", + eor_4 = "e0200000DNMps", + sub_4 = "e0400000DNMps", + rsb_4 = "e0600000DNMps", + add_4 = "e0800000DNMps", + adc_4 = "e0a00000DNMps", + sbc_4 = "e0c00000DNMps", + rsc_4 = "e0e00000DNMps", + tst_3 = "e1100000NMp", + teq_3 = "e1300000NMp", + cmp_3 = "e1500000NMp", + cmn_3 = "e1700000NMp", + orr_4 = "e1800000DNMps", + mov_3 = "e1a00000DMps", + bic_4 = "e1c00000DNMps", + mvn_3 = "e1e00000DMps", + + lsl_3 = "e1a00000DMws", + lsr_3 = "e1a00020DMws", + asr_3 = "e1a00040DMws", + ror_3 = "e1a00060DMws", + rrx_2 = "e1a00060DMs", + + -- Multiply and multiply-accumulate. + mul_3 = "e0000090NMSs", + mla_4 = "e0200090NMSDs", + umaal_4 = "e0400090DNMSs", -- v6 + mls_4 = "e0600090DNMSs", -- v6T2 + umull_4 = "e0800090DNMSs", + umlal_4 = "e0a00090DNMSs", + smull_4 = "e0c00090DNMSs", + smlal_4 = "e0e00090DNMSs", + + -- Halfword multiply and multiply-accumulate. + smlabb_4 = "e1000080NMSD", -- v5TE + smlatb_4 = "e10000a0NMSD", -- v5TE + smlabt_4 = "e10000c0NMSD", -- v5TE + smlatt_4 = "e10000e0NMSD", -- v5TE + smlawb_4 = "e1200080NMSD", -- v5TE + smulwb_3 = "e12000a0NMS", -- v5TE + smlawt_4 = "e12000c0NMSD", -- v5TE + smulwt_3 = "e12000e0NMS", -- v5TE + smlalbb_4 = "e1400080NMSD", -- v5TE + smlaltb_4 = "e14000a0NMSD", -- v5TE + smlalbt_4 = "e14000c0NMSD", -- v5TE + smlaltt_4 = "e14000e0NMSD", -- v5TE + smulbb_3 = "e1600080NMS", -- v5TE + smultb_3 = "e16000a0NMS", -- v5TE + smulbt_3 = "e16000c0NMS", -- v5TE + smultt_3 = "e16000e0NMS", -- v5TE + + -- Miscellaneous data processing instructions. + clz_2 = "e16f0f10DM", -- v5T + rev_2 = "e6bf0f30DM", -- v6 + rev16_2 = "e6bf0fb0DM", -- v6 + revsh_2 = "e6ff0fb0DM", -- v6 + sel_3 = "e6800fb0DNM", -- v6 + usad8_3 = "e780f010NMS", -- v6 + usada8_4 = "e7800010NMSD", -- v6 + rbit_2 = "e6ff0f30DM", -- v6T2 + movw_2 = "e3000000DW", -- v6T2 + movt_2 = "e3400000DW", -- v6T2 + -- Note: the X encodes width-1, not width. + sbfx_4 = "e7a00050DMvX", -- v6T2 + ubfx_4 = "e7e00050DMvX", -- v6T2 + -- Note: the X encodes the msb field, not the width. + bfc_3 = "e7c0001fDvX", -- v6T2 + bfi_4 = "e7c00010DMvX", -- v6T2 + + -- Packing and unpacking instructions. + pkhbt_3 = "e6800010DNM", pkhbt_4 = "e6800010DNMv", -- v6 + pkhtb_3 = "e6800050DNM", pkhtb_4 = "e6800050DNMv", -- v6 + sxtab_3 = "e6a00070DNM", sxtab_4 = "e6a00070DNMv", -- v6 + sxtab16_3 = "e6800070DNM", sxtab16_4 = "e6800070DNMv", -- v6 + sxtah_3 = "e6b00070DNM", sxtah_4 = "e6b00070DNMv", -- v6 + sxtb_2 = "e6af0070DM", sxtb_3 = "e6af0070DMv", -- v6 + sxtb16_2 = "e68f0070DM", sxtb16_3 = "e68f0070DMv", -- v6 + sxth_2 = "e6bf0070DM", sxth_3 = "e6bf0070DMv", -- v6 + uxtab_3 = "e6e00070DNM", uxtab_4 = "e6e00070DNMv", -- v6 + uxtab16_3 = "e6c00070DNM", uxtab16_4 = "e6c00070DNMv", -- v6 + uxtah_3 = "e6f00070DNM", uxtah_4 = "e6f00070DNMv", -- v6 + uxtb_2 = "e6ef0070DM", uxtb_3 = "e6ef0070DMv", -- v6 + uxtb16_2 = "e6cf0070DM", uxtb16_3 = "e6cf0070DMv", -- v6 + uxth_2 = "e6ff0070DM", uxth_3 = "e6ff0070DMv", -- v6 + + -- Saturating instructions. + qadd_3 = "e1000050DMN", -- v5TE + qsub_3 = "e1200050DMN", -- v5TE + qdadd_3 = "e1400050DMN", -- v5TE + qdsub_3 = "e1600050DMN", -- v5TE + -- Note: the X for ssat* encodes sat_imm-1, not sat_imm. + ssat_3 = "e6a00010DXM", ssat_4 = "e6a00010DXMp", -- v6 + usat_3 = "e6e00010DXM", usat_4 = "e6e00010DXMp", -- v6 + ssat16_3 = "e6a00f30DXM", -- v6 + usat16_3 = "e6e00f30DXM", -- v6 + + -- Parallel addition and subtraction. + sadd16_3 = "e6100f10DNM", -- v6 + sasx_3 = "e6100f30DNM", -- v6 + ssax_3 = "e6100f50DNM", -- v6 + ssub16_3 = "e6100f70DNM", -- v6 + sadd8_3 = "e6100f90DNM", -- v6 + ssub8_3 = "e6100ff0DNM", -- v6 + qadd16_3 = "e6200f10DNM", -- v6 + qasx_3 = "e6200f30DNM", -- v6 + qsax_3 = "e6200f50DNM", -- v6 + qsub16_3 = "e6200f70DNM", -- v6 + qadd8_3 = "e6200f90DNM", -- v6 + qsub8_3 = "e6200ff0DNM", -- v6 + shadd16_3 = "e6300f10DNM", -- v6 + shasx_3 = "e6300f30DNM", -- v6 + shsax_3 = "e6300f50DNM", -- v6 + shsub16_3 = "e6300f70DNM", -- v6 + shadd8_3 = "e6300f90DNM", -- v6 + shsub8_3 = "e6300ff0DNM", -- v6 + uadd16_3 = "e6500f10DNM", -- v6 + uasx_3 = "e6500f30DNM", -- v6 + usax_3 = "e6500f50DNM", -- v6 + usub16_3 = "e6500f70DNM", -- v6 + uadd8_3 = "e6500f90DNM", -- v6 + usub8_3 = "e6500ff0DNM", -- v6 + uqadd16_3 = "e6600f10DNM", -- v6 + uqasx_3 = "e6600f30DNM", -- v6 + uqsax_3 = "e6600f50DNM", -- v6 + uqsub16_3 = "e6600f70DNM", -- v6 + uqadd8_3 = "e6600f90DNM", -- v6 + uqsub8_3 = "e6600ff0DNM", -- v6 + uhadd16_3 = "e6700f10DNM", -- v6 + uhasx_3 = "e6700f30DNM", -- v6 + uhsax_3 = "e6700f50DNM", -- v6 + uhsub16_3 = "e6700f70DNM", -- v6 + uhadd8_3 = "e6700f90DNM", -- v6 + uhsub8_3 = "e6700ff0DNM", -- v6 + + -- Load/store instructions. + str_2 = "e4000000DL", str_3 = "e4000000DL", str_4 = "e4000000DL", + strb_2 = "e4400000DL", strb_3 = "e4400000DL", strb_4 = "e4400000DL", + ldr_2 = "e4100000DL", ldr_3 = "e4100000DL", ldr_4 = "e4100000DL", + ldrb_2 = "e4500000DL", ldrb_3 = "e4500000DL", ldrb_4 = "e4500000DL", + strh_2 = "e00000b0DL", strh_3 = "e00000b0DL", + ldrh_2 = "e01000b0DL", ldrh_3 = "e01000b0DL", + ldrd_2 = "e00000d0DL", ldrd_3 = "e00000d0DL", -- v5TE + ldrsb_2 = "e01000d0DL", ldrsb_3 = "e01000d0DL", + strd_2 = "e00000f0DL", strd_3 = "e00000f0DL", -- v5TE + ldrsh_2 = "e01000f0DL", ldrsh_3 = "e01000f0DL", + + ldm_2 = "e8900000oR", ldmia_2 = "e8900000oR", ldmfd_2 = "e8900000oR", + ldmda_2 = "e8100000oR", ldmfa_2 = "e8100000oR", + ldmdb_2 = "e9100000oR", ldmea_2 = "e9100000oR", + ldmib_2 = "e9900000oR", ldmed_2 = "e9900000oR", + stm_2 = "e8800000oR", stmia_2 = "e8800000oR", stmfd_2 = "e8800000oR", + stmda_2 = "e8000000oR", stmfa_2 = "e8000000oR", + stmdb_2 = "e9000000oR", stmea_2 = "e9000000oR", + stmib_2 = "e9800000oR", stmed_2 = "e9800000oR", + pop_1 = "e8bd0000R", push_1 = "e92d0000R", + + -- Branch instructions. + b_1 = "ea000000B", + bl_1 = "eb000000B", + blx_1 = "e12fff30C", + bx_1 = "e12fff10M", + + -- Miscellaneous instructions. + nop_0 = "e1a00000", + mrs_1 = "e10f0000D", + bkpt_1 = "e1200070K", -- v5T + svc_1 = "ef000000T", swi_1 = "ef000000T", + ud_0 = "e7f001f0", + + -- VFP instructions. + ["vadd.f32_3"] = "ee300a00dnm", + ["vadd.f64_3"] = "ee300b00Gdnm", + ["vsub.f32_3"] = "ee300a40dnm", + ["vsub.f64_3"] = "ee300b40Gdnm", + ["vmul.f32_3"] = "ee200a00dnm", + ["vmul.f64_3"] = "ee200b00Gdnm", + ["vnmul.f32_3"] = "ee200a40dnm", + ["vnmul.f64_3"] = "ee200b40Gdnm", + ["vmla.f32_3"] = "ee000a00dnm", + ["vmla.f64_3"] = "ee000b00Gdnm", + ["vmls.f32_3"] = "ee000a40dnm", + ["vmls.f64_3"] = "ee000b40Gdnm", + ["vnmla.f32_3"] = "ee100a40dnm", + ["vnmla.f64_3"] = "ee100b40Gdnm", + ["vnmls.f32_3"] = "ee100a00dnm", + ["vnmls.f64_3"] = "ee100b00Gdnm", + ["vdiv.f32_3"] = "ee800a00dnm", + ["vdiv.f64_3"] = "ee800b00Gdnm", + + ["vabs.f32_2"] = "eeb00ac0dm", + ["vabs.f64_2"] = "eeb00bc0Gdm", + ["vneg.f32_2"] = "eeb10a40dm", + ["vneg.f64_2"] = "eeb10b40Gdm", + ["vsqrt.f32_2"] = "eeb10ac0dm", + ["vsqrt.f64_2"] = "eeb10bc0Gdm", + ["vcmp.f32_2"] = "eeb40a40dm", + ["vcmp.f64_2"] = "eeb40b40Gdm", + ["vcmpe.f32_2"] = "eeb40ac0dm", + ["vcmpe.f64_2"] = "eeb40bc0Gdm", + ["vcmpz.f32_1"] = "eeb50a40d", + ["vcmpz.f64_1"] = "eeb50b40Gd", + ["vcmpze.f32_1"] = "eeb50ac0d", + ["vcmpze.f64_1"] = "eeb50bc0Gd", + + vldr_2 = "ed100a00dl|ed100b00Gdl", + vstr_2 = "ed000a00dl|ed000b00Gdl", + vldm_2 = "ec900a00or", + vldmia_2 = "ec900a00or", + vldmdb_2 = "ed100a00or", + vpop_1 = "ecbd0a00r", + vstm_2 = "ec800a00or", + vstmia_2 = "ec800a00or", + vstmdb_2 = "ed000a00or", + vpush_1 = "ed2d0a00r", + + ["vmov.f32_2"] = "eeb00a40dm|eeb00a00dY", -- #imm is VFPv3 only + ["vmov.f64_2"] = "eeb00b40Gdm|eeb00b00GdY", -- #imm is VFPv3 only + vmov_2 = "ee100a10Dn|ee000a10nD", + vmov_3 = "ec500a10DNm|ec400a10mDN|ec500b10GDNm|ec400b10GmDN", + + vmrs_0 = "eef1fa10", + vmrs_1 = "eef10a10D", + vmsr_1 = "eee10a10D", + + ["vcvt.s32.f32_2"] = "eebd0ac0dm", + ["vcvt.s32.f64_2"] = "eebd0bc0dGm", + ["vcvt.u32.f32_2"] = "eebc0ac0dm", + ["vcvt.u32.f64_2"] = "eebc0bc0dGm", + ["vcvtr.s32.f32_2"] = "eebd0a40dm", + ["vcvtr.s32.f64_2"] = "eebd0b40dGm", + ["vcvtr.u32.f32_2"] = "eebc0a40dm", + ["vcvtr.u32.f64_2"] = "eebc0b40dGm", + ["vcvt.f32.s32_2"] = "eeb80ac0dm", + ["vcvt.f64.s32_2"] = "eeb80bc0GdFm", + ["vcvt.f32.u32_2"] = "eeb80a40dm", + ["vcvt.f64.u32_2"] = "eeb80b40GdFm", + ["vcvt.f32.f64_2"] = "eeb70bc0dGm", + ["vcvt.f64.f32_2"] = "eeb70ac0GdFm", + + -- VFPv4 only: + ["vfma.f32_3"] = "eea00a00dnm", + ["vfma.f64_3"] = "eea00b00Gdnm", + ["vfms.f32_3"] = "eea00a40dnm", + ["vfms.f64_3"] = "eea00b40Gdnm", + ["vfnma.f32_3"] = "ee900a40dnm", + ["vfnma.f64_3"] = "ee900b40Gdnm", + ["vfnms.f32_3"] = "ee900a00dnm", + ["vfnms.f64_3"] = "ee900b00Gdnm", + + -- NYI: Advanced SIMD instructions. + + -- NYI: I have no need for these instructions right now: + -- swp, swpb, strex, ldrex, strexd, ldrexd, strexb, ldrexb, strexh, ldrexh + -- msr, nopv6, yield, wfe, wfi, sev, dbg, bxj, smc, srs, rfe + -- cps, setend, pli, pld, pldw, clrex, dsb, dmb, isb + -- stc, ldc, mcr, mcr2, mrc, mrc2, mcrr, mcrr2, mrrc, mrrc2, cdp, cdp2 +} + +-- Add mnemonics for "s" variants. +do + local t = {} + for k,v in pairs(map_op) do + if sub(v, -1) == "s" then + local v2 = sub(v, 1, 2)..char(byte(v, 3)+1)..sub(v, 4, -2) + t[sub(k, 1, -3).."s"..sub(k, -2)] = v2 + end + end + for k,v in pairs(t) do + map_op[k] = v + end +end + +------------------------------------------------------------------------------ + +local function parse_gpr(expr) + local tname, ovreg = match(expr, "^([%w_]+):(r1?[0-9])$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + if not reg then + werror("type `"..(tname or expr).."' needs a register override") + end + expr = reg + end + local r = match(expr, "^r(1?[0-9])$") + if r then + r = tonumber(r) + if r <= 15 then return r, tp end + end + werror("bad register name `"..expr.."'") +end + +local function parse_gpr_pm(expr) + local pm, expr2 = match(expr, "^([+-]?)(.*)$") + return parse_gpr(expr2), (pm == "-") +end + +local function parse_vr(expr, tp) + local t, r = match(expr, "^([sd])([0-9]+)$") + if t == tp then + r = tonumber(r) + if r <= 31 then + if t == "s" then return shr(r, 1), band(r, 1) end + return band(r, 15), shr(r, 4) + end + end + werror("bad register name `"..expr.."'") +end + +local function parse_reglist(reglist) + reglist = match(reglist, "^{%s*([^}]*)}$") + if not reglist then werror("register list expected") end + local rr = 0 + for p in gmatch(reglist..",", "%s*([^,]*),") do + local rbit = shl(1, parse_gpr(gsub(p, "%s+$", ""))) + if band(rr, rbit) ~= 0 then + werror("duplicate register `"..p.."'") + end + rr = rr + rbit + end + return rr +end + +local function parse_vrlist(reglist) + local ta, ra, tb, rb = match(reglist, + "^{%s*([sd])([0-9]+)%s*%-%s*([sd])([0-9]+)%s*}$") + ra, rb = tonumber(ra), tonumber(rb) + if ta and ta == tb and ra and rb and ra <= 31 and rb <= 31 and ra <= rb then + local nr = rb+1 - ra + if ta == "s" then + return shl(shr(ra,1),12)+shl(band(ra,1),22) + nr + else + return shl(band(ra,15),12)+shl(shr(ra,4),22) + nr*2 + 0x100 + end + end + werror("register list expected") +end + +local function parse_imm(imm, bits, shift, scale, signed) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = tonumber(imm) + if n then + local m = sar(n, scale) + if shl(m, scale) == n then + if signed then + local s = sar(m, bits-1) + if s == 0 then return shl(m, shift) + elseif s == -1 then return shl(m + shl(1, bits), shift) end + else + if sar(m, bits) == 0 then return shl(m, shift) end + end + end + werror("out of range immediate `"..imm.."'") + else + waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) + return 0 + end +end + +local function parse_imm12(imm) + local n = tonumber(imm) + if n then + local m = band(n) + for i=0,-15,-1 do + if shr(m, 8) == 0 then return m + shl(band(i, 15), 8) end + m = ror(m, 2) + end + werror("out of range immediate `"..imm.."'") + else + waction("IMM12", 0, imm) + return 0 + end +end + +local function parse_imm16(imm) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = tonumber(imm) + if n then + if shr(n, 16) == 0 then return band(n, 0x0fff) + shl(band(n, 0xf000), 4) end + werror("out of range immediate `"..imm.."'") + else + waction("IMM16", 32*16, imm) + return 0 + end +end + +local function parse_imm_load(imm, ext) + local n = tonumber(imm) + if n then + if ext then + if n >= -255 and n <= 255 then + local up = 0x00800000 + if n < 0 then n = -n; up = 0 end + return shl(band(n, 0xf0), 4) + band(n, 0x0f) + up + end + else + if n >= -4095 and n <= 4095 then + if n >= 0 then return n+0x00800000 end + return -n + end + end + werror("out of range immediate `"..imm.."'") + else + waction(ext and "IMML8" or "IMML12", 32768 + shl(ext and 8 or 12, 5), imm) + return 0 + end +end + +local function parse_shift(shift, gprok) + if shift == "rrx" then + return 3 * 32 + else + local s, s2 = match(shift, "^(%S+)%s*(.*)$") + s = map_shift[s] + if not s then werror("expected shift operand") end + if sub(s2, 1, 1) == "#" then + return parse_imm(s2, 5, 7, 0, false) + shl(s, 5) + else + if not gprok then werror("expected immediate shift operand") end + return shl(parse_gpr(s2), 8) + shl(s, 5) + 16 + end + end +end + +local function parse_label(label, def) + local prefix = sub(label, 1, 2) + -- =>label (pc label reference) + if prefix == "=>" then + return "PC", 0, sub(label, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "LG", map_global[sub(label, 3)] + end + if def then + -- [1-9] (local label definition) + if match(label, "^[1-9]$") then + return "LG", 10+tonumber(label) + end + else + -- [<>][1-9] (local label reference) + local dir, lnum = match(label, "^([<>])([1-9])$") + if dir then -- Fwd: 1-9, Bkwd: 11-19. + return "LG", lnum + (dir == ">" and 0 or 10) + end + -- extern label (extern label reference) + local extname = match(label, "^extern%s+(%S+)$") + if extname then + return "EXT", map_extern[extname] + end + end + werror("bad label `"..label.."'") +end + +local function parse_load(params, nparams, n, op) + local oplo = band(op, 255) + local ext, ldrd = (oplo ~= 0), (oplo == 208) + local d + if (ldrd or oplo == 240) then + d = band(shr(op, 12), 15) + if band(d, 1) ~= 0 then werror("odd destination register") end + end + local pn = params[n] + local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") + local p2 = params[n+1] + if not p1 then + if not p2 then + if match(pn, "^[<>=%-]") or match(pn, "^extern%s+") then + local mode, n, s = parse_label(pn, false) + waction("REL_"..mode, n + (ext and 0x1800 or 0x0800), s, 1) + return op + 15 * 65536 + 0x01000000 + (ext and 0x00400000 or 0) + end + local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local d, tp = parse_gpr(reg) + if tp then + waction(ext and "IMML8" or "IMML12", 32768 + 32*(ext and 8 or 12), + format(tp.ctypefmt, tailr)) + return op + shl(d, 16) + 0x01000000 + (ext and 0x00400000 or 0) + end + end + end + werror("expected address operand") + end + if wb == "!" then op = op + 0x00200000 end + if p2 then + if wb == "!" then werror("bad use of '!'") end + local p3 = params[n+2] + op = op + shl(parse_gpr(p1), 16) + local imm = match(p2, "^#(.*)$") + if imm then + local m = parse_imm_load(imm, ext) + if p3 then werror("too many parameters") end + op = op + m + (ext and 0x00400000 or 0) + else + local m, neg = parse_gpr_pm(p2) + if ldrd and (m == d or m-1 == d) then werror("register conflict") end + op = op + m + (neg and 0 or 0x00800000) + (ext and 0 or 0x02000000) + if p3 then op = op + parse_shift(p3) end + end + else + local p1a, p2 = match(p1, "^([^,%s]*)%s*(.*)$") + op = op + shl(parse_gpr(p1a), 16) + 0x01000000 + if p2 ~= "" then + local imm = match(p2, "^,%s*#(.*)$") + if imm then + local m = parse_imm_load(imm, ext) + op = op + m + (ext and 0x00400000 or 0) + else + local p2a, p3 = match(p2, "^,%s*([^,%s]*)%s*,?%s*(.*)$") + local m, neg = parse_gpr_pm(p2a) + if ldrd and (m == d or m-1 == d) then werror("register conflict") end + op = op + m + (neg and 0 or 0x00800000) + (ext and 0 or 0x02000000) + if p3 ~= "" then + if ext then werror("too many parameters") end + op = op + parse_shift(p3) + end + end + else + if wb == "!" then werror("bad use of '!'") end + op = op + (ext and 0x00c00000 or 0x00800000) + end + end + return op +end + +local function parse_vload(q) + local reg, imm = match(q, "^%[%s*([^,%s]*)%s*(.*)%]$") + if reg then + local d = shl(parse_gpr(reg), 16) + if imm == "" then return d end + imm = match(imm, "^,%s*#(.*)$") + if imm then + local n = tonumber(imm) + if n then + if n >= -1020 and n <= 1020 and n%4 == 0 then + return d + (n >= 0 and n/4+0x00800000 or -n/4) + end + werror("out of range immediate `"..imm.."'") + else + waction("IMMV8", 32768 + 32*8, imm) + return d + end + end + else + if match(q, "^[<>=%-]") or match(q, "^extern%s+") then + local mode, n, s = parse_label(q, false) + waction("REL_"..mode, n + 0x2800, s, 1) + return 15 * 65536 + end + local reg, tailr = match(q, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local d, tp = parse_gpr(reg) + if tp then + waction("IMMV8", 32768 + 32*8, format(tp.ctypefmt, tailr)) + return shl(d, 16) + end + end + end + werror("expected address operand") +end + +------------------------------------------------------------------------------ + +-- Handle opcodes defined with template strings. +local function parse_template(params, template, nparams, pos) + local op = tonumber(sub(template, 1, 8), 16) + local n = 1 + local vr = "s" + + -- Process each character. + for p in gmatch(sub(template, 9), ".") do + local q = params[n] + if p == "D" then + op = op + shl(parse_gpr(q), 12); n = n + 1 + elseif p == "N" then + op = op + shl(parse_gpr(q), 16); n = n + 1 + elseif p == "S" then + op = op + shl(parse_gpr(q), 8); n = n + 1 + elseif p == "M" then + op = op + parse_gpr(q); n = n + 1 + elseif p == "d" then + local r,h = parse_vr(q, vr); op = op+shl(r,12)+shl(h,22); n = n + 1 + elseif p == "n" then + local r,h = parse_vr(q, vr); op = op+shl(r,16)+shl(h,7); n = n + 1 + elseif p == "m" then + local r,h = parse_vr(q, vr); op = op+r+shl(h,5); n = n + 1 + elseif p == "P" then + local imm = match(q, "^#(.*)$") + if imm then + op = op + parse_imm12(imm) + 0x02000000 + else + op = op + parse_gpr(q) + end + n = n + 1 + elseif p == "p" then + op = op + parse_shift(q, true); n = n + 1 + elseif p == "L" then + op = parse_load(params, nparams, n, op) + elseif p == "l" then + op = op + parse_vload(q) + elseif p == "B" then + local mode, n, s = parse_label(q, false) + waction("REL_"..mode, n, s, 1) + elseif p == "C" then -- blx gpr vs. blx label. + if match(q, "^([%w_]+):(r1?[0-9])$") or match(q, "^r(1?[0-9])$") then + op = op + parse_gpr(q) + else + if op < 0xe0000000 then werror("unconditional instruction") end + local mode, n, s = parse_label(q, false) + waction("REL_"..mode, n, s, 1) + op = 0xfa000000 + end + elseif p == "F" then + vr = "s" + elseif p == "G" then + vr = "d" + elseif p == "o" then + local r, wb = match(q, "^([^!]*)(!?)$") + op = op + shl(parse_gpr(r), 16) + (wb == "!" and 0x00200000 or 0) + n = n + 1 + elseif p == "R" then + op = op + parse_reglist(q); n = n + 1 + elseif p == "r" then + op = op + parse_vrlist(q); n = n + 1 + elseif p == "W" then + op = op + parse_imm16(q); n = n + 1 + elseif p == "v" then + op = op + parse_imm(q, 5, 7, 0, false); n = n + 1 + elseif p == "w" then + local imm = match(q, "^#(.*)$") + if imm then + op = op + parse_imm(q, 5, 7, 0, false); n = n + 1 + else + op = op + shl(parse_gpr(q), 8) + 16 + end + elseif p == "X" then + op = op + parse_imm(q, 5, 16, 0, false); n = n + 1 + elseif p == "Y" then + local imm = tonumber(match(q, "^#(.*)$")); n = n + 1 + if not imm or shr(imm, 8) ~= 0 then + werror("bad immediate operand") + end + op = op + shl(band(imm, 0xf0), 12) + band(imm, 0x0f) + elseif p == "K" then + local imm = tonumber(match(q, "^#(.*)$")); n = n + 1 + if not imm or shr(imm, 16) ~= 0 then + werror("bad immediate operand") + end + op = op + shl(band(imm, 0xfff0), 4) + band(imm, 0x000f) + elseif p == "T" then + op = op + parse_imm(q, 24, 0, 0, false); n = n + 1 + elseif p == "s" then + -- Ignored. + else + assert(false) + end + end + wputpos(pos, op) +end + +map_op[".template__"] = function(params, template, nparams) + if not params then return template:gsub("%x%x%x%x%x%x%x%x", "") end + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 3 positions. + if secpos+3 > maxsecpos then wflush() end + local pos = wpos() + local lpos, apos, spos = #actlist, #actargs, secpos + + local ok, err + for t in gmatch(template, "[^|]+") do + ok, err = pcall(parse_template, params, t, nparams, pos) + if ok then return end + secpos = spos + actlist[lpos+1] = nil + actlist[lpos+2] = nil + actlist[lpos+3] = nil + actargs[apos+1] = nil + actargs[apos+2] = nil + actargs[apos+3] = nil + end + error(err, 0) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +-- Pseudo-opcode to mark the position where the global names are to be emitted. +map_op[".globalnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobalnames(out, name) end) +end + +-- Pseudo-opcode to mark the position where the extern names are to be emitted. +map_op[".externnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeexternnames(out, name) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_1"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr" end + if secpos+1 > maxsecpos then wflush() end + local mode, n, s = parse_label(params[1], true) + if mode == "EXT" then werror("bad label definition") end + waction("LABEL_"..mode, n, s, 1) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +map_op[".long_*"] = function(params) + if not params then return "imm..." end + for _,p in ipairs(params) do + local n = tonumber(p) + if not n then werror("bad immediate `"..p.."'") end + if n < 0 then n = n + 2^32 end + wputw(n) + if secpos+2 > maxsecpos then wflush() end + end +end + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + if secpos+1 > maxsecpos then wflush() end + local align = tonumber(params[1]) + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION", num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) + dumpexterns(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = function(t, k) + local v = map_coreop[k] + if v then return v end + local k1, cc, k2 = match(k, "^(.-)(..)([._].*)$") + local cv = map_cond[cc] + if cv then + local v = rawget(t, k1..k2) + if type(v) == "string" then + local scv = format("%x", cv) + return gsub(scv..sub(v, 2), "|e", "|"..scv) + end + end + end }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_mips.h b/src/3rd party/luajit-2.0/dynasm/dasm_mips.h new file mode 100644 index 00000000000..2f4c2d2220a --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_mips.h @@ -0,0 +1,416 @@ +/* +** DynASM MIPS encoding engine. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "mips" + +#ifndef DASM_EXTERN +#define DASM_EXTERN(a,b,c,d) 0 +#endif + +/* Action definitions. */ +enum { + DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, + /* The following actions need a buffer position. */ + DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, + /* The following actions also have an argument. */ + DASM_REL_PC, DASM_LABEL_PC, DASM_IMM, + DASM__MAX +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_RANGE_REL 0x15000000 +#define DASM_S_UNDEF_LG 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Action list type. */ +typedef const unsigned int *dasm_ActList; + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, const void *actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = (dasm_ActList)actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16) - 0xff00; + if (action >= DASM__MAX) { + ofs += 4; + } else { + int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; + switch (action) { + case DASM_STOP: goto stop; + case DASM_SECTION: + n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); + D->section = &D->sections[n]; goto stop; + case DASM_ESC: p++; ofs += 4; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; + case DASM_REL_LG: + n = (ins & 2047) - 10; pl = D->lglabels + n; + /* Bkwd rel or global. */ + if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } + pl += 10; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + break; + case DASM_LABEL_LG: + pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; + } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_IMM: +#ifdef DASM_CHECKS + CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); +#endif + n >>= ((ins>>10)&31); +#ifdef DASM_CHECKS + if (ins & 0x8000) + CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); + else + CK((n>>((ins>>5)&31)) == 0, RANGE_I); +#endif + b[pos++] = n; + break; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16) - 0xff00; + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: p++; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; + case DASM_REL_LG: case DASM_REL_PC: pos++; break; + case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; + case DASM_IMM: pos++; break; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) +#else +#define CK(x, st) ((void)0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + char *base = (char *)buffer; + unsigned int *cp = (unsigned int *)buffer; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16) - 0xff00; + int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: *cp++ = *p++; break; + case DASM_REL_EXT: + n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins & 2047), 1); + goto patchrel; + case DASM_ALIGN: + ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0x60000000; + break; + case DASM_REL_LG: + CK(n >= 0, UNDEF_LG); + case DASM_REL_PC: + CK(n >= 0, UNDEF_PC); + n = *DASM_POS2PTR(D, n); + if (ins & 2048) + n = n - (int)((char *)cp - base); + else + n = (n + (int)base) & 0x0fffffff; + patchrel: + CK((n & 3) == 0 && + ((n + ((ins & 2048) ? 0x00020000 : 0)) >> + ((ins & 2048) ? 18 : 28)) == 0, RANGE_REL); + cp[-1] |= ((n>>2) & ((ins & 2048) ? 0x0000ffff: 0x03ffffff)); + break; + case DASM_LABEL_LG: + ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); + break; + case DASM_LABEL_PC: break; + case DASM_IMM: + cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); + break; + default: *cp++ = ins; break; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != (char *)cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} +#undef CK + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_mips.lua b/src/3rd party/luajit-2.0/dynasm/dasm_mips.lua new file mode 100644 index 00000000000..ae0dbd7a9bc --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_mips.lua @@ -0,0 +1,953 @@ +------------------------------------------------------------------------------ +-- DynASM MIPS module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "mips", + description = "DynASM MIPS module", + version = "1.3.0", + vernum = 10300, + release = "2012-01-23", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, setmetatable = assert, setmetatable +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local match, gmatch = _s.match, _s.gmatch +local concat, sort = table.concat, table.sort +local bit = bit or require("bit") +local band, shl, sar, tohex = bit.band, bit.lshift, bit.arshift, bit.tohex + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + "STOP", "SECTION", "ESC", "REL_EXT", + "ALIGN", "REL_LG", "LABEL_LG", + "REL_PC", "LABEL_PC", "IMM", +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number. +local map_action = {} +for n,name in ipairs(action_names) do + map_action[name] = n-1 +end + +-- Action list buffer. +local actlist = {} + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + if nn == 0 then nn = 1; actlist[0] = map_action.STOP end + out:write("static const unsigned int ", name, "[", nn, "] = {\n") + for i = 1,nn-1 do + assert(out:write("0x", tohex(actlist[i]), ",\n")) + end + assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) +end + +------------------------------------------------------------------------------ + +-- Add word to action list. +local function wputxw(n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, val, a, num) + local w = assert(map_action[action], "bad action name `"..action.."'") + wputxw(0xff000000 + w * 0x10000 + (val or 0)) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + if #actlist == actargs[1] then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped word. +local function wputw(n) + if n >= 0xff000000 then waction("ESC") end + wputxw(n) +end + +-- Reserve position for word. +local function wpos() + local pos = #actlist+1 + actlist[pos] = "" + return pos +end + +-- Store word to reserved position. +local function wputpos(pos, n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[pos] = n +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 20 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 2047 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=20,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=20,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +-- Write global label names. +local function writeglobalnames(out, name) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=20,next_global-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Extern label name -> extern label number. With auto assignment on 1st use. +local next_extern = 0 +local map_extern_ = {} +local map_extern = setmetatable({}, { __index = function(t, name) + -- No restrictions on the name for now. + local n = next_extern + if n > 2047 then werror("too many extern labels") end + next_extern = n + 1 + t[name] = n + map_extern_[n] = name + return n +end}) + +-- Dump extern labels. +local function dumpexterns(out, lvl) + out:write("Extern labels:\n") + for i=0,next_extern-1 do + out:write(format(" %s\n", map_extern_[i])) + end + out:write("\n") +end + +-- Write extern label names. +local function writeexternnames(out, name) + out:write("static const char *const ", name, "[] = {\n") + for i=0,next_extern-1 do + out:write(" \"", map_extern_[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. +local map_archdef = { sp="r29", ra="r31" } -- Ext. register name -> int. name. + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for Dt... macros). + +-- Reverse defines for registers. +function _M.revdef(s) + if s == "r29" then return "sp" + elseif s == "r31" then return "ra" end + return s +end + +------------------------------------------------------------------------------ + +-- Template strings for MIPS instructions. +local map_op = { + -- First-level opcodes. + j_1 = "08000000J", + jal_1 = "0c000000J", + b_1 = "10000000B", + beqz_2 = "10000000SB", + beq_3 = "10000000STB", + bnez_2 = "14000000SB", + bne_3 = "14000000STB", + blez_2 = "18000000SB", + bgtz_2 = "1c000000SB", + addi_3 = "20000000TSI", + li_2 = "24000000TI", + addiu_3 = "24000000TSI", + slti_3 = "28000000TSI", + sltiu_3 = "2c000000TSI", + andi_3 = "30000000TSU", + lu_2 = "34000000TU", + ori_3 = "34000000TSU", + xori_3 = "38000000TSU", + lui_2 = "3c000000TU", + beqzl_2 = "50000000SB", + beql_3 = "50000000STB", + bnezl_2 = "54000000SB", + bnel_3 = "54000000STB", + blezl_2 = "58000000SB", + bgtzl_2 = "5c000000SB", + lb_2 = "80000000TO", + lh_2 = "84000000TO", + lwl_2 = "88000000TO", + lw_2 = "8c000000TO", + lbu_2 = "90000000TO", + lhu_2 = "94000000TO", + lwr_2 = "98000000TO", + sb_2 = "a0000000TO", + sh_2 = "a4000000TO", + swl_2 = "a8000000TO", + sw_2 = "ac000000TO", + swr_2 = "b8000000TO", + cache_2 = "bc000000NO", + ll_2 = "c0000000TO", + lwc1_2 = "c4000000HO", + pref_2 = "cc000000NO", + ldc1_2 = "d4000000HO", + sc_2 = "e0000000TO", + swc1_2 = "e4000000HO", + sdc1_2 = "f4000000HO", + + -- Opcode SPECIAL. + nop_0 = "00000000", + sll_3 = "00000000DTA", + movf_2 = "00000001DS", + movf_3 = "00000001DSC", + movt_2 = "00010001DS", + movt_3 = "00010001DSC", + srl_3 = "00000002DTA", + rotr_3 = "00200002DTA", + sra_3 = "00000003DTA", + sllv_3 = "00000004DTS", + srlv_3 = "00000006DTS", + rotrv_3 = "00000046DTS", + srav_3 = "00000007DTS", + jr_1 = "00000008S", + jalr_1 = "0000f809S", + jalr_2 = "00000009DS", + movz_3 = "0000000aDST", + movn_3 = "0000000bDST", + syscall_0 = "0000000c", + syscall_1 = "0000000cY", + break_0 = "0000000d", + break_1 = "0000000dY", + sync_0 = "0000000f", + mfhi_1 = "00000010D", + mthi_1 = "00000011S", + mflo_1 = "00000012D", + mtlo_1 = "00000013S", + mult_2 = "00000018ST", + multu_2 = "00000019ST", + div_2 = "0000001aST", + divu_2 = "0000001bST", + add_3 = "00000020DST", + move_2 = "00000021DS", + addu_3 = "00000021DST", + sub_3 = "00000022DST", + negu_2 = "00000023DT", + subu_3 = "00000023DST", + and_3 = "00000024DST", + or_3 = "00000025DST", + xor_3 = "00000026DST", + not_2 = "00000027DS", + nor_3 = "00000027DST", + slt_3 = "0000002aDST", + sltu_3 = "0000002bDST", + tge_2 = "00000030ST", + tge_3 = "00000030STZ", + tgeu_2 = "00000031ST", + tgeu_3 = "00000031STZ", + tlt_2 = "00000032ST", + tlt_3 = "00000032STZ", + tltu_2 = "00000033ST", + tltu_3 = "00000033STZ", + teq_2 = "00000034ST", + teq_3 = "00000034STZ", + tne_2 = "00000036ST", + tne_3 = "00000036STZ", + + -- Opcode REGIMM. + bltz_2 = "04000000SB", + bgez_2 = "04010000SB", + bltzl_2 = "04020000SB", + bgezl_2 = "04030000SB", + tgei_2 = "04080000SI", + tgeiu_2 = "04090000SI", + tlti_2 = "040a0000SI", + tltiu_2 = "040b0000SI", + teqi_2 = "040c0000SI", + tnei_2 = "040e0000SI", + bltzal_2 = "04100000SB", + bal_1 = "04110000B", + bgezal_2 = "04110000SB", + bltzall_2 = "04120000SB", + bgezall_2 = "04130000SB", + synci_1 = "041f0000O", + + -- Opcode SPECIAL2. + madd_2 = "70000000ST", + maddu_2 = "70000001ST", + mul_3 = "70000002DST", + msub_2 = "70000004ST", + msubu_2 = "70000005ST", + clz_2 = "70000020DS=", + clo_2 = "70000021DS=", + sdbbp_0 = "7000003f", + sdbbp_1 = "7000003fY", + + -- Opcode SPECIAL3. + ext_4 = "7c000000TSAM", -- Note: last arg is msbd = size-1 + ins_4 = "7c000004TSAM", -- Note: last arg is msb = pos+size-1 + wsbh_2 = "7c0000a0DT", + seb_2 = "7c000420DT", + seh_2 = "7c000620DT", + rdhwr_2 = "7c00003bTD", + + -- Opcode COP0. + mfc0_2 = "40000000TD", + mfc0_3 = "40000000TDW", + mtc0_2 = "40800000TD", + mtc0_3 = "40800000TDW", + rdpgpr_2 = "41400000DT", + di_0 = "41606000", + di_1 = "41606000T", + ei_0 = "41606020", + ei_1 = "41606020T", + wrpgpr_2 = "41c00000DT", + tlbr_0 = "42000001", + tlbwi_0 = "42000002", + tlbwr_0 = "42000006", + tlbp_0 = "42000008", + eret_0 = "42000018", + deret_0 = "4200001f", + wait_0 = "42000020", + + -- Opcode COP1. + mfc1_2 = "44000000TG", + cfc1_2 = "44400000TG", + mfhc1_2 = "44600000TG", + mtc1_2 = "44800000TG", + ctc1_2 = "44c00000TG", + mthc1_2 = "44e00000TG", + + bc1f_1 = "45000000B", + bc1f_2 = "45000000CB", + bc1t_1 = "45010000B", + bc1t_2 = "45010000CB", + bc1fl_1 = "45020000B", + bc1fl_2 = "45020000CB", + bc1tl_1 = "45030000B", + bc1tl_2 = "45030000CB", + + ["add.s_3"] = "46000000FGH", + ["sub.s_3"] = "46000001FGH", + ["mul.s_3"] = "46000002FGH", + ["div.s_3"] = "46000003FGH", + ["sqrt.s_2"] = "46000004FG", + ["abs.s_2"] = "46000005FG", + ["mov.s_2"] = "46000006FG", + ["neg.s_2"] = "46000007FG", + ["round.l.s_2"] = "46000008FG", + ["trunc.l.s_2"] = "46000009FG", + ["ceil.l.s_2"] = "4600000aFG", + ["floor.l.s_2"] = "4600000bFG", + ["round.w.s_2"] = "4600000cFG", + ["trunc.w.s_2"] = "4600000dFG", + ["ceil.w.s_2"] = "4600000eFG", + ["floor.w.s_2"] = "4600000fFG", + ["movf.s_2"] = "46000011FG", + ["movf.s_3"] = "46000011FGC", + ["movt.s_2"] = "46010011FG", + ["movt.s_3"] = "46010011FGC", + ["movz.s_3"] = "46000012FGT", + ["movn.s_3"] = "46000013FGT", + ["recip.s_2"] = "46000015FG", + ["rsqrt.s_2"] = "46000016FG", + ["cvt.d.s_2"] = "46000021FG", + ["cvt.w.s_2"] = "46000024FG", + ["cvt.l.s_2"] = "46000025FG", + ["cvt.ps.s_3"] = "46000026FGH", + ["c.f.s_2"] = "46000030GH", + ["c.f.s_3"] = "46000030VGH", + ["c.un.s_2"] = "46000031GH", + ["c.un.s_3"] = "46000031VGH", + ["c.eq.s_2"] = "46000032GH", + ["c.eq.s_3"] = "46000032VGH", + ["c.ueq.s_2"] = "46000033GH", + ["c.ueq.s_3"] = "46000033VGH", + ["c.olt.s_2"] = "46000034GH", + ["c.olt.s_3"] = "46000034VGH", + ["c.ult.s_2"] = "46000035GH", + ["c.ult.s_3"] = "46000035VGH", + ["c.ole.s_2"] = "46000036GH", + ["c.ole.s_3"] = "46000036VGH", + ["c.ule.s_2"] = "46000037GH", + ["c.ule.s_3"] = "46000037VGH", + ["c.sf.s_2"] = "46000038GH", + ["c.sf.s_3"] = "46000038VGH", + ["c.ngle.s_2"] = "46000039GH", + ["c.ngle.s_3"] = "46000039VGH", + ["c.seq.s_2"] = "4600003aGH", + ["c.seq.s_3"] = "4600003aVGH", + ["c.ngl.s_2"] = "4600003bGH", + ["c.ngl.s_3"] = "4600003bVGH", + ["c.lt.s_2"] = "4600003cGH", + ["c.lt.s_3"] = "4600003cVGH", + ["c.nge.s_2"] = "4600003dGH", + ["c.nge.s_3"] = "4600003dVGH", + ["c.le.s_2"] = "4600003eGH", + ["c.le.s_3"] = "4600003eVGH", + ["c.ngt.s_2"] = "4600003fGH", + ["c.ngt.s_3"] = "4600003fVGH", + + ["add.d_3"] = "46200000FGH", + ["sub.d_3"] = "46200001FGH", + ["mul.d_3"] = "46200002FGH", + ["div.d_3"] = "46200003FGH", + ["sqrt.d_2"] = "46200004FG", + ["abs.d_2"] = "46200005FG", + ["mov.d_2"] = "46200006FG", + ["neg.d_2"] = "46200007FG", + ["round.l.d_2"] = "46200008FG", + ["trunc.l.d_2"] = "46200009FG", + ["ceil.l.d_2"] = "4620000aFG", + ["floor.l.d_2"] = "4620000bFG", + ["round.w.d_2"] = "4620000cFG", + ["trunc.w.d_2"] = "4620000dFG", + ["ceil.w.d_2"] = "4620000eFG", + ["floor.w.d_2"] = "4620000fFG", + ["movf.d_2"] = "46200011FG", + ["movf.d_3"] = "46200011FGC", + ["movt.d_2"] = "46210011FG", + ["movt.d_3"] = "46210011FGC", + ["movz.d_3"] = "46200012FGT", + ["movn.d_3"] = "46200013FGT", + ["recip.d_2"] = "46200015FG", + ["rsqrt.d_2"] = "46200016FG", + ["cvt.s.d_2"] = "46200020FG", + ["cvt.w.d_2"] = "46200024FG", + ["cvt.l.d_2"] = "46200025FG", + ["c.f.d_2"] = "46200030GH", + ["c.f.d_3"] = "46200030VGH", + ["c.un.d_2"] = "46200031GH", + ["c.un.d_3"] = "46200031VGH", + ["c.eq.d_2"] = "46200032GH", + ["c.eq.d_3"] = "46200032VGH", + ["c.ueq.d_2"] = "46200033GH", + ["c.ueq.d_3"] = "46200033VGH", + ["c.olt.d_2"] = "46200034GH", + ["c.olt.d_3"] = "46200034VGH", + ["c.ult.d_2"] = "46200035GH", + ["c.ult.d_3"] = "46200035VGH", + ["c.ole.d_2"] = "46200036GH", + ["c.ole.d_3"] = "46200036VGH", + ["c.ule.d_2"] = "46200037GH", + ["c.ule.d_3"] = "46200037VGH", + ["c.sf.d_2"] = "46200038GH", + ["c.sf.d_3"] = "46200038VGH", + ["c.ngle.d_2"] = "46200039GH", + ["c.ngle.d_3"] = "46200039VGH", + ["c.seq.d_2"] = "4620003aGH", + ["c.seq.d_3"] = "4620003aVGH", + ["c.ngl.d_2"] = "4620003bGH", + ["c.ngl.d_3"] = "4620003bVGH", + ["c.lt.d_2"] = "4620003cGH", + ["c.lt.d_3"] = "4620003cVGH", + ["c.nge.d_2"] = "4620003dGH", + ["c.nge.d_3"] = "4620003dVGH", + ["c.le.d_2"] = "4620003eGH", + ["c.le.d_3"] = "4620003eVGH", + ["c.ngt.d_2"] = "4620003fGH", + ["c.ngt.d_3"] = "4620003fVGH", + + ["add.ps_3"] = "46c00000FGH", + ["sub.ps_3"] = "46c00001FGH", + ["mul.ps_3"] = "46c00002FGH", + ["abs.ps_2"] = "46c00005FG", + ["mov.ps_2"] = "46c00006FG", + ["neg.ps_2"] = "46c00007FG", + ["movf.ps_2"] = "46c00011FG", + ["movf.ps_3"] = "46c00011FGC", + ["movt.ps_2"] = "46c10011FG", + ["movt.ps_3"] = "46c10011FGC", + ["movz.ps_3"] = "46c00012FGT", + ["movn.ps_3"] = "46c00013FGT", + ["cvt.s.pu_2"] = "46c00020FG", + ["cvt.s.pl_2"] = "46c00028FG", + ["pll.ps_3"] = "46c0002cFGH", + ["plu.ps_3"] = "46c0002dFGH", + ["pul.ps_3"] = "46c0002eFGH", + ["puu.ps_3"] = "46c0002fFGH", + ["c.f.ps_2"] = "46c00030GH", + ["c.f.ps_3"] = "46c00030VGH", + ["c.un.ps_2"] = "46c00031GH", + ["c.un.ps_3"] = "46c00031VGH", + ["c.eq.ps_2"] = "46c00032GH", + ["c.eq.ps_3"] = "46c00032VGH", + ["c.ueq.ps_2"] = "46c00033GH", + ["c.ueq.ps_3"] = "46c00033VGH", + ["c.olt.ps_2"] = "46c00034GH", + ["c.olt.ps_3"] = "46c00034VGH", + ["c.ult.ps_2"] = "46c00035GH", + ["c.ult.ps_3"] = "46c00035VGH", + ["c.ole.ps_2"] = "46c00036GH", + ["c.ole.ps_3"] = "46c00036VGH", + ["c.ule.ps_2"] = "46c00037GH", + ["c.ule.ps_3"] = "46c00037VGH", + ["c.sf.ps_2"] = "46c00038GH", + ["c.sf.ps_3"] = "46c00038VGH", + ["c.ngle.ps_2"] = "46c00039GH", + ["c.ngle.ps_3"] = "46c00039VGH", + ["c.seq.ps_2"] = "46c0003aGH", + ["c.seq.ps_3"] = "46c0003aVGH", + ["c.ngl.ps_2"] = "46c0003bGH", + ["c.ngl.ps_3"] = "46c0003bVGH", + ["c.lt.ps_2"] = "46c0003cGH", + ["c.lt.ps_3"] = "46c0003cVGH", + ["c.nge.ps_2"] = "46c0003dGH", + ["c.nge.ps_3"] = "46c0003dVGH", + ["c.le.ps_2"] = "46c0003eGH", + ["c.le.ps_3"] = "46c0003eVGH", + ["c.ngt.ps_2"] = "46c0003fGH", + ["c.ngt.ps_3"] = "46c0003fVGH", + + ["cvt.s.w_2"] = "46800020FG", + ["cvt.d.w_2"] = "46800021FG", + + ["cvt.s.l_2"] = "46a00020FG", + ["cvt.d.l_2"] = "46a00021FG", + + -- Opcode COP1X. + lwxc1_2 = "4c000000FX", + ldxc1_2 = "4c000001FX", + luxc1_2 = "4c000005FX", + swxc1_2 = "4c000008FX", + sdxc1_2 = "4c000009FX", + suxc1_2 = "4c00000dFX", + prefx_2 = "4c00000fMX", + ["alnv.ps_4"] = "4c00001eFGHS", + ["madd.s_4"] = "4c000020FRGH", + ["madd.d_4"] = "4c000021FRGH", + ["madd.ps_4"] = "4c000026FRGH", + ["msub.s_4"] = "4c000028FRGH", + ["msub.d_4"] = "4c000029FRGH", + ["msub.ps_4"] = "4c00002eFRGH", + ["nmadd.s_4"] = "4c000030FRGH", + ["nmadd.d_4"] = "4c000031FRGH", + ["nmadd.ps_4"] = "4c000036FRGH", + ["nmsub.s_4"] = "4c000038FRGH", + ["nmsub.d_4"] = "4c000039FRGH", + ["nmsub.ps_4"] = "4c00003eFRGH", +} + +------------------------------------------------------------------------------ + +local function parse_gpr(expr) + local tname, ovreg = match(expr, "^([%w_]+):(r[1-3]?[0-9])$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + if not reg then + werror("type `"..(tname or expr).."' needs a register override") + end + expr = reg + end + local r = match(expr, "^r([1-3]?[0-9])$") + if r then + r = tonumber(r) + if r <= 31 then return r, tp end + end + werror("bad register name `"..expr.."'") +end + +local function parse_fpr(expr) + local r = match(expr, "^f([1-3]?[0-9])$") + if r then + r = tonumber(r) + if r <= 31 then return r end + end + werror("bad register name `"..expr.."'") +end + +local function parse_imm(imm, bits, shift, scale, signed) + local n = tonumber(imm) + if n then + local m = sar(n, scale) + if shl(m, scale) == n then + if signed then + local s = sar(m, bits-1) + if s == 0 then return shl(m, shift) + elseif s == -1 then return shl(m + shl(1, bits), shift) end + else + if sar(m, bits) == 0 then return shl(m, shift) end + end + end + werror("out of range immediate `"..imm.."'") + elseif match(imm, "^[rf]([1-3]?[0-9])$") or + match(imm, "^([%w_]+):([rf][1-3]?[0-9])$") then + werror("expected immediate operand, got register") + else + waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) + return 0 + end +end + +local function parse_disp(disp) + local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") + if imm then + local r = shl(parse_gpr(reg), 21) + local extname = match(imm, "^extern%s+(%S+)$") + if extname then + waction("REL_EXT", map_extern[extname], nil, 1) + return r + else + return r + parse_imm(imm, 16, 0, 0, true) + end + end + local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local r, tp = parse_gpr(reg) + if tp then + waction("IMM", 32768+16*32, format(tp.ctypefmt, tailr)) + return shl(r, 21) + end + end + werror("bad displacement `"..disp.."'") +end + +local function parse_index(idx) + local rt, rs = match(idx, "^(.*)%(([%w_:]+)%)$") + if rt then + rt = parse_gpr(rt) + rs = parse_gpr(rs) + return shl(rt, 16) + shl(rs, 21) + end + werror("bad index `"..idx.."'") +end + +local function parse_label(label, def) + local prefix = sub(label, 1, 2) + -- =>label (pc label reference) + if prefix == "=>" then + return "PC", 0, sub(label, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "LG", map_global[sub(label, 3)] + end + if def then + -- [1-9] (local label definition) + if match(label, "^[1-9]$") then + return "LG", 10+tonumber(label) + end + else + -- [<>][1-9] (local label reference) + local dir, lnum = match(label, "^([<>])([1-9])$") + if dir then -- Fwd: 1-9, Bkwd: 11-19. + return "LG", lnum + (dir == ">" and 0 or 10) + end + -- extern label (extern label reference) + local extname = match(label, "^extern%s+(%S+)$") + if extname then + return "EXT", map_extern[extname] + end + end + werror("bad label `"..label.."'") +end + +------------------------------------------------------------------------------ + +-- Handle opcodes defined with template strings. +map_op[".template__"] = function(params, template, nparams) + if not params then return sub(template, 9) end + local op = tonumber(sub(template, 1, 8), 16) + local n = 1 + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 2 positions (ins/ext). + if secpos+2 > maxsecpos then wflush() end + local pos = wpos() + + -- Process each character. + for p in gmatch(sub(template, 9), ".") do + if p == "D" then + op = op + shl(parse_gpr(params[n]), 11); n = n + 1 + elseif p == "T" then + op = op + shl(parse_gpr(params[n]), 16); n = n + 1 + elseif p == "S" then + op = op + shl(parse_gpr(params[n]), 21); n = n + 1 + elseif p == "F" then + op = op + shl(parse_fpr(params[n]), 6); n = n + 1 + elseif p == "G" then + op = op + shl(parse_fpr(params[n]), 11); n = n + 1 + elseif p == "H" then + op = op + shl(parse_fpr(params[n]), 16); n = n + 1 + elseif p == "R" then + op = op + shl(parse_fpr(params[n]), 21); n = n + 1 + elseif p == "I" then + op = op + parse_imm(params[n], 16, 0, 0, true); n = n + 1 + elseif p == "U" then + op = op + parse_imm(params[n], 16, 0, 0, false); n = n + 1 + elseif p == "O" then + op = op + parse_disp(params[n]); n = n + 1 + elseif p == "X" then + op = op + parse_index(params[n]); n = n + 1 + elseif p == "B" or p == "J" then + local mode, n, s = parse_label(params[n], false) + if p == "B" then n = n + 2048 end + waction("REL_"..mode, n, s, 1) + n = n + 1 + elseif p == "A" then + op = op + parse_imm(params[n], 5, 6, 0, false); n = n + 1 + elseif p == "M" then + op = op + parse_imm(params[n], 5, 11, 0, false); n = n + 1 + elseif p == "N" then + op = op + parse_imm(params[n], 5, 16, 0, false); n = n + 1 + elseif p == "C" then + op = op + parse_imm(params[n], 3, 18, 0, false); n = n + 1 + elseif p == "V" then + op = op + parse_imm(params[n], 3, 8, 0, false); n = n + 1 + elseif p == "W" then + op = op + parse_imm(params[n], 3, 0, 0, false); n = n + 1 + elseif p == "Y" then + op = op + parse_imm(params[n], 20, 6, 0, false); n = n + 1 + elseif p == "Z" then + op = op + parse_imm(params[n], 10, 6, 0, false); n = n + 1 + elseif p == "=" then + op = op + shl(band(op, 0xf800), 5) -- Copy D to T for clz, clo. + else + assert(false) + end + end + wputpos(pos, op) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +-- Pseudo-opcode to mark the position where the global names are to be emitted. +map_op[".globalnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobalnames(out, name) end) +end + +-- Pseudo-opcode to mark the position where the extern names are to be emitted. +map_op[".externnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeexternnames(out, name) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_1"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr" end + if secpos+1 > maxsecpos then wflush() end + local mode, n, s = parse_label(params[1], true) + if mode == "EXT" then werror("bad label definition") end + waction("LABEL_"..mode, n, s, 1) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +map_op[".long_*"] = function(params) + if not params then return "imm..." end + for _,p in ipairs(params) do + local n = tonumber(p) + if not n then werror("bad immediate `"..p.."'") end + if n < 0 then n = n + 2^32 end + wputw(n) + if secpos+2 > maxsecpos then wflush() end + end +end + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + if secpos+1 > maxsecpos then wflush() end + local align = tonumber(params[1]) + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION", num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) + dumpexterns(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_ppc.h b/src/3rd party/luajit-2.0/dynasm/dasm_ppc.h new file mode 100644 index 00000000000..7df49365435 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_ppc.h @@ -0,0 +1,412 @@ +/* +** DynASM PPC encoding engine. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "ppc" + +#ifndef DASM_EXTERN +#define DASM_EXTERN(a,b,c,d) 0 +#endif + +/* Action definitions. */ +enum { + DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, + /* The following actions need a buffer position. */ + DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, + /* The following actions also have an argument. */ + DASM_REL_PC, DASM_LABEL_PC, DASM_IMM, + DASM__MAX +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_RANGE_REL 0x15000000 +#define DASM_S_UNDEF_LG 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Action list type. */ +typedef const unsigned int *dasm_ActList; + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, const void *actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = (dasm_ActList)actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + if (action >= DASM__MAX) { + ofs += 4; + } else { + int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; + switch (action) { + case DASM_STOP: goto stop; + case DASM_SECTION: + n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); + D->section = &D->sections[n]; goto stop; + case DASM_ESC: p++; ofs += 4; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; + case DASM_REL_LG: + n = (ins & 2047) - 10; pl = D->lglabels + n; + /* Bkwd rel or global. */ + if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } + pl += 10; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + break; + case DASM_LABEL_LG: + pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; + } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_IMM: +#ifdef DASM_CHECKS + CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); +#endif + n >>= ((ins>>10)&31); +#ifdef DASM_CHECKS + if (ins & 0x8000) + CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); + else + CK((n>>((ins>>5)&31)) == 0, RANGE_I); +#endif + b[pos++] = n; + break; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: p++; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; + case DASM_REL_LG: case DASM_REL_PC: pos++; break; + case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; + case DASM_IMM: pos++; break; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) +#else +#define CK(x, st) ((void)0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + char *base = (char *)buffer; + unsigned int *cp = (unsigned int *)buffer; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: *cp++ = *p++; break; + case DASM_REL_EXT: + n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins & 2047), 1) - 4; + goto patchrel; + case DASM_ALIGN: + ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0x60000000; + break; + case DASM_REL_LG: + CK(n >= 0, UNDEF_LG); + case DASM_REL_PC: + CK(n >= 0, UNDEF_PC); + n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base); + patchrel: + CK((n & 3) == 0 && + (((n+4) + ((ins & 2048) ? 0x00008000 : 0x02000000)) >> + ((ins & 2048) ? 16 : 26)) == 0, RANGE_REL); + cp[-1] |= ((n+4) & ((ins & 2048) ? 0x0000fffc: 0x03fffffc)); + break; + case DASM_LABEL_LG: + ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); + break; + case DASM_LABEL_PC: break; + case DASM_IMM: + cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); + break; + default: *cp++ = ins; break; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != (char *)cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} +#undef CK + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua b/src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua new file mode 100644 index 00000000000..91f4ff9a4c8 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua @@ -0,0 +1,1249 @@ +------------------------------------------------------------------------------ +-- DynASM PPC module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "ppc", + description = "DynASM PPC module", + version = "1.3.0", + vernum = 10300, + release = "2011-05-05", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, setmetatable = assert, setmetatable +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local match, gmatch = _s.match, _s.gmatch +local concat, sort = table.concat, table.sort +local bit = bit or require("bit") +local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift +local tohex = bit.tohex + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + "STOP", "SECTION", "ESC", "REL_EXT", + "ALIGN", "REL_LG", "LABEL_LG", + "REL_PC", "LABEL_PC", "IMM", +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number. +local map_action = {} +for n,name in ipairs(action_names) do + map_action[name] = n-1 +end + +-- Action list buffer. +local actlist = {} + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + if nn == 0 then nn = 1; actlist[0] = map_action.STOP end + out:write("static const unsigned int ", name, "[", nn, "] = {\n") + for i = 1,nn-1 do + assert(out:write("0x", tohex(actlist[i]), ",\n")) + end + assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) +end + +------------------------------------------------------------------------------ + +-- Add word to action list. +local function wputxw(n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, val, a, num) + local w = assert(map_action[action], "bad action name `"..action.."'") + wputxw(w * 0x10000 + (val or 0)) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + if #actlist == actargs[1] then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped word. +local function wputw(n) + if n <= 0xffffff then waction("ESC") end + wputxw(n) +end + +-- Reserve position for word. +local function wpos() + local pos = #actlist+1 + actlist[pos] = "" + return pos +end + +-- Store word to reserved position. +local function wputpos(pos, n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[pos] = n +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 20 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 2047 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=20,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=20,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +-- Write global label names. +local function writeglobalnames(out, name) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=20,next_global-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Extern label name -> extern label number. With auto assignment on 1st use. +local next_extern = 0 +local map_extern_ = {} +local map_extern = setmetatable({}, { __index = function(t, name) + -- No restrictions on the name for now. + local n = next_extern + if n > 2047 then werror("too many extern labels") end + next_extern = n + 1 + t[name] = n + map_extern_[n] = name + return n +end}) + +-- Dump extern labels. +local function dumpexterns(out, lvl) + out:write("Extern labels:\n") + for i=0,next_extern-1 do + out:write(format(" %s\n", map_extern_[i])) + end + out:write("\n") +end + +-- Write extern label names. +local function writeexternnames(out, name) + out:write("static const char *const ", name, "[] = {\n") + for i=0,next_extern-1 do + out:write(" \"", map_extern_[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. +local map_archdef = { sp = "r1" } -- Ext. register name -> int. name. + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for Dt... macros). + +-- Reverse defines for registers. +function _M.revdef(s) + if s == "r1" then return "sp" end + return s +end + +local map_cond = { + lt = 0, gt = 1, eq = 2, so = 3, + ge = 4, le = 5, ne = 6, ns = 7, +} + +------------------------------------------------------------------------------ + +-- Template strings for PPC instructions. +local map_op = { + tdi_3 = "08000000ARI", + twi_3 = "0c000000ARI", + mulli_3 = "1c000000RRI", + subfic_3 = "20000000RRI", + cmplwi_3 = "28000000XRU", + cmplwi_2 = "28000000-RU", + cmpldi_3 = "28200000XRU", + cmpldi_2 = "28200000-RU", + cmpwi_3 = "2c000000XRI", + cmpwi_2 = "2c000000-RI", + cmpdi_3 = "2c200000XRI", + cmpdi_2 = "2c200000-RI", + addic_3 = "30000000RRI", + ["addic._3"] = "34000000RRI", + addi_3 = "38000000RR0I", + li_2 = "38000000RI", + la_2 = "38000000RD", + addis_3 = "3c000000RR0I", + lis_2 = "3c000000RI", + lus_2 = "3c000000RU", + bc_3 = "40000000AAK", + bcl_3 = "40000001AAK", + bdnz_1 = "42000000K", + bdz_1 = "42400000K", + sc_0 = "44000000", + b_1 = "48000000J", + bl_1 = "48000001J", + rlwimi_5 = "50000000RR~AAA.", + rlwinm_5 = "54000000RR~AAA.", + rlwnm_5 = "5c000000RR~RAA.", + ori_3 = "60000000RR~U", + nop_0 = "60000000", + oris_3 = "64000000RR~U", + xori_3 = "68000000RR~U", + xoris_3 = "6c000000RR~U", + ["andi._3"] = "70000000RR~U", + ["andis._3"] = "74000000RR~U", + lwz_2 = "80000000RD", + lwzu_2 = "84000000RD", + lbz_2 = "88000000RD", + lbzu_2 = "8c000000RD", + stw_2 = "90000000RD", + stwu_2 = "94000000RD", + stb_2 = "98000000RD", + stbu_2 = "9c000000RD", + lhz_2 = "a0000000RD", + lhzu_2 = "a4000000RD", + lha_2 = "a8000000RD", + lhau_2 = "ac000000RD", + sth_2 = "b0000000RD", + sthu_2 = "b4000000RD", + lmw_2 = "b8000000RD", + stmw_2 = "bc000000RD", + lfs_2 = "c0000000FD", + lfsu_2 = "c4000000FD", + lfd_2 = "c8000000FD", + lfdu_2 = "cc000000FD", + stfs_2 = "d0000000FD", + stfsu_2 = "d4000000FD", + stfd_2 = "d8000000FD", + stfdu_2 = "dc000000FD", + ld_2 = "e8000000RD", -- NYI: displacement must be divisible by 4. + ldu_2 = "e8000001RD", + lwa_2 = "e8000002RD", + std_2 = "f8000000RD", + stdu_2 = "f8000001RD", + + -- Primary opcode 19: + mcrf_2 = "4c000000XX", + isync_0 = "4c00012c", + crnor_3 = "4c000042CCC", + crnot_2 = "4c000042CC=", + crandc_3 = "4c000102CCC", + crxor_3 = "4c000182CCC", + crclr_1 = "4c000182C==", + crnand_3 = "4c0001c2CCC", + crand_3 = "4c000202CCC", + creqv_3 = "4c000242CCC", + crset_1 = "4c000242C==", + crorc_3 = "4c000342CCC", + cror_3 = "4c000382CCC", + crmove_2 = "4c000382CC=", + bclr_2 = "4c000020AA", + bclrl_2 = "4c000021AA", + bcctr_2 = "4c000420AA", + bcctrl_2 = "4c000421AA", + blr_0 = "4e800020", + blrl_0 = "4e800021", + bctr_0 = "4e800420", + bctrl_0 = "4e800421", + + -- Primary opcode 31: + cmpw_3 = "7c000000XRR", + cmpw_2 = "7c000000-RR", + cmpd_3 = "7c200000XRR", + cmpd_2 = "7c200000-RR", + tw_3 = "7c000008ARR", + subfc_3 = "7c000010RRR.", + subc_3 = "7c000010RRR~.", + mulhdu_3 = "7c000012RRR.", + addc_3 = "7c000014RRR.", + mulhwu_3 = "7c000016RRR.", + isel_4 = "7c00001eRRRC", + isellt_3 = "7c00001eRRR", + iselgt_3 = "7c00005eRRR", + iseleq_3 = "7c00009eRRR", + mfcr_1 = "7c000026R", + mfocrf_2 = "7c100026RG", + mtcrf_2 = "7c000120GR", + mtocrf_2 = "7c100120GR", + lwarx_3 = "7c000028RR0R", + ldx_3 = "7c00002aRR0R", + lwzx_3 = "7c00002eRR0R", + slw_3 = "7c000030RR~R.", + cntlzw_2 = "7c000034RR~", + sld_3 = "7c000036RR~R.", + and_3 = "7c000038RR~R.", + cmplw_3 = "7c000040XRR", + cmplw_2 = "7c000040-RR", + cmpld_3 = "7c200040XRR", + cmpld_2 = "7c200040-RR", + subf_3 = "7c000050RRR.", + sub_3 = "7c000050RRR~.", + ldux_3 = "7c00006aRR0R", + dcbst_2 = "7c00006c-RR", + lwzux_3 = "7c00006eRR0R", + cntlzd_2 = "7c000074RR~", + andc_3 = "7c000078RR~R.", + td_3 = "7c000088ARR", + mulhd_3 = "7c000092RRR.", + mulhw_3 = "7c000096RRR.", + ldarx_3 = "7c0000a8RR0R", + dcbf_2 = "7c0000ac-RR", + lbzx_3 = "7c0000aeRR0R", + neg_2 = "7c0000d0RR.", + lbzux_3 = "7c0000eeRR0R", + popcntb_2 = "7c0000f4RR~", + not_2 = "7c0000f8RR~%.", + nor_3 = "7c0000f8RR~R.", + subfe_3 = "7c000110RRR.", + sube_3 = "7c000110RRR~.", + adde_3 = "7c000114RRR.", + stdx_3 = "7c00012aRR0R", + stwcx_3 = "7c00012cRR0R.", + stwx_3 = "7c00012eRR0R", + prtyw_2 = "7c000134RR~", + stdux_3 = "7c00016aRR0R", + stwux_3 = "7c00016eRR0R", + prtyd_2 = "7c000174RR~", + subfze_2 = "7c000190RR.", + addze_2 = "7c000194RR.", + stdcx_3 = "7c0001acRR0R.", + stbx_3 = "7c0001aeRR0R", + subfme_2 = "7c0001d0RR.", + mulld_3 = "7c0001d2RRR.", + addme_2 = "7c0001d4RR.", + mullw_3 = "7c0001d6RRR.", + dcbtst_2 = "7c0001ec-RR", + stbux_3 = "7c0001eeRR0R", + add_3 = "7c000214RRR.", + dcbt_2 = "7c00022c-RR", + lhzx_3 = "7c00022eRR0R", + eqv_3 = "7c000238RR~R.", + eciwx_3 = "7c00026cRR0R", + lhzux_3 = "7c00026eRR0R", + xor_3 = "7c000278RR~R.", + mfspefscr_1 = "7c0082a6R", + mfxer_1 = "7c0102a6R", + mflr_1 = "7c0802a6R", + mfctr_1 = "7c0902a6R", + lwax_3 = "7c0002aaRR0R", + lhax_3 = "7c0002aeRR0R", + mftb_1 = "7c0c42e6R", + mftbu_1 = "7c0d42e6R", + lwaux_3 = "7c0002eaRR0R", + lhaux_3 = "7c0002eeRR0R", + sthx_3 = "7c00032eRR0R", + orc_3 = "7c000338RR~R.", + ecowx_3 = "7c00036cRR0R", + sthux_3 = "7c00036eRR0R", + or_3 = "7c000378RR~R.", + mr_2 = "7c000378RR~%.", + divdu_3 = "7c000392RRR.", + divwu_3 = "7c000396RRR.", + mtspefscr_1 = "7c0083a6R", + mtxer_1 = "7c0103a6R", + mtlr_1 = "7c0803a6R", + mtctr_1 = "7c0903a6R", + dcbi_2 = "7c0003ac-RR", + nand_3 = "7c0003b8RR~R.", + divd_3 = "7c0003d2RRR.", + divw_3 = "7c0003d6RRR.", + cmpb_3 = "7c0003f8RR~R.", + mcrxr_1 = "7c000400X", + subfco_3 = "7c000410RRR.", + subco_3 = "7c000410RRR~.", + addco_3 = "7c000414RRR.", + ldbrx_3 = "7c000428RR0R", + lswx_3 = "7c00042aRR0R", + lwbrx_3 = "7c00042cRR0R", + lfsx_3 = "7c00042eFR0R", + srw_3 = "7c000430RR~R.", + srd_3 = "7c000436RR~R.", + subfo_3 = "7c000450RRR.", + subo_3 = "7c000450RRR~.", + lfsux_3 = "7c00046eFR0R", + lswi_3 = "7c0004aaRR0A", + sync_0 = "7c0004ac", + lwsync_0 = "7c2004ac", + ptesync_0 = "7c4004ac", + lfdx_3 = "7c0004aeFR0R", + nego_2 = "7c0004d0RR.", + lfdux_3 = "7c0004eeFR0R", + subfeo_3 = "7c000510RRR.", + subeo_3 = "7c000510RRR~.", + addeo_3 = "7c000514RRR.", + stdbrx_3 = "7c000528RR0R", + stswx_3 = "7c00052aRR0R", + stwbrx_3 = "7c00052cRR0R", + stfsx_3 = "7c00052eFR0R", + stfsux_3 = "7c00056eFR0R", + subfzeo_2 = "7c000590RR.", + addzeo_2 = "7c000594RR.", + stswi_3 = "7c0005aaRR0A", + stfdx_3 = "7c0005aeFR0R", + subfmeo_2 = "7c0005d0RR.", + mulldo_3 = "7c0005d2RRR.", + addmeo_2 = "7c0005d4RR.", + mullwo_3 = "7c0005d6RRR.", + dcba_2 = "7c0005ec-RR", + stfdux_3 = "7c0005eeFR0R", + addo_3 = "7c000614RRR.", + lhbrx_3 = "7c00062cRR0R", + sraw_3 = "7c000630RR~R.", + srad_3 = "7c000634RR~R.", + srawi_3 = "7c000670RR~A.", + sradi_3 = "7c000674RR~H.", + eieio_0 = "7c0006ac", + lfiwax_3 = "7c0006aeFR0R", + sthbrx_3 = "7c00072cRR0R", + extsh_2 = "7c000734RR~.", + extsb_2 = "7c000774RR~.", + divduo_3 = "7c000792RRR.", + divwou_3 = "7c000796RRR.", + icbi_2 = "7c0007ac-RR", + stfiwx_3 = "7c0007aeFR0R", + extsw_2 = "7c0007b4RR~.", + divdo_3 = "7c0007d2RRR.", + divwo_3 = "7c0007d6RRR.", + dcbz_2 = "7c0007ec-RR", + + -- Primary opcode 30: + rldicl_4 = "78000000RR~HM.", + rldicr_4 = "78000004RR~HM.", + rldic_4 = "78000008RR~HM.", + rldimi_4 = "7800000cRR~HM.", + rldcl_4 = "78000010RR~RM.", + rldcr_4 = "78000012RR~RM.", + + -- Primary opcode 59: + fdivs_3 = "ec000024FFF.", + fsubs_3 = "ec000028FFF.", + fadds_3 = "ec00002aFFF.", + fsqrts_2 = "ec00002cF-F.", + fres_2 = "ec000030F-F.", + fmuls_3 = "ec000032FF-F.", + frsqrtes_2 = "ec000034F-F.", + fmsubs_4 = "ec000038FFFF~.", + fmadds_4 = "ec00003aFFFF~.", + fnmsubs_4 = "ec00003cFFFF~.", + fnmadds_4 = "ec00003eFFFF~.", + + -- Primary opcode 63: + fdiv_3 = "fc000024FFF.", + fsub_3 = "fc000028FFF.", + fadd_3 = "fc00002aFFF.", + fsqrt_2 = "fc00002cF-F.", + fsel_4 = "fc00002eFFFF~.", + fre_2 = "fc000030F-F.", + fmul_3 = "fc000032FF-F.", + frsqrte_2 = "fc000034F-F.", + fmsub_4 = "fc000038FFFF~.", + fmadd_4 = "fc00003aFFFF~.", + fnmsub_4 = "fc00003cFFFF~.", + fnmadd_4 = "fc00003eFFFF~.", + fcmpu_3 = "fc000000XFF", + fcpsgn_3 = "fc000010FFF.", + fcmpo_3 = "fc000040XFF", + mtfsb1_1 = "fc00004cA", + fneg_2 = "fc000050F-F.", + mcrfs_2 = "fc000080XX", + mtfsb0_1 = "fc00008cA", + fmr_2 = "fc000090F-F.", + frsp_2 = "fc000018F-F.", + fctiw_2 = "fc00001cF-F.", + fctiwz_2 = "fc00001eF-F.", + mtfsfi_2 = "fc00010cAA", -- NYI: upshift. + fnabs_2 = "fc000110F-F.", + fabs_2 = "fc000210F-F.", + frin_2 = "fc000310F-F.", + friz_2 = "fc000350F-F.", + frip_2 = "fc000390F-F.", + frim_2 = "fc0003d0F-F.", + mffs_1 = "fc00048eF.", + -- NYI: mtfsf, mtfsb0, mtfsb1. + fctid_2 = "fc00065cF-F.", + fctidz_2 = "fc00065eF-F.", + fcfid_2 = "fc00069cF-F.", + + -- Primary opcode 4, SPE APU extension: + evaddw_3 = "10000200RRR", + evaddiw_3 = "10000202RAR~", + evsubw_3 = "10000204RRR~", + evsubiw_3 = "10000206RAR~", + evabs_2 = "10000208RR", + evneg_2 = "10000209RR", + evextsb_2 = "1000020aRR", + evextsh_2 = "1000020bRR", + evrndw_2 = "1000020cRR", + evcntlzw_2 = "1000020dRR", + evcntlsw_2 = "1000020eRR", + brinc_3 = "1000020fRRR", + evand_3 = "10000211RRR", + evandc_3 = "10000212RRR", + evxor_3 = "10000216RRR", + evor_3 = "10000217RRR", + evmr_2 = "10000217RR=", + evnor_3 = "10000218RRR", + evnot_2 = "10000218RR=", + eveqv_3 = "10000219RRR", + evorc_3 = "1000021bRRR", + evnand_3 = "1000021eRRR", + evsrwu_3 = "10000220RRR", + evsrws_3 = "10000221RRR", + evsrwiu_3 = "10000222RRA", + evsrwis_3 = "10000223RRA", + evslw_3 = "10000224RRR", + evslwi_3 = "10000226RRA", + evrlw_3 = "10000228RRR", + evsplati_2 = "10000229RS", + evrlwi_3 = "1000022aRRA", + evsplatfi_2 = "1000022bRS", + evmergehi_3 = "1000022cRRR", + evmergelo_3 = "1000022dRRR", + evcmpgtu_3 = "10000230XRR", + evcmpgtu_2 = "10000230-RR", + evcmpgts_3 = "10000231XRR", + evcmpgts_2 = "10000231-RR", + evcmpltu_3 = "10000232XRR", + evcmpltu_2 = "10000232-RR", + evcmplts_3 = "10000233XRR", + evcmplts_2 = "10000233-RR", + evcmpeq_3 = "10000234XRR", + evcmpeq_2 = "10000234-RR", + evsel_4 = "10000278RRRW", + evsel_3 = "10000278RRR", + evfsadd_3 = "10000280RRR", + evfssub_3 = "10000281RRR", + evfsabs_2 = "10000284RR", + evfsnabs_2 = "10000285RR", + evfsneg_2 = "10000286RR", + evfsmul_3 = "10000288RRR", + evfsdiv_3 = "10000289RRR", + evfscmpgt_3 = "1000028cXRR", + evfscmpgt_2 = "1000028c-RR", + evfscmplt_3 = "1000028dXRR", + evfscmplt_2 = "1000028d-RR", + evfscmpeq_3 = "1000028eXRR", + evfscmpeq_2 = "1000028e-RR", + evfscfui_2 = "10000290R-R", + evfscfsi_2 = "10000291R-R", + evfscfuf_2 = "10000292R-R", + evfscfsf_2 = "10000293R-R", + evfsctui_2 = "10000294R-R", + evfsctsi_2 = "10000295R-R", + evfsctuf_2 = "10000296R-R", + evfsctsf_2 = "10000297R-R", + evfsctuiz_2 = "10000298R-R", + evfsctsiz_2 = "1000029aR-R", + evfststgt_3 = "1000029cXRR", + evfststgt_2 = "1000029c-RR", + evfststlt_3 = "1000029dXRR", + evfststlt_2 = "1000029d-RR", + evfststeq_3 = "1000029eXRR", + evfststeq_2 = "1000029e-RR", + efsadd_3 = "100002c0RRR", + efssub_3 = "100002c1RRR", + efsabs_2 = "100002c4RR", + efsnabs_2 = "100002c5RR", + efsneg_2 = "100002c6RR", + efsmul_3 = "100002c8RRR", + efsdiv_3 = "100002c9RRR", + efscmpgt_3 = "100002ccXRR", + efscmpgt_2 = "100002cc-RR", + efscmplt_3 = "100002cdXRR", + efscmplt_2 = "100002cd-RR", + efscmpeq_3 = "100002ceXRR", + efscmpeq_2 = "100002ce-RR", + efscfd_2 = "100002cfR-R", + efscfui_2 = "100002d0R-R", + efscfsi_2 = "100002d1R-R", + efscfuf_2 = "100002d2R-R", + efscfsf_2 = "100002d3R-R", + efsctui_2 = "100002d4R-R", + efsctsi_2 = "100002d5R-R", + efsctuf_2 = "100002d6R-R", + efsctsf_2 = "100002d7R-R", + efsctuiz_2 = "100002d8R-R", + efsctsiz_2 = "100002daR-R", + efststgt_3 = "100002dcXRR", + efststgt_2 = "100002dc-RR", + efststlt_3 = "100002ddXRR", + efststlt_2 = "100002dd-RR", + efststeq_3 = "100002deXRR", + efststeq_2 = "100002de-RR", + efdadd_3 = "100002e0RRR", + efdsub_3 = "100002e1RRR", + efdcfuid_2 = "100002e2R-R", + efdcfsid_2 = "100002e3R-R", + efdabs_2 = "100002e4RR", + efdnabs_2 = "100002e5RR", + efdneg_2 = "100002e6RR", + efdmul_3 = "100002e8RRR", + efddiv_3 = "100002e9RRR", + efdctuidz_2 = "100002eaR-R", + efdctsidz_2 = "100002ebR-R", + efdcmpgt_3 = "100002ecXRR", + efdcmpgt_2 = "100002ec-RR", + efdcmplt_3 = "100002edXRR", + efdcmplt_2 = "100002ed-RR", + efdcmpeq_3 = "100002eeXRR", + efdcmpeq_2 = "100002ee-RR", + efdcfs_2 = "100002efR-R", + efdcfui_2 = "100002f0R-R", + efdcfsi_2 = "100002f1R-R", + efdcfuf_2 = "100002f2R-R", + efdcfsf_2 = "100002f3R-R", + efdctui_2 = "100002f4R-R", + efdctsi_2 = "100002f5R-R", + efdctuf_2 = "100002f6R-R", + efdctsf_2 = "100002f7R-R", + efdctuiz_2 = "100002f8R-R", + efdctsiz_2 = "100002faR-R", + efdtstgt_3 = "100002fcXRR", + efdtstgt_2 = "100002fc-RR", + efdtstlt_3 = "100002fdXRR", + efdtstlt_2 = "100002fd-RR", + efdtsteq_3 = "100002feXRR", + efdtsteq_2 = "100002fe-RR", + evlddx_3 = "10000300RR0R", + evldd_2 = "10000301R8", + evldwx_3 = "10000302RR0R", + evldw_2 = "10000303R8", + evldhx_3 = "10000304RR0R", + evldh_2 = "10000305R8", + evlwhex_3 = "10000310RR0R", + evlwhe_2 = "10000311R4", + evlwhoux_3 = "10000314RR0R", + evlwhou_2 = "10000315R4", + evlwhosx_3 = "10000316RR0R", + evlwhos_2 = "10000317R4", + evstddx_3 = "10000320RR0R", + evstdd_2 = "10000321R8", + evstdwx_3 = "10000322RR0R", + evstdw_2 = "10000323R8", + evstdhx_3 = "10000324RR0R", + evstdh_2 = "10000325R8", + evstwhex_3 = "10000330RR0R", + evstwhe_2 = "10000331R4", + evstwhox_3 = "10000334RR0R", + evstwho_2 = "10000335R4", + evstwwex_3 = "10000338RR0R", + evstwwe_2 = "10000339R4", + evstwwox_3 = "1000033cRR0R", + evstwwo_2 = "1000033dR4", + evmhessf_3 = "10000403RRR", + evmhossf_3 = "10000407RRR", + evmheumi_3 = "10000408RRR", + evmhesmi_3 = "10000409RRR", + evmhesmf_3 = "1000040bRRR", + evmhoumi_3 = "1000040cRRR", + evmhosmi_3 = "1000040dRRR", + evmhosmf_3 = "1000040fRRR", + evmhessfa_3 = "10000423RRR", + evmhossfa_3 = "10000427RRR", + evmheumia_3 = "10000428RRR", + evmhesmia_3 = "10000429RRR", + evmhesmfa_3 = "1000042bRRR", + evmhoumia_3 = "1000042cRRR", + evmhosmia_3 = "1000042dRRR", + evmhosmfa_3 = "1000042fRRR", + evmwhssf_3 = "10000447RRR", + evmwlumi_3 = "10000448RRR", + evmwhumi_3 = "1000044cRRR", + evmwhsmi_3 = "1000044dRRR", + evmwhsmf_3 = "1000044fRRR", + evmwssf_3 = "10000453RRR", + evmwumi_3 = "10000458RRR", + evmwsmi_3 = "10000459RRR", + evmwsmf_3 = "1000045bRRR", + evmwhssfa_3 = "10000467RRR", + evmwlumia_3 = "10000468RRR", + evmwhumia_3 = "1000046cRRR", + evmwhsmia_3 = "1000046dRRR", + evmwhsmfa_3 = "1000046fRRR", + evmwssfa_3 = "10000473RRR", + evmwumia_3 = "10000478RRR", + evmwsmia_3 = "10000479RRR", + evmwsmfa_3 = "1000047bRRR", + evmra_2 = "100004c4RR", + evdivws_3 = "100004c6RRR", + evdivwu_3 = "100004c7RRR", + evmwssfaa_3 = "10000553RRR", + evmwumiaa_3 = "10000558RRR", + evmwsmiaa_3 = "10000559RRR", + evmwsmfaa_3 = "1000055bRRR", + evmwssfan_3 = "100005d3RRR", + evmwumian_3 = "100005d8RRR", + evmwsmian_3 = "100005d9RRR", + evmwsmfan_3 = "100005dbRRR", + evmergehilo_3 = "1000022eRRR", + evmergelohi_3 = "1000022fRRR", + evlhhesplatx_3 = "10000308RR0R", + evlhhesplat_2 = "10000309R2", + evlhhousplatx_3 = "1000030cRR0R", + evlhhousplat_2 = "1000030dR2", + evlhhossplatx_3 = "1000030eRR0R", + evlhhossplat_2 = "1000030fR2", + evlwwsplatx_3 = "10000318RR0R", + evlwwsplat_2 = "10000319R4", + evlwhsplatx_3 = "1000031cRR0R", + evlwhsplat_2 = "1000031dR4", + evaddusiaaw_2 = "100004c0RR", + evaddssiaaw_2 = "100004c1RR", + evsubfusiaaw_2 = "100004c2RR", + evsubfssiaaw_2 = "100004c3RR", + evaddumiaaw_2 = "100004c8RR", + evaddsmiaaw_2 = "100004c9RR", + evsubfumiaaw_2 = "100004caRR", + evsubfsmiaaw_2 = "100004cbRR", + evmheusiaaw_3 = "10000500RRR", + evmhessiaaw_3 = "10000501RRR", + evmhessfaaw_3 = "10000503RRR", + evmhousiaaw_3 = "10000504RRR", + evmhossiaaw_3 = "10000505RRR", + evmhossfaaw_3 = "10000507RRR", + evmheumiaaw_3 = "10000508RRR", + evmhesmiaaw_3 = "10000509RRR", + evmhesmfaaw_3 = "1000050bRRR", + evmhoumiaaw_3 = "1000050cRRR", + evmhosmiaaw_3 = "1000050dRRR", + evmhosmfaaw_3 = "1000050fRRR", + evmhegumiaa_3 = "10000528RRR", + evmhegsmiaa_3 = "10000529RRR", + evmhegsmfaa_3 = "1000052bRRR", + evmhogumiaa_3 = "1000052cRRR", + evmhogsmiaa_3 = "1000052dRRR", + evmhogsmfaa_3 = "1000052fRRR", + evmwlusiaaw_3 = "10000540RRR", + evmwlssiaaw_3 = "10000541RRR", + evmwlumiaaw_3 = "10000548RRR", + evmwlsmiaaw_3 = "10000549RRR", + evmheusianw_3 = "10000580RRR", + evmhessianw_3 = "10000581RRR", + evmhessfanw_3 = "10000583RRR", + evmhousianw_3 = "10000584RRR", + evmhossianw_3 = "10000585RRR", + evmhossfanw_3 = "10000587RRR", + evmheumianw_3 = "10000588RRR", + evmhesmianw_3 = "10000589RRR", + evmhesmfanw_3 = "1000058bRRR", + evmhoumianw_3 = "1000058cRRR", + evmhosmianw_3 = "1000058dRRR", + evmhosmfanw_3 = "1000058fRRR", + evmhegumian_3 = "100005a8RRR", + evmhegsmian_3 = "100005a9RRR", + evmhegsmfan_3 = "100005abRRR", + evmhogumian_3 = "100005acRRR", + evmhogsmian_3 = "100005adRRR", + evmhogsmfan_3 = "100005afRRR", + evmwlusianw_3 = "100005c0RRR", + evmwlssianw_3 = "100005c1RRR", + evmwlumianw_3 = "100005c8RRR", + evmwlsmianw_3 = "100005c9RRR", + + -- NYI: Book E instructions. +} + +-- Add mnemonics for "." variants. +do + local t = {} + for k,v in pairs(map_op) do + if sub(v, -1) == "." then + local v2 = sub(v, 1, 7)..char(byte(v, 8)+1)..sub(v, 9, -2) + t[sub(k, 1, -3).."."..sub(k, -2)] = v2 + end + end + for k,v in pairs(t) do + map_op[k] = v + end +end + +-- Add more branch mnemonics. +for cond,c in pairs(map_cond) do + local b1 = "b"..cond + local c1 = shl(band(c, 3), 16) + (c < 4 and 0x01000000 or 0) + -- bX[l] + map_op[b1.."_1"] = tohex(0x40800000 + c1).."K" + map_op[b1.."y_1"] = tohex(0x40a00000 + c1).."K" + map_op[b1.."l_1"] = tohex(0x40800001 + c1).."K" + map_op[b1.."_2"] = tohex(0x40800000 + c1).."-XK" + map_op[b1.."y_2"] = tohex(0x40a00000 + c1).."-XK" + map_op[b1.."l_2"] = tohex(0x40800001 + c1).."-XK" + -- bXlr[l] + map_op[b1.."lr_0"] = tohex(0x4c800020 + c1) + map_op[b1.."lrl_0"] = tohex(0x4c800021 + c1) + map_op[b1.."ctr_0"] = tohex(0x4c800420 + c1) + map_op[b1.."ctrl_0"] = tohex(0x4c800421 + c1) + -- bXctr[l] + map_op[b1.."lr_1"] = tohex(0x4c800020 + c1).."-X" + map_op[b1.."lrl_1"] = tohex(0x4c800021 + c1).."-X" + map_op[b1.."ctr_1"] = tohex(0x4c800420 + c1).."-X" + map_op[b1.."ctrl_1"] = tohex(0x4c800421 + c1).."-X" +end + +------------------------------------------------------------------------------ + +local function parse_gpr(expr) + local tname, ovreg = match(expr, "^([%w_]+):(r[1-3]?[0-9])$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + if not reg then + werror("type `"..(tname or expr).."' needs a register override") + end + expr = reg + end + local r = match(expr, "^r([1-3]?[0-9])$") + if r then + r = tonumber(r) + if r <= 31 then return r, tp end + end + werror("bad register name `"..expr.."'") +end + +local function parse_fpr(expr) + local r = match(expr, "^f([1-3]?[0-9])$") + if r then + r = tonumber(r) + if r <= 31 then return r end + end + werror("bad register name `"..expr.."'") +end + +local function parse_cr(expr) + local r = match(expr, "^cr([0-7])$") + if r then return tonumber(r) end + werror("bad condition register name `"..expr.."'") +end + +local function parse_cond(expr) + local r, cond = match(expr, "^4%*cr([0-7])%+(%w%w)$") + if r then + r = tonumber(r) + local c = map_cond[cond] + if c and c < 4 then return r*4+c end + end + werror("bad condition bit name `"..expr.."'") +end + +local function parse_imm(imm, bits, shift, scale, signed) + local n = tonumber(imm) + if n then + local m = sar(n, scale) + if shl(m, scale) == n then + if signed then + local s = sar(m, bits-1) + if s == 0 then return shl(m, shift) + elseif s == -1 then return shl(m + shl(1, bits), shift) end + else + if sar(m, bits) == 0 then return shl(m, shift) end + end + end + werror("out of range immediate `"..imm.."'") + elseif match(imm, "^r([1-3]?[0-9])$") or + match(imm, "^([%w_]+):(r[1-3]?[0-9])$") then + werror("expected immediate operand, got register") + else + waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) + return 0 + end +end + +local function parse_shiftmask(imm, isshift) + local n = tonumber(imm) + if n then + if shr(n, 6) == 0 then + local lsb = band(imm, 31) + local msb = imm - lsb + return isshift and (shl(lsb, 11)+shr(msb, 4)) or (shl(lsb, 6)+msb) + end + werror("out of range immediate `"..imm.."'") + elseif match(imm, "^r([1-3]?[0-9])$") or + match(imm, "^([%w_]+):(r[1-3]?[0-9])$") then + werror("expected immediate operand, got register") + else + werror("NYI: parameterized 64 bit shift/mask") + end +end + +local function parse_disp(disp) + local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") + if imm then + local r = parse_gpr(reg) + if r == 0 then werror("cannot use r0 in displacement") end + return shl(r, 16) + parse_imm(imm, 16, 0, 0, true) + end + local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local r, tp = parse_gpr(reg) + if r == 0 then werror("cannot use r0 in displacement") end + if tp then + waction("IMM", 32768+16*32, format(tp.ctypefmt, tailr)) + return shl(r, 16) + end + end + werror("bad displacement `"..disp.."'") +end + +local function parse_u5disp(disp, scale) + local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") + if imm then + local r = parse_gpr(reg) + if r == 0 then werror("cannot use r0 in displacement") end + return shl(r, 16) + parse_imm(imm, 5, 11, scale, false) + end + local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local r, tp = parse_gpr(reg) + if r == 0 then werror("cannot use r0 in displacement") end + if tp then + waction("IMM", scale*1024+5*32+11, format(tp.ctypefmt, tailr)) + return shl(r, 16) + end + end + werror("bad displacement `"..disp.."'") +end + +local function parse_label(label, def) + local prefix = sub(label, 1, 2) + -- =>label (pc label reference) + if prefix == "=>" then + return "PC", 0, sub(label, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "LG", map_global[sub(label, 3)] + end + if def then + -- [1-9] (local label definition) + if match(label, "^[1-9]$") then + return "LG", 10+tonumber(label) + end + else + -- [<>][1-9] (local label reference) + local dir, lnum = match(label, "^([<>])([1-9])$") + if dir then -- Fwd: 1-9, Bkwd: 11-19. + return "LG", lnum + (dir == ">" and 0 or 10) + end + -- extern label (extern label reference) + local extname = match(label, "^extern%s+(%S+)$") + if extname then + return "EXT", map_extern[extname] + end + end + werror("bad label `"..label.."'") +end + +------------------------------------------------------------------------------ + +-- Handle opcodes defined with template strings. +map_op[".template__"] = function(params, template, nparams) + if not params then return sub(template, 9) end + local op = tonumber(sub(template, 1, 8), 16) + local n, rs = 1, 26 + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 3 positions (rlwinm). + if secpos+3 > maxsecpos then wflush() end + local pos = wpos() + + -- Process each character. + for p in gmatch(sub(template, 9), ".") do + if p == "R" then + rs = rs - 5; op = op + shl(parse_gpr(params[n]), rs); n = n + 1 + elseif p == "F" then + rs = rs - 5; op = op + shl(parse_fpr(params[n]), rs); n = n + 1 + elseif p == "A" then + rs = rs - 5; op = op + parse_imm(params[n], 5, rs, 0, false); n = n + 1 + elseif p == "S" then + rs = rs - 5; op = op + parse_imm(params[n], 5, rs, 0, true); n = n + 1 + elseif p == "I" then + op = op + parse_imm(params[n], 16, 0, 0, true); n = n + 1 + elseif p == "U" then + op = op + parse_imm(params[n], 16, 0, 0, false); n = n + 1 + elseif p == "D" then + op = op + parse_disp(params[n]); n = n + 1 + elseif p == "2" then + op = op + parse_u5disp(params[n], 1); n = n + 1 + elseif p == "4" then + op = op + parse_u5disp(params[n], 2); n = n + 1 + elseif p == "8" then + op = op + parse_u5disp(params[n], 3); n = n + 1 + elseif p == "C" then + rs = rs - 5; op = op + shl(parse_cond(params[n]), rs); n = n + 1 + elseif p == "X" then + rs = rs - 5; op = op + shl(parse_cr(params[n]), rs+2); n = n + 1 + elseif p == "W" then + op = op + parse_cr(params[n]); n = n + 1 + elseif p == "G" then + op = op + parse_imm(params[n], 8, 12, 0, false); n = n + 1 + elseif p == "H" then + op = op + parse_shiftmask(params[n], true); n = n + 1 + elseif p == "M" then + op = op + parse_shiftmask(params[n], false); n = n + 1 + elseif p == "J" or p == "K" then + local mode, n, s = parse_label(params[n], false) + if p == "K" then n = n + 2048 end + waction("REL_"..mode, n, s, 1) + n = n + 1 + elseif p == "0" then + if band(shr(op, rs), 31) == 0 then werror("cannot use r0") end + elseif p == "=" or p == "%" then + local t = band(shr(op, p == "%" and rs+5 or rs), 31) + rs = rs - 5 + op = op + shl(t, rs) + elseif p == "~" then + local mm = shl(31, rs) + local lo = band(op, mm) + local hi = band(op, shl(mm, 5)) + op = op - lo - hi + shl(lo, 5) + shr(hi, 5) + elseif p == "-" then + rs = rs - 5 + elseif p == "." then + -- Ignored. + else + assert(false) + end + end + wputpos(pos, op) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +-- Pseudo-opcode to mark the position where the global names are to be emitted. +map_op[".globalnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobalnames(out, name) end) +end + +-- Pseudo-opcode to mark the position where the extern names are to be emitted. +map_op[".externnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeexternnames(out, name) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_1"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr" end + if secpos+1 > maxsecpos then wflush() end + local mode, n, s = parse_label(params[1], true) + if mode == "EXT" then werror("bad label definition") end + waction("LABEL_"..mode, n, s, 1) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +map_op[".long_*"] = function(params) + if not params then return "imm..." end + for _,p in ipairs(params) do + local n = tonumber(p) + if not n then werror("bad immediate `"..p.."'") end + if n < 0 then n = n + 2^32 end + wputw(n) + if secpos+2 > maxsecpos then wflush() end + end +end + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + if secpos+1 > maxsecpos then wflush() end + local align = tonumber(params[1]) + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION", num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) + dumpexterns(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_proto.h b/src/3rd party/luajit-2.0/dynasm/dasm_proto.h new file mode 100644 index 00000000000..a8bc6fd285d --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_proto.h @@ -0,0 +1,83 @@ +/* +** DynASM encoding engine prototypes. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#ifndef _DASM_PROTO_H +#define _DASM_PROTO_H + +#include +#include + +#define DASM_IDENT "DynASM 1.3.0" +#define DASM_VERSION 10300 /* 1.3.0 */ + +#ifndef Dst_DECL +#define Dst_DECL dasm_State **Dst +#endif + +#ifndef Dst_REF +#define Dst_REF (*Dst) +#endif + +#ifndef DASM_FDEF +#define DASM_FDEF extern +#endif + +#ifndef DASM_M_GROW +#define DASM_M_GROW(ctx, t, p, sz, need) \ + do { \ + size_t _sz = (sz), _need = (need); \ + if (_sz < _need) { \ + if (_sz < 16) _sz = 16; \ + while (_sz < _need) _sz += _sz; \ + (p) = (t *)realloc((p), _sz); \ + if ((p) == NULL) exit(1); \ + (sz) = _sz; \ + } \ + } while(0) +#endif + +#ifndef DASM_M_FREE +#define DASM_M_FREE(ctx, p, sz) free(p) +#endif + +/* Internal DynASM encoder state. */ +typedef struct dasm_State dasm_State; + + +/* Initialize and free DynASM state. */ +DASM_FDEF void dasm_init(Dst_DECL, int maxsection); +DASM_FDEF void dasm_free(Dst_DECL); + +/* Setup global array. Must be called before dasm_setup(). */ +DASM_FDEF void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl); + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +DASM_FDEF void dasm_growpc(Dst_DECL, unsigned int maxpc); + +/* Setup encoder. */ +DASM_FDEF void dasm_setup(Dst_DECL, const void *actionlist); + +/* Feed encoder with actions. Calls are generated by pre-processor. */ +DASM_FDEF void dasm_put(Dst_DECL, int start, ...); + +/* Link sections and return the resulting size. */ +DASM_FDEF int dasm_link(Dst_DECL, size_t *szp); + +/* Encode sections into buffer. */ +DASM_FDEF int dasm_encode(Dst_DECL, void *buffer); + +/* Get PC label offset. */ +DASM_FDEF int dasm_getpclabel(Dst_DECL, unsigned int pc); + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +DASM_FDEF int dasm_checkstep(Dst_DECL, int secmatch); +#else +#define dasm_checkstep(a, b) 0 +#endif + + +#endif /* _DASM_PROTO_H */ diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x64.lua b/src/3rd party/luajit-2.0/dynasm/dasm_x64.lua new file mode 100644 index 00000000000..b1b62022f3c --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_x64.lua @@ -0,0 +1,12 @@ +------------------------------------------------------------------------------ +-- DynASM x64 module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ +-- This module just sets 64 bit mode for the combined x86/x64 module. +-- All the interesting stuff is there. +------------------------------------------------------------------------------ + +x64 = true -- Using a global is an ugly, but effective solution. +return require("dasm_x86") diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x86.h b/src/3rd party/luajit-2.0/dynasm/dasm_x86.h new file mode 100644 index 00000000000..652e8c99b08 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_x86.h @@ -0,0 +1,471 @@ +/* +** DynASM x86 encoding engine. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "x86" + +#ifndef DASM_EXTERN +#define DASM_EXTERN(a,b,c,d) 0 +#endif + +/* Action definitions. DASM_STOP must be 255. */ +enum { + DASM_DISP = 233, + DASM_IMM_S, DASM_IMM_B, DASM_IMM_W, DASM_IMM_D, DASM_IMM_WB, DASM_IMM_DB, + DASM_VREG, DASM_SPACE, DASM_SETLABEL, DASM_REL_A, DASM_REL_LG, DASM_REL_PC, + DASM_IMM_LG, DASM_IMM_PC, DASM_LABEL_LG, DASM_LABEL_PC, DASM_ALIGN, + DASM_EXTERN, DASM_ESC, DASM_MARK, DASM_SECTION, DASM_STOP +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_RANGE_VREG 0x15000000 +#define DASM_S_UNDEF_L 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Action list type. */ +typedef const unsigned char *dasm_ActList; + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, const void *actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = (dasm_ActList)actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(int)(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status=DASM_S_RANGE_##st|(int)(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs, mrm = 4; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + int action = *p++; + if (action < DASM_DISP) { + ofs++; + } else if (action <= DASM_REL_A) { + int n = va_arg(ap, int); + b[pos++] = n; + switch (action) { + case DASM_DISP: + if (n == 0) { if ((mrm&7) == 4) mrm = p[-2]; if ((mrm&7) != 5) break; } + case DASM_IMM_DB: if (((n+128)&-256) == 0) goto ob; + case DASM_REL_A: /* Assumes ptrdiff_t is int. !x64 */ + case DASM_IMM_D: ofs += 4; break; + case DASM_IMM_S: CK(((n+128)&-256) == 0, RANGE_I); goto ob; + case DASM_IMM_B: CK((n&-256) == 0, RANGE_I); ob: ofs++; break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto ob; + case DASM_IMM_W: CK((n&-65536) == 0, RANGE_I); ofs += 2; break; + case DASM_SPACE: p++; ofs += n; break; + case DASM_SETLABEL: b[pos-2] = -0x40000000; break; /* Neg. label ofs. */ + case DASM_VREG: CK((n&-8) == 0 && (n != 4 || (*p&1) == 0), RANGE_VREG); + if (*p++ == 1 && *p == DASM_DISP) mrm = n; continue; + } + mrm = 4; + } else { + int *pl, n; + switch (action) { + case DASM_REL_LG: + case DASM_IMM_LG: + n = *p++; pl = D->lglabels + n; + /* Bkwd rel or global. */ + if (n <= 246) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } + pl -= 246; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + case DASM_IMM_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + ofs += 4; /* Maximum offset needed. */ + if (action == DASM_REL_LG || action == DASM_REL_PC) + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_LABEL_LG: pl = D->lglabels + *p++; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_ALIGN: + ofs += *p++; /* Maximum alignment needed (arg is 2**n-1). */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_EXTERN: p += 2; ofs += 4; break; + case DASM_ESC: p++; ofs++; break; + case DASM_MARK: mrm = p[-2]; break; + case DASM_SECTION: + n = *p; CK(n < D->maxsection, RANGE_SEC); D->section = &D->sections[n]; + case DASM_STOP: goto stop; + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink branches/aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 10; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + int op, action = *p++; + switch (action) { + case DASM_REL_LG: p++; op = p[-3]; goto rel_pc; + case DASM_REL_PC: op = p[-2]; rel_pc: { + int shrink = op == 0xe9 ? 3 : ((op&0xf0) == 0x80 ? 4 : 0); + if (shrink) { /* Shrinkable branch opcode? */ + int lofs, lpos = b[pos]; + if (lpos < 0) goto noshrink; /* Ext global? */ + lofs = *DASM_POS2PTR(D, lpos); + if (lpos > pos) { /* Fwd label: add cumulative section offsets. */ + int i; + for (i = secnum; i < DASM_POS2SEC(lpos); i++) + lofs += D->sections[i].ofs; + } else { + lofs -= ofs; /* Bkwd label: unfix offset. */ + } + lofs -= b[pos+1]; /* Short branch ok? */ + if (lofs >= -128-shrink && lofs <= 127) ofs -= shrink; /* Yes. */ + else { noshrink: shrink = 0; } /* No, cannot shrink op. */ + } + b[pos+1] = shrink; + pos += 2; + break; + } + case DASM_SPACE: case DASM_IMM_LG: case DASM_VREG: p++; + case DASM_DISP: case DASM_IMM_S: case DASM_IMM_B: case DASM_IMM_W: + case DASM_IMM_D: case DASM_IMM_WB: case DASM_IMM_DB: + case DASM_SETLABEL: case DASM_REL_A: case DASM_IMM_PC: pos++; break; + case DASM_LABEL_LG: p++; + case DASM_LABEL_PC: b[pos++] += ofs; break; /* Fix label offset. */ + case DASM_ALIGN: ofs -= (b[pos++]+ofs)&*p++; break; /* Adjust ofs. */ + case DASM_EXTERN: p += 2; break; + case DASM_ESC: p++; break; + case DASM_MARK: break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#define dasmb(x) *cp++ = (unsigned char)(x) +#ifndef DASM_ALIGNED_WRITES +#define dasmw(x) \ + do { *((unsigned short *)cp) = (unsigned short)(x); cp+=2; } while (0) +#define dasmd(x) \ + do { *((unsigned int *)cp) = (unsigned int)(x); cp+=4; } while (0) +#else +#define dasmw(x) do { dasmb(x); dasmb((x)>>8); } while (0) +#define dasmd(x) do { dasmw(x); dasmw((x)>>16); } while (0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + unsigned char *base = (unsigned char *)buffer; + unsigned char *cp = base; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + unsigned char *mark = NULL; + while (1) { + int action = *p++; + int n = (action >= DASM_DISP && action <= DASM_ALIGN) ? *b++ : 0; + switch (action) { + case DASM_DISP: if (!mark) mark = cp; { + unsigned char *mm = mark; + if (*p != DASM_IMM_DB && *p != DASM_IMM_WB) mark = NULL; + if (n == 0) { int mrm = mm[-1]&7; if (mrm == 4) mrm = mm[0]&7; + if (mrm != 5) { mm[-1] -= 0x80; break; } } + if (((n+128) & -256) != 0) goto wd; else mm[-1] -= 0x40; + } + case DASM_IMM_S: case DASM_IMM_B: wb: dasmb(n); break; + case DASM_IMM_DB: if (((n+128)&-256) == 0) { + db: if (!mark) mark = cp; mark[-2] += 2; mark = NULL; goto wb; + } else mark = NULL; + case DASM_IMM_D: wd: dasmd(n); break; + case DASM_IMM_WB: if (((n+128)&-256) == 0) goto db; else mark = NULL; + case DASM_IMM_W: dasmw(n); break; + case DASM_VREG: { int t = *p++; if (t >= 2) n<<=3; cp[-1] |= n; break; } + case DASM_REL_LG: p++; if (n >= 0) goto rel_pc; + b++; n = (int)(ptrdiff_t)D->globals[-n]; + case DASM_REL_A: rel_a: n -= (int)(ptrdiff_t)(cp+4); goto wd; /* !x64 */ + case DASM_REL_PC: rel_pc: { + int shrink = *b++; + int *pb = DASM_POS2PTR(D, n); if (*pb < 0) { n = pb[1]; goto rel_a; } + n = *pb - ((int)(cp-base) + 4-shrink); + if (shrink == 0) goto wd; + if (shrink == 4) { cp--; cp[-1] = *cp-0x10; } else cp[-1] = 0xeb; + goto wb; + } + case DASM_IMM_LG: + p++; if (n < 0) { n = (int)(ptrdiff_t)D->globals[-n]; goto wd; } + case DASM_IMM_PC: { + int *pb = DASM_POS2PTR(D, n); + n = *pb < 0 ? pb[1] : (*pb + (int)(ptrdiff_t)base); + goto wd; + } + case DASM_LABEL_LG: { + int idx = *p++; + if (idx >= 10) + D->globals[idx] = (void *)(base + (*p == DASM_SETLABEL ? *b : n)); + break; + } + case DASM_LABEL_PC: case DASM_SETLABEL: break; + case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = fill; break; } + case DASM_ALIGN: + n = *p++; + while (((cp-base) & n)) *cp++ = 0x90; /* nop */ + break; + case DASM_EXTERN: n = DASM_EXTERN(Dst, cp, p[1], *p); p += 2; goto wd; + case DASM_MARK: mark = cp; break; + case DASM_ESC: action = *p++; + default: *cp++ = action; break; + case DASM_SECTION: case DASM_STOP: goto stop; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_L|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(int)(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x86.lua b/src/3rd party/luajit-2.0/dynasm/dasm_x86.lua new file mode 100644 index 00000000000..7ca061d22f6 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_x86.lua @@ -0,0 +1,1945 @@ +------------------------------------------------------------------------------ +-- DynASM x86/x64 module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +local x64 = x64 + +-- Module information: +local _info = { + arch = x64 and "x64" or "x86", + description = "DynASM x86/x64 module", + version = "1.3.0", + vernum = 10300, + release = "2011-05-05", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, unpack, setmetatable = assert, unpack or table.unpack, setmetatable +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local find, match, gmatch, gsub = _s.find, _s.match, _s.gmatch, _s.gsub +local concat, sort = table.concat, table.sort +local bit = bit or require("bit") +local band, shl, shr = bit.band, bit.lshift, bit.rshift + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + -- int arg, 1 buffer pos: + "DISP", "IMM_S", "IMM_B", "IMM_W", "IMM_D", "IMM_WB", "IMM_DB", + -- action arg (1 byte), int arg, 1 buffer pos (reg/num): + "VREG", "SPACE", -- !x64: VREG support NYI. + -- ptrdiff_t arg, 1 buffer pos (address): !x64 + "SETLABEL", "REL_A", + -- action arg (1 byte) or int arg, 2 buffer pos (link, offset): + "REL_LG", "REL_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (link): + "IMM_LG", "IMM_PC", + -- action arg (1 byte) or int arg, 1 buffer pos (offset): + "LABEL_LG", "LABEL_PC", + -- action arg (1 byte), 1 buffer pos (offset): + "ALIGN", + -- action args (2 bytes), no buffer pos. + "EXTERN", + -- action arg (1 byte), no buffer pos. + "ESC", + -- no action arg, no buffer pos. + "MARK", + -- action arg (1 byte), no buffer pos, terminal action: + "SECTION", + -- no args, no buffer pos, terminal action: + "STOP" +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number (dynamically generated below). +local map_action = {} +-- First action number. Everything below does not need to be escaped. +local actfirst = 256-#action_names + +-- Action list buffer and string (only used to remove dupes). +local actlist = {} +local actstr = "" + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Compute action numbers for action names. +for n,name in ipairs(action_names) do + local num = actfirst + n - 1 + map_action[name] = num +end + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + local last = actlist[nn] or 255 + actlist[nn] = nil -- Remove last byte. + if nn == 0 then nn = 1 end + out:write("static const unsigned char ", name, "[", nn, "] = {\n") + local s = " " + for n,b in ipairs(actlist) do + s = s..b.."," + if #s >= 75 then + assert(out:write(s, "\n")) + s = " " + end + end + out:write(s, last, "\n};\n\n") -- Add last byte back. +end + +------------------------------------------------------------------------------ + +-- Add byte to action list. +local function wputxb(n) + assert(n >= 0 and n <= 255 and n % 1 == 0, "byte out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, a, num) + wputxb(assert(map_action[action], "bad action name `"..action.."'")) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Add call to embedded DynASM C code. +local function wcall(func, args) + wline(format("dasm_%s(Dst, %s);", func, concat(args, ", ")), true) +end + +-- Delete duplicate action list chunks. A tad slow, but so what. +local function dedupechunk(offset) + local al, as = actlist, actstr + local chunk = char(unpack(al, offset+1, #al)) + local orig = find(as, chunk, 1, true) + if orig then + actargs[1] = orig-1 -- Replace with original offset. + for i=offset+1,#al do al[i] = nil end -- Kill dupe. + else + actstr = as..chunk + end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + local offset = actargs[1] + if #actlist == offset then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + dedupechunk(offset) + wcall("put", actargs) -- Add call to dasm_put(). + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped byte. +local function wputb(n) + if n >= actfirst then waction("ESC") end -- Need to escape byte. + wputxb(n) +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 10 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_@]*$") then werror("bad global label") end + local n = next_global + if n > 246 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=10,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=10,next_global-1 do + out:write(" ", prefix, gsub(t[i], "@.*", ""), ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +-- Write global label names. +local function writeglobalnames(out, name) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=10,next_global-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Extern label name -> extern label number. With auto assignment on 1st use. +local next_extern = -1 +local map_extern = setmetatable({}, { __index = function(t, name) + -- No restrictions on the name for now. + local n = next_extern + if n < -256 then werror("too many extern labels") end + next_extern = n - 1 + t[name] = n + return n +end}) + +-- Dump extern labels. +local function dumpexterns(out, lvl) + local t = {} + for name, n in pairs(map_extern) do t[-n] = name end + out:write("Extern labels:\n") + for i=1,-next_extern-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write extern label names. +local function writeexternnames(out, name) + local t = {} + for name, n in pairs(map_extern) do t[-n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=1,-next_extern-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. +local map_archdef = {} -- Ext. register name -> int. name. +local map_reg_rev = {} -- Int. register name -> ext. name. +local map_reg_num = {} -- Int. register name -> register number. +local map_reg_opsize = {} -- Int. register name -> operand size. +local map_reg_valid_base = {} -- Int. register name -> valid base register? +local map_reg_valid_index = {} -- Int. register name -> valid index register? +local map_reg_needrex = {} -- Int. register name -> need rex vs. no rex. +local reg_list = {} -- Canonical list of int. register names. + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for _PTx macros). + +local addrsize = x64 and "q" or "d" -- Size for address operands. + +-- Helper functions to fill register maps. +local function mkrmap(sz, cl, names) + local cname = format("@%s", sz) + reg_list[#reg_list+1] = cname + map_archdef[cl] = cname + map_reg_rev[cname] = cl + map_reg_num[cname] = -1 + map_reg_opsize[cname] = sz + if sz == addrsize or sz == "d" then + map_reg_valid_base[cname] = true + map_reg_valid_index[cname] = true + end + if names then + for n,name in ipairs(names) do + local iname = format("@%s%x", sz, n-1) + reg_list[#reg_list+1] = iname + map_archdef[name] = iname + map_reg_rev[iname] = name + map_reg_num[iname] = n-1 + map_reg_opsize[iname] = sz + if sz == "b" and n > 4 then map_reg_needrex[iname] = false end + if sz == addrsize or sz == "d" then + map_reg_valid_base[iname] = true + map_reg_valid_index[iname] = true + end + end + end + for i=0,(x64 and sz ~= "f") and 15 or 7 do + local needrex = sz == "b" and i > 3 + local iname = format("@%s%x%s", sz, i, needrex and "R" or "") + if needrex then map_reg_needrex[iname] = true end + local name + if sz == "o" then name = format("xmm%d", i) + elseif sz == "f" then name = format("st%d", i) + else name = format("r%d%s", i, sz == addrsize and "" or sz) end + map_archdef[name] = iname + if not map_reg_rev[iname] then + reg_list[#reg_list+1] = iname + map_reg_rev[iname] = name + map_reg_num[iname] = i + map_reg_opsize[iname] = sz + if sz == addrsize or sz == "d" then + map_reg_valid_base[iname] = true + map_reg_valid_index[iname] = true + end + end + end + reg_list[#reg_list+1] = "" +end + +-- Integer registers (qword, dword, word and byte sized). +if x64 then + mkrmap("q", "Rq", {"rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi"}) +end +mkrmap("d", "Rd", {"eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"}) +mkrmap("w", "Rw", {"ax", "cx", "dx", "bx", "sp", "bp", "si", "di"}) +mkrmap("b", "Rb", {"al", "cl", "dl", "bl", "ah", "ch", "dh", "bh"}) +map_reg_valid_index[map_archdef.esp] = false +if x64 then map_reg_valid_index[map_archdef.rsp] = false end +map_archdef["Ra"] = "@"..addrsize + +-- FP registers (internally tword sized, but use "f" as operand size). +mkrmap("f", "Rf") + +-- SSE registers (oword sized, but qword and dword accessible). +mkrmap("o", "xmm") + +-- Operand size prefixes to codes. +local map_opsize = { + byte = "b", word = "w", dword = "d", qword = "q", oword = "o", tword = "t", + aword = addrsize, +} + +-- Operand size code to number. +local map_opsizenum = { + b = 1, w = 2, d = 4, q = 8, o = 16, t = 10, +} + +-- Operand size code to name. +local map_opsizename = { + b = "byte", w = "word", d = "dword", q = "qword", o = "oword", t = "tword", + f = "fpword", +} + +-- Valid index register scale factors. +local map_xsc = { + ["1"] = 0, ["2"] = 1, ["4"] = 2, ["8"] = 3, +} + +-- Condition codes. +local map_cc = { + o = 0, no = 1, b = 2, nb = 3, e = 4, ne = 5, be = 6, nbe = 7, + s = 8, ns = 9, p = 10, np = 11, l = 12, nl = 13, le = 14, nle = 15, + c = 2, nae = 2, nc = 3, ae = 3, z = 4, nz = 5, na = 6, a = 7, + pe = 10, po = 11, nge = 12, ge = 13, ng = 14, g = 15, +} + + +-- Reverse defines for registers. +function _M.revdef(s) + return gsub(s, "@%w+", map_reg_rev) +end + +-- Dump register names and numbers +local function dumpregs(out) + out:write("Register names, sizes and internal numbers:\n") + for _,reg in ipairs(reg_list) do + if reg == "" then + out:write("\n") + else + local name = map_reg_rev[reg] + local num = map_reg_num[reg] + local opsize = map_opsizename[map_reg_opsize[reg]] + out:write(format(" %-5s %-8s %s\n", name, opsize, + num < 0 and "(variable)" or num)) + end + end +end + +------------------------------------------------------------------------------ + +-- Put action for label arg (IMM_LG, IMM_PC, REL_LG, REL_PC). +local function wputlabel(aprefix, imm, num) + if type(imm) == "number" then + if imm < 0 then + waction("EXTERN") + wputxb(aprefix == "IMM_" and 0 or 1) + imm = -imm-1 + else + waction(aprefix.."LG", nil, num); + end + wputxb(imm) + else + waction(aprefix.."PC", imm, num) + end +end + +-- Put signed byte or arg. +local function wputsbarg(n) + if type(n) == "number" then + if n < -128 or n > 127 then + werror("signed immediate byte out of range") + end + if n < 0 then n = n + 256 end + wputb(n) + else waction("IMM_S", n) end +end + +-- Put unsigned byte or arg. +local function wputbarg(n) + if type(n) == "number" then + if n < 0 or n > 255 then + werror("unsigned immediate byte out of range") + end + wputb(n) + else waction("IMM_B", n) end +end + +-- Put unsigned word or arg. +local function wputwarg(n) + if type(n) == "number" then + if shr(n, 16) ~= 0 then + werror("unsigned immediate word out of range") + end + wputb(band(n, 255)); wputb(shr(n, 8)); + else waction("IMM_W", n) end +end + +-- Put signed or unsigned dword or arg. +local function wputdarg(n) + local tn = type(n) + if tn == "number" then + wputb(band(n, 255)) + wputb(band(shr(n, 8), 255)) + wputb(band(shr(n, 16), 255)) + wputb(shr(n, 24)) + elseif tn == "table" then + wputlabel("IMM_", n[1], 1) + else + waction("IMM_D", n) + end +end + +-- Put operand-size dependent number or arg (defaults to dword). +local function wputszarg(sz, n) + if not sz or sz == "d" or sz == "q" then wputdarg(n) + elseif sz == "w" then wputwarg(n) + elseif sz == "b" then wputbarg(n) + elseif sz == "s" then wputsbarg(n) + else werror("bad operand size") end +end + +-- Put multi-byte opcode with operand-size dependent modifications. +local function wputop(sz, op, rex) + local r + if rex ~= 0 and not x64 then werror("bad operand size") end + if sz == "w" then wputb(102) end + -- Needs >32 bit numbers, but only for crc32 eax, word [ebx] + if op >= 4294967296 then r = op%4294967296 wputb((op-r)/4294967296) op = r end + if op >= 16777216 then wputb(shr(op, 24)); op = band(op, 0xffffff) end + if op >= 65536 then + if rex ~= 0 then + local opc3 = band(op, 0xffff00) + if opc3 == 0x0f3a00 or opc3 == 0x0f3800 then + wputb(64 + band(rex, 15)); rex = 0 + end + end + wputb(shr(op, 16)); op = band(op, 0xffff) + end + if op >= 256 then + local b = shr(op, 8) + if b == 15 and rex ~= 0 then wputb(64 + band(rex, 15)); rex = 0 end + wputb(b) + op = band(op, 255) + end + if rex ~= 0 then wputb(64 + band(rex, 15)) end + if sz == "b" then op = op - 1 end + wputb(op) +end + +-- Put ModRM or SIB formatted byte. +local function wputmodrm(m, s, rm, vs, vrm) + assert(m < 4 and s < 16 and rm < 16, "bad modrm operands") + wputb(shl(m, 6) + shl(band(s, 7), 3) + band(rm, 7)) +end + +-- Put ModRM/SIB plus optional displacement. +local function wputmrmsib(t, imark, s, vsreg) + local vreg, vxreg + local reg, xreg = t.reg, t.xreg + if reg and reg < 0 then reg = 0; vreg = t.vreg end + if xreg and xreg < 0 then xreg = 0; vxreg = t.vxreg end + if s < 0 then s = 0 end + + -- Register mode. + if sub(t.mode, 1, 1) == "r" then + wputmodrm(3, s, reg) + if vsreg then waction("VREG", vsreg); wputxb(2) end + if vreg then waction("VREG", vreg); wputxb(0) end + return + end + + local disp = t.disp + local tdisp = type(disp) + -- No base register? + if not reg then + local riprel = false + if xreg then + -- Indexed mode with index register only. + -- [xreg*xsc+disp] -> (0, s, esp) (xsc, xreg, ebp) + wputmodrm(0, s, 4) + if imark == "I" then waction("MARK") end + if vsreg then waction("VREG", vsreg); wputxb(2) end + wputmodrm(t.xsc, xreg, 5) + if vxreg then waction("VREG", vxreg); wputxb(3) end + else + -- Pure 32 bit displacement. + if x64 and tdisp ~= "table" then + wputmodrm(0, s, 4) -- [disp] -> (0, s, esp) (0, esp, ebp) + if imark == "I" then waction("MARK") end + wputmodrm(0, 4, 5) + else + riprel = x64 + wputmodrm(0, s, 5) -- [disp|rip-label] -> (0, s, ebp) + if imark == "I" then waction("MARK") end + end + if vsreg then waction("VREG", vsreg); wputxb(2) end + end + if riprel then -- Emit rip-relative displacement. + if match("UWSiI", imark) then + werror("NYI: rip-relative displacement followed by immediate") + end + -- The previous byte in the action buffer cannot be 0xe9 or 0x80-0x8f. + wputlabel("REL_", disp[1], 2) + else + wputdarg(disp) + end + return + end + + local m + if tdisp == "number" then -- Check displacement size at assembly time. + if disp == 0 and band(reg, 7) ~= 5 then -- [ebp] -> [ebp+0] (in SIB, too) + if not vreg then m = 0 end -- Force DISP to allow [Rd(5)] -> [ebp+0] + elseif disp >= -128 and disp <= 127 then m = 1 + else m = 2 end + elseif tdisp == "table" then + m = 2 + end + + -- Index register present or esp as base register: need SIB encoding. + if xreg or band(reg, 7) == 4 then + wputmodrm(m or 2, s, 4) -- ModRM. + if m == nil or imark == "I" then waction("MARK") end + if vsreg then waction("VREG", vsreg); wputxb(2) end + wputmodrm(t.xsc or 0, xreg or 4, reg) -- SIB. + if vxreg then waction("VREG", vxreg); wputxb(3) end + if vreg then waction("VREG", vreg); wputxb(1) end + else + wputmodrm(m or 2, s, reg) -- ModRM. + if (imark == "I" and (m == 1 or m == 2)) or + (m == nil and (vsreg or vreg)) then waction("MARK") end + if vsreg then waction("VREG", vsreg); wputxb(2) end + if vreg then waction("VREG", vreg); wputxb(1) end + end + + -- Put displacement. + if m == 1 then wputsbarg(disp) + elseif m == 2 then wputdarg(disp) + elseif m == nil then waction("DISP", disp) end +end + +------------------------------------------------------------------------------ + +-- Return human-readable operand mode string. +local function opmodestr(op, args) + local m = {} + for i=1,#args do + local a = args[i] + m[#m+1] = sub(a.mode, 1, 1)..(a.opsize or "?") + end + return op.." "..concat(m, ",") +end + +-- Convert number to valid integer or nil. +local function toint(expr) + local n = tonumber(expr) + if n then + if n % 1 ~= 0 or n < -2147483648 or n > 4294967295 then + werror("bad integer number `"..expr.."'") + end + return n + end +end + +-- Parse immediate expression. +local function immexpr(expr) + -- &expr (pointer) + if sub(expr, 1, 1) == "&" then + return "iPJ", format("(ptrdiff_t)(%s)", sub(expr,2)) + end + + local prefix = sub(expr, 1, 2) + -- =>expr (pc label reference) + if prefix == "=>" then + return "iJ", sub(expr, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "iJ", map_global[sub(expr, 3)] + end + + -- [<>][1-9] (local label reference) + local dir, lnum = match(expr, "^([<>])([1-9])$") + if dir then -- Fwd: 247-255, Bkwd: 1-9. + return "iJ", lnum + (dir == ">" and 246 or 0) + end + + local extname = match(expr, "^extern%s+(%S+)$") + if extname then + return "iJ", map_extern[extname] + end + + -- expr (interpreted as immediate) + return "iI", expr +end + +-- Parse displacement expression: +-num, +-expr, +-opsize*num +local function dispexpr(expr) + local disp = expr == "" and 0 or toint(expr) + if disp then return disp end + local c, dispt = match(expr, "^([+-])%s*(.+)$") + if c == "+" then + expr = dispt + elseif not c then + werror("bad displacement expression `"..expr.."'") + end + local opsize, tailops = match(dispt, "^(%w+)%s*%*%s*(.+)$") + local ops, imm = map_opsize[opsize], toint(tailops) + if ops and imm then + if c == "-" then imm = -imm end + return imm*map_opsizenum[ops] + end + local mode, iexpr = immexpr(dispt) + if mode == "iJ" then + if c == "-" then werror("cannot invert label reference") end + return { iexpr } + end + return expr -- Need to return original signed expression. +end + +-- Parse register or type expression. +local function rtexpr(expr) + if not expr then return end + local tname, ovreg = match(expr, "^([%w_]+):(@[%w_]+)$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + local rnum = map_reg_num[reg] + if not rnum then + werror("type `"..(tname or expr).."' needs a register override") + end + if not map_reg_valid_base[reg] then + werror("bad base register override `"..(map_reg_rev[reg] or reg).."'") + end + return reg, rnum, tp + end + return expr, map_reg_num[expr] +end + +-- Parse operand and return { mode, opsize, reg, xreg, xsc, disp, imm }. +local function parseoperand(param) + local t = {} + + local expr = param + local opsize, tailops = match(param, "^(%w+)%s*(.+)$") + if opsize then + t.opsize = map_opsize[opsize] + if t.opsize then expr = tailops end + end + + local br = match(expr, "^%[%s*(.-)%s*%]$") + repeat + if br then + t.mode = "xm" + + -- [disp] + t.disp = toint(br) + if t.disp then + t.mode = x64 and "xm" or "xmO" + break + end + + -- [reg...] + local tp + local reg, tailr = match(br, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if not t.reg then + -- [expr] + t.mode = x64 and "xm" or "xmO" + t.disp = dispexpr("+"..br) + break + end + + if t.reg == -1 then + t.vreg, tailr = match(tailr, "^(%b())(.*)$") + if not t.vreg then werror("bad variable register expression") end + end + + -- [xreg*xsc] or [xreg*xsc+-disp] or [xreg*xsc+-expr] + local xsc, tailsc = match(tailr, "^%*%s*([1248])%s*(.*)$") + if xsc then + if not map_reg_valid_index[reg] then + werror("bad index register `"..map_reg_rev[reg].."'") + end + t.xsc = map_xsc[xsc] + t.xreg = t.reg + t.vxreg = t.vreg + t.reg = nil + t.vreg = nil + t.disp = dispexpr(tailsc) + break + end + if not map_reg_valid_base[reg] then + werror("bad base register `"..map_reg_rev[reg].."'") + end + + -- [reg] or [reg+-disp] + t.disp = toint(tailr) or (tailr == "" and 0) + if t.disp then break end + + -- [reg+xreg...] + local xreg, tailx = match(tailr, "^+%s*([@%w_:]+)%s*(.*)$") + xreg, t.xreg, tp = rtexpr(xreg) + if not t.xreg then + -- [reg+-expr] + t.disp = dispexpr(tailr) + break + end + if not map_reg_valid_index[xreg] then + werror("bad index register `"..map_reg_rev[xreg].."'") + end + + if t.xreg == -1 then + t.vxreg, tailx = match(tailx, "^(%b())(.*)$") + if not t.vxreg then werror("bad variable register expression") end + end + + -- [reg+xreg*xsc...] + local xsc, tailsc = match(tailx, "^%*%s*([1248])%s*(.*)$") + if xsc then + t.xsc = map_xsc[xsc] + tailx = tailsc + end + + -- [...] or [...+-disp] or [...+-expr] + t.disp = dispexpr(tailx) + else + -- imm or opsize*imm + local imm = toint(expr) + if not imm and sub(expr, 1, 1) == "*" and t.opsize then + imm = toint(sub(expr, 2)) + if imm then + imm = imm * map_opsizenum[t.opsize] + t.opsize = nil + end + end + if imm then + if t.opsize then werror("bad operand size override") end + local m = "i" + if imm == 1 then m = m.."1" end + if imm >= 4294967168 and imm <= 4294967295 then imm = imm-4294967296 end + if imm >= -128 and imm <= 127 then m = m.."S" end + t.imm = imm + t.mode = m + break + end + + local tp + local reg, tailr = match(expr, "^([@%w_:]+)%s*(.*)$") + reg, t.reg, tp = rtexpr(reg) + if t.reg then + if t.reg == -1 then + t.vreg, tailr = match(tailr, "^(%b())(.*)$") + if not t.vreg then werror("bad variable register expression") end + end + -- reg + if tailr == "" then + if t.opsize then werror("bad operand size override") end + t.opsize = map_reg_opsize[reg] + if t.opsize == "f" then + t.mode = t.reg == 0 and "fF" or "f" + else + if reg == "@w4" or (x64 and reg == "@d4") then + wwarn("bad idea, try again with `"..(x64 and "rsp'" or "esp'")) + end + t.mode = t.reg == 0 and "rmR" or (reg == "@b1" and "rmC" or "rm") + end + t.needrex = map_reg_needrex[reg] + break + end + + -- type[idx], type[idx].field, type->field -> [reg+offset_expr] + if not tp then werror("bad operand `"..param.."'") end + t.mode = "xm" + t.disp = format(tp.ctypefmt, tailr) + else + t.mode, t.imm = immexpr(expr) + if sub(t.mode, -1) == "J" then + if t.opsize and t.opsize ~= addrsize then + werror("bad operand size override") + end + t.opsize = addrsize + end + end + end + until true + return t +end + +------------------------------------------------------------------------------ +-- x86 Template String Description +-- =============================== +-- +-- Each template string is a list of [match:]pattern pairs, +-- separated by "|". The first match wins. No match means a +-- bad or unsupported combination of operand modes or sizes. +-- +-- The match part and the ":" is omitted if the operation has +-- no operands. Otherwise the first N characters are matched +-- against the mode strings of each of the N operands. +-- +-- The mode string for each operand type is (see parseoperand()): +-- Integer register: "rm", +"R" for eax, ax, al, +"C" for cl +-- FP register: "f", +"F" for st0 +-- Index operand: "xm", +"O" for [disp] (pure offset) +-- Immediate: "i", +"S" for signed 8 bit, +"1" for 1, +-- +"I" for arg, +"P" for pointer +-- Any: +"J" for valid jump targets +-- +-- So a match character "m" (mixed) matches both an integer register +-- and an index operand (to be encoded with the ModRM/SIB scheme). +-- But "r" matches only a register and "x" only an index operand +-- (e.g. for FP memory access operations). +-- +-- The operand size match string starts right after the mode match +-- characters and ends before the ":". "dwb" or "qdwb" is assumed, if empty. +-- The effective data size of the operation is matched against this list. +-- +-- If only the regular "b", "w", "d", "q", "t" operand sizes are +-- present, then all operands must be the same size. Unspecified sizes +-- are ignored, but at least one operand must have a size or the pattern +-- won't match (use the "byte", "word", "dword", "qword", "tword" +-- operand size overrides. E.g.: mov dword [eax], 1). +-- +-- If the list has a "1" or "2" prefix, the operand size is taken +-- from the respective operand and any other operand sizes are ignored. +-- If the list contains only ".", all operand sizes are ignored. +-- If the list has a "/" prefix, the concatenated (mixed) operand sizes +-- are compared to the match. +-- +-- E.g. "rrdw" matches for either two dword registers or two word +-- registers. "Fx2dq" matches an st0 operand plus an index operand +-- pointing to a dword (float) or qword (double). +-- +-- Every character after the ":" is part of the pattern string: +-- Hex chars are accumulated to form the opcode (left to right). +-- "n" disables the standard opcode mods +-- (otherwise: -1 for "b", o16 prefix for "w", rex.w for "q") +-- "X" Force REX.W. +-- "r"/"R" adds the reg. number from the 1st/2nd operand to the opcode. +-- "m"/"M" generates ModRM/SIB from the 1st/2nd operand. +-- The spare 3 bits are either filled with the last hex digit or +-- the result from a previous "r"/"R". The opcode is restored. +-- +-- All of the following characters force a flush of the opcode: +-- "o"/"O" stores a pure 32 bit disp (offset) from the 1st/2nd operand. +-- "S" stores a signed 8 bit immediate from the last operand. +-- "U" stores an unsigned 8 bit immediate from the last operand. +-- "W" stores an unsigned 16 bit immediate from the last operand. +-- "i" stores an operand sized immediate from the last operand. +-- "I" dito, but generates an action code to optionally modify +-- the opcode (+2) for a signed 8 bit immediate. +-- "J" generates one of the REL action codes from the last operand. +-- +------------------------------------------------------------------------------ + +-- Template strings for x86 instructions. Ordered by first opcode byte. +-- Unimplemented opcodes (deliberate omissions) are marked with *. +local map_op = { + -- 00-05: add... + -- 06: *push es + -- 07: *pop es + -- 08-0D: or... + -- 0E: *push cs + -- 0F: two byte opcode prefix + -- 10-15: adc... + -- 16: *push ss + -- 17: *pop ss + -- 18-1D: sbb... + -- 1E: *push ds + -- 1F: *pop ds + -- 20-25: and... + es_0 = "26", + -- 27: *daa + -- 28-2D: sub... + cs_0 = "2E", + -- 2F: *das + -- 30-35: xor... + ss_0 = "36", + -- 37: *aaa + -- 38-3D: cmp... + ds_0 = "3E", + -- 3F: *aas + inc_1 = x64 and "m:FF0m" or "rdw:40r|m:FF0m", + dec_1 = x64 and "m:FF1m" or "rdw:48r|m:FF1m", + push_1 = (x64 and "rq:n50r|rw:50r|mq:nFF6m|mw:FF6m" or + "rdw:50r|mdw:FF6m").."|S.:6AS|ib:n6Ai|i.:68i", + pop_1 = x64 and "rq:n58r|rw:58r|mq:n8F0m|mw:8F0m" or "rdw:58r|mdw:8F0m", + -- 60: *pusha, *pushad, *pushaw + -- 61: *popa, *popad, *popaw + -- 62: *bound rdw,x + -- 63: x86: *arpl mw,rw + movsxd_2 = x64 and "rm/qd:63rM", + fs_0 = "64", + gs_0 = "65", + o16_0 = "66", + a16_0 = not x64 and "67" or nil, + a32_0 = x64 and "67", + -- 68: push idw + -- 69: imul rdw,mdw,idw + -- 6A: push ib + -- 6B: imul rdw,mdw,S + -- 6C: *insb + -- 6D: *insd, *insw + -- 6E: *outsb + -- 6F: *outsd, *outsw + -- 70-7F: jcc lb + -- 80: add... mb,i + -- 81: add... mdw,i + -- 82: *undefined + -- 83: add... mdw,S + test_2 = "mr:85Rm|rm:85rM|Ri:A9ri|mi:F70mi", + -- 86: xchg rb,mb + -- 87: xchg rdw,mdw + -- 88: mov mb,r + -- 89: mov mdw,r + -- 8A: mov r,mb + -- 8B: mov r,mdw + -- 8C: *mov mdw,seg + lea_2 = "rx1dq:8DrM", + -- 8E: *mov seg,mdw + -- 8F: pop mdw + nop_0 = "90", + xchg_2 = "Rrqdw:90R|rRqdw:90r|rm:87rM|mr:87Rm", + cbw_0 = "6698", + cwde_0 = "98", + cdqe_0 = "4898", + cwd_0 = "6699", + cdq_0 = "99", + cqo_0 = "4899", + -- 9A: *call iw:idw + wait_0 = "9B", + fwait_0 = "9B", + pushf_0 = "9C", + pushfd_0 = not x64 and "9C", + pushfq_0 = x64 and "9C", + popf_0 = "9D", + popfd_0 = not x64 and "9D", + popfq_0 = x64 and "9D", + sahf_0 = "9E", + lahf_0 = "9F", + mov_2 = "OR:A3o|RO:A1O|mr:89Rm|rm:8BrM|rib:nB0ri|ridw:B8ri|mi:C70mi", + movsb_0 = "A4", + movsw_0 = "66A5", + movsd_0 = "A5", + cmpsb_0 = "A6", + cmpsw_0 = "66A7", + cmpsd_0 = "A7", + -- A8: test Rb,i + -- A9: test Rdw,i + stosb_0 = "AA", + stosw_0 = "66AB", + stosd_0 = "AB", + lodsb_0 = "AC", + lodsw_0 = "66AD", + lodsd_0 = "AD", + scasb_0 = "AE", + scasw_0 = "66AF", + scasd_0 = "AF", + -- B0-B7: mov rb,i + -- B8-BF: mov rdw,i + -- C0: rol... mb,i + -- C1: rol... mdw,i + ret_1 = "i.:nC2W", + ret_0 = "C3", + -- C4: *les rdw,mq + -- C5: *lds rdw,mq + -- C6: mov mb,i + -- C7: mov mdw,i + -- C8: *enter iw,ib + leave_0 = "C9", + -- CA: *retf iw + -- CB: *retf + int3_0 = "CC", + int_1 = "i.:nCDU", + into_0 = "CE", + -- CF: *iret + -- D0: rol... mb,1 + -- D1: rol... mdw,1 + -- D2: rol... mb,cl + -- D3: rol... mb,cl + -- D4: *aam ib + -- D5: *aad ib + -- D6: *salc + -- D7: *xlat + -- D8-DF: floating point ops + -- E0: *loopne + -- E1: *loope + -- E2: *loop + -- E3: *jcxz, *jecxz + -- E4: *in Rb,ib + -- E5: *in Rdw,ib + -- E6: *out ib,Rb + -- E7: *out ib,Rdw + call_1 = x64 and "mq:nFF2m|J.:E8nJ" or "md:FF2m|J.:E8J", + jmp_1 = x64 and "mq:nFF4m|J.:E9nJ" or "md:FF4m|J.:E9J", -- short: EB + -- EA: *jmp iw:idw + -- EB: jmp ib + -- EC: *in Rb,dx + -- ED: *in Rdw,dx + -- EE: *out dx,Rb + -- EF: *out dx,Rdw + lock_0 = "F0", + int1_0 = "F1", + repne_0 = "F2", + repnz_0 = "F2", + rep_0 = "F3", + repe_0 = "F3", + repz_0 = "F3", + -- F4: *hlt + cmc_0 = "F5", + -- F6: test... mb,i; div... mb + -- F7: test... mdw,i; div... mdw + clc_0 = "F8", + stc_0 = "F9", + -- FA: *cli + cld_0 = "FC", + std_0 = "FD", + -- FE: inc... mb + -- FF: inc... mdw + + -- misc ops + not_1 = "m:F72m", + neg_1 = "m:F73m", + mul_1 = "m:F74m", + imul_1 = "m:F75m", + div_1 = "m:F76m", + idiv_1 = "m:F77m", + + imul_2 = "rmqdw:0FAFrM|rIqdw:69rmI|rSqdw:6BrmS|riqdw:69rmi", + imul_3 = "rmIqdw:69rMI|rmSqdw:6BrMS|rmiqdw:69rMi", + + movzx_2 = "rm/db:0FB6rM|rm/qb:|rm/wb:0FB6rM|rm/dw:0FB7rM|rm/qw:", + movsx_2 = "rm/db:0FBErM|rm/qb:|rm/wb:0FBErM|rm/dw:0FBFrM|rm/qw:", + + bswap_1 = "rqd:0FC8r", + bsf_2 = "rmqdw:0FBCrM", + bsr_2 = "rmqdw:0FBDrM", + bt_2 = "mrqdw:0FA3Rm|miqdw:0FBA4mU", + btc_2 = "mrqdw:0FBBRm|miqdw:0FBA7mU", + btr_2 = "mrqdw:0FB3Rm|miqdw:0FBA6mU", + bts_2 = "mrqdw:0FABRm|miqdw:0FBA5mU", + + shld_3 = "mriqdw:0FA4RmU|mrCqdw:0FA5Rm", + shrd_3 = "mriqdw:0FACRmU|mrCqdw:0FADRm", + + rdtsc_0 = "0F31", -- P1+ + cpuid_0 = "0FA2", -- P1+ + + -- floating point ops + fst_1 = "ff:DDD0r|xd:D92m|xq:nDD2m", + fstp_1 = "ff:DDD8r|xd:D93m|xq:nDD3m|xt:DB7m", + fld_1 = "ff:D9C0r|xd:D90m|xq:nDD0m|xt:DB5m", + + fpop_0 = "DDD8", -- Alias for fstp st0. + + fist_1 = "xw:nDF2m|xd:DB2m", + fistp_1 = "xw:nDF3m|xd:DB3m|xq:nDF7m", + fild_1 = "xw:nDF0m|xd:DB0m|xq:nDF5m", + + fxch_0 = "D9C9", + fxch_1 = "ff:D9C8r", + fxch_2 = "fFf:D9C8r|Fff:D9C8R", + + fucom_1 = "ff:DDE0r", + fucom_2 = "Fff:DDE0R", + fucomp_1 = "ff:DDE8r", + fucomp_2 = "Fff:DDE8R", + fucomi_1 = "ff:DBE8r", -- P6+ + fucomi_2 = "Fff:DBE8R", -- P6+ + fucomip_1 = "ff:DFE8r", -- P6+ + fucomip_2 = "Fff:DFE8R", -- P6+ + fcomi_1 = "ff:DBF0r", -- P6+ + fcomi_2 = "Fff:DBF0R", -- P6+ + fcomip_1 = "ff:DFF0r", -- P6+ + fcomip_2 = "Fff:DFF0R", -- P6+ + fucompp_0 = "DAE9", + fcompp_0 = "DED9", + + fldenv_1 = "x.:D94m", + fnstenv_1 = "x.:D96m", + fstenv_1 = "x.:9BD96m", + fldcw_1 = "xw:nD95m", + fstcw_1 = "xw:n9BD97m", + fnstcw_1 = "xw:nD97m", + fstsw_1 = "Rw:n9BDFE0|xw:n9BDD7m", + fnstsw_1 = "Rw:nDFE0|xw:nDD7m", + fclex_0 = "9BDBE2", + fnclex_0 = "DBE2", + + fnop_0 = "D9D0", + -- D9D1-D9DF: unassigned + + fchs_0 = "D9E0", + fabs_0 = "D9E1", + -- D9E2: unassigned + -- D9E3: unassigned + ftst_0 = "D9E4", + fxam_0 = "D9E5", + -- D9E6: unassigned + -- D9E7: unassigned + fld1_0 = "D9E8", + fldl2t_0 = "D9E9", + fldl2e_0 = "D9EA", + fldpi_0 = "D9EB", + fldlg2_0 = "D9EC", + fldln2_0 = "D9ED", + fldz_0 = "D9EE", + -- D9EF: unassigned + + f2xm1_0 = "D9F0", + fyl2x_0 = "D9F1", + fptan_0 = "D9F2", + fpatan_0 = "D9F3", + fxtract_0 = "D9F4", + fprem1_0 = "D9F5", + fdecstp_0 = "D9F6", + fincstp_0 = "D9F7", + fprem_0 = "D9F8", + fyl2xp1_0 = "D9F9", + fsqrt_0 = "D9FA", + fsincos_0 = "D9FB", + frndint_0 = "D9FC", + fscale_0 = "D9FD", + fsin_0 = "D9FE", + fcos_0 = "D9FF", + + -- SSE, SSE2 + andnpd_2 = "rmo:660F55rM", + andnps_2 = "rmo:0F55rM", + andpd_2 = "rmo:660F54rM", + andps_2 = "rmo:0F54rM", + clflush_1 = "x.:0FAE7m", + cmppd_3 = "rmio:660FC2rMU", + cmpps_3 = "rmio:0FC2rMU", + cmpsd_3 = "rrio:F20FC2rMU|rxi/oq:", + cmpss_3 = "rrio:F30FC2rMU|rxi/od:", + comisd_2 = "rro:660F2FrM|rx/oq:", + comiss_2 = "rro:0F2FrM|rx/od:", + cvtdq2pd_2 = "rro:F30FE6rM|rx/oq:", + cvtdq2ps_2 = "rmo:0F5BrM", + cvtpd2dq_2 = "rmo:F20FE6rM", + cvtpd2ps_2 = "rmo:660F5ArM", + cvtpi2pd_2 = "rx/oq:660F2ArM", + cvtpi2ps_2 = "rx/oq:0F2ArM", + cvtps2dq_2 = "rmo:660F5BrM", + cvtps2pd_2 = "rro:0F5ArM|rx/oq:", + cvtsd2si_2 = "rr/do:F20F2DrM|rr/qo:|rx/dq:|rxq:", + cvtsd2ss_2 = "rro:F20F5ArM|rx/oq:", + cvtsi2sd_2 = "rm/od:F20F2ArM|rm/oq:F20F2ArXM", + cvtsi2ss_2 = "rm/od:F30F2ArM|rm/oq:F30F2ArXM", + cvtss2sd_2 = "rro:F30F5ArM|rx/od:", + cvtss2si_2 = "rr/do:F20F2CrM|rr/qo:|rxd:|rx/qd:", + cvttpd2dq_2 = "rmo:660FE6rM", + cvttps2dq_2 = "rmo:F30F5BrM", + cvttsd2si_2 = "rr/do:F20F2CrM|rr/qo:|rx/dq:|rxq:", + cvttss2si_2 = "rr/do:F30F2CrM|rr/qo:|rxd:|rx/qd:", + fxsave_1 = "x.:0FAE0m", + fxrstor_1 = "x.:0FAE1m", + ldmxcsr_1 = "xd:0FAE2m", + lfence_0 = "0FAEE8", + maskmovdqu_2 = "rro:660FF7rM", + mfence_0 = "0FAEF0", + movapd_2 = "rmo:660F28rM|mro:660F29Rm", + movaps_2 = "rmo:0F28rM|mro:0F29Rm", + movd_2 = "rm/od:660F6ErM|rm/oq:660F6ErXM|mr/do:660F7ERm|mr/qo:", + movdqa_2 = "rmo:660F6FrM|mro:660F7FRm", + movdqu_2 = "rmo:F30F6FrM|mro:F30F7FRm", + movhlps_2 = "rro:0F12rM", + movhpd_2 = "rx/oq:660F16rM|xr/qo:n660F17Rm", + movhps_2 = "rx/oq:0F16rM|xr/qo:n0F17Rm", + movlhps_2 = "rro:0F16rM", + movlpd_2 = "rx/oq:660F12rM|xr/qo:n660F13Rm", + movlps_2 = "rx/oq:0F12rM|xr/qo:n0F13Rm", + movmskpd_2 = "rr/do:660F50rM", + movmskps_2 = "rr/do:0F50rM", + movntdq_2 = "xro:660FE7Rm", + movnti_2 = "xrqd:0FC3Rm", + movntpd_2 = "xro:660F2BRm", + movntps_2 = "xro:0F2BRm", + movq_2 = "rro:F30F7ErM|rx/oq:|xr/qo:n660FD6Rm", + movsd_2 = "rro:F20F10rM|rx/oq:|xr/qo:nF20F11Rm", + movss_2 = "rro:F30F10rM|rx/od:|xr/do:F30F11Rm", + movupd_2 = "rmo:660F10rM|mro:660F11Rm", + movups_2 = "rmo:0F10rM|mro:0F11Rm", + orpd_2 = "rmo:660F56rM", + orps_2 = "rmo:0F56rM", + packssdw_2 = "rmo:660F6BrM", + packsswb_2 = "rmo:660F63rM", + packuswb_2 = "rmo:660F67rM", + paddb_2 = "rmo:660FFCrM", + paddd_2 = "rmo:660FFErM", + paddq_2 = "rmo:660FD4rM", + paddsb_2 = "rmo:660FECrM", + paddsw_2 = "rmo:660FEDrM", + paddusb_2 = "rmo:660FDCrM", + paddusw_2 = "rmo:660FDDrM", + paddw_2 = "rmo:660FFDrM", + pand_2 = "rmo:660FDBrM", + pandn_2 = "rmo:660FDFrM", + pause_0 = "F390", + pavgb_2 = "rmo:660FE0rM", + pavgw_2 = "rmo:660FE3rM", + pcmpeqb_2 = "rmo:660F74rM", + pcmpeqd_2 = "rmo:660F76rM", + pcmpeqw_2 = "rmo:660F75rM", + pcmpgtb_2 = "rmo:660F64rM", + pcmpgtd_2 = "rmo:660F66rM", + pcmpgtw_2 = "rmo:660F65rM", + pextrw_3 = "rri/do:660FC5rMU|xri/wo:660F3A15nrMU", -- Mem op: SSE4.1 only. + pinsrw_3 = "rri/od:660FC4rMU|rxi/ow:", + pmaddwd_2 = "rmo:660FF5rM", + pmaxsw_2 = "rmo:660FEErM", + pmaxub_2 = "rmo:660FDErM", + pminsw_2 = "rmo:660FEArM", + pminub_2 = "rmo:660FDArM", + pmovmskb_2 = "rr/do:660FD7rM", + pmulhuw_2 = "rmo:660FE4rM", + pmulhw_2 = "rmo:660FE5rM", + pmullw_2 = "rmo:660FD5rM", + pmuludq_2 = "rmo:660FF4rM", + por_2 = "rmo:660FEBrM", + prefetchnta_1 = "xb:n0F180m", + prefetcht0_1 = "xb:n0F181m", + prefetcht1_1 = "xb:n0F182m", + prefetcht2_1 = "xb:n0F183m", + psadbw_2 = "rmo:660FF6rM", + pshufd_3 = "rmio:660F70rMU", + pshufhw_3 = "rmio:F30F70rMU", + pshuflw_3 = "rmio:F20F70rMU", + pslld_2 = "rmo:660FF2rM|rio:660F726mU", + pslldq_2 = "rio:660F737mU", + psllq_2 = "rmo:660FF3rM|rio:660F736mU", + psllw_2 = "rmo:660FF1rM|rio:660F716mU", + psrad_2 = "rmo:660FE2rM|rio:660F724mU", + psraw_2 = "rmo:660FE1rM|rio:660F714mU", + psrld_2 = "rmo:660FD2rM|rio:660F722mU", + psrldq_2 = "rio:660F733mU", + psrlq_2 = "rmo:660FD3rM|rio:660F732mU", + psrlw_2 = "rmo:660FD1rM|rio:660F712mU", + psubb_2 = "rmo:660FF8rM", + psubd_2 = "rmo:660FFArM", + psubq_2 = "rmo:660FFBrM", + psubsb_2 = "rmo:660FE8rM", + psubsw_2 = "rmo:660FE9rM", + psubusb_2 = "rmo:660FD8rM", + psubusw_2 = "rmo:660FD9rM", + psubw_2 = "rmo:660FF9rM", + punpckhbw_2 = "rmo:660F68rM", + punpckhdq_2 = "rmo:660F6ArM", + punpckhqdq_2 = "rmo:660F6DrM", + punpckhwd_2 = "rmo:660F69rM", + punpcklbw_2 = "rmo:660F60rM", + punpckldq_2 = "rmo:660F62rM", + punpcklqdq_2 = "rmo:660F6CrM", + punpcklwd_2 = "rmo:660F61rM", + pxor_2 = "rmo:660FEFrM", + rcpps_2 = "rmo:0F53rM", + rcpss_2 = "rro:F30F53rM|rx/od:", + rsqrtps_2 = "rmo:0F52rM", + rsqrtss_2 = "rmo:F30F52rM", + sfence_0 = "0FAEF8", + shufpd_3 = "rmio:660FC6rMU", + shufps_3 = "rmio:0FC6rMU", + stmxcsr_1 = "xd:0FAE3m", + ucomisd_2 = "rro:660F2ErM|rx/oq:", + ucomiss_2 = "rro:0F2ErM|rx/od:", + unpckhpd_2 = "rmo:660F15rM", + unpckhps_2 = "rmo:0F15rM", + unpcklpd_2 = "rmo:660F14rM", + unpcklps_2 = "rmo:0F14rM", + xorpd_2 = "rmo:660F57rM", + xorps_2 = "rmo:0F57rM", + + -- SSE3 ops + fisttp_1 = "xw:nDF1m|xd:DB1m|xq:nDD1m", + addsubpd_2 = "rmo:660FD0rM", + addsubps_2 = "rmo:F20FD0rM", + haddpd_2 = "rmo:660F7CrM", + haddps_2 = "rmo:F20F7CrM", + hsubpd_2 = "rmo:660F7DrM", + hsubps_2 = "rmo:F20F7DrM", + lddqu_2 = "rxo:F20FF0rM", + movddup_2 = "rmo:F20F12rM", + movshdup_2 = "rmo:F30F16rM", + movsldup_2 = "rmo:F30F12rM", + + -- SSSE3 ops + pabsb_2 = "rmo:660F381CrM", + pabsd_2 = "rmo:660F381ErM", + pabsw_2 = "rmo:660F381DrM", + palignr_3 = "rmio:660F3A0FrMU", + phaddd_2 = "rmo:660F3802rM", + phaddsw_2 = "rmo:660F3803rM", + phaddw_2 = "rmo:660F3801rM", + phsubd_2 = "rmo:660F3806rM", + phsubsw_2 = "rmo:660F3807rM", + phsubw_2 = "rmo:660F3805rM", + pmaddubsw_2 = "rmo:660F3804rM", + pmulhrsw_2 = "rmo:660F380BrM", + pshufb_2 = "rmo:660F3800rM", + psignb_2 = "rmo:660F3808rM", + psignd_2 = "rmo:660F380ArM", + psignw_2 = "rmo:660F3809rM", + + -- SSE4.1 ops + blendpd_3 = "rmio:660F3A0DrMU", + blendps_3 = "rmio:660F3A0CrMU", + blendvpd_3 = "rmRo:660F3815rM", + blendvps_3 = "rmRo:660F3814rM", + dppd_3 = "rmio:660F3A41rMU", + dpps_3 = "rmio:660F3A40rMU", + extractps_3 = "mri/do:660F3A17RmU|rri/qo:660F3A17RXmU", + insertps_3 = "rrio:660F3A41rMU|rxi/od:", + movntdqa_2 = "rmo:660F382ArM", + mpsadbw_3 = "rmio:660F3A42rMU", + packusdw_2 = "rmo:660F382BrM", + pblendvb_3 = "rmRo:660F3810rM", + pblendw_3 = "rmio:660F3A0ErMU", + pcmpeqq_2 = "rmo:660F3829rM", + pextrb_3 = "rri/do:660F3A14nRmU|rri/qo:|xri/bo:", + pextrd_3 = "mri/do:660F3A16RmU", + pextrq_3 = "mri/qo:660F3A16RmU", + -- pextrw is SSE2, mem operand is SSE4.1 only + phminposuw_2 = "rmo:660F3841rM", + pinsrb_3 = "rri/od:660F3A20nrMU|rxi/ob:", + pinsrd_3 = "rmi/od:660F3A22rMU", + pinsrq_3 = "rmi/oq:660F3A22rXMU", + pmaxsb_2 = "rmo:660F383CrM", + pmaxsd_2 = "rmo:660F383DrM", + pmaxud_2 = "rmo:660F383FrM", + pmaxuw_2 = "rmo:660F383ErM", + pminsb_2 = "rmo:660F3838rM", + pminsd_2 = "rmo:660F3839rM", + pminud_2 = "rmo:660F383BrM", + pminuw_2 = "rmo:660F383ArM", + pmovsxbd_2 = "rro:660F3821rM|rx/od:", + pmovsxbq_2 = "rro:660F3822rM|rx/ow:", + pmovsxbw_2 = "rro:660F3820rM|rx/oq:", + pmovsxdq_2 = "rro:660F3825rM|rx/oq:", + pmovsxwd_2 = "rro:660F3823rM|rx/oq:", + pmovsxwq_2 = "rro:660F3824rM|rx/od:", + pmovzxbd_2 = "rro:660F3831rM|rx/od:", + pmovzxbq_2 = "rro:660F3832rM|rx/ow:", + pmovzxbw_2 = "rro:660F3830rM|rx/oq:", + pmovzxdq_2 = "rro:660F3835rM|rx/oq:", + pmovzxwd_2 = "rro:660F3833rM|rx/oq:", + pmovzxwq_2 = "rro:660F3834rM|rx/od:", + pmuldq_2 = "rmo:660F3828rM", + pmulld_2 = "rmo:660F3840rM", + ptest_2 = "rmo:660F3817rM", + roundpd_3 = "rmio:660F3A09rMU", + roundps_3 = "rmio:660F3A08rMU", + roundsd_3 = "rrio:660F3A0BrMU|rxi/oq:", + roundss_3 = "rrio:660F3A0ArMU|rxi/od:", + + -- SSE4.2 ops + crc32_2 = "rmqd:F20F38F1rM|rm/dw:66F20F38F1rM|rm/db:F20F38F0rM|rm/qb:", + pcmpestri_3 = "rmio:660F3A61rMU", + pcmpestrm_3 = "rmio:660F3A60rMU", + pcmpgtq_2 = "rmo:660F3837rM", + pcmpistri_3 = "rmio:660F3A63rMU", + pcmpistrm_3 = "rmio:660F3A62rMU", + popcnt_2 = "rmqdw:F30FB8rM", + + -- SSE4a + extrq_2 = "rro:660F79rM", + extrq_3 = "riio:660F780mUU", + insertq_2 = "rro:F20F79rM", + insertq_4 = "rriio:F20F78rMUU", + lzcnt_2 = "rmqdw:F30FBDrM", + movntsd_2 = "xr/qo:nF20F2BRm", + movntss_2 = "xr/do:F30F2BRm", + -- popcnt is also in SSE4.2 +} + +------------------------------------------------------------------------------ + +-- Arithmetic ops. +for name,n in pairs{ add = 0, ["or"] = 1, adc = 2, sbb = 3, + ["and"] = 4, sub = 5, xor = 6, cmp = 7 } do + local n8 = shl(n, 3) + map_op[name.."_2"] = format( + "mr:%02XRm|rm:%02XrM|mI1qdw:81%XmI|mS1qdw:83%XmS|Ri1qdwb:%02Xri|mi1qdwb:81%Xmi", + 1+n8, 3+n8, n, n, 5+n8, n) +end + +-- Shift ops. +for name,n in pairs{ rol = 0, ror = 1, rcl = 2, rcr = 3, + shl = 4, shr = 5, sar = 7, sal = 4 } do + map_op[name.."_2"] = format("m1:D1%Xm|mC1qdwb:D3%Xm|mi:C1%XmU", n, n, n) +end + +-- Conditional ops. +for cc,n in pairs(map_cc) do + map_op["j"..cc.."_1"] = format("J.:n0F8%XJ", n) -- short: 7%X + map_op["set"..cc.."_1"] = format("mb:n0F9%X2m", n) + map_op["cmov"..cc.."_2"] = format("rmqdw:0F4%XrM", n) -- P6+ +end + +-- FP arithmetic ops. +for name,n in pairs{ add = 0, mul = 1, com = 2, comp = 3, + sub = 4, subr = 5, div = 6, divr = 7 } do + local nc = 0xc0 + shl(n, 3) + local nr = nc + (n < 4 and 0 or (n % 2 == 0 and 8 or -8)) + local fn = "f"..name + map_op[fn.."_1"] = format("ff:D8%02Xr|xd:D8%Xm|xq:nDC%Xm", nc, n, n) + if n == 2 or n == 3 then + map_op[fn.."_2"] = format("Fff:D8%02XR|Fx2d:D8%XM|Fx2q:nDC%XM", nc, n, n) + else + map_op[fn.."_2"] = format("Fff:D8%02XR|fFf:DC%02Xr|Fx2d:D8%XM|Fx2q:nDC%XM", nc, nr, n, n) + map_op[fn.."p_1"] = format("ff:DE%02Xr", nr) + map_op[fn.."p_2"] = format("fFf:DE%02Xr", nr) + end + map_op["fi"..name.."_1"] = format("xd:DA%Xm|xw:nDE%Xm", n, n) +end + +-- FP conditional moves. +for cc,n in pairs{ b=0, e=1, be=2, u=3, nb=4, ne=5, nbe=6, nu=7 } do + local nc = 0xdac0 + shl(band(n, 3), 3) + shl(band(n, 4), 6) + map_op["fcmov"..cc.."_1"] = format("ff:%04Xr", nc) -- P6+ + map_op["fcmov"..cc.."_2"] = format("Fff:%04XR", nc) -- P6+ +end + +-- SSE FP arithmetic ops. +for name,n in pairs{ sqrt = 1, add = 8, mul = 9, + sub = 12, min = 13, div = 14, max = 15 } do + map_op[name.."ps_2"] = format("rmo:0F5%XrM", n) + map_op[name.."ss_2"] = format("rro:F30F5%XrM|rx/od:", n) + map_op[name.."pd_2"] = format("rmo:660F5%XrM", n) + map_op[name.."sd_2"] = format("rro:F20F5%XrM|rx/oq:", n) +end + +------------------------------------------------------------------------------ + +-- Process pattern string. +local function dopattern(pat, args, sz, op, needrex) + local digit, addin + local opcode = 0 + local szov = sz + local narg = 1 + local rex = 0 + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 5 positions. + if secpos+5 > maxsecpos then wflush() end + + -- Process each character. + for c in gmatch(pat.."|", ".") do + if match(c, "%x") then -- Hex digit. + digit = byte(c) - 48 + if digit > 48 then digit = digit - 39 + elseif digit > 16 then digit = digit - 7 end + opcode = opcode*16 + digit + addin = nil + elseif c == "n" then -- Disable operand size mods for opcode. + szov = nil + elseif c == "X" then -- Force REX.W. + rex = 8 + elseif c == "r" then -- Merge 1st operand regno. into opcode. + addin = args[1]; opcode = opcode + (addin.reg % 8) + if narg < 2 then narg = 2 end + elseif c == "R" then -- Merge 2nd operand regno. into opcode. + addin = args[2]; opcode = opcode + (addin.reg % 8) + narg = 3 + elseif c == "m" or c == "M" then -- Encode ModRM/SIB. + local s + if addin then + s = addin.reg + opcode = opcode - band(s, 7) -- Undo regno opcode merge. + else + s = band(opcode, 15) -- Undo last digit. + opcode = shr(opcode, 4) + end + local nn = c == "m" and 1 or 2 + local t = args[nn] + if narg <= nn then narg = nn + 1 end + if szov == "q" and rex == 0 then rex = rex + 8 end + if t.reg and t.reg > 7 then rex = rex + 1 end + if t.xreg and t.xreg > 7 then rex = rex + 2 end + if s > 7 then rex = rex + 4 end + if needrex then rex = rex + 16 end + wputop(szov, opcode, rex); opcode = nil + local imark = sub(pat, -1) -- Force a mark (ugly). + -- Put ModRM/SIB with regno/last digit as spare. + wputmrmsib(t, imark, s, addin and addin.vreg) + addin = nil + else + if opcode then -- Flush opcode. + if szov == "q" and rex == 0 then rex = rex + 8 end + if needrex then rex = rex + 16 end + if addin and addin.reg == -1 then + wputop(szov, opcode - 7, rex) + waction("VREG", addin.vreg); wputxb(0) + else + if addin and addin.reg > 7 then rex = rex + 1 end + wputop(szov, opcode, rex) + end + opcode = nil + end + if c == "|" then break end + if c == "o" then -- Offset (pure 32 bit displacement). + wputdarg(args[1].disp); if narg < 2 then narg = 2 end + elseif c == "O" then + wputdarg(args[2].disp); narg = 3 + else + -- Anything else is an immediate operand. + local a = args[narg] + narg = narg + 1 + local mode, imm = a.mode, a.imm + if mode == "iJ" and not match("iIJ", c) then + werror("bad operand size for label") + end + if c == "S" then + wputsbarg(imm) + elseif c == "U" then + wputbarg(imm) + elseif c == "W" then + wputwarg(imm) + elseif c == "i" or c == "I" then + if mode == "iJ" then + wputlabel("IMM_", imm, 1) + elseif mode == "iI" and c == "I" then + waction(sz == "w" and "IMM_WB" or "IMM_DB", imm) + else + wputszarg(sz, imm) + end + elseif c == "J" then + if mode == "iPJ" then + waction("REL_A", imm) -- !x64 (secpos) + else + wputlabel("REL_", imm, 2) + end + else + werror("bad char `"..c.."' in pattern `"..pat.."' for `"..op.."'") + end + end + end + end +end + +------------------------------------------------------------------------------ + +-- Mapping of operand modes to short names. Suppress output with '#'. +local map_modename = { + r = "reg", R = "eax", C = "cl", x = "mem", m = "mrm", i = "imm", + f = "stx", F = "st0", J = "lbl", ["1"] = "1", + I = "#", S = "#", O = "#", +} + +-- Return a table/string showing all possible operand modes. +local function templatehelp(template, nparams) + if nparams == 0 then return "" end + local t = {} + for tm in gmatch(template, "[^%|]+") do + local s = map_modename[sub(tm, 1, 1)] + s = s..gsub(sub(tm, 2, nparams), ".", function(c) + return ", "..map_modename[c] + end) + if not match(s, "#") then t[#t+1] = s end + end + return t +end + +-- Match operand modes against mode match part of template. +local function matchtm(tm, args) + for i=1,#args do + if not match(args[i].mode, sub(tm, i, i)) then return end + end + return true +end + +-- Handle opcodes defined with template strings. +map_op[".template__"] = function(params, template, nparams) + if not params then return templatehelp(template, nparams) end + local args = {} + + -- Zero-operand opcodes have no match part. + if #params == 0 then + dopattern(template, args, "d", params.op, nil) + return + end + + -- Determine common operand size (coerce undefined size) or flag as mixed. + local sz, szmix, needrex + for i,p in ipairs(params) do + args[i] = parseoperand(p) + local nsz = args[i].opsize + if nsz then + if sz and sz ~= nsz then szmix = true else sz = nsz end + end + local nrex = args[i].needrex + if nrex ~= nil then + if needrex == nil then + needrex = nrex + elseif needrex ~= nrex then + werror("bad mix of byte-addressable registers") + end + end + end + + -- Try all match:pattern pairs (separated by '|'). + local gotmatch, lastpat + for tm in gmatch(template, "[^%|]+") do + -- Split off size match (starts after mode match) and pattern string. + local szm, pat = match(tm, "^(.-):(.*)$", #args+1) + if pat == "" then pat = lastpat else lastpat = pat end + if matchtm(tm, args) then + local prefix = sub(szm, 1, 1) + if prefix == "/" then -- Match both operand sizes. + if args[1].opsize == sub(szm, 2, 2) and + args[2].opsize == sub(szm, 3, 3) then + dopattern(pat, args, sz, params.op, needrex) -- Process pattern. + return + end + else -- Match common operand size. + local szp = sz + if szm == "" then szm = x64 and "qdwb" or "dwb" end -- Default sizes. + if prefix == "1" then szp = args[1].opsize; szmix = nil + elseif prefix == "2" then szp = args[2].opsize; szmix = nil end + if not szmix and (prefix == "." or match(szm, szp or "#")) then + dopattern(pat, args, szp, params.op, needrex) -- Process pattern. + return + end + end + gotmatch = true + end + end + + local msg = "bad operand mode" + if gotmatch then + if szmix then + msg = "mixed operand size" + else + msg = sz and "bad operand size" or "missing operand size" + end + end + + werror(msg.." in `"..opmodestr(params.op, args).."'") +end + +------------------------------------------------------------------------------ + +-- x64-specific opcode for 64 bit immediates and displacements. +if x64 then + function map_op.mov64_2(params) + if not params then return { "reg, imm", "reg, [disp]", "[disp], reg" } end + if secpos+2 > maxsecpos then wflush() end + local opcode, op64, sz, rex, vreg + local op64 = match(params[1], "^%[%s*(.-)%s*%]$") + if op64 then + local a = parseoperand(params[2]) + if a.mode ~= "rmR" then werror("bad operand mode") end + sz = a.opsize + rex = sz == "q" and 8 or 0 + opcode = 0xa3 + else + op64 = match(params[2], "^%[%s*(.-)%s*%]$") + local a = parseoperand(params[1]) + if op64 then + if a.mode ~= "rmR" then werror("bad operand mode") end + sz = a.opsize + rex = sz == "q" and 8 or 0 + opcode = 0xa1 + else + if sub(a.mode, 1, 1) ~= "r" or a.opsize ~= "q" then + werror("bad operand mode") + end + op64 = params[2] + if a.reg == -1 then + vreg = a.vreg + opcode = 0xb8 + else + opcode = 0xb8 + band(a.reg, 7) + end + rex = a.reg > 7 and 9 or 8 + end + end + wputop(sz, opcode, rex) + if vreg then waction("VREG", vreg); wputxb(0) end + waction("IMM_D", format("(unsigned int)(%s)", op64)) + waction("IMM_D", format("(unsigned int)((%s)>>32)", op64)) + end +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +local function op_data(params) + if not params then return "imm..." end + local sz = sub(params.op, 2, 2) + if sz == "a" then sz = addrsize end + for _,p in ipairs(params) do + local a = parseoperand(p) + if sub(a.mode, 1, 1) ~= "i" or (a.opsize and a.opsize ~= sz) then + werror("bad mode or size in `"..p.."'") + end + if a.mode == "iJ" then + wputlabel("IMM_", a.imm, 1) + else + wputszarg(sz, a.imm) + end + if secpos+2 > maxsecpos then wflush() end + end +end + +map_op[".byte_*"] = op_data +map_op[".sbyte_*"] = op_data +map_op[".word_*"] = op_data +map_op[".dword_*"] = op_data +map_op[".aword_*"] = op_data + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +-- Pseudo-opcode to mark the position where the global names are to be emitted. +map_op[".globalnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobalnames(out, name) end) +end + +-- Pseudo-opcode to mark the position where the extern names are to be emitted. +map_op[".externnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeexternnames(out, name) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_2"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr [, addr]" end + if secpos+2 > maxsecpos then wflush() end + local a = parseoperand(params[1]) + local mode, imm = a.mode, a.imm + if type(imm) == "number" and (mode == "iJ" or (imm >= 1 and imm <= 9)) then + -- Local label (1: ... 9:) or global label (->global:). + waction("LABEL_LG", nil, 1) + wputxb(imm) + elseif mode == "iJ" then + -- PC label (=>pcexpr:). + waction("LABEL_PC", imm) + else + werror("bad label definition") + end + -- SETLABEL must immediately follow LABEL_LG/LABEL_PC. + local addr = params[2] + if addr then + local a = parseoperand(addr) + if a.mode == "iPJ" then + waction("SETLABEL", a.imm) + else + werror("bad label assignment") + end + end +end +map_op[".label_1"] = map_op[".label_2"] + +------------------------------------------------------------------------------ + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + if secpos+1 > maxsecpos then wflush() end + local align = tonumber(params[1]) or map_opsizenum[map_opsize[params[1]]] + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", nil, 1) + wputxb(align-1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +-- Spacing pseudo-opcode. +map_op[".space_2"] = function(params) + if not params then return "num [, filler]" end + if secpos+1 > maxsecpos then wflush() end + waction("SPACE", params[1]) + local fill = params[2] + if fill then + fill = tonumber(fill) + if not fill or fill < 0 or fill > 255 then werror("bad filler") end + end + wputxb(fill or 0) +end +map_op[".space_1"] = map_op[".space_2"] + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + if reg and not map_reg_valid_base[reg] then + werror("bad base register `"..(map_reg_rev[reg] or reg).."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg and map_reg_rev[tp.reg] or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION") + wputxb(num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpregs(out) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) + dumpexterns(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/dynasm/dynasm.lua b/src/3rd party/luajit-2.0/dynasm/dynasm.lua new file mode 100644 index 00000000000..fffda7513c8 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dynasm.lua @@ -0,0 +1,1094 @@ +------------------------------------------------------------------------------ +-- DynASM. A dynamic assembler for code generation engines. +-- Originally designed and implemented for LuaJIT. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See below for full copyright notice. +------------------------------------------------------------------------------ + +-- Application information. +local _info = { + name = "DynASM", + description = "A dynamic assembler for code generation engines", + version = "1.3.0", + vernum = 10300, + release = "2011-05-05", + author = "Mike Pall", + url = "http://luajit.org/dynasm.html", + license = "MIT", + copyright = [[ +Copyright (C) 2005-2015 Mike Pall. All rights reserved. + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +[ MIT license: http://www.opensource.org/licenses/mit-license.php ] +]], +} + +-- Cache library functions. +local type, pairs, ipairs = type, pairs, ipairs +local pcall, error, assert = pcall, error, assert +local _s = string +local sub, match, gmatch, gsub = _s.sub, _s.match, _s.gmatch, _s.gsub +local format, rep, upper = _s.format, _s.rep, _s.upper +local _t = table +local insert, remove, concat, sort = _t.insert, _t.remove, _t.concat, _t.sort +local exit = os.exit +local io = io +local stdin, stdout, stderr = io.stdin, io.stdout, io.stderr + +------------------------------------------------------------------------------ + +-- Program options. +local g_opt = {} + +-- Global state for current file. +local g_fname, g_curline, g_indent, g_lineno, g_synclineno, g_arch +local g_errcount = 0 + +-- Write buffer for output file. +local g_wbuffer, g_capbuffer + +------------------------------------------------------------------------------ + +-- Write an output line (or callback function) to the buffer. +local function wline(line, needindent) + local buf = g_capbuffer or g_wbuffer + buf[#buf+1] = needindent and g_indent..line or line + g_synclineno = g_synclineno + 1 +end + +-- Write assembler line as a comment, if requestd. +local function wcomment(aline) + if g_opt.comment then + wline(g_opt.comment..aline..g_opt.endcomment, true) + end +end + +-- Resync CPP line numbers. +local function wsync() + if g_synclineno ~= g_lineno and g_opt.cpp then + wline("#line "..g_lineno..' "'..g_fname..'"') + g_synclineno = g_lineno + end +end + +-- Dummy action flush function. Replaced with arch-specific function later. +local function wflush(term) +end + +-- Dump all buffered output lines. +local function wdumplines(out, buf) + for _,line in ipairs(buf) do + if type(line) == "string" then + assert(out:write(line, "\n")) + else + -- Special callback to dynamically insert lines after end of processing. + line(out) + end + end +end + +------------------------------------------------------------------------------ + +-- Emit an error. Processing continues with next statement. +local function werror(msg) + error(format("%s:%s: error: %s:\n%s", g_fname, g_lineno, msg, g_curline), 0) +end + +-- Emit a fatal error. Processing stops. +local function wfatal(msg) + g_errcount = "fatal" + werror(msg) +end + +-- Print a warning. Processing continues. +local function wwarn(msg) + stderr:write(format("%s:%s: warning: %s:\n%s\n", + g_fname, g_lineno, msg, g_curline)) +end + +-- Print caught error message. But suppress excessive errors. +local function wprinterr(...) + if type(g_errcount) == "number" then + -- Regular error. + g_errcount = g_errcount + 1 + if g_errcount < 21 then -- Seems to be a reasonable limit. + stderr:write(...) + elseif g_errcount == 21 then + stderr:write(g_fname, + ":*: warning: too many errors (suppressed further messages).\n") + end + else + -- Fatal error. + stderr:write(...) + return true -- Stop processing. + end +end + +------------------------------------------------------------------------------ + +-- Map holding all option handlers. +local opt_map = {} +local opt_current + +-- Print error and exit with error status. +local function opterror(...) + stderr:write("dynasm.lua: ERROR: ", ...) + stderr:write("\n") + exit(1) +end + +-- Get option parameter. +local function optparam(args) + local argn = args.argn + local p = args[argn] + if not p then + opterror("missing parameter for option `", opt_current, "'.") + end + args.argn = argn + 1 + return p +end + +------------------------------------------------------------------------------ + +-- Core pseudo-opcodes. +local map_coreop = {} +-- Dummy opcode map. Replaced by arch-specific map. +local map_op = {} + +-- Forward declarations. +local dostmt +local readfile + +------------------------------------------------------------------------------ + +-- Map for defines (initially empty, chains to arch-specific map). +local map_def = {} + +-- Pseudo-opcode to define a substitution. +map_coreop[".define_2"] = function(params, nparams) + if not params then return nparams == 1 and "name" or "name, subst" end + local name, def = params[1], params[2] or "1" + if not match(name, "^[%a_][%w_]*$") then werror("bad or duplicate define") end + map_def[name] = def +end +map_coreop[".define_1"] = map_coreop[".define_2"] + +-- Define a substitution on the command line. +function opt_map.D(args) + local namesubst = optparam(args) + local name, subst = match(namesubst, "^([%a_][%w_]*)=(.*)$") + if name then + map_def[name] = subst + elseif match(namesubst, "^[%a_][%w_]*$") then + map_def[namesubst] = "1" + else + opterror("bad define") + end +end + +-- Undefine a substitution on the command line. +function opt_map.U(args) + local name = optparam(args) + if match(name, "^[%a_][%w_]*$") then + map_def[name] = nil + else + opterror("bad define") + end +end + +-- Helper for definesubst. +local gotsubst + +local function definesubst_one(word) + local subst = map_def[word] + if subst then gotsubst = word; return subst else return word end +end + +-- Iteratively substitute defines. +local function definesubst(stmt) + -- Limit number of iterations. + for i=1,100 do + gotsubst = false + stmt = gsub(stmt, "#?[%w_]+", definesubst_one) + if not gotsubst then break end + end + if gotsubst then wfatal("recursive define involving `"..gotsubst.."'") end + return stmt +end + +-- Dump all defines. +local function dumpdefines(out, lvl) + local t = {} + for name in pairs(map_def) do + t[#t+1] = name + end + sort(t) + out:write("Defines:\n") + for _,name in ipairs(t) do + local subst = map_def[name] + if g_arch then subst = g_arch.revdef(subst) end + out:write(format(" %-20s %s\n", name, subst)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Support variables for conditional assembly. +local condlevel = 0 +local condstack = {} + +-- Evaluate condition with a Lua expression. Substitutions already performed. +local function cond_eval(cond) + local func, err + if setfenv then + func, err = loadstring("return "..cond, "=expr") + else + -- No globals. All unknown identifiers evaluate to nil. + func, err = load("return "..cond, "=expr", "t", {}) + end + if func then + if setfenv then + setfenv(func, {}) -- No globals. All unknown identifiers evaluate to nil. + end + local ok, res = pcall(func) + if ok then + if res == 0 then return false end -- Oh well. + return not not res + end + err = res + end + wfatal("bad condition: "..err) +end + +-- Skip statements until next conditional pseudo-opcode at the same level. +local function stmtskip() + local dostmt_save = dostmt + local lvl = 0 + dostmt = function(stmt) + local op = match(stmt, "^%s*(%S+)") + if op == ".if" then + lvl = lvl + 1 + elseif lvl ~= 0 then + if op == ".endif" then lvl = lvl - 1 end + elseif op == ".elif" or op == ".else" or op == ".endif" then + dostmt = dostmt_save + dostmt(stmt) + end + end +end + +-- Pseudo-opcodes for conditional assembly. +map_coreop[".if_1"] = function(params) + if not params then return "condition" end + local lvl = condlevel + 1 + local res = cond_eval(params[1]) + condlevel = lvl + condstack[lvl] = res + if not res then stmtskip() end +end + +map_coreop[".elif_1"] = function(params) + if not params then return "condition" end + if condlevel == 0 then wfatal(".elif without .if") end + local lvl = condlevel + local res = condstack[lvl] + if res then + if res == "else" then wfatal(".elif after .else") end + else + res = cond_eval(params[1]) + if res then + condstack[lvl] = res + return + end + end + stmtskip() +end + +map_coreop[".else_0"] = function(params) + if condlevel == 0 then wfatal(".else without .if") end + local lvl = condlevel + local res = condstack[lvl] + condstack[lvl] = "else" + if res then + if res == "else" then wfatal(".else after .else") end + stmtskip() + end +end + +map_coreop[".endif_0"] = function(params) + local lvl = condlevel + if lvl == 0 then wfatal(".endif without .if") end + condlevel = lvl - 1 +end + +-- Check for unfinished conditionals. +local function checkconds() + if g_errcount ~= "fatal" and condlevel ~= 0 then + wprinterr(g_fname, ":*: error: unbalanced conditional\n") + end +end + +------------------------------------------------------------------------------ + +-- Search for a file in the given path and open it for reading. +local function pathopen(path, name) + local dirsep = package and match(package.path, "\\") and "\\" or "/" + for _,p in ipairs(path) do + local fullname = p == "" and name or p..dirsep..name + local fin = io.open(fullname, "r") + if fin then + g_fname = fullname + return fin + end + end +end + +-- Include a file. +map_coreop[".include_1"] = function(params) + if not params then return "filename" end + local name = params[1] + -- Save state. Ugly, I know. but upvalues are fast. + local gf, gl, gcl, gi = g_fname, g_lineno, g_curline, g_indent + -- Read the included file. + local fatal = readfile(pathopen(g_opt.include, name) or + wfatal("include file `"..name.."' not found")) + -- Restore state. + g_synclineno = -1 + g_fname, g_lineno, g_curline, g_indent = gf, gl, gcl, gi + if fatal then wfatal("in include file") end +end + +-- Make .include and conditionals initially available, too. +map_op[".include_1"] = map_coreop[".include_1"] +map_op[".if_1"] = map_coreop[".if_1"] +map_op[".elif_1"] = map_coreop[".elif_1"] +map_op[".else_0"] = map_coreop[".else_0"] +map_op[".endif_0"] = map_coreop[".endif_0"] + +------------------------------------------------------------------------------ + +-- Support variables for macros. +local mac_capture, mac_lineno, mac_name +local mac_active = {} +local mac_list = {} + +-- Pseudo-opcode to define a macro. +map_coreop[".macro_*"] = function(mparams) + if not mparams then return "name [, params...]" end + -- Split off and validate macro name. + local name = remove(mparams, 1) + if not name then werror("missing macro name") end + if not (match(name, "^[%a_][%w_%.]*$") or match(name, "^%.[%w_%.]*$")) then + wfatal("bad macro name `"..name.."'") + end + -- Validate macro parameter names. + local mdup = {} + for _,mp in ipairs(mparams) do + if not match(mp, "^[%a_][%w_]*$") then + wfatal("bad macro parameter name `"..mp.."'") + end + if mdup[mp] then wfatal("duplicate macro parameter name `"..mp.."'") end + mdup[mp] = true + end + -- Check for duplicate or recursive macro definitions. + local opname = name.."_"..#mparams + if map_op[opname] or map_op[name.."_*"] then + wfatal("duplicate macro `"..name.."' ("..#mparams.." parameters)") + end + if mac_capture then wfatal("recursive macro definition") end + + -- Enable statement capture. + local lines = {} + mac_lineno = g_lineno + mac_name = name + mac_capture = function(stmt) -- Statement capture function. + -- Stop macro definition with .endmacro pseudo-opcode. + if not match(stmt, "^%s*.endmacro%s*$") then + lines[#lines+1] = stmt + return + end + mac_capture = nil + mac_lineno = nil + mac_name = nil + mac_list[#mac_list+1] = opname + -- Add macro-op definition. + map_op[opname] = function(params) + if not params then return mparams, lines end + -- Protect against recursive macro invocation. + if mac_active[opname] then wfatal("recursive macro invocation") end + mac_active[opname] = true + -- Setup substitution map. + local subst = {} + for i,mp in ipairs(mparams) do subst[mp] = params[i] end + local mcom + if g_opt.maccomment and g_opt.comment then + mcom = " MACRO "..name.." ("..#mparams..")" + wcomment("{"..mcom) + end + -- Loop through all captured statements + for _,stmt in ipairs(lines) do + -- Substitute macro parameters. + local st = gsub(stmt, "[%w_]+", subst) + st = definesubst(st) + st = gsub(st, "%s*%.%.%s*", "") -- Token paste a..b. + if mcom and sub(st, 1, 1) ~= "|" then wcomment(st) end + -- Emit statement. Use a protected call for better diagnostics. + local ok, err = pcall(dostmt, st) + if not ok then + -- Add the captured statement to the error. + wprinterr(err, "\n", g_indent, "| ", stmt, + "\t[MACRO ", name, " (", #mparams, ")]\n") + end + end + if mcom then wcomment("}"..mcom) end + mac_active[opname] = nil + end + end +end + +-- An .endmacro pseudo-opcode outside of a macro definition is an error. +map_coreop[".endmacro_0"] = function(params) + wfatal(".endmacro without .macro") +end + +-- Dump all macros and their contents (with -PP only). +local function dumpmacros(out, lvl) + sort(mac_list) + out:write("Macros:\n") + for _,opname in ipairs(mac_list) do + local name = sub(opname, 1, -3) + local params, lines = map_op[opname]() + out:write(format(" %-20s %s\n", name, concat(params, ", "))) + if lvl > 1 then + for _,line in ipairs(lines) do + out:write(" |", line, "\n") + end + out:write("\n") + end + end + out:write("\n") +end + +-- Check for unfinished macro definitions. +local function checkmacros() + if mac_capture then + wprinterr(g_fname, ":", mac_lineno, + ": error: unfinished .macro `", mac_name ,"'\n") + end +end + +------------------------------------------------------------------------------ + +-- Support variables for captures. +local cap_lineno, cap_name +local cap_buffers = {} +local cap_used = {} + +-- Start a capture. +map_coreop[".capture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + if cap_name then + wfatal("already capturing to `"..cap_name.."' since line "..cap_lineno) + end + cap_name = name + cap_lineno = g_lineno + -- Create or continue a capture buffer and start the output line capture. + local buf = cap_buffers[name] + if not buf then buf = {}; cap_buffers[name] = buf end + g_capbuffer = buf + g_synclineno = 0 +end + +-- Stop a capture. +map_coreop[".endcapture_0"] = function(params) + wflush() + if not cap_name then wfatal(".endcapture without a valid .capture") end + cap_name = nil + cap_lineno = nil + g_capbuffer = nil + g_synclineno = 0 +end + +-- Dump a capture buffer. +map_coreop[".dumpcapture_1"] = function(params) + if not params then return "name" end + wflush() + local name = params[1] + if not match(name, "^[%a_][%w_]*$") then + wfatal("bad capture name `"..name.."'") + end + cap_used[name] = true + wline(function(out) + local buf = cap_buffers[name] + if buf then wdumplines(out, buf) end + end) + g_synclineno = 0 +end + +-- Dump all captures and their buffers (with -PP only). +local function dumpcaptures(out, lvl) + out:write("Captures:\n") + for name,buf in pairs(cap_buffers) do + out:write(format(" %-20s %4s)\n", name, "("..#buf)) + if lvl > 1 then + local bar = rep("=", 76) + out:write(" ", bar, "\n") + for _,line in ipairs(buf) do + out:write(" ", line, "\n") + end + out:write(" ", bar, "\n\n") + end + end + out:write("\n") +end + +-- Check for unfinished or unused captures. +local function checkcaptures() + if cap_name then + wprinterr(g_fname, ":", cap_lineno, + ": error: unfinished .capture `", cap_name,"'\n") + return + end + for name in pairs(cap_buffers) do + if not cap_used[name] then + wprinterr(g_fname, ":*: error: missing .dumpcapture ", name ,"\n") + end + end +end + +------------------------------------------------------------------------------ + +-- Sections names. +local map_sections = {} + +-- Pseudo-opcode to define code sections. +-- TODO: Data sections, BSS sections. Needs extra C code and API. +map_coreop[".section_*"] = function(params) + if not params then return "name..." end + if #map_sections > 0 then werror("duplicate section definition") end + wflush() + for sn,name in ipairs(params) do + local opname = "."..name.."_0" + if not match(name, "^[%a][%w_]*$") or + map_op[opname] or map_op["."..name.."_*"] then + werror("bad section name `"..name.."'") + end + map_sections[#map_sections+1] = name + wline(format("#define DASM_SECTION_%s\t%d", upper(name), sn-1)) + map_op[opname] = function(params) g_arch.section(sn-1) end + end + wline(format("#define DASM_MAXSECTION\t\t%d", #map_sections)) +end + +-- Dump all sections. +local function dumpsections(out, lvl) + out:write("Sections:\n") + for _,name in ipairs(map_sections) do + out:write(format(" %s\n", name)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Replacement for customized Lua, which lacks the package library. +local prefix = "" +if not require then + function require(name) + local fp = assert(io.open(prefix..name..".lua")) + local s = fp:read("*a") + assert(fp:close()) + return assert(loadstring(s, "@"..name..".lua"))() + end +end + +-- Load architecture-specific module. +local function loadarch(arch) + if not match(arch, "^[%w_]+$") then return "bad arch name" end + local ok, m_arch = pcall(require, "dasm_"..arch) + if not ok then return "cannot load module: "..m_arch end + g_arch = m_arch + wflush = m_arch.passcb(wline, werror, wfatal, wwarn) + m_arch.setup(arch, g_opt) + map_op, map_def = m_arch.mergemaps(map_coreop, map_def) +end + +-- Dump architecture description. +function opt_map.dumparch(args) + local name = optparam(args) + if not g_arch then + local err = loadarch(name) + if err then opterror(err) end + end + + local t = {} + for name in pairs(map_coreop) do t[#t+1] = name end + for name in pairs(map_op) do t[#t+1] = name end + sort(t) + + local out = stdout + local _arch = g_arch._info + out:write(format("%s version %s, released %s, %s\n", + _info.name, _info.version, _info.release, _info.url)) + g_arch.dumparch(out) + + local pseudo = true + out:write("Pseudo-Opcodes:\n") + for _,sname in ipairs(t) do + local name, nparam = match(sname, "^(.+)_([0-9%*])$") + if name then + if pseudo and sub(name, 1, 1) ~= "." then + out:write("\nOpcodes:\n") + pseudo = false + end + local f = map_op[sname] + local s + if nparam ~= "*" then nparam = nparam + 0 end + if nparam == 0 then + s = "" + elseif type(f) == "string" then + s = map_op[".template__"](nil, f, nparam) + else + s = f(nil, nparam) + end + if type(s) == "table" then + for _,s2 in ipairs(s) do + out:write(format(" %-12s %s\n", name, s2)) + end + else + out:write(format(" %-12s %s\n", name, s)) + end + end + end + out:write("\n") + exit(0) +end + +-- Pseudo-opcode to set the architecture. +-- Only initially available (map_op is replaced when called). +map_op[".arch_1"] = function(params) + if not params then return "name" end + local err = loadarch(params[1]) + if err then wfatal(err) end + wline(format("#if DASM_VERSION != %d", _info.vernum)) + wline('#error "Version mismatch between DynASM and included encoding engine"') + wline("#endif") +end + +-- Dummy .arch pseudo-opcode to improve the error report. +map_coreop[".arch_1"] = function(params) + if not params then return "name" end + wfatal("duplicate .arch statement") +end + +------------------------------------------------------------------------------ + +-- Dummy pseudo-opcode. Don't confuse '.nop' with 'nop'. +map_coreop[".nop_*"] = function(params) + if not params then return "[ignored...]" end +end + +-- Pseudo-opcodes to raise errors. +map_coreop[".error_1"] = function(params) + if not params then return "message" end + werror(params[1]) +end + +map_coreop[".fatal_1"] = function(params) + if not params then return "message" end + wfatal(params[1]) +end + +-- Dump all user defined elements. +local function dumpdef(out) + local lvl = g_opt.dumpdef + if lvl == 0 then return end + dumpsections(out, lvl) + dumpdefines(out, lvl) + if g_arch then g_arch.dumpdef(out, lvl) end + dumpmacros(out, lvl) + dumpcaptures(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Helper for splitstmt. +local splitlvl + +local function splitstmt_one(c) + if c == "(" then + splitlvl = ")"..splitlvl + elseif c == "[" then + splitlvl = "]"..splitlvl + elseif c == "{" then + splitlvl = "}"..splitlvl + elseif c == ")" or c == "]" or c == "}" then + if sub(splitlvl, 1, 1) ~= c then werror("unbalanced (), [] or {}") end + splitlvl = sub(splitlvl, 2) + elseif splitlvl == "" then + return " \0 " + end + return c +end + +-- Split statement into (pseudo-)opcode and params. +local function splitstmt(stmt) + -- Convert label with trailing-colon into .label statement. + local label = match(stmt, "^%s*(.+):%s*$") + if label then return ".label", {label} end + + -- Split at commas and equal signs, but obey parentheses and brackets. + splitlvl = "" + stmt = gsub(stmt, "[,%(%)%[%]{}]", splitstmt_one) + if splitlvl ~= "" then werror("unbalanced () or []") end + + -- Split off opcode. + local op, other = match(stmt, "^%s*([^%s%z]+)%s*(.*)$") + if not op then werror("bad statement syntax") end + + -- Split parameters. + local params = {} + for p in gmatch(other, "%s*(%Z+)%z?") do + params[#params+1] = gsub(p, "%s+$", "") + end + if #params > 16 then werror("too many parameters") end + + params.op = op + return op, params +end + +-- Process a single statement. +dostmt = function(stmt) + -- Ignore empty statements. + if match(stmt, "^%s*$") then return end + + -- Capture macro defs before substitution. + if mac_capture then return mac_capture(stmt) end + stmt = definesubst(stmt) + + -- Emit C code without parsing the line. + if sub(stmt, 1, 1) == "|" then + local tail = sub(stmt, 2) + wflush() + if sub(tail, 1, 2) == "//" then wcomment(tail) else wline(tail, true) end + return + end + + -- Split into (pseudo-)opcode and params. + local op, params = splitstmt(stmt) + + -- Get opcode handler (matching # of parameters or generic handler). + local f = map_op[op.."_"..#params] or map_op[op.."_*"] + if not f then + if not g_arch then wfatal("first statement must be .arch") end + -- Improve error report. + for i=0,9 do + if map_op[op.."_"..i] then + werror("wrong number of parameters for `"..op.."'") + end + end + werror("unknown statement `"..op.."'") + end + + -- Call opcode handler or special handler for template strings. + if type(f) == "string" then + map_op[".template__"](params, f) + else + f(params) + end +end + +-- Process a single line. +local function doline(line) + if g_opt.flushline then wflush() end + + -- Assembler line? + local indent, aline = match(line, "^(%s*)%|(.*)$") + if not aline then + -- No, plain C code line, need to flush first. + wflush() + wsync() + wline(line, false) + return + end + + g_indent = indent -- Remember current line indentation. + + -- Emit C code (even from macros). Avoids echo and line parsing. + if sub(aline, 1, 1) == "|" then + if not mac_capture then + wsync() + elseif g_opt.comment then + wsync() + wcomment(aline) + end + dostmt(aline) + return + end + + -- Echo assembler line as a comment. + if g_opt.comment then + wsync() + wcomment(aline) + end + + -- Strip assembler comments. + aline = gsub(aline, "//.*$", "") + + -- Split line into statements at semicolons. + if match(aline, ";") then + for stmt in gmatch(aline, "[^;]+") do dostmt(stmt) end + else + dostmt(aline) + end +end + +------------------------------------------------------------------------------ + +-- Write DynASM header. +local function dasmhead(out) + out:write(format([[ +/* +** This file has been pre-processed with DynASM. +** %s +** DynASM version %s, DynASM %s version %s +** DO NOT EDIT! The original file is in "%s". +*/ + +]], _info.url, + _info.version, g_arch._info.arch, g_arch._info.version, + g_fname)) +end + +-- Read input file. +readfile = function(fin) + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Process all lines. + for line in fin:lines() do + g_lineno = g_lineno + 1 + g_curline = line + local ok, err = pcall(doline, line) + if not ok and wprinterr(err, "\n") then return true end + end + wflush() + + -- Close input file. + assert(fin == stdin or fin:close()) +end + +-- Write output file. +local function writefile(outfile) + local fout + + -- Open output file. + if outfile == nil or outfile == "-" then + fout = stdout + else + fout = assert(io.open(outfile, "w")) + end + + -- Write all buffered lines + wdumplines(fout, g_wbuffer) + + -- Close output file. + assert(fout == stdout or fout:close()) + + -- Optionally dump definitions. + dumpdef(fout == stdout and stderr or stdout) +end + +-- Translate an input file to an output file. +local function translate(infile, outfile) + g_wbuffer = {} + g_indent = "" + g_lineno = 0 + g_synclineno = -1 + + -- Put header. + wline(dasmhead) + + -- Read input file. + local fin + if infile == "-" then + g_fname = "(stdin)" + fin = stdin + else + g_fname = infile + fin = assert(io.open(infile, "r")) + end + readfile(fin) + + -- Check for errors. + if not g_arch then + wprinterr(g_fname, ":*: error: missing .arch directive\n") + end + checkconds() + checkmacros() + checkcaptures() + + if g_errcount ~= 0 then + stderr:write(g_fname, ":*: info: ", g_errcount, " error", + (type(g_errcount) == "number" and g_errcount > 1) and "s" or "", + " in input file -- no output file generated.\n") + dumpdef(stderr) + exit(1) + end + + -- Write output file. + writefile(outfile) +end + +------------------------------------------------------------------------------ + +-- Print help text. +function opt_map.help() + stdout:write("DynASM -- ", _info.description, ".\n") + stdout:write("DynASM ", _info.version, " ", _info.release, " ", _info.url, "\n") + stdout:write[[ + +Usage: dynasm [OPTION]... INFILE.dasc|- + + -h, --help Display this help text. + -V, --version Display version and copyright information. + + -o, --outfile FILE Output file name (default is stdout). + -I, --include DIR Add directory to the include search path. + + -c, --ccomment Use /* */ comments for assembler lines. + -C, --cppcomment Use // comments for assembler lines (default). + -N, --nocomment Suppress assembler lines in output. + -M, --maccomment Show macro expansions as comments (default off). + + -L, --nolineno Suppress CPP line number information in output. + -F, --flushline Flush action list for every line. + + -D NAME[=SUBST] Define a substitution. + -U NAME Undefine a substitution. + + -P, --dumpdef Dump defines, macros, etc. Repeat for more output. + -A, --dumparch ARCH Load architecture ARCH and dump description. +]] + exit(0) +end + +-- Print version information. +function opt_map.version() + stdout:write(format("%s version %s, released %s\n%s\n\n%s", + _info.name, _info.version, _info.release, _info.url, _info.copyright)) + exit(0) +end + +-- Misc. options. +function opt_map.outfile(args) g_opt.outfile = optparam(args) end +function opt_map.include(args) insert(g_opt.include, 1, optparam(args)) end +function opt_map.ccomment() g_opt.comment = "/*|"; g_opt.endcomment = " */" end +function opt_map.cppcomment() g_opt.comment = "//|"; g_opt.endcomment = "" end +function opt_map.nocomment() g_opt.comment = false end +function opt_map.maccomment() g_opt.maccomment = true end +function opt_map.nolineno() g_opt.cpp = false end +function opt_map.flushline() g_opt.flushline = true end +function opt_map.dumpdef() g_opt.dumpdef = g_opt.dumpdef + 1 end + +------------------------------------------------------------------------------ + +-- Short aliases for long options. +local opt_alias = { + h = "help", ["?"] = "help", V = "version", + o = "outfile", I = "include", + c = "ccomment", C = "cppcomment", N = "nocomment", M = "maccomment", + L = "nolineno", F = "flushline", + P = "dumpdef", A = "dumparch", +} + +-- Parse single option. +local function parseopt(opt, args) + opt_current = #opt == 1 and "-"..opt or "--"..opt + local f = opt_map[opt] or opt_map[opt_alias[opt]] + if not f then + opterror("unrecognized option `", opt_current, "'. Try `--help'.\n") + end + f(args) +end + +-- Parse arguments. +local function parseargs(args) + -- Default options. + g_opt.comment = "//|" + g_opt.endcomment = "" + g_opt.cpp = true + g_opt.dumpdef = 0 + g_opt.include = { "" } + + -- Process all option arguments. + args.argn = 1 + repeat + local a = args[args.argn] + if not a then break end + local lopt, opt = match(a, "^%-(%-?)(.+)") + if not opt then break end + args.argn = args.argn + 1 + if lopt == "" then + -- Loop through short options. + for o in gmatch(opt, ".") do parseopt(o, args) end + else + -- Long option. + parseopt(opt, args) + end + until false + + -- Check for proper number of arguments. + local nargs = #args - args.argn + 1 + if nargs ~= 1 then + if nargs == 0 then + if g_opt.dumpdef > 0 then return dumpdef(stdout) end + end + opt_map.help() + end + + -- Translate a single input file to a single output file + -- TODO: Handle multiple files? + translate(args[args.argn], g_opt.outfile) +end + +------------------------------------------------------------------------------ + +-- Add the directory dynasm.lua resides in to the Lua module search path. +local arg = arg +if arg and arg[0] then + prefix = match(arg[0], "^(.*[/\\])") + if package and prefix then package.path = prefix.."?.lua;"..package.path end +end + +-- Start DynASM. +parseargs{...} + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/etc/luajit.1 b/src/3rd party/luajit-2.0/etc/luajit.1 new file mode 100644 index 00000000000..fd38b0a92c7 --- /dev/null +++ b/src/3rd party/luajit-2.0/etc/luajit.1 @@ -0,0 +1,88 @@ +.TH luajit 1 "" "" "LuaJIT documentation" +.SH NAME +luajit \- Just-In-Time Compiler for the Lua Language +\fB +.SH SYNOPSIS +.B luajit +[\fIoptions\fR]... [\fIscript\fR [\fIargs\fR]...] +.SH "WEB SITE" +.IR http://luajit.org +.SH DESCRIPTION +.PP +This is the command-line program to run Lua programs with \fBLuaJIT\fR. +.PP +\fBLuaJIT\fR is a just-in-time (JIT) compiler for the Lua language. +The virtual machine (VM) is based on a fast interpreter combined with +a trace compiler. It can significantly improve the performance of Lua programs. +.PP +\fBLuaJIT\fR is API\- and ABI-compatible with the VM of the standard +Lua\ 5.1 interpreter. When embedding the VM into an application, +the built library can be used as a drop-in replacement. +.SH OPTIONS +.TP +.BI "\-e " chunk +Run the given chunk of Lua code. +.TP +.BI "\-l " library +Load the named library, just like \fBrequire("\fR\fIlibrary\fR\fB")\fR. +.TP +.BI "\-b " ... +Save or list bytecode. Run without arguments to get help on options. +.TP +.BI "\-j " command +Perform LuaJIT control command (optional space after \fB\-j\fR). +.TP +.BI "\-O" [opt] +Control LuaJIT optimizations. +.TP +.B "\-i" +Run in interactive mode. +.TP +.B "\-v" +Show \fBLuaJIT\fR version. +.TP +.B "\-E" +Ignore environment variables. +.TP +.B "\-\-" +Stop processing options. +.TP +.B "\-" +Read script from stdin instead. +.PP +After all options are processed, the given \fIscript\fR is run. +The arguments are passed in the global \fIarg\fR table. +.PP +Interactive mode is only entered, if no \fIscript\fR and no \fB\-e\fR +option is given. Interactive mode can be left with EOF (\fICtrl\-Z\fB). +.SH EXAMPLES +.TP +luajit hello.lua world + +Prints "Hello world", assuming \fIhello.lua\fR contains: +.br + print("Hello", arg[1]) +.TP +luajit \-e "local x=0; for i=1,1e9 do x=x+i end; print(x)" + +Calculates the sum of the numbers from 1 to 1000000000. +.br +And finishes in a reasonable amount of time, too. +.TP +luajit \-jv \-e "for i=1,10 do for j=1,10 do for k=1,100 do end end end" + +Runs some nested loops and shows the resulting traces. +.SH COPYRIGHT +.PP +\fBLuaJIT\fR is Copyright \(co 2005-2015 Mike Pall. +.br +\fBLuaJIT\fR is open source software, released under the MIT license. +.SH SEE ALSO +.PP +More details in the provided HTML docs or at: +.IR http://luajit.org +.br +More about the Lua language can be found at: +.IR http://lua.org/docs.html +.PP +lua(1) diff --git a/src/3rd party/luajit-2.0/etc/luajit.pc b/src/3rd party/luajit-2.0/etc/luajit.pc new file mode 100644 index 00000000000..d3f0cf30b42 --- /dev/null +++ b/src/3rd party/luajit-2.0/etc/luajit.pc @@ -0,0 +1,25 @@ +# Package information for LuaJIT to be used by pkg-config. +majver=2 +minver=0 +relver=3 +version=${majver}.${minver}.${relver} +abiver=5.1 + +prefix=/usr/local +multilib=lib +exec_prefix=${prefix} +libdir=${exec_prefix}/${multilib} +libname=luajit-${abiver} +includedir=${prefix}/include/luajit-${majver}.${minver} + +INSTALL_LMOD=${prefix}/share/lua/${abiver} +INSTALL_CMOD=${prefix}/${multilib}/lua/${abiver} + +Name: LuaJIT +Description: Just-in-time compiler for Lua +URL: http://luajit.org +Version: ${version} +Requires: +Libs: -L${libdir} -l${libname} +Libs.private: -Wl,-E -lm -ldl +Cflags: -I${includedir} diff --git a/src/3rd party/luajit-2.0/src/.gitignore b/src/3rd party/luajit-2.0/src/.gitignore new file mode 100644 index 00000000000..fc94e82cc88 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/.gitignore @@ -0,0 +1,7 @@ +luajit +lj_bcdef.h +lj_ffdef.h +lj_libdef.h +lj_recdef.h +lj_folddef.h +lj_vm.s diff --git a/src/3rd party/luajit-2.0/src/Makefile b/src/3rd party/luajit-2.0/src/Makefile new file mode 100644 index 00000000000..33b0a43b12c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/Makefile @@ -0,0 +1,684 @@ +############################################################################## +# LuaJIT Makefile. Requires GNU Make. +# +# Please read doc/install.html before changing any variables! +# +# Suitable for POSIX platforms (Linux, *BSD, OSX etc.). +# Also works with MinGW and Cygwin on Windows. +# Please check msvcbuild.bat for building with MSVC on Windows. +# +# Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +############################################################################## + +MAJVER= 2 +MINVER= 0 +RELVER= 3 +ABIVER= 5.1 +NODOTABIVER= 51 + +############################################################################## +############################# COMPILER OPTIONS ############################# +############################################################################## +# These options mainly affect the speed of the JIT compiler itself, not the +# speed of the JIT-compiled code. Turn any of the optional settings on by +# removing the '#' in front of them. Make sure you force a full recompile +# with "make clean", followed by "make" if you change any options. +# +# LuaJIT builds as a native 32 or 64 bit binary by default. +CC= gcc +# +# Use this if you want to force a 32 bit build on a 64 bit multilib OS. +#CC= gcc -m32 +# +# Since the assembler part does NOT maintain a frame pointer, it's pointless +# to slow down the C part by not omitting it. Debugging, tracebacks and +# unwinding are not affected -- the assembler part has frame unwind +# information and GCC emits it where needed (x64) or with -g (see CCDEBUG). +CCOPT= -O2 -fomit-frame-pointer +# Use this if you want to generate a smaller binary (but it's slower): +#CCOPT= -Os -fomit-frame-pointer +# Note: it's no longer recommended to use -O3 with GCC 4.x. +# The I-Cache bloat usually outweighs the benefits from aggressive inlining. +# +# Target-specific compiler options: +# +# x86 only: it's recommended to compile at least for i686. Better yet, +# compile for an architecture that has SSE2, too (-msse -msse2). +# +# x86/x64 only: For GCC 4.2 or higher and if you don't intend to distribute +# the binaries to a different machine you could also use: -march=native +# +CCOPT_x86= -march=i686 +CCOPT_x64= +CCOPT_arm= +CCOPT_ppc= +CCOPT_ppcspe= +CCOPT_mips= +# +CCDEBUG= +# Uncomment the next line to generate debug information: +#CCDEBUG= -g +# +CCWARN= -Wall +# Uncomment the next line to enable more warnings: +#CCWARN+= -Wextra -Wdeclaration-after-statement -Wredundant-decls -Wshadow -Wpointer-arith +# +############################################################################## + +############################################################################## +################################ BUILD MODE ################################ +############################################################################## +# The default build mode is mixed mode on POSIX. On Windows this is the same +# as dynamic mode. +# +# Mixed mode creates a static + dynamic library and a statically linked luajit. +BUILDMODE= mixed +# +# Static mode creates a static library and a statically linked luajit. +#BUILDMODE= static +# +# Dynamic mode creates a dynamic library and a dynamically linked luajit. +# Note: this executable will only run when the library is installed! +#BUILDMODE= dynamic +# +############################################################################## + +############################################################################## +################################# FEATURES ################################# +############################################################################## +# Enable/disable these features as needed, but make sure you force a full +# recompile with "make clean", followed by "make". +XCFLAGS= +# +# Permanently disable the FFI extension to reduce the size of the LuaJIT +# executable. But please consider that the FFI library is compiled-in, +# but NOT loaded by default. It only allocates any memory, if you actually +# make use of it. +#XCFLAGS+= -DLUAJIT_DISABLE_FFI +# +# Features from Lua 5.2 that are unlikely to break existing code are +# enabled by default. Some other features that *might* break some existing +# code (e.g. __pairs or os.execute() return values) can be enabled here. +# Note: this does not provide full compatibility with Lua 5.2 at this time. +#XCFLAGS+= -DLUAJIT_ENABLE_LUA52COMPAT +# +# Disable the JIT compiler, i.e. turn LuaJIT into a pure interpreter. +#XCFLAGS+= -DLUAJIT_DISABLE_JIT +# +# Some architectures (e.g. PPC) can use either single-number (1) or +# dual-number (2) mode. Uncomment one of these lines to override the +# default mode. Please see LJ_ARCH_NUMMODE in lj_arch.h for details. +#XCFLAGS+= -DLUAJIT_NUMMODE=1 +#XCFLAGS+= -DLUAJIT_NUMMODE=2 +# +############################################################################## + +############################################################################## +############################ DEBUGGING SUPPORT ############################# +############################################################################## +# Enable these options as needed, but make sure you force a full recompile +# with "make clean", followed by "make". +# Note that most of these are NOT suitable for benchmarking or release mode! +# +# Use the system provided memory allocator (realloc) instead of the +# bundled memory allocator. This is slower, but sometimes helpful for +# debugging. This option cannot be enabled on x64, since realloc usually +# doesn't return addresses in the right address range. +# OTOH this option is mandatory for Valgrind's memcheck tool on x64 and +# the only way to get useful results from it for all other architectures. +#XCFLAGS+= -DLUAJIT_USE_SYSMALLOC +# +# This define is required to run LuaJIT under Valgrind. The Valgrind +# header files must be installed. You should enable debug information, too. +# Use --suppressions=lj.supp to avoid some false positives. +#XCFLAGS+= -DLUAJIT_USE_VALGRIND +# +# This is the client for the GDB JIT API. GDB 7.0 or higher is required +# to make use of it. See lj_gdbjit.c for details. Enabling this causes +# a non-negligible overhead, even when not running under GDB. +#XCFLAGS+= -DLUAJIT_USE_GDBJIT +# +# Turn on assertions for the Lua/C API to debug problems with lua_* calls. +# This is rather slow -- use only while developing C libraries/embeddings. +#XCFLAGS+= -DLUA_USE_APICHECK +# +# Turn on assertions for the whole LuaJIT VM. This significantly slows down +# everything. Use only if you suspect a problem with LuaJIT itself. +#XCFLAGS+= -DLUA_USE_ASSERT +# +############################################################################## +# You probably don't need to change anything below this line! +############################################################################## + +############################################################################## +# Flags and options for host and target. +############################################################################## + +# You can override the following variables at the make command line: +# CC HOST_CC STATIC_CC DYNAMIC_CC +# CFLAGS HOST_CFLAGS TARGET_CFLAGS +# LDFLAGS HOST_LDFLAGS TARGET_LDFLAGS TARGET_SHLDFLAGS +# LIBS HOST_LIBS TARGET_LIBS +# CROSS HOST_SYS TARGET_SYS TARGET_FLAGS +# +# Cross-compilation examples: +# make HOST_CC="gcc -m32" CROSS=i586-mingw32msvc- TARGET_SYS=Windows +# make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu- + +CCOPTIONS= $(CCDEBUG) $(CCOPT) $(CCWARN) $(XCFLAGS) $(CFLAGS) +LDOPTIONS= $(CCDEBUG) $(LDFLAGS) + +HOST_CC= $(CC) +HOST_RM= rm -f +# If left blank, minilua is built and used. You can supply an installed +# copy of (plain) Lua 5.1 or 5.2, plus Lua BitOp. E.g. with: HOST_LUA=lua +HOST_LUA= + +HOST_XCFLAGS= -I. +HOST_XLDFLAGS= +HOST_XLIBS= +HOST_ACFLAGS= $(CCOPTIONS) $(HOST_XCFLAGS) $(TARGET_ARCH) $(HOST_CFLAGS) +HOST_ALDFLAGS= $(LDOPTIONS) $(HOST_XLDFLAGS) $(HOST_LDFLAGS) +HOST_ALIBS= $(HOST_XLIBS) $(LIBS) $(HOST_LIBS) + +STATIC_CC = $(CROSS)$(CC) +DYNAMIC_CC = $(CROSS)$(CC) -fPIC +TARGET_CC= $(STATIC_CC) +TARGET_STCC= $(STATIC_CC) +TARGET_DYNCC= $(DYNAMIC_CC) +TARGET_LD= $(CROSS)$(CC) +TARGET_AR= $(CROSS)ar rcus +TARGET_STRIP= $(CROSS)strip + +TARGET_LIBPATH= $(or $(PREFIX),/usr/local)/$(or $(MULTILIB),lib) +TARGET_SONAME= libluajit-$(ABIVER).so.$(MAJVER) +TARGET_DYLIBNAME= libluajit-$(ABIVER).$(MAJVER).dylib +TARGET_DYLIBPATH= $(TARGET_LIBPATH)/$(TARGET_DYLIBNAME) +TARGET_DLLNAME= lua$(NODOTABIVER).dll +TARGET_XSHLDFLAGS= -shared -fPIC -Wl,-soname,$(TARGET_SONAME) +TARGET_DYNXLDOPTS= + +TARGET_LFSFLAGS= -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE +TARGET_XCFLAGS= $(TARGET_LFSFLAGS) -U_FORTIFY_SOURCE +TARGET_XLDFLAGS= +TARGET_XLIBS= -lm +TARGET_TCFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) +TARGET_ACFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) +TARGET_ALDFLAGS= $(LDOPTIONS) $(TARGET_XLDFLAGS) $(TARGET_FLAGS) $(TARGET_LDFLAGS) +TARGET_ASHLDFLAGS= $(LDOPTIONS) $(TARGET_XSHLDFLAGS) $(TARGET_FLAGS) $(TARGET_SHLDFLAGS) +TARGET_ALIBS= $(TARGET_XLIBS) $(LIBS) $(TARGET_LIBS) + +TARGET_TESTARCH=$(shell $(TARGET_CC) $(TARGET_TCFLAGS) -E lj_arch.h -dM) +ifneq (,$(findstring LJ_TARGET_X64 ,$(TARGET_TESTARCH))) + TARGET_LJARCH= x64 +else +ifneq (,$(findstring LJ_TARGET_X86 ,$(TARGET_TESTARCH))) + TARGET_LJARCH= x86 +else +ifneq (,$(findstring LJ_TARGET_ARM ,$(TARGET_TESTARCH))) + TARGET_LJARCH= arm +else +ifneq (,$(findstring LJ_TARGET_PPC ,$(TARGET_TESTARCH))) + TARGET_LJARCH= ppc +else +ifneq (,$(findstring LJ_TARGET_PPCSPE ,$(TARGET_TESTARCH))) + TARGET_LJARCH= ppcspe +else +ifneq (,$(findstring LJ_TARGET_MIPS ,$(TARGET_TESTARCH))) + ifneq (,$(findstring MIPSEL ,$(TARGET_TESTARCH))) + TARGET_ARCH= -D__MIPSEL__=1 + endif + TARGET_LJARCH= mips +else + $(error Unsupported target architecture) +endif +endif +endif +endif +endif +endif + +ifneq (,$(findstring LJ_TARGET_PS3 1,$(TARGET_TESTARCH))) + TARGET_SYS= PS3 + TARGET_ARCH+= -D__CELLOS_LV2__ + TARGET_XCFLAGS+= -DLUAJIT_USE_SYSMALLOC +endif +ifneq (,$(findstring LJ_NO_UNWIND 1,$(TARGET_TESTARCH))) + TARGET_ARCH+= -DLUAJIT_NO_UNWIND +endif + +TARGET_XCFLAGS+= $(CCOPT_$(TARGET_LJARCH)) +TARGET_ARCH+= $(patsubst %,-DLUAJIT_TARGET=LUAJIT_ARCH_%,$(TARGET_LJARCH)) + +ifneq (,$(PREFIX)) +ifneq (/usr/local,$(PREFIX)) + TARGET_XCFLAGS+= -DLUA_ROOT=\"$(PREFIX)\" + ifneq (/usr,$(PREFIX)) + TARGET_DYNXLDOPTS= -Wl,-rpath,$(TARGET_LIBPATH) + endif +endif +endif +ifneq (,$(MULTILIB)) + TARGET_XCFLAGS+= -DLUA_MULTILIB=\"$(MULTILIB)\" +endif +ifneq (,$(LMULTILIB)) + TARGET_XCFLAGS+= -DLUA_LMULTILIB=\"$(LMULTILIB)\" +endif + +############################################################################## +# System detection. +############################################################################## + +ifeq (Windows,$(findstring Windows,$(OS))$(MSYSTEM)$(TERM)) + HOST_SYS= Windows + HOST_RM= del +else + HOST_SYS:= $(shell uname -s) + ifneq (,$(findstring MINGW,$(HOST_SYS))) + HOST_SYS= Windows + HOST_MSYS= mingw + endif + ifneq (,$(findstring CYGWIN,$(HOST_SYS))) + HOST_SYS= Windows + HOST_MSYS= cygwin + endif +endif + +TARGET_SYS?= $(HOST_SYS) +ifeq (Windows,$(TARGET_SYS)) + TARGET_STRIP+= --strip-unneeded + TARGET_XSHLDFLAGS= -shared + TARGET_DYNXLDOPTS= +else +ifeq (,$(shell $(TARGET_CC) -o /dev/null -c -x c /dev/null -fno-stack-protector 2>/dev/null || echo 1)) + TARGET_XCFLAGS+= -fno-stack-protector +endif +ifeq (Darwin,$(TARGET_SYS)) + ifeq (,$(MACOSX_DEPLOYMENT_TARGET)) + export MACOSX_DEPLOYMENT_TARGET=10.4 + endif + TARGET_STRIP+= -x + TARGET_AR+= 2>/dev/null + TARGET_XSHLDFLAGS= -dynamiclib -single_module -undefined dynamic_lookup -fPIC + TARGET_DYNXLDOPTS= + TARGET_XSHLDFLAGS+= -install_name $(TARGET_DYLIBPATH) -compatibility_version $(MAJVER).$(MINVER) -current_version $(MAJVER).$(MINVER).$(RELVER) + ifeq (x64,$(TARGET_LJARCH)) + TARGET_XLDFLAGS+= -pagezero_size 10000 -image_base 100000000 + TARGET_XSHLDFLAGS+= -image_base 7fff04c4a000 + endif +else +ifeq (iOS,$(TARGET_SYS)) + TARGET_STRIP+= -x + TARGET_AR+= 2>/dev/null + TARGET_XSHLDFLAGS= -dynamiclib -single_module -undefined dynamic_lookup -fPIC + TARGET_DYNXLDOPTS= + TARGET_XSHLDFLAGS+= -install_name $(TARGET_DYLIBPATH) -compatibility_version $(MAJVER).$(MINVER) -current_version $(MAJVER).$(MINVER).$(RELVER) +else + ifneq (SunOS,$(TARGET_SYS)) + ifneq (PS3,$(TARGET_SYS)) + TARGET_XLDFLAGS+= -Wl,-E + endif + endif + ifeq (Linux,$(TARGET_SYS)) + TARGET_XLIBS+= -ldl + endif + ifeq (GNU/kFreeBSD,$(TARGET_SYS)) + TARGET_XLIBS+= -ldl + endif +endif +endif +endif + +ifneq ($(HOST_SYS),$(TARGET_SYS)) + ifeq (Windows,$(TARGET_SYS)) + HOST_XCFLAGS+= -malign-double -DLUAJIT_OS=LUAJIT_OS_WINDOWS + else + ifeq (Linux,$(TARGET_SYS)) + HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_LINUX + else + ifeq (Darwin,$(TARGET_SYS)) + HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OSX + else + ifeq (iOS,$(TARGET_SYS)) + HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OSX + else + HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OTHER + endif + endif + endif + endif +endif + +ifneq (,$(CCDEBUG)) + TARGET_STRIP= @: +endif + +############################################################################## +# Files and pathnames. +############################################################################## + +MINILUA_O= host/minilua.o +MINILUA_LIBS= -lm +MINILUA_T= host/minilua +MINILUA_X= $(MINILUA_T) + +ifeq (,$(HOST_LUA)) + HOST_LUA= $(MINILUA_X) + DASM_DEP= $(MINILUA_T) +endif + +DASM_DIR= ../dynasm +DASM= $(HOST_LUA) $(DASM_DIR)/dynasm.lua +DASM_XFLAGS= +DASM_AFLAGS= +DASM_ARCH= $(TARGET_LJARCH) + +ifneq (,$(findstring LJ_ARCH_BITS 64,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D P64 +endif +ifneq (,$(findstring LJ_HASJIT 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D JIT +endif +ifneq (,$(findstring LJ_HASFFI 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D FFI +endif +ifneq (,$(findstring LJ_DUALNUM 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D DUALNUM +endif +ifneq (,$(findstring LJ_ARCH_HASFPU 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D FPU + TARGET_ARCH+= -DLJ_ARCH_HASFPU=1 +else + TARGET_ARCH+= -DLJ_ARCH_HASFPU=0 +endif +ifeq (,$(findstring LJ_ABI_SOFTFP 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D HFABI + TARGET_ARCH+= -DLJ_ABI_SOFTFP=0 +else + TARGET_ARCH+= -DLJ_ABI_SOFTFP=1 +endif +DASM_AFLAGS+= -D VER=$(subst LJ_ARCH_VERSION_,,$(filter LJ_ARCH_VERSION_%,$(subst LJ_ARCH_VERSION ,LJ_ARCH_VERSION_,$(TARGET_TESTARCH)))) +ifeq (Windows,$(TARGET_SYS)) + DASM_AFLAGS+= -D WIN +endif +ifeq (x86,$(TARGET_LJARCH)) + ifneq (,$(findstring __SSE2__ 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D SSE + endif +else +ifeq (x64,$(TARGET_LJARCH)) + DASM_ARCH= x86 +else +ifeq (arm,$(TARGET_LJARCH)) + ifeq (iOS,$(TARGET_SYS)) + DASM_AFLAGS+= -D IOS + endif +else +ifeq (ppc,$(TARGET_LJARCH)) + ifneq (,$(findstring LJ_ARCH_SQRT 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D SQRT + endif + ifneq (,$(findstring LJ_ARCH_ROUND 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D ROUND + endif + ifneq (,$(findstring LJ_ARCH_PPC64 1,$(TARGET_TESTARCH))) + DASM_AFLAGS+= -D GPR64 + endif + ifeq (PS3,$(TARGET_SYS)) + DASM_AFLAGS+= -D PPE -D TOC + endif +endif +endif +endif +endif + +DASM_FLAGS= $(DASM_XFLAGS) $(DASM_AFLAGS) +DASM_DASC= vm_$(DASM_ARCH).dasc + +BUILDVM_O= host/buildvm.o host/buildvm_asm.o host/buildvm_peobj.o \ + host/buildvm_lib.o host/buildvm_fold.o +BUILDVM_T= host/buildvm +BUILDVM_X= $(BUILDVM_T) + +HOST_O= $(MINILUA_O) $(BUILDVM_O) +HOST_T= $(MINILUA_T) $(BUILDVM_T) + +LJVM_S= lj_vm.s +LJVM_O= lj_vm.o +LJVM_BOUT= $(LJVM_S) +LJVM_MODE= elfasm + +LJLIB_O= lib_base.o lib_math.o lib_bit.o lib_string.o lib_table.o \ + lib_io.o lib_os.o lib_package.o lib_debug.o lib_jit.o lib_ffi.o +LJLIB_C= $(LJLIB_O:.o=.c) + +LJCORE_O= lj_gc.o lj_err.o lj_char.o lj_bc.o lj_obj.o \ + lj_str.o lj_tab.o lj_func.o lj_udata.o lj_meta.o lj_debug.o \ + lj_state.o lj_dispatch.o lj_vmevent.o lj_vmmath.o lj_strscan.o \ + lj_api.o lj_lex.o lj_parse.o lj_bcread.o lj_bcwrite.o lj_load.o \ + lj_ir.o lj_opt_mem.o lj_opt_fold.o lj_opt_narrow.o \ + lj_opt_dce.o lj_opt_loop.o lj_opt_split.o lj_opt_sink.o \ + lj_mcode.o lj_snap.o lj_record.o lj_crecord.o lj_ffrecord.o \ + lj_asm.o lj_trace.o lj_gdbjit.o \ + lj_ctype.o lj_cdata.o lj_cconv.o lj_ccall.o lj_ccallback.o \ + lj_carith.o lj_clib.o lj_cparse.o \ + lj_lib.o lj_alloc.o lib_aux.o \ + $(LJLIB_O) lib_init.o + +LJVMCORE_O= $(LJVM_O) $(LJCORE_O) +LJVMCORE_DYNO= $(LJVMCORE_O:.o=_dyn.o) + +LIB_VMDEF= jit/vmdef.lua +LIB_VMDEFP= $(LIB_VMDEF) + +LUAJIT_O= luajit.o +LUAJIT_A= libluajit.a +LUAJIT_SO= libluajit.so +LUAJIT_T= luajit + +ALL_T= $(LUAJIT_T) $(LUAJIT_A) $(LUAJIT_SO) $(HOST_T) +ALL_HDRGEN= lj_bcdef.h lj_ffdef.h lj_libdef.h lj_recdef.h lj_folddef.h \ + host/buildvm_arch.h +ALL_GEN= $(LJVM_S) $(ALL_HDRGEN) $(LIB_VMDEFP) +WIN_RM= *.obj *.lib *.exp *.dll *.exe *.manifest *.pdb *.ilk +ALL_RM= $(ALL_T) $(ALL_GEN) *.o host/*.o $(WIN_RM) + +############################################################################## +# Build mode handling. +############################################################################## + +# Mixed mode defaults. +TARGET_O= $(LUAJIT_A) +TARGET_T= $(LUAJIT_T) $(LUAJIT_SO) +TARGET_DEP= $(LIB_VMDEF) $(LUAJIT_SO) + +ifeq (Windows,$(TARGET_SYS)) + TARGET_DYNCC= $(STATIC_CC) + LJVM_MODE= peobj + LJVM_BOUT= $(LJVM_O) + LUAJIT_T= luajit.exe + ifeq (cygwin,$(HOST_MSYS)) + LUAJIT_SO= cyg$(TARGET_DLLNAME) + else + LUAJIT_SO= $(TARGET_DLLNAME) + endif + # Mixed mode is not supported on Windows. And static mode doesn't work well. + # C modules cannot be loaded, because they bind to lua51.dll. + ifneq (static,$(BUILDMODE)) + BUILDMODE= dynamic + TARGET_XCFLAGS+= -DLUA_BUILD_AS_DLL + endif +endif +ifeq (Darwin,$(TARGET_SYS)) + LJVM_MODE= machasm +endif +ifeq (iOS,$(TARGET_SYS)) + LJVM_MODE= machasm +endif +ifeq (SunOS,$(TARGET_SYS)) + BUILDMODE= static +endif +ifeq (PS3,$(TARGET_SYS)) + BUILDMODE= static +endif + +ifeq (Windows,$(HOST_SYS)) + MINILUA_T= host/minilua.exe + BUILDVM_T= host/buildvm.exe + ifeq (,$(HOST_MSYS)) + MINILUA_X= host\minilua + BUILDVM_X= host\buildvm + ALL_RM:= $(subst /,\,$(ALL_RM)) + endif +endif + +ifeq (static,$(BUILDMODE)) + TARGET_DYNCC= @: + TARGET_T= $(LUAJIT_T) + TARGET_DEP= $(LIB_VMDEF) +else +ifeq (dynamic,$(BUILDMODE)) + ifneq (Windows,$(TARGET_SYS)) + TARGET_CC= $(DYNAMIC_CC) + endif + TARGET_DYNCC= @: + LJVMCORE_DYNO= $(LJVMCORE_O) + TARGET_O= $(LUAJIT_SO) + TARGET_XLDFLAGS+= $(TARGET_DYNXLDOPTS) +else +ifeq (Darwin,$(TARGET_SYS)) + TARGET_DYNCC= @: + LJVMCORE_DYNO= $(LJVMCORE_O) +endif +ifeq (iOS,$(TARGET_SYS)) + TARGET_DYNCC= @: + LJVMCORE_DYNO= $(LJVMCORE_O) +endif +endif +endif + +Q= @ +E= @echo +#Q= +#E= @: + +############################################################################## +# Make targets. +############################################################################## + +default all: $(TARGET_T) + +amalg: + @grep "^[+|]" ljamalg.c + $(MAKE) all "LJCORE_O=ljamalg.o" + +clean: + $(HOST_RM) $(ALL_RM) + +depend: + @for file in $(ALL_HDRGEN); do \ + test -f $$file || touch $$file; \ + done + @$(HOST_CC) $(HOST_ACFLAGS) -MM *.c host/*.c | \ + sed -e "s| [^ ]*/dasm_\S*\.h||g" \ + -e "s|^\([^l ]\)|host/\1|" \ + -e "s| lj_target_\S*\.h| lj_target_*.h|g" \ + -e "s| lj_emit_\S*\.h| lj_emit_*.h|g" \ + -e "s| lj_asm_\S*\.h| lj_asm_*.h|g" >Makefile.dep + @for file in $(ALL_HDRGEN); do \ + test -s $$file || $(HOST_RM) $$file; \ + done + +.PHONY: default all amalg clean depend + +############################################################################## +# Rules for generated files. +############################################################################## + +$(MINILUA_T): $(MINILUA_O) + $(E) "HOSTLINK $@" + $(Q)$(HOST_CC) $(HOST_ALDFLAGS) -o $@ $(MINILUA_O) $(MINILUA_LIBS) $(HOST_ALIBS) + +host/buildvm_arch.h: $(DASM_DASC) $(DASM_DEP) + $(E) "DYNASM $@" + $(Q)$(DASM) $(DASM_FLAGS) -o $@ $(DASM_DASC) + +host/buildvm.o: $(DASM_DIR)/dasm_*.h + +$(BUILDVM_T): $(BUILDVM_O) + $(E) "HOSTLINK $@" + $(Q)$(HOST_CC) $(HOST_ALDFLAGS) -o $@ $(BUILDVM_O) $(HOST_ALIBS) + +$(LJVM_BOUT): $(BUILDVM_T) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m $(LJVM_MODE) -o $@ + +lj_bcdef.h: $(BUILDVM_T) $(LJLIB_C) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m bcdef -o $@ $(LJLIB_C) + +lj_ffdef.h: $(BUILDVM_T) $(LJLIB_C) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m ffdef -o $@ $(LJLIB_C) + +lj_libdef.h: $(BUILDVM_T) $(LJLIB_C) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m libdef -o $@ $(LJLIB_C) + +lj_recdef.h: $(BUILDVM_T) $(LJLIB_C) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m recdef -o $@ $(LJLIB_C) + +$(LIB_VMDEF): $(BUILDVM_T) $(LJLIB_C) + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m vmdef -o $(LIB_VMDEFP) $(LJLIB_C) + +lj_folddef.h: $(BUILDVM_T) lj_opt_fold.c + $(E) "BUILDVM $@" + $(Q)$(BUILDVM_X) -m folddef -o $@ lj_opt_fold.c + +############################################################################## +# Object file rules. +############################################################################## + +%.o: %.c + $(E) "CC $@" + $(Q)$(TARGET_DYNCC) $(TARGET_ACFLAGS) -c -o $(@:.o=_dyn.o) $< + $(Q)$(TARGET_CC) $(TARGET_ACFLAGS) -c -o $@ $< + +%.o: %.s + $(E) "ASM $@" + $(Q)$(TARGET_DYNCC) $(TARGET_ACFLAGS) -c -o $(@:.o=_dyn.o) $< + $(Q)$(TARGET_CC) $(TARGET_ACFLAGS) -c -o $@ $< + +$(LUAJIT_O): + $(E) "CC $@" + $(Q)$(TARGET_STCC) $(TARGET_ACFLAGS) -c -o $@ $< + +$(HOST_O): %.o: %.c + $(E) "HOSTCC $@" + $(Q)$(HOST_CC) $(HOST_ACFLAGS) -c -o $@ $< + +include Makefile.dep + +############################################################################## +# Target file rules. +############################################################################## + +$(LUAJIT_A): $(LJVMCORE_O) + $(E) "AR $@" + $(Q)$(TARGET_AR) $@ $(LJVMCORE_O) + +# The dependency on _O, but linking with _DYNO is intentional. +$(LUAJIT_SO): $(LJVMCORE_O) + $(E) "DYNLINK $@" + $(Q)$(TARGET_LD) $(TARGET_ASHLDFLAGS) -o $@ $(LJVMCORE_DYNO) $(TARGET_ALIBS) + $(Q)$(TARGET_STRIP) $@ + +$(LUAJIT_T): $(TARGET_O) $(LUAJIT_O) $(TARGET_DEP) + $(E) "LINK $@" + $(Q)$(TARGET_LD) $(TARGET_ALDFLAGS) -o $@ $(LUAJIT_O) $(TARGET_O) $(TARGET_ALIBS) + $(Q)$(TARGET_STRIP) $@ + $(E) "OK Successfully built LuaJIT" + +############################################################################## diff --git a/src/3rd party/luajit-2.0/src/Makefile.dep b/src/3rd party/luajit-2.0/src/Makefile.dep new file mode 100644 index 00000000000..9e14d617360 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/Makefile.dep @@ -0,0 +1,226 @@ +lib_aux.o: lib_aux.c lua.h luaconf.h lauxlib.h lj_obj.h lj_def.h \ + lj_arch.h lj_err.h lj_errmsg.h lj_state.h lj_trace.h lj_jit.h lj_ir.h \ + lj_dispatch.h lj_bc.h lj_traceerr.h lj_lib.h lj_alloc.h +lib_base.o: lib_base.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h \ + lj_tab.h lj_meta.h lj_state.h lj_ctype.h lj_cconv.h lj_bc.h lj_ff.h \ + lj_ffdef.h lj_dispatch.h lj_jit.h lj_ir.h lj_char.h lj_strscan.h \ + lj_lib.h lj_libdef.h +lib_bit.o: lib_bit.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ + lj_arch.h lj_err.h lj_errmsg.h lj_str.h lj_lib.h lj_libdef.h +lib_debug.o: lib_debug.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_lib.h \ + lj_libdef.h +lib_ffi.o: lib_ffi.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h \ + lj_ctype.h lj_cparse.h lj_cdata.h lj_cconv.h lj_carith.h lj_ccall.h \ + lj_ccallback.h lj_clib.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h +lib_init.o: lib_init.c lua.h luaconf.h lauxlib.h lualib.h lj_arch.h +lib_io.o: lib_io.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_state.h lj_ff.h \ + lj_ffdef.h lj_lib.h lj_libdef.h +lib_jit.o: lib_jit.c lua.h luaconf.h lauxlib.h lualib.h lj_arch.h \ + lj_obj.h lj_def.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h \ + lj_bc.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_target.h \ + lj_target_*.h lj_dispatch.h lj_vm.h lj_vmevent.h lj_lib.h luajit.h \ + lj_libdef.h +lib_math.o: lib_math.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_lib.h lj_vm.h lj_libdef.h +lib_os.o: lib_os.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ + lj_arch.h lj_err.h lj_errmsg.h lj_lib.h lj_libdef.h +lib_package.o: lib_package.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_err.h lj_errmsg.h lj_lib.h +lib_string.o: lib_string.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h \ + lj_meta.h lj_state.h lj_ff.h lj_ffdef.h lj_bcdump.h lj_lex.h lj_char.h \ + lj_lib.h lj_libdef.h +lib_table.o: lib_table.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_lib.h \ + lj_libdef.h +lj_alloc.o: lj_alloc.c lj_def.h lua.h luaconf.h lj_arch.h lj_alloc.h +lj_api.o: lj_api.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_func.h lj_udata.h \ + lj_meta.h lj_state.h lj_bc.h lj_frame.h lj_trace.h lj_jit.h lj_ir.h \ + lj_dispatch.h lj_traceerr.h lj_vm.h lj_strscan.h +lj_asm.o: lj_asm.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h lj_ir.h lj_jit.h \ + lj_ircall.h lj_iropt.h lj_mcode.h lj_trace.h lj_dispatch.h lj_traceerr.h \ + lj_snap.h lj_asm.h lj_vm.h lj_target.h lj_target_*.h lj_emit_*.h \ + lj_asm_*.h +lj_bc.o: lj_bc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_bc.h \ + lj_bcdef.h +lj_bcread.o: lj_bcread.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_bc.h lj_ctype.h \ + lj_cdata.h lualib.h lj_lex.h lj_bcdump.h lj_state.h +lj_bcwrite.o: lj_bcwrite.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_str.h lj_bc.h lj_ctype.h lj_dispatch.h lj_jit.h lj_ir.h \ + lj_bcdump.h lj_lex.h lj_err.h lj_errmsg.h lj_vm.h +lj_carith.o: lj_carith.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_meta.h lj_ctype.h lj_cconv.h \ + lj_cdata.h lj_carith.h +lj_ccall.o: lj_ccall.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cconv.h \ + lj_cdata.h lj_ccall.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ + lj_traceerr.h +lj_ccallback.o: lj_ccallback.c lj_obj.h lua.h luaconf.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_state.h lj_frame.h \ + lj_bc.h lj_ctype.h lj_cconv.h lj_ccall.h lj_ccallback.h lj_target.h \ + lj_target_*.h lj_mcode.h lj_jit.h lj_ir.h lj_trace.h lj_dispatch.h \ + lj_traceerr.h lj_vm.h +lj_cconv.o: lj_cconv.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_gc.h lj_cdata.h lj_cconv.h \ + lj_ccallback.h +lj_cdata.o: lj_cdata.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cconv.h \ + lj_cdata.h +lj_char.o: lj_char.c lj_char.h lj_def.h lua.h luaconf.h +lj_clib.o: lj_clib.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_tab.h lj_str.h lj_udata.h lj_ctype.h lj_cconv.h \ + lj_cdata.h lj_clib.h +lj_cparse.o: lj_cparse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_ctype.h lj_cparse.h lj_frame.h \ + lj_bc.h lj_vm.h lj_char.h lj_strscan.h +lj_crecord.o: lj_crecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h \ + lj_gc.h lj_cdata.h lj_cparse.h lj_cconv.h lj_clib.h lj_ccall.h lj_ff.h \ + lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ + lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_snap.h \ + lj_crecord.h +lj_ctype.o: lj_ctype.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_ccallback.h +lj_debug.o: lj_debug.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_state.h lj_frame.h \ + lj_bc.h lj_vm.h lj_jit.h lj_ir.h +lj_dispatch.o: lj_dispatch.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_func.h lj_str.h lj_tab.h lj_meta.h lj_debug.h \ + lj_state.h lj_frame.h lj_bc.h lj_ff.h lj_ffdef.h lj_jit.h lj_ir.h \ + lj_ccallback.h lj_ctype.h lj_gc.h lj_trace.h lj_dispatch.h lj_traceerr.h \ + lj_vm.h luajit.h +lj_err.o: lj_err.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_err.h \ + lj_errmsg.h lj_debug.h lj_str.h lj_func.h lj_state.h lj_frame.h lj_bc.h \ + lj_ff.h lj_ffdef.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h \ + lj_traceerr.h lj_vm.h +lj_ffrecord.o: lj_ffrecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ff.h \ + lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ + lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_crecord.h \ + lj_vm.h lj_strscan.h lj_recdef.h +lj_func.o: lj_func.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_func.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ + lj_traceerr.h lj_vm.h +lj_gc.o: lj_gc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_udata.h lj_meta.h \ + lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h lj_trace.h lj_jit.h \ + lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h +lj_gdbjit.o: lj_gdbjit.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_frame.h lj_bc.h lj_jit.h \ + lj_ir.h lj_dispatch.h +lj_ir.o: lj_ir.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ + lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h lj_cdata.h lj_carith.h \ + lj_vm.h lj_strscan.h lj_lib.h +lj_lex.o: lj_lex.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cdata.h lualib.h \ + lj_state.h lj_lex.h lj_parse.h lj_char.h lj_strscan.h +lj_lib.o: lj_lib.c lauxlib.h lua.h luaconf.h lj_obj.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_bc.h \ + lj_dispatch.h lj_jit.h lj_ir.h lj_vm.h lj_strscan.h lj_lib.h +lj_load.o: lj_load.c lua.h luaconf.h lauxlib.h lj_obj.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_func.h lj_frame.h \ + lj_bc.h lj_vm.h lj_lex.h lj_bcdump.h lj_parse.h +lj_mcode.o: lj_mcode.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_jit.h lj_ir.h lj_mcode.h lj_trace.h \ + lj_dispatch.h lj_bc.h lj_traceerr.h lj_vm.h +lj_meta.o: lj_meta.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h lj_frame.h lj_bc.h \ + lj_vm.h lj_strscan.h +lj_obj.o: lj_obj.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h +lj_opt_dce.o: lj_opt_dce.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_ir.h lj_jit.h lj_iropt.h +lj_opt_fold.o: lj_opt_fold.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h lj_dispatch.h \ + lj_bc.h lj_traceerr.h lj_ctype.h lj_gc.h lj_carith.h lj_vm.h \ + lj_strscan.h lj_folddef.h +lj_opt_loop.o: lj_opt_loop.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_str.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h \ + lj_dispatch.h lj_bc.h lj_traceerr.h lj_snap.h lj_vm.h +lj_opt_mem.o: lj_opt_mem.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_tab.h lj_ir.h lj_jit.h lj_iropt.h +lj_opt_narrow.o: lj_opt_narrow.c lj_obj.h lua.h luaconf.h lj_def.h \ + lj_arch.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h lj_dispatch.h \ + lj_traceerr.h lj_vm.h lj_strscan.h +lj_opt_sink.o: lj_opt_sink.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_ir.h lj_jit.h lj_iropt.h lj_target.h lj_target_*.h +lj_opt_split.o: lj_opt_split.c lj_obj.h lua.h luaconf.h lj_def.h \ + lj_arch.h lj_err.h lj_errmsg.h lj_str.h lj_ir.h lj_jit.h lj_ircall.h \ + lj_iropt.h lj_vm.h +lj_parse.o: lj_parse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_func.h \ + lj_state.h lj_bc.h lj_ctype.h lj_lex.h lj_parse.h lj_vm.h lj_vmevent.h +lj_record.o: lj_record.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h lj_frame.h lj_bc.h \ + lj_ctype.h lj_gc.h lj_ff.h lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h \ + lj_iropt.h lj_trace.h lj_dispatch.h lj_traceerr.h lj_record.h \ + lj_ffrecord.h lj_snap.h lj_vm.h +lj_snap.o: lj_snap.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_tab.h lj_state.h lj_frame.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h \ + lj_trace.h lj_dispatch.h lj_traceerr.h lj_snap.h lj_target.h \ + lj_target_*.h lj_ctype.h lj_cdata.h +lj_state.o: lj_state.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_meta.h \ + lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_trace.h lj_jit.h lj_ir.h \ + lj_dispatch.h lj_traceerr.h lj_vm.h lj_lex.h lj_alloc.h +lj_str.o: lj_str.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_str.h lj_state.h lj_char.h +lj_strscan.o: lj_strscan.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_char.h lj_strscan.h +lj_tab.o: lj_tab.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_tab.h +lj_trace.o: lj_trace.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_frame.h lj_bc.h \ + lj_state.h lj_ir.h lj_jit.h lj_iropt.h lj_mcode.h lj_trace.h \ + lj_dispatch.h lj_traceerr.h lj_snap.h lj_gdbjit.h lj_record.h lj_asm.h \ + lj_vm.h lj_vmevent.h lj_target.h lj_target_*.h +lj_udata.o: lj_udata.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_gc.h lj_udata.h +lj_vmevent.o: lj_vmevent.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_str.h lj_tab.h lj_state.h lj_dispatch.h lj_bc.h lj_jit.h lj_ir.h \ + lj_vm.h lj_vmevent.h +lj_vmmath.o: lj_vmmath.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_ir.h lj_vm.h +ljamalg.o: ljamalg.c lua.h luaconf.h lauxlib.h lj_gc.c lj_obj.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h \ + lj_udata.h lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h \ + lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h lj_err.c \ + lj_debug.h lj_ff.h lj_ffdef.h lj_char.c lj_char.h lj_bc.c lj_bcdef.h \ + lj_obj.c lj_str.c lj_tab.c lj_func.c lj_udata.c lj_meta.c lj_strscan.h \ + lj_debug.c lj_state.c lj_lex.h lj_alloc.h lj_dispatch.c lj_ccallback.h \ + luajit.h lj_vmevent.c lj_vmevent.h lj_vmmath.c lj_strscan.c lj_api.c \ + lj_lex.c lualib.h lj_parse.h lj_parse.c lj_bcread.c lj_bcdump.h \ + lj_bcwrite.c lj_load.c lj_ctype.c lj_cdata.c lj_cconv.h lj_cconv.c \ + lj_ccall.c lj_ccall.h lj_ccallback.c lj_target.h lj_target_*.h \ + lj_mcode.h lj_carith.c lj_carith.h lj_clib.c lj_clib.h lj_cparse.c \ + lj_cparse.h lj_lib.c lj_lib.h lj_ir.c lj_ircall.h lj_iropt.h \ + lj_opt_mem.c lj_opt_fold.c lj_folddef.h lj_opt_narrow.c lj_opt_dce.c \ + lj_opt_loop.c lj_snap.h lj_opt_split.c lj_opt_sink.c lj_mcode.c \ + lj_snap.c lj_record.c lj_record.h lj_ffrecord.h lj_crecord.c \ + lj_crecord.h lj_ffrecord.c lj_recdef.h lj_asm.c lj_asm.h lj_emit_*.h \ + lj_asm_*.h lj_trace.c lj_gdbjit.h lj_gdbjit.c lj_alloc.c lib_aux.c \ + lib_base.c lj_libdef.h lib_math.c lib_string.c lib_table.c lib_io.c \ + lib_os.c lib_package.c lib_debug.c lib_bit.c lib_jit.c lib_ffi.c \ + lib_init.c +luajit.o: luajit.c lua.h luaconf.h lauxlib.h lualib.h luajit.h lj_arch.h +host/buildvm.o: host/buildvm.c host/buildvm.h lj_def.h lua.h luaconf.h \ + lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_gc.h lj_obj.h lj_bc.h lj_ir.h \ + lj_ircall.h lj_ir.h lj_jit.h lj_frame.h lj_bc.h lj_dispatch.h lj_ctype.h \ + lj_gc.h lj_ccall.h lj_ctype.h luajit.h \ + host/buildvm_arch.h lj_traceerr.h +host/buildvm_asm.o: host/buildvm_asm.c host/buildvm.h lj_def.h lua.h luaconf.h \ + lj_arch.h lj_bc.h lj_def.h lj_arch.h +host/buildvm_fold.o: host/buildvm_fold.c host/buildvm.h lj_def.h lua.h \ + luaconf.h lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_ir.h lj_obj.h +host/buildvm_lib.o: host/buildvm_lib.c host/buildvm.h lj_def.h lua.h luaconf.h \ + lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_lib.h lj_obj.h +host/buildvm_peobj.o: host/buildvm_peobj.c host/buildvm.h lj_def.h lua.h \ + luaconf.h lj_arch.h lj_bc.h lj_def.h lj_arch.h +host/minilua.o: host/minilua.c diff --git a/src/3rd party/luajit-2.0/src/host/.gitignore b/src/3rd party/luajit-2.0/src/host/.gitignore new file mode 100644 index 00000000000..762ac2a0c6e --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/.gitignore @@ -0,0 +1,3 @@ +minilua +buildvm +buildvm_arch.h diff --git a/src/3rd party/luajit-2.0/src/host/README b/src/3rd party/luajit-2.0/src/host/README new file mode 100644 index 00000000000..abfcdaa76e9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/README @@ -0,0 +1,4 @@ +The files in this directory are only used during the build process of LuaJIT. +For cross-compilation, they must be executed on the host, not on the target. + +These files should NOT be installed! diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.c b/src/3rd party/luajit-2.0/src/host/buildvm.c new file mode 100644 index 00000000000..07122a645f1 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm.c @@ -0,0 +1,516 @@ +/* +** LuaJIT VM builder. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** This is a tool to build the hand-tuned assembler code required for +** LuaJIT's bytecode interpreter. It supports a variety of output formats +** to feed different toolchains (see usage() below). +** +** This tool is not particularly optimized because it's only used while +** _building_ LuaJIT. There's no point in distributing or installing it. +** Only the object code generated by this tool is linked into LuaJIT. +** +** Caveat: some memory is not free'd, error handling is lazy. +** It's a one-shot tool -- any effort fixing this would be wasted. +*/ + +#include "buildvm.h" +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_bc.h" +#include "lj_ir.h" +#include "lj_ircall.h" +#include "lj_frame.h" +#include "lj_dispatch.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_ccall.h" +#endif +#include "luajit.h" + +#if defined(_WIN32) +#include +#include +#endif + +/* ------------------------------------------------------------------------ */ + +/* DynASM glue definitions. */ +#define Dst ctx +#define Dst_DECL BuildCtx *ctx +#define Dst_REF (ctx->D) +#define DASM_CHECKS 1 + +#include "../dynasm/dasm_proto.h" + +/* Glue macros for DynASM. */ +static int collect_reloc(BuildCtx *ctx, uint8_t *addr, int idx, int type); + +#define DASM_EXTERN(ctx, addr, idx, type) \ + collect_reloc(ctx, addr, idx, type) + +/* ------------------------------------------------------------------------ */ + +/* Avoid trouble if cross-compiling for an x86 target. Speed doesn't matter. */ +#define DASM_ALIGNED_WRITES 1 + +/* Embed architecture-specific DynASM encoder. */ +#if LJ_TARGET_X86ORX64 +#include "../dynasm/dasm_x86.h" +#elif LJ_TARGET_ARM +#include "../dynasm/dasm_arm.h" +#elif LJ_TARGET_PPC +#include "../dynasm/dasm_ppc.h" +#elif LJ_TARGET_PPCSPE +#include "../dynasm/dasm_ppc.h" +#elif LJ_TARGET_MIPS +#include "../dynasm/dasm_mips.h" +#else +#error "No support for this architecture (yet)" +#endif + +/* Embed generated architecture-specific backend. */ +#include "buildvm_arch.h" + +/* ------------------------------------------------------------------------ */ + +void owrite(BuildCtx *ctx, const void *ptr, size_t sz) +{ + if (fwrite(ptr, 1, sz, ctx->fp) != sz) { + fprintf(stderr, "Error: cannot write to output file: %s\n", + strerror(errno)); + exit(1); + } +} + +/* ------------------------------------------------------------------------ */ + +/* Emit code as raw bytes. Only used for DynASM debugging. */ +static void emit_raw(BuildCtx *ctx) +{ + owrite(ctx, ctx->code, ctx->codesz); +} + +/* -- Build machine code -------------------------------------------------- */ + +static const char *sym_decorate(BuildCtx *ctx, + const char *prefix, const char *suffix) +{ + char name[256]; + char *p; +#if LJ_64 + const char *symprefix = ctx->mode == BUILD_machasm ? "_" : ""; +#elif LJ_TARGET_XBOX360 + const char *symprefix = ""; +#else + const char *symprefix = ctx->mode != BUILD_elfasm ? "_" : ""; +#endif + sprintf(name, "%s%s%s", symprefix, prefix, suffix); + p = strchr(name, '@'); + if (p) { +#if LJ_TARGET_X86ORX64 + if (!LJ_64 && (ctx->mode == BUILD_coffasm || ctx->mode == BUILD_peobj)) + name[0] = '@'; + else + *p = '\0'; +#elif (LJ_TARGET_PPC || LJ_TARGET_PPCSPE) && !LJ_TARGET_CONSOLE + /* Keep @plt. */ +#else + *p = '\0'; +#endif + } + p = (char *)malloc(strlen(name)+1); /* MSVC doesn't like strdup. */ + strcpy(p, name); + return p; +} + +#define NRELOCSYM (sizeof(extnames)/sizeof(extnames[0])-1) + +static int relocmap[NRELOCSYM]; + +/* Collect external relocations. */ +static int collect_reloc(BuildCtx *ctx, uint8_t *addr, int idx, int type) +{ + if (ctx->nreloc >= BUILD_MAX_RELOC) { + fprintf(stderr, "Error: too many relocations, increase BUILD_MAX_RELOC.\n"); + exit(1); + } + if (relocmap[idx] < 0) { + relocmap[idx] = ctx->nrelocsym; + ctx->relocsym[ctx->nrelocsym] = sym_decorate(ctx, "", extnames[idx]); + ctx->nrelocsym++; + } + ctx->reloc[ctx->nreloc].ofs = (int32_t)(addr - ctx->code); + ctx->reloc[ctx->nreloc].sym = relocmap[idx]; + ctx->reloc[ctx->nreloc].type = type; + ctx->nreloc++; +#if LJ_TARGET_XBOX360 + return (int)(ctx->code - addr) + 4; /* Encode symbol offset of .text. */ +#else + return 0; /* Encode symbol offset of 0. */ +#endif +} + +/* Naive insertion sort. Performance doesn't matter here. */ +static void sym_insert(BuildCtx *ctx, int32_t ofs, + const char *prefix, const char *suffix) +{ + ptrdiff_t i = ctx->nsym++; + while (i > 0) { + if (ctx->sym[i-1].ofs <= ofs) + break; + ctx->sym[i] = ctx->sym[i-1]; + i--; + } + ctx->sym[i].ofs = ofs; + ctx->sym[i].name = sym_decorate(ctx, prefix, suffix); +} + +/* Build the machine code. */ +static int build_code(BuildCtx *ctx) +{ + int status; + int i; + + /* Initialize DynASM structures. */ + ctx->nglob = GLOB__MAX; + ctx->glob = (void **)malloc(ctx->nglob*sizeof(void *)); + memset(ctx->glob, 0, ctx->nglob*sizeof(void *)); + ctx->nreloc = 0; + + ctx->globnames = globnames; + ctx->relocsym = (const char **)malloc(NRELOCSYM*sizeof(const char *)); + ctx->nrelocsym = 0; + for (i = 0; i < (int)NRELOCSYM; i++) relocmap[i] = -1; + + ctx->dasm_ident = DASM_IDENT; + ctx->dasm_arch = DASM_ARCH; + + dasm_init(Dst, DASM_MAXSECTION); + dasm_setupglobal(Dst, ctx->glob, ctx->nglob); + dasm_setup(Dst, build_actionlist); + + /* Call arch-specific backend to emit the code. */ + ctx->npc = build_backend(ctx); + + /* Finalize the code. */ + (void)dasm_checkstep(Dst, -1); + if ((status = dasm_link(Dst, &ctx->codesz))) return status; + ctx->code = (uint8_t *)malloc(ctx->codesz); + if ((status = dasm_encode(Dst, (void *)ctx->code))) return status; + + /* Allocate symbol table and bytecode offsets. */ + ctx->beginsym = sym_decorate(ctx, "", LABEL_PREFIX "vm_asm_begin"); + ctx->sym = (BuildSym *)malloc((ctx->npc+ctx->nglob+1)*sizeof(BuildSym)); + ctx->nsym = 0; + ctx->bc_ofs = (int32_t *)malloc(ctx->npc*sizeof(int32_t)); + + /* Collect the opcodes (PC labels). */ + for (i = 0; i < ctx->npc; i++) { + int32_t ofs = dasm_getpclabel(Dst, i); + if (ofs < 0) return 0x22000000|i; + ctx->bc_ofs[i] = ofs; + if ((LJ_HASJIT || + !(i == BC_JFORI || i == BC_JFORL || i == BC_JITERL || i == BC_JLOOP || + i == BC_IFORL || i == BC_IITERL || i == BC_ILOOP)) && + (LJ_HASFFI || i != BC_KCDATA)) + sym_insert(ctx, ofs, LABEL_PREFIX_BC, bc_names[i]); + } + + /* Collect the globals (named labels). */ + for (i = 0; i < ctx->nglob; i++) { + const char *gl = globnames[i]; + int len = (int)strlen(gl); + if (!ctx->glob[i]) { + fprintf(stderr, "Error: undefined global %s\n", gl); + exit(2); + } + /* Skip the _Z symbols. */ + if (!(len >= 2 && gl[len-2] == '_' && gl[len-1] == 'Z')) + sym_insert(ctx, (int32_t)((uint8_t *)(ctx->glob[i]) - ctx->code), + LABEL_PREFIX, globnames[i]); + } + + /* Close the address range. */ + sym_insert(ctx, (int32_t)ctx->codesz, "", ""); + ctx->nsym--; + + dasm_free(Dst); + + return 0; +} + +/* -- Generate VM enums --------------------------------------------------- */ + +const char *const bc_names[] = { +#define BCNAME(name, ma, mb, mc, mt) #name, +BCDEF(BCNAME) +#undef BCNAME + NULL +}; + +const char *const ir_names[] = { +#define IRNAME(name, m, m1, m2) #name, +IRDEF(IRNAME) +#undef IRNAME + NULL +}; + +const char *const irt_names[] = { +#define IRTNAME(name, size) #name, +IRTDEF(IRTNAME) +#undef IRTNAME + NULL +}; + +const char *const irfpm_names[] = { +#define FPMNAME(name) #name, +IRFPMDEF(FPMNAME) +#undef FPMNAME + NULL +}; + +const char *const irfield_names[] = { +#define FLNAME(name, ofs) #name, +IRFLDEF(FLNAME) +#undef FLNAME + NULL +}; + +const char *const ircall_names[] = { +#define IRCALLNAME(cond, name, nargs, kind, type, flags) #name, +IRCALLDEF(IRCALLNAME) +#undef IRCALLNAME + NULL +}; + +static const char *const trace_errors[] = { +#define TREDEF(name, msg) msg, +#include "lj_traceerr.h" + NULL +}; + +static const char *lower(char *buf, const char *s) +{ + char *p = buf; + while (*s) { + *p++ = (*s >= 'A' && *s <= 'Z') ? *s+0x20 : *s; + s++; + } + *p = '\0'; + return buf; +} + +/* Emit C source code for bytecode-related definitions. */ +static void emit_bcdef(BuildCtx *ctx) +{ + int i; + fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); + fprintf(ctx->fp, "LJ_DATADEF const uint16_t lj_bc_ofs[] = {\n"); + for (i = 0; i < ctx->npc; i++) { + if (i != 0) + fprintf(ctx->fp, ",\n"); + fprintf(ctx->fp, "%d", ctx->bc_ofs[i]); + } +} + +/* Emit VM definitions as Lua code for debug modules. */ +static void emit_vmdef(BuildCtx *ctx) +{ + char buf[80]; + int i; + fprintf(ctx->fp, "-- This is a generated file. DO NOT EDIT!\n\n"); + fprintf(ctx->fp, "module(...)\n\n"); + + fprintf(ctx->fp, "bcnames = \""); + for (i = 0; bc_names[i]; i++) fprintf(ctx->fp, "%-6s", bc_names[i]); + fprintf(ctx->fp, "\"\n\n"); + + fprintf(ctx->fp, "irnames = \""); + for (i = 0; ir_names[i]; i++) fprintf(ctx->fp, "%-6s", ir_names[i]); + fprintf(ctx->fp, "\"\n\n"); + + fprintf(ctx->fp, "irfpm = { [0]="); + for (i = 0; irfpm_names[i]; i++) + fprintf(ctx->fp, "\"%s\", ", lower(buf, irfpm_names[i])); + fprintf(ctx->fp, "}\n\n"); + + fprintf(ctx->fp, "irfield = { [0]="); + for (i = 0; irfield_names[i]; i++) { + char *p; + lower(buf, irfield_names[i]); + p = strchr(buf, '_'); + if (p) *p = '.'; + fprintf(ctx->fp, "\"%s\", ", buf); + } + fprintf(ctx->fp, "}\n\n"); + + fprintf(ctx->fp, "ircall = {\n[0]="); + for (i = 0; ircall_names[i]; i++) + fprintf(ctx->fp, "\"%s\",\n", ircall_names[i]); + fprintf(ctx->fp, "}\n\n"); + + fprintf(ctx->fp, "traceerr = {\n[0]="); + for (i = 0; trace_errors[i]; i++) + fprintf(ctx->fp, "\"%s\",\n", trace_errors[i]); + fprintf(ctx->fp, "}\n\n"); +} + +/* -- Argument parsing ---------------------------------------------------- */ + +/* Build mode names. */ +static const char *const modenames[] = { +#define BUILDNAME(name) #name, +BUILDDEF(BUILDNAME) +#undef BUILDNAME + NULL +}; + +/* Print usage information and exit. */ +static void usage(void) +{ + int i; + fprintf(stderr, LUAJIT_VERSION " VM builder.\n"); + fprintf(stderr, LUAJIT_COPYRIGHT ", " LUAJIT_URL "\n"); + fprintf(stderr, "Target architecture: " LJ_ARCH_NAME "\n\n"); + fprintf(stderr, "Usage: buildvm -m mode [-o outfile] [infiles...]\n\n"); + fprintf(stderr, "Available modes:\n"); + for (i = 0; i < BUILD__MAX; i++) + fprintf(stderr, " %s\n", modenames[i]); + exit(1); +} + +/* Parse the output mode name. */ +static BuildMode parsemode(const char *mode) +{ + int i; + for (i = 0; modenames[i]; i++) + if (!strcmp(mode, modenames[i])) + return (BuildMode)i; + usage(); + return (BuildMode)-1; +} + +/* Parse arguments. */ +static void parseargs(BuildCtx *ctx, char **argv) +{ + const char *a; + int i; + ctx->mode = (BuildMode)-1; + ctx->outname = "-"; + for (i = 1; (a = argv[i]) != NULL; i++) { + if (a[0] != '-') + break; + switch (a[1]) { + case '-': + if (a[2]) goto err; + i++; + goto ok; + case '\0': + goto ok; + case 'm': + i++; + if (a[2] || argv[i] == NULL) goto err; + ctx->mode = parsemode(argv[i]); + break; + case 'o': + i++; + if (a[2] || argv[i] == NULL) goto err; + ctx->outname = argv[i]; + break; + default: err: + usage(); + break; + } + } +ok: + ctx->args = argv+i; + if (ctx->mode == (BuildMode)-1) goto err; +} + +int main(int argc, char **argv) +{ + BuildCtx ctx_; + BuildCtx *ctx = &ctx_; + int status, binmode; + + if (sizeof(void *) != 4*LJ_32+8*LJ_64) { + fprintf(stderr,"Error: pointer size mismatch in cross-build.\n"); + fprintf(stderr,"Try: make HOST_CC=\"gcc -m32\" CROSS=...\n\n"); + return 1; + } + + UNUSED(argc); + parseargs(ctx, argv); + + if ((status = build_code(ctx))) { + fprintf(stderr,"Error: DASM error %08x\n", status); + return 1; + } + + switch (ctx->mode) { + case BUILD_peobj: + case BUILD_raw: + binmode = 1; + break; + default: + binmode = 0; + break; + } + + if (ctx->outname[0] == '-' && ctx->outname[1] == '\0') { + ctx->fp = stdout; +#if defined(_WIN32) + if (binmode) + _setmode(_fileno(stdout), _O_BINARY); /* Yuck. */ +#endif + } else if (!(ctx->fp = fopen(ctx->outname, binmode ? "wb" : "w"))) { + fprintf(stderr, "Error: cannot open output file '%s': %s\n", + ctx->outname, strerror(errno)); + exit(1); + } + + switch (ctx->mode) { + case BUILD_elfasm: + case BUILD_coffasm: + case BUILD_machasm: + emit_asm(ctx); + emit_asm_debug(ctx); + break; + case BUILD_peobj: + emit_peobj(ctx); + break; + case BUILD_raw: + emit_raw(ctx); + break; + case BUILD_bcdef: + emit_bcdef(ctx); + emit_lib(ctx); + break; + case BUILD_vmdef: + emit_vmdef(ctx); + emit_lib(ctx); + break; + case BUILD_ffdef: + case BUILD_libdef: + case BUILD_recdef: + emit_lib(ctx); + break; + case BUILD_folddef: + emit_fold(ctx); + break; + default: + break; + } + + fflush(ctx->fp); + if (ferror(ctx->fp)) { + fprintf(stderr, "Error: cannot write to output file: %s\n", + strerror(errno)); + exit(1); + } + fclose(ctx->fp); + + return 0; +} + diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.h b/src/3rd party/luajit-2.0/src/host/buildvm.h new file mode 100644 index 00000000000..b26218502e3 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm.h @@ -0,0 +1,104 @@ +/* +** LuaJIT VM builder. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _BUILDVM_H +#define _BUILDVM_H + +#include +#include +#include +#include +#include + +#include "lj_def.h" +#include "lj_arch.h" + +/* Hardcoded limits. Increase as needed. */ +#define BUILD_MAX_RELOC 200 /* Max. number of relocations. */ +#define BUILD_MAX_FOLD 4096 /* Max. number of fold rules. */ + +/* Prefix for scanned library definitions. */ +#define LIBDEF_PREFIX "LJLIB_" + +/* Prefix for scanned fold definitions. */ +#define FOLDDEF_PREFIX "LJFOLD" + +/* Prefixes for generated labels. */ +#define LABEL_PREFIX "lj_" +#define LABEL_PREFIX_BC LABEL_PREFIX "BC_" +#define LABEL_PREFIX_FF LABEL_PREFIX "ff_" +#define LABEL_PREFIX_CF LABEL_PREFIX "cf_" +#define LABEL_PREFIX_FFH LABEL_PREFIX "ffh_" +#define LABEL_PREFIX_LIBCF LABEL_PREFIX "lib_cf_" +#define LABEL_PREFIX_LIBINIT LABEL_PREFIX "lib_init_" + +/* Forward declaration. */ +struct dasm_State; + +/* Build modes. */ +#define BUILDDEF(_) \ + _(elfasm) _(coffasm) _(machasm) _(peobj) _(raw) \ + _(bcdef) _(ffdef) _(libdef) _(recdef) _(vmdef) \ + _(folddef) + +typedef enum { +#define BUILDENUM(name) BUILD_##name, +BUILDDEF(BUILDENUM) +#undef BUILDENUM + BUILD__MAX +} BuildMode; + +/* Code relocation. */ +typedef struct BuildReloc { + int32_t ofs; + int sym; + int type; +} BuildReloc; + +typedef struct BuildSym { + const char *name; + int32_t ofs; +} BuildSym; + +/* Build context structure. */ +typedef struct BuildCtx { + /* DynASM state pointer. Should be first member. */ + struct dasm_State *D; + /* Parsed command line. */ + BuildMode mode; + FILE *fp; + const char *outname; + char **args; + /* Code and symbols generated by DynASM. */ + uint8_t *code; + size_t codesz; + int npc, nglob, nsym, nreloc, nrelocsym; + void **glob; + BuildSym *sym; + const char **relocsym; + int32_t *bc_ofs; + const char *beginsym; + /* Strings generated by DynASM. */ + const char *const *globnames; + const char *dasm_ident; + const char *dasm_arch; + /* Relocations. */ + BuildReloc reloc[BUILD_MAX_RELOC]; +} BuildCtx; + +extern void owrite(BuildCtx *ctx, const void *ptr, size_t sz); +extern void emit_asm(BuildCtx *ctx); +extern void emit_peobj(BuildCtx *ctx); +extern void emit_lib(BuildCtx *ctx); +extern void emit_fold(BuildCtx *ctx); + +extern const char *const bc_names[]; +extern const char *const ir_names[]; +extern const char *const irt_names[]; +extern const char *const irfpm_names[]; +extern const char *const irfield_names[]; +extern const char *const ircall_names[]; + +#endif diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_asm.c b/src/3rd party/luajit-2.0/src/host/buildvm_asm.c new file mode 100644 index 00000000000..2c9a2d482e6 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm_asm.c @@ -0,0 +1,313 @@ +/* +** LuaJIT VM builder: Assembler source code emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "buildvm.h" +#include "lj_bc.h" + +/* ------------------------------------------------------------------------ */ + +#if LJ_TARGET_X86ORX64 +/* Emit bytes piecewise as assembler text. */ +static void emit_asm_bytes(BuildCtx *ctx, uint8_t *p, int n) +{ + int i; + for (i = 0; i < n; i++) { + if ((i & 15) == 0) + fprintf(ctx->fp, "\t.byte %d", p[i]); + else + fprintf(ctx->fp, ",%d", p[i]); + if ((i & 15) == 15) putc('\n', ctx->fp); + } + if ((n & 15) != 0) putc('\n', ctx->fp); +} + +/* Emit relocation */ +static void emit_asm_reloc(BuildCtx *ctx, int type, const char *sym) +{ + switch (ctx->mode) { + case BUILD_elfasm: + if (type) + fprintf(ctx->fp, "\t.long %s-.-4\n", sym); + else + fprintf(ctx->fp, "\t.long %s\n", sym); + break; + case BUILD_coffasm: + fprintf(ctx->fp, "\t.def %s; .scl 3; .type 32; .endef\n", sym); + if (type) + fprintf(ctx->fp, "\t.long %s-.-4\n", sym); + else + fprintf(ctx->fp, "\t.long %s\n", sym); + break; + default: /* BUILD_machasm for relative relocations handled below. */ + fprintf(ctx->fp, "\t.long %s\n", sym); + break; + } +} + +static const char *const jccnames[] = { + "jo", "jno", "jb", "jnb", "jz", "jnz", "jbe", "ja", + "js", "jns", "jpe", "jpo", "jl", "jge", "jle", "jg" +}; + +/* Emit relocation for the incredibly stupid OSX assembler. */ +static void emit_asm_reloc_mach(BuildCtx *ctx, uint8_t *cp, int n, + const char *sym) +{ + const char *opname = NULL; + if (--n < 0) goto err; + if (cp[n] == 0xe8) { + opname = "call"; + } else if (cp[n] == 0xe9) { + opname = "jmp"; + } else if (cp[n] >= 0x80 && cp[n] <= 0x8f && n > 0 && cp[n-1] == 0x0f) { + opname = jccnames[cp[n]-0x80]; + n--; + } else { +err: + fprintf(stderr, "Error: unsupported opcode for %s symbol relocation.\n", + sym); + exit(1); + } + emit_asm_bytes(ctx, cp, n); + fprintf(ctx->fp, "\t%s %s\n", opname, sym); +} +#else +/* Emit words piecewise as assembler text. */ +static void emit_asm_words(BuildCtx *ctx, uint8_t *p, int n) +{ + int i; + for (i = 0; i < n; i += 4) { + if ((i & 15) == 0) + fprintf(ctx->fp, "\t.long 0x%08x", *(uint32_t *)(p+i)); + else + fprintf(ctx->fp, ",0x%08x", *(uint32_t *)(p+i)); + if ((i & 15) == 12) putc('\n', ctx->fp); + } + if ((n & 15) != 0) putc('\n', ctx->fp); +} + +/* Emit relocation as part of an instruction. */ +static void emit_asm_wordreloc(BuildCtx *ctx, uint8_t *p, int n, + const char *sym) +{ + uint32_t ins; + emit_asm_words(ctx, p, n-4); + ins = *(uint32_t *)(p+n-4); +#if LJ_TARGET_ARM + if ((ins & 0xff000000u) == 0xfa000000u) { + fprintf(ctx->fp, "\tblx %s\n", sym); + } else if ((ins & 0x0e000000u) == 0x0a000000u) { + fprintf(ctx->fp, "\t%s%.2s %s\n", (ins & 0x01000000u) ? "bl" : "b", + &"eqnecsccmiplvsvchilsgeltgtle"[2*(ins >> 28)], sym); + } else { + fprintf(stderr, + "Error: unsupported opcode %08x for %s symbol relocation.\n", + ins, sym); + exit(1); + } +#elif LJ_TARGET_PPC || LJ_TARGET_PPCSPE +#if LJ_TARGET_PS3 +#define TOCPREFIX "." +#else +#define TOCPREFIX "" +#endif + if ((ins >> 26) == 16) { + fprintf(ctx->fp, "\t%s %d, %d, " TOCPREFIX "%s\n", + (ins & 1) ? "bcl" : "bc", (ins >> 21) & 31, (ins >> 16) & 31, sym); + } else if ((ins >> 26) == 18) { + fprintf(ctx->fp, "\t%s " TOCPREFIX "%s\n", (ins & 1) ? "bl" : "b", sym); + } else { + fprintf(stderr, + "Error: unsupported opcode %08x for %s symbol relocation.\n", + ins, sym); + exit(1); + } +#elif LJ_TARGET_MIPS + fprintf(stderr, + "Error: unsupported opcode %08x for %s symbol relocation.\n", + ins, sym); + exit(1); +#else +#error "missing relocation support for this architecture" +#endif +} +#endif + +#if LJ_TARGET_ARM +#define ELFASM_PX "%%" +#else +#define ELFASM_PX "@" +#endif + +/* Emit an assembler label. */ +static void emit_asm_label(BuildCtx *ctx, const char *name, int size, int isfunc) +{ + switch (ctx->mode) { + case BUILD_elfasm: +#if LJ_TARGET_PS3 + if (!strncmp(name, "lj_vm_", 6) && + strcmp(name, ctx->beginsym) && + !strstr(name, "hook")) { + fprintf(ctx->fp, + "\n\t.globl %s\n" + "\t.section \".opd\",\"aw\"\n" + "%s:\n" + "\t.long .%s,.TOC.@tocbase32\n" + "\t.size %s,8\n" + "\t.previous\n" + "\t.globl .%s\n" + "\t.hidden .%s\n" + "\t.type .%s, " ELFASM_PX "function\n" + "\t.size .%s, %d\n" + ".%s:\n", + name, name, name, name, name, name, name, name, size, name); + break; + } +#endif + fprintf(ctx->fp, + "\n\t.globl %s\n" + "\t.hidden %s\n" + "\t.type %s, " ELFASM_PX "%s\n" + "\t.size %s, %d\n" + "%s:\n", + name, name, name, isfunc ? "function" : "object", name, size, name); + break; + case BUILD_coffasm: + fprintf(ctx->fp, "\n\t.globl %s\n", name); + if (isfunc) + fprintf(ctx->fp, "\t.def %s; .scl 3; .type 32; .endef\n", name); + fprintf(ctx->fp, "%s:\n", name); + break; + case BUILD_machasm: + fprintf(ctx->fp, + "\n\t.private_extern %s\n" + "%s:\n", name, name); + break; + default: + break; + } +} + +/* Emit alignment. */ +static void emit_asm_align(BuildCtx *ctx, int bits) +{ + switch (ctx->mode) { + case BUILD_elfasm: + case BUILD_coffasm: + fprintf(ctx->fp, "\t.p2align %d\n", bits); + break; + case BUILD_machasm: + fprintf(ctx->fp, "\t.align %d\n", bits); + break; + default: + break; + } +} + +/* ------------------------------------------------------------------------ */ + +/* Emit assembler source code. */ +void emit_asm(BuildCtx *ctx) +{ + int i, rel; + + fprintf(ctx->fp, "\t.file \"buildvm_%s.dasc\"\n", ctx->dasm_arch); + fprintf(ctx->fp, "\t.text\n"); + emit_asm_align(ctx, 4); + +#if LJ_TARGET_PS3 + emit_asm_label(ctx, ctx->beginsym, ctx->codesz, 0); +#else + emit_asm_label(ctx, ctx->beginsym, 0, 0); +#endif + if (ctx->mode != BUILD_machasm) + fprintf(ctx->fp, ".Lbegin:\n"); + +#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND + /* This should really be moved into buildvm_arm.dasc. */ + fprintf(ctx->fp, + ".fnstart\n" + ".save {r4, r5, r6, r7, r8, r9, r10, r11, lr}\n" + ".pad #28\n"); +#endif +#if LJ_TARGET_MIPS + fprintf(ctx->fp, ".set nomips16\n.abicalls\n.set noreorder\n.set nomacro\n"); +#endif + + for (i = rel = 0; i < ctx->nsym; i++) { + int32_t ofs = ctx->sym[i].ofs; + int32_t next = ctx->sym[i+1].ofs; +#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND && LJ_HASFFI + if (!strcmp(ctx->sym[i].name, "lj_vm_ffi_call")) + fprintf(ctx->fp, + ".globl lj_err_unwind_arm\n" + ".personality lj_err_unwind_arm\n" + ".fnend\n" + ".fnstart\n" + ".save {r4, r5, r11, lr}\n" + ".setfp r11, sp\n"); +#endif + emit_asm_label(ctx, ctx->sym[i].name, next - ofs, 1); + while (rel < ctx->nreloc && ctx->reloc[rel].ofs <= next) { + BuildReloc *r = &ctx->reloc[rel]; + int n = r->ofs - ofs; +#if LJ_TARGET_X86ORX64 + if (ctx->mode == BUILD_machasm && r->type != 0) { + emit_asm_reloc_mach(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); + } else { + emit_asm_bytes(ctx, ctx->code+ofs, n); + emit_asm_reloc(ctx, r->type, ctx->relocsym[r->sym]); + } + ofs += n+4; +#else + emit_asm_wordreloc(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); + ofs += n; +#endif + rel++; + } +#if LJ_TARGET_X86ORX64 + emit_asm_bytes(ctx, ctx->code+ofs, next-ofs); +#else + emit_asm_words(ctx, ctx->code+ofs, next-ofs); +#endif + } + +#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND + fprintf(ctx->fp, +#if !LJ_HASFFI + ".globl lj_err_unwind_arm\n" + ".personality lj_err_unwind_arm\n" +#endif + ".fnend\n"); +#endif + + fprintf(ctx->fp, "\n"); + switch (ctx->mode) { + case BUILD_elfasm: +#if !(LJ_TARGET_PS3 || LJ_TARGET_PSVITA) + fprintf(ctx->fp, "\t.section .note.GNU-stack,\"\"," ELFASM_PX "progbits\n"); +#endif +#if LJ_TARGET_PPCSPE + /* Soft-float ABI + SPE. */ + fprintf(ctx->fp, "\t.gnu_attribute 4, 2\n\t.gnu_attribute 8, 3\n"); +#elif LJ_TARGET_PPC && !LJ_TARGET_PS3 + /* Hard-float ABI. */ + fprintf(ctx->fp, "\t.gnu_attribute 4, 1\n"); +#endif + /* fallthrough */ + case BUILD_coffasm: + fprintf(ctx->fp, "\t.ident \"%s\"\n", ctx->dasm_ident); + break; + case BUILD_machasm: + fprintf(ctx->fp, + "\t.cstring\n" + "\t.ascii \"%s\\0\"\n", ctx->dasm_ident); + break; + default: + break; + } + fprintf(ctx->fp, "\n"); +} + diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_fold.c b/src/3rd party/luajit-2.0/src/host/buildvm_fold.c new file mode 100644 index 00000000000..daed7eccb22 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm_fold.c @@ -0,0 +1,229 @@ +/* +** LuaJIT VM builder: IR folding hash table generator. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "buildvm.h" +#include "lj_obj.h" +#include "lj_ir.h" + +/* Context for the folding hash table generator. */ +static int lineno; +static int funcidx; +static uint32_t foldkeys[BUILD_MAX_FOLD]; +static uint32_t nkeys; + +/* Try to fill the hash table with keys using the hash parameters. */ +static int tryhash(uint32_t *htab, uint32_t sz, uint32_t r, int dorol) +{ + uint32_t i; + if (dorol && ((r & 31) == 0 || (r>>5) == 0)) + return 0; /* Avoid zero rotates. */ + memset(htab, 0xff, (sz+1)*sizeof(uint32_t)); + for (i = 0; i < nkeys; i++) { + uint32_t key = foldkeys[i]; + uint32_t k = key & 0xffffff; + uint32_t h = (dorol ? lj_rol(lj_rol(k, r>>5) - k, r&31) : + (((k << (r>>5)) - k) << (r&31))) % sz; + if (htab[h] != 0xffffffff) { /* Collision on primary slot. */ + if (htab[h+1] != 0xffffffff) { /* Collision on secondary slot. */ + /* Try to move the colliding key, if possible. */ + if (h < sz-1 && htab[h+2] == 0xffffffff) { + uint32_t k2 = htab[h+1] & 0xffffff; + uint32_t h2 = (dorol ? lj_rol(lj_rol(k2, r>>5) - k2, r&31) : + (((k2 << (r>>5)) - k2) << (r&31))) % sz; + if (h2 != h+1) return 0; /* Cannot resolve collision. */ + htab[h+2] = htab[h+1]; /* Move colliding key to secondary slot. */ + } else { + return 0; /* Collision. */ + } + } + htab[h+1] = key; + } else { + htab[h] = key; + } + } + return 1; /* Success, all keys could be stored. */ +} + +/* Print the generated hash table. */ +static void printhash(BuildCtx *ctx, uint32_t *htab, uint32_t sz) +{ + uint32_t i; + fprintf(ctx->fp, "static const uint32_t fold_hash[%d] = {\n0x%08x", + sz+1, htab[0]); + for (i = 1; i < sz+1; i++) + fprintf(ctx->fp, ",\n0x%08x", htab[i]); + fprintf(ctx->fp, "\n};\n\n"); +} + +/* Exhaustive search for the shortest semi-perfect hash table. */ +static void makehash(BuildCtx *ctx) +{ + uint32_t htab[BUILD_MAX_FOLD*2+1]; + uint32_t sz, r; + /* Search for the smallest hash table with an odd size. */ + for (sz = (nkeys|1); sz < BUILD_MAX_FOLD*2; sz += 2) { + /* First try all shift hash combinations. */ + for (r = 0; r < 32*32; r++) { + if (tryhash(htab, sz, r, 0)) { + printhash(ctx, htab, sz); + fprintf(ctx->fp, + "#define fold_hashkey(k)\t(((((k)<<%u)-(k))<<%u)%%%u)\n\n", + r>>5, r&31, sz); + return; + } + } + /* Then try all rotate hash combinations. */ + for (r = 0; r < 32*32; r++) { + if (tryhash(htab, sz, r, 1)) { + printhash(ctx, htab, sz); + fprintf(ctx->fp, + "#define fold_hashkey(k)\t(lj_rol(lj_rol((k),%u)-(k),%u)%%%u)\n\n", + r>>5, r&31, sz); + return; + } + } + } + fprintf(stderr, "Error: search for perfect hash failed\n"); + exit(1); +} + +/* Parse one token of a fold rule. */ +static uint32_t nexttoken(char **pp, int allowlit, int allowany) +{ + char *p = *pp; + if (p) { + uint32_t i; + char *q = strchr(p, ' '); + if (q) *q++ = '\0'; + *pp = q; + if (allowlit && !strncmp(p, "IRFPM_", 6)) { + for (i = 0; irfpm_names[i]; i++) + if (!strcmp(irfpm_names[i], p+6)) + return i; + } else if (allowlit && !strncmp(p, "IRFL_", 5)) { + for (i = 0; irfield_names[i]; i++) + if (!strcmp(irfield_names[i], p+5)) + return i; + } else if (allowlit && !strncmp(p, "IRCALL_", 7)) { + for (i = 0; ircall_names[i]; i++) + if (!strcmp(ircall_names[i], p+7)) + return i; + } else if (allowlit && !strncmp(p, "IRCONV_", 7)) { + for (i = 0; irt_names[i]; i++) { + const char *r = strchr(p+7, '_'); + if (r && !strncmp(irt_names[i], p+7, r-(p+7))) { + uint32_t j; + for (j = 0; irt_names[j]; j++) + if (!strcmp(irt_names[j], r+1)) + return (i << 5) + j; + } + } + } else if (allowlit && *p >= '0' && *p <= '9') { + for (i = 0; *p >= '0' && *p <= '9'; p++) + i = i*10 + (*p - '0'); + if (*p == '\0') + return i; + } else if (allowany && !strcmp("any", p)) { + return allowany; + } else { + for (i = 0; ir_names[i]; i++) + if (!strcmp(ir_names[i], p)) + return i; + } + fprintf(stderr, "Error: bad fold definition token \"%s\" at line %d\n", p, lineno); + exit(1); + } + return 0; +} + +/* Parse a fold rule. */ +static void foldrule(char *p) +{ + uint32_t op = nexttoken(&p, 0, 0); + uint32_t left = nexttoken(&p, 0, 0x7f); + uint32_t right = nexttoken(&p, 1, 0x3ff); + uint32_t key = (funcidx << 24) | (op << 17) | (left << 10) | right; + uint32_t i; + if (nkeys >= BUILD_MAX_FOLD) { + fprintf(stderr, "Error: too many fold rules, increase BUILD_MAX_FOLD.\n"); + exit(1); + } + /* Simple insertion sort to detect duplicates. */ + for (i = nkeys; i > 0; i--) { + if ((foldkeys[i-1]&0xffffff) < (key & 0xffffff)) + break; + if ((foldkeys[i-1]&0xffffff) == (key & 0xffffff)) { + fprintf(stderr, "Error: duplicate fold definition at line %d\n", lineno); + exit(1); + } + foldkeys[i] = foldkeys[i-1]; + } + foldkeys[i] = key; + nkeys++; +} + +/* Emit C source code for IR folding hash table. */ +void emit_fold(BuildCtx *ctx) +{ + char buf[256]; /* We don't care about analyzing lines longer than that. */ + const char *fname = ctx->args[0]; + FILE *fp; + + if (fname == NULL) { + fprintf(stderr, "Error: missing input filename\n"); + exit(1); + } + + if (fname[0] == '-' && fname[1] == '\0') { + fp = stdin; + } else { + fp = fopen(fname, "r"); + if (!fp) { + fprintf(stderr, "Error: cannot open input file '%s': %s\n", + fname, strerror(errno)); + exit(1); + } + } + + fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); + fprintf(ctx->fp, "static const FoldFunc fold_func[] = {\n"); + + lineno = 0; + funcidx = 0; + nkeys = 0; + while (fgets(buf, sizeof(buf), fp) != NULL) { + lineno++; + /* The prefix must be at the start of a line, otherwise it's ignored. */ + if (!strncmp(buf, FOLDDEF_PREFIX, sizeof(FOLDDEF_PREFIX)-1)) { + char *p = buf+sizeof(FOLDDEF_PREFIX)-1; + char *q = strchr(p, ')'); + if (p[0] == '(' && q) { + p++; + *q = '\0'; + foldrule(p); + } else if ((p[0] == 'F' || p[0] == 'X') && p[1] == '(' && q) { + p += 2; + *q = '\0'; + if (funcidx) + fprintf(ctx->fp, ",\n"); + if (p[-2] == 'X') + fprintf(ctx->fp, " %s", p); + else + fprintf(ctx->fp, " fold_%s", p); + funcidx++; + } else { + buf[strlen(buf)-1] = '\0'; + fprintf(stderr, "Error: unknown fold definition tag %s%s at line %d\n", + FOLDDEF_PREFIX, p, lineno); + exit(1); + } + } + } + fclose(fp); + fprintf(ctx->fp, "\n};\n\n"); + + makehash(ctx); +} + diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_lib.c b/src/3rd party/luajit-2.0/src/host/buildvm_lib.c new file mode 100644 index 00000000000..c37301d462c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm_lib.c @@ -0,0 +1,398 @@ +/* +** LuaJIT VM builder: library definition compiler. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "buildvm.h" +#include "lj_obj.h" +#include "lj_lib.h" + +/* Context for library definitions. */ +static uint8_t obuf[8192]; +static uint8_t *optr; +static char modname[80]; +static size_t modnamelen; +static char funcname[80]; +static int modstate, regfunc; +static int ffid, recffid, ffasmfunc; + +enum { + REGFUNC_OK, + REGFUNC_NOREG, + REGFUNC_NOREGUV +}; + +static void libdef_name(const char *p, int kind) +{ + size_t n = strlen(p); + if (kind != LIBINIT_STRING) { + if (n > modnamelen && p[modnamelen] == '_' && + !strncmp(p, modname, modnamelen)) { + p += modnamelen+1; + n -= modnamelen+1; + } + } + if (n > LIBINIT_MAXSTR) { + fprintf(stderr, "Error: string too long: '%s'\n", p); + exit(1); + } + if (optr+1+n+2 > obuf+sizeof(obuf)) { /* +2 for caller. */ + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + *optr++ = (uint8_t)(n | kind); + memcpy(optr, p, n); + optr += n; +} + +static void libdef_endmodule(BuildCtx *ctx) +{ + if (modstate != 0) { + char line[80]; + const uint8_t *p; + int n; + if (modstate == 1) + fprintf(ctx->fp, " (lua_CFunction)0"); + fprintf(ctx->fp, "\n};\n"); + fprintf(ctx->fp, "static const uint8_t %s%s[] = {\n", + LABEL_PREFIX_LIBINIT, modname); + line[0] = '\0'; + for (n = 0, p = obuf; p < optr; p++) { + n += sprintf(line+n, "%d,", *p); + if (n >= 75) { + fprintf(ctx->fp, "%s\n", line); + n = 0; + line[0] = '\0'; + } + } + fprintf(ctx->fp, "%s%d\n};\n#endif\n\n", line, LIBINIT_END); + } +} + +static void libdef_module(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(arg); + if (ctx->mode == BUILD_libdef) { + libdef_endmodule(ctx); + optr = obuf; + *optr++ = (uint8_t)ffid; + *optr++ = (uint8_t)ffasmfunc; + *optr++ = 0; /* Hash table size. */ + modstate = 1; + fprintf(ctx->fp, "#ifdef %sMODULE_%s\n", LIBDEF_PREFIX, p); + fprintf(ctx->fp, "#undef %sMODULE_%s\n", LIBDEF_PREFIX, p); + fprintf(ctx->fp, "static const lua_CFunction %s%s[] = {\n", + LABEL_PREFIX_LIBCF, p); + } + modnamelen = strlen(p); + if (modnamelen > sizeof(modname)-1) { + fprintf(stderr, "Error: module name too long: '%s'\n", p); + exit(1); + } + strcpy(modname, p); +} + +static int find_ffofs(BuildCtx *ctx, const char *name) +{ + int i; + for (i = 0; i < ctx->nglob; i++) { + const char *gl = ctx->globnames[i]; + if (gl[0] == 'f' && gl[1] == 'f' && gl[2] == '_' && !strcmp(gl+3, name)) { + return (int)((uint8_t *)ctx->glob[i] - ctx->code); + } + } + fprintf(stderr, "Error: undefined fast function %s%s\n", + LABEL_PREFIX_FF, name); + exit(1); +} + +static void libdef_func(BuildCtx *ctx, char *p, int arg) +{ + if (arg != LIBINIT_CF) + ffasmfunc++; + if (ctx->mode == BUILD_libdef) { + if (modstate == 0) { + fprintf(stderr, "Error: no module for function definition %s\n", p); + exit(1); + } + if (regfunc == REGFUNC_NOREG) { + if (optr+1 > obuf+sizeof(obuf)) { + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + *optr++ = LIBINIT_FFID; + } else { + if (arg != LIBINIT_ASM_) { + if (modstate != 1) fprintf(ctx->fp, ",\n"); + modstate = 2; + fprintf(ctx->fp, " %s%s", arg ? LABEL_PREFIX_FFH : LABEL_PREFIX_CF, p); + } + if (regfunc != REGFUNC_NOREGUV) obuf[2]++; /* Bump hash table size. */ + libdef_name(regfunc == REGFUNC_NOREGUV ? "" : p, arg); + } + } else if (ctx->mode == BUILD_ffdef) { + fprintf(ctx->fp, "FFDEF(%s)\n", p); + } else if (ctx->mode == BUILD_recdef) { + if (strlen(p) > sizeof(funcname)-1) { + fprintf(stderr, "Error: function name too long: '%s'\n", p); + exit(1); + } + strcpy(funcname, p); + } else if (ctx->mode == BUILD_vmdef) { + int i; + for (i = 1; p[i] && modname[i-1]; i++) + if (p[i] == '_') p[i] = '.'; + fprintf(ctx->fp, "\"%s\",\n", p); + } else if (ctx->mode == BUILD_bcdef) { + if (arg != LIBINIT_CF) + fprintf(ctx->fp, ",\n%d", find_ffofs(ctx, p)); + } + ffid++; + regfunc = REGFUNC_OK; +} + +static uint32_t find_rec(char *name) +{ + char *p = (char *)obuf; + uint32_t n; + for (n = 2; *p; n++) { + if (strcmp(p, name) == 0) + return n; + p += strlen(p)+1; + } + if (p+strlen(name)+1 >= (char *)obuf+sizeof(obuf)) { + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + strcpy(p, name); + return n; +} + +static void libdef_rec(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(arg); + if (ctx->mode == BUILD_recdef) { + char *q; + uint32_t n; + for (; recffid+1 < ffid; recffid++) + fprintf(ctx->fp, ",\n0"); + recffid = ffid; + if (*p == '.') p = funcname; + q = strchr(p, ' '); + if (q) *q++ = '\0'; + n = find_rec(p); + if (q) + fprintf(ctx->fp, ",\n0x%02x00+(%s)", n, q); + else + fprintf(ctx->fp, ",\n0x%02x00", n); + } +} + +static void memcpy_endian(void *dst, void *src, size_t n) +{ + union { uint8_t b; uint32_t u; } host_endian; + host_endian.u = 1; + if (host_endian.b == LJ_ENDIAN_SELECT(1, 0)) { + memcpy(dst, src, n); + } else { + size_t i; + for (i = 0; i < n; i++) + ((uint8_t *)dst)[i] = ((uint8_t *)src)[n-i-1]; + } +} + +static void libdef_push(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(arg); + if (ctx->mode == BUILD_libdef) { + int len = (int)strlen(p); + if (*p == '"') { + if (len > 1 && p[len-1] == '"') { + p[len-1] = '\0'; + libdef_name(p+1, LIBINIT_STRING); + return; + } + } else if (*p >= '0' && *p <= '9') { + char *ep; + double d = strtod(p, &ep); + if (*ep == '\0') { + if (optr+1+sizeof(double) > obuf+sizeof(obuf)) { + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + *optr++ = LIBINIT_NUMBER; + memcpy_endian(optr, &d, sizeof(double)); + optr += sizeof(double); + return; + } + } else if (!strcmp(p, "lastcl")) { + if (optr+1 > obuf+sizeof(obuf)) { + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + *optr++ = LIBINIT_LASTCL; + return; + } else if (len > 4 && !strncmp(p, "top-", 4)) { + if (optr+2 > obuf+sizeof(obuf)) { + fprintf(stderr, "Error: output buffer overflow\n"); + exit(1); + } + *optr++ = LIBINIT_COPY; + *optr++ = (uint8_t)atoi(p+4); + return; + } + fprintf(stderr, "Error: bad value for %sPUSH(%s)\n", LIBDEF_PREFIX, p); + exit(1); + } +} + +static void libdef_set(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(arg); + if (ctx->mode == BUILD_libdef) { + if (p[0] == '!' && p[1] == '\0') p[0] = '\0'; /* Set env. */ + libdef_name(p, LIBINIT_STRING); + *optr++ = LIBINIT_SET; + obuf[2]++; /* Bump hash table size. */ + } +} + +static void libdef_regfunc(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(ctx); UNUSED(p); + regfunc = arg; +} + +typedef void (*LibDefFunc)(BuildCtx *ctx, char *p, int arg); + +typedef struct LibDefHandler { + const char *suffix; + const char *stop; + const LibDefFunc func; + const int arg; +} LibDefHandler; + +static const LibDefHandler libdef_handlers[] = { + { "MODULE_", " \t\r\n", libdef_module, 0 }, + { "CF(", ")", libdef_func, LIBINIT_CF }, + { "ASM(", ")", libdef_func, LIBINIT_ASM }, + { "ASM_(", ")", libdef_func, LIBINIT_ASM_ }, + { "REC(", ")", libdef_rec, 0 }, + { "PUSH(", ")", libdef_push, 0 }, + { "SET(", ")", libdef_set, 0 }, + { "NOREGUV", NULL, libdef_regfunc, REGFUNC_NOREGUV }, + { "NOREG", NULL, libdef_regfunc, REGFUNC_NOREG }, + { NULL, NULL, (LibDefFunc)0, 0 } +}; + +/* Emit C source code for library function definitions. */ +void emit_lib(BuildCtx *ctx) +{ + const char *fname; + + if (ctx->mode == BUILD_ffdef || ctx->mode == BUILD_libdef || + ctx->mode == BUILD_recdef) + fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); + else if (ctx->mode == BUILD_vmdef) + fprintf(ctx->fp, "ffnames = {\n[0]=\"Lua\",\n\"C\",\n"); + if (ctx->mode == BUILD_recdef) + fprintf(ctx->fp, "static const uint16_t recff_idmap[] = {\n0,\n0x0100"); + recffid = ffid = FF_C+1; + ffasmfunc = 0; + + while ((fname = *ctx->args++)) { + char buf[256]; /* We don't care about analyzing lines longer than that. */ + FILE *fp; + if (fname[0] == '-' && fname[1] == '\0') { + fp = stdin; + } else { + fp = fopen(fname, "r"); + if (!fp) { + fprintf(stderr, "Error: cannot open input file '%s': %s\n", + fname, strerror(errno)); + exit(1); + } + } + modstate = 0; + regfunc = REGFUNC_OK; + while (fgets(buf, sizeof(buf), fp) != NULL) { + char *p; + /* Simplistic pre-processor. Only handles top-level #if/#endif. */ + if (buf[0] == '#' && buf[1] == 'i' && buf[2] == 'f') { + int ok = 1; + if (!strcmp(buf, "#if LJ_52\n")) + ok = LJ_52; + else if (!strcmp(buf, "#if LJ_HASJIT\n")) + ok = LJ_HASJIT; + else if (!strcmp(buf, "#if LJ_HASFFI\n")) + ok = LJ_HASFFI; + if (!ok) { + int lvl = 1; + while (fgets(buf, sizeof(buf), fp) != NULL) { + if (buf[0] == '#' && buf[1] == 'e' && buf[2] == 'n') { + if (--lvl == 0) break; + } else if (buf[0] == '#' && buf[1] == 'i' && buf[2] == 'f') { + lvl++; + } + } + continue; + } + } + for (p = buf; (p = strstr(p, LIBDEF_PREFIX)) != NULL; ) { + const LibDefHandler *ldh; + p += sizeof(LIBDEF_PREFIX)-1; + for (ldh = libdef_handlers; ldh->suffix != NULL; ldh++) { + size_t n, len = strlen(ldh->suffix); + if (!strncmp(p, ldh->suffix, len)) { + p += len; + n = ldh->stop ? strcspn(p, ldh->stop) : 0; + if (!p[n]) break; + p[n] = '\0'; + ldh->func(ctx, p, ldh->arg); + p += n+1; + break; + } + } + if (ldh->suffix == NULL) { + buf[strlen(buf)-1] = '\0'; + fprintf(stderr, "Error: unknown library definition tag %s%s\n", + LIBDEF_PREFIX, p); + exit(1); + } + } + } + fclose(fp); + if (ctx->mode == BUILD_libdef) { + libdef_endmodule(ctx); + } + } + + if (ctx->mode == BUILD_ffdef) { + fprintf(ctx->fp, "\n#undef FFDEF\n\n"); + fprintf(ctx->fp, + "#ifndef FF_NUM_ASMFUNC\n#define FF_NUM_ASMFUNC %d\n#endif\n\n", + ffasmfunc); + } else if (ctx->mode == BUILD_vmdef) { + fprintf(ctx->fp, "}\n\n"); + } else if (ctx->mode == BUILD_bcdef) { + int i; + fprintf(ctx->fp, "\n};\n\n"); + fprintf(ctx->fp, "LJ_DATADEF const uint16_t lj_bc_mode[] = {\n"); + fprintf(ctx->fp, "BCDEF(BCMODE)\n"); + for (i = ffasmfunc-1; i > 0; i--) + fprintf(ctx->fp, "BCMODE_FF,\n"); + fprintf(ctx->fp, "BCMODE_FF\n};\n\n"); + } else if (ctx->mode == BUILD_recdef) { + char *p = (char *)obuf; + fprintf(ctx->fp, "\n};\n\n"); + fprintf(ctx->fp, "static const RecordFunc recff_func[] = {\n" + "recff_nyi,\n" + "recff_c"); + while (*p) { + fprintf(ctx->fp, ",\nrecff_%s", p); + p += strlen(p)+1; + } + fprintf(ctx->fp, "\n};\n\n"); + } +} + diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_peobj.c b/src/3rd party/luajit-2.0/src/host/buildvm_peobj.c new file mode 100644 index 00000000000..4279f50050b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm_peobj.c @@ -0,0 +1,368 @@ +/* +** LuaJIT VM builder: PE object emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Only used for building on Windows, since we cannot assume the presence +** of a suitable assembler. The host and target byte order must match. +*/ + +#include "buildvm.h" +#include "lj_bc.h" + +#if LJ_TARGET_X86ORX64 || LJ_TARGET_PPC + +/* Context for PE object emitter. */ +static char *strtab; +static size_t strtabofs; + +/* -- PE object definitions ----------------------------------------------- */ + +/* PE header. */ +typedef struct PEheader { + uint16_t arch; + uint16_t nsects; + uint32_t time; + uint32_t symtabofs; + uint32_t nsyms; + uint16_t opthdrsz; + uint16_t flags; +} PEheader; + +/* PE section. */ +typedef struct PEsection { + char name[8]; + uint32_t vsize; + uint32_t vaddr; + uint32_t size; + uint32_t ofs; + uint32_t relocofs; + uint32_t lineofs; + uint16_t nreloc; + uint16_t nline; + uint32_t flags; +} PEsection; + +/* PE relocation. */ +typedef struct PEreloc { + uint32_t vaddr; + uint32_t symidx; + uint16_t type; +} PEreloc; + +/* Cannot use sizeof, because it pads up to the max. alignment. */ +#define PEOBJ_RELOC_SIZE (4+4+2) + +/* PE symbol table entry. */ +typedef struct PEsym { + union { + char name[8]; + uint32_t nameref[2]; + } n; + uint32_t value; + int16_t sect; + uint16_t type; + uint8_t scl; + uint8_t naux; +} PEsym; + +/* PE symbol table auxiliary entry for a section. */ +typedef struct PEsymaux { + uint32_t size; + uint16_t nreloc; + uint16_t nline; + uint32_t cksum; + uint16_t assoc; + uint8_t comdatsel; + uint8_t unused[3]; +} PEsymaux; + +/* Cannot use sizeof, because it pads up to the max. alignment. */ +#define PEOBJ_SYM_SIZE (8+4+2+2+1+1) + +/* PE object CPU specific defines. */ +#if LJ_TARGET_X86 +#define PEOBJ_ARCH_TARGET 0x014c +#define PEOBJ_RELOC_REL32 0x14 /* MS: REL32, GNU: DISP32. */ +#define PEOBJ_RELOC_DIR32 0x06 +#define PEOBJ_RELOC_OFS 0 +#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */ +#elif LJ_TARGET_X64 +#define PEOBJ_ARCH_TARGET 0x8664 +#define PEOBJ_RELOC_REL32 0x04 /* MS: REL32, GNU: DISP32. */ +#define PEOBJ_RELOC_DIR32 0x02 +#define PEOBJ_RELOC_ADDR32NB 0x03 +#define PEOBJ_RELOC_OFS 0 +#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */ +#elif LJ_TARGET_PPC +#define PEOBJ_ARCH_TARGET 0x01f2 +#define PEOBJ_RELOC_REL32 0x06 +#define PEOBJ_RELOC_DIR32 0x02 +#define PEOBJ_RELOC_OFS (-4) +#define PEOBJ_TEXT_FLAGS 0x60400020 /* 60=r+x, 40=align8, 20=code. */ +#endif + +/* Section numbers (0-based). */ +enum { + PEOBJ_SECT_ABS = -2, + PEOBJ_SECT_UNDEF = -1, + PEOBJ_SECT_TEXT, +#if LJ_TARGET_X64 + PEOBJ_SECT_PDATA, + PEOBJ_SECT_XDATA, +#endif + PEOBJ_SECT_RDATA_Z, + PEOBJ_NSECTIONS +}; + +/* Symbol types. */ +#define PEOBJ_TYPE_NULL 0 +#define PEOBJ_TYPE_FUNC 0x20 + +/* Symbol storage class. */ +#define PEOBJ_SCL_EXTERN 2 +#define PEOBJ_SCL_STATIC 3 + +/* -- PE object emitter --------------------------------------------------- */ + +/* Emit PE object symbol. */ +static void emit_peobj_sym(BuildCtx *ctx, const char *name, uint32_t value, + int sect, int type, int scl) +{ + PEsym sym; + size_t len = strlen(name); + if (!strtab) { /* Pass 1: only calculate string table length. */ + if (len > 8) strtabofs += len+1; + return; + } + if (len <= 8) { + memcpy(sym.n.name, name, len); + memset(sym.n.name+len, 0, 8-len); + } else { + sym.n.nameref[0] = 0; + sym.n.nameref[1] = (uint32_t)strtabofs; + memcpy(strtab + strtabofs, name, len); + strtab[strtabofs+len] = 0; + strtabofs += len+1; + } + sym.value = value; + sym.sect = (int16_t)(sect+1); /* 1-based section number. */ + sym.type = (uint16_t)type; + sym.scl = (uint8_t)scl; + sym.naux = 0; + owrite(ctx, &sym, PEOBJ_SYM_SIZE); +} + +/* Emit PE object section symbol. */ +static void emit_peobj_sym_sect(BuildCtx *ctx, PEsection *pesect, int sect) +{ + PEsym sym; + PEsymaux aux; + if (!strtab) return; /* Pass 1: no output. */ + memcpy(sym.n.name, pesect[sect].name, 8); + sym.value = 0; + sym.sect = (int16_t)(sect+1); /* 1-based section number. */ + sym.type = PEOBJ_TYPE_NULL; + sym.scl = PEOBJ_SCL_STATIC; + sym.naux = 1; + owrite(ctx, &sym, PEOBJ_SYM_SIZE); + memset(&aux, 0, sizeof(PEsymaux)); + aux.size = pesect[sect].size; + aux.nreloc = pesect[sect].nreloc; + owrite(ctx, &aux, PEOBJ_SYM_SIZE); +} + +/* Emit Windows PE object file. */ +void emit_peobj(BuildCtx *ctx) +{ + PEheader pehdr; + PEsection pesect[PEOBJ_NSECTIONS]; + uint32_t sofs; + int i, nrsym; + union { uint8_t b; uint32_t u; } host_endian; + + sofs = sizeof(PEheader) + PEOBJ_NSECTIONS*sizeof(PEsection); + + /* Fill in PE sections. */ + memset(&pesect, 0, PEOBJ_NSECTIONS*sizeof(PEsection)); + memcpy(pesect[PEOBJ_SECT_TEXT].name, ".text", sizeof(".text")-1); + pesect[PEOBJ_SECT_TEXT].ofs = sofs; + sofs += (pesect[PEOBJ_SECT_TEXT].size = (uint32_t)ctx->codesz); + pesect[PEOBJ_SECT_TEXT].relocofs = sofs; + sofs += (pesect[PEOBJ_SECT_TEXT].nreloc = (uint16_t)ctx->nreloc) * PEOBJ_RELOC_SIZE; + /* Flags: 60 = read+execute, 50 = align16, 20 = code. */ + pesect[PEOBJ_SECT_TEXT].flags = PEOBJ_TEXT_FLAGS; + +#if LJ_TARGET_X64 + memcpy(pesect[PEOBJ_SECT_PDATA].name, ".pdata", sizeof(".pdata")-1); + pesect[PEOBJ_SECT_PDATA].ofs = sofs; + sofs += (pesect[PEOBJ_SECT_PDATA].size = 6*4); + pesect[PEOBJ_SECT_PDATA].relocofs = sofs; + sofs += (pesect[PEOBJ_SECT_PDATA].nreloc = 6) * PEOBJ_RELOC_SIZE; + /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ + pesect[PEOBJ_SECT_PDATA].flags = 0x40300040; + + memcpy(pesect[PEOBJ_SECT_XDATA].name, ".xdata", sizeof(".xdata")-1); + pesect[PEOBJ_SECT_XDATA].ofs = sofs; + sofs += (pesect[PEOBJ_SECT_XDATA].size = 8*2+4+6*2); /* See below. */ + pesect[PEOBJ_SECT_XDATA].relocofs = sofs; + sofs += (pesect[PEOBJ_SECT_XDATA].nreloc = 1) * PEOBJ_RELOC_SIZE; + /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ + pesect[PEOBJ_SECT_XDATA].flags = 0x40300040; +#endif + + memcpy(pesect[PEOBJ_SECT_RDATA_Z].name, ".rdata$Z", sizeof(".rdata$Z")-1); + pesect[PEOBJ_SECT_RDATA_Z].ofs = sofs; + sofs += (pesect[PEOBJ_SECT_RDATA_Z].size = (uint32_t)strlen(ctx->dasm_ident)+1); + /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ + pesect[PEOBJ_SECT_RDATA_Z].flags = 0x40300040; + + /* Fill in PE header. */ + pehdr.arch = PEOBJ_ARCH_TARGET; + pehdr.nsects = PEOBJ_NSECTIONS; + pehdr.time = 0; /* Timestamp is optional. */ + pehdr.symtabofs = sofs; + pehdr.opthdrsz = 0; + pehdr.flags = 0; + + /* Compute the size of the symbol table: + ** @feat.00 + nsections*2 + ** + asm_start + nsym + ** + nrsym + */ + nrsym = ctx->nrelocsym; + pehdr.nsyms = 1+PEOBJ_NSECTIONS*2 + 1+ctx->nsym + nrsym; +#if LJ_TARGET_X64 + pehdr.nsyms += 1; /* Symbol for lj_err_unwind_win64. */ +#endif + + /* Write PE object header and all sections. */ + owrite(ctx, &pehdr, sizeof(PEheader)); + owrite(ctx, &pesect, sizeof(PEsection)*PEOBJ_NSECTIONS); + + /* Write .text section. */ + host_endian.u = 1; + if (host_endian.b != LJ_ENDIAN_SELECT(1, 0)) { +#if LJ_TARGET_PPC + uint32_t *p = (uint32_t *)ctx->code; + int n = (int)(ctx->codesz >> 2); + for (i = 0; i < n; i++, p++) + *p = lj_bswap(*p); /* Byteswap .text section. */ +#else + fprintf(stderr, "Error: different byte order for host and target\n"); + exit(1); +#endif + } + owrite(ctx, ctx->code, ctx->codesz); + for (i = 0; i < ctx->nreloc; i++) { + PEreloc reloc; + reloc.vaddr = (uint32_t)ctx->reloc[i].ofs + PEOBJ_RELOC_OFS; + reloc.symidx = 1+2+ctx->reloc[i].sym; /* Reloc syms are after .text sym. */ + reloc.type = ctx->reloc[i].type ? PEOBJ_RELOC_REL32 : PEOBJ_RELOC_DIR32; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + } + +#if LJ_TARGET_X64 + { /* Write .pdata section. */ + uint32_t fcofs = (uint32_t)ctx->sym[ctx->nsym-1].ofs; + uint32_t pdata[3]; /* Start of .text, end of .text and .xdata. */ + PEreloc reloc; + pdata[0] = 0; pdata[1] = fcofs; pdata[2] = 0; + owrite(ctx, &pdata, sizeof(pdata)); + pdata[0] = fcofs; pdata[1] = (uint32_t)ctx->codesz; pdata[2] = 20; + owrite(ctx, &pdata, sizeof(pdata)); + reloc.vaddr = 0; reloc.symidx = 1+2+nrsym+2+2+1; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + reloc.vaddr = 4; reloc.symidx = 1+2+nrsym+2+2+1; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + reloc.vaddr = 8; reloc.symidx = 1+2+nrsym+2; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + reloc.vaddr = 12; reloc.symidx = 1+2+nrsym+2+2+1; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + reloc.vaddr = 16; reloc.symidx = 1+2+nrsym+2+2+1; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + reloc.vaddr = 20; reloc.symidx = 1+2+nrsym+2; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + } + { /* Write .xdata section. */ + uint16_t xdata[8+2+6]; + PEreloc reloc; + xdata[0] = 0x01|0x08|0x10; /* Ver. 1, uhandler/ehandler, prolog size 0. */ + xdata[1] = 0x0005; /* Number of unwind codes, no frame pointer. */ + xdata[2] = 0x4200; /* Stack offset 4*8+8 = aword*5. */ + xdata[3] = 0x3000; /* Push rbx. */ + xdata[4] = 0x6000; /* Push rsi. */ + xdata[5] = 0x7000; /* Push rdi. */ + xdata[6] = 0x5000; /* Push rbp. */ + xdata[7] = 0; /* Alignment. */ + xdata[8] = xdata[9] = 0; /* Relocated address of exception handler. */ + xdata[10] = 0x01; /* Ver. 1, no handler, prolog size 0. */ + xdata[11] = 0x1504; /* Number of unwind codes, fp = rbp, fpofs = 16. */ + xdata[12] = 0x0300; /* set_fpreg. */ + xdata[13] = 0x0200; /* stack offset 0*8+8 = aword*1. */ + xdata[14] = 0x3000; /* Push rbx. */ + xdata[15] = 0x5000; /* Push rbp. */ + owrite(ctx, &xdata, sizeof(xdata)); + reloc.vaddr = 2*8; reloc.symidx = 1+2+nrsym+2+2; + reloc.type = PEOBJ_RELOC_ADDR32NB; + owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); + } +#endif + + /* Write .rdata$Z section. */ + owrite(ctx, ctx->dasm_ident, strlen(ctx->dasm_ident)+1); + + /* Write symbol table. */ + strtab = NULL; /* 1st pass: collect string sizes. */ + for (;;) { + strtabofs = 4; + /* Mark as SafeSEH compliant. */ + emit_peobj_sym(ctx, "@feat.00", 1, + PEOBJ_SECT_ABS, PEOBJ_TYPE_NULL, PEOBJ_SCL_STATIC); + + emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_TEXT); + for (i = 0; i < nrsym; i++) + emit_peobj_sym(ctx, ctx->relocsym[i], 0, + PEOBJ_SECT_UNDEF, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); + +#if LJ_TARGET_X64 + emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_PDATA); + emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_XDATA); + emit_peobj_sym(ctx, "lj_err_unwind_win64", 0, + PEOBJ_SECT_UNDEF, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); +#endif + + emit_peobj_sym(ctx, ctx->beginsym, 0, + PEOBJ_SECT_TEXT, PEOBJ_TYPE_NULL, PEOBJ_SCL_EXTERN); + for (i = 0; i < ctx->nsym; i++) + emit_peobj_sym(ctx, ctx->sym[i].name, (uint32_t)ctx->sym[i].ofs, + PEOBJ_SECT_TEXT, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); + + emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_RDATA_Z); + + if (strtab) + break; + /* 2nd pass: alloc strtab, write syms and copy strings. */ + strtab = (char *)malloc(strtabofs); + *(uint32_t *)strtab = (uint32_t)strtabofs; + } + + /* Write string table. */ + owrite(ctx, strtab, strtabofs); +} + +#else + +void emit_peobj(BuildCtx *ctx) +{ + UNUSED(ctx); + fprintf(stderr, "Error: no PE object support for this target\n"); + exit(1); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/host/genminilua.lua b/src/3rd party/luajit-2.0/src/host/genminilua.lua new file mode 100644 index 00000000000..cd0d946628c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/genminilua.lua @@ -0,0 +1,428 @@ +---------------------------------------------------------------------------- +-- Lua script to generate a customized, minified version of Lua. +-- The resulting 'minilua' is used for the build process of LuaJIT. +---------------------------------------------------------------------------- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- + +local sub, match, gsub = string.sub, string.match, string.gsub + +local LUA_VERSION = "5.1.5" +local LUA_SOURCE + +local function usage() + io.stderr:write("Usage: ", arg and arg[0] or "genminilua", + " lua-", LUA_VERSION, "-source-dir\n") + os.exit(1) +end + +local function find_sources() + LUA_SOURCE = arg and arg[1] + if not LUA_SOURCE then usage() end + if sub(LUA_SOURCE, -1) ~= "/" then LUA_SOURCE = LUA_SOURCE.."/" end + local fp = io.open(LUA_SOURCE .. "lua.h") + if not fp then + LUA_SOURCE = LUA_SOURCE.."src/" + fp = io.open(LUA_SOURCE .. "lua.h") + if not fp then usage() end + end + local all = fp:read("*a") + fp:close() + if not match(all, 'LUA_RELEASE%s*"Lua '..LUA_VERSION..'"') then + io.stderr:write("Error: version mismatch\n") + usage() + end +end + +local LUA_FILES = { +"lmem.c", "lobject.c", "ltm.c", "lfunc.c", "ldo.c", "lstring.c", "ltable.c", +"lgc.c", "lstate.c", "ldebug.c", "lzio.c", "lopcodes.c", +"llex.c", "lcode.c", "lparser.c", "lvm.c", "lapi.c", "lauxlib.c", +"lbaselib.c", "ltablib.c", "liolib.c", "loslib.c", "lstrlib.c", "linit.c", +} + +local REMOVE_LIB = {} +gsub([[ +collectgarbage dofile gcinfo getfenv getmetatable load print rawequal rawset +select tostring xpcall +foreach foreachi getn maxn setn +popen tmpfile seek setvbuf __tostring +clock date difftime execute getenv rename setlocale time tmpname +dump gfind len reverse +LUA_LOADLIBNAME LUA_MATHLIBNAME LUA_DBLIBNAME +]], "%S+", function(name) + REMOVE_LIB[name] = true +end) + +local REMOVE_EXTINC = { [""] = true, [""] = true, } + +local CUSTOM_MAIN = [[ +typedef unsigned int UB; +static UB barg(lua_State *L,int idx){ +union{lua_Number n;U64 b;}bn; +bn.n=lua_tonumber(L,idx)+6755399441055744.0; +if (bn.n==0.0&&!lua_isnumber(L,idx))luaL_typerror(L,idx,"number"); +return(UB)bn.b; +} +#define BRET(b) lua_pushnumber(L,(lua_Number)(int)(b));return 1; +static int tobit(lua_State *L){ +BRET(barg(L,1))} +static int bnot(lua_State *L){ +BRET(~barg(L,1))} +static int band(lua_State *L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b&=barg(L,i);BRET(b)} +static int bor(lua_State *L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b|=barg(L,i);BRET(b)} +static int bxor(lua_State *L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b^=barg(L,i);BRET(b)} +static int lshift(lua_State *L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET(b<>n)} +static int arshift(lua_State *L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((int)b>>n)} +static int rol(lua_State *L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((b<>(32-n)))} +static int ror(lua_State *L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((b>>n)|(b<<(32-n)))} +static int bswap(lua_State *L){ +UB b=barg(L,1);b=(b>>24)|((b>>8)&0xff00)|((b&0xff00)<<8)|(b<<24);BRET(b)} +static int tohex(lua_State *L){ +UB b=barg(L,1); +int n=lua_isnone(L,2)?8:(int)barg(L,2); +const char *hexdigits="0123456789abcdef"; +char buf[8]; +int i; +if(n<0){n=-n;hexdigits="0123456789ABCDEF";} +if(n>8)n=8; +for(i=(int)n;--i>=0;){buf[i]=hexdigits[b&15];b>>=4;} +lua_pushlstring(L,buf,(size_t)n); +return 1; +} +static const struct luaL_Reg bitlib[] = { +{"tobit",tobit}, +{"bnot",bnot}, +{"band",band}, +{"bor",bor}, +{"bxor",bxor}, +{"lshift",lshift}, +{"rshift",rshift}, +{"arshift",arshift}, +{"rol",rol}, +{"ror",ror}, +{"bswap",bswap}, +{"tohex",tohex}, +{NULL,NULL} +}; +int main(int argc, char **argv){ + lua_State *L = luaL_newstate(); + int i; + luaL_openlibs(L); + luaL_register(L, "bit", bitlib); + if (argc < 2) return sizeof(void *); + lua_createtable(L, 0, 1); + lua_pushstring(L, argv[1]); + lua_rawseti(L, -2, 0); + lua_setglobal(L, "arg"); + if (luaL_loadfile(L, argv[1])) + goto err; + for (i = 2; i < argc; i++) + lua_pushstring(L, argv[i]); + if (lua_pcall(L, argc - 2, 0, 0)) { + err: + fprintf(stderr, "Error: %s\n", lua_tostring(L, -1)); + return 1; + } + lua_close(L); + return 0; +} +]] + +local function read_sources() + local t = {} + for i, name in ipairs(LUA_FILES) do + local fp = assert(io.open(LUA_SOURCE..name, "r")) + t[i] = fp:read("*a") + assert(fp:close()) + end + t[#t+1] = CUSTOM_MAIN + return table.concat(t) +end + +local includes = {} + +local function merge_includes(src) + return gsub(src, '#include%s*"([^"]*)"%s*\n', function(name) + if includes[name] then return "" end + includes[name] = true + local fp = assert(io.open(LUA_SOURCE..name, "r")) + local src = fp:read("*a") + assert(fp:close()) + src = gsub(src, "#ifndef%s+%w+_h\n#define%s+%w+_h\n", "") + src = gsub(src, "#endif%s*$", "") + return merge_includes(src) + end) +end + +local function get_license(src) + return match(src, "/%*+\n%* Copyright %(.-%*/\n") +end + +local function fold_lines(src) + return gsub(src, "\\\n", " ") +end + +local strings = {} + +local function save_str(str) + local n = #strings+1 + strings[n] = str + return "\1"..n.."\2" +end + +local function save_strings(src) + src = gsub(src, '"[^"\n]*"', save_str) + return gsub(src, "'[^'\n]*'", save_str) +end + +local function restore_strings(src) + return gsub(src, "\1(%d+)\2", function(numstr) + return strings[tonumber(numstr)] + end) +end + +local function def_istrue(def) + return def == "INT_MAX > 2147483640L" or + def == "LUAI_BITSINT >= 32" or + def == "SIZE_Bx < LUAI_BITSINT-1" or + def == "cast" or + def == "defined(LUA_CORE)" or + def == "MINSTRTABSIZE" or + def == "LUA_MINBUFFER" or + def == "HARDSTACKTESTS" or + def == "UNUSED" +end + +local head, defs = {[[ +#ifdef _MSC_VER +typedef unsigned __int64 U64; +#else +typedef unsigned long long U64; +#endif +int _CRT_glob = 0; +]]}, {} + +local function preprocess(src) + local t = { match(src, "^(.-)#") } + local lvl, on, oldon = 0, true, {} + for pp, def, txt in string.gmatch(src, "#(%w+) *([^\n]*)\n([^#]*)") do + if pp == "if" or pp == "ifdef" or pp == "ifndef" then + lvl = lvl + 1 + oldon[lvl] = on + on = def_istrue(def) + elseif pp == "else" then + if oldon[lvl] then + if on == false then on = true else on = false end + end + elseif pp == "elif" then + if oldon[lvl] then + on = def_istrue(def) + end + elseif pp == "endif" then + on = oldon[lvl] + lvl = lvl - 1 + elseif on then + if pp == "include" then + if not head[def] and not REMOVE_EXTINC[def] then + head[def] = true + head[#head+1] = "#include "..def.."\n" + end + elseif pp == "define" then + local k, sp, v = match(def, "([%w_]+)(%s*)(.*)") + if k and not (sp == "" and sub(v, 1, 1) == "(") then + defs[k] = gsub(v, "%a[%w_]*", function(tok) + return defs[tok] or tok + end) + else + t[#t+1] = "#define "..def.."\n" + end + elseif pp ~= "undef" then + error("unexpected directive: "..pp.." "..def) + end + end + if on then t[#t+1] = txt end + end + return gsub(table.concat(t), "%a[%w_]*", function(tok) + return defs[tok] or tok + end) +end + +local function merge_header(src, license) + local hdr = string.format([[ +/* This is a heavily customized and minimized copy of Lua %s. */ +/* It's only used to build LuaJIT. It does NOT have all standard functions! */ +]], LUA_VERSION) + return hdr..license..table.concat(head)..src +end + +local function strip_unused1(src) + return gsub(src, '( {"?([%w_]+)"?,%s+%a[%w_]*},\n)', function(line, func) + return REMOVE_LIB[func] and "" or line + end) +end + +local function strip_unused2(src) + return gsub(src, "Symbolic Execution.-}=", "") +end + +local function strip_unused3(src) + src = gsub(src, "extern", "static") + src = gsub(src, "\nstatic([^\n]-)%(([^)]*)%)%(", "\nstatic%1 %2(") + src = gsub(src, "#define lua_assert[^\n]*\n", "") + src = gsub(src, "lua_assert%b();?", "") + src = gsub(src, "default:\n}", "default:;\n}") + src = gsub(src, "lua_lock%b();", "") + src = gsub(src, "lua_unlock%b();", "") + src = gsub(src, "luai_threadyield%b();", "") + src = gsub(src, "luai_userstateopen%b();", "{}") + src = gsub(src, "luai_userstate%w+%b();", "") + src = gsub(src, "%(%(c==.*luaY_parser%)", "luaY_parser") + src = gsub(src, "trydecpoint%(ls,seminfo%)", + "luaX_lexerror(ls,\"malformed number\",TK_NUMBER)") + src = gsub(src, "int c=luaZ_lookahead%b();", "") + src = gsub(src, "luaL_register%(L,[^,]*,co_funcs%);\nreturn 2;", + "return 1;") + src = gsub(src, "getfuncname%b():", "NULL:") + src = gsub(src, "getobjname%b():", "NULL:") + src = gsub(src, "if%([^\n]*hookmask[^\n]*%)\n[^\n]*\n", "") + src = gsub(src, "if%([^\n]*hookmask[^\n]*%)%b{}\n", "") + src = gsub(src, "if%([^\n]*hookmask[^\n]*&&\n[^\n]*%b{}\n", "") + src = gsub(src, "(twoto%b()%()", "%1(size_t)") + src = gsub(src, "i +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +typedef enum{ +TM_INDEX, +TM_NEWINDEX, +TM_GC, +TM_MODE, +TM_EQ, +TM_ADD, +TM_SUB, +TM_MUL, +TM_DIV, +TM_MOD, +TM_POW, +TM_UNM, +TM_LEN, +TM_LT, +TM_LE, +TM_CONCAT, +TM_CALL, +TM_N +}TMS; +enum OpMode{iABC,iABx,iAsBx}; +typedef enum{ +OP_MOVE, +OP_LOADK, +OP_LOADBOOL, +OP_LOADNIL, +OP_GETUPVAL, +OP_GETGLOBAL, +OP_GETTABLE, +OP_SETGLOBAL, +OP_SETUPVAL, +OP_SETTABLE, +OP_NEWTABLE, +OP_SELF, +OP_ADD, +OP_SUB, +OP_MUL, +OP_DIV, +OP_MOD, +OP_POW, +OP_UNM, +OP_NOT, +OP_LEN, +OP_CONCAT, +OP_JMP, +OP_EQ, +OP_LT, +OP_LE, +OP_TEST, +OP_TESTSET, +OP_CALL, +OP_TAILCALL, +OP_RETURN, +OP_FORLOOP, +OP_FORPREP, +OP_TFORLOOP, +OP_SETLIST, +OP_CLOSE, +OP_CLOSURE, +OP_VARARG +}OpCode; +enum OpArgMask{ +OpArgN, +OpArgU, +OpArgR, +OpArgK +}; +typedef enum{ +VVOID, +VNIL, +VTRUE, +VFALSE, +VK, +VKNUM, +VLOCAL, +VUPVAL, +VGLOBAL, +VINDEXED, +VJMP, +VRELOCABLE, +VNONRELOC, +VCALL, +VVARARG +}expkind; +enum RESERVED{ +TK_AND=257,TK_BREAK, +TK_DO,TK_ELSE,TK_ELSEIF,TK_END,TK_FALSE,TK_FOR,TK_FUNCTION, +TK_IF,TK_IN,TK_LOCAL,TK_NIL,TK_NOT,TK_OR,TK_REPEAT, +TK_RETURN,TK_THEN,TK_TRUE,TK_UNTIL,TK_WHILE, +TK_CONCAT,TK_DOTS,TK_EQ,TK_GE,TK_LE,TK_NE,TK_NUMBER, +TK_NAME,TK_STRING,TK_EOS +}; +typedef enum BinOpr{ +OPR_ADD,OPR_SUB,OPR_MUL,OPR_DIV,OPR_MOD,OPR_POW, +OPR_CONCAT, +OPR_NE,OPR_EQ, +OPR_LT,OPR_LE,OPR_GT,OPR_GE, +OPR_AND,OPR_OR, +OPR_NOBINOPR +}BinOpr; +typedef enum UnOpr{OPR_MINUS,OPR_NOT,OPR_LEN,OPR_NOUNOPR}UnOpr; +#define LUA_QL(x)"'"x"'" +#define luai_apicheck(L,o){(void)L;} +#define lua_number2str(s,n)sprintf((s),"%.14g",(n)) +#define lua_str2number(s,p)strtod((s),(p)) +#define luai_numadd(a,b)((a)+(b)) +#define luai_numsub(a,b)((a)-(b)) +#define luai_nummul(a,b)((a)*(b)) +#define luai_numdiv(a,b)((a)/(b)) +#define luai_nummod(a,b)((a)-floor((a)/(b))*(b)) +#define luai_numpow(a,b)(pow(a,b)) +#define luai_numunm(a)(-(a)) +#define luai_numeq(a,b)((a)==(b)) +#define luai_numlt(a,b)((a)<(b)) +#define luai_numle(a,b)((a)<=(b)) +#define luai_numisnan(a)(!luai_numeq((a),(a))) +#define lua_number2int(i,d)((i)=(int)(d)) +#define lua_number2integer(i,d)((i)=(lua_Integer)(d)) +#define LUAI_THROW(L,c)longjmp((c)->b,1) +#define LUAI_TRY(L,c,a)if(setjmp((c)->b)==0){a} +#define lua_pclose(L,file)((void)((void)L,file),0) +#define lua_upvalueindex(i)((-10002)-(i)) +typedef struct lua_State lua_State; +typedef int(*lua_CFunction)(lua_State*L); +typedef const char*(*lua_Reader)(lua_State*L,void*ud,size_t*sz); +typedef void*(*lua_Alloc)(void*ud,void*ptr,size_t osize,size_t nsize); +typedef double lua_Number; +typedef ptrdiff_t lua_Integer; +static void lua_settop(lua_State*L,int idx); +static int lua_type(lua_State*L,int idx); +static const char* lua_tolstring(lua_State*L,int idx,size_t*len); +static size_t lua_objlen(lua_State*L,int idx); +static void lua_pushlstring(lua_State*L,const char*s,size_t l); +static void lua_pushcclosure(lua_State*L,lua_CFunction fn,int n); +static void lua_createtable(lua_State*L,int narr,int nrec); +static void lua_setfield(lua_State*L,int idx,const char*k); +#define lua_pop(L,n)lua_settop(L,-(n)-1) +#define lua_newtable(L)lua_createtable(L,0,0) +#define lua_pushcfunction(L,f)lua_pushcclosure(L,(f),0) +#define lua_strlen(L,i)lua_objlen(L,(i)) +#define lua_isfunction(L,n)(lua_type(L,(n))==6) +#define lua_istable(L,n)(lua_type(L,(n))==5) +#define lua_isnil(L,n)(lua_type(L,(n))==0) +#define lua_isboolean(L,n)(lua_type(L,(n))==1) +#define lua_isnone(L,n)(lua_type(L,(n))==(-1)) +#define lua_isnoneornil(L,n)(lua_type(L,(n))<=0) +#define lua_pushliteral(L,s)lua_pushlstring(L,""s,(sizeof(s)/sizeof(char))-1) +#define lua_setglobal(L,s)lua_setfield(L,(-10002),(s)) +#define lua_tostring(L,i)lua_tolstring(L,(i),NULL) +typedef struct lua_Debug lua_Debug; +typedef void(*lua_Hook)(lua_State*L,lua_Debug*ar); +struct lua_Debug{ +int event; +const char*name; +const char*namewhat; +const char*what; +const char*source; +int currentline; +int nups; +int linedefined; +int lastlinedefined; +char short_src[60]; +int i_ci; +}; +typedef unsigned int lu_int32; +typedef size_t lu_mem; +typedef ptrdiff_t l_mem; +typedef unsigned char lu_byte; +#define IntPoint(p)((unsigned int)(lu_mem)(p)) +typedef union{double u;void*s;long l;}L_Umaxalign; +typedef double l_uacNumber; +#define check_exp(c,e)(e) +#define UNUSED(x)((void)(x)) +#define cast(t,exp)((t)(exp)) +#define cast_byte(i)cast(lu_byte,(i)) +#define cast_num(i)cast(lua_Number,(i)) +#define cast_int(i)cast(int,(i)) +typedef lu_int32 Instruction; +#define condhardstacktests(x)((void)0) +typedef union GCObject GCObject; +typedef struct GCheader{ +GCObject*next;lu_byte tt;lu_byte marked; +}GCheader; +typedef union{ +GCObject*gc; +void*p; +lua_Number n; +int b; +}Value; +typedef struct lua_TValue{ +Value value;int tt; +}TValue; +#define ttisnil(o)(ttype(o)==0) +#define ttisnumber(o)(ttype(o)==3) +#define ttisstring(o)(ttype(o)==4) +#define ttistable(o)(ttype(o)==5) +#define ttisfunction(o)(ttype(o)==6) +#define ttisboolean(o)(ttype(o)==1) +#define ttisuserdata(o)(ttype(o)==7) +#define ttisthread(o)(ttype(o)==8) +#define ttislightuserdata(o)(ttype(o)==2) +#define ttype(o)((o)->tt) +#define gcvalue(o)check_exp(iscollectable(o),(o)->value.gc) +#define pvalue(o)check_exp(ttislightuserdata(o),(o)->value.p) +#define nvalue(o)check_exp(ttisnumber(o),(o)->value.n) +#define rawtsvalue(o)check_exp(ttisstring(o),&(o)->value.gc->ts) +#define tsvalue(o)(&rawtsvalue(o)->tsv) +#define rawuvalue(o)check_exp(ttisuserdata(o),&(o)->value.gc->u) +#define uvalue(o)(&rawuvalue(o)->uv) +#define clvalue(o)check_exp(ttisfunction(o),&(o)->value.gc->cl) +#define hvalue(o)check_exp(ttistable(o),&(o)->value.gc->h) +#define bvalue(o)check_exp(ttisboolean(o),(o)->value.b) +#define thvalue(o)check_exp(ttisthread(o),&(o)->value.gc->th) +#define l_isfalse(o)(ttisnil(o)||(ttisboolean(o)&&bvalue(o)==0)) +#define checkconsistency(obj) +#define checkliveness(g,obj) +#define setnilvalue(obj)((obj)->tt=0) +#define setnvalue(obj,x){TValue*i_o=(obj);i_o->value.n=(x);i_o->tt=3;} +#define setbvalue(obj,x){TValue*i_o=(obj);i_o->value.b=(x);i_o->tt=1;} +#define setsvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=4;checkliveness(G(L),i_o);} +#define setuvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=7;checkliveness(G(L),i_o);} +#define setthvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=8;checkliveness(G(L),i_o);} +#define setclvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=6;checkliveness(G(L),i_o);} +#define sethvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=5;checkliveness(G(L),i_o);} +#define setptvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=(8+1);checkliveness(G(L),i_o);} +#define setobj(L,obj1,obj2){const TValue*o2=(obj2);TValue*o1=(obj1);o1->value=o2->value;o1->tt=o2->tt;checkliveness(G(L),o1);} +#define setttype(obj,tt)(ttype(obj)=(tt)) +#define iscollectable(o)(ttype(o)>=4) +typedef TValue*StkId; +typedef union TString{ +L_Umaxalign dummy; +struct{ +GCObject*next;lu_byte tt;lu_byte marked; +lu_byte reserved; +unsigned int hash; +size_t len; +}tsv; +}TString; +#define getstr(ts)cast(const char*,(ts)+1) +#define svalue(o)getstr(rawtsvalue(o)) +typedef union Udata{ +L_Umaxalign dummy; +struct{ +GCObject*next;lu_byte tt;lu_byte marked; +struct Table*metatable; +struct Table*env; +size_t len; +}uv; +}Udata; +typedef struct Proto{ +GCObject*next;lu_byte tt;lu_byte marked; +TValue*k; +Instruction*code; +struct Proto**p; +int*lineinfo; +struct LocVar*locvars; +TString**upvalues; +TString*source; +int sizeupvalues; +int sizek; +int sizecode; +int sizelineinfo; +int sizep; +int sizelocvars; +int linedefined; +int lastlinedefined; +GCObject*gclist; +lu_byte nups; +lu_byte numparams; +lu_byte is_vararg; +lu_byte maxstacksize; +}Proto; +typedef struct LocVar{ +TString*varname; +int startpc; +int endpc; +}LocVar; +typedef struct UpVal{ +GCObject*next;lu_byte tt;lu_byte marked; +TValue*v; +union{ +TValue value; +struct{ +struct UpVal*prev; +struct UpVal*next; +}l; +}u; +}UpVal; +typedef struct CClosure{ +GCObject*next;lu_byte tt;lu_byte marked;lu_byte isC;lu_byte nupvalues;GCObject*gclist;struct Table*env; +lua_CFunction f; +TValue upvalue[1]; +}CClosure; +typedef struct LClosure{ +GCObject*next;lu_byte tt;lu_byte marked;lu_byte isC;lu_byte nupvalues;GCObject*gclist;struct Table*env; +struct Proto*p; +UpVal*upvals[1]; +}LClosure; +typedef union Closure{ +CClosure c; +LClosure l; +}Closure; +#define iscfunction(o)(ttype(o)==6&&clvalue(o)->c.isC) +typedef union TKey{ +struct{ +Value value;int tt; +struct Node*next; +}nk; +TValue tvk; +}TKey; +typedef struct Node{ +TValue i_val; +TKey i_key; +}Node; +typedef struct Table{ +GCObject*next;lu_byte tt;lu_byte marked; +lu_byte flags; +lu_byte lsizenode; +struct Table*metatable; +TValue*array; +Node*node; +Node*lastfree; +GCObject*gclist; +int sizearray; +}Table; +#define lmod(s,size)(check_exp((size&(size-1))==0,(cast(int,(s)&((size)-1))))) +#define twoto(x)((size_t)1<<(x)) +#define sizenode(t)(twoto((t)->lsizenode)) +static const TValue luaO_nilobject_; +#define ceillog2(x)(luaO_log2((x)-1)+1) +static int luaO_log2(unsigned int x); +#define gfasttm(g,et,e)((et)==NULL?NULL:((et)->flags&(1u<<(e)))?NULL:luaT_gettm(et,e,(g)->tmname[e])) +#define fasttm(l,et,e)gfasttm(G(l),et,e) +static const TValue*luaT_gettm(Table*events,TMS event,TString*ename); +#define luaM_reallocv(L,b,on,n,e)((cast(size_t,(n)+1)<=((size_t)(~(size_t)0)-2)/(e))?luaM_realloc_(L,(b),(on)*(e),(n)*(e)):luaM_toobig(L)) +#define luaM_freemem(L,b,s)luaM_realloc_(L,(b),(s),0) +#define luaM_free(L,b)luaM_realloc_(L,(b),sizeof(*(b)),0) +#define luaM_freearray(L,b,n,t)luaM_reallocv(L,(b),n,0,sizeof(t)) +#define luaM_malloc(L,t)luaM_realloc_(L,NULL,0,(t)) +#define luaM_new(L,t)cast(t*,luaM_malloc(L,sizeof(t))) +#define luaM_newvector(L,n,t)cast(t*,luaM_reallocv(L,NULL,0,n,sizeof(t))) +#define luaM_growvector(L,v,nelems,size,t,limit,e)if((nelems)+1>(size))((v)=cast(t*,luaM_growaux_(L,v,&(size),sizeof(t),limit,e))) +#define luaM_reallocvector(L,v,oldn,n,t)((v)=cast(t*,luaM_reallocv(L,v,oldn,n,sizeof(t)))) +static void*luaM_realloc_(lua_State*L,void*block,size_t oldsize, +size_t size); +static void*luaM_toobig(lua_State*L); +static void*luaM_growaux_(lua_State*L,void*block,int*size, +size_t size_elem,int limit, +const char*errormsg); +typedef struct Zio ZIO; +#define char2int(c)cast(int,cast(unsigned char,(c))) +#define zgetc(z)(((z)->n--)>0?char2int(*(z)->p++):luaZ_fill(z)) +typedef struct Mbuffer{ +char*buffer; +size_t n; +size_t buffsize; +}Mbuffer; +#define luaZ_initbuffer(L,buff)((buff)->buffer=NULL,(buff)->buffsize=0) +#define luaZ_buffer(buff)((buff)->buffer) +#define luaZ_sizebuffer(buff)((buff)->buffsize) +#define luaZ_bufflen(buff)((buff)->n) +#define luaZ_resetbuffer(buff)((buff)->n=0) +#define luaZ_resizebuffer(L,buff,size)(luaM_reallocvector(L,(buff)->buffer,(buff)->buffsize,size,char),(buff)->buffsize=size) +#define luaZ_freebuffer(L,buff)luaZ_resizebuffer(L,buff,0) +struct Zio{ +size_t n; +const char*p; +lua_Reader reader; +void*data; +lua_State*L; +}; +static int luaZ_fill(ZIO*z); +struct lua_longjmp; +#define gt(L)(&L->l_gt) +#define registry(L)(&G(L)->l_registry) +typedef struct stringtable{ +GCObject**hash; +lu_int32 nuse; +int size; +}stringtable; +typedef struct CallInfo{ +StkId base; +StkId func; +StkId top; +const Instruction*savedpc; +int nresults; +int tailcalls; +}CallInfo; +#define curr_func(L)(clvalue(L->ci->func)) +#define ci_func(ci)(clvalue((ci)->func)) +#define f_isLua(ci)(!ci_func(ci)->c.isC) +#define isLua(ci)(ttisfunction((ci)->func)&&f_isLua(ci)) +typedef struct global_State{ +stringtable strt; +lua_Alloc frealloc; +void*ud; +lu_byte currentwhite; +lu_byte gcstate; +int sweepstrgc; +GCObject*rootgc; +GCObject**sweepgc; +GCObject*gray; +GCObject*grayagain; +GCObject*weak; +GCObject*tmudata; +Mbuffer buff; +lu_mem GCthreshold; +lu_mem totalbytes; +lu_mem estimate; +lu_mem gcdept; +int gcpause; +int gcstepmul; +lua_CFunction panic; +TValue l_registry; +struct lua_State*mainthread; +UpVal uvhead; +struct Table*mt[(8+1)]; +TString*tmname[TM_N]; +}global_State; +struct lua_State{ +GCObject*next;lu_byte tt;lu_byte marked; +lu_byte status; +StkId top; +StkId base; +global_State*l_G; +CallInfo*ci; +const Instruction*savedpc; +StkId stack_last; +StkId stack; +CallInfo*end_ci; +CallInfo*base_ci; +int stacksize; +int size_ci; +unsigned short nCcalls; +unsigned short baseCcalls; +lu_byte hookmask; +lu_byte allowhook; +int basehookcount; +int hookcount; +lua_Hook hook; +TValue l_gt; +TValue env; +GCObject*openupval; +GCObject*gclist; +struct lua_longjmp*errorJmp; +ptrdiff_t errfunc; +}; +#define G(L)(L->l_G) +union GCObject{ +GCheader gch; +union TString ts; +union Udata u; +union Closure cl; +struct Table h; +struct Proto p; +struct UpVal uv; +struct lua_State th; +}; +#define rawgco2ts(o)check_exp((o)->gch.tt==4,&((o)->ts)) +#define gco2ts(o)(&rawgco2ts(o)->tsv) +#define rawgco2u(o)check_exp((o)->gch.tt==7,&((o)->u)) +#define gco2u(o)(&rawgco2u(o)->uv) +#define gco2cl(o)check_exp((o)->gch.tt==6,&((o)->cl)) +#define gco2h(o)check_exp((o)->gch.tt==5,&((o)->h)) +#define gco2p(o)check_exp((o)->gch.tt==(8+1),&((o)->p)) +#define gco2uv(o)check_exp((o)->gch.tt==(8+2),&((o)->uv)) +#define ngcotouv(o)check_exp((o)==NULL||(o)->gch.tt==(8+2),&((o)->uv)) +#define gco2th(o)check_exp((o)->gch.tt==8,&((o)->th)) +#define obj2gco(v)(cast(GCObject*,(v))) +static void luaE_freethread(lua_State*L,lua_State*L1); +#define pcRel(pc,p)(cast(int,(pc)-(p)->code)-1) +#define getline_(f,pc)(((f)->lineinfo)?(f)->lineinfo[pc]:0) +#define resethookcount(L)(L->hookcount=L->basehookcount) +static void luaG_typeerror(lua_State*L,const TValue*o, +const char*opname); +static void luaG_runerror(lua_State*L,const char*fmt,...); +#define luaD_checkstack(L,n)if((char*)L->stack_last-(char*)L->top<=(n)*(int)sizeof(TValue))luaD_growstack(L,n);else condhardstacktests(luaD_reallocstack(L,L->stacksize-5-1)); +#define incr_top(L){luaD_checkstack(L,1);L->top++;} +#define savestack(L,p)((char*)(p)-(char*)L->stack) +#define restorestack(L,n)((TValue*)((char*)L->stack+(n))) +#define saveci(L,p)((char*)(p)-(char*)L->base_ci) +#define restoreci(L,n)((CallInfo*)((char*)L->base_ci+(n))) +typedef void(*Pfunc)(lua_State*L,void*ud); +static int luaD_poscall(lua_State*L,StkId firstResult); +static void luaD_reallocCI(lua_State*L,int newsize); +static void luaD_reallocstack(lua_State*L,int newsize); +static void luaD_growstack(lua_State*L,int n); +static void luaD_throw(lua_State*L,int errcode); +static void*luaM_growaux_(lua_State*L,void*block,int*size,size_t size_elems, +int limit,const char*errormsg){ +void*newblock; +int newsize; +if(*size>=limit/2){ +if(*size>=limit) +luaG_runerror(L,errormsg); +newsize=limit; +} +else{ +newsize=(*size)*2; +if(newsize<4) +newsize=4; +} +newblock=luaM_reallocv(L,block,*size,newsize,size_elems); +*size=newsize; +return newblock; +} +static void*luaM_toobig(lua_State*L){ +luaG_runerror(L,"memory allocation error: block too big"); +return NULL; +} +static void*luaM_realloc_(lua_State*L,void*block,size_t osize,size_t nsize){ +global_State*g=G(L); +block=(*g->frealloc)(g->ud,block,osize,nsize); +if(block==NULL&&nsize>0) +luaD_throw(L,4); +g->totalbytes=(g->totalbytes-osize)+nsize; +return block; +} +#define resetbits(x,m)((x)&=cast(lu_byte,~(m))) +#define setbits(x,m)((x)|=(m)) +#define testbits(x,m)((x)&(m)) +#define bitmask(b)(1<<(b)) +#define bit2mask(b1,b2)(bitmask(b1)|bitmask(b2)) +#define l_setbit(x,b)setbits(x,bitmask(b)) +#define resetbit(x,b)resetbits(x,bitmask(b)) +#define testbit(x,b)testbits(x,bitmask(b)) +#define set2bits(x,b1,b2)setbits(x,(bit2mask(b1,b2))) +#define reset2bits(x,b1,b2)resetbits(x,(bit2mask(b1,b2))) +#define test2bits(x,b1,b2)testbits(x,(bit2mask(b1,b2))) +#define iswhite(x)test2bits((x)->gch.marked,0,1) +#define isblack(x)testbit((x)->gch.marked,2) +#define isgray(x)(!isblack(x)&&!iswhite(x)) +#define otherwhite(g)(g->currentwhite^bit2mask(0,1)) +#define isdead(g,v)((v)->gch.marked&otherwhite(g)&bit2mask(0,1)) +#define changewhite(x)((x)->gch.marked^=bit2mask(0,1)) +#define gray2black(x)l_setbit((x)->gch.marked,2) +#define valiswhite(x)(iscollectable(x)&&iswhite(gcvalue(x))) +#define luaC_white(g)cast(lu_byte,(g)->currentwhite&bit2mask(0,1)) +#define luaC_checkGC(L){condhardstacktests(luaD_reallocstack(L,L->stacksize-5-1));if(G(L)->totalbytes>=G(L)->GCthreshold)luaC_step(L);} +#define luaC_barrier(L,p,v){if(valiswhite(v)&&isblack(obj2gco(p)))luaC_barrierf(L,obj2gco(p),gcvalue(v));} +#define luaC_barriert(L,t,v){if(valiswhite(v)&&isblack(obj2gco(t)))luaC_barrierback(L,t);} +#define luaC_objbarrier(L,p,o){if(iswhite(obj2gco(o))&&isblack(obj2gco(p)))luaC_barrierf(L,obj2gco(p),obj2gco(o));} +#define luaC_objbarriert(L,t,o){if(iswhite(obj2gco(o))&&isblack(obj2gco(t)))luaC_barrierback(L,t);} +static void luaC_step(lua_State*L); +static void luaC_link(lua_State*L,GCObject*o,lu_byte tt); +static void luaC_linkupval(lua_State*L,UpVal*uv); +static void luaC_barrierf(lua_State*L,GCObject*o,GCObject*v); +static void luaC_barrierback(lua_State*L,Table*t); +#define sizestring(s)(sizeof(union TString)+((s)->len+1)*sizeof(char)) +#define sizeudata(u)(sizeof(union Udata)+(u)->len) +#define luaS_new(L,s)(luaS_newlstr(L,s,strlen(s))) +#define luaS_newliteral(L,s)(luaS_newlstr(L,""s,(sizeof(s)/sizeof(char))-1)) +#define luaS_fix(s)l_setbit((s)->tsv.marked,5) +static TString*luaS_newlstr(lua_State*L,const char*str,size_t l); +#define tostring(L,o)((ttype(o)==4)||(luaV_tostring(L,o))) +#define tonumber(o,n)(ttype(o)==3||(((o)=luaV_tonumber(o,n))!=NULL)) +#define equalobj(L,o1,o2)(ttype(o1)==ttype(o2)&&luaV_equalval(L,o1,o2)) +static int luaV_equalval(lua_State*L,const TValue*t1,const TValue*t2); +static const TValue*luaV_tonumber(const TValue*obj,TValue*n); +static int luaV_tostring(lua_State*L,StkId obj); +static void luaV_execute(lua_State*L,int nexeccalls); +static void luaV_concat(lua_State*L,int total,int last); +static const TValue luaO_nilobject_={{NULL},0}; +static int luaO_int2fb(unsigned int x){ +int e=0; +while(x>=16){ +x=(x+1)>>1; +e++; +} +if(x<8)return x; +else return((e+1)<<3)|(cast_int(x)-8); +} +static int luaO_fb2int(int x){ +int e=(x>>3)&31; +if(e==0)return x; +else return((x&7)+8)<<(e-1); +} +static int luaO_log2(unsigned int x){ +static const lu_byte log_2[256]={ +0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, +6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, +7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, +7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, +8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, +8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, +8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, +8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 +}; +int l=-1; +while(x>=256){l+=8;x>>=8;} +return l+log_2[x]; +} +static int luaO_rawequalObj(const TValue*t1,const TValue*t2){ +if(ttype(t1)!=ttype(t2))return 0; +else switch(ttype(t1)){ +case 0: +return 1; +case 3: +return luai_numeq(nvalue(t1),nvalue(t2)); +case 1: +return bvalue(t1)==bvalue(t2); +case 2: +return pvalue(t1)==pvalue(t2); +default: +return gcvalue(t1)==gcvalue(t2); +} +} +static int luaO_str2d(const char*s,lua_Number*result){ +char*endptr; +*result=lua_str2number(s,&endptr); +if(endptr==s)return 0; +if(*endptr=='x'||*endptr=='X') +*result=cast_num(strtoul(s,&endptr,16)); +if(*endptr=='\0')return 1; +while(isspace(cast(unsigned char,*endptr)))endptr++; +if(*endptr!='\0')return 0; +return 1; +} +static void pushstr(lua_State*L,const char*str){ +setsvalue(L,L->top,luaS_new(L,str)); +incr_top(L); +} +static const char*luaO_pushvfstring(lua_State*L,const char*fmt,va_list argp){ +int n=1; +pushstr(L,""); +for(;;){ +const char*e=strchr(fmt,'%'); +if(e==NULL)break; +setsvalue(L,L->top,luaS_newlstr(L,fmt,e-fmt)); +incr_top(L); +switch(*(e+1)){ +case's':{ +const char*s=va_arg(argp,char*); +if(s==NULL)s="(null)"; +pushstr(L,s); +break; +} +case'c':{ +char buff[2]; +buff[0]=cast(char,va_arg(argp,int)); +buff[1]='\0'; +pushstr(L,buff); +break; +} +case'd':{ +setnvalue(L->top,cast_num(va_arg(argp,int))); +incr_top(L); +break; +} +case'f':{ +setnvalue(L->top,cast_num(va_arg(argp,l_uacNumber))); +incr_top(L); +break; +} +case'p':{ +char buff[4*sizeof(void*)+8]; +sprintf(buff,"%p",va_arg(argp,void*)); +pushstr(L,buff); +break; +} +case'%':{ +pushstr(L,"%"); +break; +} +default:{ +char buff[3]; +buff[0]='%'; +buff[1]=*(e+1); +buff[2]='\0'; +pushstr(L,buff); +break; +} +} +n+=2; +fmt=e+2; +} +pushstr(L,fmt); +luaV_concat(L,n+1,cast_int(L->top-L->base)-1); +L->top-=n; +return svalue(L->top-1); +} +static const char*luaO_pushfstring(lua_State*L,const char*fmt,...){ +const char*msg; +va_list argp; +va_start(argp,fmt); +msg=luaO_pushvfstring(L,fmt,argp); +va_end(argp); +return msg; +} +static void luaO_chunkid(char*out,const char*source,size_t bufflen){ +if(*source=='='){ +strncpy(out,source+1,bufflen); +out[bufflen-1]='\0'; +} +else{ +if(*source=='@'){ +size_t l; +source++; +bufflen-=sizeof(" '...' "); +l=strlen(source); +strcpy(out,""); +if(l>bufflen){ +source+=(l-bufflen); +strcat(out,"..."); +} +strcat(out,source); +} +else{ +size_t len=strcspn(source,"\n\r"); +bufflen-=sizeof(" [string \"...\"] "); +if(len>bufflen)len=bufflen; +strcpy(out,"[string \""); +if(source[len]!='\0'){ +strncat(out,source,len); +strcat(out,"..."); +} +else +strcat(out,source); +strcat(out,"\"]"); +} +} +} +#define gnode(t,i)(&(t)->node[i]) +#define gkey(n)(&(n)->i_key.nk) +#define gval(n)(&(n)->i_val) +#define gnext(n)((n)->i_key.nk.next) +#define key2tval(n)(&(n)->i_key.tvk) +static TValue*luaH_setnum(lua_State*L,Table*t,int key); +static const TValue*luaH_getstr(Table*t,TString*key); +static TValue*luaH_set(lua_State*L,Table*t,const TValue*key); +static const char*const luaT_typenames[]={ +"nil","boolean","userdata","number", +"string","table","function","userdata","thread", +"proto","upval" +}; +static void luaT_init(lua_State*L){ +static const char*const luaT_eventname[]={ +"__index","__newindex", +"__gc","__mode","__eq", +"__add","__sub","__mul","__div","__mod", +"__pow","__unm","__len","__lt","__le", +"__concat","__call" +}; +int i; +for(i=0;itmname[i]=luaS_new(L,luaT_eventname[i]); +luaS_fix(G(L)->tmname[i]); +} +} +static const TValue*luaT_gettm(Table*events,TMS event,TString*ename){ +const TValue*tm=luaH_getstr(events,ename); +if(ttisnil(tm)){ +events->flags|=cast_byte(1u<metatable; +break; +case 7: +mt=uvalue(o)->metatable; +break; +default: +mt=G(L)->mt[ttype(o)]; +} +return(mt?luaH_getstr(mt,G(L)->tmname[event]):(&luaO_nilobject_)); +} +#define sizeCclosure(n)(cast(int,sizeof(CClosure))+cast(int,sizeof(TValue)*((n)-1))) +#define sizeLclosure(n)(cast(int,sizeof(LClosure))+cast(int,sizeof(TValue*)*((n)-1))) +static Closure*luaF_newCclosure(lua_State*L,int nelems,Table*e){ +Closure*c=cast(Closure*,luaM_malloc(L,sizeCclosure(nelems))); +luaC_link(L,obj2gco(c),6); +c->c.isC=1; +c->c.env=e; +c->c.nupvalues=cast_byte(nelems); +return c; +} +static Closure*luaF_newLclosure(lua_State*L,int nelems,Table*e){ +Closure*c=cast(Closure*,luaM_malloc(L,sizeLclosure(nelems))); +luaC_link(L,obj2gco(c),6); +c->l.isC=0; +c->l.env=e; +c->l.nupvalues=cast_byte(nelems); +while(nelems--)c->l.upvals[nelems]=NULL; +return c; +} +static UpVal*luaF_newupval(lua_State*L){ +UpVal*uv=luaM_new(L,UpVal); +luaC_link(L,obj2gco(uv),(8+2)); +uv->v=&uv->u.value; +setnilvalue(uv->v); +return uv; +} +static UpVal*luaF_findupval(lua_State*L,StkId level){ +global_State*g=G(L); +GCObject**pp=&L->openupval; +UpVal*p; +UpVal*uv; +while(*pp!=NULL&&(p=ngcotouv(*pp))->v>=level){ +if(p->v==level){ +if(isdead(g,obj2gco(p))) +changewhite(obj2gco(p)); +return p; +} +pp=&p->next; +} +uv=luaM_new(L,UpVal); +uv->tt=(8+2); +uv->marked=luaC_white(g); +uv->v=level; +uv->next=*pp; +*pp=obj2gco(uv); +uv->u.l.prev=&g->uvhead; +uv->u.l.next=g->uvhead.u.l.next; +uv->u.l.next->u.l.prev=uv; +g->uvhead.u.l.next=uv; +return uv; +} +static void unlinkupval(UpVal*uv){ +uv->u.l.next->u.l.prev=uv->u.l.prev; +uv->u.l.prev->u.l.next=uv->u.l.next; +} +static void luaF_freeupval(lua_State*L,UpVal*uv){ +if(uv->v!=&uv->u.value) +unlinkupval(uv); +luaM_free(L,uv); +} +static void luaF_close(lua_State*L,StkId level){ +UpVal*uv; +global_State*g=G(L); +while(L->openupval!=NULL&&(uv=ngcotouv(L->openupval))->v>=level){ +GCObject*o=obj2gco(uv); +L->openupval=uv->next; +if(isdead(g,o)) +luaF_freeupval(L,uv); +else{ +unlinkupval(uv); +setobj(L,&uv->u.value,uv->v); +uv->v=&uv->u.value; +luaC_linkupval(L,uv); +} +} +} +static Proto*luaF_newproto(lua_State*L){ +Proto*f=luaM_new(L,Proto); +luaC_link(L,obj2gco(f),(8+1)); +f->k=NULL; +f->sizek=0; +f->p=NULL; +f->sizep=0; +f->code=NULL; +f->sizecode=0; +f->sizelineinfo=0; +f->sizeupvalues=0; +f->nups=0; +f->upvalues=NULL; +f->numparams=0; +f->is_vararg=0; +f->maxstacksize=0; +f->lineinfo=NULL; +f->sizelocvars=0; +f->locvars=NULL; +f->linedefined=0; +f->lastlinedefined=0; +f->source=NULL; +return f; +} +static void luaF_freeproto(lua_State*L,Proto*f){ +luaM_freearray(L,f->code,f->sizecode,Instruction); +luaM_freearray(L,f->p,f->sizep,Proto*); +luaM_freearray(L,f->k,f->sizek,TValue); +luaM_freearray(L,f->lineinfo,f->sizelineinfo,int); +luaM_freearray(L,f->locvars,f->sizelocvars,struct LocVar); +luaM_freearray(L,f->upvalues,f->sizeupvalues,TString*); +luaM_free(L,f); +} +static void luaF_freeclosure(lua_State*L,Closure*c){ +int size=(c->c.isC)?sizeCclosure(c->c.nupvalues): +sizeLclosure(c->l.nupvalues); +luaM_freemem(L,c,size); +} +#define MASK1(n,p)((~((~(Instruction)0)<>0)&MASK1(6,0))) +#define SET_OPCODE(i,o)((i)=(((i)&MASK0(6,0))|((cast(Instruction,o)<<0)&MASK1(6,0)))) +#define GETARG_A(i)(cast(int,((i)>>(0+6))&MASK1(8,0))) +#define SETARG_A(i,u)((i)=(((i)&MASK0(8,(0+6)))|((cast(Instruction,u)<<(0+6))&MASK1(8,(0+6))))) +#define GETARG_B(i)(cast(int,((i)>>(((0+6)+8)+9))&MASK1(9,0))) +#define SETARG_B(i,b)((i)=(((i)&MASK0(9,(((0+6)+8)+9)))|((cast(Instruction,b)<<(((0+6)+8)+9))&MASK1(9,(((0+6)+8)+9))))) +#define GETARG_C(i)(cast(int,((i)>>((0+6)+8))&MASK1(9,0))) +#define SETARG_C(i,b)((i)=(((i)&MASK0(9,((0+6)+8)))|((cast(Instruction,b)<<((0+6)+8))&MASK1(9,((0+6)+8))))) +#define GETARG_Bx(i)(cast(int,((i)>>((0+6)+8))&MASK1((9+9),0))) +#define SETARG_Bx(i,b)((i)=(((i)&MASK0((9+9),((0+6)+8)))|((cast(Instruction,b)<<((0+6)+8))&MASK1((9+9),((0+6)+8))))) +#define GETARG_sBx(i)(GETARG_Bx(i)-(((1<<(9+9))-1)>>1)) +#define SETARG_sBx(i,b)SETARG_Bx((i),cast(unsigned int,(b)+(((1<<(9+9))-1)>>1))) +#define CREATE_ABC(o,a,b,c)((cast(Instruction,o)<<0)|(cast(Instruction,a)<<(0+6))|(cast(Instruction,b)<<(((0+6)+8)+9))|(cast(Instruction,c)<<((0+6)+8))) +#define CREATE_ABx(o,a,bc)((cast(Instruction,o)<<0)|(cast(Instruction,a)<<(0+6))|(cast(Instruction,bc)<<((0+6)+8))) +#define ISK(x)((x)&(1<<(9-1))) +#define INDEXK(r)((int)(r)&~(1<<(9-1))) +#define RKASK(x)((x)|(1<<(9-1))) +static const lu_byte luaP_opmodes[(cast(int,OP_VARARG)+1)]; +#define getBMode(m)(cast(enum OpArgMask,(luaP_opmodes[m]>>4)&3)) +#define getCMode(m)(cast(enum OpArgMask,(luaP_opmodes[m]>>2)&3)) +#define testTMode(m)(luaP_opmodes[m]&(1<<7)) +typedef struct expdesc{ +expkind k; +union{ +struct{int info,aux;}s; +lua_Number nval; +}u; +int t; +int f; +}expdesc; +typedef struct upvaldesc{ +lu_byte k; +lu_byte info; +}upvaldesc; +struct BlockCnt; +typedef struct FuncState{ +Proto*f; +Table*h; +struct FuncState*prev; +struct LexState*ls; +struct lua_State*L; +struct BlockCnt*bl; +int pc; +int lasttarget; +int jpc; +int freereg; +int nk; +int np; +short nlocvars; +lu_byte nactvar; +upvaldesc upvalues[60]; +unsigned short actvar[200]; +}FuncState; +static Proto*luaY_parser(lua_State*L,ZIO*z,Mbuffer*buff, +const char*name); +struct lua_longjmp{ +struct lua_longjmp*previous; +jmp_buf b; +volatile int status; +}; +static void luaD_seterrorobj(lua_State*L,int errcode,StkId oldtop){ +switch(errcode){ +case 4:{ +setsvalue(L,oldtop,luaS_newliteral(L,"not enough memory")); +break; +} +case 5:{ +setsvalue(L,oldtop,luaS_newliteral(L,"error in error handling")); +break; +} +case 3: +case 2:{ +setobj(L,oldtop,L->top-1); +break; +} +} +L->top=oldtop+1; +} +static void restore_stack_limit(lua_State*L){ +if(L->size_ci>20000){ +int inuse=cast_int(L->ci-L->base_ci); +if(inuse+1<20000) +luaD_reallocCI(L,20000); +} +} +static void resetstack(lua_State*L,int status){ +L->ci=L->base_ci; +L->base=L->ci->base; +luaF_close(L,L->base); +luaD_seterrorobj(L,status,L->base); +L->nCcalls=L->baseCcalls; +L->allowhook=1; +restore_stack_limit(L); +L->errfunc=0; +L->errorJmp=NULL; +} +static void luaD_throw(lua_State*L,int errcode){ +if(L->errorJmp){ +L->errorJmp->status=errcode; +LUAI_THROW(L,L->errorJmp); +} +else{ +L->status=cast_byte(errcode); +if(G(L)->panic){ +resetstack(L,errcode); +G(L)->panic(L); +} +exit(EXIT_FAILURE); +} +} +static int luaD_rawrunprotected(lua_State*L,Pfunc f,void*ud){ +struct lua_longjmp lj; +lj.status=0; +lj.previous=L->errorJmp; +L->errorJmp=&lj; +LUAI_TRY(L,&lj, +(*f)(L,ud); +); +L->errorJmp=lj.previous; +return lj.status; +} +static void correctstack(lua_State*L,TValue*oldstack){ +CallInfo*ci; +GCObject*up; +L->top=(L->top-oldstack)+L->stack; +for(up=L->openupval;up!=NULL;up=up->gch.next) +gco2uv(up)->v=(gco2uv(up)->v-oldstack)+L->stack; +for(ci=L->base_ci;ci<=L->ci;ci++){ +ci->top=(ci->top-oldstack)+L->stack; +ci->base=(ci->base-oldstack)+L->stack; +ci->func=(ci->func-oldstack)+L->stack; +} +L->base=(L->base-oldstack)+L->stack; +} +static void luaD_reallocstack(lua_State*L,int newsize){ +TValue*oldstack=L->stack; +int realsize=newsize+1+5; +luaM_reallocvector(L,L->stack,L->stacksize,realsize,TValue); +L->stacksize=realsize; +L->stack_last=L->stack+newsize; +correctstack(L,oldstack); +} +static void luaD_reallocCI(lua_State*L,int newsize){ +CallInfo*oldci=L->base_ci; +luaM_reallocvector(L,L->base_ci,L->size_ci,newsize,CallInfo); +L->size_ci=newsize; +L->ci=(L->ci-oldci)+L->base_ci; +L->end_ci=L->base_ci+L->size_ci-1; +} +static void luaD_growstack(lua_State*L,int n){ +if(n<=L->stacksize) +luaD_reallocstack(L,2*L->stacksize); +else +luaD_reallocstack(L,L->stacksize+n); +} +static CallInfo*growCI(lua_State*L){ +if(L->size_ci>20000) +luaD_throw(L,5); +else{ +luaD_reallocCI(L,2*L->size_ci); +if(L->size_ci>20000) +luaG_runerror(L,"stack overflow"); +} +return++L->ci; +} +static StkId adjust_varargs(lua_State*L,Proto*p,int actual){ +int i; +int nfixargs=p->numparams; +Table*htab=NULL; +StkId base,fixed; +for(;actualtop++); +fixed=L->top-actual; +base=L->top; +for(i=0;itop++,fixed+i); +setnilvalue(fixed+i); +} +if(htab){ +sethvalue(L,L->top++,htab); +} +return base; +} +static StkId tryfuncTM(lua_State*L,StkId func){ +const TValue*tm=luaT_gettmbyobj(L,func,TM_CALL); +StkId p; +ptrdiff_t funcr=savestack(L,func); +if(!ttisfunction(tm)) +luaG_typeerror(L,func,"call"); +for(p=L->top;p>func;p--)setobj(L,p,p-1); +incr_top(L); +func=restorestack(L,funcr); +setobj(L,func,tm); +return func; +} +#define inc_ci(L)((L->ci==L->end_ci)?growCI(L):(condhardstacktests(luaD_reallocCI(L,L->size_ci)),++L->ci)) +static int luaD_precall(lua_State*L,StkId func,int nresults){ +LClosure*cl; +ptrdiff_t funcr; +if(!ttisfunction(func)) +func=tryfuncTM(L,func); +funcr=savestack(L,func); +cl=&clvalue(func)->l; +L->ci->savedpc=L->savedpc; +if(!cl->isC){ +CallInfo*ci; +StkId st,base; +Proto*p=cl->p; +luaD_checkstack(L,p->maxstacksize); +func=restorestack(L,funcr); +if(!p->is_vararg){ +base=func+1; +if(L->top>base+p->numparams) +L->top=base+p->numparams; +} +else{ +int nargs=cast_int(L->top-func)-1; +base=adjust_varargs(L,p,nargs); +func=restorestack(L,funcr); +} +ci=inc_ci(L); +ci->func=func; +L->base=ci->base=base; +ci->top=L->base+p->maxstacksize; +L->savedpc=p->code; +ci->tailcalls=0; +ci->nresults=nresults; +for(st=L->top;sttop;st++) +setnilvalue(st); +L->top=ci->top; +return 0; +} +else{ +CallInfo*ci; +int n; +luaD_checkstack(L,20); +ci=inc_ci(L); +ci->func=restorestack(L,funcr); +L->base=ci->base=ci->func+1; +ci->top=L->top+20; +ci->nresults=nresults; +n=(*curr_func(L)->c.f)(L); +if(n<0) +return 2; +else{ +luaD_poscall(L,L->top-n); +return 1; +} +} +} +static int luaD_poscall(lua_State*L,StkId firstResult){ +StkId res; +int wanted,i; +CallInfo*ci; +ci=L->ci--; +res=ci->func; +wanted=ci->nresults; +L->base=(ci-1)->base; +L->savedpc=(ci-1)->savedpc; +for(i=wanted;i!=0&&firstResulttop;i--) +setobj(L,res++,firstResult++); +while(i-->0) +setnilvalue(res++); +L->top=res; +return(wanted-(-1)); +} +static void luaD_call(lua_State*L,StkId func,int nResults){ +if(++L->nCcalls>=200){ +if(L->nCcalls==200) +luaG_runerror(L,"C stack overflow"); +else if(L->nCcalls>=(200+(200>>3))) +luaD_throw(L,5); +} +if(luaD_precall(L,func,nResults)==0) +luaV_execute(L,1); +L->nCcalls--; +luaC_checkGC(L); +} +static int luaD_pcall(lua_State*L,Pfunc func,void*u, +ptrdiff_t old_top,ptrdiff_t ef){ +int status; +unsigned short oldnCcalls=L->nCcalls; +ptrdiff_t old_ci=saveci(L,L->ci); +lu_byte old_allowhooks=L->allowhook; +ptrdiff_t old_errfunc=L->errfunc; +L->errfunc=ef; +status=luaD_rawrunprotected(L,func,u); +if(status!=0){ +StkId oldtop=restorestack(L,old_top); +luaF_close(L,oldtop); +luaD_seterrorobj(L,status,oldtop); +L->nCcalls=oldnCcalls; +L->ci=restoreci(L,old_ci); +L->base=L->ci->base; +L->savedpc=L->ci->savedpc; +L->allowhook=old_allowhooks; +restore_stack_limit(L); +} +L->errfunc=old_errfunc; +return status; +} +struct SParser{ +ZIO*z; +Mbuffer buff; +const char*name; +}; +static void f_parser(lua_State*L,void*ud){ +int i; +Proto*tf; +Closure*cl; +struct SParser*p=cast(struct SParser*,ud); +luaC_checkGC(L); +tf=luaY_parser(L,p->z, +&p->buff,p->name); +cl=luaF_newLclosure(L,tf->nups,hvalue(gt(L))); +cl->l.p=tf; +for(i=0;inups;i++) +cl->l.upvals[i]=luaF_newupval(L); +setclvalue(L,L->top,cl); +incr_top(L); +} +static int luaD_protectedparser(lua_State*L,ZIO*z,const char*name){ +struct SParser p; +int status; +p.z=z;p.name=name; +luaZ_initbuffer(L,&p.buff); +status=luaD_pcall(L,f_parser,&p,savestack(L,L->top),L->errfunc); +luaZ_freebuffer(L,&p.buff); +return status; +} +static void luaS_resize(lua_State*L,int newsize){ +GCObject**newhash; +stringtable*tb; +int i; +if(G(L)->gcstate==2) +return; +newhash=luaM_newvector(L,newsize,GCObject*); +tb=&G(L)->strt; +for(i=0;isize;i++){ +GCObject*p=tb->hash[i]; +while(p){ +GCObject*next=p->gch.next; +unsigned int h=gco2ts(p)->hash; +int h1=lmod(h,newsize); +p->gch.next=newhash[h1]; +newhash[h1]=p; +p=next; +} +} +luaM_freearray(L,tb->hash,tb->size,TString*); +tb->size=newsize; +tb->hash=newhash; +} +static TString*newlstr(lua_State*L,const char*str,size_t l, +unsigned int h){ +TString*ts; +stringtable*tb; +if(l+1>(((size_t)(~(size_t)0)-2)-sizeof(TString))/sizeof(char)) +luaM_toobig(L); +ts=cast(TString*,luaM_malloc(L,(l+1)*sizeof(char)+sizeof(TString))); +ts->tsv.len=l; +ts->tsv.hash=h; +ts->tsv.marked=luaC_white(G(L)); +ts->tsv.tt=4; +ts->tsv.reserved=0; +memcpy(ts+1,str,l*sizeof(char)); +((char*)(ts+1))[l]='\0'; +tb=&G(L)->strt; +h=lmod(h,tb->size); +ts->tsv.next=tb->hash[h]; +tb->hash[h]=obj2gco(ts); +tb->nuse++; +if(tb->nuse>cast(lu_int32,tb->size)&&tb->size<=(INT_MAX-2)/2) +luaS_resize(L,tb->size*2); +return ts; +} +static TString*luaS_newlstr(lua_State*L,const char*str,size_t l){ +GCObject*o; +unsigned int h=cast(unsigned int,l); +size_t step=(l>>5)+1; +size_t l1; +for(l1=l;l1>=step;l1-=step) +h=h^((h<<5)+(h>>2)+cast(unsigned char,str[l1-1])); +for(o=G(L)->strt.hash[lmod(h,G(L)->strt.size)]; +o!=NULL; +o=o->gch.next){ +TString*ts=rawgco2ts(o); +if(ts->tsv.len==l&&(memcmp(str,getstr(ts),l)==0)){ +if(isdead(G(L),o))changewhite(o); +return ts; +} +} +return newlstr(L,str,l,h); +} +static Udata*luaS_newudata(lua_State*L,size_t s,Table*e){ +Udata*u; +if(s>((size_t)(~(size_t)0)-2)-sizeof(Udata)) +luaM_toobig(L); +u=cast(Udata*,luaM_malloc(L,s+sizeof(Udata))); +u->uv.marked=luaC_white(G(L)); +u->uv.tt=7; +u->uv.len=s; +u->uv.metatable=NULL; +u->uv.env=e; +u->uv.next=G(L)->mainthread->next; +G(L)->mainthread->next=obj2gco(u); +return u; +} +#define hashpow2(t,n)(gnode(t,lmod((n),sizenode(t)))) +#define hashstr(t,str)hashpow2(t,(str)->tsv.hash) +#define hashboolean(t,p)hashpow2(t,p) +#define hashmod(t,n)(gnode(t,((n)%((sizenode(t)-1)|1)))) +#define hashpointer(t,p)hashmod(t,IntPoint(p)) +static const Node dummynode_={ +{{NULL},0}, +{{{NULL},0,NULL}} +}; +static Node*hashnum(const Table*t,lua_Number n){ +unsigned int a[cast_int(sizeof(lua_Number)/sizeof(int))]; +int i; +if(luai_numeq(n,0)) +return gnode(t,0); +memcpy(a,&n,sizeof(a)); +for(i=1;isizearray) +return i-1; +else{ +Node*n=mainposition(t,key); +do{ +if(luaO_rawequalObj(key2tval(n),key)|| +(ttype(gkey(n))==(8+3)&&iscollectable(key)&& +gcvalue(gkey(n))==gcvalue(key))){ +i=cast_int(n-gnode(t,0)); +return i+t->sizearray; +} +else n=gnext(n); +}while(n); +luaG_runerror(L,"invalid key to "LUA_QL("next")); +return 0; +} +} +static int luaH_next(lua_State*L,Table*t,StkId key){ +int i=findindex(L,t,key); +for(i++;isizearray;i++){ +if(!ttisnil(&t->array[i])){ +setnvalue(key,cast_num(i+1)); +setobj(L,key+1,&t->array[i]); +return 1; +} +} +for(i-=t->sizearray;i<(int)sizenode(t);i++){ +if(!ttisnil(gval(gnode(t,i)))){ +setobj(L,key,key2tval(gnode(t,i))); +setobj(L,key+1,gval(gnode(t,i))); +return 1; +} +} +return 0; +} +static int computesizes(int nums[],int*narray){ +int i; +int twotoi; +int a=0; +int na=0; +int n=0; +for(i=0,twotoi=1;twotoi/2<*narray;i++,twotoi*=2){ +if(nums[i]>0){ +a+=nums[i]; +if(a>twotoi/2){ +n=twotoi; +na=a; +} +} +if(a==*narray)break; +} +*narray=n; +return na; +} +static int countint(const TValue*key,int*nums){ +int k=arrayindex(key); +if(0t->sizearray){ +lim=t->sizearray; +if(i>lim) +break; +} +for(;i<=lim;i++){ +if(!ttisnil(&t->array[i-1])) +lc++; +} +nums[lg]+=lc; +ause+=lc; +} +return ause; +} +static int numusehash(const Table*t,int*nums,int*pnasize){ +int totaluse=0; +int ause=0; +int i=sizenode(t); +while(i--){ +Node*n=&t->node[i]; +if(!ttisnil(gval(n))){ +ause+=countint(key2tval(n),nums); +totaluse++; +} +} +*pnasize+=ause; +return totaluse; +} +static void setarrayvector(lua_State*L,Table*t,int size){ +int i; +luaM_reallocvector(L,t->array,t->sizearray,size,TValue); +for(i=t->sizearray;iarray[i]); +t->sizearray=size; +} +static void setnodevector(lua_State*L,Table*t,int size){ +int lsize; +if(size==0){ +t->node=cast(Node*,(&dummynode_)); +lsize=0; +} +else{ +int i; +lsize=ceillog2(size); +if(lsize>(32-2)) +luaG_runerror(L,"table overflow"); +size=twoto(lsize); +t->node=luaM_newvector(L,size,Node); +for(i=0;ilsizenode=cast_byte(lsize); +t->lastfree=gnode(t,size); +} +static void resize(lua_State*L,Table*t,int nasize,int nhsize){ +int i; +int oldasize=t->sizearray; +int oldhsize=t->lsizenode; +Node*nold=t->node; +if(nasize>oldasize) +setarrayvector(L,t,nasize); +setnodevector(L,t,nhsize); +if(nasizesizearray=nasize; +for(i=nasize;iarray[i])) +setobj(L,luaH_setnum(L,t,i+1),&t->array[i]); +} +luaM_reallocvector(L,t->array,oldasize,nasize,TValue); +} +for(i=twoto(oldhsize)-1;i>=0;i--){ +Node*old=nold+i; +if(!ttisnil(gval(old))) +setobj(L,luaH_set(L,t,key2tval(old)),gval(old)); +} +if(nold!=(&dummynode_)) +luaM_freearray(L,nold,twoto(oldhsize),Node); +} +static void luaH_resizearray(lua_State*L,Table*t,int nasize){ +int nsize=(t->node==(&dummynode_))?0:sizenode(t); +resize(L,t,nasize,nsize); +} +static void rehash(lua_State*L,Table*t,const TValue*ek){ +int nasize,na; +int nums[(32-2)+1]; +int i; +int totaluse; +for(i=0;i<=(32-2);i++)nums[i]=0; +nasize=numusearray(t,nums); +totaluse=nasize; +totaluse+=numusehash(t,nums,&nasize); +nasize+=countint(ek,nums); +totaluse++; +na=computesizes(nums,&nasize); +resize(L,t,nasize,totaluse-na); +} +static Table*luaH_new(lua_State*L,int narray,int nhash){ +Table*t=luaM_new(L,Table); +luaC_link(L,obj2gco(t),5); +t->metatable=NULL; +t->flags=cast_byte(~0); +t->array=NULL; +t->sizearray=0; +t->lsizenode=0; +t->node=cast(Node*,(&dummynode_)); +setarrayvector(L,t,narray); +setnodevector(L,t,nhash); +return t; +} +static void luaH_free(lua_State*L,Table*t){ +if(t->node!=(&dummynode_)) +luaM_freearray(L,t->node,sizenode(t),Node); +luaM_freearray(L,t->array,t->sizearray,TValue); +luaM_free(L,t); +} +static Node*getfreepos(Table*t){ +while(t->lastfree-->t->node){ +if(ttisnil(gkey(t->lastfree))) +return t->lastfree; +} +return NULL; +} +static TValue*newkey(lua_State*L,Table*t,const TValue*key){ +Node*mp=mainposition(t,key); +if(!ttisnil(gval(mp))||mp==(&dummynode_)){ +Node*othern; +Node*n=getfreepos(t); +if(n==NULL){ +rehash(L,t,key); +return luaH_set(L,t,key); +} +othern=mainposition(t,key2tval(mp)); +if(othern!=mp){ +while(gnext(othern)!=mp)othern=gnext(othern); +gnext(othern)=n; +*n=*mp; +gnext(mp)=NULL; +setnilvalue(gval(mp)); +} +else{ +gnext(n)=gnext(mp); +gnext(mp)=n; +mp=n; +} +} +gkey(mp)->value=key->value;gkey(mp)->tt=key->tt; +luaC_barriert(L,t,key); +return gval(mp); +} +static const TValue*luaH_getnum(Table*t,int key){ +if(cast(unsigned int,key-1)sizearray)) +return&t->array[key-1]; +else{ +lua_Number nk=cast_num(key); +Node*n=hashnum(t,nk); +do{ +if(ttisnumber(gkey(n))&&luai_numeq(nvalue(gkey(n)),nk)) +return gval(n); +else n=gnext(n); +}while(n); +return(&luaO_nilobject_); +} +} +static const TValue*luaH_getstr(Table*t,TString*key){ +Node*n=hashstr(t,key); +do{ +if(ttisstring(gkey(n))&&rawtsvalue(gkey(n))==key) +return gval(n); +else n=gnext(n); +}while(n); +return(&luaO_nilobject_); +} +static const TValue*luaH_get(Table*t,const TValue*key){ +switch(ttype(key)){ +case 0:return(&luaO_nilobject_); +case 4:return luaH_getstr(t,rawtsvalue(key)); +case 3:{ +int k; +lua_Number n=nvalue(key); +lua_number2int(k,n); +if(luai_numeq(cast_num(k),nvalue(key))) +return luaH_getnum(t,k); +} +default:{ +Node*n=mainposition(t,key); +do{ +if(luaO_rawequalObj(key2tval(n),key)) +return gval(n); +else n=gnext(n); +}while(n); +return(&luaO_nilobject_); +} +} +} +static TValue*luaH_set(lua_State*L,Table*t,const TValue*key){ +const TValue*p=luaH_get(t,key); +t->flags=0; +if(p!=(&luaO_nilobject_)) +return cast(TValue*,p); +else{ +if(ttisnil(key))luaG_runerror(L,"table index is nil"); +else if(ttisnumber(key)&&luai_numisnan(nvalue(key))) +luaG_runerror(L,"table index is NaN"); +return newkey(L,t,key); +} +} +static TValue*luaH_setnum(lua_State*L,Table*t,int key){ +const TValue*p=luaH_getnum(t,key); +if(p!=(&luaO_nilobject_)) +return cast(TValue*,p); +else{ +TValue k; +setnvalue(&k,cast_num(key)); +return newkey(L,t,&k); +} +} +static TValue*luaH_setstr(lua_State*L,Table*t,TString*key){ +const TValue*p=luaH_getstr(t,key); +if(p!=(&luaO_nilobject_)) +return cast(TValue*,p); +else{ +TValue k; +setsvalue(L,&k,key); +return newkey(L,t,&k); +} +} +static int unbound_search(Table*t,unsigned int j){ +unsigned int i=j; +j++; +while(!ttisnil(luaH_getnum(t,j))){ +i=j; +j*=2; +if(j>cast(unsigned int,(INT_MAX-2))){ +i=1; +while(!ttisnil(luaH_getnum(t,i)))i++; +return i-1; +} +} +while(j-i>1){ +unsigned int m=(i+j)/2; +if(ttisnil(luaH_getnum(t,m)))j=m; +else i=m; +} +return i; +} +static int luaH_getn(Table*t){ +unsigned int j=t->sizearray; +if(j>0&&ttisnil(&t->array[j-1])){ +unsigned int i=0; +while(j-i>1){ +unsigned int m=(i+j)/2; +if(ttisnil(&t->array[m-1]))j=m; +else i=m; +} +return i; +} +else if(t->node==(&dummynode_)) +return j; +else return unbound_search(t,j); +} +#define makewhite(g,x)((x)->gch.marked=cast_byte(((x)->gch.marked&cast_byte(~(bitmask(2)|bit2mask(0,1))))|luaC_white(g))) +#define white2gray(x)reset2bits((x)->gch.marked,0,1) +#define black2gray(x)resetbit((x)->gch.marked,2) +#define stringmark(s)reset2bits((s)->tsv.marked,0,1) +#define isfinalized(u)testbit((u)->marked,3) +#define markfinalized(u)l_setbit((u)->marked,3) +#define markvalue(g,o){checkconsistency(o);if(iscollectable(o)&&iswhite(gcvalue(o)))reallymarkobject(g,gcvalue(o));} +#define markobject(g,t){if(iswhite(obj2gco(t)))reallymarkobject(g,obj2gco(t));} +#define setthreshold(g)(g->GCthreshold=(g->estimate/100)*g->gcpause) +static void removeentry(Node*n){ +if(iscollectable(gkey(n))) +setttype(gkey(n),(8+3)); +} +static void reallymarkobject(global_State*g,GCObject*o){ +white2gray(o); +switch(o->gch.tt){ +case 4:{ +return; +} +case 7:{ +Table*mt=gco2u(o)->metatable; +gray2black(o); +if(mt)markobject(g,mt); +markobject(g,gco2u(o)->env); +return; +} +case(8+2):{ +UpVal*uv=gco2uv(o); +markvalue(g,uv->v); +if(uv->v==&uv->u.value) +gray2black(o); +return; +} +case 6:{ +gco2cl(o)->c.gclist=g->gray; +g->gray=o; +break; +} +case 5:{ +gco2h(o)->gclist=g->gray; +g->gray=o; +break; +} +case 8:{ +gco2th(o)->gclist=g->gray; +g->gray=o; +break; +} +case(8+1):{ +gco2p(o)->gclist=g->gray; +g->gray=o; +break; +} +default:; +} +} +static void marktmu(global_State*g){ +GCObject*u=g->tmudata; +if(u){ +do{ +u=u->gch.next; +makewhite(g,u); +reallymarkobject(g,u); +}while(u!=g->tmudata); +} +} +static size_t luaC_separateudata(lua_State*L,int all){ +global_State*g=G(L); +size_t deadmem=0; +GCObject**p=&g->mainthread->next; +GCObject*curr; +while((curr=*p)!=NULL){ +if(!(iswhite(curr)||all)||isfinalized(gco2u(curr))) +p=&curr->gch.next; +else if(fasttm(L,gco2u(curr)->metatable,TM_GC)==NULL){ +markfinalized(gco2u(curr)); +p=&curr->gch.next; +} +else{ +deadmem+=sizeudata(gco2u(curr)); +markfinalized(gco2u(curr)); +*p=curr->gch.next; +if(g->tmudata==NULL) +g->tmudata=curr->gch.next=curr; +else{ +curr->gch.next=g->tmudata->gch.next; +g->tmudata->gch.next=curr; +g->tmudata=curr; +} +} +} +return deadmem; +} +static int traversetable(global_State*g,Table*h){ +int i; +int weakkey=0; +int weakvalue=0; +const TValue*mode; +if(h->metatable) +markobject(g,h->metatable); +mode=gfasttm(g,h->metatable,TM_MODE); +if(mode&&ttisstring(mode)){ +weakkey=(strchr(svalue(mode),'k')!=NULL); +weakvalue=(strchr(svalue(mode),'v')!=NULL); +if(weakkey||weakvalue){ +h->marked&=~(bitmask(3)|bitmask(4)); +h->marked|=cast_byte((weakkey<<3)| +(weakvalue<<4)); +h->gclist=g->weak; +g->weak=obj2gco(h); +} +} +if(weakkey&&weakvalue)return 1; +if(!weakvalue){ +i=h->sizearray; +while(i--) +markvalue(g,&h->array[i]); +} +i=sizenode(h); +while(i--){ +Node*n=gnode(h,i); +if(ttisnil(gval(n))) +removeentry(n); +else{ +if(!weakkey)markvalue(g,gkey(n)); +if(!weakvalue)markvalue(g,gval(n)); +} +} +return weakkey||weakvalue; +} +static void traverseproto(global_State*g,Proto*f){ +int i; +if(f->source)stringmark(f->source); +for(i=0;isizek;i++) +markvalue(g,&f->k[i]); +for(i=0;isizeupvalues;i++){ +if(f->upvalues[i]) +stringmark(f->upvalues[i]); +} +for(i=0;isizep;i++){ +if(f->p[i]) +markobject(g,f->p[i]); +} +for(i=0;isizelocvars;i++){ +if(f->locvars[i].varname) +stringmark(f->locvars[i].varname); +} +} +static void traverseclosure(global_State*g,Closure*cl){ +markobject(g,cl->c.env); +if(cl->c.isC){ +int i; +for(i=0;ic.nupvalues;i++) +markvalue(g,&cl->c.upvalue[i]); +} +else{ +int i; +markobject(g,cl->l.p); +for(i=0;il.nupvalues;i++) +markobject(g,cl->l.upvals[i]); +} +} +static void checkstacksizes(lua_State*L,StkId max){ +int ci_used=cast_int(L->ci-L->base_ci); +int s_used=cast_int(max-L->stack); +if(L->size_ci>20000) +return; +if(4*ci_usedsize_ci&&2*8size_ci) +luaD_reallocCI(L,L->size_ci/2); +condhardstacktests(luaD_reallocCI(L,ci_used+1)); +if(4*s_usedstacksize&& +2*((2*20)+5)stacksize) +luaD_reallocstack(L,L->stacksize/2); +condhardstacktests(luaD_reallocstack(L,s_used)); +} +static void traversestack(global_State*g,lua_State*l){ +StkId o,lim; +CallInfo*ci; +markvalue(g,gt(l)); +lim=l->top; +for(ci=l->base_ci;ci<=l->ci;ci++){ +if(limtop)lim=ci->top; +} +for(o=l->stack;otop;o++) +markvalue(g,o); +for(;o<=lim;o++) +setnilvalue(o); +checkstacksizes(l,lim); +} +static l_mem propagatemark(global_State*g){ +GCObject*o=g->gray; +gray2black(o); +switch(o->gch.tt){ +case 5:{ +Table*h=gco2h(o); +g->gray=h->gclist; +if(traversetable(g,h)) +black2gray(o); +return sizeof(Table)+sizeof(TValue)*h->sizearray+ +sizeof(Node)*sizenode(h); +} +case 6:{ +Closure*cl=gco2cl(o); +g->gray=cl->c.gclist; +traverseclosure(g,cl); +return(cl->c.isC)?sizeCclosure(cl->c.nupvalues): +sizeLclosure(cl->l.nupvalues); +} +case 8:{ +lua_State*th=gco2th(o); +g->gray=th->gclist; +th->gclist=g->grayagain; +g->grayagain=o; +black2gray(o); +traversestack(g,th); +return sizeof(lua_State)+sizeof(TValue)*th->stacksize+ +sizeof(CallInfo)*th->size_ci; +} +case(8+1):{ +Proto*p=gco2p(o); +g->gray=p->gclist; +traverseproto(g,p); +return sizeof(Proto)+sizeof(Instruction)*p->sizecode+ +sizeof(Proto*)*p->sizep+ +sizeof(TValue)*p->sizek+ +sizeof(int)*p->sizelineinfo+ +sizeof(LocVar)*p->sizelocvars+ +sizeof(TString*)*p->sizeupvalues; +} +default:return 0; +} +} +static size_t propagateall(global_State*g){ +size_t m=0; +while(g->gray)m+=propagatemark(g); +return m; +} +static int iscleared(const TValue*o,int iskey){ +if(!iscollectable(o))return 0; +if(ttisstring(o)){ +stringmark(rawtsvalue(o)); +return 0; +} +return iswhite(gcvalue(o))|| +(ttisuserdata(o)&&(!iskey&&isfinalized(uvalue(o)))); +} +static void cleartable(GCObject*l){ +while(l){ +Table*h=gco2h(l); +int i=h->sizearray; +if(testbit(h->marked,4)){ +while(i--){ +TValue*o=&h->array[i]; +if(iscleared(o,0)) +setnilvalue(o); +} +} +i=sizenode(h); +while(i--){ +Node*n=gnode(h,i); +if(!ttisnil(gval(n))&& +(iscleared(key2tval(n),1)||iscleared(gval(n),0))){ +setnilvalue(gval(n)); +removeentry(n); +} +} +l=h->gclist; +} +} +static void freeobj(lua_State*L,GCObject*o){ +switch(o->gch.tt){ +case(8+1):luaF_freeproto(L,gco2p(o));break; +case 6:luaF_freeclosure(L,gco2cl(o));break; +case(8+2):luaF_freeupval(L,gco2uv(o));break; +case 5:luaH_free(L,gco2h(o));break; +case 8:{ +luaE_freethread(L,gco2th(o)); +break; +} +case 4:{ +G(L)->strt.nuse--; +luaM_freemem(L,o,sizestring(gco2ts(o))); +break; +} +case 7:{ +luaM_freemem(L,o,sizeudata(gco2u(o))); +break; +} +default:; +} +} +#define sweepwholelist(L,p)sweeplist(L,p,((lu_mem)(~(lu_mem)0)-2)) +static GCObject**sweeplist(lua_State*L,GCObject**p,lu_mem count){ +GCObject*curr; +global_State*g=G(L); +int deadmask=otherwhite(g); +while((curr=*p)!=NULL&&count-->0){ +if(curr->gch.tt==8) +sweepwholelist(L,&gco2th(curr)->openupval); +if((curr->gch.marked^bit2mask(0,1))&deadmask){ +makewhite(g,curr); +p=&curr->gch.next; +} +else{ +*p=curr->gch.next; +if(curr==g->rootgc) +g->rootgc=curr->gch.next; +freeobj(L,curr); +} +} +return p; +} +static void checkSizes(lua_State*L){ +global_State*g=G(L); +if(g->strt.nusestrt.size/4)&& +g->strt.size>32*2) +luaS_resize(L,g->strt.size/2); +if(luaZ_sizebuffer(&g->buff)>32*2){ +size_t newsize=luaZ_sizebuffer(&g->buff)/2; +luaZ_resizebuffer(L,&g->buff,newsize); +} +} +static void GCTM(lua_State*L){ +global_State*g=G(L); +GCObject*o=g->tmudata->gch.next; +Udata*udata=rawgco2u(o); +const TValue*tm; +if(o==g->tmudata) +g->tmudata=NULL; +else +g->tmudata->gch.next=udata->uv.next; +udata->uv.next=g->mainthread->next; +g->mainthread->next=o; +makewhite(g,o); +tm=fasttm(L,udata->uv.metatable,TM_GC); +if(tm!=NULL){ +lu_byte oldah=L->allowhook; +lu_mem oldt=g->GCthreshold; +L->allowhook=0; +g->GCthreshold=2*g->totalbytes; +setobj(L,L->top,tm); +setuvalue(L,L->top+1,udata); +L->top+=2; +luaD_call(L,L->top-2,0); +L->allowhook=oldah; +g->GCthreshold=oldt; +} +} +static void luaC_callGCTM(lua_State*L){ +while(G(L)->tmudata) +GCTM(L); +} +static void luaC_freeall(lua_State*L){ +global_State*g=G(L); +int i; +g->currentwhite=bit2mask(0,1)|bitmask(6); +sweepwholelist(L,&g->rootgc); +for(i=0;istrt.size;i++) +sweepwholelist(L,&g->strt.hash[i]); +} +static void markmt(global_State*g){ +int i; +for(i=0;i<(8+1);i++) +if(g->mt[i])markobject(g,g->mt[i]); +} +static void markroot(lua_State*L){ +global_State*g=G(L); +g->gray=NULL; +g->grayagain=NULL; +g->weak=NULL; +markobject(g,g->mainthread); +markvalue(g,gt(g->mainthread)); +markvalue(g,registry(L)); +markmt(g); +g->gcstate=1; +} +static void remarkupvals(global_State*g){ +UpVal*uv; +for(uv=g->uvhead.u.l.next;uv!=&g->uvhead;uv=uv->u.l.next){ +if(isgray(obj2gco(uv))) +markvalue(g,uv->v); +} +} +static void atomic(lua_State*L){ +global_State*g=G(L); +size_t udsize; +remarkupvals(g); +propagateall(g); +g->gray=g->weak; +g->weak=NULL; +markobject(g,L); +markmt(g); +propagateall(g); +g->gray=g->grayagain; +g->grayagain=NULL; +propagateall(g); +udsize=luaC_separateudata(L,0); +marktmu(g); +udsize+=propagateall(g); +cleartable(g->weak); +g->currentwhite=cast_byte(otherwhite(g)); +g->sweepstrgc=0; +g->sweepgc=&g->rootgc; +g->gcstate=2; +g->estimate=g->totalbytes-udsize; +} +static l_mem singlestep(lua_State*L){ +global_State*g=G(L); +switch(g->gcstate){ +case 0:{ +markroot(L); +return 0; +} +case 1:{ +if(g->gray) +return propagatemark(g); +else{ +atomic(L); +return 0; +} +} +case 2:{ +lu_mem old=g->totalbytes; +sweepwholelist(L,&g->strt.hash[g->sweepstrgc++]); +if(g->sweepstrgc>=g->strt.size) +g->gcstate=3; +g->estimate-=old-g->totalbytes; +return 10; +} +case 3:{ +lu_mem old=g->totalbytes; +g->sweepgc=sweeplist(L,g->sweepgc,40); +if(*g->sweepgc==NULL){ +checkSizes(L); +g->gcstate=4; +} +g->estimate-=old-g->totalbytes; +return 40*10; +} +case 4:{ +if(g->tmudata){ +GCTM(L); +if(g->estimate>100) +g->estimate-=100; +return 100; +} +else{ +g->gcstate=0; +g->gcdept=0; +return 0; +} +} +default:return 0; +} +} +static void luaC_step(lua_State*L){ +global_State*g=G(L); +l_mem lim=(1024u/100)*g->gcstepmul; +if(lim==0) +lim=(((lu_mem)(~(lu_mem)0)-2)-1)/2; +g->gcdept+=g->totalbytes-g->GCthreshold; +do{ +lim-=singlestep(L); +if(g->gcstate==0) +break; +}while(lim>0); +if(g->gcstate!=0){ +if(g->gcdept<1024u) +g->GCthreshold=g->totalbytes+1024u; +else{ +g->gcdept-=1024u; +g->GCthreshold=g->totalbytes; +} +} +else{ +setthreshold(g); +} +} +static void luaC_barrierf(lua_State*L,GCObject*o,GCObject*v){ +global_State*g=G(L); +if(g->gcstate==1) +reallymarkobject(g,v); +else +makewhite(g,o); +} +static void luaC_barrierback(lua_State*L,Table*t){ +global_State*g=G(L); +GCObject*o=obj2gco(t); +black2gray(o); +t->gclist=g->grayagain; +g->grayagain=o; +} +static void luaC_link(lua_State*L,GCObject*o,lu_byte tt){ +global_State*g=G(L); +o->gch.next=g->rootgc; +g->rootgc=o; +o->gch.marked=luaC_white(g); +o->gch.tt=tt; +} +static void luaC_linkupval(lua_State*L,UpVal*uv){ +global_State*g=G(L); +GCObject*o=obj2gco(uv); +o->gch.next=g->rootgc; +g->rootgc=o; +if(isgray(o)){ +if(g->gcstate==1){ +gray2black(o); +luaC_barrier(L,uv,uv->v); +} +else{ +makewhite(g,o); +} +} +} +typedef union{ +lua_Number r; +TString*ts; +}SemInfo; +typedef struct Token{ +int token; +SemInfo seminfo; +}Token; +typedef struct LexState{ +int current; +int linenumber; +int lastline; +Token t; +Token lookahead; +struct FuncState*fs; +struct lua_State*L; +ZIO*z; +Mbuffer*buff; +TString*source; +char decpoint; +}LexState; +static void luaX_init(lua_State*L); +static void luaX_lexerror(LexState*ls,const char*msg,int token); +#define state_size(x)(sizeof(x)+0) +#define fromstate(l)(cast(lu_byte*,(l))-0) +#define tostate(l)(cast(lua_State*,cast(lu_byte*,l)+0)) +typedef struct LG{ +lua_State l; +global_State g; +}LG; +static void stack_init(lua_State*L1,lua_State*L){ +L1->base_ci=luaM_newvector(L,8,CallInfo); +L1->ci=L1->base_ci; +L1->size_ci=8; +L1->end_ci=L1->base_ci+L1->size_ci-1; +L1->stack=luaM_newvector(L,(2*20)+5,TValue); +L1->stacksize=(2*20)+5; +L1->top=L1->stack; +L1->stack_last=L1->stack+(L1->stacksize-5)-1; +L1->ci->func=L1->top; +setnilvalue(L1->top++); +L1->base=L1->ci->base=L1->top; +L1->ci->top=L1->top+20; +} +static void freestack(lua_State*L,lua_State*L1){ +luaM_freearray(L,L1->base_ci,L1->size_ci,CallInfo); +luaM_freearray(L,L1->stack,L1->stacksize,TValue); +} +static void f_luaopen(lua_State*L,void*ud){ +global_State*g=G(L); +UNUSED(ud); +stack_init(L,L); +sethvalue(L,gt(L),luaH_new(L,0,2)); +sethvalue(L,registry(L),luaH_new(L,0,2)); +luaS_resize(L,32); +luaT_init(L); +luaX_init(L); +luaS_fix(luaS_newliteral(L,"not enough memory")); +g->GCthreshold=4*g->totalbytes; +} +static void preinit_state(lua_State*L,global_State*g){ +G(L)=g; +L->stack=NULL; +L->stacksize=0; +L->errorJmp=NULL; +L->hook=NULL; +L->hookmask=0; +L->basehookcount=0; +L->allowhook=1; +resethookcount(L); +L->openupval=NULL; +L->size_ci=0; +L->nCcalls=L->baseCcalls=0; +L->status=0; +L->base_ci=L->ci=NULL; +L->savedpc=NULL; +L->errfunc=0; +setnilvalue(gt(L)); +} +static void close_state(lua_State*L){ +global_State*g=G(L); +luaF_close(L,L->stack); +luaC_freeall(L); +luaM_freearray(L,G(L)->strt.hash,G(L)->strt.size,TString*); +luaZ_freebuffer(L,&g->buff); +freestack(L,L); +(*g->frealloc)(g->ud,fromstate(L),state_size(LG),0); +} +static void luaE_freethread(lua_State*L,lua_State*L1){ +luaF_close(L1,L1->stack); +freestack(L,L1); +luaM_freemem(L,fromstate(L1),state_size(lua_State)); +} +static lua_State*lua_newstate(lua_Alloc f,void*ud){ +int i; +lua_State*L; +global_State*g; +void*l=(*f)(ud,NULL,0,state_size(LG)); +if(l==NULL)return NULL; +L=tostate(l); +g=&((LG*)L)->g; +L->next=NULL; +L->tt=8; +g->currentwhite=bit2mask(0,5); +L->marked=luaC_white(g); +set2bits(L->marked,5,6); +preinit_state(L,g); +g->frealloc=f; +g->ud=ud; +g->mainthread=L; +g->uvhead.u.l.prev=&g->uvhead; +g->uvhead.u.l.next=&g->uvhead; +g->GCthreshold=0; +g->strt.size=0; +g->strt.nuse=0; +g->strt.hash=NULL; +setnilvalue(registry(L)); +luaZ_initbuffer(L,&g->buff); +g->panic=NULL; +g->gcstate=0; +g->rootgc=obj2gco(L); +g->sweepstrgc=0; +g->sweepgc=&g->rootgc; +g->gray=NULL; +g->grayagain=NULL; +g->weak=NULL; +g->tmudata=NULL; +g->totalbytes=sizeof(LG); +g->gcpause=200; +g->gcstepmul=200; +g->gcdept=0; +for(i=0;i<(8+1);i++)g->mt[i]=NULL; +if(luaD_rawrunprotected(L,f_luaopen,NULL)!=0){ +close_state(L); +L=NULL; +} +else +{} +return L; +} +static void callallgcTM(lua_State*L,void*ud){ +UNUSED(ud); +luaC_callGCTM(L); +} +static void lua_close(lua_State*L){ +L=G(L)->mainthread; +luaF_close(L,L->stack); +luaC_separateudata(L,1); +L->errfunc=0; +do{ +L->ci=L->base_ci; +L->base=L->top=L->ci->base; +L->nCcalls=L->baseCcalls=0; +}while(luaD_rawrunprotected(L,callallgcTM,NULL)!=0); +close_state(L); +} +#define getcode(fs,e)((fs)->f->code[(e)->u.s.info]) +#define luaK_codeAsBx(fs,o,A,sBx)luaK_codeABx(fs,o,A,(sBx)+(((1<<(9+9))-1)>>1)) +#define luaK_setmultret(fs,e)luaK_setreturns(fs,e,(-1)) +static int luaK_codeABx(FuncState*fs,OpCode o,int A,unsigned int Bx); +static int luaK_codeABC(FuncState*fs,OpCode o,int A,int B,int C); +static void luaK_setreturns(FuncState*fs,expdesc*e,int nresults); +static void luaK_patchtohere(FuncState*fs,int list); +static void luaK_concat(FuncState*fs,int*l1,int l2); +static int currentpc(lua_State*L,CallInfo*ci){ +if(!isLua(ci))return-1; +if(ci==L->ci) +ci->savedpc=L->savedpc; +return pcRel(ci->savedpc,ci_func(ci)->l.p); +} +static int currentline(lua_State*L,CallInfo*ci){ +int pc=currentpc(L,ci); +if(pc<0) +return-1; +else +return getline_(ci_func(ci)->l.p,pc); +} +static int lua_getstack(lua_State*L,int level,lua_Debug*ar){ +int status; +CallInfo*ci; +for(ci=L->ci;level>0&&ci>L->base_ci;ci--){ +level--; +if(f_isLua(ci)) +level-=ci->tailcalls; +} +if(level==0&&ci>L->base_ci){ +status=1; +ar->i_ci=cast_int(ci-L->base_ci); +} +else if(level<0){ +status=1; +ar->i_ci=0; +} +else status=0; +return status; +} +static Proto*getluaproto(CallInfo*ci){ +return(isLua(ci)?ci_func(ci)->l.p:NULL); +} +static void funcinfo(lua_Debug*ar,Closure*cl){ +if(cl->c.isC){ +ar->source="=[C]"; +ar->linedefined=-1; +ar->lastlinedefined=-1; +ar->what="C"; +} +else{ +ar->source=getstr(cl->l.p->source); +ar->linedefined=cl->l.p->linedefined; +ar->lastlinedefined=cl->l.p->lastlinedefined; +ar->what=(ar->linedefined==0)?"main":"Lua"; +} +luaO_chunkid(ar->short_src,ar->source,60); +} +static void info_tailcall(lua_Debug*ar){ +ar->name=ar->namewhat=""; +ar->what="tail"; +ar->lastlinedefined=ar->linedefined=ar->currentline=-1; +ar->source="=(tail call)"; +luaO_chunkid(ar->short_src,ar->source,60); +ar->nups=0; +} +static void collectvalidlines(lua_State*L,Closure*f){ +if(f==NULL||f->c.isC){ +setnilvalue(L->top); +} +else{ +Table*t=luaH_new(L,0,0); +int*lineinfo=f->l.p->lineinfo; +int i; +for(i=0;il.p->sizelineinfo;i++) +setbvalue(luaH_setnum(L,t,lineinfo[i]),1); +sethvalue(L,L->top,t); +} +incr_top(L); +} +static int auxgetinfo(lua_State*L,const char*what,lua_Debug*ar, +Closure*f,CallInfo*ci){ +int status=1; +if(f==NULL){ +info_tailcall(ar); +return status; +} +for(;*what;what++){ +switch(*what){ +case'S':{ +funcinfo(ar,f); +break; +} +case'l':{ +ar->currentline=(ci)?currentline(L,ci):-1; +break; +} +case'u':{ +ar->nups=f->c.nupvalues; +break; +} +case'n':{ +ar->namewhat=(ci)?NULL:NULL; +if(ar->namewhat==NULL){ +ar->namewhat=""; +ar->name=NULL; +} +break; +} +case'L': +case'f': +break; +default:status=0; +} +} +return status; +} +static int lua_getinfo(lua_State*L,const char*what,lua_Debug*ar){ +int status; +Closure*f=NULL; +CallInfo*ci=NULL; +if(*what=='>'){ +StkId func=L->top-1; +luai_apicheck(L,ttisfunction(func)); +what++; +f=clvalue(func); +L->top--; +} +else if(ar->i_ci!=0){ +ci=L->base_ci+ar->i_ci; +f=clvalue(ci->func); +} +status=auxgetinfo(L,what,ar,f,ci); +if(strchr(what,'f')){ +if(f==NULL)setnilvalue(L->top); +else setclvalue(L,L->top,f); +incr_top(L); +} +if(strchr(what,'L')) +collectvalidlines(L,f); +return status; +} +static int isinstack(CallInfo*ci,const TValue*o){ +StkId p; +for(p=ci->base;ptop;p++) +if(o==p)return 1; +return 0; +} +static void luaG_typeerror(lua_State*L,const TValue*o,const char*op){ +const char*name=NULL; +const char*t=luaT_typenames[ttype(o)]; +const char*kind=(isinstack(L->ci,o))? +NULL: +NULL; +if(kind) +luaG_runerror(L,"attempt to %s %s "LUA_QL("%s")" (a %s value)", +op,kind,name,t); +else +luaG_runerror(L,"attempt to %s a %s value",op,t); +} +static void luaG_concaterror(lua_State*L,StkId p1,StkId p2){ +if(ttisstring(p1)||ttisnumber(p1))p1=p2; +luaG_typeerror(L,p1,"concatenate"); +} +static void luaG_aritherror(lua_State*L,const TValue*p1,const TValue*p2){ +TValue temp; +if(luaV_tonumber(p1,&temp)==NULL) +p2=p1; +luaG_typeerror(L,p2,"perform arithmetic on"); +} +static int luaG_ordererror(lua_State*L,const TValue*p1,const TValue*p2){ +const char*t1=luaT_typenames[ttype(p1)]; +const char*t2=luaT_typenames[ttype(p2)]; +if(t1[2]==t2[2]) +luaG_runerror(L,"attempt to compare two %s values",t1); +else +luaG_runerror(L,"attempt to compare %s with %s",t1,t2); +return 0; +} +static void addinfo(lua_State*L,const char*msg){ +CallInfo*ci=L->ci; +if(isLua(ci)){ +char buff[60]; +int line=currentline(L,ci); +luaO_chunkid(buff,getstr(getluaproto(ci)->source),60); +luaO_pushfstring(L,"%s:%d: %s",buff,line,msg); +} +} +static void luaG_errormsg(lua_State*L){ +if(L->errfunc!=0){ +StkId errfunc=restorestack(L,L->errfunc); +if(!ttisfunction(errfunc))luaD_throw(L,5); +setobj(L,L->top,L->top-1); +setobj(L,L->top-1,errfunc); +incr_top(L); +luaD_call(L,L->top-2,1); +} +luaD_throw(L,2); +} +static void luaG_runerror(lua_State*L,const char*fmt,...){ +va_list argp; +va_start(argp,fmt); +addinfo(L,luaO_pushvfstring(L,fmt,argp)); +va_end(argp); +luaG_errormsg(L); +} +static int luaZ_fill(ZIO*z){ +size_t size; +lua_State*L=z->L; +const char*buff; +buff=z->reader(L,z->data,&size); +if(buff==NULL||size==0)return(-1); +z->n=size-1; +z->p=buff; +return char2int(*(z->p++)); +} +static void luaZ_init(lua_State*L,ZIO*z,lua_Reader reader,void*data){ +z->L=L; +z->reader=reader; +z->data=data; +z->n=0; +z->p=NULL; +} +static char*luaZ_openspace(lua_State*L,Mbuffer*buff,size_t n){ +if(n>buff->buffsize){ +if(n<32)n=32; +luaZ_resizebuffer(L,buff,n); +} +return buff->buffer; +} +#define opmode(t,a,b,c,m)(((t)<<7)|((a)<<6)|((b)<<4)|((c)<<2)|(m)) +static const lu_byte luaP_opmodes[(cast(int,OP_VARARG)+1)]={ +opmode(0,1,OpArgR,OpArgN,iABC) +,opmode(0,1,OpArgK,OpArgN,iABx) +,opmode(0,1,OpArgU,OpArgU,iABC) +,opmode(0,1,OpArgR,OpArgN,iABC) +,opmode(0,1,OpArgU,OpArgN,iABC) +,opmode(0,1,OpArgK,OpArgN,iABx) +,opmode(0,1,OpArgR,OpArgK,iABC) +,opmode(0,0,OpArgK,OpArgN,iABx) +,opmode(0,0,OpArgU,OpArgN,iABC) +,opmode(0,0,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgU,OpArgU,iABC) +,opmode(0,1,OpArgR,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgK,OpArgK,iABC) +,opmode(0,1,OpArgR,OpArgN,iABC) +,opmode(0,1,OpArgR,OpArgN,iABC) +,opmode(0,1,OpArgR,OpArgN,iABC) +,opmode(0,1,OpArgR,OpArgR,iABC) +,opmode(0,0,OpArgR,OpArgN,iAsBx) +,opmode(1,0,OpArgK,OpArgK,iABC) +,opmode(1,0,OpArgK,OpArgK,iABC) +,opmode(1,0,OpArgK,OpArgK,iABC) +,opmode(1,1,OpArgR,OpArgU,iABC) +,opmode(1,1,OpArgR,OpArgU,iABC) +,opmode(0,1,OpArgU,OpArgU,iABC) +,opmode(0,1,OpArgU,OpArgU,iABC) +,opmode(0,0,OpArgU,OpArgN,iABC) +,opmode(0,1,OpArgR,OpArgN,iAsBx) +,opmode(0,1,OpArgR,OpArgN,iAsBx) +,opmode(1,0,OpArgN,OpArgU,iABC) +,opmode(0,0,OpArgU,OpArgU,iABC) +,opmode(0,0,OpArgN,OpArgN,iABC) +,opmode(0,1,OpArgU,OpArgN,iABx) +,opmode(0,1,OpArgU,OpArgN,iABC) +}; +#define next(ls)(ls->current=zgetc(ls->z)) +#define currIsNewline(ls)(ls->current=='\n'||ls->current=='\r') +static const char*const luaX_tokens[]={ +"and","break","do","else","elseif", +"end","false","for","function","if", +"in","local","nil","not","or","repeat", +"return","then","true","until","while", +"..","...","==",">=","<=","~=", +"","","","", +NULL +}; +#define save_and_next(ls)(save(ls,ls->current),next(ls)) +static void save(LexState*ls,int c){ +Mbuffer*b=ls->buff; +if(b->n+1>b->buffsize){ +size_t newsize; +if(b->buffsize>=((size_t)(~(size_t)0)-2)/2) +luaX_lexerror(ls,"lexical element too long",0); +newsize=b->buffsize*2; +luaZ_resizebuffer(ls->L,b,newsize); +} +b->buffer[b->n++]=cast(char,c); +} +static void luaX_init(lua_State*L){ +int i; +for(i=0;i<(cast(int,TK_WHILE-257+1));i++){ +TString*ts=luaS_new(L,luaX_tokens[i]); +luaS_fix(ts); +ts->tsv.reserved=cast_byte(i+1); +} +} +static const char*luaX_token2str(LexState*ls,int token){ +if(token<257){ +return(iscntrl(token))?luaO_pushfstring(ls->L,"char(%d)",token): +luaO_pushfstring(ls->L,"%c",token); +} +else +return luaX_tokens[token-257]; +} +static const char*txtToken(LexState*ls,int token){ +switch(token){ +case TK_NAME: +case TK_STRING: +case TK_NUMBER: +save(ls,'\0'); +return luaZ_buffer(ls->buff); +default: +return luaX_token2str(ls,token); +} +} +static void luaX_lexerror(LexState*ls,const char*msg,int token){ +char buff[80]; +luaO_chunkid(buff,getstr(ls->source),80); +msg=luaO_pushfstring(ls->L,"%s:%d: %s",buff,ls->linenumber,msg); +if(token) +luaO_pushfstring(ls->L,"%s near "LUA_QL("%s"),msg,txtToken(ls,token)); +luaD_throw(ls->L,3); +} +static void luaX_syntaxerror(LexState*ls,const char*msg){ +luaX_lexerror(ls,msg,ls->t.token); +} +static TString*luaX_newstring(LexState*ls,const char*str,size_t l){ +lua_State*L=ls->L; +TString*ts=luaS_newlstr(L,str,l); +TValue*o=luaH_setstr(L,ls->fs->h,ts); +if(ttisnil(o)){ +setbvalue(o,1); +luaC_checkGC(L); +} +return ts; +} +static void inclinenumber(LexState*ls){ +int old=ls->current; +next(ls); +if(currIsNewline(ls)&&ls->current!=old) +next(ls); +if(++ls->linenumber>=(INT_MAX-2)) +luaX_syntaxerror(ls,"chunk has too many lines"); +} +static void luaX_setinput(lua_State*L,LexState*ls,ZIO*z,TString*source){ +ls->decpoint='.'; +ls->L=L; +ls->lookahead.token=TK_EOS; +ls->z=z; +ls->fs=NULL; +ls->linenumber=1; +ls->lastline=1; +ls->source=source; +luaZ_resizebuffer(ls->L,ls->buff,32); +next(ls); +} +static int check_next(LexState*ls,const char*set){ +if(!strchr(set,ls->current)) +return 0; +save_and_next(ls); +return 1; +} +static void buffreplace(LexState*ls,char from,char to){ +size_t n=luaZ_bufflen(ls->buff); +char*p=luaZ_buffer(ls->buff); +while(n--) +if(p[n]==from)p[n]=to; +} +static void read_numeral(LexState*ls,SemInfo*seminfo){ +do{ +save_and_next(ls); +}while(isdigit(ls->current)||ls->current=='.'); +if(check_next(ls,"Ee")) +check_next(ls,"+-"); +while(isalnum(ls->current)||ls->current=='_') +save_and_next(ls); +save(ls,'\0'); +buffreplace(ls,'.',ls->decpoint); +if(!luaO_str2d(luaZ_buffer(ls->buff),&seminfo->r)) +luaX_lexerror(ls,"malformed number",TK_NUMBER); +} +static int skip_sep(LexState*ls){ +int count=0; +int s=ls->current; +save_and_next(ls); +while(ls->current=='='){ +save_and_next(ls); +count++; +} +return(ls->current==s)?count:(-count)-1; +} +static void read_long_string(LexState*ls,SemInfo*seminfo,int sep){ +int cont=0; +(void)(cont); +save_and_next(ls); +if(currIsNewline(ls)) +inclinenumber(ls); +for(;;){ +switch(ls->current){ +case(-1): +luaX_lexerror(ls,(seminfo)?"unfinished long string": +"unfinished long comment",TK_EOS); +break; +case']':{ +if(skip_sep(ls)==sep){ +save_and_next(ls); +goto endloop; +} +break; +} +case'\n': +case'\r':{ +save(ls,'\n'); +inclinenumber(ls); +if(!seminfo)luaZ_resetbuffer(ls->buff); +break; +} +default:{ +if(seminfo)save_and_next(ls); +else next(ls); +} +} +}endloop: +if(seminfo) +seminfo->ts=luaX_newstring(ls,luaZ_buffer(ls->buff)+(2+sep), +luaZ_bufflen(ls->buff)-2*(2+sep)); +} +static void read_string(LexState*ls,int del,SemInfo*seminfo){ +save_and_next(ls); +while(ls->current!=del){ +switch(ls->current){ +case(-1): +luaX_lexerror(ls,"unfinished string",TK_EOS); +continue; +case'\n': +case'\r': +luaX_lexerror(ls,"unfinished string",TK_STRING); +continue; +case'\\':{ +int c; +next(ls); +switch(ls->current){ +case'a':c='\a';break; +case'b':c='\b';break; +case'f':c='\f';break; +case'n':c='\n';break; +case'r':c='\r';break; +case't':c='\t';break; +case'v':c='\v';break; +case'\n': +case'\r':save(ls,'\n');inclinenumber(ls);continue; +case(-1):continue; +default:{ +if(!isdigit(ls->current)) +save_and_next(ls); +else{ +int i=0; +c=0; +do{ +c=10*c+(ls->current-'0'); +next(ls); +}while(++i<3&&isdigit(ls->current)); +if(c>UCHAR_MAX) +luaX_lexerror(ls,"escape sequence too large",TK_STRING); +save(ls,c); +} +continue; +} +} +save(ls,c); +next(ls); +continue; +} +default: +save_and_next(ls); +} +} +save_and_next(ls); +seminfo->ts=luaX_newstring(ls,luaZ_buffer(ls->buff)+1, +luaZ_bufflen(ls->buff)-2); +} +static int llex(LexState*ls,SemInfo*seminfo){ +luaZ_resetbuffer(ls->buff); +for(;;){ +switch(ls->current){ +case'\n': +case'\r':{ +inclinenumber(ls); +continue; +} +case'-':{ +next(ls); +if(ls->current!='-')return'-'; +next(ls); +if(ls->current=='['){ +int sep=skip_sep(ls); +luaZ_resetbuffer(ls->buff); +if(sep>=0){ +read_long_string(ls,NULL,sep); +luaZ_resetbuffer(ls->buff); +continue; +} +} +while(!currIsNewline(ls)&&ls->current!=(-1)) +next(ls); +continue; +} +case'[':{ +int sep=skip_sep(ls); +if(sep>=0){ +read_long_string(ls,seminfo,sep); +return TK_STRING; +} +else if(sep==-1)return'['; +else luaX_lexerror(ls,"invalid long string delimiter",TK_STRING); +} +case'=':{ +next(ls); +if(ls->current!='=')return'='; +else{next(ls);return TK_EQ;} +} +case'<':{ +next(ls); +if(ls->current!='=')return'<'; +else{next(ls);return TK_LE;} +} +case'>':{ +next(ls); +if(ls->current!='=')return'>'; +else{next(ls);return TK_GE;} +} +case'~':{ +next(ls); +if(ls->current!='=')return'~'; +else{next(ls);return TK_NE;} +} +case'"': +case'\'':{ +read_string(ls,ls->current,seminfo); +return TK_STRING; +} +case'.':{ +save_and_next(ls); +if(check_next(ls,".")){ +if(check_next(ls,".")) +return TK_DOTS; +else return TK_CONCAT; +} +else if(!isdigit(ls->current))return'.'; +else{ +read_numeral(ls,seminfo); +return TK_NUMBER; +} +} +case(-1):{ +return TK_EOS; +} +default:{ +if(isspace(ls->current)){ +next(ls); +continue; +} +else if(isdigit(ls->current)){ +read_numeral(ls,seminfo); +return TK_NUMBER; +} +else if(isalpha(ls->current)||ls->current=='_'){ +TString*ts; +do{ +save_and_next(ls); +}while(isalnum(ls->current)||ls->current=='_'); +ts=luaX_newstring(ls,luaZ_buffer(ls->buff), +luaZ_bufflen(ls->buff)); +if(ts->tsv.reserved>0) +return ts->tsv.reserved-1+257; +else{ +seminfo->ts=ts; +return TK_NAME; +} +} +else{ +int c=ls->current; +next(ls); +return c; +} +} +} +} +} +static void luaX_next(LexState*ls){ +ls->lastline=ls->linenumber; +if(ls->lookahead.token!=TK_EOS){ +ls->t=ls->lookahead; +ls->lookahead.token=TK_EOS; +} +else +ls->t.token=llex(ls,&ls->t.seminfo); +} +static void luaX_lookahead(LexState*ls){ +ls->lookahead.token=llex(ls,&ls->lookahead.seminfo); +} +#define hasjumps(e)((e)->t!=(e)->f) +static int isnumeral(expdesc*e){ +return(e->k==VKNUM&&e->t==(-1)&&e->f==(-1)); +} +static void luaK_nil(FuncState*fs,int from,int n){ +Instruction*previous; +if(fs->pc>fs->lasttarget){ +if(fs->pc==0){ +if(from>=fs->nactvar) +return; +} +else{ +previous=&fs->f->code[fs->pc-1]; +if(GET_OPCODE(*previous)==OP_LOADNIL){ +int pfrom=GETARG_A(*previous); +int pto=GETARG_B(*previous); +if(pfrom<=from&&from<=pto+1){ +if(from+n-1>pto) +SETARG_B(*previous,from+n-1); +return; +} +} +} +} +luaK_codeABC(fs,OP_LOADNIL,from,from+n-1,0); +} +static int luaK_jump(FuncState*fs){ +int jpc=fs->jpc; +int j; +fs->jpc=(-1); +j=luaK_codeAsBx(fs,OP_JMP,0,(-1)); +luaK_concat(fs,&j,jpc); +return j; +} +static void luaK_ret(FuncState*fs,int first,int nret){ +luaK_codeABC(fs,OP_RETURN,first,nret+1,0); +} +static int condjump(FuncState*fs,OpCode op,int A,int B,int C){ +luaK_codeABC(fs,op,A,B,C); +return luaK_jump(fs); +} +static void fixjump(FuncState*fs,int pc,int dest){ +Instruction*jmp=&fs->f->code[pc]; +int offset=dest-(pc+1); +if(abs(offset)>(((1<<(9+9))-1)>>1)) +luaX_syntaxerror(fs->ls,"control structure too long"); +SETARG_sBx(*jmp,offset); +} +static int luaK_getlabel(FuncState*fs){ +fs->lasttarget=fs->pc; +return fs->pc; +} +static int getjump(FuncState*fs,int pc){ +int offset=GETARG_sBx(fs->f->code[pc]); +if(offset==(-1)) +return(-1); +else +return(pc+1)+offset; +} +static Instruction*getjumpcontrol(FuncState*fs,int pc){ +Instruction*pi=&fs->f->code[pc]; +if(pc>=1&&testTMode(GET_OPCODE(*(pi-1)))) +return pi-1; +else +return pi; +} +static int need_value(FuncState*fs,int list){ +for(;list!=(-1);list=getjump(fs,list)){ +Instruction i=*getjumpcontrol(fs,list); +if(GET_OPCODE(i)!=OP_TESTSET)return 1; +} +return 0; +} +static int patchtestreg(FuncState*fs,int node,int reg){ +Instruction*i=getjumpcontrol(fs,node); +if(GET_OPCODE(*i)!=OP_TESTSET) +return 0; +if(reg!=((1<<8)-1)&®!=GETARG_B(*i)) +SETARG_A(*i,reg); +else +*i=CREATE_ABC(OP_TEST,GETARG_B(*i),0,GETARG_C(*i)); +return 1; +} +static void removevalues(FuncState*fs,int list){ +for(;list!=(-1);list=getjump(fs,list)) +patchtestreg(fs,list,((1<<8)-1)); +} +static void patchlistaux(FuncState*fs,int list,int vtarget,int reg, +int dtarget){ +while(list!=(-1)){ +int next=getjump(fs,list); +if(patchtestreg(fs,list,reg)) +fixjump(fs,list,vtarget); +else +fixjump(fs,list,dtarget); +list=next; +} +} +static void dischargejpc(FuncState*fs){ +patchlistaux(fs,fs->jpc,fs->pc,((1<<8)-1),fs->pc); +fs->jpc=(-1); +} +static void luaK_patchlist(FuncState*fs,int list,int target){ +if(target==fs->pc) +luaK_patchtohere(fs,list); +else{ +patchlistaux(fs,list,target,((1<<8)-1),target); +} +} +static void luaK_patchtohere(FuncState*fs,int list){ +luaK_getlabel(fs); +luaK_concat(fs,&fs->jpc,list); +} +static void luaK_concat(FuncState*fs,int*l1,int l2){ +if(l2==(-1))return; +else if(*l1==(-1)) +*l1=l2; +else{ +int list=*l1; +int next; +while((next=getjump(fs,list))!=(-1)) +list=next; +fixjump(fs,list,l2); +} +} +static void luaK_checkstack(FuncState*fs,int n){ +int newstack=fs->freereg+n; +if(newstack>fs->f->maxstacksize){ +if(newstack>=250) +luaX_syntaxerror(fs->ls,"function or expression too complex"); +fs->f->maxstacksize=cast_byte(newstack); +} +} +static void luaK_reserveregs(FuncState*fs,int n){ +luaK_checkstack(fs,n); +fs->freereg+=n; +} +static void freereg(FuncState*fs,int reg){ +if(!ISK(reg)&®>=fs->nactvar){ +fs->freereg--; +} +} +static void freeexp(FuncState*fs,expdesc*e){ +if(e->k==VNONRELOC) +freereg(fs,e->u.s.info); +} +static int addk(FuncState*fs,TValue*k,TValue*v){ +lua_State*L=fs->L; +TValue*idx=luaH_set(L,fs->h,k); +Proto*f=fs->f; +int oldsize=f->sizek; +if(ttisnumber(idx)){ +return cast_int(nvalue(idx)); +} +else{ +setnvalue(idx,cast_num(fs->nk)); +luaM_growvector(L,f->k,fs->nk,f->sizek,TValue, +((1<<(9+9))-1),"constant table overflow"); +while(oldsizesizek)setnilvalue(&f->k[oldsize++]); +setobj(L,&f->k[fs->nk],v); +luaC_barrier(L,f,v); +return fs->nk++; +} +} +static int luaK_stringK(FuncState*fs,TString*s){ +TValue o; +setsvalue(fs->L,&o,s); +return addk(fs,&o,&o); +} +static int luaK_numberK(FuncState*fs,lua_Number r){ +TValue o; +setnvalue(&o,r); +return addk(fs,&o,&o); +} +static int boolK(FuncState*fs,int b){ +TValue o; +setbvalue(&o,b); +return addk(fs,&o,&o); +} +static int nilK(FuncState*fs){ +TValue k,v; +setnilvalue(&v); +sethvalue(fs->L,&k,fs->h); +return addk(fs,&k,&v); +} +static void luaK_setreturns(FuncState*fs,expdesc*e,int nresults){ +if(e->k==VCALL){ +SETARG_C(getcode(fs,e),nresults+1); +} +else if(e->k==VVARARG){ +SETARG_B(getcode(fs,e),nresults+1); +SETARG_A(getcode(fs,e),fs->freereg); +luaK_reserveregs(fs,1); +} +} +static void luaK_setoneret(FuncState*fs,expdesc*e){ +if(e->k==VCALL){ +e->k=VNONRELOC; +e->u.s.info=GETARG_A(getcode(fs,e)); +} +else if(e->k==VVARARG){ +SETARG_B(getcode(fs,e),2); +e->k=VRELOCABLE; +} +} +static void luaK_dischargevars(FuncState*fs,expdesc*e){ +switch(e->k){ +case VLOCAL:{ +e->k=VNONRELOC; +break; +} +case VUPVAL:{ +e->u.s.info=luaK_codeABC(fs,OP_GETUPVAL,0,e->u.s.info,0); +e->k=VRELOCABLE; +break; +} +case VGLOBAL:{ +e->u.s.info=luaK_codeABx(fs,OP_GETGLOBAL,0,e->u.s.info); +e->k=VRELOCABLE; +break; +} +case VINDEXED:{ +freereg(fs,e->u.s.aux); +freereg(fs,e->u.s.info); +e->u.s.info=luaK_codeABC(fs,OP_GETTABLE,0,e->u.s.info,e->u.s.aux); +e->k=VRELOCABLE; +break; +} +case VVARARG: +case VCALL:{ +luaK_setoneret(fs,e); +break; +} +default:break; +} +} +static int code_label(FuncState*fs,int A,int b,int jump){ +luaK_getlabel(fs); +return luaK_codeABC(fs,OP_LOADBOOL,A,b,jump); +} +static void discharge2reg(FuncState*fs,expdesc*e,int reg){ +luaK_dischargevars(fs,e); +switch(e->k){ +case VNIL:{ +luaK_nil(fs,reg,1); +break; +} +case VFALSE:case VTRUE:{ +luaK_codeABC(fs,OP_LOADBOOL,reg,e->k==VTRUE,0); +break; +} +case VK:{ +luaK_codeABx(fs,OP_LOADK,reg,e->u.s.info); +break; +} +case VKNUM:{ +luaK_codeABx(fs,OP_LOADK,reg,luaK_numberK(fs,e->u.nval)); +break; +} +case VRELOCABLE:{ +Instruction*pc=&getcode(fs,e); +SETARG_A(*pc,reg); +break; +} +case VNONRELOC:{ +if(reg!=e->u.s.info) +luaK_codeABC(fs,OP_MOVE,reg,e->u.s.info,0); +break; +} +default:{ +return; +} +} +e->u.s.info=reg; +e->k=VNONRELOC; +} +static void discharge2anyreg(FuncState*fs,expdesc*e){ +if(e->k!=VNONRELOC){ +luaK_reserveregs(fs,1); +discharge2reg(fs,e,fs->freereg-1); +} +} +static void exp2reg(FuncState*fs,expdesc*e,int reg){ +discharge2reg(fs,e,reg); +if(e->k==VJMP) +luaK_concat(fs,&e->t,e->u.s.info); +if(hasjumps(e)){ +int final; +int p_f=(-1); +int p_t=(-1); +if(need_value(fs,e->t)||need_value(fs,e->f)){ +int fj=(e->k==VJMP)?(-1):luaK_jump(fs); +p_f=code_label(fs,reg,0,1); +p_t=code_label(fs,reg,1,0); +luaK_patchtohere(fs,fj); +} +final=luaK_getlabel(fs); +patchlistaux(fs,e->f,final,reg,p_f); +patchlistaux(fs,e->t,final,reg,p_t); +} +e->f=e->t=(-1); +e->u.s.info=reg; +e->k=VNONRELOC; +} +static void luaK_exp2nextreg(FuncState*fs,expdesc*e){ +luaK_dischargevars(fs,e); +freeexp(fs,e); +luaK_reserveregs(fs,1); +exp2reg(fs,e,fs->freereg-1); +} +static int luaK_exp2anyreg(FuncState*fs,expdesc*e){ +luaK_dischargevars(fs,e); +if(e->k==VNONRELOC){ +if(!hasjumps(e))return e->u.s.info; +if(e->u.s.info>=fs->nactvar){ +exp2reg(fs,e,e->u.s.info); +return e->u.s.info; +} +} +luaK_exp2nextreg(fs,e); +return e->u.s.info; +} +static void luaK_exp2val(FuncState*fs,expdesc*e){ +if(hasjumps(e)) +luaK_exp2anyreg(fs,e); +else +luaK_dischargevars(fs,e); +} +static int luaK_exp2RK(FuncState*fs,expdesc*e){ +luaK_exp2val(fs,e); +switch(e->k){ +case VKNUM: +case VTRUE: +case VFALSE: +case VNIL:{ +if(fs->nk<=((1<<(9-1))-1)){ +e->u.s.info=(e->k==VNIL)?nilK(fs): +(e->k==VKNUM)?luaK_numberK(fs,e->u.nval): +boolK(fs,(e->k==VTRUE)); +e->k=VK; +return RKASK(e->u.s.info); +} +else break; +} +case VK:{ +if(e->u.s.info<=((1<<(9-1))-1)) +return RKASK(e->u.s.info); +else break; +} +default:break; +} +return luaK_exp2anyreg(fs,e); +} +static void luaK_storevar(FuncState*fs,expdesc*var,expdesc*ex){ +switch(var->k){ +case VLOCAL:{ +freeexp(fs,ex); +exp2reg(fs,ex,var->u.s.info); +return; +} +case VUPVAL:{ +int e=luaK_exp2anyreg(fs,ex); +luaK_codeABC(fs,OP_SETUPVAL,e,var->u.s.info,0); +break; +} +case VGLOBAL:{ +int e=luaK_exp2anyreg(fs,ex); +luaK_codeABx(fs,OP_SETGLOBAL,e,var->u.s.info); +break; +} +case VINDEXED:{ +int e=luaK_exp2RK(fs,ex); +luaK_codeABC(fs,OP_SETTABLE,var->u.s.info,var->u.s.aux,e); +break; +} +default:{ +break; +} +} +freeexp(fs,ex); +} +static void luaK_self(FuncState*fs,expdesc*e,expdesc*key){ +int func; +luaK_exp2anyreg(fs,e); +freeexp(fs,e); +func=fs->freereg; +luaK_reserveregs(fs,2); +luaK_codeABC(fs,OP_SELF,func,e->u.s.info,luaK_exp2RK(fs,key)); +freeexp(fs,key); +e->u.s.info=func; +e->k=VNONRELOC; +} +static void invertjump(FuncState*fs,expdesc*e){ +Instruction*pc=getjumpcontrol(fs,e->u.s.info); +SETARG_A(*pc,!(GETARG_A(*pc))); +} +static int jumponcond(FuncState*fs,expdesc*e,int cond){ +if(e->k==VRELOCABLE){ +Instruction ie=getcode(fs,e); +if(GET_OPCODE(ie)==OP_NOT){ +fs->pc--; +return condjump(fs,OP_TEST,GETARG_B(ie),0,!cond); +} +} +discharge2anyreg(fs,e); +freeexp(fs,e); +return condjump(fs,OP_TESTSET,((1<<8)-1),e->u.s.info,cond); +} +static void luaK_goiftrue(FuncState*fs,expdesc*e){ +int pc; +luaK_dischargevars(fs,e); +switch(e->k){ +case VK:case VKNUM:case VTRUE:{ +pc=(-1); +break; +} +case VJMP:{ +invertjump(fs,e); +pc=e->u.s.info; +break; +} +default:{ +pc=jumponcond(fs,e,0); +break; +} +} +luaK_concat(fs,&e->f,pc); +luaK_patchtohere(fs,e->t); +e->t=(-1); +} +static void luaK_goiffalse(FuncState*fs,expdesc*e){ +int pc; +luaK_dischargevars(fs,e); +switch(e->k){ +case VNIL:case VFALSE:{ +pc=(-1); +break; +} +case VJMP:{ +pc=e->u.s.info; +break; +} +default:{ +pc=jumponcond(fs,e,1); +break; +} +} +luaK_concat(fs,&e->t,pc); +luaK_patchtohere(fs,e->f); +e->f=(-1); +} +static void codenot(FuncState*fs,expdesc*e){ +luaK_dischargevars(fs,e); +switch(e->k){ +case VNIL:case VFALSE:{ +e->k=VTRUE; +break; +} +case VK:case VKNUM:case VTRUE:{ +e->k=VFALSE; +break; +} +case VJMP:{ +invertjump(fs,e); +break; +} +case VRELOCABLE: +case VNONRELOC:{ +discharge2anyreg(fs,e); +freeexp(fs,e); +e->u.s.info=luaK_codeABC(fs,OP_NOT,0,e->u.s.info,0); +e->k=VRELOCABLE; +break; +} +default:{ +break; +} +} +{int temp=e->f;e->f=e->t;e->t=temp;} +removevalues(fs,e->f); +removevalues(fs,e->t); +} +static void luaK_indexed(FuncState*fs,expdesc*t,expdesc*k){ +t->u.s.aux=luaK_exp2RK(fs,k); +t->k=VINDEXED; +} +static int constfolding(OpCode op,expdesc*e1,expdesc*e2){ +lua_Number v1,v2,r; +if(!isnumeral(e1)||!isnumeral(e2))return 0; +v1=e1->u.nval; +v2=e2->u.nval; +switch(op){ +case OP_ADD:r=luai_numadd(v1,v2);break; +case OP_SUB:r=luai_numsub(v1,v2);break; +case OP_MUL:r=luai_nummul(v1,v2);break; +case OP_DIV: +if(v2==0)return 0; +r=luai_numdiv(v1,v2);break; +case OP_MOD: +if(v2==0)return 0; +r=luai_nummod(v1,v2);break; +case OP_POW:r=luai_numpow(v1,v2);break; +case OP_UNM:r=luai_numunm(v1);break; +case OP_LEN:return 0; +default:r=0;break; +} +if(luai_numisnan(r))return 0; +e1->u.nval=r; +return 1; +} +static void codearith(FuncState*fs,OpCode op,expdesc*e1,expdesc*e2){ +if(constfolding(op,e1,e2)) +return; +else{ +int o2=(op!=OP_UNM&&op!=OP_LEN)?luaK_exp2RK(fs,e2):0; +int o1=luaK_exp2RK(fs,e1); +if(o1>o2){ +freeexp(fs,e1); +freeexp(fs,e2); +} +else{ +freeexp(fs,e2); +freeexp(fs,e1); +} +e1->u.s.info=luaK_codeABC(fs,op,0,o1,o2); +e1->k=VRELOCABLE; +} +} +static void codecomp(FuncState*fs,OpCode op,int cond,expdesc*e1, +expdesc*e2){ +int o1=luaK_exp2RK(fs,e1); +int o2=luaK_exp2RK(fs,e2); +freeexp(fs,e2); +freeexp(fs,e1); +if(cond==0&&op!=OP_EQ){ +int temp; +temp=o1;o1=o2;o2=temp; +cond=1; +} +e1->u.s.info=condjump(fs,op,cond,o1,o2); +e1->k=VJMP; +} +static void luaK_prefix(FuncState*fs,UnOpr op,expdesc*e){ +expdesc e2; +e2.t=e2.f=(-1);e2.k=VKNUM;e2.u.nval=0; +switch(op){ +case OPR_MINUS:{ +if(!isnumeral(e)) +luaK_exp2anyreg(fs,e); +codearith(fs,OP_UNM,e,&e2); +break; +} +case OPR_NOT:codenot(fs,e);break; +case OPR_LEN:{ +luaK_exp2anyreg(fs,e); +codearith(fs,OP_LEN,e,&e2); +break; +} +default:; +} +} +static void luaK_infix(FuncState*fs,BinOpr op,expdesc*v){ +switch(op){ +case OPR_AND:{ +luaK_goiftrue(fs,v); +break; +} +case OPR_OR:{ +luaK_goiffalse(fs,v); +break; +} +case OPR_CONCAT:{ +luaK_exp2nextreg(fs,v); +break; +} +case OPR_ADD:case OPR_SUB:case OPR_MUL:case OPR_DIV: +case OPR_MOD:case OPR_POW:{ +if(!isnumeral(v))luaK_exp2RK(fs,v); +break; +} +default:{ +luaK_exp2RK(fs,v); +break; +} +} +} +static void luaK_posfix(FuncState*fs,BinOpr op,expdesc*e1,expdesc*e2){ +switch(op){ +case OPR_AND:{ +luaK_dischargevars(fs,e2); +luaK_concat(fs,&e2->f,e1->f); +*e1=*e2; +break; +} +case OPR_OR:{ +luaK_dischargevars(fs,e2); +luaK_concat(fs,&e2->t,e1->t); +*e1=*e2; +break; +} +case OPR_CONCAT:{ +luaK_exp2val(fs,e2); +if(e2->k==VRELOCABLE&&GET_OPCODE(getcode(fs,e2))==OP_CONCAT){ +freeexp(fs,e1); +SETARG_B(getcode(fs,e2),e1->u.s.info); +e1->k=VRELOCABLE;e1->u.s.info=e2->u.s.info; +} +else{ +luaK_exp2nextreg(fs,e2); +codearith(fs,OP_CONCAT,e1,e2); +} +break; +} +case OPR_ADD:codearith(fs,OP_ADD,e1,e2);break; +case OPR_SUB:codearith(fs,OP_SUB,e1,e2);break; +case OPR_MUL:codearith(fs,OP_MUL,e1,e2);break; +case OPR_DIV:codearith(fs,OP_DIV,e1,e2);break; +case OPR_MOD:codearith(fs,OP_MOD,e1,e2);break; +case OPR_POW:codearith(fs,OP_POW,e1,e2);break; +case OPR_EQ:codecomp(fs,OP_EQ,1,e1,e2);break; +case OPR_NE:codecomp(fs,OP_EQ,0,e1,e2);break; +case OPR_LT:codecomp(fs,OP_LT,1,e1,e2);break; +case OPR_LE:codecomp(fs,OP_LE,1,e1,e2);break; +case OPR_GT:codecomp(fs,OP_LT,0,e1,e2);break; +case OPR_GE:codecomp(fs,OP_LE,0,e1,e2);break; +default:; +} +} +static void luaK_fixline(FuncState*fs,int line){ +fs->f->lineinfo[fs->pc-1]=line; +} +static int luaK_code(FuncState*fs,Instruction i,int line){ +Proto*f=fs->f; +dischargejpc(fs); +luaM_growvector(fs->L,f->code,fs->pc,f->sizecode,Instruction, +(INT_MAX-2),"code size overflow"); +f->code[fs->pc]=i; +luaM_growvector(fs->L,f->lineinfo,fs->pc,f->sizelineinfo,int, +(INT_MAX-2),"code size overflow"); +f->lineinfo[fs->pc]=line; +return fs->pc++; +} +static int luaK_codeABC(FuncState*fs,OpCode o,int a,int b,int c){ +return luaK_code(fs,CREATE_ABC(o,a,b,c),fs->ls->lastline); +} +static int luaK_codeABx(FuncState*fs,OpCode o,int a,unsigned int bc){ +return luaK_code(fs,CREATE_ABx(o,a,bc),fs->ls->lastline); +} +static void luaK_setlist(FuncState*fs,int base,int nelems,int tostore){ +int c=(nelems-1)/50+1; +int b=(tostore==(-1))?0:tostore; +if(c<=((1<<9)-1)) +luaK_codeABC(fs,OP_SETLIST,base,b,c); +else{ +luaK_codeABC(fs,OP_SETLIST,base,b,0); +luaK_code(fs,cast(Instruction,c),fs->ls->lastline); +} +fs->freereg=base+1; +} +#define hasmultret(k)((k)==VCALL||(k)==VVARARG) +#define getlocvar(fs,i)((fs)->f->locvars[(fs)->actvar[i]]) +#define luaY_checklimit(fs,v,l,m)if((v)>(l))errorlimit(fs,l,m) +typedef struct BlockCnt{ +struct BlockCnt*previous; +int breaklist; +lu_byte nactvar; +lu_byte upval; +lu_byte isbreakable; +}BlockCnt; +static void chunk(LexState*ls); +static void expr(LexState*ls,expdesc*v); +static void anchor_token(LexState*ls){ +if(ls->t.token==TK_NAME||ls->t.token==TK_STRING){ +TString*ts=ls->t.seminfo.ts; +luaX_newstring(ls,getstr(ts),ts->tsv.len); +} +} +static void error_expected(LexState*ls,int token){ +luaX_syntaxerror(ls, +luaO_pushfstring(ls->L,LUA_QL("%s")" expected",luaX_token2str(ls,token))); +} +static void errorlimit(FuncState*fs,int limit,const char*what){ +const char*msg=(fs->f->linedefined==0)? +luaO_pushfstring(fs->L,"main function has more than %d %s",limit,what): +luaO_pushfstring(fs->L,"function at line %d has more than %d %s", +fs->f->linedefined,limit,what); +luaX_lexerror(fs->ls,msg,0); +} +static int testnext(LexState*ls,int c){ +if(ls->t.token==c){ +luaX_next(ls); +return 1; +} +else return 0; +} +static void check(LexState*ls,int c){ +if(ls->t.token!=c) +error_expected(ls,c); +} +static void checknext(LexState*ls,int c){ +check(ls,c); +luaX_next(ls); +} +#define check_condition(ls,c,msg){if(!(c))luaX_syntaxerror(ls,msg);} +static void check_match(LexState*ls,int what,int who,int where){ +if(!testnext(ls,what)){ +if(where==ls->linenumber) +error_expected(ls,what); +else{ +luaX_syntaxerror(ls,luaO_pushfstring(ls->L, +LUA_QL("%s")" expected (to close "LUA_QL("%s")" at line %d)", +luaX_token2str(ls,what),luaX_token2str(ls,who),where)); +} +} +} +static TString*str_checkname(LexState*ls){ +TString*ts; +check(ls,TK_NAME); +ts=ls->t.seminfo.ts; +luaX_next(ls); +return ts; +} +static void init_exp(expdesc*e,expkind k,int i){ +e->f=e->t=(-1); +e->k=k; +e->u.s.info=i; +} +static void codestring(LexState*ls,expdesc*e,TString*s){ +init_exp(e,VK,luaK_stringK(ls->fs,s)); +} +static void checkname(LexState*ls,expdesc*e){ +codestring(ls,e,str_checkname(ls)); +} +static int registerlocalvar(LexState*ls,TString*varname){ +FuncState*fs=ls->fs; +Proto*f=fs->f; +int oldsize=f->sizelocvars; +luaM_growvector(ls->L,f->locvars,fs->nlocvars,f->sizelocvars, +LocVar,SHRT_MAX,"too many local variables"); +while(oldsizesizelocvars)f->locvars[oldsize++].varname=NULL; +f->locvars[fs->nlocvars].varname=varname; +luaC_objbarrier(ls->L,f,varname); +return fs->nlocvars++; +} +#define new_localvarliteral(ls,v,n)new_localvar(ls,luaX_newstring(ls,""v,(sizeof(v)/sizeof(char))-1),n) +static void new_localvar(LexState*ls,TString*name,int n){ +FuncState*fs=ls->fs; +luaY_checklimit(fs,fs->nactvar+n+1,200,"local variables"); +fs->actvar[fs->nactvar+n]=cast(unsigned short,registerlocalvar(ls,name)); +} +static void adjustlocalvars(LexState*ls,int nvars){ +FuncState*fs=ls->fs; +fs->nactvar=cast_byte(fs->nactvar+nvars); +for(;nvars;nvars--){ +getlocvar(fs,fs->nactvar-nvars).startpc=fs->pc; +} +} +static void removevars(LexState*ls,int tolevel){ +FuncState*fs=ls->fs; +while(fs->nactvar>tolevel) +getlocvar(fs,--fs->nactvar).endpc=fs->pc; +} +static int indexupvalue(FuncState*fs,TString*name,expdesc*v){ +int i; +Proto*f=fs->f; +int oldsize=f->sizeupvalues; +for(i=0;inups;i++){ +if(fs->upvalues[i].k==v->k&&fs->upvalues[i].info==v->u.s.info){ +return i; +} +} +luaY_checklimit(fs,f->nups+1,60,"upvalues"); +luaM_growvector(fs->L,f->upvalues,f->nups,f->sizeupvalues, +TString*,(INT_MAX-2),""); +while(oldsizesizeupvalues)f->upvalues[oldsize++]=NULL; +f->upvalues[f->nups]=name; +luaC_objbarrier(fs->L,f,name); +fs->upvalues[f->nups].k=cast_byte(v->k); +fs->upvalues[f->nups].info=cast_byte(v->u.s.info); +return f->nups++; +} +static int searchvar(FuncState*fs,TString*n){ +int i; +for(i=fs->nactvar-1;i>=0;i--){ +if(n==getlocvar(fs,i).varname) +return i; +} +return-1; +} +static void markupval(FuncState*fs,int level){ +BlockCnt*bl=fs->bl; +while(bl&&bl->nactvar>level)bl=bl->previous; +if(bl)bl->upval=1; +} +static int singlevaraux(FuncState*fs,TString*n,expdesc*var,int base){ +if(fs==NULL){ +init_exp(var,VGLOBAL,((1<<8)-1)); +return VGLOBAL; +} +else{ +int v=searchvar(fs,n); +if(v>=0){ +init_exp(var,VLOCAL,v); +if(!base) +markupval(fs,v); +return VLOCAL; +} +else{ +if(singlevaraux(fs->prev,n,var,0)==VGLOBAL) +return VGLOBAL; +var->u.s.info=indexupvalue(fs,n,var); +var->k=VUPVAL; +return VUPVAL; +} +} +} +static void singlevar(LexState*ls,expdesc*var){ +TString*varname=str_checkname(ls); +FuncState*fs=ls->fs; +if(singlevaraux(fs,varname,var,1)==VGLOBAL) +var->u.s.info=luaK_stringK(fs,varname); +} +static void adjust_assign(LexState*ls,int nvars,int nexps,expdesc*e){ +FuncState*fs=ls->fs; +int extra=nvars-nexps; +if(hasmultret(e->k)){ +extra++; +if(extra<0)extra=0; +luaK_setreturns(fs,e,extra); +if(extra>1)luaK_reserveregs(fs,extra-1); +} +else{ +if(e->k!=VVOID)luaK_exp2nextreg(fs,e); +if(extra>0){ +int reg=fs->freereg; +luaK_reserveregs(fs,extra); +luaK_nil(fs,reg,extra); +} +} +} +static void enterlevel(LexState*ls){ +if(++ls->L->nCcalls>200) +luaX_lexerror(ls,"chunk has too many syntax levels",0); +} +#define leavelevel(ls)((ls)->L->nCcalls--) +static void enterblock(FuncState*fs,BlockCnt*bl,lu_byte isbreakable){ +bl->breaklist=(-1); +bl->isbreakable=isbreakable; +bl->nactvar=fs->nactvar; +bl->upval=0; +bl->previous=fs->bl; +fs->bl=bl; +} +static void leaveblock(FuncState*fs){ +BlockCnt*bl=fs->bl; +fs->bl=bl->previous; +removevars(fs->ls,bl->nactvar); +if(bl->upval) +luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0); +fs->freereg=fs->nactvar; +luaK_patchtohere(fs,bl->breaklist); +} +static void pushclosure(LexState*ls,FuncState*func,expdesc*v){ +FuncState*fs=ls->fs; +Proto*f=fs->f; +int oldsize=f->sizep; +int i; +luaM_growvector(ls->L,f->p,fs->np,f->sizep,Proto*, +((1<<(9+9))-1),"constant table overflow"); +while(oldsizesizep)f->p[oldsize++]=NULL; +f->p[fs->np++]=func->f; +luaC_objbarrier(ls->L,f,func->f); +init_exp(v,VRELOCABLE,luaK_codeABx(fs,OP_CLOSURE,0,fs->np-1)); +for(i=0;if->nups;i++){ +OpCode o=(func->upvalues[i].k==VLOCAL)?OP_MOVE:OP_GETUPVAL; +luaK_codeABC(fs,o,0,func->upvalues[i].info,0); +} +} +static void open_func(LexState*ls,FuncState*fs){ +lua_State*L=ls->L; +Proto*f=luaF_newproto(L); +fs->f=f; +fs->prev=ls->fs; +fs->ls=ls; +fs->L=L; +ls->fs=fs; +fs->pc=0; +fs->lasttarget=-1; +fs->jpc=(-1); +fs->freereg=0; +fs->nk=0; +fs->np=0; +fs->nlocvars=0; +fs->nactvar=0; +fs->bl=NULL; +f->source=ls->source; +f->maxstacksize=2; +fs->h=luaH_new(L,0,0); +sethvalue(L,L->top,fs->h); +incr_top(L); +setptvalue(L,L->top,f); +incr_top(L); +} +static void close_func(LexState*ls){ +lua_State*L=ls->L; +FuncState*fs=ls->fs; +Proto*f=fs->f; +removevars(ls,0); +luaK_ret(fs,0,0); +luaM_reallocvector(L,f->code,f->sizecode,fs->pc,Instruction); +f->sizecode=fs->pc; +luaM_reallocvector(L,f->lineinfo,f->sizelineinfo,fs->pc,int); +f->sizelineinfo=fs->pc; +luaM_reallocvector(L,f->k,f->sizek,fs->nk,TValue); +f->sizek=fs->nk; +luaM_reallocvector(L,f->p,f->sizep,fs->np,Proto*); +f->sizep=fs->np; +luaM_reallocvector(L,f->locvars,f->sizelocvars,fs->nlocvars,LocVar); +f->sizelocvars=fs->nlocvars; +luaM_reallocvector(L,f->upvalues,f->sizeupvalues,f->nups,TString*); +f->sizeupvalues=f->nups; +ls->fs=fs->prev; +if(fs)anchor_token(ls); +L->top-=2; +} +static Proto*luaY_parser(lua_State*L,ZIO*z,Mbuffer*buff,const char*name){ +struct LexState lexstate; +struct FuncState funcstate; +lexstate.buff=buff; +luaX_setinput(L,&lexstate,z,luaS_new(L,name)); +open_func(&lexstate,&funcstate); +funcstate.f->is_vararg=2; +luaX_next(&lexstate); +chunk(&lexstate); +check(&lexstate,TK_EOS); +close_func(&lexstate); +return funcstate.f; +} +static void field(LexState*ls,expdesc*v){ +FuncState*fs=ls->fs; +expdesc key; +luaK_exp2anyreg(fs,v); +luaX_next(ls); +checkname(ls,&key); +luaK_indexed(fs,v,&key); +} +static void yindex(LexState*ls,expdesc*v){ +luaX_next(ls); +expr(ls,v); +luaK_exp2val(ls->fs,v); +checknext(ls,']'); +} +struct ConsControl{ +expdesc v; +expdesc*t; +int nh; +int na; +int tostore; +}; +static void recfield(LexState*ls,struct ConsControl*cc){ +FuncState*fs=ls->fs; +int reg=ls->fs->freereg; +expdesc key,val; +int rkkey; +if(ls->t.token==TK_NAME){ +luaY_checklimit(fs,cc->nh,(INT_MAX-2),"items in a constructor"); +checkname(ls,&key); +} +else +yindex(ls,&key); +cc->nh++; +checknext(ls,'='); +rkkey=luaK_exp2RK(fs,&key); +expr(ls,&val); +luaK_codeABC(fs,OP_SETTABLE,cc->t->u.s.info,rkkey,luaK_exp2RK(fs,&val)); +fs->freereg=reg; +} +static void closelistfield(FuncState*fs,struct ConsControl*cc){ +if(cc->v.k==VVOID)return; +luaK_exp2nextreg(fs,&cc->v); +cc->v.k=VVOID; +if(cc->tostore==50){ +luaK_setlist(fs,cc->t->u.s.info,cc->na,cc->tostore); +cc->tostore=0; +} +} +static void lastlistfield(FuncState*fs,struct ConsControl*cc){ +if(cc->tostore==0)return; +if(hasmultret(cc->v.k)){ +luaK_setmultret(fs,&cc->v); +luaK_setlist(fs,cc->t->u.s.info,cc->na,(-1)); +cc->na--; +} +else{ +if(cc->v.k!=VVOID) +luaK_exp2nextreg(fs,&cc->v); +luaK_setlist(fs,cc->t->u.s.info,cc->na,cc->tostore); +} +} +static void listfield(LexState*ls,struct ConsControl*cc){ +expr(ls,&cc->v); +luaY_checklimit(ls->fs,cc->na,(INT_MAX-2),"items in a constructor"); +cc->na++; +cc->tostore++; +} +static void constructor(LexState*ls,expdesc*t){ +FuncState*fs=ls->fs; +int line=ls->linenumber; +int pc=luaK_codeABC(fs,OP_NEWTABLE,0,0,0); +struct ConsControl cc; +cc.na=cc.nh=cc.tostore=0; +cc.t=t; +init_exp(t,VRELOCABLE,pc); +init_exp(&cc.v,VVOID,0); +luaK_exp2nextreg(ls->fs,t); +checknext(ls,'{'); +do{ +if(ls->t.token=='}')break; +closelistfield(fs,&cc); +switch(ls->t.token){ +case TK_NAME:{ +luaX_lookahead(ls); +if(ls->lookahead.token!='=') +listfield(ls,&cc); +else +recfield(ls,&cc); +break; +} +case'[':{ +recfield(ls,&cc); +break; +} +default:{ +listfield(ls,&cc); +break; +} +} +}while(testnext(ls,',')||testnext(ls,';')); +check_match(ls,'}','{',line); +lastlistfield(fs,&cc); +SETARG_B(fs->f->code[pc],luaO_int2fb(cc.na)); +SETARG_C(fs->f->code[pc],luaO_int2fb(cc.nh)); +} +static void parlist(LexState*ls){ +FuncState*fs=ls->fs; +Proto*f=fs->f; +int nparams=0; +f->is_vararg=0; +if(ls->t.token!=')'){ +do{ +switch(ls->t.token){ +case TK_NAME:{ +new_localvar(ls,str_checkname(ls),nparams++); +break; +} +case TK_DOTS:{ +luaX_next(ls); +f->is_vararg|=2; +break; +} +default:luaX_syntaxerror(ls," or "LUA_QL("...")" expected"); +} +}while(!f->is_vararg&&testnext(ls,',')); +} +adjustlocalvars(ls,nparams); +f->numparams=cast_byte(fs->nactvar-(f->is_vararg&1)); +luaK_reserveregs(fs,fs->nactvar); +} +static void body(LexState*ls,expdesc*e,int needself,int line){ +FuncState new_fs; +open_func(ls,&new_fs); +new_fs.f->linedefined=line; +checknext(ls,'('); +if(needself){ +new_localvarliteral(ls,"self",0); +adjustlocalvars(ls,1); +} +parlist(ls); +checknext(ls,')'); +chunk(ls); +new_fs.f->lastlinedefined=ls->linenumber; +check_match(ls,TK_END,TK_FUNCTION,line); +close_func(ls); +pushclosure(ls,&new_fs,e); +} +static int explist1(LexState*ls,expdesc*v){ +int n=1; +expr(ls,v); +while(testnext(ls,',')){ +luaK_exp2nextreg(ls->fs,v); +expr(ls,v); +n++; +} +return n; +} +static void funcargs(LexState*ls,expdesc*f){ +FuncState*fs=ls->fs; +expdesc args; +int base,nparams; +int line=ls->linenumber; +switch(ls->t.token){ +case'(':{ +if(line!=ls->lastline) +luaX_syntaxerror(ls,"ambiguous syntax (function call x new statement)"); +luaX_next(ls); +if(ls->t.token==')') +args.k=VVOID; +else{ +explist1(ls,&args); +luaK_setmultret(fs,&args); +} +check_match(ls,')','(',line); +break; +} +case'{':{ +constructor(ls,&args); +break; +} +case TK_STRING:{ +codestring(ls,&args,ls->t.seminfo.ts); +luaX_next(ls); +break; +} +default:{ +luaX_syntaxerror(ls,"function arguments expected"); +return; +} +} +base=f->u.s.info; +if(hasmultret(args.k)) +nparams=(-1); +else{ +if(args.k!=VVOID) +luaK_exp2nextreg(fs,&args); +nparams=fs->freereg-(base+1); +} +init_exp(f,VCALL,luaK_codeABC(fs,OP_CALL,base,nparams+1,2)); +luaK_fixline(fs,line); +fs->freereg=base+1; +} +static void prefixexp(LexState*ls,expdesc*v){ +switch(ls->t.token){ +case'(':{ +int line=ls->linenumber; +luaX_next(ls); +expr(ls,v); +check_match(ls,')','(',line); +luaK_dischargevars(ls->fs,v); +return; +} +case TK_NAME:{ +singlevar(ls,v); +return; +} +default:{ +luaX_syntaxerror(ls,"unexpected symbol"); +return; +} +} +} +static void primaryexp(LexState*ls,expdesc*v){ +FuncState*fs=ls->fs; +prefixexp(ls,v); +for(;;){ +switch(ls->t.token){ +case'.':{ +field(ls,v); +break; +} +case'[':{ +expdesc key; +luaK_exp2anyreg(fs,v); +yindex(ls,&key); +luaK_indexed(fs,v,&key); +break; +} +case':':{ +expdesc key; +luaX_next(ls); +checkname(ls,&key); +luaK_self(fs,v,&key); +funcargs(ls,v); +break; +} +case'(':case TK_STRING:case'{':{ +luaK_exp2nextreg(fs,v); +funcargs(ls,v); +break; +} +default:return; +} +} +} +static void simpleexp(LexState*ls,expdesc*v){ +switch(ls->t.token){ +case TK_NUMBER:{ +init_exp(v,VKNUM,0); +v->u.nval=ls->t.seminfo.r; +break; +} +case TK_STRING:{ +codestring(ls,v,ls->t.seminfo.ts); +break; +} +case TK_NIL:{ +init_exp(v,VNIL,0); +break; +} +case TK_TRUE:{ +init_exp(v,VTRUE,0); +break; +} +case TK_FALSE:{ +init_exp(v,VFALSE,0); +break; +} +case TK_DOTS:{ +FuncState*fs=ls->fs; +check_condition(ls,fs->f->is_vararg, +"cannot use "LUA_QL("...")" outside a vararg function"); +fs->f->is_vararg&=~4; +init_exp(v,VVARARG,luaK_codeABC(fs,OP_VARARG,0,1,0)); +break; +} +case'{':{ +constructor(ls,v); +return; +} +case TK_FUNCTION:{ +luaX_next(ls); +body(ls,v,0,ls->linenumber); +return; +} +default:{ +primaryexp(ls,v); +return; +} +} +luaX_next(ls); +} +static UnOpr getunopr(int op){ +switch(op){ +case TK_NOT:return OPR_NOT; +case'-':return OPR_MINUS; +case'#':return OPR_LEN; +default:return OPR_NOUNOPR; +} +} +static BinOpr getbinopr(int op){ +switch(op){ +case'+':return OPR_ADD; +case'-':return OPR_SUB; +case'*':return OPR_MUL; +case'/':return OPR_DIV; +case'%':return OPR_MOD; +case'^':return OPR_POW; +case TK_CONCAT:return OPR_CONCAT; +case TK_NE:return OPR_NE; +case TK_EQ:return OPR_EQ; +case'<':return OPR_LT; +case TK_LE:return OPR_LE; +case'>':return OPR_GT; +case TK_GE:return OPR_GE; +case TK_AND:return OPR_AND; +case TK_OR:return OPR_OR; +default:return OPR_NOBINOPR; +} +} +static const struct{ +lu_byte left; +lu_byte right; +}priority[]={ +{6,6},{6,6},{7,7},{7,7},{7,7}, +{10,9},{5,4}, +{3,3},{3,3}, +{3,3},{3,3},{3,3},{3,3}, +{2,2},{1,1} +}; +static BinOpr subexpr(LexState*ls,expdesc*v,unsigned int limit){ +BinOpr op; +UnOpr uop; +enterlevel(ls); +uop=getunopr(ls->t.token); +if(uop!=OPR_NOUNOPR){ +luaX_next(ls); +subexpr(ls,v,8); +luaK_prefix(ls->fs,uop,v); +} +else simpleexp(ls,v); +op=getbinopr(ls->t.token); +while(op!=OPR_NOBINOPR&&priority[op].left>limit){ +expdesc v2; +BinOpr nextop; +luaX_next(ls); +luaK_infix(ls->fs,op,v); +nextop=subexpr(ls,&v2,priority[op].right); +luaK_posfix(ls->fs,op,v,&v2); +op=nextop; +} +leavelevel(ls); +return op; +} +static void expr(LexState*ls,expdesc*v){ +subexpr(ls,v,0); +} +static int block_follow(int token){ +switch(token){ +case TK_ELSE:case TK_ELSEIF:case TK_END: +case TK_UNTIL:case TK_EOS: +return 1; +default:return 0; +} +} +static void block(LexState*ls){ +FuncState*fs=ls->fs; +BlockCnt bl; +enterblock(fs,&bl,0); +chunk(ls); +leaveblock(fs); +} +struct LHS_assign{ +struct LHS_assign*prev; +expdesc v; +}; +static void check_conflict(LexState*ls,struct LHS_assign*lh,expdesc*v){ +FuncState*fs=ls->fs; +int extra=fs->freereg; +int conflict=0; +for(;lh;lh=lh->prev){ +if(lh->v.k==VINDEXED){ +if(lh->v.u.s.info==v->u.s.info){ +conflict=1; +lh->v.u.s.info=extra; +} +if(lh->v.u.s.aux==v->u.s.info){ +conflict=1; +lh->v.u.s.aux=extra; +} +} +} +if(conflict){ +luaK_codeABC(fs,OP_MOVE,fs->freereg,v->u.s.info,0); +luaK_reserveregs(fs,1); +} +} +static void assignment(LexState*ls,struct LHS_assign*lh,int nvars){ +expdesc e; +check_condition(ls,VLOCAL<=lh->v.k&&lh->v.k<=VINDEXED, +"syntax error"); +if(testnext(ls,',')){ +struct LHS_assign nv; +nv.prev=lh; +primaryexp(ls,&nv.v); +if(nv.v.k==VLOCAL) +check_conflict(ls,lh,&nv.v); +luaY_checklimit(ls->fs,nvars,200-ls->L->nCcalls, +"variables in assignment"); +assignment(ls,&nv,nvars+1); +} +else{ +int nexps; +checknext(ls,'='); +nexps=explist1(ls,&e); +if(nexps!=nvars){ +adjust_assign(ls,nvars,nexps,&e); +if(nexps>nvars) +ls->fs->freereg-=nexps-nvars; +} +else{ +luaK_setoneret(ls->fs,&e); +luaK_storevar(ls->fs,&lh->v,&e); +return; +} +} +init_exp(&e,VNONRELOC,ls->fs->freereg-1); +luaK_storevar(ls->fs,&lh->v,&e); +} +static int cond(LexState*ls){ +expdesc v; +expr(ls,&v); +if(v.k==VNIL)v.k=VFALSE; +luaK_goiftrue(ls->fs,&v); +return v.f; +} +static void breakstat(LexState*ls){ +FuncState*fs=ls->fs; +BlockCnt*bl=fs->bl; +int upval=0; +while(bl&&!bl->isbreakable){ +upval|=bl->upval; +bl=bl->previous; +} +if(!bl) +luaX_syntaxerror(ls,"no loop to break"); +if(upval) +luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0); +luaK_concat(fs,&bl->breaklist,luaK_jump(fs)); +} +static void whilestat(LexState*ls,int line){ +FuncState*fs=ls->fs; +int whileinit; +int condexit; +BlockCnt bl; +luaX_next(ls); +whileinit=luaK_getlabel(fs); +condexit=cond(ls); +enterblock(fs,&bl,1); +checknext(ls,TK_DO); +block(ls); +luaK_patchlist(fs,luaK_jump(fs),whileinit); +check_match(ls,TK_END,TK_WHILE,line); +leaveblock(fs); +luaK_patchtohere(fs,condexit); +} +static void repeatstat(LexState*ls,int line){ +int condexit; +FuncState*fs=ls->fs; +int repeat_init=luaK_getlabel(fs); +BlockCnt bl1,bl2; +enterblock(fs,&bl1,1); +enterblock(fs,&bl2,0); +luaX_next(ls); +chunk(ls); +check_match(ls,TK_UNTIL,TK_REPEAT,line); +condexit=cond(ls); +if(!bl2.upval){ +leaveblock(fs); +luaK_patchlist(ls->fs,condexit,repeat_init); +} +else{ +breakstat(ls); +luaK_patchtohere(ls->fs,condexit); +leaveblock(fs); +luaK_patchlist(ls->fs,luaK_jump(fs),repeat_init); +} +leaveblock(fs); +} +static int exp1(LexState*ls){ +expdesc e; +int k; +expr(ls,&e); +k=e.k; +luaK_exp2nextreg(ls->fs,&e); +return k; +} +static void forbody(LexState*ls,int base,int line,int nvars,int isnum){ +BlockCnt bl; +FuncState*fs=ls->fs; +int prep,endfor; +adjustlocalvars(ls,3); +checknext(ls,TK_DO); +prep=isnum?luaK_codeAsBx(fs,OP_FORPREP,base,(-1)):luaK_jump(fs); +enterblock(fs,&bl,0); +adjustlocalvars(ls,nvars); +luaK_reserveregs(fs,nvars); +block(ls); +leaveblock(fs); +luaK_patchtohere(fs,prep); +endfor=(isnum)?luaK_codeAsBx(fs,OP_FORLOOP,base,(-1)): +luaK_codeABC(fs,OP_TFORLOOP,base,0,nvars); +luaK_fixline(fs,line); +luaK_patchlist(fs,(isnum?endfor:luaK_jump(fs)),prep+1); +} +static void fornum(LexState*ls,TString*varname,int line){ +FuncState*fs=ls->fs; +int base=fs->freereg; +new_localvarliteral(ls,"(for index)",0); +new_localvarliteral(ls,"(for limit)",1); +new_localvarliteral(ls,"(for step)",2); +new_localvar(ls,varname,3); +checknext(ls,'='); +exp1(ls); +checknext(ls,','); +exp1(ls); +if(testnext(ls,',')) +exp1(ls); +else{ +luaK_codeABx(fs,OP_LOADK,fs->freereg,luaK_numberK(fs,1)); +luaK_reserveregs(fs,1); +} +forbody(ls,base,line,1,1); +} +static void forlist(LexState*ls,TString*indexname){ +FuncState*fs=ls->fs; +expdesc e; +int nvars=0; +int line; +int base=fs->freereg; +new_localvarliteral(ls,"(for generator)",nvars++); +new_localvarliteral(ls,"(for state)",nvars++); +new_localvarliteral(ls,"(for control)",nvars++); +new_localvar(ls,indexname,nvars++); +while(testnext(ls,',')) +new_localvar(ls,str_checkname(ls),nvars++); +checknext(ls,TK_IN); +line=ls->linenumber; +adjust_assign(ls,3,explist1(ls,&e),&e); +luaK_checkstack(fs,3); +forbody(ls,base,line,nvars-3,0); +} +static void forstat(LexState*ls,int line){ +FuncState*fs=ls->fs; +TString*varname; +BlockCnt bl; +enterblock(fs,&bl,1); +luaX_next(ls); +varname=str_checkname(ls); +switch(ls->t.token){ +case'=':fornum(ls,varname,line);break; +case',':case TK_IN:forlist(ls,varname);break; +default:luaX_syntaxerror(ls,LUA_QL("=")" or "LUA_QL("in")" expected"); +} +check_match(ls,TK_END,TK_FOR,line); +leaveblock(fs); +} +static int test_then_block(LexState*ls){ +int condexit; +luaX_next(ls); +condexit=cond(ls); +checknext(ls,TK_THEN); +block(ls); +return condexit; +} +static void ifstat(LexState*ls,int line){ +FuncState*fs=ls->fs; +int flist; +int escapelist=(-1); +flist=test_then_block(ls); +while(ls->t.token==TK_ELSEIF){ +luaK_concat(fs,&escapelist,luaK_jump(fs)); +luaK_patchtohere(fs,flist); +flist=test_then_block(ls); +} +if(ls->t.token==TK_ELSE){ +luaK_concat(fs,&escapelist,luaK_jump(fs)); +luaK_patchtohere(fs,flist); +luaX_next(ls); +block(ls); +} +else +luaK_concat(fs,&escapelist,flist); +luaK_patchtohere(fs,escapelist); +check_match(ls,TK_END,TK_IF,line); +} +static void localfunc(LexState*ls){ +expdesc v,b; +FuncState*fs=ls->fs; +new_localvar(ls,str_checkname(ls),0); +init_exp(&v,VLOCAL,fs->freereg); +luaK_reserveregs(fs,1); +adjustlocalvars(ls,1); +body(ls,&b,0,ls->linenumber); +luaK_storevar(fs,&v,&b); +getlocvar(fs,fs->nactvar-1).startpc=fs->pc; +} +static void localstat(LexState*ls){ +int nvars=0; +int nexps; +expdesc e; +do{ +new_localvar(ls,str_checkname(ls),nvars++); +}while(testnext(ls,',')); +if(testnext(ls,'=')) +nexps=explist1(ls,&e); +else{ +e.k=VVOID; +nexps=0; +} +adjust_assign(ls,nvars,nexps,&e); +adjustlocalvars(ls,nvars); +} +static int funcname(LexState*ls,expdesc*v){ +int needself=0; +singlevar(ls,v); +while(ls->t.token=='.') +field(ls,v); +if(ls->t.token==':'){ +needself=1; +field(ls,v); +} +return needself; +} +static void funcstat(LexState*ls,int line){ +int needself; +expdesc v,b; +luaX_next(ls); +needself=funcname(ls,&v); +body(ls,&b,needself,line); +luaK_storevar(ls->fs,&v,&b); +luaK_fixline(ls->fs,line); +} +static void exprstat(LexState*ls){ +FuncState*fs=ls->fs; +struct LHS_assign v; +primaryexp(ls,&v.v); +if(v.v.k==VCALL) +SETARG_C(getcode(fs,&v.v),1); +else{ +v.prev=NULL; +assignment(ls,&v,1); +} +} +static void retstat(LexState*ls){ +FuncState*fs=ls->fs; +expdesc e; +int first,nret; +luaX_next(ls); +if(block_follow(ls->t.token)||ls->t.token==';') +first=nret=0; +else{ +nret=explist1(ls,&e); +if(hasmultret(e.k)){ +luaK_setmultret(fs,&e); +if(e.k==VCALL&&nret==1){ +SET_OPCODE(getcode(fs,&e),OP_TAILCALL); +} +first=fs->nactvar; +nret=(-1); +} +else{ +if(nret==1) +first=luaK_exp2anyreg(fs,&e); +else{ +luaK_exp2nextreg(fs,&e); +first=fs->nactvar; +} +} +} +luaK_ret(fs,first,nret); +} +static int statement(LexState*ls){ +int line=ls->linenumber; +switch(ls->t.token){ +case TK_IF:{ +ifstat(ls,line); +return 0; +} +case TK_WHILE:{ +whilestat(ls,line); +return 0; +} +case TK_DO:{ +luaX_next(ls); +block(ls); +check_match(ls,TK_END,TK_DO,line); +return 0; +} +case TK_FOR:{ +forstat(ls,line); +return 0; +} +case TK_REPEAT:{ +repeatstat(ls,line); +return 0; +} +case TK_FUNCTION:{ +funcstat(ls,line); +return 0; +} +case TK_LOCAL:{ +luaX_next(ls); +if(testnext(ls,TK_FUNCTION)) +localfunc(ls); +else +localstat(ls); +return 0; +} +case TK_RETURN:{ +retstat(ls); +return 1; +} +case TK_BREAK:{ +luaX_next(ls); +breakstat(ls); +return 1; +} +default:{ +exprstat(ls); +return 0; +} +} +} +static void chunk(LexState*ls){ +int islast=0; +enterlevel(ls); +while(!islast&&!block_follow(ls->t.token)){ +islast=statement(ls); +testnext(ls,';'); +ls->fs->freereg=ls->fs->nactvar; +} +leavelevel(ls); +} +static const TValue*luaV_tonumber(const TValue*obj,TValue*n){ +lua_Number num; +if(ttisnumber(obj))return obj; +if(ttisstring(obj)&&luaO_str2d(svalue(obj),&num)){ +setnvalue(n,num); +return n; +} +else +return NULL; +} +static int luaV_tostring(lua_State*L,StkId obj){ +if(!ttisnumber(obj)) +return 0; +else{ +char s[32]; +lua_Number n=nvalue(obj); +lua_number2str(s,n); +setsvalue(L,obj,luaS_new(L,s)); +return 1; +} +} +static void callTMres(lua_State*L,StkId res,const TValue*f, +const TValue*p1,const TValue*p2){ +ptrdiff_t result=savestack(L,res); +setobj(L,L->top,f); +setobj(L,L->top+1,p1); +setobj(L,L->top+2,p2); +luaD_checkstack(L,3); +L->top+=3; +luaD_call(L,L->top-3,1); +res=restorestack(L,result); +L->top--; +setobj(L,res,L->top); +} +static void callTM(lua_State*L,const TValue*f,const TValue*p1, +const TValue*p2,const TValue*p3){ +setobj(L,L->top,f); +setobj(L,L->top+1,p1); +setobj(L,L->top+2,p2); +setobj(L,L->top+3,p3); +luaD_checkstack(L,4); +L->top+=4; +luaD_call(L,L->top-4,0); +} +static void luaV_gettable(lua_State*L,const TValue*t,TValue*key,StkId val){ +int loop; +for(loop=0;loop<100;loop++){ +const TValue*tm; +if(ttistable(t)){ +Table*h=hvalue(t); +const TValue*res=luaH_get(h,key); +if(!ttisnil(res)|| +(tm=fasttm(L,h->metatable,TM_INDEX))==NULL){ +setobj(L,val,res); +return; +} +} +else if(ttisnil(tm=luaT_gettmbyobj(L,t,TM_INDEX))) +luaG_typeerror(L,t,"index"); +if(ttisfunction(tm)){ +callTMres(L,val,tm,t,key); +return; +} +t=tm; +} +luaG_runerror(L,"loop in gettable"); +} +static void luaV_settable(lua_State*L,const TValue*t,TValue*key,StkId val){ +int loop; +TValue temp; +for(loop=0;loop<100;loop++){ +const TValue*tm; +if(ttistable(t)){ +Table*h=hvalue(t); +TValue*oldval=luaH_set(L,h,key); +if(!ttisnil(oldval)|| +(tm=fasttm(L,h->metatable,TM_NEWINDEX))==NULL){ +setobj(L,oldval,val); +h->flags=0; +luaC_barriert(L,h,val); +return; +} +} +else if(ttisnil(tm=luaT_gettmbyobj(L,t,TM_NEWINDEX))) +luaG_typeerror(L,t,"index"); +if(ttisfunction(tm)){ +callTM(L,tm,t,key,val); +return; +} +setobj(L,&temp,tm); +t=&temp; +} +luaG_runerror(L,"loop in settable"); +} +static int call_binTM(lua_State*L,const TValue*p1,const TValue*p2, +StkId res,TMS event){ +const TValue*tm=luaT_gettmbyobj(L,p1,event); +if(ttisnil(tm)) +tm=luaT_gettmbyobj(L,p2,event); +if(ttisnil(tm))return 0; +callTMres(L,res,tm,p1,p2); +return 1; +} +static const TValue*get_compTM(lua_State*L,Table*mt1,Table*mt2, +TMS event){ +const TValue*tm1=fasttm(L,mt1,event); +const TValue*tm2; +if(tm1==NULL)return NULL; +if(mt1==mt2)return tm1; +tm2=fasttm(L,mt2,event); +if(tm2==NULL)return NULL; +if(luaO_rawequalObj(tm1,tm2)) +return tm1; +return NULL; +} +static int call_orderTM(lua_State*L,const TValue*p1,const TValue*p2, +TMS event){ +const TValue*tm1=luaT_gettmbyobj(L,p1,event); +const TValue*tm2; +if(ttisnil(tm1))return-1; +tm2=luaT_gettmbyobj(L,p2,event); +if(!luaO_rawequalObj(tm1,tm2)) +return-1; +callTMres(L,L->top,tm1,p1,p2); +return!l_isfalse(L->top); +} +static int l_strcmp(const TString*ls,const TString*rs){ +const char*l=getstr(ls); +size_t ll=ls->tsv.len; +const char*r=getstr(rs); +size_t lr=rs->tsv.len; +for(;;){ +int temp=strcoll(l,r); +if(temp!=0)return temp; +else{ +size_t len=strlen(l); +if(len==lr) +return(len==ll)?0:1; +else if(len==ll) +return-1; +len++; +l+=len;ll-=len;r+=len;lr-=len; +} +} +} +static int luaV_lessthan(lua_State*L,const TValue*l,const TValue*r){ +int res; +if(ttype(l)!=ttype(r)) +return luaG_ordererror(L,l,r); +else if(ttisnumber(l)) +return luai_numlt(nvalue(l),nvalue(r)); +else if(ttisstring(l)) +return l_strcmp(rawtsvalue(l),rawtsvalue(r))<0; +else if((res=call_orderTM(L,l,r,TM_LT))!=-1) +return res; +return luaG_ordererror(L,l,r); +} +static int lessequal(lua_State*L,const TValue*l,const TValue*r){ +int res; +if(ttype(l)!=ttype(r)) +return luaG_ordererror(L,l,r); +else if(ttisnumber(l)) +return luai_numle(nvalue(l),nvalue(r)); +else if(ttisstring(l)) +return l_strcmp(rawtsvalue(l),rawtsvalue(r))<=0; +else if((res=call_orderTM(L,l,r,TM_LE))!=-1) +return res; +else if((res=call_orderTM(L,r,l,TM_LT))!=-1) +return!res; +return luaG_ordererror(L,l,r); +} +static int luaV_equalval(lua_State*L,const TValue*t1,const TValue*t2){ +const TValue*tm; +switch(ttype(t1)){ +case 0:return 1; +case 3:return luai_numeq(nvalue(t1),nvalue(t2)); +case 1:return bvalue(t1)==bvalue(t2); +case 2:return pvalue(t1)==pvalue(t2); +case 7:{ +if(uvalue(t1)==uvalue(t2))return 1; +tm=get_compTM(L,uvalue(t1)->metatable,uvalue(t2)->metatable, +TM_EQ); +break; +} +case 5:{ +if(hvalue(t1)==hvalue(t2))return 1; +tm=get_compTM(L,hvalue(t1)->metatable,hvalue(t2)->metatable,TM_EQ); +break; +} +default:return gcvalue(t1)==gcvalue(t2); +} +if(tm==NULL)return 0; +callTMres(L,L->top,tm,t1,t2); +return!l_isfalse(L->top); +} +static void luaV_concat(lua_State*L,int total,int last){ +do{ +StkId top=L->base+last+1; +int n=2; +if(!(ttisstring(top-2)||ttisnumber(top-2))||!tostring(L,top-1)){ +if(!call_binTM(L,top-2,top-1,top-2,TM_CONCAT)) +luaG_concaterror(L,top-2,top-1); +}else if(tsvalue(top-1)->len==0) +(void)tostring(L,top-2); +else{ +size_t tl=tsvalue(top-1)->len; +char*buffer; +int i; +for(n=1;nlen; +if(l>=((size_t)(~(size_t)0)-2)-tl)luaG_runerror(L,"string length overflow"); +tl+=l; +} +buffer=luaZ_openspace(L,&G(L)->buff,tl); +tl=0; +for(i=n;i>0;i--){ +size_t l=tsvalue(top-i)->len; +memcpy(buffer+tl,svalue(top-i),l); +tl+=l; +} +setsvalue(L,top-n,luaS_newlstr(L,buffer,tl)); +} +total-=n-1; +last-=n-1; +}while(total>1); +} +static void Arith(lua_State*L,StkId ra,const TValue*rb, +const TValue*rc,TMS op){ +TValue tempb,tempc; +const TValue*b,*c; +if((b=luaV_tonumber(rb,&tempb))!=NULL&& +(c=luaV_tonumber(rc,&tempc))!=NULL){ +lua_Number nb=nvalue(b),nc=nvalue(c); +switch(op){ +case TM_ADD:setnvalue(ra,luai_numadd(nb,nc));break; +case TM_SUB:setnvalue(ra,luai_numsub(nb,nc));break; +case TM_MUL:setnvalue(ra,luai_nummul(nb,nc));break; +case TM_DIV:setnvalue(ra,luai_numdiv(nb,nc));break; +case TM_MOD:setnvalue(ra,luai_nummod(nb,nc));break; +case TM_POW:setnvalue(ra,luai_numpow(nb,nc));break; +case TM_UNM:setnvalue(ra,luai_numunm(nb));break; +default:break; +} +} +else if(!call_binTM(L,rb,rc,ra,op)) +luaG_aritherror(L,rb,rc); +} +#define runtime_check(L,c){if(!(c))break;} +#define RA(i)(base+GETARG_A(i)) +#define RB(i)check_exp(getBMode(GET_OPCODE(i))==OpArgR,base+GETARG_B(i)) +#define RKB(i)check_exp(getBMode(GET_OPCODE(i))==OpArgK,ISK(GETARG_B(i))?k+INDEXK(GETARG_B(i)):base+GETARG_B(i)) +#define RKC(i)check_exp(getCMode(GET_OPCODE(i))==OpArgK,ISK(GETARG_C(i))?k+INDEXK(GETARG_C(i)):base+GETARG_C(i)) +#define KBx(i)check_exp(getBMode(GET_OPCODE(i))==OpArgK,k+GETARG_Bx(i)) +#define dojump(L,pc,i){(pc)+=(i);} +#define Protect(x){L->savedpc=pc;{x;};base=L->base;} +#define arith_op(op,tm){TValue*rb=RKB(i);TValue*rc=RKC(i);if(ttisnumber(rb)&&ttisnumber(rc)){lua_Number nb=nvalue(rb),nc=nvalue(rc);setnvalue(ra,op(nb,nc));}else Protect(Arith(L,ra,rb,rc,tm));} +static void luaV_execute(lua_State*L,int nexeccalls){ +LClosure*cl; +StkId base; +TValue*k; +const Instruction*pc; +reentry: +pc=L->savedpc; +cl=&clvalue(L->ci->func)->l; +base=L->base; +k=cl->p->k; +for(;;){ +const Instruction i=*pc++; +StkId ra; +ra=RA(i); +switch(GET_OPCODE(i)){ +case OP_MOVE:{ +setobj(L,ra,RB(i)); +continue; +} +case OP_LOADK:{ +setobj(L,ra,KBx(i)); +continue; +} +case OP_LOADBOOL:{ +setbvalue(ra,GETARG_B(i)); +if(GETARG_C(i))pc++; +continue; +} +case OP_LOADNIL:{ +TValue*rb=RB(i); +do{ +setnilvalue(rb--); +}while(rb>=ra); +continue; +} +case OP_GETUPVAL:{ +int b=GETARG_B(i); +setobj(L,ra,cl->upvals[b]->v); +continue; +} +case OP_GETGLOBAL:{ +TValue g; +TValue*rb=KBx(i); +sethvalue(L,&g,cl->env); +Protect(luaV_gettable(L,&g,rb,ra)); +continue; +} +case OP_GETTABLE:{ +Protect(luaV_gettable(L,RB(i),RKC(i),ra)); +continue; +} +case OP_SETGLOBAL:{ +TValue g; +sethvalue(L,&g,cl->env); +Protect(luaV_settable(L,&g,KBx(i),ra)); +continue; +} +case OP_SETUPVAL:{ +UpVal*uv=cl->upvals[GETARG_B(i)]; +setobj(L,uv->v,ra); +luaC_barrier(L,uv,ra); +continue; +} +case OP_SETTABLE:{ +Protect(luaV_settable(L,ra,RKB(i),RKC(i))); +continue; +} +case OP_NEWTABLE:{ +int b=GETARG_B(i); +int c=GETARG_C(i); +sethvalue(L,ra,luaH_new(L,luaO_fb2int(b),luaO_fb2int(c))); +Protect(luaC_checkGC(L)); +continue; +} +case OP_SELF:{ +StkId rb=RB(i); +setobj(L,ra+1,rb); +Protect(luaV_gettable(L,rb,RKC(i),ra)); +continue; +} +case OP_ADD:{ +arith_op(luai_numadd,TM_ADD); +continue; +} +case OP_SUB:{ +arith_op(luai_numsub,TM_SUB); +continue; +} +case OP_MUL:{ +arith_op(luai_nummul,TM_MUL); +continue; +} +case OP_DIV:{ +arith_op(luai_numdiv,TM_DIV); +continue; +} +case OP_MOD:{ +arith_op(luai_nummod,TM_MOD); +continue; +} +case OP_POW:{ +arith_op(luai_numpow,TM_POW); +continue; +} +case OP_UNM:{ +TValue*rb=RB(i); +if(ttisnumber(rb)){ +lua_Number nb=nvalue(rb); +setnvalue(ra,luai_numunm(nb)); +} +else{ +Protect(Arith(L,ra,rb,rb,TM_UNM)); +} +continue; +} +case OP_NOT:{ +int res=l_isfalse(RB(i)); +setbvalue(ra,res); +continue; +} +case OP_LEN:{ +const TValue*rb=RB(i); +switch(ttype(rb)){ +case 5:{ +setnvalue(ra,cast_num(luaH_getn(hvalue(rb)))); +break; +} +case 4:{ +setnvalue(ra,cast_num(tsvalue(rb)->len)); +break; +} +default:{ +Protect( +if(!call_binTM(L,rb,(&luaO_nilobject_),ra,TM_LEN)) +luaG_typeerror(L,rb,"get length of"); +) +} +} +continue; +} +case OP_CONCAT:{ +int b=GETARG_B(i); +int c=GETARG_C(i); +Protect(luaV_concat(L,c-b+1,c);luaC_checkGC(L)); +setobj(L,RA(i),base+b); +continue; +} +case OP_JMP:{ +dojump(L,pc,GETARG_sBx(i)); +continue; +} +case OP_EQ:{ +TValue*rb=RKB(i); +TValue*rc=RKC(i); +Protect( +if(equalobj(L,rb,rc)==GETARG_A(i)) +dojump(L,pc,GETARG_sBx(*pc)); +) +pc++; +continue; +} +case OP_LT:{ +Protect( +if(luaV_lessthan(L,RKB(i),RKC(i))==GETARG_A(i)) +dojump(L,pc,GETARG_sBx(*pc)); +) +pc++; +continue; +} +case OP_LE:{ +Protect( +if(lessequal(L,RKB(i),RKC(i))==GETARG_A(i)) +dojump(L,pc,GETARG_sBx(*pc)); +) +pc++; +continue; +} +case OP_TEST:{ +if(l_isfalse(ra)!=GETARG_C(i)) +dojump(L,pc,GETARG_sBx(*pc)); +pc++; +continue; +} +case OP_TESTSET:{ +TValue*rb=RB(i); +if(l_isfalse(rb)!=GETARG_C(i)){ +setobj(L,ra,rb); +dojump(L,pc,GETARG_sBx(*pc)); +} +pc++; +continue; +} +case OP_CALL:{ +int b=GETARG_B(i); +int nresults=GETARG_C(i)-1; +if(b!=0)L->top=ra+b; +L->savedpc=pc; +switch(luaD_precall(L,ra,nresults)){ +case 0:{ +nexeccalls++; +goto reentry; +} +case 1:{ +if(nresults>=0)L->top=L->ci->top; +base=L->base; +continue; +} +default:{ +return; +} +} +} +case OP_TAILCALL:{ +int b=GETARG_B(i); +if(b!=0)L->top=ra+b; +L->savedpc=pc; +switch(luaD_precall(L,ra,(-1))){ +case 0:{ +CallInfo*ci=L->ci-1; +int aux; +StkId func=ci->func; +StkId pfunc=(ci+1)->func; +if(L->openupval)luaF_close(L,ci->base); +L->base=ci->base=ci->func+((ci+1)->base-pfunc); +for(aux=0;pfunc+auxtop;aux++) +setobj(L,func+aux,pfunc+aux); +ci->top=L->top=func+aux; +ci->savedpc=L->savedpc; +ci->tailcalls++; +L->ci--; +goto reentry; +} +case 1:{ +base=L->base; +continue; +} +default:{ +return; +} +} +} +case OP_RETURN:{ +int b=GETARG_B(i); +if(b!=0)L->top=ra+b-1; +if(L->openupval)luaF_close(L,base); +L->savedpc=pc; +b=luaD_poscall(L,ra); +if(--nexeccalls==0) +return; +else{ +if(b)L->top=L->ci->top; +goto reentry; +} +} +case OP_FORLOOP:{ +lua_Number step=nvalue(ra+2); +lua_Number idx=luai_numadd(nvalue(ra),step); +lua_Number limit=nvalue(ra+1); +if(luai_numlt(0,step)?luai_numle(idx,limit) +:luai_numle(limit,idx)){ +dojump(L,pc,GETARG_sBx(i)); +setnvalue(ra,idx); +setnvalue(ra+3,idx); +} +continue; +} +case OP_FORPREP:{ +const TValue*init=ra; +const TValue*plimit=ra+1; +const TValue*pstep=ra+2; +L->savedpc=pc; +if(!tonumber(init,ra)) +luaG_runerror(L,LUA_QL("for")" initial value must be a number"); +else if(!tonumber(plimit,ra+1)) +luaG_runerror(L,LUA_QL("for")" limit must be a number"); +else if(!tonumber(pstep,ra+2)) +luaG_runerror(L,LUA_QL("for")" step must be a number"); +setnvalue(ra,luai_numsub(nvalue(ra),nvalue(pstep))); +dojump(L,pc,GETARG_sBx(i)); +continue; +} +case OP_TFORLOOP:{ +StkId cb=ra+3; +setobj(L,cb+2,ra+2); +setobj(L,cb+1,ra+1); +setobj(L,cb,ra); +L->top=cb+3; +Protect(luaD_call(L,cb,GETARG_C(i))); +L->top=L->ci->top; +cb=RA(i)+3; +if(!ttisnil(cb)){ +setobj(L,cb-1,cb); +dojump(L,pc,GETARG_sBx(*pc)); +} +pc++; +continue; +} +case OP_SETLIST:{ +int n=GETARG_B(i); +int c=GETARG_C(i); +int last; +Table*h; +if(n==0){ +n=cast_int(L->top-ra)-1; +L->top=L->ci->top; +} +if(c==0)c=cast_int(*pc++); +runtime_check(L,ttistable(ra)); +h=hvalue(ra); +last=((c-1)*50)+n; +if(last>h->sizearray) +luaH_resizearray(L,h,last); +for(;n>0;n--){ +TValue*val=ra+n; +setobj(L,luaH_setnum(L,h,last--),val); +luaC_barriert(L,h,val); +} +continue; +} +case OP_CLOSE:{ +luaF_close(L,ra); +continue; +} +case OP_CLOSURE:{ +Proto*p; +Closure*ncl; +int nup,j; +p=cl->p->p[GETARG_Bx(i)]; +nup=p->nups; +ncl=luaF_newLclosure(L,nup,cl->env); +ncl->l.p=p; +for(j=0;jl.upvals[j]=cl->upvals[GETARG_B(*pc)]; +else{ +ncl->l.upvals[j]=luaF_findupval(L,base+GETARG_B(*pc)); +} +} +setclvalue(L,ra,ncl); +Protect(luaC_checkGC(L)); +continue; +} +case OP_VARARG:{ +int b=GETARG_B(i)-1; +int j; +CallInfo*ci=L->ci; +int n=cast_int(ci->base-ci->func)-cl->p->numparams-1; +if(b==(-1)){ +Protect(luaD_checkstack(L,n)); +ra=RA(i); +b=n; +L->top=ra+n; +} +for(j=0;jbase-n+j); +} +else{ +setnilvalue(ra+j); +} +} +continue; +} +} +} +} +#define api_checknelems(L,n)luai_apicheck(L,(n)<=(L->top-L->base)) +#define api_checkvalidindex(L,i)luai_apicheck(L,(i)!=(&luaO_nilobject_)) +#define api_incr_top(L){luai_apicheck(L,L->topci->top);L->top++;} +static TValue*index2adr(lua_State*L,int idx){ +if(idx>0){ +TValue*o=L->base+(idx-1); +luai_apicheck(L,idx<=L->ci->top-L->base); +if(o>=L->top)return cast(TValue*,(&luaO_nilobject_)); +else return o; +} +else if(idx>(-10000)){ +luai_apicheck(L,idx!=0&&-idx<=L->top-L->base); +return L->top+idx; +} +else switch(idx){ +case(-10000):return registry(L); +case(-10001):{ +Closure*func=curr_func(L); +sethvalue(L,&L->env,func->c.env); +return&L->env; +} +case(-10002):return gt(L); +default:{ +Closure*func=curr_func(L); +idx=(-10002)-idx; +return(idx<=func->c.nupvalues) +?&func->c.upvalue[idx-1] +:cast(TValue*,(&luaO_nilobject_)); +} +} +} +static Table*getcurrenv(lua_State*L){ +if(L->ci==L->base_ci) +return hvalue(gt(L)); +else{ +Closure*func=curr_func(L); +return func->c.env; +} +} +static int lua_checkstack(lua_State*L,int size){ +int res=1; +if(size>8000||(L->top-L->base+size)>8000) +res=0; +else if(size>0){ +luaD_checkstack(L,size); +if(L->ci->toptop+size) +L->ci->top=L->top+size; +} +return res; +} +static lua_CFunction lua_atpanic(lua_State*L,lua_CFunction panicf){ +lua_CFunction old; +old=G(L)->panic; +G(L)->panic=panicf; +return old; +} +static int lua_gettop(lua_State*L){ +return cast_int(L->top-L->base); +} +static void lua_settop(lua_State*L,int idx){ +if(idx>=0){ +luai_apicheck(L,idx<=L->stack_last-L->base); +while(L->topbase+idx) +setnilvalue(L->top++); +L->top=L->base+idx; +} +else{ +luai_apicheck(L,-(idx+1)<=(L->top-L->base)); +L->top+=idx+1; +} +} +static void lua_remove(lua_State*L,int idx){ +StkId p; +p=index2adr(L,idx); +api_checkvalidindex(L,p); +while(++ptop)setobj(L,p-1,p); +L->top--; +} +static void lua_insert(lua_State*L,int idx){ +StkId p; +StkId q; +p=index2adr(L,idx); +api_checkvalidindex(L,p); +for(q=L->top;q>p;q--)setobj(L,q,q-1); +setobj(L,p,L->top); +} +static void lua_replace(lua_State*L,int idx){ +StkId o; +if(idx==(-10001)&&L->ci==L->base_ci) +luaG_runerror(L,"no calling environment"); +api_checknelems(L,1); +o=index2adr(L,idx); +api_checkvalidindex(L,o); +if(idx==(-10001)){ +Closure*func=curr_func(L); +luai_apicheck(L,ttistable(L->top-1)); +func->c.env=hvalue(L->top-1); +luaC_barrier(L,func,L->top-1); +} +else{ +setobj(L,o,L->top-1); +if(idx<(-10002)) +luaC_barrier(L,curr_func(L),L->top-1); +} +L->top--; +} +static void lua_pushvalue(lua_State*L,int idx){ +setobj(L,L->top,index2adr(L,idx)); +api_incr_top(L); +} +static int lua_type(lua_State*L,int idx){ +StkId o=index2adr(L,idx); +return(o==(&luaO_nilobject_))?(-1):ttype(o); +} +static const char*lua_typename(lua_State*L,int t){ +UNUSED(L); +return(t==(-1))?"no value":luaT_typenames[t]; +} +static int lua_iscfunction(lua_State*L,int idx){ +StkId o=index2adr(L,idx); +return iscfunction(o); +} +static int lua_isnumber(lua_State*L,int idx){ +TValue n; +const TValue*o=index2adr(L,idx); +return tonumber(o,&n); +} +static int lua_isstring(lua_State*L,int idx){ +int t=lua_type(L,idx); +return(t==4||t==3); +} +static int lua_rawequal(lua_State*L,int index1,int index2){ +StkId o1=index2adr(L,index1); +StkId o2=index2adr(L,index2); +return(o1==(&luaO_nilobject_)||o2==(&luaO_nilobject_))?0 +:luaO_rawequalObj(o1,o2); +} +static int lua_lessthan(lua_State*L,int index1,int index2){ +StkId o1,o2; +int i; +o1=index2adr(L,index1); +o2=index2adr(L,index2); +i=(o1==(&luaO_nilobject_)||o2==(&luaO_nilobject_))?0 +:luaV_lessthan(L,o1,o2); +return i; +} +static lua_Number lua_tonumber(lua_State*L,int idx){ +TValue n; +const TValue*o=index2adr(L,idx); +if(tonumber(o,&n)) +return nvalue(o); +else +return 0; +} +static lua_Integer lua_tointeger(lua_State*L,int idx){ +TValue n; +const TValue*o=index2adr(L,idx); +if(tonumber(o,&n)){ +lua_Integer res; +lua_Number num=nvalue(o); +lua_number2integer(res,num); +return res; +} +else +return 0; +} +static int lua_toboolean(lua_State*L,int idx){ +const TValue*o=index2adr(L,idx); +return!l_isfalse(o); +} +static const char*lua_tolstring(lua_State*L,int idx,size_t*len){ +StkId o=index2adr(L,idx); +if(!ttisstring(o)){ +if(!luaV_tostring(L,o)){ +if(len!=NULL)*len=0; +return NULL; +} +luaC_checkGC(L); +o=index2adr(L,idx); +} +if(len!=NULL)*len=tsvalue(o)->len; +return svalue(o); +} +static size_t lua_objlen(lua_State*L,int idx){ +StkId o=index2adr(L,idx); +switch(ttype(o)){ +case 4:return tsvalue(o)->len; +case 7:return uvalue(o)->len; +case 5:return luaH_getn(hvalue(o)); +case 3:{ +size_t l; +l=(luaV_tostring(L,o)?tsvalue(o)->len:0); +return l; +} +default:return 0; +} +} +static lua_CFunction lua_tocfunction(lua_State*L,int idx){ +StkId o=index2adr(L,idx); +return(!iscfunction(o))?NULL:clvalue(o)->c.f; +} +static void*lua_touserdata(lua_State*L,int idx){ +StkId o=index2adr(L,idx); +switch(ttype(o)){ +case 7:return(rawuvalue(o)+1); +case 2:return pvalue(o); +default:return NULL; +} +} +static void lua_pushnil(lua_State*L){ +setnilvalue(L->top); +api_incr_top(L); +} +static void lua_pushnumber(lua_State*L,lua_Number n){ +setnvalue(L->top,n); +api_incr_top(L); +} +static void lua_pushinteger(lua_State*L,lua_Integer n){ +setnvalue(L->top,cast_num(n)); +api_incr_top(L); +} +static void lua_pushlstring(lua_State*L,const char*s,size_t len){ +luaC_checkGC(L); +setsvalue(L,L->top,luaS_newlstr(L,s,len)); +api_incr_top(L); +} +static void lua_pushstring(lua_State*L,const char*s){ +if(s==NULL) +lua_pushnil(L); +else +lua_pushlstring(L,s,strlen(s)); +} +static const char*lua_pushvfstring(lua_State*L,const char*fmt, +va_list argp){ +const char*ret; +luaC_checkGC(L); +ret=luaO_pushvfstring(L,fmt,argp); +return ret; +} +static const char*lua_pushfstring(lua_State*L,const char*fmt,...){ +const char*ret; +va_list argp; +luaC_checkGC(L); +va_start(argp,fmt); +ret=luaO_pushvfstring(L,fmt,argp); +va_end(argp); +return ret; +} +static void lua_pushcclosure(lua_State*L,lua_CFunction fn,int n){ +Closure*cl; +luaC_checkGC(L); +api_checknelems(L,n); +cl=luaF_newCclosure(L,n,getcurrenv(L)); +cl->c.f=fn; +L->top-=n; +while(n--) +setobj(L,&cl->c.upvalue[n],L->top+n); +setclvalue(L,L->top,cl); +api_incr_top(L); +} +static void lua_pushboolean(lua_State*L,int b){ +setbvalue(L->top,(b!=0)); +api_incr_top(L); +} +static int lua_pushthread(lua_State*L){ +setthvalue(L,L->top,L); +api_incr_top(L); +return(G(L)->mainthread==L); +} +static void lua_gettable(lua_State*L,int idx){ +StkId t; +t=index2adr(L,idx); +api_checkvalidindex(L,t); +luaV_gettable(L,t,L->top-1,L->top-1); +} +static void lua_getfield(lua_State*L,int idx,const char*k){ +StkId t; +TValue key; +t=index2adr(L,idx); +api_checkvalidindex(L,t); +setsvalue(L,&key,luaS_new(L,k)); +luaV_gettable(L,t,&key,L->top); +api_incr_top(L); +} +static void lua_rawget(lua_State*L,int idx){ +StkId t; +t=index2adr(L,idx); +luai_apicheck(L,ttistable(t)); +setobj(L,L->top-1,luaH_get(hvalue(t),L->top-1)); +} +static void lua_rawgeti(lua_State*L,int idx,int n){ +StkId o; +o=index2adr(L,idx); +luai_apicheck(L,ttistable(o)); +setobj(L,L->top,luaH_getnum(hvalue(o),n)); +api_incr_top(L); +} +static void lua_createtable(lua_State*L,int narray,int nrec){ +luaC_checkGC(L); +sethvalue(L,L->top,luaH_new(L,narray,nrec)); +api_incr_top(L); +} +static int lua_getmetatable(lua_State*L,int objindex){ +const TValue*obj; +Table*mt=NULL; +int res; +obj=index2adr(L,objindex); +switch(ttype(obj)){ +case 5: +mt=hvalue(obj)->metatable; +break; +case 7: +mt=uvalue(obj)->metatable; +break; +default: +mt=G(L)->mt[ttype(obj)]; +break; +} +if(mt==NULL) +res=0; +else{ +sethvalue(L,L->top,mt); +api_incr_top(L); +res=1; +} +return res; +} +static void lua_getfenv(lua_State*L,int idx){ +StkId o; +o=index2adr(L,idx); +api_checkvalidindex(L,o); +switch(ttype(o)){ +case 6: +sethvalue(L,L->top,clvalue(o)->c.env); +break; +case 7: +sethvalue(L,L->top,uvalue(o)->env); +break; +case 8: +setobj(L,L->top,gt(thvalue(o))); +break; +default: +setnilvalue(L->top); +break; +} +api_incr_top(L); +} +static void lua_settable(lua_State*L,int idx){ +StkId t; +api_checknelems(L,2); +t=index2adr(L,idx); +api_checkvalidindex(L,t); +luaV_settable(L,t,L->top-2,L->top-1); +L->top-=2; +} +static void lua_setfield(lua_State*L,int idx,const char*k){ +StkId t; +TValue key; +api_checknelems(L,1); +t=index2adr(L,idx); +api_checkvalidindex(L,t); +setsvalue(L,&key,luaS_new(L,k)); +luaV_settable(L,t,&key,L->top-1); +L->top--; +} +static void lua_rawset(lua_State*L,int idx){ +StkId t; +api_checknelems(L,2); +t=index2adr(L,idx); +luai_apicheck(L,ttistable(t)); +setobj(L,luaH_set(L,hvalue(t),L->top-2),L->top-1); +luaC_barriert(L,hvalue(t),L->top-1); +L->top-=2; +} +static void lua_rawseti(lua_State*L,int idx,int n){ +StkId o; +api_checknelems(L,1); +o=index2adr(L,idx); +luai_apicheck(L,ttistable(o)); +setobj(L,luaH_setnum(L,hvalue(o),n),L->top-1); +luaC_barriert(L,hvalue(o),L->top-1); +L->top--; +} +static int lua_setmetatable(lua_State*L,int objindex){ +TValue*obj; +Table*mt; +api_checknelems(L,1); +obj=index2adr(L,objindex); +api_checkvalidindex(L,obj); +if(ttisnil(L->top-1)) +mt=NULL; +else{ +luai_apicheck(L,ttistable(L->top-1)); +mt=hvalue(L->top-1); +} +switch(ttype(obj)){ +case 5:{ +hvalue(obj)->metatable=mt; +if(mt) +luaC_objbarriert(L,hvalue(obj),mt); +break; +} +case 7:{ +uvalue(obj)->metatable=mt; +if(mt) +luaC_objbarrier(L,rawuvalue(obj),mt); +break; +} +default:{ +G(L)->mt[ttype(obj)]=mt; +break; +} +} +L->top--; +return 1; +} +static int lua_setfenv(lua_State*L,int idx){ +StkId o; +int res=1; +api_checknelems(L,1); +o=index2adr(L,idx); +api_checkvalidindex(L,o); +luai_apicheck(L,ttistable(L->top-1)); +switch(ttype(o)){ +case 6: +clvalue(o)->c.env=hvalue(L->top-1); +break; +case 7: +uvalue(o)->env=hvalue(L->top-1); +break; +case 8: +sethvalue(L,gt(thvalue(o)),hvalue(L->top-1)); +break; +default: +res=0; +break; +} +if(res)luaC_objbarrier(L,gcvalue(o),hvalue(L->top-1)); +L->top--; +return res; +} +#define adjustresults(L,nres){if(nres==(-1)&&L->top>=L->ci->top)L->ci->top=L->top;} +#define checkresults(L,na,nr)luai_apicheck(L,(nr)==(-1)||(L->ci->top-L->top>=(nr)-(na))) +static void lua_call(lua_State*L,int nargs,int nresults){ +StkId func; +api_checknelems(L,nargs+1); +checkresults(L,nargs,nresults); +func=L->top-(nargs+1); +luaD_call(L,func,nresults); +adjustresults(L,nresults); +} +struct CallS{ +StkId func; +int nresults; +}; +static void f_call(lua_State*L,void*ud){ +struct CallS*c=cast(struct CallS*,ud); +luaD_call(L,c->func,c->nresults); +} +static int lua_pcall(lua_State*L,int nargs,int nresults,int errfunc){ +struct CallS c; +int status; +ptrdiff_t func; +api_checknelems(L,nargs+1); +checkresults(L,nargs,nresults); +if(errfunc==0) +func=0; +else{ +StkId o=index2adr(L,errfunc); +api_checkvalidindex(L,o); +func=savestack(L,o); +} +c.func=L->top-(nargs+1); +c.nresults=nresults; +status=luaD_pcall(L,f_call,&c,savestack(L,c.func),func); +adjustresults(L,nresults); +return status; +} +static int lua_load(lua_State*L,lua_Reader reader,void*data, +const char*chunkname){ +ZIO z; +int status; +if(!chunkname)chunkname="?"; +luaZ_init(L,&z,reader,data); +status=luaD_protectedparser(L,&z,chunkname); +return status; +} +static int lua_error(lua_State*L){ +api_checknelems(L,1); +luaG_errormsg(L); +return 0; +} +static int lua_next(lua_State*L,int idx){ +StkId t; +int more; +t=index2adr(L,idx); +luai_apicheck(L,ttistable(t)); +more=luaH_next(L,hvalue(t),L->top-1); +if(more){ +api_incr_top(L); +} +else +L->top-=1; +return more; +} +static void lua_concat(lua_State*L,int n){ +api_checknelems(L,n); +if(n>=2){ +luaC_checkGC(L); +luaV_concat(L,n,cast_int(L->top-L->base)-1); +L->top-=(n-1); +} +else if(n==0){ +setsvalue(L,L->top,luaS_newlstr(L,"",0)); +api_incr_top(L); +} +} +static void*lua_newuserdata(lua_State*L,size_t size){ +Udata*u; +luaC_checkGC(L); +u=luaS_newudata(L,size,getcurrenv(L)); +setuvalue(L,L->top,u); +api_incr_top(L); +return u+1; +} +#define luaL_getn(L,i)((int)lua_objlen(L,i)) +#define luaL_setn(L,i,j)((void)0) +typedef struct luaL_Reg{ +const char*name; +lua_CFunction func; +}luaL_Reg; +static void luaI_openlib(lua_State*L,const char*libname, +const luaL_Reg*l,int nup); +static int luaL_argerror(lua_State*L,int numarg,const char*extramsg); +static const char* luaL_checklstring(lua_State*L,int numArg, +size_t*l); +static const char* luaL_optlstring(lua_State*L,int numArg, +const char*def,size_t*l); +static lua_Integer luaL_checkinteger(lua_State*L,int numArg); +static lua_Integer luaL_optinteger(lua_State*L,int nArg, +lua_Integer def); +static int luaL_error(lua_State*L,const char*fmt,...); +static const char* luaL_findtable(lua_State*L,int idx, +const char*fname,int szhint); +#define luaL_argcheck(L,cond,numarg,extramsg)((void)((cond)||luaL_argerror(L,(numarg),(extramsg)))) +#define luaL_checkstring(L,n)(luaL_checklstring(L,(n),NULL)) +#define luaL_optstring(L,n,d)(luaL_optlstring(L,(n),(d),NULL)) +#define luaL_checkint(L,n)((int)luaL_checkinteger(L,(n))) +#define luaL_optint(L,n,d)((int)luaL_optinteger(L,(n),(d))) +#define luaL_typename(L,i)lua_typename(L,lua_type(L,(i))) +#define luaL_getmetatable(L,n)(lua_getfield(L,(-10000),(n))) +#define luaL_opt(L,f,n,d)(lua_isnoneornil(L,(n))?(d):f(L,(n))) +typedef struct luaL_Buffer{ +char*p; +int lvl; +lua_State*L; +char buffer[BUFSIZ]; +}luaL_Buffer; +#define luaL_addchar(B,c)((void)((B)->p<((B)->buffer+BUFSIZ)||luaL_prepbuffer(B)),(*(B)->p++=(char)(c))) +#define luaL_addsize(B,n)((B)->p+=(n)) +static char* luaL_prepbuffer(luaL_Buffer*B); +static int luaL_argerror(lua_State*L,int narg,const char*extramsg){ +lua_Debug ar; +if(!lua_getstack(L,0,&ar)) +return luaL_error(L,"bad argument #%d (%s)",narg,extramsg); +lua_getinfo(L,"n",&ar); +if(strcmp(ar.namewhat,"method")==0){ +narg--; +if(narg==0) +return luaL_error(L,"calling "LUA_QL("%s")" on bad self (%s)", +ar.name,extramsg); +} +if(ar.name==NULL) +ar.name="?"; +return luaL_error(L,"bad argument #%d to "LUA_QL("%s")" (%s)", +narg,ar.name,extramsg); +} +static int luaL_typerror(lua_State*L,int narg,const char*tname){ +const char*msg=lua_pushfstring(L,"%s expected, got %s", +tname,luaL_typename(L,narg)); +return luaL_argerror(L,narg,msg); +} +static void tag_error(lua_State*L,int narg,int tag){ +luaL_typerror(L,narg,lua_typename(L,tag)); +} +static void luaL_where(lua_State*L,int level){ +lua_Debug ar; +if(lua_getstack(L,level,&ar)){ +lua_getinfo(L,"Sl",&ar); +if(ar.currentline>0){ +lua_pushfstring(L,"%s:%d: ",ar.short_src,ar.currentline); +return; +} +} +lua_pushliteral(L,""); +} +static int luaL_error(lua_State*L,const char*fmt,...){ +va_list argp; +va_start(argp,fmt); +luaL_where(L,1); +lua_pushvfstring(L,fmt,argp); +va_end(argp); +lua_concat(L,2); +return lua_error(L); +} +static int luaL_newmetatable(lua_State*L,const char*tname){ +lua_getfield(L,(-10000),tname); +if(!lua_isnil(L,-1)) +return 0; +lua_pop(L,1); +lua_newtable(L); +lua_pushvalue(L,-1); +lua_setfield(L,(-10000),tname); +return 1; +} +static void*luaL_checkudata(lua_State*L,int ud,const char*tname){ +void*p=lua_touserdata(L,ud); +if(p!=NULL){ +if(lua_getmetatable(L,ud)){ +lua_getfield(L,(-10000),tname); +if(lua_rawequal(L,-1,-2)){ +lua_pop(L,2); +return p; +} +} +} +luaL_typerror(L,ud,tname); +return NULL; +} +static void luaL_checkstack(lua_State*L,int space,const char*mes){ +if(!lua_checkstack(L,space)) +luaL_error(L,"stack overflow (%s)",mes); +} +static void luaL_checktype(lua_State*L,int narg,int t){ +if(lua_type(L,narg)!=t) +tag_error(L,narg,t); +} +static void luaL_checkany(lua_State*L,int narg){ +if(lua_type(L,narg)==(-1)) +luaL_argerror(L,narg,"value expected"); +} +static const char*luaL_checklstring(lua_State*L,int narg,size_t*len){ +const char*s=lua_tolstring(L,narg,len); +if(!s)tag_error(L,narg,4); +return s; +} +static const char*luaL_optlstring(lua_State*L,int narg, +const char*def,size_t*len){ +if(lua_isnoneornil(L,narg)){ +if(len) +*len=(def?strlen(def):0); +return def; +} +else return luaL_checklstring(L,narg,len); +} +static lua_Number luaL_checknumber(lua_State*L,int narg){ +lua_Number d=lua_tonumber(L,narg); +if(d==0&&!lua_isnumber(L,narg)) +tag_error(L,narg,3); +return d; +} +static lua_Integer luaL_checkinteger(lua_State*L,int narg){ +lua_Integer d=lua_tointeger(L,narg); +if(d==0&&!lua_isnumber(L,narg)) +tag_error(L,narg,3); +return d; +} +static lua_Integer luaL_optinteger(lua_State*L,int narg, +lua_Integer def){ +return luaL_opt(L,luaL_checkinteger,narg,def); +} +static int luaL_getmetafield(lua_State*L,int obj,const char*event){ +if(!lua_getmetatable(L,obj)) +return 0; +lua_pushstring(L,event); +lua_rawget(L,-2); +if(lua_isnil(L,-1)){ +lua_pop(L,2); +return 0; +} +else{ +lua_remove(L,-2); +return 1; +} +} +static void luaL_register(lua_State*L,const char*libname, +const luaL_Reg*l){ +luaI_openlib(L,libname,l,0); +} +static int libsize(const luaL_Reg*l){ +int size=0; +for(;l->name;l++)size++; +return size; +} +static void luaI_openlib(lua_State*L,const char*libname, +const luaL_Reg*l,int nup){ +if(libname){ +int size=libsize(l); +luaL_findtable(L,(-10000),"_LOADED",1); +lua_getfield(L,-1,libname); +if(!lua_istable(L,-1)){ +lua_pop(L,1); +if(luaL_findtable(L,(-10002),libname,size)!=NULL) +luaL_error(L,"name conflict for module "LUA_QL("%s"),libname); +lua_pushvalue(L,-1); +lua_setfield(L,-3,libname); +} +lua_remove(L,-2); +lua_insert(L,-(nup+1)); +} +for(;l->name;l++){ +int i; +for(i=0;ifunc,nup); +lua_setfield(L,-(nup+2),l->name); +} +lua_pop(L,nup); +} +static const char*luaL_findtable(lua_State*L,int idx, +const char*fname,int szhint){ +const char*e; +lua_pushvalue(L,idx); +do{ +e=strchr(fname,'.'); +if(e==NULL)e=fname+strlen(fname); +lua_pushlstring(L,fname,e-fname); +lua_rawget(L,-2); +if(lua_isnil(L,-1)){ +lua_pop(L,1); +lua_createtable(L,0,(*e=='.'?1:szhint)); +lua_pushlstring(L,fname,e-fname); +lua_pushvalue(L,-2); +lua_settable(L,-4); +} +else if(!lua_istable(L,-1)){ +lua_pop(L,2); +return fname; +} +lua_remove(L,-2); +fname=e+1; +}while(*e=='.'); +return NULL; +} +#define bufflen(B)((B)->p-(B)->buffer) +#define bufffree(B)((size_t)(BUFSIZ-bufflen(B))) +static int emptybuffer(luaL_Buffer*B){ +size_t l=bufflen(B); +if(l==0)return 0; +else{ +lua_pushlstring(B->L,B->buffer,l); +B->p=B->buffer; +B->lvl++; +return 1; +} +} +static void adjuststack(luaL_Buffer*B){ +if(B->lvl>1){ +lua_State*L=B->L; +int toget=1; +size_t toplen=lua_strlen(L,-1); +do{ +size_t l=lua_strlen(L,-(toget+1)); +if(B->lvl-toget+1>=(20/2)||toplen>l){ +toplen+=l; +toget++; +} +else break; +}while(togetlvl); +lua_concat(L,toget); +B->lvl=B->lvl-toget+1; +} +} +static char*luaL_prepbuffer(luaL_Buffer*B){ +if(emptybuffer(B)) +adjuststack(B); +return B->buffer; +} +static void luaL_addlstring(luaL_Buffer*B,const char*s,size_t l){ +while(l--) +luaL_addchar(B,*s++); +} +static void luaL_pushresult(luaL_Buffer*B){ +emptybuffer(B); +lua_concat(B->L,B->lvl); +B->lvl=1; +} +static void luaL_addvalue(luaL_Buffer*B){ +lua_State*L=B->L; +size_t vl; +const char*s=lua_tolstring(L,-1,&vl); +if(vl<=bufffree(B)){ +memcpy(B->p,s,vl); +B->p+=vl; +lua_pop(L,1); +} +else{ +if(emptybuffer(B)) +lua_insert(L,-2); +B->lvl++; +adjuststack(B); +} +} +static void luaL_buffinit(lua_State*L,luaL_Buffer*B){ +B->L=L; +B->p=B->buffer; +B->lvl=0; +} +typedef struct LoadF{ +int extraline; +FILE*f; +char buff[BUFSIZ]; +}LoadF; +static const char*getF(lua_State*L,void*ud,size_t*size){ +LoadF*lf=(LoadF*)ud; +(void)L; +if(lf->extraline){ +lf->extraline=0; +*size=1; +return"\n"; +} +if(feof(lf->f))return NULL; +*size=fread(lf->buff,1,sizeof(lf->buff),lf->f); +return(*size>0)?lf->buff:NULL; +} +static int errfile(lua_State*L,const char*what,int fnameindex){ +const char*serr=strerror(errno); +const char*filename=lua_tostring(L,fnameindex)+1; +lua_pushfstring(L,"cannot %s %s: %s",what,filename,serr); +lua_remove(L,fnameindex); +return(5+1); +} +static int luaL_loadfile(lua_State*L,const char*filename){ +LoadF lf; +int status,readstatus; +int c; +int fnameindex=lua_gettop(L)+1; +lf.extraline=0; +if(filename==NULL){ +lua_pushliteral(L,"=stdin"); +lf.f=stdin; +} +else{ +lua_pushfstring(L,"@%s",filename); +lf.f=fopen(filename,"r"); +if(lf.f==NULL)return errfile(L,"open",fnameindex); +} +c=getc(lf.f); +if(c=='#'){ +lf.extraline=1; +while((c=getc(lf.f))!=EOF&&c!='\n'); +if(c=='\n')c=getc(lf.f); +} +if(c=="\033Lua"[0]&&filename){ +lf.f=freopen(filename,"rb",lf.f); +if(lf.f==NULL)return errfile(L,"reopen",fnameindex); +while((c=getc(lf.f))!=EOF&&c!="\033Lua"[0]); +lf.extraline=0; +} +ungetc(c,lf.f); +status=lua_load(L,getF,&lf,lua_tostring(L,-1)); +readstatus=ferror(lf.f); +if(filename)fclose(lf.f); +if(readstatus){ +lua_settop(L,fnameindex); +return errfile(L,"read",fnameindex); +} +lua_remove(L,fnameindex); +return status; +} +typedef struct LoadS{ +const char*s; +size_t size; +}LoadS; +static const char*getS(lua_State*L,void*ud,size_t*size){ +LoadS*ls=(LoadS*)ud; +(void)L; +if(ls->size==0)return NULL; +*size=ls->size; +ls->size=0; +return ls->s; +} +static int luaL_loadbuffer(lua_State*L,const char*buff,size_t size, +const char*name){ +LoadS ls; +ls.s=buff; +ls.size=size; +return lua_load(L,getS,&ls,name); +} +static void*l_alloc(void*ud,void*ptr,size_t osize,size_t nsize){ +(void)ud; +(void)osize; +if(nsize==0){ +free(ptr); +return NULL; +} +else +return realloc(ptr,nsize); +} +static int panic(lua_State*L){ +(void)L; +fprintf(stderr,"PANIC: unprotected error in call to Lua API (%s)\n", +lua_tostring(L,-1)); +return 0; +} +static lua_State*luaL_newstate(void){ +lua_State*L=lua_newstate(l_alloc,NULL); +if(L)lua_atpanic(L,&panic); +return L; +} +static int luaB_tonumber(lua_State*L){ +int base=luaL_optint(L,2,10); +if(base==10){ +luaL_checkany(L,1); +if(lua_isnumber(L,1)){ +lua_pushnumber(L,lua_tonumber(L,1)); +return 1; +} +} +else{ +const char*s1=luaL_checkstring(L,1); +char*s2; +unsigned long n; +luaL_argcheck(L,2<=base&&base<=36,2,"base out of range"); +n=strtoul(s1,&s2,base); +if(s1!=s2){ +while(isspace((unsigned char)(*s2)))s2++; +if(*s2=='\0'){ +lua_pushnumber(L,(lua_Number)n); +return 1; +} +} +} +lua_pushnil(L); +return 1; +} +static int luaB_error(lua_State*L){ +int level=luaL_optint(L,2,1); +lua_settop(L,1); +if(lua_isstring(L,1)&&level>0){ +luaL_where(L,level); +lua_pushvalue(L,1); +lua_concat(L,2); +} +return lua_error(L); +} +static int luaB_setmetatable(lua_State*L){ +int t=lua_type(L,2); +luaL_checktype(L,1,5); +luaL_argcheck(L,t==0||t==5,2, +"nil or table expected"); +if(luaL_getmetafield(L,1,"__metatable")) +luaL_error(L,"cannot change a protected metatable"); +lua_settop(L,2); +lua_setmetatable(L,1); +return 1; +} +static void getfunc(lua_State*L,int opt){ +if(lua_isfunction(L,1))lua_pushvalue(L,1); +else{ +lua_Debug ar; +int level=opt?luaL_optint(L,1,1):luaL_checkint(L,1); +luaL_argcheck(L,level>=0,1,"level must be non-negative"); +if(lua_getstack(L,level,&ar)==0) +luaL_argerror(L,1,"invalid level"); +lua_getinfo(L,"f",&ar); +if(lua_isnil(L,-1)) +luaL_error(L,"no function environment for tail call at level %d", +level); +} +} +static int luaB_setfenv(lua_State*L){ +luaL_checktype(L,2,5); +getfunc(L,0); +lua_pushvalue(L,2); +if(lua_isnumber(L,1)&&lua_tonumber(L,1)==0){ +lua_pushthread(L); +lua_insert(L,-2); +lua_setfenv(L,-2); +return 0; +} +else if(lua_iscfunction(L,-2)||lua_setfenv(L,-2)==0) +luaL_error(L, +LUA_QL("setfenv")" cannot change environment of given object"); +return 1; +} +static int luaB_rawget(lua_State*L){ +luaL_checktype(L,1,5); +luaL_checkany(L,2); +lua_settop(L,2); +lua_rawget(L,1); +return 1; +} +static int luaB_type(lua_State*L){ +luaL_checkany(L,1); +lua_pushstring(L,luaL_typename(L,1)); +return 1; +} +static int luaB_next(lua_State*L){ +luaL_checktype(L,1,5); +lua_settop(L,2); +if(lua_next(L,1)) +return 2; +else{ +lua_pushnil(L); +return 1; +} +} +static int luaB_pairs(lua_State*L){ +luaL_checktype(L,1,5); +lua_pushvalue(L,lua_upvalueindex(1)); +lua_pushvalue(L,1); +lua_pushnil(L); +return 3; +} +static int ipairsaux(lua_State*L){ +int i=luaL_checkint(L,2); +luaL_checktype(L,1,5); +i++; +lua_pushinteger(L,i); +lua_rawgeti(L,1,i); +return(lua_isnil(L,-1))?0:2; +} +static int luaB_ipairs(lua_State*L){ +luaL_checktype(L,1,5); +lua_pushvalue(L,lua_upvalueindex(1)); +lua_pushvalue(L,1); +lua_pushinteger(L,0); +return 3; +} +static int load_aux(lua_State*L,int status){ +if(status==0) +return 1; +else{ +lua_pushnil(L); +lua_insert(L,-2); +return 2; +} +} +static int luaB_loadstring(lua_State*L){ +size_t l; +const char*s=luaL_checklstring(L,1,&l); +const char*chunkname=luaL_optstring(L,2,s); +return load_aux(L,luaL_loadbuffer(L,s,l,chunkname)); +} +static int luaB_loadfile(lua_State*L){ +const char*fname=luaL_optstring(L,1,NULL); +return load_aux(L,luaL_loadfile(L,fname)); +} +static int luaB_assert(lua_State*L){ +luaL_checkany(L,1); +if(!lua_toboolean(L,1)) +return luaL_error(L,"%s",luaL_optstring(L,2,"assertion failed!")); +return lua_gettop(L); +} +static int luaB_unpack(lua_State*L){ +int i,e,n; +luaL_checktype(L,1,5); +i=luaL_optint(L,2,1); +e=luaL_opt(L,luaL_checkint,3,luaL_getn(L,1)); +if(i>e)return 0; +n=e-i+1; +if(n<=0||!lua_checkstack(L,n)) +return luaL_error(L,"too many results to unpack"); +lua_rawgeti(L,1,i); +while(i++e)e=pos; +for(i=e;i>pos;i--){ +lua_rawgeti(L,1,i-1); +lua_rawseti(L,1,i); +} +break; +} +default:{ +return luaL_error(L,"wrong number of arguments to "LUA_QL("insert")); +} +} +luaL_setn(L,1,e); +lua_rawseti(L,1,pos); +return 0; +} +static int tremove(lua_State*L){ +int e=aux_getn(L,1); +int pos=luaL_optint(L,2,e); +if(!(1<=pos&&pos<=e)) +return 0; +luaL_setn(L,1,e-1); +lua_rawgeti(L,1,pos); +for(;posu)luaL_error(L,"invalid order function for sorting"); +lua_pop(L,1); +} +while(lua_rawgeti(L,1,--j),sort_comp(L,-3,-1)){ +if(j0); +} +l=strlen(p); +if(l==0||p[l-1]!='\n') +luaL_addsize(&b,l); +else{ +luaL_addsize(&b,l-1); +luaL_pushresult(&b); +return 1; +} +} +} +static int read_chars(lua_State*L,FILE*f,size_t n){ +size_t rlen; +size_t nr; +luaL_Buffer b; +luaL_buffinit(L,&b); +rlen=BUFSIZ; +do{ +char*p=luaL_prepbuffer(&b); +if(rlen>n)rlen=n; +nr=fread(p,sizeof(char),rlen,f); +luaL_addsize(&b,nr); +n-=nr; +}while(n>0&&nr==rlen); +luaL_pushresult(&b); +return(n==0||lua_objlen(L,-1)>0); +} +static int g_read(lua_State*L,FILE*f,int first){ +int nargs=lua_gettop(L)-1; +int success; +int n; +clearerr(f); +if(nargs==0){ +success=read_line(L,f); +n=first+1; +} +else{ +luaL_checkstack(L,nargs+20,"too many arguments"); +success=1; +for(n=first;nargs--&&success;n++){ +if(lua_type(L,n)==3){ +size_t l=(size_t)lua_tointeger(L,n); +success=(l==0)?test_eof(L,f):read_chars(L,f,l); +} +else{ +const char*p=lua_tostring(L,n); +luaL_argcheck(L,p&&p[0]=='*',n,"invalid option"); +switch(p[1]){ +case'n': +success=read_number(L,f); +break; +case'l': +success=read_line(L,f); +break; +case'a': +read_chars(L,f,~((size_t)0)); +success=1; +break; +default: +return luaL_argerror(L,n,"invalid format"); +} +} +} +} +if(ferror(f)) +return pushresult(L,0,NULL); +if(!success){ +lua_pop(L,1); +lua_pushnil(L); +} +return n-first; +} +static int io_read(lua_State*L){ +return g_read(L,getiofile(L,1),1); +} +static int f_read(lua_State*L){ +return g_read(L,tofile(L),2); +} +static int io_readline(lua_State*L){ +FILE*f=*(FILE**)lua_touserdata(L,lua_upvalueindex(1)); +int sucess; +if(f==NULL) +luaL_error(L,"file is already closed"); +sucess=read_line(L,f); +if(ferror(f)) +return luaL_error(L,"%s",strerror(errno)); +if(sucess)return 1; +else{ +if(lua_toboolean(L,lua_upvalueindex(2))){ +lua_settop(L,0); +lua_pushvalue(L,lua_upvalueindex(1)); +aux_close(L); +} +return 0; +} +} +static int g_write(lua_State*L,FILE*f,int arg){ +int nargs=lua_gettop(L)-1; +int status=1; +for(;nargs--;arg++){ +if(lua_type(L,arg)==3){ +status=status&& +fprintf(f,"%.14g",lua_tonumber(L,arg))>0; +} +else{ +size_t l; +const char*s=luaL_checklstring(L,arg,&l); +status=status&&(fwrite(s,sizeof(char),l,f)==l); +} +} +return pushresult(L,status,NULL); +} +static int io_write(lua_State*L){ +return g_write(L,getiofile(L,2),1); +} +static int f_write(lua_State*L){ +return g_write(L,tofile(L),2); +} +static int io_flush(lua_State*L){ +return pushresult(L,fflush(getiofile(L,2))==0,NULL); +} +static int f_flush(lua_State*L){ +return pushresult(L,fflush(tofile(L))==0,NULL); +} +static const luaL_Reg iolib[]={ +{"close",io_close}, +{"flush",io_flush}, +{"input",io_input}, +{"lines",io_lines}, +{"open",io_open}, +{"output",io_output}, +{"read",io_read}, +{"type",io_type}, +{"write",io_write}, +{NULL,NULL} +}; +static const luaL_Reg flib[]={ +{"close",io_close}, +{"flush",f_flush}, +{"lines",f_lines}, +{"read",f_read}, +{"write",f_write}, +{"__gc",io_gc}, +{NULL,NULL} +}; +static void createmeta(lua_State*L){ +luaL_newmetatable(L,"FILE*"); +lua_pushvalue(L,-1); +lua_setfield(L,-2,"__index"); +luaL_register(L,NULL,flib); +} +static void createstdfile(lua_State*L,FILE*f,int k,const char*fname){ +*newfile(L)=f; +if(k>0){ +lua_pushvalue(L,-1); +lua_rawseti(L,(-10001),k); +} +lua_pushvalue(L,-2); +lua_setfenv(L,-2); +lua_setfield(L,-3,fname); +} +static void newfenv(lua_State*L,lua_CFunction cls){ +lua_createtable(L,0,1); +lua_pushcfunction(L,cls); +lua_setfield(L,-2,"__close"); +} +static int luaopen_io(lua_State*L){ +createmeta(L); +newfenv(L,io_fclose); +lua_replace(L,(-10001)); +luaL_register(L,"io",iolib); +newfenv(L,io_noclose); +createstdfile(L,stdin,1,"stdin"); +createstdfile(L,stdout,2,"stdout"); +createstdfile(L,stderr,0,"stderr"); +lua_pop(L,1); +lua_getfield(L,-1,"popen"); +newfenv(L,io_pclose); +lua_setfenv(L,-2); +lua_pop(L,1); +return 1; +} +static int os_pushresult(lua_State*L,int i,const char*filename){ +int en=errno; +if(i){ +lua_pushboolean(L,1); +return 1; +} +else{ +lua_pushnil(L); +lua_pushfstring(L,"%s: %s",filename,strerror(en)); +lua_pushinteger(L,en); +return 3; +} +} +static int os_remove(lua_State*L){ +const char*filename=luaL_checkstring(L,1); +return os_pushresult(L,remove(filename)==0,filename); +} +static int os_exit(lua_State*L){ +exit(luaL_optint(L,1,EXIT_SUCCESS)); +} +static const luaL_Reg syslib[]={ +{"exit",os_exit}, +{"remove",os_remove}, +{NULL,NULL} +}; +static int luaopen_os(lua_State*L){ +luaL_register(L,"os",syslib); +return 1; +} +#define uchar(c)((unsigned char)(c)) +static ptrdiff_t posrelat(ptrdiff_t pos,size_t len){ +if(pos<0)pos+=(ptrdiff_t)len+1; +return(pos>=0)?pos:0; +} +static int str_sub(lua_State*L){ +size_t l; +const char*s=luaL_checklstring(L,1,&l); +ptrdiff_t start=posrelat(luaL_checkinteger(L,2),l); +ptrdiff_t end=posrelat(luaL_optinteger(L,3,-1),l); +if(start<1)start=1; +if(end>(ptrdiff_t)l)end=(ptrdiff_t)l; +if(start<=end) +lua_pushlstring(L,s+start-1,end-start+1); +else lua_pushliteral(L,""); +return 1; +} +static int str_lower(lua_State*L){ +size_t l; +size_t i; +luaL_Buffer b; +const char*s=luaL_checklstring(L,1,&l); +luaL_buffinit(L,&b); +for(i=0;i0) +luaL_addlstring(&b,s,l); +luaL_pushresult(&b); +return 1; +} +static int str_byte(lua_State*L){ +size_t l; +const char*s=luaL_checklstring(L,1,&l); +ptrdiff_t posi=posrelat(luaL_optinteger(L,2,1),l); +ptrdiff_t pose=posrelat(luaL_optinteger(L,3,posi),l); +int n,i; +if(posi<=0)posi=1; +if((size_t)pose>l)pose=l; +if(posi>pose)return 0; +n=(int)(pose-posi+1); +if(posi+n<=pose) +luaL_error(L,"string slice too long"); +luaL_checkstack(L,n,"string slice too long"); +for(i=0;i=ms->level||ms->capture[l].len==(-1)) +return luaL_error(ms->L,"invalid capture index"); +return l; +} +static int capture_to_close(MatchState*ms){ +int level=ms->level; +for(level--;level>=0;level--) +if(ms->capture[level].len==(-1))return level; +return luaL_error(ms->L,"invalid pattern capture"); +} +static const char*classend(MatchState*ms,const char*p){ +switch(*p++){ +case'%':{ +if(*p=='\0') +luaL_error(ms->L,"malformed pattern (ends with "LUA_QL("%%")")"); +return p+1; +} +case'[':{ +if(*p=='^')p++; +do{ +if(*p=='\0') +luaL_error(ms->L,"malformed pattern (missing "LUA_QL("]")")"); +if(*(p++)=='%'&&*p!='\0') +p++; +}while(*p!=']'); +return p+1; +} +default:{ +return p; +} +} +} +static int match_class(int c,int cl){ +int res; +switch(tolower(cl)){ +case'a':res=isalpha(c);break; +case'c':res=iscntrl(c);break; +case'd':res=isdigit(c);break; +case'l':res=islower(c);break; +case'p':res=ispunct(c);break; +case's':res=isspace(c);break; +case'u':res=isupper(c);break; +case'w':res=isalnum(c);break; +case'x':res=isxdigit(c);break; +case'z':res=(c==0);break; +default:return(cl==c); +} +return(islower(cl)?res:!res); +} +static int matchbracketclass(int c,const char*p,const char*ec){ +int sig=1; +if(*(p+1)=='^'){ +sig=0; +p++; +} +while(++pL,"unbalanced pattern"); +if(*s!=*p)return NULL; +else{ +int b=*p; +int e=*(p+1); +int cont=1; +while(++ssrc_end){ +if(*s==e){ +if(--cont==0)return s+1; +} +else if(*s==b)cont++; +} +} +return NULL; +} +static const char*max_expand(MatchState*ms,const char*s, +const char*p,const char*ep){ +ptrdiff_t i=0; +while((s+i)src_end&&singlematch(uchar(*(s+i)),p,ep)) +i++; +while(i>=0){ +const char*res=match(ms,(s+i),ep+1); +if(res)return res; +i--; +} +return NULL; +} +static const char*min_expand(MatchState*ms,const char*s, +const char*p,const char*ep){ +for(;;){ +const char*res=match(ms,s,ep+1); +if(res!=NULL) +return res; +else if(ssrc_end&&singlematch(uchar(*s),p,ep)) +s++; +else return NULL; +} +} +static const char*start_capture(MatchState*ms,const char*s, +const char*p,int what){ +const char*res; +int level=ms->level; +if(level>=32)luaL_error(ms->L,"too many captures"); +ms->capture[level].init=s; +ms->capture[level].len=what; +ms->level=level+1; +if((res=match(ms,s,p))==NULL) +ms->level--; +return res; +} +static const char*end_capture(MatchState*ms,const char*s, +const char*p){ +int l=capture_to_close(ms); +const char*res; +ms->capture[l].len=s-ms->capture[l].init; +if((res=match(ms,s,p))==NULL) +ms->capture[l].len=(-1); +return res; +} +static const char*match_capture(MatchState*ms,const char*s,int l){ +size_t len; +l=check_capture(ms,l); +len=ms->capture[l].len; +if((size_t)(ms->src_end-s)>=len&& +memcmp(ms->capture[l].init,s,len)==0) +return s+len; +else return NULL; +} +static const char*match(MatchState*ms,const char*s,const char*p){ +init: +switch(*p){ +case'(':{ +if(*(p+1)==')') +return start_capture(ms,s,p+2,(-2)); +else +return start_capture(ms,s,p+1,(-1)); +} +case')':{ +return end_capture(ms,s,p+1); +} +case'%':{ +switch(*(p+1)){ +case'b':{ +s=matchbalance(ms,s,p+2); +if(s==NULL)return NULL; +p+=4;goto init; +} +case'f':{ +const char*ep;char previous; +p+=2; +if(*p!='[') +luaL_error(ms->L,"missing "LUA_QL("[")" after " +LUA_QL("%%f")" in pattern"); +ep=classend(ms,p); +previous=(s==ms->src_init)?'\0':*(s-1); +if(matchbracketclass(uchar(previous),p,ep-1)|| +!matchbracketclass(uchar(*s),p,ep-1))return NULL; +p=ep;goto init; +} +default:{ +if(isdigit(uchar(*(p+1)))){ +s=match_capture(ms,s,uchar(*(p+1))); +if(s==NULL)return NULL; +p+=2;goto init; +} +goto dflt; +} +} +} +case'\0':{ +return s; +} +case'$':{ +if(*(p+1)=='\0') +return(s==ms->src_end)?s:NULL; +else goto dflt; +} +default:dflt:{ +const char*ep=classend(ms,p); +int m=ssrc_end&&singlematch(uchar(*s),p,ep); +switch(*ep){ +case'?':{ +const char*res; +if(m&&((res=match(ms,s+1,ep+1))!=NULL)) +return res; +p=ep+1;goto init; +} +case'*':{ +return max_expand(ms,s,p,ep); +} +case'+':{ +return(m?max_expand(ms,s+1,p,ep):NULL); +} +case'-':{ +return min_expand(ms,s,p,ep); +} +default:{ +if(!m)return NULL; +s++;p=ep;goto init; +} +} +} +} +} +static const char*lmemfind(const char*s1,size_t l1, +const char*s2,size_t l2){ +if(l2==0)return s1; +else if(l2>l1)return NULL; +else{ +const char*init; +l2--; +l1=l1-l2; +while(l1>0&&(init=(const char*)memchr(s1,*s2,l1))!=NULL){ +init++; +if(memcmp(init,s2+1,l2)==0) +return init-1; +else{ +l1-=init-s1; +s1=init; +} +} +return NULL; +} +} +static void push_onecapture(MatchState*ms,int i,const char*s, +const char*e){ +if(i>=ms->level){ +if(i==0) +lua_pushlstring(ms->L,s,e-s); +else +luaL_error(ms->L,"invalid capture index"); +} +else{ +ptrdiff_t l=ms->capture[i].len; +if(l==(-1))luaL_error(ms->L,"unfinished capture"); +if(l==(-2)) +lua_pushinteger(ms->L,ms->capture[i].init-ms->src_init+1); +else +lua_pushlstring(ms->L,ms->capture[i].init,l); +} +} +static int push_captures(MatchState*ms,const char*s,const char*e){ +int i; +int nlevels=(ms->level==0&&s)?1:ms->level; +luaL_checkstack(ms->L,nlevels,"too many captures"); +for(i=0;il1)init=(ptrdiff_t)l1; +if(find&&(lua_toboolean(L,4)|| +strpbrk(p,"^$*+?.([%-")==NULL)){ +const char*s2=lmemfind(s+init,l1-init,p,l2); +if(s2){ +lua_pushinteger(L,s2-s+1); +lua_pushinteger(L,s2-s+l2); +return 2; +} +} +else{ +MatchState ms; +int anchor=(*p=='^')?(p++,1):0; +const char*s1=s+init; +ms.L=L; +ms.src_init=s; +ms.src_end=s+l1; +do{ +const char*res; +ms.level=0; +if((res=match(&ms,s1,p))!=NULL){ +if(find){ +lua_pushinteger(L,s1-s+1); +lua_pushinteger(L,res-s); +return push_captures(&ms,NULL,0)+2; +} +else +return push_captures(&ms,s1,res); +} +}while(s1++L,3,&l); +for(i=0;iL; +switch(lua_type(L,3)){ +case 3: +case 4:{ +add_s(ms,b,s,e); +return; +} +case 6:{ +int n; +lua_pushvalue(L,3); +n=push_captures(ms,s,e); +lua_call(L,n,1); +break; +} +case 5:{ +push_onecapture(ms,0,s,e); +lua_gettable(L,3); +break; +} +} +if(!lua_toboolean(L,-1)){ +lua_pop(L,1); +lua_pushlstring(L,s,e-s); +} +else if(!lua_isstring(L,-1)) +luaL_error(L,"invalid replacement value (a %s)",luaL_typename(L,-1)); +luaL_addvalue(b); +} +static int str_gsub(lua_State*L){ +size_t srcl; +const char*src=luaL_checklstring(L,1,&srcl); +const char*p=luaL_checkstring(L,2); +int tr=lua_type(L,3); +int max_s=luaL_optint(L,4,srcl+1); +int anchor=(*p=='^')?(p++,1):0; +int n=0; +MatchState ms; +luaL_Buffer b; +luaL_argcheck(L,tr==3||tr==4|| +tr==6||tr==5,3, +"string/function/table expected"); +luaL_buffinit(L,&b); +ms.L=L; +ms.src_init=src; +ms.src_end=src+srcl; +while(nsrc) +src=e; +else if(src=sizeof("-+ #0")) +luaL_error(L,"invalid format (repeated flags)"); +if(isdigit(uchar(*p)))p++; +if(isdigit(uchar(*p)))p++; +if(*p=='.'){ +p++; +if(isdigit(uchar(*p)))p++; +if(isdigit(uchar(*p)))p++; +} +if(isdigit(uchar(*p))) +luaL_error(L,"invalid format (width or precision too long)"); +*(form++)='%'; +strncpy(form,strfrmt,p-strfrmt+1); +form+=p-strfrmt+1; +*form='\0'; +return p; +} +static void addintlen(char*form){ +size_t l=strlen(form); +char spec=form[l-1]; +strcpy(form+l-1,"l"); +form[l+sizeof("l")-2]=spec; +form[l+sizeof("l")-1]='\0'; +} +static int str_format(lua_State*L){ +int top=lua_gettop(L); +int arg=1; +size_t sfl; +const char*strfrmt=luaL_checklstring(L,arg,&sfl); +const char*strfrmt_end=strfrmt+sfl; +luaL_Buffer b; +luaL_buffinit(L,&b); +while(strfrmttop) +luaL_argerror(L,arg,"no value"); +strfrmt=scanformat(L,strfrmt,form); +switch(*strfrmt++){ +case'c':{ +sprintf(buff,form,(int)luaL_checknumber(L,arg)); +break; +} +case'd':case'i':{ +addintlen(form); +sprintf(buff,form,(long)luaL_checknumber(L,arg)); +break; +} +case'o':case'u':case'x':case'X':{ +addintlen(form); +sprintf(buff,form,(unsigned long)luaL_checknumber(L,arg)); +break; +} +case'e':case'E':case'f': +case'g':case'G':{ +sprintf(buff,form,(double)luaL_checknumber(L,arg)); +break; +} +case'q':{ +addquoted(L,&b,arg); +continue; +} +case's':{ +size_t l; +const char*s=luaL_checklstring(L,arg,&l); +if(!strchr(form,'.')&&l>=100){ +lua_pushvalue(L,arg); +luaL_addvalue(&b); +continue; +} +else{ +sprintf(buff,form,s); +break; +} +} +default:{ +return luaL_error(L,"invalid option "LUA_QL("%%%c")" to " +LUA_QL("format"),*(strfrmt-1)); +} +} +luaL_addlstring(&b,buff,strlen(buff)); +} +} +luaL_pushresult(&b); +return 1; +} +static const luaL_Reg strlib[]={ +{"byte",str_byte}, +{"char",str_char}, +{"find",str_find}, +{"format",str_format}, +{"gmatch",gmatch}, +{"gsub",str_gsub}, +{"lower",str_lower}, +{"match",str_match}, +{"rep",str_rep}, +{"sub",str_sub}, +{"upper",str_upper}, +{NULL,NULL} +}; +static void createmetatable(lua_State*L){ +lua_createtable(L,0,1); +lua_pushliteral(L,""); +lua_pushvalue(L,-2); +lua_setmetatable(L,-2); +lua_pop(L,1); +lua_pushvalue(L,-2); +lua_setfield(L,-2,"__index"); +lua_pop(L,1); +} +static int luaopen_string(lua_State*L){ +luaL_register(L,"string",strlib); +createmetatable(L); +return 1; +} +static const luaL_Reg lualibs[]={ +{"",luaopen_base}, +{"table",luaopen_table}, +{"io",luaopen_io}, +{"os",luaopen_os}, +{"string",luaopen_string}, +{NULL,NULL} +}; +static void luaL_openlibs(lua_State*L){ +const luaL_Reg*lib=lualibs; +for(;lib->func;lib++){ +lua_pushcfunction(L,lib->func); +lua_pushstring(L,lib->name); +lua_call(L,1,0); +} +} +typedef unsigned int UB; +static UB barg(lua_State*L,int idx){ +union{lua_Number n;U64 b;}bn; +bn.n=lua_tonumber(L,idx)+6755399441055744.0; +if(bn.n==0.0&&!lua_isnumber(L,idx))luaL_typerror(L,idx,"number"); +return(UB)bn.b; +} +#define BRET(b)lua_pushnumber(L,(lua_Number)(int)(b));return 1; +static int tobit(lua_State*L){ +BRET(barg(L,1))} +static int bnot(lua_State*L){ +BRET(~barg(L,1))} +static int band(lua_State*L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b&=barg(L,i);BRET(b)} +static int bor(lua_State*L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b|=barg(L,i);BRET(b)} +static int bxor(lua_State*L){ +int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b^=barg(L,i);BRET(b)} +static int lshift(lua_State*L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET(b<>n)} +static int arshift(lua_State*L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((int)b>>n)} +static int rol(lua_State*L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((b<>(32-n)))} +static int ror(lua_State*L){ +UB b=barg(L,1),n=barg(L,2)&31;BRET((b>>n)|(b<<(32-n)))} +static int bswap(lua_State*L){ +UB b=barg(L,1);b=(b>>24)|((b>>8)&0xff00)|((b&0xff00)<<8)|(b<<24);BRET(b)} +static int tohex(lua_State*L){ +UB b=barg(L,1); +int n=lua_isnone(L,2)?8:(int)barg(L,2); +const char*hexdigits="0123456789abcdef"; +char buf[8]; +int i; +if(n<0){n=-n;hexdigits="0123456789ABCDEF";} +if(n>8)n=8; +for(i=(int)n;--i>=0;){buf[i]=hexdigits[b&15];b>>=4;} +lua_pushlstring(L,buf,(size_t)n); +return 1; +} +static const struct luaL_Reg bitlib[]={ +{"tobit",tobit}, +{"bnot",bnot}, +{"band",band}, +{"bor",bor}, +{"bxor",bxor}, +{"lshift",lshift}, +{"rshift",rshift}, +{"arshift",arshift}, +{"rol",rol}, +{"ror",ror}, +{"bswap",bswap}, +{"tohex",tohex}, +{NULL,NULL} +}; +int main(int argc,char**argv){ +lua_State*L=luaL_newstate(); +int i; +luaL_openlibs(L); +luaL_register(L,"bit",bitlib); +if(argc<2)return sizeof(void*); +lua_createtable(L,0,1); +lua_pushstring(L,argv[1]); +lua_rawseti(L,-2,0); +lua_setglobal(L,"arg"); +if(luaL_loadfile(L,argv[1])) +goto err; +for(i=2;i -- BYTECODE -- [...] +-- print(bc.line(foo, 2)) --> 0002 KSTR 1 1 ; "hello" +-- +-- local out = { +-- -- Do something with each line: +-- write = function(t, ...) io.write(...) end, +-- close = function(t) end, +-- flush = function(t) end, +-- } +-- bc.dump(foo, out) +-- +------------------------------------------------------------------------------ + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local vmdef = require("jit.vmdef") +local bit = require("bit") +local sub, gsub, format = string.sub, string.gsub, string.format +local byte, band, shr = string.byte, bit.band, bit.rshift +local funcinfo, funcbc, funck = jutil.funcinfo, jutil.funcbc, jutil.funck +local funcuvname = jutil.funcuvname +local bcnames = vmdef.bcnames +local stdout, stderr = io.stdout, io.stderr + +------------------------------------------------------------------------------ + +local function ctlsub(c) + if c == "\n" then return "\\n" + elseif c == "\r" then return "\\r" + elseif c == "\t" then return "\\t" + else return format("\\%03d", byte(c)) + end +end + +-- Return one bytecode line. +local function bcline(func, pc, prefix) + local ins, m = funcbc(func, pc) + if not ins then return end + local ma, mb, mc = band(m, 7), band(m, 15*8), band(m, 15*128) + local a = band(shr(ins, 8), 0xff) + local oidx = 6*band(ins, 0xff) + local op = sub(bcnames, oidx+1, oidx+6) + local s = format("%04d %s %-6s %3s ", + pc, prefix or " ", op, ma == 0 and "" or a) + local d = shr(ins, 16) + if mc == 13*128 then -- BCMjump + return format("%s=> %04d\n", s, pc+d-0x7fff) + end + if mb ~= 0 then + d = band(d, 0xff) + elseif mc == 0 then + return s.."\n" + end + local kc + if mc == 10*128 then -- BCMstr + kc = funck(func, -d-1) + kc = format(#kc > 40 and '"%.40s"~' or '"%s"', gsub(kc, "%c", ctlsub)) + elseif mc == 9*128 then -- BCMnum + kc = funck(func, d) + if op == "TSETM " then kc = kc - 2^52 end + elseif mc == 12*128 then -- BCMfunc + local fi = funcinfo(funck(func, -d-1)) + if fi.ffid then + kc = vmdef.ffnames[fi.ffid] + else + kc = fi.loc + end + elseif mc == 5*128 then -- BCMuv + kc = funcuvname(func, d) + end + if ma == 5 then -- BCMuv + local ka = funcuvname(func, a) + if kc then kc = ka.." ; "..kc else kc = ka end + end + if mb ~= 0 then + local b = shr(ins, 24) + if kc then return format("%s%3d %3d ; %s\n", s, b, d, kc) end + return format("%s%3d %3d\n", s, b, d) + end + if kc then return format("%s%3d ; %s\n", s, d, kc) end + if mc == 7*128 and d > 32767 then d = d - 65536 end -- BCMlits + return format("%s%3d\n", s, d) +end + +-- Collect branch targets of a function. +local function bctargets(func) + local target = {} + for pc=1,1000000000 do + local ins, m = funcbc(func, pc) + if not ins then break end + if band(m, 15*128) == 13*128 then target[pc+shr(ins, 16)-0x7fff] = true end + end + return target +end + +-- Dump bytecode instructions of a function. +local function bcdump(func, out, all) + if not out then out = stdout end + local fi = funcinfo(func) + if all and fi.children then + for n=-1,-1000000000,-1 do + local k = funck(func, n) + if not k then break end + if type(k) == "proto" then bcdump(k, out, true) end + end + end + out:write(format("-- BYTECODE -- %s-%d\n", fi.loc, fi.lastlinedefined)) + local target = bctargets(func) + for pc=1,1000000000 do + local s = bcline(func, pc, target[pc] and "=>") + if not s then break end + out:write(s) + end + out:write("\n") + out:flush() +end + +------------------------------------------------------------------------------ + +-- Active flag and output file handle. +local active, out + +-- List handler. +local function h_list(func) + return bcdump(func, out) +end + +-- Detach list handler. +local function bclistoff() + if active then + active = false + jit.attach(h_list) + if out and out ~= stdout and out ~= stderr then out:close() end + out = nil + end +end + +-- Open the output file and attach list handler. +local function bcliston(outfile) + if active then bclistoff() end + if not outfile then outfile = os.getenv("LUAJIT_LISTFILE") end + if outfile then + out = outfile == "-" and stdout or assert(io.open(outfile, "w")) + else + out = stderr + end + jit.attach(h_list, "bc") + active = true +end + +-- Public module functions. +module(...) + +line = bcline +dump = bcdump +targets = bctargets + +on = bcliston +off = bclistoff +start = bcliston -- For -j command line option. + diff --git a/src/3rd party/luajit-2.0/src/jit/bcsave.lua b/src/3rd party/luajit-2.0/src/jit/bcsave.lua new file mode 100644 index 00000000000..2ba234d04d7 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/bcsave.lua @@ -0,0 +1,659 @@ +---------------------------------------------------------------------------- +-- LuaJIT module to save/list bytecode. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- +-- This module saves or lists the bytecode for an input file. +-- It's run by the -b command line option. +-- +------------------------------------------------------------------------------ + +local jit = require("jit") +assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +local bit = require("bit") + +-- Symbol name prefix for LuaJIT bytecode. +local LJBC_PREFIX = "luaJIT_BC_" + +------------------------------------------------------------------------------ + +local function usage() + io.stderr:write[[ +Save LuaJIT bytecode: luajit -b[options] input output + -l Only list bytecode. + -s Strip debug info (default). + -g Keep debug info. + -n name Set module name (default: auto-detect from input name). + -t type Set output file type (default: auto-detect from output name). + -a arch Override architecture for object files (default: native). + -o os Override OS for object files (default: native). + -e chunk Use chunk string as input. + -- Stop handling options. + - Use stdin as input and/or stdout as output. + +File types: c h obj o raw (default) +]] + os.exit(1) +end + +local function check(ok, ...) + if ok then return ok, ... end + io.stderr:write("luajit: ", ...) + io.stderr:write("\n") + os.exit(1) +end + +local function readfile(input) + if type(input) == "function" then return input end + if input == "-" then input = nil end + return check(loadfile(input)) +end + +local function savefile(name, mode) + if name == "-" then return io.stdout end + return check(io.open(name, mode)) +end + +------------------------------------------------------------------------------ + +local map_type = { + raw = "raw", c = "c", h = "h", o = "obj", obj = "obj", +} + +local map_arch = { + x86 = true, x64 = true, arm = true, ppc = true, ppcspe = true, + mips = true, mipsel = true, +} + +local map_os = { + linux = true, windows = true, osx = true, freebsd = true, netbsd = true, + openbsd = true, dragonfly = true, solaris = true, +} + +local function checkarg(str, map, err) + str = string.lower(str) + local s = check(map[str], "unknown ", err) + return s == true and str or s +end + +local function detecttype(str) + local ext = string.match(string.lower(str), "%.(%a+)$") + return map_type[ext] or "raw" +end + +local function checkmodname(str) + check(string.match(str, "^[%w_.%-]+$"), "bad module name") + return string.gsub(str, "[%.%-]", "_") +end + +local function detectmodname(str) + if type(str) == "string" then + local tail = string.match(str, "[^/\\]+$") + if tail then str = tail end + local head = string.match(str, "^(.*)%.[^.]*$") + if head then str = head end + str = string.match(str, "^[%w_.%-]+") + else + str = nil + end + check(str, "cannot derive module name, use -n name") + return string.gsub(str, "[%.%-]", "_") +end + +------------------------------------------------------------------------------ + +local function bcsave_tail(fp, output, s) + local ok, err = fp:write(s) + if ok and output ~= "-" then ok, err = fp:close() end + check(ok, "cannot write ", output, ": ", err) +end + +local function bcsave_raw(output, s) + local fp = savefile(output, "wb") + bcsave_tail(fp, output, s) +end + +local function bcsave_c(ctx, output, s) + local fp = savefile(output, "w") + if ctx.type == "c" then + fp:write(string.format([[ +#ifdef _cplusplus +extern "C" +#endif +#ifdef _WIN32 +__declspec(dllexport) +#endif +const char %s%s[] = { +]], LJBC_PREFIX, ctx.modname)) + else + fp:write(string.format([[ +#define %s%s_SIZE %d +static const char %s%s[] = { +]], LJBC_PREFIX, ctx.modname, #s, LJBC_PREFIX, ctx.modname)) + end + local t, n, m = {}, 0, 0 + for i=1,#s do + local b = tostring(string.byte(s, i)) + m = m + #b + 1 + if m > 78 then + fp:write(table.concat(t, ",", 1, n), ",\n") + n, m = 0, #b + 1 + end + n = n + 1 + t[n] = b + end + bcsave_tail(fp, output, table.concat(t, ",", 1, n).."\n};\n") +end + +local function bcsave_elfobj(ctx, output, s, ffi) + ffi.cdef[[ +typedef struct { + uint8_t emagic[4], eclass, eendian, eversion, eosabi, eabiversion, epad[7]; + uint16_t type, machine; + uint32_t version; + uint32_t entry, phofs, shofs; + uint32_t flags; + uint16_t ehsize, phentsize, phnum, shentsize, shnum, shstridx; +} ELF32header; +typedef struct { + uint8_t emagic[4], eclass, eendian, eversion, eosabi, eabiversion, epad[7]; + uint16_t type, machine; + uint32_t version; + uint64_t entry, phofs, shofs; + uint32_t flags; + uint16_t ehsize, phentsize, phnum, shentsize, shnum, shstridx; +} ELF64header; +typedef struct { + uint32_t name, type, flags, addr, ofs, size, link, info, align, entsize; +} ELF32sectheader; +typedef struct { + uint32_t name, type; + uint64_t flags, addr, ofs, size; + uint32_t link, info; + uint64_t align, entsize; +} ELF64sectheader; +typedef struct { + uint32_t name, value, size; + uint8_t info, other; + uint16_t sectidx; +} ELF32symbol; +typedef struct { + uint32_t name; + uint8_t info, other; + uint16_t sectidx; + uint64_t value, size; +} ELF64symbol; +typedef struct { + ELF32header hdr; + ELF32sectheader sect[6]; + ELF32symbol sym[2]; + uint8_t space[4096]; +} ELF32obj; +typedef struct { + ELF64header hdr; + ELF64sectheader sect[6]; + ELF64symbol sym[2]; + uint8_t space[4096]; +} ELF64obj; +]] + local symname = LJBC_PREFIX..ctx.modname + local is64, isbe = false, false + if ctx.arch == "x64" then + is64 = true + elseif ctx.arch == "ppc" or ctx.arch == "ppcspe" or ctx.arch == "mips" then + isbe = true + end + + -- Handle different host/target endianess. + local function f32(x) return x end + local f16, fofs = f32, f32 + if ffi.abi("be") ~= isbe then + f32 = bit.bswap + function f16(x) return bit.rshift(bit.bswap(x), 16) end + if is64 then + local two32 = ffi.cast("int64_t", 2^32) + function fofs(x) return bit.bswap(x)*two32 end + else + fofs = f32 + end + end + + -- Create ELF object and fill in header. + local o = ffi.new(is64 and "ELF64obj" or "ELF32obj") + local hdr = o.hdr + if ctx.os == "bsd" or ctx.os == "other" then -- Determine native hdr.eosabi. + local bf = assert(io.open("/bin/ls", "rb")) + local bs = bf:read(9) + bf:close() + ffi.copy(o, bs, 9) + check(hdr.emagic[0] == 127, "no support for writing native object files") + else + hdr.emagic = "\127ELF" + hdr.eosabi = ({ freebsd=9, netbsd=2, openbsd=12, solaris=6 })[ctx.os] or 0 + end + hdr.eclass = is64 and 2 or 1 + hdr.eendian = isbe and 2 or 1 + hdr.eversion = 1 + hdr.type = f16(1) + hdr.machine = f16(({ x86=3, x64=62, arm=40, ppc=20, ppcspe=20, mips=8, mipsel=8 })[ctx.arch]) + if ctx.arch == "mips" or ctx.arch == "mipsel" then + hdr.flags = 0x50001006 + end + hdr.version = f32(1) + hdr.shofs = fofs(ffi.offsetof(o, "sect")) + hdr.ehsize = f16(ffi.sizeof(hdr)) + hdr.shentsize = f16(ffi.sizeof(o.sect[0])) + hdr.shnum = f16(6) + hdr.shstridx = f16(2) + + -- Fill in sections and symbols. + local sofs, ofs = ffi.offsetof(o, "space"), 1 + for i,name in ipairs{ + ".symtab", ".shstrtab", ".strtab", ".rodata", ".note.GNU-stack", + } do + local sect = o.sect[i] + sect.align = fofs(1) + sect.name = f32(ofs) + ffi.copy(o.space+ofs, name) + ofs = ofs + #name+1 + end + o.sect[1].type = f32(2) -- .symtab + o.sect[1].link = f32(3) + o.sect[1].info = f32(1) + o.sect[1].align = fofs(8) + o.sect[1].ofs = fofs(ffi.offsetof(o, "sym")) + o.sect[1].entsize = fofs(ffi.sizeof(o.sym[0])) + o.sect[1].size = fofs(ffi.sizeof(o.sym)) + o.sym[1].name = f32(1) + o.sym[1].sectidx = f16(4) + o.sym[1].size = fofs(#s) + o.sym[1].info = 17 + o.sect[2].type = f32(3) -- .shstrtab + o.sect[2].ofs = fofs(sofs) + o.sect[2].size = fofs(ofs) + o.sect[3].type = f32(3) -- .strtab + o.sect[3].ofs = fofs(sofs + ofs) + o.sect[3].size = fofs(#symname+1) + ffi.copy(o.space+ofs+1, symname) + ofs = ofs + #symname + 2 + o.sect[4].type = f32(1) -- .rodata + o.sect[4].flags = fofs(2) + o.sect[4].ofs = fofs(sofs + ofs) + o.sect[4].size = fofs(#s) + o.sect[5].type = f32(1) -- .note.GNU-stack + o.sect[5].ofs = fofs(sofs + ofs + #s) + + -- Write ELF object file. + local fp = savefile(output, "wb") + fp:write(ffi.string(o, ffi.sizeof(o)-4096+ofs)) + bcsave_tail(fp, output, s) +end + +local function bcsave_peobj(ctx, output, s, ffi) + ffi.cdef[[ +typedef struct { + uint16_t arch, nsects; + uint32_t time, symtabofs, nsyms; + uint16_t opthdrsz, flags; +} PEheader; +typedef struct { + char name[8]; + uint32_t vsize, vaddr, size, ofs, relocofs, lineofs; + uint16_t nreloc, nline; + uint32_t flags; +} PEsection; +typedef struct __attribute((packed)) { + union { + char name[8]; + uint32_t nameref[2]; + }; + uint32_t value; + int16_t sect; + uint16_t type; + uint8_t scl, naux; +} PEsym; +typedef struct __attribute((packed)) { + uint32_t size; + uint16_t nreloc, nline; + uint32_t cksum; + uint16_t assoc; + uint8_t comdatsel, unused[3]; +} PEsymaux; +typedef struct { + PEheader hdr; + PEsection sect[2]; + // Must be an even number of symbol structs. + PEsym sym0; + PEsymaux sym0aux; + PEsym sym1; + PEsymaux sym1aux; + PEsym sym2; + PEsym sym3; + uint32_t strtabsize; + uint8_t space[4096]; +} PEobj; +]] + local symname = LJBC_PREFIX..ctx.modname + local is64 = false + if ctx.arch == "x86" then + symname = "_"..symname + elseif ctx.arch == "x64" then + is64 = true + end + local symexport = " /EXPORT:"..symname..",DATA " + + -- The file format is always little-endian. Swap if the host is big-endian. + local function f32(x) return x end + local f16 = f32 + if ffi.abi("be") then + f32 = bit.bswap + function f16(x) return bit.rshift(bit.bswap(x), 16) end + end + + -- Create PE object and fill in header. + local o = ffi.new("PEobj") + local hdr = o.hdr + hdr.arch = f16(({ x86=0x14c, x64=0x8664, arm=0x1c0, ppc=0x1f2, mips=0x366, mipsel=0x366 })[ctx.arch]) + hdr.nsects = f16(2) + hdr.symtabofs = f32(ffi.offsetof(o, "sym0")) + hdr.nsyms = f32(6) + + -- Fill in sections and symbols. + o.sect[0].name = ".drectve" + o.sect[0].size = f32(#symexport) + o.sect[0].flags = f32(0x00100a00) + o.sym0.sect = f16(1) + o.sym0.scl = 3 + o.sym0.name = ".drectve" + o.sym0.naux = 1 + o.sym0aux.size = f32(#symexport) + o.sect[1].name = ".rdata" + o.sect[1].size = f32(#s) + o.sect[1].flags = f32(0x40300040) + o.sym1.sect = f16(2) + o.sym1.scl = 3 + o.sym1.name = ".rdata" + o.sym1.naux = 1 + o.sym1aux.size = f32(#s) + o.sym2.sect = f16(2) + o.sym2.scl = 2 + o.sym2.nameref[1] = f32(4) + o.sym3.sect = f16(-1) + o.sym3.scl = 2 + o.sym3.value = f32(1) + o.sym3.name = "@feat.00" -- Mark as SafeSEH compliant. + ffi.copy(o.space, symname) + local ofs = #symname + 1 + o.strtabsize = f32(ofs + 4) + o.sect[0].ofs = f32(ffi.offsetof(o, "space") + ofs) + ffi.copy(o.space + ofs, symexport) + ofs = ofs + #symexport + o.sect[1].ofs = f32(ffi.offsetof(o, "space") + ofs) + + -- Write PE object file. + local fp = savefile(output, "wb") + fp:write(ffi.string(o, ffi.sizeof(o)-4096+ofs)) + bcsave_tail(fp, output, s) +end + +local function bcsave_machobj(ctx, output, s, ffi) + ffi.cdef[[ +typedef struct +{ + uint32_t magic, cputype, cpusubtype, filetype, ncmds, sizeofcmds, flags; +} mach_header; +typedef struct +{ + mach_header; uint32_t reserved; +} mach_header_64; +typedef struct { + uint32_t cmd, cmdsize; + char segname[16]; + uint32_t vmaddr, vmsize, fileoff, filesize; + uint32_t maxprot, initprot, nsects, flags; +} mach_segment_command; +typedef struct { + uint32_t cmd, cmdsize; + char segname[16]; + uint64_t vmaddr, vmsize, fileoff, filesize; + uint32_t maxprot, initprot, nsects, flags; +} mach_segment_command_64; +typedef struct { + char sectname[16], segname[16]; + uint32_t addr, size; + uint32_t offset, align, reloff, nreloc, flags; + uint32_t reserved1, reserved2; +} mach_section; +typedef struct { + char sectname[16], segname[16]; + uint64_t addr, size; + uint32_t offset, align, reloff, nreloc, flags; + uint32_t reserved1, reserved2, reserved3; +} mach_section_64; +typedef struct { + uint32_t cmd, cmdsize, symoff, nsyms, stroff, strsize; +} mach_symtab_command; +typedef struct { + int32_t strx; + uint8_t type, sect; + int16_t desc; + uint32_t value; +} mach_nlist; +typedef struct { + uint32_t strx; + uint8_t type, sect; + uint16_t desc; + uint64_t value; +} mach_nlist_64; +typedef struct +{ + uint32_t magic, nfat_arch; +} mach_fat_header; +typedef struct +{ + uint32_t cputype, cpusubtype, offset, size, align; +} mach_fat_arch; +typedef struct { + struct { + mach_header hdr; + mach_segment_command seg; + mach_section sec; + mach_symtab_command sym; + } arch[1]; + mach_nlist sym_entry; + uint8_t space[4096]; +} mach_obj; +typedef struct { + struct { + mach_header_64 hdr; + mach_segment_command_64 seg; + mach_section_64 sec; + mach_symtab_command sym; + } arch[1]; + mach_nlist_64 sym_entry; + uint8_t space[4096]; +} mach_obj_64; +typedef struct { + mach_fat_header fat; + mach_fat_arch fat_arch[4]; + struct { + mach_header hdr; + mach_segment_command seg; + mach_section sec; + mach_symtab_command sym; + } arch[4]; + mach_nlist sym_entry; + uint8_t space[4096]; +} mach_fat_obj; +]] + local symname = '_'..LJBC_PREFIX..ctx.modname + local isfat, is64, align, mobj = false, false, 4, "mach_obj" + if ctx.arch == "x64" then + is64, align, mobj = true, 8, "mach_obj_64" + elseif ctx.arch == "arm" then + isfat, mobj = true, "mach_fat_obj" + else + check(ctx.arch == "x86", "unsupported architecture for OSX") + end + local function aligned(v, a) return bit.band(v+a-1, -a) end + local be32 = bit.bswap -- Mach-O FAT is BE, supported archs are LE. + + -- Create Mach-O object and fill in header. + local o = ffi.new(mobj) + local mach_size = aligned(ffi.offsetof(o, "space")+#symname+2, align) + local cputype = ({ x86={7}, x64={0x01000007}, arm={7,12,12,12} })[ctx.arch] + local cpusubtype = ({ x86={3}, x64={3}, arm={3,6,9,11} })[ctx.arch] + if isfat then + o.fat.magic = be32(0xcafebabe) + o.fat.nfat_arch = be32(#cpusubtype) + end + + -- Fill in sections and symbols. + for i=0,#cpusubtype-1 do + local ofs = 0 + if isfat then + local a = o.fat_arch[i] + a.cputype = be32(cputype[i+1]) + a.cpusubtype = be32(cpusubtype[i+1]) + -- Subsequent slices overlap each other to share data. + ofs = ffi.offsetof(o, "arch") + i*ffi.sizeof(o.arch[0]) + a.offset = be32(ofs) + a.size = be32(mach_size-ofs+#s) + end + local a = o.arch[i] + a.hdr.magic = is64 and 0xfeedfacf or 0xfeedface + a.hdr.cputype = cputype[i+1] + a.hdr.cpusubtype = cpusubtype[i+1] + a.hdr.filetype = 1 + a.hdr.ncmds = 2 + a.hdr.sizeofcmds = ffi.sizeof(a.seg)+ffi.sizeof(a.sec)+ffi.sizeof(a.sym) + a.seg.cmd = is64 and 0x19 or 0x1 + a.seg.cmdsize = ffi.sizeof(a.seg)+ffi.sizeof(a.sec) + a.seg.vmsize = #s + a.seg.fileoff = mach_size-ofs + a.seg.filesize = #s + a.seg.maxprot = 1 + a.seg.initprot = 1 + a.seg.nsects = 1 + ffi.copy(a.sec.sectname, "__data") + ffi.copy(a.sec.segname, "__DATA") + a.sec.size = #s + a.sec.offset = mach_size-ofs + a.sym.cmd = 2 + a.sym.cmdsize = ffi.sizeof(a.sym) + a.sym.symoff = ffi.offsetof(o, "sym_entry")-ofs + a.sym.nsyms = 1 + a.sym.stroff = ffi.offsetof(o, "sym_entry")+ffi.sizeof(o.sym_entry)-ofs + a.sym.strsize = aligned(#symname+2, align) + end + o.sym_entry.type = 0xf + o.sym_entry.sect = 1 + o.sym_entry.strx = 1 + ffi.copy(o.space+1, symname) + + -- Write Macho-O object file. + local fp = savefile(output, "wb") + fp:write(ffi.string(o, mach_size)) + bcsave_tail(fp, output, s) +end + +local function bcsave_obj(ctx, output, s) + local ok, ffi = pcall(require, "ffi") + check(ok, "FFI library required to write this file type") + if ctx.os == "windows" then + return bcsave_peobj(ctx, output, s, ffi) + elseif ctx.os == "osx" then + return bcsave_machobj(ctx, output, s, ffi) + else + return bcsave_elfobj(ctx, output, s, ffi) + end +end + +------------------------------------------------------------------------------ + +local function bclist(input, output) + local f = readfile(input) + require("jit.bc").dump(f, savefile(output, "w"), true) +end + +local function bcsave(ctx, input, output) + local f = readfile(input) + local s = string.dump(f, ctx.strip) + local t = ctx.type + if not t then + t = detecttype(output) + ctx.type = t + end + if t == "raw" then + bcsave_raw(output, s) + else + if not ctx.modname then ctx.modname = detectmodname(input) end + if t == "obj" then + bcsave_obj(ctx, output, s) + else + bcsave_c(ctx, output, s) + end + end +end + +local function docmd(...) + local arg = {...} + local n = 1 + local list = false + local ctx = { + strip = true, arch = jit.arch, os = string.lower(jit.os), + type = false, modname = false, + } + while n <= #arg do + local a = arg[n] + if type(a) == "string" and string.sub(a, 1, 1) == "-" and a ~= "-" then + table.remove(arg, n) + if a == "--" then break end + for m=2,#a do + local opt = string.sub(a, m, m) + if opt == "l" then + list = true + elseif opt == "s" then + ctx.strip = true + elseif opt == "g" then + ctx.strip = false + else + if arg[n] == nil or m ~= #a then usage() end + if opt == "e" then + if n ~= 1 then usage() end + arg[1] = check(loadstring(arg[1])) + elseif opt == "n" then + ctx.modname = checkmodname(table.remove(arg, n)) + elseif opt == "t" then + ctx.type = checkarg(table.remove(arg, n), map_type, "file type") + elseif opt == "a" then + ctx.arch = checkarg(table.remove(arg, n), map_arch, "architecture") + elseif opt == "o" then + ctx.os = checkarg(table.remove(arg, n), map_os, "OS name") + else + usage() + end + end + end + else + n = n + 1 + end + end + if list then + if #arg == 0 or #arg > 2 then usage() end + bclist(arg[1], arg[2] or "-") + else + if #arg ~= 2 then usage() end + bcsave(ctx, arg[1], arg[2]) + end +end + +------------------------------------------------------------------------------ + +-- Public module functions. +module(...) + +start = docmd -- Process -b command line option. + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_arm.lua b/src/3rd party/luajit-2.0/src/jit/dis_arm.lua new file mode 100644 index 00000000000..59be715a988 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_arm.lua @@ -0,0 +1,689 @@ +---------------------------------------------------------------------------- +-- LuaJIT ARM disassembler module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This is a helper module used by the LuaJIT machine code dumper module. +-- +-- It disassembles most user-mode ARMv7 instructions +-- NYI: Advanced SIMD and VFP instructions. +------------------------------------------------------------------------------ + +local type = type +local sub, byte, format = string.sub, string.byte, string.format +local match, gmatch, gsub = string.match, string.gmatch, string.gsub +local concat = table.concat +local bit = require("bit") +local band, bor, ror, tohex = bit.band, bit.bor, bit.ror, bit.tohex +local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift + +------------------------------------------------------------------------------ +-- Opcode maps +------------------------------------------------------------------------------ + +local map_loadc = { + shift = 8, mask = 15, + [10] = { + shift = 20, mask = 1, + [0] = { + shift = 23, mask = 3, + [0] = "vmovFmDN", "vstmFNdr", + _ = { + shift = 21, mask = 1, + [0] = "vstrFdl", + { shift = 16, mask = 15, [13] = "vpushFdr", _ = "vstmdbFNdr", } + }, + }, + { + shift = 23, mask = 3, + [0] = "vmovFDNm", + { shift = 16, mask = 15, [13] = "vpopFdr", _ = "vldmFNdr", }, + _ = { + shift = 21, mask = 1, + [0] = "vldrFdl", "vldmdbFNdr", + }, + }, + }, + [11] = { + shift = 20, mask = 1, + [0] = { + shift = 23, mask = 3, + [0] = "vmovGmDN", "vstmGNdr", + _ = { + shift = 21, mask = 1, + [0] = "vstrGdl", + { shift = 16, mask = 15, [13] = "vpushGdr", _ = "vstmdbGNdr", } + }, + }, + { + shift = 23, mask = 3, + [0] = "vmovGDNm", + { shift = 16, mask = 15, [13] = "vpopGdr", _ = "vldmGNdr", }, + _ = { + shift = 21, mask = 1, + [0] = "vldrGdl", "vldmdbGNdr", + }, + }, + }, + _ = { + shift = 0, mask = 0 -- NYI ldc, mcrr, mrrc. + }, +} + +local map_vfps = { + shift = 6, mask = 0x2c001, + [0] = "vmlaF.dnm", "vmlsF.dnm", + [0x04000] = "vnmlsF.dnm", [0x04001] = "vnmlaF.dnm", + [0x08000] = "vmulF.dnm", [0x08001] = "vnmulF.dnm", + [0x0c000] = "vaddF.dnm", [0x0c001] = "vsubF.dnm", + [0x20000] = "vdivF.dnm", + [0x24000] = "vfnmsF.dnm", [0x24001] = "vfnmaF.dnm", + [0x28000] = "vfmaF.dnm", [0x28001] = "vfmsF.dnm", + [0x2c000] = "vmovF.dY", + [0x2c001] = { + shift = 7, mask = 0x1e01, + [0] = "vmovF.dm", "vabsF.dm", + [0x0200] = "vnegF.dm", [0x0201] = "vsqrtF.dm", + [0x0800] = "vcmpF.dm", [0x0801] = "vcmpeF.dm", + [0x0a00] = "vcmpzF.d", [0x0a01] = "vcmpzeF.d", + [0x0e01] = "vcvtG.dF.m", + [0x1000] = "vcvt.f32.u32Fdm", [0x1001] = "vcvt.f32.s32Fdm", + [0x1800] = "vcvtr.u32F.dm", [0x1801] = "vcvt.u32F.dm", + [0x1a00] = "vcvtr.s32F.dm", [0x1a01] = "vcvt.s32F.dm", + }, +} + +local map_vfpd = { + shift = 6, mask = 0x2c001, + [0] = "vmlaG.dnm", "vmlsG.dnm", + [0x04000] = "vnmlsG.dnm", [0x04001] = "vnmlaG.dnm", + [0x08000] = "vmulG.dnm", [0x08001] = "vnmulG.dnm", + [0x0c000] = "vaddG.dnm", [0x0c001] = "vsubG.dnm", + [0x20000] = "vdivG.dnm", + [0x24000] = "vfnmsG.dnm", [0x24001] = "vfnmaG.dnm", + [0x28000] = "vfmaG.dnm", [0x28001] = "vfmsG.dnm", + [0x2c000] = "vmovG.dY", + [0x2c001] = { + shift = 7, mask = 0x1e01, + [0] = "vmovG.dm", "vabsG.dm", + [0x0200] = "vnegG.dm", [0x0201] = "vsqrtG.dm", + [0x0800] = "vcmpG.dm", [0x0801] = "vcmpeG.dm", + [0x0a00] = "vcmpzG.d", [0x0a01] = "vcmpzeG.d", + [0x0e01] = "vcvtF.dG.m", + [0x1000] = "vcvt.f64.u32GdFm", [0x1001] = "vcvt.f64.s32GdFm", + [0x1800] = "vcvtr.u32FdG.m", [0x1801] = "vcvt.u32FdG.m", + [0x1a00] = "vcvtr.s32FdG.m", [0x1a01] = "vcvt.s32FdG.m", + }, +} + +local map_datac = { + shift = 24, mask = 1, + [0] = { + shift = 4, mask = 1, + [0] = { + shift = 8, mask = 15, + [10] = map_vfps, + [11] = map_vfpd, + -- NYI cdp, mcr, mrc. + }, + { + shift = 8, mask = 15, + [10] = { + shift = 20, mask = 15, + [0] = "vmovFnD", "vmovFDn", + [14] = "vmsrD", + [15] = { shift = 12, mask = 15, [15] = "vmrs", _ = "vmrsD", }, + }, + }, + }, + "svcT", +} + +local map_loadcu = { + shift = 0, mask = 0, -- NYI unconditional CP load/store. +} + +local map_datacu = { + shift = 0, mask = 0, -- NYI unconditional CP data. +} + +local map_simddata = { + shift = 0, mask = 0, -- NYI SIMD data. +} + +local map_simdload = { + shift = 0, mask = 0, -- NYI SIMD load/store, preload. +} + +local map_preload = { + shift = 0, mask = 0, -- NYI preload. +} + +local map_media = { + shift = 20, mask = 31, + [0] = false, + { --01 + shift = 5, mask = 7, + [0] = "sadd16DNM", "sasxDNM", "ssaxDNM", "ssub16DNM", + "sadd8DNM", false, false, "ssub8DNM", + }, + { --02 + shift = 5, mask = 7, + [0] = "qadd16DNM", "qasxDNM", "qsaxDNM", "qsub16DNM", + "qadd8DNM", false, false, "qsub8DNM", + }, + { --03 + shift = 5, mask = 7, + [0] = "shadd16DNM", "shasxDNM", "shsaxDNM", "shsub16DNM", + "shadd8DNM", false, false, "shsub8DNM", + }, + false, + { --05 + shift = 5, mask = 7, + [0] = "uadd16DNM", "uasxDNM", "usaxDNM", "usub16DNM", + "uadd8DNM", false, false, "usub8DNM", + }, + { --06 + shift = 5, mask = 7, + [0] = "uqadd16DNM", "uqasxDNM", "uqsaxDNM", "uqsub16DNM", + "uqadd8DNM", false, false, "uqsub8DNM", + }, + { --07 + shift = 5, mask = 7, + [0] = "uhadd16DNM", "uhasxDNM", "uhsaxDNM", "uhsub16DNM", + "uhadd8DNM", false, false, "uhsub8DNM", + }, + { --08 + shift = 5, mask = 7, + [0] = "pkhbtDNMU", false, "pkhtbDNMU", + { shift = 16, mask = 15, [15] = "sxtb16DMU", _ = "sxtab16DNMU", }, + "pkhbtDNMU", "selDNM", "pkhtbDNMU", + }, + false, + { --0a + shift = 5, mask = 7, + [0] = "ssatDxMu", "ssat16DxM", "ssatDxMu", + { shift = 16, mask = 15, [15] = "sxtbDMU", _ = "sxtabDNMU", }, + "ssatDxMu", false, "ssatDxMu", + }, + { --0b + shift = 5, mask = 7, + [0] = "ssatDxMu", "revDM", "ssatDxMu", + { shift = 16, mask = 15, [15] = "sxthDMU", _ = "sxtahDNMU", }, + "ssatDxMu", "rev16DM", "ssatDxMu", + }, + { --0c + shift = 5, mask = 7, + [3] = { shift = 16, mask = 15, [15] = "uxtb16DMU", _ = "uxtab16DNMU", }, + }, + false, + { --0e + shift = 5, mask = 7, + [0] = "usatDwMu", "usat16DwM", "usatDwMu", + { shift = 16, mask = 15, [15] = "uxtbDMU", _ = "uxtabDNMU", }, + "usatDwMu", false, "usatDwMu", + }, + { --0f + shift = 5, mask = 7, + [0] = "usatDwMu", "rbitDM", "usatDwMu", + { shift = 16, mask = 15, [15] = "uxthDMU", _ = "uxtahDNMU", }, + "usatDwMu", "revshDM", "usatDwMu", + }, + { --10 + shift = 12, mask = 15, + [15] = { + shift = 5, mask = 7, + "smuadNMS", "smuadxNMS", "smusdNMS", "smusdxNMS", + }, + _ = { + shift = 5, mask = 7, + [0] = "smladNMSD", "smladxNMSD", "smlsdNMSD", "smlsdxNMSD", + }, + }, + false, false, false, + { --14 + shift = 5, mask = 7, + [0] = "smlaldDNMS", "smlaldxDNMS", "smlsldDNMS", "smlsldxDNMS", + }, + { --15 + shift = 5, mask = 7, + [0] = { shift = 12, mask = 15, [15] = "smmulNMS", _ = "smmlaNMSD", }, + { shift = 12, mask = 15, [15] = "smmulrNMS", _ = "smmlarNMSD", }, + false, false, false, false, + "smmlsNMSD", "smmlsrNMSD", + }, + false, false, + { --18 + shift = 5, mask = 7, + [0] = { shift = 12, mask = 15, [15] = "usad8NMS", _ = "usada8NMSD", }, + }, + false, + { --1a + shift = 5, mask = 3, [2] = "sbfxDMvw", + }, + { --1b + shift = 5, mask = 3, [2] = "sbfxDMvw", + }, + { --1c + shift = 5, mask = 3, + [0] = { shift = 0, mask = 15, [15] = "bfcDvX", _ = "bfiDMvX", }, + }, + { --1d + shift = 5, mask = 3, + [0] = { shift = 0, mask = 15, [15] = "bfcDvX", _ = "bfiDMvX", }, + }, + { --1e + shift = 5, mask = 3, [2] = "ubfxDMvw", + }, + { --1f + shift = 5, mask = 3, [2] = "ubfxDMvw", + }, +} + +local map_load = { + shift = 21, mask = 9, + { + shift = 20, mask = 5, + [0] = "strtDL", "ldrtDL", [4] = "strbtDL", [5] = "ldrbtDL", + }, + _ = { + shift = 20, mask = 5, + [0] = "strDL", "ldrDL", [4] = "strbDL", [5] = "ldrbDL", + } +} + +local map_load1 = { + shift = 4, mask = 1, + [0] = map_load, map_media, +} + +local map_loadm = { + shift = 20, mask = 1, + [0] = { + shift = 23, mask = 3, + [0] = "stmdaNR", "stmNR", + { shift = 16, mask = 63, [45] = "pushR", _ = "stmdbNR", }, "stmibNR", + }, + { + shift = 23, mask = 3, + [0] = "ldmdaNR", { shift = 16, mask = 63, [61] = "popR", _ = "ldmNR", }, + "ldmdbNR", "ldmibNR", + }, +} + +local map_data = { + shift = 21, mask = 15, + [0] = "andDNPs", "eorDNPs", "subDNPs", "rsbDNPs", + "addDNPs", "adcDNPs", "sbcDNPs", "rscDNPs", + "tstNP", "teqNP", "cmpNP", "cmnNP", + "orrDNPs", "movDPs", "bicDNPs", "mvnDPs", +} + +local map_mul = { + shift = 21, mask = 7, + [0] = "mulNMSs", "mlaNMSDs", "umaalDNMS", "mlsDNMS", + "umullDNMSs", "umlalDNMSs", "smullDNMSs", "smlalDNMSs", +} + +local map_sync = { + shift = 20, mask = 15, -- NYI: brackets around N. R(D+1) for ldrexd/strexd. + [0] = "swpDMN", false, false, false, + "swpbDMN", false, false, false, + "strexDMN", "ldrexDN", "strexdDN", "ldrexdDN", + "strexbDMN", "ldrexbDN", "strexhDN", "ldrexhDN", +} + +local map_mulh = { + shift = 21, mask = 3, + [0] = { shift = 5, mask = 3, + [0] = "smlabbNMSD", "smlatbNMSD", "smlabtNMSD", "smlattNMSD", }, + { shift = 5, mask = 3, + [0] = "smlawbNMSD", "smulwbNMS", "smlawtNMSD", "smulwtNMS", }, + { shift = 5, mask = 3, + [0] = "smlalbbDNMS", "smlaltbDNMS", "smlalbtDNMS", "smlalttDNMS", }, + { shift = 5, mask = 3, + [0] = "smulbbNMS", "smultbNMS", "smulbtNMS", "smulttNMS", }, +} + +local map_misc = { + shift = 4, mask = 7, + -- NYI: decode PSR bits of msr. + [0] = { shift = 21, mask = 1, [0] = "mrsD", "msrM", }, + { shift = 21, mask = 3, "bxM", false, "clzDM", }, + { shift = 21, mask = 3, "bxjM", }, + { shift = 21, mask = 3, "blxM", }, + false, + { shift = 21, mask = 3, [0] = "qaddDMN", "qsubDMN", "qdaddDMN", "qdsubDMN", }, + false, + { shift = 21, mask = 3, "bkptK", }, +} + +local map_datar = { + shift = 4, mask = 9, + [9] = { + shift = 5, mask = 3, + [0] = { shift = 24, mask = 1, [0] = map_mul, map_sync, }, + { shift = 20, mask = 1, [0] = "strhDL", "ldrhDL", }, + { shift = 20, mask = 1, [0] = "ldrdDL", "ldrsbDL", }, + { shift = 20, mask = 1, [0] = "strdDL", "ldrshDL", }, + }, + _ = { + shift = 20, mask = 25, + [16] = { shift = 7, mask = 1, [0] = map_misc, map_mulh, }, + _ = { + shift = 0, mask = 0xffffffff, + [bor(0xe1a00000)] = "nop", + _ = map_data, + } + }, +} + +local map_datai = { + shift = 20, mask = 31, -- NYI: decode PSR bits of msr. Decode imm12. + [16] = "movwDW", [20] = "movtDW", + [18] = { shift = 0, mask = 0xf00ff, [0] = "nopv6", _ = "msrNW", }, + [22] = "msrNW", + _ = map_data, +} + +local map_branch = { + shift = 24, mask = 1, + [0] = "bB", "blB" +} + +local map_condins = { + [0] = map_datar, map_datai, map_load, map_load1, + map_loadm, map_branch, map_loadc, map_datac +} + +-- NYI: setend. +local map_uncondins = { + [0] = false, map_simddata, map_simdload, map_preload, + false, "blxB", map_loadcu, map_datacu, +} + +------------------------------------------------------------------------------ + +local map_gpr = { + [0] = "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", + "r8", "r9", "r10", "r11", "r12", "sp", "lr", "pc", +} + +local map_cond = { + [0] = "eq", "ne", "hs", "lo", "mi", "pl", "vs", "vc", + "hi", "ls", "ge", "lt", "gt", "le", "al", +} + +local map_shift = { [0] = "lsl", "lsr", "asr", "ror", } + +------------------------------------------------------------------------------ + +-- Output a nicely formatted line with an opcode and operands. +local function putop(ctx, text, operands) + local pos = ctx.pos + local extra = "" + if ctx.rel then + local sym = ctx.symtab[ctx.rel] + if sym then + extra = "\t->"..sym + elseif band(ctx.op, 0x0e000000) ~= 0x0a000000 then + extra = "\t; 0x"..tohex(ctx.rel) + end + end + if ctx.hexdump > 0 then + ctx.out(format("%08x %s %-5s %s%s\n", + ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) + else + ctx.out(format("%08x %-5s %s%s\n", + ctx.addr+pos, text, concat(operands, ", "), extra)) + end + ctx.pos = pos + 4 +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) +end + +-- Format operand 2 of load/store opcodes. +local function fmtload(ctx, op, pos) + local base = map_gpr[band(rshift(op, 16), 15)] + local x, ofs + local ext = (band(op, 0x04000000) == 0) + if not ext and band(op, 0x02000000) == 0 then + ofs = band(op, 4095) + if band(op, 0x00800000) == 0 then ofs = -ofs end + if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end + ofs = "#"..ofs + elseif ext and band(op, 0x00400000) ~= 0 then + ofs = band(op, 15) + band(rshift(op, 4), 0xf0) + if band(op, 0x00800000) == 0 then ofs = -ofs end + if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end + ofs = "#"..ofs + else + ofs = map_gpr[band(op, 15)] + if ext or band(op, 0xfe0) == 0 then + elseif band(op, 0xfe0) == 0x60 then + ofs = format("%s, rrx", ofs) + else + local sh = band(rshift(op, 7), 31) + if sh == 0 then sh = 32 end + ofs = format("%s, %s #%d", ofs, map_shift[band(rshift(op, 5), 3)], sh) + end + if band(op, 0x00800000) == 0 then ofs = "-"..ofs end + end + if ofs == "#0" then + x = format("[%s]", base) + elseif band(op, 0x01000000) == 0 then + x = format("[%s], %s", base, ofs) + else + x = format("[%s, %s]", base, ofs) + end + if band(op, 0x01200000) == 0x01200000 then x = x.."!" end + return x +end + +-- Format operand 2 of vector load/store opcodes. +local function fmtvload(ctx, op, pos) + local base = map_gpr[band(rshift(op, 16), 15)] + local ofs = band(op, 255)*4 + if band(op, 0x00800000) == 0 then ofs = -ofs end + if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end + if ofs == 0 then + return format("[%s]", base) + else + return format("[%s, #%d]", base, ofs) + end +end + +local function fmtvr(op, vr, sh0, sh1) + if vr == "s" then + return format("s%d", 2*band(rshift(op, sh0), 15)+band(rshift(op, sh1), 1)) + else + return format("d%d", band(rshift(op, sh0), 15)+band(rshift(op, sh1-4), 16)) + end +end + +-- Disassemble a single instruction. +local function disass_ins(ctx) + local pos = ctx.pos + local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) + local op = bor(lshift(b3, 24), lshift(b2, 16), lshift(b1, 8), b0) + local operands = {} + local suffix = "" + local last, name, pat + local vr + ctx.op = op + ctx.rel = nil + + local cond = rshift(op, 28) + local opat + if cond == 15 then + opat = map_uncondins[band(rshift(op, 25), 7)] + else + if cond ~= 14 then suffix = map_cond[cond] end + opat = map_condins[band(rshift(op, 25), 7)] + end + while type(opat) ~= "string" do + if not opat then return unknown(ctx) end + opat = opat[band(rshift(op, opat.shift), opat.mask)] or opat._ + end + name, pat = match(opat, "^([a-z0-9]*)(.*)") + if sub(pat, 1, 1) == "." then + local s2, p2 = match(pat, "^([a-z0-9.]*)(.*)") + suffix = suffix..s2 + pat = p2 + end + + for p in gmatch(pat, ".") do + local x = nil + if p == "D" then + x = map_gpr[band(rshift(op, 12), 15)] + elseif p == "N" then + x = map_gpr[band(rshift(op, 16), 15)] + elseif p == "S" then + x = map_gpr[band(rshift(op, 8), 15)] + elseif p == "M" then + x = map_gpr[band(op, 15)] + elseif p == "d" then + x = fmtvr(op, vr, 12, 22) + elseif p == "n" then + x = fmtvr(op, vr, 16, 7) + elseif p == "m" then + x = fmtvr(op, vr, 0, 5) + elseif p == "P" then + if band(op, 0x02000000) ~= 0 then + x = ror(band(op, 255), 2*band(rshift(op, 8), 15)) + else + x = map_gpr[band(op, 15)] + if band(op, 0xff0) ~= 0 then + operands[#operands+1] = x + local s = map_shift[band(rshift(op, 5), 3)] + local r = nil + if band(op, 0xf90) == 0 then + if s == "ror" then s = "rrx" else r = "#32" end + elseif band(op, 0x10) == 0 then + r = "#"..band(rshift(op, 7), 31) + else + r = map_gpr[band(rshift(op, 8), 15)] + end + if name == "mov" then name = s; x = r + elseif r then x = format("%s %s", s, r) + else x = s end + end + end + elseif p == "L" then + x = fmtload(ctx, op, pos) + elseif p == "l" then + x = fmtvload(ctx, op, pos) + elseif p == "B" then + local addr = ctx.addr + pos + 8 + arshift(lshift(op, 8), 6) + if cond == 15 then addr = addr + band(rshift(op, 23), 2) end + ctx.rel = addr + x = "0x"..tohex(addr) + elseif p == "F" then + vr = "s" + elseif p == "G" then + vr = "d" + elseif p == "." then + suffix = suffix..(vr == "s" and ".f32" or ".f64") + elseif p == "R" then + if band(op, 0x00200000) ~= 0 and #operands == 1 then + operands[1] = operands[1].."!" + end + local t = {} + for i=0,15 do + if band(rshift(op, i), 1) == 1 then t[#t+1] = map_gpr[i] end + end + x = "{"..concat(t, ", ").."}" + elseif p == "r" then + if band(op, 0x00200000) ~= 0 and #operands == 2 then + operands[1] = operands[1].."!" + end + local s = tonumber(sub(last, 2)) + local n = band(op, 255) + if vr == "d" then n = rshift(n, 1) end + operands[#operands] = format("{%s-%s%d}", last, vr, s+n-1) + elseif p == "W" then + x = band(op, 0x0fff) + band(rshift(op, 4), 0xf000) + elseif p == "T" then + x = "#0x"..tohex(band(op, 0x00ffffff), 6) + elseif p == "U" then + x = band(rshift(op, 7), 31) + if x == 0 then x = nil end + elseif p == "u" then + x = band(rshift(op, 7), 31) + if band(op, 0x40) == 0 then + if x == 0 then x = nil else x = "lsl #"..x end + else + if x == 0 then x = "asr #32" else x = "asr #"..x end + end + elseif p == "v" then + x = band(rshift(op, 7), 31) + elseif p == "w" then + x = band(rshift(op, 16), 31) + elseif p == "x" then + x = band(rshift(op, 16), 31) + 1 + elseif p == "X" then + x = band(rshift(op, 16), 31) - last + 1 + elseif p == "Y" then + x = band(rshift(op, 12), 0xf0) + band(op, 0x0f) + elseif p == "K" then + x = "#0x"..tohex(band(rshift(op, 4), 0x0000fff0) + band(op, 15), 4) + elseif p == "s" then + if band(op, 0x00100000) ~= 0 then suffix = "s"..suffix end + else + assert(false) + end + if x then + last = x + if type(x) == "number" then x = "#"..x end + operands[#operands+1] = x + end + end + + return putop(ctx, name..suffix, operands) +end + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + ctx.pos = ofs + ctx.rel = nil + while ctx.pos < stop do disass_ins(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = addr or 0 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + ctx.hexdump = 8 + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + +-- Return register name for RID. +local function regname_(r) + if r < 16 then return map_gpr[r] end + return "d"..(r-16) +end + +-- Public module functions. +module(...) + +create = create_ +disass = disass_ +regname = regname_ + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mips.lua b/src/3rd party/luajit-2.0/src/jit/dis_mips.lua new file mode 100644 index 00000000000..acdd2be1663 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_mips.lua @@ -0,0 +1,428 @@ +---------------------------------------------------------------------------- +-- LuaJIT MIPS disassembler module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This is a helper module used by the LuaJIT machine code dumper module. +-- +-- It disassembles all standard MIPS32R1/R2 instructions. +-- Default mode is big-endian, but see: dis_mipsel.lua +------------------------------------------------------------------------------ + +local type = type +local sub, byte, format = string.sub, string.byte, string.format +local match, gmatch, gsub = string.match, string.gmatch, string.gsub +local concat = table.concat +local bit = require("bit") +local band, bor, tohex = bit.band, bit.bor, bit.tohex +local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift + +------------------------------------------------------------------------------ +-- Primary and extended opcode maps +------------------------------------------------------------------------------ + +local map_movci = { shift = 16, mask = 1, [0] = "movfDSC", "movtDSC", } +local map_srl = { shift = 21, mask = 1, [0] = "srlDTA", "rotrDTA", } +local map_srlv = { shift = 6, mask = 1, [0] = "srlvDTS", "rotrvDTS", } + +local map_special = { + shift = 0, mask = 63, + [0] = { shift = 0, mask = -1, [0] = "nop", _ = "sllDTA" }, + map_movci, map_srl, "sraDTA", + "sllvDTS", false, map_srlv, "sravDTS", + "jrS", "jalrD1S", "movzDST", "movnDST", + "syscallY", "breakY", false, "sync", + "mfhiD", "mthiS", "mfloD", "mtloS", + false, false, false, false, + "multST", "multuST", "divST", "divuST", + false, false, false, false, + "addDST", "addu|moveDST0", "subDST", "subu|neguDS0T", + "andDST", "orDST", "xorDST", "nor|notDST0", + false, false, "sltDST", "sltuDST", + false, false, false, false, + "tgeSTZ", "tgeuSTZ", "tltSTZ", "tltuSTZ", + "teqSTZ", false, "tneSTZ", +} + +local map_special2 = { + shift = 0, mask = 63, + [0] = "maddST", "madduST", "mulDST", false, + "msubST", "msubuST", + [32] = "clzDS", [33] = "cloDS", + [63] = "sdbbpY", +} + +local map_bshfl = { + shift = 6, mask = 31, + [2] = "wsbhDT", + [16] = "sebDT", + [24] = "sehDT", +} + +local map_special3 = { + shift = 0, mask = 63, + [0] = "extTSAK", [4] = "insTSAL", + [32] = map_bshfl, + [59] = "rdhwrTD", +} + +local map_regimm = { + shift = 16, mask = 31, + [0] = "bltzSB", "bgezSB", "bltzlSB", "bgezlSB", + false, false, false, false, + "tgeiSI", "tgeiuSI", "tltiSI", "tltiuSI", + "teqiSI", false, "tneiSI", false, + "bltzalSB", "bgezalSB", "bltzallSB", "bgezallSB", + false, false, false, false, + false, false, false, false, + false, false, false, "synciSO", +} + +local map_cop0 = { + shift = 25, mask = 1, + [0] = { + shift = 21, mask = 15, + [0] = "mfc0TDW", [4] = "mtc0TDW", + [10] = "rdpgprDT", + [11] = { shift = 5, mask = 1, [0] = "diT0", "eiT0", }, + [14] = "wrpgprDT", + }, { + shift = 0, mask = 63, + [1] = "tlbr", [2] = "tlbwi", [6] = "tlbwr", [8] = "tlbp", + [24] = "eret", [31] = "deret", + [32] = "wait", + }, +} + +local map_cop1s = { + shift = 0, mask = 63, + [0] = "add.sFGH", "sub.sFGH", "mul.sFGH", "div.sFGH", + "sqrt.sFG", "abs.sFG", "mov.sFG", "neg.sFG", + "round.l.sFG", "trunc.l.sFG", "ceil.l.sFG", "floor.l.sFG", + "round.w.sFG", "trunc.w.sFG", "ceil.w.sFG", "floor.w.sFG", + false, + { shift = 16, mask = 1, [0] = "movf.sFGC", "movt.sFGC" }, + "movz.sFGT", "movn.sFGT", + false, "recip.sFG", "rsqrt.sFG", false, + false, false, false, false, + false, false, false, false, + false, "cvt.d.sFG", false, false, + "cvt.w.sFG", "cvt.l.sFG", "cvt.ps.sFGH", false, + false, false, false, false, + false, false, false, false, + "c.f.sVGH", "c.un.sVGH", "c.eq.sVGH", "c.ueq.sVGH", + "c.olt.sVGH", "c.ult.sVGH", "c.ole.sVGH", "c.ule.sVGH", + "c.sf.sVGH", "c.ngle.sVGH", "c.seq.sVGH", "c.ngl.sVGH", + "c.lt.sVGH", "c.nge.sVGH", "c.le.sVGH", "c.ngt.sVGH", +} + +local map_cop1d = { + shift = 0, mask = 63, + [0] = "add.dFGH", "sub.dFGH", "mul.dFGH", "div.dFGH", + "sqrt.dFG", "abs.dFG", "mov.dFG", "neg.dFG", + "round.l.dFG", "trunc.l.dFG", "ceil.l.dFG", "floor.l.dFG", + "round.w.dFG", "trunc.w.dFG", "ceil.w.dFG", "floor.w.dFG", + false, + { shift = 16, mask = 1, [0] = "movf.dFGC", "movt.dFGC" }, + "movz.dFGT", "movn.dFGT", + false, "recip.dFG", "rsqrt.dFG", false, + false, false, false, false, + false, false, false, false, + "cvt.s.dFG", false, false, false, + "cvt.w.dFG", "cvt.l.dFG", false, false, + false, false, false, false, + false, false, false, false, + "c.f.dVGH", "c.un.dVGH", "c.eq.dVGH", "c.ueq.dVGH", + "c.olt.dVGH", "c.ult.dVGH", "c.ole.dVGH", "c.ule.dVGH", + "c.df.dVGH", "c.ngle.dVGH", "c.deq.dVGH", "c.ngl.dVGH", + "c.lt.dVGH", "c.nge.dVGH", "c.le.dVGH", "c.ngt.dVGH", +} + +local map_cop1ps = { + shift = 0, mask = 63, + [0] = "add.psFGH", "sub.psFGH", "mul.psFGH", false, + false, "abs.psFG", "mov.psFG", "neg.psFG", + false, false, false, false, + false, false, false, false, + false, + { shift = 16, mask = 1, [0] = "movf.psFGC", "movt.psFGC" }, + "movz.psFGT", "movn.psFGT", + false, false, false, false, + false, false, false, false, + false, false, false, false, + "cvt.s.puFG", false, false, false, + false, false, false, false, + "cvt.s.plFG", false, false, false, + "pll.psFGH", "plu.psFGH", "pul.psFGH", "puu.psFGH", + "c.f.psVGH", "c.un.psVGH", "c.eq.psVGH", "c.ueq.psVGH", + "c.olt.psVGH", "c.ult.psVGH", "c.ole.psVGH", "c.ule.psVGH", + "c.psf.psVGH", "c.ngle.psVGH", "c.pseq.psVGH", "c.ngl.psVGH", + "c.lt.psVGH", "c.nge.psVGH", "c.le.psVGH", "c.ngt.psVGH", +} + +local map_cop1w = { + shift = 0, mask = 63, + [32] = "cvt.s.wFG", [33] = "cvt.d.wFG", +} + +local map_cop1l = { + shift = 0, mask = 63, + [32] = "cvt.s.lFG", [33] = "cvt.d.lFG", +} + +local map_cop1bc = { + shift = 16, mask = 3, + [0] = "bc1fCB", "bc1tCB", "bc1flCB", "bc1tlCB", +} + +local map_cop1 = { + shift = 21, mask = 31, + [0] = "mfc1TG", false, "cfc1TG", "mfhc1TG", + "mtc1TG", false, "ctc1TG", "mthc1TG", + map_cop1bc, false, false, false, + false, false, false, false, + map_cop1s, map_cop1d, false, false, + map_cop1w, map_cop1l, map_cop1ps, +} + +local map_cop1x = { + shift = 0, mask = 63, + [0] = "lwxc1FSX", "ldxc1FSX", false, false, + false, "luxc1FSX", false, false, + "swxc1FSX", "sdxc1FSX", false, false, + false, "suxc1FSX", false, "prefxMSX", + false, false, false, false, + false, false, false, false, + false, false, false, false, + false, false, "alnv.psFGHS", false, + "madd.sFRGH", "madd.dFRGH", false, false, + false, false, "madd.psFRGH", false, + "msub.sFRGH", "msub.dFRGH", false, false, + false, false, "msub.psFRGH", false, + "nmadd.sFRGH", "nmadd.dFRGH", false, false, + false, false, "nmadd.psFRGH", false, + "nmsub.sFRGH", "nmsub.dFRGH", false, false, + false, false, "nmsub.psFRGH", false, +} + +local map_pri = { + [0] = map_special, map_regimm, "jJ", "jalJ", + "beq|beqz|bST00B", "bne|bnezST0B", "blezSB", "bgtzSB", + "addiTSI", "addiu|liTS0I", "sltiTSI", "sltiuTSI", + "andiTSU", "ori|liTS0U", "xoriTSU", "luiTU", + map_cop0, map_cop1, false, map_cop1x, + "beql|beqzlST0B", "bnel|bnezlST0B", "blezlSB", "bgtzlSB", + false, false, false, false, + map_special2, false, false, map_special3, + "lbTSO", "lhTSO", "lwlTSO", "lwTSO", + "lbuTSO", "lhuTSO", "lwrTSO", false, + "sbTSO", "shTSO", "swlTSO", "swTSO", + false, false, "swrTSO", "cacheNSO", + "llTSO", "lwc1HSO", "lwc2TSO", "prefNSO", + false, "ldc1HSO", "ldc2TSO", false, + "scTSO", "swc1HSO", "swc2TSO", false, + false, "sdc1HSO", "sdc2TSO", false, +} + +------------------------------------------------------------------------------ + +local map_gpr = { + [0] = "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", + "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", + "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", + "r24", "r25", "r26", "r27", "r28", "sp", "r30", "ra", +} + +------------------------------------------------------------------------------ + +-- Output a nicely formatted line with an opcode and operands. +local function putop(ctx, text, operands) + local pos = ctx.pos + local extra = "" + if ctx.rel then + local sym = ctx.symtab[ctx.rel] + if sym then extra = "\t->"..sym end + end + if ctx.hexdump > 0 then + ctx.out(format("%08x %s %-7s %s%s\n", + ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) + else + ctx.out(format("%08x %-7s %s%s\n", + ctx.addr+pos, text, concat(operands, ", "), extra)) + end + ctx.pos = pos + 4 +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) +end + +local function get_be(ctx) + local pos = ctx.pos + local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) + return bor(lshift(b0, 24), lshift(b1, 16), lshift(b2, 8), b3) +end + +local function get_le(ctx) + local pos = ctx.pos + local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) + return bor(lshift(b3, 24), lshift(b2, 16), lshift(b1, 8), b0) +end + +-- Disassemble a single instruction. +local function disass_ins(ctx) + local op = ctx:get() + local operands = {} + local last = nil + ctx.op = op + ctx.rel = nil + + local opat = map_pri[rshift(op, 26)] + while type(opat) ~= "string" do + if not opat then return unknown(ctx) end + opat = opat[band(rshift(op, opat.shift), opat.mask)] or opat._ + end + local name, pat = match(opat, "^([a-z0-9_.]*)(.*)") + local altname, pat2 = match(pat, "|([a-z0-9_.|]*)(.*)") + if altname then pat = pat2 end + + for p in gmatch(pat, ".") do + local x = nil + if p == "S" then + x = map_gpr[band(rshift(op, 21), 31)] + elseif p == "T" then + x = map_gpr[band(rshift(op, 16), 31)] + elseif p == "D" then + x = map_gpr[band(rshift(op, 11), 31)] + elseif p == "F" then + x = "f"..band(rshift(op, 6), 31) + elseif p == "G" then + x = "f"..band(rshift(op, 11), 31) + elseif p == "H" then + x = "f"..band(rshift(op, 16), 31) + elseif p == "R" then + x = "f"..band(rshift(op, 21), 31) + elseif p == "A" then + x = band(rshift(op, 6), 31) + elseif p == "M" then + x = band(rshift(op, 11), 31) + elseif p == "N" then + x = band(rshift(op, 16), 31) + elseif p == "C" then + x = band(rshift(op, 18), 7) + if x == 0 then x = nil end + elseif p == "K" then + x = band(rshift(op, 11), 31) + 1 + elseif p == "L" then + x = band(rshift(op, 11), 31) - last + 1 + elseif p == "I" then + x = arshift(lshift(op, 16), 16) + elseif p == "U" then + x = band(op, 0xffff) + elseif p == "O" then + local disp = arshift(lshift(op, 16), 16) + operands[#operands] = format("%d(%s)", disp, last) + elseif p == "X" then + local index = map_gpr[band(rshift(op, 16), 31)] + operands[#operands] = format("%s(%s)", index, last) + elseif p == "B" then + x = ctx.addr + ctx.pos + arshift(lshift(op, 16), 16)*4 + 4 + ctx.rel = x + x = "0x"..tohex(x) + elseif p == "J" then + x = band(ctx.addr + ctx.pos, 0xf0000000) + band(op, 0x03ffffff)*4 + ctx.rel = x + x = "0x"..tohex(x) + elseif p == "V" then + x = band(rshift(op, 8), 7) + if x == 0 then x = nil end + elseif p == "W" then + x = band(op, 7) + if x == 0 then x = nil end + elseif p == "Y" then + x = band(rshift(op, 6), 0x000fffff) + if x == 0 then x = nil end + elseif p == "Z" then + x = band(rshift(op, 6), 1023) + if x == 0 then x = nil end + elseif p == "0" then + if last == "r0" or last == 0 then + local n = #operands + operands[n] = nil + last = operands[n-1] + if altname then + local a1, a2 = match(altname, "([^|]*)|(.*)") + if a1 then name, altname = a1, a2 + else name = altname end + end + end + elseif p == "1" then + if last == "ra" then + operands[#operands] = nil + end + else + assert(false) + end + if x then operands[#operands+1] = x; last = x end + end + + return putop(ctx, name, operands) +end + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + stop = stop - stop % 4 + ctx.pos = ofs - ofs % 4 + ctx.rel = nil + while ctx.pos < stop do disass_ins(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = addr or 0 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + ctx.hexdump = 8 + ctx.get = get_be + return ctx +end + +local function create_el_(code, addr, out) + local ctx = create_(code, addr, out) + ctx.get = get_le + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + +local function disass_el_(code, addr, out) + create_el_(code, addr, out):disass() +end + +-- Return register name for RID. +local function regname_(r) + if r < 32 then return map_gpr[r] end + return "f"..(r-32) +end + +-- Public module functions. +module(...) + +create = create_ +create_el = create_el_ +disass = disass_ +disass_el = disass_el_ +regname = regname_ + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua b/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua new file mode 100644 index 00000000000..dd9d26ae607 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua @@ -0,0 +1,20 @@ +---------------------------------------------------------------------------- +-- LuaJIT MIPSEL disassembler wrapper module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This module just exports the little-endian functions from the +-- MIPS disassembler module. All the interesting stuff is there. +------------------------------------------------------------------------------ + +local require = require + +module(...) + +local dis_mips = require(_PACKAGE.."dis_mips") + +create = dis_mips.create_el +disass = dis_mips.disass_el +regname = dis_mips.regname + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua b/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua new file mode 100644 index 00000000000..d05c431116a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua @@ -0,0 +1,591 @@ +---------------------------------------------------------------------------- +-- LuaJIT PPC disassembler module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT/X license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This is a helper module used by the LuaJIT machine code dumper module. +-- +-- It disassembles all common, non-privileged 32/64 bit PowerPC instructions +-- plus the e500 SPE instructions and some Cell/Xenon extensions. +-- +-- NYI: VMX, VMX128 +------------------------------------------------------------------------------ + +local type = type +local sub, byte, format = string.sub, string.byte, string.format +local match, gmatch, gsub = string.match, string.gmatch, string.gsub +local concat = table.concat +local bit = require("bit") +local band, bor, tohex = bit.band, bit.bor, bit.tohex +local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift + +------------------------------------------------------------------------------ +-- Primary and extended opcode maps +------------------------------------------------------------------------------ + +local map_crops = { + shift = 1, mask = 1023, + [0] = "mcrfXX", + [33] = "crnor|crnotCCC=", [129] = "crandcCCC", + [193] = "crxor|crclrCCC%", [225] = "crnandCCC", + [257] = "crandCCC", [289] = "creqv|crsetCCC%", + [417] = "crorcCCC", [449] = "cror|crmoveCCC=", + [16] = "b_lrKB", [528] = "b_ctrKB", + [150] = "isync", +} + +local map_rlwinm = setmetatable({ + shift = 0, mask = -1, +}, +{ __index = function(t, x) + local rot = band(rshift(x, 11), 31) + local mb = band(rshift(x, 6), 31) + local me = band(rshift(x, 1), 31) + if mb == 0 and me == 31-rot then + return "slwiRR~A." + elseif me == 31 and mb == 32-rot then + return "srwiRR~-A." + else + return "rlwinmRR~AAA." + end + end +}) + +local map_rld = { + shift = 2, mask = 7, + [0] = "rldiclRR~HM.", "rldicrRR~HM.", "rldicRR~HM.", "rldimiRR~HM.", + { + shift = 1, mask = 1, + [0] = "rldclRR~RM.", "rldcrRR~RM.", + }, +} + +local map_ext = setmetatable({ + shift = 1, mask = 1023, + + [0] = "cmp_YLRR", [32] = "cmpl_YLRR", + [4] = "twARR", [68] = "tdARR", + + [8] = "subfcRRR.", [40] = "subfRRR.", + [104] = "negRR.", [136] = "subfeRRR.", + [200] = "subfzeRR.", [232] = "subfmeRR.", + [520] = "subfcoRRR.", [552] = "subfoRRR.", + [616] = "negoRR.", [648] = "subfeoRRR.", + [712] = "subfzeoRR.", [744] = "subfmeoRR.", + + [9] = "mulhduRRR.", [73] = "mulhdRRR.", [233] = "mulldRRR.", + [457] = "divduRRR.", [489] = "divdRRR.", + [745] = "mulldoRRR.", + [969] = "divduoRRR.", [1001] = "divdoRRR.", + + [10] = "addcRRR.", [138] = "addeRRR.", + [202] = "addzeRR.", [234] = "addmeRR.", [266] = "addRRR.", + [522] = "addcoRRR.", [650] = "addeoRRR.", + [714] = "addzeoRR.", [746] = "addmeoRR.", [778] = "addoRRR.", + + [11] = "mulhwuRRR.", [75] = "mulhwRRR.", [235] = "mullwRRR.", + [459] = "divwuRRR.", [491] = "divwRRR.", + [747] = "mullwoRRR.", + [971] = "divwouRRR.", [1003] = "divwoRRR.", + + [15] = "iselltRRR", [47] = "iselgtRRR", [79] = "iseleqRRR", + + [144] = { shift = 20, mask = 1, [0] = "mtcrfRZ~", "mtocrfRZ~", }, + [19] = { shift = 20, mask = 1, [0] = "mfcrR", "mfocrfRZ", }, + [371] = { shift = 11, mask = 1023, [392] = "mftbR", [424] = "mftbuR", }, + [339] = { + shift = 11, mask = 1023, + [32] = "mferR", [256] = "mflrR", [288] = "mfctrR", [16] = "mfspefscrR", + }, + [467] = { + shift = 11, mask = 1023, + [32] = "mtxerR", [256] = "mtlrR", [288] = "mtctrR", [16] = "mtspefscrR", + }, + + [20] = "lwarxRR0R", [84] = "ldarxRR0R", + + [21] = "ldxRR0R", [53] = "lduxRRR", + [149] = "stdxRR0R", [181] = "stduxRRR", + [341] = "lwaxRR0R", [373] = "lwauxRRR", + + [23] = "lwzxRR0R", [55] = "lwzuxRRR", + [87] = "lbzxRR0R", [119] = "lbzuxRRR", + [151] = "stwxRR0R", [183] = "stwuxRRR", + [215] = "stbxRR0R", [247] = "stbuxRRR", + [279] = "lhzxRR0R", [311] = "lhzuxRRR", + [343] = "lhaxRR0R", [375] = "lhauxRRR", + [407] = "sthxRR0R", [439] = "sthuxRRR", + + [54] = "dcbst-R0R", [86] = "dcbf-R0R", + [150] = "stwcxRR0R.", [214] = "stdcxRR0R.", + [246] = "dcbtst-R0R", [278] = "dcbt-R0R", + [310] = "eciwxRR0R", [438] = "ecowxRR0R", + [470] = "dcbi-RR", + + [598] = { + shift = 21, mask = 3, + [0] = "sync", "lwsync", "ptesync", + }, + [758] = "dcba-RR", + [854] = "eieio", [982] = "icbi-R0R", [1014] = "dcbz-R0R", + + [26] = "cntlzwRR~", [58] = "cntlzdRR~", + [122] = "popcntbRR~", + [154] = "prtywRR~", [186] = "prtydRR~", + + [28] = "andRR~R.", [60] = "andcRR~R.", [124] = "nor|notRR~R=.", + [284] = "eqvRR~R.", [316] = "xorRR~R.", + [412] = "orcRR~R.", [444] = "or|mrRR~R=.", [476] = "nandRR~R.", + [508] = "cmpbRR~R", + + [512] = "mcrxrX", + + [532] = "ldbrxRR0R", [660] = "stdbrxRR0R", + + [533] = "lswxRR0R", [597] = "lswiRR0A", + [661] = "stswxRR0R", [725] = "stswiRR0A", + + [534] = "lwbrxRR0R", [662] = "stwbrxRR0R", + [790] = "lhbrxRR0R", [918] = "sthbrxRR0R", + + [535] = "lfsxFR0R", [567] = "lfsuxFRR", + [599] = "lfdxFR0R", [631] = "lfduxFRR", + [663] = "stfsxFR0R", [695] = "stfsuxFRR", + [727] = "stfdxFR0R", [759] = "stfduxFR0R", + [855] = "lfiwaxFR0R", + [983] = "stfiwxFR0R", + + [24] = "slwRR~R.", + + [27] = "sldRR~R.", [536] = "srwRR~R.", + [792] = "srawRR~R.", [824] = "srawiRR~A.", + + [794] = "sradRR~R.", [826] = "sradiRR~H.", [827] = "sradiRR~H.", + [922] = "extshRR~.", [954] = "extsbRR~.", [986] = "extswRR~.", + + [539] = "srdRR~R.", +}, +{ __index = function(t, x) + if band(x, 31) == 15 then return "iselRRRC" end + end +}) + +local map_ld = { + shift = 0, mask = 3, + [0] = "ldRRE", "lduRRE", "lwaRRE", +} + +local map_std = { + shift = 0, mask = 3, + [0] = "stdRRE", "stduRRE", +} + +local map_fps = { + shift = 5, mask = 1, + { + shift = 1, mask = 15, + [0] = false, false, "fdivsFFF.", false, + "fsubsFFF.", "faddsFFF.", "fsqrtsF-F.", false, + "fresF-F.", "fmulsFF-F.", "frsqrtesF-F.", false, + "fmsubsFFFF~.", "fmaddsFFFF~.", "fnmsubsFFFF~.", "fnmaddsFFFF~.", + } +} + +local map_fpd = { + shift = 5, mask = 1, + [0] = { + shift = 1, mask = 1023, + [0] = "fcmpuXFF", [32] = "fcmpoXFF", [64] = "mcrfsXX", + [38] = "mtfsb1A.", [70] = "mtfsb0A.", [134] = "mtfsfiA>>-A>", + [8] = "fcpsgnFFF.", [40] = "fnegF-F.", [72] = "fmrF-F.", + [136] = "fnabsF-F.", [264] = "fabsF-F.", + [12] = "frspF-F.", + [14] = "fctiwF-F.", [15] = "fctiwzF-F.", + [583] = "mffsF.", [711] = "mtfsfZF.", + [392] = "frinF-F.", [424] = "frizF-F.", + [456] = "fripF-F.", [488] = "frimF-F.", + [814] = "fctidF-F.", [815] = "fctidzF-F.", [846] = "fcfidF-F.", + }, + { + shift = 1, mask = 15, + [0] = false, false, "fdivFFF.", false, + "fsubFFF.", "faddFFF.", "fsqrtF-F.", "fselFFFF~.", + "freF-F.", "fmulFF-F.", "frsqrteF-F.", false, + "fmsubFFFF~.", "fmaddFFFF~.", "fnmsubFFFF~.", "fnmaddFFFF~.", + } +} + +local map_spe = { + shift = 0, mask = 2047, + + [512] = "evaddwRRR", [514] = "evaddiwRAR~", + [516] = "evsubwRRR~", [518] = "evsubiwRAR~", + [520] = "evabsRR", [521] = "evnegRR", + [522] = "evextsbRR", [523] = "evextshRR", [524] = "evrndwRR", + [525] = "evcntlzwRR", [526] = "evcntlswRR", + + [527] = "brincRRR", + + [529] = "evandRRR", [530] = "evandcRRR", [534] = "evxorRRR", + [535] = "evor|evmrRRR=", [536] = "evnor|evnotRRR=", + [537] = "eveqvRRR", [539] = "evorcRRR", [542] = "evnandRRR", + + [544] = "evsrwuRRR", [545] = "evsrwsRRR", + [546] = "evsrwiuRRA", [547] = "evsrwisRRA", + [548] = "evslwRRR", [550] = "evslwiRRA", + [552] = "evrlwRRR", [553] = "evsplatiRS", + [554] = "evrlwiRRA", [555] = "evsplatfiRS", + [556] = "evmergehiRRR", [557] = "evmergeloRRR", + [558] = "evmergehiloRRR", [559] = "evmergelohiRRR", + + [560] = "evcmpgtuYRR", [561] = "evcmpgtsYRR", + [562] = "evcmpltuYRR", [563] = "evcmpltsYRR", + [564] = "evcmpeqYRR", + + [632] = "evselRRR", [633] = "evselRRRW", + [634] = "evselRRRW", [635] = "evselRRRW", + [636] = "evselRRRW", [637] = "evselRRRW", + [638] = "evselRRRW", [639] = "evselRRRW", + + [640] = "evfsaddRRR", [641] = "evfssubRRR", + [644] = "evfsabsRR", [645] = "evfsnabsRR", [646] = "evfsnegRR", + [648] = "evfsmulRRR", [649] = "evfsdivRRR", + [652] = "evfscmpgtYRR", [653] = "evfscmpltYRR", [654] = "evfscmpeqYRR", + [656] = "evfscfuiR-R", [657] = "evfscfsiR-R", + [658] = "evfscfufR-R", [659] = "evfscfsfR-R", + [660] = "evfsctuiR-R", [661] = "evfsctsiR-R", + [662] = "evfsctufR-R", [663] = "evfsctsfR-R", + [664] = "evfsctuizR-R", [666] = "evfsctsizR-R", + [668] = "evfststgtYRR", [669] = "evfststltYRR", [670] = "evfststeqYRR", + + [704] = "efsaddRRR", [705] = "efssubRRR", + [708] = "efsabsRR", [709] = "efsnabsRR", [710] = "efsnegRR", + [712] = "efsmulRRR", [713] = "efsdivRRR", + [716] = "efscmpgtYRR", [717] = "efscmpltYRR", [718] = "efscmpeqYRR", + [719] = "efscfdR-R", + [720] = "efscfuiR-R", [721] = "efscfsiR-R", + [722] = "efscfufR-R", [723] = "efscfsfR-R", + [724] = "efsctuiR-R", [725] = "efsctsiR-R", + [726] = "efsctufR-R", [727] = "efsctsfR-R", + [728] = "efsctuizR-R", [730] = "efsctsizR-R", + [732] = "efststgtYRR", [733] = "efststltYRR", [734] = "efststeqYRR", + + [736] = "efdaddRRR", [737] = "efdsubRRR", + [738] = "efdcfuidR-R", [739] = "efdcfsidR-R", + [740] = "efdabsRR", [741] = "efdnabsRR", [742] = "efdnegRR", + [744] = "efdmulRRR", [745] = "efddivRRR", + [746] = "efdctuidzR-R", [747] = "efdctsidzR-R", + [748] = "efdcmpgtYRR", [749] = "efdcmpltYRR", [750] = "efdcmpeqYRR", + [751] = "efdcfsR-R", + [752] = "efdcfuiR-R", [753] = "efdcfsiR-R", + [754] = "efdcfufR-R", [755] = "efdcfsfR-R", + [756] = "efdctuiR-R", [757] = "efdctsiR-R", + [758] = "efdctufR-R", [759] = "efdctsfR-R", + [760] = "efdctuizR-R", [762] = "efdctsizR-R", + [764] = "efdtstgtYRR", [765] = "efdtstltYRR", [766] = "efdtsteqYRR", + + [768] = "evlddxRR0R", [769] = "evlddRR8", + [770] = "evldwxRR0R", [771] = "evldwRR8", + [772] = "evldhxRR0R", [773] = "evldhRR8", + [776] = "evlhhesplatxRR0R", [777] = "evlhhesplatRR2", + [780] = "evlhhousplatxRR0R", [781] = "evlhhousplatRR2", + [782] = "evlhhossplatxRR0R", [783] = "evlhhossplatRR2", + [784] = "evlwhexRR0R", [785] = "evlwheRR4", + [788] = "evlwhouxRR0R", [789] = "evlwhouRR4", + [790] = "evlwhosxRR0R", [791] = "evlwhosRR4", + [792] = "evlwwsplatxRR0R", [793] = "evlwwsplatRR4", + [796] = "evlwhsplatxRR0R", [797] = "evlwhsplatRR4", + + [800] = "evstddxRR0R", [801] = "evstddRR8", + [802] = "evstdwxRR0R", [803] = "evstdwRR8", + [804] = "evstdhxRR0R", [805] = "evstdhRR8", + [816] = "evstwhexRR0R", [817] = "evstwheRR4", + [820] = "evstwhoxRR0R", [821] = "evstwhoRR4", + [824] = "evstwwexRR0R", [825] = "evstwweRR4", + [828] = "evstwwoxRR0R", [829] = "evstwwoRR4", + + [1027] = "evmhessfRRR", [1031] = "evmhossfRRR", [1032] = "evmheumiRRR", + [1033] = "evmhesmiRRR", [1035] = "evmhesmfRRR", [1036] = "evmhoumiRRR", + [1037] = "evmhosmiRRR", [1039] = "evmhosmfRRR", [1059] = "evmhessfaRRR", + [1063] = "evmhossfaRRR", [1064] = "evmheumiaRRR", [1065] = "evmhesmiaRRR", + [1067] = "evmhesmfaRRR", [1068] = "evmhoumiaRRR", [1069] = "evmhosmiaRRR", + [1071] = "evmhosmfaRRR", [1095] = "evmwhssfRRR", [1096] = "evmwlumiRRR", + [1100] = "evmwhumiRRR", [1101] = "evmwhsmiRRR", [1103] = "evmwhsmfRRR", + [1107] = "evmwssfRRR", [1112] = "evmwumiRRR", [1113] = "evmwsmiRRR", + [1115] = "evmwsmfRRR", [1127] = "evmwhssfaRRR", [1128] = "evmwlumiaRRR", + [1132] = "evmwhumiaRRR", [1133] = "evmwhsmiaRRR", [1135] = "evmwhsmfaRRR", + [1139] = "evmwssfaRRR", [1144] = "evmwumiaRRR", [1145] = "evmwsmiaRRR", + [1147] = "evmwsmfaRRR", + + [1216] = "evaddusiaawRR", [1217] = "evaddssiaawRR", + [1218] = "evsubfusiaawRR", [1219] = "evsubfssiaawRR", + [1220] = "evmraRR", + [1222] = "evdivwsRRR", [1223] = "evdivwuRRR", + [1224] = "evaddumiaawRR", [1225] = "evaddsmiaawRR", + [1226] = "evsubfumiaawRR", [1227] = "evsubfsmiaawRR", + + [1280] = "evmheusiaawRRR", [1281] = "evmhessiaawRRR", + [1283] = "evmhessfaawRRR", [1284] = "evmhousiaawRRR", + [1285] = "evmhossiaawRRR", [1287] = "evmhossfaawRRR", + [1288] = "evmheumiaawRRR", [1289] = "evmhesmiaawRRR", + [1291] = "evmhesmfaawRRR", [1292] = "evmhoumiaawRRR", + [1293] = "evmhosmiaawRRR", [1295] = "evmhosmfaawRRR", + [1320] = "evmhegumiaaRRR", [1321] = "evmhegsmiaaRRR", + [1323] = "evmhegsmfaaRRR", [1324] = "evmhogumiaaRRR", + [1325] = "evmhogsmiaaRRR", [1327] = "evmhogsmfaaRRR", + [1344] = "evmwlusiaawRRR", [1345] = "evmwlssiaawRRR", + [1352] = "evmwlumiaawRRR", [1353] = "evmwlsmiaawRRR", + [1363] = "evmwssfaaRRR", [1368] = "evmwumiaaRRR", + [1369] = "evmwsmiaaRRR", [1371] = "evmwsmfaaRRR", + [1408] = "evmheusianwRRR", [1409] = "evmhessianwRRR", + [1411] = "evmhessfanwRRR", [1412] = "evmhousianwRRR", + [1413] = "evmhossianwRRR", [1415] = "evmhossfanwRRR", + [1416] = "evmheumianwRRR", [1417] = "evmhesmianwRRR", + [1419] = "evmhesmfanwRRR", [1420] = "evmhoumianwRRR", + [1421] = "evmhosmianwRRR", [1423] = "evmhosmfanwRRR", + [1448] = "evmhegumianRRR", [1449] = "evmhegsmianRRR", + [1451] = "evmhegsmfanRRR", [1452] = "evmhogumianRRR", + [1453] = "evmhogsmianRRR", [1455] = "evmhogsmfanRRR", + [1472] = "evmwlusianwRRR", [1473] = "evmwlssianwRRR", + [1480] = "evmwlumianwRRR", [1481] = "evmwlsmianwRRR", + [1491] = "evmwssfanRRR", [1496] = "evmwumianRRR", + [1497] = "evmwsmianRRR", [1499] = "evmwsmfanRRR", +} + +local map_pri = { + [0] = false, false, "tdiARI", "twiARI", + map_spe, false, false, "mulliRRI", + "subficRRI", false, "cmpl_iYLRU", "cmp_iYLRI", + "addicRRI", "addic.RRI", "addi|liRR0I", "addis|lisRR0I", + "b_KBJ", "sc", "bKJ", map_crops, + "rlwimiRR~AAA.", map_rlwinm, false, "rlwnmRR~RAA.", + "oriNRR~U", "orisRR~U", "xoriRR~U", "xorisRR~U", + "andi.RR~U", "andis.RR~U", map_rld, map_ext, + "lwzRRD", "lwzuRRD", "lbzRRD", "lbzuRRD", + "stwRRD", "stwuRRD", "stbRRD", "stbuRRD", + "lhzRRD", "lhzuRRD", "lhaRRD", "lhauRRD", + "sthRRD", "sthuRRD", "lmwRRD", "stmwRRD", + "lfsFRD", "lfsuFRD", "lfdFRD", "lfduFRD", + "stfsFRD", "stfsuFRD", "stfdFRD", "stfduFRD", + false, false, map_ld, map_fps, + false, false, map_std, map_fpd, +} + +------------------------------------------------------------------------------ + +local map_gpr = { + [0] = "r0", "sp", "r2", "r3", "r4", "r5", "r6", "r7", + "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", + "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", + "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31", +} + +local map_cond = { [0] = "lt", "gt", "eq", "so", "ge", "le", "ne", "ns", } + +-- Format a condition bit. +local function condfmt(cond) + if cond <= 3 then + return map_cond[band(cond, 3)] + else + return format("4*cr%d+%s", rshift(cond, 2), map_cond[band(cond, 3)]) + end +end + +------------------------------------------------------------------------------ + +-- Output a nicely formatted line with an opcode and operands. +local function putop(ctx, text, operands) + local pos = ctx.pos + local extra = "" + if ctx.rel then + local sym = ctx.symtab[ctx.rel] + if sym then extra = "\t->"..sym end + end + if ctx.hexdump > 0 then + ctx.out(format("%08x %s %-7s %s%s\n", + ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) + else + ctx.out(format("%08x %-7s %s%s\n", + ctx.addr+pos, text, concat(operands, ", "), extra)) + end + ctx.pos = pos + 4 +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) +end + +-- Disassemble a single instruction. +local function disass_ins(ctx) + local pos = ctx.pos + local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) + local op = bor(lshift(b0, 24), lshift(b1, 16), lshift(b2, 8), b3) + local operands = {} + local last = nil + local rs = 21 + ctx.op = op + ctx.rel = nil + + local opat = map_pri[rshift(b0, 2)] + while type(opat) ~= "string" do + if not opat then return unknown(ctx) end + opat = opat[band(rshift(op, opat.shift), opat.mask)] + end + local name, pat = match(opat, "^([a-z0-9_.]*)(.*)") + local altname, pat2 = match(pat, "|([a-z0-9_.]*)(.*)") + if altname then pat = pat2 end + + for p in gmatch(pat, ".") do + local x = nil + if p == "R" then + x = map_gpr[band(rshift(op, rs), 31)] + rs = rs - 5 + elseif p == "F" then + x = "f"..band(rshift(op, rs), 31) + rs = rs - 5 + elseif p == "A" then + x = band(rshift(op, rs), 31) + rs = rs - 5 + elseif p == "S" then + x = arshift(lshift(op, 27-rs), 27) + rs = rs - 5 + elseif p == "I" then + x = arshift(lshift(op, 16), 16) + elseif p == "U" then + x = band(op, 0xffff) + elseif p == "D" or p == "E" then + local disp = arshift(lshift(op, 16), 16) + if p == "E" then disp = band(disp, -4) end + if last == "r0" then last = "0" end + operands[#operands] = format("%d(%s)", disp, last) + elseif p >= "2" and p <= "8" then + local disp = band(rshift(op, rs), 31) * p + if last == "r0" then last = "0" end + operands[#operands] = format("%d(%s)", disp, last) + elseif p == "H" then + x = band(rshift(op, rs), 31) + lshift(band(op, 2), 4) + rs = rs - 5 + elseif p == "M" then + x = band(rshift(op, rs), 31) + band(op, 0x20) + elseif p == "C" then + x = condfmt(band(rshift(op, rs), 31)) + rs = rs - 5 + elseif p == "B" then + local bo = rshift(op, 21) + local cond = band(rshift(op, 16), 31) + local cn = "" + rs = rs - 10 + if band(bo, 4) == 0 then + cn = band(bo, 2) == 0 and "dnz" or "dz" + if band(bo, 0x10) == 0 then + cn = cn..(band(bo, 8) == 0 and "f" or "t") + end + if band(bo, 0x10) == 0 then x = condfmt(cond) end + name = name..(band(bo, 1) == band(rshift(op, 15), 1) and "-" or "+") + elseif band(bo, 0x10) == 0 then + cn = map_cond[band(cond, 3) + (band(bo, 8) == 0 and 4 or 0)] + if cond > 3 then x = "cr"..rshift(cond, 2) end + name = name..(band(bo, 1) == band(rshift(op, 15), 1) and "-" or "+") + end + name = gsub(name, "_", cn) + elseif p == "J" then + x = arshift(lshift(op, 27-rs), 29-rs)*4 + if band(op, 2) == 0 then x = ctx.addr + pos + x end + ctx.rel = x + x = "0x"..tohex(x) + elseif p == "K" then + if band(op, 1) ~= 0 then name = name.."l" end + if band(op, 2) ~= 0 then name = name.."a" end + elseif p == "X" or p == "Y" then + x = band(rshift(op, rs+2), 7) + if x == 0 and p == "Y" then x = nil else x = "cr"..x end + rs = rs - 5 + elseif p == "W" then + x = "cr"..band(op, 7) + elseif p == "Z" then + x = band(rshift(op, rs-4), 255) + rs = rs - 10 + elseif p == ">" then + operands[#operands] = rshift(operands[#operands], 1) + elseif p == "0" then + if last == "r0" then + operands[#operands] = nil + if altname then name = altname end + end + elseif p == "L" then + name = gsub(name, "_", band(op, 0x00200000) ~= 0 and "d" or "w") + elseif p == "." then + if band(op, 1) == 1 then name = name.."." end + elseif p == "N" then + if op == 0x60000000 then name = "nop"; break end + elseif p == "~" then + local n = #operands + operands[n-1], operands[n] = operands[n], operands[n-1] + elseif p == "=" then + local n = #operands + if last == operands[n-1] then + operands[n] = nil + name = altname + end + elseif p == "%" then + local n = #operands + if last == operands[n-1] and last == operands[n-2] then + operands[n] = nil + operands[n-1] = nil + name = altname + end + elseif p == "-" then + rs = rs - 5 + else + assert(false) + end + if x then operands[#operands+1] = x; last = x end + end + + return putop(ctx, name, operands) +end + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + stop = stop - stop % 4 + ctx.pos = ofs - ofs % 4 + ctx.rel = nil + while ctx.pos < stop do disass_ins(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = addr or 0 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + ctx.hexdump = 8 + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + +-- Return register name for RID. +local function regname_(r) + if r < 32 then return map_gpr[r] end + return "f"..(r-32) +end + +-- Public module functions. +module(...) + +create = create_ +disass = disass_ +regname = regname_ + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x64.lua b/src/3rd party/luajit-2.0/src/jit/dis_x64.lua new file mode 100644 index 00000000000..a80981bd5cb --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_x64.lua @@ -0,0 +1,20 @@ +---------------------------------------------------------------------------- +-- LuaJIT x64 disassembler wrapper module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This module just exports the 64 bit functions from the combined +-- x86/x64 disassembler module. All the interesting stuff is there. +------------------------------------------------------------------------------ + +local require = require + +module(...) + +local dis_x86 = require(_PACKAGE.."dis_x86") + +create = dis_x86.create64 +disass = dis_x86.disass64 +regname = dis_x86.regname64 + diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x86.lua b/src/3rd party/luajit-2.0/src/jit/dis_x86.lua new file mode 100644 index 00000000000..078d6094dcb --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dis_x86.lua @@ -0,0 +1,836 @@ +---------------------------------------------------------------------------- +-- LuaJIT x86/x64 disassembler module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- This is a helper module used by the LuaJIT machine code dumper module. +-- +-- Sending small code snippets to an external disassembler and mixing the +-- output with our own stuff was too fragile. So I had to bite the bullet +-- and write yet another x86 disassembler. Oh well ... +-- +-- The output format is very similar to what ndisasm generates. But it has +-- been developed independently by looking at the opcode tables from the +-- Intel and AMD manuals. The supported instruction set is quite extensive +-- and reflects what a current generation Intel or AMD CPU implements in +-- 32 bit and 64 bit mode. Yes, this includes MMX, SSE, SSE2, SSE3, SSSE3, +-- SSE4.1, SSE4.2, SSE4a and even privileged and hypervisor (VMX/SVM) +-- instructions. +-- +-- Notes: +-- * The (useless) a16 prefix, 3DNow and pre-586 opcodes are unsupported. +-- * No attempt at optimization has been made -- it's fast enough for my needs. +-- * The public API may change when more architectures are added. +------------------------------------------------------------------------------ + +local type = type +local sub, byte, format = string.sub, string.byte, string.format +local match, gmatch, gsub = string.match, string.gmatch, string.gsub +local lower, rep = string.lower, string.rep + +-- Map for 1st opcode byte in 32 bit mode. Ugly? Well ... read on. +local map_opc1_32 = { +--0x +[0]="addBmr","addVmr","addBrm","addVrm","addBai","addVai","push es","pop es", +"orBmr","orVmr","orBrm","orVrm","orBai","orVai","push cs","opc2*", +--1x +"adcBmr","adcVmr","adcBrm","adcVrm","adcBai","adcVai","push ss","pop ss", +"sbbBmr","sbbVmr","sbbBrm","sbbVrm","sbbBai","sbbVai","push ds","pop ds", +--2x +"andBmr","andVmr","andBrm","andVrm","andBai","andVai","es:seg","daa", +"subBmr","subVmr","subBrm","subVrm","subBai","subVai","cs:seg","das", +--3x +"xorBmr","xorVmr","xorBrm","xorVrm","xorBai","xorVai","ss:seg","aaa", +"cmpBmr","cmpVmr","cmpBrm","cmpVrm","cmpBai","cmpVai","ds:seg","aas", +--4x +"incVR","incVR","incVR","incVR","incVR","incVR","incVR","incVR", +"decVR","decVR","decVR","decVR","decVR","decVR","decVR","decVR", +--5x +"pushUR","pushUR","pushUR","pushUR","pushUR","pushUR","pushUR","pushUR", +"popUR","popUR","popUR","popUR","popUR","popUR","popUR","popUR", +--6x +"sz*pushaw,pusha","sz*popaw,popa","boundVrm","arplWmr", +"fs:seg","gs:seg","o16:","a16", +"pushUi","imulVrmi","pushBs","imulVrms", +"insb","insVS","outsb","outsVS", +--7x +"joBj","jnoBj","jbBj","jnbBj","jzBj","jnzBj","jbeBj","jaBj", +"jsBj","jnsBj","jpeBj","jpoBj","jlBj","jgeBj","jleBj","jgBj", +--8x +"arith!Bmi","arith!Vmi","arith!Bmi","arith!Vms", +"testBmr","testVmr","xchgBrm","xchgVrm", +"movBmr","movVmr","movBrm","movVrm", +"movVmg","leaVrm","movWgm","popUm", +--9x +"nop*xchgVaR|pause|xchgWaR|repne nop","xchgVaR","xchgVaR","xchgVaR", +"xchgVaR","xchgVaR","xchgVaR","xchgVaR", +"sz*cbw,cwde,cdqe","sz*cwd,cdq,cqo","call farViw","wait", +"sz*pushfw,pushf","sz*popfw,popf","sahf","lahf", +--Ax +"movBao","movVao","movBoa","movVoa", +"movsb","movsVS","cmpsb","cmpsVS", +"testBai","testVai","stosb","stosVS", +"lodsb","lodsVS","scasb","scasVS", +--Bx +"movBRi","movBRi","movBRi","movBRi","movBRi","movBRi","movBRi","movBRi", +"movVRI","movVRI","movVRI","movVRI","movVRI","movVRI","movVRI","movVRI", +--Cx +"shift!Bmu","shift!Vmu","retBw","ret","$lesVrm","$ldsVrm","movBmi","movVmi", +"enterBwu","leave","retfBw","retf","int3","intBu","into","iretVS", +--Dx +"shift!Bm1","shift!Vm1","shift!Bmc","shift!Vmc","aamBu","aadBu","salc","xlatb", +"fp*0","fp*1","fp*2","fp*3","fp*4","fp*5","fp*6","fp*7", +--Ex +"loopneBj","loopeBj","loopBj","sz*jcxzBj,jecxzBj,jrcxzBj", +"inBau","inVau","outBua","outVua", +"callVj","jmpVj","jmp farViw","jmpBj","inBad","inVad","outBda","outVda", +--Fx +"lock:","int1","repne:rep","rep:","hlt","cmc","testb!Bm","testv!Vm", +"clc","stc","cli","sti","cld","std","incb!Bm","incd!Vm", +} +assert(#map_opc1_32 == 255) + +-- Map for 1st opcode byte in 64 bit mode (overrides only). +local map_opc1_64 = setmetatable({ + [0x06]=false, [0x07]=false, [0x0e]=false, + [0x16]=false, [0x17]=false, [0x1e]=false, [0x1f]=false, + [0x27]=false, [0x2f]=false, [0x37]=false, [0x3f]=false, + [0x60]=false, [0x61]=false, [0x62]=false, [0x63]="movsxdVrDmt", [0x67]="a32:", + [0x40]="rex*", [0x41]="rex*b", [0x42]="rex*x", [0x43]="rex*xb", + [0x44]="rex*r", [0x45]="rex*rb", [0x46]="rex*rx", [0x47]="rex*rxb", + [0x48]="rex*w", [0x49]="rex*wb", [0x4a]="rex*wx", [0x4b]="rex*wxb", + [0x4c]="rex*wr", [0x4d]="rex*wrb", [0x4e]="rex*wrx", [0x4f]="rex*wrxb", + [0x82]=false, [0x9a]=false, [0xc4]=false, [0xc5]=false, [0xce]=false, + [0xd4]=false, [0xd5]=false, [0xd6]=false, [0xea]=false, +}, { __index = map_opc1_32 }) + +-- Map for 2nd opcode byte (0F xx). True CISC hell. Hey, I told you. +-- Prefix dependent MMX/SSE opcodes: (none)|rep|o16|repne, -|F3|66|F2 +local map_opc2 = { +--0x +[0]="sldt!Dmp","sgdt!Ump","larVrm","lslVrm",nil,"syscall","clts","sysret", +"invd","wbinvd",nil,"ud1",nil,"$prefetch!Bm","femms","3dnowMrmu", +--1x +"movupsXrm|movssXrm|movupdXrm|movsdXrm", +"movupsXmr|movssXmr|movupdXmr|movsdXmr", +"movhlpsXrm$movlpsXrm|movsldupXrm|movlpdXrm|movddupXrm", +"movlpsXmr||movlpdXmr", +"unpcklpsXrm||unpcklpdXrm", +"unpckhpsXrm||unpckhpdXrm", +"movlhpsXrm$movhpsXrm|movshdupXrm|movhpdXrm", +"movhpsXmr||movhpdXmr", +"$prefetcht!Bm","hintnopVm","hintnopVm","hintnopVm", +"hintnopVm","hintnopVm","hintnopVm","hintnopVm", +--2x +"movUmx$","movUmy$","movUxm$","movUym$","movUmz$",nil,"movUzm$",nil, +"movapsXrm||movapdXrm", +"movapsXmr||movapdXmr", +"cvtpi2psXrMm|cvtsi2ssXrVmt|cvtpi2pdXrMm|cvtsi2sdXrVmt", +"movntpsXmr|movntssXmr|movntpdXmr|movntsdXmr", +"cvttps2piMrXm|cvttss2siVrXm|cvttpd2piMrXm|cvttsd2siVrXm", +"cvtps2piMrXm|cvtss2siVrXm|cvtpd2piMrXm|cvtsd2siVrXm", +"ucomissXrm||ucomisdXrm", +"comissXrm||comisdXrm", +--3x +"wrmsr","rdtsc","rdmsr","rdpmc","sysenter","sysexit",nil,"getsec", +"opc3*38",nil,"opc3*3a",nil,nil,nil,nil,nil, +--4x +"cmovoVrm","cmovnoVrm","cmovbVrm","cmovnbVrm", +"cmovzVrm","cmovnzVrm","cmovbeVrm","cmovaVrm", +"cmovsVrm","cmovnsVrm","cmovpeVrm","cmovpoVrm", +"cmovlVrm","cmovgeVrm","cmovleVrm","cmovgVrm", +--5x +"movmskpsVrXm$||movmskpdVrXm$","sqrtpsXrm|sqrtssXrm|sqrtpdXrm|sqrtsdXrm", +"rsqrtpsXrm|rsqrtssXrm","rcppsXrm|rcpssXrm", +"andpsXrm||andpdXrm","andnpsXrm||andnpdXrm", +"orpsXrm||orpdXrm","xorpsXrm||xorpdXrm", +"addpsXrm|addssXrm|addpdXrm|addsdXrm","mulpsXrm|mulssXrm|mulpdXrm|mulsdXrm", +"cvtps2pdXrm|cvtss2sdXrm|cvtpd2psXrm|cvtsd2ssXrm", +"cvtdq2psXrm|cvttps2dqXrm|cvtps2dqXrm", +"subpsXrm|subssXrm|subpdXrm|subsdXrm","minpsXrm|minssXrm|minpdXrm|minsdXrm", +"divpsXrm|divssXrm|divpdXrm|divsdXrm","maxpsXrm|maxssXrm|maxpdXrm|maxsdXrm", +--6x +"punpcklbwPrm","punpcklwdPrm","punpckldqPrm","packsswbPrm", +"pcmpgtbPrm","pcmpgtwPrm","pcmpgtdPrm","packuswbPrm", +"punpckhbwPrm","punpckhwdPrm","punpckhdqPrm","packssdwPrm", +"||punpcklqdqXrm","||punpckhqdqXrm", +"movPrVSm","movqMrm|movdquXrm|movdqaXrm", +--7x +"pshufwMrmu|pshufhwXrmu|pshufdXrmu|pshuflwXrmu","pshiftw!Pmu", +"pshiftd!Pmu","pshiftq!Mmu||pshiftdq!Xmu", +"pcmpeqbPrm","pcmpeqwPrm","pcmpeqdPrm","emms|", +"vmreadUmr||extrqXmuu$|insertqXrmuu$","vmwriteUrm||extrqXrm$|insertqXrm$", +nil,nil, +"||haddpdXrm|haddpsXrm","||hsubpdXrm|hsubpsXrm", +"movVSmMr|movqXrm|movVSmXr","movqMmr|movdquXmr|movdqaXmr", +--8x +"joVj","jnoVj","jbVj","jnbVj","jzVj","jnzVj","jbeVj","jaVj", +"jsVj","jnsVj","jpeVj","jpoVj","jlVj","jgeVj","jleVj","jgVj", +--9x +"setoBm","setnoBm","setbBm","setnbBm","setzBm","setnzBm","setbeBm","setaBm", +"setsBm","setnsBm","setpeBm","setpoBm","setlBm","setgeBm","setleBm","setgBm", +--Ax +"push fs","pop fs","cpuid","btVmr","shldVmru","shldVmrc",nil,nil, +"push gs","pop gs","rsm","btsVmr","shrdVmru","shrdVmrc","fxsave!Dmp","imulVrm", +--Bx +"cmpxchgBmr","cmpxchgVmr","$lssVrm","btrVmr", +"$lfsVrm","$lgsVrm","movzxVrBmt","movzxVrWmt", +"|popcntVrm","ud2Dp","bt!Vmu","btcVmr", +"bsfVrm","bsrVrm|lzcntVrm|bsrWrm","movsxVrBmt","movsxVrWmt", +--Cx +"xaddBmr","xaddVmr", +"cmppsXrmu|cmpssXrmu|cmppdXrmu|cmpsdXrmu","$movntiVmr|", +"pinsrwPrWmu","pextrwDrPmu", +"shufpsXrmu||shufpdXrmu","$cmpxchg!Qmp", +"bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR", +--Dx +"||addsubpdXrm|addsubpsXrm","psrlwPrm","psrldPrm","psrlqPrm", +"paddqPrm","pmullwPrm", +"|movq2dqXrMm|movqXmr|movdq2qMrXm$","pmovmskbVrMm||pmovmskbVrXm", +"psubusbPrm","psubuswPrm","pminubPrm","pandPrm", +"paddusbPrm","padduswPrm","pmaxubPrm","pandnPrm", +--Ex +"pavgbPrm","psrawPrm","psradPrm","pavgwPrm", +"pmulhuwPrm","pmulhwPrm", +"|cvtdq2pdXrm|cvttpd2dqXrm|cvtpd2dqXrm","$movntqMmr||$movntdqXmr", +"psubsbPrm","psubswPrm","pminswPrm","porPrm", +"paddsbPrm","paddswPrm","pmaxswPrm","pxorPrm", +--Fx +"|||lddquXrm","psllwPrm","pslldPrm","psllqPrm", +"pmuludqPrm","pmaddwdPrm","psadbwPrm","maskmovqMrm||maskmovdquXrm$", +"psubbPrm","psubwPrm","psubdPrm","psubqPrm", +"paddbPrm","paddwPrm","padddPrm","ud", +} +assert(map_opc2[255] == "ud") + +-- Map for three-byte opcodes. Can't wait for their next invention. +local map_opc3 = { +["38"] = { -- [66] 0f 38 xx +--0x +[0]="pshufbPrm","phaddwPrm","phadddPrm","phaddswPrm", +"pmaddubswPrm","phsubwPrm","phsubdPrm","phsubswPrm", +"psignbPrm","psignwPrm","psigndPrm","pmulhrswPrm", +nil,nil,nil,nil, +--1x +"||pblendvbXrma",nil,nil,nil, +"||blendvpsXrma","||blendvpdXrma",nil,"||ptestXrm", +nil,nil,nil,nil, +"pabsbPrm","pabswPrm","pabsdPrm",nil, +--2x +"||pmovsxbwXrm","||pmovsxbdXrm","||pmovsxbqXrm","||pmovsxwdXrm", +"||pmovsxwqXrm","||pmovsxdqXrm",nil,nil, +"||pmuldqXrm","||pcmpeqqXrm","||$movntdqaXrm","||packusdwXrm", +nil,nil,nil,nil, +--3x +"||pmovzxbwXrm","||pmovzxbdXrm","||pmovzxbqXrm","||pmovzxwdXrm", +"||pmovzxwqXrm","||pmovzxdqXrm",nil,"||pcmpgtqXrm", +"||pminsbXrm","||pminsdXrm","||pminuwXrm","||pminudXrm", +"||pmaxsbXrm","||pmaxsdXrm","||pmaxuwXrm","||pmaxudXrm", +--4x +"||pmulddXrm","||phminposuwXrm", +--Fx +[0xf0] = "|||crc32TrBmt",[0xf1] = "|||crc32TrVmt", +}, + +["3a"] = { -- [66] 0f 3a xx +--0x +[0x00]=nil,nil,nil,nil,nil,nil,nil,nil, +"||roundpsXrmu","||roundpdXrmu","||roundssXrmu","||roundsdXrmu", +"||blendpsXrmu","||blendpdXrmu","||pblendwXrmu","palignrPrmu", +--1x +nil,nil,nil,nil, +"||pextrbVmXru","||pextrwVmXru","||pextrVmSXru","||extractpsVmXru", +nil,nil,nil,nil,nil,nil,nil,nil, +--2x +"||pinsrbXrVmu","||insertpsXrmu","||pinsrXrVmuS",nil, +--4x +[0x40] = "||dppsXrmu", +[0x41] = "||dppdXrmu", +[0x42] = "||mpsadbwXrmu", +--6x +[0x60] = "||pcmpestrmXrmu",[0x61] = "||pcmpestriXrmu", +[0x62] = "||pcmpistrmXrmu",[0x63] = "||pcmpistriXrmu", +}, +} + +-- Map for VMX/SVM opcodes 0F 01 C0-FF (sgdt group with register operands). +local map_opcvm = { +[0xc1]="vmcall",[0xc2]="vmlaunch",[0xc3]="vmresume",[0xc4]="vmxoff", +[0xc8]="monitor",[0xc9]="mwait", +[0xd8]="vmrun",[0xd9]="vmmcall",[0xda]="vmload",[0xdb]="vmsave", +[0xdc]="stgi",[0xdd]="clgi",[0xde]="skinit",[0xdf]="invlpga", +[0xf8]="swapgs",[0xf9]="rdtscp", +} + +-- Map for FP opcodes. And you thought stack machines are simple? +local map_opcfp = { +-- D8-DF 00-BF: opcodes with a memory operand. +-- D8 +[0]="faddFm","fmulFm","fcomFm","fcompFm","fsubFm","fsubrFm","fdivFm","fdivrFm", +"fldFm",nil,"fstFm","fstpFm","fldenvVm","fldcwWm","fnstenvVm","fnstcwWm", +-- DA +"fiaddDm","fimulDm","ficomDm","ficompDm", +"fisubDm","fisubrDm","fidivDm","fidivrDm", +-- DB +"fildDm","fisttpDm","fistDm","fistpDm",nil,"fld twordFmp",nil,"fstp twordFmp", +-- DC +"faddGm","fmulGm","fcomGm","fcompGm","fsubGm","fsubrGm","fdivGm","fdivrGm", +-- DD +"fldGm","fisttpQm","fstGm","fstpGm","frstorDmp",nil,"fnsaveDmp","fnstswWm", +-- DE +"fiaddWm","fimulWm","ficomWm","ficompWm", +"fisubWm","fisubrWm","fidivWm","fidivrWm", +-- DF +"fildWm","fisttpWm","fistWm","fistpWm", +"fbld twordFmp","fildQm","fbstp twordFmp","fistpQm", +-- xx C0-FF: opcodes with a pseudo-register operand. +-- D8 +"faddFf","fmulFf","fcomFf","fcompFf","fsubFf","fsubrFf","fdivFf","fdivrFf", +-- D9 +"fldFf","fxchFf",{"fnop"},nil, +{"fchs","fabs",nil,nil,"ftst","fxam"}, +{"fld1","fldl2t","fldl2e","fldpi","fldlg2","fldln2","fldz"}, +{"f2xm1","fyl2x","fptan","fpatan","fxtract","fprem1","fdecstp","fincstp"}, +{"fprem","fyl2xp1","fsqrt","fsincos","frndint","fscale","fsin","fcos"}, +-- DA +"fcmovbFf","fcmoveFf","fcmovbeFf","fcmovuFf",nil,{nil,"fucompp"},nil,nil, +-- DB +"fcmovnbFf","fcmovneFf","fcmovnbeFf","fcmovnuFf", +{nil,nil,"fnclex","fninit"},"fucomiFf","fcomiFf",nil, +-- DC +"fadd toFf","fmul toFf",nil,nil, +"fsub toFf","fsubr toFf","fdivr toFf","fdiv toFf", +-- DD +"ffreeFf",nil,"fstFf","fstpFf","fucomFf","fucompFf",nil,nil, +-- DE +"faddpFf","fmulpFf",nil,{nil,"fcompp"}, +"fsubrpFf","fsubpFf","fdivrpFf","fdivpFf", +-- DF +nil,nil,nil,nil,{"fnstsw ax"},"fucomipFf","fcomipFf",nil, +} +assert(map_opcfp[126] == "fcomipFf") + +-- Map for opcode groups. The subkey is sp from the ModRM byte. +local map_opcgroup = { + arith = { "add", "or", "adc", "sbb", "and", "sub", "xor", "cmp" }, + shift = { "rol", "ror", "rcl", "rcr", "shl", "shr", "sal", "sar" }, + testb = { "testBmi", "testBmi", "not", "neg", "mul", "imul", "div", "idiv" }, + testv = { "testVmi", "testVmi", "not", "neg", "mul", "imul", "div", "idiv" }, + incb = { "inc", "dec" }, + incd = { "inc", "dec", "callUmp", "$call farDmp", + "jmpUmp", "$jmp farDmp", "pushUm" }, + sldt = { "sldt", "str", "lldt", "ltr", "verr", "verw" }, + sgdt = { "vm*$sgdt", "vm*$sidt", "$lgdt", "vm*$lidt", + "smsw", nil, "lmsw", "vm*$invlpg" }, + bt = { nil, nil, nil, nil, "bt", "bts", "btr", "btc" }, + cmpxchg = { nil, "sz*,cmpxchg8bQmp,cmpxchg16bXmp", nil, nil, + nil, nil, "vmptrld|vmxon|vmclear", "vmptrst" }, + pshiftw = { nil, nil, "psrlw", nil, "psraw", nil, "psllw" }, + pshiftd = { nil, nil, "psrld", nil, "psrad", nil, "pslld" }, + pshiftq = { nil, nil, "psrlq", nil, nil, nil, "psllq" }, + pshiftdq = { nil, nil, "psrlq", "psrldq", nil, nil, "psllq", "pslldq" }, + fxsave = { "$fxsave", "$fxrstor", "$ldmxcsr", "$stmxcsr", + nil, "lfenceDp$", "mfenceDp$", "sfenceDp$clflush" }, + prefetch = { "prefetch", "prefetchw" }, + prefetcht = { "prefetchnta", "prefetcht0", "prefetcht1", "prefetcht2" }, +} + +------------------------------------------------------------------------------ + +-- Maps for register names. +local map_regs = { + B = { "al", "cl", "dl", "bl", "ah", "ch", "dh", "bh", + "r8b", "r9b", "r10b", "r11b", "r12b", "r13b", "r14b", "r15b" }, + B64 = { "al", "cl", "dl", "bl", "spl", "bpl", "sil", "dil", + "r8b", "r9b", "r10b", "r11b", "r12b", "r13b", "r14b", "r15b" }, + W = { "ax", "cx", "dx", "bx", "sp", "bp", "si", "di", + "r8w", "r9w", "r10w", "r11w", "r12w", "r13w", "r14w", "r15w" }, + D = { "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi", + "r8d", "r9d", "r10d", "r11d", "r12d", "r13d", "r14d", "r15d" }, + Q = { "rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi", + "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15" }, + M = { "mm0", "mm1", "mm2", "mm3", "mm4", "mm5", "mm6", "mm7", + "mm0", "mm1", "mm2", "mm3", "mm4", "mm5", "mm6", "mm7" }, -- No x64 ext! + X = { "xmm0", "xmm1", "xmm2", "xmm3", "xmm4", "xmm5", "xmm6", "xmm7", + "xmm8", "xmm9", "xmm10", "xmm11", "xmm12", "xmm13", "xmm14", "xmm15" }, +} +local map_segregs = { "es", "cs", "ss", "ds", "fs", "gs", "segr6", "segr7" } + +-- Maps for size names. +local map_sz2n = { + B = 1, W = 2, D = 4, Q = 8, M = 8, X = 16, +} +local map_sz2prefix = { + B = "byte", W = "word", D = "dword", + Q = "qword", + M = "qword", X = "xword", + F = "dword", G = "qword", -- No need for sizes/register names for these two. +} + +------------------------------------------------------------------------------ + +-- Output a nicely formatted line with an opcode and operands. +local function putop(ctx, text, operands) + local code, pos, hex = ctx.code, ctx.pos, "" + local hmax = ctx.hexdump + if hmax > 0 then + for i=ctx.start,pos-1 do + hex = hex..format("%02X", byte(code, i, i)) + end + if #hex > hmax then hex = sub(hex, 1, hmax)..". " + else hex = hex..rep(" ", hmax-#hex+2) end + end + if operands then text = text.." "..operands end + if ctx.o16 then text = "o16 "..text; ctx.o16 = false end + if ctx.a32 then text = "a32 "..text; ctx.a32 = false end + if ctx.rep then text = ctx.rep.." "..text; ctx.rep = false end + if ctx.rex then + local t = (ctx.rexw and "w" or "")..(ctx.rexr and "r" or "").. + (ctx.rexx and "x" or "")..(ctx.rexb and "b" or "") + if t ~= "" then text = "rex."..t.." "..text end + ctx.rexw = false; ctx.rexr = false; ctx.rexx = false; ctx.rexb = false + ctx.rex = false + end + if ctx.seg then + local text2, n = gsub(text, "%[", "["..ctx.seg..":") + if n == 0 then text = ctx.seg.." "..text else text = text2 end + ctx.seg = false + end + if ctx.lock then text = "lock "..text; ctx.lock = false end + local imm = ctx.imm + if imm then + local sym = ctx.symtab[imm] + if sym then text = text.."\t->"..sym end + end + ctx.out(format("%08x %s%s\n", ctx.addr+ctx.start, hex, text)) + ctx.mrm = false + ctx.start = pos + ctx.imm = nil +end + +-- Clear all prefix flags. +local function clearprefixes(ctx) + ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false + ctx.rexw = false; ctx.rexr = false; ctx.rexx = false; ctx.rexb = false + ctx.rex = false; ctx.a32 = false +end + +-- Fallback for incomplete opcodes at the end. +local function incomplete(ctx) + ctx.pos = ctx.stop+1 + clearprefixes(ctx) + return putop(ctx, "(incomplete)") +end + +-- Fallback for unknown opcodes. +local function unknown(ctx) + clearprefixes(ctx) + return putop(ctx, "(unknown)") +end + +-- Return an immediate of the specified size. +local function getimm(ctx, pos, n) + if pos+n-1 > ctx.stop then return incomplete(ctx) end + local code = ctx.code + if n == 1 then + local b1 = byte(code, pos, pos) + return b1 + elseif n == 2 then + local b1, b2 = byte(code, pos, pos+1) + return b1+b2*256 + else + local b1, b2, b3, b4 = byte(code, pos, pos+3) + local imm = b1+b2*256+b3*65536+b4*16777216 + ctx.imm = imm + return imm + end +end + +-- Process pattern string and generate the operands. +local function putpat(ctx, name, pat) + local operands, regs, sz, mode, sp, rm, sc, rx, sdisp + local code, pos, stop = ctx.code, ctx.pos, ctx.stop + + -- Chars used: 1DFGIMPQRSTUVWXacdfgijmoprstuwxyz + for p in gmatch(pat, ".") do + local x = nil + if p == "V" or p == "U" then + if ctx.rexw then sz = "Q"; ctx.rexw = false + elseif ctx.o16 then sz = "W"; ctx.o16 = false + elseif p == "U" and ctx.x64 then sz = "Q" + else sz = "D" end + regs = map_regs[sz] + elseif p == "T" then + if ctx.rexw then sz = "Q"; ctx.rexw = false else sz = "D" end + regs = map_regs[sz] + elseif p == "B" then + sz = "B" + regs = ctx.rex and map_regs.B64 or map_regs.B + elseif match(p, "[WDQMXFG]") then + sz = p + regs = map_regs[sz] + elseif p == "P" then + sz = ctx.o16 and "X" or "M"; ctx.o16 = false + regs = map_regs[sz] + elseif p == "S" then + name = name..lower(sz) + elseif p == "s" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = imm <= 127 and format("+0x%02x", imm) + or format("-0x%02x", 256-imm) + pos = pos+1 + elseif p == "u" then + local imm = getimm(ctx, pos, 1); if not imm then return end + x = format("0x%02x", imm) + pos = pos+1 + elseif p == "w" then + local imm = getimm(ctx, pos, 2); if not imm then return end + x = format("0x%x", imm) + pos = pos+2 + elseif p == "o" then -- [offset] + if ctx.x64 then + local imm1 = getimm(ctx, pos, 4); if not imm1 then return end + local imm2 = getimm(ctx, pos+4, 4); if not imm2 then return end + x = format("[0x%08x%08x]", imm2, imm1) + pos = pos+8 + else + local imm = getimm(ctx, pos, 4); if not imm then return end + x = format("[0x%08x]", imm) + pos = pos+4 + end + elseif p == "i" or p == "I" then + local n = map_sz2n[sz] + if n == 8 and ctx.x64 and p == "I" then + local imm1 = getimm(ctx, pos, 4); if not imm1 then return end + local imm2 = getimm(ctx, pos+4, 4); if not imm2 then return end + x = format("0x%08x%08x", imm2, imm1) + else + if n == 8 then n = 4 end + local imm = getimm(ctx, pos, n); if not imm then return end + if sz == "Q" and (imm < 0 or imm > 0x7fffffff) then + imm = (0xffffffff+1)-imm + x = format(imm > 65535 and "-0x%08x" or "-0x%x", imm) + else + x = format(imm > 65535 and "0x%08x" or "0x%x", imm) + end + end + pos = pos+n + elseif p == "j" then + local n = map_sz2n[sz] + if n == 8 then n = 4 end + local imm = getimm(ctx, pos, n); if not imm then return end + if sz == "B" and imm > 127 then imm = imm-256 + elseif imm > 2147483647 then imm = imm-4294967296 end + pos = pos+n + imm = imm + pos + ctx.addr + if imm > 4294967295 and not ctx.x64 then imm = imm-4294967296 end + ctx.imm = imm + if sz == "W" then + x = format("word 0x%04x", imm%65536) + elseif ctx.x64 then + local lo = imm % 0x1000000 + x = format("0x%02x%06x", (imm-lo) / 0x1000000, lo) + else + x = format("0x%08x", imm) + end + elseif p == "R" then + local r = byte(code, pos-1, pos-1)%8 + if ctx.rexb then r = r + 8; ctx.rexb = false end + x = regs[r+1] + elseif p == "a" then x = regs[1] + elseif p == "c" then x = "cl" + elseif p == "d" then x = "dx" + elseif p == "1" then x = "1" + else + if not mode then + mode = ctx.mrm + if not mode then + if pos > stop then return incomplete(ctx) end + mode = byte(code, pos, pos) + pos = pos+1 + end + rm = mode%8; mode = (mode-rm)/8 + sp = mode%8; mode = (mode-sp)/8 + sdisp = "" + if mode < 3 then + if rm == 4 then + if pos > stop then return incomplete(ctx) end + sc = byte(code, pos, pos) + pos = pos+1 + rm = sc%8; sc = (sc-rm)/8 + rx = sc%8; sc = (sc-rx)/8 + if ctx.rexx then rx = rx + 8; ctx.rexx = false end + if rx == 4 then rx = nil end + end + if mode > 0 or rm == 5 then + local dsz = mode + if dsz ~= 1 then dsz = 4 end + local disp = getimm(ctx, pos, dsz); if not disp then return end + if mode == 0 then rm = nil end + if rm or rx or (not sc and ctx.x64 and not ctx.a32) then + if dsz == 1 and disp > 127 then + sdisp = format("-0x%x", 256-disp) + elseif disp >= 0 and disp <= 0x7fffffff then + sdisp = format("+0x%x", disp) + else + sdisp = format("-0x%x", (0xffffffff+1)-disp) + end + else + sdisp = format(ctx.x64 and not ctx.a32 and + not (disp >= 0 and disp <= 0x7fffffff) + and "0xffffffff%08x" or "0x%08x", disp) + end + pos = pos+dsz + end + end + if rm and ctx.rexb then rm = rm + 8; ctx.rexb = false end + if ctx.rexr then sp = sp + 8; ctx.rexr = false end + end + if p == "m" then + if mode == 3 then x = regs[rm+1] + else + local aregs = ctx.a32 and map_regs.D or ctx.aregs + local srm, srx = "", "" + if rm then srm = aregs[rm+1] + elseif not sc and ctx.x64 and not ctx.a32 then srm = "rip" end + ctx.a32 = false + if rx then + if rm then srm = srm.."+" end + srx = aregs[rx+1] + if sc > 0 then srx = srx.."*"..(2^sc) end + end + x = format("[%s%s%s]", srm, srx, sdisp) + end + if mode < 3 and + (not match(pat, "[aRrgp]") or match(pat, "t")) then -- Yuck. + x = map_sz2prefix[sz].." "..x + end + elseif p == "r" then x = regs[sp+1] + elseif p == "g" then x = map_segregs[sp+1] + elseif p == "p" then -- Suppress prefix. + elseif p == "f" then x = "st"..rm + elseif p == "x" then + if sp == 0 and ctx.lock and not ctx.x64 then + x = "CR8"; ctx.lock = false + else + x = "CR"..sp + end + elseif p == "y" then x = "DR"..sp + elseif p == "z" then x = "TR"..sp + elseif p == "t" then + else + error("bad pattern `"..pat.."'") + end + end + if x then operands = operands and operands..", "..x or x end + end + ctx.pos = pos + return putop(ctx, name, operands) +end + +-- Forward declaration. +local map_act + +-- Fetch and cache MRM byte. +local function getmrm(ctx) + local mrm = ctx.mrm + if not mrm then + local pos = ctx.pos + if pos > ctx.stop then return nil end + mrm = byte(ctx.code, pos, pos) + ctx.pos = pos+1 + ctx.mrm = mrm + end + return mrm +end + +-- Dispatch to handler depending on pattern. +local function dispatch(ctx, opat, patgrp) + if not opat then return unknown(ctx) end + if match(opat, "%|") then -- MMX/SSE variants depending on prefix. + local p + if ctx.rep then + p = ctx.rep=="rep" and "%|([^%|]*)" or "%|[^%|]*%|[^%|]*%|([^%|]*)" + ctx.rep = false + elseif ctx.o16 then p = "%|[^%|]*%|([^%|]*)"; ctx.o16 = false + else p = "^[^%|]*" end + opat = match(opat, p) + if not opat then return unknown(ctx) end +-- ctx.rep = false; ctx.o16 = false + --XXX fails for 66 f2 0f 38 f1 06 crc32 eax,WORD PTR [esi] + --XXX remove in branches? + end + if match(opat, "%$") then -- reg$mem variants. + local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end + opat = match(opat, mrm >= 192 and "^[^%$]*" or "%$(.*)") + if opat == "" then return unknown(ctx) end + end + if opat == "" then return unknown(ctx) end + local name, pat = match(opat, "^([a-z0-9 ]*)(.*)") + if pat == "" and patgrp then pat = patgrp end + return map_act[sub(pat, 1, 1)](ctx, name, pat) +end + +-- Get a pattern from an opcode map and dispatch to handler. +local function dispatchmap(ctx, opcmap) + local pos = ctx.pos + local opat = opcmap[byte(ctx.code, pos, pos)] + pos = pos + 1 + ctx.pos = pos + return dispatch(ctx, opat) +end + +-- Map for action codes. The key is the first char after the name. +map_act = { + -- Simple opcodes without operands. + [""] = function(ctx, name, pat) + return putop(ctx, name) + end, + + -- Operand size chars fall right through. + B = putpat, W = putpat, D = putpat, Q = putpat, + V = putpat, U = putpat, T = putpat, + M = putpat, X = putpat, P = putpat, + F = putpat, G = putpat, + + -- Collect prefixes. + [":"] = function(ctx, name, pat) + ctx[pat == ":" and name or sub(pat, 2)] = name + if ctx.pos - ctx.start > 5 then return unknown(ctx) end -- Limit #prefixes. + end, + + -- Chain to special handler specified by name. + ["*"] = function(ctx, name, pat) + return map_act[name](ctx, name, sub(pat, 2)) + end, + + -- Use named subtable for opcode group. + ["!"] = function(ctx, name, pat) + local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end + return dispatch(ctx, map_opcgroup[name][((mrm-(mrm%8))/8)%8+1], sub(pat, 2)) + end, + + -- o16,o32[,o64] variants. + sz = function(ctx, name, pat) + if ctx.o16 then ctx.o16 = false + else + pat = match(pat, ",(.*)") + if ctx.rexw then + local p = match(pat, ",(.*)") + if p then pat = p; ctx.rexw = false end + end + end + pat = match(pat, "^[^,]*") + return dispatch(ctx, pat) + end, + + -- Two-byte opcode dispatch. + opc2 = function(ctx, name, pat) + return dispatchmap(ctx, map_opc2) + end, + + -- Three-byte opcode dispatch. + opc3 = function(ctx, name, pat) + return dispatchmap(ctx, map_opc3[pat]) + end, + + -- VMX/SVM dispatch. + vm = function(ctx, name, pat) + return dispatch(ctx, map_opcvm[ctx.mrm]) + end, + + -- Floating point opcode dispatch. + fp = function(ctx, name, pat) + local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end + local rm = mrm%8 + local idx = pat*8 + ((mrm-rm)/8)%8 + if mrm >= 192 then idx = idx + 64 end + local opat = map_opcfp[idx] + if type(opat) == "table" then opat = opat[rm+1] end + return dispatch(ctx, opat) + end, + + -- REX prefix. + rex = function(ctx, name, pat) + if ctx.rex then return unknown(ctx) end -- Only 1 REX prefix allowed. + for p in gmatch(pat, ".") do ctx["rex"..p] = true end + ctx.rex = true + end, + + -- Special case for nop with REX prefix. + nop = function(ctx, name, pat) + return dispatch(ctx, ctx.rex and pat or "nop") + end, +} + +------------------------------------------------------------------------------ + +-- Disassemble a block of code. +local function disass_block(ctx, ofs, len) + if not ofs then ofs = 0 end + local stop = len and ofs+len or #ctx.code + ofs = ofs + 1 + ctx.start = ofs + ctx.pos = ofs + ctx.stop = stop + ctx.imm = nil + ctx.mrm = false + clearprefixes(ctx) + while ctx.pos <= stop do dispatchmap(ctx, ctx.map1) end + if ctx.pos ~= ctx.start then incomplete(ctx) end +end + +-- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). +local function create_(code, addr, out) + local ctx = {} + ctx.code = code + ctx.addr = (addr or 0) - 1 + ctx.out = out or io.write + ctx.symtab = {} + ctx.disass = disass_block + ctx.hexdump = 16 + ctx.x64 = false + ctx.map1 = map_opc1_32 + ctx.aregs = map_regs.D + return ctx +end + +local function create64_(code, addr, out) + local ctx = create_(code, addr, out) + ctx.x64 = true + ctx.map1 = map_opc1_64 + ctx.aregs = map_regs.Q + return ctx +end + +-- Simple API: disassemble code (a string) at address and output via out. +local function disass_(code, addr, out) + create_(code, addr, out):disass() +end + +local function disass64_(code, addr, out) + create64_(code, addr, out):disass() +end + +-- Return register name for RID. +local function regname_(r) + if r < 8 then return map_regs.D[r+1] end + return map_regs.X[r-7] +end + +local function regname64_(r) + if r < 16 then return map_regs.Q[r+1] end + return map_regs.X[r-15] +end + +-- Public module functions. +module(...) + +create = create_ +create64 = create64_ +disass = disass_ +disass64 = disass64_ +regname = regname_ +regname64 = regname64_ + diff --git a/src/3rd party/luajit-2.0/src/jit/dump.lua b/src/3rd party/luajit-2.0/src/jit/dump.lua new file mode 100644 index 00000000000..589543f1fdd --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/dump.lua @@ -0,0 +1,699 @@ +---------------------------------------------------------------------------- +-- LuaJIT compiler dump module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- +-- This module can be used to debug the JIT compiler itself. It dumps the +-- code representations and structures used in various compiler stages. +-- +-- Example usage: +-- +-- luajit -jdump -e "local x=0; for i=1,1e6 do x=x+i end; print(x)" +-- luajit -jdump=im -e "for i=1,1000 do for j=1,1000 do end end" | less -R +-- luajit -jdump=is myapp.lua | less -R +-- luajit -jdump=-b myapp.lua +-- luajit -jdump=+aH,myapp.html myapp.lua +-- luajit -jdump=ixT,myapp.dump myapp.lua +-- +-- The first argument specifies the dump mode. The second argument gives +-- the output file name. Default output is to stdout, unless the environment +-- variable LUAJIT_DUMPFILE is set. The file is overwritten every time the +-- module is started. +-- +-- Different features can be turned on or off with the dump mode. If the +-- mode starts with a '+', the following features are added to the default +-- set of features; a '-' removes them. Otherwise the features are replaced. +-- +-- The following dump features are available (* marks the default): +-- +-- * t Print a line for each started, ended or aborted trace (see also -jv). +-- * b Dump the traced bytecode. +-- * i Dump the IR (intermediate representation). +-- r Augment the IR with register/stack slots. +-- s Dump the snapshot map. +-- * m Dump the generated machine code. +-- x Print each taken trace exit. +-- X Print each taken trace exit and the contents of all registers. +-- a Print the IR of aborted traces, too. +-- +-- The output format can be set with the following characters: +-- +-- T Plain text output. +-- A ANSI-colored text output +-- H Colorized HTML + CSS output. +-- +-- The default output format is plain text. It's set to ANSI-colored text +-- if the COLORTERM variable is set. Note: this is independent of any output +-- redirection, which is actually considered a feature. +-- +-- You probably want to use less -R to enjoy viewing ANSI-colored text from +-- a pipe or a file. Add this to your ~/.bashrc: export LESS="-R" +-- +------------------------------------------------------------------------------ + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local vmdef = require("jit.vmdef") +local funcinfo, funcbc = jutil.funcinfo, jutil.funcbc +local traceinfo, traceir, tracek = jutil.traceinfo, jutil.traceir, jutil.tracek +local tracemc, tracesnap = jutil.tracemc, jutil.tracesnap +local traceexitstub, ircalladdr = jutil.traceexitstub, jutil.ircalladdr +local bit = require("bit") +local band, shl, shr = bit.band, bit.lshift, bit.rshift +local sub, gsub, format = string.sub, string.gsub, string.format +local byte, char, rep = string.byte, string.char, string.rep +local type, tostring = type, tostring +local stdout, stderr = io.stdout, io.stderr + +-- Load other modules on-demand. +local bcline, disass + +-- Active flag, output file handle and dump mode. +local active, out, dumpmode + +------------------------------------------------------------------------------ + +local symtabmt = { __index = false } +local symtab = {} +local nexitsym = 0 + +-- Fill nested symbol table with per-trace exit stub addresses. +local function fillsymtab_tr(tr, nexit) + local t = {} + symtabmt.__index = t + if jit.arch == "mips" or jit.arch == "mipsel" then + t[traceexitstub(tr, 0)] = "exit" + return + end + for i=0,nexit-1 do + local addr = traceexitstub(tr, i) + t[addr] = tostring(i) + end + local addr = traceexitstub(tr, nexit) + if addr then t[addr] = "stack_check" end +end + +-- Fill symbol table with trace exit stub addresses. +local function fillsymtab(tr, nexit) + local t = symtab + if nexitsym == 0 then + local ircall = vmdef.ircall + for i=0,#ircall do + local addr = ircalladdr(i) + if addr ~= 0 then t[addr] = ircall[i] end + end + end + if nexitsym == 1000000 then -- Per-trace exit stubs. + fillsymtab_tr(tr, nexit) + elseif nexit > nexitsym then -- Shared exit stubs. + for i=nexitsym,nexit-1 do + local addr = traceexitstub(i) + if addr == nil then -- Fall back to per-trace exit stubs. + fillsymtab_tr(tr, nexit) + setmetatable(symtab, symtabmt) + nexit = 1000000 + break + end + t[addr] = tostring(i) + end + nexitsym = nexit + end + return t +end + +local function dumpwrite(s) + out:write(s) +end + +-- Disassemble machine code. +local function dump_mcode(tr) + local info = traceinfo(tr) + if not info then return end + local mcode, addr, loop = tracemc(tr) + if not mcode then return end + if not disass then disass = require("jit.dis_"..jit.arch) end + out:write("---- TRACE ", tr, " mcode ", #mcode, "\n") + local ctx = disass.create(mcode, addr, dumpwrite) + ctx.hexdump = 0 + ctx.symtab = fillsymtab(tr, info.nexit) + if loop ~= 0 then + symtab[addr+loop] = "LOOP" + ctx:disass(0, loop) + out:write("->LOOP:\n") + ctx:disass(loop, #mcode-loop) + symtab[addr+loop] = nil + else + ctx:disass(0, #mcode) + end +end + +------------------------------------------------------------------------------ + +local irtype_text = { + [0] = "nil", + "fal", + "tru", + "lud", + "str", + "p32", + "thr", + "pro", + "fun", + "p64", + "cdt", + "tab", + "udt", + "flt", + "num", + "i8 ", + "u8 ", + "i16", + "u16", + "int", + "u32", + "i64", + "u64", + "sfp", +} + +local colortype_ansi = { + [0] = "%s", + "%s", + "%s", + "\027[36m%s\027[m", + "\027[32m%s\027[m", + "%s", + "\027[1m%s\027[m", + "%s", + "\027[1m%s\027[m", + "%s", + "\027[33m%s\027[m", + "\027[31m%s\027[m", + "\027[36m%s\027[m", + "\027[34m%s\027[m", + "\027[34m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", + "\027[35m%s\027[m", +} + +local function colorize_text(s, t) + return s +end + +local function colorize_ansi(s, t) + return format(colortype_ansi[t], s) +end + +local irtype_ansi = setmetatable({}, + { __index = function(tab, t) + local s = colorize_ansi(irtype_text[t], t); tab[t] = s; return s; end }) + +local html_escape = { ["<"] = "<", [">"] = ">", ["&"] = "&", } + +local function colorize_html(s, t) + s = gsub(s, "[<>&]", html_escape) + return format('%s', irtype_text[t], s) +end + +local irtype_html = setmetatable({}, + { __index = function(tab, t) + local s = colorize_html(irtype_text[t], t); tab[t] = s; return s; end }) + +local header_html = [[ + +]] + +local colorize, irtype + +-- Lookup tables to convert some literals into names. +local litname = { + ["SLOAD "] = setmetatable({}, { __index = function(t, mode) + local s = "" + if band(mode, 1) ~= 0 then s = s.."P" end + if band(mode, 2) ~= 0 then s = s.."F" end + if band(mode, 4) ~= 0 then s = s.."T" end + if band(mode, 8) ~= 0 then s = s.."C" end + if band(mode, 16) ~= 0 then s = s.."R" end + if band(mode, 32) ~= 0 then s = s.."I" end + t[mode] = s + return s + end}), + ["XLOAD "] = { [0] = "", "R", "V", "RV", "U", "RU", "VU", "RVU", }, + ["CONV "] = setmetatable({}, { __index = function(t, mode) + local s = irtype[band(mode, 31)] + s = irtype[band(shr(mode, 5), 31)].."."..s + if band(mode, 0x400) ~= 0 then s = s.." trunc" + elseif band(mode, 0x800) ~= 0 then s = s.." sext" end + local c = shr(mode, 14) + if c == 2 then s = s.." index" elseif c == 3 then s = s.." check" end + t[mode] = s + return s + end}), + ["FLOAD "] = vmdef.irfield, + ["FREF "] = vmdef.irfield, + ["FPMATH"] = vmdef.irfpm, +} + +local function ctlsub(c) + if c == "\n" then return "\\n" + elseif c == "\r" then return "\\r" + elseif c == "\t" then return "\\t" + else return format("\\%03d", byte(c)) + end +end + +local function fmtfunc(func, pc) + local fi = funcinfo(func, pc) + if fi.loc then + return fi.loc + elseif fi.ffid then + return vmdef.ffnames[fi.ffid] + elseif fi.addr then + return format("C:%x", fi.addr) + else + return "(?)" + end +end + +local function formatk(tr, idx) + local k, t, slot = tracek(tr, idx) + local tn = type(k) + local s + if tn == "number" then + if k == 2^52+2^51 then + s = "bias" + else + s = format("%+.14g", k) + end + elseif tn == "string" then + s = format(#k > 20 and '"%.20s"~' or '"%s"', gsub(k, "%c", ctlsub)) + elseif tn == "function" then + s = fmtfunc(k) + elseif tn == "table" then + s = format("{%p}", k) + elseif tn == "userdata" then + if t == 12 then + s = format("userdata:%p", k) + else + s = format("[%p]", k) + if s == "[0x00000000]" then s = "NULL" end + end + elseif t == 21 then -- int64_t + s = sub(tostring(k), 1, -3) + if sub(s, 1, 1) ~= "-" then s = "+"..s end + else + s = tostring(k) -- For primitives. + end + s = colorize(format("%-4s", s), t) + if slot then + s = format("%s @%d", s, slot) + end + return s +end + +local function printsnap(tr, snap) + local n = 2 + for s=0,snap[1]-1 do + local sn = snap[n] + if shr(sn, 24) == s then + n = n + 1 + local ref = band(sn, 0xffff) - 0x8000 -- REF_BIAS + if ref < 0 then + out:write(formatk(tr, ref)) + elseif band(sn, 0x80000) ~= 0 then -- SNAP_SOFTFPNUM + out:write(colorize(format("%04d/%04d", ref, ref+1), 14)) + else + local m, ot, op1, op2 = traceir(tr, ref) + out:write(colorize(format("%04d", ref), band(ot, 31))) + end + out:write(band(sn, 0x10000) == 0 and " " or "|") -- SNAP_FRAME + else + out:write("---- ") + end + end + out:write("]\n") +end + +-- Dump snapshots (not interleaved with IR). +local function dump_snap(tr) + out:write("---- TRACE ", tr, " snapshots\n") + for i=0,1000000000 do + local snap = tracesnap(tr, i) + if not snap then break end + out:write(format("#%-3d %04d [ ", i, snap[0])) + printsnap(tr, snap) + end +end + +-- Return a register name or stack slot for a rid/sp location. +local function ridsp_name(ridsp, ins) + if not disass then disass = require("jit.dis_"..jit.arch) end + local rid, slot = band(ridsp, 0xff), shr(ridsp, 8) + if rid == 253 or rid == 254 then + return (slot == 0 or slot == 255) and " {sink" or format(" {%04d", ins-slot) + end + if ridsp > 255 then return format("[%x]", slot*4) end + if rid < 128 then return disass.regname(rid) end + return "" +end + +-- Dump CALL* function ref and return optional ctype. +local function dumpcallfunc(tr, ins) + local ctype + if ins > 0 then + local m, ot, op1, op2 = traceir(tr, ins) + if band(ot, 31) == 0 then -- nil type means CARG(func, ctype). + ins = op1 + ctype = formatk(tr, op2) + end + end + if ins < 0 then + out:write(format("[0x%x](", tonumber((tracek(tr, ins))))) + else + out:write(format("%04d (", ins)) + end + return ctype +end + +-- Recursively gather CALL* args and dump them. +local function dumpcallargs(tr, ins) + if ins < 0 then + out:write(formatk(tr, ins)) + else + local m, ot, op1, op2 = traceir(tr, ins) + local oidx = 6*shr(ot, 8) + local op = sub(vmdef.irnames, oidx+1, oidx+6) + if op == "CARG " then + dumpcallargs(tr, op1) + if op2 < 0 then + out:write(" ", formatk(tr, op2)) + else + out:write(" ", format("%04d", op2)) + end + else + out:write(format("%04d", ins)) + end + end +end + +-- Dump IR and interleaved snapshots. +local function dump_ir(tr, dumpsnap, dumpreg) + local info = traceinfo(tr) + if not info then return end + local nins = info.nins + out:write("---- TRACE ", tr, " IR\n") + local irnames = vmdef.irnames + local snapref = 65536 + local snap, snapno + if dumpsnap then + snap = tracesnap(tr, 0) + snapref = snap[0] + snapno = 0 + end + for ins=1,nins do + if ins >= snapref then + if dumpreg then + out:write(format(".... SNAP #%-3d [ ", snapno)) + else + out:write(format(".... SNAP #%-3d [ ", snapno)) + end + printsnap(tr, snap) + snapno = snapno + 1 + snap = tracesnap(tr, snapno) + snapref = snap and snap[0] or 65536 + end + local m, ot, op1, op2, ridsp = traceir(tr, ins) + local oidx, t = 6*shr(ot, 8), band(ot, 31) + local op = sub(irnames, oidx+1, oidx+6) + if op == "LOOP " then + if dumpreg then + out:write(format("%04d ------------ LOOP ------------\n", ins)) + else + out:write(format("%04d ------ LOOP ------------\n", ins)) + end + elseif op ~= "NOP " and op ~= "CARG " and + (dumpreg or op ~= "RENAME") then + local rid = band(ridsp, 255) + if dumpreg then + out:write(format("%04d %-6s", ins, ridsp_name(ridsp, ins))) + else + out:write(format("%04d ", ins)) + end + out:write(format("%s%s %s %s ", + (rid == 254 or rid == 253) and "}" or + (band(ot, 128) == 0 and " " or ">"), + band(ot, 64) == 0 and " " or "+", + irtype[t], op)) + local m1, m2 = band(m, 3), band(m, 3*4) + if sub(op, 1, 4) == "CALL" then + local ctype + if m2 == 1*4 then -- op2 == IRMlit + out:write(format("%-10s (", vmdef.ircall[op2])) + else + ctype = dumpcallfunc(tr, op2) + end + if op1 ~= -1 then dumpcallargs(tr, op1) end + out:write(")") + if ctype then out:write(" ctype ", ctype) end + elseif op == "CNEW " and op2 == -1 then + out:write(formatk(tr, op1)) + elseif m1 ~= 3 then -- op1 != IRMnone + if op1 < 0 then + out:write(formatk(tr, op1)) + else + out:write(format(m1 == 0 and "%04d" or "#%-3d", op1)) + end + if m2 ~= 3*4 then -- op2 != IRMnone + if m2 == 1*4 then -- op2 == IRMlit + local litn = litname[op] + if litn and litn[op2] then + out:write(" ", litn[op2]) + elseif op == "UREFO " or op == "UREFC " then + out:write(format(" #%-3d", shr(op2, 8))) + else + out:write(format(" #%-3d", op2)) + end + elseif op2 < 0 then + out:write(" ", formatk(tr, op2)) + else + out:write(format(" %04d", op2)) + end + end + end + out:write("\n") + end + end + if snap then + if dumpreg then + out:write(format(".... SNAP #%-3d [ ", snapno)) + else + out:write(format(".... SNAP #%-3d [ ", snapno)) + end + printsnap(tr, snap) + end +end + +------------------------------------------------------------------------------ + +local recprefix = "" +local recdepth = 0 + +-- Format trace error message. +local function fmterr(err, info) + if type(err) == "number" then + if type(info) == "function" then info = fmtfunc(info) end + err = format(vmdef.traceerr[err], info) + end + return err +end + +-- Dump trace states. +local function dump_trace(what, tr, func, pc, otr, oex) + if what == "stop" or (what == "abort" and dumpmode.a) then + if dumpmode.i then dump_ir(tr, dumpmode.s, dumpmode.r and what == "stop") + elseif dumpmode.s then dump_snap(tr) end + if dumpmode.m then dump_mcode(tr) end + end + if what == "start" then + if dumpmode.H then out:write('
\n') end
+    out:write("---- TRACE ", tr, " ", what)
+    if otr then out:write(" ", otr, "/", oex) end
+    out:write(" ", fmtfunc(func, pc), "\n")
+  elseif what == "stop" or what == "abort" then
+    out:write("---- TRACE ", tr, " ", what)
+    if what == "abort" then
+      out:write(" ", fmtfunc(func, pc), " -- ", fmterr(otr, oex), "\n")
+    else
+      local info = traceinfo(tr)
+      local link, ltype = info.link, info.linktype
+      if link == tr or link == 0 then
+	out:write(" -> ", ltype, "\n")
+      elseif ltype == "root" then
+	out:write(" -> ", link, "\n")
+      else
+	out:write(" -> ", link, " ", ltype, "\n")
+      end
+    end
+    if dumpmode.H then out:write("
\n\n") else out:write("\n") end + else + out:write("---- TRACE ", what, "\n\n") + end + out:flush() +end + +-- Dump recorded bytecode. +local function dump_record(tr, func, pc, depth, callee) + if depth ~= recdepth then + recdepth = depth + recprefix = rep(" .", depth) + end + local line + if pc >= 0 then + line = bcline(func, pc, recprefix) + if dumpmode.H then line = gsub(line, "[<>&]", html_escape) end + else + line = "0000 "..recprefix.." FUNCC \n" + callee = func + end + if pc <= 0 then + out:write(sub(line, 1, -2), " ; ", fmtfunc(func), "\n") + else + out:write(line) + end + if pc >= 0 and band(funcbc(func, pc), 0xff) < 16 then -- ORDER BC + out:write(bcline(func, pc+1, recprefix)) -- Write JMP for cond. + end +end + +------------------------------------------------------------------------------ + +-- Dump taken trace exits. +local function dump_texit(tr, ex, ngpr, nfpr, ...) + out:write("---- TRACE ", tr, " exit ", ex, "\n") + if dumpmode.X then + local regs = {...} + if jit.arch == "x64" then + for i=1,ngpr do + out:write(format(" %016x", regs[i])) + if i % 4 == 0 then out:write("\n") end + end + else + for i=1,ngpr do + out:write(format(" %08x", regs[i])) + if i % 8 == 0 then out:write("\n") end + end + end + if jit.arch == "mips" or jit.arch == "mipsel" then + for i=1,nfpr,2 do + out:write(format(" %+17.14g", regs[ngpr+i])) + if i % 8 == 7 then out:write("\n") end + end + else + for i=1,nfpr do + out:write(format(" %+17.14g", regs[ngpr+i])) + if i % 4 == 0 then out:write("\n") end + end + end + end +end + +------------------------------------------------------------------------------ + +-- Detach dump handlers. +local function dumpoff() + if active then + active = false + jit.attach(dump_texit) + jit.attach(dump_record) + jit.attach(dump_trace) + if out and out ~= stdout and out ~= stderr then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handlers. +local function dumpon(opt, outfile) + if active then dumpoff() end + + local colormode = os.getenv("COLORTERM") and "A" or "T" + if opt then + opt = gsub(opt, "[TAH]", function(mode) colormode = mode; return ""; end) + end + + local m = { t=true, b=true, i=true, m=true, } + if opt and opt ~= "" then + local o = sub(opt, 1, 1) + if o ~= "+" and o ~= "-" then m = {} end + for i=1,#opt do m[sub(opt, i, i)] = (o ~= "-") end + end + dumpmode = m + + if m.t or m.b or m.i or m.s or m.m then + jit.attach(dump_trace, "trace") + end + if m.b then + jit.attach(dump_record, "record") + if not bcline then bcline = require("jit.bc").line end + end + if m.x or m.X then + jit.attach(dump_texit, "texit") + end + + if not outfile then outfile = os.getenv("LUAJIT_DUMPFILE") end + if outfile then + out = outfile == "-" and stdout or assert(io.open(outfile, "w")) + else + out = stdout + end + + m[colormode] = true + if colormode == "A" then + colorize = colorize_ansi + irtype = irtype_ansi + elseif colormode == "H" then + colorize = colorize_html + irtype = irtype_html + out:write(header_html) + else + colorize = colorize_text + irtype = irtype_text + end + + active = true +end + +-- Public module functions. +module(...) + +on = dumpon +off = dumpoff +start = dumpon -- For -j command line option. + diff --git a/src/3rd party/luajit-2.0/src/jit/v.lua b/src/3rd party/luajit-2.0/src/jit/v.lua new file mode 100644 index 00000000000..c622443d96d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/v.lua @@ -0,0 +1,167 @@ +---------------------------------------------------------------------------- +-- Verbose mode of the LuaJIT compiler. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- +-- This module shows verbose information about the progress of the +-- JIT compiler. It prints one line for each generated trace. This module +-- is useful to see which code has been compiled or where the compiler +-- punts and falls back to the interpreter. +-- +-- Example usage: +-- +-- luajit -jv -e "for i=1,1000 do for j=1,1000 do end end" +-- luajit -jv=myapp.out myapp.lua +-- +-- Default output is to stderr. To redirect the output to a file, pass a +-- filename as an argument (use '-' for stdout) or set the environment +-- variable LUAJIT_VERBOSEFILE. The file is overwritten every time the +-- module is started. +-- +-- The output from the first example should look like this: +-- +-- [TRACE 1 (command line):1 loop] +-- [TRACE 2 (1/3) (command line):1 -> 1] +-- +-- The first number in each line is the internal trace number. Next are +-- the file name ('(command line)') and the line number (':1') where the +-- trace has started. Side traces also show the parent trace number and +-- the exit number where they are attached to in parentheses ('(1/3)'). +-- An arrow at the end shows where the trace links to ('-> 1'), unless +-- it loops to itself. +-- +-- In this case the inner loop gets hot and is traced first, generating +-- a root trace. Then the last exit from the 1st trace gets hot, too, +-- and triggers generation of the 2nd trace. The side trace follows the +-- path along the outer loop and *around* the inner loop, back to its +-- start, and then links to the 1st trace. Yes, this may seem unusual, +-- if you know how traditional compilers work. Trace compilers are full +-- of surprises like this -- have fun! :-) +-- +-- Aborted traces are shown like this: +-- +-- [TRACE --- foo.lua:44 -- leaving loop in root trace at foo:lua:50] +-- +-- Don't worry -- trace aborts are quite common, even in programs which +-- can be fully compiled. The compiler may retry several times until it +-- finds a suitable trace. +-- +-- Of course this doesn't work with features that are not-yet-implemented +-- (NYI error messages). The VM simply falls back to the interpreter. This +-- may not matter at all if the particular trace is not very high up in +-- the CPU usage profile. Oh, and the interpreter is quite fast, too. +-- +-- Also check out the -jdump module, which prints all the gory details. +-- +------------------------------------------------------------------------------ + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +local jutil = require("jit.util") +local vmdef = require("jit.vmdef") +local funcinfo, traceinfo = jutil.funcinfo, jutil.traceinfo +local type, format = type, string.format +local stdout, stderr = io.stdout, io.stderr + +-- Active flag and output file handle. +local active, out + +------------------------------------------------------------------------------ + +local startloc, startex + +local function fmtfunc(func, pc) + local fi = funcinfo(func, pc) + if fi.loc then + return fi.loc + elseif fi.ffid then + return vmdef.ffnames[fi.ffid] + elseif fi.addr then + return format("C:%x", fi.addr) + else + return "(?)" + end +end + +-- Format trace error message. +local function fmterr(err, info) + if type(err) == "number" then + if type(info) == "function" then info = fmtfunc(info) end + err = format(vmdef.traceerr[err], info) + end + return err +end + +-- Dump trace states. +local function dump_trace(what, tr, func, pc, otr, oex) + if what == "start" then + startloc = fmtfunc(func, pc) + startex = otr and "("..otr.."/"..oex..") " or "" + else + if what == "abort" then + local loc = fmtfunc(func, pc) + if loc ~= startloc then + out:write(format("[TRACE --- %s%s -- %s at %s]\n", + startex, startloc, fmterr(otr, oex), loc)) + else + out:write(format("[TRACE --- %s%s -- %s]\n", + startex, startloc, fmterr(otr, oex))) + end + elseif what == "stop" then + local info = traceinfo(tr) + local link, ltype = info.link, info.linktype + if ltype == "interpreter" then + out:write(format("[TRACE %3s %s%s -- fallback to interpreter]\n", + tr, startex, startloc)) + elseif link == tr or link == 0 then + out:write(format("[TRACE %3s %s%s %s]\n", + tr, startex, startloc, ltype)) + elseif ltype == "root" then + out:write(format("[TRACE %3s %s%s -> %d]\n", + tr, startex, startloc, link)) + else + out:write(format("[TRACE %3s %s%s -> %d %s]\n", + tr, startex, startloc, link, ltype)) + end + else + out:write(format("[TRACE %s]\n", what)) + end + out:flush() + end +end + +------------------------------------------------------------------------------ + +-- Detach dump handlers. +local function dumpoff() + if active then + active = false + jit.attach(dump_trace) + if out and out ~= stdout and out ~= stderr then out:close() end + out = nil + end +end + +-- Open the output file and attach dump handlers. +local function dumpon(outfile) + if active then dumpoff() end + if not outfile then outfile = os.getenv("LUAJIT_VERBOSEFILE") end + if outfile then + out = outfile == "-" and stdout or assert(io.open(outfile, "w")) + else + out = stderr + end + jit.attach(dump_trace, "trace") + active = true +end + +-- Public module functions. +module(...) + +on = dumpon +off = dumpoff +start = dumpon -- For -j command line option. + diff --git a/src/3rd party/luajit-2.0/src/lauxlib.h b/src/3rd party/luajit-2.0/src/lauxlib.h new file mode 100644 index 00000000000..fed1491b894 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lauxlib.h @@ -0,0 +1,167 @@ +/* +** $Id: lauxlib.h,v 1.88.1.1 2007/12/27 13:02:25 roberto Exp $ +** Auxiliary functions for building Lua libraries +** See Copyright Notice in lua.h +*/ + + +#ifndef lauxlib_h +#define lauxlib_h + + +#include +#include + +#include "lua.h" + + +#define luaL_getn(L,i) ((int)lua_objlen(L, i)) +#define luaL_setn(L,i,j) ((void)0) /* no op! */ + +/* extra error code for `luaL_load' */ +#define LUA_ERRFILE (LUA_ERRERR+1) + +typedef struct luaL_Reg { + const char *name; + lua_CFunction func; +} luaL_Reg; + +LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname, + const luaL_Reg *l, int nup); +LUALIB_API void (luaL_register) (lua_State *L, const char *libname, + const luaL_Reg *l); +LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); +LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname); +LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); +LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, + size_t *l); +LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, + const char *def, size_t *l); +LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); +LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); + +LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); +LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, + lua_Integer def); + +LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); +LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); +LUALIB_API void (luaL_checkany) (lua_State *L, int narg); + +LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); +LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); + +LUALIB_API void (luaL_where) (lua_State *L, int lvl); +LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); + +LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, + const char *const lst[]); + +LUALIB_API int (luaL_ref) (lua_State *L, int t); +LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); + +LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename); +LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, + const char *name); +LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); + +LUALIB_API lua_State *(luaL_newstate) (void); + + +LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, + const char *r); + +LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx, + const char *fname, int szhint); + +/* From Lua 5.2. */ +LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname); +LUALIB_API int luaL_execresult(lua_State *L, int stat); +LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename, + const char *mode); +LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, + const char *name, const char *mode); +LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, + int level); + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define luaL_argcheck(L, cond,numarg,extramsg) \ + ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) +#define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) +#define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) +#define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) +#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) +#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) +#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) + +#define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) + +#define luaL_dofile(L, fn) \ + (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_dostring(L, s) \ + (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) + +#define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) + +#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) + +/* +** {====================================================== +** Generic Buffer manipulation +** ======================================================= +*/ + + + +typedef struct luaL_Buffer { + char *p; /* current position in buffer */ + int lvl; /* number of strings in the stack (level) */ + lua_State *L; + char buffer[LUAL_BUFFERSIZE]; +} luaL_Buffer; + +#define luaL_addchar(B,c) \ + ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ + (*(B)->p++ = (char)(c))) + +/* compatibility only */ +#define luaL_putchar(B,c) luaL_addchar(B,c) + +#define luaL_addsize(B,n) ((B)->p += (n)) + +LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); +LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B); +LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); +LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); +LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); +LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); + + +/* }====================================================== */ + + +/* compatibility with ref system */ + +/* pre-defined references */ +#define LUA_NOREF (-2) +#define LUA_REFNIL (-1) + +#define lua_ref(L,lock) ((lock) ? luaL_ref(L, LUA_REGISTRYINDEX) : \ + (lua_pushstring(L, "unlocked references are obsolete"), lua_error(L), 0)) + +#define lua_unref(L,ref) luaL_unref(L, LUA_REGISTRYINDEX, (ref)) + +#define lua_getref(L,ref) lua_rawgeti(L, LUA_REGISTRYINDEX, (ref)) + + +#define luaL_reg luaL_Reg + +#endif diff --git a/src/3rd party/luajit-2.0/src/lib_aux.c b/src/3rd party/luajit-2.0/src/lib_aux.c new file mode 100644 index 00000000000..4a1b70ddc09 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_aux.c @@ -0,0 +1,356 @@ +/* +** Auxiliary library for the Lua/C API. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major parts taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include +#include +#include + +#define lib_aux_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_state.h" +#include "lj_trace.h" +#include "lj_lib.h" + +#if LJ_TARGET_POSIX +#include +#endif + +/* -- I/O error handling -------------------------------------------------- */ + +LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname) +{ + if (stat) { + setboolV(L->top++, 1); + return 1; + } else { + int en = errno; /* Lua API calls may change this value. */ + setnilV(L->top++); + if (fname) + lua_pushfstring(L, "%s: %s", fname, strerror(en)); + else + lua_pushfstring(L, "%s", strerror(en)); + setintV(L->top++, en); + lj_trace_abort(G(L)); + return 3; + } +} + +LUALIB_API int luaL_execresult(lua_State *L, int stat) +{ + if (stat != -1) { +#if LJ_TARGET_POSIX + if (WIFSIGNALED(stat)) { + stat = WTERMSIG(stat); + setnilV(L->top++); + lua_pushliteral(L, "signal"); + } else { + if (WIFEXITED(stat)) + stat = WEXITSTATUS(stat); + if (stat == 0) + setboolV(L->top++, 1); + else + setnilV(L->top++); + lua_pushliteral(L, "exit"); + } +#else + if (stat == 0) + setboolV(L->top++, 1); + else + setnilV(L->top++); + lua_pushliteral(L, "exit"); +#endif + setintV(L->top++, stat); + return 3; + } + return luaL_fileresult(L, 0, NULL); +} + +/* -- Module registration ------------------------------------------------- */ + +LUALIB_API const char *luaL_findtable(lua_State *L, int idx, + const char *fname, int szhint) +{ + const char *e; + lua_pushvalue(L, idx); + do { + e = strchr(fname, '.'); + if (e == NULL) e = fname + strlen(fname); + lua_pushlstring(L, fname, (size_t)(e - fname)); + lua_rawget(L, -2); + if (lua_isnil(L, -1)) { /* no such field? */ + lua_pop(L, 1); /* remove this nil */ + lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */ + lua_pushlstring(L, fname, (size_t)(e - fname)); + lua_pushvalue(L, -2); + lua_settable(L, -4); /* set new table into field */ + } else if (!lua_istable(L, -1)) { /* field has a non-table value? */ + lua_pop(L, 2); /* remove table and value */ + return fname; /* return problematic part of the name */ + } + lua_remove(L, -2); /* remove previous table */ + fname = e + 1; + } while (*e == '.'); + return NULL; +} + +static int libsize(const luaL_Reg *l) +{ + int size = 0; + for (; l->name; l++) size++; + return size; +} + +LUALIB_API void luaL_openlib(lua_State *L, const char *libname, + const luaL_Reg *l, int nup) +{ + lj_lib_checkfpu(L); + if (libname) { + int size = libsize(l); + /* check whether lib already exists */ + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); + lua_getfield(L, -1, libname); /* get _LOADED[libname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, size) != NULL) + lj_err_callerv(L, LJ_ERR_BADMODN, libname); + lua_pushvalue(L, -1); + lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ + } + lua_remove(L, -2); /* remove _LOADED table */ + lua_insert(L, -(nup+1)); /* move library table to below upvalues */ + } + for (; l->name; l++) { + int i; + for (i = 0; i < nup; i++) /* copy upvalues to the top */ + lua_pushvalue(L, -nup); + lua_pushcclosure(L, l->func, nup); + lua_setfield(L, -(nup+2), l->name); + } + lua_pop(L, nup); /* remove upvalues */ +} + +LUALIB_API void luaL_register(lua_State *L, const char *libname, + const luaL_Reg *l) +{ + luaL_openlib(L, libname, l, 0); +} + +LUALIB_API const char *luaL_gsub(lua_State *L, const char *s, + const char *p, const char *r) +{ + const char *wild; + size_t l = strlen(p); + luaL_Buffer b; + luaL_buffinit(L, &b); + while ((wild = strstr(s, p)) != NULL) { + luaL_addlstring(&b, s, (size_t)(wild - s)); /* push prefix */ + luaL_addstring(&b, r); /* push replacement in place of pattern */ + s = wild + l; /* continue after `p' */ + } + luaL_addstring(&b, s); /* push last suffix */ + luaL_pushresult(&b); + return lua_tostring(L, -1); +} + +/* -- Buffer handling ----------------------------------------------------- */ + +#define bufflen(B) ((size_t)((B)->p - (B)->buffer)) +#define bufffree(B) ((size_t)(LUAL_BUFFERSIZE - bufflen(B))) + +static int emptybuffer(luaL_Buffer *B) +{ + size_t l = bufflen(B); + if (l == 0) + return 0; /* put nothing on stack */ + lua_pushlstring(B->L, B->buffer, l); + B->p = B->buffer; + B->lvl++; + return 1; +} + +static void adjuststack(luaL_Buffer *B) +{ + if (B->lvl > 1) { + lua_State *L = B->L; + int toget = 1; /* number of levels to concat */ + size_t toplen = lua_strlen(L, -1); + do { + size_t l = lua_strlen(L, -(toget+1)); + if (!(B->lvl - toget + 1 >= LUA_MINSTACK/2 || toplen > l)) + break; + toplen += l; + toget++; + } while (toget < B->lvl); + lua_concat(L, toget); + B->lvl = B->lvl - toget + 1; + } +} + +LUALIB_API char *luaL_prepbuffer(luaL_Buffer *B) +{ + if (emptybuffer(B)) + adjuststack(B); + return B->buffer; +} + +LUALIB_API void luaL_addlstring(luaL_Buffer *B, const char *s, size_t l) +{ + while (l--) + luaL_addchar(B, *s++); +} + +LUALIB_API void luaL_addstring(luaL_Buffer *B, const char *s) +{ + luaL_addlstring(B, s, strlen(s)); +} + +LUALIB_API void luaL_pushresult(luaL_Buffer *B) +{ + emptybuffer(B); + lua_concat(B->L, B->lvl); + B->lvl = 1; +} + +LUALIB_API void luaL_addvalue(luaL_Buffer *B) +{ + lua_State *L = B->L; + size_t vl; + const char *s = lua_tolstring(L, -1, &vl); + if (vl <= bufffree(B)) { /* fit into buffer? */ + memcpy(B->p, s, vl); /* put it there */ + B->p += vl; + lua_pop(L, 1); /* remove from stack */ + } else { + if (emptybuffer(B)) + lua_insert(L, -2); /* put buffer before new value */ + B->lvl++; /* add new value into B stack */ + adjuststack(B); + } +} + +LUALIB_API void luaL_buffinit(lua_State *L, luaL_Buffer *B) +{ + B->L = L; + B->p = B->buffer; + B->lvl = 0; +} + +/* -- Reference management ------------------------------------------------ */ + +#define FREELIST_REF 0 + +/* Convert a stack index to an absolute index. */ +#define abs_index(L, i) \ + ((i) > 0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1) + +LUALIB_API int luaL_ref(lua_State *L, int t) +{ + int ref; + t = abs_index(L, t); + if (lua_isnil(L, -1)) { + lua_pop(L, 1); /* remove from stack */ + return LUA_REFNIL; /* `nil' has a unique fixed reference */ + } + lua_rawgeti(L, t, FREELIST_REF); /* get first free element */ + ref = (int)lua_tointeger(L, -1); /* ref = t[FREELIST_REF] */ + lua_pop(L, 1); /* remove it from stack */ + if (ref != 0) { /* any free element? */ + lua_rawgeti(L, t, ref); /* remove it from list */ + lua_rawseti(L, t, FREELIST_REF); /* (t[FREELIST_REF] = t[ref]) */ + } else { /* no free elements */ + ref = (int)lua_objlen(L, t); + ref++; /* create new reference */ + } + lua_rawseti(L, t, ref); + return ref; +} + +LUALIB_API void luaL_unref(lua_State *L, int t, int ref) +{ + if (ref >= 0) { + t = abs_index(L, t); + lua_rawgeti(L, t, FREELIST_REF); + lua_rawseti(L, t, ref); /* t[ref] = t[FREELIST_REF] */ + lua_pushinteger(L, ref); + lua_rawseti(L, t, FREELIST_REF); /* t[FREELIST_REF] = ref */ + } +} + +/* -- Default allocator and panic function -------------------------------- */ + +static int panic(lua_State *L) +{ + const char *s = lua_tostring(L, -1); + fputs("PANIC: unprotected error in call to Lua API (", stderr); + fputs(s ? s : "?", stderr); + fputc(')', stderr); fputc('\n', stderr); + fflush(stderr); + return 0; +} + +#ifdef LUAJIT_USE_SYSMALLOC + +#if LJ_64 && !defined(LUAJIT_USE_VALGRIND) +#error "Must use builtin allocator for 64 bit target" +#endif + +static void *mem_alloc(void *ud, void *ptr, size_t osize, size_t nsize) +{ + (void)ud; + (void)osize; + if (nsize == 0) { + free(ptr); + return NULL; + } else { + return realloc(ptr, nsize); + } +} + +LUALIB_API lua_State *luaL_newstate(void) +{ + lua_State *L = lua_newstate(mem_alloc, NULL); + if (L) G(L)->panic = panic; + return L; +} + +#else + +#include "lj_alloc.h" + +LUALIB_API lua_State *luaL_newstate(void) +{ + lua_State *L; + void *ud = lj_alloc_create(); + if (ud == NULL) return NULL; +#if LJ_64 + L = lj_state_newstate(lj_alloc_f, ud); +#else + L = lua_newstate(lj_alloc_f, ud); +#endif + if (L) G(L)->panic = panic; + return L; +} + +#if LJ_64 +LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) +{ + UNUSED(f); UNUSED(ud); + fputs("Must use luaL_newstate() for 64 bit target\n", stderr); + return NULL; +} +#endif + +#endif + diff --git a/src/3rd party/luajit-2.0/src/lib_base.c b/src/3rd party/luajit-2.0/src/lib_base.c new file mode 100644 index 00000000000..17b9525d667 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_base.c @@ -0,0 +1,683 @@ +/* +** Base and coroutine library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2011 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include + +#define lib_base_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_state.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cconv.h" +#endif +#include "lj_bc.h" +#include "lj_ff.h" +#include "lj_dispatch.h" +#include "lj_char.h" +#include "lj_strscan.h" +#include "lj_lib.h" + +/* -- Base library: checks ------------------------------------------------ */ + +#define LJLIB_MODULE_base + +LJLIB_ASM(assert) LJLIB_REC(.) +{ + GCstr *s; + lj_lib_checkany(L, 1); + s = lj_lib_optstr(L, 2); + if (s) + lj_err_callermsg(L, strdata(s)); + else + lj_err_caller(L, LJ_ERR_ASSERT); + return FFH_UNREACHABLE; +} + +/* ORDER LJ_T */ +LJLIB_PUSH("nil") +LJLIB_PUSH("boolean") +LJLIB_PUSH(top-1) /* boolean */ +LJLIB_PUSH("userdata") +LJLIB_PUSH("string") +LJLIB_PUSH("upval") +LJLIB_PUSH("thread") +LJLIB_PUSH("proto") +LJLIB_PUSH("function") +LJLIB_PUSH("trace") +LJLIB_PUSH("cdata") +LJLIB_PUSH("table") +LJLIB_PUSH(top-9) /* userdata */ +LJLIB_PUSH("number") +LJLIB_ASM_(type) LJLIB_REC(.) +/* Recycle the lj_lib_checkany(L, 1) from assert. */ + +/* -- Base library: iterators --------------------------------------------- */ + +/* This solves a circular dependency problem -- change FF_next_N as needed. */ +LJ_STATIC_ASSERT((int)FF_next == FF_next_N); + +LJLIB_ASM(next) +{ + lj_lib_checktab(L, 1); + return FFH_UNREACHABLE; +} + +#if LJ_52 || LJ_HASFFI +static int ffh_pairs(lua_State *L, MMS mm) +{ + TValue *o = lj_lib_checkany(L, 1); + cTValue *mo = lj_meta_lookup(L, o, mm); + if ((LJ_52 || tviscdata(o)) && !tvisnil(mo)) { + L->top = o+1; /* Only keep one argument. */ + copyTV(L, L->base-1, mo); /* Replace callable. */ + return FFH_TAILCALL; + } else { + if (!tvistab(o)) lj_err_argt(L, 1, LUA_TTABLE); + setfuncV(L, o-1, funcV(lj_lib_upvalue(L, 1))); + if (mm == MM_pairs) setnilV(o+1); else setintV(o+1, 0); + return FFH_RES(3); + } +} +#else +#define ffh_pairs(L, mm) (lj_lib_checktab(L, 1), FFH_UNREACHABLE) +#endif + +LJLIB_PUSH(lastcl) +LJLIB_ASM(pairs) +{ + return ffh_pairs(L, MM_pairs); +} + +LJLIB_NOREGUV LJLIB_ASM(ipairs_aux) LJLIB_REC(.) +{ + lj_lib_checktab(L, 1); + lj_lib_checkint(L, 2); + return FFH_UNREACHABLE; +} + +LJLIB_PUSH(lastcl) +LJLIB_ASM(ipairs) LJLIB_REC(.) +{ + return ffh_pairs(L, MM_ipairs); +} + +/* -- Base library: getters and setters ----------------------------------- */ + +LJLIB_ASM_(getmetatable) LJLIB_REC(.) +/* Recycle the lj_lib_checkany(L, 1) from assert. */ + +LJLIB_ASM(setmetatable) LJLIB_REC(.) +{ + GCtab *t = lj_lib_checktab(L, 1); + GCtab *mt = lj_lib_checktabornil(L, 2); + if (!tvisnil(lj_meta_lookup(L, L->base, MM_metatable))) + lj_err_caller(L, LJ_ERR_PROTMT); + setgcref(t->metatable, obj2gco(mt)); + if (mt) { lj_gc_objbarriert(L, t, mt); } + settabV(L, L->base-1, t); + return FFH_RES(1); +} + +LJLIB_CF(getfenv) +{ + GCfunc *fn; + cTValue *o = L->base; + if (!(o < L->top && tvisfunc(o))) { + int level = lj_lib_optint(L, 1, 1); + o = lj_debug_frame(L, level, &level); + if (o == NULL) + lj_err_arg(L, 1, LJ_ERR_INVLVL); + } + fn = &gcval(o)->fn; + settabV(L, L->top++, isluafunc(fn) ? tabref(fn->l.env) : tabref(L->env)); + return 1; +} + +LJLIB_CF(setfenv) +{ + GCfunc *fn; + GCtab *t = lj_lib_checktab(L, 2); + cTValue *o = L->base; + if (!(o < L->top && tvisfunc(o))) { + int level = lj_lib_checkint(L, 1); + if (level == 0) { + /* NOBARRIER: A thread (i.e. L) is never black. */ + setgcref(L->env, obj2gco(t)); + return 0; + } + o = lj_debug_frame(L, level, &level); + if (o == NULL) + lj_err_arg(L, 1, LJ_ERR_INVLVL); + } + fn = &gcval(o)->fn; + if (!isluafunc(fn)) + lj_err_caller(L, LJ_ERR_SETFENV); + setgcref(fn->l.env, obj2gco(t)); + lj_gc_objbarrier(L, obj2gco(fn), t); + setfuncV(L, L->top++, fn); + return 1; +} + +LJLIB_ASM(rawget) LJLIB_REC(.) +{ + lj_lib_checktab(L, 1); + lj_lib_checkany(L, 2); + return FFH_UNREACHABLE; +} + +LJLIB_CF(rawset) LJLIB_REC(.) +{ + lj_lib_checktab(L, 1); + lj_lib_checkany(L, 2); + L->top = 1+lj_lib_checkany(L, 3); + lua_rawset(L, 1); + return 1; +} + +LJLIB_CF(rawequal) LJLIB_REC(.) +{ + cTValue *o1 = lj_lib_checkany(L, 1); + cTValue *o2 = lj_lib_checkany(L, 2); + setboolV(L->top-1, lj_obj_equal(o1, o2)); + return 1; +} + +#if LJ_52 +LJLIB_CF(rawlen) LJLIB_REC(.) +{ + cTValue *o = L->base; + int32_t len; + if (L->top > o && tvisstr(o)) + len = (int32_t)strV(o)->len; + else + len = (int32_t)lj_tab_len(lj_lib_checktab(L, 1)); + setintV(L->top-1, len); + return 1; +} +#endif + +LJLIB_CF(unpack) +{ + GCtab *t = lj_lib_checktab(L, 1); + int32_t n, i = lj_lib_optint(L, 2, 1); + int32_t e = (L->base+3-1 < L->top && !tvisnil(L->base+3-1)) ? + lj_lib_checkint(L, 3) : (int32_t)lj_tab_len(t); + if (i > e) return 0; + n = e - i + 1; + if (n <= 0 || !lua_checkstack(L, n)) + lj_err_caller(L, LJ_ERR_UNPACK); + do { + cTValue *tv = lj_tab_getint(t, i); + if (tv) { + copyTV(L, L->top++, tv); + } else { + setnilV(L->top++); + } + } while (i++ < e); + return n; +} + +LJLIB_CF(select) LJLIB_REC(.) +{ + int32_t n = (int32_t)(L->top - L->base); + if (n >= 1 && tvisstr(L->base) && *strVdata(L->base) == '#') { + setintV(L->top-1, n-1); + return 1; + } else { + int32_t i = lj_lib_checkint(L, 1); + if (i < 0) i = n + i; else if (i > n) i = n; + if (i < 1) + lj_err_arg(L, 1, LJ_ERR_IDXRNG); + return n - i; + } +} + +/* -- Base library: conversions ------------------------------------------- */ + +LJLIB_ASM(tonumber) LJLIB_REC(.) +{ + int32_t base = lj_lib_optint(L, 2, 10); + if (base == 10) { + TValue *o = lj_lib_checkany(L, 1); + if (lj_strscan_numberobj(o)) { + copyTV(L, L->base-1, o); + return FFH_RES(1); + } +#if LJ_HASFFI + if (tviscdata(o)) { + CTState *cts = ctype_cts(L); + CType *ct = lj_ctype_rawref(cts, cdataV(o)->ctypeid); + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + if (ctype_isnum(ct->info) || ctype_iscomplex(ct->info)) { + if (LJ_DUALNUM && ctype_isinteger_or_bool(ct->info) && + ct->size <= 4 && !(ct->size == 4 && (ct->info & CTF_UNSIGNED))) { + int32_t i; + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_INT32), (uint8_t *)&i, o, 0); + setintV(L->base-1, i); + return FFH_RES(1); + } + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_DOUBLE), + (uint8_t *)&(L->base-1)->n, o, 0); + return FFH_RES(1); + } + } +#endif + } else { + const char *p = strdata(lj_lib_checkstr(L, 1)); + char *ep; + unsigned long ul; + if (base < 2 || base > 36) + lj_err_arg(L, 2, LJ_ERR_BASERNG); + ul = strtoul(p, &ep, base); + if (p != ep) { + while (lj_char_isspace((unsigned char)(*ep))) ep++; + if (*ep == '\0') { + if (LJ_DUALNUM && LJ_LIKELY(ul < 0x80000000u)) + setintV(L->base-1, (int32_t)ul); + else + setnumV(L->base-1, (lua_Number)ul); + return FFH_RES(1); + } + } + } + setnilV(L->base-1); + return FFH_RES(1); +} + +LJLIB_PUSH("nil") +LJLIB_PUSH("false") +LJLIB_PUSH("true") +LJLIB_ASM(tostring) LJLIB_REC(.) +{ + TValue *o = lj_lib_checkany(L, 1); + cTValue *mo; + L->top = o+1; /* Only keep one argument. */ + if (!tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { + copyTV(L, L->base-1, mo); /* Replace callable. */ + return FFH_TAILCALL; + } else { + GCstr *s; + if (tvisnumber(o)) { + s = lj_str_fromnumber(L, o); + } else if (tvispri(o)) { + s = strV(lj_lib_upvalue(L, -(int32_t)itype(o))); + } else { + if (tvisfunc(o) && isffunc(funcV(o))) + lua_pushfstring(L, "function: builtin#%d", funcV(o)->c.ffid); + else + lua_pushfstring(L, "%s: %p", lj_typename(o), lua_topointer(L, 1)); + /* Note: lua_pushfstring calls the GC which may invalidate o. */ + s = strV(L->top-1); + } + setstrV(L, L->base-1, s); + return FFH_RES(1); + } +} + +/* -- Base library: throw and catch errors -------------------------------- */ + +LJLIB_CF(error) +{ + int32_t level = lj_lib_optint(L, 2, 1); + lua_settop(L, 1); + if (lua_isstring(L, 1) && level > 0) { + luaL_where(L, level); + lua_pushvalue(L, 1); + lua_concat(L, 2); + } + return lua_error(L); +} + +LJLIB_ASM(pcall) LJLIB_REC(.) +{ + lj_lib_checkany(L, 1); + lj_lib_checkfunc(L, 2); /* For xpcall only. */ + return FFH_UNREACHABLE; +} +LJLIB_ASM_(xpcall) LJLIB_REC(.) + +/* -- Base library: load Lua code ----------------------------------------- */ + +static int load_aux(lua_State *L, int status, int envarg) +{ + if (status == 0) { + if (tvistab(L->base+envarg-1)) { + GCfunc *fn = funcV(L->top-1); + GCtab *t = tabV(L->base+envarg-1); + setgcref(fn->c.env, obj2gco(t)); + lj_gc_objbarrier(L, fn, t); + } + return 1; + } else { + setnilV(L->top-2); + return 2; + } +} + +LJLIB_CF(loadfile) +{ + GCstr *fname = lj_lib_optstr(L, 1); + GCstr *mode = lj_lib_optstr(L, 2); + int status; + lua_settop(L, 3); /* Ensure env arg exists. */ + status = luaL_loadfilex(L, fname ? strdata(fname) : NULL, + mode ? strdata(mode) : NULL); + return load_aux(L, status, 3); +} + +static const char *reader_func(lua_State *L, void *ud, size_t *size) +{ + UNUSED(ud); + luaL_checkstack(L, 2, "too many nested functions"); + copyTV(L, L->top++, L->base); + lua_call(L, 0, 1); /* Call user-supplied function. */ + L->top--; + if (tvisnil(L->top)) { + *size = 0; + return NULL; + } else if (tvisstr(L->top) || tvisnumber(L->top)) { + copyTV(L, L->base+4, L->top); /* Anchor string in reserved stack slot. */ + return lua_tolstring(L, 5, size); + } else { + lj_err_caller(L, LJ_ERR_RDRSTR); + return NULL; + } +} + +LJLIB_CF(load) +{ + GCstr *name = lj_lib_optstr(L, 2); + GCstr *mode = lj_lib_optstr(L, 3); + int status; + if (L->base < L->top && (tvisstr(L->base) || tvisnumber(L->base))) { + GCstr *s = lj_lib_checkstr(L, 1); + lua_settop(L, 4); /* Ensure env arg exists. */ + status = luaL_loadbufferx(L, strdata(s), s->len, strdata(name ? name : s), + mode ? strdata(mode) : NULL); + } else { + lj_lib_checkfunc(L, 1); + lua_settop(L, 5); /* Reserve a slot for the string from the reader. */ + status = lua_loadx(L, reader_func, NULL, name ? strdata(name) : "=(load)", + mode ? strdata(mode) : NULL); + } + return load_aux(L, status, 4); +} + +LJLIB_CF(loadstring) +{ + return lj_cf_load(L); +} + +LJLIB_CF(dofile) +{ + GCstr *fname = lj_lib_optstr(L, 1); + setnilV(L->top); + L->top = L->base+1; + if (luaL_loadfile(L, fname ? strdata(fname) : NULL) != 0) + lua_error(L); + lua_call(L, 0, LUA_MULTRET); + return (int)(L->top - L->base) - 1; +} + +/* -- Base library: GC control -------------------------------------------- */ + +LJLIB_CF(gcinfo) +{ + setintV(L->top++, (G(L)->gc.total >> 10)); + return 1; +} + +LJLIB_CF(collectgarbage) +{ + int opt = lj_lib_checkopt(L, 1, LUA_GCCOLLECT, /* ORDER LUA_GC* */ + "\4stop\7restart\7collect\5count\1\377\4step\10setpause\12setstepmul"); + int32_t data = lj_lib_optint(L, 2, 0); + if (opt == LUA_GCCOUNT) { + setnumV(L->top, (lua_Number)G(L)->gc.total/1024.0); + } else { + int res = lua_gc(L, opt, data); + if (opt == LUA_GCSTEP) + setboolV(L->top, res); + else + setintV(L->top, res); + } + L->top++; + return 1; +} + +/* -- Base library: miscellaneous functions ------------------------------- */ + +LJLIB_PUSH(top-2) /* Upvalue holds weak table. */ +LJLIB_CF(newproxy) +{ + lua_settop(L, 1); + lua_newuserdata(L, 0); + if (lua_toboolean(L, 1) == 0) { /* newproxy(): without metatable. */ + return 1; + } else if (lua_isboolean(L, 1)) { /* newproxy(true): with metatable. */ + lua_newtable(L); + lua_pushvalue(L, -1); + lua_pushboolean(L, 1); + lua_rawset(L, lua_upvalueindex(1)); /* Remember mt in weak table. */ + } else { /* newproxy(proxy): inherit metatable. */ + int validproxy = 0; + if (lua_getmetatable(L, 1)) { + lua_rawget(L, lua_upvalueindex(1)); + validproxy = lua_toboolean(L, -1); + lua_pop(L, 1); + } + if (!validproxy) + lj_err_arg(L, 1, LJ_ERR_NOPROXY); + lua_getmetatable(L, 1); + } + lua_setmetatable(L, 2); + return 1; +} + +LJLIB_PUSH("tostring") +LJLIB_CF(print) +{ + ptrdiff_t i, nargs = L->top - L->base; + cTValue *tv = lj_tab_getstr(tabref(L->env), strV(lj_lib_upvalue(L, 1))); + int shortcut; + if (tv && !tvisnil(tv)) { + copyTV(L, L->top++, tv); + } else { + setstrV(L, L->top++, strV(lj_lib_upvalue(L, 1))); + lua_gettable(L, LUA_GLOBALSINDEX); + tv = L->top-1; + } + shortcut = (tvisfunc(tv) && funcV(tv)->c.ffid == FF_tostring); + for (i = 0; i < nargs; i++) { + const char *str; + size_t size; + cTValue *o = &L->base[i]; + if (shortcut && tvisstr(o)) { + str = strVdata(o); + size = strV(o)->len; + } else if (shortcut && tvisint(o)) { + char buf[LJ_STR_INTBUF]; + char *p = lj_str_bufint(buf, intV(o)); + size = (size_t)(buf+LJ_STR_INTBUF-p); + str = p; + } else if (shortcut && tvisnum(o)) { + char buf[LJ_STR_NUMBUF]; + size = lj_str_bufnum(buf, o); + str = buf; + } else { + copyTV(L, L->top+1, o); + copyTV(L, L->top, L->top-1); + L->top += 2; + lua_call(L, 1, 1); + str = lua_tolstring(L, -1, &size); + if (!str) + lj_err_caller(L, LJ_ERR_PRTOSTR); + L->top--; + } + if (i) + putchar('\t'); + fwrite(str, 1, size, stdout); + } + putchar('\n'); + return 0; +} + +LJLIB_PUSH(top-3) +LJLIB_SET(_VERSION) + +#include "lj_libdef.h" + +/* -- Coroutine library --------------------------------------------------- */ + +#define LJLIB_MODULE_coroutine + +LJLIB_CF(coroutine_status) +{ + const char *s; + lua_State *co; + if (!(L->top > L->base && tvisthread(L->base))) + lj_err_arg(L, 1, LJ_ERR_NOCORO); + co = threadV(L->base); + if (co == L) s = "running"; + else if (co->status == LUA_YIELD) s = "suspended"; + else if (co->status != 0) s = "dead"; + else if (co->base > tvref(co->stack)+1) s = "normal"; + else if (co->top == co->base) s = "dead"; + else s = "suspended"; + lua_pushstring(L, s); + return 1; +} + +LJLIB_CF(coroutine_running) +{ +#if LJ_52 + int ismain = lua_pushthread(L); + setboolV(L->top++, ismain); + return 2; +#else + if (lua_pushthread(L)) + setnilV(L->top++); + return 1; +#endif +} + +LJLIB_CF(coroutine_create) +{ + lua_State *L1; + if (!(L->base < L->top && tvisfunc(L->base))) + lj_err_argt(L, 1, LUA_TFUNCTION); + L1 = lua_newthread(L); + setfuncV(L, L1->top++, funcV(L->base)); + return 1; +} + +LJLIB_ASM(coroutine_yield) +{ + lj_err_caller(L, LJ_ERR_CYIELD); + return FFH_UNREACHABLE; +} + +static int ffh_resume(lua_State *L, lua_State *co, int wrap) +{ + if (co->cframe != NULL || co->status > LUA_YIELD || + (co->status == 0 && co->top == co->base)) { + ErrMsg em = co->cframe ? LJ_ERR_CORUN : LJ_ERR_CODEAD; + if (wrap) lj_err_caller(L, em); + setboolV(L->base-1, 0); + setstrV(L, L->base, lj_err_str(L, em)); + return FFH_RES(2); + } + lj_state_growstack(co, (MSize)(L->top - L->base)); + return FFH_RETRY; +} + +LJLIB_ASM(coroutine_resume) +{ + if (!(L->top > L->base && tvisthread(L->base))) + lj_err_arg(L, 1, LJ_ERR_NOCORO); + return ffh_resume(L, threadV(L->base), 0); +} + +LJLIB_NOREG LJLIB_ASM(coroutine_wrap_aux) +{ + return ffh_resume(L, threadV(lj_lib_upvalue(L, 1)), 1); +} + +/* Inline declarations. */ +LJ_ASMF void lj_ff_coroutine_wrap_aux(void); +#if !(LJ_TARGET_MIPS && defined(ljamalg_c)) +LJ_FUNCA_NORET void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, + lua_State *co); +#endif + +/* Error handler, called from assembler VM. */ +void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, lua_State *co) +{ + co->top--; copyTV(L, L->top, co->top); L->top++; + if (tvisstr(L->top-1)) + lj_err_callermsg(L, strVdata(L->top-1)); + else + lj_err_run(L); +} + +/* Forward declaration. */ +static void setpc_wrap_aux(lua_State *L, GCfunc *fn); + +LJLIB_CF(coroutine_wrap) +{ + lj_cf_coroutine_create(L); + lj_lib_pushcc(L, lj_ffh_coroutine_wrap_aux, FF_coroutine_wrap_aux, 1); + setpc_wrap_aux(L, funcV(L->top-1)); + return 1; +} + +#include "lj_libdef.h" + +/* Fix the PC of wrap_aux. Really ugly workaround. */ +static void setpc_wrap_aux(lua_State *L, GCfunc *fn) +{ + setmref(fn->c.pc, &L2GG(L)->bcff[lj_lib_init_coroutine[1]+2]); +} + +/* ------------------------------------------------------------------------ */ + +static void newproxy_weaktable(lua_State *L) +{ + /* NOBARRIER: The table is new (marked white). */ + GCtab *t = lj_tab_new(L, 0, 1); + settabV(L, L->top++, t); + setgcref(t->metatable, obj2gco(t)); + setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "__mode")), + lj_str_newlit(L, "kv")); + t->nomm = (uint8_t)(~(1u<env); + settabV(L, lj_tab_setstr(L, env, lj_str_newlit(L, "_G")), env); + lua_pushliteral(L, LUA_VERSION); /* top-3. */ + newproxy_weaktable(L); /* top-2. */ + LJ_LIB_REG(L, "_G", base); + LJ_LIB_REG(L, LUA_COLIBNAME, coroutine); + return 2; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_bit.c b/src/3rd party/luajit-2.0/src/lib_bit.c new file mode 100644 index 00000000000..583e04b0c01 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_bit.c @@ -0,0 +1,74 @@ +/* +** Bit manipulation library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lib_bit_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_lib.h" + +/* ------------------------------------------------------------------------ */ + +#define LJLIB_MODULE_bit + +LJLIB_ASM(bit_tobit) LJLIB_REC(bit_unary IR_TOBIT) +{ + lj_lib_checknumber(L, 1); + return FFH_RETRY; +} +LJLIB_ASM_(bit_bnot) LJLIB_REC(bit_unary IR_BNOT) +LJLIB_ASM_(bit_bswap) LJLIB_REC(bit_unary IR_BSWAP) + +LJLIB_ASM(bit_lshift) LJLIB_REC(bit_shift IR_BSHL) +{ + lj_lib_checknumber(L, 1); + lj_lib_checkbit(L, 2); + return FFH_RETRY; +} +LJLIB_ASM_(bit_rshift) LJLIB_REC(bit_shift IR_BSHR) +LJLIB_ASM_(bit_arshift) LJLIB_REC(bit_shift IR_BSAR) +LJLIB_ASM_(bit_rol) LJLIB_REC(bit_shift IR_BROL) +LJLIB_ASM_(bit_ror) LJLIB_REC(bit_shift IR_BROR) + +LJLIB_ASM(bit_band) LJLIB_REC(bit_nary IR_BAND) +{ + int i = 0; + do { lj_lib_checknumber(L, ++i); } while (L->base+i < L->top); + return FFH_RETRY; +} +LJLIB_ASM_(bit_bor) LJLIB_REC(bit_nary IR_BOR) +LJLIB_ASM_(bit_bxor) LJLIB_REC(bit_nary IR_BXOR) + +/* ------------------------------------------------------------------------ */ + +LJLIB_CF(bit_tohex) +{ + uint32_t b = (uint32_t)lj_lib_checkbit(L, 1); + int32_t i, n = L->base+1 >= L->top ? 8 : lj_lib_checkbit(L, 2); + const char *hexdigits = "0123456789abcdef"; + char buf[8]; + if (n < 0) { n = -n; hexdigits = "0123456789ABCDEF"; } + if (n > 8) n = 8; + for (i = n; --i >= 0; ) { buf[i] = hexdigits[b & 15]; b >>= 4; } + lua_pushlstring(L, buf, (size_t)n); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_bit(lua_State *L) +{ + LJ_LIB_REG(L, LUA_BITLIBNAME, bit); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_debug.c b/src/3rd party/luajit-2.0/src/lib_debug.c new file mode 100644 index 00000000000..e87c35cfe94 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_debug.c @@ -0,0 +1,405 @@ +/* +** Debug library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lib_debug_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_lib.h" + +/* ------------------------------------------------------------------------ */ + +#define LJLIB_MODULE_debug + +LJLIB_CF(debug_getregistry) +{ + copyTV(L, L->top++, registry(L)); + return 1; +} + +LJLIB_CF(debug_getmetatable) +{ + lj_lib_checkany(L, 1); + if (!lua_getmetatable(L, 1)) { + setnilV(L->top-1); + } + return 1; +} + +LJLIB_CF(debug_setmetatable) +{ + lj_lib_checktabornil(L, 2); + L->top = L->base+2; + lua_setmetatable(L, 1); +#if !LJ_52 + setboolV(L->top-1, 1); +#endif + return 1; +} + +LJLIB_CF(debug_getfenv) +{ + lj_lib_checkany(L, 1); + lua_getfenv(L, 1); + return 1; +} + +LJLIB_CF(debug_setfenv) +{ + lj_lib_checktab(L, 2); + L->top = L->base+2; + if (!lua_setfenv(L, 1)) + lj_err_caller(L, LJ_ERR_SETFENV); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +static void settabss(lua_State *L, const char *i, const char *v) +{ + lua_pushstring(L, v); + lua_setfield(L, -2, i); +} + +static void settabsi(lua_State *L, const char *i, int v) +{ + lua_pushinteger(L, v); + lua_setfield(L, -2, i); +} + +static void settabsb(lua_State *L, const char *i, int v) +{ + lua_pushboolean(L, v); + lua_setfield(L, -2, i); +} + +static lua_State *getthread(lua_State *L, int *arg) +{ + if (L->base < L->top && tvisthread(L->base)) { + *arg = 1; + return threadV(L->base); + } else { + *arg = 0; + return L; + } +} + +static void treatstackoption(lua_State *L, lua_State *L1, const char *fname) +{ + if (L == L1) { + lua_pushvalue(L, -2); + lua_remove(L, -3); + } + else + lua_xmove(L1, L, 1); + lua_setfield(L, -2, fname); +} + +LJLIB_CF(debug_getinfo) +{ + lj_Debug ar; + int arg, opt_f = 0, opt_L = 0; + lua_State *L1 = getthread(L, &arg); + const char *options = luaL_optstring(L, arg+2, "flnSu"); + if (lua_isnumber(L, arg+1)) { + if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), (lua_Debug *)&ar)) { + setnilV(L->top-1); + return 1; + } + } else if (L->base+arg < L->top && tvisfunc(L->base+arg)) { + options = lua_pushfstring(L, ">%s", options); + setfuncV(L1, L1->top++, funcV(L->base+arg)); + } else { + lj_err_arg(L, arg+1, LJ_ERR_NOFUNCL); + } + if (!lj_debug_getinfo(L1, options, &ar, 1)) + lj_err_arg(L, arg+2, LJ_ERR_INVOPT); + lua_createtable(L, 0, 16); /* Create result table. */ + for (; *options; options++) { + switch (*options) { + case 'S': + settabss(L, "source", ar.source); + settabss(L, "short_src", ar.short_src); + settabsi(L, "linedefined", ar.linedefined); + settabsi(L, "lastlinedefined", ar.lastlinedefined); + settabss(L, "what", ar.what); + break; + case 'l': + settabsi(L, "currentline", ar.currentline); + break; + case 'u': + settabsi(L, "nups", ar.nups); + settabsi(L, "nparams", ar.nparams); + settabsb(L, "isvararg", ar.isvararg); + break; + case 'n': + settabss(L, "name", ar.name); + settabss(L, "namewhat", ar.namewhat); + break; + case 'f': opt_f = 1; break; + case 'L': opt_L = 1; break; + default: break; + } + } + if (opt_L) treatstackoption(L, L1, "activelines"); + if (opt_f) treatstackoption(L, L1, "func"); + return 1; /* Return result table. */ +} + +LJLIB_CF(debug_getlocal) +{ + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + const char *name; + int slot = lj_lib_checkint(L, arg+2); + if (tvisfunc(L->base+arg)) { + L->top = L->base+arg+1; + lua_pushstring(L, lua_getlocal(L, NULL, slot)); + return 1; + } + if (!lua_getstack(L1, lj_lib_checkint(L, arg+1), &ar)) + lj_err_arg(L, arg+1, LJ_ERR_LVLRNG); + name = lua_getlocal(L1, &ar, slot); + if (name) { + lua_xmove(L1, L, 1); + lua_pushstring(L, name); + lua_pushvalue(L, -2); + return 2; + } else { + setnilV(L->top-1); + return 1; + } +} + +LJLIB_CF(debug_setlocal) +{ + int arg; + lua_State *L1 = getthread(L, &arg); + lua_Debug ar; + TValue *tv; + if (!lua_getstack(L1, lj_lib_checkint(L, arg+1), &ar)) + lj_err_arg(L, arg+1, LJ_ERR_LVLRNG); + tv = lj_lib_checkany(L, arg+3); + copyTV(L1, L1->top++, tv); + lua_pushstring(L, lua_setlocal(L1, &ar, lj_lib_checkint(L, arg+2))); + return 1; +} + +static int debug_getupvalue(lua_State *L, int get) +{ + int32_t n = lj_lib_checkint(L, 2); + const char *name; + lj_lib_checkfunc(L, 1); + name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); + if (name) { + lua_pushstring(L, name); + if (!get) return 1; + copyTV(L, L->top, L->top-2); + L->top++; + return 2; + } + return 0; +} + +LJLIB_CF(debug_getupvalue) +{ + return debug_getupvalue(L, 1); +} + +LJLIB_CF(debug_setupvalue) +{ + lj_lib_checkany(L, 3); + return debug_getupvalue(L, 0); +} + +LJLIB_CF(debug_upvalueid) +{ + GCfunc *fn = lj_lib_checkfunc(L, 1); + int32_t n = lj_lib_checkint(L, 2) - 1; + if ((uint32_t)n >= fn->l.nupvalues) + lj_err_arg(L, 2, LJ_ERR_IDXRNG); + setlightudV(L->top-1, isluafunc(fn) ? (void *)gcref(fn->l.uvptr[n]) : + (void *)&fn->c.upvalue[n]); + return 1; +} + +LJLIB_CF(debug_upvaluejoin) +{ + GCfunc *fn[2]; + GCRef *p[2]; + int i; + for (i = 0; i < 2; i++) { + int32_t n; + fn[i] = lj_lib_checkfunc(L, 2*i+1); + if (!isluafunc(fn[i])) + lj_err_arg(L, 2*i+1, LJ_ERR_NOLFUNC); + n = lj_lib_checkint(L, 2*i+2) - 1; + if ((uint32_t)n >= fn[i]->l.nupvalues) + lj_err_arg(L, 2*i+2, LJ_ERR_IDXRNG); + p[i] = &fn[i]->l.uvptr[n]; + } + setgcrefr(*p[0], *p[1]); + lj_gc_objbarrier(L, fn[0], gcref(*p[1])); + return 0; +} + +#if LJ_52 +LJLIB_CF(debug_getuservalue) +{ + TValue *o = L->base; + if (o < L->top && tvisudata(o)) + settabV(L, o, tabref(udataV(o)->env)); + else + setnilV(o); + L->top = o+1; + return 1; +} + +LJLIB_CF(debug_setuservalue) +{ + TValue *o = L->base; + if (!(o < L->top && tvisudata(o))) + lj_err_argt(L, 1, LUA_TUSERDATA); + if (!(o+1 < L->top && tvistab(o+1))) + lj_err_argt(L, 2, LUA_TTABLE); + L->top = o+2; + lua_setfenv(L, 1); + return 1; +} +#endif + +/* ------------------------------------------------------------------------ */ + +static const char KEY_HOOK = 'h'; + +static void hookf(lua_State *L, lua_Debug *ar) +{ + static const char *const hooknames[] = + {"call", "return", "line", "count", "tail return"}; + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); + if (lua_isfunction(L, -1)) { + lua_pushstring(L, hooknames[(int)ar->event]); + if (ar->currentline >= 0) + lua_pushinteger(L, ar->currentline); + else lua_pushnil(L); + lua_call(L, 2, 0); + } +} + +static int makemask(const char *smask, int count) +{ + int mask = 0; + if (strchr(smask, 'c')) mask |= LUA_MASKCALL; + if (strchr(smask, 'r')) mask |= LUA_MASKRET; + if (strchr(smask, 'l')) mask |= LUA_MASKLINE; + if (count > 0) mask |= LUA_MASKCOUNT; + return mask; +} + +static char *unmakemask(int mask, char *smask) +{ + int i = 0; + if (mask & LUA_MASKCALL) smask[i++] = 'c'; + if (mask & LUA_MASKRET) smask[i++] = 'r'; + if (mask & LUA_MASKLINE) smask[i++] = 'l'; + smask[i] = '\0'; + return smask; +} + +LJLIB_CF(debug_sethook) +{ + int arg, mask, count; + lua_Hook func; + (void)getthread(L, &arg); + if (lua_isnoneornil(L, arg+1)) { + lua_settop(L, arg+1); + func = NULL; mask = 0; count = 0; /* turn off hooks */ + } else { + const char *smask = luaL_checkstring(L, arg+2); + luaL_checktype(L, arg+1, LUA_TFUNCTION); + count = luaL_optint(L, arg+3, 0); + func = hookf; mask = makemask(smask, count); + } + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_pushvalue(L, arg+1); + lua_rawset(L, LUA_REGISTRYINDEX); + lua_sethook(L, func, mask, count); + return 0; +} + +LJLIB_CF(debug_gethook) +{ + char buff[5]; + int mask = lua_gethookmask(L); + lua_Hook hook = lua_gethook(L); + if (hook != NULL && hook != hookf) { /* external hook? */ + lua_pushliteral(L, "external hook"); + } else { + lua_pushlightuserdata(L, (void *)&KEY_HOOK); + lua_rawget(L, LUA_REGISTRYINDEX); /* get hook */ + } + lua_pushstring(L, unmakemask(mask, buff)); + lua_pushinteger(L, lua_gethookcount(L)); + return 3; +} + +/* ------------------------------------------------------------------------ */ + +LJLIB_CF(debug_debug) +{ + for (;;) { + char buffer[250]; + fputs("lua_debug> ", stderr); + if (fgets(buffer, sizeof(buffer), stdin) == 0 || + strcmp(buffer, "cont\n") == 0) + return 0; + if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || + lua_pcall(L, 0, 0, 0)) { + fputs(lua_tostring(L, -1), stderr); + fputs("\n", stderr); + } + lua_settop(L, 0); /* remove eventual returns */ + } +} + +/* ------------------------------------------------------------------------ */ + +#define LEVELS1 12 /* size of the first part of the stack */ +#define LEVELS2 10 /* size of the second part of the stack */ + +LJLIB_CF(debug_traceback) +{ + int arg; + lua_State *L1 = getthread(L, &arg); + const char *msg = lua_tostring(L, arg+1); + if (msg == NULL && L->top > L->base+arg) + L->top = L->base+arg+1; + else + luaL_traceback(L, L1, msg, lj_lib_optint(L, arg+2, (L == L1))); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_debug(lua_State *L) +{ + LJ_LIB_REG(L, LUA_DBLIBNAME, debug); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_ffi.c b/src/3rd party/luajit-2.0/src/lib_ffi.c new file mode 100644 index 00000000000..f6df39d67f9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_ffi.c @@ -0,0 +1,851 @@ +/* +** FFI library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lib_ffi_c +#define LUA_LIB + +#include + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_ctype.h" +#include "lj_cparse.h" +#include "lj_cdata.h" +#include "lj_cconv.h" +#include "lj_carith.h" +#include "lj_ccall.h" +#include "lj_ccallback.h" +#include "lj_clib.h" +#include "lj_ff.h" +#include "lj_lib.h" + +/* -- C type checks ------------------------------------------------------- */ + +/* Check first argument for a C type and returns its ID. */ +static CTypeID ffi_checkctype(lua_State *L, CTState *cts, TValue *param) +{ + TValue *o = L->base; + if (!(o < L->top)) { + err_argtype: + lj_err_argtype(L, 1, "C type"); + } + if (tvisstr(o)) { /* Parse an abstract C type declaration. */ + GCstr *s = strV(o); + CPState cp; + int errcode; + cp.L = L; + cp.cts = cts; + cp.srcname = strdata(s); + cp.p = strdata(s); + cp.param = param; + cp.mode = CPARSE_MODE_ABSTRACT|CPARSE_MODE_NOIMPLICIT; + errcode = lj_cparse(&cp); + if (errcode) lj_err_throw(L, errcode); /* Propagate errors. */ + return cp.val.id; + } else { + GCcdata *cd; + if (!tviscdata(o)) goto err_argtype; + if (param && param < L->top) lj_err_arg(L, 1, LJ_ERR_FFI_NUMPARAM); + cd = cdataV(o); + return cd->ctypeid == CTID_CTYPEID ? *(CTypeID *)cdataptr(cd) : cd->ctypeid; + } +} + +/* Check argument for C data and return it. */ +static GCcdata *ffi_checkcdata(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && tviscdata(o))) + lj_err_argt(L, narg, LUA_TCDATA); + return cdataV(o); +} + +/* Convert argument to C pointer. */ +static void *ffi_checkptr(lua_State *L, int narg, CTypeID id) +{ + CTState *cts = ctype_cts(L); + TValue *o = L->base + narg-1; + void *p; + if (o >= L->top) + lj_err_arg(L, narg, LJ_ERR_NOVAL); + lj_cconv_ct_tv(cts, ctype_get(cts, id), (uint8_t *)&p, o, CCF_ARG(narg)); + return p; +} + +/* Convert argument to int32_t. */ +static int32_t ffi_checkint(lua_State *L, int narg) +{ + CTState *cts = ctype_cts(L); + TValue *o = L->base + narg-1; + int32_t i; + if (o >= L->top) + lj_err_arg(L, narg, LJ_ERR_NOVAL); + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_INT32), (uint8_t *)&i, o, + CCF_ARG(narg)); + return i; +} + +/* -- C type metamethods -------------------------------------------------- */ + +#define LJLIB_MODULE_ffi_meta + +/* Handle ctype __index/__newindex metamethods. */ +static int ffi_index_meta(lua_State *L, CTState *cts, CType *ct, MMS mm) +{ + CTypeID id = ctype_typeid(cts, ct); + cTValue *tv = lj_ctype_meta(cts, id, mm); + TValue *base = L->base; + if (!tv) { + const char *s; + err_index: + s = strdata(lj_ctype_repr(L, id, NULL)); + if (tvisstr(L->base+1)) { + lj_err_callerv(L, LJ_ERR_FFI_BADMEMBER, s, strVdata(L->base+1)); + } else { + const char *key = tviscdata(L->base+1) ? + strdata(lj_ctype_repr(L, cdataV(L->base+1)->ctypeid, NULL)) : + lj_typename(L->base+1); + lj_err_callerv(L, LJ_ERR_FFI_BADIDXW, s, key); + } + } + if (!tvisfunc(tv)) { + if (mm == MM_index) { + cTValue *o = lj_meta_tget(L, tv, base+1); + if (o) { + if (tvisnil(o)) goto err_index; + copyTV(L, L->top-1, o); + return 1; + } + } else { + TValue *o = lj_meta_tset(L, tv, base+1); + if (o) { + copyTV(L, o, base+2); + return 0; + } + } + copyTV(L, base, L->top); + tv = L->top-1; + } + return lj_meta_tailcall(L, tv); +} + +LJLIB_CF(ffi_meta___index) LJLIB_REC(cdata_index 0) +{ + CTState *cts = ctype_cts(L); + CTInfo qual = 0; + CType *ct; + uint8_t *p; + TValue *o = L->base; + if (!(o+1 < L->top && tviscdata(o))) /* Also checks for presence of key. */ + lj_err_argt(L, 1, LUA_TCDATA); + ct = lj_cdata_index(cts, cdataV(o), o+1, &p, &qual); + if ((qual & 1)) + return ffi_index_meta(L, cts, ct, MM_index); + if (lj_cdata_get(cts, ct, L->top-1, p)) + lj_gc_check(L); + return 1; +} + +LJLIB_CF(ffi_meta___newindex) LJLIB_REC(cdata_index 1) +{ + CTState *cts = ctype_cts(L); + CTInfo qual = 0; + CType *ct; + uint8_t *p; + TValue *o = L->base; + if (!(o+2 < L->top && tviscdata(o))) /* Also checks for key and value. */ + lj_err_argt(L, 1, LUA_TCDATA); + ct = lj_cdata_index(cts, cdataV(o), o+1, &p, &qual); + if ((qual & 1)) { + if ((qual & CTF_CONST)) + lj_err_caller(L, LJ_ERR_FFI_WRCONST); + return ffi_index_meta(L, cts, ct, MM_newindex); + } + lj_cdata_set(cts, ct, p, o+2, qual); + return 0; +} + +/* Common handler for cdata arithmetic. */ +static int ffi_arith(lua_State *L) +{ + MMS mm = (MMS)(curr_func(L)->c.ffid - (int)FF_ffi_meta___eq + (int)MM_eq); + return lj_carith_op(L, mm); +} + +/* The following functions must be in contiguous ORDER MM. */ +LJLIB_CF(ffi_meta___eq) LJLIB_REC(cdata_arith MM_eq) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___len) LJLIB_REC(cdata_arith MM_len) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___lt) LJLIB_REC(cdata_arith MM_lt) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___le) LJLIB_REC(cdata_arith MM_le) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___concat) LJLIB_REC(cdata_arith MM_concat) +{ + return ffi_arith(L); +} + +/* Forward declaration. */ +static int lj_cf_ffi_new(lua_State *L); + +LJLIB_CF(ffi_meta___call) LJLIB_REC(cdata_call) +{ + CTState *cts = ctype_cts(L); + GCcdata *cd = ffi_checkcdata(L, 1); + CTypeID id = cd->ctypeid; + CType *ct; + cTValue *tv; + MMS mm = MM_call; + if (cd->ctypeid == CTID_CTYPEID) { + id = *(CTypeID *)cdataptr(cd); + mm = MM_new; + } else { + int ret = lj_ccall_func(L, cd); + if (ret >= 0) + return ret; + } + /* Handle ctype __call/__new metamethod. */ + ct = ctype_raw(cts, id); + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, mm); + if (tv) + return lj_meta_tailcall(L, tv); + else if (mm == MM_call) + lj_err_callerv(L, LJ_ERR_FFI_BADCALL, strdata(lj_ctype_repr(L, id, NULL))); + return lj_cf_ffi_new(L); +} + +LJLIB_CF(ffi_meta___add) LJLIB_REC(cdata_arith MM_add) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___sub) LJLIB_REC(cdata_arith MM_sub) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___mul) LJLIB_REC(cdata_arith MM_mul) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___div) LJLIB_REC(cdata_arith MM_div) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___mod) LJLIB_REC(cdata_arith MM_mod) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___pow) LJLIB_REC(cdata_arith MM_pow) +{ + return ffi_arith(L); +} + +LJLIB_CF(ffi_meta___unm) LJLIB_REC(cdata_arith MM_unm) +{ + return ffi_arith(L); +} +/* End of contiguous ORDER MM. */ + +LJLIB_CF(ffi_meta___tostring) +{ + GCcdata *cd = ffi_checkcdata(L, 1); + const char *msg = "cdata<%s>: %p"; + CTypeID id = cd->ctypeid; + void *p = cdataptr(cd); + if (id == CTID_CTYPEID) { + msg = "ctype<%s>"; + id = *(CTypeID *)p; + } else { + CTState *cts = ctype_cts(L); + CType *ct = ctype_raw(cts, id); + if (ctype_isref(ct->info)) { + p = *(void **)p; + ct = ctype_rawchild(cts, ct); + } + if (ctype_iscomplex(ct->info)) { + setstrV(L, L->top-1, lj_ctype_repr_complex(L, cdataptr(cd), ct->size)); + goto checkgc; + } else if (ct->size == 8 && ctype_isinteger(ct->info)) { + setstrV(L, L->top-1, lj_ctype_repr_int64(L, *(uint64_t *)cdataptr(cd), + (ct->info & CTF_UNSIGNED))); + goto checkgc; + } else if (ctype_isfunc(ct->info)) { + p = *(void **)p; + } else if (ctype_isenum(ct->info)) { + msg = "cdata<%s>: %d"; + p = (void *)(uintptr_t)*(uint32_t **)p; + } else { + if (ctype_isptr(ct->info)) { + p = cdata_getptr(p, ct->size); + ct = ctype_rawchild(cts, ct); + } + if (ctype_isstruct(ct->info) || ctype_isvector(ct->info)) { + /* Handle ctype __tostring metamethod. */ + cTValue *tv = lj_ctype_meta(cts, ctype_typeid(cts, ct), MM_tostring); + if (tv) + return lj_meta_tailcall(L, tv); + } + } + } + lj_str_pushf(L, msg, strdata(lj_ctype_repr(L, id, NULL)), p); +checkgc: + lj_gc_check(L); + return 1; +} + +static int ffi_pairs(lua_State *L, MMS mm) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkcdata(L, 1)->ctypeid; + CType *ct = ctype_raw(cts, id); + cTValue *tv; + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, mm); + if (!tv) + lj_err_callerv(L, LJ_ERR_FFI_BADMM, strdata(lj_ctype_repr(L, id, NULL)), + strdata(mmname_str(G(L), mm))); + return lj_meta_tailcall(L, tv); +} + +LJLIB_CF(ffi_meta___pairs) +{ + return ffi_pairs(L, MM_pairs); +} + +LJLIB_CF(ffi_meta___ipairs) +{ + return ffi_pairs(L, MM_ipairs); +} + +LJLIB_PUSH("ffi") LJLIB_SET(__metatable) + +#include "lj_libdef.h" + +/* -- C library metamethods ----------------------------------------------- */ + +#define LJLIB_MODULE_ffi_clib + +/* Index C library by a name. */ +static TValue *ffi_clib_index(lua_State *L) +{ + TValue *o = L->base; + CLibrary *cl; + if (!(o < L->top && tvisudata(o) && udataV(o)->udtype == UDTYPE_FFI_CLIB)) + lj_err_argt(L, 1, LUA_TUSERDATA); + cl = (CLibrary *)uddata(udataV(o)); + if (!(o+1 < L->top && tvisstr(o+1))) + lj_err_argt(L, 2, LUA_TSTRING); + return lj_clib_index(L, cl, strV(o+1)); +} + +LJLIB_CF(ffi_clib___index) LJLIB_REC(clib_index 1) +{ + TValue *tv = ffi_clib_index(L); + if (tviscdata(tv)) { + CTState *cts = ctype_cts(L); + GCcdata *cd = cdataV(tv); + CType *s = ctype_get(cts, cd->ctypeid); + if (ctype_isextern(s->info)) { + CTypeID sid = ctype_cid(s->info); + void *sp = *(void **)cdataptr(cd); + CType *ct = ctype_raw(cts, sid); + if (lj_cconv_tv_ct(cts, ct, sid, L->top-1, sp)) + lj_gc_check(L); + return 1; + } + } + copyTV(L, L->top-1, tv); + return 1; +} + +LJLIB_CF(ffi_clib___newindex) LJLIB_REC(clib_index 0) +{ + TValue *tv = ffi_clib_index(L); + TValue *o = L->base+2; + if (o < L->top && tviscdata(tv)) { + CTState *cts = ctype_cts(L); + GCcdata *cd = cdataV(tv); + CType *d = ctype_get(cts, cd->ctypeid); + if (ctype_isextern(d->info)) { + CTInfo qual = 0; + for (;;) { /* Skip attributes and collect qualifiers. */ + d = ctype_child(cts, d); + if (!ctype_isattrib(d->info)) break; + if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size; + } + if (!((d->info|qual) & CTF_CONST)) { + lj_cconv_ct_tv(cts, d, *(void **)cdataptr(cd), o, 0); + return 0; + } + } + } + lj_err_caller(L, LJ_ERR_FFI_WRCONST); + return 0; /* unreachable */ +} + +LJLIB_CF(ffi_clib___gc) +{ + TValue *o = L->base; + if (o < L->top && tvisudata(o) && udataV(o)->udtype == UDTYPE_FFI_CLIB) + lj_clib_unload((CLibrary *)uddata(udataV(o))); + return 0; +} + +#include "lj_libdef.h" + +/* -- Callback function metamethods --------------------------------------- */ + +#define LJLIB_MODULE_ffi_callback + +static int ffi_callback_set(lua_State *L, GCfunc *fn) +{ + GCcdata *cd = ffi_checkcdata(L, 1); + CTState *cts = ctype_cts(L); + CType *ct = ctype_raw(cts, cd->ctypeid); + if (ctype_isptr(ct->info) && (LJ_32 || ct->size == 8)) { + MSize slot = lj_ccallback_ptr2slot(cts, *(void **)cdataptr(cd)); + if (slot < cts->cb.sizeid && cts->cb.cbid[slot] != 0) { + GCtab *t = cts->miscmap; + TValue *tv = lj_tab_setint(L, t, (int32_t)slot); + if (fn) { + setfuncV(L, tv, fn); + lj_gc_anybarriert(L, t); + } else { + setnilV(tv); + cts->cb.cbid[slot] = 0; + cts->cb.topid = slot < cts->cb.topid ? slot : cts->cb.topid; + } + return 0; + } + } + lj_err_caller(L, LJ_ERR_FFI_BADCBACK); + return 0; +} + +LJLIB_CF(ffi_callback_free) +{ + return ffi_callback_set(L, NULL); +} + +LJLIB_CF(ffi_callback_set) +{ + GCfunc *fn = lj_lib_checkfunc(L, 2); + return ffi_callback_set(L, fn); +} + +LJLIB_PUSH(top-1) LJLIB_SET(__index) + +#include "lj_libdef.h" + +/* -- FFI library functions ----------------------------------------------- */ + +#define LJLIB_MODULE_ffi + +LJLIB_CF(ffi_cdef) +{ + GCstr *s = lj_lib_checkstr(L, 1); + CPState cp; + int errcode; + cp.L = L; + cp.cts = ctype_cts(L); + cp.srcname = strdata(s); + cp.p = strdata(s); + cp.param = L->base+1; + cp.mode = CPARSE_MODE_MULTI|CPARSE_MODE_DIRECT; + errcode = lj_cparse(&cp); + if (errcode) lj_err_throw(L, errcode); /* Propagate errors. */ + lj_gc_check(L); + return 0; +} + +LJLIB_CF(ffi_new) LJLIB_REC(.) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + CType *ct = ctype_raw(cts, id); + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); + TValue *o = L->base+1; + GCcdata *cd; + if ((info & CTF_VLA)) { + o++; + sz = lj_ctype_vlsize(cts, ct, (CTSize)ffi_checkint(L, 2)); + } + if (sz == CTSIZE_INVALID) + lj_err_arg(L, 1, LJ_ERR_FFI_INVSIZE); + if (!(info & CTF_VLA) && ctype_align(info) <= CT_MEMALIGN) + cd = lj_cdata_new(cts, id, sz); + else + cd = lj_cdata_newv(cts, id, sz, ctype_align(info)); + setcdataV(L, o-1, cd); /* Anchor the uninitialized cdata. */ + lj_cconv_ct_init(cts, ct, sz, cdataptr(cd), + o, (MSize)(L->top - o)); /* Initialize cdata. */ + if (ctype_isstruct(ct->info)) { + /* Handle ctype __gc metamethod. Use the fast lookup here. */ + cTValue *tv = lj_tab_getinth(cts->miscmap, -(int32_t)id); + if (tv && tvistab(tv) && (tv = lj_meta_fast(L, tabV(tv), MM_gc))) { + GCtab *t = cts->finalizer; + if (gcref(t->metatable)) { + /* Add to finalizer table, if still enabled. */ + copyTV(L, lj_tab_set(L, t, o-1), tv); + lj_gc_anybarriert(L, t); + cd->marked |= LJ_GC_CDATA_FIN; + } + } + } + L->top = o; /* Only return the cdata itself. */ + lj_gc_check(L); + return 1; +} + +LJLIB_CF(ffi_cast) LJLIB_REC(ffi_new) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + CType *d = ctype_raw(cts, id); + TValue *o = lj_lib_checkany(L, 2); + L->top = o+1; /* Make sure this is the last item on the stack. */ + if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || ctype_isenum(d->info))) + lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); + if (!(tviscdata(o) && cdataV(o)->ctypeid == id)) { + GCcdata *cd = lj_cdata_new(cts, id, d->size); + lj_cconv_ct_tv(cts, d, cdataptr(cd), o, CCF_CAST); + setcdataV(L, o, cd); + lj_gc_check(L); + } + return 1; +} + +LJLIB_CF(ffi_typeof) LJLIB_REC(.) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, L->base+1); + GCcdata *cd = lj_cdata_new(cts, CTID_CTYPEID, 4); + *(CTypeID *)cdataptr(cd) = id; + setcdataV(L, L->top-1, cd); + lj_gc_check(L); + return 1; +} + +LJLIB_CF(ffi_istype) LJLIB_REC(.) +{ + CTState *cts = ctype_cts(L); + CTypeID id1 = ffi_checkctype(L, cts, NULL); + TValue *o = lj_lib_checkany(L, 2); + int b = 0; + if (tviscdata(o)) { + GCcdata *cd = cdataV(o); + CTypeID id2 = cd->ctypeid == CTID_CTYPEID ? *(CTypeID *)cdataptr(cd) : + cd->ctypeid; + CType *ct1 = lj_ctype_rawref(cts, id1); + CType *ct2 = lj_ctype_rawref(cts, id2); + if (ct1 == ct2) { + b = 1; + } else if (ctype_type(ct1->info) == ctype_type(ct2->info) && + ct1->size == ct2->size) { + if (ctype_ispointer(ct1->info)) + b = lj_cconv_compatptr(cts, ct1, ct2, CCF_IGNQUAL); + else if (ctype_isnum(ct1->info) || ctype_isvoid(ct1->info)) + b = (((ct1->info ^ ct2->info) & ~(CTF_QUAL|CTF_LONG)) == 0); + } else if (ctype_isstruct(ct1->info) && ctype_isptr(ct2->info) && + ct1 == ctype_rawchild(cts, ct2)) { + b = 1; + } + } + setboolV(L->top-1, b); + setboolV(&G(L)->tmptv2, b); /* Remember for trace recorder. */ + return 1; +} + +LJLIB_CF(ffi_sizeof) LJLIB_REC(ffi_xof FF_ffi_sizeof) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + CTSize sz; + if (LJ_UNLIKELY(tviscdata(L->base) && cdataisv(cdataV(L->base)))) { + sz = cdatavlen(cdataV(L->base)); + } else { + CType *ct = lj_ctype_rawref(cts, id); + if (ctype_isvltype(ct->info)) + sz = lj_ctype_vlsize(cts, ct, (CTSize)ffi_checkint(L, 2)); + else + sz = ctype_hassize(ct->info) ? ct->size : CTSIZE_INVALID; + if (LJ_UNLIKELY(sz == CTSIZE_INVALID)) { + setnilV(L->top-1); + return 1; + } + } + setintV(L->top-1, (int32_t)sz); + return 1; +} + +LJLIB_CF(ffi_alignof) LJLIB_REC(ffi_xof FF_ffi_alignof) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + CTSize sz = 0; + CTInfo info = lj_ctype_info(cts, id, &sz); + setintV(L->top-1, 1 << ctype_align(info)); + return 1; +} + +LJLIB_CF(ffi_offsetof) LJLIB_REC(ffi_xof FF_ffi_offsetof) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + GCstr *name = lj_lib_checkstr(L, 2); + CType *ct = lj_ctype_rawref(cts, id); + CTSize ofs; + if (ctype_isstruct(ct->info) && ct->size != CTSIZE_INVALID) { + CType *fct = lj_ctype_getfield(cts, ct, name, &ofs); + if (fct) { + setintV(L->top-1, ofs); + if (ctype_isfield(fct->info)) { + return 1; + } else if (ctype_isbitfield(fct->info)) { + setintV(L->top++, ctype_bitpos(fct->info)); + setintV(L->top++, ctype_bitbsz(fct->info)); + return 3; + } + } + } + return 0; +} + +LJLIB_CF(ffi_errno) LJLIB_REC(.) +{ + int err = errno; + if (L->top > L->base) + errno = ffi_checkint(L, 1); + setintV(L->top++, err); + return 1; +} + +LJLIB_CF(ffi_string) LJLIB_REC(.) +{ + CTState *cts = ctype_cts(L); + TValue *o = lj_lib_checkany(L, 1); + const char *p; + size_t len; + if (o+1 < L->top && !tvisnil(o+1)) { + len = (size_t)ffi_checkint(L, 2); + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_P_CVOID), (uint8_t *)&p, o, + CCF_ARG(1)); + } else { + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_P_CCHAR), (uint8_t *)&p, o, + CCF_ARG(1)); + len = strlen(p); + } + L->top = o+1; /* Make sure this is the last item on the stack. */ + setstrV(L, o, lj_str_new(L, p, len)); + lj_gc_check(L); + return 1; +} + +LJLIB_CF(ffi_copy) LJLIB_REC(.) +{ + void *dp = ffi_checkptr(L, 1, CTID_P_VOID); + void *sp = ffi_checkptr(L, 2, CTID_P_CVOID); + TValue *o = L->base+1; + CTSize len; + if (tvisstr(o) && o+1 >= L->top) + len = strV(o)->len+1; /* Copy Lua string including trailing '\0'. */ + else + len = (CTSize)ffi_checkint(L, 3); + memcpy(dp, sp, len); + return 0; +} + +LJLIB_CF(ffi_fill) LJLIB_REC(.) +{ + void *dp = ffi_checkptr(L, 1, CTID_P_VOID); + CTSize len = (CTSize)ffi_checkint(L, 2); + int32_t fill = 0; + if (L->base+2 < L->top && !tvisnil(L->base+2)) fill = ffi_checkint(L, 3); + memset(dp, fill, len); + return 0; +} + +#define H_(le, be) LJ_ENDIAN_SELECT(0x##le, 0x##be) + +/* Test ABI string. */ +LJLIB_CF(ffi_abi) LJLIB_REC(.) +{ + GCstr *s = lj_lib_checkstr(L, 1); + int b = 0; + switch (s->hash) { +#if LJ_64 + case H_(849858eb,ad35fd06): b = 1; break; /* 64bit */ +#else + case H_(662d3c79,d0e22477): b = 1; break; /* 32bit */ +#endif +#if LJ_ARCH_HASFPU + case H_(e33ee463,e33ee463): b = 1; break; /* fpu */ +#endif +#if LJ_ABI_SOFTFP + case H_(61211a23,c2e8c81c): b = 1; break; /* softfp */ +#else + case H_(539417a8,8ce0812f): b = 1; break; /* hardfp */ +#endif +#if LJ_ABI_EABI + case H_(2182df8f,f2ed1152): b = 1; break; /* eabi */ +#endif +#if LJ_ABI_WIN + case H_(4ab624a8,4ab624a8): b = 1; break; /* win */ +#endif + case H_(3af93066,1f001464): b = 1; break; /* le/be */ + default: + break; + } + setboolV(L->top-1, b); + setboolV(&G(L)->tmptv2, b); /* Remember for trace recorder. */ + return 1; +} + +#undef H_ + +LJLIB_PUSH(top-8) LJLIB_SET(!) /* Store reference to miscmap table. */ + +LJLIB_CF(ffi_metatype) +{ + CTState *cts = ctype_cts(L); + CTypeID id = ffi_checkctype(L, cts, NULL); + GCtab *mt = lj_lib_checktab(L, 2); + GCtab *t = cts->miscmap; + CType *ct = ctype_get(cts, id); /* Only allow raw types. */ + TValue *tv; + GCcdata *cd; + if (!(ctype_isstruct(ct->info) || ctype_iscomplex(ct->info) || + ctype_isvector(ct->info))) + lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); + tv = lj_tab_setinth(L, t, -(int32_t)id); + if (!tvisnil(tv)) + lj_err_caller(L, LJ_ERR_PROTMT); + settabV(L, tv, mt); + lj_gc_anybarriert(L, t); + cd = lj_cdata_new(cts, CTID_CTYPEID, 4); + *(CTypeID *)cdataptr(cd) = id; + setcdataV(L, L->top-1, cd); + lj_gc_check(L); + return 1; +} + +LJLIB_PUSH(top-7) LJLIB_SET(!) /* Store reference to finalizer table. */ + +LJLIB_CF(ffi_gc) LJLIB_REC(.) +{ + GCcdata *cd = ffi_checkcdata(L, 1); + TValue *fin = lj_lib_checkany(L, 2); + CTState *cts = ctype_cts(L); + GCtab *t = cts->finalizer; + CType *ct = ctype_raw(cts, cd->ctypeid); + if (!(ctype_isptr(ct->info) || ctype_isstruct(ct->info) || + ctype_isrefarray(ct->info))) + lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); + if (gcref(t->metatable)) { /* Update finalizer table, if still enabled. */ + copyTV(L, lj_tab_set(L, t, L->base), fin); + lj_gc_anybarriert(L, t); + if (!tvisnil(fin)) + cd->marked |= LJ_GC_CDATA_FIN; + else + cd->marked &= ~LJ_GC_CDATA_FIN; + } + L->top = L->base+1; /* Pass through the cdata object. */ + return 1; +} + +LJLIB_PUSH(top-5) LJLIB_SET(!) /* Store clib metatable in func environment. */ + +LJLIB_CF(ffi_load) +{ + GCstr *name = lj_lib_checkstr(L, 1); + int global = (L->base+1 < L->top && tvistruecond(L->base+1)); + lj_clib_load(L, tabref(curr_func(L)->c.env), name, global); + return 1; +} + +LJLIB_PUSH(top-4) LJLIB_SET(C) +LJLIB_PUSH(top-3) LJLIB_SET(os) +LJLIB_PUSH(top-2) LJLIB_SET(arch) + +#include "lj_libdef.h" + +/* ------------------------------------------------------------------------ */ + +/* Create special weak-keyed finalizer table. */ +static GCtab *ffi_finalizer(lua_State *L) +{ + /* NOBARRIER: The table is new (marked white). */ + GCtab *t = lj_tab_new(L, 0, 1); + settabV(L, L->top++, t); + setgcref(t->metatable, obj2gco(t)); + setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "__mode")), + lj_str_newlit(L, "K")); + t->nomm = (uint8_t)(~(1u<top-1); + lj_gc_anybarriert(L, t); + } +} + +LUALIB_API int luaopen_ffi(lua_State *L) +{ + CTState *cts = lj_ctype_init(L); + settabV(L, L->top++, (cts->miscmap = lj_tab_new(L, 0, 1))); + cts->finalizer = ffi_finalizer(L); + LJ_LIB_REG(L, NULL, ffi_meta); + /* NOBARRIER: basemt is a GC root. */ + setgcref(basemt_it(G(L), LJ_TCDATA), obj2gco(tabV(L->top-1))); + LJ_LIB_REG(L, NULL, ffi_clib); + LJ_LIB_REG(L, NULL, ffi_callback); + /* NOBARRIER: the key is new and lj_tab_newkey() handles the barrier. */ + settabV(L, lj_tab_setstr(L, cts->miscmap, &cts->g->strempty), tabV(L->top-1)); + L->top--; + lj_clib_default(L, tabV(L->top-1)); /* Create ffi.C default namespace. */ + lua_pushliteral(L, LJ_OS_NAME); + lua_pushliteral(L, LJ_ARCH_NAME); + LJ_LIB_REG(L, NULL, ffi); /* Note: no global "ffi" created! */ + ffi_register_module(L); + return 1; +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lib_init.c b/src/3rd party/luajit-2.0/src/lib_init.c new file mode 100644 index 00000000000..85c194af43f --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_init.c @@ -0,0 +1,55 @@ +/* +** Library initialization. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major parts taken verbatim from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lib_init_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_arch.h" + +static const luaL_Reg lj_lib_load[] = { + { "", luaopen_base }, + { LUA_LOADLIBNAME, luaopen_package }, + { LUA_TABLIBNAME, luaopen_table }, + { LUA_IOLIBNAME, luaopen_io }, + { LUA_OSLIBNAME, luaopen_os }, + { LUA_STRLIBNAME, luaopen_string }, + { LUA_MATHLIBNAME, luaopen_math }, + { LUA_DBLIBNAME, luaopen_debug }, + { LUA_BITLIBNAME, luaopen_bit }, + { LUA_JITLIBNAME, luaopen_jit }, + { NULL, NULL } +}; + +static const luaL_Reg lj_lib_preload[] = { +#if LJ_HASFFI + { LUA_FFILIBNAME, luaopen_ffi }, +#endif + { NULL, NULL } +}; + +LUALIB_API void luaL_openlibs(lua_State *L) +{ + const luaL_Reg *lib; + for (lib = lj_lib_load; lib->func; lib++) { + lua_pushcfunction(L, lib->func); + lua_pushstring(L, lib->name); + lua_call(L, 1, 0); + } + luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", + sizeof(lj_lib_preload)/sizeof(lj_lib_preload[0])-1); + for (lib = lj_lib_preload; lib->func; lib++) { + lua_pushcfunction(L, lib->func); + lua_setfield(L, -2, lib->name); + } + lua_pop(L, 1); +} + diff --git a/src/3rd party/luajit-2.0/src/lib_io.c b/src/3rd party/luajit-2.0/src/lib_io.c new file mode 100644 index 00000000000..037aa28e562 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_io.c @@ -0,0 +1,539 @@ +/* +** I/O library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2011 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include +#include + +#define lib_io_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_state.h" +#include "lj_ff.h" +#include "lj_lib.h" + +/* Userdata payload for I/O file. */ +typedef struct IOFileUD { + FILE *fp; /* File handle. */ + uint32_t type; /* File type. */ +} IOFileUD; + +#define IOFILE_TYPE_FILE 0 /* Regular file. */ +#define IOFILE_TYPE_PIPE 1 /* Pipe. */ +#define IOFILE_TYPE_STDF 2 /* Standard file handle. */ +#define IOFILE_TYPE_MASK 3 + +#define IOFILE_FLAG_CLOSE 4 /* Close after io.lines() iterator. */ + +#define IOSTDF_UD(L, id) (&gcref(G(L)->gcroot[(id)])->ud) +#define IOSTDF_IOF(L, id) ((IOFileUD *)uddata(IOSTDF_UD(L, (id)))) + +/* -- Open/close helpers -------------------------------------------------- */ + +static IOFileUD *io_tofilep(lua_State *L) +{ + if (!(L->base < L->top && tvisudata(L->base) && + udataV(L->base)->udtype == UDTYPE_IO_FILE)) + lj_err_argtype(L, 1, "FILE*"); + return (IOFileUD *)uddata(udataV(L->base)); +} + +static IOFileUD *io_tofile(lua_State *L) +{ + IOFileUD *iof = io_tofilep(L); + if (iof->fp == NULL) + lj_err_caller(L, LJ_ERR_IOCLFL); + return iof; +} + +static FILE *io_stdfile(lua_State *L, ptrdiff_t id) +{ + IOFileUD *iof = IOSTDF_IOF(L, id); + if (iof->fp == NULL) + lj_err_caller(L, LJ_ERR_IOSTDCL); + return iof->fp; +} + +static IOFileUD *io_file_new(lua_State *L) +{ + IOFileUD *iof = (IOFileUD *)lua_newuserdata(L, sizeof(IOFileUD)); + GCudata *ud = udataV(L->top-1); + ud->udtype = UDTYPE_IO_FILE; + /* NOBARRIER: The GCudata is new (marked white). */ + setgcrefr(ud->metatable, curr_func(L)->c.env); + iof->fp = NULL; + iof->type = IOFILE_TYPE_FILE; + return iof; +} + +static IOFileUD *io_file_open(lua_State *L, const char *mode) +{ + const char *fname = strdata(lj_lib_checkstr(L, 1)); + IOFileUD *iof = io_file_new(L); + iof->fp = fopen(fname, mode); + if (iof->fp == NULL) + luaL_argerror(L, 1, lj_str_pushf(L, "%s: %s", fname, strerror(errno))); + return iof; +} + +static int io_file_close(lua_State *L, IOFileUD *iof) +{ + int ok; + if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_FILE) { + ok = (fclose(iof->fp) == 0); + } else if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_PIPE) { + int stat = -1; +#if LJ_TARGET_POSIX + stat = pclose(iof->fp); +#elif LJ_TARGET_WINDOWS + stat = _pclose(iof->fp); +#else + lua_assert(0); + return 0; +#endif +#if LJ_52 + iof->fp = NULL; + return luaL_execresult(L, stat); +#else + ok = (stat != -1); +#endif + } else { + lua_assert((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_STDF); + setnilV(L->top++); + lua_pushliteral(L, "cannot close standard file"); + return 2; + } + iof->fp = NULL; + return luaL_fileresult(L, ok, NULL); +} + +/* -- Read/write helpers -------------------------------------------------- */ + +static int io_file_readnum(lua_State *L, FILE *fp) +{ + lua_Number d; + if (fscanf(fp, LUA_NUMBER_SCAN, &d) == 1) { + if (LJ_DUALNUM) { + int32_t i = lj_num2int(d); + if (d == (lua_Number)i && !tvismzero((cTValue *)&d)) { + setintV(L->top++, i); + return 1; + } + } + setnumV(L->top++, d); + return 1; + } else { + setnilV(L->top++); + return 0; + } +} + +static int io_file_readline(lua_State *L, FILE *fp, MSize chop) +{ + MSize m = LUAL_BUFFERSIZE, n = 0, ok = 0; + char *buf; + for (;;) { + buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + if (fgets(buf+n, m-n, fp) == NULL) break; + n += (MSize)strlen(buf+n); + ok |= n; + if (n && buf[n-1] == '\n') { n -= chop; break; } + if (n >= m - 64) m += m; + } + setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); + lj_gc_check(L); + return (int)ok; +} + +static void io_file_readall(lua_State *L, FILE *fp) +{ + MSize m, n; + for (m = LUAL_BUFFERSIZE, n = 0; ; m += m) { + char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + n += (MSize)fread(buf+n, 1, m-n, fp); + if (n != m) { + setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); + lj_gc_check(L); + return; + } + } +} + +static int io_file_readlen(lua_State *L, FILE *fp, MSize m) +{ + if (m) { + char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + MSize n = (MSize)fread(buf, 1, m, fp); + setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); + lj_gc_check(L); + return (n > 0 || m == 0); + } else { + int c = getc(fp); + ungetc(c, fp); + setstrV(L, L->top++, &G(L)->strempty); + return (c != EOF); + } +} + +static int io_file_read(lua_State *L, FILE *fp, int start) +{ + int ok, n, nargs = (int)(L->top - L->base) - start; + clearerr(fp); + if (nargs == 0) { + ok = io_file_readline(L, fp, 1); + n = start+1; /* Return 1 result. */ + } else { + /* The results plus the buffers go on top of the args. */ + luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); + ok = 1; + for (n = start; nargs-- && ok; n++) { + if (tvisstr(L->base+n)) { + const char *p = strVdata(L->base+n); + if (p[0] != '*') + lj_err_arg(L, n+1, LJ_ERR_INVOPT); + if (p[1] == 'n') + ok = io_file_readnum(L, fp); + else if ((p[1] & ~0x20) == 'L') + ok = io_file_readline(L, fp, (p[1] == 'l')); + else if (p[1] == 'a') + io_file_readall(L, fp); + else + lj_err_arg(L, n+1, LJ_ERR_INVFMT); + } else if (tvisnumber(L->base+n)) { + ok = io_file_readlen(L, fp, (MSize)lj_lib_checkint(L, n+1)); + } else { + lj_err_arg(L, n+1, LJ_ERR_INVOPT); + } + } + } + if (ferror(fp)) + return luaL_fileresult(L, 0, NULL); + if (!ok) + setnilV(L->top-1); /* Replace last result with nil. */ + return n - start; +} + +static int io_file_write(lua_State *L, FILE *fp, int start) +{ + cTValue *tv; + int status = 1; + for (tv = L->base+start; tv < L->top; tv++) { + if (tvisstr(tv)) { + MSize len = strV(tv)->len; + status = status && (fwrite(strVdata(tv), 1, len, fp) == len); + } else if (tvisint(tv)) { + char buf[LJ_STR_INTBUF]; + char *p = lj_str_bufint(buf, intV(tv)); + size_t len = (size_t)(buf+LJ_STR_INTBUF-p); + status = status && (fwrite(p, 1, len, fp) == len); + } else if (tvisnum(tv)) { + status = status && (fprintf(fp, LUA_NUMBER_FMT, numV(tv)) > 0); + } else { + lj_err_argt(L, (int)(tv - L->base) + 1, LUA_TSTRING); + } + } + if (LJ_52 && status) { + L->top = L->base+1; + if (start == 0) + setudataV(L, L->base, IOSTDF_UD(L, GCROOT_IO_OUTPUT)); + return 1; + } + return luaL_fileresult(L, status, NULL); +} + +static int io_file_iter(lua_State *L) +{ + GCfunc *fn = curr_func(L); + IOFileUD *iof = uddata(udataV(&fn->c.upvalue[0])); + int n = fn->c.nupvalues - 1; + if (iof->fp == NULL) + lj_err_caller(L, LJ_ERR_IOCLFL); + L->top = L->base; + if (n) { /* Copy upvalues with options to stack. */ + if (n > LUAI_MAXCSTACK) + lj_err_caller(L, LJ_ERR_STKOV); + lj_state_checkstack(L, (MSize)n); + memcpy(L->top, &fn->c.upvalue[1], n*sizeof(TValue)); + L->top += n; + } + n = io_file_read(L, iof->fp, 0); + if (ferror(iof->fp)) + lj_err_callermsg(L, strVdata(L->top-2)); + if (tvisnil(L->base) && (iof->type & IOFILE_FLAG_CLOSE)) { + io_file_close(L, iof); /* Return values are ignored. */ + return 0; + } + return n; +} + +/* -- I/O file methods ---------------------------------------------------- */ + +#define LJLIB_MODULE_io_method + +LJLIB_CF(io_method_close) +{ + IOFileUD *iof = L->base < L->top ? io_tofile(L) : + IOSTDF_IOF(L, GCROOT_IO_OUTPUT); + return io_file_close(L, iof); +} + +LJLIB_CF(io_method_read) +{ + return io_file_read(L, io_tofile(L)->fp, 1); +} + +LJLIB_CF(io_method_write) LJLIB_REC(io_write 0) +{ + return io_file_write(L, io_tofile(L)->fp, 1); +} + +LJLIB_CF(io_method_flush) LJLIB_REC(io_flush 0) +{ + return luaL_fileresult(L, fflush(io_tofile(L)->fp) == 0, NULL); +} + +LJLIB_CF(io_method_seek) +{ + FILE *fp = io_tofile(L)->fp; + int opt = lj_lib_checkopt(L, 2, 1, "\3set\3cur\3end"); + int64_t ofs = 0; + cTValue *o; + int res; + if (opt == 0) opt = SEEK_SET; + else if (opt == 1) opt = SEEK_CUR; + else if (opt == 2) opt = SEEK_END; + o = L->base+2; + if (o < L->top) { + if (tvisint(o)) + ofs = (int64_t)intV(o); + else if (tvisnum(o)) + ofs = (int64_t)numV(o); + else if (!tvisnil(o)) + lj_err_argt(L, 3, LUA_TNUMBER); + } +#if LJ_TARGET_POSIX + res = fseeko(fp, ofs, opt); +#elif _MSC_VER >= 1400 + res = _fseeki64(fp, ofs, opt); +#elif defined(__MINGW32__) + res = fseeko64(fp, ofs, opt); +#else + res = fseek(fp, (long)ofs, opt); +#endif + if (res) + return luaL_fileresult(L, 0, NULL); +#if LJ_TARGET_POSIX + ofs = ftello(fp); +#elif _MSC_VER >= 1400 + ofs = _ftelli64(fp); +#elif defined(__MINGW32__) + ofs = ftello64(fp); +#else + ofs = (int64_t)ftell(fp); +#endif + setint64V(L->top-1, ofs); + return 1; +} + +LJLIB_CF(io_method_setvbuf) +{ + FILE *fp = io_tofile(L)->fp; + int opt = lj_lib_checkopt(L, 2, -1, "\4full\4line\2no"); + size_t sz = (size_t)lj_lib_optint(L, 3, LUAL_BUFFERSIZE); + if (opt == 0) opt = _IOFBF; + else if (opt == 1) opt = _IOLBF; + else if (opt == 2) opt = _IONBF; + return luaL_fileresult(L, setvbuf(fp, NULL, opt, sz) == 0, NULL); +} + +LJLIB_CF(io_method_lines) +{ + io_tofile(L); + lua_pushcclosure(L, io_file_iter, (int)(L->top - L->base)); + return 1; +} + +LJLIB_CF(io_method___gc) +{ + IOFileUD *iof = io_tofilep(L); + if (iof->fp != NULL && (iof->type & IOFILE_TYPE_MASK) != IOFILE_TYPE_STDF) + io_file_close(L, iof); + return 0; +} + +LJLIB_CF(io_method___tostring) +{ + IOFileUD *iof = io_tofilep(L); + if (iof->fp != NULL) + lua_pushfstring(L, "file (%p)", iof->fp); + else + lua_pushliteral(L, "file (closed)"); + return 1; +} + +LJLIB_PUSH(top-1) LJLIB_SET(__index) + +#include "lj_libdef.h" + +/* -- I/O library functions ----------------------------------------------- */ + +#define LJLIB_MODULE_io + +LJLIB_PUSH(top-2) LJLIB_SET(!) /* Set environment. */ + +LJLIB_CF(io_open) +{ + const char *fname = strdata(lj_lib_checkstr(L, 1)); + GCstr *s = lj_lib_optstr(L, 2); + const char *mode = s ? strdata(s) : "r"; + IOFileUD *iof = io_file_new(L); + iof->fp = fopen(fname, mode); + return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname); +} + +LJLIB_CF(io_popen) +{ +#if LJ_TARGET_POSIX || LJ_TARGET_WINDOWS + const char *fname = strdata(lj_lib_checkstr(L, 1)); + GCstr *s = lj_lib_optstr(L, 2); + const char *mode = s ? strdata(s) : "r"; + IOFileUD *iof = io_file_new(L); + iof->type = IOFILE_TYPE_PIPE; +#if LJ_TARGET_POSIX + fflush(NULL); + iof->fp = popen(fname, mode); +#else + iof->fp = _popen(fname, mode); +#endif + return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname); +#else + return luaL_error(L, LUA_QL("popen") " not supported"); +#endif +} + +LJLIB_CF(io_tmpfile) +{ + IOFileUD *iof = io_file_new(L); +#if LJ_TARGET_PS3 || LJ_TARGET_PS4 || LJ_TARGET_PSVITA + iof->fp = NULL; errno = ENOSYS; +#else + iof->fp = tmpfile(); +#endif + return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, NULL); +} + +LJLIB_CF(io_close) +{ + return lj_cf_io_method_close(L); +} + +LJLIB_CF(io_read) +{ + return io_file_read(L, io_stdfile(L, GCROOT_IO_INPUT), 0); +} + +LJLIB_CF(io_write) LJLIB_REC(io_write GCROOT_IO_OUTPUT) +{ + return io_file_write(L, io_stdfile(L, GCROOT_IO_OUTPUT), 0); +} + +LJLIB_CF(io_flush) LJLIB_REC(io_flush GCROOT_IO_OUTPUT) +{ + return luaL_fileresult(L, fflush(io_stdfile(L, GCROOT_IO_OUTPUT)) == 0, NULL); +} + +static int io_std_getset(lua_State *L, ptrdiff_t id, const char *mode) +{ + if (L->base < L->top && !tvisnil(L->base)) { + if (tvisudata(L->base)) { + io_tofile(L); + L->top = L->base+1; + } else { + io_file_open(L, mode); + } + /* NOBARRIER: The standard I/O handles are GC roots. */ + setgcref(G(L)->gcroot[id], gcV(L->top-1)); + } else { + setudataV(L, L->top++, IOSTDF_UD(L, id)); + } + return 1; +} + +LJLIB_CF(io_input) +{ + return io_std_getset(L, GCROOT_IO_INPUT, "r"); +} + +LJLIB_CF(io_output) +{ + return io_std_getset(L, GCROOT_IO_OUTPUT, "w"); +} + +LJLIB_CF(io_lines) +{ + if (L->base == L->top) setnilV(L->top++); + if (!tvisnil(L->base)) { /* io.lines(fname) */ + IOFileUD *iof = io_file_open(L, "r"); + iof->type = IOFILE_TYPE_FILE|IOFILE_FLAG_CLOSE; + L->top--; + setudataV(L, L->base, udataV(L->top)); + } else { /* io.lines() iterates over stdin. */ + setudataV(L, L->base, IOSTDF_UD(L, GCROOT_IO_INPUT)); + } + lua_pushcclosure(L, io_file_iter, (int)(L->top - L->base)); + return 1; +} + +LJLIB_CF(io_type) +{ + cTValue *o = lj_lib_checkany(L, 1); + if (!(tvisudata(o) && udataV(o)->udtype == UDTYPE_IO_FILE)) + setnilV(L->top++); + else if (((IOFileUD *)uddata(udataV(o)))->fp != NULL) + lua_pushliteral(L, "file"); + else + lua_pushliteral(L, "closed file"); + return 1; +} + +#include "lj_libdef.h" + +/* ------------------------------------------------------------------------ */ + +static GCobj *io_std_new(lua_State *L, FILE *fp, const char *name) +{ + IOFileUD *iof = (IOFileUD *)lua_newuserdata(L, sizeof(IOFileUD)); + GCudata *ud = udataV(L->top-1); + ud->udtype = UDTYPE_IO_FILE; + /* NOBARRIER: The GCudata is new (marked white). */ + setgcref(ud->metatable, gcV(L->top-3)); + iof->fp = fp; + iof->type = IOFILE_TYPE_STDF; + lua_setfield(L, -2, name); + return obj2gco(ud); +} + +LUALIB_API int luaopen_io(lua_State *L) +{ + LJ_LIB_REG(L, NULL, io_method); + copyTV(L, L->top, L->top-1); L->top++; + lua_setfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); + LJ_LIB_REG(L, LUA_IOLIBNAME, io); + setgcref(G(L)->gcroot[GCROOT_IO_INPUT], io_std_new(L, stdin, "stdin")); + setgcref(G(L)->gcroot[GCROOT_IO_OUTPUT], io_std_new(L, stdout, "stdout")); + io_std_new(L, stderr, "stderr"); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_jit.c b/src/3rd party/luajit-2.0/src/lib_jit.c new file mode 100644 index 00000000000..96525faf271 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_jit.c @@ -0,0 +1,663 @@ +/* +** JIT library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lib_jit_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_arch.h" +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_bc.h" +#if LJ_HASJIT +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_target.h" +#endif +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_vmevent.h" +#include "lj_lib.h" + +#include "luajit.h" + +/* -- jit.* functions ----------------------------------------------------- */ + +#define LJLIB_MODULE_jit + +static int setjitmode(lua_State *L, int mode) +{ + int idx = 0; + if (L->base == L->top || tvisnil(L->base)) { /* jit.on/off/flush([nil]) */ + mode |= LUAJIT_MODE_ENGINE; + } else { + /* jit.on/off/flush(func|proto, nil|true|false) */ + if (tvisfunc(L->base) || tvisproto(L->base)) + idx = 1; + else if (!tvistrue(L->base)) /* jit.on/off/flush(true, nil|true|false) */ + goto err; + if (L->base+1 < L->top && tvisbool(L->base+1)) + mode |= boolV(L->base+1) ? LUAJIT_MODE_ALLFUNC : LUAJIT_MODE_ALLSUBFUNC; + else + mode |= LUAJIT_MODE_FUNC; + } + if (luaJIT_setmode(L, idx, mode) != 1) { + if ((mode & LUAJIT_MODE_MASK) == LUAJIT_MODE_ENGINE) + lj_err_caller(L, LJ_ERR_NOJIT); + err: + lj_err_argt(L, 1, LUA_TFUNCTION); + } + return 0; +} + +LJLIB_CF(jit_on) +{ + return setjitmode(L, LUAJIT_MODE_ON); +} + +LJLIB_CF(jit_off) +{ + return setjitmode(L, LUAJIT_MODE_OFF); +} + +LJLIB_CF(jit_flush) +{ +#if LJ_HASJIT + if (L->base < L->top && tvisnumber(L->base)) { + int traceno = lj_lib_checkint(L, 1); + luaJIT_setmode(L, traceno, LUAJIT_MODE_FLUSH|LUAJIT_MODE_TRACE); + return 0; + } +#endif + return setjitmode(L, LUAJIT_MODE_FLUSH); +} + +#if LJ_HASJIT +/* Push a string for every flag bit that is set. */ +static void flagbits_to_strings(lua_State *L, uint32_t flags, uint32_t base, + const char *str) +{ + for (; *str; base <<= 1, str += 1+*str) + if (flags & base) + setstrV(L, L->top++, lj_str_new(L, str+1, *(uint8_t *)str)); +} +#endif + +LJLIB_CF(jit_status) +{ +#if LJ_HASJIT + jit_State *J = L2J(L); + L->top = L->base; + setboolV(L->top++, (J->flags & JIT_F_ON) ? 1 : 0); + flagbits_to_strings(L, J->flags, JIT_F_CPU_FIRST, JIT_F_CPUSTRING); + flagbits_to_strings(L, J->flags, JIT_F_OPT_FIRST, JIT_F_OPTSTRING); + return (int)(L->top - L->base); +#else + setboolV(L->top++, 0); + return 1; +#endif +} + +LJLIB_CF(jit_attach) +{ +#ifdef LUAJIT_DISABLE_VMEVENT + luaL_error(L, "vmevent API disabled"); +#else + GCfunc *fn = lj_lib_checkfunc(L, 1); + GCstr *s = lj_lib_optstr(L, 2); + luaL_findtable(L, LUA_REGISTRYINDEX, LJ_VMEVENTS_REGKEY, LJ_VMEVENTS_HSIZE); + if (s) { /* Attach to given event. */ + const uint8_t *p = (const uint8_t *)strdata(s); + uint32_t h = s->len; + while (*p) h = h ^ (lj_rol(h, 6) + *p++); + lua_pushvalue(L, 1); + lua_rawseti(L, -2, VMEVENT_HASHIDX(h)); + G(L)->vmevmask = VMEVENT_NOCACHE; /* Invalidate cache. */ + } else { /* Detach if no event given. */ + setnilV(L->top++); + while (lua_next(L, -2)) { + L->top--; + if (tvisfunc(L->top) && funcV(L->top) == fn) { + setnilV(lj_tab_set(L, tabV(L->top-2), L->top-1)); + } + } + } +#endif + return 0; +} + +LJLIB_PUSH(top-5) LJLIB_SET(os) +LJLIB_PUSH(top-4) LJLIB_SET(arch) +LJLIB_PUSH(top-3) LJLIB_SET(version_num) +LJLIB_PUSH(top-2) LJLIB_SET(version) + +#include "lj_libdef.h" + +/* -- jit.util.* functions ------------------------------------------------ */ + +#define LJLIB_MODULE_jit_util + +/* -- Reflection API for Lua functions ------------------------------------ */ + +/* Return prototype of first argument (Lua function or prototype object) */ +static GCproto *check_Lproto(lua_State *L, int nolua) +{ + TValue *o = L->base; + if (L->top > o) { + if (tvisproto(o)) { + return protoV(o); + } else if (tvisfunc(o)) { + if (isluafunc(funcV(o))) + return funcproto(funcV(o)); + else if (nolua) + return NULL; + } + } + lj_err_argt(L, 1, LUA_TFUNCTION); + return NULL; /* unreachable */ +} + +static void setintfield(lua_State *L, GCtab *t, const char *name, int32_t val) +{ + setintV(lj_tab_setstr(L, t, lj_str_newz(L, name)), val); +} + +/* local info = jit.util.funcinfo(func [,pc]) */ +LJLIB_CF(jit_util_funcinfo) +{ + GCproto *pt = check_Lproto(L, 1); + if (pt) { + BCPos pc = (BCPos)lj_lib_optint(L, 2, 0); + GCtab *t; + lua_createtable(L, 0, 16); /* Increment hash size if fields are added. */ + t = tabV(L->top-1); + setintfield(L, t, "linedefined", pt->firstline); + setintfield(L, t, "lastlinedefined", pt->firstline + pt->numline); + setintfield(L, t, "stackslots", pt->framesize); + setintfield(L, t, "params", pt->numparams); + setintfield(L, t, "bytecodes", (int32_t)pt->sizebc); + setintfield(L, t, "gcconsts", (int32_t)pt->sizekgc); + setintfield(L, t, "nconsts", (int32_t)pt->sizekn); + setintfield(L, t, "upvalues", (int32_t)pt->sizeuv); + if (pc < pt->sizebc) + setintfield(L, t, "currentline", lj_debug_line(pt, pc)); + lua_pushboolean(L, (pt->flags & PROTO_VARARG)); + lua_setfield(L, -2, "isvararg"); + lua_pushboolean(L, (pt->flags & PROTO_CHILD)); + lua_setfield(L, -2, "children"); + setstrV(L, L->top++, proto_chunkname(pt)); + lua_setfield(L, -2, "source"); + lj_debug_pushloc(L, pt, pc); + lua_setfield(L, -2, "loc"); + } else { + GCfunc *fn = funcV(L->base); + GCtab *t; + lua_createtable(L, 0, 4); /* Increment hash size if fields are added. */ + t = tabV(L->top-1); + if (!iscfunc(fn)) + setintfield(L, t, "ffid", fn->c.ffid); + setintptrV(lj_tab_setstr(L, t, lj_str_newlit(L, "addr")), + (intptr_t)(void *)fn->c.f); + setintfield(L, t, "upvalues", fn->c.nupvalues); + } + return 1; +} + +/* local ins, m = jit.util.funcbc(func, pc) */ +LJLIB_CF(jit_util_funcbc) +{ + GCproto *pt = check_Lproto(L, 0); + BCPos pc = (BCPos)lj_lib_checkint(L, 2); + if (pc < pt->sizebc) { + BCIns ins = proto_bc(pt)[pc]; + BCOp op = bc_op(ins); + lua_assert(op < BC__MAX); + setintV(L->top, ins); + setintV(L->top+1, lj_bc_mode[op]); + L->top += 2; + return 2; + } + return 0; +} + +/* local k = jit.util.funck(func, idx) */ +LJLIB_CF(jit_util_funck) +{ + GCproto *pt = check_Lproto(L, 0); + ptrdiff_t idx = (ptrdiff_t)lj_lib_checkint(L, 2); + if (idx >= 0) { + if (idx < (ptrdiff_t)pt->sizekn) { + copyTV(L, L->top-1, proto_knumtv(pt, idx)); + return 1; + } + } else { + if (~idx < (ptrdiff_t)pt->sizekgc) { + GCobj *gc = proto_kgc(pt, idx); + setgcV(L, L->top-1, gc, ~gc->gch.gct); + return 1; + } + } + return 0; +} + +/* local name = jit.util.funcuvname(func, idx) */ +LJLIB_CF(jit_util_funcuvname) +{ + GCproto *pt = check_Lproto(L, 0); + uint32_t idx = (uint32_t)lj_lib_checkint(L, 2); + if (idx < pt->sizeuv) { + setstrV(L, L->top-1, lj_str_newz(L, lj_debug_uvname(pt, idx))); + return 1; + } + return 0; +} + +/* -- Reflection API for traces ------------------------------------------- */ + +#if LJ_HASJIT + +/* Check trace argument. Must not throw for non-existent trace numbers. */ +static GCtrace *jit_checktrace(lua_State *L) +{ + TraceNo tr = (TraceNo)lj_lib_checkint(L, 1); + jit_State *J = L2J(L); + if (tr > 0 && tr < J->sizetrace) + return traceref(J, tr); + return NULL; +} + +/* Names of link types. ORDER LJ_TRLINK */ +static const char *const jit_trlinkname[] = { + "none", "root", "loop", "tail-recursion", "up-recursion", "down-recursion", + "interpreter", "return" +}; + +/* local info = jit.util.traceinfo(tr) */ +LJLIB_CF(jit_util_traceinfo) +{ + GCtrace *T = jit_checktrace(L); + if (T) { + GCtab *t; + lua_createtable(L, 0, 8); /* Increment hash size if fields are added. */ + t = tabV(L->top-1); + setintfield(L, t, "nins", (int32_t)T->nins - REF_BIAS - 1); + setintfield(L, t, "nk", REF_BIAS - (int32_t)T->nk); + setintfield(L, t, "link", T->link); + setintfield(L, t, "nexit", T->nsnap); + setstrV(L, L->top++, lj_str_newz(L, jit_trlinkname[T->linktype])); + lua_setfield(L, -2, "linktype"); + /* There are many more fields. Add them only when needed. */ + return 1; + } + return 0; +} + +/* local m, ot, op1, op2, prev = jit.util.traceir(tr, idx) */ +LJLIB_CF(jit_util_traceir) +{ + GCtrace *T = jit_checktrace(L); + IRRef ref = (IRRef)lj_lib_checkint(L, 2) + REF_BIAS; + if (T && ref >= REF_BIAS && ref < T->nins) { + IRIns *ir = &T->ir[ref]; + int32_t m = lj_ir_mode[ir->o]; + setintV(L->top-2, m); + setintV(L->top-1, ir->ot); + setintV(L->top++, (int32_t)ir->op1 - (irm_op1(m)==IRMref ? REF_BIAS : 0)); + setintV(L->top++, (int32_t)ir->op2 - (irm_op2(m)==IRMref ? REF_BIAS : 0)); + setintV(L->top++, ir->prev); + return 5; + } + return 0; +} + +/* local k, t [, slot] = jit.util.tracek(tr, idx) */ +LJLIB_CF(jit_util_tracek) +{ + GCtrace *T = jit_checktrace(L); + IRRef ref = (IRRef)lj_lib_checkint(L, 2) + REF_BIAS; + if (T && ref >= T->nk && ref < REF_BIAS) { + IRIns *ir = &T->ir[ref]; + int32_t slot = -1; + if (ir->o == IR_KSLOT) { + slot = ir->op2; + ir = &T->ir[ir->op1]; + } + lj_ir_kvalue(L, L->top-2, ir); + setintV(L->top-1, (int32_t)irt_type(ir->t)); + if (slot == -1) + return 2; + setintV(L->top++, slot); + return 3; + } + return 0; +} + +/* local snap = jit.util.tracesnap(tr, sn) */ +LJLIB_CF(jit_util_tracesnap) +{ + GCtrace *T = jit_checktrace(L); + SnapNo sn = (SnapNo)lj_lib_checkint(L, 2); + if (T && sn < T->nsnap) { + SnapShot *snap = &T->snap[sn]; + SnapEntry *map = &T->snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + GCtab *t; + lua_createtable(L, nent+2, 0); + t = tabV(L->top-1); + setintV(lj_tab_setint(L, t, 0), (int32_t)snap->ref - REF_BIAS); + setintV(lj_tab_setint(L, t, 1), (int32_t)snap->nslots); + for (n = 0; n < nent; n++) + setintV(lj_tab_setint(L, t, (int32_t)(n+2)), (int32_t)map[n]); + setintV(lj_tab_setint(L, t, (int32_t)(nent+2)), (int32_t)SNAP(255, 0, 0)); + return 1; + } + return 0; +} + +/* local mcode, addr, loop = jit.util.tracemc(tr) */ +LJLIB_CF(jit_util_tracemc) +{ + GCtrace *T = jit_checktrace(L); + if (T && T->mcode != NULL) { + setstrV(L, L->top-1, lj_str_new(L, (const char *)T->mcode, T->szmcode)); + setintptrV(L->top++, (intptr_t)(void *)T->mcode); + setintV(L->top++, T->mcloop); + return 3; + } + return 0; +} + +/* local addr = jit.util.traceexitstub([tr,] exitno) */ +LJLIB_CF(jit_util_traceexitstub) +{ +#ifdef EXITSTUBS_PER_GROUP + ExitNo exitno = (ExitNo)lj_lib_checkint(L, 1); + jit_State *J = L2J(L); + if (exitno < EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) { + setintptrV(L->top-1, (intptr_t)(void *)exitstub_addr(J, exitno)); + return 1; + } +#else + if (L->top > L->base+1) { /* Don't throw for one-argument variant. */ + GCtrace *T = jit_checktrace(L); + ExitNo exitno = (ExitNo)lj_lib_checkint(L, 2); + ExitNo maxexit = T->root ? T->nsnap+1 : T->nsnap; + if (T && T->mcode != NULL && exitno < maxexit) { + setintptrV(L->top-1, (intptr_t)(void *)exitstub_trace_addr(T, exitno)); + return 1; + } + } +#endif + return 0; +} + +/* local addr = jit.util.ircalladdr(idx) */ +LJLIB_CF(jit_util_ircalladdr) +{ + uint32_t idx = (uint32_t)lj_lib_checkint(L, 1); + if (idx < IRCALL__MAX) { + setintptrV(L->top-1, (intptr_t)(void *)lj_ir_callinfo[idx].func); + return 1; + } + return 0; +} + +#endif + +#include "lj_libdef.h" + +/* -- jit.opt module ------------------------------------------------------ */ + +#if LJ_HASJIT + +#define LJLIB_MODULE_jit_opt + +/* Parse optimization level. */ +static int jitopt_level(jit_State *J, const char *str) +{ + if (str[0] >= '0' && str[0] <= '9' && str[1] == '\0') { + uint32_t flags; + if (str[0] == '0') flags = JIT_F_OPT_0; + else if (str[0] == '1') flags = JIT_F_OPT_1; + else if (str[0] == '2') flags = JIT_F_OPT_2; + else flags = JIT_F_OPT_3; + J->flags = (J->flags & ~JIT_F_OPT_MASK) | flags; + return 1; /* Ok. */ + } + return 0; /* No match. */ +} + +/* Parse optimization flag. */ +static int jitopt_flag(jit_State *J, const char *str) +{ + const char *lst = JIT_F_OPTSTRING; + uint32_t opt; + int set = 1; + if (str[0] == '+') { + str++; + } else if (str[0] == '-') { + str++; + set = 0; + } else if (str[0] == 'n' && str[1] == 'o') { + str += str[2] == '-' ? 3 : 2; + set = 0; + } + for (opt = JIT_F_OPT_FIRST; ; opt <<= 1) { + size_t len = *(const uint8_t *)lst; + if (len == 0) + break; + if (strncmp(str, lst+1, len) == 0 && str[len] == '\0') { + if (set) J->flags |= opt; else J->flags &= ~opt; + return 1; /* Ok. */ + } + lst += 1+len; + } + return 0; /* No match. */ +} + +/* Parse optimization parameter. */ +static int jitopt_param(jit_State *J, const char *str) +{ + const char *lst = JIT_P_STRING; + int i; + for (i = 0; i < JIT_P__MAX; i++) { + size_t len = *(const uint8_t *)lst; + lua_assert(len != 0); + if (strncmp(str, lst+1, len) == 0 && str[len] == '=') { + int32_t n = 0; + const char *p = &str[len+1]; + while (*p >= '0' && *p <= '9') + n = n*10 + (*p++ - '0'); + if (*p) return 0; /* Malformed number. */ + J->param[i] = n; + if (i == JIT_P_hotloop) + lj_dispatch_init_hotcount(J2G(J)); + return 1; /* Ok. */ + } + lst += 1+len; + } + return 0; /* No match. */ +} + +/* jit.opt.start(flags...) */ +LJLIB_CF(jit_opt_start) +{ + jit_State *J = L2J(L); + int nargs = (int)(L->top - L->base); + if (nargs == 0) { + J->flags = (J->flags & ~JIT_F_OPT_MASK) | JIT_F_OPT_DEFAULT; + } else { + int i; + for (i = 1; i <= nargs; i++) { + const char *str = strdata(lj_lib_checkstr(L, i)); + if (!jitopt_level(J, str) && + !jitopt_flag(J, str) && + !jitopt_param(J, str)) + lj_err_callerv(L, LJ_ERR_JITOPT, str); + } + } + return 0; +} + +#include "lj_libdef.h" + +#endif + +/* -- JIT compiler initialization ----------------------------------------- */ + +#if LJ_HASJIT +/* Default values for JIT parameters. */ +static const int32_t jit_param_default[JIT_P__MAX+1] = { +#define JIT_PARAMINIT(len, name, value) (value), +JIT_PARAMDEF(JIT_PARAMINIT) +#undef JIT_PARAMINIT + 0 +}; +#endif + +#if LJ_TARGET_ARM && LJ_TARGET_LINUX +#include +#endif + +/* Arch-dependent CPU detection. */ +static uint32_t jit_cpudetect(lua_State *L) +{ + uint32_t flags = 0; +#if LJ_TARGET_X86ORX64 + uint32_t vendor[4]; + uint32_t features[4]; + if (lj_vm_cpuid(0, vendor) && lj_vm_cpuid(1, features)) { +#if !LJ_HASJIT +#define JIT_F_CMOV 1 +#define JIT_F_SSE2 2 +#endif + flags |= ((features[3] >> 15)&1) * JIT_F_CMOV; + flags |= ((features[3] >> 26)&1) * JIT_F_SSE2; +#if LJ_HASJIT + flags |= ((features[2] >> 0)&1) * JIT_F_SSE3; + flags |= ((features[2] >> 19)&1) * JIT_F_SSE4_1; + if (vendor[2] == 0x6c65746e) { /* Intel. */ + if ((features[0] & 0x0ff00f00) == 0x00000f00) /* P4. */ + flags |= JIT_F_P4; /* Currently unused. */ + else if ((features[0] & 0x0fff0ff0) == 0x000106c0) /* Atom. */ + flags |= JIT_F_LEA_AGU; + } else if (vendor[2] == 0x444d4163) { /* AMD. */ + uint32_t fam = (features[0] & 0x0ff00f00); + if (fam == 0x00000f00) /* K8. */ + flags |= JIT_F_SPLIT_XMM; + if (fam >= 0x00000f00) /* K8, K10. */ + flags |= JIT_F_PREFER_IMUL; + } +#endif + } + /* Check for required instruction set support on x86 (unnecessary on x64). */ +#if LJ_TARGET_X86 +#if !defined(LUAJIT_CPU_NOCMOV) + if (!(flags & JIT_F_CMOV)) + luaL_error(L, "CPU not supported"); +#endif +#if defined(LUAJIT_CPU_SSE2) + if (!(flags & JIT_F_SSE2)) + luaL_error(L, "CPU does not support SSE2 (recompile without -DLUAJIT_CPU_SSE2)"); +#endif +#endif +#elif LJ_TARGET_ARM +#if LJ_HASJIT + int ver = LJ_ARCH_VERSION; /* Compile-time ARM CPU detection. */ +#if LJ_TARGET_LINUX + if (ver < 70) { /* Runtime ARM CPU detection. */ + struct utsname ut; + uname(&ut); + if (strncmp(ut.machine, "armv", 4) == 0) { + if (ut.machine[4] >= '7') + ver = 70; + else if (ut.machine[4] == '6') + ver = 60; + } + } +#endif + flags |= ver >= 70 ? JIT_F_ARMV7 : + ver >= 61 ? JIT_F_ARMV6T2_ : + ver >= 60 ? JIT_F_ARMV6_ : 0; + flags |= LJ_ARCH_HASFPU == 0 ? 0 : ver >= 70 ? JIT_F_VFPV3 : JIT_F_VFPV2; +#endif +#elif LJ_TARGET_PPC +#if LJ_HASJIT +#if LJ_ARCH_SQRT + flags |= JIT_F_SQRT; +#endif +#if LJ_ARCH_ROUND + flags |= JIT_F_ROUND; +#endif +#endif +#elif LJ_TARGET_PPCSPE + /* Nothing to do. */ +#elif LJ_TARGET_MIPS +#if LJ_HASJIT + /* Compile-time MIPS CPU detection. */ +#if LJ_ARCH_VERSION >= 20 + flags |= JIT_F_MIPS32R2; +#endif + /* Runtime MIPS CPU detection. */ +#if defined(__GNUC__) + if (!(flags & JIT_F_MIPS32R2)) { + int x; + /* On MIPS32R1 rotr is treated as srl. rotr r2,r2,1 -> srl r2,r2,1. */ + __asm__("li $2, 1\n\t.long 0x00221042\n\tmove %0, $2" : "=r"(x) : : "$2"); + if (x) flags |= JIT_F_MIPS32R2; /* Either 0x80000000 (R2) or 0 (R1). */ + } +#endif +#endif +#else +#error "Missing CPU detection for this architecture" +#endif + UNUSED(L); + return flags; +} + +/* Initialize JIT compiler. */ +static void jit_init(lua_State *L) +{ + uint32_t flags = jit_cpudetect(L); +#if LJ_HASJIT + jit_State *J = L2J(L); +#if LJ_TARGET_X86 + /* Silently turn off the JIT compiler on CPUs without SSE2. */ + if ((flags & JIT_F_SSE2)) +#endif + J->flags = flags | JIT_F_ON | JIT_F_OPT_DEFAULT; + memcpy(J->param, jit_param_default, sizeof(J->param)); + lj_dispatch_update(G(L)); +#else + UNUSED(flags); +#endif +} + +LUALIB_API int luaopen_jit(lua_State *L) +{ + lua_pushliteral(L, LJ_OS_NAME); + lua_pushliteral(L, LJ_ARCH_NAME); + lua_pushinteger(L, LUAJIT_VERSION_NUM); + lua_pushliteral(L, LUAJIT_VERSION); + LJ_LIB_REG(L, LUA_JITLIBNAME, jit); +#ifndef LUAJIT_DISABLE_JITUTIL + LJ_LIB_REG(L, "jit.util", jit_util); +#endif +#if LJ_HASJIT + LJ_LIB_REG(L, "jit.opt", jit_opt); +#endif + L->top -= 2; + jit_init(L); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_math.c b/src/3rd party/luajit-2.0/src/lib_math.c new file mode 100644 index 00000000000..40f29142d70 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_math.c @@ -0,0 +1,233 @@ +/* +** Math library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include + +#define lib_math_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_lib.h" +#include "lj_vm.h" + +/* ------------------------------------------------------------------------ */ + +#define LJLIB_MODULE_math + +LJLIB_ASM(math_abs) LJLIB_REC(.) +{ + lj_lib_checknumber(L, 1); + return FFH_RETRY; +} +LJLIB_ASM_(math_floor) LJLIB_REC(math_round IRFPM_FLOOR) +LJLIB_ASM_(math_ceil) LJLIB_REC(math_round IRFPM_CEIL) + +LJLIB_ASM(math_sqrt) LJLIB_REC(math_unary IRFPM_SQRT) +{ + lj_lib_checknum(L, 1); + return FFH_RETRY; +} +LJLIB_ASM_(math_log10) LJLIB_REC(math_unary IRFPM_LOG10) +LJLIB_ASM_(math_exp) LJLIB_REC(math_unary IRFPM_EXP) +LJLIB_ASM_(math_sin) LJLIB_REC(math_unary IRFPM_SIN) +LJLIB_ASM_(math_cos) LJLIB_REC(math_unary IRFPM_COS) +LJLIB_ASM_(math_tan) LJLIB_REC(math_unary IRFPM_TAN) +LJLIB_ASM_(math_asin) LJLIB_REC(math_atrig FF_math_asin) +LJLIB_ASM_(math_acos) LJLIB_REC(math_atrig FF_math_acos) +LJLIB_ASM_(math_atan) LJLIB_REC(math_atrig FF_math_atan) +LJLIB_ASM_(math_sinh) LJLIB_REC(math_htrig IRCALL_sinh) +LJLIB_ASM_(math_cosh) LJLIB_REC(math_htrig IRCALL_cosh) +LJLIB_ASM_(math_tanh) LJLIB_REC(math_htrig IRCALL_tanh) +LJLIB_ASM_(math_frexp) +LJLIB_ASM_(math_modf) LJLIB_REC(.) + +LJLIB_PUSH(57.29577951308232) +LJLIB_ASM_(math_deg) LJLIB_REC(math_degrad) + +LJLIB_PUSH(0.017453292519943295) +LJLIB_ASM_(math_rad) LJLIB_REC(math_degrad) + +LJLIB_ASM(math_log) LJLIB_REC(math_log) +{ + double x = lj_lib_checknum(L, 1); + if (L->base+1 < L->top) { + double y = lj_lib_checknum(L, 2); +#ifdef LUAJIT_NO_LOG2 + x = log(x); y = 1.0 / log(y); +#else + x = lj_vm_log2(x); y = 1.0 / lj_vm_log2(y); +#endif + setnumV(L->base-1, x*y); /* Do NOT join the expression to x / y. */ + return FFH_RES(1); + } + return FFH_RETRY; +} + +LJLIB_ASM(math_atan2) LJLIB_REC(.) +{ + lj_lib_checknum(L, 1); + lj_lib_checknum(L, 2); + return FFH_RETRY; +} +LJLIB_ASM_(math_pow) LJLIB_REC(.) +LJLIB_ASM_(math_fmod) + +LJLIB_ASM(math_ldexp) LJLIB_REC(.) +{ + lj_lib_checknum(L, 1); +#if LJ_DUALNUM && !LJ_TARGET_X86ORX64 + lj_lib_checkint(L, 2); +#else + lj_lib_checknum(L, 2); +#endif + return FFH_RETRY; +} + +LJLIB_ASM(math_min) LJLIB_REC(math_minmax IR_MIN) +{ + int i = 0; + do { lj_lib_checknumber(L, ++i); } while (L->base+i < L->top); + return FFH_RETRY; +} +LJLIB_ASM_(math_max) LJLIB_REC(math_minmax IR_MAX) + +LJLIB_PUSH(3.14159265358979323846) LJLIB_SET(pi) +LJLIB_PUSH(1e310) LJLIB_SET(huge) + +/* ------------------------------------------------------------------------ */ + +/* This implements a Tausworthe PRNG with period 2^223. Based on: +** Tables of maximally-equidistributed combined LFSR generators, +** Pierre L'Ecuyer, 1991, table 3, 1st entry. +** Full-period ME-CF generator with L=64, J=4, k=223, N1=49. +*/ + +/* PRNG state. */ +struct RandomState { + uint64_t gen[4]; /* State of the 4 LFSR generators. */ + int valid; /* State is valid. */ +}; + +/* Union needed for bit-pattern conversion between uint64_t and double. */ +typedef union { uint64_t u64; double d; } U64double; + +/* Update generator i and compute a running xor of all states. */ +#define TW223_GEN(i, k, q, s) \ + z = rs->gen[i]; \ + z = (((z<> (k-s)) ^ ((z&((uint64_t)(int64_t)-1 << (64-k)))<gen[i] = z; + +/* PRNG step function. Returns a double in the range 1.0 <= d < 2.0. */ +LJ_NOINLINE uint64_t LJ_FASTCALL lj_math_random_step(RandomState *rs) +{ + uint64_t z, r = 0; + TW223_GEN(0, 63, 31, 18) + TW223_GEN(1, 58, 19, 28) + TW223_GEN(2, 55, 24, 7) + TW223_GEN(3, 47, 21, 8) + return (r & U64x(000fffff,ffffffff)) | U64x(3ff00000,00000000); +} + +/* PRNG initialization function. */ +static void random_init(RandomState *rs, double d) +{ + uint32_t r = 0x11090601; /* 64-k[i] as four 8 bit constants. */ + int i; + for (i = 0; i < 4; i++) { + U64double u; + uint32_t m = 1u << (r&255); + r >>= 8; + u.d = d = d * 3.14159265358979323846 + 2.7182818284590452354; + if (u.u64 < m) u.u64 += m; /* Ensure k[i] MSB of gen[i] are non-zero. */ + rs->gen[i] = u.u64; + } + rs->valid = 1; + for (i = 0; i < 10; i++) + lj_math_random_step(rs); +} + +/* PRNG extract function. */ +LJLIB_PUSH(top-2) /* Upvalue holds userdata with RandomState. */ +LJLIB_CF(math_random) LJLIB_REC(.) +{ + int n = (int)(L->top - L->base); + RandomState *rs = (RandomState *)(uddata(udataV(lj_lib_upvalue(L, 1)))); + U64double u; + double d; + if (LJ_UNLIKELY(!rs->valid)) random_init(rs, 0.0); + u.u64 = lj_math_random_step(rs); + d = u.d - 1.0; + if (n > 0) { +#if LJ_DUALNUM + int isint = 1; + double r1; + lj_lib_checknumber(L, 1); + if (tvisint(L->base)) { + r1 = (lua_Number)intV(L->base); + } else { + isint = 0; + r1 = numV(L->base); + } +#else + double r1 = lj_lib_checknum(L, 1); +#endif + if (n == 1) { + d = lj_vm_floor(d*r1) + 1.0; /* d is an int in range [1, r1] */ + } else { +#if LJ_DUALNUM + double r2; + lj_lib_checknumber(L, 2); + if (tvisint(L->base+1)) { + r2 = (lua_Number)intV(L->base+1); + } else { + isint = 0; + r2 = numV(L->base+1); + } +#else + double r2 = lj_lib_checknum(L, 2); +#endif + d = lj_vm_floor(d*(r2-r1+1.0)) + r1; /* d is an int in range [r1, r2] */ + } +#if LJ_DUALNUM + if (isint) { + setintV(L->top-1, lj_num2int(d)); + return 1; + } +#endif + } /* else: d is a double in range [0, 1] */ + setnumV(L->top++, d); + return 1; +} + +/* PRNG seed function. */ +LJLIB_PUSH(top-2) /* Upvalue holds userdata with RandomState. */ +LJLIB_CF(math_randomseed) +{ + RandomState *rs = (RandomState *)(uddata(udataV(lj_lib_upvalue(L, 1)))); + random_init(rs, lj_lib_checknum(L, 1)); + return 0; +} + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_math(lua_State *L) +{ + RandomState *rs; + rs = (RandomState *)lua_newuserdata(L, sizeof(RandomState)); + rs->valid = 0; /* Use lazy initialization to save some time on startup. */ + LJ_LIB_REG(L, LUA_MATHLIBNAME, math); +#if defined(LUA_COMPAT_MOD) && !LJ_52 + lua_getfield(L, -1, "fmod"); + lua_setfield(L, -2, "mod"); +#endif + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_os.c b/src/3rd party/luajit-2.0/src/lib_os.c new file mode 100644 index 00000000000..bb5a141e3cd --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_os.c @@ -0,0 +1,287 @@ +/* +** OS library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include +#include + +#define lib_os_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_lib.h" + +#if LJ_TARGET_POSIX +#include +#else +#include +#endif + +#if !LJ_TARGET_PSVITA +#include +#endif + +/* ------------------------------------------------------------------------ */ + +#define LJLIB_MODULE_os + +LJLIB_CF(os_execute) +{ +#if LJ_TARGET_CONSOLE +#if LJ_52 + errno = ENOSYS; + return luaL_fileresult(L, 0, NULL); +#else + lua_pushinteger(L, -1); + return 1; +#endif +#else + const char *cmd = luaL_optstring(L, 1, NULL); + int stat = system(cmd); +#if LJ_52 + if (cmd) + return luaL_execresult(L, stat); + setboolV(L->top++, 1); +#else + setintV(L->top++, stat); +#endif + return 1; +#endif +} + +LJLIB_CF(os_remove) +{ + const char *filename = luaL_checkstring(L, 1); + return luaL_fileresult(L, remove(filename) == 0, filename); +} + +LJLIB_CF(os_rename) +{ + const char *fromname = luaL_checkstring(L, 1); + const char *toname = luaL_checkstring(L, 2); + return luaL_fileresult(L, rename(fromname, toname) == 0, fromname); +} + +LJLIB_CF(os_tmpname) +{ +#if LJ_TARGET_PS3 || LJ_TARGET_PS4 || LJ_TARGET_PSVITA + lj_err_caller(L, LJ_ERR_OSUNIQF); + return 0; +#else +#if LJ_TARGET_POSIX + char buf[15+1]; + int fp; + strcpy(buf, "/tmp/lua_XXXXXX"); + fp = mkstemp(buf); + if (fp != -1) + close(fp); + else + lj_err_caller(L, LJ_ERR_OSUNIQF); +#else + char buf[L_tmpnam]; + if (tmpnam(buf) == NULL) + lj_err_caller(L, LJ_ERR_OSUNIQF); +#endif + lua_pushstring(L, buf); + return 1; +#endif +} + +LJLIB_CF(os_getenv) +{ +#if LJ_TARGET_CONSOLE + lua_pushnil(L); +#else + lua_pushstring(L, getenv(luaL_checkstring(L, 1))); /* if NULL push nil */ +#endif + return 1; +} + +LJLIB_CF(os_exit) +{ + int status; + if (L->base < L->top && tvisbool(L->base)) + status = boolV(L->base) ? EXIT_SUCCESS : EXIT_FAILURE; + else + status = lj_lib_optint(L, 1, EXIT_SUCCESS); + if (L->base+1 < L->top && tvistruecond(L->base+1)) + lua_close(L); + exit(status); + return 0; /* Unreachable. */ +} + +LJLIB_CF(os_clock) +{ + setnumV(L->top++, ((lua_Number)clock())*(1.0/(lua_Number)CLOCKS_PER_SEC)); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +static void setfield(lua_State *L, const char *key, int value) +{ + lua_pushinteger(L, value); + lua_setfield(L, -2, key); +} + +static void setboolfield(lua_State *L, const char *key, int value) +{ + if (value < 0) /* undefined? */ + return; /* does not set field */ + lua_pushboolean(L, value); + lua_setfield(L, -2, key); +} + +static int getboolfield(lua_State *L, const char *key) +{ + int res; + lua_getfield(L, -1, key); + res = lua_isnil(L, -1) ? -1 : lua_toboolean(L, -1); + lua_pop(L, 1); + return res; +} + +static int getfield(lua_State *L, const char *key, int d) +{ + int res; + lua_getfield(L, -1, key); + if (lua_isnumber(L, -1)) { + res = (int)lua_tointeger(L, -1); + } else { + if (d < 0) + lj_err_callerv(L, LJ_ERR_OSDATEF, key); + res = d; + } + lua_pop(L, 1); + return res; +} + +LJLIB_CF(os_date) +{ + const char *s = luaL_optstring(L, 1, "%c"); + time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); + struct tm *stm; +#if LJ_TARGET_POSIX + struct tm rtm; +#endif + if (*s == '!') { /* UTC? */ + s++; /* Skip '!' */ +#if LJ_TARGET_POSIX + stm = gmtime_r(&t, &rtm); +#else + stm = gmtime(&t); +#endif + } else { +#if LJ_TARGET_POSIX + stm = localtime_r(&t, &rtm); +#else + stm = localtime(&t); +#endif + } + if (stm == NULL) { /* Invalid date? */ + setnilV(L->top-1); + } else if (strcmp(s, "*t") == 0) { + lua_createtable(L, 0, 9); /* 9 = number of fields */ + setfield(L, "sec", stm->tm_sec); + setfield(L, "min", stm->tm_min); + setfield(L, "hour", stm->tm_hour); + setfield(L, "day", stm->tm_mday); + setfield(L, "month", stm->tm_mon+1); + setfield(L, "year", stm->tm_year+1900); + setfield(L, "wday", stm->tm_wday+1); + setfield(L, "yday", stm->tm_yday+1); + setboolfield(L, "isdst", stm->tm_isdst); + } else { + char cc[3]; + luaL_Buffer b; + cc[0] = '%'; cc[2] = '\0'; + luaL_buffinit(L, &b); + for (; *s; s++) { + if (*s != '%' || *(s + 1) == '\0') { /* No conversion specifier? */ + luaL_addchar(&b, *s); + } else { + size_t reslen; + char buff[200]; /* Should be big enough for any conversion result. */ + cc[1] = *(++s); + reslen = strftime(buff, sizeof(buff), cc, stm); + luaL_addlstring(&b, buff, reslen); + } + } + luaL_pushresult(&b); + } + return 1; +} + +LJLIB_CF(os_time) +{ + time_t t; + if (lua_isnoneornil(L, 1)) { /* called without args? */ + t = time(NULL); /* get current time */ + } else { + struct tm ts; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 1); /* make sure table is at the top */ + ts.tm_sec = getfield(L, "sec", 0); + ts.tm_min = getfield(L, "min", 0); + ts.tm_hour = getfield(L, "hour", 12); + ts.tm_mday = getfield(L, "day", -1); + ts.tm_mon = getfield(L, "month", -1) - 1; + ts.tm_year = getfield(L, "year", -1) - 1900; + ts.tm_isdst = getboolfield(L, "isdst"); + t = mktime(&ts); + } + if (t == (time_t)(-1)) + lua_pushnil(L); + else + lua_pushnumber(L, (lua_Number)t); + return 1; +} + +LJLIB_CF(os_difftime) +{ + lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)), + (time_t)(luaL_optnumber(L, 2, (lua_Number)0)))); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +LJLIB_CF(os_setlocale) +{ +#if LJ_TARGET_PSVITA + lua_pushliteral(L, "C"); +#else + GCstr *s = lj_lib_optstr(L, 1); + const char *str = s ? strdata(s) : NULL; + int opt = lj_lib_checkopt(L, 2, 6, + "\5ctype\7numeric\4time\7collate\10monetary\1\377\3all"); + if (opt == 0) opt = LC_CTYPE; + else if (opt == 1) opt = LC_NUMERIC; + else if (opt == 2) opt = LC_TIME; + else if (opt == 3) opt = LC_COLLATE; + else if (opt == 4) opt = LC_MONETARY; + else if (opt == 6) opt = LC_ALL; + lua_pushstring(L, setlocale(opt, str)); +#endif + return 1; +} + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_os(lua_State *L) +{ + LJ_LIB_REG(L, LUA_OSLIBNAME, os); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_package.c b/src/3rd party/luajit-2.0/src/lib_package.c new file mode 100644 index 00000000000..ac38c815836 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_package.c @@ -0,0 +1,602 @@ +/* +** Package library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2012 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lib_package_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_lib.h" + +/* ------------------------------------------------------------------------ */ + +/* Error codes for ll_loadfunc. */ +#define PACKAGE_ERR_LIB 1 +#define PACKAGE_ERR_FUNC 2 +#define PACKAGE_ERR_LOAD 3 + +/* Redefined in platform specific part. */ +#define PACKAGE_LIB_FAIL "open" +#define setprogdir(L) ((void)0) + +/* Symbol name prefixes. */ +#define SYMPREFIX_CF "luaopen_%s" +#define SYMPREFIX_BC "luaJIT_BC_%s" + +#if LJ_TARGET_DLOPEN + +#include + +static void ll_unloadlib(void *lib) +{ + dlclose(lib); +} + +static void *ll_load(lua_State *L, const char *path, int gl) +{ + void *lib = dlopen(path, RTLD_NOW | (gl ? RTLD_GLOBAL : RTLD_LOCAL)); + if (lib == NULL) lua_pushstring(L, dlerror()); + return lib; +} + +static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) +{ + lua_CFunction f = (lua_CFunction)dlsym(lib, sym); + if (f == NULL) lua_pushstring(L, dlerror()); + return f; +} + +static const char *ll_bcsym(void *lib, const char *sym) +{ +#if defined(RTLD_DEFAULT) + if (lib == NULL) lib = RTLD_DEFAULT; +#elif LJ_TARGET_OSX || LJ_TARGET_BSD + if (lib == NULL) lib = (void *)(intptr_t)-2; +#endif + return (const char *)dlsym(lib, sym); +} + +#elif LJ_TARGET_WINDOWS + +#define WIN32_LEAN_AND_MEAN +#include + +#ifndef GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS +#define GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS 4 +#define GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT 2 +BOOL WINAPI GetModuleHandleExA(DWORD, LPCSTR, HMODULE*); +#endif + +#undef setprogdir + +static void setprogdir(lua_State *L) +{ + char buff[MAX_PATH + 1]; + char *lb; + DWORD nsize = sizeof(buff); + DWORD n = GetModuleFileNameA(NULL, buff, nsize); + if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) { + luaL_error(L, "unable to get ModuleFileName"); + } else { + *lb = '\0'; + luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff); + lua_remove(L, -2); /* remove original string */ + } +} + +static void pusherror(lua_State *L) +{ + DWORD error = GetLastError(); + char buffer[128]; + if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, + NULL, error, 0, buffer, sizeof(buffer), NULL)) + lua_pushstring(L, buffer); + else + lua_pushfstring(L, "system error %d\n", error); +} + +static void ll_unloadlib(void *lib) +{ + FreeLibrary((HINSTANCE)lib); +} + +static void *ll_load(lua_State *L, const char *path, int gl) +{ + HINSTANCE lib = LoadLibraryA(path); + if (lib == NULL) pusherror(L); + UNUSED(gl); + return lib; +} + +static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) +{ + lua_CFunction f = (lua_CFunction)GetProcAddress((HINSTANCE)lib, sym); + if (f == NULL) pusherror(L); + return f; +} + +static const char *ll_bcsym(void *lib, const char *sym) +{ + if (lib) { + return (const char *)GetProcAddress((HINSTANCE)lib, sym); + } else { + HINSTANCE h = GetModuleHandleA(NULL); + const char *p = (const char *)GetProcAddress(h, sym); + if (p == NULL && GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, + (const char *)ll_bcsym, &h)) + p = (const char *)GetProcAddress(h, sym); + return p; + } +} + +#else + +#undef PACKAGE_LIB_FAIL +#define PACKAGE_LIB_FAIL "absent" + +#define DLMSG "dynamic libraries not enabled; no support for target OS" + +static void ll_unloadlib(void *lib) +{ + UNUSED(lib); +} + +static void *ll_load(lua_State *L, const char *path, int gl) +{ + UNUSED(path); UNUSED(gl); + lua_pushliteral(L, DLMSG); + return NULL; +} + +static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) +{ + UNUSED(lib); UNUSED(sym); + lua_pushliteral(L, DLMSG); + return NULL; +} + +static const char *ll_bcsym(void *lib, const char *sym) +{ + UNUSED(lib); UNUSED(sym); + return NULL; +} + +#endif + +/* ------------------------------------------------------------------------ */ + +static void **ll_register(lua_State *L, const char *path) +{ + void **plib; + lua_pushfstring(L, "LOADLIB: %s", path); + lua_gettable(L, LUA_REGISTRYINDEX); /* check library in registry? */ + if (!lua_isnil(L, -1)) { /* is there an entry? */ + plib = (void **)lua_touserdata(L, -1); + } else { /* no entry yet; create one */ + lua_pop(L, 1); + plib = (void **)lua_newuserdata(L, sizeof(void *)); + *plib = NULL; + luaL_getmetatable(L, "_LOADLIB"); + lua_setmetatable(L, -2); + lua_pushfstring(L, "LOADLIB: %s", path); + lua_pushvalue(L, -2); + lua_settable(L, LUA_REGISTRYINDEX); + } + return plib; +} + +static const char *mksymname(lua_State *L, const char *modname, + const char *prefix) +{ + const char *funcname; + const char *mark = strchr(modname, *LUA_IGMARK); + if (mark) modname = mark + 1; + funcname = luaL_gsub(L, modname, ".", "_"); + funcname = lua_pushfstring(L, prefix, funcname); + lua_remove(L, -2); /* remove 'gsub' result */ + return funcname; +} + +static int ll_loadfunc(lua_State *L, const char *path, const char *name, int r) +{ + void **reg = ll_register(L, path); + if (*reg == NULL) *reg = ll_load(L, path, (*name == '*')); + if (*reg == NULL) { + return PACKAGE_ERR_LIB; /* Unable to load library. */ + } else if (*name == '*') { /* Only load library into global namespace. */ + lua_pushboolean(L, 1); + return 0; + } else { + const char *sym = r ? name : mksymname(L, name, SYMPREFIX_CF); + lua_CFunction f = ll_sym(L, *reg, sym); + if (f) { + lua_pushcfunction(L, f); + return 0; + } + if (!r) { + const char *bcdata = ll_bcsym(*reg, mksymname(L, name, SYMPREFIX_BC)); + lua_pop(L, 1); + if (bcdata) { + if (luaL_loadbuffer(L, bcdata, ~(size_t)0, name) != 0) + return PACKAGE_ERR_LOAD; + return 0; + } + } + return PACKAGE_ERR_FUNC; /* Unable to find function. */ + } +} + +static int lj_cf_package_loadlib(lua_State *L) +{ + const char *path = luaL_checkstring(L, 1); + const char *init = luaL_checkstring(L, 2); + int st = ll_loadfunc(L, path, init, 1); + if (st == 0) { /* no errors? */ + return 1; /* return the loaded function */ + } else { /* error; error message is on stack top */ + lua_pushnil(L); + lua_insert(L, -2); + lua_pushstring(L, (st == PACKAGE_ERR_LIB) ? PACKAGE_LIB_FAIL : "init"); + return 3; /* return nil, error message, and where */ + } +} + +static int lj_cf_package_unloadlib(lua_State *L) +{ + void **lib = (void **)luaL_checkudata(L, 1, "_LOADLIB"); + if (*lib) ll_unloadlib(*lib); + *lib = NULL; /* mark library as closed */ + return 0; +} + +/* ------------------------------------------------------------------------ */ + +static int readable(const char *filename) +{ + FILE *f = fopen(filename, "r"); /* try to open file */ + if (f == NULL) return 0; /* open failed */ + fclose(f); + return 1; +} + +static const char *pushnexttemplate(lua_State *L, const char *path) +{ + const char *l; + while (*path == *LUA_PATHSEP) path++; /* skip separators */ + if (*path == '\0') return NULL; /* no more templates */ + l = strchr(path, *LUA_PATHSEP); /* find next separator */ + if (l == NULL) l = path + strlen(path); + lua_pushlstring(L, path, (size_t)(l - path)); /* template */ + return l; +} + +static const char *searchpath (lua_State *L, const char *name, + const char *path, const char *sep, + const char *dirsep) +{ + luaL_Buffer msg; /* to build error message */ + luaL_buffinit(L, &msg); + if (*sep != '\0') /* non-empty separator? */ + name = luaL_gsub(L, name, sep, dirsep); /* replace it by 'dirsep' */ + while ((path = pushnexttemplate(L, path)) != NULL) { + const char *filename = luaL_gsub(L, lua_tostring(L, -1), + LUA_PATH_MARK, name); + lua_remove(L, -2); /* remove path template */ + if (readable(filename)) /* does file exist and is readable? */ + return filename; /* return that file name */ + lua_pushfstring(L, "\n\tno file " LUA_QS, filename); + lua_remove(L, -2); /* remove file name */ + luaL_addvalue(&msg); /* concatenate error msg. entry */ + } + luaL_pushresult(&msg); /* create error message */ + return NULL; /* not found */ +} + +static int lj_cf_package_searchpath(lua_State *L) +{ + const char *f = searchpath(L, luaL_checkstring(L, 1), + luaL_checkstring(L, 2), + luaL_optstring(L, 3, "."), + luaL_optstring(L, 4, LUA_DIRSEP)); + if (f != NULL) { + return 1; + } else { /* error message is on top of the stack */ + lua_pushnil(L); + lua_insert(L, -2); + return 2; /* return nil + error message */ + } +} + +static const char *findfile(lua_State *L, const char *name, + const char *pname) +{ + const char *path; + lua_getfield(L, LUA_ENVIRONINDEX, pname); + path = lua_tostring(L, -1); + if (path == NULL) + luaL_error(L, LUA_QL("package.%s") " must be a string", pname); + return searchpath(L, name, path, ".", LUA_DIRSEP); +} + +static void loaderror(lua_State *L, const char *filename) +{ + luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s", + lua_tostring(L, 1), filename, lua_tostring(L, -1)); +} + +static int lj_cf_package_loader_lua(lua_State *L) +{ + const char *filename; + const char *name = luaL_checkstring(L, 1); + filename = findfile(L, name, "path"); + if (filename == NULL) return 1; /* library not found in this path */ + if (luaL_loadfile(L, filename) != 0) + loaderror(L, filename); + return 1; /* library loaded successfully */ +} + +static int lj_cf_package_loader_c(lua_State *L) +{ + const char *name = luaL_checkstring(L, 1); + const char *filename = findfile(L, name, "cpath"); + if (filename == NULL) return 1; /* library not found in this path */ + if (ll_loadfunc(L, filename, name, 0) != 0) + loaderror(L, filename); + return 1; /* library loaded successfully */ +} + +static int lj_cf_package_loader_croot(lua_State *L) +{ + const char *filename; + const char *name = luaL_checkstring(L, 1); + const char *p = strchr(name, '.'); + int st; + if (p == NULL) return 0; /* is root */ + lua_pushlstring(L, name, (size_t)(p - name)); + filename = findfile(L, lua_tostring(L, -1), "cpath"); + if (filename == NULL) return 1; /* root not found */ + if ((st = ll_loadfunc(L, filename, name, 0)) != 0) { + if (st != PACKAGE_ERR_FUNC) loaderror(L, filename); /* real error */ + lua_pushfstring(L, "\n\tno module " LUA_QS " in file " LUA_QS, + name, filename); + return 1; /* function not found */ + } + return 1; +} + +static int lj_cf_package_loader_preload(lua_State *L) +{ + const char *name = luaL_checkstring(L, 1); + lua_getfield(L, LUA_ENVIRONINDEX, "preload"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.preload") " must be a table"); + lua_getfield(L, -1, name); + if (lua_isnil(L, -1)) { /* Not found? */ + const char *bcname = mksymname(L, name, SYMPREFIX_BC); + const char *bcdata = ll_bcsym(NULL, bcname); + if (bcdata == NULL || luaL_loadbuffer(L, bcdata, ~(size_t)0, name) != 0) + lua_pushfstring(L, "\n\tno field package.preload['%s']", name); + } + return 1; +} + +/* ------------------------------------------------------------------------ */ + +static const int sentinel_ = 0; +#define sentinel ((void *)&sentinel_) + +static int lj_cf_package_require(lua_State *L) +{ + const char *name = luaL_checkstring(L, 1); + int i; + lua_settop(L, 1); /* _LOADED table will be at index 2 */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, 2, name); + if (lua_toboolean(L, -1)) { /* is it there? */ + if (lua_touserdata(L, -1) == sentinel) /* check loops */ + luaL_error(L, "loop or previous error loading module " LUA_QS, name); + return 1; /* package is already loaded */ + } + /* else must load it; iterate over available loaders */ + lua_getfield(L, LUA_ENVIRONINDEX, "loaders"); + if (!lua_istable(L, -1)) + luaL_error(L, LUA_QL("package.loaders") " must be a table"); + lua_pushliteral(L, ""); /* error message accumulator */ + for (i = 1; ; i++) { + lua_rawgeti(L, -2, i); /* get a loader */ + if (lua_isnil(L, -1)) + luaL_error(L, "module " LUA_QS " not found:%s", + name, lua_tostring(L, -2)); + lua_pushstring(L, name); + lua_call(L, 1, 1); /* call it */ + if (lua_isfunction(L, -1)) /* did it find module? */ + break; /* module loaded successfully */ + else if (lua_isstring(L, -1)) /* loader returned error message? */ + lua_concat(L, 2); /* accumulate it */ + else + lua_pop(L, 1); + } + lua_pushlightuserdata(L, sentinel); + lua_setfield(L, 2, name); /* _LOADED[name] = sentinel */ + lua_pushstring(L, name); /* pass name as argument to module */ + lua_call(L, 1, 1); /* run loaded module */ + if (!lua_isnil(L, -1)) /* non-nil return? */ + lua_setfield(L, 2, name); /* _LOADED[name] = returned value */ + lua_getfield(L, 2, name); + if (lua_touserdata(L, -1) == sentinel) { /* module did not set a value? */ + lua_pushboolean(L, 1); /* use true as result */ + lua_pushvalue(L, -1); /* extra copy to be returned */ + lua_setfield(L, 2, name); /* _LOADED[name] = true */ + } + lj_lib_checkfpu(L); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +static void setfenv(lua_State *L) +{ + lua_Debug ar; + if (lua_getstack(L, 1, &ar) == 0 || + lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ + lua_iscfunction(L, -1)) + luaL_error(L, LUA_QL("module") " not called from a Lua function"); + lua_pushvalue(L, -2); + lua_setfenv(L, -2); + lua_pop(L, 1); +} + +static void dooptions(lua_State *L, int n) +{ + int i; + for (i = 2; i <= n; i++) { + lua_pushvalue(L, i); /* get option (a function) */ + lua_pushvalue(L, -2); /* module */ + lua_call(L, 1, 0); + } +} + +static void modinit(lua_State *L, const char *modname) +{ + const char *dot; + lua_pushvalue(L, -1); + lua_setfield(L, -2, "_M"); /* module._M = module */ + lua_pushstring(L, modname); + lua_setfield(L, -2, "_NAME"); + dot = strrchr(modname, '.'); /* look for last dot in module name */ + if (dot == NULL) dot = modname; else dot++; + /* set _PACKAGE as package name (full module name minus last part) */ + lua_pushlstring(L, modname, (size_t)(dot - modname)); + lua_setfield(L, -2, "_PACKAGE"); +} + +static int lj_cf_package_module(lua_State *L) +{ + const char *modname = luaL_checkstring(L, 1); + int loaded = lua_gettop(L) + 1; /* index of _LOADED table */ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, loaded, modname); /* get _LOADED[modname] */ + if (!lua_istable(L, -1)) { /* not found? */ + lua_pop(L, 1); /* remove previous result */ + /* try global variable (and create one if it does not exist) */ + if (luaL_findtable(L, LUA_GLOBALSINDEX, modname, 1) != NULL) + lj_err_callerv(L, LJ_ERR_BADMODN, modname); + lua_pushvalue(L, -1); + lua_setfield(L, loaded, modname); /* _LOADED[modname] = new table */ + } + /* check whether table already has a _NAME field */ + lua_getfield(L, -1, "_NAME"); + if (!lua_isnil(L, -1)) { /* is table an initialized module? */ + lua_pop(L, 1); + } else { /* no; initialize it */ + lua_pop(L, 1); + modinit(L, modname); + } + lua_pushvalue(L, -1); + setfenv(L); + dooptions(L, loaded - 1); + return 0; +} + +static int lj_cf_package_seeall(lua_State *L) +{ + luaL_checktype(L, 1, LUA_TTABLE); + if (!lua_getmetatable(L, 1)) { + lua_createtable(L, 0, 1); /* create new metatable */ + lua_pushvalue(L, -1); + lua_setmetatable(L, 1); + } + lua_pushvalue(L, LUA_GLOBALSINDEX); + lua_setfield(L, -2, "__index"); /* mt.__index = _G */ + return 0; +} + +/* ------------------------------------------------------------------------ */ + +#define AUXMARK "\1" + +static void setpath(lua_State *L, const char *fieldname, const char *envname, + const char *def, int noenv) +{ +#if LJ_TARGET_CONSOLE + const char *path = NULL; + UNUSED(envname); +#else + const char *path = getenv(envname); +#endif + if (path == NULL || noenv) { + lua_pushstring(L, def); + } else { + path = luaL_gsub(L, path, LUA_PATHSEP LUA_PATHSEP, + LUA_PATHSEP AUXMARK LUA_PATHSEP); + luaL_gsub(L, path, AUXMARK, def); + lua_remove(L, -2); + } + setprogdir(L); + lua_setfield(L, -2, fieldname); +} + +static const luaL_Reg package_lib[] = { + { "loadlib", lj_cf_package_loadlib }, + { "searchpath", lj_cf_package_searchpath }, + { "seeall", lj_cf_package_seeall }, + { NULL, NULL } +}; + +static const luaL_Reg package_global[] = { + { "module", lj_cf_package_module }, + { "require", lj_cf_package_require }, + { NULL, NULL } +}; + +static const lua_CFunction package_loaders[] = +{ + lj_cf_package_loader_preload, + lj_cf_package_loader_lua, + lj_cf_package_loader_c, + lj_cf_package_loader_croot, + NULL +}; + +LUALIB_API int luaopen_package(lua_State *L) +{ + int i; + int noenv; + luaL_newmetatable(L, "_LOADLIB"); + lj_lib_pushcf(L, lj_cf_package_unloadlib, 1); + lua_setfield(L, -2, "__gc"); + luaL_register(L, LUA_LOADLIBNAME, package_lib); + lua_pushvalue(L, -1); + lua_replace(L, LUA_ENVIRONINDEX); + lua_createtable(L, sizeof(package_loaders)/sizeof(package_loaders[0])-1, 0); + for (i = 0; package_loaders[i] != NULL; i++) { + lj_lib_pushcf(L, package_loaders[i], 1); + lua_rawseti(L, -2, i+1); + } + lua_setfield(L, -2, "loaders"); + lua_getfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); + noenv = lua_toboolean(L, -1); + lua_pop(L, 1); + setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT, noenv); + setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT, noenv); + lua_pushliteral(L, LUA_PATH_CONFIG); + lua_setfield(L, -2, "config"); + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); + lua_setfield(L, -2, "loaded"); + luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", 4); + lua_setfield(L, -2, "preload"); + lua_pushvalue(L, LUA_GLOBALSINDEX); + luaL_register(L, NULL, package_global); + lua_pop(L, 1); + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lib_string.c b/src/3rd party/luajit-2.0/src/lib_string.c new file mode 100644 index 00000000000..c6168edbb67 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lib_string.c @@ -0,0 +1,940 @@ +/* +** String library. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include + +#define lib_string_c +#define LUA_LIB + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_state.h" +#include "lj_ff.h" +#include "lj_bcdump.h" +#include "lj_char.h" +#include "lj_lib.h" + +/* ------------------------------------------------------------------------ */ + +#define LJLIB_MODULE_string + +LJLIB_ASM(string_len) LJLIB_REC(.) +{ + lj_lib_checkstr(L, 1); + return FFH_RETRY; +} + +LJLIB_ASM(string_byte) LJLIB_REC(string_range 0) +{ + GCstr *s = lj_lib_checkstr(L, 1); + int32_t len = (int32_t)s->len; + int32_t start = lj_lib_optint(L, 2, 1); + int32_t stop = lj_lib_optint(L, 3, start); + int32_t n, i; + const unsigned char *p; + if (stop < 0) stop += len+1; + if (start < 0) start += len+1; + if (start <= 0) start = 1; + if (stop > len) stop = len; + if (start > stop) return FFH_RES(0); /* Empty interval: return no results. */ + start--; + n = stop - start; + if ((uint32_t)n > LUAI_MAXCSTACK) + lj_err_caller(L, LJ_ERR_STRSLC); + lj_state_checkstack(L, (MSize)n); + p = (const unsigned char *)strdata(s) + start; + for (i = 0; i < n; i++) + setintV(L->base + i-1, p[i]); + return FFH_RES(n); +} + +LJLIB_ASM(string_char) +{ + int i, nargs = (int)(L->top - L->base); + char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, (MSize)nargs); + for (i = 1; i <= nargs; i++) { + int32_t k = lj_lib_checkint(L, i); + if (!checku8(k)) + lj_err_arg(L, i, LJ_ERR_BADVAL); + buf[i-1] = (char)k; + } + setstrV(L, L->base-1, lj_str_new(L, buf, (size_t)nargs)); + return FFH_RES(1); +} + +LJLIB_ASM(string_sub) LJLIB_REC(string_range 1) +{ + lj_lib_checkstr(L, 1); + lj_lib_checkint(L, 2); + setintV(L->base+2, lj_lib_optint(L, 3, -1)); + return FFH_RETRY; +} + +LJLIB_ASM(string_rep) +{ + GCstr *s = lj_lib_checkstr(L, 1); + int32_t k = lj_lib_checkint(L, 2); + GCstr *sep = lj_lib_optstr(L, 3); + int32_t len = (int32_t)s->len; + global_State *g = G(L); + int64_t tlen; + const char *src; + char *buf; + if (k <= 0) { + empty: + setstrV(L, L->base-1, &g->strempty); + return FFH_RES(1); + } + if (sep) { + tlen = (int64_t)len + sep->len; + if (tlen > LJ_MAX_STR) + lj_err_caller(L, LJ_ERR_STROV); + tlen *= k; + if (tlen > LJ_MAX_STR) + lj_err_caller(L, LJ_ERR_STROV); + } else { + tlen = (int64_t)k * len; + if (tlen > LJ_MAX_STR) + lj_err_caller(L, LJ_ERR_STROV); + } + if (tlen == 0) goto empty; + buf = lj_str_needbuf(L, &g->tmpbuf, (MSize)tlen); + src = strdata(s); + if (sep) { + tlen -= sep->len; /* Ignore trailing separator. */ + if (k > 1) { /* Paste one string and one separator. */ + int32_t i; + i = 0; while (i < len) *buf++ = src[i++]; + src = strdata(sep); len = sep->len; + i = 0; while (i < len) *buf++ = src[i++]; + src = g->tmpbuf.buf; len += s->len; k--; /* Now copy that k-1 times. */ + } + } + do { + int32_t i = 0; + do { *buf++ = src[i++]; } while (i < len); + } while (--k > 0); + setstrV(L, L->base-1, lj_str_new(L, g->tmpbuf.buf, (size_t)tlen)); + return FFH_RES(1); +} + +LJLIB_ASM(string_reverse) +{ + GCstr *s = lj_lib_checkstr(L, 1); + lj_str_needbuf(L, &G(L)->tmpbuf, s->len); + return FFH_RETRY; +} +LJLIB_ASM_(string_lower) +LJLIB_ASM_(string_upper) + +/* ------------------------------------------------------------------------ */ + +static int writer_buf(lua_State *L, const void *p, size_t size, void *b) +{ + luaL_addlstring((luaL_Buffer *)b, (const char *)p, size); + UNUSED(L); + return 0; +} + +LJLIB_CF(string_dump) +{ + GCfunc *fn = lj_lib_checkfunc(L, 1); + int strip = L->base+1 < L->top && tvistruecond(L->base+1); + luaL_Buffer b; + L->top = L->base+1; + luaL_buffinit(L, &b); + if (!isluafunc(fn) || lj_bcwrite(L, funcproto(fn), writer_buf, &b, strip)) + lj_err_caller(L, LJ_ERR_STRDUMP); + luaL_pushresult(&b); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +/* macro to `unsign' a character */ +#define uchar(c) ((unsigned char)(c)) + +#define CAP_UNFINISHED (-1) +#define CAP_POSITION (-2) + +typedef struct MatchState { + const char *src_init; /* init of source string */ + const char *src_end; /* end (`\0') of source string */ + lua_State *L; + int level; /* total number of captures (finished or unfinished) */ + int depth; + struct { + const char *init; + ptrdiff_t len; + } capture[LUA_MAXCAPTURES]; +} MatchState; + +#define L_ESC '%' +#define SPECIALS "^$*+?.([%-" + +static int check_capture(MatchState *ms, int l) +{ + l -= '1'; + if (l < 0 || l >= ms->level || ms->capture[l].len == CAP_UNFINISHED) + lj_err_caller(ms->L, LJ_ERR_STRCAPI); + return l; +} + +static int capture_to_close(MatchState *ms) +{ + int level = ms->level; + for (level--; level>=0; level--) + if (ms->capture[level].len == CAP_UNFINISHED) return level; + lj_err_caller(ms->L, LJ_ERR_STRPATC); + return 0; /* unreachable */ +} + +static const char *classend(MatchState *ms, const char *p) +{ + switch (*p++) { + case L_ESC: + if (*p == '\0') + lj_err_caller(ms->L, LJ_ERR_STRPATE); + return p+1; + case '[': + if (*p == '^') p++; + do { /* look for a `]' */ + if (*p == '\0') + lj_err_caller(ms->L, LJ_ERR_STRPATM); + if (*(p++) == L_ESC && *p != '\0') + p++; /* skip escapes (e.g. `%]') */ + } while (*p != ']'); + return p+1; + default: + return p; + } +} + +static const unsigned char match_class_map[32] = { + 0,LJ_CHAR_ALPHA,0,LJ_CHAR_CNTRL,LJ_CHAR_DIGIT,0,0,LJ_CHAR_GRAPH,0,0,0,0, + LJ_CHAR_LOWER,0,0,0,LJ_CHAR_PUNCT,0,0,LJ_CHAR_SPACE,0, + LJ_CHAR_UPPER,0,LJ_CHAR_ALNUM,LJ_CHAR_XDIGIT,0,0,0,0,0,0,0 +}; + +static int match_class(int c, int cl) +{ + if ((cl & 0xc0) == 0x40) { + int t = match_class_map[(cl&0x1f)]; + if (t) { + t = lj_char_isa(c, t); + return (cl & 0x20) ? t : !t; + } + if (cl == 'z') return c == 0; + if (cl == 'Z') return c != 0; + } + return (cl == c); +} + +static int matchbracketclass(int c, const char *p, const char *ec) +{ + int sig = 1; + if (*(p+1) == '^') { + sig = 0; + p++; /* skip the `^' */ + } + while (++p < ec) { + if (*p == L_ESC) { + p++; + if (match_class(c, uchar(*p))) + return sig; + } + else if ((*(p+1) == '-') && (p+2 < ec)) { + p+=2; + if (uchar(*(p-2)) <= c && c <= uchar(*p)) + return sig; + } + else if (uchar(*p) == c) return sig; + } + return !sig; +} + +static int singlematch(int c, const char *p, const char *ep) +{ + switch (*p) { + case '.': return 1; /* matches any char */ + case L_ESC: return match_class(c, uchar(*(p+1))); + case '[': return matchbracketclass(c, p, ep-1); + default: return (uchar(*p) == c); + } +} + +static const char *match(MatchState *ms, const char *s, const char *p); + +static const char *matchbalance(MatchState *ms, const char *s, const char *p) +{ + if (*p == 0 || *(p+1) == 0) + lj_err_caller(ms->L, LJ_ERR_STRPATU); + if (*s != *p) { + return NULL; + } else { + int b = *p; + int e = *(p+1); + int cont = 1; + while (++s < ms->src_end) { + if (*s == e) { + if (--cont == 0) return s+1; + } else if (*s == b) { + cont++; + } + } + } + return NULL; /* string ends out of balance */ +} + +static const char *max_expand(MatchState *ms, const char *s, + const char *p, const char *ep) +{ + ptrdiff_t i = 0; /* counts maximum expand for item */ + while ((s+i)src_end && singlematch(uchar(*(s+i)), p, ep)) + i++; + /* keeps trying to match with the maximum repetitions */ + while (i>=0) { + const char *res = match(ms, (s+i), ep+1); + if (res) return res; + i--; /* else didn't match; reduce 1 repetition to try again */ + } + return NULL; +} + +static const char *min_expand(MatchState *ms, const char *s, + const char *p, const char *ep) +{ + for (;;) { + const char *res = match(ms, s, ep+1); + if (res != NULL) + return res; + else if (ssrc_end && singlematch(uchar(*s), p, ep)) + s++; /* try with one more repetition */ + else + return NULL; + } +} + +static const char *start_capture(MatchState *ms, const char *s, + const char *p, int what) +{ + const char *res; + int level = ms->level; + if (level >= LUA_MAXCAPTURES) lj_err_caller(ms->L, LJ_ERR_STRCAPN); + ms->capture[level].init = s; + ms->capture[level].len = what; + ms->level = level+1; + if ((res=match(ms, s, p)) == NULL) /* match failed? */ + ms->level--; /* undo capture */ + return res; +} + +static const char *end_capture(MatchState *ms, const char *s, + const char *p) +{ + int l = capture_to_close(ms); + const char *res; + ms->capture[l].len = s - ms->capture[l].init; /* close capture */ + if ((res = match(ms, s, p)) == NULL) /* match failed? */ + ms->capture[l].len = CAP_UNFINISHED; /* undo capture */ + return res; +} + +static const char *match_capture(MatchState *ms, const char *s, int l) +{ + size_t len; + l = check_capture(ms, l); + len = (size_t)ms->capture[l].len; + if ((size_t)(ms->src_end-s) >= len && + memcmp(ms->capture[l].init, s, len) == 0) + return s+len; + else + return NULL; +} + +static const char *match(MatchState *ms, const char *s, const char *p) +{ + if (++ms->depth > LJ_MAX_XLEVEL) + lj_err_caller(ms->L, LJ_ERR_STRPATX); + init: /* using goto's to optimize tail recursion */ + switch (*p) { + case '(': /* start capture */ + if (*(p+1) == ')') /* position capture? */ + s = start_capture(ms, s, p+2, CAP_POSITION); + else + s = start_capture(ms, s, p+1, CAP_UNFINISHED); + break; + case ')': /* end capture */ + s = end_capture(ms, s, p+1); + break; + case L_ESC: + switch (*(p+1)) { + case 'b': /* balanced string? */ + s = matchbalance(ms, s, p+2); + if (s == NULL) break; + p+=4; + goto init; /* else s = match(ms, s, p+4); */ + case 'f': { /* frontier? */ + const char *ep; char previous; + p += 2; + if (*p != '[') + lj_err_caller(ms->L, LJ_ERR_STRPATB); + ep = classend(ms, p); /* points to what is next */ + previous = (s == ms->src_init) ? '\0' : *(s-1); + if (matchbracketclass(uchar(previous), p, ep-1) || + !matchbracketclass(uchar(*s), p, ep-1)) { s = NULL; break; } + p=ep; + goto init; /* else s = match(ms, s, ep); */ + } + default: + if (lj_char_isdigit(uchar(*(p+1)))) { /* capture results (%0-%9)? */ + s = match_capture(ms, s, uchar(*(p+1))); + if (s == NULL) break; + p+=2; + goto init; /* else s = match(ms, s, p+2) */ + } + goto dflt; /* case default */ + } + break; + case '\0': /* end of pattern */ + break; /* match succeeded */ + case '$': + /* is the `$' the last char in pattern? */ + if (*(p+1) != '\0') goto dflt; + if (s != ms->src_end) s = NULL; /* check end of string */ + break; + default: dflt: { /* it is a pattern item */ + const char *ep = classend(ms, p); /* points to what is next */ + int m = ssrc_end && singlematch(uchar(*s), p, ep); + switch (*ep) { + case '?': { /* optional */ + const char *res; + if (m && ((res=match(ms, s+1, ep+1)) != NULL)) { + s = res; + break; + } + p=ep+1; + goto init; /* else s = match(ms, s, ep+1); */ + } + case '*': /* 0 or more repetitions */ + s = max_expand(ms, s, p, ep); + break; + case '+': /* 1 or more repetitions */ + s = (m ? max_expand(ms, s+1, p, ep) : NULL); + break; + case '-': /* 0 or more repetitions (minimum) */ + s = min_expand(ms, s, p, ep); + break; + default: + if (m) { s++; p=ep; goto init; } /* else s = match(ms, s+1, ep); */ + s = NULL; + break; + } + break; + } + } + ms->depth--; + return s; +} + +static const char *lmemfind(const char *s1, size_t l1, + const char *s2, size_t l2) +{ + if (l2 == 0) { + return s1; /* empty strings are everywhere */ + } else if (l2 > l1) { + return NULL; /* avoids a negative `l1' */ + } else { + const char *init; /* to search for a `*s2' inside `s1' */ + l2--; /* 1st char will be checked by `memchr' */ + l1 = l1-l2; /* `s2' cannot be found after that */ + while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { + init++; /* 1st char is already checked */ + if (memcmp(init, s2+1, l2) == 0) { + return init-1; + } else { /* correct `l1' and `s1' to try again */ + l1 -= (size_t)(init-s1); + s1 = init; + } + } + return NULL; /* not found */ + } +} + +static void push_onecapture(MatchState *ms, int i, const char *s, const char *e) +{ + if (i >= ms->level) { + if (i == 0) /* ms->level == 0, too */ + lua_pushlstring(ms->L, s, (size_t)(e - s)); /* add whole match */ + else + lj_err_caller(ms->L, LJ_ERR_STRCAPI); + } else { + ptrdiff_t l = ms->capture[i].len; + if (l == CAP_UNFINISHED) lj_err_caller(ms->L, LJ_ERR_STRCAPU); + if (l == CAP_POSITION) + lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1); + else + lua_pushlstring(ms->L, ms->capture[i].init, (size_t)l); + } +} + +static int push_captures(MatchState *ms, const char *s, const char *e) +{ + int i; + int nlevels = (ms->level == 0 && s) ? 1 : ms->level; + luaL_checkstack(ms->L, nlevels, "too many captures"); + for (i = 0; i < nlevels; i++) + push_onecapture(ms, i, s, e); + return nlevels; /* number of strings pushed */ +} + +static ptrdiff_t posrelat(ptrdiff_t pos, size_t len) +{ + /* relative string position: negative means back from end */ + if (pos < 0) pos += (ptrdiff_t)len + 1; + return (pos >= 0) ? pos : 0; +} + +static int str_find_aux(lua_State *L, int find) +{ + size_t l1, l2; + const char *s = luaL_checklstring(L, 1, &l1); + const char *p = luaL_checklstring(L, 2, &l2); + ptrdiff_t init = posrelat(luaL_optinteger(L, 3, 1), l1) - 1; + if (init < 0) { + init = 0; + } else if ((size_t)(init) > l1) { +#if LJ_52 + setnilV(L->top-1); + return 1; +#else + init = (ptrdiff_t)l1; +#endif + } + if (find && (lua_toboolean(L, 4) || /* explicit request? */ + strpbrk(p, SPECIALS) == NULL)) { /* or no special characters? */ + /* do a plain search */ + const char *s2 = lmemfind(s+init, l1-(size_t)init, p, l2); + if (s2) { + lua_pushinteger(L, s2-s+1); + lua_pushinteger(L, s2-s+(ptrdiff_t)l2); + return 2; + } + } else { + MatchState ms; + int anchor = (*p == '^') ? (p++, 1) : 0; + const char *s1=s+init; + ms.L = L; + ms.src_init = s; + ms.src_end = s+l1; + do { + const char *res; + ms.level = ms.depth = 0; + if ((res=match(&ms, s1, p)) != NULL) { + if (find) { + lua_pushinteger(L, s1-s+1); /* start */ + lua_pushinteger(L, res-s); /* end */ + return push_captures(&ms, NULL, 0) + 2; + } else { + return push_captures(&ms, s1, res); + } + } + } while (s1++ < ms.src_end && !anchor); + } + lua_pushnil(L); /* not found */ + return 1; +} + +LJLIB_CF(string_find) +{ + return str_find_aux(L, 1); +} + +LJLIB_CF(string_match) +{ + return str_find_aux(L, 0); +} + +LJLIB_NOREG LJLIB_CF(string_gmatch_aux) +{ + const char *p = strVdata(lj_lib_upvalue(L, 2)); + GCstr *str = strV(lj_lib_upvalue(L, 1)); + const char *s = strdata(str); + TValue *tvpos = lj_lib_upvalue(L, 3); + const char *src = s + tvpos->u32.lo; + MatchState ms; + ms.L = L; + ms.src_init = s; + ms.src_end = s + str->len; + for (; src <= ms.src_end; src++) { + const char *e; + ms.level = ms.depth = 0; + if ((e = match(&ms, src, p)) != NULL) { + int32_t pos = (int32_t)(e - s); + if (e == src) pos++; /* Ensure progress for empty match. */ + tvpos->u32.lo = (uint32_t)pos; + return push_captures(&ms, src, e); + } + } + return 0; /* not found */ +} + +LJLIB_CF(string_gmatch) +{ + lj_lib_checkstr(L, 1); + lj_lib_checkstr(L, 2); + L->top = L->base+3; + (L->top-1)->u64 = 0; + lj_lib_pushcc(L, lj_cf_string_gmatch_aux, FF_string_gmatch_aux, 3); + return 1; +} + +static void add_s(MatchState *ms, luaL_Buffer *b, const char *s, const char *e) +{ + size_t l, i; + const char *news = lua_tolstring(ms->L, 3, &l); + for (i = 0; i < l; i++) { + if (news[i] != L_ESC) { + luaL_addchar(b, news[i]); + } else { + i++; /* skip ESC */ + if (!lj_char_isdigit(uchar(news[i]))) { + luaL_addchar(b, news[i]); + } else if (news[i] == '0') { + luaL_addlstring(b, s, (size_t)(e - s)); + } else { + push_onecapture(ms, news[i] - '1', s, e); + luaL_addvalue(b); /* add capture to accumulated result */ + } + } + } +} + +static void add_value(MatchState *ms, luaL_Buffer *b, + const char *s, const char *e) +{ + lua_State *L = ms->L; + switch (lua_type(L, 3)) { + case LUA_TNUMBER: + case LUA_TSTRING: { + add_s(ms, b, s, e); + return; + } + case LUA_TFUNCTION: { + int n; + lua_pushvalue(L, 3); + n = push_captures(ms, s, e); + lua_call(L, n, 1); + break; + } + case LUA_TTABLE: { + push_onecapture(ms, 0, s, e); + lua_gettable(L, 3); + break; + } + } + if (!lua_toboolean(L, -1)) { /* nil or false? */ + lua_pop(L, 1); + lua_pushlstring(L, s, (size_t)(e - s)); /* keep original text */ + } else if (!lua_isstring(L, -1)) { + lj_err_callerv(L, LJ_ERR_STRGSRV, luaL_typename(L, -1)); + } + luaL_addvalue(b); /* add result to accumulator */ +} + +LJLIB_CF(string_gsub) +{ + size_t srcl; + const char *src = luaL_checklstring(L, 1, &srcl); + const char *p = luaL_checkstring(L, 2); + int tr = lua_type(L, 3); + int max_s = luaL_optint(L, 4, (int)(srcl+1)); + int anchor = (*p == '^') ? (p++, 1) : 0; + int n = 0; + MatchState ms; + luaL_Buffer b; + if (!(tr == LUA_TNUMBER || tr == LUA_TSTRING || + tr == LUA_TFUNCTION || tr == LUA_TTABLE)) + lj_err_arg(L, 3, LJ_ERR_NOSFT); + luaL_buffinit(L, &b); + ms.L = L; + ms.src_init = src; + ms.src_end = src+srcl; + while (n < max_s) { + const char *e; + ms.level = ms.depth = 0; + e = match(&ms, src, p); + if (e) { + n++; + add_value(&ms, &b, src, e); + } + if (e && e>src) /* non empty match? */ + src = e; /* skip it */ + else if (src < ms.src_end) + luaL_addchar(&b, *src++); + else + break; + if (anchor) + break; + } + luaL_addlstring(&b, src, (size_t)(ms.src_end-src)); + luaL_pushresult(&b); + lua_pushinteger(L, n); /* number of substitutions */ + return 2; +} + +/* ------------------------------------------------------------------------ */ + +/* maximum size of each formatted item (> len(format('%99.99f', -1e308))) */ +#define MAX_FMTITEM 512 +/* valid flags in a format specification */ +#define FMT_FLAGS "-+ #0" +/* +** maximum size of each format specification (such as '%-099.99d') +** (+10 accounts for %99.99x plus margin of error) +*/ +#define MAX_FMTSPEC (sizeof(FMT_FLAGS) + sizeof(LUA_INTFRMLEN) + 10) + +static void addquoted(lua_State *L, luaL_Buffer *b, int arg) +{ + GCstr *str = lj_lib_checkstr(L, arg); + int32_t len = (int32_t)str->len; + const char *s = strdata(str); + luaL_addchar(b, '"'); + while (len--) { + uint32_t c = uchar(*s); + if (c == '"' || c == '\\' || c == '\n') { + luaL_addchar(b, '\\'); + } else if (lj_char_iscntrl(c)) { /* This can only be 0-31 or 127. */ + uint32_t d; + luaL_addchar(b, '\\'); + if (c >= 100 || lj_char_isdigit(uchar(s[1]))) { + luaL_addchar(b, '0'+(c >= 100)); if (c >= 100) c -= 100; + goto tens; + } else if (c >= 10) { + tens: + d = (c * 205) >> 11; c -= d * 10; luaL_addchar(b, '0'+d); + } + c += '0'; + } + luaL_addchar(b, c); + s++; + } + luaL_addchar(b, '"'); +} + +static const char *scanformat(lua_State *L, const char *strfrmt, char *form) +{ + const char *p = strfrmt; + while (*p != '\0' && strchr(FMT_FLAGS, *p) != NULL) p++; /* skip flags */ + if ((size_t)(p - strfrmt) >= sizeof(FMT_FLAGS)) + lj_err_caller(L, LJ_ERR_STRFMTR); + if (lj_char_isdigit(uchar(*p))) p++; /* skip width */ + if (lj_char_isdigit(uchar(*p))) p++; /* (2 digits at most) */ + if (*p == '.') { + p++; + if (lj_char_isdigit(uchar(*p))) p++; /* skip precision */ + if (lj_char_isdigit(uchar(*p))) p++; /* (2 digits at most) */ + } + if (lj_char_isdigit(uchar(*p))) + lj_err_caller(L, LJ_ERR_STRFMTW); + *(form++) = '%'; + strncpy(form, strfrmt, (size_t)(p - strfrmt + 1)); + form += p - strfrmt + 1; + *form = '\0'; + return p; +} + +static void addintlen(char *form) +{ + size_t l = strlen(form); + char spec = form[l - 1]; + strcpy(form + l - 1, LUA_INTFRMLEN); + form[l + sizeof(LUA_INTFRMLEN) - 2] = spec; + form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0'; +} + +static unsigned LUA_INTFRM_T num2intfrm(lua_State *L, int arg) +{ + if (sizeof(LUA_INTFRM_T) == 4) { + return (LUA_INTFRM_T)lj_lib_checkbit(L, arg); + } else { + cTValue *o; + lj_lib_checknumber(L, arg); + o = L->base+arg-1; + if (tvisint(o)) + return (LUA_INTFRM_T)intV(o); + else + return (LUA_INTFRM_T)numV(o); + } +} + +static unsigned LUA_INTFRM_T num2uintfrm(lua_State *L, int arg) +{ + if (sizeof(LUA_INTFRM_T) == 4) { + return (unsigned LUA_INTFRM_T)lj_lib_checkbit(L, arg); + } else { + cTValue *o; + lj_lib_checknumber(L, arg); + o = L->base+arg-1; + if (tvisint(o)) + return (unsigned LUA_INTFRM_T)intV(o); + else if ((int32_t)o->u32.hi < 0) + return (unsigned LUA_INTFRM_T)(LUA_INTFRM_T)numV(o); + else + return (unsigned LUA_INTFRM_T)numV(o); + } +} + +static GCstr *meta_tostring(lua_State *L, int arg) +{ + TValue *o = L->base+arg-1; + cTValue *mo; + lua_assert(o < L->top); /* Caller already checks for existence. */ + if (LJ_LIKELY(tvisstr(o))) + return strV(o); + if (!tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { + copyTV(L, L->top++, mo); + copyTV(L, L->top++, o); + lua_call(L, 1, 1); + L->top--; + if (tvisstr(L->top)) + return strV(L->top); + o = L->base+arg-1; + copyTV(L, o, L->top); + } + if (tvisnumber(o)) { + return lj_str_fromnumber(L, o); + } else if (tvisnil(o)) { + return lj_str_newlit(L, "nil"); + } else if (tvisfalse(o)) { + return lj_str_newlit(L, "false"); + } else if (tvistrue(o)) { + return lj_str_newlit(L, "true"); + } else { + if (tvisfunc(o) && isffunc(funcV(o))) + lj_str_pushf(L, "function: builtin#%d", funcV(o)->c.ffid); + else + lj_str_pushf(L, "%s: %p", lj_typename(o), lua_topointer(L, arg)); + L->top--; + return strV(L->top); + } +} + +LJLIB_CF(string_format) +{ + int arg = 1, top = (int)(L->top - L->base); + GCstr *fmt = lj_lib_checkstr(L, arg); + const char *strfrmt = strdata(fmt); + const char *strfrmt_end = strfrmt + fmt->len; + luaL_Buffer b; + luaL_buffinit(L, &b); + while (strfrmt < strfrmt_end) { + if (*strfrmt != L_ESC) { + luaL_addchar(&b, *strfrmt++); + } else if (*++strfrmt == L_ESC) { + luaL_addchar(&b, *strfrmt++); /* %% */ + } else { /* format item */ + char form[MAX_FMTSPEC]; /* to store the format (`%...') */ + char buff[MAX_FMTITEM]; /* to store the formatted item */ + if (++arg > top) + luaL_argerror(L, arg, lj_obj_typename[0]); + strfrmt = scanformat(L, strfrmt, form); + switch (*strfrmt++) { + case 'c': + sprintf(buff, form, lj_lib_checkint(L, arg)); + break; + case 'd': case 'i': + addintlen(form); + sprintf(buff, form, num2intfrm(L, arg)); + break; + case 'o': case 'u': case 'x': case 'X': + addintlen(form); + sprintf(buff, form, num2uintfrm(L, arg)); + break; + case 'e': case 'E': case 'f': case 'g': case 'G': case 'a': case 'A': { + TValue tv; + tv.n = lj_lib_checknum(L, arg); + if (LJ_UNLIKELY((tv.u32.hi << 1) >= 0xffe00000)) { + /* Canonicalize output of non-finite values. */ + char *p, nbuf[LJ_STR_NUMBUF]; + size_t len = lj_str_bufnum(nbuf, &tv); + if (strfrmt[-1] < 'a') { + nbuf[len-3] = nbuf[len-3] - 0x20; + nbuf[len-2] = nbuf[len-2] - 0x20; + nbuf[len-1] = nbuf[len-1] - 0x20; + } + nbuf[len] = '\0'; + for (p = form; *p < 'A' && *p != '.'; p++) ; + *p++ = 's'; *p = '\0'; + sprintf(buff, form, nbuf); + break; + } + sprintf(buff, form, (double)tv.n); + break; + } + case 'q': + addquoted(L, &b, arg); + continue; + case 'p': + lj_str_pushf(L, "%p", lua_topointer(L, arg)); + luaL_addvalue(&b); + continue; + case 's': { + GCstr *str = meta_tostring(L, arg); + if (!strchr(form, '.') && str->len >= 100) { + /* no precision and string is too long to be formatted; + keep original string */ + setstrV(L, L->top++, str); + luaL_addvalue(&b); + continue; + } + sprintf(buff, form, strdata(str)); + break; + } + default: + lj_err_callerv(L, LJ_ERR_STRFMTO, *(strfrmt -1)); + break; + } + luaL_addlstring(&b, buff, strlen(buff)); + } + } + luaL_pushresult(&b); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_string(lua_State *L) +{ + GCtab *mt; + global_State *g; + LJ_LIB_REG(L, LUA_STRLIBNAME, string); +#if defined(LUA_COMPAT_GFIND) && !LJ_52 + lua_getfield(L, -1, "gmatch"); + lua_setfield(L, -2, "gfind"); +#endif + mt = lj_tab_new(L, 0, 1); + /* NOBARRIER: basemt is a GC root. */ + g = G(L); + setgcref(basemt_it(g, LJ_TSTR), obj2gco(mt)); + settabV(L, lj_tab_setstr(L, mt, mmname_str(g, MM_index)), tabV(L->top-1)); + mt->nomm = (uint8_t)(~(1u<top, func); + setintV(L->top+1, i); + val = lj_tab_getint(t, (int32_t)i); + if (val) { copyTV(L, L->top+2, val); } else { setnilV(L->top+2); } + L->top += 3; + lua_call(L, 2, 1); + if (!tvisnil(L->top-1)) + return 1; + L->top--; + } + return 0; +} + +LJLIB_CF(table_foreach) +{ + GCtab *t = lj_lib_checktab(L, 1); + GCfunc *func = lj_lib_checkfunc(L, 2); + L->top = L->base+3; + setnilV(L->top-1); + while (lj_tab_next(L, t, L->top-1)) { + copyTV(L, L->top+2, L->top); + copyTV(L, L->top+1, L->top-1); + setfuncV(L, L->top, func); + L->top += 3; + lua_call(L, 2, 1); + if (!tvisnil(L->top-1)) + return 1; + L->top--; + } + return 0; +} + +LJLIB_ASM(table_getn) LJLIB_REC(.) +{ + lj_lib_checktab(L, 1); + return FFH_UNREACHABLE; +} + +LJLIB_CF(table_maxn) +{ + GCtab *t = lj_lib_checktab(L, 1); + TValue *array = tvref(t->array); + Node *node; + lua_Number m = 0; + ptrdiff_t i; + for (i = (ptrdiff_t)t->asize - 1; i >= 0; i--) + if (!tvisnil(&array[i])) { + m = (lua_Number)(int32_t)i; + break; + } + node = noderef(t->node); + for (i = (ptrdiff_t)t->hmask; i >= 0; i--) + if (!tvisnil(&node[i].val) && tvisnumber(&node[i].key)) { + lua_Number n = numberVnum(&node[i].key); + if (n > m) m = n; + } + setnumV(L->top-1, m); + return 1; +} + +LJLIB_CF(table_insert) LJLIB_REC(.) +{ + GCtab *t = lj_lib_checktab(L, 1); + int32_t n, i = (int32_t)lj_tab_len(t) + 1; + int nargs = (int)((char *)L->top - (char *)L->base); + if (nargs != 2*sizeof(TValue)) { + if (nargs != 3*sizeof(TValue)) + lj_err_caller(L, LJ_ERR_TABINS); + /* NOBARRIER: This just moves existing elements around. */ + for (n = lj_lib_checkint(L, 2); i > n; i--) { + /* The set may invalidate the get pointer, so need to do it first! */ + TValue *dst = lj_tab_setint(L, t, i); + cTValue *src = lj_tab_getint(t, i-1); + if (src) { + copyTV(L, dst, src); + } else { + setnilV(dst); + } + } + i = n; + } + { + TValue *dst = lj_tab_setint(L, t, i); + copyTV(L, dst, L->top-1); /* Set new value. */ + lj_gc_barriert(L, t, dst); + } + return 0; +} + +LJLIB_CF(table_remove) LJLIB_REC(.) +{ + GCtab *t = lj_lib_checktab(L, 1); + int32_t e = (int32_t)lj_tab_len(t); + int32_t pos = lj_lib_optint(L, 2, e); + if (!(1 <= pos && pos <= e)) /* Nothing to remove? */ + return 0; + lua_rawgeti(L, 1, pos); /* Get previous value. */ + /* NOBARRIER: This just moves existing elements around. */ + for (; pos < e; pos++) { + cTValue *src = lj_tab_getint(t, pos+1); + TValue *dst = lj_tab_setint(L, t, pos); + if (src) { + copyTV(L, dst, src); + } else { + setnilV(dst); + } + } + setnilV(lj_tab_setint(L, t, e)); /* Remove (last) value. */ + return 1; /* Return previous value. */ +} + +LJLIB_CF(table_concat) +{ + luaL_Buffer b; + GCtab *t = lj_lib_checktab(L, 1); + GCstr *sep = lj_lib_optstr(L, 2); + MSize seplen = sep ? sep->len : 0; + int32_t i = lj_lib_optint(L, 3, 1); + int32_t e = (L->base+3 < L->top && !tvisnil(L->base+3)) ? + lj_lib_checkint(L, 4) : (int32_t)lj_tab_len(t); + luaL_buffinit(L, &b); + if (i <= e) { + for (;;) { + cTValue *o; + lua_rawgeti(L, 1, i); + o = L->top-1; + if (!(tvisstr(o) || tvisnumber(o))) + lj_err_callerv(L, LJ_ERR_TABCAT, lj_typename(o), i); + luaL_addvalue(&b); + if (i++ == e) break; + if (seplen) + luaL_addlstring(&b, strdata(sep), seplen); + } + } + luaL_pushresult(&b); + return 1; +} + +/* ------------------------------------------------------------------------ */ + +static void set2(lua_State *L, int i, int j) +{ + lua_rawseti(L, 1, i); + lua_rawseti(L, 1, j); +} + +static int sort_comp(lua_State *L, int a, int b) +{ + if (!lua_isnil(L, 2)) { /* function? */ + int res; + lua_pushvalue(L, 2); + lua_pushvalue(L, a-1); /* -1 to compensate function */ + lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */ + lua_call(L, 2, 1); + res = lua_toboolean(L, -1); + lua_pop(L, 1); + return res; + } else { /* a < b? */ + return lua_lessthan(L, a, b); + } +} + +static void auxsort(lua_State *L, int l, int u) +{ + while (l < u) { /* for tail recursion */ + int i, j; + /* sort elements a[l], a[(l+u)/2] and a[u] */ + lua_rawgeti(L, 1, l); + lua_rawgeti(L, 1, u); + if (sort_comp(L, -1, -2)) /* a[u] < a[l]? */ + set2(L, l, u); /* swap a[l] - a[u] */ + else + lua_pop(L, 2); + if (u-l == 1) break; /* only 2 elements */ + i = (l+u)/2; + lua_rawgeti(L, 1, i); + lua_rawgeti(L, 1, l); + if (sort_comp(L, -2, -1)) { /* a[i]= P */ + while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { + if (i>=u) lj_err_caller(L, LJ_ERR_TABSORT); + lua_pop(L, 1); /* remove a[i] */ + } + /* repeat --j until a[j] <= P */ + while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { + if (j<=l) lj_err_caller(L, LJ_ERR_TABSORT); + lua_pop(L, 1); /* remove a[j] */ + } + if (jbase+1)) + lj_lib_checkfunc(L, 2); + auxsort(L, 1, n); + return 0; +} + +#if LJ_52 +LJLIB_PUSH("n") +LJLIB_CF(table_pack) +{ + TValue *array, *base = L->base; + MSize i, n = (uint32_t)(L->top - base); + GCtab *t = lj_tab_new(L, n ? n+1 : 0, 1); + /* NOBARRIER: The table is new (marked white). */ + setintV(lj_tab_setstr(L, t, strV(lj_lib_upvalue(L, 1))), (int32_t)n); + for (array = tvref(t->array) + 1, i = 0; i < n; i++) + copyTV(L, &array[i], &base[i]); + settabV(L, base, t); + L->top = base+1; + lj_gc_check(L); + return 1; +} +#endif + +/* ------------------------------------------------------------------------ */ + +#include "lj_libdef.h" + +LUALIB_API int luaopen_table(lua_State *L) +{ + LJ_LIB_REG(L, LUA_TABLIBNAME, table); +#if LJ_52 + lua_getglobal(L, "unpack"); + lua_setfield(L, -2, "unpack"); +#endif + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lj.supp b/src/3rd party/luajit-2.0/src/lj.supp new file mode 100644 index 00000000000..411f2617001 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj.supp @@ -0,0 +1,26 @@ +# Valgrind suppression file for LuaJIT 2.0. +{ + Optimized string compare + Memcheck:Addr4 + fun:lj_str_cmp +} +{ + Optimized string compare + Memcheck:Addr1 + fun:lj_str_cmp +} +{ + Optimized string compare + Memcheck:Addr4 + fun:lj_str_new +} +{ + Optimized string compare + Memcheck:Addr1 + fun:lj_str_new +} +{ + Optimized string compare + Memcheck:Cond + fun:lj_str_new +} diff --git a/src/3rd party/luajit-2.0/src/lj_alloc.c b/src/3rd party/luajit-2.0/src/lj_alloc.c new file mode 100644 index 00000000000..7c7ec678726 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_alloc.c @@ -0,0 +1,1396 @@ +/* +** Bundled memory allocator. +** +** Beware: this is a HEAVILY CUSTOMIZED version of dlmalloc. +** The original bears the following remark: +** +** This is a version (aka dlmalloc) of malloc/free/realloc written by +** Doug Lea and released to the public domain, as explained at +** http://creativecommons.org/licenses/publicdomain. +** +** * Version pre-2.8.4 Wed Mar 29 19:46:29 2006 (dl at gee) +** +** No additional copyright is claimed over the customizations. +** Please do NOT bother the original author about this version here! +** +** If you want to use dlmalloc in another project, you should get +** the original from: ftp://gee.cs.oswego.edu/pub/misc/ +** For thread-safe derivatives, take a look at: +** - ptmalloc: http://www.malloc.de/ +** - nedmalloc: http://www.nedprod.com/programs/portable/nedmalloc/ +*/ + +#define lj_alloc_c +#define LUA_CORE + +/* To get the mremap prototype. Must be defined before any system includes. */ +#if defined(__linux__) && !defined(_GNU_SOURCE) +#define _GNU_SOURCE +#endif + +#include "lj_def.h" +#include "lj_arch.h" +#include "lj_alloc.h" + +#ifndef LUAJIT_USE_SYSMALLOC + +#define MAX_SIZE_T (~(size_t)0) +#define MALLOC_ALIGNMENT ((size_t)8U) + +#define DEFAULT_GRANULARITY ((size_t)128U * (size_t)1024U) +#define DEFAULT_TRIM_THRESHOLD ((size_t)2U * (size_t)1024U * (size_t)1024U) +#define DEFAULT_MMAP_THRESHOLD ((size_t)128U * (size_t)1024U) +#define MAX_RELEASE_CHECK_RATE 255 + +/* ------------------- size_t and alignment properties -------------------- */ + +/* The byte and bit size of a size_t */ +#define SIZE_T_SIZE (sizeof(size_t)) +#define SIZE_T_BITSIZE (sizeof(size_t) << 3) + +/* Some constants coerced to size_t */ +/* Annoying but necessary to avoid errors on some platforms */ +#define SIZE_T_ZERO ((size_t)0) +#define SIZE_T_ONE ((size_t)1) +#define SIZE_T_TWO ((size_t)2) +#define TWO_SIZE_T_SIZES (SIZE_T_SIZE<<1) +#define FOUR_SIZE_T_SIZES (SIZE_T_SIZE<<2) +#define SIX_SIZE_T_SIZES (FOUR_SIZE_T_SIZES+TWO_SIZE_T_SIZES) + +/* The bit mask value corresponding to MALLOC_ALIGNMENT */ +#define CHUNK_ALIGN_MASK (MALLOC_ALIGNMENT - SIZE_T_ONE) + +/* the number of bytes to offset an address to align it */ +#define align_offset(A)\ + ((((size_t)(A) & CHUNK_ALIGN_MASK) == 0)? 0 :\ + ((MALLOC_ALIGNMENT - ((size_t)(A) & CHUNK_ALIGN_MASK)) & CHUNK_ALIGN_MASK)) + +/* -------------------------- MMAP support ------------------------------- */ + +#define MFAIL ((void *)(MAX_SIZE_T)) +#define CMFAIL ((char *)(MFAIL)) /* defined for convenience */ + +#define IS_DIRECT_BIT (SIZE_T_ONE) + +#if LJ_TARGET_WINDOWS + +#define WIN32_LEAN_AND_MEAN +#include + +#if LJ_64 + +/* Undocumented, but hey, that's what we all love so much about Windows. */ +typedef long (*PNTAVM)(HANDLE handle, void **addr, ULONG zbits, + size_t *size, ULONG alloctype, ULONG prot); +static PNTAVM ntavm; + +/* Number of top bits of the lower 32 bits of an address that must be zero. +** Apparently 0 gives us full 64 bit addresses and 1 gives us the lower 2GB. +*/ +#define NTAVM_ZEROBITS 1 + +static void INIT_MMAP(void) +{ + ntavm = (PNTAVM)GetProcAddress(GetModuleHandleA("ntdll.dll"), + "NtAllocateVirtualMemory"); +} + +/* Win64 32 bit MMAP via NtAllocateVirtualMemory. */ +static LJ_AINLINE void *CALL_MMAP(size_t size) +{ + DWORD olderr = GetLastError(); + void *ptr = NULL; + long st = ntavm(INVALID_HANDLE_VALUE, &ptr, NTAVM_ZEROBITS, &size, + MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); + SetLastError(olderr); + return st == 0 ? ptr : MFAIL; +} + +/* For direct MMAP, use MEM_TOP_DOWN to minimize interference */ +static LJ_AINLINE void *DIRECT_MMAP(size_t size) +{ + DWORD olderr = GetLastError(); + void *ptr = NULL; + long st = ntavm(INVALID_HANDLE_VALUE, &ptr, NTAVM_ZEROBITS, &size, + MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, PAGE_READWRITE); + SetLastError(olderr); + return st == 0 ? ptr : MFAIL; +} + +#else + +#define INIT_MMAP() ((void)0) + +/* Win32 MMAP via VirtualAlloc */ +static LJ_AINLINE void *CALL_MMAP(size_t size) +{ + DWORD olderr = GetLastError(); + void *ptr = VirtualAlloc(0, size, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); + SetLastError(olderr); + return ptr ? ptr : MFAIL; +} + +/* For direct MMAP, use MEM_TOP_DOWN to minimize interference */ +static LJ_AINLINE void *DIRECT_MMAP(size_t size) +{ + DWORD olderr = GetLastError(); + void *ptr = VirtualAlloc(0, size, MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, + PAGE_READWRITE); + SetLastError(olderr); + return ptr ? ptr : MFAIL; +} + +#endif + +/* This function supports releasing coalesed segments */ +static LJ_AINLINE int CALL_MUNMAP(void *ptr, size_t size) +{ + DWORD olderr = GetLastError(); + MEMORY_BASIC_INFORMATION minfo; + char *cptr = (char *)ptr; + while (size) { + if (VirtualQuery(cptr, &minfo, sizeof(minfo)) == 0) + return -1; + if (minfo.BaseAddress != cptr || minfo.AllocationBase != cptr || + minfo.State != MEM_COMMIT || minfo.RegionSize > size) + return -1; + if (VirtualFree(cptr, 0, MEM_RELEASE) == 0) + return -1; + cptr += minfo.RegionSize; + size -= minfo.RegionSize; + } + SetLastError(olderr); + return 0; +} + +#else + +#include +#include + +#define MMAP_PROT (PROT_READ|PROT_WRITE) +#if !defined(MAP_ANONYMOUS) && defined(MAP_ANON) +#define MAP_ANONYMOUS MAP_ANON +#endif +#define MMAP_FLAGS (MAP_PRIVATE|MAP_ANONYMOUS) + +#if LJ_64 +/* 64 bit mode needs special support for allocating memory in the lower 2GB. */ + +#if defined(MAP_32BIT) + +#if defined(__sun__) +#define MMAP_REGION_START ((uintptr_t)0x1000) +#else +/* Actually this only gives us max. 1GB in current Linux kernels. */ +#define MMAP_REGION_START ((uintptr_t)0) +#endif + +static LJ_AINLINE void *CALL_MMAP(size_t size) +{ + int olderr = errno; + void *ptr = mmap((void *)MMAP_REGION_START, size, MMAP_PROT, MAP_32BIT|MMAP_FLAGS, -1, 0); + errno = olderr; + return ptr; +} + +#elif LJ_TARGET_OSX || LJ_TARGET_PS4 || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__DragonFly__) || defined(__sun__) + +/* OSX and FreeBSD mmap() use a naive first-fit linear search. +** That's perfect for us. Except that -pagezero_size must be set for OSX, +** otherwise the lower 4GB are blocked. And the 32GB RLIMIT_DATA needs +** to be reduced to 250MB on FreeBSD. +*/ +#if LJ_TARGET_OSX || defined(__DragonFly__) +#define MMAP_REGION_START ((uintptr_t)0x10000) +#elif LJ_TARGET_PS4 +#define MMAP_REGION_START ((uintptr_t)0x4000) +#else +#define MMAP_REGION_START ((uintptr_t)0x10000000) +#endif +#define MMAP_REGION_END ((uintptr_t)0x80000000) + +#if (defined(__FreeBSD__) || defined(__FreeBSD_kernel__)) && !LJ_TARGET_PS4 +#include +#endif + +static LJ_AINLINE void *CALL_MMAP(size_t size) +{ + int olderr = errno; + /* Hint for next allocation. Doesn't need to be thread-safe. */ + static uintptr_t alloc_hint = MMAP_REGION_START; + int retry = 0; +#if (defined(__FreeBSD__) || defined(__FreeBSD_kernel__)) && !LJ_TARGET_PS4 + static int rlimit_modified = 0; + if (LJ_UNLIKELY(rlimit_modified == 0)) { + struct rlimit rlim; + rlim.rlim_cur = rlim.rlim_max = MMAP_REGION_START; + setrlimit(RLIMIT_DATA, &rlim); /* Ignore result. May fail below. */ + rlimit_modified = 1; + } +#endif + for (;;) { + void *p = mmap((void *)alloc_hint, size, MMAP_PROT, MMAP_FLAGS, -1, 0); + if ((uintptr_t)p >= MMAP_REGION_START && + (uintptr_t)p + size < MMAP_REGION_END) { + alloc_hint = (uintptr_t)p + size; + errno = olderr; + return p; + } + if (p != CMFAIL) munmap(p, size); +#if defined(__sun__) || defined(__DragonFly__) + alloc_hint += 0x1000000; /* Need near-exhaustive linear scan. */ + if (alloc_hint + size < MMAP_REGION_END) continue; +#endif + if (retry) break; + retry = 1; + alloc_hint = MMAP_REGION_START; + } + errno = olderr; + return CMFAIL; +} + +#else + +#error "NYI: need an equivalent of MAP_32BIT for this 64 bit OS" + +#endif + +#else + +/* 32 bit mode is easy. */ +static LJ_AINLINE void *CALL_MMAP(size_t size) +{ + int olderr = errno; + void *ptr = mmap(NULL, size, MMAP_PROT, MMAP_FLAGS, -1, 0); + errno = olderr; + return ptr; +} + +#endif + +#define INIT_MMAP() ((void)0) +#define DIRECT_MMAP(s) CALL_MMAP(s) + +static LJ_AINLINE int CALL_MUNMAP(void *ptr, size_t size) +{ + int olderr = errno; + int ret = munmap(ptr, size); + errno = olderr; + return ret; +} + +#if LJ_TARGET_LINUX +/* Need to define _GNU_SOURCE to get the mremap prototype. */ +static LJ_AINLINE void *CALL_MREMAP_(void *ptr, size_t osz, size_t nsz, + int flags) +{ + int olderr = errno; + ptr = mremap(ptr, osz, nsz, flags); + errno = olderr; + return ptr; +} + +#define CALL_MREMAP(addr, osz, nsz, mv) CALL_MREMAP_((addr), (osz), (nsz), (mv)) +#define CALL_MREMAP_NOMOVE 0 +#define CALL_MREMAP_MAYMOVE 1 +#if LJ_64 +#define CALL_MREMAP_MV CALL_MREMAP_NOMOVE +#else +#define CALL_MREMAP_MV CALL_MREMAP_MAYMOVE +#endif +#endif + +#endif + +#ifndef CALL_MREMAP +#define CALL_MREMAP(addr, osz, nsz, mv) ((void)osz, MFAIL) +#endif + +/* ----------------------- Chunk representations ------------------------ */ + +struct malloc_chunk { + size_t prev_foot; /* Size of previous chunk (if free). */ + size_t head; /* Size and inuse bits. */ + struct malloc_chunk *fd; /* double links -- used only if free. */ + struct malloc_chunk *bk; +}; + +typedef struct malloc_chunk mchunk; +typedef struct malloc_chunk *mchunkptr; +typedef struct malloc_chunk *sbinptr; /* The type of bins of chunks */ +typedef size_t bindex_t; /* Described below */ +typedef unsigned int binmap_t; /* Described below */ +typedef unsigned int flag_t; /* The type of various bit flag sets */ + +/* ------------------- Chunks sizes and alignments ----------------------- */ + +#define MCHUNK_SIZE (sizeof(mchunk)) + +#define CHUNK_OVERHEAD (SIZE_T_SIZE) + +/* Direct chunks need a second word of overhead ... */ +#define DIRECT_CHUNK_OVERHEAD (TWO_SIZE_T_SIZES) +/* ... and additional padding for fake next-chunk at foot */ +#define DIRECT_FOOT_PAD (FOUR_SIZE_T_SIZES) + +/* The smallest size we can malloc is an aligned minimal chunk */ +#define MIN_CHUNK_SIZE\ + ((MCHUNK_SIZE + CHUNK_ALIGN_MASK) & ~CHUNK_ALIGN_MASK) + +/* conversion from malloc headers to user pointers, and back */ +#define chunk2mem(p) ((void *)((char *)(p) + TWO_SIZE_T_SIZES)) +#define mem2chunk(mem) ((mchunkptr)((char *)(mem) - TWO_SIZE_T_SIZES)) +/* chunk associated with aligned address A */ +#define align_as_chunk(A) (mchunkptr)((A) + align_offset(chunk2mem(A))) + +/* Bounds on request (not chunk) sizes. */ +#define MAX_REQUEST ((~MIN_CHUNK_SIZE+1) << 2) +#define MIN_REQUEST (MIN_CHUNK_SIZE - CHUNK_OVERHEAD - SIZE_T_ONE) + +/* pad request bytes into a usable size */ +#define pad_request(req) \ + (((req) + CHUNK_OVERHEAD + CHUNK_ALIGN_MASK) & ~CHUNK_ALIGN_MASK) + +/* pad request, checking for minimum (but not maximum) */ +#define request2size(req) \ + (((req) < MIN_REQUEST)? MIN_CHUNK_SIZE : pad_request(req)) + +/* ------------------ Operations on head and foot fields ----------------- */ + +#define PINUSE_BIT (SIZE_T_ONE) +#define CINUSE_BIT (SIZE_T_TWO) +#define INUSE_BITS (PINUSE_BIT|CINUSE_BIT) + +/* Head value for fenceposts */ +#define FENCEPOST_HEAD (INUSE_BITS|SIZE_T_SIZE) + +/* extraction of fields from head words */ +#define cinuse(p) ((p)->head & CINUSE_BIT) +#define pinuse(p) ((p)->head & PINUSE_BIT) +#define chunksize(p) ((p)->head & ~(INUSE_BITS)) + +#define clear_pinuse(p) ((p)->head &= ~PINUSE_BIT) +#define clear_cinuse(p) ((p)->head &= ~CINUSE_BIT) + +/* Treat space at ptr +/- offset as a chunk */ +#define chunk_plus_offset(p, s) ((mchunkptr)(((char *)(p)) + (s))) +#define chunk_minus_offset(p, s) ((mchunkptr)(((char *)(p)) - (s))) + +/* Ptr to next or previous physical malloc_chunk. */ +#define next_chunk(p) ((mchunkptr)(((char *)(p)) + ((p)->head & ~INUSE_BITS))) +#define prev_chunk(p) ((mchunkptr)(((char *)(p)) - ((p)->prev_foot) )) + +/* extract next chunk's pinuse bit */ +#define next_pinuse(p) ((next_chunk(p)->head) & PINUSE_BIT) + +/* Get/set size at footer */ +#define get_foot(p, s) (((mchunkptr)((char *)(p) + (s)))->prev_foot) +#define set_foot(p, s) (((mchunkptr)((char *)(p) + (s)))->prev_foot = (s)) + +/* Set size, pinuse bit, and foot */ +#define set_size_and_pinuse_of_free_chunk(p, s)\ + ((p)->head = (s|PINUSE_BIT), set_foot(p, s)) + +/* Set size, pinuse bit, foot, and clear next pinuse */ +#define set_free_with_pinuse(p, s, n)\ + (clear_pinuse(n), set_size_and_pinuse_of_free_chunk(p, s)) + +#define is_direct(p)\ + (!((p)->head & PINUSE_BIT) && ((p)->prev_foot & IS_DIRECT_BIT)) + +/* Get the internal overhead associated with chunk p */ +#define overhead_for(p)\ + (is_direct(p)? DIRECT_CHUNK_OVERHEAD : CHUNK_OVERHEAD) + +/* ---------------------- Overlaid data structures ----------------------- */ + +struct malloc_tree_chunk { + /* The first four fields must be compatible with malloc_chunk */ + size_t prev_foot; + size_t head; + struct malloc_tree_chunk *fd; + struct malloc_tree_chunk *bk; + + struct malloc_tree_chunk *child[2]; + struct malloc_tree_chunk *parent; + bindex_t index; +}; + +typedef struct malloc_tree_chunk tchunk; +typedef struct malloc_tree_chunk *tchunkptr; +typedef struct malloc_tree_chunk *tbinptr; /* The type of bins of trees */ + +/* A little helper macro for trees */ +#define leftmost_child(t) ((t)->child[0] != 0? (t)->child[0] : (t)->child[1]) + +/* ----------------------------- Segments -------------------------------- */ + +struct malloc_segment { + char *base; /* base address */ + size_t size; /* allocated size */ + struct malloc_segment *next; /* ptr to next segment */ +}; + +typedef struct malloc_segment msegment; +typedef struct malloc_segment *msegmentptr; + +/* ---------------------------- malloc_state ----------------------------- */ + +/* Bin types, widths and sizes */ +#define NSMALLBINS (32U) +#define NTREEBINS (32U) +#define SMALLBIN_SHIFT (3U) +#define SMALLBIN_WIDTH (SIZE_T_ONE << SMALLBIN_SHIFT) +#define TREEBIN_SHIFT (8U) +#define MIN_LARGE_SIZE (SIZE_T_ONE << TREEBIN_SHIFT) +#define MAX_SMALL_SIZE (MIN_LARGE_SIZE - SIZE_T_ONE) +#define MAX_SMALL_REQUEST (MAX_SMALL_SIZE - CHUNK_ALIGN_MASK - CHUNK_OVERHEAD) + +struct malloc_state { + binmap_t smallmap; + binmap_t treemap; + size_t dvsize; + size_t topsize; + mchunkptr dv; + mchunkptr top; + size_t trim_check; + size_t release_checks; + mchunkptr smallbins[(NSMALLBINS+1)*2]; + tbinptr treebins[NTREEBINS]; + msegment seg; +}; + +typedef struct malloc_state *mstate; + +#define is_initialized(M) ((M)->top != 0) + +/* -------------------------- system alloc setup ------------------------- */ + +/* page-align a size */ +#define page_align(S)\ + (((S) + (LJ_PAGESIZE - SIZE_T_ONE)) & ~(LJ_PAGESIZE - SIZE_T_ONE)) + +/* granularity-align a size */ +#define granularity_align(S)\ + (((S) + (DEFAULT_GRANULARITY - SIZE_T_ONE))\ + & ~(DEFAULT_GRANULARITY - SIZE_T_ONE)) + +#if LJ_TARGET_WINDOWS +#define mmap_align(S) granularity_align(S) +#else +#define mmap_align(S) page_align(S) +#endif + +/* True if segment S holds address A */ +#define segment_holds(S, A)\ + ((char *)(A) >= S->base && (char *)(A) < S->base + S->size) + +/* Return segment holding given address */ +static msegmentptr segment_holding(mstate m, char *addr) +{ + msegmentptr sp = &m->seg; + for (;;) { + if (addr >= sp->base && addr < sp->base + sp->size) + return sp; + if ((sp = sp->next) == 0) + return 0; + } +} + +/* Return true if segment contains a segment link */ +static int has_segment_link(mstate m, msegmentptr ss) +{ + msegmentptr sp = &m->seg; + for (;;) { + if ((char *)sp >= ss->base && (char *)sp < ss->base + ss->size) + return 1; + if ((sp = sp->next) == 0) + return 0; + } +} + +/* + TOP_FOOT_SIZE is padding at the end of a segment, including space + that may be needed to place segment records and fenceposts when new + noncontiguous segments are added. +*/ +#define TOP_FOOT_SIZE\ + (align_offset(chunk2mem(0))+pad_request(sizeof(struct malloc_segment))+MIN_CHUNK_SIZE) + +/* ---------------------------- Indexing Bins ---------------------------- */ + +#define is_small(s) (((s) >> SMALLBIN_SHIFT) < NSMALLBINS) +#define small_index(s) ((s) >> SMALLBIN_SHIFT) +#define small_index2size(i) ((i) << SMALLBIN_SHIFT) +#define MIN_SMALL_INDEX (small_index(MIN_CHUNK_SIZE)) + +/* addressing by index. See above about smallbin repositioning */ +#define smallbin_at(M, i) ((sbinptr)((char *)&((M)->smallbins[(i)<<1]))) +#define treebin_at(M,i) (&((M)->treebins[i])) + +/* assign tree index for size S to variable I */ +#define compute_tree_index(S, I)\ +{\ + unsigned int X = (unsigned int)(S >> TREEBIN_SHIFT);\ + if (X == 0) {\ + I = 0;\ + } else if (X > 0xFFFF) {\ + I = NTREEBINS-1;\ + } else {\ + unsigned int K = lj_fls(X);\ + I = (bindex_t)((K << 1) + ((S >> (K + (TREEBIN_SHIFT-1)) & 1)));\ + }\ +} + +/* Bit representing maximum resolved size in a treebin at i */ +#define bit_for_tree_index(i) \ + (i == NTREEBINS-1)? (SIZE_T_BITSIZE-1) : (((i) >> 1) + TREEBIN_SHIFT - 2) + +/* Shift placing maximum resolved bit in a treebin at i as sign bit */ +#define leftshift_for_tree_index(i) \ + ((i == NTREEBINS-1)? 0 : \ + ((SIZE_T_BITSIZE-SIZE_T_ONE) - (((i) >> 1) + TREEBIN_SHIFT - 2))) + +/* The size of the smallest chunk held in bin with index i */ +#define minsize_for_tree_index(i) \ + ((SIZE_T_ONE << (((i) >> 1) + TREEBIN_SHIFT)) | \ + (((size_t)((i) & SIZE_T_ONE)) << (((i) >> 1) + TREEBIN_SHIFT - 1))) + +/* ------------------------ Operations on bin maps ----------------------- */ + +/* bit corresponding to given index */ +#define idx2bit(i) ((binmap_t)(1) << (i)) + +/* Mark/Clear bits with given index */ +#define mark_smallmap(M,i) ((M)->smallmap |= idx2bit(i)) +#define clear_smallmap(M,i) ((M)->smallmap &= ~idx2bit(i)) +#define smallmap_is_marked(M,i) ((M)->smallmap & idx2bit(i)) + +#define mark_treemap(M,i) ((M)->treemap |= idx2bit(i)) +#define clear_treemap(M,i) ((M)->treemap &= ~idx2bit(i)) +#define treemap_is_marked(M,i) ((M)->treemap & idx2bit(i)) + +/* mask with all bits to left of least bit of x on */ +#define left_bits(x) ((x<<1) | (~(x<<1)+1)) + +/* Set cinuse bit and pinuse bit of next chunk */ +#define set_inuse(M,p,s)\ + ((p)->head = (((p)->head & PINUSE_BIT)|s|CINUSE_BIT),\ + ((mchunkptr)(((char *)(p)) + (s)))->head |= PINUSE_BIT) + +/* Set cinuse and pinuse of this chunk and pinuse of next chunk */ +#define set_inuse_and_pinuse(M,p,s)\ + ((p)->head = (s|PINUSE_BIT|CINUSE_BIT),\ + ((mchunkptr)(((char *)(p)) + (s)))->head |= PINUSE_BIT) + +/* Set size, cinuse and pinuse bit of this chunk */ +#define set_size_and_pinuse_of_inuse_chunk(M, p, s)\ + ((p)->head = (s|PINUSE_BIT|CINUSE_BIT)) + +/* ----------------------- Operations on smallbins ----------------------- */ + +/* Link a free chunk into a smallbin */ +#define insert_small_chunk(M, P, S) {\ + bindex_t I = small_index(S);\ + mchunkptr B = smallbin_at(M, I);\ + mchunkptr F = B;\ + if (!smallmap_is_marked(M, I))\ + mark_smallmap(M, I);\ + else\ + F = B->fd;\ + B->fd = P;\ + F->bk = P;\ + P->fd = F;\ + P->bk = B;\ +} + +/* Unlink a chunk from a smallbin */ +#define unlink_small_chunk(M, P, S) {\ + mchunkptr F = P->fd;\ + mchunkptr B = P->bk;\ + bindex_t I = small_index(S);\ + if (F == B) {\ + clear_smallmap(M, I);\ + } else {\ + F->bk = B;\ + B->fd = F;\ + }\ +} + +/* Unlink the first chunk from a smallbin */ +#define unlink_first_small_chunk(M, B, P, I) {\ + mchunkptr F = P->fd;\ + if (B == F) {\ + clear_smallmap(M, I);\ + } else {\ + B->fd = F;\ + F->bk = B;\ + }\ +} + +/* Replace dv node, binning the old one */ +/* Used only when dvsize known to be small */ +#define replace_dv(M, P, S) {\ + size_t DVS = M->dvsize;\ + if (DVS != 0) {\ + mchunkptr DV = M->dv;\ + insert_small_chunk(M, DV, DVS);\ + }\ + M->dvsize = S;\ + M->dv = P;\ +} + +/* ------------------------- Operations on trees ------------------------- */ + +/* Insert chunk into tree */ +#define insert_large_chunk(M, X, S) {\ + tbinptr *H;\ + bindex_t I;\ + compute_tree_index(S, I);\ + H = treebin_at(M, I);\ + X->index = I;\ + X->child[0] = X->child[1] = 0;\ + if (!treemap_is_marked(M, I)) {\ + mark_treemap(M, I);\ + *H = X;\ + X->parent = (tchunkptr)H;\ + X->fd = X->bk = X;\ + } else {\ + tchunkptr T = *H;\ + size_t K = S << leftshift_for_tree_index(I);\ + for (;;) {\ + if (chunksize(T) != S) {\ + tchunkptr *C = &(T->child[(K >> (SIZE_T_BITSIZE-SIZE_T_ONE)) & 1]);\ + K <<= 1;\ + if (*C != 0) {\ + T = *C;\ + } else {\ + *C = X;\ + X->parent = T;\ + X->fd = X->bk = X;\ + break;\ + }\ + } else {\ + tchunkptr F = T->fd;\ + T->fd = F->bk = X;\ + X->fd = F;\ + X->bk = T;\ + X->parent = 0;\ + break;\ + }\ + }\ + }\ +} + +#define unlink_large_chunk(M, X) {\ + tchunkptr XP = X->parent;\ + tchunkptr R;\ + if (X->bk != X) {\ + tchunkptr F = X->fd;\ + R = X->bk;\ + F->bk = R;\ + R->fd = F;\ + } else {\ + tchunkptr *RP;\ + if (((R = *(RP = &(X->child[1]))) != 0) ||\ + ((R = *(RP = &(X->child[0]))) != 0)) {\ + tchunkptr *CP;\ + while ((*(CP = &(R->child[1])) != 0) ||\ + (*(CP = &(R->child[0])) != 0)) {\ + R = *(RP = CP);\ + }\ + *RP = 0;\ + }\ + }\ + if (XP != 0) {\ + tbinptr *H = treebin_at(M, X->index);\ + if (X == *H) {\ + if ((*H = R) == 0) \ + clear_treemap(M, X->index);\ + } else {\ + if (XP->child[0] == X) \ + XP->child[0] = R;\ + else \ + XP->child[1] = R;\ + }\ + if (R != 0) {\ + tchunkptr C0, C1;\ + R->parent = XP;\ + if ((C0 = X->child[0]) != 0) {\ + R->child[0] = C0;\ + C0->parent = R;\ + }\ + if ((C1 = X->child[1]) != 0) {\ + R->child[1] = C1;\ + C1->parent = R;\ + }\ + }\ + }\ +} + +/* Relays to large vs small bin operations */ + +#define insert_chunk(M, P, S)\ + if (is_small(S)) { insert_small_chunk(M, P, S)\ + } else { tchunkptr TP = (tchunkptr)(P); insert_large_chunk(M, TP, S); } + +#define unlink_chunk(M, P, S)\ + if (is_small(S)) { unlink_small_chunk(M, P, S)\ + } else { tchunkptr TP = (tchunkptr)(P); unlink_large_chunk(M, TP); } + +/* ----------------------- Direct-mmapping chunks ----------------------- */ + +static void *direct_alloc(size_t nb) +{ + size_t mmsize = mmap_align(nb + SIX_SIZE_T_SIZES + CHUNK_ALIGN_MASK); + if (LJ_LIKELY(mmsize > nb)) { /* Check for wrap around 0 */ + char *mm = (char *)(DIRECT_MMAP(mmsize)); + if (mm != CMFAIL) { + size_t offset = align_offset(chunk2mem(mm)); + size_t psize = mmsize - offset - DIRECT_FOOT_PAD; + mchunkptr p = (mchunkptr)(mm + offset); + p->prev_foot = offset | IS_DIRECT_BIT; + p->head = psize|CINUSE_BIT; + chunk_plus_offset(p, psize)->head = FENCEPOST_HEAD; + chunk_plus_offset(p, psize+SIZE_T_SIZE)->head = 0; + return chunk2mem(p); + } + } + return NULL; +} + +static mchunkptr direct_resize(mchunkptr oldp, size_t nb) +{ + size_t oldsize = chunksize(oldp); + if (is_small(nb)) /* Can't shrink direct regions below small size */ + return NULL; + /* Keep old chunk if big enough but not too big */ + if (oldsize >= nb + SIZE_T_SIZE && + (oldsize - nb) <= (DEFAULT_GRANULARITY >> 1)) { + return oldp; + } else { + size_t offset = oldp->prev_foot & ~IS_DIRECT_BIT; + size_t oldmmsize = oldsize + offset + DIRECT_FOOT_PAD; + size_t newmmsize = mmap_align(nb + SIX_SIZE_T_SIZES + CHUNK_ALIGN_MASK); + char *cp = (char *)CALL_MREMAP((char *)oldp - offset, + oldmmsize, newmmsize, CALL_MREMAP_MV); + if (cp != CMFAIL) { + mchunkptr newp = (mchunkptr)(cp + offset); + size_t psize = newmmsize - offset - DIRECT_FOOT_PAD; + newp->head = psize|CINUSE_BIT; + chunk_plus_offset(newp, psize)->head = FENCEPOST_HEAD; + chunk_plus_offset(newp, psize+SIZE_T_SIZE)->head = 0; + return newp; + } + } + return NULL; +} + +/* -------------------------- mspace management -------------------------- */ + +/* Initialize top chunk and its size */ +static void init_top(mstate m, mchunkptr p, size_t psize) +{ + /* Ensure alignment */ + size_t offset = align_offset(chunk2mem(p)); + p = (mchunkptr)((char *)p + offset); + psize -= offset; + + m->top = p; + m->topsize = psize; + p->head = psize | PINUSE_BIT; + /* set size of fake trailing chunk holding overhead space only once */ + chunk_plus_offset(p, psize)->head = TOP_FOOT_SIZE; + m->trim_check = DEFAULT_TRIM_THRESHOLD; /* reset on each update */ +} + +/* Initialize bins for a new mstate that is otherwise zeroed out */ +static void init_bins(mstate m) +{ + /* Establish circular links for smallbins */ + bindex_t i; + for (i = 0; i < NSMALLBINS; i++) { + sbinptr bin = smallbin_at(m,i); + bin->fd = bin->bk = bin; + } +} + +/* Allocate chunk and prepend remainder with chunk in successor base. */ +static void *prepend_alloc(mstate m, char *newbase, char *oldbase, size_t nb) +{ + mchunkptr p = align_as_chunk(newbase); + mchunkptr oldfirst = align_as_chunk(oldbase); + size_t psize = (size_t)((char *)oldfirst - (char *)p); + mchunkptr q = chunk_plus_offset(p, nb); + size_t qsize = psize - nb; + set_size_and_pinuse_of_inuse_chunk(m, p, nb); + + /* consolidate remainder with first chunk of old base */ + if (oldfirst == m->top) { + size_t tsize = m->topsize += qsize; + m->top = q; + q->head = tsize | PINUSE_BIT; + } else if (oldfirst == m->dv) { + size_t dsize = m->dvsize += qsize; + m->dv = q; + set_size_and_pinuse_of_free_chunk(q, dsize); + } else { + if (!cinuse(oldfirst)) { + size_t nsize = chunksize(oldfirst); + unlink_chunk(m, oldfirst, nsize); + oldfirst = chunk_plus_offset(oldfirst, nsize); + qsize += nsize; + } + set_free_with_pinuse(q, qsize, oldfirst); + insert_chunk(m, q, qsize); + } + + return chunk2mem(p); +} + +/* Add a segment to hold a new noncontiguous region */ +static void add_segment(mstate m, char *tbase, size_t tsize) +{ + /* Determine locations and sizes of segment, fenceposts, old top */ + char *old_top = (char *)m->top; + msegmentptr oldsp = segment_holding(m, old_top); + char *old_end = oldsp->base + oldsp->size; + size_t ssize = pad_request(sizeof(struct malloc_segment)); + char *rawsp = old_end - (ssize + FOUR_SIZE_T_SIZES + CHUNK_ALIGN_MASK); + size_t offset = align_offset(chunk2mem(rawsp)); + char *asp = rawsp + offset; + char *csp = (asp < (old_top + MIN_CHUNK_SIZE))? old_top : asp; + mchunkptr sp = (mchunkptr)csp; + msegmentptr ss = (msegmentptr)(chunk2mem(sp)); + mchunkptr tnext = chunk_plus_offset(sp, ssize); + mchunkptr p = tnext; + + /* reset top to new space */ + init_top(m, (mchunkptr)tbase, tsize - TOP_FOOT_SIZE); + + /* Set up segment record */ + set_size_and_pinuse_of_inuse_chunk(m, sp, ssize); + *ss = m->seg; /* Push current record */ + m->seg.base = tbase; + m->seg.size = tsize; + m->seg.next = ss; + + /* Insert trailing fenceposts */ + for (;;) { + mchunkptr nextp = chunk_plus_offset(p, SIZE_T_SIZE); + p->head = FENCEPOST_HEAD; + if ((char *)(&(nextp->head)) < old_end) + p = nextp; + else + break; + } + + /* Insert the rest of old top into a bin as an ordinary free chunk */ + if (csp != old_top) { + mchunkptr q = (mchunkptr)old_top; + size_t psize = (size_t)(csp - old_top); + mchunkptr tn = chunk_plus_offset(q, psize); + set_free_with_pinuse(q, psize, tn); + insert_chunk(m, q, psize); + } +} + +/* -------------------------- System allocation -------------------------- */ + +static void *alloc_sys(mstate m, size_t nb) +{ + char *tbase = CMFAIL; + size_t tsize = 0; + + /* Directly map large chunks */ + if (LJ_UNLIKELY(nb >= DEFAULT_MMAP_THRESHOLD)) { + void *mem = direct_alloc(nb); + if (mem != 0) + return mem; + } + + { + size_t req = nb + TOP_FOOT_SIZE + SIZE_T_ONE; + size_t rsize = granularity_align(req); + if (LJ_LIKELY(rsize > nb)) { /* Fail if wraps around zero */ + char *mp = (char *)(CALL_MMAP(rsize)); + if (mp != CMFAIL) { + tbase = mp; + tsize = rsize; + } + } + } + + if (tbase != CMFAIL) { + msegmentptr sp = &m->seg; + /* Try to merge with an existing segment */ + while (sp != 0 && tbase != sp->base + sp->size) + sp = sp->next; + if (sp != 0 && segment_holds(sp, m->top)) { /* append */ + sp->size += tsize; + init_top(m, m->top, m->topsize + tsize); + } else { + sp = &m->seg; + while (sp != 0 && sp->base != tbase + tsize) + sp = sp->next; + if (sp != 0) { + char *oldbase = sp->base; + sp->base = tbase; + sp->size += tsize; + return prepend_alloc(m, tbase, oldbase, nb); + } else { + add_segment(m, tbase, tsize); + } + } + + if (nb < m->topsize) { /* Allocate from new or extended top space */ + size_t rsize = m->topsize -= nb; + mchunkptr p = m->top; + mchunkptr r = m->top = chunk_plus_offset(p, nb); + r->head = rsize | PINUSE_BIT; + set_size_and_pinuse_of_inuse_chunk(m, p, nb); + return chunk2mem(p); + } + } + + return NULL; +} + +/* ----------------------- system deallocation -------------------------- */ + +/* Unmap and unlink any mmapped segments that don't contain used chunks */ +static size_t release_unused_segments(mstate m) +{ + size_t released = 0; + size_t nsegs = 0; + msegmentptr pred = &m->seg; + msegmentptr sp = pred->next; + while (sp != 0) { + char *base = sp->base; + size_t size = sp->size; + msegmentptr next = sp->next; + nsegs++; + { + mchunkptr p = align_as_chunk(base); + size_t psize = chunksize(p); + /* Can unmap if first chunk holds entire segment and not pinned */ + if (!cinuse(p) && (char *)p + psize >= base + size - TOP_FOOT_SIZE) { + tchunkptr tp = (tchunkptr)p; + if (p == m->dv) { + m->dv = 0; + m->dvsize = 0; + } else { + unlink_large_chunk(m, tp); + } + if (CALL_MUNMAP(base, size) == 0) { + released += size; + /* unlink obsoleted record */ + sp = pred; + sp->next = next; + } else { /* back out if cannot unmap */ + insert_large_chunk(m, tp, psize); + } + } + } + pred = sp; + sp = next; + } + /* Reset check counter */ + m->release_checks = nsegs > MAX_RELEASE_CHECK_RATE ? + nsegs : MAX_RELEASE_CHECK_RATE; + return released; +} + +static int alloc_trim(mstate m, size_t pad) +{ + size_t released = 0; + if (pad < MAX_REQUEST && is_initialized(m)) { + pad += TOP_FOOT_SIZE; /* ensure enough room for segment overhead */ + + if (m->topsize > pad) { + /* Shrink top space in granularity-size units, keeping at least one */ + size_t unit = DEFAULT_GRANULARITY; + size_t extra = ((m->topsize - pad + (unit - SIZE_T_ONE)) / unit - + SIZE_T_ONE) * unit; + msegmentptr sp = segment_holding(m, (char *)m->top); + + if (sp->size >= extra && + !has_segment_link(m, sp)) { /* can't shrink if pinned */ + size_t newsize = sp->size - extra; + /* Prefer mremap, fall back to munmap */ + if ((CALL_MREMAP(sp->base, sp->size, newsize, CALL_MREMAP_NOMOVE) != MFAIL) || + (CALL_MUNMAP(sp->base + newsize, extra) == 0)) { + released = extra; + } + } + + if (released != 0) { + sp->size -= released; + init_top(m, m->top, m->topsize - released); + } + } + + /* Unmap any unused mmapped segments */ + released += release_unused_segments(m); + + /* On failure, disable autotrim to avoid repeated failed future calls */ + if (released == 0 && m->topsize > m->trim_check) + m->trim_check = MAX_SIZE_T; + } + + return (released != 0)? 1 : 0; +} + +/* ---------------------------- malloc support --------------------------- */ + +/* allocate a large request from the best fitting chunk in a treebin */ +static void *tmalloc_large(mstate m, size_t nb) +{ + tchunkptr v = 0; + size_t rsize = ~nb+1; /* Unsigned negation */ + tchunkptr t; + bindex_t idx; + compute_tree_index(nb, idx); + + if ((t = *treebin_at(m, idx)) != 0) { + /* Traverse tree for this bin looking for node with size == nb */ + size_t sizebits = nb << leftshift_for_tree_index(idx); + tchunkptr rst = 0; /* The deepest untaken right subtree */ + for (;;) { + tchunkptr rt; + size_t trem = chunksize(t) - nb; + if (trem < rsize) { + v = t; + if ((rsize = trem) == 0) + break; + } + rt = t->child[1]; + t = t->child[(sizebits >> (SIZE_T_BITSIZE-SIZE_T_ONE)) & 1]; + if (rt != 0 && rt != t) + rst = rt; + if (t == 0) { + t = rst; /* set t to least subtree holding sizes > nb */ + break; + } + sizebits <<= 1; + } + } + + if (t == 0 && v == 0) { /* set t to root of next non-empty treebin */ + binmap_t leftbits = left_bits(idx2bit(idx)) & m->treemap; + if (leftbits != 0) + t = *treebin_at(m, lj_ffs(leftbits)); + } + + while (t != 0) { /* find smallest of tree or subtree */ + size_t trem = chunksize(t) - nb; + if (trem < rsize) { + rsize = trem; + v = t; + } + t = leftmost_child(t); + } + + /* If dv is a better fit, return NULL so malloc will use it */ + if (v != 0 && rsize < (size_t)(m->dvsize - nb)) { + mchunkptr r = chunk_plus_offset(v, nb); + unlink_large_chunk(m, v); + if (rsize < MIN_CHUNK_SIZE) { + set_inuse_and_pinuse(m, v, (rsize + nb)); + } else { + set_size_and_pinuse_of_inuse_chunk(m, v, nb); + set_size_and_pinuse_of_free_chunk(r, rsize); + insert_chunk(m, r, rsize); + } + return chunk2mem(v); + } + return NULL; +} + +/* allocate a small request from the best fitting chunk in a treebin */ +static void *tmalloc_small(mstate m, size_t nb) +{ + tchunkptr t, v; + mchunkptr r; + size_t rsize; + bindex_t i = lj_ffs(m->treemap); + + v = t = *treebin_at(m, i); + rsize = chunksize(t) - nb; + + while ((t = leftmost_child(t)) != 0) { + size_t trem = chunksize(t) - nb; + if (trem < rsize) { + rsize = trem; + v = t; + } + } + + r = chunk_plus_offset(v, nb); + unlink_large_chunk(m, v); + if (rsize < MIN_CHUNK_SIZE) { + set_inuse_and_pinuse(m, v, (rsize + nb)); + } else { + set_size_and_pinuse_of_inuse_chunk(m, v, nb); + set_size_and_pinuse_of_free_chunk(r, rsize); + replace_dv(m, r, rsize); + } + return chunk2mem(v); +} + +/* ----------------------------------------------------------------------- */ + +void *lj_alloc_create(void) +{ + size_t tsize = DEFAULT_GRANULARITY; + char *tbase; + INIT_MMAP(); + tbase = (char *)(CALL_MMAP(tsize)); + if (tbase != CMFAIL) { + size_t msize = pad_request(sizeof(struct malloc_state)); + mchunkptr mn; + mchunkptr msp = align_as_chunk(tbase); + mstate m = (mstate)(chunk2mem(msp)); + memset(m, 0, msize); + msp->head = (msize|PINUSE_BIT|CINUSE_BIT); + m->seg.base = tbase; + m->seg.size = tsize; + m->release_checks = MAX_RELEASE_CHECK_RATE; + init_bins(m); + mn = next_chunk(mem2chunk(m)); + init_top(m, mn, (size_t)((tbase + tsize) - (char *)mn) - TOP_FOOT_SIZE); + return m; + } + return NULL; +} + +void lj_alloc_destroy(void *msp) +{ + mstate ms = (mstate)msp; + msegmentptr sp = &ms->seg; + while (sp != 0) { + char *base = sp->base; + size_t size = sp->size; + sp = sp->next; + CALL_MUNMAP(base, size); + } +} + +static LJ_NOINLINE void *lj_alloc_malloc(void *msp, size_t nsize) +{ + mstate ms = (mstate)msp; + void *mem; + size_t nb; + if (nsize <= MAX_SMALL_REQUEST) { + bindex_t idx; + binmap_t smallbits; + nb = (nsize < MIN_REQUEST)? MIN_CHUNK_SIZE : pad_request(nsize); + idx = small_index(nb); + smallbits = ms->smallmap >> idx; + + if ((smallbits & 0x3U) != 0) { /* Remainderless fit to a smallbin. */ + mchunkptr b, p; + idx += ~smallbits & 1; /* Uses next bin if idx empty */ + b = smallbin_at(ms, idx); + p = b->fd; + unlink_first_small_chunk(ms, b, p, idx); + set_inuse_and_pinuse(ms, p, small_index2size(idx)); + mem = chunk2mem(p); + return mem; + } else if (nb > ms->dvsize) { + if (smallbits != 0) { /* Use chunk in next nonempty smallbin */ + mchunkptr b, p, r; + size_t rsize; + binmap_t leftbits = (smallbits << idx) & left_bits(idx2bit(idx)); + bindex_t i = lj_ffs(leftbits); + b = smallbin_at(ms, i); + p = b->fd; + unlink_first_small_chunk(ms, b, p, i); + rsize = small_index2size(i) - nb; + /* Fit here cannot be remainderless if 4byte sizes */ + if (SIZE_T_SIZE != 4 && rsize < MIN_CHUNK_SIZE) { + set_inuse_and_pinuse(ms, p, small_index2size(i)); + } else { + set_size_and_pinuse_of_inuse_chunk(ms, p, nb); + r = chunk_plus_offset(p, nb); + set_size_and_pinuse_of_free_chunk(r, rsize); + replace_dv(ms, r, rsize); + } + mem = chunk2mem(p); + return mem; + } else if (ms->treemap != 0 && (mem = tmalloc_small(ms, nb)) != 0) { + return mem; + } + } + } else if (nsize >= MAX_REQUEST) { + nb = MAX_SIZE_T; /* Too big to allocate. Force failure (in sys alloc) */ + } else { + nb = pad_request(nsize); + if (ms->treemap != 0 && (mem = tmalloc_large(ms, nb)) != 0) { + return mem; + } + } + + if (nb <= ms->dvsize) { + size_t rsize = ms->dvsize - nb; + mchunkptr p = ms->dv; + if (rsize >= MIN_CHUNK_SIZE) { /* split dv */ + mchunkptr r = ms->dv = chunk_plus_offset(p, nb); + ms->dvsize = rsize; + set_size_and_pinuse_of_free_chunk(r, rsize); + set_size_and_pinuse_of_inuse_chunk(ms, p, nb); + } else { /* exhaust dv */ + size_t dvs = ms->dvsize; + ms->dvsize = 0; + ms->dv = 0; + set_inuse_and_pinuse(ms, p, dvs); + } + mem = chunk2mem(p); + return mem; + } else if (nb < ms->topsize) { /* Split top */ + size_t rsize = ms->topsize -= nb; + mchunkptr p = ms->top; + mchunkptr r = ms->top = chunk_plus_offset(p, nb); + r->head = rsize | PINUSE_BIT; + set_size_and_pinuse_of_inuse_chunk(ms, p, nb); + mem = chunk2mem(p); + return mem; + } + return alloc_sys(ms, nb); +} + +static LJ_NOINLINE void *lj_alloc_free(void *msp, void *ptr) +{ + if (ptr != 0) { + mchunkptr p = mem2chunk(ptr); + mstate fm = (mstate)msp; + size_t psize = chunksize(p); + mchunkptr next = chunk_plus_offset(p, psize); + if (!pinuse(p)) { + size_t prevsize = p->prev_foot; + if ((prevsize & IS_DIRECT_BIT) != 0) { + prevsize &= ~IS_DIRECT_BIT; + psize += prevsize + DIRECT_FOOT_PAD; + CALL_MUNMAP((char *)p - prevsize, psize); + return NULL; + } else { + mchunkptr prev = chunk_minus_offset(p, prevsize); + psize += prevsize; + p = prev; + /* consolidate backward */ + if (p != fm->dv) { + unlink_chunk(fm, p, prevsize); + } else if ((next->head & INUSE_BITS) == INUSE_BITS) { + fm->dvsize = psize; + set_free_with_pinuse(p, psize, next); + return NULL; + } + } + } + if (!cinuse(next)) { /* consolidate forward */ + if (next == fm->top) { + size_t tsize = fm->topsize += psize; + fm->top = p; + p->head = tsize | PINUSE_BIT; + if (p == fm->dv) { + fm->dv = 0; + fm->dvsize = 0; + } + if (tsize > fm->trim_check) + alloc_trim(fm, 0); + return NULL; + } else if (next == fm->dv) { + size_t dsize = fm->dvsize += psize; + fm->dv = p; + set_size_and_pinuse_of_free_chunk(p, dsize); + return NULL; + } else { + size_t nsize = chunksize(next); + psize += nsize; + unlink_chunk(fm, next, nsize); + set_size_and_pinuse_of_free_chunk(p, psize); + if (p == fm->dv) { + fm->dvsize = psize; + return NULL; + } + } + } else { + set_free_with_pinuse(p, psize, next); + } + + if (is_small(psize)) { + insert_small_chunk(fm, p, psize); + } else { + tchunkptr tp = (tchunkptr)p; + insert_large_chunk(fm, tp, psize); + if (--fm->release_checks == 0) + release_unused_segments(fm); + } + } + return NULL; +} + +static LJ_NOINLINE void *lj_alloc_realloc(void *msp, void *ptr, size_t nsize) +{ + if (nsize >= MAX_REQUEST) { + return NULL; + } else { + mstate m = (mstate)msp; + mchunkptr oldp = mem2chunk(ptr); + size_t oldsize = chunksize(oldp); + mchunkptr next = chunk_plus_offset(oldp, oldsize); + mchunkptr newp = 0; + size_t nb = request2size(nsize); + + /* Try to either shrink or extend into top. Else malloc-copy-free */ + if (is_direct(oldp)) { + newp = direct_resize(oldp, nb); /* this may return NULL. */ + } else if (oldsize >= nb) { /* already big enough */ + size_t rsize = oldsize - nb; + newp = oldp; + if (rsize >= MIN_CHUNK_SIZE) { + mchunkptr rem = chunk_plus_offset(newp, nb); + set_inuse(m, newp, nb); + set_inuse(m, rem, rsize); + lj_alloc_free(m, chunk2mem(rem)); + } + } else if (next == m->top && oldsize + m->topsize > nb) { + /* Expand into top */ + size_t newsize = oldsize + m->topsize; + size_t newtopsize = newsize - nb; + mchunkptr newtop = chunk_plus_offset(oldp, nb); + set_inuse(m, oldp, nb); + newtop->head = newtopsize |PINUSE_BIT; + m->top = newtop; + m->topsize = newtopsize; + newp = oldp; + } + + if (newp != 0) { + return chunk2mem(newp); + } else { + void *newmem = lj_alloc_malloc(m, nsize); + if (newmem != 0) { + size_t oc = oldsize - overhead_for(oldp); + memcpy(newmem, ptr, oc < nsize ? oc : nsize); + lj_alloc_free(m, ptr); + } + return newmem; + } + } +} + +void *lj_alloc_f(void *msp, void *ptr, size_t osize, size_t nsize) +{ + (void)osize; + if (nsize == 0) { + return lj_alloc_free(msp, ptr); + } else if (ptr == NULL) { + return lj_alloc_malloc(msp, nsize); + } else { + return lj_alloc_realloc(msp, ptr, nsize); + } +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_alloc.h b/src/3rd party/luajit-2.0/src/lj_alloc.h new file mode 100644 index 00000000000..f87a7cf3422 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_alloc.h @@ -0,0 +1,17 @@ +/* +** Bundled memory allocator. +** Donated to the public domain. +*/ + +#ifndef _LJ_ALLOC_H +#define _LJ_ALLOC_H + +#include "lj_def.h" + +#ifndef LUAJIT_USE_SYSMALLOC +LJ_FUNC void *lj_alloc_create(void); +LJ_FUNC void lj_alloc_destroy(void *msp); +LJ_FUNC void *lj_alloc_f(void *msp, void *ptr, size_t osize, size_t nsize); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_api.c b/src/3rd party/luajit-2.0/src/lj_api.c new file mode 100644 index 00000000000..3bedb39fd70 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_api.c @@ -0,0 +1,1200 @@ +/* +** Public Lua/C API. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_api_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_func.h" +#include "lj_udata.h" +#include "lj_meta.h" +#include "lj_state.h" +#include "lj_bc.h" +#include "lj_frame.h" +#include "lj_trace.h" +#include "lj_vm.h" +#include "lj_strscan.h" + +/* -- Common helper functions --------------------------------------------- */ + +#define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->base)) +#define api_checkvalidindex(L, i) api_check(L, (i) != niltv(L)) + +static TValue *index2adr(lua_State *L, int idx) +{ + if (idx > 0) { + TValue *o = L->base + (idx - 1); + return o < L->top ? o : niltv(L); + } else if (idx > LUA_REGISTRYINDEX) { + api_check(L, idx != 0 && -idx <= L->top - L->base); + return L->top + idx; + } else if (idx == LUA_GLOBALSINDEX) { + TValue *o = &G(L)->tmptv; + settabV(L, o, tabref(L->env)); + return o; + } else if (idx == LUA_REGISTRYINDEX) { + return registry(L); + } else { + GCfunc *fn = curr_func(L); + api_check(L, fn->c.gct == ~LJ_TFUNC && !isluafunc(fn)); + if (idx == LUA_ENVIRONINDEX) { + TValue *o = &G(L)->tmptv; + settabV(L, o, tabref(fn->c.env)); + return o; + } else { + idx = LUA_GLOBALSINDEX - idx; + return idx <= fn->c.nupvalues ? &fn->c.upvalue[idx-1] : niltv(L); + } + } +} + +static TValue *stkindex2adr(lua_State *L, int idx) +{ + if (idx > 0) { + TValue *o = L->base + (idx - 1); + return o < L->top ? o : niltv(L); + } else { + api_check(L, idx != 0 && -idx <= L->top - L->base); + return L->top + idx; + } +} + +static GCtab *getcurrenv(lua_State *L) +{ + GCfunc *fn = curr_func(L); + return fn->c.gct == ~LJ_TFUNC ? tabref(fn->c.env) : tabref(L->env); +} + +/* -- Miscellaneous API functions ----------------------------------------- */ + +LUA_API int lua_status(lua_State *L) +{ + return L->status; +} + +LUA_API int lua_checkstack(lua_State *L, int size) +{ + if (size > LUAI_MAXCSTACK || (L->top - L->base + size) > LUAI_MAXCSTACK) { + return 0; /* Stack overflow. */ + } else if (size > 0) { + lj_state_checkstack(L, (MSize)size); + } + return 1; +} + +LUALIB_API void luaL_checkstack(lua_State *L, int size, const char *msg) +{ + if (!lua_checkstack(L, size)) + lj_err_callerv(L, LJ_ERR_STKOVM, msg); +} + +LUA_API void lua_xmove(lua_State *from, lua_State *to, int n) +{ + TValue *f, *t; + if (from == to) return; + api_checknelems(from, n); + api_check(from, G(from) == G(to)); + lj_state_checkstack(to, (MSize)n); + f = from->top; + t = to->top = to->top + n; + while (--n >= 0) copyTV(to, --t, --f); + from->top = f; +} + +/* -- Stack manipulation -------------------------------------------------- */ + +LUA_API int lua_gettop(lua_State *L) +{ + return (int)(L->top - L->base); +} + +LUA_API void lua_settop(lua_State *L, int idx) +{ + if (idx >= 0) { + api_check(L, idx <= tvref(L->maxstack) - L->base); + if (L->base + idx > L->top) { + if (L->base + idx >= tvref(L->maxstack)) + lj_state_growstack(L, (MSize)idx - (MSize)(L->top - L->base)); + do { setnilV(L->top++); } while (L->top < L->base + idx); + } else { + L->top = L->base + idx; + } + } else { + api_check(L, -(idx+1) <= (L->top - L->base)); + L->top += idx+1; /* Shrinks top (idx < 0). */ + } +} + +LUA_API void lua_remove(lua_State *L, int idx) +{ + TValue *p = stkindex2adr(L, idx); + api_checkvalidindex(L, p); + while (++p < L->top) copyTV(L, p-1, p); + L->top--; +} + +LUA_API void lua_insert(lua_State *L, int idx) +{ + TValue *q, *p = stkindex2adr(L, idx); + api_checkvalidindex(L, p); + for (q = L->top; q > p; q--) copyTV(L, q, q-1); + copyTV(L, p, L->top); +} + +LUA_API void lua_replace(lua_State *L, int idx) +{ + api_checknelems(L, 1); + if (idx == LUA_GLOBALSINDEX) { + api_check(L, tvistab(L->top-1)); + /* NOBARRIER: A thread (i.e. L) is never black. */ + setgcref(L->env, obj2gco(tabV(L->top-1))); + } else if (idx == LUA_ENVIRONINDEX) { + GCfunc *fn = curr_func(L); + if (fn->c.gct != ~LJ_TFUNC) + lj_err_msg(L, LJ_ERR_NOENV); + api_check(L, tvistab(L->top-1)); + setgcref(fn->c.env, obj2gco(tabV(L->top-1))); + lj_gc_barrier(L, fn, L->top-1); + } else { + TValue *o = index2adr(L, idx); + api_checkvalidindex(L, o); + copyTV(L, o, L->top-1); + if (idx < LUA_GLOBALSINDEX) /* Need a barrier for upvalues. */ + lj_gc_barrier(L, curr_func(L), L->top-1); + } + L->top--; +} + +LUA_API void lua_pushvalue(lua_State *L, int idx) +{ + copyTV(L, L->top, index2adr(L, idx)); + incr_top(L); +} + +/* -- Stack getters ------------------------------------------------------- */ + +LUA_API int lua_type(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + if (tvisnumber(o)) { + return LUA_TNUMBER; +#if LJ_64 + } else if (tvislightud(o)) { + return LUA_TLIGHTUSERDATA; +#endif + } else if (o == niltv(L)) { + return LUA_TNONE; + } else { /* Magic internal/external tag conversion. ORDER LJ_T */ + uint32_t t = ~itype(o); +#if LJ_64 + int tt = (int)((U64x(75a06,98042110) >> 4*t) & 15u); +#else + int tt = (int)(((t < 8 ? 0x98042110u : 0x75a06u) >> 4*(t&7)) & 15u); +#endif + lua_assert(tt != LUA_TNIL || tvisnil(o)); + return tt; + } +} + +LUALIB_API void luaL_checktype(lua_State *L, int idx, int tt) +{ + if (lua_type(L, idx) != tt) + lj_err_argt(L, idx, tt); +} + +LUALIB_API void luaL_checkany(lua_State *L, int idx) +{ + if (index2adr(L, idx) == niltv(L)) + lj_err_arg(L, idx, LJ_ERR_NOVAL); +} + +LUA_API const char *lua_typename(lua_State *L, int t) +{ + UNUSED(L); + return lj_obj_typename[t+1]; +} + +LUA_API int lua_iscfunction(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + return tvisfunc(o) && !isluafunc(funcV(o)); +} + +LUA_API int lua_isnumber(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + return (tvisnumber(o) || (tvisstr(o) && lj_strscan_number(strV(o), &tmp))); +} + +LUA_API int lua_isstring(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + return (tvisstr(o) || tvisnumber(o)); +} + +LUA_API int lua_isuserdata(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + return (tvisudata(o) || tvislightud(o)); +} + +LUA_API int lua_rawequal(lua_State *L, int idx1, int idx2) +{ + cTValue *o1 = index2adr(L, idx1); + cTValue *o2 = index2adr(L, idx2); + return (o1 == niltv(L) || o2 == niltv(L)) ? 0 : lj_obj_equal(o1, o2); +} + +LUA_API int lua_equal(lua_State *L, int idx1, int idx2) +{ + cTValue *o1 = index2adr(L, idx1); + cTValue *o2 = index2adr(L, idx2); + if (tvisint(o1) && tvisint(o2)) { + return intV(o1) == intV(o2); + } else if (tvisnumber(o1) && tvisnumber(o2)) { + return numberVnum(o1) == numberVnum(o2); + } else if (itype(o1) != itype(o2)) { + return 0; + } else if (tvispri(o1)) { + return o1 != niltv(L) && o2 != niltv(L); +#if LJ_64 + } else if (tvislightud(o1)) { + return o1->u64 == o2->u64; +#endif + } else if (gcrefeq(o1->gcr, o2->gcr)) { + return 1; + } else if (!tvistabud(o1)) { + return 0; + } else { + TValue *base = lj_meta_equal(L, gcV(o1), gcV(o2), 0); + if ((uintptr_t)base <= 1) { + return (int)(uintptr_t)base; + } else { + L->top = base+2; + lj_vm_call(L, base, 1+1); + L->top -= 2; + return tvistruecond(L->top+1); + } + } +} + +LUA_API int lua_lessthan(lua_State *L, int idx1, int idx2) +{ + cTValue *o1 = index2adr(L, idx1); + cTValue *o2 = index2adr(L, idx2); + if (o1 == niltv(L) || o2 == niltv(L)) { + return 0; + } else if (tvisint(o1) && tvisint(o2)) { + return intV(o1) < intV(o2); + } else if (tvisnumber(o1) && tvisnumber(o2)) { + return numberVnum(o1) < numberVnum(o2); + } else { + TValue *base = lj_meta_comp(L, o1, o2, 0); + if ((uintptr_t)base <= 1) { + return (int)(uintptr_t)base; + } else { + L->top = base+2; + lj_vm_call(L, base, 1+1); + L->top -= 2; + return tvistruecond(L->top+1); + } + } +} + +LUA_API lua_Number lua_tonumber(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + if (LJ_LIKELY(tvisnumber(o))) + return numberVnum(o); + else if (tvisstr(o) && lj_strscan_num(strV(o), &tmp)) + return numV(&tmp); + else + return 0; +} + +LUALIB_API lua_Number luaL_checknumber(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + if (LJ_LIKELY(tvisnumber(o))) + return numberVnum(o); + else if (!(tvisstr(o) && lj_strscan_num(strV(o), &tmp))) + lj_err_argt(L, idx, LUA_TNUMBER); + return numV(&tmp); +} + +LUALIB_API lua_Number luaL_optnumber(lua_State *L, int idx, lua_Number def) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + if (LJ_LIKELY(tvisnumber(o))) + return numberVnum(o); + else if (tvisnil(o)) + return def; + else if (!(tvisstr(o) && lj_strscan_num(strV(o), &tmp))) + lj_err_argt(L, idx, LUA_TNUMBER); + return numV(&tmp); +} + +LUA_API lua_Integer lua_tointeger(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + lua_Number n; + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else if (LJ_LIKELY(tvisnum(o))) { + n = numV(o); + } else { + if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) + return 0; + if (tvisint(&tmp)) + return (lua_Integer)intV(&tmp); + n = numV(&tmp); + } +#if LJ_64 + return (lua_Integer)n; +#else + return lj_num2int(n); +#endif +} + +LUALIB_API lua_Integer luaL_checkinteger(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + lua_Number n; + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else if (LJ_LIKELY(tvisnum(o))) { + n = numV(o); + } else { + if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) + lj_err_argt(L, idx, LUA_TNUMBER); + if (tvisint(&tmp)) + return (lua_Integer)intV(&tmp); + n = numV(&tmp); + } +#if LJ_64 + return (lua_Integer)n; +#else + return lj_num2int(n); +#endif +} + +LUALIB_API lua_Integer luaL_optinteger(lua_State *L, int idx, lua_Integer def) +{ + cTValue *o = index2adr(L, idx); + TValue tmp; + lua_Number n; + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else if (LJ_LIKELY(tvisnum(o))) { + n = numV(o); + } else if (tvisnil(o)) { + return def; + } else { + if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) + lj_err_argt(L, idx, LUA_TNUMBER); + if (tvisint(&tmp)) + return (lua_Integer)intV(&tmp); + n = numV(&tmp); + } +#if LJ_64 + return (lua_Integer)n; +#else + return lj_num2int(n); +#endif +} + +LUA_API int lua_toboolean(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + return tvistruecond(o); +} + +LUA_API const char *lua_tolstring(lua_State *L, int idx, size_t *len) +{ + TValue *o = index2adr(L, idx); + GCstr *s; + if (LJ_LIKELY(tvisstr(o))) { + s = strV(o); + } else if (tvisnumber(o)) { + lj_gc_check(L); + o = index2adr(L, idx); /* GC may move the stack. */ + s = lj_str_fromnumber(L, o); + setstrV(L, o, s); + } else { + if (len != NULL) *len = 0; + return NULL; + } + if (len != NULL) *len = s->len; + return strdata(s); +} + +LUALIB_API const char *luaL_checklstring(lua_State *L, int idx, size_t *len) +{ + TValue *o = index2adr(L, idx); + GCstr *s; + if (LJ_LIKELY(tvisstr(o))) { + s = strV(o); + } else if (tvisnumber(o)) { + lj_gc_check(L); + o = index2adr(L, idx); /* GC may move the stack. */ + s = lj_str_fromnumber(L, o); + setstrV(L, o, s); + } else { + lj_err_argt(L, idx, LUA_TSTRING); + } + if (len != NULL) *len = s->len; + return strdata(s); +} + +LUALIB_API const char *luaL_optlstring(lua_State *L, int idx, + const char *def, size_t *len) +{ + TValue *o = index2adr(L, idx); + GCstr *s; + if (LJ_LIKELY(tvisstr(o))) { + s = strV(o); + } else if (tvisnil(o)) { + if (len != NULL) *len = def ? strlen(def) : 0; + return def; + } else if (tvisnumber(o)) { + lj_gc_check(L); + o = index2adr(L, idx); /* GC may move the stack. */ + s = lj_str_fromnumber(L, o); + setstrV(L, o, s); + } else { + lj_err_argt(L, idx, LUA_TSTRING); + } + if (len != NULL) *len = s->len; + return strdata(s); +} + +LUALIB_API int luaL_checkoption(lua_State *L, int idx, const char *def, + const char *const lst[]) +{ + ptrdiff_t i; + const char *s = lua_tolstring(L, idx, NULL); + if (s == NULL && (s = def) == NULL) + lj_err_argt(L, idx, LUA_TSTRING); + for (i = 0; lst[i]; i++) + if (strcmp(lst[i], s) == 0) + return (int)i; + lj_err_argv(L, idx, LJ_ERR_INVOPTM, s); +} + +LUA_API size_t lua_objlen(lua_State *L, int idx) +{ + TValue *o = index2adr(L, idx); + if (tvisstr(o)) { + return strV(o)->len; + } else if (tvistab(o)) { + return (size_t)lj_tab_len(tabV(o)); + } else if (tvisudata(o)) { + return udataV(o)->len; + } else if (tvisnumber(o)) { + GCstr *s = lj_str_fromnumber(L, o); + setstrV(L, o, s); + return s->len; + } else { + return 0; + } +} + +LUA_API lua_CFunction lua_tocfunction(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + if (tvisfunc(o)) { + BCOp op = bc_op(*mref(funcV(o)->c.pc, BCIns)); + if (op == BC_FUNCC || op == BC_FUNCCW) + return funcV(o)->c.f; + } + return NULL; +} + +LUA_API void *lua_touserdata(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + if (tvisudata(o)) + return uddata(udataV(o)); + else if (tvislightud(o)) + return lightudV(o); + else + return NULL; +} + +LUA_API lua_State *lua_tothread(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + return (!tvisthread(o)) ? NULL : threadV(o); +} + +LUA_API const void *lua_topointer(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + if (tvisudata(o)) + return uddata(udataV(o)); + else if (tvislightud(o)) + return lightudV(o); + else if (tviscdata(o)) + return cdataptr(cdataV(o)); + else if (tvisgcv(o)) + return gcV(o); + else + return NULL; +} + +/* -- Stack setters (object creation) ------------------------------------- */ + +LUA_API void lua_pushnil(lua_State *L) +{ + setnilV(L->top); + incr_top(L); +} + +LUA_API void lua_pushnumber(lua_State *L, lua_Number n) +{ + setnumV(L->top, n); + if (LJ_UNLIKELY(tvisnan(L->top))) + setnanV(L->top); /* Canonicalize injected NaNs. */ + incr_top(L); +} + +LUA_API void lua_pushinteger(lua_State *L, lua_Integer n) +{ + setintptrV(L->top, n); + incr_top(L); +} + +LUA_API void lua_pushlstring(lua_State *L, const char *str, size_t len) +{ + GCstr *s; + lj_gc_check(L); + s = lj_str_new(L, str, len); + setstrV(L, L->top, s); + incr_top(L); +} + +LUA_API void lua_pushstring(lua_State *L, const char *str) +{ + if (str == NULL) { + setnilV(L->top); + } else { + GCstr *s; + lj_gc_check(L); + s = lj_str_newz(L, str); + setstrV(L, L->top, s); + } + incr_top(L); +} + +LUA_API const char *lua_pushvfstring(lua_State *L, const char *fmt, + va_list argp) +{ + lj_gc_check(L); + return lj_str_pushvf(L, fmt, argp); +} + +LUA_API const char *lua_pushfstring(lua_State *L, const char *fmt, ...) +{ + const char *ret; + va_list argp; + lj_gc_check(L); + va_start(argp, fmt); + ret = lj_str_pushvf(L, fmt, argp); + va_end(argp); + return ret; +} + +LUA_API void lua_pushcclosure(lua_State *L, lua_CFunction f, int n) +{ + GCfunc *fn; + lj_gc_check(L); + api_checknelems(L, n); + fn = lj_func_newC(L, (MSize)n, getcurrenv(L)); + fn->c.f = f; + L->top -= n; + while (n--) + copyTV(L, &fn->c.upvalue[n], L->top+n); + setfuncV(L, L->top, fn); + lua_assert(iswhite(obj2gco(fn))); + incr_top(L); +} + +LUA_API void lua_pushboolean(lua_State *L, int b) +{ + setboolV(L->top, (b != 0)); + incr_top(L); +} + +LUA_API void lua_pushlightuserdata(lua_State *L, void *p) +{ + setlightudV(L->top, checklightudptr(L, p)); + incr_top(L); +} + +LUA_API void lua_createtable(lua_State *L, int narray, int nrec) +{ + GCtab *t; + lj_gc_check(L); + t = lj_tab_new(L, (uint32_t)(narray > 0 ? narray+1 : 0), hsize2hbits(nrec)); + settabV(L, L->top, t); + incr_top(L); +} + +LUALIB_API int luaL_newmetatable(lua_State *L, const char *tname) +{ + GCtab *regt = tabV(registry(L)); + TValue *tv = lj_tab_setstr(L, regt, lj_str_newz(L, tname)); + if (tvisnil(tv)) { + GCtab *mt = lj_tab_new(L, 0, 1); + settabV(L, tv, mt); + settabV(L, L->top++, mt); + lj_gc_anybarriert(L, regt); + return 1; + } else { + copyTV(L, L->top++, tv); + return 0; + } +} + +LUA_API int lua_pushthread(lua_State *L) +{ + setthreadV(L, L->top, L); + incr_top(L); + return (mainthread(G(L)) == L); +} + +LUA_API lua_State *lua_newthread(lua_State *L) +{ + lua_State *L1; + lj_gc_check(L); + L1 = lj_state_new(L); + setthreadV(L, L->top, L1); + incr_top(L); + return L1; +} + +LUA_API void *lua_newuserdata(lua_State *L, size_t size) +{ + GCudata *ud; + lj_gc_check(L); + if (size > LJ_MAX_UDATA) + lj_err_msg(L, LJ_ERR_UDATAOV); + ud = lj_udata_new(L, (MSize)size, getcurrenv(L)); + setudataV(L, L->top, ud); + incr_top(L); + return uddata(ud); +} + +LUA_API void lua_concat(lua_State *L, int n) +{ + api_checknelems(L, n); + if (n >= 2) { + n--; + do { + TValue *top = lj_meta_cat(L, L->top-1, -n); + if (top == NULL) { + L->top -= n; + break; + } + n -= (int)(L->top - top); + L->top = top+2; + lj_vm_call(L, top, 1+1); + L->top--; + copyTV(L, L->top-1, L->top); + } while (--n > 0); + } else if (n == 0) { /* Push empty string. */ + setstrV(L, L->top, &G(L)->strempty); + incr_top(L); + } + /* else n == 1: nothing to do. */ +} + +/* -- Object getters ------------------------------------------------------ */ + +LUA_API void lua_gettable(lua_State *L, int idx) +{ + cTValue *v, *t = index2adr(L, idx); + api_checkvalidindex(L, t); + v = lj_meta_tget(L, t, L->top-1); + if (v == NULL) { + L->top += 2; + lj_vm_call(L, L->top-2, 1+1); + L->top -= 2; + v = L->top+1; + } + copyTV(L, L->top-1, v); +} + +LUA_API void lua_getfield(lua_State *L, int idx, const char *k) +{ + cTValue *v, *t = index2adr(L, idx); + TValue key; + api_checkvalidindex(L, t); + setstrV(L, &key, lj_str_newz(L, k)); + v = lj_meta_tget(L, t, &key); + if (v == NULL) { + L->top += 2; + lj_vm_call(L, L->top-2, 1+1); + L->top -= 2; + v = L->top+1; + } + copyTV(L, L->top, v); + incr_top(L); +} + +LUA_API void lua_rawget(lua_State *L, int idx) +{ + cTValue *t = index2adr(L, idx); + api_check(L, tvistab(t)); + copyTV(L, L->top-1, lj_tab_get(L, tabV(t), L->top-1)); +} + +LUA_API void lua_rawgeti(lua_State *L, int idx, int n) +{ + cTValue *v, *t = index2adr(L, idx); + api_check(L, tvistab(t)); + v = lj_tab_getint(tabV(t), n); + if (v) { + copyTV(L, L->top, v); + } else { + setnilV(L->top); + } + incr_top(L); +} + +LUA_API int lua_getmetatable(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + GCtab *mt = NULL; + if (tvistab(o)) + mt = tabref(tabV(o)->metatable); + else if (tvisudata(o)) + mt = tabref(udataV(o)->metatable); + else + mt = tabref(basemt_obj(G(L), o)); + if (mt == NULL) + return 0; + settabV(L, L->top, mt); + incr_top(L); + return 1; +} + +LUALIB_API int luaL_getmetafield(lua_State *L, int idx, const char *field) +{ + if (lua_getmetatable(L, idx)) { + cTValue *tv = lj_tab_getstr(tabV(L->top-1), lj_str_newz(L, field)); + if (tv && !tvisnil(tv)) { + copyTV(L, L->top-1, tv); + return 1; + } + L->top--; + } + return 0; +} + +LUA_API void lua_getfenv(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + api_checkvalidindex(L, o); + if (tvisfunc(o)) { + settabV(L, L->top, tabref(funcV(o)->c.env)); + } else if (tvisudata(o)) { + settabV(L, L->top, tabref(udataV(o)->env)); + } else if (tvisthread(o)) { + settabV(L, L->top, tabref(threadV(o)->env)); + } else { + setnilV(L->top); + } + incr_top(L); +} + +LUA_API int lua_next(lua_State *L, int idx) +{ + cTValue *t = index2adr(L, idx); + int more; + api_check(L, tvistab(t)); + more = lj_tab_next(L, tabV(t), L->top-1); + if (more) { + incr_top(L); /* Return new key and value slot. */ + } else { /* End of traversal. */ + L->top--; /* Remove key slot. */ + } + return more; +} + +LUA_API const char *lua_getupvalue(lua_State *L, int idx, int n) +{ + TValue *val; + const char *name = lj_debug_uvnamev(index2adr(L, idx), (uint32_t)(n-1), &val); + if (name) { + copyTV(L, L->top, val); + incr_top(L); + } + return name; +} + +LUA_API void *lua_upvalueid(lua_State *L, int idx, int n) +{ + GCfunc *fn = funcV(index2adr(L, idx)); + n--; + api_check(L, (uint32_t)n < fn->l.nupvalues); + return isluafunc(fn) ? (void *)gcref(fn->l.uvptr[n]) : + (void *)&fn->c.upvalue[n]; +} + +LUA_API void lua_upvaluejoin(lua_State *L, int idx1, int n1, int idx2, int n2) +{ + GCfunc *fn1 = funcV(index2adr(L, idx1)); + GCfunc *fn2 = funcV(index2adr(L, idx2)); + n1--; n2--; + api_check(L, isluafunc(fn1) && (uint32_t)n1 < fn1->l.nupvalues); + api_check(L, isluafunc(fn2) && (uint32_t)n2 < fn2->l.nupvalues); + setgcrefr(fn1->l.uvptr[n1], fn2->l.uvptr[n2]); + lj_gc_objbarrier(L, fn1, gcref(fn1->l.uvptr[n1])); +} + +LUALIB_API void *luaL_checkudata(lua_State *L, int idx, const char *tname) +{ + cTValue *o = index2adr(L, idx); + if (tvisudata(o)) { + GCudata *ud = udataV(o); + cTValue *tv = lj_tab_getstr(tabV(registry(L)), lj_str_newz(L, tname)); + if (tv && tvistab(tv) && tabV(tv) == tabref(ud->metatable)) + return uddata(ud); + } + lj_err_argtype(L, idx, tname); + return NULL; /* unreachable */ +} + +/* -- Object setters ------------------------------------------------------ */ + +LUA_API void lua_settable(lua_State *L, int idx) +{ + TValue *o; + cTValue *t = index2adr(L, idx); + api_checknelems(L, 2); + api_checkvalidindex(L, t); + o = lj_meta_tset(L, t, L->top-2); + if (o) { + /* NOBARRIER: lj_meta_tset ensures the table is not black. */ + copyTV(L, o, L->top-1); + L->top -= 2; + } else { + L->top += 3; + copyTV(L, L->top-1, L->top-6); + lj_vm_call(L, L->top-3, 0+1); + L->top -= 3; + } +} + +LUA_API void lua_setfield(lua_State *L, int idx, const char *k) +{ + TValue *o; + TValue key; + cTValue *t = index2adr(L, idx); + api_checknelems(L, 1); + api_checkvalidindex(L, t); + setstrV(L, &key, lj_str_newz(L, k)); + o = lj_meta_tset(L, t, &key); + if (o) { + L->top--; + /* NOBARRIER: lj_meta_tset ensures the table is not black. */ + copyTV(L, o, L->top); + } else { + L->top += 3; + copyTV(L, L->top-1, L->top-6); + lj_vm_call(L, L->top-3, 0+1); + L->top -= 2; + } +} + +LUA_API void lua_rawset(lua_State *L, int idx) +{ + GCtab *t = tabV(index2adr(L, idx)); + TValue *dst, *key; + api_checknelems(L, 2); + key = L->top-2; + dst = lj_tab_set(L, t, key); + copyTV(L, dst, key+1); + lj_gc_anybarriert(L, t); + L->top = key; +} + +LUA_API void lua_rawseti(lua_State *L, int idx, int n) +{ + GCtab *t = tabV(index2adr(L, idx)); + TValue *dst, *src; + api_checknelems(L, 1); + dst = lj_tab_setint(L, t, n); + src = L->top-1; + copyTV(L, dst, src); + lj_gc_barriert(L, t, dst); + L->top = src; +} + +LUA_API int lua_setmetatable(lua_State *L, int idx) +{ + global_State *g; + GCtab *mt; + cTValue *o = index2adr(L, idx); + api_checknelems(L, 1); + api_checkvalidindex(L, o); + if (tvisnil(L->top-1)) { + mt = NULL; + } else { + api_check(L, tvistab(L->top-1)); + mt = tabV(L->top-1); + } + g = G(L); + if (tvistab(o)) { + setgcref(tabV(o)->metatable, obj2gco(mt)); + if (mt) + lj_gc_objbarriert(L, tabV(o), mt); + } else if (tvisudata(o)) { + setgcref(udataV(o)->metatable, obj2gco(mt)); + if (mt) + lj_gc_objbarrier(L, udataV(o), mt); + } else { + /* Flush cache, since traces specialize to basemt. But not during __gc. */ + if (lj_trace_flushall(L)) + lj_err_caller(L, LJ_ERR_NOGCMM); + if (tvisbool(o)) { + /* NOBARRIER: basemt is a GC root. */ + setgcref(basemt_it(g, LJ_TTRUE), obj2gco(mt)); + setgcref(basemt_it(g, LJ_TFALSE), obj2gco(mt)); + } else { + /* NOBARRIER: basemt is a GC root. */ + setgcref(basemt_obj(g, o), obj2gco(mt)); + } + } + L->top--; + return 1; +} + +LUA_API int lua_setfenv(lua_State *L, int idx) +{ + cTValue *o = index2adr(L, idx); + GCtab *t; + api_checknelems(L, 1); + api_checkvalidindex(L, o); + api_check(L, tvistab(L->top-1)); + t = tabV(L->top-1); + if (tvisfunc(o)) { + setgcref(funcV(o)->c.env, obj2gco(t)); + } else if (tvisudata(o)) { + setgcref(udataV(o)->env, obj2gco(t)); + } else if (tvisthread(o)) { + setgcref(threadV(o)->env, obj2gco(t)); + } else { + L->top--; + return 0; + } + lj_gc_objbarrier(L, gcV(o), t); + L->top--; + return 1; +} + +LUA_API const char *lua_setupvalue(lua_State *L, int idx, int n) +{ + cTValue *f = index2adr(L, idx); + TValue *val; + const char *name; + api_checknelems(L, 1); + name = lj_debug_uvnamev(f, (uint32_t)(n-1), &val); + if (name) { + L->top--; + copyTV(L, val, L->top); + lj_gc_barrier(L, funcV(f), L->top); + } + return name; +} + +/* -- Calls --------------------------------------------------------------- */ + +LUA_API void lua_call(lua_State *L, int nargs, int nresults) +{ + api_check(L, L->status == 0 || L->status == LUA_ERRERR); + api_checknelems(L, nargs+1); + lj_vm_call(L, L->top - nargs, nresults+1); +} + +LUA_API int lua_pcall(lua_State *L, int nargs, int nresults, int errfunc) +{ + global_State *g = G(L); + uint8_t oldh = hook_save(g); + ptrdiff_t ef; + int status; + api_check(L, L->status == 0 || L->status == LUA_ERRERR); + api_checknelems(L, nargs+1); + if (errfunc == 0) { + ef = 0; + } else { + cTValue *o = stkindex2adr(L, errfunc); + api_checkvalidindex(L, o); + ef = savestack(L, o); + } + status = lj_vm_pcall(L, L->top - nargs, nresults+1, ef); + if (status) hook_restore(g, oldh); + return status; +} + +static TValue *cpcall(lua_State *L, lua_CFunction func, void *ud) +{ + GCfunc *fn = lj_func_newC(L, 0, getcurrenv(L)); + fn->c.f = func; + setfuncV(L, L->top, fn); + setlightudV(L->top+1, checklightudptr(L, ud)); + cframe_nres(L->cframe) = 1+0; /* Zero results. */ + L->top += 2; + return L->top-1; /* Now call the newly allocated C function. */ +} + +LUA_API int lua_cpcall(lua_State *L, lua_CFunction func, void *ud) +{ + global_State *g = G(L); + uint8_t oldh = hook_save(g); + int status; + api_check(L, L->status == 0 || L->status == LUA_ERRERR); + status = lj_vm_cpcall(L, func, ud, cpcall); + if (status) hook_restore(g, oldh); + return status; +} + +LUALIB_API int luaL_callmeta(lua_State *L, int idx, const char *field) +{ + if (luaL_getmetafield(L, idx, field)) { + TValue *base = L->top--; + copyTV(L, base, index2adr(L, idx)); + L->top = base+1; + lj_vm_call(L, base, 1+1); + return 1; + } + return 0; +} + +/* -- Coroutine yield and resume ------------------------------------------ */ + +LUA_API int lua_yield(lua_State *L, int nresults) +{ + void *cf = L->cframe; + global_State *g = G(L); + if (cframe_canyield(cf)) { + cf = cframe_raw(cf); + if (!hook_active(g)) { /* Regular yield: move results down if needed. */ + cTValue *f = L->top - nresults; + if (f > L->base) { + TValue *t = L->base; + while (--nresults >= 0) copyTV(L, t++, f++); + L->top = t; + } + L->cframe = NULL; + L->status = LUA_YIELD; + return -1; + } else { /* Yield from hook: add a pseudo-frame. */ + TValue *top = L->top; + hook_leave(g); + top->u64 = cframe_multres(cf); + setcont(top+1, lj_cont_hook); + setframe_pc(top+1, cframe_pc(cf)-1); + setframe_gc(top+2, obj2gco(L)); + setframe_ftsz(top+2, (int)((char *)(top+3)-(char *)L->base)+FRAME_CONT); + L->top = L->base = top+3; +#if LJ_TARGET_X64 + lj_err_throw(L, LUA_YIELD); +#else + L->cframe = NULL; + L->status = LUA_YIELD; + lj_vm_unwind_c(cf, LUA_YIELD); +#endif + } + } + lj_err_msg(L, LJ_ERR_CYIELD); + return 0; /* unreachable */ +} + +LUA_API int lua_resume(lua_State *L, int nargs) +{ + if (L->cframe == NULL && L->status <= LUA_YIELD) + return lj_vm_resume(L, L->top - nargs, 0, 0); + L->top = L->base; + setstrV(L, L->top, lj_err_str(L, LJ_ERR_COSUSP)); + incr_top(L); + return LUA_ERRRUN; +} + +/* -- GC and memory management -------------------------------------------- */ + +LUA_API int lua_gc(lua_State *L, int what, int data) +{ + global_State *g = G(L); + int res = 0; + switch (what) { + case LUA_GCSTOP: + g->gc.threshold = LJ_MAX_MEM; + break; + case LUA_GCRESTART: + g->gc.threshold = data == -1 ? (g->gc.total/100)*g->gc.pause : g->gc.total; + break; + case LUA_GCCOLLECT: + lj_gc_fullgc(L); + break; + case LUA_GCCOUNT: + res = (int)(g->gc.total >> 10); + break; + case LUA_GCCOUNTB: + res = (int)(g->gc.total & 0x3ff); + break; + case LUA_GCSTEP: { + MSize a = (MSize)data << 10; + g->gc.threshold = (a <= g->gc.total) ? (g->gc.total - a) : 0; + while (g->gc.total >= g->gc.threshold) + if (lj_gc_step(L) > 0) { + res = 1; + break; + } + break; + } + case LUA_GCSETPAUSE: + res = (int)(g->gc.pause); + g->gc.pause = (MSize)data; + break; + case LUA_GCSETSTEPMUL: + res = (int)(g->gc.stepmul); + g->gc.stepmul = (MSize)data; + break; + default: + res = -1; /* Invalid option. */ + } + return res; +} + +LUA_API lua_Alloc lua_getallocf(lua_State *L, void **ud) +{ + global_State *g = G(L); + if (ud) *ud = g->allocd; + return g->allocf; +} + +LUA_API void lua_setallocf(lua_State *L, lua_Alloc f, void *ud) +{ + global_State *g = G(L); + g->allocd = ud; + g->allocf = f; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_arch.h b/src/3rd party/luajit-2.0/src/lj_arch.h new file mode 100644 index 00000000000..2769086ce42 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_arch.h @@ -0,0 +1,432 @@ +/* +** Target architecture selection. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_ARCH_H +#define _LJ_ARCH_H + +#include "lua.h" + +/* Target endianess. */ +#define LUAJIT_LE 0 +#define LUAJIT_BE 1 + +/* Target architectures. */ +#define LUAJIT_ARCH_X86 1 +#define LUAJIT_ARCH_x86 1 +#define LUAJIT_ARCH_X64 2 +#define LUAJIT_ARCH_x64 2 +#define LUAJIT_ARCH_ARM 3 +#define LUAJIT_ARCH_arm 3 +#define LUAJIT_ARCH_PPC 4 +#define LUAJIT_ARCH_ppc 4 +#define LUAJIT_ARCH_PPCSPE 5 +#define LUAJIT_ARCH_ppcspe 5 +#define LUAJIT_ARCH_MIPS 6 +#define LUAJIT_ARCH_mips 6 + +/* Target OS. */ +#define LUAJIT_OS_OTHER 0 +#define LUAJIT_OS_WINDOWS 1 +#define LUAJIT_OS_LINUX 2 +#define LUAJIT_OS_OSX 3 +#define LUAJIT_OS_BSD 4 +#define LUAJIT_OS_POSIX 5 + +/* Select native target if no target defined. */ +#ifndef LUAJIT_TARGET + +#if defined(__i386) || defined(__i386__) || defined(_M_IX86) +#define LUAJIT_TARGET LUAJIT_ARCH_X86 +#elif defined(__x86_64__) || defined(__x86_64) || defined(_M_X64) || defined(_M_AMD64) +#define LUAJIT_TARGET LUAJIT_ARCH_X64 +#elif defined(__arm__) || defined(__arm) || defined(__ARM__) || defined(__ARM) +#define LUAJIT_TARGET LUAJIT_ARCH_ARM +#elif defined(__ppc__) || defined(__ppc) || defined(__PPC__) || defined(__PPC) || defined(__powerpc__) || defined(__powerpc) || defined(__POWERPC__) || defined(__POWERPC) || defined(_M_PPC) +#ifdef __NO_FPRS__ +#define LUAJIT_TARGET LUAJIT_ARCH_PPCSPE +#else +#define LUAJIT_TARGET LUAJIT_ARCH_PPC +#endif +#elif defined(__mips__) || defined(__mips) || defined(__MIPS__) || defined(__MIPS) +#define LUAJIT_TARGET LUAJIT_ARCH_MIPS +#else +#error "No support for this architecture (yet)" +#endif + +#endif + +/* Select native OS if no target OS defined. */ +#ifndef LUAJIT_OS + +#if defined(_WIN32) && !defined(_XBOX_VER) +#define LUAJIT_OS LUAJIT_OS_WINDOWS +#elif defined(__linux__) +#define LUAJIT_OS LUAJIT_OS_LINUX +#elif defined(__MACH__) && defined(__APPLE__) +#define LUAJIT_OS LUAJIT_OS_OSX +#elif (defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || \ + defined(__NetBSD__) || defined(__OpenBSD__) || \ + defined(__DragonFly__)) && !defined(__ORBIS__) +#define LUAJIT_OS LUAJIT_OS_BSD +#elif (defined(__sun__) && defined(__svr4__)) || defined(__CYGWIN__) +#define LUAJIT_OS LUAJIT_OS_POSIX +#else +#define LUAJIT_OS LUAJIT_OS_OTHER +#endif + +#endif + +/* Set target OS properties. */ +#if LUAJIT_OS == LUAJIT_OS_WINDOWS +#define LJ_OS_NAME "Windows" +#elif LUAJIT_OS == LUAJIT_OS_LINUX +#define LJ_OS_NAME "Linux" +#elif LUAJIT_OS == LUAJIT_OS_OSX +#define LJ_OS_NAME "OSX" +#elif LUAJIT_OS == LUAJIT_OS_BSD +#define LJ_OS_NAME "BSD" +#elif LUAJIT_OS == LUAJIT_OS_POSIX +#define LJ_OS_NAME "POSIX" +#else +#define LJ_OS_NAME "Other" +#endif + +#define LJ_TARGET_WINDOWS (LUAJIT_OS == LUAJIT_OS_WINDOWS) +#define LJ_TARGET_LINUX (LUAJIT_OS == LUAJIT_OS_LINUX) +#define LJ_TARGET_OSX (LUAJIT_OS == LUAJIT_OS_OSX) +#define LJ_TARGET_IOS (LJ_TARGET_OSX && LUAJIT_TARGET == LUAJIT_ARCH_ARM) +#define LJ_TARGET_POSIX (LUAJIT_OS > LUAJIT_OS_WINDOWS) +#define LJ_TARGET_DLOPEN LJ_TARGET_POSIX + +#ifdef __CELLOS_LV2__ +#define LJ_TARGET_PS3 1 +#define LJ_TARGET_CONSOLE 1 +#endif + +#ifdef __ORBIS__ +#define LJ_TARGET_PS4 1 +#define LJ_TARGET_CONSOLE 1 +#undef NULL +#define NULL ((void*)0) +#endif + +#ifdef __psp2__ +#define LJ_TARGET_PSVITA 1 +#define LJ_TARGET_CONSOLE 1 +#endif + +#if _XBOX_VER >= 200 +#define LJ_TARGET_XBOX360 1 +#define LJ_TARGET_CONSOLE 1 +#endif + +#define LJ_NUMMODE_SINGLE 0 /* Single-number mode only. */ +#define LJ_NUMMODE_SINGLE_DUAL 1 /* Default to single-number mode. */ +#define LJ_NUMMODE_DUAL 2 /* Dual-number mode only. */ +#define LJ_NUMMODE_DUAL_SINGLE 3 /* Default to dual-number mode. */ + +/* Set target architecture properties. */ +#if LUAJIT_TARGET == LUAJIT_ARCH_X86 + +#define LJ_ARCH_NAME "x86" +#define LJ_ARCH_BITS 32 +#define LJ_ARCH_ENDIAN LUAJIT_LE +#if LJ_TARGET_WINDOWS || __CYGWIN__ +#define LJ_ABI_WIN 1 +#else +#define LJ_ABI_WIN 0 +#endif +#define LJ_TARGET_X86 1 +#define LJ_TARGET_X86ORX64 1 +#define LJ_TARGET_EHRETREG 0 +#define LJ_TARGET_MASKSHIFT 1 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNALIGNED 1 +#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE_DUAL + +#elif LUAJIT_TARGET == LUAJIT_ARCH_X64 + +#define LJ_ARCH_NAME "x64" +#define LJ_ARCH_BITS 64 +#define LJ_ARCH_ENDIAN LUAJIT_LE +#define LJ_ABI_WIN LJ_TARGET_WINDOWS +#define LJ_TARGET_X64 1 +#define LJ_TARGET_X86ORX64 1 +#define LJ_TARGET_EHRETREG 0 +#define LJ_TARGET_JUMPRANGE 31 /* +-2^31 = +-2GB */ +#define LJ_TARGET_MASKSHIFT 1 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNALIGNED 1 +#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE_DUAL + +#elif LUAJIT_TARGET == LUAJIT_ARCH_ARM + +#define LJ_ARCH_NAME "arm" +#define LJ_ARCH_BITS 32 +#define LJ_ARCH_ENDIAN LUAJIT_LE +#if !defined(LJ_ARCH_HASFPU) && __SOFTFP__ +#define LJ_ARCH_HASFPU 0 +#endif +#if !defined(LJ_ABI_SOFTFP) && !__ARM_PCS_VFP +#define LJ_ABI_SOFTFP 1 +#endif +#define LJ_ABI_EABI 1 +#define LJ_TARGET_ARM 1 +#define LJ_TARGET_EHRETREG 0 +#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ +#define LJ_TARGET_MASKSHIFT 0 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ +#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL + +#if __ARM_ARCH_7__ || __ARM_ARCH_7A__ || __ARM_ARCH_7R__ || __ARM_ARCH_7S__ +#define LJ_ARCH_VERSION 70 +#elif __ARM_ARCH_6T2__ +#define LJ_ARCH_VERSION 61 +#elif __ARM_ARCH_6__ || __ARM_ARCH_6J__ || __ARM_ARCH_6K__ || __ARM_ARCH_6Z__ || __ARM_ARCH_6ZK__ +#define LJ_ARCH_VERSION 60 +#else +#define LJ_ARCH_VERSION 50 +#endif + +#elif LUAJIT_TARGET == LUAJIT_ARCH_PPC + +#define LJ_ARCH_NAME "ppc" +#if _LP64 +#define LJ_ARCH_BITS 64 +#else +#define LJ_ARCH_BITS 32 +#endif +#define LJ_ARCH_ENDIAN LUAJIT_BE +#define LJ_TARGET_PPC 1 +#define LJ_TARGET_EHRETREG 3 +#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ +#define LJ_TARGET_MASKSHIFT 0 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNIFYROT 1 /* Want only IR_BROL. */ +#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL_SINGLE + +#if _ARCH_PWR7 +#define LJ_ARCH_VERSION 70 +#elif _ARCH_PWR6 +#define LJ_ARCH_VERSION 60 +#elif _ARCH_PWR5X +#define LJ_ARCH_VERSION 51 +#elif _ARCH_PWR5 +#define LJ_ARCH_VERSION 50 +#elif _ARCH_PWR4 +#define LJ_ARCH_VERSION 40 +#else +#define LJ_ARCH_VERSION 0 +#endif +#if __PPC64__ || __powerpc64__ || LJ_TARGET_CONSOLE +#define LJ_ARCH_PPC64 1 +#define LJ_ARCH_NOFFI 1 +#endif +#if _ARCH_PPCSQ +#define LJ_ARCH_SQRT 1 +#endif +#if _ARCH_PWR5X +#define LJ_ARCH_ROUND 1 +#endif +#if __PPU__ +#define LJ_ARCH_CELL 1 +#endif +#if LJ_TARGET_XBOX360 +#define LJ_ARCH_XENON 1 +#endif + +#elif LUAJIT_TARGET == LUAJIT_ARCH_PPCSPE + +#define LJ_ARCH_NAME "ppcspe" +#define LJ_ARCH_BITS 32 +#define LJ_ARCH_ENDIAN LUAJIT_BE +#ifndef LJ_ABI_SOFTFP +#define LJ_ABI_SOFTFP 1 +#endif +#define LJ_ABI_EABI 1 +#define LJ_TARGET_PPCSPE 1 +#define LJ_TARGET_EHRETREG 3 +#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ +#define LJ_TARGET_MASKSHIFT 0 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNIFYROT 1 /* Want only IR_BROL. */ +#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE +#define LJ_ARCH_NOFFI 1 /* NYI: comparisons, calls. */ +#define LJ_ARCH_NOJIT 1 + +#elif LUAJIT_TARGET == LUAJIT_ARCH_MIPS + +#if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) +#define LJ_ARCH_NAME "mipsel" +#define LJ_ARCH_ENDIAN LUAJIT_LE +#else +#define LJ_ARCH_NAME "mips" +#define LJ_ARCH_ENDIAN LUAJIT_BE +#endif +#define LJ_ARCH_BITS 32 +#define LJ_TARGET_MIPS 1 +#define LJ_TARGET_EHRETREG 4 +#define LJ_TARGET_JUMPRANGE 27 /* 2*2^27 = 256MB-aligned region */ +#define LJ_TARGET_MASKSHIFT 1 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ +#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE + +#if _MIPS_ARCH_MIPS32R2 +#define LJ_ARCH_VERSION 20 +#else +#define LJ_ARCH_VERSION 10 +#endif + +#else +#error "No target architecture defined" +#endif + +#ifndef LJ_PAGESIZE +#define LJ_PAGESIZE 4096 +#endif + +/* Check for minimum required compiler versions. */ +#if defined(__GNUC__) +#if LJ_TARGET_X86 +#if (__GNUC__ < 3) || ((__GNUC__ == 3) && __GNUC_MINOR__ < 4) +#error "Need at least GCC 3.4 or newer" +#endif +#elif LJ_TARGET_X64 +#if __GNUC__ < 4 +#error "Need at least GCC 4.0 or newer" +#endif +#elif LJ_TARGET_ARM +#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 2) +#error "Need at least GCC 4.2 or newer" +#endif +#elif !LJ_TARGET_PS3 +#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 3) +#error "Need at least GCC 4.3 or newer" +#endif +#endif +#endif + +/* Check target-specific constraints. */ +#ifndef _BUILDVM_H +#if LJ_TARGET_X64 +#if __USING_SJLJ_EXCEPTIONS__ +#error "Need a C compiler with native exception handling on x64" +#endif +#elif LJ_TARGET_ARM +#if defined(__ARMEB__) +#error "No support for big-endian ARM" +#endif +#if __ARM_ARCH_6M__ || __ARM_ARCH_7M__ || __ARM_ARCH_7EM__ +#error "No support for Cortex-M CPUs" +#endif +#if !(__ARM_EABI__ || LJ_TARGET_IOS) +#error "Only ARM EABI or iOS 3.0+ ABI is supported" +#endif +#elif LJ_TARGET_PPC || LJ_TARGET_PPCSPE +#if defined(_SOFT_FLOAT) || defined(_SOFT_DOUBLE) +#error "No support for PowerPC CPUs without double-precision FPU" +#endif +#if defined(_LITTLE_ENDIAN) +#error "No support for little-endian PowerPC" +#endif +#if defined(_LP64) +#error "No support for PowerPC 64 bit mode" +#endif +#elif LJ_TARGET_MIPS +#if defined(__mips_soft_float) +#error "No support for MIPS CPUs without FPU" +#endif +#endif +#endif + +/* Enable or disable the dual-number mode for the VM. */ +#if (LJ_ARCH_NUMMODE == LJ_NUMMODE_SINGLE && LUAJIT_NUMMODE == 2) || \ + (LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL && LUAJIT_NUMMODE == 1) +#error "No support for this number mode on this architecture" +#endif +#if LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL || \ + (LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL_SINGLE && LUAJIT_NUMMODE != 1) || \ + (LJ_ARCH_NUMMODE == LJ_NUMMODE_SINGLE_DUAL && LUAJIT_NUMMODE == 2) +#define LJ_DUALNUM 1 +#else +#define LJ_DUALNUM 0 +#endif + +#if LJ_TARGET_IOS || LJ_TARGET_CONSOLE +/* Runtime code generation is restricted on iOS. Complain to Apple, not me. */ +/* Ditto for the consoles. Complain to Sony or MS, not me. */ +#ifndef LUAJIT_ENABLE_JIT +#define LJ_OS_NOJIT 1 +#endif +#endif + +/* Disable or enable the JIT compiler. */ +#if defined(LUAJIT_DISABLE_JIT) || defined(LJ_ARCH_NOJIT) || defined(LJ_OS_NOJIT) +#define LJ_HASJIT 0 +#else +#define LJ_HASJIT 1 +#endif + +/* Disable or enable the FFI extension. */ +#if defined(LUAJIT_DISABLE_FFI) || defined(LJ_ARCH_NOFFI) +#define LJ_HASFFI 0 +#else +#define LJ_HASFFI 1 +#endif + +#ifndef LJ_ARCH_HASFPU +#define LJ_ARCH_HASFPU 1 +#endif +#ifndef LJ_ABI_SOFTFP +#define LJ_ABI_SOFTFP 0 +#endif +#define LJ_SOFTFP (!LJ_ARCH_HASFPU) + +#if LJ_ARCH_ENDIAN == LUAJIT_BE +#define LJ_LE 0 +#define LJ_BE 1 +#define LJ_ENDIAN_SELECT(le, be) be +#define LJ_ENDIAN_LOHI(lo, hi) hi lo +#else +#define LJ_LE 1 +#define LJ_BE 0 +#define LJ_ENDIAN_SELECT(le, be) le +#define LJ_ENDIAN_LOHI(lo, hi) lo hi +#endif + +#if LJ_ARCH_BITS == 32 +#define LJ_32 1 +#define LJ_64 0 +#else +#define LJ_32 0 +#define LJ_64 1 +#endif + +#ifndef LJ_TARGET_UNALIGNED +#define LJ_TARGET_UNALIGNED 0 +#endif + +/* Various workarounds for embedded operating systems. */ +#if (defined(__ANDROID__) && !defined(LJ_TARGET_X86ORX64)) || defined(__symbian__) || LJ_TARGET_XBOX360 +#define LUAJIT_NO_LOG2 +#endif +#if defined(__symbian__) +#define LUAJIT_NO_EXP2 +#endif + +#if defined(LUAJIT_NO_UNWIND) || defined(__symbian__) || LJ_TARGET_IOS || LJ_TARGET_PS3 +#define LJ_NO_UNWIND 1 +#endif + +/* Compatibility with Lua 5.1 vs. 5.2. */ +#ifdef LUAJIT_ENABLE_LUA52COMPAT +#define LJ_52 1 +#else +#define LJ_52 0 +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_asm.c b/src/3rd party/luajit-2.0/src/lj_asm.c new file mode 100644 index 00000000000..804b4dc80b2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm.c @@ -0,0 +1,1920 @@ +/* +** IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_asm_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_gc.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_frame.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_mcode.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_snap.h" +#include "lj_asm.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_target.h" + +#ifdef LUA_USE_ASSERT +#include +#endif + +/* -- Assembler state and common macros ----------------------------------- */ + +/* Assembler state. */ +typedef struct ASMState { + RegCost cost[RID_MAX]; /* Reference and blended allocation cost for regs. */ + + MCode *mcp; /* Current MCode pointer (grows down). */ + MCode *mclim; /* Lower limit for MCode memory + red zone. */ +#ifdef LUA_USE_ASSERT + MCode *mcp_prev; /* Red zone overflow check. */ +#endif + + IRIns *ir; /* Copy of pointer to IR instructions/constants. */ + jit_State *J; /* JIT compiler state. */ + +#if LJ_TARGET_X86ORX64 + x86ModRM mrm; /* Fused x86 address operand. */ +#endif + + RegSet freeset; /* Set of free registers. */ + RegSet modset; /* Set of registers modified inside the loop. */ + RegSet weakset; /* Set of weakly referenced registers. */ + RegSet phiset; /* Set of PHI registers. */ + + uint32_t flags; /* Copy of JIT compiler flags. */ + int loopinv; /* Loop branch inversion (0:no, 1:yes, 2:yes+CC_P). */ + + int32_t evenspill; /* Next even spill slot. */ + int32_t oddspill; /* Next odd spill slot (or 0). */ + + IRRef curins; /* Reference of current instruction. */ + IRRef stopins; /* Stop assembly before hitting this instruction. */ + IRRef orignins; /* Original T->nins. */ + + IRRef snapref; /* Current snapshot is active after this reference. */ + IRRef snaprename; /* Rename highwater mark for snapshot check. */ + SnapNo snapno; /* Current snapshot number. */ + SnapNo loopsnapno; /* Loop snapshot number. */ + + IRRef fuseref; /* Fusion limit (loopref, 0 or FUSE_DISABLED). */ + IRRef sectref; /* Section base reference (loopref or 0). */ + IRRef loopref; /* Reference of LOOP instruction (or 0). */ + + BCReg topslot; /* Number of slots for stack check (unless 0). */ + int32_t gcsteps; /* Accumulated number of GC steps (per section). */ + + GCtrace *T; /* Trace to assemble. */ + GCtrace *parent; /* Parent trace (or NULL). */ + + MCode *mcbot; /* Bottom of reserved MCode. */ + MCode *mctop; /* Top of generated MCode. */ + MCode *mcloop; /* Pointer to loop MCode (or NULL). */ + MCode *invmcp; /* Points to invertible loop branch (or NULL). */ + MCode *flagmcp; /* Pending opportunity to merge flag setting ins. */ + MCode *realign; /* Realign loop if not NULL. */ + +#ifdef RID_NUM_KREF + int32_t krefk[RID_NUM_KREF]; +#endif + IRRef1 phireg[RID_MAX]; /* PHI register references. */ + uint16_t parentmap[LJ_MAX_JSLOTS]; /* Parent instruction to RegSP map. */ +} ASMState; + +#define IR(ref) (&as->ir[(ref)]) + +#define ASMREF_TMP1 REF_TRUE /* Temp. register. */ +#define ASMREF_TMP2 REF_FALSE /* Temp. register. */ +#define ASMREF_L REF_NIL /* Stores register for L. */ + +/* Check for variant to invariant references. */ +#define iscrossref(as, ref) ((ref) < as->sectref) + +/* Inhibit memory op fusion from variant to invariant references. */ +#define FUSE_DISABLED (~(IRRef)0) +#define mayfuse(as, ref) ((ref) > as->fuseref) +#define neverfuse(as) (as->fuseref == FUSE_DISABLED) +#define canfuse(as, ir) (!neverfuse(as) && !irt_isphi((ir)->t)) +#define opisfusableload(o) \ + ((o) == IR_ALOAD || (o) == IR_HLOAD || (o) == IR_ULOAD || \ + (o) == IR_FLOAD || (o) == IR_XLOAD || (o) == IR_SLOAD || (o) == IR_VLOAD) + +/* Sparse limit checks using a red zone before the actual limit. */ +#define MCLIM_REDZONE 64 + +static LJ_NORET LJ_NOINLINE void asm_mclimit(ASMState *as) +{ + lj_mcode_limiterr(as->J, (size_t)(as->mctop - as->mcp + 4*MCLIM_REDZONE)); +} + +static LJ_AINLINE void checkmclim(ASMState *as) +{ +#ifdef LUA_USE_ASSERT + if (as->mcp + MCLIM_REDZONE < as->mcp_prev) { + IRIns *ir = IR(as->curins+1); + fprintf(stderr, "RED ZONE OVERFLOW: %p IR %04d %02d %04d %04d\n", as->mcp, + as->curins+1-REF_BIAS, ir->o, ir->op1-REF_BIAS, ir->op2-REF_BIAS); + lua_assert(0); + } +#endif + if (LJ_UNLIKELY(as->mcp < as->mclim)) asm_mclimit(as); +#ifdef LUA_USE_ASSERT + as->mcp_prev = as->mcp; +#endif +} + +#ifdef RID_NUM_KREF +#define ra_iskref(ref) ((ref) < RID_NUM_KREF) +#define ra_krefreg(ref) ((Reg)(RID_MIN_KREF + (Reg)(ref))) +#define ra_krefk(as, ref) (as->krefk[(ref)]) + +static LJ_AINLINE void ra_setkref(ASMState *as, Reg r, int32_t k) +{ + IRRef ref = (IRRef)(r - RID_MIN_KREF); + as->krefk[ref] = k; + as->cost[r] = REGCOST(ref, ref); +} + +#else +#define ra_iskref(ref) 0 +#define ra_krefreg(ref) RID_MIN_GPR +#define ra_krefk(as, ref) 0 +#endif + +/* Arch-specific field offsets. */ +static const uint8_t field_ofs[IRFL__MAX+1] = { +#define FLOFS(name, ofs) (uint8_t)(ofs), +IRFLDEF(FLOFS) +#undef FLOFS + 0 +}; + +/* -- Target-specific instruction emitter --------------------------------- */ + +#if LJ_TARGET_X86ORX64 +#include "lj_emit_x86.h" +#elif LJ_TARGET_ARM +#include "lj_emit_arm.h" +#elif LJ_TARGET_PPC +#include "lj_emit_ppc.h" +#elif LJ_TARGET_MIPS +#include "lj_emit_mips.h" +#else +#error "Missing instruction emitter for target CPU" +#endif + +/* -- Register allocator debugging ---------------------------------------- */ + +/* #define LUAJIT_DEBUG_RA */ + +#ifdef LUAJIT_DEBUG_RA + +#include +#include + +#define RIDNAME(name) #name, +static const char *const ra_regname[] = { + GPRDEF(RIDNAME) + FPRDEF(RIDNAME) + VRIDDEF(RIDNAME) + NULL +}; +#undef RIDNAME + +static char ra_dbg_buf[65536]; +static char *ra_dbg_p; +static char *ra_dbg_merge; +static MCode *ra_dbg_mcp; + +static void ra_dstart(void) +{ + ra_dbg_p = ra_dbg_buf; + ra_dbg_merge = NULL; + ra_dbg_mcp = NULL; +} + +static void ra_dflush(void) +{ + fwrite(ra_dbg_buf, 1, (size_t)(ra_dbg_p-ra_dbg_buf), stdout); + ra_dstart(); +} + +static void ra_dprintf(ASMState *as, const char *fmt, ...) +{ + char *p; + va_list argp; + va_start(argp, fmt); + p = ra_dbg_mcp == as->mcp ? ra_dbg_merge : ra_dbg_p; + ra_dbg_mcp = NULL; + p += sprintf(p, "%08x \e[36m%04d ", (uintptr_t)as->mcp, as->curins-REF_BIAS); + for (;;) { + const char *e = strchr(fmt, '$'); + if (e == NULL) break; + memcpy(p, fmt, (size_t)(e-fmt)); + p += e-fmt; + if (e[1] == 'r') { + Reg r = va_arg(argp, Reg) & RID_MASK; + if (r <= RID_MAX) { + const char *q; + for (q = ra_regname[r]; *q; q++) + *p++ = *q >= 'A' && *q <= 'Z' ? *q + 0x20 : *q; + } else { + *p++ = '?'; + lua_assert(0); + } + } else if (e[1] == 'f' || e[1] == 'i') { + IRRef ref; + if (e[1] == 'f') + ref = va_arg(argp, IRRef); + else + ref = va_arg(argp, IRIns *) - as->ir; + if (ref >= REF_BIAS) + p += sprintf(p, "%04d", ref - REF_BIAS); + else + p += sprintf(p, "K%03d", REF_BIAS - ref); + } else if (e[1] == 's') { + uint32_t slot = va_arg(argp, uint32_t); + p += sprintf(p, "[sp+0x%x]", sps_scale(slot)); + } else if (e[1] == 'x') { + p += sprintf(p, "%08x", va_arg(argp, int32_t)); + } else { + lua_assert(0); + } + fmt = e+2; + } + va_end(argp); + while (*fmt) + *p++ = *fmt++; + *p++ = '\e'; *p++ = '['; *p++ = 'm'; *p++ = '\n'; + if (p > ra_dbg_buf+sizeof(ra_dbg_buf)-256) { + fwrite(ra_dbg_buf, 1, (size_t)(p-ra_dbg_buf), stdout); + p = ra_dbg_buf; + } + ra_dbg_p = p; +} + +#define RA_DBG_START() ra_dstart() +#define RA_DBG_FLUSH() ra_dflush() +#define RA_DBG_REF() \ + do { char *_p = ra_dbg_p; ra_dprintf(as, ""); \ + ra_dbg_merge = _p; ra_dbg_mcp = as->mcp; } while (0) +#define RA_DBGX(x) ra_dprintf x + +#else +#define RA_DBG_START() ((void)0) +#define RA_DBG_FLUSH() ((void)0) +#define RA_DBG_REF() ((void)0) +#define RA_DBGX(x) ((void)0) +#endif + +/* -- Register allocator -------------------------------------------------- */ + +#define ra_free(as, r) rset_set(as->freeset, (r)) +#define ra_modified(as, r) rset_set(as->modset, (r)) +#define ra_weak(as, r) rset_set(as->weakset, (r)) +#define ra_noweak(as, r) rset_clear(as->weakset, (r)) + +#define ra_used(ir) (ra_hasreg((ir)->r) || ra_hasspill((ir)->s)) + +/* Setup register allocator. */ +static void ra_setup(ASMState *as) +{ + Reg r; + /* Initially all regs (except the stack pointer) are free for use. */ + as->freeset = RSET_INIT; + as->modset = RSET_EMPTY; + as->weakset = RSET_EMPTY; + as->phiset = RSET_EMPTY; + memset(as->phireg, 0, sizeof(as->phireg)); + for (r = RID_MIN_GPR; r < RID_MAX; r++) + as->cost[r] = REGCOST(~0u, 0u); +} + +/* Rematerialize constants. */ +static Reg ra_rematk(ASMState *as, IRRef ref) +{ + IRIns *ir; + Reg r; + if (ra_iskref(ref)) { + r = ra_krefreg(ref); + lua_assert(!rset_test(as->freeset, r)); + ra_free(as, r); + ra_modified(as, r); + emit_loadi(as, r, ra_krefk(as, ref)); + return r; + } + ir = IR(ref); + r = ir->r; + lua_assert(ra_hasreg(r) && !ra_hasspill(ir->s)); + ra_free(as, r); + ra_modified(as, r); + ir->r = RID_INIT; /* Do not keep any hint. */ + RA_DBGX((as, "remat $i $r", ir, r)); +#if !LJ_SOFTFP + if (ir->o == IR_KNUM) { + emit_loadn(as, r, ir_knum(ir)); + } else +#endif + if (emit_canremat(REF_BASE) && ir->o == IR_BASE) { + ra_sethint(ir->r, RID_BASE); /* Restore BASE register hint. */ + emit_getgl(as, r, jit_base); + } else if (emit_canremat(ASMREF_L) && ir->o == IR_KPRI) { + lua_assert(irt_isnil(ir->t)); /* REF_NIL stores ASMREF_L register. */ + emit_getgl(as, r, jit_L); +#if LJ_64 + } else if (ir->o == IR_KINT64) { + emit_loadu64(as, r, ir_kint64(ir)->u64); +#endif + } else { + lua_assert(ir->o == IR_KINT || ir->o == IR_KGC || + ir->o == IR_KPTR || ir->o == IR_KKPTR || ir->o == IR_KNULL); + emit_loadi(as, r, ir->i); + } + return r; +} + +/* Force a spill. Allocate a new spill slot if needed. */ +static int32_t ra_spill(ASMState *as, IRIns *ir) +{ + int32_t slot = ir->s; + lua_assert(ir >= as->ir + REF_TRUE); + if (!ra_hasspill(slot)) { + if (irt_is64(ir->t)) { + slot = as->evenspill; + as->evenspill += 2; + } else if (as->oddspill) { + slot = as->oddspill; + as->oddspill = 0; + } else { + slot = as->evenspill; + as->oddspill = slot+1; + as->evenspill += 2; + } + if (as->evenspill > 256) + lj_trace_err(as->J, LJ_TRERR_SPILLOV); + ir->s = (uint8_t)slot; + } + return sps_scale(slot); +} + +/* Release the temporarily allocated register in ASMREF_TMP1/ASMREF_TMP2. */ +static Reg ra_releasetmp(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + Reg r = ir->r; + lua_assert(ra_hasreg(r) && !ra_hasspill(ir->s)); + ra_free(as, r); + ra_modified(as, r); + ir->r = RID_INIT; + return r; +} + +/* Restore a register (marked as free). Rematerialize or force a spill. */ +static Reg ra_restore(ASMState *as, IRRef ref) +{ + if (emit_canremat(ref)) { + return ra_rematk(as, ref); + } else { + IRIns *ir = IR(ref); + int32_t ofs = ra_spill(as, ir); /* Force a spill slot. */ + Reg r = ir->r; + lua_assert(ra_hasreg(r)); + ra_sethint(ir->r, r); /* Keep hint. */ + ra_free(as, r); + if (!rset_test(as->weakset, r)) { /* Only restore non-weak references. */ + ra_modified(as, r); + RA_DBGX((as, "restore $i $r", ir, r)); + emit_spload(as, ir, r, ofs); + } + return r; + } +} + +/* Save a register to a spill slot. */ +static void ra_save(ASMState *as, IRIns *ir, Reg r) +{ + RA_DBGX((as, "save $i $r", ir, r)); + emit_spstore(as, ir, r, sps_scale(ir->s)); +} + +#define MINCOST(name) \ + if (rset_test(RSET_ALL, RID_##name) && \ + LJ_LIKELY(allow&RID2RSET(RID_##name)) && as->cost[RID_##name] < cost) \ + cost = as->cost[RID_##name]; + +/* Evict the register with the lowest cost, forcing a restore. */ +static Reg ra_evict(ASMState *as, RegSet allow) +{ + IRRef ref; + RegCost cost = ~(RegCost)0; + lua_assert(allow != RSET_EMPTY); + if (RID_NUM_FPR == 0 || allow < RID2RSET(RID_MAX_GPR)) { + GPRDEF(MINCOST) + } else { + FPRDEF(MINCOST) + } + ref = regcost_ref(cost); + lua_assert(ra_iskref(ref) || (ref >= as->T->nk && ref < as->T->nins)); + /* Preferably pick any weak ref instead of a non-weak, non-const ref. */ + if (!irref_isk(ref) && (as->weakset & allow)) { + IRIns *ir = IR(ref); + if (!rset_test(as->weakset, ir->r)) + ref = regcost_ref(as->cost[rset_pickbot((as->weakset & allow))]); + } + return ra_restore(as, ref); +} + +/* Pick any register (marked as free). Evict on-demand. */ +static Reg ra_pick(ASMState *as, RegSet allow) +{ + RegSet pick = as->freeset & allow; + if (!pick) + return ra_evict(as, allow); + else + return rset_picktop(pick); +} + +/* Get a scratch register (marked as free). */ +static Reg ra_scratch(ASMState *as, RegSet allow) +{ + Reg r = ra_pick(as, allow); + ra_modified(as, r); + RA_DBGX((as, "scratch $r", r)); + return r; +} + +/* Evict all registers from a set (if not free). */ +static void ra_evictset(ASMState *as, RegSet drop) +{ + RegSet work; + as->modset |= drop; +#if !LJ_SOFTFP + work = (drop & ~as->freeset) & RSET_FPR; + while (work) { + Reg r = rset_pickbot(work); + ra_restore(as, regcost_ref(as->cost[r])); + rset_clear(work, r); + checkmclim(as); + } +#endif + work = (drop & ~as->freeset); + while (work) { + Reg r = rset_pickbot(work); + ra_restore(as, regcost_ref(as->cost[r])); + rset_clear(work, r); + checkmclim(as); + } +} + +/* Evict (rematerialize) all registers allocated to constants. */ +static void ra_evictk(ASMState *as) +{ + RegSet work; +#if !LJ_SOFTFP + work = ~as->freeset & RSET_FPR; + while (work) { + Reg r = rset_pickbot(work); + IRRef ref = regcost_ref(as->cost[r]); + if (emit_canremat(ref) && irref_isk(ref)) { + ra_rematk(as, ref); + checkmclim(as); + } + rset_clear(work, r); + } +#endif + work = ~as->freeset & RSET_GPR; + while (work) { + Reg r = rset_pickbot(work); + IRRef ref = regcost_ref(as->cost[r]); + if (emit_canremat(ref) && irref_isk(ref)) { + ra_rematk(as, ref); + checkmclim(as); + } + rset_clear(work, r); + } +} + +#ifdef RID_NUM_KREF +/* Allocate a register for a constant. */ +static Reg ra_allock(ASMState *as, int32_t k, RegSet allow) +{ + /* First try to find a register which already holds the same constant. */ + RegSet pick, work = ~as->freeset & RSET_GPR; + Reg r; + while (work) { + IRRef ref; + r = rset_pickbot(work); + ref = regcost_ref(as->cost[r]); + if (ref < ASMREF_L && + k == (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i)) + return r; + rset_clear(work, r); + } + pick = as->freeset & allow; + if (pick) { + /* Constants should preferably get unmodified registers. */ + if ((pick & ~as->modset)) + pick &= ~as->modset; + r = rset_pickbot(pick); /* Reduce conflicts with inverse allocation. */ + } else { + r = ra_evict(as, allow); + } + RA_DBGX((as, "allock $x $r", k, r)); + ra_setkref(as, r, k); + rset_clear(as->freeset, r); + ra_noweak(as, r); + return r; +} + +/* Allocate a specific register for a constant. */ +static void ra_allockreg(ASMState *as, int32_t k, Reg r) +{ + Reg kr = ra_allock(as, k, RID2RSET(r)); + if (kr != r) { + IRIns irdummy; + irdummy.t.irt = IRT_INT; + ra_scratch(as, RID2RSET(r)); + emit_movrr(as, &irdummy, r, kr); + } +} +#else +#define ra_allockreg(as, k, r) emit_loadi(as, (r), (k)) +#endif + +/* Allocate a register for ref from the allowed set of registers. +** Note: this function assumes the ref does NOT have a register yet! +** Picks an optimal register, sets the cost and marks the register as non-free. +*/ +static Reg ra_allocref(ASMState *as, IRRef ref, RegSet allow) +{ + IRIns *ir = IR(ref); + RegSet pick = as->freeset & allow; + Reg r; + lua_assert(ra_noreg(ir->r)); + if (pick) { + /* First check register hint from propagation or PHI. */ + if (ra_hashint(ir->r)) { + r = ra_gethint(ir->r); + if (rset_test(pick, r)) /* Use hint register if possible. */ + goto found; + /* Rematerialization is cheaper than missing a hint. */ + if (rset_test(allow, r) && emit_canremat(regcost_ref(as->cost[r]))) { + ra_rematk(as, regcost_ref(as->cost[r])); + goto found; + } + RA_DBGX((as, "hintmiss $f $r", ref, r)); + } + /* Invariants should preferably get unmodified registers. */ + if (ref < as->loopref && !irt_isphi(ir->t)) { + if ((pick & ~as->modset)) + pick &= ~as->modset; + r = rset_pickbot(pick); /* Reduce conflicts with inverse allocation. */ + } else { + /* We've got plenty of regs, so get callee-save regs if possible. */ + if (RID_NUM_GPR > 8 && (pick & ~RSET_SCRATCH)) + pick &= ~RSET_SCRATCH; + r = rset_picktop(pick); + } + } else { + r = ra_evict(as, allow); + } +found: + RA_DBGX((as, "alloc $f $r", ref, r)); + ir->r = (uint8_t)r; + rset_clear(as->freeset, r); + ra_noweak(as, r); + as->cost[r] = REGCOST_REF_T(ref, irt_t(ir->t)); + return r; +} + +/* Allocate a register on-demand. */ +static Reg ra_alloc1(ASMState *as, IRRef ref, RegSet allow) +{ + Reg r = IR(ref)->r; + /* Note: allow is ignored if the register is already allocated. */ + if (ra_noreg(r)) r = ra_allocref(as, ref, allow); + ra_noweak(as, r); + return r; +} + +/* Rename register allocation and emit move. */ +static void ra_rename(ASMState *as, Reg down, Reg up) +{ + IRRef ren, ref = regcost_ref(as->cost[up] = as->cost[down]); + IRIns *ir = IR(ref); + ir->r = (uint8_t)up; + as->cost[down] = 0; + lua_assert((down < RID_MAX_GPR) == (up < RID_MAX_GPR)); + lua_assert(!rset_test(as->freeset, down) && rset_test(as->freeset, up)); + ra_free(as, down); /* 'down' is free ... */ + ra_modified(as, down); + rset_clear(as->freeset, up); /* ... and 'up' is now allocated. */ + ra_noweak(as, up); + RA_DBGX((as, "rename $f $r $r", regcost_ref(as->cost[up]), down, up)); + emit_movrr(as, ir, down, up); /* Backwards codegen needs inverse move. */ + if (!ra_hasspill(IR(ref)->s)) { /* Add the rename to the IR. */ + lj_ir_set(as->J, IRT(IR_RENAME, IRT_NIL), ref, as->snapno); + ren = tref_ref(lj_ir_emit(as->J)); + as->ir = as->T->ir; /* The IR may have been reallocated. */ + IR(ren)->r = (uint8_t)down; + IR(ren)->s = SPS_NONE; + } +} + +/* Pick a destination register (marked as free). +** Caveat: allow is ignored if there's already a destination register. +** Use ra_destreg() to get a specific register. +*/ +static Reg ra_dest(ASMState *as, IRIns *ir, RegSet allow) +{ + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + } else { + if (ra_hashint(dest) && rset_test((as->freeset&allow), ra_gethint(dest))) { + dest = ra_gethint(dest); + ra_modified(as, dest); + RA_DBGX((as, "dest $r", dest)); + } else { + dest = ra_scratch(as, allow); + } + ir->r = dest; + } + if (LJ_UNLIKELY(ra_hasspill(ir->s))) ra_save(as, ir, dest); + return dest; +} + +/* Force a specific destination register (marked as free). */ +static void ra_destreg(ASMState *as, IRIns *ir, Reg r) +{ + Reg dest = ra_dest(as, ir, RID2RSET(r)); + if (dest != r) { + lua_assert(rset_test(as->freeset, r)); + ra_modified(as, r); + emit_movrr(as, ir, dest, r); + } +} + +#if LJ_TARGET_X86ORX64 +/* Propagate dest register to left reference. Emit moves as needed. +** This is a required fixup step for all 2-operand machine instructions. +*/ +static void ra_left(ASMState *as, Reg dest, IRRef lref) +{ + IRIns *ir = IR(lref); + Reg left = ir->r; + if (ra_noreg(left)) { + if (irref_isk(lref)) { + if (ir->o == IR_KNUM) { + cTValue *tv = ir_knum(ir); + /* FP remat needs a load except for +0. Still better than eviction. */ + if (tvispzero(tv) || !(as->freeset & RSET_FPR)) { + emit_loadn(as, dest, tv); + return; + } +#if LJ_64 + } else if (ir->o == IR_KINT64) { + emit_loadu64(as, dest, ir_kint64(ir)->u64); + return; +#endif + } else { + lua_assert(ir->o == IR_KINT || ir->o == IR_KGC || + ir->o == IR_KPTR || ir->o == IR_KKPTR || ir->o == IR_KNULL); + emit_loadi(as, dest, ir->i); + return; + } + } + if (!ra_hashint(left) && !iscrossref(as, lref)) + ra_sethint(ir->r, dest); /* Propagate register hint. */ + left = ra_allocref(as, lref, dest < RID_MAX_GPR ? RSET_GPR : RSET_FPR); + } + ra_noweak(as, left); + /* Move needed for true 3-operand instruction: y=a+b ==> y=a; y+=b. */ + if (dest != left) { + /* Use register renaming if dest is the PHI reg. */ + if (irt_isphi(ir->t) && as->phireg[dest] == lref) { + ra_modified(as, left); + ra_rename(as, left, dest); + } else { + emit_movrr(as, ir, dest, left); + } + } +} +#else +/* Similar to ra_left, except we override any hints. */ +static void ra_leftov(ASMState *as, Reg dest, IRRef lref) +{ + IRIns *ir = IR(lref); + Reg left = ir->r; + if (ra_noreg(left)) { + ra_sethint(ir->r, dest); /* Propagate register hint. */ + left = ra_allocref(as, lref, + (LJ_SOFTFP || dest < RID_MAX_GPR) ? RSET_GPR : RSET_FPR); + } + ra_noweak(as, left); + if (dest != left) { + /* Use register renaming if dest is the PHI reg. */ + if (irt_isphi(ir->t) && as->phireg[dest] == lref) { + ra_modified(as, left); + ra_rename(as, left, dest); + } else { + emit_movrr(as, ir, dest, left); + } + } +} +#endif + +#if !LJ_64 +/* Force a RID_RETLO/RID_RETHI destination register pair (marked as free). */ +static void ra_destpair(ASMState *as, IRIns *ir) +{ + Reg destlo = ir->r, desthi = (ir+1)->r; + /* First spill unrelated refs blocking the destination registers. */ + if (!rset_test(as->freeset, RID_RETLO) && + destlo != RID_RETLO && desthi != RID_RETLO) + ra_restore(as, regcost_ref(as->cost[RID_RETLO])); + if (!rset_test(as->freeset, RID_RETHI) && + destlo != RID_RETHI && desthi != RID_RETHI) + ra_restore(as, regcost_ref(as->cost[RID_RETHI])); + /* Next free the destination registers (if any). */ + if (ra_hasreg(destlo)) { + ra_free(as, destlo); + ra_modified(as, destlo); + } else { + destlo = RID_RETLO; + } + if (ra_hasreg(desthi)) { + ra_free(as, desthi); + ra_modified(as, desthi); + } else { + desthi = RID_RETHI; + } + /* Check for conflicts and shuffle the registers as needed. */ + if (destlo == RID_RETHI) { + if (desthi == RID_RETLO) { +#if LJ_TARGET_X86 + *--as->mcp = XI_XCHGa + RID_RETHI; +#else + emit_movrr(as, ir, RID_RETHI, RID_TMP); + emit_movrr(as, ir, RID_RETLO, RID_RETHI); + emit_movrr(as, ir, RID_TMP, RID_RETLO); +#endif + } else { + emit_movrr(as, ir, RID_RETHI, RID_RETLO); + if (desthi != RID_RETHI) emit_movrr(as, ir, desthi, RID_RETHI); + } + } else if (desthi == RID_RETLO) { + emit_movrr(as, ir, RID_RETLO, RID_RETHI); + if (destlo != RID_RETLO) emit_movrr(as, ir, destlo, RID_RETLO); + } else { + if (desthi != RID_RETHI) emit_movrr(as, ir, desthi, RID_RETHI); + if (destlo != RID_RETLO) emit_movrr(as, ir, destlo, RID_RETLO); + } + /* Restore spill slots (if any). */ + if (ra_hasspill((ir+1)->s)) ra_save(as, ir+1, RID_RETHI); + if (ra_hasspill(ir->s)) ra_save(as, ir, RID_RETLO); +} +#endif + +/* -- Snapshot handling --------- ----------------------------------------- */ + +/* Can we rematerialize a KNUM instead of forcing a spill? */ +static int asm_snap_canremat(ASMState *as) +{ + Reg r; + for (r = RID_MIN_FPR; r < RID_MAX_FPR; r++) + if (irref_isk(regcost_ref(as->cost[r]))) + return 1; + return 0; +} + +/* Check whether a sunk store corresponds to an allocation. */ +static int asm_sunk_store(ASMState *as, IRIns *ira, IRIns *irs) +{ + if (irs->s == 255) { + if (irs->o == IR_ASTORE || irs->o == IR_HSTORE || + irs->o == IR_FSTORE || irs->o == IR_XSTORE) { + IRIns *irk = IR(irs->op1); + if (irk->o == IR_AREF || irk->o == IR_HREFK) + irk = IR(irk->op1); + return (IR(irk->op1) == ira); + } + return 0; + } else { + return (ira + irs->s == irs); /* Quick check. */ + } +} + +/* Allocate register or spill slot for a ref that escapes to a snapshot. */ +static void asm_snap_alloc1(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (!irref_isk(ref) && (!(ra_used(ir) || ir->r == RID_SUNK))) { + if (ir->r == RID_SINK) { + ir->r = RID_SUNK; +#if LJ_HASFFI + if (ir->o == IR_CNEWI) { /* Allocate CNEWI value. */ + asm_snap_alloc1(as, ir->op2); + if (LJ_32 && (ir+1)->o == IR_HIOP) + asm_snap_alloc1(as, (ir+1)->op2); + } else +#endif + { /* Allocate stored values for TNEW, TDUP and CNEW. */ + IRIns *irs; + lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || ir->o == IR_CNEW); + for (irs = IR(as->snapref-1); irs > ir; irs--) + if (irs->r == RID_SINK && asm_sunk_store(as, ir, irs)) { + lua_assert(irs->o == IR_ASTORE || irs->o == IR_HSTORE || + irs->o == IR_FSTORE || irs->o == IR_XSTORE); + asm_snap_alloc1(as, irs->op2); + if (LJ_32 && (irs+1)->o == IR_HIOP) + asm_snap_alloc1(as, (irs+1)->op2); + } + } + } else { + RegSet allow; + if (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT) { + IRIns *irc; + for (irc = IR(as->curins); irc > ir; irc--) + if ((irc->op1 == ref || irc->op2 == ref) && + !(irc->r == RID_SINK || irc->r == RID_SUNK)) + goto nosink; /* Don't sink conversion if result is used. */ + asm_snap_alloc1(as, ir->op1); + return; + } + nosink: + allow = (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR; + if ((as->freeset & allow) || + (allow == RSET_FPR && asm_snap_canremat(as))) { + /* Get a weak register if we have a free one or can rematerialize. */ + Reg r = ra_allocref(as, ref, allow); /* Allocate a register. */ + if (!irt_isphi(ir->t)) + ra_weak(as, r); /* But mark it as weakly referenced. */ + checkmclim(as); + RA_DBGX((as, "snapreg $f $r", ref, ir->r)); + } else { + ra_spill(as, ir); /* Otherwise force a spill slot. */ + RA_DBGX((as, "snapspill $f $s", ref, ir->s)); + } + } + } +} + +/* Allocate refs escaping to a snapshot. */ +static void asm_snap_alloc(ASMState *as) +{ + SnapShot *snap = &as->T->snap[as->snapno]; + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + IRRef ref = snap_ref(sn); + if (!irref_isk(ref)) { + asm_snap_alloc1(as, ref); + if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM)) { + lua_assert(irt_type(IR(ref+1)->t) == IRT_SOFTFP); + asm_snap_alloc1(as, ref+1); + } + } + } +} + +/* All guards for a snapshot use the same exitno. This is currently the +** same as the snapshot number. Since the exact origin of the exit cannot +** be determined, all guards for the same snapshot must exit with the same +** RegSP mapping. +** A renamed ref which has been used in a prior guard for the same snapshot +** would cause an inconsistency. The easy way out is to force a spill slot. +*/ +static int asm_snap_checkrename(ASMState *as, IRRef ren) +{ + SnapShot *snap = &as->T->snap[as->snapno]; + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + IRRef ref = snap_ref(sn); + if (ref == ren || (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && ++ref == ren)) { + IRIns *ir = IR(ref); + ra_spill(as, ir); /* Register renamed, so force a spill slot. */ + RA_DBGX((as, "snaprensp $f $s", ref, ir->s)); + return 1; /* Found. */ + } + } + return 0; /* Not found. */ +} + +/* Prepare snapshot for next guard instruction. */ +static void asm_snap_prep(ASMState *as) +{ + if (as->curins < as->snapref) { + do { + if (as->snapno == 0) return; /* Called by sunk stores before snap #0. */ + as->snapno--; + as->snapref = as->T->snap[as->snapno].ref; + } while (as->curins < as->snapref); + asm_snap_alloc(as); + as->snaprename = as->T->nins; + } else { + /* Process any renames above the highwater mark. */ + for (; as->snaprename < as->T->nins; as->snaprename++) { + IRIns *ir = IR(as->snaprename); + if (asm_snap_checkrename(as, ir->op1)) + ir->op2 = REF_BIAS-1; /* Kill rename. */ + } + } +} + +/* -- Miscellaneous helpers ----------------------------------------------- */ + +/* Collect arguments from CALL* and CARG instructions. */ +static void asm_collectargs(ASMState *as, IRIns *ir, + const CCallInfo *ci, IRRef *args) +{ + uint32_t n = CCI_NARGS(ci); + lua_assert(n <= CCI_NARGS_MAX*2); /* Account for split args. */ + if ((ci->flags & CCI_L)) { *args++ = ASMREF_L; n--; } + while (n-- > 1) { + ir = IR(ir->op1); + lua_assert(ir->o == IR_CARG); + args[n] = ir->op2 == REF_NIL ? 0 : ir->op2; + } + args[0] = ir->op1 == REF_NIL ? 0 : ir->op1; + lua_assert(IR(ir->op1)->o != IR_CARG); +} + +/* Reconstruct CCallInfo flags for CALLX*. */ +static uint32_t asm_callx_flags(ASMState *as, IRIns *ir) +{ + uint32_t nargs = 0; + if (ir->op1 != REF_NIL) { /* Count number of arguments first. */ + IRIns *ira = IR(ir->op1); + nargs++; + while (ira->o == IR_CARG) { nargs++; ira = IR(ira->op1); } + } +#if LJ_HASFFI + if (IR(ir->op2)->o == IR_CARG) { /* Copy calling convention info. */ + CTypeID id = (CTypeID)IR(IR(ir->op2)->op2)->i; + CType *ct = ctype_get(ctype_ctsG(J2G(as->J)), id); + nargs |= ((ct->info & CTF_VARARG) ? CCI_VARARG : 0); +#if LJ_TARGET_X86 + nargs |= (ctype_cconv(ct->info) << CCI_CC_SHIFT); +#endif + } +#endif + return (nargs | (ir->t.irt << CCI_OTSHIFT)); +} + +/* Calculate stack adjustment. */ +static int32_t asm_stack_adjust(ASMState *as) +{ + if (as->evenspill <= SPS_FIXED) + return 0; + return sps_scale(sps_align(as->evenspill)); +} + +/* Must match with hash*() in lj_tab.c. */ +static uint32_t ir_khash(IRIns *ir) +{ + uint32_t lo, hi; + if (irt_isstr(ir->t)) { + return ir_kstr(ir)->hash; + } else if (irt_isnum(ir->t)) { + lo = ir_knum(ir)->u32.lo; + hi = ir_knum(ir)->u32.hi << 1; + } else if (irt_ispri(ir->t)) { + lua_assert(!irt_isnil(ir->t)); + return irt_type(ir->t)-IRT_FALSE; + } else { + lua_assert(irt_isgcv(ir->t)); + lo = u32ptr(ir_kgc(ir)); + hi = lo + HASH_BIAS; + } + return hashrot(lo, hi); +} + +/* -- Allocations --------------------------------------------------------- */ + +static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args); +static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci); + +static void asm_snew(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_new]; + IRRef args[3]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* const char *str */ + args[2] = ir->op2; /* size_t len */ + as->gcsteps++; + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); +} + +static void asm_tnew(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_new1]; + IRRef args[2]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* uint32_t ahsize */ + as->gcsteps++; + asm_setupresult(as, ir, ci); /* GCtab * */ + asm_gencall(as, ci, args); + ra_allockreg(as, ir->op1 | (ir->op2 << 24), ra_releasetmp(as, ASMREF_TMP1)); +} + +static void asm_tdup(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_dup]; + IRRef args[2]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* const GCtab *kt */ + as->gcsteps++; + asm_setupresult(as, ir, ci); /* GCtab * */ + asm_gencall(as, ci, args); +} + +static void asm_gc_check(ASMState *as); + +/* Explicit GC step. */ +static void asm_gcstep(ASMState *as, IRIns *ir) +{ + IRIns *ira; + for (ira = IR(as->stopins+1); ira < ir; ira++) + if ((ira->o == IR_TNEW || ira->o == IR_TDUP || + (LJ_HASFFI && (ira->o == IR_CNEW || ira->o == IR_CNEWI))) && + ra_used(ira)) + as->gcsteps++; + if (as->gcsteps) + asm_gc_check(as); + as->gcsteps = 0x80000000; /* Prevent implicit GC check further up. */ +} + +/* -- PHI and loop handling ----------------------------------------------- */ + +/* Break a PHI cycle by renaming to a free register (evict if needed). */ +static void asm_phi_break(ASMState *as, RegSet blocked, RegSet blockedby, + RegSet allow) +{ + RegSet candidates = blocked & allow; + if (candidates) { /* If this register file has candidates. */ + /* Note: the set for ra_pick cannot be empty, since each register file + ** has some registers never allocated to PHIs. + */ + Reg down, up = ra_pick(as, ~blocked & allow); /* Get a free register. */ + if (candidates & ~blockedby) /* Optimize shifts, else it's a cycle. */ + candidates = candidates & ~blockedby; + down = rset_picktop(candidates); /* Pick candidate PHI register. */ + ra_rename(as, down, up); /* And rename it to the free register. */ + } +} + +/* PHI register shuffling. +** +** The allocator tries hard to preserve PHI register assignments across +** the loop body. Most of the time this loop does nothing, since there +** are no register mismatches. +** +** If a register mismatch is detected and ... +** - the register is currently free: rename it. +** - the register is blocked by an invariant: restore/remat and rename it. +** - Otherwise the register is used by another PHI, so mark it as blocked. +** +** The renames are order-sensitive, so just retry the loop if a register +** is marked as blocked, but has been freed in the meantime. A cycle is +** detected if all of the blocked registers are allocated. To break the +** cycle rename one of them to a free register and retry. +** +** Note that PHI spill slots are kept in sync and don't need to be shuffled. +*/ +static void asm_phi_shuffle(ASMState *as) +{ + RegSet work; + + /* Find and resolve PHI register mismatches. */ + for (;;) { + RegSet blocked = RSET_EMPTY; + RegSet blockedby = RSET_EMPTY; + RegSet phiset = as->phiset; + while (phiset) { /* Check all left PHI operand registers. */ + Reg r = rset_pickbot(phiset); + IRIns *irl = IR(as->phireg[r]); + Reg left = irl->r; + if (r != left) { /* Mismatch? */ + if (!rset_test(as->freeset, r)) { /* PHI register blocked? */ + IRRef ref = regcost_ref(as->cost[r]); + /* Blocked by other PHI (w/reg)? */ + if (!ra_iskref(ref) && irt_ismarked(IR(ref)->t)) { + rset_set(blocked, r); + if (ra_hasreg(left)) + rset_set(blockedby, left); + left = RID_NONE; + } else { /* Otherwise grab register from invariant. */ + ra_restore(as, ref); + checkmclim(as); + } + } + if (ra_hasreg(left)) { + ra_rename(as, left, r); + checkmclim(as); + } + } + rset_clear(phiset, r); + } + if (!blocked) break; /* Finished. */ + if (!(as->freeset & blocked)) { /* Break cycles if none are free. */ + asm_phi_break(as, blocked, blockedby, RSET_GPR); + if (!LJ_SOFTFP) asm_phi_break(as, blocked, blockedby, RSET_FPR); + checkmclim(as); + } /* Else retry some more renames. */ + } + + /* Restore/remat invariants whose registers are modified inside the loop. */ +#if !LJ_SOFTFP + work = as->modset & ~(as->freeset | as->phiset) & RSET_FPR; + while (work) { + Reg r = rset_pickbot(work); + ra_restore(as, regcost_ref(as->cost[r])); + rset_clear(work, r); + checkmclim(as); + } +#endif + work = as->modset & ~(as->freeset | as->phiset); + while (work) { + Reg r = rset_pickbot(work); + ra_restore(as, regcost_ref(as->cost[r])); + rset_clear(work, r); + checkmclim(as); + } + + /* Allocate and save all unsaved PHI regs and clear marks. */ + work = as->phiset; + while (work) { + Reg r = rset_picktop(work); + IRRef lref = as->phireg[r]; + IRIns *ir = IR(lref); + if (ra_hasspill(ir->s)) { /* Left PHI gained a spill slot? */ + irt_clearmark(ir->t); /* Handled here, so clear marker now. */ + ra_alloc1(as, lref, RID2RSET(r)); + ra_save(as, ir, r); /* Save to spill slot inside the loop. */ + checkmclim(as); + } + rset_clear(work, r); + } +} + +/* Copy unsynced left/right PHI spill slots. Rarely needed. */ +static void asm_phi_copyspill(ASMState *as) +{ + int need = 0; + IRIns *ir; + for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) + if (ra_hasspill(ir->s) && ra_hasspill(IR(ir->op1)->s)) + need |= irt_isfp(ir->t) ? 2 : 1; /* Unsynced spill slot? */ + if ((need & 1)) { /* Copy integer spill slots. */ +#if !LJ_TARGET_X86ORX64 + Reg r = RID_TMP; +#else + Reg r = RID_RET; + if ((as->freeset & RSET_GPR)) + r = rset_pickbot((as->freeset & RSET_GPR)); + else + emit_spload(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); +#endif + for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) { + if (ra_hasspill(ir->s)) { + IRIns *irl = IR(ir->op1); + if (ra_hasspill(irl->s) && !irt_isfp(ir->t)) { + emit_spstore(as, irl, r, sps_scale(irl->s)); + emit_spload(as, ir, r, sps_scale(ir->s)); + checkmclim(as); + } + } + } +#if LJ_TARGET_X86ORX64 + if (!rset_test(as->freeset, r)) + emit_spstore(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); +#endif + } +#if !LJ_SOFTFP + if ((need & 2)) { /* Copy FP spill slots. */ +#if LJ_TARGET_X86 + Reg r = RID_XMM0; +#else + Reg r = RID_FPRET; +#endif + if ((as->freeset & RSET_FPR)) + r = rset_pickbot((as->freeset & RSET_FPR)); + if (!rset_test(as->freeset, r)) + emit_spload(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); + for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) { + if (ra_hasspill(ir->s)) { + IRIns *irl = IR(ir->op1); + if (ra_hasspill(irl->s) && irt_isfp(ir->t)) { + emit_spstore(as, irl, r, sps_scale(irl->s)); + emit_spload(as, ir, r, sps_scale(ir->s)); + checkmclim(as); + } + } + } + if (!rset_test(as->freeset, r)) + emit_spstore(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); + } +#endif +} + +/* Emit renames for left PHIs which are only spilled outside the loop. */ +static void asm_phi_fixup(ASMState *as) +{ + RegSet work = as->phiset; + while (work) { + Reg r = rset_picktop(work); + IRRef lref = as->phireg[r]; + IRIns *ir = IR(lref); + if (irt_ismarked(ir->t)) { + irt_clearmark(ir->t); + /* Left PHI gained a spill slot before the loop? */ + if (ra_hasspill(ir->s)) { + IRRef ren; + lj_ir_set(as->J, IRT(IR_RENAME, IRT_NIL), lref, as->loopsnapno); + ren = tref_ref(lj_ir_emit(as->J)); + as->ir = as->T->ir; /* The IR may have been reallocated. */ + IR(ren)->r = (uint8_t)r; + IR(ren)->s = SPS_NONE; + } + } + rset_clear(work, r); + } +} + +/* Setup right PHI reference. */ +static void asm_phi(ASMState *as, IRIns *ir) +{ + RegSet allow = ((!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR) & + ~as->phiset; + RegSet afree = (as->freeset & allow); + IRIns *irl = IR(ir->op1); + IRIns *irr = IR(ir->op2); + if (ir->r == RID_SINK) /* Sink PHI. */ + return; + /* Spill slot shuffling is not implemented yet (but rarely needed). */ + if (ra_hasspill(irl->s) || ra_hasspill(irr->s)) + lj_trace_err(as->J, LJ_TRERR_NYIPHI); + /* Leave at least one register free for non-PHIs (and PHI cycle breaking). */ + if ((afree & (afree-1))) { /* Two or more free registers? */ + Reg r; + if (ra_noreg(irr->r)) { /* Get a register for the right PHI. */ + r = ra_allocref(as, ir->op2, allow); + } else { /* Duplicate right PHI, need a copy (rare). */ + r = ra_scratch(as, allow); + emit_movrr(as, irr, r, irr->r); + } + ir->r = (uint8_t)r; + rset_set(as->phiset, r); + as->phireg[r] = (IRRef1)ir->op1; + irt_setmark(irl->t); /* Marks left PHIs _with_ register. */ + if (ra_noreg(irl->r)) + ra_sethint(irl->r, r); /* Set register hint for left PHI. */ + } else { /* Otherwise allocate a spill slot. */ + /* This is overly restrictive, but it triggers only on synthetic code. */ + if (ra_hasreg(irl->r) || ra_hasreg(irr->r)) + lj_trace_err(as->J, LJ_TRERR_NYIPHI); + ra_spill(as, ir); + irr->s = ir->s; /* Set right PHI spill slot. Sync left slot later. */ + } +} + +static void asm_loop_fixup(ASMState *as); + +/* Middle part of a loop. */ +static void asm_loop(ASMState *as) +{ + MCode *mcspill; + /* LOOP is a guard, so the snapno is up to date. */ + as->loopsnapno = as->snapno; + if (as->gcsteps) + asm_gc_check(as); + /* LOOP marks the transition from the variant to the invariant part. */ + as->flagmcp = as->invmcp = NULL; + as->sectref = 0; + if (!neverfuse(as)) as->fuseref = 0; + asm_phi_shuffle(as); + mcspill = as->mcp; + asm_phi_copyspill(as); + asm_loop_fixup(as); + as->mcloop = as->mcp; + RA_DBGX((as, "===== LOOP =====")); + if (!as->realign) RA_DBG_FLUSH(); + if (as->mcp != mcspill) + emit_jmp(as, mcspill); +} + +/* -- Target-specific assembler ------------------------------------------- */ + +#if LJ_TARGET_X86ORX64 +#include "lj_asm_x86.h" +#elif LJ_TARGET_ARM +#include "lj_asm_arm.h" +#elif LJ_TARGET_PPC +#include "lj_asm_ppc.h" +#elif LJ_TARGET_MIPS +#include "lj_asm_mips.h" +#else +#error "Missing assembler for target CPU" +#endif + +/* -- Head of trace ------------------------------------------------------- */ + +/* Head of a root trace. */ +static void asm_head_root(ASMState *as) +{ + int32_t spadj; + asm_head_root_base(as); + emit_setvmstate(as, (int32_t)as->T->traceno); + spadj = asm_stack_adjust(as); + as->T->spadjust = (uint16_t)spadj; + emit_spsub(as, spadj); + /* Root traces assume a checked stack for the starting proto. */ + as->T->topslot = gcref(as->T->startpt)->pt.framesize; +} + +/* Head of a side trace. +** +** The current simplistic algorithm requires that all slots inherited +** from the parent are live in a register between pass 2 and pass 3. This +** avoids the complexity of stack slot shuffling. But of course this may +** overflow the register set in some cases and cause the dreaded error: +** "NYI: register coalescing too complex". A refined algorithm is needed. +*/ +static void asm_head_side(ASMState *as) +{ + IRRef1 sloadins[RID_MAX]; + RegSet allow = RSET_ALL; /* Inverse of all coalesced registers. */ + RegSet live = RSET_EMPTY; /* Live parent registers. */ + IRIns *irp = &as->parent->ir[REF_BASE]; /* Parent base. */ + int32_t spadj, spdelta; + int pass2 = 0; + int pass3 = 0; + IRRef i; + + if (as->snapno && as->topslot > as->parent->topslot) { + /* Force snap #0 alloc to prevent register overwrite in stack check. */ + as->snapno = 0; + asm_snap_alloc(as); + } + allow = asm_head_side_base(as, irp, allow); + + /* Scan all parent SLOADs and collect register dependencies. */ + for (i = as->stopins; i > REF_BASE; i--) { + IRIns *ir = IR(i); + RegSP rs; + lua_assert((ir->o == IR_SLOAD && (ir->op2 & IRSLOAD_PARENT)) || + (LJ_SOFTFP && ir->o == IR_HIOP) || ir->o == IR_PVAL); + rs = as->parentmap[i - REF_FIRST]; + if (ra_hasreg(ir->r)) { + rset_clear(allow, ir->r); + if (ra_hasspill(ir->s)) { + ra_save(as, ir, ir->r); + checkmclim(as); + } + } else if (ra_hasspill(ir->s)) { + irt_setmark(ir->t); + pass2 = 1; + } + if (ir->r == rs) { /* Coalesce matching registers right now. */ + ra_free(as, ir->r); + } else if (ra_hasspill(regsp_spill(rs))) { + if (ra_hasreg(ir->r)) + pass3 = 1; + } else if (ra_used(ir)) { + sloadins[rs] = (IRRef1)i; + rset_set(live, rs); /* Block live parent register. */ + } + } + + /* Calculate stack frame adjustment. */ + spadj = asm_stack_adjust(as); + spdelta = spadj - (int32_t)as->parent->spadjust; + if (spdelta < 0) { /* Don't shrink the stack frame. */ + spadj = (int32_t)as->parent->spadjust; + spdelta = 0; + } + as->T->spadjust = (uint16_t)spadj; + + /* Reload spilled target registers. */ + if (pass2) { + for (i = as->stopins; i > REF_BASE; i--) { + IRIns *ir = IR(i); + if (irt_ismarked(ir->t)) { + RegSet mask; + Reg r; + RegSP rs; + irt_clearmark(ir->t); + rs = as->parentmap[i - REF_FIRST]; + if (!ra_hasspill(regsp_spill(rs))) + ra_sethint(ir->r, rs); /* Hint may be gone, set it again. */ + else if (sps_scale(regsp_spill(rs))+spdelta == sps_scale(ir->s)) + continue; /* Same spill slot, do nothing. */ + mask = ((!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR) & allow; + if (mask == RSET_EMPTY) + lj_trace_err(as->J, LJ_TRERR_NYICOAL); + r = ra_allocref(as, i, mask); + ra_save(as, ir, r); + rset_clear(allow, r); + if (r == rs) { /* Coalesce matching registers right now. */ + ra_free(as, r); + rset_clear(live, r); + } else if (ra_hasspill(regsp_spill(rs))) { + pass3 = 1; + } + checkmclim(as); + } + } + } + + /* Store trace number and adjust stack frame relative to the parent. */ + emit_setvmstate(as, (int32_t)as->T->traceno); + emit_spsub(as, spdelta); + +#if !LJ_TARGET_X86ORX64 + /* Restore BASE register from parent spill slot. */ + if (ra_hasspill(irp->s)) + emit_spload(as, IR(REF_BASE), IR(REF_BASE)->r, sps_scale(irp->s)); +#endif + + /* Restore target registers from parent spill slots. */ + if (pass3) { + RegSet work = ~as->freeset & RSET_ALL; + while (work) { + Reg r = rset_pickbot(work); + IRRef ref = regcost_ref(as->cost[r]); + RegSP rs = as->parentmap[ref - REF_FIRST]; + rset_clear(work, r); + if (ra_hasspill(regsp_spill(rs))) { + int32_t ofs = sps_scale(regsp_spill(rs)); + ra_free(as, r); + emit_spload(as, IR(ref), r, ofs); + checkmclim(as); + } + } + } + + /* Shuffle registers to match up target regs with parent regs. */ + for (;;) { + RegSet work; + + /* Repeatedly coalesce free live registers by moving to their target. */ + while ((work = as->freeset & live) != RSET_EMPTY) { + Reg rp = rset_pickbot(work); + IRIns *ir = IR(sloadins[rp]); + rset_clear(live, rp); + rset_clear(allow, rp); + ra_free(as, ir->r); + emit_movrr(as, ir, ir->r, rp); + checkmclim(as); + } + + /* We're done if no live registers remain. */ + if (live == RSET_EMPTY) + break; + + /* Break cycles by renaming one target to a temp. register. */ + if (live & RSET_GPR) { + RegSet tmpset = as->freeset & ~live & allow & RSET_GPR; + if (tmpset == RSET_EMPTY) + lj_trace_err(as->J, LJ_TRERR_NYICOAL); + ra_rename(as, rset_pickbot(live & RSET_GPR), rset_pickbot(tmpset)); + } + if (!LJ_SOFTFP && (live & RSET_FPR)) { + RegSet tmpset = as->freeset & ~live & allow & RSET_FPR; + if (tmpset == RSET_EMPTY) + lj_trace_err(as->J, LJ_TRERR_NYICOAL); + ra_rename(as, rset_pickbot(live & RSET_FPR), rset_pickbot(tmpset)); + } + checkmclim(as); + /* Continue with coalescing to fix up the broken cycle(s). */ + } + + /* Inherit top stack slot already checked by parent trace. */ + as->T->topslot = as->parent->topslot; + if (as->topslot > as->T->topslot) { /* Need to check for higher slot? */ +#ifdef EXITSTATE_CHECKEXIT + /* Highest exit + 1 indicates stack check. */ + ExitNo exitno = as->T->nsnap; +#else + /* Reuse the parent exit in the context of the parent trace. */ + ExitNo exitno = as->J->exitno; +#endif + as->T->topslot = (uint8_t)as->topslot; /* Remember for child traces. */ + asm_stack_check(as, as->topslot, irp, allow & RSET_GPR, exitno); + } +} + +/* -- Tail of trace ------------------------------------------------------- */ + +/* Get base slot for a snapshot. */ +static BCReg asm_baseslot(ASMState *as, SnapShot *snap, int *gotframe) +{ + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + MSize n; + for (n = snap->nent; n > 0; n--) { + SnapEntry sn = map[n-1]; + if ((sn & SNAP_FRAME)) { + *gotframe = 1; + return snap_slot(sn); + } + } + return 0; +} + +/* Link to another trace. */ +static void asm_tail_link(ASMState *as) +{ + SnapNo snapno = as->T->nsnap-1; /* Last snapshot. */ + SnapShot *snap = &as->T->snap[snapno]; + int gotframe = 0; + BCReg baseslot = asm_baseslot(as, snap, &gotframe); + + as->topslot = snap->topslot; + checkmclim(as); + ra_allocref(as, REF_BASE, RID2RSET(RID_BASE)); + + if (as->T->link == 0) { + /* Setup fixed registers for exit to interpreter. */ + const BCIns *pc = snap_pc(as->T->snapmap[snap->mapofs + snap->nent]); + int32_t mres; + if (bc_op(*pc) == BC_JLOOP) { /* NYI: find a better way to do this. */ + BCIns *retpc = &traceref(as->J, bc_d(*pc))->startins; + if (bc_isret(bc_op(*retpc))) + pc = retpc; + } + ra_allockreg(as, i32ptr(J2GG(as->J)->dispatch), RID_DISPATCH); + ra_allockreg(as, i32ptr(pc), RID_LPC); + mres = (int32_t)(snap->nslots - baseslot); + switch (bc_op(*pc)) { + case BC_CALLM: case BC_CALLMT: + mres -= (int32_t)(1 + bc_a(*pc) + bc_c(*pc)); break; + case BC_RETM: mres -= (int32_t)(bc_a(*pc) + bc_d(*pc)); break; + case BC_TSETM: mres -= (int32_t)bc_a(*pc); break; + default: if (bc_op(*pc) < BC_FUNCF) mres = 0; break; + } + ra_allockreg(as, mres, RID_RET); /* Return MULTRES or 0. */ + } else if (baseslot) { + /* Save modified BASE for linking to trace with higher start frame. */ + emit_setgl(as, RID_BASE, jit_base); + } + emit_addptr(as, RID_BASE, 8*(int32_t)baseslot); + + /* Sync the interpreter state with the on-trace state. */ + asm_stack_restore(as, snap); + + /* Root traces that add frames need to check the stack at the end. */ + if (!as->parent && gotframe) + asm_stack_check(as, as->topslot, NULL, as->freeset & RSET_GPR, snapno); +} + +/* -- Trace setup --------------------------------------------------------- */ + +/* Clear reg/sp for all instructions and add register hints. */ +static void asm_setup_regsp(ASMState *as) +{ + GCtrace *T = as->T; + int sink = T->sinktags; + IRRef nins = T->nins; + IRIns *ir, *lastir; + int inloop; +#if LJ_TARGET_ARM + uint32_t rload = 0xa6402a64; +#endif + + ra_setup(as); + + /* Clear reg/sp for constants. */ + for (ir = IR(T->nk), lastir = IR(REF_BASE); ir < lastir; ir++) + ir->prev = REGSP_INIT; + + /* REF_BASE is used for implicit references to the BASE register. */ + lastir->prev = REGSP_HINT(RID_BASE); + + ir = IR(nins-1); + if (ir->o == IR_RENAME) { + do { ir--; nins--; } while (ir->o == IR_RENAME); + T->nins = nins; /* Remove any renames left over from ASM restart. */ + } + as->snaprename = nins; + as->snapref = nins; + as->snapno = T->nsnap; + + as->stopins = REF_BASE; + as->orignins = nins; + as->curins = nins; + + /* Setup register hints for parent link instructions. */ + ir = IR(REF_FIRST); + if (as->parent) { + uint16_t *p; + lastir = lj_snap_regspmap(as->parent, as->J->exitno, ir); + if (lastir - ir > LJ_MAX_JSLOTS) + lj_trace_err(as->J, LJ_TRERR_NYICOAL); + as->stopins = (IRRef)((lastir-1) - as->ir); + for (p = as->parentmap; ir < lastir; ir++) { + RegSP rs = ir->prev; + *p++ = (uint16_t)rs; /* Copy original parent RegSP to parentmap. */ + if (!ra_hasspill(regsp_spill(rs))) + ir->prev = (uint16_t)REGSP_HINT(regsp_reg(rs)); + else + ir->prev = REGSP_INIT; + } + } + + inloop = 0; + as->evenspill = SPS_FIRST; + for (lastir = IR(nins); ir < lastir; ir++) { + if (sink) { + if (ir->r == RID_SINK) + continue; + if (ir->r == RID_SUNK) { /* Revert after ASM restart. */ + ir->r = RID_SINK; + continue; + } + } + switch (ir->o) { + case IR_LOOP: + inloop = 1; + break; +#if LJ_TARGET_ARM + case IR_SLOAD: + if (!((ir->op2 & IRSLOAD_TYPECHECK) || (ir+1)->o == IR_HIOP)) + break; + /* fallthrough */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + if (!LJ_SOFTFP && irt_isnum(ir->t)) break; + ir->prev = (uint16_t)REGSP_HINT((rload & 15)); + rload = lj_ror(rload, 4); + continue; +#endif + case IR_CALLXS: { + CCallInfo ci; + ci.flags = asm_callx_flags(as, ir); + ir->prev = asm_setup_call_slots(as, ir, &ci); + if (inloop) + as->modset |= RSET_SCRATCH; + continue; + } + case IR_CALLN: case IR_CALLL: case IR_CALLS: { + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + ir->prev = asm_setup_call_slots(as, ir, ci); + if (inloop) + as->modset |= (ci->flags & CCI_NOFPRCLOBBER) ? + (RSET_SCRATCH & ~RSET_FPR) : RSET_SCRATCH; + continue; + } +#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) + case IR_HIOP: + switch ((ir-1)->o) { +#if LJ_SOFTFP && LJ_TARGET_ARM + case IR_SLOAD: case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + if (ra_hashint((ir-1)->r)) { + ir->prev = (ir-1)->prev + 1; + continue; + } + break; +#endif +#if !LJ_SOFTFP && LJ_NEED_FP64 + case IR_CONV: + if (irt_isfp((ir-1)->t)) { + ir->prev = REGSP_HINT(RID_FPRET); + continue; + } + /* fallthrough */ +#endif + case IR_CALLN: case IR_CALLXS: +#if LJ_SOFTFP + case IR_MIN: case IR_MAX: +#endif + (ir-1)->prev = REGSP_HINT(RID_RETLO); + ir->prev = REGSP_HINT(RID_RETHI); + continue; + default: + break; + } + break; +#endif +#if LJ_SOFTFP + case IR_MIN: case IR_MAX: + if ((ir+1)->o != IR_HIOP) break; + /* fallthrough */ +#endif + /* C calls evict all scratch regs and return results in RID_RET. */ + case IR_SNEW: case IR_XSNEW: case IR_NEWREF: + if (REGARG_NUMGPR < 3 && as->evenspill < 3) + as->evenspill = 3; /* lj_str_new and lj_tab_newkey need 3 args. */ + case IR_TNEW: case IR_TDUP: case IR_CNEW: case IR_CNEWI: case IR_TOSTR: + ir->prev = REGSP_HINT(RID_RET); + if (inloop) + as->modset = RSET_SCRATCH; + continue; + case IR_STRTO: case IR_OBAR: + if (inloop) + as->modset = RSET_SCRATCH; + break; +#if !LJ_TARGET_X86ORX64 && !LJ_SOFTFP + case IR_ATAN2: case IR_LDEXP: +#endif + case IR_POW: + if (!LJ_SOFTFP && irt_isnum(ir->t)) { +#if LJ_TARGET_X86ORX64 + ir->prev = REGSP_HINT(RID_XMM0); + if (inloop) + as->modset |= RSET_RANGE(RID_XMM0, RID_XMM1+1)|RID2RSET(RID_EAX); +#else + ir->prev = REGSP_HINT(RID_FPRET); + if (inloop) + as->modset |= RSET_SCRATCH; +#endif + continue; + } + /* fallthrough for integer POW */ + case IR_DIV: case IR_MOD: + if (!irt_isnum(ir->t)) { + ir->prev = REGSP_HINT(RID_RET); + if (inloop) + as->modset |= (RSET_SCRATCH & RSET_GPR); + continue; + } + break; + case IR_FPMATH: +#if LJ_TARGET_X86ORX64 + if (ir->op2 == IRFPM_EXP2) { /* May be joined to lj_vm_pow_sse. */ + ir->prev = REGSP_HINT(RID_XMM0); +#if !LJ_64 + if (as->evenspill < 4) /* Leave room for 16 byte scratch area. */ + as->evenspill = 4; +#endif + if (inloop) + as->modset |= RSET_RANGE(RID_XMM0, RID_XMM2+1)|RID2RSET(RID_EAX); + continue; + } else if (ir->op2 <= IRFPM_TRUNC && !(as->flags & JIT_F_SSE4_1)) { + ir->prev = REGSP_HINT(RID_XMM0); + if (inloop) + as->modset |= RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); + continue; + } + break; +#else + ir->prev = REGSP_HINT(RID_FPRET); + if (inloop) + as->modset |= RSET_SCRATCH; + continue; +#endif +#if LJ_TARGET_X86ORX64 + /* Non-constant shift counts need to be in RID_ECX on x86/x64. */ + case IR_BSHL: case IR_BSHR: case IR_BSAR: case IR_BROL: case IR_BROR: + if (!irref_isk(ir->op2) && !ra_hashint(IR(ir->op2)->r)) { + IR(ir->op2)->r = REGSP_HINT(RID_ECX); + if (inloop) + rset_set(as->modset, RID_ECX); + } + break; +#endif + /* Do not propagate hints across type conversions or loads. */ + case IR_TOBIT: + case IR_XLOAD: +#if !LJ_TARGET_ARM + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: +#endif + break; + case IR_CONV: + if (irt_isfp(ir->t) || (ir->op2 & IRCONV_SRCMASK) == IRT_NUM || + (ir->op2 & IRCONV_SRCMASK) == IRT_FLOAT) + break; + /* fallthrough */ + default: + /* Propagate hints across likely 'op reg, imm' or 'op reg'. */ + if (irref_isk(ir->op2) && !irref_isk(ir->op1) && + ra_hashint(regsp_reg(IR(ir->op1)->prev))) { + ir->prev = IR(ir->op1)->prev; + continue; + } + break; + } + ir->prev = REGSP_INIT; + } + if ((as->evenspill & 1)) + as->oddspill = as->evenspill++; + else + as->oddspill = 0; +} + +/* -- Assembler core ------------------------------------------------------ */ + +/* Assemble a trace. */ +void lj_asm_trace(jit_State *J, GCtrace *T) +{ + ASMState as_; + ASMState *as = &as_; + MCode *origtop; + + /* Ensure an initialized instruction beyond the last one for HIOP checks. */ + J->cur.nins = lj_ir_nextins(J); + J->cur.ir[J->cur.nins].o = IR_NOP; + + /* Setup initial state. Copy some fields to reduce indirections. */ + as->J = J; + as->T = T; + as->ir = T->ir; + as->flags = J->flags; + as->loopref = J->loopref; + as->realign = NULL; + as->loopinv = 0; + as->parent = J->parent ? traceref(J, J->parent) : NULL; + + /* Reserve MCode memory. */ + as->mctop = origtop = lj_mcode_reserve(J, &as->mcbot); + as->mcp = as->mctop; + as->mclim = as->mcbot + MCLIM_REDZONE; + asm_setup_target(as); + + do { + as->mcp = as->mctop; +#ifdef LUA_USE_ASSERT + as->mcp_prev = as->mcp; +#endif + as->curins = T->nins; + RA_DBG_START(); + RA_DBGX((as, "===== STOP =====")); + + /* General trace setup. Emit tail of trace. */ + asm_tail_prep(as); + as->mcloop = NULL; + as->flagmcp = NULL; + as->topslot = 0; + as->gcsteps = 0; + as->sectref = as->loopref; + as->fuseref = (as->flags & JIT_F_OPT_FUSE) ? as->loopref : FUSE_DISABLED; + asm_setup_regsp(as); + if (!as->loopref) + asm_tail_link(as); + + /* Assemble a trace in linear backwards order. */ + for (as->curins--; as->curins > as->stopins; as->curins--) { + IRIns *ir = IR(as->curins); + lua_assert(!(LJ_32 && irt_isint64(ir->t))); /* Handled by SPLIT. */ + if (!ra_used(ir) && !ir_sideeff(ir) && (as->flags & JIT_F_OPT_DCE)) + continue; /* Dead-code elimination can be soooo easy. */ + if (irt_isguard(ir->t)) + asm_snap_prep(as); + RA_DBG_REF(); + checkmclim(as); + asm_ir(as, ir); + } + } while (as->realign); /* Retry in case the MCode needs to be realigned. */ + + /* Emit head of trace. */ + RA_DBG_REF(); + checkmclim(as); + if (as->gcsteps > 0) { + as->curins = as->T->snap[0].ref; + asm_snap_prep(as); /* The GC check is a guard. */ + asm_gc_check(as); + } + ra_evictk(as); + if (as->parent) + asm_head_side(as); + else + asm_head_root(as); + asm_phi_fixup(as); + + RA_DBGX((as, "===== START ====")); + RA_DBG_FLUSH(); + if (as->freeset != RSET_ALL) + lj_trace_err(as->J, LJ_TRERR_BADRA); /* Ouch! Should never happen. */ + + /* Set trace entry point before fixing up tail to allow link to self. */ + T->mcode = as->mcp; + T->mcloop = as->mcloop ? (MSize)((char *)as->mcloop - (char *)as->mcp) : 0; + if (!as->loopref) + asm_tail_fixup(as, T->link); /* Note: this may change as->mctop! */ + T->szmcode = (MSize)((char *)as->mctop - (char *)as->mcp); + lj_mcode_sync(T->mcode, origtop); +} + +#undef IR + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_asm.h b/src/3rd party/luajit-2.0/src/lj_asm.h new file mode 100644 index 00000000000..85f29763220 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm.h @@ -0,0 +1,17 @@ +/* +** IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_ASM_H +#define _LJ_ASM_H + +#include "lj_jit.h" + +#if LJ_HASJIT +LJ_FUNC void lj_asm_trace(jit_State *J, GCtrace *T); +LJ_FUNC void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, + MCode *target); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_asm_arm.h b/src/3rd party/luajit-2.0/src/lj_asm_arm.h new file mode 100644 index 00000000000..9e4cf4367f0 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm_arm.h @@ -0,0 +1,2361 @@ +/* +** ARM IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Register allocator extensions --------------------------------------- */ + +/* Allocate a register with a hint. */ +static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) +{ + Reg r = IR(ref)->r; + if (ra_noreg(r)) { + if (!ra_hashint(r) && !iscrossref(as, ref)) + ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ + r = ra_allocref(as, ref, allow); + } + ra_noweak(as, r); + return r; +} + +/* Allocate a scratch register pair. */ +static Reg ra_scratchpair(ASMState *as, RegSet allow) +{ + RegSet pick1 = as->freeset & allow; + RegSet pick2 = pick1 & (pick1 >> 1) & RSET_GPREVEN; + Reg r; + if (pick2) { + r = rset_picktop(pick2); + } else { + RegSet pick = pick1 & (allow >> 1) & RSET_GPREVEN; + if (pick) { + r = rset_picktop(pick); + ra_restore(as, regcost_ref(as->cost[r+1])); + } else { + pick = pick1 & (allow << 1) & RSET_GPRODD; + if (pick) { + r = ra_restore(as, regcost_ref(as->cost[rset_picktop(pick)-1])); + } else { + r = ra_evict(as, allow & (allow >> 1) & RSET_GPREVEN); + ra_restore(as, regcost_ref(as->cost[r+1])); + } + } + } + lua_assert(rset_test(RSET_GPREVEN, r)); + ra_modified(as, r); + ra_modified(as, r+1); + RA_DBGX((as, "scratchpair $r $r", r, r+1)); + return r; +} + +#if !LJ_SOFTFP +/* Allocate two source registers for three-operand instructions. */ +static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) +{ + IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); + Reg left = irl->r, right = irr->r; + if (ra_hasreg(left)) { + ra_noweak(as, left); + if (ra_noreg(right)) + right = ra_allocref(as, ir->op2, rset_exclude(allow, left)); + else + ra_noweak(as, right); + } else if (ra_hasreg(right)) { + ra_noweak(as, right); + left = ra_allocref(as, ir->op1, rset_exclude(allow, right)); + } else if (ra_hashint(right)) { + right = ra_allocref(as, ir->op2, allow); + left = ra_alloc1(as, ir->op1, rset_exclude(allow, right)); + } else { + left = ra_allocref(as, ir->op1, allow); + right = ra_alloc1(as, ir->op2, rset_exclude(allow, left)); + } + return left | (right << 8); +} +#endif + +/* -- Guard handling ------------------------------------------------------ */ + +/* Generate an exit stub group at the bottom of the reserved MCode memory. */ +static MCode *asm_exitstub_gen(ASMState *as, ExitNo group) +{ + MCode *mxp = as->mcbot; + int i; + if (mxp + 4*4+4*EXITSTUBS_PER_GROUP >= as->mctop) + asm_mclimit(as); + /* str lr, [sp]; bl ->vm_exit_handler; .long DISPATCH_address, group. */ + *mxp++ = ARMI_STR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_LR)|ARMF_N(RID_SP); + *mxp = ARMI_BL|((((MCode *)(void *)lj_vm_exit_handler-mxp)-2)&0x00ffffffu); + mxp++; + *mxp++ = (MCode)i32ptr(J2GG(as->J)->dispatch); /* DISPATCH address */ + *mxp++ = group*EXITSTUBS_PER_GROUP; + for (i = 0; i < EXITSTUBS_PER_GROUP; i++) + *mxp++ = ARMI_B|((-6-i)&0x00ffffffu); + lj_mcode_sync(as->mcbot, mxp); + lj_mcode_commitbot(as->J, mxp); + as->mcbot = mxp; + as->mclim = as->mcbot + MCLIM_REDZONE; + return mxp - EXITSTUBS_PER_GROUP; +} + +/* Setup all needed exit stubs. */ +static void asm_exitstub_setup(ASMState *as, ExitNo nexits) +{ + ExitNo i; + if (nexits >= EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) + lj_trace_err(as->J, LJ_TRERR_SNAPOV); + for (i = 0; i < (nexits+EXITSTUBS_PER_GROUP-1)/EXITSTUBS_PER_GROUP; i++) + if (as->J->exitstubgroup[i] == NULL) + as->J->exitstubgroup[i] = asm_exitstub_gen(as, i); +} + +/* Emit conditional branch to exit for guard. */ +static void asm_guardcc(ASMState *as, ARMCC cc) +{ + MCode *target = exitstub_addr(as->J, as->snapno); + MCode *p = as->mcp; + if (LJ_UNLIKELY(p == as->invmcp)) { + as->loopinv = 1; + *p = ARMI_BL | ((target-p-2) & 0x00ffffffu); + emit_branch(as, ARMF_CC(ARMI_B, cc^1), p+1); + return; + } + emit_branch(as, ARMF_CC(ARMI_BL, cc), target); +} + +/* -- Operand fusion ------------------------------------------------------ */ + +/* Limit linear search to this distance. Avoids O(n^2) behavior. */ +#define CONFLICT_SEARCH_LIM 31 + +/* Check if there's no conflicting instruction between curins and ref. */ +static int noconflict(ASMState *as, IRRef ref, IROp conflict) +{ + IRIns *ir = as->ir; + IRRef i = as->curins; + if (i > ref + CONFLICT_SEARCH_LIM) + return 0; /* Give up, ref is too far away. */ + while (--i > ref) + if (ir[i].o == conflict) + return 0; /* Conflict found. */ + return 1; /* Ok, no conflict. */ +} + +/* Fuse the array base of colocated arrays. */ +static int32_t asm_fuseabase(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && + !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) + return (int32_t)sizeof(GCtab); + return 0; +} + +/* Fuse array/hash/upvalue reference into register+offset operand. */ +static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow, + int lim) +{ + IRIns *ir = IR(ref); + if (ra_noreg(ir->r)) { + if (ir->o == IR_AREF) { + if (mayfuse(as, ref)) { + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + ofs += 8*IR(ir->op2)->i; + if (ofs > -lim && ofs < lim) { + *ofsp = ofs; + return ra_alloc1(as, refa, allow); + } + } + } + } else if (ir->o == IR_HREFK) { + if (mayfuse(as, ref)) { + int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); + if (ofs < lim) { + *ofsp = ofs; + return ra_alloc1(as, ir->op1, allow); + } + } + } else if (ir->o == IR_UREFC) { + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); + *ofsp = (ofs & 255); /* Mask out less bits to allow LDRD. */ + return ra_allock(as, (ofs & ~255), allow); + } + } + } + *ofsp = 0; + return ra_alloc1(as, ref, allow); +} + +/* Fuse m operand into arithmetic/logic instructions. */ +static uint32_t asm_fuseopm(ASMState *as, ARMIns ai, IRRef ref, RegSet allow) +{ + IRIns *ir = IR(ref); + if (ra_hasreg(ir->r)) { + ra_noweak(as, ir->r); + return ARMF_M(ir->r); + } else if (irref_isk(ref)) { + uint32_t k = emit_isk12(ai, ir->i); + if (k) + return k; + } else if (mayfuse(as, ref)) { + if (ir->o >= IR_BSHL && ir->o <= IR_BROR) { + Reg m = ra_alloc1(as, ir->op1, allow); + ARMShift sh = ir->o == IR_BSHL ? ARMSH_LSL : + ir->o == IR_BSHR ? ARMSH_LSR : + ir->o == IR_BSAR ? ARMSH_ASR : ARMSH_ROR; + if (irref_isk(ir->op2)) { + return m | ARMF_SH(sh, (IR(ir->op2)->i & 31)); + } else { + Reg s = ra_alloc1(as, ir->op2, rset_exclude(allow, m)); + return m | ARMF_RSH(sh, s); + } + } else if (ir->o == IR_ADD && ir->op1 == ir->op2) { + Reg m = ra_alloc1(as, ir->op1, allow); + return m | ARMF_SH(ARMSH_LSL, 1); + } + } + return ra_allocref(as, ref, allow); +} + +/* Fuse shifts into loads/stores. Only bother with BSHL 2 => lsl #2. */ +static IRRef asm_fuselsl2(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (ra_noreg(ir->r) && mayfuse(as, ref) && ir->o == IR_BSHL && + irref_isk(ir->op2) && IR(ir->op2)->i == 2) + return ir->op1; + return 0; /* No fusion. */ +} + +/* Fuse XLOAD/XSTORE reference into load/store operand. */ +static void asm_fusexref(ASMState *as, ARMIns ai, Reg rd, IRRef ref, + RegSet allow, int32_t ofs) +{ + IRIns *ir = IR(ref); + Reg base; + if (ra_noreg(ir->r) && canfuse(as, ir)) { + int32_t lim = (!LJ_SOFTFP && (ai & 0x08000000)) ? 1024 : + (ai & 0x04000000) ? 4096 : 256; + if (ir->o == IR_ADD) { + int32_t ofs2; + if (irref_isk(ir->op2) && + (ofs2 = ofs + IR(ir->op2)->i) > -lim && ofs2 < lim && + (!(!LJ_SOFTFP && (ai & 0x08000000)) || !(ofs2 & 3))) { + ofs = ofs2; + ref = ir->op1; + } else if (ofs == 0 && !(!LJ_SOFTFP && (ai & 0x08000000))) { + IRRef lref = ir->op1, rref = ir->op2; + Reg rn, rm; + if ((ai & 0x04000000)) { + IRRef sref = asm_fuselsl2(as, rref); + if (sref) { + rref = sref; + ai |= ARMF_SH(ARMSH_LSL, 2); + } else if ((sref = asm_fuselsl2(as, lref)) != 0) { + lref = rref; + rref = sref; + ai |= ARMF_SH(ARMSH_LSL, 2); + } + } + rn = ra_alloc1(as, lref, allow); + rm = ra_alloc1(as, rref, rset_exclude(allow, rn)); + if ((ai & 0x04000000)) ai |= ARMI_LS_R; + emit_dnm(as, ai|ARMI_LS_P|ARMI_LS_U, rd, rn, rm); + return; + } + } else if (ir->o == IR_STRREF && !(!LJ_SOFTFP && (ai & 0x08000000))) { + lua_assert(ofs == 0); + ofs = (int32_t)sizeof(GCstr); + if (irref_isk(ir->op2)) { + ofs += IR(ir->op2)->i; + ref = ir->op1; + } else if (irref_isk(ir->op1)) { + ofs += IR(ir->op1)->i; + ref = ir->op2; + } else { + /* NYI: Fuse ADD with constant. */ + Reg rn = ra_alloc1(as, ir->op1, allow); + uint32_t m = asm_fuseopm(as, 0, ir->op2, rset_exclude(allow, rn)); + if ((ai & 0x04000000)) + emit_lso(as, ai, rd, rd, ofs); + else + emit_lsox(as, ai, rd, rd, ofs); + emit_dn(as, ARMI_ADD^m, rd, rn); + return; + } + if (ofs <= -lim || ofs >= lim) { + Reg rn = ra_alloc1(as, ref, allow); + Reg rm = ra_allock(as, ofs, rset_exclude(allow, rn)); + if ((ai & 0x04000000)) ai |= ARMI_LS_R; + emit_dnm(as, ai|ARMI_LS_P|ARMI_LS_U, rd, rn, rm); + return; + } + } + } + base = ra_alloc1(as, ref, allow); +#if !LJ_SOFTFP + if ((ai & 0x08000000)) + emit_vlso(as, ai, rd, base, ofs); + else +#endif + if ((ai & 0x04000000)) + emit_lso(as, ai, rd, base, ofs); + else + emit_lsox(as, ai, rd, base, ofs); +} + +#if !LJ_SOFTFP +/* Fuse to multiply-add/sub instruction. */ +static int asm_fusemadd(ASMState *as, IRIns *ir, ARMIns ai, ARMIns air) +{ + IRRef lref = ir->op1, rref = ir->op2; + IRIns *irm; + if (lref != rref && + ((mayfuse(as, lref) && (irm = IR(lref), irm->o == IR_MUL) && + ra_noreg(irm->r)) || + (mayfuse(as, rref) && (irm = IR(rref), irm->o == IR_MUL) && + (rref = lref, ai = air, ra_noreg(irm->r))))) { + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg add = ra_hintalloc(as, rref, dest, RSET_FPR); + Reg right, left = ra_alloc2(as, irm, + rset_exclude(rset_exclude(RSET_FPR, dest), add)); + right = (left >> 8); left &= 255; + emit_dnm(as, ai, (dest & 15), (left & 15), (right & 15)); + if (dest != add) emit_dm(as, ARMI_VMOV_D, (dest & 15), (add & 15)); + return 1; + } + return 0; +} +#endif + +/* -- Calls --------------------------------------------------------------- */ + +/* Generate a call to a C function. */ +static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) +{ + uint32_t n, nargs = CCI_NARGS(ci); + int32_t ofs = 0; +#if LJ_SOFTFP + Reg gpr = REGARG_FIRSTGPR; +#else + Reg gpr, fpr = REGARG_FIRSTFPR, fprodd = 0; +#endif + if ((void *)ci->func) + emit_call(as, (void *)ci->func); +#if !LJ_SOFTFP + for (gpr = REGARG_FIRSTGPR; gpr <= REGARG_LASTGPR; gpr++) + as->cost[gpr] = REGCOST(~0u, ASMREF_L); + gpr = REGARG_FIRSTGPR; +#endif + for (n = 0; n < nargs; n++) { /* Setup args. */ + IRRef ref = args[n]; + IRIns *ir = IR(ref); +#if !LJ_SOFTFP + if (ref && irt_isfp(ir->t)) { + RegSet of = as->freeset; + Reg src; + if (!LJ_ABI_SOFTFP && !(ci->flags & CCI_VARARG)) { + if (irt_isnum(ir->t)) { + if (fpr <= REGARG_LASTFPR) { + ra_leftov(as, fpr, ref); + fpr++; + continue; + } + } else if (fprodd) { /* Ick. */ + src = ra_alloc1(as, ref, RSET_FPR); + emit_dm(as, ARMI_VMOV_S, (fprodd & 15), (src & 15) | 0x00400000); + fprodd = 0; + continue; + } else if (fpr <= REGARG_LASTFPR) { + ra_leftov(as, fpr, ref); + fprodd = fpr++; + continue; + } + /* Workaround to protect argument GPRs from being used for remat. */ + as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); + src = ra_alloc1(as, ref, RSET_FPR); /* May alloc GPR to remat FPR. */ + as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); + fprodd = 0; + goto stackfp; + } + /* Workaround to protect argument GPRs from being used for remat. */ + as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); + src = ra_alloc1(as, ref, RSET_FPR); /* May alloc GPR to remat FPR. */ + as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); + if (irt_isnum(ir->t)) gpr = (gpr+1) & ~1u; + if (gpr <= REGARG_LASTGPR) { + lua_assert(rset_test(as->freeset, gpr)); /* Must have been evicted. */ + if (irt_isnum(ir->t)) { + lua_assert(rset_test(as->freeset, gpr+1)); /* Ditto. */ + emit_dnm(as, ARMI_VMOV_RR_D, gpr, gpr+1, (src & 15)); + gpr += 2; + } else { + emit_dn(as, ARMI_VMOV_R_S, gpr, (src & 15)); + gpr++; + } + } else { + stackfp: + if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; + emit_spstore(as, ir, src, ofs); + ofs += irt_isnum(ir->t) ? 8 : 4; + } + } else +#endif + { + if (gpr <= REGARG_LASTGPR) { + lua_assert(rset_test(as->freeset, gpr)); /* Must have been evicted. */ + if (ref) ra_leftov(as, gpr, ref); + gpr++; + } else { + if (ref) { + Reg r = ra_alloc1(as, ref, RSET_GPR); + emit_spstore(as, ir, r, ofs); + } + ofs += 4; + } + } + } +} + +/* Setup result reg/sp for call. Evict scratch regs. */ +static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + RegSet drop = RSET_SCRATCH; + int hiop = ((ir+1)->o == IR_HIOP); + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + if (hiop && ra_hasreg((ir+1)->r)) + rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ + ra_evictset(as, drop); /* Evictions must be performed first. */ + if (ra_used(ir)) { + lua_assert(!irt_ispri(ir->t)); + if (!LJ_SOFTFP && irt_isfp(ir->t)) { + if (LJ_ABI_SOFTFP || (ci->flags & (CCI_CASTU64|CCI_VARARG))) { + Reg dest = (ra_dest(as, ir, RSET_FPR) & 15); + if (irt_isnum(ir->t)) + emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, dest); + else + emit_dn(as, ARMI_VMOV_S_R, RID_RET, dest); + } else { + ra_destreg(as, ir, RID_FPRET); + } + } else if (hiop) { + ra_destpair(as, ir); + } else { + ra_destreg(as, ir, RID_RET); + } + } + UNUSED(ci); +} + +static void asm_call(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX]; + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + asm_collectargs(as, ir, ci, args); + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static void asm_callx(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX*2]; + CCallInfo ci; + IRRef func; + IRIns *irf; + ci.flags = asm_callx_flags(as, ir); + asm_collectargs(as, ir, &ci, args); + asm_setupresult(as, ir, &ci); + func = ir->op2; irf = IR(func); + if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } + if (irref_isk(func)) { /* Call to constant address. */ + ci.func = (ASMFunction)(void *)(irf->i); + } else { /* Need a non-argument register for indirect calls. */ + Reg freg = ra_alloc1(as, func, RSET_RANGE(RID_R4, RID_R12+1)); + emit_m(as, ARMI_BLXr, freg); + ci.func = (ASMFunction)(void *)0; + } + asm_gencall(as, &ci, args); +} + +/* -- Returns ------------------------------------------------------------- */ + +/* Return to lower frame. Guard that it goes to the right spot. */ +static void asm_retf(ASMState *as, IRIns *ir) +{ + Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); + void *pc = ir_kptr(IR(ir->op2)); + int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + as->topslot -= (BCReg)delta; + if ((int32_t)as->topslot < 0) as->topslot = 0; + irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ + /* Need to force a spill on REF_BASE now to update the stack slot. */ + emit_lso(as, ARMI_STR, base, RID_SP, ra_spill(as, IR(REF_BASE))); + emit_setgl(as, base, jit_base); + emit_addptr(as, base, -8*delta); + asm_guardcc(as, CC_NE); + emit_nm(as, ARMI_CMP, RID_TMP, + ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); + emit_lso(as, ARMI_LDR, RID_TMP, base, -4); +} + +/* -- Type conversions ---------------------------------------------------- */ + +#if !LJ_SOFTFP +static void asm_tointg(ASMState *as, IRIns *ir, Reg left) +{ + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_guardcc(as, CC_NE); + emit_d(as, ARMI_VMRS, 0); + emit_dm(as, ARMI_VCMP_D, (tmp & 15), (left & 15)); + emit_dm(as, ARMI_VCVT_F64_S32, (tmp & 15), (tmp & 15)); + emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); + emit_dm(as, ARMI_VCVT_S32_F64, (tmp & 15), (left & 15)); +} + +static void asm_tobit(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_FPR; + Reg left = ra_alloc1(as, ir->op1, allow); + Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); + Reg tmp = ra_scratch(as, rset_clear(allow, right)); + Reg dest = ra_dest(as, ir, RSET_GPR); + emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); + emit_dnm(as, ARMI_VADD_D, (tmp & 15), (left & 15), (right & 15)); +} +#endif + +static void asm_conv(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); +#if !LJ_SOFTFP + int stfp = (st == IRT_NUM || st == IRT_FLOAT); +#endif + IRRef lref = ir->op1; + /* 64 bit integer conversions are handled by SPLIT. */ + lua_assert(!irt_isint64(ir->t) && !(st == IRT_I64 || st == IRT_U64)); +#if LJ_SOFTFP + /* FP conversions are handled by SPLIT. */ + lua_assert(!irt_isfp(ir->t) && !(st == IRT_NUM || st == IRT_FLOAT)); + /* Can't check for same types: SPLIT uses CONV int.int + BXOR for sfp NEG. */ +#else + lua_assert(irt_type(ir->t) != st); + if (irt_isfp(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + if (stfp) { /* FP to FP conversion. */ + emit_dm(as, st == IRT_NUM ? ARMI_VCVT_F32_F64 : ARMI_VCVT_F64_F32, + (dest & 15), (ra_alloc1(as, lref, RSET_FPR) & 15)); + } else { /* Integer to FP conversion. */ + Reg left = ra_alloc1(as, lref, RSET_GPR); + ARMIns ai = irt_isfloat(ir->t) ? + (st == IRT_INT ? ARMI_VCVT_F32_S32 : ARMI_VCVT_F32_U32) : + (st == IRT_INT ? ARMI_VCVT_F64_S32 : ARMI_VCVT_F64_U32); + emit_dm(as, ai, (dest & 15), (dest & 15)); + emit_dn(as, ARMI_VMOV_S_R, left, (dest & 15)); + } + } else if (stfp) { /* FP to integer conversion. */ + if (irt_isguard(ir->t)) { + /* Checked conversions are only supported from number to int. */ + lua_assert(irt_isint(ir->t) && st == IRT_NUM); + asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); + } else { + Reg left = ra_alloc1(as, lref, RSET_FPR); + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + Reg dest = ra_dest(as, ir, RSET_GPR); + ARMIns ai; + emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); + ai = irt_isint(ir->t) ? + (st == IRT_NUM ? ARMI_VCVT_S32_F64 : ARMI_VCVT_S32_F32) : + (st == IRT_NUM ? ARMI_VCVT_U32_F64 : ARMI_VCVT_U32_F32); + emit_dm(as, ai, (tmp & 15), (left & 15)); + } + } else +#endif + { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ + Reg left = ra_alloc1(as, lref, RSET_GPR); + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); + if ((as->flags & JIT_F_ARMV6)) { + ARMIns ai = st == IRT_I8 ? ARMI_SXTB : + st == IRT_U8 ? ARMI_UXTB : + st == IRT_I16 ? ARMI_SXTH : ARMI_UXTH; + emit_dm(as, ai, dest, left); + } else if (st == IRT_U8) { + emit_dn(as, ARMI_AND|ARMI_K12|255, dest, left); + } else { + uint32_t shift = st == IRT_I8 ? 24 : 16; + ARMShift sh = st == IRT_U16 ? ARMSH_LSR : ARMSH_ASR; + emit_dm(as, ARMI_MOV|ARMF_SH(sh, shift), dest, RID_TMP); + emit_dm(as, ARMI_MOV|ARMF_SH(ARMSH_LSL, shift), RID_TMP, left); + } + } else { /* Handle 32/32 bit no-op (cast). */ + ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ + } + } +} + +#if !LJ_SOFTFP && LJ_HASFFI +static void asm_conv64(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); + IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); + IRCallID id; + CCallInfo ci; + IRRef args[2]; + args[0] = (ir-1)->op1; + args[1] = ir->op1; + if (st == IRT_NUM || st == IRT_FLOAT) { + id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); + ir--; + } else { + id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); + } + ci = lj_ir_callinfo[id]; +#if !LJ_ABI_SOFTFP + ci.flags |= CCI_VARARG; /* These calls don't use the hard-float ABI! */ +#endif + asm_setupresult(as, ir, &ci); + asm_gencall(as, &ci, args); +} +#endif + +static void asm_strto(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; + IRRef args[2]; + Reg rlo = 0, rhi = 0, tmp; + int destused = ra_used(ir); + int32_t ofs = 0; + ra_evictset(as, RSET_SCRATCH); +#if LJ_SOFTFP + if (destused) { + if (ra_hasspill(ir->s) && ra_hasspill((ir+1)->s) && + (ir->s & 1) == 0 && ir->s + 1 == (ir+1)->s) { + int i; + for (i = 0; i < 2; i++) { + Reg r = (ir+i)->r; + if (ra_hasreg(r)) { + ra_free(as, r); + ra_modified(as, r); + emit_spload(as, ir+i, r, sps_scale((ir+i)->s)); + } + } + ofs = sps_scale(ir->s); + destused = 0; + } else { + rhi = ra_dest(as, ir+1, RSET_GPR); + rlo = ra_dest(as, ir, rset_exclude(RSET_GPR, rhi)); + } + } + asm_guardcc(as, CC_EQ); + if (destused) { + emit_lso(as, ARMI_LDR, rhi, RID_SP, 4); + emit_lso(as, ARMI_LDR, rlo, RID_SP, 0); + } +#else + UNUSED(rhi); + if (destused) { + if (ra_hasspill(ir->s)) { + ofs = sps_scale(ir->s); + destused = 0; + if (ra_hasreg(ir->r)) { + ra_free(as, ir->r); + ra_modified(as, ir->r); + emit_spload(as, ir, ir->r, ofs); + } + } else { + rlo = ra_dest(as, ir, RSET_FPR); + } + } + asm_guardcc(as, CC_EQ); + if (destused) + emit_vlso(as, ARMI_VLDR_D, rlo, RID_SP, 0); +#endif + emit_n(as, ARMI_CMP|ARMI_K12|0, RID_RET); /* Test return status. */ + args[0] = ir->op1; /* GCstr *str */ + args[1] = ASMREF_TMP1; /* TValue *n */ + asm_gencall(as, ci, args); + tmp = ra_releasetmp(as, ASMREF_TMP1); + if (ofs == 0) + emit_dm(as, ARMI_MOV, tmp, RID_SP); + else + emit_opk(as, ARMI_ADD, tmp, RID_SP, ofs, RSET_GPR); +} + +/* Get pointer to TValue. */ +static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) +{ + IRIns *ir = IR(ref); + if (irt_isnum(ir->t)) { + if (irref_isk(ref)) { + /* Use the number constant itself as a TValue. */ + ra_allockreg(as, i32ptr(ir_knum(ir)), dest); + } else { +#if LJ_SOFTFP + lua_assert(0); +#else + /* Otherwise force a spill and use the spill slot. */ + emit_opk(as, ARMI_ADD, dest, RID_SP, ra_spill(as, ir), RSET_GPR); +#endif + } + } else { + /* Otherwise use [sp] and [sp+4] to hold the TValue. */ + RegSet allow = rset_exclude(RSET_GPR, dest); + Reg type; + emit_dm(as, ARMI_MOV, dest, RID_SP); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, allow); + emit_lso(as, ARMI_STR, src, RID_SP, 0); + } + if ((ir+1)->o == IR_HIOP) + type = ra_alloc1(as, ref+1, allow); + else + type = ra_allock(as, irt_toitype(ir->t), allow); + emit_lso(as, ARMI_STR, type, RID_SP, 4); + } +} + +static void asm_tostr(ASMState *as, IRIns *ir) +{ + IRRef args[2]; + args[0] = ASMREF_L; + as->gcsteps++; + if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; + args[1] = ASMREF_TMP1; /* const lua_Number * */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); + } else { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; + args[1] = ir->op1; /* int32_t k */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + } +} + +/* -- Memory references --------------------------------------------------- */ + +static void asm_aref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx, base; + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + uint32_t k = emit_isk12(ARMI_ADD, ofs + 8*IR(ir->op2)->i); + if (k) { + base = ra_alloc1(as, refa, RSET_GPR); + emit_dn(as, ARMI_ADD^k, dest, base); + return; + } + } + base = ra_alloc1(as, ir->op1, RSET_GPR); + idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); + emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 3), dest, base, idx); +} + +/* Inlined hash lookup. Specialized for key type and for const keys. +** The equivalent C code is: +** Node *n = hashkey(t, key); +** do { +** if (lj_obj_equal(&n->key, key)) return &n->val; +** } while ((n = nextnode(n))); +** return niltv(L); +*/ +static void asm_href(ASMState *as, IRIns *ir, IROp merge) +{ + RegSet allow = RSET_GPR; + int destused = ra_used(ir); + Reg dest = ra_dest(as, ir, allow); + Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); + Reg key = 0, keyhi = 0, keynumhi = RID_NONE, tmp = RID_TMP; + IRRef refkey = ir->op2; + IRIns *irkey = IR(refkey); + IRType1 kt = irkey->t; + int32_t k = 0, khi = emit_isk12(ARMI_CMP, irt_toitype(kt)); + uint32_t khash; + MCLabel l_end, l_loop; + rset_clear(allow, tab); + if (!irref_isk(refkey) || irt_isstr(kt)) { +#if LJ_SOFTFP + key = ra_alloc1(as, refkey, allow); + rset_clear(allow, key); + if (irkey[1].o == IR_HIOP) { + if (ra_hasreg((irkey+1)->r)) { + keynumhi = (irkey+1)->r; + keyhi = RID_TMP; + ra_noweak(as, keynumhi); + } else { + keyhi = keynumhi = ra_allocref(as, refkey+1, allow); + } + rset_clear(allow, keynumhi); + khi = 0; + } +#else + if (irt_isnum(kt)) { + key = ra_scratch(as, allow); + rset_clear(allow, key); + keyhi = keynumhi = ra_scratch(as, allow); + rset_clear(allow, keyhi); + khi = 0; + } else { + key = ra_alloc1(as, refkey, allow); + rset_clear(allow, key); + } +#endif + } else if (irt_isnum(kt)) { + int32_t val = (int32_t)ir_knum(irkey)->u32.lo; + k = emit_isk12(ARMI_CMP, val); + if (!k) { + key = ra_allock(as, val, allow); + rset_clear(allow, key); + } + val = (int32_t)ir_knum(irkey)->u32.hi; + khi = emit_isk12(ARMI_CMP, val); + if (!khi) { + keyhi = ra_allock(as, val, allow); + rset_clear(allow, keyhi); + } + } else if (!irt_ispri(kt)) { + k = emit_isk12(ARMI_CMP, irkey->i); + if (!k) { + key = ra_alloc1(as, refkey, allow); + rset_clear(allow, key); + } + } + if (!irt_ispri(kt)) + tmp = ra_scratchpair(as, allow); + + /* Key not found in chain: jump to exit (if merged) or load niltv. */ + l_end = emit_label(as); + as->invmcp = NULL; + if (merge == IR_NE) + asm_guardcc(as, CC_AL); + else if (destused) + emit_loada(as, dest, niltvg(J2G(as->J))); + + /* Follow hash chain until the end. */ + l_loop = --as->mcp; + emit_n(as, ARMI_CMP|ARMI_K12|0, dest); + emit_lso(as, ARMI_LDR, dest, dest, (int32_t)offsetof(Node, next)); + + /* Type and value comparison. */ + if (merge == IR_EQ) + asm_guardcc(as, CC_EQ); + else + emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); + if (!irt_ispri(kt)) { + emit_nm(as, ARMF_CC(ARMI_CMP, CC_EQ)^k, tmp, key); + emit_nm(as, ARMI_CMP^khi, tmp+1, keyhi); + emit_lsox(as, ARMI_LDRD, tmp, dest, (int32_t)offsetof(Node, key)); + } else { + emit_n(as, ARMI_CMP^khi, tmp); + emit_lso(as, ARMI_LDR, tmp, dest, (int32_t)offsetof(Node, key.it)); + } + *l_loop = ARMF_CC(ARMI_B, CC_NE) | ((as->mcp-l_loop-2) & 0x00ffffffu); + + /* Load main position relative to tab->node into dest. */ + khash = irref_isk(refkey) ? ir_khash(irkey) : 1; + if (khash == 0) { + emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); + } else { + emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 3), dest, dest, tmp); + emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 1), tmp, tmp, tmp); + if (irt_isstr(kt)) { /* Fetch of str->hash is cheaper than ra_allock. */ + emit_dnm(as, ARMI_AND, tmp, tmp+1, RID_TMP); + emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); + emit_lso(as, ARMI_LDR, tmp+1, key, (int32_t)offsetof(GCstr, hash)); + emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); + } else if (irref_isk(refkey)) { + emit_opk(as, ARMI_AND, tmp, RID_TMP, (int32_t)khash, + rset_exclude(rset_exclude(RSET_GPR, tab), dest)); + emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); + emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); + } else { /* Must match with hash*() in lj_tab.c. */ + if (ra_hasreg(keynumhi)) { /* Canonicalize +-0.0 to 0.0. */ + if (keyhi == RID_TMP) + emit_dm(as, ARMF_CC(ARMI_MOV, CC_NE), keyhi, keynumhi); + emit_d(as, ARMF_CC(ARMI_MOV, CC_EQ)|ARMI_K12|0, keyhi); + } + emit_dnm(as, ARMI_AND, tmp, tmp, RID_TMP); + emit_dnm(as, ARMI_SUB|ARMF_SH(ARMSH_ROR, 32-HASH_ROT3), tmp, tmp, tmp+1); + emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); + emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_ROR, 32-((HASH_ROT2+HASH_ROT1)&31)), + tmp, tmp+1, tmp); + emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); + emit_dnm(as, ARMI_SUB|ARMF_SH(ARMSH_ROR, 32-HASH_ROT1), tmp+1, tmp+1, tmp); + if (ra_hasreg(keynumhi)) { + emit_dnm(as, ARMI_EOR, tmp+1, tmp, key); + emit_dnm(as, ARMI_ORR|ARMI_S, RID_TMP, tmp, key); /* Test for +-0.0. */ + emit_dnm(as, ARMI_ADD, tmp, keynumhi, keynumhi); +#if !LJ_SOFTFP + emit_dnm(as, ARMI_VMOV_RR_D, key, keynumhi, + (ra_alloc1(as, refkey, RSET_FPR) & 15)); +#endif + } else { + emit_dnm(as, ARMI_EOR, tmp+1, tmp, key); + emit_opk(as, ARMI_ADD, tmp, key, (int32_t)HASH_BIAS, + rset_exclude(rset_exclude(RSET_GPR, tab), key)); + } + } + } +} + +static void asm_hrefk(ASMState *as, IRIns *ir) +{ + IRIns *kslot = IR(ir->op2); + IRIns *irkey = IR(kslot->op1); + int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); + int32_t kofs = ofs + (int32_t)offsetof(Node, key); + Reg dest = (ra_used(ir) || ofs > 4095) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; + Reg node = ra_alloc1(as, ir->op1, RSET_GPR); + Reg key = RID_NONE, type = RID_TMP, idx = node; + RegSet allow = rset_exclude(RSET_GPR, node); + lua_assert(ofs % sizeof(Node) == 0); + if (ofs > 4095) { + idx = dest; + rset_clear(allow, dest); + kofs = (int32_t)offsetof(Node, key); + } else if (ra_hasreg(dest)) { + emit_opk(as, ARMI_ADD, dest, node, ofs, allow); + } + asm_guardcc(as, CC_NE); + if (!irt_ispri(irkey->t)) { + RegSet even = (as->freeset & allow); + even = even & (even >> 1) & RSET_GPREVEN; + if (even) { + key = ra_scratch(as, even); + if (rset_test(as->freeset, key+1)) { + type = key+1; + ra_modified(as, type); + } + } else { + key = ra_scratch(as, allow); + } + rset_clear(allow, key); + } + rset_clear(allow, type); + if (irt_isnum(irkey->t)) { + emit_opk(as, ARMF_CC(ARMI_CMP, CC_EQ), 0, type, + (int32_t)ir_knum(irkey)->u32.hi, allow); + emit_opk(as, ARMI_CMP, 0, key, + (int32_t)ir_knum(irkey)->u32.lo, allow); + } else { + if (ra_hasreg(key)) + emit_opk(as, ARMF_CC(ARMI_CMP, CC_EQ), 0, key, irkey->i, allow); + emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype(irkey->t), type); + } + emit_lso(as, ARMI_LDR, type, idx, kofs+4); + if (ra_hasreg(key)) emit_lso(as, ARMI_LDR, key, idx, kofs); + if (ofs > 4095) + emit_opk(as, ARMI_ADD, dest, node, ofs, RSET_GPR); +} + +static void asm_newref(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; + IRRef args[3]; + if (ir->r == RID_SINK) + return; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* GCtab *t */ + args[2] = ASMREF_TMP1; /* cTValue *key */ + asm_setupresult(as, ir, ci); /* TValue * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); +} + +static void asm_uref(ASMState *as, IRIns *ir) +{ + /* NYI: Check that UREFO is still open and not aliasing a slot. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; + emit_lsptr(as, ARMI_LDR, dest, v); + } else { + Reg uv = ra_scratch(as, RSET_GPR); + Reg func = ra_alloc1(as, ir->op1, RSET_GPR); + if (ir->o == IR_UREFC) { + asm_guardcc(as, CC_NE); + emit_n(as, ARMI_CMP|ARMI_K12|1, RID_TMP); + emit_opk(as, ARMI_ADD, dest, uv, + (int32_t)offsetof(GCupval, tv), RSET_GPR); + emit_lso(as, ARMI_LDRB, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); + } else { + emit_lso(as, ARMI_LDR, dest, uv, (int32_t)offsetof(GCupval, v)); + } + emit_lso(as, ARMI_LDR, uv, func, + (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); + } +} + +static void asm_fref(ASMState *as, IRIns *ir) +{ + UNUSED(as); UNUSED(ir); + lua_assert(!ra_used(ir)); +} + +static void asm_strref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + IRRef ref = ir->op2, refk = ir->op1; + Reg r; + if (irref_isk(ref)) { + IRRef tmp = refk; refk = ref; ref = tmp; + } else if (!irref_isk(refk)) { + uint32_t k, m = ARMI_K12|sizeof(GCstr); + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + IRIns *irr = IR(ir->op2); + if (ra_hasreg(irr->r)) { + ra_noweak(as, irr->r); + right = irr->r; + } else if (mayfuse(as, irr->op2) && + irr->o == IR_ADD && irref_isk(irr->op2) && + (k = emit_isk12(ARMI_ADD, + (int32_t)sizeof(GCstr) + IR(irr->op2)->i))) { + m = k; + right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); + } else { + right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); + } + emit_dn(as, ARMI_ADD^m, dest, dest); + emit_dnm(as, ARMI_ADD, dest, left, right); + return; + } + r = ra_alloc1(as, ref, RSET_GPR); + emit_opk(as, ARMI_ADD, dest, r, + sizeof(GCstr) + IR(refk)->i, rset_exclude(RSET_GPR, r)); +} + +/* -- Loads and stores ---------------------------------------------------- */ + +static ARMIns asm_fxloadins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: return ARMI_LDRSB; + case IRT_U8: return ARMI_LDRB; + case IRT_I16: return ARMI_LDRSH; + case IRT_U16: return ARMI_LDRH; + case IRT_NUM: lua_assert(!LJ_SOFTFP); return ARMI_VLDR_D; + case IRT_FLOAT: if (!LJ_SOFTFP) return ARMI_VLDR_S; + default: return ARMI_LDR; + } +} + +static ARMIns asm_fxstoreins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: case IRT_U8: return ARMI_STRB; + case IRT_I16: case IRT_U16: return ARMI_STRH; + case IRT_NUM: lua_assert(!LJ_SOFTFP); return ARMI_VSTR_D; + case IRT_FLOAT: if (!LJ_SOFTFP) return ARMI_VSTR_S; + default: return ARMI_STR; + } +} + +static void asm_fload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); + ARMIns ai = asm_fxloadins(ir); + int32_t ofs; + if (ir->op2 == IRFL_TAB_ARRAY) { + ofs = asm_fuseabase(as, ir->op1); + if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ + emit_dn(as, ARMI_ADD|ARMI_K12|ofs, dest, idx); + return; + } + } + ofs = field_ofs[ir->op2]; + if ((ai & 0x04000000)) + emit_lso(as, ai, dest, idx, ofs); + else + emit_lsox(as, ai, dest, idx, ofs); +} + +static void asm_fstore(ASMState *as, IRIns *ir) +{ + if (ir->r != RID_SINK) { + Reg src = ra_alloc1(as, ir->op2, RSET_GPR); + IRIns *irf = IR(ir->op1); + Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); + int32_t ofs = field_ofs[irf->op2]; + ARMIns ai = asm_fxstoreins(ir); + if ((ai & 0x04000000)) + emit_lso(as, ai, src, idx, ofs); + else + emit_lsox(as, ai, src, idx, ofs); + } +} + +static void asm_xload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, + (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR); + lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); + asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); +} + +static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +{ + if (ir->r != RID_SINK) { + Reg src = ra_alloc1(as, ir->op2, + (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR); + asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, + rset_exclude(RSET_GPR, src), ofs); + } +} + +static void asm_ahuvload(ASMState *as, IRIns *ir) +{ + int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); + IRType t = hiop ? IRT_NUM : irt_type(ir->t); + Reg dest = RID_NONE, type = RID_NONE, idx; + RegSet allow = RSET_GPR; + int32_t ofs = 0; + if (hiop && ra_used(ir+1)) { + type = ra_dest(as, ir+1, allow); + rset_clear(allow, type); + } + if (ra_used(ir)) { + lua_assert((LJ_SOFTFP ? 0 : irt_isnum(ir->t)) || + irt_isint(ir->t) || irt_isaddr(ir->t)); + dest = ra_dest(as, ir, (!LJ_SOFTFP && t == IRT_NUM) ? RSET_FPR : allow); + rset_clear(allow, dest); + } + idx = asm_fuseahuref(as, ir->op1, &ofs, allow, + (!LJ_SOFTFP && t == IRT_NUM) ? 1024 : 4096); + if (!hiop || type == RID_NONE) { + rset_clear(allow, idx); + if (ofs < 256 && ra_hasreg(dest) && (dest & 1) == 0 && + rset_test((as->freeset & allow), dest+1)) { + type = dest+1; + ra_modified(as, type); + } else { + type = RID_TMP; + } + } + asm_guardcc(as, t == IRT_NUM ? CC_HS : CC_NE); + emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype_(t), type); + if (ra_hasreg(dest)) { +#if !LJ_SOFTFP + if (t == IRT_NUM) + emit_vlso(as, ARMI_VLDR_D, dest, idx, ofs); + else +#endif + emit_lso(as, ARMI_LDR, dest, idx, ofs); + } + emit_lso(as, ARMI_LDR, type, idx, ofs+4); +} + +static void asm_ahustore(ASMState *as, IRIns *ir) +{ + if (ir->r != RID_SINK) { + RegSet allow = RSET_GPR; + Reg idx, src = RID_NONE, type = RID_NONE; + int32_t ofs = 0; +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { + src = ra_alloc1(as, ir->op2, RSET_FPR); + idx = asm_fuseahuref(as, ir->op1, &ofs, allow, 1024); + emit_vlso(as, ARMI_VSTR_D, src, idx, ofs); + } else +#endif + { + int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); + if (!irt_ispri(ir->t)) { + src = ra_alloc1(as, ir->op2, allow); + rset_clear(allow, src); + } + if (hiop) + type = ra_alloc1(as, (ir+1)->op2, allow); + else + type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); + idx = asm_fuseahuref(as, ir->op1, &ofs, rset_exclude(allow, type), 4096); + if (ra_hasreg(src)) emit_lso(as, ARMI_STR, src, idx, ofs); + emit_lso(as, ARMI_STR, type, idx, ofs+4); + } + } +} + +static void asm_sload(ASMState *as, IRIns *ir) +{ + int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); + int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); + IRType t = hiop ? IRT_NUM : irt_type(ir->t); + Reg dest = RID_NONE, type = RID_NONE, base; + RegSet allow = RSET_GPR; + lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ + lua_assert(irt_isguard(ir->t) || !(ir->op2 & IRSLOAD_TYPECHECK)); +#if LJ_SOFTFP + lua_assert(!(ir->op2 & IRSLOAD_CONVERT)); /* Handled by LJ_SOFTFP SPLIT. */ + if (hiop && ra_used(ir+1)) { + type = ra_dest(as, ir+1, allow); + rset_clear(allow, type); + } +#else + if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(ir->t) && t == IRT_INT) { + dest = ra_scratch(as, RSET_FPR); + asm_tointg(as, ir, dest); + t = IRT_NUM; /* Continue with a regular number type check. */ + } else +#endif + if (ra_used(ir)) { + Reg tmp = RID_NONE; + if ((ir->op2 & IRSLOAD_CONVERT)) + tmp = ra_scratch(as, t == IRT_INT ? RSET_FPR : RSET_GPR); + lua_assert((LJ_SOFTFP ? 0 : irt_isnum(ir->t)) || + irt_isint(ir->t) || irt_isaddr(ir->t)); + dest = ra_dest(as, ir, (!LJ_SOFTFP && t == IRT_NUM) ? RSET_FPR : allow); + rset_clear(allow, dest); + base = ra_alloc1(as, REF_BASE, allow); + if ((ir->op2 & IRSLOAD_CONVERT)) { + if (t == IRT_INT) { + emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); + emit_dm(as, ARMI_VCVT_S32_F64, (tmp & 15), (tmp & 15)); + t = IRT_NUM; /* Check for original type. */ + } else { + emit_dm(as, ARMI_VCVT_F64_S32, (dest & 15), (dest & 15)); + emit_dn(as, ARMI_VMOV_S_R, tmp, (dest & 15)); + t = IRT_INT; /* Check for original type. */ + } + dest = tmp; + } + goto dotypecheck; + } + base = ra_alloc1(as, REF_BASE, allow); +dotypecheck: + rset_clear(allow, base); + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + if (ra_noreg(type)) { + if (ofs < 256 && ra_hasreg(dest) && (dest & 1) == 0 && + rset_test((as->freeset & allow), dest+1)) { + type = dest+1; + ra_modified(as, type); + } else { + type = RID_TMP; + } + } + asm_guardcc(as, t == IRT_NUM ? CC_HS : CC_NE); + emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype_(t), type); + } + if (ra_hasreg(dest)) { +#if !LJ_SOFTFP + if (t == IRT_NUM) { + if (ofs < 1024) { + emit_vlso(as, ARMI_VLDR_D, dest, base, ofs); + } else { + if (ra_hasreg(type)) emit_lso(as, ARMI_LDR, type, base, ofs+4); + emit_vlso(as, ARMI_VLDR_D, dest, RID_TMP, 0); + emit_opk(as, ARMI_ADD, RID_TMP, base, ofs, allow); + return; + } + } else +#endif + emit_lso(as, ARMI_LDR, dest, base, ofs); + } + if (ra_hasreg(type)) emit_lso(as, ARMI_LDR, type, base, ofs+4); +} + +/* -- Allocations --------------------------------------------------------- */ + +#if LJ_HASFFI +static void asm_cnew(ASMState *as, IRIns *ir) +{ + CTState *cts = ctype_ctsG(J2G(as->J)); + CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; + CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? + lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; + IRRef args[2]; + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + RegSet drop = RSET_SCRATCH; + lua_assert(sz != CTSIZE_INVALID); + + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ + as->gcsteps++; + + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + if (ra_used(ir)) + ra_destreg(as, ir, RID_RET); /* GCcdata * */ + + /* Initialize immutable cdata object. */ + if (ir->o == IR_CNEWI) { + int32_t ofs = sizeof(GCcdata); + lua_assert(sz == 4 || sz == 8); + if (sz == 8) { + ofs += 4; ir++; + lua_assert(ir->o == IR_HIOP); + } + for (;;) { + Reg r = ra_alloc1(as, ir->op2, allow); + emit_lso(as, ARMI_STR, r, RID_RET, ofs); + rset_clear(allow, r); + if (ofs == sizeof(GCcdata)) break; + ofs -= 4; ir--; + } + } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ + { + uint32_t k = emit_isk12(ARMI_MOV, ctypeid); + Reg r = k ? RID_R1 : ra_allock(as, ctypeid, allow); + emit_lso(as, ARMI_STRB, RID_TMP, RID_RET, offsetof(GCcdata, gct)); + emit_lsox(as, ARMI_STRH, r, RID_RET, offsetof(GCcdata, ctypeid)); + emit_d(as, ARMI_MOV|ARMI_K12|~LJ_TCDATA, RID_TMP); + if (k) emit_d(as, ARMI_MOV^k, RID_R1); + } + asm_gencall(as, ci, args); + ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), + ra_releasetmp(as, ASMREF_TMP1)); +} +#else +#define asm_cnew(as, ir) ((void)0) +#endif + +/* -- Write barriers ------------------------------------------------------ */ + +static void asm_tbar(ASMState *as, IRIns *ir) +{ + Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); + Reg link = ra_scratch(as, rset_exclude(RSET_GPR, tab)); + Reg gr = ra_allock(as, i32ptr(J2G(as->J)), + rset_exclude(rset_exclude(RSET_GPR, tab), link)); + Reg mark = RID_TMP; + MCLabel l_end = emit_label(as); + emit_lso(as, ARMI_STR, link, tab, (int32_t)offsetof(GCtab, gclist)); + emit_lso(as, ARMI_STRB, mark, tab, (int32_t)offsetof(GCtab, marked)); + emit_lso(as, ARMI_STR, tab, gr, + (int32_t)offsetof(global_State, gc.grayagain)); + emit_dn(as, ARMI_BIC|ARMI_K12|LJ_GC_BLACK, mark, mark); + emit_lso(as, ARMI_LDR, link, gr, + (int32_t)offsetof(global_State, gc.grayagain)); + emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); + emit_n(as, ARMI_TST|ARMI_K12|LJ_GC_BLACK, mark); + emit_lso(as, ARMI_LDRB, mark, tab, (int32_t)offsetof(GCtab, marked)); +} + +static void asm_obar(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; + IRRef args[2]; + MCLabel l_end; + Reg obj, val, tmp; + /* No need for other object barriers (yet). */ + lua_assert(IR(ir->op1)->o == IR_UREFC); + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ir->op1; /* TValue *tv */ + asm_gencall(as, ci, args); + if ((l_end[-1] >> 28) == CC_AL) + l_end[-1] = ARMF_CC(l_end[-1], CC_NE); + else + emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); + ra_allockreg(as, i32ptr(J2G(as->J)), ra_releasetmp(as, ASMREF_TMP1)); + obj = IR(ir->op1)->r; + tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); + emit_n(as, ARMF_CC(ARMI_TST, CC_NE)|ARMI_K12|LJ_GC_BLACK, tmp); + emit_n(as, ARMI_TST|ARMI_K12|LJ_GC_WHITES, RID_TMP); + val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); + emit_lso(as, ARMI_LDRB, tmp, obj, + (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); + emit_lso(as, ARMI_LDRB, RID_TMP, val, (int32_t)offsetof(GChead, marked)); +} + +/* -- Arithmetic and logic operations ------------------------------------- */ + +#if !LJ_SOFTFP +static void asm_fparith(ASMState *as, IRIns *ir, ARMIns ai) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + emit_dnm(as, ai, (dest & 15), (left & 15), (right & 15)); +} + +static void asm_fpunary(ASMState *as, IRIns *ir, ARMIns ai) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); + emit_dm(as, ai, (dest & 15), (left & 15)); +} + +static int asm_fpjoin_pow(ASMState *as, IRIns *ir) +{ + IRIns *irp = IR(ir->op1); + if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { + IRIns *irpp = IR(irp->op1); + if (irpp == ir-2 && irpp->o == IR_FPMATH && + irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; + IRRef args[2]; + args[0] = irpp->op1; + args[1] = irp->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); + return 1; + } + } + return 0; +} +#endif + +static int asm_swapops(ASMState *as, IRRef lref, IRRef rref) +{ + IRIns *ir; + if (irref_isk(rref)) + return 0; /* Don't swap constants to the left. */ + if (irref_isk(lref)) + return 1; /* But swap constants to the right. */ + ir = IR(rref); + if ((ir->o >= IR_BSHL && ir->o <= IR_BROR) || + (ir->o == IR_ADD && ir->op1 == ir->op2)) + return 0; /* Don't swap fusable operands to the left. */ + ir = IR(lref); + if ((ir->o >= IR_BSHL && ir->o <= IR_BROR) || + (ir->o == IR_ADD && ir->op1 == ir->op2)) + return 1; /* But swap fusable operands to the right. */ + return 0; /* Otherwise don't swap. */ +} + +static void asm_intop(ASMState *as, IRIns *ir, ARMIns ai) +{ + IRRef lref = ir->op1, rref = ir->op2; + Reg left, dest = ra_dest(as, ir, RSET_GPR); + uint32_t m; + if (asm_swapops(as, lref, rref)) { + IRRef tmp = lref; lref = rref; rref = tmp; + if ((ai & ~ARMI_S) == ARMI_SUB || (ai & ~ARMI_S) == ARMI_SBC) + ai ^= (ARMI_SUB^ARMI_RSB); + } + left = ra_hintalloc(as, lref, dest, RSET_GPR); + m = asm_fuseopm(as, ai, rref, rset_exclude(RSET_GPR, left)); + if (irt_isguard(ir->t)) { /* For IR_ADDOV etc. */ + asm_guardcc(as, CC_VS); + ai |= ARMI_S; + } + emit_dn(as, ai^m, dest, left); +} + +static void asm_intop_s(ASMState *as, IRIns *ir, ARMIns ai) +{ + if (as->flagmcp == as->mcp) { /* Drop cmp r, #0. */ + as->flagmcp = NULL; + as->mcp++; + ai |= ARMI_S; + } + asm_intop(as, ir, ai); +} + +static void asm_bitop(ASMState *as, IRIns *ir, ARMIns ai) +{ + if (as->flagmcp == as->mcp) { /* Try to drop cmp r, #0. */ + uint32_t cc = (as->mcp[1] >> 28); + as->flagmcp = NULL; + if (cc <= CC_NE) { + as->mcp++; + ai |= ARMI_S; + } else if (cc == CC_GE) { + *++as->mcp ^= ((CC_GE^CC_PL) << 28); + ai |= ARMI_S; + } else if (cc == CC_LT) { + *++as->mcp ^= ((CC_LT^CC_MI) << 28); + ai |= ARMI_S; + } /* else: other conds don't work with bit ops. */ + } + if (ir->op2 == 0) { + Reg dest = ra_dest(as, ir, RSET_GPR); + uint32_t m = asm_fuseopm(as, ai, ir->op1, RSET_GPR); + emit_d(as, ai^m, dest); + } else { + /* NYI: Turn BAND !k12 into uxtb, uxth or bfc or shl+shr. */ + asm_intop(as, ir, ai); + } +} + +static void asm_intneg(ASMState *as, IRIns *ir, ARMIns ai) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + emit_dn(as, ai|ARMI_K12|0, dest, left); +} + +/* NYI: use add/shift for MUL(OV) with constants. FOLD only does 2^k. */ +static void asm_intmul(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, dest)); + Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + Reg tmp = RID_NONE; + /* ARMv5 restriction: dest != left and dest_hi != left. */ + if (dest == left && left != right) { left = right; right = dest; } + if (irt_isguard(ir->t)) { /* IR_MULOV */ + if (!(as->flags & JIT_F_ARMV6) && dest == left) + tmp = left = ra_scratch(as, rset_exclude(RSET_GPR, left)); + asm_guardcc(as, CC_NE); + emit_nm(as, ARMI_TEQ|ARMF_SH(ARMSH_ASR, 31), RID_TMP, dest); + emit_dnm(as, ARMI_SMULL|ARMF_S(right), dest, RID_TMP, left); + } else { + if (!(as->flags & JIT_F_ARMV6) && dest == left) tmp = left = RID_TMP; + emit_nm(as, ARMI_MUL|ARMF_S(right), dest, left); + } + /* Only need this for the dest == left == right case. */ + if (ra_hasreg(tmp)) emit_dm(as, ARMI_MOV, tmp, right); +} + +static void asm_add(ASMState *as, IRIns *ir) +{ +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { + if (!asm_fusemadd(as, ir, ARMI_VMLA_D, ARMI_VMLA_D)) + asm_fparith(as, ir, ARMI_VADD_D); + return; + } +#endif + asm_intop_s(as, ir, ARMI_ADD); +} + +static void asm_sub(ASMState *as, IRIns *ir) +{ +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { + if (!asm_fusemadd(as, ir, ARMI_VNMLS_D, ARMI_VMLS_D)) + asm_fparith(as, ir, ARMI_VSUB_D); + return; + } +#endif + asm_intop_s(as, ir, ARMI_SUB); +} + +static void asm_mul(ASMState *as, IRIns *ir) +{ +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { + asm_fparith(as, ir, ARMI_VMUL_D); + return; + } +#endif + asm_intmul(as, ir); +} + +static void asm_neg(ASMState *as, IRIns *ir) +{ +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { + asm_fpunary(as, ir, ARMI_VNEG_D); + return; + } +#endif + asm_intneg(as, ir, ARMI_RSB); +} + +static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +#if !LJ_SOFTFP +static void asm_callround(ASMState *as, IRIns *ir, int id) +{ + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RID2RSET(RID_R0)|RID2RSET(RID_R1)|RID2RSET(RID_R2)| + RID2RSET(RID_R3)|RID2RSET(RID_R12); + RegSet of; + Reg dest, src; + ra_evictset(as, drop); + dest = ra_dest(as, ir, RSET_FPR); + emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, (dest & 15)); + emit_call(as, id == IRFPM_FLOOR ? (void *)lj_vm_floor_sf : + id == IRFPM_CEIL ? (void *)lj_vm_ceil_sf : + (void *)lj_vm_trunc_sf); + /* Workaround to protect argument GPRs from being used for remat. */ + of = as->freeset; + as->freeset &= ~RSET_RANGE(RID_R0, RID_R1+1); + as->cost[RID_R0] = as->cost[RID_R1] = REGCOST(~0u, ASMREF_L); + src = ra_alloc1(as, ir->op1, RSET_FPR); /* May alloc GPR to remat FPR. */ + as->freeset |= (of & RSET_RANGE(RID_R0, RID_R1+1)); + emit_dnm(as, ARMI_VMOV_RR_D, RID_R0, RID_R1, (src & 15)); +} +#endif + +static void asm_bitswap(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + if ((as->flags & JIT_F_ARMV6)) { + emit_dm(as, ARMI_REV, dest, left); + } else { + Reg tmp2 = dest; + if (tmp2 == left) + tmp2 = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, dest), left)); + emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_LSR, 8), dest, tmp2, RID_TMP); + emit_dm(as, ARMI_MOV|ARMF_SH(ARMSH_ROR, 8), tmp2, left); + emit_dn(as, ARMI_BIC|ARMI_K12|256*8|255, RID_TMP, RID_TMP); + emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_ROR, 16), RID_TMP, left, left); + } +} + +static void asm_bitshift(ASMState *as, IRIns *ir, ARMShift sh) +{ + if (irref_isk(ir->op2)) { /* Constant shifts. */ + /* NYI: Turn SHL+SHR or BAND+SHR into uxtb, uxth or ubfx. */ + /* NYI: Turn SHL+ASR into sxtb, sxth or sbfx. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + int32_t shift = (IR(ir->op2)->i & 31); + emit_dm(as, ARMI_MOV|ARMF_SH(sh, shift), dest, left); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_dm(as, ARMI_MOV|ARMF_RSH(sh, right), dest, left); + } +} + +static void asm_intmin_max(ASMState *as, IRIns *ir, int cc) +{ + uint32_t kcmp = 0, kmov = 0; + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + Reg right = 0; + if (irref_isk(ir->op2)) { + kcmp = emit_isk12(ARMI_CMP, IR(ir->op2)->i); + if (kcmp) kmov = emit_isk12(ARMI_MOV, IR(ir->op2)->i); + } + if (!kmov) { + kcmp = 0; + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + } + if (kmov || dest != right) { + emit_dm(as, ARMF_CC(ARMI_MOV, cc)^kmov, dest, right); + cc ^= 1; /* Must use opposite conditions for paired moves. */ + } else { + cc ^= (CC_LT^CC_GT); /* Otherwise may swap CC_LT <-> CC_GT. */ + } + if (dest != left) emit_dm(as, ARMF_CC(ARMI_MOV, cc), dest, left); + emit_nm(as, ARMI_CMP^kcmp, left, right); +} + +#if LJ_SOFTFP +static void asm_sfpmin_max(ASMState *as, IRIns *ir, int cc) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_softfp_cmp]; + RegSet drop = RSET_SCRATCH; + Reg r; + IRRef args[4]; + args[0] = ir->op1; args[1] = (ir+1)->op1; + args[2] = ir->op2; args[3] = (ir+1)->op2; + /* __aeabi_cdcmple preserves r0-r3. */ + if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); + if (ra_hasreg((ir+1)->r)) rset_clear(drop, (ir+1)->r); + if (!rset_test(as->freeset, RID_R2) && + regcost_ref(as->cost[RID_R2]) == args[2]) rset_clear(drop, RID_R2); + if (!rset_test(as->freeset, RID_R3) && + regcost_ref(as->cost[RID_R3]) == args[3]) rset_clear(drop, RID_R3); + ra_evictset(as, drop); + ra_destpair(as, ir); + emit_dm(as, ARMF_CC(ARMI_MOV, cc), RID_RETHI, RID_R3); + emit_dm(as, ARMF_CC(ARMI_MOV, cc), RID_RETLO, RID_R2); + emit_call(as, (void *)ci->func); + for (r = RID_R0; r <= RID_R3; r++) + ra_leftov(as, r, args[r-RID_R0]); +} +#else +static void asm_fpmin_max(ASMState *as, IRIns *ir, int cc) +{ + Reg dest = (ra_dest(as, ir, RSET_FPR) & 15); + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = ((left >> 8) & 15); left &= 15; + if (dest != left) emit_dm(as, ARMF_CC(ARMI_VMOV_D, cc^1), dest, left); + if (dest != right) emit_dm(as, ARMF_CC(ARMI_VMOV_D, cc), dest, right); + emit_d(as, ARMI_VMRS, 0); + emit_dm(as, ARMI_VCMP_D, left, right); +} +#endif + +static void asm_min_max(ASMState *as, IRIns *ir, int cc, int fcc) +{ +#if LJ_SOFTFP + UNUSED(fcc); +#else + if (irt_isnum(ir->t)) + asm_fpmin_max(as, ir, fcc); + else +#endif + asm_intmin_max(as, ir, cc); +} + +/* -- Comparisons --------------------------------------------------------- */ + +/* Map of comparisons to flags. ORDER IR. */ +static const uint8_t asm_compmap[IR_ABC+1] = { + /* op FP swp int cc FP cc */ + /* LT */ CC_GE + (CC_HS << 4), + /* GE x */ CC_LT + (CC_HI << 4), + /* LE */ CC_GT + (CC_HI << 4), + /* GT x */ CC_LE + (CC_HS << 4), + /* ULT x */ CC_HS + (CC_LS << 4), + /* UGE */ CC_LO + (CC_LO << 4), + /* ULE x */ CC_HI + (CC_LO << 4), + /* UGT */ CC_LS + (CC_LS << 4), + /* EQ */ CC_NE + (CC_NE << 4), + /* NE */ CC_EQ + (CC_EQ << 4), + /* ABC */ CC_LS + (CC_LS << 4) /* Same as UGT. */ +}; + +#if LJ_SOFTFP +/* FP comparisons. */ +static void asm_sfpcomp(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_softfp_cmp]; + RegSet drop = RSET_SCRATCH; + Reg r; + IRRef args[4]; + int swp = (((ir->o ^ (ir->o >> 2)) & ~(ir->o >> 3) & 1) << 1); + args[swp^0] = ir->op1; args[swp^1] = (ir+1)->op1; + args[swp^2] = ir->op2; args[swp^3] = (ir+1)->op2; + /* __aeabi_cdcmple preserves r0-r3. This helps to reduce spills. */ + for (r = RID_R0; r <= RID_R3; r++) + if (!rset_test(as->freeset, r) && + regcost_ref(as->cost[r]) == args[r-RID_R0]) rset_clear(drop, r); + ra_evictset(as, drop); + asm_guardcc(as, (asm_compmap[ir->o] >> 4)); + emit_call(as, (void *)ci->func); + for (r = RID_R0; r <= RID_R3; r++) + ra_leftov(as, r, args[r-RID_R0]); +} +#else +/* FP comparisons. */ +static void asm_fpcomp(ASMState *as, IRIns *ir) +{ + Reg left, right; + ARMIns ai; + int swp = ((ir->o ^ (ir->o >> 2)) & ~(ir->o >> 3) & 1); + if (!swp && irref_isk(ir->op2) && ir_knum(IR(ir->op2))->u64 == 0) { + left = (ra_alloc1(as, ir->op1, RSET_FPR) & 15); + right = 0; + ai = ARMI_VCMPZ_D; + } else { + left = ra_alloc2(as, ir, RSET_FPR); + if (swp) { + right = (left & 15); left = ((left >> 8) & 15); + } else { + right = ((left >> 8) & 15); left &= 15; + } + ai = ARMI_VCMP_D; + } + asm_guardcc(as, (asm_compmap[ir->o] >> 4)); + emit_d(as, ARMI_VMRS, 0); + emit_dm(as, ai, left, right); +} +#endif + +/* Integer comparisons. */ +static void asm_intcomp(ASMState *as, IRIns *ir) +{ + ARMCC cc = (asm_compmap[ir->o] & 15); + IRRef lref = ir->op1, rref = ir->op2; + Reg left; + uint32_t m; + int cmpprev0 = 0; + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); + if (asm_swapops(as, lref, rref)) { + Reg tmp = lref; lref = rref; rref = tmp; + if (cc >= CC_GE) cc ^= 7; /* LT <-> GT, LE <-> GE */ + else if (cc > CC_NE) cc ^= 11; /* LO <-> HI, LS <-> HS */ + } + if (irref_isk(rref) && IR(rref)->i == 0) { + IRIns *irl = IR(lref); + cmpprev0 = (irl+1 == ir); + /* Combine comp(BAND(left, right), 0) into tst left, right. */ + if (cmpprev0 && irl->o == IR_BAND && !ra_used(irl)) { + IRRef blref = irl->op1, brref = irl->op2; + uint32_t m2 = 0; + Reg bleft; + if (asm_swapops(as, blref, brref)) { + Reg tmp = blref; blref = brref; brref = tmp; + } + if (irref_isk(brref)) { + m2 = emit_isk12(ARMI_AND, IR(brref)->i); + if ((m2 & (ARMI_AND^ARMI_BIC))) + goto notst; /* Not beneficial if we miss a constant operand. */ + } + if (cc == CC_GE) cc = CC_PL; + else if (cc == CC_LT) cc = CC_MI; + else if (cc > CC_NE) goto notst; /* Other conds don't work with tst. */ + bleft = ra_alloc1(as, blref, RSET_GPR); + if (!m2) m2 = asm_fuseopm(as, 0, brref, rset_exclude(RSET_GPR, bleft)); + asm_guardcc(as, cc); + emit_n(as, ARMI_TST^m2, bleft); + return; + } + } +notst: + left = ra_alloc1(as, lref, RSET_GPR); + m = asm_fuseopm(as, ARMI_CMP, rref, rset_exclude(RSET_GPR, left)); + asm_guardcc(as, cc); + emit_n(as, ARMI_CMP^m, left); + /* Signed comparison with zero and referencing previous ins? */ + if (cmpprev0 && (cc <= CC_NE || cc >= CC_GE)) + as->flagmcp = as->mcp; /* Allow elimination of the compare. */ +} + +#if LJ_HASFFI +/* 64 bit integer comparisons. */ +static void asm_int64comp(ASMState *as, IRIns *ir) +{ + int signedcomp = (ir->o <= IR_GT); + ARMCC cclo, cchi; + Reg leftlo, lefthi; + uint32_t mlo, mhi; + RegSet allow = RSET_GPR, oldfree; + + /* Always use unsigned comparison for loword. */ + cclo = asm_compmap[ir->o + (signedcomp ? 4 : 0)] & 15; + leftlo = ra_alloc1(as, ir->op1, allow); + oldfree = as->freeset; + mlo = asm_fuseopm(as, ARMI_CMP, ir->op2, rset_clear(allow, leftlo)); + allow &= ~(oldfree & ~as->freeset); /* Update for allocs of asm_fuseopm. */ + + /* Use signed or unsigned comparison for hiword. */ + cchi = asm_compmap[ir->o] & 15; + lefthi = ra_alloc1(as, (ir+1)->op1, allow); + mhi = asm_fuseopm(as, ARMI_CMP, (ir+1)->op2, rset_clear(allow, lefthi)); + + /* All register allocations must be performed _before_ this point. */ + if (signedcomp) { + MCLabel l_around = emit_label(as); + asm_guardcc(as, cclo); + emit_n(as, ARMI_CMP^mlo, leftlo); + emit_branch(as, ARMF_CC(ARMI_B, CC_NE), l_around); + if (cchi == CC_GE || cchi == CC_LE) cchi ^= 6; /* GE -> GT, LE -> LT */ + asm_guardcc(as, cchi); + } else { + asm_guardcc(as, cclo); + emit_n(as, ARMF_CC(ARMI_CMP, CC_EQ)^mlo, leftlo); + } + emit_n(as, ARMI_CMP^mhi, lefthi); +} +#endif + +/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ + +/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ +static void asm_hiop(ASMState *as, IRIns *ir) +{ +#if LJ_HASFFI || LJ_SOFTFP + /* HIOP is marked as a store because it needs its own DCE logic. */ + int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ + if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; + if ((ir-1)->o <= IR_NE) { /* 64 bit integer or FP comparisons. ORDER IR. */ + as->curins--; /* Always skip the loword comparison. */ +#if LJ_SOFTFP + if (!irt_isint(ir->t)) { + asm_sfpcomp(as, ir-1); + return; + } +#endif +#if LJ_HASFFI + asm_int64comp(as, ir-1); +#endif + return; +#if LJ_SOFTFP + } else if ((ir-1)->o == IR_MIN || (ir-1)->o == IR_MAX) { + as->curins--; /* Always skip the loword min/max. */ + if (uselo || usehi) + asm_sfpmin_max(as, ir-1, (ir-1)->o == IR_MIN ? CC_HI : CC_LO); + return; +#elif LJ_HASFFI + } else if ((ir-1)->o == IR_CONV) { + as->curins--; /* Always skip the CONV. */ + if (usehi || uselo) + asm_conv64(as, ir); + return; +#endif + } else if ((ir-1)->o == IR_XSTORE) { + if ((ir-1)->r != RID_SINK) + asm_xstore(as, ir, 4); + return; + } + if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ + switch ((ir-1)->o) { +#if LJ_HASFFI + case IR_ADD: + as->curins--; + asm_intop(as, ir, ARMI_ADC); + asm_intop(as, ir-1, ARMI_ADD|ARMI_S); + break; + case IR_SUB: + as->curins--; + asm_intop(as, ir, ARMI_SBC); + asm_intop(as, ir-1, ARMI_SUB|ARMI_S); + break; + case IR_NEG: + as->curins--; + asm_intneg(as, ir, ARMI_RSC); + asm_intneg(as, ir-1, ARMI_RSB|ARMI_S); + break; +#endif +#if LJ_SOFTFP + case IR_SLOAD: case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + case IR_STRTO: + if (!uselo) + ra_allocref(as, ir->op1, RSET_GPR); /* Mark lo op as used. */ + break; +#endif + case IR_CALLN: + case IR_CALLS: + case IR_CALLXS: + if (!uselo) + ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ + break; +#if LJ_SOFTFP + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: case IR_TOSTR: +#endif + case IR_CNEWI: + /* Nothing to do here. Handled by lo op itself. */ + break; + default: lua_assert(0); break; + } +#else + UNUSED(as); UNUSED(ir); lua_assert(0); +#endif +} + +/* -- Stack handling ------------------------------------------------------ */ + +/* Check Lua stack size for overflow. Use exit handler as fallback. */ +static void asm_stack_check(ASMState *as, BCReg topslot, + IRIns *irp, RegSet allow, ExitNo exitno) +{ + Reg pbase; + uint32_t k; + if (irp) { + if (!ra_hasspill(irp->s)) { + pbase = irp->r; + lua_assert(ra_hasreg(pbase)); + } else if (allow) { + pbase = rset_pickbot(allow); + } else { + pbase = RID_RET; + emit_lso(as, ARMI_LDR, RID_RET, RID_SP, 0); /* Restore temp. register. */ + } + } else { + pbase = RID_BASE; + } + emit_branch(as, ARMF_CC(ARMI_BL, CC_LS), exitstub_addr(as->J, exitno)); + k = emit_isk12(0, (int32_t)(8*topslot)); + lua_assert(k); + emit_n(as, ARMI_CMP^k, RID_TMP); + emit_dnm(as, ARMI_SUB, RID_TMP, RID_TMP, pbase); + emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, + (int32_t)offsetof(lua_State, maxstack)); + if (irp) { /* Must not spill arbitrary registers in head of side trace. */ + int32_t i = i32ptr(&J2G(as->J)->jit_L); + if (ra_hasspill(irp->s)) + emit_lso(as, ARMI_LDR, pbase, RID_SP, sps_scale(irp->s)); + emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, (i & 4095)); + if (ra_hasspill(irp->s) && !allow) + emit_lso(as, ARMI_STR, RID_RET, RID_SP, 0); /* Save temp. register. */ + emit_loadi(as, RID_TMP, (i & ~4095)); + } else { + emit_getgl(as, RID_TMP, jit_L); + } +} + +/* Restore Lua stack from on-trace state. */ +static void asm_stack_restore(ASMState *as, SnapShot *snap) +{ + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; + MSize n, nent = snap->nent; + /* Store the value of all modified slots to the Lua stack. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + BCReg s = snap_slot(sn); + int32_t ofs = 8*((int32_t)s-1); + IRRef ref = snap_ref(sn); + IRIns *ir = IR(ref); + if ((sn & SNAP_NORESTORE)) + continue; + if (irt_isnum(ir->t)) { +#if LJ_SOFTFP + RegSet odd = rset_exclude(RSET_GPRODD, RID_BASE); + Reg tmp; + lua_assert(irref_isk(ref)); /* LJ_SOFTFP: must be a number constant. */ + tmp = ra_allock(as, (int32_t)ir_knum(ir)->u32.lo, + rset_exclude(RSET_GPREVEN, RID_BASE)); + emit_lso(as, ARMI_STR, tmp, RID_BASE, ofs); + if (rset_test(as->freeset, tmp+1)) odd = RID2RSET(tmp+1); + tmp = ra_allock(as, (int32_t)ir_knum(ir)->u32.hi, odd); + emit_lso(as, ARMI_STR, tmp, RID_BASE, ofs+4); +#else + Reg src = ra_alloc1(as, ref, RSET_FPR); + emit_vlso(as, ARMI_VSTR_D, src, RID_BASE, ofs); +#endif + } else { + RegSet odd = rset_exclude(RSET_GPRODD, RID_BASE); + Reg type; + lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPREVEN, RID_BASE)); + emit_lso(as, ARMI_STR, src, RID_BASE, ofs); + if (rset_test(as->freeset, src+1)) odd = RID2RSET(src+1); + } + if ((sn & (SNAP_CONT|SNAP_FRAME))) { + if (s == 0) continue; /* Do not overwrite link to previous frame. */ + type = ra_allock(as, (int32_t)(*flinks--), odd); +#if LJ_SOFTFP + } else if ((sn & SNAP_SOFTFPNUM)) { + type = ra_alloc1(as, ref+1, rset_exclude(RSET_GPRODD, RID_BASE)); +#endif + } else { + type = ra_allock(as, (int32_t)irt_toitype(ir->t), odd); + } + emit_lso(as, ARMI_STR, type, RID_BASE, ofs+4); + } + checkmclim(as); + } + lua_assert(map + nent == flinks); +} + +/* -- GC handling --------------------------------------------------------- */ + +/* Check GC threshold and do one or more GC steps. */ +static void asm_gc_check(ASMState *as) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; + IRRef args[2]; + MCLabel l_end; + Reg tmp1, tmp2; + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ + asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ + emit_n(as, ARMI_CMP|ARMI_K12|0, RID_RET); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ASMREF_TMP2; /* MSize steps */ + asm_gencall(as, ci, args); + tmp1 = ra_releasetmp(as, ASMREF_TMP1); + tmp2 = ra_releasetmp(as, ASMREF_TMP2); + emit_loadi(as, tmp2, as->gcsteps); + /* Jump around GC step if GC total < GC threshold. */ + emit_branch(as, ARMF_CC(ARMI_B, CC_LS), l_end); + emit_nm(as, ARMI_CMP, RID_TMP, tmp2); + emit_lso(as, ARMI_LDR, tmp2, tmp1, + (int32_t)offsetof(global_State, gc.threshold)); + emit_lso(as, ARMI_LDR, RID_TMP, tmp1, + (int32_t)offsetof(global_State, gc.total)); + ra_allockreg(as, i32ptr(J2G(as->J)), tmp1); + as->gcsteps = 0; + checkmclim(as); +} + +/* -- Loop handling ------------------------------------------------------- */ + +/* Fixup the loop branch. */ +static void asm_loop_fixup(ASMState *as) +{ + MCode *p = as->mctop; + MCode *target = as->mcp; + if (as->loopinv) { /* Inverted loop branch? */ + /* asm_guardcc already inverted the bcc and patched the final bl. */ + p[-2] |= ((uint32_t)(target-p) & 0x00ffffffu); + } else { + p[-1] = ARMI_B | ((uint32_t)((target-p)-1) & 0x00ffffffu); + } +} + +/* -- Head of trace ------------------------------------------------------- */ + +/* Reload L register from g->jit_L. */ +static void asm_head_lreg(ASMState *as) +{ + IRIns *ir = IR(ASMREF_L); + if (ra_used(ir)) { + Reg r = ra_dest(as, ir, RSET_GPR); + emit_getgl(as, r, jit_L); + ra_evictk(as); + } +} + +/* Coalesce BASE register for a root trace. */ +static void asm_head_root_base(ASMState *as) +{ + IRIns *ir; + asm_head_lreg(as); + ir = IR(REF_BASE); + if (ra_hasreg(ir->r) && (rset_test(as->modset, ir->r) || irt_ismarked(ir->t))) + ra_spill(as, ir); + ra_destreg(as, ir, RID_BASE); +} + +/* Coalesce BASE register for a side trace. */ +static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) +{ + IRIns *ir; + asm_head_lreg(as); + ir = IR(REF_BASE); + if (ra_hasreg(ir->r) && (rset_test(as->modset, ir->r) || irt_ismarked(ir->t))) + ra_spill(as, ir); + if (ra_hasspill(irp->s)) { + rset_clear(allow, ra_dest(as, ir, allow)); + } else { + Reg r = irp->r; + lua_assert(ra_hasreg(r)); + rset_clear(allow, r); + if (r != ir->r && !rset_test(as->freeset, r)) + ra_restore(as, regcost_ref(as->cost[r])); + ra_destreg(as, ir, r); + } + return allow; +} + +/* -- Tail of trace ------------------------------------------------------- */ + +/* Fixup the tail code. */ +static void asm_tail_fixup(ASMState *as, TraceNo lnk) +{ + MCode *p = as->mctop; + MCode *target; + int32_t spadj = as->T->spadjust; + if (spadj == 0) { + as->mctop = --p; + } else { + /* Patch stack adjustment. */ + uint32_t k = emit_isk12(ARMI_ADD, spadj); + lua_assert(k); + p[-2] = (ARMI_ADD^k) | ARMF_D(RID_SP) | ARMF_N(RID_SP); + } + /* Patch exit branch. */ + target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; + p[-1] = ARMI_B|(((target-p)-1)&0x00ffffffu); +} + +/* Prepare tail of code. */ +static void asm_tail_prep(ASMState *as) +{ + MCode *p = as->mctop - 1; /* Leave room for exit branch. */ + if (as->loopref) { + as->invmcp = as->mcp = p; + } else { + as->mcp = p-1; /* Leave room for stack pointer adjustment. */ + as->invmcp = NULL; + } + *p = 0; /* Prevent load/store merging. */ +} + +/* -- Instruction dispatch ------------------------------------------------ */ + +/* Assemble a single instruction. */ +static void asm_ir(ASMState *as, IRIns *ir) +{ + switch ((IROp)ir->o) { + /* Miscellaneous ops. */ + case IR_LOOP: asm_loop(as); break; + case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; + case IR_USE: + ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; + case IR_PHI: asm_phi(as, ir); break; + case IR_HIOP: asm_hiop(as, ir); break; + case IR_GCSTEP: asm_gcstep(as, ir); break; + + /* Guarded assertions. */ + case IR_EQ: case IR_NE: + if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { + as->curins--; + asm_href(as, ir-1, (IROp)ir->o); + break; + } + /* fallthrough */ + case IR_LT: case IR_GE: case IR_LE: case IR_GT: + case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: + case IR_ABC: +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) { asm_fpcomp(as, ir); break; } +#endif + asm_intcomp(as, ir); + break; + + case IR_RETF: asm_retf(as, ir); break; + + /* Bit ops. */ + case IR_BNOT: asm_bitop(as, ir, ARMI_MVN); break; + case IR_BSWAP: asm_bitswap(as, ir); break; + + case IR_BAND: asm_bitop(as, ir, ARMI_AND); break; + case IR_BOR: asm_bitop(as, ir, ARMI_ORR); break; + case IR_BXOR: asm_bitop(as, ir, ARMI_EOR); break; + + case IR_BSHL: asm_bitshift(as, ir, ARMSH_LSL); break; + case IR_BSHR: asm_bitshift(as, ir, ARMSH_LSR); break; + case IR_BSAR: asm_bitshift(as, ir, ARMSH_ASR); break; + case IR_BROR: asm_bitshift(as, ir, ARMSH_ROR); break; + case IR_BROL: lua_assert(0); break; + + /* Arithmetic ops. */ + case IR_ADD: case IR_ADDOV: asm_add(as, ir); break; + case IR_SUB: case IR_SUBOV: asm_sub(as, ir); break; + case IR_MUL: case IR_MULOV: asm_mul(as, ir); break; + case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; + case IR_NEG: asm_neg(as, ir); break; + +#if LJ_SOFTFP + case IR_DIV: case IR_POW: case IR_ABS: + case IR_ATAN2: case IR_LDEXP: case IR_FPMATH: case IR_TOBIT: + lua_assert(0); /* Unused for LJ_SOFTFP. */ + break; +#else + case IR_DIV: asm_fparith(as, ir, ARMI_VDIV_D); break; + case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; + case IR_ABS: asm_fpunary(as, ir, ARMI_VABS_D); break; + case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; + case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; + case IR_FPMATH: + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + break; + if (ir->op2 <= IRFPM_TRUNC) + asm_callround(as, ir, ir->op2); + else if (ir->op2 == IRFPM_SQRT) + asm_fpunary(as, ir, ARMI_VSQRT_D); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); + break; + case IR_TOBIT: asm_tobit(as, ir); break; +#endif + + case IR_MIN: asm_min_max(as, ir, CC_GT, CC_HI); break; + case IR_MAX: asm_min_max(as, ir, CC_LT, CC_LO); break; + + /* Memory references. */ + case IR_AREF: asm_aref(as, ir); break; + case IR_HREF: asm_href(as, ir, 0); break; + case IR_HREFK: asm_hrefk(as, ir); break; + case IR_NEWREF: asm_newref(as, ir); break; + case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; + case IR_FREF: asm_fref(as, ir); break; + case IR_STRREF: asm_strref(as, ir); break; + + /* Loads and stores. */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + asm_ahuvload(as, ir); + break; + case IR_FLOAD: asm_fload(as, ir); break; + case IR_XLOAD: asm_xload(as, ir); break; + case IR_SLOAD: asm_sload(as, ir); break; + + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; + case IR_FSTORE: asm_fstore(as, ir); break; + case IR_XSTORE: asm_xstore(as, ir, 0); break; + + /* Allocations. */ + case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; + case IR_TNEW: asm_tnew(as, ir); break; + case IR_TDUP: asm_tdup(as, ir); break; + case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; + + /* Write barriers. */ + case IR_TBAR: asm_tbar(as, ir); break; + case IR_OBAR: asm_obar(as, ir); break; + + /* Type conversions. */ + case IR_CONV: asm_conv(as, ir); break; + case IR_TOSTR: asm_tostr(as, ir); break; + case IR_STRTO: asm_strto(as, ir); break; + + /* Calls. */ + case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; + case IR_CALLXS: asm_callx(as, ir); break; + case IR_CARG: break; + + default: + setintV(&as->J->errinfo, ir->o); + lj_trace_err_info(as->J, LJ_TRERR_NYIIR); + break; + } +} + +/* -- Trace setup --------------------------------------------------------- */ + +/* Ensure there are enough stack slots for call arguments. */ +static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + IRRef args[CCI_NARGS_MAX*2]; + uint32_t i, nargs = (int)CCI_NARGS(ci); + int nslots = 0, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR, fprodd = 0; + asm_collectargs(as, ir, ci, args); + for (i = 0; i < nargs; i++) { + if (!LJ_SOFTFP && args[i] && irt_isfp(IR(args[i])->t)) { + if (!LJ_ABI_SOFTFP && !(ci->flags & CCI_VARARG)) { + if (irt_isnum(IR(args[i])->t)) { + if (nfpr > 0) nfpr--; + else fprodd = 0, nslots = (nslots + 3) & ~1; + } else { + if (fprodd) fprodd--; + else if (nfpr > 0) fprodd = 1, nfpr--; + else nslots++; + } + } else if (irt_isnum(IR(args[i])->t)) { + ngpr &= ~1; + if (ngpr > 0) ngpr -= 2; else nslots += 2; + } else { + if (ngpr > 0) ngpr--; else nslots++; + } + } else { + if (ngpr > 0) ngpr--; else nslots++; + } + } + if (nslots > as->evenspill) /* Leave room for args in stack slots. */ + as->evenspill = nslots; + return REGSP_HINT(RID_RET); +} + +static void asm_setup_target(ASMState *as) +{ + /* May need extra exit for asm_stack_check on side traces. */ + asm_exitstub_setup(as, as->T->nsnap + (as->parent ? 1 : 0)); +} + +/* -- Trace patching ------------------------------------------------------ */ + +/* Patch exit jumps of existing machine code to a new target. */ +void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) +{ + MCode *p = T->mcode; + MCode *pe = (MCode *)((char *)p + T->szmcode); + MCode *cstart = NULL, *cend = p; + MCode *mcarea = lj_mcode_patch(J, p, 0); + MCode *px = exitstub_addr(J, exitno) - 2; + for (; p < pe; p++) { + /* Look for bl_cc exitstub, replace with b_cc target. */ + uint32_t ins = *p; + if ((ins & 0x0f000000u) == 0x0b000000u && ins < 0xf0000000u && + ((ins ^ (px-p)) & 0x00ffffffu) == 0) { + *p = (ins & 0xfe000000u) | (((target-p)-2) & 0x00ffffffu); + cend = p+1; + if (!cstart) cstart = p; + } + } + lua_assert(cstart != NULL); + lj_mcode_sync(cstart, cend); + lj_mcode_patch(J, mcarea, 1); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_asm_mips.h b/src/3rd party/luajit-2.0/src/lj_asm_mips.h new file mode 100644 index 00000000000..78bd26d5db5 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm_mips.h @@ -0,0 +1,1977 @@ +/* +** MIPS IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Register allocator extensions --------------------------------------- */ + +/* Allocate a register with a hint. */ +static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) +{ + Reg r = IR(ref)->r; + if (ra_noreg(r)) { + if (!ra_hashint(r) && !iscrossref(as, ref)) + ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ + r = ra_allocref(as, ref, allow); + } + ra_noweak(as, r); + return r; +} + +/* Allocate a register or RID_ZERO. */ +static Reg ra_alloc1z(ASMState *as, IRRef ref, RegSet allow) +{ + Reg r = IR(ref)->r; + if (ra_noreg(r)) { + if (!(allow & RSET_FPR) && irref_isk(ref) && IR(ref)->i == 0) + return RID_ZERO; + r = ra_allocref(as, ref, allow); + } else { + ra_noweak(as, r); + } + return r; +} + +/* Allocate two source registers for three-operand instructions. */ +static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) +{ + IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); + Reg left = irl->r, right = irr->r; + if (ra_hasreg(left)) { + ra_noweak(as, left); + if (ra_noreg(right)) + right = ra_alloc1z(as, ir->op2, rset_exclude(allow, left)); + else + ra_noweak(as, right); + } else if (ra_hasreg(right)) { + ra_noweak(as, right); + left = ra_alloc1z(as, ir->op1, rset_exclude(allow, right)); + } else if (ra_hashint(right)) { + right = ra_alloc1z(as, ir->op2, allow); + left = ra_alloc1z(as, ir->op1, rset_exclude(allow, right)); + } else { + left = ra_alloc1z(as, ir->op1, allow); + right = ra_alloc1z(as, ir->op2, rset_exclude(allow, left)); + } + return left | (right << 8); +} + +/* -- Guard handling ------------------------------------------------------ */ + +/* Need some spare long-range jump slots, for out-of-range branches. */ +#define MIPS_SPAREJUMP 4 + +/* Setup spare long-range jump slots per mcarea. */ +static void asm_sparejump_setup(ASMState *as) +{ + MCode *mxp = as->mcbot; + /* Assumes sizeof(MCLink) == 8. */ + if (((uintptr_t)mxp & (LJ_PAGESIZE-1)) == 8) { + lua_assert(MIPSI_NOP == 0); + memset(mxp+2, 0, MIPS_SPAREJUMP*8); + mxp += MIPS_SPAREJUMP*2; + lua_assert(mxp < as->mctop); + lj_mcode_sync(as->mcbot, mxp); + lj_mcode_commitbot(as->J, mxp); + as->mcbot = mxp; + as->mclim = as->mcbot + MCLIM_REDZONE; + } +} + +/* Setup exit stub after the end of each trace. */ +static void asm_exitstub_setup(ASMState *as) +{ + MCode *mxp = as->mctop; + /* sw TMP, 0(sp); j ->vm_exit_handler; li TMP, traceno */ + *--mxp = MIPSI_LI|MIPSF_T(RID_TMP)|as->T->traceno; + *--mxp = MIPSI_J|((((uintptr_t)(void *)lj_vm_exit_handler)>>2)&0x03ffffffu); + lua_assert(((uintptr_t)mxp ^ (uintptr_t)(void *)lj_vm_exit_handler)>>28 == 0); + *--mxp = MIPSI_SW|MIPSF_T(RID_TMP)|MIPSF_S(RID_SP)|0; + as->mctop = mxp; +} + +/* Keep this in-sync with exitstub_trace_addr(). */ +#define asm_exitstub_addr(as) ((as)->mctop) + +/* Emit conditional branch to exit for guard. */ +static void asm_guard(ASMState *as, MIPSIns mi, Reg rs, Reg rt) +{ + MCode *target = asm_exitstub_addr(as); + MCode *p = as->mcp; + if (LJ_UNLIKELY(p == as->invmcp)) { + as->invmcp = NULL; + as->loopinv = 1; + as->mcp = p+1; + mi = mi ^ ((mi>>28) == 1 ? 0x04000000u : 0x00010000u); /* Invert cond. */ + target = p; /* Patch target later in asm_loop_fixup. */ + } + emit_ti(as, MIPSI_LI, RID_TMP, as->snapno); + emit_branch(as, mi, rs, rt, target); +} + +/* -- Operand fusion ------------------------------------------------------ */ + +/* Limit linear search to this distance. Avoids O(n^2) behavior. */ +#define CONFLICT_SEARCH_LIM 31 + +/* Check if there's no conflicting instruction between curins and ref. */ +static int noconflict(ASMState *as, IRRef ref, IROp conflict) +{ + IRIns *ir = as->ir; + IRRef i = as->curins; + if (i > ref + CONFLICT_SEARCH_LIM) + return 0; /* Give up, ref is too far away. */ + while (--i > ref) + if (ir[i].o == conflict) + return 0; /* Conflict found. */ + return 1; /* Ok, no conflict. */ +} + +/* Fuse the array base of colocated arrays. */ +static int32_t asm_fuseabase(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && + !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) + return (int32_t)sizeof(GCtab); + return 0; +} + +/* Fuse array/hash/upvalue reference into register+offset operand. */ +static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow) +{ + IRIns *ir = IR(ref); + if (ra_noreg(ir->r)) { + if (ir->o == IR_AREF) { + if (mayfuse(as, ref)) { + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + ofs += 8*IR(ir->op2)->i; + if (checki16(ofs)) { + *ofsp = ofs; + return ra_alloc1(as, refa, allow); + } + } + } + } else if (ir->o == IR_HREFK) { + if (mayfuse(as, ref)) { + int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); + if (checki16(ofs)) { + *ofsp = ofs; + return ra_alloc1(as, ir->op1, allow); + } + } + } else if (ir->o == IR_UREFC) { + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); + int32_t jgl = (intptr_t)J2G(as->J); + if ((uint32_t)(ofs-jgl) < 65536) { + *ofsp = ofs-jgl-32768; + return RID_JGL; + } else { + *ofsp = (int16_t)ofs; + return ra_allock(as, ofs-(int16_t)ofs, allow); + } + } + } + } + *ofsp = 0; + return ra_alloc1(as, ref, allow); +} + +/* Fuse XLOAD/XSTORE reference into load/store operand. */ +static void asm_fusexref(ASMState *as, MIPSIns mi, Reg rt, IRRef ref, + RegSet allow, int32_t ofs) +{ + IRIns *ir = IR(ref); + Reg base; + if (ra_noreg(ir->r) && canfuse(as, ir)) { + if (ir->o == IR_ADD) { + int32_t ofs2; + if (irref_isk(ir->op2) && (ofs2 = ofs + IR(ir->op2)->i, checki16(ofs2))) { + ref = ir->op1; + ofs = ofs2; + } + } else if (ir->o == IR_STRREF) { + int32_t ofs2 = 65536; + lua_assert(ofs == 0); + ofs = (int32_t)sizeof(GCstr); + if (irref_isk(ir->op2)) { + ofs2 = ofs + IR(ir->op2)->i; + ref = ir->op1; + } else if (irref_isk(ir->op1)) { + ofs2 = ofs + IR(ir->op1)->i; + ref = ir->op2; + } + if (!checki16(ofs2)) { + /* NYI: Fuse ADD with constant. */ + Reg right, left = ra_alloc2(as, ir, allow); + right = (left >> 8); left &= 255; + emit_hsi(as, mi, rt, RID_TMP, ofs); + emit_dst(as, MIPSI_ADDU, RID_TMP, left, right); + return; + } + ofs = ofs2; + } + } + base = ra_alloc1(as, ref, allow); + emit_hsi(as, mi, rt, base, ofs); +} + +/* -- Calls --------------------------------------------------------------- */ + +/* Generate a call to a C function. */ +static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) +{ + uint32_t n, nargs = CCI_NARGS(ci); + int32_t ofs = 16; + Reg gpr, fpr = REGARG_FIRSTFPR; + if ((void *)ci->func) + emit_call(as, (void *)ci->func); + for (gpr = REGARG_FIRSTGPR; gpr <= REGARG_LASTGPR; gpr++) + as->cost[gpr] = REGCOST(~0u, ASMREF_L); + gpr = REGARG_FIRSTGPR; + for (n = 0; n < nargs; n++) { /* Setup args. */ + IRRef ref = args[n]; + if (ref) { + IRIns *ir = IR(ref); + if (irt_isfp(ir->t) && fpr <= REGARG_LASTFPR && + !(ci->flags & CCI_VARARG)) { + lua_assert(rset_test(as->freeset, fpr)); /* Already evicted. */ + ra_leftov(as, fpr, ref); + fpr += 2; + gpr += irt_isnum(ir->t) ? 2 : 1; + } else { + fpr = REGARG_LASTFPR+1; + if (irt_isnum(ir->t)) gpr = (gpr+1) & ~1; + if (gpr <= REGARG_LASTGPR) { + lua_assert(rset_test(as->freeset, gpr)); /* Already evicted. */ + if (irt_isfp(ir->t)) { + RegSet of = as->freeset; + Reg r; + /* Workaround to protect argument GPRs from being used for remat. */ + as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); + r = ra_alloc1(as, ref, RSET_FPR); + as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); + if (irt_isnum(ir->t)) { + emit_tg(as, MIPSI_MFC1, gpr+(LJ_BE?0:1), r+1); + emit_tg(as, MIPSI_MFC1, gpr+(LJ_BE?1:0), r); + lua_assert(rset_test(as->freeset, gpr+1)); /* Already evicted. */ + gpr += 2; + } else if (irt_isfloat(ir->t)) { + emit_tg(as, MIPSI_MFC1, gpr, r); + gpr++; + } + } else { + ra_leftov(as, gpr, ref); + gpr++; + } + } else { + Reg r = ra_alloc1z(as, ref, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; + emit_spstore(as, ir, r, ofs); + ofs += irt_isnum(ir->t) ? 8 : 4; + } + } + } else { + fpr = REGARG_LASTFPR+1; + if (gpr <= REGARG_LASTGPR) + gpr++; + else + ofs += 4; + } + checkmclim(as); + } +} + +/* Setup result reg/sp for call. Evict scratch regs. */ +static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + RegSet drop = RSET_SCRATCH; + int hiop = ((ir+1)->o == IR_HIOP); + if ((ci->flags & CCI_NOFPRCLOBBER)) + drop &= ~RSET_FPR; + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + if (hiop && ra_hasreg((ir+1)->r)) + rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ + ra_evictset(as, drop); /* Evictions must be performed first. */ + if (ra_used(ir)) { + lua_assert(!irt_ispri(ir->t)); + if (irt_isfp(ir->t)) { + if ((ci->flags & CCI_CASTU64)) { + int32_t ofs = sps_scale(ir->s); + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_tg(as, MIPSI_MTC1, RID_RETHI, dest+1); + emit_tg(as, MIPSI_MTC1, RID_RETLO, dest); + } + if (ofs) { + emit_tsi(as, MIPSI_SW, RID_RETLO, RID_SP, ofs+(LJ_BE?4:0)); + emit_tsi(as, MIPSI_SW, RID_RETHI, RID_SP, ofs+(LJ_BE?0:4)); + } + } else { + ra_destreg(as, ir, RID_FPRET); + } + } else if (hiop) { + ra_destpair(as, ir); + } else { + ra_destreg(as, ir, RID_RET); + } + } +} + +static void asm_call(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX]; + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + asm_collectargs(as, ir, ci, args); + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static void asm_callx(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX*2]; + CCallInfo ci; + IRRef func; + IRIns *irf; + ci.flags = asm_callx_flags(as, ir); + asm_collectargs(as, ir, &ci, args); + asm_setupresult(as, ir, &ci); + func = ir->op2; irf = IR(func); + if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } + if (irref_isk(func)) { /* Call to constant address. */ + ci.func = (ASMFunction)(void *)(irf->i); + } else { /* Need specific register for indirect calls. */ + Reg r = ra_alloc1(as, func, RID2RSET(RID_CFUNCADDR)); + MCode *p = as->mcp; + if (r == RID_CFUNCADDR) + *--p = MIPSI_NOP; + else + *--p = MIPSI_MOVE | MIPSF_D(RID_CFUNCADDR) | MIPSF_S(r); + *--p = MIPSI_JALR | MIPSF_S(r); + as->mcp = p; + ci.func = (ASMFunction)(void *)0; + } + asm_gencall(as, &ci, args); +} + +static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static void asm_callround(ASMState *as, IRIns *ir, IRCallID id) +{ + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RID2RSET(RID_R1)|RID2RSET(RID_R12)|RID2RSET(RID_FPRET)| + RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(REGARG_FIRSTFPR); + if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); + ra_evictset(as, drop); + ra_destreg(as, ir, RID_FPRET); + emit_call(as, (void *)lj_ir_callinfo[id].func); + ra_leftov(as, REGARG_FIRSTFPR, ir->op1); +} + +/* -- Returns ------------------------------------------------------------- */ + +/* Return to lower frame. Guard that it goes to the right spot. */ +static void asm_retf(ASMState *as, IRIns *ir) +{ + Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); + void *pc = ir_kptr(IR(ir->op2)); + int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + as->topslot -= (BCReg)delta; + if ((int32_t)as->topslot < 0) as->topslot = 0; + irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ + emit_setgl(as, base, jit_base); + emit_addptr(as, base, -8*delta); + asm_guard(as, MIPSI_BNE, RID_TMP, + ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); + emit_tsi(as, MIPSI_LW, RID_TMP, base, -8); +} + +/* -- Type conversions ---------------------------------------------------- */ + +static void asm_tointg(ASMState *as, IRIns *ir, Reg left) +{ + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_guard(as, MIPSI_BC1F, 0, 0); + emit_fgh(as, MIPSI_C_EQ_D, 0, tmp, left); + emit_fg(as, MIPSI_CVT_D_W, tmp, tmp); + emit_tg(as, MIPSI_MFC1, dest, tmp); + emit_fg(as, MIPSI_CVT_W_D, tmp, left); +} + +static void asm_tobit(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_FPR; + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, allow); + Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); + Reg tmp = ra_scratch(as, rset_clear(allow, right)); + emit_tg(as, MIPSI_MFC1, dest, tmp); + emit_fgh(as, MIPSI_ADD_D, tmp, left, right); +} + +static void asm_conv(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); + int stfp = (st == IRT_NUM || st == IRT_FLOAT); + IRRef lref = ir->op1; + lua_assert(irt_type(ir->t) != st); + lua_assert(!(irt_isint64(ir->t) || + (st == IRT_I64 || st == IRT_U64))); /* Handled by SPLIT. */ + if (irt_isfp(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + if (stfp) { /* FP to FP conversion. */ + emit_fg(as, st == IRT_NUM ? MIPSI_CVT_S_D : MIPSI_CVT_D_S, + dest, ra_alloc1(as, lref, RSET_FPR)); + } else if (st == IRT_U32) { /* U32 to FP conversion. */ + /* y = (x ^ 0x8000000) + 2147483648.0 */ + Reg left = ra_alloc1(as, lref, RSET_GPR); + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, dest)); + emit_fgh(as, irt_isfloat(ir->t) ? MIPSI_ADD_S : MIPSI_ADD_D, + dest, dest, tmp); + emit_fg(as, irt_isfloat(ir->t) ? MIPSI_CVT_S_W : MIPSI_CVT_D_W, + dest, dest); + if (irt_isfloat(ir->t)) + emit_lsptr(as, MIPSI_LWC1, (tmp & 31), + (void *)lj_ir_k64_find(as->J, U64x(4f000000,4f000000)), + RSET_GPR); + else + emit_lsptr(as, MIPSI_LDC1, (tmp & 31), + (void *)lj_ir_k64_find(as->J, U64x(41e00000,00000000)), + RSET_GPR); + emit_tg(as, MIPSI_MTC1, RID_TMP, dest); + emit_dst(as, MIPSI_XOR, RID_TMP, RID_TMP, left); + emit_ti(as, MIPSI_LUI, RID_TMP, 0x8000); + } else { /* Integer to FP conversion. */ + Reg left = ra_alloc1(as, lref, RSET_GPR); + emit_fg(as, irt_isfloat(ir->t) ? MIPSI_CVT_S_W : MIPSI_CVT_D_W, + dest, dest); + emit_tg(as, MIPSI_MTC1, left, dest); + } + } else if (stfp) { /* FP to integer conversion. */ + if (irt_isguard(ir->t)) { + /* Checked conversions are only supported from number to int. */ + lua_assert(irt_isint(ir->t) && st == IRT_NUM); + asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, lref, RSET_FPR); + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + if (irt_isu32(ir->t)) { + /* y = (int)floor(x - 2147483648.0) ^ 0x80000000 */ + emit_dst(as, MIPSI_XOR, dest, dest, RID_TMP); + emit_ti(as, MIPSI_LUI, RID_TMP, 0x8000); + emit_tg(as, MIPSI_MFC1, dest, tmp); + emit_fg(as, st == IRT_FLOAT ? MIPSI_FLOOR_W_S : MIPSI_FLOOR_W_D, + tmp, tmp); + emit_fgh(as, st == IRT_FLOAT ? MIPSI_SUB_S : MIPSI_SUB_D, + tmp, left, tmp); + if (st == IRT_FLOAT) + emit_lsptr(as, MIPSI_LWC1, (tmp & 31), + (void *)lj_ir_k64_find(as->J, U64x(4f000000,4f000000)), + RSET_GPR); + else + emit_lsptr(as, MIPSI_LDC1, (tmp & 31), + (void *)lj_ir_k64_find(as->J, U64x(41e00000,00000000)), + RSET_GPR); + } else { + emit_tg(as, MIPSI_MFC1, dest, tmp); + emit_fg(as, st == IRT_FLOAT ? MIPSI_TRUNC_W_S : MIPSI_TRUNC_W_D, + tmp, left); + } + } + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); + if ((ir->op2 & IRCONV_SEXT)) { + if ((as->flags & JIT_F_MIPS32R2)) { + emit_dst(as, st == IRT_I8 ? MIPSI_SEB : MIPSI_SEH, dest, 0, left); + } else { + uint32_t shift = st == IRT_I8 ? 24 : 16; + emit_dta(as, MIPSI_SRA, dest, dest, shift); + emit_dta(as, MIPSI_SLL, dest, left, shift); + } + } else { + emit_tsi(as, MIPSI_ANDI, dest, left, + (int32_t)(st == IRT_U8 ? 0xff : 0xffff)); + } + } else { /* 32/64 bit integer conversions. */ + /* Only need to handle 32/32 bit no-op (cast) on 32 bit archs. */ + ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ + } + } +} + +#if LJ_HASFFI +static void asm_conv64(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); + IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); + IRCallID id; + const CCallInfo *ci; + IRRef args[2]; + args[LJ_BE?0:1] = ir->op1; + args[LJ_BE?1:0] = (ir-1)->op1; + if (st == IRT_NUM || st == IRT_FLOAT) { + id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); + ir--; + } else { + id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); + } + ci = &lj_ir_callinfo[id]; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} +#endif + +static void asm_strto(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; + IRRef args[2]; + RegSet drop = RSET_SCRATCH; + if (ra_hasreg(ir->r)) rset_set(drop, ir->r); /* Spill dest reg (if any). */ + ra_evictset(as, drop); + asm_guard(as, MIPSI_BEQ, RID_RET, RID_ZERO); /* Test return status. */ + args[0] = ir->op1; /* GCstr *str */ + args[1] = ASMREF_TMP1; /* TValue *n */ + asm_gencall(as, ci, args); + /* Store the result to the spill slot or temp slots. */ + emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), + RID_SP, sps_scale(ir->s)); +} + +/* Get pointer to TValue. */ +static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) +{ + IRIns *ir = IR(ref); + if (irt_isnum(ir->t)) { + if (irref_isk(ref)) /* Use the number constant itself as a TValue. */ + ra_allockreg(as, i32ptr(ir_knum(ir)), dest); + else /* Otherwise force a spill and use the spill slot. */ + emit_tsi(as, MIPSI_ADDIU, dest, RID_SP, ra_spill(as, ir)); + } else { + /* Otherwise use g->tmptv to hold the TValue. */ + RegSet allow = rset_exclude(RSET_GPR, dest); + Reg type; + emit_tsi(as, MIPSI_ADDIU, dest, RID_JGL, offsetof(global_State, tmptv)-32768); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, allow); + emit_setgl(as, src, tmptv.gcr); + } + type = ra_allock(as, irt_toitype(ir->t), allow); + emit_setgl(as, type, tmptv.it); + } +} + +static void asm_tostr(ASMState *as, IRIns *ir) +{ + IRRef args[2]; + args[0] = ASMREF_L; + as->gcsteps++; + if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; + args[1] = ASMREF_TMP1; /* const lua_Number * */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); + } else { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; + args[1] = ir->op1; /* int32_t k */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + } +} + +/* -- Memory references --------------------------------------------------- */ + +static void asm_aref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx, base; + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + ofs += 8*IR(ir->op2)->i; + if (checki16(ofs)) { + base = ra_alloc1(as, refa, RSET_GPR); + emit_tsi(as, MIPSI_ADDIU, dest, base, ofs); + return; + } + } + base = ra_alloc1(as, ir->op1, RSET_GPR); + idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); + emit_dst(as, MIPSI_ADDU, dest, RID_TMP, base); + emit_dta(as, MIPSI_SLL, RID_TMP, idx, 3); +} + +/* Inlined hash lookup. Specialized for key type and for const keys. +** The equivalent C code is: +** Node *n = hashkey(t, key); +** do { +** if (lj_obj_equal(&n->key, key)) return &n->val; +** } while ((n = nextnode(n))); +** return niltv(L); +*/ +static void asm_href(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_GPR; + int destused = ra_used(ir); + Reg dest = ra_dest(as, ir, allow); + Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); + Reg key = RID_NONE, type = RID_NONE, tmpnum = RID_NONE, tmp1 = RID_TMP, tmp2; + IRRef refkey = ir->op2; + IRIns *irkey = IR(refkey); + IRType1 kt = irkey->t; + uint32_t khash; + MCLabel l_end, l_loop, l_next; + + rset_clear(allow, tab); + if (irt_isnum(kt)) { + key = ra_alloc1(as, refkey, RSET_FPR); + tmpnum = ra_scratch(as, rset_exclude(RSET_FPR, key)); + } else if (!irt_ispri(kt)) { + key = ra_alloc1(as, refkey, allow); + rset_clear(allow, key); + type = ra_allock(as, irt_toitype(irkey->t), allow); + rset_clear(allow, type); + } + tmp2 = ra_scratch(as, allow); + rset_clear(allow, tmp2); + + /* Key not found in chain: load niltv. */ + l_end = emit_label(as); + if (destused) + emit_loada(as, dest, niltvg(J2G(as->J))); + else + *--as->mcp = MIPSI_NOP; + /* Follow hash chain until the end. */ + emit_move(as, dest, tmp1); + l_loop = --as->mcp; + emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, next)); + l_next = emit_label(as); + + /* Type and value comparison. */ + if (irt_isnum(kt)) { + emit_branch(as, MIPSI_BC1T, 0, 0, l_end); + emit_fgh(as, MIPSI_C_EQ_D, 0, tmpnum, key); + emit_tg(as, MIPSI_MFC1, tmp1, key+1); + emit_branch(as, MIPSI_BEQ, tmp1, RID_ZERO, l_next); + emit_tsi(as, MIPSI_SLTIU, tmp1, tmp1, (int32_t)LJ_TISNUM); + emit_hsi(as, MIPSI_LDC1, tmpnum, dest, (int32_t)offsetof(Node, key.n)); + } else { + if (irt_ispri(kt)) { + emit_branch(as, MIPSI_BEQ, tmp1, type, l_end); + } else { + emit_branch(as, MIPSI_BEQ, tmp2, key, l_end); + emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, key.gcr)); + emit_branch(as, MIPSI_BNE, tmp1, type, l_next); + } + } + emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, key.it)); + *l_loop = MIPSI_BNE | MIPSF_S(tmp1) | ((as->mcp-l_loop-1) & 0xffffu); + + /* Load main position relative to tab->node into dest. */ + khash = irref_isk(refkey) ? ir_khash(irkey) : 1; + if (khash == 0) { + emit_tsi(as, MIPSI_LW, dest, tab, (int32_t)offsetof(GCtab, node)); + } else { + Reg tmphash = tmp1; + if (irref_isk(refkey)) + tmphash = ra_allock(as, khash, allow); + emit_dst(as, MIPSI_ADDU, dest, dest, tmp1); + lua_assert(sizeof(Node) == 24); + emit_dst(as, MIPSI_SUBU, tmp1, tmp2, tmp1); + emit_dta(as, MIPSI_SLL, tmp1, tmp1, 3); + emit_dta(as, MIPSI_SLL, tmp2, tmp1, 5); + emit_dst(as, MIPSI_AND, tmp1, tmp2, tmphash); + emit_tsi(as, MIPSI_LW, dest, tab, (int32_t)offsetof(GCtab, node)); + emit_tsi(as, MIPSI_LW, tmp2, tab, (int32_t)offsetof(GCtab, hmask)); + if (irref_isk(refkey)) { + /* Nothing to do. */ + } else if (irt_isstr(kt)) { + emit_tsi(as, MIPSI_LW, tmp1, key, (int32_t)offsetof(GCstr, hash)); + } else { /* Must match with hash*() in lj_tab.c. */ + emit_dst(as, MIPSI_SUBU, tmp1, tmp1, tmp2); + emit_rotr(as, tmp2, tmp2, dest, (-HASH_ROT3)&31); + emit_dst(as, MIPSI_XOR, tmp1, tmp1, tmp2); + emit_rotr(as, tmp1, tmp1, dest, (-HASH_ROT2-HASH_ROT1)&31); + emit_dst(as, MIPSI_SUBU, tmp2, tmp2, dest); + if (irt_isnum(kt)) { + emit_dst(as, MIPSI_XOR, tmp2, tmp2, tmp1); + if ((as->flags & JIT_F_MIPS32R2)) { + emit_dta(as, MIPSI_ROTR, dest, tmp1, (-HASH_ROT1)&31); + } else { + emit_dst(as, MIPSI_OR, dest, dest, tmp1); + emit_dta(as, MIPSI_SLL, tmp1, tmp1, HASH_ROT1); + emit_dta(as, MIPSI_SRL, dest, tmp1, (-HASH_ROT1)&31); + } + emit_dst(as, MIPSI_ADDU, tmp1, tmp1, tmp1); + emit_tg(as, MIPSI_MFC1, tmp2, key); + emit_tg(as, MIPSI_MFC1, tmp1, key+1); + } else { + emit_dst(as, MIPSI_XOR, tmp2, key, tmp1); + emit_rotr(as, dest, tmp1, tmp2, (-HASH_ROT1)&31); + emit_dst(as, MIPSI_ADDU, tmp1, key, ra_allock(as, HASH_BIAS, allow)); + } + } + } +} + +static void asm_hrefk(ASMState *as, IRIns *ir) +{ + IRIns *kslot = IR(ir->op2); + IRIns *irkey = IR(kslot->op1); + int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); + int32_t kofs = ofs + (int32_t)offsetof(Node, key); + Reg dest = (ra_used(ir)||ofs > 32736) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; + Reg node = ra_alloc1(as, ir->op1, RSET_GPR); + Reg key = RID_NONE, type = RID_TMP, idx = node; + RegSet allow = rset_exclude(RSET_GPR, node); + int32_t lo, hi; + lua_assert(ofs % sizeof(Node) == 0); + if (ofs > 32736) { + idx = dest; + rset_clear(allow, dest); + kofs = (int32_t)offsetof(Node, key); + } else if (ra_hasreg(dest)) { + emit_tsi(as, MIPSI_ADDIU, dest, node, ofs); + } + if (!irt_ispri(irkey->t)) { + key = ra_scratch(as, allow); + rset_clear(allow, key); + } + if (irt_isnum(irkey->t)) { + lo = (int32_t)ir_knum(irkey)->u32.lo; + hi = (int32_t)ir_knum(irkey)->u32.hi; + } else { + lo = irkey->i; + hi = irt_toitype(irkey->t); + if (!ra_hasreg(key)) + goto nolo; + } + asm_guard(as, MIPSI_BNE, key, lo ? ra_allock(as, lo, allow) : RID_ZERO); +nolo: + asm_guard(as, MIPSI_BNE, type, hi ? ra_allock(as, hi, allow) : RID_ZERO); + if (ra_hasreg(key)) emit_tsi(as, MIPSI_LW, key, idx, kofs+(LJ_BE?4:0)); + emit_tsi(as, MIPSI_LW, type, idx, kofs+(LJ_BE?0:4)); + if (ofs > 32736) + emit_tsi(as, MIPSI_ADDU, dest, node, ra_allock(as, ofs, allow)); +} + +static void asm_newref(ASMState *as, IRIns *ir) +{ + if (ir->r != RID_SINK) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; + IRRef args[3]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* GCtab *t */ + args[2] = ASMREF_TMP1; /* cTValue *key */ + asm_setupresult(as, ir, ci); /* TValue * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); + } +} + +static void asm_uref(ASMState *as, IRIns *ir) +{ + /* NYI: Check that UREFO is still open and not aliasing a slot. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; + emit_lsptr(as, MIPSI_LW, dest, v, RSET_GPR); + } else { + Reg uv = ra_scratch(as, RSET_GPR); + Reg func = ra_alloc1(as, ir->op1, RSET_GPR); + if (ir->o == IR_UREFC) { + asm_guard(as, MIPSI_BEQ, RID_TMP, RID_ZERO); + emit_tsi(as, MIPSI_ADDIU, dest, uv, (int32_t)offsetof(GCupval, tv)); + emit_tsi(as, MIPSI_LBU, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); + } else { + emit_tsi(as, MIPSI_LW, dest, uv, (int32_t)offsetof(GCupval, v)); + } + emit_tsi(as, MIPSI_LW, uv, func, + (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); + } +} + +static void asm_fref(ASMState *as, IRIns *ir) +{ + UNUSED(as); UNUSED(ir); + lua_assert(!ra_used(ir)); +} + +static void asm_strref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + IRRef ref = ir->op2, refk = ir->op1; + int32_t ofs = (int32_t)sizeof(GCstr); + Reg r; + if (irref_isk(ref)) { + IRRef tmp = refk; refk = ref; ref = tmp; + } else if (!irref_isk(refk)) { + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + IRIns *irr = IR(ir->op2); + if (ra_hasreg(irr->r)) { + ra_noweak(as, irr->r); + right = irr->r; + } else if (mayfuse(as, irr->op2) && + irr->o == IR_ADD && irref_isk(irr->op2) && + checki16(ofs + IR(irr->op2)->i)) { + ofs += IR(irr->op2)->i; + right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); + } else { + right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); + } + emit_tsi(as, MIPSI_ADDIU, dest, dest, ofs); + emit_dst(as, MIPSI_ADDU, dest, left, right); + return; + } + r = ra_alloc1(as, ref, RSET_GPR); + ofs += IR(refk)->i; + if (checki16(ofs)) + emit_tsi(as, MIPSI_ADDIU, dest, r, ofs); + else + emit_dst(as, MIPSI_ADDU, dest, r, + ra_allock(as, ofs, rset_exclude(RSET_GPR, r))); +} + +/* -- Loads and stores ---------------------------------------------------- */ + +static MIPSIns asm_fxloadins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: return MIPSI_LB; + case IRT_U8: return MIPSI_LBU; + case IRT_I16: return MIPSI_LH; + case IRT_U16: return MIPSI_LHU; + case IRT_NUM: return MIPSI_LDC1; + case IRT_FLOAT: return MIPSI_LWC1; + default: return MIPSI_LW; + } +} + +static MIPSIns asm_fxstoreins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: case IRT_U8: return MIPSI_SB; + case IRT_I16: case IRT_U16: return MIPSI_SH; + case IRT_NUM: return MIPSI_SDC1; + case IRT_FLOAT: return MIPSI_SWC1; + default: return MIPSI_SW; + } +} + +static void asm_fload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); + MIPSIns mi = asm_fxloadins(ir); + int32_t ofs; + if (ir->op2 == IRFL_TAB_ARRAY) { + ofs = asm_fuseabase(as, ir->op1); + if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ + emit_tsi(as, MIPSI_ADDIU, dest, idx, ofs); + return; + } + } + ofs = field_ofs[ir->op2]; + lua_assert(!irt_isfp(ir->t)); + emit_tsi(as, mi, dest, idx, ofs); +} + +static void asm_fstore(ASMState *as, IRIns *ir) +{ + if (ir->r != RID_SINK) { + Reg src = ra_alloc1z(as, ir->op2, RSET_GPR); + IRIns *irf = IR(ir->op1); + Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); + int32_t ofs = field_ofs[irf->op2]; + MIPSIns mi = asm_fxstoreins(ir); + lua_assert(!irt_isfp(ir->t)); + emit_tsi(as, mi, src, idx, ofs); + } +} + +static void asm_xload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); + asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); +} + +static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +{ + if (ir->r != RID_SINK) { + Reg src = ra_alloc1z(as, ir->op2, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, + rset_exclude(RSET_GPR, src), ofs); + } +} + +static void asm_ahuvload(ASMState *as, IRIns *ir) +{ + IRType1 t = ir->t; + Reg dest = RID_NONE, type = RID_TMP, idx; + RegSet allow = RSET_GPR; + int32_t ofs = 0; + if (ra_used(ir)) { + lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); + dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); + rset_clear(allow, dest); + } + idx = asm_fuseahuref(as, ir->op1, &ofs, allow); + rset_clear(allow, idx); + if (irt_isnum(t)) { + asm_guard(as, MIPSI_BEQ, type, RID_ZERO); + emit_tsi(as, MIPSI_SLTIU, type, type, (int32_t)LJ_TISNUM); + if (ra_hasreg(dest)) + emit_hsi(as, MIPSI_LDC1, dest, idx, ofs); + } else { + asm_guard(as, MIPSI_BNE, type, ra_allock(as, irt_toitype(t), allow)); + if (ra_hasreg(dest)) emit_tsi(as, MIPSI_LW, dest, idx, ofs+(LJ_BE?4:0)); + } + emit_tsi(as, MIPSI_LW, type, idx, ofs+(LJ_BE?0:4)); +} + +static void asm_ahustore(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_GPR; + Reg idx, src = RID_NONE, type = RID_NONE; + int32_t ofs = 0; + if (ir->r == RID_SINK) + return; + if (irt_isnum(ir->t)) { + src = ra_alloc1(as, ir->op2, RSET_FPR); + } else { + if (!irt_ispri(ir->t)) { + src = ra_alloc1(as, ir->op2, allow); + rset_clear(allow, src); + } + type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); + rset_clear(allow, type); + } + idx = asm_fuseahuref(as, ir->op1, &ofs, allow); + if (irt_isnum(ir->t)) { + emit_hsi(as, MIPSI_SDC1, src, idx, ofs); + } else { + if (ra_hasreg(src)) + emit_tsi(as, MIPSI_SW, src, idx, ofs+(LJ_BE?4:0)); + emit_tsi(as, MIPSI_SW, type, idx, ofs+(LJ_BE?0:4)); + } +} + +static void asm_sload(ASMState *as, IRIns *ir) +{ + int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); + IRType1 t = ir->t; + Reg dest = RID_NONE, type = RID_NONE, base; + RegSet allow = RSET_GPR; + lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ + lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); + lua_assert(!irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); + if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { + dest = ra_scratch(as, RSET_FPR); + asm_tointg(as, ir, dest); + t.irt = IRT_NUM; /* Continue with a regular number type check. */ + } else if (ra_used(ir)) { + lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); + dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); + rset_clear(allow, dest); + base = ra_alloc1(as, REF_BASE, allow); + rset_clear(allow, base); + if ((ir->op2 & IRSLOAD_CONVERT)) { + if (irt_isint(t)) { + Reg tmp = ra_scratch(as, RSET_FPR); + emit_tg(as, MIPSI_MFC1, dest, tmp); + emit_fg(as, MIPSI_CVT_W_D, tmp, tmp); + dest = tmp; + t.irt = IRT_NUM; /* Check for original type. */ + } else { + Reg tmp = ra_scratch(as, RSET_GPR); + emit_fg(as, MIPSI_CVT_D_W, dest, dest); + emit_tg(as, MIPSI_MTC1, tmp, dest); + dest = tmp; + t.irt = IRT_INT; /* Check for original type. */ + } + } + goto dotypecheck; + } + base = ra_alloc1(as, REF_BASE, allow); + rset_clear(allow, base); +dotypecheck: + if (irt_isnum(t)) { + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + asm_guard(as, MIPSI_BEQ, RID_TMP, RID_ZERO); + emit_tsi(as, MIPSI_SLTIU, RID_TMP, RID_TMP, (int32_t)LJ_TISNUM); + type = RID_TMP; + } + if (ra_hasreg(dest)) emit_hsi(as, MIPSI_LDC1, dest, base, ofs); + } else { + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + Reg ktype = ra_allock(as, irt_toitype(t), allow); + asm_guard(as, MIPSI_BNE, RID_TMP, ktype); + type = RID_TMP; + } + if (ra_hasreg(dest)) emit_tsi(as, MIPSI_LW, dest, base, ofs ^ (LJ_BE?4:0)); + } + if (ra_hasreg(type)) emit_tsi(as, MIPSI_LW, type, base, ofs ^ (LJ_BE?0:4)); +} + +/* -- Allocations --------------------------------------------------------- */ + +#if LJ_HASFFI +static void asm_cnew(ASMState *as, IRIns *ir) +{ + CTState *cts = ctype_ctsG(J2G(as->J)); + CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; + CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? + lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; + IRRef args[2]; + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + RegSet drop = RSET_SCRATCH; + lua_assert(sz != CTSIZE_INVALID); + + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ + as->gcsteps++; + + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + if (ra_used(ir)) + ra_destreg(as, ir, RID_RET); /* GCcdata * */ + + /* Initialize immutable cdata object. */ + if (ir->o == IR_CNEWI) { + int32_t ofs = sizeof(GCcdata); + lua_assert(sz == 4 || sz == 8); + if (sz == 8) { + ofs += 4; + lua_assert((ir+1)->o == IR_HIOP); + if (LJ_LE) ir++; + } + for (;;) { + Reg r = ra_alloc1z(as, ir->op2, allow); + emit_tsi(as, MIPSI_SW, r, RID_RET, ofs); + rset_clear(allow, r); + if (ofs == sizeof(GCcdata)) break; + ofs -= 4; if (LJ_BE) ir++; else ir--; + } + } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ + emit_tsi(as, MIPSI_SB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); + emit_tsi(as, MIPSI_SH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); + emit_ti(as, MIPSI_LI, RID_RET+1, ~LJ_TCDATA); + emit_ti(as, MIPSI_LI, RID_TMP, ctypeid); /* Lower 16 bit used. Sign-ext ok. */ + asm_gencall(as, ci, args); + ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), + ra_releasetmp(as, ASMREF_TMP1)); +} +#else +#define asm_cnew(as, ir) ((void)0) +#endif + +/* -- Write barriers ------------------------------------------------------ */ + +static void asm_tbar(ASMState *as, IRIns *ir) +{ + Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); + Reg mark = ra_scratch(as, rset_exclude(RSET_GPR, tab)); + Reg link = RID_TMP; + MCLabel l_end = emit_label(as); + emit_tsi(as, MIPSI_SW, link, tab, (int32_t)offsetof(GCtab, gclist)); + emit_tsi(as, MIPSI_SB, mark, tab, (int32_t)offsetof(GCtab, marked)); + emit_setgl(as, tab, gc.grayagain); + emit_getgl(as, link, gc.grayagain); + emit_dst(as, MIPSI_XOR, mark, mark, RID_TMP); /* Clear black bit. */ + emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); + emit_tsi(as, MIPSI_ANDI, RID_TMP, mark, LJ_GC_BLACK); + emit_tsi(as, MIPSI_LBU, mark, tab, (int32_t)offsetof(GCtab, marked)); +} + +static void asm_obar(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; + IRRef args[2]; + MCLabel l_end; + Reg obj, val, tmp; + /* No need for other object barriers (yet). */ + lua_assert(IR(ir->op1)->o == IR_UREFC); + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ir->op1; /* TValue *tv */ + asm_gencall(as, ci, args); + emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); + obj = IR(ir->op1)->r; + tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); + emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); + emit_tsi(as, MIPSI_ANDI, tmp, tmp, LJ_GC_BLACK); + emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); + emit_tsi(as, MIPSI_ANDI, RID_TMP, RID_TMP, LJ_GC_WHITES); + val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); + emit_tsi(as, MIPSI_LBU, tmp, obj, + (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); + emit_tsi(as, MIPSI_LBU, RID_TMP, val, (int32_t)offsetof(GChead, marked)); +} + +/* -- Arithmetic and logic operations ------------------------------------- */ + +static void asm_fparith(ASMState *as, IRIns *ir, MIPSIns mi) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + emit_fgh(as, mi, dest, left, right); +} + +static void asm_fpunary(ASMState *as, IRIns *ir, MIPSIns mi) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); + emit_fg(as, mi, dest, left); +} + +static int asm_fpjoin_pow(ASMState *as, IRIns *ir) +{ + IRIns *irp = IR(ir->op1); + if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { + IRIns *irpp = IR(irp->op1); + if (irpp == ir-2 && irpp->o == IR_FPMATH && + irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; + IRRef args[2]; + args[0] = irpp->op1; + args[1] = irp->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); + return 1; + } + } + return 0; +} + +static void asm_add(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fparith(as, ir, MIPSI_ADD_D); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (checki16(k)) { + emit_tsi(as, MIPSI_ADDIU, dest, left, k); + return; + } + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_dst(as, MIPSI_ADDU, dest, left, right); + } +} + +static void asm_sub(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fparith(as, ir, MIPSI_SUB_D); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, MIPSI_SUBU, dest, left, right); + } +} + +static void asm_mul(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fparith(as, ir, MIPSI_MUL_D); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, MIPSI_MUL, dest, left, right); + } +} + +static void asm_neg(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fpunary(as, ir, MIPSI_NEG_D); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); + } +} + +static void asm_arithov(ASMState *as, IRIns *ir) +{ + Reg right, left, tmp, dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op2)) { + int k = IR(ir->op2)->i; + if (ir->o == IR_SUBOV) k = -k; + if (checki16(k)) { /* (dest < left) == (k >= 0 ? 1 : 0) */ + left = ra_alloc1(as, ir->op1, RSET_GPR); + asm_guard(as, k >= 0 ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); + emit_dst(as, MIPSI_SLT, RID_TMP, dest, dest == left ? RID_TMP : left); + emit_tsi(as, MIPSI_ADDIU, dest, left, k); + if (dest == left) emit_move(as, RID_TMP, left); + return; + } + } + left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, left), + right), dest)); + asm_guard(as, MIPSI_BLTZ, RID_TMP, 0); + emit_dst(as, MIPSI_AND, RID_TMP, RID_TMP, tmp); + if (ir->o == IR_ADDOV) { /* ((dest^left) & (dest^right)) < 0 */ + emit_dst(as, MIPSI_XOR, RID_TMP, dest, dest == right ? RID_TMP : right); + } else { /* ((dest^left) & (dest^~right)) < 0 */ + emit_dst(as, MIPSI_XOR, RID_TMP, RID_TMP, dest); + emit_dst(as, MIPSI_NOR, RID_TMP, dest == right ? RID_TMP : right, RID_ZERO); + } + emit_dst(as, MIPSI_XOR, tmp, dest, dest == left ? RID_TMP : left); + emit_dst(as, ir->o == IR_ADDOV ? MIPSI_ADDU : MIPSI_SUBU, dest, left, right); + if (dest == left || dest == right) + emit_move(as, RID_TMP, dest == left ? left : right); +} + +static void asm_mulov(ASMState *as, IRIns *ir) +{ +#if LJ_DUALNUM +#error "NYI: MULOV" +#else + UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused in single-number mode. */ +#endif +} + +#if LJ_HASFFI +static void asm_add64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (k == 0) { + emit_dst(as, MIPSI_ADDU, dest, left, RID_TMP); + goto loarith; + } else if (checki16(k)) { + emit_dst(as, MIPSI_ADDU, dest, dest, RID_TMP); + emit_tsi(as, MIPSI_ADDIU, dest, left, k); + goto loarith; + } + } + emit_dst(as, MIPSI_ADDU, dest, dest, RID_TMP); + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_dst(as, MIPSI_ADDU, dest, left, right); +loarith: + ir--; + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc1(as, ir->op1, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (k == 0) { + if (dest != left) + emit_move(as, dest, left); + return; + } else if (checki16(k)) { + if (dest == left) { + Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, left)); + emit_move(as, dest, tmp); + dest = tmp; + } + emit_dst(as, MIPSI_SLTU, RID_TMP, dest, left); + emit_tsi(as, MIPSI_ADDIU, dest, left, k); + return; + } + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + if (dest == left && dest == right) { + Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); + emit_move(as, dest, tmp); + dest = tmp; + } + emit_dst(as, MIPSI_SLTU, RID_TMP, dest, dest == left ? right : left); + emit_dst(as, MIPSI_ADDU, dest, left, right); +} + +static void asm_sub64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, MIPSI_SUBU, dest, dest, RID_TMP); + emit_dst(as, MIPSI_SUBU, dest, left, right); + ir--; + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + if (dest == left) { + Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); + emit_move(as, dest, tmp); + dest = tmp; + } + emit_dst(as, MIPSI_SLTU, RID_TMP, left, dest); + emit_dst(as, MIPSI_SUBU, dest, left, right); +} + +static void asm_neg64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + emit_dst(as, MIPSI_SUBU, dest, dest, RID_TMP); + emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); + ir--; + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc1(as, ir->op1, RSET_GPR); + emit_dst(as, MIPSI_SLTU, RID_TMP, RID_ZERO, dest); + emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); +} +#endif + +static void asm_bitnot(ASMState *as, IRIns *ir) +{ + Reg left, right, dest = ra_dest(as, ir, RSET_GPR); + IRIns *irl = IR(ir->op1); + if (mayfuse(as, ir->op1) && irl->o == IR_BOR) { + left = ra_alloc2(as, irl, RSET_GPR); + right = (left >> 8); left &= 255; + } else { + left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + right = RID_ZERO; + } + emit_dst(as, MIPSI_NOR, dest, left, right); +} + +static void asm_bitswap(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + if ((as->flags & JIT_F_MIPS32R2)) { + emit_dta(as, MIPSI_ROTR, dest, RID_TMP, 16); + emit_dst(as, MIPSI_WSBH, RID_TMP, 0, left); + } else { + Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), dest)); + emit_dst(as, MIPSI_OR, dest, dest, tmp); + emit_dst(as, MIPSI_OR, dest, dest, RID_TMP); + emit_tsi(as, MIPSI_ANDI, dest, dest, 0xff00); + emit_dta(as, MIPSI_SLL, RID_TMP, RID_TMP, 8); + emit_dta(as, MIPSI_SRL, dest, left, 8); + emit_tsi(as, MIPSI_ANDI, RID_TMP, left, 0xff00); + emit_dst(as, MIPSI_OR, tmp, tmp, RID_TMP); + emit_dta(as, MIPSI_SRL, tmp, left, 24); + emit_dta(as, MIPSI_SLL, RID_TMP, left, 24); + } +} + +static void asm_bitop(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (checku16(k)) { + emit_tsi(as, mik, dest, left, k); + return; + } + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_dst(as, mi, dest, left, right); +} + +static void asm_bitshift(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op2)) { /* Constant shifts. */ + uint32_t shift = (uint32_t)(IR(ir->op2)->i & 31); + emit_dta(as, mik, dest, ra_hintalloc(as, ir->op1, dest, RSET_GPR), shift); + } else { + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, mi, dest, right, left); /* Shift amount is in rs. */ + } +} + +static void asm_bitror(ASMState *as, IRIns *ir) +{ + if ((as->flags & JIT_F_MIPS32R2)) { + asm_bitshift(as, ir, MIPSI_ROTRV, MIPSI_ROTR); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op2)) { /* Constant shifts. */ + uint32_t shift = (uint32_t)(IR(ir->op2)->i & 31); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + emit_rotr(as, dest, left, RID_TMP, shift); + } else { + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, MIPSI_OR, dest, dest, RID_TMP); + emit_dst(as, MIPSI_SRLV, dest, right, left); + emit_dst(as, MIPSI_SLLV, RID_TMP, RID_TMP, left); + emit_dst(as, MIPSI_SUBU, RID_TMP, ra_allock(as, 32, RSET_GPR), right); + } + } +} + +static void asm_min_max(ASMState *as, IRIns *ir, int ismax) +{ + if (irt_isnum(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + if (dest == left) { + emit_fg(as, MIPSI_MOVT_D, dest, right); + } else { + emit_fg(as, MIPSI_MOVF_D, dest, left); + if (dest != right) emit_fg(as, MIPSI_MOV_D, dest, right); + } + emit_fgh(as, MIPSI_C_OLT_D, 0, ismax ? left : right, ismax ? right : left); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + if (dest == left) { + emit_dst(as, MIPSI_MOVN, dest, right, RID_TMP); + } else { + emit_dst(as, MIPSI_MOVZ, dest, left, RID_TMP); + if (dest != right) emit_move(as, dest, right); + } + emit_dst(as, MIPSI_SLT, RID_TMP, + ismax ? left : right, ismax ? right : left); + } +} + +/* -- Comparisons --------------------------------------------------------- */ + +static void asm_comp(ASMState *as, IRIns *ir) +{ + /* ORDER IR: LT GE LE GT ULT UGE ULE UGT. */ + IROp op = ir->o; + if (irt_isnum(ir->t)) { + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + asm_guard(as, (op&1) ? MIPSI_BC1T : MIPSI_BC1F, 0, 0); + emit_fgh(as, MIPSI_C_OLT_D + ((op&3) ^ ((op>>2)&1)), 0, left, right); + } else { + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + if (op == IR_ABC) op = IR_UGT; + if ((op&4) == 0 && irref_isk(ir->op2) && IR(ir->op2)->i == 0) { + MIPSIns mi = (op&2) ? ((op&1) ? MIPSI_BLEZ : MIPSI_BGTZ) : + ((op&1) ? MIPSI_BLTZ : MIPSI_BGEZ); + asm_guard(as, mi, left, 0); + } else { + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if ((op&2)) k++; + if (checki16(k)) { + asm_guard(as, (op&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); + emit_tsi(as, (op&4) ? MIPSI_SLTIU : MIPSI_SLTI, + RID_TMP, left, k); + return; + } + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + asm_guard(as, ((op^(op>>1))&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); + emit_dst(as, (op&4) ? MIPSI_SLTU : MIPSI_SLT, + RID_TMP, (op&2) ? right : left, (op&2) ? left : right); + } + } +} + +static void asm_compeq(ASMState *as, IRIns *ir) +{ + Reg right, left = ra_alloc2(as, ir, irt_isnum(ir->t) ? RSET_FPR : RSET_GPR); + right = (left >> 8); left &= 255; + if (irt_isnum(ir->t)) { + asm_guard(as, (ir->o & 1) ? MIPSI_BC1T : MIPSI_BC1F, 0, 0); + emit_fgh(as, MIPSI_C_EQ_D, 0, left, right); + } else { + asm_guard(as, (ir->o & 1) ? MIPSI_BEQ : MIPSI_BNE, left, right); + } +} + +#if LJ_HASFFI +/* 64 bit integer comparisons. */ +static void asm_comp64(ASMState *as, IRIns *ir) +{ + /* ORDER IR: LT GE LE GT ULT UGE ULE UGT. */ + IROp op = (ir-1)->o; + MCLabel l_end; + Reg rightlo, leftlo, righthi, lefthi = ra_alloc2(as, ir, RSET_GPR); + righthi = (lefthi >> 8); lefthi &= 255; + leftlo = ra_alloc2(as, ir-1, + rset_exclude(rset_exclude(RSET_GPR, lefthi), righthi)); + rightlo = (leftlo >> 8); leftlo &= 255; + asm_guard(as, ((op^(op>>1))&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); + l_end = emit_label(as); + if (lefthi != righthi) + emit_dst(as, (op&4) ? MIPSI_SLTU : MIPSI_SLT, RID_TMP, + (op&2) ? righthi : lefthi, (op&2) ? lefthi : righthi); + emit_dst(as, MIPSI_SLTU, RID_TMP, + (op&2) ? rightlo : leftlo, (op&2) ? leftlo : rightlo); + if (lefthi != righthi) + emit_branch(as, MIPSI_BEQ, lefthi, righthi, l_end); +} + +static void asm_comp64eq(ASMState *as, IRIns *ir) +{ + Reg tmp, right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + asm_guard(as, ((ir-1)->o & 1) ? MIPSI_BEQ : MIPSI_BNE, RID_TMP, RID_ZERO); + tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); + emit_dst(as, MIPSI_OR, RID_TMP, RID_TMP, tmp); + emit_dst(as, MIPSI_XOR, tmp, left, right); + left = ra_alloc2(as, ir-1, RSET_GPR); + right = (left >> 8); left &= 255; + emit_dst(as, MIPSI_XOR, RID_TMP, left, right); +} +#endif + +/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ + +/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ +static void asm_hiop(ASMState *as, IRIns *ir) +{ +#if LJ_HASFFI + /* HIOP is marked as a store because it needs its own DCE logic. */ + int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ + if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; + if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ + as->curins--; /* Always skip the CONV. */ + if (usehi || uselo) + asm_conv64(as, ir); + return; + } else if ((ir-1)->o < IR_EQ) { /* 64 bit integer comparisons. ORDER IR. */ + as->curins--; /* Always skip the loword comparison. */ + asm_comp64(as, ir); + return; + } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ + as->curins--; /* Always skip the loword comparison. */ + asm_comp64eq(as, ir); + return; + } else if ((ir-1)->o == IR_XSTORE) { + as->curins--; /* Handle both stores here. */ + if ((ir-1)->r != RID_SINK) { + asm_xstore(as, ir, LJ_LE ? 4 : 0); + asm_xstore(as, ir-1, LJ_LE ? 0 : 4); + } + return; + } + if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ + switch ((ir-1)->o) { + case IR_ADD: as->curins--; asm_add64(as, ir); break; + case IR_SUB: as->curins--; asm_sub64(as, ir); break; + case IR_NEG: as->curins--; asm_neg64(as, ir); break; + case IR_CALLN: + case IR_CALLXS: + if (!uselo) + ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ + break; + case IR_CNEWI: + /* Nothing to do here. Handled by lo op itself. */ + break; + default: lua_assert(0); break; + } +#else + UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused without FFI. */ +#endif +} + +/* -- Stack handling ------------------------------------------------------ */ + +/* Check Lua stack size for overflow. Use exit handler as fallback. */ +static void asm_stack_check(ASMState *as, BCReg topslot, + IRIns *irp, RegSet allow, ExitNo exitno) +{ + /* Try to get an unused temp. register, otherwise spill/restore RID_RET*. */ + Reg tmp, pbase = irp ? (ra_hasreg(irp->r) ? irp->r : RID_TMP) : RID_BASE; + ExitNo oldsnap = as->snapno; + rset_clear(allow, pbase); + tmp = allow ? rset_pickbot(allow) : + (pbase == RID_RETHI ? RID_RETLO : RID_RETHI); + as->snapno = exitno; + asm_guard(as, MIPSI_BNE, RID_TMP, RID_ZERO); + as->snapno = oldsnap; + if (allow == RSET_EMPTY) /* Restore temp. register. */ + emit_tsi(as, MIPSI_LW, tmp, RID_SP, 0); + else + ra_modified(as, tmp); + emit_tsi(as, MIPSI_SLTIU, RID_TMP, RID_TMP, (int32_t)(8*topslot)); + emit_dst(as, MIPSI_SUBU, RID_TMP, tmp, pbase); + emit_tsi(as, MIPSI_LW, tmp, tmp, offsetof(lua_State, maxstack)); + if (pbase == RID_TMP) + emit_getgl(as, RID_TMP, jit_base); + emit_getgl(as, tmp, jit_L); + if (allow == RSET_EMPTY) /* Spill temp. register. */ + emit_tsi(as, MIPSI_SW, tmp, RID_SP, 0); +} + +/* Restore Lua stack from on-trace state. */ +static void asm_stack_restore(ASMState *as, SnapShot *snap) +{ + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; + MSize n, nent = snap->nent; + /* Store the value of all modified slots to the Lua stack. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + BCReg s = snap_slot(sn); + int32_t ofs = 8*((int32_t)s-1); + IRRef ref = snap_ref(sn); + IRIns *ir = IR(ref); + if ((sn & SNAP_NORESTORE)) + continue; + if (irt_isnum(ir->t)) { + Reg src = ra_alloc1(as, ref, RSET_FPR); + emit_hsi(as, MIPSI_SDC1, src, RID_BASE, ofs); + } else { + Reg type; + RegSet allow = rset_exclude(RSET_GPR, RID_BASE); + lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, allow); + rset_clear(allow, src); + emit_tsi(as, MIPSI_SW, src, RID_BASE, ofs+(LJ_BE?4:0)); + } + if ((sn & (SNAP_CONT|SNAP_FRAME))) { + if (s == 0) continue; /* Do not overwrite link to previous frame. */ + type = ra_allock(as, (int32_t)(*flinks--), allow); + } else { + type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); + } + emit_tsi(as, MIPSI_SW, type, RID_BASE, ofs+(LJ_BE?0:4)); + } + checkmclim(as); + } + lua_assert(map + nent == flinks); +} + +/* -- GC handling --------------------------------------------------------- */ + +/* Check GC threshold and do one or more GC steps. */ +static void asm_gc_check(ASMState *as) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; + IRRef args[2]; + MCLabel l_end; + Reg tmp; + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ + /* Assumes asm_snap_prep() already done. */ + asm_guard(as, MIPSI_BNE, RID_RET, RID_ZERO); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ASMREF_TMP2; /* MSize steps */ + asm_gencall(as, ci, args); + emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); + tmp = ra_releasetmp(as, ASMREF_TMP2); + emit_loadi(as, tmp, as->gcsteps); + /* Jump around GC step if GC total < GC threshold. */ + emit_branch(as, MIPSI_BNE, RID_TMP, RID_ZERO, l_end); + emit_dst(as, MIPSI_SLTU, RID_TMP, RID_TMP, tmp); + emit_getgl(as, tmp, gc.threshold); + emit_getgl(as, RID_TMP, gc.total); + as->gcsteps = 0; + checkmclim(as); +} + +/* -- Loop handling ------------------------------------------------------- */ + +/* Fixup the loop branch. */ +static void asm_loop_fixup(ASMState *as) +{ + MCode *p = as->mctop; + MCode *target = as->mcp; + p[-1] = MIPSI_NOP; + if (as->loopinv) { /* Inverted loop branch? */ + /* asm_guard already inverted the cond branch. Only patch the target. */ + p[-3] |= ((target-p+2) & 0x0000ffffu); + } else { + p[-2] = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); + } +} + +/* -- Head of trace ------------------------------------------------------- */ + +/* Coalesce BASE register for a root trace. */ +static void asm_head_root_base(ASMState *as) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (as->loopinv) as->mctop--; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (r != RID_BASE) + emit_move(as, r, RID_BASE); + } +} + +/* Coalesce BASE register for a side trace. */ +static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (as->loopinv) as->mctop--; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (irp->r == r) { + rset_clear(allow, r); /* Mark same BASE register as coalesced. */ + } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { + rset_clear(allow, irp->r); + emit_move(as, r, irp->r); /* Move from coalesced parent reg. */ + } else { + emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ + } + } + return allow; +} + +/* -- Tail of trace ------------------------------------------------------- */ + +/* Fixup the tail code. */ +static void asm_tail_fixup(ASMState *as, TraceNo lnk) +{ + MCode *target = lnk ? traceref(as->J,lnk)->mcode : (MCode *)lj_vm_exit_interp; + int32_t spadj = as->T->spadjust; + MCode *p = as->mctop-1; + *p = spadj ? (MIPSI_ADDIU|MIPSF_T(RID_SP)|MIPSF_S(RID_SP)|spadj) : MIPSI_NOP; + p[-1] = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); +} + +/* Prepare tail of code. */ +static void asm_tail_prep(ASMState *as) +{ + as->mcp = as->mctop-2; /* Leave room for branch plus nop or stack adj. */ + as->invmcp = as->loopref ? as->mcp : NULL; +} + +/* -- Instruction dispatch ------------------------------------------------ */ + +/* Assemble a single instruction. */ +static void asm_ir(ASMState *as, IRIns *ir) +{ + switch ((IROp)ir->o) { + /* Miscellaneous ops. */ + case IR_LOOP: asm_loop(as); break; + case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; + case IR_USE: + ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; + case IR_PHI: asm_phi(as, ir); break; + case IR_HIOP: asm_hiop(as, ir); break; + case IR_GCSTEP: asm_gcstep(as, ir); break; + + /* Guarded assertions. */ + case IR_EQ: case IR_NE: asm_compeq(as, ir); break; + case IR_LT: case IR_GE: case IR_LE: case IR_GT: + case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: + case IR_ABC: + asm_comp(as, ir); + break; + + case IR_RETF: asm_retf(as, ir); break; + + /* Bit ops. */ + case IR_BNOT: asm_bitnot(as, ir); break; + case IR_BSWAP: asm_bitswap(as, ir); break; + + case IR_BAND: asm_bitop(as, ir, MIPSI_AND, MIPSI_ANDI); break; + case IR_BOR: asm_bitop(as, ir, MIPSI_OR, MIPSI_ORI); break; + case IR_BXOR: asm_bitop(as, ir, MIPSI_XOR, MIPSI_XORI); break; + + case IR_BSHL: asm_bitshift(as, ir, MIPSI_SLLV, MIPSI_SLL); break; + case IR_BSHR: asm_bitshift(as, ir, MIPSI_SRLV, MIPSI_SRL); break; + case IR_BSAR: asm_bitshift(as, ir, MIPSI_SRAV, MIPSI_SRA); break; + case IR_BROL: lua_assert(0); break; + case IR_BROR: asm_bitror(as, ir); break; + + /* Arithmetic ops. */ + case IR_ADD: asm_add(as, ir); break; + case IR_SUB: asm_sub(as, ir); break; + case IR_MUL: asm_mul(as, ir); break; + case IR_DIV: asm_fparith(as, ir, MIPSI_DIV_D); break; + case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; + case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; + case IR_NEG: asm_neg(as, ir); break; + + case IR_ABS: asm_fpunary(as, ir, MIPSI_ABS_D); break; + case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; + case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; + case IR_MIN: asm_min_max(as, ir, 0); break; + case IR_MAX: asm_min_max(as, ir, 1); break; + case IR_FPMATH: + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + break; + if (ir->op2 <= IRFPM_TRUNC) + asm_callround(as, ir, IRCALL_lj_vm_floor + ir->op2); + else if (ir->op2 == IRFPM_SQRT) + asm_fpunary(as, ir, MIPSI_SQRT_D); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); + break; + + /* Overflow-checking arithmetic ops. */ + case IR_ADDOV: asm_arithov(as, ir); break; + case IR_SUBOV: asm_arithov(as, ir); break; + case IR_MULOV: asm_mulov(as, ir); break; + + /* Memory references. */ + case IR_AREF: asm_aref(as, ir); break; + case IR_HREF: asm_href(as, ir); break; + case IR_HREFK: asm_hrefk(as, ir); break; + case IR_NEWREF: asm_newref(as, ir); break; + case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; + case IR_FREF: asm_fref(as, ir); break; + case IR_STRREF: asm_strref(as, ir); break; + + /* Loads and stores. */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + asm_ahuvload(as, ir); + break; + case IR_FLOAD: asm_fload(as, ir); break; + case IR_XLOAD: asm_xload(as, ir); break; + case IR_SLOAD: asm_sload(as, ir); break; + + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; + case IR_FSTORE: asm_fstore(as, ir); break; + case IR_XSTORE: asm_xstore(as, ir, 0); break; + + /* Allocations. */ + case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; + case IR_TNEW: asm_tnew(as, ir); break; + case IR_TDUP: asm_tdup(as, ir); break; + case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; + + /* Write barriers. */ + case IR_TBAR: asm_tbar(as, ir); break; + case IR_OBAR: asm_obar(as, ir); break; + + /* Type conversions. */ + case IR_CONV: asm_conv(as, ir); break; + case IR_TOBIT: asm_tobit(as, ir); break; + case IR_TOSTR: asm_tostr(as, ir); break; + case IR_STRTO: asm_strto(as, ir); break; + + /* Calls. */ + case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; + case IR_CALLXS: asm_callx(as, ir); break; + case IR_CARG: break; + + default: + setintV(&as->J->errinfo, ir->o); + lj_trace_err_info(as->J, LJ_TRERR_NYIIR); + break; + } +} + +/* -- Trace setup --------------------------------------------------------- */ + +/* Ensure there are enough stack slots for call arguments. */ +static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + IRRef args[CCI_NARGS_MAX*2]; + uint32_t i, nargs = (int)CCI_NARGS(ci); + int nslots = 4, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; + asm_collectargs(as, ir, ci, args); + for (i = 0; i < nargs; i++) { + if (args[i] && irt_isfp(IR(args[i])->t) && + nfpr > 0 && !(ci->flags & CCI_VARARG)) { + nfpr--; + ngpr -= irt_isnum(IR(args[i])->t) ? 2 : 1; + } else if (args[i] && irt_isnum(IR(args[i])->t)) { + nfpr = 0; + ngpr = ngpr & ~1; + if (ngpr > 0) ngpr -= 2; else nslots = (nslots+3) & ~1; + } else { + nfpr = 0; + if (ngpr > 0) ngpr--; else nslots++; + } + } + if (nslots > as->evenspill) /* Leave room for args in stack slots. */ + as->evenspill = nslots; + return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); +} + +static void asm_setup_target(ASMState *as) +{ + asm_sparejump_setup(as); + asm_exitstub_setup(as); +} + +/* -- Trace patching ------------------------------------------------------ */ + +/* Patch exit jumps of existing machine code to a new target. */ +void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) +{ + MCode *p = T->mcode; + MCode *pe = (MCode *)((char *)p + T->szmcode); + MCode *px = exitstub_trace_addr(T, exitno); + MCode *cstart = NULL, *cstop = NULL; + MCode *mcarea = lj_mcode_patch(J, p, 0); + MCode exitload = MIPSI_LI | MIPSF_T(RID_TMP) | exitno; + MCode tjump = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); + for (p++; p < pe; p++) { + if (*p == exitload) { /* Look for load of exit number. */ + if (((p[-1] ^ (px-p)) & 0xffffu) == 0) { /* Look for exitstub branch. */ + ptrdiff_t delta = target - p; + if (((delta + 0x8000) >> 16) == 0) { /* Patch in-range branch. */ + patchbranch: + p[-1] = (p[-1] & 0xffff0000u) | (delta & 0xffffu); + *p = MIPSI_NOP; /* Replace the load of the exit number. */ + cstop = p; + if (!cstart) cstart = p-1; + } else { /* Branch out of range. Use spare jump slot in mcarea. */ + int i; + for (i = 2; i < 2+MIPS_SPAREJUMP*2; i += 2) { + if (mcarea[i] == tjump) { + delta = mcarea+i - p; + goto patchbranch; + } else if (mcarea[i] == MIPSI_NOP) { + mcarea[i] = tjump; + cstart = mcarea+i; + delta = mcarea+i - p; + goto patchbranch; + } + } + /* Ignore jump slot overflow. Child trace is simply not attached. */ + } + } else if (p+1 == pe) { + /* Patch NOP after code for inverted loop branch. Use of J is ok. */ + lua_assert(p[1] == MIPSI_NOP); + p[1] = tjump; + *p = MIPSI_NOP; /* Replace the load of the exit number. */ + cstop = p+2; + if (!cstart) cstart = p+1; + } + } + } + if (cstart) lj_mcode_sync(cstart, cstop); + lj_mcode_patch(J, mcarea, 1); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_asm_ppc.h b/src/3rd party/luajit-2.0/src/lj_asm_ppc.h new file mode 100644 index 00000000000..2c5d74a8d94 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm_ppc.h @@ -0,0 +1,2169 @@ +/* +** PPC IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Register allocator extensions --------------------------------------- */ + +/* Allocate a register with a hint. */ +static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) +{ + Reg r = IR(ref)->r; + if (ra_noreg(r)) { + if (!ra_hashint(r) && !iscrossref(as, ref)) + ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ + r = ra_allocref(as, ref, allow); + } + ra_noweak(as, r); + return r; +} + +/* Allocate two source registers for three-operand instructions. */ +static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) +{ + IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); + Reg left = irl->r, right = irr->r; + if (ra_hasreg(left)) { + ra_noweak(as, left); + if (ra_noreg(right)) + right = ra_allocref(as, ir->op2, rset_exclude(allow, left)); + else + ra_noweak(as, right); + } else if (ra_hasreg(right)) { + ra_noweak(as, right); + left = ra_allocref(as, ir->op1, rset_exclude(allow, right)); + } else if (ra_hashint(right)) { + right = ra_allocref(as, ir->op2, allow); + left = ra_alloc1(as, ir->op1, rset_exclude(allow, right)); + } else { + left = ra_allocref(as, ir->op1, allow); + right = ra_alloc1(as, ir->op2, rset_exclude(allow, left)); + } + return left | (right << 8); +} + +/* -- Guard handling ------------------------------------------------------ */ + +/* Setup exit stubs after the end of each trace. */ +static void asm_exitstub_setup(ASMState *as, ExitNo nexits) +{ + ExitNo i; + MCode *mxp = as->mctop; + if (mxp - (nexits + 3 + MCLIM_REDZONE) < as->mclim) + asm_mclimit(as); + /* 1: mflr r0; bl ->vm_exit_handler; li r0, traceno; bl <1; bl <1; ... */ + for (i = nexits-1; (int32_t)i >= 0; i--) + *--mxp = PPCI_BL|(((-3-i)&0x00ffffffu)<<2); + *--mxp = PPCI_LI|PPCF_T(RID_TMP)|as->T->traceno; /* Read by exit handler. */ + mxp--; + *mxp = PPCI_BL|((((MCode *)(void *)lj_vm_exit_handler-mxp)&0x00ffffffu)<<2); + *--mxp = PPCI_MFLR|PPCF_T(RID_TMP); + as->mctop = mxp; +} + +static MCode *asm_exitstub_addr(ASMState *as, ExitNo exitno) +{ + /* Keep this in-sync with exitstub_trace_addr(). */ + return as->mctop + exitno + 3; +} + +/* Emit conditional branch to exit for guard. */ +static void asm_guardcc(ASMState *as, PPCCC cc) +{ + MCode *target = asm_exitstub_addr(as, as->snapno); + MCode *p = as->mcp; + if (LJ_UNLIKELY(p == as->invmcp)) { + as->loopinv = 1; + *p = PPCI_B | (((target-p) & 0x00ffffffu) << 2); + emit_condbranch(as, PPCI_BC, cc^4, p); + return; + } + emit_condbranch(as, PPCI_BC, cc, target); +} + +/* -- Operand fusion ------------------------------------------------------ */ + +/* Limit linear search to this distance. Avoids O(n^2) behavior. */ +#define CONFLICT_SEARCH_LIM 31 + +/* Check if there's no conflicting instruction between curins and ref. */ +static int noconflict(ASMState *as, IRRef ref, IROp conflict) +{ + IRIns *ir = as->ir; + IRRef i = as->curins; + if (i > ref + CONFLICT_SEARCH_LIM) + return 0; /* Give up, ref is too far away. */ + while (--i > ref) + if (ir[i].o == conflict) + return 0; /* Conflict found. */ + return 1; /* Ok, no conflict. */ +} + +/* Fuse the array base of colocated arrays. */ +static int32_t asm_fuseabase(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && + !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) + return (int32_t)sizeof(GCtab); + return 0; +} + +/* Indicates load/store indexed is ok. */ +#define AHUREF_LSX ((int32_t)0x80000000) + +/* Fuse array/hash/upvalue reference into register+offset operand. */ +static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow) +{ + IRIns *ir = IR(ref); + if (ra_noreg(ir->r)) { + if (ir->o == IR_AREF) { + if (mayfuse(as, ref)) { + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + ofs += 8*IR(ir->op2)->i; + if (checki16(ofs)) { + *ofsp = ofs; + return ra_alloc1(as, refa, allow); + } + } + if (*ofsp == AHUREF_LSX) { + Reg base = ra_alloc1(as, ir->op1, allow); + Reg idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); + return base | (idx << 8); + } + } + } else if (ir->o == IR_HREFK) { + if (mayfuse(as, ref)) { + int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); + if (checki16(ofs)) { + *ofsp = ofs; + return ra_alloc1(as, ir->op1, allow); + } + } + } else if (ir->o == IR_UREFC) { + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); + int32_t jgl = (intptr_t)J2G(as->J); + if ((uint32_t)(ofs-jgl) < 65536) { + *ofsp = ofs-jgl-32768; + return RID_JGL; + } else { + *ofsp = (int16_t)ofs; + return ra_allock(as, ofs-(int16_t)ofs, allow); + } + } + } + } + *ofsp = 0; + return ra_alloc1(as, ref, allow); +} + +/* Fuse XLOAD/XSTORE reference into load/store operand. */ +static void asm_fusexref(ASMState *as, PPCIns pi, Reg rt, IRRef ref, + RegSet allow, int32_t ofs) +{ + IRIns *ir = IR(ref); + Reg base; + if (ra_noreg(ir->r) && canfuse(as, ir)) { + if (ir->o == IR_ADD) { + int32_t ofs2; + if (irref_isk(ir->op2) && (ofs2 = ofs + IR(ir->op2)->i, checki16(ofs2))) { + ofs = ofs2; + ref = ir->op1; + } else if (ofs == 0) { + Reg right, left = ra_alloc2(as, ir, allow); + right = (left >> 8); left &= 255; + emit_fab(as, PPCI_LWZX | ((pi >> 20) & 0x780), rt, left, right); + return; + } + } else if (ir->o == IR_STRREF) { + lua_assert(ofs == 0); + ofs = (int32_t)sizeof(GCstr); + if (irref_isk(ir->op2)) { + ofs += IR(ir->op2)->i; + ref = ir->op1; + } else if (irref_isk(ir->op1)) { + ofs += IR(ir->op1)->i; + ref = ir->op2; + } else { + /* NYI: Fuse ADD with constant. */ + Reg tmp, right, left = ra_alloc2(as, ir, allow); + right = (left >> 8); left &= 255; + tmp = ra_scratch(as, rset_exclude(rset_exclude(allow, left), right)); + emit_fai(as, pi, rt, tmp, ofs); + emit_tab(as, PPCI_ADD, tmp, left, right); + return; + } + if (!checki16(ofs)) { + Reg left = ra_alloc1(as, ref, allow); + Reg right = ra_allock(as, ofs, rset_exclude(allow, left)); + emit_fab(as, PPCI_LWZX | ((pi >> 20) & 0x780), rt, left, right); + return; + } + } + } + base = ra_alloc1(as, ref, allow); + emit_fai(as, pi, rt, base, ofs); +} + +/* Fuse XLOAD/XSTORE reference into indexed-only load/store operand. */ +static void asm_fusexrefx(ASMState *as, PPCIns pi, Reg rt, IRRef ref, + RegSet allow) +{ + IRIns *ira = IR(ref); + Reg right, left; + if (canfuse(as, ira) && ira->o == IR_ADD && ra_noreg(ira->r)) { + left = ra_alloc2(as, ira, allow); + right = (left >> 8); left &= 255; + } else { + right = ra_alloc1(as, ref, allow); + left = RID_R0; + } + emit_tab(as, pi, rt, left, right); +} + +/* Fuse to multiply-add/sub instruction. */ +static int asm_fusemadd(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pir) +{ + IRRef lref = ir->op1, rref = ir->op2; + IRIns *irm; + if (lref != rref && + ((mayfuse(as, lref) && (irm = IR(lref), irm->o == IR_MUL) && + ra_noreg(irm->r)) || + (mayfuse(as, rref) && (irm = IR(rref), irm->o == IR_MUL) && + (rref = lref, pi = pir, ra_noreg(irm->r))))) { + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg add = ra_alloc1(as, rref, RSET_FPR); + Reg right, left = ra_alloc2(as, irm, rset_exclude(RSET_FPR, add)); + right = (left >> 8); left &= 255; + emit_facb(as, pi, dest, left, right, add); + return 1; + } + return 0; +} + +/* -- Calls --------------------------------------------------------------- */ + +/* Generate a call to a C function. */ +static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) +{ + uint32_t n, nargs = CCI_NARGS(ci); + int32_t ofs = 8; + Reg gpr = REGARG_FIRSTGPR, fpr = REGARG_FIRSTFPR; + if ((void *)ci->func) + emit_call(as, (void *)ci->func); + for (n = 0; n < nargs; n++) { /* Setup args. */ + IRRef ref = args[n]; + if (ref) { + IRIns *ir = IR(ref); + if (irt_isfp(ir->t)) { + if (fpr <= REGARG_LASTFPR) { + lua_assert(rset_test(as->freeset, fpr)); /* Already evicted. */ + ra_leftov(as, fpr, ref); + fpr++; + } else { + Reg r = ra_alloc1(as, ref, RSET_FPR); + if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; + emit_spstore(as, ir, r, ofs); + ofs += irt_isnum(ir->t) ? 8 : 4; + } + } else { + if (gpr <= REGARG_LASTGPR) { + lua_assert(rset_test(as->freeset, gpr)); /* Already evicted. */ + ra_leftov(as, gpr, ref); + gpr++; + } else { + Reg r = ra_alloc1(as, ref, RSET_GPR); + emit_spstore(as, ir, r, ofs); + ofs += 4; + } + } + } else { + if (gpr <= REGARG_LASTGPR) + gpr++; + else + ofs += 4; + } + checkmclim(as); + } + if ((ci->flags & CCI_VARARG)) /* Vararg calls need to know about FPR use. */ + emit_tab(as, fpr == REGARG_FIRSTFPR ? PPCI_CRXOR : PPCI_CREQV, 6, 6, 6); +} + +/* Setup result reg/sp for call. Evict scratch regs. */ +static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + RegSet drop = RSET_SCRATCH; + int hiop = ((ir+1)->o == IR_HIOP); + if ((ci->flags & CCI_NOFPRCLOBBER)) + drop &= ~RSET_FPR; + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + if (hiop && ra_hasreg((ir+1)->r)) + rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ + ra_evictset(as, drop); /* Evictions must be performed first. */ + if (ra_used(ir)) { + lua_assert(!irt_ispri(ir->t)); + if (irt_isfp(ir->t)) { + if ((ci->flags & CCI_CASTU64)) { + /* Use spill slot or temp slots. */ + int32_t ofs = ir->s ? sps_scale(ir->s) : SPOFS_TMP; + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_fai(as, PPCI_LFD, dest, RID_SP, ofs); + } + emit_tai(as, PPCI_STW, RID_RETHI, RID_SP, ofs); + emit_tai(as, PPCI_STW, RID_RETLO, RID_SP, ofs+4); + } else { + ra_destreg(as, ir, RID_FPRET); + } + } else if (hiop) { + ra_destpair(as, ir); + } else { + ra_destreg(as, ir, RID_RET); + } + } +} + +static void asm_call(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX]; + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + asm_collectargs(as, ir, ci, args); + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static void asm_callx(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX*2]; + CCallInfo ci; + IRRef func; + IRIns *irf; + ci.flags = asm_callx_flags(as, ir); + asm_collectargs(as, ir, &ci, args); + asm_setupresult(as, ir, &ci); + func = ir->op2; irf = IR(func); + if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } + if (irref_isk(func)) { /* Call to constant address. */ + ci.func = (ASMFunction)(void *)(irf->i); + } else { /* Need a non-argument register for indirect calls. */ + RegSet allow = RSET_GPR & ~RSET_RANGE(RID_R0, REGARG_LASTGPR+1); + Reg freg = ra_alloc1(as, func, allow); + *--as->mcp = PPCI_BCTRL; + *--as->mcp = PPCI_MTCTR | PPCF_T(freg); + ci.func = (ASMFunction)(void *)0; + } + asm_gencall(as, &ci, args); +} + +static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +/* -- Returns ------------------------------------------------------------- */ + +/* Return to lower frame. Guard that it goes to the right spot. */ +static void asm_retf(ASMState *as, IRIns *ir) +{ + Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); + void *pc = ir_kptr(IR(ir->op2)); + int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + as->topslot -= (BCReg)delta; + if ((int32_t)as->topslot < 0) as->topslot = 0; + irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ + emit_setgl(as, base, jit_base); + emit_addptr(as, base, -8*delta); + asm_guardcc(as, CC_NE); + emit_ab(as, PPCI_CMPW, RID_TMP, + ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); + emit_tai(as, PPCI_LWZ, RID_TMP, base, -8); +} + +/* -- Type conversions ---------------------------------------------------- */ + +static void asm_tointg(ASMState *as, IRIns *ir, Reg left) +{ + RegSet allow = RSET_FPR; + Reg tmp = ra_scratch(as, rset_clear(allow, left)); + Reg fbias = ra_scratch(as, rset_clear(allow, tmp)); + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg hibias = ra_allock(as, 0x43300000, rset_exclude(RSET_GPR, dest)); + asm_guardcc(as, CC_NE); + emit_fab(as, PPCI_FCMPU, 0, tmp, left); + emit_fab(as, PPCI_FSUB, tmp, tmp, fbias); + emit_fai(as, PPCI_LFD, tmp, RID_SP, SPOFS_TMP); + emit_tai(as, PPCI_STW, RID_TMP, RID_SP, SPOFS_TMPLO); + emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); + emit_asi(as, PPCI_XORIS, RID_TMP, dest, 0x8000); + emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); + emit_lsptr(as, PPCI_LFS, (fbias & 31), + (void *)lj_ir_k64_find(as->J, U64x(59800004,59800000)), + RSET_GPR); + emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); + emit_fb(as, PPCI_FCTIWZ, tmp, left); +} + +static void asm_tobit(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_FPR; + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, allow); + Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); + Reg tmp = ra_scratch(as, rset_clear(allow, right)); + emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); + emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); + emit_fab(as, PPCI_FADD, tmp, left, right); +} + +static void asm_conv(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); + int stfp = (st == IRT_NUM || st == IRT_FLOAT); + IRRef lref = ir->op1; + lua_assert(irt_type(ir->t) != st); + lua_assert(!(irt_isint64(ir->t) || + (st == IRT_I64 || st == IRT_U64))); /* Handled by SPLIT. */ + if (irt_isfp(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + if (stfp) { /* FP to FP conversion. */ + if (st == IRT_NUM) /* double -> float conversion. */ + emit_fb(as, PPCI_FRSP, dest, ra_alloc1(as, lref, RSET_FPR)); + else /* float -> double conversion is a no-op on PPC. */ + ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ + } else { /* Integer to FP conversion. */ + /* IRT_INT: Flip hibit, bias with 2^52, subtract 2^52+2^31. */ + /* IRT_U32: Bias with 2^52, subtract 2^52. */ + RegSet allow = RSET_GPR; + Reg left = ra_alloc1(as, lref, allow); + Reg hibias = ra_allock(as, 0x43300000, rset_clear(allow, left)); + Reg fbias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); + const float *kbias; + if (irt_isfloat(ir->t)) emit_fb(as, PPCI_FRSP, dest, dest); + emit_fab(as, PPCI_FSUB, dest, dest, fbias); + emit_fai(as, PPCI_LFD, dest, RID_SP, SPOFS_TMP); + kbias = (const float *)lj_ir_k64_find(as->J, U64x(59800004,59800000)); + if (st == IRT_U32) kbias++; + emit_lsptr(as, PPCI_LFS, (fbias & 31), (void *)kbias, + rset_clear(allow, hibias)); + emit_tai(as, PPCI_STW, st == IRT_U32 ? left : RID_TMP, + RID_SP, SPOFS_TMPLO); + emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); + if (st != IRT_U32) emit_asi(as, PPCI_XORIS, RID_TMP, left, 0x8000); + } + } else if (stfp) { /* FP to integer conversion. */ + if (irt_isguard(ir->t)) { + /* Checked conversions are only supported from number to int. */ + lua_assert(irt_isint(ir->t) && st == IRT_NUM); + asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, lref, RSET_FPR); + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + if (irt_isu32(ir->t)) { + /* Convert both x and x-2^31 to int and merge results. */ + Reg tmpi = ra_scratch(as, rset_exclude(RSET_GPR, dest)); + emit_asb(as, PPCI_OR, dest, dest, tmpi); /* Select with mask idiom. */ + emit_asb(as, PPCI_AND, tmpi, tmpi, RID_TMP); + emit_asb(as, PPCI_ANDC, dest, dest, RID_TMP); + emit_tai(as, PPCI_LWZ, tmpi, RID_SP, SPOFS_TMPLO); /* tmp = (int)(x) */ + emit_tai(as, PPCI_ADDIS, dest, dest, 0x8000); /* dest += 2^31 */ + emit_asb(as, PPCI_SRAWI, RID_TMP, dest, 31); /* mask = -(dest < 0) */ + emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); + emit_tai(as, PPCI_LWZ, dest, + RID_SP, SPOFS_TMPLO); /* dest = (int)(x-2^31) */ + emit_fb(as, PPCI_FCTIWZ, tmp, left); + emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); + emit_fb(as, PPCI_FCTIWZ, tmp, tmp); + emit_fab(as, PPCI_FSUB, tmp, left, tmp); + emit_lsptr(as, PPCI_LFS, (tmp & 31), + (void *)lj_ir_k64_find(as->J, U64x(4f000000,00000000)), + RSET_GPR); + } else { + emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); + emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); + emit_fb(as, PPCI_FCTIWZ, tmp, left); + } + } + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); + if ((ir->op2 & IRCONV_SEXT)) + emit_as(as, st == IRT_I8 ? PPCI_EXTSB : PPCI_EXTSH, dest, left); + else + emit_rot(as, PPCI_RLWINM, dest, left, 0, st == IRT_U8 ? 24 : 16, 31); + } else { /* 32/64 bit integer conversions. */ + /* Only need to handle 32/32 bit no-op (cast) on 32 bit archs. */ + ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ + } + } +} + +#if LJ_HASFFI +static void asm_conv64(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); + IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); + IRCallID id; + const CCallInfo *ci; + IRRef args[2]; + args[0] = ir->op1; + args[1] = (ir-1)->op1; + if (st == IRT_NUM || st == IRT_FLOAT) { + id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); + ir--; + } else { + id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); + } + ci = &lj_ir_callinfo[id]; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} +#endif + +static void asm_strto(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; + IRRef args[2]; + int32_t ofs; + RegSet drop = RSET_SCRATCH; + if (ra_hasreg(ir->r)) rset_set(drop, ir->r); /* Spill dest reg (if any). */ + ra_evictset(as, drop); + asm_guardcc(as, CC_EQ); + emit_ai(as, PPCI_CMPWI, RID_RET, 0); /* Test return status. */ + args[0] = ir->op1; /* GCstr *str */ + args[1] = ASMREF_TMP1; /* TValue *n */ + asm_gencall(as, ci, args); + /* Store the result to the spill slot or temp slots. */ + ofs = ir->s ? sps_scale(ir->s) : SPOFS_TMP; + emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_SP, ofs); +} + +/* Get pointer to TValue. */ +static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) +{ + IRIns *ir = IR(ref); + if (irt_isnum(ir->t)) { + if (irref_isk(ref)) /* Use the number constant itself as a TValue. */ + ra_allockreg(as, i32ptr(ir_knum(ir)), dest); + else /* Otherwise force a spill and use the spill slot. */ + emit_tai(as, PPCI_ADDI, dest, RID_SP, ra_spill(as, ir)); + } else { + /* Otherwise use g->tmptv to hold the TValue. */ + RegSet allow = rset_exclude(RSET_GPR, dest); + Reg type; + emit_tai(as, PPCI_ADDI, dest, RID_JGL, offsetof(global_State, tmptv)-32768); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, allow); + emit_setgl(as, src, tmptv.gcr); + } + type = ra_allock(as, irt_toitype(ir->t), allow); + emit_setgl(as, type, tmptv.it); + } +} + +static void asm_tostr(ASMState *as, IRIns *ir) +{ + IRRef args[2]; + args[0] = ASMREF_L; + as->gcsteps++; + if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; + args[1] = ASMREF_TMP1; /* const lua_Number * */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); + } else { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; + args[1] = ir->op1; /* int32_t k */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + } +} + +/* -- Memory references --------------------------------------------------- */ + +static void asm_aref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx, base; + if (irref_isk(ir->op2)) { + IRRef tab = IR(ir->op1)->op1; + int32_t ofs = asm_fuseabase(as, tab); + IRRef refa = ofs ? tab : ir->op1; + ofs += 8*IR(ir->op2)->i; + if (checki16(ofs)) { + base = ra_alloc1(as, refa, RSET_GPR); + emit_tai(as, PPCI_ADDI, dest, base, ofs); + return; + } + } + base = ra_alloc1(as, ir->op1, RSET_GPR); + idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); + emit_tab(as, PPCI_ADD, dest, RID_TMP, base); + emit_slwi(as, RID_TMP, idx, 3); +} + +/* Inlined hash lookup. Specialized for key type and for const keys. +** The equivalent C code is: +** Node *n = hashkey(t, key); +** do { +** if (lj_obj_equal(&n->key, key)) return &n->val; +** } while ((n = nextnode(n))); +** return niltv(L); +*/ +static void asm_href(ASMState *as, IRIns *ir, IROp merge) +{ + RegSet allow = RSET_GPR; + int destused = ra_used(ir); + Reg dest = ra_dest(as, ir, allow); + Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); + Reg key = RID_NONE, tmp1 = RID_TMP, tmp2; + Reg tisnum = RID_NONE, tmpnum = RID_NONE; + IRRef refkey = ir->op2; + IRIns *irkey = IR(refkey); + IRType1 kt = irkey->t; + uint32_t khash; + MCLabel l_end, l_loop, l_next; + + rset_clear(allow, tab); + if (irt_isnum(kt)) { + key = ra_alloc1(as, refkey, RSET_FPR); + tmpnum = ra_scratch(as, rset_exclude(RSET_FPR, key)); + tisnum = ra_allock(as, (int32_t)LJ_TISNUM, allow); + rset_clear(allow, tisnum); + } else if (!irt_ispri(kt)) { + key = ra_alloc1(as, refkey, allow); + rset_clear(allow, key); + } + tmp2 = ra_scratch(as, allow); + rset_clear(allow, tmp2); + + /* Key not found in chain: jump to exit (if merged) or load niltv. */ + l_end = emit_label(as); + as->invmcp = NULL; + if (merge == IR_NE) + asm_guardcc(as, CC_EQ); + else if (destused) + emit_loada(as, dest, niltvg(J2G(as->J))); + + /* Follow hash chain until the end. */ + l_loop = --as->mcp; + emit_ai(as, PPCI_CMPWI, dest, 0); + emit_tai(as, PPCI_LWZ, dest, dest, (int32_t)offsetof(Node, next)); + l_next = emit_label(as); + + /* Type and value comparison. */ + if (merge == IR_EQ) + asm_guardcc(as, CC_EQ); + else + emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); + if (irt_isnum(kt)) { + emit_fab(as, PPCI_FCMPU, 0, tmpnum, key); + emit_condbranch(as, PPCI_BC, CC_GE, l_next); + emit_ab(as, PPCI_CMPLW, tmp1, tisnum); + emit_fai(as, PPCI_LFD, tmpnum, dest, (int32_t)offsetof(Node, key.n)); + } else { + if (!irt_ispri(kt)) { + emit_ab(as, PPCI_CMPW, tmp2, key); + emit_condbranch(as, PPCI_BC, CC_NE, l_next); + } + emit_ai(as, PPCI_CMPWI, tmp1, irt_toitype(irkey->t)); + if (!irt_ispri(kt)) + emit_tai(as, PPCI_LWZ, tmp2, dest, (int32_t)offsetof(Node, key.gcr)); + } + emit_tai(as, PPCI_LWZ, tmp1, dest, (int32_t)offsetof(Node, key.it)); + *l_loop = PPCI_BC | PPCF_Y | PPCF_CC(CC_NE) | + (((char *)as->mcp-(char *)l_loop) & 0xffffu); + + /* Load main position relative to tab->node into dest. */ + khash = irref_isk(refkey) ? ir_khash(irkey) : 1; + if (khash == 0) { + emit_tai(as, PPCI_LWZ, dest, tab, (int32_t)offsetof(GCtab, node)); + } else { + Reg tmphash = tmp1; + if (irref_isk(refkey)) + tmphash = ra_allock(as, khash, allow); + emit_tab(as, PPCI_ADD, dest, dest, tmp1); + emit_tai(as, PPCI_MULLI, tmp1, tmp1, sizeof(Node)); + emit_asb(as, PPCI_AND, tmp1, tmp2, tmphash); + emit_tai(as, PPCI_LWZ, dest, tab, (int32_t)offsetof(GCtab, node)); + emit_tai(as, PPCI_LWZ, tmp2, tab, (int32_t)offsetof(GCtab, hmask)); + if (irref_isk(refkey)) { + /* Nothing to do. */ + } else if (irt_isstr(kt)) { + emit_tai(as, PPCI_LWZ, tmp1, key, (int32_t)offsetof(GCstr, hash)); + } else { /* Must match with hash*() in lj_tab.c. */ + emit_tab(as, PPCI_SUBF, tmp1, tmp2, tmp1); + emit_rotlwi(as, tmp2, tmp2, HASH_ROT3); + emit_asb(as, PPCI_XOR, tmp1, tmp1, tmp2); + emit_rotlwi(as, tmp1, tmp1, (HASH_ROT2+HASH_ROT1)&31); + emit_tab(as, PPCI_SUBF, tmp2, dest, tmp2); + if (irt_isnum(kt)) { + int32_t ofs = ra_spill(as, irkey); + emit_asb(as, PPCI_XOR, tmp2, tmp2, tmp1); + emit_rotlwi(as, dest, tmp1, HASH_ROT1); + emit_tab(as, PPCI_ADD, tmp1, tmp1, tmp1); + emit_tai(as, PPCI_LWZ, tmp2, RID_SP, ofs+4); + emit_tai(as, PPCI_LWZ, tmp1, RID_SP, ofs); + } else { + emit_asb(as, PPCI_XOR, tmp2, key, tmp1); + emit_rotlwi(as, dest, tmp1, HASH_ROT1); + emit_tai(as, PPCI_ADDI, tmp1, tmp2, HASH_BIAS); + emit_tai(as, PPCI_ADDIS, tmp2, key, (HASH_BIAS + 32768)>>16); + } + } + } +} + +static void asm_hrefk(ASMState *as, IRIns *ir) +{ + IRIns *kslot = IR(ir->op2); + IRIns *irkey = IR(kslot->op1); + int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); + int32_t kofs = ofs + (int32_t)offsetof(Node, key); + Reg dest = (ra_used(ir)||ofs > 32736) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; + Reg node = ra_alloc1(as, ir->op1, RSET_GPR); + Reg key = RID_NONE, type = RID_TMP, idx = node; + RegSet allow = rset_exclude(RSET_GPR, node); + lua_assert(ofs % sizeof(Node) == 0); + if (ofs > 32736) { + idx = dest; + rset_clear(allow, dest); + kofs = (int32_t)offsetof(Node, key); + } else if (ra_hasreg(dest)) { + emit_tai(as, PPCI_ADDI, dest, node, ofs); + } + asm_guardcc(as, CC_NE); + if (!irt_ispri(irkey->t)) { + key = ra_scratch(as, allow); + rset_clear(allow, key); + } + rset_clear(allow, type); + if (irt_isnum(irkey->t)) { + emit_cmpi(as, key, (int32_t)ir_knum(irkey)->u32.lo); + asm_guardcc(as, CC_NE); + emit_cmpi(as, type, (int32_t)ir_knum(irkey)->u32.hi); + } else { + if (ra_hasreg(key)) { + emit_cmpi(as, key, irkey->i); /* May use RID_TMP, i.e. type. */ + asm_guardcc(as, CC_NE); + } + emit_ai(as, PPCI_CMPWI, type, irt_toitype(irkey->t)); + } + if (ra_hasreg(key)) emit_tai(as, PPCI_LWZ, key, idx, kofs+4); + emit_tai(as, PPCI_LWZ, type, idx, kofs); + if (ofs > 32736) { + emit_tai(as, PPCI_ADDIS, dest, dest, (ofs + 32768) >> 16); + emit_tai(as, PPCI_ADDI, dest, node, ofs); + } +} + +static void asm_newref(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; + IRRef args[3]; + if (ir->r == RID_SINK) + return; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* GCtab *t */ + args[2] = ASMREF_TMP1; /* cTValue *key */ + asm_setupresult(as, ir, ci); /* TValue * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); +} + +static void asm_uref(ASMState *as, IRIns *ir) +{ + /* NYI: Check that UREFO is still open and not aliasing a slot. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; + emit_lsptr(as, PPCI_LWZ, dest, v, RSET_GPR); + } else { + Reg uv = ra_scratch(as, RSET_GPR); + Reg func = ra_alloc1(as, ir->op1, RSET_GPR); + if (ir->o == IR_UREFC) { + asm_guardcc(as, CC_NE); + emit_ai(as, PPCI_CMPWI, RID_TMP, 1); + emit_tai(as, PPCI_ADDI, dest, uv, (int32_t)offsetof(GCupval, tv)); + emit_tai(as, PPCI_LBZ, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); + } else { + emit_tai(as, PPCI_LWZ, dest, uv, (int32_t)offsetof(GCupval, v)); + } + emit_tai(as, PPCI_LWZ, uv, func, + (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); + } +} + +static void asm_fref(ASMState *as, IRIns *ir) +{ + UNUSED(as); UNUSED(ir); + lua_assert(!ra_used(ir)); +} + +static void asm_strref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + IRRef ref = ir->op2, refk = ir->op1; + int32_t ofs = (int32_t)sizeof(GCstr); + Reg r; + if (irref_isk(ref)) { + IRRef tmp = refk; refk = ref; ref = tmp; + } else if (!irref_isk(refk)) { + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + IRIns *irr = IR(ir->op2); + if (ra_hasreg(irr->r)) { + ra_noweak(as, irr->r); + right = irr->r; + } else if (mayfuse(as, irr->op2) && + irr->o == IR_ADD && irref_isk(irr->op2) && + checki16(ofs + IR(irr->op2)->i)) { + ofs += IR(irr->op2)->i; + right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); + } else { + right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); + } + emit_tai(as, PPCI_ADDI, dest, dest, ofs); + emit_tab(as, PPCI_ADD, dest, left, right); + return; + } + r = ra_alloc1(as, ref, RSET_GPR); + ofs += IR(refk)->i; + if (checki16(ofs)) + emit_tai(as, PPCI_ADDI, dest, r, ofs); + else + emit_tab(as, PPCI_ADD, dest, r, + ra_allock(as, ofs, rset_exclude(RSET_GPR, r))); +} + +/* -- Loads and stores ---------------------------------------------------- */ + +static PPCIns asm_fxloadins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: return PPCI_LBZ; /* Needs sign-extension. */ + case IRT_U8: return PPCI_LBZ; + case IRT_I16: return PPCI_LHA; + case IRT_U16: return PPCI_LHZ; + case IRT_NUM: return PPCI_LFD; + case IRT_FLOAT: return PPCI_LFS; + default: return PPCI_LWZ; + } +} + +static PPCIns asm_fxstoreins(IRIns *ir) +{ + switch (irt_type(ir->t)) { + case IRT_I8: case IRT_U8: return PPCI_STB; + case IRT_I16: case IRT_U16: return PPCI_STH; + case IRT_NUM: return PPCI_STFD; + case IRT_FLOAT: return PPCI_STFS; + default: return PPCI_STW; + } +} + +static void asm_fload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); + PPCIns pi = asm_fxloadins(ir); + int32_t ofs; + if (ir->op2 == IRFL_TAB_ARRAY) { + ofs = asm_fuseabase(as, ir->op1); + if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ + emit_tai(as, PPCI_ADDI, dest, idx, ofs); + return; + } + } + ofs = field_ofs[ir->op2]; + lua_assert(!irt_isi8(ir->t)); + emit_tai(as, pi, dest, idx, ofs); +} + +static void asm_fstore(ASMState *as, IRIns *ir) +{ + if (ir->r != RID_SINK) { + Reg src = ra_alloc1(as, ir->op2, RSET_GPR); + IRIns *irf = IR(ir->op1); + Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); + int32_t ofs = field_ofs[irf->op2]; + PPCIns pi = asm_fxstoreins(ir); + emit_tai(as, pi, src, idx, ofs); + } +} + +static void asm_xload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); + if (irt_isi8(ir->t)) + emit_as(as, PPCI_EXTSB, dest, dest); + asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); +} + +static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +{ + IRIns *irb; + if (ir->r == RID_SINK) + return; + if (ofs == 0 && mayfuse(as, ir->op2) && (irb = IR(ir->op2))->o == IR_BSWAP && + ra_noreg(irb->r) && (irt_isint(ir->t) || irt_isu32(ir->t))) { + /* Fuse BSWAP with XSTORE to stwbrx. */ + Reg src = ra_alloc1(as, irb->op1, RSET_GPR); + asm_fusexrefx(as, PPCI_STWBRX, src, ir->op1, rset_exclude(RSET_GPR, src)); + } else { + Reg src = ra_alloc1(as, ir->op2, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, + rset_exclude(RSET_GPR, src), ofs); + } +} + +static void asm_ahuvload(ASMState *as, IRIns *ir) +{ + IRType1 t = ir->t; + Reg dest = RID_NONE, type = RID_TMP, tmp = RID_TMP, idx; + RegSet allow = RSET_GPR; + int32_t ofs = AHUREF_LSX; + if (ra_used(ir)) { + lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); + if (!irt_isnum(t)) ofs = 0; + dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); + rset_clear(allow, dest); + } + idx = asm_fuseahuref(as, ir->op1, &ofs, allow); + if (irt_isnum(t)) { + Reg tisnum = ra_allock(as, (int32_t)LJ_TISNUM, rset_exclude(allow, idx)); + asm_guardcc(as, CC_GE); + emit_ab(as, PPCI_CMPLW, type, tisnum); + if (ra_hasreg(dest)) { + if (ofs == AHUREF_LSX) { + tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, + (idx&255)), (idx>>8))); + emit_fab(as, PPCI_LFDX, dest, (idx&255), tmp); + } else { + emit_fai(as, PPCI_LFD, dest, idx, ofs); + } + } + } else { + asm_guardcc(as, CC_NE); + emit_ai(as, PPCI_CMPWI, type, irt_toitype(t)); + if (ra_hasreg(dest)) emit_tai(as, PPCI_LWZ, dest, idx, ofs+4); + } + if (ofs == AHUREF_LSX) { + emit_tab(as, PPCI_LWZX, type, (idx&255), tmp); + emit_slwi(as, tmp, (idx>>8), 3); + } else { + emit_tai(as, PPCI_LWZ, type, idx, ofs); + } +} + +static void asm_ahustore(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_GPR; + Reg idx, src = RID_NONE, type = RID_NONE; + int32_t ofs = AHUREF_LSX; + if (ir->r == RID_SINK) + return; + if (irt_isnum(ir->t)) { + src = ra_alloc1(as, ir->op2, RSET_FPR); + } else { + if (!irt_ispri(ir->t)) { + src = ra_alloc1(as, ir->op2, allow); + rset_clear(allow, src); + ofs = 0; + } + type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); + rset_clear(allow, type); + } + idx = asm_fuseahuref(as, ir->op1, &ofs, allow); + if (irt_isnum(ir->t)) { + if (ofs == AHUREF_LSX) { + emit_fab(as, PPCI_STFDX, src, (idx&255), RID_TMP); + emit_slwi(as, RID_TMP, (idx>>8), 3); + } else { + emit_fai(as, PPCI_STFD, src, idx, ofs); + } + } else { + if (ra_hasreg(src)) + emit_tai(as, PPCI_STW, src, idx, ofs+4); + if (ofs == AHUREF_LSX) { + emit_tab(as, PPCI_STWX, type, (idx&255), RID_TMP); + emit_slwi(as, RID_TMP, (idx>>8), 3); + } else { + emit_tai(as, PPCI_STW, type, idx, ofs); + } + } +} + +static void asm_sload(ASMState *as, IRIns *ir) +{ + int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 0 : 4); + IRType1 t = ir->t; + Reg dest = RID_NONE, type = RID_NONE, base; + RegSet allow = RSET_GPR; + lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ + lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); + lua_assert(LJ_DUALNUM || + !irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); + if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { + dest = ra_scratch(as, RSET_FPR); + asm_tointg(as, ir, dest); + t.irt = IRT_NUM; /* Continue with a regular number type check. */ + } else if (ra_used(ir)) { + lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); + dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); + rset_clear(allow, dest); + base = ra_alloc1(as, REF_BASE, allow); + rset_clear(allow, base); + if ((ir->op2 & IRSLOAD_CONVERT)) { + if (irt_isint(t)) { + emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); + dest = ra_scratch(as, RSET_FPR); + emit_fai(as, PPCI_STFD, dest, RID_SP, SPOFS_TMP); + emit_fb(as, PPCI_FCTIWZ, dest, dest); + t.irt = IRT_NUM; /* Check for original type. */ + } else { + Reg tmp = ra_scratch(as, allow); + Reg hibias = ra_allock(as, 0x43300000, rset_clear(allow, tmp)); + Reg fbias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); + emit_fab(as, PPCI_FSUB, dest, dest, fbias); + emit_fai(as, PPCI_LFD, dest, RID_SP, SPOFS_TMP); + emit_lsptr(as, PPCI_LFS, (fbias & 31), + (void *)lj_ir_k64_find(as->J, U64x(59800004,59800000)), + rset_clear(allow, hibias)); + emit_tai(as, PPCI_STW, tmp, RID_SP, SPOFS_TMPLO); + emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); + emit_asi(as, PPCI_XORIS, tmp, tmp, 0x8000); + dest = tmp; + t.irt = IRT_INT; /* Check for original type. */ + } + } + goto dotypecheck; + } + base = ra_alloc1(as, REF_BASE, allow); + rset_clear(allow, base); +dotypecheck: + if (irt_isnum(t)) { + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + Reg tisnum = ra_allock(as, (int32_t)LJ_TISNUM, allow); + asm_guardcc(as, CC_GE); + emit_ab(as, PPCI_CMPLW, RID_TMP, tisnum); + type = RID_TMP; + } + if (ra_hasreg(dest)) emit_fai(as, PPCI_LFD, dest, base, ofs-4); + } else { + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + asm_guardcc(as, CC_NE); + emit_ai(as, PPCI_CMPWI, RID_TMP, irt_toitype(t)); + type = RID_TMP; + } + if (ra_hasreg(dest)) emit_tai(as, PPCI_LWZ, dest, base, ofs); + } + if (ra_hasreg(type)) emit_tai(as, PPCI_LWZ, type, base, ofs-4); +} + +/* -- Allocations --------------------------------------------------------- */ + +#if LJ_HASFFI +static void asm_cnew(ASMState *as, IRIns *ir) +{ + CTState *cts = ctype_ctsG(J2G(as->J)); + CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; + CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? + lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; + IRRef args[2]; + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + RegSet drop = RSET_SCRATCH; + lua_assert(sz != CTSIZE_INVALID); + + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ + as->gcsteps++; + + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + if (ra_used(ir)) + ra_destreg(as, ir, RID_RET); /* GCcdata * */ + + /* Initialize immutable cdata object. */ + if (ir->o == IR_CNEWI) { + int32_t ofs = sizeof(GCcdata); + lua_assert(sz == 4 || sz == 8); + if (sz == 8) { + ofs += 4; + lua_assert((ir+1)->o == IR_HIOP); + } + for (;;) { + Reg r = ra_alloc1(as, ir->op2, allow); + emit_tai(as, PPCI_STW, r, RID_RET, ofs); + rset_clear(allow, r); + if (ofs == sizeof(GCcdata)) break; + ofs -= 4; ir++; + } + } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ + emit_tai(as, PPCI_STB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); + emit_tai(as, PPCI_STH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); + emit_ti(as, PPCI_LI, RID_RET+1, ~LJ_TCDATA); + emit_ti(as, PPCI_LI, RID_TMP, ctypeid); /* Lower 16 bit used. Sign-ext ok. */ + asm_gencall(as, ci, args); + ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), + ra_releasetmp(as, ASMREF_TMP1)); +} +#else +#define asm_cnew(as, ir) ((void)0) +#endif + +/* -- Write barriers ------------------------------------------------------ */ + +static void asm_tbar(ASMState *as, IRIns *ir) +{ + Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); + Reg mark = ra_scratch(as, rset_exclude(RSET_GPR, tab)); + Reg link = RID_TMP; + MCLabel l_end = emit_label(as); + emit_tai(as, PPCI_STW, link, tab, (int32_t)offsetof(GCtab, gclist)); + emit_tai(as, PPCI_STB, mark, tab, (int32_t)offsetof(GCtab, marked)); + emit_setgl(as, tab, gc.grayagain); + lua_assert(LJ_GC_BLACK == 0x04); + emit_rot(as, PPCI_RLWINM, mark, mark, 0, 30, 28); /* Clear black bit. */ + emit_getgl(as, link, gc.grayagain); + emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); + emit_asi(as, PPCI_ANDIDOT, RID_TMP, mark, LJ_GC_BLACK); + emit_tai(as, PPCI_LBZ, mark, tab, (int32_t)offsetof(GCtab, marked)); +} + +static void asm_obar(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; + IRRef args[2]; + MCLabel l_end; + Reg obj, val, tmp; + /* No need for other object barriers (yet). */ + lua_assert(IR(ir->op1)->o == IR_UREFC); + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ir->op1; /* TValue *tv */ + asm_gencall(as, ci, args); + emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); + obj = IR(ir->op1)->r; + tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); + emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); + emit_asi(as, PPCI_ANDIDOT, tmp, tmp, LJ_GC_BLACK); + emit_condbranch(as, PPCI_BC, CC_EQ, l_end); + emit_asi(as, PPCI_ANDIDOT, RID_TMP, RID_TMP, LJ_GC_WHITES); + val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); + emit_tai(as, PPCI_LBZ, tmp, obj, + (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); + emit_tai(as, PPCI_LBZ, RID_TMP, val, (int32_t)offsetof(GChead, marked)); +} + +/* -- Arithmetic and logic operations ------------------------------------- */ + +static void asm_fparith(ASMState *as, IRIns *ir, PPCIns pi) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + if (pi == PPCI_FMUL) + emit_fac(as, pi, dest, left, right); + else + emit_fab(as, pi, dest, left, right); +} + +static void asm_fpunary(ASMState *as, IRIns *ir, PPCIns pi) +{ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); + emit_fb(as, pi, dest, left); +} + +static int asm_fpjoin_pow(ASMState *as, IRIns *ir) +{ + IRIns *irp = IR(ir->op1); + if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { + IRIns *irpp = IR(irp->op1); + if (irpp == ir-2 && irpp->o == IR_FPMATH && + irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; + IRRef args[2]; + args[0] = irpp->op1; + args[1] = irp->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); + return 1; + } + } + return 0; +} + +static void asm_add(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + if (!asm_fusemadd(as, ir, PPCI_FMADD, PPCI_FMADD)) + asm_fparith(as, ir, PPCI_FADD); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + PPCIns pi; + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (checki16(k)) { + pi = PPCI_ADDI; + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi = PPCI_ADDICDOT; + } + emit_tai(as, pi, dest, left, k); + return; + } else if ((k & 0xffff) == 0) { + emit_tai(as, PPCI_ADDIS, dest, left, (k >> 16)); + return; + } else if (!as->sectref) { + emit_tai(as, PPCI_ADDIS, dest, dest, (k + 32768) >> 16); + emit_tai(as, PPCI_ADDI, dest, left, k); + return; + } + } + pi = PPCI_ADD; + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_tab(as, pi, dest, left, right); + } +} + +static void asm_sub(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + if (!asm_fusemadd(as, ir, PPCI_FMSUB, PPCI_FNMSUB)) + asm_fparith(as, ir, PPCI_FSUB); + } else { + PPCIns pi = PPCI_SUBF; + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left, right; + if (irref_isk(ir->op1)) { + int32_t k = IR(ir->op1)->i; + if (checki16(k)) { + right = ra_alloc1(as, ir->op2, RSET_GPR); + emit_tai(as, PPCI_SUBFIC, dest, right, k); + return; + } + } + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_tab(as, pi, dest, right, left); /* Subtract right _from_ left. */ + } +} + +static void asm_mul(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fparith(as, ir, PPCI_FMUL); + } else { + PPCIns pi = PPCI_MULLW; + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (checki16(k)) { + emit_tai(as, PPCI_MULLI, dest, left, k); + return; + } + } + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_tab(as, pi, dest, left, right); + } +} + +static void asm_neg(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) { + asm_fpunary(as, ir, PPCI_FNEG); + } else { + Reg dest, left; + PPCIns pi = PPCI_NEG; + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + dest = ra_dest(as, ir, RSET_GPR); + left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + emit_tab(as, pi, dest, left, 0); + } +} + +static void asm_arithov(ASMState *as, IRIns *ir, PPCIns pi) +{ + Reg dest, left, right; + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + } + asm_guardcc(as, CC_SO); + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + if (pi == PPCI_SUBFO) { Reg tmp = left; left = right; right = tmp; } + emit_tab(as, pi|PPCF_DOT, dest, left, right); +} + +#if LJ_HASFFI +static void asm_add64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); + PPCIns pi = PPCI_ADDE; + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (k == 0) + pi = PPCI_ADDZE; + else if (k == -1) + pi = PPCI_ADDME; + else + goto needright; + right = 0; + } else { + needright: + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + } + emit_tab(as, pi, dest, left, right); + ir--; + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc1(as, ir->op1, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (checki16(k)) { + emit_tai(as, PPCI_ADDIC, dest, left, k); + return; + } + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_tab(as, PPCI_ADDC, dest, left, right); +} + +static void asm_sub64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left, right = ra_alloc1(as, ir->op2, RSET_GPR); + PPCIns pi = PPCI_SUBFE; + if (irref_isk(ir->op1)) { + int32_t k = IR(ir->op1)->i; + if (k == 0) + pi = PPCI_SUBFZE; + else if (k == -1) + pi = PPCI_SUBFME; + else + goto needleft; + left = 0; + } else { + needleft: + left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, right)); + } + emit_tab(as, pi, dest, right, left); /* Subtract right _from_ left. */ + ir--; + dest = ra_dest(as, ir, RSET_GPR); + right = ra_alloc1(as, ir->op2, RSET_GPR); + if (irref_isk(ir->op1)) { + int32_t k = IR(ir->op1)->i; + if (checki16(k)) { + emit_tai(as, PPCI_SUBFIC, dest, right, k); + return; + } + } + left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, right)); + emit_tab(as, PPCI_SUBFC, dest, right, left); +} + +static void asm_neg64(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + emit_tab(as, PPCI_SUBFZE, dest, left, 0); + ir--; + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc1(as, ir->op1, RSET_GPR); + emit_tai(as, PPCI_SUBFIC, dest, left, 0); +} +#endif + +static void asm_bitnot(ASMState *as, IRIns *ir) +{ + Reg dest, left, right; + PPCIns pi = PPCI_NOR; + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + dest = ra_dest(as, ir, RSET_GPR); + if (mayfuse(as, ir->op1)) { + IRIns *irl = IR(ir->op1); + if (irl->o == IR_BAND) + pi ^= (PPCI_NOR ^ PPCI_NAND); + else if (irl->o == IR_BXOR) + pi ^= (PPCI_NOR ^ PPCI_EQV); + else if (irl->o != IR_BOR) + goto nofuse; + left = ra_hintalloc(as, irl->op1, dest, RSET_GPR); + right = ra_alloc1(as, irl->op2, rset_exclude(RSET_GPR, left)); + } else { +nofuse: + left = right = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + } + emit_asb(as, pi, dest, left, right); +} + +static void asm_bitswap(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + IRIns *irx; + if (mayfuse(as, ir->op1) && (irx = IR(ir->op1))->o == IR_XLOAD && + ra_noreg(irx->r) && (irt_isint(irx->t) || irt_isu32(irx->t))) { + /* Fuse BSWAP with XLOAD to lwbrx. */ + asm_fusexrefx(as, PPCI_LWBRX, dest, irx->op1, RSET_GPR); + } else { + Reg left = ra_alloc1(as, ir->op1, RSET_GPR); + Reg tmp = dest; + if (tmp == left) { + tmp = RID_TMP; + emit_mr(as, dest, RID_TMP); + } + emit_rot(as, PPCI_RLWIMI, tmp, left, 24, 16, 23); + emit_rot(as, PPCI_RLWIMI, tmp, left, 24, 0, 7); + emit_rotlwi(as, tmp, left, 8); + } +} + +static void asm_bitop(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + Reg tmp = left; + if ((checku16(k) || (k & 0xffff) == 0) || (tmp = dest, !as->sectref)) { + if (!checku16(k)) { + emit_asi(as, pik ^ (PPCI_ORI ^ PPCI_ORIS), dest, tmp, (k >> 16)); + if ((k & 0xffff) == 0) return; + } + emit_asi(as, pik, dest, left, k); + return; + } + } + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_asb(as, pi, dest, left, right); +} + +/* Fuse BAND with contiguous bitmask and a shift to rlwinm. */ +static void asm_fuseandsh(ASMState *as, PPCIns pi, int32_t mask, IRRef ref) +{ + IRIns *ir; + Reg left; + if (mayfuse(as, ref) && (ir = IR(ref), ra_noreg(ir->r)) && + irref_isk(ir->op2) && ir->o >= IR_BSHL && ir->o <= IR_BROR) { + int32_t sh = (IR(ir->op2)->i & 31); + switch (ir->o) { + case IR_BSHL: + if ((mask & ((1u<>sh))) goto nofuse; + sh = ((32-sh)&31); + break; + case IR_BROL: + break; + default: + goto nofuse; + } + left = ra_alloc1(as, ir->op1, RSET_GPR); + *--as->mcp = pi | PPCF_T(left) | PPCF_B(sh); + return; + } +nofuse: + left = ra_alloc1(as, ref, RSET_GPR); + *--as->mcp = pi | PPCF_T(left); +} + +static void asm_bitand(ASMState *as, IRIns *ir) +{ + Reg dest, left, right; + IRRef lref = ir->op1; + PPCIns dot = 0; + IRRef op2; + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + dot = PPCF_DOT; + } + dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (k) { + /* First check for a contiguous bitmask as used by rlwinm. */ + uint32_t s1 = lj_ffs((uint32_t)k); + uint32_t k1 = ((uint32_t)k >> s1); + if ((k1 & (k1+1)) == 0) { + asm_fuseandsh(as, PPCI_RLWINM|dot | PPCF_A(dest) | + PPCF_MB(31-lj_fls((uint32_t)k)) | PPCF_ME(31-s1), + k, lref); + return; + } + if (~(uint32_t)k) { + uint32_t s2 = lj_ffs(~(uint32_t)k); + uint32_t k2 = (~(uint32_t)k >> s2); + if ((k2 & (k2+1)) == 0) { + asm_fuseandsh(as, PPCI_RLWINM|dot | PPCF_A(dest) | + PPCF_MB(32-s2) | PPCF_ME(30-lj_fls(~(uint32_t)k)), + k, lref); + return; + } + } + } + if (checku16(k)) { + left = ra_alloc1(as, lref, RSET_GPR); + emit_asi(as, PPCI_ANDIDOT, dest, left, k); + return; + } else if ((k & 0xffff) == 0) { + left = ra_alloc1(as, lref, RSET_GPR); + emit_asi(as, PPCI_ANDISDOT, dest, left, (k >> 16)); + return; + } + } + op2 = ir->op2; + if (mayfuse(as, op2) && IR(op2)->o == IR_BNOT && ra_noreg(IR(op2)->r)) { + dot ^= (PPCI_AND ^ PPCI_ANDC); + op2 = IR(op2)->op1; + } + left = ra_hintalloc(as, lref, dest, RSET_GPR); + right = ra_alloc1(as, op2, rset_exclude(RSET_GPR, left)); + emit_asb(as, PPCI_AND ^ dot, dest, left, right); +} + +static void asm_bitshift(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) +{ + Reg dest, left; + Reg dot = 0; + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + dot = PPCF_DOT; + } + dest = ra_dest(as, ir, RSET_GPR); + left = ra_alloc1(as, ir->op1, RSET_GPR); + if (irref_isk(ir->op2)) { /* Constant shifts. */ + int32_t shift = (IR(ir->op2)->i & 31); + if (pik == 0) /* SLWI */ + emit_rot(as, PPCI_RLWINM|dot, dest, left, shift, 0, 31-shift); + else if (pik == 1) /* SRWI */ + emit_rot(as, PPCI_RLWINM|dot, dest, left, (32-shift)&31, shift, 31); + else + emit_asb(as, pik|dot, dest, left, shift); + } else { + Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_asb(as, pi|dot, dest, left, right); + } +} + +static void asm_min_max(ASMState *as, IRIns *ir, int ismax) +{ + if (irt_isnum(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg tmp = dest; + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + if (tmp == left || tmp == right) + tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_FPR, + dest), left), right)); + emit_facb(as, PPCI_FSEL, dest, tmp, + ismax ? left : right, ismax ? right : left); + emit_fab(as, PPCI_FSUB, tmp, left, right); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg tmp1 = RID_TMP, tmp2 = dest; + Reg right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + if (tmp2 == left || tmp2 == right) + tmp2 = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, + dest), left), right)); + emit_tab(as, PPCI_ADD, dest, tmp2, right); + emit_asb(as, ismax ? PPCI_ANDC : PPCI_AND, tmp2, tmp2, tmp1); + emit_tab(as, PPCI_SUBFE, tmp1, tmp1, tmp1); + emit_tab(as, PPCI_SUBFC, tmp2, tmp2, tmp1); + emit_asi(as, PPCI_XORIS, tmp2, right, 0x8000); + emit_asi(as, PPCI_XORIS, tmp1, left, 0x8000); + } +} + +/* -- Comparisons --------------------------------------------------------- */ + +#define CC_UNSIGNED 0x08 /* Unsigned integer comparison. */ +#define CC_TWO 0x80 /* Check two flags for FP comparison. */ + +/* Map of comparisons to flags. ORDER IR. */ +static const uint8_t asm_compmap[IR_ABC+1] = { + /* op int cc FP cc */ + /* LT */ CC_GE + (CC_GE<<4), + /* GE */ CC_LT + (CC_LE<<4) + CC_TWO, + /* LE */ CC_GT + (CC_GE<<4) + CC_TWO, + /* GT */ CC_LE + (CC_LE<<4), + /* ULT */ CC_GE + CC_UNSIGNED + (CC_GT<<4) + CC_TWO, + /* UGE */ CC_LT + CC_UNSIGNED + (CC_LT<<4), + /* ULE */ CC_GT + CC_UNSIGNED + (CC_GT<<4), + /* UGT */ CC_LE + CC_UNSIGNED + (CC_LT<<4) + CC_TWO, + /* EQ */ CC_NE + (CC_NE<<4), + /* NE */ CC_EQ + (CC_EQ<<4), + /* ABC */ CC_LE + CC_UNSIGNED + (CC_LT<<4) + CC_TWO /* Same as UGT. */ +}; + +static void asm_intcomp_(ASMState *as, IRRef lref, IRRef rref, Reg cr, PPCCC cc) +{ + Reg right, left = ra_alloc1(as, lref, RSET_GPR); + if (irref_isk(rref)) { + int32_t k = IR(rref)->i; + if ((cc & CC_UNSIGNED) == 0) { /* Signed comparison with constant. */ + if (checki16(k)) { + emit_tai(as, PPCI_CMPWI, cr, left, k); + /* Signed comparison with zero and referencing previous ins? */ + if (k == 0 && lref == as->curins-1) + as->flagmcp = as->mcp; /* Allow elimination of the compare. */ + return; + } else if ((cc & 3) == (CC_EQ & 3)) { /* Use CMPLWI for EQ or NE. */ + if (checku16(k)) { + emit_tai(as, PPCI_CMPLWI, cr, left, k); + return; + } else if (!as->sectref && ra_noreg(IR(rref)->r)) { + emit_tai(as, PPCI_CMPLWI, cr, RID_TMP, k); + emit_asi(as, PPCI_XORIS, RID_TMP, left, (k >> 16)); + return; + } + } + } else { /* Unsigned comparison with constant. */ + if (checku16(k)) { + emit_tai(as, PPCI_CMPLWI, cr, left, k); + return; + } + } + } + right = ra_alloc1(as, rref, rset_exclude(RSET_GPR, left)); + emit_tab(as, (cc & CC_UNSIGNED) ? PPCI_CMPLW : PPCI_CMPW, cr, left, right); +} + +static void asm_comp(ASMState *as, IRIns *ir) +{ + PPCCC cc = asm_compmap[ir->o]; + if (irt_isnum(ir->t)) { + Reg right, left = ra_alloc2(as, ir, RSET_FPR); + right = (left >> 8); left &= 255; + asm_guardcc(as, (cc >> 4)); + if ((cc & CC_TWO)) + emit_tab(as, PPCI_CROR, ((cc>>4)&3), ((cc>>4)&3), (CC_EQ&3)); + emit_fab(as, PPCI_FCMPU, 0, left, right); + } else { + IRRef lref = ir->op1, rref = ir->op2; + if (irref_isk(lref) && !irref_isk(rref)) { + /* Swap constants to the right (only for ABC). */ + IRRef tmp = lref; lref = rref; rref = tmp; + if ((cc & 2) == 0) cc ^= 1; /* LT <-> GT, LE <-> GE */ + } + asm_guardcc(as, cc); + asm_intcomp_(as, lref, rref, 0, cc); + } +} + +#if LJ_HASFFI +/* 64 bit integer comparisons. */ +static void asm_comp64(ASMState *as, IRIns *ir) +{ + PPCCC cc = asm_compmap[(ir-1)->o]; + if ((cc&3) == (CC_EQ&3)) { + asm_guardcc(as, cc); + emit_tab(as, (cc&4) ? PPCI_CRAND : PPCI_CROR, + (CC_EQ&3), (CC_EQ&3), 4+(CC_EQ&3)); + } else { + asm_guardcc(as, CC_EQ); + emit_tab(as, PPCI_CROR, (CC_EQ&3), (CC_EQ&3), ((cc^~(cc>>2))&1)); + emit_tab(as, (cc&4) ? PPCI_CRAND : PPCI_CRANDC, + (CC_EQ&3), (CC_EQ&3), 4+(cc&3)); + } + /* Loword comparison sets cr1 and is unsigned, except for equality. */ + asm_intcomp_(as, (ir-1)->op1, (ir-1)->op2, 4, + cc | ((cc&3) == (CC_EQ&3) ? 0 : CC_UNSIGNED)); + /* Hiword comparison sets cr0. */ + asm_intcomp_(as, ir->op1, ir->op2, 0, cc); + as->flagmcp = NULL; /* Doesn't work here. */ +} +#endif + +/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ + +/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ +static void asm_hiop(ASMState *as, IRIns *ir) +{ +#if LJ_HASFFI + /* HIOP is marked as a store because it needs its own DCE logic. */ + int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ + if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; + if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ + as->curins--; /* Always skip the CONV. */ + if (usehi || uselo) + asm_conv64(as, ir); + return; + } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ + as->curins--; /* Always skip the loword comparison. */ + asm_comp64(as, ir); + return; + } else if ((ir-1)->o == IR_XSTORE) { + as->curins--; /* Handle both stores here. */ + if ((ir-1)->r != RID_SINK) { + asm_xstore(as, ir, 0); + asm_xstore(as, ir-1, 4); + } + return; + } + if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ + switch ((ir-1)->o) { + case IR_ADD: as->curins--; asm_add64(as, ir); break; + case IR_SUB: as->curins--; asm_sub64(as, ir); break; + case IR_NEG: as->curins--; asm_neg64(as, ir); break; + case IR_CALLN: + case IR_CALLXS: + if (!uselo) + ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ + break; + case IR_CNEWI: + /* Nothing to do here. Handled by lo op itself. */ + break; + default: lua_assert(0); break; + } +#else + UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused without FFI. */ +#endif +} + +/* -- Stack handling ------------------------------------------------------ */ + +/* Check Lua stack size for overflow. Use exit handler as fallback. */ +static void asm_stack_check(ASMState *as, BCReg topslot, + IRIns *irp, RegSet allow, ExitNo exitno) +{ + /* Try to get an unused temp. register, otherwise spill/restore RID_RET*. */ + Reg tmp, pbase = irp ? (ra_hasreg(irp->r) ? irp->r : RID_TMP) : RID_BASE; + rset_clear(allow, pbase); + tmp = allow ? rset_pickbot(allow) : + (pbase == RID_RETHI ? RID_RETLO : RID_RETHI); + emit_condbranch(as, PPCI_BC, CC_LT, asm_exitstub_addr(as, exitno)); + if (allow == RSET_EMPTY) /* Restore temp. register. */ + emit_tai(as, PPCI_LWZ, tmp, RID_SP, SPOFS_TMPW); + else + ra_modified(as, tmp); + emit_ai(as, PPCI_CMPLWI, RID_TMP, (int32_t)(8*topslot)); + emit_tab(as, PPCI_SUBF, RID_TMP, pbase, tmp); + emit_tai(as, PPCI_LWZ, tmp, tmp, offsetof(lua_State, maxstack)); + if (pbase == RID_TMP) + emit_getgl(as, RID_TMP, jit_base); + emit_getgl(as, tmp, jit_L); + if (allow == RSET_EMPTY) /* Spill temp. register. */ + emit_tai(as, PPCI_STW, tmp, RID_SP, SPOFS_TMPW); +} + +/* Restore Lua stack from on-trace state. */ +static void asm_stack_restore(ASMState *as, SnapShot *snap) +{ + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; + MSize n, nent = snap->nent; + /* Store the value of all modified slots to the Lua stack. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + BCReg s = snap_slot(sn); + int32_t ofs = 8*((int32_t)s-1); + IRRef ref = snap_ref(sn); + IRIns *ir = IR(ref); + if ((sn & SNAP_NORESTORE)) + continue; + if (irt_isnum(ir->t)) { + Reg src = ra_alloc1(as, ref, RSET_FPR); + emit_fai(as, PPCI_STFD, src, RID_BASE, ofs); + } else { + Reg type; + RegSet allow = rset_exclude(RSET_GPR, RID_BASE); + lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); + if (!irt_ispri(ir->t)) { + Reg src = ra_alloc1(as, ref, allow); + rset_clear(allow, src); + emit_tai(as, PPCI_STW, src, RID_BASE, ofs+4); + } + if ((sn & (SNAP_CONT|SNAP_FRAME))) { + if (s == 0) continue; /* Do not overwrite link to previous frame. */ + type = ra_allock(as, (int32_t)(*flinks--), allow); + } else { + type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); + } + emit_tai(as, PPCI_STW, type, RID_BASE, ofs); + } + checkmclim(as); + } + lua_assert(map + nent == flinks); +} + +/* -- GC handling --------------------------------------------------------- */ + +/* Check GC threshold and do one or more GC steps. */ +static void asm_gc_check(ASMState *as) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; + IRRef args[2]; + MCLabel l_end; + Reg tmp; + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ + asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ + emit_ai(as, PPCI_CMPWI, RID_RET, 0); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ASMREF_TMP2; /* MSize steps */ + asm_gencall(as, ci, args); + emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); + tmp = ra_releasetmp(as, ASMREF_TMP2); + emit_loadi(as, tmp, as->gcsteps); + /* Jump around GC step if GC total < GC threshold. */ + emit_condbranch(as, PPCI_BC|PPCF_Y, CC_LT, l_end); + emit_ab(as, PPCI_CMPLW, RID_TMP, tmp); + emit_getgl(as, tmp, gc.threshold); + emit_getgl(as, RID_TMP, gc.total); + as->gcsteps = 0; + checkmclim(as); +} + +/* -- Loop handling ------------------------------------------------------- */ + +/* Fixup the loop branch. */ +static void asm_loop_fixup(ASMState *as) +{ + MCode *p = as->mctop; + MCode *target = as->mcp; + if (as->loopinv) { /* Inverted loop branch? */ + /* asm_guardcc already inverted the cond branch and patched the final b. */ + p[-2] = (p[-2] & (0xffff0000u & ~PPCF_Y)) | (((target-p+2) & 0x3fffu) << 2); + } else { + p[-1] = PPCI_B|(((target-p+1)&0x00ffffffu)<<2); + } +} + +/* -- Head of trace ------------------------------------------------------- */ + +/* Coalesce BASE register for a root trace. */ +static void asm_head_root_base(ASMState *as) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (r != RID_BASE) + emit_mr(as, r, RID_BASE); + } +} + +/* Coalesce BASE register for a side trace. */ +static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (irp->r == r) { + rset_clear(allow, r); /* Mark same BASE register as coalesced. */ + } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { + rset_clear(allow, irp->r); + emit_mr(as, r, irp->r); /* Move from coalesced parent reg. */ + } else { + emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ + } + } + return allow; +} + +/* -- Tail of trace ------------------------------------------------------- */ + +/* Fixup the tail code. */ +static void asm_tail_fixup(ASMState *as, TraceNo lnk) +{ + MCode *p = as->mctop; + MCode *target; + int32_t spadj = as->T->spadjust; + if (spadj == 0) { + *--p = PPCI_NOP; + *--p = PPCI_NOP; + as->mctop = p; + } else { + /* Patch stack adjustment. */ + lua_assert(checki16(CFRAME_SIZE+spadj)); + p[-3] = PPCI_ADDI | PPCF_T(RID_TMP) | PPCF_A(RID_SP) | (CFRAME_SIZE+spadj); + p[-2] = PPCI_STWU | PPCF_T(RID_TMP) | PPCF_A(RID_SP) | spadj; + } + /* Patch exit branch. */ + target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; + p[-1] = PPCI_B|(((target-p+1)&0x00ffffffu)<<2); +} + +/* Prepare tail of code. */ +static void asm_tail_prep(ASMState *as) +{ + MCode *p = as->mctop - 1; /* Leave room for exit branch. */ + if (as->loopref) { + as->invmcp = as->mcp = p; + } else { + as->mcp = p-2; /* Leave room for stack pointer adjustment. */ + as->invmcp = NULL; + } +} + +/* -- Instruction dispatch ------------------------------------------------ */ + +/* Assemble a single instruction. */ +static void asm_ir(ASMState *as, IRIns *ir) +{ + switch ((IROp)ir->o) { + /* Miscellaneous ops. */ + case IR_LOOP: asm_loop(as); break; + case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; + case IR_USE: + ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; + case IR_PHI: asm_phi(as, ir); break; + case IR_HIOP: asm_hiop(as, ir); break; + case IR_GCSTEP: asm_gcstep(as, ir); break; + + /* Guarded assertions. */ + case IR_EQ: case IR_NE: + if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { + as->curins--; + asm_href(as, ir-1, (IROp)ir->o); + break; + } + /* fallthrough */ + case IR_LT: case IR_GE: case IR_LE: case IR_GT: + case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: + case IR_ABC: + asm_comp(as, ir); + break; + + case IR_RETF: asm_retf(as, ir); break; + + /* Bit ops. */ + case IR_BNOT: asm_bitnot(as, ir); break; + case IR_BSWAP: asm_bitswap(as, ir); break; + + case IR_BAND: asm_bitand(as, ir); break; + case IR_BOR: asm_bitop(as, ir, PPCI_OR, PPCI_ORI); break; + case IR_BXOR: asm_bitop(as, ir, PPCI_XOR, PPCI_XORI); break; + + case IR_BSHL: asm_bitshift(as, ir, PPCI_SLW, 0); break; + case IR_BSHR: asm_bitshift(as, ir, PPCI_SRW, 1); break; + case IR_BSAR: asm_bitshift(as, ir, PPCI_SRAW, PPCI_SRAWI); break; + case IR_BROL: asm_bitshift(as, ir, PPCI_RLWNM|PPCF_MB(0)|PPCF_ME(31), + PPCI_RLWINM|PPCF_MB(0)|PPCF_ME(31)); break; + case IR_BROR: lua_assert(0); break; + + /* Arithmetic ops. */ + case IR_ADD: asm_add(as, ir); break; + case IR_SUB: asm_sub(as, ir); break; + case IR_MUL: asm_mul(as, ir); break; + case IR_DIV: asm_fparith(as, ir, PPCI_FDIV); break; + case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; + case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; + case IR_NEG: asm_neg(as, ir); break; + + case IR_ABS: asm_fpunary(as, ir, PPCI_FABS); break; + case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; + case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; + case IR_MIN: asm_min_max(as, ir, 0); break; + case IR_MAX: asm_min_max(as, ir, 1); break; + case IR_FPMATH: + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + break; + if (ir->op2 == IRFPM_SQRT && (as->flags & JIT_F_SQRT)) + asm_fpunary(as, ir, PPCI_FSQRT); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); + break; + + /* Overflow-checking arithmetic ops. */ + case IR_ADDOV: asm_arithov(as, ir, PPCI_ADDO); break; + case IR_SUBOV: asm_arithov(as, ir, PPCI_SUBFO); break; + case IR_MULOV: asm_arithov(as, ir, PPCI_MULLWO); break; + + /* Memory references. */ + case IR_AREF: asm_aref(as, ir); break; + case IR_HREF: asm_href(as, ir, 0); break; + case IR_HREFK: asm_hrefk(as, ir); break; + case IR_NEWREF: asm_newref(as, ir); break; + case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; + case IR_FREF: asm_fref(as, ir); break; + case IR_STRREF: asm_strref(as, ir); break; + + /* Loads and stores. */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + asm_ahuvload(as, ir); + break; + case IR_FLOAD: asm_fload(as, ir); break; + case IR_XLOAD: asm_xload(as, ir); break; + case IR_SLOAD: asm_sload(as, ir); break; + + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; + case IR_FSTORE: asm_fstore(as, ir); break; + case IR_XSTORE: asm_xstore(as, ir, 0); break; + + /* Allocations. */ + case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; + case IR_TNEW: asm_tnew(as, ir); break; + case IR_TDUP: asm_tdup(as, ir); break; + case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; + + /* Write barriers. */ + case IR_TBAR: asm_tbar(as, ir); break; + case IR_OBAR: asm_obar(as, ir); break; + + /* Type conversions. */ + case IR_CONV: asm_conv(as, ir); break; + case IR_TOBIT: asm_tobit(as, ir); break; + case IR_TOSTR: asm_tostr(as, ir); break; + case IR_STRTO: asm_strto(as, ir); break; + + /* Calls. */ + case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; + case IR_CALLXS: asm_callx(as, ir); break; + case IR_CARG: break; + + default: + setintV(&as->J->errinfo, ir->o); + lj_trace_err_info(as->J, LJ_TRERR_NYIIR); + break; + } +} + +/* -- Trace setup --------------------------------------------------------- */ + +/* Ensure there are enough stack slots for call arguments. */ +static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + IRRef args[CCI_NARGS_MAX*2]; + uint32_t i, nargs = (int)CCI_NARGS(ci); + int nslots = 2, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; + asm_collectargs(as, ir, ci, args); + for (i = 0; i < nargs; i++) + if (args[i] && irt_isfp(IR(args[i])->t)) { + if (nfpr > 0) nfpr--; else nslots = (nslots+3) & ~1; + } else { + if (ngpr > 0) ngpr--; else nslots++; + } + if (nslots > as->evenspill) /* Leave room for args in stack slots. */ + as->evenspill = nslots; + return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); +} + +static void asm_setup_target(ASMState *as) +{ + asm_exitstub_setup(as, as->T->nsnap + (as->parent ? 1 : 0)); +} + +/* -- Trace patching ------------------------------------------------------ */ + +/* Patch exit jumps of existing machine code to a new target. */ +void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) +{ + MCode *p = T->mcode; + MCode *pe = (MCode *)((char *)p + T->szmcode); + MCode *px = exitstub_trace_addr(T, exitno); + MCode *cstart = NULL; + MCode *mcarea = lj_mcode_patch(J, p, 0); + int clearso = 0; + for (; p < pe; p++) { + /* Look for exitstub branch, try to replace with branch to target. */ + uint32_t ins = *p; + if ((ins & 0xfc000000u) == 0x40000000u && + ((ins ^ ((char *)px-(char *)p)) & 0xffffu) == 0) { + ptrdiff_t delta = (char *)target - (char *)p; + if (((ins >> 16) & 3) == (CC_SO&3)) { + clearso = sizeof(MCode); + delta -= sizeof(MCode); + } + /* Many, but not all short-range branches can be patched directly. */ + if (((delta + 0x8000) >> 16) == 0) { + *p = (ins & 0xffdf0000u) | ((uint32_t)delta & 0xffffu) | + ((delta & 0x8000) * (PPCF_Y/0x8000)); + if (!cstart) cstart = p; + } + } else if ((ins & 0xfc000000u) == PPCI_B && + ((ins ^ ((char *)px-(char *)p)) & 0x03ffffffu) == 0) { + ptrdiff_t delta = (char *)target - (char *)p; + lua_assert(((delta + 0x02000000) >> 26) == 0); + *p = PPCI_B | ((uint32_t)delta & 0x03ffffffu); + if (!cstart) cstart = p; + } + } + { /* Always patch long-range branch in exit stub itself. */ + ptrdiff_t delta = (char *)target - (char *)px - clearso; + lua_assert(((delta + 0x02000000) >> 26) == 0); + *px = PPCI_B | ((uint32_t)delta & 0x03ffffffu); + } + if (!cstart) cstart = px; + lj_mcode_sync(cstart, px+1); + if (clearso) { /* Extend the current trace. Ugly workaround. */ + MCode *pp = J->cur.mcode; + J->cur.szmcode += sizeof(MCode); + *--pp = PPCI_MCRXR; /* Clear SO flag. */ + J->cur.mcode = pp; + lj_mcode_sync(pp, pp+1); + } + lj_mcode_patch(J, mcarea, 1); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_asm_x86.h b/src/3rd party/luajit-2.0/src/lj_asm_x86.h new file mode 100644 index 00000000000..bb6976f2c54 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_asm_x86.h @@ -0,0 +1,2802 @@ +/* +** x86/x64 IR assembler (SSA IR -> machine code). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Guard handling ------------------------------------------------------ */ + +/* Generate an exit stub group at the bottom of the reserved MCode memory. */ +static MCode *asm_exitstub_gen(ASMState *as, ExitNo group) +{ + ExitNo i, groupofs = (group*EXITSTUBS_PER_GROUP) & 0xff; + MCode *mxp = as->mcbot; + MCode *mxpstart = mxp; + if (mxp + (2+2)*EXITSTUBS_PER_GROUP+8+5 >= as->mctop) + asm_mclimit(as); + /* Push low byte of exitno for each exit stub. */ + *mxp++ = XI_PUSHi8; *mxp++ = (MCode)groupofs; + for (i = 1; i < EXITSTUBS_PER_GROUP; i++) { + *mxp++ = XI_JMPs; *mxp++ = (MCode)((2+2)*(EXITSTUBS_PER_GROUP - i) - 2); + *mxp++ = XI_PUSHi8; *mxp++ = (MCode)(groupofs + i); + } + /* Push the high byte of the exitno for each exit stub group. */ + *mxp++ = XI_PUSHi8; *mxp++ = (MCode)((group*EXITSTUBS_PER_GROUP)>>8); + /* Store DISPATCH at original stack slot 0. Account for the two push ops. */ + *mxp++ = XI_MOVmi; + *mxp++ = MODRM(XM_OFS8, 0, RID_ESP); + *mxp++ = MODRM(XM_SCALE1, RID_ESP, RID_ESP); + *mxp++ = 2*sizeof(void *); + *(int32_t *)mxp = ptr2addr(J2GG(as->J)->dispatch); mxp += 4; + /* Jump to exit handler which fills in the ExitState. */ + *mxp++ = XI_JMP; mxp += 4; + *((int32_t *)(mxp-4)) = jmprel(mxp, (MCode *)(void *)lj_vm_exit_handler); + /* Commit the code for this group (even if assembly fails later on). */ + lj_mcode_commitbot(as->J, mxp); + as->mcbot = mxp; + as->mclim = as->mcbot + MCLIM_REDZONE; + return mxpstart; +} + +/* Setup all needed exit stubs. */ +static void asm_exitstub_setup(ASMState *as, ExitNo nexits) +{ + ExitNo i; + if (nexits >= EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) + lj_trace_err(as->J, LJ_TRERR_SNAPOV); + for (i = 0; i < (nexits+EXITSTUBS_PER_GROUP-1)/EXITSTUBS_PER_GROUP; i++) + if (as->J->exitstubgroup[i] == NULL) + as->J->exitstubgroup[i] = asm_exitstub_gen(as, i); +} + +/* Emit conditional branch to exit for guard. +** It's important to emit this *after* all registers have been allocated, +** because rematerializations may invalidate the flags. +*/ +static void asm_guardcc(ASMState *as, int cc) +{ + MCode *target = exitstub_addr(as->J, as->snapno); + MCode *p = as->mcp; + if (LJ_UNLIKELY(p == as->invmcp)) { + as->loopinv = 1; + *(int32_t *)(p+1) = jmprel(p+5, target); + target = p; + cc ^= 1; + if (as->realign) { + emit_sjcc(as, cc, target); + return; + } + } + emit_jcc(as, cc, target); +} + +/* -- Memory operand fusion ----------------------------------------------- */ + +/* Limit linear search to this distance. Avoids O(n^2) behavior. */ +#define CONFLICT_SEARCH_LIM 31 + +/* Check if a reference is a signed 32 bit constant. */ +static int asm_isk32(ASMState *as, IRRef ref, int32_t *k) +{ + if (irref_isk(ref)) { + IRIns *ir = IR(ref); + if (ir->o != IR_KINT64) { + *k = ir->i; + return 1; + } else if (checki32((int64_t)ir_kint64(ir)->u64)) { + *k = (int32_t)ir_kint64(ir)->u64; + return 1; + } + } + return 0; +} + +/* Check if there's no conflicting instruction between curins and ref. +** Also avoid fusing loads if there are multiple references. +*/ +static int noconflict(ASMState *as, IRRef ref, IROp conflict, int noload) +{ + IRIns *ir = as->ir; + IRRef i = as->curins; + if (i > ref + CONFLICT_SEARCH_LIM) + return 0; /* Give up, ref is too far away. */ + while (--i > ref) { + if (ir[i].o == conflict) + return 0; /* Conflict found. */ + else if (!noload && (ir[i].op1 == ref || ir[i].op2 == ref)) + return 0; + } + return 1; /* Ok, no conflict. */ +} + +/* Fuse array base into memory operand. */ +static IRRef asm_fuseabase(ASMState *as, IRRef ref) +{ + IRIns *irb = IR(ref); + as->mrm.ofs = 0; + if (irb->o == IR_FLOAD) { + IRIns *ira = IR(irb->op1); + lua_assert(irb->op2 == IRFL_TAB_ARRAY); + /* We can avoid the FLOAD of t->array for colocated arrays. */ + if (ira->o == IR_TNEW && ira->op1 <= LJ_MAX_COLOSIZE && + !neverfuse(as) && noconflict(as, irb->op1, IR_NEWREF, 1)) { + as->mrm.ofs = (int32_t)sizeof(GCtab); /* Ofs to colocated array. */ + return irb->op1; /* Table obj. */ + } + } else if (irb->o == IR_ADD && irref_isk(irb->op2)) { + /* Fuse base offset (vararg load). */ + as->mrm.ofs = IR(irb->op2)->i; + return irb->op1; + } + return ref; /* Otherwise use the given array base. */ +} + +/* Fuse array reference into memory operand. */ +static void asm_fusearef(ASMState *as, IRIns *ir, RegSet allow) +{ + IRIns *irx; + lua_assert(ir->o == IR_AREF); + as->mrm.base = (uint8_t)ra_alloc1(as, asm_fuseabase(as, ir->op1), allow); + irx = IR(ir->op2); + if (irref_isk(ir->op2)) { + as->mrm.ofs += 8*irx->i; + as->mrm.idx = RID_NONE; + } else { + rset_clear(allow, as->mrm.base); + as->mrm.scale = XM_SCALE8; + /* Fuse a constant ADD (e.g. t[i+1]) into the offset. + ** Doesn't help much without ABCelim, but reduces register pressure. + */ + if (!LJ_64 && /* Has bad effects with negative index on x64. */ + mayfuse(as, ir->op2) && ra_noreg(irx->r) && + irx->o == IR_ADD && irref_isk(irx->op2)) { + as->mrm.ofs += 8*IR(irx->op2)->i; + as->mrm.idx = (uint8_t)ra_alloc1(as, irx->op1, allow); + } else { + as->mrm.idx = (uint8_t)ra_alloc1(as, ir->op2, allow); + } + } +} + +/* Fuse array/hash/upvalue reference into memory operand. +** Caveat: this may allocate GPRs for the base/idx registers. Be sure to +** pass the final allow mask, excluding any GPRs used for other inputs. +** In particular: 2-operand GPR instructions need to call ra_dest() first! +*/ +static void asm_fuseahuref(ASMState *as, IRRef ref, RegSet allow) +{ + IRIns *ir = IR(ref); + if (ra_noreg(ir->r)) { + switch ((IROp)ir->o) { + case IR_AREF: + if (mayfuse(as, ref)) { + asm_fusearef(as, ir, allow); + return; + } + break; + case IR_HREFK: + if (mayfuse(as, ref)) { + as->mrm.base = (uint8_t)ra_alloc1(as, ir->op1, allow); + as->mrm.ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); + as->mrm.idx = RID_NONE; + return; + } + break; + case IR_UREFC: + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + GCupval *uv = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv; + as->mrm.ofs = ptr2addr(&uv->tv); + as->mrm.base = as->mrm.idx = RID_NONE; + return; + } + break; + default: + lua_assert(ir->o == IR_HREF || ir->o == IR_NEWREF || ir->o == IR_UREFO || + ir->o == IR_KKPTR); + break; + } + } + as->mrm.base = (uint8_t)ra_alloc1(as, ref, allow); + as->mrm.ofs = 0; + as->mrm.idx = RID_NONE; +} + +/* Fuse FLOAD/FREF reference into memory operand. */ +static void asm_fusefref(ASMState *as, IRIns *ir, RegSet allow) +{ + lua_assert(ir->o == IR_FLOAD || ir->o == IR_FREF); + as->mrm.ofs = field_ofs[ir->op2]; + as->mrm.idx = RID_NONE; + if (irref_isk(ir->op1)) { + as->mrm.ofs += IR(ir->op1)->i; + as->mrm.base = RID_NONE; + } else { + as->mrm.base = (uint8_t)ra_alloc1(as, ir->op1, allow); + } +} + +/* Fuse string reference into memory operand. */ +static void asm_fusestrref(ASMState *as, IRIns *ir, RegSet allow) +{ + IRIns *irr; + lua_assert(ir->o == IR_STRREF); + as->mrm.base = as->mrm.idx = RID_NONE; + as->mrm.scale = XM_SCALE1; + as->mrm.ofs = sizeof(GCstr); + if (irref_isk(ir->op1)) { + as->mrm.ofs += IR(ir->op1)->i; + } else { + Reg r = ra_alloc1(as, ir->op1, allow); + rset_clear(allow, r); + as->mrm.base = (uint8_t)r; + } + irr = IR(ir->op2); + if (irref_isk(ir->op2)) { + as->mrm.ofs += irr->i; + } else { + Reg r; + /* Fuse a constant add into the offset, e.g. string.sub(s, i+10). */ + if (!LJ_64 && /* Has bad effects with negative index on x64. */ + mayfuse(as, ir->op2) && irr->o == IR_ADD && irref_isk(irr->op2)) { + as->mrm.ofs += IR(irr->op2)->i; + r = ra_alloc1(as, irr->op1, allow); + } else { + r = ra_alloc1(as, ir->op2, allow); + } + if (as->mrm.base == RID_NONE) + as->mrm.base = (uint8_t)r; + else + as->mrm.idx = (uint8_t)r; + } +} + +static void asm_fusexref(ASMState *as, IRRef ref, RegSet allow) +{ + IRIns *ir = IR(ref); + as->mrm.idx = RID_NONE; + if (ir->o == IR_KPTR || ir->o == IR_KKPTR) { + as->mrm.ofs = ir->i; + as->mrm.base = RID_NONE; + } else if (ir->o == IR_STRREF) { + asm_fusestrref(as, ir, allow); + } else { + as->mrm.ofs = 0; + if (canfuse(as, ir) && ir->o == IR_ADD && ra_noreg(ir->r)) { + /* Gather (base+idx*sz)+ofs as emitted by cdata ptr/array indexing. */ + IRIns *irx; + IRRef idx; + Reg r; + if (asm_isk32(as, ir->op2, &as->mrm.ofs)) { /* Recognize x+ofs. */ + ref = ir->op1; + ir = IR(ref); + if (!(ir->o == IR_ADD && canfuse(as, ir) && ra_noreg(ir->r))) + goto noadd; + } + as->mrm.scale = XM_SCALE1; + idx = ir->op1; + ref = ir->op2; + irx = IR(idx); + if (!(irx->o == IR_BSHL || irx->o == IR_ADD)) { /* Try other operand. */ + idx = ir->op2; + ref = ir->op1; + irx = IR(idx); + } + if (canfuse(as, irx) && ra_noreg(irx->r)) { + if (irx->o == IR_BSHL && irref_isk(irx->op2) && IR(irx->op2)->i <= 3) { + /* Recognize idx<op1; + as->mrm.scale = (uint8_t)(IR(irx->op2)->i << 6); + } else if (irx->o == IR_ADD && irx->op1 == irx->op2) { + /* FOLD does idx*2 ==> idx<<1 ==> idx+idx. */ + idx = irx->op1; + as->mrm.scale = XM_SCALE2; + } + } + r = ra_alloc1(as, idx, allow); + rset_clear(allow, r); + as->mrm.idx = (uint8_t)r; + } + noadd: + as->mrm.base = (uint8_t)ra_alloc1(as, ref, allow); + } +} + +/* Fuse load into memory operand. */ +static Reg asm_fuseload(ASMState *as, IRRef ref, RegSet allow) +{ + IRIns *ir = IR(ref); + if (ra_hasreg(ir->r)) { + if (allow != RSET_EMPTY) { /* Fast path. */ + ra_noweak(as, ir->r); + return ir->r; + } + fusespill: + /* Force a spill if only memory operands are allowed (asm_x87load). */ + as->mrm.base = RID_ESP; + as->mrm.ofs = ra_spill(as, ir); + as->mrm.idx = RID_NONE; + return RID_MRM; + } + if (ir->o == IR_KNUM) { + RegSet avail = as->freeset & ~as->modset & RSET_FPR; + lua_assert(allow != RSET_EMPTY); + if (!(avail & (avail-1))) { /* Fuse if less than two regs available. */ + as->mrm.ofs = ptr2addr(ir_knum(ir)); + as->mrm.base = as->mrm.idx = RID_NONE; + return RID_MRM; + } + } else if (ir->o == IR_KINT64) { + RegSet avail = as->freeset & ~as->modset & RSET_GPR; + lua_assert(allow != RSET_EMPTY); + if (!(avail & (avail-1))) { /* Fuse if less than two regs available. */ + as->mrm.ofs = ptr2addr(ir_kint64(ir)); + as->mrm.base = as->mrm.idx = RID_NONE; + return RID_MRM; + } + } else if (mayfuse(as, ref)) { + RegSet xallow = (allow & RSET_GPR) ? allow : RSET_GPR; + if (ir->o == IR_SLOAD) { + if (!(ir->op2 & (IRSLOAD_PARENT|IRSLOAD_CONVERT)) && + noconflict(as, ref, IR_RETF, 0)) { + as->mrm.base = (uint8_t)ra_alloc1(as, REF_BASE, xallow); + as->mrm.ofs = 8*((int32_t)ir->op1-1) + ((ir->op2&IRSLOAD_FRAME)?4:0); + as->mrm.idx = RID_NONE; + return RID_MRM; + } + } else if (ir->o == IR_FLOAD) { + /* Generic fusion is only ok for 32 bit operand (but see asm_comp). */ + if ((irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)) && + noconflict(as, ref, IR_FSTORE, 0)) { + asm_fusefref(as, ir, xallow); + return RID_MRM; + } + } else if (ir->o == IR_ALOAD || ir->o == IR_HLOAD || ir->o == IR_ULOAD) { + if (noconflict(as, ref, ir->o + IRDELTA_L2S, 0)) { + asm_fuseahuref(as, ir->op1, xallow); + return RID_MRM; + } + } else if (ir->o == IR_XLOAD) { + /* Generic fusion is not ok for 8/16 bit operands (but see asm_comp). + ** Fusing unaligned memory operands is ok on x86 (except for SIMD types). + */ + if ((!irt_typerange(ir->t, IRT_I8, IRT_U16)) && + noconflict(as, ref, IR_XSTORE, 0)) { + asm_fusexref(as, ir->op1, xallow); + return RID_MRM; + } + } else if (ir->o == IR_VLOAD) { + asm_fuseahuref(as, ir->op1, xallow); + return RID_MRM; + } + } + if (!(as->freeset & allow) && !irref_isk(ref) && + (allow == RSET_EMPTY || ra_hasspill(ir->s) || iscrossref(as, ref))) + goto fusespill; + return ra_allocref(as, ref, allow); +} + +#if LJ_64 +/* Don't fuse a 32 bit load into a 64 bit operation. */ +static Reg asm_fuseloadm(ASMState *as, IRRef ref, RegSet allow, int is64) +{ + if (is64 && !irt_is64(IR(ref)->t)) + return ra_alloc1(as, ref, allow); + return asm_fuseload(as, ref, allow); +} +#else +#define asm_fuseloadm(as, ref, allow, is64) asm_fuseload(as, (ref), (allow)) +#endif + +/* -- Calls --------------------------------------------------------------- */ + +/* Count the required number of stack slots for a call. */ +static int asm_count_call_slots(ASMState *as, const CCallInfo *ci, IRRef *args) +{ + uint32_t i, nargs = CCI_NARGS(ci); + int nslots = 0; +#if LJ_64 + if (LJ_ABI_WIN) { + nslots = (int)(nargs*2); /* Only matters for more than four args. */ + } else { + int ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; + for (i = 0; i < nargs; i++) + if (args[i] && irt_isfp(IR(args[i])->t)) { + if (nfpr > 0) nfpr--; else nslots += 2; + } else { + if (ngpr > 0) ngpr--; else nslots += 2; + } + } +#else + int ngpr = 0; + if ((ci->flags & CCI_CC_MASK) == CCI_CC_FASTCALL) + ngpr = 2; + else if ((ci->flags & CCI_CC_MASK) == CCI_CC_THISCALL) + ngpr = 1; + for (i = 0; i < nargs; i++) + if (args[i] && irt_isfp(IR(args[i])->t)) { + nslots += irt_isnum(IR(args[i])->t) ? 2 : 1; + } else { + if (ngpr > 0) ngpr--; else nslots++; + } +#endif + return nslots; +} + +/* Generate a call to a C function. */ +static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) +{ + uint32_t n, nargs = CCI_NARGS(ci); + int32_t ofs = STACKARG_OFS; +#if LJ_64 + uint32_t gprs = REGARG_GPRS; + Reg fpr = REGARG_FIRSTFPR; +#if !LJ_ABI_WIN + MCode *patchnfpr = NULL; +#endif +#else + uint32_t gprs = 0; + if ((ci->flags & CCI_CC_MASK) != CCI_CC_CDECL) { + if ((ci->flags & CCI_CC_MASK) == CCI_CC_THISCALL) + gprs = (REGARG_GPRS & 31); + else if ((ci->flags & CCI_CC_MASK) == CCI_CC_FASTCALL) + gprs = REGARG_GPRS; + } +#endif + if ((void *)ci->func) + emit_call(as, ci->func); +#if LJ_64 + if ((ci->flags & CCI_VARARG)) { /* Special handling for vararg calls. */ +#if LJ_ABI_WIN + for (n = 0; n < 4 && n < nargs; n++) { + IRIns *ir = IR(args[n]); + if (irt_isfp(ir->t)) /* Duplicate FPRs in GPRs. */ + emit_rr(as, XO_MOVDto, (irt_isnum(ir->t) ? REX_64 : 0) | (fpr+n), + ((gprs >> (n*5)) & 31)); /* Either MOVD or MOVQ. */ + } +#else + patchnfpr = --as->mcp; /* Indicate number of used FPRs in register al. */ + *--as->mcp = XI_MOVrib | RID_EAX; +#endif + } +#endif + for (n = 0; n < nargs; n++) { /* Setup args. */ + IRRef ref = args[n]; + IRIns *ir = IR(ref); + Reg r; +#if LJ_64 && LJ_ABI_WIN + /* Windows/x64 argument registers are strictly positional. */ + r = irt_isfp(ir->t) ? (fpr <= REGARG_LASTFPR ? fpr : 0) : (gprs & 31); + fpr++; gprs >>= 5; +#elif LJ_64 + /* POSIX/x64 argument registers are used in order of appearance. */ + if (irt_isfp(ir->t)) { + r = fpr <= REGARG_LASTFPR ? fpr++ : 0; + } else { + r = gprs & 31; gprs >>= 5; + } +#else + if (ref && irt_isfp(ir->t)) { + r = 0; + } else { + r = gprs & 31; gprs >>= 5; + if (!ref) continue; + } +#endif + if (r) { /* Argument is in a register. */ + if (r < RID_MAX_GPR && ref < ASMREF_TMP1) { +#if LJ_64 + if (ir->o == IR_KINT64) + emit_loadu64(as, r, ir_kint64(ir)->u64); + else +#endif + emit_loadi(as, r, ir->i); + } else { + lua_assert(rset_test(as->freeset, r)); /* Must have been evicted. */ + if (ra_hasreg(ir->r)) { + ra_noweak(as, ir->r); + emit_movrr(as, ir, r, ir->r); + } else { + ra_allocref(as, ref, RID2RSET(r)); + } + } + } else if (irt_isfp(ir->t)) { /* FP argument is on stack. */ + lua_assert(!(irt_isfloat(ir->t) && irref_isk(ref))); /* No float k. */ + if (LJ_32 && (ofs & 4) && irref_isk(ref)) { + /* Split stores for unaligned FP consts. */ + emit_movmroi(as, RID_ESP, ofs, (int32_t)ir_knum(ir)->u32.lo); + emit_movmroi(as, RID_ESP, ofs+4, (int32_t)ir_knum(ir)->u32.hi); + } else { + r = ra_alloc1(as, ref, RSET_FPR); + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, + r, RID_ESP, ofs); + } + ofs += (LJ_32 && irt_isfloat(ir->t)) ? 4 : 8; + } else { /* Non-FP argument is on stack. */ + if (LJ_32 && ref < ASMREF_TMP1) { + emit_movmroi(as, RID_ESP, ofs, ir->i); + } else { + r = ra_alloc1(as, ref, RSET_GPR); + emit_movtomro(as, REX_64 + r, RID_ESP, ofs); + } + ofs += sizeof(intptr_t); + } + checkmclim(as); + } +#if LJ_64 && !LJ_ABI_WIN + if (patchnfpr) *patchnfpr = fpr - REGARG_FIRSTFPR; +#endif +} + +/* Setup result reg/sp for call. Evict scratch regs. */ +static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + RegSet drop = RSET_SCRATCH; + int hiop = (LJ_32 && (ir+1)->o == IR_HIOP); + if ((ci->flags & CCI_NOFPRCLOBBER)) + drop &= ~RSET_FPR; + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + if (hiop && ra_hasreg((ir+1)->r)) + rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ + ra_evictset(as, drop); /* Evictions must be performed first. */ + if (ra_used(ir)) { + if (irt_isfp(ir->t)) { + int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ +#if LJ_64 + if ((ci->flags & CCI_CASTU64)) { + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_rr(as, XO_MOVD, dest|REX_64, RID_RET); /* Really MOVQ. */ + } + if (ofs) emit_movtomro(as, RID_RET|REX_64, RID_ESP, ofs); + } else { + ra_destreg(as, ir, RID_FPRET); + } +#else + /* Number result is in x87 st0 for x86 calling convention. */ + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, + dest, RID_ESP, ofs); + } + if ((ci->flags & CCI_CASTU64)) { + emit_movtomro(as, RID_RETLO, RID_ESP, ofs); + emit_movtomro(as, RID_RETHI, RID_ESP, ofs+4); + } else { + emit_rmro(as, irt_isnum(ir->t) ? XO_FSTPq : XO_FSTPd, + irt_isnum(ir->t) ? XOg_FSTPq : XOg_FSTPd, RID_ESP, ofs); + } +#endif +#if LJ_32 + } else if (hiop) { + ra_destpair(as, ir); +#endif + } else { + lua_assert(!irt_ispri(ir->t)); + ra_destreg(as, ir, RID_RET); + } + } else if (LJ_32 && irt_isfp(ir->t) && !(ci->flags & CCI_CASTU64)) { + emit_x87op(as, XI_FPOP); /* Pop unused result from x87 st0. */ + } +} + +static void asm_call(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX]; + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + asm_collectargs(as, ir, ci, args); + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +/* Return a constant function pointer or NULL for indirect calls. */ +static void *asm_callx_func(ASMState *as, IRIns *irf, IRRef func) +{ +#if LJ_32 + UNUSED(as); + if (irref_isk(func)) + return (void *)irf->i; +#else + if (irref_isk(func)) { + MCode *p; + if (irf->o == IR_KINT64) + p = (MCode *)(void *)ir_k64(irf)->u64; + else + p = (MCode *)(void *)(uintptr_t)(uint32_t)irf->i; + if (p - as->mcp == (int32_t)(p - as->mcp)) + return p; /* Call target is still in +-2GB range. */ + /* Avoid the indirect case of emit_call(). Try to hoist func addr. */ + } +#endif + return NULL; +} + +static void asm_callx(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX*2]; + CCallInfo ci; + IRRef func; + IRIns *irf; + int32_t spadj = 0; + ci.flags = asm_callx_flags(as, ir); + asm_collectargs(as, ir, &ci, args); + asm_setupresult(as, ir, &ci); +#if LJ_32 + /* Have to readjust stack after non-cdecl calls due to callee cleanup. */ + if ((ci.flags & CCI_CC_MASK) != CCI_CC_CDECL) + spadj = 4 * asm_count_call_slots(as, &ci, args); +#endif + func = ir->op2; irf = IR(func); + if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } + ci.func = (ASMFunction)asm_callx_func(as, irf, func); + if (!(void *)ci.func) { + /* Use a (hoistable) non-scratch register for indirect calls. */ + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + Reg r = ra_alloc1(as, func, allow); + if (LJ_32) emit_spsub(as, spadj); /* Above code may cause restores! */ + emit_rr(as, XO_GROUP5, XOg_CALL, r); + } else if (LJ_32) { + emit_spsub(as, spadj); + } + asm_gencall(as, &ci, args); +} + +/* -- Returns ------------------------------------------------------------- */ + +/* Return to lower frame. Guard that it goes to the right spot. */ +static void asm_retf(ASMState *as, IRIns *ir) +{ + Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); + void *pc = ir_kptr(IR(ir->op2)); + int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + as->topslot -= (BCReg)delta; + if ((int32_t)as->topslot < 0) as->topslot = 0; + irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ + emit_setgl(as, base, jit_base); + emit_addptr(as, base, -8*delta); + asm_guardcc(as, CC_NE); + emit_gmroi(as, XG_ARITHi(XOg_CMP), base, -4, ptr2addr(pc)); +} + +/* -- Type conversions ---------------------------------------------------- */ + +static void asm_tointg(ASMState *as, IRIns *ir, Reg left) +{ + Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_guardcc(as, CC_P); + asm_guardcc(as, CC_NE); + emit_rr(as, XO_UCOMISD, left, tmp); + emit_rr(as, XO_CVTSI2SD, tmp, dest); + if (!(as->flags & JIT_F_SPLIT_XMM)) + emit_rr(as, XO_XORPS, tmp, tmp); /* Avoid partial register stall. */ + emit_rr(as, XO_CVTTSD2SI, dest, left); + /* Can't fuse since left is needed twice. */ +} + +static void asm_tobit(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg tmp = ra_noreg(IR(ir->op1)->r) ? + ra_alloc1(as, ir->op1, RSET_FPR) : + ra_scratch(as, RSET_FPR); + Reg right = asm_fuseload(as, ir->op2, rset_exclude(RSET_FPR, tmp)); + emit_rr(as, XO_MOVDto, tmp, dest); + emit_mrm(as, XO_ADDSD, tmp, right); + ra_left(as, tmp, ir->op1); +} + +static void asm_conv(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); + int st64 = (st == IRT_I64 || st == IRT_U64 || (LJ_64 && st == IRT_P64)); + int stfp = (st == IRT_NUM || st == IRT_FLOAT); + IRRef lref = ir->op1; + lua_assert(irt_type(ir->t) != st); + lua_assert(!(LJ_32 && (irt_isint64(ir->t) || st64))); /* Handled by SPLIT. */ + if (irt_isfp(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_FPR); + if (stfp) { /* FP to FP conversion. */ + Reg left = asm_fuseload(as, lref, RSET_FPR); + emit_mrm(as, st == IRT_NUM ? XO_CVTSD2SS : XO_CVTSS2SD, dest, left); + if (left == dest) return; /* Avoid the XO_XORPS. */ + } else if (LJ_32 && st == IRT_U32) { /* U32 to FP conversion on x86. */ + /* number = (2^52+2^51 .. u32) - (2^52+2^51) */ + cTValue *k = lj_ir_k64_find(as->J, U64x(43380000,00000000)); + Reg bias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); + if (irt_isfloat(ir->t)) + emit_rr(as, XO_CVTSD2SS, dest, dest); + emit_rr(as, XO_SUBSD, dest, bias); /* Subtract 2^52+2^51 bias. */ + emit_rr(as, XO_XORPS, dest, bias); /* Merge bias and integer. */ + emit_loadn(as, bias, k); + emit_mrm(as, XO_MOVD, dest, asm_fuseload(as, lref, RSET_GPR)); + return; + } else { /* Integer to FP conversion. */ + Reg left = (LJ_64 && (st == IRT_U32 || st == IRT_U64)) ? + ra_alloc1(as, lref, RSET_GPR) : + asm_fuseloadm(as, lref, RSET_GPR, st64); + if (LJ_64 && st == IRT_U64) { + MCLabel l_end = emit_label(as); + const void *k = lj_ir_k64_find(as->J, U64x(43f00000,00000000)); + emit_rma(as, XO_ADDSD, dest, k); /* Add 2^64 to compensate. */ + emit_sjcc(as, CC_NS, l_end); + emit_rr(as, XO_TEST, left|REX_64, left); /* Check if u64 >= 2^63. */ + } + emit_mrm(as, irt_isnum(ir->t) ? XO_CVTSI2SD : XO_CVTSI2SS, + dest|((LJ_64 && (st64 || st == IRT_U32)) ? REX_64 : 0), left); + } + if (!(as->flags & JIT_F_SPLIT_XMM)) + emit_rr(as, XO_XORPS, dest, dest); /* Avoid partial register stall. */ + } else if (stfp) { /* FP to integer conversion. */ + if (irt_isguard(ir->t)) { + /* Checked conversions are only supported from number to int. */ + lua_assert(irt_isint(ir->t) && st == IRT_NUM); + asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + x86Op op = st == IRT_NUM ? + ((ir->op2 & IRCONV_TRUNC) ? XO_CVTTSD2SI : XO_CVTSD2SI) : + ((ir->op2 & IRCONV_TRUNC) ? XO_CVTTSS2SI : XO_CVTSS2SI); + if (LJ_64 ? irt_isu64(ir->t) : irt_isu32(ir->t)) { + /* LJ_64: For inputs >= 2^63 add -2^64, convert again. */ + /* LJ_32: For inputs >= 2^31 add -2^31, convert again and add 2^31. */ + Reg tmp = ra_noreg(IR(lref)->r) ? ra_alloc1(as, lref, RSET_FPR) : + ra_scratch(as, RSET_FPR); + MCLabel l_end = emit_label(as); + if (LJ_32) + emit_gri(as, XG_ARITHi(XOg_ADD), dest, (int32_t)0x80000000); + emit_rr(as, op, dest|REX_64, tmp); + if (st == IRT_NUM) + emit_rma(as, XO_ADDSD, tmp, lj_ir_k64_find(as->J, + LJ_64 ? U64x(c3f00000,00000000) : U64x(c1e00000,00000000))); + else + emit_rma(as, XO_ADDSS, tmp, lj_ir_k64_find(as->J, + LJ_64 ? U64x(00000000,df800000) : U64x(00000000,cf000000))); + emit_sjcc(as, CC_NS, l_end); + emit_rr(as, XO_TEST, dest|REX_64, dest); /* Check if dest negative. */ + emit_rr(as, op, dest|REX_64, tmp); + ra_left(as, tmp, lref); + } else { + Reg left = asm_fuseload(as, lref, RSET_FPR); + if (LJ_64 && irt_isu32(ir->t)) + emit_rr(as, XO_MOV, dest, dest); /* Zero hiword. */ + emit_mrm(as, op, + dest|((LJ_64 && + (irt_is64(ir->t) || irt_isu32(ir->t))) ? REX_64 : 0), + left); + } + } + } else if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ + Reg left, dest = ra_dest(as, ir, RSET_GPR); + RegSet allow = RSET_GPR; + x86Op op; + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); + if (st == IRT_I8) { + op = XO_MOVSXb; allow = RSET_GPR8; dest |= FORCE_REX; + } else if (st == IRT_U8) { + op = XO_MOVZXb; allow = RSET_GPR8; dest |= FORCE_REX; + } else if (st == IRT_I16) { + op = XO_MOVSXw; + } else { + op = XO_MOVZXw; + } + left = asm_fuseload(as, lref, allow); + /* Add extra MOV if source is already in wrong register. */ + if (!LJ_64 && left != RID_MRM && !rset_test(allow, left)) { + Reg tmp = ra_scratch(as, allow); + emit_rr(as, op, dest, tmp); + emit_rr(as, XO_MOV, tmp, left); + } else { + emit_mrm(as, op, dest, left); + } + } else { /* 32/64 bit integer conversions. */ + if (LJ_32) { /* Only need to handle 32/32 bit no-op (cast) on x86. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ + } else if (irt_is64(ir->t)) { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (st64 || !(ir->op2 & IRCONV_SEXT)) { + /* 64/64 bit no-op (cast) or 32 to 64 bit zero extension. */ + ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ + } else { /* 32 to 64 bit sign extension. */ + Reg left = asm_fuseload(as, lref, RSET_GPR); + emit_mrm(as, XO_MOVSXd, dest|REX_64, left); + } + } else { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (st64) { + Reg left = asm_fuseload(as, lref, RSET_GPR); + /* This is either a 32 bit reg/reg mov which zeroes the hiword + ** or a load of the loword from a 64 bit address. + */ + emit_mrm(as, XO_MOV, dest, left); + } else { /* 32/32 bit no-op (cast). */ + ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ + } + } + } +} + +#if LJ_32 && LJ_HASFFI +/* No SSE conversions to/from 64 bit on x86, so resort to ugly x87 code. */ + +/* 64 bit integer to FP conversion in 32 bit mode. */ +static void asm_conv_fp_int64(ASMState *as, IRIns *ir) +{ + Reg hi = ra_alloc1(as, ir->op1, RSET_GPR); + Reg lo = ra_alloc1(as, (ir-1)->op1, rset_exclude(RSET_GPR, hi)); + int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, + dest, RID_ESP, ofs); + } + emit_rmro(as, irt_isnum(ir->t) ? XO_FSTPq : XO_FSTPd, + irt_isnum(ir->t) ? XOg_FSTPq : XOg_FSTPd, RID_ESP, ofs); + if (((ir-1)->op2 & IRCONV_SRCMASK) == IRT_U64) { + /* For inputs in [2^63,2^64-1] add 2^64 to compensate. */ + MCLabel l_end = emit_label(as); + emit_rma(as, XO_FADDq, XOg_FADDq, + lj_ir_k64_find(as->J, U64x(43f00000,00000000))); + emit_sjcc(as, CC_NS, l_end); + emit_rr(as, XO_TEST, hi, hi); /* Check if u64 >= 2^63. */ + } else { + lua_assert(((ir-1)->op2 & IRCONV_SRCMASK) == IRT_I64); + } + emit_rmro(as, XO_FILDq, XOg_FILDq, RID_ESP, 0); + /* NYI: Avoid narrow-to-wide store-to-load forwarding stall. */ + emit_rmro(as, XO_MOVto, hi, RID_ESP, 4); + emit_rmro(as, XO_MOVto, lo, RID_ESP, 0); +} + +/* FP to 64 bit integer conversion in 32 bit mode. */ +static void asm_conv_int64_fp(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); + IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); + Reg lo, hi; + lua_assert(st == IRT_NUM || st == IRT_FLOAT); + lua_assert(dt == IRT_I64 || dt == IRT_U64); + lua_assert(((ir-1)->op2 & IRCONV_TRUNC)); + hi = ra_dest(as, ir, RSET_GPR); + lo = ra_dest(as, ir-1, rset_exclude(RSET_GPR, hi)); + if (ra_used(ir-1)) emit_rmro(as, XO_MOV, lo, RID_ESP, 0); + /* NYI: Avoid wide-to-narrow store-to-load forwarding stall. */ + if (!(as->flags & JIT_F_SSE3)) { /* Set FPU rounding mode to default. */ + emit_rmro(as, XO_FLDCW, XOg_FLDCW, RID_ESP, 4); + emit_rmro(as, XO_MOVto, lo, RID_ESP, 4); + emit_gri(as, XG_ARITHi(XOg_AND), lo, 0xf3ff); + } + if (dt == IRT_U64) { + /* For inputs in [2^63,2^64-1] add -2^64 and convert again. */ + MCLabel l_pop, l_end = emit_label(as); + emit_x87op(as, XI_FPOP); + l_pop = emit_label(as); + emit_sjmp(as, l_end); + emit_rmro(as, XO_MOV, hi, RID_ESP, 4); + if ((as->flags & JIT_F_SSE3)) + emit_rmro(as, XO_FISTTPq, XOg_FISTTPq, RID_ESP, 0); + else + emit_rmro(as, XO_FISTPq, XOg_FISTPq, RID_ESP, 0); + emit_rma(as, XO_FADDq, XOg_FADDq, + lj_ir_k64_find(as->J, U64x(c3f00000,00000000))); + emit_sjcc(as, CC_NS, l_pop); + emit_rr(as, XO_TEST, hi, hi); /* Check if out-of-range (2^63). */ + } + emit_rmro(as, XO_MOV, hi, RID_ESP, 4); + if ((as->flags & JIT_F_SSE3)) { /* Truncation is easy with SSE3. */ + emit_rmro(as, XO_FISTTPq, XOg_FISTTPq, RID_ESP, 0); + } else { /* Otherwise set FPU rounding mode to truncate before the store. */ + emit_rmro(as, XO_FISTPq, XOg_FISTPq, RID_ESP, 0); + emit_rmro(as, XO_FLDCW, XOg_FLDCW, RID_ESP, 0); + emit_rmro(as, XO_MOVtow, lo, RID_ESP, 0); + emit_rmro(as, XO_ARITHw(XOg_OR), lo, RID_ESP, 0); + emit_loadi(as, lo, 0xc00); + emit_rmro(as, XO_FNSTCW, XOg_FNSTCW, RID_ESP, 0); + } + if (dt == IRT_U64) + emit_x87op(as, XI_FDUP); + emit_mrm(as, st == IRT_NUM ? XO_FLDq : XO_FLDd, + st == IRT_NUM ? XOg_FLDq: XOg_FLDd, + asm_fuseload(as, ir->op1, RSET_EMPTY)); +} +#endif + +static void asm_strto(ASMState *as, IRIns *ir) +{ + /* Force a spill slot for the destination register (if any). */ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; + IRRef args[2]; + RegSet drop = RSET_SCRATCH; + if ((drop & RSET_FPR) != RSET_FPR && ra_hasreg(ir->r)) + rset_set(drop, ir->r); /* WIN64 doesn't spill all FPRs. */ + ra_evictset(as, drop); + asm_guardcc(as, CC_E); + emit_rr(as, XO_TEST, RID_RET, RID_RET); /* Test return status. */ + args[0] = ir->op1; /* GCstr *str */ + args[1] = ASMREF_TMP1; /* TValue *n */ + asm_gencall(as, ci, args); + /* Store the result to the spill slot or temp slots. */ + emit_rmro(as, XO_LEA, ra_releasetmp(as, ASMREF_TMP1)|REX_64, + RID_ESP, sps_scale(ir->s)); +} + +static void asm_tostr(ASMState *as, IRIns *ir) +{ + IRIns *irl = IR(ir->op1); + IRRef args[2]; + args[0] = ASMREF_L; + as->gcsteps++; + if (irt_isnum(irl->t)) { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; + args[1] = ASMREF_TMP1; /* const lua_Number * */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + emit_rmro(as, XO_LEA, ra_releasetmp(as, ASMREF_TMP1)|REX_64, + RID_ESP, ra_spill(as, irl)); + } else { + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; + args[1] = ir->op1; /* int32_t k */ + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + } +} + +/* -- Memory references --------------------------------------------------- */ + +static void asm_aref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_fusearef(as, ir, RSET_GPR); + if (!(as->mrm.idx == RID_NONE && as->mrm.ofs == 0)) + emit_mrm(as, XO_LEA, dest, RID_MRM); + else if (as->mrm.base != dest) + emit_rr(as, XO_MOV, dest, as->mrm.base); +} + +/* Merge NE(HREF, niltv) check. */ +static MCode *merge_href_niltv(ASMState *as, IRIns *ir) +{ + /* Assumes nothing else generates NE of HREF. */ + if ((ir[1].o == IR_NE || ir[1].o == IR_EQ) && ir[1].op1 == as->curins && + ra_hasreg(ir->r)) { + MCode *p = as->mcp; + p += (LJ_64 && *p != XI_ARITHi) ? 7+6 : 6+6; + /* Ensure no loop branch inversion happened. */ + if (p[-6] == 0x0f && p[-5] == XI_JCCn+(CC_NE^(ir[1].o & 1))) { + as->mcp = p; /* Kill cmp reg, imm32 + jz exit. */ + return p + *(int32_t *)(p-4); /* Return exit address. */ + } + } + return NULL; +} + +/* Inlined hash lookup. Specialized for key type and for const keys. +** The equivalent C code is: +** Node *n = hashkey(t, key); +** do { +** if (lj_obj_equal(&n->key, key)) return &n->val; +** } while ((n = nextnode(n))); +** return niltv(L); +*/ +static void asm_href(ASMState *as, IRIns *ir) +{ + MCode *nilexit = merge_href_niltv(as, ir); /* Do this before any restores. */ + RegSet allow = RSET_GPR; + Reg dest = ra_dest(as, ir, allow); + Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); + Reg key = RID_NONE, tmp = RID_NONE; + IRIns *irkey = IR(ir->op2); + int isk = irref_isk(ir->op2); + IRType1 kt = irkey->t; + uint32_t khash; + MCLabel l_end, l_loop, l_next; + + if (!isk) { + rset_clear(allow, tab); + key = ra_alloc1(as, ir->op2, irt_isnum(kt) ? RSET_FPR : allow); + if (!irt_isstr(kt)) + tmp = ra_scratch(as, rset_exclude(allow, key)); + } + + /* Key not found in chain: jump to exit (if merged with NE) or load niltv. */ + l_end = emit_label(as); + if (nilexit && ir[1].o == IR_NE) { + emit_jcc(as, CC_E, nilexit); /* XI_JMP is not found by lj_asm_patchexit. */ + nilexit = NULL; + } else { + emit_loada(as, dest, niltvg(J2G(as->J))); + } + + /* Follow hash chain until the end. */ + l_loop = emit_sjcc_label(as, CC_NZ); + emit_rr(as, XO_TEST, dest, dest); + emit_rmro(as, XO_MOV, dest, dest, offsetof(Node, next)); + l_next = emit_label(as); + + /* Type and value comparison. */ + if (nilexit) + emit_jcc(as, CC_E, nilexit); + else + emit_sjcc(as, CC_E, l_end); + if (irt_isnum(kt)) { + if (isk) { + /* Assumes -0.0 is already canonicalized to +0.0. */ + emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.u32.lo), + (int32_t)ir_knum(irkey)->u32.lo); + emit_sjcc(as, CC_NE, l_next); + emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.u32.hi), + (int32_t)ir_knum(irkey)->u32.hi); + } else { + emit_sjcc(as, CC_P, l_next); + emit_rmro(as, XO_UCOMISD, key, dest, offsetof(Node, key.n)); + emit_sjcc(as, CC_AE, l_next); + /* The type check avoids NaN penalties and complaints from Valgrind. */ +#if LJ_64 + emit_u32(as, LJ_TISNUM); + emit_rmro(as, XO_ARITHi, XOg_CMP, dest, offsetof(Node, key.it)); +#else + emit_i8(as, LJ_TISNUM); + emit_rmro(as, XO_ARITHi8, XOg_CMP, dest, offsetof(Node, key.it)); +#endif + } +#if LJ_64 + } else if (irt_islightud(kt)) { + emit_rmro(as, XO_CMP, key|REX_64, dest, offsetof(Node, key.u64)); +#endif + } else { + if (!irt_ispri(kt)) { + lua_assert(irt_isaddr(kt)); + if (isk) + emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.gcr), + ptr2addr(ir_kgc(irkey))); + else + emit_rmro(as, XO_CMP, key, dest, offsetof(Node, key.gcr)); + emit_sjcc(as, CC_NE, l_next); + } + lua_assert(!irt_isnil(kt)); + emit_i8(as, irt_toitype(kt)); + emit_rmro(as, XO_ARITHi8, XOg_CMP, dest, offsetof(Node, key.it)); + } + emit_sfixup(as, l_loop); + checkmclim(as); + + /* Load main position relative to tab->node into dest. */ + khash = isk ? ir_khash(irkey) : 1; + if (khash == 0) { + emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, node)); + } else { + emit_rmro(as, XO_ARITH(XOg_ADD), dest, tab, offsetof(GCtab, node)); + if ((as->flags & JIT_F_PREFER_IMUL)) { + emit_i8(as, sizeof(Node)); + emit_rr(as, XO_IMULi8, dest, dest); + } else { + emit_shifti(as, XOg_SHL, dest, 3); + emit_rmrxo(as, XO_LEA, dest, dest, dest, XM_SCALE2, 0); + } + if (isk) { + emit_gri(as, XG_ARITHi(XOg_AND), dest, (int32_t)khash); + emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, hmask)); + } else if (irt_isstr(kt)) { + emit_rmro(as, XO_ARITH(XOg_AND), dest, key, offsetof(GCstr, hash)); + emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, hmask)); + } else { /* Must match with hashrot() in lj_tab.c. */ + emit_rmro(as, XO_ARITH(XOg_AND), dest, tab, offsetof(GCtab, hmask)); + emit_rr(as, XO_ARITH(XOg_SUB), dest, tmp); + emit_shifti(as, XOg_ROL, tmp, HASH_ROT3); + emit_rr(as, XO_ARITH(XOg_XOR), dest, tmp); + emit_shifti(as, XOg_ROL, dest, HASH_ROT2); + emit_rr(as, XO_ARITH(XOg_SUB), tmp, dest); + emit_shifti(as, XOg_ROL, dest, HASH_ROT1); + emit_rr(as, XO_ARITH(XOg_XOR), tmp, dest); + if (irt_isnum(kt)) { + emit_rr(as, XO_ARITH(XOg_ADD), dest, dest); +#if LJ_64 + emit_shifti(as, XOg_SHR|REX_64, dest, 32); + emit_rr(as, XO_MOV, tmp, dest); + emit_rr(as, XO_MOVDto, key|REX_64, dest); +#else + emit_rmro(as, XO_MOV, dest, RID_ESP, ra_spill(as, irkey)+4); + emit_rr(as, XO_MOVDto, key, tmp); +#endif + } else { + emit_rr(as, XO_MOV, tmp, key); + emit_rmro(as, XO_LEA, dest, key, HASH_BIAS); + } + } + } +} + +static void asm_hrefk(ASMState *as, IRIns *ir) +{ + IRIns *kslot = IR(ir->op2); + IRIns *irkey = IR(kslot->op1); + int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); + Reg dest = ra_used(ir) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; + Reg node = ra_alloc1(as, ir->op1, RSET_GPR); +#if !LJ_64 + MCLabel l_exit; +#endif + lua_assert(ofs % sizeof(Node) == 0); + if (ra_hasreg(dest)) { + if (ofs != 0) { + if (dest == node && !(as->flags & JIT_F_LEA_AGU)) + emit_gri(as, XG_ARITHi(XOg_ADD), dest, ofs); + else + emit_rmro(as, XO_LEA, dest, node, ofs); + } else if (dest != node) { + emit_rr(as, XO_MOV, dest, node); + } + } + asm_guardcc(as, CC_NE); +#if LJ_64 + if (!irt_ispri(irkey->t)) { + Reg key = ra_scratch(as, rset_exclude(RSET_GPR, node)); + emit_rmro(as, XO_CMP, key|REX_64, node, + ofs + (int32_t)offsetof(Node, key.u64)); + lua_assert(irt_isnum(irkey->t) || irt_isgcv(irkey->t)); + /* Assumes -0.0 is already canonicalized to +0.0. */ + emit_loadu64(as, key, irt_isnum(irkey->t) ? ir_knum(irkey)->u64 : + ((uint64_t)irt_toitype(irkey->t) << 32) | + (uint64_t)(uint32_t)ptr2addr(ir_kgc(irkey))); + } else { + lua_assert(!irt_isnil(irkey->t)); + emit_i8(as, irt_toitype(irkey->t)); + emit_rmro(as, XO_ARITHi8, XOg_CMP, node, + ofs + (int32_t)offsetof(Node, key.it)); + } +#else + l_exit = emit_label(as); + if (irt_isnum(irkey->t)) { + /* Assumes -0.0 is already canonicalized to +0.0. */ + emit_gmroi(as, XG_ARITHi(XOg_CMP), node, + ofs + (int32_t)offsetof(Node, key.u32.lo), + (int32_t)ir_knum(irkey)->u32.lo); + emit_sjcc(as, CC_NE, l_exit); + emit_gmroi(as, XG_ARITHi(XOg_CMP), node, + ofs + (int32_t)offsetof(Node, key.u32.hi), + (int32_t)ir_knum(irkey)->u32.hi); + } else { + if (!irt_ispri(irkey->t)) { + lua_assert(irt_isgcv(irkey->t)); + emit_gmroi(as, XG_ARITHi(XOg_CMP), node, + ofs + (int32_t)offsetof(Node, key.gcr), + ptr2addr(ir_kgc(irkey))); + emit_sjcc(as, CC_NE, l_exit); + } + lua_assert(!irt_isnil(irkey->t)); + emit_i8(as, irt_toitype(irkey->t)); + emit_rmro(as, XO_ARITHi8, XOg_CMP, node, + ofs + (int32_t)offsetof(Node, key.it)); + } +#endif +} + +static void asm_newref(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; + IRRef args[3]; + IRIns *irkey; + Reg tmp; + if (ir->r == RID_SINK) + return; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* GCtab *t */ + args[2] = ASMREF_TMP1; /* cTValue *key */ + asm_setupresult(as, ir, ci); /* TValue * */ + asm_gencall(as, ci, args); + tmp = ra_releasetmp(as, ASMREF_TMP1); + irkey = IR(ir->op2); + if (irt_isnum(irkey->t)) { + /* For numbers use the constant itself or a spill slot as a TValue. */ + if (irref_isk(ir->op2)) + emit_loada(as, tmp, ir_knum(irkey)); + else + emit_rmro(as, XO_LEA, tmp|REX_64, RID_ESP, ra_spill(as, irkey)); + } else { + /* Otherwise use g->tmptv to hold the TValue. */ + if (!irref_isk(ir->op2)) { + Reg src = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, tmp)); + emit_movtomro(as, REX_64IR(irkey, src), tmp, 0); + } else if (!irt_ispri(irkey->t)) { + emit_movmroi(as, tmp, 0, irkey->i); + } + if (!(LJ_64 && irt_islightud(irkey->t))) + emit_movmroi(as, tmp, 4, irt_toitype(irkey->t)); + emit_loada(as, tmp, &J2G(as->J)->tmptv); + } +} + +static void asm_uref(ASMState *as, IRIns *ir) +{ + /* NYI: Check that UREFO is still open and not aliasing a slot. */ + Reg dest = ra_dest(as, ir, RSET_GPR); + if (irref_isk(ir->op1)) { + GCfunc *fn = ir_kfunc(IR(ir->op1)); + MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; + emit_rma(as, XO_MOV, dest, v); + } else { + Reg uv = ra_scratch(as, RSET_GPR); + Reg func = ra_alloc1(as, ir->op1, RSET_GPR); + if (ir->o == IR_UREFC) { + emit_rmro(as, XO_LEA, dest, uv, offsetof(GCupval, tv)); + asm_guardcc(as, CC_NE); + emit_i8(as, 1); + emit_rmro(as, XO_ARITHib, XOg_CMP, uv, offsetof(GCupval, closed)); + } else { + emit_rmro(as, XO_MOV, dest, uv, offsetof(GCupval, v)); + } + emit_rmro(as, XO_MOV, uv, func, + (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); + } +} + +static void asm_fref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_fusefref(as, ir, RSET_GPR); + emit_mrm(as, XO_LEA, dest, RID_MRM); +} + +static void asm_strref(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + asm_fusestrref(as, ir, RSET_GPR); + if (as->mrm.base == RID_NONE) + emit_loadi(as, dest, as->mrm.ofs); + else if (as->mrm.base == dest && as->mrm.idx == RID_NONE) + emit_gri(as, XG_ARITHi(XOg_ADD), dest, as->mrm.ofs); + else + emit_mrm(as, XO_LEA, dest, RID_MRM); +} + +/* -- Loads and stores ---------------------------------------------------- */ + +static void asm_fxload(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); + x86Op xo; + if (ir->o == IR_FLOAD) + asm_fusefref(as, ir, RSET_GPR); + else + asm_fusexref(as, ir->op1, RSET_GPR); + /* ir->op2 is ignored -- unaligned loads are ok on x86. */ + switch (irt_type(ir->t)) { + case IRT_I8: xo = XO_MOVSXb; break; + case IRT_U8: xo = XO_MOVZXb; break; + case IRT_I16: xo = XO_MOVSXw; break; + case IRT_U16: xo = XO_MOVZXw; break; + case IRT_NUM: xo = XMM_MOVRM(as); break; + case IRT_FLOAT: xo = XO_MOVSS; break; + default: + if (LJ_64 && irt_is64(ir->t)) + dest |= REX_64; + else + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); + xo = XO_MOV; + break; + } + emit_mrm(as, xo, dest, RID_MRM); +} + +static void asm_fxstore(ASMState *as, IRIns *ir) +{ + RegSet allow = RSET_GPR; + Reg src = RID_NONE, osrc = RID_NONE; + int32_t k = 0; + if (ir->r == RID_SINK) + return; + /* The IRT_I16/IRT_U16 stores should never be simplified for constant + ** values since mov word [mem], imm16 has a length-changing prefix. + */ + if (irt_isi16(ir->t) || irt_isu16(ir->t) || irt_isfp(ir->t) || + !asm_isk32(as, ir->op2, &k)) { + RegSet allow8 = irt_isfp(ir->t) ? RSET_FPR : + (irt_isi8(ir->t) || irt_isu8(ir->t)) ? RSET_GPR8 : RSET_GPR; + src = osrc = ra_alloc1(as, ir->op2, allow8); + if (!LJ_64 && !rset_test(allow8, src)) { /* Already in wrong register. */ + rset_clear(allow, osrc); + src = ra_scratch(as, allow8); + } + rset_clear(allow, src); + } + if (ir->o == IR_FSTORE) { + asm_fusefref(as, IR(ir->op1), allow); + } else { + asm_fusexref(as, ir->op1, allow); + if (LJ_32 && ir->o == IR_HIOP) as->mrm.ofs += 4; + } + if (ra_hasreg(src)) { + x86Op xo; + switch (irt_type(ir->t)) { + case IRT_I8: case IRT_U8: xo = XO_MOVtob; src |= FORCE_REX; break; + case IRT_I16: case IRT_U16: xo = XO_MOVtow; break; + case IRT_NUM: xo = XO_MOVSDto; break; + case IRT_FLOAT: xo = XO_MOVSSto; break; +#if LJ_64 + case IRT_LIGHTUD: lua_assert(0); /* NYI: mask 64 bit lightuserdata. */ +#endif + default: + if (LJ_64 && irt_is64(ir->t)) + src |= REX_64; + else + lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); + xo = XO_MOVto; + break; + } + emit_mrm(as, xo, src, RID_MRM); + if (!LJ_64 && src != osrc) { + ra_noweak(as, osrc); + emit_rr(as, XO_MOV, src, osrc); + } + } else { + if (irt_isi8(ir->t) || irt_isu8(ir->t)) { + emit_i8(as, k); + emit_mrm(as, XO_MOVmib, 0, RID_MRM); + } else { + lua_assert(irt_is64(ir->t) || irt_isint(ir->t) || irt_isu32(ir->t) || + irt_isaddr(ir->t)); + emit_i32(as, k); + emit_mrm(as, XO_MOVmi, REX_64IR(ir, 0), RID_MRM); + } + } +} + +#if LJ_64 +static Reg asm_load_lightud64(ASMState *as, IRIns *ir, int typecheck) +{ + if (ra_used(ir) || typecheck) { + Reg dest = ra_dest(as, ir, RSET_GPR); + if (typecheck) { + Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, dest)); + asm_guardcc(as, CC_NE); + emit_i8(as, -2); + emit_rr(as, XO_ARITHi8, XOg_CMP, tmp); + emit_shifti(as, XOg_SAR|REX_64, tmp, 47); + emit_rr(as, XO_MOV, tmp|REX_64, dest); + } + return dest; + } else { + return RID_NONE; + } +} +#endif + +static void asm_ahuvload(ASMState *as, IRIns *ir) +{ + lua_assert(irt_isnum(ir->t) || irt_ispri(ir->t) || irt_isaddr(ir->t) || + (LJ_DUALNUM && irt_isint(ir->t))); +#if LJ_64 + if (irt_islightud(ir->t)) { + Reg dest = asm_load_lightud64(as, ir, 1); + if (ra_hasreg(dest)) { + asm_fuseahuref(as, ir->op1, RSET_GPR); + emit_mrm(as, XO_MOV, dest|REX_64, RID_MRM); + } + return; + } else +#endif + if (ra_used(ir)) { + RegSet allow = irt_isnum(ir->t) ? RSET_FPR : RSET_GPR; + Reg dest = ra_dest(as, ir, allow); + asm_fuseahuref(as, ir->op1, RSET_GPR); + emit_mrm(as, dest < RID_MAX_GPR ? XO_MOV : XMM_MOVRM(as), dest, RID_MRM); + } else { + asm_fuseahuref(as, ir->op1, RSET_GPR); + } + /* Always do the type check, even if the load result is unused. */ + as->mrm.ofs += 4; + asm_guardcc(as, irt_isnum(ir->t) ? CC_AE : CC_NE); + if (LJ_64 && irt_type(ir->t) >= IRT_NUM) { + lua_assert(irt_isinteger(ir->t) || irt_isnum(ir->t)); + emit_u32(as, LJ_TISNUM); + emit_mrm(as, XO_ARITHi, XOg_CMP, RID_MRM); + } else { + emit_i8(as, irt_toitype(ir->t)); + emit_mrm(as, XO_ARITHi8, XOg_CMP, RID_MRM); + } +} + +static void asm_ahustore(ASMState *as, IRIns *ir) +{ + if (ir->r == RID_SINK) + return; + if (irt_isnum(ir->t)) { + Reg src = ra_alloc1(as, ir->op2, RSET_FPR); + asm_fuseahuref(as, ir->op1, RSET_GPR); + emit_mrm(as, XO_MOVSDto, src, RID_MRM); +#if LJ_64 + } else if (irt_islightud(ir->t)) { + Reg src = ra_alloc1(as, ir->op2, RSET_GPR); + asm_fuseahuref(as, ir->op1, rset_exclude(RSET_GPR, src)); + emit_mrm(as, XO_MOVto, src|REX_64, RID_MRM); +#endif + } else { + IRIns *irr = IR(ir->op2); + RegSet allow = RSET_GPR; + Reg src = RID_NONE; + if (!irref_isk(ir->op2)) { + src = ra_alloc1(as, ir->op2, allow); + rset_clear(allow, src); + } + asm_fuseahuref(as, ir->op1, allow); + if (ra_hasreg(src)) { + emit_mrm(as, XO_MOVto, src, RID_MRM); + } else if (!irt_ispri(irr->t)) { + lua_assert(irt_isaddr(ir->t) || (LJ_DUALNUM && irt_isinteger(ir->t))); + emit_i32(as, irr->i); + emit_mrm(as, XO_MOVmi, 0, RID_MRM); + } + as->mrm.ofs += 4; + emit_i32(as, (int32_t)irt_toitype(ir->t)); + emit_mrm(as, XO_MOVmi, 0, RID_MRM); + } +} + +static void asm_sload(ASMState *as, IRIns *ir) +{ + int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); + IRType1 t = ir->t; + Reg base; + lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ + lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); + lua_assert(LJ_DUALNUM || + !irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); + if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { + Reg left = ra_scratch(as, RSET_FPR); + asm_tointg(as, ir, left); /* Frees dest reg. Do this before base alloc. */ + base = ra_alloc1(as, REF_BASE, RSET_GPR); + emit_rmro(as, XMM_MOVRM(as), left, base, ofs); + t.irt = IRT_NUM; /* Continue with a regular number type check. */ +#if LJ_64 + } else if (irt_islightud(t)) { + Reg dest = asm_load_lightud64(as, ir, (ir->op2 & IRSLOAD_TYPECHECK)); + if (ra_hasreg(dest)) { + base = ra_alloc1(as, REF_BASE, RSET_GPR); + emit_rmro(as, XO_MOV, dest|REX_64, base, ofs); + } + return; +#endif + } else if (ra_used(ir)) { + RegSet allow = irt_isnum(t) ? RSET_FPR : RSET_GPR; + Reg dest = ra_dest(as, ir, allow); + base = ra_alloc1(as, REF_BASE, RSET_GPR); + lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); + if ((ir->op2 & IRSLOAD_CONVERT)) { + t.irt = irt_isint(t) ? IRT_NUM : IRT_INT; /* Check for original type. */ + emit_rmro(as, irt_isint(t) ? XO_CVTSI2SD : XO_CVTSD2SI, dest, base, ofs); + } else if (irt_isnum(t)) { + emit_rmro(as, XMM_MOVRM(as), dest, base, ofs); + } else { + emit_rmro(as, XO_MOV, dest, base, ofs); + } + } else { + if (!(ir->op2 & IRSLOAD_TYPECHECK)) + return; /* No type check: avoid base alloc. */ + base = ra_alloc1(as, REF_BASE, RSET_GPR); + } + if ((ir->op2 & IRSLOAD_TYPECHECK)) { + /* Need type check, even if the load result is unused. */ + asm_guardcc(as, irt_isnum(t) ? CC_AE : CC_NE); + if (LJ_64 && irt_type(t) >= IRT_NUM) { + lua_assert(irt_isinteger(t) || irt_isnum(t)); + emit_u32(as, LJ_TISNUM); + emit_rmro(as, XO_ARITHi, XOg_CMP, base, ofs+4); + } else { + emit_i8(as, irt_toitype(t)); + emit_rmro(as, XO_ARITHi8, XOg_CMP, base, ofs+4); + } + } +} + +/* -- Allocations --------------------------------------------------------- */ + +#if LJ_HASFFI +static void asm_cnew(ASMState *as, IRIns *ir) +{ + CTState *cts = ctype_ctsG(J2G(as->J)); + CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; + CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? + lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; + IRRef args[2]; + lua_assert(sz != CTSIZE_INVALID); + + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ + as->gcsteps++; + asm_setupresult(as, ir, ci); /* GCcdata * */ + + /* Initialize immutable cdata object. */ + if (ir->o == IR_CNEWI) { + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); +#if LJ_64 + Reg r64 = sz == 8 ? REX_64 : 0; + if (irref_isk(ir->op2)) { + IRIns *irk = IR(ir->op2); + uint64_t k = irk->o == IR_KINT64 ? ir_k64(irk)->u64 : + (uint64_t)(uint32_t)irk->i; + if (sz == 4 || checki32((int64_t)k)) { + emit_i32(as, (int32_t)k); + emit_rmro(as, XO_MOVmi, r64, RID_RET, sizeof(GCcdata)); + } else { + emit_movtomro(as, RID_ECX + r64, RID_RET, sizeof(GCcdata)); + emit_loadu64(as, RID_ECX, k); + } + } else { + Reg r = ra_alloc1(as, ir->op2, allow); + emit_movtomro(as, r + r64, RID_RET, sizeof(GCcdata)); + } +#else + int32_t ofs = sizeof(GCcdata); + if (sz == 8) { + ofs += 4; ir++; + lua_assert(ir->o == IR_HIOP); + } + do { + if (irref_isk(ir->op2)) { + emit_movmroi(as, RID_RET, ofs, IR(ir->op2)->i); + } else { + Reg r = ra_alloc1(as, ir->op2, allow); + emit_movtomro(as, r, RID_RET, ofs); + rset_clear(allow, r); + } + if (ofs == sizeof(GCcdata)) break; + ofs -= 4; ir--; + } while (1); +#endif + lua_assert(sz == 4 || sz == 8); + } + + /* Combine initialization of marked, gct and ctypeid. */ + emit_movtomro(as, RID_ECX, RID_RET, offsetof(GCcdata, marked)); + emit_gri(as, XG_ARITHi(XOg_OR), RID_ECX, + (int32_t)((~LJ_TCDATA<<8)+(ctypeid<<16))); + emit_gri(as, XG_ARITHi(XOg_AND), RID_ECX, LJ_GC_WHITES); + emit_opgl(as, XO_MOVZXb, RID_ECX, gc.currentwhite); + + asm_gencall(as, ci, args); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)(sz+sizeof(GCcdata))); +} +#else +#define asm_cnew(as, ir) ((void)0) +#endif + +/* -- Write barriers ------------------------------------------------------ */ + +static void asm_tbar(ASMState *as, IRIns *ir) +{ + Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); + Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, tab)); + MCLabel l_end = emit_label(as); + emit_movtomro(as, tmp, tab, offsetof(GCtab, gclist)); + emit_setgl(as, tab, gc.grayagain); + emit_getgl(as, tmp, gc.grayagain); + emit_i8(as, ~LJ_GC_BLACK); + emit_rmro(as, XO_ARITHib, XOg_AND, tab, offsetof(GCtab, marked)); + emit_sjcc(as, CC_Z, l_end); + emit_i8(as, LJ_GC_BLACK); + emit_rmro(as, XO_GROUP3b, XOg_TEST, tab, offsetof(GCtab, marked)); +} + +static void asm_obar(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; + IRRef args[2]; + MCLabel l_end; + Reg obj; + /* No need for other object barriers (yet). */ + lua_assert(IR(ir->op1)->o == IR_UREFC); + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ir->op1; /* TValue *tv */ + asm_gencall(as, ci, args); + emit_loada(as, ra_releasetmp(as, ASMREF_TMP1), J2G(as->J)); + obj = IR(ir->op1)->r; + emit_sjcc(as, CC_Z, l_end); + emit_i8(as, LJ_GC_WHITES); + if (irref_isk(ir->op2)) { + GCobj *vp = ir_kgc(IR(ir->op2)); + emit_rma(as, XO_GROUP3b, XOg_TEST, &vp->gch.marked); + } else { + Reg val = ra_alloc1(as, ir->op2, rset_exclude(RSET_SCRATCH&RSET_GPR, obj)); + emit_rmro(as, XO_GROUP3b, XOg_TEST, val, (int32_t)offsetof(GChead, marked)); + } + emit_sjcc(as, CC_Z, l_end); + emit_i8(as, LJ_GC_BLACK); + emit_rmro(as, XO_GROUP3b, XOg_TEST, obj, + (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); +} + +/* -- FP/int arithmetic and logic operations ------------------------------ */ + +/* Load reference onto x87 stack. Force a spill to memory if needed. */ +static void asm_x87load(ASMState *as, IRRef ref) +{ + IRIns *ir = IR(ref); + if (ir->o == IR_KNUM) { + cTValue *tv = ir_knum(ir); + if (tvispzero(tv)) /* Use fldz only for +0. */ + emit_x87op(as, XI_FLDZ); + else if (tvispone(tv)) + emit_x87op(as, XI_FLD1); + else + emit_rma(as, XO_FLDq, XOg_FLDq, tv); + } else if (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT && !ra_used(ir) && + !irref_isk(ir->op1) && mayfuse(as, ir->op1)) { + IRIns *iri = IR(ir->op1); + emit_rmro(as, XO_FILDd, XOg_FILDd, RID_ESP, ra_spill(as, iri)); + } else { + emit_mrm(as, XO_FLDq, XOg_FLDq, asm_fuseload(as, ref, RSET_EMPTY)); + } +} + +/* Try to rejoin pow from EXP2, MUL and LOG2 (if still unsplit). */ +static int fpmjoin_pow(ASMState *as, IRIns *ir) +{ + IRIns *irp = IR(ir->op1); + if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { + IRIns *irpp = IR(irp->op1); + if (irpp == ir-2 && irpp->o == IR_FPMATH && + irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM2+1)|RID2RSET(RID_EAX); + IRIns *irx; + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + ra_destreg(as, ir, RID_XMM0); + emit_call(as, lj_vm_pow_sse); + irx = IR(irpp->op1); + if (ra_noreg(irx->r) && ra_gethint(irx->r) == RID_XMM1) + irx->r = RID_INIT; /* Avoid allocating xmm1 for x. */ + ra_left(as, RID_XMM0, irpp->op1); + ra_left(as, RID_XMM1, irp->op2); + return 1; + } + } + return 0; +} + +static void asm_fpmath(ASMState *as, IRIns *ir) +{ + IRFPMathOp fpm = ir->o == IR_FPMATH ? (IRFPMathOp)ir->op2 : IRFPM_OTHER; + if (fpm == IRFPM_SQRT) { + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg left = asm_fuseload(as, ir->op1, RSET_FPR); + emit_mrm(as, XO_SQRTSD, dest, left); + } else if (fpm <= IRFPM_TRUNC) { + if (as->flags & JIT_F_SSE4_1) { /* SSE4.1 has a rounding instruction. */ + Reg dest = ra_dest(as, ir, RSET_FPR); + Reg left = asm_fuseload(as, ir->op1, RSET_FPR); + /* ROUNDSD has a 4-byte opcode which doesn't fit in x86Op. + ** Let's pretend it's a 3-byte opcode, and compensate afterwards. + ** This is atrocious, but the alternatives are much worse. + */ + /* Round down/up/trunc == 1001/1010/1011. */ + emit_i8(as, 0x09 + fpm); + emit_mrm(as, XO_ROUNDSD, dest, left); + if (LJ_64 && as->mcp[1] != (MCode)(XO_ROUNDSD >> 16)) { + as->mcp[0] = as->mcp[1]; as->mcp[1] = 0x0f; /* Swap 0F and REX. */ + } + *--as->mcp = 0x66; /* 1st byte of ROUNDSD opcode. */ + } else { /* Call helper functions for SSE2 variant. */ + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + ra_destreg(as, ir, RID_XMM0); + emit_call(as, fpm == IRFPM_FLOOR ? lj_vm_floor_sse : + fpm == IRFPM_CEIL ? lj_vm_ceil_sse : lj_vm_trunc_sse); + ra_left(as, RID_XMM0, ir->op1); + } + } else if (fpm == IRFPM_EXP2 && fpmjoin_pow(as, ir)) { + /* Rejoined to pow(). */ + } else { /* Handle x87 ops. */ + int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_rmro(as, XMM_MOVRM(as), dest, RID_ESP, ofs); + } + emit_rmro(as, XO_FSTPq, XOg_FSTPq, RID_ESP, ofs); + switch (fpm) { /* st0 = lj_vm_*(st0) */ + case IRFPM_EXP: emit_call(as, lj_vm_exp_x87); break; + case IRFPM_EXP2: emit_call(as, lj_vm_exp2_x87); break; + case IRFPM_SIN: emit_x87op(as, XI_FSIN); break; + case IRFPM_COS: emit_x87op(as, XI_FCOS); break; + case IRFPM_TAN: emit_x87op(as, XI_FPOP); emit_x87op(as, XI_FPTAN); break; + case IRFPM_LOG: case IRFPM_LOG2: case IRFPM_LOG10: + /* Note: the use of fyl2xp1 would be pointless here. When computing + ** log(1.0+eps) the precision is already lost after 1.0 is added. + ** Subtracting 1.0 won't recover it. OTOH math.log1p would make sense. + */ + emit_x87op(as, XI_FYL2X); break; + case IRFPM_OTHER: + switch (ir->o) { + case IR_ATAN2: + emit_x87op(as, XI_FPATAN); asm_x87load(as, ir->op2); break; + case IR_LDEXP: + emit_x87op(as, XI_FPOP1); emit_x87op(as, XI_FSCALE); break; + default: lua_assert(0); break; + } + break; + default: lua_assert(0); break; + } + asm_x87load(as, ir->op1); + switch (fpm) { + case IRFPM_LOG: emit_x87op(as, XI_FLDLN2); break; + case IRFPM_LOG2: emit_x87op(as, XI_FLD1); break; + case IRFPM_LOG10: emit_x87op(as, XI_FLDLG2); break; + case IRFPM_OTHER: + if (ir->o == IR_LDEXP) asm_x87load(as, ir->op2); + break; + default: break; + } + } +} + +static void asm_fppowi(ASMState *as, IRIns *ir) +{ + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM1+1)|RID2RSET(RID_EAX); + if (ra_hasreg(ir->r)) + rset_clear(drop, ir->r); /* Dest reg handled below. */ + ra_evictset(as, drop); + ra_destreg(as, ir, RID_XMM0); + emit_call(as, lj_vm_powi_sse); + ra_left(as, RID_XMM0, ir->op1); + ra_left(as, RID_EAX, ir->op2); +} + +#if LJ_64 && LJ_HASFFI +static void asm_arith64(ASMState *as, IRIns *ir, IRCallID id) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} +#endif + +static void asm_intmod(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_vm_modi]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static int asm_swapops(ASMState *as, IRIns *ir) +{ + IRIns *irl = IR(ir->op1); + IRIns *irr = IR(ir->op2); + lua_assert(ra_noreg(irr->r)); + if (!irm_iscomm(lj_ir_mode[ir->o])) + return 0; /* Can't swap non-commutative operations. */ + if (irref_isk(ir->op2)) + return 0; /* Don't swap constants to the left. */ + if (ra_hasreg(irl->r)) + return 1; /* Swap if left already has a register. */ + if (ra_samehint(ir->r, irr->r)) + return 1; /* Swap if dest and right have matching hints. */ + if (as->curins > as->loopref) { /* In variant part? */ + if (ir->op2 < as->loopref && !irt_isphi(irr->t)) + return 0; /* Keep invariants on the right. */ + if (ir->op1 < as->loopref && !irt_isphi(irl->t)) + return 1; /* Swap invariants to the right. */ + } + if (opisfusableload(irl->o)) + return 1; /* Swap fusable loads to the right. */ + return 0; /* Otherwise don't swap. */ +} + +static void asm_fparith(ASMState *as, IRIns *ir, x86Op xo) +{ + IRRef lref = ir->op1; + IRRef rref = ir->op2; + RegSet allow = RSET_FPR; + Reg dest; + Reg right = IR(rref)->r; + if (ra_hasreg(right)) { + rset_clear(allow, right); + ra_noweak(as, right); + } + dest = ra_dest(as, ir, allow); + if (lref == rref) { + right = dest; + } else if (ra_noreg(right)) { + if (asm_swapops(as, ir)) { + IRRef tmp = lref; lref = rref; rref = tmp; + } + right = asm_fuseload(as, rref, rset_clear(allow, dest)); + } + emit_mrm(as, xo, dest, right); + ra_left(as, dest, lref); +} + +static void asm_intarith(ASMState *as, IRIns *ir, x86Arith xa) +{ + IRRef lref = ir->op1; + IRRef rref = ir->op2; + RegSet allow = RSET_GPR; + Reg dest, right; + int32_t k = 0; + if (as->flagmcp == as->mcp) { /* Drop test r,r instruction. */ + as->flagmcp = NULL; + as->mcp += (LJ_64 && *as->mcp < XI_TESTb) ? 3 : 2; + } + right = IR(rref)->r; + if (ra_hasreg(right)) { + rset_clear(allow, right); + ra_noweak(as, right); + } + dest = ra_dest(as, ir, allow); + if (lref == rref) { + right = dest; + } else if (ra_noreg(right) && !asm_isk32(as, rref, &k)) { + if (asm_swapops(as, ir)) { + IRRef tmp = lref; lref = rref; rref = tmp; + } + right = asm_fuseloadm(as, rref, rset_clear(allow, dest), irt_is64(ir->t)); + } + if (irt_isguard(ir->t)) /* For IR_ADDOV etc. */ + asm_guardcc(as, CC_O); + if (xa != XOg_X_IMUL) { + if (ra_hasreg(right)) + emit_mrm(as, XO_ARITH(xa), REX_64IR(ir, dest), right); + else + emit_gri(as, XG_ARITHi(xa), REX_64IR(ir, dest), k); + } else if (ra_hasreg(right)) { /* IMUL r, mrm. */ + emit_mrm(as, XO_IMUL, REX_64IR(ir, dest), right); + } else { /* IMUL r, r, k. */ + /* NYI: use lea/shl/add/sub (FOLD only does 2^k) depending on CPU. */ + Reg left = asm_fuseloadm(as, lref, RSET_GPR, irt_is64(ir->t)); + x86Op xo; + if (checki8(k)) { emit_i8(as, k); xo = XO_IMULi8; + } else { emit_i32(as, k); xo = XO_IMULi; } + emit_mrm(as, xo, REX_64IR(ir, dest), left); + return; + } + ra_left(as, dest, lref); +} + +/* LEA is really a 4-operand ADD with an independent destination register, +** up to two source registers and an immediate. One register can be scaled +** by 1, 2, 4 or 8. This can be used to avoid moves or to fuse several +** instructions. +** +** Currently only a few common cases are supported: +** - 3-operand ADD: y = a+b; y = a+k with a and b already allocated +** - Left ADD fusion: y = (a+b)+k; y = (a+k)+b +** - Right ADD fusion: y = a+(b+k) +** The ommited variants have already been reduced by FOLD. +** +** There are more fusion opportunities, like gathering shifts or joining +** common references. But these are probably not worth the trouble, since +** array indexing is not decomposed and already makes use of all fields +** of the ModRM operand. +*/ +static int asm_lea(ASMState *as, IRIns *ir) +{ + IRIns *irl = IR(ir->op1); + IRIns *irr = IR(ir->op2); + RegSet allow = RSET_GPR; + Reg dest; + as->mrm.base = as->mrm.idx = RID_NONE; + as->mrm.scale = XM_SCALE1; + as->mrm.ofs = 0; + if (ra_hasreg(irl->r)) { + rset_clear(allow, irl->r); + ra_noweak(as, irl->r); + as->mrm.base = irl->r; + if (irref_isk(ir->op2) || ra_hasreg(irr->r)) { + /* The PHI renaming logic does a better job in some cases. */ + if (ra_hasreg(ir->r) && + ((irt_isphi(irl->t) && as->phireg[ir->r] == ir->op1) || + (irt_isphi(irr->t) && as->phireg[ir->r] == ir->op2))) + return 0; + if (irref_isk(ir->op2)) { + as->mrm.ofs = irr->i; + } else { + rset_clear(allow, irr->r); + ra_noweak(as, irr->r); + as->mrm.idx = irr->r; + } + } else if (irr->o == IR_ADD && mayfuse(as, ir->op2) && + irref_isk(irr->op2)) { + Reg idx = ra_alloc1(as, irr->op1, allow); + rset_clear(allow, idx); + as->mrm.idx = (uint8_t)idx; + as->mrm.ofs = IR(irr->op2)->i; + } else { + return 0; + } + } else if (ir->op1 != ir->op2 && irl->o == IR_ADD && mayfuse(as, ir->op1) && + (irref_isk(ir->op2) || irref_isk(irl->op2))) { + Reg idx, base = ra_alloc1(as, irl->op1, allow); + rset_clear(allow, base); + as->mrm.base = (uint8_t)base; + if (irref_isk(ir->op2)) { + as->mrm.ofs = irr->i; + idx = ra_alloc1(as, irl->op2, allow); + } else { + as->mrm.ofs = IR(irl->op2)->i; + idx = ra_alloc1(as, ir->op2, allow); + } + rset_clear(allow, idx); + as->mrm.idx = (uint8_t)idx; + } else { + return 0; + } + dest = ra_dest(as, ir, allow); + emit_mrm(as, XO_LEA, dest, RID_MRM); + return 1; /* Success. */ +} + +static void asm_add(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_ADDSD); + else if ((as->flags & JIT_F_LEA_AGU) || as->flagmcp == as->mcp || + irt_is64(ir->t) || !asm_lea(as, ir)) + asm_intarith(as, ir, XOg_ADD); +} + +static void asm_neg_not(ASMState *as, IRIns *ir, x86Group3 xg) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + emit_rr(as, XO_GROUP3, REX_64IR(ir, xg), dest); + ra_left(as, dest, ir->op1); +} + +static void asm_min_max(ASMState *as, IRIns *ir, int cc) +{ + Reg right, dest = ra_dest(as, ir, RSET_GPR); + IRRef lref = ir->op1, rref = ir->op2; + if (irref_isk(rref)) { lref = rref; rref = ir->op1; } + right = ra_alloc1(as, rref, rset_exclude(RSET_GPR, dest)); + emit_rr(as, XO_CMOV + (cc<<24), REX_64IR(ir, dest), right); + emit_rr(as, XO_CMP, REX_64IR(ir, dest), right); + ra_left(as, dest, lref); +} + +static void asm_bitswap(ASMState *as, IRIns *ir) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + as->mcp = emit_op(XO_BSWAP + ((dest&7) << 24), + REX_64IR(ir, 0), dest, 0, as->mcp, 1); + ra_left(as, dest, ir->op1); +} + +static void asm_bitshift(ASMState *as, IRIns *ir, x86Shift xs) +{ + IRRef rref = ir->op2; + IRIns *irr = IR(rref); + Reg dest; + if (irref_isk(rref)) { /* Constant shifts. */ + int shift; + dest = ra_dest(as, ir, RSET_GPR); + shift = irr->i & (irt_is64(ir->t) ? 63 : 31); + switch (shift) { + case 0: break; + case 1: emit_rr(as, XO_SHIFT1, REX_64IR(ir, xs), dest); break; + default: emit_shifti(as, REX_64IR(ir, xs), dest, shift); break; + } + } else { /* Variable shifts implicitly use register cl (i.e. ecx). */ + Reg right; + dest = ra_dest(as, ir, rset_exclude(RSET_GPR, RID_ECX)); + if (dest == RID_ECX) { + dest = ra_scratch(as, rset_exclude(RSET_GPR, RID_ECX)); + emit_rr(as, XO_MOV, RID_ECX, dest); + } + right = irr->r; + if (ra_noreg(right)) + right = ra_allocref(as, rref, RID2RSET(RID_ECX)); + else if (right != RID_ECX) + ra_scratch(as, RID2RSET(RID_ECX)); + emit_rr(as, XO_SHIFTcl, REX_64IR(ir, xs), dest); + ra_noweak(as, right); + if (right != RID_ECX) + emit_rr(as, XO_MOV, RID_ECX, right); + } + ra_left(as, dest, ir->op1); + /* + ** Note: avoid using the flags resulting from a shift or rotate! + ** All of them cause a partial flag stall, except for r,1 shifts + ** (but not rotates). And a shift count of 0 leaves the flags unmodified. + */ +} + +/* -- Comparisons --------------------------------------------------------- */ + +/* Virtual flags for unordered FP comparisons. */ +#define VCC_U 0x1000 /* Unordered. */ +#define VCC_P 0x2000 /* Needs extra CC_P branch. */ +#define VCC_S 0x4000 /* Swap avoids CC_P branch. */ +#define VCC_PS (VCC_P|VCC_S) + +/* Map of comparisons to flags. ORDER IR. */ +#define COMPFLAGS(ci, cin, cu, cf) ((ci)+((cu)<<4)+((cin)<<8)+(cf)) +static const uint16_t asm_compmap[IR_ABC+1] = { + /* signed non-eq unsigned flags */ + /* LT */ COMPFLAGS(CC_GE, CC_G, CC_AE, VCC_PS), + /* GE */ COMPFLAGS(CC_L, CC_L, CC_B, 0), + /* LE */ COMPFLAGS(CC_G, CC_G, CC_A, VCC_PS), + /* GT */ COMPFLAGS(CC_LE, CC_L, CC_BE, 0), + /* ULT */ COMPFLAGS(CC_AE, CC_A, CC_AE, VCC_U), + /* UGE */ COMPFLAGS(CC_B, CC_B, CC_B, VCC_U|VCC_PS), + /* ULE */ COMPFLAGS(CC_A, CC_A, CC_A, VCC_U), + /* UGT */ COMPFLAGS(CC_BE, CC_B, CC_BE, VCC_U|VCC_PS), + /* EQ */ COMPFLAGS(CC_NE, CC_NE, CC_NE, VCC_P), + /* NE */ COMPFLAGS(CC_E, CC_E, CC_E, VCC_U|VCC_P), + /* ABC */ COMPFLAGS(CC_BE, CC_B, CC_BE, VCC_U|VCC_PS) /* Same as UGT. */ +}; + +/* FP and integer comparisons. */ +static void asm_comp(ASMState *as, IRIns *ir, uint32_t cc) +{ + if (irt_isnum(ir->t)) { + IRRef lref = ir->op1; + IRRef rref = ir->op2; + Reg left, right; + MCLabel l_around; + /* + ** An extra CC_P branch is required to preserve ordered/unordered + ** semantics for FP comparisons. This can be avoided by swapping + ** the operands and inverting the condition (except for EQ and UNE). + ** So always try to swap if possible. + ** + ** Another option would be to swap operands to achieve better memory + ** operand fusion. But it's unlikely that this outweighs the cost + ** of the extra branches. + */ + if (cc & VCC_S) { /* Swap? */ + IRRef tmp = lref; lref = rref; rref = tmp; + cc ^= (VCC_PS|(5<<4)); /* A <-> B, AE <-> BE, PS <-> none */ + } + left = ra_alloc1(as, lref, RSET_FPR); + right = asm_fuseload(as, rref, rset_exclude(RSET_FPR, left)); + l_around = emit_label(as); + asm_guardcc(as, cc >> 4); + if (cc & VCC_P) { /* Extra CC_P branch required? */ + if (!(cc & VCC_U)) { + asm_guardcc(as, CC_P); /* Branch to exit for ordered comparisons. */ + } else if (l_around != as->invmcp) { + emit_sjcc(as, CC_P, l_around); /* Branch around for unordered. */ + } else { + /* Patched to mcloop by asm_loop_fixup. */ + as->loopinv = 2; + if (as->realign) + emit_sjcc(as, CC_P, as->mcp); + else + emit_jcc(as, CC_P, as->mcp); + } + } + emit_mrm(as, XO_UCOMISD, left, right); + } else { + IRRef lref = ir->op1, rref = ir->op2; + IROp leftop = (IROp)(IR(lref)->o); + Reg r64 = REX_64IR(ir, 0); + int32_t imm = 0; + lua_assert(irt_is64(ir->t) || irt_isint(ir->t) || + irt_isu32(ir->t) || irt_isaddr(ir->t) || irt_isu8(ir->t)); + /* Swap constants (only for ABC) and fusable loads to the right. */ + if (irref_isk(lref) || (!irref_isk(rref) && opisfusableload(leftop))) { + if ((cc & 0xc) == 0xc) cc ^= 0x53; /* L <-> G, LE <-> GE */ + else if ((cc & 0xa) == 0x2) cc ^= 0x55; /* A <-> B, AE <-> BE */ + lref = ir->op2; rref = ir->op1; + } + if (asm_isk32(as, rref, &imm)) { + IRIns *irl = IR(lref); + /* Check wether we can use test ins. Not for unsigned, since CF=0. */ + int usetest = (imm == 0 && (cc & 0xa) != 0x2); + if (usetest && irl->o == IR_BAND && irl+1 == ir && !ra_used(irl)) { + /* Combine comp(BAND(ref, r/imm), 0) into test mrm, r/imm. */ + Reg right, left = RID_NONE; + RegSet allow = RSET_GPR; + if (!asm_isk32(as, irl->op2, &imm)) { + left = ra_alloc1(as, irl->op2, allow); + rset_clear(allow, left); + } else { /* Try to Fuse IRT_I8/IRT_U8 loads, too. See below. */ + IRIns *irll = IR(irl->op1); + if (opisfusableload((IROp)irll->o) && + (irt_isi8(irll->t) || irt_isu8(irll->t))) { + IRType1 origt = irll->t; /* Temporarily flip types. */ + irll->t.irt = (irll->t.irt & ~IRT_TYPE) | IRT_INT; + as->curins--; /* Skip to BAND to avoid failing in noconflict(). */ + right = asm_fuseload(as, irl->op1, RSET_GPR); + as->curins++; + irll->t = origt; + if (right != RID_MRM) goto test_nofuse; + /* Fusion succeeded, emit test byte mrm, imm8. */ + asm_guardcc(as, cc); + emit_i8(as, (imm & 0xff)); + emit_mrm(as, XO_GROUP3b, XOg_TEST, RID_MRM); + return; + } + } + as->curins--; /* Skip to BAND to avoid failing in noconflict(). */ + right = asm_fuseloadm(as, irl->op1, allow, r64); + as->curins++; /* Undo the above. */ + test_nofuse: + asm_guardcc(as, cc); + if (ra_noreg(left)) { + emit_i32(as, imm); + emit_mrm(as, XO_GROUP3, r64 + XOg_TEST, right); + } else { + emit_mrm(as, XO_TEST, r64 + left, right); + } + } else { + Reg left; + if (opisfusableload((IROp)irl->o) && + ((irt_isu8(irl->t) && checku8(imm)) || + ((irt_isi8(irl->t) || irt_isi16(irl->t)) && checki8(imm)) || + (irt_isu16(irl->t) && checku16(imm) && checki8((int16_t)imm)))) { + /* Only the IRT_INT case is fused by asm_fuseload. + ** The IRT_I8/IRT_U8 loads and some IRT_I16/IRT_U16 loads + ** are handled here. + ** Note that cmp word [mem], imm16 should not be generated, + ** since it has a length-changing prefix. Compares of a word + ** against a sign-extended imm8 are ok, however. + */ + IRType1 origt = irl->t; /* Temporarily flip types. */ + irl->t.irt = (irl->t.irt & ~IRT_TYPE) | IRT_INT; + left = asm_fuseload(as, lref, RSET_GPR); + irl->t = origt; + if (left == RID_MRM) { /* Fusion succeeded? */ + if (irt_isu8(irl->t) || irt_isu16(irl->t)) + cc >>= 4; /* Need unsigned compare. */ + asm_guardcc(as, cc); + emit_i8(as, imm); + emit_mrm(as, (irt_isi8(origt) || irt_isu8(origt)) ? + XO_ARITHib : XO_ARITHiw8, r64 + XOg_CMP, RID_MRM); + return; + } /* Otherwise handle register case as usual. */ + } else { + left = asm_fuseloadm(as, lref, + irt_isu8(ir->t) ? RSET_GPR8 : RSET_GPR, r64); + } + asm_guardcc(as, cc); + if (usetest && left != RID_MRM) { + /* Use test r,r instead of cmp r,0. */ + x86Op xo = XO_TEST; + if (irt_isu8(ir->t)) { + lua_assert(ir->o == IR_EQ || ir->o == IR_NE); + xo = XO_TESTb; + if (!rset_test(RSET_RANGE(RID_EAX, RID_EBX+1), left)) { + if (LJ_64) { + left |= FORCE_REX; + } else { + emit_i32(as, 0xff); + emit_mrm(as, XO_GROUP3, XOg_TEST, left); + return; + } + } + } + emit_rr(as, xo, r64 + left, left); + if (irl+1 == ir) /* Referencing previous ins? */ + as->flagmcp = as->mcp; /* Set flag to drop test r,r if possible. */ + } else { + emit_gmrmi(as, XG_ARITHi(XOg_CMP), r64 + left, imm); + } + } + } else { + Reg left = ra_alloc1(as, lref, RSET_GPR); + Reg right = asm_fuseloadm(as, rref, rset_exclude(RSET_GPR, left), r64); + asm_guardcc(as, cc); + emit_mrm(as, XO_CMP, r64 + left, right); + } + } +} + +#if LJ_32 && LJ_HASFFI +/* 64 bit integer comparisons in 32 bit mode. */ +static void asm_comp_int64(ASMState *as, IRIns *ir) +{ + uint32_t cc = asm_compmap[(ir-1)->o]; + RegSet allow = RSET_GPR; + Reg lefthi = RID_NONE, leftlo = RID_NONE; + Reg righthi = RID_NONE, rightlo = RID_NONE; + MCLabel l_around; + x86ModRM mrm; + + as->curins--; /* Skip loword ins. Avoids failing in noconflict(), too. */ + + /* Allocate/fuse hiword operands. */ + if (irref_isk(ir->op2)) { + lefthi = asm_fuseload(as, ir->op1, allow); + } else { + lefthi = ra_alloc1(as, ir->op1, allow); + rset_clear(allow, lefthi); + righthi = asm_fuseload(as, ir->op2, allow); + if (righthi == RID_MRM) { + if (as->mrm.base != RID_NONE) rset_clear(allow, as->mrm.base); + if (as->mrm.idx != RID_NONE) rset_clear(allow, as->mrm.idx); + } else { + rset_clear(allow, righthi); + } + } + mrm = as->mrm; /* Save state for hiword instruction. */ + + /* Allocate/fuse loword operands. */ + if (irref_isk((ir-1)->op2)) { + leftlo = asm_fuseload(as, (ir-1)->op1, allow); + } else { + leftlo = ra_alloc1(as, (ir-1)->op1, allow); + rset_clear(allow, leftlo); + rightlo = asm_fuseload(as, (ir-1)->op2, allow); + } + + /* All register allocations must be performed _before_ this point. */ + l_around = emit_label(as); + as->invmcp = as->flagmcp = NULL; /* Cannot use these optimizations. */ + + /* Loword comparison and branch. */ + asm_guardcc(as, cc >> 4); /* Always use unsigned compare for loword. */ + if (ra_noreg(rightlo)) { + int32_t imm = IR((ir-1)->op2)->i; + if (imm == 0 && ((cc >> 4) & 0xa) != 0x2 && leftlo != RID_MRM) + emit_rr(as, XO_TEST, leftlo, leftlo); + else + emit_gmrmi(as, XG_ARITHi(XOg_CMP), leftlo, imm); + } else { + emit_mrm(as, XO_CMP, leftlo, rightlo); + } + + /* Hiword comparison and branches. */ + if ((cc & 15) != CC_NE) + emit_sjcc(as, CC_NE, l_around); /* Hiword unequal: skip loword compare. */ + if ((cc & 15) != CC_E) + asm_guardcc(as, cc >> 8); /* Hiword compare without equality check. */ + as->mrm = mrm; /* Restore state. */ + if (ra_noreg(righthi)) { + int32_t imm = IR(ir->op2)->i; + if (imm == 0 && (cc & 0xa) != 0x2 && lefthi != RID_MRM) + emit_rr(as, XO_TEST, lefthi, lefthi); + else + emit_gmrmi(as, XG_ARITHi(XOg_CMP), lefthi, imm); + } else { + emit_mrm(as, XO_CMP, lefthi, righthi); + } +} +#endif + +/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ + +/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ +static void asm_hiop(ASMState *as, IRIns *ir) +{ +#if LJ_32 && LJ_HASFFI + /* HIOP is marked as a store because it needs its own DCE logic. */ + int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ + if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; + if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ + if (usehi || uselo) { + if (irt_isfp(ir->t)) + asm_conv_fp_int64(as, ir); + else + asm_conv_int64_fp(as, ir); + } + as->curins--; /* Always skip the CONV. */ + return; + } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ + asm_comp_int64(as, ir); + return; + } else if ((ir-1)->o == IR_XSTORE) { + if ((ir-1)->r != RID_SINK) + asm_fxstore(as, ir); + return; + } + if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ + switch ((ir-1)->o) { + case IR_ADD: + as->flagmcp = NULL; + as->curins--; + asm_intarith(as, ir, XOg_ADC); + asm_intarith(as, ir-1, XOg_ADD); + break; + case IR_SUB: + as->flagmcp = NULL; + as->curins--; + asm_intarith(as, ir, XOg_SBB); + asm_intarith(as, ir-1, XOg_SUB); + break; + case IR_NEG: { + Reg dest = ra_dest(as, ir, RSET_GPR); + emit_rr(as, XO_GROUP3, XOg_NEG, dest); + emit_i8(as, 0); + emit_rr(as, XO_ARITHi8, XOg_ADC, dest); + ra_left(as, dest, ir->op1); + as->curins--; + asm_neg_not(as, ir-1, XOg_NEG); + break; + } + case IR_CALLN: + case IR_CALLXS: + if (!uselo) + ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ + break; + case IR_CNEWI: + /* Nothing to do here. Handled by CNEWI itself. */ + break; + default: lua_assert(0); break; + } +#else + UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused on x64 or without FFI. */ +#endif +} + +/* -- Stack handling ------------------------------------------------------ */ + +/* Check Lua stack size for overflow. Use exit handler as fallback. */ +static void asm_stack_check(ASMState *as, BCReg topslot, + IRIns *irp, RegSet allow, ExitNo exitno) +{ + /* Try to get an unused temp. register, otherwise spill/restore eax. */ + Reg pbase = irp ? irp->r : RID_BASE; + Reg r = allow ? rset_pickbot(allow) : RID_EAX; + emit_jcc(as, CC_B, exitstub_addr(as->J, exitno)); + if (allow == RSET_EMPTY) /* Restore temp. register. */ + emit_rmro(as, XO_MOV, r|REX_64, RID_ESP, 0); + else + ra_modified(as, r); + emit_gri(as, XG_ARITHi(XOg_CMP), r, (int32_t)(8*topslot)); + if (ra_hasreg(pbase) && pbase != r) + emit_rr(as, XO_ARITH(XOg_SUB), r, pbase); + else + emit_rmro(as, XO_ARITH(XOg_SUB), r, RID_NONE, + ptr2addr(&J2G(as->J)->jit_base)); + emit_rmro(as, XO_MOV, r, r, offsetof(lua_State, maxstack)); + emit_getgl(as, r, jit_L); + if (allow == RSET_EMPTY) /* Spill temp. register. */ + emit_rmro(as, XO_MOVto, r|REX_64, RID_ESP, 0); +} + +/* Restore Lua stack from on-trace state. */ +static void asm_stack_restore(ASMState *as, SnapShot *snap) +{ + SnapEntry *map = &as->T->snapmap[snap->mapofs]; + SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; + MSize n, nent = snap->nent; + /* Store the value of all modified slots to the Lua stack. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + BCReg s = snap_slot(sn); + int32_t ofs = 8*((int32_t)s-1); + IRRef ref = snap_ref(sn); + IRIns *ir = IR(ref); + if ((sn & SNAP_NORESTORE)) + continue; + if (irt_isnum(ir->t)) { + Reg src = ra_alloc1(as, ref, RSET_FPR); + emit_rmro(as, XO_MOVSDto, src, RID_BASE, ofs); + } else { + lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || + (LJ_DUALNUM && irt_isinteger(ir->t))); + if (!irref_isk(ref)) { + Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPR, RID_BASE)); + emit_movtomro(as, REX_64IR(ir, src), RID_BASE, ofs); + } else if (!irt_ispri(ir->t)) { + emit_movmroi(as, RID_BASE, ofs, ir->i); + } + if ((sn & (SNAP_CONT|SNAP_FRAME))) { + if (s != 0) /* Do not overwrite link to previous frame. */ + emit_movmroi(as, RID_BASE, ofs+4, (int32_t)(*flinks--)); + } else { + if (!(LJ_64 && irt_islightud(ir->t))) + emit_movmroi(as, RID_BASE, ofs+4, irt_toitype(ir->t)); + } + } + checkmclim(as); + } + lua_assert(map + nent == flinks); +} + +/* -- GC handling --------------------------------------------------------- */ + +/* Check GC threshold and do one or more GC steps. */ +static void asm_gc_check(ASMState *as) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; + IRRef args[2]; + MCLabel l_end; + Reg tmp; + ra_evictset(as, RSET_SCRATCH); + l_end = emit_label(as); + /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ + asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ + emit_rr(as, XO_TEST, RID_RET, RID_RET); + args[0] = ASMREF_TMP1; /* global_State *g */ + args[1] = ASMREF_TMP2; /* MSize steps */ + asm_gencall(as, ci, args); + tmp = ra_releasetmp(as, ASMREF_TMP1); + emit_loada(as, tmp, J2G(as->J)); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP2), as->gcsteps); + /* Jump around GC step if GC total < GC threshold. */ + emit_sjcc(as, CC_B, l_end); + emit_opgl(as, XO_ARITH(XOg_CMP), tmp, gc.threshold); + emit_getgl(as, tmp, gc.total); + as->gcsteps = 0; + checkmclim(as); +} + +/* -- Loop handling ------------------------------------------------------- */ + +/* Fixup the loop branch. */ +static void asm_loop_fixup(ASMState *as) +{ + MCode *p = as->mctop; + MCode *target = as->mcp; + if (as->realign) { /* Realigned loops use short jumps. */ + as->realign = NULL; /* Stop another retry. */ + lua_assert(((intptr_t)target & 15) == 0); + if (as->loopinv) { /* Inverted loop branch? */ + p -= 5; + p[0] = XI_JMP; + lua_assert(target - p >= -128); + p[-1] = (MCode)(target - p); /* Patch sjcc. */ + if (as->loopinv == 2) + p[-3] = (MCode)(target - p + 2); /* Patch opt. short jp. */ + } else { + lua_assert(target - p >= -128); + p[-1] = (MCode)(int8_t)(target - p); /* Patch short jmp. */ + p[-2] = XI_JMPs; + } + } else { + MCode *newloop; + p[-5] = XI_JMP; + if (as->loopinv) { /* Inverted loop branch? */ + /* asm_guardcc already inverted the jcc and patched the jmp. */ + p -= 5; + newloop = target+4; + *(int32_t *)(p-4) = (int32_t)(target - p); /* Patch jcc. */ + if (as->loopinv == 2) { + *(int32_t *)(p-10) = (int32_t)(target - p + 6); /* Patch opt. jp. */ + newloop = target+8; + } + } else { /* Otherwise just patch jmp. */ + *(int32_t *)(p-4) = (int32_t)(target - p); + newloop = target+3; + } + /* Realign small loops and shorten the loop branch. */ + if (newloop >= p - 128) { + as->realign = newloop; /* Force a retry and remember alignment. */ + as->curins = as->stopins; /* Abort asm_trace now. */ + as->T->nins = as->orignins; /* Remove any added renames. */ + } + } +} + +/* -- Head of trace ------------------------------------------------------- */ + +/* Coalesce BASE register for a root trace. */ +static void asm_head_root_base(ASMState *as) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (r != RID_BASE) + emit_rr(as, XO_MOV, r, RID_BASE); + } +} + +/* Coalesce or reload BASE register for a side trace. */ +static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) +{ + IRIns *ir = IR(REF_BASE); + Reg r = ir->r; + if (ra_hasreg(r)) { + ra_free(as, r); + if (rset_test(as->modset, r) || irt_ismarked(ir->t)) + ir->r = RID_INIT; /* No inheritance for modified BASE register. */ + if (irp->r == r) { + rset_clear(allow, r); /* Mark same BASE register as coalesced. */ + } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { + rset_clear(allow, irp->r); + emit_rr(as, XO_MOV, r, irp->r); /* Move from coalesced parent reg. */ + } else { + emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ + } + } + return allow; +} + +/* -- Tail of trace ------------------------------------------------------- */ + +/* Fixup the tail code. */ +static void asm_tail_fixup(ASMState *as, TraceNo lnk) +{ + /* Note: don't use as->mcp swap + emit_*: emit_op overwrites more bytes. */ + MCode *p = as->mctop; + MCode *target, *q; + int32_t spadj = as->T->spadjust; + if (spadj == 0) { + p -= ((as->flags & JIT_F_LEA_AGU) ? 7 : 6) + (LJ_64 ? 1 : 0); + } else { + MCode *p1; + /* Patch stack adjustment. */ + if (checki8(spadj)) { + p -= 3; + p1 = p-6; + *p1 = (MCode)spadj; + } else { + p1 = p-9; + *(int32_t *)p1 = spadj; + } + if ((as->flags & JIT_F_LEA_AGU)) { +#if LJ_64 + p1[-4] = 0x48; +#endif + p1[-3] = (MCode)XI_LEA; + p1[-2] = MODRM(checki8(spadj) ? XM_OFS8 : XM_OFS32, RID_ESP, RID_ESP); + p1[-1] = MODRM(XM_SCALE1, RID_ESP, RID_ESP); + } else { +#if LJ_64 + p1[-3] = 0x48; +#endif + p1[-2] = (MCode)(checki8(spadj) ? XI_ARITHi8 : XI_ARITHi); + p1[-1] = MODRM(XM_REG, XOg_ADD, RID_ESP); + } + } + /* Patch exit branch. */ + target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; + *(int32_t *)(p-4) = jmprel(p, target); + p[-5] = XI_JMP; + /* Drop unused mcode tail. Fill with NOPs to make the prefetcher happy. */ + for (q = as->mctop-1; q >= p; q--) + *q = XI_NOP; + as->mctop = p; +} + +/* Prepare tail of code. */ +static void asm_tail_prep(ASMState *as) +{ + MCode *p = as->mctop; + /* Realign and leave room for backwards loop branch or exit branch. */ + if (as->realign) { + int i = ((int)(intptr_t)as->realign) & 15; + /* Fill unused mcode tail with NOPs to make the prefetcher happy. */ + while (i-- > 0) + *--p = XI_NOP; + as->mctop = p; + p -= (as->loopinv ? 5 : 2); /* Space for short/near jmp. */ + } else { + p -= 5; /* Space for exit branch (near jmp). */ + } + if (as->loopref) { + as->invmcp = as->mcp = p; + } else { + /* Leave room for ESP adjustment: add esp, imm or lea esp, [esp+imm] */ + as->mcp = p - (((as->flags & JIT_F_LEA_AGU) ? 7 : 6) + (LJ_64 ? 1 : 0)); + as->invmcp = NULL; + } +} + +/* -- Instruction dispatch ------------------------------------------------ */ + +/* Assemble a single instruction. */ +static void asm_ir(ASMState *as, IRIns *ir) +{ + switch ((IROp)ir->o) { + /* Miscellaneous ops. */ + case IR_LOOP: asm_loop(as); break; + case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; + case IR_USE: + ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; + case IR_PHI: asm_phi(as, ir); break; + case IR_HIOP: asm_hiop(as, ir); break; + case IR_GCSTEP: asm_gcstep(as, ir); break; + + /* Guarded assertions. */ + case IR_LT: case IR_GE: case IR_LE: case IR_GT: + case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: + case IR_EQ: case IR_NE: case IR_ABC: + asm_comp(as, ir, asm_compmap[ir->o]); + break; + + case IR_RETF: asm_retf(as, ir); break; + + /* Bit ops. */ + case IR_BNOT: asm_neg_not(as, ir, XOg_NOT); break; + case IR_BSWAP: asm_bitswap(as, ir); break; + + case IR_BAND: asm_intarith(as, ir, XOg_AND); break; + case IR_BOR: asm_intarith(as, ir, XOg_OR); break; + case IR_BXOR: asm_intarith(as, ir, XOg_XOR); break; + + case IR_BSHL: asm_bitshift(as, ir, XOg_SHL); break; + case IR_BSHR: asm_bitshift(as, ir, XOg_SHR); break; + case IR_BSAR: asm_bitshift(as, ir, XOg_SAR); break; + case IR_BROL: asm_bitshift(as, ir, XOg_ROL); break; + case IR_BROR: asm_bitshift(as, ir, XOg_ROR); break; + + /* Arithmetic ops. */ + case IR_ADD: asm_add(as, ir); break; + case IR_SUB: + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_SUBSD); + else /* Note: no need for LEA trick here. i-k is encoded as i+(-k). */ + asm_intarith(as, ir, XOg_SUB); + break; + case IR_MUL: + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MULSD); + else + asm_intarith(as, ir, XOg_X_IMUL); + break; + case IR_DIV: +#if LJ_64 && LJ_HASFFI + if (!irt_isnum(ir->t)) + asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : + IRCALL_lj_carith_divu64); + else +#endif + asm_fparith(as, ir, XO_DIVSD); + break; + case IR_MOD: +#if LJ_64 && LJ_HASFFI + if (!irt_isint(ir->t)) + asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : + IRCALL_lj_carith_modu64); + else +#endif + asm_intmod(as, ir); + break; + + case IR_NEG: + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_XORPS); + else + asm_neg_not(as, ir, XOg_NEG); + break; + case IR_ABS: asm_fparith(as, ir, XO_ANDPS); break; + + case IR_MIN: + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MINSD); + else + asm_min_max(as, ir, CC_G); + break; + case IR_MAX: + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MAXSD); + else + asm_min_max(as, ir, CC_L); + break; + + case IR_FPMATH: case IR_ATAN2: case IR_LDEXP: + asm_fpmath(as, ir); + break; + case IR_POW: +#if LJ_64 && LJ_HASFFI + if (!irt_isnum(ir->t)) + asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : + IRCALL_lj_carith_powu64); + else +#endif + asm_fppowi(as, ir); + break; + + /* Overflow-checking arithmetic ops. Note: don't use LEA here! */ + case IR_ADDOV: asm_intarith(as, ir, XOg_ADD); break; + case IR_SUBOV: asm_intarith(as, ir, XOg_SUB); break; + case IR_MULOV: asm_intarith(as, ir, XOg_X_IMUL); break; + + /* Memory references. */ + case IR_AREF: asm_aref(as, ir); break; + case IR_HREF: asm_href(as, ir); break; + case IR_HREFK: asm_hrefk(as, ir); break; + case IR_NEWREF: asm_newref(as, ir); break; + case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; + case IR_FREF: asm_fref(as, ir); break; + case IR_STRREF: asm_strref(as, ir); break; + + /* Loads and stores. */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + asm_ahuvload(as, ir); + break; + case IR_FLOAD: case IR_XLOAD: asm_fxload(as, ir); break; + case IR_SLOAD: asm_sload(as, ir); break; + + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; + case IR_FSTORE: case IR_XSTORE: asm_fxstore(as, ir); break; + + /* Allocations. */ + case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; + case IR_TNEW: asm_tnew(as, ir); break; + case IR_TDUP: asm_tdup(as, ir); break; + case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; + + /* Write barriers. */ + case IR_TBAR: asm_tbar(as, ir); break; + case IR_OBAR: asm_obar(as, ir); break; + + /* Type conversions. */ + case IR_TOBIT: asm_tobit(as, ir); break; + case IR_CONV: asm_conv(as, ir); break; + case IR_TOSTR: asm_tostr(as, ir); break; + case IR_STRTO: asm_strto(as, ir); break; + + /* Calls. */ + case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; + case IR_CALLXS: asm_callx(as, ir); break; + case IR_CARG: break; + + default: + setintV(&as->J->errinfo, ir->o); + lj_trace_err_info(as->J, LJ_TRERR_NYIIR); + break; + } +} + +/* -- Trace setup --------------------------------------------------------- */ + +/* Ensure there are enough stack slots for call arguments. */ +static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) +{ + IRRef args[CCI_NARGS_MAX*2]; + int nslots; + asm_collectargs(as, ir, ci, args); + nslots = asm_count_call_slots(as, ci, args); + if (nslots > as->evenspill) /* Leave room for args in stack slots. */ + as->evenspill = nslots; +#if LJ_64 + return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); +#else + return irt_isfp(ir->t) ? REGSP_INIT : REGSP_HINT(RID_RET); +#endif +} + +/* Target-specific setup. */ +static void asm_setup_target(ASMState *as) +{ + asm_exitstub_setup(as, as->T->nsnap); +} + +/* -- Trace patching ------------------------------------------------------ */ + +/* Patch exit jumps of existing machine code to a new target. */ +void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) +{ + MCode *p = T->mcode; + MCode *mcarea = lj_mcode_patch(J, p, 0); + MSize len = T->szmcode; + MCode *px = exitstub_addr(J, exitno) - 6; + MCode *pe = p+len-6; + uint32_t stateaddr = u32ptr(&J2G(J)->vmstate); + if (len > 5 && p[len-5] == XI_JMP && p+len-6 + *(int32_t *)(p+len-4) == px) + *(int32_t *)(p+len-4) = jmprel(p+len, target); + /* Do not patch parent exit for a stack check. Skip beyond vmstate update. */ + for (; p < pe; p++) + if (*(uint32_t *)(p+(LJ_64 ? 3 : 2)) == stateaddr && p[0] == XI_MOVmi) { + p += LJ_64 ? 11 : 10; + break; + } + lua_assert(p < pe); + for (; p < pe; p++) { + if ((*(uint16_t *)p & 0xf0ff) == 0x800f && p + *(int32_t *)(p+2) == px) { + *(int32_t *)(p+2) = jmprel(p+6, target); + p += 5; + } + } + lj_mcode_sync(T->mcode, T->mcode + T->szmcode); + lj_mcode_patch(J, mcarea, 1); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_bc.c b/src/3rd party/luajit-2.0/src/lj_bc.c new file mode 100644 index 00000000000..a8f444c26e1 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_bc.c @@ -0,0 +1,14 @@ +/* +** Bytecode instruction modes. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_bc_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_bc.h" + +/* Bytecode offsets and bytecode instruction modes. */ +#include "lj_bcdef.h" + diff --git a/src/3rd party/luajit-2.0/src/lj_bc.h b/src/3rd party/luajit-2.0/src/lj_bc.h new file mode 100644 index 00000000000..7436fabfe17 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_bc.h @@ -0,0 +1,261 @@ +/* +** Bytecode instruction format. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_BC_H +#define _LJ_BC_H + +#include "lj_def.h" +#include "lj_arch.h" + +/* Bytecode instruction format, 32 bit wide, fields of 8 or 16 bit: +** +** +----+----+----+----+ +** | B | C | A | OP | Format ABC +** +----+----+----+----+ +** | D | A | OP | Format AD +** +-------------------- +** MSB LSB +** +** In-memory instructions are always stored in host byte order. +*/ + +/* Operand ranges and related constants. */ +#define BCMAX_A 0xff +#define BCMAX_B 0xff +#define BCMAX_C 0xff +#define BCMAX_D 0xffff +#define BCBIAS_J 0x8000 +#define NO_REG BCMAX_A +#define NO_JMP (~(BCPos)0) + +/* Macros to get instruction fields. */ +#define bc_op(i) ((BCOp)((i)&0xff)) +#define bc_a(i) ((BCReg)(((i)>>8)&0xff)) +#define bc_b(i) ((BCReg)((i)>>24)) +#define bc_c(i) ((BCReg)(((i)>>16)&0xff)) +#define bc_d(i) ((BCReg)((i)>>16)) +#define bc_j(i) ((ptrdiff_t)bc_d(i)-BCBIAS_J) + +/* Macros to set instruction fields. */ +#define setbc_byte(p, x, ofs) \ + ((uint8_t *)(p))[LJ_ENDIAN_SELECT(ofs, 3-ofs)] = (uint8_t)(x) +#define setbc_op(p, x) setbc_byte(p, (x), 0) +#define setbc_a(p, x) setbc_byte(p, (x), 1) +#define setbc_b(p, x) setbc_byte(p, (x), 3) +#define setbc_c(p, x) setbc_byte(p, (x), 2) +#define setbc_d(p, x) \ + ((uint16_t *)(p))[LJ_ENDIAN_SELECT(1, 0)] = (uint16_t)(x) +#define setbc_j(p, x) setbc_d(p, (BCPos)((int32_t)(x)+BCBIAS_J)) + +/* Macros to compose instructions. */ +#define BCINS_ABC(o, a, b, c) \ + (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(b)<<24)|((BCIns)(c)<<16)) +#define BCINS_AD(o, a, d) \ + (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(d)<<16)) +#define BCINS_AJ(o, a, j) BCINS_AD(o, a, (BCPos)((int32_t)(j)+BCBIAS_J)) + +/* Bytecode instruction definition. Order matters, see below. +** +** (name, filler, Amode, Bmode, Cmode or Dmode, metamethod) +** +** The opcode name suffixes specify the type for RB/RC or RD: +** V = variable slot +** S = string const +** N = number const +** P = primitive type (~itype) +** B = unsigned byte literal +** M = multiple args/results +*/ +#define BCDEF(_) \ + /* Comparison ops. ORDER OPR. */ \ + _(ISLT, var, ___, var, lt) \ + _(ISGE, var, ___, var, lt) \ + _(ISLE, var, ___, var, le) \ + _(ISGT, var, ___, var, le) \ + \ + _(ISEQV, var, ___, var, eq) \ + _(ISNEV, var, ___, var, eq) \ + _(ISEQS, var, ___, str, eq) \ + _(ISNES, var, ___, str, eq) \ + _(ISEQN, var, ___, num, eq) \ + _(ISNEN, var, ___, num, eq) \ + _(ISEQP, var, ___, pri, eq) \ + _(ISNEP, var, ___, pri, eq) \ + \ + /* Unary test and copy ops. */ \ + _(ISTC, dst, ___, var, ___) \ + _(ISFC, dst, ___, var, ___) \ + _(IST, ___, ___, var, ___) \ + _(ISF, ___, ___, var, ___) \ + \ + /* Unary ops. */ \ + _(MOV, dst, ___, var, ___) \ + _(NOT, dst, ___, var, ___) \ + _(UNM, dst, ___, var, unm) \ + _(LEN, dst, ___, var, len) \ + \ + /* Binary ops. ORDER OPR. VV last, POW must be next. */ \ + _(ADDVN, dst, var, num, add) \ + _(SUBVN, dst, var, num, sub) \ + _(MULVN, dst, var, num, mul) \ + _(DIVVN, dst, var, num, div) \ + _(MODVN, dst, var, num, mod) \ + \ + _(ADDNV, dst, var, num, add) \ + _(SUBNV, dst, var, num, sub) \ + _(MULNV, dst, var, num, mul) \ + _(DIVNV, dst, var, num, div) \ + _(MODNV, dst, var, num, mod) \ + \ + _(ADDVV, dst, var, var, add) \ + _(SUBVV, dst, var, var, sub) \ + _(MULVV, dst, var, var, mul) \ + _(DIVVV, dst, var, var, div) \ + _(MODVV, dst, var, var, mod) \ + \ + _(POW, dst, var, var, pow) \ + _(CAT, dst, rbase, rbase, concat) \ + \ + /* Constant ops. */ \ + _(KSTR, dst, ___, str, ___) \ + _(KCDATA, dst, ___, cdata, ___) \ + _(KSHORT, dst, ___, lits, ___) \ + _(KNUM, dst, ___, num, ___) \ + _(KPRI, dst, ___, pri, ___) \ + _(KNIL, base, ___, base, ___) \ + \ + /* Upvalue and function ops. */ \ + _(UGET, dst, ___, uv, ___) \ + _(USETV, uv, ___, var, ___) \ + _(USETS, uv, ___, str, ___) \ + _(USETN, uv, ___, num, ___) \ + _(USETP, uv, ___, pri, ___) \ + _(UCLO, rbase, ___, jump, ___) \ + _(FNEW, dst, ___, func, gc) \ + \ + /* Table ops. */ \ + _(TNEW, dst, ___, lit, gc) \ + _(TDUP, dst, ___, tab, gc) \ + _(GGET, dst, ___, str, index) \ + _(GSET, var, ___, str, newindex) \ + _(TGETV, dst, var, var, index) \ + _(TGETS, dst, var, str, index) \ + _(TGETB, dst, var, lit, index) \ + _(TSETV, var, var, var, newindex) \ + _(TSETS, var, var, str, newindex) \ + _(TSETB, var, var, lit, newindex) \ + _(TSETM, base, ___, num, newindex) \ + \ + /* Calls and vararg handling. T = tail call. */ \ + _(CALLM, base, lit, lit, call) \ + _(CALL, base, lit, lit, call) \ + _(CALLMT, base, ___, lit, call) \ + _(CALLT, base, ___, lit, call) \ + _(ITERC, base, lit, lit, call) \ + _(ITERN, base, lit, lit, call) \ + _(VARG, base, lit, lit, ___) \ + _(ISNEXT, base, ___, jump, ___) \ + \ + /* Returns. */ \ + _(RETM, base, ___, lit, ___) \ + _(RET, rbase, ___, lit, ___) \ + _(RET0, rbase, ___, lit, ___) \ + _(RET1, rbase, ___, lit, ___) \ + \ + /* Loops and branches. I/J = interp/JIT, I/C/L = init/call/loop. */ \ + _(FORI, base, ___, jump, ___) \ + _(JFORI, base, ___, jump, ___) \ + \ + _(FORL, base, ___, jump, ___) \ + _(IFORL, base, ___, jump, ___) \ + _(JFORL, base, ___, lit, ___) \ + \ + _(ITERL, base, ___, jump, ___) \ + _(IITERL, base, ___, jump, ___) \ + _(JITERL, base, ___, lit, ___) \ + \ + _(LOOP, rbase, ___, jump, ___) \ + _(ILOOP, rbase, ___, jump, ___) \ + _(JLOOP, rbase, ___, lit, ___) \ + \ + _(JMP, rbase, ___, jump, ___) \ + \ + /* Function headers. I/J = interp/JIT, F/V/C = fixarg/vararg/C func. */ \ + _(FUNCF, rbase, ___, ___, ___) \ + _(IFUNCF, rbase, ___, ___, ___) \ + _(JFUNCF, rbase, ___, lit, ___) \ + _(FUNCV, rbase, ___, ___, ___) \ + _(IFUNCV, rbase, ___, ___, ___) \ + _(JFUNCV, rbase, ___, lit, ___) \ + _(FUNCC, rbase, ___, ___, ___) \ + _(FUNCCW, rbase, ___, ___, ___) + +/* Bytecode opcode numbers. */ +typedef enum { +#define BCENUM(name, ma, mb, mc, mt) BC_##name, +BCDEF(BCENUM) +#undef BCENUM + BC__MAX +} BCOp; + +LJ_STATIC_ASSERT((int)BC_ISEQV+1 == (int)BC_ISNEV); +LJ_STATIC_ASSERT(((int)BC_ISEQV^1) == (int)BC_ISNEV); +LJ_STATIC_ASSERT(((int)BC_ISEQS^1) == (int)BC_ISNES); +LJ_STATIC_ASSERT(((int)BC_ISEQN^1) == (int)BC_ISNEN); +LJ_STATIC_ASSERT(((int)BC_ISEQP^1) == (int)BC_ISNEP); +LJ_STATIC_ASSERT(((int)BC_ISLT^1) == (int)BC_ISGE); +LJ_STATIC_ASSERT(((int)BC_ISLE^1) == (int)BC_ISGT); +LJ_STATIC_ASSERT(((int)BC_ISLT^3) == (int)BC_ISGT); +LJ_STATIC_ASSERT((int)BC_IST-(int)BC_ISTC == (int)BC_ISF-(int)BC_ISFC); +LJ_STATIC_ASSERT((int)BC_CALLT-(int)BC_CALL == (int)BC_CALLMT-(int)BC_CALLM); +LJ_STATIC_ASSERT((int)BC_CALLMT + 1 == (int)BC_CALLT); +LJ_STATIC_ASSERT((int)BC_RETM + 1 == (int)BC_RET); +LJ_STATIC_ASSERT((int)BC_FORL + 1 == (int)BC_IFORL); +LJ_STATIC_ASSERT((int)BC_FORL + 2 == (int)BC_JFORL); +LJ_STATIC_ASSERT((int)BC_ITERL + 1 == (int)BC_IITERL); +LJ_STATIC_ASSERT((int)BC_ITERL + 2 == (int)BC_JITERL); +LJ_STATIC_ASSERT((int)BC_LOOP + 1 == (int)BC_ILOOP); +LJ_STATIC_ASSERT((int)BC_LOOP + 2 == (int)BC_JLOOP); +LJ_STATIC_ASSERT((int)BC_FUNCF + 1 == (int)BC_IFUNCF); +LJ_STATIC_ASSERT((int)BC_FUNCF + 2 == (int)BC_JFUNCF); +LJ_STATIC_ASSERT((int)BC_FUNCV + 1 == (int)BC_IFUNCV); +LJ_STATIC_ASSERT((int)BC_FUNCV + 2 == (int)BC_JFUNCV); + +/* This solves a circular dependency problem, change as needed. */ +#define FF_next_N 4 + +/* Stack slots used by FORI/FORL, relative to operand A. */ +enum { + FORL_IDX, FORL_STOP, FORL_STEP, FORL_EXT +}; + +/* Bytecode operand modes. ORDER BCMode */ +typedef enum { + BCMnone, BCMdst, BCMbase, BCMvar, BCMrbase, BCMuv, /* Mode A must be <= 7 */ + BCMlit, BCMlits, BCMpri, BCMnum, BCMstr, BCMtab, BCMfunc, BCMjump, BCMcdata, + BCM_max +} BCMode; +#define BCM___ BCMnone + +#define bcmode_a(op) ((BCMode)(lj_bc_mode[op] & 7)) +#define bcmode_b(op) ((BCMode)((lj_bc_mode[op]>>3) & 15)) +#define bcmode_c(op) ((BCMode)((lj_bc_mode[op]>>7) & 15)) +#define bcmode_d(op) bcmode_c(op) +#define bcmode_hasd(op) ((lj_bc_mode[op] & (15<<3)) == (BCMnone<<3)) +#define bcmode_mm(op) ((MMS)(lj_bc_mode[op]>>11)) + +#define BCMODE(name, ma, mb, mc, mm) \ + (BCM##ma|(BCM##mb<<3)|(BCM##mc<<7)|(MM_##mm<<11)), +#define BCMODE_FF 0 + +static LJ_AINLINE int bc_isret(BCOp op) +{ + return (op == BC_RETM || op == BC_RET || op == BC_RET0 || op == BC_RET1); +} + +LJ_DATA const uint16_t lj_bc_mode[]; +LJ_DATA const uint16_t lj_bc_ofs[]; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_bcdump.h b/src/3rd party/luajit-2.0/src/lj_bcdump.h new file mode 100644 index 00000000000..812d0e15169 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_bcdump.h @@ -0,0 +1,66 @@ +/* +** Bytecode dump definitions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_BCDUMP_H +#define _LJ_BCDUMP_H + +#include "lj_obj.h" +#include "lj_lex.h" + +/* -- Bytecode dump format ------------------------------------------------ */ + +/* +** dump = header proto+ 0U +** header = ESC 'L' 'J' versionB flagsU [namelenU nameB*] +** proto = lengthU pdata +** pdata = phead bcinsW* uvdataH* kgc* knum* [debugB*] +** phead = flagsB numparamsB framesizeB numuvB numkgcU numknU numbcU +** [debuglenU [firstlineU numlineU]] +** kgc = kgctypeU { ktab | (loU hiU) | (rloU rhiU iloU ihiU) | strB* } +** knum = intU0 | (loU1 hiU) +** ktab = narrayU nhashU karray* khash* +** karray = ktabk +** khash = ktabk ktabk +** ktabk = ktabtypeU { intU | (loU hiU) | strB* } +** +** B = 8 bit, H = 16 bit, W = 32 bit, U = ULEB128 of W, U0/U1 = ULEB128 of W+1 +*/ + +/* Bytecode dump header. */ +#define BCDUMP_HEAD1 0x1b +#define BCDUMP_HEAD2 0x4c +#define BCDUMP_HEAD3 0x4a + +/* If you perform *any* kind of private modifications to the bytecode itself +** or to the dump format, you *must* set BCDUMP_VERSION to 0x80 or higher. +*/ +#define BCDUMP_VERSION 1 + +/* Compatibility flags. */ +#define BCDUMP_F_BE 0x01 +#define BCDUMP_F_STRIP 0x02 +#define BCDUMP_F_FFI 0x04 + +#define BCDUMP_F_KNOWN (BCDUMP_F_FFI*2-1) + +/* Type codes for the GC constants of a prototype. Plus length for strings. */ +enum { + BCDUMP_KGC_CHILD, BCDUMP_KGC_TAB, BCDUMP_KGC_I64, BCDUMP_KGC_U64, + BCDUMP_KGC_COMPLEX, BCDUMP_KGC_STR +}; + +/* Type codes for the keys/values of a constant table. */ +enum { + BCDUMP_KTAB_NIL, BCDUMP_KTAB_FALSE, BCDUMP_KTAB_TRUE, + BCDUMP_KTAB_INT, BCDUMP_KTAB_NUM, BCDUMP_KTAB_STR +}; + +/* -- Bytecode reader/writer ---------------------------------------------- */ + +LJ_FUNC int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, + void *data, int strip); +LJ_FUNC GCproto *lj_bcread(LexState *ls); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_bcread.c b/src/3rd party/luajit-2.0/src/lj_bcread.c new file mode 100644 index 00000000000..25859d2fa62 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_bcread.c @@ -0,0 +1,476 @@ +/* +** Bytecode reader. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_bcread_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_bc.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lualib.h" +#endif +#include "lj_lex.h" +#include "lj_bcdump.h" +#include "lj_state.h" + +/* Reuse some lexer fields for our own purposes. */ +#define bcread_flags(ls) ls->level +#define bcread_swap(ls) \ + ((bcread_flags(ls) & BCDUMP_F_BE) != LJ_BE*BCDUMP_F_BE) +#define bcread_oldtop(L, ls) restorestack(L, ls->lastline) +#define bcread_savetop(L, ls, top) \ + ls->lastline = (BCLine)savestack(L, (top)) + +/* -- Input buffer handling ----------------------------------------------- */ + +/* Throw reader error. */ +static LJ_NOINLINE void bcread_error(LexState *ls, ErrMsg em) +{ + lua_State *L = ls->L; + const char *name = ls->chunkarg; + if (*name == BCDUMP_HEAD1) name = "(binary)"; + else if (*name == '@' || *name == '=') name++; + lj_str_pushf(L, "%s: %s", name, err2msg(em)); + lj_err_throw(L, LUA_ERRSYNTAX); +} + +/* Resize input buffer. */ +static void bcread_resize(LexState *ls, MSize len) +{ + if (ls->sb.sz < len) { + MSize sz = ls->sb.sz * 2; + while (len > sz) sz = sz * 2; + lj_str_resizebuf(ls->L, &ls->sb, sz); + /* Caveat: this may change ls->sb.buf which may affect ls->p. */ + } +} + +/* Refill buffer if needed. */ +static LJ_NOINLINE void bcread_fill(LexState *ls, MSize len, int need) +{ + lua_assert(len != 0); + if (len > LJ_MAX_MEM || ls->current < 0) + bcread_error(ls, LJ_ERR_BCBAD); + do { + const char *buf; + size_t size; + if (ls->n) { /* Copy remainder to buffer. */ + if (ls->sb.n) { /* Move down in buffer. */ + lua_assert(ls->p + ls->n == ls->sb.buf + ls->sb.n); + if (ls->n != ls->sb.n) + memmove(ls->sb.buf, ls->p, ls->n); + } else { /* Copy from buffer provided by reader. */ + bcread_resize(ls, len); + memcpy(ls->sb.buf, ls->p, ls->n); + } + ls->p = ls->sb.buf; + } + ls->sb.n = ls->n; + buf = ls->rfunc(ls->L, ls->rdata, &size); /* Get more data from reader. */ + if (buf == NULL || size == 0) { /* EOF? */ + if (need) bcread_error(ls, LJ_ERR_BCBAD); + ls->current = -1; /* Only bad if we get called again. */ + break; + } + if (ls->sb.n) { /* Append to buffer. */ + MSize n = ls->sb.n + (MSize)size; + bcread_resize(ls, n < len ? len : n); + memcpy(ls->sb.buf + ls->sb.n, buf, size); + ls->n = ls->sb.n = n; + ls->p = ls->sb.buf; + } else { /* Return buffer provided by reader. */ + ls->n = (MSize)size; + ls->p = buf; + } + } while (ls->n < len); +} + +/* Need a certain number of bytes. */ +static LJ_AINLINE void bcread_need(LexState *ls, MSize len) +{ + if (LJ_UNLIKELY(ls->n < len)) + bcread_fill(ls, len, 1); +} + +/* Want to read up to a certain number of bytes, but may need less. */ +static LJ_AINLINE void bcread_want(LexState *ls, MSize len) +{ + if (LJ_UNLIKELY(ls->n < len)) + bcread_fill(ls, len, 0); +} + +#define bcread_dec(ls) check_exp(ls->n > 0, ls->n--) +#define bcread_consume(ls, len) check_exp(ls->n >= (len), ls->n -= (len)) + +/* Return memory block from buffer. */ +static uint8_t *bcread_mem(LexState *ls, MSize len) +{ + uint8_t *p = (uint8_t *)ls->p; + bcread_consume(ls, len); + ls->p = (char *)p + len; + return p; +} + +/* Copy memory block from buffer. */ +static void bcread_block(LexState *ls, void *q, MSize len) +{ + memcpy(q, bcread_mem(ls, len), len); +} + +/* Read byte from buffer. */ +static LJ_AINLINE uint32_t bcread_byte(LexState *ls) +{ + bcread_dec(ls); + return (uint32_t)(uint8_t)*ls->p++; +} + +/* Read ULEB128 value from buffer. */ +static uint32_t bcread_uleb128(LexState *ls) +{ + const uint8_t *p = (const uint8_t *)ls->p; + uint32_t v = *p++; + if (LJ_UNLIKELY(v >= 0x80)) { + int sh = 0; + v &= 0x7f; + do { + v |= ((*p & 0x7f) << (sh += 7)); + bcread_dec(ls); + } while (*p++ >= 0x80); + } + bcread_dec(ls); + ls->p = (char *)p; + return v; +} + +/* Read top 32 bits of 33 bit ULEB128 value from buffer. */ +static uint32_t bcread_uleb128_33(LexState *ls) +{ + const uint8_t *p = (const uint8_t *)ls->p; + uint32_t v = (*p++ >> 1); + if (LJ_UNLIKELY(v >= 0x40)) { + int sh = -1; + v &= 0x3f; + do { + v |= ((*p & 0x7f) << (sh += 7)); + bcread_dec(ls); + } while (*p++ >= 0x80); + } + bcread_dec(ls); + ls->p = (char *)p; + return v; +} + +/* -- Bytecode reader ----------------------------------------------------- */ + +/* Read debug info of a prototype. */ +static void bcread_dbg(LexState *ls, GCproto *pt, MSize sizedbg) +{ + void *lineinfo = (void *)proto_lineinfo(pt); + bcread_block(ls, lineinfo, sizedbg); + /* Swap lineinfo if the endianess differs. */ + if (bcread_swap(ls) && pt->numline >= 256) { + MSize i, n = pt->sizebc-1; + if (pt->numline < 65536) { + uint16_t *p = (uint16_t *)lineinfo; + for (i = 0; i < n; i++) p[i] = (uint16_t)((p[i] >> 8)|(p[i] << 8)); + } else { + uint32_t *p = (uint32_t *)lineinfo; + for (i = 0; i < n; i++) p[i] = lj_bswap(p[i]); + } + } +} + +/* Find pointer to varinfo. */ +static const void *bcread_varinfo(GCproto *pt) +{ + const uint8_t *p = proto_uvinfo(pt); + MSize n = pt->sizeuv; + if (n) while (*p++ || --n) ; + return p; +} + +/* Read a single constant key/value of a template table. */ +static void bcread_ktabk(LexState *ls, TValue *o) +{ + MSize tp = bcread_uleb128(ls); + if (tp >= BCDUMP_KTAB_STR) { + MSize len = tp - BCDUMP_KTAB_STR; + const char *p = (const char *)bcread_mem(ls, len); + setstrV(ls->L, o, lj_str_new(ls->L, p, len)); + } else if (tp == BCDUMP_KTAB_INT) { + setintV(o, (int32_t)bcread_uleb128(ls)); + } else if (tp == BCDUMP_KTAB_NUM) { + o->u32.lo = bcread_uleb128(ls); + o->u32.hi = bcread_uleb128(ls); + } else { + lua_assert(tp <= BCDUMP_KTAB_TRUE); + setitype(o, ~tp); + } +} + +/* Read a template table. */ +static GCtab *bcread_ktab(LexState *ls) +{ + MSize narray = bcread_uleb128(ls); + MSize nhash = bcread_uleb128(ls); + GCtab *t = lj_tab_new(ls->L, narray, hsize2hbits(nhash)); + if (narray) { /* Read array entries. */ + MSize i; + TValue *o = tvref(t->array); + for (i = 0; i < narray; i++, o++) + bcread_ktabk(ls, o); + } + if (nhash) { /* Read hash entries. */ + MSize i; + for (i = 0; i < nhash; i++) { + TValue key; + bcread_ktabk(ls, &key); + lua_assert(!tvisnil(&key)); + bcread_ktabk(ls, lj_tab_set(ls->L, t, &key)); + } + } + return t; +} + +/* Read GC constants of a prototype. */ +static void bcread_kgc(LexState *ls, GCproto *pt, MSize sizekgc) +{ + MSize i; + GCRef *kr = mref(pt->k, GCRef) - (ptrdiff_t)sizekgc; + for (i = 0; i < sizekgc; i++, kr++) { + MSize tp = bcread_uleb128(ls); + if (tp >= BCDUMP_KGC_STR) { + MSize len = tp - BCDUMP_KGC_STR; + const char *p = (const char *)bcread_mem(ls, len); + setgcref(*kr, obj2gco(lj_str_new(ls->L, p, len))); + } else if (tp == BCDUMP_KGC_TAB) { + setgcref(*kr, obj2gco(bcread_ktab(ls))); +#if LJ_HASFFI + } else if (tp != BCDUMP_KGC_CHILD) { + CTypeID id = tp == BCDUMP_KGC_COMPLEX ? CTID_COMPLEX_DOUBLE : + tp == BCDUMP_KGC_I64 ? CTID_INT64 : CTID_UINT64; + CTSize sz = tp == BCDUMP_KGC_COMPLEX ? 16 : 8; + GCcdata *cd = lj_cdata_new_(ls->L, id, sz); + TValue *p = (TValue *)cdataptr(cd); + setgcref(*kr, obj2gco(cd)); + p[0].u32.lo = bcread_uleb128(ls); + p[0].u32.hi = bcread_uleb128(ls); + if (tp == BCDUMP_KGC_COMPLEX) { + p[1].u32.lo = bcread_uleb128(ls); + p[1].u32.hi = bcread_uleb128(ls); + } +#endif + } else { + lua_State *L = ls->L; + lua_assert(tp == BCDUMP_KGC_CHILD); + if (L->top <= bcread_oldtop(L, ls)) /* Stack underflow? */ + bcread_error(ls, LJ_ERR_BCBAD); + L->top--; + setgcref(*kr, obj2gco(protoV(L->top))); + } + } +} + +/* Read number constants of a prototype. */ +static void bcread_knum(LexState *ls, GCproto *pt, MSize sizekn) +{ + MSize i; + TValue *o = mref(pt->k, TValue); + for (i = 0; i < sizekn; i++, o++) { + int isnum = (ls->p[0] & 1); + uint32_t lo = bcread_uleb128_33(ls); + if (isnum) { + o->u32.lo = lo; + o->u32.hi = bcread_uleb128(ls); + } else { + setintV(o, lo); + } + } +} + +/* Read bytecode instructions. */ +static void bcread_bytecode(LexState *ls, GCproto *pt, MSize sizebc) +{ + BCIns *bc = proto_bc(pt); + bc[0] = BCINS_AD((pt->flags & PROTO_VARARG) ? BC_FUNCV : BC_FUNCF, + pt->framesize, 0); + bcread_block(ls, bc+1, (sizebc-1)*(MSize)sizeof(BCIns)); + /* Swap bytecode instructions if the endianess differs. */ + if (bcread_swap(ls)) { + MSize i; + for (i = 1; i < sizebc; i++) bc[i] = lj_bswap(bc[i]); + } +} + +/* Read upvalue refs. */ +static void bcread_uv(LexState *ls, GCproto *pt, MSize sizeuv) +{ + if (sizeuv) { + uint16_t *uv = proto_uv(pt); + bcread_block(ls, uv, sizeuv*2); + /* Swap upvalue refs if the endianess differs. */ + if (bcread_swap(ls)) { + MSize i; + for (i = 0; i < sizeuv; i++) + uv[i] = (uint16_t)((uv[i] >> 8)|(uv[i] << 8)); + } + } +} + +/* Read a prototype. */ +static GCproto *bcread_proto(LexState *ls) +{ + GCproto *pt; + MSize framesize, numparams, flags, sizeuv, sizekgc, sizekn, sizebc, sizept; + MSize ofsk, ofsuv, ofsdbg; + MSize sizedbg = 0; + BCLine firstline = 0, numline = 0; + MSize len, startn; + + /* Read length. */ + if (ls->n > 0 && ls->p[0] == 0) { /* Shortcut EOF. */ + ls->n--; ls->p++; + return NULL; + } + bcread_want(ls, 5); + len = bcread_uleb128(ls); + if (!len) return NULL; /* EOF */ + bcread_need(ls, len); + startn = ls->n; + + /* Read prototype header. */ + flags = bcread_byte(ls); + numparams = bcread_byte(ls); + framesize = bcread_byte(ls); + sizeuv = bcread_byte(ls); + sizekgc = bcread_uleb128(ls); + sizekn = bcread_uleb128(ls); + sizebc = bcread_uleb128(ls) + 1; + if (!(bcread_flags(ls) & BCDUMP_F_STRIP)) { + sizedbg = bcread_uleb128(ls); + if (sizedbg) { + firstline = bcread_uleb128(ls); + numline = bcread_uleb128(ls); + } + } + + /* Calculate total size of prototype including all colocated arrays. */ + sizept = (MSize)sizeof(GCproto) + + sizebc*(MSize)sizeof(BCIns) + + sizekgc*(MSize)sizeof(GCRef); + sizept = (sizept + (MSize)sizeof(TValue)-1) & ~((MSize)sizeof(TValue)-1); + ofsk = sizept; sizept += sizekn*(MSize)sizeof(TValue); + ofsuv = sizept; sizept += ((sizeuv+1)&~1)*2; + ofsdbg = sizept; sizept += sizedbg; + + /* Allocate prototype object and initialize its fields. */ + pt = (GCproto *)lj_mem_newgco(ls->L, (MSize)sizept); + pt->gct = ~LJ_TPROTO; + pt->numparams = (uint8_t)numparams; + pt->framesize = (uint8_t)framesize; + pt->sizebc = sizebc; + setmref(pt->k, (char *)pt + ofsk); + setmref(pt->uv, (char *)pt + ofsuv); + pt->sizekgc = 0; /* Set to zero until fully initialized. */ + pt->sizekn = sizekn; + pt->sizept = sizept; + pt->sizeuv = (uint8_t)sizeuv; + pt->flags = (uint8_t)flags; + pt->trace = 0; + setgcref(pt->chunkname, obj2gco(ls->chunkname)); + + /* Close potentially uninitialized gap between bc and kgc. */ + *(uint32_t *)((char *)pt + ofsk - sizeof(GCRef)*(sizekgc+1)) = 0; + + /* Read bytecode instructions and upvalue refs. */ + bcread_bytecode(ls, pt, sizebc); + bcread_uv(ls, pt, sizeuv); + + /* Read constants. */ + bcread_kgc(ls, pt, sizekgc); + pt->sizekgc = sizekgc; + bcread_knum(ls, pt, sizekn); + + /* Read and initialize debug info. */ + pt->firstline = firstline; + pt->numline = numline; + if (sizedbg) { + MSize sizeli = (sizebc-1) << (numline < 256 ? 0 : numline < 65536 ? 1 : 2); + setmref(pt->lineinfo, (char *)pt + ofsdbg); + setmref(pt->uvinfo, (char *)pt + ofsdbg + sizeli); + bcread_dbg(ls, pt, sizedbg); + setmref(pt->varinfo, bcread_varinfo(pt)); + } else { + setmref(pt->lineinfo, NULL); + setmref(pt->uvinfo, NULL); + setmref(pt->varinfo, NULL); + } + + if (len != startn - ls->n) + bcread_error(ls, LJ_ERR_BCBAD); + return pt; +} + +/* Read and check header of bytecode dump. */ +static int bcread_header(LexState *ls) +{ + uint32_t flags; + bcread_want(ls, 3+5+5); + if (bcread_byte(ls) != BCDUMP_HEAD2 || + bcread_byte(ls) != BCDUMP_HEAD3 || + bcread_byte(ls) != BCDUMP_VERSION) return 0; + bcread_flags(ls) = flags = bcread_uleb128(ls); + if ((flags & ~(BCDUMP_F_KNOWN)) != 0) return 0; + if ((flags & BCDUMP_F_FFI)) { +#if LJ_HASFFI + lua_State *L = ls->L; + if (!ctype_ctsG(G(L))) { + ptrdiff_t oldtop = savestack(L, L->top); + luaopen_ffi(L); /* Load FFI library on-demand. */ + L->top = restorestack(L, oldtop); + } +#else + return 0; +#endif + } + if ((flags & BCDUMP_F_STRIP)) { + ls->chunkname = lj_str_newz(ls->L, ls->chunkarg); + } else { + MSize len = bcread_uleb128(ls); + bcread_need(ls, len); + ls->chunkname = lj_str_new(ls->L, (const char *)bcread_mem(ls, len), len); + } + return 1; /* Ok. */ +} + +/* Read a bytecode dump. */ +GCproto *lj_bcread(LexState *ls) +{ + lua_State *L = ls->L; + lua_assert(ls->current == BCDUMP_HEAD1); + bcread_savetop(L, ls, L->top); + lj_str_resetbuf(&ls->sb); + /* Check for a valid bytecode dump header. */ + if (!bcread_header(ls)) + bcread_error(ls, LJ_ERR_BCFMT); + for (;;) { /* Process all prototypes in the bytecode dump. */ + GCproto *pt = bcread_proto(ls); + if (!pt) break; + setprotoV(L, L->top, pt); + incr_top(L); + } + if ((int32_t)ls->n > 0 || L->top-1 != bcread_oldtop(L, ls)) + bcread_error(ls, LJ_ERR_BCBAD); + /* Pop off last prototype. */ + L->top--; + return protoV(L->top); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_bcwrite.c b/src/3rd party/luajit-2.0/src/lj_bcwrite.c new file mode 100644 index 00000000000..ff97450b8fe --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_bcwrite.c @@ -0,0 +1,396 @@ +/* +** Bytecode writer. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_bcwrite_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_str.h" +#include "lj_bc.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#if LJ_HASJIT +#include "lj_dispatch.h" +#include "lj_jit.h" +#endif +#include "lj_bcdump.h" +#include "lj_vm.h" + +/* Context for bytecode writer. */ +typedef struct BCWriteCtx { + SBuf sb; /* Output buffer. */ + lua_State *L; /* Lua state. */ + GCproto *pt; /* Root prototype. */ + lua_Writer wfunc; /* Writer callback. */ + void *wdata; /* Writer callback data. */ + int strip; /* Strip debug info. */ + int status; /* Status from writer callback. */ +} BCWriteCtx; + +/* -- Output buffer handling ---------------------------------------------- */ + +/* Resize buffer if needed. */ +static LJ_NOINLINE void bcwrite_resize(BCWriteCtx *ctx, MSize len) +{ + MSize sz = ctx->sb.sz * 2; + while (ctx->sb.n + len > sz) sz = sz * 2; + lj_str_resizebuf(ctx->L, &ctx->sb, sz); +} + +/* Need a certain amount of buffer space. */ +static LJ_AINLINE void bcwrite_need(BCWriteCtx *ctx, MSize len) +{ + if (LJ_UNLIKELY(ctx->sb.n + len > ctx->sb.sz)) + bcwrite_resize(ctx, len); +} + +/* Add memory block to buffer. */ +static void bcwrite_block(BCWriteCtx *ctx, const void *p, MSize len) +{ + uint8_t *q = (uint8_t *)(ctx->sb.buf + ctx->sb.n); + MSize i; + ctx->sb.n += len; + for (i = 0; i < len; i++) q[i] = ((uint8_t *)p)[i]; +} + +/* Add byte to buffer. */ +static LJ_AINLINE void bcwrite_byte(BCWriteCtx *ctx, uint8_t b) +{ + ctx->sb.buf[ctx->sb.n++] = b; +} + +/* Add ULEB128 value to buffer. */ +static void bcwrite_uleb128(BCWriteCtx *ctx, uint32_t v) +{ + MSize n = ctx->sb.n; + uint8_t *p = (uint8_t *)ctx->sb.buf; + for (; v >= 0x80; v >>= 7) + p[n++] = (uint8_t)((v & 0x7f) | 0x80); + p[n++] = (uint8_t)v; + ctx->sb.n = n; +} + +/* -- Bytecode writer ----------------------------------------------------- */ + +/* Write a single constant key/value of a template table. */ +static void bcwrite_ktabk(BCWriteCtx *ctx, cTValue *o, int narrow) +{ + bcwrite_need(ctx, 1+10); + if (tvisstr(o)) { + const GCstr *str = strV(o); + MSize len = str->len; + bcwrite_need(ctx, 5+len); + bcwrite_uleb128(ctx, BCDUMP_KTAB_STR+len); + bcwrite_block(ctx, strdata(str), len); + } else if (tvisint(o)) { + bcwrite_byte(ctx, BCDUMP_KTAB_INT); + bcwrite_uleb128(ctx, intV(o)); + } else if (tvisnum(o)) { + if (!LJ_DUALNUM && narrow) { /* Narrow number constants to integers. */ + lua_Number num = numV(o); + int32_t k = lj_num2int(num); + if (num == (lua_Number)k) { /* -0 is never a constant. */ + bcwrite_byte(ctx, BCDUMP_KTAB_INT); + bcwrite_uleb128(ctx, k); + return; + } + } + bcwrite_byte(ctx, BCDUMP_KTAB_NUM); + bcwrite_uleb128(ctx, o->u32.lo); + bcwrite_uleb128(ctx, o->u32.hi); + } else { + lua_assert(tvispri(o)); + bcwrite_byte(ctx, BCDUMP_KTAB_NIL+~itype(o)); + } +} + +/* Write a template table. */ +static void bcwrite_ktab(BCWriteCtx *ctx, const GCtab *t) +{ + MSize narray = 0, nhash = 0; + if (t->asize > 0) { /* Determine max. length of array part. */ + ptrdiff_t i; + TValue *array = tvref(t->array); + for (i = (ptrdiff_t)t->asize-1; i >= 0; i--) + if (!tvisnil(&array[i])) + break; + narray = (MSize)(i+1); + } + if (t->hmask > 0) { /* Count number of used hash slots. */ + MSize i, hmask = t->hmask; + Node *node = noderef(t->node); + for (i = 0; i <= hmask; i++) + nhash += !tvisnil(&node[i].val); + } + /* Write number of array slots and hash slots. */ + bcwrite_uleb128(ctx, narray); + bcwrite_uleb128(ctx, nhash); + if (narray) { /* Write array entries (may contain nil). */ + MSize i; + TValue *o = tvref(t->array); + for (i = 0; i < narray; i++, o++) + bcwrite_ktabk(ctx, o, 1); + } + if (nhash) { /* Write hash entries. */ + MSize i = nhash; + Node *node = noderef(t->node) + t->hmask; + for (;; node--) + if (!tvisnil(&node->val)) { + bcwrite_ktabk(ctx, &node->key, 0); + bcwrite_ktabk(ctx, &node->val, 1); + if (--i == 0) break; + } + } +} + +/* Write GC constants of a prototype. */ +static void bcwrite_kgc(BCWriteCtx *ctx, GCproto *pt) +{ + MSize i, sizekgc = pt->sizekgc; + GCRef *kr = mref(pt->k, GCRef) - (ptrdiff_t)sizekgc; + for (i = 0; i < sizekgc; i++, kr++) { + GCobj *o = gcref(*kr); + MSize tp, need = 1; + /* Determine constant type and needed size. */ + if (o->gch.gct == ~LJ_TSTR) { + tp = BCDUMP_KGC_STR + gco2str(o)->len; + need = 5+gco2str(o)->len; + } else if (o->gch.gct == ~LJ_TPROTO) { + lua_assert((pt->flags & PROTO_CHILD)); + tp = BCDUMP_KGC_CHILD; +#if LJ_HASFFI + } else if (o->gch.gct == ~LJ_TCDATA) { + CTypeID id = gco2cd(o)->ctypeid; + need = 1+4*5; + if (id == CTID_INT64) { + tp = BCDUMP_KGC_I64; + } else if (id == CTID_UINT64) { + tp = BCDUMP_KGC_U64; + } else { + lua_assert(id == CTID_COMPLEX_DOUBLE); + tp = BCDUMP_KGC_COMPLEX; + } +#endif + } else { + lua_assert(o->gch.gct == ~LJ_TTAB); + tp = BCDUMP_KGC_TAB; + need = 1+2*5; + } + /* Write constant type. */ + bcwrite_need(ctx, need); + bcwrite_uleb128(ctx, tp); + /* Write constant data (if any). */ + if (tp >= BCDUMP_KGC_STR) { + bcwrite_block(ctx, strdata(gco2str(o)), gco2str(o)->len); + } else if (tp == BCDUMP_KGC_TAB) { + bcwrite_ktab(ctx, gco2tab(o)); +#if LJ_HASFFI + } else if (tp != BCDUMP_KGC_CHILD) { + cTValue *p = (TValue *)cdataptr(gco2cd(o)); + bcwrite_uleb128(ctx, p[0].u32.lo); + bcwrite_uleb128(ctx, p[0].u32.hi); + if (tp == BCDUMP_KGC_COMPLEX) { + bcwrite_uleb128(ctx, p[1].u32.lo); + bcwrite_uleb128(ctx, p[1].u32.hi); + } +#endif + } + } +} + +/* Write number constants of a prototype. */ +static void bcwrite_knum(BCWriteCtx *ctx, GCproto *pt) +{ + MSize i, sizekn = pt->sizekn; + cTValue *o = mref(pt->k, TValue); + bcwrite_need(ctx, 10*sizekn); + for (i = 0; i < sizekn; i++, o++) { + int32_t k; + if (tvisint(o)) { + k = intV(o); + goto save_int; + } else { + /* Write a 33 bit ULEB128 for the int (lsb=0) or loword (lsb=1). */ + if (!LJ_DUALNUM) { /* Narrow number constants to integers. */ + lua_Number num = numV(o); + k = lj_num2int(num); + if (num == (lua_Number)k) { /* -0 is never a constant. */ + save_int: + bcwrite_uleb128(ctx, 2*(uint32_t)k | ((uint32_t)k & 0x80000000u)); + if (k < 0) { + char *p = &ctx->sb.buf[ctx->sb.n-1]; + *p = (*p & 7) | ((k>>27) & 0x18); + } + continue; + } + } + bcwrite_uleb128(ctx, 1+(2*o->u32.lo | (o->u32.lo & 0x80000000u))); + if (o->u32.lo >= 0x80000000u) { + char *p = &ctx->sb.buf[ctx->sb.n-1]; + *p = (*p & 7) | ((o->u32.lo>>27) & 0x18); + } + bcwrite_uleb128(ctx, o->u32.hi); + } + } +} + +/* Write bytecode instructions. */ +static void bcwrite_bytecode(BCWriteCtx *ctx, GCproto *pt) +{ + MSize nbc = pt->sizebc-1; /* Omit the [JI]FUNC* header. */ +#if LJ_HASJIT + uint8_t *p = (uint8_t *)&ctx->sb.buf[ctx->sb.n]; +#endif + bcwrite_block(ctx, proto_bc(pt)+1, nbc*(MSize)sizeof(BCIns)); +#if LJ_HASJIT + /* Unpatch modified bytecode containing ILOOP/JLOOP etc. */ + if ((pt->flags & PROTO_ILOOP) || pt->trace) { + jit_State *J = L2J(ctx->L); + MSize i; + for (i = 0; i < nbc; i++, p += sizeof(BCIns)) { + BCOp op = (BCOp)p[LJ_ENDIAN_SELECT(0, 3)]; + if (op == BC_IFORL || op == BC_IITERL || op == BC_ILOOP || + op == BC_JFORI) { + p[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_IFORL+BC_FORL); + } else if (op == BC_JFORL || op == BC_JITERL || op == BC_JLOOP) { + BCReg rd = p[LJ_ENDIAN_SELECT(2, 1)] + (p[LJ_ENDIAN_SELECT(3, 0)] << 8); + BCIns ins = traceref(J, rd)->startins; + p[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_JFORL+BC_FORL); + p[LJ_ENDIAN_SELECT(2, 1)] = bc_c(ins); + p[LJ_ENDIAN_SELECT(3, 0)] = bc_b(ins); + } + } + } +#endif +} + +/* Write prototype. */ +static void bcwrite_proto(BCWriteCtx *ctx, GCproto *pt) +{ + MSize sizedbg = 0; + + /* Recursively write children of prototype. */ + if ((pt->flags & PROTO_CHILD)) { + ptrdiff_t i, n = pt->sizekgc; + GCRef *kr = mref(pt->k, GCRef) - 1; + for (i = 0; i < n; i++, kr--) { + GCobj *o = gcref(*kr); + if (o->gch.gct == ~LJ_TPROTO) + bcwrite_proto(ctx, gco2pt(o)); + } + } + + /* Start writing the prototype info to a buffer. */ + lj_str_resetbuf(&ctx->sb); + ctx->sb.n = 5; /* Leave room for final size. */ + bcwrite_need(ctx, 4+6*5+(pt->sizebc-1)*(MSize)sizeof(BCIns)+pt->sizeuv*2); + + /* Write prototype header. */ + bcwrite_byte(ctx, (pt->flags & (PROTO_CHILD|PROTO_VARARG|PROTO_FFI))); + bcwrite_byte(ctx, pt->numparams); + bcwrite_byte(ctx, pt->framesize); + bcwrite_byte(ctx, pt->sizeuv); + bcwrite_uleb128(ctx, pt->sizekgc); + bcwrite_uleb128(ctx, pt->sizekn); + bcwrite_uleb128(ctx, pt->sizebc-1); + if (!ctx->strip) { + if (proto_lineinfo(pt)) + sizedbg = pt->sizept - (MSize)((char *)proto_lineinfo(pt) - (char *)pt); + bcwrite_uleb128(ctx, sizedbg); + if (sizedbg) { + bcwrite_uleb128(ctx, pt->firstline); + bcwrite_uleb128(ctx, pt->numline); + } + } + + /* Write bytecode instructions and upvalue refs. */ + bcwrite_bytecode(ctx, pt); + bcwrite_block(ctx, proto_uv(pt), pt->sizeuv*2); + + /* Write constants. */ + bcwrite_kgc(ctx, pt); + bcwrite_knum(ctx, pt); + + /* Write debug info, if not stripped. */ + if (sizedbg) { + bcwrite_need(ctx, sizedbg); + bcwrite_block(ctx, proto_lineinfo(pt), sizedbg); + } + + /* Pass buffer to writer function. */ + if (ctx->status == 0) { + MSize n = ctx->sb.n - 5; + MSize nn = (lj_fls(n)+8)*9 >> 6; + ctx->sb.n = 5 - nn; + bcwrite_uleb128(ctx, n); /* Fill in final size. */ + lua_assert(ctx->sb.n == 5); + ctx->status = ctx->wfunc(ctx->L, ctx->sb.buf+5-nn, nn+n, ctx->wdata); + } +} + +/* Write header of bytecode dump. */ +static void bcwrite_header(BCWriteCtx *ctx) +{ + GCstr *chunkname = proto_chunkname(ctx->pt); + const char *name = strdata(chunkname); + MSize len = chunkname->len; + lj_str_resetbuf(&ctx->sb); + bcwrite_need(ctx, 5+5+len); + bcwrite_byte(ctx, BCDUMP_HEAD1); + bcwrite_byte(ctx, BCDUMP_HEAD2); + bcwrite_byte(ctx, BCDUMP_HEAD3); + bcwrite_byte(ctx, BCDUMP_VERSION); + bcwrite_byte(ctx, (ctx->strip ? BCDUMP_F_STRIP : 0) + + (LJ_BE ? BCDUMP_F_BE : 0) + + ((ctx->pt->flags & PROTO_FFI) ? BCDUMP_F_FFI : 0)); + if (!ctx->strip) { + bcwrite_uleb128(ctx, len); + bcwrite_block(ctx, name, len); + } + ctx->status = ctx->wfunc(ctx->L, ctx->sb.buf, ctx->sb.n, ctx->wdata); +} + +/* Write footer of bytecode dump. */ +static void bcwrite_footer(BCWriteCtx *ctx) +{ + if (ctx->status == 0) { + uint8_t zero = 0; + ctx->status = ctx->wfunc(ctx->L, &zero, 1, ctx->wdata); + } +} + +/* Protected callback for bytecode writer. */ +static TValue *cpwriter(lua_State *L, lua_CFunction dummy, void *ud) +{ + BCWriteCtx *ctx = (BCWriteCtx *)ud; + UNUSED(dummy); + lj_str_resizebuf(L, &ctx->sb, 1024); /* Avoids resize for most prototypes. */ + bcwrite_header(ctx); + bcwrite_proto(ctx, ctx->pt); + bcwrite_footer(ctx); + return NULL; +} + +/* Write bytecode for a prototype. */ +int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, void *data, + int strip) +{ + BCWriteCtx ctx; + int status; + ctx.L = L; + ctx.pt = pt; + ctx.wfunc = writer; + ctx.wdata = data; + ctx.strip = strip; + ctx.status = 0; + lj_str_initbuf(&ctx.sb); + status = lj_vm_cpcall(L, NULL, &ctx, cpwriter); + if (status == 0) status = ctx.status; + lj_str_freebuf(G(ctx.L), &ctx.sb); + return status; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_carith.c b/src/3rd party/luajit-2.0/src/lj_carith.c new file mode 100644 index 00000000000..2a358a9bb0d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_carith.c @@ -0,0 +1,353 @@ +/* +** C data arithmetic. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_ctype.h" +#include "lj_cconv.h" +#include "lj_cdata.h" +#include "lj_carith.h" + +/* -- C data arithmetic --------------------------------------------------- */ + +/* Binary operands of an operator converted to ctypes. */ +typedef struct CDArith { + uint8_t *p[2]; + CType *ct[2]; +} CDArith; + +/* Check arguments for arithmetic metamethods. */ +static int carith_checkarg(lua_State *L, CTState *cts, CDArith *ca) +{ + TValue *o = L->base; + int ok = 1; + MSize i; + if (o+1 >= L->top) + lj_err_argt(L, 1, LUA_TCDATA); + for (i = 0; i < 2; i++, o++) { + if (tviscdata(o)) { + GCcdata *cd = cdataV(o); + CTypeID id = (CTypeID)cd->ctypeid; + CType *ct = ctype_raw(cts, id); + uint8_t *p = (uint8_t *)cdataptr(cd); + if (ctype_isptr(ct->info)) { + p = (uint8_t *)cdata_getptr(p, ct->size); + if (ctype_isref(ct->info)) ct = ctype_rawchild(cts, ct); + } else if (ctype_isfunc(ct->info)) { + p = (uint8_t *)*(void **)p; + ct = ctype_get(cts, + lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR)); + } + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + ca->ct[i] = ct; + ca->p[i] = p; + } else if (tvisint(o)) { + ca->ct[i] = ctype_get(cts, CTID_INT32); + ca->p[i] = (uint8_t *)&o->i; + } else if (tvisnum(o)) { + ca->ct[i] = ctype_get(cts, CTID_DOUBLE); + ca->p[i] = (uint8_t *)&o->n; + } else if (tvisnil(o)) { + ca->ct[i] = ctype_get(cts, CTID_P_VOID); + ca->p[i] = (uint8_t *)0; + } else if (tvisstr(o)) { + TValue *o2 = i == 0 ? o+1 : o-1; + CType *ct = ctype_raw(cts, cdataV(o2)->ctypeid); + ca->ct[i] = NULL; + ca->p[i] = (uint8_t *)strVdata(o); + ok = 0; + if (ctype_isenum(ct->info)) { + CTSize ofs; + CType *cct = lj_ctype_getfield(cts, ct, strV(o), &ofs); + if (cct && ctype_isconstval(cct->info)) { + ca->ct[i] = ctype_child(cts, cct); + ca->p[i] = (uint8_t *)&cct->size; /* Assumes ct does not grow. */ + ok = 1; + } else { + ca->ct[1-i] = ct; /* Use enum to improve error message. */ + ca->p[1-i] = NULL; + break; + } + } + } else { + ca->ct[i] = NULL; + ca->p[i] = (void *)(intptr_t)1; /* To make it unequal. */ + ok = 0; + } + } + return ok; +} + +/* Pointer arithmetic. */ +static int carith_ptr(lua_State *L, CTState *cts, CDArith *ca, MMS mm) +{ + CType *ctp = ca->ct[0]; + uint8_t *pp = ca->p[0]; + ptrdiff_t idx; + CTSize sz; + CTypeID id; + GCcdata *cd; + if (ctype_isptr(ctp->info) || ctype_isrefarray(ctp->info)) { + if ((mm == MM_sub || mm == MM_eq || mm == MM_lt || mm == MM_le) && + (ctype_isptr(ca->ct[1]->info) || ctype_isrefarray(ca->ct[1]->info))) { + uint8_t *pp2 = ca->p[1]; + if (mm == MM_eq) { /* Pointer equality. Incompatible pointers are ok. */ + setboolV(L->top-1, (pp == pp2)); + return 1; + } + if (!lj_cconv_compatptr(cts, ctp, ca->ct[1], CCF_IGNQUAL)) + return 0; + if (mm == MM_sub) { /* Pointer difference. */ + intptr_t diff; + sz = lj_ctype_size(cts, ctype_cid(ctp->info)); /* Element size. */ + if (sz == 0 || sz == CTSIZE_INVALID) + return 0; + diff = ((intptr_t)pp - (intptr_t)pp2) / (int32_t)sz; + /* All valid pointer differences on x64 are in (-2^47, +2^47), + ** which fits into a double without loss of precision. + */ + setintptrV(L->top-1, (int32_t)diff); + return 1; + } else if (mm == MM_lt) { /* Pointer comparison (unsigned). */ + setboolV(L->top-1, ((uintptr_t)pp < (uintptr_t)pp2)); + return 1; + } else { + lua_assert(mm == MM_le); + setboolV(L->top-1, ((uintptr_t)pp <= (uintptr_t)pp2)); + return 1; + } + } + if (!((mm == MM_add || mm == MM_sub) && ctype_isnum(ca->ct[1]->info))) + return 0; + lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ca->ct[1], + (uint8_t *)&idx, ca->p[1], 0); + if (mm == MM_sub) idx = -idx; + } else if (mm == MM_add && ctype_isnum(ctp->info) && + (ctype_isptr(ca->ct[1]->info) || ctype_isrefarray(ca->ct[1]->info))) { + /* Swap pointer and index. */ + ctp = ca->ct[1]; pp = ca->p[1]; + lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ca->ct[0], + (uint8_t *)&idx, ca->p[0], 0); + } else { + return 0; + } + sz = lj_ctype_size(cts, ctype_cid(ctp->info)); /* Element size. */ + if (sz == CTSIZE_INVALID) + return 0; + pp += idx*(int32_t)sz; /* Compute pointer + index. */ + id = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ctp->info)), + CTSIZE_PTR); + cd = lj_cdata_new(cts, id, CTSIZE_PTR); + *(uint8_t **)cdataptr(cd) = pp; + setcdataV(L, L->top-1, cd); + lj_gc_check(L); + return 1; +} + +/* 64 bit integer arithmetic. */ +static int carith_int64(lua_State *L, CTState *cts, CDArith *ca, MMS mm) +{ + if (ctype_isnum(ca->ct[0]->info) && ca->ct[0]->size <= 8 && + ctype_isnum(ca->ct[1]->info) && ca->ct[1]->size <= 8) { + CTypeID id = (((ca->ct[0]->info & CTF_UNSIGNED) && ca->ct[0]->size == 8) || + ((ca->ct[1]->info & CTF_UNSIGNED) && ca->ct[1]->size == 8)) ? + CTID_UINT64 : CTID_INT64; + CType *ct = ctype_get(cts, id); + GCcdata *cd; + uint64_t u0, u1, *up; + lj_cconv_ct_ct(cts, ct, ca->ct[0], (uint8_t *)&u0, ca->p[0], 0); + if (mm != MM_unm) + lj_cconv_ct_ct(cts, ct, ca->ct[1], (uint8_t *)&u1, ca->p[1], 0); + switch (mm) { + case MM_eq: + setboolV(L->top-1, (u0 == u1)); + return 1; + case MM_lt: + setboolV(L->top-1, + id == CTID_INT64 ? ((int64_t)u0 < (int64_t)u1) : (u0 < u1)); + return 1; + case MM_le: + setboolV(L->top-1, + id == CTID_INT64 ? ((int64_t)u0 <= (int64_t)u1) : (u0 <= u1)); + return 1; + default: break; + } + cd = lj_cdata_new(cts, id, 8); + up = (uint64_t *)cdataptr(cd); + setcdataV(L, L->top-1, cd); + switch (mm) { + case MM_add: *up = u0 + u1; break; + case MM_sub: *up = u0 - u1; break; + case MM_mul: *up = u0 * u1; break; + case MM_div: + if (id == CTID_INT64) + *up = (uint64_t)lj_carith_divi64((int64_t)u0, (int64_t)u1); + else + *up = lj_carith_divu64(u0, u1); + break; + case MM_mod: + if (id == CTID_INT64) + *up = (uint64_t)lj_carith_modi64((int64_t)u0, (int64_t)u1); + else + *up = lj_carith_modu64(u0, u1); + break; + case MM_pow: + if (id == CTID_INT64) + *up = (uint64_t)lj_carith_powi64((int64_t)u0, (int64_t)u1); + else + *up = lj_carith_powu64(u0, u1); + break; + case MM_unm: *up = (uint64_t)-(int64_t)u0; break; + default: lua_assert(0); break; + } + lj_gc_check(L); + return 1; + } + return 0; +} + +/* Handle ctype arithmetic metamethods. */ +static int lj_carith_meta(lua_State *L, CTState *cts, CDArith *ca, MMS mm) +{ + cTValue *tv = NULL; + if (tviscdata(L->base)) { + CTypeID id = cdataV(L->base)->ctypeid; + CType *ct = ctype_raw(cts, id); + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, mm); + } + if (!tv && L->base+1 < L->top && tviscdata(L->base+1)) { + CTypeID id = cdataV(L->base+1)->ctypeid; + CType *ct = ctype_raw(cts, id); + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, mm); + } + if (!tv) { + const char *repr[2]; + int i, isenum = -1, isstr = -1; + if (mm == MM_eq) { /* Equality checks never raise an error. */ + int eq = ca->p[0] == ca->p[1]; + setboolV(L->top-1, eq); + setboolV(&G(L)->tmptv2, eq); /* Remember for trace recorder. */ + return 1; + } + for (i = 0; i < 2; i++) { + if (ca->ct[i] && tviscdata(L->base+i)) { + if (ctype_isenum(ca->ct[i]->info)) isenum = i; + repr[i] = strdata(lj_ctype_repr(L, ctype_typeid(cts, ca->ct[i]), NULL)); + } else { + if (tvisstr(&L->base[i])) isstr = i; + repr[i] = lj_typename(&L->base[i]); + } + } + if ((isenum ^ isstr) == 1) + lj_err_callerv(L, LJ_ERR_FFI_BADCONV, repr[isstr], repr[isenum]); + lj_err_callerv(L, mm == MM_len ? LJ_ERR_FFI_BADLEN : + mm == MM_concat ? LJ_ERR_FFI_BADCONCAT : + mm < MM_add ? LJ_ERR_FFI_BADCOMP : LJ_ERR_FFI_BADARITH, + repr[0], repr[1]); + } + return lj_meta_tailcall(L, tv); +} + +/* Arithmetic operators for cdata. */ +int lj_carith_op(lua_State *L, MMS mm) +{ + CTState *cts = ctype_cts(L); + CDArith ca; + if (carith_checkarg(L, cts, &ca)) { + if (carith_int64(L, cts, &ca, mm) || carith_ptr(L, cts, &ca, mm)) { + copyTV(L, &G(L)->tmptv2, L->top-1); /* Remember for trace recorder. */ + return 1; + } + } + return lj_carith_meta(L, cts, &ca, mm); +} + +/* -- 64 bit integer arithmetic helpers ----------------------------------- */ + +#if LJ_32 && LJ_HASJIT +/* Signed/unsigned 64 bit multiplication. */ +int64_t lj_carith_mul64(int64_t a, int64_t b) +{ + return a * b; +} +#endif + +/* Unsigned 64 bit division. */ +uint64_t lj_carith_divu64(uint64_t a, uint64_t b) +{ + if (b == 0) return U64x(80000000,00000000); + return a / b; +} + +/* Signed 64 bit division. */ +int64_t lj_carith_divi64(int64_t a, int64_t b) +{ + if (b == 0 || (a == (int64_t)U64x(80000000,00000000) && b == -1)) + return U64x(80000000,00000000); + return a / b; +} + +/* Unsigned 64 bit modulo. */ +uint64_t lj_carith_modu64(uint64_t a, uint64_t b) +{ + if (b == 0) return U64x(80000000,00000000); + return a % b; +} + +/* Signed 64 bit modulo. */ +int64_t lj_carith_modi64(int64_t a, int64_t b) +{ + if (b == 0) return U64x(80000000,00000000); + if (a == (int64_t)U64x(80000000,00000000) && b == -1) return 0; + return a % b; +} + +/* Unsigned 64 bit x^k. */ +uint64_t lj_carith_powu64(uint64_t x, uint64_t k) +{ + uint64_t y; + if (k == 0) + return 1; + for (; (k & 1) == 0; k >>= 1) x *= x; + y = x; + if ((k >>= 1) != 0) { + for (;;) { + x *= x; + if (k == 1) break; + if (k & 1) y *= x; + k >>= 1; + } + y *= x; + } + return y; +} + +/* Signed 64 bit x^k. */ +int64_t lj_carith_powi64(int64_t x, int64_t k) +{ + if (k == 0) + return 1; + if (k < 0) { + if (x == 0) + return U64x(7fffffff,ffffffff); + else if (x == 1) + return 1; + else if (x == -1) + return (k & 1) ? -1 : 1; + else + return 0; + } + return (int64_t)lj_carith_powu64((uint64_t)x, (uint64_t)k); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_carith.h b/src/3rd party/luajit-2.0/src/lj_carith.h new file mode 100644 index 00000000000..8c4bdbbe2a6 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_carith.h @@ -0,0 +1,27 @@ +/* +** C data arithmetic. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CARITH_H +#define _LJ_CARITH_H + +#include "lj_obj.h" + +#if LJ_HASFFI + +LJ_FUNC int lj_carith_op(lua_State *L, MMS mm); + +#if LJ_32 && LJ_HASJIT +LJ_FUNC int64_t lj_carith_mul64(int64_t x, int64_t k); +#endif +LJ_FUNC uint64_t lj_carith_divu64(uint64_t a, uint64_t b); +LJ_FUNC int64_t lj_carith_divi64(int64_t a, int64_t b); +LJ_FUNC uint64_t lj_carith_modu64(uint64_t a, uint64_t b); +LJ_FUNC int64_t lj_carith_modi64(int64_t a, int64_t b); +LJ_FUNC uint64_t lj_carith_powu64(uint64_t x, uint64_t k); +LJ_FUNC int64_t lj_carith_powi64(int64_t x, int64_t k); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.c b/src/3rd party/luajit-2.0/src/lj_ccall.c new file mode 100644 index 00000000000..998417c1cf8 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ccall.c @@ -0,0 +1,900 @@ +/* +** FFI C call handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_ctype.h" +#include "lj_cconv.h" +#include "lj_cdata.h" +#include "lj_ccall.h" +#include "lj_trace.h" + +/* Target-specific handling of register arguments. */ +#if LJ_TARGET_X86 +/* -- x86 calling conventions --------------------------------------------- */ + +#if LJ_ABI_WIN + +#define CCALL_HANDLE_STRUCTRET \ + /* Return structs bigger than 8 by reference (on stack only). */ \ + cc->retref = (sz > 8); \ + if (cc->retref) cc->stack[nsp++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET CCALL_HANDLE_STRUCTRET + +#else + +#if LJ_TARGET_OSX + +#define CCALL_HANDLE_STRUCTRET \ + /* Return structs of size 1, 2, 4 or 8 in registers. */ \ + cc->retref = !(sz == 1 || sz == 2 || sz == 4 || sz == 8); \ + if (cc->retref) { \ + if (ngpr < maxgpr) \ + cc->gpr[ngpr++] = (GPRArg)dp; \ + else \ + cc->stack[nsp++] = (GPRArg)dp; \ + } else { /* Struct with single FP field ends up in FPR. */ \ + cc->resx87 = ccall_classify_struct(cts, ctr); \ + } + +#define CCALL_HANDLE_STRUCTRET2 \ + if (cc->resx87) sp = (uint8_t *)&cc->fpr[0]; \ + memcpy(dp, sp, ctr->size); + +#else + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = 1; /* Return all structs by reference (in reg or on stack). */ \ + if (ngpr < maxgpr) \ + cc->gpr[ngpr++] = (GPRArg)dp; \ + else \ + cc->stack[nsp++] = (GPRArg)dp; + +#endif + +#define CCALL_HANDLE_COMPLEXRET \ + /* Return complex float in GPRs and complex double by reference. */ \ + cc->retref = (sz > 8); \ + if (cc->retref) { \ + if (ngpr < maxgpr) \ + cc->gpr[ngpr++] = (GPRArg)dp; \ + else \ + cc->stack[nsp++] = (GPRArg)dp; \ + } + +#endif + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (!cc->retref) \ + *(int64_t *)dp = *(int64_t *)sp; /* Copy complex float from GPRs. */ + +#define CCALL_HANDLE_STRUCTARG \ + ngpr = maxgpr; /* Pass all structs by value on the stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + isfp = 1; /* Pass complex by value on stack. */ + +#define CCALL_HANDLE_REGARG \ + if (!isfp) { /* Only non-FP values may be passed in registers. */ \ + if (n > 1) { /* Anything > 32 bit is passed on the stack. */ \ + if (!LJ_ABI_WIN) ngpr = maxgpr; /* Prevent reordering. */ \ + } else if (ngpr + 1 <= maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#elif LJ_TARGET_X64 && LJ_ABI_WIN +/* -- Windows/x64 calling conventions ------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + /* Return structs of size 1, 2, 4 or 8 in a GPR. */ \ + cc->retref = !(sz == 1 || sz == 2 || sz == 4 || sz == 8); \ + if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET CCALL_HANDLE_STRUCTRET + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (!cc->retref) \ + *(int64_t *)dp = *(int64_t *)sp; /* Copy complex float from GPRs. */ + +#define CCALL_HANDLE_STRUCTARG \ + /* Pass structs of size 1, 2, 4 or 8 in a GPR by value. */ \ + if (!(sz == 1 || sz == 2 || sz == 4 || sz == 8)) { \ + rp = cdataptr(lj_cdata_new(cts, did, sz)); \ + sz = CTSIZE_PTR; /* Pass all other structs by reference. */ \ + } + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex float in a GPR and complex double by reference. */ \ + if (sz != 2*sizeof(float)) { \ + rp = cdataptr(lj_cdata_new(cts, did, sz)); \ + sz = CTSIZE_PTR; \ + } + +/* Windows/x64 argument registers are strictly positional (use ngpr). */ +#define CCALL_HANDLE_REGARG \ + if (isfp) { \ + if (ngpr < maxgpr) { dp = &cc->fpr[ngpr++]; nfpr = ngpr; goto done; } \ + } else { \ + if (ngpr < maxgpr) { dp = &cc->gpr[ngpr++]; goto done; } \ + } + +#elif LJ_TARGET_X64 +/* -- POSIX/x64 calling conventions --------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + int rcl[2]; rcl[0] = rcl[1] = 0; \ + if (ccall_classify_struct(cts, ctr, rcl, 0)) { \ + cc->retref = 1; /* Return struct by reference. */ \ + cc->gpr[ngpr++] = (GPRArg)dp; \ + } else { \ + cc->retref = 0; /* Return small structs in registers. */ \ + } + +#define CCALL_HANDLE_STRUCTRET2 \ + int rcl[2]; rcl[0] = rcl[1] = 0; \ + ccall_classify_struct(cts, ctr, rcl, 0); \ + ccall_struct_ret(cc, rcl, dp, ctr->size); + +#define CCALL_HANDLE_COMPLEXRET \ + /* Complex values are returned in one or two FPRs. */ \ + cc->retref = 0; + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPR. */ \ + *(int64_t *)dp = cc->fpr[0].l[0]; \ + } else { /* Copy non-contiguous complex double from FPRs. */ \ + ((int64_t *)dp)[0] = cc->fpr[0].l[0]; \ + ((int64_t *)dp)[1] = cc->fpr[1].l[0]; \ + } + +#define CCALL_HANDLE_STRUCTARG \ + int rcl[2]; rcl[0] = rcl[1] = 0; \ + if (!ccall_classify_struct(cts, d, rcl, 0)) { \ + cc->nsp = nsp; cc->ngpr = ngpr; cc->nfpr = nfpr; \ + if (ccall_struct_arg(cc, cts, d, rcl, o, narg)) goto err_nyi; \ + nsp = cc->nsp; ngpr = cc->ngpr; nfpr = cc->nfpr; \ + continue; \ + } /* Pass all other structs by value on stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + isfp = 2; /* Pass complex in FPRs or on stack. Needs postprocessing. */ + +#define CCALL_HANDLE_REGARG \ + if (isfp) { /* Try to pass argument in FPRs. */ \ + int n2 = ctype_isvector(d->info) ? 1 : n; \ + if (nfpr + n2 <= CCALL_NARG_FPR) { \ + dp = &cc->fpr[nfpr]; \ + nfpr += n2; \ + goto done; \ + } \ + } else { /* Try to pass argument in GPRs. */ \ + /* Note that reordering is explicitly allowed in the x64 ABI. */ \ + if (n <= 2 && ngpr + n <= maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#elif LJ_TARGET_ARM +/* -- ARM calling conventions --------------------------------------------- */ + +#if LJ_ABI_SOFTFP + +#define CCALL_HANDLE_STRUCTRET \ + /* Return structs of size <= 4 in a GPR. */ \ + cc->retref = !(sz <= 4); \ + if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET \ + cc->retref = 1; /* Return all complex values by reference. */ \ + cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET2 \ + UNUSED(dp); /* Nothing to do. */ + +#define CCALL_HANDLE_STRUCTARG \ + /* Pass all structs by value in registers and/or on the stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex by value in 2 or 4 GPRs. */ + +#define CCALL_HANDLE_REGARG_FP1 +#define CCALL_HANDLE_REGARG_FP2 + +#else + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = !ccall_classify_struct(cts, ctr, ct); \ + if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_STRUCTRET2 \ + if (ccall_classify_struct(cts, ctr, ct) > 1) sp = (uint8_t *)&cc->fpr[0]; \ + memcpy(dp, sp, ctr->size); + +#define CCALL_HANDLE_COMPLEXRET \ + if (!(ct->info & CTF_VARARG)) cc->retref = 0; /* Return complex in FPRs. */ + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (!(ct->info & CTF_VARARG)) memcpy(dp, &cc->fpr[0], ctr->size); + +#define CCALL_HANDLE_STRUCTARG \ + isfp = (ccall_classify_struct(cts, d, ct) > 1); + /* Pass all structs by value in registers and/or on the stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + isfp = 1; /* Pass complex by value in FPRs or on stack. */ + +#define CCALL_HANDLE_REGARG_FP1 \ + if (isfp && !(ct->info & CTF_VARARG)) { \ + if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \ + if (nfpr + (n >> 1) <= CCALL_NARG_FPR) { \ + dp = &cc->fpr[nfpr]; \ + nfpr += (n >> 1); \ + goto done; \ + } \ + } else { \ + if (sz > 1 && fprodd != nfpr) fprodd = 0; \ + if (fprodd) { \ + if (2*nfpr+n <= 2*CCALL_NARG_FPR+1) { \ + dp = (void *)&cc->fpr[fprodd-1].f[1]; \ + nfpr += (n >> 1); \ + if ((n & 1)) fprodd = 0; else fprodd = nfpr-1; \ + goto done; \ + } \ + } else { \ + if (2*nfpr+n <= 2*CCALL_NARG_FPR) { \ + dp = (void *)&cc->fpr[nfpr]; \ + nfpr += (n >> 1); \ + if ((n & 1)) fprodd = ++nfpr; else fprodd = 0; \ + goto done; \ + } \ + } \ + } \ + fprodd = 0; /* No reordering after the first FP value is on stack. */ \ + } else { + +#define CCALL_HANDLE_REGARG_FP2 } + +#endif + +#define CCALL_HANDLE_REGARG \ + CCALL_HANDLE_REGARG_FP1 \ + if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \ + if (ngpr < maxgpr) \ + ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + } \ + if (ngpr < maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + if (ngpr + n > maxgpr) { \ + nsp += ngpr + n - maxgpr; /* Assumes contiguous gpr/stack fields. */ \ + if (nsp > CCALL_MAXSTACK) goto err_nyi; /* Too many arguments. */ \ + ngpr = maxgpr; \ + } else { \ + ngpr += n; \ + } \ + goto done; \ + } CCALL_HANDLE_REGARG_FP2 + +#define CCALL_HANDLE_RET \ + if ((ct->info & CTF_VARARG)) sp = (uint8_t *)&cc->gpr[0]; + +#elif LJ_TARGET_PPC +/* -- PPC calling conventions --------------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = 1; /* Return all structs by reference. */ \ + cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET \ + /* Complex values are returned in 2 or 4 GPRs. */ \ + cc->retref = 0; + +#define CCALL_HANDLE_COMPLEXRET2 \ + memcpy(dp, sp, ctr->size); /* Copy complex from GPRs. */ + +#define CCALL_HANDLE_STRUCTARG \ + rp = cdataptr(lj_cdata_new(cts, did, sz)); \ + sz = CTSIZE_PTR; /* Pass all structs by reference. */ + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex by value in 2 or 4 GPRs. */ + +#define CCALL_HANDLE_REGARG \ + if (isfp) { /* Try to pass argument in FPRs. */ \ + if (nfpr + 1 <= CCALL_NARG_FPR) { \ + dp = &cc->fpr[nfpr]; \ + nfpr += 1; \ + d = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ \ + goto done; \ + } \ + } else { /* Try to pass argument in GPRs. */ \ + if (n > 1) { \ + lua_assert(n == 2 || n == 4); /* int64_t or complex (float). */ \ + if (ctype_isinteger(d->info)) \ + ngpr = (ngpr + 1u) & ~1u; /* Align int64_t to regpair. */ \ + else if (ngpr + n > maxgpr) \ + ngpr = maxgpr; /* Prevent reordering. */ \ + } \ + if (ngpr + n <= maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#define CCALL_HANDLE_RET \ + if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ + ctr = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ + +#elif LJ_TARGET_PPCSPE +/* -- PPC/SPE calling conventions ----------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = 1; /* Return all structs by reference. */ \ + cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET \ + /* Complex values are returned in 2 or 4 GPRs. */ \ + cc->retref = 0; + +#define CCALL_HANDLE_COMPLEXRET2 \ + memcpy(dp, sp, ctr->size); /* Copy complex from GPRs. */ + +#define CCALL_HANDLE_STRUCTARG \ + rp = cdataptr(lj_cdata_new(cts, did, sz)); \ + sz = CTSIZE_PTR; /* Pass all structs by reference. */ + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex by value in 2 or 4 GPRs. */ + +/* PPC/SPE has a softfp ABI. */ +#define CCALL_HANDLE_REGARG \ + if (n > 1) { /* Doesn't fit in a single GPR? */ \ + lua_assert(n == 2 || n == 4); /* int64_t, double or complex (float). */ \ + if (n == 2) \ + ngpr = (ngpr + 1u) & ~1u; /* Only align 64 bit value to regpair. */ \ + else if (ngpr + n > maxgpr) \ + ngpr = maxgpr; /* Prevent reordering. */ \ + } \ + if (ngpr + n <= maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } + +#elif LJ_TARGET_MIPS +/* -- MIPS calling conventions -------------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = 1; /* Return all structs by reference. */ \ + cc->gpr[ngpr++] = (GPRArg)dp; + +#define CCALL_HANDLE_COMPLEXRET \ + /* Complex values are returned in 1 or 2 FPRs. */ \ + cc->retref = 0; + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPRs. */ \ + ((float *)dp)[0] = cc->fpr[0].f; \ + ((float *)dp)[1] = cc->fpr[1].f; \ + } else { /* Copy complex double from FPRs. */ \ + ((double *)dp)[0] = cc->fpr[0].d; \ + ((double *)dp)[1] = cc->fpr[1].d; \ + } + +#define CCALL_HANDLE_STRUCTARG \ + /* Pass all structs by value in registers and/or on the stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex by value in 2 or 4 GPRs. */ + +#define CCALL_HANDLE_REGARG \ + if (isfp && nfpr < CCALL_NARG_FPR && !(ct->info & CTF_VARARG)) { \ + /* Try to pass argument in FPRs. */ \ + dp = n == 1 ? (void *)&cc->fpr[nfpr].f : (void *)&cc->fpr[nfpr].d; \ + nfpr++; ngpr += n; \ + goto done; \ + } else { /* Try to pass argument in GPRs. */ \ + nfpr = CCALL_NARG_FPR; \ + if ((d->info & CTF_ALIGN) > CTALIGN_PTR) \ + ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + if (ngpr < maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + if (ngpr + n > maxgpr) { \ + nsp += ngpr + n - maxgpr; /* Assumes contiguous gpr/stack fields. */ \ + if (nsp > CCALL_MAXSTACK) goto err_nyi; /* Too many arguments. */ \ + ngpr = maxgpr; \ + } else { \ + ngpr += n; \ + } \ + goto done; \ + } \ + } + +#define CCALL_HANDLE_RET \ + if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ + sp = (uint8_t *)&cc->fpr[0].f; + +#else +#error "Missing calling convention definitions for this architecture" +#endif + +#ifndef CCALL_HANDLE_STRUCTRET2 +#define CCALL_HANDLE_STRUCTRET2 \ + memcpy(dp, sp, ctr->size); /* Copy struct return value from GPRs. */ +#endif + +/* -- x86 OSX ABI struct classification ----------------------------------- */ + +#if LJ_TARGET_X86 && LJ_TARGET_OSX + +/* Check for struct with single FP field. */ +static int ccall_classify_struct(CTState *cts, CType *ct) +{ + CTSize sz = ct->size; + if (!(sz == sizeof(float) || sz == sizeof(double))) return 0; + if ((ct->info & CTF_UNION)) return 0; + while (ct->sib) { + ct = ctype_get(cts, ct->sib); + if (ctype_isfield(ct->info)) { + CType *sct = ctype_rawchild(cts, ct); + if (ctype_isfp(sct->info)) { + if (sct->size == sz) + return (sz >> 2); /* Return 1 for float or 2 for double. */ + } else if (ctype_isstruct(sct->info)) { + if (sct->size) + return ccall_classify_struct(cts, sct); + } else { + break; + } + } else if (ctype_isbitfield(ct->info)) { + break; + } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { + CType *sct = ctype_rawchild(cts, ct); + if (sct->size) + return ccall_classify_struct(cts, sct); + } + } + return 0; +} + +#endif + +/* -- x64 struct classification ------------------------------------------- */ + +#if LJ_TARGET_X64 && !LJ_ABI_WIN + +/* Register classes for x64 struct classification. */ +#define CCALL_RCL_INT 1 +#define CCALL_RCL_SSE 2 +#define CCALL_RCL_MEM 4 +/* NYI: classify vectors. */ + +static int ccall_classify_struct(CTState *cts, CType *ct, int *rcl, CTSize ofs); + +/* Classify a C type. */ +static void ccall_classify_ct(CTState *cts, CType *ct, int *rcl, CTSize ofs) +{ + if (ctype_isarray(ct->info)) { + CType *cct = ctype_rawchild(cts, ct); + CTSize eofs, esz = cct->size, asz = ct->size; + for (eofs = 0; eofs < asz; eofs += esz) + ccall_classify_ct(cts, cct, rcl, ofs+eofs); + } else if (ctype_isstruct(ct->info)) { + ccall_classify_struct(cts, ct, rcl, ofs); + } else { + int cl = ctype_isfp(ct->info) ? CCALL_RCL_SSE : CCALL_RCL_INT; + lua_assert(ctype_hassize(ct->info)); + if ((ofs & (ct->size-1))) cl = CCALL_RCL_MEM; /* Unaligned. */ + rcl[(ofs >= 8)] |= cl; + } +} + +/* Recursively classify a struct based on its fields. */ +static int ccall_classify_struct(CTState *cts, CType *ct, int *rcl, CTSize ofs) +{ + if (ct->size > 16) return CCALL_RCL_MEM; /* Too big, gets memory class. */ + while (ct->sib) { + CTSize fofs; + ct = ctype_get(cts, ct->sib); + fofs = ofs+ct->size; + if (ctype_isfield(ct->info)) + ccall_classify_ct(cts, ctype_rawchild(cts, ct), rcl, fofs); + else if (ctype_isbitfield(ct->info)) + rcl[(fofs >= 8)] |= CCALL_RCL_INT; /* NYI: unaligned bitfields? */ + else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) + ccall_classify_struct(cts, ctype_rawchild(cts, ct), rcl, fofs); + } + return ((rcl[0]|rcl[1]) & CCALL_RCL_MEM); /* Memory class? */ +} + +/* Try to split up a small struct into registers. */ +static int ccall_struct_reg(CCallState *cc, GPRArg *dp, int *rcl) +{ + MSize ngpr = cc->ngpr, nfpr = cc->nfpr; + uint32_t i; + for (i = 0; i < 2; i++) { + lua_assert(!(rcl[i] & CCALL_RCL_MEM)); + if ((rcl[i] & CCALL_RCL_INT)) { /* Integer class takes precedence. */ + if (ngpr >= CCALL_NARG_GPR) return 1; /* Register overflow. */ + cc->gpr[ngpr++] = dp[i]; + } else if ((rcl[i] & CCALL_RCL_SSE)) { + if (nfpr >= CCALL_NARG_FPR) return 1; /* Register overflow. */ + cc->fpr[nfpr++].l[0] = dp[i]; + } + } + cc->ngpr = ngpr; cc->nfpr = nfpr; + return 0; /* Ok. */ +} + +/* Pass a small struct argument. */ +static int ccall_struct_arg(CCallState *cc, CTState *cts, CType *d, int *rcl, + TValue *o, int narg) +{ + GPRArg dp[2]; + dp[0] = dp[1] = 0; + /* Convert to temp. struct. */ + lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg)); + if (ccall_struct_reg(cc, dp, rcl)) { /* Register overflow? Pass on stack. */ + MSize nsp = cc->nsp, n = rcl[1] ? 2 : 1; + if (nsp + n > CCALL_MAXSTACK) return 1; /* Too many arguments. */ + cc->nsp = nsp + n; + memcpy(&cc->stack[nsp], dp, n*CTSIZE_PTR); + } + return 0; /* Ok. */ +} + +/* Combine returned small struct. */ +static void ccall_struct_ret(CCallState *cc, int *rcl, uint8_t *dp, CTSize sz) +{ + GPRArg sp[2]; + MSize ngpr = 0, nfpr = 0; + uint32_t i; + for (i = 0; i < 2; i++) { + if ((rcl[i] & CCALL_RCL_INT)) { /* Integer class takes precedence. */ + sp[i] = cc->gpr[ngpr++]; + } else if ((rcl[i] & CCALL_RCL_SSE)) { + sp[i] = cc->fpr[nfpr++].l[0]; + } + } + memcpy(dp, sp, sz); +} +#endif + +/* -- ARM hard-float ABI struct classification ---------------------------- */ + +#if LJ_TARGET_ARM && !LJ_ABI_SOFTFP + +/* Classify a struct based on its fields. */ +static unsigned int ccall_classify_struct(CTState *cts, CType *ct, CType *ctf) +{ + CTSize sz = ct->size; + unsigned int r = 0, n = 0, isu = (ct->info & CTF_UNION); + if ((ctf->info & CTF_VARARG)) goto noth; + while (ct->sib) { + CType *sct; + ct = ctype_get(cts, ct->sib); + if (ctype_isfield(ct->info)) { + sct = ctype_rawchild(cts, ct); + if (ctype_isfp(sct->info)) { + r |= sct->size; + if (!isu) n++; else if (n == 0) n = 1; + } else if (ctype_iscomplex(sct->info)) { + r |= (sct->size >> 1); + if (!isu) n += 2; else if (n < 2) n = 2; + } else if (ctype_isstruct(sct->info)) { + goto substruct; + } else { + goto noth; + } + } else if (ctype_isbitfield(ct->info)) { + goto noth; + } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { + sct = ctype_rawchild(cts, ct); + substruct: + if (sct->size > 0) { + unsigned int s = ccall_classify_struct(cts, sct, ctf); + if (s <= 1) goto noth; + r |= (s & 255); + if (!isu) n += (s >> 8); else if (n < (s >>8)) n = (s >> 8); + } + } + } + if ((r == 4 || r == 8) && n <= 4) + return r + (n << 8); +noth: /* Not a homogeneous float/double aggregate. */ + return (sz <= 4); /* Return structs of size <= 4 in a GPR. */ +} + +#endif + +/* -- Common C call handling ---------------------------------------------- */ + +/* Infer the destination CTypeID for a vararg argument. */ +CTypeID lj_ccall_ctid_vararg(CTState *cts, cTValue *o) +{ + if (tvisnumber(o)) { + return CTID_DOUBLE; + } else if (tviscdata(o)) { + CTypeID id = cdataV(o)->ctypeid; + CType *s = ctype_get(cts, id); + if (ctype_isrefarray(s->info)) { + return lj_ctype_intern(cts, + CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(s->info)), CTSIZE_PTR); + } else if (ctype_isstruct(s->info) || ctype_isfunc(s->info)) { + /* NYI: how to pass a struct by value in a vararg argument? */ + return lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR); + } else if (ctype_isfp(s->info) && s->size == sizeof(float)) { + return CTID_DOUBLE; + } else { + return id; + } + } else if (tvisstr(o)) { + return CTID_P_CCHAR; + } else if (tvisbool(o)) { + return CTID_BOOL; + } else { + return CTID_P_VOID; + } +} + +/* Setup arguments for C call. */ +static int ccall_set_args(lua_State *L, CTState *cts, CType *ct, + CCallState *cc) +{ + int gcsteps = 0; + TValue *o, *top = L->top; + CTypeID fid; + CType *ctr; + MSize maxgpr, ngpr = 0, nsp = 0, narg; +#if CCALL_NARG_FPR + MSize nfpr = 0; +#if LJ_TARGET_ARM + MSize fprodd = 0; +#endif +#endif + + /* Clear unused regs to get some determinism in case of misdeclaration. */ + memset(cc->gpr, 0, sizeof(cc->gpr)); +#if CCALL_NUM_FPR + memset(cc->fpr, 0, sizeof(cc->fpr)); +#endif + +#if LJ_TARGET_X86 + /* x86 has several different calling conventions. */ + cc->resx87 = 0; + switch (ctype_cconv(ct->info)) { + case CTCC_FASTCALL: maxgpr = 2; break; + case CTCC_THISCALL: maxgpr = 1; break; + default: maxgpr = 0; break; + } +#else + maxgpr = CCALL_NARG_GPR; +#endif + + /* Perform required setup for some result types. */ + ctr = ctype_rawchild(cts, ct); + if (ctype_isvector(ctr->info)) { + if (!(CCALL_VECTOR_REG && (ctr->size == 8 || ctr->size == 16))) + goto err_nyi; + } else if (ctype_iscomplex(ctr->info) || ctype_isstruct(ctr->info)) { + /* Preallocate cdata object and anchor it after arguments. */ + CTSize sz = ctr->size; + GCcdata *cd = lj_cdata_new(cts, ctype_cid(ct->info), sz); + void *dp = cdataptr(cd); + setcdataV(L, L->top++, cd); + if (ctype_isstruct(ctr->info)) { + CCALL_HANDLE_STRUCTRET + } else { + CCALL_HANDLE_COMPLEXRET + } +#if LJ_TARGET_X86 + } else if (ctype_isfp(ctr->info)) { + cc->resx87 = ctr->size == sizeof(float) ? 1 : 2; +#endif + } + + /* Skip initial attributes. */ + fid = ct->sib; + while (fid) { + CType *ctf = ctype_get(cts, fid); + if (!ctype_isattrib(ctf->info)) break; + fid = ctf->sib; + } + + /* Walk through all passed arguments. */ + for (o = L->base+1, narg = 1; o < top; o++, narg++) { + CTypeID did; + CType *d; + CTSize sz; + MSize n, isfp = 0, isva = 0; + void *dp, *rp = NULL; + + if (fid) { /* Get argument type from field. */ + CType *ctf = ctype_get(cts, fid); + fid = ctf->sib; + lua_assert(ctype_isfield(ctf->info)); + did = ctype_cid(ctf->info); + } else { + if (!(ct->info & CTF_VARARG)) + lj_err_caller(L, LJ_ERR_FFI_NUMARG); /* Too many arguments. */ + did = lj_ccall_ctid_vararg(cts, o); /* Infer vararg type. */ + isva = 1; + } + d = ctype_raw(cts, did); + sz = d->size; + + /* Find out how (by value/ref) and where (GPR/FPR) to pass an argument. */ + if (ctype_isnum(d->info)) { + if (sz > 8) goto err_nyi; + if ((d->info & CTF_FP)) + isfp = 1; + } else if (ctype_isvector(d->info)) { + if (CCALL_VECTOR_REG && (sz == 8 || sz == 16)) + isfp = 1; + else + goto err_nyi; + } else if (ctype_isstruct(d->info)) { + CCALL_HANDLE_STRUCTARG + } else if (ctype_iscomplex(d->info)) { + CCALL_HANDLE_COMPLEXARG + } else { + sz = CTSIZE_PTR; + } + sz = (sz + CTSIZE_PTR-1) & ~(CTSIZE_PTR-1); + n = sz / CTSIZE_PTR; /* Number of GPRs or stack slots needed. */ + + CCALL_HANDLE_REGARG /* Handle register arguments. */ + + /* Otherwise pass argument on stack. */ + if (CCALL_ALIGN_STACKARG && !rp && (d->info & CTF_ALIGN) > CTALIGN_PTR) { + MSize align = (1u << ctype_align(d->info-CTALIGN_PTR)) -1; + nsp = (nsp + align) & ~align; /* Align argument on stack. */ + } + if (nsp + n > CCALL_MAXSTACK) { /* Too many arguments. */ + err_nyi: + lj_err_caller(L, LJ_ERR_FFI_NYICALL); + } + dp = &cc->stack[nsp]; + nsp += n; + isva = 0; + + done: + if (rp) { /* Pass by reference. */ + gcsteps++; + *(void **)dp = rp; + dp = rp; + } + lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg)); + /* Extend passed integers to 32 bits at least. */ + if (ctype_isinteger_or_bool(d->info) && d->size < 4) { + if (d->info & CTF_UNSIGNED) + *(uint32_t *)dp = d->size == 1 ? (uint32_t)*(uint8_t *)dp : + (uint32_t)*(uint16_t *)dp; + else + *(int32_t *)dp = d->size == 1 ? (int32_t)*(int8_t *)dp : + (int32_t)*(int16_t *)dp; + } +#if LJ_TARGET_X64 && LJ_ABI_WIN + if (isva) { /* Windows/x64 mirrors varargs in both register sets. */ + if (nfpr == ngpr) + cc->gpr[ngpr-1] = cc->fpr[ngpr-1].l[0]; + else + cc->fpr[ngpr-1].l[0] = cc->gpr[ngpr-1]; + } +#else + UNUSED(isva); +#endif +#if LJ_TARGET_X64 && !LJ_ABI_WIN + if (isfp == 2 && n == 2 && (uint8_t *)dp == (uint8_t *)&cc->fpr[nfpr-2]) { + cc->fpr[nfpr-1].d[0] = cc->fpr[nfpr-2].d[1]; /* Split complex double. */ + cc->fpr[nfpr-2].d[1] = 0; + } +#else + UNUSED(isfp); +#endif + } + if (fid) lj_err_caller(L, LJ_ERR_FFI_NUMARG); /* Too few arguments. */ + +#if LJ_TARGET_X64 || LJ_TARGET_PPC + cc->nfpr = nfpr; /* Required for vararg functions. */ +#endif + cc->nsp = nsp; + cc->spadj = (CCALL_SPS_FREE + CCALL_SPS_EXTRA)*CTSIZE_PTR; + if (nsp > CCALL_SPS_FREE) + cc->spadj += (((nsp-CCALL_SPS_FREE)*CTSIZE_PTR + 15u) & ~15u); + return gcsteps; +} + +/* Get results from C call. */ +static int ccall_get_results(lua_State *L, CTState *cts, CType *ct, + CCallState *cc, int *ret) +{ + CType *ctr = ctype_rawchild(cts, ct); + uint8_t *sp = (uint8_t *)&cc->gpr[0]; + if (ctype_isvoid(ctr->info)) { + *ret = 0; /* Zero results. */ + return 0; /* No additional GC step. */ + } + *ret = 1; /* One result. */ + if (ctype_isstruct(ctr->info)) { + /* Return cdata object which is already on top of stack. */ + if (!cc->retref) { + void *dp = cdataptr(cdataV(L->top-1)); /* Use preallocated object. */ + CCALL_HANDLE_STRUCTRET2 + } + return 1; /* One GC step. */ + } + if (ctype_iscomplex(ctr->info)) { + /* Return cdata object which is already on top of stack. */ + void *dp = cdataptr(cdataV(L->top-1)); /* Use preallocated object. */ + CCALL_HANDLE_COMPLEXRET2 + return 1; /* One GC step. */ + } + if (LJ_BE && ctype_isinteger_or_bool(ctr->info) && ctr->size < CTSIZE_PTR) + sp += (CTSIZE_PTR - ctr->size); +#if CCALL_NUM_FPR + if (ctype_isfp(ctr->info) || ctype_isvector(ctr->info)) + sp = (uint8_t *)&cc->fpr[0]; +#endif +#ifdef CCALL_HANDLE_RET + CCALL_HANDLE_RET +#endif + /* No reference types end up here, so there's no need for the CTypeID. */ + lua_assert(!(ctype_isrefarray(ctr->info) || ctype_isstruct(ctr->info))); + return lj_cconv_tv_ct(cts, ctr, 0, L->top-1, sp); +} + +/* Call C function. */ +int lj_ccall_func(lua_State *L, GCcdata *cd) +{ + CTState *cts = ctype_cts(L); + CType *ct = ctype_raw(cts, cd->ctypeid); + CTSize sz = CTSIZE_PTR; + if (ctype_isptr(ct->info)) { + sz = ct->size; + ct = ctype_rawchild(cts, ct); + } + if (ctype_isfunc(ct->info)) { + CCallState cc; + int gcsteps, ret; + cc.func = (void (*)(void))cdata_getptr(cdataptr(cd), sz); + gcsteps = ccall_set_args(L, cts, ct, &cc); + ct = (CType *)((intptr_t)ct-(intptr_t)cts->tab); + cts->cb.slot = ~0u; + lj_vm_ffi_call(&cc); + if (cts->cb.slot != ~0u) { /* Blacklist function that called a callback. */ + TValue tv; + setlightudV(&tv, (void *)cc.func); + setboolV(lj_tab_set(L, cts->miscmap, &tv), 1); + } + ct = (CType *)((intptr_t)ct+(intptr_t)cts->tab); /* May be reallocated. */ + gcsteps += ccall_get_results(L, cts, ct, &cc, &ret); +#if LJ_TARGET_X86 && LJ_ABI_WIN + /* Automatically detect __stdcall and fix up C function declaration. */ + if (cc.spadj && ctype_cconv(ct->info) == CTCC_CDECL) { + CTF_INSERT(ct->info, CCONV, CTCC_STDCALL); + lj_trace_abort(G(L)); + } +#endif + while (gcsteps-- > 0) + lj_gc_check(L); + return ret; + } + return -1; /* Not a function. */ +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.h b/src/3rd party/luajit-2.0/src/lj_ccall.h new file mode 100644 index 00000000000..f5530109313 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ccall.h @@ -0,0 +1,171 @@ +/* +** FFI C call handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CCALL_H +#define _LJ_CCALL_H + +#include "lj_obj.h" +#include "lj_ctype.h" + +#if LJ_HASFFI + +/* -- C calling conventions ----------------------------------------------- */ + +#if LJ_TARGET_X86ORX64 + +#if LJ_TARGET_X86 +#define CCALL_NARG_GPR 2 /* For fastcall arguments. */ +#define CCALL_NARG_FPR 0 +#define CCALL_NRET_GPR 2 +#define CCALL_NRET_FPR 1 /* For FP results on x87 stack. */ +#define CCALL_ALIGN_STACKARG 0 /* Don't align argument on stack. */ +#elif LJ_ABI_WIN +#define CCALL_NARG_GPR 4 +#define CCALL_NARG_FPR 4 +#define CCALL_NRET_GPR 1 +#define CCALL_NRET_FPR 1 +#define CCALL_SPS_EXTRA 4 +#else +#define CCALL_NARG_GPR 6 +#define CCALL_NARG_FPR 8 +#define CCALL_NRET_GPR 2 +#define CCALL_NRET_FPR 2 +#define CCALL_VECTOR_REG 1 /* Pass vectors in registers. */ +#endif + +#define CCALL_SPS_FREE 1 +#define CCALL_ALIGN_CALLSTATE 16 + +typedef LJ_ALIGN(16) union FPRArg { + double d[2]; + float f[4]; + uint8_t b[16]; + uint16_t s[8]; + int i[4]; + int64_t l[2]; +} FPRArg; + +typedef intptr_t GPRArg; + +#elif LJ_TARGET_ARM + +#define CCALL_NARG_GPR 4 +#define CCALL_NRET_GPR 2 /* For softfp double. */ +#if LJ_ABI_SOFTFP +#define CCALL_NARG_FPR 0 +#define CCALL_NRET_FPR 0 +#else +#define CCALL_NARG_FPR 8 +#define CCALL_NRET_FPR 4 +#endif +#define CCALL_SPS_FREE 0 + +typedef intptr_t GPRArg; +typedef union FPRArg { + double d; + float f[2]; +} FPRArg; + +#elif LJ_TARGET_PPC + +#define CCALL_NARG_GPR 8 +#define CCALL_NARG_FPR 8 +#define CCALL_NRET_GPR 4 /* For complex double. */ +#define CCALL_NRET_FPR 1 +#define CCALL_SPS_EXTRA 4 +#define CCALL_SPS_FREE 0 + +typedef intptr_t GPRArg; +typedef double FPRArg; + +#elif LJ_TARGET_PPCSPE + +#define CCALL_NARG_GPR 8 +#define CCALL_NARG_FPR 0 +#define CCALL_NRET_GPR 4 /* For softfp complex double. */ +#define CCALL_NRET_FPR 0 +#define CCALL_SPS_FREE 0 /* NYI */ + +typedef intptr_t GPRArg; + +#elif LJ_TARGET_MIPS + +#define CCALL_NARG_GPR 4 +#define CCALL_NARG_FPR 2 +#define CCALL_NRET_GPR 2 +#define CCALL_NRET_FPR 2 +#define CCALL_SPS_EXTRA 7 +#define CCALL_SPS_FREE 1 + +typedef intptr_t GPRArg; +typedef union FPRArg { + double d; + struct { LJ_ENDIAN_LOHI(float f; , float g;) }; +} FPRArg; + +#else +#error "Missing calling convention definitions for this architecture" +#endif + +#ifndef CCALL_SPS_EXTRA +#define CCALL_SPS_EXTRA 0 +#endif +#ifndef CCALL_VECTOR_REG +#define CCALL_VECTOR_REG 0 +#endif +#ifndef CCALL_ALIGN_STACKARG +#define CCALL_ALIGN_STACKARG 1 +#endif +#ifndef CCALL_ALIGN_CALLSTATE +#define CCALL_ALIGN_CALLSTATE 8 +#endif + +#define CCALL_NUM_GPR \ + (CCALL_NARG_GPR > CCALL_NRET_GPR ? CCALL_NARG_GPR : CCALL_NRET_GPR) +#define CCALL_NUM_FPR \ + (CCALL_NARG_FPR > CCALL_NRET_FPR ? CCALL_NARG_FPR : CCALL_NRET_FPR) + +/* Check against constants in lj_ctype.h. */ +LJ_STATIC_ASSERT(CCALL_NUM_GPR <= CCALL_MAX_GPR); +LJ_STATIC_ASSERT(CCALL_NUM_FPR <= CCALL_MAX_FPR); + +#define CCALL_MAXSTACK 32 + +/* -- C call state -------------------------------------------------------- */ + +typedef LJ_ALIGN(CCALL_ALIGN_CALLSTATE) struct CCallState { + void (*func)(void); /* Pointer to called function. */ + uint32_t spadj; /* Stack pointer adjustment. */ + uint8_t nsp; /* Number of stack slots. */ + uint8_t retref; /* Return value by reference. */ +#if LJ_TARGET_X64 + uint8_t ngpr; /* Number of arguments in GPRs. */ + uint8_t nfpr; /* Number of arguments in FPRs. */ +#elif LJ_TARGET_X86 + uint8_t resx87; /* Result on x87 stack: 1:float, 2:double. */ +#elif LJ_TARGET_PPC + uint8_t nfpr; /* Number of arguments in FPRs. */ +#endif +#if LJ_32 + int32_t align1; +#endif +#if CCALL_NUM_FPR + FPRArg fpr[CCALL_NUM_FPR]; /* Arguments/results in FPRs. */ +#endif + GPRArg gpr[CCALL_NUM_GPR]; /* Arguments/results in GPRs. */ + GPRArg stack[CCALL_MAXSTACK]; /* Stack slots. */ +} CCallState; + +/* -- C call handling ----------------------------------------------------- */ + +/* Really belongs to lj_vm.h. */ +LJ_ASMF void LJ_FASTCALL lj_vm_ffi_call(CCallState *cc); + +LJ_FUNC CTypeID lj_ccall_ctid_vararg(CTState *cts, cTValue *o); +LJ_FUNC int lj_ccall_func(lua_State *L, GCcdata *cd); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccallback.c b/src/3rd party/luajit-2.0/src/lj_ccallback.c new file mode 100644 index 00000000000..b210641f914 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ccallback.c @@ -0,0 +1,644 @@ +/* +** FFI C callback handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_tab.h" +#include "lj_state.h" +#include "lj_frame.h" +#include "lj_ctype.h" +#include "lj_cconv.h" +#include "lj_ccall.h" +#include "lj_ccallback.h" +#include "lj_target.h" +#include "lj_mcode.h" +#include "lj_trace.h" +#include "lj_vm.h" + +/* -- Target-specific handling of callback slots -------------------------- */ + +#define CALLBACK_MCODE_SIZE (LJ_PAGESIZE * LJ_NUM_CBPAGE) + +#if LJ_OS_NOJIT + +/* Disabled callback support. */ +#define CALLBACK_SLOT2OFS(slot) (0*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (0*(ofs)) +#define CALLBACK_MAX_SLOT 0 + +#elif LJ_TARGET_X86ORX64 + +#define CALLBACK_MCODE_HEAD (LJ_64 ? 8 : 0) +#define CALLBACK_MCODE_GROUP (-2+1+2+5+(LJ_64 ? 6 : 5)) + +#define CALLBACK_SLOT2OFS(slot) \ + (CALLBACK_MCODE_HEAD + CALLBACK_MCODE_GROUP*((slot)/32) + 4*(slot)) + +static MSize CALLBACK_OFS2SLOT(MSize ofs) +{ + MSize group; + ofs -= CALLBACK_MCODE_HEAD; + group = ofs / (32*4 + CALLBACK_MCODE_GROUP); + return (ofs % (32*4 + CALLBACK_MCODE_GROUP))/4 + group*32; +} + +#define CALLBACK_MAX_SLOT \ + (((CALLBACK_MCODE_SIZE-CALLBACK_MCODE_HEAD)/(CALLBACK_MCODE_GROUP+4*32))*32) + +#elif LJ_TARGET_ARM + +#define CALLBACK_MCODE_HEAD 32 +#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) +#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) + +#elif LJ_TARGET_PPC + +#define CALLBACK_MCODE_HEAD 24 +#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) +#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) + +#elif LJ_TARGET_MIPS + +#define CALLBACK_MCODE_HEAD 24 +#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) +#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) + +#else + +/* Missing support for this architecture. */ +#define CALLBACK_SLOT2OFS(slot) (0*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (0*(ofs)) +#define CALLBACK_MAX_SLOT 0 + +#endif + +/* Convert callback slot number to callback function pointer. */ +static void *callback_slot2ptr(CTState *cts, MSize slot) +{ + return (uint8_t *)cts->cb.mcode + CALLBACK_SLOT2OFS(slot); +} + +/* Convert callback function pointer to slot number. */ +MSize lj_ccallback_ptr2slot(CTState *cts, void *p) +{ + uintptr_t ofs = (uintptr_t)((uint8_t *)p -(uint8_t *)cts->cb.mcode); + if (ofs < CALLBACK_MCODE_SIZE) { + MSize slot = CALLBACK_OFS2SLOT((MSize)ofs); + if (CALLBACK_SLOT2OFS(slot) == (MSize)ofs) + return slot; + } + return ~0u; /* Not a known callback function pointer. */ +} + +/* Initialize machine code for callback function pointers. */ +#if LJ_OS_NOJIT +/* Disabled callback support. */ +#define callback_mcode_init(g, p) UNUSED(p) +#elif LJ_TARGET_X86ORX64 +static void callback_mcode_init(global_State *g, uint8_t *page) +{ + uint8_t *p = page; + uint8_t *target = (uint8_t *)(void *)lj_vm_ffi_callback; + MSize slot; +#if LJ_64 + *(void **)p = target; p += 8; +#endif + for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { + /* mov al, slot; jmp group */ + *p++ = XI_MOVrib | RID_EAX; *p++ = (uint8_t)slot; + if ((slot & 31) == 31 || slot == CALLBACK_MAX_SLOT-1) { + /* push ebp/rbp; mov ah, slot>>8; mov ebp, &g. */ + *p++ = XI_PUSH + RID_EBP; + *p++ = XI_MOVrib | (RID_EAX+4); *p++ = (uint8_t)(slot >> 8); + *p++ = XI_MOVri | RID_EBP; + *(int32_t *)p = i32ptr(g); p += 4; +#if LJ_64 + /* jmp [rip-pageofs] where lj_vm_ffi_callback is stored. */ + *p++ = XI_GROUP5; *p++ = XM_OFS0 + (XOg_JMP<<3) + RID_EBP; + *(int32_t *)p = (int32_t)(page-(p+4)); p += 4; +#else + /* jmp lj_vm_ffi_callback. */ + *p++ = XI_JMP; *(int32_t *)p = target-(p+4); p += 4; +#endif + } else { + *p++ = XI_JMPs; *p++ = (uint8_t)((2+2)*(31-(slot&31)) - 2); + } + } + lua_assert(p - page <= CALLBACK_MCODE_SIZE); +} +#elif LJ_TARGET_ARM +static void callback_mcode_init(global_State *g, uint32_t *page) +{ + uint32_t *p = page; + void *target = (void *)lj_vm_ffi_callback; + MSize slot; + /* This must match with the saveregs macro in buildvm_arm.dasc. */ + *p++ = ARMI_SUB|ARMF_D(RID_R12)|ARMF_N(RID_R12)|ARMF_M(RID_PC); + *p++ = ARMI_PUSH|ARMF_N(RID_SP)|RSET_RANGE(RID_R4,RID_R11+1)|RID2RSET(RID_LR); + *p++ = ARMI_SUB|ARMI_K12|ARMF_D(RID_R12)|ARMF_N(RID_R12)|CALLBACK_MCODE_HEAD; + *p++ = ARMI_STR|ARMI_LS_P|ARMI_LS_W|ARMF_D(RID_R12)|ARMF_N(RID_SP)|(CFRAME_SIZE-4*9); + *p++ = ARMI_LDR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_R12)|ARMF_N(RID_PC); + *p++ = ARMI_LDR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_PC)|ARMF_N(RID_PC); + *p++ = u32ptr(g); + *p++ = u32ptr(target); + for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { + *p++ = ARMI_MOV|ARMF_D(RID_R12)|ARMF_M(RID_PC); + *p = ARMI_B | ((page-p-2) & 0x00ffffffu); + p++; + } + lua_assert(p - page <= CALLBACK_MCODE_SIZE); +} +#elif LJ_TARGET_PPC +static void callback_mcode_init(global_State *g, uint32_t *page) +{ + uint32_t *p = page; + void *target = (void *)lj_vm_ffi_callback; + MSize slot; + *p++ = PPCI_LIS | PPCF_T(RID_TMP) | (u32ptr(target) >> 16); + *p++ = PPCI_LIS | PPCF_T(RID_R12) | (u32ptr(g) >> 16); + *p++ = PPCI_ORI | PPCF_A(RID_TMP)|PPCF_T(RID_TMP) | (u32ptr(target) & 0xffff); + *p++ = PPCI_ORI | PPCF_A(RID_R12)|PPCF_T(RID_R12) | (u32ptr(g) & 0xffff); + *p++ = PPCI_MTCTR | PPCF_T(RID_TMP); + *p++ = PPCI_BCTR; + for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { + *p++ = PPCI_LI | PPCF_T(RID_R11) | slot; + *p = PPCI_B | (((page-p) & 0x00ffffffu) << 2); + p++; + } + lua_assert(p - page <= CALLBACK_MCODE_SIZE); +} +#elif LJ_TARGET_MIPS +static void callback_mcode_init(global_State *g, uint32_t *page) +{ + uint32_t *p = page; + void *target = (void *)lj_vm_ffi_callback; + MSize slot; + *p++ = MIPSI_SW | MIPSF_T(RID_R1)|MIPSF_S(RID_SP) | 0; + *p++ = MIPSI_LUI | MIPSF_T(RID_R3) | (u32ptr(target) >> 16); + *p++ = MIPSI_LUI | MIPSF_T(RID_R2) | (u32ptr(g) >> 16); + *p++ = MIPSI_ORI | MIPSF_T(RID_R3)|MIPSF_S(RID_R3) |(u32ptr(target)&0xffff); + *p++ = MIPSI_JR | MIPSF_S(RID_R3); + *p++ = MIPSI_ORI | MIPSF_T(RID_R2)|MIPSF_S(RID_R2) | (u32ptr(g)&0xffff); + for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { + *p = MIPSI_B | ((page-p-1) & 0x0000ffffu); + p++; + *p++ = MIPSI_LI | MIPSF_T(RID_R1) | slot; + } + lua_assert(p - page <= CALLBACK_MCODE_SIZE); +} +#else +/* Missing support for this architecture. */ +#define callback_mcode_init(g, p) UNUSED(p) +#endif + +/* -- Machine code management --------------------------------------------- */ + +#if LJ_TARGET_WINDOWS + +#define WIN32_LEAN_AND_MEAN +#include + +#elif LJ_TARGET_POSIX + +#include +#ifndef MAP_ANONYMOUS +#define MAP_ANONYMOUS MAP_ANON +#endif + +#endif + +/* Allocate and initialize area for callback function pointers. */ +static void callback_mcode_new(CTState *cts) +{ + size_t sz = (size_t)CALLBACK_MCODE_SIZE; + void *p; + if (CALLBACK_MAX_SLOT == 0) + lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); +#if LJ_TARGET_WINDOWS + p = VirtualAlloc(NULL, sz, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); + if (!p) + lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); +#elif LJ_TARGET_POSIX + p = mmap(NULL, sz, (PROT_READ|PROT_WRITE), MAP_PRIVATE|MAP_ANONYMOUS, + -1, 0); + if (p == MAP_FAILED) + lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); +#else + /* Fallback allocator. Fails if memory is not executable by default. */ + p = lj_mem_new(cts->L, sz); +#endif + cts->cb.mcode = p; + callback_mcode_init(cts->g, p); + lj_mcode_sync(p, (char *)p + sz); +#if LJ_TARGET_WINDOWS + { + DWORD oprot; + VirtualProtect(p, sz, PAGE_EXECUTE_READ, &oprot); + } +#elif LJ_TARGET_POSIX + mprotect(p, sz, (PROT_READ|PROT_EXEC)); +#endif +} + +/* Free area for callback function pointers. */ +void lj_ccallback_mcode_free(CTState *cts) +{ + size_t sz = (size_t)CALLBACK_MCODE_SIZE; + void *p = cts->cb.mcode; + if (p == NULL) return; +#if LJ_TARGET_WINDOWS + VirtualFree(p, 0, MEM_RELEASE); + UNUSED(sz); +#elif LJ_TARGET_POSIX + munmap(p, sz); +#else + lj_mem_free(cts->g, p, sz); +#endif +} + +/* -- C callback entry ---------------------------------------------------- */ + +/* Target-specific handling of register arguments. Similar to lj_ccall.c. */ +#if LJ_TARGET_X86 + +#define CALLBACK_HANDLE_REGARG \ + if (!isfp) { /* Only non-FP values may be passed in registers. */ \ + if (n > 1) { /* Anything > 32 bit is passed on the stack. */ \ + if (!LJ_ABI_WIN) ngpr = maxgpr; /* Prevent reordering. */ \ + } else if (ngpr + 1 <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#elif LJ_TARGET_X64 && LJ_ABI_WIN + +/* Windows/x64 argument registers are strictly positional (use ngpr). */ +#define CALLBACK_HANDLE_REGARG \ + if (isfp) { \ + if (ngpr < maxgpr) { sp = &cts->cb.fpr[ngpr++]; UNUSED(nfpr); goto done; } \ + } else { \ + if (ngpr < maxgpr) { sp = &cts->cb.gpr[ngpr++]; goto done; } \ + } + +#elif LJ_TARGET_X64 + +#define CALLBACK_HANDLE_REGARG \ + if (isfp) { \ + if (nfpr + n <= CCALL_NARG_FPR) { \ + sp = &cts->cb.fpr[nfpr]; \ + nfpr += n; \ + goto done; \ + } \ + } else { \ + if (ngpr + n <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#elif LJ_TARGET_ARM + +#if LJ_ABI_SOFTFP + +#define CALLBACK_HANDLE_REGARG_FP1 UNUSED(isfp); +#define CALLBACK_HANDLE_REGARG_FP2 + +#else + +#define CALLBACK_HANDLE_REGARG_FP1 \ + if (isfp) { \ + if (n == 1) { \ + if (fprodd) { \ + sp = &cts->cb.fpr[fprodd-1]; \ + fprodd = 0; \ + goto done; \ + } else if (nfpr + 1 <= CCALL_NARG_FPR) { \ + sp = &cts->cb.fpr[nfpr++]; \ + fprodd = nfpr; \ + goto done; \ + } \ + } else { \ + if (nfpr + 1 <= CCALL_NARG_FPR) { \ + sp = &cts->cb.fpr[nfpr++]; \ + goto done; \ + } \ + } \ + fprodd = 0; /* No reordering after the first FP value is on stack. */ \ + } else { + +#define CALLBACK_HANDLE_REGARG_FP2 } + +#endif + +#define CALLBACK_HANDLE_REGARG \ + CALLBACK_HANDLE_REGARG_FP1 \ + if (n > 1) ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + if (ngpr + n <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } CALLBACK_HANDLE_REGARG_FP2 + +#elif LJ_TARGET_PPC + +#define CALLBACK_HANDLE_REGARG \ + if (isfp) { \ + if (nfpr + 1 <= CCALL_NARG_FPR) { \ + sp = &cts->cb.fpr[nfpr++]; \ + cta = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ \ + goto done; \ + } \ + } else { /* Try to pass argument in GPRs. */ \ + if (n > 1) { \ + lua_assert(ctype_isinteger(cta->info) && n == 2); /* int64_t. */ \ + ngpr = (ngpr + 1u) & ~1u; /* Align int64_t to regpair. */ \ + } \ + if (ngpr + n <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#define CALLBACK_HANDLE_RET \ + if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ + *(double *)dp = *(float *)dp; /* FPRs always hold doubles. */ + +#elif LJ_TARGET_MIPS + +#define CALLBACK_HANDLE_REGARG \ + if (isfp && nfpr < CCALL_NARG_FPR) { /* Try to pass argument in FPRs. */ \ + sp = (void *)((uint8_t *)&cts->cb.fpr[nfpr] + ((LJ_BE && n==1) ? 4 : 0)); \ + nfpr++; ngpr += n; \ + goto done; \ + } else { /* Try to pass argument in GPRs. */ \ + nfpr = CCALL_NARG_FPR; \ + if (n > 1) ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + if (ngpr + n <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } \ + } + +#define CALLBACK_HANDLE_RET \ + if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ + ((float *)dp)[1] = *(float *)dp; + +#else +#error "Missing calling convention definitions for this architecture" +#endif + +/* Convert and push callback arguments to Lua stack. */ +static void callback_conv_args(CTState *cts, lua_State *L) +{ + TValue *o = L->top; + intptr_t *stack = cts->cb.stack; + MSize slot = cts->cb.slot; + CTypeID id = 0, rid, fid; + int gcsteps = 0; + CType *ct; + GCfunc *fn; + MSize ngpr = 0, nsp = 0, maxgpr = CCALL_NARG_GPR; +#if CCALL_NARG_FPR + MSize nfpr = 0; +#if LJ_TARGET_ARM + MSize fprodd = 0; +#endif +#endif + + if (slot < cts->cb.sizeid && (id = cts->cb.cbid[slot]) != 0) { + ct = ctype_get(cts, id); + rid = ctype_cid(ct->info); + fn = funcV(lj_tab_getint(cts->miscmap, (int32_t)slot)); + } else { /* Must set up frame first, before throwing the error. */ + ct = NULL; + rid = 0; + fn = (GCfunc *)L; + } + o->u32.lo = LJ_CONT_FFI_CALLBACK; /* Continuation returns from callback. */ + o->u32.hi = rid; /* Return type. x86: +(spadj<<16). */ + o++; + setframe_gc(o, obj2gco(fn)); + setframe_ftsz(o, (int)((char *)(o+1) - (char *)L->base) + FRAME_CONT); + L->top = L->base = ++o; + if (!ct) + lj_err_caller(cts->L, LJ_ERR_FFI_BADCBACK); + if (isluafunc(fn)) + setcframe_pc(L->cframe, proto_bc(funcproto(fn))+1); + lj_state_checkstack(L, LUA_MINSTACK); /* May throw. */ + o = L->base; /* Might have been reallocated. */ + +#if LJ_TARGET_X86 + /* x86 has several different calling conventions. */ + switch (ctype_cconv(ct->info)) { + case CTCC_FASTCALL: maxgpr = 2; break; + case CTCC_THISCALL: maxgpr = 1; break; + default: maxgpr = 0; break; + } +#endif + + fid = ct->sib; + while (fid) { + CType *ctf = ctype_get(cts, fid); + if (!ctype_isattrib(ctf->info)) { + CType *cta; + void *sp; + CTSize sz; + int isfp; + MSize n; + lua_assert(ctype_isfield(ctf->info)); + cta = ctype_rawchild(cts, ctf); + isfp = ctype_isfp(cta->info); + sz = (cta->size + CTSIZE_PTR-1) & ~(CTSIZE_PTR-1); + n = sz / CTSIZE_PTR; /* Number of GPRs or stack slots needed. */ + + CALLBACK_HANDLE_REGARG /* Handle register arguments. */ + + /* Otherwise pass argument on stack. */ + if (CCALL_ALIGN_STACKARG && LJ_32 && sz == 8) + nsp = (nsp + 1) & ~1u; /* Align 64 bit argument on stack. */ + sp = &stack[nsp]; + nsp += n; + + done: + if (LJ_BE && cta->size < CTSIZE_PTR) + sp = (void *)((uint8_t *)sp + CTSIZE_PTR-cta->size); + gcsteps += lj_cconv_tv_ct(cts, cta, 0, o++, sp); + } + fid = ctf->sib; + } + L->top = o; +#if LJ_TARGET_X86 + /* Store stack adjustment for returns from non-cdecl callbacks. */ + if (ctype_cconv(ct->info) != CTCC_CDECL) + (L->base-2)->u32.hi |= (nsp << (16+2)); +#endif + while (gcsteps-- > 0) + lj_gc_check(L); +} + +/* Convert Lua object to callback result. */ +static void callback_conv_result(CTState *cts, lua_State *L, TValue *o) +{ + CType *ctr = ctype_raw(cts, (uint16_t)(L->base-2)->u32.hi); +#if LJ_TARGET_X86 + cts->cb.gpr[2] = 0; +#endif + if (!ctype_isvoid(ctr->info)) { + uint8_t *dp = (uint8_t *)&cts->cb.gpr[0]; +#if CCALL_NUM_FPR + if (ctype_isfp(ctr->info)) + dp = (uint8_t *)&cts->cb.fpr[0]; +#endif + lj_cconv_ct_tv(cts, ctr, dp, o, 0); +#ifdef CALLBACK_HANDLE_RET + CALLBACK_HANDLE_RET +#endif + /* Extend returned integers to (at least) 32 bits. */ + if (ctype_isinteger_or_bool(ctr->info) && ctr->size < 4) { + if (ctr->info & CTF_UNSIGNED) + *(uint32_t *)dp = ctr->size == 1 ? (uint32_t)*(uint8_t *)dp : + (uint32_t)*(uint16_t *)dp; + else + *(int32_t *)dp = ctr->size == 1 ? (int32_t)*(int8_t *)dp : + (int32_t)*(int16_t *)dp; + } +#if LJ_TARGET_X86 + if (ctype_isfp(ctr->info)) + cts->cb.gpr[2] = ctr->size == sizeof(float) ? 1 : 2; +#endif + } +} + +/* Enter callback. */ +lua_State * LJ_FASTCALL lj_ccallback_enter(CTState *cts, void *cf) +{ + lua_State *L = cts->L; + global_State *g = cts->g; + lua_assert(L != NULL); + if (gcref(g->jit_L)) { + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_FFI_BADCBACK)); + if (g->panic) g->panic(L); + exit(EXIT_FAILURE); + } + lj_trace_abort(g); /* Never record across callback. */ + /* Setup C frame. */ + cframe_prev(cf) = L->cframe; + setcframe_L(cf, L); + cframe_errfunc(cf) = -1; + cframe_nres(cf) = 0; + L->cframe = cf; + callback_conv_args(cts, L); + return L; /* Now call the function on this stack. */ +} + +/* Leave callback. */ +void LJ_FASTCALL lj_ccallback_leave(CTState *cts, TValue *o) +{ + lua_State *L = cts->L; + GCfunc *fn; + TValue *obase = L->base; + L->base = L->top; /* Keep continuation frame for throwing errors. */ + if (o >= L->base) { + /* PC of RET* is lost. Point to last line for result conv. errors. */ + fn = curr_func(L); + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + setcframe_pc(L->cframe, proto_bc(pt)+pt->sizebc+1); + } + } + callback_conv_result(cts, L, o); + /* Finally drop C frame and continuation frame. */ + L->cframe = cframe_prev(L->cframe); + L->top -= 2; + L->base = obase; + cts->cb.slot = 0; /* Blacklist C function that called the callback. */ +} + +/* -- C callback management ----------------------------------------------- */ + +/* Get an unused slot in the callback slot table. */ +static MSize callback_slot_new(CTState *cts, CType *ct) +{ + CTypeID id = ctype_typeid(cts, ct); + CTypeID1 *cbid = cts->cb.cbid; + MSize top; + for (top = cts->cb.topid; top < cts->cb.sizeid; top++) + if (LJ_LIKELY(cbid[top] == 0)) + goto found; +#if CALLBACK_MAX_SLOT + if (top >= CALLBACK_MAX_SLOT) +#endif + lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); + if (!cts->cb.mcode) + callback_mcode_new(cts); + lj_mem_growvec(cts->L, cbid, cts->cb.sizeid, CALLBACK_MAX_SLOT, CTypeID1); + cts->cb.cbid = cbid; + memset(cbid+top, 0, (cts->cb.sizeid-top)*sizeof(CTypeID1)); +found: + cbid[top] = id; + cts->cb.topid = top+1; + return top; +} + +/* Check for function pointer and supported argument/result types. */ +static CType *callback_checkfunc(CTState *cts, CType *ct) +{ + int narg = 0; + if (!ctype_isptr(ct->info) || (LJ_64 && ct->size != CTSIZE_PTR)) + return NULL; + ct = ctype_rawchild(cts, ct); + if (ctype_isfunc(ct->info)) { + CType *ctr = ctype_rawchild(cts, ct); + CTypeID fid = ct->sib; + if (!(ctype_isvoid(ctr->info) || ctype_isenum(ctr->info) || + ctype_isptr(ctr->info) || (ctype_isnum(ctr->info) && ctr->size <= 8))) + return NULL; + if ((ct->info & CTF_VARARG)) + return NULL; + while (fid) { + CType *ctf = ctype_get(cts, fid); + if (!ctype_isattrib(ctf->info)) { + CType *cta; + lua_assert(ctype_isfield(ctf->info)); + cta = ctype_rawchild(cts, ctf); + if (!(ctype_isenum(cta->info) || ctype_isptr(cta->info) || + (ctype_isnum(cta->info) && cta->size <= 8)) || + ++narg >= LUA_MINSTACK-3) + return NULL; + } + fid = ctf->sib; + } + return ct; + } + return NULL; +} + +/* Create a new callback and return the callback function pointer. */ +void *lj_ccallback_new(CTState *cts, CType *ct, GCfunc *fn) +{ + ct = callback_checkfunc(cts, ct); + if (ct) { + MSize slot = callback_slot_new(cts, ct); + GCtab *t = cts->miscmap; + setfuncV(cts->L, lj_tab_setint(cts->L, t, (int32_t)slot), fn); + lj_gc_anybarriert(cts->L, t); + return callback_slot2ptr(cts, slot); + } + return NULL; /* Bad conversion. */ +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccallback.h b/src/3rd party/luajit-2.0/src/lj_ccallback.h new file mode 100644 index 00000000000..83dbe048b5b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ccallback.h @@ -0,0 +1,25 @@ +/* +** FFI C callback handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CCALLBACK_H +#define _LJ_CCALLBACK_H + +#include "lj_obj.h" +#include "lj_ctype.h" + +#if LJ_HASFFI + +/* Really belongs to lj_vm.h. */ +LJ_ASMF void lj_vm_ffi_callback(void); + +LJ_FUNC MSize lj_ccallback_ptr2slot(CTState *cts, void *p); +LJ_FUNCA lua_State * LJ_FASTCALL lj_ccallback_enter(CTState *cts, void *cf); +LJ_FUNCA void LJ_FASTCALL lj_ccallback_leave(CTState *cts, TValue *o); +LJ_FUNC void *lj_ccallback_new(CTState *cts, CType *ct, GCfunc *fn); +LJ_FUNC void lj_ccallback_mcode_free(CTState *cts); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cconv.c b/src/3rd party/luajit-2.0/src/lj_cconv.c new file mode 100644 index 00000000000..8a270766fb9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cconv.c @@ -0,0 +1,752 @@ +/* +** C type conversions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_err.h" +#include "lj_tab.h" +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lj_cconv.h" +#include "lj_ccallback.h" + +/* -- Conversion errors --------------------------------------------------- */ + +/* Bad conversion. */ +LJ_NORET static void cconv_err_conv(CTState *cts, CType *d, CType *s, + CTInfo flags) +{ + const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); + const char *src; + if ((flags & CCF_FROMTV)) + src = lj_obj_typename[1+(ctype_isnum(s->info) ? LUA_TNUMBER : + ctype_isarray(s->info) ? LUA_TSTRING : LUA_TNIL)]; + else + src = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, s), NULL)); + if (CCF_GETARG(flags)) + lj_err_argv(cts->L, CCF_GETARG(flags), LJ_ERR_FFI_BADCONV, src, dst); + else + lj_err_callerv(cts->L, LJ_ERR_FFI_BADCONV, src, dst); +} + +/* Bad conversion from TValue. */ +LJ_NORET static void cconv_err_convtv(CTState *cts, CType *d, TValue *o, + CTInfo flags) +{ + const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); + const char *src = lj_typename(o); + if (CCF_GETARG(flags)) + lj_err_argv(cts->L, CCF_GETARG(flags), LJ_ERR_FFI_BADCONV, src, dst); + else + lj_err_callerv(cts->L, LJ_ERR_FFI_BADCONV, src, dst); +} + +/* Initializer overflow. */ +LJ_NORET static void cconv_err_initov(CTState *cts, CType *d) +{ + const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); + lj_err_callerv(cts->L, LJ_ERR_FFI_INITOV, dst); +} + +/* -- C type compatibility checks ----------------------------------------- */ + +/* Get raw type and qualifiers for a child type. Resolves enums, too. */ +static CType *cconv_childqual(CTState *cts, CType *ct, CTInfo *qual) +{ + ct = ctype_child(cts, ct); + for (;;) { + if (ctype_isattrib(ct->info)) { + if (ctype_attrib(ct->info) == CTA_QUAL) *qual |= ct->size; + } else if (!ctype_isenum(ct->info)) { + break; + } + ct = ctype_child(cts, ct); + } + *qual |= (ct->info & CTF_QUAL); + return ct; +} + +/* Check for compatible types when converting to a pointer. +** Note: these checks are more relaxed than what C99 mandates. +*/ +int lj_cconv_compatptr(CTState *cts, CType *d, CType *s, CTInfo flags) +{ + if (!((flags & CCF_CAST) || d == s)) { + CTInfo dqual = 0, squal = 0; + d = cconv_childqual(cts, d, &dqual); + if (!ctype_isstruct(s->info)) + s = cconv_childqual(cts, s, &squal); + if ((flags & CCF_SAME)) { + if (dqual != squal) + return 0; /* Different qualifiers. */ + } else if (!(flags & CCF_IGNQUAL)) { + if ((dqual & squal) != squal) + return 0; /* Discarded qualifiers. */ + if (ctype_isvoid(d->info) || ctype_isvoid(s->info)) + return 1; /* Converting to/from void * is always ok. */ + } + if (ctype_type(d->info) != ctype_type(s->info) || + d->size != s->size) + return 0; /* Different type or different size. */ + if (ctype_isnum(d->info)) { + if (((d->info ^ s->info) & (CTF_BOOL|CTF_FP))) + return 0; /* Different numeric types. */ + } else if (ctype_ispointer(d->info)) { + /* Check child types for compatibility. */ + return lj_cconv_compatptr(cts, d, s, flags|CCF_SAME); + } else if (ctype_isstruct(d->info)) { + if (d != s) + return 0; /* Must be exact same type for struct/union. */ + } else if (ctype_isfunc(d->info)) { + /* NYI: structural equality of functions. */ + } + } + return 1; /* Types are compatible. */ +} + +/* -- C type to C type conversion ----------------------------------------- */ + +/* Convert C type to C type. Caveat: expects to get the raw CType! +** +** Note: This is only used by the interpreter and not optimized at all. +** The JIT compiler will do a much better job specializing for each case. +*/ +void lj_cconv_ct_ct(CTState *cts, CType *d, CType *s, + uint8_t *dp, uint8_t *sp, CTInfo flags) +{ + CTSize dsize = d->size, ssize = s->size; + CTInfo dinfo = d->info, sinfo = s->info; + void *tmpptr; + + lua_assert(!ctype_isenum(dinfo) && !ctype_isenum(sinfo)); + lua_assert(!ctype_isattrib(dinfo) && !ctype_isattrib(sinfo)); + + if (ctype_type(dinfo) > CT_MAYCONVERT || ctype_type(sinfo) > CT_MAYCONVERT) + goto err_conv; + + /* Some basic sanity checks. */ + lua_assert(!ctype_isnum(dinfo) || dsize > 0); + lua_assert(!ctype_isnum(sinfo) || ssize > 0); + lua_assert(!ctype_isbool(dinfo) || dsize == 1 || dsize == 4); + lua_assert(!ctype_isbool(sinfo) || ssize == 1 || ssize == 4); + lua_assert(!ctype_isinteger(dinfo) || (1u< ssize) { /* Zero-extend or sign-extend LSB. */ +#if LJ_LE + uint8_t fill = (!(sinfo & CTF_UNSIGNED) && (sp[ssize-1]&0x80)) ? 0xff : 0; + memcpy(dp, sp, ssize); + memset(dp + ssize, fill, dsize-ssize); +#else + uint8_t fill = (!(sinfo & CTF_UNSIGNED) && (sp[0]&0x80)) ? 0xff : 0; + memset(dp, fill, dsize-ssize); + memcpy(dp + (dsize-ssize), sp, ssize); +#endif + } else { /* Copy LSB. */ +#if LJ_LE + memcpy(dp, sp, dsize); +#else + memcpy(dp, sp + (ssize-dsize), dsize); +#endif + } + break; + case CCX(I, F): { + double n; /* Always convert via double. */ + conv_I_F: + /* Convert source to double. */ + if (ssize == sizeof(double)) n = *(double *)sp; + else if (ssize == sizeof(float)) n = (double)*(float *)sp; + else goto err_conv; /* NYI: long double. */ + /* Then convert double to integer. */ + /* The conversion must exactly match the semantics of JIT-compiled code! */ + if (dsize < 4 || (dsize == 4 && !(dinfo & CTF_UNSIGNED))) { + int32_t i = (int32_t)n; + if (dsize == 4) *(int32_t *)dp = i; + else if (dsize == 2) *(int16_t *)dp = (int16_t)i; + else *(int8_t *)dp = (int8_t)i; + } else if (dsize == 4) { + *(uint32_t *)dp = (uint32_t)n; + } else if (dsize == 8) { + if (!(dinfo & CTF_UNSIGNED)) + *(int64_t *)dp = (int64_t)n; + else + *(uint64_t *)dp = lj_num2u64(n); + } else { + goto err_conv; /* NYI: conversion to >64 bit integers. */ + } + break; + } + case CCX(I, C): + s = ctype_child(cts, s); + sinfo = s->info; + ssize = s->size; + goto conv_I_F; /* Just convert re. */ + case CCX(I, P): + if (!(flags & CCF_CAST)) goto err_conv; + sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); + goto conv_I_I; + case CCX(I, A): + if (!(flags & CCF_CAST)) goto err_conv; + sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); + ssize = CTSIZE_PTR; + tmpptr = sp; + sp = (uint8_t *)&tmpptr; + goto conv_I_I; + + /* Destination is a floating-point number. */ + case CCX(F, B): + case CCX(F, I): { + double n; /* Always convert via double. */ + conv_F_I: + /* First convert source to double. */ + /* The conversion must exactly match the semantics of JIT-compiled code! */ + if (ssize < 4 || (ssize == 4 && !(sinfo & CTF_UNSIGNED))) { + int32_t i; + if (ssize == 4) { + i = *(int32_t *)sp; + } else if (!(sinfo & CTF_UNSIGNED)) { + if (ssize == 2) i = *(int16_t *)sp; + else i = *(int8_t *)sp; + } else { + if (ssize == 2) i = *(uint16_t *)sp; + else i = *(uint8_t *)sp; + } + n = (double)i; + } else if (ssize == 4) { + n = (double)*(uint32_t *)sp; + } else if (ssize == 8) { + if (!(sinfo & CTF_UNSIGNED)) n = (double)*(int64_t *)sp; + else n = (double)*(uint64_t *)sp; + } else { + goto err_conv; /* NYI: conversion from >64 bit integers. */ + } + /* Convert double to destination. */ + if (dsize == sizeof(double)) *(double *)dp = n; + else if (dsize == sizeof(float)) *(float *)dp = (float)n; + else goto err_conv; /* NYI: long double. */ + break; + } + case CCX(F, F): { + double n; /* Always convert via double. */ + conv_F_F: + if (ssize == dsize) goto copyval; + /* Convert source to double. */ + if (ssize == sizeof(double)) n = *(double *)sp; + else if (ssize == sizeof(float)) n = (double)*(float *)sp; + else goto err_conv; /* NYI: long double. */ + /* Convert double to destination. */ + if (dsize == sizeof(double)) *(double *)dp = n; + else if (dsize == sizeof(float)) *(float *)dp = (float)n; + else goto err_conv; /* NYI: long double. */ + break; + } + case CCX(F, C): + s = ctype_child(cts, s); + sinfo = s->info; + ssize = s->size; + goto conv_F_F; /* Ignore im, and convert from re. */ + + /* Destination is a complex number. */ + case CCX(C, I): + d = ctype_child(cts, d); + dinfo = d->info; + dsize = d->size; + memset(dp + dsize, 0, dsize); /* Clear im. */ + goto conv_F_I; /* Convert to re. */ + case CCX(C, F): + d = ctype_child(cts, d); + dinfo = d->info; + dsize = d->size; + memset(dp + dsize, 0, dsize); /* Clear im. */ + goto conv_F_F; /* Convert to re. */ + + case CCX(C, C): + if (dsize != ssize) { /* Different types: convert re/im separately. */ + CType *dc = ctype_child(cts, d); + CType *sc = ctype_child(cts, s); + lj_cconv_ct_ct(cts, dc, sc, dp, sp, flags); + lj_cconv_ct_ct(cts, dc, sc, dp + dc->size, sp + sc->size, flags); + return; + } + goto copyval; /* Otherwise this is easy. */ + + /* Destination is a vector. */ + case CCX(V, I): + case CCX(V, F): + case CCX(V, C): { + CType *dc = ctype_child(cts, d); + CTSize esize; + /* First convert the scalar to the first element. */ + lj_cconv_ct_ct(cts, dc, s, dp, sp, flags); + /* Then replicate it to the other elements (splat). */ + for (sp = dp, esize = dc->size; dsize > esize; dsize -= esize) { + dp += esize; + memcpy(dp, sp, esize); + } + break; + } + + case CCX(V, V): + /* Copy same-sized vectors, even for different lengths/element-types. */ + if (dsize != ssize) goto err_conv; + goto copyval; + + /* Destination is a pointer. */ + case CCX(P, I): + if (!(flags & CCF_CAST)) goto err_conv; + dinfo = CTINFO(CT_NUM, CTF_UNSIGNED); + goto conv_I_I; + + case CCX(P, F): + if (!(flags & CCF_CAST) || !(flags & CCF_FROMTV)) goto err_conv; + /* The signed conversion is cheaper. x64 really has 47 bit pointers. */ + dinfo = CTINFO(CT_NUM, (LJ_64 && dsize == 8) ? 0 : CTF_UNSIGNED); + goto conv_I_F; + + case CCX(P, P): + if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv; + cdata_setptr(dp, dsize, cdata_getptr(sp, ssize)); + break; + + case CCX(P, A): + case CCX(P, S): + if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv; + cdata_setptr(dp, dsize, sp); + break; + + /* Destination is an array. */ + case CCX(A, A): + if ((flags & CCF_CAST) || (d->info & CTF_VLA) || dsize != ssize || + d->size == CTSIZE_INVALID || !lj_cconv_compatptr(cts, d, s, flags)) + goto err_conv; + goto copyval; + + /* Destination is a struct/union. */ + case CCX(S, S): + if ((flags & CCF_CAST) || (d->info & CTF_VLA) || d != s) + goto err_conv; /* Must be exact same type. */ +copyval: /* Copy value. */ + lua_assert(dsize == ssize); + memcpy(dp, sp, dsize); + break; + + default: + err_conv: + cconv_err_conv(cts, d, s, flags); + } +} + +/* -- C type to TValue conversion ----------------------------------------- */ + +/* Convert C type to TValue. Caveat: expects to get the raw CType! */ +int lj_cconv_tv_ct(CTState *cts, CType *s, CTypeID sid, + TValue *o, uint8_t *sp) +{ + CTInfo sinfo = s->info; + if (ctype_isnum(sinfo)) { + if (!ctype_isbool(sinfo)) { + if (ctype_isinteger(sinfo) && s->size > 4) goto copyval; + if (LJ_DUALNUM && ctype_isinteger(sinfo)) { + int32_t i; + lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT32), s, + (uint8_t *)&i, sp, 0); + if ((sinfo & CTF_UNSIGNED) && i < 0) + setnumV(o, (lua_Number)(uint32_t)i); + else + setintV(o, i); + } else { + lj_cconv_ct_ct(cts, ctype_get(cts, CTID_DOUBLE), s, + (uint8_t *)&o->n, sp, 0); + /* Numbers are NOT canonicalized here! Beware of uninitialized data. */ + lua_assert(tvisnum(o)); + } + } else { + uint32_t b = s->size == 1 ? (*sp != 0) : (*(int *)sp != 0); + setboolV(o, b); + setboolV(&cts->g->tmptv2, b); /* Remember for trace recorder. */ + } + return 0; + } else if (ctype_isrefarray(sinfo) || ctype_isstruct(sinfo)) { + /* Create reference. */ + setcdataV(cts->L, o, lj_cdata_newref(cts, sp, sid)); + return 1; /* Need GC step. */ + } else { + GCcdata *cd; + CTSize sz; + copyval: /* Copy value. */ + sz = s->size; + lua_assert(sz != CTSIZE_INVALID); + /* Attributes are stripped, qualifiers are kept (but mostly ignored). */ + cd = lj_cdata_new(cts, ctype_typeid(cts, s), sz); + setcdataV(cts->L, o, cd); + memcpy(cdataptr(cd), sp, sz); + return 1; /* Need GC step. */ + } +} + +/* Convert bitfield to TValue. */ +int lj_cconv_tv_bf(CTState *cts, CType *s, TValue *o, uint8_t *sp) +{ + CTInfo info = s->info; + CTSize pos, bsz; + uint32_t val; + lua_assert(ctype_isbitfield(info)); + /* NYI: packed bitfields may cause misaligned reads. */ + switch (ctype_bitcsz(info)) { + case 4: val = *(uint32_t *)sp; break; + case 2: val = *(uint16_t *)sp; break; + case 1: val = *(uint8_t *)sp; break; + default: lua_assert(0); val = 0; break; + } + /* Check if a packed bitfield crosses a container boundary. */ + pos = ctype_bitpos(info); + bsz = ctype_bitbsz(info); + lua_assert(pos < 8*ctype_bitcsz(info)); + lua_assert(bsz > 0 && bsz <= 8*ctype_bitcsz(info)); + if (pos + bsz > 8*ctype_bitcsz(info)) + lj_err_caller(cts->L, LJ_ERR_FFI_NYIPACKBIT); + if (!(info & CTF_BOOL)) { + CTSize shift = 32 - bsz; + if (!(info & CTF_UNSIGNED)) { + setintV(o, (int32_t)(val << (shift-pos)) >> shift); + } else { + val = (val << (shift-pos)) >> shift; + if (!LJ_DUALNUM || (int32_t)val < 0) + setnumV(o, (lua_Number)(uint32_t)val); + else + setintV(o, (int32_t)val); + } + } else { + lua_assert(bsz == 1); + setboolV(o, (val >> pos) & 1); + } + return 0; /* No GC step needed. */ +} + +/* -- TValue to C type conversion ----------------------------------------- */ + +/* Convert table to array. */ +static void cconv_array_tab(CTState *cts, CType *d, + uint8_t *dp, GCtab *t, CTInfo flags) +{ + int32_t i; + CType *dc = ctype_rawchild(cts, d); /* Array element type. */ + CTSize size = d->size, esize = dc->size, ofs = 0; + for (i = 0; ; i++) { + TValue *tv = (TValue *)lj_tab_getint(t, i); + if (!tv || tvisnil(tv)) { + if (i == 0) continue; /* Try again for 1-based tables. */ + break; /* Stop at first nil. */ + } + if (ofs >= size) + cconv_err_initov(cts, d); + lj_cconv_ct_tv(cts, dc, dp + ofs, tv, flags); + ofs += esize; + } + if (size != CTSIZE_INVALID) { /* Only fill up arrays with known size. */ + if (ofs == esize) { /* Replicate a single element. */ + for (; ofs < size; ofs += esize) memcpy(dp + ofs, dp, esize); + } else { /* Otherwise fill the remainder with zero. */ + memset(dp + ofs, 0, size - ofs); + } + } +} + +/* Convert table to sub-struct/union. */ +static void cconv_substruct_tab(CTState *cts, CType *d, uint8_t *dp, + GCtab *t, int32_t *ip, CTInfo flags) +{ + CTypeID id = d->sib; + while (id) { + CType *df = ctype_get(cts, id); + id = df->sib; + if (ctype_isfield(df->info) || ctype_isbitfield(df->info)) { + TValue *tv; + int32_t i = *ip, iz = i; + if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ + if (i >= 0) { + retry: + tv = (TValue *)lj_tab_getint(t, i); + if (!tv || tvisnil(tv)) { + if (i == 0) { i = 1; goto retry; } /* 1-based tables. */ + if (iz == 0) { *ip = i = -1; goto tryname; } /* Init named fields. */ + break; /* Stop at first nil. */ + } + *ip = i + 1; + } else { + tryname: + tv = (TValue *)lj_tab_getstr(t, gco2str(gcref(df->name))); + if (!tv || tvisnil(tv)) continue; + } + if (ctype_isfield(df->info)) + lj_cconv_ct_tv(cts, ctype_rawchild(cts, df), dp+df->size, tv, flags); + else + lj_cconv_bf_tv(cts, df, dp+df->size, tv); + if ((d->info & CTF_UNION)) break; + } else if (ctype_isxattrib(df->info, CTA_SUBTYPE)) { + cconv_substruct_tab(cts, ctype_rawchild(cts, df), + dp+df->size, t, ip, flags); + } /* Ignore all other entries in the chain. */ + } +} + +/* Convert table to struct/union. */ +static void cconv_struct_tab(CTState *cts, CType *d, + uint8_t *dp, GCtab *t, CTInfo flags) +{ + int32_t i = 0; + memset(dp, 0, d->size); /* Much simpler to clear the struct first. */ + cconv_substruct_tab(cts, d, dp, t, &i, flags); +} + +/* Convert TValue to C type. Caveat: expects to get the raw CType! */ +void lj_cconv_ct_tv(CTState *cts, CType *d, + uint8_t *dp, TValue *o, CTInfo flags) +{ + CTypeID sid = CTID_P_VOID; + CType *s; + void *tmpptr; + uint8_t tmpbool, *sp = (uint8_t *)&tmpptr; + if (LJ_LIKELY(tvisint(o))) { + sp = (uint8_t *)&o->i; + sid = CTID_INT32; + flags |= CCF_FROMTV; + } else if (LJ_LIKELY(tvisnum(o))) { + sp = (uint8_t *)&o->n; + sid = CTID_DOUBLE; + flags |= CCF_FROMTV; + } else if (tviscdata(o)) { + sp = cdataptr(cdataV(o)); + sid = cdataV(o)->ctypeid; + s = ctype_get(cts, sid); + if (ctype_isref(s->info)) { /* Resolve reference for value. */ + lua_assert(s->size == CTSIZE_PTR); + sp = *(void **)sp; + sid = ctype_cid(s->info); + } + s = ctype_raw(cts, sid); + if (ctype_isfunc(s->info)) { + sid = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|sid), CTSIZE_PTR); + } else { + if (ctype_isenum(s->info)) s = ctype_child(cts, s); + goto doconv; + } + } else if (tvisstr(o)) { + GCstr *str = strV(o); + if (ctype_isenum(d->info)) { /* Match string against enum constant. */ + CTSize ofs; + CType *cct = lj_ctype_getfield(cts, d, str, &ofs); + if (!cct || !ctype_isconstval(cct->info)) + goto err_conv; + lua_assert(d->size == 4); + sp = (uint8_t *)&cct->size; + sid = ctype_cid(cct->info); + } else if (ctype_isrefarray(d->info)) { /* Copy string to array. */ + CType *dc = ctype_rawchild(cts, d); + CTSize sz = str->len+1; + if (!ctype_isinteger(dc->info) || dc->size != 1) + goto err_conv; + if (d->size != 0 && d->size < sz) + sz = d->size; + memcpy(dp, strdata(str), sz); + return; + } else { /* Otherwise pass it as a const char[]. */ + sp = (uint8_t *)strdata(str); + sid = CTID_A_CCHAR; + flags |= CCF_FROMTV; + } + } else if (tvistab(o)) { + if (ctype_isarray(d->info)) { + cconv_array_tab(cts, d, dp, tabV(o), flags); + return; + } else if (ctype_isstruct(d->info)) { + cconv_struct_tab(cts, d, dp, tabV(o), flags); + return; + } else { + goto err_conv; + } + } else if (tvisbool(o)) { + tmpbool = boolV(o); + sp = &tmpbool; + sid = CTID_BOOL; + } else if (tvisnil(o)) { + tmpptr = (void *)0; + flags |= CCF_FROMTV; + } else if (tvisudata(o)) { + GCudata *ud = udataV(o); + tmpptr = uddata(ud); + if (ud->udtype == UDTYPE_IO_FILE) + tmpptr = *(void **)tmpptr; + } else if (tvislightud(o)) { + tmpptr = lightudV(o); + } else if (tvisfunc(o)) { + void *p = lj_ccallback_new(cts, d, funcV(o)); + if (p) { + *(void **)dp = p; + return; + } + goto err_conv; + } else { + err_conv: + cconv_err_convtv(cts, d, o, flags); + } + s = ctype_get(cts, sid); +doconv: + if (ctype_isenum(d->info)) d = ctype_child(cts, d); + lj_cconv_ct_ct(cts, d, s, dp, sp, flags); +} + +/* Convert TValue to bitfield. */ +void lj_cconv_bf_tv(CTState *cts, CType *d, uint8_t *dp, TValue *o) +{ + CTInfo info = d->info; + CTSize pos, bsz; + uint32_t val, mask; + lua_assert(ctype_isbitfield(info)); + if ((info & CTF_BOOL)) { + uint8_t tmpbool; + lua_assert(ctype_bitbsz(info) == 1); + lj_cconv_ct_tv(cts, ctype_get(cts, CTID_BOOL), &tmpbool, o, 0); + val = tmpbool; + } else { + CTypeID did = (info & CTF_UNSIGNED) ? CTID_UINT32 : CTID_INT32; + lj_cconv_ct_tv(cts, ctype_get(cts, did), (uint8_t *)&val, o, 0); + } + pos = ctype_bitpos(info); + bsz = ctype_bitbsz(info); + lua_assert(pos < 8*ctype_bitcsz(info)); + lua_assert(bsz > 0 && bsz <= 8*ctype_bitcsz(info)); + /* Check if a packed bitfield crosses a container boundary. */ + if (pos + bsz > 8*ctype_bitcsz(info)) + lj_err_caller(cts->L, LJ_ERR_FFI_NYIPACKBIT); + mask = ((1u << bsz) - 1u) << pos; + val = (val << pos) & mask; + /* NYI: packed bitfields may cause misaligned reads/writes. */ + switch (ctype_bitcsz(info)) { + case 4: *(uint32_t *)dp = (*(uint32_t *)dp & ~mask) | (uint32_t)val; break; + case 2: *(uint16_t *)dp = (*(uint16_t *)dp & ~mask) | (uint16_t)val; break; + case 1: *(uint8_t *)dp = (*(uint8_t *)dp & ~mask) | (uint8_t)val; break; + default: lua_assert(0); break; + } +} + +/* -- Initialize C type with TValues -------------------------------------- */ + +/* Initialize an array with TValues. */ +static void cconv_array_init(CTState *cts, CType *d, CTSize sz, uint8_t *dp, + TValue *o, MSize len) +{ + CType *dc = ctype_rawchild(cts, d); /* Array element type. */ + CTSize ofs, esize = dc->size; + MSize i; + if (len*esize > sz) + cconv_err_initov(cts, d); + for (i = 0, ofs = 0; i < len; i++, ofs += esize) + lj_cconv_ct_tv(cts, dc, dp + ofs, o + i, 0); + if (ofs == esize) { /* Replicate a single element. */ + for (; ofs < sz; ofs += esize) memcpy(dp + ofs, dp, esize); + } else { /* Otherwise fill the remainder with zero. */ + memset(dp + ofs, 0, sz - ofs); + } +} + +/* Initialize a sub-struct/union with TValues. */ +static void cconv_substruct_init(CTState *cts, CType *d, uint8_t *dp, + TValue *o, MSize len, MSize *ip) +{ + CTypeID id = d->sib; + while (id) { + CType *df = ctype_get(cts, id); + id = df->sib; + if (ctype_isfield(df->info) || ctype_isbitfield(df->info)) { + MSize i = *ip; + if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ + if (i >= len) break; + *ip = i + 1; + if (ctype_isfield(df->info)) + lj_cconv_ct_tv(cts, ctype_rawchild(cts, df), dp+df->size, o + i, 0); + else + lj_cconv_bf_tv(cts, df, dp+df->size, o + i); + if ((d->info & CTF_UNION)) break; + } else if (ctype_isxattrib(df->info, CTA_SUBTYPE)) { + cconv_substruct_init(cts, ctype_rawchild(cts, df), + dp+df->size, o, len, ip); + if ((d->info & CTF_UNION)) break; + } /* Ignore all other entries in the chain. */ + } +} + +/* Initialize a struct/union with TValues. */ +static void cconv_struct_init(CTState *cts, CType *d, CTSize sz, uint8_t *dp, + TValue *o, MSize len) +{ + MSize i = 0; + memset(dp, 0, sz); /* Much simpler to clear the struct first. */ + cconv_substruct_init(cts, d, dp, o, len, &i); + if (i < len) + cconv_err_initov(cts, d); +} + +/* Check whether to use a multi-value initializer. +** This is true if an aggregate is to be initialized with a value. +** Valarrays are treated as values here so ct_tv handles (V|C, I|F). +*/ +int lj_cconv_multi_init(CTState *cts, CType *d, TValue *o) +{ + if (!(ctype_isrefarray(d->info) || ctype_isstruct(d->info))) + return 0; /* Destination is not an aggregate. */ + if (tvistab(o) || (tvisstr(o) && !ctype_isstruct(d->info))) + return 0; /* Initializer is not a value. */ + if (tviscdata(o) && lj_ctype_rawref(cts, cdataV(o)->ctypeid) == d) + return 0; /* Source and destination are identical aggregates. */ + return 1; /* Otherwise the initializer is a value. */ +} + +/* Initialize C type with TValues. Caveat: expects to get the raw CType! */ +void lj_cconv_ct_init(CTState *cts, CType *d, CTSize sz, + uint8_t *dp, TValue *o, MSize len) +{ + if (len == 0) + memset(dp, 0, sz); + else if (len == 1 && !lj_cconv_multi_init(cts, d, o)) + lj_cconv_ct_tv(cts, d, dp, o, 0); + else if (ctype_isarray(d->info)) /* Also handles valarray init with len>1. */ + cconv_array_init(cts, d, sz, dp, o, len); + else if (ctype_isstruct(d->info)) + cconv_struct_init(cts, d, sz, dp, o, len); + else + cconv_err_initov(cts, d); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cconv.h b/src/3rd party/luajit-2.0/src/lj_cconv.h new file mode 100644 index 00000000000..2bd50ff46e9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cconv.h @@ -0,0 +1,70 @@ +/* +** C type conversions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CCONV_H +#define _LJ_CCONV_H + +#include "lj_obj.h" +#include "lj_ctype.h" + +#if LJ_HASFFI + +/* Compressed C type index. ORDER CCX. */ +enum { + CCX_B, /* Bool. */ + CCX_I, /* Integer. */ + CCX_F, /* Floating-point number. */ + CCX_C, /* Complex. */ + CCX_V, /* Vector. */ + CCX_P, /* Pointer. */ + CCX_A, /* Refarray. */ + CCX_S /* Struct/union. */ +}; + +/* Convert C type info to compressed C type index. ORDER CT. ORDER CCX. */ +static LJ_AINLINE uint32_t cconv_idx(CTInfo info) +{ + uint32_t idx = ((info >> 26) & 15u); /* Dispatch bits. */ + lua_assert(ctype_type(info) <= CT_MAYCONVERT); +#if LJ_64 + idx = ((uint32_t)(U64x(f436fff5,fff7f021) >> 4*idx) & 15u); +#else + idx = (((idx < 8 ? 0xfff7f021u : 0xf436fff5) >> 4*(idx & 7u)) & 15u); +#endif + lua_assert(idx < 8); + return idx; +} + +#define cconv_idx2(dinfo, sinfo) \ + ((cconv_idx((dinfo)) << 3) + cconv_idx((sinfo))) + +#define CCX(dst, src) ((CCX_##dst << 3) + CCX_##src) + +/* Conversion flags. */ +#define CCF_CAST 0x00000001u +#define CCF_FROMTV 0x00000002u +#define CCF_SAME 0x00000004u +#define CCF_IGNQUAL 0x00000008u + +#define CCF_ARG_SHIFT 8 +#define CCF_ARG(n) ((n) << CCF_ARG_SHIFT) +#define CCF_GETARG(f) ((f) >> CCF_ARG_SHIFT) + +LJ_FUNC int lj_cconv_compatptr(CTState *cts, CType *d, CType *s, CTInfo flags); +LJ_FUNC void lj_cconv_ct_ct(CTState *cts, CType *d, CType *s, + uint8_t *dp, uint8_t *sp, CTInfo flags); +LJ_FUNC int lj_cconv_tv_ct(CTState *cts, CType *s, CTypeID sid, + TValue *o, uint8_t *sp); +LJ_FUNC int lj_cconv_tv_bf(CTState *cts, CType *s, TValue *o, uint8_t *sp); +LJ_FUNC void lj_cconv_ct_tv(CTState *cts, CType *d, + uint8_t *dp, TValue *o, CTInfo flags); +LJ_FUNC void lj_cconv_bf_tv(CTState *cts, CType *d, uint8_t *dp, TValue *o); +LJ_FUNC int lj_cconv_multi_init(CTState *cts, CType *d, TValue *o); +LJ_FUNC void lj_cconv_ct_init(CTState *cts, CType *d, CTSize sz, + uint8_t *dp, TValue *o, MSize len); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.c b/src/3rd party/luajit-2.0/src/lj_cdata.c new file mode 100644 index 00000000000..39fc13a9ff4 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cdata.c @@ -0,0 +1,285 @@ +/* +** C data management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_ctype.h" +#include "lj_cconv.h" +#include "lj_cdata.h" + +/* -- C data allocation --------------------------------------------------- */ + +/* Allocate a new C data object holding a reference to another object. */ +GCcdata *lj_cdata_newref(CTState *cts, const void *p, CTypeID id) +{ + CTypeID refid = lj_ctype_intern(cts, CTINFO_REF(id), CTSIZE_PTR); + GCcdata *cd = lj_cdata_new(cts, refid, CTSIZE_PTR); + *(const void **)cdataptr(cd) = p; + return cd; +} + +/* Allocate variable-sized or specially aligned C data object. */ +GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, CTSize align) +{ + global_State *g; + MSize extra = sizeof(GCcdataVar) + sizeof(GCcdata) + + (align > CT_MEMALIGN ? (1u<L, extra + sz, char); + uintptr_t adata = (uintptr_t)p + sizeof(GCcdataVar) + sizeof(GCcdata); + uintptr_t almask = (1u << align) - 1u; + GCcdata *cd = (GCcdata *)(((adata + almask) & ~almask) - sizeof(GCcdata)); + lua_assert((char *)cd - p < 65536); + cdatav(cd)->offset = (uint16_t)((char *)cd - p); + cdatav(cd)->extra = extra; + cdatav(cd)->len = sz; + g = cts->g; + setgcrefr(cd->nextgc, g->gc.root); + setgcref(g->gc.root, obj2gco(cd)); + newwhite(g, obj2gco(cd)); + cd->marked |= 0x80; + cd->gct = ~LJ_TCDATA; + cd->ctypeid = id; + return cd; +} + +/* Free a C data object. */ +void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd) +{ + if (LJ_UNLIKELY(cd->marked & LJ_GC_CDATA_FIN)) { + GCobj *root; + makewhite(g, obj2gco(cd)); + markfinalized(obj2gco(cd)); + if ((root = gcref(g->gc.mmudata)) != NULL) { + setgcrefr(cd->nextgc, root->gch.nextgc); + setgcref(root->gch.nextgc, obj2gco(cd)); + setgcref(g->gc.mmudata, obj2gco(cd)); + } else { + setgcref(cd->nextgc, obj2gco(cd)); + setgcref(g->gc.mmudata, obj2gco(cd)); + } + } else if (LJ_LIKELY(!cdataisv(cd))) { + CType *ct = ctype_raw(ctype_ctsG(g), cd->ctypeid); + CTSize sz = ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR; + lua_assert(ctype_hassize(ct->info) || ctype_isfunc(ct->info) || + ctype_isextern(ct->info)); + lj_mem_free(g, cd, sizeof(GCcdata) + sz); + } else { + lj_mem_free(g, memcdatav(cd), sizecdatav(cd)); + } +} + +TValue * LJ_FASTCALL lj_cdata_setfin(lua_State *L, GCcdata *cd) +{ + global_State *g = G(L); + GCtab *t = ctype_ctsG(g)->finalizer; + if (gcref(t->metatable)) { + /* Add cdata to finalizer table, if still enabled. */ + TValue *tv, tmp; + setcdataV(L, &tmp, cd); + lj_gc_anybarriert(L, t); + tv = lj_tab_set(L, t, &tmp); + cd->marked |= LJ_GC_CDATA_FIN; + return tv; + } else { + /* Otherwise return dummy TValue. */ + return &g->tmptv; + } +} + +/* -- C data indexing ----------------------------------------------------- */ + +/* Index C data by a TValue. Return CType and pointer. */ +CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, uint8_t **pp, + CTInfo *qual) +{ + uint8_t *p = (uint8_t *)cdataptr(cd); + CType *ct = ctype_get(cts, cd->ctypeid); + ptrdiff_t idx; + + /* Resolve reference for cdata object. */ + if (ctype_isref(ct->info)) { + lua_assert(ct->size == CTSIZE_PTR); + p = *(uint8_t **)p; + ct = ctype_child(cts, ct); + } + +collect_attrib: + /* Skip attributes and collect qualifiers. */ + while (ctype_isattrib(ct->info)) { + if (ctype_attrib(ct->info) == CTA_QUAL) *qual |= ct->size; + ct = ctype_child(cts, ct); + } + lua_assert(!ctype_isref(ct->info)); /* Interning rejects refs to refs. */ + + if (tvisint(key)) { + idx = (ptrdiff_t)intV(key); + goto integer_key; + } else if (tvisnum(key)) { /* Numeric key. */ + idx = LJ_64 ? (ptrdiff_t)numV(key) : (ptrdiff_t)lj_num2int(numV(key)); + integer_key: + if (ctype_ispointer(ct->info)) { + CTSize sz = lj_ctype_size(cts, ctype_cid(ct->info)); /* Element size. */ + if (sz == CTSIZE_INVALID) + lj_err_caller(cts->L, LJ_ERR_FFI_INVSIZE); + if (ctype_isptr(ct->info)) { + p = (uint8_t *)cdata_getptr(p, ct->size); + } else if ((ct->info & (CTF_VECTOR|CTF_COMPLEX))) { + if ((ct->info & CTF_COMPLEX)) idx &= 1; + *qual |= CTF_CONST; /* Valarray elements are constant. */ + } + *pp = p + idx*(int32_t)sz; + return ct; + } + } else if (tviscdata(key)) { /* Integer cdata key. */ + GCcdata *cdk = cdataV(key); + CType *ctk = ctype_raw(cts, cdk->ctypeid); + if (ctype_isenum(ctk->info)) ctk = ctype_child(cts, ctk); + if (ctype_isinteger(ctk->info)) { + lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ctk, + (uint8_t *)&idx, cdataptr(cdk), 0); + goto integer_key; + } + } else if (tvisstr(key)) { /* String key. */ + GCstr *name = strV(key); + if (ctype_isstruct(ct->info)) { + CTSize ofs; + CType *fct = lj_ctype_getfieldq(cts, ct, name, &ofs, qual); + if (fct) { + *pp = p + ofs; + return fct; + } + } else if (ctype_iscomplex(ct->info)) { + if (name->len == 2) { + *qual |= CTF_CONST; /* Complex fields are constant. */ + if (strdata(name)[0] == 'r' && strdata(name)[1] == 'e') { + *pp = p; + return ct; + } else if (strdata(name)[0] == 'i' && strdata(name)[1] == 'm') { + *pp = p + (ct->size >> 1); + return ct; + } + } + } else if (cd->ctypeid == CTID_CTYPEID) { + /* Allow indexing a (pointer to) struct constructor to get constants. */ + CType *sct = ctype_raw(cts, *(CTypeID *)p); + if (ctype_isptr(sct->info)) + sct = ctype_rawchild(cts, sct); + if (ctype_isstruct(sct->info)) { + CTSize ofs; + CType *fct = lj_ctype_getfield(cts, sct, name, &ofs); + if (fct && ctype_isconstval(fct->info)) + return fct; + } + ct = sct; /* Allow resolving metamethods for constructors, too. */ + } + } + if (ctype_isptr(ct->info)) { /* Automatically perform '->'. */ + if (ctype_isstruct(ctype_rawchild(cts, ct)->info)) { + p = (uint8_t *)cdata_getptr(p, ct->size); + ct = ctype_child(cts, ct); + goto collect_attrib; + } + } + *qual |= 1; /* Lookup failed. */ + return ct; /* But return the resolved raw type. */ +} + +/* -- C data getters ------------------------------------------------------ */ + +/* Get constant value and convert to TValue. */ +static void cdata_getconst(CTState *cts, TValue *o, CType *ct) +{ + CType *ctt = ctype_child(cts, ct); + lua_assert(ctype_isinteger(ctt->info) && ctt->size <= 4); + /* Constants are already zero-extended/sign-extended to 32 bits. */ + if ((ctt->info & CTF_UNSIGNED) && (int32_t)ct->size < 0) + setnumV(o, (lua_Number)(uint32_t)ct->size); + else + setintV(o, (int32_t)ct->size); +} + +/* Get C data value and convert to TValue. */ +int lj_cdata_get(CTState *cts, CType *s, TValue *o, uint8_t *sp) +{ + CTypeID sid; + + if (ctype_isconstval(s->info)) { + cdata_getconst(cts, o, s); + return 0; /* No GC step needed. */ + } else if (ctype_isbitfield(s->info)) { + return lj_cconv_tv_bf(cts, s, o, sp); + } + + /* Get child type of pointer/array/field. */ + lua_assert(ctype_ispointer(s->info) || ctype_isfield(s->info)); + sid = ctype_cid(s->info); + s = ctype_get(cts, sid); + + /* Resolve reference for field. */ + if (ctype_isref(s->info)) { + lua_assert(s->size == CTSIZE_PTR); + sp = *(uint8_t **)sp; + sid = ctype_cid(s->info); + s = ctype_get(cts, sid); + } + + /* Skip attributes. */ + while (ctype_isattrib(s->info)) + s = ctype_child(cts, s); + + return lj_cconv_tv_ct(cts, s, sid, o, sp); +} + +/* -- C data setters ------------------------------------------------------ */ + +/* Convert TValue and set C data value. */ +void lj_cdata_set(CTState *cts, CType *d, uint8_t *dp, TValue *o, CTInfo qual) +{ + if (ctype_isconstval(d->info)) { + goto err_const; + } else if (ctype_isbitfield(d->info)) { + if (((d->info|qual) & CTF_CONST)) goto err_const; + lj_cconv_bf_tv(cts, d, dp, o); + return; + } + + /* Get child type of pointer/array/field. */ + lua_assert(ctype_ispointer(d->info) || ctype_isfield(d->info)); + d = ctype_child(cts, d); + + /* Resolve reference for field. */ + if (ctype_isref(d->info)) { + lua_assert(d->size == CTSIZE_PTR); + dp = *(uint8_t **)dp; + d = ctype_child(cts, d); + } + + /* Skip attributes and collect qualifiers. */ + for (;;) { + if (ctype_isattrib(d->info)) { + if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size; + } else { + break; + } + d = ctype_child(cts, d); + } + + lua_assert(ctype_hassize(d->info) && !ctype_isvoid(d->info)); + + if (((d->info|qual) & CTF_CONST)) { + err_const: + lj_err_caller(cts->L, LJ_ERR_FFI_WRCONST); + } + + lj_cconv_ct_tv(cts, d, dp, o, 0); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.h b/src/3rd party/luajit-2.0/src/lj_cdata.h new file mode 100644 index 00000000000..3a1275e6c16 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cdata.h @@ -0,0 +1,75 @@ +/* +** C data management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CDATA_H +#define _LJ_CDATA_H + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_ctype.h" + +#if LJ_HASFFI + +/* Get C data pointer. */ +static LJ_AINLINE void *cdata_getptr(void *p, CTSize sz) +{ + if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ + return ((void *)(uintptr_t)*(uint32_t *)p); + } else { + lua_assert(sz == CTSIZE_PTR); + return *(void **)p; + } +} + +/* Set C data pointer. */ +static LJ_AINLINE void cdata_setptr(void *p, CTSize sz, const void *v) +{ + if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ + *(uint32_t *)p = (uint32_t)(uintptr_t)v; + } else { + lua_assert(sz == CTSIZE_PTR); + *(void **)p = (void *)v; + } +} + +/* Allocate fixed-size C data object. */ +static LJ_AINLINE GCcdata *lj_cdata_new(CTState *cts, CTypeID id, CTSize sz) +{ + GCcdata *cd; +#ifdef LUA_USE_ASSERT + CType *ct = ctype_raw(cts, id); + lua_assert((ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR) == sz); +#endif + cd = (GCcdata *)lj_mem_newgco(cts->L, sizeof(GCcdata) + sz); + cd->gct = ~LJ_TCDATA; + cd->ctypeid = ctype_check(cts, id); + return cd; +} + +/* Variant which works without a valid CTState. */ +static LJ_AINLINE GCcdata *lj_cdata_new_(lua_State *L, CTypeID id, CTSize sz) +{ + GCcdata *cd = (GCcdata *)lj_mem_newgco(L, sizeof(GCcdata) + sz); + cd->gct = ~LJ_TCDATA; + cd->ctypeid = id; + return cd; +} + +LJ_FUNC GCcdata *lj_cdata_newref(CTState *cts, const void *pp, CTypeID id); +LJ_FUNC GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, + CTSize align); + +LJ_FUNC void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd); +LJ_FUNCA TValue * LJ_FASTCALL lj_cdata_setfin(lua_State *L, GCcdata *cd); + +LJ_FUNC CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, + uint8_t **pp, CTInfo *qual); +LJ_FUNC int lj_cdata_get(CTState *cts, CType *s, TValue *o, uint8_t *sp); +LJ_FUNC void lj_cdata_set(CTState *cts, CType *d, uint8_t *dp, TValue *o, + CTInfo qual); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_char.c b/src/3rd party/luajit-2.0/src/lj_char.c new file mode 100644 index 00000000000..11f23efe44d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_char.c @@ -0,0 +1,43 @@ +/* +** Character types. +** Donated to the public domain. +** +** This is intended to replace the problematic libc single-byte NLS functions. +** These just don't make sense anymore with UTF-8 locales becoming the norm +** on POSIX systems. It never worked too well on Windows systems since hardly +** anyone bothered to call setlocale(). +** +** This table is hardcoded for ASCII. Identifiers include the characters +** 128-255, too. This allows for the use of all non-ASCII chars as identifiers +** in the lexer. This is a broad definition, but works well in practice +** for both UTF-8 locales and most single-byte locales (such as ISO-8859-*). +** +** If you really need proper character types for UTF-8 strings, please use +** an add-on library such as slnunicode: http://luaforge.net/projects/sln/ +*/ + +#define lj_char_c +#define LUA_CORE + +#include "lj_char.h" + +LJ_DATADEF const uint8_t lj_char_bits[257] = { + 0, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 152,152,152,152,152,152,152,152,152,152, 4, 4, 4, 4, 4, 4, + 4,176,176,176,176,176,176,160,160,160,160,160,160,160,160,160, + 160,160,160,160,160,160,160,160,160,160,160, 4, 4, 4, 4,132, + 4,208,208,208,208,208,208,192,192,192,192,192,192,192,192,192, + 192,192,192,192,192,192,192,192,192,192,192, 4, 4, 4, 4, 1, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, + 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128 +}; + diff --git a/src/3rd party/luajit-2.0/src/lj_char.h b/src/3rd party/luajit-2.0/src/lj_char.h new file mode 100644 index 00000000000..c3c86d34b1d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_char.h @@ -0,0 +1,42 @@ +/* +** Character types. +** Donated to the public domain. +*/ + +#ifndef _LJ_CHAR_H +#define _LJ_CHAR_H + +#include "lj_def.h" + +#define LJ_CHAR_CNTRL 0x01 +#define LJ_CHAR_SPACE 0x02 +#define LJ_CHAR_PUNCT 0x04 +#define LJ_CHAR_DIGIT 0x08 +#define LJ_CHAR_XDIGIT 0x10 +#define LJ_CHAR_UPPER 0x20 +#define LJ_CHAR_LOWER 0x40 +#define LJ_CHAR_IDENT 0x80 +#define LJ_CHAR_ALPHA (LJ_CHAR_LOWER|LJ_CHAR_UPPER) +#define LJ_CHAR_ALNUM (LJ_CHAR_ALPHA|LJ_CHAR_DIGIT) +#define LJ_CHAR_GRAPH (LJ_CHAR_ALNUM|LJ_CHAR_PUNCT) + +/* Only pass -1 or 0..255 to these macros. Never pass a signed char! */ +#define lj_char_isa(c, t) ((lj_char_bits+1)[(c)] & t) +#define lj_char_iscntrl(c) lj_char_isa((c), LJ_CHAR_CNTRL) +#define lj_char_isspace(c) lj_char_isa((c), LJ_CHAR_SPACE) +#define lj_char_ispunct(c) lj_char_isa((c), LJ_CHAR_PUNCT) +#define lj_char_isdigit(c) lj_char_isa((c), LJ_CHAR_DIGIT) +#define lj_char_isxdigit(c) lj_char_isa((c), LJ_CHAR_XDIGIT) +#define lj_char_isupper(c) lj_char_isa((c), LJ_CHAR_UPPER) +#define lj_char_islower(c) lj_char_isa((c), LJ_CHAR_LOWER) +#define lj_char_isident(c) lj_char_isa((c), LJ_CHAR_IDENT) +#define lj_char_isalpha(c) lj_char_isa((c), LJ_CHAR_ALPHA) +#define lj_char_isalnum(c) lj_char_isa((c), LJ_CHAR_ALNUM) +#define lj_char_isgraph(c) lj_char_isa((c), LJ_CHAR_GRAPH) + +#define lj_char_toupper(c) ((c) - (lj_char_islower(c) >> 1)) +#define lj_char_tolower(c) ((c) + lj_char_isupper(c)) + +LJ_DATA const uint8_t lj_char_bits[257]; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_clib.c b/src/3rd party/luajit-2.0/src/lj_clib.c new file mode 100644 index 00000000000..d3526090975 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_clib.c @@ -0,0 +1,409 @@ +/* +** FFI C library loader. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_tab.h" +#include "lj_str.h" +#include "lj_udata.h" +#include "lj_ctype.h" +#include "lj_cconv.h" +#include "lj_cdata.h" +#include "lj_clib.h" + +/* -- OS-specific functions ----------------------------------------------- */ + +#if LJ_TARGET_DLOPEN + +#include +#include + +#if defined(RTLD_DEFAULT) +#define CLIB_DEFHANDLE RTLD_DEFAULT +#elif LJ_TARGET_OSX || LJ_TARGET_BSD +#define CLIB_DEFHANDLE ((void *)(intptr_t)-2) +#else +#define CLIB_DEFHANDLE NULL +#endif + +LJ_NORET LJ_NOINLINE static void clib_error_(lua_State *L) +{ + lj_err_callermsg(L, dlerror()); +} + +#define clib_error(L, fmt, name) clib_error_(L) + +#if defined(__CYGWIN__) +#define CLIB_SOPREFIX "cyg" +#else +#define CLIB_SOPREFIX "lib" +#endif + +#if LJ_TARGET_OSX +#define CLIB_SOEXT "%s.dylib" +#elif defined(__CYGWIN__) +#define CLIB_SOEXT "%s.dll" +#else +#define CLIB_SOEXT "%s.so" +#endif + +static const char *clib_extname(lua_State *L, const char *name) +{ + if (!strchr(name, '/') +#ifdef __CYGWIN__ + && !strchr(name, '\\') +#endif + ) { + if (!strchr(name, '.')) { + name = lj_str_pushf(L, CLIB_SOEXT, name); + L->top--; +#ifdef __CYGWIN__ + } else { + return name; +#endif + } + if (!(name[0] == CLIB_SOPREFIX[0] && name[1] == CLIB_SOPREFIX[1] && + name[2] == CLIB_SOPREFIX[2])) { + name = lj_str_pushf(L, CLIB_SOPREFIX "%s", name); + L->top--; + } + } + return name; +} + +/* Check for a recognized ld script line. */ +static const char *clib_check_lds(lua_State *L, const char *buf) +{ + char *p, *e; + if ((!strncmp(buf, "GROUP", 5) || !strncmp(buf, "INPUT", 5)) && + (p = strchr(buf, '('))) { + while (*++p == ' ') ; + for (e = p; *e && *e != ' ' && *e != ')'; e++) ; + return strdata(lj_str_new(L, p, e-p)); + } + return NULL; +} + +/* Quick and dirty solution to resolve shared library name from ld script. */ +static const char *clib_resolve_lds(lua_State *L, const char *name) +{ + FILE *fp = fopen(name, "r"); + const char *p = NULL; + if (fp) { + char buf[256]; + if (fgets(buf, sizeof(buf), fp)) { + if (!strncmp(buf, "/* GNU ld script", 16)) { /* ld script magic? */ + while (fgets(buf, sizeof(buf), fp)) { /* Check all lines. */ + p = clib_check_lds(L, buf); + if (p) break; + } + } else { /* Otherwise check only the first line. */ + p = clib_check_lds(L, buf); + } + } + fclose(fp); + } + return p; +} + +static void *clib_loadlib(lua_State *L, const char *name, int global) +{ + void *h = dlopen(clib_extname(L, name), + RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); + if (!h) { + const char *e, *err = dlerror(); + if (*err == '/' && (e = strchr(err, ':')) && + (name = clib_resolve_lds(L, strdata(lj_str_new(L, err, e-err))))) { + h = dlopen(name, RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); + if (h) return h; + err = dlerror(); + } + lj_err_callermsg(L, err); + } + return h; +} + +static void clib_unloadlib(CLibrary *cl) +{ + if (cl->handle && cl->handle != CLIB_DEFHANDLE) + dlclose(cl->handle); +} + +static void *clib_getsym(CLibrary *cl, const char *name) +{ + void *p = dlsym(cl->handle, name); + return p; +} + +#elif LJ_TARGET_WINDOWS + +#define WIN32_LEAN_AND_MEAN +#include + +#ifndef GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS +#define GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS 4 +#define GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT 2 +BOOL WINAPI GetModuleHandleExA(DWORD, LPCSTR, HMODULE*); +#endif + +#define CLIB_DEFHANDLE ((void *)-1) + +/* Default libraries. */ +enum { + CLIB_HANDLE_EXE, + CLIB_HANDLE_DLL, + CLIB_HANDLE_CRT, + CLIB_HANDLE_KERNEL32, + CLIB_HANDLE_USER32, + CLIB_HANDLE_GDI32, + CLIB_HANDLE_MAX +}; + +static void *clib_def_handle[CLIB_HANDLE_MAX]; + +LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, + const char *name) +{ + DWORD err = GetLastError(); + char buf[128]; + if (!FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_FROM_SYSTEM, + NULL, err, 0, buf, sizeof(buf), NULL)) + buf[0] = '\0'; + lj_err_callermsg(L, lj_str_pushf(L, fmt, name, buf)); +} + +static int clib_needext(const char *s) +{ + while (*s) { + if (*s == '/' || *s == '\\' || *s == '.') return 0; + s++; + } + return 1; +} + +static const char *clib_extname(lua_State *L, const char *name) +{ + if (clib_needext(name)) { + name = lj_str_pushf(L, "%s.dll", name); + L->top--; + } + return name; +} + +static void *clib_loadlib(lua_State *L, const char *name, int global) +{ + DWORD oldwerr = GetLastError(); + void *h = (void *)LoadLibraryA(clib_extname(L, name)); + if (!h) clib_error(L, "cannot load module " LUA_QS ": %s", name); + SetLastError(oldwerr); + UNUSED(global); + return h; +} + +static void clib_unloadlib(CLibrary *cl) +{ + if (cl->handle == CLIB_DEFHANDLE) { + MSize i; + for (i = CLIB_HANDLE_KERNEL32; i < CLIB_HANDLE_MAX; i++) { + void *h = clib_def_handle[i]; + if (h) { + clib_def_handle[i] = NULL; + FreeLibrary((HINSTANCE)h); + } + } + } else if (cl->handle) { + FreeLibrary((HINSTANCE)cl->handle); + } +} + +static void *clib_getsym(CLibrary *cl, const char *name) +{ + void *p = NULL; + if (cl->handle == CLIB_DEFHANDLE) { /* Search default libraries. */ + MSize i; + for (i = 0; i < CLIB_HANDLE_MAX; i++) { + HINSTANCE h = (HINSTANCE)clib_def_handle[i]; + if (!(void *)h) { /* Resolve default library handles (once). */ + switch (i) { + case CLIB_HANDLE_EXE: GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, NULL, &h); break; + case CLIB_HANDLE_DLL: + GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, + (const char *)clib_def_handle, &h); + break; + case CLIB_HANDLE_CRT: + GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, + (const char *)&_fmode, &h); + break; + case CLIB_HANDLE_KERNEL32: h = LoadLibraryA("kernel32.dll"); break; + case CLIB_HANDLE_USER32: h = LoadLibraryA("user32.dll"); break; + case CLIB_HANDLE_GDI32: h = LoadLibraryA("gdi32.dll"); break; + } + if (!h) continue; + clib_def_handle[i] = (void *)h; + } + p = (void *)GetProcAddress(h, name); + if (p) break; + } + } else { + p = (void *)GetProcAddress((HINSTANCE)cl->handle, name); + } + return p; +} + +#else + +#define CLIB_DEFHANDLE NULL + +LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, + const char *name) +{ + lj_err_callermsg(L, lj_str_pushf(L, fmt, name, "no support for this OS")); +} + +static void *clib_loadlib(lua_State *L, const char *name, int global) +{ + lj_err_callermsg(L, "no support for loading dynamic libraries for this OS"); + UNUSED(name); UNUSED(global); + return NULL; +} + +static void clib_unloadlib(CLibrary *cl) +{ + UNUSED(cl); +} + +static void *clib_getsym(CLibrary *cl, const char *name) +{ + UNUSED(cl); UNUSED(name); + return NULL; +} + +#endif + +/* -- C library indexing -------------------------------------------------- */ + +#if LJ_TARGET_X86 && LJ_ABI_WIN +/* Compute argument size for fastcall/stdcall functions. */ +static CTSize clib_func_argsize(CTState *cts, CType *ct) +{ + CTSize n = 0; + while (ct->sib) { + CType *d; + ct = ctype_get(cts, ct->sib); + if (ctype_isfield(ct->info)) { + d = ctype_rawchild(cts, ct); + n += ((d->size + 3) & ~3); + } + } + return n; +} +#endif + +/* Get redirected or mangled external symbol. */ +static const char *clib_extsym(CTState *cts, CType *ct, GCstr *name) +{ + if (ct->sib) { + CType *ctf = ctype_get(cts, ct->sib); + if (ctype_isxattrib(ctf->info, CTA_REDIR)) + return strdata(gco2str(gcref(ctf->name))); + } + return strdata(name); +} + +/* Index a C library by name. */ +TValue *lj_clib_index(lua_State *L, CLibrary *cl, GCstr *name) +{ + TValue *tv = lj_tab_setstr(L, cl->cache, name); + if (LJ_UNLIKELY(tvisnil(tv))) { + CTState *cts = ctype_cts(L); + CType *ct; + CTypeID id = lj_ctype_getname(cts, &ct, name, CLNS_INDEX); + if (!id) + lj_err_callerv(L, LJ_ERR_FFI_NODECL, strdata(name)); + if (ctype_isconstval(ct->info)) { + CType *ctt = ctype_child(cts, ct); + lua_assert(ctype_isinteger(ctt->info) && ctt->size <= 4); + if ((ctt->info & CTF_UNSIGNED) && (int32_t)ct->size < 0) + setnumV(tv, (lua_Number)(uint32_t)ct->size); + else + setintV(tv, (int32_t)ct->size); + } else { + const char *sym = clib_extsym(cts, ct, name); +#if LJ_TARGET_WINDOWS + DWORD oldwerr = GetLastError(); +#endif + void *p = clib_getsym(cl, sym); + GCcdata *cd; + lua_assert(ctype_isfunc(ct->info) || ctype_isextern(ct->info)); +#if LJ_TARGET_X86 && LJ_ABI_WIN + /* Retry with decorated name for fastcall/stdcall functions. */ + if (!p && ctype_isfunc(ct->info)) { + CTInfo cconv = ctype_cconv(ct->info); + if (cconv == CTCC_FASTCALL || cconv == CTCC_STDCALL) { + CTSize sz = clib_func_argsize(cts, ct); + const char *symd = lj_str_pushf(L, + cconv == CTCC_FASTCALL ? "@%s@%d" : "_%s@%d", + sym, sz); + L->top--; + p = clib_getsym(cl, symd); + } + } +#endif + if (!p) + clib_error(L, "cannot resolve symbol " LUA_QS ": %s", sym); +#if LJ_TARGET_WINDOWS + SetLastError(oldwerr); +#endif + cd = lj_cdata_new(cts, id, CTSIZE_PTR); + *(void **)cdataptr(cd) = p; + setcdataV(L, tv, cd); + } + } + return tv; +} + +/* -- C library management ------------------------------------------------ */ + +/* Create a new CLibrary object and push it on the stack. */ +static CLibrary *clib_new(lua_State *L, GCtab *mt) +{ + GCtab *t = lj_tab_new(L, 0, 0); + GCudata *ud = lj_udata_new(L, sizeof(CLibrary), t); + CLibrary *cl = (CLibrary *)uddata(ud); + cl->cache = t; + ud->udtype = UDTYPE_FFI_CLIB; + /* NOBARRIER: The GCudata is new (marked white). */ + setgcref(ud->metatable, obj2gco(mt)); + setudataV(L, L->top++, ud); + return cl; +} + +/* Load a C library. */ +void lj_clib_load(lua_State *L, GCtab *mt, GCstr *name, int global) +{ + void *handle = clib_loadlib(L, strdata(name), global); + CLibrary *cl = clib_new(L, mt); + cl->handle = handle; +} + +/* Unload a C library. */ +void lj_clib_unload(CLibrary *cl) +{ + clib_unloadlib(cl); + cl->handle = NULL; +} + +/* Create the default C library object. */ +void lj_clib_default(lua_State *L, GCtab *mt) +{ + CLibrary *cl = clib_new(L, mt); + cl->handle = CLIB_DEFHANDLE; +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_clib.h b/src/3rd party/luajit-2.0/src/lj_clib.h new file mode 100644 index 00000000000..e5dc98e1cd7 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_clib.h @@ -0,0 +1,29 @@ +/* +** FFI C library loader. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CLIB_H +#define _LJ_CLIB_H + +#include "lj_obj.h" + +#if LJ_HASFFI + +/* Namespace for C library indexing. */ +#define CLNS_INDEX ((1u<env. */ +} CLibrary; + +LJ_FUNC TValue *lj_clib_index(lua_State *L, CLibrary *cl, GCstr *name); +LJ_FUNC void lj_clib_load(lua_State *L, GCtab *mt, GCstr *name, int global); +LJ_FUNC void lj_clib_unload(CLibrary *cl); +LJ_FUNC void lj_clib_default(lua_State *L, GCtab *mt); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cparse.c b/src/3rd party/luajit-2.0/src/lj_cparse.c new file mode 100644 index 00000000000..b9df88d7702 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cparse.c @@ -0,0 +1,1872 @@ +/* +** C declaration parser. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_ctype.h" +#include "lj_cparse.h" +#include "lj_frame.h" +#include "lj_vm.h" +#include "lj_char.h" +#include "lj_strscan.h" + +/* +** Important note: this is NOT a validating C parser! This is a minimal +** C declaration parser, solely for use by the LuaJIT FFI. +** +** It ought to return correct results for properly formed C declarations, +** but it may accept some invalid declarations, too (and return nonsense). +** Also, it shows rather generic error messages to avoid unnecessary bloat. +** If in doubt, please check the input against your favorite C compiler. +*/ + +/* -- C lexer ------------------------------------------------------------- */ + +/* C lexer token names. */ +static const char *const ctoknames[] = { +#define CTOKSTR(name, str) str, +CTOKDEF(CTOKSTR) +#undef CTOKSTR + NULL +}; + +/* Forward declaration. */ +LJ_NORET static void cp_err(CPState *cp, ErrMsg em); + +static const char *cp_tok2str(CPState *cp, CPToken tok) +{ + lua_assert(tok < CTOK_FIRSTDECL); + if (tok > CTOK_OFS) + return ctoknames[tok-CTOK_OFS-1]; + else if (!lj_char_iscntrl(tok)) + return lj_str_pushf(cp->L, "%c", tok); + else + return lj_str_pushf(cp->L, "char(%d)", tok); +} + +/* End-of-line? */ +static LJ_AINLINE int cp_iseol(CPChar c) +{ + return (c == '\n' || c == '\r'); +} + +/* Peek next raw character. */ +static LJ_AINLINE CPChar cp_rawpeek(CPState *cp) +{ + return (CPChar)(uint8_t)(*cp->p); +} + +static LJ_NOINLINE CPChar cp_get_bs(CPState *cp); + +/* Get next character. */ +static LJ_AINLINE CPChar cp_get(CPState *cp) +{ + cp->c = (CPChar)(uint8_t)(*cp->p++); + if (LJ_LIKELY(cp->c != '\\')) return cp->c; + return cp_get_bs(cp); +} + +/* Transparently skip backslash-escaped line breaks. */ +static LJ_NOINLINE CPChar cp_get_bs(CPState *cp) +{ + CPChar c2, c = cp_rawpeek(cp); + if (!cp_iseol(c)) return cp->c; + cp->p++; + c2 = cp_rawpeek(cp); + if (cp_iseol(c2) && c2 != c) cp->p++; + cp->linenumber++; + return cp_get(cp); +} + +/* Grow save buffer. */ +static LJ_NOINLINE void cp_save_grow(CPState *cp, CPChar c) +{ + MSize newsize; + if (cp->sb.sz >= CPARSE_MAX_BUF/2) + cp_err(cp, LJ_ERR_XELEM); + newsize = cp->sb.sz * 2; + lj_str_resizebuf(cp->L, &cp->sb, newsize); + cp->sb.buf[cp->sb.n++] = (char)c; +} + +/* Save character in buffer. */ +static LJ_AINLINE void cp_save(CPState *cp, CPChar c) +{ + if (LJ_UNLIKELY(cp->sb.n + 1 > cp->sb.sz)) + cp_save_grow(cp, c); + else + cp->sb.buf[cp->sb.n++] = (char)c; +} + +/* Skip line break. Handles "\n", "\r", "\r\n" or "\n\r". */ +static void cp_newline(CPState *cp) +{ + CPChar c = cp_rawpeek(cp); + if (cp_iseol(c) && c != cp->c) cp->p++; + cp->linenumber++; +} + +LJ_NORET static void cp_errmsg(CPState *cp, CPToken tok, ErrMsg em, ...) +{ + const char *msg, *tokstr; + lua_State *L; + va_list argp; + if (tok == 0) { + tokstr = NULL; + } else if (tok == CTOK_IDENT || tok == CTOK_INTEGER || tok == CTOK_STRING || + tok >= CTOK_FIRSTDECL) { + if (cp->sb.n == 0) cp_save(cp, '$'); + cp_save(cp, '\0'); + tokstr = cp->sb.buf; + } else { + tokstr = cp_tok2str(cp, tok); + } + L = cp->L; + va_start(argp, em); + msg = lj_str_pushvf(L, err2msg(em), argp); + va_end(argp); + if (tokstr) + msg = lj_str_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tokstr); + if (cp->linenumber > 1) + msg = lj_str_pushf(L, "%s at line %d", msg, cp->linenumber); + lj_err_callermsg(L, msg); +} + +LJ_NORET LJ_NOINLINE static void cp_err_token(CPState *cp, CPToken tok) +{ + cp_errmsg(cp, cp->tok, LJ_ERR_XTOKEN, cp_tok2str(cp, tok)); +} + +LJ_NORET LJ_NOINLINE static void cp_err_badidx(CPState *cp, CType *ct) +{ + GCstr *s = lj_ctype_repr(cp->cts->L, ctype_typeid(cp->cts, ct), NULL); + cp_errmsg(cp, 0, LJ_ERR_FFI_BADIDX, strdata(s)); +} + +LJ_NORET LJ_NOINLINE static void cp_err(CPState *cp, ErrMsg em) +{ + cp_errmsg(cp, 0, em); +} + +/* -- Main lexical scanner ------------------------------------------------ */ + +/* Parse number literal. Only handles int32_t/uint32_t right now. */ +static CPToken cp_number(CPState *cp) +{ + StrScanFmt fmt; + TValue o; + do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); + cp_save(cp, '\0'); + fmt = lj_strscan_scan((const uint8_t *)cp->sb.buf, &o, STRSCAN_OPT_C); + if (fmt == STRSCAN_INT) cp->val.id = CTID_INT32; + else if (fmt == STRSCAN_U32) cp->val.id = CTID_UINT32; + else if (!(cp->mode & CPARSE_MODE_SKIP)) + cp_errmsg(cp, CTOK_INTEGER, LJ_ERR_XNUMBER); + cp->val.u32 = (uint32_t)o.i; + return CTOK_INTEGER; +} + +/* Parse identifier or keyword. */ +static CPToken cp_ident(CPState *cp) +{ + do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); + cp->str = lj_str_new(cp->L, cp->sb.buf, cp->sb.n); + cp->val.id = lj_ctype_getname(cp->cts, &cp->ct, cp->str, cp->tmask); + if (ctype_type(cp->ct->info) == CT_KW) + return ctype_cid(cp->ct->info); + return CTOK_IDENT; +} + +/* Parse parameter. */ +static CPToken cp_param(CPState *cp) +{ + CPChar c = cp_get(cp); + TValue *o = cp->param; + if (lj_char_isident(c) || c == '$') /* Reserve $xyz for future extensions. */ + cp_errmsg(cp, c, LJ_ERR_XSYNTAX); + if (!o || o >= cp->L->top) + cp_err(cp, LJ_ERR_FFI_NUMPARAM); + cp->param = o+1; + if (tvisstr(o)) { + cp->str = strV(o); + cp->val.id = 0; + cp->ct = &cp->cts->tab[0]; + return CTOK_IDENT; + } else if (tvisnumber(o)) { + cp->val.i32 = numberVint(o); + cp->val.id = CTID_INT32; + return CTOK_INTEGER; + } else { + GCcdata *cd; + if (!tviscdata(o)) + lj_err_argtype(cp->L, (int)(o-cp->L->base)+1, "type parameter"); + cd = cdataV(o); + if (cd->ctypeid == CTID_CTYPEID) + cp->val.id = *(CTypeID *)cdataptr(cd); + else + cp->val.id = cd->ctypeid; + return '$'; + } +} + +/* Parse string or character constant. */ +static CPToken cp_string(CPState *cp) +{ + CPChar delim = cp->c; + cp_get(cp); + while (cp->c != delim) { + CPChar c = cp->c; + if (c == '\0') cp_errmsg(cp, CTOK_EOF, LJ_ERR_XSTR); + if (c == '\\') { + c = cp_get(cp); + switch (c) { + case '\0': cp_errmsg(cp, CTOK_EOF, LJ_ERR_XSTR); break; + case 'a': c = '\a'; break; + case 'b': c = '\b'; break; + case 'f': c = '\f'; break; + case 'n': c = '\n'; break; + case 'r': c = '\r'; break; + case 't': c = '\t'; break; + case 'v': c = '\v'; break; + case 'e': c = 27; break; + case 'x': + c = 0; + while (lj_char_isxdigit(cp_get(cp))) + c = (c<<4) + (lj_char_isdigit(cp->c) ? cp->c-'0' : (cp->c&15)+9); + cp_save(cp, (c & 0xff)); + continue; + default: + if (lj_char_isdigit(c)) { + c -= '0'; + if (lj_char_isdigit(cp_get(cp))) { + c = c*8 + (cp->c - '0'); + if (lj_char_isdigit(cp_get(cp))) { + c = c*8 + (cp->c - '0'); + cp_get(cp); + } + } + cp_save(cp, (c & 0xff)); + continue; + } + break; + } + } + cp_save(cp, c); + cp_get(cp); + } + cp_get(cp); + if (delim == '"') { + cp->str = lj_str_new(cp->L, cp->sb.buf, cp->sb.n); + return CTOK_STRING; + } else { + if (cp->sb.n != 1) cp_err_token(cp, '\''); + cp->val.i32 = (int32_t)(char)cp->sb.buf[0]; + cp->val.id = CTID_INT32; + return CTOK_INTEGER; + } +} + +/* Skip C comment. */ +static void cp_comment_c(CPState *cp) +{ + do { + if (cp_get(cp) == '*') { + do { + if (cp_get(cp) == '/') { cp_get(cp); return; } + } while (cp->c == '*'); + } + if (cp_iseol(cp->c)) cp_newline(cp); + } while (cp->c != '\0'); +} + +/* Skip C++ comment. */ +static void cp_comment_cpp(CPState *cp) +{ + while (!cp_iseol(cp_get(cp)) && cp->c != '\0') + ; +} + +/* Lexical scanner for C. Only a minimal subset is implemented. */ +static CPToken cp_next_(CPState *cp) +{ + lj_str_resetbuf(&cp->sb); + for (;;) { + if (lj_char_isident(cp->c)) + return lj_char_isdigit(cp->c) ? cp_number(cp) : cp_ident(cp); + switch (cp->c) { + case '\n': case '\r': cp_newline(cp); /* fallthrough. */ + case ' ': case '\t': case '\v': case '\f': cp_get(cp); break; + case '"': case '\'': return cp_string(cp); + case '/': + if (cp_get(cp) == '*') cp_comment_c(cp); + else if (cp->c == '/') cp_comment_cpp(cp); + else return '/'; + break; + case '|': + if (cp_get(cp) != '|') return '|'; cp_get(cp); return CTOK_OROR; + case '&': + if (cp_get(cp) != '&') return '&'; cp_get(cp); return CTOK_ANDAND; + case '=': + if (cp_get(cp) != '=') return '='; cp_get(cp); return CTOK_EQ; + case '!': + if (cp_get(cp) != '=') return '!'; cp_get(cp); return CTOK_NE; + case '<': + if (cp_get(cp) == '=') { cp_get(cp); return CTOK_LE; } + else if (cp->c == '<') { cp_get(cp); return CTOK_SHL; } + return '<'; + case '>': + if (cp_get(cp) == '=') { cp_get(cp); return CTOK_GE; } + else if (cp->c == '>') { cp_get(cp); return CTOK_SHR; } + return '>'; + case '-': + if (cp_get(cp) != '>') return '-'; cp_get(cp); return CTOK_DEREF; + case '$': + return cp_param(cp); + case '\0': return CTOK_EOF; + default: { CPToken c = cp->c; cp_get(cp); return c; } + } + } +} + +static LJ_NOINLINE CPToken cp_next(CPState *cp) +{ + return (cp->tok = cp_next_(cp)); +} + +/* -- C parser ------------------------------------------------------------ */ + +/* Namespaces for resolving identifiers. */ +#define CPNS_DEFAULT \ + ((1u<linenumber = 1; + cp->depth = 0; + cp->curpack = 0; + cp->packstack[0] = 255; + lj_str_initbuf(&cp->sb); + lj_str_resizebuf(cp->L, &cp->sb, LJ_MIN_SBUF); + lua_assert(cp->p != NULL); + cp_get(cp); /* Read-ahead first char. */ + cp->tok = 0; + cp->tmask = CPNS_DEFAULT; + cp_next(cp); /* Read-ahead first token. */ +} + +/* Cleanup C parser state. */ +static void cp_cleanup(CPState *cp) +{ + global_State *g = G(cp->L); + lj_str_freebuf(g, &cp->sb); +} + +/* Check and consume optional token. */ +static int cp_opt(CPState *cp, CPToken tok) +{ + if (cp->tok == tok) { cp_next(cp); return 1; } + return 0; +} + +/* Check and consume token. */ +static void cp_check(CPState *cp, CPToken tok) +{ + if (cp->tok != tok) cp_err_token(cp, tok); + cp_next(cp); +} + +/* Check if the next token may start a type declaration. */ +static int cp_istypedecl(CPState *cp) +{ + if (cp->tok >= CTOK_FIRSTDECL && cp->tok <= CTOK_LASTDECL) return 1; + if (cp->tok == CTOK_IDENT && ctype_istypedef(cp->ct->info)) return 1; + if (cp->tok == '$') return 1; + return 0; +} + +/* -- Constant expression evaluator --------------------------------------- */ + +/* Forward declarations. */ +static void cp_expr_unary(CPState *cp, CPValue *k); +static void cp_expr_sub(CPState *cp, CPValue *k, int pri); + +/* Please note that type handling is very weak here. Most ops simply +** assume integer operands. Accessors are only needed to compute types and +** return synthetic values. The only purpose of the expression evaluator +** is to compute the values of constant expressions one would typically +** find in C header files. And again: this is NOT a validating C parser! +*/ + +/* Parse comma separated expression and return last result. */ +static void cp_expr_comma(CPState *cp, CPValue *k) +{ + do { cp_expr_sub(cp, k, 0); } while (cp_opt(cp, ',')); +} + +/* Parse sizeof/alignof operator. */ +static void cp_expr_sizeof(CPState *cp, CPValue *k, int wantsz) +{ + CTSize sz; + CTInfo info; + if (cp_opt(cp, '(')) { + if (cp_istypedecl(cp)) + k->id = cp_decl_abstract(cp); + else + cp_expr_comma(cp, k); + cp_check(cp, ')'); + } else { + cp_expr_unary(cp, k); + } + info = lj_ctype_info(cp->cts, k->id, &sz); + if (wantsz) { + if (sz != CTSIZE_INVALID) + k->u32 = sz; + else if (k->id != CTID_A_CCHAR) /* Special case for sizeof("string"). */ + cp_err(cp, LJ_ERR_FFI_INVSIZE); + } else { + k->u32 = 1u << ctype_align(info); + } + k->id = CTID_UINT32; /* Really size_t. */ +} + +/* Parse prefix operators. */ +static void cp_expr_prefix(CPState *cp, CPValue *k) +{ + if (cp->tok == CTOK_INTEGER) { + *k = cp->val; cp_next(cp); + } else if (cp_opt(cp, '+')) { + cp_expr_unary(cp, k); /* Nothing to do (well, integer promotion). */ + } else if (cp_opt(cp, '-')) { + cp_expr_unary(cp, k); k->i32 = -k->i32; + } else if (cp_opt(cp, '~')) { + cp_expr_unary(cp, k); k->i32 = ~k->i32; + } else if (cp_opt(cp, '!')) { + cp_expr_unary(cp, k); k->i32 = !k->i32; k->id = CTID_INT32; + } else if (cp_opt(cp, '(')) { + if (cp_istypedecl(cp)) { /* Cast operator. */ + CTypeID id = cp_decl_abstract(cp); + cp_check(cp, ')'); + cp_expr_unary(cp, k); + k->id = id; /* No conversion performed. */ + } else { /* Sub-expression. */ + cp_expr_comma(cp, k); + cp_check(cp, ')'); + } + } else if (cp_opt(cp, '*')) { /* Indirection. */ + CType *ct; + cp_expr_unary(cp, k); + ct = lj_ctype_rawref(cp->cts, k->id); + if (!ctype_ispointer(ct->info)) + cp_err_badidx(cp, ct); + k->u32 = 0; k->id = ctype_cid(ct->info); + } else if (cp_opt(cp, '&')) { /* Address operator. */ + cp_expr_unary(cp, k); + k->id = lj_ctype_intern(cp->cts, CTINFO(CT_PTR, CTALIGN_PTR+k->id), + CTSIZE_PTR); + } else if (cp_opt(cp, CTOK_SIZEOF)) { + cp_expr_sizeof(cp, k, 1); + } else if (cp_opt(cp, CTOK_ALIGNOF)) { + cp_expr_sizeof(cp, k, 0); + } else if (cp->tok == CTOK_IDENT) { + if (ctype_type(cp->ct->info) == CT_CONSTVAL) { + k->u32 = cp->ct->size; k->id = ctype_cid(cp->ct->info); + } else if (ctype_type(cp->ct->info) == CT_EXTERN) { + k->u32 = cp->val.id; k->id = ctype_cid(cp->ct->info); + } else if (ctype_type(cp->ct->info) == CT_FUNC) { + k->u32 = cp->val.id; k->id = cp->val.id; + } else { + goto err_expr; + } + cp_next(cp); + } else if (cp->tok == CTOK_STRING) { + CTSize sz = cp->str->len; + while (cp_next(cp) == CTOK_STRING) + sz += cp->str->len; + k->u32 = sz + 1; + k->id = CTID_A_CCHAR; + } else { + err_expr: + cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); + } +} + +/* Parse postfix operators. */ +static void cp_expr_postfix(CPState *cp, CPValue *k) +{ + for (;;) { + CType *ct; + if (cp_opt(cp, '[')) { /* Array/pointer index. */ + CPValue k2; + cp_expr_comma(cp, &k2); + ct = lj_ctype_rawref(cp->cts, k->id); + if (!ctype_ispointer(ct->info)) { + ct = lj_ctype_rawref(cp->cts, k2.id); + if (!ctype_ispointer(ct->info)) + cp_err_badidx(cp, ct); + } + cp_check(cp, ']'); + k->u32 = 0; + } else if (cp->tok == '.' || cp->tok == CTOK_DEREF) { /* Struct deref. */ + CTSize ofs; + CType *fct; + ct = lj_ctype_rawref(cp->cts, k->id); + if (cp->tok == CTOK_DEREF) { + if (!ctype_ispointer(ct->info)) + cp_err_badidx(cp, ct); + ct = lj_ctype_rawref(cp->cts, ctype_cid(ct->info)); + } + cp_next(cp); + if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); + if (!ctype_isstruct(ct->info) || ct->size == CTSIZE_INVALID || + !(fct = lj_ctype_getfield(cp->cts, ct, cp->str, &ofs)) || + ctype_isbitfield(fct->info)) { + GCstr *s = lj_ctype_repr(cp->cts->L, ctype_typeid(cp->cts, ct), NULL); + cp_errmsg(cp, 0, LJ_ERR_FFI_BADMEMBER, strdata(s), strdata(cp->str)); + } + ct = fct; + k->u32 = ctype_isconstval(ct->info) ? ct->size : 0; + cp_next(cp); + } else { + return; + } + k->id = ctype_cid(ct->info); + } +} + +/* Parse infix operators. */ +static void cp_expr_infix(CPState *cp, CPValue *k, int pri) +{ + CPValue k2; + k2.u32 = 0; k2.id = 0; /* Silence the compiler. */ + for (;;) { + switch (pri) { + case 0: + if (cp_opt(cp, '?')) { + CPValue k3; + cp_expr_comma(cp, &k2); /* Right-associative. */ + cp_check(cp, ':'); + cp_expr_sub(cp, &k3, 0); + k->u32 = k->u32 ? k2.u32 : k3.u32; + k->id = k2.id > k3.id ? k2.id : k3.id; + continue; + } + case 1: + if (cp_opt(cp, CTOK_OROR)) { + cp_expr_sub(cp, &k2, 2); k->i32 = k->u32 || k2.u32; k->id = CTID_INT32; + continue; + } + case 2: + if (cp_opt(cp, CTOK_ANDAND)) { + cp_expr_sub(cp, &k2, 3); k->i32 = k->u32 && k2.u32; k->id = CTID_INT32; + continue; + } + case 3: + if (cp_opt(cp, '|')) { + cp_expr_sub(cp, &k2, 4); k->u32 = k->u32 | k2.u32; goto arith_result; + } + case 4: + if (cp_opt(cp, '^')) { + cp_expr_sub(cp, &k2, 5); k->u32 = k->u32 ^ k2.u32; goto arith_result; + } + case 5: + if (cp_opt(cp, '&')) { + cp_expr_sub(cp, &k2, 6); k->u32 = k->u32 & k2.u32; goto arith_result; + } + case 6: + if (cp_opt(cp, CTOK_EQ)) { + cp_expr_sub(cp, &k2, 7); k->i32 = k->u32 == k2.u32; k->id = CTID_INT32; + continue; + } else if (cp_opt(cp, CTOK_NE)) { + cp_expr_sub(cp, &k2, 7); k->i32 = k->u32 != k2.u32; k->id = CTID_INT32; + continue; + } + case 7: + if (cp_opt(cp, '<')) { + cp_expr_sub(cp, &k2, 8); + if (k->id == CTID_INT32 && k2.id == CTID_INT32) + k->i32 = k->i32 < k2.i32; + else + k->i32 = k->u32 < k2.u32; + k->id = CTID_INT32; + continue; + } else if (cp_opt(cp, '>')) { + cp_expr_sub(cp, &k2, 8); + if (k->id == CTID_INT32 && k2.id == CTID_INT32) + k->i32 = k->i32 > k2.i32; + else + k->i32 = k->u32 > k2.u32; + k->id = CTID_INT32; + continue; + } else if (cp_opt(cp, CTOK_LE)) { + cp_expr_sub(cp, &k2, 8); + if (k->id == CTID_INT32 && k2.id == CTID_INT32) + k->i32 = k->i32 <= k2.i32; + else + k->i32 = k->u32 <= k2.u32; + k->id = CTID_INT32; + continue; + } else if (cp_opt(cp, CTOK_GE)) { + cp_expr_sub(cp, &k2, 8); + if (k->id == CTID_INT32 && k2.id == CTID_INT32) + k->i32 = k->i32 >= k2.i32; + else + k->i32 = k->u32 >= k2.u32; + k->id = CTID_INT32; + continue; + } + case 8: + if (cp_opt(cp, CTOK_SHL)) { + cp_expr_sub(cp, &k2, 9); k->u32 = k->u32 << k2.u32; + continue; + } else if (cp_opt(cp, CTOK_SHR)) { + cp_expr_sub(cp, &k2, 9); + if (k->id == CTID_INT32) + k->i32 = k->i32 >> k2.i32; + else + k->u32 = k->u32 >> k2.u32; + continue; + } + case 9: + if (cp_opt(cp, '+')) { + cp_expr_sub(cp, &k2, 10); k->u32 = k->u32 + k2.u32; + arith_result: + if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ + continue; + } else if (cp_opt(cp, '-')) { + cp_expr_sub(cp, &k2, 10); k->u32 = k->u32 - k2.u32; goto arith_result; + } + case 10: + if (cp_opt(cp, '*')) { + cp_expr_unary(cp, &k2); k->u32 = k->u32 * k2.u32; goto arith_result; + } else if (cp_opt(cp, '/')) { + cp_expr_unary(cp, &k2); + if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ + if (k2.u32 == 0 || + (k->id == CTID_INT32 && k->u32 == 0x80000000u && k2.i32 == -1)) + cp_err(cp, LJ_ERR_BADVAL); + if (k->id == CTID_INT32) + k->i32 = k->i32 / k2.i32; + else + k->u32 = k->u32 / k2.u32; + continue; + } else if (cp_opt(cp, '%')) { + cp_expr_unary(cp, &k2); + if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ + if (k2.u32 == 0 || + (k->id == CTID_INT32 && k->u32 == 0x80000000u && k2.i32 == -1)) + cp_err(cp, LJ_ERR_BADVAL); + if (k->id == CTID_INT32) + k->i32 = k->i32 % k2.i32; + else + k->u32 = k->u32 % k2.u32; + continue; + } + default: + return; + } + } +} + +/* Parse and evaluate unary expression. */ +static void cp_expr_unary(CPState *cp, CPValue *k) +{ + if (++cp->depth > CPARSE_MAX_DECLDEPTH) cp_err(cp, LJ_ERR_XLEVELS); + cp_expr_prefix(cp, k); + cp_expr_postfix(cp, k); + cp->depth--; +} + +/* Parse and evaluate sub-expression. */ +static void cp_expr_sub(CPState *cp, CPValue *k, int pri) +{ + cp_expr_unary(cp, k); + cp_expr_infix(cp, k, pri); +} + +/* Parse constant integer expression. */ +static void cp_expr_kint(CPState *cp, CPValue *k) +{ + CType *ct; + cp_expr_sub(cp, k, 0); + ct = ctype_raw(cp->cts, k->id); + if (!ctype_isinteger(ct->info)) cp_err(cp, LJ_ERR_BADVAL); +} + +/* Parse (non-negative) size expression. */ +static CTSize cp_expr_ksize(CPState *cp) +{ + CPValue k; + cp_expr_kint(cp, &k); + if (k.u32 >= 0x80000000u) cp_err(cp, LJ_ERR_FFI_INVSIZE); + return k.u32; +} + +/* -- Type declaration stack management ----------------------------------- */ + +/* Add declaration element behind the insertion position. */ +static CPDeclIdx cp_add(CPDecl *decl, CTInfo info, CTSize size) +{ + CPDeclIdx top = decl->top; + if (top >= CPARSE_MAX_DECLSTACK) cp_err(decl->cp, LJ_ERR_XLEVELS); + decl->stack[top].info = info; + decl->stack[top].size = size; + decl->stack[top].sib = 0; + setgcrefnull(decl->stack[top].name); + decl->stack[top].next = decl->stack[decl->pos].next; + decl->stack[decl->pos].next = (CTypeID1)top; + decl->top = top+1; + return top; +} + +/* Push declaration element before the insertion position. */ +static CPDeclIdx cp_push(CPDecl *decl, CTInfo info, CTSize size) +{ + return (decl->pos = cp_add(decl, info, size)); +} + +/* Push or merge attributes. */ +static void cp_push_attributes(CPDecl *decl) +{ + CType *ct = &decl->stack[decl->pos]; + if (ctype_isfunc(ct->info)) { /* Ok to modify in-place. */ +#if LJ_TARGET_X86 + if ((decl->fattr & CTFP_CCONV)) + ct->info = (ct->info & (CTMASK_NUM|CTF_VARARG|CTMASK_CID)) + + (decl->fattr & ~CTMASK_CID); +#endif + } else { + if ((decl->attr & CTFP_ALIGNED) && !(decl->mode & CPARSE_MODE_FIELD)) + cp_push(decl, CTINFO(CT_ATTRIB, CTATTRIB(CTA_ALIGN)), + ctype_align(decl->attr)); + } +} + +/* Push unrolled type to declaration stack and merge qualifiers. */ +static void cp_push_type(CPDecl *decl, CTypeID id) +{ + CType *ct = ctype_get(decl->cp->cts, id); + CTInfo info = ct->info; + CTSize size = ct->size; + switch (ctype_type(info)) { + case CT_STRUCT: case CT_ENUM: + cp_push(decl, CTINFO(CT_TYPEDEF, id), 0); /* Don't copy unique types. */ + if ((decl->attr & CTF_QUAL)) { /* Push unmerged qualifiers. */ + cp_push(decl, CTINFO(CT_ATTRIB, CTATTRIB(CTA_QUAL)), + (decl->attr & CTF_QUAL)); + decl->attr &= ~CTF_QUAL; + } + break; + case CT_ATTRIB: + if (ctype_isxattrib(info, CTA_QUAL)) + decl->attr &= ~size; /* Remove redundant qualifiers. */ + cp_push_type(decl, ctype_cid(info)); /* Unroll. */ + cp_push(decl, info & ~CTMASK_CID, size); /* Copy type. */ + break; + case CT_ARRAY: + cp_push_type(decl, ctype_cid(info)); /* Unroll. */ + cp_push(decl, info & ~CTMASK_CID, size); /* Copy type. */ + decl->stack[decl->pos].sib = 1; /* Mark as already checked and sized. */ + /* Note: this is not copied to the ct->sib in the C type table. */ + break; + case CT_FUNC: + /* Copy type, link parameters (shared). */ + decl->stack[cp_push(decl, info, size)].sib = ct->sib; + break; + default: + /* Copy type, merge common qualifiers. */ + cp_push(decl, info|(decl->attr & CTF_QUAL), size); + decl->attr &= ~CTF_QUAL; + break; + } +} + +/* Consume the declaration element chain and intern the C type. */ +static CTypeID cp_decl_intern(CPState *cp, CPDecl *decl) +{ + CTypeID id = 0; + CPDeclIdx idx = 0; + CTSize csize = CTSIZE_INVALID; + CTSize cinfo = 0; + do { + CType *ct = &decl->stack[idx]; + CTInfo info = ct->info; + CTInfo size = ct->size; + /* The cid is already part of info for copies of pointers/functions. */ + idx = ct->next; + if (ctype_istypedef(info)) { + lua_assert(id == 0); + id = ctype_cid(info); + /* Always refetch info/size, since struct/enum may have been completed. */ + cinfo = ctype_get(cp->cts, id)->info; + csize = ctype_get(cp->cts, id)->size; + lua_assert(ctype_isstruct(cinfo) || ctype_isenum(cinfo)); + } else if (ctype_isfunc(info)) { /* Intern function. */ + CType *fct; + CTypeID fid; + CTypeID sib; + if (id) { + CType *refct = ctype_raw(cp->cts, id); + /* Reject function or refarray return types. */ + if (ctype_isfunc(refct->info) || ctype_isrefarray(refct->info)) + cp_err(cp, LJ_ERR_FFI_INVTYPE); + } + /* No intervening attributes allowed, skip forward. */ + while (idx) { + CType *ctn = &decl->stack[idx]; + if (!ctype_isattrib(ctn->info)) break; + idx = ctn->next; /* Skip attribute. */ + } + sib = ct->sib; /* Next line may reallocate the C type table. */ + fid = lj_ctype_new(cp->cts, &fct); + csize = CTSIZE_INVALID; + fct->info = cinfo = info + id; + fct->size = size; + fct->sib = sib; + id = fid; + } else if (ctype_isattrib(info)) { + if (ctype_isxattrib(info, CTA_QUAL)) + cinfo |= size; + else if (ctype_isxattrib(info, CTA_ALIGN)) + CTF_INSERT(cinfo, ALIGN, size); + id = lj_ctype_intern(cp->cts, info+id, size); + /* Inherit csize/cinfo from original type. */ + } else { + if (ctype_isnum(info)) { /* Handle mode/vector-size attributes. */ + lua_assert(id == 0); + if (!(info & CTF_BOOL)) { + CTSize msize = ctype_msizeP(decl->attr); + CTSize vsize = ctype_vsizeP(decl->attr); + if (msize && (!(info & CTF_FP) || (msize == 4 || msize == 8))) { + CTSize malign = lj_fls(msize); + if (malign > 4) malign = 4; /* Limit alignment. */ + CTF_INSERT(info, ALIGN, malign); + size = msize; /* Override size via mode. */ + } + if (vsize) { /* Vector size set? */ + CTSize esize = lj_fls(size); + if (vsize >= esize) { + /* Intern the element type first. */ + id = lj_ctype_intern(cp->cts, info, size); + /* Then create a vector (array) with vsize alignment. */ + size = (1u << vsize); + if (vsize > 4) vsize = 4; /* Limit alignment. */ + if (ctype_align(info) > vsize) vsize = ctype_align(info); + info = CTINFO(CT_ARRAY, (info & CTF_QUAL) + CTF_VECTOR + + CTALIGN(vsize)); + } + } + } + } else if (ctype_isptr(info)) { + /* Reject pointer/ref to ref. */ + if (id && ctype_isref(ctype_raw(cp->cts, id)->info)) + cp_err(cp, LJ_ERR_FFI_INVTYPE); + if (ctype_isref(info)) { + info &= ~CTF_VOLATILE; /* Refs are always const, never volatile. */ + /* No intervening attributes allowed, skip forward. */ + while (idx) { + CType *ctn = &decl->stack[idx]; + if (!ctype_isattrib(ctn->info)) break; + idx = ctn->next; /* Skip attribute. */ + } + } + } else if (ctype_isarray(info)) { /* Check for valid array size etc. */ + if (ct->sib == 0) { /* Only check/size arrays not copied by unroll. */ + if (ctype_isref(cinfo)) /* Reject arrays of refs. */ + cp_err(cp, LJ_ERR_FFI_INVTYPE); + /* Reject VLS or unknown-sized types. */ + if (ctype_isvltype(cinfo) || csize == CTSIZE_INVALID) + cp_err(cp, LJ_ERR_FFI_INVSIZE); + /* a[] and a[?] keep their invalid size. */ + if (size != CTSIZE_INVALID) { + uint64_t xsz = (uint64_t)size * csize; + if (xsz >= 0x80000000u) cp_err(cp, LJ_ERR_FFI_INVSIZE); + size = (CTSize)xsz; + } + } + if ((cinfo & CTF_ALIGN) > (info & CTF_ALIGN)) /* Find max. align. */ + info = (info & ~CTF_ALIGN) | (cinfo & CTF_ALIGN); + info |= (cinfo & CTF_QUAL); /* Inherit qual. */ + } else { + lua_assert(ctype_isvoid(info)); + } + csize = size; + cinfo = info+id; + id = lj_ctype_intern(cp->cts, info+id, size); + } + } while (idx); + return id; +} + +/* -- C declaration parser ------------------------------------------------ */ + +#define H_(le, be) LJ_ENDIAN_SELECT(0x##le, 0x##be) + +/* Reset declaration state to declaration specifier. */ +static void cp_decl_reset(CPDecl *decl) +{ + decl->pos = decl->specpos; + decl->top = decl->specpos+1; + decl->stack[decl->specpos].next = 0; + decl->attr = decl->specattr; + decl->fattr = decl->specfattr; + decl->name = NULL; + decl->redir = NULL; +} + +/* Parse constant initializer. */ +/* NYI: FP constants and strings as initializers. */ +static CTypeID cp_decl_constinit(CPState *cp, CType **ctp, CTypeID ctypeid) +{ + CType *ctt = ctype_get(cp->cts, ctypeid); + CTInfo info; + CTSize size; + CPValue k; + CTypeID constid; + while (ctype_isattrib(ctt->info)) { /* Skip attributes. */ + ctypeid = ctype_cid(ctt->info); /* Update ID, too. */ + ctt = ctype_get(cp->cts, ctypeid); + } + info = ctt->info; + size = ctt->size; + if (!ctype_isinteger(info) || !(info & CTF_CONST) || size > 4) + cp_err(cp, LJ_ERR_FFI_INVTYPE); + cp_check(cp, '='); + cp_expr_sub(cp, &k, 0); + constid = lj_ctype_new(cp->cts, ctp); + (*ctp)->info = CTINFO(CT_CONSTVAL, CTF_CONST|ctypeid); + k.u32 <<= 8*(4-size); + if ((info & CTF_UNSIGNED)) + k.u32 >>= 8*(4-size); + else + k.u32 = (uint32_t)((int32_t)k.u32 >> 8*(4-size)); + (*ctp)->size = k.u32; + return constid; +} + +/* Parse size in parentheses as part of attribute. */ +static CTSize cp_decl_sizeattr(CPState *cp) +{ + CTSize sz; + uint32_t oldtmask = cp->tmask; + cp->tmask = CPNS_DEFAULT; /* Required for expression evaluator. */ + cp_check(cp, '('); + sz = cp_expr_ksize(cp); + cp->tmask = oldtmask; + cp_check(cp, ')'); + return sz; +} + +/* Parse alignment attribute. */ +static void cp_decl_align(CPState *cp, CPDecl *decl) +{ + CTSize al = 4; /* Unspecified alignment is 16 bytes. */ + if (cp->tok == '(') { + al = cp_decl_sizeattr(cp); + al = al ? lj_fls(al) : 0; + } + CTF_INSERT(decl->attr, ALIGN, al); + decl->attr |= CTFP_ALIGNED; +} + +/* Parse GCC asm("name") redirect. */ +static void cp_decl_asm(CPState *cp, CPDecl *decl) +{ + UNUSED(decl); + cp_next(cp); + cp_check(cp, '('); + if (cp->tok == CTOK_STRING) { + GCstr *str = cp->str; + while (cp_next(cp) == CTOK_STRING) { + lj_str_pushf(cp->L, "%s%s", strdata(str), strdata(cp->str)); + cp->L->top--; + str = strV(cp->L->top); + } + decl->redir = str; + } + cp_check(cp, ')'); +} + +/* Parse GCC __attribute__((mode(...))). */ +static void cp_decl_mode(CPState *cp, CPDecl *decl) +{ + cp_check(cp, '('); + if (cp->tok == CTOK_IDENT) { + const char *s = strdata(cp->str); + CTSize sz = 0, vlen = 0; + if (s[0] == '_' && s[1] == '_') s += 2; + if (*s == 'V') { + s++; + vlen = *s++ - '0'; + if (*s >= '0' && *s <= '9') + vlen = vlen*10 + (*s++ - '0'); + } + switch (*s++) { + case 'Q': sz = 1; break; + case 'H': sz = 2; break; + case 'S': sz = 4; break; + case 'D': sz = 8; break; + case 'T': sz = 16; break; + case 'O': sz = 32; break; + default: goto bad_size; + } + if (*s == 'I' || *s == 'F') { + CTF_INSERT(decl->attr, MSIZEP, sz); + if (vlen) CTF_INSERT(decl->attr, VSIZEP, lj_fls(vlen*sz)); + } + bad_size: + cp_next(cp); + } + cp_check(cp, ')'); +} + +/* Parse GCC __attribute__((...)). */ +static void cp_decl_gccattribute(CPState *cp, CPDecl *decl) +{ + cp_next(cp); + cp_check(cp, '('); + cp_check(cp, '('); + while (cp->tok != ')') { + if (cp->tok == CTOK_IDENT) { + GCstr *attrstr = cp->str; + cp_next(cp); + switch (attrstr->hash) { + case H_(64a9208e,8ce14319): case H_(8e6331b2,95a282af): /* aligned */ + cp_decl_align(cp, decl); + break; + case H_(42eb47de,f0ede26c): case H_(29f48a09,cf383e0c): /* packed */ + decl->attr |= CTFP_PACKED; + break; + case H_(0a84eef6,8dfab04c): case H_(995cf92c,d5696591): /* mode */ + cp_decl_mode(cp, decl); + break; + case H_(0ab31997,2d5213fa): case H_(bf875611,200e9990): /* vector_size */ + { + CTSize vsize = cp_decl_sizeattr(cp); + if (vsize) CTF_INSERT(decl->attr, VSIZEP, lj_fls(vsize)); + } + break; +#if LJ_TARGET_X86 + case H_(5ad22db8,c689b848): case H_(439150fa,65ea78cb): /* regparm */ + CTF_INSERT(decl->fattr, REGPARM, cp_decl_sizeattr(cp)); + decl->fattr |= CTFP_CCONV; + break; + case H_(18fc0b98,7ff4c074): case H_(4e62abed,0a747424): /* cdecl */ + CTF_INSERT(decl->fattr, CCONV, CTCC_CDECL); + decl->fattr |= CTFP_CCONV; + break; + case H_(72b2e41b,494c5a44): case H_(f2356d59,f25fc9bd): /* thiscall */ + CTF_INSERT(decl->fattr, CCONV, CTCC_THISCALL); + decl->fattr |= CTFP_CCONV; + break; + case H_(0d0ffc42,ab746f88): case H_(21c54ba1,7f0ca7e3): /* fastcall */ + CTF_INSERT(decl->fattr, CCONV, CTCC_FASTCALL); + decl->fattr |= CTFP_CCONV; + break; + case H_(ef76b040,9412e06a): case H_(de56697b,c750e6e1): /* stdcall */ + CTF_INSERT(decl->fattr, CCONV, CTCC_STDCALL); + decl->fattr |= CTFP_CCONV; + break; + case H_(ea78b622,f234bd8e): case H_(252ffb06,8d50f34b): /* sseregparm */ + decl->fattr |= CTF_SSEREGPARM; + decl->fattr |= CTFP_CCONV; + break; +#endif + default: /* Skip all other attributes. */ + goto skip_attr; + } + } else if (cp->tok >= CTOK_FIRSTDECL) { /* For __attribute((const)) etc. */ + cp_next(cp); + skip_attr: + if (cp_opt(cp, '(')) { + while (cp->tok != ')' && cp->tok != CTOK_EOF) cp_next(cp); + cp_check(cp, ')'); + } + } else { + break; + } + if (!cp_opt(cp, ',')) break; + } + cp_check(cp, ')'); + cp_check(cp, ')'); +} + +/* Parse MSVC __declspec(...). */ +static void cp_decl_msvcattribute(CPState *cp, CPDecl *decl) +{ + cp_next(cp); + cp_check(cp, '('); + while (cp->tok == CTOK_IDENT) { + GCstr *attrstr = cp->str; + cp_next(cp); + switch (attrstr->hash) { + case H_(bc2395fa,98f267f8): /* align */ + cp_decl_align(cp, decl); + break; + default: /* Ignore all other attributes. */ + if (cp_opt(cp, '(')) { + while (cp->tok != ')' && cp->tok != CTOK_EOF) cp_next(cp); + cp_check(cp, ')'); + } + break; + } + } + cp_check(cp, ')'); +} + +/* Parse declaration attributes (and common qualifiers). */ +static void cp_decl_attributes(CPState *cp, CPDecl *decl) +{ + for (;;) { + switch (cp->tok) { + case CTOK_CONST: decl->attr |= CTF_CONST; break; + case CTOK_VOLATILE: decl->attr |= CTF_VOLATILE; break; + case CTOK_RESTRICT: break; /* Ignore. */ + case CTOK_EXTENSION: break; /* Ignore. */ + case CTOK_ATTRIBUTE: cp_decl_gccattribute(cp, decl); continue; + case CTOK_ASM: cp_decl_asm(cp, decl); continue; + case CTOK_DECLSPEC: cp_decl_msvcattribute(cp, decl); continue; + case CTOK_CCDECL: +#if LJ_TARGET_X86 + CTF_INSERT(decl->fattr, CCONV, cp->ct->size); + decl->fattr |= CTFP_CCONV; +#endif + break; + case CTOK_PTRSZ: +#if LJ_64 + CTF_INSERT(decl->attr, MSIZEP, cp->ct->size); +#endif + break; + default: return; + } + cp_next(cp); + } +} + +/* Parse struct/union/enum name. */ +static CTypeID cp_struct_name(CPState *cp, CPDecl *sdecl, CTInfo info) +{ + CTypeID sid; + CType *ct; + cp->tmask = CPNS_STRUCT; + cp_next(cp); + cp_decl_attributes(cp, sdecl); + cp->tmask = CPNS_DEFAULT; + if (cp->tok != '{') { + if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); + if (cp->val.id) { /* Name of existing struct/union/enum. */ + sid = cp->val.id; + ct = cp->ct; + if ((ct->info ^ info) & (CTMASK_NUM|CTF_UNION)) /* Wrong type. */ + cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(gco2str(gcref(ct->name)))); + } else { /* Create named, incomplete struct/union/enum. */ + if ((cp->mode & CPARSE_MODE_NOIMPLICIT)) + cp_errmsg(cp, 0, LJ_ERR_FFI_BADTAG, strdata(cp->str)); + sid = lj_ctype_new(cp->cts, &ct); + ct->info = info; + ct->size = CTSIZE_INVALID; + ctype_setname(ct, cp->str); + lj_ctype_addname(cp->cts, ct, sid); + } + cp_next(cp); + } else { /* Create anonymous, incomplete struct/union/enum. */ + sid = lj_ctype_new(cp->cts, &ct); + ct->info = info; + ct->size = CTSIZE_INVALID; + } + if (cp->tok == '{') { + if (ct->size != CTSIZE_INVALID || ct->sib) + cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(gco2str(gcref(ct->name)))); + ct->sib = 1; /* Indicate the type is currently being defined. */ + } + return sid; +} + +/* Determine field alignment. */ +static CTSize cp_field_align(CPState *cp, CType *ct, CTInfo info) +{ + CTSize align = ctype_align(info); + UNUSED(cp); UNUSED(ct); +#if (LJ_TARGET_X86 && !LJ_ABI_WIN) || (LJ_TARGET_ARM && __APPLE__) + /* The SYSV i386 and iOS ABIs limit alignment of non-vector fields to 2^2. */ + if (align > 2 && !(info & CTFP_ALIGNED)) { + if (ctype_isarray(info) && !(info & CTF_VECTOR)) { + do { + ct = ctype_rawchild(cp->cts, ct); + info = ct->info; + } while (ctype_isarray(info) && !(info & CTF_VECTOR)); + } + if (ctype_isnum(info) || ctype_isenum(info)) + align = 2; + } +#endif + return align; +} + +/* Layout struct/union fields. */ +static void cp_struct_layout(CPState *cp, CTypeID sid, CTInfo sattr) +{ + CTSize bofs = 0, bmaxofs = 0; /* Bit offset and max. bit offset. */ + CTSize maxalign = ctype_align(sattr); + CType *sct = ctype_get(cp->cts, sid); + CTInfo sinfo = sct->info; + CTypeID fieldid = sct->sib; + while (fieldid) { + CType *ct = ctype_get(cp->cts, fieldid); + CTInfo attr = ct->size; /* Field declaration attributes (temp.). */ + + if (ctype_isfield(ct->info) || + (ctype_isxattrib(ct->info, CTA_SUBTYPE) && attr)) { + CTSize align, amask; /* Alignment (pow2) and alignment mask (bits). */ + CTSize sz; + CTInfo info = lj_ctype_info(cp->cts, ctype_cid(ct->info), &sz); + CTSize bsz, csz = 8*sz; /* Field size and container size (in bits). */ + sinfo |= (info & (CTF_QUAL|CTF_VLA)); /* Merge pseudo-qualifiers. */ + + /* Check for size overflow and determine alignment. */ + if (sz >= 0x20000000u || bofs + csz < bofs || (info & CTF_VLA)) { + if (!(sz == CTSIZE_INVALID && ctype_isarray(info) && + !(sinfo & CTF_UNION))) + cp_err(cp, LJ_ERR_FFI_INVSIZE); + csz = sz = 0; /* Treat a[] and a[?] as zero-sized. */ + } + align = cp_field_align(cp, ct, info); + if (((attr|sattr) & CTFP_PACKED) || + ((attr & CTFP_ALIGNED) && ctype_align(attr) > align)) + align = ctype_align(attr); + if (cp->packstack[cp->curpack] < align) + align = cp->packstack[cp->curpack]; + if (align > maxalign) maxalign = align; + amask = (8u << align) - 1; + + bsz = ctype_bitcsz(ct->info); /* Bitfield size (temp.). */ + if (bsz == CTBSZ_FIELD || !ctype_isfield(ct->info)) { + bsz = csz; /* Regular fields or subtypes always fill the container. */ + bofs = (bofs + amask) & ~amask; /* Start new aligned field. */ + ct->size = (bofs >> 3); /* Store field offset. */ + } else { /* Bitfield. */ + if (bsz == 0 || (attr & CTFP_ALIGNED) || + (!((attr|sattr) & CTFP_PACKED) && (bofs & amask) + bsz > csz)) + bofs = (bofs + amask) & ~amask; /* Start new aligned field. */ + + /* Prefer regular field over bitfield. */ + if (bsz == csz && (bofs & amask) == 0) { + ct->info = CTINFO(CT_FIELD, ctype_cid(ct->info)); + ct->size = (bofs >> 3); /* Store field offset. */ + } else { + ct->info = CTINFO(CT_BITFIELD, + (info & (CTF_QUAL|CTF_UNSIGNED|CTF_BOOL)) + + (csz << (CTSHIFT_BITCSZ-3)) + (bsz << CTSHIFT_BITBSZ)); +#if LJ_BE + ct->info += ((csz - (bofs & (csz-1)) - bsz) << CTSHIFT_BITPOS); +#else + ct->info += ((bofs & (csz-1)) << CTSHIFT_BITPOS); +#endif + ct->size = ((bofs & ~(csz-1)) >> 3); /* Store container offset. */ + } + } + + /* Determine next offset or max. offset. */ + if ((sinfo & CTF_UNION)) { + if (bsz > bmaxofs) bmaxofs = bsz; + } else { + bofs += bsz; + } + } /* All other fields in the chain are already set up. */ + + fieldid = ct->sib; + } + + /* Complete struct/union. */ + sct->info = sinfo + CTALIGN(maxalign); + bofs = (sinfo & CTF_UNION) ? bmaxofs : bofs; + maxalign = (8u << maxalign) - 1; + sct->size = (((bofs + maxalign) & ~maxalign) >> 3); +} + +/* Parse struct/union declaration. */ +static CTypeID cp_decl_struct(CPState *cp, CPDecl *sdecl, CTInfo sinfo) +{ + CTypeID sid = cp_struct_name(cp, sdecl, sinfo); + if (cp_opt(cp, '{')) { /* Struct/union definition. */ + CTypeID lastid = sid; + int lastdecl = 0; + while (cp->tok != '}') { + CPDecl decl; + CPscl scl = cp_decl_spec(cp, &decl, CDF_STATIC); + decl.mode = scl ? CPARSE_MODE_DIRECT : + CPARSE_MODE_DIRECT|CPARSE_MODE_ABSTRACT|CPARSE_MODE_FIELD; + + for (;;) { + CTypeID ctypeid; + + if (lastdecl) cp_err_token(cp, '}'); + + /* Parse field declarator. */ + decl.bits = CTSIZE_INVALID; + cp_declarator(cp, &decl); + ctypeid = cp_decl_intern(cp, &decl); + + if ((scl & CDF_STATIC)) { /* Static constant in struct namespace. */ + CType *ct; + CTypeID fieldid = cp_decl_constinit(cp, &ct, ctypeid); + ctype_get(cp->cts, lastid)->sib = fieldid; + lastid = fieldid; + ctype_setname(ct, decl.name); + } else { + CTSize bsz = CTBSZ_FIELD; /* Temp. for layout phase. */ + CType *ct; + CTypeID fieldid = lj_ctype_new(cp->cts, &ct); /* Do this first. */ + CType *tct = ctype_raw(cp->cts, ctypeid); + + if (decl.bits == CTSIZE_INVALID) { /* Regular field. */ + if (ctype_isarray(tct->info) && tct->size == CTSIZE_INVALID) + lastdecl = 1; /* a[] or a[?] must be the last declared field. */ + + /* Accept transparent struct/union/enum. */ + if (!decl.name) { + if (!((ctype_isstruct(tct->info) && !(tct->info & CTF_VLA)) || + ctype_isenum(tct->info))) + cp_err_token(cp, CTOK_IDENT); + ct->info = CTINFO(CT_ATTRIB, CTATTRIB(CTA_SUBTYPE) + ctypeid); + ct->size = ctype_isstruct(tct->info) ? + (decl.attr|0x80000000u) : 0; /* For layout phase. */ + goto add_field; + } + } else { /* Bitfield. */ + bsz = decl.bits; + if (!ctype_isinteger_or_bool(tct->info) || + (bsz == 0 && decl.name) || 8*tct->size > CTBSZ_MAX || + bsz > ((tct->info & CTF_BOOL) ? 1 : 8*tct->size)) + cp_errmsg(cp, ':', LJ_ERR_BADVAL); + } + + /* Create temporary field for layout phase. */ + ct->info = CTINFO(CT_FIELD, ctypeid + (bsz << CTSHIFT_BITCSZ)); + ct->size = decl.attr; + if (decl.name) ctype_setname(ct, decl.name); + + add_field: + ctype_get(cp->cts, lastid)->sib = fieldid; + lastid = fieldid; + } + if (!cp_opt(cp, ',')) break; + cp_decl_reset(&decl); + } + cp_check(cp, ';'); + } + cp_check(cp, '}'); + ctype_get(cp->cts, lastid)->sib = 0; /* Drop sib = 1 for empty structs. */ + cp_decl_attributes(cp, sdecl); /* Layout phase needs postfix attributes. */ + cp_struct_layout(cp, sid, sdecl->attr); + } + return sid; +} + +/* Parse enum declaration. */ +static CTypeID cp_decl_enum(CPState *cp, CPDecl *sdecl) +{ + CTypeID eid = cp_struct_name(cp, sdecl, CTINFO(CT_ENUM, CTID_VOID)); + CTInfo einfo = CTINFO(CT_ENUM, CTALIGN(2) + CTID_UINT32); + CTSize esize = 4; /* Only 32 bit enums are supported. */ + if (cp_opt(cp, '{')) { /* Enum definition. */ + CPValue k; + CTypeID lastid = eid; + k.u32 = 0; + k.id = CTID_INT32; + do { + GCstr *name = cp->str; + if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); + if (cp->val.id) cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(name)); + cp_next(cp); + if (cp_opt(cp, '=')) { + cp_expr_kint(cp, &k); + if (k.id == CTID_UINT32) { + /* C99 says that enum constants are always (signed) integers. + ** But since unsigned constants like 0x80000000 are quite common, + ** those are left as uint32_t. + */ + if (k.i32 >= 0) k.id = CTID_INT32; + } else { + /* OTOH it's common practice and even mandated by some ABIs + ** that the enum type itself is unsigned, unless there are any + ** negative constants. + */ + k.id = CTID_INT32; + if (k.i32 < 0) einfo = CTINFO(CT_ENUM, CTALIGN(2) + CTID_INT32); + } + } + /* Add named enum constant. */ + { + CType *ct; + CTypeID constid = lj_ctype_new(cp->cts, &ct); + ctype_get(cp->cts, lastid)->sib = constid; + lastid = constid; + ctype_setname(ct, name); + ct->info = CTINFO(CT_CONSTVAL, CTF_CONST|k.id); + ct->size = k.u32++; + if (k.u32 == 0x80000000u) k.id = CTID_UINT32; + lj_ctype_addname(cp->cts, ct, constid); + } + if (!cp_opt(cp, ',')) break; + } while (cp->tok != '}'); /* Trailing ',' is ok. */ + cp_check(cp, '}'); + /* Complete enum. */ + ctype_get(cp->cts, eid)->info = einfo; + ctype_get(cp->cts, eid)->size = esize; + } + return eid; +} + +/* Parse declaration specifiers. */ +static CPscl cp_decl_spec(CPState *cp, CPDecl *decl, CPscl scl) +{ + uint32_t cds = 0, sz = 0; + CTypeID tdef = 0; + + decl->cp = cp; + decl->mode = cp->mode; + decl->name = NULL; + decl->redir = NULL; + decl->attr = 0; + decl->fattr = 0; + decl->pos = decl->top = 0; + decl->stack[0].next = 0; + + for (;;) { /* Parse basic types. */ + cp_decl_attributes(cp, decl); + if (cp->tok >= CTOK_FIRSTDECL && cp->tok <= CTOK_LASTDECLFLAG) { + uint32_t cbit; + if (cp->ct->size) { + if (sz) goto end_decl; + sz = cp->ct->size; + } + cbit = (1u << (cp->tok - CTOK_FIRSTDECL)); + cds = cds | cbit | ((cbit & cds & CDF_LONG) << 1); + if (cp->tok >= CTOK_FIRSTSCL) { + if (!(scl & cbit)) cp_errmsg(cp, cp->tok, LJ_ERR_FFI_BADSCL); + } else if (tdef) { + goto end_decl; + } + cp_next(cp); + continue; + } + if (sz || tdef || + (cds & (CDF_SHORT|CDF_LONG|CDF_SIGNED|CDF_UNSIGNED|CDF_COMPLEX))) + break; + switch (cp->tok) { + case CTOK_STRUCT: + tdef = cp_decl_struct(cp, decl, CTINFO(CT_STRUCT, 0)); + continue; + case CTOK_UNION: + tdef = cp_decl_struct(cp, decl, CTINFO(CT_STRUCT, CTF_UNION)); + continue; + case CTOK_ENUM: + tdef = cp_decl_enum(cp, decl); + continue; + case CTOK_IDENT: + if (ctype_istypedef(cp->ct->info)) { + tdef = ctype_cid(cp->ct->info); /* Get typedef. */ + cp_next(cp); + continue; + } + break; + case '$': + tdef = cp->val.id; + cp_next(cp); + continue; + default: + break; + } + break; + } +end_decl: + + if ((cds & CDF_COMPLEX)) /* Use predefined complex types. */ + tdef = sz == 4 ? CTID_COMPLEX_FLOAT : CTID_COMPLEX_DOUBLE; + + if (tdef) { + cp_push_type(decl, tdef); + } else if ((cds & CDF_VOID)) { + cp_push(decl, CTINFO(CT_VOID, (decl->attr & CTF_QUAL)), CTSIZE_INVALID); + decl->attr &= ~CTF_QUAL; + } else { + /* Determine type info and size. */ + CTInfo info = CTINFO(CT_NUM, (cds & CDF_UNSIGNED) ? CTF_UNSIGNED : 0); + if ((cds & CDF_BOOL)) { + if ((cds & ~(CDF_SCL|CDF_BOOL|CDF_INT|CDF_SIGNED|CDF_UNSIGNED))) + cp_errmsg(cp, 0, LJ_ERR_FFI_INVTYPE); + info |= CTF_BOOL; + if (!(cds & CDF_SIGNED)) info |= CTF_UNSIGNED; + if (!sz) { + sz = 1; + } + } else if ((cds & CDF_FP)) { + info = CTINFO(CT_NUM, CTF_FP); + if ((cds & CDF_LONG)) sz = sizeof(long double); + } else if ((cds & CDF_CHAR)) { + if ((cds & (CDF_CHAR|CDF_SIGNED|CDF_UNSIGNED)) == CDF_CHAR) + info |= CTF_UCHAR; /* Handle platforms where char is unsigned. */ + } else if ((cds & CDF_SHORT)) { + sz = sizeof(short); + } else if ((cds & CDF_LONGLONG)) { + sz = 8; + } else if ((cds & CDF_LONG)) { + info |= CTF_LONG; + sz = sizeof(long); + } else if (!sz) { + if (!(cds & (CDF_SIGNED|CDF_UNSIGNED))) + cp_errmsg(cp, cp->tok, LJ_ERR_FFI_DECLSPEC); + sz = sizeof(int); + } + lua_assert(sz != 0); + info += CTALIGN(lj_fls(sz)); /* Use natural alignment. */ + info += (decl->attr & CTF_QUAL); /* Merge qualifiers. */ + cp_push(decl, info, sz); + decl->attr &= ~CTF_QUAL; + } + decl->specpos = decl->pos; + decl->specattr = decl->attr; + decl->specfattr = decl->fattr; + return (cds & CDF_SCL); /* Return storage class. */ +} + +/* Parse array declaration. */ +static void cp_decl_array(CPState *cp, CPDecl *decl) +{ + CTInfo info = CTINFO(CT_ARRAY, 0); + CTSize nelem = CTSIZE_INVALID; /* Default size for a[] or a[?]. */ + cp_decl_attributes(cp, decl); + if (cp_opt(cp, '?')) + info |= CTF_VLA; /* Create variable-length array a[?]. */ + else if (cp->tok != ']') + nelem = cp_expr_ksize(cp); + cp_check(cp, ']'); + cp_add(decl, info, nelem); +} + +/* Parse function declaration. */ +static void cp_decl_func(CPState *cp, CPDecl *fdecl) +{ + CTSize nargs = 0; + CTInfo info = CTINFO(CT_FUNC, 0); + CTypeID lastid = 0, anchor = 0; + if (cp->tok != ')') { + do { + CPDecl decl; + CTypeID ctypeid, fieldid; + CType *ct; + if (cp_opt(cp, '.')) { /* Vararg function. */ + cp_check(cp, '.'); /* Workaround for the minimalistic lexer. */ + cp_check(cp, '.'); + info |= CTF_VARARG; + break; + } + cp_decl_spec(cp, &decl, CDF_REGISTER); + decl.mode = CPARSE_MODE_DIRECT|CPARSE_MODE_ABSTRACT; + cp_declarator(cp, &decl); + ctypeid = cp_decl_intern(cp, &decl); + ct = ctype_raw(cp->cts, ctypeid); + if (ctype_isvoid(ct->info)) + break; + else if (ctype_isrefarray(ct->info)) + ctypeid = lj_ctype_intern(cp->cts, + CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ct->info)), CTSIZE_PTR); + else if (ctype_isfunc(ct->info)) + ctypeid = lj_ctype_intern(cp->cts, + CTINFO(CT_PTR, CTALIGN_PTR|ctypeid), CTSIZE_PTR); + /* Add new parameter. */ + fieldid = lj_ctype_new(cp->cts, &ct); + if (anchor) + ctype_get(cp->cts, lastid)->sib = fieldid; + else + anchor = fieldid; + lastid = fieldid; + if (decl.name) ctype_setname(ct, decl.name); + ct->info = CTINFO(CT_FIELD, ctypeid); + ct->size = nargs++; + } while (cp_opt(cp, ',')); + } + cp_check(cp, ')'); + if (cp_opt(cp, '{')) { /* Skip function definition. */ + int level = 1; + cp->mode |= CPARSE_MODE_SKIP; + for (;;) { + if (cp->tok == '{') level++; + else if (cp->tok == '}' && --level == 0) break; + else if (cp->tok == CTOK_EOF) cp_err_token(cp, '}'); + cp_next(cp); + } + cp->mode &= ~CPARSE_MODE_SKIP; + cp->tok = ';'; /* Ok for cp_decl_multi(), error in cp_decl_single(). */ + } + info |= (fdecl->fattr & ~CTMASK_CID); + fdecl->fattr = 0; + fdecl->stack[cp_add(fdecl, info, nargs)].sib = anchor; +} + +/* Parse declarator. */ +static void cp_declarator(CPState *cp, CPDecl *decl) +{ + if (++cp->depth > CPARSE_MAX_DECLDEPTH) cp_err(cp, LJ_ERR_XLEVELS); + + for (;;) { /* Head of declarator. */ + if (cp_opt(cp, '*')) { /* Pointer. */ + CTSize sz; + CTInfo info; + cp_decl_attributes(cp, decl); + sz = CTSIZE_PTR; + info = CTINFO(CT_PTR, CTALIGN_PTR); +#if LJ_64 + if (ctype_msizeP(decl->attr) == 4) { + sz = 4; + info = CTINFO(CT_PTR, CTALIGN(2)); + } +#endif + info += (decl->attr & (CTF_QUAL|CTF_REF)); + decl->attr &= ~(CTF_QUAL|(CTMASK_MSIZEP<attr &= ~(CTF_QUAL|(CTMASK_MSIZEP<mode & CPARSE_MODE_ABSTRACT) && + (cp->tok == ')' || cp_istypedecl(cp))) goto func_decl; + pos = decl->pos; + cp_declarator(cp, decl); + cp_check(cp, ')'); + decl->pos = pos; + } else if (cp->tok == CTOK_IDENT) { /* Direct declarator. */ + if (!(decl->mode & CPARSE_MODE_DIRECT)) cp_err_token(cp, CTOK_EOF); + decl->name = cp->str; + decl->nameid = cp->val.id; + cp_next(cp); + } else { /* Abstract declarator. */ + if (!(decl->mode & CPARSE_MODE_ABSTRACT)) cp_err_token(cp, CTOK_IDENT); + } + + for (;;) { /* Tail of declarator. */ + if (cp_opt(cp, '[')) { /* Array. */ + cp_decl_array(cp, decl); + } else if (cp_opt(cp, '(')) { /* Function. */ + func_decl: + cp_decl_func(cp, decl); + } else { + break; + } + } + + if ((decl->mode & CPARSE_MODE_FIELD) && cp_opt(cp, ':')) /* Field width. */ + decl->bits = cp_expr_ksize(cp); + + /* Process postfix attributes. */ + cp_decl_attributes(cp, decl); + cp_push_attributes(decl); + + cp->depth--; +} + +/* Parse an abstract type declaration and return it's C type ID. */ +static CTypeID cp_decl_abstract(CPState *cp) +{ + CPDecl decl; + cp_decl_spec(cp, &decl, 0); + decl.mode = CPARSE_MODE_ABSTRACT; + cp_declarator(cp, &decl); + return cp_decl_intern(cp, &decl); +} + +/* Handle pragmas. */ +static void cp_pragma(CPState *cp, BCLine pragmaline) +{ + cp_next(cp); + if (cp->tok == CTOK_IDENT && + cp->str->hash == H_(e79b999f,42ca3e85)) { /* pack */ + cp_next(cp); + cp_check(cp, '('); + if (cp->tok == CTOK_IDENT) { + if (cp->str->hash == H_(738e923c,a1b65954)) { /* push */ + if (cp->curpack < CPARSE_MAX_PACKSTACK) { + cp->packstack[cp->curpack+1] = cp->packstack[cp->curpack]; + cp->curpack++; + } + } else if (cp->str->hash == H_(6c71cf27,6c71cf27)) { /* pop */ + if (cp->curpack > 0) cp->curpack--; + } else { + cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); + } + cp_next(cp); + if (!cp_opt(cp, ',')) goto end_pack; + } + if (cp->tok == CTOK_INTEGER) { + cp->packstack[cp->curpack] = cp->val.u32 ? lj_fls(cp->val.u32) : 0; + cp_next(cp); + } else { + cp->packstack[cp->curpack] = 255; + } + end_pack: + cp_check(cp, ')'); + } else { /* Ignore all other pragmas. */ + while (cp->tok != CTOK_EOF && cp->linenumber == pragmaline) + cp_next(cp); + } +} + +/* Parse multiple C declarations of types or extern identifiers. */ +static void cp_decl_multi(CPState *cp) +{ + int first = 1; + while (cp->tok != CTOK_EOF) { + CPDecl decl; + CPscl scl; + if (cp_opt(cp, ';')) { /* Skip empty statements. */ + first = 0; + continue; + } + if (cp->tok == '#') { /* Workaround, since we have no preprocessor, yet. */ + BCLine pragmaline = cp->linenumber; + if (!(cp_next(cp) == CTOK_IDENT && + cp->str->hash == H_(f5e6b4f8,1d509107))) /* pragma */ + cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); + cp_pragma(cp, pragmaline); + continue; + } + scl = cp_decl_spec(cp, &decl, CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC); + if ((cp->tok == ';' || cp->tok == CTOK_EOF) && + ctype_istypedef(decl.stack[0].info)) { + CTInfo info = ctype_rawchild(cp->cts, &decl.stack[0])->info; + if (ctype_isstruct(info) || ctype_isenum(info)) + goto decl_end; /* Accept empty declaration of struct/union/enum. */ + } + for (;;) { + CTypeID ctypeid; + cp_declarator(cp, &decl); + ctypeid = cp_decl_intern(cp, &decl); + if (decl.name && !decl.nameid) { /* NYI: redeclarations are ignored. */ + CType *ct; + CTypeID id; + if ((scl & CDF_TYPEDEF)) { /* Create new typedef. */ + id = lj_ctype_new(cp->cts, &ct); + ct->info = CTINFO(CT_TYPEDEF, ctypeid); + goto noredir; + } else if (ctype_isfunc(ctype_get(cp->cts, ctypeid)->info)) { + /* Treat both static and extern function declarations as extern. */ + ct = ctype_get(cp->cts, ctypeid); + /* We always get new anonymous functions (typedefs are copied). */ + lua_assert(gcref(ct->name) == NULL); + id = ctypeid; /* Just name it. */ + } else if ((scl & CDF_STATIC)) { /* Accept static constants. */ + id = cp_decl_constinit(cp, &ct, ctypeid); + goto noredir; + } else { /* External references have extern or no storage class. */ + id = lj_ctype_new(cp->cts, &ct); + ct->info = CTINFO(CT_EXTERN, ctypeid); + } + if (decl.redir) { /* Add attribute for redirected symbol name. */ + CType *cta; + CTypeID aid = lj_ctype_new(cp->cts, &cta); + ct = ctype_get(cp->cts, id); /* Table may have been reallocated. */ + cta->info = CTINFO(CT_ATTRIB, CTATTRIB(CTA_REDIR)); + cta->sib = ct->sib; + ct->sib = aid; + ctype_setname(cta, decl.redir); + } + noredir: + ctype_setname(ct, decl.name); + lj_ctype_addname(cp->cts, ct, id); + } + if (!cp_opt(cp, ',')) break; + cp_decl_reset(&decl); + } + decl_end: + if (cp->tok == CTOK_EOF && first) break; /* May omit ';' for 1 decl. */ + first = 0; + cp_check(cp, ';'); + } +} + +/* Parse a single C type declaration. */ +static void cp_decl_single(CPState *cp) +{ + CPDecl decl; + cp_decl_spec(cp, &decl, 0); + cp_declarator(cp, &decl); + cp->val.id = cp_decl_intern(cp, &decl); + if (cp->tok != CTOK_EOF) cp_err_token(cp, CTOK_EOF); +} + +#undef H_ + +/* ------------------------------------------------------------------------ */ + +/* Protected callback for C parser. */ +static TValue *cpcparser(lua_State *L, lua_CFunction dummy, void *ud) +{ + CPState *cp = (CPState *)ud; + UNUSED(dummy); + cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ + cp_init(cp); + if ((cp->mode & CPARSE_MODE_MULTI)) + cp_decl_multi(cp); + else + cp_decl_single(cp); + if (cp->param && cp->param != cp->L->top) + cp_err(cp, LJ_ERR_FFI_NUMPARAM); + lua_assert(cp->depth == 0); + return NULL; +} + +/* C parser. */ +int lj_cparse(CPState *cp) +{ + LJ_CTYPE_SAVE(cp->cts); + int errcode = lj_vm_cpcall(cp->L, NULL, cp, cpcparser); + if (errcode) + LJ_CTYPE_RESTORE(cp->cts); + cp_cleanup(cp); + return errcode; +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_cparse.h b/src/3rd party/luajit-2.0/src/lj_cparse.h new file mode 100644 index 00000000000..441580de6fe --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_cparse.h @@ -0,0 +1,65 @@ +/* +** C declaration parser. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CPARSE_H +#define _LJ_CPARSE_H + +#include "lj_obj.h" +#include "lj_ctype.h" + +#if LJ_HASFFI + +/* C parser limits. */ +#define CPARSE_MAX_BUF 32768 /* Max. token buffer size. */ +#define CPARSE_MAX_DECLSTACK 100 /* Max. declaration stack depth. */ +#define CPARSE_MAX_DECLDEPTH 20 /* Max. recursive declaration depth. */ +#define CPARSE_MAX_PACKSTACK 7 /* Max. pack pragma stack depth. */ + +/* Flags for C parser mode. */ +#define CPARSE_MODE_MULTI 1 /* Process multiple declarations. */ +#define CPARSE_MODE_ABSTRACT 2 /* Accept abstract declarators. */ +#define CPARSE_MODE_DIRECT 4 /* Accept direct declarators. */ +#define CPARSE_MODE_FIELD 8 /* Accept field width in bits, too. */ +#define CPARSE_MODE_NOIMPLICIT 16 /* Reject implicit declarations. */ +#define CPARSE_MODE_SKIP 32 /* Skip definitions, ignore errors. */ + +typedef int CPChar; /* C parser character. Unsigned ext. from char. */ +typedef int CPToken; /* C parser token. */ + +/* C parser internal value representation. */ +typedef struct CPValue { + union { + int32_t i32; /* Value for CTID_INT32. */ + uint32_t u32; /* Value for CTID_UINT32. */ + }; + CTypeID id; /* C Type ID of the value. */ +} CPValue; + +/* C parser state. */ +typedef struct CPState { + CPChar c; /* Current character. */ + CPToken tok; /* Current token. */ + CPValue val; /* Token value. */ + GCstr *str; /* Interned string of identifier/keyword. */ + CType *ct; /* C type table entry. */ + const char *p; /* Current position in input buffer. */ + SBuf sb; /* String buffer for tokens. */ + lua_State *L; /* Lua state. */ + CTState *cts; /* C type state. */ + TValue *param; /* C type parameters. */ + const char *srcname; /* Current source name. */ + BCLine linenumber; /* Input line counter. */ + int depth; /* Recursive declaration depth. */ + uint32_t tmask; /* Type mask for next identifier. */ + uint32_t mode; /* C parser mode. */ + uint8_t packstack[CPARSE_MAX_PACKSTACK]; /* Stack for pack pragmas. */ + uint8_t curpack; /* Current position in pack pragma stack. */ +} CPState; + +LJ_FUNC int lj_cparse(CPState *cp); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.c b/src/3rd party/luajit-2.0/src/lj_crecord.c new file mode 100644 index 00000000000..a46665e9af0 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_crecord.c @@ -0,0 +1,1671 @@ +/* +** Trace recorder for C data operations. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_ffrecord_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT && LJ_HASFFI + +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_frame.h" +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lj_cparse.h" +#include "lj_cconv.h" +#include "lj_clib.h" +#include "lj_ccall.h" +#include "lj_ff.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_record.h" +#include "lj_ffrecord.h" +#include "lj_snap.h" +#include "lj_crecord.h" +#include "lj_dispatch.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +#define emitconv(a, dt, st, flags) \ + emitir(IRT(IR_CONV, (dt)), (a), (st)|((dt) << 5)|(flags)) + +/* -- C type checks ------------------------------------------------------- */ + +static GCcdata *argv2cdata(jit_State *J, TRef tr, cTValue *o) +{ + GCcdata *cd; + TRef trtypeid; + if (!tref_iscdata(tr)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + cd = cdataV(o); + /* Specialize to the CTypeID. */ + trtypeid = emitir(IRT(IR_FLOAD, IRT_U16), tr, IRFL_CDATA_CTYPEID); + emitir(IRTG(IR_EQ, IRT_INT), trtypeid, lj_ir_kint(J, (int32_t)cd->ctypeid)); + return cd; +} + +/* Specialize to the CTypeID held by a cdata constructor. */ +static CTypeID crec_constructor(jit_State *J, GCcdata *cd, TRef tr) +{ + CTypeID id; + lua_assert(tref_iscdata(tr) && cd->ctypeid == CTID_CTYPEID); + id = *(CTypeID *)cdataptr(cd); + tr = emitir(IRT(IR_FLOAD, IRT_INT), tr, IRFL_CDATA_INT); + emitir(IRTG(IR_EQ, IRT_INT), tr, lj_ir_kint(J, (int32_t)id)); + return id; +} + +static CTypeID argv2ctype(jit_State *J, TRef tr, cTValue *o) +{ + if (tref_isstr(tr)) { + GCstr *s = strV(o); + CPState cp; + CTypeID oldtop; + /* Specialize to the string containing the C type declaration. */ + emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, s)); + cp.L = J->L; + cp.cts = ctype_ctsG(J2G(J)); + oldtop = cp.cts->top; + cp.srcname = strdata(s); + cp.p = strdata(s); + cp.param = NULL; + cp.mode = CPARSE_MODE_ABSTRACT|CPARSE_MODE_NOIMPLICIT; + if (lj_cparse(&cp) || cp.cts->top > oldtop) /* Avoid new struct defs. */ + lj_trace_err(J, LJ_TRERR_BADTYPE); + return cp.val.id; + } else { + GCcdata *cd = argv2cdata(J, tr, o); + return cd->ctypeid == CTID_CTYPEID ? crec_constructor(J, cd, tr) : + cd->ctypeid; + } +} + +/* Convert CType to IRType (if possible). */ +static IRType crec_ct2irt(CTState *cts, CType *ct) +{ + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + if (LJ_LIKELY(ctype_isnum(ct->info))) { + if ((ct->info & CTF_FP)) { + if (ct->size == sizeof(double)) + return IRT_NUM; + else if (ct->size == sizeof(float)) + return IRT_FLOAT; + } else { + uint32_t b = lj_fls(ct->size); + if (b <= 3) + return IRT_I8 + 2*b + ((ct->info & CTF_UNSIGNED) ? 1 : 0); + } + } else if (ctype_isptr(ct->info)) { + return (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; + } else if (ctype_iscomplex(ct->info)) { + if (ct->size == 2*sizeof(double)) + return IRT_NUM; + else if (ct->size == 2*sizeof(float)) + return IRT_FLOAT; + } + return IRT_CDATA; +} + +/* -- Optimized memory fill and copy -------------------------------------- */ + +/* Maximum length and unroll of inlined copy/fill. */ +#define CREC_COPY_MAXUNROLL 16 +#define CREC_COPY_MAXLEN 128 + +#define CREC_FILL_MAXUNROLL 16 + +/* Number of windowed registers used for optimized memory copy. */ +#if LJ_TARGET_X86 +#define CREC_COPY_REGWIN 2 +#elif LJ_TARGET_PPC || LJ_TARGET_MIPS +#define CREC_COPY_REGWIN 8 +#else +#define CREC_COPY_REGWIN 4 +#endif + +/* List of memory offsets for copy/fill. */ +typedef struct CRecMemList { + CTSize ofs; /* Offset in bytes. */ + IRType tp; /* Type of load/store. */ + TRef trofs; /* TRef of interned offset. */ + TRef trval; /* TRef of load value. */ +} CRecMemList; + +/* Generate copy list for element-wise struct copy. */ +static MSize crec_copy_struct(CRecMemList *ml, CTState *cts, CType *ct) +{ + CTypeID fid = ct->sib; + MSize mlp = 0; + while (fid) { + CType *df = ctype_get(cts, fid); + fid = df->sib; + if (ctype_isfield(df->info)) { + CType *cct; + IRType tp; + if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ + cct = ctype_rawchild(cts, df); /* Field type. */ + tp = crec_ct2irt(cts, cct); + if (tp == IRT_CDATA) return 0; /* NYI: aggregates. */ + if (mlp >= CREC_COPY_MAXUNROLL) return 0; + ml[mlp].ofs = df->size; + ml[mlp].tp = tp; + mlp++; + if (ctype_iscomplex(cct->info)) { + if (mlp >= CREC_COPY_MAXUNROLL) return 0; + ml[mlp].ofs = df->size + (cct->size >> 1); + ml[mlp].tp = tp; + mlp++; + } + } else if (!ctype_isconstval(df->info)) { + /* NYI: bitfields and sub-structures. */ + return 0; + } + } + return mlp; +} + +/* Generate unrolled copy list, from highest to lowest step size/alignment. */ +static MSize crec_copy_unroll(CRecMemList *ml, CTSize len, CTSize step, + IRType tp) +{ + CTSize ofs = 0; + MSize mlp = 0; + if (tp == IRT_CDATA) tp = IRT_U8 + 2*lj_fls(step); + do { + while (ofs + step <= len) { + if (mlp >= CREC_COPY_MAXUNROLL) return 0; + ml[mlp].ofs = ofs; + ml[mlp].tp = tp; + mlp++; + ofs += step; + } + step >>= 1; + tp -= 2; + } while (ofs < len); + return mlp; +} + +/* +** Emit copy list with windowed loads/stores. +** LJ_TARGET_UNALIGNED: may emit unaligned loads/stores (not marked as such). +*/ +static void crec_copy_emit(jit_State *J, CRecMemList *ml, MSize mlp, + TRef trdst, TRef trsrc) +{ + MSize i, j, rwin = 0; + for (i = 0, j = 0; i < mlp; ) { + TRef trofs = lj_ir_kintp(J, ml[i].ofs); + TRef trsptr = emitir(IRT(IR_ADD, IRT_PTR), trsrc, trofs); + ml[i].trval = emitir(IRT(IR_XLOAD, ml[i].tp), trsptr, 0); + ml[i].trofs = trofs; + i++; + rwin += (LJ_SOFTFP && ml[i].tp == IRT_NUM) ? 2 : 1; + if (rwin >= CREC_COPY_REGWIN || i >= mlp) { /* Flush buffered stores. */ + rwin = 0; + for ( ; j < i; j++) { + TRef trdptr = emitir(IRT(IR_ADD, IRT_PTR), trdst, ml[j].trofs); + emitir(IRT(IR_XSTORE, ml[j].tp), trdptr, ml[j].trval); + } + } + } +} + +/* Optimized memory copy. */ +static void crec_copy(jit_State *J, TRef trdst, TRef trsrc, TRef trlen, + CType *ct) +{ + if (tref_isk(trlen)) { /* Length must be constant. */ + CRecMemList ml[CREC_COPY_MAXUNROLL]; + MSize mlp = 0; + CTSize step = 1, len = (CTSize)IR(tref_ref(trlen))->i; + IRType tp = IRT_CDATA; + int needxbar = 0; + if (len == 0) return; /* Shortcut. */ + if (len > CREC_COPY_MAXLEN) goto fallback; + if (ct) { + CTState *cts = ctype_ctsG(J2G(J)); + lua_assert(ctype_isarray(ct->info) || ctype_isstruct(ct->info)); + if (ctype_isarray(ct->info)) { + CType *cct = ctype_rawchild(cts, ct); + tp = crec_ct2irt(cts, cct); + if (tp == IRT_CDATA) goto rawcopy; + step = lj_ir_type_size[tp]; + lua_assert((len & (step-1)) == 0); + } else if ((ct->info & CTF_UNION)) { + step = (1u << ctype_align(ct->info)); + goto rawcopy; + } else { + mlp = crec_copy_struct(ml, cts, ct); + goto emitcopy; + } + } else { + rawcopy: + needxbar = 1; + if (LJ_TARGET_UNALIGNED || step >= CTSIZE_PTR) + step = CTSIZE_PTR; + } + mlp = crec_copy_unroll(ml, len, step, tp); + emitcopy: + if (mlp) { + crec_copy_emit(J, ml, mlp, trdst, trsrc); + if (needxbar) + emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); + return; + } + } +fallback: + /* Call memcpy. Always needs a barrier to disable alias analysis. */ + lj_ir_call(J, IRCALL_memcpy, trdst, trsrc, trlen); + emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); +} + +/* Generate unrolled fill list, from highest to lowest step size/alignment. */ +static MSize crec_fill_unroll(CRecMemList *ml, CTSize len, CTSize step) +{ + CTSize ofs = 0; + MSize mlp = 0; + IRType tp = IRT_U8 + 2*lj_fls(step); + do { + while (ofs + step <= len) { + if (mlp >= CREC_COPY_MAXUNROLL) return 0; + ml[mlp].ofs = ofs; + ml[mlp].tp = tp; + mlp++; + ofs += step; + } + step >>= 1; + tp -= 2; + } while (ofs < len); + return mlp; +} + +/* +** Emit stores for fill list. +** LJ_TARGET_UNALIGNED: may emit unaligned stores (not marked as such). +*/ +static void crec_fill_emit(jit_State *J, CRecMemList *ml, MSize mlp, + TRef trdst, TRef trfill) +{ + MSize i; + for (i = 0; i < mlp; i++) { + TRef trofs = lj_ir_kintp(J, ml[i].ofs); + TRef trdptr = emitir(IRT(IR_ADD, IRT_PTR), trdst, trofs); + emitir(IRT(IR_XSTORE, ml[i].tp), trdptr, trfill); + } +} + +/* Optimized memory fill. */ +static void crec_fill(jit_State *J, TRef trdst, TRef trlen, TRef trfill, + CTSize step) +{ + if (tref_isk(trlen)) { /* Length must be constant. */ + CRecMemList ml[CREC_FILL_MAXUNROLL]; + MSize mlp; + CTSize len = (CTSize)IR(tref_ref(trlen))->i; + if (len == 0) return; /* Shortcut. */ + if (LJ_TARGET_UNALIGNED || step >= CTSIZE_PTR) + step = CTSIZE_PTR; + if (step * CREC_FILL_MAXUNROLL < len) goto fallback; + mlp = crec_fill_unroll(ml, len, step); + if (!mlp) goto fallback; + if (tref_isk(trfill) || ml[0].tp != IRT_U8) + trfill = emitconv(trfill, IRT_INT, IRT_U8, 0); + if (ml[0].tp != IRT_U8) { /* Scatter U8 to U16/U32/U64. */ + if (CTSIZE_PTR == 8 && ml[0].tp == IRT_U64) { + if (tref_isk(trfill)) /* Pointless on x64 with zero-extended regs. */ + trfill = emitconv(trfill, IRT_U64, IRT_U32, 0); + trfill = emitir(IRT(IR_MUL, IRT_U64), trfill, + lj_ir_kint64(J, U64x(01010101,01010101))); + } else { + trfill = emitir(IRTI(IR_MUL), trfill, + lj_ir_kint(J, ml[0].tp == IRT_U16 ? 0x0101 : 0x01010101)); + } + } + crec_fill_emit(J, ml, mlp, trdst, trfill); + } else { +fallback: + /* Call memset. Always needs a barrier to disable alias analysis. */ + lj_ir_call(J, IRCALL_memset, trdst, trfill, trlen); /* Note: arg order! */ + } + emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); +} + +/* -- Convert C type to C type -------------------------------------------- */ + +/* +** This code mirrors the code in lj_cconv.c. It performs the same steps +** for the trace recorder that lj_cconv.c does for the interpreter. +** +** One major difference is that we can get away with much fewer checks +** here. E.g. checks for casts, constness or correct types can often be +** omitted, even if they might fail. The interpreter subsequently throws +** an error, which aborts the trace. +** +** All operations are specialized to their C types, so the on-trace +** outcome must be the same as the outcome in the interpreter. If the +** interpreter doesn't throw an error, then the trace is correct, too. +** Care must be taken not to generate invalid (temporary) IR or to +** trigger asserts. +*/ + +/* Determine whether a passed number or cdata number is non-zero. */ +static int crec_isnonzero(CType *s, void *p) +{ + if (p == (void *)0) + return 0; + if (p == (void *)1) + return 1; + if ((s->info & CTF_FP)) { + if (s->size == sizeof(float)) + return (*(float *)p != 0); + else + return (*(double *)p != 0); + } else { + if (s->size == 1) + return (*(uint8_t *)p != 0); + else if (s->size == 2) + return (*(uint16_t *)p != 0); + else if (s->size == 4) + return (*(uint32_t *)p != 0); + else + return (*(uint64_t *)p != 0); + } +} + +static TRef crec_ct_ct(jit_State *J, CType *d, CType *s, TRef dp, TRef sp, + void *svisnz) +{ + IRType dt = crec_ct2irt(ctype_ctsG(J2G(J)), d); + IRType st = crec_ct2irt(ctype_ctsG(J2G(J)), s); + CTSize dsize = d->size, ssize = s->size; + CTInfo dinfo = d->info, sinfo = s->info; + + if (ctype_type(dinfo) > CT_MAYCONVERT || ctype_type(sinfo) > CT_MAYCONVERT) + goto err_conv; + + /* + ** Note: Unlike lj_cconv_ct_ct(), sp holds the _value_ of pointers and + ** numbers up to 8 bytes. Otherwise sp holds a pointer. + */ + + switch (cconv_idx2(dinfo, sinfo)) { + /* Destination is a bool. */ + case CCX(B, B): + goto xstore; /* Source operand is already normalized. */ + case CCX(B, I): + case CCX(B, F): + if (st != IRT_CDATA) { + /* Specialize to the result of a comparison against 0. */ + TRef zero = (st == IRT_NUM || st == IRT_FLOAT) ? lj_ir_knum(J, 0) : + (st == IRT_I64 || st == IRT_U64) ? lj_ir_kint64(J, 0) : + lj_ir_kint(J, 0); + int isnz = crec_isnonzero(s, svisnz); + emitir(IRTG(isnz ? IR_NE : IR_EQ, st), sp, zero); + sp = lj_ir_kint(J, isnz); + goto xstore; + } + goto err_nyi; + + /* Destination is an integer. */ + case CCX(I, B): + case CCX(I, I): + conv_I_I: + if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; + /* Extend 32 to 64 bit integer. */ + if (dsize == 8 && ssize < 8 && !(LJ_64 && (sinfo & CTF_UNSIGNED))) + sp = emitconv(sp, dt, ssize < 4 ? IRT_INT : st, + (sinfo & CTF_UNSIGNED) ? 0 : IRCONV_SEXT); + else if (dsize < 8 && ssize == 8) /* Truncate from 64 bit integer. */ + sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, 0); + else if (st == IRT_INT) + sp = lj_opt_narrow_toint(J, sp); + xstore: + if (dt == IRT_I64 || dt == IRT_U64) lj_needsplit(J); + if (dp == 0) return sp; + emitir(IRT(IR_XSTORE, dt), dp, sp); + break; + case CCX(I, C): + sp = emitir(IRT(IR_XLOAD, st), sp, 0); /* Load re. */ + /* fallthrough */ + case CCX(I, F): + if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; + sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, IRCONV_TRUNC|IRCONV_ANY); + goto xstore; + case CCX(I, P): + case CCX(I, A): + sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); + ssize = CTSIZE_PTR; + st = IRT_UINTP; + if (((dsize ^ ssize) & 8) == 0) { /* Must insert no-op type conversion. */ + sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, IRT_PTR, 0); + goto xstore; + } + goto conv_I_I; + + /* Destination is a floating-point number. */ + case CCX(F, B): + case CCX(F, I): + conv_F_I: + if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; + sp = emitconv(sp, dt, ssize < 4 ? IRT_INT : st, 0); + goto xstore; + case CCX(F, C): + sp = emitir(IRT(IR_XLOAD, st), sp, 0); /* Load re. */ + /* fallthrough */ + case CCX(F, F): + conv_F_F: + if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; + if (dt != st) sp = emitconv(sp, dt, st, 0); + goto xstore; + + /* Destination is a complex number. */ + case CCX(C, I): + case CCX(C, F): + { /* Clear im. */ + TRef ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, (dsize >> 1))); + emitir(IRT(IR_XSTORE, dt), ptr, lj_ir_knum(J, 0)); + } + /* Convert to re. */ + if ((sinfo & CTF_FP)) goto conv_F_F; else goto conv_F_I; + + case CCX(C, C): + if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; + { + TRef re, im, ptr; + re = emitir(IRT(IR_XLOAD, st), sp, 0); + ptr = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, (ssize >> 1))); + im = emitir(IRT(IR_XLOAD, st), ptr, 0); + if (dt != st) { + re = emitconv(re, dt, st, 0); + im = emitconv(im, dt, st, 0); + } + emitir(IRT(IR_XSTORE, dt), dp, re); + ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, (dsize >> 1))); + emitir(IRT(IR_XSTORE, dt), ptr, im); + } + break; + + /* Destination is a vector. */ + case CCX(V, I): + case CCX(V, F): + case CCX(V, C): + case CCX(V, V): + goto err_nyi; + + /* Destination is a pointer. */ + case CCX(P, P): + case CCX(P, A): + case CCX(P, S): + /* There are only 32 bit pointers/addresses on 32 bit machines. + ** Also ok on x64, since all 32 bit ops clear the upper part of the reg. + */ + goto xstore; + case CCX(P, I): + if (st == IRT_CDATA) goto err_nyi; + if (!LJ_64 && ssize == 8) /* Truncate from 64 bit integer. */ + sp = emitconv(sp, IRT_U32, st, 0); + goto xstore; + case CCX(P, F): + if (st == IRT_CDATA) goto err_nyi; + /* The signed conversion is cheaper. x64 really has 47 bit pointers. */ + sp = emitconv(sp, (LJ_64 && dsize == 8) ? IRT_I64 : IRT_U32, + st, IRCONV_TRUNC|IRCONV_ANY); + goto xstore; + + /* Destination is an array. */ + case CCX(A, A): + /* Destination is a struct/union. */ + case CCX(S, S): + if (dp == 0) goto err_conv; + crec_copy(J, dp, sp, lj_ir_kint(J, dsize), d); + break; + + default: + err_conv: + err_nyi: + lj_trace_err(J, LJ_TRERR_NYICONV); + break; + } + return 0; +} + +/* -- Convert C type to TValue (load) ------------------------------------- */ + +static TRef crec_tv_ct(jit_State *J, CType *s, CTypeID sid, TRef sp) +{ + CTState *cts = ctype_ctsG(J2G(J)); + IRType t = crec_ct2irt(cts, s); + CTInfo sinfo = s->info; + if (ctype_isnum(sinfo)) { + TRef tr; + if (t == IRT_CDATA) + goto err_nyi; /* NYI: copyval of >64 bit integers. */ + tr = emitir(IRT(IR_XLOAD, t), sp, 0); + if (t == IRT_FLOAT || t == IRT_U32) { /* Keep uint32_t/float as numbers. */ + return emitconv(tr, IRT_NUM, t, 0); + } else if (t == IRT_I64 || t == IRT_U64) { /* Box 64 bit integer. */ + sp = tr; + lj_needsplit(J); + } else if ((sinfo & CTF_BOOL)) { + /* Assume not equal to zero. Fixup and emit pending guard later. */ + lj_ir_set(J, IRTGI(IR_NE), tr, lj_ir_kint(J, 0)); + J->postproc = LJ_POST_FIXGUARD; + return TREF_TRUE; + } else { + return tr; + } + } else if (ctype_isptr(sinfo) || ctype_isenum(sinfo)) { + sp = emitir(IRT(IR_XLOAD, t), sp, 0); /* Box pointers and enums. */ + } else if (ctype_isrefarray(sinfo) || ctype_isstruct(sinfo)) { + cts->L = J->L; + sid = lj_ctype_intern(cts, CTINFO_REF(sid), CTSIZE_PTR); /* Create ref. */ + } else if (ctype_iscomplex(sinfo)) { /* Unbox/box complex. */ + ptrdiff_t esz = (ptrdiff_t)(s->size >> 1); + TRef ptr, tr1, tr2, dp; + dp = emitir(IRTG(IR_CNEW, IRT_CDATA), lj_ir_kint(J, sid), TREF_NIL); + tr1 = emitir(IRT(IR_XLOAD, t), sp, 0); + ptr = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, esz)); + tr2 = emitir(IRT(IR_XLOAD, t), ptr, 0); + ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, sizeof(GCcdata))); + emitir(IRT(IR_XSTORE, t), ptr, tr1); + ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, sizeof(GCcdata)+esz)); + emitir(IRT(IR_XSTORE, t), ptr, tr2); + return dp; + } else { + /* NYI: copyval of vectors. */ + err_nyi: + lj_trace_err(J, LJ_TRERR_NYICONV); + } + /* Box pointer, ref, enum or 64 bit integer. */ + return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, sid), sp); +} + +/* -- Convert TValue to C type (store) ------------------------------------ */ + +static TRef crec_ct_tv(jit_State *J, CType *d, TRef dp, TRef sp, cTValue *sval) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTypeID sid = CTID_P_VOID; + void *svisnz = 0; + CType *s; + if (LJ_LIKELY(tref_isinteger(sp))) { + sid = CTID_INT32; + svisnz = (void *)(intptr_t)(tvisint(sval)?(intV(sval)!=0):!tviszero(sval)); + } else if (tref_isnum(sp)) { + sid = CTID_DOUBLE; + svisnz = (void *)(intptr_t)(tvisint(sval)?(intV(sval)!=0):!tviszero(sval)); + } else if (tref_isbool(sp)) { + sp = lj_ir_kint(J, tref_istrue(sp) ? 1 : 0); + sid = CTID_BOOL; + } else if (tref_isnil(sp)) { + sp = lj_ir_kptr(J, NULL); + } else if (tref_isudata(sp)) { + GCudata *ud = udataV(sval); + if (ud->udtype == UDTYPE_IO_FILE) { + TRef tr = emitir(IRT(IR_FLOAD, IRT_U8), sp, IRFL_UDATA_UDTYPE); + emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, UDTYPE_IO_FILE)); + sp = emitir(IRT(IR_FLOAD, IRT_PTR), sp, IRFL_UDATA_FILE); + } else { + sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCudata))); + } + } else if (tref_isstr(sp)) { + if (ctype_isenum(d->info)) { /* Match string against enum constant. */ + GCstr *str = strV(sval); + CTSize ofs; + CType *cct = lj_ctype_getfield(cts, d, str, &ofs); + /* Specialize to the name of the enum constant. */ + emitir(IRTG(IR_EQ, IRT_STR), sp, lj_ir_kstr(J, str)); + if (cct && ctype_isconstval(cct->info)) { + lua_assert(ctype_child(cts, cct)->size == 4); + svisnz = (void *)(intptr_t)(ofs != 0); + sp = lj_ir_kint(J, (int32_t)ofs); + sid = ctype_cid(cct->info); + } /* else: interpreter will throw. */ + } else if (ctype_isrefarray(d->info)) { /* Copy string to array. */ + lj_trace_err(J, LJ_TRERR_BADTYPE); /* NYI */ + } else { /* Otherwise pass the string data as a const char[]. */ + /* Don't use STRREF. It folds with SNEW, which loses the trailing NUL. */ + sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCstr))); + sid = CTID_A_CCHAR; + } + } else { /* NYI: tref_istab(sp), tref_islightud(sp). */ + IRType t; + sid = argv2cdata(J, sp, sval)->ctypeid; + s = ctype_raw(cts, sid); + svisnz = cdataptr(cdataV(sval)); + t = crec_ct2irt(cts, s); + if (ctype_isptr(s->info)) { + sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_PTR); + if (ctype_isref(s->info)) { + svisnz = *(void **)svisnz; + s = ctype_rawchild(cts, s); + if (ctype_isenum(s->info)) s = ctype_child(cts, s); + t = crec_ct2irt(cts, s); + } else { + goto doconv; + } + } else if (t == IRT_I64 || t == IRT_U64) { + sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_INT64); + lj_needsplit(J); + goto doconv; + } else if (t == IRT_INT || t == IRT_U32) { + if (ctype_isenum(s->info)) s = ctype_child(cts, s); + sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_INT); + goto doconv; + } else { + sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCcdata))); + } + if (ctype_isnum(s->info) && t != IRT_CDATA) + sp = emitir(IRT(IR_XLOAD, t), sp, 0); /* Load number value. */ + goto doconv; + } + s = ctype_get(cts, sid); +doconv: + if (ctype_isenum(d->info)) d = ctype_child(cts, d); + return crec_ct_ct(J, d, s, dp, sp, svisnz); +} + +/* -- C data metamethods -------------------------------------------------- */ + +/* This would be rather difficult in FOLD, so do it here: +** (base+k)+(idx*sz)+ofs ==> (base+idx*sz)+(ofs+k) +** (base+(idx+k)*sz)+ofs ==> (base+idx*sz)+(ofs+k*sz) +*/ +static TRef crec_reassoc_ofs(jit_State *J, TRef tr, ptrdiff_t *ofsp, MSize sz) +{ + IRIns *ir = IR(tref_ref(tr)); + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && irref_isk(ir->op2) && + (ir->o == IR_ADD || ir->o == IR_ADDOV || ir->o == IR_SUBOV)) { + IRIns *irk = IR(ir->op2); + ptrdiff_t k; + if (LJ_64 && irk->o == IR_KINT64) + k = (ptrdiff_t)ir_kint64(irk)->u64 * sz; + else + k = (ptrdiff_t)irk->i * sz; + if (ir->o == IR_SUBOV) *ofsp -= k; else *ofsp += k; + tr = ir->op1; /* Not a TRef, but the caller doesn't care. */ + } + return tr; +} + +/* Record ctype __index/__newindex metamethods. */ +static void crec_index_meta(jit_State *J, CTState *cts, CType *ct, + RecordFFData *rd) +{ + CTypeID id = ctype_typeid(cts, ct); + cTValue *tv = lj_ctype_meta(cts, id, rd->data ? MM_newindex : MM_index); + if (!tv) + lj_trace_err(J, LJ_TRERR_BADTYPE); + if (tvisfunc(tv)) { + J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; + rd->nres = -1; /* Pending tailcall. */ + } else if (rd->data == 0 && tvistab(tv) && tref_isstr(J->base[1])) { + /* Specialize to result of __index lookup. */ + cTValue *o = lj_tab_get(J->L, tabV(tv), &rd->argv[1]); + J->base[0] = lj_record_constify(J, o); + if (!J->base[0]) + lj_trace_err(J, LJ_TRERR_BADTYPE); + /* Always specialize to the key. */ + emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, strV(&rd->argv[1]))); + } else { + /* NYI: resolving of non-function metamethods. */ + /* NYI: non-string keys for __index table. */ + /* NYI: stores to __newindex table. */ + lj_trace_err(J, LJ_TRERR_BADTYPE); + } +} + +void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd) +{ + TRef idx, ptr = J->base[0]; + ptrdiff_t ofs = sizeof(GCcdata); + GCcdata *cd = argv2cdata(J, ptr, &rd->argv[0]); + CTState *cts = ctype_ctsG(J2G(J)); + CType *ct = ctype_raw(cts, cd->ctypeid); + CTypeID sid = 0; + + /* Resolve pointer or reference for cdata object. */ + if (ctype_isptr(ct->info)) { + IRType t = (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; + if (ctype_isref(ct->info)) ct = ctype_rawchild(cts, ct); + ptr = emitir(IRT(IR_FLOAD, t), ptr, IRFL_CDATA_PTR); + ofs = 0; + ptr = crec_reassoc_ofs(J, ptr, &ofs, 1); + } + +again: + idx = J->base[1]; + if (tref_isnumber(idx)) { + idx = lj_opt_narrow_cindex(J, idx); + if (ctype_ispointer(ct->info)) { + CTSize sz; + integer_key: + if ((ct->info & CTF_COMPLEX)) + idx = emitir(IRT(IR_BAND, IRT_INTP), idx, lj_ir_kintp(J, 1)); + sz = lj_ctype_size(cts, (sid = ctype_cid(ct->info))); + idx = crec_reassoc_ofs(J, idx, &ofs, sz); +#if LJ_TARGET_ARM || LJ_TARGET_PPC + /* Hoist base add to allow fusion of index/shift into operands. */ + if (LJ_LIKELY(J->flags & JIT_F_OPT_LOOP) && ofs +#if LJ_TARGET_ARM + && (sz == 1 || sz == 4) +#endif + ) { + ptr = emitir(IRT(IR_ADD, IRT_PTR), ptr, lj_ir_kintp(J, ofs)); + ofs = 0; + } +#endif + idx = emitir(IRT(IR_MUL, IRT_INTP), idx, lj_ir_kintp(J, sz)); + ptr = emitir(IRT(IR_ADD, IRT_PTR), idx, ptr); + } + } else if (tref_iscdata(idx)) { + GCcdata *cdk = cdataV(&rd->argv[1]); + CType *ctk = ctype_raw(cts, cdk->ctypeid); + IRType t = crec_ct2irt(cts, ctk); + if (ctype_ispointer(ct->info) && t >= IRT_I8 && t <= IRT_U64) { + if (ctk->size == 8) { + idx = emitir(IRT(IR_FLOAD, t), idx, IRFL_CDATA_INT64); + } else if (ctk->size == 4) { + idx = emitir(IRT(IR_FLOAD, t), idx, IRFL_CDATA_INT); + } else { + idx = emitir(IRT(IR_ADD, IRT_PTR), idx, + lj_ir_kintp(J, sizeof(GCcdata))); + idx = emitir(IRT(IR_XLOAD, t), idx, 0); + } + if (LJ_64 && ctk->size < sizeof(intptr_t) && !(ctk->info & CTF_UNSIGNED)) + idx = emitconv(idx, IRT_INTP, IRT_INT, IRCONV_SEXT); + if (!LJ_64 && ctk->size > sizeof(intptr_t)) { + idx = emitconv(idx, IRT_INTP, t, 0); + lj_needsplit(J); + } + goto integer_key; + } + } else if (tref_isstr(idx)) { + GCstr *name = strV(&rd->argv[1]); + if (cd && cd->ctypeid == CTID_CTYPEID) + ct = ctype_raw(cts, crec_constructor(J, cd, ptr)); + if (ctype_isstruct(ct->info)) { + CTSize fofs; + CType *fct; + fct = lj_ctype_getfield(cts, ct, name, &fofs); + if (fct) { + /* Always specialize to the field name. */ + emitir(IRTG(IR_EQ, IRT_STR), idx, lj_ir_kstr(J, name)); + if (ctype_isconstval(fct->info)) { + if (fct->size >= 0x80000000u && + (ctype_child(cts, fct)->info & CTF_UNSIGNED)) { + J->base[0] = lj_ir_knum(J, (lua_Number)(uint32_t)fct->size); + return; + } + J->base[0] = lj_ir_kint(J, (int32_t)fct->size); + return; /* Interpreter will throw for newindex. */ + } else if (ctype_isbitfield(fct->info)) { + lj_trace_err(J, LJ_TRERR_NYICONV); + } else { + lua_assert(ctype_isfield(fct->info)); + sid = ctype_cid(fct->info); + } + ofs += (ptrdiff_t)fofs; + } + } else if (ctype_iscomplex(ct->info)) { + if (name->len == 2 && + ((strdata(name)[0] == 'r' && strdata(name)[1] == 'e') || + (strdata(name)[0] == 'i' && strdata(name)[1] == 'm'))) { + /* Always specialize to the field name. */ + emitir(IRTG(IR_EQ, IRT_STR), idx, lj_ir_kstr(J, name)); + if (strdata(name)[0] == 'i') ofs += (ct->size >> 1); + sid = ctype_cid(ct->info); + } + } + } + if (!sid) { + if (ctype_isptr(ct->info)) { /* Automatically perform '->'. */ + CType *cct = ctype_rawchild(cts, ct); + if (ctype_isstruct(cct->info)) { + ct = cct; + cd = NULL; + if (tref_isstr(idx)) goto again; + } + } + crec_index_meta(J, cts, ct, rd); + return; + } + + if (ofs) + ptr = emitir(IRT(IR_ADD, IRT_PTR), ptr, lj_ir_kintp(J, ofs)); + + /* Resolve reference for field. */ + ct = ctype_get(cts, sid); + if (ctype_isref(ct->info)) { + ptr = emitir(IRT(IR_XLOAD, IRT_PTR), ptr, 0); + sid = ctype_cid(ct->info); + ct = ctype_get(cts, sid); + } + + while (ctype_isattrib(ct->info)) + ct = ctype_child(cts, ct); /* Skip attributes. */ + + if (rd->data == 0) { /* __index metamethod. */ + J->base[0] = crec_tv_ct(J, ct, sid, ptr); + } else { /* __newindex metamethod. */ + rd->nres = 0; + J->needsnap = 1; + crec_ct_tv(J, ct, ptr, J->base[2], &rd->argv[2]); + } +} + +/* Record setting a finalizer. */ +static void crec_finalizer(jit_State *J, TRef trcd, cTValue *fin) +{ + TRef trlo = lj_ir_call(J, IRCALL_lj_cdata_setfin, trcd); + TRef trhi = emitir(IRT(IR_ADD, IRT_P32), trlo, lj_ir_kint(J, 4)); + if (LJ_BE) { TRef tmp = trlo; trlo = trhi; trhi = tmp; } + if (tvisfunc(fin)) { + emitir(IRT(IR_XSTORE, IRT_P32), trlo, lj_ir_kfunc(J, funcV(fin))); + emitir(IRTI(IR_XSTORE), trhi, lj_ir_kint(J, LJ_TFUNC)); + } else if (tviscdata(fin)) { + emitir(IRT(IR_XSTORE, IRT_P32), trlo, + lj_ir_kgc(J, obj2gco(cdataV(fin)), IRT_CDATA)); + emitir(IRTI(IR_XSTORE), trhi, lj_ir_kint(J, LJ_TCDATA)); + } else { + lj_trace_err(J, LJ_TRERR_BADTYPE); + } + J->needsnap = 1; +} + +/* Record cdata allocation. */ +static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); + CType *d = ctype_raw(cts, id); + TRef trid; + if (!sz || sz > 128 || (info & CTF_VLA) || ctype_align(info) > CT_MEMALIGN) + lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: large/special allocations. */ + trid = lj_ir_kint(J, id); + /* Use special instruction to box pointer or 32/64 bit integer. */ + if (ctype_isptr(info) || (ctype_isinteger(info) && (sz == 4 || sz == 8))) { + TRef sp = J->base[1] ? crec_ct_tv(J, d, 0, J->base[1], &rd->argv[1]) : + ctype_isptr(info) ? lj_ir_kptr(J, NULL) : + sz == 4 ? lj_ir_kint(J, 0) : + (lj_needsplit(J), lj_ir_kint64(J, 0)); + J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), trid, sp); + } else { + TRef trcd = emitir(IRTG(IR_CNEW, IRT_CDATA), trid, TREF_NIL); + cTValue *fin; + J->base[0] = trcd; + if (J->base[1] && !J->base[2] && + !lj_cconv_multi_init(cts, d, &rd->argv[1])) { + goto single_init; + } else if (ctype_isarray(d->info)) { + CType *dc = ctype_rawchild(cts, d); /* Array element type. */ + CTSize ofs, esize = dc->size; + TRef sp = 0; + TValue tv; + TValue *sval = &tv; + MSize i; + tv.u64 = 0; + if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info))) + lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init array of aggregates. */ + for (i = 1, ofs = 0; ofs < sz; ofs += esize) { + TRef dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, + lj_ir_kintp(J, ofs + sizeof(GCcdata))); + if (J->base[i]) { + sp = J->base[i]; + sval = &rd->argv[i]; + i++; + } else if (i != 2) { + sp = ctype_isnum(dc->info) ? lj_ir_kint(J, 0) : TREF_NIL; + } + crec_ct_tv(J, dc, dp, sp, sval); + } + } else if (ctype_isstruct(d->info)) { + CTypeID fid = d->sib; + MSize i = 1; + while (fid) { + CType *df = ctype_get(cts, fid); + fid = df->sib; + if (ctype_isfield(df->info)) { + CType *dc; + TRef sp, dp; + TValue tv; + TValue *sval = &tv; + setintV(&tv, 0); + if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ + dc = ctype_rawchild(cts, df); /* Field type. */ + if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info) || + ctype_isenum(dc->info))) + lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init aggregates. */ + if (J->base[i]) { + sp = J->base[i]; + sval = &rd->argv[i]; + i++; + } else { + sp = ctype_isptr(dc->info) ? TREF_NIL : lj_ir_kint(J, 0); + } + dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, + lj_ir_kintp(J, df->size + sizeof(GCcdata))); + crec_ct_tv(J, dc, dp, sp, sval); + } else if (!ctype_isconstval(df->info)) { + /* NYI: init bitfields and sub-structures. */ + lj_trace_err(J, LJ_TRERR_NYICONV); + } + } + } else { + TRef dp; + single_init: + dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, lj_ir_kintp(J, sizeof(GCcdata))); + if (J->base[1]) { + crec_ct_tv(J, d, dp, J->base[1], &rd->argv[1]); + } else { + TValue tv; + tv.u64 = 0; + crec_ct_tv(J, d, dp, lj_ir_kint(J, 0), &tv); + } + } + /* Handle __gc metamethod. */ + fin = lj_ctype_meta(cts, id, MM_gc); + if (fin) + crec_finalizer(J, trcd, fin); + } +} + +/* Record argument conversions. */ +static TRef crec_call_args(jit_State *J, RecordFFData *rd, + CTState *cts, CType *ct) +{ + TRef args[CCI_NARGS_MAX]; + CTypeID fid; + MSize i, n; + TRef tr, *base; + cTValue *o; +#if LJ_TARGET_X86 +#if LJ_ABI_WIN + TRef *arg0 = NULL, *arg1 = NULL; +#endif + int ngpr = 0; + if (ctype_cconv(ct->info) == CTCC_THISCALL) + ngpr = 1; + else if (ctype_cconv(ct->info) == CTCC_FASTCALL) + ngpr = 2; +#endif + + /* Skip initial attributes. */ + fid = ct->sib; + while (fid) { + CType *ctf = ctype_get(cts, fid); + if (!ctype_isattrib(ctf->info)) break; + fid = ctf->sib; + } + args[0] = TREF_NIL; + for (n = 0, base = J->base+1, o = rd->argv+1; *base; n++, base++, o++) { + CTypeID did; + CType *d; + + if (n >= CCI_NARGS_MAX) + lj_trace_err(J, LJ_TRERR_NYICALL); + + if (fid) { /* Get argument type from field. */ + CType *ctf = ctype_get(cts, fid); + fid = ctf->sib; + lua_assert(ctype_isfield(ctf->info)); + did = ctype_cid(ctf->info); + } else { + if (!(ct->info & CTF_VARARG)) + lj_trace_err(J, LJ_TRERR_NYICALL); /* Too many arguments. */ + did = lj_ccall_ctid_vararg(cts, o); /* Infer vararg type. */ + } + d = ctype_raw(cts, did); + if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || + ctype_isenum(d->info))) + lj_trace_err(J, LJ_TRERR_NYICALL); + tr = crec_ct_tv(J, d, 0, *base, o); + if (ctype_isinteger_or_bool(d->info)) { + if (d->size < 4) { + if ((d->info & CTF_UNSIGNED)) + tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_U8 : IRT_U16, 0); + else + tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_I8 : IRT_I16,IRCONV_SEXT); + } + } else if (LJ_SOFTFP && ctype_isfp(d->info) && d->size > 4) { + lj_needsplit(J); + } +#if LJ_TARGET_X86 + /* 64 bit args must not end up in registers for fastcall/thiscall. */ +#if LJ_ABI_WIN + if (!ctype_isfp(d->info)) { + /* Sigh, the Windows/x86 ABI allows reordering across 64 bit args. */ + if (tref_typerange(tr, IRT_I64, IRT_U64)) { + if (ngpr) { + arg0 = &args[n]; args[n++] = TREF_NIL; ngpr--; + if (ngpr) { + arg1 = &args[n]; args[n++] = TREF_NIL; ngpr--; + } + } + } else { + if (arg0) { *arg0 = tr; arg0 = NULL; n--; continue; } + if (arg1) { *arg1 = tr; arg1 = NULL; n--; continue; } + if (ngpr) ngpr--; + } + } +#else + if (!ctype_isfp(d->info) && ngpr) { + if (tref_typerange(tr, IRT_I64, IRT_U64)) { + /* No reordering for other x86 ABIs. Simply add alignment args. */ + do { args[n++] = TREF_NIL; } while (--ngpr); + } else { + ngpr--; + } + } +#endif +#endif + args[n] = tr; + } + tr = args[0]; + for (i = 1; i < n; i++) + tr = emitir(IRT(IR_CARG, IRT_NIL), tr, args[i]); + return tr; +} + +/* Create a snapshot for the caller, simulating a 'false' return value. */ +static void crec_snap_caller(jit_State *J) +{ + lua_State *L = J->L; + TValue *base = L->base, *top = L->top; + const BCIns *pc = J->pc; + TRef ftr = J->base[-1]; + ptrdiff_t delta; + if (!frame_islua(base-1) || J->framedepth <= 0) + lj_trace_err(J, LJ_TRERR_NYICALL); + J->pc = frame_pc(base-1); delta = 1+bc_a(J->pc[-1]); + L->top = base; L->base = base - delta; + J->base[-1] = TREF_FALSE; + J->base -= delta; J->baseslot -= (BCReg)delta; + J->maxslot = (BCReg)delta; J->framedepth--; + lj_snap_add(J); + L->base = base; L->top = top; + J->framedepth++; J->maxslot = 1; + J->base += delta; J->baseslot += (BCReg)delta; + J->base[-1] = ftr; J->pc = pc; +} + +/* Record function call. */ +static int crec_call(jit_State *J, RecordFFData *rd, GCcdata *cd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CType *ct = ctype_raw(cts, cd->ctypeid); + IRType tp = IRT_PTR; + if (ctype_isptr(ct->info)) { + tp = (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; + ct = ctype_rawchild(cts, ct); + } + if (ctype_isfunc(ct->info)) { + TRef func = emitir(IRT(IR_FLOAD, tp), J->base[0], IRFL_CDATA_PTR); + CType *ctr = ctype_rawchild(cts, ct); + IRType t = crec_ct2irt(cts, ctr); + TRef tr; + TValue tv; + /* Check for blacklisted C functions that might call a callback. */ + setlightudV(&tv, + cdata_getptr(cdataptr(cd), (LJ_64 && tp == IRT_P64) ? 8 : 4)); + if (tvistrue(lj_tab_get(J->L, cts->miscmap, &tv))) + lj_trace_err(J, LJ_TRERR_BLACKL); + if (ctype_isvoid(ctr->info)) { + t = IRT_NIL; + rd->nres = 0; + } else if (!(ctype_isnum(ctr->info) || ctype_isptr(ctr->info) || + ctype_isenum(ctr->info)) || t == IRT_CDATA) { + lj_trace_err(J, LJ_TRERR_NYICALL); + } + if ((ct->info & CTF_VARARG) +#if LJ_TARGET_X86 + || ctype_cconv(ct->info) != CTCC_CDECL +#endif + ) + func = emitir(IRT(IR_CARG, IRT_NIL), func, + lj_ir_kint(J, ctype_typeid(cts, ct))); + tr = emitir(IRT(IR_CALLXS, t), crec_call_args(J, rd, cts, ct), func); + if (ctype_isbool(ctr->info)) { + if (frame_islua(J->L->base-1) && bc_b(frame_pc(J->L->base-1)[-1]) == 1) { + /* Don't check result if ignored. */ + tr = TREF_NIL; + } else { + crec_snap_caller(J); +#if LJ_TARGET_X86ORX64 + /* Note: only the x86/x64 backend supports U8 and only for EQ(tr, 0). */ + lj_ir_set(J, IRTG(IR_NE, IRT_U8), tr, lj_ir_kint(J, 0)); +#else + lj_ir_set(J, IRTGI(IR_NE), tr, lj_ir_kint(J, 0)); +#endif + J->postproc = LJ_POST_FIXGUARDSNAP; + tr = TREF_TRUE; + } + } else if (t == IRT_PTR || (LJ_64 && t == IRT_P32) || + t == IRT_I64 || t == IRT_U64 || ctype_isenum(ctr->info)) { + TRef trid = lj_ir_kint(J, ctype_cid(ct->info)); + tr = emitir(IRTG(IR_CNEWI, IRT_CDATA), trid, tr); + if (t == IRT_I64 || t == IRT_U64) lj_needsplit(J); + } else if (t == IRT_FLOAT || t == IRT_U32) { + tr = emitconv(tr, IRT_NUM, t, 0); + } else if (t == IRT_I8 || t == IRT_I16) { + tr = emitconv(tr, IRT_INT, t, IRCONV_SEXT); + } else if (t == IRT_U8 || t == IRT_U16) { + tr = emitconv(tr, IRT_INT, t, 0); + } + J->base[0] = tr; + J->needsnap = 1; + return 1; + } + return 0; +} + +void LJ_FASTCALL recff_cdata_call(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + GCcdata *cd = argv2cdata(J, J->base[0], &rd->argv[0]); + CTypeID id = cd->ctypeid; + CType *ct; + cTValue *tv; + MMS mm = MM_call; + if (id == CTID_CTYPEID) { + id = crec_constructor(J, cd, J->base[0]); + mm = MM_new; + } else if (crec_call(J, rd, cd)) { + return; + } + /* Record ctype __call/__new metamethod. */ + ct = ctype_raw(cts, id); + tv = lj_ctype_meta(cts, ctype_isptr(ct->info) ? ctype_cid(ct->info) : id, mm); + if (tv) { + if (tvisfunc(tv)) { + J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; + rd->nres = -1; /* Pending tailcall. */ + return; + } + } else if (mm == MM_new) { + crec_alloc(J, rd, id); + return; + } + /* No metamethod or NYI: non-function metamethods. */ + lj_trace_err(J, LJ_TRERR_BADTYPE); +} + +static TRef crec_arith_int64(jit_State *J, TRef *sp, CType **s, MMS mm) +{ + if (ctype_isnum(s[0]->info) && ctype_isnum(s[1]->info)) { + IRType dt; + CTypeID id; + TRef tr; + MSize i; + IROp op; + lj_needsplit(J); + if (((s[0]->info & CTF_UNSIGNED) && s[0]->size == 8) || + ((s[1]->info & CTF_UNSIGNED) && s[1]->size == 8)) { + dt = IRT_U64; id = CTID_UINT64; + } else { + dt = IRT_I64; id = CTID_INT64; + if (mm < MM_add && + !((s[0]->info | s[1]->info) & CTF_FP) && + s[0]->size == 4 && s[1]->size == 4) { /* Try to narrow comparison. */ + if (!((s[0]->info ^ s[1]->info) & CTF_UNSIGNED) || + (tref_isk(sp[1]) && IR(tref_ref(sp[1]))->i >= 0)) { + dt = (s[0]->info & CTF_UNSIGNED) ? IRT_U32 : IRT_INT; + goto comp; + } else if (tref_isk(sp[0]) && IR(tref_ref(sp[0]))->i >= 0) { + dt = (s[1]->info & CTF_UNSIGNED) ? IRT_U32 : IRT_INT; + goto comp; + } + } + } + for (i = 0; i < 2; i++) { + IRType st = tref_type(sp[i]); + if (st == IRT_NUM || st == IRT_FLOAT) + sp[i] = emitconv(sp[i], dt, st, IRCONV_TRUNC|IRCONV_ANY); + else if (!(st == IRT_I64 || st == IRT_U64)) + sp[i] = emitconv(sp[i], dt, IRT_INT, + (s[i]->info & CTF_UNSIGNED) ? 0 : IRCONV_SEXT); + } + if (mm < MM_add) { + comp: + /* Assume true comparison. Fixup and emit pending guard later. */ + if (mm == MM_eq) { + op = IR_EQ; + } else { + op = mm == MM_lt ? IR_LT : IR_LE; + if (dt == IRT_U32 || dt == IRT_U64) + op += (IR_ULT-IR_LT); + } + lj_ir_set(J, IRTG(op, dt), sp[0], sp[1]); + J->postproc = LJ_POST_FIXGUARD; + return TREF_TRUE; + } else { + tr = emitir(IRT(mm+(int)IR_ADD-(int)MM_add, dt), sp[0], sp[1]); + } + return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); + } + return 0; +} + +static TRef crec_arith_ptr(jit_State *J, TRef *sp, CType **s, MMS mm) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CType *ctp = s[0]; + if (ctype_isptr(ctp->info) || ctype_isrefarray(ctp->info)) { + if ((mm == MM_sub || mm == MM_eq || mm == MM_lt || mm == MM_le) && + (ctype_isptr(s[1]->info) || ctype_isrefarray(s[1]->info))) { + if (mm == MM_sub) { /* Pointer difference. */ + TRef tr; + CTSize sz = lj_ctype_size(cts, ctype_cid(ctp->info)); + if (sz == 0 || (sz & (sz-1)) != 0) + return 0; /* NYI: integer division. */ + tr = emitir(IRT(IR_SUB, IRT_INTP), sp[0], sp[1]); + tr = emitir(IRT(IR_BSAR, IRT_INTP), tr, lj_ir_kint(J, lj_fls(sz))); +#if LJ_64 + tr = emitconv(tr, IRT_NUM, IRT_INTP, 0); +#endif + return tr; + } else { /* Pointer comparison (unsigned). */ + /* Assume true comparison. Fixup and emit pending guard later. */ + IROp op = mm == MM_eq ? IR_EQ : mm == MM_lt ? IR_ULT : IR_ULE; + lj_ir_set(J, IRTG(op, IRT_PTR), sp[0], sp[1]); + J->postproc = LJ_POST_FIXGUARD; + return TREF_TRUE; + } + } + if (!((mm == MM_add || mm == MM_sub) && ctype_isnum(s[1]->info))) + return 0; + } else if (mm == MM_add && ctype_isnum(ctp->info) && + (ctype_isptr(s[1]->info) || ctype_isrefarray(s[1]->info))) { + TRef tr = sp[0]; sp[0] = sp[1]; sp[1] = tr; /* Swap pointer and index. */ + ctp = s[1]; + } else { + return 0; + } + { + TRef tr = sp[1]; + IRType t = tref_type(tr); + CTSize sz = lj_ctype_size(cts, ctype_cid(ctp->info)); + CTypeID id; +#if LJ_64 + if (t == IRT_NUM || t == IRT_FLOAT) + tr = emitconv(tr, IRT_INTP, t, IRCONV_TRUNC|IRCONV_ANY); + else if (!(t == IRT_I64 || t == IRT_U64)) + tr = emitconv(tr, IRT_INTP, IRT_INT, + ((t - IRT_I8) & 1) ? 0 : IRCONV_SEXT); +#else + if (!tref_typerange(sp[1], IRT_I8, IRT_U32)) { + tr = emitconv(tr, IRT_INTP, t, + (t == IRT_NUM || t == IRT_FLOAT) ? + IRCONV_TRUNC|IRCONV_ANY : 0); + } +#endif + tr = emitir(IRT(IR_MUL, IRT_INTP), tr, lj_ir_kintp(J, sz)); + tr = emitir(IRT(mm+(int)IR_ADD-(int)MM_add, IRT_PTR), sp[0], tr); + id = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ctp->info)), + CTSIZE_PTR); + return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); + } +} + +/* Record ctype arithmetic metamethods. */ +static TRef crec_arith_meta(jit_State *J, TRef *sp, CType **s, CTState *cts, + RecordFFData *rd) +{ + cTValue *tv = NULL; + if (J->base[0]) { + if (tviscdata(&rd->argv[0])) { + CTypeID id = argv2cdata(J, J->base[0], &rd->argv[0])->ctypeid; + CType *ct = ctype_raw(cts, id); + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, (MMS)rd->data); + } + if (!tv && J->base[1] && tviscdata(&rd->argv[1])) { + CTypeID id = argv2cdata(J, J->base[1], &rd->argv[1])->ctypeid; + CType *ct = ctype_raw(cts, id); + if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); + tv = lj_ctype_meta(cts, id, (MMS)rd->data); + } + } + if (tv) { + if (tvisfunc(tv)) { + J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; + rd->nres = -1; /* Pending tailcall. */ + return 0; + } /* NYI: non-function metamethods. */ + } else if ((MMS)rd->data == MM_eq) { /* Fallback cdata pointer comparison. */ + if (sp[0] && sp[1] && ctype_isnum(s[0]->info) == ctype_isnum(s[1]->info)) { + /* Assume true comparison. Fixup and emit pending guard later. */ + lj_ir_set(J, IRTG(IR_EQ, IRT_PTR), sp[0], sp[1]); + J->postproc = LJ_POST_FIXGUARD; + return TREF_TRUE; + } else { + return TREF_FALSE; + } + } + lj_trace_err(J, LJ_TRERR_BADTYPE); + return 0; +} + +void LJ_FASTCALL recff_cdata_arith(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + TRef sp[2]; + CType *s[2]; + MSize i; + for (i = 0; i < 2; i++) { + TRef tr = J->base[i]; + CType *ct = ctype_get(cts, CTID_DOUBLE); + if (!tr) { + lj_trace_err(J, LJ_TRERR_BADTYPE); + } else if (tref_iscdata(tr)) { + CTypeID id = argv2cdata(J, tr, &rd->argv[i])->ctypeid; + IRType t; + ct = ctype_raw(cts, id); + t = crec_ct2irt(cts, ct); + if (ctype_isptr(ct->info)) { /* Resolve pointer or reference. */ + tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_PTR); + if (ctype_isref(ct->info)) { + ct = ctype_rawchild(cts, ct); + t = crec_ct2irt(cts, ct); + } + } else if (t == IRT_I64 || t == IRT_U64) { + tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_INT64); + lj_needsplit(J); + goto ok; + } else if (t == IRT_INT || t == IRT_U32) { + tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_INT); + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + goto ok; + } else if (ctype_isfunc(ct->info)) { + tr = emitir(IRT(IR_FLOAD, IRT_PTR), tr, IRFL_CDATA_PTR); + ct = ctype_get(cts, + lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR)); + goto ok; + } else { + tr = emitir(IRT(IR_ADD, IRT_PTR), tr, lj_ir_kintp(J, sizeof(GCcdata))); + } + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + if (ctype_isnum(ct->info)) { + if (t == IRT_CDATA) { + tr = 0; + } else { + if (t == IRT_I64 || t == IRT_U64) lj_needsplit(J); + tr = emitir(IRT(IR_XLOAD, t), tr, 0); + } + } + } else if (tref_isnil(tr)) { + tr = lj_ir_kptr(J, NULL); + ct = ctype_get(cts, CTID_P_VOID); + } else if (tref_isinteger(tr)) { + ct = ctype_get(cts, CTID_INT32); + } else if (tref_isstr(tr)) { + TRef tr2 = J->base[1-i]; + CTypeID id = argv2cdata(J, tr2, &rd->argv[1-i])->ctypeid; + ct = ctype_raw(cts, id); + if (ctype_isenum(ct->info)) { /* Match string against enum constant. */ + GCstr *str = strV(&rd->argv[i]); + CTSize ofs; + CType *cct = lj_ctype_getfield(cts, ct, str, &ofs); + if (cct && ctype_isconstval(cct->info)) { + /* Specialize to the name of the enum constant. */ + emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, str)); + ct = ctype_child(cts, cct); + tr = lj_ir_kint(J, (int32_t)ofs); + } else { /* Interpreter will throw or return false. */ + ct = ctype_get(cts, CTID_P_VOID); + } + } else if (ctype_isptr(ct->info)) { + tr = emitir(IRT(IR_ADD, IRT_PTR), tr, lj_ir_kintp(J, sizeof(GCstr))); + } else { + ct = ctype_get(cts, CTID_P_VOID); + } + } else if (!tref_isnum(tr)) { + tr = 0; + ct = ctype_get(cts, CTID_P_VOID); + } + ok: + s[i] = ct; + sp[i] = tr; + } + { + TRef tr; + if (!(tr = crec_arith_int64(J, sp, s, (MMS)rd->data)) && + !(tr = crec_arith_ptr(J, sp, s, (MMS)rd->data)) && + !(tr = crec_arith_meta(J, sp, s, cts, rd))) + return; + J->base[0] = tr; + /* Fixup cdata comparisons, too. Avoids some cdata escapes. */ + if (J->postproc == LJ_POST_FIXGUARD && frame_iscont(J->L->base-1) && + !irt_isguard(J->guardemit)) { + const BCIns *pc = frame_contpc(J->L->base-1) - 1; + if (bc_op(*pc) <= BC_ISNEP) { + setframe_pc(&J2G(J)->tmptv, pc); + J2G(J)->tmptv.u32.lo = ((tref_istrue(tr) ^ bc_op(*pc)) & 1); + J->postproc = LJ_POST_FIXCOMP; + } + } + } +} + +/* -- C library namespace metamethods ------------------------------------- */ + +void LJ_FASTCALL recff_clib_index(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + if (tref_isudata(J->base[0]) && tref_isstr(J->base[1]) && + udataV(&rd->argv[0])->udtype == UDTYPE_FFI_CLIB) { + CLibrary *cl = (CLibrary *)uddata(udataV(&rd->argv[0])); + GCstr *name = strV(&rd->argv[1]); + CType *ct; + CTypeID id = lj_ctype_getname(cts, &ct, name, CLNS_INDEX); + cTValue *tv = lj_tab_getstr(cl->cache, name); + rd->nres = rd->data; + if (id && tv && !tvisnil(tv)) { + /* Specialize to the symbol name and make the result a constant. */ + emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, name)); + if (ctype_isconstval(ct->info)) { + if (ct->size >= 0x80000000u && + (ctype_child(cts, ct)->info & CTF_UNSIGNED)) + J->base[0] = lj_ir_knum(J, (lua_Number)(uint32_t)ct->size); + else + J->base[0] = lj_ir_kint(J, (int32_t)ct->size); + } else if (ctype_isextern(ct->info)) { + CTypeID sid = ctype_cid(ct->info); + void *sp = *(void **)cdataptr(cdataV(tv)); + TRef ptr; + ct = ctype_raw(cts, sid); + if (LJ_64 && !checkptr32(sp)) + ptr = lj_ir_kintp(J, (uintptr_t)sp); + else + ptr = lj_ir_kptr(J, sp); + if (rd->data) { + J->base[0] = crec_tv_ct(J, ct, sid, ptr); + } else { + J->needsnap = 1; + crec_ct_tv(J, ct, ptr, J->base[2], &rd->argv[2]); + } + } else { + J->base[0] = lj_ir_kgc(J, obj2gco(cdataV(tv)), IRT_CDATA); + } + } else { + lj_trace_err(J, LJ_TRERR_NOCACHE); + } + } /* else: interpreter will throw. */ +} + +/* -- FFI library functions ----------------------------------------------- */ + +static TRef crec_toint(jit_State *J, CTState *cts, TRef sp, TValue *sval) +{ + return crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, sp, sval); +} + +void LJ_FASTCALL recff_ffi_new(jit_State *J, RecordFFData *rd) +{ + crec_alloc(J, rd, argv2ctype(J, J->base[0], &rd->argv[0])); +} + +void LJ_FASTCALL recff_ffi_errno(jit_State *J, RecordFFData *rd) +{ + UNUSED(rd); + if (J->base[0]) + lj_trace_err(J, LJ_TRERR_NYICALL); + J->base[0] = lj_ir_call(J, IRCALL_lj_vm_errno); +} + +void LJ_FASTCALL recff_ffi_string(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + TRef tr = J->base[0]; + if (tr) { + TRef trlen = J->base[1]; + if (!tref_isnil(trlen)) { + trlen = crec_toint(J, cts, trlen, &rd->argv[1]); + tr = crec_ct_tv(J, ctype_get(cts, CTID_P_CVOID), 0, tr, &rd->argv[0]); + } else { + tr = crec_ct_tv(J, ctype_get(cts, CTID_P_CCHAR), 0, tr, &rd->argv[0]); + trlen = lj_ir_call(J, IRCALL_strlen, tr); + } + J->base[0] = emitir(IRT(IR_XSNEW, IRT_STR), tr, trlen); + } /* else: interpreter will throw. */ +} + +void LJ_FASTCALL recff_ffi_copy(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + TRef trdst = J->base[0], trsrc = J->base[1], trlen = J->base[2]; + if (trdst && trsrc && (trlen || tref_isstr(trsrc))) { + trdst = crec_ct_tv(J, ctype_get(cts, CTID_P_VOID), 0, trdst, &rd->argv[0]); + trsrc = crec_ct_tv(J, ctype_get(cts, CTID_P_CVOID), 0, trsrc, &rd->argv[1]); + if (trlen) { + trlen = crec_toint(J, cts, trlen, &rd->argv[2]); + } else { + trlen = emitir(IRTI(IR_FLOAD), J->base[1], IRFL_STR_LEN); + trlen = emitir(IRTI(IR_ADD), trlen, lj_ir_kint(J, 1)); + } + rd->nres = 0; + crec_copy(J, trdst, trsrc, trlen, NULL); + } /* else: interpreter will throw. */ +} + +void LJ_FASTCALL recff_ffi_fill(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + TRef trdst = J->base[0], trlen = J->base[1], trfill = J->base[2]; + if (trdst && trlen) { + CTSize step = 1; + if (tviscdata(&rd->argv[0])) { /* Get alignment of original destination. */ + CTSize sz; + CType *ct = ctype_raw(cts, cdataV(&rd->argv[0])->ctypeid); + if (ctype_isptr(ct->info)) + ct = ctype_rawchild(cts, ct); + step = (1u<argv[0]); + trlen = crec_toint(J, cts, trlen, &rd->argv[1]); + if (trfill) + trfill = crec_toint(J, cts, trfill, &rd->argv[2]); + else + trfill = lj_ir_kint(J, 0); + rd->nres = 0; + crec_fill(J, trdst, trlen, trfill, step); + } /* else: interpreter will throw. */ +} + +void LJ_FASTCALL recff_ffi_typeof(jit_State *J, RecordFFData *rd) +{ + if (tref_iscdata(J->base[0])) { + TRef trid = lj_ir_kint(J, argv2ctype(J, J->base[0], &rd->argv[0])); + J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), + lj_ir_kint(J, CTID_CTYPEID), trid); + } else { + setfuncV(J->L, &J->errinfo, J->fn); + lj_trace_err_info(J, LJ_TRERR_NYIFFU); + } +} + +void LJ_FASTCALL recff_ffi_istype(jit_State *J, RecordFFData *rd) +{ + argv2ctype(J, J->base[0], &rd->argv[0]); + if (tref_iscdata(J->base[1])) { + argv2ctype(J, J->base[1], &rd->argv[1]); + J->postproc = LJ_POST_FIXBOOL; + J->base[0] = TREF_TRUE; + } else { + J->base[0] = TREF_FALSE; + } +} + +void LJ_FASTCALL recff_ffi_abi(jit_State *J, RecordFFData *rd) +{ + if (tref_isstr(J->base[0])) { + /* Specialize to the ABI string to make the boolean result a constant. */ + emitir(IRTG(IR_EQ, IRT_STR), J->base[0], lj_ir_kstr(J, strV(&rd->argv[0]))); + J->postproc = LJ_POST_FIXBOOL; + J->base[0] = TREF_TRUE; + } else { + lj_trace_err(J, LJ_TRERR_BADTYPE); + } +} + +/* Record ffi.sizeof(), ffi.alignof(), ffi.offsetof(). */ +void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd) +{ + CTypeID id = argv2ctype(J, J->base[0], &rd->argv[0]); + if (rd->data == FF_ffi_sizeof) { + CType *ct = lj_ctype_rawref(ctype_ctsG(J2G(J)), id); + if (ctype_isvltype(ct->info)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + } else if (rd->data == FF_ffi_offsetof) { /* Specialize to the field name. */ + if (!tref_isstr(J->base[1])) + lj_trace_err(J, LJ_TRERR_BADTYPE); + emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, strV(&rd->argv[1]))); + rd->nres = 3; /* Just in case. */ + } + J->postproc = LJ_POST_FIXCONST; + J->base[0] = J->base[1] = J->base[2] = TREF_NIL; +} + +void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd) +{ + argv2cdata(J, J->base[0], &rd->argv[0]); + crec_finalizer(J, J->base[0], &rd->argv[1]); +} + +/* -- Miscellaneous library functions ------------------------------------- */ + +void LJ_FASTCALL lj_crecord_tonumber(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CType *d, *ct = lj_ctype_rawref(cts, cdataV(&rd->argv[0])->ctypeid); + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + if (ctype_isnum(ct->info) || ctype_iscomplex(ct->info)) { + if (ctype_isinteger_or_bool(ct->info) && ct->size <= 4 && + !(ct->size == 4 && (ct->info & CTF_UNSIGNED))) + d = ctype_get(cts, CTID_INT32); + else + d = ctype_get(cts, CTID_DOUBLE); + J->base[0] = crec_ct_tv(J, d, 0, J->base[0], &rd->argv[0]); + } else { + J->base[0] = TREF_NIL; + } +} + +#undef IR +#undef emitir +#undef emitconv + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.h b/src/3rd party/luajit-2.0/src/lj_crecord.h new file mode 100644 index 00000000000..a4628cacad5 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_crecord.h @@ -0,0 +1,31 @@ +/* +** Trace recorder for C data operations. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CRECORD_H +#define _LJ_CRECORD_H + +#include "lj_obj.h" +#include "lj_jit.h" +#include "lj_ffrecord.h" + +#if LJ_HASJIT && LJ_HASFFI +LJ_FUNC void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_cdata_call(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_cdata_arith(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_clib_index(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_new(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_errno(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_string(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_copy(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_fill(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_typeof(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_istype(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_abi(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd); +LJ_FUNC void LJ_FASTCALL lj_crecord_tonumber(jit_State *J, RecordFFData *rd); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.c b/src/3rd party/luajit-2.0/src/lj_ctype.c new file mode 100644 index 00000000000..ac301749425 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ctype.c @@ -0,0 +1,634 @@ +/* +** C type management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include "lj_obj.h" + +#if LJ_HASFFI + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_ctype.h" +#include "lj_ccallback.h" + +/* -- C type definitions -------------------------------------------------- */ + +/* Predefined typedefs. */ +#define CTTDDEF(_) \ + /* Vararg handling. */ \ + _("va_list", P_VOID) \ + _("__builtin_va_list", P_VOID) \ + _("__gnuc_va_list", P_VOID) \ + /* From stddef.h. */ \ + _("ptrdiff_t", INT_PSZ) \ + _("size_t", UINT_PSZ) \ + _("wchar_t", WCHAR) \ + /* Subset of stdint.h. */ \ + _("int8_t", INT8) \ + _("int16_t", INT16) \ + _("int32_t", INT32) \ + _("int64_t", INT64) \ + _("uint8_t", UINT8) \ + _("uint16_t", UINT16) \ + _("uint32_t", UINT32) \ + _("uint64_t", UINT64) \ + _("intptr_t", INT_PSZ) \ + _("uintptr_t", UINT_PSZ) \ + /* End of typedef list. */ + +/* Keywords (only the ones we actually care for). */ +#define CTKWDEF(_) \ + /* Type specifiers. */ \ + _("void", -1, CTOK_VOID) \ + _("_Bool", 0, CTOK_BOOL) \ + _("bool", 1, CTOK_BOOL) \ + _("char", 1, CTOK_CHAR) \ + _("int", 4, CTOK_INT) \ + _("__int8", 1, CTOK_INT) \ + _("__int16", 2, CTOK_INT) \ + _("__int32", 4, CTOK_INT) \ + _("__int64", 8, CTOK_INT) \ + _("float", 4, CTOK_FP) \ + _("double", 8, CTOK_FP) \ + _("long", 0, CTOK_LONG) \ + _("short", 0, CTOK_SHORT) \ + _("_Complex", 0, CTOK_COMPLEX) \ + _("complex", 0, CTOK_COMPLEX) \ + _("__complex", 0, CTOK_COMPLEX) \ + _("__complex__", 0, CTOK_COMPLEX) \ + _("signed", 0, CTOK_SIGNED) \ + _("__signed", 0, CTOK_SIGNED) \ + _("__signed__", 0, CTOK_SIGNED) \ + _("unsigned", 0, CTOK_UNSIGNED) \ + /* Type qualifiers. */ \ + _("const", 0, CTOK_CONST) \ + _("__const", 0, CTOK_CONST) \ + _("__const__", 0, CTOK_CONST) \ + _("volatile", 0, CTOK_VOLATILE) \ + _("__volatile", 0, CTOK_VOLATILE) \ + _("__volatile__", 0, CTOK_VOLATILE) \ + _("restrict", 0, CTOK_RESTRICT) \ + _("__restrict", 0, CTOK_RESTRICT) \ + _("__restrict__", 0, CTOK_RESTRICT) \ + _("inline", 0, CTOK_INLINE) \ + _("__inline", 0, CTOK_INLINE) \ + _("__inline__", 0, CTOK_INLINE) \ + /* Storage class specifiers. */ \ + _("typedef", 0, CTOK_TYPEDEF) \ + _("extern", 0, CTOK_EXTERN) \ + _("static", 0, CTOK_STATIC) \ + _("auto", 0, CTOK_AUTO) \ + _("register", 0, CTOK_REGISTER) \ + /* GCC Attributes. */ \ + _("__extension__", 0, CTOK_EXTENSION) \ + _("__attribute", 0, CTOK_ATTRIBUTE) \ + _("__attribute__", 0, CTOK_ATTRIBUTE) \ + _("asm", 0, CTOK_ASM) \ + _("__asm", 0, CTOK_ASM) \ + _("__asm__", 0, CTOK_ASM) \ + /* MSVC Attributes. */ \ + _("__declspec", 0, CTOK_DECLSPEC) \ + _("__cdecl", CTCC_CDECL, CTOK_CCDECL) \ + _("__thiscall", CTCC_THISCALL, CTOK_CCDECL) \ + _("__fastcall", CTCC_FASTCALL, CTOK_CCDECL) \ + _("__stdcall", CTCC_STDCALL, CTOK_CCDECL) \ + _("__ptr32", 4, CTOK_PTRSZ) \ + _("__ptr64", 8, CTOK_PTRSZ) \ + /* Other type specifiers. */ \ + _("struct", 0, CTOK_STRUCT) \ + _("union", 0, CTOK_UNION) \ + _("enum", 0, CTOK_ENUM) \ + /* Operators. */ \ + _("sizeof", 0, CTOK_SIZEOF) \ + _("__alignof", 0, CTOK_ALIGNOF) \ + _("__alignof__", 0, CTOK_ALIGNOF) \ + /* End of keyword list. */ + +/* Type info for predefined types. Size merged in. */ +static CTInfo lj_ctype_typeinfo[] = { +#define CTTYINFODEF(id, sz, ct, info) CTINFO((ct),(((sz)&0x3fu)<<10)+(info)), +#define CTTDINFODEF(name, id) CTINFO(CT_TYPEDEF, CTID_##id), +#define CTKWINFODEF(name, sz, kw) CTINFO(CT_KW,(((sz)&0x3fu)<<10)+(kw)), +CTTYDEF(CTTYINFODEF) +CTTDDEF(CTTDINFODEF) +CTKWDEF(CTKWINFODEF) +#undef CTTYINFODEF +#undef CTTDINFODEF +#undef CTKWINFODEF + 0 +}; + +/* Predefined type names collected in a single string. */ +static const char * const lj_ctype_typenames = +#define CTTDNAMEDEF(name, id) name "\0" +#define CTKWNAMEDEF(name, sz, cds) name "\0" +CTTDDEF(CTTDNAMEDEF) +CTKWDEF(CTKWNAMEDEF) +#undef CTTDNAMEDEF +#undef CTKWNAMEDEF +; + +#define CTTYPEINFO_NUM (sizeof(lj_ctype_typeinfo)/sizeof(CTInfo)-1) +#ifdef LUAJIT_CTYPE_CHECK_ANCHOR +#define CTTYPETAB_MIN CTTYPEINFO_NUM +#else +#define CTTYPETAB_MIN 128 +#endif + +/* -- C type interning ---------------------------------------------------- */ + +#define ct_hashtype(info, size) (hashrot(info, size) & CTHASH_MASK) +#define ct_hashname(name) \ + (hashrot(u32ptr(name), u32ptr(name) + HASH_BIAS) & CTHASH_MASK) + +/* Create new type element. */ +CTypeID lj_ctype_new(CTState *cts, CType **ctp) +{ + CTypeID id = cts->top; + CType *ct; + lua_assert(cts->L); + if (LJ_UNLIKELY(id >= cts->sizetab)) { + if (id >= CTID_MAX) lj_err_msg(cts->L, LJ_ERR_TABOV); +#ifdef LUAJIT_CTYPE_CHECK_ANCHOR + ct = lj_mem_newvec(cts->L, id+1, CType); + memcpy(ct, cts->tab, id*sizeof(CType)); + memset(cts->tab, 0, id*sizeof(CType)); + lj_mem_freevec(cts->g, cts->tab, cts->sizetab, CType); + cts->tab = ct; + cts->sizetab = id+1; +#else + lj_mem_growvec(cts->L, cts->tab, cts->sizetab, CTID_MAX, CType); +#endif + } + cts->top = id+1; + *ctp = ct = &cts->tab[id]; + ct->info = 0; + ct->size = 0; + ct->sib = 0; + ct->next = 0; + setgcrefnull(ct->name); + return id; +} + +/* Intern a type element. */ +CTypeID lj_ctype_intern(CTState *cts, CTInfo info, CTSize size) +{ + uint32_t h = ct_hashtype(info, size); + CTypeID id = cts->hash[h]; + lua_assert(cts->L); + while (id) { + CType *ct = ctype_get(cts, id); + if (ct->info == info && ct->size == size) + return id; + id = ct->next; + } + id = cts->top; + if (LJ_UNLIKELY(id >= cts->sizetab)) { + if (id >= CTID_MAX) lj_err_msg(cts->L, LJ_ERR_TABOV); + lj_mem_growvec(cts->L, cts->tab, cts->sizetab, CTID_MAX, CType); + } + cts->top = id+1; + cts->tab[id].info = info; + cts->tab[id].size = size; + cts->tab[id].sib = 0; + cts->tab[id].next = cts->hash[h]; + setgcrefnull(cts->tab[id].name); + cts->hash[h] = (CTypeID1)id; + return id; +} + +/* Add type element to hash table. */ +static void ctype_addtype(CTState *cts, CType *ct, CTypeID id) +{ + uint32_t h = ct_hashtype(ct->info, ct->size); + ct->next = cts->hash[h]; + cts->hash[h] = (CTypeID1)id; +} + +/* Add named element to hash table. */ +void lj_ctype_addname(CTState *cts, CType *ct, CTypeID id) +{ + uint32_t h = ct_hashname(gcref(ct->name)); + ct->next = cts->hash[h]; + cts->hash[h] = (CTypeID1)id; +} + +/* Get a C type by name, matching the type mask. */ +CTypeID lj_ctype_getname(CTState *cts, CType **ctp, GCstr *name, uint32_t tmask) +{ + CTypeID id = cts->hash[ct_hashname(name)]; + while (id) { + CType *ct = ctype_get(cts, id); + if (gcref(ct->name) == obj2gco(name) && + ((tmask >> ctype_type(ct->info)) & 1)) { + *ctp = ct; + return id; + } + id = ct->next; + } + *ctp = &cts->tab[0]; /* Simplify caller logic. ctype_get() would assert. */ + return 0; +} + +/* Get a struct/union/enum/function field by name. */ +CType *lj_ctype_getfieldq(CTState *cts, CType *ct, GCstr *name, CTSize *ofs, + CTInfo *qual) +{ + while (ct->sib) { + ct = ctype_get(cts, ct->sib); + if (gcref(ct->name) == obj2gco(name)) { + *ofs = ct->size; + return ct; + } + if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { + CType *fct, *cct = ctype_child(cts, ct); + CTInfo q = 0; + while (ctype_isattrib(cct->info)) { + if (ctype_attrib(cct->info) == CTA_QUAL) q |= cct->size; + cct = ctype_child(cts, cct); + } + fct = lj_ctype_getfieldq(cts, cct, name, ofs, qual); + if (fct) { + if (qual) *qual |= q; + *ofs += ct->size; + return fct; + } + } + } + return NULL; /* Not found. */ +} + +/* -- C type information -------------------------------------------------- */ + +/* Follow references and get raw type for a C type ID. */ +CType *lj_ctype_rawref(CTState *cts, CTypeID id) +{ + CType *ct = ctype_get(cts, id); + while (ctype_isattrib(ct->info) || ctype_isref(ct->info)) + ct = ctype_child(cts, ct); + return ct; +} + +/* Get size for a C type ID. Does NOT support VLA/VLS. */ +CTSize lj_ctype_size(CTState *cts, CTypeID id) +{ + CType *ct = ctype_raw(cts, id); + return ctype_hassize(ct->info) ? ct->size : CTSIZE_INVALID; +} + +/* Get size for a variable-length C type. Does NOT support other C types. */ +CTSize lj_ctype_vlsize(CTState *cts, CType *ct, CTSize nelem) +{ + uint64_t xsz = 0; + if (ctype_isstruct(ct->info)) { + CTypeID arrid = 0, fid = ct->sib; + xsz = ct->size; /* Add the struct size. */ + while (fid) { + CType *ctf = ctype_get(cts, fid); + if (ctype_type(ctf->info) == CT_FIELD) + arrid = ctype_cid(ctf->info); /* Remember last field of VLS. */ + fid = ctf->sib; + } + ct = ctype_raw(cts, arrid); + } + lua_assert(ctype_isvlarray(ct->info)); /* Must be a VLA. */ + ct = ctype_rawchild(cts, ct); /* Get array element. */ + lua_assert(ctype_hassize(ct->info)); + /* Calculate actual size of VLA and check for overflow. */ + xsz += (uint64_t)ct->size * nelem; + return xsz < 0x80000000u ? (CTSize)xsz : CTSIZE_INVALID; +} + +/* Get type, qualifiers, size and alignment for a C type ID. */ +CTInfo lj_ctype_info(CTState *cts, CTypeID id, CTSize *szp) +{ + CTInfo qual = 0; + CType *ct = ctype_get(cts, id); + for (;;) { + CTInfo info = ct->info; + if (ctype_isenum(info)) { + /* Follow child. Need to look at its attributes, too. */ + } else if (ctype_isattrib(info)) { + if (ctype_isxattrib(info, CTA_QUAL)) + qual |= ct->size; + else if (ctype_isxattrib(info, CTA_ALIGN) && !(qual & CTFP_ALIGNED)) + qual |= CTFP_ALIGNED + CTALIGN(ct->size); + } else { + if (!(qual & CTFP_ALIGNED)) qual |= (info & CTF_ALIGN); + qual |= (info & ~(CTF_ALIGN|CTMASK_CID)); + lua_assert(ctype_hassize(info) || ctype_isfunc(info)); + *szp = ctype_isfunc(info) ? CTSIZE_INVALID : ct->size; + break; + } + ct = ctype_get(cts, ctype_cid(info)); + } + return qual; +} + +/* Get ctype metamethod. */ +cTValue *lj_ctype_meta(CTState *cts, CTypeID id, MMS mm) +{ + CType *ct = ctype_get(cts, id); + cTValue *tv; + while (ctype_isattrib(ct->info) || ctype_isref(ct->info)) { + id = ctype_cid(ct->info); + ct = ctype_get(cts, id); + } + if (ctype_isptr(ct->info) && + ctype_isfunc(ctype_get(cts, ctype_cid(ct->info))->info)) + tv = lj_tab_getstr(cts->miscmap, &cts->g->strempty); + else + tv = lj_tab_getinth(cts->miscmap, -(int32_t)id); + if (tv && tvistab(tv) && + (tv = lj_tab_getstr(tabV(tv), mmname_str(cts->g, mm))) && !tvisnil(tv)) + return tv; + return NULL; +} + +/* -- C type representation ----------------------------------------------- */ + +/* Fixed max. length of a C type representation. */ +#define CTREPR_MAX 512 + +typedef struct CTRepr { + char *pb, *pe; + CTState *cts; + lua_State *L; + int needsp; + int ok; + char buf[CTREPR_MAX]; +} CTRepr; + +/* Prepend string. */ +static void ctype_prepstr(CTRepr *ctr, const char *str, MSize len) +{ + char *p = ctr->pb; + if (ctr->buf + len+1 > p) { ctr->ok = 0; return; } + if (ctr->needsp) *--p = ' '; + ctr->needsp = 1; + p -= len; + while (len-- > 0) p[len] = str[len]; + ctr->pb = p; +} + +#define ctype_preplit(ctr, str) ctype_prepstr((ctr), "" str, sizeof(str)-1) + +/* Prepend char. */ +static void ctype_prepc(CTRepr *ctr, int c) +{ + if (ctr->buf >= ctr->pb) { ctr->ok = 0; return; } + *--ctr->pb = c; +} + +/* Prepend number. */ +static void ctype_prepnum(CTRepr *ctr, uint32_t n) +{ + char *p = ctr->pb; + if (ctr->buf + 10+1 > p) { ctr->ok = 0; return; } + do { *--p = (char)('0' + n % 10); } while (n /= 10); + ctr->pb = p; + ctr->needsp = 0; +} + +/* Append char. */ +static void ctype_appc(CTRepr *ctr, int c) +{ + if (ctr->pe >= ctr->buf + CTREPR_MAX) { ctr->ok = 0; return; } + *ctr->pe++ = c; +} + +/* Append number. */ +static void ctype_appnum(CTRepr *ctr, uint32_t n) +{ + char buf[10]; + char *p = buf+sizeof(buf); + char *q = ctr->pe; + if (q > ctr->buf + CTREPR_MAX - 10) { ctr->ok = 0; return; } + do { *--p = (char)('0' + n % 10); } while (n /= 10); + do { *q++ = *p++; } while (p < buf+sizeof(buf)); + ctr->pe = q; +} + +/* Prepend qualifiers. */ +static void ctype_prepqual(CTRepr *ctr, CTInfo info) +{ + if ((info & CTF_VOLATILE)) ctype_preplit(ctr, "volatile"); + if ((info & CTF_CONST)) ctype_preplit(ctr, "const"); +} + +/* Prepend named type. */ +static void ctype_preptype(CTRepr *ctr, CType *ct, CTInfo qual, const char *t) +{ + if (gcref(ct->name)) { + GCstr *str = gco2str(gcref(ct->name)); + ctype_prepstr(ctr, strdata(str), str->len); + } else { + if (ctr->needsp) ctype_prepc(ctr, ' '); + ctype_prepnum(ctr, ctype_typeid(ctr->cts, ct)); + ctr->needsp = 1; + } + ctype_prepstr(ctr, t, (MSize)strlen(t)); + ctype_prepqual(ctr, qual); +} + +static void ctype_repr(CTRepr *ctr, CTypeID id) +{ + CType *ct = ctype_get(ctr->cts, id); + CTInfo qual = 0; + int ptrto = 0; + for (;;) { + CTInfo info = ct->info; + CTSize size = ct->size; + switch (ctype_type(info)) { + case CT_NUM: + if ((info & CTF_BOOL)) { + ctype_preplit(ctr, "bool"); + } else if ((info & CTF_FP)) { + if (size == sizeof(double)) ctype_preplit(ctr, "double"); + else if (size == sizeof(float)) ctype_preplit(ctr, "float"); + else ctype_preplit(ctr, "long double"); + } else if (size == 1) { + if (!((info ^ CTF_UCHAR) & CTF_UNSIGNED)) ctype_preplit(ctr, "char"); + else if (CTF_UCHAR) ctype_preplit(ctr, "signed char"); + else ctype_preplit(ctr, "unsigned char"); + } else if (size < 8) { + if (size == 4) ctype_preplit(ctr, "int"); + else ctype_preplit(ctr, "short"); + if ((info & CTF_UNSIGNED)) ctype_preplit(ctr, "unsigned"); + } else { + ctype_preplit(ctr, "_t"); + ctype_prepnum(ctr, size*8); + ctype_preplit(ctr, "int"); + if ((info & CTF_UNSIGNED)) ctype_prepc(ctr, 'u'); + } + ctype_prepqual(ctr, (qual|info)); + return; + case CT_VOID: + ctype_preplit(ctr, "void"); + ctype_prepqual(ctr, (qual|info)); + return; + case CT_STRUCT: + ctype_preptype(ctr, ct, qual, (info & CTF_UNION) ? "union" : "struct"); + return; + case CT_ENUM: + if (id == CTID_CTYPEID) { + ctype_preplit(ctr, "ctype"); + return; + } + ctype_preptype(ctr, ct, qual, "enum"); + return; + case CT_ATTRIB: + if (ctype_attrib(info) == CTA_QUAL) qual |= size; + break; + case CT_PTR: + if ((info & CTF_REF)) { + ctype_prepc(ctr, '&'); + } else { + ctype_prepqual(ctr, (qual|info)); + if (LJ_64 && size == 4) ctype_preplit(ctr, "__ptr32"); + ctype_prepc(ctr, '*'); + } + qual = 0; + ptrto = 1; + ctr->needsp = 1; + break; + case CT_ARRAY: + if (ctype_isrefarray(info)) { + ctr->needsp = 1; + if (ptrto) { ptrto = 0; ctype_prepc(ctr, '('); ctype_appc(ctr, ')'); } + ctype_appc(ctr, '['); + if (size != CTSIZE_INVALID) { + CTSize csize = ctype_child(ctr->cts, ct)->size; + ctype_appnum(ctr, csize ? size/csize : 0); + } else if ((info & CTF_VLA)) { + ctype_appc(ctr, '?'); + } + ctype_appc(ctr, ']'); + } else if ((info & CTF_COMPLEX)) { + if (size == 2*sizeof(float)) ctype_preplit(ctr, "float"); + ctype_preplit(ctr, "complex"); + return; + } else { + ctype_preplit(ctr, ")))"); + ctype_prepnum(ctr, size); + ctype_preplit(ctr, "__attribute__((vector_size("); + } + break; + case CT_FUNC: + ctr->needsp = 1; + if (ptrto) { ptrto = 0; ctype_prepc(ctr, '('); ctype_appc(ctr, ')'); } + ctype_appc(ctr, '('); + ctype_appc(ctr, ')'); + break; + default: + lua_assert(0); + break; + } + ct = ctype_get(ctr->cts, ctype_cid(info)); + } +} + +/* Return a printable representation of a C type. */ +GCstr *lj_ctype_repr(lua_State *L, CTypeID id, GCstr *name) +{ + global_State *g = G(L); + CTRepr ctr; + ctr.pb = ctr.pe = &ctr.buf[CTREPR_MAX/2]; + ctr.cts = ctype_ctsG(g); + ctr.L = L; + ctr.ok = 1; + ctr.needsp = 0; + if (name) ctype_prepstr(&ctr, strdata(name), name->len); + ctype_repr(&ctr, id); + if (LJ_UNLIKELY(!ctr.ok)) return lj_str_newlit(L, "?"); + return lj_str_new(L, ctr.pb, ctr.pe - ctr.pb); +} + +/* Convert int64_t/uint64_t to string with 'LL' or 'ULL' suffix. */ +GCstr *lj_ctype_repr_int64(lua_State *L, uint64_t n, int isunsigned) +{ + char buf[1+20+3]; + char *p = buf+sizeof(buf); + int sign = 0; + *--p = 'L'; *--p = 'L'; + if (isunsigned) { + *--p = 'U'; + } else if ((int64_t)n < 0) { + n = (uint64_t)-(int64_t)n; + sign = 1; + } + do { *--p = (char)('0' + n % 10); } while (n /= 10); + if (sign) *--p = '-'; + return lj_str_new(L, p, (size_t)(buf+sizeof(buf)-p)); +} + +/* Convert complex to string with 'i' or 'I' suffix. */ +GCstr *lj_ctype_repr_complex(lua_State *L, void *sp, CTSize size) +{ + char buf[2*LJ_STR_NUMBUF+2+1]; + TValue re, im; + size_t len; + if (size == 2*sizeof(double)) { + re.n = *(double *)sp; im.n = ((double *)sp)[1]; + } else { + re.n = (double)*(float *)sp; im.n = (double)((float *)sp)[1]; + } + len = lj_str_bufnum(buf, &re); + if (!(im.u32.hi & 0x80000000u) || im.n != im.n) buf[len++] = '+'; + len += lj_str_bufnum(buf+len, &im); + buf[len] = buf[len-1] >= 'a' ? 'I' : 'i'; + return lj_str_new(L, buf, len+1); +} + +/* -- C type state -------------------------------------------------------- */ + +/* Initialize C type table and state. */ +CTState *lj_ctype_init(lua_State *L) +{ + CTState *cts = lj_mem_newt(L, sizeof(CTState), CTState); + CType *ct = lj_mem_newvec(L, CTTYPETAB_MIN, CType); + const char *name = lj_ctype_typenames; + CTypeID id; + memset(cts, 0, sizeof(CTState)); + cts->tab = ct; + cts->sizetab = CTTYPETAB_MIN; + cts->top = CTTYPEINFO_NUM; + cts->L = NULL; + cts->g = G(L); + for (id = 0; id < CTTYPEINFO_NUM; id++, ct++) { + CTInfo info = lj_ctype_typeinfo[id]; + ct->size = (CTSize)((int32_t)(info << 16) >> 26); + ct->info = info & 0xffff03ffu; + ct->sib = 0; + if (ctype_type(info) == CT_KW || ctype_istypedef(info)) { + size_t len = strlen(name); + GCstr *str = lj_str_new(L, name, len); + ctype_setname(ct, str); + name += len+1; + lj_ctype_addname(cts, ct, id); + } else { + setgcrefnull(ct->name); + ct->next = 0; + if (!ctype_isenum(info)) ctype_addtype(cts, ct, id); + } + } + setmref(G(L)->ctype_state, cts); + return cts; +} + +/* Free C type table and state. */ +void lj_ctype_freestate(global_State *g) +{ + CTState *cts = ctype_ctsG(g); + if (cts) { + lj_ccallback_mcode_free(cts); + lj_mem_freevec(g, cts->tab, cts->sizetab, CType); + lj_mem_freevec(g, cts->cb.cbid, cts->cb.sizeid, CTypeID1); + lj_mem_freet(g, cts); + } +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.h b/src/3rd party/luajit-2.0/src/lj_ctype.h new file mode 100644 index 00000000000..3df26f095c2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ctype.h @@ -0,0 +1,461 @@ +/* +** C type management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_CTYPE_H +#define _LJ_CTYPE_H + +#include "lj_obj.h" +#include "lj_gc.h" + +#if LJ_HASFFI + +/* -- C type definitions -------------------------------------------------- */ + +/* C type numbers. Highest 4 bits of C type info. ORDER CT. */ +enum { + /* Externally visible types. */ + CT_NUM, /* Integer or floating-point numbers. */ + CT_STRUCT, /* Struct or union. */ + CT_PTR, /* Pointer or reference. */ + CT_ARRAY, /* Array or complex type. */ + CT_MAYCONVERT = CT_ARRAY, + CT_VOID, /* Void type. */ + CT_ENUM, /* Enumeration. */ + CT_HASSIZE = CT_ENUM, /* Last type where ct->size holds the actual size. */ + CT_FUNC, /* Function. */ + CT_TYPEDEF, /* Typedef. */ + CT_ATTRIB, /* Miscellaneous attributes. */ + /* Internal element types. */ + CT_FIELD, /* Struct/union field or function parameter. */ + CT_BITFIELD, /* Struct/union bitfield. */ + CT_CONSTVAL, /* Constant value. */ + CT_EXTERN, /* External reference. */ + CT_KW /* Keyword. */ +}; + +LJ_STATIC_ASSERT(((int)CT_PTR & (int)CT_ARRAY) == CT_PTR); +LJ_STATIC_ASSERT(((int)CT_STRUCT & (int)CT_ARRAY) == CT_STRUCT); + +/* +** ---------- info ------------ +** |type flags... A cid | size | sib | next | name | +** +----------------------------+--------+-------+-------+-------+-- +** |NUM BFvcUL.. A | size | | type | | +** |STRUCT ..vcU..V A | size | field | name? | name? | +** |PTR ..vcR... A cid | size | | type | | +** |ARRAY VCvc...V A cid | size | | type | | +** |VOID ..vc.... A | size | | type | | +** |ENUM A cid | size | const | name? | name? | +** |FUNC ....VS.. cc cid | nargs | field | name? | name? | +** |TYPEDEF cid | | | name | name | +** |ATTRIB attrnum cid | attr | sib? | type? | | +** |FIELD cid | offset | field | | name? | +** |BITFIELD B.vcU csz bsz pos | offset | field | | name? | +** |CONSTVAL c cid | value | const | name | name | +** |EXTERN cid | | sib? | name | name | +** |KW tok | size | | name | name | +** +----------------------------+--------+-------+-------+-------+-- +** ^^ ^^--- bits used for C type conversion dispatch +*/ + +/* C type info flags. TFFArrrr */ +#define CTF_BOOL 0x08000000u /* Boolean: NUM, BITFIELD. */ +#define CTF_FP 0x04000000u /* Floating-point: NUM. */ +#define CTF_CONST 0x02000000u /* Const qualifier. */ +#define CTF_VOLATILE 0x01000000u /* Volatile qualifier. */ +#define CTF_UNSIGNED 0x00800000u /* Unsigned: NUM, BITFIELD. */ +#define CTF_LONG 0x00400000u /* Long: NUM. */ +#define CTF_VLA 0x00100000u /* Variable-length: ARRAY, STRUCT. */ +#define CTF_REF 0x00800000u /* Reference: PTR. */ +#define CTF_VECTOR 0x08000000u /* Vector: ARRAY. */ +#define CTF_COMPLEX 0x04000000u /* Complex: ARRAY. */ +#define CTF_UNION 0x00800000u /* Union: STRUCT. */ +#define CTF_VARARG 0x00800000u /* Vararg: FUNC. */ +#define CTF_SSEREGPARM 0x00400000u /* SSE register parameters: FUNC. */ + +#define CTF_QUAL (CTF_CONST|CTF_VOLATILE) +#define CTF_ALIGN (CTMASK_ALIGN< 0 ? CTF_UNSIGNED : 0) + +/* Flags used in parser. .F.Ammvf cp->attr */ +#define CTFP_ALIGNED 0x00000001u /* cp->attr + ALIGN */ +#define CTFP_PACKED 0x00000002u /* cp->attr */ +/* ...C...f cp->fattr */ +#define CTFP_CCONV 0x00000001u /* cp->fattr + CCONV/[SSE]REGPARM */ + +/* C type info bitfields. */ +#define CTMASK_CID 0x0000ffffu /* Max. 65536 type IDs. */ +#define CTMASK_NUM 0xf0000000u /* Max. 16 type numbers. */ +#define CTSHIFT_NUM 28 +#define CTMASK_ALIGN 15 /* Max. alignment is 2^15. */ +#define CTSHIFT_ALIGN 16 +#define CTMASK_ATTRIB 255 /* Max. 256 attributes. */ +#define CTSHIFT_ATTRIB 16 +#define CTMASK_CCONV 3 /* Max. 4 calling conventions. */ +#define CTSHIFT_CCONV 16 +#define CTMASK_REGPARM 3 /* Max. 0-3 regparms. */ +#define CTSHIFT_REGPARM 18 +/* Bitfields only used in parser. */ +#define CTMASK_VSIZEP 15 /* Max. vector size is 2^15. */ +#define CTSHIFT_VSIZEP 4 +#define CTMASK_MSIZEP 255 /* Max. type size (via mode) is 128. */ +#define CTSHIFT_MSIZEP 8 + +/* Info bits for BITFIELD. Max. size of bitfield is 64 bits. */ +#define CTBSZ_MAX 32 /* Max. size of bitfield is 32 bit. */ +#define CTBSZ_FIELD 127 /* Temp. marker for regular field. */ +#define CTMASK_BITPOS 127 +#define CTMASK_BITBSZ 127 +#define CTMASK_BITCSZ 127 +#define CTSHIFT_BITPOS 0 +#define CTSHIFT_BITBSZ 8 +#define CTSHIFT_BITCSZ 16 + +#define CTF_INSERT(info, field, val) \ + info = (info & ~(CTMASK_##field<> CTSHIFT_NUM) +#define ctype_cid(info) ((CTypeID)((info) & CTMASK_CID)) +#define ctype_align(info) (((info) >> CTSHIFT_ALIGN) & CTMASK_ALIGN) +#define ctype_attrib(info) (((info) >> CTSHIFT_ATTRIB) & CTMASK_ATTRIB) +#define ctype_bitpos(info) (((info) >> CTSHIFT_BITPOS) & CTMASK_BITPOS) +#define ctype_bitbsz(info) (((info) >> CTSHIFT_BITBSZ) & CTMASK_BITBSZ) +#define ctype_bitcsz(info) (((info) >> CTSHIFT_BITCSZ) & CTMASK_BITCSZ) +#define ctype_vsizeP(info) (((info) >> CTSHIFT_VSIZEP) & CTMASK_VSIZEP) +#define ctype_msizeP(info) (((info) >> CTSHIFT_MSIZEP) & CTMASK_MSIZEP) +#define ctype_cconv(info) (((info) >> CTSHIFT_CCONV) & CTMASK_CCONV) + +/* Simple type checks. */ +#define ctype_isnum(info) (ctype_type((info)) == CT_NUM) +#define ctype_isvoid(info) (ctype_type((info)) == CT_VOID) +#define ctype_isptr(info) (ctype_type((info)) == CT_PTR) +#define ctype_isarray(info) (ctype_type((info)) == CT_ARRAY) +#define ctype_isstruct(info) (ctype_type((info)) == CT_STRUCT) +#define ctype_isfunc(info) (ctype_type((info)) == CT_FUNC) +#define ctype_isenum(info) (ctype_type((info)) == CT_ENUM) +#define ctype_istypedef(info) (ctype_type((info)) == CT_TYPEDEF) +#define ctype_isattrib(info) (ctype_type((info)) == CT_ATTRIB) +#define ctype_isfield(info) (ctype_type((info)) == CT_FIELD) +#define ctype_isbitfield(info) (ctype_type((info)) == CT_BITFIELD) +#define ctype_isconstval(info) (ctype_type((info)) == CT_CONSTVAL) +#define ctype_isextern(info) (ctype_type((info)) == CT_EXTERN) +#define ctype_hassize(info) (ctype_type((info)) <= CT_HASSIZE) + +/* Combined type and flag checks. */ +#define ctype_isinteger(info) \ + (((info) & (CTMASK_NUM|CTF_BOOL|CTF_FP)) == CTINFO(CT_NUM, 0)) +#define ctype_isinteger_or_bool(info) \ + (((info) & (CTMASK_NUM|CTF_FP)) == CTINFO(CT_NUM, 0)) +#define ctype_isbool(info) \ + (((info) & (CTMASK_NUM|CTF_BOOL)) == CTINFO(CT_NUM, CTF_BOOL)) +#define ctype_isfp(info) \ + (((info) & (CTMASK_NUM|CTF_FP)) == CTINFO(CT_NUM, CTF_FP)) + +#define ctype_ispointer(info) \ + ((ctype_type(info) >> 1) == (CT_PTR >> 1)) /* Pointer or array. */ +#define ctype_isref(info) \ + (((info) & (CTMASK_NUM|CTF_REF)) == CTINFO(CT_PTR, CTF_REF)) + +#define ctype_isrefarray(info) \ + (((info) & (CTMASK_NUM|CTF_VECTOR|CTF_COMPLEX)) == CTINFO(CT_ARRAY, 0)) +#define ctype_isvector(info) \ + (((info) & (CTMASK_NUM|CTF_VECTOR)) == CTINFO(CT_ARRAY, CTF_VECTOR)) +#define ctype_iscomplex(info) \ + (((info) & (CTMASK_NUM|CTF_COMPLEX)) == CTINFO(CT_ARRAY, CTF_COMPLEX)) + +#define ctype_isvltype(info) \ + (((info) & ((CTMASK_NUM|CTF_VLA) - (2u<") _(STRING, "") \ + _(INTEGER, "") _(EOF, "") \ + _(OROR, "||") _(ANDAND, "&&") _(EQ, "==") _(NE, "!=") \ + _(LE, "<=") _(GE, ">=") _(SHL, "<<") _(SHR, ">>") _(DEREF, "->") + +/* Simple declaration specifiers. */ +#define CDSDEF(_) \ + _(VOID) _(BOOL) _(CHAR) _(INT) _(FP) \ + _(LONG) _(LONGLONG) _(SHORT) _(COMPLEX) _(SIGNED) _(UNSIGNED) \ + _(CONST) _(VOLATILE) _(RESTRICT) _(INLINE) \ + _(TYPEDEF) _(EXTERN) _(STATIC) _(AUTO) _(REGISTER) + +/* C keywords. */ +#define CKWDEF(_) \ + CDSDEF(_) _(EXTENSION) _(ASM) _(ATTRIBUTE) \ + _(DECLSPEC) _(CCDECL) _(PTRSZ) \ + _(STRUCT) _(UNION) _(ENUM) \ + _(SIZEOF) _(ALIGNOF) + +/* C token numbers. */ +enum { + CTOK_OFS = 255, +#define CTOKNUM(name, sym) CTOK_##name, +#define CKWNUM(name) CTOK_##name, +CTOKDEF(CTOKNUM) +CKWDEF(CKWNUM) +#undef CTOKNUM +#undef CKWNUM + CTOK_FIRSTDECL = CTOK_VOID, + CTOK_FIRSTSCL = CTOK_TYPEDEF, + CTOK_LASTDECLFLAG = CTOK_REGISTER, + CTOK_LASTDECL = CTOK_ENUM +}; + +/* Declaration specifier flags. */ +enum { +#define CDSFLAG(name) CDF_##name = (1u << (CTOK_##name - CTOK_FIRSTDECL)), +CDSDEF(CDSFLAG) +#undef CDSFLAG + CDF__END +}; + +#define CDF_SCL (CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC|CDF_AUTO|CDF_REGISTER) + +/* -- C type management --------------------------------------------------- */ + +#define ctype_ctsG(g) (mref((g)->ctype_state, CTState)) + +/* Get C type state. */ +static LJ_AINLINE CTState *ctype_cts(lua_State *L) +{ + CTState *cts = ctype_ctsG(G(L)); + cts->L = L; /* Save L for errors and allocations. */ + return cts; +} + +/* Save and restore state of C type table. */ +#define LJ_CTYPE_SAVE(cts) CTState savects_ = *(cts) +#define LJ_CTYPE_RESTORE(cts) \ + ((cts)->top = savects_.top, \ + memcpy((cts)->hash, savects_.hash, sizeof(savects_.hash))) + +/* Check C type ID for validity when assertions are enabled. */ +static LJ_AINLINE CTypeID ctype_check(CTState *cts, CTypeID id) +{ + lua_assert(id > 0 && id < cts->top); UNUSED(cts); + return id; +} + +/* Get C type for C type ID. */ +static LJ_AINLINE CType *ctype_get(CTState *cts, CTypeID id) +{ + return &cts->tab[ctype_check(cts, id)]; +} + +/* Get C type ID for a C type. */ +#define ctype_typeid(cts, ct) ((CTypeID)((ct) - (cts)->tab)) + +/* Get child C type. */ +static LJ_AINLINE CType *ctype_child(CTState *cts, CType *ct) +{ + lua_assert(!(ctype_isvoid(ct->info) || ctype_isstruct(ct->info) || + ctype_isbitfield(ct->info))); /* These don't have children. */ + return ctype_get(cts, ctype_cid(ct->info)); +} + +/* Get raw type for a C type ID. */ +static LJ_AINLINE CType *ctype_raw(CTState *cts, CTypeID id) +{ + CType *ct = ctype_get(cts, id); + while (ctype_isattrib(ct->info)) ct = ctype_child(cts, ct); + return ct; +} + +/* Get raw type of the child of a C type. */ +static LJ_AINLINE CType *ctype_rawchild(CTState *cts, CType *ct) +{ + do { ct = ctype_child(cts, ct); } while (ctype_isattrib(ct->info)); + return ct; +} + +/* Set the name of a C type table element. */ +static LJ_AINLINE void ctype_setname(CType *ct, GCstr *s) +{ + /* NOBARRIER: mark string as fixed -- the C type table is never collected. */ + fixstring(s); + setgcref(ct->name, obj2gco(s)); +} + +LJ_FUNC CTypeID lj_ctype_new(CTState *cts, CType **ctp); +LJ_FUNC CTypeID lj_ctype_intern(CTState *cts, CTInfo info, CTSize size); +LJ_FUNC void lj_ctype_addname(CTState *cts, CType *ct, CTypeID id); +LJ_FUNC CTypeID lj_ctype_getname(CTState *cts, CType **ctp, GCstr *name, + uint32_t tmask); +LJ_FUNC CType *lj_ctype_getfieldq(CTState *cts, CType *ct, GCstr *name, + CTSize *ofs, CTInfo *qual); +#define lj_ctype_getfield(cts, ct, name, ofs) \ + lj_ctype_getfieldq((cts), (ct), (name), (ofs), NULL) +LJ_FUNC CType *lj_ctype_rawref(CTState *cts, CTypeID id); +LJ_FUNC CTSize lj_ctype_size(CTState *cts, CTypeID id); +LJ_FUNC CTSize lj_ctype_vlsize(CTState *cts, CType *ct, CTSize nelem); +LJ_FUNC CTInfo lj_ctype_info(CTState *cts, CTypeID id, CTSize *szp); +LJ_FUNC cTValue *lj_ctype_meta(CTState *cts, CTypeID id, MMS mm); +LJ_FUNC GCstr *lj_ctype_repr(lua_State *L, CTypeID id, GCstr *name); +LJ_FUNC GCstr *lj_ctype_repr_int64(lua_State *L, uint64_t n, int isunsigned); +LJ_FUNC GCstr *lj_ctype_repr_complex(lua_State *L, void *sp, CTSize size); +LJ_FUNC CTState *lj_ctype_init(lua_State *L); +LJ_FUNC void lj_ctype_freestate(global_State *g); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_debug.c b/src/3rd party/luajit-2.0/src/lj_debug.c new file mode 100644 index 00000000000..bd2fa1f5646 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_debug.c @@ -0,0 +1,605 @@ +/* +** Debugging and introspection. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_debug_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_state.h" +#include "lj_frame.h" +#include "lj_bc.h" +#include "lj_vm.h" +#if LJ_HASJIT +#include "lj_jit.h" +#endif + +/* -- Frames -------------------------------------------------------------- */ + +/* Get frame corresponding to a level. */ +cTValue *lj_debug_frame(lua_State *L, int level, int *size) +{ + cTValue *frame, *nextframe, *bot = tvref(L->stack); + /* Traverse frames backwards. */ + for (nextframe = frame = L->base-1; frame > bot; ) { + if (frame_gc(frame) == obj2gco(L)) + level++; /* Skip dummy frames. See lj_meta_call(). */ + if (level-- == 0) { + *size = (int)(nextframe - frame); + return frame; /* Level found. */ + } + nextframe = frame; + if (frame_islua(frame)) { + frame = frame_prevl(frame); + } else { + if (frame_isvarg(frame)) + level++; /* Skip vararg pseudo-frame. */ + frame = frame_prevd(frame); + } + } + *size = level; + return NULL; /* Level not found. */ +} + +/* Invalid bytecode position. */ +#define NO_BCPOS (~(BCPos)0) + +/* Return bytecode position for function/frame or NO_BCPOS. */ +static BCPos debug_framepc(lua_State *L, GCfunc *fn, cTValue *nextframe) +{ + const BCIns *ins; + GCproto *pt; + BCPos pos; + lua_assert(fn->c.gct == ~LJ_TFUNC || fn->c.gct == ~LJ_TTHREAD); + if (!isluafunc(fn)) { /* Cannot derive a PC for non-Lua functions. */ + return NO_BCPOS; + } else if (nextframe == NULL) { /* Lua function on top. */ + void *cf = cframe_raw(L->cframe); + if (cf == NULL || (char *)cframe_pc(cf) == (char *)cframe_L(cf)) + return NO_BCPOS; + ins = cframe_pc(cf); /* Only happens during error/hook handling. */ + } else { + if (frame_islua(nextframe)) { + ins = frame_pc(nextframe); + } else if (frame_iscont(nextframe)) { + ins = frame_contpc(nextframe); + } else { + /* Lua function below errfunc/gc/hook: find cframe to get the PC. */ + void *cf = cframe_raw(L->cframe); + TValue *f = L->base-1; + for (;;) { + if (cf == NULL) + return NO_BCPOS; + while (cframe_nres(cf) < 0) { + if (f >= restorestack(L, -cframe_nres(cf))) + break; + cf = cframe_raw(cframe_prev(cf)); + if (cf == NULL) + return NO_BCPOS; + } + if (f < nextframe) + break; + if (frame_islua(f)) { + f = frame_prevl(f); + } else { + if (frame_isc(f) || (LJ_HASFFI && frame_iscont(f) && + (f-1)->u32.lo == LJ_CONT_FFI_CALLBACK)) + cf = cframe_raw(cframe_prev(cf)); + f = frame_prevd(f); + } + } + ins = cframe_pc(cf); + } + } + pt = funcproto(fn); + pos = proto_bcpos(pt, ins) - 1; +#if LJ_HASJIT + if (pos > pt->sizebc) { /* Undo the effects of lj_trace_exit for JLOOP. */ + GCtrace *T = (GCtrace *)((char *)(ins-1) - offsetof(GCtrace, startins)); + lua_assert(bc_isret(bc_op(ins[-1]))); + pos = proto_bcpos(pt, mref(T->startpc, const BCIns)); + } +#endif + return pos; +} + +/* -- Line numbers -------------------------------------------------------- */ + +/* Get line number for a bytecode position. */ +BCLine LJ_FASTCALL lj_debug_line(GCproto *pt, BCPos pc) +{ + const void *lineinfo = proto_lineinfo(pt); + if (pc <= pt->sizebc && lineinfo) { + BCLine first = pt->firstline; + if (pc == pt->sizebc) return first + pt->numline; + if (pc-- == 0) return first; + if (pt->numline < 256) + return first + (BCLine)((const uint8_t *)lineinfo)[pc]; + else if (pt->numline < 65536) + return first + (BCLine)((const uint16_t *)lineinfo)[pc]; + else + return first + (BCLine)((const uint32_t *)lineinfo)[pc]; + } + return 0; +} + +/* Get line number for function/frame. */ +static BCLine debug_frameline(lua_State *L, GCfunc *fn, cTValue *nextframe) +{ + BCPos pc = debug_framepc(L, fn, nextframe); + if (pc != NO_BCPOS) { + GCproto *pt = funcproto(fn); + lua_assert(pc <= pt->sizebc); + return lj_debug_line(pt, pc); + } + return -1; +} + +/* -- Variable names ------------------------------------------------------ */ + +/* Read ULEB128 value. */ +static uint32_t debug_read_uleb128(const uint8_t **pp) +{ + const uint8_t *p = *pp; + uint32_t v = *p++; + if (LJ_UNLIKELY(v >= 0x80)) { + int sh = 0; + v &= 0x7f; + do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); + } + *pp = p; + return v; +} + +/* Get name of a local variable from slot number and PC. */ +static const char *debug_varname(const GCproto *pt, BCPos pc, BCReg slot) +{ + const uint8_t *p = proto_varinfo(pt); + if (p) { + BCPos lastpc = 0; + for (;;) { + const char *name = (const char *)p; + uint32_t vn = *p++; + BCPos startpc, endpc; + if (vn < VARNAME__MAX) { + if (vn == VARNAME_END) break; /* End of varinfo. */ + } else { + while (*p++) ; /* Skip over variable name string. */ + } + lastpc = startpc = lastpc + debug_read_uleb128(&p); + if (startpc > pc) break; + endpc = startpc + debug_read_uleb128(&p); + if (pc < endpc && slot-- == 0) { + if (vn < VARNAME__MAX) { +#define VARNAMESTR(name, str) str "\0" + name = VARNAMEDEF(VARNAMESTR); +#undef VARNAMESTR + if (--vn) while (*name++ || --vn) ; + } + return name; + } + } + } + return NULL; +} + +/* Get name of local variable from 1-based slot number and function/frame. */ +static TValue *debug_localname(lua_State *L, const lua_Debug *ar, + const char **name, BCReg slot1) +{ + uint32_t offset = (uint32_t)ar->i_ci & 0xffff; + uint32_t size = (uint32_t)ar->i_ci >> 16; + TValue *frame = tvref(L->stack) + offset; + TValue *nextframe = size ? frame + size : NULL; + GCfunc *fn = frame_func(frame); + BCPos pc = debug_framepc(L, fn, nextframe); + if (!nextframe) nextframe = L->top; + if ((int)slot1 < 0) { /* Negative slot number is for varargs. */ + if (pc != NO_BCPOS) { + GCproto *pt = funcproto(fn); + if ((pt->flags & PROTO_VARARG)) { + slot1 = pt->numparams + (BCReg)(-(int)slot1); + if (frame_isvarg(frame)) { /* Vararg frame has been set up? (pc!=0) */ + nextframe = frame; + frame = frame_prevd(frame); + } + if (frame + slot1 < nextframe) { + *name = "(*vararg)"; + return frame+slot1; + } + } + } + return NULL; + } + if (pc != NO_BCPOS && + (*name = debug_varname(funcproto(fn), pc, slot1-1)) != NULL) + ; + else if (slot1 > 0 && frame + slot1 < nextframe) + *name = "(*temporary)"; + return frame+slot1; +} + +/* Get name of upvalue. */ +const char *lj_debug_uvname(GCproto *pt, uint32_t idx) +{ + const uint8_t *p = proto_uvinfo(pt); + lua_assert(idx < pt->sizeuv); + if (!p) return ""; + if (idx) while (*p++ || --idx) ; + return (const char *)p; +} + +/* Get name and value of upvalue. */ +const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp) +{ + if (tvisfunc(o)) { + GCfunc *fn = funcV(o); + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + if (idx < pt->sizeuv) { + *tvp = uvval(&gcref(fn->l.uvptr[idx])->uv); + return lj_debug_uvname(pt, idx); + } + } else { + if (idx < fn->c.nupvalues) { + *tvp = &fn->c.upvalue[idx]; + return ""; + } + } + } + return NULL; +} + +/* Deduce name of an object from slot number and PC. */ +const char *lj_debug_slotname(GCproto *pt, const BCIns *ip, BCReg slot, + const char **name) +{ + const char *lname; +restart: + lname = debug_varname(pt, proto_bcpos(pt, ip), slot); + if (lname != NULL) { *name = lname; return "local"; } + while (--ip > proto_bc(pt)) { + BCIns ins = *ip; + BCOp op = bc_op(ins); + BCReg ra = bc_a(ins); + if (bcmode_a(op) == BCMbase) { + if (slot >= ra && (op != BC_KNIL || slot <= bc_d(ins))) + return NULL; + } else if (bcmode_a(op) == BCMdst && ra == slot) { + switch (bc_op(ins)) { + case BC_MOV: + if (ra == slot) { slot = bc_d(ins); goto restart; } + break; + case BC_GGET: + *name = strdata(gco2str(proto_kgc(pt, ~(ptrdiff_t)bc_d(ins)))); + return "global"; + case BC_TGETS: + *name = strdata(gco2str(proto_kgc(pt, ~(ptrdiff_t)bc_c(ins)))); + if (ip > proto_bc(pt)) { + BCIns insp = ip[-1]; + if (bc_op(insp) == BC_MOV && bc_a(insp) == ra+1 && + bc_d(insp) == bc_b(ins)) + return "method"; + } + return "field"; + case BC_UGET: + *name = lj_debug_uvname(pt, bc_d(ins)); + return "upvalue"; + default: + return NULL; + } + } + } + return NULL; +} + +/* Deduce function name from caller of a frame. */ +const char *lj_debug_funcname(lua_State *L, TValue *frame, const char **name) +{ + TValue *pframe; + GCfunc *fn; + BCPos pc; + if (frame <= tvref(L->stack)) + return NULL; + if (frame_isvarg(frame)) + frame = frame_prevd(frame); + pframe = frame_prev(frame); + fn = frame_func(pframe); + pc = debug_framepc(L, fn, frame); + if (pc != NO_BCPOS) { + GCproto *pt = funcproto(fn); + const BCIns *ip = &proto_bc(pt)[check_exp(pc < pt->sizebc, pc)]; + MMS mm = bcmode_mm(bc_op(*ip)); + if (mm == MM_call) { + BCReg slot = bc_a(*ip); + if (bc_op(*ip) == BC_ITERC) slot -= 3; + return lj_debug_slotname(pt, ip, slot, name); + } else if (mm != MM__MAX) { + *name = strdata(mmname_str(G(L), mm)); + return "metamethod"; + } + } + return NULL; +} + +/* -- Source code locations ----------------------------------------------- */ + +/* Generate shortened source name. */ +void lj_debug_shortname(char *out, GCstr *str) +{ + const char *src = strdata(str); + if (*src == '=') { + strncpy(out, src+1, LUA_IDSIZE); /* Remove first char. */ + out[LUA_IDSIZE-1] = '\0'; /* Ensures null termination. */ + } else if (*src == '@') { /* Output "source", or "...source". */ + size_t len = str->len-1; + src++; /* Skip the `@' */ + if (len >= LUA_IDSIZE) { + src += len-(LUA_IDSIZE-4); /* Get last part of file name. */ + *out++ = '.'; *out++ = '.'; *out++ = '.'; + } + strcpy(out, src); + } else { /* Output [string "string"]. */ + size_t len; /* Length, up to first control char. */ + for (len = 0; len < LUA_IDSIZE-12; len++) + if (((const unsigned char *)src)[len] < ' ') break; + strcpy(out, "[string \""); out += 9; + if (src[len] != '\0') { /* Must truncate? */ + if (len > LUA_IDSIZE-15) len = LUA_IDSIZE-15; + strncpy(out, src, len); out += len; + strcpy(out, "..."); out += 3; + } else { + strcpy(out, src); out += len; + } + strcpy(out, "\"]"); + } +} + +/* Add current location of a frame to error message. */ +void lj_debug_addloc(lua_State *L, const char *msg, + cTValue *frame, cTValue *nextframe) +{ + if (frame) { + GCfunc *fn = frame_func(frame); + if (isluafunc(fn)) { + BCLine line = debug_frameline(L, fn, nextframe); + if (line >= 0) { + char buf[LUA_IDSIZE]; + lj_debug_shortname(buf, proto_chunkname(funcproto(fn))); + lj_str_pushf(L, "%s:%d: %s", buf, line, msg); + return; + } + } + } + lj_str_pushf(L, "%s", msg); +} + +/* Push location string for a bytecode position to Lua stack. */ +void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc) +{ + GCstr *name = proto_chunkname(pt); + const char *s = strdata(name); + MSize i, len = name->len; + BCLine line = lj_debug_line(pt, pc); + if (*s == '@') { + s++; len--; + for (i = len; i > 0; i--) + if (s[i] == '/' || s[i] == '\\') { + s += i+1; + break; + } + lj_str_pushf(L, "%s:%d", s, line); + } else if (len > 40) { + lj_str_pushf(L, "%p:%d", pt, line); + } else if (*s == '=') { + lj_str_pushf(L, "%s:%d", s+1, line); + } else { + lj_str_pushf(L, "\"%s\":%d", s, line); + } +} + +/* -- Public debug API ---------------------------------------------------- */ + +/* lua_getupvalue() and lua_setupvalue() are in lj_api.c. */ + +LUA_API const char *lua_getlocal(lua_State *L, const lua_Debug *ar, int n) +{ + const char *name = NULL; + if (ar) { + TValue *o = debug_localname(L, ar, &name, (BCReg)n); + if (name) { + copyTV(L, L->top, o); + incr_top(L); + } + } else if (tvisfunc(L->top-1) && isluafunc(funcV(L->top-1))) { + name = debug_varname(funcproto(funcV(L->top-1)), 0, (BCReg)n-1); + } + return name; +} + +LUA_API const char *lua_setlocal(lua_State *L, const lua_Debug *ar, int n) +{ + const char *name = NULL; + TValue *o = debug_localname(L, ar, &name, (BCReg)n); + if (name) + copyTV(L, o, L->top-1); + L->top--; + return name; +} + +int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, int ext) +{ + int opt_f = 0, opt_L = 0; + TValue *frame = NULL; + TValue *nextframe = NULL; + GCfunc *fn; + if (*what == '>') { + TValue *func = L->top - 1; + api_check(L, tvisfunc(func)); + fn = funcV(func); + L->top--; + what++; + } else { + uint32_t offset = (uint32_t)ar->i_ci & 0xffff; + uint32_t size = (uint32_t)ar->i_ci >> 16; + lua_assert(offset != 0); + frame = tvref(L->stack) + offset; + if (size) nextframe = frame + size; + lua_assert(frame <= tvref(L->maxstack) && + (!nextframe || nextframe <= tvref(L->maxstack))); + fn = frame_func(frame); + lua_assert(fn->c.gct == ~LJ_TFUNC); + } + for (; *what; what++) { + if (*what == 'S') { + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + BCLine firstline = pt->firstline; + GCstr *name = proto_chunkname(pt); + ar->source = strdata(name); + lj_debug_shortname(ar->short_src, name); + ar->linedefined = (int)firstline; + ar->lastlinedefined = (int)(firstline + pt->numline); + ar->what = (firstline || !pt->numline) ? "Lua" : "main"; + } else { + ar->source = "=[C]"; + ar->short_src[0] = '['; + ar->short_src[1] = 'C'; + ar->short_src[2] = ']'; + ar->short_src[3] = '\0'; + ar->linedefined = -1; + ar->lastlinedefined = -1; + ar->what = "C"; + } + } else if (*what == 'l') { + ar->currentline = frame ? debug_frameline(L, fn, nextframe) : -1; + } else if (*what == 'u') { + ar->nups = fn->c.nupvalues; + if (ext) { + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + ar->nparams = pt->numparams; + ar->isvararg = !!(pt->flags & PROTO_VARARG); + } else { + ar->nparams = 0; + ar->isvararg = 1; + } + } + } else if (*what == 'n') { + ar->namewhat = frame ? lj_debug_funcname(L, frame, &ar->name) : NULL; + if (ar->namewhat == NULL) { + ar->namewhat = ""; + ar->name = NULL; + } + } else if (*what == 'f') { + opt_f = 1; + } else if (*what == 'L') { + opt_L = 1; + } else { + return 0; /* Bad option. */ + } + } + if (opt_f) { + setfuncV(L, L->top, fn); + incr_top(L); + } + if (opt_L) { + if (isluafunc(fn)) { + GCtab *t = lj_tab_new(L, 0, 0); + GCproto *pt = funcproto(fn); + const void *lineinfo = proto_lineinfo(pt); + if (lineinfo) { + BCLine first = pt->firstline; + int sz = pt->numline < 256 ? 1 : pt->numline < 65536 ? 2 : 4; + MSize i, szl = pt->sizebc-1; + for (i = 0; i < szl; i++) { + BCLine line = first + + (sz == 1 ? (BCLine)((const uint8_t *)lineinfo)[i] : + sz == 2 ? (BCLine)((const uint16_t *)lineinfo)[i] : + (BCLine)((const uint32_t *)lineinfo)[i]); + setboolV(lj_tab_setint(L, t, line), 1); + } + } + settabV(L, L->top, t); + } else { + setnilV(L->top); + } + incr_top(L); + } + return 1; /* Ok. */ +} + +LUA_API int lua_getinfo(lua_State *L, const char *what, lua_Debug *ar) +{ + return lj_debug_getinfo(L, what, (lj_Debug *)ar, 0); +} + +LUA_API int lua_getstack(lua_State *L, int level, lua_Debug *ar) +{ + int size; + cTValue *frame = lj_debug_frame(L, level, &size); + if (frame) { + ar->i_ci = (size << 16) + (int)(frame - tvref(L->stack)); + return 1; + } else { + ar->i_ci = level - size; + return 0; + } +} + +/* Number of frames for the leading and trailing part of a traceback. */ +#define TRACEBACK_LEVELS1 12 +#define TRACEBACK_LEVELS2 10 + +LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, + int level) +{ + int top = (int)(L->top - L->base); + int lim = TRACEBACK_LEVELS1; + lua_Debug ar; + if (msg) lua_pushfstring(L, "%s\n", msg); + lua_pushliteral(L, "stack traceback:"); + while (lua_getstack(L1, level++, &ar)) { + GCfunc *fn; + if (level > lim) { + if (!lua_getstack(L1, level + TRACEBACK_LEVELS2, &ar)) { + level--; + } else { + lua_pushliteral(L, "\n\t..."); + lua_getstack(L1, -10, &ar); + level = ar.i_ci - TRACEBACK_LEVELS2; + } + lim = 2147483647; + continue; + } + lua_getinfo(L1, "Snlf", &ar); + fn = funcV(L1->top-1); L1->top--; + if (isffunc(fn) && !*ar.namewhat) + lua_pushfstring(L, "\n\t[builtin#%d]:", fn->c.ffid); + else + lua_pushfstring(L, "\n\t%s:", ar.short_src); + if (ar.currentline > 0) + lua_pushfstring(L, "%d:", ar.currentline); + if (*ar.namewhat) { + lua_pushfstring(L, " in function " LUA_QS, ar.name); + } else { + if (*ar.what == 'm') { + lua_pushliteral(L, " in main chunk"); + } else if (*ar.what == 'C') { + lua_pushfstring(L, " at %p", fn->c.f); + } else { + lua_pushfstring(L, " in function <%s:%d>", + ar.short_src, ar.linedefined); + } + } + if ((int)(L->top - L->base) - top >= 15) + lua_concat(L, (int)(L->top - L->base) - top); + } + lua_concat(L, (int)(L->top - L->base) - top); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_debug.h b/src/3rd party/luajit-2.0/src/lj_debug.h new file mode 100644 index 00000000000..fa8988c3e79 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_debug.h @@ -0,0 +1,61 @@ +/* +** Debugging and introspection. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_DEBUG_H +#define _LJ_DEBUG_H + +#include "lj_obj.h" + +typedef struct lj_Debug { + /* Common fields. Must be in the same order as in lua.h. */ + int event; + const char *name; + const char *namewhat; + const char *what; + const char *source; + int currentline; + int nups; + int linedefined; + int lastlinedefined; + char short_src[LUA_IDSIZE]; + int i_ci; + /* Extended fields. Only valid if lj_debug_getinfo() is called with ext = 1.*/ + int nparams; + int isvararg; +} lj_Debug; + +LJ_FUNC cTValue *lj_debug_frame(lua_State *L, int level, int *size); +LJ_FUNC BCLine LJ_FASTCALL lj_debug_line(GCproto *pt, BCPos pc); +LJ_FUNC const char *lj_debug_uvname(GCproto *pt, uint32_t idx); +LJ_FUNC const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp); +LJ_FUNC const char *lj_debug_slotname(GCproto *pt, const BCIns *pc, + BCReg slot, const char **name); +LJ_FUNC const char *lj_debug_funcname(lua_State *L, TValue *frame, + const char **name); +LJ_FUNC void lj_debug_shortname(char *out, GCstr *str); +LJ_FUNC void lj_debug_addloc(lua_State *L, const char *msg, + cTValue *frame, cTValue *nextframe); +LJ_FUNC void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc); +LJ_FUNC int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, + int ext); + +/* Fixed internal variable names. */ +#define VARNAMEDEF(_) \ + _(FOR_IDX, "(for index)") \ + _(FOR_STOP, "(for limit)") \ + _(FOR_STEP, "(for step)") \ + _(FOR_GEN, "(for generator)") \ + _(FOR_STATE, "(for state)") \ + _(FOR_CTL, "(for control)") + +enum { + VARNAME_END, +#define VARNAMEENUM(name, str) VARNAME_##name, + VARNAMEDEF(VARNAMEENUM) +#undef VARNAMEENUM + VARNAME__MAX +}; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_def.h b/src/3rd party/luajit-2.0/src/lj_def.h new file mode 100644 index 00000000000..e666c9e300e --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_def.h @@ -0,0 +1,353 @@ +/* +** LuaJIT common internal definitions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_DEF_H +#define _LJ_DEF_H + +#include "lua.h" + +#if defined(_MSC_VER) +/* MSVC is stuck in the last century and doesn't have C99's stdint.h. */ +typedef __int8 int8_t; +typedef __int16 int16_t; +typedef __int32 int32_t; +typedef __int64 int64_t; +typedef unsigned __int8 uint8_t; +typedef unsigned __int16 uint16_t; +typedef unsigned __int32 uint32_t; +typedef unsigned __int64 uint64_t; +#ifdef _WIN64 +typedef __int64 intptr_t; +typedef unsigned __int64 uintptr_t; +#else +typedef __int32 intptr_t; +typedef unsigned __int32 uintptr_t; +#endif +#elif defined(__symbian__) +/* Cough. */ +typedef signed char int8_t; +typedef short int int16_t; +typedef int int32_t; +typedef long long int64_t; +typedef unsigned char uint8_t; +typedef unsigned short int uint16_t; +typedef unsigned int uint32_t; +typedef unsigned long long uint64_t; +typedef int intptr_t; +typedef unsigned int uintptr_t; +#else +#include +#endif + +/* Needed everywhere. */ +#include +#include + +/* Various VM limits. */ +#define LJ_MAX_MEM 0x7fffff00 /* Max. total memory allocation. */ +#define LJ_MAX_ALLOC LJ_MAX_MEM /* Max. individual allocation length. */ +#define LJ_MAX_STR LJ_MAX_MEM /* Max. string length. */ +#define LJ_MAX_UDATA LJ_MAX_MEM /* Max. userdata length. */ + +#define LJ_MAX_STRTAB (1<<26) /* Max. string table size. */ +#define LJ_MAX_HBITS 26 /* Max. hash bits. */ +#define LJ_MAX_ABITS 28 /* Max. bits of array key. */ +#define LJ_MAX_ASIZE ((1<<(LJ_MAX_ABITS-1))+1) /* Max. array part size. */ +#define LJ_MAX_COLOSIZE 16 /* Max. elems for colocated array. */ + +#define LJ_MAX_LINE LJ_MAX_MEM /* Max. source code line number. */ +#define LJ_MAX_XLEVEL 200 /* Max. syntactic nesting level. */ +#define LJ_MAX_BCINS (1<<26) /* Max. # of bytecode instructions. */ +#define LJ_MAX_SLOTS 250 /* Max. # of slots in a Lua func. */ +#define LJ_MAX_LOCVAR 200 /* Max. # of local variables. */ +#define LJ_MAX_UPVAL 60 /* Max. # of upvalues. */ + +#define LJ_MAX_IDXCHAIN 100 /* __index/__newindex chain limit. */ +#define LJ_STACK_EXTRA 5 /* Extra stack space (metamethods). */ + +#define LJ_NUM_CBPAGE 1 /* Number of FFI callback pages. */ + +/* Minimum table/buffer sizes. */ +#define LJ_MIN_GLOBAL 6 /* Min. global table size (hbits). */ +#define LJ_MIN_REGISTRY 2 /* Min. registry size (hbits). */ +#define LJ_MIN_STRTAB 256 /* Min. string table size (pow2). */ +#define LJ_MIN_SBUF 32 /* Min. string buffer length. */ +#define LJ_MIN_VECSZ 8 /* Min. size for growable vectors. */ +#define LJ_MIN_IRSZ 32 /* Min. size for growable IR. */ +#define LJ_MIN_K64SZ 16 /* Min. size for chained K64Array. */ + +/* JIT compiler limits. */ +#define LJ_MAX_JSLOTS 250 /* Max. # of stack slots for a trace. */ +#define LJ_MAX_PHI 64 /* Max. # of PHIs for a loop. */ +#define LJ_MAX_EXITSTUBGR 16 /* Max. # of exit stub groups. */ + +/* Various macros. */ +#ifndef UNUSED +#define UNUSED(x) ((void)(x)) /* to avoid warnings */ +#endif + +#define U64x(hi, lo) (((uint64_t)0x##hi << 32) + (uint64_t)0x##lo) +#define i32ptr(p) ((int32_t)(intptr_t)(void *)(p)) +#define u32ptr(p) ((uint32_t)(intptr_t)(void *)(p)) + +#define checki8(x) ((x) == (int32_t)(int8_t)(x)) +#define checku8(x) ((x) == (int32_t)(uint8_t)(x)) +#define checki16(x) ((x) == (int32_t)(int16_t)(x)) +#define checku16(x) ((x) == (int32_t)(uint16_t)(x)) +#define checki32(x) ((x) == (int32_t)(x)) +#define checku32(x) ((x) == (uint32_t)(x)) +#define checkptr32(x) ((uintptr_t)(x) == (uint32_t)(uintptr_t)(x)) + +/* Every half-decent C compiler transforms this into a rotate instruction. */ +#define lj_rol(x, n) (((x)<<(n)) | ((x)>>(-(int)(n)&(8*sizeof(x)-1)))) +#define lj_ror(x, n) (((x)<<(-(int)(n)&(8*sizeof(x)-1))) | ((x)>>(n))) + +/* A really naive Bloom filter. But sufficient for our needs. */ +typedef uintptr_t BloomFilter; +#define BLOOM_MASK (8*sizeof(BloomFilter) - 1) +#define bloombit(x) ((uintptr_t)1 << ((x) & BLOOM_MASK)) +#define bloomset(b, x) ((b) |= bloombit((x))) +#define bloomtest(b, x) ((b) & bloombit((x))) + +#if defined(__GNUC__) || defined(__psp2__) + +#define LJ_NORET __attribute__((noreturn)) +#define LJ_ALIGN(n) __attribute__((aligned(n))) +#define LJ_INLINE inline +#define LJ_AINLINE inline __attribute__((always_inline)) +#define LJ_NOINLINE __attribute__((noinline)) + +#if defined(__ELF__) || defined(__MACH__) || defined(__psp2__) +#if !((defined(__sun__) && defined(__svr4__)) || defined(__CELLOS_LV2__)) +#define LJ_NOAPI extern __attribute__((visibility("hidden"))) +#endif +#endif + +/* Note: it's only beneficial to use fastcall on x86 and then only for up to +** two non-FP args. The amalgamated compile covers all LJ_FUNC cases. Only +** indirect calls and related tail-called C functions are marked as fastcall. +*/ +#if defined(__i386__) +#define LJ_FASTCALL __attribute__((fastcall)) +#endif + +#define LJ_LIKELY(x) __builtin_expect(!!(x), 1) +#define LJ_UNLIKELY(x) __builtin_expect(!!(x), 0) + +#define lj_ffs(x) ((uint32_t)__builtin_ctz(x)) +/* Don't ask ... */ +#if defined(__INTEL_COMPILER) && (defined(__i386__) || defined(__x86_64__)) +static LJ_AINLINE uint32_t lj_fls(uint32_t x) +{ + uint32_t r; __asm__("bsrl %1, %0" : "=r" (r) : "rm" (x) : "cc"); return r; +} +#else +#define lj_fls(x) ((uint32_t)(__builtin_clz(x)^31)) +#endif + +#if defined(__arm__) +static LJ_AINLINE uint32_t lj_bswap(uint32_t x) +{ +#if defined(__psp2__) + return __builtin_rev(x); +#else + uint32_t r; +#if __ARM_ARCH_6__ || __ARM_ARCH_6J__ || __ARM_ARCH_6T2__ || __ARM_ARCH_6Z__ ||\ + __ARM_ARCH_6ZK__ || __ARM_ARCH_7__ || __ARM_ARCH_7A__ || __ARM_ARCH_7R__ + __asm__("rev %0, %1" : "=r" (r) : "r" (x)); + return r; +#else +#ifdef __thumb__ + r = x ^ lj_ror(x, 16); +#else + __asm__("eor %0, %1, %1, ror #16" : "=r" (r) : "r" (x)); +#endif + return ((r & 0xff00ffffu) >> 8) ^ lj_ror(x, 8); +#endif +#endif +} + +static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) +{ + return ((uint64_t)lj_bswap((uint32_t)x)<<32) | lj_bswap((uint32_t)(x>>32)); +} +#elif (__GNUC__ > 4) || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3) +static LJ_AINLINE uint32_t lj_bswap(uint32_t x) +{ + return (uint32_t)__builtin_bswap32((int32_t)x); +} + +static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) +{ + return (uint64_t)__builtin_bswap64((int64_t)x); +} +#elif defined(__i386__) || defined(__x86_64__) +static LJ_AINLINE uint32_t lj_bswap(uint32_t x) +{ + uint32_t r; __asm__("bswap %0" : "=r" (r) : "0" (x)); return r; +} + +#if defined(__i386__) +static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) +{ + return ((uint64_t)lj_bswap((uint32_t)x)<<32) | lj_bswap((uint32_t)(x>>32)); +} +#else +static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) +{ + uint64_t r; __asm__("bswap %0" : "=r" (r) : "0" (x)); return r; +} +#endif +#else +static LJ_AINLINE uint32_t lj_bswap(uint32_t x) +{ + return (x << 24) | ((x & 0xff00) << 8) | ((x >> 8) & 0xff00) | (x >> 24); +} + +static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) +{ + return (uint64_t)lj_bswap((uint32_t)(x >> 32)) | + ((uint64_t)lj_bswap((uint32_t)x) << 32); +} +#endif + +typedef union __attribute__((packed)) Unaligned16 { + uint16_t u; + uint8_t b[2]; +} Unaligned16; + +typedef union __attribute__((packed)) Unaligned32 { + uint32_t u; + uint8_t b[4]; +} Unaligned32; + +/* Unaligned load of uint16_t. */ +static LJ_AINLINE uint16_t lj_getu16(const void *p) +{ + return ((const Unaligned16 *)p)->u; +} + +/* Unaligned load of uint32_t. */ +static LJ_AINLINE uint32_t lj_getu32(const void *p) +{ + return ((const Unaligned32 *)p)->u; +} + +#elif defined(_MSC_VER) + +#define LJ_NORET __declspec(noreturn) +#define LJ_ALIGN(n) __declspec(align(n)) +#define LJ_INLINE __inline +#define LJ_AINLINE __forceinline +#define LJ_NOINLINE __declspec(noinline) +#if defined(_M_IX86) +#define LJ_FASTCALL __fastcall +#endif + +#ifdef _M_PPC +unsigned int _CountLeadingZeros(long); +#pragma intrinsic(_CountLeadingZeros) +static LJ_AINLINE uint32_t lj_fls(uint32_t x) +{ + return _CountLeadingZeros(x) ^ 31; +} +#else +unsigned char _BitScanForward(uint32_t *, unsigned long); +unsigned char _BitScanReverse(uint32_t *, unsigned long); +#pragma intrinsic(_BitScanForward) +#pragma intrinsic(_BitScanReverse) + +static LJ_AINLINE uint32_t lj_ffs(uint32_t x) +{ + uint32_t r; _BitScanForward(&r, x); return r; +} + +static LJ_AINLINE uint32_t lj_fls(uint32_t x) +{ + uint32_t r; _BitScanReverse(&r, x); return r; +} +#endif + +unsigned long _byteswap_ulong(unsigned long); +uint64_t _byteswap_uint64(uint64_t); +#define lj_bswap(x) (_byteswap_ulong((x))) +#define lj_bswap64(x) (_byteswap_uint64((x))) + +#if defined(_M_PPC) && defined(LUAJIT_NO_UNALIGNED) +/* +** Replacement for unaligned loads on Xbox 360. Disabled by default since it's +** usually more costly than the occasional stall when crossing a cache-line. +*/ +static LJ_AINLINE uint16_t lj_getu16(const void *v) +{ + const uint8_t *p = (const uint8_t *)v; + return (uint16_t)((p[0]<<8) | p[1]); +} +static LJ_AINLINE uint32_t lj_getu32(const void *v) +{ + const uint8_t *p = (const uint8_t *)v; + return (uint32_t)((p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3]); +} +#else +/* Unaligned loads are generally ok on x86/x64. */ +#define lj_getu16(p) (*(uint16_t *)(p)) +#define lj_getu32(p) (*(uint32_t *)(p)) +#endif + +#else +#error "missing defines for your compiler" +#endif + +/* Optional defines. */ +#ifndef LJ_FASTCALL +#define LJ_FASTCALL +#endif +#ifndef LJ_NORET +#define LJ_NORET +#endif +#ifndef LJ_NOAPI +#define LJ_NOAPI extern +#endif +#ifndef LJ_LIKELY +#define LJ_LIKELY(x) (x) +#define LJ_UNLIKELY(x) (x) +#endif + +/* Attributes for internal functions. */ +#define LJ_DATA LJ_NOAPI +#define LJ_DATADEF +#define LJ_ASMF LJ_NOAPI +#define LJ_FUNCA LJ_NOAPI +#if defined(ljamalg_c) +#define LJ_FUNC static +#else +#define LJ_FUNC LJ_NOAPI +#endif +#define LJ_FUNC_NORET LJ_FUNC LJ_NORET +#define LJ_FUNCA_NORET LJ_FUNCA LJ_NORET +#define LJ_ASMF_NORET LJ_ASMF LJ_NORET + +/* Runtime assertions. */ +#ifdef lua_assert +#define check_exp(c, e) (lua_assert(c), (e)) +#define api_check(l, e) lua_assert(e) +#else +#define lua_assert(c) ((void)0) +#define check_exp(c, e) (e) +#define api_check luai_apicheck +#endif + +/* Static assertions. */ +#define LJ_ASSERT_NAME2(name, line) name ## line +#define LJ_ASSERT_NAME(line) LJ_ASSERT_NAME2(lj_assert_, line) +#ifdef __COUNTER__ +#define LJ_STATIC_ASSERT(cond) \ + extern void LJ_ASSERT_NAME(__COUNTER__)(int STATIC_ASSERTION_FAILED[(cond)?1:-1]) +#else +#define LJ_STATIC_ASSERT(cond) \ + extern void LJ_ASSERT_NAME(__LINE__)(int STATIC_ASSERTION_FAILED[(cond)?1:-1]) +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.c b/src/3rd party/luajit-2.0/src/lj_dispatch.c new file mode 100644 index 00000000000..37256576ec2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_dispatch.c @@ -0,0 +1,494 @@ +/* +** Instruction dispatch handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_dispatch_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_func.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_debug.h" +#include "lj_state.h" +#include "lj_frame.h" +#include "lj_bc.h" +#include "lj_ff.h" +#if LJ_HASJIT +#include "lj_jit.h" +#endif +#if LJ_HASFFI +#include "lj_ccallback.h" +#endif +#include "lj_trace.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "luajit.h" + +/* Bump GG_NUM_ASMFF in lj_dispatch.h as needed. Ugly. */ +LJ_STATIC_ASSERT(GG_NUM_ASMFF == FF_NUM_ASMFUNC); + +/* -- Dispatch table management ------------------------------------------- */ + +#if LJ_TARGET_MIPS +#include +LJ_FUNCA_NORET void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, + lua_State *co); + +#define GOTFUNC(name) (ASMFunction)name, +static const ASMFunction dispatch_got[] = { + GOTDEF(GOTFUNC) +}; +#undef GOTFUNC +#endif + +/* Initialize instruction dispatch table and hot counters. */ +void lj_dispatch_init(GG_State *GG) +{ + uint32_t i; + ASMFunction *disp = GG->dispatch; + for (i = 0; i < GG_LEN_SDISP; i++) + disp[GG_LEN_DDISP+i] = disp[i] = makeasmfunc(lj_bc_ofs[i]); + for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) + disp[i] = makeasmfunc(lj_bc_ofs[i]); + /* The JIT engine is off by default. luaopen_jit() turns it on. */ + disp[BC_FORL] = disp[BC_IFORL]; + disp[BC_ITERL] = disp[BC_IITERL]; + disp[BC_LOOP] = disp[BC_ILOOP]; + disp[BC_FUNCF] = disp[BC_IFUNCF]; + disp[BC_FUNCV] = disp[BC_IFUNCV]; + GG->g.bc_cfunc_ext = GG->g.bc_cfunc_int = BCINS_AD(BC_FUNCC, LUA_MINSTACK, 0); + for (i = 0; i < GG_NUM_ASMFF; i++) + GG->bcff[i] = BCINS_AD(BC__MAX+i, 0, 0); +#if LJ_TARGET_MIPS + memcpy(GG->got, dispatch_got, LJ_GOT__MAX*4); +#endif +} + +#if LJ_HASJIT +/* Initialize hotcount table. */ +void lj_dispatch_init_hotcount(global_State *g) +{ + int32_t hotloop = G2J(g)->param[JIT_P_hotloop]; + HotCount start = (HotCount)(hotloop*HOTCOUNT_LOOP - 1); + HotCount *hotcount = G2GG(g)->hotcount; + uint32_t i; + for (i = 0; i < HOTCOUNT_SIZE; i++) + hotcount[i] = start; +} +#endif + +/* Internal dispatch mode bits. */ +#define DISPMODE_JIT 0x01 /* JIT compiler on. */ +#define DISPMODE_REC 0x02 /* Recording active. */ +#define DISPMODE_INS 0x04 /* Override instruction dispatch. */ +#define DISPMODE_CALL 0x08 /* Override call dispatch. */ +#define DISPMODE_RET 0x10 /* Override return dispatch. */ + +/* Update dispatch table depending on various flags. */ +void lj_dispatch_update(global_State *g) +{ + uint8_t oldmode = g->dispatchmode; + uint8_t mode = 0; +#if LJ_HASJIT + mode |= (G2J(g)->flags & JIT_F_ON) ? DISPMODE_JIT : 0; + mode |= G2J(g)->state != LJ_TRACE_IDLE ? + (DISPMODE_REC|DISPMODE_INS|DISPMODE_CALL) : 0; +#endif + mode |= (g->hookmask & (LUA_MASKLINE|LUA_MASKCOUNT)) ? DISPMODE_INS : 0; + mode |= (g->hookmask & LUA_MASKCALL) ? DISPMODE_CALL : 0; + mode |= (g->hookmask & LUA_MASKRET) ? DISPMODE_RET : 0; + if (oldmode != mode) { /* Mode changed? */ + ASMFunction *disp = G2GG(g)->dispatch; + ASMFunction f_forl, f_iterl, f_loop, f_funcf, f_funcv; + g->dispatchmode = mode; + + /* Hotcount if JIT is on, but not while recording. */ + if ((mode & (DISPMODE_JIT|DISPMODE_REC)) == DISPMODE_JIT) { + f_forl = makeasmfunc(lj_bc_ofs[BC_FORL]); + f_iterl = makeasmfunc(lj_bc_ofs[BC_ITERL]); + f_loop = makeasmfunc(lj_bc_ofs[BC_LOOP]); + f_funcf = makeasmfunc(lj_bc_ofs[BC_FUNCF]); + f_funcv = makeasmfunc(lj_bc_ofs[BC_FUNCV]); + } else { /* Otherwise use the non-hotcounting instructions. */ + f_forl = disp[GG_LEN_DDISP+BC_IFORL]; + f_iterl = disp[GG_LEN_DDISP+BC_IITERL]; + f_loop = disp[GG_LEN_DDISP+BC_ILOOP]; + f_funcf = makeasmfunc(lj_bc_ofs[BC_IFUNCF]); + f_funcv = makeasmfunc(lj_bc_ofs[BC_IFUNCV]); + } + /* Init static counting instruction dispatch first (may be copied below). */ + disp[GG_LEN_DDISP+BC_FORL] = f_forl; + disp[GG_LEN_DDISP+BC_ITERL] = f_iterl; + disp[GG_LEN_DDISP+BC_LOOP] = f_loop; + + /* Set dynamic instruction dispatch. */ + if ((oldmode ^ mode) & (DISPMODE_REC|DISPMODE_INS)) { + /* Need to update the whole table. */ + if (!(mode & (DISPMODE_REC|DISPMODE_INS))) { /* No ins dispatch? */ + /* Copy static dispatch table to dynamic dispatch table. */ + memcpy(&disp[0], &disp[GG_LEN_DDISP], GG_LEN_SDISP*sizeof(ASMFunction)); + /* Overwrite with dynamic return dispatch. */ + if ((mode & DISPMODE_RET)) { + disp[BC_RETM] = lj_vm_rethook; + disp[BC_RET] = lj_vm_rethook; + disp[BC_RET0] = lj_vm_rethook; + disp[BC_RET1] = lj_vm_rethook; + } + } else { + /* The recording dispatch also checks for hooks. */ + ASMFunction f = (mode & DISPMODE_REC) ? lj_vm_record : lj_vm_inshook; + uint32_t i; + for (i = 0; i < GG_LEN_SDISP; i++) + disp[i] = f; + } + } else if (!(mode & (DISPMODE_REC|DISPMODE_INS))) { + /* Otherwise set dynamic counting ins. */ + disp[BC_FORL] = f_forl; + disp[BC_ITERL] = f_iterl; + disp[BC_LOOP] = f_loop; + /* Set dynamic return dispatch. */ + if ((mode & DISPMODE_RET)) { + disp[BC_RETM] = lj_vm_rethook; + disp[BC_RET] = lj_vm_rethook; + disp[BC_RET0] = lj_vm_rethook; + disp[BC_RET1] = lj_vm_rethook; + } else { + disp[BC_RETM] = disp[GG_LEN_DDISP+BC_RETM]; + disp[BC_RET] = disp[GG_LEN_DDISP+BC_RET]; + disp[BC_RET0] = disp[GG_LEN_DDISP+BC_RET0]; + disp[BC_RET1] = disp[GG_LEN_DDISP+BC_RET1]; + } + } + + /* Set dynamic call dispatch. */ + if ((oldmode ^ mode) & DISPMODE_CALL) { /* Update the whole table? */ + uint32_t i; + if ((mode & DISPMODE_CALL) == 0) { /* No call hooks? */ + for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) + disp[i] = makeasmfunc(lj_bc_ofs[i]); + } else { + for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) + disp[i] = lj_vm_callhook; + } + } + if (!(mode & DISPMODE_CALL)) { /* Overwrite dynamic counting ins. */ + disp[BC_FUNCF] = f_funcf; + disp[BC_FUNCV] = f_funcv; + } + +#if LJ_HASJIT + /* Reset hotcounts for JIT off to on transition. */ + if ((mode & DISPMODE_JIT) && !(oldmode & DISPMODE_JIT)) + lj_dispatch_init_hotcount(g); +#endif + } +} + +/* -- JIT mode setting ---------------------------------------------------- */ + +#if LJ_HASJIT +/* Set JIT mode for a single prototype. */ +static void setptmode(global_State *g, GCproto *pt, int mode) +{ + if ((mode & LUAJIT_MODE_ON)) { /* (Re-)enable JIT compilation. */ + pt->flags &= ~PROTO_NOJIT; + lj_trace_reenableproto(pt); /* Unpatch all ILOOP etc. bytecodes. */ + } else { /* Flush and/or disable JIT compilation. */ + if (!(mode & LUAJIT_MODE_FLUSH)) + pt->flags |= PROTO_NOJIT; + lj_trace_flushproto(g, pt); /* Flush all traces of prototype. */ + } +} + +/* Recursively set the JIT mode for all children of a prototype. */ +static void setptmode_all(global_State *g, GCproto *pt, int mode) +{ + ptrdiff_t i; + if (!(pt->flags & PROTO_CHILD)) return; + for (i = -(ptrdiff_t)pt->sizekgc; i < 0; i++) { + GCobj *o = proto_kgc(pt, i); + if (o->gch.gct == ~LJ_TPROTO) { + setptmode(g, gco2pt(o), mode); + setptmode_all(g, gco2pt(o), mode); + } + } +} +#endif + +/* Public API function: control the JIT engine. */ +int luaJIT_setmode(lua_State *L, int idx, int mode) +{ + global_State *g = G(L); + int mm = mode & LUAJIT_MODE_MASK; + lj_trace_abort(g); /* Abort recording on any state change. */ + /* Avoid pulling the rug from under our own feet. */ + if ((g->hookmask & HOOK_GC)) + lj_err_caller(L, LJ_ERR_NOGCMM); + switch (mm) { +#if LJ_HASJIT + case LUAJIT_MODE_ENGINE: + if ((mode & LUAJIT_MODE_FLUSH)) { + lj_trace_flushall(L); + } else { + if (!(mode & LUAJIT_MODE_ON)) + G2J(g)->flags &= ~(uint32_t)JIT_F_ON; +#if LJ_TARGET_X86ORX64 + else if ((G2J(g)->flags & JIT_F_SSE2)) + G2J(g)->flags |= (uint32_t)JIT_F_ON; + else + return 0; /* Don't turn on JIT compiler without SSE2 support. */ +#else + else + G2J(g)->flags |= (uint32_t)JIT_F_ON; +#endif + lj_dispatch_update(g); + } + break; + case LUAJIT_MODE_FUNC: + case LUAJIT_MODE_ALLFUNC: + case LUAJIT_MODE_ALLSUBFUNC: { + cTValue *tv = idx == 0 ? frame_prev(L->base-1) : + idx > 0 ? L->base + (idx-1) : L->top + idx; + GCproto *pt; + if ((idx == 0 || tvisfunc(tv)) && isluafunc(&gcval(tv)->fn)) + pt = funcproto(&gcval(tv)->fn); /* Cannot use funcV() for frame slot. */ + else if (tvisproto(tv)) + pt = protoV(tv); + else + return 0; /* Failed. */ + if (mm != LUAJIT_MODE_ALLSUBFUNC) + setptmode(g, pt, mode); + if (mm != LUAJIT_MODE_FUNC) + setptmode_all(g, pt, mode); + break; + } + case LUAJIT_MODE_TRACE: + if (!(mode & LUAJIT_MODE_FLUSH)) + return 0; /* Failed. */ + lj_trace_flush(G2J(g), idx); + break; +#else + case LUAJIT_MODE_ENGINE: + case LUAJIT_MODE_FUNC: + case LUAJIT_MODE_ALLFUNC: + case LUAJIT_MODE_ALLSUBFUNC: + UNUSED(idx); + if ((mode & LUAJIT_MODE_ON)) + return 0; /* Failed. */ + break; +#endif + case LUAJIT_MODE_WRAPCFUNC: + if ((mode & LUAJIT_MODE_ON)) { + if (idx != 0) { + cTValue *tv = idx > 0 ? L->base + (idx-1) : L->top + idx; + if (tvislightud(tv)) + g->wrapf = (lua_CFunction)lightudV(tv); + else + return 0; /* Failed. */ + } else { + return 0; /* Failed. */ + } + g->bc_cfunc_ext = BCINS_AD(BC_FUNCCW, 0, 0); + } else { + g->bc_cfunc_ext = BCINS_AD(BC_FUNCC, 0, 0); + } + break; + default: + return 0; /* Failed. */ + } + return 1; /* OK. */ +} + +/* Enforce (dynamic) linker error for version mismatches. See luajit.c. */ +LUA_API void LUAJIT_VERSION_SYM(void) +{ +} + +/* -- Hooks --------------------------------------------------------------- */ + +/* This function can be called asynchronously (e.g. during a signal). */ +LUA_API int lua_sethook(lua_State *L, lua_Hook func, int mask, int count) +{ + global_State *g = G(L); + mask &= HOOK_EVENTMASK; + if (func == NULL || mask == 0) { mask = 0; func = NULL; } /* Consistency. */ + g->hookf = func; + g->hookcount = g->hookcstart = (int32_t)count; + g->hookmask = (uint8_t)((g->hookmask & ~HOOK_EVENTMASK) | mask); + lj_trace_abort(g); /* Abort recording on any hook change. */ + lj_dispatch_update(g); + return 1; +} + +LUA_API lua_Hook lua_gethook(lua_State *L) +{ + return G(L)->hookf; +} + +LUA_API int lua_gethookmask(lua_State *L) +{ + return G(L)->hookmask & HOOK_EVENTMASK; +} + +LUA_API int lua_gethookcount(lua_State *L) +{ + return (int)G(L)->hookcstart; +} + +/* Call a hook. */ +static void callhook(lua_State *L, int event, BCLine line) +{ + global_State *g = G(L); + lua_Hook hookf = g->hookf; + if (hookf && !hook_active(g)) { + lua_Debug ar; + lj_trace_abort(g); /* Abort recording on any hook call. */ + ar.event = event; + ar.currentline = line; + /* Top frame, nextframe = NULL. */ + ar.i_ci = (int)((L->base-1) - tvref(L->stack)); + lj_state_checkstack(L, 1+LUA_MINSTACK); + hook_enter(g); + hookf(L, &ar); + lua_assert(hook_active(g)); + hook_leave(g); + } +} + +/* -- Dispatch callbacks -------------------------------------------------- */ + +/* Calculate number of used stack slots in the current frame. */ +static BCReg cur_topslot(GCproto *pt, const BCIns *pc, uint32_t nres) +{ + BCIns ins = pc[-1]; + if (bc_op(ins) == BC_UCLO) + ins = pc[bc_j(ins)]; + switch (bc_op(ins)) { + case BC_CALLM: case BC_CALLMT: return bc_a(ins) + bc_c(ins) + nres-1+1; + case BC_RETM: return bc_a(ins) + bc_d(ins) + nres-1; + case BC_TSETM: return bc_a(ins) + nres-1; + default: return pt->framesize; + } +} + +/* Instruction dispatch. Used by instr/line/return hooks or when recording. */ +void LJ_FASTCALL lj_dispatch_ins(lua_State *L, const BCIns *pc) +{ + ERRNO_SAVE + GCfunc *fn = curr_func(L); + GCproto *pt = funcproto(fn); + void *cf = cframe_raw(L->cframe); + const BCIns *oldpc = cframe_pc(cf); + global_State *g = G(L); + BCReg slots; + setcframe_pc(cf, pc); + slots = cur_topslot(pt, pc, cframe_multres_n(cf)); + L->top = L->base + slots; /* Fix top. */ +#if LJ_HASJIT + { + jit_State *J = G2J(g); + if (J->state != LJ_TRACE_IDLE) { +#ifdef LUA_USE_ASSERT + ptrdiff_t delta = L->top - L->base; +#endif + J->L = L; + lj_trace_ins(J, pc-1); /* The interpreter bytecode PC is offset by 1. */ + lua_assert(L->top - L->base == delta); + } + } +#endif + if ((g->hookmask & LUA_MASKCOUNT) && g->hookcount == 0) { + g->hookcount = g->hookcstart; + callhook(L, LUA_HOOKCOUNT, -1); + L->top = L->base + slots; /* Fix top again. */ + } + if ((g->hookmask & LUA_MASKLINE)) { + BCPos npc = proto_bcpos(pt, pc) - 1; + BCPos opc = proto_bcpos(pt, oldpc) - 1; + BCLine line = lj_debug_line(pt, npc); + if (pc <= oldpc || opc >= pt->sizebc || line != lj_debug_line(pt, opc)) { + callhook(L, LUA_HOOKLINE, line); + L->top = L->base + slots; /* Fix top again. */ + } + } + if ((g->hookmask & LUA_MASKRET) && bc_isret(bc_op(pc[-1]))) + callhook(L, LUA_HOOKRET, -1); + ERRNO_RESTORE +} + +/* Initialize call. Ensure stack space and return # of missing parameters. */ +static int call_init(lua_State *L, GCfunc *fn) +{ + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + int numparams = pt->numparams; + int gotparams = (int)(L->top - L->base); + int need = pt->framesize; + if ((pt->flags & PROTO_VARARG)) need += 1+gotparams; + lj_state_checkstack(L, (MSize)need); + numparams -= gotparams; + return numparams >= 0 ? numparams : 0; + } else { + lj_state_checkstack(L, LUA_MINSTACK); + return 0; + } +} + +/* Call dispatch. Used by call hooks, hot calls or when recording. */ +ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns *pc) +{ + ERRNO_SAVE + GCfunc *fn = curr_func(L); + BCOp op; + global_State *g = G(L); +#if LJ_HASJIT + jit_State *J = G2J(g); +#endif + int missing = call_init(L, fn); +#if LJ_HASJIT + J->L = L; + if ((uintptr_t)pc & 1) { /* Marker for hot call. */ +#ifdef LUA_USE_ASSERT + ptrdiff_t delta = L->top - L->base; +#endif + pc = (const BCIns *)((uintptr_t)pc & ~(uintptr_t)1); + lj_trace_hot(J, pc); + lua_assert(L->top - L->base == delta); + goto out; + } else if (J->state != LJ_TRACE_IDLE && + !(g->hookmask & (HOOK_GC|HOOK_VMEVENT))) { +#ifdef LUA_USE_ASSERT + ptrdiff_t delta = L->top - L->base; +#endif + /* Record the FUNC* bytecodes, too. */ + lj_trace_ins(J, pc-1); /* The interpreter bytecode PC is offset by 1. */ + lua_assert(L->top - L->base == delta); + } +#endif + if ((g->hookmask & LUA_MASKCALL)) { + int i; + for (i = 0; i < missing; i++) /* Add missing parameters. */ + setnilV(L->top++); + callhook(L, LUA_HOOKCALL, -1); + /* Preserve modifications of missing parameters by lua_setlocal(). */ + while (missing-- > 0 && tvisnil(L->top - 1)) + L->top--; + } +#if LJ_HASJIT +out: +#endif + op = bc_op(pc[-1]); /* Get FUNC* op. */ +#if LJ_HASJIT + /* Use the non-hotcounting variants if JIT is off or while recording. */ + if ((!(J->flags & JIT_F_ON) || J->state != LJ_TRACE_IDLE) && + (op == BC_FUNCF || op == BC_FUNCV)) + op = (BCOp)((int)op+(int)BC_IFUNCF-(int)BC_FUNCF); +#endif + ERRNO_RESTORE + return makeasmfunc(lj_bc_ofs[op]); /* Return static dispatch target. */ +} + diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.h b/src/3rd party/luajit-2.0/src/lj_dispatch.h new file mode 100644 index 00000000000..778affc8cdc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_dispatch.h @@ -0,0 +1,131 @@ +/* +** Instruction dispatch handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_DISPATCH_H +#define _LJ_DISPATCH_H + +#include "lj_obj.h" +#include "lj_bc.h" +#if LJ_HASJIT +#include "lj_jit.h" +#endif + +#if LJ_TARGET_MIPS +/* Need our own global offset table for the dreaded MIPS calling conventions. */ +#if LJ_HASJIT +#define JITGOTDEF(_) _(lj_trace_exit) _(lj_trace_hot) +#else +#define JITGOTDEF(_) +#endif +#if LJ_HASFFI +#define FFIGOTDEF(_) \ + _(lj_meta_equal_cd) _(lj_ccallback_enter) _(lj_ccallback_leave) +#else +#define FFIGOTDEF(_) +#endif +#define GOTDEF(_) \ + _(floor) _(ceil) _(trunc) _(log) _(log10) _(exp) _(sin) _(cos) _(tan) \ + _(asin) _(acos) _(atan) _(sinh) _(cosh) _(tanh) _(frexp) _(modf) _(atan2) \ + _(pow) _(fmod) _(ldexp) \ + _(lj_dispatch_call) _(lj_dispatch_ins) _(lj_err_throw) \ + _(lj_ffh_coroutine_wrap_err) _(lj_func_closeuv) _(lj_func_newL_gc) \ + _(lj_gc_barrieruv) _(lj_gc_step) _(lj_gc_step_fixtop) _(lj_meta_arith) \ + _(lj_meta_call) _(lj_meta_cat) _(lj_meta_comp) _(lj_meta_equal) \ + _(lj_meta_for) _(lj_meta_len) _(lj_meta_tget) _(lj_meta_tset) \ + _(lj_state_growstack) _(lj_str_fromnum) _(lj_str_fromnumber) _(lj_str_new) \ + _(lj_tab_dup) _(lj_tab_get) _(lj_tab_getinth) _(lj_tab_len) _(lj_tab_new) \ + _(lj_tab_newkey) _(lj_tab_next) _(lj_tab_reasize) \ + JITGOTDEF(_) FFIGOTDEF(_) + +enum { +#define GOTENUM(name) LJ_GOT_##name, +GOTDEF(GOTENUM) +#undef GOTENUM + LJ_GOT__MAX +}; +#endif + +/* Type of hot counter. Must match the code in the assembler VM. */ +/* 16 bits are sufficient. Only 0.0015% overhead with maximum slot penalty. */ +typedef uint16_t HotCount; + +/* Number of hot counter hash table entries (must be a power of two). */ +#define HOTCOUNT_SIZE 64 +#define HOTCOUNT_PCMASK ((HOTCOUNT_SIZE-1)*sizeof(HotCount)) + +/* Hotcount decrements. */ +#define HOTCOUNT_LOOP 2 +#define HOTCOUNT_CALL 1 + +/* This solves a circular dependency problem -- bump as needed. Sigh. */ +#define GG_NUM_ASMFF 62 + +#define GG_LEN_DDISP (BC__MAX + GG_NUM_ASMFF) +#define GG_LEN_SDISP BC_FUNCF +#define GG_LEN_DISP (GG_LEN_DDISP + GG_LEN_SDISP) + +/* Global state, main thread and extra fields are allocated together. */ +typedef struct GG_State { + lua_State L; /* Main thread. */ + global_State g; /* Global state. */ +#if LJ_TARGET_MIPS + ASMFunction got[LJ_GOT__MAX]; /* Global offset table. */ +#endif +#if LJ_HASJIT + jit_State J; /* JIT state. */ + HotCount hotcount[HOTCOUNT_SIZE]; /* Hot counters. */ +#endif + ASMFunction dispatch[GG_LEN_DISP]; /* Instruction dispatch tables. */ + BCIns bcff[GG_NUM_ASMFF]; /* Bytecode for ASM fast functions. */ +} GG_State; + +#define GG_OFS(field) ((int)offsetof(GG_State, field)) +#define G2GG(gl) ((GG_State *)((char *)(gl) - GG_OFS(g))) +#define J2GG(j) ((GG_State *)((char *)(j) - GG_OFS(J))) +#define L2GG(L) (G2GG(G(L))) +#define J2G(J) (&J2GG(J)->g) +#define G2J(gl) (&G2GG(gl)->J) +#define L2J(L) (&L2GG(L)->J) +#define GG_G2DISP (GG_OFS(dispatch) - GG_OFS(g)) +#define GG_DISP2G (GG_OFS(g) - GG_OFS(dispatch)) +#define GG_DISP2J (GG_OFS(J) - GG_OFS(dispatch)) +#define GG_DISP2HOT (GG_OFS(hotcount) - GG_OFS(dispatch)) +#define GG_DISP2STATIC (GG_LEN_DDISP*(int)sizeof(ASMFunction)) + +#define hotcount_get(gg, pc) \ + (gg)->hotcount[(u32ptr(pc)>>2) & (HOTCOUNT_SIZE-1)] +#define hotcount_set(gg, pc, val) \ + (hotcount_get((gg), (pc)) = (HotCount)(val)) + +/* Dispatch table management. */ +LJ_FUNC void lj_dispatch_init(GG_State *GG); +#if LJ_HASJIT +LJ_FUNC void lj_dispatch_init_hotcount(global_State *g); +#endif +LJ_FUNC void lj_dispatch_update(global_State *g); + +/* Instruction dispatch callback for hooks or when recording. */ +LJ_FUNCA void LJ_FASTCALL lj_dispatch_ins(lua_State *L, const BCIns *pc); +LJ_FUNCA ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns*pc); +LJ_FUNCA void LJ_FASTCALL lj_dispatch_return(lua_State *L, const BCIns *pc); + +#if LJ_HASFFI && !defined(_BUILDVM_H) +/* Save/restore errno and GetLastError() around hooks, exits and recording. */ +#include +#if LJ_TARGET_WINDOWS +#define WIN32_LEAN_AND_MEAN +#include +#define ERRNO_SAVE int olderr = errno; DWORD oldwerr = GetLastError(); +#define ERRNO_RESTORE errno = olderr; SetLastError(oldwerr); +#else +#define ERRNO_SAVE int olderr = errno; +#define ERRNO_RESTORE errno = olderr; +#endif +#else +#define ERRNO_SAVE +#define ERRNO_RESTORE +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_emit_arm.h b/src/3rd party/luajit-2.0/src/lj_emit_arm.h new file mode 100644 index 00000000000..8c5e5379c75 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_emit_arm.h @@ -0,0 +1,356 @@ +/* +** ARM instruction emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Constant encoding --------------------------------------------------- */ + +static uint8_t emit_invai[16] = { + /* AND */ (ARMI_AND^ARMI_BIC) >> 21, + /* EOR */ 0, + /* SUB */ (ARMI_SUB^ARMI_ADD) >> 21, + /* RSB */ 0, + /* ADD */ (ARMI_ADD^ARMI_SUB) >> 21, + /* ADC */ (ARMI_ADC^ARMI_SBC) >> 21, + /* SBC */ (ARMI_SBC^ARMI_ADC) >> 21, + /* RSC */ 0, + /* TST */ 0, + /* TEQ */ 0, + /* CMP */ (ARMI_CMP^ARMI_CMN) >> 21, + /* CMN */ (ARMI_CMN^ARMI_CMP) >> 21, + /* ORR */ 0, + /* MOV */ (ARMI_MOV^ARMI_MVN) >> 21, + /* BIC */ (ARMI_BIC^ARMI_AND) >> 21, + /* MVN */ (ARMI_MVN^ARMI_MOV) >> 21 +}; + +/* Encode constant in K12 format for data processing instructions. */ +static uint32_t emit_isk12(ARMIns ai, int32_t n) +{ + uint32_t invai, i, m = (uint32_t)n; + /* K12: unsigned 8 bit value, rotated in steps of two bits. */ + for (i = 0; i < 4096; i += 256, m = lj_rol(m, 2)) + if (m <= 255) return ARMI_K12|m|i; + /* Otherwise try negation/complement with the inverse instruction. */ + invai = emit_invai[((ai >> 21) & 15)]; + if (!invai) return 0; /* Failed. No inverse instruction. */ + m = ~(uint32_t)n; + if (invai == ((ARMI_SUB^ARMI_ADD) >> 21) || + invai == (ARMI_CMP^ARMI_CMN) >> 21) m++; + for (i = 0; i < 4096; i += 256, m = lj_rol(m, 2)) + if (m <= 255) return ARMI_K12|(invai<<21)|m|i; + return 0; /* Failed. */ +} + +/* -- Emit basic instructions --------------------------------------------- */ + +static void emit_dnm(ASMState *as, ARMIns ai, Reg rd, Reg rn, Reg rm) +{ + *--as->mcp = ai | ARMF_D(rd) | ARMF_N(rn) | ARMF_M(rm); +} + +static void emit_dm(ASMState *as, ARMIns ai, Reg rd, Reg rm) +{ + *--as->mcp = ai | ARMF_D(rd) | ARMF_M(rm); +} + +static void emit_dn(ASMState *as, ARMIns ai, Reg rd, Reg rn) +{ + *--as->mcp = ai | ARMF_D(rd) | ARMF_N(rn); +} + +static void emit_nm(ASMState *as, ARMIns ai, Reg rn, Reg rm) +{ + *--as->mcp = ai | ARMF_N(rn) | ARMF_M(rm); +} + +static void emit_d(ASMState *as, ARMIns ai, Reg rd) +{ + *--as->mcp = ai | ARMF_D(rd); +} + +static void emit_n(ASMState *as, ARMIns ai, Reg rn) +{ + *--as->mcp = ai | ARMF_N(rn); +} + +static void emit_m(ASMState *as, ARMIns ai, Reg rm) +{ + *--as->mcp = ai | ARMF_M(rm); +} + +static void emit_lsox(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) +{ + lua_assert(ofs >= -255 && ofs <= 255); + if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; + *--as->mcp = ai | ARMI_LS_P | ARMI_LSX_I | ARMF_D(rd) | ARMF_N(rn) | + ((ofs & 0xf0) << 4) | (ofs & 0x0f); +} + +static void emit_lso(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) +{ + lua_assert(ofs >= -4095 && ofs <= 4095); + /* Combine LDR/STR pairs to LDRD/STRD. */ + if (*as->mcp == (ai|ARMI_LS_P|ARMI_LS_U|ARMF_D(rd^1)|ARMF_N(rn)|(ofs^4)) && + (ai & ~(ARMI_LDR^ARMI_STR)) == ARMI_STR && rd != rn && + (uint32_t)ofs <= 252 && !(ofs & 3) && !((rd ^ (ofs >>2)) & 1) && + as->mcp != as->mcloop) { + as->mcp++; + emit_lsox(as, ai == ARMI_LDR ? ARMI_LDRD : ARMI_STRD, rd&~1, rn, ofs&~4); + return; + } + if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; + *--as->mcp = ai | ARMI_LS_P | ARMF_D(rd) | ARMF_N(rn) | ofs; +} + +#if !LJ_SOFTFP +static void emit_vlso(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) +{ + lua_assert(ofs >= -1020 && ofs <= 1020 && (ofs&3) == 0); + if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; + *--as->mcp = ai | ARMI_LS_P | ARMF_D(rd & 15) | ARMF_N(rn) | (ofs >> 2); +} +#endif + +/* -- Emit loads/stores --------------------------------------------------- */ + +/* Prefer spills of BASE/L. */ +#define emit_canremat(ref) ((ref) < ASMREF_L) + +/* Try to find a one step delta relative to another constant. */ +static int emit_kdelta1(ASMState *as, Reg d, int32_t i) +{ + RegSet work = ~as->freeset & RSET_GPR; + while (work) { + Reg r = rset_picktop(work); + IRRef ref = regcost_ref(as->cost[r]); + lua_assert(r != d); + if (emit_canremat(ref)) { + int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); + uint32_t k = emit_isk12(ARMI_ADD, delta); + if (k) { + if (k == ARMI_K12) + emit_dm(as, ARMI_MOV, d, r); + else + emit_dn(as, ARMI_ADD^k, d, r); + return 1; + } + } + rset_clear(work, r); + } + return 0; /* Failed. */ +} + +/* Try to find a two step delta relative to another constant. */ +static int emit_kdelta2(ASMState *as, Reg d, int32_t i) +{ + RegSet work = ~as->freeset & RSET_GPR; + while (work) { + Reg r = rset_picktop(work); + IRRef ref = regcost_ref(as->cost[r]); + lua_assert(r != d); + if (emit_canremat(ref)) { + int32_t other = ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i; + if (other) { + int32_t delta = i - other; + uint32_t sh, inv = 0, k2, k; + if (delta < 0) { delta = -delta; inv = ARMI_ADD^ARMI_SUB; } + sh = lj_ffs(delta) & ~1; + k2 = emit_isk12(0, delta & (255 << sh)); + k = emit_isk12(0, delta & ~(255 << sh)); + if (k) { + emit_dn(as, ARMI_ADD^k2^inv, d, d); + emit_dn(as, ARMI_ADD^k^inv, d, r); + return 1; + } + } + } + rset_clear(work, r); + } + return 0; /* Failed. */ +} + +/* Load a 32 bit constant into a GPR. */ +static void emit_loadi(ASMState *as, Reg r, int32_t i) +{ + uint32_t k = emit_isk12(ARMI_MOV, i); + lua_assert(rset_test(as->freeset, r) || r == RID_TMP); + if (k) { + /* Standard K12 constant. */ + emit_d(as, ARMI_MOV^k, r); + } else if ((as->flags & JIT_F_ARMV6T2) && (uint32_t)i < 0x00010000u) { + /* 16 bit loword constant for ARMv6T2. */ + emit_d(as, ARMI_MOVW|(i & 0x0fff)|((i & 0xf000)<<4), r); + } else if (emit_kdelta1(as, r, i)) { + /* One step delta relative to another constant. */ + } else if ((as->flags & JIT_F_ARMV6T2)) { + /* 32 bit hiword/loword constant for ARMv6T2. */ + emit_d(as, ARMI_MOVT|((i>>16) & 0x0fff)|(((i>>16) & 0xf000)<<4), r); + emit_d(as, ARMI_MOVW|(i & 0x0fff)|((i & 0xf000)<<4), r); + } else if (emit_kdelta2(as, r, i)) { + /* Two step delta relative to another constant. */ + } else { + /* Otherwise construct the constant with up to 4 instructions. */ + /* NYI: use mvn+bic, use pc-relative loads. */ + for (;;) { + uint32_t sh = lj_ffs(i) & ~1; + int32_t m = i & (255 << sh); + i &= ~(255 << sh); + if (i == 0) { + emit_d(as, ARMI_MOV ^ emit_isk12(0, m), r); + break; + } + emit_dn(as, ARMI_ORR ^ emit_isk12(0, m), r, r); + } + } +} + +#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) + +static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); + +/* Get/set from constant pointer. */ +static void emit_lsptr(ASMState *as, ARMIns ai, Reg r, void *p) +{ + int32_t i = i32ptr(p); + emit_lso(as, ai, r, ra_allock(as, (i & ~4095), rset_exclude(RSET_GPR, r)), + (i & 4095)); +} + +#if !LJ_SOFTFP +/* Load a number constant into an FPR. */ +static void emit_loadn(ASMState *as, Reg r, cTValue *tv) +{ + int32_t i; + if ((as->flags & JIT_F_VFPV3) && !tv->u32.lo) { + uint32_t hi = tv->u32.hi; + uint32_t b = ((hi >> 22) & 0x1ff); + if (!(hi & 0xffff) && (b == 0x100 || b == 0x0ff)) { + *--as->mcp = ARMI_VMOVI_D | ARMF_D(r & 15) | + ((tv->u32.hi >> 12) & 0x00080000) | + ((tv->u32.hi >> 4) & 0x00070000) | + ((tv->u32.hi >> 16) & 0x0000000f); + return; + } + } + i = i32ptr(tv); + emit_vlso(as, ARMI_VLDR_D, r, + ra_allock(as, (i & ~1020), RSET_GPR), (i & 1020)); +} +#endif + +/* Get/set global_State fields. */ +#define emit_getgl(as, r, field) \ + emit_lsptr(as, ARMI_LDR, (r), (void *)&J2G(as->J)->field) +#define emit_setgl(as, r, field) \ + emit_lsptr(as, ARMI_STR, (r), (void *)&J2G(as->J)->field) + +/* Trace number is determined from pc of exit instruction. */ +#define emit_setvmstate(as, i) UNUSED(i) + +/* -- Emit control-flow instructions -------------------------------------- */ + +/* Label for internal jumps. */ +typedef MCode *MCLabel; + +/* Return label pointing to current PC. */ +#define emit_label(as) ((as)->mcp) + +static void emit_branch(ASMState *as, ARMIns ai, MCode *target) +{ + MCode *p = as->mcp; + ptrdiff_t delta = (target - p) - 1; + lua_assert(((delta + 0x00800000) >> 24) == 0); + *--p = ai | ((uint32_t)delta & 0x00ffffffu); + as->mcp = p; +} + +#define emit_jmp(as, target) emit_branch(as, ARMI_B, (target)) + +static void emit_call(ASMState *as, void *target) +{ + MCode *p = --as->mcp; + ptrdiff_t delta = ((char *)target - (char *)p) - 8; + if ((((delta>>2) + 0x00800000) >> 24) == 0) { + if ((delta & 1)) + *p = ARMI_BLX | ((uint32_t)(delta>>2) & 0x00ffffffu) | ((delta&2) << 27); + else + *p = ARMI_BL | ((uint32_t)(delta>>2) & 0x00ffffffu); + } else { /* Target out of range: need indirect call. But don't use R0-R3. */ + Reg r = ra_allock(as, i32ptr(target), RSET_RANGE(RID_R4, RID_R12+1)); + *p = ARMI_BLXr | ARMF_M(r); + } +} + +/* -- Emit generic operations --------------------------------------------- */ + +/* Generic move between two regs. */ +static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) +{ +#if LJ_SOFTFP + lua_assert(!irt_isnum(ir->t)); UNUSED(ir); +#else + if (dst >= RID_MAX_GPR) { + emit_dm(as, irt_isnum(ir->t) ? ARMI_VMOV_D : ARMI_VMOV_S, + (dst & 15), (src & 15)); + return; + } +#endif + if (as->mcp != as->mcloop) { /* Swap early registers for loads/stores. */ + MCode ins = *as->mcp, swp = (src^dst); + if ((ins & 0x0c000000) == 0x04000000 && (ins & 0x02000010) != 0x02000010) { + if (!((ins ^ (dst << 16)) & 0x000f0000)) + *as->mcp = ins ^ (swp << 16); /* Swap N in load/store. */ + if (!(ins & 0x00100000) && !((ins ^ (dst << 12)) & 0x0000f000)) + *as->mcp = ins ^ (swp << 12); /* Swap D in store. */ + } + } + emit_dm(as, ARMI_MOV, dst, src); +} + +/* Generic load of register from stack slot. */ +static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ +#if LJ_SOFTFP + lua_assert(!irt_isnum(ir->t)); UNUSED(ir); +#else + if (r >= RID_MAX_GPR) + emit_vlso(as, irt_isnum(ir->t) ? ARMI_VLDR_D : ARMI_VLDR_S, r, RID_SP, ofs); + else +#endif + emit_lso(as, ARMI_LDR, r, RID_SP, ofs); +} + +/* Generic store of register to stack slot. */ +static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ +#if LJ_SOFTFP + lua_assert(!irt_isnum(ir->t)); UNUSED(ir); +#else + if (r >= RID_MAX_GPR) + emit_vlso(as, irt_isnum(ir->t) ? ARMI_VSTR_D : ARMI_VSTR_S, r, RID_SP, ofs); + else +#endif + emit_lso(as, ARMI_STR, r, RID_SP, ofs); +} + +/* Emit an arithmetic/logic operation with a constant operand. */ +static void emit_opk(ASMState *as, ARMIns ai, Reg dest, Reg src, + int32_t i, RegSet allow) +{ + uint32_t k = emit_isk12(ai, i); + if (k) + emit_dn(as, ai^k, dest, src); + else + emit_dnm(as, ai, dest, src, ra_allock(as, i, allow)); +} + +/* Add offset to pointer. */ +static void emit_addptr(ASMState *as, Reg r, int32_t ofs) +{ + if (ofs) + emit_opk(as, ARMI_ADD, r, r, ofs, rset_exclude(RSET_GPR, r)); +} + +#define emit_spsub(as, ofs) emit_addptr(as, RID_SP, -(ofs)) + diff --git a/src/3rd party/luajit-2.0/src/lj_emit_mips.h b/src/3rd party/luajit-2.0/src/lj_emit_mips.h new file mode 100644 index 00000000000..0fc07d9101d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_emit_mips.h @@ -0,0 +1,211 @@ +/* +** MIPS instruction emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Emit basic instructions --------------------------------------------- */ + +static void emit_dst(ASMState *as, MIPSIns mi, Reg rd, Reg rs, Reg rt) +{ + *--as->mcp = mi | MIPSF_D(rd) | MIPSF_S(rs) | MIPSF_T(rt); +} + +static void emit_dta(ASMState *as, MIPSIns mi, Reg rd, Reg rt, uint32_t a) +{ + *--as->mcp = mi | MIPSF_D(rd) | MIPSF_T(rt) | MIPSF_A(a); +} + +#define emit_ds(as, mi, rd, rs) emit_dst(as, (mi), (rd), (rs), 0) +#define emit_tg(as, mi, rt, rg) emit_dst(as, (mi), (rg)&31, 0, (rt)) + +static void emit_tsi(ASMState *as, MIPSIns mi, Reg rt, Reg rs, int32_t i) +{ + *--as->mcp = mi | MIPSF_T(rt) | MIPSF_S(rs) | (i & 0xffff); +} + +#define emit_ti(as, mi, rt, i) emit_tsi(as, (mi), (rt), 0, (i)) +#define emit_hsi(as, mi, rh, rs, i) emit_tsi(as, (mi), (rh) & 31, (rs), (i)) + +static void emit_fgh(ASMState *as, MIPSIns mi, Reg rf, Reg rg, Reg rh) +{ + *--as->mcp = mi | MIPSF_F(rf&31) | MIPSF_G(rg&31) | MIPSF_H(rh&31); +} + +#define emit_fg(as, mi, rf, rg) emit_fgh(as, (mi), (rf), (rg), 0) + +static void emit_rotr(ASMState *as, Reg dest, Reg src, Reg tmp, uint32_t shift) +{ + if ((as->flags & JIT_F_MIPS32R2)) { + emit_dta(as, MIPSI_ROTR, dest, src, shift); + } else { + emit_dst(as, MIPSI_OR, dest, dest, tmp); + emit_dta(as, MIPSI_SLL, dest, src, (-shift)&31); + emit_dta(as, MIPSI_SRL, tmp, src, shift); + } +} + +/* -- Emit loads/stores --------------------------------------------------- */ + +/* Prefer rematerialization of BASE/L from global_State over spills. */ +#define emit_canremat(ref) ((ref) <= REF_BASE) + +/* Try to find a one step delta relative to another constant. */ +static int emit_kdelta1(ASMState *as, Reg t, int32_t i) +{ + RegSet work = ~as->freeset & RSET_GPR; + while (work) { + Reg r = rset_picktop(work); + IRRef ref = regcost_ref(as->cost[r]); + lua_assert(r != t); + if (ref < ASMREF_L) { + int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); + if (checki16(delta)) { + emit_tsi(as, MIPSI_ADDIU, t, r, delta); + return 1; + } + } + rset_clear(work, r); + } + return 0; /* Failed. */ +} + +/* Load a 32 bit constant into a GPR. */ +static void emit_loadi(ASMState *as, Reg r, int32_t i) +{ + if (checki16(i)) { + emit_ti(as, MIPSI_LI, r, i); + } else { + if ((i & 0xffff)) { + int32_t jgl = i32ptr(J2G(as->J)); + if ((uint32_t)(i-jgl) < 65536) { + emit_tsi(as, MIPSI_ADDIU, r, RID_JGL, i-jgl-32768); + return; + } else if (emit_kdelta1(as, r, i)) { + return; + } else if ((i >> 16) == 0) { + emit_tsi(as, MIPSI_ORI, r, RID_ZERO, i); + return; + } + emit_tsi(as, MIPSI_ORI, r, r, i); + } + emit_ti(as, MIPSI_LUI, r, (i >> 16)); + } +} + +#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) + +static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); +static void ra_allockreg(ASMState *as, int32_t k, Reg r); + +/* Get/set from constant pointer. */ +static void emit_lsptr(ASMState *as, MIPSIns mi, Reg r, void *p, RegSet allow) +{ + int32_t jgl = i32ptr(J2G(as->J)); + int32_t i = i32ptr(p); + Reg base; + if ((uint32_t)(i-jgl) < 65536) { + i = i-jgl-32768; + base = RID_JGL; + } else { + base = ra_allock(as, i-(int16_t)i, allow); + } + emit_tsi(as, mi, r, base, i); +} + +#define emit_loadn(as, r, tv) \ + emit_lsptr(as, MIPSI_LDC1, ((r) & 31), (void *)(tv), RSET_GPR) + +/* Get/set global_State fields. */ +static void emit_lsglptr(ASMState *as, MIPSIns mi, Reg r, int32_t ofs) +{ + emit_tsi(as, mi, r, RID_JGL, ofs-32768); +} + +#define emit_getgl(as, r, field) \ + emit_lsglptr(as, MIPSI_LW, (r), (int32_t)offsetof(global_State, field)) +#define emit_setgl(as, r, field) \ + emit_lsglptr(as, MIPSI_SW, (r), (int32_t)offsetof(global_State, field)) + +/* Trace number is determined from per-trace exit stubs. */ +#define emit_setvmstate(as, i) UNUSED(i) + +/* -- Emit control-flow instructions -------------------------------------- */ + +/* Label for internal jumps. */ +typedef MCode *MCLabel; + +/* Return label pointing to current PC. */ +#define emit_label(as) ((as)->mcp) + +static void emit_branch(ASMState *as, MIPSIns mi, Reg rs, Reg rt, MCode *target) +{ + MCode *p = as->mcp; + ptrdiff_t delta = target - p; + lua_assert(((delta + 0x8000) >> 16) == 0); + *--p = mi | MIPSF_S(rs) | MIPSF_T(rt) | ((uint32_t)delta & 0xffffu); + as->mcp = p; +} + +static void emit_jmp(ASMState *as, MCode *target) +{ + *--as->mcp = MIPSI_NOP; + emit_branch(as, MIPSI_B, RID_ZERO, RID_ZERO, (target)); +} + +static void emit_call(ASMState *as, void *target) +{ + MCode *p = as->mcp; + *--p = MIPSI_NOP; + if ((((uintptr_t)target ^ (uintptr_t)p) >> 28) == 0) + *--p = MIPSI_JAL | (((uintptr_t)target >>2) & 0x03ffffffu); + else /* Target out of range: need indirect call. */ + *--p = MIPSI_JALR | MIPSF_S(RID_CFUNCADDR); + as->mcp = p; + ra_allockreg(as, i32ptr(target), RID_CFUNCADDR); +} + +/* -- Emit generic operations --------------------------------------------- */ + +#define emit_move(as, dst, src) \ + emit_ds(as, MIPSI_MOVE, (dst), (src)) + +/* Generic move between two regs. */ +static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) +{ + if (dst < RID_MAX_GPR) + emit_move(as, dst, src); + else + emit_fg(as, irt_isnum(ir->t) ? MIPSI_MOV_D : MIPSI_MOV_S, dst, src); +} + +/* Generic load of register from stack slot. */ +static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_tsi(as, MIPSI_LW, r, RID_SP, ofs); + else + emit_tsi(as, irt_isnum(ir->t) ? MIPSI_LDC1 : MIPSI_LWC1, + (r & 31), RID_SP, ofs); +} + +/* Generic store of register to stack slot. */ +static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_tsi(as, MIPSI_SW, r, RID_SP, ofs); + else + emit_tsi(as, irt_isnum(ir->t) ? MIPSI_SDC1 : MIPSI_SWC1, + (r&31), RID_SP, ofs); +} + +/* Add offset to pointer. */ +static void emit_addptr(ASMState *as, Reg r, int32_t ofs) +{ + if (ofs) { + lua_assert(checki16(ofs)); + emit_tsi(as, MIPSI_ADDIU, r, r, ofs); + } +} + +#define emit_spsub(as, ofs) emit_addptr(as, RID_SP, -(ofs)) + diff --git a/src/3rd party/luajit-2.0/src/lj_emit_ppc.h b/src/3rd party/luajit-2.0/src/lj_emit_ppc.h new file mode 100644 index 00000000000..14edf00fd64 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_emit_ppc.h @@ -0,0 +1,238 @@ +/* +** PPC instruction emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Emit basic instructions --------------------------------------------- */ + +static void emit_tab(ASMState *as, PPCIns pi, Reg rt, Reg ra, Reg rb) +{ + *--as->mcp = pi | PPCF_T(rt) | PPCF_A(ra) | PPCF_B(rb); +} + +#define emit_asb(as, pi, ra, rs, rb) emit_tab(as, (pi), (rs), (ra), (rb)) +#define emit_as(as, pi, ra, rs) emit_tab(as, (pi), (rs), (ra), 0) +#define emit_ab(as, pi, ra, rb) emit_tab(as, (pi), 0, (ra), (rb)) + +static void emit_tai(ASMState *as, PPCIns pi, Reg rt, Reg ra, int32_t i) +{ + *--as->mcp = pi | PPCF_T(rt) | PPCF_A(ra) | (i & 0xffff); +} + +#define emit_ti(as, pi, rt, i) emit_tai(as, (pi), (rt), 0, (i)) +#define emit_ai(as, pi, ra, i) emit_tai(as, (pi), 0, (ra), (i)) +#define emit_asi(as, pi, ra, rs, i) emit_tai(as, (pi), (rs), (ra), (i)) + +#define emit_fab(as, pi, rf, ra, rb) \ + emit_tab(as, (pi), (rf)&31, (ra)&31, (rb)&31) +#define emit_fb(as, pi, rf, rb) emit_tab(as, (pi), (rf)&31, 0, (rb)&31) +#define emit_fac(as, pi, rf, ra, rc) \ + emit_tab(as, (pi) | PPCF_C((rc) & 31), (rf)&31, (ra)&31, 0) +#define emit_facb(as, pi, rf, ra, rc, rb) \ + emit_tab(as, (pi) | PPCF_C((rc) & 31), (rf)&31, (ra)&31, (rb)&31) +#define emit_fai(as, pi, rf, ra, i) emit_tai(as, (pi), (rf)&31, (ra), (i)) + +static void emit_rot(ASMState *as, PPCIns pi, Reg ra, Reg rs, + int32_t n, int32_t b, int32_t e) +{ + *--as->mcp = pi | PPCF_T(rs) | PPCF_A(ra) | PPCF_B(n) | + PPCF_MB(b) | PPCF_ME(e); +} + +static void emit_slwi(ASMState *as, Reg ra, Reg rs, int32_t n) +{ + lua_assert(n >= 0 && n < 32); + emit_rot(as, PPCI_RLWINM, ra, rs, n, 0, 31-n); +} + +static void emit_rotlwi(ASMState *as, Reg ra, Reg rs, int32_t n) +{ + lua_assert(n >= 0 && n < 32); + emit_rot(as, PPCI_RLWINM, ra, rs, n, 0, 31); +} + +/* -- Emit loads/stores --------------------------------------------------- */ + +/* Prefer rematerialization of BASE/L from global_State over spills. */ +#define emit_canremat(ref) ((ref) <= REF_BASE) + +/* Try to find a one step delta relative to another constant. */ +static int emit_kdelta1(ASMState *as, Reg t, int32_t i) +{ + RegSet work = ~as->freeset & RSET_GPR; + while (work) { + Reg r = rset_picktop(work); + IRRef ref = regcost_ref(as->cost[r]); + lua_assert(r != t); + if (ref < ASMREF_L) { + int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); + if (checki16(delta)) { + emit_tai(as, PPCI_ADDI, t, r, delta); + return 1; + } + } + rset_clear(work, r); + } + return 0; /* Failed. */ +} + +/* Load a 32 bit constant into a GPR. */ +static void emit_loadi(ASMState *as, Reg r, int32_t i) +{ + if (checki16(i)) { + emit_ti(as, PPCI_LI, r, i); + } else { + if ((i & 0xffff)) { + int32_t jgl = i32ptr(J2G(as->J)); + if ((uint32_t)(i-jgl) < 65536) { + emit_tai(as, PPCI_ADDI, r, RID_JGL, i-jgl-32768); + return; + } else if (emit_kdelta1(as, r, i)) { + return; + } + emit_asi(as, PPCI_ORI, r, r, i); + } + emit_ti(as, PPCI_LIS, r, (i >> 16)); + } +} + +#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) + +static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); + +/* Get/set from constant pointer. */ +static void emit_lsptr(ASMState *as, PPCIns pi, Reg r, void *p, RegSet allow) +{ + int32_t jgl = i32ptr(J2G(as->J)); + int32_t i = i32ptr(p); + Reg base; + if ((uint32_t)(i-jgl) < 65536) { + i = i-jgl-32768; + base = RID_JGL; + } else { + base = ra_allock(as, i-(int16_t)i, allow); + } + emit_tai(as, pi, r, base, i); +} + +#define emit_loadn(as, r, tv) \ + emit_lsptr(as, PPCI_LFD, ((r) & 31), (void *)(tv), RSET_GPR) + +/* Get/set global_State fields. */ +static void emit_lsglptr(ASMState *as, PPCIns pi, Reg r, int32_t ofs) +{ + emit_tai(as, pi, r, RID_JGL, ofs-32768); +} + +#define emit_getgl(as, r, field) \ + emit_lsglptr(as, PPCI_LWZ, (r), (int32_t)offsetof(global_State, field)) +#define emit_setgl(as, r, field) \ + emit_lsglptr(as, PPCI_STW, (r), (int32_t)offsetof(global_State, field)) + +/* Trace number is determined from per-trace exit stubs. */ +#define emit_setvmstate(as, i) UNUSED(i) + +/* -- Emit control-flow instructions -------------------------------------- */ + +/* Label for internal jumps. */ +typedef MCode *MCLabel; + +/* Return label pointing to current PC. */ +#define emit_label(as) ((as)->mcp) + +static void emit_condbranch(ASMState *as, PPCIns pi, PPCCC cc, MCode *target) +{ + MCode *p = --as->mcp; + ptrdiff_t delta = (char *)target - (char *)p; + lua_assert(((delta + 0x8000) >> 16) == 0); + pi ^= (delta & 0x8000) * (PPCF_Y/0x8000); + *p = pi | PPCF_CC(cc) | ((uint32_t)delta & 0xffffu); +} + +static void emit_jmp(ASMState *as, MCode *target) +{ + MCode *p = --as->mcp; + ptrdiff_t delta = (char *)target - (char *)p; + *p = PPCI_B | (delta & 0x03fffffcu); +} + +static void emit_call(ASMState *as, void *target) +{ + MCode *p = --as->mcp; + ptrdiff_t delta = (char *)target - (char *)p; + if ((((delta>>2) + 0x00800000) >> 24) == 0) { + *p = PPCI_BL | (delta & 0x03fffffcu); + } else { /* Target out of range: need indirect call. Don't use arg reg. */ + RegSet allow = RSET_GPR & ~RSET_RANGE(RID_R0, REGARG_LASTGPR+1); + Reg r = ra_allock(as, i32ptr(target), allow); + *p = PPCI_BCTRL; + p[-1] = PPCI_MTCTR | PPCF_T(r); + as->mcp = p-1; + } +} + +/* -- Emit generic operations --------------------------------------------- */ + +#define emit_mr(as, dst, src) \ + emit_asb(as, PPCI_MR, (dst), (src), (src)) + +/* Generic move between two regs. */ +static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) +{ + UNUSED(ir); + if (dst < RID_MAX_GPR) + emit_mr(as, dst, src); + else + emit_fb(as, PPCI_FMR, dst, src); +} + +/* Generic load of register from stack slot. */ +static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_tai(as, PPCI_LWZ, r, RID_SP, ofs); + else + emit_fai(as, irt_isnum(ir->t) ? PPCI_LFD : PPCI_LFS, r, RID_SP, ofs); +} + +/* Generic store of register to stack slot. */ +static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_tai(as, PPCI_STW, r, RID_SP, ofs); + else + emit_fai(as, irt_isnum(ir->t) ? PPCI_STFD : PPCI_STFS, r, RID_SP, ofs); +} + +/* Emit a compare (for equality) with a constant operand. */ +static void emit_cmpi(ASMState *as, Reg r, int32_t k) +{ + if (checki16(k)) { + emit_ai(as, PPCI_CMPWI, r, k); + } else if (checku16(k)) { + emit_ai(as, PPCI_CMPLWI, r, k); + } else { + emit_ai(as, PPCI_CMPLWI, RID_TMP, k); + emit_asi(as, PPCI_XORIS, RID_TMP, r, (k >> 16)); + } +} + +/* Add offset to pointer. */ +static void emit_addptr(ASMState *as, Reg r, int32_t ofs) +{ + if (ofs) { + emit_tai(as, PPCI_ADDI, r, r, ofs); + if (!checki16(ofs)) + emit_tai(as, PPCI_ADDIS, r, r, (ofs + 32768) >> 16); + } +} + +static void emit_spsub(ASMState *as, int32_t ofs) +{ + if (ofs) { + emit_tai(as, PPCI_STWU, RID_TMP, RID_SP, -ofs); + emit_tai(as, PPCI_ADDI, RID_TMP, RID_SP, + CFRAME_SIZE + (as->parent ? as->parent->spadjust : 0)); + } +} + diff --git a/src/3rd party/luajit-2.0/src/lj_emit_x86.h b/src/3rd party/luajit-2.0/src/lj_emit_x86.h new file mode 100644 index 00000000000..3a2f6510b9f --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_emit_x86.h @@ -0,0 +1,466 @@ +/* +** x86/x64 instruction emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* -- Emit basic instructions --------------------------------------------- */ + +#define MODRM(mode, r1, r2) ((MCode)((mode)+(((r1)&7)<<3)+((r2)&7))) + +#if LJ_64 +#define REXRB(p, rr, rb) \ + { MCode rex = 0x40 + (((rr)>>1)&4) + (((rb)>>3)&1); \ + if (rex != 0x40) *--(p) = rex; } +#define FORCE_REX 0x200 +#define REX_64 (FORCE_REX|0x080000) +#else +#define REXRB(p, rr, rb) ((void)0) +#define FORCE_REX 0 +#define REX_64 0 +#endif + +#define emit_i8(as, i) (*--as->mcp = (MCode)(i)) +#define emit_i32(as, i) (*(int32_t *)(as->mcp-4) = (i), as->mcp -= 4) +#define emit_u32(as, u) (*(uint32_t *)(as->mcp-4) = (u), as->mcp -= 4) + +#define emit_x87op(as, xo) \ + (*(uint16_t *)(as->mcp-2) = (uint16_t)(xo), as->mcp -= 2) + +/* op */ +static LJ_AINLINE MCode *emit_op(x86Op xo, Reg rr, Reg rb, Reg rx, + MCode *p, int delta) +{ + int n = (int8_t)xo; +#if defined(__GNUC__) + if (__builtin_constant_p(xo) && n == -2) + p[delta-2] = (MCode)(xo >> 24); + else if (__builtin_constant_p(xo) && n == -3) + *(uint16_t *)(p+delta-3) = (uint16_t)(xo >> 16); + else +#endif + *(uint32_t *)(p+delta-5) = (uint32_t)xo; + p += n + delta; +#if LJ_64 + { + uint32_t rex = 0x40 + ((rr>>1)&(4+(FORCE_REX>>1)))+((rx>>2)&2)+((rb>>3)&1); + if (rex != 0x40) { + rex |= (rr >> 16); + if (n == -4) { *p = (MCode)rex; rex = (MCode)(xo >> 8); } + else if ((xo & 0xffffff) == 0x6600fd) { *p = (MCode)rex; rex = 0x66; } + *--p = (MCode)rex; + } + } +#else + UNUSED(rr); UNUSED(rb); UNUSED(rx); +#endif + return p; +} + +/* op + modrm */ +#define emit_opm(xo, mode, rr, rb, p, delta) \ + (p[(delta)-1] = MODRM((mode), (rr), (rb)), \ + emit_op((xo), (rr), (rb), 0, (p), (delta))) + +/* op + modrm + sib */ +#define emit_opmx(xo, mode, scale, rr, rb, rx, p) \ + (p[-1] = MODRM((scale), (rx), (rb)), \ + p[-2] = MODRM((mode), (rr), RID_ESP), \ + emit_op((xo), (rr), (rb), (rx), (p), -1)) + +/* op r1, r2 */ +static void emit_rr(ASMState *as, x86Op xo, Reg r1, Reg r2) +{ + MCode *p = as->mcp; + as->mcp = emit_opm(xo, XM_REG, r1, r2, p, 0); +} + +#if LJ_64 && defined(LUA_USE_ASSERT) +/* [addr] is sign-extended in x64 and must be in lower 2G (not 4G). */ +static int32_t ptr2addr(const void *p) +{ + lua_assert((uintptr_t)p < (uintptr_t)0x80000000); + return i32ptr(p); +} +#else +#define ptr2addr(p) (i32ptr((p))) +#endif + +/* op r, [addr] */ +static void emit_rma(ASMState *as, x86Op xo, Reg rr, const void *addr) +{ + MCode *p = as->mcp; + *(int32_t *)(p-4) = ptr2addr(addr); +#if LJ_64 + p[-5] = MODRM(XM_SCALE1, RID_ESP, RID_EBP); + as->mcp = emit_opm(xo, XM_OFS0, rr, RID_ESP, p, -5); +#else + as->mcp = emit_opm(xo, XM_OFS0, rr, RID_EBP, p, -4); +#endif +} + +/* op r, [base+ofs] */ +static void emit_rmro(ASMState *as, x86Op xo, Reg rr, Reg rb, int32_t ofs) +{ + MCode *p = as->mcp; + x86Mode mode; + if (ra_hasreg(rb)) { + if (ofs == 0 && (rb&7) != RID_EBP) { + mode = XM_OFS0; + } else if (checki8(ofs)) { + *--p = (MCode)ofs; + mode = XM_OFS8; + } else { + p -= 4; + *(int32_t *)p = ofs; + mode = XM_OFS32; + } + if ((rb&7) == RID_ESP) + *--p = MODRM(XM_SCALE1, RID_ESP, RID_ESP); + } else { + *(int32_t *)(p-4) = ofs; +#if LJ_64 + p[-5] = MODRM(XM_SCALE1, RID_ESP, RID_EBP); + p -= 5; + rb = RID_ESP; +#else + p -= 4; + rb = RID_EBP; +#endif + mode = XM_OFS0; + } + as->mcp = emit_opm(xo, mode, rr, rb, p, 0); +} + +/* op r, [base+idx*scale+ofs] */ +static void emit_rmrxo(ASMState *as, x86Op xo, Reg rr, Reg rb, Reg rx, + x86Mode scale, int32_t ofs) +{ + MCode *p = as->mcp; + x86Mode mode; + if (ofs == 0 && (rb&7) != RID_EBP) { + mode = XM_OFS0; + } else if (checki8(ofs)) { + mode = XM_OFS8; + *--p = (MCode)ofs; + } else { + mode = XM_OFS32; + p -= 4; + *(int32_t *)p = ofs; + } + as->mcp = emit_opmx(xo, mode, scale, rr, rb, rx, p); +} + +/* op r, i */ +static void emit_gri(ASMState *as, x86Group xg, Reg rb, int32_t i) +{ + MCode *p = as->mcp; + x86Op xo; + if (checki8(i)) { + *--p = (MCode)i; + xo = XG_TOXOi8(xg); + } else { + p -= 4; + *(int32_t *)p = i; + xo = XG_TOXOi(xg); + } + as->mcp = emit_opm(xo, XM_REG, (Reg)(xg & 7) | (rb & REX_64), rb, p, 0); +} + +/* op [base+ofs], i */ +static void emit_gmroi(ASMState *as, x86Group xg, Reg rb, int32_t ofs, + int32_t i) +{ + x86Op xo; + if (checki8(i)) { + emit_i8(as, i); + xo = XG_TOXOi8(xg); + } else { + emit_i32(as, i); + xo = XG_TOXOi(xg); + } + emit_rmro(as, xo, (Reg)(xg & 7), rb, ofs); +} + +#define emit_shifti(as, xg, r, i) \ + (emit_i8(as, (i)), emit_rr(as, XO_SHIFTi, (Reg)(xg), (r))) + +/* op r, rm/mrm */ +static void emit_mrm(ASMState *as, x86Op xo, Reg rr, Reg rb) +{ + MCode *p = as->mcp; + x86Mode mode = XM_REG; + if (rb == RID_MRM) { + rb = as->mrm.base; + if (rb == RID_NONE) { + rb = RID_EBP; + mode = XM_OFS0; + p -= 4; + *(int32_t *)p = as->mrm.ofs; + if (as->mrm.idx != RID_NONE) + goto mrmidx; +#if LJ_64 + *--p = MODRM(XM_SCALE1, RID_ESP, RID_EBP); + rb = RID_ESP; +#endif + } else { + if (as->mrm.ofs == 0 && (rb&7) != RID_EBP) { + mode = XM_OFS0; + } else if (checki8(as->mrm.ofs)) { + *--p = (MCode)as->mrm.ofs; + mode = XM_OFS8; + } else { + p -= 4; + *(int32_t *)p = as->mrm.ofs; + mode = XM_OFS32; + } + if (as->mrm.idx != RID_NONE) { + mrmidx: + as->mcp = emit_opmx(xo, mode, as->mrm.scale, rr, rb, as->mrm.idx, p); + return; + } + if ((rb&7) == RID_ESP) + *--p = MODRM(XM_SCALE1, RID_ESP, RID_ESP); + } + } + as->mcp = emit_opm(xo, mode, rr, rb, p, 0); +} + +/* op rm/mrm, i */ +static void emit_gmrmi(ASMState *as, x86Group xg, Reg rb, int32_t i) +{ + x86Op xo; + if (checki8(i)) { + emit_i8(as, i); + xo = XG_TOXOi8(xg); + } else { + emit_i32(as, i); + xo = XG_TOXOi(xg); + } + emit_mrm(as, xo, (Reg)(xg & 7) | (rb & REX_64), (rb & ~REX_64)); +} + +/* -- Emit loads/stores --------------------------------------------------- */ + +/* Instruction selection for XMM moves. */ +#define XMM_MOVRR(as) ((as->flags & JIT_F_SPLIT_XMM) ? XO_MOVSD : XO_MOVAPS) +#define XMM_MOVRM(as) ((as->flags & JIT_F_SPLIT_XMM) ? XO_MOVLPD : XO_MOVSD) + +/* mov [base+ofs], i */ +static void emit_movmroi(ASMState *as, Reg base, int32_t ofs, int32_t i) +{ + emit_i32(as, i); + emit_rmro(as, XO_MOVmi, 0, base, ofs); +} + +/* mov [base+ofs], r */ +#define emit_movtomro(as, r, base, ofs) \ + emit_rmro(as, XO_MOVto, (r), (base), (ofs)) + +/* Get/set global_State fields. */ +#define emit_opgl(as, xo, r, field) \ + emit_rma(as, (xo), (r), (void *)&J2G(as->J)->field) +#define emit_getgl(as, r, field) emit_opgl(as, XO_MOV, (r), field) +#define emit_setgl(as, r, field) emit_opgl(as, XO_MOVto, (r), field) + +#define emit_setvmstate(as, i) \ + (emit_i32(as, i), emit_opgl(as, XO_MOVmi, 0, vmstate)) + +/* mov r, i / xor r, r */ +static void emit_loadi(ASMState *as, Reg r, int32_t i) +{ + /* XOR r,r is shorter, but modifies the flags. This is bad for HIOP. */ + if (i == 0 && !(LJ_32 && (IR(as->curins)->o == IR_HIOP || + (as->curins+1 < as->T->nins && + IR(as->curins+1)->o == IR_HIOP)))) { + emit_rr(as, XO_ARITH(XOg_XOR), r, r); + } else { + MCode *p = as->mcp; + *(int32_t *)(p-4) = i; + p[-5] = (MCode)(XI_MOVri+(r&7)); + p -= 5; + REXRB(p, 0, r); + as->mcp = p; + } +} + +/* mov r, addr */ +#define emit_loada(as, r, addr) \ + emit_loadi(as, (r), ptr2addr((addr))) + +#if LJ_64 +/* mov r, imm64 or shorter 32 bit extended load. */ +static void emit_loadu64(ASMState *as, Reg r, uint64_t u64) +{ + if (checku32(u64)) { /* 32 bit load clears upper 32 bits. */ + emit_loadi(as, r, (int32_t)u64); + } else if (checki32((int64_t)u64)) { /* Sign-extended 32 bit load. */ + MCode *p = as->mcp; + *(int32_t *)(p-4) = (int32_t)u64; + as->mcp = emit_opm(XO_MOVmi, XM_REG, REX_64, r, p, -4); + } else { /* Full-size 64 bit load. */ + MCode *p = as->mcp; + *(uint64_t *)(p-8) = u64; + p[-9] = (MCode)(XI_MOVri+(r&7)); + p[-10] = 0x48 + ((r>>3)&1); + p -= 10; + as->mcp = p; + } +} +#endif + +/* movsd r, [&tv->n] / xorps r, r */ +static void emit_loadn(ASMState *as, Reg r, cTValue *tv) +{ + if (tvispzero(tv)) /* Use xor only for +0. */ + emit_rr(as, XO_XORPS, r, r); + else + emit_rma(as, XMM_MOVRM(as), r, &tv->n); +} + +/* -- Emit control-flow instructions -------------------------------------- */ + +/* Label for short jumps. */ +typedef MCode *MCLabel; + +#if LJ_32 && LJ_HASFFI +/* jmp short target */ +static void emit_sjmp(ASMState *as, MCLabel target) +{ + MCode *p = as->mcp; + ptrdiff_t delta = target - p; + lua_assert(delta == (int8_t)delta); + p[-1] = (MCode)(int8_t)delta; + p[-2] = XI_JMPs; + as->mcp = p - 2; +} +#endif + +/* jcc short target */ +static void emit_sjcc(ASMState *as, int cc, MCLabel target) +{ + MCode *p = as->mcp; + ptrdiff_t delta = target - p; + lua_assert(delta == (int8_t)delta); + p[-1] = (MCode)(int8_t)delta; + p[-2] = (MCode)(XI_JCCs+(cc&15)); + as->mcp = p - 2; +} + +/* jcc short (pending target) */ +static MCLabel emit_sjcc_label(ASMState *as, int cc) +{ + MCode *p = as->mcp; + p[-1] = 0; + p[-2] = (MCode)(XI_JCCs+(cc&15)); + as->mcp = p - 2; + return p; +} + +/* Fixup jcc short target. */ +static void emit_sfixup(ASMState *as, MCLabel source) +{ + source[-1] = (MCode)(as->mcp-source); +} + +/* Return label pointing to current PC. */ +#define emit_label(as) ((as)->mcp) + +/* Compute relative 32 bit offset for jump and call instructions. */ +static LJ_AINLINE int32_t jmprel(MCode *p, MCode *target) +{ + ptrdiff_t delta = target - p; + lua_assert(delta == (int32_t)delta); + return (int32_t)delta; +} + +/* jcc target */ +static void emit_jcc(ASMState *as, int cc, MCode *target) +{ + MCode *p = as->mcp; + *(int32_t *)(p-4) = jmprel(p, target); + p[-5] = (MCode)(XI_JCCn+(cc&15)); + p[-6] = 0x0f; + as->mcp = p - 6; +} + +/* jmp target */ +static void emit_jmp(ASMState *as, MCode *target) +{ + MCode *p = as->mcp; + *(int32_t *)(p-4) = jmprel(p, target); + p[-5] = XI_JMP; + as->mcp = p - 5; +} + +/* call target */ +static void emit_call_(ASMState *as, MCode *target) +{ + MCode *p = as->mcp; +#if LJ_64 + if (target-p != (int32_t)(target-p)) { + /* Assumes RID_RET is never an argument to calls and always clobbered. */ + emit_rr(as, XO_GROUP5, XOg_CALL, RID_RET); + emit_loadu64(as, RID_RET, (uint64_t)target); + return; + } +#endif + *(int32_t *)(p-4) = jmprel(p, target); + p[-5] = XI_CALL; + as->mcp = p - 5; +} + +#define emit_call(as, f) emit_call_(as, (MCode *)(void *)(f)) + +/* -- Emit generic operations --------------------------------------------- */ + +/* Use 64 bit operations to handle 64 bit IR types. */ +#if LJ_64 +#define REX_64IR(ir, r) ((r) + (irt_is64((ir)->t) ? REX_64 : 0)) +#else +#define REX_64IR(ir, r) (r) +#endif + +/* Generic move between two regs. */ +static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) +{ + UNUSED(ir); + if (dst < RID_MAX_GPR) + emit_rr(as, XO_MOV, REX_64IR(ir, dst), src); + else + emit_rr(as, XMM_MOVRR(as), dst, src); +} + +/* Generic load of register from stack slot. */ +static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_rmro(as, XO_MOV, REX_64IR(ir, r), RID_ESP, ofs); + else + emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, r, RID_ESP, ofs); +} + +/* Generic store of register to stack slot. */ +static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +{ + if (r < RID_MAX_GPR) + emit_rmro(as, XO_MOVto, REX_64IR(ir, r), RID_ESP, ofs); + else + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, r, RID_ESP, ofs); +} + +/* Add offset to pointer. */ +static void emit_addptr(ASMState *as, Reg r, int32_t ofs) +{ + if (ofs) { + if ((as->flags & JIT_F_LEA_AGU)) + emit_rmro(as, XO_LEA, r, r, ofs); + else + emit_gri(as, XG_ARITHi(XOg_ADD), r, ofs); + } +} + +#define emit_spsub(as, ofs) emit_addptr(as, RID_ESP|REX_64, -(ofs)) + +/* Prefer rematerialization of BASE/L from global_State over spills. */ +#define emit_canremat(ref) ((ref) <= REF_BASE) + diff --git a/src/3rd party/luajit-2.0/src/lj_err.c b/src/3rd party/luajit-2.0/src/lj_err.c new file mode 100644 index 00000000000..52631b8e7ab --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_err.c @@ -0,0 +1,786 @@ +/* +** Error handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_err_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_func.h" +#include "lj_state.h" +#include "lj_frame.h" +#include "lj_ff.h" +#include "lj_trace.h" +#include "lj_vm.h" + +/* +** LuaJIT can either use internal or external frame unwinding: +** +** - Internal frame unwinding (INT) is free-standing and doesn't require +** any OS or library support. +** +** - External frame unwinding (EXT) uses the system-provided unwind handler. +** +** Pros and Cons: +** +** - EXT requires unwind tables for *all* functions on the C stack between +** the pcall/catch and the error/throw. This is the default on x64, +** but needs to be manually enabled on x86/PPC for non-C++ code. +** +** - INT is faster when actually throwing errors (but this happens rarely). +** Setting up error handlers is zero-cost in any case. +** +** - EXT provides full interoperability with C++ exceptions. You can throw +** Lua errors or C++ exceptions through a mix of Lua frames and C++ frames. +** C++ destructors are called as needed. C++ exceptions caught by pcall +** are converted to the string "C++ exception". Lua errors can be caught +** with catch (...) in C++. +** +** - INT has only limited support for automatically catching C++ exceptions +** on POSIX systems using DWARF2 stack unwinding. Other systems may use +** the wrapper function feature. Lua errors thrown through C++ frames +** cannot be caught by C++ code and C++ destructors are not run. +** +** EXT is the default on x64 systems, INT is the default on all other systems. +** +** EXT can be manually enabled on POSIX systems using GCC and DWARF2 stack +** unwinding with -DLUAJIT_UNWIND_EXTERNAL. *All* C code must be compiled +** with -funwind-tables (or -fexceptions). This includes LuaJIT itself (set +** TARGET_CFLAGS), all of your C/Lua binding code, all loadable C modules +** and all C libraries that have callbacks which may be used to call back +** into Lua. C++ code must *not* be compiled with -fno-exceptions. +** +** EXT cannot be enabled on WIN32 since system exceptions use code-driven SEH. +** EXT is mandatory on WIN64 since the calling convention has an abundance +** of callee-saved registers (rbx, rbp, rsi, rdi, r12-r15, xmm6-xmm15). +** EXT is mandatory on POSIX/x64 since the interpreter doesn't save r12/r13. +*/ + +#if defined(__GNUC__) && (LJ_TARGET_X64 || defined(LUAJIT_UNWIND_EXTERNAL)) +#define LJ_UNWIND_EXT 1 +#elif LJ_TARGET_X64 && LJ_TARGET_WINDOWS +#define LJ_UNWIND_EXT 1 +#endif + +/* -- Error messages ------------------------------------------------------ */ + +/* Error message strings. */ +LJ_DATADEF const char *lj_err_allmsg = +#define ERRDEF(name, msg) msg "\0" +#include "lj_errmsg.h" +; + +/* -- Internal frame unwinding -------------------------------------------- */ + +/* Unwind Lua stack and move error message to new top. */ +LJ_NOINLINE static void unwindstack(lua_State *L, TValue *top) +{ + lj_func_closeuv(L, top); + if (top < L->top-1) { + copyTV(L, top, L->top-1); + L->top = top+1; + } + lj_state_relimitstack(L); +} + +/* Unwind until stop frame. Optionally cleanup frames. */ +static void *err_unwind(lua_State *L, void *stopcf, int errcode) +{ + TValue *frame = L->base-1; + void *cf = L->cframe; + while (cf) { + int32_t nres = cframe_nres(cframe_raw(cf)); + if (nres < 0) { /* C frame without Lua frame? */ + TValue *top = restorestack(L, -nres); + if (frame < top) { /* Frame reached? */ + if (errcode) { + L->cframe = cframe_prev(cf); + L->base = frame+1; + unwindstack(L, top); + } + return cf; + } + } + if (frame <= tvref(L->stack)) + break; + switch (frame_typep(frame)) { + case FRAME_LUA: /* Lua frame. */ + case FRAME_LUAP: + frame = frame_prevl(frame); + break; + case FRAME_C: /* C frame. */ +#if LJ_HASFFI + unwind_c: +#endif +#if LJ_UNWIND_EXT + if (errcode) { + L->cframe = cframe_prev(cf); + L->base = frame_prevd(frame) + 1; + unwindstack(L, frame); + } else if (cf != stopcf) { + cf = cframe_prev(cf); + frame = frame_prevd(frame); + break; + } + return NULL; /* Continue unwinding. */ +#else + UNUSED(stopcf); + cf = cframe_prev(cf); + frame = frame_prevd(frame); + break; +#endif + case FRAME_CP: /* Protected C frame. */ + if (cframe_canyield(cf)) { /* Resume? */ + if (errcode) { + hook_leave(G(L)); /* Assumes nobody uses coroutines inside hooks. */ + L->cframe = NULL; + L->status = (uint8_t)errcode; + } + return cf; + } + if (errcode) { + L->cframe = cframe_prev(cf); + L->base = frame_prevd(frame) + 1; + unwindstack(L, frame); + } + return cf; + case FRAME_CONT: /* Continuation frame. */ +#if LJ_HASFFI + if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) + goto unwind_c; +#endif + case FRAME_VARG: /* Vararg frame. */ + frame = frame_prevd(frame); + break; + case FRAME_PCALL: /* FF pcall() frame. */ + case FRAME_PCALLH: /* FF pcall() frame inside hook. */ + if (errcode) { + if (errcode == LUA_YIELD) { + frame = frame_prevd(frame); + break; + } + if (frame_typep(frame) == FRAME_PCALL) + hook_leave(G(L)); + L->cframe = cf; + L->base = frame_prevd(frame) + 1; + unwindstack(L, L->base); + } + return (void *)((intptr_t)cf | CFRAME_UNWIND_FF); + } + } + /* No C frame. */ + if (errcode) { + L->cframe = NULL; + L->base = tvref(L->stack)+1; + unwindstack(L, L->base); + if (G(L)->panic) + G(L)->panic(L); + exit(EXIT_FAILURE); + } + return L; /* Anything non-NULL will do. */ +} + +/* -- External frame unwinding -------------------------------------------- */ + +#if defined(__GNUC__) && !LJ_NO_UNWIND && !LJ_TARGET_WINDOWS + +/* +** We have to use our own definitions instead of the mandatory (!) unwind.h, +** since various OS, distros and compilers mess up the header installation. +*/ + +typedef struct _Unwind_Exception +{ + uint64_t exclass; + void (*excleanup)(int, struct _Unwind_Exception *); + uintptr_t p1, p2; +} __attribute__((__aligned__)) _Unwind_Exception; + +typedef struct _Unwind_Context _Unwind_Context; + +#define _URC_OK 0 +#define _URC_FATAL_PHASE1_ERROR 3 +#define _URC_HANDLER_FOUND 6 +#define _URC_INSTALL_CONTEXT 7 +#define _URC_CONTINUE_UNWIND 8 +#define _URC_FAILURE 9 + +#if !LJ_TARGET_ARM + +extern uintptr_t _Unwind_GetCFA(_Unwind_Context *); +extern void _Unwind_SetGR(_Unwind_Context *, int, uintptr_t); +extern void _Unwind_SetIP(_Unwind_Context *, uintptr_t); +extern void _Unwind_DeleteException(_Unwind_Exception *); +extern int _Unwind_RaiseException(_Unwind_Exception *); + +#define _UA_SEARCH_PHASE 1 +#define _UA_CLEANUP_PHASE 2 +#define _UA_HANDLER_FRAME 4 +#define _UA_FORCE_UNWIND 8 + +#define LJ_UEXCLASS 0x4c55414a49543200ULL /* LUAJIT2\0 */ +#define LJ_UEXCLASS_MAKE(c) (LJ_UEXCLASS | (uint64_t)(c)) +#define LJ_UEXCLASS_CHECK(cl) (((cl) ^ LJ_UEXCLASS) <= 0xff) +#define LJ_UEXCLASS_ERRCODE(cl) ((int)((cl) & 0xff)) + +/* DWARF2 personality handler referenced from interpreter .eh_frame. */ +LJ_FUNCA int lj_err_unwind_dwarf(int version, int actions, + uint64_t uexclass, _Unwind_Exception *uex, _Unwind_Context *ctx) +{ + void *cf; + lua_State *L; + if (version != 1) + return _URC_FATAL_PHASE1_ERROR; + UNUSED(uexclass); + cf = (void *)_Unwind_GetCFA(ctx); + L = cframe_L(cf); + if ((actions & _UA_SEARCH_PHASE)) { +#if LJ_UNWIND_EXT + if (err_unwind(L, cf, 0) == NULL) + return _URC_CONTINUE_UNWIND; +#endif + if (!LJ_UEXCLASS_CHECK(uexclass)) { + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); + } + return _URC_HANDLER_FOUND; + } + if ((actions & _UA_CLEANUP_PHASE)) { + int errcode; + if (LJ_UEXCLASS_CHECK(uexclass)) { + errcode = LJ_UEXCLASS_ERRCODE(uexclass); + } else { + if ((actions & _UA_HANDLER_FRAME)) + _Unwind_DeleteException(uex); + errcode = LUA_ERRRUN; + } +#if LJ_UNWIND_EXT + cf = err_unwind(L, cf, errcode); + if ((actions & _UA_FORCE_UNWIND)) { + return _URC_CONTINUE_UNWIND; + } else if (cf) { + _Unwind_SetGR(ctx, LJ_TARGET_EHRETREG, errcode); + _Unwind_SetIP(ctx, (uintptr_t)(cframe_unwind_ff(cf) ? + lj_vm_unwind_ff_eh : + lj_vm_unwind_c_eh)); + return _URC_INSTALL_CONTEXT; + } +#if LJ_TARGET_X86ORX64 + else if ((actions & _UA_HANDLER_FRAME)) { + /* Workaround for ancient libgcc bug. Still present in RHEL 5.5. :-/ + ** Real fix: http://gcc.gnu.org/viewcvs/trunk/gcc/unwind-dw2.c?r1=121165&r2=124837&pathrev=153877&diff_format=h + */ + _Unwind_SetGR(ctx, LJ_TARGET_EHRETREG, errcode); + _Unwind_SetIP(ctx, (uintptr_t)lj_vm_unwind_rethrow); + return _URC_INSTALL_CONTEXT; + } +#endif +#else + /* This is not the proper way to escape from the unwinder. We get away with + ** it on non-x64 because the interpreter restores all callee-saved regs. + */ + lj_err_throw(L, errcode); +#endif + } + return _URC_CONTINUE_UNWIND; +} + +#if LJ_UNWIND_EXT +#if LJ_TARGET_OSX || defined(__OpenBSD__) +/* Sorry, no thread safety for OSX. Complain to Apple, not me. */ +static _Unwind_Exception static_uex; +#else +static __thread _Unwind_Exception static_uex; +#endif + +/* Raise DWARF2 exception. */ +static void err_raise_ext(int errcode) +{ + static_uex.exclass = LJ_UEXCLASS_MAKE(errcode); + static_uex.excleanup = NULL; + _Unwind_RaiseException(&static_uex); +} +#endif + +#else + +extern void _Unwind_DeleteException(void *); +extern int __gnu_unwind_frame (void *, _Unwind_Context *); +extern int _Unwind_VRS_Set(_Unwind_Context *, int, uint32_t, int, void *); +extern int _Unwind_VRS_Get(_Unwind_Context *, int, uint32_t, int, void *); + +static inline uint32_t _Unwind_GetGR(_Unwind_Context *ctx, int r) +{ + uint32_t v; + _Unwind_VRS_Get(ctx, 0, r, 0, &v); + return v; +} + +static inline void _Unwind_SetGR(_Unwind_Context *ctx, int r, uint32_t v) +{ + _Unwind_VRS_Set(ctx, 0, r, 0, &v); +} + +#define _US_VIRTUAL_UNWIND_FRAME 0 +#define _US_UNWIND_FRAME_STARTING 1 +#define _US_ACTION_MASK 3 +#define _US_FORCE_UNWIND 8 + +/* ARM unwinder personality handler referenced from interpreter .ARM.extab. */ +LJ_FUNCA int lj_err_unwind_arm(int state, void *ucb, _Unwind_Context *ctx) +{ + void *cf = (void *)_Unwind_GetGR(ctx, 13); + lua_State *L = cframe_L(cf); + if ((state & _US_ACTION_MASK) == _US_VIRTUAL_UNWIND_FRAME) { + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); + return _URC_HANDLER_FOUND; + } + if ((state&(_US_ACTION_MASK|_US_FORCE_UNWIND)) == _US_UNWIND_FRAME_STARTING) { + _Unwind_DeleteException(ucb); + _Unwind_SetGR(ctx, 15, (uint32_t)(void *)lj_err_throw); + _Unwind_SetGR(ctx, 0, (uint32_t)L); + _Unwind_SetGR(ctx, 1, (uint32_t)LUA_ERRRUN); + return _URC_INSTALL_CONTEXT; + } + if (__gnu_unwind_frame(ucb, ctx) != _URC_OK) + return _URC_FAILURE; + return _URC_CONTINUE_UNWIND; +} + +#endif + +#elif LJ_TARGET_X64 && LJ_TARGET_WINDOWS + +/* +** Someone in Redmond owes me several days of my life. A lot of this is +** undocumented or just plain wrong on MSDN. Some of it can be gathered +** from 3rd party docs or must be found by trial-and-error. They really +** don't want you to write your own language-specific exception handler +** or to interact gracefully with MSVC. :-( +** +** Apparently MSVC doesn't call C++ destructors for foreign exceptions +** unless you compile your C++ code with /EHa. Unfortunately this means +** catch (...) also catches things like access violations. The use of +** _set_se_translator doesn't really help, because it requires /EHa, too. +*/ + +#define WIN32_LEAN_AND_MEAN +#include + +/* Taken from: http://www.nynaeve.net/?p=99 */ +typedef struct UndocumentedDispatcherContext { + ULONG64 ControlPc; + ULONG64 ImageBase; + PRUNTIME_FUNCTION FunctionEntry; + ULONG64 EstablisherFrame; + ULONG64 TargetIp; + PCONTEXT ContextRecord; + void (*LanguageHandler)(void); + PVOID HandlerData; + PUNWIND_HISTORY_TABLE HistoryTable; + ULONG ScopeIndex; + ULONG Fill0; +} UndocumentedDispatcherContext; + +/* Another wild guess. */ +extern void __DestructExceptionObject(EXCEPTION_RECORD *rec, int nothrow); + +#ifdef MINGW_SDK_INIT +/* Workaround for broken MinGW64 declaration. */ +VOID RtlUnwindEx_FIXED(PVOID,PVOID,PVOID,PVOID,PVOID,PVOID) asm("RtlUnwindEx"); +#define RtlUnwindEx RtlUnwindEx_FIXED +#endif + +#define LJ_MSVC_EXCODE ((DWORD)0xe06d7363) +#define LJ_GCC_EXCODE ((DWORD)0x20474343) + +#define LJ_EXCODE ((DWORD)0xe24c4a00) +#define LJ_EXCODE_MAKE(c) (LJ_EXCODE | (DWORD)(c)) +#define LJ_EXCODE_CHECK(cl) (((cl) ^ LJ_EXCODE) <= 0xff) +#define LJ_EXCODE_ERRCODE(cl) ((int)((cl) & 0xff)) + +/* Win64 exception handler for interpreter frame. */ +LJ_FUNCA EXCEPTION_DISPOSITION lj_err_unwind_win64(EXCEPTION_RECORD *rec, + void *cf, CONTEXT *ctx, UndocumentedDispatcherContext *dispatch) +{ + lua_State *L = cframe_L(cf); + int errcode = LJ_EXCODE_CHECK(rec->ExceptionCode) ? + LJ_EXCODE_ERRCODE(rec->ExceptionCode) : LUA_ERRRUN; + if ((rec->ExceptionFlags & 6)) { /* EH_UNWINDING|EH_EXIT_UNWIND */ + /* Unwind internal frames. */ + err_unwind(L, cf, errcode); + } else { + void *cf2 = err_unwind(L, cf, 0); + if (cf2) { /* We catch it, so start unwinding the upper frames. */ + if (rec->ExceptionCode == LJ_MSVC_EXCODE || + rec->ExceptionCode == LJ_GCC_EXCODE) { + __DestructExceptionObject(rec, 1); + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); + } else if (!LJ_EXCODE_CHECK(rec->ExceptionCode)) { + /* Don't catch access violations etc. */ + return ExceptionContinueSearch; + } + /* Unwind the stack and call all handlers for all lower C frames + ** (including ourselves) again with EH_UNWINDING set. Then set + ** rsp = cf, rax = errcode and jump to the specified target. + */ + RtlUnwindEx(cf, (void *)((cframe_unwind_ff(cf2) && errcode != LUA_YIELD) ? + lj_vm_unwind_ff_eh : + lj_vm_unwind_c_eh), + rec, (void *)(uintptr_t)errcode, ctx, dispatch->HistoryTable); + /* RtlUnwindEx should never return. */ + } + } + return ExceptionContinueSearch; +} + +/* Raise Windows exception. */ +static void err_raise_ext(int errcode) +{ + RaiseException(LJ_EXCODE_MAKE(errcode), 1 /* EH_NONCONTINUABLE */, 0, NULL); +} + +#endif + +/* -- Error handling ------------------------------------------------------ */ + +/* Throw error. Find catch frame, unwind stack and continue. */ +LJ_NOINLINE void LJ_FASTCALL lj_err_throw(lua_State *L, int errcode) +{ + global_State *g = G(L); + lj_trace_abort(g); + setgcrefnull(g->jit_L); + L->status = 0; +#if LJ_UNWIND_EXT + err_raise_ext(errcode); + /* + ** A return from this function signals a corrupt C stack that cannot be + ** unwound. We have no choice but to call the panic function and exit. + ** + ** Usually this is caused by a C function without unwind information. + ** This should never happen on x64, but may happen if you've manually + ** enabled LUAJIT_UNWIND_EXTERNAL and forgot to recompile *every* + ** non-C++ file with -funwind-tables. + */ + if (G(L)->panic) + G(L)->panic(L); +#else + { + void *cf = err_unwind(L, NULL, errcode); + if (cframe_unwind_ff(cf)) + lj_vm_unwind_ff(cframe_raw(cf)); + else + lj_vm_unwind_c(cframe_raw(cf), errcode); + } +#endif + exit(EXIT_FAILURE); +} + +/* Return string object for error message. */ +LJ_NOINLINE GCstr *lj_err_str(lua_State *L, ErrMsg em) +{ + return lj_str_newz(L, err2msg(em)); +} + +/* Out-of-memory error. */ +LJ_NOINLINE void lj_err_mem(lua_State *L) +{ + if (L->status == LUA_ERRERR+1) /* Don't touch the stack during lua_open. */ + lj_vm_unwind_c(L->cframe, LUA_ERRMEM); + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRMEM)); + lj_err_throw(L, LUA_ERRMEM); +} + +/* Find error function for runtime errors. Requires an extra stack traversal. */ +static ptrdiff_t finderrfunc(lua_State *L) +{ + cTValue *frame = L->base-1, *bot = tvref(L->stack); + void *cf = L->cframe; + while (frame > bot && cf) { + while (cframe_nres(cframe_raw(cf)) < 0) { /* cframe without frame? */ + if (frame >= restorestack(L, -cframe_nres(cf))) + break; + if (cframe_errfunc(cf) >= 0) /* Error handler not inherited (-1)? */ + return cframe_errfunc(cf); + cf = cframe_prev(cf); /* Else unwind cframe and continue searching. */ + if (cf == NULL) + return 0; + } + switch (frame_typep(frame)) { + case FRAME_LUA: + case FRAME_LUAP: + frame = frame_prevl(frame); + break; + case FRAME_C: + cf = cframe_prev(cf); + /* fallthrough */ + case FRAME_VARG: + frame = frame_prevd(frame); + break; + case FRAME_CONT: +#if LJ_HASFFI + if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) + cf = cframe_prev(cf); +#endif + frame = frame_prevd(frame); + break; + case FRAME_CP: + if (cframe_canyield(cf)) return 0; + if (cframe_errfunc(cf) >= 0) + return cframe_errfunc(cf); + frame = frame_prevd(frame); + break; + case FRAME_PCALL: + case FRAME_PCALLH: + if (frame_ftsz(frame) >= (ptrdiff_t)(2*sizeof(TValue))) /* xpcall? */ + return savestack(L, frame-1); /* Point to xpcall's errorfunc. */ + return 0; + default: + lua_assert(0); + return 0; + } + } + return 0; +} + +/* Runtime error. */ +LJ_NOINLINE void lj_err_run(lua_State *L) +{ + ptrdiff_t ef = finderrfunc(L); + if (ef) { + TValue *errfunc = restorestack(L, ef); + TValue *top = L->top; + lj_trace_abort(G(L)); + if (!tvisfunc(errfunc) || L->status == LUA_ERRERR) { + setstrV(L, top-1, lj_err_str(L, LJ_ERR_ERRERR)); + lj_err_throw(L, LUA_ERRERR); + } + L->status = LUA_ERRERR; + copyTV(L, top, top-1); + copyTV(L, top-1, errfunc); + L->top = top+1; + lj_vm_call(L, top, 1+1); /* Stack: |errfunc|msg| -> |msg| */ + } + lj_err_throw(L, LUA_ERRRUN); +} + +/* Formatted runtime error message. */ +LJ_NORET LJ_NOINLINE static void err_msgv(lua_State *L, ErrMsg em, ...) +{ + const char *msg; + va_list argp; + va_start(argp, em); + if (curr_funcisL(L)) L->top = curr_topL(L); + msg = lj_str_pushvf(L, err2msg(em), argp); + va_end(argp); + lj_debug_addloc(L, msg, L->base-1, NULL); + lj_err_run(L); +} + +/* Non-vararg variant for better calling conventions. */ +LJ_NOINLINE void lj_err_msg(lua_State *L, ErrMsg em) +{ + err_msgv(L, em); +} + +/* Lexer error. */ +LJ_NOINLINE void lj_err_lex(lua_State *L, GCstr *src, const char *tok, + BCLine line, ErrMsg em, va_list argp) +{ + char buff[LUA_IDSIZE]; + const char *msg; + lj_debug_shortname(buff, src); + msg = lj_str_pushvf(L, err2msg(em), argp); + msg = lj_str_pushf(L, "%s:%d: %s", buff, line, msg); + if (tok) + lj_str_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tok); + lj_err_throw(L, LUA_ERRSYNTAX); +} + +/* Typecheck error for operands. */ +LJ_NOINLINE void lj_err_optype(lua_State *L, cTValue *o, ErrMsg opm) +{ + const char *tname = lj_typename(o); + const char *opname = err2msg(opm); + if (curr_funcisL(L)) { + GCproto *pt = curr_proto(L); + const BCIns *pc = cframe_Lpc(L) - 1; + const char *oname = NULL; + const char *kind = lj_debug_slotname(pt, pc, (BCReg)(o-L->base), &oname); + if (kind) + err_msgv(L, LJ_ERR_BADOPRT, opname, kind, oname, tname); + } + err_msgv(L, LJ_ERR_BADOPRV, opname, tname); +} + +/* Typecheck error for ordered comparisons. */ +LJ_NOINLINE void lj_err_comp(lua_State *L, cTValue *o1, cTValue *o2) +{ + const char *t1 = lj_typename(o1); + const char *t2 = lj_typename(o2); + err_msgv(L, t1 == t2 ? LJ_ERR_BADCMPV : LJ_ERR_BADCMPT, t1, t2); + /* This assumes the two "boolean" entries are commoned by the C compiler. */ +} + +/* Typecheck error for __call. */ +LJ_NOINLINE void lj_err_optype_call(lua_State *L, TValue *o) +{ + /* Gross hack if lua_[p]call or pcall/xpcall fail for a non-callable object: + ** L->base still points to the caller. So add a dummy frame with L instead + ** of a function. See lua_getstack(). + */ + const BCIns *pc = cframe_Lpc(L); + if (((ptrdiff_t)pc & FRAME_TYPE) != FRAME_LUA) { + const char *tname = lj_typename(o); + setframe_pc(o, pc); + setframe_gc(o, obj2gco(L)); + L->top = L->base = o+1; + err_msgv(L, LJ_ERR_BADCALL, tname); + } + lj_err_optype(L, o, LJ_ERR_OPCALL); +} + +/* Error in context of caller. */ +LJ_NOINLINE void lj_err_callermsg(lua_State *L, const char *msg) +{ + TValue *frame = L->base-1; + TValue *pframe = NULL; + if (frame_islua(frame)) { + pframe = frame_prevl(frame); + } else if (frame_iscont(frame)) { +#if LJ_HASFFI + if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) { + pframe = frame; + frame = NULL; + } else +#endif + { + pframe = frame_prevd(frame); +#if LJ_HASFFI + /* Remove frame for FFI metamethods. */ + if (frame_func(frame)->c.ffid >= FF_ffi_meta___index && + frame_func(frame)->c.ffid <= FF_ffi_meta___tostring) { + L->base = pframe+1; + L->top = frame; + setcframe_pc(cframe_raw(L->cframe), frame_contpc(frame)); + } +#endif + } + } + lj_debug_addloc(L, msg, pframe, frame); + lj_err_run(L); +} + +/* Formatted error in context of caller. */ +LJ_NOINLINE void lj_err_callerv(lua_State *L, ErrMsg em, ...) +{ + const char *msg; + va_list argp; + va_start(argp, em); + msg = lj_str_pushvf(L, err2msg(em), argp); + va_end(argp); + lj_err_callermsg(L, msg); +} + +/* Error in context of caller. */ +LJ_NOINLINE void lj_err_caller(lua_State *L, ErrMsg em) +{ + lj_err_callermsg(L, err2msg(em)); +} + +/* Argument error message. */ +LJ_NORET LJ_NOINLINE static void err_argmsg(lua_State *L, int narg, + const char *msg) +{ + const char *fname = "?"; + const char *ftype = lj_debug_funcname(L, L->base - 1, &fname); + if (narg < 0 && narg > LUA_REGISTRYINDEX) + narg = (int)(L->top - L->base) + narg + 1; + if (ftype && ftype[3] == 'h' && --narg == 0) /* Check for "method". */ + msg = lj_str_pushf(L, err2msg(LJ_ERR_BADSELF), fname, msg); + else + msg = lj_str_pushf(L, err2msg(LJ_ERR_BADARG), narg, fname, msg); + lj_err_callermsg(L, msg); +} + +/* Formatted argument error. */ +LJ_NOINLINE void lj_err_argv(lua_State *L, int narg, ErrMsg em, ...) +{ + const char *msg; + va_list argp; + va_start(argp, em); + msg = lj_str_pushvf(L, err2msg(em), argp); + va_end(argp); + err_argmsg(L, narg, msg); +} + +/* Argument error. */ +LJ_NOINLINE void lj_err_arg(lua_State *L, int narg, ErrMsg em) +{ + err_argmsg(L, narg, err2msg(em)); +} + +/* Typecheck error for arguments. */ +LJ_NOINLINE void lj_err_argtype(lua_State *L, int narg, const char *xname) +{ + TValue *o = narg < 0 ? L->top + narg : L->base + narg-1; + const char *tname = o < L->top ? lj_typename(o) : lj_obj_typename[0]; + const char *msg = lj_str_pushf(L, err2msg(LJ_ERR_BADTYPE), xname, tname); + err_argmsg(L, narg, msg); +} + +/* Typecheck error for arguments. */ +LJ_NOINLINE void lj_err_argt(lua_State *L, int narg, int tt) +{ + lj_err_argtype(L, narg, lj_obj_typename[tt+1]); +} + +/* -- Public error handling API ------------------------------------------- */ + +LUA_API lua_CFunction lua_atpanic(lua_State *L, lua_CFunction panicf) +{ + lua_CFunction old = G(L)->panic; + G(L)->panic = panicf; + return old; +} + +/* Forwarders for the public API (C calling convention and no LJ_NORET). */ +LUA_API int lua_error(lua_State *L) +{ + lj_err_run(L); + return 0; /* unreachable */ +} + +LUALIB_API int luaL_argerror(lua_State *L, int narg, const char *msg) +{ + err_argmsg(L, narg, msg); + return 0; /* unreachable */ +} + +LUALIB_API int luaL_typerror(lua_State *L, int narg, const char *xname) +{ + lj_err_argtype(L, narg, xname); + return 0; /* unreachable */ +} + +LUALIB_API void luaL_where(lua_State *L, int level) +{ + int size; + cTValue *frame = lj_debug_frame(L, level, &size); + lj_debug_addloc(L, "", frame, size ? frame+size : NULL); +} + +LUALIB_API int luaL_error(lua_State *L, const char *fmt, ...) +{ + const char *msg; + va_list argp; + va_start(argp, fmt); + msg = lj_str_pushvf(L, fmt, argp); + va_end(argp); + lj_err_callermsg(L, msg); + return 0; /* unreachable */ +} + diff --git a/src/3rd party/luajit-2.0/src/lj_err.h b/src/3rd party/luajit-2.0/src/lj_err.h new file mode 100644 index 00000000000..03a56f0362c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_err.h @@ -0,0 +1,41 @@ +/* +** Error handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_ERR_H +#define _LJ_ERR_H + +#include + +#include "lj_obj.h" + +typedef enum { +#define ERRDEF(name, msg) \ + LJ_ERR_##name, LJ_ERR_##name##_ = LJ_ERR_##name + sizeof(msg)-1, +#include "lj_errmsg.h" + LJ_ERR__MAX +} ErrMsg; + +LJ_DATA const char *lj_err_allmsg; +#define err2msg(em) (lj_err_allmsg+(int)(em)) + +LJ_FUNC GCstr *lj_err_str(lua_State *L, ErrMsg em); +LJ_FUNCA_NORET void LJ_FASTCALL lj_err_throw(lua_State *L, int errcode); +LJ_FUNC_NORET void lj_err_mem(lua_State *L); +LJ_FUNC_NORET void lj_err_run(lua_State *L); +LJ_FUNC_NORET void lj_err_msg(lua_State *L, ErrMsg em); +LJ_FUNC_NORET void lj_err_lex(lua_State *L, GCstr *src, const char *tok, + BCLine line, ErrMsg em, va_list argp); +LJ_FUNC_NORET void lj_err_optype(lua_State *L, cTValue *o, ErrMsg opm); +LJ_FUNC_NORET void lj_err_comp(lua_State *L, cTValue *o1, cTValue *o2); +LJ_FUNC_NORET void lj_err_optype_call(lua_State *L, TValue *o); +LJ_FUNC_NORET void lj_err_callermsg(lua_State *L, const char *msg); +LJ_FUNC_NORET void lj_err_callerv(lua_State *L, ErrMsg em, ...); +LJ_FUNC_NORET void lj_err_caller(lua_State *L, ErrMsg em); +LJ_FUNC_NORET void lj_err_arg(lua_State *L, int narg, ErrMsg em); +LJ_FUNC_NORET void lj_err_argv(lua_State *L, int narg, ErrMsg em, ...); +LJ_FUNC_NORET void lj_err_argtype(lua_State *L, int narg, const char *xname); +LJ_FUNC_NORET void lj_err_argt(lua_State *L, int narg, int tt); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_errmsg.h b/src/3rd party/luajit-2.0/src/lj_errmsg.h new file mode 100644 index 00000000000..1c9487607b6 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_errmsg.h @@ -0,0 +1,193 @@ +/* +** VM error messages. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* This file may be included multiple times with different ERRDEF macros. */ + +/* Basic error handling. */ +ERRDEF(ERRMEM, "not enough memory") +ERRDEF(ERRERR, "error in error handling") +ERRDEF(ERRCPP, "C++ exception") + +/* Allocations. */ +ERRDEF(STROV, "string length overflow") +ERRDEF(UDATAOV, "userdata length overflow") +ERRDEF(STKOV, "stack overflow") +ERRDEF(STKOVM, "stack overflow (%s)") +ERRDEF(TABOV, "table overflow") + +/* Table indexing. */ +ERRDEF(NANIDX, "table index is NaN") +ERRDEF(NILIDX, "table index is nil") +ERRDEF(NEXTIDX, "invalid key to " LUA_QL("next")) + +/* Metamethod resolving. */ +ERRDEF(BADCALL, "attempt to call a %s value") +ERRDEF(BADOPRT, "attempt to %s %s " LUA_QS " (a %s value)") +ERRDEF(BADOPRV, "attempt to %s a %s value") +ERRDEF(BADCMPT, "attempt to compare %s with %s") +ERRDEF(BADCMPV, "attempt to compare two %s values") +ERRDEF(GETLOOP, "loop in gettable") +ERRDEF(SETLOOP, "loop in settable") +ERRDEF(OPCALL, "call") +ERRDEF(OPINDEX, "index") +ERRDEF(OPARITH, "perform arithmetic on") +ERRDEF(OPCAT, "concatenate") +ERRDEF(OPLEN, "get length of") + +/* Type checks. */ +ERRDEF(BADSELF, "calling " LUA_QS " on bad self (%s)") +ERRDEF(BADARG, "bad argument #%d to " LUA_QS " (%s)") +ERRDEF(BADTYPE, "%s expected, got %s") +ERRDEF(BADVAL, "invalid value") +ERRDEF(NOVAL, "value expected") +ERRDEF(NOCORO, "coroutine expected") +ERRDEF(NOTABN, "nil or table expected") +ERRDEF(NOLFUNC, "Lua function expected") +ERRDEF(NOFUNCL, "function or level expected") +ERRDEF(NOSFT, "string/function/table expected") +ERRDEF(NOPROXY, "boolean or proxy expected") +ERRDEF(FORINIT, LUA_QL("for") " initial value must be a number") +ERRDEF(FORLIM, LUA_QL("for") " limit must be a number") +ERRDEF(FORSTEP, LUA_QL("for") " step must be a number") + +/* C API checks. */ +ERRDEF(NOENV, "no calling environment") +ERRDEF(CYIELD, "attempt to yield across C-call boundary") +ERRDEF(BADLU, "bad light userdata pointer") +ERRDEF(NOGCMM, "bad action while in __gc metamethod") +#if LJ_TARGET_WINDOWS +ERRDEF(BADFPU, "bad FPU precision (use D3DCREATE_FPU_PRESERVE with DirectX)") +#endif + +/* Standard library function errors. */ +ERRDEF(ASSERT, "assertion failed!") +ERRDEF(PROTMT, "cannot change a protected metatable") +ERRDEF(UNPACK, "too many results to unpack") +ERRDEF(RDRSTR, "reader function must return a string") +ERRDEF(PRTOSTR, LUA_QL("tostring") " must return a string to " LUA_QL("print")) +ERRDEF(IDXRNG, "index out of range") +ERRDEF(BASERNG, "base out of range") +ERRDEF(LVLRNG, "level out of range") +ERRDEF(INVLVL, "invalid level") +ERRDEF(INVOPT, "invalid option") +ERRDEF(INVOPTM, "invalid option " LUA_QS) +ERRDEF(INVFMT, "invalid format") +ERRDEF(SETFENV, LUA_QL("setfenv") " cannot change environment of given object") +ERRDEF(CORUN, "cannot resume running coroutine") +ERRDEF(CODEAD, "cannot resume dead coroutine") +ERRDEF(COSUSP, "cannot resume non-suspended coroutine") +ERRDEF(TABINS, "wrong number of arguments to " LUA_QL("insert")) +ERRDEF(TABCAT, "invalid value (%s) at index %d in table for " LUA_QL("concat")) +ERRDEF(TABSORT, "invalid order function for sorting") +ERRDEF(IOCLFL, "attempt to use a closed file") +ERRDEF(IOSTDCL, "standard file is closed") +ERRDEF(OSUNIQF, "unable to generate a unique filename") +ERRDEF(OSDATEF, "field " LUA_QS " missing in date table") +ERRDEF(STRDUMP, "unable to dump given function") +ERRDEF(STRSLC, "string slice too long") +ERRDEF(STRPATB, "missing " LUA_QL("[") " after " LUA_QL("%f") " in pattern") +ERRDEF(STRPATC, "invalid pattern capture") +ERRDEF(STRPATE, "malformed pattern (ends with " LUA_QL("%") ")") +ERRDEF(STRPATM, "malformed pattern (missing " LUA_QL("]") ")") +ERRDEF(STRPATU, "unbalanced pattern") +ERRDEF(STRPATX, "pattern too complex") +ERRDEF(STRCAPI, "invalid capture index") +ERRDEF(STRCAPN, "too many captures") +ERRDEF(STRCAPU, "unfinished capture") +ERRDEF(STRFMTO, "invalid option " LUA_QL("%%%c") " to " LUA_QL("format")) +ERRDEF(STRFMTR, "invalid format (repeated flags)") +ERRDEF(STRFMTW, "invalid format (width or precision too long)") +ERRDEF(STRGSRV, "invalid replacement value (a %s)") +ERRDEF(BADMODN, "name conflict for module " LUA_QS) +#if LJ_HASJIT +ERRDEF(JITPROT, "runtime code generation failed, restricted kernel?") +#if LJ_TARGET_X86ORX64 +ERRDEF(NOJIT, "JIT compiler disabled, CPU does not support SSE2") +#else +ERRDEF(NOJIT, "JIT compiler disabled") +#endif +#elif defined(LJ_ARCH_NOJIT) +ERRDEF(NOJIT, "no JIT compiler for this architecture (yet)") +#else +ERRDEF(NOJIT, "JIT compiler permanently disabled by build option") +#endif +ERRDEF(JITOPT, "unknown or malformed optimization flag " LUA_QS) + +/* Lexer/parser errors. */ +ERRDEF(XMODE, "attempt to load chunk with wrong mode") +ERRDEF(XNEAR, "%s near " LUA_QS) +ERRDEF(XELEM, "lexical element too long") +ERRDEF(XLINES, "chunk has too many lines") +ERRDEF(XLEVELS, "chunk has too many syntax levels") +ERRDEF(XNUMBER, "malformed number") +ERRDEF(XLSTR, "unfinished long string") +ERRDEF(XLCOM, "unfinished long comment") +ERRDEF(XSTR, "unfinished string") +ERRDEF(XESC, "invalid escape sequence") +ERRDEF(XLDELIM, "invalid long string delimiter") +ERRDEF(XTOKEN, LUA_QS " expected") +ERRDEF(XJUMP, "control structure too long") +ERRDEF(XSLOTS, "function or expression too complex") +ERRDEF(XLIMC, "chunk has more than %d local variables") +ERRDEF(XLIMM, "main function has more than %d %s") +ERRDEF(XLIMF, "function at line %d has more than %d %s") +ERRDEF(XMATCH, LUA_QS " expected (to close " LUA_QS " at line %d)") +ERRDEF(XFIXUP, "function too long for return fixup") +ERRDEF(XPARAM, " or " LUA_QL("...") " expected") +#if !LJ_52 +ERRDEF(XAMBIG, "ambiguous syntax (function call x new statement)") +#endif +ERRDEF(XFUNARG, "function arguments expected") +ERRDEF(XSYMBOL, "unexpected symbol") +ERRDEF(XDOTS, "cannot use " LUA_QL("...") " outside a vararg function") +ERRDEF(XSYNTAX, "syntax error") +ERRDEF(XFOR, LUA_QL("=") " or " LUA_QL("in") " expected") +ERRDEF(XBREAK, "no loop to break") +ERRDEF(XLUNDEF, "undefined label " LUA_QS) +ERRDEF(XLDUP, "duplicate label " LUA_QS) +ERRDEF(XGSCOPE, " jumps into the scope of local " LUA_QS) + +/* Bytecode reader errors. */ +ERRDEF(BCFMT, "cannot load incompatible bytecode") +ERRDEF(BCBAD, "cannot load malformed bytecode") + +#if LJ_HASFFI +/* FFI errors. */ +ERRDEF(FFI_INVTYPE, "invalid C type") +ERRDEF(FFI_INVSIZE, "size of C type is unknown or too large") +ERRDEF(FFI_BADSCL, "bad storage class") +ERRDEF(FFI_DECLSPEC, "declaration specifier expected") +ERRDEF(FFI_BADTAG, "undeclared or implicit tag " LUA_QS) +ERRDEF(FFI_REDEF, "attempt to redefine " LUA_QS) +ERRDEF(FFI_NUMPARAM, "wrong number of type parameters") +ERRDEF(FFI_INITOV, "too many initializers for " LUA_QS) +ERRDEF(FFI_BADCONV, "cannot convert " LUA_QS " to " LUA_QS) +ERRDEF(FFI_BADLEN, "attempt to get length of " LUA_QS) +ERRDEF(FFI_BADCONCAT, "attempt to concatenate " LUA_QS " and " LUA_QS) +ERRDEF(FFI_BADARITH, "attempt to perform arithmetic on " LUA_QS " and " LUA_QS) +ERRDEF(FFI_BADCOMP, "attempt to compare " LUA_QS " with " LUA_QS) +ERRDEF(FFI_BADCALL, LUA_QS " is not callable") +ERRDEF(FFI_NUMARG, "wrong number of arguments for function call") +ERRDEF(FFI_BADMEMBER, LUA_QS " has no member named " LUA_QS) +ERRDEF(FFI_BADIDX, LUA_QS " cannot be indexed") +ERRDEF(FFI_BADIDXW, LUA_QS " cannot be indexed with " LUA_QS) +ERRDEF(FFI_BADMM, LUA_QS " has no " LUA_QS " metamethod") +ERRDEF(FFI_WRCONST, "attempt to write to constant location") +ERRDEF(FFI_NODECL, "missing declaration for symbol " LUA_QS) +ERRDEF(FFI_BADCBACK, "bad callback") +#if LJ_OS_NOJIT +ERRDEF(FFI_CBACKOV, "no support for callbacks on this OS") +#else +ERRDEF(FFI_CBACKOV, "too many callbacks") +#endif +ERRDEF(FFI_NYIPACKBIT, "NYI: packed bit fields") +ERRDEF(FFI_NYICALL, "NYI: cannot call this C function (yet)") +#endif + +#undef ERRDEF + +/* Detecting unused error messages: + awk -F, '/^ERRDEF/ { gsub(/ERRDEF./, ""); printf "grep -q LJ_ERR_%s *.[ch] || echo %s\n", $1, $1}' lj_errmsg.h | sh +*/ diff --git a/src/3rd party/luajit-2.0/src/lj_ff.h b/src/3rd party/luajit-2.0/src/lj_ff.h new file mode 100644 index 00000000000..73dad9695a6 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ff.h @@ -0,0 +1,18 @@ +/* +** Fast function IDs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_FF_H +#define _LJ_FF_H + +/* Fast function ID. */ +typedef enum { + FF_LUA_ = FF_LUA, /* Lua function (must be 0). */ + FF_C_ = FF_C, /* Regular C function (must be 1). */ +#define FFDEF(name) FF_##name, +#include "lj_ffdef.h" + FF__MAX +} FastFunc; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ffrecord.c b/src/3rd party/luajit-2.0/src/lj_ffrecord.c new file mode 100644 index 00000000000..69f71ab2efb --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ffrecord.c @@ -0,0 +1,888 @@ +/* +** Fast function call recorder. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_ffrecord_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_frame.h" +#include "lj_bc.h" +#include "lj_ff.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_record.h" +#include "lj_ffrecord.h" +#include "lj_crecord.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_strscan.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* -- Fast function recording handlers ------------------------------------ */ + +/* Conventions for fast function call handlers: +** +** The argument slots start at J->base[0]. All of them are guaranteed to be +** valid and type-specialized references. J->base[J->maxslot] is set to 0 +** as a sentinel. The runtime argument values start at rd->argv[0]. +** +** In general fast functions should check for presence of all of their +** arguments and for the correct argument types. Some simplifications +** are allowed if the interpreter throws instead. But even if recording +** is aborted, the generated IR must be consistent (no zero-refs). +** +** The number of results in rd->nres is set to 1. Handlers that return +** a different number of results need to override it. A negative value +** prevents return processing (e.g. for pending calls). +** +** Results need to be stored starting at J->base[0]. Return processing +** moves them to the right slots later. +** +** The per-ffid auxiliary data is the value of the 2nd part of the +** LJLIB_REC() annotation. This allows handling similar functionality +** in a common handler. +*/ + +/* Type of handler to record a fast function. */ +typedef void (LJ_FASTCALL *RecordFunc)(jit_State *J, RecordFFData *rd); + +/* Get runtime value of int argument. */ +static int32_t argv2int(jit_State *J, TValue *o) +{ + if (!lj_strscan_numberobj(o)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + return tvisint(o) ? intV(o) : lj_num2int(numV(o)); +} + +/* Get runtime value of string argument. */ +static GCstr *argv2str(jit_State *J, TValue *o) +{ + if (LJ_LIKELY(tvisstr(o))) { + return strV(o); + } else { + GCstr *s; + if (!tvisnumber(o)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + if (tvisint(o)) + s = lj_str_fromint(J->L, intV(o)); + else + s = lj_str_fromnum(J->L, &o->n); + setstrV(J->L, o, s); + return s; + } +} + +/* Return number of results wanted by caller. */ +static ptrdiff_t results_wanted(jit_State *J) +{ + TValue *frame = J->L->base-1; + if (frame_islua(frame)) + return (ptrdiff_t)bc_b(frame_pc(frame)[-1]) - 1; + else + return -1; +} + +/* Throw error for unsupported variant of fast function. */ +LJ_NORET static void recff_nyiu(jit_State *J) +{ + setfuncV(J->L, &J->errinfo, J->fn); + lj_trace_err_info(J, LJ_TRERR_NYIFFU); +} + +/* Fallback handler for all fast functions that are not recorded (yet). */ +static void LJ_FASTCALL recff_nyi(jit_State *J, RecordFFData *rd) +{ + setfuncV(J->L, &J->errinfo, J->fn); + lj_trace_err_info(J, LJ_TRERR_NYIFF); + UNUSED(rd); +} + +/* C functions can have arbitrary side-effects and are not recorded (yet). */ +static void LJ_FASTCALL recff_c(jit_State *J, RecordFFData *rd) +{ + setfuncV(J->L, &J->errinfo, J->fn); + lj_trace_err_info(J, LJ_TRERR_NYICF); + UNUSED(rd); +} + +/* -- Base library fast functions ----------------------------------------- */ + +static void LJ_FASTCALL recff_assert(jit_State *J, RecordFFData *rd) +{ + /* Arguments already specialized. The interpreter throws for nil/false. */ + rd->nres = J->maxslot; /* Pass through all arguments. */ +} + +static void LJ_FASTCALL recff_type(jit_State *J, RecordFFData *rd) +{ + /* Arguments already specialized. Result is a constant string. Neat, huh? */ + uint32_t t; + if (tvisnumber(&rd->argv[0])) + t = ~LJ_TNUMX; + else if (LJ_64 && tvislightud(&rd->argv[0])) + t = ~LJ_TLIGHTUD; + else + t = ~itype(&rd->argv[0]); + J->base[0] = lj_ir_kstr(J, strV(&J->fn->c.upvalue[t])); + UNUSED(rd); +} + +static void LJ_FASTCALL recff_getmetatable(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tr) { + RecordIndex ix; + ix.tab = tr; + copyTV(J->L, &ix.tabv, &rd->argv[0]); + if (lj_record_mm_lookup(J, &ix, MM_metatable)) + J->base[0] = ix.mobj; + else + J->base[0] = ix.mt; + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_setmetatable(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + TRef mt = J->base[1]; + if (tref_istab(tr) && (tref_istab(mt) || (mt && tref_isnil(mt)))) { + TRef fref, mtref; + RecordIndex ix; + ix.tab = tr; + copyTV(J->L, &ix.tabv, &rd->argv[0]); + lj_record_mm_lookup(J, &ix, MM_metatable); /* Guard for no __metatable. */ + fref = emitir(IRT(IR_FREF, IRT_P32), tr, IRFL_TAB_META); + mtref = tref_isnil(mt) ? lj_ir_knull(J, IRT_TAB) : mt; + emitir(IRT(IR_FSTORE, IRT_TAB), fref, mtref); + if (!tref_isnil(mt)) + emitir(IRT(IR_TBAR, IRT_TAB), tr, 0); + J->base[0] = tr; + J->needsnap = 1; + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_rawget(jit_State *J, RecordFFData *rd) +{ + RecordIndex ix; + ix.tab = J->base[0]; ix.key = J->base[1]; + if (tref_istab(ix.tab) && ix.key) { + ix.val = 0; ix.idxchain = 0; + settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); + copyTV(J->L, &ix.keyv, &rd->argv[1]); + J->base[0] = lj_record_idx(J, &ix); + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_rawset(jit_State *J, RecordFFData *rd) +{ + RecordIndex ix; + ix.tab = J->base[0]; ix.key = J->base[1]; ix.val = J->base[2]; + if (tref_istab(ix.tab) && ix.key && ix.val) { + ix.idxchain = 0; + settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); + copyTV(J->L, &ix.keyv, &rd->argv[1]); + copyTV(J->L, &ix.valv, &rd->argv[2]); + lj_record_idx(J, &ix); + /* Pass through table at J->base[0] as result. */ + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_rawequal(jit_State *J, RecordFFData *rd) +{ + TRef tra = J->base[0]; + TRef trb = J->base[1]; + if (tra && trb) { + int diff = lj_record_objcmp(J, tra, trb, &rd->argv[0], &rd->argv[1]); + J->base[0] = diff ? TREF_FALSE : TREF_TRUE; + } /* else: Interpreter will throw. */ +} + +#if LJ_52 +static void LJ_FASTCALL recff_rawlen(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tref_isstr(tr)) + J->base[0] = emitir(IRTI(IR_FLOAD), tr, IRFL_STR_LEN); + else if (tref_istab(tr)) + J->base[0] = lj_ir_call(J, IRCALL_lj_tab_len, tr); + /* else: Interpreter will throw. */ + UNUSED(rd); +} +#endif + +/* Determine mode of select() call. */ +int32_t lj_ffrecord_select_mode(jit_State *J, TRef tr, TValue *tv) +{ + if (tref_isstr(tr) && *strVdata(tv) == '#') { /* select('#', ...) */ + if (strV(tv)->len == 1) { + emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, strV(tv))); + } else { + TRef trptr = emitir(IRT(IR_STRREF, IRT_P32), tr, lj_ir_kint(J, 0)); + TRef trchar = emitir(IRT(IR_XLOAD, IRT_U8), trptr, IRXLOAD_READONLY); + emitir(IRTG(IR_EQ, IRT_INT), trchar, lj_ir_kint(J, '#')); + } + return 0; + } else { /* select(n, ...) */ + int32_t start = argv2int(J, tv); + if (start == 0) lj_trace_err(J, LJ_TRERR_BADTYPE); /* A bit misleading. */ + return start; + } +} + +static void LJ_FASTCALL recff_select(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tr) { + ptrdiff_t start = lj_ffrecord_select_mode(J, tr, &rd->argv[0]); + if (start == 0) { /* select('#', ...) */ + J->base[0] = lj_ir_kint(J, J->maxslot - 1); + } else if (tref_isk(tr)) { /* select(k, ...) */ + ptrdiff_t n = (ptrdiff_t)J->maxslot; + if (start < 0) start += n; + else if (start > n) start = n; + rd->nres = n - start; + if (start >= 1) { + ptrdiff_t i; + for (i = 0; i < n - start; i++) + J->base[i] = J->base[start+i]; + } /* else: Interpreter will throw. */ + } else { + recff_nyiu(J); + } + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_tonumber(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + TRef base = J->base[1]; + if (tr && !tref_isnil(base)) { + base = lj_opt_narrow_toint(J, base); + if (!tref_isk(base) || IR(tref_ref(base))->i != 10) + recff_nyiu(J); + } + if (tref_isnumber_str(tr)) { + if (tref_isstr(tr)) { + TValue tmp; + if (!lj_strscan_num(strV(&rd->argv[0]), &tmp)) + recff_nyiu(J); /* Would need an inverted STRTO for this case. */ + tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); + } +#if LJ_HASFFI + } else if (tref_iscdata(tr)) { + lj_crecord_tonumber(J, rd); + return; +#endif + } else { + tr = TREF_NIL; + } + J->base[0] = tr; + UNUSED(rd); +} + +static TValue *recff_metacall_cp(lua_State *L, lua_CFunction dummy, void *ud) +{ + jit_State *J = (jit_State *)ud; + lj_record_tailcall(J, 0, 1); + UNUSED(L); UNUSED(dummy); + return NULL; +} + +static int recff_metacall(jit_State *J, RecordFFData *rd, MMS mm) +{ + RecordIndex ix; + ix.tab = J->base[0]; + copyTV(J->L, &ix.tabv, &rd->argv[0]); + if (lj_record_mm_lookup(J, &ix, mm)) { /* Has metamethod? */ + int errcode; + TValue argv0; + /* Temporarily insert metamethod below object. */ + J->base[1] = J->base[0]; + J->base[0] = ix.mobj; + copyTV(J->L, &argv0, &rd->argv[0]); + copyTV(J->L, &rd->argv[1], &rd->argv[0]); + copyTV(J->L, &rd->argv[0], &ix.mobjv); + /* Need to protect lj_record_tailcall because it may throw. */ + errcode = lj_vm_cpcall(J->L, NULL, J, recff_metacall_cp); + /* Always undo Lua stack changes to avoid confusing the interpreter. */ + copyTV(J->L, &rd->argv[0], &argv0); + if (errcode) + lj_err_throw(J->L, errcode); /* Propagate errors. */ + rd->nres = -1; /* Pending call. */ + return 1; /* Tailcalled to metamethod. */ + } + return 0; +} + +static void LJ_FASTCALL recff_tostring(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tref_isstr(tr)) { + /* Ignore __tostring in the string base metatable. */ + /* Pass on result in J->base[0]. */ + } else if (!recff_metacall(J, rd, MM_tostring)) { + if (tref_isnumber(tr)) { + J->base[0] = emitir(IRT(IR_TOSTR, IRT_STR), tr, 0); + } else if (tref_ispri(tr)) { + J->base[0] = lj_ir_kstr(J, strV(&J->fn->c.upvalue[tref_type(tr)])); + } else { + recff_nyiu(J); + } + } +} + +static void LJ_FASTCALL recff_ipairs_aux(jit_State *J, RecordFFData *rd) +{ + RecordIndex ix; + ix.tab = J->base[0]; + if (tref_istab(ix.tab)) { + if (!tvisnumber(&rd->argv[1])) /* No support for string coercion. */ + lj_trace_err(J, LJ_TRERR_BADTYPE); + setintV(&ix.keyv, numberVint(&rd->argv[1])+1); + settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); + ix.val = 0; ix.idxchain = 0; + ix.key = lj_opt_narrow_toint(J, J->base[1]); + J->base[0] = ix.key = emitir(IRTI(IR_ADD), ix.key, lj_ir_kint(J, 1)); + J->base[1] = lj_record_idx(J, &ix); + rd->nres = tref_isnil(J->base[1]) ? 0 : 2; + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_ipairs(jit_State *J, RecordFFData *rd) +{ + if (!(LJ_52 && recff_metacall(J, rd, MM_ipairs))) { + TRef tab = J->base[0]; + if (tref_istab(tab)) { + J->base[0] = lj_ir_kfunc(J, funcV(&J->fn->c.upvalue[0])); + J->base[1] = tab; + J->base[2] = lj_ir_kint(J, 0); + rd->nres = 3; + } /* else: Interpreter will throw. */ + } +} + +static void LJ_FASTCALL recff_pcall(jit_State *J, RecordFFData *rd) +{ + if (J->maxslot >= 1) { + lj_record_call(J, 0, J->maxslot - 1); + rd->nres = -1; /* Pending call. */ + } /* else: Interpreter will throw. */ +} + +static TValue *recff_xpcall_cp(lua_State *L, lua_CFunction dummy, void *ud) +{ + jit_State *J = (jit_State *)ud; + lj_record_call(J, 1, J->maxslot - 2); + UNUSED(L); UNUSED(dummy); + return NULL; +} + +static void LJ_FASTCALL recff_xpcall(jit_State *J, RecordFFData *rd) +{ + if (J->maxslot >= 2) { + TValue argv0, argv1; + TRef tmp; + int errcode; + /* Swap function and traceback. */ + tmp = J->base[0]; J->base[0] = J->base[1]; J->base[1] = tmp; + copyTV(J->L, &argv0, &rd->argv[0]); + copyTV(J->L, &argv1, &rd->argv[1]); + copyTV(J->L, &rd->argv[0], &argv1); + copyTV(J->L, &rd->argv[1], &argv0); + /* Need to protect lj_record_call because it may throw. */ + errcode = lj_vm_cpcall(J->L, NULL, J, recff_xpcall_cp); + /* Always undo Lua stack swap to avoid confusing the interpreter. */ + copyTV(J->L, &rd->argv[0], &argv0); + copyTV(J->L, &rd->argv[1], &argv1); + if (errcode) + lj_err_throw(J->L, errcode); /* Propagate errors. */ + rd->nres = -1; /* Pending call. */ + } /* else: Interpreter will throw. */ +} + +/* -- Math library fast functions ----------------------------------------- */ + +static void LJ_FASTCALL recff_math_abs(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + J->base[0] = emitir(IRTN(IR_ABS), tr, lj_ir_knum_abs(J)); + UNUSED(rd); +} + +/* Record rounding functions math.floor and math.ceil. */ +static void LJ_FASTCALL recff_math_round(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (!tref_isinteger(tr)) { /* Pass through integers unmodified. */ + tr = emitir(IRTN(IR_FPMATH), lj_ir_tonum(J, tr), rd->data); + /* Result is integral (or NaN/Inf), but may not fit an int32_t. */ + if (LJ_DUALNUM) { /* Try to narrow using a guarded conversion to int. */ + lua_Number n = lj_vm_foldfpm(numberVnum(&rd->argv[0]), rd->data); + if (n == (lua_Number)lj_num2int(n)) + tr = emitir(IRTGI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_CHECK); + } + J->base[0] = tr; + } +} + +/* Record unary math.* functions, mapped to IR_FPMATH opcode. */ +static void LJ_FASTCALL recff_math_unary(jit_State *J, RecordFFData *rd) +{ + J->base[0] = emitir(IRTN(IR_FPMATH), lj_ir_tonum(J, J->base[0]), rd->data); +} + +/* Record math.log. */ +static void LJ_FASTCALL recff_math_log(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + if (J->base[1]) { +#ifdef LUAJIT_NO_LOG2 + uint32_t fpm = IRFPM_LOG; +#else + uint32_t fpm = IRFPM_LOG2; +#endif + TRef trb = lj_ir_tonum(J, J->base[1]); + tr = emitir(IRTN(IR_FPMATH), tr, fpm); + trb = emitir(IRTN(IR_FPMATH), trb, fpm); + trb = emitir(IRTN(IR_DIV), lj_ir_knum_one(J), trb); + tr = emitir(IRTN(IR_MUL), tr, trb); + } else { + tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_LOG); + } + J->base[0] = tr; + UNUSED(rd); +} + +/* Record math.atan2. */ +static void LJ_FASTCALL recff_math_atan2(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + TRef tr2 = lj_ir_tonum(J, J->base[1]); + J->base[0] = emitir(IRTN(IR_ATAN2), tr, tr2); + UNUSED(rd); +} + +/* Record math.ldexp. */ +static void LJ_FASTCALL recff_math_ldexp(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); +#if LJ_TARGET_X86ORX64 + TRef tr2 = lj_ir_tonum(J, J->base[1]); +#else + TRef tr2 = lj_opt_narrow_toint(J, J->base[1]); +#endif + J->base[0] = emitir(IRTN(IR_LDEXP), tr, tr2); + UNUSED(rd); +} + +/* Record math.asin, math.acos, math.atan. */ +static void LJ_FASTCALL recff_math_atrig(jit_State *J, RecordFFData *rd) +{ + TRef y = lj_ir_tonum(J, J->base[0]); + TRef x = lj_ir_knum_one(J); + uint32_t ffid = rd->data; + if (ffid != FF_math_atan) { + TRef tmp = emitir(IRTN(IR_MUL), y, y); + tmp = emitir(IRTN(IR_SUB), x, tmp); + tmp = emitir(IRTN(IR_FPMATH), tmp, IRFPM_SQRT); + if (ffid == FF_math_asin) { x = tmp; } else { x = y; y = tmp; } + } + J->base[0] = emitir(IRTN(IR_ATAN2), y, x); +} + +static void LJ_FASTCALL recff_math_htrig(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + J->base[0] = emitir(IRTN(IR_CALLN), tr, rd->data); +} + +static void LJ_FASTCALL recff_math_modf(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tref_isinteger(tr)) { + J->base[0] = tr; + J->base[1] = lj_ir_kint(J, 0); + } else { + TRef trt; + tr = lj_ir_tonum(J, tr); + trt = emitir(IRTN(IR_FPMATH), tr, IRFPM_TRUNC); + J->base[0] = trt; + J->base[1] = emitir(IRTN(IR_SUB), tr, trt); + } + rd->nres = 2; +} + +static void LJ_FASTCALL recff_math_degrad(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + TRef trm = lj_ir_knum(J, numV(&J->fn->c.upvalue[0])); + J->base[0] = emitir(IRTN(IR_MUL), tr, trm); + UNUSED(rd); +} + +static void LJ_FASTCALL recff_math_pow(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonum(J, J->base[0]); + if (!tref_isnumber_str(J->base[1])) + lj_trace_err(J, LJ_TRERR_BADTYPE); + J->base[0] = lj_opt_narrow_pow(J, tr, J->base[1], &rd->argv[1]); + UNUSED(rd); +} + +static void LJ_FASTCALL recff_math_minmax(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_ir_tonumber(J, J->base[0]); + uint32_t op = rd->data; + BCReg i; + for (i = 1; J->base[i] != 0; i++) { + TRef tr2 = lj_ir_tonumber(J, J->base[i]); + IRType t = IRT_INT; + if (!(tref_isinteger(tr) && tref_isinteger(tr2))) { + if (tref_isinteger(tr)) tr = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); + if (tref_isinteger(tr2)) tr2 = emitir(IRTN(IR_CONV), tr2, IRCONV_NUM_INT); + t = IRT_NUM; + } + tr = emitir(IRT(op, t), tr, tr2); + } + J->base[0] = tr; +} + +static void LJ_FASTCALL recff_math_random(jit_State *J, RecordFFData *rd) +{ + GCudata *ud = udataV(&J->fn->c.upvalue[0]); + TRef tr, one; + lj_ir_kgc(J, obj2gco(ud), IRT_UDATA); /* Prevent collection. */ + tr = lj_ir_call(J, IRCALL_lj_math_random_step, lj_ir_kptr(J, uddata(ud))); + one = lj_ir_knum_one(J); + tr = emitir(IRTN(IR_SUB), tr, one); + if (J->base[0]) { + TRef tr1 = lj_ir_tonum(J, J->base[0]); + if (J->base[1]) { /* d = floor(d*(r2-r1+1.0)) + r1 */ + TRef tr2 = lj_ir_tonum(J, J->base[1]); + tr2 = emitir(IRTN(IR_SUB), tr2, tr1); + tr2 = emitir(IRTN(IR_ADD), tr2, one); + tr = emitir(IRTN(IR_MUL), tr, tr2); + tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_FLOOR); + tr = emitir(IRTN(IR_ADD), tr, tr1); + } else { /* d = floor(d*r1) + 1.0 */ + tr = emitir(IRTN(IR_MUL), tr, tr1); + tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_FLOOR); + tr = emitir(IRTN(IR_ADD), tr, one); + } + } + J->base[0] = tr; + UNUSED(rd); +} + +/* -- Bit library fast functions ------------------------------------------ */ + +/* Record unary bit.tobit, bit.bnot, bit.bswap. */ +static void LJ_FASTCALL recff_bit_unary(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_opt_narrow_tobit(J, J->base[0]); + J->base[0] = (rd->data == IR_TOBIT) ? tr : emitir(IRTI(rd->data), tr, 0); +} + +/* Record N-ary bit.band, bit.bor, bit.bxor. */ +static void LJ_FASTCALL recff_bit_nary(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_opt_narrow_tobit(J, J->base[0]); + uint32_t op = rd->data; + BCReg i; + for (i = 1; J->base[i] != 0; i++) + tr = emitir(IRTI(op), tr, lj_opt_narrow_tobit(J, J->base[i])); + J->base[0] = tr; +} + +/* Record bit shifts. */ +static void LJ_FASTCALL recff_bit_shift(jit_State *J, RecordFFData *rd) +{ + TRef tr = lj_opt_narrow_tobit(J, J->base[0]); + TRef tsh = lj_opt_narrow_tobit(J, J->base[1]); + IROp op = (IROp)rd->data; + if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && + !tref_isk(tsh)) + tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 31)); +#ifdef LJ_TARGET_UNIFYROT + if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { + op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; + tsh = emitir(IRTI(IR_NEG), tsh, tsh); + } +#endif + J->base[0] = emitir(IRTI(op), tr, tsh); +} + +/* -- String library fast functions --------------------------------------- */ + +static void LJ_FASTCALL recff_string_len(jit_State *J, RecordFFData *rd) +{ + J->base[0] = emitir(IRTI(IR_FLOAD), lj_ir_tostr(J, J->base[0]), IRFL_STR_LEN); + UNUSED(rd); +} + +/* Handle string.byte (rd->data = 0) and string.sub (rd->data = 1). */ +static void LJ_FASTCALL recff_string_range(jit_State *J, RecordFFData *rd) +{ + TRef trstr = lj_ir_tostr(J, J->base[0]); + TRef trlen = emitir(IRTI(IR_FLOAD), trstr, IRFL_STR_LEN); + TRef tr0 = lj_ir_kint(J, 0); + TRef trstart, trend; + GCstr *str = argv2str(J, &rd->argv[0]); + int32_t start, end; + if (rd->data) { /* string.sub(str, start [,end]) */ + start = argv2int(J, &rd->argv[1]); + trstart = lj_opt_narrow_toint(J, J->base[1]); + trend = J->base[2]; + if (tref_isnil(trend)) { + trend = lj_ir_kint(J, -1); + end = -1; + } else { + trend = lj_opt_narrow_toint(J, trend); + end = argv2int(J, &rd->argv[2]); + } + } else { /* string.byte(str, [,start [,end]]) */ + if (tref_isnil(J->base[1])) { + start = 1; + trstart = lj_ir_kint(J, 1); + } else { + start = argv2int(J, &rd->argv[1]); + trstart = lj_opt_narrow_toint(J, J->base[1]); + } + if (J->base[1] && !tref_isnil(J->base[2])) { + trend = lj_opt_narrow_toint(J, J->base[2]); + end = argv2int(J, &rd->argv[2]); + } else { + trend = trstart; + end = start; + } + } + if (end < 0) { + emitir(IRTGI(IR_LT), trend, tr0); + trend = emitir(IRTI(IR_ADD), emitir(IRTI(IR_ADD), trlen, trend), + lj_ir_kint(J, 1)); + end = end+(int32_t)str->len+1; + } else if ((MSize)end <= str->len) { + emitir(IRTGI(IR_ULE), trend, trlen); + } else { + emitir(IRTGI(IR_GT), trend, trlen); + end = (int32_t)str->len; + trend = trlen; + } + if (start < 0) { + emitir(IRTGI(IR_LT), trstart, tr0); + trstart = emitir(IRTI(IR_ADD), trlen, trstart); + start = start+(int32_t)str->len; + emitir(start < 0 ? IRTGI(IR_LT) : IRTGI(IR_GE), trstart, tr0); + if (start < 0) { + trstart = tr0; + start = 0; + } + } else { + if (start == 0) { + emitir(IRTGI(IR_EQ), trstart, tr0); + trstart = tr0; + } else { + trstart = emitir(IRTI(IR_ADD), trstart, lj_ir_kint(J, -1)); + emitir(IRTGI(IR_GE), trstart, tr0); + start--; + } + } + if (rd->data) { /* Return string.sub result. */ + if (end - start >= 0) { + /* Also handle empty range here, to avoid extra traces. */ + TRef trptr, trslen = emitir(IRTI(IR_SUB), trend, trstart); + emitir(IRTGI(IR_GE), trslen, tr0); + trptr = emitir(IRT(IR_STRREF, IRT_P32), trstr, trstart); + J->base[0] = emitir(IRT(IR_SNEW, IRT_STR), trptr, trslen); + } else { /* Range underflow: return empty string. */ + emitir(IRTGI(IR_LT), trend, trstart); + J->base[0] = lj_ir_kstr(J, lj_str_new(J->L, strdata(str), 0)); + } + } else { /* Return string.byte result(s). */ + ptrdiff_t i, len = end - start; + if (len > 0) { + TRef trslen = emitir(IRTI(IR_SUB), trend, trstart); + emitir(IRTGI(IR_EQ), trslen, lj_ir_kint(J, (int32_t)len)); + if (J->baseslot + len > LJ_MAX_JSLOTS) + lj_trace_err_info(J, LJ_TRERR_STACKOV); + rd->nres = len; + for (i = 0; i < len; i++) { + TRef tmp = emitir(IRTI(IR_ADD), trstart, lj_ir_kint(J, (int32_t)i)); + tmp = emitir(IRT(IR_STRREF, IRT_P32), trstr, tmp); + J->base[i] = emitir(IRT(IR_XLOAD, IRT_U8), tmp, IRXLOAD_READONLY); + } + } else { /* Empty range or range underflow: return no results. */ + emitir(IRTGI(IR_LE), trend, trstart); + rd->nres = 0; + } + } +} + +/* -- Table library fast functions ---------------------------------------- */ + +static void LJ_FASTCALL recff_table_getn(jit_State *J, RecordFFData *rd) +{ + if (tref_istab(J->base[0])) + J->base[0] = lj_ir_call(J, IRCALL_lj_tab_len, J->base[0]); + /* else: Interpreter will throw. */ + UNUSED(rd); +} + +static void LJ_FASTCALL recff_table_remove(jit_State *J, RecordFFData *rd) +{ + TRef tab = J->base[0]; + rd->nres = 0; + if (tref_istab(tab)) { + if (tref_isnil(J->base[1])) { /* Simple pop: t[#t] = nil */ + TRef trlen = lj_ir_call(J, IRCALL_lj_tab_len, tab); + GCtab *t = tabV(&rd->argv[0]); + MSize len = lj_tab_len(t); + emitir(IRTGI(len ? IR_NE : IR_EQ), trlen, lj_ir_kint(J, 0)); + if (len) { + RecordIndex ix; + ix.tab = tab; + ix.key = trlen; + settabV(J->L, &ix.tabv, t); + setintV(&ix.keyv, len); + ix.idxchain = 0; + if (results_wanted(J) != 0) { /* Specialize load only if needed. */ + ix.val = 0; + J->base[0] = lj_record_idx(J, &ix); /* Load previous value. */ + rd->nres = 1; + /* Assumes ix.key/ix.tab is not modified for raw lj_record_idx(). */ + } + ix.val = TREF_NIL; + lj_record_idx(J, &ix); /* Remove value. */ + } + } else { /* Complex case: remove in the middle. */ + recff_nyiu(J); + } + } /* else: Interpreter will throw. */ +} + +static void LJ_FASTCALL recff_table_insert(jit_State *J, RecordFFData *rd) +{ + RecordIndex ix; + ix.tab = J->base[0]; + ix.val = J->base[1]; + rd->nres = 0; + if (tref_istab(ix.tab) && ix.val) { + if (!J->base[2]) { /* Simple push: t[#t+1] = v */ + TRef trlen = lj_ir_call(J, IRCALL_lj_tab_len, ix.tab); + GCtab *t = tabV(&rd->argv[0]); + ix.key = emitir(IRTI(IR_ADD), trlen, lj_ir_kint(J, 1)); + settabV(J->L, &ix.tabv, t); + setintV(&ix.keyv, lj_tab_len(t) + 1); + ix.idxchain = 0; + lj_record_idx(J, &ix); /* Set new value. */ + } else { /* Complex case: insert in the middle. */ + recff_nyiu(J); + } + } /* else: Interpreter will throw. */ +} + +/* -- I/O library fast functions ------------------------------------------ */ + +/* Get FILE* for I/O function. Any I/O error aborts recording, so there's +** no need to encode the alternate cases for any of the guards. +*/ +static TRef recff_io_fp(jit_State *J, TRef *udp, int32_t id) +{ + TRef tr, ud, fp; + if (id) { /* io.func() */ + tr = lj_ir_kptr(J, &J2G(J)->gcroot[id]); + ud = emitir(IRT(IR_XLOAD, IRT_UDATA), tr, 0); + } else { /* fp:method() */ + ud = J->base[0]; + if (!tref_isudata(ud)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + tr = emitir(IRT(IR_FLOAD, IRT_U8), ud, IRFL_UDATA_UDTYPE); + emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, UDTYPE_IO_FILE)); + } + *udp = ud; + fp = emitir(IRT(IR_FLOAD, IRT_PTR), ud, IRFL_UDATA_FILE); + emitir(IRTG(IR_NE, IRT_PTR), fp, lj_ir_knull(J, IRT_PTR)); + return fp; +} + +static void LJ_FASTCALL recff_io_write(jit_State *J, RecordFFData *rd) +{ + TRef ud, fp = recff_io_fp(J, &ud, rd->data); + TRef zero = lj_ir_kint(J, 0); + TRef one = lj_ir_kint(J, 1); + ptrdiff_t i = rd->data == 0 ? 1 : 0; + for (; J->base[i]; i++) { + TRef str = lj_ir_tostr(J, J->base[i]); + TRef buf = emitir(IRT(IR_STRREF, IRT_P32), str, zero); + TRef len = emitir(IRTI(IR_FLOAD), str, IRFL_STR_LEN); + if (tref_isk(len) && IR(tref_ref(len))->i == 1) { + TRef tr = emitir(IRT(IR_XLOAD, IRT_U8), buf, IRXLOAD_READONLY); + tr = lj_ir_call(J, IRCALL_fputc, tr, fp); + if (results_wanted(J) != 0) /* Check result only if not ignored. */ + emitir(IRTGI(IR_NE), tr, lj_ir_kint(J, -1)); + } else { + TRef tr = lj_ir_call(J, IRCALL_fwrite, buf, one, len, fp); + if (results_wanted(J) != 0) /* Check result only if not ignored. */ + emitir(IRTGI(IR_EQ), tr, len); + } + } + J->base[0] = LJ_52 ? ud : TREF_TRUE; +} + +static void LJ_FASTCALL recff_io_flush(jit_State *J, RecordFFData *rd) +{ + TRef ud, fp = recff_io_fp(J, &ud, rd->data); + TRef tr = lj_ir_call(J, IRCALL_fflush, fp); + if (results_wanted(J) != 0) /* Check result only if not ignored. */ + emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, 0)); + J->base[0] = TREF_TRUE; +} + +/* -- Record calls to fast functions -------------------------------------- */ + +#include "lj_recdef.h" + +static uint32_t recdef_lookup(GCfunc *fn) +{ + if (fn->c.ffid < sizeof(recff_idmap)/sizeof(recff_idmap[0])) + return recff_idmap[fn->c.ffid]; + else + return 0; +} + +/* Record entry to a fast function or C function. */ +void lj_ffrecord_func(jit_State *J) +{ + RecordFFData rd; + uint32_t m = recdef_lookup(J->fn); + rd.data = m & 0xff; + rd.nres = 1; /* Default is one result. */ + rd.argv = J->L->base; + J->base[J->maxslot] = 0; /* Mark end of arguments. */ + (recff_func[m >> 8])(J, &rd); /* Call recff_* handler. */ + if (rd.nres >= 0) { + if (J->postproc == LJ_POST_NONE) J->postproc = LJ_POST_FFRETRY; + lj_record_ret(J, 0, rd.nres); + } +} + +#undef IR +#undef emitir + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ffrecord.h b/src/3rd party/luajit-2.0/src/lj_ffrecord.h new file mode 100644 index 00000000000..f858ca29cfc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ffrecord.h @@ -0,0 +1,24 @@ +/* +** Fast function call recorder. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_FFRECORD_H +#define _LJ_FFRECORD_H + +#include "lj_obj.h" +#include "lj_jit.h" + +#if LJ_HASJIT +/* Data used by handlers to record a fast function. */ +typedef struct RecordFFData { + TValue *argv; /* Runtime argument values. */ + ptrdiff_t nres; /* Number of returned results (defaults to 1). */ + uint32_t data; /* Per-ffid auxiliary data (opcode, literal etc.). */ +} RecordFFData; + +LJ_FUNC int32_t lj_ffrecord_select_mode(jit_State *J, TRef tr, TValue *tv); +LJ_FUNC void lj_ffrecord_func(jit_State *J); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_frame.h b/src/3rd party/luajit-2.0/src/lj_frame.h new file mode 100644 index 00000000000..cd57be223fc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_frame.h @@ -0,0 +1,183 @@ +/* +** Stack frames. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_FRAME_H +#define _LJ_FRAME_H + +#include "lj_obj.h" +#include "lj_bc.h" + +/* -- Lua stack frame ----------------------------------------------------- */ + +/* Frame type markers in callee function slot (callee base-1). */ +enum { + FRAME_LUA, FRAME_C, FRAME_CONT, FRAME_VARG, + FRAME_LUAP, FRAME_CP, FRAME_PCALL, FRAME_PCALLH +}; +#define FRAME_TYPE 3 +#define FRAME_P 4 +#define FRAME_TYPEP (FRAME_TYPE|FRAME_P) + +/* Macros to access and modify Lua frames. */ +#define frame_gc(f) (gcref((f)->fr.func)) +#define frame_func(f) (&frame_gc(f)->fn) +#define frame_ftsz(f) ((f)->fr.tp.ftsz) + +#define frame_type(f) (frame_ftsz(f) & FRAME_TYPE) +#define frame_typep(f) (frame_ftsz(f) & FRAME_TYPEP) +#define frame_islua(f) (frame_type(f) == FRAME_LUA) +#define frame_isc(f) (frame_type(f) == FRAME_C) +#define frame_iscont(f) (frame_typep(f) == FRAME_CONT) +#define frame_isvarg(f) (frame_typep(f) == FRAME_VARG) +#define frame_ispcall(f) ((frame_ftsz(f) & 6) == FRAME_PCALL) + +#define frame_pc(f) (mref((f)->fr.tp.pcr, const BCIns)) +#define frame_contpc(f) (frame_pc((f)-1)) +#if LJ_64 +#define frame_contf(f) \ + ((ASMFunction)(void *)((intptr_t)lj_vm_asm_begin + \ + (intptr_t)(int32_t)((f)-1)->u32.lo)) +#else +#define frame_contf(f) ((ASMFunction)gcrefp(((f)-1)->gcr, void)) +#endif +#define frame_delta(f) (frame_ftsz(f) >> 3) +#define frame_sized(f) (frame_ftsz(f) & ~FRAME_TYPEP) + +#define frame_prevl(f) ((f) - (1+bc_a(frame_pc(f)[-1]))) +#define frame_prevd(f) ((TValue *)((char *)(f) - frame_sized(f))) +#define frame_prev(f) (frame_islua(f)?frame_prevl(f):frame_prevd(f)) +/* Note: this macro does not skip over FRAME_VARG. */ + +#define setframe_pc(f, pc) (setmref((f)->fr.tp.pcr, (pc))) +#define setframe_ftsz(f, sz) ((f)->fr.tp.ftsz = (sz)) +#define setframe_gc(f, p) (setgcref((f)->fr.func, (p))) + +/* -- C stack frame ------------------------------------------------------- */ + +/* Macros to access and modify the C stack frame chain. */ + +/* These definitions must match with the arch-specific *.dasc files. */ +#if LJ_TARGET_X86 +#define CFRAME_OFS_ERRF (15*4) +#define CFRAME_OFS_NRES (14*4) +#define CFRAME_OFS_PREV (13*4) +#define CFRAME_OFS_L (12*4) +#define CFRAME_OFS_PC (6*4) +#define CFRAME_OFS_MULTRES (5*4) +#define CFRAME_SIZE (12*4) +#define CFRAME_SHIFT_MULTRES 0 +#elif LJ_TARGET_X64 +#if LJ_ABI_WIN +#define CFRAME_OFS_PREV (13*8) +#define CFRAME_OFS_PC (25*4) +#define CFRAME_OFS_L (24*4) +#define CFRAME_OFS_ERRF (23*4) +#define CFRAME_OFS_NRES (22*4) +#define CFRAME_OFS_MULTRES (21*4) +#define CFRAME_SIZE (10*8) +#define CFRAME_SIZE_JIT (CFRAME_SIZE + 9*16 + 4*8) +#define CFRAME_SHIFT_MULTRES 0 +#else +#define CFRAME_OFS_PREV (4*8) +#define CFRAME_OFS_PC (7*4) +#define CFRAME_OFS_L (6*4) +#define CFRAME_OFS_ERRF (5*4) +#define CFRAME_OFS_NRES (4*4) +#define CFRAME_OFS_MULTRES (1*4) +#define CFRAME_SIZE (10*8) +#define CFRAME_SIZE_JIT (CFRAME_SIZE + 16) +#define CFRAME_SHIFT_MULTRES 0 +#endif +#elif LJ_TARGET_ARM +#define CFRAME_OFS_ERRF 24 +#define CFRAME_OFS_NRES 20 +#define CFRAME_OFS_PREV 16 +#define CFRAME_OFS_L 12 +#define CFRAME_OFS_PC 8 +#define CFRAME_OFS_MULTRES 4 +#if LJ_ARCH_HASFPU +#define CFRAME_SIZE 128 +#else +#define CFRAME_SIZE 64 +#endif +#define CFRAME_SHIFT_MULTRES 3 +#elif LJ_TARGET_PPC +#if LJ_TARGET_XBOX360 +#define CFRAME_OFS_ERRF 424 +#define CFRAME_OFS_NRES 420 +#define CFRAME_OFS_PREV 400 +#define CFRAME_OFS_L 416 +#define CFRAME_OFS_PC 412 +#define CFRAME_OFS_MULTRES 408 +#define CFRAME_SIZE 384 +#define CFRAME_SHIFT_MULTRES 3 +#elif LJ_ARCH_PPC64 +#define CFRAME_OFS_ERRF 472 +#define CFRAME_OFS_NRES 468 +#define CFRAME_OFS_PREV 448 +#define CFRAME_OFS_L 464 +#define CFRAME_OFS_PC 460 +#define CFRAME_OFS_MULTRES 456 +#define CFRAME_SIZE 400 +#define CFRAME_SHIFT_MULTRES 3 +#else +#define CFRAME_OFS_ERRF 48 +#define CFRAME_OFS_NRES 44 +#define CFRAME_OFS_PREV 40 +#define CFRAME_OFS_L 36 +#define CFRAME_OFS_PC 32 +#define CFRAME_OFS_MULTRES 28 +#define CFRAME_SIZE 272 +#define CFRAME_SHIFT_MULTRES 3 +#endif +#elif LJ_TARGET_PPCSPE +#define CFRAME_OFS_ERRF 28 +#define CFRAME_OFS_NRES 24 +#define CFRAME_OFS_PREV 20 +#define CFRAME_OFS_L 16 +#define CFRAME_OFS_PC 12 +#define CFRAME_OFS_MULTRES 8 +#define CFRAME_SIZE 184 +#define CFRAME_SHIFT_MULTRES 3 +#elif LJ_TARGET_MIPS +#define CFRAME_OFS_ERRF 124 +#define CFRAME_OFS_NRES 120 +#define CFRAME_OFS_PREV 116 +#define CFRAME_OFS_L 112 +#define CFRAME_OFS_PC 20 +#define CFRAME_OFS_MULTRES 16 +#define CFRAME_SIZE 112 +#define CFRAME_SHIFT_MULTRES 3 +#else +#error "Missing CFRAME_* definitions for this architecture" +#endif + +#ifndef CFRAME_SIZE_JIT +#define CFRAME_SIZE_JIT CFRAME_SIZE +#endif + +#define CFRAME_RESUME 1 +#define CFRAME_UNWIND_FF 2 /* Only used in unwinder. */ +#define CFRAME_RAWMASK (~(intptr_t)(CFRAME_RESUME|CFRAME_UNWIND_FF)) + +#define cframe_errfunc(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_ERRF)) +#define cframe_nres(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_NRES)) +#define cframe_prev(cf) (*(void **)(((char *)(cf))+CFRAME_OFS_PREV)) +#define cframe_multres(cf) (*(uint32_t *)(((char *)(cf))+CFRAME_OFS_MULTRES)) +#define cframe_multres_n(cf) (cframe_multres((cf)) >> CFRAME_SHIFT_MULTRES) +#define cframe_L(cf) \ + (&gcref(*(GCRef *)(((char *)(cf))+CFRAME_OFS_L))->th) +#define cframe_pc(cf) \ + (mref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), const BCIns)) +#define setcframe_L(cf, L) \ + (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_L), (L))) +#define setcframe_pc(cf, pc) \ + (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), (pc))) +#define cframe_canyield(cf) ((intptr_t)(cf) & CFRAME_RESUME) +#define cframe_unwind_ff(cf) ((intptr_t)(cf) & CFRAME_UNWIND_FF) +#define cframe_raw(cf) ((void *)((intptr_t)(cf) & CFRAME_RAWMASK)) +#define cframe_Lpc(L) cframe_pc(cframe_raw(L->cframe)) + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_func.c b/src/3rd party/luajit-2.0/src/lj_func.c new file mode 100644 index 00000000000..eb8a9dbbfd8 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_func.c @@ -0,0 +1,185 @@ +/* +** Function handling (prototypes, functions and upvalues). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_func_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_func.h" +#include "lj_trace.h" +#include "lj_vm.h" + +/* -- Prototypes ---------------------------------------------------------- */ + +void LJ_FASTCALL lj_func_freeproto(global_State *g, GCproto *pt) +{ + lj_mem_free(g, pt, pt->sizept); +} + +/* -- Upvalues ------------------------------------------------------------ */ + +static void unlinkuv(GCupval *uv) +{ + lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); + setgcrefr(uvnext(uv)->prev, uv->prev); + setgcrefr(uvprev(uv)->next, uv->next); +} + +/* Find existing open upvalue for a stack slot or create a new one. */ +static GCupval *func_finduv(lua_State *L, TValue *slot) +{ + global_State *g = G(L); + GCRef *pp = &L->openupval; + GCupval *p; + GCupval *uv; + /* Search the sorted list of open upvalues. */ + while (gcref(*pp) != NULL && uvval((p = gco2uv(gcref(*pp)))) >= slot) { + lua_assert(!p->closed && uvval(p) != &p->tv); + if (uvval(p) == slot) { /* Found open upvalue pointing to same slot? */ + if (isdead(g, obj2gco(p))) /* Resurrect it, if it's dead. */ + flipwhite(obj2gco(p)); + return p; + } + pp = &p->nextgc; + } + /* No matching upvalue found. Create a new one. */ + uv = lj_mem_newt(L, sizeof(GCupval), GCupval); + newwhite(g, uv); + uv->gct = ~LJ_TUPVAL; + uv->closed = 0; /* Still open. */ + setmref(uv->v, slot); /* Pointing to the stack slot. */ + /* NOBARRIER: The GCupval is new (marked white) and open. */ + setgcrefr(uv->nextgc, *pp); /* Insert into sorted list of open upvalues. */ + setgcref(*pp, obj2gco(uv)); + setgcref(uv->prev, obj2gco(&g->uvhead)); /* Insert into GC list, too. */ + setgcrefr(uv->next, g->uvhead.next); + setgcref(uvnext(uv)->prev, obj2gco(uv)); + setgcref(g->uvhead.next, obj2gco(uv)); + lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); + return uv; +} + +/* Create an empty and closed upvalue. */ +static GCupval *func_emptyuv(lua_State *L) +{ + GCupval *uv = (GCupval *)lj_mem_newgco(L, sizeof(GCupval)); + uv->gct = ~LJ_TUPVAL; + uv->closed = 1; + setnilV(&uv->tv); + setmref(uv->v, &uv->tv); + return uv; +} + +/* Close all open upvalues pointing to some stack level or above. */ +void LJ_FASTCALL lj_func_closeuv(lua_State *L, TValue *level) +{ + GCupval *uv; + global_State *g = G(L); + while (gcref(L->openupval) != NULL && + uvval((uv = gco2uv(gcref(L->openupval)))) >= level) { + GCobj *o = obj2gco(uv); + lua_assert(!isblack(o) && !uv->closed && uvval(uv) != &uv->tv); + setgcrefr(L->openupval, uv->nextgc); /* No longer in open list. */ + if (isdead(g, o)) { + lj_func_freeuv(g, uv); + } else { + unlinkuv(uv); + lj_gc_closeuv(g, uv); + } + } +} + +void LJ_FASTCALL lj_func_freeuv(global_State *g, GCupval *uv) +{ + if (!uv->closed) + unlinkuv(uv); + lj_mem_freet(g, uv); +} + +/* -- Functions (closures) ------------------------------------------------ */ + +GCfunc *lj_func_newC(lua_State *L, MSize nelems, GCtab *env) +{ + GCfunc *fn = (GCfunc *)lj_mem_newgco(L, sizeCfunc(nelems)); + fn->c.gct = ~LJ_TFUNC; + fn->c.ffid = FF_C; + fn->c.nupvalues = (uint8_t)nelems; + /* NOBARRIER: The GCfunc is new (marked white). */ + setmref(fn->c.pc, &G(L)->bc_cfunc_ext); + setgcref(fn->c.env, obj2gco(env)); + return fn; +} + +static GCfunc *func_newL(lua_State *L, GCproto *pt, GCtab *env) +{ + uint32_t count; + GCfunc *fn = (GCfunc *)lj_mem_newgco(L, sizeLfunc((MSize)pt->sizeuv)); + fn->l.gct = ~LJ_TFUNC; + fn->l.ffid = FF_LUA; + fn->l.nupvalues = 0; /* Set to zero until upvalues are initialized. */ + /* NOBARRIER: Really a setgcref. But the GCfunc is new (marked white). */ + setmref(fn->l.pc, proto_bc(pt)); + setgcref(fn->l.env, obj2gco(env)); + /* Saturating 3 bit counter (0..7) for created closures. */ + count = (uint32_t)pt->flags + PROTO_CLCOUNT; + pt->flags = (uint8_t)(count - ((count >> PROTO_CLC_BITS) & PROTO_CLCOUNT)); + return fn; +} + +/* Create a new Lua function with empty upvalues. */ +GCfunc *lj_func_newL_empty(lua_State *L, GCproto *pt, GCtab *env) +{ + GCfunc *fn = func_newL(L, pt, env); + MSize i, nuv = pt->sizeuv; + /* NOBARRIER: The GCfunc is new (marked white). */ + for (i = 0; i < nuv; i++) { + GCupval *uv = func_emptyuv(L); + uv->dhash = (uint32_t)(uintptr_t)pt ^ ((uint32_t)proto_uv(pt)[i] << 24); + setgcref(fn->l.uvptr[i], obj2gco(uv)); + } + fn->l.nupvalues = (uint8_t)nuv; + return fn; +} + +/* Do a GC check and create a new Lua function with inherited upvalues. */ +GCfunc *lj_func_newL_gc(lua_State *L, GCproto *pt, GCfuncL *parent) +{ + GCfunc *fn; + GCRef *puv; + MSize i, nuv; + TValue *base; + lj_gc_check_fixtop(L); + fn = func_newL(L, pt, tabref(parent->env)); + /* NOBARRIER: The GCfunc is new (marked white). */ + puv = parent->uvptr; + nuv = pt->sizeuv; + base = L->base; + for (i = 0; i < nuv; i++) { + uint32_t v = proto_uv(pt)[i]; + GCupval *uv; + if ((v & PROTO_UV_LOCAL)) { + uv = func_finduv(L, base + (v & 0xff)); + uv->immutable = ((v / PROTO_UV_IMMUTABLE) & 1); + uv->dhash = (uint32_t)(uintptr_t)mref(parent->pc, char) ^ (v << 24); + } else { + uv = &gcref(puv[v])->uv; + } + setgcref(fn->l.uvptr[i], obj2gco(uv)); + } + fn->l.nupvalues = (uint8_t)nuv; + return fn; +} + +void LJ_FASTCALL lj_func_free(global_State *g, GCfunc *fn) +{ + MSize size = isluafunc(fn) ? sizeLfunc((MSize)fn->l.nupvalues) : + sizeCfunc((MSize)fn->c.nupvalues); + lj_mem_free(g, fn, size); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_func.h b/src/3rd party/luajit-2.0/src/lj_func.h new file mode 100644 index 00000000000..a6e534e7739 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_func.h @@ -0,0 +1,24 @@ +/* +** Function handling (prototypes, functions and upvalues). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_FUNC_H +#define _LJ_FUNC_H + +#include "lj_obj.h" + +/* Prototypes. */ +LJ_FUNC void LJ_FASTCALL lj_func_freeproto(global_State *g, GCproto *pt); + +/* Upvalues. */ +LJ_FUNCA void LJ_FASTCALL lj_func_closeuv(lua_State *L, TValue *level); +LJ_FUNC void LJ_FASTCALL lj_func_freeuv(global_State *g, GCupval *uv); + +/* Functions (closures). */ +LJ_FUNC GCfunc *lj_func_newC(lua_State *L, MSize nelems, GCtab *env); +LJ_FUNC GCfunc *lj_func_newL_empty(lua_State *L, GCproto *pt, GCtab *env); +LJ_FUNCA GCfunc *lj_func_newL_gc(lua_State *L, GCproto *pt, GCfuncL *parent); +LJ_FUNC void LJ_FASTCALL lj_func_free(global_State *g, GCfunc *c); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_gc.c b/src/3rd party/luajit-2.0/src/lj_gc.c new file mode 100644 index 00000000000..b498abaa84d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_gc.c @@ -0,0 +1,849 @@ +/* +** Garbage collector. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_gc_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_func.h" +#include "lj_udata.h" +#include "lj_meta.h" +#include "lj_state.h" +#include "lj_frame.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cdata.h" +#endif +#include "lj_trace.h" +#include "lj_vm.h" + +#define GCSTEPSIZE 1024u +#define GCSWEEPMAX 40 +#define GCSWEEPCOST 10 +#define GCFINALIZECOST 100 + +/* Macros to set GCobj colors and flags. */ +#define white2gray(x) ((x)->gch.marked &= (uint8_t)~LJ_GC_WHITES) +#define gray2black(x) ((x)->gch.marked |= LJ_GC_BLACK) +#define isfinalized(u) ((u)->marked & LJ_GC_FINALIZED) + +/* -- Mark phase ---------------------------------------------------------- */ + +/* Mark a TValue (if needed). */ +#define gc_marktv(g, tv) \ + { lua_assert(!tvisgcv(tv) || (~itype(tv) == gcval(tv)->gch.gct)); \ + if (tviswhite(tv)) gc_mark(g, gcV(tv)); } + +/* Mark a GCobj (if needed). */ +#define gc_markobj(g, o) \ + { if (iswhite(obj2gco(o))) gc_mark(g, obj2gco(o)); } + +/* Mark a string object. */ +#define gc_mark_str(s) ((s)->marked &= (uint8_t)~LJ_GC_WHITES) + +/* Mark a white GCobj. */ +static void gc_mark(global_State *g, GCobj *o) +{ + int gct = o->gch.gct; + lua_assert(iswhite(o) && !isdead(g, o)); + white2gray(o); + if (LJ_UNLIKELY(gct == ~LJ_TUDATA)) { + GCtab *mt = tabref(gco2ud(o)->metatable); + gray2black(o); /* Userdata are never gray. */ + if (mt) gc_markobj(g, mt); + gc_markobj(g, tabref(gco2ud(o)->env)); + } else if (LJ_UNLIKELY(gct == ~LJ_TUPVAL)) { + GCupval *uv = gco2uv(o); + gc_marktv(g, uvval(uv)); + if (uv->closed) + gray2black(o); /* Closed upvalues are never gray. */ + } else if (gct != ~LJ_TSTR && gct != ~LJ_TCDATA) { + lua_assert(gct == ~LJ_TFUNC || gct == ~LJ_TTAB || + gct == ~LJ_TTHREAD || gct == ~LJ_TPROTO); + setgcrefr(o->gch.gclist, g->gc.gray); + setgcref(g->gc.gray, o); + } +} + +/* Mark GC roots. */ +static void gc_mark_gcroot(global_State *g) +{ + ptrdiff_t i; + for (i = 0; i < GCROOT_MAX; i++) + if (gcref(g->gcroot[i]) != NULL) + gc_markobj(g, gcref(g->gcroot[i])); +} + +/* Start a GC cycle and mark the root set. */ +static void gc_mark_start(global_State *g) +{ + setgcrefnull(g->gc.gray); + setgcrefnull(g->gc.grayagain); + setgcrefnull(g->gc.weak); + gc_markobj(g, mainthread(g)); + gc_markobj(g, tabref(mainthread(g)->env)); + gc_marktv(g, &g->registrytv); + gc_mark_gcroot(g); + g->gc.state = GCSpropagate; +} + +/* Mark open upvalues. */ +static void gc_mark_uv(global_State *g) +{ + GCupval *uv; + for (uv = uvnext(&g->uvhead); uv != &g->uvhead; uv = uvnext(uv)) { + lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); + if (isgray(obj2gco(uv))) + gc_marktv(g, uvval(uv)); + } +} + +/* Mark userdata in mmudata list. */ +static void gc_mark_mmudata(global_State *g) +{ + GCobj *root = gcref(g->gc.mmudata); + GCobj *u = root; + if (u) { + do { + u = gcnext(u); + makewhite(g, u); /* Could be from previous GC. */ + gc_mark(g, u); + } while (u != root); + } +} + +/* Separate userdata objects to be finalized to mmudata list. */ +size_t lj_gc_separateudata(global_State *g, int all) +{ + size_t m = 0; + GCRef *p = &mainthread(g)->nextgc; + GCobj *o; + while ((o = gcref(*p)) != NULL) { + if (!(iswhite(o) || all) || isfinalized(gco2ud(o))) { + p = &o->gch.nextgc; /* Nothing to do. */ + } else if (!lj_meta_fastg(g, tabref(gco2ud(o)->metatable), MM_gc)) { + markfinalized(o); /* Done, as there's no __gc metamethod. */ + p = &o->gch.nextgc; + } else { /* Otherwise move userdata to be finalized to mmudata list. */ + m += sizeudata(gco2ud(o)); + markfinalized(o); + *p = o->gch.nextgc; + if (gcref(g->gc.mmudata)) { /* Link to end of mmudata list. */ + GCobj *root = gcref(g->gc.mmudata); + setgcrefr(o->gch.nextgc, root->gch.nextgc); + setgcref(root->gch.nextgc, o); + setgcref(g->gc.mmudata, o); + } else { /* Create circular list. */ + setgcref(o->gch.nextgc, o); + setgcref(g->gc.mmudata, o); + } + } + } + return m; +} + +/* -- Propagation phase --------------------------------------------------- */ + +/* Traverse a table. */ +static int gc_traverse_tab(global_State *g, GCtab *t) +{ + int weak = 0; + cTValue *mode; + GCtab *mt = tabref(t->metatable); + if (mt) + gc_markobj(g, mt); + mode = lj_meta_fastg(g, mt, MM_mode); + if (mode && tvisstr(mode)) { /* Valid __mode field? */ + const char *modestr = strVdata(mode); + int c; + while ((c = *modestr++)) { + if (c == 'k') weak |= LJ_GC_WEAKKEY; + else if (c == 'v') weak |= LJ_GC_WEAKVAL; + else if (c == 'K') weak = (int)(~0u & ~LJ_GC_WEAKVAL); + } + if (weak > 0) { /* Weak tables are cleared in the atomic phase. */ + t->marked = (uint8_t)((t->marked & ~LJ_GC_WEAK) | weak); + setgcrefr(t->gclist, g->gc.weak); + setgcref(g->gc.weak, obj2gco(t)); + } + } + if (weak == LJ_GC_WEAK) /* Nothing to mark if both keys/values are weak. */ + return 1; + if (!(weak & LJ_GC_WEAKVAL)) { /* Mark array part. */ + MSize i, asize = t->asize; + for (i = 0; i < asize; i++) + gc_marktv(g, arrayslot(t, i)); + } + if (t->hmask > 0) { /* Mark hash part. */ + Node *node = noderef(t->node); + MSize i, hmask = t->hmask; + for (i = 0; i <= hmask; i++) { + Node *n = &node[i]; + if (!tvisnil(&n->val)) { /* Mark non-empty slot. */ + lua_assert(!tvisnil(&n->key)); + if (!(weak & LJ_GC_WEAKKEY)) gc_marktv(g, &n->key); + if (!(weak & LJ_GC_WEAKVAL)) gc_marktv(g, &n->val); + } + } + } + return weak; +} + +/* Traverse a function. */ +static void gc_traverse_func(global_State *g, GCfunc *fn) +{ + gc_markobj(g, tabref(fn->c.env)); + if (isluafunc(fn)) { + uint32_t i; + lua_assert(fn->l.nupvalues <= funcproto(fn)->sizeuv); + gc_markobj(g, funcproto(fn)); + for (i = 0; i < fn->l.nupvalues; i++) /* Mark Lua function upvalues. */ + gc_markobj(g, &gcref(fn->l.uvptr[i])->uv); + } else { + uint32_t i; + for (i = 0; i < fn->c.nupvalues; i++) /* Mark C function upvalues. */ + gc_marktv(g, &fn->c.upvalue[i]); + } +} + +#if LJ_HASJIT +/* Mark a trace. */ +static void gc_marktrace(global_State *g, TraceNo traceno) +{ + GCobj *o = obj2gco(traceref(G2J(g), traceno)); + lua_assert(traceno != G2J(g)->cur.traceno); + if (iswhite(o)) { + white2gray(o); + setgcrefr(o->gch.gclist, g->gc.gray); + setgcref(g->gc.gray, o); + } +} + +/* Traverse a trace. */ +static void gc_traverse_trace(global_State *g, GCtrace *T) +{ + IRRef ref; + if (T->traceno == 0) return; + for (ref = T->nk; ref < REF_TRUE; ref++) { + IRIns *ir = &T->ir[ref]; + if (ir->o == IR_KGC) + gc_markobj(g, ir_kgc(ir)); + } + if (T->link) gc_marktrace(g, T->link); + if (T->nextroot) gc_marktrace(g, T->nextroot); + if (T->nextside) gc_marktrace(g, T->nextside); + gc_markobj(g, gcref(T->startpt)); +} + +/* The current trace is a GC root while not anchored in the prototype (yet). */ +#define gc_traverse_curtrace(g) gc_traverse_trace(g, &G2J(g)->cur) +#else +#define gc_traverse_curtrace(g) UNUSED(g) +#endif + +/* Traverse a prototype. */ +static void gc_traverse_proto(global_State *g, GCproto *pt) +{ + ptrdiff_t i; + gc_mark_str(proto_chunkname(pt)); + for (i = -(ptrdiff_t)pt->sizekgc; i < 0; i++) /* Mark collectable consts. */ + gc_markobj(g, proto_kgc(pt, i)); +#if LJ_HASJIT + if (pt->trace) gc_marktrace(g, pt->trace); +#endif +} + +/* Traverse the frame structure of a stack. */ +static MSize gc_traverse_frames(global_State *g, lua_State *th) +{ + TValue *frame, *top = th->top-1, *bot = tvref(th->stack); + /* Note: extra vararg frame not skipped, marks function twice (harmless). */ + for (frame = th->base-1; frame > bot; frame = frame_prev(frame)) { + GCfunc *fn = frame_func(frame); + TValue *ftop = frame; + if (isluafunc(fn)) ftop += funcproto(fn)->framesize; + if (ftop > top) top = ftop; + gc_markobj(g, fn); /* Need to mark hidden function (or L). */ + } + top++; /* Correct bias of -1 (frame == base-1). */ + if (top > tvref(th->maxstack)) top = tvref(th->maxstack); + return (MSize)(top - bot); /* Return minimum needed stack size. */ +} + +/* Traverse a thread object. */ +static void gc_traverse_thread(global_State *g, lua_State *th) +{ + TValue *o, *top = th->top; + for (o = tvref(th->stack)+1; o < top; o++) + gc_marktv(g, o); + if (g->gc.state == GCSatomic) { + top = tvref(th->stack) + th->stacksize; + for (; o < top; o++) /* Clear unmarked slots. */ + setnilV(o); + } + gc_markobj(g, tabref(th->env)); + lj_state_shrinkstack(th, gc_traverse_frames(g, th)); +} + +/* Propagate one gray object. Traverse it and turn it black. */ +static size_t propagatemark(global_State *g) +{ + GCobj *o = gcref(g->gc.gray); + int gct = o->gch.gct; + lua_assert(isgray(o)); + gray2black(o); + setgcrefr(g->gc.gray, o->gch.gclist); /* Remove from gray list. */ + if (LJ_LIKELY(gct == ~LJ_TTAB)) { + GCtab *t = gco2tab(o); + if (gc_traverse_tab(g, t) > 0) + black2gray(o); /* Keep weak tables gray. */ + return sizeof(GCtab) + sizeof(TValue) * t->asize + + sizeof(Node) * (t->hmask + 1); + } else if (LJ_LIKELY(gct == ~LJ_TFUNC)) { + GCfunc *fn = gco2func(o); + gc_traverse_func(g, fn); + return isluafunc(fn) ? sizeLfunc((MSize)fn->l.nupvalues) : + sizeCfunc((MSize)fn->c.nupvalues); + } else if (LJ_LIKELY(gct == ~LJ_TPROTO)) { + GCproto *pt = gco2pt(o); + gc_traverse_proto(g, pt); + return pt->sizept; + } else if (LJ_LIKELY(gct == ~LJ_TTHREAD)) { + lua_State *th = gco2th(o); + setgcrefr(th->gclist, g->gc.grayagain); + setgcref(g->gc.grayagain, o); + black2gray(o); /* Threads are never black. */ + gc_traverse_thread(g, th); + return sizeof(lua_State) + sizeof(TValue) * th->stacksize; + } else { +#if LJ_HASJIT + GCtrace *T = gco2trace(o); + gc_traverse_trace(g, T); + return ((sizeof(GCtrace)+7)&~7) + (T->nins-T->nk)*sizeof(IRIns) + + T->nsnap*sizeof(SnapShot) + T->nsnapmap*sizeof(SnapEntry); +#else + lua_assert(0); + return 0; +#endif + } +} + +/* Propagate all gray objects. */ +static size_t gc_propagate_gray(global_State *g) +{ + size_t m = 0; + while (gcref(g->gc.gray) != NULL) + m += propagatemark(g); + return m; +} + +/* -- Sweep phase --------------------------------------------------------- */ + +/* Try to shrink some common data structures. */ +static void gc_shrink(global_State *g, lua_State *L) +{ + if (g->strnum <= (g->strmask >> 2) && g->strmask > LJ_MIN_STRTAB*2-1) + lj_str_resize(L, g->strmask >> 1); /* Shrink string table. */ + if (g->tmpbuf.sz > LJ_MIN_SBUF*2) + lj_str_resizebuf(L, &g->tmpbuf, g->tmpbuf.sz >> 1); /* Shrink temp buf. */ +} + +/* Type of GC free functions. */ +typedef void (LJ_FASTCALL *GCFreeFunc)(global_State *g, GCobj *o); + +/* GC free functions for LJ_TSTR .. LJ_TUDATA. ORDER LJ_T */ +static const GCFreeFunc gc_freefunc[] = { + (GCFreeFunc)lj_str_free, + (GCFreeFunc)lj_func_freeuv, + (GCFreeFunc)lj_state_free, + (GCFreeFunc)lj_func_freeproto, + (GCFreeFunc)lj_func_free, +#if LJ_HASJIT + (GCFreeFunc)lj_trace_free, +#else + (GCFreeFunc)0, +#endif +#if LJ_HASFFI + (GCFreeFunc)lj_cdata_free, +#else + (GCFreeFunc)0, +#endif + (GCFreeFunc)lj_tab_free, + (GCFreeFunc)lj_udata_free +}; + +/* Full sweep of a GC list. */ +#define gc_fullsweep(g, p) gc_sweep(g, (p), LJ_MAX_MEM) + +/* Partial sweep of a GC list. */ +static GCRef *gc_sweep(global_State *g, GCRef *p, uint32_t lim) +{ + /* Mask with other white and LJ_GC_FIXED. Or LJ_GC_SFIXED on shutdown. */ + int ow = otherwhite(g); + GCobj *o; + while ((o = gcref(*p)) != NULL && lim-- > 0) { + if (o->gch.gct == ~LJ_TTHREAD) /* Need to sweep open upvalues, too. */ + gc_fullsweep(g, &gco2th(o)->openupval); + if (((o->gch.marked ^ LJ_GC_WHITES) & ow)) { /* Black or current white? */ + lua_assert(!isdead(g, o) || (o->gch.marked & LJ_GC_FIXED)); + makewhite(g, o); /* Value is alive, change to the current white. */ + p = &o->gch.nextgc; + } else { /* Otherwise value is dead, free it. */ + lua_assert(isdead(g, o) || ow == LJ_GC_SFIXED); + setgcrefr(*p, o->gch.nextgc); + if (o == gcref(g->gc.root)) + setgcrefr(g->gc.root, o->gch.nextgc); /* Adjust list anchor. */ + gc_freefunc[o->gch.gct - ~LJ_TSTR](g, o); + } + } + return p; +} + +/* Check whether we can clear a key or a value slot from a table. */ +static int gc_mayclear(cTValue *o, int val) +{ + if (tvisgcv(o)) { /* Only collectable objects can be weak references. */ + if (tvisstr(o)) { /* But strings cannot be used as weak references. */ + gc_mark_str(strV(o)); /* And need to be marked. */ + return 0; + } + if (iswhite(gcV(o))) + return 1; /* Object is about to be collected. */ + if (tvisudata(o) && val && isfinalized(udataV(o))) + return 1; /* Finalized userdata is dropped only from values. */ + } + return 0; /* Cannot clear. */ +} + +/* Clear collected entries from weak tables. */ +static void gc_clearweak(GCobj *o) +{ + while (o) { + GCtab *t = gco2tab(o); + lua_assert((t->marked & LJ_GC_WEAK)); + if ((t->marked & LJ_GC_WEAKVAL)) { + MSize i, asize = t->asize; + for (i = 0; i < asize; i++) { + /* Clear array slot when value is about to be collected. */ + TValue *tv = arrayslot(t, i); + if (gc_mayclear(tv, 1)) + setnilV(tv); + } + } + if (t->hmask > 0) { + Node *node = noderef(t->node); + MSize i, hmask = t->hmask; + for (i = 0; i <= hmask; i++) { + Node *n = &node[i]; + /* Clear hash slot when key or value is about to be collected. */ + if (!tvisnil(&n->val) && (gc_mayclear(&n->key, 0) || + gc_mayclear(&n->val, 1))) + setnilV(&n->val); + } + } + o = gcref(t->gclist); + } +} + +/* Call a userdata or cdata finalizer. */ +static void gc_call_finalizer(global_State *g, lua_State *L, + cTValue *mo, GCobj *o) +{ + /* Save and restore lots of state around the __gc callback. */ + uint8_t oldh = hook_save(g); + MSize oldt = g->gc.threshold; + int errcode; + TValue *top; + lj_trace_abort(g); + top = L->top; + L->top = top+2; + hook_entergc(g); /* Disable hooks and new traces during __gc. */ + g->gc.threshold = LJ_MAX_MEM; /* Prevent GC steps. */ + copyTV(L, top, mo); + setgcV(L, top+1, o, ~o->gch.gct); + errcode = lj_vm_pcall(L, top+1, 1+0, -1); /* Stack: |mo|o| -> | */ + hook_restore(g, oldh); + g->gc.threshold = oldt; /* Restore GC threshold. */ + if (errcode) + lj_err_throw(L, errcode); /* Propagate errors. */ +} + +/* Finalize one userdata or cdata object from the mmudata list. */ +static void gc_finalize(lua_State *L) +{ + global_State *g = G(L); + GCobj *o = gcnext(gcref(g->gc.mmudata)); + cTValue *mo; + lua_assert(gcref(g->jit_L) == NULL); /* Must not be called on trace. */ + /* Unchain from list of userdata to be finalized. */ + if (o == gcref(g->gc.mmudata)) + setgcrefnull(g->gc.mmudata); + else + setgcrefr(gcref(g->gc.mmudata)->gch.nextgc, o->gch.nextgc); +#if LJ_HASFFI + if (o->gch.gct == ~LJ_TCDATA) { + TValue tmp, *tv; + /* Add cdata back to the GC list and make it white. */ + setgcrefr(o->gch.nextgc, g->gc.root); + setgcref(g->gc.root, o); + makewhite(g, o); + o->gch.marked &= (uint8_t)~LJ_GC_CDATA_FIN; + /* Resolve finalizer. */ + setcdataV(L, &tmp, gco2cd(o)); + tv = lj_tab_set(L, ctype_ctsG(g)->finalizer, &tmp); + if (!tvisnil(tv)) { + g->gc.nocdatafin = 0; + copyTV(L, &tmp, tv); + setnilV(tv); /* Clear entry in finalizer table. */ + gc_call_finalizer(g, L, &tmp, o); + } + return; + } +#endif + /* Add userdata back to the main userdata list and make it white. */ + setgcrefr(o->gch.nextgc, mainthread(g)->nextgc); + setgcref(mainthread(g)->nextgc, o); + makewhite(g, o); + /* Resolve the __gc metamethod. */ + mo = lj_meta_fastg(g, tabref(gco2ud(o)->metatable), MM_gc); + if (mo) + gc_call_finalizer(g, L, mo, o); +} + +/* Finalize all userdata objects from mmudata list. */ +void lj_gc_finalize_udata(lua_State *L) +{ + while (gcref(G(L)->gc.mmudata) != NULL) + gc_finalize(L); +} + +#if LJ_HASFFI +/* Finalize all cdata objects from finalizer table. */ +void lj_gc_finalize_cdata(lua_State *L) +{ + global_State *g = G(L); + CTState *cts = ctype_ctsG(g); + if (cts) { + GCtab *t = cts->finalizer; + Node *node = noderef(t->node); + ptrdiff_t i; + setgcrefnull(t->metatable); /* Mark finalizer table as disabled. */ + for (i = (ptrdiff_t)t->hmask; i >= 0; i--) + if (!tvisnil(&node[i].val) && tviscdata(&node[i].key)) { + GCobj *o = gcV(&node[i].key); + TValue tmp; + makewhite(g, o); + o->gch.marked &= (uint8_t)~LJ_GC_CDATA_FIN; + copyTV(L, &tmp, &node[i].val); + setnilV(&node[i].val); + gc_call_finalizer(g, L, &tmp, o); + } + } +} +#endif + +/* Free all remaining GC objects. */ +void lj_gc_freeall(global_State *g) +{ + MSize i, strmask; + /* Free everything, except super-fixed objects (the main thread). */ + g->gc.currentwhite = LJ_GC_WHITES | LJ_GC_SFIXED; + gc_fullsweep(g, &g->gc.root); + strmask = g->strmask; + for (i = 0; i <= strmask; i++) /* Free all string hash chains. */ + gc_fullsweep(g, &g->strhash[i]); +} + +/* -- Collector ----------------------------------------------------------- */ + +/* Atomic part of the GC cycle, transitioning from mark to sweep phase. */ +static void atomic(global_State *g, lua_State *L) +{ + size_t udsize; + + gc_mark_uv(g); /* Need to remark open upvalues (the thread may be dead). */ + gc_propagate_gray(g); /* Propagate any left-overs. */ + + setgcrefr(g->gc.gray, g->gc.weak); /* Empty the list of weak tables. */ + setgcrefnull(g->gc.weak); + lua_assert(!iswhite(obj2gco(mainthread(g)))); + gc_markobj(g, L); /* Mark running thread. */ + gc_traverse_curtrace(g); /* Traverse current trace. */ + gc_mark_gcroot(g); /* Mark GC roots (again). */ + gc_propagate_gray(g); /* Propagate all of the above. */ + + setgcrefr(g->gc.gray, g->gc.grayagain); /* Empty the 2nd chance list. */ + setgcrefnull(g->gc.grayagain); + gc_propagate_gray(g); /* Propagate it. */ + + udsize = lj_gc_separateudata(g, 0); /* Separate userdata to be finalized. */ + gc_mark_mmudata(g); /* Mark them. */ + udsize += gc_propagate_gray(g); /* And propagate the marks. */ + + /* All marking done, clear weak tables. */ + gc_clearweak(gcref(g->gc.weak)); + + /* Prepare for sweep phase. */ + g->gc.currentwhite = (uint8_t)otherwhite(g); /* Flip current white. */ + g->strempty.marked = g->gc.currentwhite; + setmref(g->gc.sweep, &g->gc.root); + g->gc.estimate = g->gc.total - (MSize)udsize; /* Initial estimate. */ +} + +/* GC state machine. Returns a cost estimate for each step performed. */ +static size_t gc_onestep(lua_State *L) +{ + global_State *g = G(L); + switch (g->gc.state) { + case GCSpause: + gc_mark_start(g); /* Start a new GC cycle by marking all GC roots. */ + return 0; + case GCSpropagate: + if (gcref(g->gc.gray) != NULL) + return propagatemark(g); /* Propagate one gray object. */ + g->gc.state = GCSatomic; /* End of mark phase. */ + return 0; + case GCSatomic: + if (gcref(g->jit_L)) /* Don't run atomic phase on trace. */ + return LJ_MAX_MEM; + atomic(g, L); + g->gc.state = GCSsweepstring; /* Start of sweep phase. */ + g->gc.sweepstr = 0; + return 0; + case GCSsweepstring: { + MSize old = g->gc.total; + gc_fullsweep(g, &g->strhash[g->gc.sweepstr++]); /* Sweep one chain. */ + if (g->gc.sweepstr > g->strmask) + g->gc.state = GCSsweep; /* All string hash chains sweeped. */ + lua_assert(old >= g->gc.total); + g->gc.estimate -= old - g->gc.total; + return GCSWEEPCOST; + } + case GCSsweep: { + MSize old = g->gc.total; + setmref(g->gc.sweep, gc_sweep(g, mref(g->gc.sweep, GCRef), GCSWEEPMAX)); + lua_assert(old >= g->gc.total); + g->gc.estimate -= old - g->gc.total; + if (gcref(*mref(g->gc.sweep, GCRef)) == NULL) { + gc_shrink(g, L); + if (gcref(g->gc.mmudata)) { /* Need any finalizations? */ + g->gc.state = GCSfinalize; +#if LJ_HASFFI + g->gc.nocdatafin = 1; +#endif + } else { /* Otherwise skip this phase to help the JIT. */ + g->gc.state = GCSpause; /* End of GC cycle. */ + g->gc.debt = 0; + } + } + return GCSWEEPMAX*GCSWEEPCOST; + } + case GCSfinalize: + if (gcref(g->gc.mmudata) != NULL) { + if (gcref(g->jit_L)) /* Don't call finalizers on trace. */ + return LJ_MAX_MEM; + gc_finalize(L); /* Finalize one userdata object. */ + if (g->gc.estimate > GCFINALIZECOST) + g->gc.estimate -= GCFINALIZECOST; + return GCFINALIZECOST; + } +#if LJ_HASFFI + if (!g->gc.nocdatafin) lj_tab_rehash(L, ctype_ctsG(g)->finalizer); +#endif + g->gc.state = GCSpause; /* End of GC cycle. */ + g->gc.debt = 0; + return 0; + default: + lua_assert(0); + return 0; + } +} + +/* Perform a limited amount of incremental GC steps. */ +int LJ_FASTCALL lj_gc_step(lua_State *L) +{ + global_State *g = G(L); + MSize lim; + int32_t ostate = g->vmstate; + setvmstate(g, GC); + lim = (GCSTEPSIZE/100) * g->gc.stepmul; + if (lim == 0) + lim = LJ_MAX_MEM; + if (g->gc.total > g->gc.threshold) + g->gc.debt += g->gc.total - g->gc.threshold; + do { + lim -= (MSize)gc_onestep(L); + if (g->gc.state == GCSpause) { + g->gc.threshold = (g->gc.estimate/100) * g->gc.pause; + g->vmstate = ostate; + return 1; /* Finished a GC cycle. */ + } + } while ((int32_t)lim > 0); + if (g->gc.debt < GCSTEPSIZE) { + g->gc.threshold = g->gc.total + GCSTEPSIZE; + g->vmstate = ostate; + return -1; + } else { + g->gc.debt -= GCSTEPSIZE; + g->gc.threshold = g->gc.total; + g->vmstate = ostate; + return 0; + } +} + +/* Ditto, but fix the stack top first. */ +void LJ_FASTCALL lj_gc_step_fixtop(lua_State *L) +{ + if (curr_funcisL(L)) L->top = curr_topL(L); + lj_gc_step(L); +} + +#if LJ_HASJIT +/* Perform multiple GC steps. Called from JIT-compiled code. */ +int LJ_FASTCALL lj_gc_step_jit(global_State *g, MSize steps) +{ + lua_State *L = gco2th(gcref(g->jit_L)); + L->base = mref(G(L)->jit_base, TValue); + L->top = curr_topL(L); + while (steps-- > 0 && lj_gc_step(L) == 0) + ; + /* Return 1 to force a trace exit. */ + return (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize); +} +#endif + +/* Perform a full GC cycle. */ +void lj_gc_fullgc(lua_State *L) +{ + global_State *g = G(L); + int32_t ostate = g->vmstate; + setvmstate(g, GC); + if (g->gc.state <= GCSatomic) { /* Caught somewhere in the middle. */ + setmref(g->gc.sweep, &g->gc.root); /* Sweep everything (preserving it). */ + setgcrefnull(g->gc.gray); /* Reset lists from partial propagation. */ + setgcrefnull(g->gc.grayagain); + setgcrefnull(g->gc.weak); + g->gc.state = GCSsweepstring; /* Fast forward to the sweep phase. */ + g->gc.sweepstr = 0; + } + while (g->gc.state == GCSsweepstring || g->gc.state == GCSsweep) + gc_onestep(L); /* Finish sweep. */ + lua_assert(g->gc.state == GCSfinalize || g->gc.state == GCSpause); + /* Now perform a full GC. */ + g->gc.state = GCSpause; + do { gc_onestep(L); } while (g->gc.state != GCSpause); + g->gc.threshold = (g->gc.estimate/100) * g->gc.pause; + g->vmstate = ostate; +} + +/* -- Write barriers ------------------------------------------------------ */ + +/* Move the GC propagation frontier forward. */ +void lj_gc_barrierf(global_State *g, GCobj *o, GCobj *v) +{ + lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); + lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); + lua_assert(o->gch.gct != ~LJ_TTAB); + /* Preserve invariant during propagation. Otherwise it doesn't matter. */ + if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) + gc_mark(g, v); /* Move frontier forward. */ + else + makewhite(g, o); /* Make it white to avoid the following barrier. */ +} + +/* Specialized barrier for closed upvalue. Pass &uv->tv. */ +void LJ_FASTCALL lj_gc_barrieruv(global_State *g, TValue *tv) +{ +#define TV2MARKED(x) \ + (*((uint8_t *)(x) - offsetof(GCupval, tv) + offsetof(GCupval, marked))) + if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) + gc_mark(g, gcV(tv)); + else + TV2MARKED(tv) = (TV2MARKED(tv) & (uint8_t)~LJ_GC_COLORS) | curwhite(g); +#undef TV2MARKED +} + +/* Close upvalue. Also needs a write barrier. */ +void lj_gc_closeuv(global_State *g, GCupval *uv) +{ + GCobj *o = obj2gco(uv); + /* Copy stack slot to upvalue itself and point to the copy. */ + copyTV(mainthread(g), &uv->tv, uvval(uv)); + setmref(uv->v, &uv->tv); + uv->closed = 1; + setgcrefr(o->gch.nextgc, g->gc.root); + setgcref(g->gc.root, o); + if (isgray(o)) { /* A closed upvalue is never gray, so fix this. */ + if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) { + gray2black(o); /* Make it black and preserve invariant. */ + if (tviswhite(&uv->tv)) + lj_gc_barrierf(g, o, gcV(&uv->tv)); + } else { + makewhite(g, o); /* Make it white, i.e. sweep the upvalue. */ + lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); + } + } +} + +#if LJ_HASJIT +/* Mark a trace if it's saved during the propagation phase. */ +void lj_gc_barriertrace(global_State *g, uint32_t traceno) +{ + if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) + gc_marktrace(g, traceno); +} +#endif + +/* -- Allocator ----------------------------------------------------------- */ + +/* Call pluggable memory allocator to allocate or resize a fragment. */ +void *lj_mem_realloc(lua_State *L, void *p, MSize osz, MSize nsz) +{ + global_State *g = G(L); + lua_assert((osz == 0) == (p == NULL)); + p = g->allocf(g->allocd, p, osz, nsz); + if (p == NULL && nsz > 0) + lj_err_mem(L); + lua_assert((nsz == 0) == (p == NULL)); + lua_assert(checkptr32(p)); + g->gc.total = (g->gc.total - osz) + nsz; + return p; +} + +/* Allocate new GC object and link it to the root set. */ +void * LJ_FASTCALL lj_mem_newgco(lua_State *L, MSize size) +{ + global_State *g = G(L); + GCobj *o = (GCobj *)g->allocf(g->allocd, NULL, 0, size); + if (o == NULL) + lj_err_mem(L); + lua_assert(checkptr32(o)); + g->gc.total += size; + setgcrefr(o->gch.nextgc, g->gc.root); + setgcref(g->gc.root, o); + newwhite(g, o); + return o; +} + +/* Resize growable vector. */ +void *lj_mem_grow(lua_State *L, void *p, MSize *szp, MSize lim, MSize esz) +{ + MSize sz = (*szp) << 1; + if (sz < LJ_MIN_VECSZ) + sz = LJ_MIN_VECSZ; + if (sz > lim) + sz = lim; + p = lj_mem_realloc(L, p, (*szp)*esz, sz*esz); + *szp = sz; + return p; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_gc.h b/src/3rd party/luajit-2.0/src/lj_gc.h new file mode 100644 index 00000000000..ba061bc5d9b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_gc.h @@ -0,0 +1,134 @@ +/* +** Garbage collector. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_GC_H +#define _LJ_GC_H + +#include "lj_obj.h" + +/* Garbage collector states. Order matters. */ +enum { + GCSpause, GCSpropagate, GCSatomic, GCSsweepstring, GCSsweep, GCSfinalize +}; + +/* Bitmasks for marked field of GCobj. */ +#define LJ_GC_WHITE0 0x01 +#define LJ_GC_WHITE1 0x02 +#define LJ_GC_BLACK 0x04 +#define LJ_GC_FINALIZED 0x08 +#define LJ_GC_WEAKKEY 0x08 +#define LJ_GC_WEAKVAL 0x10 +#define LJ_GC_CDATA_FIN 0x10 +#define LJ_GC_FIXED 0x20 +#define LJ_GC_SFIXED 0x40 + +#define LJ_GC_WHITES (LJ_GC_WHITE0 | LJ_GC_WHITE1) +#define LJ_GC_COLORS (LJ_GC_WHITES | LJ_GC_BLACK) +#define LJ_GC_WEAK (LJ_GC_WEAKKEY | LJ_GC_WEAKVAL) + +/* Macros to test and set GCobj colors. */ +#define iswhite(x) ((x)->gch.marked & LJ_GC_WHITES) +#define isblack(x) ((x)->gch.marked & LJ_GC_BLACK) +#define isgray(x) (!((x)->gch.marked & (LJ_GC_BLACK|LJ_GC_WHITES))) +#define tviswhite(x) (tvisgcv(x) && iswhite(gcV(x))) +#define otherwhite(g) (g->gc.currentwhite ^ LJ_GC_WHITES) +#define isdead(g, v) ((v)->gch.marked & otherwhite(g) & LJ_GC_WHITES) + +#define curwhite(g) ((g)->gc.currentwhite & LJ_GC_WHITES) +#define newwhite(g, x) (obj2gco(x)->gch.marked = (uint8_t)curwhite(g)) +#define makewhite(g, x) \ + ((x)->gch.marked = ((x)->gch.marked & (uint8_t)~LJ_GC_COLORS) | curwhite(g)) +#define flipwhite(x) ((x)->gch.marked ^= LJ_GC_WHITES) +#define black2gray(x) ((x)->gch.marked &= (uint8_t)~LJ_GC_BLACK) +#define fixstring(s) ((s)->marked |= LJ_GC_FIXED) +#define markfinalized(x) ((x)->gch.marked |= LJ_GC_FINALIZED) + +/* Collector. */ +LJ_FUNC size_t lj_gc_separateudata(global_State *g, int all); +LJ_FUNC void lj_gc_finalize_udata(lua_State *L); +#if LJ_HASFFI +LJ_FUNC void lj_gc_finalize_cdata(lua_State *L); +#else +#define lj_gc_finalize_cdata(L) UNUSED(L) +#endif +LJ_FUNC void lj_gc_freeall(global_State *g); +LJ_FUNCA int LJ_FASTCALL lj_gc_step(lua_State *L); +LJ_FUNCA void LJ_FASTCALL lj_gc_step_fixtop(lua_State *L); +#if LJ_HASJIT +LJ_FUNC int LJ_FASTCALL lj_gc_step_jit(global_State *g, MSize steps); +#endif +LJ_FUNC void lj_gc_fullgc(lua_State *L); + +/* GC check: drive collector forward if the GC threshold has been reached. */ +#define lj_gc_check(L) \ + { if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) \ + lj_gc_step(L); } +#define lj_gc_check_fixtop(L) \ + { if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) \ + lj_gc_step_fixtop(L); } + +/* Write barriers. */ +LJ_FUNC void lj_gc_barrierf(global_State *g, GCobj *o, GCobj *v); +LJ_FUNCA void LJ_FASTCALL lj_gc_barrieruv(global_State *g, TValue *tv); +LJ_FUNC void lj_gc_closeuv(global_State *g, GCupval *uv); +#if LJ_HASJIT +LJ_FUNC void lj_gc_barriertrace(global_State *g, uint32_t traceno); +#endif + +/* Move the GC propagation frontier back for tables (make it gray again). */ +static LJ_AINLINE void lj_gc_barrierback(global_State *g, GCtab *t) +{ + GCobj *o = obj2gco(t); + lua_assert(isblack(o) && !isdead(g, o)); + lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); + black2gray(o); + setgcrefr(t->gclist, g->gc.grayagain); + setgcref(g->gc.grayagain, o); +} + +/* Barrier for stores to table objects. TValue and GCobj variant. */ +#define lj_gc_anybarriert(L, t) \ + { if (LJ_UNLIKELY(isblack(obj2gco(t)))) lj_gc_barrierback(G(L), (t)); } +#define lj_gc_barriert(L, t, tv) \ + { if (tviswhite(tv) && isblack(obj2gco(t))) \ + lj_gc_barrierback(G(L), (t)); } +#define lj_gc_objbarriert(L, t, o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) \ + lj_gc_barrierback(G(L), (t)); } + +/* Barrier for stores to any other object. TValue and GCobj variant. */ +#define lj_gc_barrier(L, p, tv) \ + { if (tviswhite(tv) && isblack(obj2gco(p))) \ + lj_gc_barrierf(G(L), obj2gco(p), gcV(tv)); } +#define lj_gc_objbarrier(L, p, o) \ + { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ + lj_gc_barrierf(G(L), obj2gco(p), obj2gco(o)); } + +/* Allocator. */ +LJ_FUNC void *lj_mem_realloc(lua_State *L, void *p, MSize osz, MSize nsz); +LJ_FUNC void * LJ_FASTCALL lj_mem_newgco(lua_State *L, MSize size); +LJ_FUNC void *lj_mem_grow(lua_State *L, void *p, + MSize *szp, MSize lim, MSize esz); + +#define lj_mem_new(L, s) lj_mem_realloc(L, NULL, 0, (s)) + +static LJ_AINLINE void lj_mem_free(global_State *g, void *p, size_t osize) +{ + g->gc.total -= (MSize)osize; + g->allocf(g->allocd, p, osize, 0); +} + +#define lj_mem_newvec(L, n, t) ((t *)lj_mem_new(L, (MSize)((n)*sizeof(t)))) +#define lj_mem_reallocvec(L, p, on, n, t) \ + ((p) = (t *)lj_mem_realloc(L, p, (on)*sizeof(t), (MSize)((n)*sizeof(t)))) +#define lj_mem_growvec(L, p, n, m, t) \ + ((p) = (t *)lj_mem_grow(L, (p), &(n), (m), (MSize)sizeof(t))) +#define lj_mem_freevec(g, p, n, t) lj_mem_free(g, (p), (n)*sizeof(t)) + +#define lj_mem_newobj(L, t) ((t *)lj_mem_newgco(L, sizeof(t))) +#define lj_mem_newt(L, s, t) ((t *)lj_mem_new(L, (s))) +#define lj_mem_freet(g, p) lj_mem_free(g, (p), sizeof(*(p))) + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_gdbjit.c b/src/3rd party/luajit-2.0/src/lj_gdbjit.c new file mode 100644 index 00000000000..d3f3e6119b3 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_gdbjit.c @@ -0,0 +1,795 @@ +/* +** Client for the GDB JIT API. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_gdbjit_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_frame.h" +#include "lj_jit.h" +#include "lj_dispatch.h" + +/* This is not compiled in by default. +** Enable with -DLUAJIT_USE_GDBJIT in the Makefile and recompile everything. +*/ +#ifdef LUAJIT_USE_GDBJIT + +/* The GDB JIT API allows JIT compilers to pass debug information about +** JIT-compiled code back to GDB. You need at least GDB 7.0 or higher +** to see it in action. +** +** This is a passive API, so it works even when not running under GDB +** or when attaching to an already running process. Alas, this implies +** enabling it always has a non-negligible overhead -- do not use in +** release mode! +** +** The LuaJIT GDB JIT client is rather minimal at the moment. It gives +** each trace a symbol name and adds a source location and frame unwind +** information. Obviously LuaJIT itself and any embedding C application +** should be compiled with debug symbols, too (see the Makefile). +** +** Traces are named TRACE_1, TRACE_2, ... these correspond to the trace +** numbers from -jv or -jdump. Use "break TRACE_1" or "tbreak TRACE_1" etc. +** to set breakpoints on specific traces (even ahead of their creation). +** +** The source location for each trace allows listing the corresponding +** source lines with the GDB command "list" (but only if the Lua source +** has been loaded from a file). Currently this is always set to the +** location where the trace has been started. +** +** Frame unwind information can be inspected with the GDB command +** "info frame". This also allows proper backtraces across JIT-compiled +** code with the GDB command "bt". +** +** You probably want to add the following settings to a .gdbinit file +** (or add them to ~/.gdbinit): +** set disassembly-flavor intel +** set breakpoint pending on +** +** Here's a sample GDB session: +** ------------------------------------------------------------------------ + +$ cat >x.lua +for outer=1,100 do + for inner=1,100 do end +end +^D + +$ luajit -jv x.lua +[TRACE 1 x.lua:2] +[TRACE 2 (1/3) x.lua:1 -> 1] + +$ gdb --quiet --args luajit x.lua +(gdb) tbreak TRACE_1 +Function "TRACE_1" not defined. +Temporary breakpoint 1 (TRACE_1) pending. +(gdb) run +Starting program: luajit x.lua + +Temporary breakpoint 1, TRACE_1 () at x.lua:2 +2 for inner=1,100 do end +(gdb) list +1 for outer=1,100 do +2 for inner=1,100 do end +3 end +(gdb) bt +#0 TRACE_1 () at x.lua:2 +#1 0x08053690 in lua_pcall [...] +[...] +#7 0x0806ff90 in main [...] +(gdb) disass TRACE_1 +Dump of assembler code for function TRACE_1: +0xf7fd9fba : mov DWORD PTR ds:0xf7e0e2a0,0x1 +0xf7fd9fc4 : movsd xmm7,QWORD PTR [edx+0x20] +[...] +0xf7fd9ff8 : jmp 0xf7fd2014 +End of assembler dump. +(gdb) tbreak TRACE_2 +Function "TRACE_2" not defined. +Temporary breakpoint 2 (TRACE_2) pending. +(gdb) cont +Continuing. + +Temporary breakpoint 2, TRACE_2 () at x.lua:1 +1 for outer=1,100 do +(gdb) info frame +Stack level 0, frame at 0xffffd7c0: + eip = 0xf7fd9f60 in TRACE_2 (x.lua:1); saved eip 0x8053690 + called by frame at 0xffffd7e0 + source language unknown. + Arglist at 0xffffd78c, args: + Locals at 0xffffd78c, Previous frame's sp is 0xffffd7c0 + Saved registers: + ebx at 0xffffd7ac, ebp at 0xffffd7b8, esi at 0xffffd7b0, edi at 0xffffd7b4, + eip at 0xffffd7bc +(gdb) + +** ------------------------------------------------------------------------ +*/ + +/* -- GDB JIT API --------------------------------------------------------- */ + +/* GDB JIT actions. */ +enum { + GDBJIT_NOACTION = 0, + GDBJIT_REGISTER, + GDBJIT_UNREGISTER +}; + +/* GDB JIT entry. */ +typedef struct GDBJITentry { + struct GDBJITentry *next_entry; + struct GDBJITentry *prev_entry; + const char *symfile_addr; + uint64_t symfile_size; +} GDBJITentry; + +/* GDB JIT descriptor. */ +typedef struct GDBJITdesc { + uint32_t version; + uint32_t action_flag; + GDBJITentry *relevant_entry; + GDBJITentry *first_entry; +} GDBJITdesc; + +GDBJITdesc __jit_debug_descriptor = { + 1, GDBJIT_NOACTION, NULL, NULL +}; + +/* GDB sets a breakpoint at this function. */ +void LJ_NOINLINE __jit_debug_register_code() +{ + __asm__ __volatile__(""); +}; + +/* -- In-memory ELF object definitions ------------------------------------ */ + +/* ELF definitions. */ +typedef struct ELFheader { + uint8_t emagic[4]; + uint8_t eclass; + uint8_t eendian; + uint8_t eversion; + uint8_t eosabi; + uint8_t eabiversion; + uint8_t epad[7]; + uint16_t type; + uint16_t machine; + uint32_t version; + uintptr_t entry; + uintptr_t phofs; + uintptr_t shofs; + uint32_t flags; + uint16_t ehsize; + uint16_t phentsize; + uint16_t phnum; + uint16_t shentsize; + uint16_t shnum; + uint16_t shstridx; +} ELFheader; + +typedef struct ELFsectheader { + uint32_t name; + uint32_t type; + uintptr_t flags; + uintptr_t addr; + uintptr_t ofs; + uintptr_t size; + uint32_t link; + uint32_t info; + uintptr_t align; + uintptr_t entsize; +} ELFsectheader; + +#define ELFSECT_IDX_ABS 0xfff1 + +enum { + ELFSECT_TYPE_PROGBITS = 1, + ELFSECT_TYPE_SYMTAB = 2, + ELFSECT_TYPE_STRTAB = 3, + ELFSECT_TYPE_NOBITS = 8 +}; + +#define ELFSECT_FLAGS_WRITE 1 +#define ELFSECT_FLAGS_ALLOC 2 +#define ELFSECT_FLAGS_EXEC 4 + +typedef struct ELFsymbol { +#if LJ_64 + uint32_t name; + uint8_t info; + uint8_t other; + uint16_t sectidx; + uintptr_t value; + uint64_t size; +#else + uint32_t name; + uintptr_t value; + uint32_t size; + uint8_t info; + uint8_t other; + uint16_t sectidx; +#endif +} ELFsymbol; + +enum { + ELFSYM_TYPE_FUNC = 2, + ELFSYM_TYPE_FILE = 4, + ELFSYM_BIND_LOCAL = 0 << 4, + ELFSYM_BIND_GLOBAL = 1 << 4, +}; + +/* DWARF definitions. */ +#define DW_CIE_VERSION 1 + +enum { + DW_CFA_nop = 0x0, + DW_CFA_offset_extended = 0x5, + DW_CFA_def_cfa = 0xc, + DW_CFA_def_cfa_offset = 0xe, + DW_CFA_offset_extended_sf = 0x11, + DW_CFA_advance_loc = 0x40, + DW_CFA_offset = 0x80 +}; + +enum { + DW_EH_PE_udata4 = 3, + DW_EH_PE_textrel = 0x20 +}; + +enum { + DW_TAG_compile_unit = 0x11 +}; + +enum { + DW_children_no = 0, + DW_children_yes = 1 +}; + +enum { + DW_AT_name = 0x03, + DW_AT_stmt_list = 0x10, + DW_AT_low_pc = 0x11, + DW_AT_high_pc = 0x12 +}; + +enum { + DW_FORM_addr = 0x01, + DW_FORM_data4 = 0x06, + DW_FORM_string = 0x08 +}; + +enum { + DW_LNS_extended_op = 0, + DW_LNS_copy = 1, + DW_LNS_advance_pc = 2, + DW_LNS_advance_line = 3 +}; + +enum { + DW_LNE_end_sequence = 1, + DW_LNE_set_address = 2 +}; + +enum { +#if LJ_TARGET_X86 + DW_REG_AX, DW_REG_CX, DW_REG_DX, DW_REG_BX, + DW_REG_SP, DW_REG_BP, DW_REG_SI, DW_REG_DI, + DW_REG_RA, +#elif LJ_TARGET_X64 + /* Yes, the order is strange, but correct. */ + DW_REG_AX, DW_REG_DX, DW_REG_CX, DW_REG_BX, + DW_REG_SI, DW_REG_DI, DW_REG_BP, DW_REG_SP, + DW_REG_8, DW_REG_9, DW_REG_10, DW_REG_11, + DW_REG_12, DW_REG_13, DW_REG_14, DW_REG_15, + DW_REG_RA, +#elif LJ_TARGET_ARM + DW_REG_SP = 13, + DW_REG_RA = 14, +#elif LJ_TARGET_PPC + DW_REG_SP = 1, + DW_REG_RA = 65, + DW_REG_CR = 70, +#elif LJ_TARGET_MIPS + DW_REG_SP = 29, + DW_REG_RA = 31, +#else +#error "Unsupported target architecture" +#endif +}; + +/* Minimal list of sections for the in-memory ELF object. */ +enum { + GDBJIT_SECT_NULL, + GDBJIT_SECT_text, + GDBJIT_SECT_eh_frame, + GDBJIT_SECT_shstrtab, + GDBJIT_SECT_strtab, + GDBJIT_SECT_symtab, + GDBJIT_SECT_debug_info, + GDBJIT_SECT_debug_abbrev, + GDBJIT_SECT_debug_line, + GDBJIT_SECT__MAX +}; + +enum { + GDBJIT_SYM_UNDEF, + GDBJIT_SYM_FILE, + GDBJIT_SYM_FUNC, + GDBJIT_SYM__MAX +}; + +/* In-memory ELF object. */ +typedef struct GDBJITobj { + ELFheader hdr; /* ELF header. */ + ELFsectheader sect[GDBJIT_SECT__MAX]; /* ELF sections. */ + ELFsymbol sym[GDBJIT_SYM__MAX]; /* ELF symbol table. */ + uint8_t space[4096]; /* Space for various section data. */ +} GDBJITobj; + +/* Combined structure for GDB JIT entry and ELF object. */ +typedef struct GDBJITentryobj { + GDBJITentry entry; + size_t sz; + GDBJITobj obj; +} GDBJITentryobj; + +/* Template for in-memory ELF header. */ +static const ELFheader elfhdr_template = { + .emagic = { 0x7f, 'E', 'L', 'F' }, + .eclass = LJ_64 ? 2 : 1, + .eendian = LJ_ENDIAN_SELECT(1, 2), + .eversion = 1, +#if LJ_TARGET_LINUX + .eosabi = 0, /* Nope, it's not 3. */ +#elif defined(__FreeBSD__) + .eosabi = 9, +#elif defined(__NetBSD__) + .eosabi = 2, +#elif defined(__OpenBSD__) + .eosabi = 12, +#elif defined(__DragonFly__) + .eosabi = 0, +#elif (defined(__sun__) && defined(__svr4__)) + .eosabi = 6, +#else + .eosabi = 0, +#endif + .eabiversion = 0, + .epad = { 0, 0, 0, 0, 0, 0, 0 }, + .type = 1, +#if LJ_TARGET_X86 + .machine = 3, +#elif LJ_TARGET_X64 + .machine = 62, +#elif LJ_TARGET_ARM + .machine = 40, +#elif LJ_TARGET_PPC + .machine = 20, +#elif LJ_TARGET_MIPS + .machine = 8, +#else +#error "Unsupported target architecture" +#endif + .version = 1, + .entry = 0, + .phofs = 0, + .shofs = offsetof(GDBJITobj, sect), + .flags = 0, + .ehsize = sizeof(ELFheader), + .phentsize = 0, + .phnum = 0, + .shentsize = sizeof(ELFsectheader), + .shnum = GDBJIT_SECT__MAX, + .shstridx = GDBJIT_SECT_shstrtab +}; + +/* -- In-memory ELF object generation ------------------------------------- */ + +/* Context for generating the ELF object for the GDB JIT API. */ +typedef struct GDBJITctx { + uint8_t *p; /* Pointer to next address in obj.space. */ + uint8_t *startp; /* Pointer to start address in obj.space. */ + GCtrace *T; /* Generate symbols for this trace. */ + uintptr_t mcaddr; /* Machine code address. */ + MSize szmcode; /* Size of machine code. */ + MSize spadjp; /* Stack adjustment for parent trace or interpreter. */ + MSize spadj; /* Stack adjustment for trace itself. */ + BCLine lineno; /* Starting line number. */ + const char *filename; /* Starting file name. */ + size_t objsize; /* Final size of ELF object. */ + GDBJITobj obj; /* In-memory ELF object. */ +} GDBJITctx; + +/* Add a zero-terminated string. */ +static uint32_t gdbjit_strz(GDBJITctx *ctx, const char *str) +{ + uint8_t *p = ctx->p; + uint32_t ofs = (uint32_t)(p - ctx->startp); + do { + *p++ = (uint8_t)*str; + } while (*str++); + ctx->p = p; + return ofs; +} + +/* Append a decimal number. */ +static void gdbjit_catnum(GDBJITctx *ctx, uint32_t n) +{ + if (n >= 10) { uint32_t m = n / 10; n = n % 10; gdbjit_catnum(ctx, m); } + *ctx->p++ = '0' + n; +} + +/* Add a ULEB128 value. */ +static void gdbjit_uleb128(GDBJITctx *ctx, uint32_t v) +{ + uint8_t *p = ctx->p; + for (; v >= 0x80; v >>= 7) + *p++ = (uint8_t)((v & 0x7f) | 0x80); + *p++ = (uint8_t)v; + ctx->p = p; +} + +/* Add a SLEB128 value. */ +static void gdbjit_sleb128(GDBJITctx *ctx, int32_t v) +{ + uint8_t *p = ctx->p; + for (; (uint32_t)(v+0x40) >= 0x80; v >>= 7) + *p++ = (uint8_t)((v & 0x7f) | 0x80); + *p++ = (uint8_t)(v & 0x7f); + ctx->p = p; +} + +/* Shortcuts to generate DWARF structures. */ +#define DB(x) (*p++ = (x)) +#define DI8(x) (*(int8_t *)p = (x), p++) +#define DU16(x) (*(uint16_t *)p = (x), p += 2) +#define DU32(x) (*(uint32_t *)p = (x), p += 4) +#define DADDR(x) (*(uintptr_t *)p = (x), p += sizeof(uintptr_t)) +#define DUV(x) (ctx->p = p, gdbjit_uleb128(ctx, (x)), p = ctx->p) +#define DSV(x) (ctx->p = p, gdbjit_sleb128(ctx, (x)), p = ctx->p) +#define DSTR(str) (ctx->p = p, gdbjit_strz(ctx, (str)), p = ctx->p) +#define DALIGNNOP(s) while ((uintptr_t)p & ((s)-1)) *p++ = DW_CFA_nop +#define DSECT(name, stmt) \ + { uint32_t *szp_##name = (uint32_t *)p; p += 4; stmt \ + *szp_##name = (uint32_t)((p-(uint8_t *)szp_##name)-4); } \ + +/* Initialize ELF section headers. */ +static void LJ_FASTCALL gdbjit_secthdr(GDBJITctx *ctx) +{ + ELFsectheader *sect; + + *ctx->p++ = '\0'; /* Empty string at start of string table. */ + +#define SECTDEF(id, tp, al) \ + sect = &ctx->obj.sect[GDBJIT_SECT_##id]; \ + sect->name = gdbjit_strz(ctx, "." #id); \ + sect->type = ELFSECT_TYPE_##tp; \ + sect->align = (al) + + SECTDEF(text, NOBITS, 16); + sect->flags = ELFSECT_FLAGS_ALLOC|ELFSECT_FLAGS_EXEC; + sect->addr = ctx->mcaddr; + sect->ofs = 0; + sect->size = ctx->szmcode; + + SECTDEF(eh_frame, PROGBITS, sizeof(uintptr_t)); + sect->flags = ELFSECT_FLAGS_ALLOC; + + SECTDEF(shstrtab, STRTAB, 1); + SECTDEF(strtab, STRTAB, 1); + + SECTDEF(symtab, SYMTAB, sizeof(uintptr_t)); + sect->ofs = offsetof(GDBJITobj, sym); + sect->size = sizeof(ctx->obj.sym); + sect->link = GDBJIT_SECT_strtab; + sect->entsize = sizeof(ELFsymbol); + sect->info = GDBJIT_SYM_FUNC; + + SECTDEF(debug_info, PROGBITS, 1); + SECTDEF(debug_abbrev, PROGBITS, 1); + SECTDEF(debug_line, PROGBITS, 1); + +#undef SECTDEF +} + +/* Initialize symbol table. */ +static void LJ_FASTCALL gdbjit_symtab(GDBJITctx *ctx) +{ + ELFsymbol *sym; + + *ctx->p++ = '\0'; /* Empty string at start of string table. */ + + sym = &ctx->obj.sym[GDBJIT_SYM_FILE]; + sym->name = gdbjit_strz(ctx, "JIT mcode"); + sym->sectidx = ELFSECT_IDX_ABS; + sym->info = ELFSYM_TYPE_FILE|ELFSYM_BIND_LOCAL; + + sym = &ctx->obj.sym[GDBJIT_SYM_FUNC]; + sym->name = gdbjit_strz(ctx, "TRACE_"); ctx->p--; + gdbjit_catnum(ctx, ctx->T->traceno); *ctx->p++ = '\0'; + sym->sectidx = GDBJIT_SECT_text; + sym->value = 0; + sym->size = ctx->szmcode; + sym->info = ELFSYM_TYPE_FUNC|ELFSYM_BIND_GLOBAL; +} + +/* Initialize .eh_frame section. */ +static void LJ_FASTCALL gdbjit_ehframe(GDBJITctx *ctx) +{ + uint8_t *p = ctx->p; + uint8_t *framep = p; + + /* Emit DWARF EH CIE. */ + DSECT(CIE, + DU32(0); /* Offset to CIE itself. */ + DB(DW_CIE_VERSION); + DSTR("zR"); /* Augmentation. */ + DUV(1); /* Code alignment factor. */ + DSV(-(int32_t)sizeof(uintptr_t)); /* Data alignment factor. */ + DB(DW_REG_RA); /* Return address register. */ + DB(1); DB(DW_EH_PE_textrel|DW_EH_PE_udata4); /* Augmentation data. */ + DB(DW_CFA_def_cfa); DUV(DW_REG_SP); DUV(sizeof(uintptr_t)); +#if LJ_TARGET_PPC + DB(DW_CFA_offset_extended_sf); DB(DW_REG_RA); DSV(-1); +#else + DB(DW_CFA_offset|DW_REG_RA); DUV(1); +#endif + DALIGNNOP(sizeof(uintptr_t)); + ) + + /* Emit DWARF EH FDE. */ + DSECT(FDE, + DU32((uint32_t)(p-framep)); /* Offset to CIE. */ + DU32(0); /* Machine code offset relative to .text. */ + DU32(ctx->szmcode); /* Machine code length. */ + DB(0); /* Augmentation data. */ + /* Registers saved in CFRAME. */ +#if LJ_TARGET_X86 + DB(DW_CFA_offset|DW_REG_BP); DUV(2); + DB(DW_CFA_offset|DW_REG_DI); DUV(3); + DB(DW_CFA_offset|DW_REG_SI); DUV(4); + DB(DW_CFA_offset|DW_REG_BX); DUV(5); +#elif LJ_TARGET_X64 + DB(DW_CFA_offset|DW_REG_BP); DUV(2); + DB(DW_CFA_offset|DW_REG_BX); DUV(3); + DB(DW_CFA_offset|DW_REG_15); DUV(4); + DB(DW_CFA_offset|DW_REG_14); DUV(5); + /* Extra registers saved for JIT-compiled code. */ + DB(DW_CFA_offset|DW_REG_13); DUV(9); + DB(DW_CFA_offset|DW_REG_12); DUV(10); +#elif LJ_TARGET_ARM + { + int i; + for (i = 11; i >= 4; i--) { DB(DW_CFA_offset|i); DUV(2+(11-i)); } + } +#elif LJ_TARGET_PPC + { + int i; + DB(DW_CFA_offset_extended); DB(DW_REG_CR); DUV(55); + for (i = 14; i <= 31; i++) { + DB(DW_CFA_offset|i); DUV(37+(31-i)); + DB(DW_CFA_offset|32|i); DUV(2+2*(31-i)); + } + } +#elif LJ_TARGET_MIPS + { + int i; + DB(DW_CFA_offset|30); DUV(2); + for (i = 23; i >= 16; i--) { DB(DW_CFA_offset|i); DUV(26-i); } + for (i = 30; i >= 20; i -= 2) { DB(DW_CFA_offset|32|i); DUV(42-i); } + } +#else +#error "Unsupported target architecture" +#endif + if (ctx->spadjp != ctx->spadj) { /* Parent/interpreter stack frame size. */ + DB(DW_CFA_def_cfa_offset); DUV(ctx->spadjp); + DB(DW_CFA_advance_loc|1); /* Only an approximation. */ + } + DB(DW_CFA_def_cfa_offset); DUV(ctx->spadj); /* Trace stack frame size. */ + DALIGNNOP(sizeof(uintptr_t)); + ) + + ctx->p = p; +} + +/* Initialize .debug_info section. */ +static void LJ_FASTCALL gdbjit_debuginfo(GDBJITctx *ctx) +{ + uint8_t *p = ctx->p; + + DSECT(info, + DU16(2); /* DWARF version. */ + DU32(0); /* Abbrev offset. */ + DB(sizeof(uintptr_t)); /* Pointer size. */ + + DUV(1); /* Abbrev #1: DW_TAG_compile_unit. */ + DSTR(ctx->filename); /* DW_AT_name. */ + DADDR(ctx->mcaddr); /* DW_AT_low_pc. */ + DADDR(ctx->mcaddr + ctx->szmcode); /* DW_AT_high_pc. */ + DU32(0); /* DW_AT_stmt_list. */ + ) + + ctx->p = p; +} + +/* Initialize .debug_abbrev section. */ +static void LJ_FASTCALL gdbjit_debugabbrev(GDBJITctx *ctx) +{ + uint8_t *p = ctx->p; + + /* Abbrev #1: DW_TAG_compile_unit. */ + DUV(1); DUV(DW_TAG_compile_unit); + DB(DW_children_no); + DUV(DW_AT_name); DUV(DW_FORM_string); + DUV(DW_AT_low_pc); DUV(DW_FORM_addr); + DUV(DW_AT_high_pc); DUV(DW_FORM_addr); + DUV(DW_AT_stmt_list); DUV(DW_FORM_data4); + DB(0); DB(0); + + ctx->p = p; +} + +#define DLNE(op, s) (DB(DW_LNS_extended_op), DUV(1+(s)), DB((op))) + +/* Initialize .debug_line section. */ +static void LJ_FASTCALL gdbjit_debugline(GDBJITctx *ctx) +{ + uint8_t *p = ctx->p; + + DSECT(line, + DU16(2); /* DWARF version. */ + DSECT(header, + DB(1); /* Minimum instruction length. */ + DB(1); /* is_stmt. */ + DI8(0); /* Line base for special opcodes. */ + DB(2); /* Line range for special opcodes. */ + DB(3+1); /* Opcode base at DW_LNS_advance_line+1. */ + DB(0); DB(1); DB(1); /* Standard opcode lengths. */ + /* Directory table. */ + DB(0); + /* File name table. */ + DSTR(ctx->filename); DUV(0); DUV(0); DUV(0); + DB(0); + ) + + DLNE(DW_LNE_set_address, sizeof(uintptr_t)); DADDR(ctx->mcaddr); + if (ctx->lineno) { + DB(DW_LNS_advance_line); DSV(ctx->lineno-1); + } + DB(DW_LNS_copy); + DB(DW_LNS_advance_pc); DUV(ctx->szmcode); + DLNE(DW_LNE_end_sequence, 0); + ) + + ctx->p = p; +} + +#undef DLNE + +/* Undef shortcuts. */ +#undef DB +#undef DI8 +#undef DU16 +#undef DU32 +#undef DADDR +#undef DUV +#undef DSV +#undef DSTR +#undef DALIGNNOP +#undef DSECT + +/* Type of a section initializer callback. */ +typedef void (LJ_FASTCALL *GDBJITinitf)(GDBJITctx *ctx); + +/* Call section initializer and set the section offset and size. */ +static void gdbjit_initsect(GDBJITctx *ctx, int sect, GDBJITinitf initf) +{ + ctx->startp = ctx->p; + ctx->obj.sect[sect].ofs = (uintptr_t)((char *)ctx->p - (char *)&ctx->obj); + initf(ctx); + ctx->obj.sect[sect].size = (uintptr_t)(ctx->p - ctx->startp); +} + +#define SECTALIGN(p, a) \ + ((p) = (uint8_t *)(((uintptr_t)(p) + ((a)-1)) & ~(uintptr_t)((a)-1))) + +/* Build in-memory ELF object. */ +static void gdbjit_buildobj(GDBJITctx *ctx) +{ + GDBJITobj *obj = &ctx->obj; + /* Fill in ELF header and clear structures. */ + memcpy(&obj->hdr, &elfhdr_template, sizeof(ELFheader)); + memset(&obj->sect, 0, sizeof(ELFsectheader)*GDBJIT_SECT__MAX); + memset(&obj->sym, 0, sizeof(ELFsymbol)*GDBJIT_SYM__MAX); + /* Initialize sections. */ + ctx->p = obj->space; + gdbjit_initsect(ctx, GDBJIT_SECT_shstrtab, gdbjit_secthdr); + gdbjit_initsect(ctx, GDBJIT_SECT_strtab, gdbjit_symtab); + gdbjit_initsect(ctx, GDBJIT_SECT_debug_info, gdbjit_debuginfo); + gdbjit_initsect(ctx, GDBJIT_SECT_debug_abbrev, gdbjit_debugabbrev); + gdbjit_initsect(ctx, GDBJIT_SECT_debug_line, gdbjit_debugline); + SECTALIGN(ctx->p, sizeof(uintptr_t)); + gdbjit_initsect(ctx, GDBJIT_SECT_eh_frame, gdbjit_ehframe); + ctx->objsize = (size_t)((char *)ctx->p - (char *)obj); + lua_assert(ctx->objsize < sizeof(GDBJITobj)); +} + +#undef SECTALIGN + +/* -- Interface to GDB JIT API -------------------------------------------- */ + +/* Add new entry to GDB JIT symbol chain. */ +static void gdbjit_newentry(lua_State *L, GDBJITctx *ctx) +{ + /* Allocate memory for GDB JIT entry and ELF object. */ + MSize sz = (MSize)(sizeof(GDBJITentryobj) - sizeof(GDBJITobj) + ctx->objsize); + GDBJITentryobj *eo = lj_mem_newt(L, sz, GDBJITentryobj); + memcpy(&eo->obj, &ctx->obj, ctx->objsize); /* Copy ELF object. */ + eo->sz = sz; + ctx->T->gdbjit_entry = (void *)eo; + /* Link new entry to chain and register it. */ + eo->entry.prev_entry = NULL; + eo->entry.next_entry = __jit_debug_descriptor.first_entry; + if (eo->entry.next_entry) + eo->entry.next_entry->prev_entry = &eo->entry; + eo->entry.symfile_addr = (const char *)&eo->obj; + eo->entry.symfile_size = ctx->objsize; + __jit_debug_descriptor.first_entry = &eo->entry; + __jit_debug_descriptor.relevant_entry = &eo->entry; + __jit_debug_descriptor.action_flag = GDBJIT_REGISTER; + __jit_debug_register_code(); +} + +/* Add debug info for newly compiled trace and notify GDB. */ +void lj_gdbjit_addtrace(jit_State *J, GCtrace *T) +{ + GDBJITctx ctx; + GCproto *pt = &gcref(T->startpt)->pt; + TraceNo parent = T->ir[REF_BASE].op1; + const BCIns *startpc = mref(T->startpc, const BCIns); + ctx.T = T; + ctx.mcaddr = (uintptr_t)T->mcode; + ctx.szmcode = T->szmcode; + ctx.spadjp = CFRAME_SIZE_JIT + + (MSize)(parent ? traceref(J, parent)->spadjust : 0); + ctx.spadj = CFRAME_SIZE_JIT + T->spadjust; + lua_assert(startpc >= proto_bc(pt) && startpc < proto_bc(pt) + pt->sizebc); + ctx.lineno = lj_debug_line(pt, proto_bcpos(pt, startpc)); + ctx.filename = proto_chunknamestr(pt); + if (*ctx.filename == '@' || *ctx.filename == '=') + ctx.filename++; + else + ctx.filename = "(string)"; + gdbjit_buildobj(&ctx); + gdbjit_newentry(J->L, &ctx); +} + +/* Delete debug info for trace and notify GDB. */ +void lj_gdbjit_deltrace(jit_State *J, GCtrace *T) +{ + GDBJITentryobj *eo = (GDBJITentryobj *)T->gdbjit_entry; + if (eo) { + if (eo->entry.prev_entry) + eo->entry.prev_entry->next_entry = eo->entry.next_entry; + else + __jit_debug_descriptor.first_entry = eo->entry.next_entry; + if (eo->entry.next_entry) + eo->entry.next_entry->prev_entry = eo->entry.prev_entry; + __jit_debug_descriptor.relevant_entry = &eo->entry; + __jit_debug_descriptor.action_flag = GDBJIT_UNREGISTER; + __jit_debug_register_code(); + lj_mem_free(J2G(J), eo, eo->sz); + } +} + +#endif +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_gdbjit.h b/src/3rd party/luajit-2.0/src/lj_gdbjit.h new file mode 100644 index 00000000000..49c586301a8 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_gdbjit.h @@ -0,0 +1,22 @@ +/* +** Client for the GDB JIT API. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_GDBJIT_H +#define _LJ_GDBJIT_H + +#include "lj_obj.h" +#include "lj_jit.h" + +#if LJ_HASJIT && defined(LUAJIT_USE_GDBJIT) + +LJ_FUNC void lj_gdbjit_addtrace(jit_State *J, GCtrace *T); +LJ_FUNC void lj_gdbjit_deltrace(jit_State *J, GCtrace *T); + +#else +#define lj_gdbjit_addtrace(J, T) UNUSED(T) +#define lj_gdbjit_deltrace(J, T) UNUSED(T) +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ir.c b/src/3rd party/luajit-2.0/src/lj_ir.c new file mode 100644 index 00000000000..439f3fc3456 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ir.c @@ -0,0 +1,501 @@ +/* +** SSA IR (Intermediate Representation) emitter. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_ir_c +#define LUA_CORE + +/* For pointers to libc/libm functions. */ +#include +#include + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_gc.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lj_carith.h" +#endif +#include "lj_vm.h" +#include "lj_strscan.h" +#include "lj_lib.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) +#define fins (&J->fold.ins) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* -- IR tables ----------------------------------------------------------- */ + +/* IR instruction modes. */ +LJ_DATADEF const uint8_t lj_ir_mode[IR__MAX+1] = { +IRDEF(IRMODE) + 0 +}; + +/* IR type sizes. */ +LJ_DATADEF const uint8_t lj_ir_type_size[IRT__MAX+1] = { +#define IRTSIZE(name, size) size, +IRTDEF(IRTSIZE) +#undef IRTSIZE + 0 +}; + +/* C call info for CALL* instructions. */ +LJ_DATADEF const CCallInfo lj_ir_callinfo[] = { +#define IRCALLCI(cond, name, nargs, kind, type, flags) \ + { (ASMFunction)IRCALLCOND_##cond(name), \ + (nargs)|(CCI_CALL_##kind)|(IRT_##type<irbuf + J->irbotlim; + MSize szins = J->irtoplim - J->irbotlim; + if (szins) { + baseir = (IRIns *)lj_mem_realloc(J->L, baseir, szins*sizeof(IRIns), + 2*szins*sizeof(IRIns)); + J->irtoplim = J->irbotlim + 2*szins; + } else { + baseir = (IRIns *)lj_mem_realloc(J->L, NULL, 0, LJ_MIN_IRSZ*sizeof(IRIns)); + J->irbotlim = REF_BASE - LJ_MIN_IRSZ/4; + J->irtoplim = J->irbotlim + LJ_MIN_IRSZ; + } + J->cur.ir = J->irbuf = baseir - J->irbotlim; +} + +/* Grow IR buffer at the bottom or shift it up. */ +static void lj_ir_growbot(jit_State *J) +{ + IRIns *baseir = J->irbuf + J->irbotlim; + MSize szins = J->irtoplim - J->irbotlim; + lua_assert(szins != 0); + lua_assert(J->cur.nk == J->irbotlim); + if (J->cur.nins + (szins >> 1) < J->irtoplim) { + /* More than half of the buffer is free on top: shift up by a quarter. */ + MSize ofs = szins >> 2; + memmove(baseir + ofs, baseir, (J->cur.nins - J->irbotlim)*sizeof(IRIns)); + J->irbotlim -= ofs; + J->irtoplim -= ofs; + J->cur.ir = J->irbuf = baseir - J->irbotlim; + } else { + /* Double the buffer size, but split the growth amongst top/bottom. */ + IRIns *newbase = lj_mem_newt(J->L, 2*szins*sizeof(IRIns), IRIns); + MSize ofs = szins >= 256 ? 128 : (szins >> 1); /* Limit bottom growth. */ + memcpy(newbase + ofs, baseir, (J->cur.nins - J->irbotlim)*sizeof(IRIns)); + lj_mem_free(G(J->L), baseir, szins*sizeof(IRIns)); + J->irbotlim -= ofs; + J->irtoplim = J->irbotlim + 2*szins; + J->cur.ir = J->irbuf = newbase - J->irbotlim; + } +} + +/* Emit IR without any optimizations. */ +TRef LJ_FASTCALL lj_ir_emit(jit_State *J) +{ + IRRef ref = lj_ir_nextins(J); + IRIns *ir = IR(ref); + IROp op = fins->o; + ir->prev = J->chain[op]; + J->chain[op] = (IRRef1)ref; + ir->o = op; + ir->op1 = fins->op1; + ir->op2 = fins->op2; + J->guardemit.irt |= fins->t.irt; + return TREF(ref, irt_t((ir->t = fins->t))); +} + +/* Emit call to a C function. */ +TRef lj_ir_call(jit_State *J, IRCallID id, ...) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + uint32_t n = CCI_NARGS(ci); + TRef tr = TREF_NIL; + va_list argp; + va_start(argp, id); + if ((ci->flags & CCI_L)) n--; + if (n > 0) + tr = va_arg(argp, IRRef); + while (n-- > 1) + tr = emitir(IRT(IR_CARG, IRT_NIL), tr, va_arg(argp, IRRef)); + va_end(argp); + if (CCI_OP(ci) == IR_CALLS) + J->needsnap = 1; /* Need snapshot after call with side effect. */ + return emitir(CCI_OPTYPE(ci), tr, id); +} + +/* -- Interning of constants ---------------------------------------------- */ + +/* +** IR instructions for constants are kept between J->cur.nk >= ref < REF_BIAS. +** They are chained like all other instructions, but grow downwards. +** The are interned (like strings in the VM) to facilitate reference +** comparisons. The same constant must get the same reference. +*/ + +/* Get ref of next IR constant and optionally grow IR. +** Note: this may invalidate all IRIns *! +*/ +static LJ_AINLINE IRRef ir_nextk(jit_State *J) +{ + IRRef ref = J->cur.nk; + if (LJ_UNLIKELY(ref <= J->irbotlim)) lj_ir_growbot(J); + J->cur.nk = --ref; + return ref; +} + +/* Intern int32_t constant. */ +TRef LJ_FASTCALL lj_ir_kint(jit_State *J, int32_t k) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef ref; + for (ref = J->chain[IR_KINT]; ref; ref = cir[ref].prev) + if (cir[ref].i == k) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + ir->i = k; + ir->t.irt = IRT_INT; + ir->o = IR_KINT; + ir->prev = J->chain[IR_KINT]; + J->chain[IR_KINT] = (IRRef1)ref; +found: + return TREF(ref, IRT_INT); +} + +/* The MRef inside the KNUM/KINT64 IR instructions holds the address of the +** 64 bit constant. The constants themselves are stored in a chained array +** and shared across traces. +** +** Rationale for choosing this data structure: +** - The address of the constants is embedded in the generated machine code +** and must never move. A resizable array or hash table wouldn't work. +** - Most apps need very few non-32 bit integer constants (less than a dozen). +** - Linear search is hard to beat in terms of speed and low complexity. +*/ +typedef struct K64Array { + MRef next; /* Pointer to next list. */ + MSize numk; /* Number of used elements in this array. */ + TValue k[LJ_MIN_K64SZ]; /* Array of constants. */ +} K64Array; + +/* Free all chained arrays. */ +void lj_ir_k64_freeall(jit_State *J) +{ + K64Array *k; + for (k = mref(J->k64, K64Array); k; ) { + K64Array *next = mref(k->next, K64Array); + lj_mem_free(J2G(J), k, sizeof(K64Array)); + k = next; + } +} + +/* Find 64 bit constant in chained array or add it. */ +cTValue *lj_ir_k64_find(jit_State *J, uint64_t u64) +{ + K64Array *k, *kp = NULL; + TValue *ntv; + MSize idx; + /* Search for the constant in the whole chain of arrays. */ + for (k = mref(J->k64, K64Array); k; k = mref(k->next, K64Array)) { + kp = k; /* Remember previous element in list. */ + for (idx = 0; idx < k->numk; idx++) { /* Search one array. */ + TValue *tv = &k->k[idx]; + if (tv->u64 == u64) /* Needed for +-0/NaN/absmask. */ + return tv; + } + } + /* Constant was not found, need to add it. */ + if (!(kp && kp->numk < LJ_MIN_K64SZ)) { /* Allocate a new array. */ + K64Array *kn = lj_mem_newt(J->L, sizeof(K64Array), K64Array); + setmref(kn->next, NULL); + kn->numk = 0; + if (kp) + setmref(kp->next, kn); /* Chain to the end of the list. */ + else + setmref(J->k64, kn); /* Link first array. */ + kp = kn; + } + ntv = &kp->k[kp->numk++]; /* Add to current array. */ + ntv->u64 = u64; + return ntv; +} + +/* Intern 64 bit constant, given by its address. */ +TRef lj_ir_k64(jit_State *J, IROp op, cTValue *tv) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef ref; + IRType t = op == IR_KNUM ? IRT_NUM : IRT_I64; + for (ref = J->chain[op]; ref; ref = cir[ref].prev) + if (ir_k64(&cir[ref]) == tv) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + lua_assert(checkptr32(tv)); + setmref(ir->ptr, tv); + ir->t.irt = t; + ir->o = op; + ir->prev = J->chain[op]; + J->chain[op] = (IRRef1)ref; +found: + return TREF(ref, t); +} + +/* Intern FP constant, given by its 64 bit pattern. */ +TRef lj_ir_knum_u64(jit_State *J, uint64_t u64) +{ + return lj_ir_k64(J, IR_KNUM, lj_ir_k64_find(J, u64)); +} + +/* Intern 64 bit integer constant. */ +TRef lj_ir_kint64(jit_State *J, uint64_t u64) +{ + return lj_ir_k64(J, IR_KINT64, lj_ir_k64_find(J, u64)); +} + +/* Check whether a number is int and return it. -0 is NOT considered an int. */ +static int numistrueint(lua_Number n, int32_t *kp) +{ + int32_t k = lj_num2int(n); + if (n == (lua_Number)k) { + if (kp) *kp = k; + if (k == 0) { /* Special check for -0. */ + TValue tv; + setnumV(&tv, n); + if (tv.u32.hi != 0) + return 0; + } + return 1; + } + return 0; +} + +/* Intern number as int32_t constant if possible, otherwise as FP constant. */ +TRef lj_ir_knumint(jit_State *J, lua_Number n) +{ + int32_t k; + if (numistrueint(n, &k)) + return lj_ir_kint(J, k); + else + return lj_ir_knum(J, n); +} + +/* Intern GC object "constant". */ +TRef lj_ir_kgc(jit_State *J, GCobj *o, IRType t) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef ref; + lua_assert(!isdead(J2G(J), o)); + for (ref = J->chain[IR_KGC]; ref; ref = cir[ref].prev) + if (ir_kgc(&cir[ref]) == o) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + /* NOBARRIER: Current trace is a GC root. */ + setgcref(ir->gcr, o); + ir->t.irt = (uint8_t)t; + ir->o = IR_KGC; + ir->prev = J->chain[IR_KGC]; + J->chain[IR_KGC] = (IRRef1)ref; +found: + return TREF(ref, t); +} + +/* Intern 32 bit pointer constant. */ +TRef lj_ir_kptr_(jit_State *J, IROp op, void *ptr) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef ref; + lua_assert((void *)(intptr_t)i32ptr(ptr) == ptr); + for (ref = J->chain[op]; ref; ref = cir[ref].prev) + if (mref(cir[ref].ptr, void) == ptr) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + setmref(ir->ptr, ptr); + ir->t.irt = IRT_P32; + ir->o = op; + ir->prev = J->chain[op]; + J->chain[op] = (IRRef1)ref; +found: + return TREF(ref, IRT_P32); +} + +/* Intern typed NULL constant. */ +TRef lj_ir_knull(jit_State *J, IRType t) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef ref; + for (ref = J->chain[IR_KNULL]; ref; ref = cir[ref].prev) + if (irt_t(cir[ref].t) == t) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + ir->i = 0; + ir->t.irt = (uint8_t)t; + ir->o = IR_KNULL; + ir->prev = J->chain[IR_KNULL]; + J->chain[IR_KNULL] = (IRRef1)ref; +found: + return TREF(ref, t); +} + +/* Intern key slot. */ +TRef lj_ir_kslot(jit_State *J, TRef key, IRRef slot) +{ + IRIns *ir, *cir = J->cur.ir; + IRRef2 op12 = IRREF2((IRRef1)key, (IRRef1)slot); + IRRef ref; + /* Const part is not touched by CSE/DCE, so 0-65535 is ok for IRMlit here. */ + lua_assert(tref_isk(key) && slot == (IRRef)(IRRef1)slot); + for (ref = J->chain[IR_KSLOT]; ref; ref = cir[ref].prev) + if (cir[ref].op12 == op12) + goto found; + ref = ir_nextk(J); + ir = IR(ref); + ir->op12 = op12; + ir->t.irt = IRT_P32; + ir->o = IR_KSLOT; + ir->prev = J->chain[IR_KSLOT]; + J->chain[IR_KSLOT] = (IRRef1)ref; +found: + return TREF(ref, IRT_P32); +} + +/* -- Access to IR constants ---------------------------------------------- */ + +/* Copy value of IR constant. */ +void lj_ir_kvalue(lua_State *L, TValue *tv, const IRIns *ir) +{ + UNUSED(L); + lua_assert(ir->o != IR_KSLOT); /* Common mistake. */ + switch (ir->o) { + case IR_KPRI: setitype(tv, irt_toitype(ir->t)); break; + case IR_KINT: setintV(tv, ir->i); break; + case IR_KGC: setgcV(L, tv, ir_kgc(ir), irt_toitype(ir->t)); break; + case IR_KPTR: case IR_KKPTR: case IR_KNULL: + setlightudV(tv, mref(ir->ptr, void)); + break; + case IR_KNUM: setnumV(tv, ir_knum(ir)->n); break; +#if LJ_HASFFI + case IR_KINT64: { + GCcdata *cd = lj_cdata_new_(L, CTID_INT64, 8); + *(uint64_t *)cdataptr(cd) = ir_kint64(ir)->u64; + setcdataV(L, tv, cd); + break; + } +#endif + default: lua_assert(0); break; + } +} + +/* -- Convert IR operand types -------------------------------------------- */ + +/* Convert from string to number. */ +TRef LJ_FASTCALL lj_ir_tonumber(jit_State *J, TRef tr) +{ + if (!tref_isnumber(tr)) { + if (tref_isstr(tr)) + tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); + else + lj_trace_err(J, LJ_TRERR_BADTYPE); + } + return tr; +} + +/* Convert from integer or string to number. */ +TRef LJ_FASTCALL lj_ir_tonum(jit_State *J, TRef tr) +{ + if (!tref_isnum(tr)) { + if (tref_isinteger(tr)) + tr = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); + else if (tref_isstr(tr)) + tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); + else + lj_trace_err(J, LJ_TRERR_BADTYPE); + } + return tr; +} + +/* Convert from integer or number to string. */ +TRef LJ_FASTCALL lj_ir_tostr(jit_State *J, TRef tr) +{ + if (!tref_isstr(tr)) { + if (!tref_isnumber(tr)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + tr = emitir(IRT(IR_TOSTR, IRT_STR), tr, 0); + } + return tr; +} + +/* -- Miscellaneous IR ops ------------------------------------------------ */ + +/* Evaluate numeric comparison. */ +int lj_ir_numcmp(lua_Number a, lua_Number b, IROp op) +{ + switch (op) { + case IR_EQ: return (a == b); + case IR_NE: return (a != b); + case IR_LT: return (a < b); + case IR_GE: return (a >= b); + case IR_LE: return (a <= b); + case IR_GT: return (a > b); + case IR_ULT: return !(a >= b); + case IR_UGE: return !(a < b); + case IR_ULE: return !(a > b); + case IR_UGT: return !(a <= b); + default: lua_assert(0); return 0; + } +} + +/* Evaluate string comparison. */ +int lj_ir_strcmp(GCstr *a, GCstr *b, IROp op) +{ + int res = lj_str_cmp(a, b); + switch (op) { + case IR_LT: return (res < 0); + case IR_GE: return (res >= 0); + case IR_LE: return (res <= 0); + case IR_GT: return (res > 0); + default: lua_assert(0); return 0; + } +} + +/* Rollback IR to previous state. */ +void lj_ir_rollback(jit_State *J, IRRef ref) +{ + IRRef nins = J->cur.nins; + while (nins > ref) { + IRIns *ir; + nins--; + ir = IR(nins); + J->chain[ir->o] = ir->prev; + } + J->cur.nins = nins; +} + +#undef IR +#undef fins +#undef emitir + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ir.h b/src/3rd party/luajit-2.0/src/lj_ir.h new file mode 100644 index 00000000000..8126482e849 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ir.h @@ -0,0 +1,551 @@ +/* +** SSA IR (Intermediate Representation) format. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_IR_H +#define _LJ_IR_H + +#include "lj_obj.h" + +/* -- IR instructions ----------------------------------------------------- */ + +/* IR instruction definition. Order matters, see below. ORDER IR */ +#define IRDEF(_) \ + /* Guarded assertions. */ \ + /* Must be properly aligned to flip opposites (^1) and (un)ordered (^4). */ \ + _(LT, N , ref, ref) \ + _(GE, N , ref, ref) \ + _(LE, N , ref, ref) \ + _(GT, N , ref, ref) \ + \ + _(ULT, N , ref, ref) \ + _(UGE, N , ref, ref) \ + _(ULE, N , ref, ref) \ + _(UGT, N , ref, ref) \ + \ + _(EQ, C , ref, ref) \ + _(NE, C , ref, ref) \ + \ + _(ABC, N , ref, ref) \ + _(RETF, S , ref, ref) \ + \ + /* Miscellaneous ops. */ \ + _(NOP, N , ___, ___) \ + _(BASE, N , lit, lit) \ + _(PVAL, N , lit, ___) \ + _(GCSTEP, S , ___, ___) \ + _(HIOP, S , ref, ref) \ + _(LOOP, S , ___, ___) \ + _(USE, S , ref, ___) \ + _(PHI, S , ref, ref) \ + _(RENAME, S , ref, lit) \ + \ + /* Constants. */ \ + _(KPRI, N , ___, ___) \ + _(KINT, N , cst, ___) \ + _(KGC, N , cst, ___) \ + _(KPTR, N , cst, ___) \ + _(KKPTR, N , cst, ___) \ + _(KNULL, N , cst, ___) \ + _(KNUM, N , cst, ___) \ + _(KINT64, N , cst, ___) \ + _(KSLOT, N , ref, lit) \ + \ + /* Bit ops. */ \ + _(BNOT, N , ref, ___) \ + _(BSWAP, N , ref, ___) \ + _(BAND, C , ref, ref) \ + _(BOR, C , ref, ref) \ + _(BXOR, C , ref, ref) \ + _(BSHL, N , ref, ref) \ + _(BSHR, N , ref, ref) \ + _(BSAR, N , ref, ref) \ + _(BROL, N , ref, ref) \ + _(BROR, N , ref, ref) \ + \ + /* Arithmetic ops. ORDER ARITH */ \ + _(ADD, C , ref, ref) \ + _(SUB, N , ref, ref) \ + _(MUL, C , ref, ref) \ + _(DIV, N , ref, ref) \ + _(MOD, N , ref, ref) \ + _(POW, N , ref, ref) \ + _(NEG, N , ref, ref) \ + \ + _(ABS, N , ref, ref) \ + _(ATAN2, N , ref, ref) \ + _(LDEXP, N , ref, ref) \ + _(MIN, C , ref, ref) \ + _(MAX, C , ref, ref) \ + _(FPMATH, N , ref, lit) \ + \ + /* Overflow-checking arithmetic ops. */ \ + _(ADDOV, CW, ref, ref) \ + _(SUBOV, NW, ref, ref) \ + _(MULOV, CW, ref, ref) \ + \ + /* Memory ops. A = array, H = hash, U = upvalue, F = field, S = stack. */ \ + \ + /* Memory references. */ \ + _(AREF, R , ref, ref) \ + _(HREFK, R , ref, ref) \ + _(HREF, L , ref, ref) \ + _(NEWREF, S , ref, ref) \ + _(UREFO, LW, ref, lit) \ + _(UREFC, LW, ref, lit) \ + _(FREF, R , ref, lit) \ + _(STRREF, N , ref, ref) \ + \ + /* Loads and Stores. These must be in the same order. */ \ + _(ALOAD, L , ref, ___) \ + _(HLOAD, L , ref, ___) \ + _(ULOAD, L , ref, ___) \ + _(FLOAD, L , ref, lit) \ + _(XLOAD, L , ref, lit) \ + _(SLOAD, L , lit, lit) \ + _(VLOAD, L , ref, ___) \ + \ + _(ASTORE, S , ref, ref) \ + _(HSTORE, S , ref, ref) \ + _(USTORE, S , ref, ref) \ + _(FSTORE, S , ref, ref) \ + _(XSTORE, S , ref, ref) \ + \ + /* Allocations. */ \ + _(SNEW, N , ref, ref) /* CSE is ok, not marked as A. */ \ + _(XSNEW, A , ref, ref) \ + _(TNEW, AW, lit, lit) \ + _(TDUP, AW, ref, ___) \ + _(CNEW, AW, ref, ref) \ + _(CNEWI, NW, ref, ref) /* CSE is ok, not marked as A. */ \ + \ + /* Barriers. */ \ + _(TBAR, S , ref, ___) \ + _(OBAR, S , ref, ref) \ + _(XBAR, S , ___, ___) \ + \ + /* Type conversions. */ \ + _(CONV, NW, ref, lit) \ + _(TOBIT, N , ref, ref) \ + _(TOSTR, N , ref, ___) \ + _(STRTO, N , ref, ___) \ + \ + /* Calls. */ \ + _(CALLN, N , ref, lit) \ + _(CALLL, L , ref, lit) \ + _(CALLS, S , ref, lit) \ + _(CALLXS, S , ref, ref) \ + _(CARG, N , ref, ref) \ + \ + /* End of list. */ + +/* IR opcodes (max. 256). */ +typedef enum { +#define IRENUM(name, m, m1, m2) IR_##name, +IRDEF(IRENUM) +#undef IRENUM + IR__MAX +} IROp; + +/* Stored opcode. */ +typedef uint8_t IROp1; + +LJ_STATIC_ASSERT(((int)IR_EQ^1) == (int)IR_NE); +LJ_STATIC_ASSERT(((int)IR_LT^1) == (int)IR_GE); +LJ_STATIC_ASSERT(((int)IR_LE^1) == (int)IR_GT); +LJ_STATIC_ASSERT(((int)IR_LT^3) == (int)IR_GT); +LJ_STATIC_ASSERT(((int)IR_LT^4) == (int)IR_ULT); + +/* Delta between xLOAD and xSTORE. */ +#define IRDELTA_L2S ((int)IR_ASTORE - (int)IR_ALOAD) + +LJ_STATIC_ASSERT((int)IR_HLOAD + IRDELTA_L2S == (int)IR_HSTORE); +LJ_STATIC_ASSERT((int)IR_ULOAD + IRDELTA_L2S == (int)IR_USTORE); +LJ_STATIC_ASSERT((int)IR_FLOAD + IRDELTA_L2S == (int)IR_FSTORE); +LJ_STATIC_ASSERT((int)IR_XLOAD + IRDELTA_L2S == (int)IR_XSTORE); + +/* -- Named IR literals --------------------------------------------------- */ + +/* FPMATH sub-functions. ORDER FPM. */ +#define IRFPMDEF(_) \ + _(FLOOR) _(CEIL) _(TRUNC) /* Must be first and in this order. */ \ + _(SQRT) _(EXP) _(EXP2) _(LOG) _(LOG2) _(LOG10) \ + _(SIN) _(COS) _(TAN) \ + _(OTHER) + +typedef enum { +#define FPMENUM(name) IRFPM_##name, +IRFPMDEF(FPMENUM) +#undef FPMENUM + IRFPM__MAX +} IRFPMathOp; + +/* FLOAD fields. */ +#define IRFLDEF(_) \ + _(STR_LEN, offsetof(GCstr, len)) \ + _(FUNC_ENV, offsetof(GCfunc, l.env)) \ + _(FUNC_PC, offsetof(GCfunc, l.pc)) \ + _(TAB_META, offsetof(GCtab, metatable)) \ + _(TAB_ARRAY, offsetof(GCtab, array)) \ + _(TAB_NODE, offsetof(GCtab, node)) \ + _(TAB_ASIZE, offsetof(GCtab, asize)) \ + _(TAB_HMASK, offsetof(GCtab, hmask)) \ + _(TAB_NOMM, offsetof(GCtab, nomm)) \ + _(UDATA_META, offsetof(GCudata, metatable)) \ + _(UDATA_UDTYPE, offsetof(GCudata, udtype)) \ + _(UDATA_FILE, sizeof(GCudata)) \ + _(CDATA_CTYPEID, offsetof(GCcdata, ctypeid)) \ + _(CDATA_PTR, sizeof(GCcdata)) \ + _(CDATA_INT, sizeof(GCcdata)) \ + _(CDATA_INT64, sizeof(GCcdata)) \ + _(CDATA_INT64_4, sizeof(GCcdata) + 4) + +typedef enum { +#define FLENUM(name, ofs) IRFL_##name, +IRFLDEF(FLENUM) +#undef FLENUM + IRFL__MAX +} IRFieldID; + +/* SLOAD mode bits, stored in op2. */ +#define IRSLOAD_PARENT 0x01 /* Coalesce with parent trace. */ +#define IRSLOAD_FRAME 0x02 /* Load hiword of frame. */ +#define IRSLOAD_TYPECHECK 0x04 /* Needs type check. */ +#define IRSLOAD_CONVERT 0x08 /* Number to integer conversion. */ +#define IRSLOAD_READONLY 0x10 /* Read-only, omit slot store. */ +#define IRSLOAD_INHERIT 0x20 /* Inherited by exits/side traces. */ + +/* XLOAD mode, stored in op2. */ +#define IRXLOAD_READONLY 1 /* Load from read-only data. */ +#define IRXLOAD_VOLATILE 2 /* Load from volatile data. */ +#define IRXLOAD_UNALIGNED 4 /* Unaligned load. */ + +/* CONV mode, stored in op2. */ +#define IRCONV_SRCMASK 0x001f /* Source IRType. */ +#define IRCONV_DSTMASK 0x03e0 /* Dest. IRType (also in ir->t). */ +#define IRCONV_DSH 5 +#define IRCONV_NUM_INT ((IRT_NUM<>2)&3)) +#define irm_iscomm(m) ((m) & IRM_C) +#define irm_kind(m) ((m) & IRM_S) + +#define IRMODE(name, m, m1, m2) (((IRM##m1)|((IRM##m2)<<2)|(IRM_##m))^IRM_W), + +LJ_DATA const uint8_t lj_ir_mode[IR__MAX+1]; + +/* -- IR instruction types ------------------------------------------------ */ + +/* Map of itypes to non-negative numbers. ORDER LJ_T. +** LJ_TUPVAL/LJ_TTRACE never appear in a TValue. Use these itypes for +** IRT_P32 and IRT_P64, which never escape the IR. +** The various integers are only used in the IR and can only escape to +** a TValue after implicit or explicit conversion. Their types must be +** contiguous and next to IRT_NUM (see the typerange macros below). +*/ +#define IRTDEF(_) \ + _(NIL, 4) _(FALSE, 4) _(TRUE, 4) _(LIGHTUD, LJ_64 ? 8 : 4) _(STR, 4) \ + _(P32, 4) _(THREAD, 4) _(PROTO, 4) _(FUNC, 4) _(P64, 8) _(CDATA, 4) \ + _(TAB, 4) _(UDATA, 4) \ + _(FLOAT, 4) _(NUM, 8) _(I8, 1) _(U8, 1) _(I16, 2) _(U16, 2) \ + _(INT, 4) _(U32, 4) _(I64, 8) _(U64, 8) \ + _(SOFTFP, 4) /* There is room for 9 more types. */ + +/* IR result type and flags (8 bit). */ +typedef enum { +#define IRTENUM(name, size) IRT_##name, +IRTDEF(IRTENUM) +#undef IRTENUM + IRT__MAX, + + /* Native pointer type and the corresponding integer type. */ + IRT_PTR = LJ_64 ? IRT_P64 : IRT_P32, + IRT_INTP = LJ_64 ? IRT_I64 : IRT_INT, + IRT_UINTP = LJ_64 ? IRT_U64 : IRT_U32, + + /* Additional flags. */ + IRT_MARK = 0x20, /* Marker for misc. purposes. */ + IRT_ISPHI = 0x40, /* Instruction is left or right PHI operand. */ + IRT_GUARD = 0x80, /* Instruction is a guard. */ + + /* Masks. */ + IRT_TYPE = 0x1f, + IRT_T = 0xff +} IRType; + +#define irtype_ispri(irt) ((uint32_t)(irt) <= IRT_TRUE) + +/* Stored IRType. */ +typedef struct IRType1 { uint8_t irt; } IRType1; + +#define IRT(o, t) ((uint32_t)(((o)<<8) | (t))) +#define IRTI(o) (IRT((o), IRT_INT)) +#define IRTN(o) (IRT((o), IRT_NUM)) +#define IRTG(o, t) (IRT((o), IRT_GUARD|(t))) +#define IRTGI(o) (IRT((o), IRT_GUARD|IRT_INT)) + +#define irt_t(t) ((IRType)(t).irt) +#define irt_type(t) ((IRType)((t).irt & IRT_TYPE)) +#define irt_sametype(t1, t2) ((((t1).irt ^ (t2).irt) & IRT_TYPE) == 0) +#define irt_typerange(t, first, last) \ + ((uint32_t)((t).irt & IRT_TYPE) - (uint32_t)(first) <= (uint32_t)(last-first)) + +#define irt_isnil(t) (irt_type(t) == IRT_NIL) +#define irt_ispri(t) ((uint32_t)irt_type(t) <= IRT_TRUE) +#define irt_islightud(t) (irt_type(t) == IRT_LIGHTUD) +#define irt_isstr(t) (irt_type(t) == IRT_STR) +#define irt_istab(t) (irt_type(t) == IRT_TAB) +#define irt_iscdata(t) (irt_type(t) == IRT_CDATA) +#define irt_isfloat(t) (irt_type(t) == IRT_FLOAT) +#define irt_isnum(t) (irt_type(t) == IRT_NUM) +#define irt_isint(t) (irt_type(t) == IRT_INT) +#define irt_isi8(t) (irt_type(t) == IRT_I8) +#define irt_isu8(t) (irt_type(t) == IRT_U8) +#define irt_isi16(t) (irt_type(t) == IRT_I16) +#define irt_isu16(t) (irt_type(t) == IRT_U16) +#define irt_isu32(t) (irt_type(t) == IRT_U32) +#define irt_isi64(t) (irt_type(t) == IRT_I64) +#define irt_isu64(t) (irt_type(t) == IRT_U64) + +#define irt_isfp(t) (irt_isnum(t) || irt_isfloat(t)) +#define irt_isinteger(t) (irt_typerange((t), IRT_I8, IRT_INT)) +#define irt_isgcv(t) (irt_typerange((t), IRT_STR, IRT_UDATA)) +#define irt_isaddr(t) (irt_typerange((t), IRT_LIGHTUD, IRT_UDATA)) +#define irt_isint64(t) (irt_typerange((t), IRT_I64, IRT_U64)) + +#if LJ_64 +#define IRT_IS64 \ + ((1u<> irt_type(t)) & 1) +#define irt_is64orfp(t) (((IRT_IS64|(1u<>irt_type(t)) & 1) + +#define irt_size(t) (lj_ir_type_size[irt_t((t))]) + +LJ_DATA const uint8_t lj_ir_type_size[]; + +static LJ_AINLINE IRType itype2irt(const TValue *tv) +{ + if (tvisint(tv)) + return IRT_INT; + else if (tvisnum(tv)) + return IRT_NUM; +#if LJ_64 + else if (tvislightud(tv)) + return IRT_LIGHTUD; +#endif + else + return (IRType)~itype(tv); +} + +static LJ_AINLINE uint32_t irt_toitype_(IRType t) +{ + lua_assert(!LJ_64 || t != IRT_LIGHTUD); + if (LJ_DUALNUM && t > IRT_NUM) { + return LJ_TISNUM; + } else { + lua_assert(t <= IRT_NUM); + return ~(uint32_t)t; + } +} + +#define irt_toitype(t) irt_toitype_(irt_type((t))) + +#define irt_isguard(t) ((t).irt & IRT_GUARD) +#define irt_ismarked(t) ((t).irt & IRT_MARK) +#define irt_setmark(t) ((t).irt |= IRT_MARK) +#define irt_clearmark(t) ((t).irt &= ~IRT_MARK) +#define irt_isphi(t) ((t).irt & IRT_ISPHI) +#define irt_setphi(t) ((t).irt |= IRT_ISPHI) +#define irt_clearphi(t) ((t).irt &= ~IRT_ISPHI) + +/* Stored combined IR opcode and type. */ +typedef uint16_t IROpT; + +/* -- IR references ------------------------------------------------------- */ + +/* IR references. */ +typedef uint16_t IRRef1; /* One stored reference. */ +typedef uint32_t IRRef2; /* Two stored references. */ +typedef uint32_t IRRef; /* Used to pass around references. */ + +/* Fixed references. */ +enum { + REF_BIAS = 0x8000, + REF_TRUE = REF_BIAS-3, + REF_FALSE = REF_BIAS-2, + REF_NIL = REF_BIAS-1, /* \--- Constants grow downwards. */ + REF_BASE = REF_BIAS, /* /--- IR grows upwards. */ + REF_FIRST = REF_BIAS+1, + REF_DROP = 0xffff +}; + +/* Note: IRMlit operands must be < REF_BIAS, too! +** This allows for fast and uniform manipulation of all operands +** without looking up the operand mode in lj_ir_mode: +** - CSE calculates the maximum reference of two operands. +** This must work with mixed reference/literal operands, too. +** - DCE marking only checks for operand >= REF_BIAS. +** - LOOP needs to substitute reference operands. +** Constant references and literals must not be modified. +*/ + +#define IRREF2(lo, hi) ((IRRef2)(lo) | ((IRRef2)(hi) << 16)) + +#define irref_isk(ref) ((ref) < REF_BIAS) + +/* Tagged IR references (32 bit). +** +** +-------+-------+---------------+ +** | irt | flags | ref | +** +-------+-------+---------------+ +** +** The tag holds a copy of the IRType and speeds up IR type checks. +*/ +typedef uint32_t TRef; + +#define TREF_REFMASK 0x0000ffff +#define TREF_FRAME 0x00010000 +#define TREF_CONT 0x00020000 + +#define TREF(ref, t) ((TRef)((ref) + ((t)<<24))) + +#define tref_ref(tr) ((IRRef1)(tr)) +#define tref_t(tr) ((IRType)((tr)>>24)) +#define tref_type(tr) ((IRType)(((tr)>>24) & IRT_TYPE)) +#define tref_typerange(tr, first, last) \ + ((((tr)>>24) & IRT_TYPE) - (TRef)(first) <= (TRef)(last-first)) + +#define tref_istype(tr, t) (((tr) & (IRT_TYPE<<24)) == ((t)<<24)) +#define tref_isnil(tr) (tref_istype((tr), IRT_NIL)) +#define tref_isfalse(tr) (tref_istype((tr), IRT_FALSE)) +#define tref_istrue(tr) (tref_istype((tr), IRT_TRUE)) +#define tref_isstr(tr) (tref_istype((tr), IRT_STR)) +#define tref_isfunc(tr) (tref_istype((tr), IRT_FUNC)) +#define tref_iscdata(tr) (tref_istype((tr), IRT_CDATA)) +#define tref_istab(tr) (tref_istype((tr), IRT_TAB)) +#define tref_isudata(tr) (tref_istype((tr), IRT_UDATA)) +#define tref_isnum(tr) (tref_istype((tr), IRT_NUM)) +#define tref_isint(tr) (tref_istype((tr), IRT_INT)) + +#define tref_isbool(tr) (tref_typerange((tr), IRT_FALSE, IRT_TRUE)) +#define tref_ispri(tr) (tref_typerange((tr), IRT_NIL, IRT_TRUE)) +#define tref_istruecond(tr) (!tref_typerange((tr), IRT_NIL, IRT_FALSE)) +#define tref_isinteger(tr) (tref_typerange((tr), IRT_I8, IRT_INT)) +#define tref_isnumber(tr) (tref_typerange((tr), IRT_NUM, IRT_INT)) +#define tref_isnumber_str(tr) (tref_isnumber((tr)) || tref_isstr((tr))) +#define tref_isgcv(tr) (tref_typerange((tr), IRT_STR, IRT_UDATA)) + +#define tref_isk(tr) (irref_isk(tref_ref((tr)))) +#define tref_isk2(tr1, tr2) (irref_isk(tref_ref((tr1) | (tr2)))) + +#define TREF_PRI(t) (TREF(REF_NIL-(t), (t))) +#define TREF_NIL (TREF_PRI(IRT_NIL)) +#define TREF_FALSE (TREF_PRI(IRT_FALSE)) +#define TREF_TRUE (TREF_PRI(IRT_TRUE)) + +/* -- IR format ----------------------------------------------------------- */ + +/* IR instruction format (64 bit). +** +** 16 16 8 8 8 8 +** +-------+-------+---+---+---+---+ +** | op1 | op2 | t | o | r | s | +** +-------+-------+---+---+---+---+ +** | op12/i/gco | ot | prev | (alternative fields in union) +** +---------------+-------+-------+ +** 32 16 16 +** +** prev is only valid prior to register allocation and then reused for r + s. +*/ + +typedef union IRIns { + struct { + LJ_ENDIAN_LOHI( + IRRef1 op1; /* IR operand 1. */ + , IRRef1 op2; /* IR operand 2. */ + ) + IROpT ot; /* IR opcode and type (overlaps t and o). */ + IRRef1 prev; /* Previous ins in same chain (overlaps r and s). */ + }; + struct { + IRRef2 op12; /* IR operand 1 and 2 (overlaps op1 and op2). */ + LJ_ENDIAN_LOHI( + IRType1 t; /* IR type. */ + , IROp1 o; /* IR opcode. */ + ) + LJ_ENDIAN_LOHI( + uint8_t r; /* Register allocation (overlaps prev). */ + , uint8_t s; /* Spill slot allocation (overlaps prev). */ + ) + }; + int32_t i; /* 32 bit signed integer literal (overlaps op12). */ + GCRef gcr; /* GCobj constant (overlaps op12). */ + MRef ptr; /* Pointer constant (overlaps op12). */ +} IRIns; + +#define ir_kgc(ir) check_exp((ir)->o == IR_KGC, gcref((ir)->gcr)) +#define ir_kstr(ir) (gco2str(ir_kgc((ir)))) +#define ir_ktab(ir) (gco2tab(ir_kgc((ir)))) +#define ir_kfunc(ir) (gco2func(ir_kgc((ir)))) +#define ir_kcdata(ir) (gco2cd(ir_kgc((ir)))) +#define ir_knum(ir) check_exp((ir)->o == IR_KNUM, mref((ir)->ptr, cTValue)) +#define ir_kint64(ir) check_exp((ir)->o == IR_KINT64, mref((ir)->ptr,cTValue)) +#define ir_k64(ir) \ + check_exp((ir)->o == IR_KNUM || (ir)->o == IR_KINT64, mref((ir)->ptr,cTValue)) +#define ir_kptr(ir) \ + check_exp((ir)->o == IR_KPTR || (ir)->o == IR_KKPTR, mref((ir)->ptr, void)) + +/* A store or any other op with a non-weak guard has a side-effect. */ +static LJ_AINLINE int ir_sideeff(IRIns *ir) +{ + return (((ir->t.irt | ~IRT_GUARD) & lj_ir_mode[ir->o]) >= IRM_S); +} + +LJ_STATIC_ASSERT((int)IRT_GUARD == (int)IRM_W); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_ircall.h b/src/3rd party/luajit-2.0/src/lj_ircall.h new file mode 100644 index 00000000000..893dac2f81c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_ircall.h @@ -0,0 +1,277 @@ +/* +** IR CALL* instruction definitions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_IRCALL_H +#define _LJ_IRCALL_H + +#include "lj_obj.h" +#include "lj_ir.h" +#include "lj_jit.h" + +/* C call info for CALL* instructions. */ +typedef struct CCallInfo { + ASMFunction func; /* Function pointer. */ + uint32_t flags; /* Number of arguments and flags. */ +} CCallInfo; + +#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* Extract # of args. */ +#define CCI_NARGS_MAX 32 /* Max. # of args. */ + +#define CCI_OTSHIFT 16 +#define CCI_OPTYPE(ci) ((ci)->flags >> CCI_OTSHIFT) /* Get op/type. */ +#define CCI_OPSHIFT 24 +#define CCI_OP(ci) ((ci)->flags >> CCI_OPSHIFT) /* Get op. */ + +#define CCI_CALL_N (IR_CALLN << CCI_OPSHIFT) +#define CCI_CALL_L (IR_CALLL << CCI_OPSHIFT) +#define CCI_CALL_S (IR_CALLS << CCI_OPSHIFT) +#define CCI_CALL_FN (CCI_CALL_N|CCI_CC_FASTCALL) +#define CCI_CALL_FL (CCI_CALL_L|CCI_CC_FASTCALL) +#define CCI_CALL_FS (CCI_CALL_S|CCI_CC_FASTCALL) + +/* C call info flags. */ +#define CCI_L 0x0100 /* Implicit L arg. */ +#define CCI_CASTU64 0x0200 /* Cast u64 result to number. */ +#define CCI_NOFPRCLOBBER 0x0400 /* Does not clobber any FPRs. */ +#define CCI_VARARG 0x0800 /* Vararg function. */ + +#define CCI_CC_MASK 0x3000 /* Calling convention mask. */ +#define CCI_CC_SHIFT 12 +/* ORDER CC */ +#define CCI_CC_CDECL 0x0000 /* Default cdecl calling convention. */ +#define CCI_CC_THISCALL 0x1000 /* Thiscall calling convention. */ +#define CCI_CC_FASTCALL 0x2000 /* Fastcall calling convention. */ +#define CCI_CC_STDCALL 0x3000 /* Stdcall calling convention. */ + +/* Helpers for conditional function definitions. */ +#define IRCALLCOND_ANY(x) x + +#if LJ_TARGET_X86ORX64 +#define IRCALLCOND_FPMATH(x) NULL +#else +#define IRCALLCOND_FPMATH(x) x +#endif + +#if LJ_SOFTFP +#define IRCALLCOND_SOFTFP(x) x +#if LJ_HASFFI +#define IRCALLCOND_SOFTFP_FFI(x) x +#else +#define IRCALLCOND_SOFTFP_FFI(x) NULL +#endif +#else +#define IRCALLCOND_SOFTFP(x) NULL +#define IRCALLCOND_SOFTFP_FFI(x) NULL +#endif + +#define LJ_NEED_FP64 (LJ_TARGET_ARM || LJ_TARGET_PPC || LJ_TARGET_MIPS) + +#if LJ_HASFFI && (LJ_SOFTFP || LJ_NEED_FP64) +#define IRCALLCOND_FP64_FFI(x) x +#else +#define IRCALLCOND_FP64_FFI(x) NULL +#endif + +#if LJ_HASFFI +#define IRCALLCOND_FFI(x) x +#if LJ_32 +#define IRCALLCOND_FFI32(x) x +#else +#define IRCALLCOND_FFI32(x) NULL +#endif +#else +#define IRCALLCOND_FFI(x) NULL +#define IRCALLCOND_FFI32(x) NULL +#endif + +#if LJ_TARGET_X86 +#define CCI_RANDFPR 0 /* Clang on OSX/x86 is overzealous. */ +#else +#define CCI_RANDFPR CCI_NOFPRCLOBBER +#endif + +#if LJ_SOFTFP +#define ARG1_FP 2 /* Treat as 2 32 bit arguments. */ +#else +#define ARG1_FP 1 +#endif + +#if LJ_32 +#define ARG2_64 4 /* Treat as 4 32 bit arguments. */ +#else +#define ARG2_64 2 +#endif + +/* Function definitions for CALL* instructions. */ +#define IRCALLDEF(_) \ + _(ANY, lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \ + _(ANY, lj_str_new, 3, S, STR, CCI_L) \ + _(ANY, lj_strscan_num, 2, FN, INT, 0) \ + _(ANY, lj_str_fromint, 2, FN, STR, CCI_L) \ + _(ANY, lj_str_fromnum, 2, FN, STR, CCI_L) \ + _(ANY, lj_tab_new1, 2, FS, TAB, CCI_L) \ + _(ANY, lj_tab_dup, 2, FS, TAB, CCI_L) \ + _(ANY, lj_tab_newkey, 3, S, P32, CCI_L) \ + _(ANY, lj_tab_len, 1, FL, INT, 0) \ + _(ANY, lj_gc_step_jit, 2, FS, NIL, CCI_L) \ + _(ANY, lj_gc_barrieruv, 2, FS, NIL, 0) \ + _(ANY, lj_mem_newgco, 2, FS, P32, CCI_L) \ + _(ANY, lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_RANDFPR)\ + _(ANY, lj_vm_modi, 2, FN, INT, 0) \ + _(ANY, sinh, ARG1_FP, N, NUM, 0) \ + _(ANY, cosh, ARG1_FP, N, NUM, 0) \ + _(ANY, tanh, ARG1_FP, N, NUM, 0) \ + _(ANY, fputc, 2, S, INT, 0) \ + _(ANY, fwrite, 4, S, INT, 0) \ + _(ANY, fflush, 1, S, INT, 0) \ + /* ORDER FPM */ \ + _(FPMATH, lj_vm_floor, ARG1_FP, N, NUM, 0) \ + _(FPMATH, lj_vm_ceil, ARG1_FP, N, NUM, 0) \ + _(FPMATH, lj_vm_trunc, ARG1_FP, N, NUM, 0) \ + _(FPMATH, sqrt, ARG1_FP, N, NUM, 0) \ + _(FPMATH, exp, ARG1_FP, N, NUM, 0) \ + _(FPMATH, lj_vm_exp2, ARG1_FP, N, NUM, 0) \ + _(FPMATH, log, ARG1_FP, N, NUM, 0) \ + _(FPMATH, lj_vm_log2, ARG1_FP, N, NUM, 0) \ + _(FPMATH, log10, ARG1_FP, N, NUM, 0) \ + _(FPMATH, sin, ARG1_FP, N, NUM, 0) \ + _(FPMATH, cos, ARG1_FP, N, NUM, 0) \ + _(FPMATH, tan, ARG1_FP, N, NUM, 0) \ + _(FPMATH, lj_vm_powi, ARG1_FP+1, N, NUM, 0) \ + _(FPMATH, pow, ARG1_FP*2, N, NUM, 0) \ + _(FPMATH, atan2, ARG1_FP*2, N, NUM, 0) \ + _(FPMATH, ldexp, ARG1_FP+1, N, NUM, 0) \ + _(SOFTFP, lj_vm_tobit, 2, N, INT, 0) \ + _(SOFTFP, softfp_add, 4, N, NUM, 0) \ + _(SOFTFP, softfp_sub, 4, N, NUM, 0) \ + _(SOFTFP, softfp_mul, 4, N, NUM, 0) \ + _(SOFTFP, softfp_div, 4, N, NUM, 0) \ + _(SOFTFP, softfp_cmp, 4, N, NIL, 0) \ + _(SOFTFP, softfp_i2d, 1, N, NUM, 0) \ + _(SOFTFP, softfp_d2i, 2, N, INT, 0) \ + _(SOFTFP_FFI, softfp_ui2d, 1, N, NUM, 0) \ + _(SOFTFP_FFI, softfp_f2d, 1, N, NUM, 0) \ + _(SOFTFP_FFI, softfp_d2ui, 2, N, INT, 0) \ + _(SOFTFP_FFI, softfp_d2f, 2, N, FLOAT, 0) \ + _(SOFTFP_FFI, softfp_i2f, 1, N, FLOAT, 0) \ + _(SOFTFP_FFI, softfp_ui2f, 1, N, FLOAT, 0) \ + _(SOFTFP_FFI, softfp_f2i, 1, N, INT, 0) \ + _(SOFTFP_FFI, softfp_f2ui, 1, N, INT, 0) \ + _(FP64_FFI, fp64_l2d, 2, N, NUM, 0) \ + _(FP64_FFI, fp64_ul2d, 2, N, NUM, 0) \ + _(FP64_FFI, fp64_l2f, 2, N, FLOAT, 0) \ + _(FP64_FFI, fp64_ul2f, 2, N, FLOAT, 0) \ + _(FP64_FFI, fp64_d2l, ARG1_FP, N, I64, 0) \ + _(FP64_FFI, fp64_d2ul, ARG1_FP, N, U64, 0) \ + _(FP64_FFI, fp64_f2l, 1, N, I64, 0) \ + _(FP64_FFI, fp64_f2ul, 1, N, U64, 0) \ + _(FFI, lj_carith_divi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_divu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_modi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_modu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_powi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_powu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ + _(FFI, lj_cdata_setfin, 2, FN, P32, CCI_L) \ + _(FFI, strlen, 1, L, INTP, 0) \ + _(FFI, memcpy, 3, S, PTR, 0) \ + _(FFI, memset, 3, S, PTR, 0) \ + _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_mul64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) + \ + /* End of list. */ + +typedef enum { +#define IRCALLENUM(cond, name, nargs, kind, type, flags) IRCALL_##name, +IRCALLDEF(IRCALLENUM) +#undef IRCALLENUM + IRCALL__MAX +} IRCallID; + +LJ_FUNC TRef lj_ir_call(jit_State *J, IRCallID id, ...); + +LJ_DATA const CCallInfo lj_ir_callinfo[IRCALL__MAX+1]; + +/* Soft-float declarations. */ +#if LJ_SOFTFP +#if LJ_TARGET_ARM +#define softfp_add __aeabi_dadd +#define softfp_sub __aeabi_dsub +#define softfp_mul __aeabi_dmul +#define softfp_div __aeabi_ddiv +#define softfp_cmp __aeabi_cdcmple +#define softfp_i2d __aeabi_i2d +#define softfp_d2i __aeabi_d2iz +#define softfp_ui2d __aeabi_ui2d +#define softfp_f2d __aeabi_f2d +#define softfp_d2ui __aeabi_d2uiz +#define softfp_d2f __aeabi_d2f +#define softfp_i2f __aeabi_i2f +#define softfp_ui2f __aeabi_ui2f +#define softfp_f2i __aeabi_f2iz +#define softfp_f2ui __aeabi_f2uiz +#define fp64_l2d __aeabi_l2d +#define fp64_ul2d __aeabi_ul2d +#define fp64_l2f __aeabi_l2f +#define fp64_ul2f __aeabi_ul2f +#if LJ_TARGET_IOS +#define fp64_d2l __fixdfdi +#define fp64_d2ul __fixunsdfdi +#define fp64_f2l __fixsfdi +#define fp64_f2ul __fixunssfdi +#else +#define fp64_d2l __aeabi_d2lz +#define fp64_d2ul __aeabi_d2ulz +#define fp64_f2l __aeabi_f2lz +#define fp64_f2ul __aeabi_f2ulz +#endif +#else +#error "Missing soft-float definitions for target architecture" +#endif +extern double softfp_add(double a, double b); +extern double softfp_sub(double a, double b); +extern double softfp_mul(double a, double b); +extern double softfp_div(double a, double b); +extern void softfp_cmp(double a, double b); +extern double softfp_i2d(int32_t a); +extern int32_t softfp_d2i(double a); +#if LJ_HASFFI +extern double softfp_ui2d(uint32_t a); +extern double softfp_f2d(float a); +extern uint32_t softfp_d2ui(double a); +extern float softfp_d2f(double a); +extern float softfp_i2f(int32_t a); +extern float softfp_ui2f(uint32_t a); +extern int32_t softfp_f2i(float a); +extern uint32_t softfp_f2ui(float a); +#endif +#endif + +#if LJ_HASFFI && LJ_NEED_FP64 && !(LJ_TARGET_ARM && LJ_SOFTFP) +#ifdef __GNUC__ +#define fp64_l2d __floatdidf +#define fp64_ul2d __floatundidf +#define fp64_l2f __floatdisf +#define fp64_ul2f __floatundisf +#define fp64_d2l __fixdfdi +#define fp64_d2ul __fixunsdfdi +#define fp64_f2l __fixsfdi +#define fp64_f2ul __fixunssfdi +#else +#error "Missing fp64 helper definitions for this compiler" +#endif +#endif + +#if LJ_HASFFI && (LJ_SOFTFP || LJ_NEED_FP64) +extern double fp64_l2d(int64_t a); +extern double fp64_ul2d(uint64_t a); +extern float fp64_l2f(int64_t a); +extern float fp64_ul2f(uint64_t a); +extern int64_t fp64_d2l(double a); +extern uint64_t fp64_d2ul(double a); +extern int64_t fp64_f2l(float a); +extern uint64_t fp64_f2ul(float a); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_iropt.h b/src/3rd party/luajit-2.0/src/lj_iropt.h new file mode 100644 index 00000000000..4e424e70045 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_iropt.h @@ -0,0 +1,161 @@ +/* +** Common header for IR emitter and optimizations. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_IROPT_H +#define _LJ_IROPT_H + +#include + +#include "lj_obj.h" +#include "lj_jit.h" + +#if LJ_HASJIT +/* IR emitter. */ +LJ_FUNC void LJ_FASTCALL lj_ir_growtop(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_ir_emit(jit_State *J); + +/* Save current IR in J->fold.ins, but do not emit it (yet). */ +static LJ_AINLINE void lj_ir_set_(jit_State *J, uint16_t ot, IRRef1 a, IRRef1 b) +{ + J->fold.ins.ot = ot; J->fold.ins.op1 = a; J->fold.ins.op2 = b; +} + +#define lj_ir_set(J, ot, a, b) \ + lj_ir_set_(J, (uint16_t)(ot), (IRRef1)(a), (IRRef1)(b)) + +/* Get ref of next IR instruction and optionally grow IR. +** Note: this may invalidate all IRIns*! +*/ +static LJ_AINLINE IRRef lj_ir_nextins(jit_State *J) +{ + IRRef ref = J->cur.nins; + if (LJ_UNLIKELY(ref >= J->irtoplim)) lj_ir_growtop(J); + J->cur.nins = ref + 1; + return ref; +} + +/* Interning of constants. */ +LJ_FUNC TRef LJ_FASTCALL lj_ir_kint(jit_State *J, int32_t k); +LJ_FUNC void lj_ir_k64_freeall(jit_State *J); +LJ_FUNC TRef lj_ir_k64(jit_State *J, IROp op, cTValue *tv); +LJ_FUNC cTValue *lj_ir_k64_find(jit_State *J, uint64_t u64); +LJ_FUNC TRef lj_ir_knum_u64(jit_State *J, uint64_t u64); +LJ_FUNC TRef lj_ir_knumint(jit_State *J, lua_Number n); +LJ_FUNC TRef lj_ir_kint64(jit_State *J, uint64_t u64); +LJ_FUNC TRef lj_ir_kgc(jit_State *J, GCobj *o, IRType t); +LJ_FUNC TRef lj_ir_kptr_(jit_State *J, IROp op, void *ptr); +LJ_FUNC TRef lj_ir_knull(jit_State *J, IRType t); +LJ_FUNC TRef lj_ir_kslot(jit_State *J, TRef key, IRRef slot); + +#if LJ_64 +#define lj_ir_kintp(J, k) lj_ir_kint64(J, (uint64_t)(k)) +#else +#define lj_ir_kintp(J, k) lj_ir_kint(J, (int32_t)(k)) +#endif + +static LJ_AINLINE TRef lj_ir_knum(jit_State *J, lua_Number n) +{ + TValue tv; + tv.n = n; + return lj_ir_knum_u64(J, tv.u64); +} + +#define lj_ir_kstr(J, str) lj_ir_kgc(J, obj2gco((str)), IRT_STR) +#define lj_ir_ktab(J, tab) lj_ir_kgc(J, obj2gco((tab)), IRT_TAB) +#define lj_ir_kfunc(J, func) lj_ir_kgc(J, obj2gco((func)), IRT_FUNC) +#define lj_ir_kptr(J, ptr) lj_ir_kptr_(J, IR_KPTR, (ptr)) +#define lj_ir_kkptr(J, ptr) lj_ir_kptr_(J, IR_KKPTR, (ptr)) + +/* Special FP constants. */ +#define lj_ir_knum_zero(J) lj_ir_knum_u64(J, U64x(00000000,00000000)) +#define lj_ir_knum_one(J) lj_ir_knum_u64(J, U64x(3ff00000,00000000)) +#define lj_ir_knum_tobit(J) lj_ir_knum_u64(J, U64x(43380000,00000000)) + +/* Special 128 bit SIMD constants. */ +#define lj_ir_knum_abs(J) lj_ir_k64(J, IR_KNUM, LJ_KSIMD(J, LJ_KSIMD_ABS)) +#define lj_ir_knum_neg(J) lj_ir_k64(J, IR_KNUM, LJ_KSIMD(J, LJ_KSIMD_NEG)) + +/* Access to constants. */ +LJ_FUNC void lj_ir_kvalue(lua_State *L, TValue *tv, const IRIns *ir); + +/* Convert IR operand types. */ +LJ_FUNC TRef LJ_FASTCALL lj_ir_tonumber(jit_State *J, TRef tr); +LJ_FUNC TRef LJ_FASTCALL lj_ir_tonum(jit_State *J, TRef tr); +LJ_FUNC TRef LJ_FASTCALL lj_ir_tostr(jit_State *J, TRef tr); + +/* Miscellaneous IR ops. */ +LJ_FUNC int lj_ir_numcmp(lua_Number a, lua_Number b, IROp op); +LJ_FUNC int lj_ir_strcmp(GCstr *a, GCstr *b, IROp op); +LJ_FUNC void lj_ir_rollback(jit_State *J, IRRef ref); + +/* Emit IR instructions with on-the-fly optimizations. */ +LJ_FUNC TRef LJ_FASTCALL lj_opt_fold(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_cse(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_cselim(jit_State *J, IRRef lim); + +/* Special return values for the fold functions. */ +enum { + NEXTFOLD, /* Couldn't fold, pass on. */ + RETRYFOLD, /* Retry fold with modified fins. */ + KINTFOLD, /* Return ref for int constant in fins->i. */ + FAILFOLD, /* Guard would always fail. */ + DROPFOLD, /* Guard eliminated. */ + MAX_FOLD +}; + +#define INTFOLD(k) ((J->fold.ins.i = (k)), (TRef)KINTFOLD) +#define INT64FOLD(k) (lj_ir_kint64(J, (k))) +#define CONDFOLD(cond) ((TRef)FAILFOLD + (TRef)(cond)) +#define LEFTFOLD (J->fold.ins.op1) +#define RIGHTFOLD (J->fold.ins.op2) +#define CSEFOLD (lj_opt_cse(J)) +#define EMITFOLD (lj_ir_emit(J)) + +/* Load/store forwarding. */ +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_aload(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_hload(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_uload(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_fload(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_xload(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_tab_len(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_hrefk(jit_State *J); +LJ_FUNC int LJ_FASTCALL lj_opt_fwd_href_nokey(jit_State *J); +LJ_FUNC int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim); +LJ_FUNC int lj_opt_fwd_wasnonnil(jit_State *J, IROpT loadop, IRRef xref); + +/* Dead-store elimination. */ +LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_ahstore(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_ustore(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_fstore(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_xstore(jit_State *J); + +/* Narrowing. */ +LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_convert(jit_State *J); +LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_index(jit_State *J, TRef key); +LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_toint(jit_State *J, TRef tr); +LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_tobit(jit_State *J, TRef tr); +#if LJ_HASFFI +LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_cindex(jit_State *J, TRef key); +#endif +LJ_FUNC TRef lj_opt_narrow_arith(jit_State *J, TRef rb, TRef rc, + TValue *vb, TValue *vc, IROp op); +LJ_FUNC TRef lj_opt_narrow_unm(jit_State *J, TRef rc, TValue *vc); +LJ_FUNC TRef lj_opt_narrow_mod(jit_State *J, TRef rb, TRef rc, TValue *vc); +LJ_FUNC TRef lj_opt_narrow_pow(jit_State *J, TRef rb, TRef rc, TValue *vc); +LJ_FUNC IRType lj_opt_narrow_forl(jit_State *J, cTValue *forbase); + +/* Optimization passes. */ +LJ_FUNC void lj_opt_dce(jit_State *J); +LJ_FUNC int lj_opt_loop(jit_State *J); +#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) +LJ_FUNC void lj_opt_split(jit_State *J); +#else +#define lj_opt_split(J) UNUSED(J) +#endif +LJ_FUNC void lj_opt_sink(jit_State *J); + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_jit.h b/src/3rd party/luajit-2.0/src/lj_jit.h new file mode 100644 index 00000000000..eb7654770bc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_jit.h @@ -0,0 +1,417 @@ +/* +** Common definitions for the JIT compiler. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_JIT_H +#define _LJ_JIT_H + +#include "lj_obj.h" +#include "lj_ir.h" + +/* JIT engine flags. */ +#define JIT_F_ON 0x00000001 + +/* CPU-specific JIT engine flags. */ +#if LJ_TARGET_X86ORX64 +#define JIT_F_CMOV 0x00000010 +#define JIT_F_SSE2 0x00000020 +#define JIT_F_SSE3 0x00000040 +#define JIT_F_SSE4_1 0x00000080 +#define JIT_F_P4 0x00000100 +#define JIT_F_PREFER_IMUL 0x00000200 +#define JIT_F_SPLIT_XMM 0x00000400 +#define JIT_F_LEA_AGU 0x00000800 + +/* Names for the CPU-specific flags. Must match the order above. */ +#define JIT_F_CPU_FIRST JIT_F_CMOV +#define JIT_F_CPUSTRING "\4CMOV\4SSE2\4SSE3\6SSE4.1\2P4\3AMD\2K8\4ATOM" +#elif LJ_TARGET_ARM +#define JIT_F_ARMV6_ 0x00000010 +#define JIT_F_ARMV6T2_ 0x00000020 +#define JIT_F_ARMV7 0x00000040 +#define JIT_F_VFPV2 0x00000080 +#define JIT_F_VFPV3 0x00000100 + +#define JIT_F_ARMV6 (JIT_F_ARMV6_|JIT_F_ARMV6T2_|JIT_F_ARMV7) +#define JIT_F_ARMV6T2 (JIT_F_ARMV6T2_|JIT_F_ARMV7) +#define JIT_F_VFP (JIT_F_VFPV2|JIT_F_VFPV3) + +/* Names for the CPU-specific flags. Must match the order above. */ +#define JIT_F_CPU_FIRST JIT_F_ARMV6_ +#define JIT_F_CPUSTRING "\5ARMv6\7ARMv6T2\5ARMv7\5VFPv2\5VFPv3" +#elif LJ_TARGET_PPC +#define JIT_F_SQRT 0x00000010 +#define JIT_F_ROUND 0x00000020 + +/* Names for the CPU-specific flags. Must match the order above. */ +#define JIT_F_CPU_FIRST JIT_F_SQRT +#define JIT_F_CPUSTRING "\4SQRT\5ROUND" +#elif LJ_TARGET_MIPS +#define JIT_F_MIPS32R2 0x00000010 + +/* Names for the CPU-specific flags. Must match the order above. */ +#define JIT_F_CPU_FIRST JIT_F_MIPS32R2 +#define JIT_F_CPUSTRING "\010MIPS32R2" +#else +#define JIT_F_CPU_FIRST 0 +#define JIT_F_CPUSTRING "" +#endif + +/* Optimization flags. */ +#define JIT_F_OPT_MASK 0x0fff0000 + +#define JIT_F_OPT_FOLD 0x00010000 +#define JIT_F_OPT_CSE 0x00020000 +#define JIT_F_OPT_DCE 0x00040000 +#define JIT_F_OPT_FWD 0x00080000 +#define JIT_F_OPT_DSE 0x00100000 +#define JIT_F_OPT_NARROW 0x00200000 +#define JIT_F_OPT_LOOP 0x00400000 +#define JIT_F_OPT_ABC 0x00800000 +#define JIT_F_OPT_SINK 0x01000000 +#define JIT_F_OPT_FUSE 0x02000000 + +/* Optimizations names for -O. Must match the order above. */ +#define JIT_F_OPT_FIRST JIT_F_OPT_FOLD +#define JIT_F_OPTSTRING \ + "\4fold\3cse\3dce\3fwd\3dse\6narrow\4loop\3abc\4sink\4fuse" + +/* Optimization levels set a fixed combination of flags. */ +#define JIT_F_OPT_0 0 +#define JIT_F_OPT_1 (JIT_F_OPT_FOLD|JIT_F_OPT_CSE|JIT_F_OPT_DCE) +#define JIT_F_OPT_2 (JIT_F_OPT_1|JIT_F_OPT_NARROW|JIT_F_OPT_LOOP) +#define JIT_F_OPT_3 (JIT_F_OPT_2|\ + JIT_F_OPT_FWD|JIT_F_OPT_DSE|JIT_F_OPT_ABC|JIT_F_OPT_SINK|JIT_F_OPT_FUSE) +#define JIT_F_OPT_DEFAULT JIT_F_OPT_3 + +#if LJ_TARGET_WINDOWS || LJ_64 +/* See: http://blogs.msdn.com/oldnewthing/archive/2003/10/08/55239.aspx */ +#define JIT_P_sizemcode_DEFAULT 64 +#else +/* Could go as low as 4K, but the mmap() overhead would be rather high. */ +#define JIT_P_sizemcode_DEFAULT 32 +#endif + +/* Optimization parameters and their defaults. Length is a char in octal! */ +#define JIT_PARAMDEF(_) \ + _(\010, maxtrace, 1000) /* Max. # of traces in cache. */ \ + _(\011, maxrecord, 4000) /* Max. # of recorded IR instructions. */ \ + _(\012, maxirconst, 500) /* Max. # of IR constants of a trace. */ \ + _(\007, maxside, 100) /* Max. # of side traces of a root trace. */ \ + _(\007, maxsnap, 500) /* Max. # of snapshots for a trace. */ \ + \ + _(\007, hotloop, 56) /* # of iter. to detect a hot loop/call. */ \ + _(\007, hotexit, 10) /* # of taken exits to start a side trace. */ \ + _(\007, tryside, 4) /* # of attempts to compile a side trace. */ \ + \ + _(\012, instunroll, 4) /* Max. unroll for instable loops. */ \ + _(\012, loopunroll, 15) /* Max. unroll for loop ops in side traces. */ \ + _(\012, callunroll, 3) /* Max. unroll for recursive calls. */ \ + _(\011, recunroll, 2) /* Min. unroll for true recursion. */ \ + \ + /* Size of each machine code area (in KBytes). */ \ + _(\011, sizemcode, JIT_P_sizemcode_DEFAULT) \ + /* Max. total size of all machine code areas (in KBytes). */ \ + _(\010, maxmcode, 512) \ + /* End of list. */ + +enum { +#define JIT_PARAMENUM(len, name, value) JIT_P_##name, +JIT_PARAMDEF(JIT_PARAMENUM) +#undef JIT_PARAMENUM + JIT_P__MAX +}; + +#define JIT_PARAMSTR(len, name, value) #len #name +#define JIT_P_STRING JIT_PARAMDEF(JIT_PARAMSTR) + +/* Trace compiler state. */ +typedef enum { + LJ_TRACE_IDLE, /* Trace compiler idle. */ + LJ_TRACE_ACTIVE = 0x10, + LJ_TRACE_RECORD, /* Bytecode recording active. */ + LJ_TRACE_START, /* New trace started. */ + LJ_TRACE_END, /* End of trace. */ + LJ_TRACE_ASM, /* Assemble trace. */ + LJ_TRACE_ERR /* Trace aborted with error. */ +} TraceState; + +/* Post-processing action. */ +typedef enum { + LJ_POST_NONE, /* No action. */ + LJ_POST_FIXCOMP, /* Fixup comparison and emit pending guard. */ + LJ_POST_FIXGUARD, /* Fixup and emit pending guard. */ + LJ_POST_FIXGUARDSNAP, /* Fixup and emit pending guard and snapshot. */ + LJ_POST_FIXBOOL, /* Fixup boolean result. */ + LJ_POST_FIXCONST, /* Fixup constant results. */ + LJ_POST_FFRETRY /* Suppress recording of retried fast functions. */ +} PostProc; + +/* Machine code type. */ +#if LJ_TARGET_X86ORX64 +typedef uint8_t MCode; +#else +typedef uint32_t MCode; +#endif + +/* Stack snapshot header. */ +typedef struct SnapShot { + uint16_t mapofs; /* Offset into snapshot map. */ + IRRef1 ref; /* First IR ref for this snapshot. */ + uint8_t nslots; /* Number of valid slots. */ + uint8_t topslot; /* Maximum frame extent. */ + uint8_t nent; /* Number of compressed entries. */ + uint8_t count; /* Count of taken exits for this snapshot. */ +} SnapShot; + +#define SNAPCOUNT_DONE 255 /* Already compiled and linked a side trace. */ + +/* Compressed snapshot entry. */ +typedef uint32_t SnapEntry; + +#define SNAP_FRAME 0x010000 /* Frame slot. */ +#define SNAP_CONT 0x020000 /* Continuation slot. */ +#define SNAP_NORESTORE 0x040000 /* No need to restore slot. */ +#define SNAP_SOFTFPNUM 0x080000 /* Soft-float number. */ +LJ_STATIC_ASSERT(SNAP_FRAME == TREF_FRAME); +LJ_STATIC_ASSERT(SNAP_CONT == TREF_CONT); + +#define SNAP(slot, flags, ref) (((SnapEntry)(slot) << 24) + (flags) + (ref)) +#define SNAP_TR(slot, tr) \ + (((SnapEntry)(slot) << 24) + ((tr) & (TREF_CONT|TREF_FRAME|TREF_REFMASK))) +#define SNAP_MKPC(pc) ((SnapEntry)u32ptr(pc)) +#define SNAP_MKFTSZ(ftsz) ((SnapEntry)(ftsz)) +#define snap_ref(sn) ((sn) & 0xffff) +#define snap_slot(sn) ((BCReg)((sn) >> 24)) +#define snap_isframe(sn) ((sn) & SNAP_FRAME) +#define snap_pc(sn) ((const BCIns *)(uintptr_t)(sn)) +#define snap_setref(sn, ref) (((sn) & (0xffff0000&~SNAP_NORESTORE)) | (ref)) + +/* Snapshot and exit numbers. */ +typedef uint32_t SnapNo; +typedef uint32_t ExitNo; + +/* Trace number. */ +typedef uint32_t TraceNo; /* Used to pass around trace numbers. */ +typedef uint16_t TraceNo1; /* Stored trace number. */ + +/* Type of link. ORDER LJ_TRLINK */ +typedef enum { + LJ_TRLINK_NONE, /* Incomplete trace. No link, yet. */ + LJ_TRLINK_ROOT, /* Link to other root trace. */ + LJ_TRLINK_LOOP, /* Loop to same trace. */ + LJ_TRLINK_TAILREC, /* Tail-recursion. */ + LJ_TRLINK_UPREC, /* Up-recursion. */ + LJ_TRLINK_DOWNREC, /* Down-recursion. */ + LJ_TRLINK_INTERP, /* Fallback to interpreter. */ + LJ_TRLINK_RETURN /* Return to interpreter. */ +} TraceLink; + +/* Trace object. */ +typedef struct GCtrace { + GCHeader; + uint8_t topslot; /* Top stack slot already checked to be allocated. */ + uint8_t linktype; /* Type of link. */ + IRRef nins; /* Next IR instruction. Biased with REF_BIAS. */ + GCRef gclist; + IRIns *ir; /* IR instructions/constants. Biased with REF_BIAS. */ + IRRef nk; /* Lowest IR constant. Biased with REF_BIAS. */ + uint16_t nsnap; /* Number of snapshots. */ + uint16_t nsnapmap; /* Number of snapshot map elements. */ + SnapShot *snap; /* Snapshot array. */ + SnapEntry *snapmap; /* Snapshot map. */ + GCRef startpt; /* Starting prototype. */ + MRef startpc; /* Bytecode PC of starting instruction. */ + BCIns startins; /* Original bytecode of starting instruction. */ + MSize szmcode; /* Size of machine code. */ + MCode *mcode; /* Start of machine code. */ + MSize mcloop; /* Offset of loop start in machine code. */ + uint16_t nchild; /* Number of child traces (root trace only). */ + uint16_t spadjust; /* Stack pointer adjustment (offset in bytes). */ + TraceNo1 traceno; /* Trace number. */ + TraceNo1 link; /* Linked trace (or self for loops). */ + TraceNo1 root; /* Root trace of side trace (or 0 for root traces). */ + TraceNo1 nextroot; /* Next root trace for same prototype. */ + TraceNo1 nextside; /* Next side trace of same root trace. */ + uint8_t sinktags; /* Trace has SINK tags. */ + uint8_t unused1; +#ifdef LUAJIT_USE_GDBJIT + void *gdbjit_entry; /* GDB JIT entry. */ +#endif +} GCtrace; + +#define gco2trace(o) check_exp((o)->gch.gct == ~LJ_TTRACE, (GCtrace *)(o)) +#define traceref(J, n) \ + check_exp((n)>0 && (MSize)(n)sizetrace, (GCtrace *)gcref(J->trace[(n)])) + +LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCtrace, gclist)); + +static LJ_AINLINE MSize snap_nextofs(GCtrace *T, SnapShot *snap) +{ + if (snap+1 == &T->snap[T->nsnap]) + return T->nsnapmap; + else + return (snap+1)->mapofs; +} + +/* Round-robin penalty cache for bytecodes leading to aborted traces. */ +typedef struct HotPenalty { + MRef pc; /* Starting bytecode PC. */ + uint16_t val; /* Penalty value, i.e. hotcount start. */ + uint16_t reason; /* Abort reason (really TraceErr). */ +} HotPenalty; + +#define PENALTY_SLOTS 64 /* Penalty cache slot. Must be a power of 2. */ +#define PENALTY_MIN (36*2) /* Minimum penalty value. */ +#define PENALTY_MAX 60000 /* Maximum penalty value. */ +#define PENALTY_RNDBITS 4 /* # of random bits to add to penalty value. */ + +/* Round-robin backpropagation cache for narrowing conversions. */ +typedef struct BPropEntry { + IRRef1 key; /* Key: original reference. */ + IRRef1 val; /* Value: reference after conversion. */ + IRRef mode; /* Mode for this entry (currently IRCONV_*). */ +} BPropEntry; + +/* Number of slots for the backpropagation cache. Must be a power of 2. */ +#define BPROP_SLOTS 16 + +/* Scalar evolution analysis cache. */ +typedef struct ScEvEntry { + MRef pc; /* Bytecode PC of FORI. */ + IRRef1 idx; /* Index reference. */ + IRRef1 start; /* Constant start reference. */ + IRRef1 stop; /* Constant stop reference. */ + IRRef1 step; /* Constant step reference. */ + IRType1 t; /* Scalar type. */ + uint8_t dir; /* Direction. 1: +, 0: -. */ +} ScEvEntry; + +/* 128 bit SIMD constants. */ +enum { + LJ_KSIMD_ABS, + LJ_KSIMD_NEG, + LJ_KSIMD__MAX +}; + +/* Get 16 byte aligned pointer to SIMD constant. */ +#define LJ_KSIMD(J, n) \ + ((TValue *)(((intptr_t)&J->ksimd[2*(n)] + 15) & ~(intptr_t)15)) + +/* Set/reset flag to activate the SPLIT pass for the current trace. */ +#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) +#define lj_needsplit(J) (J->needsplit = 1) +#define lj_resetsplit(J) (J->needsplit = 0) +#else +#define lj_needsplit(J) UNUSED(J) +#define lj_resetsplit(J) UNUSED(J) +#endif + +/* Fold state is used to fold instructions on-the-fly. */ +typedef struct FoldState { + IRIns ins; /* Currently emitted instruction. */ + IRIns left; /* Instruction referenced by left operand. */ + IRIns right; /* Instruction referenced by right operand. */ +} FoldState; + +/* JIT compiler state. */ +typedef struct jit_State { + GCtrace cur; /* Current trace. */ + + lua_State *L; /* Current Lua state. */ + const BCIns *pc; /* Current PC. */ + GCfunc *fn; /* Current function. */ + GCproto *pt; /* Current prototype. */ + TRef *base; /* Current frame base, points into J->slots. */ + + uint32_t flags; /* JIT engine flags. */ + BCReg maxslot; /* Relative to baseslot. */ + BCReg baseslot; /* Current frame base, offset into J->slots. */ + + uint8_t mergesnap; /* Allowed to merge with next snapshot. */ + uint8_t needsnap; /* Need snapshot before recording next bytecode. */ + IRType1 guardemit; /* Accumulated IRT_GUARD for emitted instructions. */ + uint8_t bcskip; /* Number of bytecode instructions to skip. */ + + FoldState fold; /* Fold state. */ + + const BCIns *bc_min; /* Start of allowed bytecode range for root trace. */ + MSize bc_extent; /* Extent of the range. */ + + TraceState state; /* Trace compiler state. */ + + int32_t instunroll; /* Unroll counter for instable loops. */ + int32_t loopunroll; /* Unroll counter for loop ops in side traces. */ + int32_t tailcalled; /* Number of successive tailcalls. */ + int32_t framedepth; /* Current frame depth. */ + int32_t retdepth; /* Return frame depth (count of RETF). */ + + MRef k64; /* Pointer to chained array of 64 bit constants. */ + TValue ksimd[LJ_KSIMD__MAX*2+1]; /* 16 byte aligned SIMD constants. */ + + IRIns *irbuf; /* Temp. IR instruction buffer. Biased with REF_BIAS. */ + IRRef irtoplim; /* Upper limit of instuction buffer (biased). */ + IRRef irbotlim; /* Lower limit of instuction buffer (biased). */ + IRRef loopref; /* Last loop reference or ref of final LOOP (or 0). */ + + MSize sizesnap; /* Size of temp. snapshot buffer. */ + SnapShot *snapbuf; /* Temp. snapshot buffer. */ + SnapEntry *snapmapbuf; /* Temp. snapshot map buffer. */ + MSize sizesnapmap; /* Size of temp. snapshot map buffer. */ + + PostProc postproc; /* Required post-processing after execution. */ +#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) + int needsplit; /* Need SPLIT pass. */ +#endif + + GCRef *trace; /* Array of traces. */ + TraceNo freetrace; /* Start of scan for next free trace. */ + MSize sizetrace; /* Size of trace array. */ + + IRRef1 chain[IR__MAX]; /* IR instruction skip-list chain anchors. */ + TRef slot[LJ_MAX_JSLOTS+LJ_STACK_EXTRA]; /* Stack slot map. */ + + int32_t param[JIT_P__MAX]; /* JIT engine parameters. */ + + MCode *exitstubgroup[LJ_MAX_EXITSTUBGR]; /* Exit stub group addresses. */ + + HotPenalty penalty[PENALTY_SLOTS]; /* Penalty slots. */ + uint32_t penaltyslot; /* Round-robin index into penalty slots. */ + uint32_t prngstate; /* PRNG state. */ + + BPropEntry bpropcache[BPROP_SLOTS]; /* Backpropagation cache slots. */ + uint32_t bpropslot; /* Round-robin index into bpropcache slots. */ + + ScEvEntry scev; /* Scalar evolution analysis cache slots. */ + + const BCIns *startpc; /* Bytecode PC of starting instruction. */ + TraceNo parent; /* Parent of current side trace (0 for root traces). */ + ExitNo exitno; /* Exit number in parent of current side trace. */ + + BCIns *patchpc; /* PC for pending re-patch. */ + BCIns patchins; /* Instruction for pending re-patch. */ + + int mcprot; /* Protection of current mcode area. */ + MCode *mcarea; /* Base of current mcode area. */ + MCode *mctop; /* Top of current mcode area. */ + MCode *mcbot; /* Bottom of current mcode area. */ + size_t szmcarea; /* Size of current mcode area. */ + size_t szallmcarea; /* Total size of all allocated mcode areas. */ + + TValue errinfo; /* Additional info element for trace errors. */ +} +#if LJ_TARGET_ARM +LJ_ALIGN(16) /* For DISPATCH-relative addresses in assembler part. */ +#endif +jit_State; + +/* Trivial PRNG e.g. used for penalty randomization. */ +static LJ_AINLINE uint32_t LJ_PRNG_BITS(jit_State *J, int bits) +{ + /* Yes, this LCG is very weak, but that doesn't matter for our use case. */ + J->prngstate = J->prngstate * 1103515245 + 12345; + return J->prngstate >> (32-bits); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_lex.c b/src/3rd party/luajit-2.0/src/lj_lex.c new file mode 100644 index 00000000000..0a360bfcd9c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_lex.c @@ -0,0 +1,481 @@ +/* +** Lexical analyzer. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_lex_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#if LJ_HASFFI +#include "lj_tab.h" +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lualib.h" +#endif +#include "lj_state.h" +#include "lj_lex.h" +#include "lj_parse.h" +#include "lj_char.h" +#include "lj_strscan.h" + +/* Lua lexer token names. */ +static const char *const tokennames[] = { +#define TKSTR1(name) #name, +#define TKSTR2(name, sym) #sym, +TKDEF(TKSTR1, TKSTR2) +#undef TKSTR1 +#undef TKSTR2 + NULL +}; + +/* -- Buffer handling ----------------------------------------------------- */ + +#define char2int(c) ((int)(uint8_t)(c)) +#define next(ls) \ + (ls->current = (ls->n--) > 0 ? char2int(*ls->p++) : fillbuf(ls)) +#define save_and_next(ls) (save(ls, ls->current), next(ls)) +#define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') +#define END_OF_STREAM (-1) + +static int fillbuf(LexState *ls) +{ + size_t sz; + const char *buf = ls->rfunc(ls->L, ls->rdata, &sz); + if (buf == NULL || sz == 0) return END_OF_STREAM; + ls->n = (MSize)sz - 1; + ls->p = buf; + return char2int(*(ls->p++)); +} + +static LJ_NOINLINE void save_grow(LexState *ls, int c) +{ + MSize newsize; + if (ls->sb.sz >= LJ_MAX_STR/2) + lj_lex_error(ls, 0, LJ_ERR_XELEM); + newsize = ls->sb.sz * 2; + lj_str_resizebuf(ls->L, &ls->sb, newsize); + ls->sb.buf[ls->sb.n++] = (char)c; +} + +static LJ_AINLINE void save(LexState *ls, int c) +{ + if (LJ_UNLIKELY(ls->sb.n + 1 > ls->sb.sz)) + save_grow(ls, c); + else + ls->sb.buf[ls->sb.n++] = (char)c; +} + +static void inclinenumber(LexState *ls) +{ + int old = ls->current; + lua_assert(currIsNewline(ls)); + next(ls); /* skip `\n' or `\r' */ + if (currIsNewline(ls) && ls->current != old) + next(ls); /* skip `\n\r' or `\r\n' */ + if (++ls->linenumber >= LJ_MAX_LINE) + lj_lex_error(ls, ls->token, LJ_ERR_XLINES); +} + +/* -- Scanner for terminals ----------------------------------------------- */ + +/* Parse a number literal. */ +static void lex_number(LexState *ls, TValue *tv) +{ + StrScanFmt fmt; + int c, xp = 'e'; + lua_assert(lj_char_isdigit(ls->current)); + if ((c = ls->current) == '0') { + save_and_next(ls); + if ((ls->current | 0x20) == 'x') xp = 'p'; + } + while (lj_char_isident(ls->current) || ls->current == '.' || + ((ls->current == '-' || ls->current == '+') && (c | 0x20) == xp)) { + c = ls->current; + save_and_next(ls); + } + save(ls, '\0'); + fmt = lj_strscan_scan((const uint8_t *)ls->sb.buf, tv, + (LJ_DUALNUM ? STRSCAN_OPT_TOINT : STRSCAN_OPT_TONUM) | + (LJ_HASFFI ? (STRSCAN_OPT_LL|STRSCAN_OPT_IMAG) : 0)); + if (LJ_DUALNUM && fmt == STRSCAN_INT) { + setitype(tv, LJ_TISNUM); + } else if (fmt == STRSCAN_NUM) { + /* Already in correct format. */ +#if LJ_HASFFI + } else if (fmt != STRSCAN_ERROR) { + lua_State *L = ls->L; + GCcdata *cd; + lua_assert(fmt == STRSCAN_I64 || fmt == STRSCAN_U64 || fmt == STRSCAN_IMAG); + if (!ctype_ctsG(G(L))) { + ptrdiff_t oldtop = savestack(L, L->top); + luaopen_ffi(L); /* Load FFI library on-demand. */ + L->top = restorestack(L, oldtop); + } + if (fmt == STRSCAN_IMAG) { + cd = lj_cdata_new_(L, CTID_COMPLEX_DOUBLE, 2*sizeof(double)); + ((double *)cdataptr(cd))[0] = 0; + ((double *)cdataptr(cd))[1] = numV(tv); + } else { + cd = lj_cdata_new_(L, fmt==STRSCAN_I64 ? CTID_INT64 : CTID_UINT64, 8); + *(uint64_t *)cdataptr(cd) = tv->u64; + } + lj_parse_keepcdata(ls, tv, cd); +#endif + } else { + lua_assert(fmt == STRSCAN_ERROR); + lj_lex_error(ls, TK_number, LJ_ERR_XNUMBER); + } +} + +static int skip_sep(LexState *ls) +{ + int count = 0; + int s = ls->current; + lua_assert(s == '[' || s == ']'); + save_and_next(ls); + while (ls->current == '=') { + save_and_next(ls); + count++; + } + return (ls->current == s) ? count : (-count) - 1; +} + +static void read_long_string(LexState *ls, TValue *tv, int sep) +{ + save_and_next(ls); /* skip 2nd `[' */ + if (currIsNewline(ls)) /* string starts with a newline? */ + inclinenumber(ls); /* skip it */ + for (;;) { + switch (ls->current) { + case END_OF_STREAM: + lj_lex_error(ls, TK_eof, tv ? LJ_ERR_XLSTR : LJ_ERR_XLCOM); + break; + case ']': + if (skip_sep(ls) == sep) { + save_and_next(ls); /* skip 2nd `]' */ + goto endloop; + } + break; + case '\n': + case '\r': + save(ls, '\n'); + inclinenumber(ls); + if (!tv) lj_str_resetbuf(&ls->sb); /* avoid wasting space */ + break; + default: + if (tv) save_and_next(ls); + else next(ls); + break; + } + } endloop: + if (tv) { + GCstr *str = lj_parse_keepstr(ls, ls->sb.buf + (2 + (MSize)sep), + ls->sb.n - 2*(2 + (MSize)sep)); + setstrV(ls->L, tv, str); + } +} + +static void read_string(LexState *ls, int delim, TValue *tv) +{ + save_and_next(ls); + while (ls->current != delim) { + switch (ls->current) { + case END_OF_STREAM: + lj_lex_error(ls, TK_eof, LJ_ERR_XSTR); + continue; + case '\n': + case '\r': + lj_lex_error(ls, TK_string, LJ_ERR_XSTR); + continue; + case '\\': { + int c = next(ls); /* Skip the '\\'. */ + switch (c) { + case 'a': c = '\a'; break; + case 'b': c = '\b'; break; + case 'f': c = '\f'; break; + case 'n': c = '\n'; break; + case 'r': c = '\r'; break; + case 't': c = '\t'; break; + case 'v': c = '\v'; break; + case 'x': /* Hexadecimal escape '\xXX'. */ + c = (next(ls) & 15u) << 4; + if (!lj_char_isdigit(ls->current)) { + if (!lj_char_isxdigit(ls->current)) goto err_xesc; + c += 9 << 4; + } + c += (next(ls) & 15u); + if (!lj_char_isdigit(ls->current)) { + if (!lj_char_isxdigit(ls->current)) goto err_xesc; + c += 9; + } + break; + case 'z': /* Skip whitespace. */ + next(ls); + while (lj_char_isspace(ls->current)) + if (currIsNewline(ls)) inclinenumber(ls); else next(ls); + continue; + case '\n': case '\r': save(ls, '\n'); inclinenumber(ls); continue; + case '\\': case '\"': case '\'': break; + case END_OF_STREAM: continue; + default: + if (!lj_char_isdigit(c)) + goto err_xesc; + c -= '0'; /* Decimal escape '\ddd'. */ + if (lj_char_isdigit(next(ls))) { + c = c*10 + (ls->current - '0'); + if (lj_char_isdigit(next(ls))) { + c = c*10 + (ls->current - '0'); + if (c > 255) { + err_xesc: + lj_lex_error(ls, TK_string, LJ_ERR_XESC); + } + next(ls); + } + } + save(ls, c); + continue; + } + save(ls, c); + next(ls); + continue; + } + default: + save_and_next(ls); + break; + } + } + save_and_next(ls); /* skip delimiter */ + setstrV(ls->L, tv, lj_parse_keepstr(ls, ls->sb.buf + 1, ls->sb.n - 2)); +} + +/* -- Main lexical scanner ------------------------------------------------ */ + +static int llex(LexState *ls, TValue *tv) +{ + lj_str_resetbuf(&ls->sb); + for (;;) { + if (lj_char_isident(ls->current)) { + GCstr *s; + if (lj_char_isdigit(ls->current)) { /* Numeric literal. */ + lex_number(ls, tv); + return TK_number; + } + /* Identifier or reserved word. */ + do { + save_and_next(ls); + } while (lj_char_isident(ls->current)); + s = lj_parse_keepstr(ls, ls->sb.buf, ls->sb.n); + setstrV(ls->L, tv, s); + if (s->reserved > 0) /* Reserved word? */ + return TK_OFS + s->reserved; + return TK_name; + } + switch (ls->current) { + case '\n': + case '\r': + inclinenumber(ls); + continue; + case ' ': + case '\t': + case '\v': + case '\f': + next(ls); + continue; + case '-': + next(ls); + if (ls->current != '-') return '-'; + /* else is a comment */ + next(ls); + if (ls->current == '[') { + int sep = skip_sep(ls); + lj_str_resetbuf(&ls->sb); /* `skip_sep' may dirty the buffer */ + if (sep >= 0) { + read_long_string(ls, NULL, sep); /* long comment */ + lj_str_resetbuf(&ls->sb); + continue; + } + } + /* else short comment */ + while (!currIsNewline(ls) && ls->current != END_OF_STREAM) + next(ls); + continue; + case '[': { + int sep = skip_sep(ls); + if (sep >= 0) { + read_long_string(ls, tv, sep); + return TK_string; + } else if (sep == -1) { + return '['; + } else { + lj_lex_error(ls, TK_string, LJ_ERR_XLDELIM); + continue; + } + } + case '=': + next(ls); + if (ls->current != '=') return '='; else { next(ls); return TK_eq; } + case '<': + next(ls); + if (ls->current != '=') return '<'; else { next(ls); return TK_le; } + case '>': + next(ls); + if (ls->current != '=') return '>'; else { next(ls); return TK_ge; } + case '~': + next(ls); + if (ls->current != '=') return '~'; else { next(ls); return TK_ne; } + case ':': + next(ls); + if (ls->current != ':') return ':'; else { next(ls); return TK_label; } + case '"': + case '\'': + read_string(ls, ls->current, tv); + return TK_string; + case '.': + save_and_next(ls); + if (ls->current == '.') { + next(ls); + if (ls->current == '.') { + next(ls); + return TK_dots; /* ... */ + } + return TK_concat; /* .. */ + } else if (!lj_char_isdigit(ls->current)) { + return '.'; + } else { + lex_number(ls, tv); + return TK_number; + } + case END_OF_STREAM: + return TK_eof; + default: { + int c = ls->current; + next(ls); + return c; /* Single-char tokens (+ - / ...). */ + } + } + } +} + +/* -- Lexer API ----------------------------------------------------------- */ + +/* Setup lexer state. */ +int lj_lex_setup(lua_State *L, LexState *ls) +{ + int header = 0; + ls->L = L; + ls->fs = NULL; + ls->n = 0; + ls->p = NULL; + ls->vstack = NULL; + ls->sizevstack = 0; + ls->vtop = 0; + ls->bcstack = NULL; + ls->sizebcstack = 0; + ls->lookahead = TK_eof; /* No look-ahead token. */ + ls->linenumber = 1; + ls->lastline = 1; + lj_str_resizebuf(ls->L, &ls->sb, LJ_MIN_SBUF); + next(ls); /* Read-ahead first char. */ + if (ls->current == 0xef && ls->n >= 2 && char2int(ls->p[0]) == 0xbb && + char2int(ls->p[1]) == 0xbf) { /* Skip UTF-8 BOM (if buffered). */ + ls->n -= 2; + ls->p += 2; + next(ls); + header = 1; + } + if (ls->current == '#') { /* Skip POSIX #! header line. */ + do { + next(ls); + if (ls->current == END_OF_STREAM) return 0; + } while (!currIsNewline(ls)); + inclinenumber(ls); + header = 1; + } + if (ls->current == LUA_SIGNATURE[0]) { /* Bytecode dump. */ + if (header) { + /* + ** Loading bytecode with an extra header is disabled for security + ** reasons. This may circumvent the usual check for bytecode vs. + ** Lua code by looking at the first char. Since this is a potential + ** security violation no attempt is made to echo the chunkname either. + */ + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_BCBAD)); + lj_err_throw(L, LUA_ERRSYNTAX); + } + return 1; + } + return 0; +} + +/* Cleanup lexer state. */ +void lj_lex_cleanup(lua_State *L, LexState *ls) +{ + global_State *g = G(L); + lj_mem_freevec(g, ls->bcstack, ls->sizebcstack, BCInsLine); + lj_mem_freevec(g, ls->vstack, ls->sizevstack, VarInfo); + lj_str_freebuf(g, &ls->sb); +} + +void lj_lex_next(LexState *ls) +{ + ls->lastline = ls->linenumber; + if (LJ_LIKELY(ls->lookahead == TK_eof)) { /* No lookahead token? */ + ls->token = llex(ls, &ls->tokenval); /* Get next token. */ + } else { /* Otherwise return lookahead token. */ + ls->token = ls->lookahead; + ls->lookahead = TK_eof; + ls->tokenval = ls->lookaheadval; + } +} + +LexToken lj_lex_lookahead(LexState *ls) +{ + lua_assert(ls->lookahead == TK_eof); + ls->lookahead = llex(ls, &ls->lookaheadval); + return ls->lookahead; +} + +const char *lj_lex_token2str(LexState *ls, LexToken token) +{ + if (token > TK_OFS) + return tokennames[token-TK_OFS-1]; + else if (!lj_char_iscntrl(token)) + return lj_str_pushf(ls->L, "%c", token); + else + return lj_str_pushf(ls->L, "char(%d)", token); +} + +void lj_lex_error(LexState *ls, LexToken token, ErrMsg em, ...) +{ + const char *tok; + va_list argp; + if (token == 0) { + tok = NULL; + } else if (token == TK_name || token == TK_string || token == TK_number) { + save(ls, '\0'); + tok = ls->sb.buf; + } else { + tok = lj_lex_token2str(ls, token); + } + va_start(argp, em); + lj_err_lex(ls->L, ls->chunkname, tok, ls->linenumber, em, argp); + va_end(argp); +} + +void lj_lex_init(lua_State *L) +{ + uint32_t i; + for (i = 0; i < TK_RESERVED; i++) { + GCstr *s = lj_str_newz(L, tokennames[i]); + fixstring(s); /* Reserved words are never collected. */ + s->reserved = (uint8_t)(i+1); + } +} + diff --git a/src/3rd party/luajit-2.0/src/lj_lex.h b/src/3rd party/luajit-2.0/src/lj_lex.h new file mode 100644 index 00000000000..fe017686456 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_lex.h @@ -0,0 +1,85 @@ +/* +** Lexical analyzer. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_LEX_H +#define _LJ_LEX_H + +#include + +#include "lj_obj.h" +#include "lj_err.h" + +/* Lua lexer tokens. */ +#define TKDEF(_, __) \ + _(and) _(break) _(do) _(else) _(elseif) _(end) _(false) \ + _(for) _(function) _(goto) _(if) _(in) _(local) _(nil) _(not) _(or) \ + _(repeat) _(return) _(then) _(true) _(until) _(while) \ + __(concat, ..) __(dots, ...) __(eq, ==) __(ge, >=) __(le, <=) __(ne, ~=) \ + __(label, ::) __(number, ) __(name, ) __(string, ) \ + __(eof, ) + +enum { + TK_OFS = 256, +#define TKENUM1(name) TK_##name, +#define TKENUM2(name, sym) TK_##name, +TKDEF(TKENUM1, TKENUM2) +#undef TKENUM1 +#undef TKENUM2 + TK_RESERVED = TK_while - TK_OFS +}; + +typedef int LexToken; + +/* Combined bytecode ins/line. Only used during bytecode generation. */ +typedef struct BCInsLine { + BCIns ins; /* Bytecode instruction. */ + BCLine line; /* Line number for this bytecode. */ +} BCInsLine; + +/* Info for local variables. Only used during bytecode generation. */ +typedef struct VarInfo { + GCRef name; /* Local variable name or goto/label name. */ + BCPos startpc; /* First point where the local variable is active. */ + BCPos endpc; /* First point where the local variable is dead. */ + uint8_t slot; /* Variable slot. */ + uint8_t info; /* Variable/goto/label info. */ +} VarInfo; + +/* Lua lexer state. */ +typedef struct LexState { + struct FuncState *fs; /* Current FuncState. Defined in lj_parse.c. */ + struct lua_State *L; /* Lua state. */ + TValue tokenval; /* Current token value. */ + TValue lookaheadval; /* Lookahead token value. */ + int current; /* Current character (charint). */ + LexToken token; /* Current token. */ + LexToken lookahead; /* Lookahead token. */ + MSize n; /* Bytes left in input buffer. */ + const char *p; /* Current position in input buffer. */ + SBuf sb; /* String buffer for tokens. */ + lua_Reader rfunc; /* Reader callback. */ + void *rdata; /* Reader callback data. */ + BCLine linenumber; /* Input line counter. */ + BCLine lastline; /* Line of last token. */ + GCstr *chunkname; /* Current chunk name (interned string). */ + const char *chunkarg; /* Chunk name argument. */ + const char *mode; /* Allow loading bytecode (b) and/or source text (t). */ + VarInfo *vstack; /* Stack for names and extents of local variables. */ + MSize sizevstack; /* Size of variable stack. */ + MSize vtop; /* Top of variable stack. */ + BCInsLine *bcstack; /* Stack for bytecode instructions/line numbers. */ + MSize sizebcstack; /* Size of bytecode stack. */ + uint32_t level; /* Syntactical nesting level. */ +} LexState; + +LJ_FUNC int lj_lex_setup(lua_State *L, LexState *ls); +LJ_FUNC void lj_lex_cleanup(lua_State *L, LexState *ls); +LJ_FUNC void lj_lex_next(LexState *ls); +LJ_FUNC LexToken lj_lex_lookahead(LexState *ls); +LJ_FUNC const char *lj_lex_token2str(LexState *ls, LexToken token); +LJ_FUNC_NORET void lj_lex_error(LexState *ls, LexToken token, ErrMsg em, ...); +LJ_FUNC void lj_lex_init(lua_State *L); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_lib.c b/src/3rd party/luajit-2.0/src/lj_lib.c new file mode 100644 index 00000000000..856685ee367 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_lib.c @@ -0,0 +1,258 @@ +/* +** Library function support. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_lib_c +#define LUA_CORE + +#include "lauxlib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_func.h" +#include "lj_bc.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_strscan.h" +#include "lj_lib.h" + +/* -- Library initialization ---------------------------------------------- */ + +static GCtab *lib_create_table(lua_State *L, const char *libname, int hsize) +{ + if (libname) { + luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); + lua_getfield(L, -1, libname); + if (!tvistab(L->top-1)) { + L->top--; + if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, hsize) != NULL) + lj_err_callerv(L, LJ_ERR_BADMODN, libname); + settabV(L, L->top, tabV(L->top-1)); + L->top++; + lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ + } + L->top--; + settabV(L, L->top-1, tabV(L->top)); + } else { + lua_createtable(L, 0, hsize); + } + return tabV(L->top-1); +} + +void lj_lib_register(lua_State *L, const char *libname, + const uint8_t *p, const lua_CFunction *cf) +{ + GCtab *env = tabref(L->env); + GCfunc *ofn = NULL; + int ffid = *p++; + BCIns *bcff = &L2GG(L)->bcff[*p++]; + GCtab *tab = lib_create_table(L, libname, *p++); + ptrdiff_t tpos = L->top - L->base; + + /* Avoid barriers further down. */ + lj_gc_anybarriert(L, tab); + tab->nomm = 0; + + for (;;) { + uint32_t tag = *p++; + MSize len = tag & LIBINIT_LENMASK; + tag &= LIBINIT_TAGMASK; + if (tag != LIBINIT_STRING) { + const char *name; + MSize nuv = (MSize)(L->top - L->base - tpos); + GCfunc *fn = lj_func_newC(L, nuv, env); + if (nuv) { + L->top = L->base + tpos; + memcpy(fn->c.upvalue, L->top, sizeof(TValue)*nuv); + } + fn->c.ffid = (uint8_t)(ffid++); + name = (const char *)p; + p += len; + if (tag == LIBINIT_CF) + setmref(fn->c.pc, &G(L)->bc_cfunc_int); + else + setmref(fn->c.pc, bcff++); + if (tag == LIBINIT_ASM_) + fn->c.f = ofn->c.f; /* Copy handler from previous function. */ + else + fn->c.f = *cf++; /* Get cf or handler from C function table. */ + if (len) { + /* NOBARRIER: See above for common barrier. */ + setfuncV(L, lj_tab_setstr(L, tab, lj_str_new(L, name, len)), fn); + } + ofn = fn; + } else { + switch (tag | len) { + case LIBINIT_SET: + L->top -= 2; + if (tvisstr(L->top+1) && strV(L->top+1)->len == 0) + env = tabV(L->top); + else /* NOBARRIER: See above for common barrier. */ + copyTV(L, lj_tab_set(L, tab, L->top+1), L->top); + break; + case LIBINIT_NUMBER: + memcpy(&L->top->n, p, sizeof(double)); + L->top++; + p += sizeof(double); + break; + case LIBINIT_COPY: + copyTV(L, L->top, L->top - *p++); + L->top++; + break; + case LIBINIT_LASTCL: + setfuncV(L, L->top++, ofn); + break; + case LIBINIT_FFID: + ffid++; + break; + case LIBINIT_END: + return; + default: + setstrV(L, L->top++, lj_str_new(L, (const char *)p, len)); + p += len; + break; + } + } + } +} + +/* -- Type checks --------------------------------------------------------- */ + +TValue *lj_lib_checkany(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (o >= L->top) + lj_err_arg(L, narg, LJ_ERR_NOVAL); + return o; +} + +GCstr *lj_lib_checkstr(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (o < L->top) { + if (LJ_LIKELY(tvisstr(o))) { + return strV(o); + } else if (tvisnumber(o)) { + GCstr *s = lj_str_fromnumber(L, o); + setstrV(L, o, s); + return s; + } + } + lj_err_argt(L, narg, LUA_TSTRING); + return NULL; /* unreachable */ +} + +GCstr *lj_lib_optstr(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + return (o < L->top && !tvisnil(o)) ? lj_lib_checkstr(L, narg) : NULL; +} + +#if LJ_DUALNUM +void lj_lib_checknumber(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && lj_strscan_numberobj(o))) + lj_err_argt(L, narg, LUA_TNUMBER); +} +#endif + +lua_Number lj_lib_checknum(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && + (tvisnumber(o) || (tvisstr(o) && lj_strscan_num(strV(o), o))))) + lj_err_argt(L, narg, LUA_TNUMBER); + if (LJ_UNLIKELY(tvisint(o))) { + lua_Number n = (lua_Number)intV(o); + setnumV(o, n); + return n; + } else { + return numV(o); + } +} + +int32_t lj_lib_checkint(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && lj_strscan_numberobj(o))) + lj_err_argt(L, narg, LUA_TNUMBER); + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else { + int32_t i = lj_num2int(numV(o)); + if (LJ_DUALNUM) setintV(o, i); + return i; + } +} + +int32_t lj_lib_optint(lua_State *L, int narg, int32_t def) +{ + TValue *o = L->base + narg-1; + return (o < L->top && !tvisnil(o)) ? lj_lib_checkint(L, narg) : def; +} + +int32_t lj_lib_checkbit(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && lj_strscan_numberobj(o))) + lj_err_argt(L, narg, LUA_TNUMBER); + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else { + int32_t i = lj_num2bit(numV(o)); + if (LJ_DUALNUM) setintV(o, i); + return i; + } +} + +GCfunc *lj_lib_checkfunc(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && tvisfunc(o))) + lj_err_argt(L, narg, LUA_TFUNCTION); + return funcV(o); +} + +GCtab *lj_lib_checktab(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && tvistab(o))) + lj_err_argt(L, narg, LUA_TTABLE); + return tabV(o); +} + +GCtab *lj_lib_checktabornil(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (o < L->top) { + if (tvistab(o)) + return tabV(o); + else if (tvisnil(o)) + return NULL; + } + lj_err_arg(L, narg, LJ_ERR_NOTABN); + return NULL; /* unreachable */ +} + +int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst) +{ + GCstr *s = def >= 0 ? lj_lib_optstr(L, narg) : lj_lib_checkstr(L, narg); + if (s) { + const char *opt = strdata(s); + MSize len = s->len; + int i; + for (i = 0; *(const uint8_t *)lst; i++) { + if (*(const uint8_t *)lst == len && memcmp(opt, lst+1, len) == 0) + return i; + lst += 1+*(const uint8_t *)lst; + } + lj_err_argv(L, narg, LJ_ERR_INVOPTM, opt); + } + return def; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_lib.h b/src/3rd party/luajit-2.0/src/lj_lib.h new file mode 100644 index 00000000000..9320f34fdac --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_lib.h @@ -0,0 +1,112 @@ +/* +** Library function support. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_LIB_H +#define _LJ_LIB_H + +#include "lj_obj.h" + +/* +** A fallback handler is called by the assembler VM if the fast path fails: +** +** - too few arguments: unrecoverable. +** - wrong argument type: recoverable, if coercion succeeds. +** - bad argument value: unrecoverable. +** - stack overflow: recoverable, if stack reallocation succeeds. +** - extra handling: recoverable. +** +** The unrecoverable cases throw an error with lj_err_arg(), lj_err_argtype(), +** lj_err_caller() or lj_err_callermsg(). +** The recoverable cases return 0 or the number of results + 1. +** The assembler VM retries the fast path only if 0 is returned. +** This time the fallback must not be called again or it gets stuck in a loop. +*/ + +/* Return values from fallback handler. */ +#define FFH_RETRY 0 +#define FFH_UNREACHABLE FFH_RETRY +#define FFH_RES(n) ((n)+1) +#define FFH_TAILCALL (-1) + +LJ_FUNC TValue *lj_lib_checkany(lua_State *L, int narg); +LJ_FUNC GCstr *lj_lib_checkstr(lua_State *L, int narg); +LJ_FUNC GCstr *lj_lib_optstr(lua_State *L, int narg); +#if LJ_DUALNUM +LJ_FUNC void lj_lib_checknumber(lua_State *L, int narg); +#else +#define lj_lib_checknumber(L, narg) lj_lib_checknum((L), (narg)) +#endif +LJ_FUNC lua_Number lj_lib_checknum(lua_State *L, int narg); +LJ_FUNC int32_t lj_lib_checkint(lua_State *L, int narg); +LJ_FUNC int32_t lj_lib_optint(lua_State *L, int narg, int32_t def); +LJ_FUNC int32_t lj_lib_checkbit(lua_State *L, int narg); +LJ_FUNC GCfunc *lj_lib_checkfunc(lua_State *L, int narg); +LJ_FUNC GCtab *lj_lib_checktab(lua_State *L, int narg); +LJ_FUNC GCtab *lj_lib_checktabornil(lua_State *L, int narg); +LJ_FUNC int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst); + +/* Avoid including lj_frame.h. */ +#define lj_lib_upvalue(L, n) \ + (&gcref((L->base-1)->fr.func)->fn.c.upvalue[(n)-1]) + +#if LJ_TARGET_WINDOWS +#define lj_lib_checkfpu(L) \ + do { setnumV(L->top++, (lua_Number)1437217655); \ + if (lua_tointeger(L, -1) != 1437217655) lj_err_caller(L, LJ_ERR_BADFPU); \ + L->top--; } while (0) +#else +#define lj_lib_checkfpu(L) UNUSED(L) +#endif + +/* Push internal function on the stack. */ +static LJ_AINLINE void lj_lib_pushcc(lua_State *L, lua_CFunction f, + int id, int n) +{ + GCfunc *fn; + lua_pushcclosure(L, f, n); + fn = funcV(L->top-1); + fn->c.ffid = (uint8_t)id; + setmref(fn->c.pc, &G(L)->bc_cfunc_int); +} + +#define lj_lib_pushcf(L, fn, id) (lj_lib_pushcc(L, (fn), (id), 0)) + +/* Library function declarations. Scanned by buildvm. */ +#define LJLIB_CF(name) static int lj_cf_##name(lua_State *L) +#define LJLIB_ASM(name) static int lj_ffh_##name(lua_State *L) +#define LJLIB_ASM_(name) +#define LJLIB_SET(name) +#define LJLIB_PUSH(arg) +#define LJLIB_REC(handler) +#define LJLIB_NOREGUV +#define LJLIB_NOREG + +#define LJ_LIB_REG(L, regname, name) \ + lj_lib_register(L, regname, lj_lib_init_##name, lj_lib_cf_##name) + +LJ_FUNC void lj_lib_register(lua_State *L, const char *libname, + const uint8_t *init, const lua_CFunction *cf); + +/* Library init data tags. */ +#define LIBINIT_LENMASK 0x3f +#define LIBINIT_TAGMASK 0xc0 +#define LIBINIT_CF 0x00 +#define LIBINIT_ASM 0x40 +#define LIBINIT_ASM_ 0x80 +#define LIBINIT_STRING 0xc0 +#define LIBINIT_MAXSTR 0x39 +#define LIBINIT_SET 0xfa +#define LIBINIT_NUMBER 0xfb +#define LIBINIT_COPY 0xfc +#define LIBINIT_LASTCL 0xfd +#define LIBINIT_FFID 0xfe +#define LIBINIT_END 0xff + +/* Exported library functions. */ + +typedef struct RandomState RandomState; +LJ_FUNC uint64_t LJ_FASTCALL lj_math_random_step(RandomState *rs); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_load.c b/src/3rd party/luajit-2.0/src/lj_load.c new file mode 100644 index 00000000000..ff7b85117ff --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_load.c @@ -0,0 +1,168 @@ +/* +** Load and dump code. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include +#include + +#define lj_load_c +#define LUA_CORE + +#include "lua.h" +#include "lauxlib.h" + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_func.h" +#include "lj_frame.h" +#include "lj_vm.h" +#include "lj_lex.h" +#include "lj_bcdump.h" +#include "lj_parse.h" + +/* -- Load Lua source code and bytecode ----------------------------------- */ + +static TValue *cpparser(lua_State *L, lua_CFunction dummy, void *ud) +{ + LexState *ls = (LexState *)ud; + GCproto *pt; + GCfunc *fn; + int bc; + UNUSED(dummy); + cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ + bc = lj_lex_setup(L, ls); + if (ls->mode && !strchr(ls->mode, bc ? 'b' : 't')) { + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_XMODE)); + lj_err_throw(L, LUA_ERRSYNTAX); + } + pt = bc ? lj_bcread(ls) : lj_parse(ls); + fn = lj_func_newL_empty(L, pt, tabref(L->env)); + /* Don't combine above/below into one statement. */ + setfuncV(L, L->top++, fn); + return NULL; +} + +LUA_API int lua_loadx(lua_State *L, lua_Reader reader, void *data, + const char *chunkname, const char *mode) +{ + LexState ls; + int status; + ls.rfunc = reader; + ls.rdata = data; + ls.chunkarg = chunkname ? chunkname : "?"; + ls.mode = mode; + lj_str_initbuf(&ls.sb); + status = lj_vm_cpcall(L, NULL, &ls, cpparser); + lj_lex_cleanup(L, &ls); + lj_gc_check(L); + return status; +} + +LUA_API int lua_load(lua_State *L, lua_Reader reader, void *data, + const char *chunkname) +{ + return lua_loadx(L, reader, data, chunkname, NULL); +} + +typedef struct FileReaderCtx { + FILE *fp; + char buf[LUAL_BUFFERSIZE]; +} FileReaderCtx; + +static const char *reader_file(lua_State *L, void *ud, size_t *size) +{ + FileReaderCtx *ctx = (FileReaderCtx *)ud; + UNUSED(L); + if (feof(ctx->fp)) return NULL; + *size = fread(ctx->buf, 1, sizeof(ctx->buf), ctx->fp); + return *size > 0 ? ctx->buf : NULL; +} + +LUALIB_API int luaL_loadfilex(lua_State *L, const char *filename, + const char *mode) +{ + FileReaderCtx ctx; + int status; + const char *chunkname; + if (filename) { + ctx.fp = fopen(filename, "rb"); + if (ctx.fp == NULL) { + lua_pushfstring(L, "cannot open %s: %s", filename, strerror(errno)); + return LUA_ERRFILE; + } + chunkname = lua_pushfstring(L, "@%s", filename); + } else { + ctx.fp = stdin; + chunkname = "=stdin"; + } + status = lua_loadx(L, reader_file, &ctx, chunkname, mode); + if (ferror(ctx.fp)) { + L->top -= filename ? 2 : 1; + lua_pushfstring(L, "cannot read %s: %s", chunkname+1, strerror(errno)); + if (filename) + fclose(ctx.fp); + return LUA_ERRFILE; + } + if (filename) { + L->top--; + copyTV(L, L->top-1, L->top); + fclose(ctx.fp); + } + return status; +} + +LUALIB_API int luaL_loadfile(lua_State *L, const char *filename) +{ + return luaL_loadfilex(L, filename, NULL); +} + +typedef struct StringReaderCtx { + const char *str; + size_t size; +} StringReaderCtx; + +static const char *reader_string(lua_State *L, void *ud, size_t *size) +{ + StringReaderCtx *ctx = (StringReaderCtx *)ud; + UNUSED(L); + if (ctx->size == 0) return NULL; + *size = ctx->size; + ctx->size = 0; + return ctx->str; +} + +LUALIB_API int luaL_loadbufferx(lua_State *L, const char *buf, size_t size, + const char *name, const char *mode) +{ + StringReaderCtx ctx; + ctx.str = buf; + ctx.size = size; + return lua_loadx(L, reader_string, &ctx, name, mode); +} + +LUALIB_API int luaL_loadbuffer(lua_State *L, const char *buf, size_t size, + const char *name) +{ + return luaL_loadbufferx(L, buf, size, name, NULL); +} + +LUALIB_API int luaL_loadstring(lua_State *L, const char *s) +{ + return luaL_loadbuffer(L, s, strlen(s), s); +} + +/* -- Dump bytecode ------------------------------------------------------- */ + +LUA_API int lua_dump(lua_State *L, lua_Writer writer, void *data) +{ + cTValue *o = L->top-1; + api_check(L, L->top > L->base); + if (tvisfunc(o) && isluafunc(funcV(o))) + return lj_bcwrite(L, funcproto(funcV(o)), writer, data, 0); + else + return 1; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_mcode.c b/src/3rd party/luajit-2.0/src/lj_mcode.c new file mode 100644 index 00000000000..f8f8406a424 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_mcode.c @@ -0,0 +1,373 @@ +/* +** Machine code management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_mcode_c +#define LUA_CORE + +#include "lj_obj.h" +#if LJ_HASJIT +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_jit.h" +#include "lj_mcode.h" +#include "lj_trace.h" +#include "lj_dispatch.h" +#endif +#if LJ_HASJIT || LJ_HASFFI +#include "lj_vm.h" +#endif + +/* -- OS-specific functions ----------------------------------------------- */ + +#if LJ_HASJIT || LJ_HASFFI + +/* Define this if you want to run LuaJIT with Valgrind. */ +#ifdef LUAJIT_USE_VALGRIND +#include +#endif + +#if LJ_TARGET_IOS +void sys_icache_invalidate(void *start, size_t len); +#endif + +/* Synchronize data/instruction cache. */ +void lj_mcode_sync(void *start, void *end) +{ +#ifdef LUAJIT_USE_VALGRIND + VALGRIND_DISCARD_TRANSLATIONS(start, (char *)end-(char *)start); +#endif +#if LJ_TARGET_X86ORX64 + UNUSED(start); UNUSED(end); +#elif LJ_TARGET_IOS + sys_icache_invalidate(start, (char *)end-(char *)start); +#elif LJ_TARGET_PPC + lj_vm_cachesync(start, end); +#elif defined(__GNUC__) + __clear_cache(start, end); +#else +#error "Missing builtin to flush instruction cache" +#endif +} + +#endif + +#if LJ_HASJIT + +#if LJ_TARGET_WINDOWS + +#define WIN32_LEAN_AND_MEAN +#include + +#define MCPROT_RW PAGE_READWRITE +#define MCPROT_RX PAGE_EXECUTE_READ +#define MCPROT_RWX PAGE_EXECUTE_READWRITE + +static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, DWORD prot) +{ + void *p = VirtualAlloc((void *)hint, sz, + MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, prot); + if (!p && !hint) + lj_trace_err(J, LJ_TRERR_MCODEAL); + return p; +} + +static void mcode_free(jit_State *J, void *p, size_t sz) +{ + UNUSED(J); UNUSED(sz); + VirtualFree(p, 0, MEM_RELEASE); +} + +static int mcode_setprot(void *p, size_t sz, DWORD prot) +{ + DWORD oprot; + return !VirtualProtect(p, sz, prot, &oprot); +} + +#elif LJ_TARGET_POSIX + +#include + +#ifndef MAP_ANONYMOUS +#define MAP_ANONYMOUS MAP_ANON +#endif + +#define MCPROT_RW (PROT_READ|PROT_WRITE) +#define MCPROT_RX (PROT_READ|PROT_EXEC) +#define MCPROT_RWX (PROT_READ|PROT_WRITE|PROT_EXEC) + +static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, int prot) +{ + void *p = mmap((void *)hint, sz, prot, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0); + if (p == MAP_FAILED) { + if (!hint) lj_trace_err(J, LJ_TRERR_MCODEAL); + p = NULL; + } + return p; +} + +static void mcode_free(jit_State *J, void *p, size_t sz) +{ + UNUSED(J); + munmap(p, sz); +} + +static int mcode_setprot(void *p, size_t sz, int prot) +{ + return mprotect(p, sz, prot); +} + +#elif LJ_64 + +#error "Missing OS support for explicit placement of executable memory" + +#else + +/* Fallback allocator. This will fail if memory is not executable by default. */ +#define LUAJIT_UNPROTECT_MCODE +#define MCPROT_RW 0 +#define MCPROT_RX 0 +#define MCPROT_RWX 0 + +static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, int prot) +{ + UNUSED(hint); UNUSED(prot); + return lj_mem_new(J->L, sz); +} + +static void mcode_free(jit_State *J, void *p, size_t sz) +{ + lj_mem_free(J2G(J), p, sz); +} + +#endif + +/* -- MCode area protection ----------------------------------------------- */ + +/* Define this ONLY if the page protection twiddling becomes a bottleneck. */ +#ifdef LUAJIT_UNPROTECT_MCODE + +/* It's generally considered to be a potential security risk to have +** pages with simultaneous write *and* execute access in a process. +** +** Do not even think about using this mode for server processes or +** apps handling untrusted external data (such as a browser). +** +** The security risk is not in LuaJIT itself -- but if an adversary finds +** any *other* flaw in your C application logic, then any RWX memory page +** simplifies writing an exploit considerably. +*/ +#define MCPROT_GEN MCPROT_RWX +#define MCPROT_RUN MCPROT_RWX + +static void mcode_protect(jit_State *J, int prot) +{ + UNUSED(J); UNUSED(prot); +} + +#else + +/* This is the default behaviour and much safer: +** +** Most of the time the memory pages holding machine code are executable, +** but NONE of them is writable. +** +** The current memory area is marked read-write (but NOT executable) only +** during the short time window while the assembler generates machine code. +*/ +#define MCPROT_GEN MCPROT_RW +#define MCPROT_RUN MCPROT_RX + +/* Protection twiddling failed. Probably due to kernel security. */ +static LJ_NOINLINE void mcode_protfail(jit_State *J) +{ + lua_CFunction panic = J2G(J)->panic; + if (panic) { + lua_State *L = J->L; + setstrV(L, L->top++, lj_err_str(L, LJ_ERR_JITPROT)); + panic(L); + } +} + +/* Change protection of MCode area. */ +static void mcode_protect(jit_State *J, int prot) +{ + if (J->mcprot != prot) { + if (LJ_UNLIKELY(mcode_setprot(J->mcarea, J->szmcarea, prot))) + mcode_protfail(J); + J->mcprot = prot; + } +} + +#endif + +/* -- MCode area allocation ----------------------------------------------- */ + +#if LJ_TARGET_X64 +#define mcode_validptr(p) ((p) && (uintptr_t)(p) < (uintptr_t)1<<47) +#else +#define mcode_validptr(p) ((p) && (uintptr_t)(p) < 0xffff0000) +#endif + +#ifdef LJ_TARGET_JUMPRANGE + +/* Get memory within relative jump distance of our code in 64 bit mode. */ +static void *mcode_alloc(jit_State *J, size_t sz) +{ + /* Target an address in the static assembler code (64K aligned). + ** Try addresses within a distance of target-range/2+1MB..target+range/2-1MB. + ** Use half the jump range so every address in the range can reach any other. + */ +#if LJ_TARGET_MIPS + /* Use the middle of the 256MB-aligned region. */ + uintptr_t target = ((uintptr_t)(void *)lj_vm_exit_handler & 0xf0000000u) + + 0x08000000u; +#else + uintptr_t target = (uintptr_t)(void *)lj_vm_exit_handler & ~(uintptr_t)0xffff; +#endif + const uintptr_t range = (1u << (LJ_TARGET_JUMPRANGE-1)) - (1u << 21); + /* First try a contiguous area below the last one. */ + uintptr_t hint = J->mcarea ? (uintptr_t)J->mcarea - sz : 0; + int i; + for (i = 0; i < 32; i++) { /* 32 attempts ought to be enough ... */ + if (mcode_validptr(hint)) { + void *p = mcode_alloc_at(J, hint, sz, MCPROT_GEN); + + if (mcode_validptr(p) && + ((uintptr_t)p + sz - target < range || target - (uintptr_t)p < range)) + return p; + if (p) mcode_free(J, p, sz); /* Free badly placed area. */ + } + /* Next try probing pseudo-random addresses. */ + do { + hint = (0x78fb ^ LJ_PRNG_BITS(J, 15)) << 16; /* 64K aligned. */ + } while (!(hint + sz < range)); + hint = target + hint - (range>>1); + } + lj_trace_err(J, LJ_TRERR_MCODEAL); /* Give up. OS probably ignores hints? */ + return NULL; +} + +#else + +/* All memory addresses are reachable by relative jumps. */ +#define mcode_alloc(J, sz) mcode_alloc_at((J), 0, (sz), MCPROT_GEN) + +#endif + +/* -- MCode area management ----------------------------------------------- */ + +/* Linked list of MCode areas. */ +typedef struct MCLink { + MCode *next; /* Next area. */ + size_t size; /* Size of current area. */ +} MCLink; + +/* Allocate a new MCode area. */ +static void mcode_allocarea(jit_State *J) +{ + MCode *oldarea = J->mcarea; + size_t sz = (size_t)J->param[JIT_P_sizemcode] << 10; + sz = (sz + LJ_PAGESIZE-1) & ~(size_t)(LJ_PAGESIZE - 1); + J->mcarea = (MCode *)mcode_alloc(J, sz); + J->szmcarea = sz; + J->mcprot = MCPROT_GEN; + J->mctop = (MCode *)((char *)J->mcarea + J->szmcarea); + J->mcbot = (MCode *)((char *)J->mcarea + sizeof(MCLink)); + ((MCLink *)J->mcarea)->next = oldarea; + ((MCLink *)J->mcarea)->size = sz; + J->szallmcarea += sz; +} + +/* Free all MCode areas. */ +void lj_mcode_free(jit_State *J) +{ + MCode *mc = J->mcarea; + J->mcarea = NULL; + J->szallmcarea = 0; + while (mc) { + MCode *next = ((MCLink *)mc)->next; + mcode_free(J, mc, ((MCLink *)mc)->size); + mc = next; + } +} + +/* -- MCode transactions -------------------------------------------------- */ + +/* Reserve the remainder of the current MCode area. */ +MCode *lj_mcode_reserve(jit_State *J, MCode **lim) +{ + if (!J->mcarea) + mcode_allocarea(J); + else + mcode_protect(J, MCPROT_GEN); + *lim = J->mcbot; + return J->mctop; +} + +/* Commit the top part of the current MCode area. */ +void lj_mcode_commit(jit_State *J, MCode *top) +{ + J->mctop = top; + mcode_protect(J, MCPROT_RUN); +} + +/* Abort the reservation. */ +void lj_mcode_abort(jit_State *J) +{ + if (J->mcarea) + mcode_protect(J, MCPROT_RUN); +} + +/* Set/reset protection to allow patching of MCode areas. */ +MCode *lj_mcode_patch(jit_State *J, MCode *ptr, int finish) +{ +#ifdef LUAJIT_UNPROTECT_MCODE + UNUSED(J); UNUSED(ptr); UNUSED(finish); + return NULL; +#else + if (finish) { + if (J->mcarea == ptr) + mcode_protect(J, MCPROT_RUN); + else if (LJ_UNLIKELY(mcode_setprot(ptr, ((MCLink *)ptr)->size, MCPROT_RUN))) + mcode_protfail(J); + return NULL; + } else { + MCode *mc = J->mcarea; + /* Try current area first to use the protection cache. */ + if (ptr >= mc && ptr < (MCode *)((char *)mc + J->szmcarea)) { + mcode_protect(J, MCPROT_GEN); + return mc; + } + /* Otherwise search through the list of MCode areas. */ + for (;;) { + mc = ((MCLink *)mc)->next; + lua_assert(mc != NULL); + if (ptr >= mc && ptr < (MCode *)((char *)mc + ((MCLink *)mc)->size)) { + if (LJ_UNLIKELY(mcode_setprot(mc, ((MCLink *)mc)->size, MCPROT_GEN))) + mcode_protfail(J); + return mc; + } + } + } +#endif +} + +/* Limit of MCode reservation reached. */ +void lj_mcode_limiterr(jit_State *J, size_t need) +{ + size_t sizemcode, maxmcode; + lj_mcode_abort(J); + sizemcode = (size_t)J->param[JIT_P_sizemcode] << 10; + sizemcode = (sizemcode + LJ_PAGESIZE-1) & ~(size_t)(LJ_PAGESIZE - 1); + maxmcode = (size_t)J->param[JIT_P_maxmcode] << 10; + if ((size_t)need > sizemcode) + lj_trace_err(J, LJ_TRERR_MCODEOV); /* Too long for any area. */ + if (J->szallmcarea + sizemcode > maxmcode) + lj_trace_err(J, LJ_TRERR_MCODEAL); + mcode_allocarea(J); + lj_trace_err(J, LJ_TRERR_MCODELM); /* Retry with new area. */ +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_mcode.h b/src/3rd party/luajit-2.0/src/lj_mcode.h new file mode 100644 index 00000000000..ee604523496 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_mcode.h @@ -0,0 +1,30 @@ +/* +** Machine code management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_MCODE_H +#define _LJ_MCODE_H + +#include "lj_obj.h" + +#if LJ_HASJIT || LJ_HASFFI +LJ_FUNC void lj_mcode_sync(void *start, void *end); +#endif + +#if LJ_HASJIT + +#include "lj_jit.h" + +LJ_FUNC void lj_mcode_free(jit_State *J); +LJ_FUNC MCode *lj_mcode_reserve(jit_State *J, MCode **lim); +LJ_FUNC void lj_mcode_commit(jit_State *J, MCode *m); +LJ_FUNC void lj_mcode_abort(jit_State *J); +LJ_FUNC MCode *lj_mcode_patch(jit_State *J, MCode *ptr, int finish); +LJ_FUNC_NORET void lj_mcode_limiterr(jit_State *J, size_t need); + +#define lj_mcode_commitbot(J, m) (J->mcbot = (m)) + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_meta.c b/src/3rd party/luajit-2.0/src/lj_meta.c new file mode 100644 index 00000000000..faaaf70264a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_meta.c @@ -0,0 +1,466 @@ +/* +** Metamethod handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_meta_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_frame.h" +#include "lj_bc.h" +#include "lj_vm.h" +#include "lj_strscan.h" + +/* -- Metamethod handling ------------------------------------------------- */ + +/* String interning of metamethod names for fast indexing. */ +void lj_meta_init(lua_State *L) +{ +#define MMNAME(name) "__" #name + const char *metanames = MMDEF(MMNAME); +#undef MMNAME + global_State *g = G(L); + const char *p, *q; + uint32_t mm; + for (mm = 0, p = metanames; *p; mm++, p = q) { + GCstr *s; + for (q = p+2; *q && *q != '_'; q++) ; + s = lj_str_new(L, p, (size_t)(q-p)); + /* NOBARRIER: g->gcroot[] is a GC root. */ + setgcref(g->gcroot[GCROOT_MMNAME+mm], obj2gco(s)); + } +} + +/* Negative caching of a few fast metamethods. See the lj_meta_fast() macro. */ +cTValue *lj_meta_cache(GCtab *mt, MMS mm, GCstr *name) +{ + cTValue *mo = lj_tab_getstr(mt, name); + lua_assert(mm <= MM_FAST); + if (!mo || tvisnil(mo)) { /* No metamethod? */ + mt->nomm |= (uint8_t)(1u<metatable); + else if (tvisudata(o)) + mt = tabref(udataV(o)->metatable); + else + mt = tabref(basemt_obj(G(L), o)); + if (mt) { + cTValue *mo = lj_tab_getstr(mt, mmname_str(G(L), mm)); + if (mo) + return mo; + } + return niltv(L); +} + +#if LJ_HASFFI +/* Tailcall from C function. */ +int lj_meta_tailcall(lua_State *L, cTValue *tv) +{ + TValue *base = L->base; + TValue *top = L->top; + const BCIns *pc = frame_pc(base-1); /* Preserve old PC from frame. */ + copyTV(L, base-1, tv); /* Replace frame with new object. */ + top->u32.lo = LJ_CONT_TAILCALL; + setframe_pc(top, pc); + setframe_gc(top+1, obj2gco(L)); /* Dummy frame object. */ + setframe_ftsz(top+1, (int)((char *)(top+2) - (char *)base) + FRAME_CONT); + L->base = L->top = top+2; + /* + ** before: [old_mo|PC] [... ...] + ** ^base ^top + ** after: [new_mo|itype] [... ...] [NULL|PC] [dummy|delta] + ** ^base/top + ** tailcall: [new_mo|PC] [... ...] + ** ^base ^top + */ + return 0; +} +#endif + +/* Setup call to metamethod to be run by Assembler VM. */ +static TValue *mmcall(lua_State *L, ASMFunction cont, cTValue *mo, + cTValue *a, cTValue *b) +{ + /* + ** |-- framesize -> top top+1 top+2 top+3 + ** before: [func slots ...] + ** mm setup: [func slots ...] [cont|?] [mo|tmtype] [a] [b] + ** in asm: [func slots ...] [cont|PC] [mo|delta] [a] [b] + ** ^-- func base ^-- mm base + ** after mm: [func slots ...] [result] + ** ^-- copy to base[PC_RA] --/ for lj_cont_ra + ** istruecond + branch for lj_cont_cond* + ** ignore for lj_cont_nop + ** next PC: [func slots ...] + */ + TValue *top = L->top; + if (curr_funcisL(L)) top = curr_topL(L); + setcont(top, cont); /* Assembler VM stores PC in upper word. */ + copyTV(L, top+1, mo); /* Store metamethod and two arguments. */ + copyTV(L, top+2, a); + copyTV(L, top+3, b); + return top+2; /* Return new base. */ +} + +/* -- C helpers for some instructions, called from assembler VM ----------- */ + +/* Helper for TGET*. __index chain and metamethod. */ +cTValue *lj_meta_tget(lua_State *L, cTValue *o, cTValue *k) +{ + int loop; + for (loop = 0; loop < LJ_MAX_IDXCHAIN; loop++) { + cTValue *mo; + if (LJ_LIKELY(tvistab(o))) { + GCtab *t = tabV(o); + cTValue *tv = lj_tab_get(L, t, k); + if (!tvisnil(tv) || + !(mo = lj_meta_fast(L, tabref(t->metatable), MM_index))) + return tv; + } else if (tvisnil(mo = lj_meta_lookup(L, o, MM_index))) { + lj_err_optype(L, o, LJ_ERR_OPINDEX); + return NULL; /* unreachable */ + } + if (tvisfunc(mo)) { + L->top = mmcall(L, lj_cont_ra, mo, o, k); + return NULL; /* Trigger metamethod call. */ + } + o = mo; + } + lj_err_msg(L, LJ_ERR_GETLOOP); + return NULL; /* unreachable */ +} + +/* Helper for TSET*. __newindex chain and metamethod. */ +TValue *lj_meta_tset(lua_State *L, cTValue *o, cTValue *k) +{ + TValue tmp; + int loop; + for (loop = 0; loop < LJ_MAX_IDXCHAIN; loop++) { + cTValue *mo; + if (LJ_LIKELY(tvistab(o))) { + GCtab *t = tabV(o); + cTValue *tv = lj_tab_get(L, t, k); + if (LJ_LIKELY(!tvisnil(tv))) { + t->nomm = 0; /* Invalidate negative metamethod cache. */ + lj_gc_anybarriert(L, t); + return (TValue *)tv; + } else if (!(mo = lj_meta_fast(L, tabref(t->metatable), MM_newindex))) { + t->nomm = 0; /* Invalidate negative metamethod cache. */ + lj_gc_anybarriert(L, t); + if (tv != niltv(L)) + return (TValue *)tv; + if (tvisnil(k)) lj_err_msg(L, LJ_ERR_NILIDX); + else if (tvisint(k)) { setnumV(&tmp, (lua_Number)intV(k)); k = &tmp; } + else if (tvisnum(k) && tvisnan(k)) lj_err_msg(L, LJ_ERR_NANIDX); + return lj_tab_newkey(L, t, k); + } + } else if (tvisnil(mo = lj_meta_lookup(L, o, MM_newindex))) { + lj_err_optype(L, o, LJ_ERR_OPINDEX); + return NULL; /* unreachable */ + } + if (tvisfunc(mo)) { + L->top = mmcall(L, lj_cont_nop, mo, o, k); + /* L->top+2 = v filled in by caller. */ + return NULL; /* Trigger metamethod call. */ + } + copyTV(L, &tmp, mo); + o = &tmp; + } + lj_err_msg(L, LJ_ERR_SETLOOP); + return NULL; /* unreachable */ +} + +static cTValue *str2num(cTValue *o, TValue *n) +{ + if (tvisnum(o)) + return o; + else if (tvisint(o)) + return (setnumV(n, (lua_Number)intV(o)), n); + else if (tvisstr(o) && lj_strscan_num(strV(o), n)) + return n; + else + return NULL; +} + +/* Helper for arithmetic instructions. Coercion, metamethod. */ +TValue *lj_meta_arith(lua_State *L, TValue *ra, cTValue *rb, cTValue *rc, + BCReg op) +{ + MMS mm = bcmode_mm(op); + TValue tempb, tempc; + cTValue *b, *c; + if ((b = str2num(rb, &tempb)) != NULL && + (c = str2num(rc, &tempc)) != NULL) { /* Try coercion first. */ + setnumV(ra, lj_vm_foldarith(numV(b), numV(c), (int)mm-MM_add)); + return NULL; + } else { + cTValue *mo = lj_meta_lookup(L, rb, mm); + if (tvisnil(mo)) { + mo = lj_meta_lookup(L, rc, mm); + if (tvisnil(mo)) { + if (str2num(rb, &tempb) == NULL) rc = rb; + lj_err_optype(L, rc, LJ_ERR_OPARITH); + return NULL; /* unreachable */ + } + } + return mmcall(L, lj_cont_ra, mo, rb, rc); + } +} + +/* In-place coercion of a number to a string. */ +static LJ_AINLINE int tostring(lua_State *L, TValue *o) +{ + if (tvisstr(o)) { + return 1; + } else if (tvisnumber(o)) { + setstrV(L, o, lj_str_fromnumber(L, o)); + return 1; + } else { + return 0; + } +} + +/* Helper for CAT. Coercion, iterative concat, __concat metamethod. */ +TValue *lj_meta_cat(lua_State *L, TValue *top, int left) +{ + int fromc = 0; + if (left < 0) { left = -left; fromc = 1; } + do { + int n = 1; + if (!(tvisstr(top-1) || tvisnumber(top-1)) || !tostring(L, top)) { + cTValue *mo = lj_meta_lookup(L, top-1, MM_concat); + if (tvisnil(mo)) { + mo = lj_meta_lookup(L, top, MM_concat); + if (tvisnil(mo)) { + if (tvisstr(top-1) || tvisnumber(top-1)) top++; + lj_err_optype(L, top-1, LJ_ERR_OPCAT); + return NULL; /* unreachable */ + } + } + /* One of the top two elements is not a string, call __cat metamethod: + ** + ** before: [...][CAT stack .........................] + ** top-1 top top+1 top+2 + ** pick two: [...][CAT stack ...] [o1] [o2] + ** setup mm: [...][CAT stack ...] [cont|?] [mo|tmtype] [o1] [o2] + ** in asm: [...][CAT stack ...] [cont|PC] [mo|delta] [o1] [o2] + ** ^-- func base ^-- mm base + ** after mm: [...][CAT stack ...] <--push-- [result] + ** next step: [...][CAT stack .............] + */ + copyTV(L, top+2, top); /* Careful with the order of stack copies! */ + copyTV(L, top+1, top-1); + copyTV(L, top, mo); + setcont(top-1, lj_cont_cat); + return top+1; /* Trigger metamethod call. */ + } else if (strV(top)->len == 0) { /* Shortcut. */ + (void)tostring(L, top-1); + } else { + /* Pick as many strings as possible from the top and concatenate them: + ** + ** before: [...][CAT stack ...........................] + ** pick str: [...][CAT stack ...] [...... strings ......] + ** concat: [...][CAT stack ...] [result] + ** next step: [...][CAT stack ............] + */ + MSize tlen = strV(top)->len; + char *buffer; + int i; + for (n = 1; n <= left && tostring(L, top-n); n++) { + MSize len = strV(top-n)->len; + if (len >= LJ_MAX_STR - tlen) + lj_err_msg(L, LJ_ERR_STROV); + tlen += len; + } + buffer = lj_str_needbuf(L, &G(L)->tmpbuf, tlen); + n--; + tlen = 0; + for (i = n; i >= 0; i--) { + MSize len = strV(top-i)->len; + memcpy(buffer + tlen, strVdata(top-i), len); + tlen += len; + } + setstrV(L, top-n, lj_str_new(L, buffer, tlen)); + } + left -= n; + top -= n; + } while (left >= 1); + if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) { + if (!fromc) L->top = curr_topL(L); + lj_gc_step(L); + } + return NULL; +} + +/* Helper for LEN. __len metamethod. */ +TValue * LJ_FASTCALL lj_meta_len(lua_State *L, cTValue *o) +{ + cTValue *mo = lj_meta_lookup(L, o, MM_len); + if (tvisnil(mo)) { + if (LJ_52 && tvistab(o)) + tabref(tabV(o)->metatable)->nomm |= (uint8_t)(1u<gch.metatable), MM_eq); + if (mo) { + TValue *top; + uint32_t it; + if (tabref(o1->gch.metatable) != tabref(o2->gch.metatable)) { + cTValue *mo2 = lj_meta_fast(L, tabref(o2->gch.metatable), MM_eq); + if (mo2 == NULL || !lj_obj_equal(mo, mo2)) + return (TValue *)(intptr_t)ne; + } + top = curr_top(L); + setcont(top, ne ? lj_cont_condf : lj_cont_condt); + copyTV(L, top+1, mo); + it = ~(uint32_t)o1->gch.gct; + setgcV(L, top+2, o1, it); + setgcV(L, top+3, o2, it); + return top+2; /* Trigger metamethod call. */ + } + return (TValue *)(intptr_t)ne; +} + +#if LJ_HASFFI +TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins) +{ + ASMFunction cont = (bc_op(ins) & 1) ? lj_cont_condf : lj_cont_condt; + int op = (int)bc_op(ins) & ~1; + TValue tv; + cTValue *mo, *o2, *o1 = &L->base[bc_a(ins)]; + cTValue *o1mm = o1; + if (op == BC_ISEQV) { + o2 = &L->base[bc_d(ins)]; + if (!tviscdata(o1mm)) o1mm = o2; + } else if (op == BC_ISEQS) { + setstrV(L, &tv, gco2str(proto_kgc(curr_proto(L), ~(ptrdiff_t)bc_d(ins)))); + o2 = &tv; + } else if (op == BC_ISEQN) { + o2 = &mref(curr_proto(L)->k, cTValue)[bc_d(ins)]; + } else { + lua_assert(op == BC_ISEQP); + setitype(&tv, ~bc_d(ins)); + o2 = &tv; + } + mo = lj_meta_lookup(L, o1mm, MM_eq); + if (LJ_LIKELY(!tvisnil(mo))) + return mmcall(L, cont, mo, o1, o2); + else + return (TValue *)(intptr_t)(bc_op(ins) & 1); +} +#endif + +/* Helper for ordered comparisons. String compare, __lt/__le metamethods. */ +TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op) +{ + if (LJ_HASFFI && (tviscdata(o1) || tviscdata(o2))) { + ASMFunction cont = (op & 1) ? lj_cont_condf : lj_cont_condt; + MMS mm = (op & 2) ? MM_le : MM_lt; + cTValue *mo = lj_meta_lookup(L, tviscdata(o1) ? o1 : o2, mm); + if (LJ_UNLIKELY(tvisnil(mo))) goto err; + return mmcall(L, cont, mo, o1, o2); + } else if (LJ_52 || itype(o1) == itype(o2)) { + /* Never called with two numbers. */ + if (tvisstr(o1) && tvisstr(o2)) { + int32_t res = lj_str_cmp(strV(o1), strV(o2)); + return (TValue *)(intptr_t)(((op&2) ? res <= 0 : res < 0) ^ (op&1)); + } else { + trymt: + while (1) { + ASMFunction cont = (op & 1) ? lj_cont_condf : lj_cont_condt; + MMS mm = (op & 2) ? MM_le : MM_lt; + cTValue *mo = lj_meta_lookup(L, o1, mm); +#if LJ_52 + if (tvisnil(mo) && tvisnil((mo = lj_meta_lookup(L, o2, mm)))) +#else + cTValue *mo2 = lj_meta_lookup(L, o2, mm); + if (tvisnil(mo) || !lj_obj_equal(mo, mo2)) +#endif + { + if (op & 2) { /* MM_le not found: retry with MM_lt. */ + cTValue *ot = o1; o1 = o2; o2 = ot; /* Swap operands. */ + op ^= 3; /* Use LT and flip condition. */ + continue; + } + goto err; + } + return mmcall(L, cont, mo, o1, o2); + } + } + } else if (tvisbool(o1) && tvisbool(o2)) { + goto trymt; + } else { + err: + lj_err_comp(L, o1, o2); + return NULL; + } +} + +/* Helper for calls. __call metamethod. */ +void lj_meta_call(lua_State *L, TValue *func, TValue *top) +{ + cTValue *mo = lj_meta_lookup(L, func, MM_call); + TValue *p; + if (!tvisfunc(mo)) + lj_err_optype_call(L, func); + for (p = top; p > func; p--) copyTV(L, p, p-1); + copyTV(L, func, mo); +} + +/* Helper for FORI. Coercion. */ +void LJ_FASTCALL lj_meta_for(lua_State *L, TValue *o) +{ + if (!lj_strscan_numberobj(o)) lj_err_msg(L, LJ_ERR_FORINIT); + if (!lj_strscan_numberobj(o+1)) lj_err_msg(L, LJ_ERR_FORLIM); + if (!lj_strscan_numberobj(o+2)) lj_err_msg(L, LJ_ERR_FORSTEP); + if (LJ_DUALNUM) { + /* Ensure all slots are integers or all slots are numbers. */ + int32_t k[3]; + int nint = 0; + ptrdiff_t i; + for (i = 0; i <= 2; i++) { + if (tvisint(o+i)) { + k[i] = intV(o+i); nint++; + } else { + k[i] = lj_num2int(numV(o+i)); nint += ((lua_Number)k[i] == numV(o+i)); + } + } + if (nint == 3) { /* Narrow to integers. */ + setintV(o, k[0]); + setintV(o+1, k[1]); + setintV(o+2, k[2]); + } else if (nint != 0) { /* Widen to numbers. */ + if (tvisint(o)) setnumV(o, (lua_Number)intV(o)); + if (tvisint(o+1)) setnumV(o+1, (lua_Number)intV(o+1)); + if (tvisint(o+2)) setnumV(o+2, (lua_Number)intV(o+2)); + } + } +} + diff --git a/src/3rd party/luajit-2.0/src/lj_meta.h b/src/3rd party/luajit-2.0/src/lj_meta.h new file mode 100644 index 00000000000..2c1ad0dd9b8 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_meta.h @@ -0,0 +1,37 @@ +/* +** Metamethod handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_META_H +#define _LJ_META_H + +#include "lj_obj.h" + +/* Metamethod handling */ +LJ_FUNC void lj_meta_init(lua_State *L); +LJ_FUNC cTValue *lj_meta_cache(GCtab *mt, MMS mm, GCstr *name); +LJ_FUNC cTValue *lj_meta_lookup(lua_State *L, cTValue *o, MMS mm); +#if LJ_HASFFI +LJ_FUNC int lj_meta_tailcall(lua_State *L, cTValue *tv); +#endif + +#define lj_meta_fastg(g, mt, mm) \ + ((mt) == NULL ? NULL : ((mt)->nomm & (1u<<(mm))) ? NULL : \ + lj_meta_cache(mt, mm, mmname_str(g, mm))) +#define lj_meta_fast(L, mt, mm) lj_meta_fastg(G(L), mt, mm) + +/* C helpers for some instructions, called from assembler VM. */ +LJ_FUNCA cTValue *lj_meta_tget(lua_State *L, cTValue *o, cTValue *k); +LJ_FUNCA TValue *lj_meta_tset(lua_State *L, cTValue *o, cTValue *k); +LJ_FUNCA TValue *lj_meta_arith(lua_State *L, TValue *ra, cTValue *rb, + cTValue *rc, BCReg op); +LJ_FUNCA TValue *lj_meta_cat(lua_State *L, TValue *top, int left); +LJ_FUNCA TValue * LJ_FASTCALL lj_meta_len(lua_State *L, cTValue *o); +LJ_FUNCA TValue *lj_meta_equal(lua_State *L, GCobj *o1, GCobj *o2, int ne); +LJ_FUNCA TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins); +LJ_FUNCA TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op); +LJ_FUNCA void lj_meta_call(lua_State *L, TValue *func, TValue *top); +LJ_FUNCA void LJ_FASTCALL lj_meta_for(lua_State *L, TValue *o); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_obj.c b/src/3rd party/luajit-2.0/src/lj_obj.c new file mode 100644 index 00000000000..7fab714e5c9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_obj.c @@ -0,0 +1,35 @@ +/* +** Miscellaneous object handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_obj_c +#define LUA_CORE + +#include "lj_obj.h" + +/* Object type names. */ +LJ_DATADEF const char *const lj_obj_typename[] = { /* ORDER LUA_T */ + "no value", "nil", "boolean", "userdata", "number", "string", + "table", "function", "userdata", "thread", "proto", "cdata" +}; + +LJ_DATADEF const char *const lj_obj_itypename[] = { /* ORDER LJ_T */ + "nil", "boolean", "boolean", "userdata", "string", "upval", "thread", + "proto", "function", "trace", "cdata", "table", "userdata", "number" +}; + +/* Compare two objects without calling metamethods. */ +int lj_obj_equal(cTValue *o1, cTValue *o2) +{ + if (itype(o1) == itype(o2)) { + if (tvispri(o1)) + return 1; + if (!tvisnum(o1)) + return gcrefeq(o1->gcr, o2->gcr); + } else if (!tvisnumber(o1) || !tvisnumber(o2)) { + return 0; + } + return numberVnum(o1) == numberVnum(o2); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_obj.h b/src/3rd party/luajit-2.0/src/lj_obj.h new file mode 100644 index 00000000000..6e8381cbadf --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_obj.h @@ -0,0 +1,856 @@ +/* +** LuaJIT VM tags, values and objects. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#ifndef _LJ_OBJ_H +#define _LJ_OBJ_H + +#include "lua.h" +#include "lj_def.h" +#include "lj_arch.h" + +/* -- Memory references (32 bit address space) ---------------------------- */ + +/* Memory size. */ +typedef uint32_t MSize; + +/* Memory reference */ +typedef struct MRef { + uint32_t ptr32; /* Pseudo 32 bit pointer. */ +} MRef; + +#define mref(r, t) ((t *)(void *)(uintptr_t)(r).ptr32) + +#define setmref(r, p) ((r).ptr32 = (uint32_t)(uintptr_t)(void *)(p)) +#define setmrefr(r, v) ((r).ptr32 = (v).ptr32) + +/* -- GC object references (32 bit address space) ------------------------- */ + +/* GCobj reference */ +typedef struct GCRef { + uint32_t gcptr32; /* Pseudo 32 bit pointer. */ +} GCRef; + +/* Common GC header for all collectable objects. */ +#define GCHeader GCRef nextgc; uint8_t marked; uint8_t gct +/* This occupies 6 bytes, so use the next 2 bytes for non-32 bit fields. */ + +#define gcref(r) ((GCobj *)(uintptr_t)(r).gcptr32) +#define gcrefp(r, t) ((t *)(void *)(uintptr_t)(r).gcptr32) +#define gcrefu(r) ((r).gcptr32) +#define gcrefi(r) ((int32_t)(r).gcptr32) +#define gcrefeq(r1, r2) ((r1).gcptr32 == (r2).gcptr32) +#define gcnext(gc) (gcref((gc)->gch.nextgc)) + +#define setgcref(r, gc) ((r).gcptr32 = (uint32_t)(uintptr_t)&(gc)->gch) +#define setgcrefi(r, i) ((r).gcptr32 = (uint32_t)(i)) +#define setgcrefp(r, p) ((r).gcptr32 = (uint32_t)(uintptr_t)(p)) +#define setgcrefnull(r) ((r).gcptr32 = 0) +#define setgcrefr(r, v) ((r).gcptr32 = (v).gcptr32) + +/* IMPORTANT NOTE: +** +** All uses of the setgcref* macros MUST be accompanied with a write barrier. +** +** This is to ensure the integrity of the incremental GC. The invariant +** to preserve is that a black object never points to a white object. +** I.e. never store a white object into a field of a black object. +** +** It's ok to LEAVE OUT the write barrier ONLY in the following cases: +** - The source is not a GC object (NULL). +** - The target is a GC root. I.e. everything in global_State. +** - The target is a lua_State field (threads are never black). +** - The target is a stack slot, see setgcV et al. +** - The target is an open upvalue, i.e. pointing to a stack slot. +** - The target is a newly created object (i.e. marked white). But make +** sure nothing invokes the GC inbetween. +** - The target and the source are the same object (self-reference). +** - The target already contains the object (e.g. moving elements around). +** +** The most common case is a store to a stack slot. All other cases where +** a barrier has been omitted are annotated with a NOBARRIER comment. +** +** The same logic applies for stores to table slots (array part or hash +** part). ALL uses of lj_tab_set* require a barrier for the stored value +** *and* the stored key, based on the above rules. In practice this means +** a barrier is needed if *either* of the key or value are a GC object. +** +** It's ok to LEAVE OUT the write barrier in the following special cases: +** - The stored value is nil. The key doesn't matter because it's either +** not resurrected or lj_tab_newkey() will take care of the key barrier. +** - The key doesn't matter if the *previously* stored value is guaranteed +** to be non-nil (because the key is kept alive in the table). +** - The key doesn't matter if it's guaranteed not to be part of the table, +** since lj_tab_newkey() takes care of the key barrier. This applies +** trivially to new tables, but watch out for resurrected keys. Storing +** a nil value leaves the key in the table! +** +** In case of doubt use lj_gc_anybarriert() as it's rather cheap. It's used +** by the interpreter for all table stores. +** +** Note: In contrast to Lua's GC, LuaJIT's GC does *not* specially mark +** dead keys in tables. The reference is left in, but it's guaranteed to +** be never dereferenced as long as the value is nil. It's ok if the key is +** freed or if any object subsequently gets the same address. +** +** Not destroying dead keys helps to keep key hash slots stable. This avoids +** specialization back-off for HREFK when a value flips between nil and +** non-nil and the GC gets in the way. It also allows safely hoisting +** HREF/HREFK across GC steps. Dead keys are only removed if a table is +** resized (i.e. by NEWREF) and xREF must not be CSEd across a resize. +** +** The trade-off is that a write barrier for tables must take the key into +** account, too. Implicitly resurrecting the key by storing a non-nil value +** may invalidate the incremental GC invariant. +*/ + +/* -- Common type definitions --------------------------------------------- */ + +/* Types for handling bytecodes. Need this here, details in lj_bc.h. */ +typedef uint32_t BCIns; /* Bytecode instruction. */ +typedef uint32_t BCPos; /* Bytecode position. */ +typedef uint32_t BCReg; /* Bytecode register. */ +typedef int32_t BCLine; /* Bytecode line number. */ + +/* Internal assembler functions. Never call these directly from C. */ +typedef void (*ASMFunction)(void); + +/* Resizable string buffer. Need this here, details in lj_str.h. */ +typedef struct SBuf { + char *buf; /* String buffer base. */ + MSize n; /* String buffer length. */ + MSize sz; /* String buffer size. */ +} SBuf; + +/* -- Tags and values ----------------------------------------------------- */ + +/* Frame link. */ +typedef union { + int32_t ftsz; /* Frame type and size of previous frame. */ + MRef pcr; /* Overlaps PC for Lua frames. */ +} FrameLink; + +/* Tagged value. */ +typedef LJ_ALIGN(8) union TValue { + uint64_t u64; /* 64 bit pattern overlaps number. */ + lua_Number n; /* Number object overlaps split tag/value object. */ + struct { + LJ_ENDIAN_LOHI( + union { + GCRef gcr; /* GCobj reference (if any). */ + int32_t i; /* Integer value. */ + }; + , uint32_t it; /* Internal object tag. Must overlap MSW of number. */ + ) + }; + struct { + LJ_ENDIAN_LOHI( + GCRef func; /* Function for next frame (or dummy L). */ + , FrameLink tp; /* Link to previous frame. */ + ) + } fr; + struct { + LJ_ENDIAN_LOHI( + uint32_t lo; /* Lower 32 bits of number. */ + , uint32_t hi; /* Upper 32 bits of number. */ + ) + } u32; +} TValue; + +typedef const TValue cTValue; + +#define tvref(r) (mref(r, TValue)) + +/* More external and GCobj tags for internal objects. */ +#define LAST_TT LUA_TTHREAD +#define LUA_TPROTO (LAST_TT+1) +#define LUA_TCDATA (LAST_TT+2) + +/* Internal object tags. +** +** Internal tags overlap the MSW of a number object (must be a double). +** Interpreted as a double these are special NaNs. The FPU only generates +** one type of NaN (0xfff8_0000_0000_0000). So MSWs > 0xfff80000 are available +** for use as internal tags. Small negative numbers are used to shorten the +** encoding of type comparisons (reg/mem against sign-ext. 8 bit immediate). +** +** ---MSW---.---LSW--- +** primitive types | itype | | +** lightuserdata | itype | void * | (32 bit platforms) +** lightuserdata |ffff| void * | (64 bit platforms, 47 bit pointers) +** GC objects | itype | GCRef | +** int (LJ_DUALNUM)| itype | int | +** number -------double------ +** +** ORDER LJ_T +** Primitive types nil/false/true must be first, lightuserdata next. +** GC objects are at the end, table/userdata must be lowest. +** Also check lj_ir.h for similar ordering constraints. +*/ +#define LJ_TNIL (~0u) +#define LJ_TFALSE (~1u) +#define LJ_TTRUE (~2u) +#define LJ_TLIGHTUD (~3u) +#define LJ_TSTR (~4u) +#define LJ_TUPVAL (~5u) +#define LJ_TTHREAD (~6u) +#define LJ_TPROTO (~7u) +#define LJ_TFUNC (~8u) +#define LJ_TTRACE (~9u) +#define LJ_TCDATA (~10u) +#define LJ_TTAB (~11u) +#define LJ_TUDATA (~12u) +/* This is just the canonical number type used in some places. */ +#define LJ_TNUMX (~13u) + +/* Integers have itype == LJ_TISNUM doubles have itype < LJ_TISNUM */ +#if LJ_64 +#define LJ_TISNUM 0xfffeffffu +#else +#define LJ_TISNUM LJ_TNUMX +#endif +#define LJ_TISTRUECOND LJ_TFALSE +#define LJ_TISPRI LJ_TTRUE +#define LJ_TISGCV (LJ_TSTR+1) +#define LJ_TISTABUD LJ_TTAB + +/* -- String object ------------------------------------------------------- */ + +/* String object header. String payload follows. */ +typedef struct GCstr { + GCHeader; + uint8_t reserved; /* Used by lexer for fast lookup of reserved words. */ + uint8_t unused; + MSize hash; /* Hash of string. */ + MSize len; /* Size of string. */ +} GCstr; + +#define strref(r) (&gcref((r))->str) +#define strdata(s) ((const char *)((s)+1)) +#define strdatawr(s) ((char *)((s)+1)) +#define strVdata(o) strdata(strV(o)) +#define sizestring(s) (sizeof(struct GCstr)+(s)->len+1) + +/* -- Userdata object ----------------------------------------------------- */ + +/* Userdata object. Payload follows. */ +typedef struct GCudata { + GCHeader; + uint8_t udtype; /* Userdata type. */ + uint8_t unused2; + GCRef env; /* Should be at same offset in GCfunc. */ + MSize len; /* Size of payload. */ + GCRef metatable; /* Must be at same offset in GCtab. */ + uint32_t align1; /* To force 8 byte alignment of the payload. */ +} GCudata; + +/* Userdata types. */ +enum { + UDTYPE_USERDATA, /* Regular userdata. */ + UDTYPE_IO_FILE, /* I/O library FILE. */ + UDTYPE_FFI_CLIB, /* FFI C library namespace. */ + UDTYPE__MAX +}; + +#define uddata(u) ((void *)((u)+1)) +#define sizeudata(u) (sizeof(struct GCudata)+(u)->len) + +/* -- C data object ------------------------------------------------------- */ + +/* C data object. Payload follows. */ +typedef struct GCcdata { + GCHeader; + uint16_t ctypeid; /* C type ID. */ +} GCcdata; + +/* Prepended to variable-sized or realigned C data objects. */ +typedef struct GCcdataVar { + uint16_t offset; /* Offset to allocated memory (relative to GCcdata). */ + uint16_t extra; /* Extra space allocated (incl. GCcdata + GCcdatav). */ + MSize len; /* Size of payload. */ +} GCcdataVar; + +#define cdataptr(cd) ((void *)((cd)+1)) +#define cdataisv(cd) ((cd)->marked & 0x80) +#define cdatav(cd) ((GCcdataVar *)((char *)(cd) - sizeof(GCcdataVar))) +#define cdatavlen(cd) check_exp(cdataisv(cd), cdatav(cd)->len) +#define sizecdatav(cd) (cdatavlen(cd) + cdatav(cd)->extra) +#define memcdatav(cd) ((void *)((char *)(cd) - cdatav(cd)->offset)) + +/* -- Prototype object ---------------------------------------------------- */ + +#define SCALE_NUM_GCO ((int32_t)sizeof(lua_Number)/sizeof(GCRef)) +#define round_nkgc(n) (((n) + SCALE_NUM_GCO-1) & ~(SCALE_NUM_GCO-1)) + +typedef struct GCproto { + GCHeader; + uint8_t numparams; /* Number of parameters. */ + uint8_t framesize; /* Fixed frame size. */ + MSize sizebc; /* Number of bytecode instructions. */ + GCRef gclist; + MRef k; /* Split constant array (points to the middle). */ + MRef uv; /* Upvalue list. local slot|0x8000 or parent uv idx. */ + MSize sizekgc; /* Number of collectable constants. */ + MSize sizekn; /* Number of lua_Number constants. */ + MSize sizept; /* Total size including colocated arrays. */ + uint8_t sizeuv; /* Number of upvalues. */ + uint8_t flags; /* Miscellaneous flags (see below). */ + uint16_t trace; /* Anchor for chain of root traces. */ + /* ------ The following fields are for debugging/tracebacks only ------ */ + GCRef chunkname; /* Name of the chunk this function was defined in. */ + BCLine firstline; /* First line of the function definition. */ + BCLine numline; /* Number of lines for the function definition. */ + MRef lineinfo; /* Compressed map from bytecode ins. to source line. */ + MRef uvinfo; /* Upvalue names. */ + MRef varinfo; /* Names and compressed extents of local variables. */ +} GCproto; + +/* Flags for prototype. */ +#define PROTO_CHILD 0x01 /* Has child prototypes. */ +#define PROTO_VARARG 0x02 /* Vararg function. */ +#define PROTO_FFI 0x04 /* Uses BC_KCDATA for FFI datatypes. */ +#define PROTO_NOJIT 0x08 /* JIT disabled for this function. */ +#define PROTO_ILOOP 0x10 /* Patched bytecode with ILOOP etc. */ +/* Only used during parsing. */ +#define PROTO_HAS_RETURN 0x20 /* Already emitted a return. */ +#define PROTO_FIXUP_RETURN 0x40 /* Need to fixup emitted returns. */ +/* Top bits used for counting created closures. */ +#define PROTO_CLCOUNT 0x20 /* Base of saturating 3 bit counter. */ +#define PROTO_CLC_BITS 3 +#define PROTO_CLC_POLY (3*PROTO_CLCOUNT) /* Polymorphic threshold. */ + +#define PROTO_UV_LOCAL 0x8000 /* Upvalue for local slot. */ +#define PROTO_UV_IMMUTABLE 0x4000 /* Immutable upvalue. */ + +#define proto_kgc(pt, idx) \ + check_exp((uintptr_t)(intptr_t)(idx) >= (uintptr_t)-(intptr_t)(pt)->sizekgc, \ + gcref(mref((pt)->k, GCRef)[(idx)])) +#define proto_knumtv(pt, idx) \ + check_exp((uintptr_t)(idx) < (pt)->sizekn, &mref((pt)->k, TValue)[(idx)]) +#define proto_bc(pt) ((BCIns *)((char *)(pt) + sizeof(GCproto))) +#define proto_bcpos(pt, pc) ((BCPos)((pc) - proto_bc(pt))) +#define proto_uv(pt) (mref((pt)->uv, uint16_t)) + +#define proto_chunkname(pt) (strref((pt)->chunkname)) +#define proto_chunknamestr(pt) (strdata(proto_chunkname((pt)))) +#define proto_lineinfo(pt) (mref((pt)->lineinfo, const void)) +#define proto_uvinfo(pt) (mref((pt)->uvinfo, const uint8_t)) +#define proto_varinfo(pt) (mref((pt)->varinfo, const uint8_t)) + +/* -- Upvalue object ------------------------------------------------------ */ + +typedef struct GCupval { + GCHeader; + uint8_t closed; /* Set if closed (i.e. uv->v == &uv->u.value). */ + uint8_t immutable; /* Immutable value. */ + union { + TValue tv; /* If closed: the value itself. */ + struct { /* If open: double linked list, anchored at thread. */ + GCRef prev; + GCRef next; + }; + }; + MRef v; /* Points to stack slot (open) or above (closed). */ + uint32_t dhash; /* Disambiguation hash: dh1 != dh2 => cannot alias. */ +} GCupval; + +#define uvprev(uv_) (&gcref((uv_)->prev)->uv) +#define uvnext(uv_) (&gcref((uv_)->next)->uv) +#define uvval(uv_) (mref((uv_)->v, TValue)) + +/* -- Function object (closures) ------------------------------------------ */ + +/* Common header for functions. env should be at same offset in GCudata. */ +#define GCfuncHeader \ + GCHeader; uint8_t ffid; uint8_t nupvalues; \ + GCRef env; GCRef gclist; MRef pc + +typedef struct GCfuncC { + GCfuncHeader; + lua_CFunction f; /* C function to be called. */ + TValue upvalue[1]; /* Array of upvalues (TValue). */ +} GCfuncC; + +typedef struct GCfuncL { + GCfuncHeader; + GCRef uvptr[1]; /* Array of _pointers_ to upvalue objects (GCupval). */ +} GCfuncL; + +typedef union GCfunc { + GCfuncC c; + GCfuncL l; +} GCfunc; + +#define FF_LUA 0 +#define FF_C 1 +#define isluafunc(fn) ((fn)->c.ffid == FF_LUA) +#define iscfunc(fn) ((fn)->c.ffid == FF_C) +#define isffunc(fn) ((fn)->c.ffid > FF_C) +#define funcproto(fn) \ + check_exp(isluafunc(fn), (GCproto *)(mref((fn)->l.pc, char)-sizeof(GCproto))) +#define sizeCfunc(n) (sizeof(GCfuncC)-sizeof(TValue)+sizeof(TValue)*(n)) +#define sizeLfunc(n) (sizeof(GCfuncL)-sizeof(GCRef)+sizeof(GCRef)*(n)) + +/* -- Table object -------------------------------------------------------- */ + +/* Hash node. */ +typedef struct Node { + TValue val; /* Value object. Must be first field. */ + TValue key; /* Key object. */ + MRef next; /* Hash chain. */ + MRef freetop; /* Top of free elements (stored in t->node[0]). */ +} Node; + +LJ_STATIC_ASSERT(offsetof(Node, val) == 0); + +typedef struct GCtab { + GCHeader; + uint8_t nomm; /* Negative cache for fast metamethods. */ + int8_t colo; /* Array colocation. */ + MRef array; /* Array part. */ + GCRef gclist; + GCRef metatable; /* Must be at same offset in GCudata. */ + MRef node; /* Hash part. */ + uint32_t asize; /* Size of array part (keys [0, asize-1]). */ + uint32_t hmask; /* Hash part mask (size of hash part - 1). */ +} GCtab; + +#define sizetabcolo(n) ((n)*sizeof(TValue) + sizeof(GCtab)) +#define tabref(r) (&gcref((r))->tab) +#define noderef(r) (mref((r), Node)) +#define nextnode(n) (mref((n)->next, Node)) + +/* -- State objects ------------------------------------------------------- */ + +/* VM states. */ +enum { + LJ_VMST_INTERP, /* Interpreter. */ + LJ_VMST_C, /* C function. */ + LJ_VMST_GC, /* Garbage collector. */ + LJ_VMST_EXIT, /* Trace exit handler. */ + LJ_VMST_RECORD, /* Trace recorder. */ + LJ_VMST_OPT, /* Optimizer. */ + LJ_VMST_ASM, /* Assembler. */ + LJ_VMST__MAX +}; + +#define setvmstate(g, st) ((g)->vmstate = ~LJ_VMST_##st) + +/* Metamethods. ORDER MM */ +#ifdef LJ_HASFFI +#define MMDEF_FFI(_) _(new) +#else +#define MMDEF_FFI(_) +#endif + +#if LJ_52 || LJ_HASFFI +#define MMDEF_PAIRS(_) _(pairs) _(ipairs) +#else +#define MMDEF_PAIRS(_) +#define MM_pairs 255 +#define MM_ipairs 255 +#endif + +#define MMDEF(_) \ + _(index) _(newindex) _(gc) _(mode) _(eq) _(len) \ + /* Only the above (fast) metamethods are negative cached (max. 8). */ \ + _(lt) _(le) _(concat) _(call) \ + /* The following must be in ORDER ARITH. */ \ + _(add) _(sub) _(mul) _(div) _(mod) _(pow) _(unm) \ + /* The following are used in the standard libraries. */ \ + _(metatable) _(tostring) MMDEF_FFI(_) MMDEF_PAIRS(_) + +typedef enum { +#define MMENUM(name) MM_##name, +MMDEF(MMENUM) +#undef MMENUM + MM__MAX, + MM____ = MM__MAX, + MM_FAST = MM_len +} MMS; + +/* GC root IDs. */ +typedef enum { + GCROOT_MMNAME, /* Metamethod names. */ + GCROOT_MMNAME_LAST = GCROOT_MMNAME + MM__MAX-1, + GCROOT_BASEMT, /* Metatables for base types. */ + GCROOT_BASEMT_NUM = GCROOT_BASEMT + ~LJ_TNUMX, + GCROOT_IO_INPUT, /* Userdata for default I/O input file. */ + GCROOT_IO_OUTPUT, /* Userdata for default I/O output file. */ + GCROOT_MAX +} GCRootID; + +#define basemt_it(g, it) ((g)->gcroot[GCROOT_BASEMT+~(it)]) +#define basemt_obj(g, o) ((g)->gcroot[GCROOT_BASEMT+itypemap(o)]) +#define mmname_str(g, mm) (strref((g)->gcroot[GCROOT_MMNAME+(mm)])) + +typedef struct GCState { + MSize total; /* Memory currently allocated. */ + MSize threshold; /* Memory threshold. */ + uint8_t currentwhite; /* Current white color. */ + uint8_t state; /* GC state. */ + uint8_t nocdatafin; /* No cdata finalizer called. */ + uint8_t unused2; + MSize sweepstr; /* Sweep position in string table. */ + GCRef root; /* List of all collectable objects. */ + MRef sweep; /* Sweep position in root list. */ + GCRef gray; /* List of gray objects. */ + GCRef grayagain; /* List of objects for atomic traversal. */ + GCRef weak; /* List of weak tables (to be cleared). */ + GCRef mmudata; /* List of userdata (to be finalized). */ + MSize stepmul; /* Incremental GC step granularity. */ + MSize debt; /* Debt (how much GC is behind schedule). */ + MSize estimate; /* Estimate of memory actually in use. */ + MSize pause; /* Pause between successive GC cycles. */ +} GCState; + +/* Global state, shared by all threads of a Lua universe. */ +typedef struct global_State { + GCRef *strhash; /* String hash table (hash chain anchors). */ + MSize strmask; /* String hash mask (size of hash table - 1). */ + MSize strnum; /* Number of strings in hash table. */ + lua_Alloc allocf; /* Memory allocator. */ + void *allocd; /* Memory allocator data. */ + GCState gc; /* Garbage collector. */ + SBuf tmpbuf; /* Temporary buffer for string concatenation. */ + Node nilnode; /* Fallback 1-element hash part (nil key and value). */ + GCstr strempty; /* Empty string. */ + uint8_t stremptyz; /* Zero terminator of empty string. */ + uint8_t hookmask; /* Hook mask. */ + uint8_t dispatchmode; /* Dispatch mode. */ + uint8_t vmevmask; /* VM event mask. */ + GCRef mainthref; /* Link to main thread. */ + TValue registrytv; /* Anchor for registry. */ + TValue tmptv, tmptv2; /* Temporary TValues. */ + GCupval uvhead; /* Head of double-linked list of all open upvalues. */ + int32_t hookcount; /* Instruction hook countdown. */ + int32_t hookcstart; /* Start count for instruction hook counter. */ + lua_Hook hookf; /* Hook function. */ + lua_CFunction wrapf; /* Wrapper for C function calls. */ + lua_CFunction panic; /* Called as a last resort for errors. */ + volatile int32_t vmstate; /* VM state or current JIT code trace number. */ + BCIns bc_cfunc_int; /* Bytecode for internal C function calls. */ + BCIns bc_cfunc_ext; /* Bytecode for external C function calls. */ + GCRef jit_L; /* Current JIT code lua_State or NULL. */ + MRef jit_base; /* Current JIT code L->base. */ + MRef ctype_state; /* Pointer to C type state. */ + GCRef gcroot[GCROOT_MAX]; /* GC roots. */ +} global_State; + +#define mainthread(g) (&gcref(g->mainthref)->th) +#define niltv(L) \ + check_exp(tvisnil(&G(L)->nilnode.val), &G(L)->nilnode.val) +#define niltvg(g) \ + check_exp(tvisnil(&(g)->nilnode.val), &(g)->nilnode.val) + +/* Hook management. Hook event masks are defined in lua.h. */ +#define HOOK_EVENTMASK 0x0f +#define HOOK_ACTIVE 0x10 +#define HOOK_ACTIVE_SHIFT 4 +#define HOOK_VMEVENT 0x20 +#define HOOK_GC 0x40 +#define hook_active(g) ((g)->hookmask & HOOK_ACTIVE) +#define hook_enter(g) ((g)->hookmask |= HOOK_ACTIVE) +#define hook_entergc(g) ((g)->hookmask |= (HOOK_ACTIVE|HOOK_GC)) +#define hook_vmevent(g) ((g)->hookmask |= (HOOK_ACTIVE|HOOK_VMEVENT)) +#define hook_leave(g) ((g)->hookmask &= ~HOOK_ACTIVE) +#define hook_save(g) ((g)->hookmask & ~HOOK_EVENTMASK) +#define hook_restore(g, h) \ + ((g)->hookmask = ((g)->hookmask & HOOK_EVENTMASK) | (h)) + +/* Per-thread state object. */ +struct lua_State { + GCHeader; + uint8_t dummy_ffid; /* Fake FF_C for curr_funcisL() on dummy frames. */ + uint8_t status; /* Thread status. */ + MRef glref; /* Link to global state. */ + GCRef gclist; /* GC chain. */ + TValue *base; /* Base of currently executing function. */ + TValue *top; /* First free slot in the stack. */ + MRef maxstack; /* Last free slot in the stack. */ + MRef stack; /* Stack base. */ + GCRef openupval; /* List of open upvalues in the stack. */ + GCRef env; /* Thread environment (table of globals). */ + void *cframe; /* End of C stack frame chain. */ + MSize stacksize; /* True stack size (incl. LJ_STACK_EXTRA). */ +}; + +#define G(L) (mref(L->glref, global_State)) +#define registry(L) (&G(L)->registrytv) + +/* Macros to access the currently executing (Lua) function. */ +#define curr_func(L) (&gcref((L->base-1)->fr.func)->fn) +#define curr_funcisL(L) (isluafunc(curr_func(L))) +#define curr_proto(L) (funcproto(curr_func(L))) +#define curr_topL(L) (L->base + curr_proto(L)->framesize) +#define curr_top(L) (curr_funcisL(L) ? curr_topL(L) : L->top) + +/* -- GC object definition and conversions -------------------------------- */ + +/* GC header for generic access to common fields of GC objects. */ +typedef struct GChead { + GCHeader; + uint8_t unused1; + uint8_t unused2; + GCRef env; + GCRef gclist; + GCRef metatable; +} GChead; + +/* The env field SHOULD be at the same offset for all GC objects. */ +LJ_STATIC_ASSERT(offsetof(GChead, env) == offsetof(GCfuncL, env)); +LJ_STATIC_ASSERT(offsetof(GChead, env) == offsetof(GCudata, env)); + +/* The metatable field MUST be at the same offset for all GC objects. */ +LJ_STATIC_ASSERT(offsetof(GChead, metatable) == offsetof(GCtab, metatable)); +LJ_STATIC_ASSERT(offsetof(GChead, metatable) == offsetof(GCudata, metatable)); + +/* The gclist field MUST be at the same offset for all GC objects. */ +LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(lua_State, gclist)); +LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCproto, gclist)); +LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCfuncL, gclist)); +LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCtab, gclist)); + +typedef union GCobj { + GChead gch; + GCstr str; + GCupval uv; + lua_State th; + GCproto pt; + GCfunc fn; + GCcdata cd; + GCtab tab; + GCudata ud; +} GCobj; + +/* Macros to convert a GCobj pointer into a specific value. */ +#define gco2str(o) check_exp((o)->gch.gct == ~LJ_TSTR, &(o)->str) +#define gco2uv(o) check_exp((o)->gch.gct == ~LJ_TUPVAL, &(o)->uv) +#define gco2th(o) check_exp((o)->gch.gct == ~LJ_TTHREAD, &(o)->th) +#define gco2pt(o) check_exp((o)->gch.gct == ~LJ_TPROTO, &(o)->pt) +#define gco2func(o) check_exp((o)->gch.gct == ~LJ_TFUNC, &(o)->fn) +#define gco2cd(o) check_exp((o)->gch.gct == ~LJ_TCDATA, &(o)->cd) +#define gco2tab(o) check_exp((o)->gch.gct == ~LJ_TTAB, &(o)->tab) +#define gco2ud(o) check_exp((o)->gch.gct == ~LJ_TUDATA, &(o)->ud) + +/* Macro to convert any collectable object into a GCobj pointer. */ +#define obj2gco(v) ((GCobj *)(v)) + +/* -- TValue getters/setters ---------------------------------------------- */ + +#ifdef LUA_USE_ASSERT +#include "lj_gc.h" +#endif + +/* Macros to test types. */ +#define itype(o) ((o)->it) +#define tvisnil(o) (itype(o) == LJ_TNIL) +#define tvisfalse(o) (itype(o) == LJ_TFALSE) +#define tvistrue(o) (itype(o) == LJ_TTRUE) +#define tvisbool(o) (tvisfalse(o) || tvistrue(o)) +#if LJ_64 +#define tvislightud(o) (((int32_t)itype(o) >> 15) == -2) +#else +#define tvislightud(o) (itype(o) == LJ_TLIGHTUD) +#endif +#define tvisstr(o) (itype(o) == LJ_TSTR) +#define tvisfunc(o) (itype(o) == LJ_TFUNC) +#define tvisthread(o) (itype(o) == LJ_TTHREAD) +#define tvisproto(o) (itype(o) == LJ_TPROTO) +#define tviscdata(o) (itype(o) == LJ_TCDATA) +#define tvistab(o) (itype(o) == LJ_TTAB) +#define tvisudata(o) (itype(o) == LJ_TUDATA) +#define tvisnumber(o) (itype(o) <= LJ_TISNUM) +#define tvisint(o) (LJ_DUALNUM && itype(o) == LJ_TISNUM) +#define tvisnum(o) (itype(o) < LJ_TISNUM) + +#define tvistruecond(o) (itype(o) < LJ_TISTRUECOND) +#define tvispri(o) (itype(o) >= LJ_TISPRI) +#define tvistabud(o) (itype(o) <= LJ_TISTABUD) /* && !tvisnum() */ +#define tvisgcv(o) ((itype(o) - LJ_TISGCV) > (LJ_TNUMX - LJ_TISGCV)) + +/* Special macros to test numbers for NaN, +0, -0, +1 and raw equality. */ +#define tvisnan(o) ((o)->n != (o)->n) +#if LJ_64 +#define tviszero(o) (((o)->u64 << 1) == 0) +#else +#define tviszero(o) (((o)->u32.lo | ((o)->u32.hi << 1)) == 0) +#endif +#define tvispzero(o) ((o)->u64 == 0) +#define tvismzero(o) ((o)->u64 == U64x(80000000,00000000)) +#define tvispone(o) ((o)->u64 == U64x(3ff00000,00000000)) +#define rawnumequal(o1, o2) ((o1)->u64 == (o2)->u64) + +/* Macros to convert type ids. */ +#if LJ_64 +#define itypemap(o) \ + (tvisnumber(o) ? ~LJ_TNUMX : tvislightud(o) ? ~LJ_TLIGHTUD : ~itype(o)) +#else +#define itypemap(o) (tvisnumber(o) ? ~LJ_TNUMX : ~itype(o)) +#endif + +/* Macros to get tagged values. */ +#define gcval(o) (gcref((o)->gcr)) +#define boolV(o) check_exp(tvisbool(o), (LJ_TFALSE - (o)->it)) +#if LJ_64 +#define lightudV(o) \ + check_exp(tvislightud(o), (void *)((o)->u64 & U64x(00007fff,ffffffff))) +#else +#define lightudV(o) check_exp(tvislightud(o), gcrefp((o)->gcr, void)) +#endif +#define gcV(o) check_exp(tvisgcv(o), gcval(o)) +#define strV(o) check_exp(tvisstr(o), &gcval(o)->str) +#define funcV(o) check_exp(tvisfunc(o), &gcval(o)->fn) +#define threadV(o) check_exp(tvisthread(o), &gcval(o)->th) +#define protoV(o) check_exp(tvisproto(o), &gcval(o)->pt) +#define cdataV(o) check_exp(tviscdata(o), &gcval(o)->cd) +#define tabV(o) check_exp(tvistab(o), &gcval(o)->tab) +#define udataV(o) check_exp(tvisudata(o), &gcval(o)->ud) +#define numV(o) check_exp(tvisnum(o), (o)->n) +#define intV(o) check_exp(tvisint(o), (int32_t)(o)->i) + +/* Macros to set tagged values. */ +#define setitype(o, i) ((o)->it = (i)) +#define setnilV(o) ((o)->it = LJ_TNIL) +#define setboolV(o, x) ((o)->it = LJ_TFALSE-(uint32_t)(x)) + +static LJ_AINLINE void setlightudV(TValue *o, void *p) +{ +#if LJ_64 + o->u64 = (uint64_t)p | (((uint64_t)0xffff) << 48); +#else + setgcrefp(o->gcr, p); setitype(o, LJ_TLIGHTUD); +#endif +} + +#if LJ_64 +#define checklightudptr(L, p) \ + (((uint64_t)(p) >> 47) ? (lj_err_msg(L, LJ_ERR_BADLU), NULL) : (p)) +#define setcont(o, f) \ + ((o)->u64 = (uint64_t)(void *)(f) - (uint64_t)lj_vm_asm_begin) +#else +#define checklightudptr(L, p) (p) +#define setcont(o, f) setlightudV((o), (void *)(f)) +#endif + +#define tvchecklive(L, o) \ + UNUSED(L), lua_assert(!tvisgcv(o) || \ + ((~itype(o) == gcval(o)->gch.gct) && !isdead(G(L), gcval(o)))) + +static LJ_AINLINE void setgcV(lua_State *L, TValue *o, GCobj *v, uint32_t itype) +{ + setgcref(o->gcr, v); setitype(o, itype); tvchecklive(L, o); +} + +#define define_setV(name, type, tag) \ +static LJ_AINLINE void name(lua_State *L, TValue *o, type *v) \ +{ \ + setgcV(L, o, obj2gco(v), tag); \ +} +define_setV(setstrV, GCstr, LJ_TSTR) +define_setV(setthreadV, lua_State, LJ_TTHREAD) +define_setV(setprotoV, GCproto, LJ_TPROTO) +define_setV(setfuncV, GCfunc, LJ_TFUNC) +define_setV(setcdataV, GCcdata, LJ_TCDATA) +define_setV(settabV, GCtab, LJ_TTAB) +define_setV(setudataV, GCudata, LJ_TUDATA) + +#define setnumV(o, x) ((o)->n = (x)) +#define setnanV(o) ((o)->u64 = U64x(fff80000,00000000)) +#define setpinfV(o) ((o)->u64 = U64x(7ff00000,00000000)) +#define setminfV(o) ((o)->u64 = U64x(fff00000,00000000)) + +static LJ_AINLINE void setintV(TValue *o, int32_t i) +{ +#if LJ_DUALNUM + o->i = (uint32_t)i; setitype(o, LJ_TISNUM); +#else + o->n = (lua_Number)i; +#endif +} + +static LJ_AINLINE void setint64V(TValue *o, int64_t i) +{ + if (LJ_DUALNUM && LJ_LIKELY(i == (int64_t)(int32_t)i)) + setintV(o, (int32_t)i); + else + setnumV(o, (lua_Number)i); +} + +#if LJ_64 +#define setintptrV(o, i) setint64V((o), (i)) +#else +#define setintptrV(o, i) setintV((o), (i)) +#endif + +/* Copy tagged values. */ +static LJ_AINLINE void copyTV(lua_State *L, TValue *o1, const TValue *o2) +{ + *o1 = *o2; tvchecklive(L, o1); +} + +/* -- Number to integer conversion ---------------------------------------- */ + +#if LJ_SOFTFP +LJ_ASMF int32_t lj_vm_tobit(double x); +#endif + +static LJ_AINLINE int32_t lj_num2bit(lua_Number n) +{ +#if LJ_SOFTFP + return lj_vm_tobit(n); +#else + TValue o; + o.n = n + 6755399441055744.0; /* 2^52 + 2^51 */ + return (int32_t)o.u32.lo; +#endif +} + +#if LJ_TARGET_X86 && !defined(__SSE2__) +#define lj_num2int(n) lj_num2bit((n)) +#else +#define lj_num2int(n) ((int32_t)(n)) +#endif + +static LJ_AINLINE uint64_t lj_num2u64(lua_Number n) +{ +#ifdef _MSC_VER + if (n >= 9223372036854775808.0) /* They think it's a feature. */ + return (uint64_t)(int64_t)(n - 18446744073709551616.0); + else +#endif + return (uint64_t)n; +} + +static LJ_AINLINE int32_t numberVint(cTValue *o) +{ + if (LJ_LIKELY(tvisint(o))) + return intV(o); + else + return lj_num2int(numV(o)); +} + +static LJ_AINLINE lua_Number numberVnum(cTValue *o) +{ + if (LJ_UNLIKELY(tvisint(o))) + return (lua_Number)intV(o); + else + return numV(o); +} + +/* -- Miscellaneous object handling --------------------------------------- */ + +/* Names and maps for internal and external object tags. */ +LJ_DATA const char *const lj_obj_typename[1+LUA_TCDATA+1]; +LJ_DATA const char *const lj_obj_itypename[~LJ_TNUMX+1]; + +#define lj_typename(o) (lj_obj_itypename[itypemap(o)]) + +/* Compare two objects without calling metamethods. */ +LJ_FUNC int lj_obj_equal(cTValue *o1, cTValue *o2); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_dce.c b/src/3rd party/luajit-2.0/src/lj_opt_dce.c new file mode 100644 index 00000000000..7f1faafe647 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_dce.c @@ -0,0 +1,78 @@ +/* +** DCE: Dead Code Elimination. Pre-LOOP only -- ASM already performs DCE. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_dce_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Scan through all snapshots and mark all referenced instructions. */ +static void dce_marksnap(jit_State *J) +{ + SnapNo i, nsnap = J->cur.nsnap; + for (i = 0; i < nsnap; i++) { + SnapShot *snap = &J->cur.snap[i]; + SnapEntry *map = &J->cur.snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + IRRef ref = snap_ref(map[n]); + if (ref >= REF_FIRST) + irt_setmark(IR(ref)->t); + } + } +} + +/* Backwards propagate marks. Replace unused instructions with NOPs. */ +static void dce_propagate(jit_State *J) +{ + IRRef1 *pchain[IR__MAX]; + IRRef ins; + uint32_t i; + for (i = 0; i < IR__MAX; i++) pchain[i] = &J->chain[i]; + for (ins = J->cur.nins-1; ins >= REF_FIRST; ins--) { + IRIns *ir = IR(ins); + if (irt_ismarked(ir->t)) { + irt_clearmark(ir->t); + pchain[ir->o] = &ir->prev; + } else if (!ir_sideeff(ir)) { + *pchain[ir->o] = ir->prev; /* Reroute original instruction chain. */ + ir->t.irt = IRT_NIL; + ir->o = IR_NOP; /* Replace instruction with NOP. */ + ir->op1 = ir->op2 = 0; + ir->prev = 0; + continue; + } + if (ir->op1 >= REF_FIRST) irt_setmark(IR(ir->op1)->t); + if (ir->op2 >= REF_FIRST) irt_setmark(IR(ir->op2)->t); + } +} + +/* Dead Code Elimination. +** +** First backpropagate marks for all used instructions. Then replace +** the unused ones with a NOP. Note that compressing the IR to eliminate +** the NOPs does not pay off. +*/ +void lj_opt_dce(jit_State *J) +{ + if ((J->flags & JIT_F_OPT_DCE)) { + dce_marksnap(J); + dce_propagate(J); + memset(J->bpropcache, 0, sizeof(J->bpropcache)); /* Invalidate cache. */ + } +} + +#undef IR + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_fold.c b/src/3rd party/luajit-2.0/src/lj_opt_fold.c new file mode 100644 index 00000000000..7d45b7b5b57 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_fold.c @@ -0,0 +1,2299 @@ +/* +** FOLD: Constant Folding, Algebraic Simplifications and Reassociation. +** ABCelim: Array Bounds Check Elimination. +** CSE: Common-Subexpression Elimination. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_fold_c +#define LUA_CORE + +#include + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#include "lj_carith.h" +#include "lj_vm.h" +#include "lj_strscan.h" + +/* Here's a short description how the FOLD engine processes instructions: +** +** The FOLD engine receives a single instruction stored in fins (J->fold.ins). +** The instruction and its operands are used to select matching fold rules. +** These are applied iteratively until a fixed point is reached. +** +** The 8 bit opcode of the instruction itself plus the opcodes of the +** two instructions referenced by its operands form a 24 bit key +** 'ins left right' (unused operands -> 0, literals -> lowest 8 bits). +** +** This key is used for partial matching against the fold rules. The +** left/right operand fields of the key are successively masked with +** the 'any' wildcard, from most specific to least specific: +** +** ins left right +** ins any right +** ins left any +** ins any any +** +** The masked key is used to lookup a matching fold rule in a semi-perfect +** hash table. If a matching rule is found, the related fold function is run. +** Multiple rules can share the same fold function. A fold rule may return +** one of several special values: +** +** - NEXTFOLD means no folding was applied, because an additional test +** inside the fold function failed. Matching continues against less +** specific fold rules. Finally the instruction is passed on to CSE. +** +** - RETRYFOLD means the instruction was modified in-place. Folding is +** retried as if this instruction had just been received. +** +** All other return values are terminal actions -- no further folding is +** applied: +** +** - INTFOLD(i) returns a reference to the integer constant i. +** +** - LEFTFOLD and RIGHTFOLD return the left/right operand reference +** without emitting an instruction. +** +** - CSEFOLD and EMITFOLD pass the instruction directly to CSE or emit +** it without passing through any further optimizations. +** +** - FAILFOLD, DROPFOLD and CONDFOLD only apply to instructions which have +** no result (e.g. guarded assertions): FAILFOLD means the guard would +** always fail, i.e. the current trace is pointless. DROPFOLD means +** the guard is always true and has been eliminated. CONDFOLD is a +** shortcut for FAILFOLD + cond (i.e. drop if true, otherwise fail). +** +** - Any other return value is interpreted as an IRRef or TRef. This +** can be a reference to an existing or a newly created instruction. +** Only the least-significant 16 bits (IRRef1) are used to form a TRef +** which is finally returned to the caller. +** +** The FOLD engine receives instructions both from the trace recorder and +** substituted instructions from LOOP unrolling. This means all types +** of instructions may end up here, even though the recorder bypasses +** FOLD in some cases. Thus all loads, stores and allocations must have +** an any/any rule to avoid being passed on to CSE. +** +** Carefully read the following requirements before adding or modifying +** any fold rules: +** +** Requirement #1: All fold rules must preserve their destination type. +** +** Consistently use INTFOLD() (KINT result) or lj_ir_knum() (KNUM result). +** Never use lj_ir_knumint() which can have either a KINT or KNUM result. +** +** Requirement #2: Fold rules should not create *new* instructions which +** reference operands *across* PHIs. +** +** E.g. a RETRYFOLD with 'fins->op1 = fleft->op1' is invalid if the +** left operand is a PHI. Then fleft->op1 would point across the PHI +** frontier to an invariant instruction. Adding a PHI for this instruction +** would be counterproductive. The solution is to add a barrier which +** prevents folding across PHIs, i.e. 'PHIBARRIER(fleft)' in this case. +** The only exception is for recurrences with high latencies like +** repeated int->num->int conversions. +** +** One could relax this condition a bit if the referenced instruction is +** a PHI, too. But this often leads to worse code due to excessive +** register shuffling. +** +** Note: returning *existing* instructions (e.g. LEFTFOLD) is ok, though. +** Even returning fleft->op1 would be ok, because a new PHI will added, +** if needed. But again, this leads to excessive register shuffling and +** should be avoided. +** +** Requirement #3: The set of all fold rules must be monotonic to guarantee +** termination. +** +** The goal is optimization, so one primarily wants to add strength-reducing +** rules. This means eliminating an instruction or replacing an instruction +** with one or more simpler instructions. Don't add fold rules which point +** into the other direction. +** +** Some rules (like commutativity) do not directly reduce the strength of +** an instruction, but enable other fold rules (e.g. by moving constants +** to the right operand). These rules must be made unidirectional to avoid +** cycles. +** +** Rule of thumb: the trace recorder expands the IR and FOLD shrinks it. +*/ + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) +#define fins (&J->fold.ins) +#define fleft (&J->fold.left) +#define fright (&J->fold.right) +#define knumleft (ir_knum(fleft)->n) +#define knumright (ir_knum(fright)->n) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* Fold function type. Fastcall on x86 significantly reduces their size. */ +typedef IRRef (LJ_FASTCALL *FoldFunc)(jit_State *J); + +/* Macros for the fold specs, so buildvm can recognize them. */ +#define LJFOLD(x) +#define LJFOLDX(x) +#define LJFOLDF(name) static TRef LJ_FASTCALL fold_##name(jit_State *J) +/* Note: They must be at the start of a line or buildvm ignores them! */ + +/* Barrier to prevent using operands across PHIs. */ +#define PHIBARRIER(ir) if (irt_isphi((ir)->t)) return NEXTFOLD + +/* Barrier to prevent folding across a GC step. +** GC steps can only happen at the head of a trace and at LOOP. +** And the GC is only driven forward if there is at least one allocation. +*/ +#define gcstep_barrier(J, ref) \ + ((ref) < J->chain[IR_LOOP] && \ + (J->chain[IR_SNEW] || J->chain[IR_XSNEW] || \ + J->chain[IR_TNEW] || J->chain[IR_TDUP] || \ + J->chain[IR_CNEW] || J->chain[IR_CNEWI] || J->chain[IR_TOSTR])) + +/* -- Constant folding for FP numbers ------------------------------------- */ + +LJFOLD(ADD KNUM KNUM) +LJFOLD(SUB KNUM KNUM) +LJFOLD(MUL KNUM KNUM) +LJFOLD(DIV KNUM KNUM) +LJFOLD(NEG KNUM KNUM) +LJFOLD(ABS KNUM KNUM) +LJFOLD(ATAN2 KNUM KNUM) +LJFOLD(LDEXP KNUM KNUM) +LJFOLD(MIN KNUM KNUM) +LJFOLD(MAX KNUM KNUM) +LJFOLDF(kfold_numarith) +{ + lua_Number a = knumleft; + lua_Number b = knumright; + lua_Number y = lj_vm_foldarith(a, b, fins->o - IR_ADD); + return lj_ir_knum(J, y); +} + +LJFOLD(LDEXP KNUM KINT) +LJFOLDF(kfold_ldexp) +{ +#if LJ_TARGET_X86ORX64 + UNUSED(J); + return NEXTFOLD; +#else + return lj_ir_knum(J, ldexp(knumleft, fright->i)); +#endif +} + +LJFOLD(FPMATH KNUM any) +LJFOLDF(kfold_fpmath) +{ + lua_Number a = knumleft; + lua_Number y = lj_vm_foldfpm(a, fins->op2); + return lj_ir_knum(J, y); +} + +LJFOLD(POW KNUM KINT) +LJFOLDF(kfold_numpow) +{ + lua_Number a = knumleft; + lua_Number b = (lua_Number)fright->i; + lua_Number y = lj_vm_foldarith(a, b, IR_POW - IR_ADD); + return lj_ir_knum(J, y); +} + +/* Must not use kfold_kref for numbers (could be NaN). */ +LJFOLD(EQ KNUM KNUM) +LJFOLD(NE KNUM KNUM) +LJFOLD(LT KNUM KNUM) +LJFOLD(GE KNUM KNUM) +LJFOLD(LE KNUM KNUM) +LJFOLD(GT KNUM KNUM) +LJFOLD(ULT KNUM KNUM) +LJFOLD(UGE KNUM KNUM) +LJFOLD(ULE KNUM KNUM) +LJFOLD(UGT KNUM KNUM) +LJFOLDF(kfold_numcomp) +{ + return CONDFOLD(lj_ir_numcmp(knumleft, knumright, (IROp)fins->o)); +} + +/* -- Constant folding for 32 bit integers -------------------------------- */ + +static int32_t kfold_intop(int32_t k1, int32_t k2, IROp op) +{ + switch (op) { + case IR_ADD: k1 += k2; break; + case IR_SUB: k1 -= k2; break; + case IR_MUL: k1 *= k2; break; + case IR_MOD: k1 = lj_vm_modi(k1, k2); break; + case IR_NEG: k1 = -k1; break; + case IR_BAND: k1 &= k2; break; + case IR_BOR: k1 |= k2; break; + case IR_BXOR: k1 ^= k2; break; + case IR_BSHL: k1 <<= (k2 & 31); break; + case IR_BSHR: k1 = (int32_t)((uint32_t)k1 >> (k2 & 31)); break; + case IR_BSAR: k1 >>= (k2 & 31); break; + case IR_BROL: k1 = (int32_t)lj_rol((uint32_t)k1, (k2 & 31)); break; + case IR_BROR: k1 = (int32_t)lj_ror((uint32_t)k1, (k2 & 31)); break; + case IR_MIN: k1 = k1 < k2 ? k1 : k2; break; + case IR_MAX: k1 = k1 > k2 ? k1 : k2; break; + default: lua_assert(0); break; + } + return k1; +} + +LJFOLD(ADD KINT KINT) +LJFOLD(SUB KINT KINT) +LJFOLD(MUL KINT KINT) +LJFOLD(MOD KINT KINT) +LJFOLD(NEG KINT KINT) +LJFOLD(BAND KINT KINT) +LJFOLD(BOR KINT KINT) +LJFOLD(BXOR KINT KINT) +LJFOLD(BSHL KINT KINT) +LJFOLD(BSHR KINT KINT) +LJFOLD(BSAR KINT KINT) +LJFOLD(BROL KINT KINT) +LJFOLD(BROR KINT KINT) +LJFOLD(MIN KINT KINT) +LJFOLD(MAX KINT KINT) +LJFOLDF(kfold_intarith) +{ + return INTFOLD(kfold_intop(fleft->i, fright->i, (IROp)fins->o)); +} + +LJFOLD(ADDOV KINT KINT) +LJFOLD(SUBOV KINT KINT) +LJFOLD(MULOV KINT KINT) +LJFOLDF(kfold_intovarith) +{ + lua_Number n = lj_vm_foldarith((lua_Number)fleft->i, (lua_Number)fright->i, + fins->o - IR_ADDOV); + int32_t k = lj_num2int(n); + if (n != (lua_Number)k) + return FAILFOLD; + return INTFOLD(k); +} + +LJFOLD(BNOT KINT) +LJFOLDF(kfold_bnot) +{ + return INTFOLD(~fleft->i); +} + +LJFOLD(BSWAP KINT) +LJFOLDF(kfold_bswap) +{ + return INTFOLD((int32_t)lj_bswap((uint32_t)fleft->i)); +} + +LJFOLD(LT KINT KINT) +LJFOLD(GE KINT KINT) +LJFOLD(LE KINT KINT) +LJFOLD(GT KINT KINT) +LJFOLD(ULT KINT KINT) +LJFOLD(UGE KINT KINT) +LJFOLD(ULE KINT KINT) +LJFOLD(UGT KINT KINT) +LJFOLD(ABC KINT KINT) +LJFOLDF(kfold_intcomp) +{ + int32_t a = fleft->i, b = fright->i; + switch ((IROp)fins->o) { + case IR_LT: return CONDFOLD(a < b); + case IR_GE: return CONDFOLD(a >= b); + case IR_LE: return CONDFOLD(a <= b); + case IR_GT: return CONDFOLD(a > b); + case IR_ULT: return CONDFOLD((uint32_t)a < (uint32_t)b); + case IR_UGE: return CONDFOLD((uint32_t)a >= (uint32_t)b); + case IR_ULE: return CONDFOLD((uint32_t)a <= (uint32_t)b); + case IR_ABC: + case IR_UGT: return CONDFOLD((uint32_t)a > (uint32_t)b); + default: lua_assert(0); return FAILFOLD; + } +} + +LJFOLD(UGE any KINT) +LJFOLDF(kfold_intcomp0) +{ + if (fright->i == 0) + return DROPFOLD; + return NEXTFOLD; +} + +/* -- Constant folding for 64 bit integers -------------------------------- */ + +static uint64_t kfold_int64arith(uint64_t k1, uint64_t k2, IROp op) +{ + switch (op) { +#if LJ_64 || LJ_HASFFI + case IR_ADD: k1 += k2; break; + case IR_SUB: k1 -= k2; break; +#endif +#if LJ_HASFFI + case IR_MUL: k1 *= k2; break; + case IR_BAND: k1 &= k2; break; + case IR_BOR: k1 |= k2; break; + case IR_BXOR: k1 ^= k2; break; +#endif + default: UNUSED(k2); lua_assert(0); break; + } + return k1; +} + +LJFOLD(ADD KINT64 KINT64) +LJFOLD(SUB KINT64 KINT64) +LJFOLD(MUL KINT64 KINT64) +LJFOLD(BAND KINT64 KINT64) +LJFOLD(BOR KINT64 KINT64) +LJFOLD(BXOR KINT64 KINT64) +LJFOLDF(kfold_int64arith) +{ + return INT64FOLD(kfold_int64arith(ir_k64(fleft)->u64, + ir_k64(fright)->u64, (IROp)fins->o)); +} + +LJFOLD(DIV KINT64 KINT64) +LJFOLD(MOD KINT64 KINT64) +LJFOLD(POW KINT64 KINT64) +LJFOLDF(kfold_int64arith2) +{ +#if LJ_HASFFI + uint64_t k1 = ir_k64(fleft)->u64, k2 = ir_k64(fright)->u64; + if (irt_isi64(fins->t)) { + k1 = fins->o == IR_DIV ? lj_carith_divi64((int64_t)k1, (int64_t)k2) : + fins->o == IR_MOD ? lj_carith_modi64((int64_t)k1, (int64_t)k2) : + lj_carith_powi64((int64_t)k1, (int64_t)k2); + } else { + k1 = fins->o == IR_DIV ? lj_carith_divu64(k1, k2) : + fins->o == IR_MOD ? lj_carith_modu64(k1, k2) : + lj_carith_powu64(k1, k2); + } + return INT64FOLD(k1); +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(BSHL KINT64 KINT) +LJFOLD(BSHR KINT64 KINT) +LJFOLD(BSAR KINT64 KINT) +LJFOLD(BROL KINT64 KINT) +LJFOLD(BROR KINT64 KINT) +LJFOLDF(kfold_int64shift) +{ +#if LJ_HASFFI || LJ_64 + uint64_t k = ir_k64(fleft)->u64; + int32_t sh = (fright->i & 63); + switch ((IROp)fins->o) { + case IR_BSHL: k <<= sh; break; +#if LJ_HASFFI + case IR_BSHR: k >>= sh; break; + case IR_BSAR: k = (uint64_t)((int64_t)k >> sh); break; + case IR_BROL: k = lj_rol(k, sh); break; + case IR_BROR: k = lj_ror(k, sh); break; +#endif + default: lua_assert(0); break; + } + return INT64FOLD(k); +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(BNOT KINT64) +LJFOLDF(kfold_bnot64) +{ +#if LJ_HASFFI + return INT64FOLD(~ir_k64(fleft)->u64); +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(BSWAP KINT64) +LJFOLDF(kfold_bswap64) +{ +#if LJ_HASFFI + return INT64FOLD(lj_bswap64(ir_k64(fleft)->u64)); +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(LT KINT64 KINT64) +LJFOLD(GE KINT64 KINT64) +LJFOLD(LE KINT64 KINT64) +LJFOLD(GT KINT64 KINT64) +LJFOLD(ULT KINT64 KINT64) +LJFOLD(UGE KINT64 KINT64) +LJFOLD(ULE KINT64 KINT64) +LJFOLD(UGT KINT64 KINT64) +LJFOLDF(kfold_int64comp) +{ +#if LJ_HASFFI + uint64_t a = ir_k64(fleft)->u64, b = ir_k64(fright)->u64; + switch ((IROp)fins->o) { + case IR_LT: return CONDFOLD(a < b); + case IR_GE: return CONDFOLD(a >= b); + case IR_LE: return CONDFOLD(a <= b); + case IR_GT: return CONDFOLD(a > b); + case IR_ULT: return CONDFOLD((uint64_t)a < (uint64_t)b); + case IR_UGE: return CONDFOLD((uint64_t)a >= (uint64_t)b); + case IR_ULE: return CONDFOLD((uint64_t)a <= (uint64_t)b); + case IR_UGT: return CONDFOLD((uint64_t)a > (uint64_t)b); + default: lua_assert(0); return FAILFOLD; + } +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(UGE any KINT64) +LJFOLDF(kfold_int64comp0) +{ +#if LJ_HASFFI + if (ir_k64(fright)->u64 == 0) + return DROPFOLD; + return NEXTFOLD; +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +/* -- Constant folding for strings ---------------------------------------- */ + +LJFOLD(SNEW KKPTR KINT) +LJFOLDF(kfold_snew_kptr) +{ + GCstr *s = lj_str_new(J->L, (const char *)ir_kptr(fleft), (size_t)fright->i); + return lj_ir_kstr(J, s); +} + +LJFOLD(SNEW any KINT) +LJFOLDF(kfold_snew_empty) +{ + if (fright->i == 0) + return lj_ir_kstr(J, &J2G(J)->strempty); + return NEXTFOLD; +} + +LJFOLD(STRREF KGC KINT) +LJFOLDF(kfold_strref) +{ + GCstr *str = ir_kstr(fleft); + lua_assert((MSize)fright->i <= str->len); + return lj_ir_kkptr(J, (char *)strdata(str) + fright->i); +} + +LJFOLD(STRREF SNEW any) +LJFOLDF(kfold_strref_snew) +{ + PHIBARRIER(fleft); + if (irref_isk(fins->op2) && fright->i == 0) { + return fleft->op1; /* strref(snew(ptr, len), 0) ==> ptr */ + } else { + /* Reassociate: strref(snew(strref(str, a), len), b) ==> strref(str, a+b) */ + IRIns *ir = IR(fleft->op1); + if (ir->o == IR_STRREF) { + IRRef1 str = ir->op1; /* IRIns * is not valid across emitir. */ + PHIBARRIER(ir); + fins->op2 = emitir(IRTI(IR_ADD), ir->op2, fins->op2); /* Clobbers fins! */ + fins->op1 = str; + fins->ot = IRT(IR_STRREF, IRT_P32); + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(CALLN CARG IRCALL_lj_str_cmp) +LJFOLDF(kfold_strcmp) +{ + if (irref_isk(fleft->op1) && irref_isk(fleft->op2)) { + GCstr *a = ir_kstr(IR(fleft->op1)); + GCstr *b = ir_kstr(IR(fleft->op2)); + return INTFOLD(lj_str_cmp(a, b)); + } + return NEXTFOLD; +} + +/* -- Constant folding of pointer arithmetic ------------------------------ */ + +LJFOLD(ADD KGC KINT) +LJFOLD(ADD KGC KINT64) +LJFOLDF(kfold_add_kgc) +{ + GCobj *o = ir_kgc(fleft); +#if LJ_64 + ptrdiff_t ofs = (ptrdiff_t)ir_kint64(fright)->u64; +#else + ptrdiff_t ofs = fright->i; +#endif +#if LJ_HASFFI + if (irt_iscdata(fleft->t)) { + CType *ct = ctype_raw(ctype_ctsG(J2G(J)), gco2cd(o)->ctypeid); + if (ctype_isnum(ct->info) || ctype_isenum(ct->info) || + ctype_isptr(ct->info) || ctype_isfunc(ct->info) || + ctype_iscomplex(ct->info) || ctype_isvector(ct->info)) + return lj_ir_kkptr(J, (char *)o + ofs); + } +#endif + return lj_ir_kptr(J, (char *)o + ofs); +} + +LJFOLD(ADD KPTR KINT) +LJFOLD(ADD KPTR KINT64) +LJFOLD(ADD KKPTR KINT) +LJFOLD(ADD KKPTR KINT64) +LJFOLDF(kfold_add_kptr) +{ + void *p = ir_kptr(fleft); +#if LJ_64 + ptrdiff_t ofs = (ptrdiff_t)ir_kint64(fright)->u64; +#else + ptrdiff_t ofs = fright->i; +#endif + return lj_ir_kptr_(J, fleft->o, (char *)p + ofs); +} + +LJFOLD(ADD any KGC) +LJFOLD(ADD any KPTR) +LJFOLD(ADD any KKPTR) +LJFOLDF(kfold_add_kright) +{ + if (fleft->o == IR_KINT || fleft->o == IR_KINT64) { + IRRef1 tmp = fins->op1; fins->op1 = fins->op2; fins->op2 = tmp; + return RETRYFOLD; + } + return NEXTFOLD; +} + +/* -- Constant folding of conversions ------------------------------------- */ + +LJFOLD(TOBIT KNUM KNUM) +LJFOLDF(kfold_tobit) +{ + return INTFOLD(lj_num2bit(knumleft)); +} + +LJFOLD(CONV KINT IRCONV_NUM_INT) +LJFOLDF(kfold_conv_kint_num) +{ + return lj_ir_knum(J, (lua_Number)fleft->i); +} + +LJFOLD(CONV KINT IRCONV_NUM_U32) +LJFOLDF(kfold_conv_kintu32_num) +{ + return lj_ir_knum(J, (lua_Number)(uint32_t)fleft->i); +} + +LJFOLD(CONV KINT IRCONV_INT_I8) +LJFOLD(CONV KINT IRCONV_INT_U8) +LJFOLD(CONV KINT IRCONV_INT_I16) +LJFOLD(CONV KINT IRCONV_INT_U16) +LJFOLDF(kfold_conv_kint_ext) +{ + int32_t k = fleft->i; + if ((fins->op2 & IRCONV_SRCMASK) == IRT_I8) k = (int8_t)k; + else if ((fins->op2 & IRCONV_SRCMASK) == IRT_U8) k = (uint8_t)k; + else if ((fins->op2 & IRCONV_SRCMASK) == IRT_I16) k = (int16_t)k; + else k = (uint16_t)k; + return INTFOLD(k); +} + +LJFOLD(CONV KINT IRCONV_I64_INT) +LJFOLD(CONV KINT IRCONV_U64_INT) +LJFOLD(CONV KINT IRCONV_I64_U32) +LJFOLD(CONV KINT IRCONV_U64_U32) +LJFOLDF(kfold_conv_kint_i64) +{ + if ((fins->op2 & IRCONV_SEXT)) + return INT64FOLD((uint64_t)(int64_t)fleft->i); + else + return INT64FOLD((uint64_t)(int64_t)(uint32_t)fleft->i); +} + +LJFOLD(CONV KINT64 IRCONV_NUM_I64) +LJFOLDF(kfold_conv_kint64_num_i64) +{ + return lj_ir_knum(J, (lua_Number)(int64_t)ir_kint64(fleft)->u64); +} + +LJFOLD(CONV KINT64 IRCONV_NUM_U64) +LJFOLDF(kfold_conv_kint64_num_u64) +{ + return lj_ir_knum(J, (lua_Number)ir_kint64(fleft)->u64); +} + +LJFOLD(CONV KINT64 IRCONV_INT_I64) +LJFOLD(CONV KINT64 IRCONV_U32_I64) +LJFOLDF(kfold_conv_kint64_int_i64) +{ + return INTFOLD((int32_t)ir_kint64(fleft)->u64); +} + +LJFOLD(CONV KNUM IRCONV_INT_NUM) +LJFOLDF(kfold_conv_knum_int_num) +{ + lua_Number n = knumleft; + if (!(fins->op2 & IRCONV_TRUNC)) { + int32_t k = lj_num2int(n); + if (irt_isguard(fins->t) && n != (lua_Number)k) { + /* We're about to create a guard which always fails, like CONV +1.5. + ** Some pathological loops cause this during LICM, e.g.: + ** local x,k,t = 0,1.5,{1,[1.5]=2} + ** for i=1,200 do x = x+ t[k]; k = k == 1 and 1.5 or 1 end + ** assert(x == 300) + */ + return FAILFOLD; + } + return INTFOLD(k); + } else { + return INTFOLD((int32_t)n); + } +} + +LJFOLD(CONV KNUM IRCONV_U32_NUM) +LJFOLDF(kfold_conv_knum_u32_num) +{ + lua_assert((fins->op2 & IRCONV_TRUNC)); +#ifdef _MSC_VER + { /* Workaround for MSVC bug. */ + volatile uint32_t u = (uint32_t)knumleft; + return INTFOLD((int32_t)u); + } +#else + return INTFOLD((int32_t)(uint32_t)knumleft); +#endif +} + +LJFOLD(CONV KNUM IRCONV_I64_NUM) +LJFOLDF(kfold_conv_knum_i64_num) +{ + lua_assert((fins->op2 & IRCONV_TRUNC)); + return INT64FOLD((uint64_t)(int64_t)knumleft); +} + +LJFOLD(CONV KNUM IRCONV_U64_NUM) +LJFOLDF(kfold_conv_knum_u64_num) +{ + lua_assert((fins->op2 & IRCONV_TRUNC)); + return INT64FOLD(lj_num2u64(knumleft)); +} + +LJFOLD(TOSTR KNUM) +LJFOLDF(kfold_tostr_knum) +{ + return lj_ir_kstr(J, lj_str_fromnum(J->L, &knumleft)); +} + +LJFOLD(TOSTR KINT) +LJFOLDF(kfold_tostr_kint) +{ + return lj_ir_kstr(J, lj_str_fromint(J->L, fleft->i)); +} + +LJFOLD(STRTO KGC) +LJFOLDF(kfold_strto) +{ + TValue n; + if (lj_strscan_num(ir_kstr(fleft), &n)) + return lj_ir_knum(J, numV(&n)); + return FAILFOLD; +} + +/* -- Constant folding of equality checks --------------------------------- */ + +/* Don't constant-fold away FLOAD checks against KNULL. */ +LJFOLD(EQ FLOAD KNULL) +LJFOLD(NE FLOAD KNULL) +LJFOLDX(lj_opt_cse) + +/* But fold all other KNULL compares, since only KNULL is equal to KNULL. */ +LJFOLD(EQ any KNULL) +LJFOLD(NE any KNULL) +LJFOLD(EQ KNULL any) +LJFOLD(NE KNULL any) +LJFOLD(EQ KINT KINT) /* Constants are unique, so same refs <==> same value. */ +LJFOLD(NE KINT KINT) +LJFOLD(EQ KINT64 KINT64) +LJFOLD(NE KINT64 KINT64) +LJFOLD(EQ KGC KGC) +LJFOLD(NE KGC KGC) +LJFOLDF(kfold_kref) +{ + return CONDFOLD((fins->op1 == fins->op2) ^ (fins->o == IR_NE)); +} + +/* -- Algebraic shortcuts ------------------------------------------------- */ + +LJFOLD(FPMATH FPMATH IRFPM_FLOOR) +LJFOLD(FPMATH FPMATH IRFPM_CEIL) +LJFOLD(FPMATH FPMATH IRFPM_TRUNC) +LJFOLDF(shortcut_round) +{ + IRFPMathOp op = (IRFPMathOp)fleft->op2; + if (op == IRFPM_FLOOR || op == IRFPM_CEIL || op == IRFPM_TRUNC) + return LEFTFOLD; /* round(round_left(x)) = round_left(x) */ + return NEXTFOLD; +} + +LJFOLD(ABS ABS KNUM) +LJFOLDF(shortcut_left) +{ + return LEFTFOLD; /* f(g(x)) ==> g(x) */ +} + +LJFOLD(ABS NEG KNUM) +LJFOLDF(shortcut_dropleft) +{ + PHIBARRIER(fleft); + fins->op1 = fleft->op1; /* abs(neg(x)) ==> abs(x) */ + return RETRYFOLD; +} + +/* Note: no safe shortcuts with STRTO and TOSTR ("1e2" ==> +100 ==> "100"). */ +LJFOLD(NEG NEG any) +LJFOLD(BNOT BNOT) +LJFOLD(BSWAP BSWAP) +LJFOLDF(shortcut_leftleft) +{ + PHIBARRIER(fleft); /* See above. Fold would be ok, but not beneficial. */ + return fleft->op1; /* f(g(x)) ==> x */ +} + +/* -- FP algebraic simplifications ---------------------------------------- */ + +/* FP arithmetic is tricky -- there's not much to simplify. +** Please note the following common pitfalls before sending "improvements": +** x+0 ==> x is INVALID for x=-0 +** 0-x ==> -x is INVALID for x=+0 +** x*0 ==> 0 is INVALID for x=-0, x=+-Inf or x=NaN +*/ + +LJFOLD(ADD NEG any) +LJFOLDF(simplify_numadd_negx) +{ + PHIBARRIER(fleft); + fins->o = IR_SUB; /* (-a) + b ==> b - a */ + fins->op1 = fins->op2; + fins->op2 = fleft->op1; + return RETRYFOLD; +} + +LJFOLD(ADD any NEG) +LJFOLDF(simplify_numadd_xneg) +{ + PHIBARRIER(fright); + fins->o = IR_SUB; /* a + (-b) ==> a - b */ + fins->op2 = fright->op1; + return RETRYFOLD; +} + +LJFOLD(SUB any KNUM) +LJFOLDF(simplify_numsub_k) +{ + lua_Number n = knumright; + if (n == 0.0) /* x - (+-0) ==> x */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(SUB NEG KNUM) +LJFOLDF(simplify_numsub_negk) +{ + PHIBARRIER(fleft); + fins->op2 = fleft->op1; /* (-x) - k ==> (-k) - x */ + fins->op1 = (IRRef1)lj_ir_knum(J, -knumright); + return RETRYFOLD; +} + +LJFOLD(SUB any NEG) +LJFOLDF(simplify_numsub_xneg) +{ + PHIBARRIER(fright); + fins->o = IR_ADD; /* a - (-b) ==> a + b */ + fins->op2 = fright->op1; + return RETRYFOLD; +} + +LJFOLD(MUL any KNUM) +LJFOLD(DIV any KNUM) +LJFOLDF(simplify_nummuldiv_k) +{ + lua_Number n = knumright; + if (n == 1.0) { /* x o 1 ==> x */ + return LEFTFOLD; + } else if (n == -1.0) { /* x o -1 ==> -x */ + fins->o = IR_NEG; + fins->op2 = (IRRef1)lj_ir_knum_neg(J); + return RETRYFOLD; + } else if (fins->o == IR_MUL && n == 2.0) { /* x * 2 ==> x + x */ + fins->o = IR_ADD; + fins->op2 = fins->op1; + return RETRYFOLD; + } else if (fins->o == IR_DIV) { /* x / 2^k ==> x * 2^-k */ + uint64_t u = ir_knum(fright)->u64; + uint32_t ex = ((uint32_t)(u >> 52) & 0x7ff); + if ((u & U64x(000fffff,ffffffff)) == 0 && ex - 1 < 0x7fd) { + u = (u & ((uint64_t)1 << 63)) | ((uint64_t)(0x7fe - ex) << 52); + fins->o = IR_MUL; /* Multiply by exact reciprocal. */ + fins->op2 = lj_ir_knum_u64(J, u); + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(MUL NEG KNUM) +LJFOLD(DIV NEG KNUM) +LJFOLDF(simplify_nummuldiv_negk) +{ + PHIBARRIER(fleft); + fins->op1 = fleft->op1; /* (-a) o k ==> a o (-k) */ + fins->op2 = (IRRef1)lj_ir_knum(J, -knumright); + return RETRYFOLD; +} + +LJFOLD(MUL NEG NEG) +LJFOLD(DIV NEG NEG) +LJFOLDF(simplify_nummuldiv_negneg) +{ + PHIBARRIER(fleft); + PHIBARRIER(fright); + fins->op1 = fleft->op1; /* (-a) o (-b) ==> a o b */ + fins->op2 = fright->op1; + return RETRYFOLD; +} + +LJFOLD(POW any KINT) +LJFOLDF(simplify_numpow_xk) +{ + int32_t k = fright->i; + TRef ref = fins->op1; + if (k == 0) /* x ^ 0 ==> 1 */ + return lj_ir_knum_one(J); /* Result must be a number, not an int. */ + if (k == 1) /* x ^ 1 ==> x */ + return LEFTFOLD; + if ((uint32_t)(k+65536) > 2*65536u) /* Limit code explosion. */ + return NEXTFOLD; + if (k < 0) { /* x ^ (-k) ==> (1/x) ^ k. */ + ref = emitir(IRTN(IR_DIV), lj_ir_knum_one(J), ref); + k = -k; + } + /* Unroll x^k for 1 <= k <= 65536. */ + for (; (k & 1) == 0; k >>= 1) /* Handle leading zeros. */ + ref = emitir(IRTN(IR_MUL), ref, ref); + if ((k >>= 1) != 0) { /* Handle trailing bits. */ + TRef tmp = emitir(IRTN(IR_MUL), ref, ref); + for (; k != 1; k >>= 1) { + if (k & 1) + ref = emitir(IRTN(IR_MUL), ref, tmp); + tmp = emitir(IRTN(IR_MUL), tmp, tmp); + } + ref = emitir(IRTN(IR_MUL), ref, tmp); + } + return ref; +} + +LJFOLD(POW KNUM any) +LJFOLDF(simplify_numpow_kx) +{ + lua_Number n = knumleft; + if (n == 2.0) { /* 2.0 ^ i ==> ldexp(1.0, tonum(i)) */ + fins->o = IR_CONV; +#if LJ_TARGET_X86ORX64 + fins->op1 = fins->op2; + fins->op2 = IRCONV_NUM_INT; + fins->op2 = (IRRef1)lj_opt_fold(J); +#endif + fins->op1 = (IRRef1)lj_ir_knum_one(J); + fins->o = IR_LDEXP; + return RETRYFOLD; + } + return NEXTFOLD; +} + +/* -- Simplify conversions ------------------------------------------------ */ + +LJFOLD(CONV CONV IRCONV_NUM_INT) /* _NUM */ +LJFOLDF(shortcut_conv_num_int) +{ + PHIBARRIER(fleft); + /* Only safe with a guarded conversion to int. */ + if ((fleft->op2 & IRCONV_SRCMASK) == IRT_NUM && irt_isguard(fleft->t)) + return fleft->op1; /* f(g(x)) ==> x */ + return NEXTFOLD; +} + +LJFOLD(CONV CONV IRCONV_INT_NUM) /* _INT */ +LJFOLD(CONV CONV IRCONV_U32_NUM) /* _U32*/ +LJFOLDF(simplify_conv_int_num) +{ + /* Fold even across PHI to avoid expensive num->int conversions in loop. */ + if ((fleft->op2 & IRCONV_SRCMASK) == + ((fins->op2 & IRCONV_DSTMASK) >> IRCONV_DSH)) + return fleft->op1; + return NEXTFOLD; +} + +LJFOLD(CONV CONV IRCONV_I64_NUM) /* _INT or _U32 */ +LJFOLD(CONV CONV IRCONV_U64_NUM) /* _INT or _U32 */ +LJFOLDF(simplify_conv_i64_num) +{ + PHIBARRIER(fleft); + if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT) { + /* Reduce to a sign-extension. */ + fins->op1 = fleft->op1; + fins->op2 = ((IRT_I64<<5)|IRT_INT|IRCONV_SEXT); + return RETRYFOLD; + } else if ((fleft->op2 & IRCONV_SRCMASK) == IRT_U32) { +#if LJ_TARGET_X64 + return fleft->op1; +#else + /* Reduce to a zero-extension. */ + fins->op1 = fleft->op1; + fins->op2 = (IRT_I64<<5)|IRT_U32; + return RETRYFOLD; +#endif + } + return NEXTFOLD; +} + +LJFOLD(CONV CONV IRCONV_INT_I64) /* _INT or _U32 */ +LJFOLD(CONV CONV IRCONV_INT_U64) /* _INT or _U32 */ +LJFOLD(CONV CONV IRCONV_U32_I64) /* _INT or _U32 */ +LJFOLD(CONV CONV IRCONV_U32_U64) /* _INT or _U32 */ +LJFOLDF(simplify_conv_int_i64) +{ + int src; + PHIBARRIER(fleft); + src = (fleft->op2 & IRCONV_SRCMASK); + if (src == IRT_INT || src == IRT_U32) { + if (src == ((fins->op2 & IRCONV_DSTMASK) >> IRCONV_DSH)) { + return fleft->op1; + } else { + fins->op2 = ((fins->op2 & IRCONV_DSTMASK) | src); + fins->op1 = fleft->op1; + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(CONV CONV IRCONV_FLOAT_NUM) /* _FLOAT */ +LJFOLDF(simplify_conv_flt_num) +{ + PHIBARRIER(fleft); + if ((fleft->op2 & IRCONV_SRCMASK) == IRT_FLOAT) + return fleft->op1; + return NEXTFOLD; +} + +/* Shortcut TOBIT + IRT_NUM <- IRT_INT/IRT_U32 conversion. */ +LJFOLD(TOBIT CONV KNUM) +LJFOLDF(simplify_tobit_conv) +{ + if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT || + (fleft->op2 & IRCONV_SRCMASK) == IRT_U32) { + /* Fold even across PHI to avoid expensive num->int conversions in loop. */ + lua_assert(irt_isnum(fleft->t)); + return fleft->op1; + } + return NEXTFOLD; +} + +/* Shortcut floor/ceil/round + IRT_NUM <- IRT_INT/IRT_U32 conversion. */ +LJFOLD(FPMATH CONV IRFPM_FLOOR) +LJFOLD(FPMATH CONV IRFPM_CEIL) +LJFOLD(FPMATH CONV IRFPM_TRUNC) +LJFOLDF(simplify_floor_conv) +{ + if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT || + (fleft->op2 & IRCONV_SRCMASK) == IRT_U32) + return LEFTFOLD; + return NEXTFOLD; +} + +/* Strength reduction of widening. */ +LJFOLD(CONV any IRCONV_I64_INT) +LJFOLD(CONV any IRCONV_U64_INT) +LJFOLDF(simplify_conv_sext) +{ + IRRef ref = fins->op1; + int64_t ofs = 0; + if (!(fins->op2 & IRCONV_SEXT)) + return NEXTFOLD; + PHIBARRIER(fleft); + if (fleft->o == IR_XLOAD && (irt_isu8(fleft->t) || irt_isu16(fleft->t))) + goto ok_reduce; + if (fleft->o == IR_ADD && irref_isk(fleft->op2)) { + ofs = (int64_t)IR(fleft->op2)->i; + ref = fleft->op1; + } + /* Use scalar evolution analysis results to strength-reduce sign-extension. */ + if (ref == J->scev.idx) { + IRRef lo = J->scev.dir ? J->scev.start : J->scev.stop; + lua_assert(irt_isint(J->scev.t)); + if (lo && IR(lo)->i + ofs >= 0) { + ok_reduce: +#if LJ_TARGET_X64 + /* Eliminate widening. All 32 bit ops do an implicit zero-extension. */ + return LEFTFOLD; +#else + /* Reduce to a (cheaper) zero-extension. */ + fins->op2 &= ~IRCONV_SEXT; + return RETRYFOLD; +#endif + } + } + return NEXTFOLD; +} + +/* Strength reduction of narrowing. */ +LJFOLD(CONV ADD IRCONV_INT_I64) +LJFOLD(CONV SUB IRCONV_INT_I64) +LJFOLD(CONV MUL IRCONV_INT_I64) +LJFOLD(CONV ADD IRCONV_INT_U64) +LJFOLD(CONV SUB IRCONV_INT_U64) +LJFOLD(CONV MUL IRCONV_INT_U64) +LJFOLD(CONV ADD IRCONV_U32_I64) +LJFOLD(CONV SUB IRCONV_U32_I64) +LJFOLD(CONV MUL IRCONV_U32_I64) +LJFOLD(CONV ADD IRCONV_U32_U64) +LJFOLD(CONV SUB IRCONV_U32_U64) +LJFOLD(CONV MUL IRCONV_U32_U64) +LJFOLDF(simplify_conv_narrow) +{ + IROp op = (IROp)fleft->o; + IRType t = irt_type(fins->t); + IRRef op1 = fleft->op1, op2 = fleft->op2, mode = fins->op2; + PHIBARRIER(fleft); + op1 = emitir(IRTI(IR_CONV), op1, mode); + op2 = emitir(IRTI(IR_CONV), op2, mode); + fins->ot = IRT(op, t); + fins->op1 = op1; + fins->op2 = op2; + return RETRYFOLD; +} + +/* Special CSE rule for CONV. */ +LJFOLD(CONV any any) +LJFOLDF(cse_conv) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { + IRRef op1 = fins->op1, op2 = (fins->op2 & IRCONV_MODEMASK); + uint8_t guard = irt_isguard(fins->t); + IRRef ref = J->chain[IR_CONV]; + while (ref > op1) { + IRIns *ir = IR(ref); + /* Commoning with stronger checks is ok. */ + if (ir->op1 == op1 && (ir->op2 & IRCONV_MODEMASK) == op2 && + irt_isguard(ir->t) >= guard) + return ref; + ref = ir->prev; + } + } + return EMITFOLD; /* No fallthrough to regular CSE. */ +} + +/* FP conversion narrowing. */ +LJFOLD(TOBIT ADD KNUM) +LJFOLD(TOBIT SUB KNUM) +LJFOLD(CONV ADD IRCONV_INT_NUM) +LJFOLD(CONV SUB IRCONV_INT_NUM) +LJFOLD(CONV ADD IRCONV_I64_NUM) +LJFOLD(CONV SUB IRCONV_I64_NUM) +LJFOLDF(narrow_convert) +{ + PHIBARRIER(fleft); + /* Narrowing ignores PHIs and repeating it inside the loop is not useful. */ + if (J->chain[IR_LOOP]) + return NEXTFOLD; + lua_assert(fins->o != IR_CONV || (fins->op2&IRCONV_CONVMASK) != IRCONV_TOBIT); + return lj_opt_narrow_convert(J); +} + +/* -- Integer algebraic simplifications ----------------------------------- */ + +LJFOLD(ADD any KINT) +LJFOLD(ADDOV any KINT) +LJFOLD(SUBOV any KINT) +LJFOLDF(simplify_intadd_k) +{ + if (fright->i == 0) /* i o 0 ==> i */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(MULOV any KINT) +LJFOLDF(simplify_intmul_k) +{ + if (fright->i == 0) /* i * 0 ==> 0 */ + return RIGHTFOLD; + if (fright->i == 1) /* i * 1 ==> i */ + return LEFTFOLD; + if (fright->i == 2) { /* i * 2 ==> i + i */ + fins->o = IR_ADDOV; + fins->op2 = fins->op1; + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(SUB any KINT) +LJFOLDF(simplify_intsub_k) +{ + if (fright->i == 0) /* i - 0 ==> i */ + return LEFTFOLD; + fins->o = IR_ADD; /* i - k ==> i + (-k) */ + fins->op2 = (IRRef1)lj_ir_kint(J, -fright->i); /* Overflow for -2^31 ok. */ + return RETRYFOLD; +} + +LJFOLD(SUB KINT any) +LJFOLD(SUB KINT64 any) +LJFOLDF(simplify_intsub_kleft) +{ + if (fleft->o == IR_KINT ? (fleft->i == 0) : (ir_kint64(fleft)->u64 == 0)) { + fins->o = IR_NEG; /* 0 - i ==> -i */ + fins->op1 = fins->op2; + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(ADD any KINT64) +LJFOLDF(simplify_intadd_k64) +{ + if (ir_kint64(fright)->u64 == 0) /* i + 0 ==> i */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(SUB any KINT64) +LJFOLDF(simplify_intsub_k64) +{ + uint64_t k = ir_kint64(fright)->u64; + if (k == 0) /* i - 0 ==> i */ + return LEFTFOLD; + fins->o = IR_ADD; /* i - k ==> i + (-k) */ + fins->op2 = (IRRef1)lj_ir_kint64(J, (uint64_t)-(int64_t)k); + return RETRYFOLD; +} + +static TRef simplify_intmul_k(jit_State *J, int32_t k) +{ + /* Note: many more simplifications are possible, e.g. 2^k1 +- 2^k2. + ** But this is mainly intended for simple address arithmetic. + ** Also it's easier for the backend to optimize the original multiplies. + */ + if (k == 1) { /* i * 1 ==> i */ + return LEFTFOLD; + } else if ((k & (k-1)) == 0) { /* i * 2^k ==> i << k */ + fins->o = IR_BSHL; + fins->op2 = lj_ir_kint(J, lj_fls((uint32_t)k)); + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(MUL any KINT) +LJFOLDF(simplify_intmul_k32) +{ + if (fright->i == 0) /* i * 0 ==> 0 */ + return INTFOLD(0); + else if (fright->i > 0) + return simplify_intmul_k(J, fright->i); + return NEXTFOLD; +} + +LJFOLD(MUL any KINT64) +LJFOLDF(simplify_intmul_k64) +{ + if (ir_kint64(fright)->u64 == 0) /* i * 0 ==> 0 */ + return INT64FOLD(0); +#if LJ_64 + /* NYI: SPLIT for BSHL and 32 bit backend support. */ + else if (ir_kint64(fright)->u64 < 0x80000000u) + return simplify_intmul_k(J, (int32_t)ir_kint64(fright)->u64); +#endif + return NEXTFOLD; +} + +LJFOLD(MOD any KINT) +LJFOLDF(simplify_intmod_k) +{ + int32_t k = fright->i; + lua_assert(k != 0); + if (k > 0 && (k & (k-1)) == 0) { /* i % (2^k) ==> i & (2^k-1) */ + fins->o = IR_BAND; + fins->op2 = lj_ir_kint(J, k-1); + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(MOD KINT any) +LJFOLDF(simplify_intmod_kleft) +{ + if (fleft->i == 0) + return INTFOLD(0); + return NEXTFOLD; +} + +LJFOLD(SUB any any) +LJFOLD(SUBOV any any) +LJFOLDF(simplify_intsub) +{ + if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) /* i - i ==> 0 */ + return irt_is64(fins->t) ? INT64FOLD(0) : INTFOLD(0); + return NEXTFOLD; +} + +LJFOLD(SUB ADD any) +LJFOLDF(simplify_intsubadd_leftcancel) +{ + if (!irt_isnum(fins->t)) { + PHIBARRIER(fleft); + if (fins->op2 == fleft->op1) /* (i + j) - i ==> j */ + return fleft->op2; + if (fins->op2 == fleft->op2) /* (i + j) - j ==> i */ + return fleft->op1; + } + return NEXTFOLD; +} + +LJFOLD(SUB SUB any) +LJFOLDF(simplify_intsubsub_leftcancel) +{ + if (!irt_isnum(fins->t)) { + PHIBARRIER(fleft); + if (fins->op2 == fleft->op1) { /* (i - j) - i ==> 0 - j */ + fins->op1 = (IRRef1)lj_ir_kint(J, 0); + fins->op2 = fleft->op2; + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(SUB any SUB) +LJFOLDF(simplify_intsubsub_rightcancel) +{ + if (!irt_isnum(fins->t)) { + PHIBARRIER(fright); + if (fins->op1 == fright->op1) /* i - (i - j) ==> j */ + return fright->op2; + } + return NEXTFOLD; +} + +LJFOLD(SUB any ADD) +LJFOLDF(simplify_intsubadd_rightcancel) +{ + if (!irt_isnum(fins->t)) { + PHIBARRIER(fright); + if (fins->op1 == fright->op1) { /* i - (i + j) ==> 0 - j */ + fins->op2 = fright->op2; + fins->op1 = (IRRef1)lj_ir_kint(J, 0); + return RETRYFOLD; + } + if (fins->op1 == fright->op2) { /* i - (j + i) ==> 0 - j */ + fins->op2 = fright->op1; + fins->op1 = (IRRef1)lj_ir_kint(J, 0); + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(SUB ADD ADD) +LJFOLDF(simplify_intsubaddadd_cancel) +{ + if (!irt_isnum(fins->t)) { + PHIBARRIER(fleft); + PHIBARRIER(fright); + if (fleft->op1 == fright->op1) { /* (i + j1) - (i + j2) ==> j1 - j2 */ + fins->op1 = fleft->op2; + fins->op2 = fright->op2; + return RETRYFOLD; + } + if (fleft->op1 == fright->op2) { /* (i + j1) - (j2 + i) ==> j1 - j2 */ + fins->op1 = fleft->op2; + fins->op2 = fright->op1; + return RETRYFOLD; + } + if (fleft->op2 == fright->op1) { /* (j1 + i) - (i + j2) ==> j1 - j2 */ + fins->op1 = fleft->op1; + fins->op2 = fright->op2; + return RETRYFOLD; + } + if (fleft->op2 == fright->op2) { /* (j1 + i) - (j2 + i) ==> j1 - j2 */ + fins->op1 = fleft->op1; + fins->op2 = fright->op1; + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(BAND any KINT) +LJFOLD(BAND any KINT64) +LJFOLDF(simplify_band_k) +{ + int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : + (int64_t)ir_k64(fright)->u64; + if (k == 0) /* i & 0 ==> 0 */ + return RIGHTFOLD; + if (k == -1) /* i & -1 ==> i */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(BOR any KINT) +LJFOLD(BOR any KINT64) +LJFOLDF(simplify_bor_k) +{ + int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : + (int64_t)ir_k64(fright)->u64; + if (k == 0) /* i | 0 ==> i */ + return LEFTFOLD; + if (k == -1) /* i | -1 ==> -1 */ + return RIGHTFOLD; + return NEXTFOLD; +} + +LJFOLD(BXOR any KINT) +LJFOLD(BXOR any KINT64) +LJFOLDF(simplify_bxor_k) +{ + int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : + (int64_t)ir_k64(fright)->u64; + if (k == 0) /* i xor 0 ==> i */ + return LEFTFOLD; + if (k == -1) { /* i xor -1 ==> ~i */ + fins->o = IR_BNOT; + fins->op2 = 0; + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(BSHL any KINT) +LJFOLD(BSHR any KINT) +LJFOLD(BSAR any KINT) +LJFOLD(BROL any KINT) +LJFOLD(BROR any KINT) +LJFOLDF(simplify_shift_ik) +{ + int32_t mask = irt_is64(fins->t) ? 63 : 31; + int32_t k = (fright->i & mask); + if (k == 0) /* i o 0 ==> i */ + return LEFTFOLD; + if (k == 1 && fins->o == IR_BSHL) { /* i << 1 ==> i + i */ + fins->o = IR_ADD; + fins->op2 = fins->op1; + return RETRYFOLD; + } + if (k != fright->i) { /* i o k ==> i o (k & mask) */ + fins->op2 = (IRRef1)lj_ir_kint(J, k); + return RETRYFOLD; + } +#ifndef LJ_TARGET_UNIFYROT + if (fins->o == IR_BROR) { /* bror(i, k) ==> brol(i, (-k)&mask) */ + fins->o = IR_BROL; + fins->op2 = (IRRef1)lj_ir_kint(J, (-k)&mask); + return RETRYFOLD; + } +#endif + return NEXTFOLD; +} + +LJFOLD(BSHL any BAND) +LJFOLD(BSHR any BAND) +LJFOLD(BSAR any BAND) +LJFOLD(BROL any BAND) +LJFOLD(BROR any BAND) +LJFOLDF(simplify_shift_andk) +{ + IRIns *irk = IR(fright->op2); + PHIBARRIER(fright); + if ((fins->o < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && + irk->o == IR_KINT) { /* i o (j & mask) ==> i o j */ + int32_t mask = irt_is64(fins->t) ? 63 : 31; + int32_t k = irk->i & mask; + if (k == mask) { + fins->op2 = fright->op1; + return RETRYFOLD; + } + } + return NEXTFOLD; +} + +LJFOLD(BSHL KINT any) +LJFOLD(BSHR KINT any) +LJFOLD(BSHL KINT64 any) +LJFOLD(BSHR KINT64 any) +LJFOLDF(simplify_shift1_ki) +{ + int64_t k = fleft->o == IR_KINT ? (int64_t)fleft->i : + (int64_t)ir_k64(fleft)->u64; + if (k == 0) /* 0 o i ==> 0 */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(BSAR KINT any) +LJFOLD(BROL KINT any) +LJFOLD(BROR KINT any) +LJFOLD(BSAR KINT64 any) +LJFOLD(BROL KINT64 any) +LJFOLD(BROR KINT64 any) +LJFOLDF(simplify_shift2_ki) +{ + int64_t k = fleft->o == IR_KINT ? (int64_t)fleft->i : + (int64_t)ir_k64(fleft)->u64; + if (k == 0 || k == -1) /* 0 o i ==> 0; -1 o i ==> -1 */ + return LEFTFOLD; + return NEXTFOLD; +} + +LJFOLD(BSHL BAND KINT) +LJFOLD(BSHR BAND KINT) +LJFOLD(BROL BAND KINT) +LJFOLD(BROR BAND KINT) +LJFOLDF(simplify_shiftk_andk) +{ + IRIns *irk = IR(fleft->op2); + PHIBARRIER(fleft); + if (irk->o == IR_KINT) { /* (i & k1) o k2 ==> (i o k2) & (k1 o k2) */ + int32_t k = kfold_intop(irk->i, fright->i, (IROp)fins->o); + fins->op1 = fleft->op1; + fins->op1 = (IRRef1)lj_opt_fold(J); + fins->op2 = (IRRef1)lj_ir_kint(J, k); + fins->ot = IRTI(IR_BAND); + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(BAND BSHL KINT) +LJFOLD(BAND BSHR KINT) +LJFOLDF(simplify_andk_shiftk) +{ + IRIns *irk = IR(fleft->op2); + if (irk->o == IR_KINT && + kfold_intop(-1, irk->i, (IROp)fleft->o) == fright->i) + return LEFTFOLD; /* (i o k1) & k2 ==> i, if (-1 o k1) == k2 */ + return NEXTFOLD; +} + +/* -- Reassociation ------------------------------------------------------- */ + +LJFOLD(ADD ADD KINT) +LJFOLD(MUL MUL KINT) +LJFOLD(BAND BAND KINT) +LJFOLD(BOR BOR KINT) +LJFOLD(BXOR BXOR KINT) +LJFOLDF(reassoc_intarith_k) +{ + IRIns *irk = IR(fleft->op2); + if (irk->o == IR_KINT) { + int32_t k = kfold_intop(irk->i, fright->i, (IROp)fins->o); + if (k == irk->i) /* (i o k1) o k2 ==> i o k1, if (k1 o k2) == k1. */ + return LEFTFOLD; + PHIBARRIER(fleft); + fins->op1 = fleft->op1; + fins->op2 = (IRRef1)lj_ir_kint(J, k); + return RETRYFOLD; /* (i o k1) o k2 ==> i o (k1 o k2) */ + } + return NEXTFOLD; +} + +LJFOLD(ADD ADD KINT64) +LJFOLD(MUL MUL KINT64) +LJFOLD(BAND BAND KINT64) +LJFOLD(BOR BOR KINT64) +LJFOLD(BXOR BXOR KINT64) +LJFOLDF(reassoc_intarith_k64) +{ +#if LJ_HASFFI || LJ_64 + IRIns *irk = IR(fleft->op2); + if (irk->o == IR_KINT64) { + uint64_t k = kfold_int64arith(ir_k64(irk)->u64, + ir_k64(fright)->u64, (IROp)fins->o); + PHIBARRIER(fleft); + fins->op1 = fleft->op1; + fins->op2 = (IRRef1)lj_ir_kint64(J, k); + return RETRYFOLD; /* (i o k1) o k2 ==> i o (k1 o k2) */ + } + return NEXTFOLD; +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif +} + +LJFOLD(MIN MIN any) +LJFOLD(MAX MAX any) +LJFOLD(BAND BAND any) +LJFOLD(BOR BOR any) +LJFOLDF(reassoc_dup) +{ + if (fins->op2 == fleft->op1 || fins->op2 == fleft->op2) + return LEFTFOLD; /* (a o b) o a ==> a o b; (a o b) o b ==> a o b */ + return NEXTFOLD; +} + +LJFOLD(BXOR BXOR any) +LJFOLDF(reassoc_bxor) +{ + PHIBARRIER(fleft); + if (fins->op2 == fleft->op1) /* (a xor b) xor a ==> b */ + return fleft->op2; + if (fins->op2 == fleft->op2) /* (a xor b) xor b ==> a */ + return fleft->op1; + return NEXTFOLD; +} + +LJFOLD(BSHL BSHL KINT) +LJFOLD(BSHR BSHR KINT) +LJFOLD(BSAR BSAR KINT) +LJFOLD(BROL BROL KINT) +LJFOLD(BROR BROR KINT) +LJFOLDF(reassoc_shift) +{ + IRIns *irk = IR(fleft->op2); + PHIBARRIER(fleft); /* The (shift any KINT) rule covers k2 == 0 and more. */ + if (irk->o == IR_KINT) { /* (i o k1) o k2 ==> i o (k1 + k2) */ + int32_t mask = irt_is64(fins->t) ? 63 : 31; + int32_t k = (irk->i & mask) + (fright->i & mask); + if (k > mask) { /* Combined shift too wide? */ + if (fins->o == IR_BSHL || fins->o == IR_BSHR) + return mask == 31 ? INTFOLD(0) : INT64FOLD(0); + else if (fins->o == IR_BSAR) + k = mask; + else + k &= mask; + } + fins->op1 = fleft->op1; + fins->op2 = (IRRef1)lj_ir_kint(J, k); + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(MIN MIN KNUM) +LJFOLD(MAX MAX KNUM) +LJFOLD(MIN MIN KINT) +LJFOLD(MAX MAX KINT) +LJFOLDF(reassoc_minmax_k) +{ + IRIns *irk = IR(fleft->op2); + if (irk->o == IR_KNUM) { + lua_Number a = ir_knum(irk)->n; + lua_Number y = lj_vm_foldarith(a, knumright, fins->o - IR_ADD); + if (a == y) /* (x o k1) o k2 ==> x o k1, if (k1 o k2) == k1. */ + return LEFTFOLD; + PHIBARRIER(fleft); + fins->op1 = fleft->op1; + fins->op2 = (IRRef1)lj_ir_knum(J, y); + return RETRYFOLD; /* (x o k1) o k2 ==> x o (k1 o k2) */ + } else if (irk->o == IR_KINT) { + int32_t a = irk->i; + int32_t y = kfold_intop(a, fright->i, fins->o); + if (a == y) /* (x o k1) o k2 ==> x o k1, if (k1 o k2) == k1. */ + return LEFTFOLD; + PHIBARRIER(fleft); + fins->op1 = fleft->op1; + fins->op2 = (IRRef1)lj_ir_kint(J, y); + return RETRYFOLD; /* (x o k1) o k2 ==> x o (k1 o k2) */ + } + return NEXTFOLD; +} + +LJFOLD(MIN MAX any) +LJFOLD(MAX MIN any) +LJFOLDF(reassoc_minmax_left) +{ + if (fins->op2 == fleft->op1 || fins->op2 == fleft->op2) + return RIGHTFOLD; /* (b o1 a) o2 b ==> b; (a o1 b) o2 b ==> b */ + return NEXTFOLD; +} + +LJFOLD(MIN any MAX) +LJFOLD(MAX any MIN) +LJFOLDF(reassoc_minmax_right) +{ + if (fins->op1 == fright->op1 || fins->op1 == fright->op2) + return LEFTFOLD; /* a o2 (a o1 b) ==> a; a o2 (b o1 a) ==> a */ + return NEXTFOLD; +} + +/* -- Array bounds check elimination -------------------------------------- */ + +/* Eliminate ABC across PHIs to handle t[i-1] forwarding case. +** ABC(asize, (i+k)+(-k)) ==> ABC(asize, i), but only if it already exists. +** Could be generalized to (i+k1)+k2 ==> i+(k1+k2), but needs better disambig. +*/ +LJFOLD(ABC any ADD) +LJFOLDF(abc_fwd) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_ABC)) { + if (irref_isk(fright->op2)) { + IRIns *add2 = IR(fright->op1); + if (add2->o == IR_ADD && irref_isk(add2->op2) && + IR(fright->op2)->i == -IR(add2->op2)->i) { + IRRef ref = J->chain[IR_ABC]; + IRRef lim = add2->op1; + if (fins->op1 > lim) lim = fins->op1; + while (ref > lim) { + IRIns *ir = IR(ref); + if (ir->op1 == fins->op1 && ir->op2 == add2->op1) + return DROPFOLD; + ref = ir->prev; + } + } + } + } + return NEXTFOLD; +} + +/* Eliminate ABC for constants. +** ABC(asize, k1), ABC(asize k2) ==> ABC(asize, max(k1, k2)) +** Drop second ABC if k2 is lower. Otherwise patch first ABC with k2. +*/ +LJFOLD(ABC any KINT) +LJFOLDF(abc_k) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_ABC)) { + IRRef ref = J->chain[IR_ABC]; + IRRef asize = fins->op1; + while (ref > asize) { + IRIns *ir = IR(ref); + if (ir->op1 == asize && irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + if (fright->i > k) + ir->op2 = fins->op2; + return DROPFOLD; + } + ref = ir->prev; + } + return EMITFOLD; /* Already performed CSE. */ + } + return NEXTFOLD; +} + +/* Eliminate invariant ABC inside loop. */ +LJFOLD(ABC any any) +LJFOLDF(abc_invar) +{ + /* Invariant ABC marked as PTR. Drop if op1 is invariant, too. */ + if (!irt_isint(fins->t) && fins->op1 < J->chain[IR_LOOP] && + !irt_isphi(IR(fins->op1)->t)) + return DROPFOLD; + return NEXTFOLD; +} + +/* -- Commutativity ------------------------------------------------------- */ + +/* The refs of commutative ops are canonicalized. Lower refs go to the right. +** Rationale behind this: +** - It (also) moves constants to the right. +** - It reduces the number of FOLD rules (e.g. (BOR any KINT) suffices). +** - It helps CSE to find more matches. +** - The assembler generates better code with constants at the right. +*/ + +LJFOLD(ADD any any) +LJFOLD(MUL any any) +LJFOLD(ADDOV any any) +LJFOLD(MULOV any any) +LJFOLDF(comm_swap) +{ + if (fins->op1 < fins->op2) { /* Move lower ref to the right. */ + IRRef1 tmp = fins->op1; + fins->op1 = fins->op2; + fins->op2 = tmp; + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(EQ any any) +LJFOLD(NE any any) +LJFOLDF(comm_equal) +{ + /* For non-numbers only: x == x ==> drop; x ~= x ==> fail */ + if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) + return CONDFOLD(fins->o == IR_EQ); + return fold_comm_swap(J); +} + +LJFOLD(LT any any) +LJFOLD(GE any any) +LJFOLD(LE any any) +LJFOLD(GT any any) +LJFOLD(ULT any any) +LJFOLD(UGE any any) +LJFOLD(ULE any any) +LJFOLD(UGT any any) +LJFOLDF(comm_comp) +{ + /* For non-numbers only: x <=> x ==> drop; x <> x ==> fail */ + if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) + return CONDFOLD((fins->o ^ (fins->o >> 1)) & 1); + if (fins->op1 < fins->op2) { /* Move lower ref to the right. */ + IRRef1 tmp = fins->op1; + fins->op1 = fins->op2; + fins->op2 = tmp; + fins->o ^= 3; /* GT <-> LT, GE <-> LE, does not affect U */ + return RETRYFOLD; + } + return NEXTFOLD; +} + +LJFOLD(BAND any any) +LJFOLD(BOR any any) +LJFOLD(MIN any any) +LJFOLD(MAX any any) +LJFOLDF(comm_dup) +{ + if (fins->op1 == fins->op2) /* x o x ==> x */ + return LEFTFOLD; + return fold_comm_swap(J); +} + +LJFOLD(BXOR any any) +LJFOLDF(comm_bxor) +{ + if (fins->op1 == fins->op2) /* i xor i ==> 0 */ + return irt_is64(fins->t) ? INT64FOLD(0) : INTFOLD(0); + return fold_comm_swap(J); +} + +/* -- Simplification of compound expressions ------------------------------ */ + +static TRef kfold_xload(jit_State *J, IRIns *ir, const void *p) +{ + int32_t k; + switch (irt_type(ir->t)) { + case IRT_NUM: return lj_ir_knum_u64(J, *(uint64_t *)p); + case IRT_I8: k = (int32_t)*(int8_t *)p; break; + case IRT_U8: k = (int32_t)*(uint8_t *)p; break; + case IRT_I16: k = (int32_t)(int16_t)lj_getu16(p); break; + case IRT_U16: k = (int32_t)(uint16_t)lj_getu16(p); break; + case IRT_INT: case IRT_U32: k = (int32_t)lj_getu32(p); break; + case IRT_I64: case IRT_U64: return lj_ir_kint64(J, *(uint64_t *)p); + default: return 0; + } + return lj_ir_kint(J, k); +} + +/* Turn: string.sub(str, a, b) == kstr +** into: string.byte(str, a) == string.byte(kstr, 1) etc. +** Note: this creates unaligned XLOADs on x86/x64. +*/ +LJFOLD(EQ SNEW KGC) +LJFOLD(NE SNEW KGC) +LJFOLDF(merge_eqne_snew_kgc) +{ + GCstr *kstr = ir_kstr(fright); + int32_t len = (int32_t)kstr->len; + lua_assert(irt_isstr(fins->t)); + +#if LJ_TARGET_UNALIGNED +#define FOLD_SNEW_MAX_LEN 4 /* Handle string lengths 0, 1, 2, 3, 4. */ +#define FOLD_SNEW_TYPE8 IRT_I8 /* Creates shorter immediates. */ +#else +#define FOLD_SNEW_MAX_LEN 1 /* Handle string lengths 0 or 1. */ +#define FOLD_SNEW_TYPE8 IRT_U8 /* Prefer unsigned loads. */ +#endif + + PHIBARRIER(fleft); + if (len <= FOLD_SNEW_MAX_LEN) { + IROp op = (IROp)fins->o; + IRRef strref = fleft->op1; + if (IR(strref)->o != IR_STRREF) + return NEXTFOLD; + if (op == IR_EQ) { + emitir(IRTGI(IR_EQ), fleft->op2, lj_ir_kint(J, len)); + /* Caveat: fins/fleft/fright is no longer valid after emitir. */ + } else { + /* NE is not expanded since this would need an OR of two conds. */ + if (!irref_isk(fleft->op2)) /* Only handle the constant length case. */ + return NEXTFOLD; + if (IR(fleft->op2)->i != len) + return DROPFOLD; + } + if (len > 0) { + /* A 4 byte load for length 3 is ok -- all strings have an extra NUL. */ + uint16_t ot = (uint16_t)(len == 1 ? IRT(IR_XLOAD, FOLD_SNEW_TYPE8) : + len == 2 ? IRT(IR_XLOAD, IRT_U16) : + IRTI(IR_XLOAD)); + TRef tmp = emitir(ot, strref, + IRXLOAD_READONLY | (len > 1 ? IRXLOAD_UNALIGNED : 0)); + TRef val = kfold_xload(J, IR(tref_ref(tmp)), strdata(kstr)); + if (len == 3) + tmp = emitir(IRTI(IR_BAND), tmp, + lj_ir_kint(J, LJ_ENDIAN_SELECT(0x00ffffff, 0xffffff00))); + fins->op1 = (IRRef1)tmp; + fins->op2 = (IRRef1)val; + fins->ot = (IROpT)IRTGI(op); + return RETRYFOLD; + } else { + return DROPFOLD; + } + } + return NEXTFOLD; +} + +/* -- Loads --------------------------------------------------------------- */ + +/* Loads cannot be folded or passed on to CSE in general. +** Alias analysis is needed to check for forwarding opportunities. +** +** Caveat: *all* loads must be listed here or they end up at CSE! +*/ + +LJFOLD(ALOAD any) +LJFOLDX(lj_opt_fwd_aload) + +/* From HREF fwd (see below). Must eliminate, not supported by fwd/backend. */ +LJFOLD(HLOAD KKPTR) +LJFOLDF(kfold_hload_kkptr) +{ + UNUSED(J); + lua_assert(ir_kptr(fleft) == niltvg(J2G(J))); + return TREF_NIL; +} + +LJFOLD(HLOAD any) +LJFOLDX(lj_opt_fwd_hload) + +LJFOLD(ULOAD any) +LJFOLDX(lj_opt_fwd_uload) + +LJFOLD(CALLL any IRCALL_lj_tab_len) +LJFOLDX(lj_opt_fwd_tab_len) + +/* Upvalue refs are really loads, but there are no corresponding stores. +** So CSE is ok for them, except for UREFO across a GC step (see below). +** If the referenced function is const, its upvalue addresses are const, too. +** This can be used to improve CSE by looking for the same address, +** even if the upvalues originate from a different function. +*/ +LJFOLD(UREFO KGC any) +LJFOLD(UREFC KGC any) +LJFOLDF(cse_uref) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { + IRRef ref = J->chain[fins->o]; + GCfunc *fn = ir_kfunc(fleft); + GCupval *uv = gco2uv(gcref(fn->l.uvptr[(fins->op2 >> 8)])); + while (ref > 0) { + IRIns *ir = IR(ref); + if (irref_isk(ir->op1)) { + GCfunc *fn2 = ir_kfunc(IR(ir->op1)); + if (gco2uv(gcref(fn2->l.uvptr[(ir->op2 >> 8)])) == uv) { + if (fins->o == IR_UREFO && gcstep_barrier(J, ref)) + break; + return ref; + } + } + ref = ir->prev; + } + } + return EMITFOLD; +} + +LJFOLD(HREFK any any) +LJFOLDX(lj_opt_fwd_hrefk) + +LJFOLD(HREF TNEW any) +LJFOLDF(fwd_href_tnew) +{ + if (lj_opt_fwd_href_nokey(J)) + return lj_ir_kkptr(J, niltvg(J2G(J))); + return NEXTFOLD; +} + +LJFOLD(HREF TDUP KPRI) +LJFOLD(HREF TDUP KGC) +LJFOLD(HREF TDUP KNUM) +LJFOLDF(fwd_href_tdup) +{ + TValue keyv; + lj_ir_kvalue(J->L, &keyv, fright); + if (lj_tab_get(J->L, ir_ktab(IR(fleft->op1)), &keyv) == niltvg(J2G(J)) && + lj_opt_fwd_href_nokey(J)) + return lj_ir_kkptr(J, niltvg(J2G(J))); + return NEXTFOLD; +} + +/* We can safely FOLD/CSE array/hash refs and field loads, since there +** are no corresponding stores. But we need to check for any NEWREF with +** an aliased table, as it may invalidate all of the pointers and fields. +** Only HREF needs the NEWREF check -- AREF and HREFK already depend on +** FLOADs. And NEWREF itself is treated like a store (see below). +*/ +LJFOLD(FLOAD TNEW IRFL_TAB_ASIZE) +LJFOLDF(fload_tab_tnew_asize) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) + return INTFOLD(fleft->op1); + return NEXTFOLD; +} + +LJFOLD(FLOAD TNEW IRFL_TAB_HMASK) +LJFOLDF(fload_tab_tnew_hmask) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) + return INTFOLD((1 << fleft->op2)-1); + return NEXTFOLD; +} + +LJFOLD(FLOAD TDUP IRFL_TAB_ASIZE) +LJFOLDF(fload_tab_tdup_asize) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) + return INTFOLD((int32_t)ir_ktab(IR(fleft->op1))->asize); + return NEXTFOLD; +} + +LJFOLD(FLOAD TDUP IRFL_TAB_HMASK) +LJFOLDF(fload_tab_tdup_hmask) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) + return INTFOLD((int32_t)ir_ktab(IR(fleft->op1))->hmask); + return NEXTFOLD; +} + +LJFOLD(HREF any any) +LJFOLD(FLOAD any IRFL_TAB_ARRAY) +LJFOLD(FLOAD any IRFL_TAB_NODE) +LJFOLD(FLOAD any IRFL_TAB_ASIZE) +LJFOLD(FLOAD any IRFL_TAB_HMASK) +LJFOLDF(fload_tab_ah) +{ + TRef tr = lj_opt_cse(J); + return lj_opt_fwd_tptr(J, tref_ref(tr)) ? tr : EMITFOLD; +} + +/* Strings are immutable, so we can safely FOLD/CSE the related FLOAD. */ +LJFOLD(FLOAD KGC IRFL_STR_LEN) +LJFOLDF(fload_str_len_kgc) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) + return INTFOLD((int32_t)ir_kstr(fleft)->len); + return NEXTFOLD; +} + +LJFOLD(FLOAD SNEW IRFL_STR_LEN) +LJFOLDF(fload_str_len_snew) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { + PHIBARRIER(fleft); + return fleft->op2; + } + return NEXTFOLD; +} + +/* The C type ID of cdata objects is immutable. */ +LJFOLD(FLOAD KGC IRFL_CDATA_CTYPEID) +LJFOLDF(fload_cdata_typeid_kgc) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) + return INTFOLD((int32_t)ir_kcdata(fleft)->ctypeid); + return NEXTFOLD; +} + +/* Get the contents of immutable cdata objects. */ +LJFOLD(FLOAD KGC IRFL_CDATA_PTR) +LJFOLD(FLOAD KGC IRFL_CDATA_INT) +LJFOLD(FLOAD KGC IRFL_CDATA_INT64) +LJFOLDF(fload_cdata_int64_kgc) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { + void *p = cdataptr(ir_kcdata(fleft)); + if (irt_is64(fins->t)) + return INT64FOLD(*(uint64_t *)p); + else + return INTFOLD(*(int32_t *)p); + } + return NEXTFOLD; +} + +LJFOLD(FLOAD CNEW IRFL_CDATA_CTYPEID) +LJFOLD(FLOAD CNEWI IRFL_CDATA_CTYPEID) +LJFOLDF(fload_cdata_typeid_cnew) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) + return fleft->op1; /* No PHI barrier needed. CNEW/CNEWI op1 is const. */ + return NEXTFOLD; +} + +/* Pointer, int and int64 cdata objects are immutable. */ +LJFOLD(FLOAD CNEWI IRFL_CDATA_PTR) +LJFOLD(FLOAD CNEWI IRFL_CDATA_INT) +LJFOLD(FLOAD CNEWI IRFL_CDATA_INT64) +LJFOLDF(fload_cdata_ptr_int64_cnew) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) + return fleft->op2; /* Fold even across PHI to avoid allocations. */ + return NEXTFOLD; +} + +LJFOLD(FLOAD any IRFL_STR_LEN) +LJFOLD(FLOAD any IRFL_CDATA_CTYPEID) +LJFOLD(FLOAD any IRFL_CDATA_PTR) +LJFOLD(FLOAD any IRFL_CDATA_INT) +LJFOLD(FLOAD any IRFL_CDATA_INT64) +LJFOLD(VLOAD any any) /* Vararg loads have no corresponding stores. */ +LJFOLDX(lj_opt_cse) + +/* All other field loads need alias analysis. */ +LJFOLD(FLOAD any any) +LJFOLDX(lj_opt_fwd_fload) + +/* This is for LOOP only. Recording handles SLOADs internally. */ +LJFOLD(SLOAD any any) +LJFOLDF(fwd_sload) +{ + if ((fins->op2 & IRSLOAD_FRAME)) { + TRef tr = lj_opt_cse(J); + return tref_ref(tr) < J->chain[IR_RETF] ? EMITFOLD : tr; + } else { + lua_assert(J->slot[fins->op1] != 0); + return J->slot[fins->op1]; + } +} + +/* Only fold for KKPTR. The pointer _and_ the contents must be const. */ +LJFOLD(XLOAD KKPTR any) +LJFOLDF(xload_kptr) +{ + TRef tr = kfold_xload(J, fins, ir_kptr(fleft)); + return tr ? tr : NEXTFOLD; +} + +LJFOLD(XLOAD any any) +LJFOLDX(lj_opt_fwd_xload) + +/* -- Write barriers ------------------------------------------------------ */ + +/* Write barriers are amenable to CSE, but not across any incremental +** GC steps. +** +** The same logic applies to open upvalue references, because a stack +** may be resized during a GC step (not the current stack, but maybe that +** of a coroutine). +*/ +LJFOLD(TBAR any) +LJFOLD(OBAR any any) +LJFOLD(UREFO any any) +LJFOLDF(barrier_tab) +{ + TRef tr = lj_opt_cse(J); + if (gcstep_barrier(J, tref_ref(tr))) /* CSE across GC step? */ + return EMITFOLD; /* Raw emit. Assumes fins is left intact by CSE. */ + return tr; +} + +LJFOLD(TBAR TNEW) +LJFOLD(TBAR TDUP) +LJFOLDF(barrier_tnew_tdup) +{ + /* New tables are always white and never need a barrier. */ + if (fins->op1 < J->chain[IR_LOOP]) /* Except across a GC step. */ + return NEXTFOLD; + return DROPFOLD; +} + +/* -- Stores and allocations ---------------------------------------------- */ + +/* Stores and allocations cannot be folded or passed on to CSE in general. +** But some stores can be eliminated with dead-store elimination (DSE). +** +** Caveat: *all* stores and allocs must be listed here or they end up at CSE! +*/ + +LJFOLD(ASTORE any any) +LJFOLD(HSTORE any any) +LJFOLDX(lj_opt_dse_ahstore) + +LJFOLD(USTORE any any) +LJFOLDX(lj_opt_dse_ustore) + +LJFOLD(FSTORE any any) +LJFOLDX(lj_opt_dse_fstore) + +LJFOLD(XSTORE any any) +LJFOLDX(lj_opt_dse_xstore) + +LJFOLD(NEWREF any any) /* Treated like a store. */ +LJFOLD(CALLS any any) +LJFOLD(CALLL any any) /* Safeguard fallback. */ +LJFOLD(CALLXS any any) +LJFOLD(XBAR) +LJFOLD(RETF any any) /* Modifies BASE. */ +LJFOLD(TNEW any any) +LJFOLD(TDUP any) +LJFOLD(CNEW any any) +LJFOLD(XSNEW any any) +LJFOLDX(lj_ir_emit) + +/* ------------------------------------------------------------------------ */ + +/* Every entry in the generated hash table is a 32 bit pattern: +** +** xxxxxxxx iiiiiii lllllll rrrrrrrrrr +** +** xxxxxxxx = 8 bit index into fold function table +** iiiiiii = 7 bit folded instruction opcode +** lllllll = 7 bit left instruction opcode +** rrrrrrrrrr = 8 bit right instruction opcode or 10 bits from literal field +*/ + +#include "lj_folddef.h" + +/* ------------------------------------------------------------------------ */ + +/* Fold IR instruction. */ +TRef LJ_FASTCALL lj_opt_fold(jit_State *J) +{ + uint32_t key, any; + IRRef ref; + + if (LJ_UNLIKELY((J->flags & JIT_F_OPT_MASK) != JIT_F_OPT_DEFAULT)) { + lua_assert(((JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE|JIT_F_OPT_DSE) | + JIT_F_OPT_DEFAULT) == JIT_F_OPT_DEFAULT); + /* Folding disabled? Chain to CSE, but not for loads/stores/allocs. */ + if (!(J->flags & JIT_F_OPT_FOLD) && irm_kind(lj_ir_mode[fins->o]) == IRM_N) + return lj_opt_cse(J); + + /* No FOLD, forwarding or CSE? Emit raw IR for loads, except for SLOAD. */ + if ((J->flags & (JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE)) != + (JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE) && + irm_kind(lj_ir_mode[fins->o]) == IRM_L && fins->o != IR_SLOAD) + return lj_ir_emit(J); + + /* No FOLD or DSE? Emit raw IR for stores. */ + if ((J->flags & (JIT_F_OPT_FOLD|JIT_F_OPT_DSE)) != + (JIT_F_OPT_FOLD|JIT_F_OPT_DSE) && + irm_kind(lj_ir_mode[fins->o]) == IRM_S) + return lj_ir_emit(J); + } + + /* Fold engine start/retry point. */ +retry: + /* Construct key from opcode and operand opcodes (unless literal/none). */ + key = ((uint32_t)fins->o << 17); + if (fins->op1 >= J->cur.nk) { + key += (uint32_t)IR(fins->op1)->o << 10; + *fleft = *IR(fins->op1); + } + if (fins->op2 >= J->cur.nk) { + key += (uint32_t)IR(fins->op2)->o; + *fright = *IR(fins->op2); + } else { + key += (fins->op2 & 0x3ffu); /* Literal mask. Must include IRCONV_*MASK. */ + } + + /* Check for a match in order from most specific to least specific. */ + any = 0; + for (;;) { + uint32_t k = key | (any & 0x1ffff); + uint32_t h = fold_hashkey(k); + uint32_t fh = fold_hash[h]; /* Lookup key in semi-perfect hash table. */ + if ((fh & 0xffffff) == k || (fh = fold_hash[h+1], (fh & 0xffffff) == k)) { + ref = (IRRef)tref_ref(fold_func[fh >> 24](J)); + if (ref != NEXTFOLD) + break; + } + if (any == 0xfffff) /* Exhausted folding. Pass on to CSE. */ + return lj_opt_cse(J); + any = (any | (any >> 10)) ^ 0xffc00; + } + + /* Return value processing, ordered by frequency. */ + if (LJ_LIKELY(ref >= MAX_FOLD)) + return TREF(ref, irt_t(IR(ref)->t)); + if (ref == RETRYFOLD) + goto retry; + if (ref == KINTFOLD) + return lj_ir_kint(J, fins->i); + if (ref == FAILFOLD) + lj_trace_err(J, LJ_TRERR_GFAIL); + lua_assert(ref == DROPFOLD); + return REF_DROP; +} + +/* -- Common-Subexpression Elimination ------------------------------------ */ + +/* CSE an IR instruction. This is very fast due to the skip-list chains. */ +TRef LJ_FASTCALL lj_opt_cse(jit_State *J) +{ + /* Avoid narrow to wide store-to-load forwarding stall */ + IRRef2 op12 = (IRRef2)fins->op1 + ((IRRef2)fins->op2 << 16); + IROp op = fins->o; + if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { + /* Limited search for same operands in per-opcode chain. */ + IRRef ref = J->chain[op]; + IRRef lim = fins->op1; + if (fins->op2 > lim) lim = fins->op2; /* Relies on lit < REF_BIAS. */ + while (ref > lim) { + if (IR(ref)->op12 == op12) + return TREF(ref, irt_t(IR(ref)->t)); /* Common subexpression found. */ + ref = IR(ref)->prev; + } + } + /* Otherwise emit IR (inlined for speed). */ + { + IRRef ref = lj_ir_nextins(J); + IRIns *ir = IR(ref); + ir->prev = J->chain[op]; + ir->op12 = op12; + J->chain[op] = (IRRef1)ref; + ir->o = fins->o; + J->guardemit.irt |= fins->t.irt; + return TREF(ref, irt_t((ir->t = fins->t))); + } +} + +/* CSE with explicit search limit. */ +TRef LJ_FASTCALL lj_opt_cselim(jit_State *J, IRRef lim) +{ + IRRef ref = J->chain[fins->o]; + IRRef2 op12 = (IRRef2)fins->op1 + ((IRRef2)fins->op2 << 16); + while (ref > lim) { + if (IR(ref)->op12 == op12) + return ref; + ref = IR(ref)->prev; + } + return lj_ir_emit(J); +} + +/* ------------------------------------------------------------------------ */ + +#undef IR +#undef fins +#undef fleft +#undef fright +#undef knumleft +#undef knumright +#undef emitir + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_loop.c b/src/3rd party/luajit-2.0/src/lj_opt_loop.c new file mode 100644 index 00000000000..b7d1923edb7 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_loop.c @@ -0,0 +1,436 @@ +/* +** LOOP: Loop Optimizations. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_loop_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_err.h" +#include "lj_str.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_snap.h" +#include "lj_vm.h" + +/* Loop optimization: +** +** Traditional Loop-Invariant Code Motion (LICM) splits the instructions +** of a loop into invariant and variant instructions. The invariant +** instructions are hoisted out of the loop and only the variant +** instructions remain inside the loop body. +** +** Unfortunately LICM is mostly useless for compiling dynamic languages. +** The IR has many guards and most of the subsequent instructions are +** control-dependent on them. The first non-hoistable guard would +** effectively prevent hoisting of all subsequent instructions. +** +** That's why we use a special form of unrolling using copy-substitution, +** combined with redundancy elimination: +** +** The recorded instruction stream is re-emitted to the compiler pipeline +** with substituted operands. The substitution table is filled with the +** refs returned by re-emitting each instruction. This can be done +** on-the-fly, because the IR is in strict SSA form, where every ref is +** defined before its use. +** +** This aproach generates two code sections, separated by the LOOP +** instruction: +** +** 1. The recorded instructions form a kind of pre-roll for the loop. It +** contains a mix of invariant and variant instructions and performs +** exactly one loop iteration (but not necessarily the 1st iteration). +** +** 2. The loop body contains only the variant instructions and performs +** all remaining loop iterations. +** +** On first sight that looks like a waste of space, because the variant +** instructions are present twice. But the key insight is that the +** pre-roll honors the control-dependencies for *both* the pre-roll itself +** *and* the loop body! +** +** It also means one doesn't have to explicitly model control-dependencies +** (which, BTW, wouldn't help LICM much). And it's much easier to +** integrate sparse snapshotting with this approach. +** +** One of the nicest aspects of this approach is that all of the +** optimizations of the compiler pipeline (FOLD, CSE, FWD, etc.) can be +** reused with only minor restrictions (e.g. one should not fold +** instructions across loop-carried dependencies). +** +** But in general all optimizations can be applied which only need to look +** backwards into the generated instruction stream. At any point in time +** during the copy-substitution process this contains both a static loop +** iteration (the pre-roll) and a dynamic one (from the to-be-copied +** instruction up to the end of the partial loop body). +** +** Since control-dependencies are implicitly kept, CSE also applies to all +** kinds of guards. The major advantage is that all invariant guards can +** be hoisted, too. +** +** Load/store forwarding works across loop iterations, too. This is +** important if loop-carried dependencies are kept in upvalues or tables. +** E.g. 'self.idx = self.idx + 1' deep down in some OO-style method may +** become a forwarded loop-recurrence after inlining. +** +** Since the IR is in SSA form, loop-carried dependencies have to be +** modeled with PHI instructions. The potential candidates for PHIs are +** collected on-the-fly during copy-substitution. After eliminating the +** redundant ones, PHI instructions are emitted *below* the loop body. +** +** Note that this departure from traditional SSA form doesn't change the +** semantics of the PHI instructions themselves. But it greatly simplifies +** on-the-fly generation of the IR and the machine code. +*/ + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* Emit raw IR without passing through optimizations. */ +#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) + +/* -- PHI elimination ----------------------------------------------------- */ + +/* Emit or eliminate collected PHIs. */ +static void loop_emit_phi(jit_State *J, IRRef1 *subst, IRRef1 *phi, IRRef nphi, + SnapNo onsnap) +{ + int passx = 0; + IRRef i, j, nslots; + IRRef invar = J->chain[IR_LOOP]; + /* Pass #1: mark redundant and potentially redundant PHIs. */ + for (i = 0, j = 0; i < nphi; i++) { + IRRef lref = phi[i]; + IRRef rref = subst[lref]; + if (lref == rref || rref == REF_DROP) { /* Invariants are redundant. */ + irt_clearphi(IR(lref)->t); + } else { + phi[j++] = (IRRef1)lref; + if (!(IR(rref)->op1 == lref || IR(rref)->op2 == lref)) { + /* Quick check for simple recurrences failed, need pass2. */ + irt_setmark(IR(lref)->t); + passx = 1; + } + } + } + nphi = j; + /* Pass #2: traverse variant part and clear marks of non-redundant PHIs. */ + if (passx) { + SnapNo s; + for (i = J->cur.nins-1; i > invar; i--) { + IRIns *ir = IR(i); + if (!irref_isk(ir->op2)) irt_clearmark(IR(ir->op2)->t); + if (!irref_isk(ir->op1)) { + irt_clearmark(IR(ir->op1)->t); + if (ir->op1 < invar && + ir->o >= IR_CALLN && ir->o <= IR_CARG) { /* ORDER IR */ + ir = IR(ir->op1); + while (ir->o == IR_CARG) { + if (!irref_isk(ir->op2)) irt_clearmark(IR(ir->op2)->t); + if (irref_isk(ir->op1)) break; + ir = IR(ir->op1); + irt_clearmark(ir->t); + } + } + } + } + for (s = J->cur.nsnap-1; s >= onsnap; s--) { + SnapShot *snap = &J->cur.snap[s]; + SnapEntry *map = &J->cur.snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + IRRef ref = snap_ref(map[n]); + if (!irref_isk(ref)) irt_clearmark(IR(ref)->t); + } + } + } + /* Pass #3: add PHIs for variant slots without a corresponding SLOAD. */ + nslots = J->baseslot+J->maxslot; + for (i = 1; i < nslots; i++) { + IRRef ref = tref_ref(J->slot[i]); + while (!irref_isk(ref) && ref != subst[ref]) { + IRIns *ir = IR(ref); + irt_clearmark(ir->t); /* Unmark potential uses, too. */ + if (irt_isphi(ir->t) || irt_ispri(ir->t)) + break; + irt_setphi(ir->t); + if (nphi >= LJ_MAX_PHI) + lj_trace_err(J, LJ_TRERR_PHIOV); + phi[nphi++] = (IRRef1)ref; + ref = subst[ref]; + if (ref > invar) + break; + } + } + /* Pass #4: propagate non-redundant PHIs. */ + while (passx) { + passx = 0; + for (i = 0; i < nphi; i++) { + IRRef lref = phi[i]; + IRIns *ir = IR(lref); + if (!irt_ismarked(ir->t)) { /* Propagate only from unmarked PHIs. */ + IRIns *irr = IR(subst[lref]); + if (irt_ismarked(irr->t)) { /* Right ref points to other PHI? */ + irt_clearmark(irr->t); /* Mark that PHI as non-redundant. */ + passx = 1; /* Retry. */ + } + } + } + } + /* Pass #5: emit PHI instructions or eliminate PHIs. */ + for (i = 0; i < nphi; i++) { + IRRef lref = phi[i]; + IRIns *ir = IR(lref); + if (!irt_ismarked(ir->t)) { /* Emit PHI if not marked. */ + IRRef rref = subst[lref]; + if (rref > invar) + irt_setphi(IR(rref)->t); + emitir_raw(IRT(IR_PHI, irt_type(ir->t)), lref, rref); + } else { /* Otherwise eliminate PHI. */ + irt_clearmark(ir->t); + irt_clearphi(ir->t); + } + } +} + +/* -- Loop unrolling using copy-substitution ------------------------------ */ + +/* Copy-substitute snapshot. */ +static void loop_subst_snap(jit_State *J, SnapShot *osnap, + SnapEntry *loopmap, IRRef1 *subst) +{ + SnapEntry *nmap, *omap = &J->cur.snapmap[osnap->mapofs]; + SnapEntry *nextmap = &J->cur.snapmap[snap_nextofs(&J->cur, osnap)]; + MSize nmapofs; + MSize on, ln, nn, onent = osnap->nent; + BCReg nslots = osnap->nslots; + SnapShot *snap = &J->cur.snap[J->cur.nsnap]; + if (irt_isguard(J->guardemit)) { /* Guard inbetween? */ + nmapofs = J->cur.nsnapmap; + J->cur.nsnap++; /* Add new snapshot. */ + } else { /* Otherwise overwrite previous snapshot. */ + snap--; + nmapofs = snap->mapofs; + } + J->guardemit.irt = 0; + /* Setup new snapshot. */ + snap->mapofs = (uint16_t)nmapofs; + snap->ref = (IRRef1)J->cur.nins; + snap->nslots = nslots; + snap->topslot = osnap->topslot; + snap->count = 0; + nmap = &J->cur.snapmap[nmapofs]; + /* Substitute snapshot slots. */ + on = ln = nn = 0; + while (on < onent) { + SnapEntry osn = omap[on], lsn = loopmap[ln]; + if (snap_slot(lsn) < snap_slot(osn)) { /* Copy slot from loop map. */ + nmap[nn++] = lsn; + ln++; + } else { /* Copy substituted slot from snapshot map. */ + if (snap_slot(lsn) == snap_slot(osn)) ln++; /* Shadowed loop slot. */ + if (!irref_isk(snap_ref(osn))) + osn = snap_setref(osn, subst[snap_ref(osn)]); + nmap[nn++] = osn; + on++; + } + } + while (snap_slot(loopmap[ln]) < nslots) /* Copy remaining loop slots. */ + nmap[nn++] = loopmap[ln++]; + snap->nent = (uint8_t)nn; + omap += onent; + nmap += nn; + while (omap < nextmap) /* Copy PC + frame links. */ + *nmap++ = *omap++; + J->cur.nsnapmap = (uint16_t)(nmap - J->cur.snapmap); +} + +/* Unroll loop. */ +static void loop_unroll(jit_State *J) +{ + IRRef1 phi[LJ_MAX_PHI]; + uint32_t nphi = 0; + IRRef1 *subst; + SnapNo onsnap; + SnapShot *osnap, *loopsnap; + SnapEntry *loopmap, *psentinel; + IRRef ins, invar; + + /* Use temp buffer for substitution table. + ** Only non-constant refs in [REF_BIAS,invar) are valid indexes. + ** Caveat: don't call into the VM or run the GC or the buffer may be gone. + */ + invar = J->cur.nins; + subst = (IRRef1 *)lj_str_needbuf(J->L, &G(J->L)->tmpbuf, + (invar-REF_BIAS)*sizeof(IRRef1)) - REF_BIAS; + subst[REF_BASE] = REF_BASE; + + /* LOOP separates the pre-roll from the loop body. */ + emitir_raw(IRTG(IR_LOOP, IRT_NIL), 0, 0); + + /* Grow snapshot buffer and map for copy-substituted snapshots. + ** Need up to twice the number of snapshots minus #0 and loop snapshot. + ** Need up to twice the number of entries plus fallback substitutions + ** from the loop snapshot entries for each new snapshot. + ** Caveat: both calls may reallocate J->cur.snap and J->cur.snapmap! + */ + onsnap = J->cur.nsnap; + lj_snap_grow_buf(J, 2*onsnap-2); + lj_snap_grow_map(J, J->cur.nsnapmap*2+(onsnap-2)*J->cur.snap[onsnap-1].nent); + + /* The loop snapshot is used for fallback substitutions. */ + loopsnap = &J->cur.snap[onsnap-1]; + loopmap = &J->cur.snapmap[loopsnap->mapofs]; + /* The PC of snapshot #0 and the loop snapshot must match. */ + psentinel = &loopmap[loopsnap->nent]; + lua_assert(*psentinel == J->cur.snapmap[J->cur.snap[0].nent]); + *psentinel = SNAP(255, 0, 0); /* Replace PC with temporary sentinel. */ + + /* Start substitution with snapshot #1 (#0 is empty for root traces). */ + osnap = &J->cur.snap[1]; + + /* Copy and substitute all recorded instructions and snapshots. */ + for (ins = REF_FIRST; ins < invar; ins++) { + IRIns *ir; + IRRef op1, op2; + + if (ins >= osnap->ref) /* Instruction belongs to next snapshot? */ + loop_subst_snap(J, osnap++, loopmap, subst); /* Copy-substitute it. */ + + /* Substitute instruction operands. */ + ir = IR(ins); + op1 = ir->op1; + if (!irref_isk(op1)) op1 = subst[op1]; + op2 = ir->op2; + if (!irref_isk(op2)) op2 = subst[op2]; + if (irm_kind(lj_ir_mode[ir->o]) == IRM_N && + op1 == ir->op1 && op2 == ir->op2) { /* Regular invariant ins? */ + subst[ins] = (IRRef1)ins; /* Shortcut. */ + } else { + /* Re-emit substituted instruction to the FOLD/CSE/etc. pipeline. */ + IRType1 t = ir->t; /* Get this first, since emitir may invalidate ir. */ + IRRef ref = tref_ref(emitir(ir->ot & ~IRT_ISPHI, op1, op2)); + subst[ins] = (IRRef1)ref; + if (ref != ins) { + IRIns *irr = IR(ref); + if (ref < invar) { /* Loop-carried dependency? */ + /* Potential PHI? */ + if (!irref_isk(ref) && !irt_isphi(irr->t) && !irt_ispri(irr->t)) { + irt_setphi(irr->t); + if (nphi >= LJ_MAX_PHI) + lj_trace_err(J, LJ_TRERR_PHIOV); + phi[nphi++] = (IRRef1)ref; + } + /* Check all loop-carried dependencies for type instability. */ + if (!irt_sametype(t, irr->t)) { + if (irt_isinteger(t) && irt_isinteger(irr->t)) + continue; + else if (irt_isnum(t) && irt_isinteger(irr->t)) /* Fix int->num. */ + ref = tref_ref(emitir(IRTN(IR_CONV), ref, IRCONV_NUM_INT)); + else if (irt_isnum(irr->t) && irt_isinteger(t)) /* Fix num->int. */ + ref = tref_ref(emitir(IRTGI(IR_CONV), ref, + IRCONV_INT_NUM|IRCONV_CHECK)); + else + lj_trace_err(J, LJ_TRERR_TYPEINS); + subst[ins] = (IRRef1)ref; + irr = IR(ref); + goto phiconv; + } + } else if (ref != REF_DROP && irr->o == IR_CONV && + ref > invar && irr->op1 < invar) { + /* May need an extra PHI for a CONV. */ + ref = irr->op1; + irr = IR(ref); + phiconv: + if (ref < invar && !irref_isk(ref) && !irt_isphi(irr->t)) { + irt_setphi(irr->t); + if (nphi >= LJ_MAX_PHI) + lj_trace_err(J, LJ_TRERR_PHIOV); + phi[nphi++] = (IRRef1)ref; + } + } + } + } + } + if (!irt_isguard(J->guardemit)) /* Drop redundant snapshot. */ + J->cur.nsnapmap = (uint16_t)J->cur.snap[--J->cur.nsnap].mapofs; + lua_assert(J->cur.nsnapmap <= J->sizesnapmap); + *psentinel = J->cur.snapmap[J->cur.snap[0].nent]; /* Restore PC. */ + + loop_emit_phi(J, subst, phi, nphi, onsnap); +} + +/* Undo any partial changes made by the loop optimization. */ +static void loop_undo(jit_State *J, IRRef ins, SnapNo nsnap, MSize nsnapmap) +{ + ptrdiff_t i; + SnapShot *snap = &J->cur.snap[nsnap-1]; + SnapEntry *map = J->cur.snapmap; + map[snap->mapofs + snap->nent] = map[J->cur.snap[0].nent]; /* Restore PC. */ + J->cur.nsnapmap = (uint16_t)nsnapmap; + J->cur.nsnap = nsnap; + J->guardemit.irt = 0; + lj_ir_rollback(J, ins); + for (i = 0; i < BPROP_SLOTS; i++) { /* Remove backprop. cache entries. */ + BPropEntry *bp = &J->bpropcache[i]; + if (bp->val >= ins) + bp->key = 0; + } + for (ins--; ins >= REF_FIRST; ins--) { /* Remove flags. */ + IRIns *ir = IR(ins); + irt_clearphi(ir->t); + irt_clearmark(ir->t); + } +} + +/* Protected callback for loop optimization. */ +static TValue *cploop_opt(lua_State *L, lua_CFunction dummy, void *ud) +{ + UNUSED(L); UNUSED(dummy); + loop_unroll((jit_State *)ud); + return NULL; +} + +/* Loop optimization. */ +int lj_opt_loop(jit_State *J) +{ + IRRef nins = J->cur.nins; + SnapNo nsnap = J->cur.nsnap; + MSize nsnapmap = J->cur.nsnapmap; + int errcode = lj_vm_cpcall(J->L, NULL, J, cploop_opt); + if (LJ_UNLIKELY(errcode)) { + lua_State *L = J->L; + if (errcode == LUA_ERRRUN && tvisnumber(L->top-1)) { /* Trace error? */ + int32_t e = numberVint(L->top-1); + switch ((TraceError)e) { + case LJ_TRERR_TYPEINS: /* Type instability. */ + case LJ_TRERR_GFAIL: /* Guard would always fail. */ + /* Unrolling via recording fixes many cases, e.g. a flipped boolean. */ + if (--J->instunroll < 0) /* But do not unroll forever. */ + break; + L->top--; /* Remove error object. */ + loop_undo(J, nins, nsnap, nsnapmap); + return 1; /* Loop optimization failed, continue recording. */ + default: + break; + } + } + lj_err_throw(L, errcode); /* Propagate all other errors. */ + } + return 0; /* Loop optimization is ok. */ +} + +#undef IR +#undef emitir +#undef emitir_raw + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_mem.c b/src/3rd party/luajit-2.0/src/lj_opt_mem.c new file mode 100644 index 00000000000..f4e3cd3a815 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_mem.c @@ -0,0 +1,915 @@ +/* +** Memory access optimizations. +** AA: Alias Analysis using high-level semantic disambiguation. +** FWD: Load Forwarding (L2L) + Store Forwarding (S2L). +** DSE: Dead-Store Elimination. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_mem_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_tab.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) +#define fins (&J->fold.ins) +#define fleft (&J->fold.left) +#define fright (&J->fold.right) + +/* +** Caveat #1: return value is not always a TRef -- only use with tref_ref(). +** Caveat #2: FWD relies on active CSE for xREF operands -- see lj_opt_fold(). +*/ + +/* Return values from alias analysis. */ +typedef enum { + ALIAS_NO, /* The two refs CANNOT alias (exact). */ + ALIAS_MAY, /* The two refs MAY alias (inexact). */ + ALIAS_MUST /* The two refs MUST alias (exact). */ +} AliasRet; + +/* -- ALOAD/HLOAD forwarding and ASTORE/HSTORE elimination ---------------- */ + +/* Simplified escape analysis: check for intervening stores. */ +static AliasRet aa_escape(jit_State *J, IRIns *ir, IRIns *stop) +{ + IRRef ref = (IRRef)(ir - J->cur.ir); /* The ref that might be stored. */ + for (ir++; ir < stop; ir++) + if (ir->op2 == ref && + (ir->o == IR_ASTORE || ir->o == IR_HSTORE || + ir->o == IR_USTORE || ir->o == IR_FSTORE)) + return ALIAS_MAY; /* Reference was stored and might alias. */ + return ALIAS_NO; /* Reference was not stored. */ +} + +/* Alias analysis for two different table references. */ +static AliasRet aa_table(jit_State *J, IRRef ta, IRRef tb) +{ + IRIns *taba = IR(ta), *tabb = IR(tb); + int newa, newb; + lua_assert(ta != tb); + lua_assert(irt_istab(taba->t) && irt_istab(tabb->t)); + /* Disambiguate new allocations. */ + newa = (taba->o == IR_TNEW || taba->o == IR_TDUP); + newb = (tabb->o == IR_TNEW || tabb->o == IR_TDUP); + if (newa && newb) + return ALIAS_NO; /* Two different allocations never alias. */ + if (newb) { /* At least one allocation? */ + IRIns *tmp = taba; taba = tabb; tabb = tmp; + } else if (!newa) { + return ALIAS_MAY; /* Anything else: we just don't know. */ + } + return aa_escape(J, taba, tabb); +} + +/* Alias analysis for array and hash access using key-based disambiguation. */ +static AliasRet aa_ahref(jit_State *J, IRIns *refa, IRIns *refb) +{ + IRRef ka = refa->op2; + IRRef kb = refb->op2; + IRIns *keya, *keyb; + IRRef ta, tb; + if (refa == refb) + return ALIAS_MUST; /* Shortcut for same refs. */ + keya = IR(ka); + if (keya->o == IR_KSLOT) { ka = keya->op1; keya = IR(ka); } + keyb = IR(kb); + if (keyb->o == IR_KSLOT) { kb = keyb->op1; keyb = IR(kb); } + ta = (refa->o==IR_HREFK || refa->o==IR_AREF) ? IR(refa->op1)->op1 : refa->op1; + tb = (refb->o==IR_HREFK || refb->o==IR_AREF) ? IR(refb->op1)->op1 : refb->op1; + if (ka == kb) { + /* Same key. Check for same table with different ref (NEWREF vs. HREF). */ + if (ta == tb) + return ALIAS_MUST; /* Same key, same table. */ + else + return aa_table(J, ta, tb); /* Same key, possibly different table. */ + } + if (irref_isk(ka) && irref_isk(kb)) + return ALIAS_NO; /* Different constant keys. */ + if (refa->o == IR_AREF) { + /* Disambiguate array references based on index arithmetic. */ + int32_t ofsa = 0, ofsb = 0; + IRRef basea = ka, baseb = kb; + lua_assert(refb->o == IR_AREF); + /* Gather base and offset from t[base] or t[base+-ofs]. */ + if (keya->o == IR_ADD && irref_isk(keya->op2)) { + basea = keya->op1; + ofsa = IR(keya->op2)->i; + if (basea == kb && ofsa != 0) + return ALIAS_NO; /* t[base+-ofs] vs. t[base]. */ + } + if (keyb->o == IR_ADD && irref_isk(keyb->op2)) { + baseb = keyb->op1; + ofsb = IR(keyb->op2)->i; + if (ka == baseb && ofsb != 0) + return ALIAS_NO; /* t[base] vs. t[base+-ofs]. */ + } + if (basea == baseb && ofsa != ofsb) + return ALIAS_NO; /* t[base+-o1] vs. t[base+-o2] and o1 != o2. */ + } else { + /* Disambiguate hash references based on the type of their keys. */ + lua_assert((refa->o==IR_HREF || refa->o==IR_HREFK || refa->o==IR_NEWREF) && + (refb->o==IR_HREF || refb->o==IR_HREFK || refb->o==IR_NEWREF)); + if (!irt_sametype(keya->t, keyb->t)) + return ALIAS_NO; /* Different key types. */ + } + if (ta == tb) + return ALIAS_MAY; /* Same table, cannot disambiguate keys. */ + else + return aa_table(J, ta, tb); /* Try to disambiguate tables. */ +} + +/* Array and hash load forwarding. */ +static TRef fwd_ahload(jit_State *J, IRRef xref) +{ + IRIns *xr = IR(xref); + IRRef lim = xref; /* Search limit. */ + IRRef ref; + + /* Search for conflicting stores. */ + ref = J->chain[fins->o+IRDELTA_L2S]; + while (ref > xref) { + IRIns *store = IR(ref); + switch (aa_ahref(J, xr, IR(store->op1))) { + case ALIAS_NO: break; /* Continue searching. */ + case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ + case ALIAS_MUST: return store->op2; /* Store forwarding. */ + } + ref = store->prev; + } + + /* No conflicting store (yet): const-fold loads from allocations. */ + { + IRIns *ir = (xr->o == IR_HREFK || xr->o == IR_AREF) ? IR(xr->op1) : xr; + IRRef tab = ir->op1; + ir = IR(tab); + if (ir->o == IR_TNEW || (ir->o == IR_TDUP && irref_isk(xr->op2))) { + /* A NEWREF with a number key may end up pointing to the array part. + ** But it's referenced from HSTORE and not found in the ASTORE chain. + ** For now simply consider this a conflict without forwarding anything. + */ + if (xr->o == IR_AREF) { + IRRef ref2 = J->chain[IR_NEWREF]; + while (ref2 > tab) { + IRIns *newref = IR(ref2); + if (irt_isnum(IR(newref->op2)->t)) + goto cselim; + ref2 = newref->prev; + } + } + /* NEWREF inhibits CSE for HREF, and dependent FLOADs from HREFK/AREF. + ** But the above search for conflicting stores was limited by xref. + ** So continue searching, limited by the TNEW/TDUP. Store forwarding + ** is ok, too. A conflict does NOT limit the search for a matching load. + */ + while (ref > tab) { + IRIns *store = IR(ref); + switch (aa_ahref(J, xr, IR(store->op1))) { + case ALIAS_NO: break; /* Continue searching. */ + case ALIAS_MAY: goto cselim; /* Conflicting store. */ + case ALIAS_MUST: return store->op2; /* Store forwarding. */ + } + ref = store->prev; + } + lua_assert(ir->o != IR_TNEW || irt_isnil(fins->t)); + if (irt_ispri(fins->t)) { + return TREF_PRI(irt_type(fins->t)); + } else if (irt_isnum(fins->t) || (LJ_DUALNUM && irt_isint(fins->t)) || + irt_isstr(fins->t)) { + TValue keyv; + cTValue *tv; + IRIns *key = IR(xr->op2); + if (key->o == IR_KSLOT) key = IR(key->op1); + lj_ir_kvalue(J->L, &keyv, key); + tv = lj_tab_get(J->L, ir_ktab(IR(ir->op1)), &keyv); + lua_assert(itype2irt(tv) == irt_type(fins->t)); + if (irt_isnum(fins->t)) + return lj_ir_knum_u64(J, tv->u64); + else if (LJ_DUALNUM && irt_isint(fins->t)) + return lj_ir_kint(J, intV(tv)); + else + return lj_ir_kstr(J, strV(tv)); + } + /* Othwerwise: don't intern as a constant. */ + } + } + +cselim: + /* Try to find a matching load. Below the conflicting store, if any. */ + ref = J->chain[fins->o]; + while (ref > lim) { + IRIns *load = IR(ref); + if (load->op1 == xref) + return ref; /* Load forwarding. */ + ref = load->prev; + } + return 0; /* Conflict or no match. */ +} + +/* Reassociate ALOAD across PHIs to handle t[i-1] forwarding case. */ +static TRef fwd_aload_reassoc(jit_State *J) +{ + IRIns *irx = IR(fins->op1); + IRIns *key = IR(irx->op2); + if (key->o == IR_ADD && irref_isk(key->op2)) { + IRIns *add2 = IR(key->op1); + if (add2->o == IR_ADD && irref_isk(add2->op2) && + IR(key->op2)->i == -IR(add2->op2)->i) { + IRRef ref = J->chain[IR_AREF]; + IRRef lim = add2->op1; + if (irx->op1 > lim) lim = irx->op1; + while (ref > lim) { + IRIns *ir = IR(ref); + if (ir->op1 == irx->op1 && ir->op2 == add2->op1) + return fwd_ahload(J, ref); + ref = ir->prev; + } + } + } + return 0; +} + +/* ALOAD forwarding. */ +TRef LJ_FASTCALL lj_opt_fwd_aload(jit_State *J) +{ + IRRef ref; + if ((ref = fwd_ahload(J, fins->op1)) || + (ref = fwd_aload_reassoc(J))) + return ref; + return EMITFOLD; +} + +/* HLOAD forwarding. */ +TRef LJ_FASTCALL lj_opt_fwd_hload(jit_State *J) +{ + IRRef ref = fwd_ahload(J, fins->op1); + if (ref) + return ref; + return EMITFOLD; +} + +/* HREFK forwarding. */ +TRef LJ_FASTCALL lj_opt_fwd_hrefk(jit_State *J) +{ + IRRef tab = fleft->op1; + IRRef ref = J->chain[IR_NEWREF]; + while (ref > tab) { + IRIns *newref = IR(ref); + if (tab == newref->op1) { + if (fright->op1 == newref->op2) + return ref; /* Forward from NEWREF. */ + else + goto docse; + } else if (aa_table(J, tab, newref->op1) != ALIAS_NO) { + goto docse; + } + ref = newref->prev; + } + /* No conflicting NEWREF: key location unchanged for HREFK of TDUP. */ + if (IR(tab)->o == IR_TDUP) + fins->t.irt &= ~IRT_GUARD; /* Drop HREFK guard. */ +docse: + return CSEFOLD; +} + +/* Check whether HREF of TNEW/TDUP can be folded to niltv. */ +int LJ_FASTCALL lj_opt_fwd_href_nokey(jit_State *J) +{ + IRRef lim = fins->op1; /* Search limit. */ + IRRef ref; + + /* The key for an ASTORE may end up in the hash part after a NEWREF. */ + if (irt_isnum(fright->t) && J->chain[IR_NEWREF] > lim) { + ref = J->chain[IR_ASTORE]; + while (ref > lim) { + if (ref < J->chain[IR_NEWREF]) + return 0; /* Conflict. */ + ref = IR(ref)->prev; + } + } + + /* Search for conflicting stores. */ + ref = J->chain[IR_HSTORE]; + while (ref > lim) { + IRIns *store = IR(ref); + if (aa_ahref(J, fins, IR(store->op1)) != ALIAS_NO) + return 0; /* Conflict. */ + ref = store->prev; + } + + return 1; /* No conflict. Can fold to niltv. */ +} + +/* Check whether there's no aliasing NEWREF for the left operand. */ +int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim) +{ + IRRef ta = fins->op1; + IRRef ref = J->chain[IR_NEWREF]; + while (ref > lim) { + IRIns *newref = IR(ref); + if (ta == newref->op1 || aa_table(J, ta, newref->op1) != ALIAS_NO) + return 0; /* Conflict. */ + ref = newref->prev; + } + return 1; /* No conflict. Can safely FOLD/CSE. */ +} + +/* ASTORE/HSTORE elimination. */ +TRef LJ_FASTCALL lj_opt_dse_ahstore(jit_State *J) +{ + IRRef xref = fins->op1; /* xREF reference. */ + IRRef val = fins->op2; /* Stored value reference. */ + IRIns *xr = IR(xref); + IRRef1 *refp = &J->chain[fins->o]; + IRRef ref = *refp; + while (ref > xref) { /* Search for redundant or conflicting stores. */ + IRIns *store = IR(ref); + switch (aa_ahref(J, xr, IR(store->op1))) { + case ALIAS_NO: + break; /* Continue searching. */ + case ALIAS_MAY: /* Store to MAYBE the same location. */ + if (store->op2 != val) /* Conflict if the value is different. */ + goto doemit; + break; /* Otherwise continue searching. */ + case ALIAS_MUST: /* Store to the same location. */ + if (store->op2 == val) /* Same value: drop the new store. */ + return DROPFOLD; + /* Different value: try to eliminate the redundant store. */ + if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ + IRIns *ir; + /* Check for any intervening guards (includes conflicting loads). */ + for (ir = IR(J->cur.nins-1); ir > store; ir--) + if (irt_isguard(ir->t) || ir->o == IR_CALLL) + goto doemit; /* No elimination possible. */ + /* Remove redundant store from chain and replace with NOP. */ + *refp = store->prev; + store->o = IR_NOP; + store->t.irt = IRT_NIL; + store->op1 = store->op2 = 0; + store->prev = 0; + /* Now emit the new store instead. */ + } + goto doemit; + } + ref = *(refp = &store->prev); + } +doemit: + return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ +} + +/* -- ULOAD forwarding ---------------------------------------------------- */ + +/* The current alias analysis for upvalues is very simplistic. It only +** disambiguates between the unique upvalues of the same function. +** This is good enough for now, since most upvalues are read-only. +** +** A more precise analysis would be feasible with the help of the parser: +** generate a unique key for every upvalue, even across all prototypes. +** Lacking a realistic use-case, it's unclear whether this is beneficial. +*/ +static AliasRet aa_uref(IRIns *refa, IRIns *refb) +{ + if (refa->o != refb->o) + return ALIAS_NO; /* Different UREFx type. */ + if (refa->op1 == refb->op1) { /* Same function. */ + if (refa->op2 == refb->op2) + return ALIAS_MUST; /* Same function, same upvalue idx. */ + else + return ALIAS_NO; /* Same function, different upvalue idx. */ + } else { /* Different functions, check disambiguation hash values. */ + if (((refa->op2 ^ refb->op2) & 0xff)) + return ALIAS_NO; /* Upvalues with different hash values cannot alias. */ + else + return ALIAS_MAY; /* No conclusion can be drawn for same hash value. */ + } +} + +/* ULOAD forwarding. */ +TRef LJ_FASTCALL lj_opt_fwd_uload(jit_State *J) +{ + IRRef uref = fins->op1; + IRRef lim = REF_BASE; /* Search limit. */ + IRIns *xr = IR(uref); + IRRef ref; + + /* Search for conflicting stores. */ + ref = J->chain[IR_USTORE]; + while (ref > lim) { + IRIns *store = IR(ref); + switch (aa_uref(xr, IR(store->op1))) { + case ALIAS_NO: break; /* Continue searching. */ + case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ + case ALIAS_MUST: return store->op2; /* Store forwarding. */ + } + ref = store->prev; + } + +cselim: + /* Try to find a matching load. Below the conflicting store, if any. */ + + ref = J->chain[IR_ULOAD]; + while (ref > lim) { + IRIns *ir = IR(ref); + if (ir->op1 == uref || + (IR(ir->op1)->op12 == IR(uref)->op12 && IR(ir->op1)->o == IR(uref)->o)) + return ref; /* Match for identical or equal UREFx (non-CSEable UREFO). */ + ref = ir->prev; + } + return lj_ir_emit(J); +} + +/* USTORE elimination. */ +TRef LJ_FASTCALL lj_opt_dse_ustore(jit_State *J) +{ + IRRef xref = fins->op1; /* xREF reference. */ + IRRef val = fins->op2; /* Stored value reference. */ + IRIns *xr = IR(xref); + IRRef1 *refp = &J->chain[IR_USTORE]; + IRRef ref = *refp; + while (ref > xref) { /* Search for redundant or conflicting stores. */ + IRIns *store = IR(ref); + switch (aa_uref(xr, IR(store->op1))) { + case ALIAS_NO: + break; /* Continue searching. */ + case ALIAS_MAY: /* Store to MAYBE the same location. */ + if (store->op2 != val) /* Conflict if the value is different. */ + goto doemit; + break; /* Otherwise continue searching. */ + case ALIAS_MUST: /* Store to the same location. */ + if (store->op2 == val) /* Same value: drop the new store. */ + return DROPFOLD; + /* Different value: try to eliminate the redundant store. */ + if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ + IRIns *ir; + /* Check for any intervening guards (includes conflicting loads). */ + for (ir = IR(J->cur.nins-1); ir > store; ir--) + if (irt_isguard(ir->t)) + goto doemit; /* No elimination possible. */ + /* Remove redundant store from chain and replace with NOP. */ + *refp = store->prev; + store->o = IR_NOP; + store->t.irt = IRT_NIL; + store->op1 = store->op2 = 0; + store->prev = 0; + if (ref+1 < J->cur.nins && + store[1].o == IR_OBAR && store[1].op1 == xref) { + IRRef1 *bp = &J->chain[IR_OBAR]; + IRIns *obar; + for (obar = IR(*bp); *bp > ref+1; obar = IR(*bp)) + bp = &obar->prev; + /* Remove OBAR, too. */ + *bp = obar->prev; + obar->o = IR_NOP; + obar->t.irt = IRT_NIL; + obar->op1 = obar->op2 = 0; + obar->prev = 0; + } + /* Now emit the new store instead. */ + } + goto doemit; + } + ref = *(refp = &store->prev); + } +doemit: + return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ +} + +/* -- FLOAD forwarding and FSTORE elimination ----------------------------- */ + +/* Alias analysis for field access. +** Field loads are cheap and field stores are rare. +** Simple disambiguation based on field types is good enough. +*/ +static AliasRet aa_fref(jit_State *J, IRIns *refa, IRIns *refb) +{ + if (refa->op2 != refb->op2) + return ALIAS_NO; /* Different fields. */ + if (refa->op1 == refb->op1) + return ALIAS_MUST; /* Same field, same object. */ + else if (refa->op2 >= IRFL_TAB_META && refa->op2 <= IRFL_TAB_NOMM) + return aa_table(J, refa->op1, refb->op1); /* Disambiguate tables. */ + else + return ALIAS_MAY; /* Same field, possibly different object. */ +} + +/* Only the loads for mutable fields end up here (see FOLD). */ +TRef LJ_FASTCALL lj_opt_fwd_fload(jit_State *J) +{ + IRRef oref = fins->op1; /* Object reference. */ + IRRef fid = fins->op2; /* Field ID. */ + IRRef lim = oref; /* Search limit. */ + IRRef ref; + + /* Search for conflicting stores. */ + ref = J->chain[IR_FSTORE]; + while (ref > oref) { + IRIns *store = IR(ref); + switch (aa_fref(J, fins, IR(store->op1))) { + case ALIAS_NO: break; /* Continue searching. */ + case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ + case ALIAS_MUST: return store->op2; /* Store forwarding. */ + } + ref = store->prev; + } + + /* No conflicting store: const-fold field loads from allocations. */ + if (fid == IRFL_TAB_META) { + IRIns *ir = IR(oref); + if (ir->o == IR_TNEW || ir->o == IR_TDUP) + return lj_ir_knull(J, IRT_TAB); + } + +cselim: + /* Try to find a matching load. Below the conflicting store, if any. */ + return lj_opt_cselim(J, lim); +} + +/* FSTORE elimination. */ +TRef LJ_FASTCALL lj_opt_dse_fstore(jit_State *J) +{ + IRRef fref = fins->op1; /* FREF reference. */ + IRRef val = fins->op2; /* Stored value reference. */ + IRIns *xr = IR(fref); + IRRef1 *refp = &J->chain[IR_FSTORE]; + IRRef ref = *refp; + while (ref > fref) { /* Search for redundant or conflicting stores. */ + IRIns *store = IR(ref); + switch (aa_fref(J, xr, IR(store->op1))) { + case ALIAS_NO: + break; /* Continue searching. */ + case ALIAS_MAY: + if (store->op2 != val) /* Conflict if the value is different. */ + goto doemit; + break; /* Otherwise continue searching. */ + case ALIAS_MUST: + if (store->op2 == val) /* Same value: drop the new store. */ + return DROPFOLD; + /* Different value: try to eliminate the redundant store. */ + if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ + IRIns *ir; + /* Check for any intervening guards or conflicting loads. */ + for (ir = IR(J->cur.nins-1); ir > store; ir--) + if (irt_isguard(ir->t) || (ir->o == IR_FLOAD && ir->op2 == xr->op2)) + goto doemit; /* No elimination possible. */ + /* Remove redundant store from chain and replace with NOP. */ + *refp = store->prev; + store->o = IR_NOP; + store->t.irt = IRT_NIL; + store->op1 = store->op2 = 0; + store->prev = 0; + /* Now emit the new store instead. */ + } + goto doemit; + } + ref = *(refp = &store->prev); + } +doemit: + return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ +} + +/* -- XLOAD forwarding and XSTORE elimination ----------------------------- */ + +/* Find cdata allocation for a reference (if any). */ +static IRIns *aa_findcnew(jit_State *J, IRIns *ir) +{ + while (ir->o == IR_ADD) { + if (!irref_isk(ir->op1)) { + IRIns *ir1 = aa_findcnew(J, IR(ir->op1)); /* Left-recursion. */ + if (ir1) return ir1; + } + if (irref_isk(ir->op2)) return NULL; + ir = IR(ir->op2); /* Flatten right-recursion. */ + } + return ir->o == IR_CNEW ? ir : NULL; +} + +/* Alias analysis for two cdata allocations. */ +static AliasRet aa_cnew(jit_State *J, IRIns *refa, IRIns *refb) +{ + IRIns *cnewa = aa_findcnew(J, refa); + IRIns *cnewb = aa_findcnew(J, refb); + if (cnewa == cnewb) + return ALIAS_MAY; /* Same allocation or neither is an allocation. */ + if (cnewa && cnewb) + return ALIAS_NO; /* Two different allocations never alias. */ + if (cnewb) { cnewa = cnewb; refb = refa; } + return aa_escape(J, cnewa, refb); +} + +/* Alias analysis for XLOAD/XSTORE. */ +static AliasRet aa_xref(jit_State *J, IRIns *refa, IRIns *xa, IRIns *xb) +{ + ptrdiff_t ofsa = 0, ofsb = 0; + IRIns *refb = IR(xb->op1); + IRIns *basea = refa, *baseb = refb; + if (refa == refb && irt_sametype(xa->t, xb->t)) + return ALIAS_MUST; /* Shortcut for same refs with identical type. */ + /* Offset-based disambiguation. */ + if (refa->o == IR_ADD && irref_isk(refa->op2)) { + IRIns *irk = IR(refa->op2); + basea = IR(refa->op1); + ofsa = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : + (ptrdiff_t)irk->i; + } + if (refb->o == IR_ADD && irref_isk(refb->op2)) { + IRIns *irk = IR(refb->op2); + baseb = IR(refb->op1); + ofsb = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : + (ptrdiff_t)irk->i; + } + /* Treat constified pointers like base vs. base+offset. */ + if (basea->o == IR_KPTR && baseb->o == IR_KPTR) { + ofsb += (char *)ir_kptr(baseb) - (char *)ir_kptr(basea); + baseb = basea; + } + /* This implements (very) strict aliasing rules. + ** Different types do NOT alias, except for differences in signedness. + ** Type punning through unions is allowed (but forces a reload). + */ + if (basea == baseb) { + ptrdiff_t sza = irt_size(xa->t), szb = irt_size(xb->t); + if (ofsa == ofsb) { + if (sza == szb && irt_isfp(xa->t) == irt_isfp(xb->t)) + return ALIAS_MUST; /* Same-sized, same-kind. May need to convert. */ + } else if (ofsa + sza <= ofsb || ofsb + szb <= ofsa) { + return ALIAS_NO; /* Non-overlapping base+-o1 vs. base+-o2. */ + } + /* NYI: extract, extend or reinterpret bits (int <-> fp). */ + return ALIAS_MAY; /* Overlapping or type punning: force reload. */ + } + if (!irt_sametype(xa->t, xb->t) && + !(irt_typerange(xa->t, IRT_I8, IRT_U64) && + ((xa->t.irt - IRT_I8) ^ (xb->t.irt - IRT_I8)) == 1)) + return ALIAS_NO; + /* NYI: structural disambiguation. */ + return aa_cnew(J, basea, baseb); /* Try to disambiguate allocations. */ +} + +/* Return CSEd reference or 0. Caveat: swaps lower ref to the right! */ +static IRRef reassoc_trycse(jit_State *J, IROp op, IRRef op1, IRRef op2) +{ + IRRef ref = J->chain[op]; + IRRef lim = op1; + if (op2 > lim) { lim = op2; op2 = op1; op1 = lim; } + while (ref > lim) { + IRIns *ir = IR(ref); + if (ir->op1 == op1 && ir->op2 == op2) + return ref; + ref = ir->prev; + } + return 0; +} + +/* Reassociate index references. */ +static IRRef reassoc_xref(jit_State *J, IRIns *ir) +{ + ptrdiff_t ofs = 0; + if (ir->o == IR_ADD && irref_isk(ir->op2)) { /* Get constant offset. */ + IRIns *irk = IR(ir->op2); + ofs = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : + (ptrdiff_t)irk->i; + ir = IR(ir->op1); + } + if (ir->o == IR_ADD) { /* Add of base + index. */ + /* Index ref > base ref for loop-carried dependences. Only check op1. */ + IRIns *ir2, *ir1 = IR(ir->op1); + int32_t shift = 0; + IRRef idxref; + /* Determine index shifts. Don't bother with IR_MUL here. */ + if (ir1->o == IR_BSHL && irref_isk(ir1->op2)) + shift = IR(ir1->op2)->i; + else if (ir1->o == IR_ADD && ir1->op1 == ir1->op2) + shift = 1; + else + ir1 = ir; + ir2 = IR(ir1->op1); + /* A non-reassociated add. Must be a loop-carried dependence. */ + if (ir2->o == IR_ADD && irt_isint(ir2->t) && irref_isk(ir2->op2)) + ofs += (ptrdiff_t)IR(ir2->op2)->i << shift; + else + return 0; + idxref = ir2->op1; + /* Try to CSE the reassociated chain. Give up if not found. */ + if (ir1 != ir && + !(idxref = reassoc_trycse(J, ir1->o, idxref, + ir1->o == IR_BSHL ? ir1->op2 : idxref))) + return 0; + if (!(idxref = reassoc_trycse(J, IR_ADD, idxref, ir->op2))) + return 0; + if (ofs != 0) { + IRRef refk = tref_ref(lj_ir_kintp(J, ofs)); + if (!(idxref = reassoc_trycse(J, IR_ADD, idxref, refk))) + return 0; + } + return idxref; /* Success, found a reassociated index reference. Phew. */ + } + return 0; /* Failure. */ +} + +/* XLOAD forwarding. */ +TRef LJ_FASTCALL lj_opt_fwd_xload(jit_State *J) +{ + IRRef xref = fins->op1; + IRIns *xr = IR(xref); + IRRef lim = xref; /* Search limit. */ + IRRef ref; + + if ((fins->op2 & IRXLOAD_READONLY)) + goto cselim; + if ((fins->op2 & IRXLOAD_VOLATILE)) + goto doemit; + + /* Search for conflicting stores. */ + ref = J->chain[IR_XSTORE]; +retry: + if (J->chain[IR_CALLXS] > lim) lim = J->chain[IR_CALLXS]; + if (J->chain[IR_XBAR] > lim) lim = J->chain[IR_XBAR]; + while (ref > lim) { + IRIns *store = IR(ref); + switch (aa_xref(J, xr, fins, store)) { + case ALIAS_NO: break; /* Continue searching. */ + case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ + case ALIAS_MUST: + /* Emit conversion if the loaded type doesn't match the forwarded type. */ + if (!irt_sametype(fins->t, IR(store->op2)->t)) { + IRType dt = irt_type(fins->t), st = irt_type(IR(store->op2)->t); + if (dt == IRT_I8 || dt == IRT_I16) { /* Trunc + sign-extend. */ + st = dt | IRCONV_SEXT; + dt = IRT_INT; + } else if (dt == IRT_U8 || dt == IRT_U16) { /* Trunc + zero-extend. */ + st = dt; + dt = IRT_INT; + } + fins->ot = IRT(IR_CONV, dt); + fins->op1 = store->op2; + fins->op2 = (dt<<5)|st; + return RETRYFOLD; + } + return store->op2; /* Store forwarding. */ + } + ref = store->prev; + } + +cselim: + /* Try to find a matching load. Below the conflicting store, if any. */ + ref = J->chain[IR_XLOAD]; + while (ref > lim) { + /* CSE for XLOAD depends on the type, but not on the IRXLOAD_* flags. */ + if (IR(ref)->op1 == xref && irt_sametype(IR(ref)->t, fins->t)) + return ref; + ref = IR(ref)->prev; + } + + /* Reassociate XLOAD across PHIs to handle a[i-1] forwarding case. */ + if (!(fins->op2 & IRXLOAD_READONLY) && J->chain[IR_LOOP] && + xref == fins->op1 && (xref = reassoc_xref(J, xr)) != 0) { + ref = J->chain[IR_XSTORE]; + while (ref > lim) /* Skip stores that have already been checked. */ + ref = IR(ref)->prev; + lim = xref; + xr = IR(xref); + goto retry; /* Retry with the reassociated reference. */ + } +doemit: + return EMITFOLD; +} + +/* XSTORE elimination. */ +TRef LJ_FASTCALL lj_opt_dse_xstore(jit_State *J) +{ + IRRef xref = fins->op1; + IRIns *xr = IR(xref); + IRRef lim = xref; /* Search limit. */ + IRRef val = fins->op2; /* Stored value reference. */ + IRRef1 *refp = &J->chain[IR_XSTORE]; + IRRef ref = *refp; + if (J->chain[IR_CALLXS] > lim) lim = J->chain[IR_CALLXS]; + if (J->chain[IR_XBAR] > lim) lim = J->chain[IR_XBAR]; + while (ref > lim) { /* Search for redundant or conflicting stores. */ + IRIns *store = IR(ref); + switch (aa_xref(J, xr, fins, store)) { + case ALIAS_NO: + break; /* Continue searching. */ + case ALIAS_MAY: + if (store->op2 != val) /* Conflict if the value is different. */ + goto doemit; + break; /* Otherwise continue searching. */ + case ALIAS_MUST: + if (store->op2 == val) /* Same value: drop the new store. */ + return DROPFOLD; + /* Different value: try to eliminate the redundant store. */ + if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ + IRIns *ir; + /* Check for any intervening guards or any XLOADs (no AA performed). */ + for (ir = IR(J->cur.nins-1); ir > store; ir--) + if (irt_isguard(ir->t) || ir->o == IR_XLOAD) + goto doemit; /* No elimination possible. */ + /* Remove redundant store from chain and replace with NOP. */ + *refp = store->prev; + store->o = IR_NOP; + store->t.irt = IRT_NIL; + store->op1 = store->op2 = 0; + store->prev = 0; + /* Now emit the new store instead. */ + } + goto doemit; + } + ref = *(refp = &store->prev); + } +doemit: + return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ +} + +/* -- Forwarding of lj_tab_len -------------------------------------------- */ + +/* This is rather simplistic right now, but better than nothing. */ +TRef LJ_FASTCALL lj_opt_fwd_tab_len(jit_State *J) +{ + IRRef tab = fins->op1; /* Table reference. */ + IRRef lim = tab; /* Search limit. */ + IRRef ref; + + /* Any ASTORE is a conflict and limits the search. */ + if (J->chain[IR_ASTORE] > lim) lim = J->chain[IR_ASTORE]; + + /* Search for conflicting HSTORE with numeric key. */ + ref = J->chain[IR_HSTORE]; + while (ref > lim) { + IRIns *store = IR(ref); + IRIns *href = IR(store->op1); + IRIns *key = IR(href->op2); + if (irt_isnum(key->o == IR_KSLOT ? IR(key->op1)->t : key->t)) { + lim = ref; /* Conflicting store found, limits search for TLEN. */ + break; + } + ref = store->prev; + } + + /* Try to find a matching load. Below the conflicting store, if any. */ + return lj_opt_cselim(J, lim); +} + +/* -- ASTORE/HSTORE previous type analysis -------------------------------- */ + +/* Check whether the previous value for a table store is non-nil. +** This can be derived either from a previous store or from a previous +** load (because all loads from tables perform a type check). +** +** The result of the analysis can be used to avoid the metatable check +** and the guard against HREF returning niltv. Both of these are cheap, +** so let's not spend too much effort on the analysis. +** +** A result of 1 is exact: previous value CANNOT be nil. +** A result of 0 is inexact: previous value MAY be nil. +*/ +int lj_opt_fwd_wasnonnil(jit_State *J, IROpT loadop, IRRef xref) +{ + /* First check stores. */ + IRRef ref = J->chain[loadop+IRDELTA_L2S]; + while (ref > xref) { + IRIns *store = IR(ref); + if (store->op1 == xref) { /* Same xREF. */ + /* A nil store MAY alias, but a non-nil store MUST alias. */ + return !irt_isnil(store->t); + } else if (irt_isnil(store->t)) { /* Must check any nil store. */ + IRRef skref = IR(store->op1)->op2; + IRRef xkref = IR(xref)->op2; + /* Same key type MAY alias. Need ALOAD check due to multiple int types. */ + if (loadop == IR_ALOAD || irt_sametype(IR(skref)->t, IR(xkref)->t)) { + if (skref == xkref || !irref_isk(skref) || !irref_isk(xkref)) + return 0; /* A nil store with same const key or var key MAY alias. */ + /* Different const keys CANNOT alias. */ + } /* Different key types CANNOT alias. */ + } /* Other non-nil stores MAY alias. */ + ref = store->prev; + } + + /* Check loads since nothing could be derived from stores. */ + ref = J->chain[loadop]; + while (ref > xref) { + IRIns *load = IR(ref); + if (load->op1 == xref) { /* Same xREF. */ + /* A nil load MAY alias, but a non-nil load MUST alias. */ + return !irt_isnil(load->t); + } /* Other non-nil loads MAY alias. */ + ref = load->prev; + } + return 0; /* Nothing derived at all, previous value MAY be nil. */ +} + +/* ------------------------------------------------------------------------ */ + +#undef IR +#undef fins +#undef fleft +#undef fright + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_narrow.c b/src/3rd party/luajit-2.0/src/lj_opt_narrow.c new file mode 100644 index 00000000000..b7bd32327ec --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_narrow.c @@ -0,0 +1,648 @@ +/* +** NARROW: Narrowing of numbers to integers (double to int32_t). +** STRIPOV: Stripping of overflow checks. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_narrow_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_bc.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_vm.h" +#include "lj_strscan.h" + +/* Rationale for narrowing optimizations: +** +** Lua has only a single number type and this is a FP double by default. +** Narrowing doubles to integers does not pay off for the interpreter on a +** current-generation x86/x64 machine. Most FP operations need the same +** amount of execution resources as their integer counterparts, except +** with slightly longer latencies. Longer latencies are a non-issue for +** the interpreter, since they are usually hidden by other overhead. +** +** The total CPU execution bandwidth is the sum of the bandwidth of the FP +** and the integer units, because they execute in parallel. The FP units +** have an equal or higher bandwidth than the integer units. Not using +** them means losing execution bandwidth. Moving work away from them to +** the already quite busy integer units is a losing proposition. +** +** The situation for JIT-compiled code is a bit different: the higher code +** density makes the extra latencies much more visible. Tight loops expose +** the latencies for updating the induction variables. Array indexing +** requires narrowing conversions with high latencies and additional +** guards (to check that the index is really an integer). And many common +** optimizations only work on integers. +** +** One solution would be speculative, eager narrowing of all number loads. +** This causes many problems, like losing -0 or the need to resolve type +** mismatches between traces. It also effectively forces the integer type +** to have overflow-checking semantics. This impedes many basic +** optimizations and requires adding overflow checks to all integer +** arithmetic operations (whereas FP arithmetics can do without). +** +** Always replacing an FP op with an integer op plus an overflow check is +** counter-productive on a current-generation super-scalar CPU. Although +** the overflow check branches are highly predictable, they will clog the +** execution port for the branch unit and tie up reorder buffers. This is +** turning a pure data-flow dependency into a different data-flow +** dependency (with slightly lower latency) *plus* a control dependency. +** In general, you don't want to do this since latencies due to data-flow +** dependencies can be well hidden by out-of-order execution. +** +** A better solution is to keep all numbers as FP values and only narrow +** when it's beneficial to do so. LuaJIT uses predictive narrowing for +** induction variables and demand-driven narrowing for index expressions, +** integer arguments and bit operations. Additionally it can eliminate or +** hoist most of the resulting overflow checks. Regular arithmetic +** computations are never narrowed to integers. +** +** The integer type in the IR has convenient wrap-around semantics and +** ignores overflow. Extra operations have been added for +** overflow-checking arithmetic (ADDOV/SUBOV) instead of an extra type. +** Apart from reducing overall complexity of the compiler, this also +** nicely solves the problem where you want to apply algebraic +** simplifications to ADD, but not to ADDOV. And the x86/x64 assembler can +** use lea instead of an add for integer ADD, but not for ADDOV (lea does +** not affect the flags, but it helps to avoid register moves). +** +** +** All of the above has to be reconsidered for architectures with slow FP +** operations or without a hardware FPU. The dual-number mode of LuaJIT +** addresses this issue. Arithmetic operations are performed on integers +** as far as possible and overflow checks are added as needed. +** +** This implies that narrowing for integer arguments and bit operations +** should also strip overflow checks, e.g. replace ADDOV with ADD. The +** original overflow guards are weak and can be eliminated by DCE, if +** there's no other use. +** +** A slight twist is that it's usually beneficial to use overflow-checked +** integer arithmetics if all inputs are already integers. This is the only +** change that affects the single-number mode, too. +*/ + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) +#define fins (&J->fold.ins) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) + +/* -- Elimination of narrowing type conversions --------------------------- */ + +/* Narrowing of index expressions and bit operations is demand-driven. The +** trace recorder emits a narrowing type conversion (CONV.int.num or TOBIT) +** in all of these cases (e.g. array indexing or string indexing). FOLD +** already takes care of eliminating simple redundant conversions like +** CONV.int.num(CONV.num.int(x)) ==> x. +** +** But the surrounding code is FP-heavy and arithmetic operations are +** performed on FP numbers (for the single-number mode). Consider a common +** example such as 'x=t[i+1]', with 'i' already an integer (due to induction +** variable narrowing). The index expression would be recorded as +** CONV.int.num(ADD(CONV.num.int(i), 1)) +** which is clearly suboptimal. +** +** One can do better by recursively backpropagating the narrowing type +** conversion across FP arithmetic operations. This turns FP ops into +** their corresponding integer counterparts. Depending on the semantics of +** the conversion they also need to check for overflow. Currently only ADD +** and SUB are supported. +** +** The above example can be rewritten as +** ADDOV(CONV.int.num(CONV.num.int(i)), 1) +** and then into ADDOV(i, 1) after folding of the conversions. The original +** FP ops remain in the IR and are eliminated by DCE since all references to +** them are gone. +** +** [In dual-number mode the trace recorder already emits ADDOV etc., but +** this can be further reduced. See below.] +** +** Special care has to be taken to avoid narrowing across an operation +** which is potentially operating on non-integral operands. One obvious +** case is when an expression contains a non-integral constant, but ends +** up as an integer index at runtime (like t[x+1.5] with x=0.5). +** +** Operations with two non-constant operands illustrate a similar problem +** (like t[a+b] with a=1.5 and b=2.5). Backpropagation has to stop there, +** unless it can be proven that either operand is integral (e.g. by CSEing +** a previous conversion). As a not-so-obvious corollary this logic also +** applies for a whole expression tree (e.g. t[(a+1)+(b+1)]). +** +** Correctness of the transformation is guaranteed by avoiding to expand +** the tree by adding more conversions than the one we would need to emit +** if not backpropagating. TOBIT employs a more optimistic rule, because +** the conversion has special semantics, designed to make the life of the +** compiler writer easier. ;-) +** +** Using on-the-fly backpropagation of an expression tree doesn't work +** because it's unknown whether the transform is correct until the end. +** This either requires IR rollback and cache invalidation for every +** subtree or a two-pass algorithm. The former didn't work out too well, +** so the code now combines a recursive collector with a stack-based +** emitter. +** +** [A recursive backpropagation algorithm with backtracking, employing +** skip-list lookup and round-robin caching, emitting stack operations +** on-the-fly for a stack-based interpreter -- and all of that in a meager +** kilobyte? Yep, compilers are a great treasure chest. Throw away your +** textbooks and read the codebase of a compiler today!] +** +** There's another optimization opportunity for array indexing: it's +** always accompanied by an array bounds-check. The outermost overflow +** check may be delegated to the ABC operation. This works because ABC is +** an unsigned comparison and wrap-around due to overflow creates negative +** numbers. +** +** But this optimization is only valid for constants that cannot overflow +** an int32_t into the range of valid array indexes [0..2^27+1). A check +** for +-2^30 is safe since -2^31 - 2^30 wraps to 2^30 and 2^31-1 + 2^30 +** wraps to -2^30-1. +** +** It's also good enough in practice, since e.g. t[i+1] or t[i-10] are +** quite common. So the above example finally ends up as ADD(i, 1)! +** +** Later on, the assembler is able to fuse the whole array reference and +** the ADD into the memory operands of loads and other instructions. This +** is why LuaJIT is able to generate very pretty (and fast) machine code +** for array indexing. And that, my dear, concludes another story about +** one of the hidden secrets of LuaJIT ... +*/ + +/* Maximum backpropagation depth and maximum stack size. */ +#define NARROW_MAX_BACKPROP 100 +#define NARROW_MAX_STACK 256 + +/* The stack machine has a 32 bit instruction format: [IROpT | IRRef1] +** The lower 16 bits hold a reference (or 0). The upper 16 bits hold +** the IR opcode + type or one of the following special opcodes: +*/ +enum { + NARROW_REF, /* Push ref. */ + NARROW_CONV, /* Push conversion of ref. */ + NARROW_SEXT, /* Push sign-extension of ref. */ + NARROW_INT /* Push KINT ref. The next code holds an int32_t. */ +}; + +typedef uint32_t NarrowIns; + +#define NARROWINS(op, ref) (((op) << 16) + (ref)) +#define narrow_op(ins) ((IROpT)((ins) >> 16)) +#define narrow_ref(ins) ((IRRef1)(ins)) + +/* Context used for narrowing of type conversions. */ +typedef struct NarrowConv { + jit_State *J; /* JIT compiler state. */ + NarrowIns *sp; /* Current stack pointer. */ + NarrowIns *maxsp; /* Maximum stack pointer minus redzone. */ + int lim; /* Limit on the number of emitted conversions. */ + IRRef mode; /* Conversion mode (IRCONV_*). */ + IRType t; /* Destination type: IRT_INT or IRT_I64. */ + NarrowIns stack[NARROW_MAX_STACK]; /* Stack holding stack-machine code. */ +} NarrowConv; + +/* Lookup a reference in the backpropagation cache. */ +static BPropEntry *narrow_bpc_get(jit_State *J, IRRef1 key, IRRef mode) +{ + ptrdiff_t i; + for (i = 0; i < BPROP_SLOTS; i++) { + BPropEntry *bp = &J->bpropcache[i]; + /* Stronger checks are ok, too. */ + if (bp->key == key && bp->mode >= mode && + ((bp->mode ^ mode) & IRCONV_MODEMASK) == 0) + return bp; + } + return NULL; +} + +/* Add an entry to the backpropagation cache. */ +static void narrow_bpc_set(jit_State *J, IRRef1 key, IRRef1 val, IRRef mode) +{ + uint32_t slot = J->bpropslot; + BPropEntry *bp = &J->bpropcache[slot]; + J->bpropslot = (slot + 1) & (BPROP_SLOTS-1); + bp->key = key; + bp->val = val; + bp->mode = mode; +} + +/* Backpropagate overflow stripping. */ +static void narrow_stripov_backprop(NarrowConv *nc, IRRef ref, int depth) +{ + jit_State *J = nc->J; + IRIns *ir = IR(ref); + if (ir->o == IR_ADDOV || ir->o == IR_SUBOV || + (ir->o == IR_MULOV && (nc->mode & IRCONV_CONVMASK) == IRCONV_ANY)) { + BPropEntry *bp = narrow_bpc_get(nc->J, ref, IRCONV_TOBIT); + if (bp) { + ref = bp->val; + } else if (++depth < NARROW_MAX_BACKPROP && nc->sp < nc->maxsp) { + narrow_stripov_backprop(nc, ir->op1, depth); + narrow_stripov_backprop(nc, ir->op2, depth); + *nc->sp++ = NARROWINS(IRT(ir->o - IR_ADDOV + IR_ADD, IRT_INT), ref); + return; + } + } + *nc->sp++ = NARROWINS(NARROW_REF, ref); +} + +/* Backpropagate narrowing conversion. Return number of needed conversions. */ +static int narrow_conv_backprop(NarrowConv *nc, IRRef ref, int depth) +{ + jit_State *J = nc->J; + IRIns *ir = IR(ref); + IRRef cref; + + /* Check the easy cases first. */ + if (ir->o == IR_CONV && (ir->op2 & IRCONV_SRCMASK) == IRT_INT) { + if ((nc->mode & IRCONV_CONVMASK) <= IRCONV_ANY) + narrow_stripov_backprop(nc, ir->op1, depth+1); + else + *nc->sp++ = NARROWINS(NARROW_REF, ir->op1); /* Undo conversion. */ + if (nc->t == IRT_I64) + *nc->sp++ = NARROWINS(NARROW_SEXT, 0); /* Sign-extend integer. */ + return 0; + } else if (ir->o == IR_KNUM) { /* Narrow FP constant. */ + lua_Number n = ir_knum(ir)->n; + if ((nc->mode & IRCONV_CONVMASK) == IRCONV_TOBIT) { + /* Allows a wider range of constants. */ + int64_t k64 = (int64_t)n; + if (n == (lua_Number)k64) { /* Only if const doesn't lose precision. */ + *nc->sp++ = NARROWINS(NARROW_INT, 0); + *nc->sp++ = (NarrowIns)k64; /* But always truncate to 32 bits. */ + return 0; + } + } else { + int32_t k = lj_num2int(n); + /* Only if constant is a small integer. */ + if (checki16(k) && n == (lua_Number)k) { + *nc->sp++ = NARROWINS(NARROW_INT, 0); + *nc->sp++ = (NarrowIns)k; + return 0; + } + } + return 10; /* Never narrow other FP constants (this is rare). */ + } + + /* Try to CSE the conversion. Stronger checks are ok, too. */ + cref = J->chain[fins->o]; + while (cref > ref) { + IRIns *cr = IR(cref); + if (cr->op1 == ref && + (fins->o == IR_TOBIT || + ((cr->op2 & IRCONV_MODEMASK) == (nc->mode & IRCONV_MODEMASK) && + irt_isguard(cr->t) >= irt_isguard(fins->t)))) { + *nc->sp++ = NARROWINS(NARROW_REF, cref); + return 0; /* Already there, no additional conversion needed. */ + } + cref = cr->prev; + } + + /* Backpropagate across ADD/SUB. */ + if (ir->o == IR_ADD || ir->o == IR_SUB) { + /* Try cache lookup first. */ + IRRef mode = nc->mode; + BPropEntry *bp; + /* Inner conversions need a stronger check. */ + if ((mode & IRCONV_CONVMASK) == IRCONV_INDEX && depth > 0) + mode += IRCONV_CHECK-IRCONV_INDEX; + bp = narrow_bpc_get(nc->J, (IRRef1)ref, mode); + if (bp) { + *nc->sp++ = NARROWINS(NARROW_REF, bp->val); + return 0; + } else if (nc->t == IRT_I64) { + /* Try sign-extending from an existing (checked) conversion to int. */ + mode = (IRT_INT<<5)|IRT_NUM|IRCONV_INDEX; + bp = narrow_bpc_get(nc->J, (IRRef1)ref, mode); + if (bp) { + *nc->sp++ = NARROWINS(NARROW_REF, bp->val); + *nc->sp++ = NARROWINS(NARROW_SEXT, 0); + return 0; + } + } + if (++depth < NARROW_MAX_BACKPROP && nc->sp < nc->maxsp) { + NarrowIns *savesp = nc->sp; + int count = narrow_conv_backprop(nc, ir->op1, depth); + count += narrow_conv_backprop(nc, ir->op2, depth); + if (count <= nc->lim) { /* Limit total number of conversions. */ + *nc->sp++ = NARROWINS(IRT(ir->o, nc->t), ref); + return count; + } + nc->sp = savesp; /* Too many conversions, need to backtrack. */ + } + } + + /* Otherwise add a conversion. */ + *nc->sp++ = NARROWINS(NARROW_CONV, ref); + return 1; +} + +/* Emit the conversions collected during backpropagation. */ +static IRRef narrow_conv_emit(jit_State *J, NarrowConv *nc) +{ + /* The fins fields must be saved now -- emitir() overwrites them. */ + IROpT guardot = irt_isguard(fins->t) ? IRTG(IR_ADDOV-IR_ADD, 0) : 0; + IROpT convot = fins->ot; + IRRef1 convop2 = fins->op2; + NarrowIns *next = nc->stack; /* List of instructions from backpropagation. */ + NarrowIns *last = nc->sp; + NarrowIns *sp = nc->stack; /* Recycle the stack to store operands. */ + while (next < last) { /* Simple stack machine to process the ins. list. */ + NarrowIns ref = *next++; + IROpT op = narrow_op(ref); + if (op == NARROW_REF) { + *sp++ = ref; + } else if (op == NARROW_CONV) { + *sp++ = emitir_raw(convot, ref, convop2); /* Raw emit avoids a loop. */ + } else if (op == NARROW_SEXT) { + lua_assert(sp >= nc->stack+1); + sp[-1] = emitir(IRT(IR_CONV, IRT_I64), sp[-1], + (IRT_I64<<5)|IRT_INT|IRCONV_SEXT); + } else if (op == NARROW_INT) { + lua_assert(next < last); + *sp++ = nc->t == IRT_I64 ? + lj_ir_kint64(J, (int64_t)(int32_t)*next++) : + lj_ir_kint(J, *next++); + } else { /* Regular IROpT. Pops two operands and pushes one result. */ + IRRef mode = nc->mode; + lua_assert(sp >= nc->stack+2); + sp--; + /* Omit some overflow checks for array indexing. See comments above. */ + if ((mode & IRCONV_CONVMASK) == IRCONV_INDEX) { + if (next == last && irref_isk(narrow_ref(sp[0])) && + (uint32_t)IR(narrow_ref(sp[0]))->i + 0x40000000u < 0x80000000u) + guardot = 0; + else /* Otherwise cache a stronger check. */ + mode += IRCONV_CHECK-IRCONV_INDEX; + } + sp[-1] = emitir(op+guardot, sp[-1], sp[0]); + /* Add to cache. */ + if (narrow_ref(ref)) + narrow_bpc_set(J, narrow_ref(ref), narrow_ref(sp[-1]), mode); + } + } + lua_assert(sp == nc->stack+1); + return nc->stack[0]; +} + +/* Narrow a type conversion of an arithmetic operation. */ +TRef LJ_FASTCALL lj_opt_narrow_convert(jit_State *J) +{ + if ((J->flags & JIT_F_OPT_NARROW)) { + NarrowConv nc; + nc.J = J; + nc.sp = nc.stack; + nc.maxsp = &nc.stack[NARROW_MAX_STACK-4]; + nc.t = irt_type(fins->t); + if (fins->o == IR_TOBIT) { + nc.mode = IRCONV_TOBIT; /* Used only in the backpropagation cache. */ + nc.lim = 2; /* TOBIT can use a more optimistic rule. */ + } else { + nc.mode = fins->op2; + nc.lim = 1; + } + if (narrow_conv_backprop(&nc, fins->op1, 0) <= nc.lim) + return narrow_conv_emit(J, &nc); + } + return NEXTFOLD; +} + +/* -- Narrowing of implicit conversions ----------------------------------- */ + +/* Recursively strip overflow checks. */ +static TRef narrow_stripov(jit_State *J, TRef tr, int lastop, IRRef mode) +{ + IRRef ref = tref_ref(tr); + IRIns *ir = IR(ref); + int op = ir->o; + if (op >= IR_ADDOV && op <= lastop) { + BPropEntry *bp = narrow_bpc_get(J, ref, mode); + if (bp) { + return TREF(bp->val, irt_t(IR(bp->val)->t)); + } else { + IRRef op1 = ir->op1, op2 = ir->op2; /* The IR may be reallocated. */ + op1 = narrow_stripov(J, op1, lastop, mode); + op2 = narrow_stripov(J, op2, lastop, mode); + tr = emitir(IRT(op - IR_ADDOV + IR_ADD, + ((mode & IRCONV_DSTMASK) >> IRCONV_DSH)), op1, op2); + narrow_bpc_set(J, ref, tref_ref(tr), mode); + } + } else if (LJ_64 && (mode & IRCONV_SEXT) && !irt_is64(ir->t)) { + tr = emitir(IRT(IR_CONV, IRT_INTP), tr, mode); + } + return tr; +} + +/* Narrow array index. */ +TRef LJ_FASTCALL lj_opt_narrow_index(jit_State *J, TRef tr) +{ + IRIns *ir; + lua_assert(tref_isnumber(tr)); + if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ + return emitir(IRTGI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_INDEX); + /* Omit some overflow checks for array indexing. See comments above. */ + ir = IR(tref_ref(tr)); + if ((ir->o == IR_ADDOV || ir->o == IR_SUBOV) && irref_isk(ir->op2) && + (uint32_t)IR(ir->op2)->i + 0x40000000u < 0x80000000u) + return emitir(IRTI(ir->o - IR_ADDOV + IR_ADD), ir->op1, ir->op2); + return tr; +} + +/* Narrow conversion to integer operand (overflow undefined). */ +TRef LJ_FASTCALL lj_opt_narrow_toint(jit_State *J, TRef tr) +{ + if (tref_isstr(tr)) + tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); + if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ + return emitir(IRTI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_ANY); + if (!tref_isinteger(tr)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + /* + ** Undefined overflow semantics allow stripping of ADDOV, SUBOV and MULOV. + ** Use IRCONV_TOBIT for the cache entries, since the semantics are the same. + */ + return narrow_stripov(J, tr, IR_MULOV, (IRT_INT<<5)|IRT_INT|IRCONV_TOBIT); +} + +/* Narrow conversion to bitop operand (overflow wrapped). */ +TRef LJ_FASTCALL lj_opt_narrow_tobit(jit_State *J, TRef tr) +{ + if (tref_isstr(tr)) + tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); + if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ + return emitir(IRTI(IR_TOBIT), tr, lj_ir_knum_tobit(J)); + if (!tref_isinteger(tr)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + /* + ** Wrapped overflow semantics allow stripping of ADDOV and SUBOV. + ** MULOV cannot be stripped due to precision widening. + */ + return narrow_stripov(J, tr, IR_SUBOV, (IRT_INT<<5)|IRT_INT|IRCONV_TOBIT); +} + +#if LJ_HASFFI +/* Narrow C array index (overflow undefined). */ +TRef LJ_FASTCALL lj_opt_narrow_cindex(jit_State *J, TRef tr) +{ + lua_assert(tref_isnumber(tr)); + if (tref_isnum(tr)) + return emitir(IRT(IR_CONV, IRT_INTP), tr, + (IRT_INTP<<5)|IRT_NUM|IRCONV_TRUNC|IRCONV_ANY); + /* Undefined overflow semantics allow stripping of ADDOV, SUBOV and MULOV. */ + return narrow_stripov(J, tr, IR_MULOV, + LJ_64 ? ((IRT_INTP<<5)|IRT_INT|IRCONV_SEXT) : + ((IRT_INTP<<5)|IRT_INT|IRCONV_TOBIT)); +} +#endif + +/* -- Narrowing of arithmetic operators ----------------------------------- */ + +/* Check whether a number fits into an int32_t (-0 is ok, too). */ +static int numisint(lua_Number n) +{ + return (n == (lua_Number)lj_num2int(n)); +} + +/* Narrowing of arithmetic operations. */ +TRef lj_opt_narrow_arith(jit_State *J, TRef rb, TRef rc, + TValue *vb, TValue *vc, IROp op) +{ + if (tref_isstr(rb)) { + rb = emitir(IRTG(IR_STRTO, IRT_NUM), rb, 0); + lj_strscan_num(strV(vb), vb); + } + if (tref_isstr(rc)) { + rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); + lj_strscan_num(strV(vc), vc); + } + /* Must not narrow MUL in non-DUALNUM variant, because it loses -0. */ + if ((op >= IR_ADD && op <= (LJ_DUALNUM ? IR_MUL : IR_SUB)) && + tref_isinteger(rb) && tref_isinteger(rc) && + numisint(lj_vm_foldarith(numberVnum(vb), numberVnum(vc), + (int)op - (int)IR_ADD))) + return emitir(IRTGI((int)op - (int)IR_ADD + (int)IR_ADDOV), rb, rc); + if (!tref_isnum(rb)) rb = emitir(IRTN(IR_CONV), rb, IRCONV_NUM_INT); + if (!tref_isnum(rc)) rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); + return emitir(IRTN(op), rb, rc); +} + +/* Narrowing of unary minus operator. */ +TRef lj_opt_narrow_unm(jit_State *J, TRef rc, TValue *vc) +{ + if (tref_isstr(rc)) { + rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); + lj_strscan_num(strV(vc), vc); + } + if (tref_isinteger(rc)) { + if ((uint32_t)numberVint(vc) != 0x80000000u) + return emitir(IRTGI(IR_SUBOV), lj_ir_kint(J, 0), rc); + rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); + } + return emitir(IRTN(IR_NEG), rc, lj_ir_knum_neg(J)); +} + +/* Narrowing of modulo operator. */ +TRef lj_opt_narrow_mod(jit_State *J, TRef rb, TRef rc, TValue *vc) +{ + TRef tmp; + if (tvisstr(vc) && !lj_strscan_num(strV(vc), vc)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + if ((LJ_DUALNUM || (J->flags & JIT_F_OPT_NARROW)) && + tref_isinteger(rb) && tref_isinteger(rc) && + (tvisint(vc) ? intV(vc) != 0 : !tviszero(vc))) { + emitir(IRTGI(IR_NE), rc, lj_ir_kint(J, 0)); + return emitir(IRTI(IR_MOD), rb, rc); + } + /* b % c ==> b - floor(b/c)*c */ + rb = lj_ir_tonum(J, rb); + rc = lj_ir_tonum(J, rc); + tmp = emitir(IRTN(IR_DIV), rb, rc); + tmp = emitir(IRTN(IR_FPMATH), tmp, IRFPM_FLOOR); + tmp = emitir(IRTN(IR_MUL), tmp, rc); + return emitir(IRTN(IR_SUB), rb, tmp); +} + +/* Narrowing of power operator or math.pow. */ +TRef lj_opt_narrow_pow(jit_State *J, TRef rb, TRef rc, TValue *vc) +{ + if (tvisstr(vc) && !lj_strscan_num(strV(vc), vc)) + lj_trace_err(J, LJ_TRERR_BADTYPE); + /* Narrowing must be unconditional to preserve (-x)^i semantics. */ + if (tvisint(vc) || numisint(numV(vc))) { + int checkrange = 0; + /* Split pow is faster for bigger exponents. But do this only for (+k)^i. */ + if (tref_isk(rb) && (int32_t)ir_knum(IR(tref_ref(rb)))->u32.hi >= 0) { + int32_t k = numberVint(vc); + if (!(k >= -65536 && k <= 65536)) goto split_pow; + checkrange = 1; + } + if (!tref_isinteger(rc)) { + if (tref_isstr(rc)) + rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); + /* Guarded conversion to integer! */ + rc = emitir(IRTGI(IR_CONV), rc, IRCONV_INT_NUM|IRCONV_CHECK); + } + if (checkrange && !tref_isk(rc)) { /* Range guard: -65536 <= i <= 65536 */ + TRef tmp = emitir(IRTI(IR_ADD), rc, lj_ir_kint(J, 65536)); + emitir(IRTGI(IR_ULE), tmp, lj_ir_kint(J, 2*65536)); + } + return emitir(IRTN(IR_POW), rb, rc); + } +split_pow: + /* FOLD covers most cases, but some are easier to do here. */ + if (tref_isk(rb) && tvispone(ir_knum(IR(tref_ref(rb))))) + return rb; /* 1 ^ x ==> 1 */ + rc = lj_ir_tonum(J, rc); + if (tref_isk(rc) && ir_knum(IR(tref_ref(rc)))->n == 0.5) + return emitir(IRTN(IR_FPMATH), rb, IRFPM_SQRT); /* x ^ 0.5 ==> sqrt(x) */ + /* Split up b^c into exp2(c*log2(b)). Assembler may rejoin later. */ + rb = emitir(IRTN(IR_FPMATH), rb, IRFPM_LOG2); + rc = emitir(IRTN(IR_MUL), rb, rc); + return emitir(IRTN(IR_FPMATH), rc, IRFPM_EXP2); +} + +/* -- Predictive narrowing of induction variables ------------------------- */ + +/* Narrow a single runtime value. */ +static int narrow_forl(jit_State *J, cTValue *o) +{ + if (tvisint(o)) return 1; + if (LJ_DUALNUM || (J->flags & JIT_F_OPT_NARROW)) return numisint(numV(o)); + return 0; +} + +/* Narrow the FORL index type by looking at the runtime values. */ +IRType lj_opt_narrow_forl(jit_State *J, cTValue *tv) +{ + lua_assert(tvisnumber(&tv[FORL_IDX]) && + tvisnumber(&tv[FORL_STOP]) && + tvisnumber(&tv[FORL_STEP])); + /* Narrow only if the runtime values of start/stop/step are all integers. */ + if (narrow_forl(J, &tv[FORL_IDX]) && + narrow_forl(J, &tv[FORL_STOP]) && + narrow_forl(J, &tv[FORL_STEP])) { + /* And if the loop index can't possibly overflow. */ + lua_Number step = numberVnum(&tv[FORL_STEP]); + lua_Number sum = numberVnum(&tv[FORL_STOP]) + step; + if (0 <= step ? (sum <= 2147483647.0) : (sum >= -2147483648.0)) + return IRT_INT; + } + return IRT_NUM; +} + +#undef IR +#undef fins +#undef emitir +#undef emitir_raw + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_sink.c b/src/3rd party/luajit-2.0/src/lj_opt_sink.c new file mode 100644 index 00000000000..a98e9dfe3b4 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_sink.c @@ -0,0 +1,245 @@ +/* +** SINK: Allocation Sinking and Store Sinking. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_sink_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_target.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Check whether the store ref points to an eligible allocation. */ +static IRIns *sink_checkalloc(jit_State *J, IRIns *irs) +{ + IRIns *ir = IR(irs->op1); + if (!irref_isk(ir->op2)) + return NULL; /* Non-constant key. */ + if (ir->o == IR_HREFK || ir->o == IR_AREF) + ir = IR(ir->op1); + else if (!(ir->o == IR_HREF || ir->o == IR_NEWREF || + ir->o == IR_FREF || ir->o == IR_ADD)) + return NULL; /* Unhandled reference type (for XSTORE). */ + ir = IR(ir->op1); + if (!(ir->o == IR_TNEW || ir->o == IR_TDUP || ir->o == IR_CNEW)) + return NULL; /* Not an allocation. */ + return ir; /* Return allocation. */ +} + +/* Recursively check whether a value depends on a PHI. */ +static int sink_phidep(jit_State *J, IRRef ref) +{ + IRIns *ir = IR(ref); + if (irt_isphi(ir->t)) return 1; + if (ir->op1 >= REF_FIRST && sink_phidep(J, ir->op1)) return 1; + if (ir->op2 >= REF_FIRST && sink_phidep(J, ir->op2)) return 1; + return 0; +} + +/* Check whether a value is a sinkable PHI or loop-invariant. */ +static int sink_checkphi(jit_State *J, IRIns *ira, IRRef ref) +{ + if (ref >= REF_FIRST) { + IRIns *ir = IR(ref); + if (irt_isphi(ir->t) || (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT && + irt_isphi(IR(ir->op1)->t))) { + ira->prev++; + return 1; /* Sinkable PHI. */ + } + /* Otherwise the value must be loop-invariant. */ + return ref < J->loopref && !sink_phidep(J, ref); + } + return 1; /* Constant (non-PHI). */ +} + +/* Mark non-sinkable allocations using single-pass backward propagation. +** +** Roots for the marking process are: +** - Some PHIs or snapshots (see below). +** - Non-PHI, non-constant values stored to PHI allocations. +** - All guards. +** - Any remaining loads not eliminated by store-to-load forwarding. +** - Stores with non-constant keys. +** - All stored values. +*/ +static void sink_mark_ins(jit_State *J) +{ + IRIns *ir, *irlast = IR(J->cur.nins-1); + for (ir = irlast ; ; ir--) { + switch (ir->o) { + case IR_BASE: + return; /* Finished. */ + case IR_CALLL: /* IRCALL_lj_tab_len */ + case IR_ALOAD: case IR_HLOAD: case IR_XLOAD: case IR_TBAR: + irt_setmark(IR(ir->op1)->t); /* Mark ref for remaining loads. */ + break; + case IR_FLOAD: + if (irt_ismarked(ir->t) || ir->op2 == IRFL_TAB_META) + irt_setmark(IR(ir->op1)->t); /* Mark table for remaining loads. */ + break; + case IR_ASTORE: case IR_HSTORE: case IR_FSTORE: case IR_XSTORE: { + IRIns *ira = sink_checkalloc(J, ir); + if (!ira || (irt_isphi(ira->t) && !sink_checkphi(J, ira, ir->op2))) + irt_setmark(IR(ir->op1)->t); /* Mark ineligible ref. */ + irt_setmark(IR(ir->op2)->t); /* Mark stored value. */ + break; + } +#if LJ_HASFFI + case IR_CNEWI: + if (irt_isphi(ir->t) && + (!sink_checkphi(J, ir, ir->op2) || + (LJ_32 && ir+1 < irlast && (ir+1)->o == IR_HIOP && + !sink_checkphi(J, ir, (ir+1)->op2)))) + irt_setmark(ir->t); /* Mark ineligible allocation. */ + /* fallthrough */ +#endif + case IR_USTORE: + irt_setmark(IR(ir->op2)->t); /* Mark stored value. */ + break; +#if LJ_HASFFI + case IR_CALLXS: +#endif + case IR_CALLS: + irt_setmark(IR(ir->op1)->t); /* Mark (potentially) stored values. */ + break; + case IR_PHI: { + IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); + irl->prev = irr->prev = 0; /* Clear PHI value counts. */ + if (irl->o == irr->o && + (irl->o == IR_TNEW || irl->o == IR_TDUP || + (LJ_HASFFI && (irl->o == IR_CNEW || irl->o == IR_CNEWI)))) + break; + irt_setmark(irl->t); + irt_setmark(irr->t); + break; + } + default: + if (irt_ismarked(ir->t) || irt_isguard(ir->t)) { /* Propagate mark. */ + if (ir->op1 >= REF_FIRST) irt_setmark(IR(ir->op1)->t); + if (ir->op2 >= REF_FIRST) irt_setmark(IR(ir->op2)->t); + } + break; + } + } +} + +/* Mark all instructions referenced by a snapshot. */ +static void sink_mark_snap(jit_State *J, SnapShot *snap) +{ + SnapEntry *map = &J->cur.snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + IRRef ref = snap_ref(map[n]); + if (!irref_isk(ref)) + irt_setmark(IR(ref)->t); + } +} + +/* Iteratively remark PHI refs with differing marks or PHI value counts. */ +static void sink_remark_phi(jit_State *J) +{ + IRIns *ir; + int remark; + do { + remark = 0; + for (ir = IR(J->cur.nins-1); ir->o == IR_PHI; ir--) { + IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); + if (((irl->t.irt ^ irr->t.irt) & IRT_MARK)) + remark = 1; + else if (irl->prev == irr->prev) + continue; + irt_setmark(IR(ir->op1)->t); + irt_setmark(IR(ir->op2)->t); + } + } while (remark); +} + +/* Sweep instructions and tag sunken allocations and stores. */ +static void sink_sweep_ins(jit_State *J) +{ + IRIns *ir, *irfirst = IR(J->cur.nk); + for (ir = IR(J->cur.nins-1) ; ir >= irfirst; ir--) { + switch (ir->o) { + case IR_ASTORE: case IR_HSTORE: case IR_FSTORE: case IR_XSTORE: { + IRIns *ira = sink_checkalloc(J, ir); + if (ira && !irt_ismarked(ira->t)) { + int delta = (int)(ir - ira); + ir->prev = REGSP(RID_SINK, delta > 255 ? 255 : delta); + } else { + ir->prev = REGSP_INIT; + } + break; + } + case IR_NEWREF: + if (!irt_ismarked(IR(ir->op1)->t)) { + ir->prev = REGSP(RID_SINK, 0); + } else { + irt_clearmark(ir->t); + ir->prev = REGSP_INIT; + } + break; +#if LJ_HASFFI + case IR_CNEW: case IR_CNEWI: +#endif + case IR_TNEW: case IR_TDUP: + if (!irt_ismarked(ir->t)) { + ir->t.irt &= ~IRT_GUARD; + ir->prev = REGSP(RID_SINK, 0); + J->cur.sinktags = 1; /* Signal present SINK tags to assembler. */ + } else { + irt_clearmark(ir->t); + ir->prev = REGSP_INIT; + } + break; + case IR_PHI: { + IRIns *ira = IR(ir->op2); + if (!irt_ismarked(ira->t) && + (ira->o == IR_TNEW || ira->o == IR_TDUP || + (LJ_HASFFI && (ira->o == IR_CNEW || ira->o == IR_CNEWI)))) { + ir->prev = REGSP(RID_SINK, 0); + } else { + ir->prev = REGSP_INIT; + } + break; + } + default: + irt_clearmark(ir->t); + ir->prev = REGSP_INIT; + break; + } + } +} + +/* Allocation sinking and store sinking. +** +** 1. Mark all non-sinkable allocations. +** 2. Then sink all remaining allocations and the related stores. +*/ +void lj_opt_sink(jit_State *J) +{ + const uint32_t need = (JIT_F_OPT_SINK|JIT_F_OPT_FWD| + JIT_F_OPT_DCE|JIT_F_OPT_CSE|JIT_F_OPT_FOLD); + if ((J->flags & need) == need && + (J->chain[IR_TNEW] || J->chain[IR_TDUP] || + (LJ_HASFFI && (J->chain[IR_CNEW] || J->chain[IR_CNEWI])))) { + if (!J->loopref) + sink_mark_snap(J, &J->cur.snap[J->cur.nsnap-1]); + sink_mark_ins(J); + if (J->loopref) + sink_remark_phi(J); + sink_sweep_ins(J); + } +} + +#undef IR + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_split.c b/src/3rd party/luajit-2.0/src/lj_opt_split.c new file mode 100644 index 00000000000..1cee5093b6d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_opt_split.c @@ -0,0 +1,731 @@ +/* +** SPLIT: Split 64 bit IR instructions into 32 bit IR instructions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_opt_split_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT && (LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) + +#include "lj_err.h" +#include "lj_str.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_vm.h" + +/* SPLIT pass: +** +** This pass splits up 64 bit IR instructions into multiple 32 bit IR +** instructions. It's only active for soft-float targets or for 32 bit CPUs +** which lack native 64 bit integer operations (the FFI is currently the +** only emitter for 64 bit integer instructions). +** +** Splitting the IR in a separate pass keeps each 32 bit IR assembler +** backend simple. Only a small amount of extra functionality needs to be +** implemented. This is much easier than adding support for allocating +** register pairs to each backend (believe me, I tried). A few simple, but +** important optimizations can be performed by the SPLIT pass, which would +** be tedious to do in the backend. +** +** The basic idea is to replace each 64 bit IR instruction with its 32 bit +** equivalent plus an extra HIOP instruction. The splitted IR is not passed +** through FOLD or any other optimizations, so each HIOP is guaranteed to +** immediately follow it's counterpart. The actual functionality of HIOP is +** inferred from the previous instruction. +** +** The operands of HIOP hold the hiword input references. The output of HIOP +** is the hiword output reference, which is also used to hold the hiword +** register or spill slot information. The register allocator treats this +** instruction independently of any other instruction, which improves code +** quality compared to using fixed register pairs. +** +** It's easier to split up some instructions into two regular 32 bit +** instructions. E.g. XLOAD is split up into two XLOADs with two different +** addresses. Obviously 64 bit constants need to be split up into two 32 bit +** constants, too. Some hiword instructions can be entirely omitted, e.g. +** when zero-extending a 32 bit value to 64 bits. 64 bit arguments for calls +** are split up into two 32 bit arguments each. +** +** On soft-float targets, floating-point instructions are directly converted +** to soft-float calls by the SPLIT pass (except for comparisons and MIN/MAX). +** HIOP for number results has the type IRT_SOFTFP ("sfp" in -jdump). +** +** Here's the IR and x64 machine code for 'x.b = x.a + 1' for a struct with +** two int64_t fields: +** +** 0100 p32 ADD base +8 +** 0101 i64 XLOAD 0100 +** 0102 i64 ADD 0101 +1 +** 0103 p32 ADD base +16 +** 0104 i64 XSTORE 0103 0102 +** +** mov rax, [esi+0x8] +** add rax, +0x01 +** mov [esi+0x10], rax +** +** Here's the transformed IR and the x86 machine code after the SPLIT pass: +** +** 0100 p32 ADD base +8 +** 0101 int XLOAD 0100 +** 0102 p32 ADD base +12 +** 0103 int XLOAD 0102 +** 0104 int ADD 0101 +1 +** 0105 int HIOP 0103 +0 +** 0106 p32 ADD base +16 +** 0107 int XSTORE 0106 0104 +** 0108 int HIOP 0106 0105 +** +** mov eax, [esi+0x8] +** mov ecx, [esi+0xc] +** add eax, +0x01 +** adc ecx, +0x00 +** mov [esi+0x10], eax +** mov [esi+0x14], ecx +** +** You may notice the reassociated hiword address computation, which is +** later fused into the mov operands by the assembler. +*/ + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Directly emit the transformed IR without updating chains etc. */ +static IRRef split_emit(jit_State *J, uint16_t ot, IRRef1 op1, IRRef1 op2) +{ + IRRef nref = lj_ir_nextins(J); + IRIns *ir = IR(nref); + ir->ot = ot; + ir->op1 = op1; + ir->op2 = op2; + return nref; +} + +#if LJ_SOFTFP +/* Emit a (checked) number to integer conversion. */ +static IRRef split_num2int(jit_State *J, IRRef lo, IRRef hi, int check) +{ + IRRef tmp, res; +#if LJ_LE + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), lo, hi); +#else + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hi, lo); +#endif + res = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_softfp_d2i); + if (check) { + tmp = split_emit(J, IRTI(IR_CALLN), res, IRCALL_softfp_i2d); + split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); + split_emit(J, IRTGI(IR_EQ), tmp, lo); + split_emit(J, IRTG(IR_HIOP, IRT_SOFTFP), tmp+1, hi); + } + return res; +} + +/* Emit a CALLN with one split 64 bit argument. */ +static IRRef split_call_l(jit_State *J, IRRef1 *hisubst, IRIns *oir, + IRIns *ir, IRCallID id) +{ + IRRef tmp, op1 = ir->op1; + J->cur.nins--; +#if LJ_LE + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); +#else + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); +#endif + ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); + return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); +} + +/* Emit a CALLN with one split 64 bit argument and a 32 bit argument. */ +static IRRef split_call_li(jit_State *J, IRRef1 *hisubst, IRIns *oir, + IRIns *ir, IRCallID id) +{ + IRRef tmp, op1 = ir->op1, op2 = ir->op2; + J->cur.nins--; +#if LJ_LE + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); +#else + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); +#endif + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); + ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); + return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); +} +#endif + +/* Emit a CALLN with two split 64 bit arguments. */ +static IRRef split_call_ll(jit_State *J, IRRef1 *hisubst, IRIns *oir, + IRIns *ir, IRCallID id) +{ + IRRef tmp, op1 = ir->op1, op2 = ir->op2; + J->cur.nins--; +#if LJ_LE + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, hisubst[op2]); +#else + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, hisubst[op2]); + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); +#endif + ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); + return split_emit(J, + IRT(IR_HIOP, (LJ_SOFTFP && irt_isnum(ir->t)) ? IRT_SOFTFP : IRT_INT), + tmp, tmp); +} + +/* Get a pointer to the other 32 bit word (LE: hiword, BE: loword). */ +static IRRef split_ptr(jit_State *J, IRIns *oir, IRRef ref) +{ + IRRef nref = oir[ref].prev; + IRIns *ir = IR(nref); + int32_t ofs = 4; + if (ir->o == IR_KPTR) + return lj_ir_kptr(J, (char *)ir_kptr(ir) + ofs); + if (ir->o == IR_ADD && irref_isk(ir->op2) && !irt_isphi(oir[ref].t)) { + /* Reassociate address. */ + ofs += IR(ir->op2)->i; + nref = ir->op1; + if (ofs == 0) return nref; + } + return split_emit(J, IRTI(IR_ADD), nref, lj_ir_kint(J, ofs)); +} + +/* Substitute references of a snapshot. */ +static void split_subst_snap(jit_State *J, SnapShot *snap, IRIns *oir) +{ + SnapEntry *map = &J->cur.snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + IRIns *ir = &oir[snap_ref(sn)]; + if (!(LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && irref_isk(snap_ref(sn)))) + map[n] = ((sn & 0xffff0000) | ir->prev); + } +} + +/* Transform the old IR to the new IR. */ +static void split_ir(jit_State *J) +{ + IRRef nins = J->cur.nins, nk = J->cur.nk; + MSize irlen = nins - nk; + MSize need = (irlen+1)*(sizeof(IRIns) + sizeof(IRRef1)); + IRIns *oir = (IRIns *)lj_str_needbuf(J->L, &G(J->L)->tmpbuf, need); + IRRef1 *hisubst; + IRRef ref, snref; + SnapShot *snap; + + /* Copy old IR to buffer. */ + memcpy(oir, IR(nk), irlen*sizeof(IRIns)); + /* Bias hiword substitution table and old IR. Loword kept in field prev. */ + hisubst = (IRRef1 *)&oir[irlen] - nk; + oir -= nk; + + /* Remove all IR instructions, but retain IR constants. */ + J->cur.nins = REF_FIRST; + J->loopref = 0; + + /* Process constants and fixed references. */ + for (ref = nk; ref <= REF_BASE; ref++) { + IRIns *ir = &oir[ref]; + if ((LJ_SOFTFP && ir->o == IR_KNUM) || ir->o == IR_KINT64) { + /* Split up 64 bit constant. */ + TValue tv = *ir_k64(ir); + ir->prev = lj_ir_kint(J, (int32_t)tv.u32.lo); + hisubst[ref] = lj_ir_kint(J, (int32_t)tv.u32.hi); + } else { + ir->prev = ref; /* Identity substitution for loword. */ + hisubst[ref] = 0; + } + } + + /* Process old IR instructions. */ + snap = J->cur.snap; + snref = snap->ref; + for (ref = REF_FIRST; ref < nins; ref++) { + IRIns *ir = &oir[ref]; + IRRef nref = lj_ir_nextins(J); + IRIns *nir = IR(nref); + IRRef hi = 0; + + if (ref >= snref) { + snap->ref = nref; + split_subst_snap(J, snap++, oir); + snref = snap < &J->cur.snap[J->cur.nsnap] ? snap->ref : ~(IRRef)0; + } + + /* Copy-substitute old instruction to new instruction. */ + nir->op1 = ir->op1 < nk ? ir->op1 : oir[ir->op1].prev; + nir->op2 = ir->op2 < nk ? ir->op2 : oir[ir->op2].prev; + ir->prev = nref; /* Loword substitution. */ + nir->o = ir->o; + nir->t.irt = ir->t.irt & ~(IRT_MARK|IRT_ISPHI); + hisubst[ref] = 0; + + /* Split 64 bit instructions. */ +#if LJ_SOFTFP + if (irt_isnum(ir->t)) { + nir->t.irt = IRT_INT | (nir->t.irt & IRT_GUARD); /* Turn into INT op. */ + /* Note: hi ref = lo ref + 1! Required for SNAP_SOFTFPNUM logic. */ + switch (ir->o) { + case IR_ADD: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_add); + break; + case IR_SUB: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_sub); + break; + case IR_MUL: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_mul); + break; + case IR_DIV: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_div); + break; + case IR_POW: + hi = split_call_li(J, hisubst, oir, ir, IRCALL_lj_vm_powi); + break; + case IR_FPMATH: + /* Try to rejoin pow from EXP2, MUL and LOG2. */ + if (nir->op2 == IRFPM_EXP2 && nir->op1 > J->loopref) { + IRIns *irp = IR(nir->op1); + if (irp->o == IR_CALLN && irp->op2 == IRCALL_softfp_mul) { + IRIns *irm4 = IR(irp->op1); + IRIns *irm3 = IR(irm4->op1); + IRIns *irm12 = IR(irm3->op1); + IRIns *irl1 = IR(irm12->op1); + if (irm12->op1 > J->loopref && irl1->o == IR_CALLN && + irl1->op2 == IRCALL_lj_vm_log2) { + IRRef tmp = irl1->op1; /* Recycle first two args from LOG2. */ + IRRef arg3 = irm3->op2, arg4 = irm4->op2; + J->cur.nins--; + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, arg3); + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, arg4); + ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_pow); + hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); + break; + } + } + } + hi = split_call_l(J, hisubst, oir, ir, IRCALL_lj_vm_floor + ir->op2); + break; + case IR_ATAN2: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_atan2); + break; + case IR_LDEXP: + hi = split_call_li(J, hisubst, oir, ir, IRCALL_ldexp); + break; + case IR_NEG: case IR_ABS: + nir->o = IR_CONV; /* Pass through loword. */ + nir->op2 = (IRT_INT << 5) | IRT_INT; + hi = split_emit(J, IRT(ir->o == IR_NEG ? IR_BXOR : IR_BAND, IRT_SOFTFP), + hisubst[ir->op1], hisubst[ir->op2]); + break; + case IR_SLOAD: + if ((nir->op2 & IRSLOAD_CONVERT)) { /* Convert from int to number. */ + nir->op2 &= ~IRSLOAD_CONVERT; + ir->prev = nref = split_emit(J, IRTI(IR_CALLN), nref, + IRCALL_softfp_i2d); + hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); + break; + } + /* fallthrough */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + case IR_STRTO: + hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); + break; + case IR_XLOAD: { + IRIns inslo = *nir; /* Save/undo the emit of the lo XLOAD. */ + J->cur.nins--; + hi = split_ptr(J, oir, ir->op1); /* Insert the hiref ADD. */ + nref = lj_ir_nextins(J); + nir = IR(nref); + *nir = inslo; /* Re-emit lo XLOAD immediately before hi XLOAD. */ + hi = split_emit(J, IRT(IR_XLOAD, IRT_SOFTFP), hi, ir->op2); +#if LJ_LE + ir->prev = nref; +#else + ir->prev = hi; hi = nref; +#endif + break; + } + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: case IR_XSTORE: + split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nir->op1, hisubst[ir->op2]); + break; + case IR_CONV: { /* Conversion to number. Others handled below. */ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); + UNUSED(st); +#if LJ_32 && LJ_HASFFI + if (st == IRT_I64 || st == IRT_U64) { + hi = split_call_l(J, hisubst, oir, ir, + st == IRT_I64 ? IRCALL_fp64_l2d : IRCALL_fp64_ul2d); + break; + } +#endif + lua_assert(st == IRT_INT || + (LJ_32 && LJ_HASFFI && (st == IRT_U32 || st == IRT_FLOAT))); + nir->o = IR_CALLN; +#if LJ_32 && LJ_HASFFI + nir->op2 = st == IRT_INT ? IRCALL_softfp_i2d : + st == IRT_FLOAT ? IRCALL_softfp_f2d : + IRCALL_softfp_ui2d; +#else + nir->op2 = IRCALL_softfp_i2d; +#endif + hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); + break; + } + case IR_CALLN: + case IR_CALLL: + case IR_CALLS: + case IR_CALLXS: + goto split_call; + case IR_PHI: + if (nir->op1 == nir->op2) + J->cur.nins--; /* Drop useless PHIs. */ + if (hisubst[ir->op1] != hisubst[ir->op2]) + split_emit(J, IRT(IR_PHI, IRT_SOFTFP), + hisubst[ir->op1], hisubst[ir->op2]); + break; + case IR_HIOP: + J->cur.nins--; /* Drop joining HIOP. */ + ir->prev = nir->op1; + hi = nir->op2; + break; + default: + lua_assert(ir->o <= IR_NE || ir->o == IR_MIN || ir->o == IR_MAX); + hi = split_emit(J, IRTG(IR_HIOP, IRT_SOFTFP), + hisubst[ir->op1], hisubst[ir->op2]); + break; + } + } else +#endif +#if LJ_32 && LJ_HASFFI + if (irt_isint64(ir->t)) { + IRRef hiref = hisubst[ir->op1]; + nir->t.irt = IRT_INT | (nir->t.irt & IRT_GUARD); /* Turn into INT op. */ + switch (ir->o) { + case IR_ADD: + case IR_SUB: + /* Use plain op for hiword if loword cannot produce a carry/borrow. */ + if (irref_isk(nir->op2) && IR(nir->op2)->i == 0) { + ir->prev = nir->op1; /* Pass through loword. */ + nir->op1 = hiref; nir->op2 = hisubst[ir->op2]; + hi = nref; + break; + } + /* fallthrough */ + case IR_NEG: + hi = split_emit(J, IRTI(IR_HIOP), hiref, hisubst[ir->op2]); + break; + case IR_MUL: + hi = split_call_ll(J, hisubst, oir, ir, IRCALL_lj_carith_mul64); + break; + case IR_DIV: + hi = split_call_ll(J, hisubst, oir, ir, + irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : + IRCALL_lj_carith_divu64); + break; + case IR_MOD: + hi = split_call_ll(J, hisubst, oir, ir, + irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : + IRCALL_lj_carith_modu64); + break; + case IR_POW: + hi = split_call_ll(J, hisubst, oir, ir, + irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : + IRCALL_lj_carith_powu64); + break; + case IR_FLOAD: + lua_assert(ir->op2 == IRFL_CDATA_INT64); + hi = split_emit(J, IRTI(IR_FLOAD), nir->op1, IRFL_CDATA_INT64_4); +#if LJ_BE + ir->prev = hi; hi = nref; +#endif + break; + case IR_XLOAD: + hi = split_emit(J, IRTI(IR_XLOAD), split_ptr(J, oir, ir->op1), ir->op2); +#if LJ_BE + ir->prev = hi; hi = nref; +#endif + break; + case IR_XSTORE: + split_emit(J, IRTI(IR_HIOP), nir->op1, hisubst[ir->op2]); + break; + case IR_CONV: { /* Conversion to 64 bit integer. Others handled below. */ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); +#if LJ_SOFTFP + if (st == IRT_NUM) { /* NUM to 64 bit int conv. */ + hi = split_call_l(J, hisubst, oir, ir, + irt_isi64(ir->t) ? IRCALL_fp64_d2l : IRCALL_fp64_d2ul); + } else if (st == IRT_FLOAT) { /* FLOAT to 64 bit int conv. */ + nir->o = IR_CALLN; + nir->op2 = irt_isi64(ir->t) ? IRCALL_fp64_f2l : IRCALL_fp64_f2ul; + hi = split_emit(J, IRTI(IR_HIOP), nref, nref); + } +#else + if (st == IRT_NUM || st == IRT_FLOAT) { /* FP to 64 bit int conv. */ + hi = split_emit(J, IRTI(IR_HIOP), nir->op1, nref); + } +#endif + else if (st == IRT_I64 || st == IRT_U64) { /* 64/64 bit cast. */ + /* Drop cast, since assembler doesn't care. */ + goto fwdlo; + } else if ((ir->op2 & IRCONV_SEXT)) { /* Sign-extend to 64 bit. */ + IRRef k31 = lj_ir_kint(J, 31); + nir = IR(nref); /* May have been reallocated. */ + ir->prev = nir->op1; /* Pass through loword. */ + nir->o = IR_BSAR; /* hi = bsar(lo, 31). */ + nir->op2 = k31; + hi = nref; + } else { /* Zero-extend to 64 bit. */ + hi = lj_ir_kint(J, 0); + goto fwdlo; + } + break; + } + case IR_CALLXS: + goto split_call; + case IR_PHI: { + IRRef hiref2; + if ((irref_isk(nir->op1) && irref_isk(nir->op2)) || + nir->op1 == nir->op2) + J->cur.nins--; /* Drop useless PHIs. */ + hiref2 = hisubst[ir->op2]; + if (!((irref_isk(hiref) && irref_isk(hiref2)) || hiref == hiref2)) + split_emit(J, IRTI(IR_PHI), hiref, hiref2); + break; + } + case IR_HIOP: + J->cur.nins--; /* Drop joining HIOP. */ + ir->prev = nir->op1; + hi = nir->op2; + break; + default: + lua_assert(ir->o <= IR_NE); /* Comparisons. */ + split_emit(J, IRTGI(IR_HIOP), hiref, hisubst[ir->op2]); + break; + } + } else +#endif +#if LJ_SOFTFP + if (ir->o == IR_SLOAD) { + if ((nir->op2 & IRSLOAD_CONVERT)) { /* Convert from number to int. */ + nir->op2 &= ~IRSLOAD_CONVERT; + if (!(nir->op2 & IRSLOAD_TYPECHECK)) + nir->t.irt = IRT_INT; /* Drop guard. */ + split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); + ir->prev = split_num2int(J, nref, nref+1, irt_isguard(ir->t)); + } + } else if (ir->o == IR_TOBIT) { + IRRef tmp, op1 = ir->op1; + J->cur.nins--; +#if LJ_LE + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); +#else + tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); +#endif + ir->prev = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_lj_vm_tobit); + } else if (ir->o == IR_TOSTR) { + if (hisubst[ir->op1]) { + if (irref_isk(ir->op1)) + nir->op1 = ir->op1; + else + split_emit(J, IRT(IR_HIOP, IRT_NIL), hisubst[ir->op1], nref); + } + } else if (ir->o == IR_HREF || ir->o == IR_NEWREF) { + if (irref_isk(ir->op2) && hisubst[ir->op2]) + nir->op2 = ir->op2; + } else +#endif + if (ir->o == IR_CONV) { /* See above, too. */ + IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); +#if LJ_32 && LJ_HASFFI + if (st == IRT_I64 || st == IRT_U64) { /* Conversion from 64 bit int. */ +#if LJ_SOFTFP + if (irt_isfloat(ir->t)) { + split_call_l(J, hisubst, oir, ir, + st == IRT_I64 ? IRCALL_fp64_l2f : IRCALL_fp64_ul2f); + J->cur.nins--; /* Drop unused HIOP. */ + } +#else + if (irt_isfp(ir->t)) { /* 64 bit integer to FP conversion. */ + ir->prev = split_emit(J, IRT(IR_HIOP, irt_type(ir->t)), + hisubst[ir->op1], nref); + } +#endif + else { /* Truncate to lower 32 bits. */ + fwdlo: + ir->prev = nir->op1; /* Forward loword. */ + /* Replace with NOP to avoid messing up the snapshot logic. */ + nir->ot = IRT(IR_NOP, IRT_NIL); + nir->op1 = nir->op2 = 0; + } + } +#endif +#if LJ_SOFTFP && LJ_32 && LJ_HASFFI + else if (irt_isfloat(ir->t)) { + if (st == IRT_NUM) { + split_call_l(J, hisubst, oir, ir, IRCALL_softfp_d2f); + J->cur.nins--; /* Drop unused HIOP. */ + } else { + nir->o = IR_CALLN; + nir->op2 = st == IRT_INT ? IRCALL_softfp_i2f : IRCALL_softfp_ui2f; + } + } else if (st == IRT_FLOAT) { + nir->o = IR_CALLN; + nir->op2 = irt_isint(ir->t) ? IRCALL_softfp_f2i : IRCALL_softfp_f2ui; + } else +#endif +#if LJ_SOFTFP + if (st == IRT_NUM || (LJ_32 && LJ_HASFFI && st == IRT_FLOAT)) { + if (irt_isguard(ir->t)) { + lua_assert(st == IRT_NUM && irt_isint(ir->t)); + J->cur.nins--; + ir->prev = split_num2int(J, nir->op1, hisubst[ir->op1], 1); + } else { + split_call_l(J, hisubst, oir, ir, +#if LJ_32 && LJ_HASFFI + st == IRT_NUM ? + (irt_isint(ir->t) ? IRCALL_softfp_d2i : IRCALL_softfp_d2ui) : + (irt_isint(ir->t) ? IRCALL_softfp_f2i : IRCALL_softfp_f2ui) +#else + IRCALL_softfp_d2i +#endif + ); + J->cur.nins--; /* Drop unused HIOP. */ + } + } +#endif + } else if (ir->o == IR_CALLXS) { + IRRef hiref; + split_call: + hiref = hisubst[ir->op1]; + if (hiref) { + IROpT ot = nir->ot; + IRRef op2 = nir->op2; + nir->ot = IRT(IR_CARG, IRT_NIL); +#if LJ_LE + nir->op2 = hiref; +#else + nir->op2 = nir->op1; nir->op1 = hiref; +#endif + ir->prev = nref = split_emit(J, ot, nref, op2); + } + if (LJ_SOFTFP ? irt_is64(ir->t) : irt_isint64(ir->t)) + hi = split_emit(J, + IRT(IR_HIOP, (LJ_SOFTFP && irt_isnum(ir->t)) ? IRT_SOFTFP : IRT_INT), + nref, nref); + } else if (ir->o == IR_CARG) { + IRRef hiref = hisubst[ir->op1]; + if (hiref) { + IRRef op2 = nir->op2; +#if LJ_LE + nir->op2 = hiref; +#else + nir->op2 = nir->op1; nir->op1 = hiref; +#endif + ir->prev = nref = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, op2); + nir = IR(nref); + } + hiref = hisubst[ir->op2]; + if (hiref) { +#if !LJ_TARGET_X86 + int carg = 0; + IRIns *cir; + for (cir = IR(nir->op1); cir->o == IR_CARG; cir = IR(cir->op1)) + carg++; + if ((carg & 1) == 0) { /* Align 64 bit arguments. */ + IRRef op2 = nir->op2; + nir->op2 = REF_NIL; + nref = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, op2); + nir = IR(nref); + } +#endif +#if LJ_BE + { IRRef tmp = nir->op2; nir->op2 = hiref; hiref = tmp; } +#endif + ir->prev = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, hiref); + } + } else if (ir->o == IR_CNEWI) { + if (hisubst[ir->op2]) + split_emit(J, IRT(IR_HIOP, IRT_NIL), nref, hisubst[ir->op2]); + } else if (ir->o == IR_LOOP) { + J->loopref = nref; /* Needed by assembler. */ + } + hisubst[ref] = hi; /* Store hiword substitution. */ + } + if (snref == nins) { /* Substitution for last snapshot. */ + snap->ref = J->cur.nins; + split_subst_snap(J, snap, oir); + } + + /* Add PHI marks. */ + for (ref = J->cur.nins-1; ref >= REF_FIRST; ref--) { + IRIns *ir = IR(ref); + if (ir->o != IR_PHI) break; + if (!irref_isk(ir->op1)) irt_setphi(IR(ir->op1)->t); + if (ir->op2 > J->loopref) irt_setphi(IR(ir->op2)->t); + } +} + +/* Protected callback for split pass. */ +static TValue *cpsplit(lua_State *L, lua_CFunction dummy, void *ud) +{ + jit_State *J = (jit_State *)ud; + split_ir(J); + UNUSED(L); UNUSED(dummy); + return NULL; +} + +#if defined(LUA_USE_ASSERT) || LJ_SOFTFP +/* Slow, but sure way to check whether a SPLIT pass is needed. */ +static int split_needsplit(jit_State *J) +{ + IRIns *ir, *irend; + IRRef ref; + for (ir = IR(REF_FIRST), irend = IR(J->cur.nins); ir < irend; ir++) + if (LJ_SOFTFP ? irt_is64orfp(ir->t) : irt_isint64(ir->t)) + return 1; + if (LJ_SOFTFP) { + for (ref = J->chain[IR_SLOAD]; ref; ref = IR(ref)->prev) + if ((IR(ref)->op2 & IRSLOAD_CONVERT)) + return 1; + if (J->chain[IR_TOBIT]) + return 1; + } + for (ref = J->chain[IR_CONV]; ref; ref = IR(ref)->prev) { + IRType st = (IR(ref)->op2 & IRCONV_SRCMASK); + if ((LJ_SOFTFP && (st == IRT_NUM || st == IRT_FLOAT)) || + st == IRT_I64 || st == IRT_U64) + return 1; + } + return 0; /* Nope. */ +} +#endif + +/* SPLIT pass. */ +void lj_opt_split(jit_State *J) +{ +#if LJ_SOFTFP + if (!J->needsplit) + J->needsplit = split_needsplit(J); +#else + lua_assert(J->needsplit >= split_needsplit(J)); /* Verify flag. */ +#endif + if (J->needsplit) { + int errcode = lj_vm_cpcall(J->L, NULL, J, cpsplit); + if (errcode) { + /* Completely reset the trace to avoid inconsistent dump on abort. */ + J->cur.nins = J->cur.nk = REF_BASE; + J->cur.nsnap = 0; + lj_err_throw(J->L, errcode); /* Propagate errors. */ + } + } +} + +#undef IR + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_parse.c b/src/3rd party/luajit-2.0/src/lj_parse.c new file mode 100644 index 00000000000..abfac3c0c81 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_parse.c @@ -0,0 +1,2754 @@ +/* +** Lua parser (source code -> bytecode). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_parse_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_func.h" +#include "lj_state.h" +#include "lj_bc.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#include "lj_lex.h" +#include "lj_parse.h" +#include "lj_vm.h" +#include "lj_vmevent.h" + +/* -- Parser structures and definitions ----------------------------------- */ + +/* Expression kinds. */ +typedef enum { + /* Constant expressions must be first and in this order: */ + VKNIL, + VKFALSE, + VKTRUE, + VKSTR, /* sval = string value */ + VKNUM, /* nval = number value */ + VKLAST = VKNUM, + VKCDATA, /* nval = cdata value, not treated as a constant expression */ + /* Non-constant expressions follow: */ + VLOCAL, /* info = local register, aux = vstack index */ + VUPVAL, /* info = upvalue index, aux = vstack index */ + VGLOBAL, /* sval = string value */ + VINDEXED, /* info = table register, aux = index reg/byte/string const */ + VJMP, /* info = instruction PC */ + VRELOCABLE, /* info = instruction PC */ + VNONRELOC, /* info = result register */ + VCALL, /* info = instruction PC, aux = base */ + VVOID +} ExpKind; + +/* Expression descriptor. */ +typedef struct ExpDesc { + union { + struct { + uint32_t info; /* Primary info. */ + uint32_t aux; /* Secondary info. */ + } s; + TValue nval; /* Number value. */ + GCstr *sval; /* String value. */ + } u; + ExpKind k; + BCPos t; /* True condition jump list. */ + BCPos f; /* False condition jump list. */ +} ExpDesc; + +/* Macros for expressions. */ +#define expr_hasjump(e) ((e)->t != (e)->f) + +#define expr_isk(e) ((e)->k <= VKLAST) +#define expr_isk_nojump(e) (expr_isk(e) && !expr_hasjump(e)) +#define expr_isnumk(e) ((e)->k == VKNUM) +#define expr_isnumk_nojump(e) (expr_isnumk(e) && !expr_hasjump(e)) +#define expr_isstrk(e) ((e)->k == VKSTR) + +#define expr_numtv(e) check_exp(expr_isnumk((e)), &(e)->u.nval) +#define expr_numberV(e) numberVnum(expr_numtv((e))) + +/* Initialize expression. */ +static LJ_AINLINE void expr_init(ExpDesc *e, ExpKind k, uint32_t info) +{ + e->k = k; + e->u.s.info = info; + e->f = e->t = NO_JMP; +} + +/* Check number constant for +-0. */ +static int expr_numiszero(ExpDesc *e) +{ + TValue *o = expr_numtv(e); + return tvisint(o) ? (intV(o) == 0) : tviszero(o); +} + +/* Per-function linked list of scope blocks. */ +typedef struct FuncScope { + struct FuncScope *prev; /* Link to outer scope. */ + MSize vstart; /* Start of block-local variables. */ + uint8_t nactvar; /* Number of active vars outside the scope. */ + uint8_t flags; /* Scope flags. */ +} FuncScope; + +#define FSCOPE_LOOP 0x01 /* Scope is a (breakable) loop. */ +#define FSCOPE_BREAK 0x02 /* Break used in scope. */ +#define FSCOPE_GOLA 0x04 /* Goto or label used in scope. */ +#define FSCOPE_UPVAL 0x08 /* Upvalue in scope. */ +#define FSCOPE_NOCLOSE 0x10 /* Do not close upvalues. */ + +#define NAME_BREAK ((GCstr *)(uintptr_t)1) + +/* Index into variable stack. */ +typedef uint16_t VarIndex; +#define LJ_MAX_VSTACK (65536 - LJ_MAX_UPVAL) + +/* Variable/goto/label info. */ +#define VSTACK_VAR_RW 0x01 /* R/W variable. */ +#define VSTACK_GOTO 0x02 /* Pending goto. */ +#define VSTACK_LABEL 0x04 /* Label. */ + +/* Per-function state. */ +typedef struct FuncState { + GCtab *kt; /* Hash table for constants. */ + LexState *ls; /* Lexer state. */ + lua_State *L; /* Lua state. */ + FuncScope *bl; /* Current scope. */ + struct FuncState *prev; /* Enclosing function. */ + BCPos pc; /* Next bytecode position. */ + BCPos lasttarget; /* Bytecode position of last jump target. */ + BCPos jpc; /* Pending jump list to next bytecode. */ + BCReg freereg; /* First free register. */ + BCReg nactvar; /* Number of active local variables. */ + BCReg nkn, nkgc; /* Number of lua_Number/GCobj constants */ + BCLine linedefined; /* First line of the function definition. */ + BCInsLine *bcbase; /* Base of bytecode stack. */ + BCPos bclim; /* Limit of bytecode stack. */ + MSize vbase; /* Base of variable stack for this function. */ + uint8_t flags; /* Prototype flags. */ + uint8_t numparams; /* Number of parameters. */ + uint8_t framesize; /* Fixed frame size. */ + uint8_t nuv; /* Number of upvalues */ + VarIndex varmap[LJ_MAX_LOCVAR]; /* Map from register to variable idx. */ + VarIndex uvmap[LJ_MAX_UPVAL]; /* Map from upvalue to variable idx. */ + VarIndex uvtmp[LJ_MAX_UPVAL]; /* Temporary upvalue map. */ +} FuncState; + +/* Binary and unary operators. ORDER OPR */ +typedef enum BinOpr { + OPR_ADD, OPR_SUB, OPR_MUL, OPR_DIV, OPR_MOD, OPR_POW, /* ORDER ARITH */ + OPR_CONCAT, + OPR_NE, OPR_EQ, + OPR_LT, OPR_GE, OPR_LE, OPR_GT, + OPR_AND, OPR_OR, + OPR_NOBINOPR +} BinOpr; + +LJ_STATIC_ASSERT((int)BC_ISGE-(int)BC_ISLT == (int)OPR_GE-(int)OPR_LT); +LJ_STATIC_ASSERT((int)BC_ISLE-(int)BC_ISLT == (int)OPR_LE-(int)OPR_LT); +LJ_STATIC_ASSERT((int)BC_ISGT-(int)BC_ISLT == (int)OPR_GT-(int)OPR_LT); +LJ_STATIC_ASSERT((int)BC_SUBVV-(int)BC_ADDVV == (int)OPR_SUB-(int)OPR_ADD); +LJ_STATIC_ASSERT((int)BC_MULVV-(int)BC_ADDVV == (int)OPR_MUL-(int)OPR_ADD); +LJ_STATIC_ASSERT((int)BC_DIVVV-(int)BC_ADDVV == (int)OPR_DIV-(int)OPR_ADD); +LJ_STATIC_ASSERT((int)BC_MODVV-(int)BC_ADDVV == (int)OPR_MOD-(int)OPR_ADD); + +/* -- Error handling ------------------------------------------------------ */ + +LJ_NORET LJ_NOINLINE static void err_syntax(LexState *ls, ErrMsg em) +{ + lj_lex_error(ls, ls->token, em); +} + +LJ_NORET LJ_NOINLINE static void err_token(LexState *ls, LexToken token) +{ + lj_lex_error(ls, ls->token, LJ_ERR_XTOKEN, lj_lex_token2str(ls, token)); +} + +LJ_NORET static void err_limit(FuncState *fs, uint32_t limit, const char *what) +{ + if (fs->linedefined == 0) + lj_lex_error(fs->ls, 0, LJ_ERR_XLIMM, limit, what); + else + lj_lex_error(fs->ls, 0, LJ_ERR_XLIMF, fs->linedefined, limit, what); +} + +#define checklimit(fs, v, l, m) if ((v) >= (l)) err_limit(fs, l, m) +#define checklimitgt(fs, v, l, m) if ((v) > (l)) err_limit(fs, l, m) +#define checkcond(ls, c, em) { if (!(c)) err_syntax(ls, em); } + +/* -- Management of constants --------------------------------------------- */ + +/* Return bytecode encoding for primitive constant. */ +#define const_pri(e) check_exp((e)->k <= VKTRUE, (e)->k) + +#define tvhaskslot(o) ((o)->u32.hi == 0) +#define tvkslot(o) ((o)->u32.lo) + +/* Add a number constant. */ +static BCReg const_num(FuncState *fs, ExpDesc *e) +{ + lua_State *L = fs->L; + TValue *o; + lua_assert(expr_isnumk(e)); + o = lj_tab_set(L, fs->kt, &e->u.nval); + if (tvhaskslot(o)) + return tvkslot(o); + o->u64 = fs->nkn; + return fs->nkn++; +} + +/* Add a GC object constant. */ +static BCReg const_gc(FuncState *fs, GCobj *gc, uint32_t itype) +{ + lua_State *L = fs->L; + TValue key, *o; + setgcV(L, &key, gc, itype); + /* NOBARRIER: the key is new or kept alive. */ + o = lj_tab_set(L, fs->kt, &key); + if (tvhaskslot(o)) + return tvkslot(o); + o->u64 = fs->nkgc; + return fs->nkgc++; +} + +/* Add a string constant. */ +static BCReg const_str(FuncState *fs, ExpDesc *e) +{ + lua_assert(expr_isstrk(e) || e->k == VGLOBAL); + return const_gc(fs, obj2gco(e->u.sval), LJ_TSTR); +} + +/* Anchor string constant to avoid GC. */ +GCstr *lj_parse_keepstr(LexState *ls, const char *str, size_t len) +{ + /* NOBARRIER: the key is new or kept alive. */ + lua_State *L = ls->L; + GCstr *s = lj_str_new(L, str, len); + TValue *tv = lj_tab_setstr(L, ls->fs->kt, s); + if (tvisnil(tv)) setboolV(tv, 1); + lj_gc_check(L); + return s; +} + +#if LJ_HASFFI +/* Anchor cdata to avoid GC. */ +void lj_parse_keepcdata(LexState *ls, TValue *tv, GCcdata *cd) +{ + /* NOBARRIER: the key is new or kept alive. */ + lua_State *L = ls->L; + setcdataV(L, tv, cd); + setboolV(lj_tab_set(L, ls->fs->kt, tv), 1); +} +#endif + +/* -- Jump list handling -------------------------------------------------- */ + +/* Get next element in jump list. */ +static BCPos jmp_next(FuncState *fs, BCPos pc) +{ + ptrdiff_t delta = bc_j(fs->bcbase[pc].ins); + if ((BCPos)delta == NO_JMP) + return NO_JMP; + else + return (BCPos)(((ptrdiff_t)pc+1)+delta); +} + +/* Check if any of the instructions on the jump list produce no value. */ +static int jmp_novalue(FuncState *fs, BCPos list) +{ + for (; list != NO_JMP; list = jmp_next(fs, list)) { + BCIns p = fs->bcbase[list >= 1 ? list-1 : list].ins; + if (!(bc_op(p) == BC_ISTC || bc_op(p) == BC_ISFC || bc_a(p) == NO_REG)) + return 1; + } + return 0; +} + +/* Patch register of test instructions. */ +static int jmp_patchtestreg(FuncState *fs, BCPos pc, BCReg reg) +{ + BCInsLine *ilp = &fs->bcbase[pc >= 1 ? pc-1 : pc]; + BCOp op = bc_op(ilp->ins); + if (op == BC_ISTC || op == BC_ISFC) { + if (reg != NO_REG && reg != bc_d(ilp->ins)) { + setbc_a(&ilp->ins, reg); + } else { /* Nothing to store or already in the right register. */ + setbc_op(&ilp->ins, op+(BC_IST-BC_ISTC)); + setbc_a(&ilp->ins, 0); + } + } else if (bc_a(ilp->ins) == NO_REG) { + if (reg == NO_REG) { + ilp->ins = BCINS_AJ(BC_JMP, bc_a(fs->bcbase[pc].ins), 0); + } else { + setbc_a(&ilp->ins, reg); + if (reg >= bc_a(ilp[1].ins)) + setbc_a(&ilp[1].ins, reg+1); + } + } else { + return 0; /* Cannot patch other instructions. */ + } + return 1; +} + +/* Drop values for all instructions on jump list. */ +static void jmp_dropval(FuncState *fs, BCPos list) +{ + for (; list != NO_JMP; list = jmp_next(fs, list)) + jmp_patchtestreg(fs, list, NO_REG); +} + +/* Patch jump instruction to target. */ +static void jmp_patchins(FuncState *fs, BCPos pc, BCPos dest) +{ + BCIns *jmp = &fs->bcbase[pc].ins; + BCPos offset = dest-(pc+1)+BCBIAS_J; + lua_assert(dest != NO_JMP); + if (offset > BCMAX_D) + err_syntax(fs->ls, LJ_ERR_XJUMP); + setbc_d(jmp, offset); +} + +/* Append to jump list. */ +static void jmp_append(FuncState *fs, BCPos *l1, BCPos l2) +{ + if (l2 == NO_JMP) { + return; + } else if (*l1 == NO_JMP) { + *l1 = l2; + } else { + BCPos list = *l1; + BCPos next; + while ((next = jmp_next(fs, list)) != NO_JMP) /* Find last element. */ + list = next; + jmp_patchins(fs, list, l2); + } +} + +/* Patch jump list and preserve produced values. */ +static void jmp_patchval(FuncState *fs, BCPos list, BCPos vtarget, + BCReg reg, BCPos dtarget) +{ + while (list != NO_JMP) { + BCPos next = jmp_next(fs, list); + if (jmp_patchtestreg(fs, list, reg)) + jmp_patchins(fs, list, vtarget); /* Jump to target with value. */ + else + jmp_patchins(fs, list, dtarget); /* Jump to default target. */ + list = next; + } +} + +/* Jump to following instruction. Append to list of pending jumps. */ +static void jmp_tohere(FuncState *fs, BCPos list) +{ + fs->lasttarget = fs->pc; + jmp_append(fs, &fs->jpc, list); +} + +/* Patch jump list to target. */ +static void jmp_patch(FuncState *fs, BCPos list, BCPos target) +{ + if (target == fs->pc) { + jmp_tohere(fs, list); + } else { + lua_assert(target < fs->pc); + jmp_patchval(fs, list, target, NO_REG, target); + } +} + +/* -- Bytecode register allocator ----------------------------------------- */ + +/* Bump frame size. */ +static void bcreg_bump(FuncState *fs, BCReg n) +{ + BCReg sz = fs->freereg + n; + if (sz > fs->framesize) { + if (sz >= LJ_MAX_SLOTS) + err_syntax(fs->ls, LJ_ERR_XSLOTS); + fs->framesize = (uint8_t)sz; + } +} + +/* Reserve registers. */ +static void bcreg_reserve(FuncState *fs, BCReg n) +{ + bcreg_bump(fs, n); + fs->freereg += n; +} + +/* Free register. */ +static void bcreg_free(FuncState *fs, BCReg reg) +{ + if (reg >= fs->nactvar) { + fs->freereg--; + lua_assert(reg == fs->freereg); + } +} + +/* Free register for expression. */ +static void expr_free(FuncState *fs, ExpDesc *e) +{ + if (e->k == VNONRELOC) + bcreg_free(fs, e->u.s.info); +} + +/* -- Bytecode emitter ---------------------------------------------------- */ + +/* Emit bytecode instruction. */ +static BCPos bcemit_INS(FuncState *fs, BCIns ins) +{ + BCPos pc = fs->pc; + LexState *ls = fs->ls; + jmp_patchval(fs, fs->jpc, pc, NO_REG, pc); + fs->jpc = NO_JMP; + if (LJ_UNLIKELY(pc >= fs->bclim)) { + ptrdiff_t base = fs->bcbase - ls->bcstack; + checklimit(fs, ls->sizebcstack, LJ_MAX_BCINS, "bytecode instructions"); + lj_mem_growvec(fs->L, ls->bcstack, ls->sizebcstack, LJ_MAX_BCINS,BCInsLine); + fs->bclim = (BCPos)(ls->sizebcstack - base); + fs->bcbase = ls->bcstack + base; + } + fs->bcbase[pc].ins = ins; + fs->bcbase[pc].line = ls->lastline; + fs->pc = pc+1; + return pc; +} + +#define bcemit_ABC(fs, o, a, b, c) bcemit_INS(fs, BCINS_ABC(o, a, b, c)) +#define bcemit_AD(fs, o, a, d) bcemit_INS(fs, BCINS_AD(o, a, d)) +#define bcemit_AJ(fs, o, a, j) bcemit_INS(fs, BCINS_AJ(o, a, j)) + +#define bcptr(fs, e) (&(fs)->bcbase[(e)->u.s.info].ins) + +/* -- Bytecode emitter for expressions ------------------------------------ */ + +/* Discharge non-constant expression to any register. */ +static void expr_discharge(FuncState *fs, ExpDesc *e) +{ + BCIns ins; + if (e->k == VUPVAL) { + ins = BCINS_AD(BC_UGET, 0, e->u.s.info); + } else if (e->k == VGLOBAL) { + ins = BCINS_AD(BC_GGET, 0, const_str(fs, e)); + } else if (e->k == VINDEXED) { + BCReg rc = e->u.s.aux; + if ((int32_t)rc < 0) { + ins = BCINS_ABC(BC_TGETS, 0, e->u.s.info, ~rc); + } else if (rc > BCMAX_C) { + ins = BCINS_ABC(BC_TGETB, 0, e->u.s.info, rc-(BCMAX_C+1)); + } else { + bcreg_free(fs, rc); + ins = BCINS_ABC(BC_TGETV, 0, e->u.s.info, rc); + } + bcreg_free(fs, e->u.s.info); + } else if (e->k == VCALL) { + e->u.s.info = e->u.s.aux; + e->k = VNONRELOC; + return; + } else if (e->k == VLOCAL) { + e->k = VNONRELOC; + return; + } else { + return; + } + e->u.s.info = bcemit_INS(fs, ins); + e->k = VRELOCABLE; +} + +/* Emit bytecode to set a range of registers to nil. */ +static void bcemit_nil(FuncState *fs, BCReg from, BCReg n) +{ + if (fs->pc > fs->lasttarget) { /* No jumps to current position? */ + BCIns *ip = &fs->bcbase[fs->pc-1].ins; + BCReg pto, pfrom = bc_a(*ip); + switch (bc_op(*ip)) { /* Try to merge with the previous instruction. */ + case BC_KPRI: + if (bc_d(*ip) != ~LJ_TNIL) break; + if (from == pfrom) { + if (n == 1) return; + } else if (from == pfrom+1) { + from = pfrom; + n++; + } else { + break; + } + *ip = BCINS_AD(BC_KNIL, from, from+n-1); /* Replace KPRI. */ + return; + case BC_KNIL: + pto = bc_d(*ip); + if (pfrom <= from && from <= pto+1) { /* Can we connect both ranges? */ + if (from+n-1 > pto) + setbc_d(ip, from+n-1); /* Patch previous instruction range. */ + return; + } + break; + default: + break; + } + } + /* Emit new instruction or replace old instruction. */ + bcemit_INS(fs, n == 1 ? BCINS_AD(BC_KPRI, from, VKNIL) : + BCINS_AD(BC_KNIL, from, from+n-1)); +} + +/* Discharge an expression to a specific register. Ignore branches. */ +static void expr_toreg_nobranch(FuncState *fs, ExpDesc *e, BCReg reg) +{ + BCIns ins; + expr_discharge(fs, e); + if (e->k == VKSTR) { + ins = BCINS_AD(BC_KSTR, reg, const_str(fs, e)); + } else if (e->k == VKNUM) { +#if LJ_DUALNUM + cTValue *tv = expr_numtv(e); + if (tvisint(tv) && checki16(intV(tv))) + ins = BCINS_AD(BC_KSHORT, reg, (BCReg)(uint16_t)intV(tv)); + else +#else + lua_Number n = expr_numberV(e); + int32_t k = lj_num2int(n); + if (checki16(k) && n == (lua_Number)k) + ins = BCINS_AD(BC_KSHORT, reg, (BCReg)(uint16_t)k); + else +#endif + ins = BCINS_AD(BC_KNUM, reg, const_num(fs, e)); +#if LJ_HASFFI + } else if (e->k == VKCDATA) { + fs->flags |= PROTO_FFI; + ins = BCINS_AD(BC_KCDATA, reg, + const_gc(fs, obj2gco(cdataV(&e->u.nval)), LJ_TCDATA)); +#endif + } else if (e->k == VRELOCABLE) { + setbc_a(bcptr(fs, e), reg); + goto noins; + } else if (e->k == VNONRELOC) { + if (reg == e->u.s.info) + goto noins; + ins = BCINS_AD(BC_MOV, reg, e->u.s.info); + } else if (e->k == VKNIL) { + bcemit_nil(fs, reg, 1); + goto noins; + } else if (e->k <= VKTRUE) { + ins = BCINS_AD(BC_KPRI, reg, const_pri(e)); + } else { + lua_assert(e->k == VVOID || e->k == VJMP); + return; + } + bcemit_INS(fs, ins); +noins: + e->u.s.info = reg; + e->k = VNONRELOC; +} + +/* Forward declaration. */ +static BCPos bcemit_jmp(FuncState *fs); + +/* Discharge an expression to a specific register. */ +static void expr_toreg(FuncState *fs, ExpDesc *e, BCReg reg) +{ + expr_toreg_nobranch(fs, e, reg); + if (e->k == VJMP) + jmp_append(fs, &e->t, e->u.s.info); /* Add it to the true jump list. */ + if (expr_hasjump(e)) { /* Discharge expression with branches. */ + BCPos jend, jfalse = NO_JMP, jtrue = NO_JMP; + if (jmp_novalue(fs, e->t) || jmp_novalue(fs, e->f)) { + BCPos jval = (e->k == VJMP) ? NO_JMP : bcemit_jmp(fs); + jfalse = bcemit_AD(fs, BC_KPRI, reg, VKFALSE); + bcemit_AJ(fs, BC_JMP, fs->freereg, 1); + jtrue = bcemit_AD(fs, BC_KPRI, reg, VKTRUE); + jmp_tohere(fs, jval); + } + jend = fs->pc; + fs->lasttarget = jend; + jmp_patchval(fs, e->f, jend, reg, jfalse); + jmp_patchval(fs, e->t, jend, reg, jtrue); + } + e->f = e->t = NO_JMP; + e->u.s.info = reg; + e->k = VNONRELOC; +} + +/* Discharge an expression to the next free register. */ +static void expr_tonextreg(FuncState *fs, ExpDesc *e) +{ + expr_discharge(fs, e); + expr_free(fs, e); + bcreg_reserve(fs, 1); + expr_toreg(fs, e, fs->freereg - 1); +} + +/* Discharge an expression to any register. */ +static BCReg expr_toanyreg(FuncState *fs, ExpDesc *e) +{ + expr_discharge(fs, e); + if (e->k == VNONRELOC) { + if (!expr_hasjump(e)) return e->u.s.info; /* Already in a register. */ + if (e->u.s.info >= fs->nactvar) { + expr_toreg(fs, e, e->u.s.info); /* Discharge to temp. register. */ + return e->u.s.info; + } + } + expr_tonextreg(fs, e); /* Discharge to next register. */ + return e->u.s.info; +} + +/* Partially discharge expression to a value. */ +static void expr_toval(FuncState *fs, ExpDesc *e) +{ + if (expr_hasjump(e)) + expr_toanyreg(fs, e); + else + expr_discharge(fs, e); +} + +/* Emit store for LHS expression. */ +static void bcemit_store(FuncState *fs, ExpDesc *var, ExpDesc *e) +{ + BCIns ins; + if (var->k == VLOCAL) { + fs->ls->vstack[var->u.s.aux].info |= VSTACK_VAR_RW; + expr_free(fs, e); + expr_toreg(fs, e, var->u.s.info); + return; + } else if (var->k == VUPVAL) { + fs->ls->vstack[var->u.s.aux].info |= VSTACK_VAR_RW; + expr_toval(fs, e); + if (e->k <= VKTRUE) + ins = BCINS_AD(BC_USETP, var->u.s.info, const_pri(e)); + else if (e->k == VKSTR) + ins = BCINS_AD(BC_USETS, var->u.s.info, const_str(fs, e)); + else if (e->k == VKNUM) + ins = BCINS_AD(BC_USETN, var->u.s.info, const_num(fs, e)); + else + ins = BCINS_AD(BC_USETV, var->u.s.info, expr_toanyreg(fs, e)); + } else if (var->k == VGLOBAL) { + BCReg ra = expr_toanyreg(fs, e); + ins = BCINS_AD(BC_GSET, ra, const_str(fs, var)); + } else { + BCReg ra, rc; + lua_assert(var->k == VINDEXED); + ra = expr_toanyreg(fs, e); + rc = var->u.s.aux; + if ((int32_t)rc < 0) { + ins = BCINS_ABC(BC_TSETS, ra, var->u.s.info, ~rc); + } else if (rc > BCMAX_C) { + ins = BCINS_ABC(BC_TSETB, ra, var->u.s.info, rc-(BCMAX_C+1)); + } else { + /* Free late alloced key reg to avoid assert on free of value reg. */ + /* This can only happen when called from expr_table(). */ + lua_assert(e->k != VNONRELOC || ra < fs->nactvar || + rc < ra || (bcreg_free(fs, rc),1)); + ins = BCINS_ABC(BC_TSETV, ra, var->u.s.info, rc); + } + } + bcemit_INS(fs, ins); + expr_free(fs, e); +} + +/* Emit method lookup expression. */ +static void bcemit_method(FuncState *fs, ExpDesc *e, ExpDesc *key) +{ + BCReg idx, func, obj = expr_toanyreg(fs, e); + expr_free(fs, e); + func = fs->freereg; + bcemit_AD(fs, BC_MOV, func+1, obj); /* Copy object to first argument. */ + lua_assert(expr_isstrk(key)); + idx = const_str(fs, key); + if (idx <= BCMAX_C) { + bcreg_reserve(fs, 2); + bcemit_ABC(fs, BC_TGETS, func, obj, idx); + } else { + bcreg_reserve(fs, 3); + bcemit_AD(fs, BC_KSTR, func+2, idx); + bcemit_ABC(fs, BC_TGETV, func, obj, func+2); + fs->freereg--; + } + e->u.s.info = func; + e->k = VNONRELOC; +} + +/* -- Bytecode emitter for branches --------------------------------------- */ + +/* Emit unconditional branch. */ +static BCPos bcemit_jmp(FuncState *fs) +{ + BCPos jpc = fs->jpc; + BCPos j = fs->pc - 1; + BCIns *ip = &fs->bcbase[j].ins; + fs->jpc = NO_JMP; + if ((int32_t)j >= (int32_t)fs->lasttarget && bc_op(*ip) == BC_UCLO) { + setbc_j(ip, NO_JMP); + fs->lasttarget = j+1; + } else { + j = bcemit_AJ(fs, BC_JMP, fs->freereg, NO_JMP); + } + jmp_append(fs, &j, jpc); + return j; +} + +/* Invert branch condition of bytecode instruction. */ +static void invertcond(FuncState *fs, ExpDesc *e) +{ + BCIns *ip = &fs->bcbase[e->u.s.info - 1].ins; + setbc_op(ip, bc_op(*ip)^1); +} + +/* Emit conditional branch. */ +static BCPos bcemit_branch(FuncState *fs, ExpDesc *e, int cond) +{ + BCPos pc; + if (e->k == VRELOCABLE) { + BCIns *ip = bcptr(fs, e); + if (bc_op(*ip) == BC_NOT) { + *ip = BCINS_AD(cond ? BC_ISF : BC_IST, 0, bc_d(*ip)); + return bcemit_jmp(fs); + } + } + if (e->k != VNONRELOC) { + bcreg_reserve(fs, 1); + expr_toreg_nobranch(fs, e, fs->freereg-1); + } + bcemit_AD(fs, cond ? BC_ISTC : BC_ISFC, NO_REG, e->u.s.info); + pc = bcemit_jmp(fs); + expr_free(fs, e); + return pc; +} + +/* Emit branch on true condition. */ +static void bcemit_branch_t(FuncState *fs, ExpDesc *e) +{ + BCPos pc; + expr_discharge(fs, e); + if (e->k == VKSTR || e->k == VKNUM || e->k == VKTRUE) + pc = NO_JMP; /* Never jump. */ + else if (e->k == VJMP) + invertcond(fs, e), pc = e->u.s.info; + else if (e->k == VKFALSE || e->k == VKNIL) + expr_toreg_nobranch(fs, e, NO_REG), pc = bcemit_jmp(fs); + else + pc = bcemit_branch(fs, e, 0); + jmp_append(fs, &e->f, pc); + jmp_tohere(fs, e->t); + e->t = NO_JMP; +} + +/* Emit branch on false condition. */ +static void bcemit_branch_f(FuncState *fs, ExpDesc *e) +{ + BCPos pc; + expr_discharge(fs, e); + if (e->k == VKNIL || e->k == VKFALSE) + pc = NO_JMP; /* Never jump. */ + else if (e->k == VJMP) + pc = e->u.s.info; + else if (e->k == VKSTR || e->k == VKNUM || e->k == VKTRUE) + expr_toreg_nobranch(fs, e, NO_REG), pc = bcemit_jmp(fs); + else + pc = bcemit_branch(fs, e, 1); + jmp_append(fs, &e->t, pc); + jmp_tohere(fs, e->f); + e->f = NO_JMP; +} + +/* -- Bytecode emitter for operators -------------------------------------- */ + +/* Try constant-folding of arithmetic operators. */ +static int foldarith(BinOpr opr, ExpDesc *e1, ExpDesc *e2) +{ + TValue o; + lua_Number n; + if (!expr_isnumk_nojump(e1) || !expr_isnumk_nojump(e2)) return 0; + n = lj_vm_foldarith(expr_numberV(e1), expr_numberV(e2), (int)opr-OPR_ADD); + setnumV(&o, n); + if (tvisnan(&o) || tvismzero(&o)) return 0; /* Avoid NaN and -0 as consts. */ + if (LJ_DUALNUM) { + int32_t k = lj_num2int(n); + if ((lua_Number)k == n) { + setintV(&e1->u.nval, k); + return 1; + } + } + setnumV(&e1->u.nval, n); + return 1; +} + +/* Emit arithmetic operator. */ +static void bcemit_arith(FuncState *fs, BinOpr opr, ExpDesc *e1, ExpDesc *e2) +{ + BCReg rb, rc, t; + uint32_t op; + if (foldarith(opr, e1, e2)) + return; + if (opr == OPR_POW) { + op = BC_POW; + rc = expr_toanyreg(fs, e2); + rb = expr_toanyreg(fs, e1); + } else { + op = opr-OPR_ADD+BC_ADDVV; + /* Must discharge 2nd operand first since VINDEXED might free regs. */ + expr_toval(fs, e2); + if (expr_isnumk(e2) && (rc = const_num(fs, e2)) <= BCMAX_C) + op -= BC_ADDVV-BC_ADDVN; + else + rc = expr_toanyreg(fs, e2); + /* 1st operand discharged by bcemit_binop_left, but need KNUM/KSHORT. */ + lua_assert(expr_isnumk(e1) || e1->k == VNONRELOC); + expr_toval(fs, e1); + /* Avoid two consts to satisfy bytecode constraints. */ + if (expr_isnumk(e1) && !expr_isnumk(e2) && + (t = const_num(fs, e1)) <= BCMAX_B) { + rb = rc; rc = t; op -= BC_ADDVV-BC_ADDNV; + } else { + rb = expr_toanyreg(fs, e1); + } + } + /* Using expr_free might cause asserts if the order is wrong. */ + if (e1->k == VNONRELOC && e1->u.s.info >= fs->nactvar) fs->freereg--; + if (e2->k == VNONRELOC && e2->u.s.info >= fs->nactvar) fs->freereg--; + e1->u.s.info = bcemit_ABC(fs, op, 0, rb, rc); + e1->k = VRELOCABLE; +} + +/* Emit comparison operator. */ +static void bcemit_comp(FuncState *fs, BinOpr opr, ExpDesc *e1, ExpDesc *e2) +{ + ExpDesc *eret = e1; + BCIns ins; + expr_toval(fs, e1); + if (opr == OPR_EQ || opr == OPR_NE) { + BCOp op = opr == OPR_EQ ? BC_ISEQV : BC_ISNEV; + BCReg ra; + if (expr_isk(e1)) { e1 = e2; e2 = eret; } /* Need constant in 2nd arg. */ + ra = expr_toanyreg(fs, e1); /* First arg must be in a reg. */ + expr_toval(fs, e2); + switch (e2->k) { + case VKNIL: case VKFALSE: case VKTRUE: + ins = BCINS_AD(op+(BC_ISEQP-BC_ISEQV), ra, const_pri(e2)); + break; + case VKSTR: + ins = BCINS_AD(op+(BC_ISEQS-BC_ISEQV), ra, const_str(fs, e2)); + break; + case VKNUM: + ins = BCINS_AD(op+(BC_ISEQN-BC_ISEQV), ra, const_num(fs, e2)); + break; + default: + ins = BCINS_AD(op, ra, expr_toanyreg(fs, e2)); + break; + } + } else { + uint32_t op = opr-OPR_LT+BC_ISLT; + BCReg ra, rd; + if ((op-BC_ISLT) & 1) { /* GT -> LT, GE -> LE */ + e1 = e2; e2 = eret; /* Swap operands. */ + op = ((op-BC_ISLT)^3)+BC_ISLT; + expr_toval(fs, e1); + } + rd = expr_toanyreg(fs, e2); + ra = expr_toanyreg(fs, e1); + ins = BCINS_AD(op, ra, rd); + } + /* Using expr_free might cause asserts if the order is wrong. */ + if (e1->k == VNONRELOC && e1->u.s.info >= fs->nactvar) fs->freereg--; + if (e2->k == VNONRELOC && e2->u.s.info >= fs->nactvar) fs->freereg--; + bcemit_INS(fs, ins); + eret->u.s.info = bcemit_jmp(fs); + eret->k = VJMP; +} + +/* Fixup left side of binary operator. */ +static void bcemit_binop_left(FuncState *fs, BinOpr op, ExpDesc *e) +{ + if (op == OPR_AND) { + bcemit_branch_t(fs, e); + } else if (op == OPR_OR) { + bcemit_branch_f(fs, e); + } else if (op == OPR_CONCAT) { + expr_tonextreg(fs, e); + } else if (op == OPR_EQ || op == OPR_NE) { + if (!expr_isk_nojump(e)) expr_toanyreg(fs, e); + } else { + if (!expr_isnumk_nojump(e)) expr_toanyreg(fs, e); + } +} + +/* Emit binary operator. */ +static void bcemit_binop(FuncState *fs, BinOpr op, ExpDesc *e1, ExpDesc *e2) +{ + if (op <= OPR_POW) { + bcemit_arith(fs, op, e1, e2); + } else if (op == OPR_AND) { + lua_assert(e1->t == NO_JMP); /* List must be closed. */ + expr_discharge(fs, e2); + jmp_append(fs, &e2->f, e1->f); + *e1 = *e2; + } else if (op == OPR_OR) { + lua_assert(e1->f == NO_JMP); /* List must be closed. */ + expr_discharge(fs, e2); + jmp_append(fs, &e2->t, e1->t); + *e1 = *e2; + } else if (op == OPR_CONCAT) { + expr_toval(fs, e2); + if (e2->k == VRELOCABLE && bc_op(*bcptr(fs, e2)) == BC_CAT) { + lua_assert(e1->u.s.info == bc_b(*bcptr(fs, e2))-1); + expr_free(fs, e1); + setbc_b(bcptr(fs, e2), e1->u.s.info); + e1->u.s.info = e2->u.s.info; + } else { + expr_tonextreg(fs, e2); + expr_free(fs, e2); + expr_free(fs, e1); + e1->u.s.info = bcemit_ABC(fs, BC_CAT, 0, e1->u.s.info, e2->u.s.info); + } + e1->k = VRELOCABLE; + } else { + lua_assert(op == OPR_NE || op == OPR_EQ || + op == OPR_LT || op == OPR_GE || op == OPR_LE || op == OPR_GT); + bcemit_comp(fs, op, e1, e2); + } +} + +/* Emit unary operator. */ +static void bcemit_unop(FuncState *fs, BCOp op, ExpDesc *e) +{ + if (op == BC_NOT) { + /* Swap true and false lists. */ + { BCPos temp = e->f; e->f = e->t; e->t = temp; } + jmp_dropval(fs, e->f); + jmp_dropval(fs, e->t); + expr_discharge(fs, e); + if (e->k == VKNIL || e->k == VKFALSE) { + e->k = VKTRUE; + return; + } else if (expr_isk(e) || (LJ_HASFFI && e->k == VKCDATA)) { + e->k = VKFALSE; + return; + } else if (e->k == VJMP) { + invertcond(fs, e); + return; + } else if (e->k == VRELOCABLE) { + bcreg_reserve(fs, 1); + setbc_a(bcptr(fs, e), fs->freereg-1); + e->u.s.info = fs->freereg-1; + e->k = VNONRELOC; + } else { + lua_assert(e->k == VNONRELOC); + } + } else { + lua_assert(op == BC_UNM || op == BC_LEN); + if (op == BC_UNM && !expr_hasjump(e)) { /* Constant-fold negations. */ +#if LJ_HASFFI + if (e->k == VKCDATA) { /* Fold in-place since cdata is not interned. */ + GCcdata *cd = cdataV(&e->u.nval); + int64_t *p = (int64_t *)cdataptr(cd); + if (cd->ctypeid == CTID_COMPLEX_DOUBLE) + p[1] ^= (int64_t)U64x(80000000,00000000); + else + *p = -*p; + return; + } else +#endif + if (expr_isnumk(e) && !expr_numiszero(e)) { /* Avoid folding to -0. */ + TValue *o = expr_numtv(e); + if (tvisint(o)) { + int32_t k = intV(o); + if (k == -k) + setnumV(o, -(lua_Number)k); + else + setintV(o, -k); + return; + } else { + o->u64 ^= U64x(80000000,00000000); + return; + } + } + } + expr_toanyreg(fs, e); + } + expr_free(fs, e); + e->u.s.info = bcemit_AD(fs, op, 0, e->u.s.info); + e->k = VRELOCABLE; +} + +/* -- Lexer support ------------------------------------------------------- */ + +/* Check and consume optional token. */ +static int lex_opt(LexState *ls, LexToken tok) +{ + if (ls->token == tok) { + lj_lex_next(ls); + return 1; + } + return 0; +} + +/* Check and consume token. */ +static void lex_check(LexState *ls, LexToken tok) +{ + if (ls->token != tok) + err_token(ls, tok); + lj_lex_next(ls); +} + +/* Check for matching token. */ +static void lex_match(LexState *ls, LexToken what, LexToken who, BCLine line) +{ + if (!lex_opt(ls, what)) { + if (line == ls->linenumber) { + err_token(ls, what); + } else { + const char *swhat = lj_lex_token2str(ls, what); + const char *swho = lj_lex_token2str(ls, who); + lj_lex_error(ls, ls->token, LJ_ERR_XMATCH, swhat, swho, line); + } + } +} + +/* Check for string token. */ +static GCstr *lex_str(LexState *ls) +{ + GCstr *s; + if (ls->token != TK_name && (LJ_52 || ls->token != TK_goto)) + err_token(ls, TK_name); + s = strV(&ls->tokenval); + lj_lex_next(ls); + return s; +} + +/* -- Variable handling --------------------------------------------------- */ + +#define var_get(ls, fs, i) ((ls)->vstack[(fs)->varmap[(i)]]) + +/* Define a new local variable. */ +static void var_new(LexState *ls, BCReg n, GCstr *name) +{ + FuncState *fs = ls->fs; + MSize vtop = ls->vtop; + checklimit(fs, fs->nactvar+n, LJ_MAX_LOCVAR, "local variables"); + if (LJ_UNLIKELY(vtop >= ls->sizevstack)) { + if (ls->sizevstack >= LJ_MAX_VSTACK) + lj_lex_error(ls, 0, LJ_ERR_XLIMC, LJ_MAX_VSTACK); + lj_mem_growvec(ls->L, ls->vstack, ls->sizevstack, LJ_MAX_VSTACK, VarInfo); + } + lua_assert((uintptr_t)name < VARNAME__MAX || + lj_tab_getstr(fs->kt, name) != NULL); + /* NOBARRIER: name is anchored in fs->kt and ls->vstack is not a GCobj. */ + setgcref(ls->vstack[vtop].name, obj2gco(name)); + fs->varmap[fs->nactvar+n] = (uint16_t)vtop; + ls->vtop = vtop+1; +} + +#define var_new_lit(ls, n, v) \ + var_new(ls, (n), lj_parse_keepstr(ls, "" v, sizeof(v)-1)) + +#define var_new_fixed(ls, n, vn) \ + var_new(ls, (n), (GCstr *)(uintptr_t)(vn)) + +/* Add local variables. */ +static void var_add(LexState *ls, BCReg nvars) +{ + FuncState *fs = ls->fs; + BCReg nactvar = fs->nactvar; + while (nvars--) { + VarInfo *v = &var_get(ls, fs, nactvar); + v->startpc = fs->pc; + v->slot = nactvar++; + v->info = 0; + } + fs->nactvar = nactvar; +} + +/* Remove local variables. */ +static void var_remove(LexState *ls, BCReg tolevel) +{ + FuncState *fs = ls->fs; + while (fs->nactvar > tolevel) + var_get(ls, fs, --fs->nactvar).endpc = fs->pc; +} + +/* Lookup local variable name. */ +static BCReg var_lookup_local(FuncState *fs, GCstr *n) +{ + int i; + for (i = fs->nactvar-1; i >= 0; i--) { + if (n == strref(var_get(fs->ls, fs, i).name)) + return (BCReg)i; + } + return (BCReg)-1; /* Not found. */ +} + +/* Lookup or add upvalue index. */ +static MSize var_lookup_uv(FuncState *fs, MSize vidx, ExpDesc *e) +{ + MSize i, n = fs->nuv; + for (i = 0; i < n; i++) + if (fs->uvmap[i] == vidx) + return i; /* Already exists. */ + /* Otherwise create a new one. */ + checklimit(fs, fs->nuv, LJ_MAX_UPVAL, "upvalues"); + lua_assert(e->k == VLOCAL || e->k == VUPVAL); + fs->uvmap[n] = (uint16_t)vidx; + fs->uvtmp[n] = (uint16_t)(e->k == VLOCAL ? vidx : LJ_MAX_VSTACK+e->u.s.info); + fs->nuv = n+1; + return n; +} + +/* Forward declaration. */ +static void fscope_uvmark(FuncState *fs, BCReg level); + +/* Recursively lookup variables in enclosing functions. */ +static MSize var_lookup_(FuncState *fs, GCstr *name, ExpDesc *e, int first) +{ + if (fs) { + BCReg reg = var_lookup_local(fs, name); + if ((int32_t)reg >= 0) { /* Local in this function? */ + expr_init(e, VLOCAL, reg); + if (!first) + fscope_uvmark(fs, reg); /* Scope now has an upvalue. */ + return (MSize)(e->u.s.aux = (uint32_t)fs->varmap[reg]); + } else { + MSize vidx = var_lookup_(fs->prev, name, e, 0); /* Var in outer func? */ + if ((int32_t)vidx >= 0) { /* Yes, make it an upvalue here. */ + e->u.s.info = (uint8_t)var_lookup_uv(fs, vidx, e); + e->k = VUPVAL; + return vidx; + } + } + } else { /* Not found in any function, must be a global. */ + expr_init(e, VGLOBAL, 0); + e->u.sval = name; + } + return (MSize)-1; /* Global. */ +} + +/* Lookup variable name. */ +#define var_lookup(ls, e) \ + var_lookup_((ls)->fs, lex_str(ls), (e), 1) + +/* -- Goto an label handling ---------------------------------------------- */ + +/* Add a new goto or label. */ +static MSize gola_new(LexState *ls, GCstr *name, uint8_t info, BCPos pc) +{ + FuncState *fs = ls->fs; + MSize vtop = ls->vtop; + if (LJ_UNLIKELY(vtop >= ls->sizevstack)) { + if (ls->sizevstack >= LJ_MAX_VSTACK) + lj_lex_error(ls, 0, LJ_ERR_XLIMC, LJ_MAX_VSTACK); + lj_mem_growvec(ls->L, ls->vstack, ls->sizevstack, LJ_MAX_VSTACK, VarInfo); + } + lua_assert(name == NAME_BREAK || lj_tab_getstr(fs->kt, name) != NULL); + /* NOBARRIER: name is anchored in fs->kt and ls->vstack is not a GCobj. */ + setgcref(ls->vstack[vtop].name, obj2gco(name)); + ls->vstack[vtop].startpc = pc; + ls->vstack[vtop].slot = (uint8_t)fs->nactvar; + ls->vstack[vtop].info = info; + ls->vtop = vtop+1; + return vtop; +} + +#define gola_isgoto(v) ((v)->info & VSTACK_GOTO) +#define gola_islabel(v) ((v)->info & VSTACK_LABEL) +#define gola_isgotolabel(v) ((v)->info & (VSTACK_GOTO|VSTACK_LABEL)) + +/* Patch goto to jump to label. */ +static void gola_patch(LexState *ls, VarInfo *vg, VarInfo *vl) +{ + FuncState *fs = ls->fs; + BCPos pc = vg->startpc; + setgcrefnull(vg->name); /* Invalidate pending goto. */ + setbc_a(&fs->bcbase[pc].ins, vl->slot); + jmp_patch(fs, pc, vl->startpc); +} + +/* Patch goto to close upvalues. */ +static void gola_close(LexState *ls, VarInfo *vg) +{ + FuncState *fs = ls->fs; + BCPos pc = vg->startpc; + BCIns *ip = &fs->bcbase[pc].ins; + lua_assert(gola_isgoto(vg)); + lua_assert(bc_op(*ip) == BC_JMP || bc_op(*ip) == BC_UCLO); + setbc_a(ip, vg->slot); + if (bc_op(*ip) == BC_JMP) { + BCPos next = jmp_next(fs, pc); + if (next != NO_JMP) jmp_patch(fs, next, pc); /* Jump to UCLO. */ + setbc_op(ip, BC_UCLO); /* Turn into UCLO. */ + setbc_j(ip, NO_JMP); + } +} + +/* Resolve pending forward gotos for label. */ +static void gola_resolve(LexState *ls, FuncScope *bl, MSize idx) +{ + VarInfo *vg = ls->vstack + bl->vstart; + VarInfo *vl = ls->vstack + idx; + for (; vg < vl; vg++) + if (gcrefeq(vg->name, vl->name) && gola_isgoto(vg)) { + if (vg->slot < vl->slot) { + GCstr *name = strref(var_get(ls, ls->fs, vg->slot).name); + lua_assert((uintptr_t)name >= VARNAME__MAX); + ls->linenumber = ls->fs->bcbase[vg->startpc].line; + lua_assert(strref(vg->name) != NAME_BREAK); + lj_lex_error(ls, 0, LJ_ERR_XGSCOPE, + strdata(strref(vg->name)), strdata(name)); + } + gola_patch(ls, vg, vl); + } +} + +/* Fixup remaining gotos and labels for scope. */ +static void gola_fixup(LexState *ls, FuncScope *bl) +{ + VarInfo *v = ls->vstack + bl->vstart; + VarInfo *ve = ls->vstack + ls->vtop; + for (; v < ve; v++) { + GCstr *name = strref(v->name); + if (name != NULL) { /* Only consider remaining valid gotos/labels. */ + if (gola_islabel(v)) { + VarInfo *vg; + setgcrefnull(v->name); /* Invalidate label that goes out of scope. */ + for (vg = v+1; vg < ve; vg++) /* Resolve pending backward gotos. */ + if (strref(vg->name) == name && gola_isgoto(vg)) { + if ((bl->flags&FSCOPE_UPVAL) && vg->slot > v->slot) + gola_close(ls, vg); + gola_patch(ls, vg, v); + } + } else if (gola_isgoto(v)) { + if (bl->prev) { /* Propagate goto or break to outer scope. */ + bl->prev->flags |= name == NAME_BREAK ? FSCOPE_BREAK : FSCOPE_GOLA; + v->slot = bl->nactvar; + if ((bl->flags & FSCOPE_UPVAL)) + gola_close(ls, v); + } else { /* No outer scope: undefined goto label or no loop. */ + ls->linenumber = ls->fs->bcbase[v->startpc].line; + if (name == NAME_BREAK) + lj_lex_error(ls, 0, LJ_ERR_XBREAK); + else + lj_lex_error(ls, 0, LJ_ERR_XLUNDEF, strdata(name)); + } + } + } + } +} + +/* Find existing label. */ +static VarInfo *gola_findlabel(LexState *ls, GCstr *name) +{ + VarInfo *v = ls->vstack + ls->fs->bl->vstart; + VarInfo *ve = ls->vstack + ls->vtop; + for (; v < ve; v++) + if (strref(v->name) == name && gola_islabel(v)) + return v; + return NULL; +} + +/* -- Scope handling ------------------------------------------------------ */ + +/* Begin a scope. */ +static void fscope_begin(FuncState *fs, FuncScope *bl, int flags) +{ + bl->nactvar = (uint8_t)fs->nactvar; + bl->flags = flags; + bl->vstart = fs->ls->vtop; + bl->prev = fs->bl; + fs->bl = bl; + lua_assert(fs->freereg == fs->nactvar); +} + +/* End a scope. */ +static void fscope_end(FuncState *fs) +{ + FuncScope *bl = fs->bl; + LexState *ls = fs->ls; + fs->bl = bl->prev; + var_remove(ls, bl->nactvar); + fs->freereg = fs->nactvar; + lua_assert(bl->nactvar == fs->nactvar); + if ((bl->flags & (FSCOPE_UPVAL|FSCOPE_NOCLOSE)) == FSCOPE_UPVAL) + bcemit_AJ(fs, BC_UCLO, bl->nactvar, 0); + if ((bl->flags & FSCOPE_BREAK)) { + if ((bl->flags & FSCOPE_LOOP)) { + MSize idx = gola_new(ls, NAME_BREAK, VSTACK_LABEL, fs->pc); + ls->vtop = idx; /* Drop break label immediately. */ + gola_resolve(ls, bl, idx); + return; + } /* else: need the fixup step to propagate the breaks. */ + } else if (!(bl->flags & FSCOPE_GOLA)) { + return; + } + gola_fixup(ls, bl); +} + +/* Mark scope as having an upvalue. */ +static void fscope_uvmark(FuncState *fs, BCReg level) +{ + FuncScope *bl; + for (bl = fs->bl; bl && bl->nactvar > level; bl = bl->prev) + ; + if (bl) + bl->flags |= FSCOPE_UPVAL; +} + +/* -- Function state management ------------------------------------------- */ + +/* Fixup bytecode for prototype. */ +static void fs_fixup_bc(FuncState *fs, GCproto *pt, BCIns *bc, MSize n) +{ + BCInsLine *base = fs->bcbase; + MSize i; + pt->sizebc = n; + bc[0] = BCINS_AD((fs->flags & PROTO_VARARG) ? BC_FUNCV : BC_FUNCF, + fs->framesize, 0); + for (i = 1; i < n; i++) + bc[i] = base[i].ins; +} + +/* Fixup upvalues for child prototype, step #2. */ +static void fs_fixup_uv2(FuncState *fs, GCproto *pt) +{ + VarInfo *vstack = fs->ls->vstack; + uint16_t *uv = proto_uv(pt); + MSize i, n = pt->sizeuv; + for (i = 0; i < n; i++) { + VarIndex vidx = uv[i]; + if (vidx >= LJ_MAX_VSTACK) + uv[i] = vidx - LJ_MAX_VSTACK; + else if ((vstack[vidx].info & VSTACK_VAR_RW)) + uv[i] = vstack[vidx].slot | PROTO_UV_LOCAL; + else + uv[i] = vstack[vidx].slot | PROTO_UV_LOCAL | PROTO_UV_IMMUTABLE; + } +} + +/* Fixup constants for prototype. */ +static void fs_fixup_k(FuncState *fs, GCproto *pt, void *kptr) +{ + GCtab *kt; + TValue *array; + Node *node; + MSize i, hmask; + checklimitgt(fs, fs->nkn, BCMAX_D+1, "constants"); + checklimitgt(fs, fs->nkgc, BCMAX_D+1, "constants"); + setmref(pt->k, kptr); + pt->sizekn = fs->nkn; + pt->sizekgc = fs->nkgc; + kt = fs->kt; + array = tvref(kt->array); + for (i = 0; i < kt->asize; i++) + if (tvhaskslot(&array[i])) { + TValue *tv = &((TValue *)kptr)[tvkslot(&array[i])]; + if (LJ_DUALNUM) + setintV(tv, (int32_t)i); + else + setnumV(tv, (lua_Number)i); + } + node = noderef(kt->node); + hmask = kt->hmask; + for (i = 0; i <= hmask; i++) { + Node *n = &node[i]; + if (tvhaskslot(&n->val)) { + ptrdiff_t kidx = (ptrdiff_t)tvkslot(&n->val); + lua_assert(!tvisint(&n->key)); + if (tvisnum(&n->key)) { + TValue *tv = &((TValue *)kptr)[kidx]; + if (LJ_DUALNUM) { + lua_Number nn = numV(&n->key); + int32_t k = lj_num2int(nn); + lua_assert(!tvismzero(&n->key)); + if ((lua_Number)k == nn) + setintV(tv, k); + else + *tv = n->key; + } else { + *tv = n->key; + } + } else { + GCobj *o = gcV(&n->key); + setgcref(((GCRef *)kptr)[~kidx], o); + lj_gc_objbarrier(fs->L, pt, o); + if (tvisproto(&n->key)) + fs_fixup_uv2(fs, gco2pt(o)); + } + } + } +} + +/* Fixup upvalues for prototype, step #1. */ +static void fs_fixup_uv1(FuncState *fs, GCproto *pt, uint16_t *uv) +{ + setmref(pt->uv, uv); + pt->sizeuv = fs->nuv; + memcpy(uv, fs->uvtmp, fs->nuv*sizeof(VarIndex)); +} + +#ifndef LUAJIT_DISABLE_DEBUGINFO +/* Prepare lineinfo for prototype. */ +static size_t fs_prep_line(FuncState *fs, BCLine numline) +{ + return (fs->pc-1) << (numline < 256 ? 0 : numline < 65536 ? 1 : 2); +} + +/* Fixup lineinfo for prototype. */ +static void fs_fixup_line(FuncState *fs, GCproto *pt, + void *lineinfo, BCLine numline) +{ + BCInsLine *base = fs->bcbase + 1; + BCLine first = fs->linedefined; + MSize i = 0, n = fs->pc-1; + pt->firstline = fs->linedefined; + pt->numline = numline; + setmref(pt->lineinfo, lineinfo); + if (LJ_LIKELY(numline < 256)) { + uint8_t *li = (uint8_t *)lineinfo; + do { + BCLine delta = base[i].line - first; + lua_assert(delta >= 0 && delta < 256); + li[i] = (uint8_t)delta; + } while (++i < n); + } else if (LJ_LIKELY(numline < 65536)) { + uint16_t *li = (uint16_t *)lineinfo; + do { + BCLine delta = base[i].line - first; + lua_assert(delta >= 0 && delta < 65536); + li[i] = (uint16_t)delta; + } while (++i < n); + } else { + uint32_t *li = (uint32_t *)lineinfo; + do { + BCLine delta = base[i].line - first; + lua_assert(delta >= 0); + li[i] = (uint32_t)delta; + } while (++i < n); + } +} + +/* Resize buffer if needed. */ +static LJ_NOINLINE void fs_buf_resize(LexState *ls, MSize len) +{ + MSize sz = ls->sb.sz * 2; + while (ls->sb.n + len > sz) sz = sz * 2; + lj_str_resizebuf(ls->L, &ls->sb, sz); +} + +static LJ_AINLINE void fs_buf_need(LexState *ls, MSize len) +{ + if (LJ_UNLIKELY(ls->sb.n + len > ls->sb.sz)) + fs_buf_resize(ls, len); +} + +/* Add string to buffer. */ +static void fs_buf_str(LexState *ls, const char *str, MSize len) +{ + char *p = ls->sb.buf + ls->sb.n; + MSize i; + ls->sb.n += len; + for (i = 0; i < len; i++) p[i] = str[i]; +} + +/* Add ULEB128 value to buffer. */ +static void fs_buf_uleb128(LexState *ls, uint32_t v) +{ + MSize n = ls->sb.n; + uint8_t *p = (uint8_t *)ls->sb.buf; + for (; v >= 0x80; v >>= 7) + p[n++] = (uint8_t)((v & 0x7f) | 0x80); + p[n++] = (uint8_t)v; + ls->sb.n = n; +} + +/* Prepare variable info for prototype. */ +static size_t fs_prep_var(LexState *ls, FuncState *fs, size_t *ofsvar) +{ + VarInfo *vs =ls->vstack, *ve; + MSize i, n; + BCPos lastpc; + lj_str_resetbuf(&ls->sb); /* Copy to temp. string buffer. */ + /* Store upvalue names. */ + for (i = 0, n = fs->nuv; i < n; i++) { + GCstr *s = strref(vs[fs->uvmap[i]].name); + MSize len = s->len+1; + fs_buf_need(ls, len); + fs_buf_str(ls, strdata(s), len); + } + *ofsvar = ls->sb.n; + lastpc = 0; + /* Store local variable names and compressed ranges. */ + for (ve = vs + ls->vtop, vs += fs->vbase; vs < ve; vs++) { + if (!gola_isgotolabel(vs)) { + GCstr *s = strref(vs->name); + BCPos startpc; + if ((uintptr_t)s < VARNAME__MAX) { + fs_buf_need(ls, 1 + 2*5); + ls->sb.buf[ls->sb.n++] = (uint8_t)(uintptr_t)s; + } else { + MSize len = s->len+1; + fs_buf_need(ls, len + 2*5); + fs_buf_str(ls, strdata(s), len); + } + startpc = vs->startpc; + fs_buf_uleb128(ls, startpc-lastpc); + fs_buf_uleb128(ls, vs->endpc-startpc); + lastpc = startpc; + } + } + fs_buf_need(ls, 1); + ls->sb.buf[ls->sb.n++] = '\0'; /* Terminator for varinfo. */ + return ls->sb.n; +} + +/* Fixup variable info for prototype. */ +static void fs_fixup_var(LexState *ls, GCproto *pt, uint8_t *p, size_t ofsvar) +{ + setmref(pt->uvinfo, p); + setmref(pt->varinfo, (char *)p + ofsvar); + memcpy(p, ls->sb.buf, ls->sb.n); /* Copy from temp. string buffer. */ +} +#else + +/* Initialize with empty debug info, if disabled. */ +#define fs_prep_line(fs, numline) (UNUSED(numline), 0) +#define fs_fixup_line(fs, pt, li, numline) \ + pt->firstline = pt->numline = 0, setmref((pt)->lineinfo, NULL) +#define fs_prep_var(ls, fs, ofsvar) (UNUSED(ofsvar), 0) +#define fs_fixup_var(ls, pt, p, ofsvar) \ + setmref((pt)->uvinfo, NULL), setmref((pt)->varinfo, NULL) + +#endif + +/* Check if bytecode op returns. */ +static int bcopisret(BCOp op) +{ + switch (op) { + case BC_CALLMT: case BC_CALLT: + case BC_RETM: case BC_RET: case BC_RET0: case BC_RET1: + return 1; + default: + return 0; + } +} + +/* Fixup return instruction for prototype. */ +static void fs_fixup_ret(FuncState *fs) +{ + BCPos lastpc = fs->pc; + if (lastpc <= fs->lasttarget || !bcopisret(bc_op(fs->bcbase[lastpc-1].ins))) { + if ((fs->bl->flags & FSCOPE_UPVAL)) + bcemit_AJ(fs, BC_UCLO, 0, 0); + bcemit_AD(fs, BC_RET0, 0, 1); /* Need final return. */ + } + fs->bl->flags |= FSCOPE_NOCLOSE; /* Handled above. */ + fscope_end(fs); + lua_assert(fs->bl == NULL); + /* May need to fixup returns encoded before first function was created. */ + if (fs->flags & PROTO_FIXUP_RETURN) { + BCPos pc; + for (pc = 1; pc < lastpc; pc++) { + BCIns ins = fs->bcbase[pc].ins; + BCPos offset; + switch (bc_op(ins)) { + case BC_CALLMT: case BC_CALLT: + case BC_RETM: case BC_RET: case BC_RET0: case BC_RET1: + offset = bcemit_INS(fs, ins); /* Copy original instruction. */ + fs->bcbase[offset].line = fs->bcbase[pc].line; + offset = offset-(pc+1)+BCBIAS_J; + if (offset > BCMAX_D) + err_syntax(fs->ls, LJ_ERR_XFIXUP); + /* Replace with UCLO plus branch. */ + fs->bcbase[pc].ins = BCINS_AD(BC_UCLO, 0, offset); + break; + case BC_UCLO: + return; /* We're done. */ + default: + break; + } + } + } +} + +/* Finish a FuncState and return the new prototype. */ +static GCproto *fs_finish(LexState *ls, BCLine line) +{ + lua_State *L = ls->L; + FuncState *fs = ls->fs; + BCLine numline = line - fs->linedefined; + size_t sizept, ofsk, ofsuv, ofsli, ofsdbg, ofsvar; + GCproto *pt; + + /* Apply final fixups. */ + fs_fixup_ret(fs); + + /* Calculate total size of prototype including all colocated arrays. */ + sizept = sizeof(GCproto) + fs->pc*sizeof(BCIns) + fs->nkgc*sizeof(GCRef); + sizept = (sizept + sizeof(TValue)-1) & ~(sizeof(TValue)-1); + ofsk = sizept; sizept += fs->nkn*sizeof(TValue); + ofsuv = sizept; sizept += ((fs->nuv+1)&~1)*2; + ofsli = sizept; sizept += fs_prep_line(fs, numline); + ofsdbg = sizept; sizept += fs_prep_var(ls, fs, &ofsvar); + + /* Allocate prototype and initialize its fields. */ + pt = (GCproto *)lj_mem_newgco(L, (MSize)sizept); + pt->gct = ~LJ_TPROTO; + pt->sizept = (MSize)sizept; + pt->trace = 0; + pt->flags = (uint8_t)(fs->flags & ~(PROTO_HAS_RETURN|PROTO_FIXUP_RETURN)); + pt->numparams = fs->numparams; + pt->framesize = fs->framesize; + setgcref(pt->chunkname, obj2gco(ls->chunkname)); + + /* Close potentially uninitialized gap between bc and kgc. */ + *(uint32_t *)((char *)pt + ofsk - sizeof(GCRef)*(fs->nkgc+1)) = 0; + fs_fixup_bc(fs, pt, (BCIns *)((char *)pt + sizeof(GCproto)), fs->pc); + fs_fixup_k(fs, pt, (void *)((char *)pt + ofsk)); + fs_fixup_uv1(fs, pt, (uint16_t *)((char *)pt + ofsuv)); + fs_fixup_line(fs, pt, (void *)((char *)pt + ofsli), numline); + fs_fixup_var(ls, pt, (uint8_t *)((char *)pt + ofsdbg), ofsvar); + + lj_vmevent_send(L, BC, + setprotoV(L, L->top++, pt); + ); + + L->top--; /* Pop table of constants. */ + ls->vtop = fs->vbase; /* Reset variable stack. */ + ls->fs = fs->prev; + lua_assert(ls->fs != NULL || ls->token == TK_eof); + return pt; +} + +/* Initialize a new FuncState. */ +static void fs_init(LexState *ls, FuncState *fs) +{ + lua_State *L = ls->L; + fs->prev = ls->fs; ls->fs = fs; /* Append to list. */ + fs->ls = ls; + fs->vbase = ls->vtop; + fs->L = L; + fs->pc = 0; + fs->lasttarget = 0; + fs->jpc = NO_JMP; + fs->freereg = 0; + fs->nkgc = 0; + fs->nkn = 0; + fs->nactvar = 0; + fs->nuv = 0; + fs->bl = NULL; + fs->flags = 0; + fs->framesize = 1; /* Minimum frame size. */ + fs->kt = lj_tab_new(L, 0, 0); + /* Anchor table of constants in stack to avoid being collected. */ + settabV(L, L->top, fs->kt); + incr_top(L); +} + +/* -- Expressions --------------------------------------------------------- */ + +/* Forward declaration. */ +static void expr(LexState *ls, ExpDesc *v); + +/* Return string expression. */ +static void expr_str(LexState *ls, ExpDesc *e) +{ + expr_init(e, VKSTR, 0); + e->u.sval = lex_str(ls); +} + +/* Return index expression. */ +static void expr_index(FuncState *fs, ExpDesc *t, ExpDesc *e) +{ + /* Already called: expr_toval(fs, e). */ + t->k = VINDEXED; + if (expr_isnumk(e)) { +#if LJ_DUALNUM + if (tvisint(expr_numtv(e))) { + int32_t k = intV(expr_numtv(e)); + if (checku8(k)) { + t->u.s.aux = BCMAX_C+1+(uint32_t)k; /* 256..511: const byte key */ + return; + } + } +#else + lua_Number n = expr_numberV(e); + int32_t k = lj_num2int(n); + if (checku8(k) && n == (lua_Number)k) { + t->u.s.aux = BCMAX_C+1+(uint32_t)k; /* 256..511: const byte key */ + return; + } +#endif + } else if (expr_isstrk(e)) { + BCReg idx = const_str(fs, e); + if (idx <= BCMAX_C) { + t->u.s.aux = ~idx; /* -256..-1: const string key */ + return; + } + } + t->u.s.aux = expr_toanyreg(fs, e); /* 0..255: register */ +} + +/* Parse index expression with named field. */ +static void expr_field(LexState *ls, ExpDesc *v) +{ + FuncState *fs = ls->fs; + ExpDesc key; + expr_toanyreg(fs, v); + lj_lex_next(ls); /* Skip dot or colon. */ + expr_str(ls, &key); + expr_index(fs, v, &key); +} + +/* Parse index expression with brackets. */ +static void expr_bracket(LexState *ls, ExpDesc *v) +{ + lj_lex_next(ls); /* Skip '['. */ + expr(ls, v); + expr_toval(ls->fs, v); + lex_check(ls, ']'); +} + +/* Get value of constant expression. */ +static void expr_kvalue(TValue *v, ExpDesc *e) +{ + if (e->k <= VKTRUE) { + setitype(v, ~(uint32_t)e->k); + } else if (e->k == VKSTR) { + setgcref(v->gcr, obj2gco(e->u.sval)); + setitype(v, LJ_TSTR); + } else { + lua_assert(tvisnumber(expr_numtv(e))); + *v = *expr_numtv(e); + } +} + +/* Parse table constructor expression. */ +static void expr_table(LexState *ls, ExpDesc *e) +{ + FuncState *fs = ls->fs; + BCLine line = ls->linenumber; + GCtab *t = NULL; + int vcall = 0, needarr = 0, fixt = 0; + uint32_t narr = 1; /* First array index. */ + uint32_t nhash = 0; /* Number of hash entries. */ + BCReg freg = fs->freereg; + BCPos pc = bcemit_AD(fs, BC_TNEW, freg, 0); + expr_init(e, VNONRELOC, freg); + bcreg_reserve(fs, 1); + freg++; + lex_check(ls, '{'); + while (ls->token != '}') { + ExpDesc key, val; + vcall = 0; + if (ls->token == '[') { + expr_bracket(ls, &key); /* Already calls expr_toval. */ + if (!expr_isk(&key)) expr_index(fs, e, &key); + if (expr_isnumk(&key) && expr_numiszero(&key)) needarr = 1; else nhash++; + lex_check(ls, '='); + } else if ((ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) && + lj_lex_lookahead(ls) == '=') { + expr_str(ls, &key); + lex_check(ls, '='); + nhash++; + } else { + expr_init(&key, VKNUM, 0); + setintV(&key.u.nval, (int)narr); + narr++; + needarr = vcall = 1; + } + expr(ls, &val); + if (expr_isk(&key) && key.k != VKNIL && + (key.k == VKSTR || expr_isk_nojump(&val))) { + TValue k, *v; + if (!t) { /* Create template table on demand. */ + BCReg kidx; + t = lj_tab_new(fs->L, needarr ? narr : 0, hsize2hbits(nhash)); + kidx = const_gc(fs, obj2gco(t), LJ_TTAB); + fs->bcbase[pc].ins = BCINS_AD(BC_TDUP, freg-1, kidx); + } + vcall = 0; + expr_kvalue(&k, &key); + v = lj_tab_set(fs->L, t, &k); + lj_gc_anybarriert(fs->L, t); + if (expr_isk_nojump(&val)) { /* Add const key/value to template table. */ + expr_kvalue(v, &val); + } else { /* Otherwise create dummy string key (avoids lj_tab_newkey). */ + settabV(fs->L, v, t); /* Preserve key with table itself as value. */ + fixt = 1; /* Fix this later, after all resizes. */ + goto nonconst; + } + } else { + nonconst: + if (val.k != VCALL) { expr_toanyreg(fs, &val); vcall = 0; } + if (expr_isk(&key)) expr_index(fs, e, &key); + bcemit_store(fs, e, &val); + } + fs->freereg = freg; + if (!lex_opt(ls, ',') && !lex_opt(ls, ';')) break; + } + lex_match(ls, '}', '{', line); + if (vcall) { + BCInsLine *ilp = &fs->bcbase[fs->pc-1]; + ExpDesc en; + lua_assert(bc_a(ilp->ins) == freg && + bc_op(ilp->ins) == (narr > 256 ? BC_TSETV : BC_TSETB)); + expr_init(&en, VKNUM, 0); + en.u.nval.u32.lo = narr-1; + en.u.nval.u32.hi = 0x43300000; /* Biased integer to avoid denormals. */ + if (narr > 256) { fs->pc--; ilp--; } + ilp->ins = BCINS_AD(BC_TSETM, freg, const_num(fs, &en)); + setbc_b(&ilp[-1].ins, 0); + } + if (pc == fs->pc-1) { /* Make expr relocable if possible. */ + e->u.s.info = pc; + fs->freereg--; + e->k = VRELOCABLE; + } else { + e->k = VNONRELOC; /* May have been changed by expr_index. */ + } + if (!t) { /* Construct TNEW RD: hhhhhaaaaaaaaaaa. */ + BCIns *ip = &fs->bcbase[pc].ins; + if (!needarr) narr = 0; + else if (narr < 3) narr = 3; + else if (narr > 0x7ff) narr = 0x7ff; + setbc_d(ip, narr|(hsize2hbits(nhash)<<11)); + } else { + if (needarr && t->asize < narr) + lj_tab_reasize(fs->L, t, narr-1); + if (fixt) { /* Fix value for dummy keys in template table. */ + Node *node = noderef(t->node); + uint32_t i, hmask = t->hmask; + for (i = 0; i <= hmask; i++) { + Node *n = &node[i]; + if (tvistab(&n->val)) { + lua_assert(tabV(&n->val) == t); + setnilV(&n->val); /* Turn value into nil. */ + } + } + } + lj_gc_check(fs->L); + } +} + +/* Parse function parameters. */ +static BCReg parse_params(LexState *ls, int needself) +{ + FuncState *fs = ls->fs; + BCReg nparams = 0; + lex_check(ls, '('); + if (needself) + var_new_lit(ls, nparams++, "self"); + if (ls->token != ')') { + do { + if (ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) { + var_new(ls, nparams++, lex_str(ls)); + } else if (ls->token == TK_dots) { + lj_lex_next(ls); + fs->flags |= PROTO_VARARG; + break; + } else { + err_syntax(ls, LJ_ERR_XPARAM); + } + } while (lex_opt(ls, ',')); + } + var_add(ls, nparams); + lua_assert(fs->nactvar == nparams); + bcreg_reserve(fs, nparams); + lex_check(ls, ')'); + return nparams; +} + +/* Forward declaration. */ +static void parse_chunk(LexState *ls); + +/* Parse body of a function. */ +static void parse_body(LexState *ls, ExpDesc *e, int needself, BCLine line) +{ + FuncState fs, *pfs = ls->fs; + FuncScope bl; + GCproto *pt; + ptrdiff_t oldbase = pfs->bcbase - ls->bcstack; + fs_init(ls, &fs); + fscope_begin(&fs, &bl, 0); + fs.linedefined = line; + fs.numparams = (uint8_t)parse_params(ls, needself); + fs.bcbase = pfs->bcbase + pfs->pc; + fs.bclim = pfs->bclim - pfs->pc; + bcemit_AD(&fs, BC_FUNCF, 0, 0); /* Placeholder. */ + parse_chunk(ls); + if (ls->token != TK_end) lex_match(ls, TK_end, TK_function, line); + pt = fs_finish(ls, (ls->lastline = ls->linenumber)); + pfs->bcbase = ls->bcstack + oldbase; /* May have been reallocated. */ + pfs->bclim = (BCPos)(ls->sizebcstack - oldbase); + /* Store new prototype in the constant array of the parent. */ + expr_init(e, VRELOCABLE, + bcemit_AD(pfs, BC_FNEW, 0, const_gc(pfs, obj2gco(pt), LJ_TPROTO))); +#if LJ_HASFFI + pfs->flags |= (fs.flags & PROTO_FFI); +#endif + if (!(pfs->flags & PROTO_CHILD)) { + if (pfs->flags & PROTO_HAS_RETURN) + pfs->flags |= PROTO_FIXUP_RETURN; + pfs->flags |= PROTO_CHILD; + } + lj_lex_next(ls); +} + +/* Parse expression list. Last expression is left open. */ +static BCReg expr_list(LexState *ls, ExpDesc *v) +{ + BCReg n = 1; + expr(ls, v); + while (lex_opt(ls, ',')) { + expr_tonextreg(ls->fs, v); + expr(ls, v); + n++; + } + return n; +} + +/* Parse function argument list. */ +static void parse_args(LexState *ls, ExpDesc *e) +{ + FuncState *fs = ls->fs; + ExpDesc args; + BCIns ins; + BCReg base; + BCLine line = ls->linenumber; + if (ls->token == '(') { +#if !LJ_52 + if (line != ls->lastline) + err_syntax(ls, LJ_ERR_XAMBIG); +#endif + lj_lex_next(ls); + if (ls->token == ')') { /* f(). */ + args.k = VVOID; + } else { + expr_list(ls, &args); + if (args.k == VCALL) /* f(a, b, g()) or f(a, b, ...). */ + setbc_b(bcptr(fs, &args), 0); /* Pass on multiple results. */ + } + lex_match(ls, ')', '(', line); + } else if (ls->token == '{') { + expr_table(ls, &args); + } else if (ls->token == TK_string) { + expr_init(&args, VKSTR, 0); + args.u.sval = strV(&ls->tokenval); + lj_lex_next(ls); + } else { + err_syntax(ls, LJ_ERR_XFUNARG); + return; /* Silence compiler. */ + } + lua_assert(e->k == VNONRELOC); + base = e->u.s.info; /* Base register for call. */ + if (args.k == VCALL) { + ins = BCINS_ABC(BC_CALLM, base, 2, args.u.s.aux - base - 1); + } else { + if (args.k != VVOID) + expr_tonextreg(fs, &args); + ins = BCINS_ABC(BC_CALL, base, 2, fs->freereg - base); + } + expr_init(e, VCALL, bcemit_INS(fs, ins)); + e->u.s.aux = base; + fs->bcbase[fs->pc - 1].line = line; + fs->freereg = base+1; /* Leave one result by default. */ +} + +/* Parse primary expression. */ +static void expr_primary(LexState *ls, ExpDesc *v) +{ + FuncState *fs = ls->fs; + /* Parse prefix expression. */ + if (ls->token == '(') { + BCLine line = ls->linenumber; + lj_lex_next(ls); + expr(ls, v); + lex_match(ls, ')', '(', line); + expr_discharge(ls->fs, v); + } else if (ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) { + var_lookup(ls, v); + } else { + err_syntax(ls, LJ_ERR_XSYMBOL); + } + for (;;) { /* Parse multiple expression suffixes. */ + if (ls->token == '.') { + expr_field(ls, v); + } else if (ls->token == '[') { + ExpDesc key; + expr_toanyreg(fs, v); + expr_bracket(ls, &key); + expr_index(fs, v, &key); + } else if (ls->token == ':') { + ExpDesc key; + lj_lex_next(ls); + expr_str(ls, &key); + bcemit_method(fs, v, &key); + parse_args(ls, v); + } else if (ls->token == '(' || ls->token == TK_string || ls->token == '{') { + expr_tonextreg(fs, v); + parse_args(ls, v); + } else { + break; + } + } +} + +/* Parse simple expression. */ +static void expr_simple(LexState *ls, ExpDesc *v) +{ + switch (ls->token) { + case TK_number: + expr_init(v, (LJ_HASFFI && tviscdata(&ls->tokenval)) ? VKCDATA : VKNUM, 0); + copyTV(ls->L, &v->u.nval, &ls->tokenval); + break; + case TK_string: + expr_init(v, VKSTR, 0); + v->u.sval = strV(&ls->tokenval); + break; + case TK_nil: + expr_init(v, VKNIL, 0); + break; + case TK_true: + expr_init(v, VKTRUE, 0); + break; + case TK_false: + expr_init(v, VKFALSE, 0); + break; + case TK_dots: { /* Vararg. */ + FuncState *fs = ls->fs; + BCReg base; + checkcond(ls, fs->flags & PROTO_VARARG, LJ_ERR_XDOTS); + bcreg_reserve(fs, 1); + base = fs->freereg-1; + expr_init(v, VCALL, bcemit_ABC(fs, BC_VARG, base, 2, fs->numparams)); + v->u.s.aux = base; + break; + } + case '{': /* Table constructor. */ + expr_table(ls, v); + return; + case TK_function: + lj_lex_next(ls); + parse_body(ls, v, 0, ls->linenumber); + return; + default: + expr_primary(ls, v); + return; + } + lj_lex_next(ls); +} + +/* Manage syntactic levels to avoid blowing up the stack. */ +static void synlevel_begin(LexState *ls) +{ + if (++ls->level >= LJ_MAX_XLEVEL) + lj_lex_error(ls, 0, LJ_ERR_XLEVELS); +} + +#define synlevel_end(ls) ((ls)->level--) + +/* Convert token to binary operator. */ +static BinOpr token2binop(LexToken tok) +{ + switch (tok) { + case '+': return OPR_ADD; + case '-': return OPR_SUB; + case '*': return OPR_MUL; + case '/': return OPR_DIV; + case '%': return OPR_MOD; + case '^': return OPR_POW; + case TK_concat: return OPR_CONCAT; + case TK_ne: return OPR_NE; + case TK_eq: return OPR_EQ; + case '<': return OPR_LT; + case TK_le: return OPR_LE; + case '>': return OPR_GT; + case TK_ge: return OPR_GE; + case TK_and: return OPR_AND; + case TK_or: return OPR_OR; + default: return OPR_NOBINOPR; + } +} + +/* Priorities for each binary operator. ORDER OPR. */ +static const struct { + uint8_t left; /* Left priority. */ + uint8_t right; /* Right priority. */ +} priority[] = { + {6,6}, {6,6}, {7,7}, {7,7}, {7,7}, /* ADD SUB MUL DIV MOD */ + {10,9}, {5,4}, /* POW CONCAT (right associative) */ + {3,3}, {3,3}, /* EQ NE */ + {3,3}, {3,3}, {3,3}, {3,3}, /* LT GE GT LE */ + {2,2}, {1,1} /* AND OR */ +}; + +#define UNARY_PRIORITY 8 /* Priority for unary operators. */ + +/* Forward declaration. */ +static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit); + +/* Parse unary expression. */ +static void expr_unop(LexState *ls, ExpDesc *v) +{ + BCOp op; + if (ls->token == TK_not) { + op = BC_NOT; + } else if (ls->token == '-') { + op = BC_UNM; + } else if (ls->token == '#') { + op = BC_LEN; + } else { + expr_simple(ls, v); + return; + } + lj_lex_next(ls); + expr_binop(ls, v, UNARY_PRIORITY); + bcemit_unop(ls->fs, op, v); +} + +/* Parse binary expressions with priority higher than the limit. */ +static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit) +{ + BinOpr op; + synlevel_begin(ls); + expr_unop(ls, v); + op = token2binop(ls->token); + while (op != OPR_NOBINOPR && priority[op].left > limit) { + ExpDesc v2; + BinOpr nextop; + lj_lex_next(ls); + bcemit_binop_left(ls->fs, op, v); + /* Parse binary expression with higher priority. */ + nextop = expr_binop(ls, &v2, priority[op].right); + bcemit_binop(ls->fs, op, v, &v2); + op = nextop; + } + synlevel_end(ls); + return op; /* Return unconsumed binary operator (if any). */ +} + +/* Parse expression. */ +static void expr(LexState *ls, ExpDesc *v) +{ + expr_binop(ls, v, 0); /* Priority 0: parse whole expression. */ +} + +/* Assign expression to the next register. */ +static void expr_next(LexState *ls) +{ + ExpDesc e; + expr(ls, &e); + expr_tonextreg(ls->fs, &e); +} + +/* Parse conditional expression. */ +static BCPos expr_cond(LexState *ls) +{ + ExpDesc v; + expr(ls, &v); + if (v.k == VKNIL) v.k = VKFALSE; + bcemit_branch_t(ls->fs, &v); + return v.f; +} + +/* -- Assignments --------------------------------------------------------- */ + +/* List of LHS variables. */ +typedef struct LHSVarList { + ExpDesc v; /* LHS variable. */ + struct LHSVarList *prev; /* Link to previous LHS variable. */ +} LHSVarList; + +/* Eliminate write-after-read hazards for local variable assignment. */ +static void assign_hazard(LexState *ls, LHSVarList *lh, const ExpDesc *v) +{ + FuncState *fs = ls->fs; + BCReg reg = v->u.s.info; /* Check against this variable. */ + BCReg tmp = fs->freereg; /* Rename to this temp. register (if needed). */ + int hazard = 0; + for (; lh; lh = lh->prev) { + if (lh->v.k == VINDEXED) { + if (lh->v.u.s.info == reg) { /* t[i], t = 1, 2 */ + hazard = 1; + lh->v.u.s.info = tmp; + } + if (lh->v.u.s.aux == reg) { /* t[i], i = 1, 2 */ + hazard = 1; + lh->v.u.s.aux = tmp; + } + } + } + if (hazard) { + bcemit_AD(fs, BC_MOV, tmp, reg); /* Rename conflicting variable. */ + bcreg_reserve(fs, 1); + } +} + +/* Adjust LHS/RHS of an assignment. */ +static void assign_adjust(LexState *ls, BCReg nvars, BCReg nexps, ExpDesc *e) +{ + FuncState *fs = ls->fs; + int32_t extra = (int32_t)nvars - (int32_t)nexps; + if (e->k == VCALL) { + extra++; /* Compensate for the VCALL itself. */ + if (extra < 0) extra = 0; + setbc_b(bcptr(fs, e), extra+1); /* Fixup call results. */ + if (extra > 1) bcreg_reserve(fs, (BCReg)extra-1); + } else { + if (e->k != VVOID) + expr_tonextreg(fs, e); /* Close last expression. */ + if (extra > 0) { /* Leftover LHS are set to nil. */ + BCReg reg = fs->freereg; + bcreg_reserve(fs, (BCReg)extra); + bcemit_nil(fs, reg, (BCReg)extra); + } + } +} + +/* Recursively parse assignment statement. */ +static void parse_assignment(LexState *ls, LHSVarList *lh, BCReg nvars) +{ + ExpDesc e; + checkcond(ls, VLOCAL <= lh->v.k && lh->v.k <= VINDEXED, LJ_ERR_XSYNTAX); + if (lex_opt(ls, ',')) { /* Collect LHS list and recurse upwards. */ + LHSVarList vl; + vl.prev = lh; + expr_primary(ls, &vl.v); + if (vl.v.k == VLOCAL) + assign_hazard(ls, lh, &vl.v); + checklimit(ls->fs, ls->level + nvars, LJ_MAX_XLEVEL, "variable names"); + parse_assignment(ls, &vl, nvars+1); + } else { /* Parse RHS. */ + BCReg nexps; + lex_check(ls, '='); + nexps = expr_list(ls, &e); + if (nexps == nvars) { + if (e.k == VCALL) { + if (bc_op(*bcptr(ls->fs, &e)) == BC_VARG) { /* Vararg assignment. */ + ls->fs->freereg--; + e.k = VRELOCABLE; + } else { /* Multiple call results. */ + e.u.s.info = e.u.s.aux; /* Base of call is not relocatable. */ + e.k = VNONRELOC; + } + } + bcemit_store(ls->fs, &lh->v, &e); + return; + } + assign_adjust(ls, nvars, nexps, &e); + if (nexps > nvars) + ls->fs->freereg -= nexps - nvars; /* Drop leftover regs. */ + } + /* Assign RHS to LHS and recurse downwards. */ + expr_init(&e, VNONRELOC, ls->fs->freereg-1); + bcemit_store(ls->fs, &lh->v, &e); +} + +/* Parse call statement or assignment. */ +static void parse_call_assign(LexState *ls) +{ + FuncState *fs = ls->fs; + LHSVarList vl; + expr_primary(ls, &vl.v); + if (vl.v.k == VCALL) { /* Function call statement. */ + setbc_b(bcptr(fs, &vl.v), 1); /* No results. */ + } else { /* Start of an assignment. */ + vl.prev = NULL; + parse_assignment(ls, &vl, 1); + } +} + +/* Parse 'local' statement. */ +static void parse_local(LexState *ls) +{ + if (lex_opt(ls, TK_function)) { /* Local function declaration. */ + ExpDesc v, b; + FuncState *fs = ls->fs; + var_new(ls, 0, lex_str(ls)); + expr_init(&v, VLOCAL, fs->freereg); + v.u.s.aux = fs->varmap[fs->freereg]; + bcreg_reserve(fs, 1); + var_add(ls, 1); + parse_body(ls, &b, 0, ls->linenumber); + /* bcemit_store(fs, &v, &b) without setting VSTACK_VAR_RW. */ + expr_free(fs, &b); + expr_toreg(fs, &b, v.u.s.info); + /* The upvalue is in scope, but the local is only valid after the store. */ + var_get(ls, fs, fs->nactvar - 1).startpc = fs->pc; + } else { /* Local variable declaration. */ + ExpDesc e; + BCReg nexps, nvars = 0; + do { /* Collect LHS. */ + var_new(ls, nvars++, lex_str(ls)); + } while (lex_opt(ls, ',')); + if (lex_opt(ls, '=')) { /* Optional RHS. */ + nexps = expr_list(ls, &e); + } else { /* Or implicitly set to nil. */ + e.k = VVOID; + nexps = 0; + } + assign_adjust(ls, nvars, nexps, &e); + var_add(ls, nvars); + } +} + +/* Parse 'function' statement. */ +static void parse_func(LexState *ls, BCLine line) +{ + FuncState *fs; + ExpDesc v, b; + int needself = 0; + lj_lex_next(ls); /* Skip 'function'. */ + /* Parse function name. */ + var_lookup(ls, &v); + while (ls->token == '.') /* Multiple dot-separated fields. */ + expr_field(ls, &v); + if (ls->token == ':') { /* Optional colon to signify method call. */ + needself = 1; + expr_field(ls, &v); + } + parse_body(ls, &b, needself, line); + fs = ls->fs; + bcemit_store(fs, &v, &b); + fs->bcbase[fs->pc - 1].line = line; /* Set line for the store. */ +} + +/* -- Control transfer statements ----------------------------------------- */ + +/* Check for end of block. */ +static int endofblock(LexToken token) +{ + switch (token) { + case TK_else: case TK_elseif: case TK_end: case TK_until: case TK_eof: + return 1; + default: + return 0; + } +} + +/* Parse 'return' statement. */ +static void parse_return(LexState *ls) +{ + BCIns ins; + FuncState *fs = ls->fs; + lj_lex_next(ls); /* Skip 'return'. */ + fs->flags |= PROTO_HAS_RETURN; + if (endofblock(ls->token) || ls->token == ';') { /* Bare return. */ + ins = BCINS_AD(BC_RET0, 0, 1); + } else { /* Return with one or more values. */ + ExpDesc e; /* Receives the _last_ expression in the list. */ + BCReg nret = expr_list(ls, &e); + if (nret == 1) { /* Return one result. */ + if (e.k == VCALL) { /* Check for tail call. */ + BCIns *ip = bcptr(fs, &e); + /* It doesn't pay off to add BC_VARGT just for 'return ...'. */ + if (bc_op(*ip) == BC_VARG) goto notailcall; + fs->pc--; + ins = BCINS_AD(bc_op(*ip)-BC_CALL+BC_CALLT, bc_a(*ip), bc_c(*ip)); + } else { /* Can return the result from any register. */ + ins = BCINS_AD(BC_RET1, expr_toanyreg(fs, &e), 2); + } + } else { + if (e.k == VCALL) { /* Append all results from a call. */ + notailcall: + setbc_b(bcptr(fs, &e), 0); + ins = BCINS_AD(BC_RETM, fs->nactvar, e.u.s.aux - fs->nactvar); + } else { + expr_tonextreg(fs, &e); /* Force contiguous registers. */ + ins = BCINS_AD(BC_RET, fs->nactvar, nret+1); + } + } + } + if (fs->flags & PROTO_CHILD) + bcemit_AJ(fs, BC_UCLO, 0, 0); /* May need to close upvalues first. */ + bcemit_INS(fs, ins); +} + +/* Parse 'break' statement. */ +static void parse_break(LexState *ls) +{ + ls->fs->bl->flags |= FSCOPE_BREAK; + gola_new(ls, NAME_BREAK, VSTACK_GOTO, bcemit_jmp(ls->fs)); +} + +/* Parse 'goto' statement. */ +static void parse_goto(LexState *ls) +{ + FuncState *fs = ls->fs; + GCstr *name = lex_str(ls); + VarInfo *vl = gola_findlabel(ls, name); + if (vl) /* Treat backwards goto within same scope like a loop. */ + bcemit_AJ(fs, BC_LOOP, vl->slot, -1); /* No BC range check. */ + fs->bl->flags |= FSCOPE_GOLA; + gola_new(ls, name, VSTACK_GOTO, bcemit_jmp(fs)); +} + +/* Parse label. */ +static void parse_label(LexState *ls) +{ + FuncState *fs = ls->fs; + GCstr *name; + MSize idx; + fs->lasttarget = fs->pc; + fs->bl->flags |= FSCOPE_GOLA; + lj_lex_next(ls); /* Skip '::'. */ + name = lex_str(ls); + if (gola_findlabel(ls, name)) + lj_lex_error(ls, 0, LJ_ERR_XLDUP, strdata(name)); + idx = gola_new(ls, name, VSTACK_LABEL, fs->pc); + lex_check(ls, TK_label); + /* Recursively parse trailing statements: labels and ';' (Lua 5.2 only). */ + for (;;) { + if (ls->token == TK_label) { + synlevel_begin(ls); + parse_label(ls); + synlevel_end(ls); + } else if (LJ_52 && ls->token == ';') { + lj_lex_next(ls); + } else { + break; + } + } + /* Trailing label is considered to be outside of scope. */ + if (endofblock(ls->token) && ls->token != TK_until) + ls->vstack[idx].slot = fs->bl->nactvar; + gola_resolve(ls, fs->bl, idx); +} + +/* -- Blocks, loops and conditional statements ---------------------------- */ + +/* Parse a block. */ +static void parse_block(LexState *ls) +{ + FuncState *fs = ls->fs; + FuncScope bl; + fscope_begin(fs, &bl, 0); + parse_chunk(ls); + fscope_end(fs); +} + +/* Parse 'while' statement. */ +static void parse_while(LexState *ls, BCLine line) +{ + FuncState *fs = ls->fs; + BCPos start, loop, condexit; + FuncScope bl; + lj_lex_next(ls); /* Skip 'while'. */ + start = fs->lasttarget = fs->pc; + condexit = expr_cond(ls); + fscope_begin(fs, &bl, FSCOPE_LOOP); + lex_check(ls, TK_do); + loop = bcemit_AD(fs, BC_LOOP, fs->nactvar, 0); + parse_block(ls); + jmp_patch(fs, bcemit_jmp(fs), start); + lex_match(ls, TK_end, TK_while, line); + fscope_end(fs); + jmp_tohere(fs, condexit); + jmp_patchins(fs, loop, fs->pc); +} + +/* Parse 'repeat' statement. */ +static void parse_repeat(LexState *ls, BCLine line) +{ + FuncState *fs = ls->fs; + BCPos loop = fs->lasttarget = fs->pc; + BCPos condexit; + FuncScope bl1, bl2; + fscope_begin(fs, &bl1, FSCOPE_LOOP); /* Breakable loop scope. */ + fscope_begin(fs, &bl2, 0); /* Inner scope. */ + lj_lex_next(ls); /* Skip 'repeat'. */ + bcemit_AD(fs, BC_LOOP, fs->nactvar, 0); + parse_chunk(ls); + lex_match(ls, TK_until, TK_repeat, line); + condexit = expr_cond(ls); /* Parse condition (still inside inner scope). */ + if (!(bl2.flags & FSCOPE_UPVAL)) { /* No upvalues? Just end inner scope. */ + fscope_end(fs); + } else { /* Otherwise generate: cond: UCLO+JMP out, !cond: UCLO+JMP loop. */ + parse_break(ls); /* Break from loop and close upvalues. */ + jmp_tohere(fs, condexit); + fscope_end(fs); /* End inner scope and close upvalues. */ + condexit = bcemit_jmp(fs); + } + jmp_patch(fs, condexit, loop); /* Jump backwards if !cond. */ + jmp_patchins(fs, loop, fs->pc); + fscope_end(fs); /* End loop scope. */ +} + +/* Parse numeric 'for'. */ +static void parse_for_num(LexState *ls, GCstr *varname, BCLine line) +{ + FuncState *fs = ls->fs; + BCReg base = fs->freereg; + FuncScope bl; + BCPos loop, loopend; + /* Hidden control variables. */ + var_new_fixed(ls, FORL_IDX, VARNAME_FOR_IDX); + var_new_fixed(ls, FORL_STOP, VARNAME_FOR_STOP); + var_new_fixed(ls, FORL_STEP, VARNAME_FOR_STEP); + /* Visible copy of index variable. */ + var_new(ls, FORL_EXT, varname); + lex_check(ls, '='); + expr_next(ls); + lex_check(ls, ','); + expr_next(ls); + if (lex_opt(ls, ',')) { + expr_next(ls); + } else { + bcemit_AD(fs, BC_KSHORT, fs->freereg, 1); /* Default step is 1. */ + bcreg_reserve(fs, 1); + } + var_add(ls, 3); /* Hidden control variables. */ + lex_check(ls, TK_do); + loop = bcemit_AJ(fs, BC_FORI, base, NO_JMP); + fscope_begin(fs, &bl, 0); /* Scope for visible variables. */ + var_add(ls, 1); + bcreg_reserve(fs, 1); + parse_block(ls); + fscope_end(fs); + /* Perform loop inversion. Loop control instructions are at the end. */ + loopend = bcemit_AJ(fs, BC_FORL, base, NO_JMP); + fs->bcbase[loopend].line = line; /* Fix line for control ins. */ + jmp_patchins(fs, loopend, loop+1); + jmp_patchins(fs, loop, fs->pc); +} + +/* Try to predict whether the iterator is next() and specialize the bytecode. +** Detecting next() and pairs() by name is simplistic, but quite effective. +** The interpreter backs off if the check for the closure fails at runtime. +*/ +static int predict_next(LexState *ls, FuncState *fs, BCPos pc) +{ + BCIns ins = fs->bcbase[pc].ins; + GCstr *name; + cTValue *o; + switch (bc_op(ins)) { + case BC_MOV: + name = gco2str(gcref(var_get(ls, fs, bc_d(ins)).name)); + break; + case BC_UGET: + name = gco2str(gcref(ls->vstack[fs->uvmap[bc_d(ins)]].name)); + break; + case BC_GGET: + /* There's no inverse index (yet), so lookup the strings. */ + o = lj_tab_getstr(fs->kt, lj_str_newlit(ls->L, "pairs")); + if (o && tvhaskslot(o) && tvkslot(o) == bc_d(ins)) + return 1; + o = lj_tab_getstr(fs->kt, lj_str_newlit(ls->L, "next")); + if (o && tvhaskslot(o) && tvkslot(o) == bc_d(ins)) + return 1; + return 0; + default: + return 0; + } + return (name->len == 5 && !strcmp(strdata(name), "pairs")) || + (name->len == 4 && !strcmp(strdata(name), "next")); +} + +/* Parse 'for' iterator. */ +static void parse_for_iter(LexState *ls, GCstr *indexname) +{ + FuncState *fs = ls->fs; + ExpDesc e; + BCReg nvars = 0; + BCLine line; + BCReg base = fs->freereg + 3; + BCPos loop, loopend, exprpc = fs->pc; + FuncScope bl; + int isnext; + /* Hidden control variables. */ + var_new_fixed(ls, nvars++, VARNAME_FOR_GEN); + var_new_fixed(ls, nvars++, VARNAME_FOR_STATE); + var_new_fixed(ls, nvars++, VARNAME_FOR_CTL); + /* Visible variables returned from iterator. */ + var_new(ls, nvars++, indexname); + while (lex_opt(ls, ',')) + var_new(ls, nvars++, lex_str(ls)); + lex_check(ls, TK_in); + line = ls->linenumber; + assign_adjust(ls, 3, expr_list(ls, &e), &e); + bcreg_bump(fs, 3); /* The iterator needs another 3 slots (func + 2 args). */ + isnext = (nvars <= 5 && predict_next(ls, fs, exprpc)); + var_add(ls, 3); /* Hidden control variables. */ + lex_check(ls, TK_do); + loop = bcemit_AJ(fs, isnext ? BC_ISNEXT : BC_JMP, base, NO_JMP); + fscope_begin(fs, &bl, 0); /* Scope for visible variables. */ + var_add(ls, nvars-3); + bcreg_reserve(fs, nvars-3); + parse_block(ls); + fscope_end(fs); + /* Perform loop inversion. Loop control instructions are at the end. */ + jmp_patchins(fs, loop, fs->pc); + bcemit_ABC(fs, isnext ? BC_ITERN : BC_ITERC, base, nvars-3+1, 2+1); + loopend = bcemit_AJ(fs, BC_ITERL, base, NO_JMP); + fs->bcbase[loopend-1].line = line; /* Fix line for control ins. */ + fs->bcbase[loopend].line = line; + jmp_patchins(fs, loopend, loop+1); +} + +/* Parse 'for' statement. */ +static void parse_for(LexState *ls, BCLine line) +{ + FuncState *fs = ls->fs; + GCstr *varname; + FuncScope bl; + fscope_begin(fs, &bl, FSCOPE_LOOP); + lj_lex_next(ls); /* Skip 'for'. */ + varname = lex_str(ls); /* Get first variable name. */ + if (ls->token == '=') + parse_for_num(ls, varname, line); + else if (ls->token == ',' || ls->token == TK_in) + parse_for_iter(ls, varname); + else + err_syntax(ls, LJ_ERR_XFOR); + lex_match(ls, TK_end, TK_for, line); + fscope_end(fs); /* Resolve break list. */ +} + +/* Parse condition and 'then' block. */ +static BCPos parse_then(LexState *ls) +{ + BCPos condexit; + lj_lex_next(ls); /* Skip 'if' or 'elseif'. */ + condexit = expr_cond(ls); + lex_check(ls, TK_then); + parse_block(ls); + return condexit; +} + +/* Parse 'if' statement. */ +static void parse_if(LexState *ls, BCLine line) +{ + FuncState *fs = ls->fs; + BCPos flist; + BCPos escapelist = NO_JMP; + flist = parse_then(ls); + while (ls->token == TK_elseif) { /* Parse multiple 'elseif' blocks. */ + jmp_append(fs, &escapelist, bcemit_jmp(fs)); + jmp_tohere(fs, flist); + flist = parse_then(ls); + } + if (ls->token == TK_else) { /* Parse optional 'else' block. */ + jmp_append(fs, &escapelist, bcemit_jmp(fs)); + jmp_tohere(fs, flist); + lj_lex_next(ls); /* Skip 'else'. */ + parse_block(ls); + } else { + jmp_append(fs, &escapelist, flist); + } + jmp_tohere(fs, escapelist); + lex_match(ls, TK_end, TK_if, line); +} + +/* -- Parse statements ---------------------------------------------------- */ + +/* Parse a statement. Returns 1 if it must be the last one in a chunk. */ +static int parse_stmt(LexState *ls) +{ + BCLine line = ls->linenumber; + switch (ls->token) { + case TK_if: + parse_if(ls, line); + break; + case TK_while: + parse_while(ls, line); + break; + case TK_do: + lj_lex_next(ls); + parse_block(ls); + lex_match(ls, TK_end, TK_do, line); + break; + case TK_for: + parse_for(ls, line); + break; + case TK_repeat: + parse_repeat(ls, line); + break; + case TK_function: + parse_func(ls, line); + break; + case TK_local: + lj_lex_next(ls); + parse_local(ls); + break; + case TK_return: + parse_return(ls); + return 1; /* Must be last. */ + case TK_break: + lj_lex_next(ls); + parse_break(ls); + return !LJ_52; /* Must be last in Lua 5.1. */ +#if LJ_52 + case ';': + lj_lex_next(ls); + break; +#endif + case TK_label: + parse_label(ls); + break; + case TK_goto: + if (LJ_52 || lj_lex_lookahead(ls) == TK_name) { + lj_lex_next(ls); + parse_goto(ls); + break; + } /* else: fallthrough */ + default: + parse_call_assign(ls); + break; + } + return 0; +} + +/* A chunk is a list of statements optionally separated by semicolons. */ +static void parse_chunk(LexState *ls) +{ + int islast = 0; + synlevel_begin(ls); + while (!islast && !endofblock(ls->token)) { + islast = parse_stmt(ls); + lex_opt(ls, ';'); + lua_assert(ls->fs->framesize >= ls->fs->freereg && + ls->fs->freereg >= ls->fs->nactvar); + ls->fs->freereg = ls->fs->nactvar; /* Free registers after each stmt. */ + } + synlevel_end(ls); +} + +/* Entry point of bytecode parser. */ +GCproto *lj_parse(LexState *ls) +{ + FuncState fs; + FuncScope bl; + GCproto *pt; + lua_State *L = ls->L; +#ifdef LUAJIT_DISABLE_DEBUGINFO + ls->chunkname = lj_str_newlit(L, "="); +#else + ls->chunkname = lj_str_newz(L, ls->chunkarg); +#endif + setstrV(L, L->top, ls->chunkname); /* Anchor chunkname string. */ + incr_top(L); + ls->level = 0; + fs_init(ls, &fs); + fs.linedefined = 0; + fs.numparams = 0; + fs.bcbase = NULL; + fs.bclim = 0; + fs.flags |= PROTO_VARARG; /* Main chunk is always a vararg func. */ + fscope_begin(&fs, &bl, 0); + bcemit_AD(&fs, BC_FUNCV, 0, 0); /* Placeholder. */ + lj_lex_next(ls); /* Read-ahead first token. */ + parse_chunk(ls); + if (ls->token != TK_eof) + err_token(ls, TK_eof); + pt = fs_finish(ls, ls->linenumber); + L->top--; /* Drop chunkname. */ + lua_assert(fs.prev == NULL); + lua_assert(ls->fs == NULL); + lua_assert(pt->sizeuv == 0); + return pt; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_parse.h b/src/3rd party/luajit-2.0/src/lj_parse.h new file mode 100644 index 00000000000..dc4fd405d18 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_parse.h @@ -0,0 +1,18 @@ +/* +** Lua parser (source code -> bytecode). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_PARSE_H +#define _LJ_PARSE_H + +#include "lj_obj.h" +#include "lj_lex.h" + +LJ_FUNC GCproto *lj_parse(LexState *ls); +LJ_FUNC GCstr *lj_parse_keepstr(LexState *ls, const char *str, size_t l); +#if LJ_HASFFI +LJ_FUNC void lj_parse_keepcdata(LexState *ls, TValue *tv, GCcdata *cd); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_record.c b/src/3rd party/luajit-2.0/src/lj_record.c new file mode 100644 index 00000000000..19f17639303 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_record.c @@ -0,0 +1,2250 @@ +/* +** Trace recorder (bytecode -> SSA IR). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_record_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_meta.h" +#include "lj_frame.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#include "lj_bc.h" +#include "lj_ff.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_ircall.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_record.h" +#include "lj_ffrecord.h" +#include "lj_snap.h" +#include "lj_dispatch.h" +#include "lj_vm.h" + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* Emit raw IR without passing through optimizations. */ +#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) + +/* -- Sanity checks ------------------------------------------------------- */ + +#ifdef LUA_USE_ASSERT +/* Sanity check the whole IR -- sloooow. */ +static void rec_check_ir(jit_State *J) +{ + IRRef i, nins = J->cur.nins, nk = J->cur.nk; + lua_assert(nk <= REF_BIAS && nins >= REF_BIAS && nins < 65536); + for (i = nins-1; i >= nk; i--) { + IRIns *ir = IR(i); + uint32_t mode = lj_ir_mode[ir->o]; + IRRef op1 = ir->op1; + IRRef op2 = ir->op2; + switch (irm_op1(mode)) { + case IRMnone: lua_assert(op1 == 0); break; + case IRMref: lua_assert(op1 >= nk); + lua_assert(i >= REF_BIAS ? op1 < i : op1 > i); break; + case IRMlit: break; + case IRMcst: lua_assert(i < REF_BIAS); continue; + } + switch (irm_op2(mode)) { + case IRMnone: lua_assert(op2 == 0); break; + case IRMref: lua_assert(op2 >= nk); + lua_assert(i >= REF_BIAS ? op2 < i : op2 > i); break; + case IRMlit: break; + case IRMcst: lua_assert(0); break; + } + if (ir->prev) { + lua_assert(ir->prev >= nk); + lua_assert(i >= REF_BIAS ? ir->prev < i : ir->prev > i); + lua_assert(ir->o == IR_NOP || IR(ir->prev)->o == ir->o); + } + } +} + +/* Compare stack slots and frames of the recorder and the VM. */ +static void rec_check_slots(jit_State *J) +{ + BCReg s, nslots = J->baseslot + J->maxslot; + int32_t depth = 0; + cTValue *base = J->L->base - J->baseslot; + lua_assert(J->baseslot >= 1 && J->baseslot < LJ_MAX_JSLOTS); + lua_assert(J->baseslot == 1 || (J->slot[J->baseslot-1] & TREF_FRAME)); + lua_assert(nslots < LJ_MAX_JSLOTS); + for (s = 0; s < nslots; s++) { + TRef tr = J->slot[s]; + if (tr) { + cTValue *tv = &base[s]; + IRRef ref = tref_ref(tr); + IRIns *ir; + lua_assert(ref >= J->cur.nk && ref < J->cur.nins); + ir = IR(ref); + lua_assert(irt_t(ir->t) == tref_t(tr)); + if (s == 0) { + lua_assert(tref_isfunc(tr)); + } else if ((tr & TREF_FRAME)) { + GCfunc *fn = gco2func(frame_gc(tv)); + BCReg delta = (BCReg)(tv - frame_prev(tv)); + lua_assert(tref_isfunc(tr)); + if (tref_isk(tr)) lua_assert(fn == ir_kfunc(ir)); + lua_assert(s > delta ? (J->slot[s-delta] & TREF_FRAME) : (s == delta)); + depth++; + } else if ((tr & TREF_CONT)) { + lua_assert(ir_kptr(ir) == gcrefp(tv->gcr, void)); + lua_assert((J->slot[s+1] & TREF_FRAME)); + depth++; + } else { + if (tvisnumber(tv)) + lua_assert(tref_isnumber(tr)); /* Could be IRT_INT etc., too. */ + else + lua_assert(itype2irt(tv) == tref_type(tr)); + if (tref_isk(tr)) { /* Compare constants. */ + TValue tvk; + lj_ir_kvalue(J->L, &tvk, ir); + if (!(tvisnum(&tvk) && tvisnan(&tvk))) + lua_assert(lj_obj_equal(tv, &tvk)); + else + lua_assert(tvisnum(tv) && tvisnan(tv)); + } + } + } + } + lua_assert(J->framedepth == depth); +} +#endif + +/* -- Type handling and specialization ------------------------------------ */ + +/* Note: these functions return tagged references (TRef). */ + +/* Specialize a slot to a specific type. Note: slot can be negative! */ +static TRef sloadt(jit_State *J, int32_t slot, IRType t, int mode) +{ + /* Caller may set IRT_GUARD in t. */ + TRef ref = emitir_raw(IRT(IR_SLOAD, t), (int32_t)J->baseslot+slot, mode); + J->base[slot] = ref; + return ref; +} + +/* Specialize a slot to the runtime type. Note: slot can be negative! */ +static TRef sload(jit_State *J, int32_t slot) +{ + IRType t = itype2irt(&J->L->base[slot]); + TRef ref = emitir_raw(IRTG(IR_SLOAD, t), (int32_t)J->baseslot+slot, + IRSLOAD_TYPECHECK); + if (irtype_ispri(t)) ref = TREF_PRI(t); /* Canonicalize primitive refs. */ + J->base[slot] = ref; + return ref; +} + +/* Get TRef from slot. Load slot and specialize if not done already. */ +#define getslot(J, s) (J->base[(s)] ? J->base[(s)] : sload(J, (int32_t)(s))) + +/* Get TRef for current function. */ +static TRef getcurrf(jit_State *J) +{ + if (J->base[-1]) + return J->base[-1]; + lua_assert(J->baseslot == 1); + return sloadt(J, -1, IRT_FUNC, IRSLOAD_READONLY); +} + +/* Compare for raw object equality. +** Returns 0 if the objects are the same. +** Returns 1 if they are different, but the same type. +** Returns 2 for two different types. +** Comparisons between primitives always return 1 -- no caller cares about it. +*/ +int lj_record_objcmp(jit_State *J, TRef a, TRef b, cTValue *av, cTValue *bv) +{ + int diff = !lj_obj_equal(av, bv); + if (!tref_isk2(a, b)) { /* Shortcut, also handles primitives. */ + IRType ta = tref_isinteger(a) ? IRT_INT : tref_type(a); + IRType tb = tref_isinteger(b) ? IRT_INT : tref_type(b); + if (ta != tb) { + /* Widen mixed number/int comparisons to number/number comparison. */ + if (ta == IRT_INT && tb == IRT_NUM) { + a = emitir(IRTN(IR_CONV), a, IRCONV_NUM_INT); + ta = IRT_NUM; + } else if (ta == IRT_NUM && tb == IRT_INT) { + b = emitir(IRTN(IR_CONV), b, IRCONV_NUM_INT); + } else { + return 2; /* Two different types are never equal. */ + } + } + emitir(IRTG(diff ? IR_NE : IR_EQ, ta), a, b); + } + return diff; +} + +/* Constify a value. Returns 0 for non-representable object types. */ +TRef lj_record_constify(jit_State *J, cTValue *o) +{ + if (tvisgcv(o)) + return lj_ir_kgc(J, gcV(o), itype2irt(o)); + else if (tvisint(o)) + return lj_ir_kint(J, intV(o)); + else if (tvisnum(o)) + return lj_ir_knumint(J, numV(o)); + else if (tvisbool(o)) + return TREF_PRI(itype2irt(o)); + else + return 0; /* Can't represent lightuserdata (pointless). */ +} + +/* -- Record loop ops ----------------------------------------------------- */ + +/* Loop event. */ +typedef enum { + LOOPEV_LEAVE, /* Loop is left or not entered. */ + LOOPEV_ENTERLO, /* Loop is entered with a low iteration count left. */ + LOOPEV_ENTER /* Loop is entered. */ +} LoopEvent; + +/* Canonicalize slots: convert integers to numbers. */ +static void canonicalize_slots(jit_State *J) +{ + BCReg s; + if (LJ_DUALNUM) return; + for (s = J->baseslot+J->maxslot-1; s >= 1; s--) { + TRef tr = J->slot[s]; + if (tref_isinteger(tr)) { + IRIns *ir = IR(tref_ref(tr)); + if (!(ir->o == IR_SLOAD && (ir->op2 & IRSLOAD_READONLY))) + J->slot[s] = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); + } + } +} + +/* Stop recording. */ +static void rec_stop(jit_State *J, TraceLink linktype, TraceNo lnk) +{ + lj_trace_end(J); + J->cur.linktype = (uint8_t)linktype; + J->cur.link = (uint16_t)lnk; + /* Looping back at the same stack level? */ + if (lnk == J->cur.traceno && J->framedepth + J->retdepth == 0) { + if ((J->flags & JIT_F_OPT_LOOP)) /* Shall we try to create a loop? */ + goto nocanon; /* Do not canonicalize or we lose the narrowing. */ + if (J->cur.root) /* Otherwise ensure we always link to the root trace. */ + J->cur.link = J->cur.root; + } + canonicalize_slots(J); +nocanon: + /* Note: all loop ops must set J->pc to the following instruction! */ + lj_snap_add(J); /* Add loop snapshot. */ + J->needsnap = 0; + J->mergesnap = 1; /* In case recording continues. */ +} + +/* Search bytecode backwards for a int/num constant slot initializer. */ +static TRef find_kinit(jit_State *J, const BCIns *endpc, BCReg slot, IRType t) +{ + /* This algorithm is rather simplistic and assumes quite a bit about + ** how the bytecode is generated. It works fine for FORI initializers, + ** but it won't necessarily work in other cases (e.g. iterator arguments). + ** It doesn't do anything fancy, either (like backpropagating MOVs). + */ + const BCIns *pc, *startpc = proto_bc(J->pt); + for (pc = endpc-1; pc > startpc; pc--) { + BCIns ins = *pc; + BCOp op = bc_op(ins); + /* First try to find the last instruction that stores to this slot. */ + if (bcmode_a(op) == BCMbase && bc_a(ins) <= slot) { + return 0; /* Multiple results, e.g. from a CALL or KNIL. */ + } else if (bcmode_a(op) == BCMdst && bc_a(ins) == slot) { + if (op == BC_KSHORT || op == BC_KNUM) { /* Found const. initializer. */ + /* Now try to verify there's no forward jump across it. */ + const BCIns *kpc = pc; + for (; pc > startpc; pc--) + if (bc_op(*pc) == BC_JMP) { + const BCIns *target = pc+bc_j(*pc)+1; + if (target > kpc && target <= endpc) + return 0; /* Conditional assignment. */ + } + if (op == BC_KSHORT) { + int32_t k = (int32_t)(int16_t)bc_d(ins); + return t == IRT_INT ? lj_ir_kint(J, k) : lj_ir_knum(J, (lua_Number)k); + } else { + cTValue *tv = proto_knumtv(J->pt, bc_d(ins)); + if (t == IRT_INT) { + int32_t k = numberVint(tv); + if (tvisint(tv) || numV(tv) == (lua_Number)k) /* -0 is ok here. */ + return lj_ir_kint(J, k); + return 0; /* Type mismatch. */ + } else { + return lj_ir_knum(J, numberVnum(tv)); + } + } + } + return 0; /* Non-constant initializer. */ + } + } + return 0; /* No assignment to this slot found? */ +} + +/* Load and optionally convert a FORI argument from a slot. */ +static TRef fori_load(jit_State *J, BCReg slot, IRType t, int mode) +{ + int conv = (tvisint(&J->L->base[slot]) != (t==IRT_INT)) ? IRSLOAD_CONVERT : 0; + return sloadt(J, (int32_t)slot, + t + (((mode & IRSLOAD_TYPECHECK) || + (conv && t == IRT_INT && !(mode >> 16))) ? + IRT_GUARD : 0), + mode + conv); +} + +/* Peek before FORI to find a const initializer. Otherwise load from slot. */ +static TRef fori_arg(jit_State *J, const BCIns *fori, BCReg slot, + IRType t, int mode) +{ + TRef tr = J->base[slot]; + if (!tr) { + tr = find_kinit(J, fori, slot, t); + if (!tr) + tr = fori_load(J, slot, t, mode); + } + return tr; +} + +/* Return the direction of the FOR loop iterator. +** It's important to exactly reproduce the semantics of the interpreter. +*/ +static int rec_for_direction(cTValue *o) +{ + return (tvisint(o) ? intV(o) : (int32_t)o->u32.hi) >= 0; +} + +/* Simulate the runtime behavior of the FOR loop iterator. */ +static LoopEvent rec_for_iter(IROp *op, cTValue *o, int isforl) +{ + lua_Number stopv = numberVnum(&o[FORL_STOP]); + lua_Number idxv = numberVnum(&o[FORL_IDX]); + lua_Number stepv = numberVnum(&o[FORL_STEP]); + if (isforl) + idxv += stepv; + if (rec_for_direction(&o[FORL_STEP])) { + if (idxv <= stopv) { + *op = IR_LE; + return idxv + 2*stepv > stopv ? LOOPEV_ENTERLO : LOOPEV_ENTER; + } + *op = IR_GT; return LOOPEV_LEAVE; + } else { + if (stopv <= idxv) { + *op = IR_GE; + return idxv + 2*stepv < stopv ? LOOPEV_ENTERLO : LOOPEV_ENTER; + } + *op = IR_LT; return LOOPEV_LEAVE; + } +} + +/* Record checks for FOR loop overflow and step direction. */ +static void rec_for_check(jit_State *J, IRType t, int dir, + TRef stop, TRef step, int init) +{ + if (!tref_isk(step)) { + /* Non-constant step: need a guard for the direction. */ + TRef zero = (t == IRT_INT) ? lj_ir_kint(J, 0) : lj_ir_knum_zero(J); + emitir(IRTG(dir ? IR_GE : IR_LT, t), step, zero); + /* Add hoistable overflow checks for a narrowed FORL index. */ + if (init && t == IRT_INT) { + if (tref_isk(stop)) { + /* Constant stop: optimize check away or to a range check for step. */ + int32_t k = IR(tref_ref(stop))->i; + if (dir) { + if (k > 0) + emitir(IRTGI(IR_LE), step, lj_ir_kint(J, (int32_t)0x7fffffff-k)); + } else { + if (k < 0) + emitir(IRTGI(IR_GE), step, lj_ir_kint(J, (int32_t)0x80000000-k)); + } + } else { + /* Stop+step variable: need full overflow check. */ + TRef tr = emitir(IRTGI(IR_ADDOV), step, stop); + emitir(IRTI(IR_USE), tr, 0); /* ADDOV is weak. Avoid dead result. */ + } + } + } else if (init && t == IRT_INT && !tref_isk(stop)) { + /* Constant step: optimize overflow check to a range check for stop. */ + int32_t k = IR(tref_ref(step))->i; + k = (int32_t)(dir ? 0x7fffffff : 0x80000000) - k; + emitir(IRTGI(dir ? IR_LE : IR_GE), stop, lj_ir_kint(J, k)); + } +} + +/* Record a FORL instruction. */ +static void rec_for_loop(jit_State *J, const BCIns *fori, ScEvEntry *scev, + int init) +{ + BCReg ra = bc_a(*fori); + cTValue *tv = &J->L->base[ra]; + TRef idx = J->base[ra+FORL_IDX]; + IRType t = idx ? tref_type(idx) : + (init || LJ_DUALNUM) ? lj_opt_narrow_forl(J, tv) : IRT_NUM; + int mode = IRSLOAD_INHERIT + + ((!LJ_DUALNUM || tvisint(tv) == (t == IRT_INT)) ? IRSLOAD_READONLY : 0); + TRef stop = fori_arg(J, fori, ra+FORL_STOP, t, mode); + TRef step = fori_arg(J, fori, ra+FORL_STEP, t, mode); + int tc, dir = rec_for_direction(&tv[FORL_STEP]); + lua_assert(bc_op(*fori) == BC_FORI || bc_op(*fori) == BC_JFORI); + scev->t.irt = t; + scev->dir = dir; + scev->stop = tref_ref(stop); + scev->step = tref_ref(step); + rec_for_check(J, t, dir, stop, step, init); + scev->start = tref_ref(find_kinit(J, fori, ra+FORL_IDX, IRT_INT)); + tc = (LJ_DUALNUM && + !(scev->start && irref_isk(scev->stop) && irref_isk(scev->step) && + tvisint(&tv[FORL_IDX]) == (t == IRT_INT))) ? + IRSLOAD_TYPECHECK : 0; + if (tc) { + J->base[ra+FORL_STOP] = stop; + J->base[ra+FORL_STEP] = step; + } + if (!idx) + idx = fori_load(J, ra+FORL_IDX, t, + IRSLOAD_INHERIT + tc + (J->scev.start << 16)); + if (!init) + J->base[ra+FORL_IDX] = idx = emitir(IRT(IR_ADD, t), idx, step); + J->base[ra+FORL_EXT] = idx; + scev->idx = tref_ref(idx); + setmref(scev->pc, fori); + J->maxslot = ra+FORL_EXT+1; +} + +/* Record FORL/JFORL or FORI/JFORI. */ +static LoopEvent rec_for(jit_State *J, const BCIns *fori, int isforl) +{ + BCReg ra = bc_a(*fori); + TValue *tv = &J->L->base[ra]; + TRef *tr = &J->base[ra]; + IROp op; + LoopEvent ev; + TRef stop; + IRType t; + if (isforl) { /* Handle FORL/JFORL opcodes. */ + TRef idx = tr[FORL_IDX]; + if (mref(J->scev.pc, const BCIns) == fori && tref_ref(idx) == J->scev.idx) { + t = J->scev.t.irt; + stop = J->scev.stop; + idx = emitir(IRT(IR_ADD, t), idx, J->scev.step); + tr[FORL_EXT] = tr[FORL_IDX] = idx; + } else { + ScEvEntry scev; + rec_for_loop(J, fori, &scev, 0); + t = scev.t.irt; + stop = scev.stop; + } + } else { /* Handle FORI/JFORI opcodes. */ + BCReg i; + lj_meta_for(J->L, tv); + t = (LJ_DUALNUM || tref_isint(tr[FORL_IDX])) ? lj_opt_narrow_forl(J, tv) : + IRT_NUM; + for (i = FORL_IDX; i <= FORL_STEP; i++) { + if (!tr[i]) sload(J, ra+i); + lua_assert(tref_isnumber_str(tr[i])); + if (tref_isstr(tr[i])) + tr[i] = emitir(IRTG(IR_STRTO, IRT_NUM), tr[i], 0); + if (t == IRT_INT) { + if (!tref_isinteger(tr[i])) + tr[i] = emitir(IRTGI(IR_CONV), tr[i], IRCONV_INT_NUM|IRCONV_CHECK); + } else { + if (!tref_isnum(tr[i])) + tr[i] = emitir(IRTN(IR_CONV), tr[i], IRCONV_NUM_INT); + } + } + tr[FORL_EXT] = tr[FORL_IDX]; + stop = tr[FORL_STOP]; + rec_for_check(J, t, rec_for_direction(&tv[FORL_STEP]), + stop, tr[FORL_STEP], 1); + } + + ev = rec_for_iter(&op, tv, isforl); + if (ev == LOOPEV_LEAVE) { + J->maxslot = ra+FORL_EXT+1; + J->pc = fori+1; + } else { + J->maxslot = ra; + J->pc = fori+bc_j(*fori)+1; + } + lj_snap_add(J); + + emitir(IRTG(op, t), tr[FORL_IDX], stop); + + if (ev == LOOPEV_LEAVE) { + J->maxslot = ra; + J->pc = fori+bc_j(*fori)+1; + } else { + J->maxslot = ra+FORL_EXT+1; + J->pc = fori+1; + } + J->needsnap = 1; + return ev; +} + +/* Record ITERL/JITERL. */ +static LoopEvent rec_iterl(jit_State *J, const BCIns iterins) +{ + BCReg ra = bc_a(iterins); + lua_assert(J->base[ra] != 0); + if (!tref_isnil(J->base[ra])) { /* Looping back? */ + J->base[ra-1] = J->base[ra]; /* Copy result of ITERC to control var. */ + J->maxslot = ra-1+bc_b(J->pc[-1]); + J->pc += bc_j(iterins)+1; + return LOOPEV_ENTER; + } else { + J->maxslot = ra-3; + J->pc++; + return LOOPEV_LEAVE; + } +} + +/* Record LOOP/JLOOP. Now, that was easy. */ +static LoopEvent rec_loop(jit_State *J, BCReg ra) +{ + if (ra < J->maxslot) J->maxslot = ra; + J->pc++; + return LOOPEV_ENTER; +} + +/* Check if a loop repeatedly failed to trace because it didn't loop back. */ +static int innerloopleft(jit_State *J, const BCIns *pc) +{ + ptrdiff_t i; + for (i = 0; i < PENALTY_SLOTS; i++) + if (mref(J->penalty[i].pc, const BCIns) == pc) { + if ((J->penalty[i].reason == LJ_TRERR_LLEAVE || + J->penalty[i].reason == LJ_TRERR_LINNER) && + J->penalty[i].val >= 2*PENALTY_MIN) + return 1; + break; + } + return 0; +} + +/* Handle the case when an interpreted loop op is hit. */ +static void rec_loop_interp(jit_State *J, const BCIns *pc, LoopEvent ev) +{ + if (J->parent == 0) { + if (pc == J->startpc && J->framedepth + J->retdepth == 0) { + /* Same loop? */ + if (ev == LOOPEV_LEAVE) /* Must loop back to form a root trace. */ + lj_trace_err(J, LJ_TRERR_LLEAVE); + rec_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Looping root trace. */ + } else if (ev != LOOPEV_LEAVE) { /* Entering inner loop? */ + /* It's usually better to abort here and wait until the inner loop + ** is traced. But if the inner loop repeatedly didn't loop back, + ** this indicates a low trip count. In this case try unrolling + ** an inner loop even in a root trace. But it's better to be a bit + ** more conservative here and only do it for very short loops. + */ + if (bc_j(*pc) != -1 && !innerloopleft(J, pc)) + lj_trace_err(J, LJ_TRERR_LINNER); /* Root trace hit an inner loop. */ + if ((ev != LOOPEV_ENTERLO && + J->loopref && J->cur.nins - J->loopref > 24) || --J->loopunroll < 0) + lj_trace_err(J, LJ_TRERR_LUNROLL); /* Limit loop unrolling. */ + J->loopref = J->cur.nins; + } + } else if (ev != LOOPEV_LEAVE) { /* Side trace enters an inner loop. */ + J->loopref = J->cur.nins; + if (--J->loopunroll < 0) + lj_trace_err(J, LJ_TRERR_LUNROLL); /* Limit loop unrolling. */ + } /* Side trace continues across a loop that's left or not entered. */ +} + +/* Handle the case when an already compiled loop op is hit. */ +static void rec_loop_jit(jit_State *J, TraceNo lnk, LoopEvent ev) +{ + if (J->parent == 0) { /* Root trace hit an inner loop. */ + /* Better let the inner loop spawn a side trace back here. */ + lj_trace_err(J, LJ_TRERR_LINNER); + } else if (ev != LOOPEV_LEAVE) { /* Side trace enters a compiled loop. */ + J->instunroll = 0; /* Cannot continue across a compiled loop op. */ + if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) + rec_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Form an extra loop. */ + else + rec_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the loop. */ + } /* Side trace continues across a loop that's left or not entered. */ +} + +/* -- Record calls and returns -------------------------------------------- */ + +/* Specialize to the runtime value of the called function or its prototype. */ +static TRef rec_call_specialize(jit_State *J, GCfunc *fn, TRef tr) +{ + TRef kfunc; + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + /* Too many closures created? Probably not a monomorphic function. */ + if (pt->flags >= PROTO_CLC_POLY) { /* Specialize to prototype instead. */ + TRef trpt = emitir(IRT(IR_FLOAD, IRT_P32), tr, IRFL_FUNC_PC); + emitir(IRTG(IR_EQ, IRT_P32), trpt, lj_ir_kptr(J, proto_bc(pt))); + (void)lj_ir_kgc(J, obj2gco(pt), IRT_PROTO); /* Prevent GC of proto. */ + return tr; + } + } + /* Otherwise specialize to the function (closure) value itself. */ + kfunc = lj_ir_kfunc(J, fn); + emitir(IRTG(IR_EQ, IRT_FUNC), tr, kfunc); + return kfunc; +} + +/* Record call setup. */ +static void rec_call_setup(jit_State *J, BCReg func, ptrdiff_t nargs) +{ + RecordIndex ix; + TValue *functv = &J->L->base[func]; + TRef *fbase = &J->base[func]; + ptrdiff_t i; + for (i = 0; i <= nargs; i++) + (void)getslot(J, func+i); /* Ensure func and all args have a reference. */ + if (!tref_isfunc(fbase[0])) { /* Resolve __call metamethod. */ + ix.tab = fbase[0]; + copyTV(J->L, &ix.tabv, functv); + if (!lj_record_mm_lookup(J, &ix, MM_call) || !tref_isfunc(ix.mobj)) + lj_trace_err(J, LJ_TRERR_NOMM); + for (i = ++nargs; i > 0; i--) /* Shift arguments up. */ + fbase[i] = fbase[i-1]; + fbase[0] = ix.mobj; /* Replace function. */ + functv = &ix.mobjv; + } + fbase[0] = TREF_FRAME | rec_call_specialize(J, funcV(functv), fbase[0]); + J->maxslot = (BCReg)nargs; +} + +/* Record call. */ +void lj_record_call(jit_State *J, BCReg func, ptrdiff_t nargs) +{ + rec_call_setup(J, func, nargs); + /* Bump frame. */ + J->framedepth++; + J->base += func+1; + J->baseslot += func+1; +} + +/* Record tail call. */ +void lj_record_tailcall(jit_State *J, BCReg func, ptrdiff_t nargs) +{ + rec_call_setup(J, func, nargs); + if (frame_isvarg(J->L->base - 1)) { + BCReg cbase = (BCReg)frame_delta(J->L->base - 1); + if (--J->framedepth < 0) + lj_trace_err(J, LJ_TRERR_NYIRETL); + J->baseslot -= (BCReg)cbase; + J->base -= cbase; + func += cbase; + } + /* Move func + args down. */ + memmove(&J->base[-1], &J->base[func], sizeof(TRef)*(J->maxslot+1)); + /* Note: the new TREF_FRAME is now at J->base[-1] (even for slot #0). */ + /* Tailcalls can form a loop, so count towards the loop unroll limit. */ + if (++J->tailcalled > J->loopunroll) + lj_trace_err(J, LJ_TRERR_LUNROLL); +} + +/* Check unroll limits for down-recursion. */ +static int check_downrec_unroll(jit_State *J, GCproto *pt) +{ + IRRef ptref; + for (ptref = J->chain[IR_KGC]; ptref; ptref = IR(ptref)->prev) + if (ir_kgc(IR(ptref)) == obj2gco(pt)) { + int count = 0; + IRRef ref; + for (ref = J->chain[IR_RETF]; ref; ref = IR(ref)->prev) + if (IR(ref)->op1 == ptref) + count++; + if (count) { + if (J->pc == J->startpc) { + if (count + J->tailcalled > J->param[JIT_P_recunroll]) + return 1; + } else { + lj_trace_err(J, LJ_TRERR_DOWNREC); + } + } + } + return 0; +} + +/* Record return. */ +void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) +{ + TValue *frame = J->L->base - 1; + ptrdiff_t i; + for (i = 0; i < gotresults; i++) + (void)getslot(J, rbase+i); /* Ensure all results have a reference. */ + while (frame_ispcall(frame)) { /* Immediately resolve pcall() returns. */ + BCReg cbase = (BCReg)frame_delta(frame); + if (--J->framedepth < 0) + lj_trace_err(J, LJ_TRERR_NYIRETL); + lua_assert(J->baseslot > 1); + gotresults++; + rbase += cbase; + J->baseslot -= (BCReg)cbase; + J->base -= cbase; + J->base[--rbase] = TREF_TRUE; /* Prepend true to results. */ + frame = frame_prevd(frame); + } + /* Return to lower frame via interpreter for unhandled cases. */ + if (J->framedepth == 0 && J->pt && bc_isret(bc_op(*J->pc)) && + (!frame_islua(frame) || + (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))))) { + /* NYI: specialize to frame type and return directly, not via RET*. */ + for (i = 0; i < (ptrdiff_t)rbase; i++) + J->base[i] = 0; /* Purge dead slots. */ + J->maxslot = rbase + (BCReg)gotresults; + rec_stop(J, LJ_TRLINK_RETURN, 0); /* Return to interpreter. */ + return; + } + if (frame_isvarg(frame)) { + BCReg cbase = (BCReg)frame_delta(frame); + if (--J->framedepth < 0) /* NYI: return of vararg func to lower frame. */ + lj_trace_err(J, LJ_TRERR_NYIRETL); + lua_assert(J->baseslot > 1); + rbase += cbase; + J->baseslot -= (BCReg)cbase; + J->base -= cbase; + frame = frame_prevd(frame); + } + if (frame_islua(frame)) { /* Return to Lua frame. */ + BCIns callins = *(frame_pc(frame)-1); + ptrdiff_t nresults = bc_b(callins) ? (ptrdiff_t)bc_b(callins)-1 :gotresults; + BCReg cbase = bc_a(callins); + GCproto *pt = funcproto(frame_func(frame - (cbase+1))); + if ((pt->flags & PROTO_NOJIT)) + lj_trace_err(J, LJ_TRERR_CJITOFF); + if (J->framedepth == 0 && J->pt && frame == J->L->base - 1) { + if (check_downrec_unroll(J, pt)) { + J->maxslot = (BCReg)(rbase + gotresults); + lj_snap_purge(J); + rec_stop(J, LJ_TRLINK_DOWNREC, J->cur.traceno); /* Down-recursion. */ + return; + } + lj_snap_add(J); + } + for (i = 0; i < nresults; i++) /* Adjust results. */ + J->base[i-1] = i < gotresults ? J->base[rbase+i] : TREF_NIL; + J->maxslot = cbase+(BCReg)nresults; + if (J->framedepth > 0) { /* Return to a frame that is part of the trace. */ + J->framedepth--; + lua_assert(J->baseslot > cbase+1); + J->baseslot -= cbase+1; + J->base -= cbase+1; + } else if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) { + /* Return to lower frame would leave the loop in a root trace. */ + lj_trace_err(J, LJ_TRERR_LLEAVE); + } else { /* Return to lower frame. Guard for the target we return to. */ + TRef trpt = lj_ir_kgc(J, obj2gco(pt), IRT_PROTO); + TRef trpc = lj_ir_kptr(J, (void *)frame_pc(frame)); + emitir(IRTG(IR_RETF, IRT_P32), trpt, trpc); + J->retdepth++; + J->needsnap = 1; + lua_assert(J->baseslot == 1); + /* Shift result slots up and clear the slots of the new frame below. */ + memmove(J->base + cbase, J->base-1, sizeof(TRef)*nresults); + memset(J->base-1, 0, sizeof(TRef)*(cbase+1)); + } + } else if (frame_iscont(frame)) { /* Return to continuation frame. */ + ASMFunction cont = frame_contf(frame); + BCReg cbase = (BCReg)frame_delta(frame); + if ((J->framedepth -= 2) < 0) + lj_trace_err(J, LJ_TRERR_NYIRETL); + J->baseslot -= (BCReg)cbase; + J->base -= cbase; + J->maxslot = cbase-2; + if (cont == lj_cont_ra) { + /* Copy result to destination slot. */ + BCReg dst = bc_a(*(frame_contpc(frame)-1)); + J->base[dst] = gotresults ? J->base[cbase+rbase] : TREF_NIL; + if (dst >= J->maxslot) J->maxslot = dst+1; + } else if (cont == lj_cont_nop) { + /* Nothing to do here. */ + } else if (cont == lj_cont_cat) { + lua_assert(0); + } else { + /* Result type already specialized. */ + lua_assert(cont == lj_cont_condf || cont == lj_cont_condt); + } + } else { + lj_trace_err(J, LJ_TRERR_NYIRETL); /* NYI: handle return to C frame. */ + } + lua_assert(J->baseslot >= 1); +} + +/* -- Metamethod handling ------------------------------------------------- */ + +/* Prepare to record call to metamethod. */ +static BCReg rec_mm_prep(jit_State *J, ASMFunction cont) +{ + BCReg s, top = curr_proto(J->L)->framesize; + TRef trcont; + setcont(&J->L->base[top], cont); +#if LJ_64 + trcont = lj_ir_kptr(J, (void *)((int64_t)cont - (int64_t)lj_vm_asm_begin)); +#else + trcont = lj_ir_kptr(J, (void *)cont); +#endif + J->base[top] = trcont | TREF_CONT; + J->framedepth++; + for (s = J->maxslot; s < top; s++) + J->base[s] = 0; /* Clear frame gap to avoid resurrecting previous refs. */ + return top+1; +} + +/* Record metamethod lookup. */ +int lj_record_mm_lookup(jit_State *J, RecordIndex *ix, MMS mm) +{ + RecordIndex mix; + GCtab *mt; + if (tref_istab(ix->tab)) { + mt = tabref(tabV(&ix->tabv)->metatable); + mix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_TAB_META); + } else if (tref_isudata(ix->tab)) { + int udtype = udataV(&ix->tabv)->udtype; + mt = tabref(udataV(&ix->tabv)->metatable); + /* The metatables of special userdata objects are treated as immutable. */ + if (udtype != UDTYPE_USERDATA) { + cTValue *mo; + if (LJ_HASFFI && udtype == UDTYPE_FFI_CLIB) { + /* Specialize to the C library namespace object. */ + emitir(IRTG(IR_EQ, IRT_P32), ix->tab, lj_ir_kptr(J, udataV(&ix->tabv))); + } else { + /* Specialize to the type of userdata. */ + TRef tr = emitir(IRT(IR_FLOAD, IRT_U8), ix->tab, IRFL_UDATA_UDTYPE); + emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, udtype)); + } + immutable_mt: + mo = lj_tab_getstr(mt, mmname_str(J2G(J), mm)); + if (!mo || tvisnil(mo)) + return 0; /* No metamethod. */ + /* Treat metamethod or index table as immutable, too. */ + if (!(tvisfunc(mo) || tvistab(mo))) + lj_trace_err(J, LJ_TRERR_BADTYPE); + copyTV(J->L, &ix->mobjv, mo); + ix->mobj = lj_ir_kgc(J, gcV(mo), tvisfunc(mo) ? IRT_FUNC : IRT_TAB); + ix->mtv = mt; + ix->mt = TREF_NIL; /* Dummy value for comparison semantics. */ + return 1; /* Got metamethod or index table. */ + } + mix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_UDATA_META); + } else { + /* Specialize to base metatable. Must flush mcode in lua_setmetatable(). */ + mt = tabref(basemt_obj(J2G(J), &ix->tabv)); + if (mt == NULL) { + ix->mt = TREF_NIL; + return 0; /* No metamethod. */ + } + /* The cdata metatable is treated as immutable. */ + if (LJ_HASFFI && tref_iscdata(ix->tab)) goto immutable_mt; + ix->mt = mix.tab = lj_ir_ktab(J, mt); + goto nocheck; + } + ix->mt = mt ? mix.tab : TREF_NIL; + emitir(IRTG(mt ? IR_NE : IR_EQ, IRT_TAB), mix.tab, lj_ir_knull(J, IRT_TAB)); +nocheck: + if (mt) { + GCstr *mmstr = mmname_str(J2G(J), mm); + cTValue *mo = lj_tab_getstr(mt, mmstr); + if (mo && !tvisnil(mo)) + copyTV(J->L, &ix->mobjv, mo); + ix->mtv = mt; + settabV(J->L, &mix.tabv, mt); + setstrV(J->L, &mix.keyv, mmstr); + mix.key = lj_ir_kstr(J, mmstr); + mix.val = 0; + mix.idxchain = 0; + ix->mobj = lj_record_idx(J, &mix); + return !tref_isnil(ix->mobj); /* 1 if metamethod found, 0 if not. */ + } + return 0; /* No metamethod. */ +} + +/* Record call to arithmetic metamethod. */ +static TRef rec_mm_arith(jit_State *J, RecordIndex *ix, MMS mm) +{ + /* Set up metamethod call first to save ix->tab and ix->tabv. */ + BCReg func = rec_mm_prep(J, lj_cont_ra); + TRef *base = J->base + func; + TValue *basev = J->L->base + func; + base[1] = ix->tab; base[2] = ix->key; + copyTV(J->L, basev+1, &ix->tabv); + copyTV(J->L, basev+2, &ix->keyv); + if (!lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ + if (mm != MM_unm) { + ix->tab = ix->key; + copyTV(J->L, &ix->tabv, &ix->keyv); + if (lj_record_mm_lookup(J, ix, mm)) /* Lookup mm on 2nd operand. */ + goto ok; + } + lj_trace_err(J, LJ_TRERR_NOMM); + } +ok: + base[0] = ix->mobj; + copyTV(J->L, basev+0, &ix->mobjv); + lj_record_call(J, func, 2); + return 0; /* No result yet. */ +} + +/* Record call to __len metamethod. */ +static TRef rec_mm_len(jit_State *J, TRef tr, TValue *tv) +{ + RecordIndex ix; + ix.tab = tr; + copyTV(J->L, &ix.tabv, tv); + if (lj_record_mm_lookup(J, &ix, MM_len)) { + BCReg func = rec_mm_prep(J, lj_cont_ra); + TRef *base = J->base + func; + TValue *basev = J->L->base + func; + base[0] = ix.mobj; copyTV(J->L, basev+0, &ix.mobjv); + base[1] = tr; copyTV(J->L, basev+1, tv); +#if LJ_52 + base[2] = tr; copyTV(J->L, basev+2, tv); +#else + base[2] = TREF_NIL; setnilV(basev+2); +#endif + lj_record_call(J, func, 2); + } else { + if (LJ_52 && tref_istab(tr)) + return lj_ir_call(J, IRCALL_lj_tab_len, tr); + lj_trace_err(J, LJ_TRERR_NOMM); + } + return 0; /* No result yet. */ +} + +/* Call a comparison metamethod. */ +static void rec_mm_callcomp(jit_State *J, RecordIndex *ix, int op) +{ + BCReg func = rec_mm_prep(J, (op&1) ? lj_cont_condf : lj_cont_condt); + TRef *base = J->base + func; + TValue *tv = J->L->base + func; + base[0] = ix->mobj; base[1] = ix->val; base[2] = ix->key; + copyTV(J->L, tv+0, &ix->mobjv); + copyTV(J->L, tv+1, &ix->valv); + copyTV(J->L, tv+2, &ix->keyv); + lj_record_call(J, func, 2); +} + +/* Record call to equality comparison metamethod (for tab and udata only). */ +static void rec_mm_equal(jit_State *J, RecordIndex *ix, int op) +{ + ix->tab = ix->val; + copyTV(J->L, &ix->tabv, &ix->valv); + if (lj_record_mm_lookup(J, ix, MM_eq)) { /* Lookup mm on 1st operand. */ + cTValue *bv; + TRef mo1 = ix->mobj; + TValue mo1v; + copyTV(J->L, &mo1v, &ix->mobjv); + /* Avoid the 2nd lookup and the objcmp if the metatables are equal. */ + bv = &ix->keyv; + if (tvistab(bv) && tabref(tabV(bv)->metatable) == ix->mtv) { + TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_TAB_META); + emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); + } else if (tvisudata(bv) && tabref(udataV(bv)->metatable) == ix->mtv) { + TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_UDATA_META); + emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); + } else { /* Lookup metamethod on 2nd operand and compare both. */ + ix->tab = ix->key; + copyTV(J->L, &ix->tabv, bv); + if (!lj_record_mm_lookup(J, ix, MM_eq) || + lj_record_objcmp(J, mo1, ix->mobj, &mo1v, &ix->mobjv)) + return; + } + rec_mm_callcomp(J, ix, op); + } +} + +/* Record call to ordered comparison metamethods (for arbitrary objects). */ +static void rec_mm_comp(jit_State *J, RecordIndex *ix, int op) +{ + ix->tab = ix->val; + copyTV(J->L, &ix->tabv, &ix->valv); + while (1) { + MMS mm = (op & 2) ? MM_le : MM_lt; /* Try __le + __lt or only __lt. */ +#if LJ_52 + if (!lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ + ix->tab = ix->key; + copyTV(J->L, &ix->tabv, &ix->keyv); + if (!lj_record_mm_lookup(J, ix, mm)) /* Lookup mm on 2nd operand. */ + goto nomatch; + } + rec_mm_callcomp(J, ix, op); + return; +#else + if (lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ + cTValue *bv; + TRef mo1 = ix->mobj; + TValue mo1v; + copyTV(J->L, &mo1v, &ix->mobjv); + /* Avoid the 2nd lookup and the objcmp if the metatables are equal. */ + bv = &ix->keyv; + if (tvistab(bv) && tabref(tabV(bv)->metatable) == ix->mtv) { + TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_TAB_META); + emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); + } else if (tvisudata(bv) && tabref(udataV(bv)->metatable) == ix->mtv) { + TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_UDATA_META); + emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); + } else { /* Lookup metamethod on 2nd operand and compare both. */ + ix->tab = ix->key; + copyTV(J->L, &ix->tabv, bv); + if (!lj_record_mm_lookup(J, ix, mm) || + lj_record_objcmp(J, mo1, ix->mobj, &mo1v, &ix->mobjv)) + goto nomatch; + } + rec_mm_callcomp(J, ix, op); + return; + } +#endif + nomatch: + /* Lookup failed. Retry with __lt and swapped operands. */ + if (!(op & 2)) break; /* Already at __lt. Interpreter will throw. */ + ix->tab = ix->key; ix->key = ix->val; ix->val = ix->tab; + copyTV(J->L, &ix->tabv, &ix->keyv); + copyTV(J->L, &ix->keyv, &ix->valv); + copyTV(J->L, &ix->valv, &ix->tabv); + op ^= 3; + } +} + +#if LJ_HASFFI +/* Setup call to cdata comparison metamethod. */ +static void rec_mm_comp_cdata(jit_State *J, RecordIndex *ix, int op, MMS mm) +{ + lj_snap_add(J); + if (tref_iscdata(ix->val)) { + ix->tab = ix->val; + copyTV(J->L, &ix->tabv, &ix->valv); + } else { + lua_assert(tref_iscdata(ix->key)); + ix->tab = ix->key; + copyTV(J->L, &ix->tabv, &ix->keyv); + } + lj_record_mm_lookup(J, ix, mm); + rec_mm_callcomp(J, ix, op); +} +#endif + +/* -- Indexed access ------------------------------------------------------ */ + +/* Record bounds-check. */ +static void rec_idx_abc(jit_State *J, TRef asizeref, TRef ikey, uint32_t asize) +{ + /* Try to emit invariant bounds checks. */ + if ((J->flags & (JIT_F_OPT_LOOP|JIT_F_OPT_ABC)) == + (JIT_F_OPT_LOOP|JIT_F_OPT_ABC)) { + IRRef ref = tref_ref(ikey); + IRIns *ir = IR(ref); + int32_t ofs = 0; + IRRef ofsref = 0; + /* Handle constant offsets. */ + if (ir->o == IR_ADD && irref_isk(ir->op2)) { + ofsref = ir->op2; + ofs = IR(ofsref)->i; + ref = ir->op1; + ir = IR(ref); + } + /* Got scalar evolution analysis results for this reference? */ + if (ref == J->scev.idx) { + int32_t stop; + lua_assert(irt_isint(J->scev.t) && ir->o == IR_SLOAD); + stop = numberVint(&(J->L->base - J->baseslot)[ir->op1 + FORL_STOP]); + /* Runtime value for stop of loop is within bounds? */ + if ((uint64_t)stop + ofs < (uint64_t)asize) { + /* Emit invariant bounds check for stop. */ + emitir(IRTG(IR_ABC, IRT_P32), asizeref, ofs == 0 ? J->scev.stop : + emitir(IRTI(IR_ADD), J->scev.stop, ofsref)); + /* Emit invariant bounds check for start, if not const or negative. */ + if (!(J->scev.dir && J->scev.start && + (int64_t)IR(J->scev.start)->i + ofs >= 0)) + emitir(IRTG(IR_ABC, IRT_P32), asizeref, ikey); + return; + } + } + } + emitir(IRTGI(IR_ABC), asizeref, ikey); /* Emit regular bounds check. */ +} + +/* Record indexed key lookup. */ +static TRef rec_idx_key(jit_State *J, RecordIndex *ix) +{ + TRef key; + GCtab *t = tabV(&ix->tabv); + ix->oldv = lj_tab_get(J->L, t, &ix->keyv); /* Lookup previous value. */ + + /* Integer keys are looked up in the array part first. */ + key = ix->key; + if (tref_isnumber(key)) { + int32_t k = numberVint(&ix->keyv); + if (!tvisint(&ix->keyv) && numV(&ix->keyv) != (lua_Number)k) + k = LJ_MAX_ASIZE; + if ((MSize)k < LJ_MAX_ASIZE) { /* Potential array key? */ + TRef ikey = lj_opt_narrow_index(J, key); + TRef asizeref = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_ASIZE); + if ((MSize)k < t->asize) { /* Currently an array key? */ + TRef arrayref; + rec_idx_abc(J, asizeref, ikey, t->asize); + arrayref = emitir(IRT(IR_FLOAD, IRT_P32), ix->tab, IRFL_TAB_ARRAY); + return emitir(IRT(IR_AREF, IRT_P32), arrayref, ikey); + } else { /* Currently not in array (may be an array extension)? */ + emitir(IRTGI(IR_ULE), asizeref, ikey); /* Inv. bounds check. */ + if (k == 0 && tref_isk(key)) + key = lj_ir_knum_zero(J); /* Canonicalize 0 or +-0.0 to +0.0. */ + /* And continue with the hash lookup. */ + } + } else if (!tref_isk(key)) { + /* We can rule out const numbers which failed the integerness test + ** above. But all other numbers are potential array keys. + */ + if (t->asize == 0) { /* True sparse tables have an empty array part. */ + /* Guard that the array part stays empty. */ + TRef tmp = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_ASIZE); + emitir(IRTGI(IR_EQ), tmp, lj_ir_kint(J, 0)); + } else { + lj_trace_err(J, LJ_TRERR_NYITMIX); + } + } + } + + /* Otherwise the key is located in the hash part. */ + if (t->hmask == 0) { /* Shortcut for empty hash part. */ + /* Guard that the hash part stays empty. */ + TRef tmp = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); + emitir(IRTGI(IR_EQ), tmp, lj_ir_kint(J, 0)); + return lj_ir_kkptr(J, niltvg(J2G(J))); + } + if (tref_isinteger(key)) /* Hash keys are based on numbers, not ints. */ + key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); + if (tref_isk(key)) { + /* Optimize lookup of constant hash keys. */ + MSize hslot = (MSize)((char *)ix->oldv - (char *)&noderef(t->node)[0].val); + if (t->hmask > 0 && hslot <= t->hmask*(MSize)sizeof(Node) && + hslot <= 65535*(MSize)sizeof(Node)) { + TRef node, kslot; + TRef hm = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); + emitir(IRTGI(IR_EQ), hm, lj_ir_kint(J, (int32_t)t->hmask)); + node = emitir(IRT(IR_FLOAD, IRT_P32), ix->tab, IRFL_TAB_NODE); + kslot = lj_ir_kslot(J, key, hslot / sizeof(Node)); + return emitir(IRTG(IR_HREFK, IRT_P32), node, kslot); + } + } + /* Fall back to a regular hash lookup. */ + return emitir(IRT(IR_HREF, IRT_P32), ix->tab, key); +} + +/* Determine whether a key is NOT one of the fast metamethod names. */ +static int nommstr(jit_State *J, TRef key) +{ + if (tref_isstr(key)) { + if (tref_isk(key)) { + GCstr *str = ir_kstr(IR(tref_ref(key))); + uint32_t mm; + for (mm = 0; mm <= MM_FAST; mm++) + if (mmname_str(J2G(J), mm) == str) + return 0; /* MUST be one the fast metamethod names. */ + } else { + return 0; /* Variable string key MAY be a metamethod name. */ + } + } + return 1; /* CANNOT be a metamethod name. */ +} + +/* Record indexed load/store. */ +TRef lj_record_idx(jit_State *J, RecordIndex *ix) +{ + TRef xref; + IROp xrefop, loadop; + cTValue *oldv; + + while (!tref_istab(ix->tab)) { /* Handle non-table lookup. */ + /* Never call raw lj_record_idx() on non-table. */ + lua_assert(ix->idxchain != 0); + if (!lj_record_mm_lookup(J, ix, ix->val ? MM_newindex : MM_index)) + lj_trace_err(J, LJ_TRERR_NOMM); + handlemm: + if (tref_isfunc(ix->mobj)) { /* Handle metamethod call. */ + BCReg func = rec_mm_prep(J, ix->val ? lj_cont_nop : lj_cont_ra); + TRef *base = J->base + func; + TValue *tv = J->L->base + func; + base[0] = ix->mobj; base[1] = ix->tab; base[2] = ix->key; + setfuncV(J->L, tv+0, funcV(&ix->mobjv)); + copyTV(J->L, tv+1, &ix->tabv); + copyTV(J->L, tv+2, &ix->keyv); + if (ix->val) { + base[3] = ix->val; + copyTV(J->L, tv+3, &ix->valv); + lj_record_call(J, func, 3); /* mobj(tab, key, val) */ + return 0; + } else { + lj_record_call(J, func, 2); /* res = mobj(tab, key) */ + return 0; /* No result yet. */ + } + } + /* Otherwise retry lookup with metaobject. */ + ix->tab = ix->mobj; + copyTV(J->L, &ix->tabv, &ix->mobjv); + if (--ix->idxchain == 0) + lj_trace_err(J, LJ_TRERR_IDXLOOP); + } + + /* First catch nil and NaN keys for tables. */ + if (tvisnil(&ix->keyv) || (tvisnum(&ix->keyv) && tvisnan(&ix->keyv))) { + if (ix->val) /* Better fail early. */ + lj_trace_err(J, LJ_TRERR_STORENN); + if (tref_isk(ix->key)) { + if (ix->idxchain && lj_record_mm_lookup(J, ix, MM_index)) + goto handlemm; + return TREF_NIL; + } + } + + /* Record the key lookup. */ + xref = rec_idx_key(J, ix); + xrefop = IR(tref_ref(xref))->o; + loadop = xrefop == IR_AREF ? IR_ALOAD : IR_HLOAD; + /* The lj_meta_tset() inconsistency is gone, but better play safe. */ + oldv = xrefop == IR_KKPTR ? (cTValue *)ir_kptr(IR(tref_ref(xref))) : ix->oldv; + + if (ix->val == 0) { /* Indexed load */ + IRType t = itype2irt(oldv); + TRef res; + if (oldv == niltvg(J2G(J))) { + emitir(IRTG(IR_EQ, IRT_P32), xref, lj_ir_kkptr(J, niltvg(J2G(J)))); + res = TREF_NIL; + } else { + res = emitir(IRTG(loadop, t), xref, 0); + } + if (t == IRT_NIL && ix->idxchain && lj_record_mm_lookup(J, ix, MM_index)) + goto handlemm; + if (irtype_ispri(t)) res = TREF_PRI(t); /* Canonicalize primitives. */ + return res; + } else { /* Indexed store. */ + GCtab *mt = tabref(tabV(&ix->tabv)->metatable); + int keybarrier = tref_isgcv(ix->key) && !tref_isnil(ix->val); + if (tvisnil(oldv)) { /* Previous value was nil? */ + /* Need to duplicate the hasmm check for the early guards. */ + int hasmm = 0; + if (ix->idxchain && mt) { + cTValue *mo = lj_tab_getstr(mt, mmname_str(J2G(J), MM_newindex)); + hasmm = mo && !tvisnil(mo); + } + if (hasmm) + emitir(IRTG(loadop, IRT_NIL), xref, 0); /* Guard for nil value. */ + else if (xrefop == IR_HREF) + emitir(IRTG(oldv == niltvg(J2G(J)) ? IR_EQ : IR_NE, IRT_P32), + xref, lj_ir_kkptr(J, niltvg(J2G(J)))); + if (ix->idxchain && lj_record_mm_lookup(J, ix, MM_newindex)) { + lua_assert(hasmm); + goto handlemm; + } + lua_assert(!hasmm); + if (oldv == niltvg(J2G(J))) { /* Need to insert a new key. */ + TRef key = ix->key; + if (tref_isinteger(key)) /* NEWREF needs a TValue as a key. */ + key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); + xref = emitir(IRT(IR_NEWREF, IRT_P32), ix->tab, key); + keybarrier = 0; /* NEWREF already takes care of the key barrier. */ + } + } else if (!lj_opt_fwd_wasnonnil(J, loadop, tref_ref(xref))) { + /* Cannot derive that the previous value was non-nil, must do checks. */ + if (xrefop == IR_HREF) /* Guard against store to niltv. */ + emitir(IRTG(IR_NE, IRT_P32), xref, lj_ir_kkptr(J, niltvg(J2G(J)))); + if (ix->idxchain) { /* Metamethod lookup required? */ + /* A check for NULL metatable is cheaper (hoistable) than a load. */ + if (!mt) { + TRef mtref = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_TAB_META); + emitir(IRTG(IR_EQ, IRT_TAB), mtref, lj_ir_knull(J, IRT_TAB)); + } else { + IRType t = itype2irt(oldv); + emitir(IRTG(loadop, t), xref, 0); /* Guard for non-nil value. */ + } + } + } else { + keybarrier = 0; /* Previous non-nil value kept the key alive. */ + } + /* Convert int to number before storing. */ + if (!LJ_DUALNUM && tref_isinteger(ix->val)) + ix->val = emitir(IRTN(IR_CONV), ix->val, IRCONV_NUM_INT); + emitir(IRT(loadop+IRDELTA_L2S, tref_type(ix->val)), xref, ix->val); + if (keybarrier || tref_isgcv(ix->val)) + emitir(IRT(IR_TBAR, IRT_NIL), ix->tab, 0); + /* Invalidate neg. metamethod cache for stores with certain string keys. */ + if (!nommstr(J, ix->key)) { + TRef fref = emitir(IRT(IR_FREF, IRT_P32), ix->tab, IRFL_TAB_NOMM); + emitir(IRT(IR_FSTORE, IRT_U8), fref, lj_ir_kint(J, 0)); + } + J->needsnap = 1; + return 0; + } +} + +/* -- Upvalue access ------------------------------------------------------ */ + +/* Check whether upvalue is immutable and ok to constify. */ +static int rec_upvalue_constify(jit_State *J, GCupval *uvp) +{ + if (uvp->immutable) { + cTValue *o = uvval(uvp); + /* Don't constify objects that may retain large amounts of memory. */ +#if LJ_HASFFI + if (tviscdata(o)) { + GCcdata *cd = cdataV(o); + if (!cdataisv(cd) && !(cd->marked & LJ_GC_CDATA_FIN)) { + CType *ct = ctype_raw(ctype_ctsG(J2G(J)), cd->ctypeid); + if (!ctype_hassize(ct->info) || ct->size <= 16) + return 1; + } + return 0; + } +#else + UNUSED(J); +#endif + if (!(tvistab(o) || tvisudata(o) || tvisthread(o))) + return 1; + } + return 0; +} + +/* Record upvalue load/store. */ +static TRef rec_upvalue(jit_State *J, uint32_t uv, TRef val) +{ + GCupval *uvp = &gcref(J->fn->l.uvptr[uv])->uv; + TRef fn = getcurrf(J); + IRRef uref; + int needbarrier = 0; + if (rec_upvalue_constify(J, uvp)) { /* Try to constify immutable upvalue. */ + TRef tr, kfunc; + lua_assert(val == 0); + if (!tref_isk(fn)) { /* Late specialization of current function. */ + if (J->pt->flags >= PROTO_CLC_POLY) + goto noconstify; + kfunc = lj_ir_kfunc(J, J->fn); + emitir(IRTG(IR_EQ, IRT_FUNC), fn, kfunc); + J->base[-1] = TREF_FRAME | kfunc; + fn = kfunc; + } + tr = lj_record_constify(J, uvval(uvp)); + if (tr) + return tr; + } +noconstify: + /* Note: this effectively limits LJ_MAX_UPVAL to 127. */ + uv = (uv << 8) | (hashrot(uvp->dhash, uvp->dhash + HASH_BIAS) & 0xff); + if (!uvp->closed) { + /* In current stack? */ + if (uvval(uvp) >= tvref(J->L->stack) && + uvval(uvp) < tvref(J->L->maxstack)) { + int32_t slot = (int32_t)(uvval(uvp) - (J->L->base - J->baseslot)); + if (slot >= 0) { /* Aliases an SSA slot? */ + slot -= (int32_t)J->baseslot; /* Note: slot number may be negative! */ + /* NYI: add IR to guard that it's still aliasing the same slot. */ + if (val == 0) { + return getslot(J, slot); + } else { + J->base[slot] = val; + if (slot >= (int32_t)J->maxslot) J->maxslot = (BCReg)(slot+1); + return 0; + } + } + } + uref = tref_ref(emitir(IRTG(IR_UREFO, IRT_P32), fn, uv)); + } else { + needbarrier = 1; + uref = tref_ref(emitir(IRTG(IR_UREFC, IRT_P32), fn, uv)); + } + if (val == 0) { /* Upvalue load */ + IRType t = itype2irt(uvval(uvp)); + TRef res = emitir(IRTG(IR_ULOAD, t), uref, 0); + if (irtype_ispri(t)) res = TREF_PRI(t); /* Canonicalize primitive refs. */ + return res; + } else { /* Upvalue store. */ + /* Convert int to number before storing. */ + if (!LJ_DUALNUM && tref_isinteger(val)) + val = emitir(IRTN(IR_CONV), val, IRCONV_NUM_INT); + emitir(IRT(IR_USTORE, tref_type(val)), uref, val); + if (needbarrier && tref_isgcv(val)) + emitir(IRT(IR_OBAR, IRT_NIL), uref, val); + J->needsnap = 1; + return 0; + } +} + +/* -- Record calls to Lua functions --------------------------------------- */ + +/* Check unroll limits for calls. */ +static void check_call_unroll(jit_State *J, TraceNo lnk) +{ + cTValue *frame = J->L->base - 1; + void *pc = mref(frame_func(frame)->l.pc, void); + int32_t depth = J->framedepth; + int32_t count = 0; + if ((J->pt->flags & PROTO_VARARG)) depth--; /* Vararg frame still missing. */ + for (; depth > 0; depth--) { /* Count frames with same prototype. */ + if (frame_iscont(frame)) depth--; + frame = frame_prev(frame); + if (mref(frame_func(frame)->l.pc, void) == pc) + count++; + } + if (J->pc == J->startpc) { + if (count + J->tailcalled > J->param[JIT_P_recunroll]) { + J->pc++; + if (J->framedepth + J->retdepth == 0) + rec_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Tail-recursion. */ + else + rec_stop(J, LJ_TRLINK_UPREC, J->cur.traceno); /* Up-recursion. */ + } + } else { + if (count > J->param[JIT_P_callunroll]) { + if (lnk) { /* Possible tail- or up-recursion. */ + lj_trace_flush(J, lnk); /* Flush trace that only returns. */ + /* Set a small, pseudo-random hotcount for a quick retry of JFUNC*. */ + hotcount_set(J2GG(J), J->pc+1, LJ_PRNG_BITS(J, 4)); + } + lj_trace_err(J, LJ_TRERR_CUNROLL); + } + } +} + +/* Record Lua function setup. */ +static void rec_func_setup(jit_State *J) +{ + GCproto *pt = J->pt; + BCReg s, numparams = pt->numparams; + if ((pt->flags & PROTO_NOJIT)) + lj_trace_err(J, LJ_TRERR_CJITOFF); + if (J->baseslot + pt->framesize >= LJ_MAX_JSLOTS) + lj_trace_err(J, LJ_TRERR_STACKOV); + /* Fill up missing parameters with nil. */ + for (s = J->maxslot; s < numparams; s++) + J->base[s] = TREF_NIL; + /* The remaining slots should never be read before they are written. */ + J->maxslot = numparams; +} + +/* Record Lua vararg function setup. */ +static void rec_func_vararg(jit_State *J) +{ + GCproto *pt = J->pt; + BCReg s, fixargs, vframe = J->maxslot+1; + lua_assert((pt->flags & PROTO_VARARG)); + if (J->baseslot + vframe + pt->framesize >= LJ_MAX_JSLOTS) + lj_trace_err(J, LJ_TRERR_STACKOV); + J->base[vframe-1] = J->base[-1]; /* Copy function up. */ + /* Copy fixarg slots up and set their original slots to nil. */ + fixargs = pt->numparams < J->maxslot ? pt->numparams : J->maxslot; + for (s = 0; s < fixargs; s++) { + J->base[vframe+s] = J->base[s]; + J->base[s] = TREF_NIL; + } + J->maxslot = fixargs; + J->framedepth++; + J->base += vframe; + J->baseslot += vframe; +} + +/* Record entry to a Lua function. */ +static void rec_func_lua(jit_State *J) +{ + rec_func_setup(J); + check_call_unroll(J, 0); +} + +/* Record entry to an already compiled function. */ +static void rec_func_jit(jit_State *J, TraceNo lnk) +{ + GCtrace *T; + rec_func_setup(J); + T = traceref(J, lnk); + if (T->linktype == LJ_TRLINK_RETURN) { /* Trace returns to interpreter? */ + check_call_unroll(J, lnk); + /* Temporarily unpatch JFUNC* to continue recording across function. */ + J->patchins = *J->pc; + J->patchpc = (BCIns *)J->pc; + *J->patchpc = T->startins; + return; + } + J->instunroll = 0; /* Cannot continue across a compiled function. */ + if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) + rec_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Extra tail-recursion. */ + else + rec_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the function. */ +} + +/* -- Vararg handling ----------------------------------------------------- */ + +/* Detect y = select(x, ...) idiom. */ +static int select_detect(jit_State *J) +{ + BCIns ins = J->pc[1]; + if (bc_op(ins) == BC_CALLM && bc_b(ins) == 2 && bc_c(ins) == 1) { + cTValue *func = &J->L->base[bc_a(ins)]; + if (tvisfunc(func) && funcV(func)->c.ffid == FF_select) + return 1; + } + return 0; +} + +/* Record vararg instruction. */ +static void rec_varg(jit_State *J, BCReg dst, ptrdiff_t nresults) +{ + int32_t numparams = J->pt->numparams; + ptrdiff_t nvararg = frame_delta(J->L->base-1) - numparams - 1; + lua_assert(frame_isvarg(J->L->base-1)); + if (J->framedepth > 0) { /* Simple case: varargs defined on-trace. */ + ptrdiff_t i; + if (nvararg < 0) nvararg = 0; + if (nresults == -1) { + nresults = nvararg; + J->maxslot = dst + (BCReg)nvararg; + } else if (dst + nresults > J->maxslot) { + J->maxslot = dst + (BCReg)nresults; + } + for (i = 0; i < nresults; i++) + J->base[dst+i] = i < nvararg ? getslot(J, i - nvararg - 1) : TREF_NIL; + } else { /* Unknown number of varargs passed to trace. */ + TRef fr = emitir(IRTI(IR_SLOAD), 0, IRSLOAD_READONLY|IRSLOAD_FRAME); + int32_t frofs = 8*(1+numparams)+FRAME_VARG; + if (nresults >= 0) { /* Known fixed number of results. */ + ptrdiff_t i; + if (nvararg > 0) { + ptrdiff_t nload = nvararg >= nresults ? nresults : nvararg; + TRef vbase; + if (nvararg >= nresults) + emitir(IRTGI(IR_GE), fr, lj_ir_kint(J, frofs+8*(int32_t)nresults)); + else + emitir(IRTGI(IR_EQ), fr, lj_ir_kint(J, frame_ftsz(J->L->base-1))); + vbase = emitir(IRTI(IR_SUB), REF_BASE, fr); + vbase = emitir(IRT(IR_ADD, IRT_P32), vbase, lj_ir_kint(J, frofs-8)); + for (i = 0; i < nload; i++) { + IRType t = itype2irt(&J->L->base[i-1-nvararg]); + TRef aref = emitir(IRT(IR_AREF, IRT_P32), + vbase, lj_ir_kint(J, (int32_t)i)); + TRef tr = emitir(IRTG(IR_VLOAD, t), aref, 0); + if (irtype_ispri(t)) tr = TREF_PRI(t); /* Canonicalize primitives. */ + J->base[dst+i] = tr; + } + } else { + emitir(IRTGI(IR_LE), fr, lj_ir_kint(J, frofs)); + nvararg = 0; + } + for (i = nvararg; i < nresults; i++) + J->base[dst+i] = TREF_NIL; + if (dst + (BCReg)nresults > J->maxslot) + J->maxslot = dst + (BCReg)nresults; + } else if (select_detect(J)) { /* y = select(x, ...) */ + TRef tridx = J->base[dst-1]; + TRef tr = TREF_NIL; + ptrdiff_t idx = lj_ffrecord_select_mode(J, tridx, &J->L->base[dst-1]); + if (idx < 0) goto nyivarg; + if (idx != 0 && !tref_isinteger(tridx)) + tridx = emitir(IRTGI(IR_CONV), tridx, IRCONV_INT_NUM|IRCONV_INDEX); + if (idx != 0 && tref_isk(tridx)) { + emitir(IRTGI(idx <= nvararg ? IR_GE : IR_LT), + fr, lj_ir_kint(J, frofs+8*(int32_t)idx)); + frofs -= 8; /* Bias for 1-based index. */ + } else if (idx <= nvararg) { /* Compute size. */ + TRef tmp = emitir(IRTI(IR_ADD), fr, lj_ir_kint(J, -frofs)); + if (numparams) + emitir(IRTGI(IR_GE), tmp, lj_ir_kint(J, 0)); + tr = emitir(IRTI(IR_BSHR), tmp, lj_ir_kint(J, 3)); + if (idx != 0) { + tridx = emitir(IRTI(IR_ADD), tridx, lj_ir_kint(J, -1)); + rec_idx_abc(J, tr, tridx, (uint32_t)nvararg); + } + } else { + TRef tmp = lj_ir_kint(J, frofs); + if (idx != 0) { + TRef tmp2 = emitir(IRTI(IR_BSHL), tridx, lj_ir_kint(J, 3)); + tmp = emitir(IRTI(IR_ADD), tmp2, tmp); + } else { + tr = lj_ir_kint(J, 0); + } + emitir(IRTGI(IR_LT), fr, tmp); + } + if (idx != 0 && idx <= nvararg) { + IRType t; + TRef aref, vbase = emitir(IRTI(IR_SUB), REF_BASE, fr); + vbase = emitir(IRT(IR_ADD, IRT_P32), vbase, lj_ir_kint(J, frofs-8)); + t = itype2irt(&J->L->base[idx-2-nvararg]); + aref = emitir(IRT(IR_AREF, IRT_P32), vbase, tridx); + tr = emitir(IRTG(IR_VLOAD, t), aref, 0); + if (irtype_ispri(t)) tr = TREF_PRI(t); /* Canonicalize primitives. */ + } + J->base[dst-2] = tr; + J->maxslot = dst-1; + J->bcskip = 2; /* Skip CALLM + select. */ + } else { + nyivarg: + setintV(&J->errinfo, BC_VARG); + lj_trace_err_info(J, LJ_TRERR_NYIBC); + } + } +} + +/* -- Record allocations -------------------------------------------------- */ + +static TRef rec_tnew(jit_State *J, uint32_t ah) +{ + uint32_t asize = ah & 0x7ff; + uint32_t hbits = ah >> 11; + if (asize == 0x7ff) asize = 0x801; + return emitir(IRTG(IR_TNEW, IRT_TAB), asize, hbits); +} + +/* -- Record bytecode ops ------------------------------------------------- */ + +/* Prepare for comparison. */ +static void rec_comp_prep(jit_State *J) +{ + /* Prevent merging with snapshot #0 (GC exit) since we fixup the PC. */ + if (J->cur.nsnap == 1 && J->cur.snap[0].ref == J->cur.nins) + emitir_raw(IRT(IR_NOP, IRT_NIL), 0, 0); + lj_snap_add(J); +} + +/* Fixup comparison. */ +static void rec_comp_fixup(jit_State *J, const BCIns *pc, int cond) +{ + BCIns jmpins = pc[1]; + const BCIns *npc = pc + 2 + (cond ? bc_j(jmpins) : 0); + SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; + /* Set PC to opposite target to avoid re-recording the comp. in side trace. */ + J->cur.snapmap[snap->mapofs + snap->nent] = SNAP_MKPC(npc); + J->needsnap = 1; + if (bc_a(jmpins) < J->maxslot) J->maxslot = bc_a(jmpins); + lj_snap_shrink(J); /* Shrink last snapshot if possible. */ +} + +/* Record the next bytecode instruction (_before_ it's executed). */ +void lj_record_ins(jit_State *J) +{ + cTValue *lbase; + RecordIndex ix; + const BCIns *pc; + BCIns ins; + BCOp op; + TRef ra, rb, rc; + + /* Perform post-processing action before recording the next instruction. */ + if (LJ_UNLIKELY(J->postproc != LJ_POST_NONE)) { + switch (J->postproc) { + case LJ_POST_FIXCOMP: /* Fixup comparison. */ + pc = frame_pc(&J2G(J)->tmptv); + rec_comp_fixup(J, pc, (!tvistruecond(&J2G(J)->tmptv2) ^ (bc_op(*pc)&1))); + /* fallthrough */ + case LJ_POST_FIXGUARD: /* Fixup and emit pending guard. */ + case LJ_POST_FIXGUARDSNAP: /* Fixup and emit pending guard and snapshot. */ + if (!tvistruecond(&J2G(J)->tmptv2)) { + J->fold.ins.o ^= 1; /* Flip guard to opposite. */ + if (J->postproc == LJ_POST_FIXGUARDSNAP) { + SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; + J->cur.snapmap[snap->mapofs+snap->nent-1]--; /* False -> true. */ + } + } + lj_opt_fold(J); /* Emit pending guard. */ + /* fallthrough */ + case LJ_POST_FIXBOOL: + if (!tvistruecond(&J2G(J)->tmptv2)) { + BCReg s; + TValue *tv = J->L->base; + for (s = 0; s < J->maxslot; s++) /* Fixup stack slot (if any). */ + if (J->base[s] == TREF_TRUE && tvisfalse(&tv[s])) { + J->base[s] = TREF_FALSE; + break; + } + } + break; + case LJ_POST_FIXCONST: + { + BCReg s; + TValue *tv = J->L->base; + for (s = 0; s < J->maxslot; s++) /* Constify stack slots (if any). */ + if (J->base[s] == TREF_NIL && !tvisnil(&tv[s])) + J->base[s] = lj_record_constify(J, &tv[s]); + } + break; + case LJ_POST_FFRETRY: /* Suppress recording of retried fast function. */ + if (bc_op(*J->pc) >= BC__MAX) + return; + break; + default: lua_assert(0); break; + } + J->postproc = LJ_POST_NONE; + } + + /* Need snapshot before recording next bytecode (e.g. after a store). */ + if (J->needsnap) { + J->needsnap = 0; + lj_snap_purge(J); + lj_snap_add(J); + J->mergesnap = 1; + } + + /* Skip some bytecodes. */ + if (LJ_UNLIKELY(J->bcskip > 0)) { + J->bcskip--; + return; + } + + /* Record only closed loops for root traces. */ + pc = J->pc; + if (J->framedepth == 0 && + (MSize)((char *)pc - (char *)J->bc_min) >= J->bc_extent) + lj_trace_err(J, LJ_TRERR_LLEAVE); + +#ifdef LUA_USE_ASSERT + rec_check_slots(J); + rec_check_ir(J); +#endif + + /* Keep a copy of the runtime values of var/num/str operands. */ +#define rav (&ix.valv) +#define rbv (&ix.tabv) +#define rcv (&ix.keyv) + + lbase = J->L->base; + ins = *pc; + op = bc_op(ins); + ra = bc_a(ins); + ix.val = 0; + switch (bcmode_a(op)) { + case BCMvar: + copyTV(J->L, rav, &lbase[ra]); ix.val = ra = getslot(J, ra); break; + default: break; /* Handled later. */ + } + rb = bc_b(ins); + rc = bc_c(ins); + switch (bcmode_b(op)) { + case BCMnone: rb = 0; rc = bc_d(ins); break; /* Upgrade rc to 'rd'. */ + case BCMvar: + copyTV(J->L, rbv, &lbase[rb]); ix.tab = rb = getslot(J, rb); break; + default: break; /* Handled later. */ + } + switch (bcmode_c(op)) { + case BCMvar: + copyTV(J->L, rcv, &lbase[rc]); ix.key = rc = getslot(J, rc); break; + case BCMpri: setitype(rcv, ~rc); ix.key = rc = TREF_PRI(IRT_NIL+rc); break; + case BCMnum: { cTValue *tv = proto_knumtv(J->pt, rc); + copyTV(J->L, rcv, tv); ix.key = rc = tvisint(tv) ? lj_ir_kint(J, intV(tv)) : + lj_ir_knumint(J, numV(tv)); } break; + case BCMstr: { GCstr *s = gco2str(proto_kgc(J->pt, ~(ptrdiff_t)rc)); + setstrV(J->L, rcv, s); ix.key = rc = lj_ir_kstr(J, s); } break; + default: break; /* Handled later. */ + } + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: +#if LJ_HASFFI + if (tref_iscdata(ra) || tref_iscdata(rc)) { + rec_mm_comp_cdata(J, &ix, op, ((int)op & 2) ? MM_le : MM_lt); + break; + } +#endif + /* Emit nothing for two numeric or string consts. */ + if (!(tref_isk2(ra,rc) && tref_isnumber_str(ra) && tref_isnumber_str(rc))) { + IRType ta = tref_isinteger(ra) ? IRT_INT : tref_type(ra); + IRType tc = tref_isinteger(rc) ? IRT_INT : tref_type(rc); + int irop; + if (ta != tc) { + /* Widen mixed number/int comparisons to number/number comparison. */ + if (ta == IRT_INT && tc == IRT_NUM) { + ra = emitir(IRTN(IR_CONV), ra, IRCONV_NUM_INT); + ta = IRT_NUM; + } else if (ta == IRT_NUM && tc == IRT_INT) { + rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); + } else if (LJ_52) { + ta = IRT_NIL; /* Force metamethod for different types. */ + } else if (!((ta == IRT_FALSE || ta == IRT_TRUE) && + (tc == IRT_FALSE || tc == IRT_TRUE))) { + break; /* Interpreter will throw for two different types. */ + } + } + rec_comp_prep(J); + irop = (int)op - (int)BC_ISLT + (int)IR_LT; + if (ta == IRT_NUM) { + if ((irop & 1)) irop ^= 4; /* ISGE/ISGT are unordered. */ + if (!lj_ir_numcmp(numberVnum(rav), numberVnum(rcv), (IROp)irop)) + irop ^= 5; + } else if (ta == IRT_INT) { + if (!lj_ir_numcmp(numberVnum(rav), numberVnum(rcv), (IROp)irop)) + irop ^= 1; + } else if (ta == IRT_STR) { + if (!lj_ir_strcmp(strV(rav), strV(rcv), (IROp)irop)) irop ^= 1; + ra = lj_ir_call(J, IRCALL_lj_str_cmp, ra, rc); + rc = lj_ir_kint(J, 0); + ta = IRT_INT; + } else { + rec_mm_comp(J, &ix, (int)op); + break; + } + emitir(IRTG(irop, ta), ra, rc); + rec_comp_fixup(J, J->pc, ((int)op ^ irop) & 1); + } + break; + + case BC_ISEQV: case BC_ISNEV: + case BC_ISEQS: case BC_ISNES: + case BC_ISEQN: case BC_ISNEN: + case BC_ISEQP: case BC_ISNEP: +#if LJ_HASFFI + if (tref_iscdata(ra) || tref_iscdata(rc)) { + rec_mm_comp_cdata(J, &ix, op, MM_eq); + break; + } +#endif + /* Emit nothing for two non-table, non-udata consts. */ + if (!(tref_isk2(ra, rc) && !(tref_istab(ra) || tref_isudata(ra)))) { + int diff; + rec_comp_prep(J); + diff = lj_record_objcmp(J, ra, rc, rav, rcv); + if (diff == 2 || !(tref_istab(ra) || tref_isudata(ra))) + rec_comp_fixup(J, J->pc, ((int)op & 1) == !diff); + else if (diff == 1) /* Only check __eq if different, but same type. */ + rec_mm_equal(J, &ix, (int)op); + } + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: + if ((op & 1) == tref_istruecond(rc)) + rc = 0; /* Don't store if condition is not true. */ + /* fallthrough */ + case BC_IST: case BC_ISF: /* Type specialization suffices. */ + if (bc_a(pc[1]) < J->maxslot) + J->maxslot = bc_a(pc[1]); /* Shrink used slots. */ + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_NOT: + /* Type specialization already forces const result. */ + rc = tref_istruecond(rc) ? TREF_FALSE : TREF_TRUE; + break; + + case BC_LEN: + if (tref_isstr(rc)) + rc = emitir(IRTI(IR_FLOAD), rc, IRFL_STR_LEN); + else if (!LJ_52 && tref_istab(rc)) + rc = lj_ir_call(J, IRCALL_lj_tab_len, rc); + else + rc = rec_mm_len(J, rc, rcv); + break; + + /* -- Arithmetic ops ---------------------------------------------------- */ + + case BC_UNM: + if (tref_isnumber_str(rc)) { + rc = lj_opt_narrow_unm(J, rc, rcv); + } else { + ix.tab = rc; + copyTV(J->L, &ix.tabv, rcv); + rc = rec_mm_arith(J, &ix, MM_unm); + } + break; + + case BC_ADDNV: case BC_SUBNV: case BC_MULNV: case BC_DIVNV: case BC_MODNV: + /* Swap rb/rc and rbv/rcv. rav is temp. */ + ix.tab = rc; ix.key = rc = rb; rb = ix.tab; + copyTV(J->L, rav, rbv); + copyTV(J->L, rbv, rcv); + copyTV(J->L, rcv, rav); + if (op == BC_MODNV) + goto recmod; + /* fallthrough */ + case BC_ADDVN: case BC_SUBVN: case BC_MULVN: case BC_DIVVN: + case BC_ADDVV: case BC_SUBVV: case BC_MULVV: case BC_DIVVV: { + MMS mm = bcmode_mm(op); + if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) + rc = lj_opt_narrow_arith(J, rb, rc, rbv, rcv, + (int)mm - (int)MM_add + (int)IR_ADD); + else + rc = rec_mm_arith(J, &ix, mm); + break; + } + + case BC_MODVN: case BC_MODVV: + recmod: + if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) + rc = lj_opt_narrow_mod(J, rb, rc, rcv); + else + rc = rec_mm_arith(J, &ix, MM_mod); + break; + + case BC_POW: + if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) + rc = lj_opt_narrow_pow(J, lj_ir_tonum(J, rb), rc, rcv); + else + rc = rec_mm_arith(J, &ix, MM_pow); + break; + + /* -- Constant and move ops --------------------------------------------- */ + + case BC_MOV: + /* Clear gap of method call to avoid resurrecting previous refs. */ + if (ra > J->maxslot) J->base[ra-1] = 0; + break; + case BC_KSTR: case BC_KNUM: case BC_KPRI: + break; + case BC_KSHORT: + rc = lj_ir_kint(J, (int32_t)(int16_t)rc); + break; + case BC_KNIL: + while (ra <= rc) + J->base[ra++] = TREF_NIL; + if (rc >= J->maxslot) J->maxslot = rc+1; + break; +#if LJ_HASFFI + case BC_KCDATA: + rc = lj_ir_kgc(J, proto_kgc(J->pt, ~(ptrdiff_t)rc), IRT_CDATA); + break; +#endif + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + rc = rec_upvalue(J, rc, 0); + break; + case BC_USETV: case BC_USETS: case BC_USETN: case BC_USETP: + rec_upvalue(J, ra, rc); + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_GGET: case BC_GSET: + settabV(J->L, &ix.tabv, tabref(J->fn->l.env)); + ix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), getcurrf(J), IRFL_FUNC_ENV); + ix.idxchain = LJ_MAX_IDXCHAIN; + rc = lj_record_idx(J, &ix); + break; + + case BC_TGETB: case BC_TSETB: + setintV(&ix.keyv, (int32_t)rc); + ix.key = lj_ir_kint(J, (int32_t)rc); + /* fallthrough */ + case BC_TGETV: case BC_TGETS: case BC_TSETV: case BC_TSETS: + ix.idxchain = LJ_MAX_IDXCHAIN; + rc = lj_record_idx(J, &ix); + break; + + case BC_TNEW: + rc = rec_tnew(J, rc); + break; + case BC_TDUP: + rc = emitir(IRTG(IR_TDUP, IRT_TAB), + lj_ir_ktab(J, gco2tab(proto_kgc(J->pt, ~(ptrdiff_t)rc))), 0); + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_ITERC: + J->base[ra] = getslot(J, ra-3); + J->base[ra+1] = getslot(J, ra-2); + J->base[ra+2] = getslot(J, ra-1); + { /* Do the actual copy now because lj_record_call needs the values. */ + TValue *b = &J->L->base[ra]; + copyTV(J->L, b, b-3); + copyTV(J->L, b+1, b-2); + copyTV(J->L, b+2, b-1); + } + lj_record_call(J, ra, (ptrdiff_t)rc-1); + break; + + /* L->top is set to L->base+ra+rc+NARGS-1+1. See lj_dispatch_ins(). */ + case BC_CALLM: + rc = (BCReg)(J->L->top - J->L->base) - ra; + /* fallthrough */ + case BC_CALL: + lj_record_call(J, ra, (ptrdiff_t)rc-1); + break; + + case BC_CALLMT: + rc = (BCReg)(J->L->top - J->L->base) - ra; + /* fallthrough */ + case BC_CALLT: + lj_record_tailcall(J, ra, (ptrdiff_t)rc-1); + break; + + case BC_VARG: + rec_varg(J, ra, (ptrdiff_t)rb-1); + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + /* L->top is set to L->base+ra+rc+NRESULTS-1, see lj_dispatch_ins(). */ + rc = (BCReg)(J->L->top - J->L->base) - ra + 1; + /* fallthrough */ + case BC_RET: case BC_RET0: case BC_RET1: + lj_record_ret(J, ra, (ptrdiff_t)rc-1); + break; + + /* -- Loops and branches ------------------------------------------------ */ + + case BC_FORI: + if (rec_for(J, pc, 0) != LOOPEV_LEAVE) + J->loopref = J->cur.nins; + break; + case BC_JFORI: + lua_assert(bc_op(pc[(ptrdiff_t)rc-BCBIAS_J]) == BC_JFORL); + if (rec_for(J, pc, 0) != LOOPEV_LEAVE) /* Link to existing loop. */ + rec_stop(J, LJ_TRLINK_ROOT, bc_d(pc[(ptrdiff_t)rc-BCBIAS_J])); + /* Continue tracing if the loop is not entered. */ + break; + + case BC_FORL: + rec_loop_interp(J, pc, rec_for(J, pc+((ptrdiff_t)rc-BCBIAS_J), 1)); + break; + case BC_ITERL: + rec_loop_interp(J, pc, rec_iterl(J, *pc)); + break; + case BC_LOOP: + rec_loop_interp(J, pc, rec_loop(J, ra)); + break; + + case BC_JFORL: + rec_loop_jit(J, rc, rec_for(J, pc+bc_j(traceref(J, rc)->startins), 1)); + break; + case BC_JITERL: + rec_loop_jit(J, rc, rec_iterl(J, traceref(J, rc)->startins)); + break; + case BC_JLOOP: + rec_loop_jit(J, rc, rec_loop(J, ra)); + break; + + case BC_IFORL: + case BC_IITERL: + case BC_ILOOP: + case BC_IFUNCF: + case BC_IFUNCV: + lj_trace_err(J, LJ_TRERR_BLACKL); + break; + + case BC_JMP: + if (ra < J->maxslot) + J->maxslot = ra; /* Shrink used slots. */ + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + rec_func_lua(J); + break; + case BC_JFUNCF: + rec_func_jit(J, rc); + break; + + case BC_FUNCV: + rec_func_vararg(J); + rec_func_lua(J); + break; + case BC_JFUNCV: + lua_assert(0); /* Cannot happen. No hotcall counting for varag funcs. */ + break; + + case BC_FUNCC: + case BC_FUNCCW: + lj_ffrecord_func(J); + break; + + default: + if (op >= BC__MAX) { + lj_ffrecord_func(J); + break; + } + /* fallthrough */ + case BC_ITERN: + case BC_ISNEXT: + case BC_CAT: + case BC_UCLO: + case BC_FNEW: + case BC_TSETM: + setintV(&J->errinfo, (int32_t)op); + lj_trace_err_info(J, LJ_TRERR_NYIBC); + break; + } + + /* rc == 0 if we have no result yet, e.g. pending __index metamethod call. */ + if (bcmode_a(op) == BCMdst && rc) { + J->base[ra] = rc; + if (ra >= J->maxslot) J->maxslot = ra+1; + } + +#undef rav +#undef rbv +#undef rcv + + /* Limit the number of recorded IR instructions. */ + if (J->cur.nins > REF_FIRST+(IRRef)J->param[JIT_P_maxrecord]) + lj_trace_err(J, LJ_TRERR_TRACEOV); +} + +/* -- Recording setup ----------------------------------------------------- */ + +/* Setup recording for a root trace started by a hot loop. */ +static const BCIns *rec_setup_root(jit_State *J) +{ + /* Determine the next PC and the bytecode range for the loop. */ + const BCIns *pcj, *pc = J->pc; + BCIns ins = *pc; + BCReg ra = bc_a(ins); + switch (bc_op(ins)) { + case BC_FORL: + J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); + pc += 1+bc_j(ins); + J->bc_min = pc; + break; + case BC_ITERL: + lua_assert(bc_op(pc[-1]) == BC_ITERC); + J->maxslot = ra + bc_b(pc[-1]) - 1; + J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); + pc += 1+bc_j(ins); + lua_assert(bc_op(pc[-1]) == BC_JMP); + J->bc_min = pc; + break; + case BC_LOOP: + /* Only check BC range for real loops, but not for "repeat until true". */ + pcj = pc + bc_j(ins); + ins = *pcj; + if (bc_op(ins) == BC_JMP && bc_j(ins) < 0) { + J->bc_min = pcj+1 + bc_j(ins); + J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); + } + J->maxslot = ra; + pc++; + break; + case BC_RET: + case BC_RET0: + case BC_RET1: + /* No bytecode range check for down-recursive root traces. */ + J->maxslot = ra + bc_d(ins) - 1; + break; + case BC_FUNCF: + /* No bytecode range check for root traces started by a hot call. */ + J->maxslot = J->pt->numparams; + pc++; + break; + default: + lua_assert(0); + break; + } + return pc; +} + +/* Setup for recording a new trace. */ +void lj_record_setup(jit_State *J) +{ + uint32_t i; + + /* Initialize state related to current trace. */ + memset(J->slot, 0, sizeof(J->slot)); + memset(J->chain, 0, sizeof(J->chain)); + memset(J->bpropcache, 0, sizeof(J->bpropcache)); + J->scev.idx = REF_NIL; + setmref(J->scev.pc, NULL); + + J->baseslot = 1; /* Invoking function is at base[-1]. */ + J->base = J->slot + J->baseslot; + J->maxslot = 0; + J->framedepth = 0; + J->retdepth = 0; + + J->instunroll = J->param[JIT_P_instunroll]; + J->loopunroll = J->param[JIT_P_loopunroll]; + J->tailcalled = 0; + J->loopref = 0; + + J->bc_min = NULL; /* Means no limit. */ + J->bc_extent = ~(MSize)0; + + /* Emit instructions for fixed references. Also triggers initial IR alloc. */ + emitir_raw(IRT(IR_BASE, IRT_P32), J->parent, J->exitno); + for (i = 0; i <= 2; i++) { + IRIns *ir = IR(REF_NIL-i); + ir->i = 0; + ir->t.irt = (uint8_t)(IRT_NIL+i); + ir->o = IR_KPRI; + ir->prev = 0; + } + J->cur.nk = REF_TRUE; + + J->startpc = J->pc; + setmref(J->cur.startpc, J->pc); + if (J->parent) { /* Side trace. */ + GCtrace *T = traceref(J, J->parent); + TraceNo root = T->root ? T->root : J->parent; + J->cur.root = (uint16_t)root; + J->cur.startins = BCINS_AD(BC_JMP, 0, 0); + /* Check whether we could at least potentially form an extra loop. */ + if (J->exitno == 0 && T->snap[0].nent == 0) { + /* We can narrow a FORL for some side traces, too. */ + if (J->pc > proto_bc(J->pt) && bc_op(J->pc[-1]) == BC_JFORI && + bc_d(J->pc[bc_j(J->pc[-1])-1]) == root) { + lj_snap_add(J); + rec_for_loop(J, J->pc-1, &J->scev, 1); + goto sidecheck; + } + } else { + J->startpc = NULL; /* Prevent forming an extra loop. */ + } + lj_snap_replay(J, T); + sidecheck: + if (traceref(J, J->cur.root)->nchild >= J->param[JIT_P_maxside] || + T->snap[J->exitno].count >= J->param[JIT_P_hotexit] + + J->param[JIT_P_tryside]) { + rec_stop(J, LJ_TRLINK_INTERP, 0); + } + } else { /* Root trace. */ + J->cur.root = 0; + J->cur.startins = *J->pc; + J->pc = rec_setup_root(J); + /* Note: the loop instruction itself is recorded at the end and not + ** at the start! So snapshot #0 needs to point to the *next* instruction. + */ + lj_snap_add(J); + if (bc_op(J->cur.startins) == BC_FORL) + rec_for_loop(J, J->pc-1, &J->scev, 1); + if (1 + J->pt->framesize >= LJ_MAX_JSLOTS) + lj_trace_err(J, LJ_TRERR_STACKOV); + } +#ifdef LUAJIT_ENABLE_CHECKHOOK + /* Regularly check for instruction/line hooks from compiled code and + ** exit to the interpreter if the hooks are set. + ** + ** This is a compile-time option and disabled by default, since the + ** hook checks may be quite expensive in tight loops. + ** + ** Note this is only useful if hooks are *not* set most of the time. + ** Use this only if you want to *asynchronously* interrupt the execution. + ** + ** You can set the instruction hook via lua_sethook() with a count of 1 + ** from a signal handler or another native thread. Please have a look + ** at the first few functions in luajit.c for an example (Ctrl-C handler). + */ + { + TRef tr = emitir(IRT(IR_XLOAD, IRT_U8), + lj_ir_kptr(J, &J2G(J)->hookmask), IRXLOAD_VOLATILE); + tr = emitir(IRTI(IR_BAND), tr, lj_ir_kint(J, (LUA_MASKLINE|LUA_MASKCOUNT))); + emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, 0)); + } +#endif +} + +#undef IR +#undef emitir_raw +#undef emitir + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_record.h b/src/3rd party/luajit-2.0/src/lj_record.h new file mode 100644 index 00000000000..c9f4882a905 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_record.h @@ -0,0 +1,44 @@ +/* +** Trace recorder (bytecode -> SSA IR). +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_RECORD_H +#define _LJ_RECORD_H + +#include "lj_obj.h" +#include "lj_jit.h" + +#if LJ_HASJIT +/* Context for recording an indexed load/store. */ +typedef struct RecordIndex { + TValue tabv; /* Runtime value of table (or indexed object). */ + TValue keyv; /* Runtime value of key. */ + TValue valv; /* Runtime value of stored value. */ + TValue mobjv; /* Runtime value of metamethod object. */ + GCtab *mtv; /* Runtime value of metatable object. */ + cTValue *oldv; /* Runtime value of previously stored value. */ + TRef tab; /* Table (or indexed object) reference. */ + TRef key; /* Key reference. */ + TRef val; /* Value reference for a store or 0 for a load. */ + TRef mt; /* Metatable reference. */ + TRef mobj; /* Metamethod object reference. */ + int idxchain; /* Index indirections left or 0 for raw lookup. */ +} RecordIndex; + +LJ_FUNC int lj_record_objcmp(jit_State *J, TRef a, TRef b, + cTValue *av, cTValue *bv); +LJ_FUNC TRef lj_record_constify(jit_State *J, cTValue *o); + +LJ_FUNC void lj_record_call(jit_State *J, BCReg func, ptrdiff_t nargs); +LJ_FUNC void lj_record_tailcall(jit_State *J, BCReg func, ptrdiff_t nargs); +LJ_FUNC void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults); + +LJ_FUNC int lj_record_mm_lookup(jit_State *J, RecordIndex *ix, MMS mm); +LJ_FUNC TRef lj_record_idx(jit_State *J, RecordIndex *ix); + +LJ_FUNC void lj_record_ins(jit_State *J); +LJ_FUNC void lj_record_setup(jit_State *J); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_snap.c b/src/3rd party/luajit-2.0/src/lj_snap.c new file mode 100644 index 00000000000..5c870bafd4c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_snap.c @@ -0,0 +1,866 @@ +/* +** Snapshot handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_snap_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_gc.h" +#include "lj_tab.h" +#include "lj_state.h" +#include "lj_frame.h" +#include "lj_bc.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_trace.h" +#include "lj_snap.h" +#include "lj_target.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cdata.h" +#endif + +/* Some local macros to save typing. Undef'd at the end. */ +#define IR(ref) (&J->cur.ir[(ref)]) + +/* Pass IR on to next optimization in chain (FOLD). */ +#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) + +/* Emit raw IR without passing through optimizations. */ +#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) + +/* -- Snapshot buffer allocation ------------------------------------------ */ + +/* Grow snapshot buffer. */ +void lj_snap_grow_buf_(jit_State *J, MSize need) +{ + MSize maxsnap = (MSize)J->param[JIT_P_maxsnap]; + if (need > maxsnap) + lj_trace_err(J, LJ_TRERR_SNAPOV); + lj_mem_growvec(J->L, J->snapbuf, J->sizesnap, maxsnap, SnapShot); + J->cur.snap = J->snapbuf; +} + +/* Grow snapshot map buffer. */ +void lj_snap_grow_map_(jit_State *J, MSize need) +{ + if (need < 2*J->sizesnapmap) + need = 2*J->sizesnapmap; + else if (need < 64) + need = 64; + J->snapmapbuf = (SnapEntry *)lj_mem_realloc(J->L, J->snapmapbuf, + J->sizesnapmap*sizeof(SnapEntry), need*sizeof(SnapEntry)); + J->cur.snapmap = J->snapmapbuf; + J->sizesnapmap = need; +} + +/* -- Snapshot generation ------------------------------------------------- */ + +/* Add all modified slots to the snapshot. */ +static MSize snapshot_slots(jit_State *J, SnapEntry *map, BCReg nslots) +{ + IRRef retf = J->chain[IR_RETF]; /* Limits SLOAD restore elimination. */ + BCReg s; + MSize n = 0; + for (s = 0; s < nslots; s++) { + TRef tr = J->slot[s]; + IRRef ref = tref_ref(tr); + if (ref) { + SnapEntry sn = SNAP_TR(s, tr); + IRIns *ir = IR(ref); + if (!(sn & (SNAP_CONT|SNAP_FRAME)) && + ir->o == IR_SLOAD && ir->op1 == s && ref > retf) { + /* No need to snapshot unmodified non-inherited slots. */ + if (!(ir->op2 & IRSLOAD_INHERIT)) + continue; + /* No need to restore readonly slots and unmodified non-parent slots. */ + if (!(LJ_DUALNUM && (ir->op2 & IRSLOAD_CONVERT)) && + (ir->op2 & (IRSLOAD_READONLY|IRSLOAD_PARENT)) != IRSLOAD_PARENT) + sn |= SNAP_NORESTORE; + } + if (LJ_SOFTFP && irt_isnum(ir->t)) + sn |= SNAP_SOFTFPNUM; + map[n++] = sn; + } + } + return n; +} + +/* Add frame links at the end of the snapshot. */ +static BCReg snapshot_framelinks(jit_State *J, SnapEntry *map) +{ + cTValue *frame = J->L->base - 1; + cTValue *lim = J->L->base - J->baseslot; + cTValue *ftop = frame + funcproto(frame_func(frame))->framesize; + MSize f = 0; + map[f++] = SNAP_MKPC(J->pc); /* The current PC is always the first entry. */ + while (frame > lim) { /* Backwards traversal of all frames above base. */ + if (frame_islua(frame)) { + map[f++] = SNAP_MKPC(frame_pc(frame)); + frame = frame_prevl(frame); + } else if (frame_iscont(frame)) { + map[f++] = SNAP_MKFTSZ(frame_ftsz(frame)); + map[f++] = SNAP_MKPC(frame_contpc(frame)); + frame = frame_prevd(frame); + } else { + lua_assert(!frame_isc(frame)); + map[f++] = SNAP_MKFTSZ(frame_ftsz(frame)); + frame = frame_prevd(frame); + continue; + } + if (frame + funcproto(frame_func(frame))->framesize > ftop) + ftop = frame + funcproto(frame_func(frame))->framesize; + } + lua_assert(f == (MSize)(1 + J->framedepth)); + return (BCReg)(ftop - lim); +} + +/* Take a snapshot of the current stack. */ +static void snapshot_stack(jit_State *J, SnapShot *snap, MSize nsnapmap) +{ + BCReg nslots = J->baseslot + J->maxslot; + MSize nent; + SnapEntry *p; + /* Conservative estimate. */ + lj_snap_grow_map(J, nsnapmap + nslots + (MSize)J->framedepth+1); + p = &J->cur.snapmap[nsnapmap]; + nent = snapshot_slots(J, p, nslots); + snap->topslot = (uint8_t)snapshot_framelinks(J, p + nent); + snap->mapofs = (uint16_t)nsnapmap; + snap->ref = (IRRef1)J->cur.nins; + snap->nent = (uint8_t)nent; + snap->nslots = (uint8_t)nslots; + snap->count = 0; + J->cur.nsnapmap = (uint16_t)(nsnapmap + nent + 1 + J->framedepth); +} + +/* Add or merge a snapshot. */ +void lj_snap_add(jit_State *J) +{ + MSize nsnap = J->cur.nsnap; + MSize nsnapmap = J->cur.nsnapmap; + /* Merge if no ins. inbetween or if requested and no guard inbetween. */ + if (J->mergesnap ? !irt_isguard(J->guardemit) : + (nsnap > 0 && J->cur.snap[nsnap-1].ref == J->cur.nins)) { + if (nsnap == 1) { /* But preserve snap #0 PC. */ + emitir_raw(IRT(IR_NOP, IRT_NIL), 0, 0); + goto nomerge; + } + nsnapmap = J->cur.snap[--nsnap].mapofs; + } else { + nomerge: + lj_snap_grow_buf(J, nsnap+1); + J->cur.nsnap = (uint16_t)(nsnap+1); + } + J->mergesnap = 0; + J->guardemit.irt = 0; + snapshot_stack(J, &J->cur.snap[nsnap], nsnapmap); +} + +/* -- Snapshot modification ----------------------------------------------- */ + +#define SNAP_USEDEF_SLOTS (LJ_MAX_JSLOTS+LJ_STACK_EXTRA) + +/* Find unused slots with reaching-definitions bytecode data-flow analysis. */ +static BCReg snap_usedef(jit_State *J, uint8_t *udf, + const BCIns *pc, BCReg maxslot) +{ + BCReg s; + GCobj *o; + + if (maxslot == 0) return 0; +#ifdef LUAJIT_USE_VALGRIND + /* Avoid errors for harmless reads beyond maxslot. */ + memset(udf, 1, SNAP_USEDEF_SLOTS); +#else + memset(udf, 1, maxslot); +#endif + + /* Treat open upvalues as used. */ + o = gcref(J->L->openupval); + while (o) { + if (uvval(gco2uv(o)) < J->L->base) break; + udf[uvval(gco2uv(o)) - J->L->base] = 0; + o = gcref(o->gch.nextgc); + } + +#define USE_SLOT(s) udf[(s)] &= ~1 +#define DEF_SLOT(s) udf[(s)] *= 3 + + /* Scan through following bytecode and check for uses/defs. */ + lua_assert(pc >= proto_bc(J->pt) && pc < proto_bc(J->pt) + J->pt->sizebc); + for (;;) { + BCIns ins = *pc++; + BCOp op = bc_op(ins); + switch (bcmode_b(op)) { + case BCMvar: USE_SLOT(bc_b(ins)); break; + default: break; + } + switch (bcmode_c(op)) { + case BCMvar: USE_SLOT(bc_c(ins)); break; + case BCMrbase: + lua_assert(op == BC_CAT); + for (s = bc_b(ins); s <= bc_c(ins); s++) USE_SLOT(s); + for (; s < maxslot; s++) DEF_SLOT(s); + break; + case BCMjump: + handle_jump: { + BCReg minslot = bc_a(ins); + if (op >= BC_FORI && op <= BC_JFORL) minslot += FORL_EXT; + else if (op >= BC_ITERL && op <= BC_JITERL) minslot += bc_b(pc[-2])-1; + else if (op == BC_UCLO) { pc += bc_j(ins); break; } + for (s = minslot; s < maxslot; s++) DEF_SLOT(s); + return minslot < maxslot ? minslot : maxslot; + } + case BCMlit: + if (op == BC_JFORL || op == BC_JITERL || op == BC_JLOOP) { + goto handle_jump; + } else if (bc_isret(op)) { + BCReg top = op == BC_RETM ? maxslot : (bc_a(ins) + bc_d(ins)-1); + for (s = 0; s < bc_a(ins); s++) DEF_SLOT(s); + for (; s < top; s++) USE_SLOT(s); + for (; s < maxslot; s++) DEF_SLOT(s); + return 0; + } + break; + case BCMfunc: return maxslot; /* NYI: will abort, anyway. */ + default: break; + } + switch (bcmode_a(op)) { + case BCMvar: USE_SLOT(bc_a(ins)); break; + case BCMdst: + if (!(op == BC_ISTC || op == BC_ISFC)) DEF_SLOT(bc_a(ins)); + break; + case BCMbase: + if (op >= BC_CALLM && op <= BC_VARG) { + BCReg top = (op == BC_CALLM || op == BC_CALLMT || bc_c(ins) == 0) ? + maxslot : (bc_a(ins) + bc_c(ins)); + s = bc_a(ins) - ((op == BC_ITERC || op == BC_ITERN) ? 3 : 0); + for (; s < top; s++) USE_SLOT(s); + for (; s < maxslot; s++) DEF_SLOT(s); + if (op == BC_CALLT || op == BC_CALLMT) { + for (s = 0; s < bc_a(ins); s++) DEF_SLOT(s); + return 0; + } + } else if (op == BC_KNIL) { + for (s = bc_a(ins); s <= bc_d(ins); s++) DEF_SLOT(s); + } else if (op == BC_TSETM) { + for (s = bc_a(ins)-1; s < maxslot; s++) USE_SLOT(s); + } + break; + default: break; + } + lua_assert(pc >= proto_bc(J->pt) && pc < proto_bc(J->pt) + J->pt->sizebc); + } + +#undef USE_SLOT +#undef DEF_SLOT + + return 0; /* unreachable */ +} + +/* Purge dead slots before the next snapshot. */ +void lj_snap_purge(jit_State *J) +{ + uint8_t udf[SNAP_USEDEF_SLOTS]; + BCReg maxslot = J->maxslot; + BCReg s = snap_usedef(J, udf, J->pc, maxslot); + for (; s < maxslot; s++) + if (udf[s] != 0) + J->base[s] = 0; /* Purge dead slots. */ +} + +/* Shrink last snapshot. */ +void lj_snap_shrink(jit_State *J) +{ + SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; + SnapEntry *map = &J->cur.snapmap[snap->mapofs]; + MSize n, m, nlim, nent = snap->nent; + uint8_t udf[SNAP_USEDEF_SLOTS]; + BCReg maxslot = J->maxslot; + BCReg minslot = snap_usedef(J, udf, snap_pc(map[nent]), maxslot); + BCReg baseslot = J->baseslot; + maxslot += baseslot; + minslot += baseslot; + snap->nslots = (uint8_t)maxslot; + for (n = m = 0; n < nent; n++) { /* Remove unused slots from snapshot. */ + BCReg s = snap_slot(map[n]); + if (s < minslot || (s < maxslot && udf[s-baseslot] == 0)) + map[m++] = map[n]; /* Only copy used slots. */ + } + snap->nent = (uint8_t)m; + nlim = J->cur.nsnapmap - snap->mapofs - 1; + while (n <= nlim) map[m++] = map[n++]; /* Move PC + frame links down. */ + J->cur.nsnapmap = (uint16_t)(snap->mapofs + m); /* Free up space in map. */ +} + +/* -- Snapshot access ----------------------------------------------------- */ + +/* Initialize a Bloom Filter with all renamed refs. +** There are very few renames (often none), so the filter has +** very few bits set. This makes it suitable for negative filtering. +*/ +static BloomFilter snap_renamefilter(GCtrace *T, SnapNo lim) +{ + BloomFilter rfilt = 0; + IRIns *ir; + for (ir = &T->ir[T->nins-1]; ir->o == IR_RENAME; ir--) + if (ir->op2 <= lim) + bloomset(rfilt, ir->op1); + return rfilt; +} + +/* Process matching renames to find the original RegSP. */ +static RegSP snap_renameref(GCtrace *T, SnapNo lim, IRRef ref, RegSP rs) +{ + IRIns *ir; + for (ir = &T->ir[T->nins-1]; ir->o == IR_RENAME; ir--) + if (ir->op1 == ref && ir->op2 <= lim) + rs = ir->prev; + return rs; +} + +/* Copy RegSP from parent snapshot to the parent links of the IR. */ +IRIns *lj_snap_regspmap(GCtrace *T, SnapNo snapno, IRIns *ir) +{ + SnapShot *snap = &T->snap[snapno]; + SnapEntry *map = &T->snapmap[snap->mapofs]; + BloomFilter rfilt = snap_renamefilter(T, snapno); + MSize n = 0; + IRRef ref = 0; + for ( ; ; ir++) { + uint32_t rs; + if (ir->o == IR_SLOAD) { + if (!(ir->op2 & IRSLOAD_PARENT)) break; + for ( ; ; n++) { + lua_assert(n < snap->nent); + if (snap_slot(map[n]) == ir->op1) { + ref = snap_ref(map[n++]); + break; + } + } + } else if (LJ_SOFTFP && ir->o == IR_HIOP) { + ref++; + } else if (ir->o == IR_PVAL) { + ref = ir->op1 + REF_BIAS; + } else { + break; + } + rs = T->ir[ref].prev; + if (bloomtest(rfilt, ref)) + rs = snap_renameref(T, snapno, ref, rs); + ir->prev = (uint16_t)rs; + lua_assert(regsp_used(rs)); + } + return ir; +} + +/* -- Snapshot replay ----------------------------------------------------- */ + +/* Replay constant from parent trace. */ +static TRef snap_replay_const(jit_State *J, IRIns *ir) +{ + /* Only have to deal with constants that can occur in stack slots. */ + switch ((IROp)ir->o) { + case IR_KPRI: return TREF_PRI(irt_type(ir->t)); + case IR_KINT: return lj_ir_kint(J, ir->i); + case IR_KGC: return lj_ir_kgc(J, ir_kgc(ir), irt_t(ir->t)); + case IR_KNUM: return lj_ir_k64(J, IR_KNUM, ir_knum(ir)); + case IR_KINT64: return lj_ir_k64(J, IR_KINT64, ir_kint64(ir)); + case IR_KPTR: return lj_ir_kptr(J, ir_kptr(ir)); /* Continuation. */ + default: lua_assert(0); return TREF_NIL; break; + } +} + +/* De-duplicate parent reference. */ +static TRef snap_dedup(jit_State *J, SnapEntry *map, MSize nmax, IRRef ref) +{ + MSize j; + for (j = 0; j < nmax; j++) + if (snap_ref(map[j]) == ref) + return J->slot[snap_slot(map[j])] & ~(SNAP_CONT|SNAP_FRAME); + return 0; +} + +/* Emit parent reference with de-duplication. */ +static TRef snap_pref(jit_State *J, GCtrace *T, SnapEntry *map, MSize nmax, + BloomFilter seen, IRRef ref) +{ + IRIns *ir = &T->ir[ref]; + TRef tr; + if (irref_isk(ref)) + tr = snap_replay_const(J, ir); + else if (!regsp_used(ir->prev)) + tr = 0; + else if (!bloomtest(seen, ref) || (tr = snap_dedup(J, map, nmax, ref)) == 0) + tr = emitir(IRT(IR_PVAL, irt_type(ir->t)), ref - REF_BIAS, 0); + return tr; +} + +/* Check whether a sunk store corresponds to an allocation. Slow path. */ +static int snap_sunk_store2(jit_State *J, IRIns *ira, IRIns *irs) +{ + if (irs->o == IR_ASTORE || irs->o == IR_HSTORE || + irs->o == IR_FSTORE || irs->o == IR_XSTORE) { + IRIns *irk = IR(irs->op1); + if (irk->o == IR_AREF || irk->o == IR_HREFK) + irk = IR(irk->op1); + return (IR(irk->op1) == ira); + } + return 0; +} + +/* Check whether a sunk store corresponds to an allocation. Fast path. */ +static LJ_AINLINE int snap_sunk_store(jit_State *J, IRIns *ira, IRIns *irs) +{ + if (irs->s != 255) + return (ira + irs->s == irs); /* Fast check. */ + return snap_sunk_store2(J, ira, irs); +} + +/* Replay snapshot state to setup side trace. */ +void lj_snap_replay(jit_State *J, GCtrace *T) +{ + SnapShot *snap = &T->snap[J->exitno]; + SnapEntry *map = &T->snapmap[snap->mapofs]; + MSize n, nent = snap->nent; + BloomFilter seen = 0; + int pass23 = 0; + J->framedepth = 0; + /* Emit IR for slots inherited from parent snapshot. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + BCReg s = snap_slot(sn); + IRRef ref = snap_ref(sn); + IRIns *ir = &T->ir[ref]; + TRef tr; + /* The bloom filter avoids O(nent^2) overhead for de-duping slots. */ + if (bloomtest(seen, ref) && (tr = snap_dedup(J, map, n, ref)) != 0) + goto setslot; + bloomset(seen, ref); + if (irref_isk(ref)) { + tr = snap_replay_const(J, ir); + } else if (!regsp_used(ir->prev)) { + pass23 = 1; + lua_assert(s != 0); + tr = s; + } else { + IRType t = irt_type(ir->t); + uint32_t mode = IRSLOAD_INHERIT|IRSLOAD_PARENT; + if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM)) t = IRT_NUM; + if (ir->o == IR_SLOAD) mode |= (ir->op2 & IRSLOAD_READONLY); + tr = emitir_raw(IRT(IR_SLOAD, t), s, mode); + } + setslot: + J->slot[s] = tr | (sn&(SNAP_CONT|SNAP_FRAME)); /* Same as TREF_* flags. */ + J->framedepth += ((sn & (SNAP_CONT|SNAP_FRAME)) && s); + if ((sn & SNAP_FRAME)) + J->baseslot = s+1; + } + if (pass23) { + IRIns *irlast = &T->ir[snap->ref]; + pass23 = 0; + /* Emit dependent PVALs. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + IRRef refp = snap_ref(sn); + IRIns *ir = &T->ir[refp]; + if (regsp_reg(ir->r) == RID_SUNK) { + if (J->slot[snap_slot(sn)] != snap_slot(sn)) continue; + pass23 = 1; + lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || + ir->o == IR_CNEW || ir->o == IR_CNEWI); + if (ir->op1 >= T->nk) snap_pref(J, T, map, nent, seen, ir->op1); + if (ir->op2 >= T->nk) snap_pref(J, T, map, nent, seen, ir->op2); + if (LJ_HASFFI && ir->o == IR_CNEWI) { + if (LJ_32 && refp+1 < T->nins && (ir+1)->o == IR_HIOP) + snap_pref(J, T, map, nent, seen, (ir+1)->op2); + } else { + IRIns *irs; + for (irs = ir+1; irs < irlast; irs++) + if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { + if (snap_pref(J, T, map, nent, seen, irs->op2) == 0) + snap_pref(J, T, map, nent, seen, T->ir[irs->op2].op1); + else if ((LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) && + irs+1 < irlast && (irs+1)->o == IR_HIOP) + snap_pref(J, T, map, nent, seen, (irs+1)->op2); + } + } + } else if (!irref_isk(refp) && !regsp_used(ir->prev)) { + lua_assert(ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); + J->slot[snap_slot(sn)] = snap_pref(J, T, map, nent, seen, ir->op1); + } + } + /* Replay sunk instructions. */ + for (n = 0; pass23 && n < nent; n++) { + SnapEntry sn = map[n]; + IRRef refp = snap_ref(sn); + IRIns *ir = &T->ir[refp]; + if (regsp_reg(ir->r) == RID_SUNK) { + TRef op1, op2; + if (J->slot[snap_slot(sn)] != snap_slot(sn)) { /* De-dup allocs. */ + J->slot[snap_slot(sn)] = J->slot[J->slot[snap_slot(sn)]]; + continue; + } + op1 = ir->op1; + if (op1 >= T->nk) op1 = snap_pref(J, T, map, nent, seen, op1); + op2 = ir->op2; + if (op2 >= T->nk) op2 = snap_pref(J, T, map, nent, seen, op2); + if (LJ_HASFFI && ir->o == IR_CNEWI) { + if (LJ_32 && refp+1 < T->nins && (ir+1)->o == IR_HIOP) { + lj_needsplit(J); /* Emit joining HIOP. */ + op2 = emitir_raw(IRT(IR_HIOP, IRT_I64), op2, + snap_pref(J, T, map, nent, seen, (ir+1)->op2)); + } + J->slot[snap_slot(sn)] = emitir(ir->ot, op1, op2); + } else { + IRIns *irs; + TRef tr = emitir(ir->ot, op1, op2); + J->slot[snap_slot(sn)] = tr; + for (irs = ir+1; irs < irlast; irs++) + if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { + IRIns *irr = &T->ir[irs->op1]; + TRef val, key = irr->op2, tmp = tr; + if (irr->o != IR_FREF) { + IRIns *irk = &T->ir[key]; + if (irr->o == IR_HREFK) + key = lj_ir_kslot(J, snap_replay_const(J, &T->ir[irk->op1]), + irk->op2); + else + key = snap_replay_const(J, irk); + if (irr->o == IR_HREFK || irr->o == IR_AREF) { + IRIns *irf = &T->ir[irr->op1]; + tmp = emitir(irf->ot, tmp, irf->op2); + } + } + tmp = emitir(irr->ot, tmp, key); + val = snap_pref(J, T, map, nent, seen, irs->op2); + if (val == 0) { + IRIns *irc = &T->ir[irs->op2]; + lua_assert(irc->o == IR_CONV && irc->op2 == IRCONV_NUM_INT); + val = snap_pref(J, T, map, nent, seen, irc->op1); + val = emitir(IRTN(IR_CONV), val, IRCONV_NUM_INT); + } else if ((LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) && + irs+1 < irlast && (irs+1)->o == IR_HIOP) { + IRType t = IRT_I64; + if (LJ_SOFTFP && irt_type((irs+1)->t) == IRT_SOFTFP) + t = IRT_NUM; + lj_needsplit(J); + if (irref_isk(irs->op2) && irref_isk((irs+1)->op2)) { + uint64_t k = (uint32_t)T->ir[irs->op2].i + + ((uint64_t)T->ir[(irs+1)->op2].i << 32); + val = lj_ir_k64(J, t == IRT_I64 ? IR_KINT64 : IR_KNUM, + lj_ir_k64_find(J, k)); + } else { + val = emitir_raw(IRT(IR_HIOP, t), val, + snap_pref(J, T, map, nent, seen, (irs+1)->op2)); + } + tmp = emitir(IRT(irs->o, t), tmp, val); + continue; + } + tmp = emitir(irs->ot, tmp, val); + } else if (LJ_HASFFI && irs->o == IR_XBAR && ir->o == IR_CNEW) { + emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); + } + } + } + } + } + J->base = J->slot + J->baseslot; + J->maxslot = snap->nslots - J->baseslot; + lj_snap_add(J); + if (pass23) /* Need explicit GC step _after_ initial snapshot. */ + emitir_raw(IRTG(IR_GCSTEP, IRT_NIL), 0, 0); +} + +/* -- Snapshot restore ---------------------------------------------------- */ + +static void snap_unsink(jit_State *J, GCtrace *T, ExitState *ex, + SnapNo snapno, BloomFilter rfilt, + IRIns *ir, TValue *o); + +/* Restore a value from the trace exit state. */ +static void snap_restoreval(jit_State *J, GCtrace *T, ExitState *ex, + SnapNo snapno, BloomFilter rfilt, + IRRef ref, TValue *o) +{ + IRIns *ir = &T->ir[ref]; + IRType1 t = ir->t; + RegSP rs = ir->prev; + if (irref_isk(ref)) { /* Restore constant slot. */ + lj_ir_kvalue(J->L, o, ir); + return; + } + if (LJ_UNLIKELY(bloomtest(rfilt, ref))) + rs = snap_renameref(T, snapno, ref, rs); + if (ra_hasspill(regsp_spill(rs))) { /* Restore from spill slot. */ + int32_t *sps = &ex->spill[regsp_spill(rs)]; + if (irt_isinteger(t)) { + setintV(o, *sps); +#if !LJ_SOFTFP + } else if (irt_isnum(t)) { + o->u64 = *(uint64_t *)sps; +#endif + } else if (LJ_64 && irt_islightud(t)) { + /* 64 bit lightuserdata which may escape already has the tag bits. */ + o->u64 = *(uint64_t *)sps; + } else { + lua_assert(!irt_ispri(t)); /* PRI refs never have a spill slot. */ + setgcrefi(o->gcr, *sps); + setitype(o, irt_toitype(t)); + } + } else { /* Restore from register. */ + Reg r = regsp_reg(rs); + if (ra_noreg(r)) { + lua_assert(ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); + snap_restoreval(J, T, ex, snapno, rfilt, ir->op1, o); + if (LJ_DUALNUM) setnumV(o, (lua_Number)intV(o)); + return; + } else if (irt_isinteger(t)) { + setintV(o, (int32_t)ex->gpr[r-RID_MIN_GPR]); +#if !LJ_SOFTFP + } else if (irt_isnum(t)) { + setnumV(o, ex->fpr[r-RID_MIN_FPR]); +#endif + } else if (LJ_64 && irt_islightud(t)) { + /* 64 bit lightuserdata which may escape already has the tag bits. */ + o->u64 = ex->gpr[r-RID_MIN_GPR]; + } else { + if (!irt_ispri(t)) + setgcrefi(o->gcr, ex->gpr[r-RID_MIN_GPR]); + setitype(o, irt_toitype(t)); + } + } +} + +#if LJ_HASFFI +/* Restore raw data from the trace exit state. */ +static void snap_restoredata(GCtrace *T, ExitState *ex, + SnapNo snapno, BloomFilter rfilt, + IRRef ref, void *dst, CTSize sz) +{ + IRIns *ir = &T->ir[ref]; + RegSP rs = ir->prev; + int32_t *src; + uint64_t tmp; + if (irref_isk(ref)) { + if (ir->o == IR_KNUM || ir->o == IR_KINT64) { + src = mref(ir->ptr, int32_t); + } else if (sz == 8) { + tmp = (uint64_t)(uint32_t)ir->i; + src = (int32_t *)&tmp; + } else { + src = &ir->i; + } + } else { + if (LJ_UNLIKELY(bloomtest(rfilt, ref))) + rs = snap_renameref(T, snapno, ref, rs); + if (ra_hasspill(regsp_spill(rs))) { + src = &ex->spill[regsp_spill(rs)]; + if (sz == 8 && !irt_is64(ir->t)) { + tmp = (uint64_t)(uint32_t)*src; + src = (int32_t *)&tmp; + } + } else { + Reg r = regsp_reg(rs); + if (ra_noreg(r)) { + /* Note: this assumes CNEWI is never used for SOFTFP split numbers. */ + lua_assert(sz == 8 && ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); + snap_restoredata(T, ex, snapno, rfilt, ir->op1, dst, 4); + *(lua_Number *)dst = (lua_Number)*(int32_t *)dst; + return; + } + src = (int32_t *)&ex->gpr[r-RID_MIN_GPR]; +#if !LJ_SOFTFP + if (r >= RID_MAX_GPR) { + src = (int32_t *)&ex->fpr[r-RID_MIN_FPR]; +#if LJ_TARGET_PPC + if (sz == 4) { /* PPC FPRs are always doubles. */ + *(float *)dst = (float)*(double *)src; + return; + } +#else + if (LJ_BE && sz == 4) src++; +#endif + } +#endif + } + } + lua_assert(sz == 1 || sz == 2 || sz == 4 || sz == 8); + if (sz == 4) *(int32_t *)dst = *src; + else if (sz == 8) *(int64_t *)dst = *(int64_t *)src; + else if (sz == 1) *(int8_t *)dst = (int8_t)*src; + else *(int16_t *)dst = (int16_t)*src; +} +#endif + +/* Unsink allocation from the trace exit state. Unsink sunk stores. */ +static void snap_unsink(jit_State *J, GCtrace *T, ExitState *ex, + SnapNo snapno, BloomFilter rfilt, + IRIns *ir, TValue *o) +{ + lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || + ir->o == IR_CNEW || ir->o == IR_CNEWI); +#if LJ_HASFFI + if (ir->o == IR_CNEW || ir->o == IR_CNEWI) { + CTState *cts = ctype_cts(J->L); + CTypeID id = (CTypeID)T->ir[ir->op1].i; + CTSize sz = lj_ctype_size(cts, id); + GCcdata *cd = lj_cdata_new(cts, id, sz); + setcdataV(J->L, o, cd); + if (ir->o == IR_CNEWI) { + uint8_t *p = (uint8_t *)cdataptr(cd); + lua_assert(sz == 4 || sz == 8); + if (LJ_32 && sz == 8 && ir+1 < T->ir + T->nins && (ir+1)->o == IR_HIOP) { + snap_restoredata(T, ex, snapno, rfilt, (ir+1)->op2, LJ_LE?p+4:p, 4); + if (LJ_BE) p += 4; + sz = 4; + } + snap_restoredata(T, ex, snapno, rfilt, ir->op2, p, sz); + } else { + IRIns *irs, *irlast = &T->ir[T->snap[snapno].ref]; + for (irs = ir+1; irs < irlast; irs++) + if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { + IRIns *iro = &T->ir[T->ir[irs->op1].op2]; + uint8_t *p = (uint8_t *)cd; + CTSize szs; + lua_assert(irs->o == IR_XSTORE && T->ir[irs->op1].o == IR_ADD); + lua_assert(iro->o == IR_KINT || iro->o == IR_KINT64); + if (irt_is64(irs->t)) szs = 8; + else if (irt_isi8(irs->t) || irt_isu8(irs->t)) szs = 1; + else if (irt_isi16(irs->t) || irt_isu16(irs->t)) szs = 2; + else szs = 4; + if (LJ_64 && iro->o == IR_KINT64) + p += (int64_t)ir_k64(iro)->u64; + else + p += iro->i; + lua_assert(p >= (uint8_t *)cdataptr(cd) && + p + szs <= (uint8_t *)cdataptr(cd) + sz); + if (LJ_32 && irs+1 < T->ir + T->nins && (irs+1)->o == IR_HIOP) { + lua_assert(szs == 4); + snap_restoredata(T, ex, snapno, rfilt, (irs+1)->op2, LJ_LE?p+4:p,4); + if (LJ_BE) p += 4; + } + snap_restoredata(T, ex, snapno, rfilt, irs->op2, p, szs); + } + } + } else +#endif + { + IRIns *irs, *irlast; + GCtab *t = ir->o == IR_TNEW ? lj_tab_new(J->L, ir->op1, ir->op2) : + lj_tab_dup(J->L, ir_ktab(&T->ir[ir->op1])); + settabV(J->L, o, t); + irlast = &T->ir[T->snap[snapno].ref]; + for (irs = ir+1; irs < irlast; irs++) + if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { + IRIns *irk = &T->ir[irs->op1]; + TValue tmp, *val; + lua_assert(irs->o == IR_ASTORE || irs->o == IR_HSTORE || + irs->o == IR_FSTORE); + if (irk->o == IR_FREF) { + lua_assert(irk->op2 == IRFL_TAB_META); + snap_restoreval(J, T, ex, snapno, rfilt, irs->op2, &tmp); + /* NOBARRIER: The table is new (marked white). */ + setgcref(t->metatable, obj2gco(tabV(&tmp))); + } else { + irk = &T->ir[irk->op2]; + if (irk->o == IR_KSLOT) irk = &T->ir[irk->op1]; + lj_ir_kvalue(J->L, &tmp, irk); + val = lj_tab_set(J->L, t, &tmp); + /* NOBARRIER: The table is new (marked white). */ + snap_restoreval(J, T, ex, snapno, rfilt, irs->op2, val); + if (LJ_SOFTFP && irs+1 < T->ir + T->nins && (irs+1)->o == IR_HIOP) { + snap_restoreval(J, T, ex, snapno, rfilt, (irs+1)->op2, &tmp); + val->u32.hi = tmp.u32.lo; + } + } + } + } +} + +/* Restore interpreter state from exit state with the help of a snapshot. */ +const BCIns *lj_snap_restore(jit_State *J, void *exptr) +{ + ExitState *ex = (ExitState *)exptr; + SnapNo snapno = J->exitno; /* For now, snapno == exitno. */ + GCtrace *T = traceref(J, J->parent); + SnapShot *snap = &T->snap[snapno]; + MSize n, nent = snap->nent; + SnapEntry *map = &T->snapmap[snap->mapofs]; + SnapEntry *flinks = &T->snapmap[snap_nextofs(T, snap)-1]; + int32_t ftsz0; + TValue *frame; + BloomFilter rfilt = snap_renamefilter(T, snapno); + const BCIns *pc = snap_pc(map[nent]); + lua_State *L = J->L; + + /* Set interpreter PC to the next PC to get correct error messages. */ + setcframe_pc(cframe_raw(L->cframe), pc+1); + + /* Make sure the stack is big enough for the slots from the snapshot. */ + if (LJ_UNLIKELY(L->base + snap->topslot >= tvref(L->maxstack))) { + L->top = curr_topL(L); + lj_state_growstack(L, snap->topslot - curr_proto(L)->framesize); + } + + /* Fill stack slots with data from the registers and spill slots. */ + frame = L->base-1; + ftsz0 = frame_ftsz(frame); /* Preserve link to previous frame in slot #0. */ + for (n = 0; n < nent; n++) { + SnapEntry sn = map[n]; + if (!(sn & SNAP_NORESTORE)) { + TValue *o = &frame[snap_slot(sn)]; + IRRef ref = snap_ref(sn); + IRIns *ir = &T->ir[ref]; + if (ir->r == RID_SUNK) { + MSize j; + for (j = 0; j < n; j++) + if (snap_ref(map[j]) == ref) { /* De-duplicate sunk allocations. */ + copyTV(L, o, &frame[snap_slot(map[j])]); + goto dupslot; + } + snap_unsink(J, T, ex, snapno, rfilt, ir, o); + dupslot: + continue; + } + snap_restoreval(J, T, ex, snapno, rfilt, ref, o); + if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && tvisint(o)) { + TValue tmp; + snap_restoreval(J, T, ex, snapno, rfilt, ref+1, &tmp); + o->u32.hi = tmp.u32.lo; + } else if ((sn & (SNAP_CONT|SNAP_FRAME))) { + /* Overwrite tag with frame link. */ + o->fr.tp.ftsz = snap_slot(sn) != 0 ? (int32_t)*flinks-- : ftsz0; + L->base = o+1; + } + } + } + lua_assert(map + nent == flinks); + + /* Compute current stack top. */ + switch (bc_op(*pc)) { + default: + if (bc_op(*pc) < BC_FUNCF) { + L->top = curr_topL(L); + break; + } + /* fallthrough */ + case BC_CALLM: case BC_CALLMT: case BC_RETM: case BC_TSETM: + L->top = frame + snap->nslots; + break; + } + return pc; +} + +#undef IR +#undef emitir_raw +#undef emitir + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_snap.h b/src/3rd party/luajit-2.0/src/lj_snap.h new file mode 100644 index 00000000000..9a125be7fb9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_snap.h @@ -0,0 +1,34 @@ +/* +** Snapshot handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_SNAP_H +#define _LJ_SNAP_H + +#include "lj_obj.h" +#include "lj_jit.h" + +#if LJ_HASJIT +LJ_FUNC void lj_snap_add(jit_State *J); +LJ_FUNC void lj_snap_purge(jit_State *J); +LJ_FUNC void lj_snap_shrink(jit_State *J); +LJ_FUNC IRIns *lj_snap_regspmap(GCtrace *T, SnapNo snapno, IRIns *ir); +LJ_FUNC void lj_snap_replay(jit_State *J, GCtrace *T); +LJ_FUNC const BCIns *lj_snap_restore(jit_State *J, void *exptr); +LJ_FUNC void lj_snap_grow_buf_(jit_State *J, MSize need); +LJ_FUNC void lj_snap_grow_map_(jit_State *J, MSize need); + +static LJ_AINLINE void lj_snap_grow_buf(jit_State *J, MSize need) +{ + if (LJ_UNLIKELY(need > J->sizesnap)) lj_snap_grow_buf_(J, need); +} + +static LJ_AINLINE void lj_snap_grow_map(jit_State *J, MSize need) +{ + if (LJ_UNLIKELY(need > J->sizesnapmap)) lj_snap_grow_map_(J, need); +} + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_state.c b/src/3rd party/luajit-2.0/src/lj_state.c new file mode 100644 index 00000000000..e654afaeb98 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_state.c @@ -0,0 +1,287 @@ +/* +** State and stack handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_state_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_func.h" +#include "lj_meta.h" +#include "lj_state.h" +#include "lj_frame.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif +#include "lj_trace.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_lex.h" +#include "lj_alloc.h" + +/* -- Stack handling ------------------------------------------------------ */ + +/* Stack sizes. */ +#define LJ_STACK_MIN LUA_MINSTACK /* Min. stack size. */ +#define LJ_STACK_MAX LUAI_MAXSTACK /* Max. stack size. */ +#define LJ_STACK_START (2*LJ_STACK_MIN) /* Starting stack size. */ +#define LJ_STACK_MAXEX (LJ_STACK_MAX + 1 + LJ_STACK_EXTRA) + +/* Explanation of LJ_STACK_EXTRA: +** +** Calls to metamethods store their arguments beyond the current top +** without checking for the stack limit. This avoids stack resizes which +** would invalidate passed TValue pointers. The stack check is performed +** later by the function header. This can safely resize the stack or raise +** an error. Thus we need some extra slots beyond the current stack limit. +** +** Most metamethods need 4 slots above top (cont, mobj, arg1, arg2) plus +** one extra slot if mobj is not a function. Only lj_meta_tset needs 5 +** slots above top, but then mobj is always a function. So we can get by +** with 5 extra slots. +*/ + +/* Resize stack slots and adjust pointers in state. */ +static void resizestack(lua_State *L, MSize n) +{ + TValue *st, *oldst = tvref(L->stack); + ptrdiff_t delta; + MSize oldsize = L->stacksize; + MSize realsize = n + 1 + LJ_STACK_EXTRA; + GCobj *up; + lua_assert((MSize)(tvref(L->maxstack)-oldst)==L->stacksize-LJ_STACK_EXTRA-1); + st = (TValue *)lj_mem_realloc(L, tvref(L->stack), + (MSize)(L->stacksize*sizeof(TValue)), + (MSize)(realsize*sizeof(TValue))); + setmref(L->stack, st); + delta = (char *)st - (char *)oldst; + setmref(L->maxstack, st + n); + while (oldsize < realsize) /* Clear new slots. */ + setnilV(st + oldsize++); + L->stacksize = realsize; + L->base = (TValue *)((char *)L->base + delta); + L->top = (TValue *)((char *)L->top + delta); + for (up = gcref(L->openupval); up != NULL; up = gcnext(up)) + setmref(gco2uv(up)->v, (TValue *)((char *)uvval(gco2uv(up)) + delta)); + if (obj2gco(L) == gcref(G(L)->jit_L)) + setmref(G(L)->jit_base, mref(G(L)->jit_base, char) + delta); +} + +/* Relimit stack after error, in case the limit was overdrawn. */ +void lj_state_relimitstack(lua_State *L) +{ + if (L->stacksize > LJ_STACK_MAXEX && L->top-tvref(L->stack) < LJ_STACK_MAX-1) + resizestack(L, LJ_STACK_MAX); +} + +/* Try to shrink the stack (called from GC). */ +void lj_state_shrinkstack(lua_State *L, MSize used) +{ + if (L->stacksize > LJ_STACK_MAXEX) + return; /* Avoid stack shrinking while handling stack overflow. */ + if (4*used < L->stacksize && + 2*(LJ_STACK_START+LJ_STACK_EXTRA) < L->stacksize && + obj2gco(L) != gcref(G(L)->jit_L)) /* Don't shrink stack of live trace. */ + resizestack(L, L->stacksize >> 1); +} + +/* Try to grow stack. */ +void LJ_FASTCALL lj_state_growstack(lua_State *L, MSize need) +{ + MSize n; + if (L->stacksize > LJ_STACK_MAXEX) /* Overflow while handling overflow? */ + lj_err_throw(L, LUA_ERRERR); + n = L->stacksize + need; + if (n > LJ_STACK_MAX) { + n += 2*LUA_MINSTACK; + } else if (n < 2*L->stacksize) { + n = 2*L->stacksize; + if (n >= LJ_STACK_MAX) + n = LJ_STACK_MAX; + } + resizestack(L, n); + if (L->stacksize > LJ_STACK_MAXEX) + lj_err_msg(L, LJ_ERR_STKOV); +} + +void LJ_FASTCALL lj_state_growstack1(lua_State *L) +{ + lj_state_growstack(L, 1); +} + +/* Allocate basic stack for new state. */ +static void stack_init(lua_State *L1, lua_State *L) +{ + TValue *stend, *st = lj_mem_newvec(L, LJ_STACK_START+LJ_STACK_EXTRA, TValue); + setmref(L1->stack, st); + L1->stacksize = LJ_STACK_START + LJ_STACK_EXTRA; + stend = st + L1->stacksize; + setmref(L1->maxstack, stend - LJ_STACK_EXTRA - 1); + L1->base = L1->top = st+1; + setthreadV(L1, st, L1); /* Needed for curr_funcisL() on empty stack. */ + while (st < stend) /* Clear new slots. */ + setnilV(st++); +} + +/* -- State handling ------------------------------------------------------ */ + +/* Open parts that may cause memory-allocation errors. */ +static TValue *cpluaopen(lua_State *L, lua_CFunction dummy, void *ud) +{ + global_State *g = G(L); + UNUSED(dummy); + UNUSED(ud); + stack_init(L, L); + /* NOBARRIER: State initialization, all objects are white. */ + setgcref(L->env, obj2gco(lj_tab_new(L, 0, LJ_MIN_GLOBAL))); + settabV(L, registry(L), lj_tab_new(L, 0, LJ_MIN_REGISTRY)); + lj_str_resize(L, LJ_MIN_STRTAB-1); + lj_meta_init(L); + lj_lex_init(L); + fixstring(lj_err_str(L, LJ_ERR_ERRMEM)); /* Preallocate memory error msg. */ + g->gc.threshold = 4*g->gc.total; + lj_trace_initstate(g); + return NULL; +} + +static void close_state(lua_State *L) +{ + global_State *g = G(L); + lj_func_closeuv(L, tvref(L->stack)); + lj_gc_freeall(g); + lua_assert(gcref(g->gc.root) == obj2gco(L)); + lua_assert(g->strnum == 0); + lj_trace_freestate(g); +#if LJ_HASFFI + lj_ctype_freestate(g); +#endif + lj_mem_freevec(g, g->strhash, g->strmask+1, GCRef); + lj_str_freebuf(g, &g->tmpbuf); + lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); + lua_assert(g->gc.total == sizeof(GG_State)); +#ifndef LUAJIT_USE_SYSMALLOC + if (g->allocf == lj_alloc_f) + lj_alloc_destroy(g->allocd); + else +#endif + g->allocf(g->allocd, G2GG(g), sizeof(GG_State), 0); +} + +#if LJ_64 && !(defined(LUAJIT_USE_VALGRIND) && defined(LUAJIT_USE_SYSMALLOC)) +lua_State *lj_state_newstate(lua_Alloc f, void *ud) +#else +LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) +#endif +{ + GG_State *GG = (GG_State *)f(ud, NULL, 0, sizeof(GG_State)); + lua_State *L = &GG->L; + global_State *g = &GG->g; + if (GG == NULL || !checkptr32(GG)) return NULL; + memset(GG, 0, sizeof(GG_State)); + L->gct = ~LJ_TTHREAD; + L->marked = LJ_GC_WHITE0 | LJ_GC_FIXED | LJ_GC_SFIXED; /* Prevent free. */ + L->dummy_ffid = FF_C; + setmref(L->glref, g); + g->gc.currentwhite = LJ_GC_WHITE0 | LJ_GC_FIXED; + g->strempty.marked = LJ_GC_WHITE0; + g->strempty.gct = ~LJ_TSTR; + g->allocf = f; + g->allocd = ud; + setgcref(g->mainthref, obj2gco(L)); + setgcref(g->uvhead.prev, obj2gco(&g->uvhead)); + setgcref(g->uvhead.next, obj2gco(&g->uvhead)); + g->strmask = ~(MSize)0; + setnilV(registry(L)); + setnilV(&g->nilnode.val); + setnilV(&g->nilnode.key); + setmref(g->nilnode.freetop, &g->nilnode); + lj_str_initbuf(&g->tmpbuf); + g->gc.state = GCSpause; + setgcref(g->gc.root, obj2gco(L)); + setmref(g->gc.sweep, &g->gc.root); + g->gc.total = sizeof(GG_State); + g->gc.pause = LUAI_GCPAUSE; + g->gc.stepmul = LUAI_GCMUL; + lj_dispatch_init((GG_State *)L); + L->status = LUA_ERRERR+1; /* Avoid touching the stack upon memory error. */ + if (lj_vm_cpcall(L, NULL, NULL, cpluaopen) != 0) { + /* Memory allocation error: free partial state. */ + close_state(L); + return NULL; + } + L->status = 0; + return L; +} + +static TValue *cpfinalize(lua_State *L, lua_CFunction dummy, void *ud) +{ + UNUSED(dummy); + UNUSED(ud); + lj_gc_finalize_cdata(L); + lj_gc_finalize_udata(L); + /* Frame pop omitted. */ + return NULL; +} + +LUA_API void lua_close(lua_State *L) +{ + global_State *g = G(L); + int i; + L = mainthread(g); /* Only the main thread can be closed. */ + lj_func_closeuv(L, tvref(L->stack)); + lj_gc_separateudata(g, 1); /* Separate udata which have GC metamethods. */ +#if LJ_HASJIT + G2J(g)->flags &= ~JIT_F_ON; + G2J(g)->state = LJ_TRACE_IDLE; + lj_dispatch_update(g); +#endif + for (i = 0;;) { + hook_enter(g); + L->status = 0; + L->cframe = NULL; + L->base = L->top = tvref(L->stack) + 1; + if (lj_vm_cpcall(L, NULL, NULL, cpfinalize) == 0) { + if (++i >= 10) break; + lj_gc_separateudata(g, 1); /* Separate udata again. */ + if (gcref(g->gc.mmudata) == NULL) /* Until nothing is left to do. */ + break; + } + } + close_state(L); +} + +lua_State *lj_state_new(lua_State *L) +{ + lua_State *L1 = lj_mem_newobj(L, lua_State); + L1->gct = ~LJ_TTHREAD; + L1->dummy_ffid = FF_C; + L1->status = 0; + L1->stacksize = 0; + setmref(L1->stack, NULL); + L1->cframe = NULL; + /* NOBARRIER: The lua_State is new (marked white). */ + setgcrefnull(L1->openupval); + setmrefr(L1->glref, L->glref); + setgcrefr(L1->env, L->env); + stack_init(L1, L); /* init stack */ + lua_assert(iswhite(obj2gco(L1))); + return L1; +} + +void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L) +{ + lua_assert(L != mainthread(g)); + lj_func_closeuv(L, tvref(L->stack)); + lua_assert(gcref(L->openupval) == NULL); + lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); + lj_mem_freet(g, L); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_state.h b/src/3rd party/luajit-2.0/src/lj_state.h new file mode 100644 index 00000000000..687889a2613 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_state.h @@ -0,0 +1,35 @@ +/* +** State and stack handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_STATE_H +#define _LJ_STATE_H + +#include "lj_obj.h" + +#define incr_top(L) \ + (++L->top >= tvref(L->maxstack) && (lj_state_growstack1(L), 0)) + +#define savestack(L, p) ((char *)(p) - mref(L->stack, char)) +#define restorestack(L, n) ((TValue *)(mref(L->stack, char) + (n))) + +LJ_FUNC void lj_state_relimitstack(lua_State *L); +LJ_FUNC void lj_state_shrinkstack(lua_State *L, MSize used); +LJ_FUNCA void LJ_FASTCALL lj_state_growstack(lua_State *L, MSize need); +LJ_FUNC void LJ_FASTCALL lj_state_growstack1(lua_State *L); + +static LJ_AINLINE void lj_state_checkstack(lua_State *L, MSize need) +{ + if ((mref(L->maxstack, char) - (char *)L->top) <= + (ptrdiff_t)need*(ptrdiff_t)sizeof(TValue)) + lj_state_growstack(L, need); +} + +LJ_FUNC lua_State *lj_state_new(lua_State *L); +LJ_FUNC void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L); +#if LJ_64 +LJ_FUNC lua_State *lj_state_newstate(lua_Alloc f, void *ud); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_str.c b/src/3rd party/luajit-2.0/src/lj_str.c new file mode 100644 index 00000000000..ca60bccb7ff --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_str.c @@ -0,0 +1,339 @@ +/* +** String handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include + +#define lj_str_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_str.h" +#include "lj_state.h" +#include "lj_char.h" + +/* -- String interning ---------------------------------------------------- */ + +/* Ordered compare of strings. Assumes string data is 4-byte aligned. */ +int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b) +{ + MSize i, n = a->len > b->len ? b->len : a->len; + for (i = 0; i < n; i += 4) { + /* Note: innocuous access up to end of string + 3. */ + uint32_t va = *(const uint32_t *)(strdata(a)+i); + uint32_t vb = *(const uint32_t *)(strdata(b)+i); + if (va != vb) { +#if LJ_LE + va = lj_bswap(va); vb = lj_bswap(vb); +#endif + i -= n; + if ((int32_t)i >= -3) { + va >>= 32+(i<<3); vb >>= 32+(i<<3); + if (va == vb) break; + } + return va < vb ? -1 : 1; + } + } + return (int32_t)(a->len - b->len); +} + +/* Fast string data comparison. Caveat: unaligned access to 1st string! */ +static LJ_AINLINE int str_fastcmp(const char *a, const char *b, MSize len) +{ + MSize i = 0; + lua_assert(len > 0); + lua_assert((((uintptr_t)a+len-1) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4); + do { /* Note: innocuous access up to end of string + 3. */ + uint32_t v = lj_getu32(a+i) ^ *(const uint32_t *)(b+i); + if (v) { + i -= len; +#if LJ_LE + return (int32_t)i >= -3 ? (v << (32+(i<<3))) : 1; +#else + return (int32_t)i >= -3 ? (v >> (32+(i<<3))) : 1; +#endif + } + i += 4; + } while (i < len); + return 0; +} + +/* Resize the string hash table (grow and shrink). */ +void lj_str_resize(lua_State *L, MSize newmask) +{ + global_State *g = G(L); + GCRef *newhash; + MSize i; + if (g->gc.state == GCSsweepstring || newmask >= LJ_MAX_STRTAB-1) + return; /* No resizing during GC traversal or if already too big. */ + newhash = lj_mem_newvec(L, newmask+1, GCRef); + memset(newhash, 0, (newmask+1)*sizeof(GCRef)); + for (i = g->strmask; i != ~(MSize)0; i--) { /* Rehash old table. */ + GCobj *p = gcref(g->strhash[i]); + while (p) { /* Follow each hash chain and reinsert all strings. */ + MSize h = gco2str(p)->hash & newmask; + GCobj *next = gcnext(p); + /* NOBARRIER: The string table is a GC root. */ + setgcrefr(p->gch.nextgc, newhash[h]); + setgcref(newhash[h], p); + p = next; + } + } + lj_mem_freevec(g, g->strhash, g->strmask+1, GCRef); + g->strmask = newmask; + g->strhash = newhash; +} + +/* Intern a string and return string object. */ +GCstr *lj_str_new(lua_State *L, const char *str, size_t lenx) +{ + global_State *g; + GCstr *s; + GCobj *o; + MSize len = (MSize)lenx; + MSize a, b, h = len; + if (lenx >= LJ_MAX_STR) + lj_err_msg(L, LJ_ERR_STROV); + g = G(L); + /* Compute string hash. Constants taken from lookup3 hash by Bob Jenkins. */ + if (len >= 4) { /* Caveat: unaligned access! */ + a = lj_getu32(str); + h ^= lj_getu32(str+len-4); + b = lj_getu32(str+(len>>1)-2); + h ^= b; h -= lj_rol(b, 14); + b += lj_getu32(str+(len>>2)-1); + } else if (len > 0) { + a = *(const uint8_t *)str; + h ^= *(const uint8_t *)(str+len-1); + b = *(const uint8_t *)(str+(len>>1)); + h ^= b; h -= lj_rol(b, 14); + } else { + return &g->strempty; + } + a ^= h; a -= lj_rol(h, 11); + b ^= a; b -= lj_rol(a, 25); + h ^= b; h -= lj_rol(b, 16); + /* Check if the string has already been interned. */ + o = gcref(g->strhash[h & g->strmask]); + if (LJ_LIKELY((((uintptr_t)str+len-1) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4)) { + while (o != NULL) { + GCstr *sx = gco2str(o); + if (sx->len == len && str_fastcmp(str, strdata(sx), len) == 0) { + /* Resurrect if dead. Can only happen with fixstring() (keywords). */ + if (isdead(g, o)) flipwhite(o); + return sx; /* Return existing string. */ + } + o = gcnext(o); + } + } else { /* Slow path: end of string is too close to a page boundary. */ + while (o != NULL) { + GCstr *sx = gco2str(o); + if (sx->len == len && memcmp(str, strdata(sx), len) == 0) { + /* Resurrect if dead. Can only happen with fixstring() (keywords). */ + if (isdead(g, o)) flipwhite(o); + return sx; /* Return existing string. */ + } + o = gcnext(o); + } + } + /* Nope, create a new string. */ + s = lj_mem_newt(L, sizeof(GCstr)+len+1, GCstr); + newwhite(g, s); + s->gct = ~LJ_TSTR; + s->len = len; + s->hash = h; + s->reserved = 0; + memcpy(strdatawr(s), str, len); + strdatawr(s)[len] = '\0'; /* Zero-terminate string. */ + /* Add it to string hash table. */ + h &= g->strmask; + s->nextgc = g->strhash[h]; + /* NOBARRIER: The string table is a GC root. */ + setgcref(g->strhash[h], obj2gco(s)); + if (g->strnum++ > g->strmask) /* Allow a 100% load factor. */ + lj_str_resize(L, (g->strmask<<1)+1); /* Grow string table. */ + return s; /* Return newly interned string. */ +} + +void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s) +{ + g->strnum--; + lj_mem_free(g, s, sizestring(s)); +} + +/* -- Type conversions ---------------------------------------------------- */ + +/* Print number to buffer. Canonicalizes non-finite values. */ +size_t LJ_FASTCALL lj_str_bufnum(char *s, cTValue *o) +{ + if (LJ_LIKELY((o->u32.hi << 1) < 0xffe00000)) { /* Finite? */ + lua_Number n = o->n; +#if __BIONIC__ + if (tvismzero(o)) { s[0] = '-'; s[1] = '0'; return 2; } +#endif + return (size_t)lua_number2str(s, n); + } else if (((o->u32.hi & 0x000fffff) | o->u32.lo) != 0) { + s[0] = 'n'; s[1] = 'a'; s[2] = 'n'; return 3; + } else if ((o->u32.hi & 0x80000000) == 0) { + s[0] = 'i'; s[1] = 'n'; s[2] = 'f'; return 3; + } else { + s[0] = '-'; s[1] = 'i'; s[2] = 'n'; s[3] = 'f'; return 4; + } +} + +/* Print integer to buffer. Returns pointer to start. */ +char * LJ_FASTCALL lj_str_bufint(char *p, int32_t k) +{ + uint32_t u = (uint32_t)(k < 0 ? -k : k); + p += 1+10; + do { *--p = (char)('0' + u % 10); } while (u /= 10); + if (k < 0) *--p = '-'; + return p; +} + +/* Convert number to string. */ +GCstr * LJ_FASTCALL lj_str_fromnum(lua_State *L, const lua_Number *np) +{ + char buf[LJ_STR_NUMBUF]; + size_t len = lj_str_bufnum(buf, (TValue *)np); + return lj_str_new(L, buf, len); +} + +/* Convert integer to string. */ +GCstr * LJ_FASTCALL lj_str_fromint(lua_State *L, int32_t k) +{ + char s[1+10]; + char *p = lj_str_bufint(s, k); + return lj_str_new(L, p, (size_t)(s+sizeof(s)-p)); +} + +GCstr * LJ_FASTCALL lj_str_fromnumber(lua_State *L, cTValue *o) +{ + return tvisint(o) ? lj_str_fromint(L, intV(o)) : lj_str_fromnum(L, &o->n); +} + +/* -- String formatting --------------------------------------------------- */ + +static void addstr(lua_State *L, SBuf *sb, const char *str, MSize len) +{ + char *p; + MSize i; + if (sb->n + len > sb->sz) { + MSize sz = sb->sz * 2; + while (sb->n + len > sz) sz = sz * 2; + lj_str_resizebuf(L, sb, sz); + } + p = sb->buf + sb->n; + sb->n += len; + for (i = 0; i < len; i++) p[i] = str[i]; +} + +static void addchar(lua_State *L, SBuf *sb, int c) +{ + if (sb->n + 1 > sb->sz) { + MSize sz = sb->sz * 2; + lj_str_resizebuf(L, sb, sz); + } + sb->buf[sb->n++] = (char)c; +} + +/* Push formatted message as a string object to Lua stack. va_list variant. */ +const char *lj_str_pushvf(lua_State *L, const char *fmt, va_list argp) +{ + SBuf *sb = &G(L)->tmpbuf; + lj_str_needbuf(L, sb, (MSize)strlen(fmt)); + lj_str_resetbuf(sb); + for (;;) { + const char *e = strchr(fmt, '%'); + if (e == NULL) break; + addstr(L, sb, fmt, (MSize)(e-fmt)); + /* This function only handles %s, %c, %d, %f and %p formats. */ + switch (e[1]) { + case 's': { + const char *s = va_arg(argp, char *); + if (s == NULL) s = "(null)"; + addstr(L, sb, s, (MSize)strlen(s)); + break; + } + case 'c': + addchar(L, sb, va_arg(argp, int)); + break; + case 'd': { + char buf[LJ_STR_INTBUF]; + char *p = lj_str_bufint(buf, va_arg(argp, int32_t)); + addstr(L, sb, p, (MSize)(buf+LJ_STR_INTBUF-p)); + break; + } + case 'f': { + char buf[LJ_STR_NUMBUF]; + TValue tv; + MSize len; + tv.n = (lua_Number)(va_arg(argp, LUAI_UACNUMBER)); + len = (MSize)lj_str_bufnum(buf, &tv); + addstr(L, sb, buf, len); + break; + } + case 'p': { +#define FMTP_CHARS (2*sizeof(ptrdiff_t)) + char buf[2+FMTP_CHARS]; + ptrdiff_t p = (ptrdiff_t)(va_arg(argp, void *)); + ptrdiff_t i, lasti = 2+FMTP_CHARS; + if (p == 0) { + addstr(L, sb, "NULL", 4); + break; + } +#if LJ_64 + /* Shorten output for 64 bit pointers. */ + lasti = 2+2*4+((p >> 32) ? 2+2*(lj_fls((uint32_t)(p >> 32))>>3) : 0); +#endif + buf[0] = '0'; + buf[1] = 'x'; + for (i = lasti-1; i >= 2; i--, p >>= 4) + buf[i] = "0123456789abcdef"[(p & 15)]; + addstr(L, sb, buf, (MSize)lasti); + break; + } + case '%': + addchar(L, sb, '%'); + break; + default: + addchar(L, sb, '%'); + addchar(L, sb, e[1]); + break; + } + fmt = e+2; + } + addstr(L, sb, fmt, (MSize)strlen(fmt)); + setstrV(L, L->top, lj_str_new(L, sb->buf, sb->n)); + incr_top(L); + return strVdata(L->top - 1); +} + +/* Push formatted message as a string object to Lua stack. Vararg variant. */ +const char *lj_str_pushf(lua_State *L, const char *fmt, ...) +{ + const char *msg; + va_list argp; + va_start(argp, fmt); + msg = lj_str_pushvf(L, fmt, argp); + va_end(argp); + return msg; +} + +/* -- Buffer handling ----------------------------------------------------- */ + +char *lj_str_needbuf(lua_State *L, SBuf *sb, MSize sz) +{ + if (sz > sb->sz) { + if (sz < LJ_MIN_SBUF) sz = LJ_MIN_SBUF; + lj_str_resizebuf(L, sb, sz); + } + return sb->buf; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_str.h b/src/3rd party/luajit-2.0/src/lj_str.h new file mode 100644 index 00000000000..99697051d9b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_str.h @@ -0,0 +1,50 @@ +/* +** String handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_STR_H +#define _LJ_STR_H + +#include + +#include "lj_obj.h" + +/* String interning. */ +LJ_FUNC int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b); +LJ_FUNC void lj_str_resize(lua_State *L, MSize newmask); +LJ_FUNCA GCstr *lj_str_new(lua_State *L, const char *str, size_t len); +LJ_FUNC void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s); + +#define lj_str_newz(L, s) (lj_str_new(L, s, strlen(s))) +#define lj_str_newlit(L, s) (lj_str_new(L, "" s, sizeof(s)-1)) + +/* Type conversions. */ +LJ_FUNC size_t LJ_FASTCALL lj_str_bufnum(char *s, cTValue *o); +LJ_FUNC char * LJ_FASTCALL lj_str_bufint(char *p, int32_t k); +LJ_FUNCA GCstr * LJ_FASTCALL lj_str_fromnum(lua_State *L, const lua_Number *np); +LJ_FUNC GCstr * LJ_FASTCALL lj_str_fromint(lua_State *L, int32_t k); +LJ_FUNCA GCstr * LJ_FASTCALL lj_str_fromnumber(lua_State *L, cTValue *o); + +#define LJ_STR_INTBUF (1+10) +#define LJ_STR_NUMBUF LUAI_MAXNUMBER2STR + +/* String formatting. */ +LJ_FUNC const char *lj_str_pushvf(lua_State *L, const char *fmt, va_list argp); +LJ_FUNC const char *lj_str_pushf(lua_State *L, const char *fmt, ...) +#if defined(__GNUC__) + __attribute__ ((format (printf, 2, 3))) +#endif + ; + +/* Resizable string buffers. Struct definition in lj_obj.h. */ +LJ_FUNC char *lj_str_needbuf(lua_State *L, SBuf *sb, MSize sz); + +#define lj_str_initbuf(sb) ((sb)->buf = NULL, (sb)->sz = 0) +#define lj_str_resetbuf(sb) ((sb)->n = 0) +#define lj_str_resizebuf(L, sb, size) \ + ((sb)->buf = (char *)lj_mem_realloc(L, (sb)->buf, (sb)->sz, (size)), \ + (sb)->sz = (size)) +#define lj_str_freebuf(g, sb) lj_mem_free(g, (void *)(sb)->buf, (sb)->sz) + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_strscan.c b/src/3rd party/luajit-2.0/src/lj_strscan.c new file mode 100644 index 00000000000..e2cf76f42a0 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_strscan.c @@ -0,0 +1,498 @@ +/* +** String scanning. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include + +#define lj_strscan_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_char.h" +#include "lj_strscan.h" + +/* -- Scanning numbers ---------------------------------------------------- */ + +/* +** Rationale for the builtin string to number conversion library: +** +** It removes a dependency on libc's strtod(), which is a true portability +** nightmare. Mainly due to the plethora of supported OS and toolchain +** combinations. Sadly, the various implementations +** a) are often buggy, incomplete (no hex floats) and/or imprecise, +** b) sometimes crash or hang on certain inputs, +** c) return non-standard NaNs that need to be filtered out, and +** d) fail if the locale-specific decimal separator is not a dot, +** which can only be fixed with atrocious workarounds. +** +** Also, most of the strtod() implementations are hopelessly bloated, +** which is not just an I-cache hog, but a problem for static linkage +** on embedded systems, too. +** +** OTOH the builtin conversion function is very compact. Even though it +** does a lot more, like parsing long longs, octal or imaginary numbers +** and returning the result in different formats: +** a) It needs less than 3 KB (!) of machine code (on x64 with -Os), +** b) it doesn't perform any dynamic allocation and, +** c) it needs only around 600 bytes of stack space. +** +** The builtin function is faster than strtod() for typical inputs, e.g. +** "123", "1.5" or "1e6". Arguably, it's slower for very large exponents, +** which are not very common (this could be fixed, if needed). +** +** And most importantly, the builtin function is equally precise on all +** platforms. It correctly converts and rounds any input to a double. +** If this is not the case, please send a bug report -- but PLEASE verify +** that the implementation you're comparing to is not the culprit! +** +** The implementation quickly pre-scans the entire string first and +** handles simple integers on-the-fly. Otherwise, it dispatches to the +** base-specific parser. Hex and octal is straightforward. +** +** Decimal to binary conversion uses a fixed-length circular buffer in +** base 100. Some simple cases are handled directly. For other cases, the +** number in the buffer is up-scaled or down-scaled until the integer part +** is in the proper range. Then the integer part is rounded and converted +** to a double which is finally rescaled to the result. Denormals need +** special treatment to prevent incorrect 'double rounding'. +*/ + +/* Definitions for circular decimal digit buffer (base 100 = 2 digits/byte). */ +#define STRSCAN_DIG 1024 +#define STRSCAN_MAXDIG 800 /* 772 + extra are sufficient. */ +#define STRSCAN_DDIG (STRSCAN_DIG/2) +#define STRSCAN_DMASK (STRSCAN_DDIG-1) + +/* Helpers for circular buffer. */ +#define DNEXT(a) (((a)+1) & STRSCAN_DMASK) +#define DPREV(a) (((a)-1) & STRSCAN_DMASK) +#define DLEN(lo, hi) ((int32_t)(((lo)-(hi)) & STRSCAN_DMASK)) + +#define casecmp(c, k) (((c) | 0x20) == k) + +/* Final conversion to double. */ +static void strscan_double(uint64_t x, TValue *o, int32_t ex2, int32_t neg) +{ + double n; + + /* Avoid double rounding for denormals. */ + if (LJ_UNLIKELY(ex2 <= -1075 && x != 0)) { + /* NYI: all of this generates way too much code on 32 bit CPUs. */ +#if defined(__GNUC__) && LJ_64 + int32_t b = (int32_t)(__builtin_clzll(x)^63); +#else + int32_t b = (x>>32) ? 32+(int32_t)lj_fls((uint32_t)(x>>32)) : + (int32_t)lj_fls((uint32_t)x); +#endif + if ((int32_t)b + ex2 <= -1023 && (int32_t)b + ex2 >= -1075) { + uint64_t rb = (uint64_t)1 << (-1075-ex2); + if ((x & rb) && ((x & (rb+rb+rb-1)))) x += rb+rb; + x = (x & ~(rb+rb-1)); + } + } + + /* Convert to double using a signed int64_t conversion, then rescale. */ + lua_assert((int64_t)x >= 0); + n = (double)(int64_t)x; + if (neg) n = -n; + if (ex2) n = ldexp(n, ex2); + o->n = n; +} + +/* Parse hexadecimal number. */ +static StrScanFmt strscan_hex(const uint8_t *p, TValue *o, + StrScanFmt fmt, uint32_t opt, + int32_t ex2, int32_t neg, uint32_t dig) +{ + uint64_t x = 0; + uint32_t i; + + /* Scan hex digits. */ + for (i = dig > 16 ? 16 : dig ; i; i--, p++) { + uint32_t d = (*p != '.' ? *p : *++p); if (d > '9') d += 9; + x = (x << 4) + (d & 15); + } + + /* Summarize rounding-effect of excess digits. */ + for (i = 16; i < dig; i++, p++) + x |= ((*p != '.' ? *p : *++p) != '0'), ex2 += 4; + + /* Format-specific handling. */ + switch (fmt) { + case STRSCAN_INT: + if (!(opt & STRSCAN_OPT_TONUM) && x < 0x80000000u+neg) { + o->i = neg ? -(int32_t)x : (int32_t)x; + return STRSCAN_INT; /* Fast path for 32 bit integers. */ + } + if (!(opt & STRSCAN_OPT_C)) { fmt = STRSCAN_NUM; break; } + /* fallthrough */ + case STRSCAN_U32: + if (dig > 8) return STRSCAN_ERROR; + o->i = neg ? -(int32_t)x : (int32_t)x; + return STRSCAN_U32; + case STRSCAN_I64: + case STRSCAN_U64: + if (dig > 16) return STRSCAN_ERROR; + o->u64 = neg ? (uint64_t)-(int64_t)x : x; + return fmt; + default: + break; + } + + /* Reduce range then convert to double. */ + if ((x & U64x(c0000000,0000000))) { x = (x >> 2) | (x & 3); ex2 += 2; } + strscan_double(x, o, ex2, neg); + return fmt; +} + +/* Parse octal number. */ +static StrScanFmt strscan_oct(const uint8_t *p, TValue *o, + StrScanFmt fmt, int32_t neg, uint32_t dig) +{ + uint64_t x = 0; + + /* Scan octal digits. */ + if (dig > 22 || (dig == 22 && *p > '1')) return STRSCAN_ERROR; + while (dig-- > 0) { + if (!(*p >= '0' && *p <= '7')) return STRSCAN_ERROR; + x = (x << 3) + (*p++ & 7); + } + + /* Format-specific handling. */ + switch (fmt) { + case STRSCAN_INT: + if (x >= 0x80000000u+neg) fmt = STRSCAN_U32; + /* fallthrough */ + case STRSCAN_U32: + if ((x >> 32)) return STRSCAN_ERROR; + o->i = neg ? -(int32_t)x : (int32_t)x; + break; + default: + case STRSCAN_I64: + case STRSCAN_U64: + o->u64 = neg ? (uint64_t)-(int64_t)x : x; + break; + } + return fmt; +} + +/* Parse decimal number. */ +static StrScanFmt strscan_dec(const uint8_t *p, TValue *o, + StrScanFmt fmt, uint32_t opt, + int32_t ex10, int32_t neg, uint32_t dig) +{ + uint8_t xi[STRSCAN_DDIG], *xip = xi; + + if (dig) { + uint32_t i = dig; + if (i > STRSCAN_MAXDIG) { + ex10 += (int32_t)(i - STRSCAN_MAXDIG); + i = STRSCAN_MAXDIG; + } + /* Scan unaligned leading digit. */ + if (((ex10^i) & 1)) + *xip++ = ((*p != '.' ? *p : *++p) & 15), i--, p++; + /* Scan aligned double-digits. */ + for ( ; i > 1; i -= 2) { + uint32_t d = 10 * ((*p != '.' ? *p : *++p) & 15); p++; + *xip++ = d + ((*p != '.' ? *p : *++p) & 15); p++; + } + /* Scan and realign trailing digit. */ + if (i) *xip++ = 10 * ((*p != '.' ? *p : *++p) & 15), ex10--, p++; + + /* Summarize rounding-effect of excess digits. */ + if (dig > STRSCAN_MAXDIG) { + do { + if ((*p != '.' ? *p : *++p) != '0') { xip[-1] |= 1; break; } + p++; + } while (--dig > STRSCAN_MAXDIG); + dig = STRSCAN_MAXDIG; + } else { /* Simplify exponent. */ + while (ex10 > 0 && dig <= 18) *xip++ = 0, ex10 -= 2, dig += 2; + } + } else { /* Only got zeros. */ + ex10 = 0; + xi[0] = 0; + } + + /* Fast path for numbers in integer format (but handles e.g. 1e6, too). */ + if (dig <= 20 && ex10 == 0) { + uint8_t *xis; + uint64_t x = xi[0]; + double n; + for (xis = xi+1; xis < xip; xis++) x = x * 100 + *xis; + if (!(dig == 20 && (xi[0] > 18 || (int64_t)x >= 0))) { /* No overflow? */ + /* Format-specific handling. */ + switch (fmt) { + case STRSCAN_INT: + if (!(opt & STRSCAN_OPT_TONUM) && x < 0x80000000u+neg) { + o->i = neg ? -(int32_t)x : (int32_t)x; + return STRSCAN_INT; /* Fast path for 32 bit integers. */ + } + if (!(opt & STRSCAN_OPT_C)) { fmt = STRSCAN_NUM; goto plainnumber; } + /* fallthrough */ + case STRSCAN_U32: + if ((x >> 32) != 0) return STRSCAN_ERROR; + o->i = neg ? -(int32_t)x : (int32_t)x; + return STRSCAN_U32; + case STRSCAN_I64: + case STRSCAN_U64: + o->u64 = neg ? (uint64_t)-(int64_t)x : x; + return fmt; + default: + plainnumber: /* Fast path for plain numbers < 2^63. */ + if ((int64_t)x < 0) break; + n = (double)(int64_t)x; + if (neg) n = -n; + o->n = n; + return fmt; + } + } + } + + /* Slow non-integer path. */ + if (fmt == STRSCAN_INT) { + if ((opt & STRSCAN_OPT_C)) return STRSCAN_ERROR; + fmt = STRSCAN_NUM; + } else if (fmt > STRSCAN_INT) { + return STRSCAN_ERROR; + } + { + uint32_t hi = 0, lo = (uint32_t)(xip-xi); + int32_t ex2 = 0, idig = (int32_t)lo + (ex10 >> 1); + + lua_assert(lo > 0 && (ex10 & 1) == 0); + + /* Handle simple overflow/underflow. */ + if (idig > 310/2) { if (neg) setminfV(o); else setpinfV(o); return fmt; } + else if (idig < -326/2) { o->n = neg ? -0.0 : 0.0; return fmt; } + + /* Scale up until we have at least 17 or 18 integer part digits. */ + while (idig < 9 && idig < DLEN(lo, hi)) { + uint32_t i, cy = 0; + ex2 -= 6; + for (i = DPREV(lo); ; i = DPREV(i)) { + uint32_t d = (xi[i] << 6) + cy; + cy = (((d >> 2) * 5243) >> 17); d = d - cy * 100; /* Div/mod 100. */ + xi[i] = (uint8_t)d; + if (i == hi) break; + if (d == 0 && i == DPREV(lo)) lo = i; + } + if (cy) { + hi = DPREV(hi); + if (xi[DPREV(lo)] == 0) lo = DPREV(lo); + else if (hi == lo) { lo = DPREV(lo); xi[DPREV(lo)] |= xi[lo]; } + xi[hi] = (uint8_t)cy; idig++; + } + } + + /* Scale down until no more than 17 or 18 integer part digits remain. */ + while (idig > 9) { + uint32_t i = hi, cy = 0; + ex2 += 6; + do { + cy += xi[i]; + xi[i] = (cy >> 6); + cy = 100 * (cy & 0x3f); + if (xi[i] == 0 && i == hi) hi = DNEXT(hi), idig--; + i = DNEXT(i); + } while (i != lo); + while (cy) { + if (hi == lo) { xi[DPREV(lo)] |= 1; break; } + xi[lo] = (cy >> 6); lo = DNEXT(lo); + cy = 100 * (cy & 0x3f); + } + } + + /* Collect integer part digits and convert to rescaled double. */ + { + uint64_t x = xi[hi]; + uint32_t i; + for (i = DNEXT(hi); --idig > 0 && i != lo; i = DNEXT(i)) + x = x * 100 + xi[i]; + if (i == lo) { + while (--idig >= 0) x = x * 100; + } else { /* Gather round bit from remaining digits. */ + x <<= 1; ex2--; + do { + if (xi[i]) { x |= 1; break; } + i = DNEXT(i); + } while (i != lo); + } + strscan_double(x, o, ex2, neg); + } + } + return fmt; +} + +/* Scan string containing a number. Returns format. Returns value in o. */ +StrScanFmt lj_strscan_scan(const uint8_t *p, TValue *o, uint32_t opt) +{ + int32_t neg = 0; + + /* Remove leading space, parse sign and non-numbers. */ + if (LJ_UNLIKELY(!lj_char_isdigit(*p))) { + while (lj_char_isspace(*p)) p++; + if (*p == '+' || *p == '-') neg = (*p++ == '-'); + if (LJ_UNLIKELY(*p >= 'A')) { /* Parse "inf", "infinity" or "nan". */ + TValue tmp; + setnanV(&tmp); + if (casecmp(p[0],'i') && casecmp(p[1],'n') && casecmp(p[2],'f')) { + if (neg) setminfV(&tmp); else setpinfV(&tmp); + p += 3; + if (casecmp(p[0],'i') && casecmp(p[1],'n') && casecmp(p[2],'i') && + casecmp(p[3],'t') && casecmp(p[4],'y')) p += 5; + } else if (casecmp(p[0],'n') && casecmp(p[1],'a') && casecmp(p[2],'n')) { + p += 3; + } + while (lj_char_isspace(*p)) p++; + if (*p) return STRSCAN_ERROR; + o->u64 = tmp.u64; + return STRSCAN_NUM; + } + } + + /* Parse regular number. */ + { + StrScanFmt fmt = STRSCAN_INT; + int cmask = LJ_CHAR_DIGIT; + int base = (opt & STRSCAN_OPT_C) && *p == '0' ? 0 : 10; + const uint8_t *sp, *dp = NULL; + uint32_t dig = 0, hasdig = 0, x = 0; + int32_t ex = 0; + + /* Determine base and skip leading zeros. */ + if (LJ_UNLIKELY(*p <= '0')) { + if (*p == '0' && casecmp(p[1], 'x')) + base = 16, cmask = LJ_CHAR_XDIGIT, p += 2; + for ( ; ; p++) { + if (*p == '0') { + hasdig = 1; + } else if (*p == '.') { + if (dp) return STRSCAN_ERROR; + dp = p; + } else { + break; + } + } + } + + /* Preliminary digit and decimal point scan. */ + for (sp = p; ; p++) { + if (LJ_LIKELY(lj_char_isa(*p, cmask))) { + x = x * 10 + (*p & 15); /* For fast path below. */ + dig++; + } else if (*p == '.') { + if (dp) return STRSCAN_ERROR; + dp = p; + } else { + break; + } + } + if (!(hasdig | dig)) return STRSCAN_ERROR; + + /* Handle decimal point. */ + if (dp) { + fmt = STRSCAN_NUM; + if (dig) { + ex = (int32_t)(dp-(p-1)); dp = p-1; + while (ex < 0 && *dp-- == '0') ex++, dig--; /* Skip trailing zeros. */ + if (base == 16) ex *= 4; + } + } + + /* Parse exponent. */ + if (casecmp(*p, (uint32_t)(base == 16 ? 'p' : 'e'))) { + uint32_t xx; + int negx = 0; + fmt = STRSCAN_NUM; p++; + if (*p == '+' || *p == '-') negx = (*p++ == '-'); + if (!lj_char_isdigit(*p)) return STRSCAN_ERROR; + xx = (*p++ & 15); + while (lj_char_isdigit(*p)) { + if (xx < 65536) xx = xx * 10 + (*p & 15); + p++; + } + ex += negx ? -(int32_t)xx : (int32_t)xx; + } + + /* Parse suffix. */ + if (*p) { + /* I (IMAG), U (U32), LL (I64), ULL/LLU (U64), L (long), UL/LU (ulong). */ + /* NYI: f (float). Not needed until cp_number() handles non-integers. */ + if (casecmp(*p, 'i')) { + if (!(opt & STRSCAN_OPT_IMAG)) return STRSCAN_ERROR; + p++; fmt = STRSCAN_IMAG; + } else if (fmt == STRSCAN_INT) { + if (casecmp(*p, 'u')) p++, fmt = STRSCAN_U32; + if (casecmp(*p, 'l')) { + p++; + if (casecmp(*p, 'l')) p++, fmt += STRSCAN_I64 - STRSCAN_INT; + else if (!(opt & STRSCAN_OPT_C)) return STRSCAN_ERROR; + else if (sizeof(long) == 8) fmt += STRSCAN_I64 - STRSCAN_INT; + } + if (casecmp(*p, 'u') && (fmt == STRSCAN_INT || fmt == STRSCAN_I64)) + p++, fmt += STRSCAN_U32 - STRSCAN_INT; + if ((fmt == STRSCAN_U32 && !(opt & STRSCAN_OPT_C)) || + (fmt >= STRSCAN_I64 && !(opt & STRSCAN_OPT_LL))) + return STRSCAN_ERROR; + } + while (lj_char_isspace(*p)) p++; + if (*p) return STRSCAN_ERROR; + } + + /* Fast path for decimal 32 bit integers. */ + if (fmt == STRSCAN_INT && base == 10 && + (dig < 10 || (dig == 10 && *sp <= '2' && x < 0x80000000u+neg))) { + int32_t y = neg ? -(int32_t)x : (int32_t)x; + if ((opt & STRSCAN_OPT_TONUM)) { + o->n = (double)y; + return STRSCAN_NUM; + } else { + o->i = y; + return STRSCAN_INT; + } + } + + /* Dispatch to base-specific parser. */ + if (base == 0 && !(fmt == STRSCAN_NUM || fmt == STRSCAN_IMAG)) + return strscan_oct(sp, o, fmt, neg, dig); + if (base == 16) + fmt = strscan_hex(sp, o, fmt, opt, ex, neg, dig); + else + fmt = strscan_dec(sp, o, fmt, opt, ex, neg, dig); + + /* Try to convert number to integer, if requested. */ + if (fmt == STRSCAN_NUM && (opt & STRSCAN_OPT_TOINT)) { + double n = o->n; + int32_t i = lj_num2int(n); + if (n == (lua_Number)i) { o->i = i; return STRSCAN_INT; } + } + return fmt; + } +} + +int LJ_FASTCALL lj_strscan_num(GCstr *str, TValue *o) +{ + StrScanFmt fmt = lj_strscan_scan((const uint8_t *)strdata(str), o, + STRSCAN_OPT_TONUM); + lua_assert(fmt == STRSCAN_ERROR || fmt == STRSCAN_NUM); + return (fmt != STRSCAN_ERROR); +} + +#if LJ_DUALNUM +int LJ_FASTCALL lj_strscan_number(GCstr *str, TValue *o) +{ + StrScanFmt fmt = lj_strscan_scan((const uint8_t *)strdata(str), o, + STRSCAN_OPT_TOINT); + lua_assert(fmt == STRSCAN_ERROR || fmt == STRSCAN_NUM || fmt == STRSCAN_INT); + if (fmt == STRSCAN_INT) setitype(o, LJ_TISNUM); + return (fmt != STRSCAN_ERROR); +} +#endif + +#undef DNEXT +#undef DPREV +#undef DLEN + diff --git a/src/3rd party/luajit-2.0/src/lj_strscan.h b/src/3rd party/luajit-2.0/src/lj_strscan.h new file mode 100644 index 00000000000..77606893640 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_strscan.h @@ -0,0 +1,39 @@ +/* +** String scanning. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_STRSCAN_H +#define _LJ_STRSCAN_H + +#include "lj_obj.h" + +/* Options for accepted/returned formats. */ +#define STRSCAN_OPT_TOINT 0x01 /* Convert to int32_t, if possible. */ +#define STRSCAN_OPT_TONUM 0x02 /* Always convert to double. */ +#define STRSCAN_OPT_IMAG 0x04 +#define STRSCAN_OPT_LL 0x08 +#define STRSCAN_OPT_C 0x10 + +/* Returned format. */ +typedef enum { + STRSCAN_ERROR, + STRSCAN_NUM, STRSCAN_IMAG, + STRSCAN_INT, STRSCAN_U32, STRSCAN_I64, STRSCAN_U64, +} StrScanFmt; + +LJ_FUNC StrScanFmt lj_strscan_scan(const uint8_t *p, TValue *o, uint32_t opt); +LJ_FUNC int LJ_FASTCALL lj_strscan_num(GCstr *str, TValue *o); +#if LJ_DUALNUM +LJ_FUNC int LJ_FASTCALL lj_strscan_number(GCstr *str, TValue *o); +#else +#define lj_strscan_number(s, o) lj_strscan_num((s), (o)) +#endif + +/* Check for number or convert string to number/int in-place (!). */ +static LJ_AINLINE int lj_strscan_numberobj(TValue *o) +{ + return tvisnumber(o) || (tvisstr(o) && lj_strscan_number(strV(o), o)); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_tab.c b/src/3rd party/luajit-2.0/src/lj_tab.c new file mode 100644 index 00000000000..a8062db7cf7 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_tab.c @@ -0,0 +1,631 @@ +/* +** Table handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#define lj_tab_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_tab.h" + +/* -- Object hashing ------------------------------------------------------ */ + +/* Hash values are masked with the table hash mask and used as an index. */ +static LJ_AINLINE Node *hashmask(const GCtab *t, uint32_t hash) +{ + Node *n = noderef(t->node); + return &n[hash & t->hmask]; +} + +/* String hashes are precomputed when they are interned. */ +#define hashstr(t, s) hashmask(t, (s)->hash) + +#define hashlohi(t, lo, hi) hashmask((t), hashrot((lo), (hi))) +#define hashnum(t, o) hashlohi((t), (o)->u32.lo, ((o)->u32.hi << 1)) +#define hashptr(t, p) hashlohi((t), u32ptr(p), u32ptr(p) + HASH_BIAS) +#define hashgcref(t, r) hashlohi((t), gcrefu(r), gcrefu(r) + HASH_BIAS) + +/* Hash an arbitrary key and return its anchor position in the hash table. */ +static Node *hashkey(const GCtab *t, cTValue *key) +{ + lua_assert(!tvisint(key)); + if (tvisstr(key)) + return hashstr(t, strV(key)); + else if (tvisnum(key)) + return hashnum(t, key); + else if (tvisbool(key)) + return hashmask(t, boolV(key)); + else + return hashgcref(t, key->gcr); + /* Only hash 32 bits of lightuserdata on a 64 bit CPU. Good enough? */ +} + +/* -- Table creation and destruction -------------------------------------- */ + +/* Create new hash part for table. */ +static LJ_AINLINE void newhpart(lua_State *L, GCtab *t, uint32_t hbits) +{ + uint32_t hsize; + Node *node; + lua_assert(hbits != 0); + if (hbits > LJ_MAX_HBITS) + lj_err_msg(L, LJ_ERR_TABOV); + hsize = 1u << hbits; + node = lj_mem_newvec(L, hsize, Node); + setmref(node->freetop, &node[hsize]); + setmref(t->node, node); + t->hmask = hsize-1; +} + +/* +** Q: Why all of these copies of t->hmask, t->node etc. to local variables? +** A: Because alias analysis for C is _really_ tough. +** Even state-of-the-art C compilers won't produce good code without this. +*/ + +/* Clear hash part of table. */ +static LJ_AINLINE void clearhpart(GCtab *t) +{ + uint32_t i, hmask = t->hmask; + Node *node = noderef(t->node); + lua_assert(t->hmask != 0); + for (i = 0; i <= hmask; i++) { + Node *n = &node[i]; + setmref(n->next, NULL); + setnilV(&n->key); + setnilV(&n->val); + } +} + +/* Clear array part of table. */ +static LJ_AINLINE void clearapart(GCtab *t) +{ + uint32_t i, asize = t->asize; + TValue *array = tvref(t->array); + for (i = 0; i < asize; i++) + setnilV(&array[i]); +} + +/* Create a new table. Note: the slots are not initialized (yet). */ +static GCtab *newtab(lua_State *L, uint32_t asize, uint32_t hbits) +{ + GCtab *t; + /* First try to colocate the array part. */ + if (LJ_MAX_COLOSIZE != 0 && asize > 0 && asize <= LJ_MAX_COLOSIZE) { + lua_assert((sizeof(GCtab) & 7) == 0); + t = (GCtab *)lj_mem_newgco(L, sizetabcolo(asize)); + t->gct = ~LJ_TTAB; + t->nomm = (uint8_t)~0; + t->colo = (int8_t)asize; + setmref(t->array, (TValue *)((char *)t + sizeof(GCtab))); + setgcrefnull(t->metatable); + t->asize = asize; + t->hmask = 0; + setmref(t->node, &G(L)->nilnode); + } else { /* Otherwise separately allocate the array part. */ + t = lj_mem_newobj(L, GCtab); + t->gct = ~LJ_TTAB; + t->nomm = (uint8_t)~0; + t->colo = 0; + setmref(t->array, NULL); + setgcrefnull(t->metatable); + t->asize = 0; /* In case the array allocation fails. */ + t->hmask = 0; + setmref(t->node, &G(L)->nilnode); + if (asize > 0) { + if (asize > LJ_MAX_ASIZE) + lj_err_msg(L, LJ_ERR_TABOV); + setmref(t->array, lj_mem_newvec(L, asize, TValue)); + t->asize = asize; + } + } + if (hbits) + newhpart(L, t, hbits); + return t; +} + +/* Create a new table. +** +** IMPORTANT NOTE: The API differs from lua_createtable()! +** +** The array size is non-inclusive. E.g. asize=128 creates array slots +** for 0..127, but not for 128. If you need slots 1..128, pass asize=129 +** (slot 0 is wasted in this case). +** +** The hash size is given in hash bits. hbits=0 means no hash part. +** hbits=1 creates 2 hash slots, hbits=2 creates 4 hash slots and so on. +*/ +GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits) +{ + GCtab *t = newtab(L, asize, hbits); + clearapart(t); + if (t->hmask > 0) clearhpart(t); + return t; +} + +#if LJ_HASJIT +GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize) +{ + GCtab *t = newtab(L, ahsize & 0xffffff, ahsize >> 24); + clearapart(t); + if (t->hmask > 0) clearhpart(t); + return t; +} +#endif + +/* Duplicate a table. */ +GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt) +{ + GCtab *t; + uint32_t asize, hmask; + t = newtab(L, kt->asize, kt->hmask > 0 ? lj_fls(kt->hmask)+1 : 0); + lua_assert(kt->asize == t->asize && kt->hmask == t->hmask); + t->nomm = 0; /* Keys with metamethod names may be present. */ + asize = kt->asize; + if (asize > 0) { + TValue *array = tvref(t->array); + TValue *karray = tvref(kt->array); + if (asize < 64) { /* An inlined loop beats memcpy for < 512 bytes. */ + uint32_t i; + for (i = 0; i < asize; i++) + copyTV(L, &array[i], &karray[i]); + } else { + memcpy(array, karray, asize*sizeof(TValue)); + } + } + hmask = kt->hmask; + if (hmask > 0) { + uint32_t i; + Node *node = noderef(t->node); + Node *knode = noderef(kt->node); + ptrdiff_t d = (char *)node - (char *)knode; + setmref(node->freetop, (Node *)((char *)noderef(knode->freetop) + d)); + for (i = 0; i <= hmask; i++) { + Node *kn = &knode[i]; + Node *n = &node[i]; + Node *next = nextnode(kn); + /* Don't use copyTV here, since it asserts on a copy of a dead key. */ + n->val = kn->val; n->key = kn->key; + setmref(n->next, next == NULL? next : (Node *)((char *)next + d)); + } + } + return t; +} + +/* Free a table. */ +void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t) +{ + if (t->hmask > 0) + lj_mem_freevec(g, noderef(t->node), t->hmask+1, Node); + if (t->asize > 0 && LJ_MAX_COLOSIZE != 0 && t->colo <= 0) + lj_mem_freevec(g, tvref(t->array), t->asize, TValue); + if (LJ_MAX_COLOSIZE != 0 && t->colo) + lj_mem_free(g, t, sizetabcolo((uint32_t)t->colo & 0x7f)); + else + lj_mem_freet(g, t); +} + +/* -- Table resizing ------------------------------------------------------ */ + +/* Resize a table to fit the new array/hash part sizes. */ +static void resizetab(lua_State *L, GCtab *t, uint32_t asize, uint32_t hbits) +{ + Node *oldnode = noderef(t->node); + uint32_t oldasize = t->asize; + uint32_t oldhmask = t->hmask; + if (asize > oldasize) { /* Array part grows? */ + TValue *array; + uint32_t i; + if (asize > LJ_MAX_ASIZE) + lj_err_msg(L, LJ_ERR_TABOV); + if (LJ_MAX_COLOSIZE != 0 && t->colo > 0) { + /* A colocated array must be separated and copied. */ + TValue *oarray = tvref(t->array); + array = lj_mem_newvec(L, asize, TValue); + t->colo = (int8_t)(t->colo | 0x80); /* Mark as separated (colo < 0). */ + for (i = 0; i < oldasize; i++) + copyTV(L, &array[i], &oarray[i]); + } else { + array = (TValue *)lj_mem_realloc(L, tvref(t->array), + oldasize*sizeof(TValue), asize*sizeof(TValue)); + } + setmref(t->array, array); + t->asize = asize; + for (i = oldasize; i < asize; i++) /* Clear newly allocated slots. */ + setnilV(&array[i]); + } + /* Create new (empty) hash part. */ + if (hbits) { + newhpart(L, t, hbits); + clearhpart(t); + } else { + global_State *g = G(L); + setmref(t->node, &g->nilnode); + t->hmask = 0; + } + if (asize < oldasize) { /* Array part shrinks? */ + TValue *array = tvref(t->array); + uint32_t i; + t->asize = asize; /* Note: This 'shrinks' even colocated arrays. */ + for (i = asize; i < oldasize; i++) /* Reinsert old array values. */ + if (!tvisnil(&array[i])) + copyTV(L, lj_tab_setinth(L, t, (int32_t)i), &array[i]); + /* Physically shrink only separated arrays. */ + if (LJ_MAX_COLOSIZE != 0 && t->colo <= 0) + setmref(t->array, lj_mem_realloc(L, array, + oldasize*sizeof(TValue), asize*sizeof(TValue))); + } + if (oldhmask > 0) { /* Reinsert pairs from old hash part. */ + global_State *g; + uint32_t i; + for (i = 0; i <= oldhmask; i++) { + Node *n = &oldnode[i]; + if (!tvisnil(&n->val)) + copyTV(L, lj_tab_set(L, t, &n->key), &n->val); + } + g = G(L); + lj_mem_freevec(g, oldnode, oldhmask+1, Node); + } +} + +static uint32_t countint(cTValue *key, uint32_t *bins) +{ + lua_assert(!tvisint(key)); + if (tvisnum(key)) { + lua_Number nk = numV(key); + int32_t k = lj_num2int(nk); + if ((uint32_t)k < LJ_MAX_ASIZE && nk == (lua_Number)k) { + bins[(k > 2 ? lj_fls((uint32_t)(k-1)) : 0)]++; + return 1; + } + } + return 0; +} + +static uint32_t countarray(const GCtab *t, uint32_t *bins) +{ + uint32_t na, b, i; + if (t->asize == 0) return 0; + for (na = i = b = 0; b < LJ_MAX_ABITS; b++) { + uint32_t n, top = 2u << b; + TValue *array; + if (top >= t->asize) { + top = t->asize-1; + if (i > top) + break; + } + array = tvref(t->array); + for (n = 0; i <= top; i++) + if (!tvisnil(&array[i])) + n++; + bins[b] += n; + na += n; + } + return na; +} + +static uint32_t counthash(const GCtab *t, uint32_t *bins, uint32_t *narray) +{ + uint32_t total, na, i, hmask = t->hmask; + Node *node = noderef(t->node); + for (total = na = 0, i = 0; i <= hmask; i++) { + Node *n = &node[i]; + if (!tvisnil(&n->val)) { + na += countint(&n->key, bins); + total++; + } + } + *narray += na; + return total; +} + +static uint32_t bestasize(uint32_t bins[], uint32_t *narray) +{ + uint32_t b, sum, na = 0, sz = 0, nn = *narray; + for (b = 0, sum = 0; 2*nn > (1u< 0 && 2*(sum += bins[b]) > (1u<hmask > 0 ? lj_fls(t->hmask)+1 : 0); +} + +/* -- Table getters ------------------------------------------------------- */ + +cTValue * LJ_FASTCALL lj_tab_getinth(GCtab *t, int32_t key) +{ + TValue k; + Node *n; + k.n = (lua_Number)key; + n = hashnum(t, &k); + do { + if (tvisnum(&n->key) && n->key.n == k.n) + return &n->val; + } while ((n = nextnode(n))); + return NULL; +} + +cTValue *lj_tab_getstr(GCtab *t, GCstr *key) +{ + Node *n = hashstr(t, key); + do { + if (tvisstr(&n->key) && strV(&n->key) == key) + return &n->val; + } while ((n = nextnode(n))); + return NULL; +} + +cTValue *lj_tab_get(lua_State *L, GCtab *t, cTValue *key) +{ + if (tvisstr(key)) { + cTValue *tv = lj_tab_getstr(t, strV(key)); + if (tv) + return tv; + } else if (tvisint(key)) { + cTValue *tv = lj_tab_getint(t, intV(key)); + if (tv) + return tv; + } else if (tvisnum(key)) { + lua_Number nk = numV(key); + int32_t k = lj_num2int(nk); + if (nk == (lua_Number)k) { + cTValue *tv = lj_tab_getint(t, k); + if (tv) + return tv; + } else { + goto genlookup; /* Else use the generic lookup. */ + } + } else if (!tvisnil(key)) { + Node *n; + genlookup: + n = hashkey(t, key); + do { + if (lj_obj_equal(&n->key, key)) + return &n->val; + } while ((n = nextnode(n))); + } + return niltv(L); +} + +/* -- Table setters ------------------------------------------------------- */ + +/* Insert new key. Use Brent's variation to optimize the chain length. */ +TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key) +{ + Node *n = hashkey(t, key); + if (!tvisnil(&n->val) || t->hmask == 0) { + Node *nodebase = noderef(t->node); + Node *collide, *freenode = noderef(nodebase->freetop); + lua_assert(freenode >= nodebase && freenode <= nodebase+t->hmask+1); + do { + if (freenode == nodebase) { /* No free node found? */ + rehashtab(L, t, key); /* Rehash table. */ + return lj_tab_set(L, t, key); /* Retry key insertion. */ + } + } while (!tvisnil(&(--freenode)->key)); + setmref(nodebase->freetop, freenode); + lua_assert(freenode != &G(L)->nilnode); + collide = hashkey(t, &n->key); + if (collide != n) { /* Colliding node not the main node? */ + while (noderef(collide->next) != n) /* Find predecessor. */ + collide = nextnode(collide); + setmref(collide->next, freenode); /* Relink chain. */ + /* Copy colliding node into free node and free main node. */ + freenode->val = n->val; + freenode->key = n->key; + freenode->next = n->next; + setmref(n->next, NULL); + setnilV(&n->val); + /* Rechain pseudo-resurrected string keys with colliding hashes. */ + while (nextnode(freenode)) { + Node *nn = nextnode(freenode); + if (tvisstr(&nn->key) && !tvisnil(&nn->val) && + hashstr(t, strV(&nn->key)) == n) { + freenode->next = nn->next; + nn->next = n->next; + setmref(n->next, nn); + } else { + freenode = nn; + } + } + } else { /* Otherwise use free node. */ + setmrefr(freenode->next, n->next); /* Insert into chain. */ + setmref(n->next, freenode); + n = freenode; + } + } + n->key.u64 = key->u64; + if (LJ_UNLIKELY(tvismzero(&n->key))) + n->key.u64 = 0; + lj_gc_anybarriert(L, t); + lua_assert(tvisnil(&n->val)); + return &n->val; +} + +TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key) +{ + TValue k; + Node *n; + k.n = (lua_Number)key; + n = hashnum(t, &k); + do { + if (tvisnum(&n->key) && n->key.n == k.n) + return &n->val; + } while ((n = nextnode(n))); + return lj_tab_newkey(L, t, &k); +} + +TValue *lj_tab_setstr(lua_State *L, GCtab *t, GCstr *key) +{ + TValue k; + Node *n = hashstr(t, key); + do { + if (tvisstr(&n->key) && strV(&n->key) == key) + return &n->val; + } while ((n = nextnode(n))); + setstrV(L, &k, key); + return lj_tab_newkey(L, t, &k); +} + +TValue *lj_tab_set(lua_State *L, GCtab *t, cTValue *key) +{ + Node *n; + t->nomm = 0; /* Invalidate negative metamethod cache. */ + if (tvisstr(key)) { + return lj_tab_setstr(L, t, strV(key)); + } else if (tvisint(key)) { + return lj_tab_setint(L, t, intV(key)); + } else if (tvisnum(key)) { + lua_Number nk = numV(key); + int32_t k = lj_num2int(nk); + if (nk == (lua_Number)k) + return lj_tab_setint(L, t, k); + if (tvisnan(key)) + lj_err_msg(L, LJ_ERR_NANIDX); + /* Else use the generic lookup. */ + } else if (tvisnil(key)) { + lj_err_msg(L, LJ_ERR_NILIDX); + } + n = hashkey(t, key); + do { + if (lj_obj_equal(&n->key, key)) + return &n->val; + } while ((n = nextnode(n))); + return lj_tab_newkey(L, t, key); +} + +/* -- Table traversal ----------------------------------------------------- */ + +/* Get the traversal index of a key. */ +static uint32_t keyindex(lua_State *L, GCtab *t, cTValue *key) +{ + TValue tmp; + if (tvisint(key)) { + int32_t k = intV(key); + if ((uint32_t)k < t->asize) + return (uint32_t)k; /* Array key indexes: [0..t->asize-1] */ + setnumV(&tmp, (lua_Number)k); + key = &tmp; + } else if (tvisnum(key)) { + lua_Number nk = numV(key); + int32_t k = lj_num2int(nk); + if ((uint32_t)k < t->asize && nk == (lua_Number)k) + return (uint32_t)k; /* Array key indexes: [0..t->asize-1] */ + } + if (!tvisnil(key)) { + Node *n = hashkey(t, key); + do { + if (lj_obj_equal(&n->key, key)) + return t->asize + (uint32_t)(n - noderef(t->node)); + /* Hash key indexes: [t->asize..t->asize+t->nmask] */ + } while ((n = nextnode(n))); + if (key->u32.hi == 0xfffe7fff) /* ITERN was despecialized while running. */ + return key->u32.lo - 1; + lj_err_msg(L, LJ_ERR_NEXTIDX); + return 0; /* unreachable */ + } + return ~0u; /* A nil key starts the traversal. */ +} + +/* Advance to the next step in a table traversal. */ +int lj_tab_next(lua_State *L, GCtab *t, TValue *key) +{ + uint32_t i = keyindex(L, t, key); /* Find predecessor key index. */ + for (i++; i < t->asize; i++) /* First traverse the array keys. */ + if (!tvisnil(arrayslot(t, i))) { + setintV(key, i); + copyTV(L, key+1, arrayslot(t, i)); + return 1; + } + for (i -= t->asize; i <= t->hmask; i++) { /* Then traverse the hash keys. */ + Node *n = &noderef(t->node)[i]; + if (!tvisnil(&n->val)) { + copyTV(L, key, &n->key); + copyTV(L, key+1, &n->val); + return 1; + } + } + return 0; /* End of traversal. */ +} + +/* -- Table length calculation -------------------------------------------- */ + +static MSize unbound_search(GCtab *t, MSize j) +{ + cTValue *tv; + MSize i = j; /* i is zero or a present index */ + j++; + /* find `i' and `j' such that i is present and j is not */ + while ((tv = lj_tab_getint(t, (int32_t)j)) && !tvisnil(tv)) { + i = j; + j *= 2; + if (j > (MSize)(INT_MAX-2)) { /* overflow? */ + /* table was built with bad purposes: resort to linear search */ + i = 1; + while ((tv = lj_tab_getint(t, (int32_t)i)) && !tvisnil(tv)) i++; + return i - 1; + } + } + /* now do a binary search between them */ + while (j - i > 1) { + MSize m = (i+j)/2; + cTValue *tvb = lj_tab_getint(t, (int32_t)m); + if (tvb && !tvisnil(tvb)) i = m; else j = m; + } + return i; +} + +/* +** Try to find a boundary in table `t'. A `boundary' is an integer index +** such that t[i] is non-nil and t[i+1] is nil (and 0 if t[1] is nil). +*/ +MSize LJ_FASTCALL lj_tab_len(GCtab *t) +{ + MSize j = (MSize)t->asize; + if (j > 1 && tvisnil(arrayslot(t, j-1))) { + MSize i = 1; + while (j - i > 1) { + MSize m = (i+j)/2; + if (tvisnil(arrayslot(t, m-1))) j = m; else i = m; + } + return i-1; + } + if (j) j--; + if (t->hmask <= 0) + return j; + return unbound_search(t, j); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_tab.h b/src/3rd party/luajit-2.0/src/lj_tab.h new file mode 100644 index 00000000000..f0d228eb20a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_tab.h @@ -0,0 +1,70 @@ +/* +** Table handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TAB_H +#define _LJ_TAB_H + +#include "lj_obj.h" + +/* Hash constants. Tuned using a brute force search. */ +#define HASH_BIAS (-0x04c11db7) +#define HASH_ROT1 14 +#define HASH_ROT2 5 +#define HASH_ROT3 13 + +/* Scramble the bits of numbers and pointers. */ +static LJ_AINLINE uint32_t hashrot(uint32_t lo, uint32_t hi) +{ +#if LJ_TARGET_X86ORX64 + /* Prefer variant that compiles well for a 2-operand CPU. */ + lo ^= hi; hi = lj_rol(hi, HASH_ROT1); + lo -= hi; hi = lj_rol(hi, HASH_ROT2); + hi ^= lo; hi -= lj_rol(lo, HASH_ROT3); +#else + lo ^= hi; + lo = lo - lj_rol(hi, HASH_ROT1); + hi = lo ^ lj_rol(hi, HASH_ROT1 + HASH_ROT2); + hi = hi - lj_rol(lo, HASH_ROT3); +#endif + return hi; +} + +#define hsize2hbits(s) ((s) ? ((s)==1 ? 1 : 1+lj_fls((uint32_t)((s)-1))) : 0) + +LJ_FUNCA GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits); +#if LJ_HASJIT +LJ_FUNC GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize); +#endif +LJ_FUNCA GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt); +LJ_FUNC void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t); +#if LJ_HASFFI +LJ_FUNC void lj_tab_rehash(lua_State *L, GCtab *t); +#endif +LJ_FUNCA void lj_tab_reasize(lua_State *L, GCtab *t, uint32_t nasize); + +/* Caveat: all getters except lj_tab_get() can return NULL! */ + +LJ_FUNCA cTValue * LJ_FASTCALL lj_tab_getinth(GCtab *t, int32_t key); +LJ_FUNC cTValue *lj_tab_getstr(GCtab *t, GCstr *key); +LJ_FUNCA cTValue *lj_tab_get(lua_State *L, GCtab *t, cTValue *key); + +/* Caveat: all setters require a write barrier for the stored value. */ + +LJ_FUNCA TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key); +LJ_FUNC TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key); +LJ_FUNC TValue *lj_tab_setstr(lua_State *L, GCtab *t, GCstr *key); +LJ_FUNC TValue *lj_tab_set(lua_State *L, GCtab *t, cTValue *key); + +#define inarray(t, key) ((MSize)(key) < (MSize)(t)->asize) +#define arrayslot(t, i) (&tvref((t)->array)[(i)]) +#define lj_tab_getint(t, key) \ + (inarray((t), (key)) ? arrayslot((t), (key)) : lj_tab_getinth((t), (key))) +#define lj_tab_setint(L, t, key) \ + (inarray((t), (key)) ? arrayslot((t), (key)) : lj_tab_setinth(L, (t), (key))) + +LJ_FUNCA int lj_tab_next(lua_State *L, GCtab *t, TValue *key); +LJ_FUNCA MSize LJ_FASTCALL lj_tab_len(GCtab *t); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target.h b/src/3rd party/luajit-2.0/src/lj_target.h new file mode 100644 index 00000000000..1a242325f5b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target.h @@ -0,0 +1,162 @@ +/* +** Definitions for target CPU. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_H +#define _LJ_TARGET_H + +#include "lj_def.h" +#include "lj_arch.h" + +/* -- Registers and spill slots ------------------------------------------- */ + +/* Register type (uint8_t in ir->r). */ +typedef uint32_t Reg; + +/* The hi-bit is NOT set for an allocated register. This means the value +** can be directly used without masking. The hi-bit is set for a register +** allocation hint or for RID_INIT, RID_SINK or RID_SUNK. +*/ +#define RID_NONE 0x80 +#define RID_MASK 0x7f +#define RID_INIT (RID_NONE|RID_MASK) +#define RID_SINK (RID_INIT-1) +#define RID_SUNK (RID_INIT-2) + +#define ra_noreg(r) ((r) & RID_NONE) +#define ra_hasreg(r) (!((r) & RID_NONE)) + +/* The ra_hashint() macro assumes a previous test for ra_noreg(). */ +#define ra_hashint(r) ((r) < RID_SUNK) +#define ra_gethint(r) ((Reg)((r) & RID_MASK)) +#define ra_sethint(rr, r) rr = (uint8_t)((r)|RID_NONE) +#define ra_samehint(r1, r2) (ra_gethint((r1)^(r2)) == 0) + +/* Spill slot 0 means no spill slot has been allocated. */ +#define SPS_NONE 0 + +#define ra_hasspill(s) ((s) != SPS_NONE) + +/* Combined register and spill slot (uint16_t in ir->prev). */ +typedef uint32_t RegSP; + +#define REGSP(r, s) ((r) + ((s) << 8)) +#define REGSP_HINT(r) ((r)|RID_NONE) +#define REGSP_INIT REGSP(RID_INIT, 0) + +#define regsp_reg(rs) ((rs) & 255) +#define regsp_spill(rs) ((rs) >> 8) +#define regsp_used(rs) \ + (((rs) & ~REGSP(RID_MASK, 0)) != REGSP(RID_NONE, 0)) + +/* -- Register sets ------------------------------------------------------- */ + +/* Bitset for registers. 32 registers suffice for most architectures. +** Note that one set holds bits for both GPRs and FPRs. +*/ +#if LJ_TARGET_PPC || LJ_TARGET_MIPS +typedef uint64_t RegSet; +#else +typedef uint32_t RegSet; +#endif + +#define RID2RSET(r) (((RegSet)1) << (r)) +#define RSET_EMPTY ((RegSet)0) +#define RSET_RANGE(lo, hi) ((RID2RSET((hi)-(lo))-1) << (lo)) + +#define rset_test(rs, r) ((int)((rs) >> (r)) & 1) +#define rset_set(rs, r) (rs |= RID2RSET(r)) +#define rset_clear(rs, r) (rs &= ~RID2RSET(r)) +#define rset_exclude(rs, r) (rs & ~RID2RSET(r)) +#if LJ_TARGET_PPC || LJ_TARGET_MIPS +#define rset_picktop(rs) ((Reg)(__builtin_clzll(rs)^63)) +#define rset_pickbot(rs) ((Reg)__builtin_ctzll(rs)) +#else +#define rset_picktop(rs) ((Reg)lj_fls(rs)) +#define rset_pickbot(rs) ((Reg)lj_ffs(rs)) +#endif + +/* -- Register allocation cost -------------------------------------------- */ + +/* The register allocation heuristic keeps track of the cost for allocating +** a specific register: +** +** A free register (obviously) has a cost of 0 and a 1-bit in the free mask. +** +** An already allocated register has the (non-zero) IR reference in the lowest +** bits and the result of a blended cost-model in the higher bits. +** +** The allocator first checks the free mask for a hit. Otherwise an (unrolled) +** linear search for the minimum cost is used. The search doesn't need to +** keep track of the position of the minimum, which makes it very fast. +** The lowest bits of the minimum cost show the desired IR reference whose +** register is the one to evict. +** +** Without the cost-model this degenerates to the standard heuristics for +** (reverse) linear-scan register allocation. Since code generation is done +** in reverse, a live interval extends from the last use to the first def. +** For an SSA IR the IR reference is the first (and only) def and thus +** trivially marks the end of the interval. The LSRA heuristics says to pick +** the register whose live interval has the furthest extent, i.e. the lowest +** IR reference in our case. +** +** A cost-model should take into account other factors, like spill-cost and +** restore- or rematerialization-cost, which depend on the kind of instruction. +** E.g. constants have zero spill costs, variant instructions have higher +** costs than invariants and PHIs should preferably never be spilled. +** +** Here's a first cut at simple, but effective blended cost-model for R-LSRA: +** - Due to careful design of the IR, constants already have lower IR +** references than invariants and invariants have lower IR references +** than variants. +** - The cost in the upper 16 bits is the sum of the IR reference and a +** weighted score. The score currently only takes into account whether +** the IRT_ISPHI bit is set in the instruction type. +** - The PHI weight is the minimum distance (in IR instructions) a PHI +** reference has to be further apart from a non-PHI reference to be spilled. +** - It should be a power of two (for speed) and must be between 2 and 32768. +** Good values for the PHI weight seem to be between 40 and 150. +** - Further study is required. +*/ +#define REGCOST_PHI_WEIGHT 64 + +/* Cost for allocating a specific register. */ +typedef uint32_t RegCost; + +/* Note: assumes 16 bit IRRef1. */ +#define REGCOST(cost, ref) ((RegCost)(ref) + ((RegCost)(cost) << 16)) +#define regcost_ref(rc) ((IRRef1)(rc)) + +#define REGCOST_T(t) \ + ((RegCost)((t)&IRT_ISPHI) * (((RegCost)(REGCOST_PHI_WEIGHT)<<16)/IRT_ISPHI)) +#define REGCOST_REF_T(ref, t) (REGCOST((ref), (ref)) + REGCOST_T((t))) + +/* -- Target-specific definitions ----------------------------------------- */ + +#if LJ_TARGET_X86ORX64 +#include "lj_target_x86.h" +#elif LJ_TARGET_ARM +#include "lj_target_arm.h" +#elif LJ_TARGET_PPC +#include "lj_target_ppc.h" +#elif LJ_TARGET_MIPS +#include "lj_target_mips.h" +#else +#error "Missing include for target CPU" +#endif + +#ifdef EXITSTUBS_PER_GROUP +/* Return the address of an exit stub. */ +static LJ_AINLINE char *exitstub_addr_(char **group, uint32_t exitno) +{ + lua_assert(group[exitno / EXITSTUBS_PER_GROUP] != NULL); + return (char *)group[exitno / EXITSTUBS_PER_GROUP] + + EXITSTUB_SPACING*(exitno % EXITSTUBS_PER_GROUP); +} +/* Avoid dependence on lj_jit.h if only including lj_target.h. */ +#define exitstub_addr(J, exitno) \ + ((MCode *)exitstub_addr_((char **)((J)->exitstubgroup), (exitno))) +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target_arm.h b/src/3rd party/luajit-2.0/src/lj_target_arm.h new file mode 100644 index 00000000000..6d4d0aed00e --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target_arm.h @@ -0,0 +1,274 @@ +/* +** Definitions for ARM CPUs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_ARM_H +#define _LJ_TARGET_ARM_H + +/* -- Registers IDs ------------------------------------------------------- */ + +#define GPRDEF(_) \ + _(R0) _(R1) _(R2) _(R3) _(R4) _(R5) _(R6) _(R7) \ + _(R8) _(R9) _(R10) _(R11) _(R12) _(SP) _(LR) _(PC) +#if LJ_SOFTFP +#define FPRDEF(_) +#else +#define FPRDEF(_) \ + _(D0) _(D1) _(D2) _(D3) _(D4) _(D5) _(D6) _(D7) \ + _(D8) _(D9) _(D10) _(D11) _(D12) _(D13) _(D14) _(D15) +#endif +#define VRIDDEF(_) + +#define RIDENUM(name) RID_##name, + +enum { + GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ + FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ + RID_MAX, + RID_TMP = RID_LR, + + /* Calling conventions. */ + RID_RET = RID_R0, + RID_RETLO = RID_R0, + RID_RETHI = RID_R1, +#if LJ_SOFTFP + RID_FPRET = RID_R0, +#else + RID_FPRET = RID_D0, +#endif + + /* These definitions must match with the *.dasc file(s): */ + RID_BASE = RID_R9, /* Interpreter BASE. */ + RID_LPC = RID_R6, /* Interpreter PC. */ + RID_DISPATCH = RID_R7, /* Interpreter DISPATCH table. */ + RID_LREG = RID_R8, /* Interpreter L. */ + + /* Register ranges [min, max) and number of registers. */ + RID_MIN_GPR = RID_R0, + RID_MAX_GPR = RID_PC+1, + RID_MIN_FPR = RID_MAX_GPR, +#if LJ_SOFTFP + RID_MAX_FPR = RID_MIN_FPR, +#else + RID_MAX_FPR = RID_D15+1, +#endif + RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, + RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR +}; + +#define RID_NUM_KREF RID_NUM_GPR +#define RID_MIN_KREF RID_R0 + +/* -- Register sets ------------------------------------------------------- */ + +/* Make use of all registers, except sp, lr and pc. */ +#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_R12+1)) +#define RSET_GPREVEN \ + (RID2RSET(RID_R0)|RID2RSET(RID_R2)|RID2RSET(RID_R4)|RID2RSET(RID_R6)| \ + RID2RSET(RID_R8)|RID2RSET(RID_R10)) +#define RSET_GPRODD \ + (RID2RSET(RID_R1)|RID2RSET(RID_R3)|RID2RSET(RID_R5)|RID2RSET(RID_R7)| \ + RID2RSET(RID_R9)|RID2RSET(RID_R11)) +#if LJ_SOFTFP +#define RSET_FPR 0 +#else +#define RSET_FPR (RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR)) +#endif +#define RSET_ALL (RSET_GPR|RSET_FPR) +#define RSET_INIT RSET_ALL + +/* ABI-specific register sets. lr is an implicit scratch register. */ +#define RSET_SCRATCH_GPR_ (RSET_RANGE(RID_R0, RID_R3+1)|RID2RSET(RID_R12)) +#ifdef __APPLE__ +#define RSET_SCRATCH_GPR (RSET_SCRATCH_GPR_|RID2RSET(RID_R9)) +#else +#define RSET_SCRATCH_GPR RSET_SCRATCH_GPR_ +#endif +#if LJ_SOFTFP +#define RSET_SCRATCH_FPR 0 +#else +#define RSET_SCRATCH_FPR (RSET_RANGE(RID_D0, RID_D7+1)) +#endif +#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) +#define REGARG_FIRSTGPR RID_R0 +#define REGARG_LASTGPR RID_R3 +#define REGARG_NUMGPR 4 +#if LJ_ABI_SOFTFP +#define REGARG_FIRSTFPR 0 +#define REGARG_LASTFPR 0 +#define REGARG_NUMFPR 0 +#else +#define REGARG_FIRSTFPR RID_D0 +#define REGARG_LASTFPR RID_D7 +#define REGARG_NUMFPR 8 +#endif + +/* -- Spill slots --------------------------------------------------------- */ + +/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. +** +** SPS_FIXED: Available fixed spill slots in interpreter frame. +** This definition must match with the *.dasc file(s). +** +** SPS_FIRST: First spill slot for general use. Reserve min. two 32 bit slots. +*/ +#define SPS_FIXED 2 +#define SPS_FIRST 2 + +#define SPOFS_TMP 0 + +#define sps_scale(slot) (4 * (int32_t)(slot)) +#define sps_align(slot) (((slot) - SPS_FIXED + 1) & ~1) + +/* -- Exit state ---------------------------------------------------------- */ + +/* This definition must match with the *.dasc file(s). */ +typedef struct { +#if !LJ_SOFTFP + lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ +#endif + int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ + int32_t spill[256]; /* Spill slots. */ +} ExitState; + +/* PC after instruction that caused an exit. Used to find the trace number. */ +#define EXITSTATE_PCREG RID_PC +/* Highest exit + 1 indicates stack check. */ +#define EXITSTATE_CHECKEXIT 1 + +#define EXITSTUB_SPACING 4 +#define EXITSTUBS_PER_GROUP 32 + +/* -- Instructions -------------------------------------------------------- */ + +/* Instruction fields. */ +#define ARMF_CC(ai, cc) (((ai) ^ ARMI_CCAL) | ((cc) << 28)) +#define ARMF_N(r) ((r) << 16) +#define ARMF_D(r) ((r) << 12) +#define ARMF_S(r) ((r) << 8) +#define ARMF_M(r) (r) +#define ARMF_SH(sh, n) (((sh) << 5) | ((n) << 7)) +#define ARMF_RSH(sh, r) (0x10 | ((sh) << 5) | ARMF_S(r)) + +typedef enum ARMIns { + ARMI_CCAL = 0xe0000000, + ARMI_S = 0x000100000, + ARMI_K12 = 0x02000000, + ARMI_KNEG = 0x00200000, + ARMI_LS_W = 0x00200000, + ARMI_LS_U = 0x00800000, + ARMI_LS_P = 0x01000000, + ARMI_LS_R = 0x02000000, + ARMI_LSX_I = 0x00400000, + + ARMI_AND = 0xe0000000, + ARMI_EOR = 0xe0200000, + ARMI_SUB = 0xe0400000, + ARMI_RSB = 0xe0600000, + ARMI_ADD = 0xe0800000, + ARMI_ADC = 0xe0a00000, + ARMI_SBC = 0xe0c00000, + ARMI_RSC = 0xe0e00000, + ARMI_TST = 0xe1100000, + ARMI_TEQ = 0xe1300000, + ARMI_CMP = 0xe1500000, + ARMI_CMN = 0xe1700000, + ARMI_ORR = 0xe1800000, + ARMI_MOV = 0xe1a00000, + ARMI_BIC = 0xe1c00000, + ARMI_MVN = 0xe1e00000, + + ARMI_NOP = 0xe1a00000, + + ARMI_MUL = 0xe0000090, + ARMI_SMULL = 0xe0c00090, + + ARMI_LDR = 0xe4100000, + ARMI_LDRB = 0xe4500000, + ARMI_LDRH = 0xe01000b0, + ARMI_LDRSB = 0xe01000d0, + ARMI_LDRSH = 0xe01000f0, + ARMI_LDRD = 0xe00000d0, + ARMI_STR = 0xe4000000, + ARMI_STRB = 0xe4400000, + ARMI_STRH = 0xe00000b0, + ARMI_STRD = 0xe00000f0, + ARMI_PUSH = 0xe92d0000, + + ARMI_B = 0xea000000, + ARMI_BL = 0xeb000000, + ARMI_BLX = 0xfa000000, + ARMI_BLXr = 0xe12fff30, + + /* ARMv6 */ + ARMI_REV = 0xe6bf0f30, + ARMI_SXTB = 0xe6af0070, + ARMI_SXTH = 0xe6bf0070, + ARMI_UXTB = 0xe6ef0070, + ARMI_UXTH = 0xe6ff0070, + + /* ARMv6T2 */ + ARMI_MOVW = 0xe3000000, + ARMI_MOVT = 0xe3400000, + + /* VFP */ + ARMI_VMOV_D = 0xeeb00b40, + ARMI_VMOV_S = 0xeeb00a40, + ARMI_VMOVI_D = 0xeeb00b00, + + ARMI_VMOV_R_S = 0xee100a10, + ARMI_VMOV_S_R = 0xee000a10, + ARMI_VMOV_RR_D = 0xec500b10, + ARMI_VMOV_D_RR = 0xec400b10, + + ARMI_VADD_D = 0xee300b00, + ARMI_VSUB_D = 0xee300b40, + ARMI_VMUL_D = 0xee200b00, + ARMI_VMLA_D = 0xee000b00, + ARMI_VMLS_D = 0xee000b40, + ARMI_VNMLS_D = 0xee100b00, + ARMI_VDIV_D = 0xee800b00, + + ARMI_VABS_D = 0xeeb00bc0, + ARMI_VNEG_D = 0xeeb10b40, + ARMI_VSQRT_D = 0xeeb10bc0, + + ARMI_VCMP_D = 0xeeb40b40, + ARMI_VCMPZ_D = 0xeeb50b40, + + ARMI_VMRS = 0xeef1fa10, + + ARMI_VCVT_S32_F32 = 0xeebd0ac0, + ARMI_VCVT_S32_F64 = 0xeebd0bc0, + ARMI_VCVT_U32_F32 = 0xeebc0ac0, + ARMI_VCVT_U32_F64 = 0xeebc0bc0, + ARMI_VCVTR_S32_F32 = 0xeebd0a40, + ARMI_VCVTR_S32_F64 = 0xeebd0b40, + ARMI_VCVTR_U32_F32 = 0xeebc0a40, + ARMI_VCVTR_U32_F64 = 0xeebc0b40, + ARMI_VCVT_F32_S32 = 0xeeb80ac0, + ARMI_VCVT_F64_S32 = 0xeeb80bc0, + ARMI_VCVT_F32_U32 = 0xeeb80a40, + ARMI_VCVT_F64_U32 = 0xeeb80b40, + ARMI_VCVT_F32_F64 = 0xeeb70bc0, + ARMI_VCVT_F64_F32 = 0xeeb70ac0, + + ARMI_VLDR_S = 0xed100a00, + ARMI_VLDR_D = 0xed100b00, + ARMI_VSTR_S = 0xed000a00, + ARMI_VSTR_D = 0xed000b00, +} ARMIns; + +typedef enum ARMShift { + ARMSH_LSL, ARMSH_LSR, ARMSH_ASR, ARMSH_ROR +} ARMShift; + +/* ARM condition codes. */ +typedef enum ARMCC { + CC_EQ, CC_NE, CC_CS, CC_CC, CC_MI, CC_PL, CC_VS, CC_VC, + CC_HI, CC_LS, CC_GE, CC_LT, CC_GT, CC_LE, CC_AL, + CC_HS = CC_CS, CC_LO = CC_CC +} ARMCC; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target_mips.h b/src/3rd party/luajit-2.0/src/lj_target_mips.h new file mode 100644 index 00000000000..0ab140bf327 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target_mips.h @@ -0,0 +1,257 @@ +/* +** Definitions for MIPS CPUs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_MIPS_H +#define _LJ_TARGET_MIPS_H + +/* -- Registers IDs ------------------------------------------------------- */ + +#define GPRDEF(_) \ + _(R0) _(R1) _(R2) _(R3) _(R4) _(R5) _(R6) _(R7) \ + _(R8) _(R9) _(R10) _(R11) _(R12) _(R13) _(R14) _(R15) \ + _(R16) _(R17) _(R18) _(R19) _(R20) _(R21) _(R22) _(R23) \ + _(R24) _(R25) _(SYS1) _(SYS2) _(R28) _(SP) _(R30) _(RA) +#define FPRDEF(_) \ + _(F0) _(F1) _(F2) _(F3) _(F4) _(F5) _(F6) _(F7) \ + _(F8) _(F9) _(F10) _(F11) _(F12) _(F13) _(F14) _(F15) \ + _(F16) _(F17) _(F18) _(F19) _(F20) _(F21) _(F22) _(F23) \ + _(F24) _(F25) _(F26) _(F27) _(F28) _(F29) _(F30) _(F31) +#define VRIDDEF(_) + +#define RIDENUM(name) RID_##name, + +enum { + GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ + FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ + RID_MAX, + RID_ZERO = RID_R0, + RID_TMP = RID_RA, + + /* Calling conventions. */ + RID_RET = RID_R2, +#if LJ_LE + RID_RETHI = RID_R3, + RID_RETLO = RID_R2, +#else + RID_RETHI = RID_R2, + RID_RETLO = RID_R3, +#endif + RID_FPRET = RID_F0, + RID_CFUNCADDR = RID_R25, + + /* These definitions must match with the *.dasc file(s): */ + RID_BASE = RID_R16, /* Interpreter BASE. */ + RID_LPC = RID_R18, /* Interpreter PC. */ + RID_DISPATCH = RID_R19, /* Interpreter DISPATCH table. */ + RID_LREG = RID_R20, /* Interpreter L. */ + RID_JGL = RID_R30, /* On-trace: global_State + 32768. */ + + /* Register ranges [min, max) and number of registers. */ + RID_MIN_GPR = RID_R0, + RID_MAX_GPR = RID_RA+1, + RID_MIN_FPR = RID_F0, + RID_MAX_FPR = RID_F31+1, + RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, + RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR /* Only even regs are used. */ +}; + +#define RID_NUM_KREF RID_NUM_GPR +#define RID_MIN_KREF RID_R0 + +/* -- Register sets ------------------------------------------------------- */ + +/* Make use of all registers, except ZERO, TMP, SP, SYS1, SYS2 and JGL. */ +#define RSET_FIXED \ + (RID2RSET(RID_ZERO)|RID2RSET(RID_TMP)|RID2RSET(RID_SP)|\ + RID2RSET(RID_SYS1)|RID2RSET(RID_SYS2)|RID2RSET(RID_JGL)) +#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) +#define RSET_FPR \ + (RID2RSET(RID_F0)|RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(RID_F6)|\ + RID2RSET(RID_F8)|RID2RSET(RID_F10)|RID2RSET(RID_F12)|RID2RSET(RID_F14)|\ + RID2RSET(RID_F16)|RID2RSET(RID_F18)|RID2RSET(RID_F20)|RID2RSET(RID_F22)|\ + RID2RSET(RID_F24)|RID2RSET(RID_F26)|RID2RSET(RID_F28)|RID2RSET(RID_F30)) +#define RSET_ALL (RSET_GPR|RSET_FPR) +#define RSET_INIT RSET_ALL + +#define RSET_SCRATCH_GPR \ + (RSET_RANGE(RID_R1, RID_R15+1)|\ + RID2RSET(RID_R24)|RID2RSET(RID_R25)|RID2RSET(RID_R28)) +#define RSET_SCRATCH_FPR \ + (RID2RSET(RID_F0)|RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(RID_F6)|\ + RID2RSET(RID_F8)|RID2RSET(RID_F10)|RID2RSET(RID_F12)|RID2RSET(RID_F14)|\ + RID2RSET(RID_F16)|RID2RSET(RID_F18)) +#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) +#define REGARG_FIRSTGPR RID_R4 +#define REGARG_LASTGPR RID_R7 +#define REGARG_NUMGPR 4 +#define REGARG_FIRSTFPR RID_F12 +#define REGARG_LASTFPR RID_F14 +#define REGARG_NUMFPR 2 + +/* -- Spill slots --------------------------------------------------------- */ + +/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. +** +** SPS_FIXED: Available fixed spill slots in interpreter frame. +** This definition must match with the *.dasc file(s). +** +** SPS_FIRST: First spill slot for general use. +*/ +#define SPS_FIXED 5 +#define SPS_FIRST 4 + +#define SPOFS_TMP 0 + +#define sps_scale(slot) (4 * (int32_t)(slot)) +#define sps_align(slot) (((slot) - SPS_FIXED + 1) & ~1) + +/* -- Exit state ---------------------------------------------------------- */ + +/* This definition must match with the *.dasc file(s). */ +typedef struct { + lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ + int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ + int32_t spill[256]; /* Spill slots. */ +} ExitState; + +/* Highest exit + 1 indicates stack check. */ +#define EXITSTATE_CHECKEXIT 1 + +/* Return the address of a per-trace exit stub. */ +static LJ_AINLINE uint32_t *exitstub_trace_addr_(uint32_t *p) +{ + while (*p == 0x00000000) p++; /* Skip MIPSI_NOP. */ + return p; +} +/* Avoid dependence on lj_jit.h if only including lj_target.h. */ +#define exitstub_trace_addr(T, exitno) \ + exitstub_trace_addr_((MCode *)((char *)(T)->mcode + (T)->szmcode)) + +/* -- Instructions -------------------------------------------------------- */ + +/* Instruction fields. */ +#define MIPSF_S(r) ((r) << 21) +#define MIPSF_T(r) ((r) << 16) +#define MIPSF_D(r) ((r) << 11) +#define MIPSF_R(r) ((r) << 21) +#define MIPSF_H(r) ((r) << 16) +#define MIPSF_G(r) ((r) << 11) +#define MIPSF_F(r) ((r) << 6) +#define MIPSF_A(n) ((n) << 6) +#define MIPSF_M(n) ((n) << 11) + +typedef enum MIPSIns { + /* Integer instructions. */ + MIPSI_MOVE = 0x00000021, + MIPSI_NOP = 0x00000000, + + MIPSI_LI = 0x24000000, + MIPSI_LU = 0x34000000, + MIPSI_LUI = 0x3c000000, + + MIPSI_ADDIU = 0x24000000, + MIPSI_ANDI = 0x30000000, + MIPSI_ORI = 0x34000000, + MIPSI_XORI = 0x38000000, + MIPSI_SLTI = 0x28000000, + MIPSI_SLTIU = 0x2c000000, + + MIPSI_ADDU = 0x00000021, + MIPSI_SUBU = 0x00000023, + MIPSI_MUL = 0x70000002, + MIPSI_AND = 0x00000024, + MIPSI_OR = 0x00000025, + MIPSI_XOR = 0x00000026, + MIPSI_NOR = 0x00000027, + MIPSI_SLT = 0x0000002a, + MIPSI_SLTU = 0x0000002b, + MIPSI_MOVZ = 0x0000000a, + MIPSI_MOVN = 0x0000000b, + + MIPSI_SLL = 0x00000000, + MIPSI_SRL = 0x00000002, + MIPSI_SRA = 0x00000003, + MIPSI_ROTR = 0x00200002, /* MIPS32R2 */ + MIPSI_SLLV = 0x00000004, + MIPSI_SRLV = 0x00000006, + MIPSI_SRAV = 0x00000007, + MIPSI_ROTRV = 0x00000046, /* MIPS32R2 */ + + MIPSI_SEB = 0x7c000420, /* MIPS32R2 */ + MIPSI_SEH = 0x7c000620, /* MIPS32R2 */ + MIPSI_WSBH = 0x7c0000a0, /* MIPS32R2 */ + + MIPSI_B = 0x10000000, + MIPSI_J = 0x08000000, + MIPSI_JAL = 0x0c000000, + MIPSI_JR = 0x00000008, + MIPSI_JALR = 0x0000f809, + + MIPSI_BEQ = 0x10000000, + MIPSI_BNE = 0x14000000, + MIPSI_BLEZ = 0x18000000, + MIPSI_BGTZ = 0x1c000000, + MIPSI_BLTZ = 0x04000000, + MIPSI_BGEZ = 0x04010000, + + /* Load/store instructions. */ + MIPSI_LW = 0x8c000000, + MIPSI_SW = 0xac000000, + MIPSI_LB = 0x80000000, + MIPSI_SB = 0xa0000000, + MIPSI_LH = 0x84000000, + MIPSI_SH = 0xa4000000, + MIPSI_LBU = 0x90000000, + MIPSI_LHU = 0x94000000, + MIPSI_LWC1 = 0xc4000000, + MIPSI_SWC1 = 0xe4000000, + MIPSI_LDC1 = 0xd4000000, + MIPSI_SDC1 = 0xf4000000, + + /* FP instructions. */ + MIPSI_MOV_S = 0x46000006, + MIPSI_MOV_D = 0x46200006, + MIPSI_MOVT_D = 0x46210011, + MIPSI_MOVF_D = 0x46200011, + + MIPSI_ABS_D = 0x46200005, + MIPSI_NEG_D = 0x46200007, + + MIPSI_ADD_D = 0x46200000, + MIPSI_SUB_D = 0x46200001, + MIPSI_MUL_D = 0x46200002, + MIPSI_DIV_D = 0x46200003, + MIPSI_SQRT_D = 0x46200004, + + MIPSI_ADD_S = 0x46000000, + MIPSI_SUB_S = 0x46000001, + + MIPSI_CVT_D_S = 0x46000021, + MIPSI_CVT_W_S = 0x46000024, + MIPSI_CVT_S_D = 0x46200020, + MIPSI_CVT_W_D = 0x46200024, + MIPSI_CVT_S_W = 0x46800020, + MIPSI_CVT_D_W = 0x46800021, + + MIPSI_TRUNC_W_S = 0x4600000d, + MIPSI_TRUNC_W_D = 0x4620000d, + MIPSI_FLOOR_W_S = 0x4600000f, + MIPSI_FLOOR_W_D = 0x4620000f, + + MIPSI_MFC1 = 0x44000000, + MIPSI_MTC1 = 0x44800000, + + MIPSI_BC1F = 0x45000000, + MIPSI_BC1T = 0x45010000, + + MIPSI_C_EQ_D = 0x46200032, + MIPSI_C_OLT_D = 0x46200034, + MIPSI_C_ULT_D = 0x46200035, + MIPSI_C_OLE_D = 0x46200036, + MIPSI_C_ULE_D = 0x46200037, + +} MIPSIns; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target_ppc.h b/src/3rd party/luajit-2.0/src/lj_target_ppc.h new file mode 100644 index 00000000000..2caeeb044c7 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target_ppc.h @@ -0,0 +1,280 @@ +/* +** Definitions for PPC CPUs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_PPC_H +#define _LJ_TARGET_PPC_H + +/* -- Registers IDs ------------------------------------------------------- */ + +#define GPRDEF(_) \ + _(R0) _(SP) _(SYS1) _(R3) _(R4) _(R5) _(R6) _(R7) \ + _(R8) _(R9) _(R10) _(R11) _(R12) _(SYS2) _(R14) _(R15) \ + _(R16) _(R17) _(R18) _(R19) _(R20) _(R21) _(R22) _(R23) \ + _(R24) _(R25) _(R26) _(R27) _(R28) _(R29) _(R30) _(R31) +#define FPRDEF(_) \ + _(F0) _(F1) _(F2) _(F3) _(F4) _(F5) _(F6) _(F7) \ + _(F8) _(F9) _(F10) _(F11) _(F12) _(F13) _(F14) _(F15) \ + _(F16) _(F17) _(F18) _(F19) _(F20) _(F21) _(F22) _(F23) \ + _(F24) _(F25) _(F26) _(F27) _(F28) _(F29) _(F30) _(F31) +#define VRIDDEF(_) + +#define RIDENUM(name) RID_##name, + +enum { + GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ + FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ + RID_MAX, + RID_TMP = RID_R0, + + /* Calling conventions. */ + RID_RET = RID_R3, + RID_RETHI = RID_R3, + RID_RETLO = RID_R4, + RID_FPRET = RID_F1, + + /* These definitions must match with the *.dasc file(s): */ + RID_BASE = RID_R14, /* Interpreter BASE. */ + RID_LPC = RID_R16, /* Interpreter PC. */ + RID_DISPATCH = RID_R17, /* Interpreter DISPATCH table. */ + RID_LREG = RID_R18, /* Interpreter L. */ + RID_JGL = RID_R31, /* On-trace: global_State + 32768. */ + + /* Register ranges [min, max) and number of registers. */ + RID_MIN_GPR = RID_R0, + RID_MAX_GPR = RID_R31+1, + RID_MIN_FPR = RID_F0, + RID_MAX_FPR = RID_F31+1, + RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, + RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR +}; + +#define RID_NUM_KREF RID_NUM_GPR +#define RID_MIN_KREF RID_R0 + +/* -- Register sets ------------------------------------------------------- */ + +/* Make use of all registers, except TMP, SP, SYS1, SYS2 and JGL. */ +#define RSET_FIXED \ + (RID2RSET(RID_TMP)|RID2RSET(RID_SP)|RID2RSET(RID_SYS1)|\ + RID2RSET(RID_SYS2)|RID2RSET(RID_JGL)) +#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) +#define RSET_FPR RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR) +#define RSET_ALL (RSET_GPR|RSET_FPR) +#define RSET_INIT RSET_ALL + +#define RSET_SCRATCH_GPR (RSET_RANGE(RID_R3, RID_R12+1)) +#define RSET_SCRATCH_FPR (RSET_RANGE(RID_F0, RID_F13+1)) +#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) +#define REGARG_FIRSTGPR RID_R3 +#define REGARG_LASTGPR RID_R10 +#define REGARG_NUMGPR 8 +#define REGARG_FIRSTFPR RID_F1 +#define REGARG_LASTFPR RID_F8 +#define REGARG_NUMFPR 8 + +/* -- Spill slots --------------------------------------------------------- */ + +/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. +** +** SPS_FIXED: Available fixed spill slots in interpreter frame. +** This definition must match with the *.dasc file(s). +** +** SPS_FIRST: First spill slot for general use. +** [sp+12] tmplo word \ +** [sp+ 8] tmphi word / tmp dword, parameter area for callee +** [sp+ 4] tmpw, LR of callee +** [sp+ 0] stack chain +*/ +#define SPS_FIXED 7 +#define SPS_FIRST 4 + +/* Stack offsets for temporary slots. Used for FP<->int conversions etc. */ +#define SPOFS_TMPW 4 +#define SPOFS_TMP 8 +#define SPOFS_TMPHI 8 +#define SPOFS_TMPLO 12 + +#define sps_scale(slot) (4 * (int32_t)(slot)) +#define sps_align(slot) (((slot) - SPS_FIXED + 3) & ~3) + +/* -- Exit state ---------------------------------------------------------- */ + +/* This definition must match with the *.dasc file(s). */ +typedef struct { + lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ + int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ + int32_t spill[256]; /* Spill slots. */ +} ExitState; + +/* Highest exit + 1 indicates stack check. */ +#define EXITSTATE_CHECKEXIT 1 + +/* Return the address of a per-trace exit stub. */ +static LJ_AINLINE uint32_t *exitstub_trace_addr_(uint32_t *p, uint32_t exitno) +{ + while (*p == 0x60000000) p++; /* Skip PPCI_NOP. */ + return p + 3 + exitno; +} +/* Avoid dependence on lj_jit.h if only including lj_target.h. */ +#define exitstub_trace_addr(T, exitno) \ + exitstub_trace_addr_((MCode *)((char *)(T)->mcode + (T)->szmcode), (exitno)) + +/* -- Instructions -------------------------------------------------------- */ + +/* Instruction fields. */ +#define PPCF_CC(cc) ((((cc) & 3) << 16) | (((cc) & 4) << 22)) +#define PPCF_T(r) ((r) << 21) +#define PPCF_A(r) ((r) << 16) +#define PPCF_B(r) ((r) << 11) +#define PPCF_C(r) ((r) << 6) +#define PPCF_MB(n) ((n) << 6) +#define PPCF_ME(n) ((n) << 1) +#define PPCF_Y 0x00200000 +#define PPCF_DOT 0x00000001 + +typedef enum PPCIns { + /* Integer instructions. */ + PPCI_MR = 0x7c000378, + PPCI_NOP = 0x60000000, + + PPCI_LI = 0x38000000, + PPCI_LIS = 0x3c000000, + + PPCI_ADD = 0x7c000214, + PPCI_ADDC = 0x7c000014, + PPCI_ADDO = 0x7c000614, + PPCI_ADDE = 0x7c000114, + PPCI_ADDZE = 0x7c000194, + PPCI_ADDME = 0x7c0001d4, + PPCI_ADDI = 0x38000000, + PPCI_ADDIS = 0x3c000000, + PPCI_ADDIC = 0x30000000, + PPCI_ADDICDOT = 0x34000000, + + PPCI_SUBF = 0x7c000050, + PPCI_SUBFC = 0x7c000010, + PPCI_SUBFO = 0x7c000450, + PPCI_SUBFE = 0x7c000110, + PPCI_SUBFZE = 0x7c000190, + PPCI_SUBFME = 0x7c0001d0, + PPCI_SUBFIC = 0x20000000, + + PPCI_NEG = 0x7c0000d0, + + PPCI_AND = 0x7c000038, + PPCI_ANDC = 0x7c000078, + PPCI_NAND = 0x7c0003b8, + PPCI_ANDIDOT = 0x70000000, + PPCI_ANDISDOT = 0x74000000, + + PPCI_OR = 0x7c000378, + PPCI_NOR = 0x7c0000f8, + PPCI_ORI = 0x60000000, + PPCI_ORIS = 0x64000000, + + PPCI_XOR = 0x7c000278, + PPCI_EQV = 0x7c000238, + PPCI_XORI = 0x68000000, + PPCI_XORIS = 0x6c000000, + + PPCI_CMPW = 0x7c000000, + PPCI_CMPLW = 0x7c000040, + PPCI_CMPWI = 0x2c000000, + PPCI_CMPLWI = 0x28000000, + + PPCI_MULLW = 0x7c0001d6, + PPCI_MULLI = 0x1c000000, + PPCI_MULLWO = 0x7c0005d6, + + PPCI_EXTSB = 0x7c000774, + PPCI_EXTSH = 0x7c000734, + + PPCI_SLW = 0x7c000030, + PPCI_SRW = 0x7c000430, + PPCI_SRAW = 0x7c000630, + PPCI_SRAWI = 0x7c000670, + + PPCI_RLWNM = 0x5c000000, + PPCI_RLWINM = 0x54000000, + PPCI_RLWIMI = 0x50000000, + + PPCI_B = 0x48000000, + PPCI_BL = 0x48000001, + PPCI_BC = 0x40800000, + PPCI_BCL = 0x40800001, + PPCI_BCTR = 0x4e800420, + PPCI_BCTRL = 0x4e800421, + + PPCI_CRANDC = 0x4c000102, + PPCI_CRXOR = 0x4c000182, + PPCI_CRAND = 0x4c000202, + PPCI_CREQV = 0x4c000242, + PPCI_CRORC = 0x4c000342, + PPCI_CROR = 0x4c000382, + + PPCI_MFLR = 0x7c0802a6, + PPCI_MTCTR = 0x7c0903a6, + + PPCI_MCRXR = 0x7c000400, + + /* Load/store instructions. */ + PPCI_LWZ = 0x80000000, + PPCI_LBZ = 0x88000000, + PPCI_STW = 0x90000000, + PPCI_STB = 0x98000000, + PPCI_LHZ = 0xa0000000, + PPCI_LHA = 0xa8000000, + PPCI_STH = 0xb0000000, + + PPCI_STWU = 0x94000000, + + PPCI_LFS = 0xc0000000, + PPCI_LFD = 0xc8000000, + PPCI_STFS = 0xd0000000, + PPCI_STFD = 0xd8000000, + + PPCI_LWZX = 0x7c00002e, + PPCI_LBZX = 0x7c0000ae, + PPCI_STWX = 0x7c00012e, + PPCI_STBX = 0x7c0001ae, + PPCI_LHZX = 0x7c00022e, + PPCI_LHAX = 0x7c0002ae, + PPCI_STHX = 0x7c00032e, + + PPCI_LWBRX = 0x7c00042c, + PPCI_STWBRX = 0x7c00052c, + + PPCI_LFSX = 0x7c00042e, + PPCI_LFDX = 0x7c0004ae, + PPCI_STFSX = 0x7c00052e, + PPCI_STFDX = 0x7c0005ae, + + /* FP instructions. */ + PPCI_FMR = 0xfc000090, + PPCI_FNEG = 0xfc000050, + PPCI_FABS = 0xfc000210, + + PPCI_FRSP = 0xfc000018, + PPCI_FCTIWZ = 0xfc00001e, + + PPCI_FADD = 0xfc00002a, + PPCI_FSUB = 0xfc000028, + PPCI_FMUL = 0xfc000032, + PPCI_FDIV = 0xfc000024, + PPCI_FSQRT = 0xfc00002c, + + PPCI_FMADD = 0xfc00003a, + PPCI_FMSUB = 0xfc000038, + PPCI_FNMSUB = 0xfc00003c, + + PPCI_FCMPU = 0xfc000000, + PPCI_FSEL = 0xfc00002e, +} PPCIns; + +typedef enum PPCCC { + CC_GE, CC_LE, CC_NE, CC_NS, CC_LT, CC_GT, CC_EQ, CC_SO +} PPCCC; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target_x86.h b/src/3rd party/luajit-2.0/src/lj_target_x86.h new file mode 100644 index 00000000000..d12a1b87c00 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target_x86.h @@ -0,0 +1,342 @@ +/* +** Definitions for x86 and x64 CPUs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_X86_H +#define _LJ_TARGET_X86_H + +/* -- Registers IDs ------------------------------------------------------- */ + +#if LJ_64 +#define GPRDEF(_) \ + _(EAX) _(ECX) _(EDX) _(EBX) _(ESP) _(EBP) _(ESI) _(EDI) \ + _(R8D) _(R9D) _(R10D) _(R11D) _(R12D) _(R13D) _(R14D) _(R15D) +#define FPRDEF(_) \ + _(XMM0) _(XMM1) _(XMM2) _(XMM3) _(XMM4) _(XMM5) _(XMM6) _(XMM7) \ + _(XMM8) _(XMM9) _(XMM10) _(XMM11) _(XMM12) _(XMM13) _(XMM14) _(XMM15) +#else +#define GPRDEF(_) \ + _(EAX) _(ECX) _(EDX) _(EBX) _(ESP) _(EBP) _(ESI) _(EDI) +#define FPRDEF(_) \ + _(XMM0) _(XMM1) _(XMM2) _(XMM3) _(XMM4) _(XMM5) _(XMM6) _(XMM7) +#endif +#define VRIDDEF(_) \ + _(MRM) + +#define RIDENUM(name) RID_##name, + +enum { + GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ + FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ + RID_MAX, + RID_MRM = RID_MAX, /* Pseudo-id for ModRM operand. */ + + /* Calling conventions. */ + RID_RET = RID_EAX, +#if LJ_64 + RID_FPRET = RID_XMM0, +#else + RID_RETLO = RID_EAX, + RID_RETHI = RID_EDX, +#endif + + /* These definitions must match with the *.dasc file(s): */ + RID_BASE = RID_EDX, /* Interpreter BASE. */ +#if LJ_64 && !LJ_ABI_WIN + RID_LPC = RID_EBX, /* Interpreter PC. */ + RID_DISPATCH = RID_R14D, /* Interpreter DISPATCH table. */ +#else + RID_LPC = RID_ESI, /* Interpreter PC. */ + RID_DISPATCH = RID_EBX, /* Interpreter DISPATCH table. */ +#endif + + /* Register ranges [min, max) and number of registers. */ + RID_MIN_GPR = RID_EAX, + RID_MIN_FPR = RID_XMM0, + RID_MAX_GPR = RID_MIN_FPR, + RID_MAX_FPR = RID_MAX, + RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, + RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR, +}; + +/* -- Register sets ------------------------------------------------------- */ + +/* Make use of all registers, except the stack pointer. */ +#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR)-RID2RSET(RID_ESP)) +#define RSET_FPR (RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR)) +#define RSET_ALL (RSET_GPR|RSET_FPR) +#define RSET_INIT RSET_ALL + +#if LJ_64 +/* Note: this requires the use of FORCE_REX! */ +#define RSET_GPR8 RSET_GPR +#else +#define RSET_GPR8 (RSET_RANGE(RID_EAX, RID_EBX+1)) +#endif + +/* ABI-specific register sets. */ +#define RSET_ACD (RID2RSET(RID_EAX)|RID2RSET(RID_ECX)|RID2RSET(RID_EDX)) +#if LJ_64 +#if LJ_ABI_WIN +/* Windows x64 ABI. */ +#define RSET_SCRATCH \ + (RSET_ACD|RSET_RANGE(RID_R8D, RID_R11D+1)|RSET_RANGE(RID_XMM0, RID_XMM5+1)) +#define REGARG_GPRS \ + (RID_ECX|((RID_EDX|((RID_R8D|(RID_R9D<<5))<<5))<<5)) +#define REGARG_NUMGPR 4 +#define REGARG_NUMFPR 4 +#define REGARG_FIRSTFPR RID_XMM0 +#define REGARG_LASTFPR RID_XMM3 +#define STACKARG_OFS (4*8) +#else +/* The rest of the civilized x64 world has a common ABI. */ +#define RSET_SCRATCH \ + (RSET_ACD|RSET_RANGE(RID_ESI, RID_R11D+1)|RSET_FPR) +#define REGARG_GPRS \ + (RID_EDI|((RID_ESI|((RID_EDX|((RID_ECX|((RID_R8D|(RID_R9D \ + <<5))<<5))<<5))<<5))<<5)) +#define REGARG_NUMGPR 6 +#define REGARG_NUMFPR 8 +#define REGARG_FIRSTFPR RID_XMM0 +#define REGARG_LASTFPR RID_XMM7 +#define STACKARG_OFS 0 +#endif +#else +/* Common x86 ABI. */ +#define RSET_SCRATCH (RSET_ACD|RSET_FPR) +#define REGARG_GPRS (RID_ECX|(RID_EDX<<5)) /* Fastcall only. */ +#define REGARG_NUMGPR 2 /* Fastcall only. */ +#define REGARG_NUMFPR 0 +#define STACKARG_OFS 0 +#endif + +#if LJ_64 +/* Prefer the low 8 regs of each type to reduce REX prefixes. */ +#undef rset_picktop +#define rset_picktop(rs) (lj_fls(lj_bswap(rs)) ^ 0x18) +#endif + +/* -- Spill slots --------------------------------------------------------- */ + +/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. +** +** SPS_FIXED: Available fixed spill slots in interpreter frame. +** This definition must match with the *.dasc file(s). +** +** SPS_FIRST: First spill slot for general use. Reserve min. two 32 bit slots. +*/ +#if LJ_64 +#if LJ_ABI_WIN +#define SPS_FIXED (4*2) +#define SPS_FIRST (4*2) /* Don't use callee register save area. */ +#else +#define SPS_FIXED 4 +#define SPS_FIRST 2 +#endif +#else +#define SPS_FIXED 6 +#define SPS_FIRST 2 +#endif + +#define SPOFS_TMP 0 + +#define sps_scale(slot) (4 * (int32_t)(slot)) +#define sps_align(slot) (((slot) - SPS_FIXED + 3) & ~3) + +/* -- Exit state ---------------------------------------------------------- */ + +/* This definition must match with the *.dasc file(s). */ +typedef struct { + lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ + intptr_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ + int32_t spill[256]; /* Spill slots. */ +} ExitState; + +/* Limited by the range of a short fwd jump (127): (2+2)*(32-1)-2 = 122. */ +#define EXITSTUB_SPACING (2+2) +#define EXITSTUBS_PER_GROUP 32 + +/* -- x86 ModRM operand encoding ------------------------------------------ */ + +typedef enum { + XM_OFS0 = 0x00, XM_OFS8 = 0x40, XM_OFS32 = 0x80, XM_REG = 0xc0, + XM_SCALE1 = 0x00, XM_SCALE2 = 0x40, XM_SCALE4 = 0x80, XM_SCALE8 = 0xc0, + XM_MASK = 0xc0 +} x86Mode; + +/* Structure to hold variable ModRM operand. */ +typedef struct { + int32_t ofs; /* Offset. */ + uint8_t base; /* Base register or RID_NONE. */ + uint8_t idx; /* Index register or RID_NONE. */ + uint8_t scale; /* Index scale (XM_SCALE1 .. XM_SCALE8). */ +} x86ModRM; + +/* -- Opcodes ------------------------------------------------------------- */ + +/* Macros to construct variable-length x86 opcodes. -(len+1) is in LSB. */ +#define XO_(o) ((uint32_t)(0x0000fe + (0x##o<<24))) +#define XO_FPU(a,b) ((uint32_t)(0x00fd + (0x##a<<16)+(0x##b<<24))) +#define XO_0f(o) ((uint32_t)(0x0f00fd + (0x##o<<24))) +#define XO_66(o) ((uint32_t)(0x6600fd + (0x##o<<24))) +#define XO_660f(o) ((uint32_t)(0x0f66fc + (0x##o<<24))) +#define XO_f20f(o) ((uint32_t)(0x0ff2fc + (0x##o<<24))) +#define XO_f30f(o) ((uint32_t)(0x0ff3fc + (0x##o<<24))) + +/* This list of x86 opcodes is not intended to be complete. Opcodes are only +** included when needed. Take a look at DynASM or jit.dis_x86 to see the +** whole mess. +*/ +typedef enum { + /* Fixed length opcodes. XI_* prefix. */ + XI_NOP = 0x90, + XI_XCHGa = 0x90, + XI_CALL = 0xe8, + XI_JMP = 0xe9, + XI_JMPs = 0xeb, + XI_PUSH = 0x50, /* Really 50+r. */ + XI_JCCs = 0x70, /* Really 7x. */ + XI_JCCn = 0x80, /* Really 0f8x. */ + XI_LEA = 0x8d, + XI_MOVrib = 0xb0, /* Really b0+r. */ + XI_MOVri = 0xb8, /* Really b8+r. */ + XI_ARITHib = 0x80, + XI_ARITHi = 0x81, + XI_ARITHi8 = 0x83, + XI_PUSHi8 = 0x6a, + XI_TESTb = 0x84, + XI_TEST = 0x85, + XI_MOVmi = 0xc7, + XI_GROUP5 = 0xff, + + /* Note: little-endian byte-order! */ + XI_FLDZ = 0xeed9, + XI_FLD1 = 0xe8d9, + XI_FLDLG2 = 0xecd9, + XI_FLDLN2 = 0xedd9, + XI_FDUP = 0xc0d9, /* Really fld st0. */ + XI_FPOP = 0xd8dd, /* Really fstp st0. */ + XI_FPOP1 = 0xd9dd, /* Really fstp st1. */ + XI_FRNDINT = 0xfcd9, + XI_FSIN = 0xfed9, + XI_FCOS = 0xffd9, + XI_FPTAN = 0xf2d9, + XI_FPATAN = 0xf3d9, + XI_FSCALE = 0xfdd9, + XI_FYL2X = 0xf1d9, + + /* Variable-length opcodes. XO_* prefix. */ + XO_MOV = XO_(8b), + XO_MOVto = XO_(89), + XO_MOVtow = XO_66(89), + XO_MOVtob = XO_(88), + XO_MOVmi = XO_(c7), + XO_MOVmib = XO_(c6), + XO_LEA = XO_(8d), + XO_ARITHib = XO_(80), + XO_ARITHi = XO_(81), + XO_ARITHi8 = XO_(83), + XO_ARITHiw8 = XO_66(83), + XO_SHIFTi = XO_(c1), + XO_SHIFT1 = XO_(d1), + XO_SHIFTcl = XO_(d3), + XO_IMUL = XO_0f(af), + XO_IMULi = XO_(69), + XO_IMULi8 = XO_(6b), + XO_CMP = XO_(3b), + XO_TESTb = XO_(84), + XO_TEST = XO_(85), + XO_GROUP3b = XO_(f6), + XO_GROUP3 = XO_(f7), + XO_GROUP5b = XO_(fe), + XO_GROUP5 = XO_(ff), + XO_MOVZXb = XO_0f(b6), + XO_MOVZXw = XO_0f(b7), + XO_MOVSXb = XO_0f(be), + XO_MOVSXw = XO_0f(bf), + XO_MOVSXd = XO_(63), + XO_BSWAP = XO_0f(c8), + XO_CMOV = XO_0f(40), + + XO_MOVSD = XO_f20f(10), + XO_MOVSDto = XO_f20f(11), + XO_MOVSS = XO_f30f(10), + XO_MOVSSto = XO_f30f(11), + XO_MOVLPD = XO_660f(12), + XO_MOVAPS = XO_0f(28), + XO_XORPS = XO_0f(57), + XO_ANDPS = XO_0f(54), + XO_ADDSD = XO_f20f(58), + XO_SUBSD = XO_f20f(5c), + XO_MULSD = XO_f20f(59), + XO_DIVSD = XO_f20f(5e), + XO_SQRTSD = XO_f20f(51), + XO_MINSD = XO_f20f(5d), + XO_MAXSD = XO_f20f(5f), + XO_ROUNDSD = 0x0b3a0ffc, /* Really 66 0f 3a 0b. See asm_fpmath. */ + XO_UCOMISD = XO_660f(2e), + XO_CVTSI2SD = XO_f20f(2a), + XO_CVTSD2SI = XO_f20f(2d), + XO_CVTTSD2SI= XO_f20f(2c), + XO_CVTSI2SS = XO_f30f(2a), + XO_CVTSS2SI = XO_f30f(2d), + XO_CVTTSS2SI= XO_f30f(2c), + XO_CVTSS2SD = XO_f30f(5a), + XO_CVTSD2SS = XO_f20f(5a), + XO_ADDSS = XO_f30f(58), + XO_MOVD = XO_660f(6e), + XO_MOVDto = XO_660f(7e), + + XO_FLDd = XO_(d9), XOg_FLDd = 0, + XO_FLDq = XO_(dd), XOg_FLDq = 0, + XO_FILDd = XO_(db), XOg_FILDd = 0, + XO_FILDq = XO_(df), XOg_FILDq = 5, + XO_FSTPd = XO_(d9), XOg_FSTPd = 3, + XO_FSTPq = XO_(dd), XOg_FSTPq = 3, + XO_FISTPq = XO_(df), XOg_FISTPq = 7, + XO_FISTTPq = XO_(dd), XOg_FISTTPq = 1, + XO_FADDq = XO_(dc), XOg_FADDq = 0, + XO_FLDCW = XO_(d9), XOg_FLDCW = 5, + XO_FNSTCW = XO_(d9), XOg_FNSTCW = 7 +} x86Op; + +/* x86 opcode groups. */ +typedef uint32_t x86Group; + +#define XG_(i8, i, g) ((x86Group)(((i8) << 16) + ((i) << 8) + (g))) +#define XG_ARITHi(g) XG_(XI_ARITHi8, XI_ARITHi, g) +#define XG_TOXOi(xg) ((x86Op)(0x000000fe + (((xg)<<16) & 0xff000000))) +#define XG_TOXOi8(xg) ((x86Op)(0x000000fe + (((xg)<<8) & 0xff000000))) + +#define XO_ARITH(a) ((x86Op)(0x030000fe + ((a)<<27))) +#define XO_ARITHw(a) ((x86Op)(0x036600fd + ((a)<<27))) + +typedef enum { + XOg_ADD, XOg_OR, XOg_ADC, XOg_SBB, XOg_AND, XOg_SUB, XOg_XOR, XOg_CMP, + XOg_X_IMUL +} x86Arith; + +typedef enum { + XOg_ROL, XOg_ROR, XOg_RCL, XOg_RCR, XOg_SHL, XOg_SHR, XOg_SAL, XOg_SAR +} x86Shift; + +typedef enum { + XOg_TEST, XOg_TEST_, XOg_NOT, XOg_NEG, XOg_MUL, XOg_IMUL, XOg_DIV, XOg_IDIV +} x86Group3; + +typedef enum { + XOg_INC, XOg_DEC, XOg_CALL, XOg_CALLfar, XOg_JMP, XOg_JMPfar, XOg_PUSH +} x86Group5; + +/* x86 condition codes. */ +typedef enum { + CC_O, CC_NO, CC_B, CC_NB, CC_E, CC_NE, CC_BE, CC_NBE, + CC_S, CC_NS, CC_P, CC_NP, CC_L, CC_NL, CC_LE, CC_NLE, + CC_C = CC_B, CC_NAE = CC_C, CC_NC = CC_NB, CC_AE = CC_NB, + CC_Z = CC_E, CC_NZ = CC_NE, CC_NA = CC_BE, CC_A = CC_NBE, + CC_PE = CC_P, CC_PO = CC_NP, CC_NGE = CC_L, CC_GE = CC_NL, + CC_NG = CC_LE, CC_G = CC_NLE +} x86CC; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_trace.c b/src/3rd party/luajit-2.0/src/lj_trace.c new file mode 100644 index 00000000000..e51ec5467a0 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_trace.c @@ -0,0 +1,816 @@ +/* +** Trace management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_trace_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASJIT + +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_debug.h" +#include "lj_str.h" +#include "lj_frame.h" +#include "lj_state.h" +#include "lj_bc.h" +#include "lj_ir.h" +#include "lj_jit.h" +#include "lj_iropt.h" +#include "lj_mcode.h" +#include "lj_trace.h" +#include "lj_snap.h" +#include "lj_gdbjit.h" +#include "lj_record.h" +#include "lj_asm.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_vmevent.h" +#include "lj_target.h" + +/* -- Error handling ------------------------------------------------------ */ + +/* Synchronous abort with error message. */ +void lj_trace_err(jit_State *J, TraceError e) +{ + setnilV(&J->errinfo); /* No error info. */ + setintV(J->L->top++, (int32_t)e); + lj_err_throw(J->L, LUA_ERRRUN); +} + +/* Synchronous abort with error message and error info. */ +void lj_trace_err_info(jit_State *J, TraceError e) +{ + setintV(J->L->top++, (int32_t)e); + lj_err_throw(J->L, LUA_ERRRUN); +} + +/* -- Trace management ---------------------------------------------------- */ + +/* The current trace is first assembled in J->cur. The variable length +** arrays point to shared, growable buffers (J->irbuf etc.). When trace +** recording ends successfully, the current trace and its data structures +** are copied to a new (compact) GCtrace object. +*/ + +/* Find a free trace number. */ +static TraceNo trace_findfree(jit_State *J) +{ + MSize osz, lim; + if (J->freetrace == 0) + J->freetrace = 1; + for (; J->freetrace < J->sizetrace; J->freetrace++) + if (traceref(J, J->freetrace) == NULL) + return J->freetrace++; + /* Need to grow trace array. */ + lim = (MSize)J->param[JIT_P_maxtrace] + 1; + if (lim < 2) lim = 2; else if (lim > 65535) lim = 65535; + osz = J->sizetrace; + if (osz >= lim) + return 0; /* Too many traces. */ + lj_mem_growvec(J->L, J->trace, J->sizetrace, lim, GCRef); + for (; osz < J->sizetrace; osz++) + setgcrefnull(J->trace[osz]); + return J->freetrace; +} + +#define TRACE_APPENDVEC(field, szfield, tp) \ + T->field = (tp *)p; \ + memcpy(p, J->cur.field, J->cur.szfield*sizeof(tp)); \ + p += J->cur.szfield*sizeof(tp); + +#ifdef LUAJIT_USE_PERFTOOLS +/* +** Create symbol table of JIT-compiled code. For use with Linux perf tools. +** Example usage: +** perf record -f -e cycles luajit test.lua +** perf report -s symbol +** rm perf.data /tmp/perf-*.map +*/ +#include +#include + +static void perftools_addtrace(GCtrace *T) +{ + static FILE *fp; + GCproto *pt = &gcref(T->startpt)->pt; + const BCIns *startpc = mref(T->startpc, const BCIns); + const char *name = proto_chunknamestr(pt); + BCLine lineno; + if (name[0] == '@' || name[0] == '=') + name++; + else + name = "(string)"; + lua_assert(startpc >= proto_bc(pt) && startpc < proto_bc(pt) + pt->sizebc); + lineno = lj_debug_line(pt, proto_bcpos(pt, startpc)); + if (!fp) { + char fname[40]; + sprintf(fname, "/tmp/perf-%d.map", getpid()); + if (!(fp = fopen(fname, "w"))) return; + setlinebuf(fp); + } + fprintf(fp, "%lx %x TRACE_%d::%s:%u\n", + (long)T->mcode, T->szmcode, T->traceno, name, lineno); +} +#endif + +/* Save current trace by copying and compacting it. */ +static void trace_save(jit_State *J) +{ + size_t sztr = ((sizeof(GCtrace)+7)&~7); + size_t szins = (J->cur.nins-J->cur.nk)*sizeof(IRIns); + size_t sz = sztr + szins + + J->cur.nsnap*sizeof(SnapShot) + + J->cur.nsnapmap*sizeof(SnapEntry); + GCtrace *T = lj_mem_newt(J->L, (MSize)sz, GCtrace); + char *p = (char *)T + sztr; + memcpy(T, &J->cur, sizeof(GCtrace)); + setgcrefr(T->nextgc, J2G(J)->gc.root); + setgcrefp(J2G(J)->gc.root, T); + newwhite(J2G(J), T); + T->gct = ~LJ_TTRACE; + T->ir = (IRIns *)p - J->cur.nk; + memcpy(p, J->cur.ir+J->cur.nk, szins); + p += szins; + TRACE_APPENDVEC(snap, nsnap, SnapShot) + TRACE_APPENDVEC(snapmap, nsnapmap, SnapEntry) + J->cur.traceno = 0; + setgcrefp(J->trace[T->traceno], T); + lj_gc_barriertrace(J2G(J), T->traceno); + lj_gdbjit_addtrace(J, T); +#ifdef LUAJIT_USE_PERFTOOLS + perftools_addtrace(T); +#endif +} + +void LJ_FASTCALL lj_trace_free(global_State *g, GCtrace *T) +{ + jit_State *J = G2J(g); + if (T->traceno) { + lj_gdbjit_deltrace(J, T); + if (T->traceno < J->freetrace) + J->freetrace = T->traceno; + setgcrefnull(J->trace[T->traceno]); + } + lj_mem_free(g, T, + ((sizeof(GCtrace)+7)&~7) + (T->nins-T->nk)*sizeof(IRIns) + + T->nsnap*sizeof(SnapShot) + T->nsnapmap*sizeof(SnapEntry)); +} + +/* Re-enable compiling a prototype by unpatching any modified bytecode. */ +void lj_trace_reenableproto(GCproto *pt) +{ + if ((pt->flags & PROTO_ILOOP)) { + BCIns *bc = proto_bc(pt); + BCPos i, sizebc = pt->sizebc;; + pt->flags &= ~PROTO_ILOOP; + if (bc_op(bc[0]) == BC_IFUNCF) + setbc_op(&bc[0], BC_FUNCF); + for (i = 1; i < sizebc; i++) { + BCOp op = bc_op(bc[i]); + if (op == BC_IFORL || op == BC_IITERL || op == BC_ILOOP) + setbc_op(&bc[i], (int)op+(int)BC_LOOP-(int)BC_ILOOP); + } + } +} + +/* Unpatch the bytecode modified by a root trace. */ +static void trace_unpatch(jit_State *J, GCtrace *T) +{ + BCOp op = bc_op(T->startins); + BCIns *pc = mref(T->startpc, BCIns); + UNUSED(J); + if (op == BC_JMP) + return; /* No need to unpatch branches in parent traces (yet). */ + switch (bc_op(*pc)) { + case BC_JFORL: + lua_assert(traceref(J, bc_d(*pc)) == T); + *pc = T->startins; + pc += bc_j(T->startins); + lua_assert(bc_op(*pc) == BC_JFORI); + setbc_op(pc, BC_FORI); + break; + case BC_JITERL: + case BC_JLOOP: + lua_assert(op == BC_ITERL || op == BC_LOOP || bc_isret(op)); + *pc = T->startins; + break; + case BC_JMP: + lua_assert(op == BC_ITERL); + pc += bc_j(*pc)+2; + if (bc_op(*pc) == BC_JITERL) { + lua_assert(traceref(J, bc_d(*pc)) == T); + *pc = T->startins; + } + break; + case BC_JFUNCF: + lua_assert(op == BC_FUNCF); + *pc = T->startins; + break; + default: /* Already unpatched. */ + break; + } +} + +/* Flush a root trace. */ +static void trace_flushroot(jit_State *J, GCtrace *T) +{ + GCproto *pt = &gcref(T->startpt)->pt; + lua_assert(T->root == 0 && pt != NULL); + /* First unpatch any modified bytecode. */ + trace_unpatch(J, T); + /* Unlink root trace from chain anchored in prototype. */ + if (pt->trace == T->traceno) { /* Trace is first in chain. Easy. */ + pt->trace = T->nextroot; + } else if (pt->trace) { /* Otherwise search in chain of root traces. */ + GCtrace *T2 = traceref(J, pt->trace); + if (T2) { + for (; T2->nextroot; T2 = traceref(J, T2->nextroot)) + if (T2->nextroot == T->traceno) { + T2->nextroot = T->nextroot; /* Unlink from chain. */ + break; + } + } + } +} + +/* Flush a trace. Only root traces are considered. */ +void lj_trace_flush(jit_State *J, TraceNo traceno) +{ + if (traceno > 0 && traceno < J->sizetrace) { + GCtrace *T = traceref(J, traceno); + if (T && T->root == 0) + trace_flushroot(J, T); + } +} + +/* Flush all traces associated with a prototype. */ +void lj_trace_flushproto(global_State *g, GCproto *pt) +{ + while (pt->trace != 0) + trace_flushroot(G2J(g), traceref(G2J(g), pt->trace)); +} + +/* Flush all traces. */ +int lj_trace_flushall(lua_State *L) +{ + jit_State *J = L2J(L); + ptrdiff_t i; + if ((J2G(J)->hookmask & HOOK_GC)) + return 1; + for (i = (ptrdiff_t)J->sizetrace-1; i > 0; i--) { + GCtrace *T = traceref(J, i); + if (T) { + if (T->root == 0) + trace_flushroot(J, T); + lj_gdbjit_deltrace(J, T); + T->traceno = 0; + setgcrefnull(J->trace[i]); + } + } + J->cur.traceno = 0; + J->freetrace = 0; + /* Clear penalty cache. */ + memset(J->penalty, 0, sizeof(J->penalty)); + /* Free the whole machine code and invalidate all exit stub groups. */ + lj_mcode_free(J); + memset(J->exitstubgroup, 0, sizeof(J->exitstubgroup)); + lj_vmevent_send(L, TRACE, + setstrV(L, L->top++, lj_str_newlit(L, "flush")); + ); + return 0; +} + +/* Initialize JIT compiler state. */ +void lj_trace_initstate(global_State *g) +{ + jit_State *J = G2J(g); + TValue *tv; + /* Initialize SIMD constants. */ + tv = LJ_KSIMD(J, LJ_KSIMD_ABS); + tv[0].u64 = U64x(7fffffff,ffffffff); + tv[1].u64 = U64x(7fffffff,ffffffff); + tv = LJ_KSIMD(J, LJ_KSIMD_NEG); + tv[0].u64 = U64x(80000000,00000000); + tv[1].u64 = U64x(80000000,00000000); +} + +/* Free everything associated with the JIT compiler state. */ +void lj_trace_freestate(global_State *g) +{ + jit_State *J = G2J(g); +#ifdef LUA_USE_ASSERT + { /* This assumes all traces have already been freed. */ + ptrdiff_t i; + for (i = 1; i < (ptrdiff_t)J->sizetrace; i++) + lua_assert(i == (ptrdiff_t)J->cur.traceno || traceref(J, i) == NULL); + } +#endif + lj_mcode_free(J); + lj_ir_k64_freeall(J); + lj_mem_freevec(g, J->snapmapbuf, J->sizesnapmap, SnapEntry); + lj_mem_freevec(g, J->snapbuf, J->sizesnap, SnapShot); + lj_mem_freevec(g, J->irbuf + J->irbotlim, J->irtoplim - J->irbotlim, IRIns); + lj_mem_freevec(g, J->trace, J->sizetrace, GCRef); +} + +/* -- Penalties and blacklisting ------------------------------------------ */ + +/* Blacklist a bytecode instruction. */ +static void blacklist_pc(GCproto *pt, BCIns *pc) +{ + setbc_op(pc, (int)bc_op(*pc)+(int)BC_ILOOP-(int)BC_LOOP); + pt->flags |= PROTO_ILOOP; +} + +/* Penalize a bytecode instruction. */ +static void penalty_pc(jit_State *J, GCproto *pt, BCIns *pc, TraceError e) +{ + uint32_t i, val = PENALTY_MIN; + for (i = 0; i < PENALTY_SLOTS; i++) + if (mref(J->penalty[i].pc, const BCIns) == pc) { /* Cache slot found? */ + /* First try to bump its hotcount several times. */ + val = ((uint32_t)J->penalty[i].val << 1) + + LJ_PRNG_BITS(J, PENALTY_RNDBITS); + if (val > PENALTY_MAX) { + blacklist_pc(pt, pc); /* Blacklist it, if that didn't help. */ + return; + } + goto setpenalty; + } + /* Assign a new penalty cache slot. */ + i = J->penaltyslot; + J->penaltyslot = (J->penaltyslot + 1) & (PENALTY_SLOTS-1); + setmref(J->penalty[i].pc, pc); +setpenalty: + J->penalty[i].val = (uint16_t)val; + J->penalty[i].reason = e; + hotcount_set(J2GG(J), pc+1, val); +} + +/* -- Trace compiler state machine ---------------------------------------- */ + +/* Start tracing. */ +static void trace_start(jit_State *J) +{ + lua_State *L; + TraceNo traceno; + + if ((J->pt->flags & PROTO_NOJIT)) { /* JIT disabled for this proto? */ + if (J->parent == 0) { + /* Lazy bytecode patching to disable hotcount events. */ + lua_assert(bc_op(*J->pc) == BC_FORL || bc_op(*J->pc) == BC_ITERL || + bc_op(*J->pc) == BC_LOOP || bc_op(*J->pc) == BC_FUNCF); + setbc_op(J->pc, (int)bc_op(*J->pc)+(int)BC_ILOOP-(int)BC_LOOP); + J->pt->flags |= PROTO_ILOOP; + } + J->state = LJ_TRACE_IDLE; /* Silently ignored. */ + return; + } + + /* Get a new trace number. */ + traceno = trace_findfree(J); + if (LJ_UNLIKELY(traceno == 0)) { /* No free trace? */ + lua_assert((J2G(J)->hookmask & HOOK_GC) == 0); + lj_trace_flushall(J->L); + J->state = LJ_TRACE_IDLE; /* Silently ignored. */ + return; + } + setgcrefp(J->trace[traceno], &J->cur); + + /* Setup enough of the current trace to be able to send the vmevent. */ + memset(&J->cur, 0, sizeof(GCtrace)); + J->cur.traceno = traceno; + J->cur.nins = J->cur.nk = REF_BASE; + J->cur.ir = J->irbuf; + J->cur.snap = J->snapbuf; + J->cur.snapmap = J->snapmapbuf; + J->mergesnap = 0; + J->needsnap = 0; + J->bcskip = 0; + J->guardemit.irt = 0; + J->postproc = LJ_POST_NONE; + lj_resetsplit(J); + setgcref(J->cur.startpt, obj2gco(J->pt)); + + L = J->L; + lj_vmevent_send(L, TRACE, + setstrV(L, L->top++, lj_str_newlit(L, "start")); + setintV(L->top++, traceno); + setfuncV(L, L->top++, J->fn); + setintV(L->top++, proto_bcpos(J->pt, J->pc)); + if (J->parent) { + setintV(L->top++, J->parent); + setintV(L->top++, J->exitno); + } + ); + lj_record_setup(J); +} + +/* Stop tracing. */ +static void trace_stop(jit_State *J) +{ + BCIns *pc = mref(J->cur.startpc, BCIns); + BCOp op = bc_op(J->cur.startins); + GCproto *pt = &gcref(J->cur.startpt)->pt; + TraceNo traceno = J->cur.traceno; + lua_State *L; + + switch (op) { + case BC_FORL: + setbc_op(pc+bc_j(J->cur.startins), BC_JFORI); /* Patch FORI, too. */ + /* fallthrough */ + case BC_LOOP: + case BC_ITERL: + case BC_FUNCF: + /* Patch bytecode of starting instruction in root trace. */ + setbc_op(pc, (int)op+(int)BC_JLOOP-(int)BC_LOOP); + setbc_d(pc, traceno); + addroot: + /* Add to root trace chain in prototype. */ + J->cur.nextroot = pt->trace; + pt->trace = (TraceNo1)traceno; + break; + case BC_RET: + case BC_RET0: + case BC_RET1: + *pc = BCINS_AD(BC_JLOOP, J->cur.snap[0].nslots, traceno); + goto addroot; + case BC_JMP: + /* Patch exit branch in parent to side trace entry. */ + lua_assert(J->parent != 0 && J->cur.root != 0); + lj_asm_patchexit(J, traceref(J, J->parent), J->exitno, J->cur.mcode); + /* Avoid compiling a side trace twice (stack resizing uses parent exit). */ + traceref(J, J->parent)->snap[J->exitno].count = SNAPCOUNT_DONE; + /* Add to side trace chain in root trace. */ + { + GCtrace *root = traceref(J, J->cur.root); + root->nchild++; + J->cur.nextside = root->nextside; + root->nextside = (TraceNo1)traceno; + } + break; + default: + lua_assert(0); + break; + } + + /* Commit new mcode only after all patching is done. */ + lj_mcode_commit(J, J->cur.mcode); + J->postproc = LJ_POST_NONE; + trace_save(J); + + L = J->L; + lj_vmevent_send(L, TRACE, + setstrV(L, L->top++, lj_str_newlit(L, "stop")); + setintV(L->top++, traceno); + ); +} + +/* Start a new root trace for down-recursion. */ +static int trace_downrec(jit_State *J) +{ + /* Restart recording at the return instruction. */ + lua_assert(J->pt != NULL); + lua_assert(bc_isret(bc_op(*J->pc))); + if (bc_op(*J->pc) == BC_RETM) + return 0; /* NYI: down-recursion with RETM. */ + J->parent = 0; + J->exitno = 0; + J->state = LJ_TRACE_RECORD; + trace_start(J); + return 1; +} + +/* Abort tracing. */ +static int trace_abort(jit_State *J) +{ + lua_State *L = J->L; + TraceError e = LJ_TRERR_RECERR; + TraceNo traceno; + + J->postproc = LJ_POST_NONE; + lj_mcode_abort(J); + if (tvisnumber(L->top-1)) + e = (TraceError)numberVint(L->top-1); + if (e == LJ_TRERR_MCODELM) { + L->top--; /* Remove error object */ + J->state = LJ_TRACE_ASM; + return 1; /* Retry ASM with new MCode area. */ + } + /* Penalize or blacklist starting bytecode instruction. */ + if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) + penalty_pc(J, &gcref(J->cur.startpt)->pt, mref(J->cur.startpc, BCIns), e); + + /* Is there anything to abort? */ + traceno = J->cur.traceno; + if (traceno) { + ptrdiff_t errobj = savestack(L, L->top-1); /* Stack may be resized. */ + J->cur.link = 0; + J->cur.linktype = LJ_TRLINK_NONE; + lj_vmevent_send(L, TRACE, + TValue *frame; + const BCIns *pc; + GCfunc *fn; + setstrV(L, L->top++, lj_str_newlit(L, "abort")); + setintV(L->top++, traceno); + /* Find original Lua function call to generate a better error message. */ + frame = J->L->base-1; + pc = J->pc; + while (!isluafunc(frame_func(frame))) { + pc = (frame_iscont(frame) ? frame_contpc(frame) : frame_pc(frame)) - 1; + frame = frame_prev(frame); + } + fn = frame_func(frame); + setfuncV(L, L->top++, fn); + setintV(L->top++, proto_bcpos(funcproto(fn), pc)); + copyTV(L, L->top++, restorestack(L, errobj)); + copyTV(L, L->top++, &J->errinfo); + ); + /* Drop aborted trace after the vmevent (which may still access it). */ + setgcrefnull(J->trace[traceno]); + if (traceno < J->freetrace) + J->freetrace = traceno; + J->cur.traceno = 0; + } + L->top--; /* Remove error object */ + if (e == LJ_TRERR_DOWNREC) + return trace_downrec(J); + else if (e == LJ_TRERR_MCODEAL) + lj_trace_flushall(L); + return 0; +} + +/* Perform pending re-patch of a bytecode instruction. */ +static LJ_AINLINE void trace_pendpatch(jit_State *J, int force) +{ + if (LJ_UNLIKELY(J->patchpc)) { + if (force || J->bcskip == 0) { + *J->patchpc = J->patchins; + J->patchpc = NULL; + } else { + J->bcskip = 0; + } + } +} + +/* State machine for the trace compiler. Protected callback. */ +static TValue *trace_state(lua_State *L, lua_CFunction dummy, void *ud) +{ + jit_State *J = (jit_State *)ud; + UNUSED(dummy); + do { + retry: + switch (J->state) { + case LJ_TRACE_START: + J->state = LJ_TRACE_RECORD; /* trace_start() may change state. */ + trace_start(J); + lj_dispatch_update(J2G(J)); + break; + + case LJ_TRACE_RECORD: + trace_pendpatch(J, 0); + setvmstate(J2G(J), RECORD); + lj_vmevent_send_(L, RECORD, + /* Save/restore tmptv state for trace recorder. */ + TValue savetv = J2G(J)->tmptv; + TValue savetv2 = J2G(J)->tmptv2; + setintV(L->top++, J->cur.traceno); + setfuncV(L, L->top++, J->fn); + setintV(L->top++, J->pt ? (int32_t)proto_bcpos(J->pt, J->pc) : -1); + setintV(L->top++, J->framedepth); + , + J2G(J)->tmptv = savetv; + J2G(J)->tmptv2 = savetv2; + ); + lj_record_ins(J); + break; + + case LJ_TRACE_END: + trace_pendpatch(J, 1); + J->loopref = 0; + if ((J->flags & JIT_F_OPT_LOOP) && + J->cur.link == J->cur.traceno && J->framedepth + J->retdepth == 0) { + setvmstate(J2G(J), OPT); + lj_opt_dce(J); + if (lj_opt_loop(J)) { /* Loop optimization failed? */ + J->cur.link = 0; + J->cur.linktype = LJ_TRLINK_NONE; + J->loopref = J->cur.nins; + J->state = LJ_TRACE_RECORD; /* Try to continue recording. */ + break; + } + J->loopref = J->chain[IR_LOOP]; /* Needed by assembler. */ + } + lj_opt_split(J); + lj_opt_sink(J); + if (!J->loopref) J->cur.snap[J->cur.nsnap-1].count = SNAPCOUNT_DONE; + J->state = LJ_TRACE_ASM; + break; + + case LJ_TRACE_ASM: + setvmstate(J2G(J), ASM); + lj_asm_trace(J, &J->cur); + trace_stop(J); + setvmstate(J2G(J), INTERP); + J->state = LJ_TRACE_IDLE; + lj_dispatch_update(J2G(J)); + return NULL; + + default: /* Trace aborted asynchronously. */ + setintV(L->top++, (int32_t)LJ_TRERR_RECERR); + /* fallthrough */ + case LJ_TRACE_ERR: + trace_pendpatch(J, 1); + if (trace_abort(J)) + goto retry; + setvmstate(J2G(J), INTERP); + J->state = LJ_TRACE_IDLE; + lj_dispatch_update(J2G(J)); + return NULL; + } + } while (J->state > LJ_TRACE_RECORD); + return NULL; +} + +/* -- Event handling ------------------------------------------------------ */ + +/* A bytecode instruction is about to be executed. Record it. */ +void lj_trace_ins(jit_State *J, const BCIns *pc) +{ + /* Note: J->L must already be set. pc is the true bytecode PC here. */ + J->pc = pc; + J->fn = curr_func(J->L); + J->pt = isluafunc(J->fn) ? funcproto(J->fn) : NULL; + while (lj_vm_cpcall(J->L, NULL, (void *)J, trace_state) != 0) + J->state = LJ_TRACE_ERR; +} + +/* A hotcount triggered. Start recording a root trace. */ +void LJ_FASTCALL lj_trace_hot(jit_State *J, const BCIns *pc) +{ + /* Note: pc is the interpreter bytecode PC here. It's offset by 1. */ + ERRNO_SAVE + /* Reset hotcount. */ + hotcount_set(J2GG(J), pc, J->param[JIT_P_hotloop]*HOTCOUNT_LOOP); + /* Only start a new trace if not recording or inside __gc call or vmevent. */ + if (J->state == LJ_TRACE_IDLE && + !(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT))) { + J->parent = 0; /* Root trace. */ + J->exitno = 0; + J->state = LJ_TRACE_START; + lj_trace_ins(J, pc-1); + } + ERRNO_RESTORE +} + +/* Check for a hot side exit. If yes, start recording a side trace. */ +static void trace_hotside(jit_State *J, const BCIns *pc) +{ + SnapShot *snap = &traceref(J, J->parent)->snap[J->exitno]; + if (!(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT)) && + snap->count != SNAPCOUNT_DONE && + ++snap->count >= J->param[JIT_P_hotexit]) { + lua_assert(J->state == LJ_TRACE_IDLE); + /* J->parent is non-zero for a side trace. */ + J->state = LJ_TRACE_START; + lj_trace_ins(J, pc); + } +} + +/* Tiny struct to pass data to protected call. */ +typedef struct ExitDataCP { + jit_State *J; + void *exptr; /* Pointer to exit state. */ + const BCIns *pc; /* Restart interpreter at this PC. */ +} ExitDataCP; + +/* Need to protect lj_snap_restore because it may throw. */ +static TValue *trace_exit_cp(lua_State *L, lua_CFunction dummy, void *ud) +{ + ExitDataCP *exd = (ExitDataCP *)ud; + cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ + exd->pc = lj_snap_restore(exd->J, exd->exptr); + UNUSED(dummy); + return NULL; +} + +#ifndef LUAJIT_DISABLE_VMEVENT +/* Push all registers from exit state. */ +static void trace_exit_regs(lua_State *L, ExitState *ex) +{ + int32_t i; + setintV(L->top++, RID_NUM_GPR); + setintV(L->top++, RID_NUM_FPR); + for (i = 0; i < RID_NUM_GPR; i++) { + if (sizeof(ex->gpr[i]) == sizeof(int32_t)) + setintV(L->top++, (int32_t)ex->gpr[i]); + else + setnumV(L->top++, (lua_Number)ex->gpr[i]); + } +#if !LJ_SOFTFP + for (i = 0; i < RID_NUM_FPR; i++) { + setnumV(L->top, ex->fpr[i]); + if (LJ_UNLIKELY(tvisnan(L->top))) + setnanV(L->top); + L->top++; + } +#endif +} +#endif + +#ifdef EXITSTATE_PCREG +/* Determine trace number from pc of exit instruction. */ +static TraceNo trace_exit_find(jit_State *J, MCode *pc) +{ + TraceNo traceno; + for (traceno = 1; traceno < J->sizetrace; traceno++) { + GCtrace *T = traceref(J, traceno); + if (T && pc >= T->mcode && pc < (MCode *)((char *)T->mcode + T->szmcode)) + return traceno; + } + lua_assert(0); + return 0; +} +#endif + +/* A trace exited. Restore interpreter state. */ +int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr) +{ + ERRNO_SAVE + lua_State *L = J->L; + ExitState *ex = (ExitState *)exptr; + ExitDataCP exd; + int errcode; + const BCIns *pc; + void *cf; + GCtrace *T; +#ifdef EXITSTATE_PCREG + J->parent = trace_exit_find(J, (MCode *)(intptr_t)ex->gpr[EXITSTATE_PCREG]); +#endif + T = traceref(J, J->parent); UNUSED(T); +#ifdef EXITSTATE_CHECKEXIT + if (J->exitno == T->nsnap) { /* Treat stack check like a parent exit. */ + lua_assert(T->root != 0); + J->exitno = T->ir[REF_BASE].op2; + J->parent = T->ir[REF_BASE].op1; + T = traceref(J, J->parent); + } +#endif + lua_assert(T != NULL && J->exitno < T->nsnap); + exd.J = J; + exd.exptr = exptr; + errcode = lj_vm_cpcall(L, NULL, &exd, trace_exit_cp); + if (errcode) + return -errcode; /* Return negated error code. */ + + lj_vmevent_send(L, TEXIT, + lj_state_checkstack(L, 4+RID_NUM_GPR+RID_NUM_FPR+LUA_MINSTACK); + setintV(L->top++, J->parent); + setintV(L->top++, J->exitno); + trace_exit_regs(L, ex); + ); + + pc = exd.pc; + cf = cframe_raw(L->cframe); + setcframe_pc(cf, pc); + if (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize) { + if (!(G(L)->hookmask & HOOK_GC)) + lj_gc_step(L); /* Exited because of GC: drive GC forward. */ + } else { + trace_hotside(J, pc); + } + if (bc_op(*pc) == BC_JLOOP) { + BCIns *retpc = &traceref(J, bc_d(*pc))->startins; + if (bc_isret(bc_op(*retpc))) { + if (J->state == LJ_TRACE_RECORD) { + J->patchins = *pc; + J->patchpc = (BCIns *)pc; + *J->patchpc = *retpc; + J->bcskip = 1; + } else { + pc = retpc; + setcframe_pc(cf, pc); + } + } + } + /* Return MULTRES or 0. */ + ERRNO_RESTORE + switch (bc_op(*pc)) { + case BC_CALLM: case BC_CALLMT: + return (int)((BCReg)(L->top - L->base) - bc_a(*pc) - bc_c(*pc)); + case BC_RETM: + return (int)((BCReg)(L->top - L->base) + 1 - bc_a(*pc) - bc_d(*pc)); + case BC_TSETM: + return (int)((BCReg)(L->top - L->base) + 1 - bc_a(*pc)); + default: + if (bc_op(*pc) >= BC_FUNCF) + return (int)((BCReg)(L->top - L->base) + 1); + return 0; + } +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_trace.h b/src/3rd party/luajit-2.0/src/lj_trace.h new file mode 100644 index 00000000000..4fbe5cf257a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_trace.h @@ -0,0 +1,53 @@ +/* +** Trace management. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TRACE_H +#define _LJ_TRACE_H + +#include "lj_obj.h" + +#if LJ_HASJIT +#include "lj_jit.h" +#include "lj_dispatch.h" + +/* Trace errors. */ +typedef enum { +#define TREDEF(name, msg) LJ_TRERR_##name, +#include "lj_traceerr.h" + LJ_TRERR__MAX +} TraceError; + +LJ_FUNC_NORET void lj_trace_err(jit_State *J, TraceError e); +LJ_FUNC_NORET void lj_trace_err_info(jit_State *J, TraceError e); + +/* Trace management. */ +LJ_FUNC void LJ_FASTCALL lj_trace_free(global_State *g, GCtrace *T); +LJ_FUNC void lj_trace_reenableproto(GCproto *pt); +LJ_FUNC void lj_trace_flushproto(global_State *g, GCproto *pt); +LJ_FUNC void lj_trace_flush(jit_State *J, TraceNo traceno); +LJ_FUNC int lj_trace_flushall(lua_State *L); +LJ_FUNC void lj_trace_initstate(global_State *g); +LJ_FUNC void lj_trace_freestate(global_State *g); + +/* Event handling. */ +LJ_FUNC void lj_trace_ins(jit_State *J, const BCIns *pc); +LJ_FUNCA void LJ_FASTCALL lj_trace_hot(jit_State *J, const BCIns *pc); +LJ_FUNCA int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr); + +/* Signal asynchronous abort of trace or end of trace. */ +#define lj_trace_abort(g) (G2J(g)->state &= ~LJ_TRACE_ACTIVE) +#define lj_trace_end(J) (J->state = LJ_TRACE_END) + +#else + +#define lj_trace_flushall(L) (UNUSED(L), 0) +#define lj_trace_initstate(g) UNUSED(g) +#define lj_trace_freestate(g) UNUSED(g) +#define lj_trace_abort(g) UNUSED(g) +#define lj_trace_end(J) UNUSED(J) + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_traceerr.h b/src/3rd party/luajit-2.0/src/lj_traceerr.h new file mode 100644 index 00000000000..9bef117aba1 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_traceerr.h @@ -0,0 +1,61 @@ +/* +** Trace compiler error messages. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* This file may be included multiple times with different TREDEF macros. */ + +/* Recording. */ +TREDEF(RECERR, "error thrown or hook called during recording") +TREDEF(TRACEOV, "trace too long") +TREDEF(STACKOV, "trace too deep") +TREDEF(SNAPOV, "too many snapshots") +TREDEF(BLACKL, "blacklisted") +TREDEF(NYIBC, "NYI: bytecode %d") + +/* Recording loop ops. */ +TREDEF(LLEAVE, "leaving loop in root trace") +TREDEF(LINNER, "inner loop in root trace") +TREDEF(LUNROLL, "loop unroll limit reached") + +/* Recording calls/returns. */ +TREDEF(BADTYPE, "bad argument type") +TREDEF(CJITOFF, "JIT compilation disabled for function") +TREDEF(CUNROLL, "call unroll limit reached") +TREDEF(DOWNREC, "down-recursion, restarting") +TREDEF(NYICF, "NYI: C function %p") +TREDEF(NYIFF, "NYI: FastFunc %s") +TREDEF(NYIFFU, "NYI: unsupported variant of FastFunc %s") +TREDEF(NYIRETL, "NYI: return to lower frame") + +/* Recording indexed load/store. */ +TREDEF(STORENN, "store with nil or NaN key") +TREDEF(NOMM, "missing metamethod") +TREDEF(IDXLOOP, "looping index lookup") +TREDEF(NYITMIX, "NYI: mixed sparse/dense table") + +/* Recording C data operations. */ +TREDEF(NOCACHE, "symbol not in cache") +TREDEF(NYICONV, "NYI: unsupported C type conversion") +TREDEF(NYICALL, "NYI: unsupported C function type") + +/* Optimizations. */ +TREDEF(GFAIL, "guard would always fail") +TREDEF(PHIOV, "too many PHIs") +TREDEF(TYPEINS, "persistent type instability") + +/* Assembler. */ +TREDEF(MCODEAL, "failed to allocate mcode memory") +TREDEF(MCODEOV, "machine code too long") +TREDEF(MCODELM, "hit mcode limit (retrying)") +TREDEF(SPILLOV, "too many spill slots") +TREDEF(BADRA, "inconsistent register allocation") +TREDEF(NYIIR, "NYI: cannot assemble IR instruction %d") +TREDEF(NYIPHI, "NYI: PHI shuffling too complex") +TREDEF(NYICOAL, "NYI: register coalescing too complex") + +#undef TREDEF + +/* Detecting unused error messages: + awk -F, '/^TREDEF/ { gsub(/TREDEF./, ""); printf "grep -q LJ_TRERR_%s *.[ch] || echo %s\n", $1, $1}' lj_traceerr.h | sh +*/ diff --git a/src/3rd party/luajit-2.0/src/lj_udata.c b/src/3rd party/luajit-2.0/src/lj_udata.c new file mode 100644 index 00000000000..d401a3d8e85 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_udata.c @@ -0,0 +1,34 @@ +/* +** Userdata handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_udata_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_udata.h" + +GCudata *lj_udata_new(lua_State *L, MSize sz, GCtab *env) +{ + GCudata *ud = lj_mem_newt(L, sizeof(GCudata) + sz, GCudata); + global_State *g = G(L); + newwhite(g, ud); /* Not finalized. */ + ud->gct = ~LJ_TUDATA; + ud->udtype = UDTYPE_USERDATA; + ud->len = sz; + /* NOBARRIER: The GCudata is new (marked white). */ + setgcrefnull(ud->metatable); + setgcref(ud->env, obj2gco(env)); + /* Chain to userdata list (after main thread). */ + setgcrefr(ud->nextgc, mainthread(g)->nextgc); + setgcref(mainthread(g)->nextgc, obj2gco(ud)); + return ud; +} + +void LJ_FASTCALL lj_udata_free(global_State *g, GCudata *ud) +{ + lj_mem_free(g, ud, sizeudata(ud)); +} + diff --git a/src/3rd party/luajit-2.0/src/lj_udata.h b/src/3rd party/luajit-2.0/src/lj_udata.h new file mode 100644 index 00000000000..676e970f488 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_udata.h @@ -0,0 +1,14 @@ +/* +** Userdata handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_UDATA_H +#define _LJ_UDATA_H + +#include "lj_obj.h" + +LJ_FUNC GCudata *lj_udata_new(lua_State *L, MSize sz, GCtab *env); +LJ_FUNC void LJ_FASTCALL lj_udata_free(global_State *g, GCudata *ud); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_vm.h b/src/3rd party/luajit-2.0/src/lj_vm.h new file mode 100644 index 00000000000..036cabc57fe --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_vm.h @@ -0,0 +1,116 @@ +/* +** Assembler VM interface definitions. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_VM_H +#define _LJ_VM_H + +#include "lj_obj.h" + +/* Entry points for ASM parts of VM. */ +LJ_ASMF void lj_vm_call(lua_State *L, TValue *base, int nres1); +LJ_ASMF int lj_vm_pcall(lua_State *L, TValue *base, int nres1, ptrdiff_t ef); +typedef TValue *(*lua_CPFunction)(lua_State *L, lua_CFunction func, void *ud); +LJ_ASMF int lj_vm_cpcall(lua_State *L, lua_CFunction func, void *ud, + lua_CPFunction cp); +LJ_ASMF int lj_vm_resume(lua_State *L, TValue *base, int nres1, ptrdiff_t ef); +LJ_ASMF_NORET void LJ_FASTCALL lj_vm_unwind_c(void *cframe, int errcode); +LJ_ASMF_NORET void LJ_FASTCALL lj_vm_unwind_ff(void *cframe); +LJ_ASMF void lj_vm_unwind_c_eh(void); +LJ_ASMF void lj_vm_unwind_ff_eh(void); +#if LJ_TARGET_X86ORX64 +LJ_ASMF void lj_vm_unwind_rethrow(void); +#endif + +/* Miscellaneous functions. */ +#if LJ_TARGET_X86ORX64 +LJ_ASMF int lj_vm_cpuid(uint32_t f, uint32_t res[4]); +#endif +#if LJ_TARGET_PPC +void lj_vm_cachesync(void *start, void *end); +#endif +LJ_ASMF double lj_vm_foldarith(double x, double y, int op); +#if LJ_HASJIT +LJ_ASMF double lj_vm_foldfpm(double x, int op); +#endif +#if !LJ_ARCH_HASFPU +/* Declared in lj_obj.h: LJ_ASMF int32_t lj_vm_tobit(double x); */ +#endif + +/* Dispatch targets for recording and hooks. */ +LJ_ASMF void lj_vm_record(void); +LJ_ASMF void lj_vm_inshook(void); +LJ_ASMF void lj_vm_rethook(void); +LJ_ASMF void lj_vm_callhook(void); + +/* Trace exit handling. */ +LJ_ASMF void lj_vm_exit_handler(void); +LJ_ASMF void lj_vm_exit_interp(void); + +/* Internal math helper functions. */ +#if LJ_TARGET_X86ORX64 || LJ_TARGET_PPC +#define lj_vm_floor floor +#define lj_vm_ceil ceil +#else +LJ_ASMF double lj_vm_floor(double); +LJ_ASMF double lj_vm_ceil(double); +#if LJ_TARGET_ARM +LJ_ASMF double lj_vm_floor_sf(double); +LJ_ASMF double lj_vm_ceil_sf(double); +#endif +#endif +#if defined(LUAJIT_NO_LOG2) || LJ_TARGET_X86ORX64 +LJ_ASMF double lj_vm_log2(double); +#else +#define lj_vm_log2 log2 +#endif + +#if LJ_HASJIT +#if LJ_TARGET_X86ORX64 +LJ_ASMF void lj_vm_floor_sse(void); +LJ_ASMF void lj_vm_ceil_sse(void); +LJ_ASMF void lj_vm_trunc_sse(void); +LJ_ASMF void lj_vm_exp_x87(void); +LJ_ASMF void lj_vm_exp2_x87(void); +LJ_ASMF void lj_vm_pow_sse(void); +LJ_ASMF void lj_vm_powi_sse(void); +#else +#if LJ_TARGET_PPC +#define lj_vm_trunc trunc +#else +LJ_ASMF double lj_vm_trunc(double); +#if LJ_TARGET_ARM +LJ_ASMF double lj_vm_trunc_sf(double); +#endif +#endif +LJ_ASMF double lj_vm_powi(double, int32_t); +#ifdef LUAJIT_NO_EXP2 +LJ_ASMF double lj_vm_exp2(double); +#else +#define lj_vm_exp2 exp2 +#endif +#endif +LJ_ASMF int32_t LJ_FASTCALL lj_vm_modi(int32_t, int32_t); +#if LJ_HASFFI +LJ_ASMF int lj_vm_errno(void); +#endif +#endif + +/* Continuations for metamethods. */ +LJ_ASMF void lj_cont_cat(void); /* Continue with concatenation. */ +LJ_ASMF void lj_cont_ra(void); /* Store result in RA from instruction. */ +LJ_ASMF void lj_cont_nop(void); /* Do nothing, just continue execution. */ +LJ_ASMF void lj_cont_condt(void); /* Branch if result is true. */ +LJ_ASMF void lj_cont_condf(void); /* Branch if result is false. */ +LJ_ASMF void lj_cont_hook(void); /* Continue from hook yield. */ + +enum { LJ_CONT_TAILCALL, LJ_CONT_FFI_CALLBACK }; /* Special continuations. */ + +/* Start of the ASM code. */ +LJ_ASMF char lj_vm_asm_begin[]; + +/* Bytecode offsets are relative to lj_vm_asm_begin. */ +#define makeasmfunc(ofs) ((ASMFunction)(lj_vm_asm_begin + (ofs))) + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_vmevent.c b/src/3rd party/luajit-2.0/src/lj_vmevent.c new file mode 100644 index 00000000000..81fe47d4dc9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_vmevent.c @@ -0,0 +1,57 @@ +/* +** VM event handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include + +#define lj_vmevent_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_state.h" +#include "lj_dispatch.h" +#include "lj_vm.h" +#include "lj_vmevent.h" + +ptrdiff_t lj_vmevent_prepare(lua_State *L, VMEvent ev) +{ + global_State *g = G(L); + GCstr *s = lj_str_newlit(L, LJ_VMEVENTS_REGKEY); + cTValue *tv = lj_tab_getstr(tabV(registry(L)), s); + if (tvistab(tv)) { + int hash = VMEVENT_HASH(ev); + tv = lj_tab_getint(tabV(tv), hash); + if (tv && tvisfunc(tv)) { + lj_state_checkstack(L, LUA_MINSTACK); + setfuncV(L, L->top++, funcV(tv)); + return savestack(L, L->top); + } + } + g->vmevmask &= ~VMEVENT_MASK(ev); /* No handler: cache this fact. */ + return 0; +} + +void lj_vmevent_call(lua_State *L, ptrdiff_t argbase) +{ + global_State *g = G(L); + uint8_t oldmask = g->vmevmask; + uint8_t oldh = hook_save(g); + int status; + g->vmevmask = 0; /* Disable all events. */ + hook_vmevent(g); + status = lj_vm_pcall(L, restorestack(L, argbase), 0+1, 0); + if (LJ_UNLIKELY(status)) { + /* Really shouldn't use stderr here, but where else to complain? */ + L->top--; + fputs("VM handler failed: ", stderr); + fputs(tvisstr(L->top) ? strVdata(L->top) : "?", stderr); + fputc('\n', stderr); + } + hook_restore(g, oldh); + if (g->vmevmask != VMEVENT_NOCACHE) + g->vmevmask = oldmask; /* Restore event mask, but not if not modified. */ +} + diff --git a/src/3rd party/luajit-2.0/src/lj_vmevent.h b/src/3rd party/luajit-2.0/src/lj_vmevent.h new file mode 100644 index 00000000000..231e00ecdf9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_vmevent.h @@ -0,0 +1,59 @@ +/* +** VM event handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_VMEVENT_H +#define _LJ_VMEVENT_H + +#include "lj_obj.h" + +/* Registry key for VM event handler table. */ +#define LJ_VMEVENTS_REGKEY "_VMEVENTS" +#define LJ_VMEVENTS_HSIZE 4 + +#define VMEVENT_MASK(ev) ((uint8_t)1 << ((int)(ev) & 7)) +#define VMEVENT_HASH(ev) ((int)(ev) & ~7) +#define VMEVENT_HASHIDX(h) ((int)(h) << 3) +#define VMEVENT_NOCACHE 255 + +#define VMEVENT_DEF(name, hash) \ + LJ_VMEVENT_##name##_, \ + LJ_VMEVENT_##name = ((LJ_VMEVENT_##name##_) & 7)|((hash) << 3) + +/* VM event IDs. */ +typedef enum { + VMEVENT_DEF(BC, 0x00003883), + VMEVENT_DEF(TRACE, 0xb2d91467), + VMEVENT_DEF(RECORD, 0x9284bf4f), + VMEVENT_DEF(TEXIT, 0xb29df2b0), + LJ_VMEVENT__MAX +} VMEvent; + +#ifdef LUAJIT_DISABLE_VMEVENT +#define lj_vmevent_send(L, ev, args) UNUSED(L) +#define lj_vmevent_send_(L, ev, args, post) UNUSED(L) +#else +#define lj_vmevent_send(L, ev, args) \ + if (G(L)->vmevmask & VMEVENT_MASK(LJ_VMEVENT_##ev)) { \ + ptrdiff_t argbase = lj_vmevent_prepare(L, LJ_VMEVENT_##ev); \ + if (argbase) { \ + args \ + lj_vmevent_call(L, argbase); \ + } \ + } +#define lj_vmevent_send_(L, ev, args, post) \ + if (G(L)->vmevmask & VMEVENT_MASK(LJ_VMEVENT_##ev)) { \ + ptrdiff_t argbase = lj_vmevent_prepare(L, LJ_VMEVENT_##ev); \ + if (argbase) { \ + args \ + lj_vmevent_call(L, argbase); \ + post \ + } \ + } + +LJ_FUNC ptrdiff_t lj_vmevent_prepare(lua_State *L, VMEvent ev); +LJ_FUNC void lj_vmevent_call(lua_State *L, ptrdiff_t argbase); +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_vmmath.c b/src/3rd party/luajit-2.0/src/lj_vmmath.c new file mode 100644 index 00000000000..31c6029fce1 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_vmmath.c @@ -0,0 +1,140 @@ +/* +** Math helper functions for assembler VM. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_vmmath_c +#define LUA_CORE + +#include +#include + +#include "lj_obj.h" +#include "lj_ir.h" +#include "lj_vm.h" + +/* -- Helper functions for generated machine code ------------------------- */ + +#if LJ_TARGET_X86ORX64 +/* Wrapper functions to avoid linker issues on OSX. */ +LJ_FUNCA double lj_vm_sinh(double x) { return sinh(x); } +LJ_FUNCA double lj_vm_cosh(double x) { return cosh(x); } +LJ_FUNCA double lj_vm_tanh(double x) { return tanh(x); } +#endif + +#if !LJ_TARGET_X86ORX64 +double lj_vm_foldarith(double x, double y, int op) +{ + switch (op) { + case IR_ADD - IR_ADD: return x+y; break; + case IR_SUB - IR_ADD: return x-y; break; + case IR_MUL - IR_ADD: return x*y; break; + case IR_DIV - IR_ADD: return x/y; break; + case IR_MOD - IR_ADD: return x-lj_vm_floor(x/y)*y; break; + case IR_POW - IR_ADD: return pow(x, y); break; + case IR_NEG - IR_ADD: return -x; break; + case IR_ABS - IR_ADD: return fabs(x); break; +#if LJ_HASJIT + case IR_ATAN2 - IR_ADD: return atan2(x, y); break; + case IR_LDEXP - IR_ADD: return ldexp(x, (int)y); break; + case IR_MIN - IR_ADD: return x > y ? y : x; break; + case IR_MAX - IR_ADD: return x < y ? y : x; break; +#endif + default: return x; + } +} +#endif + +#if LJ_HASJIT + +#ifdef LUAJIT_NO_LOG2 +double lj_vm_log2(double a) +{ + return log(a) * 1.4426950408889634074; +} +#endif + +#ifdef LUAJIT_NO_EXP2 +double lj_vm_exp2(double a) +{ + return exp(a * 0.6931471805599453); +} +#endif + +#if !(LJ_TARGET_ARM || LJ_TARGET_PPC) +int32_t LJ_FASTCALL lj_vm_modi(int32_t a, int32_t b) +{ + uint32_t y, ua, ub; + lua_assert(b != 0); /* This must be checked before using this function. */ + ua = a < 0 ? (uint32_t)-a : (uint32_t)a; + ub = b < 0 ? (uint32_t)-b : (uint32_t)b; + y = ua % ub; + if (y != 0 && (a^b) < 0) y = y - ub; + if (((int32_t)y^b) < 0) y = (uint32_t)-(int32_t)y; + return (int32_t)y; +} +#endif + +#if !LJ_TARGET_X86ORX64 +/* Unsigned x^k. */ +static double lj_vm_powui(double x, uint32_t k) +{ + double y; + lua_assert(k != 0); + for (; (k & 1) == 0; k >>= 1) x *= x; + y = x; + if ((k >>= 1) != 0) { + for (;;) { + x *= x; + if (k == 1) break; + if (k & 1) y *= x; + k >>= 1; + } + y *= x; + } + return y; +} + +/* Signed x^k. */ +double lj_vm_powi(double x, int32_t k) +{ + if (k > 1) + return lj_vm_powui(x, (uint32_t)k); + else if (k == 1) + return x; + else if (k == 0) + return 1.0; + else + return 1.0 / lj_vm_powui(x, (uint32_t)-k); +} + +/* Computes fpm(x) for extended math functions. */ +double lj_vm_foldfpm(double x, int fpm) +{ + switch (fpm) { + case IRFPM_FLOOR: return lj_vm_floor(x); + case IRFPM_CEIL: return lj_vm_ceil(x); + case IRFPM_TRUNC: return lj_vm_trunc(x); + case IRFPM_SQRT: return sqrt(x); + case IRFPM_EXP: return exp(x); + case IRFPM_EXP2: return lj_vm_exp2(x); + case IRFPM_LOG: return log(x); + case IRFPM_LOG2: return lj_vm_log2(x); + case IRFPM_LOG10: return log10(x); + case IRFPM_SIN: return sin(x); + case IRFPM_COS: return cos(x); + case IRFPM_TAN: return tan(x); + default: lua_assert(0); + } + return 0; +} +#endif + +#if LJ_HASFFI +int lj_vm_errno(void) +{ + return errno; +} +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/ljamalg.c b/src/3rd party/luajit-2.0/src/ljamalg.c new file mode 100644 index 00000000000..9b237b7e9d2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/ljamalg.c @@ -0,0 +1,93 @@ +/* +** LuaJIT core and libraries amalgamation. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +/* ++--------------------------------------------------------------------------+ +| WARNING: Compiling the amalgamation needs a lot of virtual memory | +| (around 300 MB with GCC 4.x)! If you don't have enough physical memory | +| your machine will start swapping to disk and the compile will not finish | +| within a reasonable amount of time. | +| So either compile on a bigger machine or use the non-amalgamated build. | ++--------------------------------------------------------------------------+ +*/ + +#define ljamalg_c +#define LUA_CORE + +/* To get the mremap prototype. Must be defined before any system includes. */ +#if defined(__linux__) && !defined(_GNU_SOURCE) +#define _GNU_SOURCE +#endif + +#ifndef WINVER +#define WINVER 0x0501 +#endif + +#include "lua.h" +#include "lauxlib.h" + +#include "lj_gc.c" +#include "lj_err.c" +#include "lj_char.c" +#include "lj_bc.c" +#include "lj_obj.c" +#include "lj_str.c" +#include "lj_tab.c" +#include "lj_func.c" +#include "lj_udata.c" +#include "lj_meta.c" +#include "lj_debug.c" +#include "lj_state.c" +#include "lj_dispatch.c" +#include "lj_vmevent.c" +#include "lj_vmmath.c" +#include "lj_strscan.c" +#include "lj_api.c" +#include "lj_lex.c" +#include "lj_parse.c" +#include "lj_bcread.c" +#include "lj_bcwrite.c" +#include "lj_load.c" +#include "lj_ctype.c" +#include "lj_cdata.c" +#include "lj_cconv.c" +#include "lj_ccall.c" +#include "lj_ccallback.c" +#include "lj_carith.c" +#include "lj_clib.c" +#include "lj_cparse.c" +#include "lj_lib.c" +#include "lj_ir.c" +#include "lj_opt_mem.c" +#include "lj_opt_fold.c" +#include "lj_opt_narrow.c" +#include "lj_opt_dce.c" +#include "lj_opt_loop.c" +#include "lj_opt_split.c" +#include "lj_opt_sink.c" +#include "lj_mcode.c" +#include "lj_snap.c" +#include "lj_record.c" +#include "lj_crecord.c" +#include "lj_ffrecord.c" +#include "lj_asm.c" +#include "lj_trace.c" +#include "lj_gdbjit.c" +#include "lj_alloc.c" + +#include "lib_aux.c" +#include "lib_base.c" +#include "lib_math.c" +#include "lib_string.c" +#include "lib_table.c" +#include "lib_io.c" +#include "lib_os.c" +#include "lib_package.c" +#include "lib_debug.c" +#include "lib_bit.c" +#include "lib_jit.c" +#include "lib_ffi.c" +#include "lib_init.c" + diff --git a/src/3rd party/luajit-2.0/src/lua.h b/src/3rd party/luajit-2.0/src/lua.h new file mode 100644 index 00000000000..c83fd3bbe7f --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lua.h @@ -0,0 +1,393 @@ +/* +** $Id: lua.h,v 1.218.1.5 2008/08/06 13:30:12 roberto Exp $ +** Lua - An Extensible Extension Language +** Lua.org, PUC-Rio, Brazil (http://www.lua.org) +** See Copyright Notice at the end of this file +*/ + + +#ifndef lua_h +#define lua_h + +#include +#include + + +#include "luaconf.h" + + +#define LUA_VERSION "Lua 5.1" +#define LUA_RELEASE "Lua 5.1.4" +#define LUA_VERSION_NUM 501 +#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" +#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" + + +/* mark for precompiled code (`Lua') */ +#define LUA_SIGNATURE "\033Lua" + +/* option for multiple returns in `lua_pcall' and `lua_call' */ +#define LUA_MULTRET (-1) + + +/* +** pseudo-indices +*/ +#define LUA_REGISTRYINDEX (-10000) +#define LUA_ENVIRONINDEX (-10001) +#define LUA_GLOBALSINDEX (-10002) +#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i)) + + +/* thread status; 0 is OK */ +#define LUA_YIELD 1 +#define LUA_ERRRUN 2 +#define LUA_ERRSYNTAX 3 +#define LUA_ERRMEM 4 +#define LUA_ERRERR 5 + + +typedef struct lua_State lua_State; + +typedef int (*lua_CFunction) (lua_State *L); + + +/* +** functions that read/write blocks when loading/dumping Lua chunks +*/ +typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); + +typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud); + + +/* +** prototype for memory-allocation functions +*/ +typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); + + +/* +** basic types +*/ +#define LUA_TNONE (-1) + +#define LUA_TNIL 0 +#define LUA_TBOOLEAN 1 +#define LUA_TLIGHTUSERDATA 2 +#define LUA_TNUMBER 3 +#define LUA_TSTRING 4 +#define LUA_TTABLE 5 +#define LUA_TFUNCTION 6 +#define LUA_TUSERDATA 7 +#define LUA_TTHREAD 8 + + + +/* minimum Lua stack available to a C function */ +#define LUA_MINSTACK 20 + + +/* +** generic extra include file +*/ +#if defined(LUA_USER_H) +#include LUA_USER_H +#endif + + +/* type of numbers in Lua */ +typedef LUA_NUMBER lua_Number; + + +/* type for integer functions */ +typedef LUA_INTEGER lua_Integer; + + + +/* +** state manipulation +*/ +LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud); +LUA_API void (lua_close) (lua_State *L); +LUA_API lua_State *(lua_newthread) (lua_State *L); + +LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); + + +/* +** basic stack manipulation +*/ +LUA_API int (lua_gettop) (lua_State *L); +LUA_API void (lua_settop) (lua_State *L, int idx); +LUA_API void (lua_pushvalue) (lua_State *L, int idx); +LUA_API void (lua_remove) (lua_State *L, int idx); +LUA_API void (lua_insert) (lua_State *L, int idx); +LUA_API void (lua_replace) (lua_State *L, int idx); +LUA_API int (lua_checkstack) (lua_State *L, int sz); + +LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); + + +/* +** access functions (stack -> C) +*/ + +LUA_API int (lua_isnumber) (lua_State *L, int idx); +LUA_API int (lua_isstring) (lua_State *L, int idx); +LUA_API int (lua_iscfunction) (lua_State *L, int idx); +LUA_API int (lua_isuserdata) (lua_State *L, int idx); +LUA_API int (lua_type) (lua_State *L, int idx); +LUA_API const char *(lua_typename) (lua_State *L, int tp); + +LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); +LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2); + +LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx); +LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx); +LUA_API int (lua_toboolean) (lua_State *L, int idx); +LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); +LUA_API size_t (lua_objlen) (lua_State *L, int idx); +LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); +LUA_API void *(lua_touserdata) (lua_State *L, int idx); +LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); +LUA_API const void *(lua_topointer) (lua_State *L, int idx); + + +/* +** push functions (C -> stack) +*/ +LUA_API void (lua_pushnil) (lua_State *L); +LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); +LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); +LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l); +LUA_API void (lua_pushstring) (lua_State *L, const char *s); +LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, + va_list argp); +LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); +LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); +LUA_API void (lua_pushboolean) (lua_State *L, int b); +LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); +LUA_API int (lua_pushthread) (lua_State *L); + + +/* +** get functions (Lua -> stack) +*/ +LUA_API void (lua_gettable) (lua_State *L, int idx); +LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawget) (lua_State *L, int idx); +LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n); +LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec); +LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz); +LUA_API int (lua_getmetatable) (lua_State *L, int objindex); +LUA_API void (lua_getfenv) (lua_State *L, int idx); + + +/* +** set functions (stack -> Lua) +*/ +LUA_API void (lua_settable) (lua_State *L, int idx); +LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); +LUA_API void (lua_rawset) (lua_State *L, int idx); +LUA_API void (lua_rawseti) (lua_State *L, int idx, int n); +LUA_API int (lua_setmetatable) (lua_State *L, int objindex); +LUA_API int (lua_setfenv) (lua_State *L, int idx); + + +/* +** `load' and `call' functions (load and run Lua code) +*/ +LUA_API void (lua_call) (lua_State *L, int nargs, int nresults); +LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); +LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud); +LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, + const char *chunkname); + +LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data); + + +/* +** coroutine functions +*/ +LUA_API int (lua_yield) (lua_State *L, int nresults); +LUA_API int (lua_resume) (lua_State *L, int narg); +LUA_API int (lua_status) (lua_State *L); + +/* +** garbage-collection function and options +*/ + +#define LUA_GCSTOP 0 +#define LUA_GCRESTART 1 +#define LUA_GCCOLLECT 2 +#define LUA_GCCOUNT 3 +#define LUA_GCCOUNTB 4 +#define LUA_GCSTEP 5 +#define LUA_GCSETPAUSE 6 +#define LUA_GCSETSTEPMUL 7 + +LUA_API int (lua_gc) (lua_State *L, int what, int data); + + +/* +** miscellaneous functions +*/ + +LUA_API int (lua_error) (lua_State *L); + +LUA_API int (lua_next) (lua_State *L, int idx); + +LUA_API void (lua_concat) (lua_State *L, int n); + +LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); + + + +/* +** =============================================================== +** some useful macros +** =============================================================== +*/ + +#define lua_pop(L,n) lua_settop(L, -(n)-1) + +#define lua_newtable(L) lua_createtable(L, 0, 0) + +#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) + +#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) + +#define lua_strlen(L,i) lua_objlen(L, (i)) + +#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) +#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) +#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) +#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) +#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) +#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) +#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) +#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) + +#define lua_pushliteral(L, s) \ + lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1) + +#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s)) +#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s)) + +#define lua_tostring(L,i) lua_tolstring(L, (i), NULL) + + + +/* +** compatibility macros and functions +*/ + +#define lua_open() luaL_newstate() + +#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX) + +#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0) + +#define lua_Chunkreader lua_Reader +#define lua_Chunkwriter lua_Writer + + +/* hack */ +LUA_API void lua_setlevel (lua_State *from, lua_State *to); + + +/* +** {====================================================================== +** Debug API +** ======================================================================= +*/ + + +/* +** Event codes +*/ +#define LUA_HOOKCALL 0 +#define LUA_HOOKRET 1 +#define LUA_HOOKLINE 2 +#define LUA_HOOKCOUNT 3 +#define LUA_HOOKTAILRET 4 + + +/* +** Event masks +*/ +#define LUA_MASKCALL (1 << LUA_HOOKCALL) +#define LUA_MASKRET (1 << LUA_HOOKRET) +#define LUA_MASKLINE (1 << LUA_HOOKLINE) +#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) + +typedef struct lua_Debug lua_Debug; /* activation record */ + + +/* Functions to be called by the debuger in specific events */ +typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); + + +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar); +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n); +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n); +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count); +LUA_API lua_Hook lua_gethook (lua_State *L); +LUA_API int lua_gethookmask (lua_State *L); +LUA_API int lua_gethookcount (lua_State *L); + +/* From Lua 5.2. */ +LUA_API void *lua_upvalueid (lua_State *L, int idx, int n); +LUA_API void lua_upvaluejoin (lua_State *L, int idx1, int n1, int idx2, int n2); +LUA_API int lua_loadx (lua_State *L, lua_Reader reader, void *dt, + const char *chunkname, const char *mode); + + +struct lua_Debug { + int event; + const char *name; /* (n) */ + const char *namewhat; /* (n) `global', `local', `field', `method' */ + const char *what; /* (S) `Lua', `C', `main', `tail' */ + const char *source; /* (S) */ + int currentline; /* (l) */ + int nups; /* (u) number of upvalues */ + int linedefined; /* (S) */ + int lastlinedefined; /* (S) */ + char short_src[LUA_IDSIZE]; /* (S) */ + /* private part */ + int i_ci; /* active function */ +}; + +/* }====================================================================== */ + + +/****************************************************************************** +* Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. +* +* Permission is hereby granted, free of charge, to any person obtaining +* a copy of this software and associated documentation files (the +* "Software"), to deal in the Software without restriction, including +* without limitation the rights to use, copy, modify, merge, publish, +* distribute, sublicense, and/or sell copies of the Software, and to +* permit persons to whom the Software is furnished to do so, subject to +* the following conditions: +* +* The above copyright notice and this permission notice shall be +* included in all copies or substantial portions of the Software. +* +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +******************************************************************************/ + + +#endif diff --git a/src/3rd party/luajit-2.0/src/lua.hpp b/src/3rd party/luajit-2.0/src/lua.hpp new file mode 100644 index 00000000000..07e9002dc5a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lua.hpp @@ -0,0 +1,9 @@ +// C++ wrapper for LuaJIT header files. + +extern "C" { +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" +} + diff --git a/src/3rd party/luajit-2.0/src/luaconf.h b/src/3rd party/luajit-2.0/src/luaconf.h new file mode 100644 index 00000000000..7f57bae1a07 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/luaconf.h @@ -0,0 +1,156 @@ +/* +** Configuration header. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef luaconf_h +#define luaconf_h + +#ifndef WINVER +#define WINVER 0x0501 +#endif +#include +#include + +/* Default path for loading Lua and C modules with require(). */ +#if defined(_WIN32) +/* +** In Windows, any exclamation mark ('!') in the path is replaced by the +** path of the directory of the executable file of the current process. +*/ +#define LUA_LDIR "!\\lua\\" +#define LUA_CDIR "!\\" +#define LUA_PATH_DEFAULT \ + ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" +#define LUA_CPATH_DEFAULT \ + ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" +#else +/* +** Note to distribution maintainers: do NOT patch the following lines! +** Please read ../doc/install.html#distro and pass PREFIX=/usr instead. +*/ +#ifndef LUA_MULTILIB +#define LUA_MULTILIB "lib" +#endif +#ifndef LUA_LMULTILIB +#define LUA_LMULTILIB "lib" +#endif +#define LUA_LROOT "/usr/local" +#define LUA_LUADIR "/lua/5.1/" +#define LUA_LJDIR "/luajit-2.0.3/" + +#ifdef LUA_ROOT +#define LUA_JROOT LUA_ROOT +#define LUA_RLDIR LUA_ROOT "/share" LUA_LUADIR +#define LUA_RCDIR LUA_ROOT "/" LUA_MULTILIB LUA_LUADIR +#define LUA_RLPATH ";" LUA_RLDIR "?.lua;" LUA_RLDIR "?/init.lua" +#define LUA_RCPATH ";" LUA_RCDIR "?.so" +#else +#define LUA_JROOT LUA_LROOT +#define LUA_RLPATH +#define LUA_RCPATH +#endif + +#define LUA_JPATH ";" LUA_JROOT "/share" LUA_LJDIR "?.lua" +#define LUA_LLDIR LUA_LROOT "/share" LUA_LUADIR +#define LUA_LCDIR LUA_LROOT "/" LUA_LMULTILIB LUA_LUADIR +#define LUA_LLPATH ";" LUA_LLDIR "?.lua;" LUA_LLDIR "?/init.lua" +#define LUA_LCPATH1 ";" LUA_LCDIR "?.so" +#define LUA_LCPATH2 ";" LUA_LCDIR "loadall.so" + +#define LUA_PATH_DEFAULT "./?.lua" LUA_JPATH LUA_LLPATH LUA_RLPATH +#define LUA_CPATH_DEFAULT "./?.so" LUA_LCPATH1 LUA_RCPATH LUA_LCPATH2 +#endif + +/* Environment variable names for path overrides and initialization code. */ +#define LUA_PATH "LUA_PATH" +#define LUA_CPATH "LUA_CPATH" +#define LUA_INIT "LUA_INIT" + +/* Special file system characters. */ +#if defined(_WIN32) +#define LUA_DIRSEP "\\" +#else +#define LUA_DIRSEP "/" +#endif +#define LUA_PATHSEP ";" +#define LUA_PATH_MARK "?" +#define LUA_EXECDIR "!" +#define LUA_IGMARK "-" +#define LUA_PATH_CONFIG \ + LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" \ + LUA_EXECDIR "\n" LUA_IGMARK + +/* Quoting in error messages. */ +#define LUA_QL(x) "'" x "'" +#define LUA_QS LUA_QL("%s") + +/* Various tunables. */ +#define LUAI_MAXSTACK 65500 /* Max. # of stack slots for a thread (<64K). */ +#define LUAI_MAXCSTACK 8000 /* Max. # of stack slots for a C func (<10K). */ +#define LUAI_GCPAUSE 200 /* Pause GC until memory is at 200%. */ +#define LUAI_GCMUL 200 /* Run GC at 200% of allocation speed. */ +#define LUA_MAXCAPTURES 32 /* Max. pattern captures. */ + +/* Compatibility with older library function names. */ +#define LUA_COMPAT_MOD /* OLD: math.mod, NEW: math.fmod */ +#define LUA_COMPAT_GFIND /* OLD: string.gfind, NEW: string.gmatch */ + +/* Configuration for the frontend (the luajit executable). */ +#if defined(luajit_c) +#define LUA_PROGNAME "luajit" /* Fallback frontend name. */ +#define LUA_PROMPT "> " /* Interactive prompt. */ +#define LUA_PROMPT2 ">> " /* Continuation prompt. */ +#define LUA_MAXINPUT 512 /* Max. input line length. */ +#endif + +/* Note: changing the following defines breaks the Lua 5.1 ABI. */ +#define LUA_INTEGER ptrdiff_t +#define LUA_IDSIZE 60 /* Size of lua_Debug.short_src. */ +/* +** Size of lauxlib and io.* on-stack buffers. Weird workaround to avoid using +** unreasonable amounts of stack space, but still retain ABI compatibility. +** Blame Lua for depending on BUFSIZ in the ABI, blame **** for wrecking it. +*/ +#define LUAL_BUFFERSIZE (BUFSIZ > 16384 ? 8192 : BUFSIZ) + +/* The following defines are here only for compatibility with luaconf.h +** from the standard Lua distribution. They must not be changed for LuaJIT. +*/ +#define LUA_NUMBER_DOUBLE +#define LUA_NUMBER double +#define LUAI_UACNUMBER double +#define LUA_NUMBER_SCAN "%lf" +#define LUA_NUMBER_FMT "%.14g" +#define lua_number2str(s, n) sprintf((s), LUA_NUMBER_FMT, (n)) +#define LUAI_MAXNUMBER2STR 32 +#define LUA_INTFRMLEN "l" +#define LUA_INTFRM_T long + +/* Linkage of public API functions. */ +#if defined(LUA_BUILD_AS_DLL) +#if defined(LUA_CORE) || defined(LUA_LIB) +#define LUA_API __declspec(dllexport) +#else +#define LUA_API __declspec(dllimport) +#endif +#else +#define LUA_API extern +#endif + +#define LUALIB_API LUA_API + +/* Support for internal assertions. */ +#if defined(LUA_USE_ASSERT) || defined(LUA_USE_APICHECK) +#include +#endif +#ifdef LUA_USE_ASSERT +#define lua_assert(x) assert(x) +#endif +#ifdef LUA_USE_APICHECK +#define luai_apicheck(L, o) { (void)L; assert(o); } +#else +#define luai_apicheck(L, o) { (void)L; } +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/luajit.c b/src/3rd party/luajit-2.0/src/luajit.c new file mode 100644 index 00000000000..85d713fb421 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/luajit.c @@ -0,0 +1,571 @@ +/* +** LuaJIT frontend. Runs commands, scripts, read-eval-print (REPL) etc. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +** +** Major portions taken verbatim or adapted from the Lua interpreter. +** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h +*/ + +#include +#include +#include + +#define luajit_c + +#include "lua.h" +#include "lauxlib.h" +#include "lualib.h" +#include "luajit.h" + +#include "lj_arch.h" + +#if LJ_TARGET_POSIX +#include +#define lua_stdin_is_tty() isatty(0) +#elif LJ_TARGET_WINDOWS +#include +#ifdef __BORLANDC__ +#define lua_stdin_is_tty() isatty(_fileno(stdin)) +#else +#define lua_stdin_is_tty() _isatty(_fileno(stdin)) +#endif +#else +#define lua_stdin_is_tty() 1 +#endif + +#if !LJ_TARGET_CONSOLE +#include +#endif + +static lua_State *globalL = NULL; +static const char *progname = LUA_PROGNAME; + +#if !LJ_TARGET_CONSOLE +static void lstop(lua_State *L, lua_Debug *ar) +{ + (void)ar; /* unused arg. */ + lua_sethook(L, NULL, 0, 0); + /* Avoid luaL_error -- a C hook doesn't add an extra frame. */ + luaL_where(L, 0); + lua_pushfstring(L, "%sinterrupted!", lua_tostring(L, -1)); + lua_error(L); +} + +static void laction(int i) +{ + signal(i, SIG_DFL); /* if another SIGINT happens before lstop, + terminate process (default action) */ + lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1); +} +#endif + +static void print_usage(void) +{ + fprintf(stderr, + "usage: %s [options]... [script [args]...].\n" + "Available options are:\n" + " -e chunk Execute string " LUA_QL("chunk") ".\n" + " -l name Require library " LUA_QL("name") ".\n" + " -b ... Save or list bytecode.\n" + " -j cmd Perform LuaJIT control command.\n" + " -O[opt] Control LuaJIT optimizations.\n" + " -i Enter interactive mode after executing " LUA_QL("script") ".\n" + " -v Show version information.\n" + " -E Ignore environment variables.\n" + " -- Stop handling options.\n" + " - Execute stdin and stop handling options.\n" + , + progname); + fflush(stderr); +} + +static void l_message(const char *pname, const char *msg) +{ + if (pname) fprintf(stderr, "%s: ", pname); + fprintf(stderr, "%s\n", msg); + fflush(stderr); +} + +static int report(lua_State *L, int status) +{ + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(progname, msg); + lua_pop(L, 1); + } + return status; +} + +static int traceback(lua_State *L) +{ + if (!lua_isstring(L, 1)) { /* Non-string error object? Try metamethod. */ + if (lua_isnoneornil(L, 1) || + !luaL_callmeta(L, 1, "__tostring") || + !lua_isstring(L, -1)) + return 1; /* Return non-string error object. */ + lua_remove(L, 1); /* Replace object by result of __tostring metamethod. */ + } + luaL_traceback(L, L, lua_tostring(L, 1), 1); + return 1; +} + +static int docall(lua_State *L, int narg, int clear) +{ + int status; + int base = lua_gettop(L) - narg; /* function index */ + lua_pushcfunction(L, traceback); /* push traceback function */ + lua_insert(L, base); /* put it under chunk and args */ +#if !LJ_TARGET_CONSOLE + signal(SIGINT, laction); +#endif + status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base); +#if !LJ_TARGET_CONSOLE + signal(SIGINT, SIG_DFL); +#endif + lua_remove(L, base); /* remove traceback function */ + /* force a complete garbage collection in case of errors */ + if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); + return status; +} + +static void print_version(void) +{ + fputs(LUAJIT_VERSION " -- " LUAJIT_COPYRIGHT ". " LUAJIT_URL "\n", stdout); +} + +static void print_jit_status(lua_State *L) +{ + int n; + const char *s; + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, -1, "jit"); /* Get jit.* module table. */ + lua_remove(L, -2); + lua_getfield(L, -1, "status"); + lua_remove(L, -2); + n = lua_gettop(L); + lua_call(L, 0, LUA_MULTRET); + fputs(lua_toboolean(L, n) ? "JIT: ON" : "JIT: OFF", stdout); + for (n++; (s = lua_tostring(L, n)); n++) { + putc(' ', stdout); + fputs(s, stdout); + } + putc('\n', stdout); +} + +static int getargs(lua_State *L, char **argv, int n) +{ + int narg; + int i; + int argc = 0; + while (argv[argc]) argc++; /* count total number of arguments */ + narg = argc - (n + 1); /* number of arguments to the script */ + luaL_checkstack(L, narg + 3, "too many arguments to script"); + for (i = n+1; i < argc; i++) + lua_pushstring(L, argv[i]); + lua_createtable(L, narg, n + 1); + for (i = 0; i < argc; i++) { + lua_pushstring(L, argv[i]); + lua_rawseti(L, -2, i - n); + } + return narg; +} + +static int dofile(lua_State *L, const char *name) +{ + int status = luaL_loadfile(L, name) || docall(L, 0, 1); + return report(L, status); +} + +static int dostring(lua_State *L, const char *s, const char *name) +{ + int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1); + return report(L, status); +} + +static int dolibrary(lua_State *L, const char *name) +{ + lua_getglobal(L, "require"); + lua_pushstring(L, name); + return report(L, docall(L, 1, 1)); +} + +static void write_prompt(lua_State *L, int firstline) +{ + const char *p; + lua_getfield(L, LUA_GLOBALSINDEX, firstline ? "_PROMPT" : "_PROMPT2"); + p = lua_tostring(L, -1); + if (p == NULL) p = firstline ? LUA_PROMPT : LUA_PROMPT2; + fputs(p, stdout); + fflush(stdout); + lua_pop(L, 1); /* remove global */ +} + +static int incomplete(lua_State *L, int status) +{ + if (status == LUA_ERRSYNTAX) { + size_t lmsg; + const char *msg = lua_tolstring(L, -1, &lmsg); + const char *tp = msg + lmsg - (sizeof(LUA_QL("")) - 1); + if (strstr(msg, LUA_QL("")) == tp) { + lua_pop(L, 1); + return 1; + } + } + return 0; /* else... */ +} + +static int pushline(lua_State *L, int firstline) +{ + char buf[LUA_MAXINPUT]; + write_prompt(L, firstline); + if (fgets(buf, LUA_MAXINPUT, stdin)) { + size_t len = strlen(buf); + if (len > 0 && buf[len-1] == '\n') + buf[len-1] = '\0'; + if (firstline && buf[0] == '=') + lua_pushfstring(L, "return %s", buf+1); + else + lua_pushstring(L, buf); + return 1; + } + return 0; +} + +static int loadline(lua_State *L) +{ + int status; + lua_settop(L, 0); + if (!pushline(L, 1)) + return -1; /* no input */ + for (;;) { /* repeat until gets a complete line */ + status = luaL_loadbuffer(L, lua_tostring(L, 1), lua_strlen(L, 1), "=stdin"); + if (!incomplete(L, status)) break; /* cannot try to add lines? */ + if (!pushline(L, 0)) /* no more input? */ + return -1; + lua_pushliteral(L, "\n"); /* add a new line... */ + lua_insert(L, -2); /* ...between the two lines */ + lua_concat(L, 3); /* join them */ + } + lua_remove(L, 1); /* remove line */ + return status; +} + +static void dotty(lua_State *L) +{ + int status; + const char *oldprogname = progname; + progname = NULL; + while ((status = loadline(L)) != -1) { + if (status == 0) status = docall(L, 0, 0); + report(L, status); + if (status == 0 && lua_gettop(L) > 0) { /* any result to print? */ + lua_getglobal(L, "print"); + lua_insert(L, 1); + if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) + l_message(progname, + lua_pushfstring(L, "error calling " LUA_QL("print") " (%s)", + lua_tostring(L, -1))); + } + } + lua_settop(L, 0); /* clear stack */ + fputs("\n", stdout); + fflush(stdout); + progname = oldprogname; +} + +static int handle_script(lua_State *L, char **argv, int n) +{ + int status; + const char *fname; + int narg = getargs(L, argv, n); /* collect arguments */ + lua_setglobal(L, "arg"); + fname = argv[n]; + if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0) + fname = NULL; /* stdin */ + status = luaL_loadfile(L, fname); + lua_insert(L, -(narg+1)); + if (status == 0) + status = docall(L, narg, 0); + else + lua_pop(L, narg); + return report(L, status); +} + +/* Load add-on module. */ +static int loadjitmodule(lua_State *L) +{ + lua_getglobal(L, "require"); + lua_pushliteral(L, "jit."); + lua_pushvalue(L, -3); + lua_concat(L, 2); + if (lua_pcall(L, 1, 1, 0)) { + const char *msg = lua_tostring(L, -1); + if (msg && !strncmp(msg, "module ", 7)) + goto nomodule; + return report(L, 1); + } + lua_getfield(L, -1, "start"); + if (lua_isnil(L, -1)) { + nomodule: + l_message(progname, + "unknown luaJIT command or jit.* modules not installed"); + return 1; + } + lua_remove(L, -2); /* Drop module table. */ + return 0; +} + +/* Run command with options. */ +static int runcmdopt(lua_State *L, const char *opt) +{ + int narg = 0; + if (opt && *opt) { + for (;;) { /* Split arguments. */ + const char *p = strchr(opt, ','); + narg++; + if (!p) break; + if (p == opt) + lua_pushnil(L); + else + lua_pushlstring(L, opt, (size_t)(p - opt)); + opt = p + 1; + } + if (*opt) + lua_pushstring(L, opt); + else + lua_pushnil(L); + } + return report(L, lua_pcall(L, narg, 0, 0)); +} + +/* JIT engine control command: try jit library first or load add-on module. */ +static int dojitcmd(lua_State *L, const char *cmd) +{ + const char *opt = strchr(cmd, '='); + lua_pushlstring(L, cmd, opt ? (size_t)(opt - cmd) : strlen(cmd)); + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, -1, "jit"); /* Get jit.* module table. */ + lua_remove(L, -2); + lua_pushvalue(L, -2); + lua_gettable(L, -2); /* Lookup library function. */ + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); /* Drop non-function and jit.* table, keep module name. */ + if (loadjitmodule(L)) + return 1; + } else { + lua_remove(L, -2); /* Drop jit.* table. */ + } + lua_remove(L, -2); /* Drop module name. */ + return runcmdopt(L, opt ? opt+1 : opt); +} + +/* Optimization flags. */ +static int dojitopt(lua_State *L, const char *opt) +{ + lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); + lua_getfield(L, -1, "jit.opt"); /* Get jit.opt.* module table. */ + lua_remove(L, -2); + lua_getfield(L, -1, "start"); + lua_remove(L, -2); + return runcmdopt(L, opt); +} + +/* Save or list bytecode. */ +static int dobytecode(lua_State *L, char **argv) +{ + int narg = 0; + lua_pushliteral(L, "bcsave"); + if (loadjitmodule(L)) + return 1; + if (argv[0][2]) { + narg++; + argv[0][1] = '-'; + lua_pushstring(L, argv[0]+1); + } + for (argv++; *argv != NULL; narg++, argv++) + lua_pushstring(L, *argv); + return report(L, lua_pcall(L, narg, 0, 0)); +} + +/* check that argument has no extra characters at the end */ +#define notail(x) {if ((x)[2] != '\0') return -1;} + +#define FLAGS_INTERACTIVE 1 +#define FLAGS_VERSION 2 +#define FLAGS_EXEC 4 +#define FLAGS_OPTION 8 +#define FLAGS_NOENV 16 + +static int collectargs(char **argv, int *flags) +{ + int i; + for (i = 1; argv[i] != NULL; i++) { + if (argv[i][0] != '-') /* Not an option? */ + return i; + switch (argv[i][1]) { /* Check option. */ + case '-': + notail(argv[i]); + return (argv[i+1] != NULL ? i+1 : 0); + case '\0': + return i; + case 'i': + notail(argv[i]); + *flags |= FLAGS_INTERACTIVE; + /* fallthrough */ + case 'v': + notail(argv[i]); + *flags |= FLAGS_VERSION; + break; + case 'e': + *flags |= FLAGS_EXEC; + case 'j': /* LuaJIT extension */ + case 'l': + *flags |= FLAGS_OPTION; + if (argv[i][2] == '\0') { + i++; + if (argv[i] == NULL) return -1; + } + break; + case 'O': break; /* LuaJIT extension */ + case 'b': /* LuaJIT extension */ + if (*flags) return -1; + *flags |= FLAGS_EXEC; + return 0; + case 'E': + *flags |= FLAGS_NOENV; + break; + default: return -1; /* invalid option */ + } + } + return 0; +} + +static int runargs(lua_State *L, char **argv, int n) +{ + int i; + for (i = 1; i < n; i++) { + if (argv[i] == NULL) continue; + lua_assert(argv[i][0] == '-'); + switch (argv[i][1]) { /* option */ + case 'e': { + const char *chunk = argv[i] + 2; + if (*chunk == '\0') chunk = argv[++i]; + lua_assert(chunk != NULL); + if (dostring(L, chunk, "=(command line)") != 0) + return 1; + break; + } + case 'l': { + const char *filename = argv[i] + 2; + if (*filename == '\0') filename = argv[++i]; + lua_assert(filename != NULL); + if (dolibrary(L, filename)) + return 1; /* stop if file fails */ + break; + } + case 'j': { /* LuaJIT extension */ + const char *cmd = argv[i] + 2; + if (*cmd == '\0') cmd = argv[++i]; + lua_assert(cmd != NULL); + if (dojitcmd(L, cmd)) + return 1; + break; + } + case 'O': /* LuaJIT extension */ + if (dojitopt(L, argv[i] + 2)) + return 1; + break; + case 'b': /* LuaJIT extension */ + return dobytecode(L, argv+i); + default: break; + } + } + return 0; +} + +static int handle_luainit(lua_State *L) +{ +#if LJ_TARGET_CONSOLE + const char *init = NULL; +#else + const char *init = getenv(LUA_INIT); +#endif + if (init == NULL) + return 0; /* status OK */ + else if (init[0] == '@') + return dofile(L, init+1); + else + return dostring(L, init, "=" LUA_INIT); +} + +static struct Smain { + char **argv; + int argc; + int status; +} smain; + +static int pmain(lua_State *L) +{ + struct Smain *s = &smain; + char **argv = s->argv; + int script; + int flags = 0; + globalL = L; + if (argv[0] && argv[0][0]) progname = argv[0]; + LUAJIT_VERSION_SYM(); /* linker-enforced version check */ + script = collectargs(argv, &flags); + if (script < 0) { /* invalid args? */ + print_usage(); + s->status = 1; + return 0; + } + if ((flags & FLAGS_NOENV)) { + lua_pushboolean(L, 1); + lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); + } + lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ + luaL_openlibs(L); /* open libraries */ + lua_gc(L, LUA_GCRESTART, -1); + if (!(flags & FLAGS_NOENV)) { + s->status = handle_luainit(L); + if (s->status != 0) return 0; + } + if ((flags & FLAGS_VERSION)) print_version(); + s->status = runargs(L, argv, (script > 0) ? script : s->argc); + if (s->status != 0) return 0; + if (script) { + s->status = handle_script(L, argv, script); + if (s->status != 0) return 0; + } + if ((flags & FLAGS_INTERACTIVE)) { + print_jit_status(L); + dotty(L); + } else if (script == 0 && !(flags & (FLAGS_EXEC|FLAGS_VERSION))) { + if (lua_stdin_is_tty()) { + print_version(); + print_jit_status(L); + dotty(L); + } else { + dofile(L, NULL); /* executes stdin as a file */ + } + } + return 0; +} + +int main(int argc, char **argv) +{ + int status; + lua_State *L = lua_open(); /* create state */ + if (L == NULL) { + l_message(argv[0], "cannot create state: not enough memory"); + return EXIT_FAILURE; + } + smain.argc = argc; + smain.argv = argv; + status = lua_cpcall(L, pmain, NULL); + report(L, status); + lua_close(L); + return (status || smain.status) ? EXIT_FAILURE : EXIT_SUCCESS; +} + diff --git a/src/3rd party/luajit-2.0/src/luajit.h b/src/3rd party/luajit-2.0/src/luajit.h new file mode 100644 index 00000000000..901807abe8f --- /dev/null +++ b/src/3rd party/luajit-2.0/src/luajit.h @@ -0,0 +1,70 @@ +/* +** LuaJIT -- a Just-In-Time Compiler for Lua. http://luajit.org/ +** +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** +** Permission is hereby granted, free of charge, to any person obtaining +** a copy of this software and associated documentation files (the +** "Software"), to deal in the Software without restriction, including +** without limitation the rights to use, copy, modify, merge, publish, +** distribute, sublicense, and/or sell copies of the Software, and to +** permit persons to whom the Software is furnished to do so, subject to +** the following conditions: +** +** The above copyright notice and this permission notice shall be +** included in all copies or substantial portions of the Software. +** +** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +** +** [ MIT license: http://www.opensource.org/licenses/mit-license.php ] +*/ + +#ifndef _LUAJIT_H +#define _LUAJIT_H + +#include "lua.h" + +#define LUAJIT_VERSION "LuaJIT 2.0.3" +#define LUAJIT_VERSION_NUM 20003 /* Version 2.0.3 = 02.00.03. */ +#define LUAJIT_VERSION_SYM luaJIT_version_2_0_3 +#define LUAJIT_COPYRIGHT "Copyright (C) 2005-2015 Mike Pall" +#define LUAJIT_URL "http://luajit.org/" + +/* Modes for luaJIT_setmode. */ +#define LUAJIT_MODE_MASK 0x00ff + +enum { + LUAJIT_MODE_ENGINE, /* Set mode for whole JIT engine. */ + LUAJIT_MODE_DEBUG, /* Set debug mode (idx = level). */ + + LUAJIT_MODE_FUNC, /* Change mode for a function. */ + LUAJIT_MODE_ALLFUNC, /* Recurse into subroutine protos. */ + LUAJIT_MODE_ALLSUBFUNC, /* Change only the subroutines. */ + + LUAJIT_MODE_TRACE, /* Flush a compiled trace. */ + + LUAJIT_MODE_WRAPCFUNC = 0x10, /* Set wrapper mode for C function calls. */ + + LUAJIT_MODE_MAX +}; + +/* Flags or'ed in to the mode. */ +#define LUAJIT_MODE_OFF 0x0000 /* Turn feature off. */ +#define LUAJIT_MODE_ON 0x0100 /* Turn feature on. */ +#define LUAJIT_MODE_FLUSH 0x0200 /* Flush JIT-compiled code. */ + +/* LuaJIT public C API. */ + +/* Control the JIT engine. */ +LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode); + +/* Enforce (dynamic) linker error for version mismatches. Call from main. */ +LUA_API void LUAJIT_VERSION_SYM(void); + +#endif diff --git a/src/3rd party/luajit-2.0/src/lualib.h b/src/3rd party/luajit-2.0/src/lualib.h new file mode 100644 index 00000000000..96530e79adc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lualib.h @@ -0,0 +1,43 @@ +/* +** Standard library header. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LUALIB_H +#define _LUALIB_H + +#include "lua.h" + +#define LUA_FILEHANDLE "FILE*" + +#define LUA_COLIBNAME "coroutine" +#define LUA_MATHLIBNAME "math" +#define LUA_STRLIBNAME "string" +#define LUA_TABLIBNAME "table" +#define LUA_IOLIBNAME "io" +#define LUA_OSLIBNAME "os" +#define LUA_LOADLIBNAME "package" +#define LUA_DBLIBNAME "debug" +#define LUA_BITLIBNAME "bit" +#define LUA_JITLIBNAME "jit" +#define LUA_FFILIBNAME "ffi" + +LUALIB_API int luaopen_base(lua_State *L); +LUALIB_API int luaopen_math(lua_State *L); +LUALIB_API int luaopen_string(lua_State *L); +LUALIB_API int luaopen_table(lua_State *L); +LUALIB_API int luaopen_io(lua_State *L); +LUALIB_API int luaopen_os(lua_State *L); +LUALIB_API int luaopen_package(lua_State *L); +LUALIB_API int luaopen_debug(lua_State *L); +LUALIB_API int luaopen_bit(lua_State *L); +LUALIB_API int luaopen_jit(lua_State *L); +LUALIB_API int luaopen_ffi(lua_State *L); + +LUALIB_API void luaL_openlibs(lua_State *L); + +#ifndef lua_assert +#define lua_assert(x) ((void)0) +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/msvcbuild.bat b/src/3rd party/luajit-2.0/src/msvcbuild.bat new file mode 100644 index 00000000000..7bf4229e53c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/msvcbuild.bat @@ -0,0 +1,113 @@ +@rem Script to build LuaJIT with MSVC. +@rem Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +@rem +@rem Either open a "Visual Studio .NET Command Prompt" +@rem (Note that the Express Edition does not contain an x64 compiler) +@rem -or- +@rem Open a "Windows SDK Command Shell" and set the compiler environment: +@rem setenv /release /x86 +@rem -or- +@rem setenv /release /x64 +@rem +@rem Then cd to this directory and run this script. + +@if not defined INCLUDE goto :FAIL + +@setlocal +@set LJCOMPILE=cl /nologo /c /O2 /W3 /D_CRT_SECURE_NO_DEPRECATE +@set LJLINK=link /nologo +@set LJMT=mt /nologo +@set LJLIB=lib /nologo /nodefaultlib +@set DASMDIR=..\dynasm +@set DASM=%DASMDIR%\dynasm.lua +@set LJDLLNAME=lua51.dll +@set LJLIBNAME=lua51.lib +@set ALL_LIB=lib_base.c lib_math.c lib_bit.c lib_string.c lib_table.c lib_io.c lib_os.c lib_package.c lib_debug.c lib_jit.c lib_ffi.c + +%LJCOMPILE% host\minilua.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:minilua.exe minilua.obj +@if errorlevel 1 goto :BAD +if exist minilua.exe.manifest^ + %LJMT% -manifest minilua.exe.manifest -outputresource:minilua.exe + +@set DASMFLAGS=-D WIN -D JIT -D FFI -D P64 +@set LJARCH=x64 +@minilua +@if errorlevel 8 goto :X64 +@set DASMFLAGS=-D WIN -D JIT -D FFI +@set LJARCH=x86 +:X64 +minilua %DASM% -LN %DASMFLAGS% -o host\buildvm_arch.h vm_x86.dasc +@if errorlevel 1 goto :BAD + +%LJCOMPILE% /I "." /I %DASMDIR% host\buildvm*.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:buildvm.exe buildvm*.obj +@if errorlevel 1 goto :BAD +if exist buildvm.exe.manifest^ + %LJMT% -manifest buildvm.exe.manifest -outputresource:buildvm.exe + +buildvm -m peobj -o lj_vm.obj +@if errorlevel 1 goto :BAD +buildvm -m bcdef -o lj_bcdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m ffdef -o lj_ffdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m libdef -o lj_libdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m recdef -o lj_recdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m vmdef -o jit\vmdef.lua %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m folddef -o lj_folddef.h lj_opt_fold.c +@if errorlevel 1 goto :BAD + +@if "%1" neq "debug" goto :NODEBUG +@shift +@set LJCOMPILE=%LJCOMPILE% /Zi +@set LJLINK=%LJLINK% /debug +:NODEBUG +@if "%1"=="amalg" goto :AMALGDLL +@if "%1"=="static" goto :STATIC +%LJCOMPILE% /MD /DLUA_BUILD_AS_DLL lj_*.c lib_*.c +@if errorlevel 1 goto :BAD +%LJLINK% /DLL /out:%LJDLLNAME% lj_*.obj lib_*.obj +@if errorlevel 1 goto :BAD +@goto :MTDLL +:STATIC +%LJCOMPILE% lj_*.c lib_*.c +@if errorlevel 1 goto :BAD +%LJLIB% /OUT:%LJLIBNAME% lj_*.obj lib_*.obj +@if errorlevel 1 goto :BAD +@goto :MTDLL +:AMALGDLL +%LJCOMPILE% /MD /DLUA_BUILD_AS_DLL ljamalg.c +@if errorlevel 1 goto :BAD +%LJLINK% /DLL /out:%LJDLLNAME% ljamalg.obj lj_vm.obj +@if errorlevel 1 goto :BAD +:MTDLL +if exist %LJDLLNAME%.manifest^ + %LJMT% -manifest %LJDLLNAME%.manifest -outputresource:%LJDLLNAME%;2 + +%LJCOMPILE% luajit.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:luajit.exe luajit.obj %LJLIBNAME% +@if errorlevel 1 goto :BAD +if exist luajit.exe.manifest^ + %LJMT% -manifest luajit.exe.manifest -outputresource:luajit.exe + +@del *.obj *.manifest minilua.exe buildvm.exe +@echo. +@echo === Successfully built LuaJIT for Windows/%LJARCH% === + +@goto :END +:BAD +@echo. +@echo ******************************************************* +@echo *** Build FAILED -- Please check the error messages *** +@echo ******************************************************* +@goto :END +:FAIL +@echo You must open a "Visual Studio .NET Command Prompt" to run this script +:END diff --git a/src/3rd party/luajit-2.0/src/ps4build.bat b/src/3rd party/luajit-2.0/src/ps4build.bat new file mode 100644 index 00000000000..77a73f900fb --- /dev/null +++ b/src/3rd party/luajit-2.0/src/ps4build.bat @@ -0,0 +1,103 @@ +@rem Script to build LuaJIT with the PS4 SDK. +@rem Donated to the public domain. +@rem +@rem Open a "Visual Studio .NET Command Prompt" (64 bit host compiler) +@rem Then cd to this directory and run this script. + +@if not defined INCLUDE goto :FAIL +@if not defined SCE_ORBIS_SDK_DIR goto :FAIL + +@setlocal +@rem ---- Host compiler ---- +@set LJCOMPILE=cl /nologo /c /MD /O2 /W3 /D_CRT_SECURE_NO_DEPRECATE +@set LJLINK=link /nologo +@set LJMT=mt /nologo +@set DASMDIR=..\dynasm +@set DASM=%DASMDIR%\dynasm.lua +@set ALL_LIB=lib_base.c lib_math.c lib_bit.c lib_string.c lib_table.c lib_io.c lib_os.c lib_package.c lib_debug.c lib_jit.c lib_ffi.c + +%LJCOMPILE% host\minilua.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:minilua.exe minilua.obj +@if errorlevel 1 goto :BAD +if exist minilua.exe.manifest^ + %LJMT% -manifest minilua.exe.manifest -outputresource:minilua.exe + +@rem Check for 64 bit host compiler. +@minilua +@if not errorlevel 8 goto :FAIL + +@set DASMFLAGS=-D P64 +minilua %DASM% -LN %DASMFLAGS% -o host\buildvm_arch.h vm_x86.dasc +@if errorlevel 1 goto :BAD + +%LJCOMPILE% /I "." /I %DASMDIR% -DLUAJIT_TARGET=LUAJIT_ARCH_X64 -DLUAJIT_OS=LUAJIT_OS_OTHER -DLUAJIT_DISABLE_JIT -DLUAJIT_DISABLE_FFI host\buildvm*.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:buildvm.exe buildvm*.obj +@if errorlevel 1 goto :BAD +if exist buildvm.exe.manifest^ + %LJMT% -manifest buildvm.exe.manifest -outputresource:buildvm.exe + +buildvm -m elfasm -o lj_vm.s +@if errorlevel 1 goto :BAD +buildvm -m bcdef -o lj_bcdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m ffdef -o lj_ffdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m libdef -o lj_libdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m recdef -o lj_recdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m vmdef -o jit\vmdef.lua %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m folddef -o lj_folddef.h lj_opt_fold.c +@if errorlevel 1 goto :BAD + +@rem ---- Cross compiler ---- +@set LJCOMPILE="%SCE_ORBIS_SDK_DIR%\host_tools\bin\orbis-clang" -c -Wall -DLUAJIT_DISABLE_FFI +@set LJLIB="%SCE_ORBIS_SDK_DIR%\host_tools\bin\orbis-ar" rcus +@set INCLUDE="" + +orbis-as -o lj_vm.o lj_vm.s + +@if "%1" neq "debug" goto :NODEBUG +@shift +@set LJCOMPILE=%LJCOMPILE% -g -O0 +@set TARGETLIB=libluajitD.a +goto :BUILD +:NODEBUG +@set LJCOMPILE=%LJCOMPILE% -O2 +@set TARGETLIB=libluajit.a +:BUILD +del %TARGETLIB% +@if "%1"=="amalg" goto :AMALG +for %%f in (lj_*.c lib_*.c) do ( + %LJCOMPILE% %%f + @if errorlevel 1 goto :BAD +) + +%LJLIB% %TARGETLIB% lj_*.o lib_*.o +@if errorlevel 1 goto :BAD +@goto :NOAMALG +:AMALG +%LJCOMPILE% ljamalg.c +@if errorlevel 1 goto :BAD +%LJLIB% %TARGETLIB% ljamalg.o lj_vm.o +@if errorlevel 1 goto :BAD +:NOAMALG + +@del *.o *.obj *.manifest minilua.exe buildvm.exe +@echo. +@echo === Successfully built LuaJIT for PS4 === + +@goto :END +:BAD +@echo. +@echo ******************************************************* +@echo *** Build FAILED -- Please check the error messages *** +@echo ******************************************************* +@goto :END +:FAIL +@echo To run this script you must open a "Visual Studio .NET Command Prompt" +@echo (64 bit host compiler). The PS4 Orbis SDK must be installed, too. +:END diff --git a/src/3rd party/luajit-2.0/src/psvitabuild.bat b/src/3rd party/luajit-2.0/src/psvitabuild.bat new file mode 100644 index 00000000000..515f354376d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/psvitabuild.bat @@ -0,0 +1,93 @@ +@rem Script to build LuaJIT with the PS Vita SDK. +@rem Donated to the public domain. +@rem +@rem Open a "Visual Studio .NET Command Prompt" (32 bit host compiler) +@rem Then cd to this directory and run this script. + +@if not defined INCLUDE goto :FAIL +@if not defined SCE_PSP2_SDK_DIR goto :FAIL + +@setlocal +@rem ---- Host compiler ---- +@set LJCOMPILE=cl /nologo /c /MD /O2 /W3 /D_CRT_SECURE_NO_DEPRECATE +@set LJLINK=link /nologo +@set LJMT=mt /nologo +@set DASMDIR=..\dynasm +@set DASM=%DASMDIR%\dynasm.lua +@set ALL_LIB=lib_base.c lib_math.c lib_bit.c lib_string.c lib_table.c lib_io.c lib_os.c lib_package.c lib_debug.c lib_jit.c lib_ffi.c + +%LJCOMPILE% host\minilua.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:minilua.exe minilua.obj +@if errorlevel 1 goto :BAD +if exist minilua.exe.manifest^ + %LJMT% -manifest minilua.exe.manifest -outputresource:minilua.exe + +@rem Check for 32 bit host compiler. +@minilua +@if errorlevel 8 goto :FAIL + +@set DASMFLAGS=-D FPU -D HFABI +minilua %DASM% -LN %DASMFLAGS% -o host\buildvm_arch.h vm_arm.dasc +@if errorlevel 1 goto :BAD + +%LJCOMPILE% /I "." /I %DASMDIR% -DLUAJIT_TARGET=LUAJIT_ARCH_ARM -DLUAJIT_OS=LUAJIT_OS_OTHER -DLUAJIT_DISABLE_JIT -DLUAJIT_DISABLE_FFI -DLJ_TARGET_PSVITA=1 host\buildvm*.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:buildvm.exe buildvm*.obj +@if errorlevel 1 goto :BAD +if exist buildvm.exe.manifest^ + %LJMT% -manifest buildvm.exe.manifest -outputresource:buildvm.exe + +buildvm -m elfasm -o lj_vm.s +@if errorlevel 1 goto :BAD +buildvm -m bcdef -o lj_bcdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m ffdef -o lj_ffdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m libdef -o lj_libdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m recdef -o lj_recdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m vmdef -o jit\vmdef.lua %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m folddef -o lj_folddef.h lj_opt_fold.c +@if errorlevel 1 goto :BAD + +@rem ---- Cross compiler ---- +@set LJCOMPILE="%SCE_PSP2_SDK_DIR%\host_tools\build\bin\psp2snc" -c -w -DLUAJIT_DISABLE_FFI -DLUAJIT_USE_SYSMALLOC +@set LJLIB="%SCE_PSP2_SDK_DIR%\host_tools\build\bin\psp2ld32" -r --output= +@set INCLUDE="" + +"%SCE_PSP2_SDK_DIR%\host_tools\build\bin\psp2as" -o lj_vm.o lj_vm.s + +@if "%1" neq "debug" goto :NODEBUG +@shift +@set LJCOMPILE=%LJCOMPILE% -g -O0 +@set TARGETLIB=libluajitD.a +goto :BUILD +:NODEBUG +@set LJCOMPILE=%LJCOMPILE% -O2 +@set TARGETLIB=libluajit.a +:BUILD +del %TARGETLIB% + +%LJCOMPILE% ljamalg.c +@if errorlevel 1 goto :BAD +%LJLIB%%TARGETLIB% ljamalg.o lj_vm.o +@if errorlevel 1 goto :BAD + +@del *.o *.obj *.manifest minilua.exe buildvm.exe +@echo. +@echo === Successfully built LuaJIT for PS Vita === + +@goto :END +:BAD +@echo. +@echo ******************************************************* +@echo *** Build FAILED -- Please check the error messages *** +@echo ******************************************************* +@goto :END +:FAIL +@echo To run this script you must open a "Visual Studio .NET Command Prompt" +@echo (32 bit host compiler). The PS Vita SDK must be installed, too. +:END diff --git a/src/3rd party/luajit-2.0/src/vm_arm.dasc b/src/3rd party/luajit-2.0/src/vm_arm.dasc new file mode 100644 index 00000000000..457efa63ce2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_arm.dasc @@ -0,0 +1,4486 @@ +|// Low-level VM code for ARM CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.arch arm +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|// Note: The ragged indentation of the instructions is intentional. +|// The starting columns indicate data dependencies. +| +|//----------------------------------------------------------------------- +| +|// Fixed register assignments for the interpreter. +| +|// The following must be C callee-save. +|.define MASKR8, r4 // 255*8 constant for fast bytecode decoding. +|.define KBASE, r5 // Constants of current Lua function. +|.define PC, r6 // Next PC. +|.define DISPATCH, r7 // Opcode dispatch table. +|.define LREG, r8 // Register holding lua_State (also in SAVE_L). +| +|// C callee-save in EABI, but often refetched. Temporary in iOS 3.0+. +|.define BASE, r9 // Base of current Lua stack frame. +| +|// The following temporaries are not saved across C calls, except for RA/RC. +|.define RA, r10 // Callee-save. +|.define RC, r11 // Callee-save. +|.define RB, r12 +|.define OP, r12 // Overlaps RB, must not be lr. +|.define INS, lr +| +|// Calling conventions. Also used as temporaries. +|.define CARG1, r0 +|.define CARG2, r1 +|.define CARG3, r2 +|.define CARG4, r3 +|.define CARG12, r0 // For 1st soft-fp double. +|.define CARG34, r2 // For 2nd soft-fp double. +| +|.define CRET1, r0 +|.define CRET2, r1 +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +|.define SAVE_R4, [sp, #28] +|.define CFRAME_SPACE, #28 +|.define SAVE_ERRF, [sp, #24] +|.define SAVE_NRES, [sp, #20] +|.define SAVE_CFRAME, [sp, #16] +|.define SAVE_L, [sp, #12] +|.define SAVE_PC, [sp, #8] +|.define SAVE_MULTRES, [sp, #4] +|.define ARG5, [sp] +| +|.define TMPDhi, [sp, #4] +|.define TMPDlo, [sp] +|.define TMPD, [sp] +|.define TMPDp, sp +| +|.if FPU +|.macro saveregs +| push {r5, r6, r7, r8, r9, r10, r11, lr} +| vpush {d8-d15} +| sub sp, sp, CFRAME_SPACE+4 +| str r4, SAVE_R4 +|.endmacro +|.macro restoreregs_ret +| ldr r4, SAVE_R4 +| add sp, sp, CFRAME_SPACE+4 +| vpop {d8-d15} +| pop {r5, r6, r7, r8, r9, r10, r11, pc} +|.endmacro +|.else +|.macro saveregs +| push {r4, r5, r6, r7, r8, r9, r10, r11, lr} +| sub sp, sp, CFRAME_SPACE +|.endmacro +|.macro restoreregs_ret +| add sp, sp, CFRAME_SPACE +| pop {r4, r5, r6, r7, r8, r9, r10, r11, pc} +|.endmacro +|.endif +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State, LREG +|.type GL, global_State +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS8, int +|.type TRACE, GCtrace +| +|//----------------------------------------------------------------------- +| +|// Trap for not-yet-implemented parts. +|.macro NYI; ud; .endmacro +| +|//----------------------------------------------------------------------- +| +|// Access to frame relative to BASE. +|.define FRAME_FUNC, #-8 +|.define FRAME_PC, #-4 +| +|.macro decode_RA8, dst, ins; and dst, MASKR8, ins, lsr #5; .endmacro +|.macro decode_RB8, dst, ins; and dst, MASKR8, ins, lsr #21; .endmacro +|.macro decode_RC8, dst, ins; and dst, MASKR8, ins, lsr #13; .endmacro +|.macro decode_RD, dst, ins; lsr dst, ins, #16; .endmacro +|.macro decode_OP, dst, ins; and dst, ins, #255; .endmacro +| +|// Instruction fetch. +|.macro ins_NEXT1 +| ldrb OP, [PC] +|.endmacro +|.macro ins_NEXT2 +| ldr INS, [PC], #4 +|.endmacro +|// Instruction decode+dispatch. +|.macro ins_NEXT3 +| ldr OP, [DISPATCH, OP, lsl #2] +| decode_RA8 RA, INS +| decode_RD RC, INS +| bx OP +|.endmacro +|.macro ins_NEXT +| ins_NEXT1 +| ins_NEXT2 +| ins_NEXT3 +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +| .define ins_next1, ins_NEXT1 +| .define ins_next2, ins_NEXT2 +| .define ins_next3, ins_NEXT3 +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| .macro ins_next +| b ->ins_next +| .endmacro +| .macro ins_next1 +| .endmacro +| .macro ins_next2 +| .endmacro +| .macro ins_next3 +| b ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Avoid register name substitution for field name. +#define field_pc pc +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC +| ldr PC, LFUNC:CARG3->field_pc +| ldrb OP, [PC] // STALL: load PC. early PC. +| ldr INS, [PC], #4 +| ldr OP, [DISPATCH, OP, lsl #2] // STALL: load OP. early OP. +| decode_RA8 RA, INS +| add RA, RA, BASE +| bx OP +|.endmacro +| +|.macro ins_call +| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, PC = caller PC +| str PC, [BASE, FRAME_PC] +| ins_callt // STALL: locked PC. +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Macros to test operand types. +|.macro checktp, reg, tp; cmn reg, #-tp; .endmacro +|.macro checktpeq, reg, tp; cmneq reg, #-tp; .endmacro +|.macro checktpne, reg, tp; cmnne reg, #-tp; .endmacro +|.macro checkstr, reg, target; checktp reg, LJ_TSTR; bne target; .endmacro +|.macro checktab, reg, target; checktp reg, LJ_TTAB; bne target; .endmacro +|.macro checkfunc, reg, target; checktp reg, LJ_TFUNC; bne target; .endmacro +| +|// Assumes DISPATCH is relative to GL. +#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) +#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|.macro hotcheck, delta +| lsr CARG1, PC, #1 +| and CARG1, CARG1, #126 +| sub CARG1, CARG1, #-GG_DISP2HOT +| ldrh CARG2, [DISPATCH, CARG1] +| subs CARG2, CARG2, #delta +| strh CARG2, [DISPATCH, CARG1] +|.endmacro +| +|.macro hotloop +| hotcheck HOTCOUNT_LOOP +| blo ->vm_hotloop +|.endmacro +| +|.macro hotcall +| hotcheck HOTCOUNT_CALL +| blo ->vm_hotcall +|.endmacro +| +|// Set current VM state. +|.macro mv_vmstate, reg, st; mvn reg, #LJ_VMST_..st; .endmacro +|.macro st_vmstate, reg; str reg, [DISPATCH, #DISPATCH_GL(vmstate)]; .endmacro +| +|// Move table write barrier back. Overwrites mark and tmp. +|.macro barrierback, tab, mark, tmp +| ldr tmp, [DISPATCH, #DISPATCH_GL(gc.grayagain)] +| bic mark, mark, #LJ_GC_BLACK // black2gray(tab) +| str tab, [DISPATCH, #DISPATCH_GL(gc.grayagain)] +| strb mark, tab->marked +| str tmp, tab->gclist +|.endmacro +| +|.macro .IOS, a, b +|.if IOS +| a, b +|.endif +|.endmacro +| +|//----------------------------------------------------------------------- + +#if !LJ_DUALNUM +#error "Only dual-number mode supported for ARM target" +#endif + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | // See vm_return. Also: RB = previous base. + | tst PC, #FRAME_P + | beq ->cont_dispatch + | + | // Return from pcall or xpcall fast func. + | ldr PC, [RB, FRAME_PC] // Fetch PC of previous frame. + | mvn CARG2, #~LJ_TTRUE + | mov BASE, RB + | // Prepending may overwrite the pcall frame, so do it at the end. + | str CARG2, [RA, FRAME_PC] // Prepend true to results. + | sub RA, RA, #8 + | + |->vm_returnc: + | adds RC, RC, #8 // RC = (nresults+1)*8. + | mov CRET1, #LUA_YIELD + | beq ->vm_unwind_c_eh + | str RC, SAVE_MULTRES + | ands CARG1, PC, #FRAME_TYPE + | beq ->BC_RET_Z // Handle regular return to Lua. + | + |->vm_return: + | // BASE = base, RA = resultptr, RC/MULTRES = (nresults+1)*8, PC = return + | // CARG1 = PC & FRAME_TYPE + | bic RB, PC, #FRAME_TYPEP + | cmp CARG1, #FRAME_C + | sub RB, BASE, RB // RB = previous base. + | bne ->vm_returnp + | + | str RB, L->base + | ldr KBASE, SAVE_NRES + | mv_vmstate CARG4, C + | sub BASE, BASE, #8 + | subs CARG3, RC, #8 + | lsl KBASE, KBASE, #3 // KBASE = (nresults_wanted+1)*8 + | st_vmstate CARG4 + | beq >2 + |1: + | subs CARG3, CARG3, #8 + | ldrd CARG12, [RA], #8 + | strd CARG12, [BASE], #8 + | bne <1 + |2: + | cmp KBASE, RC // More/less results wanted? + | bne >6 + |3: + | str BASE, L->top // Store new top. + | + |->vm_leave_cp: + | ldr RC, SAVE_CFRAME // Restore previous C frame. + | mov CRET1, #0 // Ok return status for vm_pcall. + | str RC, L->cframe + | + |->vm_leave_unw: + | restoreregs_ret + | + |6: + | blt >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + | ldr CARG3, L->maxstack + | mvn CARG2, #~LJ_TNIL + | cmp BASE, CARG3 + | bhs >8 + | str CARG2, [BASE, #4] + | add RC, RC, #8 + | add BASE, BASE, #8 + | b <2 + | + |7: // Less results wanted. + | sub CARG1, RC, KBASE + | cmp KBASE, #0 // LUA_MULTRET+1 case? + | subne BASE, BASE, CARG1 // Either keep top or shrink it. + | b <3 + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | str BASE, L->top // Save current top held in BASE (yes). + | lsr CARG2, KBASE, #3 + | mov CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->top // Need the (realloced) L->top in BASE. + | b <2 + | + |->vm_unwind_c: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + | mov sp, CARG1 + | mov CRET1, CARG2 + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | ldr L, SAVE_L + | mv_vmstate CARG4, C + | ldr GL:CARG3, L->glref + | str CARG4, GL:CARG3->vmstate + | b ->vm_leave_unw + | + |->vm_unwind_ff: // Unwind C stack, return from ff pcall. + | // (void *cframe) + | bic CARG1, CARG1, #~CFRAME_RAWMASK // Use two steps: bic sp is deprecated. + | mov sp, CARG1 + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | ldr L, SAVE_L + | mov MASKR8, #255 + | mov RC, #16 // 2 results: false + error message. + | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. + | ldr BASE, L->base + | ldr DISPATCH, L->glref // Setup pointer to dispatch table. + | mvn CARG1, #~LJ_TFALSE + | sub RA, BASE, #8 // Results start at BASE-8. + | ldr PC, [BASE, FRAME_PC] // Fetch PC of previous frame. + | add DISPATCH, DISPATCH, #GG_G2DISP + | mv_vmstate CARG2, INTERP + | str CARG1, [BASE, #-4] // Prepend false to error message. + | st_vmstate CARG2 + | b ->vm_returnc + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | // CARG1 = L + | mov CARG2, #LUA_MINSTACK + | b >2 + | + |->vm_growstack_l: // Grow stack for Lua function. + | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC + | add RC, BASE, RC + | sub RA, RA, BASE + | mov CARG1, L + | str BASE, L->base + | add PC, PC, #4 // Must point after first instruction. + | str RC, L->top + | lsr CARG2, RA, #3 + |2: + | // L->base = new base, L->top = top + | str PC, SAVE_PC + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->base + | ldr RC, L->top + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | sub NARGS8:RC, RC, BASE + | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + | mov L, CARG1 + | ldr DISPATCH, L:CARG1->glref // Setup pointer to dispatch table. + | mov BASE, CARG2 + | add DISPATCH, DISPATCH, #GG_G2DISP + | str L, SAVE_L + | mov PC, #FRAME_CP + | str CARG3, SAVE_NRES + | add CARG2, sp, #CFRAME_RESUME + | ldrb CARG1, L->status + | str CARG3, SAVE_ERRF + | str CARG2, L->cframe + | str CARG3, SAVE_CFRAME + | cmp CARG1, #0 + | str L, SAVE_PC // Any value outside of bytecode is ok. + | beq >3 + | + | // Resume after yield (like a return). + | mov RA, BASE + | ldr BASE, L->base + | ldr CARG1, L->top + | mov MASKR8, #255 + | strb CARG3, L->status + | sub RC, CARG1, BASE + | ldr PC, [BASE, FRAME_PC] + | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. + | mv_vmstate CARG2, INTERP + | add RC, RC, #8 + | ands CARG1, PC, #FRAME_TYPE + | st_vmstate CARG2 + | str RC, SAVE_MULTRES + | beq ->BC_RET_Z + | b ->vm_return + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | mov PC, #FRAME_CP + | str CARG4, SAVE_ERRF + | b >1 + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | mov PC, #FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + | ldr RC, L:CARG1->cframe + | str CARG3, SAVE_NRES + | mov L, CARG1 + | str CARG1, SAVE_L + | mov BASE, CARG2 + | str sp, L->cframe // Add our C frame to cframe chain. + | ldr DISPATCH, L->glref // Setup pointer to dispatch table. + | str CARG1, SAVE_PC // Any value outside of bytecode is ok. + | str RC, SAVE_CFRAME + | add DISPATCH, DISPATCH, #GG_G2DISP + | + |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | ldr RB, L->base // RB = old base (for vmeta_call). + | ldr CARG1, L->top + | mov MASKR8, #255 + | add PC, PC, BASE + | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. + | sub PC, PC, RB // PC = frame delta + frame type + | mv_vmstate CARG2, INTERP + | sub NARGS8:RC, CARG1, BASE + | st_vmstate CARG2 + | + |->vm_call_dispatch: + | // RB = old base, BASE = new base, RC = nargs*8, PC = caller PC + | ldrd CARG34, [BASE, FRAME_FUNC] + | checkfunc CARG4, ->vmeta_call + | + |->vm_call_dispatch_f: + | ins_call + | // BASE = new base, CARG3 = func, RC = nargs*8, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + | mov L, CARG1 + | ldr RA, L:CARG1->stack + | str CARG1, SAVE_L + | ldr RB, L->top + | str CARG1, SAVE_PC // Any value outside of bytecode is ok. + | ldr RC, L->cframe + | sub RA, RA, RB // Compute -savestack(L, L->top). + | str sp, L->cframe // Add our C frame to cframe chain. + | mov RB, #0 + | str RA, SAVE_NRES // Neg. delta means cframe w/o frame. + | str RB, SAVE_ERRF // No error function. + | str RC, SAVE_CFRAME + | blx CARG4 // (lua_State *L, lua_CFunction func, void *ud) + | ldr DISPATCH, L->glref // Setup pointer to dispatch table. + | movs BASE, CRET1 + | mov PC, #FRAME_CP + | add DISPATCH, DISPATCH, #GG_G2DISP + | bne <3 // Else continue with the call. + | b ->vm_leave_cp // No base? Just remove C frame. + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultptr, RC = (nresults+1)*8 + | ldr LFUNC:CARG3, [RB, FRAME_FUNC] + | ldr CARG1, [BASE, #-16] // Get continuation. + | mov CARG4, BASE + | mov BASE, RB // Restore caller BASE. + |.if FFI + | cmp CARG1, #1 + |.endif + | ldr PC, [CARG4, #-12] // Restore PC from [cont|PC]. + | ldr CARG3, LFUNC:CARG3->field_pc + | mvn INS, #~LJ_TNIL + | add CARG2, RA, RC + | str INS, [CARG2, #-4] // Ensure one valid arg. + |.if FFI + | bls >1 + |.endif + | ldr KBASE, [CARG3, #PC2PROTO(k)] + | // BASE = base, RA = resultptr, CARG4 = meta base + | bx CARG1 + | + |.if FFI + |1: + | beq ->cont_ffi_callback // cont = 1: return from FFI callback. + | // cont = 0: tailcall from C function. + | sub CARG4, CARG4, #16 + | sub RC, CARG4, BASE + | b ->vm_call_tail + |.endif + | + |->cont_cat: // RA = resultptr, CARG4 = meta base + | ldr INS, [PC, #-4] + | sub CARG2, CARG4, #16 + | ldrd CARG34, [RA] + | str BASE, L->base + | decode_RB8 RC, INS + | decode_RA8 RA, INS + | add CARG1, BASE, RC + | subs CARG1, CARG2, CARG1 + | strdne CARG34, [CARG2] + | movne CARG3, CARG1 + | bne ->BC_CAT_Z + | strd CARG34, [BASE, RA] + | b ->cont_nop + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets1: + | add CARG2, BASE, RB + | b >2 + | + |->vmeta_tgets: + | sub CARG2, DISPATCH, #-DISPATCH_GL(tmptv) + | mvn CARG4, #~LJ_TTAB + | str TAB:RB, [CARG2] + | str CARG4, [CARG2, #4] + |2: + | mvn CARG4, #~LJ_TSTR + | str STR:RC, TMPDlo + | str CARG4, TMPDhi + | mov CARG3, TMPDp + | b >1 + | + |->vmeta_tgetb: // RC = index + | decode_RB8 RB, INS + | str RC, TMPDlo + | mvn CARG4, #~LJ_TISNUM + | add CARG2, BASE, RB + | str CARG4, TMPDhi + | mov CARG3, TMPDp + | b >1 + | + |->vmeta_tgetv: + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | .IOS ldr BASE, L->base + | cmp CRET1, #0 + | beq >3 + | ldrd CARG34, [CRET1] + | ins_next1 + | ins_next2 + | strd CARG34, [BASE, RA] + | ins_next3 + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | rsb CARG1, BASE, #FRAME_CONT + | ldr BASE, L->top + | mov NARGS8:RC, #16 // 2 args for func(t, k). + | str PC, [BASE, #-12] // [cont|PC] + | add PC, CARG1, BASE + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | b ->vm_call_dispatch_f + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets1: + | add CARG2, BASE, RB + | b >2 + | + |->vmeta_tsets: + | sub CARG2, DISPATCH, #-DISPATCH_GL(tmptv) + | mvn CARG4, #~LJ_TTAB + | str TAB:RB, [CARG2] + | str CARG4, [CARG2, #4] + |2: + | mvn CARG4, #~LJ_TSTR + | str STR:RC, TMPDlo + | str CARG4, TMPDhi + | mov CARG3, TMPDp + | b >1 + | + |->vmeta_tsetb: // RC = index + | decode_RB8 RB, INS + | str RC, TMPDlo + | mvn CARG4, #~LJ_TISNUM + | add CARG2, BASE, RB + | str CARG4, TMPDhi + | mov CARG3, TMPDp + | b >1 + | + |->vmeta_tsetv: + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | .IOS ldr BASE, L->base + | cmp CRET1, #0 + | ldrd CARG34, [BASE, RA] + | beq >3 + | ins_next1 + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | strd CARG34, [CRET1] + | ins_next2 + | ins_next3 + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | rsb CARG1, BASE, #FRAME_CONT + | ldr BASE, L->top + | mov NARGS8:RC, #24 // 3 args for func(t, k, v). + | strd CARG34, [BASE, #16] // Copy value to third argument. + | str PC, [BASE, #-12] // [cont|PC] + | add PC, CARG1, BASE + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | b ->vm_call_dispatch_f + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + | mov CARG1, L + | sub PC, PC, #4 + | mov CARG2, RA + | str BASE, L->base + | mov CARG3, RC + | str PC, SAVE_PC + | decode_OP CARG4, INS + | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + | // Returns 0/1 or TValue * (metamethod). + |3: + | .IOS ldr BASE, L->base + | cmp CRET1, #1 + | bhi ->vmeta_binop + |4: + | ldrh RB, [PC, #2] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | subhs PC, RB, #0x20000 + |->cont_nop: + | ins_next + | + |->cont_ra: // RA = resultptr + | ldr INS, [PC, #-4] + | ldrd CARG12, [RA] + | decode_RA8 CARG3, INS + | strd CARG12, [BASE, CARG3] + | b ->cont_nop + | + |->cont_condt: // RA = resultptr + | ldr CARG2, [RA, #4] + | mvn CARG1, #~LJ_TTRUE + | cmp CARG1, CARG2 // Branch if result is true. + | b <4 + | + |->cont_condf: // RA = resultptr + | ldr CARG2, [RA, #4] + | checktp CARG2, LJ_TFALSE // Branch if result is false. + | b <4 + | + |->vmeta_equal: + | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + | + |->vmeta_equal_cd: + |.if FFI + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | mov CARG2, INS + | str PC, SAVE_PC + | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + |.endif + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_arith_vn: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG3, BASE, RB + | add CARG4, KBASE, RC + | b >1 + | + |->vmeta_arith_nv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG4, BASE, RB + | add CARG3, KBASE, RC + | b >1 + | + |->vmeta_unm: + | ldr INS, [PC, #-8] + | sub PC, PC, #4 + | add CARG3, BASE, RC + | add CARG4, BASE, RC + | b >1 + | + |->vmeta_arith_vv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG3, BASE, RB + | add CARG4, BASE, RC + |1: + | decode_OP OP, INS + | add CARG2, BASE, RA + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | str OP, ARG5 + | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + | // Returns NULL (finished) or TValue * (metamethod). + | .IOS ldr BASE, L->base + | cmp CRET1, #0 + | beq ->cont_nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 + | sub CARG2, CRET1, BASE + | str PC, [CRET1, #-12] // [cont|PC] + | add PC, CARG2, #FRAME_CONT + | mov BASE, CRET1 + | mov NARGS8:RC, #16 // 2 args for func(o1, o2). + | b ->vm_call_dispatch + | + |->vmeta_len: + | add CARG2, BASE, RC + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_len // (lua_State *L, TValue *o) + | // Returns NULL (retry) or TValue * (metamethod base). + | .IOS ldr BASE, L->base +#if LJ_52 + | cmp CRET1, #0 + | bne ->vmeta_binop // Binop call for compatibility. + | ldr TAB:CARG1, [BASE, RC] + | b ->BC_LEN_Z +#else + | b ->vmeta_binop // Binop call for compatibility. +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call: // Resolve and call __call metamethod. + | // RB = old base, BASE = new base, RC = nargs*8 + | mov CARG1, L + | str RB, L->base // This is the callers base! + | sub CARG2, BASE, #8 + | str PC, SAVE_PC + | add CARG3, BASE, NARGS8:RC + | .IOS mov RA, BASE + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | .IOS mov BASE, RA + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. + | ins_call + | + |->vmeta_callt: // Resolve __call for BC_CALLT. + | // BASE = old base, RA = new base, RC = nargs*8 + | mov CARG1, L + | str BASE, L->base + | sub CARG2, RA, #8 + | str PC, SAVE_PC + | add CARG3, RA, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | .IOS ldr BASE, L->base + | ldr LFUNC:CARG3, [RA, FRAME_FUNC] // Guaranteed to be a function here. + | ldr PC, [BASE, FRAME_PC] + | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. + | b ->BC_CALLT2_Z + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | mov CARG1, L + | str BASE, L->base + | mov CARG2, RA + | str PC, SAVE_PC + | bl extern lj_meta_for // (lua_State *L, TValue *base) + | .IOS ldr BASE, L->base + |.if JIT + | ldrb OP, [PC, #-4] + |.endif + | ldr INS, [PC, #-4] + |.if JIT + | cmp OP, #BC_JFORI + |.endif + | decode_RA8 RA, INS + | decode_RD RC, INS + |.if JIT + | beq =>BC_JFORI + |.endif + | b =>BC_FORI + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | ldrd CARG12, [BASE] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | ldrd CARG12, [BASE] + | ldrd CARG34, [BASE, #8] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + |.endmacro + | + |.macro .ffunc_n, name + | .ffunc_1 name + | checktp CARG2, LJ_TISNUM + | bhs ->fff_fallback + |.endmacro + | + |.macro .ffunc_nn, name + | .ffunc_2 name + | checktp CARG2, LJ_TISNUM + | cmnlo CARG4, #-LJ_TISNUM + | bhs ->fff_fallback + |.endmacro + | + |.macro .ffunc_d, name + | .ffunc name + | ldr CARG2, [BASE, #4] + | cmp NARGS8:RC, #8 + | vldr d0, [BASE] + | blo ->fff_fallback + | checktp CARG2, LJ_TISNUM + | bhs ->fff_fallback + |.endmacro + | + |.macro .ffunc_dd, name + | .ffunc name + | ldr CARG2, [BASE, #4] + | ldr CARG4, [BASE, #12] + | cmp NARGS8:RC, #16 + | vldr d0, [BASE] + | vldr d1, [BASE, #8] + | blo ->fff_fallback + | checktp CARG2, LJ_TISNUM + | cmnlo CARG4, #-LJ_TISNUM + | bhs ->fff_fallback + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses CARG1 and CARG2. + |.macro ffgccheck + | ldr CARG1, [DISPATCH, #DISPATCH_GL(gc.total)] + | ldr CARG2, [DISPATCH, #DISPATCH_GL(gc.threshold)] + | cmp CARG1, CARG2 + | blge ->fff_gcstep + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc_1 assert + | checktp CARG2, LJ_TTRUE + | bhi ->fff_fallback + | ldr PC, [BASE, FRAME_PC] + | strd CARG12, [BASE, #-8] + | mov RB, BASE + | subs RA, NARGS8:RC, #8 + | add RC, NARGS8:RC, #8 // Compute (nresults+1)*8. + | beq ->fff_res // Done if exactly 1 argument. + |1: + | ldrd CARG12, [RB, #8] + | subs RA, RA, #8 + | strd CARG12, [RB], #8 + | bne <1 + | b ->fff_res + | + |.ffunc type + | ldr CARG2, [BASE, #4] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + | checktp CARG2, LJ_TISNUM + | mvnlo CARG2, #~LJ_TISNUM + | rsb CARG4, CARG2, #(int)(offsetof(GCfuncC, upvalue)>>3)-1 + | lsl CARG4, CARG4, #3 + | ldrd CARG12, [CFUNC:CARG3, CARG4] + | b ->fff_restv + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | checktp CARG2, LJ_TTAB + | cmnne CARG2, #-LJ_TUDATA + | bne >6 + |1: // Field metatable must be at same offset for GCtab and GCudata! + | ldr TAB:RB, TAB:CARG1->metatable + |2: + | mvn CARG2, #~LJ_TNIL + | ldr STR:RC, [DISPATCH, #DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])] + | cmp TAB:RB, #0 + | beq ->fff_restv + | ldr CARG3, TAB:RB->hmask + | ldr CARG4, STR:RC->hash + | ldr NODE:INS, TAB:RB->node + | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask + | add CARG3, CARG3, CARG3, lsl #1 + | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 + |3: // Rearranged logic, because we expect _not_ to find the key. + | ldrd CARG34, NODE:INS->key // STALL: early NODE:INS. + | ldrd CARG12, NODE:INS->val + | ldr NODE:INS, NODE:INS->next + | checktp CARG4, LJ_TSTR + | cmpeq CARG3, STR:RC + | beq >5 + | cmp NODE:INS, #0 + | bne <3 + |4: + | mov CARG1, RB // Use metatable as default result. + | mvn CARG2, #~LJ_TTAB + | b ->fff_restv + |5: + | checktp CARG2, LJ_TNIL + | bne ->fff_restv + | b <4 + | + |6: + | checktp CARG2, LJ_TISNUM + | mvnhs CARG2, CARG2 + | movlo CARG2, #~LJ_TISNUM + | add CARG4, DISPATCH, CARG2, lsl #2 + | ldr TAB:RB, [CARG4, #DISPATCH_GL(gcroot[GCROOT_BASEMT])] + | b <2 + | + |.ffunc_2 setmetatable + | // Fast path: no mt for table yet and not clearing the mt. + | checktp CARG2, LJ_TTAB + | ldreq TAB:RB, TAB:CARG1->metatable + | checktpeq CARG4, LJ_TTAB + | ldrbeq CARG4, TAB:CARG1->marked + | cmpeq TAB:RB, #0 + | bne ->fff_fallback + | tst CARG4, #LJ_GC_BLACK // isblack(table) + | str TAB:CARG3, TAB:CARG1->metatable + | beq ->fff_restv + | barrierback TAB:CARG1, CARG4, CARG3 + | b ->fff_restv + | + |.ffunc rawget + | ldrd CARG34, [BASE] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + | mov CARG2, CARG3 + | checktab CARG4, ->fff_fallback + | mov CARG1, L + | add CARG3, BASE, #8 + | .IOS mov RA, BASE + | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + | // Returns cTValue *. + | .IOS mov BASE, RA + | ldrd CARG12, [CRET1] + | b ->fff_restv + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | ldrd CARG12, [BASE] + | cmp NARGS8:RC, #8 + | bne ->fff_fallback + | checktp CARG2, LJ_TISNUM + | bls ->fff_restv + | b ->fff_fallback + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | checktp CARG2, LJ_TSTR + | // A __tostring method in the string base metatable is ignored. + | beq ->fff_restv + | // Handle numbers inline, unless a number base metatable is present. + | ldr CARG4, [DISPATCH, #DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])] + | str BASE, L->base + | checktp CARG2, LJ_TISNUM + | cmpls CARG4, #0 + | str PC, SAVE_PC // Redundant (but a defined value). + | bhi ->fff_fallback + | ffgccheck + | mov CARG1, L + | mov CARG2, BASE + | bl extern lj_str_fromnumber // (lua_State *L, cTValue *o) + | // Returns GCstr *. + | ldr BASE, L->base + | mvn CARG2, #~LJ_TSTR + | b ->fff_restv + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc_1 next + | mvn CARG4, #~LJ_TNIL + | checktab CARG2, ->fff_fallback + | strd CARG34, [BASE, NARGS8:RC] // Set missing 2nd arg to nil. + | ldr PC, [BASE, FRAME_PC] + | mov CARG2, CARG1 + | str BASE, L->base // Add frame since C call can throw. + | mov CARG1, L + | str BASE, L->top // Dummy frame length is ok. + | add CARG3, BASE, #8 + | str PC, SAVE_PC + | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + | // Returns 0 at end of traversal. + | .IOS ldr BASE, L->base + | cmp CRET1, #0 + | mvneq CRET2, #~LJ_TNIL + | beq ->fff_restv // End of traversal: return nil. + | ldrd CARG12, [BASE, #8] // Copy key and value to results. + | ldrd CARG34, [BASE, #16] + | mov RC, #(2+1)*8 + | strd CARG12, [BASE, #-8] + | strd CARG34, [BASE] + | b ->fff_res + | + |.ffunc_1 pairs + | checktab CARG2, ->fff_fallback +#if LJ_52 + | ldr TAB:RB, TAB:CARG1->metatable +#endif + | ldrd CFUNC:CARG34, CFUNC:CARG3->upvalue[0] + | ldr PC, [BASE, FRAME_PC] +#if LJ_52 + | cmp TAB:RB, #0 + | bne ->fff_fallback +#endif + | mvn CARG2, #~LJ_TNIL + | mov RC, #(3+1)*8 + | strd CFUNC:CARG34, [BASE, #-8] + | str CARG2, [BASE, #12] + | b ->fff_res + | + |.ffunc_2 ipairs_aux + | checktp CARG2, LJ_TTAB + | checktpeq CARG4, LJ_TISNUM + | bne ->fff_fallback + | ldr RB, TAB:CARG1->asize + | ldr RC, TAB:CARG1->array + | add CARG3, CARG3, #1 + | ldr PC, [BASE, FRAME_PC] + | cmp CARG3, RB + | add RC, RC, CARG3, lsl #3 + | strd CARG34, [BASE, #-8] + | ldrdlo CARG12, [RC] + | mov RC, #(0+1)*8 + | bhs >2 // Not in array part? + |1: + | checktp CARG2, LJ_TNIL + | movne RC, #(2+1)*8 + | strdne CARG12, [BASE] + | b ->fff_res + |2: // Check for empty hash part first. Otherwise call C function. + | ldr RB, TAB:CARG1->hmask + | mov CARG2, CARG3 + | cmp RB, #0 + | beq ->fff_res + | .IOS mov RA, BASE + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | .IOS mov BASE, RA + | cmp CRET1, #0 + | beq ->fff_res + | ldrd CARG12, [CRET1] + | b <1 + | + |.ffunc_1 ipairs + | checktab CARG2, ->fff_fallback +#if LJ_52 + | ldr TAB:RB, TAB:CARG1->metatable +#endif + | ldrd CFUNC:CARG34, CFUNC:CARG3->upvalue[0] + | ldr PC, [BASE, FRAME_PC] +#if LJ_52 + | cmp TAB:RB, #0 + | bne ->fff_fallback +#endif + | mov CARG1, #0 + | mvn CARG2, #~LJ_TISNUM + | mov RC, #(3+1)*8 + | strd CFUNC:CARG34, [BASE, #-8] + | strd CARG12, [BASE, #8] + | b ->fff_res + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc pcall + | ldrb RA, [DISPATCH, #DISPATCH_GL(hookmask)] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + | tst RA, #HOOK_ACTIVE // Remember active hook before pcall. + | mov RB, BASE + | add BASE, BASE, #8 + | moveq PC, #8+FRAME_PCALL + | movne PC, #8+FRAME_PCALLH + | sub NARGS8:RC, NARGS8:RC, #8 + | b ->vm_call_dispatch + | + |.ffunc_2 xpcall + | ldrb RA, [DISPATCH, #DISPATCH_GL(hookmask)] + | checkfunc CARG4, ->fff_fallback // Traceback must be a function. + | mov RB, BASE + | strd CARG12, [BASE, #8] // Swap function and traceback. + | strd CARG34, [BASE] + | tst RA, #HOOK_ACTIVE // Remember active hook before pcall. + | add BASE, BASE, #16 + | moveq PC, #16+FRAME_PCALL + | movne PC, #16+FRAME_PCALLH + | sub NARGS8:RC, NARGS8:RC, #16 + | b ->vm_call_dispatch + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | checktp CARG2, LJ_TTHREAD + | bne ->fff_fallback + |.else + |.ffunc coroutine_wrap_aux + | ldr L:CARG1, CFUNC:CARG3->upvalue[0].gcr + |.endif + | ldr PC, [BASE, FRAME_PC] + | str BASE, L->base + | ldr CARG2, L:CARG1->top + | ldrb RA, L:CARG1->status + | ldr RB, L:CARG1->base + | add CARG3, CARG2, NARGS8:RC + | add CARG4, CARG2, RA + | str PC, SAVE_PC + | cmp CARG4, RB + | beq ->fff_fallback + | ldr CARG4, L:CARG1->maxstack + | ldr RB, L:CARG1->cframe + | cmp RA, #LUA_YIELD + | cmpls CARG3, CARG4 + | cmpls RB, #0 + | bhi ->fff_fallback + |1: + |.if resume + | sub CARG3, CARG3, #8 // Keep resumed thread in stack for GC. + | add BASE, BASE, #8 + | sub NARGS8:RC, NARGS8:RC, #8 + |.endif + | str CARG3, L:CARG1->top + | str BASE, L->top + |2: // Move args to coroutine. + | ldrd CARG34, [BASE, RB] + | cmp RB, NARGS8:RC + | strdne CARG34, [CARG2, RB] + | add RB, RB, #8 + | bne <2 + | + | mov CARG3, #0 + | mov L:RA, L:CARG1 + | mov CARG4, #0 + | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) + | // Returns thread status. + |4: + | ldr CARG3, L:RA->base + | mv_vmstate CARG2, INTERP + | ldr CARG4, L:RA->top + | st_vmstate CARG2 + | cmp CRET1, #LUA_YIELD + | ldr BASE, L->base + | bhi >8 + | subs RC, CARG4, CARG3 + | ldr CARG1, L->maxstack + | add CARG2, BASE, RC + | beq >6 // No results? + | cmp CARG2, CARG1 + | mov RB, #0 + | bhi >9 // Need to grow stack? + | + | sub CARG4, RC, #8 + | str CARG3, L:RA->top // Clear coroutine stack. + |5: // Move results from coroutine. + | ldrd CARG12, [CARG3, RB] + | cmp RB, CARG4 + | strd CARG12, [BASE, RB] + | add RB, RB, #8 + | bne <5 + |6: + |.if resume + | mvn CARG3, #~LJ_TTRUE + | add RC, RC, #16 + |7: + | str CARG3, [BASE, #-4] // Prepend true/false to results. + | sub RA, BASE, #8 + |.else + | mov RA, BASE + | add RC, RC, #8 + |.endif + | ands CARG1, PC, #FRAME_TYPE + | str PC, SAVE_PC + | str RC, SAVE_MULTRES + | beq ->BC_RET_Z + | b ->vm_return + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | ldrd CARG12, [CARG4, #-8]! + | mvn CARG3, #~LJ_TFALSE + | mov RC, #(2+1)*8 + | str CARG4, L:RA->top // Remove error from coroutine stack. + | strd CARG12, [BASE] // Copy error message. + | b <7 + |.else + | mov CARG1, L + | mov CARG2, L:RA + | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) + | // Never returns. + |.endif + | + |9: // Handle stack expansion on return from yield. + | mov CARG1, L + | lsr CARG2, RC, #3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | mov CRET1, #0 + | b <4 + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | ldr CARG1, L->cframe + | add CARG2, BASE, NARGS8:RC + | str BASE, L->base + | tst CARG1, #CFRAME_RESUME + | str CARG2, L->top + | mov CRET1, #LUA_YIELD + | mov CARG3, #0 + | beq ->fff_fallback + | str CARG3, L->cframe + | strb CRET1, L->status + | b ->vm_leave_unw + | + |//-- Math library ------------------------------------------------------- + | + |.macro math_round, func + | .ffunc_1 math_ .. func + | checktp CARG2, LJ_TISNUM + | beq ->fff_restv + | bhi ->fff_fallback + | // Round FP value and normalize result. + | lsl CARG3, CARG2, #1 + | adds RB, CARG3, #0x00200000 + | bpl >2 // |x| < 1? + | mvn CARG4, #0x3e0 + | subs RB, CARG4, RB, asr #21 + | lsl CARG4, CARG2, #11 + | lsl CARG3, CARG1, #11 + | orr CARG4, CARG4, #0x80000000 + | rsb INS, RB, #32 + | orr CARG4, CARG4, CARG1, lsr #21 + | bls >3 // |x| >= 2^31? + | orr CARG3, CARG3, CARG4, lsl INS + | lsr CARG1, CARG4, RB + |.if "func" == "floor" + | tst CARG3, CARG2, asr #31 + | addne CARG1, CARG1, #1 + |.else + | bics CARG3, CARG3, CARG2, asr #31 + | addsne CARG1, CARG1, #1 + | ldrdvs CARG12, >9 + | bvs ->fff_restv + |.endif + | cmp CARG2, #0 + | rsblt CARG1, CARG1, #0 + |1: + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |2: // |x| < 1 + | bcs ->fff_restv // |x| is not finite. + | orr CARG3, CARG3, CARG1 // ztest = abs(hi) | lo + |.if "func" == "floor" + | tst CARG3, CARG2, asr #31 // return (ztest & sign) == 0 ? 0 : -1 + | moveq CARG1, #0 + | mvnne CARG1, #0 + |.else + | bics CARG3, CARG3, CARG2, asr #31 // return (ztest & ~sign) == 0 ? 0 : 1 + | moveq CARG1, #0 + | movne CARG1, #1 + |.endif + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |3: // |x| >= 2^31. Check for x == -(2^31). + | cmpeq CARG4, #0x80000000 + |.if "func" == "floor" + | cmpeq CARG3, #0 + |.endif + | bne >4 + | cmp CARG2, #0 + | movmi CARG1, #0x80000000 + | bmi <1 + |4: + | bl ->vm_..func.._sf + | b ->fff_restv + |.endmacro + | + | math_round floor + | math_round ceil + | + |.align 8 + |9: + | .long 0x00000000, 0x41e00000 // 2^31. + | + |.ffunc_1 math_abs + | checktp CARG2, LJ_TISNUM + | bhi ->fff_fallback + | bicne CARG2, CARG2, #0x80000000 + | bne ->fff_restv + | cmp CARG1, #0 + | rsbslt CARG1, CARG1, #0 + | ldrdvs CARG12, <9 + | // Fallthrough. + | + |->fff_restv: + | // CARG12 = TValue result. + | ldr PC, [BASE, FRAME_PC] + | strd CARG12, [BASE, #-8] + |->fff_res1: + | // PC = return. + | mov RC, #(1+1)*8 + |->fff_res: + | // RC = (nresults+1)*8, PC = return. + | ands CARG1, PC, #FRAME_TYPE + | ldreq INS, [PC, #-4] + | str RC, SAVE_MULTRES + | sub RA, BASE, #8 + | bne ->vm_return + | decode_RB8 RB, INS + |5: + | cmp RB, RC // More results expected? + | bhi >6 + | decode_RA8 CARG1, INS + | ins_next1 + | ins_next2 + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | sub BASE, RA, CARG1 + | ins_next3 + | + |6: // Fill up results with nil. + | add CARG2, RA, RC + | mvn CARG1, #~LJ_TNIL + | add RC, RC, #8 + | str CARG1, [CARG2, #-4] + | b <5 + | + |.macro math_extern, func + |.if HFABI + | .ffunc_d math_ .. func + |.else + | .ffunc_n math_ .. func + |.endif + | .IOS mov RA, BASE + | bl extern func + | .IOS mov BASE, RA + |.if HFABI + | b ->fff_resd + |.else + | b ->fff_restv + |.endif + |.endmacro + | + |.macro math_extern2, func + |.if HFABI + | .ffunc_dd math_ .. func + |.else + | .ffunc_nn math_ .. func + |.endif + | .IOS mov RA, BASE + | bl extern func + | .IOS mov BASE, RA + |.if HFABI + | b ->fff_resd + |.else + | b ->fff_restv + |.endif + |.endmacro + | + |.if FPU + | .ffunc_d math_sqrt + | vsqrt.f64 d0, d0 + |->fff_resd: + | ldr PC, [BASE, FRAME_PC] + | vstr d0, [BASE, #-8] + | b ->fff_res1 + |.else + | math_extern sqrt + |.endif + | + |.ffunc math_log + |.if HFABI + | ldr CARG2, [BASE, #4] + | cmp NARGS8:RC, #8 // Need exactly 1 argument. + | vldr d0, [BASE] + | bne ->fff_fallback + |.else + | ldrd CARG12, [BASE] + | cmp NARGS8:RC, #8 // Need exactly 1 argument. + | bne ->fff_fallback + |.endif + | checktp CARG2, LJ_TISNUM + | bhs ->fff_fallback + | .IOS mov RA, BASE + | bl extern log + | .IOS mov BASE, RA + |.if HFABI + | b ->fff_resd + |.else + | b ->fff_restv + |.endif + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan + | math_extern sinh + | math_extern cosh + | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod + | + |->ff_math_deg: + |.if FPU + | .ffunc_d math_rad + | vldr d1, CFUNC:CARG3->upvalue[0] + | vmul.f64 d0, d0, d1 + | b ->fff_resd + |.else + | .ffunc_n math_rad + | ldrd CARG34, CFUNC:CARG3->upvalue[0] + | bl extern __aeabi_dmul + | b ->fff_restv + |.endif + | + |.if HFABI + | .ffunc math_ldexp + | ldr CARG4, [BASE, #4] + | ldrd CARG12, [BASE, #8] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + | vldr d0, [BASE] + | checktp CARG4, LJ_TISNUM + | bhs ->fff_fallback + | checktp CARG2, LJ_TISNUM + | bne ->fff_fallback + | .IOS mov RA, BASE + | bl extern ldexp // (double x, int exp) + | .IOS mov BASE, RA + | b ->fff_resd + |.else + |.ffunc_2 math_ldexp + | checktp CARG2, LJ_TISNUM + | bhs ->fff_fallback + | checktp CARG4, LJ_TISNUM + | bne ->fff_fallback + | .IOS mov RA, BASE + | bl extern ldexp // (double x, int exp) + | .IOS mov BASE, RA + | b ->fff_restv + |.endif + | + |.if HFABI + |.ffunc_d math_frexp + | mov CARG1, sp + | .IOS mov RA, BASE + | bl extern frexp + | .IOS mov BASE, RA + | ldr CARG3, [sp] + | mvn CARG4, #~LJ_TISNUM + | ldr PC, [BASE, FRAME_PC] + | vstr d0, [BASE, #-8] + | mov RC, #(2+1)*8 + | strd CARG34, [BASE] + | b ->fff_res + |.else + |.ffunc_n math_frexp + | mov CARG3, sp + | .IOS mov RA, BASE + | bl extern frexp + | .IOS mov BASE, RA + | ldr CARG3, [sp] + | mvn CARG4, #~LJ_TISNUM + | ldr PC, [BASE, FRAME_PC] + | strd CARG12, [BASE, #-8] + | mov RC, #(2+1)*8 + | strd CARG34, [BASE] + | b ->fff_res + |.endif + | + |.if HFABI + |.ffunc_d math_modf + | sub CARG1, BASE, #8 + | ldr PC, [BASE, FRAME_PC] + | .IOS mov RA, BASE + | bl extern modf + | .IOS mov BASE, RA + | mov RC, #(2+1)*8 + | vstr d0, [BASE] + | b ->fff_res + |.else + |.ffunc_n math_modf + | sub CARG3, BASE, #8 + | ldr PC, [BASE, FRAME_PC] + | .IOS mov RA, BASE + | bl extern modf + | .IOS mov BASE, RA + | mov RC, #(2+1)*8 + | strd CARG12, [BASE] + | b ->fff_res + |.endif + | + |.macro math_minmax, name, cond, fcond + |.if FPU + | .ffunc_1 name + | add RB, BASE, RC + | checktp CARG2, LJ_TISNUM + | add RA, BASE, #8 + | bne >4 + |1: // Handle integers. + | ldrd CARG34, [RA] + | cmp RA, RB + | bhs ->fff_restv + | checktp CARG4, LJ_TISNUM + | bne >3 + | cmp CARG1, CARG3 + | add RA, RA, #8 + | mov..cond CARG1, CARG3 + | b <1 + |3: // Convert intermediate result to number and continue below. + | vmov s4, CARG1 + | bhi ->fff_fallback + | vldr d1, [RA] + | vcvt.f64.s32 d0, s4 + | b >6 + | + |4: + | vldr d0, [BASE] + | bhi ->fff_fallback + |5: // Handle numbers. + | ldrd CARG34, [RA] + | vldr d1, [RA] + | cmp RA, RB + | bhs ->fff_resd + | checktp CARG4, LJ_TISNUM + | bhs >7 + |6: + | vcmp.f64 d0, d1 + | vmrs + | add RA, RA, #8 + | vmov..fcond.f64 d0, d1 + | b <5 + |7: // Convert integer to number and continue above. + | vmov s4, CARG3 + | bhi ->fff_fallback + | vcvt.f64.s32 d1, s4 + | b <6 + | + |.else + | + | .ffunc_1 name + | checktp CARG2, LJ_TISNUM + | mov RA, #8 + | bne >4 + |1: // Handle integers. + | ldrd CARG34, [BASE, RA] + | cmp RA, RC + | bhs ->fff_restv + | checktp CARG4, LJ_TISNUM + | bne >3 + | cmp CARG1, CARG3 + | add RA, RA, #8 + | mov..cond CARG1, CARG3 + | b <1 + |3: // Convert intermediate result to number and continue below. + | bhi ->fff_fallback + | bl extern __aeabi_i2d + | ldrd CARG34, [BASE, RA] + | b >6 + | + |4: + | bhi ->fff_fallback + |5: // Handle numbers. + | ldrd CARG34, [BASE, RA] + | cmp RA, RC + | bhs ->fff_restv + | checktp CARG4, LJ_TISNUM + | bhs >7 + |6: + | bl extern __aeabi_cdcmple + | add RA, RA, #8 + | mov..fcond CARG1, CARG3 + | mov..fcond CARG2, CARG4 + | b <5 + |7: // Convert integer to number and continue above. + | bhi ->fff_fallback + | strd CARG12, TMPD + | mov CARG1, CARG3 + | bl extern __aeabi_i2d + | ldrd CARG34, TMPD + | b <6 + |.endif + |.endmacro + | + | math_minmax math_min, gt, hi + | math_minmax math_max, lt, lo + | + |//-- String library ----------------------------------------------------- + | + |.ffunc_1 string_len + | checkstr CARG2, ->fff_fallback + | ldr CARG1, STR:CARG1->len + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |.ffunc string_byte // Only handle the 1-arg case here. + | ldrd CARG12, [BASE] + | ldr PC, [BASE, FRAME_PC] + | cmp NARGS8:RC, #8 + | checktpeq CARG2, LJ_TSTR // Need exactly 1 argument. + | bne ->fff_fallback + | ldr CARG3, STR:CARG1->len + | ldrb CARG1, STR:CARG1[1] // Access is always ok (NUL at end). + | mvn CARG2, #~LJ_TISNUM + | cmp CARG3, #0 + | moveq RC, #(0+1)*8 + | movne RC, #(1+1)*8 + | strd CARG12, [BASE, #-8] + | b ->fff_res + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | ldrd CARG12, [BASE] + | ldr PC, [BASE, FRAME_PC] + | cmp NARGS8:RC, #8 // Need exactly 1 argument. + | checktpeq CARG2, LJ_TISNUM + | bicseq CARG4, CARG1, #255 + | mov CARG3, #1 + | bne ->fff_fallback + | str CARG1, TMPD + | mov CARG2, TMPDp // Points to stack. Little-endian. + |->fff_newstr: + | // CARG2 = str, CARG3 = len. + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + | // Returns GCstr *. + | ldr BASE, L->base + | mvn CARG2, #~LJ_TSTR + | b ->fff_restv + | + |.ffunc string_sub + | ffgccheck + | ldrd CARG12, [BASE] + | ldrd CARG34, [BASE, #16] + | cmp NARGS8:RC, #16 + | mvn RB, #0 + | beq >1 + | blo ->fff_fallback + | checktp CARG4, LJ_TISNUM + | mov RB, CARG3 + | bne ->fff_fallback + |1: + | ldrd CARG34, [BASE, #8] + | checktp CARG2, LJ_TSTR + | ldreq CARG2, STR:CARG1->len + | checktpeq CARG4, LJ_TISNUM + | bne ->fff_fallback + | // CARG1 = str, CARG2 = str->len, CARG3 = start, RB = end + | add CARG4, CARG2, #1 + | cmp CARG3, #0 // if (start < 0) start += len+1 + | addlt CARG3, CARG3, CARG4 + | cmp CARG3, #1 // if (start < 1) start = 1 + | movlt CARG3, #1 + | cmp RB, #0 // if (end < 0) end += len+1 + | addlt RB, RB, CARG4 + | bic RB, RB, RB, asr #31 // if (end < 0) end = 0 + | cmp RB, CARG2 // if (end > len) end = len + | add CARG1, STR:CARG1, #sizeof(GCstr)-1 + | movgt RB, CARG2 + | add CARG2, CARG1, CARG3 + | subs CARG3, RB, CARG3 // len = end - start + | add CARG3, CARG3, #1 // len += 1 + | bge ->fff_newstr + |->fff_emptystr: + | sub STR:CARG1, DISPATCH, #-DISPATCH_GL(strempty) + | mvn CARG2, #~LJ_TSTR + | b ->fff_restv + | + |.ffunc string_rep // Only handle the 1-char case inline. + | ffgccheck + | ldrd CARG12, [BASE] + | ldrd CARG34, [BASE, #8] + | cmp NARGS8:RC, #16 + | bne ->fff_fallback // Exactly 2 arguments + | checktp CARG2, LJ_TSTR + | checktpeq CARG4, LJ_TISNUM + | bne ->fff_fallback + | subs CARG4, CARG3, #1 + | ldr CARG2, STR:CARG1->len + | blt ->fff_emptystr // Count <= 0? + | cmp CARG2, #1 + | blo ->fff_emptystr // Zero-length string? + | bne ->fff_fallback // Fallback for > 1-char strings. + | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] + | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] + | ldr CARG1, STR:CARG1[1] + | cmp RB, CARG3 + | blo ->fff_fallback + |1: // Fill buffer with char. + | strb CARG1, [CARG2, CARG4] + | subs CARG4, CARG4, #1 + | bge <1 + | b ->fff_newstr + | + |.ffunc string_reverse + | ffgccheck + | ldrd CARG12, [BASE] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + | checkstr CARG2, ->fff_fallback + | ldr CARG3, STR:CARG1->len + | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] + | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] + | mov CARG4, CARG3 + | add CARG1, STR:CARG1, #sizeof(GCstr) + | cmp RB, CARG3 + | blo ->fff_fallback + |1: // Reverse string copy. + | ldrb RB, [CARG1], #1 + | subs CARG4, CARG4, #1 + | blt ->fff_newstr + | strb RB, [CARG2, CARG4] + | b <1 + | + |.macro ffstring_case, name, lo + | .ffunc name + | ffgccheck + | ldrd CARG12, [BASE] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + | checkstr CARG2, ->fff_fallback + | ldr CARG3, STR:CARG1->len + | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] + | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] + | mov CARG4, #0 + | add CARG1, STR:CARG1, #sizeof(GCstr) + | cmp RB, CARG3 + | blo ->fff_fallback + |1: // ASCII case conversion. + | ldrb RB, [CARG1, CARG4] + | cmp CARG4, CARG3 + | bhs ->fff_newstr + | sub RC, RB, #lo + | cmp RC, #26 + | eorlo RB, RB, #0x20 + | strb RB, [CARG2, CARG4] + | add CARG4, CARG4, #1 + | b <1 + |.endmacro + | + |ffstring_case string_lower, 65 + |ffstring_case string_upper, 97 + | + |//-- Table library ------------------------------------------------------ + | + |.ffunc_1 table_getn + | checktab CARG2, ->fff_fallback + | .IOS mov RA, BASE + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | .IOS mov BASE, RA + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |//-- Bit library -------------------------------------------------------- + | + |// FP number to bit conversion for soft-float. Clobbers r0-r3. + |->vm_tobit_fb: + | bhi ->fff_fallback + |->vm_tobit: + | lsl RB, CARG2, #1 + | adds RB, RB, #0x00200000 + | movpl CARG1, #0 // |x| < 1? + | bxpl lr + | mvn CARG4, #0x3e0 + | subs RB, CARG4, RB, asr #21 + | bmi >1 // |x| >= 2^32? + | lsl CARG4, CARG2, #11 + | orr CARG4, CARG4, #0x80000000 + | orr CARG4, CARG4, CARG1, lsr #21 + | cmp CARG2, #0 + | lsr CARG1, CARG4, RB + | rsblt CARG1, CARG1, #0 + | bx lr + |1: + | add RB, RB, #21 + | lsr CARG4, CARG1, RB + | rsb RB, RB, #20 + | lsl CARG1, CARG2, #12 + | cmp CARG2, #0 + | orr CARG1, CARG4, CARG1, lsl RB + | rsblt CARG1, CARG1, #0 + | bx lr + | + |.macro .ffunc_bit, name + | .ffunc_1 bit_..name + | checktp CARG2, LJ_TISNUM + | blne ->vm_tobit_fb + |.endmacro + | + |.ffunc_bit tobit + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name + | mov CARG3, CARG1 + | mov RA, #8 + |1: + | ldrd CARG12, [BASE, RA] + | cmp RA, NARGS8:RC + | add RA, RA, #8 + | bge >2 + | checktp CARG2, LJ_TISNUM + | blne ->vm_tobit_fb + | ins CARG3, CARG3, CARG1 + | b <1 + |.endmacro + | + |.ffunc_bit_op band, and + |.ffunc_bit_op bor, orr + |.ffunc_bit_op bxor, eor + | + |2: + | mvn CARG4, #~LJ_TISNUM + | ldr PC, [BASE, FRAME_PC] + | strd CARG34, [BASE, #-8] + | b ->fff_res1 + | + |.ffunc_bit bswap + | eor CARG3, CARG1, CARG1, ror #16 + | bic CARG3, CARG3, #0x00ff0000 + | ror CARG1, CARG1, #8 + | mvn CARG2, #~LJ_TISNUM + | eor CARG1, CARG1, CARG3, lsr #8 + | b ->fff_restv + | + |.ffunc_bit bnot + | mvn CARG1, CARG1 + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + | + |.macro .ffunc_bit_sh, name, ins, shmod + | .ffunc bit_..name + | ldrd CARG12, [BASE, #8] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + | checktp CARG2, LJ_TISNUM + | blne ->vm_tobit_fb + |.if shmod == 0 + | and RA, CARG1, #31 + |.else + | rsb RA, CARG1, #0 + |.endif + | ldrd CARG12, [BASE] + | checktp CARG2, LJ_TISNUM + | blne ->vm_tobit_fb + | ins CARG1, CARG1, RA + | mvn CARG2, #~LJ_TISNUM + | b ->fff_restv + |.endmacro + | + |.ffunc_bit_sh lshift, lsl, 0 + |.ffunc_bit_sh rshift, lsr, 0 + |.ffunc_bit_sh arshift, asr, 0 + |.ffunc_bit_sh rol, ror, 1 + |.ffunc_bit_sh ror, ror, 0 + | + |//----------------------------------------------------------------------- + | + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RC = nargs*8 + | ldr CARG3, [BASE, FRAME_FUNC] + | ldr CARG2, L->maxstack + | add CARG1, BASE, NARGS8:RC + | ldr PC, [BASE, FRAME_PC] // Fallback may overwrite PC. + | str CARG1, L->top + | ldr CARG3, CFUNC:CARG3->f + | str BASE, L->base + | add CARG1, CARG1, #8*LUA_MINSTACK + | str PC, SAVE_PC // Redundant (but a defined value). + | cmp CARG1, CARG2 + | mov CARG1, L + | bhi >5 // Need to grow stack. + | blx CARG3 // (lua_State *L) + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | ldr BASE, L->base + | cmp CRET1, #0 + | lsl RC, CRET1, #3 + | sub RA, BASE, #8 + | bgt ->fff_res // Returned nresults+1? + |1: // Returned 0 or -1: retry fast path. + | ldr CARG1, L->top + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | sub NARGS8:RC, CARG1, BASE + | bne ->vm_call_tail // Returned -1? + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | ands CARG1, PC, #FRAME_TYPE + | bic CARG2, PC, #FRAME_TYPEP + | ldreq INS, [PC, #-4] + | andeq CARG2, MASKR8, INS, lsr #5 // Conditional decode_RA8. + | addeq CARG2, CARG2, #8 + | sub RB, BASE, CARG2 + | b ->vm_call_dispatch // Resolve again for tailcall. + | + |5: // Grow stack for fallback handler. + | mov CARG2, #LUA_MINSTACK + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->base + | cmp CARG1, CARG1 // Set zero-flag to force retry. + | b <1 + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RC = nargs*8 + | mov RA, lr + | str BASE, L->base + | add CARG2, BASE, NARGS8:RC + | str PC, SAVE_PC // Redundant (but a defined value). + | str CARG2, L->top + | mov CARG1, L + | bl extern lj_gc_step // (lua_State *L) + | ldr BASE, L->base + | mov lr, RA // Help return address predictor. + | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] + | bx lr + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + |.if JIT + | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] + | tst CARG1, #HOOK_VMEVENT // No recording while in vmevent. + | bne >5 + | // Decrement the hookcount for consistency, but always do the call. + | ldr CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] + | tst CARG1, #HOOK_ACTIVE + | bne >1 + | sub CARG2, CARG2, #1 + | tst CARG1, #LUA_MASKLINE|LUA_MASKCOUNT + | strne CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] + | b >1 + |.endif + | + |->vm_rethook: // Dispatch target for return hooks. + | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] + | tst CARG1, #HOOK_ACTIVE // Hook already active? + | beq >1 + |5: // Re-dispatch to static ins. + | decode_OP OP, INS + | add OP, DISPATCH, OP, lsl #2 + | ldr pc, [OP, #GG_DISP2STATIC] + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] + | ldr CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] + | tst CARG1, #HOOK_ACTIVE // Hook already active? + | bne <5 + | tst CARG1, #LUA_MASKLINE|LUA_MASKCOUNT + | beq <5 + | subs CARG2, CARG2, #1 + | str CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] + | beq >1 + | tst CARG1, #LUA_MASKLINE + | beq <5 + |1: + | mov CARG1, L + | str BASE, L->base + | mov CARG2, PC + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) + |3: + | ldr BASE, L->base + |4: // Re-dispatch to static ins. + | ldrb OP, [PC, #-4] + | ldr INS, [PC, #-4] + | add OP, DISPATCH, OP, lsl #2 + | ldr OP, [OP, #GG_DISP2STATIC] + | decode_RA8 RA, INS + | decode_RD RC, INS + | bx OP + | + |->cont_hook: // Continue from hook yield. + | ldr CARG1, [CARG4, #-24] + | add PC, PC, #4 + | str CARG1, SAVE_MULTRES // Restore MULTRES for *M ins. + | b <4 + | + |->vm_hotloop: // Hot loop counter underflow. + |.if JIT + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Same as curr_topL(L). + | sub CARG1, DISPATCH, #-GG_DISP2J + | str PC, SAVE_PC + | ldr CARG3, LFUNC:CARG3->field_pc + | mov CARG2, PC + | str L, [DISPATCH, #DISPATCH_J(L)] + | ldrb CARG3, [CARG3, #PC2PROTO(framesize)] + | str BASE, L->base + | add CARG3, BASE, CARG3, lsl #3 + | str CARG3, L->top + | bl extern lj_trace_hot // (jit_State *J, const BCIns *pc) + | b <3 + |.endif + | + |->vm_callhook: // Dispatch target for call hooks. + | mov CARG2, PC + |.if JIT + | b >1 + |.endif + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | orr CARG2, PC, #1 + |1: + |.endif + | add CARG4, BASE, RC + | str PC, SAVE_PC + | mov CARG1, L + | str BASE, L->base + | sub RA, RA, BASE + | str CARG4, L->top + | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) + | // Returns ASMFunction. + | ldr BASE, L->base + | ldr CARG4, L->top + | mov CARG2, #0 + | add RA, BASE, RA + | sub NARGS8:RC, CARG4, BASE + | str CARG2, SAVE_PC // Invalidate for subsequent line hook. + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | ldr INS, [PC, #-4] + | bx CRET1 + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_exit_handler: + |.if JIT + | sub sp, sp, #12 + | push {r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12} + | ldr CARG1, [sp, #64] // Load original value of lr. + | ldr DISPATCH, [lr] // Load DISPATCH. + | add CARG3, sp, #64 // Recompute original value of sp. + | mv_vmstate CARG4, EXIT + | str CARG3, [sp, #52] // Store sp in RID_SP + | st_vmstate CARG4 + | ldr CARG2, [CARG1, #-4]! // Get exit instruction. + | str CARG1, [sp, #56] // Store exit pc in RID_LR and RID_PC. + | str CARG1, [sp, #60] + |.if FPU + | vpush {d0-d15} + |.endif + | lsl CARG2, CARG2, #8 + | add CARG1, CARG1, CARG2, asr #6 + | ldr CARG2, [lr, #4] // Load exit stub group offset. + | sub CARG1, CARG1, lr + | ldr L, [DISPATCH, #DISPATCH_GL(jit_L)] + | add CARG1, CARG2, CARG1, lsr #2 // Compute exit number. + | ldr BASE, [DISPATCH, #DISPATCH_GL(jit_base)] + | str CARG1, [DISPATCH, #DISPATCH_J(exitno)] + | mov CARG4, #0 + | str L, [DISPATCH, #DISPATCH_J(L)] + | str BASE, L->base + | str CARG4, [DISPATCH, #DISPATCH_GL(jit_L)] + | sub CARG1, DISPATCH, #-GG_DISP2J + | mov CARG2, sp + | bl extern lj_trace_exit // (jit_State *J, ExitState *ex) + | // Returns MULTRES (unscaled) or negated error code. + | ldr CARG2, L->cframe + | ldr BASE, L->base + | bic CARG2, CARG2, #~CFRAME_RAWMASK // Use two steps: bic sp is deprecated. + | mov sp, CARG2 + | ldr PC, SAVE_PC // Get SAVE_PC. + | str L, SAVE_L // Set SAVE_L (on-trace resume/yield). + | b >1 + |.endif + |->vm_exit_interp: + | // CARG1 = MULTRES or negated error code, BASE, PC and DISPATCH set. + |.if JIT + | ldr L, SAVE_L + |1: + | cmp CARG1, #0 + | blt >3 // Check for error from exit. + | lsl RC, CARG1, #3 + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | str RC, SAVE_MULTRES + | mov CARG3, #0 + | ldr CARG2, LFUNC:CARG2->field_pc + | str CARG3, [DISPATCH, #DISPATCH_GL(jit_L)] + | mv_vmstate CARG4, INTERP + | ldr KBASE, [CARG2, #PC2PROTO(k)] + | // Modified copy of ins_next which handles function header dispatch, too. + | ldrb OP, [PC] + | mov MASKR8, #255 + | ldr INS, [PC], #4 + | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. + | st_vmstate CARG4 + | cmp OP, #BC_FUNCF // Function header? + | ldr OP, [DISPATCH, OP, lsl #2] + | decode_RA8 RA, INS + | lsrlo RC, INS, #16 // No: Decode operands A*8 and D. + | subhs RC, RC, #8 + | addhs RA, RA, BASE // Yes: RA = BASE+framesize*8, RC = nargs*8 + | bx OP + | + |3: // Rethrow error from the right C frame. + | rsb CARG2, CARG1, #0 + | mov CARG1, L + | bl extern lj_err_throw // (lua_State *L, int errcode) + |.endif + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + |// FP value rounding. Called from JIT code. + |// + |// double lj_vm_floor/ceil/trunc(double x); + |.macro vm_round, func, hf + |.if hf == 1 + | vmov CARG1, CARG2, d0 + |.endif + | lsl CARG3, CARG2, #1 + | adds RB, CARG3, #0x00200000 + | bpl >2 // |x| < 1? + | mvn CARG4, #0x3cc + | subs RB, CARG4, RB, asr #21 // 2^0: RB = 51, 2^51: RB = 0. + | bxlo lr // |x| >= 2^52: done. + | mvn CARG4, #1 + | bic CARG3, CARG1, CARG4, lsl RB // ztest = lo & ~lomask + | and CARG1, CARG1, CARG4, lsl RB // lo &= lomask + | subs RB, RB, #32 + | bicpl CARG4, CARG2, CARG4, lsl RB // |x| <= 2^20: ztest |= hi & ~himask + | orrpl CARG3, CARG3, CARG4 + | mvnpl CARG4, #1 + | andpl CARG2, CARG2, CARG4, lsl RB // |x| <= 2^20: hi &= himask + |.if "func" == "floor" + | tst CARG3, CARG2, asr #31 // iszero = ((ztest & signmask) == 0) + |.else + | bics CARG3, CARG3, CARG2, asr #31 // iszero = ((ztest & ~signmask) == 0) + |.endif + |.if hf == 1 + | vmoveq d0, CARG1, CARG2 + |.endif + | bxeq lr // iszero: done. + | mvn CARG4, #1 + | cmp RB, #0 + | lslpl CARG3, CARG4, RB + | mvnmi CARG3, #0 + | add RB, RB, #32 + | subs CARG1, CARG1, CARG4, lsl RB // lo = lo-lomask + | sbc CARG2, CARG2, CARG3 // hi = hi-himask+carry + |.if hf == 1 + | vmov d0, CARG1, CARG2 + |.endif + | bx lr + | + |2: // |x| < 1: + | bxcs lr // |x| is not finite. + | orr CARG3, CARG3, CARG1 // ztest = (2*hi) | lo + |.if "func" == "floor" + | tst CARG3, CARG2, asr #31 // iszero = ((ztest & signmask) == 0) + |.else + | bics CARG3, CARG3, CARG2, asr #31 // iszero = ((ztest & ~signmask) == 0) + |.endif + | mov CARG1, #0 // lo = 0 + | and CARG2, CARG2, #0x80000000 + | ldrne CARG4, <9 // hi = sign(x) | (iszero ? 0.0 : 1.0) + | orrne CARG2, CARG2, CARG4 + |.if hf == 1 + | vmov d0, CARG1, CARG2 + |.endif + | bx lr + |.endmacro + | + |9: + | .long 0x3ff00000 // hiword(+1.0) + | + |->vm_floor: + |.if HFABI + | vm_round floor, 1 + |.endif + |->vm_floor_sf: + | vm_round floor, 0 + | + |->vm_ceil: + |.if HFABI + | vm_round ceil, 1 + |.endif + |->vm_ceil_sf: + | vm_round ceil, 0 + | + |.macro vm_trunc, hf + |.if JIT + |.if hf == 1 + | vmov CARG1, CARG2, d0 + |.endif + | lsl CARG3, CARG2, #1 + | adds RB, CARG3, #0x00200000 + | andpl CARG2, CARG2, #0x80000000 // |x| < 1? hi = sign(x), lo = 0. + | movpl CARG1, #0 + |.if hf == 1 + | vmovpl d0, CARG1, CARG2 + |.endif + | bxpl lr + | mvn CARG4, #0x3cc + | subs RB, CARG4, RB, asr #21 // 2^0: RB = 51, 2^51: RB = 0. + | bxlo lr // |x| >= 2^52: already done. + | mvn CARG4, #1 + | and CARG1, CARG1, CARG4, lsl RB // lo &= lomask + | subs RB, RB, #32 + | andpl CARG2, CARG2, CARG4, lsl RB // |x| <= 2^20: hi &= himask + |.if hf == 1 + | vmov d0, CARG1, CARG2 + |.endif + | bx lr + |.endif + |.endmacro + | + |->vm_trunc: + |.if HFABI + | vm_trunc 1 + |.endif + |->vm_trunc_sf: + | vm_trunc 0 + | + | // double lj_vm_mod(double dividend, double divisor); + |->vm_mod: + |.if FPU + | // Special calling convention. Also, RC (r11) is not preserved. + | vdiv.f64 d0, d6, d7 + | mov RC, lr + | vmov CARG1, CARG2, d0 + | bl ->vm_floor_sf + | vmov d0, CARG1, CARG2 + | vmul.f64 d0, d0, d7 + | mov lr, RC + | vsub.f64 d6, d6, d0 + | bx lr + |.else + | push {r0, r1, r2, r3, r4, lr} + | bl extern __aeabi_ddiv + | bl ->vm_floor_sf + | ldrd CARG34, [sp, #8] + | bl extern __aeabi_dmul + | ldrd CARG34, [sp] + | eor CARG2, CARG2, #0x80000000 + | bl extern __aeabi_dadd + | add sp, sp, #20 + | pop {pc} + |.endif + | + | // int lj_vm_modi(int dividend, int divisor); + |->vm_modi: + | ands RB, CARG1, #0x80000000 + | rsbmi CARG1, CARG1, #0 // a = |dividend| + | eor RB, RB, CARG2, asr #1 // Keep signdiff and sign(divisor). + | cmp CARG2, #0 + | rsbmi CARG2, CARG2, #0 // b = |divisor| + | subs CARG4, CARG2, #1 + | cmpne CARG1, CARG2 + | moveq CARG1, #0 // if (b == 1 || a == b) a = 0 + | tsthi CARG2, CARG4 + | andeq CARG1, CARG1, CARG4 // else if ((b & (b-1)) == 0) a &= b-1 + | bls >1 + | // Use repeated subtraction to get the remainder. + | clz CARG3, CARG1 + | clz CARG4, CARG2 + | sub CARG4, CARG4, CARG3 + | rsbs CARG3, CARG4, #31 // entry = (31-(clz(b)-clz(a)))*8 + | addne pc, pc, CARG3, lsl #3 // Duff's device. + | nop + { + int i; + for (i = 31; i >= 0; i--) { + | cmp CARG1, CARG2, lsl #i + | subhs CARG1, CARG1, CARG2, lsl #i + } + } + |1: + | cmp CARG1, #0 + | cmpne RB, #0 + | submi CARG1, CARG1, CARG2 // if (y != 0 && signdiff) y = y - b + | eors CARG2, CARG1, RB, lsl #1 + | rsbmi CARG1, CARG1, #0 // if (sign(divisor) != sign(y)) y = -y + | bx lr + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Handler for callback functions. + |// Saveregs already performed. Callback slot number in [sp], g in r12. + |->vm_ffi_callback: + |.if FFI + |.type CTSTATE, CTState, PC + | ldr CTSTATE, GL:r12->ctype_state + | add DISPATCH, r12, #GG_G2DISP + |.if FPU + | str r4, SAVE_R4 + | add r4, sp, CFRAME_SPACE+4+8*8 + | vstmdb r4!, {d8-d15} + |.endif + |.if HFABI + | add r12, CTSTATE, #offsetof(CTState, cb.fpr[8]) + |.endif + | strd CARG34, CTSTATE->cb.gpr[2] + | strd CARG12, CTSTATE->cb.gpr[0] + |.if HFABI + | vstmdb r12!, {d0-d7} + |.endif + | ldr CARG4, [sp] + | add CARG3, sp, #CFRAME_SIZE + | mov CARG1, CTSTATE + | lsr CARG4, CARG4, #3 + | str CARG3, CTSTATE->cb.stack + | mov CARG2, sp + | str CARG4, CTSTATE->cb.slot + | str CTSTATE, SAVE_PC // Any value outside of bytecode is ok. + | bl extern lj_ccallback_enter // (CTState *cts, void *cf) + | // Returns lua_State *. + | ldr BASE, L:CRET1->base + | mv_vmstate CARG2, INTERP + | ldr RC, L:CRET1->top + | mov MASKR8, #255 + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | mov L, CRET1 + | sub RC, RC, BASE + | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. + | st_vmstate CARG2 + | ins_callt + |.endif + | + |->cont_ffi_callback: // Return from FFI callback. + |.if FFI + | ldr CTSTATE, [DISPATCH, #DISPATCH_GL(ctype_state)] + | str BASE, L->base + | str CARG4, L->top + | str L, CTSTATE->L + | mov CARG1, CTSTATE + | mov CARG2, RA + | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) + | ldrd CARG12, CTSTATE->cb.gpr[0] + |.if HFABI + | vldr d0, CTSTATE->cb.fpr[0] + |.endif + | b ->vm_leave_unw + |.endif + | + |->vm_ffi_call: // Call C function via FFI. + | // Caveat: needs special frame unwinding, see below. + |.if FFI + | .type CCSTATE, CCallState, r4 + | push {CCSTATE, r5, r11, lr} + | mov CCSTATE, CARG1 + | ldr CARG1, CCSTATE:CARG1->spadj + | ldrb CARG2, CCSTATE->nsp + | add CARG3, CCSTATE, #offsetof(CCallState, stack) + |.if HFABI + | add RB, CCSTATE, #offsetof(CCallState, fpr[0]) + |.endif + | mov r11, sp + | sub sp, sp, CARG1 // Readjust stack. + | subs CARG2, CARG2, #1 + |.if HFABI + | vldm RB, {d0-d7} + |.endif + | ldr RB, CCSTATE->func + | bmi >2 + |1: // Copy stack slots. + | ldr CARG4, [CARG3, CARG2, lsl #2] + | str CARG4, [sp, CARG2, lsl #2] + | subs CARG2, CARG2, #1 + | bpl <1 + |2: + | ldrd CARG12, CCSTATE->gpr[0] + | ldrd CARG34, CCSTATE->gpr[2] + | blx RB + | mov sp, r11 + |.if HFABI + | add r12, CCSTATE, #offsetof(CCallState, fpr[4]) + |.endif + | strd CRET1, CCSTATE->gpr[0] + |.if HFABI + | vstmdb r12!, {d0-d3} + |.endif + | pop {CCSTATE, r5, r11, pc} + |.endif + |// Note: vm_ffi_call must be the last function in this object file! + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1*8, RC = src2, JMP with RC = target + | lsl RC, RC, #3 + | ldrd CARG12, [RA, BASE]! + | ldrh RB, [PC, #2] + | ldrd CARG34, [RC, BASE]! + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | checktp CARG2, LJ_TISNUM + | bne >3 + | checktp CARG4, LJ_TISNUM + | bne >4 + | cmp CARG1, CARG3 + if (op == BC_ISLT) { + | sublt PC, RB, #0x20000 + } else if (op == BC_ISGE) { + | subge PC, RB, #0x20000 + } else if (op == BC_ISLE) { + | suble PC, RB, #0x20000 + } else { + | subgt PC, RB, #0x20000 + } + |1: + | ins_next + | + |3: // CARG12 is not an integer. + |.if FPU + | vldr d0, [RA] + | bhi ->vmeta_comp + | // d0 is a number. + | checktp CARG4, LJ_TISNUM + | vldr d1, [RC] + | blo >5 + | bhi ->vmeta_comp + | // d0 is a number, CARG3 is an integer. + | vmov s4, CARG3 + | vcvt.f64.s32 d1, s4 + | b >5 + |4: // CARG1 is an integer, CARG34 is not an integer. + | vldr d1, [RC] + | bhi ->vmeta_comp + | // CARG1 is an integer, d1 is a number. + | vmov s4, CARG1 + | vcvt.f64.s32 d0, s4 + |5: // d0 and d1 are numbers. + | vcmp.f64 d0, d1 + | vmrs + | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. + if (op == BC_ISLT) { + | sublo PC, RB, #0x20000 + } else if (op == BC_ISGE) { + | subhs PC, RB, #0x20000 + } else if (op == BC_ISLE) { + | subls PC, RB, #0x20000 + } else { + | subhi PC, RB, #0x20000 + } + | b <1 + |.else + | bhi ->vmeta_comp + | // CARG12 is a number. + | checktp CARG4, LJ_TISNUM + | movlo RA, RB // Save RB. + | blo >5 + | bhi ->vmeta_comp + | // CARG12 is a number, CARG3 is an integer. + | mov CARG1, CARG3 + | mov RC, RA + | mov RA, RB // Save RB. + | bl extern __aeabi_i2d + | mov CARG3, CARG1 + | mov CARG4, CARG2 + | ldrd CARG12, [RC] // Restore first operand. + | b >5 + |4: // CARG1 is an integer, CARG34 is not an integer. + | bhi ->vmeta_comp + | // CARG1 is an integer, CARG34 is a number. + | mov RA, RB // Save RB. + | bl extern __aeabi_i2d + | ldrd CARG34, [RC] // Restore second operand. + |5: // CARG12 and CARG34 are numbers. + | bl extern __aeabi_cdcmple + | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. + if (op == BC_ISLT) { + | sublo PC, RA, #0x20000 + } else if (op == BC_ISGE) { + | subhs PC, RA, #0x20000 + } else if (op == BC_ISLE) { + | subls PC, RA, #0x20000 + } else { + | subhi PC, RA, #0x20000 + } + | b <1 + |.endif + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | // RA = src1*8, RC = src2, JMP with RC = target + | lsl RC, RC, #3 + | ldrd CARG12, [RA, BASE]! + | ldrh RB, [PC, #2] + | ldrd CARG34, [RC, BASE]! + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | checktp CARG2, LJ_TISNUM + | cmnls CARG4, #-LJ_TISNUM + if (vk) { + | bls ->BC_ISEQN_Z + } else { + | bls ->BC_ISNEN_Z + } + | // Either or both types are not numbers. + |.if FFI + | checktp CARG2, LJ_TCDATA + | checktpne CARG4, LJ_TCDATA + | beq ->vmeta_equal_cd + |.endif + | cmp CARG2, CARG4 // Compare types. + | bne >2 // Not the same type? + | checktp CARG2, LJ_TISPRI + | bhs >1 // Same type and primitive type? + | + | // Same types and not a primitive type. Compare GCobj or pvalue. + | cmp CARG1, CARG3 + if (vk) { + | bne >3 // Different GCobjs or pvalues? + |1: // Branch if same. + | sub PC, RB, #0x20000 + |2: // Different. + | ins_next + |3: + | checktp CARG2, LJ_TISTABUD + | bhi <2 // Different objects and not table/ud? + } else { + | beq >1 // Same GCobjs or pvalues? + | checktp CARG2, LJ_TISTABUD + | bhi >2 // Different objects and not table/ud? + } + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | ldr TAB:RA, TAB:CARG1->metatable + | cmp TAB:RA, #0 + if (vk) { + | beq <2 // No metatable? + } else { + | beq >2 // No metatable? + } + | ldrb RA, TAB:RA->nomm + | mov CARG4, #1-vk // ne = 0 or 1. + | mov CARG2, CARG1 + | tst RA, #1<vmeta_equal // 'no __eq' flag not set? + if (vk) { + | b <2 + } else { + |2: // Branch if different. + | sub PC, RB, #0x20000 + |1: // Same. + | ins_next + } + break; + + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | // RA = src*8, RC = str_const (~), JMP with RC = target + | mvn RC, RC + | ldrd CARG12, [BASE, RA] + | ldrh RB, [PC, #2] + | ldr STR:CARG3, [KBASE, RC, lsl #2] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | checktp CARG2, LJ_TSTR + |.if FFI + | bne >7 + | cmp CARG1, CARG3 + |.else + | cmpeq CARG1, CARG3 + |.endif + if (vk) { + | subeq PC, RB, #0x20000 + |1: + } else { + |1: + | subne PC, RB, #0x20000 + } + | ins_next + | + |.if FFI + |7: + | checktp CARG2, LJ_TCDATA + | bne <1 + | b ->vmeta_equal_cd + |.endif + break; + + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | // RA = src*8, RC = num_const (~), JMP with RC = target + | lsl RC, RC, #3 + | ldrd CARG12, [RA, BASE]! + | ldrh RB, [PC, #2] + | ldrd CARG34, [RC, KBASE]! + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + if (vk) { + |->BC_ISEQN_Z: + } else { + |->BC_ISNEN_Z: + } + | checktp CARG2, LJ_TISNUM + | bne >3 + | checktp CARG4, LJ_TISNUM + | bne >4 + | cmp CARG1, CARG3 + if (vk) { + | subeq PC, RB, #0x20000 + |1: + } else { + |1: + | subne PC, RB, #0x20000 + } + |2: + | ins_next + | + |3: // CARG12 is not an integer. + |.if FFI + | bhi >7 + |.else + if (!vk) { + | subhi PC, RB, #0x20000 + } + | bhi <2 + |.endif + |.if FPU + | checktp CARG4, LJ_TISNUM + | vmov s4, CARG3 + | vldr d0, [RA] + | vldrlo d1, [RC] + | vcvths.f64.s32 d1, s4 + | b >5 + |4: // CARG1 is an integer, d1 is a number. + | vmov s4, CARG1 + | vldr d1, [RC] + | vcvt.f64.s32 d0, s4 + |5: // d0 and d1 are numbers. + | vcmp.f64 d0, d1 + | vmrs + if (vk) { + | subeq PC, RB, #0x20000 + } else { + | subne PC, RB, #0x20000 + } + | b <2 + |.else + | // CARG12 is a number. + | checktp CARG4, LJ_TISNUM + | movlo RA, RB // Save RB. + | blo >5 + | // CARG12 is a number, CARG3 is an integer. + | mov CARG1, CARG3 + | mov RC, RA + |4: // CARG1 is an integer, CARG34 is a number. + | mov RA, RB // Save RB. + | bl extern __aeabi_i2d + | ldrd CARG34, [RC] // Restore other operand. + |5: // CARG12 and CARG34 are numbers. + | bl extern __aeabi_cdcmpeq + if (vk) { + | subeq PC, RA, #0x20000 + } else { + | subne PC, RA, #0x20000 + } + | b <2 + |.endif + | + |.if FFI + |7: + | checktp CARG2, LJ_TCDATA + | bne <1 + | b ->vmeta_equal_cd + |.endif + break; + + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | // RA = src*8, RC = primitive_type (~), JMP with RC = target + | ldrd CARG12, [BASE, RA] + | ldrh RB, [PC, #2] + | add PC, PC, #4 + | mvn RC, RC + | add RB, PC, RB, lsl #2 + |.if FFI + | checktp CARG2, LJ_TCDATA + | beq ->vmeta_equal_cd + |.endif + | cmp CARG2, RC + if (vk) { + | subeq PC, RB, #0x20000 + } else { + | subne PC, RB, #0x20000 + } + | ins_next + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | // RA = dst*8 or unused, RC = src, JMP with RC = target + | add RC, BASE, RC, lsl #3 + | ldrh RB, [PC, #2] + | ldrd CARG12, [RC] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | checktp CARG2, LJ_TTRUE + if (op == BC_ISTC || op == BC_IST) { + | subls PC, RB, #0x20000 + if (op == BC_ISTC) { + | strdls CARG12, [BASE, RA] + } + } else { + | subhi PC, RB, #0x20000 + if (op == BC_ISFC) { + | strdhi CARG12, [BASE, RA] + } + } + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | // RA = dst*8, RC = src + | lsl RC, RC, #3 + | ins_next1 + | ldrd CARG12, [BASE, RC] + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; + case BC_NOT: + | // RA = dst*8, RC = src + | add RC, BASE, RC, lsl #3 + | ins_next1 + | ldr CARG1, [RC, #4] + | add RA, BASE, RA + | ins_next2 + | checktp CARG1, LJ_TTRUE + | mvnls CARG2, #~LJ_TFALSE + | mvnhi CARG2, #~LJ_TTRUE + | str CARG2, [RA, #4] + | ins_next3 + break; + case BC_UNM: + | // RA = dst*8, RC = src + | lsl RC, RC, #3 + | ldrd CARG12, [BASE, RC] + | ins_next1 + | ins_next2 + | checktp CARG2, LJ_TISNUM + | bhi ->vmeta_unm + | eorne CARG2, CARG2, #0x80000000 + | bne >5 + | rsbseq CARG1, CARG1, #0 + | ldrdvs CARG12, >9 + |5: + | strd CARG12, [BASE, RA] + | ins_next3 + | + |.align 8 + |9: + | .long 0x00000000, 0x41e00000 // 2^31. + break; + case BC_LEN: + | // RA = dst*8, RC = src + | lsl RC, RC, #3 + | ldrd CARG12, [BASE, RC] + | checkstr CARG2, >2 + | ldr CARG1, STR:CARG1->len + |1: + | mvn CARG2, #~LJ_TISNUM + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + |2: + | checktab CARG2, ->vmeta_len +#if LJ_52 + | ldr TAB:CARG3, TAB:CARG1->metatable + | cmp TAB:CARG3, #0 + | bne >9 + |3: +#endif + |->BC_LEN_Z: + | .IOS mov RC, BASE + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | .IOS mov BASE, RC + | b <1 +#if LJ_52 + |9: + | ldrb CARG4, TAB:CARG3->nomm + | tst CARG4, #1<vmeta_len +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithcheck, cond, ncond, target + ||if (vk == 1) { + | cmn CARG4, #-LJ_TISNUM + | cmn..cond CARG2, #-LJ_TISNUM + ||} else { + | cmn CARG2, #-LJ_TISNUM + | cmn..cond CARG4, #-LJ_TISNUM + ||} + | b..ncond target + |.endmacro + |.macro ins_arithcheck_int, target + | ins_arithcheck eq, ne, target + |.endmacro + |.macro ins_arithcheck_num, target + | ins_arithcheck lo, hs, target + |.endmacro + | + |.macro ins_arithpre + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | .if FPU + | ldrd CARG12, [RB, BASE]! + | ldrd CARG34, [RC, KBASE]! + | .else + | ldrd CARG12, [BASE, RB] + | ldrd CARG34, [KBASE, RC] + | .endif + || break; + ||case 1: + | .if FPU + | ldrd CARG34, [RB, BASE]! + | ldrd CARG12, [RC, KBASE]! + | .else + | ldrd CARG34, [BASE, RB] + | ldrd CARG12, [KBASE, RC] + | .endif + || break; + ||default: + | .if FPU + | ldrd CARG12, [RB, BASE]! + | ldrd CARG34, [RC, BASE]! + | .else + | ldrd CARG12, [BASE, RB] + | ldrd CARG34, [BASE, RC] + | .endif + || break; + ||} + |.endmacro + | + |.macro ins_arithpre_fpu, reg1, reg2 + |.if FPU + ||if (vk == 1) { + | vldr reg2, [RB] + | vldr reg1, [RC] + ||} else { + | vldr reg1, [RB] + | vldr reg2, [RC] + ||} + |.endif + |.endmacro + | + |.macro ins_arithpost_fpu, reg + | ins_next1 + | add RA, BASE, RA + | ins_next2 + | vstr reg, [RA] + | ins_next3 + |.endmacro + | + |.macro ins_arithfallback, ins + ||switch (vk) { + ||case 0: + | ins ->vmeta_arith_vn + || break; + ||case 1: + | ins ->vmeta_arith_nv + || break; + ||default: + | ins ->vmeta_arith_vv + || break; + ||} + |.endmacro + | + |.macro ins_arithdn, intins, fpins, fpcall + | ins_arithpre + |.if "intins" ~= "vm_modi" and not FPU + | ins_next1 + |.endif + | ins_arithcheck_int >5 + |.if "intins" == "smull" + | smull CARG1, RC, CARG3, CARG1 + | cmp RC, CARG1, asr #31 + | ins_arithfallback bne + |.elif "intins" == "vm_modi" + | movs CARG2, CARG3 + | ins_arithfallback beq + | bl ->vm_modi + | mvn CARG2, #~LJ_TISNUM + |.else + | intins CARG1, CARG1, CARG3 + | ins_arithfallback bvs + |.endif + |4: + |.if "intins" == "vm_modi" or FPU + | ins_next1 + |.endif + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + |5: // FP variant. + | ins_arithpre_fpu d6, d7 + | ins_arithfallback ins_arithcheck_num + |.if FPU + |.if "intins" == "vm_modi" + | bl fpcall + |.else + | fpins d6, d6, d7 + |.endif + | ins_arithpost_fpu d6 + |.else + | bl fpcall + |.if "intins" ~= "vm_modi" + | ins_next1 + |.endif + | b <4 + |.endif + |.endmacro + | + |.macro ins_arithfp, fpins, fpcall + | ins_arithpre + |.if "fpins" ~= "extern" or HFABI + | ins_arithpre_fpu d0, d1 + |.endif + | ins_arithfallback ins_arithcheck_num + |.if "fpins" == "extern" + | .IOS mov RC, BASE + | bl fpcall + | .IOS mov BASE, RC + |.elif FPU + | fpins d0, d0, d1 + |.else + | bl fpcall + |.endif + |.if ("fpins" ~= "extern" or HFABI) and FPU + | ins_arithpost_fpu d0 + |.else + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + |.endif + |.endmacro + + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + | ins_arithdn adds, vadd.f64, extern __aeabi_dadd + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + | ins_arithdn subs, vsub.f64, extern __aeabi_dsub + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arithdn smull, vmul.f64, extern __aeabi_dmul + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arithfp vdiv.f64, extern __aeabi_ddiv + break; + case BC_MODVN: case BC_MODNV: case BC_MODVV: + | ins_arithdn vm_modi, vm_mod, ->vm_mod + break; + case BC_POW: + | // NYI: (partial) integer arithmetic. + | ins_arithfp extern, extern pow + break; + + case BC_CAT: + | decode_RB8 RC, INS + | decode_RC8 RB, INS + | // RA = dst*8, RC = src_start*8, RB = src_end*8 (note: RB/RC swapped!) + | sub CARG3, RB, RC + | str BASE, L->base + | add CARG2, BASE, RB + |->BC_CAT_Z: + | // RA = dst*8, RC = src_start*8, CARG2 = top-1 + | mov CARG1, L + | str PC, SAVE_PC + | lsr CARG3, CARG3, #3 + | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) + | // Returns NULL (finished) or TValue * (metamethod). + | ldr BASE, L->base + | cmp CRET1, #0 + | bne ->vmeta_binop + | ldrd CARG34, [BASE, RC] + | ins_next1 + | ins_next2 + | strd CARG34, [BASE, RA] // Copy result to RA. + | ins_next3 + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | // RA = dst*8, RC = str_const (~) + | mvn RC, RC + | ins_next1 + | ldr CARG1, [KBASE, RC, lsl #2] + | mvn CARG2, #~LJ_TSTR + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; + case BC_KCDATA: + |.if FFI + | // RA = dst*8, RC = cdata_const (~) + | mvn RC, RC + | ins_next1 + | ldr CARG1, [KBASE, RC, lsl #2] + | mvn CARG2, #~LJ_TCDATA + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + |.endif + break; + case BC_KSHORT: + | // RA = dst*8, (RC = int16_literal) + | mov CARG1, INS, asr #16 // Refetch sign-extended reg. + | mvn CARG2, #~LJ_TISNUM + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; + case BC_KNUM: + | // RA = dst*8, RC = num_const + | lsl RC, RC, #3 + | ins_next1 + | ldrd CARG12, [KBASE, RC] + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; + case BC_KPRI: + | // RA = dst*8, RC = primitive_type (~) + | add RA, BASE, RA + | mvn RC, RC + | ins_next1 + | ins_next2 + | str RC, [RA, #4] + | ins_next3 + break; + case BC_KNIL: + | // RA = base*8, RC = end + | add RA, BASE, RA + | add RC, BASE, RC, lsl #3 + | mvn CARG1, #~LJ_TNIL + | str CARG1, [RA, #4] + | add RA, RA, #8 + |1: + | str CARG1, [RA, #4] + | cmp RA, RC + | add RA, RA, #8 + | blt <1 + | ins_next_ + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | // RA = dst*8, RC = uvnum + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | lsl RC, RC, #2 + | add RC, RC, #offsetof(GCfuncL, uvptr) + | ldr UPVAL:CARG2, [LFUNC:CARG2, RC] + | ldr CARG2, UPVAL:CARG2->v + | ldrd CARG34, [CARG2] + | ins_next1 + | ins_next2 + | strd CARG34, [BASE, RA] + | ins_next3 + break; + case BC_USETV: + | // RA = uvnum*8, RC = src + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | lsr RA, RA, #1 + | add RA, RA, #offsetof(GCfuncL, uvptr) + | lsl RC, RC, #3 + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] + | ldrd CARG34, [BASE, RC] + | ldrb RB, UPVAL:CARG2->marked + | ldrb RC, UPVAL:CARG2->closed + | ldr CARG2, UPVAL:CARG2->v + | tst RB, #LJ_GC_BLACK // isblack(uv) + | add RB, CARG4, #-LJ_TISGCV + | cmpne RC, #0 + | strd CARG34, [CARG2] + | bne >2 // Upvalue is closed and black? + |1: + | ins_next + | + |2: // Check if new value is collectable. + | cmn RB, #-(LJ_TNUMX - LJ_TISGCV) + | ldrbhi RC, GCOBJ:CARG3->gch.marked + | bls <1 // tvisgcv(v) + | sub CARG1, DISPATCH, #-GG_DISP2G + | tst RC, #LJ_GC_WHITES + | // Crossed a write barrier. Move the barrier forward. + |.if IOS + | beq <1 + | mov RC, BASE + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | mov BASE, RC + |.else + | blne extern lj_gc_barrieruv // (global_State *g, TValue *tv) + |.endif + | b <1 + break; + case BC_USETS: + | // RA = uvnum*8, RC = str_const (~) + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | lsr RA, RA, #1 + | add RA, RA, #offsetof(GCfuncL, uvptr) + | mvn RC, RC + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] + | ldr STR:CARG3, [KBASE, RC, lsl #2] + | ldrb RB, UPVAL:CARG2->marked + | ldrb RC, UPVAL:CARG2->closed + | ldr CARG2, UPVAL:CARG2->v + | mvn CARG4, #~LJ_TSTR + | tst RB, #LJ_GC_BLACK // isblack(uv) + | ldrb RB, STR:CARG3->marked + | strd CARG34, [CARG2] + | bne >2 + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | tst RB, #LJ_GC_WHITES // iswhite(str) + | cmpne RC, #0 + | sub CARG1, DISPATCH, #-GG_DISP2G + | // Crossed a write barrier. Move the barrier forward. + |.if IOS + | beq <1 + | mov RC, BASE + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | mov BASE, RC + |.else + | blne extern lj_gc_barrieruv // (global_State *g, TValue *tv) + |.endif + | b <1 + break; + case BC_USETN: + | // RA = uvnum*8, RC = num_const + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | lsr RA, RA, #1 + | add RA, RA, #offsetof(GCfuncL, uvptr) + | lsl RC, RC, #3 + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] + | ldrd CARG34, [KBASE, RC] + | ldr CARG2, UPVAL:CARG2->v + | ins_next1 + | ins_next2 + | strd CARG34, [CARG2] + | ins_next3 + break; + case BC_USETP: + | // RA = uvnum*8, RC = primitive_type (~) + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | lsr RA, RA, #1 + | add RA, RA, #offsetof(GCfuncL, uvptr) + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] + | mvn RC, RC + | ldr CARG2, UPVAL:CARG2->v + | ins_next1 + | ins_next2 + | str RC, [CARG2, #4] + | ins_next3 + break; + + case BC_UCLO: + | // RA = level*8, RC = target + | ldr CARG3, L->openupval + | add RC, PC, RC, lsl #2 + | str BASE, L->base + | cmp CARG3, #0 + | sub PC, RC, #0x20000 + | beq >1 + | mov CARG1, L + | add CARG2, BASE, RA + | bl extern lj_func_closeuv // (lua_State *L, TValue *level) + | ldr BASE, L->base + |1: + | ins_next + break; + + case BC_FNEW: + | // RA = dst*8, RC = proto_const (~) (holding function prototype) + | mvn RC, RC + | str BASE, L->base + | ldr CARG2, [KBASE, RC, lsl #2] + | str PC, SAVE_PC + | ldr CARG3, [BASE, FRAME_FUNC] + | mov CARG1, L + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | bl extern lj_func_newL_gc + | // Returns GCfuncL *. + | ldr BASE, L->base + | mvn CARG2, #~LJ_TFUNC + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + case BC_TDUP: + | // RA = dst*8, RC = (hbits|asize) | tab_const (~) + if (op == BC_TDUP) { + | mvn RC, RC + } + | ldr CARG3, [DISPATCH, #DISPATCH_GL(gc.total)] + | ldr CARG4, [DISPATCH, #DISPATCH_GL(gc.threshold)] + | str BASE, L->base + | str PC, SAVE_PC + | cmp CARG3, CARG4 + | mov CARG1, L + | bhs >5 + |1: + if (op == BC_TNEW) { + | lsl CARG2, RC, #21 + | lsr CARG3, RC, #11 + | asr RC, CARG2, #21 + | lsr CARG2, CARG2, #21 + | cmn RC, #1 + | addeq CARG2, CARG2, #2 + | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) + | // Returns GCtab *. + } else { + | ldr CARG2, [KBASE, RC, lsl #2] + | bl extern lj_tab_dup // (lua_State *L, Table *kt) + | // Returns GCtab *. + } + | ldr BASE, L->base + | mvn CARG2, #~LJ_TTAB + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + |5: + | bl extern lj_gc_step_fixtop // (lua_State *L) + | mov CARG1, L + | b <1 + break; + + case BC_GGET: + | // RA = dst*8, RC = str_const (~) + case BC_GSET: + | // RA = dst*8, RC = str_const (~) + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | mvn RC, RC + | ldr TAB:CARG1, LFUNC:CARG2->env + | ldr STR:RC, [KBASE, RC, lsl #2] + if (op == BC_GGET) { + | b ->BC_TGETS_Z + } else { + | b ->BC_TSETS_Z + } + break; + + case BC_TGETV: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = dst*8, RB = table*8, RC = key*8 + | ldrd TAB:CARG12, [BASE, RB] + | ldrd CARG34, [BASE, RC] + | checktab CARG2, ->vmeta_tgetv // STALL: load CARG12. + | checktp CARG4, LJ_TISNUM // Integer key? + | ldreq CARG4, TAB:CARG1->array + | ldreq CARG2, TAB:CARG1->asize + | bne >9 + | + | add CARG4, CARG4, CARG3, lsl #3 + | cmp CARG3, CARG2 // In array part? + | ldrdlo CARG34, [CARG4] + | bhs ->vmeta_tgetv + | ins_next1 // Overwrites RB! + | checktp CARG4, LJ_TNIL + | beq >5 + |1: + | ins_next2 + | strd CARG34, [BASE, RA] + | ins_next3 + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG2, TAB:CARG1->metatable + | cmp TAB:CARG2, #0 + | beq <1 // No metatable: done. + | ldrb CARG2, TAB:CARG2->nomm + | tst CARG2, #1<vmeta_tgetv + | + |9: + | checktp CARG4, LJ_TSTR // String key? + | moveq STR:RC, CARG3 + | beq ->BC_TGETS_Z + | b ->vmeta_tgetv + break; + case BC_TGETS: + | decode_RB8 RB, INS + | and RC, RC, #255 + | // RA = dst*8, RB = table*8, RC = str_const (~) + | ldrd CARG12, [BASE, RB] + | mvn RC, RC + | ldr STR:RC, [KBASE, RC, lsl #2] // STALL: early RC. + | checktab CARG2, ->vmeta_tgets1 + |->BC_TGETS_Z: + | // (TAB:RB =) TAB:CARG1 = GCtab *, STR:RC = GCstr *, RA = dst*8 + | ldr CARG3, TAB:CARG1->hmask + | ldr CARG4, STR:RC->hash + | ldr NODE:INS, TAB:CARG1->node + | mov TAB:RB, TAB:CARG1 + | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask + | add CARG3, CARG3, CARG3, lsl #1 + | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 + |1: + | ldrd CARG12, NODE:INS->key // STALL: early NODE:INS. + | ldrd CARG34, NODE:INS->val + | ldr NODE:INS, NODE:INS->next + | checktp CARG2, LJ_TSTR + | cmpeq CARG1, STR:RC + | bne >4 + | checktp CARG4, LJ_TNIL + | beq >5 + |3: + | ins_next1 + | ins_next2 + | strd CARG34, [BASE, RA] + | ins_next3 + | + |4: // Follow hash chain. + | cmp NODE:INS, #0 + | bne <1 + | // End of hash chain: key not found, nil result. + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG1, TAB:RB->metatable + | mov CARG3, #0 // Optional clear of undef. value (during load stall). + | mvn CARG4, #~LJ_TNIL + | cmp TAB:CARG1, #0 + | beq <3 // No metatable: done. + | ldrb CARG2, TAB:CARG1->nomm + | tst CARG2, #1<vmeta_tgets + break; + case BC_TGETB: + | decode_RB8 RB, INS + | and RC, RC, #255 + | // RA = dst*8, RB = table*8, RC = index + | ldrd CARG12, [BASE, RB] + | checktab CARG2, ->vmeta_tgetb // STALL: load CARG12. + | ldr CARG3, TAB:CARG1->asize + | ldr CARG4, TAB:CARG1->array + | lsl CARG2, RC, #3 + | cmp RC, CARG3 + | ldrdlo CARG34, [CARG4, CARG2] + | bhs ->vmeta_tgetb + | ins_next1 // Overwrites RB! + | checktp CARG4, LJ_TNIL + | beq >5 + |1: + | ins_next2 + | strd CARG34, [BASE, RA] + | ins_next3 + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG2, TAB:CARG1->metatable + | cmp TAB:CARG2, #0 + | beq <1 // No metatable: done. + | ldrb CARG2, TAB:CARG2->nomm + | tst CARG2, #1<vmeta_tgetb + break; + + case BC_TSETV: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = src*8, RB = table*8, RC = key*8 + | ldrd TAB:CARG12, [BASE, RB] + | ldrd CARG34, [BASE, RC] + | checktab CARG2, ->vmeta_tsetv // STALL: load CARG12. + | checktp CARG4, LJ_TISNUM // Integer key? + | ldreq CARG2, TAB:CARG1->array + | ldreq CARG4, TAB:CARG1->asize + | bne >9 + | + | add CARG2, CARG2, CARG3, lsl #3 + | cmp CARG3, CARG4 // In array part? + | ldrlo INS, [CARG2, #4] + | bhs ->vmeta_tsetv + | ins_next1 // Overwrites RB! + | checktp INS, LJ_TNIL + | ldrb INS, TAB:CARG1->marked + | ldrd CARG34, [BASE, RA] + | beq >5 + |1: + | tst INS, #LJ_GC_BLACK // isblack(table) + | strd CARG34, [CARG2] + | bne >7 + |2: + | ins_next2 + | ins_next3 + | + |5: // Check for __newindex if previous value is nil. + | ldr TAB:RA, TAB:CARG1->metatable + | cmp TAB:RA, #0 + | beq <1 // No metatable: done. + | ldrb RA, TAB:RA->nomm + | tst RA, #1<vmeta_tsetv + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG1, INS, CARG3 + | b <2 + | + |9: + | checktp CARG4, LJ_TSTR // String key? + | moveq STR:RC, CARG3 + | beq ->BC_TSETS_Z + | b ->vmeta_tsetv + break; + case BC_TSETS: + | decode_RB8 RB, INS + | and RC, RC, #255 + | // RA = src*8, RB = table*8, RC = str_const (~) + | ldrd CARG12, [BASE, RB] + | mvn RC, RC + | ldr STR:RC, [KBASE, RC, lsl #2] // STALL: early RC. + | checktab CARG2, ->vmeta_tsets1 + |->BC_TSETS_Z: + | // (TAB:RB =) TAB:CARG1 = GCtab *, STR:RC = GCstr *, RA = dst*8 + | ldr CARG3, TAB:CARG1->hmask + | ldr CARG4, STR:RC->hash + | ldr NODE:INS, TAB:CARG1->node + | mov TAB:RB, TAB:CARG1 + | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask + | add CARG3, CARG3, CARG3, lsl #1 + | mov CARG4, #0 + | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 + | strb CARG4, TAB:RB->nomm // Clear metamethod cache. + |1: + | ldrd CARG12, NODE:INS->key + | ldr CARG4, NODE:INS->val.it + | ldr NODE:CARG3, NODE:INS->next + | checktp CARG2, LJ_TSTR + | cmpeq CARG1, STR:RC + | bne >5 + | ldrb CARG2, TAB:RB->marked + | checktp CARG4, LJ_TNIL // Key found, but nil value? + | ldrd CARG34, [BASE, RA] + | beq >4 + |2: + | tst CARG2, #LJ_GC_BLACK // isblack(table) + | strd CARG34, NODE:INS->val + | bne >7 + |3: + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | ldr TAB:CARG1, TAB:RB->metatable + | cmp TAB:CARG1, #0 + | beq <2 // No metatable: done. + | ldrb CARG1, TAB:CARG1->nomm + | tst CARG1, #1<vmeta_tsets + | + |5: // Follow hash chain. + | movs NODE:INS, NODE:CARG3 + | bne <1 + | // End of hash chain: key not found, add a new one. + | + | // But check for __newindex first. + | ldr TAB:CARG1, TAB:RB->metatable + | mov CARG3, TMPDp + | str PC, SAVE_PC + | cmp TAB:CARG1, #0 // No metatable: continue. + | str BASE, L->base + | ldrbne CARG2, TAB:CARG1->nomm + | mov CARG1, L + | beq >6 + | tst CARG2, #1<vmeta_tsets // 'no __newindex' flag NOT set: check. + |6: + | mvn CARG4, #~LJ_TSTR + | str STR:RC, TMPDlo + | mov CARG2, TAB:RB + | str CARG4, TMPDhi + | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) + | // Returns TValue *. + | ldr BASE, L->base + | ldrd CARG34, [BASE, RA] + | strd CARG34, [CRET1] + | b <3 // No 2nd write barrier needed. + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, CARG2, CARG3 + | b <3 + break; + case BC_TSETB: + | decode_RB8 RB, INS + | and RC, RC, #255 + | // RA = src*8, RB = table*8, RC = index + | ldrd CARG12, [BASE, RB] + | checktab CARG2, ->vmeta_tsetb // STALL: load CARG12. + | ldr CARG3, TAB:CARG1->asize + | ldr RB, TAB:CARG1->array + | lsl CARG2, RC, #3 + | cmp RC, CARG3 + | ldrdlo CARG34, [CARG2, RB]! + | bhs ->vmeta_tsetb + | ins_next1 // Overwrites RB! + | checktp CARG4, LJ_TNIL + | ldrb INS, TAB:CARG1->marked + | ldrd CARG34, [BASE, RA] + | beq >5 + |1: + | tst INS, #LJ_GC_BLACK // isblack(table) + | strd CARG34, [CARG2] + | bne >7 + |2: + | ins_next2 + | ins_next3 + | + |5: // Check for __newindex if previous value is nil. + | ldr TAB:RA, TAB:CARG1->metatable + | cmp TAB:RA, #0 + | beq <1 // No metatable: done. + | ldrb RA, TAB:RA->nomm + | tst RA, #1<vmeta_tsetb + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG1, INS, CARG3 + | b <2 + break; + + case BC_TSETM: + | // RA = base*8 (table at base-1), RC = num_const (start index) + | add RA, BASE, RA + |1: + | ldr RB, SAVE_MULTRES + | ldr TAB:CARG2, [RA, #-8] // Guaranteed to be a table. + | ldr CARG1, [KBASE, RC, lsl #3] // Integer constant is in lo-word. + | subs RB, RB, #8 + | ldr CARG4, TAB:CARG2->asize + | beq >4 // Nothing to copy? + | add CARG3, CARG1, RB, lsr #3 + | cmp CARG3, CARG4 + | ldr CARG4, TAB:CARG2->array + | add RB, RA, RB + | bhi >5 + | add INS, CARG4, CARG1, lsl #3 + | ldrb CARG1, TAB:CARG2->marked + |3: // Copy result slots to table. + | ldrd CARG34, [RA], #8 + | strd CARG34, [INS], #8 + | cmp RA, RB + | blo <3 + | tst CARG1, #LJ_GC_BLACK // isblack(table) + | bne >7 + |4: + | ins_next + | + |5: // Need to resize array part. + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + | // Must not reallocate the stack. + | .IOS ldr BASE, L->base + | b <1 + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:CARG2, CARG1, CARG3 + | b <4 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALLM: + | // RA = base*8, (RB = nresults+1,) RC = extra_nargs + | ldr CARG1, SAVE_MULTRES + | decode_RC8 NARGS8:RC, INS + | add NARGS8:RC, NARGS8:RC, CARG1 + | b ->BC_CALL_Z + break; + case BC_CALL: + | decode_RC8 NARGS8:RC, INS + | // RA = base*8, (RB = nresults+1,) RC = (nargs+1)*8 + |->BC_CALL_Z: + | mov RB, BASE // Save old BASE for vmeta_call. + | ldrd CARG34, [BASE, RA]! + | sub NARGS8:RC, NARGS8:RC, #8 + | add BASE, BASE, #8 + | checkfunc CARG4, ->vmeta_call + | ins_call + break; + + case BC_CALLMT: + | // RA = base*8, (RB = 0,) RC = extra_nargs + | ldr CARG1, SAVE_MULTRES + | add NARGS8:RC, CARG1, RC, lsl #3 + | b ->BC_CALLT1_Z + break; + case BC_CALLT: + | lsl NARGS8:RC, RC, #3 + | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 + |->BC_CALLT1_Z: + | ldrd LFUNC:CARG34, [RA, BASE]! + | sub NARGS8:RC, NARGS8:RC, #8 + | add RA, RA, #8 + | checkfunc CARG4, ->vmeta_callt + | ldr PC, [BASE, FRAME_PC] + |->BC_CALLT2_Z: + | mov RB, #0 + | ldrb CARG4, LFUNC:CARG3->ffid + | tst PC, #FRAME_TYPE + | bne >7 + |1: + | str LFUNC:CARG3, [BASE, FRAME_FUNC] // Copy function down, but keep PC. + | cmp NARGS8:RC, #0 + | beq >3 + |2: + | ldrd CARG12, [RA, RB] + | add INS, RB, #8 + | cmp INS, NARGS8:RC + | strd CARG12, [BASE, RB] + | mov RB, INS + | bne <2 + |3: + | cmp CARG4, #1 // (> FF_C) Calling a fast function? + | bhi >5 + |4: + | ins_callt + | + |5: // Tailcall to a fast function with a Lua frame below. + | ldr INS, [PC, #-4] + | decode_RA8 RA, INS + | sub CARG1, BASE, RA + | ldr LFUNC:CARG1, [CARG1, #-16] + | ldr CARG1, LFUNC:CARG1->field_pc + | ldr KBASE, [CARG1, #PC2PROTO(k)] + | b <4 + | + |7: // Tailcall from a vararg function. + | eor PC, PC, #FRAME_VARG + | tst PC, #FRAME_TYPEP // Vararg frame below? + | movne CARG4, #0 // Clear ffid if no Lua function below. + | bne <1 + | sub BASE, BASE, PC + | ldr PC, [BASE, FRAME_PC] + | tst PC, #FRAME_TYPE + | movne CARG4, #0 // Clear ffid if no Lua function below. + | b <1 + break; + + case BC_ITERC: + | // RA = base*8, (RB = nresults+1, RC = nargs+1 (2+1)) + | add RA, BASE, RA + | mov RB, BASE // Save old BASE for vmeta_call. + | ldrd CARG34, [RA, #-16] + | ldrd CARG12, [RA, #-8] + | add BASE, RA, #8 + | strd CARG34, [RA, #8] // Copy state. + | strd CARG12, [RA, #16] // Copy control var. + | // STALL: locked CARG34. + | ldrd LFUNC:CARG34, [RA, #-24] + | mov NARGS8:RC, #16 // Iterators get 2 arguments. + | // STALL: load CARG34. + | strd LFUNC:CARG34, [RA] // Copy callable. + | checkfunc CARG4, ->vmeta_call + | ins_call + break; + + case BC_ITERN: + | // RA = base*8, (RB = nresults+1, RC = nargs+1 (2+1)) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | add RA, BASE, RA + | ldr TAB:RB, [RA, #-16] + | ldr CARG1, [RA, #-8] // Get index from control var. + | ldr INS, TAB:RB->asize + | ldr CARG2, TAB:RB->array + | add PC, PC, #4 + |1: // Traverse array part. + | subs RC, CARG1, INS + | add CARG3, CARG2, CARG1, lsl #3 + | bhs >5 // Index points after array part? + | ldrd CARG34, [CARG3] + | checktp CARG4, LJ_TNIL + | addeq CARG1, CARG1, #1 // Skip holes in array part. + | beq <1 + | ldrh RC, [PC, #-2] + | mvn CARG2, #~LJ_TISNUM + | strd CARG34, [RA, #8] + | add RC, PC, RC, lsl #2 + | add RB, CARG1, #1 + | strd CARG12, [RA] + | sub PC, RC, #0x20000 + | str RB, [RA, #-8] // Update control var. + |3: + | ins_next + | + |5: // Traverse hash part. + | ldr CARG4, TAB:RB->hmask + | ldr NODE:RB, TAB:RB->node + |6: + | add CARG1, RC, RC, lsl #1 + | cmp RC, CARG4 // End of iteration? Branch to ITERL+1. + | add NODE:CARG3, NODE:RB, CARG1, lsl #3 // node = tab->node + idx*3*8 + | bhi <3 + | ldrd CARG12, NODE:CARG3->val + | checktp CARG2, LJ_TNIL + | add RC, RC, #1 + | beq <6 // Skip holes in hash part. + | ldrh RB, [PC, #-2] + | add RC, RC, INS + | ldrd CARG34, NODE:CARG3->key + | str RC, [RA, #-8] // Update control var. + | strd CARG12, [RA, #8] + | add RC, PC, RB, lsl #2 + | sub PC, RC, #0x20000 + | strd CARG34, [RA] + | b <3 + break; + + case BC_ISNEXT: + | // RA = base*8, RC = target (points to ITERN) + | add RA, BASE, RA + | add RC, PC, RC, lsl #2 + | ldrd CFUNC:CARG12, [RA, #-24] + | ldr CARG3, [RA, #-12] + | ldr CARG4, [RA, #-4] + | checktp CARG2, LJ_TFUNC + | ldrbeq CARG1, CFUNC:CARG1->ffid + | checktpeq CARG3, LJ_TTAB + | checktpeq CARG4, LJ_TNIL + | cmpeq CARG1, #FF_next_N + | subeq PC, RC, #0x20000 + | bne >5 + | ins_next1 + | ins_next2 + | mov CARG1, #0 + | mvn CARG2, #0x00018000 + | strd CARG1, [RA, #-8] // Initialize control var. + |1: + | ins_next3 + |5: // Despecialize bytecode if any of the checks fail. + | mov CARG1, #BC_JMP + | mov OP, #BC_ITERC + | strb CARG1, [PC, #-4] + | sub PC, RC, #0x20000 + | strb OP, [PC] // Subsumes ins_next1. + | ins_next2 + | b <1 + break; + + case BC_VARG: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 + | ldr CARG1, [BASE, FRAME_PC] + | add RC, BASE, RC + | add RA, BASE, RA + | add RC, RC, #FRAME_VARG + | add CARG4, RA, RB + | sub CARG3, BASE, #8 // CARG3 = vtop + | sub RC, RC, CARG1 // RC = vbase + | // Note: RC may now be even _above_ BASE if nargs was < numparams. + | cmp RB, #0 + | sub CARG1, CARG3, RC + | beq >5 // Copy all varargs? + | sub CARG4, CARG4, #16 + |1: // Copy vararg slots to destination slots. + | cmp RC, CARG3 + | ldrdlo CARG12, [RC], #8 + | mvnhs CARG2, #~LJ_TNIL + | cmp RA, CARG4 + | strd CARG12, [RA], #8 + | blo <1 + |2: + | ins_next + | + |5: // Copy all varargs. + | ldr CARG4, L->maxstack + | cmp CARG1, #0 + | movle RB, #8 // MULTRES = (0+1)*8 + | addgt RB, CARG1, #8 + | add CARG2, RA, CARG1 + | str RB, SAVE_MULTRES + | ble <2 + | cmp CARG2, CARG4 + | bhi >7 + |6: + | ldrd CARG12, [RC], #8 + | strd CARG12, [RA], #8 + | cmp RC, CARG3 + | blo <6 + | b <2 + | + |7: // Grow stack for varargs. + | lsr CARG2, CARG1, #3 + | str RA, L->top + | mov CARG1, L + | str BASE, L->base + | sub RC, RC, BASE // Need delta, because BASE may change. + | str PC, SAVE_PC + | sub RA, RA, BASE + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->base + | add RA, BASE, RA + | add RC, BASE, RC + | sub CARG3, BASE, #8 + | b <6 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | // RA = results*8, RC = extra results + | ldr CARG1, SAVE_MULTRES + | ldr PC, [BASE, FRAME_PC] + | add RA, BASE, RA + | add RC, CARG1, RC, lsl #3 + | b ->BC_RETM_Z + break; + + case BC_RET: + | // RA = results*8, RC = nresults+1 + | ldr PC, [BASE, FRAME_PC] + | lsl RC, RC, #3 + | add RA, BASE, RA + |->BC_RETM_Z: + | str RC, SAVE_MULTRES + |1: + | ands CARG1, PC, #FRAME_TYPE + | eor CARG2, PC, #FRAME_VARG + | bne ->BC_RETV2_Z + | + |->BC_RET_Z: + | // BASE = base, RA = resultptr, RC = (nresults+1)*8, PC = return + | ldr INS, [PC, #-4] + | subs CARG4, RC, #8 + | sub CARG3, BASE, #8 + | beq >3 + |2: + | ldrd CARG12, [RA], #8 + | add BASE, BASE, #8 + | subs CARG4, CARG4, #8 + | strd CARG12, [BASE, #-16] + | bne <2 + |3: + | decode_RA8 RA, INS + | sub CARG4, CARG3, RA + | decode_RB8 RB, INS + | ldr LFUNC:CARG1, [CARG4, FRAME_FUNC] + |5: + | cmp RB, RC // More results expected? + | bhi >6 + | mov BASE, CARG4 + | ldr CARG2, LFUNC:CARG1->field_pc + | ins_next1 + | ins_next2 + | ldr KBASE, [CARG2, #PC2PROTO(k)] + | ins_next3 + | + |6: // Fill up results with nil. + | mvn CARG2, #~LJ_TNIL + | add BASE, BASE, #8 + | add RC, RC, #8 + | str CARG2, [BASE, #-12] + | b <5 + | + |->BC_RETV1_Z: // Non-standard return case. + | add RA, BASE, RA + |->BC_RETV2_Z: + | tst CARG2, #FRAME_TYPEP + | bne ->vm_return + | // Return from vararg function: relocate BASE down. + | sub BASE, BASE, CARG2 + | ldr PC, [BASE, FRAME_PC] + | b <1 + break; + + case BC_RET0: case BC_RET1: + | // RA = results*8, RC = nresults+1 + | ldr PC, [BASE, FRAME_PC] + | lsl RC, RC, #3 + | str RC, SAVE_MULTRES + | ands CARG1, PC, #FRAME_TYPE + | eor CARG2, PC, #FRAME_VARG + | ldreq INS, [PC, #-4] + | bne ->BC_RETV1_Z + if (op == BC_RET1) { + | ldrd CARG12, [BASE, RA] + } + | sub CARG4, BASE, #8 + | decode_RA8 RA, INS + if (op == BC_RET1) { + | strd CARG12, [CARG4] + } + | sub BASE, CARG4, RA + | decode_RB8 RB, INS + | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] + |5: + | cmp RB, RC + | bhi >6 + | ldr CARG2, LFUNC:CARG1->field_pc + | ins_next1 + | ins_next2 + | ldr KBASE, [CARG2, #PC2PROTO(k)] + | ins_next3 + | + |6: // Fill up results with nil. + | sub CARG2, CARG4, #4 + | mvn CARG3, #~LJ_TNIL + | str CARG3, [CARG2, RC] + | add RC, RC, #8 + | b <5 + break; + + /* -- Loops and branches ------------------------------------------------ */ + + |.define FOR_IDX, [RA]; .define FOR_TIDX, [RA, #4] + |.define FOR_STOP, [RA, #8]; .define FOR_TSTOP, [RA, #12] + |.define FOR_STEP, [RA, #16]; .define FOR_TSTEP, [RA, #20] + |.define FOR_EXT, [RA, #24]; .define FOR_TEXT, [RA, #28] + + case BC_FORL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IFORL follows. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + | // RA = base*8, RC = target (after end of loop or start of loop) + vk = (op == BC_IFORL || op == BC_JFORL); + | ldrd CARG12, [RA, BASE]! + if (op != BC_JFORL) { + | add RC, PC, RC, lsl #2 + } + if (!vk) { + | ldrd CARG34, FOR_STOP + | checktp CARG2, LJ_TISNUM + | ldr RB, FOR_TSTEP + | bne >5 + | checktp CARG4, LJ_TISNUM + | ldr CARG4, FOR_STEP + | checktpeq RB, LJ_TISNUM + | bne ->vmeta_for + | cmp CARG4, #0 + | blt >4 + | cmp CARG1, CARG3 + } else { + | ldrd CARG34, FOR_STEP + | checktp CARG2, LJ_TISNUM + | bne >5 + | adds CARG1, CARG1, CARG3 + | ldr CARG4, FOR_STOP + if (op == BC_IFORL) { + | addvs RC, PC, #0x20000 // Overflow: prevent branch. + } else { + | bvs >2 // Overflow: do not enter mcode. + } + | cmp CARG3, #0 + | blt >4 + | cmp CARG1, CARG4 + } + |1: + if (op == BC_FORI) { + | subgt PC, RC, #0x20000 + } else if (op == BC_JFORI) { + | sub PC, RC, #0x20000 + | ldrhle RC, [PC, #-2] + } else if (op == BC_IFORL) { + | suble PC, RC, #0x20000 + } + if (vk) { + | strd CARG12, FOR_IDX + } + |2: + | ins_next1 + | ins_next2 + | strd CARG12, FOR_EXT + if (op == BC_JFORI || op == BC_JFORL) { + | ble =>BC_JLOOP + } + |3: + | ins_next3 + | + |4: // Invert check for negative step. + if (!vk) { + | cmp CARG3, CARG1 + } else { + | cmp CARG4, CARG1 + } + | b <1 + | + |5: // FP loop. + if (!vk) { + | cmnlo CARG4, #-LJ_TISNUM + | cmnlo RB, #-LJ_TISNUM + | bhs ->vmeta_for + |.if FPU + | vldr d0, FOR_IDX + | vldr d1, FOR_STOP + | cmp RB, #0 + | vstr d0, FOR_EXT + |.else + | cmp RB, #0 + | strd CARG12, FOR_EXT + | blt >8 + |.endif + } else { + |.if FPU + | vldr d0, FOR_IDX + | vldr d2, FOR_STEP + | vldr d1, FOR_STOP + | cmp CARG4, #0 + | vadd.f64 d0, d0, d2 + |.else + | cmp CARG4, #0 + | blt >8 + | bl extern __aeabi_dadd + | strd CARG12, FOR_IDX + | ldrd CARG34, FOR_STOP + | strd CARG12, FOR_EXT + |.endif + } + |6: + |.if FPU + | vcmpge.f64 d0, d1 + | vcmplt.f64 d1, d0 + | vmrs + |.else + | bl extern __aeabi_cdcmple + |.endif + if (vk) { + |.if FPU + | vstr d0, FOR_IDX + | vstr d0, FOR_EXT + |.endif + } + if (op == BC_FORI) { + | subhi PC, RC, #0x20000 + } else if (op == BC_JFORI) { + | sub PC, RC, #0x20000 + | ldrhls RC, [PC, #-2] + | bls =>BC_JLOOP + } else if (op == BC_IFORL) { + | subls PC, RC, #0x20000 + } else { + | bls =>BC_JLOOP + } + | ins_next1 + | ins_next2 + | b <3 + | + |.if not FPU + |8: // Invert check for negative step. + if (vk) { + | bl extern __aeabi_dadd + | strd CARG12, FOR_IDX + | strd CARG12, FOR_EXT + } + | mov CARG3, CARG1 + | mov CARG4, CARG2 + | ldrd CARG12, FOR_STOP + | b <6 + |.endif + break; + + case BC_ITERL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IITERL follows. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | // RA = base*8, RC = target + | ldrd CARG12, [RA, BASE]! + if (op == BC_JITERL) { + | cmn CARG2, #-LJ_TNIL // Stop if iterator returned nil. + | strdne CARG12, [RA, #-8] + | bne =>BC_JLOOP + } else { + | add RC, PC, RC, lsl #2 + | // STALL: load CARG12. + | cmn CARG2, #-LJ_TNIL // Stop if iterator returned nil. + | subne PC, RC, #0x20000 // Otherwise save control var + branch. + | strdne CARG12, [RA, #-8] + } + | ins_next + break; + + case BC_LOOP: + | // RA = base*8, RC = target (loop extent) + | // Note: RA/RC is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_ILOOP follows. + break; + + case BC_ILOOP: + | // RA = base*8, RC = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | // RA = base (ignored), RC = traceno + | ldr CARG1, [DISPATCH, #DISPATCH_J(trace)] + | mov CARG2, #0 // Traces on ARM don't store the trace number, so use 0. + | ldr TRACE:RC, [CARG1, RC, lsl #2] + | st_vmstate CARG2 + | ldr RA, TRACE:RC->mcode + | str BASE, [DISPATCH, #DISPATCH_GL(jit_base)] + | str L, [DISPATCH, #DISPATCH_GL(jit_L)] + | bx RA + |.endif + break; + + case BC_JMP: + | // RA = base*8 (only used by trace recorder), RC = target + | add RC, PC, RC, lsl #2 + | sub PC, RC, #0x20000 + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + |.if JIT + | hotcall + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 + | ldr CARG1, L->maxstack + | ldrb CARG2, [PC, #-4+PC2PROTO(numparams)] + | ldr KBASE, [PC, #-4+PC2PROTO(k)] + | cmp RA, CARG1 + | bhi ->vm_growstack_l + if (op != BC_JFUNCF) { + | ins_next1 + | ins_next2 + } + |2: + | cmp NARGS8:RC, CARG2, lsl #3 // Check for missing parameters. + | mvn CARG4, #~LJ_TNIL + | blo >3 + if (op == BC_JFUNCF) { + | decode_RD RC, INS + | b =>BC_JLOOP + } else { + | ins_next3 + } + | + |3: // Clear missing parameters. + | strd CARG34, [BASE, NARGS8:RC] + | add NARGS8:RC, NARGS8:RC, #8 + | b <2 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | NYI // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 + | ldr CARG1, L->maxstack + | add CARG4, BASE, RC + | add RA, RA, RC + | str LFUNC:CARG3, [CARG4] // Store copy of LFUNC. + | add CARG2, RC, #8+FRAME_VARG + | ldr KBASE, [PC, #-4+PC2PROTO(k)] + | cmp RA, CARG1 + | str CARG2, [CARG4, #4] // Store delta + FRAME_VARG. + | bhs ->vm_growstack_l + | ldrb RB, [PC, #-4+PC2PROTO(numparams)] + | mov RA, BASE + | mov RC, CARG4 + | cmp RB, #0 + | add BASE, CARG4, #8 + | beq >3 + | mvn CARG3, #~LJ_TNIL + |1: + | cmp RA, RC // Less args than parameters? + | ldrdlo CARG12, [RA], #8 + | movhs CARG2, CARG3 + | strlo CARG3, [RA, #-4] // Clear old fixarg slot (help the GC). + |2: + | subs RB, RB, #1 + | strd CARG12, [CARG4, #8]! + | bne <1 + |3: + | ins_next + break; + + case BC_FUNCC: + case BC_FUNCCW: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = CFUNC, RC = nargs*8 + if (op == BC_FUNCC) { + | ldr CARG4, CFUNC:CARG3->f + } else { + | ldr CARG4, [DISPATCH, #DISPATCH_GL(wrapf)] + } + | add CARG2, RA, NARGS8:RC + | ldr CARG1, L->maxstack + | add RC, BASE, NARGS8:RC + | str BASE, L->base + | cmp CARG2, CARG1 + | str RC, L->top + if (op == BC_FUNCCW) { + | ldr CARG2, CFUNC:CARG3->f + } + | mv_vmstate CARG3, C + | mov CARG1, L + | bhi ->vm_growstack_c // Need to grow stack. + | st_vmstate CARG3 + | blx CARG4 // (lua_State *L [, lua_CFunction f]) + | // Returns nresults. + | ldr BASE, L->base + | mv_vmstate CARG3, INTERP + | ldr CRET2, L->top + | lsl RC, CRET1, #3 + | st_vmstate CARG3 + | ldr PC, [BASE, FRAME_PC] + | sub RA, CRET2, RC // RA = L->top - nresults*8 + | b ->vm_returnc + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + + dasm_growpc(Dst, BC__MAX); + + build_subroutines(ctx); + + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); + int i; + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",%%progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.long .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.long 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 0xe\n" /* Return address is in lr. */ + "\t.byte 0xc\n\t.uleb128 0xd\n\t.uleb128 0\n" /* def_cfa sp */ + "\t.align 2\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.long .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.long .Lframe0\n" + "\t.long .Lbegin\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ + "\t.byte 0x8e\n\t.uleb128 1\n", /* offset lr */ + fcofs, CFRAME_SIZE); + for (i = 11; i >= (LJ_ARCH_HASFPU ? 5 : 4); i--) /* offset r4-r11 */ + fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 2+(11-i)); +#if LJ_ARCH_HASFPU + for (i = 15; i >= 8; i--) /* offset d8-d15 */ + fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 %d, %d\n", + 64+2*i, 10+2*(15-i)); + fprintf(ctx->fp, "\t.byte 0x84\n\t.uleb128 %d\n", 25); /* offset r4 */ +#endif + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE0:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.long .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.long .Lframe0\n" + "\t.long lj_vm_ffi_call\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ + "\t.byte 0x8e\n\t.uleb128 1\n" /* offset lr */ + "\t.byte 0x8b\n\t.uleb128 2\n" /* offset r11 */ + "\t.byte 0x85\n\t.uleb128 3\n" /* offset r5 */ + "\t.byte 0x84\n\t.uleb128 4\n" /* offset r4 */ + "\t.byte 0xd\n\t.uleb128 0xb\n" /* def_cfa_register r11 */ + "\t.align 2\n" + ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); +#endif + break; + default: + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/vm_mips.dasc b/src/3rd party/luajit-2.0/src/vm_mips.dasc new file mode 100644 index 00000000000..ac8346bbddc --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_mips.dasc @@ -0,0 +1,4241 @@ +|// Low-level VM code for MIPS CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.arch mips +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|// Note: The ragged indentation of the instructions is intentional. +|// The starting columns indicate data dependencies. +| +|//----------------------------------------------------------------------- +| +|// Fixed register assignments for the interpreter. +|// Don't use: r0 = 0, r26/r27 = reserved, r28 = gp, r29 = sp, r31 = ra +| +|// The following must be C callee-save (but BASE is often refetched). +|.define BASE, r16 // Base of current Lua stack frame. +|.define KBASE, r17 // Constants of current Lua function. +|.define PC, r18 // Next PC. +|.define DISPATCH, r19 // Opcode dispatch table. +|.define LREG, r20 // Register holding lua_State (also in SAVE_L). +|.define MULTRES, r21 // Size of multi-result: (nresults+1)*8. +|// NYI: r22 currently unused. +| +|.define JGL, r30 // On-trace: global_State + 32768. +| +|// Constants for type-comparisons, stores and conversions. C callee-save. +|.define TISNIL, r30 +|.define TOBIT, f30 // 2^52 + 2^51. +| +|// The following temporaries are not saved across C calls, except for RA. +|.define RA, r23 // Callee-save. +|.define RB, r8 +|.define RC, r9 +|.define RD, r10 +|.define INS, r11 +| +|.define AT, r1 // Assembler temporary. +|.define TMP0, r12 +|.define TMP1, r13 +|.define TMP2, r14 +|.define TMP3, r15 +| +|// Calling conventions. +|.define CFUNCADDR, r25 +|.define CARG1, r4 +|.define CARG2, r5 +|.define CARG3, r6 +|.define CARG4, r7 +| +|.define CRET1, r2 +|.define CRET2, r3 +| +|.define FARG1, f12 +|.define FARG2, f14 +| +|.define FRET1, f0 +|.define FRET2, f2 +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +|.define CFRAME_SPACE, 112 // Delta for sp. +| +|.define SAVE_ERRF, 124(sp) // 32 bit C frame info. +|.define SAVE_NRES, 120(sp) +|.define SAVE_CFRAME, 116(sp) +|.define SAVE_L, 112(sp) +|//----- 8 byte aligned, ^^^^ 16 byte register save area, owned by interpreter. +|.define SAVE_GPR_, 72 // .. 72+10*4: 32 bit GPR saves. +|.define SAVE_FPR_, 24 // .. 24+6*8: 64 bit FPR saves. +|.define SAVE_PC, 20(sp) +|.define ARG5, 16(sp) +|.define CSAVE_4, 12(sp) +|.define CSAVE_3, 8(sp) +|.define CSAVE_2, 4(sp) +|.define CSAVE_1, 0(sp) +|//----- 8 byte aligned, ^^^^ 16 byte register save area, owned by callee. +| +|.define ARG5_OFS, 16 +|.define SAVE_MULTRES, ARG5 +| +|.macro saveregs +| addiu sp, sp, -CFRAME_SPACE +| sw ra, SAVE_GPR_+9*4(sp) +| sw r30, SAVE_GPR_+8*4(sp) +| sdc1 f30, SAVE_FPR_+5*8(sp) +| sw r23, SAVE_GPR_+7*4(sp) +| sw r22, SAVE_GPR_+6*4(sp) +| sdc1 f28, SAVE_FPR_+4*8(sp) +| sw r21, SAVE_GPR_+5*4(sp) +| sw r20, SAVE_GPR_+4*4(sp) +| sdc1 f26, SAVE_FPR_+3*8(sp) +| sw r19, SAVE_GPR_+3*4(sp) +| sw r18, SAVE_GPR_+2*4(sp) +| sdc1 f24, SAVE_FPR_+2*8(sp) +| sw r17, SAVE_GPR_+1*4(sp) +| sw r16, SAVE_GPR_+0*4(sp) +| sdc1 f22, SAVE_FPR_+1*8(sp) +| sdc1 f20, SAVE_FPR_+0*8(sp) +|.endmacro +| +|.macro restoreregs_ret +| lw ra, SAVE_GPR_+9*4(sp) +| lw r30, SAVE_GPR_+8*4(sp) +| ldc1 f30, SAVE_FPR_+5*8(sp) +| lw r23, SAVE_GPR_+7*4(sp) +| lw r22, SAVE_GPR_+6*4(sp) +| ldc1 f28, SAVE_FPR_+4*8(sp) +| lw r21, SAVE_GPR_+5*4(sp) +| lw r20, SAVE_GPR_+4*4(sp) +| ldc1 f26, SAVE_FPR_+3*8(sp) +| lw r19, SAVE_GPR_+3*4(sp) +| lw r18, SAVE_GPR_+2*4(sp) +| ldc1 f24, SAVE_FPR_+2*8(sp) +| lw r17, SAVE_GPR_+1*4(sp) +| lw r16, SAVE_GPR_+0*4(sp) +| ldc1 f22, SAVE_FPR_+1*8(sp) +| ldc1 f20, SAVE_FPR_+0*8(sp) +| jr ra +| addiu sp, sp, CFRAME_SPACE +|.endmacro +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State, LREG +|.type GL, global_State +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS8, int +|.type TRACE, GCtrace +| +|//----------------------------------------------------------------------- +| +|// Trap for not-yet-implemented parts. +|.macro NYI; .long 0xf0f0f0f0; .endmacro +| +|// Macros to mark delay slots. +|.macro ., a; a; .endmacro +|.macro ., a,b; a,b; .endmacro +|.macro ., a,b,c; a,b,c; .endmacro +| +|//----------------------------------------------------------------------- +| +|// Endian-specific defines. +|.define FRAME_PC, LJ_ENDIAN_SELECT(-4,-8) +|.define FRAME_FUNC, LJ_ENDIAN_SELECT(-8,-4) +|.define HI, LJ_ENDIAN_SELECT(4,0) +|.define LO, LJ_ENDIAN_SELECT(0,4) +|.define OFS_RD, LJ_ENDIAN_SELECT(2,0) +|.define OFS_RA, LJ_ENDIAN_SELECT(1,2) +|.define OFS_OP, LJ_ENDIAN_SELECT(0,3) +| +|// Instruction decode. +|.macro decode_OP1, dst, ins; andi dst, ins, 0xff; .endmacro +|.macro decode_OP4a, dst, ins; andi dst, ins, 0xff; .endmacro +|.macro decode_OP4b, dst; sll dst, dst, 2; .endmacro +|.macro decode_RC4a, dst, ins; srl dst, ins, 14; .endmacro +|.macro decode_RC4b, dst; andi dst, dst, 0x3fc; .endmacro +|.macro decode_RD4b, dst; sll dst, dst, 2; .endmacro +|.macro decode_RA8a, dst, ins; srl dst, ins, 5; .endmacro +|.macro decode_RA8b, dst; andi dst, dst, 0x7f8; .endmacro +|.macro decode_RB8a, dst, ins; srl dst, ins, 21; .endmacro +|.macro decode_RB8b, dst; andi dst, dst, 0x7f8; .endmacro +|.macro decode_RD8a, dst, ins; srl dst, ins, 16; .endmacro +|.macro decode_RD8b, dst; sll dst, dst, 3; .endmacro +|.macro decode_RDtoRC8, dst, src; andi dst, src, 0x7f8; .endmacro +| +|// Instruction fetch. +|.macro ins_NEXT1 +| lw INS, 0(PC) +| addiu PC, PC, 4 +|.endmacro +|// Instruction decode+dispatch. +|.macro ins_NEXT2 +| decode_OP4a TMP1, INS +| decode_OP4b TMP1 +| addu TMP0, DISPATCH, TMP1 +| decode_RD8a RD, INS +| lw AT, 0(TMP0) +| decode_RA8a RA, INS +| decode_RD8b RD +| jr AT +| decode_RA8b RA +|.endmacro +|.macro ins_NEXT +| ins_NEXT1 +| ins_NEXT2 +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +| .define ins_next1, ins_NEXT1 +| .define ins_next2, ins_NEXT2 +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| .macro ins_next +| b ->ins_next +| .endmacro +| .macro ins_next1 +| .endmacro +| .macro ins_next2 +| b ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC +| lw PC, LFUNC:RB->pc +| lw INS, 0(PC) +| addiu PC, PC, 4 +| decode_OP4a TMP1, INS +| decode_RA8a RA, INS +| decode_OP4b TMP1 +| decode_RA8b RA +| addu TMP0, DISPATCH, TMP1 +| lw TMP0, 0(TMP0) +| jr TMP0 +| addu RA, RA, BASE +|.endmacro +| +|.macro ins_call +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC +| sw PC, FRAME_PC(BASE) +| ins_callt +|.endmacro +| +|//----------------------------------------------------------------------- +| +|.macro branch_RD +| srl TMP0, RD, 1 +| lui AT, (-(BCBIAS_J*4 >> 16) & 65535) +| addu TMP0, TMP0, AT +| addu PC, PC, TMP0 +|.endmacro +| +|// Assumes DISPATCH is relative to GL. +#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) +#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) +#define GG_DISP2GOT (GG_OFS(got) - GG_OFS(dispatch)) +#define DISPATCH_GOT(name) (GG_DISP2GOT + 4*LJ_GOT_##name) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|.macro load_got, func +| lw CFUNCADDR, DISPATCH_GOT(func)(DISPATCH) +|.endmacro +|// Much faster. Sadly, there's no easy way to force the required code layout. +|// .macro call_intern, func; bal extern func; .endmacro +|.macro call_intern, func; jalr CFUNCADDR; .endmacro +|.macro call_extern; jalr CFUNCADDR; .endmacro +|.macro jmp_extern; jr CFUNCADDR; .endmacro +| +|.macro hotcheck, delta, target +| srl TMP1, PC, 1 +| andi TMP1, TMP1, 126 +| addu TMP1, TMP1, DISPATCH +| lhu TMP2, GG_DISP2HOT(TMP1) +| addiu TMP2, TMP2, -delta +| bltz TMP2, target +|. sh TMP2, GG_DISP2HOT(TMP1) +|.endmacro +| +|.macro hotloop +| hotcheck HOTCOUNT_LOOP, ->vm_hotloop +|.endmacro +| +|.macro hotcall +| hotcheck HOTCOUNT_CALL, ->vm_hotcall +|.endmacro +| +|// Set current VM state. Uses TMP0. +|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro +|.macro st_vmstate; sw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro +| +|// Move table write barrier back. Overwrites mark and tmp. +|.macro barrierback, tab, mark, tmp, target +| lw tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) +| andi mark, mark, ~LJ_GC_BLACK & 255 // black2gray(tab) +| sw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) +| sb mark, tab->marked +| b target +|. sw tmp, tab->gclist +|.endmacro +| +|//----------------------------------------------------------------------- + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | // See vm_return. Also: TMP2 = previous base. + | andi AT, PC, FRAME_P + | beqz AT, ->cont_dispatch + |. li TMP1, LJ_TTRUE + | + | // Return from pcall or xpcall fast func. + | lw PC, FRAME_PC(TMP2) // Fetch PC of previous frame. + | move BASE, TMP2 // Restore caller base. + | // Prepending may overwrite the pcall frame, so do it at the end. + | sw TMP1, FRAME_PC(RA) // Prepend true to results. + | addiu RA, RA, -8 + | + |->vm_returnc: + | addiu RD, RD, 8 // RD = (nresults+1)*8. + | andi TMP0, PC, FRAME_TYPE + | beqz RD, ->vm_unwind_c_eh + |. li CRET1, LUA_YIELD + | beqz TMP0, ->BC_RET_Z // Handle regular return to Lua. + |. move MULTRES, RD + | + |->vm_return: + | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return + | // TMP0 = PC & FRAME_TYPE + | li TMP2, -8 + | xori AT, TMP0, FRAME_C + | and TMP2, PC, TMP2 + | bnez AT, ->vm_returnp + | subu TMP2, BASE, TMP2 // TMP2 = previous base. + | + | addiu TMP1, RD, -8 + | sw TMP2, L->base + | li_vmstate C + | lw TMP2, SAVE_NRES + | addiu BASE, BASE, -8 + | st_vmstate + | beqz TMP1, >2 + |. sll TMP2, TMP2, 3 + |1: + | addiu TMP1, TMP1, -8 + | ldc1 f0, 0(RA) + | addiu RA, RA, 8 + | sdc1 f0, 0(BASE) + | bnez TMP1, <1 + |. addiu BASE, BASE, 8 + | + |2: + | bne TMP2, RD, >6 + |3: + |. sw BASE, L->top // Store new top. + | + |->vm_leave_cp: + | lw TMP0, SAVE_CFRAME // Restore previous C frame. + | move CRET1, r0 // Ok return status for vm_pcall. + | sw TMP0, L->cframe + | + |->vm_leave_unw: + | restoreregs_ret + | + |6: + | lw TMP1, L->maxstack + | slt AT, TMP2, RD + | bnez AT, >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + |. slt AT, BASE, TMP1 + | beqz AT, >8 + |. nop + | sw TISNIL, HI(BASE) + | addiu RD, RD, 8 + | b <2 + |. addiu BASE, BASE, 8 + | + |7: // Less results wanted. + | subu TMP0, RD, TMP2 + | subu TMP0, BASE, TMP0 // Either keep top or shrink it. + | b <3 + |. movn BASE, TMP0, TMP2 // LUA_MULTRET+1 case? + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | load_got lj_state_growstack + | move MULTRES, RD + | srl CARG2, TMP2, 3 + | call_intern lj_state_growstack // (lua_State *L, int n) + |. move CARG1, L + | lw TMP2, SAVE_NRES + | lw BASE, L->top // Need the (realloced) L->top in BASE. + | move RD, MULTRES + | b <2 + |. sll TMP2, TMP2, 3 + | + |->vm_unwind_c: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + | move sp, CARG1 + | move CRET1, CARG2 + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | lw L, SAVE_L + | li TMP0, ~LJ_VMST_C + | lw GL:TMP1, L->glref + | b ->vm_leave_unw + |. sw TMP0, GL:TMP1->vmstate + | + |->vm_unwind_ff: // Unwind C stack, return from ff pcall. + | // (void *cframe) + | li AT, -4 + | and sp, CARG1, AT + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | lw L, SAVE_L + | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | li TISNIL, LJ_TNIL + | lw BASE, L->base + | lw DISPATCH, L->glref // Setup pointer to dispatch table. + | mtc1 TMP3, TOBIT + | li TMP1, LJ_TFALSE + | li_vmstate INTERP + | lw PC, FRAME_PC(BASE) // Fetch PC of previous frame. + | cvt.d.s TOBIT, TOBIT + | addiu RA, BASE, -8 // Results start at BASE-8. + | addiu DISPATCH, DISPATCH, GG_G2DISP + | sw TMP1, HI(RA) // Prepend false to error message. + | st_vmstate + | b ->vm_returnc + |. li RD, 16 // 2 results: false + error message. + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | b >2 + |. li CARG2, LUA_MINSTACK + | + |->vm_growstack_l: // Grow stack for Lua function. + | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC + | addu RC, BASE, RC + | subu RA, RA, BASE + | sw BASE, L->base + | addiu PC, PC, 4 // Must point after first instruction. + | sw RC, L->top + | srl CARG2, RA, 3 + |2: + | // L->base = new base, L->top = top + | load_got lj_state_growstack + | sw PC, SAVE_PC + | call_intern lj_state_growstack // (lua_State *L, int n) + |. move CARG1, L + | lw BASE, L->base + | lw RC, L->top + | lw LFUNC:RB, FRAME_FUNC(BASE) + | subu RC, RC, BASE + | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + | move L, CARG1 + | lw DISPATCH, L->glref // Setup pointer to dispatch table. + | move BASE, CARG2 + | lbu TMP1, L->status + | sw L, SAVE_L + | li PC, FRAME_CP + | addiu TMP0, sp, CFRAME_RESUME + | addiu DISPATCH, DISPATCH, GG_G2DISP + | sw r0, SAVE_NRES + | sw r0, SAVE_ERRF + | sw TMP0, L->cframe + | sw r0, SAVE_CFRAME + | beqz TMP1, >3 + |. sw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | + | // Resume after yield (like a return). + | move RA, BASE + | lw BASE, L->base + | lw TMP1, L->top + | lw PC, FRAME_PC(BASE) + | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | subu RD, TMP1, BASE + | mtc1 TMP3, TOBIT + | sb r0, L->status + | cvt.d.s TOBIT, TOBIT + | li_vmstate INTERP + | addiu RD, RD, 8 + | st_vmstate + | move MULTRES, RD + | andi TMP0, PC, FRAME_TYPE + | beqz TMP0, ->BC_RET_Z + |. li TISNIL, LJ_TNIL + | b ->vm_return + |. nop + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | sw CARG4, SAVE_ERRF + | b >1 + |. li PC, FRAME_CP + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | li PC, FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + | lw TMP1, L:CARG1->cframe + | sw CARG3, SAVE_NRES + | move L, CARG1 + | sw CARG1, SAVE_L + | move BASE, CARG2 + | sw sp, L->cframe // Add our C frame to cframe chain. + | lw DISPATCH, L->glref // Setup pointer to dispatch table. + | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | sw TMP1, SAVE_CFRAME + | addiu DISPATCH, DISPATCH, GG_G2DISP + | + |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | lw TMP2, L->base // TMP2 = old base (used in vmeta_call). + | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | lw TMP1, L->top + | mtc1 TMP3, TOBIT + | addu PC, PC, BASE + | subu NARGS8:RC, TMP1, BASE + | subu PC, PC, TMP2 // PC = frame delta + frame type + | cvt.d.s TOBIT, TOBIT + | li_vmstate INTERP + | li TISNIL, LJ_TNIL + | st_vmstate + | + |->vm_call_dispatch: + | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC + | lw TMP0, FRAME_PC(BASE) + | li AT, LJ_TFUNC + | bne TMP0, AT, ->vmeta_call + |. lw LFUNC:RB, FRAME_FUNC(BASE) + | + |->vm_call_dispatch_f: + | ins_call + | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + | move L, CARG1 + | lw TMP0, L:CARG1->stack + | sw CARG1, SAVE_L + | lw TMP1, L->top + | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | subu TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). + | lw TMP1, L->cframe + | sw sp, L->cframe // Add our C frame to cframe chain. + | sw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. + | sw r0, SAVE_ERRF // No error function. + | move CFUNCADDR, CARG4 + | jalr CARG4 // (lua_State *L, lua_CFunction func, void *ud) + |. sw TMP1, SAVE_CFRAME + | move BASE, CRET1 + | lw DISPATCH, L->glref // Setup pointer to dispatch table. + | li PC, FRAME_CP + | bnez CRET1, <3 // Else continue with the call. + |. addiu DISPATCH, DISPATCH, GG_G2DISP + | b ->vm_leave_cp // No base? Just remove C frame. + |. nop + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the + |// stack, so BASE doesn't need to be reloaded across these calls. + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 + | lw TMP0, -16+LO(BASE) // Continuation. + | move RB, BASE + | move BASE, TMP2 // Restore caller BASE. + | lw LFUNC:TMP1, FRAME_FUNC(TMP2) + |.if FFI + | sltiu AT, TMP0, 2 + |.endif + | lw PC, -16+HI(RB) // Restore PC from [cont|PC]. + | addu TMP2, RA, RD + | lw TMP1, LFUNC:TMP1->pc + |.if FFI + | bnez AT, >1 + |.endif + |. sw TISNIL, -8+HI(TMP2) // Ensure one valid arg. + | // BASE = base, RA = resultptr, RB = meta base + | jr TMP0 // Jump to continuation. + |. lw KBASE, PC2PROTO(k)(TMP1) + | + |.if FFI + |1: + | bnez TMP0, ->cont_ffi_callback // cont = 1: return from FFI callback. + | // cont = 0: tailcall from C function. + |. addiu TMP1, RB, -16 + | b ->vm_call_tail + |. subu RC, TMP1, BASE + |.endif + | + |->cont_cat: // RA = resultptr, RB = meta base + | lw INS, -4(PC) + | addiu CARG2, RB, -16 + | ldc1 f0, 0(RA) + | decode_RB8a MULTRES, INS + | decode_RA8a RA, INS + | decode_RB8b MULTRES + | decode_RA8b RA + | addu TMP1, BASE, MULTRES + | sw BASE, L->base + | subu CARG3, CARG2, TMP1 + | bne TMP1, CARG2, ->BC_CAT_Z + |. sdc1 f0, 0(CARG2) + | addu RA, BASE, RA + | b ->cont_nop + |. sdc1 f0, 0(RA) + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets1: + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | li TMP0, LJ_TSTR + | sw STR:RC, LO(CARG3) + | b >1 + |. sw TMP0, HI(CARG3) + | + |->vmeta_tgets: + | addiu CARG2, DISPATCH, DISPATCH_GL(tmptv) + | li TMP0, LJ_TTAB + | sw TAB:RB, LO(CARG2) + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv2) + | sw TMP0, HI(CARG2) + | li TMP1, LJ_TSTR + | sw STR:RC, LO(CARG3) + | b >1 + |. sw TMP1, HI(CARG3) + | + |->vmeta_tgetb: // TMP0 = index + | mtc1 TMP0, f0 + | cvt.d.w f0, f0 + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | sdc1 f0, 0(CARG3) + | + |->vmeta_tgetv: + |1: + | load_got lj_meta_tget + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + |. move CARG1, L + | // Returns TValue * (finished) or NULL (metamethod). + | beqz CRET1, >3 + |. addiu TMP1, BASE, -FRAME_CONT + | ldc1 f0, 0(CRET1) + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | lw BASE, L->top + | sw PC, -16+HI(BASE) // [cont|PC] + | subu PC, BASE, TMP1 + | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | b ->vm_call_dispatch_f + |. li NARGS8:RC, 16 // 2 args for func(t, k). + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets1: + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | li TMP0, LJ_TSTR + | sw STR:RC, LO(CARG3) + | b >1 + |. sw TMP0, HI(CARG3) + | + |->vmeta_tsets: + | addiu CARG2, DISPATCH, DISPATCH_GL(tmptv) + | li TMP0, LJ_TTAB + | sw TAB:RB, LO(CARG2) + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv2) + | sw TMP0, HI(CARG2) + | li TMP1, LJ_TSTR + | sw STR:RC, LO(CARG3) + | b >1 + |. sw TMP1, HI(CARG3) + | + |->vmeta_tsetb: // TMP0 = index + | mtc1 TMP0, f0 + | cvt.d.w f0, f0 + | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | sdc1 f0, 0(CARG3) + | + |->vmeta_tsetv: + |1: + | load_got lj_meta_tset + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + |. move CARG1, L + | // Returns TValue * (finished) or NULL (metamethod). + | beqz CRET1, >3 + |. ldc1 f0, 0(RA) + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | ins_next1 + | sdc1 f0, 0(CRET1) + | ins_next2 + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | addiu TMP1, BASE, -FRAME_CONT + | lw BASE, L->top + | sw PC, -16+HI(BASE) // [cont|PC] + | subu PC, BASE, TMP1 + | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | sdc1 f0, 16(BASE) // Copy value to third argument. + | b ->vm_call_dispatch_f + |. li NARGS8:RC, 24 // 3 args for func(t, k, v) + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + | // CARG2, CARG3 are already set by BC_ISLT/BC_ISGE/BC_ISLE/BC_ISGT. + | load_got lj_meta_comp + | addiu PC, PC, -4 + | sw BASE, L->base + | sw PC, SAVE_PC + | decode_OP1 CARG4, INS + | call_intern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + |. move CARG1, L + | // Returns 0/1 or TValue * (metamethod). + |3: + | sltiu AT, CRET1, 2 + | beqz AT, ->vmeta_binop + | negu TMP2, CRET1 + |4: + | lhu RD, OFS_RD(PC) + | addiu PC, PC, 4 + | lui TMP1, (-(BCBIAS_J*4 >> 16) & 65535) + | sll RD, RD, 2 + | addu RD, RD, TMP1 + | and RD, RD, TMP2 + | addu PC, PC, RD + |->cont_nop: + | ins_next + | + |->cont_ra: // RA = resultptr + | lbu TMP1, -4+OFS_RA(PC) + | ldc1 f0, 0(RA) + | sll TMP1, TMP1, 3 + | addu TMP1, BASE, TMP1 + | b ->cont_nop + |. sdc1 f0, 0(TMP1) + | + |->cont_condt: // RA = resultptr + | lw TMP0, HI(RA) + | sltiu AT, TMP0, LJ_TISTRUECOND + | b <4 + |. negu TMP2, AT // Branch if result is true. + | + |->cont_condf: // RA = resultptr + | lw TMP0, HI(RA) + | sltiu AT, TMP0, LJ_TISTRUECOND + | b <4 + |. addiu TMP2, AT, -1 // Branch if result is false. + | + |->vmeta_equal: + | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. + | load_got lj_meta_equal + | addiu PC, PC, -4 + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + |. move CARG1, L + | // Returns 0/1 or TValue * (metamethod). + | b <3 + |. nop + | + |->vmeta_equal_cd: + |.if FFI + | load_got lj_meta_equal_cd + | move CARG2, INS + | addiu PC, PC, -4 + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_meta_equal_cd // (lua_State *L, BCIns op) + |. move CARG1, L + | // Returns 0/1 or TValue * (metamethod). + | b <3 + |. nop + |.endif + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_unm: + | move CARG4, CARG3 + | + |->vmeta_arith: + | load_got lj_meta_arith + | decode_OP1 TMP0, INS + | sw BASE, L->base + | sw PC, SAVE_PC + | move CARG2, RA + | sw TMP0, ARG5 + | call_intern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + |. move CARG1, L + | // Returns NULL (finished) or TValue * (metamethod). + | beqz CRET1, ->cont_nop + |. nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 + | subu TMP1, CRET1, BASE + | sw PC, -16+HI(CRET1) // [cont|PC] + | move TMP2, BASE + | addiu PC, TMP1, FRAME_CONT + | move BASE, CRET1 + | b ->vm_call_dispatch + |. li NARGS8:RC, 16 // 2 args for func(o1, o2). + | + |->vmeta_len: + | // CARG2 already set by BC_LEN. +#if LJ_52 + | move MULTRES, CARG1 +#endif + | load_got lj_meta_len + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_meta_len // (lua_State *L, TValue *o) + |. move CARG1, L + | // Returns NULL (retry) or TValue * (metamethod base). +#if LJ_52 + | bnez CRET1, ->vmeta_binop // Binop call for compatibility. + |. nop + | b ->BC_LEN_Z + |. move CARG1, MULTRES +#else + | b ->vmeta_binop // Binop call for compatibility. + |. nop +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call: // Resolve and call __call metamethod. + | // TMP2 = old base, BASE = new base, RC = nargs*8 + | load_got lj_meta_call + | sw TMP2, L->base // This is the callers base! + | addiu CARG2, BASE, -8 + | sw PC, SAVE_PC + | addu CARG3, BASE, RC + | move MULTRES, NARGS8:RC + | call_intern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + |. move CARG1, L + | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | addiu NARGS8:RC, MULTRES, 8 // Got one more argument now. + | ins_call + | + |->vmeta_callt: // Resolve __call for BC_CALLT. + | // BASE = old base, RA = new base, RC = nargs*8 + | load_got lj_meta_call + | sw BASE, L->base + | addiu CARG2, RA, -8 + | sw PC, SAVE_PC + | addu CARG3, RA, RC + | move MULTRES, NARGS8:RC + | call_intern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + |. move CARG1, L + | lw TMP1, FRAME_PC(BASE) + | lw LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. + | b ->BC_CALLT_Z + |. addiu NARGS8:RC, MULTRES, 8 // Got one more argument now. + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | load_got lj_meta_for + | sw BASE, L->base + | move CARG2, RA + | sw PC, SAVE_PC + | move MULTRES, INS + | call_intern lj_meta_for // (lua_State *L, TValue *base) + |. move CARG1, L + |.if JIT + | decode_OP1 TMP0, MULTRES + | li AT, BC_JFORI + |.endif + | decode_RA8a RA, MULTRES + | decode_RD8a RD, MULTRES + | decode_RA8b RA + |.if JIT + | beq TMP0, AT, =>BC_JFORI + |. decode_RD8b RD + | b =>BC_FORI + |. nop + |.else + | b =>BC_FORI + |. decode_RD8b RD + |.endif + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | beqz NARGS8:RC, ->fff_fallback + |. lw CARG3, HI(BASE) + | lw CARG1, LO(BASE) + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | sltiu AT, NARGS8:RC, 16 + | lw CARG3, HI(BASE) + | bnez AT, ->fff_fallback + |. lw CARG4, 8+HI(BASE) + | lw CARG1, LO(BASE) + | lw CARG2, 8+LO(BASE) + |.endmacro + | + |.macro .ffunc_n, name // Caveat: has delay slot! + |->ff_ .. name: + | lw CARG3, HI(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. ldc1 FARG1, 0(BASE) + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |.endmacro + | + |.macro .ffunc_nn, name // Caveat: has delay slot! + |->ff_ .. name: + | sltiu AT, NARGS8:RC, 16 + | lw CARG3, HI(BASE) + | bnez AT, ->fff_fallback + |. lw CARG4, 8+HI(BASE) + | ldc1 FARG1, 0(BASE) + | ldc1 FARG2, 8(BASE) + | sltiu TMP0, CARG3, LJ_TISNUM + | sltiu TMP1, CARG4, LJ_TISNUM + | and TMP0, TMP0, TMP1 + | beqz TMP0, ->fff_fallback + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1 and has delay slot! + |.macro ffgccheck + | lw TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | lw TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | subu AT, TMP0, TMP1 + | bgezal AT, ->fff_gcstep + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc_1 assert + | sltiu AT, CARG3, LJ_TISTRUECOND + | beqz AT, ->fff_fallback + |. addiu RA, BASE, -8 + | lw PC, FRAME_PC(BASE) + | addiu RD, NARGS8:RC, 8 // Compute (nresults+1)*8. + | addu TMP2, RA, NARGS8:RC + | sw CARG3, HI(RA) + | addiu TMP1, BASE, 8 + | beq BASE, TMP2, ->fff_res // Done if exactly 1 argument. + |. sw CARG1, LO(RA) + |1: + | ldc1 f0, 0(TMP1) + | sdc1 f0, -8(TMP1) + | bne TMP1, TMP2, <1 + |. addiu TMP1, TMP1, 8 + | b ->fff_res + |. nop + | + |.ffunc type + | lw CARG3, HI(BASE) + | li TMP1, LJ_TISNUM + | beqz NARGS8:RC, ->fff_fallback + |. sltiu TMP0, CARG3, LJ_TISNUM + | movz TMP1, CARG3, TMP0 + | not TMP1, TMP1 + | sll TMP1, TMP1, 3 + | addu TMP1, CFUNC:RB, TMP1 + | b ->fff_resn + |. ldc1 FRET1, CFUNC:TMP1->upvalue + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | li AT, LJ_TTAB + | bne CARG3, AT, >6 + |. li AT, LJ_TUDATA + |1: // Field metatable must be at same offset for GCtab and GCudata! + | lw TAB:CARG1, TAB:CARG1->metatable + |2: + | lw STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) + | beqz TAB:CARG1, ->fff_restv + |. li CARG3, LJ_TNIL + | lw TMP0, TAB:CARG1->hmask + | li CARG3, LJ_TTAB // Use metatable as default result. + | lw TMP1, STR:RC->hash + | lw NODE:TMP2, TAB:CARG1->node + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | sll TMP0, TMP1, 5 + | sll TMP1, TMP1, 3 + | subu TMP1, TMP0, TMP1 + | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + | li AT, LJ_TSTR + |3: // Rearranged logic, because we expect _not_ to find the key. + | lw CARG4, offsetof(Node, key)+HI(NODE:TMP2) + | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) + | lw NODE:TMP3, NODE:TMP2->next + | bne CARG4, AT, >4 + |. lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) + | beq TMP0, STR:RC, >5 + |. lw TMP1, offsetof(Node, val)+LO(NODE:TMP2) + |4: + | beqz NODE:TMP3, ->fff_restv // Not found, keep default result. + |. move NODE:TMP2, NODE:TMP3 + | b <3 + |. nop + |5: + | beq CARG2, TISNIL, ->fff_restv // Ditto for nil value. + |. nop + | move CARG3, CARG2 // Return value of mt.__metatable. + | b ->fff_restv + |. move CARG1, TMP1 + | + |6: + | beq CARG3, AT, <1 + |. sltiu TMP0, CARG3, LJ_TISNUM + | li TMP1, LJ_TISNUM + | movz TMP1, CARG3, TMP0 + | not TMP1, TMP1 + | sll TMP1, TMP1, 2 + | addu TMP1, DISPATCH, TMP1 + | b <2 + |. lw TAB:CARG1, DISPATCH_GL(gcroot[GCROOT_BASEMT])(TMP1) + | + |.ffunc_2 setmetatable + | // Fast path: no mt for table yet and not clearing the mt. + | li AT, LJ_TTAB + | bne CARG3, AT, ->fff_fallback + |. addiu CARG4, CARG4, -LJ_TTAB + | lw TAB:TMP1, TAB:CARG1->metatable + | lbu TMP3, TAB:CARG1->marked + | or AT, CARG4, TAB:TMP1 + | bnez AT, ->fff_fallback + |. andi AT, TMP3, LJ_GC_BLACK // isblack(table) + | beqz AT, ->fff_restv + |. sw TAB:CARG2, TAB:CARG1->metatable + | barrierback TAB:CARG1, TMP3, TMP0, ->fff_restv + | + |.ffunc rawget + | lw CARG4, HI(BASE) + | sltiu AT, NARGS8:RC, 16 + | lw TAB:CARG2, LO(BASE) + | load_got lj_tab_get + | addiu CARG4, CARG4, -LJ_TTAB + | or AT, AT, CARG4 + | bnez AT, ->fff_fallback + | addiu CARG3, BASE, 8 + | call_intern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + |. move CARG1, L + | // Returns cTValue *. + | b ->fff_resn + |. ldc1 FRET1, 0(CRET1) + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | lw CARG1, HI(BASE) + | xori AT, NARGS8:RC, 8 + | sltiu CARG1, CARG1, LJ_TISNUM + | movn CARG1, r0, AT + | beqz CARG1, ->fff_fallback // Exactly one number argument. + |. ldc1 FRET1, 0(BASE) + | b ->fff_resn + |. nop + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | li AT, LJ_TSTR + | // A __tostring method in the string base metatable is ignored. + | beq CARG3, AT, ->fff_restv // String key? + | // Handle numbers inline, unless a number base metatable is present. + |. lw TMP1, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) + | sltiu TMP0, CARG3, LJ_TISNUM + | sltiu TMP1, TMP1, 1 + | and TMP0, TMP0, TMP1 + | beqz TMP0, ->fff_fallback + |. sw BASE, L->base // Add frame since C call can throw. + | ffgccheck + |. sw PC, SAVE_PC // Redundant (but a defined value). + | load_got lj_str_fromnum + | move CARG1, L + | call_intern lj_str_fromnum // (lua_State *L, lua_Number *np) + |. move CARG2, BASE + | // Returns GCstr *. + | li CARG3, LJ_TSTR + | b ->fff_restv + |. move CARG1, CRET1 + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc next + | lw CARG1, HI(BASE) + | lw TAB:CARG2, LO(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. addu TMP2, BASE, NARGS8:RC + | li AT, LJ_TTAB + | sw TISNIL, HI(TMP2) // Set missing 2nd arg to nil. + | bne CARG1, AT, ->fff_fallback + |. lw PC, FRAME_PC(BASE) + | load_got lj_tab_next + | sw BASE, L->base // Add frame since C call can throw. + | sw BASE, L->top // Dummy frame length is ok. + | addiu CARG3, BASE, 8 + | sw PC, SAVE_PC + | call_intern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + |. move CARG1, L + | // Returns 0 at end of traversal. + | beqz CRET1, ->fff_restv // End of traversal: return nil. + |. li CARG3, LJ_TNIL + | ldc1 f0, 8(BASE) // Copy key and value to results. + | addiu RA, BASE, -8 + | ldc1 f2, 16(BASE) + | li RD, (2+1)*8 + | sdc1 f0, 0(RA) + | b ->fff_res + |. sdc1 f2, 8(RA) + | + |.ffunc_1 pairs + | li AT, LJ_TTAB + | bne CARG3, AT, ->fff_fallback + |. lw PC, FRAME_PC(BASE) +#if LJ_52 + | lw TAB:TMP2, TAB:CARG1->metatable + | ldc1 f0, CFUNC:RB->upvalue[0] + | bnez TAB:TMP2, ->fff_fallback +#else + | ldc1 f0, CFUNC:RB->upvalue[0] +#endif + |. addiu RA, BASE, -8 + | sw TISNIL, 8+HI(BASE) + | li RD, (3+1)*8 + | b ->fff_res + |. sdc1 f0, 0(RA) + | + |.ffunc ipairs_aux + | sltiu AT, NARGS8:RC, 16 + | lw CARG3, HI(BASE) + | lw TAB:CARG1, LO(BASE) + | lw CARG4, 8+HI(BASE) + | bnez AT, ->fff_fallback + |. ldc1 FARG2, 8(BASE) + | addiu CARG3, CARG3, -LJ_TTAB + | sltiu AT, CARG4, LJ_TISNUM + | li TMP0, 1 + | movn AT, r0, CARG3 + | mtc1 TMP0, FARG1 + | beqz AT, ->fff_fallback + |. lw PC, FRAME_PC(BASE) + | cvt.w.d FRET1, FARG2 + | cvt.d.w FARG1, FARG1 + | lw TMP0, TAB:CARG1->asize + | lw TMP1, TAB:CARG1->array + | mfc1 TMP2, FRET1 + | addiu RA, BASE, -8 + | add.d FARG2, FARG2, FARG1 + | addiu TMP2, TMP2, 1 + | sltu AT, TMP2, TMP0 + | sll TMP3, TMP2, 3 + | addu TMP3, TMP1, TMP3 + | beqz AT, >2 // Not in array part? + |. sdc1 FARG2, 0(RA) + | lw TMP2, HI(TMP3) + | ldc1 f0, 0(TMP3) + |1: + | beq TMP2, TISNIL, ->fff_res // End of iteration, return 0 results. + |. li RD, (0+1)*8 + | li RD, (2+1)*8 + | b ->fff_res + |. sdc1 f0, 8(RA) + |2: // Check for empty hash part first. Otherwise call C function. + | lw TMP0, TAB:CARG1->hmask + | load_got lj_tab_getinth + | beqz TMP0, ->fff_res + |. li RD, (0+1)*8 + | call_intern lj_tab_getinth // (GCtab *t, int32_t key) + |. move CARG2, TMP2 + | // Returns cTValue * or NULL. + | beqz CRET1, ->fff_res + |. li RD, (0+1)*8 + | lw TMP2, HI(CRET1) + | b <1 + |. ldc1 f0, 0(CRET1) + | + |.ffunc_1 ipairs + | li AT, LJ_TTAB + | bne CARG3, AT, ->fff_fallback + |. lw PC, FRAME_PC(BASE) +#if LJ_52 + | lw TAB:TMP2, TAB:CARG1->metatable + | ldc1 f0, CFUNC:RB->upvalue[0] + | bnez TAB:TMP2, ->fff_fallback +#else + | ldc1 f0, CFUNC:RB->upvalue[0] +#endif + |. addiu RA, BASE, -8 + | sw r0, 8+HI(BASE) + | sw r0, 8+LO(BASE) + | li RD, (3+1)*8 + | b ->fff_res + |. sdc1 f0, 0(RA) + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc pcall + | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | beqz NARGS8:RC, ->fff_fallback + | move TMP2, BASE + | addiu BASE, BASE, 8 + | // Remember active hook before pcall. + | srl TMP3, TMP3, HOOK_ACTIVE_SHIFT + | andi TMP3, TMP3, 1 + | addiu PC, TMP3, 8+FRAME_PCALL + | b ->vm_call_dispatch + |. addiu NARGS8:RC, NARGS8:RC, -8 + | + |.ffunc xpcall + | sltiu AT, NARGS8:RC, 16 + | lw CARG4, 8+HI(BASE) + | bnez AT, ->fff_fallback + |. ldc1 FARG2, 8(BASE) + | ldc1 FARG1, 0(BASE) + | lbu TMP1, DISPATCH_GL(hookmask)(DISPATCH) + | li AT, LJ_TFUNC + | move TMP2, BASE + | bne CARG4, AT, ->fff_fallback // Traceback must be a function. + | addiu BASE, BASE, 16 + | // Remember active hook before pcall. + | srl TMP3, TMP3, HOOK_ACTIVE_SHIFT + | sdc1 FARG2, 0(TMP2) // Swap function and traceback. + | andi TMP3, TMP3, 1 + | sdc1 FARG1, 8(TMP2) + | addiu PC, TMP3, 16+FRAME_PCALL + | b ->vm_call_dispatch + |. addiu NARGS8:RC, NARGS8:RC, -16 + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | li AT, LJ_TTHREAD + | bne CARG3, AT, ->fff_fallback + |.else + |.ffunc coroutine_wrap_aux + | lw L:CARG1, CFUNC:RB->upvalue[0].gcr + |.endif + | lbu TMP0, L:CARG1->status + | lw TMP1, L:CARG1->cframe + | lw CARG2, L:CARG1->top + | lw TMP2, L:CARG1->base + | addiu TMP3, TMP0, -LUA_YIELD + | bgtz TMP3, ->fff_fallback // st > LUA_YIELD? + |. xor TMP2, TMP2, CARG2 + | bnez TMP1, ->fff_fallback // cframe != 0? + |. or AT, TMP2, TMP0 + | lw TMP0, L:CARG1->maxstack + | beqz AT, ->fff_fallback // base == top && st == 0? + |. lw PC, FRAME_PC(BASE) + | addu TMP2, CARG2, NARGS8:RC + | sltu AT, TMP0, TMP2 + | bnez AT, ->fff_fallback // Stack overflow? + |. sw PC, SAVE_PC + | sw BASE, L->base + |1: + |.if resume + | addiu BASE, BASE, 8 // Keep resumed thread in stack for GC. + | addiu NARGS8:RC, NARGS8:RC, -8 + | addiu TMP2, TMP2, -8 + |.endif + | sw TMP2, L:CARG1->top + | addu TMP1, BASE, NARGS8:RC + | move CARG3, CARG2 + | sw BASE, L->top + |2: // Move args to coroutine. + | ldc1 f0, 0(BASE) + | sltu AT, BASE, TMP1 + | beqz AT, >3 + |. addiu BASE, BASE, 8 + | sdc1 f0, 0(CARG3) + | b <2 + |. addiu CARG3, CARG3, 8 + |3: + | bal ->vm_resume // (lua_State *L, TValue *base, 0, 0) + |. move L:RA, L:CARG1 + | // Returns thread status. + |4: + | lw TMP2, L:RA->base + | sltiu AT, CRET1, LUA_YIELD+1 + | lw TMP3, L:RA->top + | li_vmstate INTERP + | lw BASE, L->base + | st_vmstate + | beqz AT, >8 + |. subu RD, TMP3, TMP2 + | lw TMP0, L->maxstack + | beqz RD, >6 // No results? + |. addu TMP1, BASE, RD + | sltu AT, TMP0, TMP1 + | bnez AT, >9 // Need to grow stack? + |. addu TMP3, TMP2, RD + | sw TMP2, L:RA->top // Clear coroutine stack. + | move TMP1, BASE + |5: // Move results from coroutine. + | ldc1 f0, 0(TMP2) + | addiu TMP2, TMP2, 8 + | sltu AT, TMP2, TMP3 + | sdc1 f0, 0(TMP1) + | bnez AT, <5 + |. addiu TMP1, TMP1, 8 + |6: + | andi TMP0, PC, FRAME_TYPE + |.if resume + | li TMP1, LJ_TTRUE + | addiu RA, BASE, -8 + | sw TMP1, -8+HI(BASE) // Prepend true to results. + | addiu RD, RD, 16 + |.else + | move RA, BASE + | addiu RD, RD, 8 + |.endif + |7: + | sw PC, SAVE_PC + | beqz TMP0, ->BC_RET_Z + |. move MULTRES, RD + | b ->vm_return + |. nop + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | addiu TMP3, TMP3, -8 + | li TMP1, LJ_TFALSE + | ldc1 f0, 0(TMP3) + | sw TMP3, L:RA->top // Remove error from coroutine stack. + | li RD, (2+1)*8 + | sw TMP1, -8+HI(BASE) // Prepend false to results. + | addiu RA, BASE, -8 + | sdc1 f0, 0(BASE) // Copy error message. + | b <7 + |. andi TMP0, PC, FRAME_TYPE + |.else + | load_got lj_ffh_coroutine_wrap_err + | move CARG2, L:RA + | call_intern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) + |. move CARG1, L + |.endif + | + |9: // Handle stack expansion on return from yield. + | load_got lj_state_growstack + | srl CARG2, RD, 3 + | call_intern lj_state_growstack // (lua_State *L, int n) + |. move CARG1, L + | b <4 + |. li CRET1, 0 + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | lw TMP0, L->cframe + | addu TMP1, BASE, NARGS8:RC + | sw BASE, L->base + | andi TMP0, TMP0, CFRAME_RESUME + | sw TMP1, L->top + | beqz TMP0, ->fff_fallback + |. li CRET1, LUA_YIELD + | sw r0, L->cframe + | b ->vm_leave_unw + |. sb CRET1, L->status + | + |//-- Math library ------------------------------------------------------- + | + |.ffunc_n math_abs + |. abs.d FRET1, FARG1 + |->fff_resn: + | lw PC, FRAME_PC(BASE) + | addiu RA, BASE, -8 + | b ->fff_res1 + |. sdc1 FRET1, -8(BASE) + | + |->fff_restv: + | // CARG3/CARG1 = TValue result. + | lw PC, FRAME_PC(BASE) + | sw CARG3, -8+HI(BASE) + | addiu RA, BASE, -8 + | sw CARG1, -8+LO(BASE) + |->fff_res1: + | // RA = results, PC = return. + | li RD, (1+1)*8 + |->fff_res: + | // RA = results, RD = (nresults+1)*8, PC = return. + | andi TMP0, PC, FRAME_TYPE + | bnez TMP0, ->vm_return + |. move MULTRES, RD + | lw INS, -4(PC) + | decode_RB8a RB, INS + | decode_RB8b RB + |5: + | sltu AT, RD, RB + | bnez AT, >6 // More results expected? + |. decode_RA8a TMP0, INS + | decode_RA8b TMP0 + | ins_next1 + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | subu BASE, RA, TMP0 + | ins_next2 + | + |6: // Fill up results with nil. + | addu TMP1, RA, RD + | addiu RD, RD, 8 + | b <5 + |. sw TISNIL, -8+HI(TMP1) + | + |.macro math_extern, func + |->ff_math_ .. func: + | lw CARG3, HI(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. load_got func + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |. nop + | call_extern + |. ldc1 FARG1, 0(BASE) + | b ->fff_resn + |. nop + |.endmacro + | + |.macro math_extern2, func + | .ffunc_nn math_ .. func + |. load_got func + | call_extern + |. nop + | b ->fff_resn + |. nop + |.endmacro + | + |.macro math_round, func + | .ffunc_n math_ .. func + |. nop + | bal ->vm_ .. func + |. nop + | b ->fff_resn + |. nop + |.endmacro + | + | math_round floor + | math_round ceil + | + |.ffunc math_log + | lw CARG3, HI(BASE) + | li AT, 8 + | bne NARGS8:RC, AT, ->fff_fallback // Exactly 1 argument. + |. load_got log + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |. nop + | call_extern + |. ldc1 FARG1, 0(BASE) + | b ->fff_resn + |. nop + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan + | math_extern sinh + | math_extern cosh + | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod + | + |.ffunc_n math_sqrt + |. sqrt.d FRET1, FARG1 + | b ->fff_resn + |. nop + | + |->ff_math_deg: + |.ffunc_n math_rad + |. ldc1 FARG2, CFUNC:RB->upvalue[0] + | b ->fff_resn + |. mul.d FRET1, FARG1, FARG2 + | + |.ffunc_nn math_ldexp + | cvt.w.d FARG2, FARG2 + | load_got ldexp + | mfc1 CARG3, FARG2 + | call_extern + |. nop + | b ->fff_resn + |. nop + | + |.ffunc_n math_frexp + | load_got frexp + | lw PC, FRAME_PC(BASE) + | call_extern + |. addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | lw TMP1, DISPATCH_GL(tmptv)(DISPATCH) + | addiu RA, BASE, -8 + | mtc1 TMP1, FARG2 + | sdc1 FRET1, 0(RA) + | cvt.d.w FARG2, FARG2 + | sdc1 FARG2, 8(RA) + | b ->fff_res + |. li RD, (2+1)*8 + | + |.ffunc_n math_modf + | load_got modf + | lw PC, FRAME_PC(BASE) + | call_extern + |. addiu CARG3, BASE, -8 + | addiu RA, BASE, -8 + | sdc1 FRET1, 0(BASE) + | b ->fff_res + |. li RD, (2+1)*8 + | + |.macro math_minmax, name, ismax + |->ff_ .. name: + | lw CARG3, HI(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. ldc1 FRET1, 0(BASE) + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |. addu TMP2, BASE, NARGS8:RC + | addiu TMP1, BASE, 8 + | beq TMP1, TMP2, ->fff_resn + |1: + |. lw CARG3, HI(TMP1) + | ldc1 FARG1, 0(TMP1) + | addiu TMP1, TMP1, 8 + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |.if ismax + |. c.olt.d FARG1, FRET1 + |.else + |. c.olt.d FRET1, FARG1 + |.endif + | bne TMP1, TMP2, <1 + |. movf.d FRET1, FARG1 + | b ->fff_resn + |. nop + |.endmacro + | + | math_minmax math_min, 0 + | math_minmax math_max, 1 + | + |//-- String library ----------------------------------------------------- + | + |.ffunc_1 string_len + | li AT, LJ_TSTR + | bne CARG3, AT, ->fff_fallback + |. nop + | b ->fff_resi + |. lw CRET1, STR:CARG1->len + | + |.ffunc string_byte // Only handle the 1-arg case here. + | lw CARG3, HI(BASE) + | lw STR:CARG1, LO(BASE) + | xori AT, NARGS8:RC, 8 + | addiu CARG3, CARG3, -LJ_TSTR + | or AT, AT, CARG3 + | bnez AT, ->fff_fallback // Need exactly 1 string argument. + |. nop + | lw TMP0, STR:CARG1->len + | lbu TMP1, STR:CARG1[1] // Access is always ok (NUL at end). + | addiu RA, BASE, -8 + | sltu RD, r0, TMP0 + | mtc1 TMP1, f0 + | addiu RD, RD, 1 + | cvt.d.w f0, f0 + | lw PC, FRAME_PC(BASE) + | sll RD, RD, 3 // RD = ((str->len != 0)+1)*8 + | b ->fff_res + |. sdc1 f0, 0(RA) + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | lw CARG3, HI(BASE) + | ldc1 FARG1, 0(BASE) + | li AT, 8 + | bne NARGS8:RC, AT, ->fff_fallback // Exactly 1 argument. + |. sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |. li CARG3, 1 + | cvt.w.d FARG1, FARG1 + | addiu CARG2, sp, ARG5_OFS + | sltiu AT, TMP0, 256 + | mfc1 TMP0, FARG1 + | beqz AT, ->fff_fallback + |. sw TMP0, ARG5 + |->fff_newstr: + | load_got lj_str_new + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_str_new // (lua_State *L, char *str, size_t l) + |. move CARG1, L + | // Returns GCstr *. + | lw BASE, L->base + | move CARG1, CRET1 + | b ->fff_restv + |. li CARG3, LJ_TSTR + | + |.ffunc string_sub + | ffgccheck + | addiu AT, NARGS8:RC, -16 + | lw CARG3, 16+HI(BASE) + | ldc1 f0, 16(BASE) + | lw TMP0, HI(BASE) + | lw STR:CARG1, LO(BASE) + | bltz AT, ->fff_fallback + | lw CARG2, 8+HI(BASE) + | ldc1 f2, 8(BASE) + | beqz AT, >1 + |. li CARG4, -1 + | cvt.w.d f0, f0 + | sltiu AT, CARG3, LJ_TISNUM + | beqz AT, ->fff_fallback + |. mfc1 CARG4, f0 + |1: + | sltiu AT, CARG2, LJ_TISNUM + | beqz AT, ->fff_fallback + |. li AT, LJ_TSTR + | cvt.w.d f2, f2 + | bne TMP0, AT, ->fff_fallback + |. lw CARG2, STR:CARG1->len + | mfc1 CARG3, f2 + | // STR:CARG1 = str, CARG2 = str->len, CARG3 = start, CARG4 = end + | slt AT, CARG4, r0 + | addiu TMP0, CARG2, 1 + | addu TMP1, CARG4, TMP0 + | slt TMP3, CARG3, r0 + | movn CARG4, TMP1, AT // if (end < 0) end += len+1 + | addu TMP1, CARG3, TMP0 + | movn CARG3, TMP1, TMP3 // if (start < 0) start += len+1 + | li TMP2, 1 + | slt AT, CARG4, r0 + | slt TMP3, r0, CARG3 + | movn CARG4, r0, AT // if (end < 0) end = 0 + | movz CARG3, TMP2, TMP3 // if (start < 1) start = 1 + | slt AT, CARG2, CARG4 + | movn CARG4, CARG2, AT // if (end > len) end = len + | addu CARG2, STR:CARG1, CARG3 + | subu CARG3, CARG4, CARG3 // len = end - start + | addiu CARG2, CARG2, sizeof(GCstr)-1 + | bgez CARG3, ->fff_newstr + |. addiu CARG3, CARG3, 1 // len++ + |->fff_emptystr: // Return empty string. + | addiu STR:CARG1, DISPATCH, DISPATCH_GL(strempty) + | b ->fff_restv + |. li CARG3, LJ_TSTR + | + |.ffunc string_rep // Only handle the 1-char case inline. + | ffgccheck + | lw TMP0, HI(BASE) + | addiu AT, NARGS8:RC, -16 // Exactly 2 arguments. + | lw CARG4, 8+HI(BASE) + | lw STR:CARG1, LO(BASE) + | addiu TMP0, TMP0, -LJ_TSTR + | ldc1 f0, 8(BASE) + | or AT, AT, TMP0 + | bnez AT, ->fff_fallback + |. sltiu AT, CARG4, LJ_TISNUM + | cvt.w.d f0, f0 + | beqz AT, ->fff_fallback + |. lw TMP0, STR:CARG1->len + | mfc1 CARG3, f0 + | lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | li AT, 1 + | blez CARG3, ->fff_emptystr // Count <= 0? + |. sltu AT, AT, TMP0 + | beqz TMP0, ->fff_emptystr // Zero length string? + |. sltu TMP0, TMP1, CARG3 + | or AT, AT, TMP0 + | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | bnez AT, ->fff_fallback // Fallback for > 1-char strings. + |. lbu TMP0, STR:CARG1[1] + | addu TMP2, CARG2, CARG3 + |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). + | addiu TMP2, TMP2, -1 + | sltu AT, CARG2, TMP2 + | bnez AT, <1 + |. sb TMP0, 0(TMP2) + | b ->fff_newstr + |. nop + | + |.ffunc string_reverse + | ffgccheck + | lw CARG3, HI(BASE) + | lw STR:CARG1, LO(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. li AT, LJ_TSTR + | bne CARG3, AT, ->fff_fallback + |. lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | lw CARG3, STR:CARG1->len + | addiu CARG1, STR:CARG1, #STR + | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | sltu AT, TMP1, CARG3 + | bnez AT, ->fff_fallback + |. addu TMP3, CARG1, CARG3 + | addu CARG4, CARG2, CARG3 + |1: // Reverse string copy. + | lbu TMP1, 0(CARG1) + | sltu AT, CARG1, TMP3 + | beqz AT, ->fff_newstr + |. addiu CARG1, CARG1, 1 + | addiu CARG4, CARG4, -1 + | b <1 + | sb TMP1, 0(CARG4) + | + |.macro ffstring_case, name, lo + | .ffunc name + | ffgccheck + | lw CARG3, HI(BASE) + | lw STR:CARG1, LO(BASE) + | beqz NARGS8:RC, ->fff_fallback + |. li AT, LJ_TSTR + | bne CARG3, AT, ->fff_fallback + |. lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | lw CARG3, STR:CARG1->len + | addiu CARG1, STR:CARG1, #STR + | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | sltu AT, TMP1, CARG3 + | bnez AT, ->fff_fallback + |. addu TMP3, CARG1, CARG3 + | move CARG4, CARG2 + |1: // ASCII case conversion. + | lbu TMP1, 0(CARG1) + | sltu AT, CARG1, TMP3 + | beqz AT, ->fff_newstr + |. addiu TMP0, TMP1, -lo + | xori TMP2, TMP1, 0x20 + | sltiu AT, TMP0, 26 + | movn TMP1, TMP2, AT + | addiu CARG1, CARG1, 1 + | sb TMP1, 0(CARG4) + | b <1 + |. addiu CARG4, CARG4, 1 + |.endmacro + | + |ffstring_case string_lower, 65 + |ffstring_case string_upper, 97 + | + |//-- Table library ------------------------------------------------------ + | + |.ffunc_1 table_getn + | li AT, LJ_TTAB + | bne CARG3, AT, ->fff_fallback + |. load_got lj_tab_len + | call_intern lj_tab_len // (GCtab *t) + |. nop + | // Returns uint32_t (but less than 2^31). + | b ->fff_resi + |. nop + | + |//-- Bit library -------------------------------------------------------- + | + |.macro .ffunc_bit, name + | .ffunc_n bit_..name + |. add.d FARG1, FARG1, TOBIT + | mfc1 CRET1, FARG1 + |.endmacro + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name + | addiu TMP1, BASE, 8 + | addu TMP2, BASE, NARGS8:RC + |1: + | lw CARG4, HI(TMP1) + | beq TMP1, TMP2, ->fff_resi + |. ldc1 FARG1, 0(TMP1) + | sltiu AT, CARG4, LJ_TISNUM + | beqz AT, ->fff_fallback + | add.d FARG1, FARG1, TOBIT + | mfc1 CARG2, FARG1 + | ins CRET1, CRET1, CARG2 + | b <1 + |. addiu TMP1, TMP1, 8 + |.endmacro + | + |.ffunc_bit_op band, and + |.ffunc_bit_op bor, or + |.ffunc_bit_op bxor, xor + | + |.ffunc_bit bswap + | srl TMP0, CRET1, 24 + | srl TMP2, CRET1, 8 + | sll TMP1, CRET1, 24 + | andi TMP2, TMP2, 0xff00 + | or TMP0, TMP0, TMP1 + | andi CRET1, CRET1, 0xff00 + | or TMP0, TMP0, TMP2 + | sll CRET1, CRET1, 8 + | b ->fff_resi + |. or CRET1, TMP0, CRET1 + | + |.ffunc_bit bnot + | b ->fff_resi + |. not CRET1, CRET1 + | + |.macro .ffunc_bit_sh, name, ins, shmod + | .ffunc_nn bit_..name + |. add.d FARG1, FARG1, TOBIT + | add.d FARG2, FARG2, TOBIT + | mfc1 CARG1, FARG1 + | mfc1 CARG2, FARG2 + |.if shmod == 1 + | li AT, 32 + | subu TMP0, AT, CARG2 + | sllv CARG2, CARG1, CARG2 + | srlv CARG1, CARG1, TMP0 + |.elif shmod == 2 + | li AT, 32 + | subu TMP0, AT, CARG2 + | srlv CARG2, CARG1, CARG2 + | sllv CARG1, CARG1, TMP0 + |.endif + | b ->fff_resi + |. ins CRET1, CARG1, CARG2 + |.endmacro + | + |.ffunc_bit_sh lshift, sllv, 0 + |.ffunc_bit_sh rshift, srlv, 0 + |.ffunc_bit_sh arshift, srav, 0 + |// Can't use rotrv, since it's only in MIPS32R2. + |.ffunc_bit_sh rol, or, 1 + |.ffunc_bit_sh ror, or, 2 + | + |.ffunc_bit tobit + |->fff_resi: + | mtc1 CRET1, FRET1 + | b ->fff_resn + |. cvt.d.w FRET1, FRET1 + | + |//----------------------------------------------------------------------- + | + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RB = CFUNC, RC = nargs*8 + | lw TMP3, CFUNC:RB->f + | addu TMP1, BASE, NARGS8:RC + | lw PC, FRAME_PC(BASE) // Fallback may overwrite PC. + | addiu TMP0, TMP1, 8*LUA_MINSTACK + | lw TMP2, L->maxstack + | sw PC, SAVE_PC // Redundant (but a defined value). + | sltu AT, TMP2, TMP0 + | sw BASE, L->base + | sw TMP1, L->top + | bnez AT, >5 // Need to grow stack. + |. move CFUNCADDR, TMP3 + | jalr TMP3 // (lua_State *L) + |. move CARG1, L + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | lw BASE, L->base + | sll RD, CRET1, 3 + | bgtz CRET1, ->fff_res // Returned nresults+1? + |. addiu RA, BASE, -8 + |1: // Returned 0 or -1: retry fast path. + | lw TMP0, L->top + | lw LFUNC:RB, FRAME_FUNC(BASE) + | bnez CRET1, ->vm_call_tail // Returned -1? + |. subu NARGS8:RC, TMP0, BASE + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | andi TMP0, PC, FRAME_TYPE + | li AT, -4 + | bnez TMP0, >3 + |. and TMP1, PC, AT + | lbu TMP1, OFS_RA(PC) + | sll TMP1, TMP1, 3 + | addiu TMP1, TMP1, 8 + |3: + | b ->vm_call_dispatch // Resolve again for tailcall. + |. subu TMP2, BASE, TMP1 + | + |5: // Grow stack for fallback handler. + | load_got lj_state_growstack + | li CARG2, LUA_MINSTACK + | call_intern lj_state_growstack // (lua_State *L, int n) + |. move CARG1, L + | lw BASE, L->base + | b <1 + |. li CRET1, 0 // Force retry. + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RC = nargs*8 + | move MULTRES, ra + | load_got lj_gc_step + | sw BASE, L->base + | addu TMP0, BASE, NARGS8:RC + | sw PC, SAVE_PC // Redundant (but a defined value). + | sw TMP0, L->top + | call_intern lj_gc_step // (lua_State *L) + |. move CARG1, L + | lw BASE, L->base + | move ra, MULTRES + | lw TMP0, L->top + | lw CFUNC:RB, FRAME_FUNC(BASE) + | jr ra + |. subu NARGS8:RC, TMP0, BASE + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + |.if JIT + | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | andi AT, TMP3, HOOK_VMEVENT // No recording while in vmevent. + | bnez AT, >5 + | // Decrement the hookcount for consistency, but always do the call. + |. lw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andi AT, TMP3, HOOK_ACTIVE + | bnez AT, >1 + |. addiu TMP2, TMP2, -1 + | andi AT, TMP3, LUA_MASKLINE|LUA_MASKCOUNT + | beqz AT, >1 + |. nop + | b >1 + |. sw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + |.endif + | + |->vm_rethook: // Dispatch target for return hooks. + | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | andi AT, TMP3, HOOK_ACTIVE // Hook already active? + | beqz AT, >1 + |5: // Re-dispatch to static ins. + |. lw AT, GG_DISP2STATIC(TMP0) // Assumes TMP0 holds DISPATCH+OP*4. + | jr AT + |. nop + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | lw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andi AT, TMP3, HOOK_ACTIVE // Hook already active? + | bnez AT, <5 + |. andi AT, TMP3, LUA_MASKLINE|LUA_MASKCOUNT + | beqz AT, <5 + |. addiu TMP2, TMP2, -1 + | beqz TMP2, >1 + |. sw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andi AT, TMP3, LUA_MASKLINE + | beqz AT, <5 + |1: + |. load_got lj_dispatch_ins + | sw MULTRES, SAVE_MULTRES + | move CARG2, PC + | sw BASE, L->base + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | call_intern lj_dispatch_ins // (lua_State *L, const BCIns *pc) + |. move CARG1, L + |3: + | lw BASE, L->base + |4: // Re-dispatch to static ins. + | lw INS, -4(PC) + | decode_OP4a TMP1, INS + | decode_OP4b TMP1 + | addu TMP0, DISPATCH, TMP1 + | decode_RD8a RD, INS + | lw AT, GG_DISP2STATIC(TMP0) + | decode_RA8a RA, INS + | decode_RD8b RD + | jr AT + | decode_RA8b RA + | + |->cont_hook: // Continue from hook yield. + | addiu PC, PC, 4 + | b <4 + |. lw MULTRES, -24+LO(RB) // Restore MULTRES for *M ins. + | + |->vm_hotloop: // Hot loop counter underflow. + |.if JIT + | lw LFUNC:TMP1, FRAME_FUNC(BASE) + | addiu CARG1, DISPATCH, GG_DISP2J + | sw PC, SAVE_PC + | lw TMP1, LFUNC:TMP1->pc + | move CARG2, PC + | sw L, DISPATCH_J(L)(DISPATCH) + | lbu TMP1, PC2PROTO(framesize)(TMP1) + | load_got lj_trace_hot + | sw BASE, L->base + | sll TMP1, TMP1, 3 + | addu TMP1, BASE, TMP1 + | call_intern lj_trace_hot // (jit_State *J, const BCIns *pc) + |. sw TMP1, L->top + | b <3 + |. nop + |.endif + | + |->vm_callhook: // Dispatch target for call hooks. + |.if JIT + | b >1 + |.endif + |. move CARG2, PC + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | ori CARG2, PC, 1 + |1: + |.endif + | load_got lj_dispatch_call + | addu TMP0, BASE, RC + | sw PC, SAVE_PC + | sw BASE, L->base + | subu RA, RA, BASE + | sw TMP0, L->top + | call_intern lj_dispatch_call // (lua_State *L, const BCIns *pc) + |. move CARG1, L + | // Returns ASMFunction. + | lw BASE, L->base + | lw TMP0, L->top + | sw r0, SAVE_PC // Invalidate for subsequent line hook. + | subu NARGS8:RC, TMP0, BASE + | addu RA, BASE, RA + | lw LFUNC:RB, FRAME_FUNC(BASE) + | jr CRET1 + |. lw INS, -4(PC) + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro savex_, a, b + | sdc1 f..a, 16+a*8(sp) + | sw r..a, 16+32*8+a*4(sp) + | sw r..b, 16+32*8+b*4(sp) + |.endmacro + | + |->vm_exit_handler: + |.if JIT + | addiu sp, sp, -(16+32*8+32*4) + | savex_ 0, 1 + | savex_ 2, 3 + | savex_ 4, 5 + | savex_ 6, 7 + | savex_ 8, 9 + | savex_ 10, 11 + | savex_ 12, 13 + | savex_ 14, 15 + | savex_ 16, 17 + | savex_ 18, 19 + | savex_ 20, 21 + | savex_ 22, 23 + | savex_ 24, 25 + | savex_ 26, 27 + | sdc1 f28, 16+28*8(sp) + | sw r28, 16+32*8+28*4(sp) + | sdc1 f30, 16+30*8(sp) + | sw r30, 16+32*8+30*4(sp) + | sw r0, 16+32*8+31*4(sp) // Clear RID_TMP. + | li_vmstate EXIT + | addiu TMP2, sp, 16+32*8+32*4 // Recompute original value of sp. + | addiu DISPATCH, JGL, -GG_DISP2G-32768 + | lw TMP1, 0(TMP2) // Load exit number. + | st_vmstate + | sw TMP2, 16+32*8+29*4(sp) // Store sp in RID_SP. + | lw L, DISPATCH_GL(jit_L)(DISPATCH) + | lw BASE, DISPATCH_GL(jit_base)(DISPATCH) + | load_got lj_trace_exit + | sw L, DISPATCH_J(L)(DISPATCH) + | sw ra, DISPATCH_J(parent)(DISPATCH) // Store trace number. + | sw TMP1, DISPATCH_J(exitno)(DISPATCH) // Store exit number. + | addiu CARG1, DISPATCH, GG_DISP2J + | sw BASE, L->base + | call_intern lj_trace_exit // (jit_State *J, ExitState *ex) + |. addiu CARG2, sp, 16 + | // Returns MULTRES (unscaled) or negated error code. + | lw TMP1, L->cframe + | li AT, -4 + | lw BASE, L->base + | and sp, TMP1, AT + | lw PC, SAVE_PC // Get SAVE_PC. + | b >1 + |. sw L, SAVE_L // Set SAVE_L (on-trace resume/yield). + |.endif + |->vm_exit_interp: + |.if JIT + | // CRET1 = MULTRES or negated error code, BASE, PC and JGL set. + | lw L, SAVE_L + | addiu DISPATCH, JGL, -GG_DISP2G-32768 + |1: + | bltz CRET1, >3 // Check for error from exit. + |. lw LFUNC:TMP1, FRAME_FUNC(BASE) + | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | sll MULTRES, CRET1, 3 + | li TISNIL, LJ_TNIL + | sw MULTRES, SAVE_MULTRES + | mtc1 TMP3, TOBIT + | lw TMP1, LFUNC:TMP1->pc + | sw r0, DISPATCH_GL(jit_L)(DISPATCH) + | lw KBASE, PC2PROTO(k)(TMP1) + | cvt.d.s TOBIT, TOBIT + | // Modified copy of ins_next which handles function header dispatch, too. + | lw INS, 0(PC) + | addiu PC, PC, 4 + | // Assumes TISNIL == ~LJ_VMST_INTERP == -1 + | sw TISNIL, DISPATCH_GL(vmstate)(DISPATCH) + | decode_OP4a TMP1, INS + | decode_OP4b TMP1 + | sltiu TMP2, TMP1, BC_FUNCF*4 // Function header? + | addu TMP0, DISPATCH, TMP1 + | decode_RD8a RD, INS + | lw AT, 0(TMP0) + | decode_RA8a RA, INS + | beqz TMP2, >2 + |. decode_RA8b RA + | jr AT + |. decode_RD8b RD + |2: + | addiu RC, MULTRES, -8 + | jr AT + |. addu RA, RA, BASE + | + |3: // Rethrow error from the right C frame. + | load_got lj_err_throw + | negu CARG2, CRET1 + | call_intern lj_err_throw // (lua_State *L, int errcode) + |. move CARG1, L + |.endif + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Modifies AT, TMP0, FRET1, FRET2, f4. Keeps all others incl. FARG1. + |.macro vm_round, func + | lui TMP0, 0x4330 // Hiword of 2^52 (double). + | mtc1 r0, f4 + | mtc1 TMP0, f5 + | abs.d FRET2, FARG1 // |x| + | mfc1 AT, f13 + | c.olt.d 0, FRET2, f4 + | add.d FRET1, FRET2, f4 // (|x| + 2^52) - 2^52 + | bc1f 0, >1 // Truncate only if |x| < 2^52. + |. sub.d FRET1, FRET1, f4 + | slt AT, AT, r0 + |.if "func" == "ceil" + | lui TMP0, 0xbff0 // Hiword of -1 (double). Preserves -0. + |.else + | lui TMP0, 0x3ff0 // Hiword of +1 (double). + |.endif + |.if "func" == "trunc" + | mtc1 TMP0, f5 + | c.olt.d 0, FRET2, FRET1 // |x| < result? + | sub.d FRET2, FRET1, f4 + | movt.d FRET1, FRET2, 0 // If yes, subtract +1. + | neg.d FRET2, FRET1 + | jr ra + |. movn.d FRET1, FRET2, AT // Merge sign bit back in. + |.else + | neg.d FRET2, FRET1 + | mtc1 TMP0, f5 + | movn.d FRET1, FRET2, AT // Merge sign bit back in. + |.if "func" == "ceil" + | c.olt.d 0, FRET1, FARG1 // x > result? + |.else + | c.olt.d 0, FARG1, FRET1 // x < result? + |.endif + | sub.d FRET2, FRET1, f4 // If yes, subtract +-1. + | jr ra + |. movt.d FRET1, FRET2, 0 + |.endif + |1: + | jr ra + |. mov.d FRET1, FARG1 + |.endmacro + | + |->vm_floor: + | vm_round floor + |->vm_ceil: + | vm_round ceil + |->vm_trunc: + |.if JIT + | vm_round trunc + |.endif + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Handler for callback functions. Callback slot number in r1, g in r2. + |->vm_ffi_callback: + |.if FFI + |.type CTSTATE, CTState, PC + | saveregs + | lw CTSTATE, GL:r2->ctype_state + | addiu DISPATCH, r2, GG_G2DISP + | load_got lj_ccallback_enter + | sw r1, CTSTATE->cb.slot + | sw CARG1, CTSTATE->cb.gpr[0] + | sw CARG2, CTSTATE->cb.gpr[1] + | sdc1 FARG1, CTSTATE->cb.fpr[0] + | sw CARG3, CTSTATE->cb.gpr[2] + | sw CARG4, CTSTATE->cb.gpr[3] + | sdc1 FARG2, CTSTATE->cb.fpr[1] + | addiu TMP0, sp, CFRAME_SPACE+16 + | sw TMP0, CTSTATE->cb.stack + | sw r0, SAVE_PC // Any value outside of bytecode is ok. + | move CARG2, sp + | call_intern lj_ccallback_enter // (CTState *cts, void *cf) + |. move CARG1, CTSTATE + | // Returns lua_State *. + | lw BASE, L:CRET1->base + | lw RC, L:CRET1->top + | move L, CRET1 + | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | lw LFUNC:RB, FRAME_FUNC(BASE) + | mtc1 TMP3, TOBIT + | li_vmstate INTERP + | li TISNIL, LJ_TNIL + | subu RC, RC, BASE + | st_vmstate + | cvt.d.s TOBIT, TOBIT + | ins_callt + |.endif + | + |->cont_ffi_callback: // Return from FFI callback. + |.if FFI + | load_got lj_ccallback_leave + | lw CTSTATE, DISPATCH_GL(ctype_state)(DISPATCH) + | sw BASE, L->base + | sw RB, L->top + | sw L, CTSTATE->L + | move CARG2, RA + | call_intern lj_ccallback_leave // (CTState *cts, TValue *o) + |. move CARG1, CTSTATE + | lw CRET1, CTSTATE->cb.gpr[0] + | ldc1 FRET1, CTSTATE->cb.fpr[0] + | lw CRET2, CTSTATE->cb.gpr[1] + | b ->vm_leave_unw + |. ldc1 FRET2, CTSTATE->cb.fpr[1] + |.endif + | + |->vm_ffi_call: // Call C function via FFI. + | // Caveat: needs special frame unwinding, see below. + |.if FFI + | .type CCSTATE, CCallState, CARG1 + | lw TMP1, CCSTATE->spadj + | lbu CARG2, CCSTATE->nsp + | move TMP2, sp + | subu sp, sp, TMP1 + | sw ra, -4(TMP2) + | sll CARG2, CARG2, 2 + | sw r16, -8(TMP2) + | sw CCSTATE, -12(TMP2) + | move r16, TMP2 + | addiu TMP1, CCSTATE, offsetof(CCallState, stack) + | addiu TMP2, sp, 16 + | beqz CARG2, >2 + |. addu TMP3, TMP1, CARG2 + |1: + | lw TMP0, 0(TMP1) + | addiu TMP1, TMP1, 4 + | sltu AT, TMP1, TMP3 + | sw TMP0, 0(TMP2) + | bnez AT, <1 + |. addiu TMP2, TMP2, 4 + |2: + | lw CFUNCADDR, CCSTATE->func + | lw CARG2, CCSTATE->gpr[1] + | lw CARG3, CCSTATE->gpr[2] + | lw CARG4, CCSTATE->gpr[3] + | ldc1 FARG1, CCSTATE->fpr[0] + | ldc1 FARG2, CCSTATE->fpr[1] + | jalr CFUNCADDR + |. lw CARG1, CCSTATE->gpr[0] // Do this last, since CCSTATE is CARG1. + | lw CCSTATE:TMP1, -12(r16) + | lw TMP2, -8(r16) + | lw ra, -4(r16) + | sw CRET1, CCSTATE:TMP1->gpr[0] + | sw CRET2, CCSTATE:TMP1->gpr[1] + | sdc1 FRET1, CCSTATE:TMP1->fpr[0] + | sdc1 FRET2, CCSTATE:TMP1->fpr[1] + | move sp, r16 + | jr ra + |. move r16, TMP2 + |.endif + |// Note: vm_ffi_call must be the last function in this object file! + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1*8, RD = src2*8, JMP with RD = target + | addu CARG2, BASE, RA + | addu CARG3, BASE, RD + | lw TMP0, HI(CARG2) + | lw TMP1, HI(CARG3) + | ldc1 f0, 0(CARG2) + | ldc1 f2, 0(CARG3) + | sltiu TMP0, TMP0, LJ_TISNUM + | sltiu TMP1, TMP1, LJ_TISNUM + | lhu TMP2, OFS_RD(PC) + | and TMP0, TMP0, TMP1 + | addiu PC, PC, 4 + | beqz TMP0, ->vmeta_comp + |. lui TMP1, (-(BCBIAS_J*4 >> 16) & 65535) + | decode_RD4b TMP2 + | addu TMP2, TMP2, TMP1 + if (op == BC_ISLT || op == BC_ISGE) { + | c.olt.d f0, f2 + } else { + | c.ole.d f0, f2 + } + if (op == BC_ISLT || op == BC_ISLE) { + | movf TMP2, r0 + } else { + | movt TMP2, r0 + } + | addu PC, PC, TMP2 + |1: + | ins_next + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | // RA = src1*8, RD = src2*8, JMP with RD = target + | addu RA, BASE, RA + | addiu PC, PC, 4 + | lw TMP0, HI(RA) + | ldc1 f0, 0(RA) + | addu RD, BASE, RD + | lhu TMP2, -4+OFS_RD(PC) + | lw TMP1, HI(RD) + | ldc1 f2, 0(RD) + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | sltiu AT, TMP0, LJ_TISNUM + | sltiu CARG1, TMP1, LJ_TISNUM + | decode_RD4b TMP2 + | and AT, AT, CARG1 + | beqz AT, >5 + |. addu TMP2, TMP2, TMP3 + | c.eq.d f0, f2 + if (vk) { + | movf TMP2, r0 + } else { + | movt TMP2, r0 + } + |1: + | addu PC, PC, TMP2 + | ins_next + |5: // Either or both types are not numbers. + | lw CARG2, LO(RA) + | lw CARG3, LO(RD) + |.if FFI + | li TMP3, LJ_TCDATA + | beq TMP0, TMP3, ->vmeta_equal_cd + |.endif + |. sltiu AT, TMP0, LJ_TISPRI // Not a primitive? + |.if FFI + | beq TMP1, TMP3, ->vmeta_equal_cd + |.endif + |. xor TMP3, CARG2, CARG3 // Same tv? + | xor TMP1, TMP1, TMP0 // Same type? + | sltiu CARG1, TMP0, LJ_TISTABUD+1 // Table or userdata? + | movz TMP3, r0, AT // Ignore tv if primitive. + | movn CARG1, r0, TMP1 // Tab/ud and same type? + | or AT, TMP1, TMP3 // Same type && (pri||same tv). + | movz CARG1, r0, AT + | beqz CARG1, <1 // Done if not tab/ud or not same type or same tv. + if (vk) { + |. movn TMP2, r0, AT + } else { + |. movz TMP2, r0, AT + } + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | lw TAB:TMP1, TAB:CARG2->metatable + | beqz TAB:TMP1, <1 // No metatable? + |. nop + | lbu TMP1, TAB:TMP1->nomm + | andi TMP1, TMP1, 1<vmeta_equal // Handle __eq metamethod. + |. li CARG4, 1-vk // ne = 0 or 1. + break; + + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | // RA = src*8, RD = str_const*8 (~), JMP with RD = target + | addu RA, BASE, RA + | addiu PC, PC, 4 + | lw TMP0, HI(RA) + | srl RD, RD, 1 + | lw STR:TMP3, LO(RA) + | subu RD, KBASE, RD + | lhu TMP2, -4+OFS_RD(PC) + |.if FFI + | li AT, LJ_TCDATA + | beq TMP0, AT, ->vmeta_equal_cd + |.endif + |. lw STR:TMP1, -4(RD) // KBASE-4-str_const*4 + | addiu TMP0, TMP0, -LJ_TSTR + | decode_RD4b TMP2 + | xor TMP1, STR:TMP1, STR:TMP3 + | or TMP0, TMP0, TMP1 + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | addu TMP2, TMP2, TMP3 + if (vk) { + | movn TMP2, r0, TMP0 + } else { + | movz TMP2, r0, TMP0 + } + | addu PC, PC, TMP2 + | ins_next + break; + + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | // RA = src*8, RD = num_const*8, JMP with RD = target + | addu RA, BASE, RA + | addiu PC, PC, 4 + | lw TMP0, HI(RA) + | ldc1 f0, 0(RA) + | addu RD, KBASE, RD + | lhu TMP2, -4+OFS_RD(PC) + | ldc1 f2, 0(RD) + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | sltiu AT, TMP0, LJ_TISNUM + | decode_RD4b TMP2 + |.if FFI + | beqz AT, >5 + |.else + | beqz AT, >1 + |.endif + |. addu TMP2, TMP2, TMP3 + | c.eq.d f0, f2 + if (vk) { + | movf TMP2, r0 + | addu PC, PC, TMP2 + |1: + } else { + | movt TMP2, r0 + |1: + | addu PC, PC, TMP2 + } + | ins_next + |.if FFI + |5: + | li AT, LJ_TCDATA + | beq TMP0, AT, ->vmeta_equal_cd + |. nop + | b <1 + |. nop + |.endif + break; + + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target + | addu RA, BASE, RA + | srl TMP1, RD, 3 + | lw TMP0, HI(RA) + | lhu TMP2, OFS_RD(PC) + | not TMP1, TMP1 + | addiu PC, PC, 4 + |.if FFI + | li AT, LJ_TCDATA + | beq TMP0, AT, ->vmeta_equal_cd + |.endif + |. xor TMP0, TMP0, TMP1 + | decode_RD4b TMP2 + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | addu TMP2, TMP2, TMP3 + if (vk) { + | movn TMP2, r0, TMP0 + } else { + | movz TMP2, r0, TMP0 + } + | addu PC, PC, TMP2 + | ins_next + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | // RA = dst*8 or unused, RD = src*8, JMP with RD = target + | addu RD, BASE, RD + | lhu TMP2, OFS_RD(PC) + | lw TMP0, HI(RD) + | addiu PC, PC, 4 + if (op == BC_IST || op == BC_ISF) { + | sltiu TMP0, TMP0, LJ_TISTRUECOND + | decode_RD4b TMP2 + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | addu TMP2, TMP2, TMP3 + if (op == BC_IST) { + | movz TMP2, r0, TMP0 + } else { + | movn TMP2, r0, TMP0 + } + | addu PC, PC, TMP2 + } else { + | sltiu TMP0, TMP0, LJ_TISTRUECOND + | ldc1 f0, 0(RD) + if (op == BC_ISTC) { + | beqz TMP0, >1 + } else { + | bnez TMP0, >1 + } + |. addu RA, BASE, RA + | decode_RD4b TMP2 + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | addu TMP2, TMP2, TMP3 + | sdc1 f0, 0(RA) + | addu PC, PC, TMP2 + |1: + } + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | // RA = dst*8, RD = src*8 + | addu RD, BASE, RD + | addu RA, BASE, RA + | ldc1 f0, 0(RD) + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + break; + case BC_NOT: + | // RA = dst*8, RD = src*8 + | addu RD, BASE, RD + | addu RA, BASE, RA + | lw TMP0, HI(RD) + | li TMP1, LJ_TFALSE + | sltiu TMP0, TMP0, LJ_TISTRUECOND + | addiu TMP1, TMP0, LJ_TTRUE + | ins_next1 + | sw TMP1, HI(RA) + | ins_next2 + break; + case BC_UNM: + | // RA = dst*8, RD = src*8 + | addu CARG3, BASE, RD + | addu RA, BASE, RA + | lw TMP0, HI(CARG3) + | ldc1 f0, 0(CARG3) + | sltiu AT, TMP0, LJ_TISNUM + | beqz AT, ->vmeta_unm + |. neg.d f0, f0 + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + break; + case BC_LEN: + | // RA = dst*8, RD = src*8 + | addu CARG2, BASE, RD + | addu RA, BASE, RA + | lw TMP0, HI(CARG2) + | lw CARG1, LO(CARG2) + | li AT, LJ_TSTR + | bne TMP0, AT, >2 + |. li AT, LJ_TTAB + | lw CRET1, STR:CARG1->len + |1: + | mtc1 CRET1, f0 + | cvt.d.w f0, f0 + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + |2: + | bne TMP0, AT, ->vmeta_len + |. nop +#if LJ_52 + | lw TAB:TMP2, TAB:CARG1->metatable + | bnez TAB:TMP2, >9 + |. nop + |3: +#endif + |->BC_LEN_Z: + | load_got lj_tab_len + | call_intern lj_tab_len // (GCtab *t) + |. nop + | // Returns uint32_t (but less than 2^31). + | b <1 + |. nop +#if LJ_52 + |9: + | lbu TMP0, TAB:TMP2->nomm + | andi TMP0, TMP0, 1<vmeta_len + |. nop +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithpre + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 + ||switch (vk) { + ||case 0: + | addu CARG3, BASE, RB + | addu CARG4, KBASE, RC + | lw TMP1, HI(CARG3) + | ldc1 f20, 0(CARG3) + | ldc1 f22, 0(CARG4) + | sltiu AT, TMP1, LJ_TISNUM + || break; + ||case 1: + | addu CARG4, BASE, RB + | addu CARG3, KBASE, RC + | lw TMP1, HI(CARG4) + | ldc1 f22, 0(CARG4) + | ldc1 f20, 0(CARG3) + | sltiu AT, TMP1, LJ_TISNUM + || break; + ||default: + | addu CARG3, BASE, RB + | addu CARG4, BASE, RC + | lw TMP1, HI(CARG3) + | lw TMP2, HI(CARG4) + | ldc1 f20, 0(CARG3) + | ldc1 f22, 0(CARG4) + | sltiu AT, TMP1, LJ_TISNUM + | sltiu TMP0, TMP2, LJ_TISNUM + | and AT, AT, TMP0 + || break; + ||} + | beqz AT, ->vmeta_arith + |. addu RA, BASE, RA + |.endmacro + | + |.macro fpmod, a, b, c + |->BC_MODVN_Z: + | bal ->vm_floor // floor(b/c) + |. div.d FARG1, b, c + | mul.d a, FRET1, c + | sub.d a, b, a // b - floor(b/c)*c + |.endmacro + | + |.macro ins_arith, ins + | ins_arithpre + |.if "ins" == "fpmod_" + | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. + |. nop + |.else + | ins f0, f20, f22 + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + |.endif + |.endmacro + + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + | ins_arith add.d + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + | ins_arith sub.d + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arith mul.d + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arith div.d + break; + case BC_MODVN: + | ins_arith fpmod + break; + case BC_MODNV: case BC_MODVV: + | ins_arith fpmod_ + break; + case BC_POW: + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | addu CARG3, BASE, RB + | addu CARG4, BASE, RC + | lw TMP1, HI(CARG3) + | lw TMP2, HI(CARG4) + | ldc1 FARG1, 0(CARG3) + | ldc1 FARG2, 0(CARG4) + | sltiu AT, TMP1, LJ_TISNUM + | sltiu TMP0, TMP2, LJ_TISNUM + | and AT, AT, TMP0 + | load_got pow + | beqz AT, ->vmeta_arith + |. addu RA, BASE, RA + | call_extern + |. nop + | ins_next1 + | sdc1 FRET1, 0(RA) + | ins_next2 + break; + + case BC_CAT: + | // RA = dst*8, RB = src_start*8, RC = src_end*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | subu CARG3, RC, RB + | sw BASE, L->base + | addu CARG2, BASE, RC + | move MULTRES, RB + |->BC_CAT_Z: + | load_got lj_meta_cat + | srl CARG3, CARG3, 3 + | sw PC, SAVE_PC + | call_intern lj_meta_cat // (lua_State *L, TValue *top, int left) + |. move CARG1, L + | // Returns NULL (finished) or TValue * (metamethod). + | bnez CRET1, ->vmeta_binop + |. lw BASE, L->base + | addu RB, BASE, MULTRES + | ldc1 f0, 0(RB) + | addu RA, BASE, RA + | ins_next1 + | sdc1 f0, 0(RA) // Copy result from RB to RA. + | ins_next2 + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | // RA = dst*8, RD = str_const*8 (~) + | srl TMP1, RD, 1 + | subu TMP1, KBASE, TMP1 + | ins_next1 + | lw TMP0, -4(TMP1) // KBASE-4-str_const*4 + | addu RA, BASE, RA + | li TMP2, LJ_TSTR + | sw TMP0, LO(RA) + | sw TMP2, HI(RA) + | ins_next2 + break; + case BC_KCDATA: + |.if FFI + | // RA = dst*8, RD = cdata_const*8 (~) + | srl TMP1, RD, 1 + | subu TMP1, KBASE, TMP1 + | ins_next1 + | lw TMP0, -4(TMP1) // KBASE-4-cdata_const*4 + | addu RA, BASE, RA + | li TMP2, LJ_TCDATA + | sw TMP0, LO(RA) + | sw TMP2, HI(RA) + | ins_next2 + |.endif + break; + case BC_KSHORT: + | // RA = dst*8, RD = int16_literal*8 + | sra RD, INS, 16 + | mtc1 RD, f0 + | addu RA, BASE, RA + | cvt.d.w f0, f0 + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + break; + case BC_KNUM: + | // RA = dst*8, RD = num_const*8 + | addu RD, KBASE, RD + | addu RA, BASE, RA + | ldc1 f0, 0(RD) + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + break; + case BC_KPRI: + | // RA = dst*8, RD = primitive_type*8 (~) + | srl TMP1, RD, 3 + | addu RA, BASE, RA + | not TMP0, TMP1 + | ins_next1 + | sw TMP0, HI(RA) + | ins_next2 + break; + case BC_KNIL: + | // RA = base*8, RD = end*8 + | addu RA, BASE, RA + | sw TISNIL, HI(RA) + | addiu RA, RA, 8 + | addu RD, BASE, RD + |1: + | sw TISNIL, HI(RA) + | slt AT, RA, RD + | bnez AT, <1 + |. addiu RA, RA, 8 + | ins_next_ + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | // RA = dst*8, RD = uvnum*8 + | lw LFUNC:RB, FRAME_FUNC(BASE) + | srl RD, RD, 1 + | addu RD, RD, LFUNC:RB + | lw UPVAL:RB, LFUNC:RD->uvptr + | ins_next1 + | lw TMP1, UPVAL:RB->v + | ldc1 f0, 0(TMP1) + | addu RA, BASE, RA + | sdc1 f0, 0(RA) + | ins_next2 + break; + case BC_USETV: + | // RA = uvnum*8, RD = src*8 + | lw LFUNC:RB, FRAME_FUNC(BASE) + | srl RA, RA, 1 + | addu RD, BASE, RD + | addu RA, RA, LFUNC:RB + | ldc1 f0, 0(RD) + | lw UPVAL:RB, LFUNC:RA->uvptr + | lbu TMP3, UPVAL:RB->marked + | lw CARG2, UPVAL:RB->v + | andi TMP3, TMP3, LJ_GC_BLACK // isblack(uv) + | lbu TMP0, UPVAL:RB->closed + | lw TMP2, HI(RD) + | sdc1 f0, 0(CARG2) + | li AT, LJ_GC_BLACK|1 + | or TMP3, TMP3, TMP0 + | beq TMP3, AT, >2 // Upvalue is closed and black? + |. addiu TMP2, TMP2, -(LJ_TNUMX+1) + |1: + | ins_next + | + |2: // Check if new value is collectable. + | sltiu AT, TMP2, LJ_TISGCV - (LJ_TNUMX+1) + | beqz AT, <1 // tvisgcv(v) + |. lw TMP1, LO(RD) + | lbu TMP3, GCOBJ:TMP1->gch.marked + | andi TMP3, TMP3, LJ_GC_WHITES // iswhite(v) + | beqz TMP3, <1 + |. load_got lj_gc_barrieruv + | // Crossed a write barrier. Move the barrier forward. + | call_intern lj_gc_barrieruv // (global_State *g, TValue *tv) + |. addiu CARG1, DISPATCH, GG_DISP2G + | b <1 + |. nop + break; + case BC_USETS: + | // RA = uvnum*8, RD = str_const*8 (~) + | lw LFUNC:RB, FRAME_FUNC(BASE) + | srl RA, RA, 1 + | srl TMP1, RD, 1 + | addu RA, RA, LFUNC:RB + | subu TMP1, KBASE, TMP1 + | lw UPVAL:RB, LFUNC:RA->uvptr + | lw STR:TMP1, -4(TMP1) // KBASE-4-str_const*4 + | lbu TMP2, UPVAL:RB->marked + | lw CARG2, UPVAL:RB->v + | lbu TMP3, STR:TMP1->marked + | andi AT, TMP2, LJ_GC_BLACK // isblack(uv) + | lbu TMP2, UPVAL:RB->closed + | li TMP0, LJ_TSTR + | sw STR:TMP1, LO(CARG2) + | bnez AT, >2 + |. sw TMP0, HI(CARG2) + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | beqz TMP2, <1 + |. andi AT, TMP3, LJ_GC_WHITES // iswhite(str) + | beqz AT, <1 + |. load_got lj_gc_barrieruv + | // Crossed a write barrier. Move the barrier forward. + | call_intern lj_gc_barrieruv // (global_State *g, TValue *tv) + |. addiu CARG1, DISPATCH, GG_DISP2G + | b <1 + |. nop + break; + case BC_USETN: + | // RA = uvnum*8, RD = num_const*8 + | lw LFUNC:RB, FRAME_FUNC(BASE) + | srl RA, RA, 1 + | addu RD, KBASE, RD + | addu RA, RA, LFUNC:RB + | ldc1 f0, 0(RD) + | lw UPVAL:RB, LFUNC:RA->uvptr + | ins_next1 + | lw TMP1, UPVAL:RB->v + | sdc1 f0, 0(TMP1) + | ins_next2 + break; + case BC_USETP: + | // RA = uvnum*8, RD = primitive_type*8 (~) + | lw LFUNC:RB, FRAME_FUNC(BASE) + | srl RA, RA, 1 + | srl TMP0, RD, 3 + | addu RA, RA, LFUNC:RB + | not TMP0, TMP0 + | lw UPVAL:RB, LFUNC:RA->uvptr + | ins_next1 + | lw TMP1, UPVAL:RB->v + | sw TMP0, HI(TMP1) + | ins_next2 + break; + + case BC_UCLO: + | // RA = level*8, RD = target + | lw TMP2, L->openupval + | branch_RD // Do this first since RD is not saved. + | load_got lj_func_closeuv + | sw BASE, L->base + | beqz TMP2, >1 + |. move CARG1, L + | call_intern lj_func_closeuv // (lua_State *L, TValue *level) + |. addu CARG2, BASE, RA + | lw BASE, L->base + |1: + | ins_next + break; + + case BC_FNEW: + | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) + | srl TMP1, RD, 1 + | load_got lj_func_newL_gc + | subu TMP1, KBASE, TMP1 + | lw CARG3, FRAME_FUNC(BASE) + | lw CARG2, -4(TMP1) // KBASE-4-tab_const*4 + | sw BASE, L->base + | sw PC, SAVE_PC + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | call_intern lj_func_newL_gc + |. move CARG1, L + | // Returns GCfuncL *. + | lw BASE, L->base + | li TMP0, LJ_TFUNC + | ins_next1 + | addu RA, BASE, RA + | sw TMP0, HI(RA) + | sw LFUNC:CRET1, LO(RA) + | ins_next2 + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + case BC_TDUP: + | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) + | lw TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | lw TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | sw BASE, L->base + | sw PC, SAVE_PC + | sltu AT, TMP0, TMP1 + | beqz AT, >5 + |1: + if (op == BC_TNEW) { + | load_got lj_tab_new + | srl CARG2, RD, 3 + | andi CARG2, CARG2, 0x7ff + | li TMP0, 0x801 + | addiu AT, CARG2, -0x7ff + | srl CARG3, RD, 14 + | movz CARG2, TMP0, AT + | // (lua_State *L, int32_t asize, uint32_t hbits) + | call_intern lj_tab_new + |. move CARG1, L + | // Returns Table *. + } else { + | load_got lj_tab_dup + | srl TMP1, RD, 1 + | subu TMP1, KBASE, TMP1 + | move CARG1, L + | call_intern lj_tab_dup // (lua_State *L, Table *kt) + |. lw CARG2, -4(TMP1) // KBASE-4-str_const*4 + | // Returns Table *. + } + | lw BASE, L->base + | ins_next1 + | addu RA, BASE, RA + | li TMP0, LJ_TTAB + | sw TAB:CRET1, LO(RA) + | sw TMP0, HI(RA) + | ins_next2 + |5: + | load_got lj_gc_step_fixtop + | move MULTRES, RD + | call_intern lj_gc_step_fixtop // (lua_State *L) + |. move CARG1, L + | b <1 + |. move RD, MULTRES + break; + + case BC_GGET: + | // RA = dst*8, RD = str_const*8 (~) + case BC_GSET: + | // RA = src*8, RD = str_const*8 (~) + | lw LFUNC:TMP2, FRAME_FUNC(BASE) + | srl TMP1, RD, 1 + | subu TMP1, KBASE, TMP1 + | lw TAB:RB, LFUNC:TMP2->env + | lw STR:RC, -4(TMP1) // KBASE-4-str_const*4 + if (op == BC_GGET) { + | b ->BC_TGETS_Z + } else { + | b ->BC_TSETS_Z + } + |. addu RA, BASE, RA + break; + + case BC_TGETV: + | // RA = dst*8, RB = table*8, RC = key*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | addu CARG2, BASE, RB + | addu CARG3, BASE, RC + | lw TMP1, HI(CARG2) + | lw TMP2, HI(CARG3) + | lw TAB:RB, LO(CARG2) + | li AT, LJ_TTAB + | ldc1 f0, 0(CARG3) + | bne TMP1, AT, ->vmeta_tgetv + |. addu RA, BASE, RA + | sltiu AT, TMP2, LJ_TISNUM + | beqz AT, >5 + |. li AT, LJ_TSTR + | + | // Convert number key to integer, check for integerness and range. + | cvt.w.d f2, f0 + | lw TMP0, TAB:RB->asize + | mfc1 TMP2, f2 + | cvt.d.w f4, f2 + | lw TMP1, TAB:RB->array + | c.eq.d f0, f4 + | sltu AT, TMP2, TMP0 + | movf AT, r0 + | sll TMP2, TMP2, 3 + | beqz AT, ->vmeta_tgetv // Integer key and in array part? + |. addu TMP2, TMP1, TMP2 + | lw TMP0, HI(TMP2) + | beq TMP0, TISNIL, >2 + |. ldc1 f0, 0(TMP2) + |1: + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + | + |2: // Check for __index if table value is nil. + | lw TAB:TMP2, TAB:RB->metatable + | beqz TAB:TMP2, <1 // No metatable: done. + |. nop + | lbu TMP0, TAB:TMP2->nomm + | andi TMP0, TMP0, 1<vmeta_tgetv + |. nop + | + |5: + | bne TMP2, AT, ->vmeta_tgetv + |. lw STR:RC, LO(CARG3) + | b ->BC_TGETS_Z // String key? + |. nop + break; + case BC_TGETS: + | // RA = dst*8, RB = table*8, RC = str_const*4 (~) + | decode_RB8a RB, INS + | decode_RB8b RB + | addu CARG2, BASE, RB + | decode_RC4a RC, INS + | lw TMP0, HI(CARG2) + | decode_RC4b RC + | li AT, LJ_TTAB + | lw TAB:RB, LO(CARG2) + | subu CARG3, KBASE, RC + | lw STR:RC, -4(CARG3) // KBASE-4-str_const*4 + | bne TMP0, AT, ->vmeta_tgets1 + |. addu RA, BASE, RA + |->BC_TGETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 + | lw TMP0, TAB:RB->hmask + | lw TMP1, STR:RC->hash + | lw NODE:TMP2, TAB:RB->node + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | sll TMP0, TMP1, 5 + | sll TMP1, TMP1, 3 + | subu TMP1, TMP0, TMP1 + | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |1: + | lw CARG1, offsetof(Node, key)+HI(NODE:TMP2) + | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) + | lw NODE:TMP1, NODE:TMP2->next + | lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) + | addiu CARG1, CARG1, -LJ_TSTR + | xor TMP0, TMP0, STR:RC + | or AT, CARG1, TMP0 + | bnez AT, >4 + |. lw TAB:TMP3, TAB:RB->metatable + | beq CARG2, TISNIL, >5 // Key found, but nil value? + |. lw CARG1, offsetof(Node, val)+LO(NODE:TMP2) + |3: + | ins_next1 + | sw CARG2, HI(RA) + | sw CARG1, LO(RA) + | ins_next2 + | + |4: // Follow hash chain. + | bnez NODE:TMP1, <1 + |. move NODE:TMP2, NODE:TMP1 + | // End of hash chain: key not found, nil result. + | + |5: // Check for __index if table value is nil. + | beqz TAB:TMP3, <3 // No metatable: done. + |. li CARG2, LJ_TNIL + | lbu TMP0, TAB:TMP3->nomm + | andi TMP0, TMP0, 1<vmeta_tgets + |. nop + break; + case BC_TGETB: + | // RA = dst*8, RB = table*8, RC = index*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | addu CARG2, BASE, RB + | decode_RDtoRC8 RC, RD + | lw CARG1, HI(CARG2) + | li AT, LJ_TTAB + | lw TAB:RB, LO(CARG2) + | addu RA, BASE, RA + | bne CARG1, AT, ->vmeta_tgetb + |. srl TMP0, RC, 3 + | lw TMP1, TAB:RB->asize + | lw TMP2, TAB:RB->array + | sltu AT, TMP0, TMP1 + | beqz AT, ->vmeta_tgetb + |. addu RC, TMP2, RC + | lw TMP1, HI(RC) + | beq TMP1, TISNIL, >5 + |. ldc1 f0, 0(RC) + |1: + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + | + |5: // Check for __index if table value is nil. + | lw TAB:TMP2, TAB:RB->metatable + | beqz TAB:TMP2, <1 // No metatable: done. + |. nop + | lbu TMP1, TAB:TMP2->nomm + | andi TMP1, TMP1, 1<vmeta_tgetb // Caveat: preserve TMP0! + |. nop + break; + + case BC_TSETV: + | // RA = src*8, RB = table*8, RC = key*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | addu CARG2, BASE, RB + | addu CARG3, BASE, RC + | lw TMP1, HI(CARG2) + | lw TMP2, HI(CARG3) + | lw TAB:RB, LO(CARG2) + | li AT, LJ_TTAB + | ldc1 f0, 0(CARG3) + | bne TMP1, AT, ->vmeta_tsetv + |. addu RA, BASE, RA + | sltiu AT, TMP2, LJ_TISNUM + | beqz AT, >5 + |. li AT, LJ_TSTR + | + | // Convert number key to integer, check for integerness and range. + | cvt.w.d f2, f0 + | lw TMP0, TAB:RB->asize + | mfc1 TMP2, f2 + | cvt.d.w f4, f2 + | lw TMP1, TAB:RB->array + | c.eq.d f0, f4 + | sltu AT, TMP2, TMP0 + | movf AT, r0 + | sll TMP2, TMP2, 3 + | beqz AT, ->vmeta_tsetv // Integer key and in array part? + |. addu TMP1, TMP1, TMP2 + | lbu TMP3, TAB:RB->marked + | lw TMP0, HI(TMP1) + | beq TMP0, TISNIL, >3 + |. ldc1 f0, 0(RA) + |1: + | andi AT, TMP3, LJ_GC_BLACK // isblack(table) + | bnez AT, >7 + |. sdc1 f0, 0(TMP1) + |2: + | ins_next + | + |3: // Check for __newindex if previous value is nil. + | lw TAB:TMP2, TAB:RB->metatable + | beqz TAB:TMP2, <1 // No metatable: done. + |. nop + | lbu TMP2, TAB:TMP2->nomm + | andi TMP2, TMP2, 1<vmeta_tsetv + |. nop + | + |5: + | bne TMP2, AT, ->vmeta_tsetv + |. lw STR:RC, LO(CARG3) + | b ->BC_TSETS_Z // String key? + |. nop + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0, <2 + break; + case BC_TSETS: + | // RA = src*8, RB = table*8, RC = str_const*8 (~) + | decode_RB8a RB, INS + | decode_RB8b RB + | addu CARG2, BASE, RB + | decode_RC4a RC, INS + | lw TMP0, HI(CARG2) + | decode_RC4b RC + | li AT, LJ_TTAB + | subu CARG3, KBASE, RC + | lw TAB:RB, LO(CARG2) + | lw STR:RC, -4(CARG3) // KBASE-4-str_const*4 + | bne TMP0, AT, ->vmeta_tsets1 + |. addu RA, BASE, RA + |->BC_TSETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = BASE+src*8 + | lw TMP0, TAB:RB->hmask + | lw TMP1, STR:RC->hash + | lw NODE:TMP2, TAB:RB->node + | sb r0, TAB:RB->nomm // Clear metamethod cache. + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | sll TMP0, TMP1, 5 + | sll TMP1, TMP1, 3 + | subu TMP1, TMP0, TMP1 + | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + | ldc1 f20, 0(RA) + |1: + | lw CARG1, offsetof(Node, key)+HI(NODE:TMP2) + | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) + | li AT, LJ_TSTR + | lw NODE:TMP1, NODE:TMP2->next + | bne CARG1, AT, >5 + |. lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) + | bne TMP0, STR:RC, >5 + |. lbu TMP3, TAB:RB->marked + | beq CARG2, TISNIL, >4 // Key found, but nil value? + |. lw TAB:TMP0, TAB:RB->metatable + |2: + | andi AT, TMP3, LJ_GC_BLACK // isblack(table) + | bnez AT, >7 + |. sdc1 f20, NODE:TMP2->val + |3: + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | beqz TAB:TMP0, <2 // No metatable: done. + |. nop + | lbu TMP0, TAB:TMP0->nomm + | andi TMP0, TMP0, 1<vmeta_tsets + |. nop + | + |5: // Follow hash chain. + | bnez NODE:TMP1, <1 + |. move NODE:TMP2, NODE:TMP1 + | // End of hash chain: key not found, add a new one + | + | // But check for __newindex first. + | lw TAB:TMP2, TAB:RB->metatable + | beqz TAB:TMP2, >6 // No metatable: continue. + |. addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) + | lbu TMP0, TAB:TMP2->nomm + | andi TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. + |. li AT, LJ_TSTR + |6: + | load_got lj_tab_newkey + | sw STR:RC, LO(CARG3) + | sw AT, HI(CARG3) + | sw BASE, L->base + | move CARG2, TAB:RB + | sw PC, SAVE_PC + | call_intern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k + |. move CARG1, L + | // Returns TValue *. + | lw BASE, L->base + | b <3 // No 2nd write barrier needed. + |. sdc1 f20, 0(CRET1) + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0, <3 + break; + case BC_TSETB: + | // RA = src*8, RB = table*8, RC = index*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | addu CARG2, BASE, RB + | decode_RDtoRC8 RC, RD + | lw CARG1, HI(CARG2) + | li AT, LJ_TTAB + | lw TAB:RB, LO(CARG2) + | addu RA, BASE, RA + | bne CARG1, AT, ->vmeta_tsetb + |. srl TMP0, RC, 3 + | lw TMP1, TAB:RB->asize + | lw TMP2, TAB:RB->array + | sltu AT, TMP0, TMP1 + | beqz AT, ->vmeta_tsetb + |. addu RC, TMP2, RC + | lw TMP1, HI(RC) + | lbu TMP3, TAB:RB->marked + | beq TMP1, TISNIL, >5 + |. ldc1 f0, 0(RA) + |1: + | andi AT, TMP3, LJ_GC_BLACK // isblack(table) + | bnez AT, >7 + |. sdc1 f0, 0(RC) + |2: + | ins_next + | + |5: // Check for __newindex if previous value is nil. + | lw TAB:TMP2, TAB:RB->metatable + | beqz TAB:TMP2, <1 // No metatable: done. + |. nop + | lbu TMP1, TAB:TMP2->nomm + | andi TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! + |. nop + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0, <2 + break; + + case BC_TSETM: + | // RA = base*8 (table at base-1), RD = num_const*8 (start index) + | addu RA, BASE, RA + |1: + | addu TMP3, KBASE, RD + | lw TAB:CARG2, -8+LO(RA) // Guaranteed to be a table. + | addiu TMP0, MULTRES, -8 + | lw TMP3, LO(TMP3) // Integer constant is in lo-word. + | beqz TMP0, >4 // Nothing to copy? + |. srl CARG3, TMP0, 3 + | addu CARG3, CARG3, TMP3 + | lw TMP2, TAB:CARG2->asize + | sll TMP1, TMP3, 3 + | lbu TMP3, TAB:CARG2->marked + | lw CARG1, TAB:CARG2->array + | sltu AT, TMP2, CARG3 + | bnez AT, >5 + |. addu TMP2, RA, TMP0 + | addu TMP1, TMP1, CARG1 + | andi TMP0, TMP3, LJ_GC_BLACK // isblack(table) + |3: // Copy result slots to table. + | ldc1 f0, 0(RA) + | addiu RA, RA, 8 + | sltu AT, RA, TMP2 + | sdc1 f0, 0(TMP1) + | bnez AT, <3 + |. addiu TMP1, TMP1, 8 + | bnez TMP0, >7 + |. nop + |4: + | ins_next + | + |5: // Need to resize array part. + | load_got lj_tab_reasize + | sw BASE, L->base + | sw PC, SAVE_PC + | move BASE, RD + | call_intern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + |. move CARG1, L + | // Must not reallocate the stack. + | move RD, BASE + | b <1 + |. lw BASE, L->base // Reload BASE for lack of a saved register. + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP3, TMP0, <4 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALLM: + | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 + | decode_RDtoRC8 NARGS8:RC, RD + | b ->BC_CALL_Z + |. addu NARGS8:RC, NARGS8:RC, MULTRES + break; + case BC_CALL: + | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 + | decode_RDtoRC8 NARGS8:RC, RD + |->BC_CALL_Z: + | move TMP2, BASE + | addu BASE, BASE, RA + | li AT, LJ_TFUNC + | lw TMP0, HI(BASE) + | lw LFUNC:RB, LO(BASE) + | addiu BASE, BASE, 8 + | bne TMP0, AT, ->vmeta_call + |. addiu NARGS8:RC, NARGS8:RC, -8 + | ins_call + break; + + case BC_CALLMT: + | // RA = base*8, (RB = 0,) RC = extra_nargs*8 + | addu NARGS8:RD, NARGS8:RD, MULTRES // BC_CALLT gets RC from RD. + | // Fall through. Assumes BC_CALLT follows. + break; + case BC_CALLT: + | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 + | addu RA, BASE, RA + | li AT, LJ_TFUNC + | lw TMP0, HI(RA) + | lw LFUNC:RB, LO(RA) + | move NARGS8:RC, RD + | lw TMP1, FRAME_PC(BASE) + | addiu RA, RA, 8 + | bne TMP0, AT, ->vmeta_callt + |. addiu NARGS8:RC, NARGS8:RC, -8 + |->BC_CALLT_Z: + | andi TMP0, TMP1, FRAME_TYPE // Caveat: preserve TMP0 until the 'or'. + | lbu TMP3, LFUNC:RB->ffid + | bnez TMP0, >7 + |. xori TMP2, TMP1, FRAME_VARG + |1: + | sw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. + | sltiu AT, TMP3, 2 // (> FF_C) Calling a fast function? + | move TMP2, BASE + | beqz NARGS8:RC, >3 + |. move TMP3, NARGS8:RC + |2: + | ldc1 f0, 0(RA) + | addiu RA, RA, 8 + | addiu TMP3, TMP3, -8 + | sdc1 f0, 0(TMP2) + | bnez TMP3, <2 + |. addiu TMP2, TMP2, 8 + |3: + | or TMP0, TMP0, AT + | beqz TMP0, >5 + |. nop + |4: + | ins_callt + | + |5: // Tailcall to a fast function with a Lua frame below. + | lw INS, -4(TMP1) + | decode_RA8a RA, INS + | decode_RA8b RA + | subu TMP1, BASE, RA + | lw LFUNC:TMP1, -8+FRAME_FUNC(TMP1) + | lw TMP1, LFUNC:TMP1->pc + | b <4 + |. lw KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. + | + |7: // Tailcall from a vararg function. + | andi AT, TMP2, FRAME_TYPEP + | bnez AT, <1 // Vararg frame below? + |. subu TMP2, BASE, TMP2 // Relocate BASE down. + | move BASE, TMP2 + | lw TMP1, FRAME_PC(TMP2) + | b <1 + |. andi TMP0, TMP1, FRAME_TYPE + break; + + case BC_ITERC: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) + | move TMP2, BASE + | addu BASE, BASE, RA + | li AT, LJ_TFUNC + | lw TMP1, -24+HI(BASE) + | lw LFUNC:RB, -24+LO(BASE) + | ldc1 f2, -8(BASE) + | ldc1 f0, -16(BASE) + | sw TMP1, HI(BASE) // Copy callable. + | sw LFUNC:RB, LO(BASE) + | sdc1 f2, 16(BASE) // Copy control var. + | sdc1 f0, 8(BASE) // Copy state. + | addiu BASE, BASE, 8 + | bne TMP1, AT, ->vmeta_call + |. li NARGS8:RC, 16 // Iterators get 2 arguments. + | ins_call + break; + + case BC_ITERN: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | addu RA, BASE, RA + | lw TAB:RB, -16+LO(RA) + | lw RC, -8+LO(RA) // Get index from control var. + | lw TMP0, TAB:RB->asize + | lw TMP1, TAB:RB->array + | addiu PC, PC, 4 + |1: // Traverse array part. + | sltu AT, RC, TMP0 + | beqz AT, >5 // Index points after array part? + |. sll TMP3, RC, 3 + | addu TMP3, TMP1, TMP3 + | lw TMP2, HI(TMP3) + | ldc1 f0, 0(TMP3) + | mtc1 RC, f2 + | lhu RD, -4+OFS_RD(PC) + | beq TMP2, TISNIL, <1 // Skip holes in array part. + |. addiu RC, RC, 1 + | cvt.d.w f2, f2 + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | sdc1 f0, 8(RA) + | decode_RD4b RD + | addu RD, RD, TMP3 + | sw RC, -8+LO(RA) // Update control var. + | addu PC, PC, RD + | sdc1 f2, 0(RA) + |3: + | ins_next + | + |5: // Traverse hash part. + | lw TMP1, TAB:RB->hmask + | subu RC, RC, TMP0 + | lw TMP2, TAB:RB->node + |6: + | sltu AT, TMP1, RC // End of iteration? Branch to ITERL+1. + | bnez AT, <3 + |. sll TMP3, RC, 5 + | sll RB, RC, 3 + | subu TMP3, TMP3, RB + | addu NODE:TMP3, TMP3, TMP2 + | lw RB, HI(NODE:TMP3) + | ldc1 f0, 0(NODE:TMP3) + | lhu RD, -4+OFS_RD(PC) + | beq RB, TISNIL, <6 // Skip holes in hash part. + |. addiu RC, RC, 1 + | ldc1 f2, NODE:TMP3->key + | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) + | sdc1 f0, 8(RA) + | addu RC, RC, TMP0 + | decode_RD4b RD + | addu RD, RD, TMP3 + | sdc1 f2, 0(RA) + | addu PC, PC, RD + | b <3 + |. sw RC, -8+LO(RA) // Update control var. + break; + + case BC_ISNEXT: + | // RA = base*8, RD = target (points to ITERN) + | addu RA, BASE, RA + | lw TMP0, -24+HI(RA) + | lw CFUNC:TMP1, -24+LO(RA) + | lw TMP2, -16+HI(RA) + | lw TMP3, -8+HI(RA) + | li AT, LJ_TFUNC + | bne TMP0, AT, >5 + |. addiu TMP2, TMP2, -LJ_TTAB + | lbu TMP1, CFUNC:TMP1->ffid + | addiu TMP3, TMP3, -LJ_TNIL + | srl TMP0, RD, 1 + | or TMP2, TMP2, TMP3 + | addiu TMP1, TMP1, -FF_next_N + | addu TMP0, PC, TMP0 + | or TMP1, TMP1, TMP2 + | bnez TMP1, >5 + |. lui TMP2, (-(BCBIAS_J*4 >> 16) & 65535) + | addu PC, TMP0, TMP2 + | lui TMP1, 0xfffe + | ori TMP1, TMP1, 0x7fff + | sw r0, -8+LO(RA) // Initialize control var. + | sw TMP1, -8+HI(RA) + |1: + | ins_next + |5: // Despecialize bytecode if any of the checks fail. + | li TMP3, BC_JMP + | li TMP1, BC_ITERC + | sb TMP3, -4+OFS_OP(PC) + | addu PC, TMP0, TMP2 + | b <1 + |. sb TMP1, OFS_OP(PC) + break; + + case BC_VARG: + | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 + | lw TMP0, FRAME_PC(BASE) + | decode_RDtoRC8 RC, RD + | decode_RB8a RB, INS + | addu RC, BASE, RC + | decode_RB8b RB + | addu RA, BASE, RA + | addiu RC, RC, FRAME_VARG + | addu TMP2, RA, RB + | addiu TMP3, BASE, -8 // TMP3 = vtop + | subu RC, RC, TMP0 // RC = vbase + | // Note: RC may now be even _above_ BASE if nargs was < numparams. + | beqz RB, >5 // Copy all varargs? + |. subu TMP1, TMP3, RC + | addiu TMP2, TMP2, -16 + |1: // Copy vararg slots to destination slots. + | lw CARG1, HI(RC) + | sltu AT, RC, TMP3 + | lw CARG2, LO(RC) + | addiu RC, RC, 8 + | movz CARG1, TISNIL, AT + | sw CARG1, HI(RA) + | sw CARG2, LO(RA) + | sltu AT, RA, TMP2 + | bnez AT, <1 + |. addiu RA, RA, 8 + |3: + | ins_next + | + |5: // Copy all varargs. + | lw TMP0, L->maxstack + | blez TMP1, <3 // No vararg slots? + |. li MULTRES, 8 // MULTRES = (0+1)*8 + | addu TMP2, RA, TMP1 + | sltu AT, TMP0, TMP2 + | bnez AT, >7 + |. addiu MULTRES, TMP1, 8 + |6: + | ldc1 f0, 0(RC) + | addiu RC, RC, 8 + | sdc1 f0, 0(RA) + | sltu AT, RC, TMP3 + | bnez AT, <6 // More vararg slots? + |. addiu RA, RA, 8 + | b <3 + |. nop + | + |7: // Grow stack for varargs. + | load_got lj_state_growstack + | sw RA, L->top + | subu RA, RA, BASE + | sw BASE, L->base + | subu BASE, RC, BASE // Need delta, because BASE may change. + | sw PC, SAVE_PC + | srl CARG2, TMP1, 3 + | call_intern lj_state_growstack // (lua_State *L, int n) + |. move CARG1, L + | move RC, BASE + | lw BASE, L->base + | addu RA, BASE, RA + | addu RC, BASE, RC + | b <6 + |. addiu TMP3, BASE, -8 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | // RA = results*8, RD = extra_nresults*8 + | addu RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. + | // Fall through. Assumes BC_RET follows. + break; + + case BC_RET: + | // RA = results*8, RD = (nresults+1)*8 + | lw PC, FRAME_PC(BASE) + | addu RA, BASE, RA + | move MULTRES, RD + |1: + | andi TMP0, PC, FRAME_TYPE + | bnez TMP0, ->BC_RETV_Z + |. xori TMP1, PC, FRAME_VARG + | + |->BC_RET_Z: + | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return + | lw INS, -4(PC) + | addiu TMP2, BASE, -8 + | addiu RC, RD, -8 + | decode_RA8a TMP0, INS + | decode_RB8a RB, INS + | decode_RA8b TMP0 + | decode_RB8b RB + | addu TMP3, TMP2, RB + | beqz RC, >3 + |. subu BASE, TMP2, TMP0 + |2: + | ldc1 f0, 0(RA) + | addiu RA, RA, 8 + | addiu RC, RC, -8 + | sdc1 f0, 0(TMP2) + | bnez RC, <2 + |. addiu TMP2, TMP2, 8 + |3: + | addiu TMP3, TMP3, -8 + |5: + | sltu AT, TMP2, TMP3 + | bnez AT, >6 + |. lw LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lw TMP1, LFUNC:TMP1->pc + | lw KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | sw TISNIL, HI(TMP2) + | b <5 + |. addiu TMP2, TMP2, 8 + | + |->BC_RETV_Z: // Non-standard return case. + | andi TMP2, TMP1, FRAME_TYPEP + | bnez TMP2, ->vm_return + |. nop + | // Return from vararg function: relocate BASE down. + | subu BASE, BASE, TMP1 + | b <1 + |. lw PC, FRAME_PC(BASE) + break; + + case BC_RET0: case BC_RET1: + | // RA = results*8, RD = (nresults+1)*8 + | lw PC, FRAME_PC(BASE) + | addu RA, BASE, RA + | move MULTRES, RD + | andi TMP0, PC, FRAME_TYPE + | bnez TMP0, ->BC_RETV_Z + |. xori TMP1, PC, FRAME_VARG + | + | lw INS, -4(PC) + | addiu TMP2, BASE, -8 + if (op == BC_RET1) { + | ldc1 f0, 0(RA) + } + | decode_RB8a RB, INS + | decode_RA8a RA, INS + | decode_RB8b RB + | decode_RA8b RA + if (op == BC_RET1) { + | sdc1 f0, 0(TMP2) + } + | subu BASE, TMP2, RA + |5: + | sltu AT, RD, RB + | bnez AT, >6 + |. lw LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lw TMP1, LFUNC:TMP1->pc + | lw KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | addiu TMP2, TMP2, 8 + | addiu RD, RD, 8 + | b <5 + if (op == BC_RET1) { + |. sw TISNIL, HI(TMP2) + } else { + |. sw TISNIL, -8+HI(TMP2) + } + break; + + /* -- Loops and branches ------------------------------------------------ */ + + case BC_FORL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IFORL follows. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + | // RA = base*8, RD = target (after end of loop or start of loop) + vk = (op == BC_IFORL || op == BC_JFORL); + | addu RA, BASE, RA + if (vk) { + | ldc1 f0, FORL_IDX*8(RA) + | ldc1 f4, FORL_STEP*8(RA) + | ldc1 f2, FORL_STOP*8(RA) + | lw TMP3, FORL_STEP*8+HI(RA) + | add.d f0, f0, f4 + | sdc1 f0, FORL_IDX*8(RA) + } else { + | lw TMP1, FORL_IDX*8+HI(RA) + | lw TMP3, FORL_STEP*8+HI(RA) + | lw TMP2, FORL_STOP*8+HI(RA) + | sltiu TMP1, TMP1, LJ_TISNUM + | sltiu TMP0, TMP3, LJ_TISNUM + | sltiu TMP2, TMP2, LJ_TISNUM + | and TMP1, TMP1, TMP0 + | and TMP1, TMP1, TMP2 + | ldc1 f0, FORL_IDX*8(RA) + | beqz TMP1, ->vmeta_for + |. ldc1 f2, FORL_STOP*8(RA) + } + if (op != BC_JFORL) { + | srl RD, RD, 1 + | lui TMP0, (-(BCBIAS_J*4 >> 16) & 65535) + } + | c.le.d 0, f0, f2 + | c.le.d 1, f2, f0 + | sdc1 f0, FORL_EXT*8(RA) + if (op == BC_JFORI) { + | li TMP1, 1 + | li TMP2, 1 + | addu TMP0, RD, TMP0 + | slt TMP3, TMP3, r0 + | movf TMP1, r0, 0 + | addu PC, PC, TMP0 + | movf TMP2, r0, 1 + | lhu RD, -4+OFS_RD(PC) + | movn TMP1, TMP2, TMP3 + | bnez TMP1, =>BC_JLOOP + |. decode_RD8b RD + } else if (op == BC_JFORL) { + | li TMP1, 1 + | li TMP2, 1 + | slt TMP3, TMP3, r0 + | movf TMP1, r0, 0 + | movf TMP2, r0, 1 + | movn TMP1, TMP2, TMP3 + | bnez TMP1, =>BC_JLOOP + |. nop + } else { + | addu TMP1, RD, TMP0 + | slt TMP3, TMP3, r0 + | move TMP2, TMP1 + if (op == BC_FORI) { + | movt TMP1, r0, 0 + | movt TMP2, r0, 1 + } else { + | movf TMP1, r0, 0 + | movf TMP2, r0, 1 + } + | movn TMP1, TMP2, TMP3 + | addu PC, PC, TMP1 + } + | ins_next + break; + + case BC_ITERL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IITERL follows. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | // RA = base*8, RD = target + | addu RA, BASE, RA + | lw TMP1, HI(RA) + | beq TMP1, TISNIL, >1 // Stop if iterator returned nil. + |. lw TMP2, LO(RA) + if (op == BC_JITERL) { + | sw TMP1, -8+HI(RA) + | b =>BC_JLOOP + |. sw TMP2, -8+LO(RA) + } else { + | branch_RD // Otherwise save control var + branch. + | sw TMP1, -8+HI(RA) + | sw TMP2, -8+LO(RA) + } + |1: + | ins_next + break; + + case BC_LOOP: + | // RA = base*8, RD = target (loop extent) + | // Note: RA/RD is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_ILOOP follows. + break; + + case BC_ILOOP: + | // RA = base*8, RD = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | // RA = base*8 (ignored), RD = traceno*8 + | lw TMP1, DISPATCH_J(trace)(DISPATCH) + | srl RD, RD, 1 + | li AT, 0 + | addu TMP1, TMP1, RD + | // Traces on MIPS don't store the trace number, so use 0. + | sw AT, DISPATCH_GL(vmstate)(DISPATCH) + | lw TRACE:TMP2, 0(TMP1) + | sw BASE, DISPATCH_GL(jit_base)(DISPATCH) + | sw L, DISPATCH_GL(jit_L)(DISPATCH) + | lw TMP2, TRACE:TMP2->mcode + | jr TMP2 + |. addiu JGL, DISPATCH, GG_DISP2G+32768 + |.endif + break; + + case BC_JMP: + | // RA = base*8 (only used by trace recorder), RD = target + | branch_RD + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + |.if JIT + | hotcall + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | lw TMP2, L->maxstack + | lbu TMP1, -4+PC2PROTO(numparams)(PC) + | lw KBASE, -4+PC2PROTO(k)(PC) + | sltu AT, TMP2, RA + | bnez AT, ->vm_growstack_l + |. sll TMP1, TMP1, 3 + if (op != BC_JFUNCF) { + | ins_next1 + } + |2: + | sltu AT, NARGS8:RC, TMP1 // Check for missing parameters. + | bnez AT, >3 + |. addu AT, BASE, NARGS8:RC + if (op == BC_JFUNCF) { + | decode_RD8a RD, INS + | b =>BC_JLOOP + |. decode_RD8b RD + } else { + | ins_next2 + } + | + |3: // Clear missing parameters. + | sw TISNIL, HI(AT) + | b <2 + |. addiu NARGS8:RC, NARGS8:RC, 8 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | NYI // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | addu TMP1, BASE, RC + | lw TMP2, L->maxstack + | addu TMP0, RA, RC + | sw LFUNC:RB, LO(TMP1) // Store copy of LFUNC. + | addiu TMP3, RC, 8+FRAME_VARG + | sltu AT, TMP0, TMP2 + | lw KBASE, -4+PC2PROTO(k)(PC) + | beqz AT, ->vm_growstack_l + |. sw TMP3, HI(TMP1) // Store delta + FRAME_VARG. + | lbu TMP2, -4+PC2PROTO(numparams)(PC) + | move RA, BASE + | move RC, TMP1 + | ins_next1 + | beqz TMP2, >3 + |. addiu BASE, TMP1, 8 + |1: + | lw TMP0, HI(RA) + | lw TMP3, LO(RA) + | sltu AT, RA, RC // Less args than parameters? + | move CARG1, TMP0 + | movz TMP0, TISNIL, AT // Clear missing parameters. + | movn CARG1, TISNIL, AT // Clear old fixarg slot (help the GC). + | sw TMP3, 8+LO(TMP1) + | addiu TMP2, TMP2, -1 + | sw TMP0, 8+HI(TMP1) + | addiu TMP1, TMP1, 8 + | sw CARG1, HI(RA) + | bnez TMP2, <1 + |. addiu RA, RA, 8 + |3: + | ins_next2 + break; + + case BC_FUNCC: + case BC_FUNCCW: + | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 + if (op == BC_FUNCC) { + | lw CFUNCADDR, CFUNC:RB->f + } else { + | lw CFUNCADDR, DISPATCH_GL(wrapf)(DISPATCH) + } + | addu TMP1, RA, NARGS8:RC + | lw TMP2, L->maxstack + | addu RC, BASE, NARGS8:RC + | sw BASE, L->base + | sltu AT, TMP2, TMP1 + | sw RC, L->top + | li_vmstate C + if (op == BC_FUNCCW) { + | lw CARG2, CFUNC:RB->f + } + | bnez AT, ->vm_growstack_c // Need to grow stack. + |. move CARG1, L + | jalr CFUNCADDR // (lua_State *L [, lua_CFunction f]) + |. st_vmstate + | // Returns nresults. + | lw BASE, L->base + | sll RD, CRET1, 3 + | lw TMP1, L->top + | li_vmstate INTERP + | lw PC, FRAME_PC(BASE) // Fetch PC of caller. + | subu RA, TMP1, RD // RA = L->top - nresults*8 + | b ->vm_returnc + |. st_vmstate + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + + dasm_growpc(Dst, BC__MAX); + + build_subroutines(ctx); + + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); + int i; + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.4byte .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.4byte 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 31\n" + "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.4byte .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.4byte .Lframe0\n" + "\t.4byte .Lbegin\n" + "\t.4byte %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x9f\n\t.sleb128 1\n" + "\t.byte 0x9e\n\t.sleb128 2\n", + fcofs, CFRAME_SIZE); + for (i = 23; i >= 16; i--) + fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 26-i); + for (i = 30; i >= 20; i -= 2) + fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+32+i, 42-i); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE0:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.4byte .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.4byte .Lframe0\n" + "\t.4byte lj_vm_ffi_call\n" + "\t.4byte %d\n" + "\t.byte 0x9f\n\t.uleb128 1\n" + "\t.byte 0x90\n\t.uleb128 2\n" + "\t.byte 0xd\n\t.uleb128 0x10\n" + "\t.align 2\n" + ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); +#endif + fprintf(ctx->fp, "\t.section .eh_frame,\"aw\",@progbits\n"); + fprintf(ctx->fp, + "\t.globl lj_err_unwind_dwarf\n" + ".Lframe1:\n" + "\t.4byte .LECIE1-.LSCIE1\n" + ".LSCIE1:\n" + "\t.4byte 0\n" + "\t.byte 0x1\n" + "\t.string \"zPR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 31\n" + "\t.uleb128 6\n" /* augmentation length */ + "\t.byte 0\n" + "\t.4byte lj_err_unwind_dwarf\n" + "\t.byte 0\n" + "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE1:\n\n"); + fprintf(ctx->fp, + ".LSFDE2:\n" + "\t.4byte .LEFDE2-.LASFDE2\n" + ".LASFDE2:\n" + "\t.4byte .LASFDE2-.Lframe1\n" + "\t.4byte .Lbegin\n" + "\t.4byte %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x9f\n\t.sleb128 1\n" + "\t.byte 0x9e\n\t.sleb128 2\n", + fcofs, CFRAME_SIZE); + for (i = 23; i >= 16; i--) + fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 26-i); + for (i = 30; i >= 20; i -= 2) + fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+32+i, 42-i); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE2:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".Lframe2:\n" + "\t.4byte .LECIE2-.LSCIE2\n" + ".LSCIE2:\n" + "\t.4byte 0\n" + "\t.byte 0x1\n" + "\t.string \"zR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 31\n" + "\t.uleb128 1\n" /* augmentation length */ + "\t.byte 0\n" + "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE2:\n\n"); + fprintf(ctx->fp, + ".LSFDE3:\n" + "\t.4byte .LEFDE3-.LASFDE3\n" + ".LASFDE3:\n" + "\t.4byte .LASFDE3-.Lframe2\n" + "\t.4byte lj_vm_ffi_call\n" + "\t.4byte %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0x9f\n\t.uleb128 1\n" + "\t.byte 0x90\n\t.uleb128 2\n" + "\t.byte 0xd\n\t.uleb128 0x10\n" + "\t.align 2\n" + ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); +#endif + break; + default: + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/vm_ppc.dasc b/src/3rd party/luajit-2.0/src/vm_ppc.dasc new file mode 100644 index 00000000000..ad8a023e479 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_ppc.dasc @@ -0,0 +1,5160 @@ +|// Low-level VM code for PowerPC CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.arch ppc +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|// Note: The ragged indentation of the instructions is intentional. +|// The starting columns indicate data dependencies. +| +|//----------------------------------------------------------------------- +| +|// DynASM defines used by the PPC port: +|// +|// P64 64 bit pointers (only for GPR64 testing). +|// Note: a full PPC64 _LP64 port is not planned. +|// GPR64 64 bit registers (but possibly 32 bit pointers, e.g. PS3). +|// Affects reg saves, stack layout, carry/overflow/dot flags etc. +|// FRAME32 Use 32 bit frame layout, even with GPR64 (Xbox 360). +|// TOC Need table of contents (64 bit or 32 bit variant, e.g. PS3). +|// Function pointers are really a struct: code, TOC, env (optional). +|// TOCENV Function pointers have an environment pointer, too (not on PS3). +|// PPE Power Processor Element of Cell (PS3) or Xenon (Xbox 360). +|// Must avoid (slow) micro-coded instructions. +| +|.if P64 +|.define TOC, 1 +|.define TOCENV, 1 +|.macro lpx, a, b, c; ldx a, b, c; .endmacro +|.macro lp, a, b; ld a, b; .endmacro +|.macro stp, a, b; std a, b; .endmacro +|.define decode_OPP, decode_OP8 +|.if FFI +|// Missing: Calling conventions, 64 bit regs, TOC. +|.error lib_ffi not yet implemented for PPC64 +|.endif +|.else +|.macro lpx, a, b, c; lwzx a, b, c; .endmacro +|.macro lp, a, b; lwz a, b; .endmacro +|.macro stp, a, b; stw a, b; .endmacro +|.define decode_OPP, decode_OP4 +|.endif +| +|// Convenience macros for TOC handling. +|.if TOC +|// Linker needs a TOC patch area for every external call relocation. +|.macro blex, target; bl extern target@plt; nop; .endmacro +|.macro .toc, a, b; a, b; .endmacro +|.if P64 +|.define TOC_OFS, 8 +|.define ENV_OFS, 16 +|.else +|.define TOC_OFS, 4 +|.define ENV_OFS, 8 +|.endif +|.else // No TOC. +|.macro blex, target; bl extern target@plt; .endmacro +|.macro .toc, a, b; .endmacro +|.endif +|.macro .tocenv, a, b; .if TOCENV; a, b; .endif; .endmacro +| +|.macro .gpr64, a, b; .if GPR64; a, b; .endif; .endmacro +| +|.macro andix., y, a, i +|.if PPE +| rlwinm y, a, 0, 31-lj_fls(i), 31-lj_ffs(i) +| cmpwi y, 0 +|.else +| andi. y, a, i +|.endif +|.endmacro +| +|.macro clrso, reg +|.if PPE +| li reg, 0 +| mtxer reg +|.else +| mcrxr cr0 +|.endif +|.endmacro +| +|.macro checkov, reg, noov +|.if PPE +| mfxer reg +| add reg, reg, reg +| cmpwi reg, 0 +| li reg, 0 +| mtxer reg +| bgey noov +|.else +| mcrxr cr0 +| bley noov +|.endif +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Fixed register assignments for the interpreter. +|// Don't use: r1 = sp, r2 and r13 = reserved (TOC, TLS or SDATA) +| +|// The following must be C callee-save (but BASE is often refetched). +|.define BASE, r14 // Base of current Lua stack frame. +|.define KBASE, r15 // Constants of current Lua function. +|.define PC, r16 // Next PC. +|.define DISPATCH, r17 // Opcode dispatch table. +|.define LREG, r18 // Register holding lua_State (also in SAVE_L). +|.define MULTRES, r19 // Size of multi-result: (nresults+1)*8. +|.define JGL, r31 // On-trace: global_State + 32768. +| +|// Constants for type-comparisons, stores and conversions. C callee-save. +|.define TISNUM, r22 +|.define TISNIL, r23 +|.define ZERO, r24 +|.define TOBIT, f30 // 2^52 + 2^51. +|.define TONUM, f31 // 2^52 + 2^51 + 2^31. +| +|// The following temporaries are not saved across C calls, except for RA. +|.define RA, r20 // Callee-save. +|.define RB, r10 +|.define RC, r11 +|.define RD, r12 +|.define INS, r7 // Overlaps CARG5. +| +|.define TMP0, r0 +|.define TMP1, r8 +|.define TMP2, r9 +|.define TMP3, r6 // Overlaps CARG4. +| +|// Saved temporaries. +|.define SAVE0, r21 +| +|// Calling conventions. +|.define CARG1, r3 +|.define CARG2, r4 +|.define CARG3, r5 +|.define CARG4, r6 // Overlaps TMP3. +|.define CARG5, r7 // Overlaps INS. +| +|.define FARG1, f1 +|.define FARG2, f2 +| +|.define CRET1, r3 +|.define CRET2, r4 +| +|.define TOCREG, r2 // TOC register (only used by C code). +|.define ENVREG, r11 // Environment pointer (nested C functions). +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +|.if GPR64 +|.if FRAME32 +| +|// 456(sp) // \ 32/64 bit C frame info +|.define TONUM_LO, 452(sp) // | +|.define TONUM_HI, 448(sp) // | +|.define TMPD_LO, 444(sp) // | +|.define TMPD_HI, 440(sp) // | +|.define SAVE_CR, 432(sp) // | 64 bit CR save. +|.define SAVE_ERRF, 424(sp) // > Parameter save area. +|.define SAVE_NRES, 420(sp) // | +|.define SAVE_L, 416(sp) // | +|.define SAVE_PC, 412(sp) // | +|.define SAVE_MULTRES, 408(sp) // | +|.define SAVE_CFRAME, 400(sp) // / 64 bit C frame chain. +|// 392(sp) // Reserved. +|.define CFRAME_SPACE, 384 // Delta for sp. +|// Back chain for sp: 384(sp) <-- sp entering interpreter +|.define SAVE_LR, 376(sp) // 32 bit LR stored in hi-part. +|.define SAVE_GPR_, 232 // .. 232+18*8: 64 bit GPR saves. +|.define SAVE_FPR_, 88 // .. 88+18*8: 64 bit FPR saves. +|// 80(sp) // Needed for 16 byte stack frame alignment. +|// 16(sp) // Callee parameter save area (ABI mandated). +|// 8(sp) // Reserved +|// Back chain for sp: 0(sp) <-- sp while in interpreter +|// 32 bit sp stored in hi-part of 0(sp). +| +|.define TMPD_BLO, 447(sp) +|.define TMPD, TMPD_HI +|.define TONUM_D, TONUM_HI +| +|.else +| +|// 508(sp) // \ 32 bit C frame info. +|.define SAVE_ERRF, 472(sp) // | +|.define SAVE_NRES, 468(sp) // | +|.define SAVE_L, 464(sp) // > Parameter save area. +|.define SAVE_PC, 460(sp) // | +|.define SAVE_MULTRES, 456(sp) // | +|.define SAVE_CFRAME, 448(sp) // / 64 bit C frame chain. +|.define SAVE_LR, 416(sp) +|.define CFRAME_SPACE, 400 // Delta for sp. +|// Back chain for sp: 400(sp) <-- sp entering interpreter +|.define SAVE_FPR_, 256 // .. 256+18*8: 64 bit FPR saves. +|.define SAVE_GPR_, 112 // .. 112+18*8: 64 bit GPR saves. +|// 48(sp) // Callee parameter save area (ABI mandated). +|.define SAVE_TOC, 40(sp) // TOC save area. +|.define TMPD_LO, 36(sp) // \ Link editor temp (ABI mandated). +|.define TMPD_HI, 32(sp) // / +|.define TONUM_LO, 28(sp) // \ Compiler temp (ABI mandated). +|.define TONUM_HI, 24(sp) // / +|// Next frame lr: 16(sp) +|.define SAVE_CR, 8(sp) // 64 bit CR save. +|// Back chain for sp: 0(sp) <-- sp while in interpreter +| +|.define TMPD_BLO, 39(sp) +|.define TMPD, TMPD_HI +|.define TONUM_D, TONUM_HI +| +|.endif +|.else +| +|.define SAVE_LR, 276(sp) +|.define CFRAME_SPACE, 272 // Delta for sp. +|// Back chain for sp: 272(sp) <-- sp entering interpreter +|.define SAVE_FPR_, 128 // .. 128+18*8: 64 bit FPR saves. +|.define SAVE_GPR_, 56 // .. 56+18*4: 32 bit GPR saves. +|.define SAVE_CR, 52(sp) // 32 bit CR save. +|.define SAVE_ERRF, 48(sp) // 32 bit C frame info. +|.define SAVE_NRES, 44(sp) +|.define SAVE_CFRAME, 40(sp) +|.define SAVE_L, 36(sp) +|.define SAVE_PC, 32(sp) +|.define SAVE_MULTRES, 28(sp) +|.define UNUSED1, 24(sp) +|.define TMPD_LO, 20(sp) +|.define TMPD_HI, 16(sp) +|.define TONUM_LO, 12(sp) +|.define TONUM_HI, 8(sp) +|// Next frame lr: 4(sp) +|// Back chain for sp: 0(sp) <-- sp while in interpreter +| +|.define TMPD_BLO, 23(sp) +|.define TMPD, TMPD_HI +|.define TONUM_D, TONUM_HI +| +|.endif +| +|.macro save_, reg +|.if GPR64 +| std r..reg, SAVE_GPR_+(reg-14)*8(sp) +|.else +| stw r..reg, SAVE_GPR_+(reg-14)*4(sp) +|.endif +| stfd f..reg, SAVE_FPR_+(reg-14)*8(sp) +|.endmacro +|.macro rest_, reg +|.if GPR64 +| ld r..reg, SAVE_GPR_+(reg-14)*8(sp) +|.else +| lwz r..reg, SAVE_GPR_+(reg-14)*4(sp) +|.endif +| lfd f..reg, SAVE_FPR_+(reg-14)*8(sp) +|.endmacro +| +|.macro saveregs +|.if GPR64 and not FRAME32 +| stdu sp, -CFRAME_SPACE(sp) +|.else +| stwu sp, -CFRAME_SPACE(sp) +|.endif +| save_ 14; save_ 15; save_ 16 +| mflr r0 +| save_ 17; save_ 18; save_ 19; save_ 20; save_ 21; save_ 22 +|.if GPR64 and not FRAME32 +| std r0, SAVE_LR +|.else +| stw r0, SAVE_LR +|.endif +| save_ 23; save_ 24; save_ 25 +| mfcr r0 +| save_ 26; save_ 27; save_ 28; save_ 29; save_ 30; save_ 31 +|.if GPR64 +| std r0, SAVE_CR +|.else +| stw r0, SAVE_CR +|.endif +| .toc std TOCREG, SAVE_TOC +|.endmacro +| +|.macro restoreregs +|.if GPR64 and not FRAME32 +| ld r0, SAVE_LR +|.else +| lwz r0, SAVE_LR +|.endif +|.if GPR64 +| ld r12, SAVE_CR +|.else +| lwz r12, SAVE_CR +|.endif +| rest_ 14; rest_ 15; rest_ 16; rest_ 17; rest_ 18; rest_ 19 +| mtlr r0; +|.if PPE; mtocrf 0x20, r12; .else; mtcrf 0x38, r12; .endif +| rest_ 20; rest_ 21; rest_ 22; rest_ 23; rest_ 24; rest_ 25 +|.if PPE; mtocrf 0x10, r12; .endif +| rest_ 26; rest_ 27; rest_ 28; rest_ 29; rest_ 30; rest_ 31 +|.if PPE; mtocrf 0x08, r12; .endif +| addi sp, sp, CFRAME_SPACE +|.endmacro +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State, LREG +|.type GL, global_State +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS8, int +|.type TRACE, GCtrace +| +|//----------------------------------------------------------------------- +| +|// These basic macros should really be part of DynASM. +|.macro srwi, rx, ry, n; rlwinm rx, ry, 32-n, n, 31; .endmacro +|.macro slwi, rx, ry, n; rlwinm rx, ry, n, 0, 31-n; .endmacro +|.macro rotlwi, rx, ry, n; rlwinm rx, ry, n, 0, 31; .endmacro +|.macro rotlw, rx, ry, rn; rlwnm rx, ry, rn, 0, 31; .endmacro +|.macro subi, rx, ry, i; addi rx, ry, -i; .endmacro +| +|// Trap for not-yet-implemented parts. +|.macro NYI; tw 4, sp, sp; .endmacro +| +|// int/FP conversions. +|.macro tonum_i, freg, reg +| xoris reg, reg, 0x8000 +| stw reg, TONUM_LO +| lfd freg, TONUM_D +| fsub freg, freg, TONUM +|.endmacro +| +|.macro tonum_u, freg, reg +| stw reg, TONUM_LO +| lfd freg, TONUM_D +| fsub freg, freg, TOBIT +|.endmacro +| +|.macro toint, reg, freg, tmpfreg +| fctiwz tmpfreg, freg +| stfd tmpfreg, TMPD +| lwz reg, TMPD_LO +|.endmacro +| +|.macro toint, reg, freg +| toint reg, freg, freg +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Access to frame relative to BASE. +|.define FRAME_PC, -8 +|.define FRAME_FUNC, -4 +| +|// Instruction decode. +|.macro decode_OP4, dst, ins; rlwinm dst, ins, 2, 22, 29; .endmacro +|.macro decode_OP8, dst, ins; rlwinm dst, ins, 3, 21, 28; .endmacro +|.macro decode_RA8, dst, ins; rlwinm dst, ins, 27, 21, 28; .endmacro +|.macro decode_RB8, dst, ins; rlwinm dst, ins, 11, 21, 28; .endmacro +|.macro decode_RC8, dst, ins; rlwinm dst, ins, 19, 21, 28; .endmacro +|.macro decode_RD8, dst, ins; rlwinm dst, ins, 19, 13, 28; .endmacro +| +|.macro decode_OP1, dst, ins; rlwinm dst, ins, 0, 24, 31; .endmacro +|.macro decode_RD4, dst, ins; rlwinm dst, ins, 18, 14, 29; .endmacro +| +|// Instruction fetch. +|.macro ins_NEXT1 +| lwz INS, 0(PC) +| addi PC, PC, 4 +|.endmacro +|// Instruction decode+dispatch. Note: optimized for e300! +|.macro ins_NEXT2 +| decode_OPP TMP1, INS +| lpx TMP0, DISPATCH, TMP1 +| mtctr TMP0 +| decode_RB8 RB, INS +| decode_RD8 RD, INS +| decode_RA8 RA, INS +| decode_RC8 RC, INS +| bctr +|.endmacro +|.macro ins_NEXT +| ins_NEXT1 +| ins_NEXT2 +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +| .define ins_next1, ins_NEXT1 +| .define ins_next2, ins_NEXT2 +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| .macro ins_next +| b ->ins_next +| .endmacro +| .macro ins_next1 +| .endmacro +| .macro ins_next2 +| b ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC +| lwz PC, LFUNC:RB->pc +| lwz INS, 0(PC) +| addi PC, PC, 4 +| decode_OPP TMP1, INS +| decode_RA8 RA, INS +| lpx TMP0, DISPATCH, TMP1 +| add RA, RA, BASE +| mtctr TMP0 +| bctr +|.endmacro +| +|.macro ins_call +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC +| stw PC, FRAME_PC(BASE) +| ins_callt +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Macros to test operand types. +|.macro checknum, reg; cmplw reg, TISNUM; .endmacro +|.macro checknum, cr, reg; cmplw cr, reg, TISNUM; .endmacro +|.macro checkstr, reg; cmpwi reg, LJ_TSTR; .endmacro +|.macro checktab, reg; cmpwi reg, LJ_TTAB; .endmacro +|.macro checkfunc, reg; cmpwi reg, LJ_TFUNC; .endmacro +|.macro checknil, reg; cmpwi reg, LJ_TNIL; .endmacro +| +|.macro branch_RD +| srwi TMP0, RD, 1 +| addis PC, PC, -(BCBIAS_J*4 >> 16) +| add PC, PC, TMP0 +|.endmacro +| +|// Assumes DISPATCH is relative to GL. +#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) +#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|.macro hotcheck, delta, target +| rlwinm TMP1, PC, 31, 25, 30 +| addi TMP1, TMP1, GG_DISP2HOT +| lhzx TMP2, DISPATCH, TMP1 +| addic. TMP2, TMP2, -delta +| sthx TMP2, DISPATCH, TMP1 +| blt target +|.endmacro +| +|.macro hotloop +| hotcheck HOTCOUNT_LOOP, ->vm_hotloop +|.endmacro +| +|.macro hotcall +| hotcheck HOTCOUNT_CALL, ->vm_hotcall +|.endmacro +| +|// Set current VM state. Uses TMP0. +|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro +|.macro st_vmstate; stw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro +| +|// Move table write barrier back. Overwrites mark and tmp. +|.macro barrierback, tab, mark, tmp +| lwz tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) +| // Assumes LJ_GC_BLACK is 0x04. +| rlwinm mark, mark, 0, 30, 28 // black2gray(tab) +| stw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) +| stb mark, tab->marked +| stw tmp, tab->gclist +|.endmacro +| +|//----------------------------------------------------------------------- + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | // See vm_return. Also: TMP2 = previous base. + | andix. TMP0, PC, FRAME_P + | li TMP1, LJ_TTRUE + | beq ->cont_dispatch + | + | // Return from pcall or xpcall fast func. + | lwz PC, FRAME_PC(TMP2) // Fetch PC of previous frame. + | mr BASE, TMP2 // Restore caller base. + | // Prepending may overwrite the pcall frame, so do it at the end. + | stwu TMP1, FRAME_PC(RA) // Prepend true to results. + | + |->vm_returnc: + | addi RD, RD, 8 // RD = (nresults+1)*8. + | andix. TMP0, PC, FRAME_TYPE + | cmpwi cr1, RD, 0 + | li CRET1, LUA_YIELD + | beq cr1, ->vm_unwind_c_eh + | mr MULTRES, RD + | beq ->BC_RET_Z // Handle regular return to Lua. + | + |->vm_return: + | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return + | // TMP0 = PC & FRAME_TYPE + | cmpwi TMP0, FRAME_C + | rlwinm TMP2, PC, 0, 0, 28 + | li_vmstate C + | sub TMP2, BASE, TMP2 // TMP2 = previous base. + | bney ->vm_returnp + | + | addic. TMP1, RD, -8 + | stp TMP2, L->base + | lwz TMP2, SAVE_NRES + | subi BASE, BASE, 8 + | st_vmstate + | slwi TMP2, TMP2, 3 + | beq >2 + |1: + | addic. TMP1, TMP1, -8 + | lfd f0, 0(RA) + | addi RA, RA, 8 + | stfd f0, 0(BASE) + | addi BASE, BASE, 8 + | bney <1 + | + |2: + | cmpw TMP2, RD // More/less results wanted? + | bne >6 + |3: + | stp BASE, L->top // Store new top. + | + |->vm_leave_cp: + | lp TMP0, SAVE_CFRAME // Restore previous C frame. + | li CRET1, 0 // Ok return status for vm_pcall. + | stp TMP0, L->cframe + | + |->vm_leave_unw: + | restoreregs + | blr + | + |6: + | ble >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + | lwz TMP1, L->maxstack + | cmplw BASE, TMP1 + | bge >8 + | stw TISNIL, 0(BASE) + | addi RD, RD, 8 + | addi BASE, BASE, 8 + | b <2 + | + |7: // Less results wanted. + | subfic TMP3, TMP2, 0 // LUA_MULTRET+1 case? + | sub TMP0, RD, TMP2 + | subfe TMP1, TMP1, TMP1 // TMP1 = TMP2 == 0 ? 0 : -1 + | and TMP0, TMP0, TMP1 + | sub BASE, BASE, TMP0 // Either keep top or shrink it. + | b <3 + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | stp BASE, L->top // Save current top held in BASE (yes). + | mr SAVE0, RD + | srwi CARG2, TMP2, 3 + | mr CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | lwz TMP2, SAVE_NRES + | mr RD, SAVE0 + | slwi TMP2, TMP2, 3 + | lp BASE, L->top // Need the (realloced) L->top in BASE. + | b <2 + | + |->vm_unwind_c: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + | mr sp, CARG1 + | mr CRET1, CARG2 + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | lwz L, SAVE_L + | .toc ld TOCREG, SAVE_TOC + | li TMP0, ~LJ_VMST_C + | lwz GL:TMP1, L->glref + | stw TMP0, GL:TMP1->vmstate + | b ->vm_leave_unw + | + |->vm_unwind_ff: // Unwind C stack, return from ff pcall. + | // (void *cframe) + |.if GPR64 + | rldicr sp, CARG1, 0, 61 + |.else + | rlwinm sp, CARG1, 0, 0, 29 + |.endif + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | lwz L, SAVE_L + | .toc ld TOCREG, SAVE_TOC + | li TISNUM, LJ_TISNUM // Setup type comparison constants. + | lp BASE, L->base + | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | li ZERO, 0 + | stw TMP3, TMPD + | li TMP1, LJ_TFALSE + | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). + | li TISNIL, LJ_TNIL + | li_vmstate INTERP + | lfs TOBIT, TMPD + | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame. + | la RA, -8(BASE) // Results start at BASE-8. + | stw TMP3, TMPD + | addi DISPATCH, DISPATCH, GG_G2DISP + | stw TMP1, 0(RA) // Prepend false to error message. + | li RD, 16 // 2 results: false + error message. + | st_vmstate + | lfs TONUM, TMPD + | b ->vm_returnc + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | li CARG2, LUA_MINSTACK + | b >2 + | + |->vm_growstack_l: // Grow stack for Lua function. + | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC + | add RC, BASE, RC + | sub RA, RA, BASE + | stp BASE, L->base + | addi PC, PC, 4 // Must point after first instruction. + | stp RC, L->top + | srwi CARG2, RA, 3 + |2: + | // L->base = new base, L->top = top + | stw PC, SAVE_PC + | mr CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | lp BASE, L->base + | lp RC, L->top + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | sub RC, RC, BASE + | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + | mr L, CARG1 + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | mr BASE, CARG2 + | lbz TMP1, L->status + | stw L, SAVE_L + | li PC, FRAME_CP + | addi TMP0, sp, CFRAME_RESUME + | addi DISPATCH, DISPATCH, GG_G2DISP + | stw CARG3, SAVE_NRES + | cmplwi TMP1, 0 + | stw CARG3, SAVE_ERRF + | stp TMP0, L->cframe + | stp CARG3, SAVE_CFRAME + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | beq >3 + | + | // Resume after yield (like a return). + | mr RA, BASE + | lp BASE, L->base + | li TISNUM, LJ_TISNUM // Setup type comparison constants. + | lp TMP1, L->top + | lwz PC, FRAME_PC(BASE) + | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | stb CARG3, L->status + | stw TMP3, TMPD + | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). + | lfs TOBIT, TMPD + | sub RD, TMP1, BASE + | stw TMP3, TMPD + | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) + | addi RD, RD, 8 + | stw TMP0, TONUM_HI + | li_vmstate INTERP + | li ZERO, 0 + | st_vmstate + | andix. TMP0, PC, FRAME_TYPE + | mr MULTRES, RD + | lfs TONUM, TMPD + | li TISNIL, LJ_TNIL + | beq ->BC_RET_Z + | b ->vm_return + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | li PC, FRAME_CP + | stw CARG4, SAVE_ERRF + | b >1 + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | li PC, FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + | lp TMP1, L:CARG1->cframe + | stw CARG3, SAVE_NRES + | mr L, CARG1 + | stw CARG1, SAVE_L + | mr BASE, CARG2 + | stp sp, L->cframe // Add our C frame to cframe chain. + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | stp TMP1, SAVE_CFRAME + | addi DISPATCH, DISPATCH, GG_G2DISP + | + |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | lp TMP2, L->base // TMP2 = old base (used in vmeta_call). + | li TISNUM, LJ_TISNUM // Setup type comparison constants. + | lp TMP1, L->top + | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | add PC, PC, BASE + | stw TMP3, TMPD + | li ZERO, 0 + | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). + | lfs TOBIT, TMPD + | sub PC, PC, TMP2 // PC = frame delta + frame type + | stw TMP3, TMPD + | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) + | sub NARGS8:RC, TMP1, BASE + | stw TMP0, TONUM_HI + | li_vmstate INTERP + | lfs TONUM, TMPD + | li TISNIL, LJ_TNIL + | st_vmstate + | + |->vm_call_dispatch: + | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC + | lwz TMP0, FRAME_PC(BASE) + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | checkfunc TMP0; bne ->vmeta_call + | + |->vm_call_dispatch_f: + | ins_call + | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + | mr L, CARG1 + | lwz TMP0, L:CARG1->stack + | stw CARG1, SAVE_L + | lp TMP1, L->top + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). + | lp TMP1, L->cframe + | stp sp, L->cframe // Add our C frame to cframe chain. + | .toc lp CARG4, 0(CARG4) + | li TMP2, 0 + | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. + | stw TMP2, SAVE_ERRF // No error function. + | stp TMP1, SAVE_CFRAME + | mtctr CARG4 + | bctrl // (lua_State *L, lua_CFunction func, void *ud) + |.if PPE + | mr BASE, CRET1 + | cmpwi CRET1, 0 + |.else + | mr. BASE, CRET1 + |.endif + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | li PC, FRAME_CP + | addi DISPATCH, DISPATCH, GG_G2DISP + | bne <3 // Else continue with the call. + | b ->vm_leave_cp // No base? Just remove C frame. + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the + |// stack, so BASE doesn't need to be reloaded across these calls. + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 + | lwz TMP0, -12(BASE) // Continuation. + | mr RB, BASE + | mr BASE, TMP2 // Restore caller BASE. + | lwz LFUNC:TMP1, FRAME_FUNC(TMP2) + |.if FFI + | cmplwi TMP0, 1 + |.endif + | lwz PC, -16(RB) // Restore PC from [cont|PC]. + | subi TMP2, RD, 8 + | lwz TMP1, LFUNC:TMP1->pc + | stwx TISNIL, RA, TMP2 // Ensure one valid arg. + |.if FFI + | ble >1 + |.endif + | lwz KBASE, PC2PROTO(k)(TMP1) + | // BASE = base, RA = resultptr, RB = meta base + | mtctr TMP0 + | bctr // Jump to continuation. + | + |.if FFI + |1: + | beq ->cont_ffi_callback // cont = 1: return from FFI callback. + | // cont = 0: tailcall from C function. + | subi TMP1, RB, 16 + | sub RC, TMP1, BASE + | b ->vm_call_tail + |.endif + | + |->cont_cat: // RA = resultptr, RB = meta base + | lwz INS, -4(PC) + | subi CARG2, RB, 16 + | decode_RB8 SAVE0, INS + | lfd f0, 0(RA) + | add TMP1, BASE, SAVE0 + | stp BASE, L->base + | cmplw TMP1, CARG2 + | sub CARG3, CARG2, TMP1 + | decode_RA8 RA, INS + | stfd f0, 0(CARG2) + | bney ->BC_CAT_Z + | stfdx f0, BASE, RA + | b ->cont_nop + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets1: + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | li TMP0, LJ_TSTR + | decode_RB8 RB, INS + | stw STR:RC, 4(CARG3) + | add CARG2, BASE, RB + | stw TMP0, 0(CARG3) + | b >1 + | + |->vmeta_tgets: + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + | li TMP0, LJ_TTAB + | stw TAB:RB, 4(CARG2) + | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) + | stw TMP0, 0(CARG2) + | li TMP1, LJ_TSTR + | stw STR:RC, 4(CARG3) + | stw TMP1, 0(CARG3) + | b >1 + | + |->vmeta_tgetb: // TMP0 = index + |.if not DUALNUM + | tonum_u f0, TMP0 + |.endif + | decode_RB8 RB, INS + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | add CARG2, BASE, RB + |.if DUALNUM + | stw TISNUM, 0(CARG3) + | stw TMP0, 4(CARG3) + |.else + | stfd f0, 0(CARG3) + |.endif + | b >1 + | + |->vmeta_tgetv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | cmplwi CRET1, 0 + | beq >3 + | lfd f0, 0(CRET1) + | ins_next1 + | stfdx f0, BASE, RA + | ins_next2 + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | subfic TMP1, BASE, FRAME_CONT + | lp BASE, L->top + | stw PC, -16(BASE) // [cont|PC] + | add PC, TMP1, BASE + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | li NARGS8:RC, 16 // 2 args for func(t, k). + | b ->vm_call_dispatch_f + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets1: + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | li TMP0, LJ_TSTR + | decode_RB8 RB, INS + | stw STR:RC, 4(CARG3) + | add CARG2, BASE, RB + | stw TMP0, 0(CARG3) + | b >1 + | + |->vmeta_tsets: + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + | li TMP0, LJ_TTAB + | stw TAB:RB, 4(CARG2) + | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) + | stw TMP0, 0(CARG2) + | li TMP1, LJ_TSTR + | stw STR:RC, 4(CARG3) + | stw TMP1, 0(CARG3) + | b >1 + | + |->vmeta_tsetb: // TMP0 = index + |.if not DUALNUM + | tonum_u f0, TMP0 + |.endif + | decode_RB8 RB, INS + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | add CARG2, BASE, RB + |.if DUALNUM + | stw TISNUM, 0(CARG3) + | stw TMP0, 4(CARG3) + |.else + | stfd f0, 0(CARG3) + |.endif + | b >1 + | + |->vmeta_tsetv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | cmplwi CRET1, 0 + | lfdx f0, BASE, RA + | beq >3 + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | ins_next1 + | stfd f0, 0(CRET1) + | ins_next2 + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | subfic TMP1, BASE, FRAME_CONT + | lp BASE, L->top + | stw PC, -16(BASE) // [cont|PC] + | add PC, TMP1, BASE + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | li NARGS8:RC, 24 // 3 args for func(t, k, v) + | stfd f0, 16(BASE) // Copy value to third argument. + | b ->vm_call_dispatch_f + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + | mr CARG1, L + | subi PC, PC, 4 + |.if DUALNUM + | mr CARG2, RA + |.else + | add CARG2, BASE, RA + |.endif + | stw PC, SAVE_PC + |.if DUALNUM + | mr CARG3, RD + |.else + | add CARG3, BASE, RD + |.endif + | stp BASE, L->base + | decode_OP1 CARG4, INS + | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + | // Returns 0/1 or TValue * (metamethod). + |3: + | cmplwi CRET1, 1 + | bgt ->vmeta_binop + | subfic CRET1, CRET1, 0 + |4: + | lwz INS, 0(PC) + | addi PC, PC, 4 + | decode_RD4 TMP2, INS + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | and TMP2, TMP2, CRET1 + | add PC, PC, TMP2 + |->cont_nop: + | ins_next + | + |->cont_ra: // RA = resultptr + | lwz INS, -4(PC) + | lfd f0, 0(RA) + | decode_RA8 TMP1, INS + | stfdx f0, BASE, TMP1 + | b ->cont_nop + | + |->cont_condt: // RA = resultptr + | lwz TMP0, 0(RA) + | .gpr64 extsw TMP0, TMP0 + | subfic TMP0, TMP0, LJ_TTRUE // Branch if result is true. + | subfe CRET1, CRET1, CRET1 + | not CRET1, CRET1 + | b <4 + | + |->cont_condf: // RA = resultptr + | lwz TMP0, 0(RA) + | .gpr64 extsw TMP0, TMP0 + | subfic TMP0, TMP0, LJ_TTRUE // Branch if result is false. + | subfe CRET1, CRET1, CRET1 + | b <4 + | + |->vmeta_equal: + | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. + | subi PC, PC, 4 + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + | + |->vmeta_equal_cd: + |.if FFI + | mr CARG2, INS + | subi PC, PC, 4 + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + |.endif + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_arith_nv: + | add CARG3, KBASE, RC + | add CARG4, BASE, RB + | b >1 + |->vmeta_arith_nv2: + |.if DUALNUM + | mr CARG3, RC + | mr CARG4, RB + | b >1 + |.endif + | + |->vmeta_unm: + | mr CARG3, RD + | mr CARG4, RD + | b >1 + | + |->vmeta_arith_vn: + | add CARG3, BASE, RB + | add CARG4, KBASE, RC + | b >1 + | + |->vmeta_arith_vv: + | add CARG3, BASE, RB + | add CARG4, BASE, RC + |.if DUALNUM + | b >1 + |.endif + |->vmeta_arith_vn2: + |->vmeta_arith_vv2: + |.if DUALNUM + | mr CARG3, RB + | mr CARG4, RC + |.endif + |1: + | add CARG2, BASE, RA + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | decode_OP1 CARG5, INS // Caveat: CARG5 overlaps INS. + | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + | // Returns NULL (finished) or TValue * (metamethod). + | cmplwi CRET1, 0 + | beq ->cont_nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 + | sub TMP1, CRET1, BASE + | stw PC, -16(CRET1) // [cont|PC] + | mr TMP2, BASE + | addi PC, TMP1, FRAME_CONT + | mr BASE, CRET1 + | li NARGS8:RC, 16 // 2 args for func(o1, o2). + | b ->vm_call_dispatch + | + |->vmeta_len: +#if LJ_52 + | mr SAVE0, CARG1 +#endif + | mr CARG2, RD + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_len // (lua_State *L, TValue *o) + | // Returns NULL (retry) or TValue * (metamethod base). +#if LJ_52 + | cmplwi CRET1, 0 + | bne ->vmeta_binop // Binop call for compatibility. + | mr CARG1, SAVE0 + | b ->BC_LEN_Z +#else + | b ->vmeta_binop // Binop call for compatibility. +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call: // Resolve and call __call metamethod. + | // TMP2 = old base, BASE = new base, RC = nargs*8 + | mr CARG1, L + | stp TMP2, L->base // This is the callers base! + | subi CARG2, BASE, 8 + | stw PC, SAVE_PC + | add CARG3, BASE, RC + | mr SAVE0, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. + | ins_call + | + |->vmeta_callt: // Resolve __call for BC_CALLT. + | // BASE = old base, RA = new base, RC = nargs*8 + | mr CARG1, L + | stp BASE, L->base + | subi CARG2, RA, 8 + | stw PC, SAVE_PC + | add CARG3, RA, RC + | mr SAVE0, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | lwz TMP1, FRAME_PC(BASE) + | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. + | lwz LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. + | b ->BC_CALLT_Z + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | mr CARG1, L + | stp BASE, L->base + | mr CARG2, RA + | stw PC, SAVE_PC + | mr SAVE0, INS + | bl extern lj_meta_for // (lua_State *L, TValue *base) + |.if JIT + | decode_OP1 TMP0, SAVE0 + |.endif + | decode_RA8 RA, SAVE0 + |.if JIT + | cmpwi TMP0, BC_JFORI + |.endif + | decode_RD8 RD, SAVE0 + |.if JIT + | beqy =>BC_JFORI + |.endif + | b =>BC_FORI + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lwz CARG1, 4(BASE) + | blt ->fff_fallback + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 16 + | lwz CARG3, 0(BASE) + | lwz CARG4, 8(BASE) + | lwz CARG1, 4(BASE) + | lwz CARG2, 12(BASE) + | blt ->fff_fallback + |.endmacro + | + |.macro .ffunc_n, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lfd FARG1, 0(BASE) + | blt ->fff_fallback + | checknum CARG3; bge ->fff_fallback + |.endmacro + | + |.macro .ffunc_nn, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 16 + | lwz CARG3, 0(BASE) + | lfd FARG1, 0(BASE) + | lwz CARG4, 8(BASE) + | lfd FARG2, 8(BASE) + | blt ->fff_fallback + | checknum CARG3; bge ->fff_fallback + | checknum CARG4; bge ->fff_fallback + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1. + |.macro ffgccheck + | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | cmplw TMP0, TMP1 + | bgel ->fff_gcstep + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc_1 assert + | li TMP1, LJ_TFALSE + | la RA, -8(BASE) + | cmplw cr1, CARG3, TMP1 + | lwz PC, FRAME_PC(BASE) + | bge cr1, ->fff_fallback + | stw CARG3, 0(RA) + | addi RD, NARGS8:RC, 8 // Compute (nresults+1)*8. + | stw CARG1, 4(RA) + | beq ->fff_res // Done if exactly 1 argument. + | li TMP1, 8 + | subi RC, RC, 8 + |1: + | cmplw TMP1, RC + | lfdx f0, BASE, TMP1 + | stfdx f0, RA, TMP1 + | addi TMP1, TMP1, 8 + | bney <1 + | b ->fff_res + | + |.ffunc type + | cmplwi NARGS8:RC, 8 + | lwz CARG1, 0(BASE) + | blt ->fff_fallback + | .gpr64 extsw CARG1, CARG1 + | subfc TMP0, TISNUM, CARG1 + | subfe TMP2, CARG1, CARG1 + | orc TMP1, TMP2, TMP0 + | addi TMP1, TMP1, ~LJ_TISNUM+1 + | slwi TMP1, TMP1, 3 + | la TMP2, CFUNC:RB->upvalue + | lfdx FARG1, TMP2, TMP1 + | b ->fff_resn + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | checktab CARG3; bne >6 + |1: // Field metatable must be at same offset for GCtab and GCudata! + | lwz TAB:CARG1, TAB:CARG1->metatable + |2: + | li CARG3, LJ_TNIL + | cmplwi TAB:CARG1, 0 + | lwz STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) + | beq ->fff_restv + | lwz TMP0, TAB:CARG1->hmask + | li CARG3, LJ_TTAB // Use metatable as default result. + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:CARG1->node + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |3: // Rearranged logic, because we expect _not_ to find the key. + | lwz CARG4, NODE:TMP2->key + | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) + | lwz CARG2, NODE:TMP2->val + | lwz TMP1, 4+offsetof(Node, val)(NODE:TMP2) + | checkstr CARG4; bne >4 + | cmpw TMP0, STR:RC; beq >5 + |4: + | lwz NODE:TMP2, NODE:TMP2->next + | cmplwi NODE:TMP2, 0 + | beq ->fff_restv // Not found, keep default result. + | b <3 + |5: + | checknil CARG2 + | beq ->fff_restv // Ditto for nil value. + | mr CARG3, CARG2 // Return value of mt.__metatable. + | mr CARG1, TMP1 + | b ->fff_restv + | + |6: + | cmpwi CARG3, LJ_TUDATA; beq <1 + | .gpr64 extsw CARG3, CARG3 + | subfc TMP0, TISNUM, CARG3 + | subfe TMP2, CARG3, CARG3 + | orc TMP1, TMP2, TMP0 + | addi TMP1, TMP1, ~LJ_TISNUM+1 + | slwi TMP1, TMP1, 2 + | la TMP2, DISPATCH_GL(gcroot[GCROOT_BASEMT])(DISPATCH) + | lwzx TAB:CARG1, TMP2, TMP1 + | b <2 + | + |.ffunc_2 setmetatable + | // Fast path: no mt for table yet and not clearing the mt. + | checktab CARG3; bne ->fff_fallback + | lwz TAB:TMP1, TAB:CARG1->metatable + | checktab CARG4; bne ->fff_fallback + | cmplwi TAB:TMP1, 0 + | lbz TMP3, TAB:CARG1->marked + | bne ->fff_fallback + | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | stw TAB:CARG2, TAB:CARG1->metatable + | beq ->fff_restv + | barrierback TAB:CARG1, TMP3, TMP0 + | b ->fff_restv + | + |.ffunc rawget + | cmplwi NARGS8:RC, 16 + | lwz CARG4, 0(BASE) + | lwz TAB:CARG2, 4(BASE) + | blt ->fff_fallback + | checktab CARG4; bne ->fff_fallback + | la CARG3, 8(BASE) + | mr CARG1, L + | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + | // Returns cTValue *. + | lfd FARG1, 0(CRET1) + | b ->fff_resn + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | cmplwi NARGS8:RC, 8 + | lwz CARG1, 0(BASE) + | lfd FARG1, 0(BASE) + | bne ->fff_fallback // Exactly one argument. + | checknum CARG1; bgt ->fff_fallback + | b ->fff_resn + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | checkstr CARG3 + | // A __tostring method in the string base metatable is ignored. + | beq ->fff_restv // String key? + | // Handle numbers inline, unless a number base metatable is present. + | lwz TMP0, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) + | checknum CARG3 + | cmplwi cr1, TMP0, 0 + | stp BASE, L->base // Add frame since C call can throw. + | crorc 4*cr0+eq, 4*cr0+gt, 4*cr1+eq + | stw PC, SAVE_PC // Redundant (but a defined value). + | beq ->fff_fallback + | ffgccheck + | mr CARG1, L + | mr CARG2, BASE + |.if DUALNUM + | bl extern lj_str_fromnumber // (lua_State *L, cTValue *o) + |.else + | bl extern lj_str_fromnum // (lua_State *L, lua_Number *np) + |.endif + | // Returns GCstr *. + | li CARG3, LJ_TSTR + | b ->fff_restv + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc next + | cmplwi NARGS8:RC, 8 + | lwz CARG1, 0(BASE) + | lwz TAB:CARG2, 4(BASE) + | blt ->fff_fallback + | stwx TISNIL, BASE, NARGS8:RC // Set missing 2nd arg to nil. + | checktab CARG1 + | lwz PC, FRAME_PC(BASE) + | bne ->fff_fallback + | stp BASE, L->base // Add frame since C call can throw. + | mr CARG1, L + | stp BASE, L->top // Dummy frame length is ok. + | la CARG3, 8(BASE) + | stw PC, SAVE_PC + | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + | // Returns 0 at end of traversal. + | cmplwi CRET1, 0 + | li CARG3, LJ_TNIL + | beq ->fff_restv // End of traversal: return nil. + | lfd f0, 8(BASE) // Copy key and value to results. + | la RA, -8(BASE) + | lfd f1, 16(BASE) + | stfd f0, 0(RA) + | li RD, (2+1)*8 + | stfd f1, 8(RA) + | b ->fff_res + | + |.ffunc_1 pairs + | checktab CARG3 + | lwz PC, FRAME_PC(BASE) + | bne ->fff_fallback +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | lfd f0, CFUNC:RB->upvalue[0] + | cmplwi TAB:TMP2, 0 + | la RA, -8(BASE) + | bne ->fff_fallback +#else + | lfd f0, CFUNC:RB->upvalue[0] + | la RA, -8(BASE) +#endif + | stw TISNIL, 8(BASE) + | li RD, (3+1)*8 + | stfd f0, 0(RA) + | b ->fff_res + | + |.ffunc ipairs_aux + | cmplwi NARGS8:RC, 16 + | lwz CARG3, 0(BASE) + | lwz TAB:CARG1, 4(BASE) + | lwz CARG4, 8(BASE) + |.if DUALNUM + | lwz TMP2, 12(BASE) + |.else + | lfd FARG2, 8(BASE) + |.endif + | blt ->fff_fallback + | checktab CARG3 + | checknum cr1, CARG4 + | lwz PC, FRAME_PC(BASE) + |.if DUALNUM + | bne ->fff_fallback + | bne cr1, ->fff_fallback + |.else + | lus TMP0, 0x3ff0 + | stw ZERO, TMPD_LO + | bne ->fff_fallback + | stw TMP0, TMPD_HI + | bge cr1, ->fff_fallback + | lfd FARG1, TMPD + | toint TMP2, FARG2, f0 + |.endif + | lwz TMP0, TAB:CARG1->asize + | lwz TMP1, TAB:CARG1->array + |.if not DUALNUM + | fadd FARG2, FARG2, FARG1 + |.endif + | addi TMP2, TMP2, 1 + | la RA, -8(BASE) + | cmplw TMP0, TMP2 + |.if DUALNUM + | stw TISNUM, 0(RA) + | slwi TMP3, TMP2, 3 + | stw TMP2, 4(RA) + |.else + | slwi TMP3, TMP2, 3 + | stfd FARG2, 0(RA) + |.endif + | ble >2 // Not in array part? + | lwzx TMP2, TMP1, TMP3 + | lfdx f0, TMP1, TMP3 + |1: + | checknil TMP2 + | li RD, (0+1)*8 + | beq ->fff_res // End of iteration, return 0 results. + | li RD, (2+1)*8 + | stfd f0, 8(RA) + | b ->fff_res + |2: // Check for empty hash part first. Otherwise call C function. + | lwz TMP0, TAB:CARG1->hmask + | cmplwi TMP0, 0 + | li RD, (0+1)*8 + | beq ->fff_res + | mr CARG2, TMP2 + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | cmplwi CRET1, 0 + | li RD, (0+1)*8 + | beq ->fff_res + | lwz TMP2, 0(CRET1) + | lfd f0, 0(CRET1) + | b <1 + | + |.ffunc_1 ipairs + | checktab CARG3 + | lwz PC, FRAME_PC(BASE) + | bne ->fff_fallback +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | lfd f0, CFUNC:RB->upvalue[0] + | cmplwi TAB:TMP2, 0 + | la RA, -8(BASE) + | bne ->fff_fallback +#else + | lfd f0, CFUNC:RB->upvalue[0] + | la RA, -8(BASE) +#endif + |.if DUALNUM + | stw TISNUM, 8(BASE) + |.else + | stw ZERO, 8(BASE) + |.endif + | stw ZERO, 12(BASE) + | li RD, (3+1)*8 + | stfd f0, 0(RA) + | b ->fff_res + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc pcall + | cmplwi NARGS8:RC, 8 + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | blt ->fff_fallback + | mr TMP2, BASE + | la BASE, 8(BASE) + | // Remember active hook before pcall. + | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 + | subi NARGS8:RC, NARGS8:RC, 8 + | addi PC, TMP3, 8+FRAME_PCALL + | b ->vm_call_dispatch + | + |.ffunc xpcall + | cmplwi NARGS8:RC, 16 + | lwz CARG4, 8(BASE) + | lfd FARG2, 8(BASE) + | lfd FARG1, 0(BASE) + | blt ->fff_fallback + | lbz TMP1, DISPATCH_GL(hookmask)(DISPATCH) + | mr TMP2, BASE + | checkfunc CARG4; bne ->fff_fallback // Traceback must be a function. + | la BASE, 16(BASE) + | // Remember active hook before pcall. + | rlwinm TMP1, TMP1, 32-HOOK_ACTIVE_SHIFT, 31, 31 + | stfd FARG2, 0(TMP2) // Swap function and traceback. + | subi NARGS8:RC, NARGS8:RC, 16 + | stfd FARG1, 8(TMP2) + | addi PC, TMP1, 16+FRAME_PCALL + | b ->vm_call_dispatch + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | cmpwi CARG3, LJ_TTHREAD; bne ->fff_fallback + |.else + |.ffunc coroutine_wrap_aux + | lwz L:CARG1, CFUNC:RB->upvalue[0].gcr + |.endif + | lbz TMP0, L:CARG1->status + | lp TMP1, L:CARG1->cframe + | lp CARG2, L:CARG1->top + | cmplwi cr0, TMP0, LUA_YIELD + | lp TMP2, L:CARG1->base + | cmplwi cr1, TMP1, 0 + | lwz TMP0, L:CARG1->maxstack + | cmplw cr7, CARG2, TMP2 + | lwz PC, FRAME_PC(BASE) + | crorc 4*cr6+lt, 4*cr0+gt, 4*cr1+eq // st>LUA_YIELD || cframe!=0 + | add TMP2, CARG2, NARGS8:RC + | crandc 4*cr6+gt, 4*cr7+eq, 4*cr0+eq // base==top && st!=LUA_YIELD + | cmplw cr1, TMP2, TMP0 + | cror 4*cr6+lt, 4*cr6+lt, 4*cr6+gt + | stw PC, SAVE_PC + | cror 4*cr6+lt, 4*cr6+lt, 4*cr1+gt // cond1 || cond2 || stackov + | stp BASE, L->base + | blt cr6, ->fff_fallback + |1: + |.if resume + | addi BASE, BASE, 8 // Keep resumed thread in stack for GC. + | subi NARGS8:RC, NARGS8:RC, 8 + | subi TMP2, TMP2, 8 + |.endif + | stp TMP2, L:CARG1->top + | li TMP1, 0 + | stp BASE, L->top + |2: // Move args to coroutine. + | cmpw TMP1, NARGS8:RC + | lfdx f0, BASE, TMP1 + | beq >3 + | stfdx f0, CARG2, TMP1 + | addi TMP1, TMP1, 8 + | b <2 + |3: + | li CARG3, 0 + | mr L:SAVE0, L:CARG1 + | li CARG4, 0 + | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) + | // Returns thread status. + |4: + | lp TMP2, L:SAVE0->base + | cmplwi CRET1, LUA_YIELD + | lp TMP3, L:SAVE0->top + | li_vmstate INTERP + | lp BASE, L->base + | st_vmstate + | bgt >8 + | sub RD, TMP3, TMP2 + | lwz TMP0, L->maxstack + | cmplwi RD, 0 + | add TMP1, BASE, RD + | beq >6 // No results? + | cmplw TMP1, TMP0 + | li TMP1, 0 + | bgt >9 // Need to grow stack? + | + | subi TMP3, RD, 8 + | stp TMP2, L:SAVE0->top // Clear coroutine stack. + |5: // Move results from coroutine. + | cmplw TMP1, TMP3 + | lfdx f0, TMP2, TMP1 + | stfdx f0, BASE, TMP1 + | addi TMP1, TMP1, 8 + | bne <5 + |6: + | andix. TMP0, PC, FRAME_TYPE + |.if resume + | li TMP1, LJ_TTRUE + | la RA, -8(BASE) + | stw TMP1, -8(BASE) // Prepend true to results. + | addi RD, RD, 16 + |.else + | mr RA, BASE + | addi RD, RD, 8 + |.endif + |7: + | stw PC, SAVE_PC + | mr MULTRES, RD + | beq ->BC_RET_Z + | b ->vm_return + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | andix. TMP0, PC, FRAME_TYPE + | la TMP3, -8(TMP3) + | li TMP1, LJ_TFALSE + | lfd f0, 0(TMP3) + | stp TMP3, L:SAVE0->top // Remove error from coroutine stack. + | li RD, (2+1)*8 + | stw TMP1, -8(BASE) // Prepend false to results. + | la RA, -8(BASE) + | stfd f0, 0(BASE) // Copy error message. + | b <7 + |.else + | mr CARG1, L + | mr CARG2, L:SAVE0 + | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) + |.endif + | + |9: // Handle stack expansion on return from yield. + | mr CARG1, L + | srwi CARG2, RD, 3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | li CRET1, 0 + | b <4 + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | lp TMP0, L->cframe + | add TMP1, BASE, NARGS8:RC + | stp BASE, L->base + | andix. TMP0, TMP0, CFRAME_RESUME + | stp TMP1, L->top + | li CRET1, LUA_YIELD + | beq ->fff_fallback + | stp ZERO, L->cframe + | stb CRET1, L->status + | b ->vm_leave_unw + | + |//-- Math library ------------------------------------------------------- + | + |.ffunc_1 math_abs + | checknum CARG3 + |.if DUALNUM + | bne >2 + | srawi TMP1, CARG1, 31 + | xor TMP2, TMP1, CARG1 + |.if GPR64 + | lus TMP0, 0x8000 + | sub CARG1, TMP2, TMP1 + | cmplw CARG1, TMP0 + | beq >1 + |.else + | sub. CARG1, TMP2, TMP1 + | blt >1 + |.endif + |->fff_resi: + | lwz PC, FRAME_PC(BASE) + | la RA, -8(BASE) + | stw TISNUM, -8(BASE) + | stw CRET1, -4(BASE) + | b ->fff_res1 + |1: + | lus CARG3, 0x41e0 // 2^31. + | li CARG1, 0 + | b ->fff_restv + |2: + |.endif + | bge ->fff_fallback + | rlwinm CARG3, CARG3, 0, 1, 31 + | // Fallthrough. + | + |->fff_restv: + | // CARG3/CARG1 = TValue result. + | lwz PC, FRAME_PC(BASE) + | stw CARG3, -8(BASE) + | la RA, -8(BASE) + | stw CARG1, -4(BASE) + |->fff_res1: + | // RA = results, PC = return. + | li RD, (1+1)*8 + |->fff_res: + | // RA = results, RD = (nresults+1)*8, PC = return. + | andix. TMP0, PC, FRAME_TYPE + | mr MULTRES, RD + | bney ->vm_return + | lwz INS, -4(PC) + | decode_RB8 RB, INS + |5: + | cmplw RB, RD // More results expected? + | decode_RA8 TMP0, INS + | bgt >6 + | ins_next1 + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | sub BASE, RA, TMP0 + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | stwx TISNIL, RA, TMP1 + | b <5 + | + |.macro math_extern, func + | .ffunc_n math_ .. func + | blex func + | b ->fff_resn + |.endmacro + | + |.macro math_extern2, func + | .ffunc_nn math_ .. func + | blex func + | b ->fff_resn + |.endmacro + | + |.macro math_round, func + | .ffunc_1 math_ .. func + | checknum CARG3; beqy ->fff_restv + | rlwinm TMP2, CARG3, 12, 21, 31 + | bge ->fff_fallback + | addic. TMP2, TMP2, -1023 // exp = exponent(x) - 1023 + | cmplwi cr1, TMP2, 31 // 0 <= exp < 31? + | subfic TMP0, TMP2, 31 + | blt >3 + | slwi TMP1, CARG3, 11 + | srwi TMP3, CARG1, 21 + | oris TMP1, TMP1, 0x8000 + | addi TMP2, TMP2, 1 + | or TMP1, TMP1, TMP3 + | slwi CARG2, CARG1, 11 + | bge cr1, >4 + | slw TMP3, TMP1, TMP2 + | srw RD, TMP1, TMP0 + | or TMP3, TMP3, CARG2 + | srawi TMP2, CARG3, 31 + |.if "func" == "floor" + | and TMP1, TMP3, TMP2 + | addic TMP0, TMP1, -1 + | subfe TMP1, TMP0, TMP1 + | add CARG1, RD, TMP1 + | xor CARG1, CARG1, TMP2 + | sub CARG1, CARG1, TMP2 + | b ->fff_resi + |.else + | andc TMP1, TMP3, TMP2 + | addic TMP0, TMP1, -1 + | subfe TMP1, TMP0, TMP1 + | add CARG1, RD, TMP1 + | cmpw CARG1, RD + | xor CARG1, CARG1, TMP2 + | sub CARG1, CARG1, TMP2 + | bge ->fff_resi + | // Overflow to 2^31. + | lus CARG3, 0x41e0 // 2^31. + | li CARG1, 0 + | b ->fff_restv + |.endif + |3: // |x| < 1 + | slwi TMP2, CARG3, 1 + | srawi TMP1, CARG3, 31 + | or TMP2, CARG1, TMP2 // ztest = (hi+hi) | lo + |.if "func" == "floor" + | and TMP1, TMP2, TMP1 // (ztest & sign) == 0 ? 0 : -1 + | subfic TMP2, TMP1, 0 + | subfe CARG1, CARG1, CARG1 + |.else + | andc TMP1, TMP2, TMP1 // (ztest & ~sign) == 0 ? 0 : 1 + | addic TMP2, TMP1, -1 + | subfe CARG1, TMP2, TMP1 + |.endif + | b ->fff_resi + |4: // exp >= 31. Check for -(2^31). + | xoris TMP1, TMP1, 0x8000 + | srawi TMP2, CARG3, 31 + |.if "func" == "floor" + | or TMP1, TMP1, CARG2 + |.endif + |.if PPE + | orc TMP1, TMP1, TMP2 + | cmpwi TMP1, 0 + |.else + | orc. TMP1, TMP1, TMP2 + |.endif + | crand 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | lus CARG1, 0x8000 // -(2^31). + | beqy ->fff_resi + |5: + | lfd FARG1, 0(BASE) + | blex func + | b ->fff_resn + |.endmacro + | + |.if DUALNUM + | math_round floor + | math_round ceil + |.else + | // NYI: use internal implementation. + | math_extern floor + | math_extern ceil + |.endif + | + |.if SQRT + |.ffunc_n math_sqrt + | fsqrt FARG1, FARG1 + | b ->fff_resn + |.else + | math_extern sqrt + |.endif + | + |.ffunc math_log + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lfd FARG1, 0(BASE) + | bne ->fff_fallback // Need exactly 1 argument. + | checknum CARG3; bge ->fff_fallback + | blex log + | b ->fff_resn + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan + | math_extern sinh + | math_extern cosh + | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod + | + |->ff_math_deg: + |.ffunc_n math_rad + | lfd FARG2, CFUNC:RB->upvalue[0] + | fmul FARG1, FARG1, FARG2 + | b ->fff_resn + | + |.if DUALNUM + |.ffunc math_ldexp + | cmplwi NARGS8:RC, 16 + | lwz CARG3, 0(BASE) + | lfd FARG1, 0(BASE) + | lwz CARG4, 8(BASE) + |.if GPR64 + | lwz CARG2, 12(BASE) + |.else + | lwz CARG1, 12(BASE) + |.endif + | blt ->fff_fallback + | checknum CARG3; bge ->fff_fallback + | checknum CARG4; bne ->fff_fallback + |.else + |.ffunc_nn math_ldexp + |.if GPR64 + | toint CARG2, FARG2 + |.else + | toint CARG1, FARG2 + |.endif + |.endif + | blex ldexp + | b ->fff_resn + | + |.ffunc_n math_frexp + |.if GPR64 + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + |.else + | la CARG1, DISPATCH_GL(tmptv)(DISPATCH) + |.endif + | lwz PC, FRAME_PC(BASE) + | blex frexp + | lwz TMP1, DISPATCH_GL(tmptv)(DISPATCH) + | la RA, -8(BASE) + |.if not DUALNUM + | tonum_i FARG2, TMP1 + |.endif + | stfd FARG1, 0(RA) + | li RD, (2+1)*8 + |.if DUALNUM + | stw TISNUM, 8(RA) + | stw TMP1, 12(RA) + |.else + | stfd FARG2, 8(RA) + |.endif + | b ->fff_res + | + |.ffunc_n math_modf + |.if GPR64 + | la CARG2, -8(BASE) + |.else + | la CARG1, -8(BASE) + |.endif + | lwz PC, FRAME_PC(BASE) + | blex modf + | la RA, -8(BASE) + | stfd FARG1, 0(BASE) + | li RD, (2+1)*8 + | b ->fff_res + | + |.macro math_minmax, name, ismax + |.if DUALNUM + | .ffunc_1 name + | checknum CARG3 + | addi TMP1, BASE, 8 + | add TMP2, BASE, NARGS8:RC + | bne >4 + |1: // Handle integers. + | lwz CARG4, 0(TMP1) + | cmplw cr1, TMP1, TMP2 + | lwz CARG2, 4(TMP1) + | bge cr1, ->fff_resi + | checknum CARG4 + | xoris TMP0, CARG1, 0x8000 + | xoris TMP3, CARG2, 0x8000 + | bne >3 + | subfc TMP3, TMP3, TMP0 + | subfe TMP0, TMP0, TMP0 + |.if ismax + | andc TMP3, TMP3, TMP0 + |.else + | and TMP3, TMP3, TMP0 + |.endif + | add CARG1, TMP3, CARG2 + |.if GPR64 + | rldicl CARG1, CARG1, 0, 32 + |.endif + | addi TMP1, TMP1, 8 + | b <1 + |3: + | bge ->fff_fallback + | // Convert intermediate result to number and continue below. + | tonum_i FARG1, CARG1 + | lfd FARG2, 0(TMP1) + | b >6 + |4: + | lfd FARG1, 0(BASE) + | bge ->fff_fallback + |5: // Handle numbers. + | lwz CARG4, 0(TMP1) + | cmplw cr1, TMP1, TMP2 + | lfd FARG2, 0(TMP1) + | bge cr1, ->fff_resn + | checknum CARG4; bge >7 + |6: + | fsub f0, FARG1, FARG2 + | addi TMP1, TMP1, 8 + |.if ismax + | fsel FARG1, f0, FARG1, FARG2 + |.else + | fsel FARG1, f0, FARG2, FARG1 + |.endif + | b <5 + |7: // Convert integer to number and continue above. + | lwz CARG2, 4(TMP1) + | bne ->fff_fallback + | tonum_i FARG2, CARG2 + | b <6 + |.else + | .ffunc_n name + | li TMP1, 8 + |1: + | lwzx CARG2, BASE, TMP1 + | lfdx FARG2, BASE, TMP1 + | cmplw cr1, TMP1, NARGS8:RC + | checknum CARG2 + | bge cr1, ->fff_resn + | bge ->fff_fallback + | fsub f0, FARG1, FARG2 + | addi TMP1, TMP1, 8 + |.if ismax + | fsel FARG1, f0, FARG1, FARG2 + |.else + | fsel FARG1, f0, FARG2, FARG1 + |.endif + | b <1 + |.endif + |.endmacro + | + | math_minmax math_min, 0 + | math_minmax math_max, 1 + | + |//-- String library ----------------------------------------------------- + | + |.ffunc_1 string_len + | checkstr CARG3; bne ->fff_fallback + | lwz CRET1, STR:CARG1->len + | b ->fff_resi + | + |.ffunc string_byte // Only handle the 1-arg case here. + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lwz STR:CARG1, 4(BASE) + | bne ->fff_fallback // Need exactly 1 argument. + | checkstr CARG3 + | bne ->fff_fallback + | lwz TMP0, STR:CARG1->len + |.if DUALNUM + | lbz CARG1, STR:CARG1[1] // Access is always ok (NUL at end). + | li RD, (0+1)*8 + | lwz PC, FRAME_PC(BASE) + | cmplwi TMP0, 0 + | la RA, -8(BASE) + | beqy ->fff_res + | b ->fff_resi + |.else + | lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end). + | addic TMP3, TMP0, -1 // RD = ((str->len != 0)+1)*8 + | subfe RD, TMP3, TMP0 + | stw TMP1, TONUM_LO // Inlined tonum_u f0, TMP1. + | addi RD, RD, 1 + | lfd f0, TONUM_D + | la RA, -8(BASE) + | lwz PC, FRAME_PC(BASE) + | fsub f0, f0, TOBIT + | slwi RD, RD, 3 + | stfd f0, 0(RA) + | b ->fff_res + |.endif + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + |.if DUALNUM + | lwz TMP0, 4(BASE) + | bne ->fff_fallback // Exactly 1 argument. + | checknum CARG3; bne ->fff_fallback + | la CARG2, 7(BASE) + |.else + | lfd FARG1, 0(BASE) + | bne ->fff_fallback // Exactly 1 argument. + | checknum CARG3; bge ->fff_fallback + | toint TMP0, FARG1 + | la CARG2, TMPD_BLO + |.endif + | li CARG3, 1 + | cmplwi TMP0, 255; bgt ->fff_fallback + |->fff_newstr: + | mr CARG1, L + | stp BASE, L->base + | stw PC, SAVE_PC + | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + | // Returns GCstr *. + | lp BASE, L->base + | li CARG3, LJ_TSTR + | b ->fff_restv + | + |.ffunc string_sub + | ffgccheck + | cmplwi NARGS8:RC, 16 + | lwz CARG3, 16(BASE) + |.if not DUALNUM + | lfd f0, 16(BASE) + |.endif + | lwz TMP0, 0(BASE) + | lwz STR:CARG1, 4(BASE) + | blt ->fff_fallback + | lwz CARG2, 8(BASE) + |.if DUALNUM + | lwz TMP1, 12(BASE) + |.else + | lfd f1, 8(BASE) + |.endif + | li TMP2, -1 + | beq >1 + |.if DUALNUM + | checknum CARG3 + | lwz TMP2, 20(BASE) + | bne ->fff_fallback + |1: + | checknum CARG2; bne ->fff_fallback + |.else + | checknum CARG3; bge ->fff_fallback + | toint TMP2, f0 + |1: + | checknum CARG2; bge ->fff_fallback + |.endif + | checkstr TMP0; bne ->fff_fallback + |.if not DUALNUM + | toint TMP1, f1 + |.endif + | lwz TMP0, STR:CARG1->len + | cmplw TMP0, TMP2 // len < end? (unsigned compare) + | addi TMP3, TMP2, 1 + | blt >5 + |2: + | cmpwi TMP1, 0 // start <= 0? + | add TMP3, TMP1, TMP0 + | ble >7 + |3: + | sub CARG3, TMP2, TMP1 + | addi CARG2, STR:CARG1, #STR-1 + | srawi TMP0, CARG3, 31 + | addi CARG3, CARG3, 1 + | add CARG2, CARG2, TMP1 + | andc CARG3, CARG3, TMP0 + |.if GPR64 + | rldicl CARG2, CARG2, 0, 32 + | rldicl CARG3, CARG3, 0, 32 + |.endif + | b ->fff_newstr + | + |5: // Negative end or overflow. + | cmpw TMP0, TMP2 // len >= end? (signed compare) + | add TMP2, TMP0, TMP3 // Negative end: end = end+len+1. + | bge <2 + | mr TMP2, TMP0 // Overflow: end = len. + | b <2 + | + |7: // Negative start or underflow. + | .gpr64 extsw TMP1, TMP1 + | addic CARG3, TMP1, -1 + | subfe CARG3, CARG3, CARG3 + | srawi CARG2, TMP3, 31 // Note: modifies carry. + | andc TMP3, TMP3, CARG3 + | andc TMP1, TMP3, CARG2 + | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0) + | b <3 + | + |.ffunc string_rep // Only handle the 1-char case inline. + | ffgccheck + | cmplwi NARGS8:RC, 16 + | lwz TMP0, 0(BASE) + | lwz STR:CARG1, 4(BASE) + | lwz CARG4, 8(BASE) + |.if DUALNUM + | lwz CARG3, 12(BASE) + |.else + | lfd FARG2, 8(BASE) + |.endif + | bne ->fff_fallback // Exactly 2 arguments. + | checkstr TMP0; bne ->fff_fallback + |.if DUALNUM + | checknum CARG4; bne ->fff_fallback + |.else + | checknum CARG4; bge ->fff_fallback + | toint CARG3, FARG2 + |.endif + | lwz TMP0, STR:CARG1->len + | cmpwi CARG3, 0 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | ble >2 // Count <= 0? (or non-int) + | cmplwi TMP0, 1 + | subi TMP2, CARG3, 1 + | blt >2 // Zero length string? + | cmplw cr1, TMP1, CARG3 + | bne ->fff_fallback // Fallback for > 1-char strings. + | lbz TMP0, STR:CARG1[1] + | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | blt cr1, ->fff_fallback + |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). + | cmplwi TMP2, 0 + | stbx TMP0, CARG2, TMP2 + | subi TMP2, TMP2, 1 + | bne <1 + | b ->fff_newstr + |2: // Return empty string. + | la STR:CARG1, DISPATCH_GL(strempty)(DISPATCH) + | li CARG3, LJ_TSTR + | b ->fff_restv + | + |.ffunc string_reverse + | ffgccheck + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lwz STR:CARG1, 4(BASE) + | blt ->fff_fallback + | checkstr CARG3 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | bne ->fff_fallback + | lwz CARG3, STR:CARG1->len + | la CARG1, #STR(STR:CARG1) + | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | li TMP2, 0 + | cmplw TMP1, CARG3 + | subi TMP3, CARG3, 1 + | blt ->fff_fallback + |1: // Reverse string copy. + | cmpwi TMP3, 0 + | lbzx TMP1, CARG1, TMP2 + | blty ->fff_newstr + | stbx TMP1, CARG2, TMP3 + | subi TMP3, TMP3, 1 + | addi TMP2, TMP2, 1 + | b <1 + | + |.macro ffstring_case, name, lo + | .ffunc name + | ffgccheck + | cmplwi NARGS8:RC, 8 + | lwz CARG3, 0(BASE) + | lwz STR:CARG1, 4(BASE) + | blt ->fff_fallback + | checkstr CARG3 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | bne ->fff_fallback + | lwz CARG3, STR:CARG1->len + | la CARG1, #STR(STR:CARG1) + | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | cmplw TMP1, CARG3 + | li TMP2, 0 + | blt ->fff_fallback + |1: // ASCII case conversion. + | cmplw TMP2, CARG3 + | lbzx TMP1, CARG1, TMP2 + | bgey ->fff_newstr + | subi TMP0, TMP1, lo + | xori TMP3, TMP1, 0x20 + | addic TMP0, TMP0, -26 + | subfe TMP3, TMP3, TMP3 + | rlwinm TMP3, TMP3, 0, 26, 26 // x &= 0x20. + | xor TMP1, TMP1, TMP3 + | stbx TMP1, CARG2, TMP2 + | addi TMP2, TMP2, 1 + | b <1 + |.endmacro + | + |ffstring_case string_lower, 65 + |ffstring_case string_upper, 97 + | + |//-- Table library ------------------------------------------------------ + | + |.ffunc_1 table_getn + | checktab CARG3; bne ->fff_fallback + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | b ->fff_resi + | + |//-- Bit library -------------------------------------------------------- + | + |.macro .ffunc_bit, name + |.if DUALNUM + | .ffunc_1 bit_..name + | checknum CARG3; bnel ->fff_tobit_fb + |.else + | .ffunc_n bit_..name + | fadd FARG1, FARG1, TOBIT + | stfd FARG1, TMPD + | lwz CARG1, TMPD_LO + |.endif + |.endmacro + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name + | addi TMP1, BASE, 8 + | add TMP2, BASE, NARGS8:RC + |1: + | lwz CARG4, 0(TMP1) + | cmplw cr1, TMP1, TMP2 + |.if DUALNUM + | lwz CARG2, 4(TMP1) + |.else + | lfd FARG1, 0(TMP1) + |.endif + | bgey cr1, ->fff_resi + | checknum CARG4 + |.if DUALNUM + | bnel ->fff_bitop_fb + |.else + | fadd FARG1, FARG1, TOBIT + | bge ->fff_fallback + | stfd FARG1, TMPD + | lwz CARG2, TMPD_LO + |.endif + | ins CARG1, CARG1, CARG2 + | addi TMP1, TMP1, 8 + | b <1 + |.endmacro + | + |.ffunc_bit_op band, and + |.ffunc_bit_op bor, or + |.ffunc_bit_op bxor, xor + | + |.ffunc_bit bswap + | rotlwi TMP0, CARG1, 8 + | rlwimi TMP0, CARG1, 24, 0, 7 + | rlwimi TMP0, CARG1, 24, 16, 23 + | mr CRET1, TMP0 + | b ->fff_resi + | + |.ffunc_bit bnot + | not CRET1, CARG1 + | b ->fff_resi + | + |.macro .ffunc_bit_sh, name, ins, shmod + |.if DUALNUM + | .ffunc_2 bit_..name + | checknum CARG3; bnel ->fff_tobit_fb + | // Note: no inline conversion from number for 2nd argument! + | checknum CARG4; bne ->fff_fallback + |.else + | .ffunc_nn bit_..name + | fadd FARG1, FARG1, TOBIT + | fadd FARG2, FARG2, TOBIT + | stfd FARG1, TMPD + | lwz CARG1, TMPD_LO + | stfd FARG2, TMPD + | lwz CARG2, TMPD_LO + |.endif + |.if shmod == 1 + | rlwinm CARG2, CARG2, 0, 27, 31 + |.elif shmod == 2 + | neg CARG2, CARG2 + |.endif + | ins CRET1, CARG1, CARG2 + | b ->fff_resi + |.endmacro + | + |.ffunc_bit_sh lshift, slw, 1 + |.ffunc_bit_sh rshift, srw, 1 + |.ffunc_bit_sh arshift, sraw, 1 + |.ffunc_bit_sh rol, rotlw, 0 + |.ffunc_bit_sh ror, rotlw, 2 + | + |.ffunc_bit tobit + |.if DUALNUM + | b ->fff_resi + |.else + |->fff_resi: + | tonum_i FARG1, CRET1 + |.endif + |->fff_resn: + | lwz PC, FRAME_PC(BASE) + | la RA, -8(BASE) + | stfd FARG1, -8(BASE) + | b ->fff_res1 + | + |// Fallback FP number to bit conversion. + |->fff_tobit_fb: + |.if DUALNUM + | lfd FARG1, 0(BASE) + | bgt ->fff_fallback + | fadd FARG1, FARG1, TOBIT + | stfd FARG1, TMPD + | lwz CARG1, TMPD_LO + | blr + |.endif + |->fff_bitop_fb: + |.if DUALNUM + | lfd FARG1, 0(TMP1) + | bgt ->fff_fallback + | fadd FARG1, FARG1, TOBIT + | stfd FARG1, TMPD + | lwz CARG2, TMPD_LO + | blr + |.endif + | + |//----------------------------------------------------------------------- + | + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RB = CFUNC, RC = nargs*8 + | lp TMP3, CFUNC:RB->f + | add TMP1, BASE, NARGS8:RC + | lwz PC, FRAME_PC(BASE) // Fallback may overwrite PC. + | addi TMP0, TMP1, 8*LUA_MINSTACK + | lwz TMP2, L->maxstack + | stw PC, SAVE_PC // Redundant (but a defined value). + | .toc lp TMP3, 0(TMP3) + | cmplw TMP0, TMP2 + | stp BASE, L->base + | stp TMP1, L->top + | mr CARG1, L + | bgt >5 // Need to grow stack. + | mtctr TMP3 + | bctrl // (lua_State *L) + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | lp BASE, L->base + | cmpwi CRET1, 0 + | slwi RD, CRET1, 3 + | la RA, -8(BASE) + | bgt ->fff_res // Returned nresults+1? + |1: // Returned 0 or -1: retry fast path. + | lp TMP0, L->top + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | sub NARGS8:RC, TMP0, BASE + | bne ->vm_call_tail // Returned -1? + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | andix. TMP0, PC, FRAME_TYPE + | rlwinm TMP1, PC, 0, 0, 28 + | bne >3 + | lwz INS, -4(PC) + | decode_RA8 TMP1, INS + | addi TMP1, TMP1, 8 + |3: + | sub TMP2, BASE, TMP1 + | b ->vm_call_dispatch // Resolve again for tailcall. + | + |5: // Grow stack for fallback handler. + | li CARG2, LUA_MINSTACK + | bl extern lj_state_growstack // (lua_State *L, int n) + | lp BASE, L->base + | cmpw TMP0, TMP0 // Set 4*cr0+eq to force retry. + | b <1 + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RC = nargs*8 + | mflr SAVE0 + | stp BASE, L->base + | add TMP0, BASE, NARGS8:RC + | stw PC, SAVE_PC // Redundant (but a defined value). + | stp TMP0, L->top + | mr CARG1, L + | bl extern lj_gc_step // (lua_State *L) + | lp BASE, L->base + | mtlr SAVE0 + | lp TMP0, L->top + | sub NARGS8:RC, TMP0, BASE + | lwz CFUNC:RB, FRAME_FUNC(BASE) + | blr + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + |.if JIT + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | andix. TMP0, TMP3, HOOK_VMEVENT // No recording while in vmevent. + | bne >5 + | // Decrement the hookcount for consistency, but always do the call. + | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andix. TMP0, TMP3, HOOK_ACTIVE + | bne >1 + | subi TMP2, TMP2, 1 + | andi. TMP0, TMP3, LUA_MASKLINE|LUA_MASKCOUNT + | beqy >1 + | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | b >1 + |.endif + | + |->vm_rethook: // Dispatch target for return hooks. + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | andix. TMP0, TMP3, HOOK_ACTIVE // Hook already active? + | beq >1 + |5: // Re-dispatch to static ins. + | addi TMP1, TMP1, GG_DISP2STATIC // Assumes decode_OPP TMP1, INS. + | lpx TMP0, DISPATCH, TMP1 + | mtctr TMP0 + | bctr + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andix. TMP0, TMP3, HOOK_ACTIVE // Hook already active? + | rlwinm TMP0, TMP3, 31-LUA_HOOKLINE, 31, 0 + | bne <5 + | + | cmpwi cr1, TMP0, 0 + | addic. TMP2, TMP2, -1 + | beq cr1, <5 + | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | beq >1 + | bge cr1, <5 + |1: + | mr CARG1, L + | stw MULTRES, SAVE_MULTRES + | mr CARG2, PC + | stp BASE, L->base + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) + |3: + | lp BASE, L->base + |4: // Re-dispatch to static ins. + | lwz INS, -4(PC) + | decode_OPP TMP1, INS + | decode_RB8 RB, INS + | addi TMP1, TMP1, GG_DISP2STATIC + | decode_RD8 RD, INS + | lpx TMP0, DISPATCH, TMP1 + | decode_RA8 RA, INS + | decode_RC8 RC, INS + | mtctr TMP0 + | bctr + | + |->cont_hook: // Continue from hook yield. + | addi PC, PC, 4 + | lwz MULTRES, -20(RB) // Restore MULTRES for *M ins. + | b <4 + | + |->vm_hotloop: // Hot loop counter underflow. + |.if JIT + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | addi CARG1, DISPATCH, GG_DISP2J + | stw PC, SAVE_PC + | lwz TMP1, LFUNC:TMP1->pc + | mr CARG2, PC + | stw L, DISPATCH_J(L)(DISPATCH) + | lbz TMP1, PC2PROTO(framesize)(TMP1) + | stp BASE, L->base + | slwi TMP1, TMP1, 3 + | add TMP1, BASE, TMP1 + | stp TMP1, L->top + | bl extern lj_trace_hot // (jit_State *J, const BCIns *pc) + | b <3 + |.endif + | + |->vm_callhook: // Dispatch target for call hooks. + | mr CARG2, PC + |.if JIT + | b >1 + |.endif + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | ori CARG2, PC, 1 + |1: + |.endif + | add TMP0, BASE, RC + | stw PC, SAVE_PC + | mr CARG1, L + | stp BASE, L->base + | sub RA, RA, BASE + | stp TMP0, L->top + | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) + | // Returns ASMFunction. + | lp BASE, L->base + | lp TMP0, L->top + | stw ZERO, SAVE_PC // Invalidate for subsequent line hook. + | sub NARGS8:RC, TMP0, BASE + | add RA, BASE, RA + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | lwz INS, -4(PC) + | mtctr CRET1 + | bctr + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro savex_, a, b, c, d + | stfd f..a, 16+a*8(sp) + | stfd f..b, 16+b*8(sp) + | stfd f..c, 16+c*8(sp) + | stfd f..d, 16+d*8(sp) + |.endmacro + | + |->vm_exit_handler: + |.if JIT + | addi sp, sp, -(16+32*8+32*4) + | stmw r2, 16+32*8+2*4(sp) + | addi DISPATCH, JGL, -GG_DISP2G-32768 + | li CARG2, ~LJ_VMST_EXIT + | lwz CARG1, 16+32*8+32*4(sp) // Get stack chain. + | stw CARG2, DISPATCH_GL(vmstate)(DISPATCH) + | savex_ 0,1,2,3 + | stw CARG1, 0(sp) // Store extended stack chain. + | clrso TMP1 + | savex_ 4,5,6,7 + | addi CARG2, sp, 16+32*8+32*4 // Recompute original value of sp. + | savex_ 8,9,10,11 + | stw CARG2, 16+32*8+1*4(sp) // Store sp in RID_SP. + | savex_ 12,13,14,15 + | mflr CARG3 + | li TMP1, 0 + | savex_ 16,17,18,19 + | stw TMP1, 16+32*8+0*4(sp) // Clear RID_TMP. + | savex_ 20,21,22,23 + | lhz CARG4, 2(CARG3) // Load trace number. + | savex_ 24,25,26,27 + | lwz L, DISPATCH_GL(jit_L)(DISPATCH) + | savex_ 28,29,30,31 + | sub CARG3, TMP0, CARG3 // Compute exit number. + | lp BASE, DISPATCH_GL(jit_base)(DISPATCH) + | srwi CARG3, CARG3, 2 + | stw L, DISPATCH_J(L)(DISPATCH) + | subi CARG3, CARG3, 2 + | stw TMP1, DISPATCH_GL(jit_L)(DISPATCH) + | stw CARG4, DISPATCH_J(parent)(DISPATCH) + | stp BASE, L->base + | addi CARG1, DISPATCH, GG_DISP2J + | stw CARG3, DISPATCH_J(exitno)(DISPATCH) + | addi CARG2, sp, 16 + | bl extern lj_trace_exit // (jit_State *J, ExitState *ex) + | // Returns MULTRES (unscaled) or negated error code. + | lp TMP1, L->cframe + | lwz TMP2, 0(sp) + | lp BASE, L->base + |.if GPR64 + | rldicr sp, TMP1, 0, 61 + |.else + | rlwinm sp, TMP1, 0, 0, 29 + |.endif + | lwz PC, SAVE_PC // Get SAVE_PC. + | stw TMP2, 0(sp) + | stw L, SAVE_L // Set SAVE_L (on-trace resume/yield). + | b >1 + |.endif + |->vm_exit_interp: + |.if JIT + | // CARG1 = MULTRES or negated error code, BASE, PC and JGL set. + | lwz L, SAVE_L + | addi DISPATCH, JGL, -GG_DISP2G-32768 + |1: + | cmpwi CARG1, 0 + | blt >3 // Check for error from exit. + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | slwi MULTRES, CARG1, 3 + | li TMP2, 0 + | stw MULTRES, SAVE_MULTRES + | lwz TMP1, LFUNC:TMP1->pc + | stw TMP2, DISPATCH_GL(jit_L)(DISPATCH) + | lwz KBASE, PC2PROTO(k)(TMP1) + | // Setup type comparison constants. + | li TISNUM, LJ_TISNUM + | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | stw TMP3, TMPD + | li ZERO, 0 + | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). + | lfs TOBIT, TMPD + | stw TMP3, TMPD + | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) + | li TISNIL, LJ_TNIL + | stw TMP0, TONUM_HI + | lfs TONUM, TMPD + | // Modified copy of ins_next which handles function header dispatch, too. + | lwz INS, 0(PC) + | addi PC, PC, 4 + | // Assumes TISNIL == ~LJ_VMST_INTERP == -1. + | stw TISNIL, DISPATCH_GL(vmstate)(DISPATCH) + | decode_OPP TMP1, INS + | decode_RA8 RA, INS + | lpx TMP0, DISPATCH, TMP1 + | mtctr TMP0 + | cmplwi TMP1, BC_FUNCF*4 // Function header? + | bge >2 + | decode_RB8 RB, INS + | decode_RD8 RD, INS + | decode_RC8 RC, INS + | bctr + |2: + | subi RC, MULTRES, 8 + | add RA, RA, BASE + | bctr + | + |3: // Rethrow error from the right C frame. + | neg CARG2, CARG1 + | mr CARG1, L + | bl extern lj_err_throw // (lua_State *L, int errcode) + |.endif + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + |// NYI: Use internal implementations of floor, ceil, trunc. + | + |->vm_modi: + | divwo. TMP0, CARG1, CARG2 + | bso >1 + |.if GPR64 + | xor CARG3, CARG1, CARG2 + | cmpwi CARG3, 0 + |.else + | xor. CARG3, CARG1, CARG2 + |.endif + | mullw TMP0, TMP0, CARG2 + | sub CARG1, CARG1, TMP0 + | bgelr + | cmpwi CARG1, 0; beqlr + | add CARG1, CARG1, CARG2 + | blr + |1: + | cmpwi CARG2, 0 + | li CARG1, 0 + | beqlr + | clrso TMP0 // Clear SO for -2147483648 % -1 and return 0. + | blr + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |// void lj_vm_cachesync(void *start, void *end) + |// Flush D-Cache and invalidate I-Cache. Assumes 32 byte cache line size. + |// This is a good lower bound, except for very ancient PPC models. + |->vm_cachesync: + |.if JIT or FFI + | // Compute start of first cache line and number of cache lines. + | rlwinm CARG1, CARG1, 0, 0, 26 + | sub CARG2, CARG2, CARG1 + | addi CARG2, CARG2, 31 + | rlwinm. CARG2, CARG2, 27, 5, 31 + | beqlr + | mtctr CARG2 + | mr CARG3, CARG1 + |1: // Flush D-Cache. + | dcbst r0, CARG1 + | addi CARG1, CARG1, 32 + | bdnz <1 + | sync + | mtctr CARG2 + |1: // Invalidate I-Cache. + | icbi r0, CARG3 + | addi CARG3, CARG3, 32 + | bdnz <1 + | isync + | blr + |.endif + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Handler for callback functions. Callback slot number in r11, g in r12. + |->vm_ffi_callback: + |.if FFI + |.type CTSTATE, CTState, PC + | saveregs + | lwz CTSTATE, GL:r12->ctype_state + | addi DISPATCH, r12, GG_G2DISP + | stw r11, CTSTATE->cb.slot + | stw r3, CTSTATE->cb.gpr[0] + | stfd f1, CTSTATE->cb.fpr[0] + | stw r4, CTSTATE->cb.gpr[1] + | stfd f2, CTSTATE->cb.fpr[1] + | stw r5, CTSTATE->cb.gpr[2] + | stfd f3, CTSTATE->cb.fpr[2] + | stw r6, CTSTATE->cb.gpr[3] + | stfd f4, CTSTATE->cb.fpr[3] + | stw r7, CTSTATE->cb.gpr[4] + | stfd f5, CTSTATE->cb.fpr[4] + | stw r8, CTSTATE->cb.gpr[5] + | stfd f6, CTSTATE->cb.fpr[5] + | stw r9, CTSTATE->cb.gpr[6] + | stfd f7, CTSTATE->cb.fpr[6] + | stw r10, CTSTATE->cb.gpr[7] + | stfd f8, CTSTATE->cb.fpr[7] + | addi TMP0, sp, CFRAME_SPACE+8 + | stw TMP0, CTSTATE->cb.stack + | mr CARG1, CTSTATE + | stw CTSTATE, SAVE_PC // Any value outside of bytecode is ok. + | mr CARG2, sp + | bl extern lj_ccallback_enter // (CTState *cts, void *cf) + | // Returns lua_State *. + | lp BASE, L:CRET1->base + | li TISNUM, LJ_TISNUM // Setup type comparison constants. + | lp RC, L:CRET1->top + | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). + | li ZERO, 0 + | mr L, CRET1 + | stw TMP3, TMPD + | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). + | stw TMP0, TONUM_HI + | li TISNIL, LJ_TNIL + | li_vmstate INTERP + | lfs TOBIT, TMPD + | stw TMP3, TMPD + | sub RC, RC, BASE + | st_vmstate + | lfs TONUM, TMPD + | ins_callt + |.endif + | + |->cont_ffi_callback: // Return from FFI callback. + |.if FFI + | lwz CTSTATE, DISPATCH_GL(ctype_state)(DISPATCH) + | stp BASE, L->base + | stp RB, L->top + | stp L, CTSTATE->L + | mr CARG1, CTSTATE + | mr CARG2, RA + | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) + | lwz CRET1, CTSTATE->cb.gpr[0] + | lfd FARG1, CTSTATE->cb.fpr[0] + | lwz CRET2, CTSTATE->cb.gpr[1] + | b ->vm_leave_unw + |.endif + | + |->vm_ffi_call: // Call C function via FFI. + | // Caveat: needs special frame unwinding, see below. + |.if FFI + | .type CCSTATE, CCallState, CARG1 + | lwz TMP1, CCSTATE->spadj + | mflr TMP0 + | lbz CARG2, CCSTATE->nsp + | lbz CARG3, CCSTATE->nfpr + | neg TMP1, TMP1 + | stw TMP0, 4(sp) + | cmpwi cr1, CARG3, 0 + | mr TMP2, sp + | addic. CARG2, CARG2, -1 + | stwux sp, sp, TMP1 + | crnot 4*cr1+eq, 4*cr1+eq // For vararg calls. + | stw r14, -4(TMP2) + | stw CCSTATE, -8(TMP2) + | mr r14, TMP2 + | la TMP1, CCSTATE->stack + | slwi CARG2, CARG2, 2 + | blty >2 + | la TMP2, 8(sp) + |1: + | lwzx TMP0, TMP1, CARG2 + | stwx TMP0, TMP2, CARG2 + | addic. CARG2, CARG2, -4 + | bge <1 + |2: + | bney cr1, >3 + | lfd f1, CCSTATE->fpr[0] + | lfd f2, CCSTATE->fpr[1] + | lfd f3, CCSTATE->fpr[2] + | lfd f4, CCSTATE->fpr[3] + | lfd f5, CCSTATE->fpr[4] + | lfd f6, CCSTATE->fpr[5] + | lfd f7, CCSTATE->fpr[6] + | lfd f8, CCSTATE->fpr[7] + |3: + | lp TMP0, CCSTATE->func + | lwz CARG2, CCSTATE->gpr[1] + | lwz CARG3, CCSTATE->gpr[2] + | lwz CARG4, CCSTATE->gpr[3] + | lwz CARG5, CCSTATE->gpr[4] + | mtctr TMP0 + | lwz r8, CCSTATE->gpr[5] + | lwz r9, CCSTATE->gpr[6] + | lwz r10, CCSTATE->gpr[7] + | lwz CARG1, CCSTATE->gpr[0] // Do this last, since CCSTATE is CARG1. + | bctrl + | lwz CCSTATE:TMP1, -8(r14) + | lwz TMP2, -4(r14) + | lwz TMP0, 4(r14) + | stw CARG1, CCSTATE:TMP1->gpr[0] + | stfd FARG1, CCSTATE:TMP1->fpr[0] + | stw CARG2, CCSTATE:TMP1->gpr[1] + | mtlr TMP0 + | stw CARG3, CCSTATE:TMP1->gpr[2] + | mr sp, r14 + | stw CARG4, CCSTATE:TMP1->gpr[3] + | mr r14, TMP2 + | blr + |.endif + |// Note: vm_ffi_call must be the last function in this object file! + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1*8, RD = src2*8, JMP with RD = target + |.if DUALNUM + | lwzux TMP0, RA, BASE + | addi PC, PC, 4 + | lwz CARG2, 4(RA) + | lwzux TMP1, RD, BASE + | lwz TMP2, -4(PC) + | checknum cr0, TMP0 + | lwz CARG3, 4(RD) + | decode_RD4 TMP2, TMP2 + | checknum cr1, TMP1 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | bne cr0, >7 + | bne cr1, >8 + | cmpw CARG2, CARG3 + if (op == BC_ISLT) { + | bge >2 + } else if (op == BC_ISGE) { + | blt >2 + } else if (op == BC_ISLE) { + | bgt >2 + } else { + | ble >2 + } + |1: + | add PC, PC, TMP2 + |2: + | ins_next + | + |7: // RA is not an integer. + | bgt cr0, ->vmeta_comp + | // RA is a number. + | lfd f0, 0(RA) + | bgt cr1, ->vmeta_comp + | blt cr1, >4 + | // RA is a number, RD is an integer. + | tonum_i f1, CARG3 + | b >5 + | + |8: // RA is an integer, RD is not an integer. + | bgt cr1, ->vmeta_comp + | // RA is an integer, RD is a number. + | tonum_i f0, CARG2 + |4: + | lfd f1, 0(RD) + |5: + | fcmpu cr0, f0, f1 + if (op == BC_ISLT) { + | bge <2 + } else if (op == BC_ISGE) { + | blt <2 + } else if (op == BC_ISLE) { + | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq + | bge <2 + } else { + | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq + | blt <2 + } + | b <1 + |.else + | lwzx TMP0, BASE, RA + | addi PC, PC, 4 + | lfdx f0, BASE, RA + | lwzx TMP1, BASE, RD + | checknum cr0, TMP0 + | lwz TMP2, -4(PC) + | lfdx f1, BASE, RD + | checknum cr1, TMP1 + | decode_RD4 TMP2, TMP2 + | bge cr0, ->vmeta_comp + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | bge cr1, ->vmeta_comp + | fcmpu cr0, f0, f1 + if (op == BC_ISLT) { + | bge >1 + } else if (op == BC_ISGE) { + | blt >1 + } else if (op == BC_ISLE) { + | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq + | bge >1 + } else { + | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq + | blt >1 + } + | add PC, PC, TMP2 + |1: + | ins_next + |.endif + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | // RA = src1*8, RD = src2*8, JMP with RD = target + |.if DUALNUM + | lwzux TMP0, RA, BASE + | addi PC, PC, 4 + | lwz CARG2, 4(RA) + | lwzux TMP1, RD, BASE + | checknum cr0, TMP0 + | lwz TMP2, -4(PC) + | checknum cr1, TMP1 + | decode_RD4 TMP2, TMP2 + | lwz CARG3, 4(RD) + | cror 4*cr7+gt, 4*cr0+gt, 4*cr1+gt + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + if (vk) { + | ble cr7, ->BC_ISEQN_Z + } else { + | ble cr7, ->BC_ISNEN_Z + } + |.else + | lwzux TMP0, RA, BASE + | lwz TMP2, 0(PC) + | lfd f0, 0(RA) + | addi PC, PC, 4 + | lwzux TMP1, RD, BASE + | checknum cr0, TMP0 + | decode_RD4 TMP2, TMP2 + | lfd f1, 0(RD) + | checknum cr1, TMP1 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | bge cr0, >5 + | bge cr1, >5 + | fcmpu cr0, f0, f1 + if (vk) { + | bne >1 + | add PC, PC, TMP2 + } else { + | beq >1 + | add PC, PC, TMP2 + } + |1: + | ins_next + |.endif + |5: // Either or both types are not numbers. + |.if not DUALNUM + | lwz CARG2, 4(RA) + | lwz CARG3, 4(RD) + |.endif + |.if FFI + | cmpwi cr7, TMP0, LJ_TCDATA + | cmpwi cr5, TMP1, LJ_TCDATA + |.endif + | not TMP3, TMP0 + | cmplw TMP0, TMP1 + | cmplwi cr1, TMP3, ~LJ_TISPRI // Primitive? + |.if FFI + | cror 4*cr7+eq, 4*cr7+eq, 4*cr5+eq + |.endif + | cmplwi cr6, TMP3, ~LJ_TISTABUD // Table or userdata? + |.if FFI + | beq cr7, ->vmeta_equal_cd + |.endif + | cmplw cr5, CARG2, CARG3 + | crandc 4*cr0+gt, 4*cr0+eq, 4*cr1+gt // 2: Same type and primitive. + | crorc 4*cr0+lt, 4*cr5+eq, 4*cr0+eq // 1: Same tv or different type. + | crand 4*cr0+eq, 4*cr0+eq, 4*cr5+eq // 0: Same type and same tv. + | mr SAVE0, PC + | cror 4*cr0+eq, 4*cr0+eq, 4*cr0+gt // 0 or 2. + | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+gt // 1 or 2. + if (vk) { + | bne cr0, >6 + | add PC, PC, TMP2 + |6: + } else { + | beq cr0, >6 + | add PC, PC, TMP2 + |6: + } + |.if DUALNUM + | bge cr0, >2 // Done if 1 or 2. + |1: + | ins_next + |2: + |.else + | blt cr0, <1 // Done if 1 or 2. + |.endif + | blt cr6, <1 // Done if not tab/ud. + | + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | lwz TAB:TMP2, TAB:CARG2->metatable + | li CARG4, 1-vk // ne = 0 or 1. + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable? + | lbz TMP2, TAB:TMP2->nomm + | andix. TMP2, TMP2, 1<vmeta_equal // Handle __eq metamethod. + break; + + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | // RA = src*8, RD = str_const*8 (~), JMP with RD = target + | lwzux TMP0, RA, BASE + | srwi RD, RD, 1 + | lwz STR:TMP3, 4(RA) + | lwz TMP2, 0(PC) + | subfic RD, RD, -4 + | addi PC, PC, 4 + |.if FFI + | cmpwi TMP0, LJ_TCDATA + |.endif + | lwzx STR:TMP1, KBASE, RD // KBASE-4-str_const*4 + | .gpr64 extsw TMP0, TMP0 + | subfic TMP0, TMP0, LJ_TSTR + |.if FFI + | beq ->vmeta_equal_cd + |.endif + | sub TMP1, STR:TMP1, STR:TMP3 + | or TMP0, TMP0, TMP1 + | decode_RD4 TMP2, TMP2 + | subfic TMP0, TMP0, 0 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | subfe TMP1, TMP1, TMP1 + if (vk) { + | andc TMP2, TMP2, TMP1 + } else { + | and TMP2, TMP2, TMP1 + } + | add PC, PC, TMP2 + | ins_next + break; + + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | // RA = src*8, RD = num_const*8, JMP with RD = target + |.if DUALNUM + | lwzux TMP0, RA, BASE + | addi PC, PC, 4 + | lwz CARG2, 4(RA) + | lwzux TMP1, RD, KBASE + | checknum cr0, TMP0 + | lwz TMP2, -4(PC) + | checknum cr1, TMP1 + | decode_RD4 TMP2, TMP2 + | lwz CARG3, 4(RD) + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + if (vk) { + |->BC_ISEQN_Z: + } else { + |->BC_ISNEN_Z: + } + | bne cr0, >7 + | bne cr1, >8 + | cmpw CARG2, CARG3 + |4: + |.else + if (vk) { + |->BC_ISEQN_Z: // Dummy label. + } else { + |->BC_ISNEN_Z: // Dummy label. + } + | lwzx TMP0, BASE, RA + | addi PC, PC, 4 + | lfdx f0, BASE, RA + | lwz TMP2, -4(PC) + | lfdx f1, KBASE, RD + | decode_RD4 TMP2, TMP2 + | checknum TMP0 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | bge >3 + | fcmpu cr0, f0, f1 + |.endif + if (vk) { + | bne >1 + | add PC, PC, TMP2 + |1: + |.if not FFI + |3: + |.endif + } else { + | beq >2 + |1: + |.if not FFI + |3: + |.endif + | add PC, PC, TMP2 + |2: + } + | ins_next + |.if FFI + |3: + | cmpwi TMP0, LJ_TCDATA + | beq ->vmeta_equal_cd + | b <1 + |.endif + |.if DUALNUM + |7: // RA is not an integer. + | bge cr0, <3 + | // RA is a number. + | lfd f0, 0(RA) + | blt cr1, >1 + | // RA is a number, RD is an integer. + | tonum_i f1, CARG3 + | b >2 + | + |8: // RA is an integer, RD is a number. + | tonum_i f0, CARG2 + |1: + | lfd f1, 0(RD) + |2: + | fcmpu cr0, f0, f1 + | b <4 + |.endif + break; + + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target + | lwzx TMP0, BASE, RA + | srwi TMP1, RD, 3 + | lwz TMP2, 0(PC) + | not TMP1, TMP1 + | addi PC, PC, 4 + |.if FFI + | cmpwi TMP0, LJ_TCDATA + |.endif + | sub TMP0, TMP0, TMP1 + |.if FFI + | beq ->vmeta_equal_cd + |.endif + | decode_RD4 TMP2, TMP2 + | .gpr64 extsw TMP0, TMP0 + | addic TMP0, TMP0, -1 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + | subfe TMP1, TMP1, TMP1 + if (vk) { + | and TMP2, TMP2, TMP1 + } else { + | andc TMP2, TMP2, TMP1 + } + | add PC, PC, TMP2 + | ins_next + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | // RA = dst*8 or unused, RD = src*8, JMP with RD = target + | lwzx TMP0, BASE, RD + | lwz INS, 0(PC) + | addi PC, PC, 4 + if (op == BC_IST || op == BC_ISF) { + | .gpr64 extsw TMP0, TMP0 + | subfic TMP0, TMP0, LJ_TTRUE + | decode_RD4 TMP2, INS + | subfe TMP1, TMP1, TMP1 + | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) + if (op == BC_IST) { + | andc TMP2, TMP2, TMP1 + } else { + | and TMP2, TMP2, TMP1 + } + | add PC, PC, TMP2 + } else { + | li TMP1, LJ_TFALSE + | lfdx f0, BASE, RD + | cmplw TMP0, TMP1 + if (op == BC_ISTC) { + | bge >1 + } else { + | blt >1 + } + | addis PC, PC, -(BCBIAS_J*4 >> 16) + | decode_RD4 TMP2, INS + | stfdx f0, BASE, RA + | add PC, PC, TMP2 + |1: + } + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | // RA = dst*8, RD = src*8 + | ins_next1 + | lfdx f0, BASE, RD + | stfdx f0, BASE, RA + | ins_next2 + break; + case BC_NOT: + | // RA = dst*8, RD = src*8 + | ins_next1 + | lwzx TMP0, BASE, RD + | .gpr64 extsw TMP0, TMP0 + | subfic TMP1, TMP0, LJ_TTRUE + | adde TMP0, TMP0, TMP1 + | stwx TMP0, BASE, RA + | ins_next2 + break; + case BC_UNM: + | // RA = dst*8, RD = src*8 + | lwzux TMP1, RD, BASE + | lwz TMP0, 4(RD) + | checknum TMP1 + |.if DUALNUM + | bne >5 + |.if GPR64 + | lus TMP2, 0x8000 + | neg TMP0, TMP0 + | cmplw TMP0, TMP2 + | beq >4 + |.else + | nego. TMP0, TMP0 + | bso >4 + |1: + |.endif + | ins_next1 + | stwux TISNUM, RA, BASE + | stw TMP0, 4(RA) + |3: + | ins_next2 + |4: + |.if not GPR64 + | // Potential overflow. + | checkov TMP1, <1 // Ignore unrelated overflow. + |.endif + | lus TMP1, 0x41e0 // 2^31. + | li TMP0, 0 + | b >7 + |.endif + |5: + | bge ->vmeta_unm + | xoris TMP1, TMP1, 0x8000 + |7: + | ins_next1 + | stwux TMP1, RA, BASE + | stw TMP0, 4(RA) + |.if DUALNUM + | b <3 + |.else + | ins_next2 + |.endif + break; + case BC_LEN: + | // RA = dst*8, RD = src*8 + | lwzux TMP0, RD, BASE + | lwz CARG1, 4(RD) + | checkstr TMP0; bne >2 + | lwz CRET1, STR:CARG1->len + |1: + |.if DUALNUM + | ins_next1 + | stwux TISNUM, RA, BASE + | stw CRET1, 4(RA) + |.else + | tonum_u f0, CRET1 // Result is a non-negative integer. + | ins_next1 + | stfdx f0, BASE, RA + |.endif + | ins_next2 + |2: + | checktab TMP0; bne ->vmeta_len +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | cmplwi TAB:TMP2, 0 + | bne >9 + |3: +#endif + |->BC_LEN_Z: + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | b <1 +#if LJ_52 + |9: + | lbz TMP0, TAB:TMP2->nomm + | andix. TMP0, TMP0, 1<vmeta_len +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithpre + | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | lwzx TMP1, BASE, RB + | .if DUALNUM + | lwzx TMP2, KBASE, RC + | .endif + | lfdx f14, BASE, RB + | lfdx f15, KBASE, RC + | .if DUALNUM + | checknum cr0, TMP1 + | checknum cr1, TMP2 + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | bge ->vmeta_arith_vn + | .else + | checknum TMP1; bge ->vmeta_arith_vn + | .endif + || break; + ||case 1: + | lwzx TMP1, BASE, RB + | .if DUALNUM + | lwzx TMP2, KBASE, RC + | .endif + | lfdx f15, BASE, RB + | lfdx f14, KBASE, RC + | .if DUALNUM + | checknum cr0, TMP1 + | checknum cr1, TMP2 + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | bge ->vmeta_arith_nv + | .else + | checknum TMP1; bge ->vmeta_arith_nv + | .endif + || break; + ||default: + | lwzx TMP1, BASE, RB + | lwzx TMP2, BASE, RC + | lfdx f14, BASE, RB + | lfdx f15, BASE, RC + | checknum cr0, TMP1 + | checknum cr1, TMP2 + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | bge ->vmeta_arith_vv + || break; + ||} + |.endmacro + | + |.macro ins_arithfallback, ins + ||switch (vk) { + ||case 0: + | ins ->vmeta_arith_vn2 + || break; + ||case 1: + | ins ->vmeta_arith_nv2 + || break; + ||default: + | ins ->vmeta_arith_vv2 + || break; + ||} + |.endmacro + | + |.macro intmod, a, b, c + | bl ->vm_modi + |.endmacro + | + |.macro fpmod, a, b, c + |->BC_MODVN_Z: + | fdiv FARG1, b, c + | // NYI: Use internal implementation of floor. + | blex floor // floor(b/c) + | fmul a, FARG1, c + | fsub a, b, a // b - floor(b/c)*c + |.endmacro + | + |.macro ins_arithfp, fpins + | ins_arithpre + |.if "fpins" == "fpmod_" + | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. + |.else + | fpins f0, f14, f15 + | ins_next1 + | stfdx f0, BASE, RA + | ins_next2 + |.endif + |.endmacro + | + |.macro ins_arithdn, intins, fpins + | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | lwzux TMP1, RB, BASE + | lwzux TMP2, RC, KBASE + | lwz CARG1, 4(RB) + | checknum cr0, TMP1 + | lwz CARG2, 4(RC) + || break; + ||case 1: + | lwzux TMP1, RB, BASE + | lwzux TMP2, RC, KBASE + | lwz CARG2, 4(RB) + | checknum cr0, TMP1 + | lwz CARG1, 4(RC) + || break; + ||default: + | lwzux TMP1, RB, BASE + | lwzux TMP2, RC, BASE + | lwz CARG1, 4(RB) + | checknum cr0, TMP1 + | lwz CARG2, 4(RC) + || break; + ||} + | checknum cr1, TMP2 + | bne >5 + | bne cr1, >5 + | intins CARG1, CARG1, CARG2 + | bso >4 + |1: + | ins_next1 + | stwux TISNUM, RA, BASE + | stw CARG1, 4(RA) + |2: + | ins_next2 + |4: // Overflow. + | checkov TMP0, <1 // Ignore unrelated overflow. + | ins_arithfallback b + |5: // FP variant. + ||if (vk == 1) { + | lfd f15, 0(RB) + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | lfd f14, 0(RC) + ||} else { + | lfd f14, 0(RB) + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | lfd f15, 0(RC) + ||} + | ins_arithfallback bge + |.if "fpins" == "fpmod_" + | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. + |.else + | fpins f0, f14, f15 + | ins_next1 + | stfdx f0, BASE, RA + | b <2 + |.endif + |.endmacro + | + |.macro ins_arith, intins, fpins + |.if DUALNUM + | ins_arithdn intins, fpins + |.else + | ins_arithfp fpins + |.endif + |.endmacro + + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + |.if GPR64 + |.macro addo32., y, a, b + | // Need to check overflow for (a<<32) + (b<<32). + | rldicr TMP0, a, 32, 31 + | rldicr TMP3, b, 32, 31 + | addo. TMP0, TMP0, TMP3 + | add y, a, b + |.endmacro + | ins_arith addo32., fadd + |.else + | ins_arith addo., fadd + |.endif + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + |.if GPR64 + |.macro subo32., y, a, b + | // Need to check overflow for (a<<32) - (b<<32). + | rldicr TMP0, a, 32, 31 + | rldicr TMP3, b, 32, 31 + | subo. TMP0, TMP0, TMP3 + | sub y, a, b + |.endmacro + | ins_arith subo32., fsub + |.else + | ins_arith subo., fsub + |.endif + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arith mullwo., fmul + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arithfp fdiv + break; + case BC_MODVN: + | ins_arith intmod, fpmod + break; + case BC_MODNV: case BC_MODVV: + | ins_arith intmod, fpmod_ + break; + case BC_POW: + | // NYI: (partial) integer arithmetic. + | lwzx TMP1, BASE, RB + | lfdx FARG1, BASE, RB + | lwzx TMP2, BASE, RC + | lfdx FARG2, BASE, RC + | checknum cr0, TMP1 + | checknum cr1, TMP2 + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | bge ->vmeta_arith_vv + | blex pow + | ins_next1 + | stfdx FARG1, BASE, RA + | ins_next2 + break; + + case BC_CAT: + | // RA = dst*8, RB = src_start*8, RC = src_end*8 + | sub CARG3, RC, RB + | stp BASE, L->base + | add CARG2, BASE, RC + | mr SAVE0, RB + |->BC_CAT_Z: + | stw PC, SAVE_PC + | mr CARG1, L + | srwi CARG3, CARG3, 3 + | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) + | // Returns NULL (finished) or TValue * (metamethod). + | cmplwi CRET1, 0 + | lp BASE, L->base + | bne ->vmeta_binop + | ins_next1 + | lfdx f0, BASE, SAVE0 // Copy result from RB to RA. + | stfdx f0, BASE, RA + | ins_next2 + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | // RA = dst*8, RD = str_const*8 (~) + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | ins_next1 + | lwzx TMP0, KBASE, TMP1 // KBASE-4-str_const*4 + | li TMP2, LJ_TSTR + | stwux TMP2, RA, BASE + | stw TMP0, 4(RA) + | ins_next2 + break; + case BC_KCDATA: + |.if FFI + | // RA = dst*8, RD = cdata_const*8 (~) + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | ins_next1 + | lwzx TMP0, KBASE, TMP1 // KBASE-4-cdata_const*4 + | li TMP2, LJ_TCDATA + | stwux TMP2, RA, BASE + | stw TMP0, 4(RA) + | ins_next2 + |.endif + break; + case BC_KSHORT: + | // RA = dst*8, RD = int16_literal*8 + |.if DUALNUM + | slwi RD, RD, 13 + | srawi RD, RD, 16 + | ins_next1 + | stwux TISNUM, RA, BASE + | stw RD, 4(RA) + | ins_next2 + |.else + | // The soft-float approach is faster. + | slwi RD, RD, 13 + | srawi TMP1, RD, 31 + | xor TMP2, TMP1, RD + | sub TMP2, TMP2, TMP1 // TMP2 = abs(x) + | cntlzw TMP3, TMP2 + | subfic TMP1, TMP3, 0x40d // TMP1 = exponent-1 + | slw TMP2, TMP2, TMP3 // TMP2 = left aligned mantissa + | subfic TMP3, RD, 0 + | slwi TMP1, TMP1, 20 + | rlwimi RD, TMP2, 21, 1, 31 // hi = sign(x) | (mantissa>>11) + | subfe TMP0, TMP0, TMP0 + | add RD, RD, TMP1 // hi = hi + exponent-1 + | and RD, RD, TMP0 // hi = x == 0 ? 0 : hi + | ins_next1 + | stwux RD, RA, BASE + | stw ZERO, 4(RA) + | ins_next2 + |.endif + break; + case BC_KNUM: + | // RA = dst*8, RD = num_const*8 + | ins_next1 + | lfdx f0, KBASE, RD + | stfdx f0, BASE, RA + | ins_next2 + break; + case BC_KPRI: + | // RA = dst*8, RD = primitive_type*8 (~) + | srwi TMP1, RD, 3 + | not TMP0, TMP1 + | ins_next1 + | stwx TMP0, BASE, RA + | ins_next2 + break; + case BC_KNIL: + | // RA = base*8, RD = end*8 + | stwx TISNIL, BASE, RA + | addi RA, RA, 8 + |1: + | stwx TISNIL, BASE, RA + | cmpw RA, RD + | addi RA, RA, 8 + | blt <1 + | ins_next_ + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | // RA = dst*8, RD = uvnum*8 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RD, RD, 1 + | addi RD, RD, offsetof(GCfuncL, uvptr) + | lwzx UPVAL:RB, LFUNC:RB, RD + | ins_next1 + | lwz TMP1, UPVAL:RB->v + | lfd f0, 0(TMP1) + | stfdx f0, BASE, RA + | ins_next2 + break; + case BC_USETV: + | // RA = uvnum*8, RD = src*8 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | lfdux f0, RD, BASE + | lwzx UPVAL:RB, LFUNC:RB, RA + | lbz TMP3, UPVAL:RB->marked + | lwz CARG2, UPVAL:RB->v + | andix. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) + | lbz TMP0, UPVAL:RB->closed + | lwz TMP2, 0(RD) + | stfd f0, 0(CARG2) + | cmplwi cr1, TMP0, 0 + | lwz TMP1, 4(RD) + | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | subi TMP2, TMP2, (LJ_TNUMX+1) + | bne >2 // Upvalue is closed and black? + |1: + | ins_next + | + |2: // Check if new value is collectable. + | cmplwi TMP2, LJ_TISGCV - (LJ_TNUMX+1) + | bge <1 // tvisgcv(v) + | lbz TMP3, GCOBJ:TMP1->gch.marked + | andix. TMP3, TMP3, LJ_GC_WHITES // iswhite(v) + | la CARG1, GG_DISP2G(DISPATCH) + | // Crossed a write barrier. Move the barrier forward. + | beq <1 + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETS: + | // RA = uvnum*8, RD = str_const*8 (~) + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi TMP1, RD, 1 + | srwi RA, RA, 1 + | subfic TMP1, TMP1, -4 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | lwzx STR:TMP1, KBASE, TMP1 // KBASE-4-str_const*4 + | lwzx UPVAL:RB, LFUNC:RB, RA + | lbz TMP3, UPVAL:RB->marked + | lwz CARG2, UPVAL:RB->v + | andix. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) + | lbz TMP3, STR:TMP1->marked + | lbz TMP2, UPVAL:RB->closed + | li TMP0, LJ_TSTR + | stw STR:TMP1, 4(CARG2) + | stw TMP0, 0(CARG2) + | bne >2 + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | andix. TMP3, TMP3, LJ_GC_WHITES // iswhite(str) + | cmplwi cr1, TMP2, 0 + | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | la CARG1, GG_DISP2G(DISPATCH) + | // Crossed a write barrier. Move the barrier forward. + | beq <1 + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETN: + | // RA = uvnum*8, RD = num_const*8 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | lfdx f0, KBASE, RD + | lwzx UPVAL:RB, LFUNC:RB, RA + | ins_next1 + | lwz TMP1, UPVAL:RB->v + | stfd f0, 0(TMP1) + | ins_next2 + break; + case BC_USETP: + | // RA = uvnum*8, RD = primitive_type*8 (~) + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | srwi TMP0, RD, 3 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | not TMP0, TMP0 + | lwzx UPVAL:RB, LFUNC:RB, RA + | ins_next1 + | lwz TMP1, UPVAL:RB->v + | stw TMP0, 0(TMP1) + | ins_next2 + break; + + case BC_UCLO: + | // RA = level*8, RD = target + | lwz TMP1, L->openupval + | branch_RD // Do this first since RD is not saved. + | stp BASE, L->base + | cmplwi TMP1, 0 + | mr CARG1, L + | beq >1 + | add CARG2, BASE, RA + | bl extern lj_func_closeuv // (lua_State *L, TValue *level) + | lp BASE, L->base + |1: + | ins_next + break; + + case BC_FNEW: + | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) + | srwi TMP1, RD, 1 + | stp BASE, L->base + | subfic TMP1, TMP1, -4 + | stw PC, SAVE_PC + | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 + | mr CARG1, L + | lwz CARG3, FRAME_FUNC(BASE) + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | bl extern lj_func_newL_gc + | // Returns GCfuncL *. + | lp BASE, L->base + | li TMP0, LJ_TFUNC + | stwux TMP0, RA, BASE + | stw LFUNC:CRET1, 4(RA) + | ins_next + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + case BC_TDUP: + | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) + | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | mr CARG1, L + | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | stp BASE, L->base + | cmplw TMP0, TMP1 + | stw PC, SAVE_PC + | bge >5 + |1: + if (op == BC_TNEW) { + | rlwinm CARG2, RD, 29, 21, 31 + | rlwinm CARG3, RD, 18, 27, 31 + | cmpwi CARG2, 0x7ff; beq >3 + |2: + | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) + | // Returns Table *. + } else { + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 + | bl extern lj_tab_dup // (lua_State *L, Table *kt) + | // Returns Table *. + } + | lp BASE, L->base + | li TMP0, LJ_TTAB + | stwux TMP0, RA, BASE + | stw TAB:CRET1, 4(RA) + | ins_next + if (op == BC_TNEW) { + |3: + | li CARG2, 0x801 + | b <2 + } + |5: + | mr SAVE0, RD + | bl extern lj_gc_step_fixtop // (lua_State *L) + | mr RD, SAVE0 + | mr CARG1, L + | b <1 + break; + + case BC_GGET: + | // RA = dst*8, RD = str_const*8 (~) + case BC_GSET: + | // RA = src*8, RD = str_const*8 (~) + | lwz LFUNC:TMP2, FRAME_FUNC(BASE) + | srwi TMP1, RD, 1 + | lwz TAB:RB, LFUNC:TMP2->env + | subfic TMP1, TMP1, -4 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + if (op == BC_GGET) { + | b ->BC_TGETS_Z + } else { + | b ->BC_TSETS_Z + } + break; + + case BC_TGETV: + | // RA = dst*8, RB = table*8, RC = key*8 + | lwzux CARG1, RB, BASE + | lwzux CARG2, RC, BASE + | lwz TAB:RB, 4(RB) + |.if DUALNUM + | lwz RC, 4(RC) + |.else + | lfd f0, 0(RC) + |.endif + | checktab CARG1 + | checknum cr1, CARG2 + | bne ->vmeta_tgetv + |.if DUALNUM + | lwz TMP0, TAB:RB->asize + | bne cr1, >5 + | lwz TMP1, TAB:RB->array + | cmplw TMP0, RC + | slwi TMP2, RC, 3 + |.else + | bge cr1, >5 + | // Convert number key to integer, check for integerness and range. + | fctiwz f1, f0 + | fadd f2, f0, TOBIT + | stfd f1, TMPD + | lwz TMP0, TAB:RB->asize + | fsub f2, f2, TOBIT + | lwz TMP2, TMPD_LO + | lwz TMP1, TAB:RB->array + | fcmpu cr1, f0, f2 + | cmplw cr0, TMP0, TMP2 + | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+eq + | slwi TMP2, TMP2, 3 + |.endif + | ble ->vmeta_tgetv // Integer key and in array part? + | lwzx TMP0, TMP1, TMP2 + | lfdx f14, TMP1, TMP2 + | checknil TMP0; beq >2 + |1: + | ins_next1 + | stfdx f14, BASE, RA + | ins_next2 + | + |2: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP0, TAB:TMP2->nomm + | andix. TMP0, TMP0, 1<vmeta_tgetv + | + |5: + | checkstr CARG2; bne ->vmeta_tgetv + |.if not DUALNUM + | lwz STR:RC, 4(RC) + |.endif + | b ->BC_TGETS_Z // String key? + break; + case BC_TGETS: + | // RA = dst*8, RB = table*8, RC = str_const*8 (~) + | lwzux CARG1, RB, BASE + | srwi TMP1, RC, 1 + | lwz TAB:RB, 4(RB) + | subfic TMP1, TMP1, -4 + | checktab CARG1 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + | bne ->vmeta_tgets1 + |->BC_TGETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 + | lwz TMP0, TAB:RB->hmask + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:RB->node + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |1: + | lwz CARG1, NODE:TMP2->key + | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) + | lwz CARG2, NODE:TMP2->val + | lwz TMP1, 4+offsetof(Node, val)(NODE:TMP2) + | checkstr CARG1; bne >4 + | cmpw TMP0, STR:RC; bne >4 + | checknil CARG2; beq >5 // Key found, but nil value? + |3: + | stwux CARG2, RA, BASE + | stw TMP1, 4(RA) + | ins_next + | + |4: // Follow hash chain. + | lwz NODE:TMP2, NODE:TMP2->next + | cmplwi NODE:TMP2, 0 + | bne <1 + | // End of hash chain: key not found, nil result. + | li CARG2, LJ_TNIL + | + |5: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <3 // No metatable: done. + | lbz TMP0, TAB:TMP2->nomm + | andix. TMP0, TMP0, 1<vmeta_tgets + break; + case BC_TGETB: + | // RA = dst*8, RB = table*8, RC = index*8 + | lwzux CARG1, RB, BASE + | srwi TMP0, RC, 3 + | lwz TAB:RB, 4(RB) + | checktab CARG1; bne ->vmeta_tgetb + | lwz TMP1, TAB:RB->asize + | lwz TMP2, TAB:RB->array + | cmplw TMP0, TMP1; bge ->vmeta_tgetb + | lwzx TMP1, TMP2, RC + | lfdx f0, TMP2, RC + | checknil TMP1; beq >5 + |1: + | ins_next1 + | stfdx f0, BASE, RA + | ins_next2 + | + |5: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP2, TAB:TMP2->nomm + | andix. TMP2, TMP2, 1<vmeta_tgetb // Caveat: preserve TMP0! + break; + + case BC_TSETV: + | // RA = src*8, RB = table*8, RC = key*8 + | lwzux CARG1, RB, BASE + | lwzux CARG2, RC, BASE + | lwz TAB:RB, 4(RB) + |.if DUALNUM + | lwz RC, 4(RC) + |.else + | lfd f0, 0(RC) + |.endif + | checktab CARG1 + | checknum cr1, CARG2 + | bne ->vmeta_tsetv + |.if DUALNUM + | lwz TMP0, TAB:RB->asize + | bne cr1, >5 + | lwz TMP1, TAB:RB->array + | cmplw TMP0, RC + | slwi TMP0, RC, 3 + |.else + | bge cr1, >5 + | // Convert number key to integer, check for integerness and range. + | fctiwz f1, f0 + | fadd f2, f0, TOBIT + | stfd f1, TMPD + | lwz TMP0, TAB:RB->asize + | fsub f2, f2, TOBIT + | lwz TMP2, TMPD_LO + | lwz TMP1, TAB:RB->array + | fcmpu cr1, f0, f2 + | cmplw cr0, TMP0, TMP2 + | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+eq + | slwi TMP0, TMP2, 3 + |.endif + | ble ->vmeta_tsetv // Integer key and in array part? + | lwzx TMP2, TMP1, TMP0 + | lbz TMP3, TAB:RB->marked + | lfdx f14, BASE, RA + | checknil TMP2; beq >3 + |1: + | andix. TMP2, TMP3, LJ_GC_BLACK // isblack(table) + | stfdx f14, TMP1, TMP0 + | bne >7 + |2: + | ins_next + | + |3: // Check for __newindex if previous value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP2, TAB:TMP2->nomm + | andix. TMP2, TMP2, 1<vmeta_tsetv + | + |5: + | checkstr CARG2; bne ->vmeta_tsetv + |.if not DUALNUM + | lwz STR:RC, 4(RC) + |.endif + | b ->BC_TSETS_Z // String key? + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <2 + break; + case BC_TSETS: + | // RA = src*8, RB = table*8, RC = str_const*8 (~) + | lwzux CARG1, RB, BASE + | srwi TMP1, RC, 1 + | lwz TAB:RB, 4(RB) + | subfic TMP1, TMP1, -4 + | checktab CARG1 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + | bne ->vmeta_tsets1 + |->BC_TSETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = src*8 + | lwz TMP0, TAB:RB->hmask + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:RB->node + | stb ZERO, TAB:RB->nomm // Clear metamethod cache. + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | lfdx f14, BASE, RA + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | lbz TMP3, TAB:RB->marked + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |1: + | lwz CARG1, NODE:TMP2->key + | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) + | lwz CARG2, NODE:TMP2->val + | lwz NODE:TMP1, NODE:TMP2->next + | checkstr CARG1; bne >5 + | cmpw TMP0, STR:RC; bne >5 + | checknil CARG2; beq >4 // Key found, but nil value? + |2: + | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | stfd f14, NODE:TMP2->val + | bne >7 + |3: + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | lwz TAB:TMP1, TAB:RB->metatable + | cmplwi TAB:TMP1, 0 + | beq <2 // No metatable: done. + | lbz TMP0, TAB:TMP1->nomm + | andix. TMP0, TMP0, 1<vmeta_tsets + | + |5: // Follow hash chain. + | cmplwi NODE:TMP1, 0 + | mr NODE:TMP2, NODE:TMP1 + | bne <1 + | // End of hash chain: key not found, add a new one. + | + | // But check for __newindex first. + | lwz TAB:TMP1, TAB:RB->metatable + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | stw PC, SAVE_PC + | mr CARG1, L + | cmplwi TAB:TMP1, 0 + | stp BASE, L->base + | beq >6 // No metatable: continue. + | lbz TMP0, TAB:TMP1->nomm + | andix. TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. + |6: + | li TMP0, LJ_TSTR + | stw STR:RC, 4(CARG3) + | mr CARG2, TAB:RB + | stw TMP0, 0(CARG3) + | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) + | // Returns TValue *. + | lp BASE, L->base + | stfd f14, 0(CRET1) + | b <3 // No 2nd write barrier needed. + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <3 + break; + case BC_TSETB: + | // RA = src*8, RB = table*8, RC = index*8 + | lwzux CARG1, RB, BASE + | srwi TMP0, RC, 3 + | lwz TAB:RB, 4(RB) + | checktab CARG1; bne ->vmeta_tsetb + | lwz TMP1, TAB:RB->asize + | lwz TMP2, TAB:RB->array + | lbz TMP3, TAB:RB->marked + | cmplw TMP0, TMP1 + | lfdx f14, BASE, RA + | bge ->vmeta_tsetb + | lwzx TMP1, TMP2, RC + | checknil TMP1; beq >5 + |1: + | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | stfdx f14, TMP2, RC + | bne >7 + |2: + | ins_next + | + |5: // Check for __newindex if previous value is nil. + | lwz TAB:TMP1, TAB:RB->metatable + | cmplwi TAB:TMP1, 0 + | beq <1 // No metatable: done. + | lbz TMP1, TAB:TMP1->nomm + | andix. TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <2 + break; + + case BC_TSETM: + | // RA = base*8 (table at base-1), RD = num_const*8 (start index) + | add RA, BASE, RA + |1: + | add TMP3, KBASE, RD + | lwz TAB:CARG2, -4(RA) // Guaranteed to be a table. + | addic. TMP0, MULTRES, -8 + | lwz TMP3, 4(TMP3) // Integer constant is in lo-word. + | srwi CARG3, TMP0, 3 + | beq >4 // Nothing to copy? + | add CARG3, CARG3, TMP3 + | lwz TMP2, TAB:CARG2->asize + | slwi TMP1, TMP3, 3 + | lbz TMP3, TAB:CARG2->marked + | cmplw CARG3, TMP2 + | add TMP2, RA, TMP0 + | lwz TMP0, TAB:CARG2->array + | bgt >5 + | add TMP1, TMP1, TMP0 + | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + |3: // Copy result slots to table. + | lfd f0, 0(RA) + | addi RA, RA, 8 + | cmpw cr1, RA, TMP2 + | stfd f0, 0(TMP1) + | addi TMP1, TMP1, 8 + | blt cr1, <3 + | bne >7 + |4: + | ins_next + | + |5: // Need to resize array part. + | stp BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | mr SAVE0, RD + | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + | // Must not reallocate the stack. + | mr RD, SAVE0 + | b <1 + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP3, TMP0 + | b <4 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALLM: + | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 + | add NARGS8:RC, NARGS8:RC, MULTRES + | // Fall through. Assumes BC_CALL follows. + break; + case BC_CALL: + | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 + | mr TMP2, BASE + | lwzux TMP0, BASE, RA + | lwz LFUNC:RB, 4(BASE) + | subi NARGS8:RC, NARGS8:RC, 8 + | addi BASE, BASE, 8 + | checkfunc TMP0; bne ->vmeta_call + | ins_call + break; + + case BC_CALLMT: + | // RA = base*8, (RB = 0,) RC = extra_nargs*8 + | add NARGS8:RC, NARGS8:RC, MULTRES + | // Fall through. Assumes BC_CALLT follows. + break; + case BC_CALLT: + | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 + | lwzux TMP0, RA, BASE + | lwz LFUNC:RB, 4(RA) + | subi NARGS8:RC, NARGS8:RC, 8 + | lwz TMP1, FRAME_PC(BASE) + | checkfunc TMP0 + | addi RA, RA, 8 + | bne ->vmeta_callt + |->BC_CALLT_Z: + | andix. TMP0, TMP1, FRAME_TYPE // Caveat: preserve cr0 until the crand. + | lbz TMP3, LFUNC:RB->ffid + | xori TMP2, TMP1, FRAME_VARG + | cmplwi cr1, NARGS8:RC, 0 + | bne >7 + |1: + | stw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. + | li TMP2, 0 + | cmplwi cr7, TMP3, 1 // (> FF_C) Calling a fast function? + | beq cr1, >3 + |2: + | addi TMP3, TMP2, 8 + | lfdx f0, RA, TMP2 + | cmplw cr1, TMP3, NARGS8:RC + | stfdx f0, BASE, TMP2 + | mr TMP2, TMP3 + | bne cr1, <2 + |3: + | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+gt + | beq >5 + |4: + | ins_callt + | + |5: // Tailcall to a fast function with a Lua frame below. + | lwz INS, -4(TMP1) + | decode_RA8 RA, INS + | sub TMP1, BASE, RA + | lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1) + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. + | b <4 + | + |7: // Tailcall from a vararg function. + | andix. TMP0, TMP2, FRAME_TYPEP + | bne <1 // Vararg frame below? + | sub BASE, BASE, TMP2 // Relocate BASE down. + | lwz TMP1, FRAME_PC(BASE) + | andix. TMP0, TMP1, FRAME_TYPE + | b <1 + break; + + case BC_ITERC: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) + | mr TMP2, BASE + | add BASE, BASE, RA + | lwz TMP1, -24(BASE) + | lwz LFUNC:RB, -20(BASE) + | lfd f1, -8(BASE) + | lfd f0, -16(BASE) + | stw TMP1, 0(BASE) // Copy callable. + | stw LFUNC:RB, 4(BASE) + | checkfunc TMP1 + | stfd f1, 16(BASE) // Copy control var. + | li NARGS8:RC, 16 // Iterators get 2 arguments. + | stfdu f0, 8(BASE) // Copy state. + | bne ->vmeta_call + | ins_call + break; + + case BC_ITERN: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | add RA, BASE, RA + | lwz TAB:RB, -12(RA) + | lwz RC, -4(RA) // Get index from control var. + | lwz TMP0, TAB:RB->asize + | lwz TMP1, TAB:RB->array + | addi PC, PC, 4 + |1: // Traverse array part. + | cmplw RC, TMP0 + | slwi TMP3, RC, 3 + | bge >5 // Index points after array part? + | lwzx TMP2, TMP1, TMP3 + | lfdx f0, TMP1, TMP3 + | checknil TMP2 + | lwz INS, -4(PC) + | beq >4 + |.if DUALNUM + | stw RC, 4(RA) + | stw TISNUM, 0(RA) + |.else + | tonum_u f1, RC + |.endif + | addi RC, RC, 1 + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | stfd f0, 8(RA) + | decode_RD4 TMP1, INS + | stw RC, -4(RA) // Update control var. + | add PC, TMP1, TMP3 + |.if not DUALNUM + | stfd f1, 0(RA) + |.endif + |3: + | ins_next + | + |4: // Skip holes in array part. + | addi RC, RC, 1 + | b <1 + | + |5: // Traverse hash part. + | lwz TMP1, TAB:RB->hmask + | sub RC, RC, TMP0 + | lwz TMP2, TAB:RB->node + |6: + | cmplw RC, TMP1 // End of iteration? Branch to ITERL+1. + | slwi TMP3, RC, 5 + | bgty <3 + | slwi RB, RC, 3 + | sub TMP3, TMP3, RB + | lwzx RB, TMP2, TMP3 + | lfdx f0, TMP2, TMP3 + | add NODE:TMP3, TMP2, TMP3 + | checknil RB + | lwz INS, -4(PC) + | beq >7 + | lfd f1, NODE:TMP3->key + | addis TMP2, PC, -(BCBIAS_J*4 >> 16) + | stfd f0, 8(RA) + | add RC, RC, TMP0 + | decode_RD4 TMP1, INS + | stfd f1, 0(RA) + | addi RC, RC, 1 + | add PC, TMP1, TMP2 + | stw RC, -4(RA) // Update control var. + | b <3 + | + |7: // Skip holes in hash part. + | addi RC, RC, 1 + | b <6 + break; + + case BC_ISNEXT: + | // RA = base*8, RD = target (points to ITERN) + | add RA, BASE, RA + | lwz TMP0, -24(RA) + | lwz CFUNC:TMP1, -20(RA) + | lwz TMP2, -16(RA) + | lwz TMP3, -8(RA) + | cmpwi cr0, TMP2, LJ_TTAB + | cmpwi cr1, TMP0, LJ_TFUNC + | cmpwi cr6, TMP3, LJ_TNIL + | bne cr1, >5 + | lbz TMP1, CFUNC:TMP1->ffid + | crand 4*cr0+eq, 4*cr0+eq, 4*cr6+eq + | cmpwi cr7, TMP1, FF_next_N + | srwi TMP0, RD, 1 + | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq + | add TMP3, PC, TMP0 + | bne cr0, >5 + | lus TMP1, 0xfffe + | ori TMP1, TMP1, 0x7fff + | stw ZERO, -4(RA) // Initialize control var. + | stw TMP1, -8(RA) + | addis PC, TMP3, -(BCBIAS_J*4 >> 16) + |1: + | ins_next + |5: // Despecialize bytecode if any of the checks fail. + | li TMP0, BC_JMP + | li TMP1, BC_ITERC + | stb TMP0, -1(PC) + | addis PC, TMP3, -(BCBIAS_J*4 >> 16) + | stb TMP1, 3(PC) + | b <1 + break; + + case BC_VARG: + | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 + | lwz TMP0, FRAME_PC(BASE) + | add RC, BASE, RC + | add RA, BASE, RA + | addi RC, RC, FRAME_VARG + | add TMP2, RA, RB + | subi TMP3, BASE, 8 // TMP3 = vtop + | sub RC, RC, TMP0 // RC = vbase + | // Note: RC may now be even _above_ BASE if nargs was < numparams. + | cmplwi cr1, RB, 0 + |.if PPE + | sub TMP1, TMP3, RC + | cmpwi TMP1, 0 + |.else + | sub. TMP1, TMP3, RC + |.endif + | beq cr1, >5 // Copy all varargs? + | subi TMP2, TMP2, 16 + | ble >2 // No vararg slots? + |1: // Copy vararg slots to destination slots. + | lfd f0, 0(RC) + | addi RC, RC, 8 + | stfd f0, 0(RA) + | cmplw RA, TMP2 + | cmplw cr1, RC, TMP3 + | bge >3 // All destination slots filled? + | addi RA, RA, 8 + | blt cr1, <1 // More vararg slots? + |2: // Fill up remainder with nil. + | stw TISNIL, 0(RA) + | cmplw RA, TMP2 + | addi RA, RA, 8 + | blt <2 + |3: + | ins_next + | + |5: // Copy all varargs. + | lwz TMP0, L->maxstack + | li MULTRES, 8 // MULTRES = (0+1)*8 + | bley <3 // No vararg slots? + | add TMP2, RA, TMP1 + | cmplw TMP2, TMP0 + | addi MULTRES, TMP1, 8 + | bgt >7 + |6: + | lfd f0, 0(RC) + | addi RC, RC, 8 + | stfd f0, 0(RA) + | cmplw RC, TMP3 + | addi RA, RA, 8 + | blt <6 // More vararg slots? + | b <3 + | + |7: // Grow stack for varargs. + | mr CARG1, L + | stp RA, L->top + | sub SAVE0, RC, BASE // Need delta, because BASE may change. + | stp BASE, L->base + | sub RA, RA, BASE + | stw PC, SAVE_PC + | srwi CARG2, TMP1, 3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | lp BASE, L->base + | add RA, BASE, RA + | add RC, BASE, SAVE0 + | subi TMP3, BASE, 8 + | b <6 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | // RA = results*8, RD = extra_nresults*8 + | add RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. + | // Fall through. Assumes BC_RET follows. + break; + + case BC_RET: + | // RA = results*8, RD = (nresults+1)*8 + | lwz PC, FRAME_PC(BASE) + | add RA, BASE, RA + | mr MULTRES, RD + |1: + | andix. TMP0, PC, FRAME_TYPE + | xori TMP1, PC, FRAME_VARG + | bne ->BC_RETV_Z + | + |->BC_RET_Z: + | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return + | lwz INS, -4(PC) + | cmpwi RD, 8 + | subi TMP2, BASE, 8 + | subi RC, RD, 8 + | decode_RB8 RB, INS + | beq >3 + | li TMP1, 0 + |2: + | addi TMP3, TMP1, 8 + | lfdx f0, RA, TMP1 + | cmpw TMP3, RC + | stfdx f0, TMP2, TMP1 + | beq >3 + | addi TMP1, TMP3, 8 + | lfdx f1, RA, TMP3 + | cmpw TMP1, RC + | stfdx f1, TMP2, TMP3 + | bne <2 + |3: + |5: + | cmplw RB, RD + | decode_RA8 RA, INS + | bgt >6 + | sub BASE, TMP2, RA + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | stwx TISNIL, TMP2, TMP1 + | b <5 + | + |->BC_RETV_Z: // Non-standard return case. + | andix. TMP2, TMP1, FRAME_TYPEP + | bne ->vm_return + | // Return from vararg function: relocate BASE down. + | sub BASE, BASE, TMP1 + | lwz PC, FRAME_PC(BASE) + | b <1 + break; + + case BC_RET0: case BC_RET1: + | // RA = results*8, RD = (nresults+1)*8 + | lwz PC, FRAME_PC(BASE) + | add RA, BASE, RA + | mr MULTRES, RD + | andix. TMP0, PC, FRAME_TYPE + | xori TMP1, PC, FRAME_VARG + | bney ->BC_RETV_Z + | + | lwz INS, -4(PC) + | subi TMP2, BASE, 8 + | decode_RB8 RB, INS + if (op == BC_RET1) { + | lfd f0, 0(RA) + | stfd f0, 0(TMP2) + } + |5: + | cmplw RB, RD + | decode_RA8 RA, INS + | bgt >6 + | sub BASE, TMP2, RA + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | stwx TISNIL, TMP2, TMP1 + | b <5 + break; + + /* -- Loops and branches ------------------------------------------------ */ + + case BC_FORL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IFORL follows. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + | // RA = base*8, RD = target (after end of loop or start of loop) + vk = (op == BC_IFORL || op == BC_JFORL); + |.if DUALNUM + | // Integer loop. + | lwzux TMP1, RA, BASE + | lwz CARG1, FORL_IDX*8+4(RA) + | cmplw cr0, TMP1, TISNUM + if (vk) { + | lwz CARG3, FORL_STEP*8+4(RA) + | bne >9 + |.if GPR64 + | // Need to check overflow for (a<<32) + (b<<32). + | rldicr TMP0, CARG1, 32, 31 + | rldicr TMP2, CARG3, 32, 31 + | add CARG1, CARG1, CARG3 + | addo. TMP0, TMP0, TMP2 + |.else + | addo. CARG1, CARG1, CARG3 + |.endif + | cmpwi cr6, CARG3, 0 + | lwz CARG2, FORL_STOP*8+4(RA) + | bso >6 + |4: + | stw CARG1, FORL_IDX*8+4(RA) + } else { + | lwz TMP3, FORL_STEP*8(RA) + | lwz CARG3, FORL_STEP*8+4(RA) + | lwz TMP2, FORL_STOP*8(RA) + | lwz CARG2, FORL_STOP*8+4(RA) + | cmplw cr7, TMP3, TISNUM + | cmplw cr1, TMP2, TISNUM + | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq + | crand 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | cmpwi cr6, CARG3, 0 + | bne >9 + } + | blt cr6, >5 + | cmpw CARG1, CARG2 + |1: + | stw TISNUM, FORL_EXT*8(RA) + if (op != BC_JFORL) { + | srwi RD, RD, 1 + } + | stw CARG1, FORL_EXT*8+4(RA) + if (op != BC_JFORL) { + | add RD, PC, RD + } + if (op == BC_FORI) { + | bgt >3 // See FP loop below. + } else if (op == BC_JFORI) { + | addis PC, RD, -(BCBIAS_J*4 >> 16) + | bley >7 + } else if (op == BC_IFORL) { + | bgt >2 + | addis PC, RD, -(BCBIAS_J*4 >> 16) + } else { + | bley =>BC_JLOOP + } + |2: + | ins_next + |5: // Invert check for negative step. + | cmpw CARG2, CARG1 + | b <1 + if (vk) { + |6: // Potential overflow. + | checkov TMP0, <4 // Ignore unrelated overflow. + | b <2 + } + |.endif + if (vk) { + |.if DUALNUM + |9: // FP loop. + | lfd f1, FORL_IDX*8(RA) + |.else + | lfdux f1, RA, BASE + |.endif + | lfd f3, FORL_STEP*8(RA) + | lfd f2, FORL_STOP*8(RA) + | lwz TMP3, FORL_STEP*8(RA) + | fadd f1, f1, f3 + | stfd f1, FORL_IDX*8(RA) + } else { + |.if DUALNUM + |9: // FP loop. + |.else + | lwzux TMP1, RA, BASE + | lwz TMP3, FORL_STEP*8(RA) + | lwz TMP2, FORL_STOP*8(RA) + | cmplw cr0, TMP1, TISNUM + | cmplw cr7, TMP3, TISNUM + | cmplw cr1, TMP2, TISNUM + |.endif + | lfd f1, FORL_IDX*8(RA) + | crand 4*cr0+lt, 4*cr0+lt, 4*cr7+lt + | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | lfd f2, FORL_STOP*8(RA) + | bge ->vmeta_for + } + | cmpwi cr6, TMP3, 0 + if (op != BC_JFORL) { + | srwi RD, RD, 1 + } + | stfd f1, FORL_EXT*8(RA) + if (op != BC_JFORL) { + | add RD, PC, RD + } + | fcmpu cr0, f1, f2 + if (op == BC_JFORI) { + | addis PC, RD, -(BCBIAS_J*4 >> 16) + } + | blt cr6, >5 + if (op == BC_FORI) { + | bgt >3 + } else if (op == BC_IFORL) { + |.if DUALNUM + | bgty <2 + |.else + | bgt >2 + |.endif + |1: + | addis PC, RD, -(BCBIAS_J*4 >> 16) + } else if (op == BC_JFORI) { + | bley >7 + } else { + | bley =>BC_JLOOP + } + |.if DUALNUM + | b <2 + |.else + |2: + | ins_next + |.endif + |5: // Negative step. + if (op == BC_FORI) { + | bge <2 + |3: // Used by integer loop, too. + | addis PC, RD, -(BCBIAS_J*4 >> 16) + } else if (op == BC_IFORL) { + | bgey <1 + } else if (op == BC_JFORI) { + | bgey >7 + } else { + | bgey =>BC_JLOOP + } + | b <2 + if (op == BC_JFORI) { + |7: + | lwz INS, -4(PC) + | decode_RD8 RD, INS + | b =>BC_JLOOP + } + break; + + case BC_ITERL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IITERL follows. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | // RA = base*8, RD = target + | lwzux TMP1, RA, BASE + | lwz TMP2, 4(RA) + | checknil TMP1; beq >1 // Stop if iterator returned nil. + if (op == BC_JITERL) { + | stw TMP1, -8(RA) + | stw TMP2, -4(RA) + | b =>BC_JLOOP + } else { + | branch_RD // Otherwise save control var + branch. + | stw TMP1, -8(RA) + | stw TMP2, -4(RA) + } + |1: + | ins_next + break; + + case BC_LOOP: + | // RA = base*8, RD = target (loop extent) + | // Note: RA/RD is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_ILOOP follows. + break; + + case BC_ILOOP: + | // RA = base*8, RD = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | // RA = base*8 (ignored), RD = traceno*8 + | lwz TMP1, DISPATCH_J(trace)(DISPATCH) + | srwi RD, RD, 1 + | // Traces on PPC don't store the trace number, so use 0. + | stw ZERO, DISPATCH_GL(vmstate)(DISPATCH) + | lwzx TRACE:TMP2, TMP1, RD + | clrso TMP1 + | lp TMP2, TRACE:TMP2->mcode + | stw BASE, DISPATCH_GL(jit_base)(DISPATCH) + | mtctr TMP2 + | stw L, DISPATCH_GL(jit_L)(DISPATCH) + | addi JGL, DISPATCH, GG_DISP2G+32768 + | bctr + |.endif + break; + + case BC_JMP: + | // RA = base*8 (only used by trace recorder), RD = target + | branch_RD + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + |.if JIT + | hotcall + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | lwz TMP2, L->maxstack + | lbz TMP1, -4+PC2PROTO(numparams)(PC) + | lwz KBASE, -4+PC2PROTO(k)(PC) + | cmplw RA, TMP2 + | slwi TMP1, TMP1, 3 + | bgt ->vm_growstack_l + if (op != BC_JFUNCF) { + | ins_next1 + } + |2: + | cmplw NARGS8:RC, TMP1 // Check for missing parameters. + | blt >3 + if (op == BC_JFUNCF) { + | decode_RD8 RD, INS + | b =>BC_JLOOP + } else { + | ins_next2 + } + | + |3: // Clear missing parameters. + | stwx TISNIL, BASE, NARGS8:RC + | addi NARGS8:RC, NARGS8:RC, 8 + | b <2 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | NYI // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | lwz TMP2, L->maxstack + | add TMP1, BASE, RC + | add TMP0, RA, RC + | stw LFUNC:RB, 4(TMP1) // Store copy of LFUNC. + | addi TMP3, RC, 8+FRAME_VARG + | lwz KBASE, -4+PC2PROTO(k)(PC) + | cmplw TMP0, TMP2 + | stw TMP3, 0(TMP1) // Store delta + FRAME_VARG. + | bge ->vm_growstack_l + | lbz TMP2, -4+PC2PROTO(numparams)(PC) + | mr RA, BASE + | mr RC, TMP1 + | ins_next1 + | cmpwi TMP2, 0 + | addi BASE, TMP1, 8 + | beq >3 + |1: + | cmplw RA, RC // Less args than parameters? + | lwz TMP0, 0(RA) + | lwz TMP3, 4(RA) + | bge >4 + | stw TISNIL, 0(RA) // Clear old fixarg slot (help the GC). + | addi RA, RA, 8 + |2: + | addic. TMP2, TMP2, -1 + | stw TMP0, 8(TMP1) + | stw TMP3, 12(TMP1) + | addi TMP1, TMP1, 8 + | bne <1 + |3: + | ins_next2 + | + |4: // Clear missing parameters. + | li TMP0, LJ_TNIL + | b <2 + break; + + case BC_FUNCC: + case BC_FUNCCW: + | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 + if (op == BC_FUNCC) { + | lp RD, CFUNC:RB->f + } else { + | lp RD, DISPATCH_GL(wrapf)(DISPATCH) + } + | add TMP1, RA, NARGS8:RC + | lwz TMP2, L->maxstack + | .toc lp TMP3, 0(RD) + | add RC, BASE, NARGS8:RC + | stp BASE, L->base + | cmplw TMP1, TMP2 + | stp RC, L->top + | li_vmstate C + |.if TOC + | mtctr TMP3 + |.else + | mtctr RD + |.endif + if (op == BC_FUNCCW) { + | lp CARG2, CFUNC:RB->f + } + | mr CARG1, L + | bgt ->vm_growstack_c // Need to grow stack. + | .toc lp TOCREG, TOC_OFS(RD) + | .tocenv lp ENVREG, ENV_OFS(RD) + | st_vmstate + | bctrl // (lua_State *L [, lua_CFunction f]) + | // Returns nresults. + | lp BASE, L->base + | .toc ld TOCREG, SAVE_TOC + | slwi RD, CRET1, 3 + | lp TMP1, L->top + | li_vmstate INTERP + | lwz PC, FRAME_PC(BASE) // Fetch PC of caller. + | sub RA, TMP1, RD // RA = L->top - nresults*8 + | st_vmstate + | b ->vm_returnc + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + + dasm_growpc(Dst, BC__MAX); + + build_subroutines(ctx); + + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); + int i; + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.long .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.long 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 65\n" + "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.long .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.long .Lframe0\n" + "\t.long .Lbegin\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x5\n\t.uleb128 70\n\t.uleb128 55\n", + fcofs, CFRAME_SIZE); + for (i = 14; i <= 31; i++) + fprintf(ctx->fp, + "\t.byte %d\n\t.uleb128 %d\n" + "\t.byte %d\n\t.uleb128 %d\n", + 0x80+i, 37+(31-i), 0x80+32+i, 2+2*(31-i)); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE0:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.long .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.long .Lframe0\n" +#if LJ_TARGET_PS3 + "\t.long .lj_vm_ffi_call\n" +#else + "\t.long lj_vm_ffi_call\n" +#endif + "\t.long %d\n" + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x8e\n\t.uleb128 2\n" + "\t.byte 0xd\n\t.uleb128 0xe\n" + "\t.align 2\n" + ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); +#endif +#if !LJ_NO_UNWIND + fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe1:\n" + "\t.long .LECIE1-.LSCIE1\n" + ".LSCIE1:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zPR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 65\n" + "\t.uleb128 6\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.long lj_err_unwind_dwarf-.\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE1:\n\n"); + fprintf(ctx->fp, + ".LSFDE2:\n" + "\t.long .LEFDE2-.LASFDE2\n" + ".LASFDE2:\n" + "\t.long .LASFDE2-.Lframe1\n" + "\t.long .Lbegin-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x5\n\t.uleb128 70\n\t.uleb128 55\n", + fcofs, CFRAME_SIZE); + for (i = 14; i <= 31; i++) + fprintf(ctx->fp, + "\t.byte %d\n\t.uleb128 %d\n" + "\t.byte %d\n\t.uleb128 %d\n", + 0x80+i, 37+(31-i), 0x80+32+i, 2+2*(31-i)); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE2:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".Lframe2:\n" + "\t.long .LECIE2-.LSCIE2\n" + ".LSCIE2:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 65\n" + "\t.uleb128 1\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE2:\n\n"); + fprintf(ctx->fp, + ".LSFDE3:\n" + "\t.long .LEFDE3-.LASFDE3\n" + ".LASFDE3:\n" + "\t.long .LASFDE3-.Lframe2\n" + "\t.long lj_vm_ffi_call-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x8e\n\t.uleb128 2\n" + "\t.byte 0xd\n\t.uleb128 0xe\n" + "\t.align 2\n" + ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); +#endif +#endif + break; + default: + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/vm_ppcspe.dasc b/src/3rd party/luajit-2.0/src/vm_ppcspe.dasc new file mode 100644 index 00000000000..53ea2d96581 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_ppcspe.dasc @@ -0,0 +1,3691 @@ +|// Low-level VM code for PowerPC/e500 CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.arch ppc +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|// Note: The ragged indentation of the instructions is intentional. +|// The starting columns indicate data dependencies. +| +|//----------------------------------------------------------------------- +| +|// Fixed register assignments for the interpreter. +|// Don't use: r1 = sp, r2 and r13 = reserved and/or small data area ptr +| +|// The following must be C callee-save (but BASE is often refetched). +|.define BASE, r14 // Base of current Lua stack frame. +|.define KBASE, r15 // Constants of current Lua function. +|.define PC, r16 // Next PC. +|.define DISPATCH, r17 // Opcode dispatch table. +|.define LREG, r18 // Register holding lua_State (also in SAVE_L). +|.define MULTRES, r19 // Size of multi-result: (nresults+1)*8. +| +|// Constants for vectorized type-comparisons (hi+low GPR). C callee-save. +|.define TISNUM, r22 +|.define TISSTR, r23 +|.define TISTAB, r24 +|.define TISFUNC, r25 +|.define TISNIL, r26 +|.define TOBIT, r27 +|.define ZERO, TOBIT // Zero in lo word. +| +|// The following temporaries are not saved across C calls, except for RA. +|.define RA, r20 // Callee-save. +|.define RB, r10 +|.define RC, r11 +|.define RD, r12 +|.define INS, r7 // Overlaps CARG5. +| +|.define TMP0, r0 +|.define TMP1, r8 +|.define TMP2, r9 +|.define TMP3, r6 // Overlaps CARG4. +| +|// Saved temporaries. +|.define SAVE0, r21 +| +|// Calling conventions. +|.define CARG1, r3 +|.define CARG2, r4 +|.define CARG3, r5 +|.define CARG4, r6 // Overlaps TMP3. +|.define CARG5, r7 // Overlaps INS. +| +|.define CRET1, r3 +|.define CRET2, r4 +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +|.define SAVE_LR, 188(sp) +|.define CFRAME_SPACE, 184 // Delta for sp. +|// Back chain for sp: 184(sp) <-- sp entering interpreter +|.define SAVE_r31, 176(sp) // 64 bit register saves. +|.define SAVE_r30, 168(sp) +|.define SAVE_r29, 160(sp) +|.define SAVE_r28, 152(sp) +|.define SAVE_r27, 144(sp) +|.define SAVE_r26, 136(sp) +|.define SAVE_r25, 128(sp) +|.define SAVE_r24, 120(sp) +|.define SAVE_r23, 112(sp) +|.define SAVE_r22, 104(sp) +|.define SAVE_r21, 96(sp) +|.define SAVE_r20, 88(sp) +|.define SAVE_r19, 80(sp) +|.define SAVE_r18, 72(sp) +|.define SAVE_r17, 64(sp) +|.define SAVE_r16, 56(sp) +|.define SAVE_r15, 48(sp) +|.define SAVE_r14, 40(sp) +|.define SAVE_CR, 36(sp) +|.define UNUSED1, 32(sp) +|.define SAVE_ERRF, 28(sp) // 32 bit C frame info. +|.define SAVE_NRES, 24(sp) +|.define SAVE_CFRAME, 20(sp) +|.define SAVE_L, 16(sp) +|.define SAVE_PC, 12(sp) +|.define SAVE_MULTRES, 8(sp) +|// Next frame lr: 4(sp) +|// Back chain for sp: 0(sp) <-- sp while in interpreter +| +|.macro save_, reg; evstdd reg, SAVE_..reg; .endmacro +|.macro rest_, reg; evldd reg, SAVE_..reg; .endmacro +| +|.macro saveregs +| stwu sp, -CFRAME_SPACE(sp) +| save_ r14; save_ r15; save_ r16; save_ r17; save_ r18; save_ r19 +| mflr r0; mfcr r12 +| save_ r20; save_ r21; save_ r22; save_ r23; save_ r24; save_ r25 +| stw r0, SAVE_LR; stw r12, SAVE_CR +| save_ r26; save_ r27; save_ r28; save_ r29; save_ r30; save_ r31 +|.endmacro +| +|.macro restoreregs +| lwz r0, SAVE_LR; lwz r12, SAVE_CR +| rest_ r14; rest_ r15; rest_ r16; rest_ r17; rest_ r18; rest_ r19 +| mtlr r0; mtcrf 0x38, r12 +| rest_ r20; rest_ r21; rest_ r22; rest_ r23; rest_ r24; rest_ r25 +| rest_ r26; rest_ r27; rest_ r28; rest_ r29; rest_ r30; rest_ r31 +| addi sp, sp, CFRAME_SPACE +|.endmacro +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State, LREG +|.type GL, global_State +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS8, int +|.type TRACE, GCtrace +| +|//----------------------------------------------------------------------- +| +|// These basic macros should really be part of DynASM. +|.macro srwi, rx, ry, n; rlwinm rx, ry, 32-n, n, 31; .endmacro +|.macro slwi, rx, ry, n; rlwinm rx, ry, n, 0, 31-n; .endmacro +|.macro rotlwi, rx, ry, n; rlwinm rx, ry, n, 0, 31; .endmacro +|.macro rotlw, rx, ry, rn; rlwnm rx, ry, rn, 0, 31; .endmacro +|.macro subi, rx, ry, i; addi rx, ry, -i; .endmacro +| +|// Trap for not-yet-implemented parts. +|.macro NYI; tw 4, sp, sp; .endmacro +| +|//----------------------------------------------------------------------- +| +|// Access to frame relative to BASE. +|.define FRAME_PC, -8 +|.define FRAME_FUNC, -4 +| +|// Instruction decode. +|.macro decode_OP4, dst, ins; rlwinm dst, ins, 2, 22, 29; .endmacro +|.macro decode_RA8, dst, ins; rlwinm dst, ins, 27, 21, 28; .endmacro +|.macro decode_RB8, dst, ins; rlwinm dst, ins, 11, 21, 28; .endmacro +|.macro decode_RC8, dst, ins; rlwinm dst, ins, 19, 21, 28; .endmacro +|.macro decode_RD8, dst, ins; rlwinm dst, ins, 19, 13, 28; .endmacro +| +|.macro decode_OP1, dst, ins; rlwinm dst, ins, 0, 24, 31; .endmacro +|.macro decode_RD4, dst, ins; rlwinm dst, ins, 18, 14, 29; .endmacro +| +|// Instruction fetch. +|.macro ins_NEXT1 +| lwz INS, 0(PC) +| addi PC, PC, 4 +|.endmacro +|// Instruction decode+dispatch. +|.macro ins_NEXT2 +| decode_OP4 TMP1, INS +| decode_RB8 RB, INS +| decode_RD8 RD, INS +| lwzx TMP0, DISPATCH, TMP1 +| decode_RA8 RA, INS +| decode_RC8 RC, INS +| mtctr TMP0 +| bctr +|.endmacro +|.macro ins_NEXT +| ins_NEXT1 +| ins_NEXT2 +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +| .define ins_next1, ins_NEXT1 +| .define ins_next2, ins_NEXT2 +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| .macro ins_next +| b ->ins_next +| .endmacro +| .macro ins_next1 +| .endmacro +| .macro ins_next2 +| b ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC +| lwz PC, LFUNC:RB->pc +| lwz INS, 0(PC) +| addi PC, PC, 4 +| decode_OP4 TMP1, INS +| decode_RA8 RA, INS +| lwzx TMP0, DISPATCH, TMP1 +| add RA, RA, BASE +| mtctr TMP0 +| bctr +|.endmacro +| +|.macro ins_call +| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC +| stw PC, FRAME_PC(BASE) +| ins_callt +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Macros to test operand types. +|.macro checknum, reg; evcmpltu reg, TISNUM; .endmacro +|.macro checkstr, reg; evcmpeq reg, TISSTR; .endmacro +|.macro checktab, reg; evcmpeq reg, TISTAB; .endmacro +|.macro checkfunc, reg; evcmpeq reg, TISFUNC; .endmacro +|.macro checknil, reg; evcmpeq reg, TISNIL; .endmacro +|.macro checkok, label; blt label; .endmacro +|.macro checkfail, label; bge label; .endmacro +|.macro checkanyfail, label; bns label; .endmacro +|.macro checkallok, label; bso label; .endmacro +| +|.macro branch_RD +| srwi TMP0, RD, 1 +| add PC, PC, TMP0 +| addis PC, PC, -(BCBIAS_J*4 >> 16) +|.endmacro +| +|// Assumes DISPATCH is relative to GL. +#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) +#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|.macro hotloop +| NYI +|.endmacro +| +|.macro hotcall +| NYI +|.endmacro +| +|// Set current VM state. Uses TMP0. +|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro +|.macro st_vmstate; stw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro +| +|// Move table write barrier back. Overwrites mark and tmp. +|.macro barrierback, tab, mark, tmp +| lwz tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) +| // Assumes LJ_GC_BLACK is 0x04. +| rlwinm mark, mark, 0, 30, 28 // black2gray(tab) +| stw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) +| stb mark, tab->marked +| stw tmp, tab->gclist +|.endmacro +| +|//----------------------------------------------------------------------- + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | // See vm_return. Also: TMP2 = previous base. + | andi. TMP0, PC, FRAME_P + | evsplati TMP1, LJ_TTRUE + | beq ->cont_dispatch + | + | // Return from pcall or xpcall fast func. + | lwz PC, FRAME_PC(TMP2) // Fetch PC of previous frame. + | mr BASE, TMP2 // Restore caller base. + | // Prepending may overwrite the pcall frame, so do it at the end. + | stwu TMP1, FRAME_PC(RA) // Prepend true to results. + | + |->vm_returnc: + | addi RD, RD, 8 // RD = (nresults+1)*8. + | andi. TMP0, PC, FRAME_TYPE + | cmpwi cr1, RD, 0 + | li CRET1, LUA_YIELD + | beq cr1, ->vm_unwind_c_eh + | mr MULTRES, RD + | beq ->BC_RET_Z // Handle regular return to Lua. + | + |->vm_return: + | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return + | // TMP0 = PC & FRAME_TYPE + | cmpwi TMP0, FRAME_C + | rlwinm TMP2, PC, 0, 0, 28 + | li_vmstate C + | sub TMP2, BASE, TMP2 // TMP2 = previous base. + | bne ->vm_returnp + | + | addic. TMP1, RD, -8 + | stw TMP2, L->base + | lwz TMP2, SAVE_NRES + | subi BASE, BASE, 8 + | st_vmstate + | slwi TMP2, TMP2, 3 + | beq >2 + |1: + | addic. TMP1, TMP1, -8 + | evldd TMP0, 0(RA) + | addi RA, RA, 8 + | evstdd TMP0, 0(BASE) + | addi BASE, BASE, 8 + | bne <1 + | + |2: + | cmpw TMP2, RD // More/less results wanted? + | bne >6 + |3: + | stw BASE, L->top // Store new top. + | + |->vm_leave_cp: + | lwz TMP0, SAVE_CFRAME // Restore previous C frame. + | li CRET1, 0 // Ok return status for vm_pcall. + | stw TMP0, L->cframe + | + |->vm_leave_unw: + | restoreregs + | blr + | + |6: + | ble >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + | lwz TMP1, L->maxstack + | cmplw BASE, TMP1 + | bge >8 + | evstdd TISNIL, 0(BASE) + | addi RD, RD, 8 + | addi BASE, BASE, 8 + | b <2 + | + |7: // Less results wanted. + | sub TMP0, RD, TMP2 + | cmpwi TMP2, 0 // LUA_MULTRET+1 case? + | sub TMP0, BASE, TMP0 // Subtract the difference. + | iseleq BASE, BASE, TMP0 // Either keep top or shrink it. + | b <3 + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | stw BASE, L->top // Save current top held in BASE (yes). + | mr SAVE0, RD + | mr CARG2, TMP2 + | mr CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | lwz TMP2, SAVE_NRES + | mr RD, SAVE0 + | slwi TMP2, TMP2, 3 + | lwz BASE, L->top // Need the (realloced) L->top in BASE. + | b <2 + | + |->vm_unwind_c: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + | mr sp, CARG1 + | mr CRET1, CARG2 + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | lwz L, SAVE_L + | li TMP0, ~LJ_VMST_C + | lwz GL:TMP1, L->glref + | stw TMP0, GL:TMP1->vmstate + | b ->vm_leave_unw + | + |->vm_unwind_ff: // Unwind C stack, return from ff pcall. + | // (void *cframe) + | rlwinm sp, CARG1, 0, 0, 29 + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | lwz L, SAVE_L + | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. + | evsplati TISFUNC, LJ_TFUNC + | lus TOBIT, 0x4338 + | evsplati TISTAB, LJ_TTAB + | li TMP0, 0 + | lwz BASE, L->base + | evmergelo TOBIT, TOBIT, TMP0 + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | evsplati TISSTR, LJ_TSTR + | li TMP1, LJ_TFALSE + | evsplati TISNIL, LJ_TNIL + | li_vmstate INTERP + | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame. + | la RA, -8(BASE) // Results start at BASE-8. + | addi DISPATCH, DISPATCH, GG_G2DISP + | stw TMP1, 0(RA) // Prepend false to error message. + | li RD, 16 // 2 results: false + error message. + | st_vmstate + | b ->vm_returnc + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | li CARG2, LUA_MINSTACK + | b >2 + | + |->vm_growstack_l: // Grow stack for Lua function. + | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC + | add RC, BASE, RC + | sub RA, RA, BASE + | stw BASE, L->base + | addi PC, PC, 4 // Must point after first instruction. + | stw RC, L->top + | srwi CARG2, RA, 3 + |2: + | // L->base = new base, L->top = top + | stw PC, SAVE_PC + | mr CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | lwz BASE, L->base + | lwz RC, L->top + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | sub RC, RC, BASE + | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + | mr L, CARG1 + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | mr BASE, CARG2 + | lbz TMP1, L->status + | stw L, SAVE_L + | li PC, FRAME_CP + | addi TMP0, sp, CFRAME_RESUME + | addi DISPATCH, DISPATCH, GG_G2DISP + | stw CARG3, SAVE_NRES + | cmplwi TMP1, 0 + | stw CARG3, SAVE_ERRF + | stw TMP0, L->cframe + | stw CARG3, SAVE_CFRAME + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | beq >3 + | + | // Resume after yield (like a return). + | mr RA, BASE + | lwz BASE, L->base + | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. + | lwz TMP1, L->top + | evsplati TISFUNC, LJ_TFUNC + | lus TOBIT, 0x4338 + | evsplati TISTAB, LJ_TTAB + | lwz PC, FRAME_PC(BASE) + | li TMP2, 0 + | evsplati TISSTR, LJ_TSTR + | sub RD, TMP1, BASE + | evmergelo TOBIT, TOBIT, TMP2 + | stb CARG3, L->status + | andi. TMP0, PC, FRAME_TYPE + | li_vmstate INTERP + | addi RD, RD, 8 + | evsplati TISNIL, LJ_TNIL + | mr MULTRES, RD + | st_vmstate + | beq ->BC_RET_Z + | b ->vm_return + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | li PC, FRAME_CP + | stw CARG4, SAVE_ERRF + | b >1 + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | li PC, FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + | lwz TMP1, L:CARG1->cframe + | stw CARG3, SAVE_NRES + | mr L, CARG1 + | stw CARG1, SAVE_L + | mr BASE, CARG2 + | stw sp, L->cframe // Add our C frame to cframe chain. + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | stw TMP1, SAVE_CFRAME + | addi DISPATCH, DISPATCH, GG_G2DISP + | + |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | lwz TMP2, L->base // TMP2 = old base (used in vmeta_call). + | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. + | lwz TMP1, L->top + | evsplati TISFUNC, LJ_TFUNC + | add PC, PC, BASE + | evsplati TISTAB, LJ_TTAB + | lus TOBIT, 0x4338 + | li TMP0, 0 + | sub PC, PC, TMP2 // PC = frame delta + frame type + | evsplati TISSTR, LJ_TSTR + | sub NARGS8:RC, TMP1, BASE + | evmergelo TOBIT, TOBIT, TMP0 + | li_vmstate INTERP + | evsplati TISNIL, LJ_TNIL + | st_vmstate + | + |->vm_call_dispatch: + | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC + | li TMP0, -8 + | evlddx LFUNC:RB, BASE, TMP0 + | checkfunc LFUNC:RB + | checkfail ->vmeta_call + | + |->vm_call_dispatch_f: + | ins_call + | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + | mr L, CARG1 + | lwz TMP0, L:CARG1->stack + | stw CARG1, SAVE_L + | lwz TMP1, L->top + | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). + | lwz TMP1, L->cframe + | stw sp, L->cframe // Add our C frame to cframe chain. + | li TMP2, 0 + | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. + | stw TMP2, SAVE_ERRF // No error function. + | stw TMP1, SAVE_CFRAME + | mtctr CARG4 + | bctrl // (lua_State *L, lua_CFunction func, void *ud) + | mr. BASE, CRET1 + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | li PC, FRAME_CP + | addi DISPATCH, DISPATCH, GG_G2DISP + | bne <3 // Else continue with the call. + | b ->vm_leave_cp // No base? Just remove C frame. + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the + |// stack, so BASE doesn't need to be reloaded across these calls. + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 + | lwz TMP0, -12(BASE) // Continuation. + | mr RB, BASE + | mr BASE, TMP2 // Restore caller BASE. + | lwz LFUNC:TMP1, FRAME_FUNC(TMP2) + | cmplwi TMP0, 0 + | lwz PC, -16(RB) // Restore PC from [cont|PC]. + | beq >1 + | subi TMP2, RD, 8 + | lwz TMP1, LFUNC:TMP1->pc + | evstddx TISNIL, RA, TMP2 // Ensure one valid arg. + | lwz KBASE, PC2PROTO(k)(TMP1) + | // BASE = base, RA = resultptr, RB = meta base + | mtctr TMP0 + | bctr // Jump to continuation. + | + |1: // Tail call from C function. + | subi TMP1, RB, 16 + | sub RC, TMP1, BASE + | b ->vm_call_tail + | + |->cont_cat: // RA = resultptr, RB = meta base + | lwz INS, -4(PC) + | subi CARG2, RB, 16 + | decode_RB8 SAVE0, INS + | evldd TMP0, 0(RA) + | add TMP1, BASE, SAVE0 + | stw BASE, L->base + | cmplw TMP1, CARG2 + | sub CARG3, CARG2, TMP1 + | decode_RA8 RA, INS + | evstdd TMP0, 0(CARG2) + | bne ->BC_CAT_Z + | evstddx TMP0, BASE, RA + | b ->cont_nop + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets1: + | evmergelo STR:RC, TISSTR, STR:RC + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | decode_RB8 RB, INS + | evstdd STR:RC, 0(CARG3) + | add CARG2, BASE, RB + | b >1 + | + |->vmeta_tgets: + | evmergelo TAB:RB, TISTAB, TAB:RB + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + | evmergelo STR:RC, TISSTR, STR:RC + | evstdd TAB:RB, 0(CARG2) + | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) + | evstdd STR:RC, 0(CARG3) + | b >1 + | + |->vmeta_tgetb: // TMP0 = index + | efdcfsi TMP0, TMP0 + | decode_RB8 RB, INS + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | add CARG2, BASE, RB + | evstdd TMP0, 0(CARG3) + | b >1 + | + |->vmeta_tgetv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | cmplwi CRET1, 0 + | beq >3 + | evldd TMP0, 0(CRET1) + | evstddx TMP0, BASE, RA + | ins_next + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | subfic TMP1, BASE, FRAME_CONT + | lwz BASE, L->top + | stw PC, -16(BASE) // [cont|PC] + | add PC, TMP1, BASE + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | li NARGS8:RC, 16 // 2 args for func(t, k). + | b ->vm_call_dispatch_f + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets1: + | evmergelo STR:RC, TISSTR, STR:RC + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | decode_RB8 RB, INS + | evstdd STR:RC, 0(CARG3) + | add CARG2, BASE, RB + | b >1 + | + |->vmeta_tsets: + | evmergelo TAB:RB, TISTAB, TAB:RB + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + | evmergelo STR:RC, TISSTR, STR:RC + | evstdd TAB:RB, 0(CARG2) + | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) + | evstdd STR:RC, 0(CARG3) + | b >1 + | + |->vmeta_tsetb: // TMP0 = index + | efdcfsi TMP0, TMP0 + | decode_RB8 RB, INS + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | add CARG2, BASE, RB + | evstdd TMP0, 0(CARG3) + | b >1 + | + |->vmeta_tsetv: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | add CARG2, BASE, RB + | add CARG3, BASE, RC + |1: + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | cmplwi CRET1, 0 + | evlddx TMP0, BASE, RA + | beq >3 + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | evstdd TMP0, 0(CRET1) + | ins_next + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | subfic TMP1, BASE, FRAME_CONT + | lwz BASE, L->top + | stw PC, -16(BASE) // [cont|PC] + | add PC, TMP1, BASE + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | li NARGS8:RC, 24 // 3 args for func(t, k, v) + | evstdd TMP0, 16(BASE) // Copy value to third argument. + | b ->vm_call_dispatch_f + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + | mr CARG1, L + | subi PC, PC, 4 + | add CARG2, BASE, RA + | stw PC, SAVE_PC + | add CARG3, BASE, RD + | stw BASE, L->base + | decode_OP1 CARG4, INS + | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + | // Returns 0/1 or TValue * (metamethod). + |3: + | cmplwi CRET1, 1 + | bgt ->vmeta_binop + |4: + | lwz INS, 0(PC) + | addi PC, PC, 4 + | decode_RD4 TMP2, INS + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | add TMP2, TMP2, TMP3 + | isellt PC, PC, TMP2 + |->cont_nop: + | ins_next + | + |->cont_ra: // RA = resultptr + | lwz INS, -4(PC) + | evldd TMP0, 0(RA) + | decode_RA8 TMP1, INS + | evstddx TMP0, BASE, TMP1 + | b ->cont_nop + | + |->cont_condt: // RA = resultptr + | lwz TMP0, 0(RA) + | li TMP1, LJ_TTRUE + | cmplw TMP1, TMP0 // Branch if result is true. + | b <4 + | + |->cont_condf: // RA = resultptr + | lwz TMP0, 0(RA) + | li TMP1, LJ_TFALSE + | cmplw TMP0, TMP1 // Branch if result is false. + | b <4 + | + |->vmeta_equal: + | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. + | subi PC, PC, 4 + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_arith_vn: + | add CARG3, BASE, RB + | add CARG4, KBASE, RC + | b >1 + | + |->vmeta_arith_nv: + | add CARG3, KBASE, RC + | add CARG4, BASE, RB + | b >1 + | + |->vmeta_unm: + | add CARG3, BASE, RD + | mr CARG4, CARG3 + | b >1 + | + |->vmeta_arith_vv: + | add CARG3, BASE, RB + | add CARG4, BASE, RC + |1: + | add CARG2, BASE, RA + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | decode_OP1 CARG5, INS // Caveat: CARG5 overlaps INS. + | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + | // Returns NULL (finished) or TValue * (metamethod). + | cmplwi CRET1, 0 + | beq ->cont_nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 + | sub TMP1, CRET1, BASE + | stw PC, -16(CRET1) // [cont|PC] + | mr TMP2, BASE + | addi PC, TMP1, FRAME_CONT + | mr BASE, CRET1 + | li NARGS8:RC, 16 // 2 args for func(o1, o2). + | b ->vm_call_dispatch + | + |->vmeta_len: +#if LJ_52 + | mr SAVE0, CARG1 +#endif + | add CARG2, BASE, RD + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | bl extern lj_meta_len // (lua_State *L, TValue *o) + | // Returns NULL (retry) or TValue * (metamethod base). +#if LJ_52 + | cmplwi CRET1, 0 + | bne ->vmeta_binop // Binop call for compatibility. + | mr CARG1, SAVE0 + | b ->BC_LEN_Z +#else + | b ->vmeta_binop // Binop call for compatibility. +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call: // Resolve and call __call metamethod. + | // TMP2 = old base, BASE = new base, RC = nargs*8 + | mr CARG1, L + | stw TMP2, L->base // This is the callers base! + | subi CARG2, BASE, 8 + | stw PC, SAVE_PC + | add CARG3, BASE, RC + | mr SAVE0, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. + | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. + | ins_call + | + |->vmeta_callt: // Resolve __call for BC_CALLT. + | // BASE = old base, RA = new base, RC = nargs*8 + | mr CARG1, L + | stw BASE, L->base + | subi CARG2, RA, 8 + | stw PC, SAVE_PC + | add CARG3, RA, RC + | mr SAVE0, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | lwz TMP1, FRAME_PC(BASE) + | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. + | lwz LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. + | b ->BC_CALLT_Z + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | mr CARG1, L + | stw BASE, L->base + | mr CARG2, RA + | stw PC, SAVE_PC + | mr SAVE0, INS + | bl extern lj_meta_for // (lua_State *L, TValue *base) + |.if JIT + | decode_OP1 TMP0, SAVE0 + |.endif + | decode_RA8 RA, SAVE0 + |.if JIT + | cmpwi TMP0, BC_JFORI + |.endif + | decode_RD8 RD, SAVE0 + |.if JIT + | beq =>BC_JFORI + |.endif + | b =>BC_FORI + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 8 + | evldd CARG1, 0(BASE) + | blt ->fff_fallback + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | cmplwi NARGS8:RC, 16 + | evldd CARG1, 0(BASE) + | evldd CARG2, 8(BASE) + | blt ->fff_fallback + |.endmacro + | + |.macro .ffunc_n, name + | .ffunc_1 name + | checknum CARG1 + | checkfail ->fff_fallback + |.endmacro + | + |.macro .ffunc_nn, name + | .ffunc_2 name + | evmergehi TMP0, CARG1, CARG2 + | checknum TMP0 + | checkanyfail ->fff_fallback + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1. + |.macro ffgccheck + | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | cmplw TMP0, TMP1 + | bgel ->fff_gcstep + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc assert + | cmplwi NARGS8:RC, 8 + | evldd TMP0, 0(BASE) + | blt ->fff_fallback + | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE. + | la RA, -8(BASE) + | evcmpltu cr1, TMP0, TMP1 + | lwz PC, FRAME_PC(BASE) + | bge cr1, ->fff_fallback + | evstdd TMP0, 0(RA) + | addi RD, NARGS8:RC, 8 // Compute (nresults+1)*8. + | beq ->fff_res // Done if exactly 1 argument. + | li TMP1, 8 + | subi RC, RC, 8 + |1: + | cmplw TMP1, RC + | evlddx TMP0, BASE, TMP1 + | evstddx TMP0, RA, TMP1 + | addi TMP1, TMP1, 8 + | bne <1 + | b ->fff_res + | + |.ffunc type + | cmplwi NARGS8:RC, 8 + | lwz CARG1, 0(BASE) + | blt ->fff_fallback + | li TMP2, ~LJ_TNUMX + | cmplw CARG1, TISNUM + | not TMP1, CARG1 + | isellt TMP1, TMP2, TMP1 + | slwi TMP1, TMP1, 3 + | la TMP2, CFUNC:RB->upvalue + | evlddx STR:CRET1, TMP2, TMP1 + | b ->fff_restv + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | checktab CARG1 + | evmergehi TMP1, CARG1, CARG1 + | checkfail >6 + |1: // Field metatable must be at same offset for GCtab and GCudata! + | lwz TAB:RB, TAB:CARG1->metatable + |2: + | evmr CRET1, TISNIL + | cmplwi TAB:RB, 0 + | lwz STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) + | beq ->fff_restv + | lwz TMP0, TAB:RB->hmask + | evmergelo CRET1, TISTAB, TAB:RB // Use metatable as default result. + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:RB->node + | evmergelo STR:RC, TISSTR, STR:RC + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |3: // Rearranged logic, because we expect _not_ to find the key. + | evldd TMP0, NODE:TMP2->key + | evldd TMP1, NODE:TMP2->val + | evcmpeq TMP0, STR:RC + | lwz NODE:TMP2, NODE:TMP2->next + | checkallok >5 + | cmplwi NODE:TMP2, 0 + | beq ->fff_restv // Not found, keep default result. + | b <3 + |5: + | checknil TMP1 + | checkok ->fff_restv // Ditto for nil value. + | evmr CRET1, TMP1 // Return value of mt.__metatable. + | b ->fff_restv + | + |6: + | cmpwi TMP1, LJ_TUDATA + | not TMP1, TMP1 + | beq <1 + | checknum CARG1 + | slwi TMP1, TMP1, 2 + | li TMP2, 4*~LJ_TNUMX + | isellt TMP1, TMP2, TMP1 + | la TMP2, DISPATCH_GL(gcroot[GCROOT_BASEMT])(DISPATCH) + | lwzx TAB:RB, TMP2, TMP1 + | b <2 + | + |.ffunc_2 setmetatable + | // Fast path: no mt for table yet and not clearing the mt. + | evmergehi TMP0, TAB:CARG1, TAB:CARG2 + | checktab TMP0 + | checkanyfail ->fff_fallback + | lwz TAB:TMP1, TAB:CARG1->metatable + | cmplwi TAB:TMP1, 0 + | lbz TMP3, TAB:CARG1->marked + | bne ->fff_fallback + | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | stw TAB:CARG2, TAB:CARG1->metatable + | beq ->fff_restv + | barrierback TAB:CARG1, TMP3, TMP0 + | b ->fff_restv + | + |.ffunc rawget + | cmplwi NARGS8:RC, 16 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | checktab CARG2 + | la CARG3, 8(BASE) + | checkfail ->fff_fallback + | mr CARG1, L + | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + | // Returns cTValue *. + | evldd CRET1, 0(CRET1) + | b ->fff_restv + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | cmplwi NARGS8:RC, 8 + | evldd CARG1, 0(BASE) + | bne ->fff_fallback // Exactly one argument. + | checknum CARG1 + | checkok ->fff_restv + | b ->fff_fallback + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | checkstr CARG1 + | // A __tostring method in the string base metatable is ignored. + | checkok ->fff_restv // String key? + | // Handle numbers inline, unless a number base metatable is present. + | lwz TMP0, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) + | checknum CARG1 + | cmplwi cr1, TMP0, 0 + | stw BASE, L->base // Add frame since C call can throw. + | crand 4*cr0+eq, 4*cr0+lt, 4*cr1+eq + | stw PC, SAVE_PC // Redundant (but a defined value). + | bne ->fff_fallback + | ffgccheck + | mr CARG1, L + | mr CARG2, BASE + | bl extern lj_str_fromnum // (lua_State *L, lua_Number *np) + | // Returns GCstr *. + | evmergelo STR:CRET1, TISSTR, STR:CRET1 + | b ->fff_restv + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc next + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | evstddx TISNIL, BASE, NARGS8:RC // Set missing 2nd arg to nil. + | checktab TAB:CARG2 + | lwz PC, FRAME_PC(BASE) + | checkfail ->fff_fallback + | stw BASE, L->base // Add frame since C call can throw. + | mr CARG1, L + | stw BASE, L->top // Dummy frame length is ok. + | la CARG3, 8(BASE) + | stw PC, SAVE_PC + | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + | // Returns 0 at end of traversal. + | cmplwi CRET1, 0 + | evmr CRET1, TISNIL + | beq ->fff_restv // End of traversal: return nil. + | evldd TMP0, 8(BASE) // Copy key and value to results. + | la RA, -8(BASE) + | evldd TMP1, 16(BASE) + | evstdd TMP0, 0(RA) + | li RD, (2+1)*8 + | evstdd TMP1, 8(RA) + | b ->fff_res + | + |.ffunc_1 pairs + | checktab TAB:CARG1 + | lwz PC, FRAME_PC(BASE) + | checkfail ->fff_fallback +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] + | cmplwi TAB:TMP2, 0 + | la RA, -8(BASE) + | bne ->fff_fallback +#else + | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] + | la RA, -8(BASE) +#endif + | evstdd TISNIL, 8(BASE) + | li RD, (3+1)*8 + | evstdd CFUNC:TMP0, 0(RA) + | b ->fff_res + | + |.ffunc_2 ipairs_aux + | checktab TAB:CARG1 + | lwz PC, FRAME_PC(BASE) + | checkfail ->fff_fallback + | checknum CARG2 + | lus TMP3, 0x3ff0 + | checkfail ->fff_fallback + | efdctsi TMP2, CARG2 + | lwz TMP0, TAB:CARG1->asize + | evmergelo TMP3, TMP3, ZERO + | lwz TMP1, TAB:CARG1->array + | efdadd CARG2, CARG2, TMP3 + | addi TMP2, TMP2, 1 + | la RA, -8(BASE) + | cmplw TMP0, TMP2 + | slwi TMP3, TMP2, 3 + | evstdd CARG2, 0(RA) + | ble >2 // Not in array part? + | evlddx TMP1, TMP1, TMP3 + |1: + | checknil TMP1 + | li RD, (0+1)*8 + | checkok ->fff_res // End of iteration, return 0 results. + | li RD, (2+1)*8 + | evstdd TMP1, 8(RA) + | b ->fff_res + |2: // Check for empty hash part first. Otherwise call C function. + | lwz TMP0, TAB:CARG1->hmask + | cmplwi TMP0, 0 + | li RD, (0+1)*8 + | beq ->fff_res + | mr CARG2, TMP2 + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | cmplwi CRET1, 0 + | li RD, (0+1)*8 + | beq ->fff_res + | evldd TMP1, 0(CRET1) + | b <1 + | + |.ffunc_1 ipairs + | checktab TAB:CARG1 + | lwz PC, FRAME_PC(BASE) + | checkfail ->fff_fallback +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] + | cmplwi TAB:TMP2, 0 + | la RA, -8(BASE) + | bne ->fff_fallback +#else + | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] + | la RA, -8(BASE) +#endif + | evsplati TMP1, 0 + | li RD, (3+1)*8 + | evstdd TMP1, 8(BASE) + | evstdd CFUNC:TMP0, 0(RA) + | b ->fff_res + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc pcall + | cmplwi NARGS8:RC, 8 + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | blt ->fff_fallback + | mr TMP2, BASE + | la BASE, 8(BASE) + | // Remember active hook before pcall. + | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 + | subi NARGS8:RC, NARGS8:RC, 8 + | addi PC, TMP3, 8+FRAME_PCALL + | b ->vm_call_dispatch + | + |.ffunc_2 xpcall + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | mr TMP2, BASE + | checkfunc CARG2 // Traceback must be a function. + | checkfail ->fff_fallback + | la BASE, 16(BASE) + | // Remember active hook before pcall. + | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 + | evstdd CARG2, 0(TMP2) // Swap function and traceback. + | subi NARGS8:RC, NARGS8:RC, 16 + | evstdd CARG1, 8(TMP2) + | addi PC, TMP3, 16+FRAME_PCALL + | b ->vm_call_dispatch + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | evmergehi TMP0, L:CARG1, L:CARG1 + |.else + |.ffunc coroutine_wrap_aux + | lwz L:CARG1, CFUNC:RB->upvalue[0].gcr + |.endif + |.if resume + | cmpwi TMP0, LJ_TTHREAD + | bne ->fff_fallback + |.endif + | lbz TMP0, L:CARG1->status + | lwz TMP1, L:CARG1->cframe + | lwz CARG2, L:CARG1->top + | cmplwi cr0, TMP0, LUA_YIELD + | lwz TMP2, L:CARG1->base + | cmplwi cr1, TMP1, 0 + | lwz TMP0, L:CARG1->maxstack + | cmplw cr7, CARG2, TMP2 + | lwz PC, FRAME_PC(BASE) + | crorc 4*cr6+lt, 4*cr0+gt, 4*cr1+eq // st>LUA_YIELD || cframe!=0 + | add TMP2, CARG2, NARGS8:RC + | crandc 4*cr6+gt, 4*cr7+eq, 4*cr0+eq // base==top && st!=LUA_YIELD + | cmplw cr1, TMP2, TMP0 + | cror 4*cr6+lt, 4*cr6+lt, 4*cr6+gt + | stw PC, SAVE_PC + | cror 4*cr6+lt, 4*cr6+lt, 4*cr1+gt // cond1 || cond2 || stackov + | stw BASE, L->base + | blt cr6, ->fff_fallback + |1: + |.if resume + | addi BASE, BASE, 8 // Keep resumed thread in stack for GC. + | subi NARGS8:RC, NARGS8:RC, 8 + | subi TMP2, TMP2, 8 + |.endif + | stw TMP2, L:CARG1->top + | li TMP1, 0 + | stw BASE, L->top + |2: // Move args to coroutine. + | cmpw TMP1, NARGS8:RC + | evlddx TMP0, BASE, TMP1 + | beq >3 + | evstddx TMP0, CARG2, TMP1 + | addi TMP1, TMP1, 8 + | b <2 + |3: + | li CARG3, 0 + | mr L:SAVE0, L:CARG1 + | li CARG4, 0 + | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) + | // Returns thread status. + |4: + | lwz TMP2, L:SAVE0->base + | cmplwi CRET1, LUA_YIELD + | lwz TMP3, L:SAVE0->top + | li_vmstate INTERP + | lwz BASE, L->base + | st_vmstate + | bgt >8 + | sub RD, TMP3, TMP2 + | lwz TMP0, L->maxstack + | cmplwi RD, 0 + | add TMP1, BASE, RD + | beq >6 // No results? + | cmplw TMP1, TMP0 + | li TMP1, 0 + | bgt >9 // Need to grow stack? + | + | subi TMP3, RD, 8 + | stw TMP2, L:SAVE0->top // Clear coroutine stack. + |5: // Move results from coroutine. + | cmplw TMP1, TMP3 + | evlddx TMP0, TMP2, TMP1 + | evstddx TMP0, BASE, TMP1 + | addi TMP1, TMP1, 8 + | bne <5 + |6: + | andi. TMP0, PC, FRAME_TYPE + |.if resume + | li TMP1, LJ_TTRUE + | la RA, -8(BASE) + | stw TMP1, -8(BASE) // Prepend true to results. + | addi RD, RD, 16 + |.else + | mr RA, BASE + | addi RD, RD, 8 + |.endif + |7: + | stw PC, SAVE_PC + | mr MULTRES, RD + | beq ->BC_RET_Z + | b ->vm_return + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | andi. TMP0, PC, FRAME_TYPE + | la TMP3, -8(TMP3) + | li TMP1, LJ_TFALSE + | evldd TMP0, 0(TMP3) + | stw TMP3, L:SAVE0->top // Remove error from coroutine stack. + | li RD, (2+1)*8 + | stw TMP1, -8(BASE) // Prepend false to results. + | la RA, -8(BASE) + | evstdd TMP0, 0(BASE) // Copy error message. + | b <7 + |.else + | mr CARG1, L + | mr CARG2, L:SAVE0 + | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) + |.endif + | + |9: // Handle stack expansion on return from yield. + | mr CARG1, L + | srwi CARG2, RD, 3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | li CRET1, 0 + | b <4 + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | lwz TMP0, L->cframe + | add TMP1, BASE, NARGS8:RC + | stw BASE, L->base + | andi. TMP0, TMP0, CFRAME_RESUME + | stw TMP1, L->top + | li CRET1, LUA_YIELD + | beq ->fff_fallback + | stw ZERO, L->cframe + | stb CRET1, L->status + | b ->vm_leave_unw + | + |//-- Math library ------------------------------------------------------- + | + |.ffunc_n math_abs + | efdabs CRET1, CARG1 + | // Fallthrough. + | + |->fff_restv: + | // CRET1 = TValue result. + | lwz PC, FRAME_PC(BASE) + | la RA, -8(BASE) + | evstdd CRET1, 0(RA) + |->fff_res1: + | // RA = results, PC = return. + | li RD, (1+1)*8 + |->fff_res: + | // RA = results, RD = (nresults+1)*8, PC = return. + | andi. TMP0, PC, FRAME_TYPE + | mr MULTRES, RD + | bne ->vm_return + | lwz INS, -4(PC) + | decode_RB8 RB, INS + |5: + | cmplw RB, RD // More results expected? + | decode_RA8 TMP0, INS + | bgt >6 + | ins_next1 + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | sub BASE, RA, TMP0 + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | evstddx TISNIL, RA, TMP1 + | b <5 + | + |.macro math_extern, func + | .ffunc math_ .. func + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | checknum CARG2 + | evmergehi CARG1, CARG2, CARG2 + | checkfail ->fff_fallback + | bl extern func@plt + | evmergelo CRET1, CRET1, CRET2 + | b ->fff_restv + |.endmacro + | + |.macro math_extern2, func + | .ffunc math_ .. func + | cmplwi NARGS8:RC, 16 + | evldd CARG2, 0(BASE) + | evldd CARG4, 8(BASE) + | blt ->fff_fallback + | evmergehi CARG1, CARG4, CARG2 + | checknum CARG1 + | evmergehi CARG3, CARG4, CARG4 + | checkanyfail ->fff_fallback + | bl extern func@plt + | evmergelo CRET1, CRET1, CRET2 + | b ->fff_restv + |.endmacro + | + |.macro math_round, func + | .ffunc math_ .. func + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | checknum CARG2 + | evmergehi CARG1, CARG2, CARG2 + | checkfail ->fff_fallback + | lwz PC, FRAME_PC(BASE) + | bl ->vm_..func.._hilo; + | la RA, -8(BASE) + | evstdd CRET2, 0(RA) + | b ->fff_res1 + |.endmacro + | + | math_round floor + | math_round ceil + | + | math_extern sqrt + | + |.ffunc math_log + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | bne ->fff_fallback // Need exactly 1 argument. + | checknum CARG2 + | evmergehi CARG1, CARG2, CARG2 + | checkfail ->fff_fallback + | bl extern log@plt + | evmergelo CRET1, CRET1, CRET2 + | b ->fff_restv + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan + | math_extern sinh + | math_extern cosh + | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod + | + |->ff_math_deg: + |.ffunc_n math_rad + | evldd CARG2, CFUNC:RB->upvalue[0] + | efdmul CRET1, CARG1, CARG2 + | b ->fff_restv + | + |.ffunc math_ldexp + | cmplwi NARGS8:RC, 16 + | evldd CARG2, 0(BASE) + | evldd CARG4, 8(BASE) + | blt ->fff_fallback + | evmergehi CARG1, CARG4, CARG2 + | checknum CARG1 + | checkanyfail ->fff_fallback + | efdctsi CARG3, CARG4 + | bl extern ldexp@plt + | evmergelo CRET1, CRET1, CRET2 + | b ->fff_restv + | + |.ffunc math_frexp + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | checknum CARG2 + | evmergehi CARG1, CARG2, CARG2 + | checkfail ->fff_fallback + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | lwz PC, FRAME_PC(BASE) + | bl extern frexp@plt + | lwz TMP1, DISPATCH_GL(tmptv)(DISPATCH) + | evmergelo CRET1, CRET1, CRET2 + | efdcfsi CRET2, TMP1 + | la RA, -8(BASE) + | evstdd CRET1, 0(RA) + | li RD, (2+1)*8 + | evstdd CRET2, 8(RA) + | b ->fff_res + | + |.ffunc math_modf + | cmplwi NARGS8:RC, 8 + | evldd CARG2, 0(BASE) + | blt ->fff_fallback + | checknum CARG2 + | evmergehi CARG1, CARG2, CARG2 + | checkfail ->fff_fallback + | la CARG3, -8(BASE) + | lwz PC, FRAME_PC(BASE) + | bl extern modf@plt + | evmergelo CRET1, CRET1, CRET2 + | la RA, -8(BASE) + | evstdd CRET1, 0(BASE) + | li RD, (2+1)*8 + | b ->fff_res + | + |.macro math_minmax, name, cmpop + | .ffunc_1 name + | checknum CARG1 + | li TMP1, 8 + | checkfail ->fff_fallback + |1: + | evlddx CARG2, BASE, TMP1 + | cmplw cr1, TMP1, NARGS8:RC + | checknum CARG2 + | bge cr1, ->fff_restv // Ok, since CRET1 = CARG1. + | checkfail ->fff_fallback + | cmpop CARG2, CARG1 + | addi TMP1, TMP1, 8 + | crmove 4*cr0+lt, 4*cr0+gt + | evsel CARG1, CARG2, CARG1 + | b <1 + |.endmacro + | + | math_minmax math_min, efdtstlt + | math_minmax math_max, efdtstgt + | + |//-- String library ----------------------------------------------------- + | + |.ffunc_1 string_len + | checkstr STR:CARG1 + | checkfail ->fff_fallback + | lwz TMP0, STR:CARG1->len + | efdcfsi CRET1, TMP0 + | b ->fff_restv + | + |.ffunc string_byte // Only handle the 1-arg case here. + | cmplwi NARGS8:RC, 8 + | evldd STR:CARG1, 0(BASE) + | bne ->fff_fallback // Need exactly 1 argument. + | checkstr STR:CARG1 + | la RA, -8(BASE) + | checkfail ->fff_fallback + | lwz TMP0, STR:CARG1->len + | li RD, (0+1)*8 + | lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end). + | li TMP2, (1+1)*8 + | cmplwi TMP0, 0 + | lwz PC, FRAME_PC(BASE) + | efdcfsi CRET1, TMP1 + | iseleq RD, RD, TMP2 + | evstdd CRET1, 0(RA) + | b ->fff_res + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | cmplwi NARGS8:RC, 8 + | evldd CARG1, 0(BASE) + | bne ->fff_fallback // Exactly 1 argument. + | checknum CARG1 + | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) + | checkfail ->fff_fallback + | efdctsiz TMP0, CARG1 + | li CARG3, 1 + | cmplwi TMP0, 255 + | stb TMP0, 0(CARG2) + | bgt ->fff_fallback + |->fff_newstr: + | mr CARG1, L + | stw BASE, L->base + | stw PC, SAVE_PC + | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + | // Returns GCstr *. + | lwz BASE, L->base + | evmergelo STR:CRET1, TISSTR, STR:CRET1 + | b ->fff_restv + | + |.ffunc string_sub + | ffgccheck + | cmplwi NARGS8:RC, 16 + | evldd CARG3, 16(BASE) + | evldd STR:CARG1, 0(BASE) + | blt ->fff_fallback + | evldd CARG2, 8(BASE) + | li TMP2, -1 + | beq >1 + | checknum CARG3 + | checkfail ->fff_fallback + | efdctsiz TMP2, CARG3 + |1: + | checknum CARG2 + | checkfail ->fff_fallback + | checkstr STR:CARG1 + | efdctsiz TMP1, CARG2 + | checkfail ->fff_fallback + | lwz TMP0, STR:CARG1->len + | cmplw TMP0, TMP2 // len < end? (unsigned compare) + | add TMP3, TMP2, TMP0 + | blt >5 + |2: + | cmpwi TMP1, 0 // start <= 0? + | add TMP3, TMP1, TMP0 + | ble >7 + |3: + | sub. CARG3, TMP2, TMP1 + | addi CARG2, STR:CARG1, #STR-1 + | addi CARG3, CARG3, 1 + | add CARG2, CARG2, TMP1 + | isellt CARG3, r0, CARG3 + | b ->fff_newstr + | + |5: // Negative end or overflow. + | cmpw TMP0, TMP2 + | addi TMP3, TMP3, 1 + | iselgt TMP2, TMP3, TMP0 // end = end > len ? len : end+len+1 + | b <2 + | + |7: // Negative start or underflow. + | cmpwi cr1, TMP3, 0 + | iseleq TMP1, r0, TMP3 + | isel TMP1, r0, TMP1, 4*cr1+lt + | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0) + | b <3 + | + |.ffunc string_rep // Only handle the 1-char case inline. + | ffgccheck + | cmplwi NARGS8:RC, 16 + | evldd CARG1, 0(BASE) + | evldd CARG2, 8(BASE) + | bne ->fff_fallback // Exactly 2 arguments. + | checknum CARG2 + | checkfail ->fff_fallback + | checkstr STR:CARG1 + | efdctsiz CARG3, CARG2 + | checkfail ->fff_fallback + | lwz TMP0, STR:CARG1->len + | cmpwi CARG3, 0 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | ble >2 // Count <= 0? (or non-int) + | cmplwi TMP0, 1 + | subi TMP2, CARG3, 1 + | blt >2 // Zero length string? + | cmplw cr1, TMP1, CARG3 + | bne ->fff_fallback // Fallback for > 1-char strings. + | lbz TMP0, STR:CARG1[1] + | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | blt cr1, ->fff_fallback + |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). + | cmplwi TMP2, 0 + | stbx TMP0, CARG2, TMP2 + | subi TMP2, TMP2, 1 + | bne <1 + | b ->fff_newstr + |2: // Return empty string. + | la STR:CRET1, DISPATCH_GL(strempty)(DISPATCH) + | evmergelo CRET1, TISSTR, STR:CRET1 + | b ->fff_restv + | + |.ffunc string_reverse + | ffgccheck + | cmplwi NARGS8:RC, 8 + | evldd CARG1, 0(BASE) + | blt ->fff_fallback + | checkstr STR:CARG1 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | checkfail ->fff_fallback + | lwz CARG3, STR:CARG1->len + | la CARG1, #STR(STR:CARG1) + | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | li TMP2, 0 + | cmplw TMP1, CARG3 + | subi TMP3, CARG3, 1 + | blt ->fff_fallback + |1: // Reverse string copy. + | cmpwi TMP3, 0 + | lbzx TMP1, CARG1, TMP2 + | blt ->fff_newstr + | stbx TMP1, CARG2, TMP3 + | subi TMP3, TMP3, 1 + | addi TMP2, TMP2, 1 + | b <1 + | + |.macro ffstring_case, name, lo + | .ffunc name + | ffgccheck + | cmplwi NARGS8:RC, 8 + | evldd CARG1, 0(BASE) + | blt ->fff_fallback + | checkstr STR:CARG1 + | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | checkfail ->fff_fallback + | lwz CARG3, STR:CARG1->len + | la CARG1, #STR(STR:CARG1) + | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) + | cmplw TMP1, CARG3 + | li TMP2, 0 + | blt ->fff_fallback + |1: // ASCII case conversion. + | cmplw TMP2, CARG3 + | lbzx TMP1, CARG1, TMP2 + | bge ->fff_newstr + | subi TMP0, TMP1, lo + | xori TMP3, TMP1, 0x20 + | cmplwi TMP0, 26 + | isellt TMP1, TMP3, TMP1 + | stbx TMP1, CARG2, TMP2 + | addi TMP2, TMP2, 1 + | b <1 + |.endmacro + | + |ffstring_case string_lower, 65 + |ffstring_case string_upper, 97 + | + |//-- Table library ------------------------------------------------------ + | + |.ffunc_1 table_getn + | checktab CARG1 + | checkfail ->fff_fallback + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | efdcfsi CRET1, CRET1 + | b ->fff_restv + | + |//-- Bit library -------------------------------------------------------- + | + |.macro .ffunc_bit, name + | .ffunc_n bit_..name + | efdadd CARG1, CARG1, TOBIT + |.endmacro + | + |.ffunc_bit tobit + |->fff_resbit: + | efdcfsi CRET1, CARG1 + | b ->fff_restv + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name + | li TMP1, 8 + |1: + | evlddx CARG2, BASE, TMP1 + | cmplw cr1, TMP1, NARGS8:RC + | checknum CARG2 + | bge cr1, ->fff_resbit + | checkfail ->fff_fallback + | efdadd CARG2, CARG2, TOBIT + | ins CARG1, CARG1, CARG2 + | addi TMP1, TMP1, 8 + | b <1 + |.endmacro + | + |.ffunc_bit_op band, and + |.ffunc_bit_op bor, or + |.ffunc_bit_op bxor, xor + | + |.ffunc_bit bswap + | rotlwi TMP0, CARG1, 8 + | rlwimi TMP0, CARG1, 24, 0, 7 + | rlwimi TMP0, CARG1, 24, 16, 23 + | efdcfsi CRET1, TMP0 + | b ->fff_restv + | + |.ffunc_bit bnot + | not TMP0, CARG1 + | efdcfsi CRET1, TMP0 + | b ->fff_restv + | + |.macro .ffunc_bit_sh, name, ins, shmod + | .ffunc_nn bit_..name + | efdadd CARG2, CARG2, TOBIT + | efdadd CARG1, CARG1, TOBIT + |.if shmod == 1 + | rlwinm CARG2, CARG2, 0, 27, 31 + |.elif shmod == 2 + | neg CARG2, CARG2 + |.endif + | ins TMP0, CARG1, CARG2 + | efdcfsi CRET1, TMP0 + | b ->fff_restv + |.endmacro + | + |.ffunc_bit_sh lshift, slw, 1 + |.ffunc_bit_sh rshift, srw, 1 + |.ffunc_bit_sh arshift, sraw, 1 + |.ffunc_bit_sh rol, rotlw, 0 + |.ffunc_bit_sh ror, rotlw, 2 + | + |//----------------------------------------------------------------------- + | + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RB = CFUNC, RC = nargs*8 + | lwz TMP3, CFUNC:RB->f + | add TMP1, BASE, NARGS8:RC + | lwz PC, FRAME_PC(BASE) // Fallback may overwrite PC. + | addi TMP0, TMP1, 8*LUA_MINSTACK + | lwz TMP2, L->maxstack + | stw PC, SAVE_PC // Redundant (but a defined value). + | cmplw TMP0, TMP2 + | stw BASE, L->base + | stw TMP1, L->top + | mr CARG1, L + | bgt >5 // Need to grow stack. + | mtctr TMP3 + | bctrl // (lua_State *L) + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | lwz BASE, L->base + | cmpwi CRET1, 0 + | slwi RD, CRET1, 3 + | la RA, -8(BASE) + | bgt ->fff_res // Returned nresults+1? + |1: // Returned 0 or -1: retry fast path. + | lwz TMP0, L->top + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | sub NARGS8:RC, TMP0, BASE + | bne ->vm_call_tail // Returned -1? + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | andi. TMP0, PC, FRAME_TYPE + | rlwinm TMP1, PC, 0, 0, 28 + | bne >3 + | lwz INS, -4(PC) + | decode_RA8 TMP1, INS + | addi TMP1, TMP1, 8 + |3: + | sub TMP2, BASE, TMP1 + | b ->vm_call_dispatch // Resolve again for tailcall. + | + |5: // Grow stack for fallback handler. + | li CARG2, LUA_MINSTACK + | bl extern lj_state_growstack // (lua_State *L, int n) + | lwz BASE, L->base + | cmpw TMP0, TMP0 // Set 4*cr0+eq to force retry. + | b <1 + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RC = nargs*8 + | mflr SAVE0 + | stw BASE, L->base + | add TMP0, BASE, NARGS8:RC + | stw PC, SAVE_PC // Redundant (but a defined value). + | stw TMP0, L->top + | mr CARG1, L + | bl extern lj_gc_step // (lua_State *L) + | lwz BASE, L->base + | mtlr SAVE0 + | lwz TMP0, L->top + | sub NARGS8:RC, TMP0, BASE + | lwz CFUNC:RB, FRAME_FUNC(BASE) + | blr + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + |.if JIT + | NYI + |.endif + | + |->vm_rethook: // Dispatch target for return hooks. + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active? + | beq >1 + |5: // Re-dispatch to static ins. + | addi TMP1, TMP1, GG_DISP2STATIC // Assumes decode_OP4 TMP1, INS. + | lwzx TMP0, DISPATCH, TMP1 + | mtctr TMP0 + | bctr + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) + | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active? + | rlwinm TMP0, TMP3, 31-LUA_HOOKLINE, 31, 0 + | bne <5 + | + | cmpwi cr1, TMP0, 0 + | addic. TMP2, TMP2, -1 + | beq cr1, <5 + | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) + | beq >1 + | bge cr1, <5 + |1: + | mr CARG1, L + | stw MULTRES, SAVE_MULTRES + | mr CARG2, PC + | stw BASE, L->base + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) + |3: + | lwz BASE, L->base + |4: // Re-dispatch to static ins. + | lwz INS, -4(PC) + | decode_OP4 TMP1, INS + | decode_RB8 RB, INS + | addi TMP1, TMP1, GG_DISP2STATIC + | decode_RD8 RD, INS + | lwzx TMP0, DISPATCH, TMP1 + | decode_RA8 RA, INS + | decode_RC8 RC, INS + | mtctr TMP0 + | bctr + | + |->cont_hook: // Continue from hook yield. + | addi PC, PC, 4 + | lwz MULTRES, -20(RB) // Restore MULTRES for *M ins. + | b <4 + | + |->vm_hotloop: // Hot loop counter underflow. + |.if JIT + | NYI + |.endif + | + |->vm_callhook: // Dispatch target for call hooks. + | mr CARG2, PC + |.if JIT + | b >1 + |.endif + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | ori CARG2, PC, 1 + |1: + |.endif + | add TMP0, BASE, RC + | stw PC, SAVE_PC + | mr CARG1, L + | stw BASE, L->base + | sub RA, RA, BASE + | stw TMP0, L->top + | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) + | // Returns ASMFunction. + | lwz BASE, L->base + | lwz TMP0, L->top + | stw ZERO, SAVE_PC // Invalidate for subsequent line hook. + | sub NARGS8:RC, TMP0, BASE + | add RA, BASE, RA + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | mtctr CRET1 + | bctr + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_exit_handler: + |.if JIT + | NYI + |.endif + |->vm_exit_interp: + |.if JIT + | NYI + |.endif + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + |// FP value rounding. Called by math.floor/math.ceil fast functions + |// and from JIT code. + |// + |// This can be inlined if the CPU has the frin/friz/frip/frim instructions. + |// The alternative hard-float approaches have a deep dependency chain. + |// The resulting latency is at least 3x-7x the double-precision FP latency + |// (e500v2: 6cy, e600: 5cy, Cell: 10cy) or around 20-70 cycles. + |// + |// The soft-float approach is tedious, but much faster (e500v2: ~11cy/~6cy). + |// However it relies on a fast way to transfer the FP value to GPRs + |// (e500v2: 0cy for lo-word, 1cy for hi-word). + |// + |.macro vm_round, name, mode + | // Used temporaries: TMP0, TMP1, TMP2, TMP3. + |->name.._efd: // Input: CARG2, output: CRET2 + | evmergehi CARG1, CARG2, CARG2 + |->name.._hilo: + | // Input: CARG1 (hi), CARG2 (hi, lo), output: CRET2 + | rlwinm TMP2, CARG1, 12, 21, 31 + | addic. TMP2, TMP2, -1023 // exp = exponent(x) - 1023 + | li TMP1, -1 + | cmplwi cr1, TMP2, 51 // 0 <= exp <= 51? + | subfic TMP0, TMP2, 52 + | bgt cr1, >1 + | lus TMP3, 0xfff0 + | slw TMP0, TMP1, TMP0 // lomask = -1 << (52-exp) + | sraw TMP1, TMP3, TMP2 // himask = (int32_t)0xfff00000 >> exp + |.if mode == 2 // trunc(x): + | evmergelo TMP0, TMP1, TMP0 + | evand CRET2, CARG2, TMP0 // hi &= himask, lo &= lomask + |.else + | andc TMP2, CARG2, TMP0 + | andc TMP3, CARG1, TMP1 + | or TMP2, TMP2, TMP3 // ztest = (hi&~himask) | (lo&~lomask) + | srawi TMP3, CARG1, 31 // signmask = (int32_t)hi >> 31 + |.if mode == 0 // floor(x): + | and. TMP2, TMP2, TMP3 // iszero = ((ztest & signmask) == 0) + |.else // ceil(x): + | andc. TMP2, TMP2, TMP3 // iszero = ((ztest & ~signmask) == 0) + |.endif + | and CARG2, CARG2, TMP0 // lo &= lomask + | and CARG1, CARG1, TMP1 // hi &= himask + | subc TMP0, CARG2, TMP0 + | iseleq TMP0, CARG2, TMP0 // lo = iszero ? lo : lo-lomask + | sube TMP1, CARG1, TMP1 + | iseleq TMP1, CARG1, TMP1 // hi = iszero ? hi : hi-himask+carry + | evmergelo CRET2, TMP1, TMP0 + |.endif + | blr + |1: + | bgtlr // Already done if >=2^52, +-inf or nan. + |.if mode == 2 // trunc(x): + | rlwinm TMP1, CARG1, 0, 0, 0 // hi = sign(x) + | li TMP0, 0 + | evmergelo CRET2, TMP1, TMP0 + |.else + | rlwinm TMP2, CARG1, 0, 1, 31 + | srawi TMP0, CARG1, 31 // signmask = (int32_t)hi >> 31 + | or TMP2, TMP2, CARG2 // ztest = abs(hi) | lo + | lus TMP1, 0x3ff0 + |.if mode == 0 // floor(x): + | and. TMP2, TMP2, TMP0 // iszero = ((ztest & signmask) == 0) + |.else // ceil(x): + | andc. TMP2, TMP2, TMP0 // iszero = ((ztest & ~signmask) == 0) + |.endif + | li TMP0, 0 + | iseleq TMP1, r0, TMP1 + | rlwimi CARG1, TMP1, 0, 1, 31 // hi = sign(x) | (iszero ? 0.0 : 1.0) + | evmergelo CRET2, CARG1, TMP0 + |.endif + | blr + |.endmacro + | + |->vm_floor: + | mflr CARG3 + | evmergelo CARG2, CARG1, CARG2 + | bl ->vm_floor_hilo + | mtlr CARG3 + | evmergehi CRET1, CRET2, CRET2 + | blr + | + | vm_round vm_floor, 0 + | vm_round vm_ceil, 1 + |.if JIT + | vm_round vm_trunc, 2 + |.else + |->vm_trunc_efd: + |->vm_trunc_hilo: + |.endif + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_ffi_call: + |.if FFI + | NYI + |.endif + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1*8, RD = src2*8, JMP with RD = target + | evlddx TMP0, BASE, RA + | addi PC, PC, 4 + | evlddx TMP1, BASE, RD + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | lwz TMP2, -4(PC) + | evmergehi RB, TMP0, TMP1 + | decode_RD4 TMP2, TMP2 + | checknum RB + | add TMP2, TMP2, TMP3 + | checkanyfail ->vmeta_comp + | efdcmplt TMP0, TMP1 + if (op == BC_ISLE || op == BC_ISGT) { + | efdcmpeq cr1, TMP0, TMP1 + | cror 4*cr0+gt, 4*cr0+gt, 4*cr1+gt + } + if (op == BC_ISLT || op == BC_ISLE) { + | iselgt PC, TMP2, PC + } else { + | iselgt PC, PC, TMP2 + } + | ins_next + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | // RA = src1*8, RD = src2*8, JMP with RD = target + | evlddx CARG2, BASE, RA + | addi PC, PC, 4 + | evlddx CARG3, BASE, RD + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | lwz TMP2, -4(PC) + | evmergehi RB, CARG2, CARG3 + | decode_RD4 TMP2, TMP2 + | checknum RB + | add TMP2, TMP2, TMP3 + | checkanyfail >5 + | efdcmpeq CARG2, CARG3 + if (vk) { + | iselgt PC, TMP2, PC + } else { + | iselgt PC, PC, TMP2 + } + |1: + | ins_next + | + |5: // Either or both types are not numbers. + | evcmpeq CARG2, CARG3 + | not TMP3, RB + | cmplwi cr1, TMP3, ~LJ_TISPRI // Primitive? + | crorc 4*cr7+lt, 4*cr0+so, 4*cr0+lt // 1: Same tv or different type. + | cmplwi cr6, TMP3, ~LJ_TISTABUD // Table or userdata? + | crandc 4*cr7+gt, 4*cr0+lt, 4*cr1+gt // 2: Same type and primitive. + | mr SAVE0, PC + if (vk) { + | isel PC, TMP2, PC, 4*cr7+gt + } else { + | isel TMP2, PC, TMP2, 4*cr7+gt + } + | cror 4*cr7+lt, 4*cr7+lt, 4*cr7+gt // 1 or 2. + if (vk) { + | isel PC, TMP2, PC, 4*cr0+so + } else { + | isel PC, PC, TMP2, 4*cr0+so + } + | blt cr7, <1 // Done if 1 or 2. + | blt cr6, <1 // Done if not tab/ud. + | + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | lwz TAB:TMP2, TAB:CARG2->metatable + | li CARG4, 1-vk // ne = 0 or 1. + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable? + | lbz TMP2, TAB:TMP2->nomm + | andi. TMP2, TMP2, 1<vmeta_equal // Handle __eq metamethod. + break; + + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | // RA = src*8, RD = str_const*8 (~), JMP with RD = target + | evlddx TMP0, BASE, RA + | srwi RD, RD, 1 + | lwz INS, 0(PC) + | subfic RD, RD, -4 + | addi PC, PC, 4 + | lwzx STR:TMP1, KBASE, RD // KBASE-4-str_const*4 + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | decode_RD4 TMP2, INS + | evmergelo STR:TMP1, TISSTR, STR:TMP1 + | add TMP2, TMP2, TMP3 + | evcmpeq TMP0, STR:TMP1 + if (vk) { + | isel PC, TMP2, PC, 4*cr0+so + } else { + | isel PC, PC, TMP2, 4*cr0+so + } + | ins_next + break; + + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | // RA = src*8, RD = num_const*8, JMP with RD = target + | evlddx TMP0, BASE, RA + | addi PC, PC, 4 + | evlddx TMP1, KBASE, RD + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | lwz INS, -4(PC) + | checknum TMP0 + | checkfail >5 + | efdcmpeq TMP0, TMP1 + |1: + | decode_RD4 TMP2, INS + | add TMP2, TMP2, TMP3 + if (vk) { + | iselgt PC, TMP2, PC + |5: + } else { + | iselgt PC, PC, TMP2 + } + |3: + | ins_next + if (!vk) { + |5: + | decode_RD4 TMP2, INS + | add PC, TMP2, TMP3 + | b <3 + } + break; + + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target + | lwzx TMP0, BASE, RA + | srwi TMP1, RD, 3 + | lwz INS, 0(PC) + | addi PC, PC, 4 + | not TMP1, TMP1 + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | cmplw TMP0, TMP1 + | decode_RD4 TMP2, INS + | add TMP2, TMP2, TMP3 + if (vk) { + | iseleq PC, TMP2, PC + } else { + | iseleq PC, PC, TMP2 + } + | ins_next + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | // RA = dst*8 or unused, RD = src*8, JMP with RD = target + | evlddx TMP0, BASE, RD + | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE. + | lwz INS, 0(PC) + | evcmpltu TMP0, TMP1 + | addi PC, PC, 4 + if (op == BC_IST || op == BC_ISF) { + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | decode_RD4 TMP2, INS + | add TMP2, TMP2, TMP3 + if (op == BC_IST) { + | isellt PC, TMP2, PC + } else { + | isellt PC, PC, TMP2 + } + } else { + if (op == BC_ISTC) { + | checkfail >1 + } else { + | checkok >1 + } + | addis PC, PC, -(BCBIAS_J*4 >> 16) + | decode_RD4 TMP2, INS + | evstddx TMP0, BASE, RA + | add PC, PC, TMP2 + |1: + } + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | // RA = dst*8, RD = src*8 + | ins_next1 + | evlddx TMP0, BASE, RD + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_NOT: + | // RA = dst*8, RD = src*8 + | ins_next1 + | lwzx TMP0, BASE, RD + | subfic TMP1, TMP0, LJ_TTRUE + | adde TMP0, TMP0, TMP1 + | stwx TMP0, BASE, RA + | ins_next2 + break; + case BC_UNM: + | // RA = dst*8, RD = src*8 + | evlddx TMP0, BASE, RD + | checknum TMP0 + | checkfail ->vmeta_unm + | efdneg TMP0, TMP0 + | ins_next1 + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_LEN: + | // RA = dst*8, RD = src*8 + | evlddx CARG1, BASE, RD + | checkstr CARG1 + | checkfail >2 + | lwz CRET1, STR:CARG1->len + |1: + | ins_next1 + | efdcfsi TMP0, CRET1 + | evstddx TMP0, BASE, RA + | ins_next2 + |2: + | checktab CARG1 + | checkfail ->vmeta_len +#if LJ_52 + | lwz TAB:TMP2, TAB:CARG1->metatable + | cmplwi TAB:TMP2, 0 + | bne >9 + |3: +#endif + |->BC_LEN_Z: + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | b <1 +#if LJ_52 + |9: + | lbz TMP0, TAB:TMP2->nomm + | andi. TMP0, TMP0, 1<vmeta_len +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithpre, t0, t1 + | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | evlddx t0, BASE, RB + | checknum t0 + | evlddx t1, KBASE, RC + | checkfail ->vmeta_arith_vn + || break; + ||case 1: + | evlddx t1, BASE, RB + | checknum t1 + | evlddx t0, KBASE, RC + | checkfail ->vmeta_arith_nv + || break; + ||default: + | evlddx t0, BASE, RB + | evlddx t1, BASE, RC + | evmergehi TMP2, t0, t1 + | checknum TMP2 + | checkanyfail ->vmeta_arith_vv + || break; + ||} + |.endmacro + | + |.macro ins_arith, ins + | ins_arithpre TMP0, TMP1 + | ins_next1 + | ins TMP0, TMP0, TMP1 + | evstddx TMP0, BASE, RA + | ins_next2 + |.endmacro + + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + | ins_arith efdadd + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + | ins_arith efdsub + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arith efdmul + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arith efddiv + break; + case BC_MODVN: + | ins_arithpre RD, SAVE0 + |->BC_MODVN_Z: + | efddiv CARG2, RD, SAVE0 + | bl ->vm_floor_efd // floor(b/c) + | efdmul TMP0, CRET2, SAVE0 + | ins_next1 + | efdsub TMP0, RD, TMP0 // b - floor(b/c)*c + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_MODNV: case BC_MODVV: + | ins_arithpre RD, SAVE0 + | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. + break; + case BC_POW: + | evlddx CARG2, BASE, RB + | evlddx CARG4, BASE, RC + | evmergehi CARG1, CARG4, CARG2 + | checknum CARG1 + | evmergehi CARG3, CARG4, CARG4 + | checkanyfail ->vmeta_arith_vv + | bl extern pow@plt + | evmergelo CRET2, CRET1, CRET2 + | evstddx CRET2, BASE, RA + | ins_next + break; + + case BC_CAT: + | // RA = dst*8, RB = src_start*8, RC = src_end*8 + | sub CARG3, RC, RB + | stw BASE, L->base + | add CARG2, BASE, RC + | mr SAVE0, RB + |->BC_CAT_Z: + | stw PC, SAVE_PC + | mr CARG1, L + | srwi CARG3, CARG3, 3 + | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) + | // Returns NULL (finished) or TValue * (metamethod). + | cmplwi CRET1, 0 + | lwz BASE, L->base + | bne ->vmeta_binop + | evlddx TMP0, BASE, SAVE0 // Copy result from RB to RA. + | evstddx TMP0, BASE, RA + | ins_next + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | // RA = dst*8, RD = str_const*8 (~) + | ins_next1 + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | lwzx TMP0, KBASE, TMP1 // KBASE-4-str_const*4 + | evmergelo TMP0, TISSTR, TMP0 + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_KCDATA: + |.if FFI + | // RA = dst*8, RD = cdata_const*8 (~) + | ins_next1 + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | lwzx TMP0, KBASE, TMP1 // KBASE-4-cdata_const*4 + | li TMP2, LJ_TCDATA + | evmergelo TMP0, TMP2, TMP0 + | evstddx TMP0, BASE, RA + | ins_next2 + |.endif + break; + case BC_KSHORT: + | // RA = dst*8, RD = int16_literal*8 + | srwi TMP1, RD, 3 + | extsh TMP1, TMP1 + | ins_next1 + | efdcfsi TMP0, TMP1 + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_KNUM: + | // RA = dst*8, RD = num_const*8 + | evlddx TMP0, KBASE, RD + | ins_next1 + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_KPRI: + | // RA = dst*8, RD = primitive_type*8 (~) + | srwi TMP1, RD, 3 + | not TMP0, TMP1 + | ins_next1 + | stwx TMP0, BASE, RA + | ins_next2 + break; + case BC_KNIL: + | // RA = base*8, RD = end*8 + | evstddx TISNIL, BASE, RA + | addi RA, RA, 8 + |1: + | evstddx TISNIL, BASE, RA + | cmpw RA, RD + | addi RA, RA, 8 + | blt <1 + | ins_next_ + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | // RA = dst*8, RD = uvnum*8 + | ins_next1 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RD, RD, 1 + | addi RD, RD, offsetof(GCfuncL, uvptr) + | lwzx UPVAL:RB, LFUNC:RB, RD + | lwz TMP1, UPVAL:RB->v + | evldd TMP0, 0(TMP1) + | evstddx TMP0, BASE, RA + | ins_next2 + break; + case BC_USETV: + | // RA = uvnum*8, RD = src*8 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | evlddx TMP1, BASE, RD + | lwzx UPVAL:RB, LFUNC:RB, RA + | lbz TMP3, UPVAL:RB->marked + | lwz CARG2, UPVAL:RB->v + | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) + | lbz TMP0, UPVAL:RB->closed + | evmergehi TMP2, TMP1, TMP1 + | evstdd TMP1, 0(CARG2) + | cmplwi cr1, TMP0, 0 + | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | subi TMP2, TMP2, (LJ_TISNUM+1) + | bne >2 // Upvalue is closed and black? + |1: + | ins_next + | + |2: // Check if new value is collectable. + | cmplwi TMP2, LJ_TISGCV - (LJ_TISNUM+1) + | bge <1 // tvisgcv(v) + | lbz TMP3, GCOBJ:TMP1->gch.marked + | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(v) + | la CARG1, GG_DISP2G(DISPATCH) + | // Crossed a write barrier. Move the barrier forward. + | beq <1 + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETS: + | // RA = uvnum*8, RD = str_const*8 (~) + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi TMP1, RD, 1 + | srwi RA, RA, 1 + | subfic TMP1, TMP1, -4 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | lwzx STR:TMP1, KBASE, TMP1 // KBASE-4-str_const*4 + | lwzx UPVAL:RB, LFUNC:RB, RA + | evmergelo STR:TMP1, TISSTR, STR:TMP1 + | lbz TMP3, UPVAL:RB->marked + | lwz CARG2, UPVAL:RB->v + | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) + | lbz TMP3, STR:TMP1->marked + | lbz TMP2, UPVAL:RB->closed + | evstdd STR:TMP1, 0(CARG2) + | bne >2 + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(str) + | cmplwi cr1, TMP2, 0 + | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq + | la CARG1, GG_DISP2G(DISPATCH) + | // Crossed a write barrier. Move the barrier forward. + | beq <1 + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETN: + | // RA = uvnum*8, RD = num_const*8 + | ins_next1 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | evlddx TMP0, KBASE, RD + | lwzx UPVAL:RB, LFUNC:RB, RA + | lwz TMP1, UPVAL:RB->v + | evstdd TMP0, 0(TMP1) + | ins_next2 + break; + case BC_USETP: + | // RA = uvnum*8, RD = primitive_type*8 (~) + | ins_next1 + | lwz LFUNC:RB, FRAME_FUNC(BASE) + | srwi RA, RA, 1 + | addi RA, RA, offsetof(GCfuncL, uvptr) + | srwi TMP0, RD, 3 + | lwzx UPVAL:RB, LFUNC:RB, RA + | not TMP0, TMP0 + | lwz TMP1, UPVAL:RB->v + | stw TMP0, 0(TMP1) + | ins_next2 + break; + + case BC_UCLO: + | // RA = level*8, RD = target + | lwz TMP1, L->openupval + | branch_RD // Do this first since RD is not saved. + | stw BASE, L->base + | cmplwi TMP1, 0 + | mr CARG1, L + | beq >1 + | add CARG2, BASE, RA + | bl extern lj_func_closeuv // (lua_State *L, TValue *level) + | lwz BASE, L->base + |1: + | ins_next + break; + + case BC_FNEW: + | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) + | srwi TMP1, RD, 1 + | stw BASE, L->base + | subfic TMP1, TMP1, -4 + | stw PC, SAVE_PC + | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 + | mr CARG1, L + | lwz CARG3, FRAME_FUNC(BASE) + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | bl extern lj_func_newL_gc + | // Returns GCfuncL *. + | lwz BASE, L->base + | evmergelo LFUNC:CRET1, TISFUNC, LFUNC:CRET1 + | evstddx LFUNC:CRET1, BASE, RA + | ins_next + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + case BC_TDUP: + | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) + | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) + | mr CARG1, L + | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) + | stw BASE, L->base + | cmplw TMP0, TMP1 + | stw PC, SAVE_PC + | bge >5 + |1: + if (op == BC_TNEW) { + | rlwinm CARG2, RD, 29, 21, 31 + | rlwinm CARG3, RD, 18, 27, 31 + | cmpwi CARG2, 0x7ff + | li TMP1, 0x801 + | iseleq CARG2, TMP1, CARG2 + | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) + | // Returns Table *. + } else { + | srwi TMP1, RD, 1 + | subfic TMP1, TMP1, -4 + | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 + | bl extern lj_tab_dup // (lua_State *L, Table *kt) + | // Returns Table *. + } + | lwz BASE, L->base + | evmergelo TAB:CRET1, TISTAB, TAB:CRET1 + | evstddx TAB:CRET1, BASE, RA + | ins_next + |5: + | mr SAVE0, RD + | bl extern lj_gc_step_fixtop // (lua_State *L) + | mr RD, SAVE0 + | mr CARG1, L + | b <1 + break; + + case BC_GGET: + | // RA = dst*8, RD = str_const*8 (~) + case BC_GSET: + | // RA = src*8, RD = str_const*8 (~) + | lwz LFUNC:TMP2, FRAME_FUNC(BASE) + | srwi TMP1, RD, 1 + | lwz TAB:RB, LFUNC:TMP2->env + | subfic TMP1, TMP1, -4 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + if (op == BC_GGET) { + | b ->BC_TGETS_Z + } else { + | b ->BC_TSETS_Z + } + break; + + case BC_TGETV: + | // RA = dst*8, RB = table*8, RC = key*8 + | evlddx TAB:RB, BASE, RB + | evlddx RC, BASE, RC + | checktab TAB:RB + | checkfail ->vmeta_tgetv + | checknum RC + | checkfail >5 + | // Convert number key to integer + | efdctsi TMP2, RC + | lwz TMP0, TAB:RB->asize + | efdcfsi TMP1, TMP2 + | cmplw cr0, TMP0, TMP2 + | efdcmpeq cr1, RC, TMP1 + | lwz TMP1, TAB:RB->array + | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt + | slwi TMP2, TMP2, 3 + | ble ->vmeta_tgetv // Integer key and in array part? + | evlddx TMP1, TMP1, TMP2 + | checknil TMP1 + | checkok >2 + |1: + | evstddx TMP1, BASE, RA + | ins_next + | + |2: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP0, TAB:TMP2->nomm + | andi. TMP0, TMP0, 1<vmeta_tgetv + | + |5: + | checkstr STR:RC // String key? + | checkok ->BC_TGETS_Z + | b ->vmeta_tgetv + break; + case BC_TGETS: + | // RA = dst*8, RB = table*8, RC = str_const*8 (~) + | evlddx TAB:RB, BASE, RB + | srwi TMP1, RC, 1 + | checktab TAB:RB + | subfic TMP1, TMP1, -4 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + | checkfail ->vmeta_tgets1 + |->BC_TGETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 + | lwz TMP0, TAB:RB->hmask + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:RB->node + | evmergelo STR:RC, TISSTR, STR:RC + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |1: + | evldd TMP0, NODE:TMP2->key + | evldd TMP1, NODE:TMP2->val + | evcmpeq TMP0, STR:RC + | checkanyfail >4 + | checknil TMP1 + | checkok >5 // Key found, but nil value? + |3: + | evstddx TMP1, BASE, RA + | ins_next + | + |4: // Follow hash chain. + | lwz NODE:TMP2, NODE:TMP2->next + | cmplwi NODE:TMP2, 0 + | bne <1 + | // End of hash chain: key not found, nil result. + | evmr TMP1, TISNIL + | + |5: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <3 // No metatable: done. + | lbz TMP0, TAB:TMP2->nomm + | andi. TMP0, TMP0, 1<vmeta_tgets + break; + case BC_TGETB: + | // RA = dst*8, RB = table*8, RC = index*8 + | evlddx TAB:RB, BASE, RB + | srwi TMP0, RC, 3 + | checktab TAB:RB + | checkfail ->vmeta_tgetb + | lwz TMP1, TAB:RB->asize + | lwz TMP2, TAB:RB->array + | cmplw TMP0, TMP1 + | bge ->vmeta_tgetb + | evlddx TMP1, TMP2, RC + | checknil TMP1 + | checkok >5 + |1: + | ins_next1 + | evstddx TMP1, BASE, RA + | ins_next2 + | + |5: // Check for __index if table value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP2, TAB:TMP2->nomm + | andi. TMP2, TMP2, 1<vmeta_tgetb // Caveat: preserve TMP0! + break; + + case BC_TSETV: + | // RA = src*8, RB = table*8, RC = key*8 + | evlddx TAB:RB, BASE, RB + | evlddx RC, BASE, RC + | checktab TAB:RB + | checkfail ->vmeta_tsetv + | checknum RC + | checkfail >5 + | // Convert number key to integer + | efdctsi TMP2, RC + | evlddx SAVE0, BASE, RA + | lwz TMP0, TAB:RB->asize + | efdcfsi TMP1, TMP2 + | cmplw cr0, TMP0, TMP2 + | efdcmpeq cr1, RC, TMP1 + | lwz TMP1, TAB:RB->array + | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt + | slwi TMP0, TMP2, 3 + | ble ->vmeta_tsetv // Integer key and in array part? + | lbz TMP3, TAB:RB->marked + | evlddx TMP2, TMP1, TMP0 + | checknil TMP2 + | checkok >3 + |1: + | andi. TMP2, TMP3, LJ_GC_BLACK // isblack(table) + | evstddx SAVE0, TMP1, TMP0 + | bne >7 + |2: + | ins_next + | + |3: // Check for __newindex if previous value is nil. + | lwz TAB:TMP2, TAB:RB->metatable + | cmplwi TAB:TMP2, 0 + | beq <1 // No metatable: done. + | lbz TMP2, TAB:TMP2->nomm + | andi. TMP2, TMP2, 1<vmeta_tsetv + | + |5: + | checkstr STR:RC // String key? + | checkok ->BC_TSETS_Z + | b ->vmeta_tsetv + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <2 + break; + case BC_TSETS: + | // RA = src*8, RB = table*8, RC = str_const*8 (~) + | evlddx TAB:RB, BASE, RB + | srwi TMP1, RC, 1 + | checktab TAB:RB + | subfic TMP1, TMP1, -4 + | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 + | checkfail ->vmeta_tsets1 + |->BC_TSETS_Z: + | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = src*8 + | lwz TMP0, TAB:RB->hmask + | lwz TMP1, STR:RC->hash + | lwz NODE:TMP2, TAB:RB->node + | evmergelo STR:RC, TISSTR, STR:RC + | stb ZERO, TAB:RB->nomm // Clear metamethod cache. + | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask + | evlddx SAVE0, BASE, RA + | slwi TMP0, TMP1, 5 + | slwi TMP1, TMP1, 3 + | sub TMP1, TMP0, TMP1 + | lbz TMP3, TAB:RB->marked + | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) + |1: + | evldd TMP0, NODE:TMP2->key + | evldd TMP1, NODE:TMP2->val + | evcmpeq TMP0, STR:RC + | checkanyfail >5 + | checknil TMP1 + | checkok >4 // Key found, but nil value? + |2: + | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | evstdd SAVE0, NODE:TMP2->val + | bne >7 + |3: + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | lwz TAB:TMP1, TAB:RB->metatable + | cmplwi TAB:TMP1, 0 + | beq <2 // No metatable: done. + | lbz TMP0, TAB:TMP1->nomm + | andi. TMP0, TMP0, 1<vmeta_tsets + | + |5: // Follow hash chain. + | lwz NODE:TMP2, NODE:TMP2->next + | cmplwi NODE:TMP2, 0 + | bne <1 + | // End of hash chain: key not found, add a new one. + | + | // But check for __newindex first. + | lwz TAB:TMP1, TAB:RB->metatable + | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) + | stw PC, SAVE_PC + | mr CARG1, L + | cmplwi TAB:TMP1, 0 + | stw BASE, L->base + | beq >6 // No metatable: continue. + | lbz TMP0, TAB:TMP1->nomm + | andi. TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. + |6: + | mr CARG2, TAB:RB + | evstdd STR:RC, 0(CARG3) + | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) + | // Returns TValue *. + | lwz BASE, L->base + | evstdd SAVE0, 0(CRET1) + | b <3 // No 2nd write barrier needed. + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <3 + break; + case BC_TSETB: + | // RA = src*8, RB = table*8, RC = index*8 + | evlddx TAB:RB, BASE, RB + | srwi TMP0, RC, 3 + | checktab TAB:RB + | checkfail ->vmeta_tsetb + | lwz TMP1, TAB:RB->asize + | lwz TMP2, TAB:RB->array + | lbz TMP3, TAB:RB->marked + | cmplw TMP0, TMP1 + | evlddx SAVE0, BASE, RA + | bge ->vmeta_tsetb + | evlddx TMP1, TMP2, RC + | checknil TMP1 + | checkok >5 + |1: + | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + | evstddx SAVE0, TMP2, RC + | bne >7 + |2: + | ins_next + | + |5: // Check for __newindex if previous value is nil. + | lwz TAB:TMP1, TAB:RB->metatable + | cmplwi TAB:TMP1, 0 + | beq <1 // No metatable: done. + | lbz TMP1, TAB:TMP1->nomm + | andi. TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0 + | b <2 + break; + + case BC_TSETM: + | // RA = base*8 (table at base-1), RD = num_const*8 (start index) + | add RA, BASE, RA + |1: + | add TMP3, KBASE, RD + | lwz TAB:CARG2, -4(RA) // Guaranteed to be a table. + | addic. TMP0, MULTRES, -8 + | lwz TMP3, 4(TMP3) // Integer constant is in lo-word. + | srwi CARG3, TMP0, 3 + | beq >4 // Nothing to copy? + | add CARG3, CARG3, TMP3 + | lwz TMP2, TAB:CARG2->asize + | slwi TMP1, TMP3, 3 + | lbz TMP3, TAB:CARG2->marked + | cmplw CARG3, TMP2 + | add TMP2, RA, TMP0 + | lwz TMP0, TAB:CARG2->array + | bgt >5 + | add TMP1, TMP1, TMP0 + | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) + |3: // Copy result slots to table. + | evldd TMP0, 0(RA) + | addi RA, RA, 8 + | cmpw cr1, RA, TMP2 + | evstdd TMP0, 0(TMP1) + | addi TMP1, TMP1, 8 + | blt cr1, <3 + | bne >7 + |4: + | ins_next + | + |5: // Need to resize array part. + | stw BASE, L->base + | mr CARG1, L + | stw PC, SAVE_PC + | mr SAVE0, RD + | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + | // Must not reallocate the stack. + | mr RD, SAVE0 + | b <1 + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP3, TMP0 + | b <4 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALLM: + | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 + | add NARGS8:RC, NARGS8:RC, MULTRES + | // Fall through. Assumes BC_CALL follows. + break; + case BC_CALL: + | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 + | evlddx LFUNC:RB, BASE, RA + | mr TMP2, BASE + | add BASE, BASE, RA + | subi NARGS8:RC, NARGS8:RC, 8 + | checkfunc LFUNC:RB + | addi BASE, BASE, 8 + | checkfail ->vmeta_call + | ins_call + break; + + case BC_CALLMT: + | // RA = base*8, (RB = 0,) RC = extra_nargs*8 + | add NARGS8:RC, NARGS8:RC, MULTRES + | // Fall through. Assumes BC_CALLT follows. + break; + case BC_CALLT: + | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 + | evlddx LFUNC:RB, BASE, RA + | add RA, BASE, RA + | lwz TMP1, FRAME_PC(BASE) + | subi NARGS8:RC, NARGS8:RC, 8 + | checkfunc LFUNC:RB + | addi RA, RA, 8 + | checkfail ->vmeta_callt + |->BC_CALLT_Z: + | andi. TMP0, TMP1, FRAME_TYPE // Caveat: preserve cr0 until the crand. + | lbz TMP3, LFUNC:RB->ffid + | xori TMP2, TMP1, FRAME_VARG + | cmplwi cr1, NARGS8:RC, 0 + | bne >7 + |1: + | stw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. + | li TMP2, 0 + | cmplwi cr7, TMP3, 1 // (> FF_C) Calling a fast function? + | beq cr1, >3 + |2: + | addi TMP3, TMP2, 8 + | evlddx TMP0, RA, TMP2 + | cmplw cr1, TMP3, NARGS8:RC + | evstddx TMP0, BASE, TMP2 + | mr TMP2, TMP3 + | bne cr1, <2 + |3: + | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+gt + | beq >5 + |4: + | ins_callt + | + |5: // Tailcall to a fast function with a Lua frame below. + | lwz INS, -4(TMP1) + | decode_RA8 RA, INS + | sub TMP1, BASE, RA + | lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1) + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. + | b <4 + | + |7: // Tailcall from a vararg function. + | andi. TMP0, TMP2, FRAME_TYPEP + | bne <1 // Vararg frame below? + | sub BASE, BASE, TMP2 // Relocate BASE down. + | lwz TMP1, FRAME_PC(BASE) + | andi. TMP0, TMP1, FRAME_TYPE + | b <1 + break; + + case BC_ITERC: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) + | subi RA, RA, 24 // evldd doesn't support neg. offsets. + | mr TMP2, BASE + | evlddx LFUNC:RB, BASE, RA + | add BASE, BASE, RA + | evldd TMP0, 8(BASE) + | evldd TMP1, 16(BASE) + | evstdd LFUNC:RB, 24(BASE) // Copy callable. + | checkfunc LFUNC:RB + | evstdd TMP0, 32(BASE) // Copy state. + | li NARGS8:RC, 16 // Iterators get 2 arguments. + | evstdd TMP1, 40(BASE) // Copy control var. + | addi BASE, BASE, 32 + | checkfail ->vmeta_call + | ins_call + break; + + case BC_ITERN: + | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | add RA, BASE, RA + | lwz TAB:RB, -12(RA) + | lwz RC, -4(RA) // Get index from control var. + | lwz TMP0, TAB:RB->asize + | lwz TMP1, TAB:RB->array + | addi PC, PC, 4 + |1: // Traverse array part. + | cmplw RC, TMP0 + | slwi TMP3, RC, 3 + | bge >5 // Index points after array part? + | evlddx TMP2, TMP1, TMP3 + | checknil TMP2 + | lwz INS, -4(PC) + | checkok >4 + | efdcfsi TMP0, RC + | addi RC, RC, 1 + | addis TMP3, PC, -(BCBIAS_J*4 >> 16) + | evstdd TMP2, 8(RA) + | decode_RD4 TMP1, INS + | stw RC, -4(RA) // Update control var. + | add PC, TMP1, TMP3 + | evstdd TMP0, 0(RA) + |3: + | ins_next + | + |4: // Skip holes in array part. + | addi RC, RC, 1 + | b <1 + | + |5: // Traverse hash part. + | lwz TMP1, TAB:RB->hmask + | sub RC, RC, TMP0 + | lwz TMP2, TAB:RB->node + |6: + | cmplw RC, TMP1 // End of iteration? Branch to ITERL+1. + | slwi TMP3, RC, 5 + | bgt <3 + | slwi RB, RC, 3 + | sub TMP3, TMP3, RB + | evlddx RB, TMP2, TMP3 + | add NODE:TMP3, TMP2, TMP3 + | checknil RB + | lwz INS, -4(PC) + | checkok >7 + | evldd TMP3, NODE:TMP3->key + | addis TMP2, PC, -(BCBIAS_J*4 >> 16) + | evstdd RB, 8(RA) + | add RC, RC, TMP0 + | decode_RD4 TMP1, INS + | evstdd TMP3, 0(RA) + | addi RC, RC, 1 + | add PC, TMP1, TMP2 + | stw RC, -4(RA) // Update control var. + | b <3 + | + |7: // Skip holes in hash part. + | addi RC, RC, 1 + | b <6 + break; + + case BC_ISNEXT: + | // RA = base*8, RD = target (points to ITERN) + | add RA, BASE, RA + | li TMP2, -24 + | evlddx CFUNC:TMP1, RA, TMP2 + | lwz TMP2, -16(RA) + | lwz TMP3, -8(RA) + | evmergehi TMP0, CFUNC:TMP1, CFUNC:TMP1 + | cmpwi cr0, TMP2, LJ_TTAB + | cmpwi cr1, TMP0, LJ_TFUNC + | cmpwi cr6, TMP3, LJ_TNIL + | bne cr1, >5 + | lbz TMP1, CFUNC:TMP1->ffid + | crand 4*cr0+eq, 4*cr0+eq, 4*cr6+eq + | cmpwi cr7, TMP1, FF_next_N + | srwi TMP0, RD, 1 + | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq + | add TMP3, PC, TMP0 + | bne cr0, >5 + | lus TMP1, 0xfffe + | ori TMP1, TMP1, 0x7fff + | stw ZERO, -4(RA) // Initialize control var. + | stw TMP1, -8(RA) + | addis PC, TMP3, -(BCBIAS_J*4 >> 16) + |1: + | ins_next + |5: // Despecialize bytecode if any of the checks fail. + | li TMP0, BC_JMP + | li TMP1, BC_ITERC + | stb TMP0, -1(PC) + | addis PC, TMP3, -(BCBIAS_J*4 >> 16) + | stb TMP1, 3(PC) + | b <1 + break; + + case BC_VARG: + | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 + | lwz TMP0, FRAME_PC(BASE) + | add RC, BASE, RC + | add RA, BASE, RA + | addi RC, RC, FRAME_VARG + | add TMP2, RA, RB + | subi TMP3, BASE, 8 // TMP3 = vtop + | sub RC, RC, TMP0 // RC = vbase + | // Note: RC may now be even _above_ BASE if nargs was < numparams. + | cmplwi cr1, RB, 0 + | sub. TMP1, TMP3, RC + | beq cr1, >5 // Copy all varargs? + | subi TMP2, TMP2, 16 + | ble >2 // No vararg slots? + |1: // Copy vararg slots to destination slots. + | evldd TMP0, 0(RC) + | addi RC, RC, 8 + | evstdd TMP0, 0(RA) + | cmplw RA, TMP2 + | cmplw cr1, RC, TMP3 + | bge >3 // All destination slots filled? + | addi RA, RA, 8 + | blt cr1, <1 // More vararg slots? + |2: // Fill up remainder with nil. + | evstdd TISNIL, 0(RA) + | cmplw RA, TMP2 + | addi RA, RA, 8 + | blt <2 + |3: + | ins_next + | + |5: // Copy all varargs. + | lwz TMP0, L->maxstack + | li MULTRES, 8 // MULTRES = (0+1)*8 + | ble <3 // No vararg slots? + | add TMP2, RA, TMP1 + | cmplw TMP2, TMP0 + | addi MULTRES, TMP1, 8 + | bgt >7 + |6: + | evldd TMP0, 0(RC) + | addi RC, RC, 8 + | evstdd TMP0, 0(RA) + | cmplw RC, TMP3 + | addi RA, RA, 8 + | blt <6 // More vararg slots? + | b <3 + | + |7: // Grow stack for varargs. + | mr CARG1, L + | stw RA, L->top + | sub SAVE0, RC, BASE // Need delta, because BASE may change. + | stw BASE, L->base + | sub RA, RA, BASE + | stw PC, SAVE_PC + | srwi CARG2, TMP1, 3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | lwz BASE, L->base + | add RA, BASE, RA + | add RC, BASE, SAVE0 + | subi TMP3, BASE, 8 + | b <6 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | // RA = results*8, RD = extra_nresults*8 + | add RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. + | // Fall through. Assumes BC_RET follows. + break; + + case BC_RET: + | // RA = results*8, RD = (nresults+1)*8 + | lwz PC, FRAME_PC(BASE) + | add RA, BASE, RA + | mr MULTRES, RD + |1: + | andi. TMP0, PC, FRAME_TYPE + | xori TMP1, PC, FRAME_VARG + | bne ->BC_RETV_Z + | + |->BC_RET_Z: + | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return + | lwz INS, -4(PC) + | cmpwi RD, 8 + | subi TMP2, BASE, 8 + | subi RC, RD, 8 + | decode_RB8 RB, INS + | beq >3 + | li TMP1, 0 + |2: + | addi TMP3, TMP1, 8 + | evlddx TMP0, RA, TMP1 + | cmpw TMP3, RC + | evstddx TMP0, TMP2, TMP1 + | beq >3 + | addi TMP1, TMP3, 8 + | evlddx TMP0, RA, TMP3 + | cmpw TMP1, RC + | evstddx TMP0, TMP2, TMP3 + | bne <2 + |3: + |5: + | cmplw RB, RD + | decode_RA8 RA, INS + | bgt >6 + | sub BASE, TMP2, RA + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | evstddx TISNIL, TMP2, TMP1 + | b <5 + | + |->BC_RETV_Z: // Non-standard return case. + | andi. TMP2, TMP1, FRAME_TYPEP + | bne ->vm_return + | // Return from vararg function: relocate BASE down. + | sub BASE, BASE, TMP1 + | lwz PC, FRAME_PC(BASE) + | b <1 + break; + + case BC_RET0: case BC_RET1: + | // RA = results*8, RD = (nresults+1)*8 + | lwz PC, FRAME_PC(BASE) + | add RA, BASE, RA + | mr MULTRES, RD + | andi. TMP0, PC, FRAME_TYPE + | xori TMP1, PC, FRAME_VARG + | bne ->BC_RETV_Z + | + | lwz INS, -4(PC) + | subi TMP2, BASE, 8 + | decode_RB8 RB, INS + if (op == BC_RET1) { + | evldd TMP0, 0(RA) + | evstdd TMP0, 0(TMP2) + } + |5: + | cmplw RB, RD + | decode_RA8 RA, INS + | bgt >6 + | sub BASE, TMP2, RA + | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | ins_next1 + | lwz TMP1, LFUNC:TMP1->pc + | lwz KBASE, PC2PROTO(k)(TMP1) + | ins_next2 + | + |6: // Fill up results with nil. + | subi TMP1, RD, 8 + | addi RD, RD, 8 + | evstddx TISNIL, TMP2, TMP1 + | b <5 + break; + + /* -- Loops and branches ------------------------------------------------ */ + + case BC_FORL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IFORL follows. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + | // RA = base*8, RD = target (after end of loop or start of loop) + vk = (op == BC_IFORL || op == BC_JFORL); + | add RA, BASE, RA + | evldd TMP1, FORL_IDX*8(RA) + | evldd TMP3, FORL_STEP*8(RA) + | evldd TMP2, FORL_STOP*8(RA) + if (!vk) { + | evcmpgtu cr0, TMP1, TISNUM + | evcmpgtu cr7, TMP3, TISNUM + | evcmpgtu cr1, TMP2, TISNUM + | cror 4*cr0+lt, 4*cr0+lt, 4*cr7+lt + | cror 4*cr0+lt, 4*cr0+lt, 4*cr1+lt + | blt ->vmeta_for + } + if (vk) { + | efdadd TMP1, TMP1, TMP3 + | evstdd TMP1, FORL_IDX*8(RA) + } + | evcmpgts TMP3, TISNIL + | evstdd TMP1, FORL_EXT*8(RA) + | bge >2 + | efdcmpgt TMP1, TMP2 + |1: + if (op != BC_JFORL) { + | srwi RD, RD, 1 + | add RD, PC, RD + if (op == BC_JFORI) { + | addis PC, RD, -(BCBIAS_J*4 >> 16) + } else { + | addis RD, RD, -(BCBIAS_J*4 >> 16) + } + } + if (op == BC_FORI) { + | iselgt PC, RD, PC + } else if (op == BC_IFORL) { + | iselgt PC, PC, RD + } else { + | ble =>BC_JLOOP + } + | ins_next + |2: + | efdcmpgt TMP2, TMP1 + | b <1 + break; + + case BC_ITERL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IITERL follows. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | // RA = base*8, RD = target + | evlddx TMP1, BASE, RA + | subi RA, RA, 8 + | checknil TMP1 + | checkok >1 // Stop if iterator returned nil. + if (op == BC_JITERL) { + | NYI + } else { + | branch_RD // Otherwise save control var + branch. + | evstddx TMP1, BASE, RA + } + |1: + | ins_next + break; + + case BC_LOOP: + | // RA = base*8, RD = target (loop extent) + | // Note: RA/RD is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_ILOOP follows. + break; + + case BC_ILOOP: + | // RA = base*8, RD = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | NYI + |.endif + break; + + case BC_JMP: + | // RA = base*8 (only used by trace recorder), RD = target + | branch_RD + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + |.if JIT + | hotcall + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | lwz TMP2, L->maxstack + | lbz TMP1, -4+PC2PROTO(numparams)(PC) + | lwz KBASE, -4+PC2PROTO(k)(PC) + | cmplw RA, TMP2 + | slwi TMP1, TMP1, 3 + | bgt ->vm_growstack_l + | ins_next1 + |2: + | cmplw NARGS8:RC, TMP1 // Check for missing parameters. + | ble >3 + if (op == BC_JFUNCF) { + | NYI + } else { + | ins_next2 + } + | + |3: // Clear missing parameters. + | evstddx TISNIL, BASE, NARGS8:RC + | addi NARGS8:RC, NARGS8:RC, 8 + | b <2 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | NYI // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 + | lwz TMP2, L->maxstack + | add TMP1, BASE, RC + | add TMP0, RA, RC + | stw LFUNC:RB, 4(TMP1) // Store copy of LFUNC. + | addi TMP3, RC, 8+FRAME_VARG + | lwz KBASE, -4+PC2PROTO(k)(PC) + | cmplw TMP0, TMP2 + | stw TMP3, 0(TMP1) // Store delta + FRAME_VARG. + | bge ->vm_growstack_l + | lbz TMP2, -4+PC2PROTO(numparams)(PC) + | mr RA, BASE + | mr RC, TMP1 + | ins_next1 + | cmpwi TMP2, 0 + | addi BASE, TMP1, 8 + | beq >3 + |1: + | cmplw RA, RC // Less args than parameters? + | evldd TMP0, 0(RA) + | bge >4 + | evstdd TISNIL, 0(RA) // Clear old fixarg slot (help the GC). + | addi RA, RA, 8 + |2: + | addic. TMP2, TMP2, -1 + | evstdd TMP0, 8(TMP1) + | addi TMP1, TMP1, 8 + | bne <1 + |3: + | ins_next2 + | + |4: // Clear missing parameters. + | evmr TMP0, TISNIL + | b <2 + break; + + case BC_FUNCC: + case BC_FUNCCW: + | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 + if (op == BC_FUNCC) { + | lwz TMP3, CFUNC:RB->f + } else { + | lwz TMP3, DISPATCH_GL(wrapf)(DISPATCH) + } + | add TMP1, RA, NARGS8:RC + | lwz TMP2, L->maxstack + | add RC, BASE, NARGS8:RC + | stw BASE, L->base + | cmplw TMP1, TMP2 + | stw RC, L->top + | li_vmstate C + | mtctr TMP3 + if (op == BC_FUNCCW) { + | lwz CARG2, CFUNC:RB->f + } + | mr CARG1, L + | bgt ->vm_growstack_c // Need to grow stack. + | st_vmstate + | bctrl // (lua_State *L [, lua_CFunction f]) + | // Returns nresults. + | lwz TMP1, L->top + | slwi RD, CRET1, 3 + | lwz BASE, L->base + | li_vmstate INTERP + | lwz PC, FRAME_PC(BASE) // Fetch PC of caller. + | sub RA, TMP1, RD // RA = L->top - nresults*8 + | st_vmstate + | b ->vm_returnc + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + + dasm_growpc(Dst, BC__MAX); + + build_subroutines(ctx); + + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int i; + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.long .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.long 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 65\n" + "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.long .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.long .Lframe0\n" + "\t.long .Lbegin\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n", + (int)ctx->codesz, CFRAME_SIZE); + for (i = 14; i <= 31; i++) + fprintf(ctx->fp, + "\t.byte %d\n\t.uleb128 %d\n" + "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n", + 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i)); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE0:\n\n"); + fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe1:\n" + "\t.long .LECIE1-.LSCIE1\n" + ".LSCIE1:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zPR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -4\n" + "\t.byte 65\n" + "\t.uleb128 6\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.long lj_err_unwind_dwarf-.\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" + "\t.align 2\n" + ".LECIE1:\n\n"); + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.long .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.long .LASFDE1-.Lframe1\n" + "\t.long .Lbegin-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 %d\n" + "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" + "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n", + (int)ctx->codesz, CFRAME_SIZE); + for (i = 14; i <= 31; i++) + fprintf(ctx->fp, + "\t.byte %d\n\t.uleb128 %d\n" + "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n", + 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i)); + fprintf(ctx->fp, + "\t.align 2\n" + ".LEFDE1:\n\n"); + break; + default: + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/vm_x86.dasc b/src/3rd party/luajit-2.0/src/vm_x86.dasc new file mode 100644 index 00000000000..4544a3beb9d --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_x86.dasc @@ -0,0 +1,6373 @@ +|// Low-level VM code for x86 CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.if P64 +|.arch x64 +|.else +|.arch x86 +|.endif +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|//----------------------------------------------------------------------- +| +|.if P64 +|.define X64, 1 +|.define SSE, 1 +|.if WIN +|.define X64WIN, 1 +|.endif +|.endif +| +|// Fixed register assignments for the interpreter. +|// This is very fragile and has many dependencies. Caveat emptor. +|.define BASE, edx // Not C callee-save, refetched anyway. +|.if not X64 +|.define KBASE, edi // Must be C callee-save. +|.define KBASEa, KBASE +|.define PC, esi // Must be C callee-save. +|.define PCa, PC +|.define DISPATCH, ebx // Must be C callee-save. +|.elif X64WIN +|.define KBASE, edi // Must be C callee-save. +|.define KBASEa, rdi +|.define PC, esi // Must be C callee-save. +|.define PCa, rsi +|.define DISPATCH, ebx // Must be C callee-save. +|.else +|.define KBASE, r15d // Must be C callee-save. +|.define KBASEa, r15 +|.define PC, ebx // Must be C callee-save. +|.define PCa, rbx +|.define DISPATCH, r14d // Must be C callee-save. +|.endif +| +|.define RA, ecx +|.define RAH, ch +|.define RAL, cl +|.define RB, ebp // Must be ebp (C callee-save). +|.define RC, eax // Must be eax. +|.define RCW, ax +|.define RCH, ah +|.define RCL, al +|.define OP, RB +|.define RD, RC +|.define RDW, RCW +|.define RDL, RCL +|.if X64 +|.define RAa, rcx +|.define RBa, rbp +|.define RCa, rax +|.define RDa, rax +|.else +|.define RAa, RA +|.define RBa, RB +|.define RCa, RC +|.define RDa, RD +|.endif +| +|.if not X64 +|.define FCARG1, ecx // x86 fastcall arguments. +|.define FCARG2, edx +|.elif X64WIN +|.define CARG1, rcx // x64/WIN64 C call arguments. +|.define CARG2, rdx +|.define CARG3, r8 +|.define CARG4, r9 +|.define CARG1d, ecx +|.define CARG2d, edx +|.define CARG3d, r8d +|.define CARG4d, r9d +|.define FCARG1, CARG1d // Upwards compatible to x86 fastcall. +|.define FCARG2, CARG2d +|.else +|.define CARG1, rdi // x64/POSIX C call arguments. +|.define CARG2, rsi +|.define CARG3, rdx +|.define CARG4, rcx +|.define CARG5, r8 +|.define CARG6, r9 +|.define CARG1d, edi +|.define CARG2d, esi +|.define CARG3d, edx +|.define CARG4d, ecx +|.define CARG5d, r8d +|.define CARG6d, r9d +|.define FCARG1, CARG1d // Simulate x86 fastcall. +|.define FCARG2, CARG2d +|.endif +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State +|.type GL, global_State +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS, int +|.type TRACE, GCtrace +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +|//----------------------------------------------------------------------- +|.if not X64 // x86 stack layout. +| +|.define CFRAME_SPACE, aword*7 // Delta for esp (see <--). +|.macro saveregs_ +| push edi; push esi; push ebx +| sub esp, CFRAME_SPACE +|.endmacro +|.macro saveregs +| push ebp; saveregs_ +|.endmacro +|.macro restoreregs +| add esp, CFRAME_SPACE +| pop ebx; pop esi; pop edi; pop ebp +|.endmacro +| +|.define SAVE_ERRF, aword [esp+aword*15] // vm_pcall/vm_cpcall only. +|.define SAVE_NRES, aword [esp+aword*14] +|.define SAVE_CFRAME, aword [esp+aword*13] +|.define SAVE_L, aword [esp+aword*12] +|//----- 16 byte aligned, ^^^ arguments from C caller +|.define SAVE_RET, aword [esp+aword*11] //<-- esp entering interpreter. +|.define SAVE_R4, aword [esp+aword*10] +|.define SAVE_R3, aword [esp+aword*9] +|.define SAVE_R2, aword [esp+aword*8] +|//----- 16 byte aligned +|.define SAVE_R1, aword [esp+aword*7] //<-- esp after register saves. +|.define SAVE_PC, aword [esp+aword*6] +|.define TMP2, aword [esp+aword*5] +|.define TMP1, aword [esp+aword*4] +|//----- 16 byte aligned +|.define ARG4, aword [esp+aword*3] +|.define ARG3, aword [esp+aword*2] +|.define ARG2, aword [esp+aword*1] +|.define ARG1, aword [esp] //<-- esp while in interpreter. +|//----- 16 byte aligned, ^^^ arguments for C callee +| +|// FPARGx overlaps ARGx and ARG(x+1) on x86. +|.define FPARG3, qword [esp+qword*1] +|.define FPARG1, qword [esp] +|// TMPQ overlaps TMP1/TMP2. ARG5/MULTRES overlap TMP1/TMP2 (and TMPQ). +|.define TMPQ, qword [esp+aword*4] +|.define TMP3, ARG4 +|.define ARG5, TMP1 +|.define TMPa, TMP1 +|.define MULTRES, TMP2 +| +|// Arguments for vm_call and vm_pcall. +|.define INARG_BASE, SAVE_CFRAME // Overwritten by SAVE_CFRAME! +| +|// Arguments for vm_cpcall. +|.define INARG_CP_CALL, SAVE_ERRF +|.define INARG_CP_UD, SAVE_NRES +|.define INARG_CP_FUNC, SAVE_CFRAME +| +|//----------------------------------------------------------------------- +|.elif X64WIN // x64/Windows stack layout +| +|.define CFRAME_SPACE, aword*5 // Delta for rsp (see <--). +|.macro saveregs_ +| push rdi; push rsi; push rbx +| sub rsp, CFRAME_SPACE +|.endmacro +|.macro saveregs +| push rbp; saveregs_ +|.endmacro +|.macro restoreregs +| add rsp, CFRAME_SPACE +| pop rbx; pop rsi; pop rdi; pop rbp +|.endmacro +| +|.define SAVE_CFRAME, aword [rsp+aword*13] +|.define SAVE_PC, dword [rsp+dword*25] +|.define SAVE_L, dword [rsp+dword*24] +|.define SAVE_ERRF, dword [rsp+dword*23] +|.define SAVE_NRES, dword [rsp+dword*22] +|.define TMP2, dword [rsp+dword*21] +|.define TMP1, dword [rsp+dword*20] +|//----- 16 byte aligned, ^^^ 32 byte register save area, owned by interpreter +|.define SAVE_RET, aword [rsp+aword*9] //<-- rsp entering interpreter. +|.define SAVE_R4, aword [rsp+aword*8] +|.define SAVE_R3, aword [rsp+aword*7] +|.define SAVE_R2, aword [rsp+aword*6] +|.define SAVE_R1, aword [rsp+aword*5] //<-- rsp after register saves. +|.define ARG5, aword [rsp+aword*4] +|.define CSAVE_4, aword [rsp+aword*3] +|.define CSAVE_3, aword [rsp+aword*2] +|.define CSAVE_2, aword [rsp+aword*1] +|.define CSAVE_1, aword [rsp] //<-- rsp while in interpreter. +|//----- 16 byte aligned, ^^^ 32 byte register save area, owned by callee +| +|// TMPQ overlaps TMP1/TMP2. MULTRES overlaps TMP2 (and TMPQ). +|.define TMPQ, qword [rsp+aword*10] +|.define MULTRES, TMP2 +|.define TMPa, ARG5 +|.define ARG5d, dword [rsp+aword*4] +|.define TMP3, ARG5d +| +|//----------------------------------------------------------------------- +|.else // x64/POSIX stack layout +| +|.define CFRAME_SPACE, aword*5 // Delta for rsp (see <--). +|.macro saveregs_ +| push rbx; push r15; push r14 +| sub rsp, CFRAME_SPACE +|.endmacro +|.macro saveregs +| push rbp; saveregs_ +|.endmacro +|.macro restoreregs +| add rsp, CFRAME_SPACE +| pop r14; pop r15; pop rbx; pop rbp +|.endmacro +| +|//----- 16 byte aligned, +|.define SAVE_RET, aword [rsp+aword*9] //<-- rsp entering interpreter. +|.define SAVE_R4, aword [rsp+aword*8] +|.define SAVE_R3, aword [rsp+aword*7] +|.define SAVE_R2, aword [rsp+aword*6] +|.define SAVE_R1, aword [rsp+aword*5] //<-- rsp after register saves. +|.define SAVE_CFRAME, aword [rsp+aword*4] +|.define SAVE_PC, dword [rsp+dword*7] +|.define SAVE_L, dword [rsp+dword*6] +|.define SAVE_ERRF, dword [rsp+dword*5] +|.define SAVE_NRES, dword [rsp+dword*4] +|.define TMPa, aword [rsp+aword*1] +|.define TMP2, dword [rsp+dword*1] +|.define TMP1, dword [rsp] //<-- rsp while in interpreter. +|//----- 16 byte aligned +| +|// TMPQ overlaps TMP1/TMP2. MULTRES overlaps TMP2 (and TMPQ). +|.define TMPQ, qword [rsp] +|.define TMP3, dword [rsp+aword*1] +|.define MULTRES, TMP2 +| +|.endif +| +|//----------------------------------------------------------------------- +| +|// Instruction headers. +|.macro ins_A; .endmacro +|.macro ins_AD; .endmacro +|.macro ins_AJ; .endmacro +|.macro ins_ABC; movzx RB, RCH; movzx RC, RCL; .endmacro +|.macro ins_AB_; movzx RB, RCH; .endmacro +|.macro ins_A_C; movzx RC, RCL; .endmacro +|.macro ins_AND; not RDa; .endmacro +| +|// Instruction decode+dispatch. Carefully tuned (nope, lodsd is not faster). +|.macro ins_NEXT +| mov RC, [PC] +| movzx RA, RCH +| movzx OP, RCL +| add PC, 4 +| shr RC, 16 +|.if X64 +| jmp aword [DISPATCH+OP*8] +|.else +| jmp aword [DISPATCH+OP*4] +|.endif +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| // Around 10%-30% slower on Core2, a lot more slower on P4. +| .macro ins_next +| jmp ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, RB = LFUNC, RD = nargs+1, [BASE-4] = PC +| mov PC, LFUNC:RB->pc +| mov RA, [PC] +| movzx OP, RAL +| movzx RA, RAH +| add PC, 4 +|.if X64 +| jmp aword [DISPATCH+OP*8] +|.else +| jmp aword [DISPATCH+OP*4] +|.endif +|.endmacro +| +|.macro ins_call +| // BASE = new base, RB = LFUNC, RD = nargs+1 +| mov [BASE-4], PC +| ins_callt +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Macros to test operand types. +|.macro checktp, reg, tp; cmp dword [BASE+reg*8+4], tp; .endmacro +|.macro checknum, reg, target; checktp reg, LJ_TISNUM; jae target; .endmacro +|.macro checkint, reg, target; checktp reg, LJ_TISNUM; jne target; .endmacro +|.macro checkstr, reg, target; checktp reg, LJ_TSTR; jne target; .endmacro +|.macro checktab, reg, target; checktp reg, LJ_TTAB; jne target; .endmacro +| +|// These operands must be used with movzx. +|.define PC_OP, byte [PC-4] +|.define PC_RA, byte [PC-3] +|.define PC_RB, byte [PC-1] +|.define PC_RC, byte [PC-2] +|.define PC_RD, word [PC-2] +| +|.macro branchPC, reg +| lea PC, [PC+reg*4-BCBIAS_J*4] +|.endmacro +| +|// Assumes DISPATCH is relative to GL. +#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) +#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|// Decrement hashed hotcount and trigger trace recorder if zero. +|.macro hotloop, reg +| mov reg, PC +| shr reg, 1 +| and reg, HOTCOUNT_PCMASK +| sub word [DISPATCH+reg+GG_DISP2HOT], HOTCOUNT_LOOP +| jb ->vm_hotloop +|.endmacro +| +|.macro hotcall, reg +| mov reg, PC +| shr reg, 1 +| and reg, HOTCOUNT_PCMASK +| sub word [DISPATCH+reg+GG_DISP2HOT], HOTCOUNT_CALL +| jb ->vm_hotcall +|.endmacro +| +|// Set current VM state. +|.macro set_vmstate, st +| mov dword [DISPATCH+DISPATCH_GL(vmstate)], ~LJ_VMST_..st +|.endmacro +| +|// x87 compares. +|.macro fcomparepp // Compare and pop st0 >< st1. +| fucomip st1 +| fpop +|.endmacro +| +|.macro fdup; fld st0; .endmacro +|.macro fpop1; fstp st1; .endmacro +| +|// Synthesize SSE FP constants. +|.macro sseconst_abs, reg, tmp // Synthesize abs mask. +|.if X64 +| mov64 tmp, U64x(7fffffff,ffffffff); movd reg, tmp +|.else +| pxor reg, reg; pcmpeqd reg, reg; psrlq reg, 1 +|.endif +|.endmacro +| +|.macro sseconst_hi, reg, tmp, val // Synthesize hi-32 bit const. +|.if X64 +| mov64 tmp, U64x(val,00000000); movd reg, tmp +|.else +| mov tmp, 0x .. val; movd reg, tmp; pshufd reg, reg, 0x51 +|.endif +|.endmacro +| +|.macro sseconst_sign, reg, tmp // Synthesize sign mask. +| sseconst_hi reg, tmp, 80000000 +|.endmacro +|.macro sseconst_1, reg, tmp // Synthesize 1.0. +| sseconst_hi reg, tmp, 3ff00000 +|.endmacro +|.macro sseconst_m1, reg, tmp // Synthesize -1.0. +| sseconst_hi reg, tmp, bff00000 +|.endmacro +|.macro sseconst_2p52, reg, tmp // Synthesize 2^52. +| sseconst_hi reg, tmp, 43300000 +|.endmacro +|.macro sseconst_tobit, reg, tmp // Synthesize 2^52 + 2^51. +| sseconst_hi reg, tmp, 43380000 +|.endmacro +| +|// Move table write barrier back. Overwrites reg. +|.macro barrierback, tab, reg +| and byte tab->marked, (uint8_t)~LJ_GC_BLACK // black2gray(tab) +| mov reg, [DISPATCH+DISPATCH_GL(gc.grayagain)] +| mov [DISPATCH+DISPATCH_GL(gc.grayagain)], tab +| mov tab->gclist, reg +|.endmacro +| +|//----------------------------------------------------------------------- + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | test PC, FRAME_P + | jz ->cont_dispatch + | + | // Return from pcall or xpcall fast func. + | and PC, -8 + | sub BASE, PC // Restore caller base. + | lea RAa, [RA+PC-8] // Rebase RA and prepend one result. + | mov PC, [BASE-4] // Fetch PC of previous frame. + | // Prepending may overwrite the pcall frame, so do it at the end. + | mov dword [BASE+RA+4], LJ_TTRUE // Prepend true to results. + | + |->vm_returnc: + | add RD, 1 // RD = nresults+1 + | jz ->vm_unwind_yield + | mov MULTRES, RD + | test PC, FRAME_TYPE + | jz ->BC_RET_Z // Handle regular return to Lua. + | + |->vm_return: + | // BASE = base, RA = resultofs, RD = nresults+1 (= MULTRES), PC = return + | xor PC, FRAME_C + | test PC, FRAME_TYPE + | jnz ->vm_returnp + | + | // Return to C. + | set_vmstate C + | and PC, -8 + | sub PC, BASE + | neg PC // Previous base = BASE - delta. + | + | sub RD, 1 + | jz >2 + |1: // Move results down. + |.if X64 + | mov RBa, [BASE+RA] + | mov [BASE-8], RBa + |.else + | mov RB, [BASE+RA] + | mov [BASE-8], RB + | mov RB, [BASE+RA+4] + | mov [BASE-4], RB + |.endif + | add BASE, 8 + | sub RD, 1 + | jnz <1 + |2: + | mov L:RB, SAVE_L + | mov L:RB->base, PC + |3: + | mov RD, MULTRES + | mov RA, SAVE_NRES // RA = wanted nresults+1 + |4: + | cmp RA, RD + | jne >6 // More/less results wanted? + |5: + | sub BASE, 8 + | mov L:RB->top, BASE + | + |->vm_leave_cp: + | mov RAa, SAVE_CFRAME // Restore previous C frame. + | mov L:RB->cframe, RAa + | xor eax, eax // Ok return status for vm_pcall. + | + |->vm_leave_unw: + | restoreregs + | ret + | + |6: + | jb >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + | cmp BASE, L:RB->maxstack + | ja >8 + | mov dword [BASE-4], LJ_TNIL + | add BASE, 8 + | add RD, 1 + | jmp <4 + | + |7: // Less results wanted. + | test RA, RA + | jz <5 // But check for LUA_MULTRET+1. + | sub RA, RD // Negative result! + | lea BASE, [BASE+RA*8] // Correct top. + | jmp <5 + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | mov L:RB->top, BASE // Save current top held in BASE (yes). + | mov MULTRES, RD // Need to fill only remainder with nil. + | mov FCARG2, RA + | mov FCARG1, L:RB + | call extern lj_state_growstack@8 // (lua_State *L, int n) + | mov BASE, L:RB->top // Need the (realloced) L->top in BASE. + | jmp <3 + | + |->vm_unwind_yield: + | mov al, LUA_YIELD + | jmp ->vm_unwind_c_eh + | + |->vm_unwind_c@8: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + |.if X64 + | mov eax, CARG2d // Error return status for vm_pcall. + | mov rsp, CARG1 + |.else + | mov eax, FCARG2 // Error return status for vm_pcall. + | mov esp, FCARG1 + |.endif + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | mov L:RB, SAVE_L + | mov GL:RB, L:RB->glref + | mov dword GL:RB->vmstate, ~LJ_VMST_C + | jmp ->vm_leave_unw + | + |->vm_unwind_rethrow: + |.if X64 and not X64WIN + | mov FCARG1, SAVE_L + | mov FCARG2, eax + | restoreregs + | jmp extern lj_err_throw@8 // (lua_State *L, int errcode) + |.endif + | + |->vm_unwind_ff@4: // Unwind C stack, return from ff pcall. + | // (void *cframe) + |.if X64 + | and CARG1, CFRAME_RAWMASK + | mov rsp, CARG1 + |.else + | and FCARG1, CFRAME_RAWMASK + | mov esp, FCARG1 + |.endif + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | mov L:RB, SAVE_L + | mov RAa, -8 // Results start at BASE+RA = BASE-8. + | mov RD, 1+1 // Really 1+2 results, incr. later. + | mov BASE, L:RB->base + | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. + | add DISPATCH, GG_G2DISP + | mov PC, [BASE-4] // Fetch PC of previous frame. + | mov dword [BASE-4], LJ_TFALSE // Prepend false to error message. + | set_vmstate INTERP + | jmp ->vm_returnc // Increments RD/MULTRES and returns. + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | mov FCARG2, LUA_MINSTACK + | jmp >2 + | + |->vm_growstack_v: // Grow stack for vararg Lua function. + | sub RD, 8 + | jmp >1 + | + |->vm_growstack_f: // Grow stack for fixarg Lua function. + | // BASE = new base, RD = nargs+1, RB = L, PC = first PC + | lea RD, [BASE+NARGS:RD*8-8] + |1: + | movzx RA, byte [PC-4+PC2PROTO(framesize)] + | add PC, 4 // Must point after first instruction. + | mov L:RB->base, BASE + | mov L:RB->top, RD + | mov SAVE_PC, PC + | mov FCARG2, RA + |2: + | // RB = L, L->base = new base, L->top = top + | mov FCARG1, L:RB + | call extern lj_state_growstack@8 // (lua_State *L, int n) + | mov BASE, L:RB->base + | mov RD, L:RB->top + | mov LFUNC:RB, [BASE-8] + | sub RD, BASE + | shr RD, 3 + | add NARGS:RD, 1 + | // BASE = new base, RB = LFUNC, RD = nargs+1 + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + |.if X64 + | mov L:RB, CARG1d // Caveat: CARG1d may be RA. + | mov SAVE_L, CARG1d + | mov RA, CARG2d + |.else + | mov L:RB, SAVE_L + | mov RA, INARG_BASE // Caveat: overlaps SAVE_CFRAME! + |.endif + | mov PC, FRAME_CP + | xor RD, RD + | lea KBASEa, [esp+CFRAME_RESUME] + | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. + | add DISPATCH, GG_G2DISP + | mov L:RB->cframe, KBASEa + | mov SAVE_PC, RD // Any value outside of bytecode is ok. + | mov SAVE_CFRAME, RDa + |.if X64 + | mov SAVE_NRES, RD + | mov SAVE_ERRF, RD + |.endif + | cmp byte L:RB->status, RDL + | je >3 // Initial resume (like a call). + | + | // Resume after yield (like a return). + | set_vmstate INTERP + | mov byte L:RB->status, RDL + | mov BASE, L:RB->base + | mov RD, L:RB->top + | sub RD, RA + | shr RD, 3 + | add RD, 1 // RD = nresults+1 + | sub RA, BASE // RA = resultofs + | mov PC, [BASE-4] + | mov MULTRES, RD + | test PC, FRAME_TYPE + | jz ->BC_RET_Z + | jmp ->vm_return + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | mov PC, FRAME_CP + |.if X64 + | mov SAVE_ERRF, CARG4d + |.endif + | jmp >1 + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | mov PC, FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + |.if X64 + | mov SAVE_NRES, CARG3d + | mov L:RB, CARG1d // Caveat: CARG1d may be RA. + | mov SAVE_L, CARG1d + | mov RA, CARG2d + |.else + | mov L:RB, SAVE_L + | mov RA, INARG_BASE // Caveat: overlaps SAVE_CFRAME! + |.endif + | + | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. + | mov SAVE_CFRAME, KBASEa + | mov SAVE_PC, L:RB // Any value outside of bytecode is ok. + |.if X64 + | mov L:RB->cframe, rsp + |.else + | mov L:RB->cframe, esp + |.endif + | + |2: // Entry point for vm_cpcall below (RA = base, RB = L, PC = ftype). + | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. + | add DISPATCH, GG_G2DISP + | + |3: // Entry point for vm_resume above (RA = base, RB = L, PC = ftype). + | set_vmstate INTERP + | mov BASE, L:RB->base // BASE = old base (used in vmeta_call). + | add PC, RA + | sub PC, BASE // PC = frame delta + frame type + | + | mov RD, L:RB->top + | sub RD, RA + | shr NARGS:RD, 3 + | add NARGS:RD, 1 // RD = nargs+1 + | + |->vm_call_dispatch: + | mov LFUNC:RB, [RA-8] + | cmp dword [RA-4], LJ_TFUNC + | jne ->vmeta_call // Ensure KBASE defined and != BASE. + | + |->vm_call_dispatch_f: + | mov BASE, RA + | ins_call + | // BASE = new base, RB = func, RD = nargs+1, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + |.if X64 + | mov L:RB, CARG1d // Caveat: CARG1d may be RA. + | mov SAVE_L, CARG1d + |.else + | mov L:RB, SAVE_L + | // Caveat: INARG_CP_* and SAVE_CFRAME/SAVE_NRES/SAVE_ERRF overlap! + | mov RC, INARG_CP_UD // Get args before they are overwritten. + | mov RA, INARG_CP_FUNC + | mov BASE, INARG_CP_CALL + |.endif + | mov SAVE_PC, L:RB // Any value outside of bytecode is ok. + | + | mov KBASE, L:RB->stack // Compute -savestack(L, L->top). + | sub KBASE, L:RB->top + | mov SAVE_ERRF, 0 // No error function. + | mov SAVE_NRES, KBASE // Neg. delta means cframe w/o frame. + | // Handler may change cframe_nres(L->cframe) or cframe_errfunc(L->cframe). + | + |.if X64 + | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. + | mov SAVE_CFRAME, KBASEa + | mov L:RB->cframe, rsp + | + | call CARG4 // (lua_State *L, lua_CFunction func, void *ud) + |.else + | mov ARG3, RC // Have to copy args downwards. + | mov ARG2, RA + | mov ARG1, L:RB + | + | mov KBASE, L:RB->cframe // Add our C frame to cframe chain. + | mov SAVE_CFRAME, KBASE + | mov L:RB->cframe, esp + | + | call BASE // (lua_State *L, lua_CFunction func, void *ud) + |.endif + | // TValue * (new base) or NULL returned in eax (RC). + | test RC, RC + | jz ->vm_leave_cp // No base? Just remove C frame. + | mov RA, RC + | mov PC, FRAME_CP + | jmp <2 // Else continue with the call. + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultofs, RD = nresults+1 (also in MULTRES) + | add RA, BASE + | and PC, -8 + | mov RB, BASE + | sub BASE, PC // Restore caller BASE. + | mov dword [RA+RD*8-4], LJ_TNIL // Ensure one valid arg. + | mov RC, RA // ... in [RC] + | mov PC, [RB-12] // Restore PC from [cont|PC]. + |.if X64 + | movsxd RAa, dword [RB-16] // May be negative on WIN64 with debug. + |.if FFI + | cmp RA, 1 + | jbe >1 + |.endif + | lea KBASEa, qword [=>0] + | add RAa, KBASEa + |.else + | mov RA, dword [RB-16] + |.if FFI + | cmp RA, 1 + | jbe >1 + |.endif + |.endif + | mov LFUNC:KBASE, [BASE-8] + | mov KBASE, LFUNC:KBASE->pc + | mov KBASE, [KBASE+PC2PROTO(k)] + | // BASE = base, RC = result, RB = meta base + | jmp RAa // Jump to continuation. + | + |.if FFI + |1: + | je ->cont_ffi_callback // cont = 1: return from FFI callback. + | // cont = 0: Tail call from C function. + | sub RB, BASE + | shr RB, 3 + | lea RD, [RB-1] + | jmp ->vm_call_tail + |.endif + | + |->cont_cat: // BASE = base, RC = result, RB = mbase + | movzx RA, PC_RB + | sub RB, 16 + | lea RA, [BASE+RA*8] + | sub RA, RB + | je ->cont_ra + | neg RA + | shr RA, 3 + |.if X64WIN + | mov CARG3d, RA + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE + | mov RCa, [RC] + | mov [RB], RCa + | mov CARG2d, RB + |.elif X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE + | mov CARG3d, RA + | mov RAa, [RC] + | mov [RB], RAa + | mov CARG2d, RB + |.else + | mov ARG3, RA + | mov RA, [RC+4] + | mov RC, [RC] + | mov [RB+4], RA + | mov [RB], RC + | mov ARG2, RB + |.endif + | jmp ->BC_CAT_Z + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets: + | mov TMP1, RC // RC = GCstr * + | mov TMP2, LJ_TSTR + | lea RCa, TMP1 // Store temp. TValue in TMP1/TMP2. + | cmp PC_OP, BC_GGET + | jne >1 + | lea RA, [DISPATCH+DISPATCH_GL(tmptv)] // Store fn->l.env in g->tmptv. + | mov [RA], TAB:RB // RB = GCtab * + | mov dword [RA+4], LJ_TTAB + | mov RB, RA + | jmp >2 + | + |->vmeta_tgetb: + | movzx RC, PC_RC + |.if DUALNUM + | mov TMP2, LJ_TISNUM + | mov TMP1, RC + |.elif SSE + | cvtsi2sd xmm0, RC + | movsd TMPQ, xmm0 + |.else + | mov ARG4, RC + | fild ARG4 + | fstp TMPQ + |.endif + | lea RCa, TMPQ // Store temp. TValue in TMPQ. + | jmp >1 + | + |->vmeta_tgetv: + | movzx RC, PC_RC // Reload TValue *k from RC. + | lea RC, [BASE+RC*8] + |1: + | movzx RB, PC_RB // Reload TValue *t from RB. + | lea RB, [BASE+RB*8] + |2: + |.if X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG2d, RB + | mov CARG3, RCa // May be 64 bit ptr to stack. + | mov L:RB, L:CARG1d + |.else + | mov ARG2, RB + | mov L:RB, SAVE_L + | mov ARG3, RC + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + | // TValue * (finished) or NULL (metamethod) returned in eax (RC). + | mov BASE, L:RB->base + | test RC, RC + | jz >3 + |->cont_ra: // BASE = base, RC = result + | movzx RA, PC_RA + |.if X64 + | mov RBa, [RC] + | mov [BASE+RA*8], RBa + |.else + | mov RB, [RC+4] + | mov RC, [RC] + | mov [BASE+RA*8+4], RB + | mov [BASE+RA*8], RC + |.endif + | ins_next + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | mov RA, L:RB->top + | mov [RA-12], PC // [cont|PC] + | lea PC, [RA+FRAME_CONT] + | sub PC, BASE + | mov LFUNC:RB, [RA-8] // Guaranteed to be a function here. + | mov NARGS:RD, 2+1 // 2 args for func(t, k). + | jmp ->vm_call_dispatch_f + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets: + | mov TMP1, RC // RC = GCstr * + | mov TMP2, LJ_TSTR + | lea RCa, TMP1 // Store temp. TValue in TMP1/TMP2. + | cmp PC_OP, BC_GSET + | jne >1 + | lea RA, [DISPATCH+DISPATCH_GL(tmptv)] // Store fn->l.env in g->tmptv. + | mov [RA], TAB:RB // RB = GCtab * + | mov dword [RA+4], LJ_TTAB + | mov RB, RA + | jmp >2 + | + |->vmeta_tsetb: + | movzx RC, PC_RC + |.if DUALNUM + | mov TMP2, LJ_TISNUM + | mov TMP1, RC + |.elif SSE + | cvtsi2sd xmm0, RC + | movsd TMPQ, xmm0 + |.else + | mov ARG4, RC + | fild ARG4 + | fstp TMPQ + |.endif + | lea RCa, TMPQ // Store temp. TValue in TMPQ. + | jmp >1 + | + |->vmeta_tsetv: + | movzx RC, PC_RC // Reload TValue *k from RC. + | lea RC, [BASE+RC*8] + |1: + | movzx RB, PC_RB // Reload TValue *t from RB. + | lea RB, [BASE+RB*8] + |2: + |.if X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG2d, RB + | mov CARG3, RCa // May be 64 bit ptr to stack. + | mov L:RB, L:CARG1d + |.else + | mov ARG2, RB + | mov L:RB, SAVE_L + | mov ARG3, RC + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + | // TValue * (finished) or NULL (metamethod) returned in eax (RC). + | mov BASE, L:RB->base + | test RC, RC + | jz >3 + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | movzx RA, PC_RA + |.if X64 + | mov RBa, [BASE+RA*8] + | mov [RC], RBa + |.else + | mov RB, [BASE+RA*8+4] + | mov RA, [BASE+RA*8] + | mov [RC+4], RB + | mov [RC], RA + |.endif + |->cont_nop: // BASE = base, (RC = result) + | ins_next + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | mov RA, L:RB->top + | mov [RA-12], PC // [cont|PC] + | movzx RC, PC_RA + | // Copy value to third argument. + |.if X64 + | mov RBa, [BASE+RC*8] + | mov [RA+16], RBa + |.else + | mov RB, [BASE+RC*8+4] + | mov RC, [BASE+RC*8] + | mov [RA+20], RB + | mov [RA+16], RC + |.endif + | lea PC, [RA+FRAME_CONT] + | sub PC, BASE + | mov LFUNC:RB, [RA-8] // Guaranteed to be a function here. + | mov NARGS:RD, 3+1 // 3 args for func(t, k, v). + | jmp ->vm_call_dispatch_f + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + |.if X64 + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d == BASE. + |.if X64WIN + | lea CARG3d, [BASE+RD*8] + | lea CARG2d, [BASE+RA*8] + |.else + | lea CARG2d, [BASE+RA*8] + | lea CARG3d, [BASE+RD*8] + |.endif + | mov CARG1d, L:RB // Caveat: CARG1d/CARG4d == RA. + | movzx CARG4d, PC_OP + |.else + | movzx RB, PC_OP + | lea RD, [BASE+RD*8] + | lea RA, [BASE+RA*8] + | mov ARG4, RB + | mov L:RB, SAVE_L + | mov ARG3, RD + | mov ARG2, RA + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + | // 0/1 or TValue * (metamethod) returned in eax (RC). + |3: + | mov BASE, L:RB->base + | cmp RC, 1 + | ja ->vmeta_binop + |4: + | lea PC, [PC+4] + | jb >6 + |5: + | movzx RD, PC_RD + | branchPC RD + |6: + | ins_next + | + |->cont_condt: // BASE = base, RC = result + | add PC, 4 + | cmp dword [RC+4], LJ_TISTRUECOND // Branch if result is true. + | jb <5 + | jmp <6 + | + |->cont_condf: // BASE = base, RC = result + | cmp dword [RC+4], LJ_TISTRUECOND // Branch if result is false. + | jmp <4 + | + |->vmeta_equal: + | sub PC, 4 + |.if X64WIN + | mov CARG3d, RD + | mov CARG4d, RB + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d == BASE. + | mov CARG2d, RA + | mov CARG1d, L:RB // Caveat: CARG1d == RA. + |.elif X64 + | mov CARG2d, RA + | mov CARG4d, RB // Caveat: CARG4d == RA. + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG3d == BASE. + | mov CARG3d, RD + | mov CARG1d, L:RB + |.else + | mov ARG4, RB + | mov L:RB, SAVE_L + | mov ARG3, RD + | mov ARG2, RA + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + | // 0/1 or TValue * (metamethod) returned in eax (RC). + | jmp <3 + | + |->vmeta_equal_cd: + |.if FFI + | sub PC, 4 + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov FCARG1, L:RB + | mov FCARG2, dword [PC-4] + | mov SAVE_PC, PC + | call extern lj_meta_equal_cd@8 // (lua_State *L, BCIns ins) + | // 0/1 or TValue * (metamethod) returned in eax (RC). + | jmp <3 + |.endif + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_arith_vno: + |.if DUALNUM + | movzx RB, PC_RB + |.endif + |->vmeta_arith_vn: + | lea RC, [KBASE+RC*8] + | jmp >1 + | + |->vmeta_arith_nvo: + |.if DUALNUM + | movzx RC, PC_RC + |.endif + |->vmeta_arith_nv: + | lea RC, [KBASE+RC*8] + | lea RB, [BASE+RB*8] + | xchg RB, RC + | jmp >2 + | + |->vmeta_unm: + | lea RC, [BASE+RD*8] + | mov RB, RC + | jmp >2 + | + |->vmeta_arith_vvo: + |.if DUALNUM + | movzx RB, PC_RB + |.endif + |->vmeta_arith_vv: + | lea RC, [BASE+RC*8] + |1: + | lea RB, [BASE+RB*8] + |2: + | lea RA, [BASE+RA*8] + |.if X64WIN + | mov CARG3d, RB + | mov CARG4d, RC + | movzx RC, PC_OP + | mov ARG5d, RC + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d == BASE. + | mov CARG2d, RA + | mov CARG1d, L:RB // Caveat: CARG1d == RA. + |.elif X64 + | movzx CARG5d, PC_OP + | mov CARG2d, RA + | mov CARG4d, RC // Caveat: CARG4d == RA. + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE // Caveat: CARG3d == BASE. + | mov CARG3d, RB + | mov L:RB, L:CARG1d + |.else + | mov ARG3, RB + | mov L:RB, SAVE_L + | mov ARG4, RC + | movzx RC, PC_OP + | mov ARG2, RA + | mov ARG5, RC + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + | // NULL (finished) or TValue * (metamethod) returned in eax (RC). + | mov BASE, L:RB->base + | test RC, RC + | jz ->cont_nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = base, RC = new base, stack = cont/func/o1/o2 + | mov RA, RC + | sub RC, BASE + | mov [RA-12], PC // [cont|PC] + | lea PC, [RC+FRAME_CONT] + | mov NARGS:RD, 2+1 // 2 args for func(o1, o2). + | jmp ->vm_call_dispatch + | + |->vmeta_len: + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | lea FCARG2, [BASE+RD*8] // Caveat: FCARG2 == BASE + | mov L:FCARG1, L:RB + | mov SAVE_PC, PC + | call extern lj_meta_len@8 // (lua_State *L, TValue *o) + | // NULL (retry) or TValue * (metamethod) returned in eax (RC). + | mov BASE, L:RB->base +#if LJ_52 + | test RC, RC + | jne ->vmeta_binop // Binop call for compatibility. + | movzx RD, PC_RD + | mov TAB:FCARG1, [BASE+RD*8] + | jmp ->BC_LEN_Z +#else + | jmp ->vmeta_binop // Binop call for compatibility. +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call_ra: + | lea RA, [BASE+RA*8+8] + |->vmeta_call: // Resolve and call __call metamethod. + | // BASE = old base, RA = new base, RC = nargs+1, PC = return + | mov TMP2, RA // Save RA, RC for us. + | mov TMP1, NARGS:RD + | sub RA, 8 + |.if X64 + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG2d, RA + | lea CARG3d, [RA+NARGS:RD*8] + | mov CARG1d, L:RB // Caveat: CARG1d may be RA. + |.else + | lea RC, [RA+NARGS:RD*8] + | mov L:RB, SAVE_L + | mov ARG2, RA + | mov ARG3, RC + | mov ARG1, L:RB + | mov L:RB->base, BASE // This is the callers base! + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | mov BASE, L:RB->base + | mov RA, TMP2 + | mov NARGS:RD, TMP1 + | mov LFUNC:RB, [RA-8] + | add NARGS:RD, 1 + | // This is fragile. L->base must not move, KBASE must always be defined. + | cmp KBASE, BASE // Continue with CALLT if flag set. + | je ->BC_CALLT_Z + | mov BASE, RA + | ins_call // Otherwise call resolved metamethod. + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov FCARG2, RA // Caveat: FCARG2 == BASE + | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA + | mov SAVE_PC, PC + | call extern lj_meta_for@8 // (lua_State *L, TValue *base) + | mov BASE, L:RB->base + | mov RC, [PC-4] + | movzx RA, RCH + | movzx OP, RCL + | shr RC, 16 + |.if X64 + | jmp aword [DISPATCH+OP*8+GG_DISP2STATIC] // Retry FORI or JFORI. + |.else + | jmp aword [DISPATCH+OP*4+GG_DISP2STATIC] // Retry FORI or JFORI. + |.endif + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | cmp NARGS:RD, 1+1; jb ->fff_fallback + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | cmp NARGS:RD, 2+1; jb ->fff_fallback + |.endmacro + | + |.macro .ffunc_n, name + | .ffunc_1 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | fld qword [BASE] + |.endmacro + | + |.macro .ffunc_n, name, op + | .ffunc_1 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | op + | fld qword [BASE] + |.endmacro + | + |.macro .ffunc_nsse, name, op + | .ffunc_1 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | op xmm0, qword [BASE] + |.endmacro + | + |.macro .ffunc_nsse, name + | .ffunc_nsse name, movsd + |.endmacro + | + |.macro .ffunc_nn, name + | .ffunc_2 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback + | fld qword [BASE] + | fld qword [BASE+8] + |.endmacro + | + |.macro .ffunc_nnsse, name + | .ffunc_2 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback + | movsd xmm0, qword [BASE] + | movsd xmm1, qword [BASE+8] + |.endmacro + | + |.macro .ffunc_nnr, name + | .ffunc_2 name + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback + | fld qword [BASE+8] + | fld qword [BASE] + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses label 1. + |.macro ffgccheck + | mov RB, [DISPATCH+DISPATCH_GL(gc.total)] + | cmp RB, [DISPATCH+DISPATCH_GL(gc.threshold)] + | jb >1 + | call ->fff_gcstep + |1: + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc_1 assert + | mov RB, [BASE+4] + | cmp RB, LJ_TISTRUECOND; jae ->fff_fallback + | mov PC, [BASE-4] + | mov MULTRES, RD + | mov [BASE-4], RB + | mov RB, [BASE] + | mov [BASE-8], RB + | sub RD, 2 + | jz >2 + | mov RA, BASE + |1: + | add RA, 8 + |.if X64 + | mov RBa, [RA] + | mov [RA-8], RBa + |.else + | mov RB, [RA+4] + | mov [RA-4], RB + | mov RB, [RA] + | mov [RA-8], RB + |.endif + | sub RD, 1 + | jnz <1 + |2: + | mov RD, MULTRES + | jmp ->fff_res_ + | + |.ffunc_1 type + | mov RB, [BASE+4] + |.if X64 + | mov RA, RB + | sar RA, 15 + | cmp RA, -2 + | je >3 + |.endif + | mov RC, ~LJ_TNUMX + | not RB + | cmp RC, RB + | cmova RC, RB + |2: + | mov CFUNC:RB, [BASE-8] + | mov STR:RC, [CFUNC:RB+RC*8+((char *)(&((GCfuncC *)0)->upvalue))] + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TSTR + | mov [BASE-8], STR:RC + | jmp ->fff_res1 + |.if X64 + |3: + | mov RC, ~LJ_TLIGHTUD + | jmp <2 + |.endif + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | mov RB, [BASE+4] + | mov PC, [BASE-4] + | cmp RB, LJ_TTAB; jne >6 + |1: // Field metatable must be at same offset for GCtab and GCudata! + | mov TAB:RB, [BASE] + | mov TAB:RB, TAB:RB->metatable + |2: + | test TAB:RB, TAB:RB + | mov dword [BASE-4], LJ_TNIL + | jz ->fff_res1 + | mov STR:RC, [DISPATCH+DISPATCH_GL(gcroot)+4*(GCROOT_MMNAME+MM_metatable)] + | mov dword [BASE-4], LJ_TTAB // Store metatable as default result. + | mov [BASE-8], TAB:RB + | mov RA, TAB:RB->hmask + | and RA, STR:RC->hash + | imul RA, #NODE + | add NODE:RA, TAB:RB->node + |3: // Rearranged logic, because we expect _not_ to find the key. + | cmp dword NODE:RA->key.it, LJ_TSTR + | jne >4 + | cmp dword NODE:RA->key.gcr, STR:RC + | je >5 + |4: + | mov NODE:RA, NODE:RA->next + | test NODE:RA, NODE:RA + | jnz <3 + | jmp ->fff_res1 // Not found, keep default result. + |5: + | mov RB, [RA+4] + | cmp RB, LJ_TNIL; je ->fff_res1 // Ditto for nil value. + | mov RC, [RA] + | mov [BASE-4], RB // Return value of mt.__metatable. + | mov [BASE-8], RC + | jmp ->fff_res1 + | + |6: + | cmp RB, LJ_TUDATA; je <1 + |.if X64 + | cmp RB, LJ_TNUMX; ja >8 + | cmp RB, LJ_TISNUM; jbe >7 + | mov RB, LJ_TLIGHTUD + | jmp >8 + |7: + |.else + | cmp RB, LJ_TISNUM; ja >8 + |.endif + | mov RB, LJ_TNUMX + |8: + | not RB + | mov TAB:RB, [DISPATCH+RB*4+DISPATCH_GL(gcroot[GCROOT_BASEMT])] + | jmp <2 + | + |.ffunc_2 setmetatable + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback + | // Fast path: no mt for table yet and not clearing the mt. + | mov TAB:RB, [BASE] + | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback + | cmp dword [BASE+12], LJ_TTAB; jne ->fff_fallback + | mov TAB:RC, [BASE+8] + | mov TAB:RB->metatable, TAB:RC + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TTAB // Return original table. + | mov [BASE-8], TAB:RB + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jz >1 + | // Possible write barrier. Table is black, but skip iswhite(mt) check. + | barrierback TAB:RB, RC + |1: + | jmp ->fff_res1 + | + |.ffunc_2 rawget + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback + |.if X64WIN + | mov RB, BASE // Save BASE. + | lea CARG3d, [BASE+8] + | mov CARG2d, [BASE] // Caveat: CARG2d == BASE. + | mov CARG1d, SAVE_L + |.elif X64 + | mov RB, BASE // Save BASE. + | mov CARG2d, [BASE] + | lea CARG3d, [BASE+8] // Caveat: CARG3d == BASE. + | mov CARG1d, SAVE_L + |.else + | mov TAB:RD, [BASE] + | mov L:RB, SAVE_L + | mov ARG2, TAB:RD + | mov ARG1, L:RB + | mov RB, BASE // Save BASE. + | add BASE, 8 + | mov ARG3, BASE + |.endif + | call extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + | // cTValue * returned in eax (RD). + | mov BASE, RB // Restore BASE. + | // Copy table slot. + |.if X64 + | mov RBa, [RD] + | mov PC, [BASE-4] + | mov [BASE-8], RBa + |.else + | mov RB, [RD] + | mov RD, [RD+4] + | mov PC, [BASE-4] + | mov [BASE-8], RB + | mov [BASE-4], RD + |.endif + | jmp ->fff_res1 + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | cmp NARGS:RD, 1+1; jne ->fff_fallback // Exactly one argument. + | cmp dword [BASE+4], LJ_TISNUM + |.if DUALNUM + | jne >1 + | mov RB, dword [BASE]; jmp ->fff_resi + |1: + | ja ->fff_fallback + |.else + | jae ->fff_fallback + |.endif + |.if SSE + | movsd xmm0, qword [BASE]; jmp ->fff_resxmm0 + |.else + | fld qword [BASE]; jmp ->fff_resn + |.endif + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | mov PC, [BASE-4] + | cmp dword [BASE+4], LJ_TSTR; jne >3 + | // A __tostring method in the string base metatable is ignored. + | mov STR:RD, [BASE] + |2: + | mov dword [BASE-4], LJ_TSTR + | mov [BASE-8], STR:RD + | jmp ->fff_res1 + |3: // Handle numbers inline, unless a number base metatable is present. + | cmp dword [BASE+4], LJ_TISNUM; ja ->fff_fallback + | cmp dword [DISPATCH+DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])], 0 + | jne ->fff_fallback + | ffgccheck // Caveat: uses label 1. + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Add frame since C call can throw. + | mov SAVE_PC, PC // Redundant (but a defined value). + |.if X64 and not X64WIN + | mov FCARG2, BASE // Otherwise: FCARG2 == BASE + |.endif + | mov L:FCARG1, L:RB + |.if DUALNUM + | call extern lj_str_fromnumber@8 // (lua_State *L, cTValue *o) + |.else + | call extern lj_str_fromnum@8 // (lua_State *L, lua_Number *np) + |.endif + | // GCstr returned in eax (RD). + | mov BASE, L:RB->base + | jmp <2 + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc_1 next + | je >2 // Missing 2nd arg? + |1: + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Add frame since C call can throw. + | mov L:RB->top, BASE // Dummy frame length is ok. + | mov PC, [BASE-4] + |.if X64WIN + | lea CARG3d, [BASE+8] + | mov CARG2d, [BASE] // Caveat: CARG2d == BASE. + | mov CARG1d, L:RB + |.elif X64 + | mov CARG2d, [BASE] + | lea CARG3d, [BASE+8] // Caveat: CARG3d == BASE. + | mov CARG1d, L:RB + |.else + | mov TAB:RD, [BASE] + | mov ARG2, TAB:RD + | mov ARG1, L:RB + | add BASE, 8 + | mov ARG3, BASE + |.endif + | mov SAVE_PC, PC // Needed for ITERN fallback. + | call extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + | // Flag returned in eax (RD). + | mov BASE, L:RB->base + | test RD, RD; jz >3 // End of traversal? + | // Copy key and value to results. + |.if X64 + | mov RBa, [BASE+8] + | mov RDa, [BASE+16] + | mov [BASE-8], RBa + | mov [BASE], RDa + |.else + | mov RB, [BASE+8] + | mov RD, [BASE+12] + | mov [BASE-8], RB + | mov [BASE-4], RD + | mov RB, [BASE+16] + | mov RD, [BASE+20] + | mov [BASE], RB + | mov [BASE+4], RD + |.endif + |->fff_res2: + | mov RD, 1+2 + | jmp ->fff_res + |2: // Set missing 2nd arg to nil. + | mov dword [BASE+12], LJ_TNIL + | jmp <1 + |3: // End of traversal: return nil. + | mov dword [BASE-4], LJ_TNIL + | jmp ->fff_res1 + | + |.ffunc_1 pairs + | mov TAB:RB, [BASE] + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback +#if LJ_52 + | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback +#endif + | mov CFUNC:RB, [BASE-8] + | mov CFUNC:RD, CFUNC:RB->upvalue[0] + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TFUNC + | mov [BASE-8], CFUNC:RD + | mov dword [BASE+12], LJ_TNIL + | mov RD, 1+3 + | jmp ->fff_res + | + |.ffunc_2 ipairs_aux + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM + |.if DUALNUM + | jne ->fff_fallback + |.else + | jae ->fff_fallback + |.endif + | mov PC, [BASE-4] + |.if DUALNUM + | mov RD, dword [BASE+8] + | add RD, 1 + | mov dword [BASE-4], LJ_TISNUM + | mov dword [BASE-8], RD + |.elif SSE + | movsd xmm0, qword [BASE+8] + | sseconst_1 xmm1, RBa + | addsd xmm0, xmm1 + | cvtsd2si RD, xmm0 + | movsd qword [BASE-8], xmm0 + |.else + | fld qword [BASE+8] + | fld1 + | faddp st1 + | fist ARG1 + | fstp qword [BASE-8] + | mov RD, ARG1 + |.endif + | mov TAB:RB, [BASE] + | cmp RD, TAB:RB->asize; jae >2 // Not in array part? + | shl RD, 3 + | add RD, TAB:RB->array + |1: + | cmp dword [RD+4], LJ_TNIL; je ->fff_res0 + | // Copy array slot. + |.if X64 + | mov RBa, [RD] + | mov [BASE], RBa + |.else + | mov RB, [RD] + | mov RD, [RD+4] + | mov [BASE], RB + | mov [BASE+4], RD + |.endif + | jmp ->fff_res2 + |2: // Check for empty hash part first. Otherwise call C function. + | cmp dword TAB:RB->hmask, 0; je ->fff_res0 + | mov FCARG1, TAB:RB + | mov RB, BASE // Save BASE. + | mov FCARG2, RD // Caveat: FCARG2 == BASE + | call extern lj_tab_getinth@8 // (GCtab *t, int32_t key) + | // cTValue * or NULL returned in eax (RD). + | mov BASE, RB + | test RD, RD + | jnz <1 + |->fff_res0: + | mov RD, 1+0 + | jmp ->fff_res + | + |.ffunc_1 ipairs + | mov TAB:RB, [BASE] + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback +#if LJ_52 + | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback +#endif + | mov CFUNC:RB, [BASE-8] + | mov CFUNC:RD, CFUNC:RB->upvalue[0] + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TFUNC + | mov [BASE-8], CFUNC:RD + |.if DUALNUM + | mov dword [BASE+12], LJ_TISNUM + | mov dword [BASE+8], 0 + |.elif SSE + | xorps xmm0, xmm0 + | movsd qword [BASE+8], xmm0 + |.else + | fldz + | fstp qword [BASE+8] + |.endif + | mov RD, 1+3 + | jmp ->fff_res + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc_1 pcall + | lea RA, [BASE+8] + | sub NARGS:RD, 1 + | mov PC, 8+FRAME_PCALL + |1: + | movzx RB, byte [DISPATCH+DISPATCH_GL(hookmask)] + | shr RB, HOOK_ACTIVE_SHIFT + | and RB, 1 + | add PC, RB // Remember active hook before pcall. + | jmp ->vm_call_dispatch + | + |.ffunc_2 xpcall + | cmp dword [BASE+12], LJ_TFUNC; jne ->fff_fallback + | mov RB, [BASE+4] // Swap function and traceback. + | mov [BASE+12], RB + | mov dword [BASE+4], LJ_TFUNC + | mov LFUNC:RB, [BASE] + | mov PC, [BASE+8] + | mov [BASE+8], LFUNC:RB + | mov [BASE], PC + | lea RA, [BASE+16] + | sub NARGS:RD, 2 + | mov PC, 16+FRAME_PCALL + | jmp <1 + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | mov L:RB, [BASE] + |.else + |.ffunc coroutine_wrap_aux + | mov CFUNC:RB, [BASE-8] + | mov L:RB, CFUNC:RB->upvalue[0].gcr + |.endif + | mov PC, [BASE-4] + | mov SAVE_PC, PC + |.if X64 + | mov TMP1, L:RB + |.else + | mov ARG1, L:RB + |.endif + |.if resume + | cmp dword [BASE+4], LJ_TTHREAD; jne ->fff_fallback + |.endif + | cmp aword L:RB->cframe, 0; jne ->fff_fallback + | cmp byte L:RB->status, LUA_YIELD; ja ->fff_fallback + | mov RA, L:RB->top + | je >1 // Status != LUA_YIELD (i.e. 0)? + | cmp RA, L:RB->base // Check for presence of initial func. + | je ->fff_fallback + |1: + |.if resume + | lea PC, [RA+NARGS:RD*8-16] // Check stack space (-1-thread). + |.else + | lea PC, [RA+NARGS:RD*8-8] // Check stack space (-1). + |.endif + | cmp PC, L:RB->maxstack; ja ->fff_fallback + | mov L:RB->top, PC + | + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + |.if resume + | add BASE, 8 // Keep resumed thread in stack for GC. + |.endif + | mov L:RB->top, BASE + |.if resume + | lea RB, [BASE+NARGS:RD*8-24] // RB = end of source for stack move. + |.else + | lea RB, [BASE+NARGS:RD*8-16] // RB = end of source for stack move. + |.endif + | sub RBa, PCa // Relative to PC. + | + | cmp PC, RA + | je >3 + |2: // Move args to coroutine. + |.if X64 + | mov RCa, [PC+RB] + | mov [PC-8], RCa + |.else + | mov RC, [PC+RB+4] + | mov [PC-4], RC + | mov RC, [PC+RB] + | mov [PC-8], RC + |.endif + | sub PC, 8 + | cmp PC, RA + | jne <2 + |3: + |.if X64 + | mov CARG2d, RA + | mov CARG1d, TMP1 + |.else + | mov ARG2, RA + | xor RA, RA + | mov ARG4, RA + | mov ARG3, RA + |.endif + | call ->vm_resume // (lua_State *L, TValue *base, 0, 0) + | set_vmstate INTERP + | + | mov L:RB, SAVE_L + |.if X64 + | mov L:PC, TMP1 + |.else + | mov L:PC, ARG1 // The callee doesn't modify SAVE_L. + |.endif + | mov BASE, L:RB->base + | cmp eax, LUA_YIELD + | ja >8 + |4: + | mov RA, L:PC->base + | mov KBASE, L:PC->top + | mov L:PC->top, RA // Clear coroutine stack. + | mov PC, KBASE + | sub PC, RA + | je >6 // No results? + | lea RD, [BASE+PC] + | shr PC, 3 + | cmp RD, L:RB->maxstack + | ja >9 // Need to grow stack? + | + | mov RB, BASE + | sub RBa, RAa + |5: // Move results from coroutine. + |.if X64 + | mov RDa, [RA] + | mov [RA+RB], RDa + |.else + | mov RD, [RA] + | mov [RA+RB], RD + | mov RD, [RA+4] + | mov [RA+RB+4], RD + |.endif + | add RA, 8 + | cmp RA, KBASE + | jne <5 + |6: + |.if resume + | lea RD, [PC+2] // nresults+1 = 1 + true + results. + | mov dword [BASE-4], LJ_TTRUE // Prepend true to results. + |.else + | lea RD, [PC+1] // nresults+1 = 1 + results. + |.endif + |7: + | mov PC, SAVE_PC + | mov MULTRES, RD + |.if resume + | mov RAa, -8 + |.else + | xor RA, RA + |.endif + | test PC, FRAME_TYPE + | jz ->BC_RET_Z + | jmp ->vm_return + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | mov dword [BASE-4], LJ_TFALSE // Prepend false to results. + | mov RA, L:PC->top + | sub RA, 8 + | mov L:PC->top, RA // Clear error from coroutine stack. + | // Copy error message. + |.if X64 + | mov RDa, [RA] + | mov [BASE], RDa + |.else + | mov RD, [RA] + | mov [BASE], RD + | mov RD, [RA+4] + | mov [BASE+4], RD + |.endif + | mov RD, 1+2 // nresults+1 = 1 + false + error. + | jmp <7 + |.else + | mov FCARG2, L:PC + | mov FCARG1, L:RB + | call extern lj_ffh_coroutine_wrap_err@8 // (lua_State *L, lua_State *co) + | // Error function does not return. + |.endif + | + |9: // Handle stack expansion on return from yield. + |.if X64 + | mov L:RA, TMP1 + |.else + | mov L:RA, ARG1 // The callee doesn't modify SAVE_L. + |.endif + | mov L:RA->top, KBASE // Undo coroutine stack clearing. + | mov FCARG2, PC + | mov FCARG1, L:RB + | call extern lj_state_growstack@8 // (lua_State *L, int n) + |.if X64 + | mov L:PC, TMP1 + |.else + | mov L:PC, ARG1 + |.endif + | mov BASE, L:RB->base + | jmp <4 // Retry the stack move. + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | mov L:RB, SAVE_L + | test aword L:RB->cframe, CFRAME_RESUME + | jz ->fff_fallback + | mov L:RB->base, BASE + | lea RD, [BASE+NARGS:RD*8-8] + | mov L:RB->top, RD + | xor RD, RD + | mov aword L:RB->cframe, RDa + | mov al, LUA_YIELD + | mov byte L:RB->status, al + | jmp ->vm_leave_unw + | + |//-- Math library ------------------------------------------------------- + | + |.if not DUALNUM + |->fff_resi: // Dummy. + |.endif + | + |.if SSE + |->fff_resn: + | mov PC, [BASE-4] + | fstp qword [BASE-8] + | jmp ->fff_res1 + |.endif + | + | .ffunc_1 math_abs + |.if DUALNUM + | cmp dword [BASE+4], LJ_TISNUM; jne >2 + | mov RB, dword [BASE] + | cmp RB, 0; jns ->fff_resi + | neg RB; js >1 + |->fff_resbit: + |->fff_resi: + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TISNUM + | mov dword [BASE-8], RB + | jmp ->fff_res1 + |1: + | mov PC, [BASE-4] + | mov dword [BASE-4], 0x41e00000 // 2^31. + | mov dword [BASE-8], 0 + | jmp ->fff_res1 + |2: + | ja ->fff_fallback + |.else + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + |.endif + | + |.if SSE + | movsd xmm0, qword [BASE] + | sseconst_abs xmm1, RDa + | andps xmm0, xmm1 + |->fff_resxmm0: + | mov PC, [BASE-4] + | movsd qword [BASE-8], xmm0 + | // fallthrough + |.else + | fld qword [BASE] + | fabs + | // fallthrough + |->fff_resxmm0: // Dummy. + |->fff_resn: + | mov PC, [BASE-4] + | fstp qword [BASE-8] + |.endif + | + |->fff_res1: + | mov RD, 1+1 + |->fff_res: + | mov MULTRES, RD + |->fff_res_: + | test PC, FRAME_TYPE + | jnz >7 + |5: + | cmp PC_RB, RDL // More results expected? + | ja >6 + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | movzx RA, PC_RA + | not RAa // Note: ~RA = -(RA+1) + | lea BASE, [BASE+RA*8] // base = base - (RA+1)*8 + | ins_next + | + |6: // Fill up results with nil. + | mov dword [BASE+RD*8-12], LJ_TNIL + | add RD, 1 + | jmp <5 + | + |7: // Non-standard return case. + | mov RAa, -8 // Results start at BASE+RA = BASE-8. + | jmp ->vm_return + | + |.macro math_round, func + | .ffunc math_ .. func + |.if DUALNUM + | cmp dword [BASE+4], LJ_TISNUM; jne >1 + | mov RB, dword [BASE]; jmp ->fff_resi + |1: + | ja ->fff_fallback + |.else + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + |.endif + |.if SSE + | movsd xmm0, qword [BASE] + | call ->vm_ .. func + | .if DUALNUM + | cvtsd2si RB, xmm0 + | cmp RB, 0x80000000 + | jne ->fff_resi + | cvtsi2sd xmm1, RB + | ucomisd xmm0, xmm1 + | jp ->fff_resxmm0 + | je ->fff_resi + | .endif + | jmp ->fff_resxmm0 + |.else + | fld qword [BASE] + | call ->vm_ .. func + | .if DUALNUM + | fist ARG1 + | mov RB, ARG1 + | cmp RB, 0x80000000; jne >2 + | fdup + | fild ARG1 + | fcomparepp + | jp ->fff_resn + | jne ->fff_resn + |2: + | fpop + | jmp ->fff_resi + | .else + | jmp ->fff_resn + | .endif + |.endif + |.endmacro + | + | math_round floor + | math_round ceil + | + |.if SSE + |.ffunc_nsse math_sqrt, sqrtsd; jmp ->fff_resxmm0 + |.else + |.ffunc_n math_sqrt; fsqrt; jmp ->fff_resn + |.endif + | + |.ffunc math_log + | cmp NARGS:RD, 1+1; jne ->fff_fallback // Exactly one argument. + | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback + | fldln2; fld qword [BASE]; fyl2x; jmp ->fff_resn + | + |.ffunc_n math_log10, fldlg2; fyl2x; jmp ->fff_resn + |.ffunc_n math_exp; call ->vm_exp_x87; jmp ->fff_resn + | + |.ffunc_n math_sin; fsin; jmp ->fff_resn + |.ffunc_n math_cos; fcos; jmp ->fff_resn + |.ffunc_n math_tan; fptan; fpop; jmp ->fff_resn + | + |.ffunc_n math_asin + | fdup; fmul st0; fld1; fsubrp st1; fsqrt; fpatan + | jmp ->fff_resn + |.ffunc_n math_acos + | fdup; fmul st0; fld1; fsubrp st1; fsqrt; fxch; fpatan + | jmp ->fff_resn + |.ffunc_n math_atan; fld1; fpatan; jmp ->fff_resn + | + |.macro math_extern, func + |.if SSE + | .ffunc_nsse math_ .. func + | .if not X64 + | movsd FPARG1, xmm0 + | .endif + |.else + | .ffunc_n math_ .. func + | fstp FPARG1 + |.endif + | mov RB, BASE + | call extern lj_vm_ .. func + | mov BASE, RB + | .if X64 + | jmp ->fff_resxmm0 + | .else + | jmp ->fff_resn + | .endif + |.endmacro + | + | math_extern sinh + | math_extern cosh + | math_extern tanh + | + |->ff_math_deg: + |.if SSE + |.ffunc_nsse math_rad + | mov CFUNC:RB, [BASE-8] + | mulsd xmm0, qword CFUNC:RB->upvalue[0] + | jmp ->fff_resxmm0 + |.else + |.ffunc_n math_rad + | mov CFUNC:RB, [BASE-8] + | fmul qword CFUNC:RB->upvalue[0] + | jmp ->fff_resn + |.endif + | + |.ffunc_nn math_atan2; fpatan; jmp ->fff_resn + |.ffunc_nnr math_ldexp; fscale; fpop1; jmp ->fff_resn + | + |.ffunc_1 math_frexp + | mov RB, [BASE+4] + | cmp RB, LJ_TISNUM; jae ->fff_fallback + | mov PC, [BASE-4] + | mov RC, [BASE] + | mov [BASE-4], RB; mov [BASE-8], RC + | shl RB, 1; cmp RB, 0xffe00000; jae >3 + | or RC, RB; jz >3 + | mov RC, 1022 + | cmp RB, 0x00200000; jb >4 + |1: + | shr RB, 21; sub RB, RC // Extract and unbias exponent. + |.if SSE + | cvtsi2sd xmm0, RB + |.else + | mov TMP1, RB; fild TMP1 + |.endif + | mov RB, [BASE-4] + | and RB, 0x800fffff // Mask off exponent. + | or RB, 0x3fe00000 // Put mantissa in range [0.5,1) or 0. + | mov [BASE-4], RB + |2: + |.if SSE + | movsd qword [BASE], xmm0 + |.else + | fstp qword [BASE] + |.endif + | mov RD, 1+2 + | jmp ->fff_res + |3: // Return +-0, +-Inf, NaN unmodified and an exponent of 0. + |.if SSE + | xorps xmm0, xmm0; jmp <2 + |.else + | fldz; jmp <2 + |.endif + |4: // Handle denormals by multiplying with 2^54 and adjusting the bias. + |.if SSE + | movsd xmm0, qword [BASE] + | sseconst_hi xmm1, RBa, 43500000 // 2^54. + | mulsd xmm0, xmm1 + | movsd qword [BASE-8], xmm0 + |.else + | fld qword [BASE] + | mov TMP1, 0x5a800000; fmul TMP1 // x = x*2^54 + | fstp qword [BASE-8] + |.endif + | mov RB, [BASE-4]; mov RC, 1076; shl RB, 1; jmp <1 + | + |.if SSE + |.ffunc_nsse math_modf + |.else + |.ffunc_n math_modf + |.endif + | mov RB, [BASE+4] + | mov PC, [BASE-4] + | shl RB, 1; cmp RB, 0xffe00000; je >4 // +-Inf? + |.if SSE + | movaps xmm4, xmm0 + | call ->vm_trunc + | subsd xmm4, xmm0 + |1: + | movsd qword [BASE-8], xmm0 + | movsd qword [BASE], xmm4 + |.else + | fdup + | call ->vm_trunc + | fsub st1, st0 + |1: + | fstp qword [BASE-8] + | fstp qword [BASE] + |.endif + | mov RC, [BASE-4]; mov RB, [BASE+4] + | xor RC, RB; js >3 // Need to adjust sign? + |2: + | mov RD, 1+2 + | jmp ->fff_res + |3: + | xor RB, 0x80000000; mov [BASE+4], RB // Flip sign of fraction. + | jmp <2 + |4: + |.if SSE + | xorps xmm4, xmm4; jmp <1 // Return +-Inf and +-0. + |.else + | fldz; fxch; jmp <1 // Return +-Inf and +-0. + |.endif + | + |.ffunc_nnr math_fmod + |1: ; fprem; fnstsw ax; and ax, 0x400; jnz <1 + | fpop1 + | jmp ->fff_resn + | + |.if SSE + |.ffunc_nnsse math_pow; call ->vm_pow; jmp ->fff_resxmm0 + |.else + |.ffunc_nn math_pow; call ->vm_pow; jmp ->fff_resn + |.endif + | + |.macro math_minmax, name, cmovop, fcmovop, sseop + | .ffunc name + | mov RA, 2 + | cmp dword [BASE+4], LJ_TISNUM + |.if DUALNUM + | jne >4 + | mov RB, dword [BASE] + |1: // Handle integers. + | cmp RA, RD; jae ->fff_resi + | cmp dword [BASE+RA*8-4], LJ_TISNUM; jne >3 + | cmp RB, dword [BASE+RA*8-8] + | cmovop RB, dword [BASE+RA*8-8] + | add RA, 1 + | jmp <1 + |3: + | ja ->fff_fallback + | // Convert intermediate result to number and continue below. + |.if SSE + | cvtsi2sd xmm0, RB + |.else + | mov TMP1, RB + | fild TMP1 + |.endif + | jmp >6 + |4: + | ja ->fff_fallback + |.else + | jae ->fff_fallback + |.endif + | + |.if SSE + | movsd xmm0, qword [BASE] + |5: // Handle numbers or integers. + | cmp RA, RD; jae ->fff_resxmm0 + | cmp dword [BASE+RA*8-4], LJ_TISNUM + |.if DUALNUM + | jb >6 + | ja ->fff_fallback + | cvtsi2sd xmm1, dword [BASE+RA*8-8] + | jmp >7 + |.else + | jae ->fff_fallback + |.endif + |6: + | movsd xmm1, qword [BASE+RA*8-8] + |7: + | sseop xmm0, xmm1 + | add RA, 1 + | jmp <5 + |.else + | fld qword [BASE] + |5: // Handle numbers or integers. + | cmp RA, RD; jae ->fff_resn + | cmp dword [BASE+RA*8-4], LJ_TISNUM + |.if DUALNUM + | jb >6 + | ja >9 + | fild dword [BASE+RA*8-8] + | jmp >7 + |.else + | jae >9 + |.endif + |6: + | fld qword [BASE+RA*8-8] + |7: + | fucomi st1; fcmovop st1; fpop1 + | add RA, 1 + | jmp <5 + |.endif + |.endmacro + | + | math_minmax math_min, cmovg, fcmovnbe, minsd + | math_minmax math_max, cmovl, fcmovbe, maxsd + |.if not SSE + |9: + | fpop; jmp ->fff_fallback + |.endif + | + |//-- String library ----------------------------------------------------- + | + |.ffunc_1 string_len + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | mov STR:RB, [BASE] + |.if DUALNUM + | mov RB, dword STR:RB->len; jmp ->fff_resi + |.elif SSE + | cvtsi2sd xmm0, dword STR:RB->len; jmp ->fff_resxmm0 + |.else + | fild dword STR:RB->len; jmp ->fff_resn + |.endif + | + |.ffunc string_byte // Only handle the 1-arg case here. + | cmp NARGS:RD, 1+1; jne ->fff_fallback + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | mov STR:RB, [BASE] + | mov PC, [BASE-4] + | cmp dword STR:RB->len, 1 + | jb ->fff_res0 // Return no results for empty string. + | movzx RB, byte STR:RB[1] + |.if DUALNUM + | jmp ->fff_resi + |.elif SSE + | cvtsi2sd xmm0, RB; jmp ->fff_resxmm0 + |.else + | mov TMP1, RB; fild TMP1; jmp ->fff_resn + |.endif + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | cmp NARGS:RD, 1+1; jne ->fff_fallback // *Exactly* 1 arg. + | cmp dword [BASE+4], LJ_TISNUM + |.if DUALNUM + | jne ->fff_fallback + | mov RB, dword [BASE] + | cmp RB, 255; ja ->fff_fallback + | mov TMP2, RB + |.elif SSE + | jae ->fff_fallback + | cvttsd2si RB, qword [BASE] + | cmp RB, 255; ja ->fff_fallback + | mov TMP2, RB + |.else + | jae ->fff_fallback + | fld qword [BASE] + | fistp TMP2 + | cmp TMP2, 255; ja ->fff_fallback + |.endif + |.if X64 + | mov TMP3, 1 + |.else + | mov ARG3, 1 + |.endif + | lea RDa, TMP2 // Points to stack. Little-endian. + |->fff_newstr: + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + |.if X64 + | mov CARG3d, TMP3 // Zero-extended to size_t. + | mov CARG2, RDa // May be 64 bit ptr to stack. + | mov CARG1d, L:RB + |.else + | mov ARG2, RD + | mov ARG1, L:RB + |.endif + | mov SAVE_PC, PC + | call extern lj_str_new // (lua_State *L, char *str, size_t l) + | // GCstr * returned in eax (RD). + | mov BASE, L:RB->base + | mov PC, [BASE-4] + | mov dword [BASE-4], LJ_TSTR + | mov [BASE-8], STR:RD + | jmp ->fff_res1 + | + |.ffunc string_sub + | ffgccheck + | mov TMP2, -1 + | cmp NARGS:RD, 1+2; jb ->fff_fallback + | jna >1 + | cmp dword [BASE+20], LJ_TISNUM + |.if DUALNUM + | jne ->fff_fallback + | mov RB, dword [BASE+16] + | mov TMP2, RB + |.elif SSE + | jae ->fff_fallback + | cvttsd2si RB, qword [BASE+16] + | mov TMP2, RB + |.else + | jae ->fff_fallback + | fld qword [BASE+16] + | fistp TMP2 + |.endif + |1: + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM + |.if DUALNUM + | jne ->fff_fallback + |.else + | jae ->fff_fallback + |.endif + | mov STR:RB, [BASE] + | mov TMP3, STR:RB + | mov RB, STR:RB->len + |.if DUALNUM + | mov RA, dword [BASE+8] + |.elif SSE + | cvttsd2si RA, qword [BASE+8] + |.else + | fld qword [BASE+8] + | fistp ARG3 + | mov RA, ARG3 + |.endif + | mov RC, TMP2 + | cmp RB, RC // len < end? (unsigned compare) + | jb >5 + |2: + | test RA, RA // start <= 0? + | jle >7 + |3: + | mov STR:RB, TMP3 + | sub RC, RA // start > end? + | jl ->fff_emptystr + | lea RB, [STR:RB+RA+#STR-1] + | add RC, 1 + |4: + |.if X64 + | mov TMP3, RC + |.else + | mov ARG3, RC + |.endif + | mov RD, RB + | jmp ->fff_newstr + | + |5: // Negative end or overflow. + | jl >6 + | lea RC, [RC+RB+1] // end = end+(len+1) + | jmp <2 + |6: // Overflow. + | mov RC, RB // end = len + | jmp <2 + | + |7: // Negative start or underflow. + | je >8 + | add RA, RB // start = start+(len+1) + | add RA, 1 + | jg <3 // start > 0? + |8: // Underflow. + | mov RA, 1 // start = 1 + | jmp <3 + | + |->fff_emptystr: // Range underflow. + | xor RC, RC // Zero length. Any ptr in RB is ok. + | jmp <4 + | + |.ffunc string_rep // Only handle the 1-char case inline. + | ffgccheck + | cmp NARGS:RD, 2+1; jne ->fff_fallback // Exactly 2 arguments. + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | cmp dword [BASE+12], LJ_TISNUM + | mov STR:RB, [BASE] + |.if DUALNUM + | jne ->fff_fallback + | mov RC, dword [BASE+8] + |.elif SSE + | jae ->fff_fallback + | cvttsd2si RC, qword [BASE+8] + |.else + | jae ->fff_fallback + | fld qword [BASE+8] + | fistp TMP2 + | mov RC, TMP2 + |.endif + | test RC, RC + | jle ->fff_emptystr // Count <= 0? (or non-int) + | cmp dword STR:RB->len, 1 + | jb ->fff_emptystr // Zero length string? + | jne ->fff_fallback_2 // Fallback for > 1-char strings. + | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_2 + | movzx RA, byte STR:RB[1] + | mov RB, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] + |.if X64 + | mov TMP3, RC + |.else + | mov ARG3, RC + |.endif + |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). + | mov [RB], RAL + | add RB, 1 + | sub RC, 1 + | jnz <1 + | mov RD, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] + | jmp ->fff_newstr + | + |.ffunc_1 string_reverse + | ffgccheck + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | mov STR:RB, [BASE] + | mov RC, STR:RB->len + | test RC, RC + | jz ->fff_emptystr // Zero length string? + | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_1 + | add RB, #STR + | mov TMP2, PC // Need another temp register. + |.if X64 + | mov TMP3, RC + |.else + | mov ARG3, RC + |.endif + | mov PC, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] + |1: + | movzx RA, byte [RB] + | add RB, 1 + | sub RC, 1 + | mov [PC+RC], RAL + | jnz <1 + | mov RD, PC + | mov PC, TMP2 + | jmp ->fff_newstr + | + |.macro ffstring_case, name, lo, hi + | .ffunc_1 name + | ffgccheck + | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback + | mov STR:RB, [BASE] + | mov RC, STR:RB->len + | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_1 + | add RB, #STR + | mov TMP2, PC // Need another temp register. + |.if X64 + | mov TMP3, RC + |.else + | mov ARG3, RC + |.endif + | mov PC, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] + | jmp >3 + |1: // ASCII case conversion. Yes, this is suboptimal code (do you care?). + | movzx RA, byte [RB+RC] + | cmp RA, lo + | jb >2 + | cmp RA, hi + | ja >2 + | xor RA, 0x20 + |2: + | mov [PC+RC], RAL + |3: + | sub RC, 1 + | jns <1 + | mov RD, PC + | mov PC, TMP2 + | jmp ->fff_newstr + |.endmacro + | + |ffstring_case string_lower, 0x41, 0x5a + |ffstring_case string_upper, 0x61, 0x7a + | + |//-- Table library ------------------------------------------------------ + | + |.ffunc_1 table_getn + | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback + | mov RB, BASE // Save BASE. + | mov TAB:FCARG1, [BASE] + | call extern lj_tab_len@4 // LJ_FASTCALL (GCtab *t) + | // Length of table returned in eax (RD). + | mov BASE, RB // Restore BASE. + |.if DUALNUM + | mov RB, RD; jmp ->fff_resi + |.elif SSE + | cvtsi2sd xmm0, RD; jmp ->fff_resxmm0 + |.else + | mov ARG1, RD; fild ARG1; jmp ->fff_resn + |.endif + | + |//-- Bit library -------------------------------------------------------- + | + |.define TOBIT_BIAS, 0x59c00000 // 2^52 + 2^51 (float, not double!). + | + |.macro .ffunc_bit, name, kind + | .ffunc_1 name + |.if kind == 2 + |.if SSE + | sseconst_tobit xmm1, RBa + |.else + | mov TMP1, TOBIT_BIAS + |.endif + |.endif + | cmp dword [BASE+4], LJ_TISNUM + |.if DUALNUM + | jne >1 + | mov RB, dword [BASE] + |.if kind > 0 + | jmp >2 + |.else + | jmp ->fff_resbit + |.endif + |1: + | ja ->fff_fallback + |.else + | jae ->fff_fallback + |.endif + |.if SSE + | movsd xmm0, qword [BASE] + |.if kind < 2 + | sseconst_tobit xmm1, RBa + |.endif + | addsd xmm0, xmm1 + | movd RB, xmm0 + |.else + | fld qword [BASE] + |.if kind < 2 + | mov TMP1, TOBIT_BIAS + |.endif + | fadd TMP1 + | fstp FPARG1 + |.if kind > 0 + | mov RB, ARG1 + |.endif + |.endif + |2: + |.endmacro + | + |.ffunc_bit bit_tobit, 0 + |.if DUALNUM or SSE + |.if not SSE + | mov RB, ARG1 + |.endif + | jmp ->fff_resbit + |.else + | fild ARG1 + | jmp ->fff_resn + |.endif + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name, 2 + | mov TMP2, NARGS:RD // Save for fallback. + | lea RD, [BASE+NARGS:RD*8-16] + |1: + | cmp RD, BASE + | jbe ->fff_resbit + | cmp dword [RD+4], LJ_TISNUM + |.if DUALNUM + | jne >2 + | ins RB, dword [RD] + | sub RD, 8 + | jmp <1 + |2: + | ja ->fff_fallback_bit_op + |.else + | jae ->fff_fallback_bit_op + |.endif + |.if SSE + | movsd xmm0, qword [RD] + | addsd xmm0, xmm1 + | movd RA, xmm0 + | ins RB, RA + |.else + | fld qword [RD] + | fadd TMP1 + | fstp FPARG1 + | ins RB, ARG1 + |.endif + | sub RD, 8 + | jmp <1 + |.endmacro + | + |.ffunc_bit_op bit_band, and + |.ffunc_bit_op bit_bor, or + |.ffunc_bit_op bit_bxor, xor + | + |.ffunc_bit bit_bswap, 1 + | bswap RB + | jmp ->fff_resbit + | + |.ffunc_bit bit_bnot, 1 + | not RB + |.if DUALNUM + | jmp ->fff_resbit + |.elif SSE + |->fff_resbit: + | cvtsi2sd xmm0, RB + | jmp ->fff_resxmm0 + |.else + |->fff_resbit: + | mov ARG1, RB + | fild ARG1 + | jmp ->fff_resn + |.endif + | + |->fff_fallback_bit_op: + | mov NARGS:RD, TMP2 // Restore for fallback + | jmp ->fff_fallback + | + |.macro .ffunc_bit_sh, name, ins + |.if DUALNUM + | .ffunc_bit name, 1 + | // Note: no inline conversion from number for 2nd argument! + | cmp dword [BASE+12], LJ_TISNUM; jne ->fff_fallback + | mov RA, dword [BASE+8] + |.elif SSE + | .ffunc_nnsse name + | sseconst_tobit xmm2, RBa + | addsd xmm0, xmm2 + | addsd xmm1, xmm2 + | movd RB, xmm0 + | movd RA, xmm1 + |.else + | .ffunc_nn name + | mov TMP1, TOBIT_BIAS + | fadd TMP1 + | fstp FPARG3 + | fadd TMP1 + | fstp FPARG1 + | mov RA, ARG3 + | mov RB, ARG1 + |.endif + | ins RB, cl // Assumes RA is ecx. + | jmp ->fff_resbit + |.endmacro + | + |.ffunc_bit_sh bit_lshift, shl + |.ffunc_bit_sh bit_rshift, shr + |.ffunc_bit_sh bit_arshift, sar + |.ffunc_bit_sh bit_rol, rol + |.ffunc_bit_sh bit_ror, ror + | + |//----------------------------------------------------------------------- + | + |->fff_fallback_2: + | mov NARGS:RD, 1+2 // Other args are ignored, anyway. + | jmp ->fff_fallback + |->fff_fallback_1: + | mov NARGS:RD, 1+1 // Other args are ignored, anyway. + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RD = nargs+1 + | mov L:RB, SAVE_L + | mov PC, [BASE-4] // Fallback may overwrite PC. + | mov SAVE_PC, PC // Redundant (but a defined value). + | mov L:RB->base, BASE + | lea RD, [BASE+NARGS:RD*8-8] + | lea RA, [RD+8*LUA_MINSTACK] // Ensure enough space for handler. + | mov L:RB->top, RD + | mov CFUNC:RD, [BASE-8] + | cmp RA, L:RB->maxstack + | ja >5 // Need to grow stack. + |.if X64 + | mov CARG1d, L:RB + |.else + | mov ARG1, L:RB + |.endif + | call aword CFUNC:RD->f // (lua_State *L) + | mov BASE, L:RB->base + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | test RD, RD; jg ->fff_res // Returned nresults+1? + |1: + | mov RA, L:RB->top + | sub RA, BASE + | shr RA, 3 + | test RD, RD + | lea NARGS:RD, [RA+1] + | mov LFUNC:RB, [BASE-8] + | jne ->vm_call_tail // Returned -1? + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | mov RA, BASE + | test PC, FRAME_TYPE + | jnz >3 + | movzx RB, PC_RA + | not RBa // Note: ~RB = -(RB+1) + | lea BASE, [BASE+RB*8] // base = base - (RB+1)*8 + | jmp ->vm_call_dispatch // Resolve again for tailcall. + |3: + | mov RB, PC + | and RB, -8 + | sub BASE, RB + | jmp ->vm_call_dispatch // Resolve again for tailcall. + | + |5: // Grow stack for fallback handler. + | mov FCARG2, LUA_MINSTACK + | mov FCARG1, L:RB + | call extern lj_state_growstack@8 // (lua_State *L, int n) + | mov BASE, L:RB->base + | xor RD, RD // Simulate a return 0. + | jmp <1 // Dumb retry (goes through ff first). + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RD = nargs+1 + | pop RBa // Must keep stack at same level. + | mov TMPa, RBa // Save return address + | mov L:RB, SAVE_L + | mov SAVE_PC, PC // Redundant (but a defined value). + | mov L:RB->base, BASE + | lea RD, [BASE+NARGS:RD*8-8] + | mov FCARG1, L:RB + | mov L:RB->top, RD + | call extern lj_gc_step@4 // (lua_State *L) + | mov BASE, L:RB->base + | mov RD, L:RB->top + | sub RD, BASE + | shr RD, 3 + | add NARGS:RD, 1 + | mov RBa, TMPa + | push RBa // Restore return address. + | ret + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + |.if JIT + | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] + | test RDL, HOOK_VMEVENT // No recording while in vmevent. + | jnz >5 + | // Decrement the hookcount for consistency, but always do the call. + | test RDL, HOOK_ACTIVE + | jnz >1 + | test RDL, LUA_MASKLINE|LUA_MASKCOUNT + | jz >1 + | dec dword [DISPATCH+DISPATCH_GL(hookcount)] + | jmp >1 + |.endif + | + |->vm_rethook: // Dispatch target for return hooks. + | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] + | test RDL, HOOK_ACTIVE // Hook already active? + | jnz >5 + | jmp >1 + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] + | test RDL, HOOK_ACTIVE // Hook already active? + | jnz >5 + | + | test RDL, LUA_MASKLINE|LUA_MASKCOUNT + | jz >5 + | dec dword [DISPATCH+DISPATCH_GL(hookcount)] + | jz >1 + | test RDL, LUA_MASKLINE + | jz >5 + |1: + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov FCARG2, PC // Caveat: FCARG2 == BASE + | mov FCARG1, L:RB + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | call extern lj_dispatch_ins@8 // (lua_State *L, BCIns *pc) + |3: + | mov BASE, L:RB->base + |4: + | movzx RA, PC_RA + |5: + | movzx OP, PC_OP + | movzx RD, PC_RD + |.if X64 + | jmp aword [DISPATCH+OP*8+GG_DISP2STATIC] // Re-dispatch to static ins. + |.else + | jmp aword [DISPATCH+OP*4+GG_DISP2STATIC] // Re-dispatch to static ins. + |.endif + | + |->cont_hook: // Continue from hook yield. + | add PC, 4 + | mov RA, [RB-24] + | mov MULTRES, RA // Restore MULTRES for *M ins. + | jmp <4 + | + |->vm_hotloop: // Hot loop counter underflow. + |.if JIT + | mov LFUNC:RB, [BASE-8] // Same as curr_topL(L). + | mov RB, LFUNC:RB->pc + | movzx RD, byte [RB+PC2PROTO(framesize)] + | lea RD, [BASE+RD*8] + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov L:RB->top, RD + | mov FCARG2, PC + | lea FCARG1, [DISPATCH+GG_DISP2J] + | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa + | mov SAVE_PC, PC + | call extern lj_trace_hot@8 // (jit_State *J, const BCIns *pc) + | jmp <3 + |.endif + | + |->vm_callhook: // Dispatch target for call hooks. + | mov SAVE_PC, PC + |.if JIT + | jmp >1 + |.endif + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | mov SAVE_PC, PC + | or PC, 1 // Marker for hot call. + |1: + |.endif + | lea RD, [BASE+NARGS:RD*8-8] + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov L:RB->top, RD + | mov FCARG2, PC + | mov FCARG1, L:RB + | call extern lj_dispatch_call@8 // (lua_State *L, const BCIns *pc) + | // ASMFunction returned in eax/rax (RDa). + | mov SAVE_PC, 0 // Invalidate for subsequent line hook. + |.if JIT + | and PC, -2 + |.endif + | mov BASE, L:RB->base + | mov RAa, RDa + | mov RD, L:RB->top + | sub RD, BASE + | mov RBa, RAa + | movzx RA, PC_RA + | shr RD, 3 + | add NARGS:RD, 1 + | jmp RBa + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Called from an exit stub with the exit number on the stack. + |// The 16 bit exit number is stored with two (sign-extended) push imm8. + |->vm_exit_handler: + |.if JIT + |.if X64 + | push r13; push r12 + | push r11; push r10; push r9; push r8 + | push rdi; push rsi; push rbp; lea rbp, [rsp+88]; push rbp + | push rbx; push rdx; push rcx; push rax + | movzx RC, byte [rbp-8] // Reconstruct exit number. + | mov RCH, byte [rbp-16] + | mov [rbp-8], r15; mov [rbp-16], r14 + |.else + | push ebp; lea ebp, [esp+12]; push ebp + | push ebx; push edx; push ecx; push eax + | movzx RC, byte [ebp-4] // Reconstruct exit number. + | mov RCH, byte [ebp-8] + | mov [ebp-4], edi; mov [ebp-8], esi + |.endif + | // Caveat: DISPATCH is ebx. + | mov DISPATCH, [ebp] + | mov RA, [DISPATCH+DISPATCH_GL(vmstate)] // Get trace number. + | set_vmstate EXIT + | mov [DISPATCH+DISPATCH_J(exitno)], RC + | mov [DISPATCH+DISPATCH_J(parent)], RA + |.if X64 + |.if X64WIN + | sub rsp, 16*8+4*8 // Room for SSE regs + save area. + |.else + | sub rsp, 16*8 // Room for SSE regs. + |.endif + | add rbp, -128 + | movsd qword [rbp-8], xmm15; movsd qword [rbp-16], xmm14 + | movsd qword [rbp-24], xmm13; movsd qword [rbp-32], xmm12 + | movsd qword [rbp-40], xmm11; movsd qword [rbp-48], xmm10 + | movsd qword [rbp-56], xmm9; movsd qword [rbp-64], xmm8 + | movsd qword [rbp-72], xmm7; movsd qword [rbp-80], xmm6 + | movsd qword [rbp-88], xmm5; movsd qword [rbp-96], xmm4 + | movsd qword [rbp-104], xmm3; movsd qword [rbp-112], xmm2 + | movsd qword [rbp-120], xmm1; movsd qword [rbp-128], xmm0 + |.else + | sub esp, 8*8+16 // Room for SSE regs + args. + | movsd qword [ebp-40], xmm7; movsd qword [ebp-48], xmm6 + | movsd qword [ebp-56], xmm5; movsd qword [ebp-64], xmm4 + | movsd qword [ebp-72], xmm3; movsd qword [ebp-80], xmm2 + | movsd qword [ebp-88], xmm1; movsd qword [ebp-96], xmm0 + |.endif + | // Caveat: RB is ebp. + | mov L:RB, [DISPATCH+DISPATCH_GL(jit_L)] + | mov BASE, [DISPATCH+DISPATCH_GL(jit_base)] + | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa + | mov dword [DISPATCH+DISPATCH_GL(jit_L)], 0 + | mov L:RB->base, BASE + |.if X64WIN + | lea CARG2, [rsp+4*8] + |.elif X64 + | mov CARG2, rsp + |.else + | lea FCARG2, [esp+16] + |.endif + | lea FCARG1, [DISPATCH+GG_DISP2J] + | call extern lj_trace_exit@8 // (jit_State *J, ExitState *ex) + | // MULTRES or negated error code returned in eax (RD). + | mov RAa, L:RB->cframe + | and RAa, CFRAME_RAWMASK + |.if X64WIN + | // Reposition stack later. + |.elif X64 + | mov rsp, RAa // Reposition stack to C frame. + |.else + | mov esp, RAa // Reposition stack to C frame. + |.endif + | mov [RAa+CFRAME_OFS_L], L:RB // Set SAVE_L (on-trace resume/yield). + | mov BASE, L:RB->base + | mov PC, [RAa+CFRAME_OFS_PC] // Get SAVE_PC. + |.if X64 + | jmp >1 + |.endif + |.endif + |->vm_exit_interp: + | // RD = MULTRES or negated error code, BASE, PC and DISPATCH set. + |.if JIT + |.if X64 + | // Restore additional callee-save registers only used in compiled code. + |.if X64WIN + | lea RAa, [rsp+9*16+4*8] + |1: + | movdqa xmm15, [RAa-9*16] + | movdqa xmm14, [RAa-8*16] + | movdqa xmm13, [RAa-7*16] + | movdqa xmm12, [RAa-6*16] + | movdqa xmm11, [RAa-5*16] + | movdqa xmm10, [RAa-4*16] + | movdqa xmm9, [RAa-3*16] + | movdqa xmm8, [RAa-2*16] + | movdqa xmm7, [RAa-1*16] + | mov rsp, RAa // Reposition stack to C frame. + | movdqa xmm6, [RAa] + | mov r15, CSAVE_3 + | mov r14, CSAVE_4 + |.else + | add rsp, 16 // Reposition stack to C frame. + |1: + |.endif + | mov r13, TMPa + | mov r12, TMPQ + |.endif + | test RD, RD; js >3 // Check for error from exit. + | mov MULTRES, RD + | mov LFUNC:KBASE, [BASE-8] + | mov KBASE, LFUNC:KBASE->pc + | mov KBASE, [KBASE+PC2PROTO(k)] + | mov dword [DISPATCH+DISPATCH_GL(jit_L)], 0 + | set_vmstate INTERP + | // Modified copy of ins_next which handles function header dispatch, too. + | mov RC, [PC] + | movzx RA, RCH + | movzx OP, RCL + | add PC, 4 + | shr RC, 16 + | cmp OP, BC_FUNCF // Function header? + | jb >2 + | mov RC, MULTRES // RC/RD holds nres+1. + |2: + |.if X64 + | jmp aword [DISPATCH+OP*8] + |.else + | jmp aword [DISPATCH+OP*4] + |.endif + | + |3: // Rethrow error from the right C frame. + | neg RD + | mov FCARG1, L:RB + | mov FCARG2, RD + | call extern lj_err_throw@8 // (lua_State *L, int errcode) + |.endif + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + |// FP value rounding. Called by math.floor/math.ceil fast functions + |// and from JIT code. + | + |// x87 variant: Arg/ret on x87 stack. No int/xmm registers modified. + |.macro vm_round_x87, mode1, mode2 + | fnstcw word [esp+4] // Caveat: overwrites ARG1 and ARG2. + | mov [esp+8], eax + | mov ax, mode1 + | or ax, [esp+4] + |.if mode2 ~= 0xffff + | and ax, mode2 + |.endif + | mov [esp+6], ax + | fldcw word [esp+6] + | frndint + | fldcw word [esp+4] + | mov eax, [esp+8] + | ret + |.endmacro + | + |// SSE variant: arg/ret is xmm0. xmm0-xmm3 and RD (eax) modified. + |.macro vm_round_sse, mode + | sseconst_abs xmm2, RDa + | sseconst_2p52 xmm3, RDa + | movaps xmm1, xmm0 + | andpd xmm1, xmm2 // |x| + | ucomisd xmm3, xmm1 // No truncation if 2^52 <= |x|. + | jbe >1 + | andnpd xmm2, xmm0 // Isolate sign bit. + |.if mode == 2 // trunc(x)? + | movaps xmm0, xmm1 + | addsd xmm1, xmm3 // (|x| + 2^52) - 2^52 + | subsd xmm1, xmm3 + | sseconst_1 xmm3, RDa + | cmpsd xmm0, xmm1, 1 // |x| < result? + | andpd xmm0, xmm3 + | subsd xmm1, xmm0 // If yes, subtract -1. + | orpd xmm1, xmm2 // Merge sign bit back in. + |.else + | addsd xmm1, xmm3 // (|x| + 2^52) - 2^52 + | subsd xmm1, xmm3 + | orpd xmm1, xmm2 // Merge sign bit back in. + | .if mode == 1 // ceil(x)? + | sseconst_m1 xmm2, RDa // Must subtract -1 to preserve -0. + | cmpsd xmm0, xmm1, 6 // x > result? + | .else // floor(x)? + | sseconst_1 xmm2, RDa + | cmpsd xmm0, xmm1, 1 // x < result? + | .endif + | andpd xmm0, xmm2 + | subsd xmm1, xmm0 // If yes, subtract +-1. + |.endif + | movaps xmm0, xmm1 + |1: + | ret + |.endmacro + | + |.macro vm_round, name, ssemode, mode1, mode2 + |->name: + |.if not SSE + | vm_round_x87 mode1, mode2 + |.endif + |->name .. _sse: + | vm_round_sse ssemode + |.endmacro + | + | vm_round vm_floor, 0, 0x0400, 0xf7ff + | vm_round vm_ceil, 1, 0x0800, 0xfbff + | vm_round vm_trunc, 2, 0x0c00, 0xffff + | + |// FP modulo x%y. Called by BC_MOD* and vm_arith. + |->vm_mod: + |.if SSE + |// Args in xmm0/xmm1, return value in xmm0. + |// Caveat: xmm0-xmm5 and RC (eax) modified! + | movaps xmm5, xmm0 + | divsd xmm0, xmm1 + | sseconst_abs xmm2, RDa + | sseconst_2p52 xmm3, RDa + | movaps xmm4, xmm0 + | andpd xmm4, xmm2 // |x/y| + | ucomisd xmm3, xmm4 // No truncation if 2^52 <= |x/y|. + | jbe >1 + | andnpd xmm2, xmm0 // Isolate sign bit. + | addsd xmm4, xmm3 // (|x/y| + 2^52) - 2^52 + | subsd xmm4, xmm3 + | orpd xmm4, xmm2 // Merge sign bit back in. + | sseconst_1 xmm2, RDa + | cmpsd xmm0, xmm4, 1 // x/y < result? + | andpd xmm0, xmm2 + | subsd xmm4, xmm0 // If yes, subtract 1.0. + | movaps xmm0, xmm5 + | mulsd xmm1, xmm4 + | subsd xmm0, xmm1 + | ret + |1: + | mulsd xmm1, xmm0 + | movaps xmm0, xmm5 + | subsd xmm0, xmm1 + | ret + |.else + |// Args/ret on x87 stack (y on top). No xmm registers modified. + |// Caveat: needs 3 slots on x87 stack! RC (eax) modified! + | fld st1 + | fdiv st1 + | fnstcw word [esp+4] + | mov ax, 0x0400 + | or ax, [esp+4] + | and ax, 0xf7ff + | mov [esp+6], ax + | fldcw word [esp+6] + | frndint + | fldcw word [esp+4] + | fmulp st1 + | fsubp st1 + | ret + |.endif + | + |// FP log2(x). Called by math.log(x, base). + |->vm_log2: + |.if X64WIN + | movsd qword [rsp+8], xmm0 // Use scratch area. + | fld1 + | fld qword [rsp+8] + | fyl2x + | fstp qword [rsp+8] + | movsd xmm0, qword [rsp+8] + |.elif X64 + | movsd qword [rsp-8], xmm0 // Use red zone. + | fld1 + | fld qword [rsp-8] + | fyl2x + | fstp qword [rsp-8] + | movsd xmm0, qword [rsp-8] + |.else + | fld1 + | fld qword [esp+4] + | fyl2x + |.endif + | ret + | + |// FP exponentiation e^x and 2^x. Called by math.exp fast function and + |// from JIT code. Arg/ret on x87 stack. No int/xmm regs modified. + |// Caveat: needs 3 slots on x87 stack! + |->vm_exp_x87: + | fldl2e; fmulp st1 // e^x ==> 2^(x*log2(e)) + |->vm_exp2_x87: + | .if X64WIN + | .define expscratch, dword [rsp+8] // Use scratch area. + | .elif X64 + | .define expscratch, dword [rsp-8] // Use red zone. + | .else + | .define expscratch, dword [esp+4] // Needs 4 byte scratch area. + | .endif + | fst expscratch // Caveat: overwrites ARG1. + | cmp expscratch, 0x7f800000; je >1 // Special case: e^+Inf = +Inf + | cmp expscratch, 0xff800000; je >2 // Special case: e^-Inf = 0 + |->vm_exp2raw: // Entry point for vm_pow. Without +-Inf check. + | fdup; frndint; fsub st1, st0; fxch // Split into frac/int part. + | f2xm1; fld1; faddp st1; fscale; fpop1 // ==> (2^frac-1 +1) << int + |1: + | ret + |2: + | fpop; fldz; ret + | + |// Generic power function x^y. Called by BC_POW, math.pow fast function, + |// and vm_arith. + |// Args/ret on x87 stack (y on top). RC (eax) modified. + |// Caveat: needs 3 slots on x87 stack! + |->vm_pow: + |.if not SSE + | fist dword [esp+4] // Store/reload int before comparison. + | fild dword [esp+4] // Integral exponent used in vm_powi. + | fucomip st1 + | jnz >8 // Branch for FP exponents. + | jp >9 // Branch for NaN exponent. + | fpop // Pop y and fallthrough to vm_powi. + | + |// FP/int power function x^i. Arg1/ret on x87 stack. + |// Arg2 (int) on C stack. RC (eax) modified. + |// Caveat: needs 2 slots on x87 stack! + | mov eax, [esp+4] + | cmp eax, 1; jle >6 // i<=1? + | // Now 1 < (unsigned)i <= 0x80000000. + |1: // Handle leading zeros. + | test eax, 1; jnz >2 + | fmul st0 + | shr eax, 1 + | jmp <1 + |2: + | shr eax, 1; jz >5 + | fdup + |3: // Handle trailing bits. + | fmul st0 + | shr eax, 1; jz >4 + | jnc <3 + | fmul st1, st0 + | jmp <3 + |4: + | fmulp st1 + |5: + | ret + |6: + | je <5 // x^1 ==> x + | jb >7 + | fld1; fdivrp st1 + | neg eax + | cmp eax, 1; je <5 // x^-1 ==> 1/x + | jmp <1 // x^-i ==> (1/x)^i + |7: + | fpop; fld1 // x^0 ==> 1 + | ret + | + |8: // FP/FP power function x^y. + | fst dword [esp+4] + | fxch + | fst dword [esp+8] + | mov eax, [esp+4]; shl eax, 1 + | cmp eax, 0xff000000; je >2 // x^+-Inf? + | mov eax, [esp+8]; shl eax, 1; je >4 // +-0^y? + | cmp eax, 0xff000000; je >4 // +-Inf^y? + | fyl2x + | jmp ->vm_exp2raw + | + |9: // Handle x^NaN. + | fld1 + | fucomip st2 + | je >1 // 1^NaN ==> 1 + | fxch // x^NaN ==> NaN + |1: + | fpop + | ret + | + |2: // Handle x^+-Inf. + | fabs + | fld1 + | fucomip st1 + | je >3 // +-1^+-Inf ==> 1 + | fpop; fabs; fldz; mov eax, 0; setc al + | ror eax, 1; xor eax, [esp+4]; jns >3 // |x|<>1, x^+-Inf ==> +Inf/0 + | fxch + |3: + | fpop1; fabs + | ret + | + |4: // Handle +-0^y or +-Inf^y. + | cmp dword [esp+4], 0; jge <3 // y >= 0, x^y ==> |x| + | fpop; fpop + | test eax, eax; jz >5 // y < 0, +-0^y ==> +Inf + | fldz // y < 0, +-Inf^y ==> 0 + | ret + |5: + | mov dword [esp+4], 0x7f800000 // Return +Inf. + | fld dword [esp+4] + | ret + |.endif + | + |// Args in xmm0/xmm1. Ret in xmm0. xmm0-xmm2 and RC (eax) modified. + |// Needs 16 byte scratch area for x86. Also called from JIT code. + |->vm_pow_sse: + | cvtsd2si eax, xmm1 + | cvtsi2sd xmm2, eax + | ucomisd xmm1, xmm2 + | jnz >8 // Branch for FP exponents. + | jp >9 // Branch for NaN exponent. + | // Fallthrough to vm_powi_sse. + | + |// Args in xmm0/eax. Ret in xmm0. xmm0-xmm1 and eax modified. + |->vm_powi_sse: + | cmp eax, 1; jle >6 // i<=1? + | // Now 1 < (unsigned)i <= 0x80000000. + |1: // Handle leading zeros. + | test eax, 1; jnz >2 + | mulsd xmm0, xmm0 + | shr eax, 1 + | jmp <1 + |2: + | shr eax, 1; jz >5 + | movaps xmm1, xmm0 + |3: // Handle trailing bits. + | mulsd xmm0, xmm0 + | shr eax, 1; jz >4 + | jnc <3 + | mulsd xmm1, xmm0 + | jmp <3 + |4: + | mulsd xmm0, xmm1 + |5: + | ret + |6: + | je <5 // x^1 ==> x + | jb >7 // x^0 ==> 1 + | neg eax + | call <1 + | sseconst_1 xmm1, RDa + | divsd xmm1, xmm0 + | movaps xmm0, xmm1 + | ret + |7: + | sseconst_1 xmm0, RDa + | ret + | + |8: // FP/FP power function x^y. + |.if X64 + | movd rax, xmm1; shl rax, 1 + | rol rax, 12; cmp rax, 0xffe; je >2 // x^+-Inf? + | movd rax, xmm0; shl rax, 1; je >4 // +-0^y? + | rol rax, 12; cmp rax, 0xffe; je >5 // +-Inf^y? + | .if X64WIN + | movsd qword [rsp+16], xmm1 // Use scratch area. + | movsd qword [rsp+8], xmm0 + | fld qword [rsp+16] + | fld qword [rsp+8] + | .else + | movsd qword [rsp-16], xmm1 // Use red zone. + | movsd qword [rsp-8], xmm0 + | fld qword [rsp-16] + | fld qword [rsp-8] + | .endif + |.else + | movsd qword [esp+12], xmm1 // Needs 16 byte scratch area. + | movsd qword [esp+4], xmm0 + | cmp dword [esp+12], 0; jne >1 + | mov eax, [esp+16]; shl eax, 1 + | cmp eax, 0xffe00000; je >2 // x^+-Inf? + |1: + | cmp dword [esp+4], 0; jne >1 + | mov eax, [esp+8]; shl eax, 1; je >4 // +-0^y? + | cmp eax, 0xffe00000; je >5 // +-Inf^y? + |1: + | fld qword [esp+12] + | fld qword [esp+4] + |.endif + | fyl2x // y*log2(x) + | fdup; frndint; fsub st1, st0; fxch // Split into frac/int part. + | f2xm1; fld1; faddp st1; fscale; fpop1 // ==> (2^frac-1 +1) << int + |.if X64WIN + | fstp qword [rsp+8] // Use scratch area. + | movsd xmm0, qword [rsp+8] + |.elif X64 + | fstp qword [rsp-8] // Use red zone. + | movsd xmm0, qword [rsp-8] + |.else + | fstp qword [esp+4] // Needs 8 byte scratch area. + | movsd xmm0, qword [esp+4] + |.endif + | ret + | + |9: // Handle x^NaN. + | sseconst_1 xmm2, RDa + | ucomisd xmm0, xmm2; je >1 // 1^NaN ==> 1 + | movaps xmm0, xmm1 // x^NaN ==> NaN + |1: + | ret + | + |2: // Handle x^+-Inf. + | sseconst_abs xmm2, RDa + | andpd xmm0, xmm2 // |x| + | sseconst_1 xmm2, RDa + | ucomisd xmm0, xmm2; je <1 // +-1^+-Inf ==> 1 + | movmskpd eax, xmm1 + | xorps xmm0, xmm0 + | mov ah, al; setc al; xor al, ah; jne <1 // |x|<>1, x^+-Inf ==> +Inf/0 + |3: + | sseconst_hi xmm0, RDa, 7ff00000 // +Inf + | ret + | + |4: // Handle +-0^y. + | movmskpd eax, xmm1; test eax, eax; jnz <3 // y < 0, +-0^y ==> +Inf + | xorps xmm0, xmm0 // y >= 0, +-0^y ==> 0 + | ret + | + |5: // Handle +-Inf^y. + | movmskpd eax, xmm1; test eax, eax; jz <3 // y >= 0, +-Inf^y ==> +Inf + | xorps xmm0, xmm0 // y < 0, +-Inf^y ==> 0 + | ret + | + |// Callable from C: double lj_vm_foldfpm(double x, int fpm) + |// Computes fpm(x) for extended math functions. ORDER FPM. + |->vm_foldfpm: + |.if JIT + |.if X64 + | .if X64WIN + | .define fpmop, CARG2d + | .else + | .define fpmop, CARG1d + | .endif + | cmp fpmop, 1; jb ->vm_floor; je ->vm_ceil + | cmp fpmop, 3; jb ->vm_trunc; ja >2 + | sqrtsd xmm0, xmm0; ret + |2: + | .if X64WIN + | movsd qword [rsp+8], xmm0 // Use scratch area. + | fld qword [rsp+8] + | .else + | movsd qword [rsp-8], xmm0 // Use red zone. + | fld qword [rsp-8] + | .endif + | cmp fpmop, 5; ja >2 + | .if X64WIN; pop rax; .endif + | je >1 + | call ->vm_exp_x87 + | .if X64WIN; push rax; .endif + | jmp >7 + |1: + | call ->vm_exp2_x87 + | .if X64WIN; push rax; .endif + | jmp >7 + |2: ; cmp fpmop, 7; je >1; ja >2 + | fldln2; fxch; fyl2x; jmp >7 + |1: ; fld1; fxch; fyl2x; jmp >7 + |2: ; cmp fpmop, 9; je >1; ja >2 + | fldlg2; fxch; fyl2x; jmp >7 + |1: ; fsin; jmp >7 + |2: ; cmp fpmop, 11; je >1; ja >9 + | fcos; jmp >7 + |1: ; fptan; fpop + |7: + | .if X64WIN + | fstp qword [rsp+8] // Use scratch area. + | movsd xmm0, qword [rsp+8] + | .else + | fstp qword [rsp-8] // Use red zone. + | movsd xmm0, qword [rsp-8] + | .endif + | ret + |.else // x86 calling convention. + | .define fpmop, eax + |.if SSE + | mov fpmop, [esp+12] + | movsd xmm0, qword [esp+4] + | cmp fpmop, 1; je >1; ja >2 + | call ->vm_floor; jmp >7 + |1: ; call ->vm_ceil; jmp >7 + |2: ; cmp fpmop, 3; je >1; ja >2 + | call ->vm_trunc; jmp >7 + |1: + | sqrtsd xmm0, xmm0 + |7: + | movsd qword [esp+4], xmm0 // Overwrite callee-owned args. + | fld qword [esp+4] + | ret + |2: ; fld qword [esp+4] + | cmp fpmop, 5; jb ->vm_exp_x87; je ->vm_exp2_x87 + |2: ; cmp fpmop, 7; je >1; ja >2 + | fldln2; fxch; fyl2x; ret + |1: ; fld1; fxch; fyl2x; ret + |2: ; cmp fpmop, 9; je >1; ja >2 + | fldlg2; fxch; fyl2x; ret + |1: ; fsin; ret + |2: ; cmp fpmop, 11; je >1; ja >9 + | fcos; ret + |1: ; fptan; fpop; ret + |.else + | mov fpmop, [esp+12] + | fld qword [esp+4] + | cmp fpmop, 1; jb ->vm_floor; je ->vm_ceil + | cmp fpmop, 3; jb ->vm_trunc; ja >2 + | fsqrt; ret + |2: ; cmp fpmop, 5; jb ->vm_exp_x87; je ->vm_exp2_x87 + | cmp fpmop, 7; je >1; ja >2 + | fldln2; fxch; fyl2x; ret + |1: ; fld1; fxch; fyl2x; ret + |2: ; cmp fpmop, 9; je >1; ja >2 + | fldlg2; fxch; fyl2x; ret + |1: ; fsin; ret + |2: ; cmp fpmop, 11; je >1; ja >9 + | fcos; ret + |1: ; fptan; fpop; ret + |.endif + |.endif + |9: ; int3 // Bad fpm. + |.endif + | + |// Callable from C: double lj_vm_foldarith(double x, double y, int op) + |// Compute x op y for basic arithmetic operators (+ - * / % ^ and unary -) + |// and basic math functions. ORDER ARITH + |->vm_foldarith: + |.if X64 + | + | .if X64WIN + | .define foldop, CARG3d + | .else + | .define foldop, CARG1d + | .endif + | cmp foldop, 1; je >1; ja >2 + | addsd xmm0, xmm1; ret + |1: ; subsd xmm0, xmm1; ret + |2: ; cmp foldop, 3; je >1; ja >2 + | mulsd xmm0, xmm1; ret + |1: ; divsd xmm0, xmm1; ret + |2: ; cmp foldop, 5; jb ->vm_mod; je ->vm_pow + | cmp foldop, 7; je >1; ja >2 + | sseconst_sign xmm1, RDa; xorps xmm0, xmm1; ret + |1: ; sseconst_abs xmm1, RDa; andps xmm0, xmm1; ret + |2: ; cmp foldop, 9; ja >2 + |.if X64WIN + | movsd qword [rsp+8], xmm0 // Use scratch area. + | movsd qword [rsp+16], xmm1 + | fld qword [rsp+8] + | fld qword [rsp+16] + |.else + | movsd qword [rsp-8], xmm0 // Use red zone. + | movsd qword [rsp-16], xmm1 + | fld qword [rsp-8] + | fld qword [rsp-16] + |.endif + | je >1 + | fpatan + |7: + |.if X64WIN + | fstp qword [rsp+8] // Use scratch area. + | movsd xmm0, qword [rsp+8] + |.else + | fstp qword [rsp-8] // Use red zone. + | movsd xmm0, qword [rsp-8] + |.endif + | ret + |1: ; fxch; fscale; fpop1; jmp <7 + |2: ; cmp foldop, 11; je >1; ja >9 + | minsd xmm0, xmm1; ret + |1: ; maxsd xmm0, xmm1; ret + |9: ; int3 // Bad op. + | + |.elif SSE // x86 calling convention with SSE ops. + | + | .define foldop, eax + | mov foldop, [esp+20] + | movsd xmm0, qword [esp+4] + | movsd xmm1, qword [esp+12] + | cmp foldop, 1; je >1; ja >2 + | addsd xmm0, xmm1 + |7: + | movsd qword [esp+4], xmm0 // Overwrite callee-owned args. + | fld qword [esp+4] + | ret + |1: ; subsd xmm0, xmm1; jmp <7 + |2: ; cmp foldop, 3; je >1; ja >2 + | mulsd xmm0, xmm1; jmp <7 + |1: ; divsd xmm0, xmm1; jmp <7 + |2: ; cmp foldop, 5 + | je >1; ja >2 + | call ->vm_mod; jmp <7 + |1: ; pop edx; call ->vm_pow; push edx; jmp <7 // Writes to scratch area. + |2: ; cmp foldop, 7; je >1; ja >2 + | sseconst_sign xmm1, RDa; xorps xmm0, xmm1; jmp <7 + |1: ; sseconst_abs xmm1, RDa; andps xmm0, xmm1; jmp <7 + |2: ; cmp foldop, 9; ja >2 + | fld qword [esp+4] // Reload from stack + | fld qword [esp+12] + | je >1 + | fpatan; ret + |1: ; fxch; fscale; fpop1; ret + |2: ; cmp foldop, 11; je >1; ja >9 + | minsd xmm0, xmm1; jmp <7 + |1: ; maxsd xmm0, xmm1; jmp <7 + |9: ; int3 // Bad op. + | + |.else // x86 calling convention with x87 ops. + | + | mov eax, [esp+20] + | fld qword [esp+4] + | fld qword [esp+12] + | cmp eax, 1; je >1; ja >2 + | faddp st1; ret + |1: ; fsubp st1; ret + |2: ; cmp eax, 3; je >1; ja >2 + | fmulp st1; ret + |1: ; fdivp st1; ret + |2: ; cmp eax, 5; jb ->vm_mod; je ->vm_pow + | cmp eax, 7; je >1; ja >2 + | fpop; fchs; ret + |1: ; fpop; fabs; ret + |2: ; cmp eax, 9; je >1; ja >2 + | fpatan; ret + |1: ; fxch; fscale; fpop1; ret + |2: ; cmp eax, 11; je >1; ja >9 + | fucomi st1; fcmovnbe st1; fpop1; ret + |1: ; fucomi st1; fcmovbe st1; fpop1; ret + |9: ; int3 // Bad op. + | + |.endif + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |// int lj_vm_cpuid(uint32_t f, uint32_t res[4]) + |->vm_cpuid: + |.if X64 + | mov eax, CARG1d + | .if X64WIN; push rsi; mov rsi, CARG2; .endif + | push rbx + | cpuid + | mov [rsi], eax + | mov [rsi+4], ebx + | mov [rsi+8], ecx + | mov [rsi+12], edx + | pop rbx + | .if X64WIN; pop rsi; .endif + | ret + |.else + | pushfd + | pop edx + | mov ecx, edx + | xor edx, 0x00200000 // Toggle ID bit in flags. + | push edx + | popfd + | pushfd + | pop edx + | xor eax, eax // Zero means no features supported. + | cmp ecx, edx + | jz >1 // No ID toggle means no CPUID support. + | mov eax, [esp+4] // Argument 1 is function number. + | push edi + | push ebx + | cpuid + | mov edi, [esp+16] // Argument 2 is result area. + | mov [edi], eax + | mov [edi+4], ebx + | mov [edi+8], ecx + | mov [edi+12], edx + | pop ebx + | pop edi + |1: + | ret + |.endif + | + |//----------------------------------------------------------------------- + |//-- Assertions --------------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->assert_bad_for_arg_type: +#ifdef LUA_USE_ASSERT + | int3 +#endif + | int3 + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Handler for callback functions. Callback slot number in ah/al. + |->vm_ffi_callback: + |.if FFI + |.type CTSTATE, CTState, PC + |.if not X64 + | sub esp, 16 // Leave room for SAVE_ERRF etc. + |.endif + | saveregs_ // ebp/rbp already saved. ebp now holds global_State *. + | lea DISPATCH, [ebp+GG_G2DISP] + | mov CTSTATE, GL:ebp->ctype_state + | movzx eax, ax + | mov CTSTATE->cb.slot, eax + |.if X64 + | mov CTSTATE->cb.gpr[0], CARG1 + | mov CTSTATE->cb.gpr[1], CARG2 + | mov CTSTATE->cb.gpr[2], CARG3 + | mov CTSTATE->cb.gpr[3], CARG4 + | movsd qword CTSTATE->cb.fpr[0], xmm0 + | movsd qword CTSTATE->cb.fpr[1], xmm1 + | movsd qword CTSTATE->cb.fpr[2], xmm2 + | movsd qword CTSTATE->cb.fpr[3], xmm3 + |.if X64WIN + | lea rax, [rsp+CFRAME_SIZE+4*8] + |.else + | lea rax, [rsp+CFRAME_SIZE] + | mov CTSTATE->cb.gpr[4], CARG5 + | mov CTSTATE->cb.gpr[5], CARG6 + | movsd qword CTSTATE->cb.fpr[4], xmm4 + | movsd qword CTSTATE->cb.fpr[5], xmm5 + | movsd qword CTSTATE->cb.fpr[6], xmm6 + | movsd qword CTSTATE->cb.fpr[7], xmm7 + |.endif + | mov CTSTATE->cb.stack, rax + | mov CARG2, rsp + |.else + | lea eax, [esp+CFRAME_SIZE+16] + | mov CTSTATE->cb.gpr[0], FCARG1 + | mov CTSTATE->cb.gpr[1], FCARG2 + | mov CTSTATE->cb.stack, eax + | mov FCARG1, [esp+CFRAME_SIZE+12] // Move around misplaced retaddr/ebp. + | mov FCARG2, [esp+CFRAME_SIZE+8] + | mov SAVE_RET, FCARG1 + | mov SAVE_R4, FCARG2 + | mov FCARG2, esp + |.endif + | mov SAVE_PC, CTSTATE // Any value outside of bytecode is ok. + | mov FCARG1, CTSTATE + | call extern lj_ccallback_enter@8 // (CTState *cts, void *cf) + | // lua_State * returned in eax (RD). + | set_vmstate INTERP + | mov BASE, L:RD->base + | mov RD, L:RD->top + | sub RD, BASE + | mov LFUNC:RB, [BASE-8] + | shr RD, 3 + | add RD, 1 + | ins_callt + |.endif + | + |->cont_ffi_callback: // Return from FFI callback. + |.if FFI + | mov L:RA, SAVE_L + | mov CTSTATE, [DISPATCH+DISPATCH_GL(ctype_state)] + | mov aword CTSTATE->L, L:RAa + | mov L:RA->base, BASE + | mov L:RA->top, RB + | mov FCARG1, CTSTATE + | mov FCARG2, RC + | call extern lj_ccallback_leave@8 // (CTState *cts, TValue *o) + |.if X64 + | mov rax, CTSTATE->cb.gpr[0] + | movsd xmm0, qword CTSTATE->cb.fpr[0] + | jmp ->vm_leave_unw + |.else + | mov L:RB, SAVE_L + | mov eax, CTSTATE->cb.gpr[0] + | mov edx, CTSTATE->cb.gpr[1] + | cmp dword CTSTATE->cb.gpr[2], 1 + | jb >7 + | je >6 + | fld qword CTSTATE->cb.fpr[0].d + | jmp >7 + |6: + | fld dword CTSTATE->cb.fpr[0].f + |7: + | mov ecx, L:RB->top + | movzx ecx, word [ecx+6] // Get stack adjustment and copy up. + | mov SAVE_L, ecx // Must be one slot above SAVE_RET + | restoreregs + | pop ecx // Move return addr from SAVE_RET. + | add esp, [esp] // Adjust stack. + | add esp, 16 + | push ecx + | ret + |.endif + |.endif + | + |->vm_ffi_call@4: // Call C function via FFI. + | // Caveat: needs special frame unwinding, see below. + |.if FFI + |.if X64 + | .type CCSTATE, CCallState, rbx + | push rbp; mov rbp, rsp; push rbx; mov CCSTATE, CARG1 + |.else + | .type CCSTATE, CCallState, ebx + | push ebp; mov ebp, esp; push ebx; mov CCSTATE, FCARG1 + |.endif + | + | // Readjust stack. + |.if X64 + | mov eax, CCSTATE->spadj + | sub rsp, rax + |.else + | sub esp, CCSTATE->spadj + |.if WIN + | mov CCSTATE->spadj, esp + |.endif + |.endif + | + | // Copy stack slots. + | movzx ecx, byte CCSTATE->nsp + | sub ecx, 1 + | js >2 + |1: + |.if X64 + | mov rax, [CCSTATE+rcx*8+offsetof(CCallState, stack)] + | mov [rsp+rcx*8+CCALL_SPS_EXTRA*8], rax + |.else + | mov eax, [CCSTATE+ecx*4+offsetof(CCallState, stack)] + | mov [esp+ecx*4], eax + |.endif + | sub ecx, 1 + | jns <1 + |2: + | + |.if X64 + | movzx eax, byte CCSTATE->nfpr + | mov CARG1, CCSTATE->gpr[0] + | mov CARG2, CCSTATE->gpr[1] + | mov CARG3, CCSTATE->gpr[2] + | mov CARG4, CCSTATE->gpr[3] + |.if not X64WIN + | mov CARG5, CCSTATE->gpr[4] + | mov CARG6, CCSTATE->gpr[5] + |.endif + | test eax, eax; jz >5 + | movaps xmm0, CCSTATE->fpr[0] + | movaps xmm1, CCSTATE->fpr[1] + | movaps xmm2, CCSTATE->fpr[2] + | movaps xmm3, CCSTATE->fpr[3] + |.if not X64WIN + | cmp eax, 4; jbe >5 + | movaps xmm4, CCSTATE->fpr[4] + | movaps xmm5, CCSTATE->fpr[5] + | movaps xmm6, CCSTATE->fpr[6] + | movaps xmm7, CCSTATE->fpr[7] + |.endif + |5: + |.else + | mov FCARG1, CCSTATE->gpr[0] + | mov FCARG2, CCSTATE->gpr[1] + |.endif + | + | call aword CCSTATE->func + | + |.if X64 + | mov CCSTATE->gpr[0], rax + | movaps CCSTATE->fpr[0], xmm0 + |.if not X64WIN + | mov CCSTATE->gpr[1], rdx + | movaps CCSTATE->fpr[1], xmm1 + |.endif + |.else + | mov CCSTATE->gpr[0], eax + | mov CCSTATE->gpr[1], edx + | cmp byte CCSTATE->resx87, 1 + | jb >7 + | je >6 + | fstp qword CCSTATE->fpr[0].d[0] + | jmp >7 + |6: + | fstp dword CCSTATE->fpr[0].f[0] + |7: + |.if WIN + | sub CCSTATE->spadj, esp + |.endif + |.endif + | + |.if X64 + | mov rbx, [rbp-8]; leave; ret + |.else + | mov ebx, [ebp-4]; leave; ret + |.endif + |.endif + |// Note: vm_ffi_call must be the last function in this object file! + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |// Note: aligning all instructions does not pay off. + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + |.macro jmp_comp, lt, ge, le, gt, target + ||switch (op) { + ||case BC_ISLT: + | lt target + ||break; + ||case BC_ISGE: + | ge target + ||break; + ||case BC_ISLE: + | le target + ||break; + ||case BC_ISGT: + | gt target + ||break; + ||default: break; /* Shut up GCC. */ + ||} + |.endmacro + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1, RD = src2, JMP with RD = target + | ins_AD + |.if DUALNUM + | checkint RA, >7 + | checkint RD, >8 + | mov RB, dword [BASE+RA*8] + | add PC, 4 + | cmp RB, dword [BASE+RD*8] + | jmp_comp jge, jl, jg, jle, >9 + |6: + | movzx RD, PC_RD + | branchPC RD + |9: + | ins_next + | + |7: // RA is not an integer. + | ja ->vmeta_comp + | // RA is a number. + | cmp dword [BASE+RD*8+4], LJ_TISNUM; jb >1; jne ->vmeta_comp + | // RA is a number, RD is an integer. + |.if SSE + | cvtsi2sd xmm0, dword [BASE+RD*8] + | jmp >2 + |.else + | fld qword [BASE+RA*8] + | fild dword [BASE+RD*8] + | jmp >3 + |.endif + | + |8: // RA is an integer, RD is not an integer. + | ja ->vmeta_comp + | // RA is an integer, RD is a number. + |.if SSE + | cvtsi2sd xmm1, dword [BASE+RA*8] + | movsd xmm0, qword [BASE+RD*8] + | add PC, 4 + | ucomisd xmm0, xmm1 + | jmp_comp jbe, ja, jb, jae, <9 + | jmp <6 + |.else + | fild dword [BASE+RA*8] + | jmp >2 + |.endif + |.else + | checknum RA, ->vmeta_comp + | checknum RD, ->vmeta_comp + |.endif + |.if SSE + |1: + | movsd xmm0, qword [BASE+RD*8] + |2: + | add PC, 4 + | ucomisd xmm0, qword [BASE+RA*8] + |3: + |.else + |1: + | fld qword [BASE+RA*8] // Reverse order, i.e like cmp D, A. + |2: + | fld qword [BASE+RD*8] + |3: + | add PC, 4 + | fcomparepp + |.endif + | // Unordered: all of ZF CF PF set, ordered: PF clear. + | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. + |.if DUALNUM + | jmp_comp jbe, ja, jb, jae, <9 + | jmp <6 + |.else + | jmp_comp jbe, ja, jb, jae, >1 + | movzx RD, PC_RD + | branchPC RD + |1: + | ins_next + |.endif + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | ins_AD // RA = src1, RD = src2, JMP with RD = target + | mov RB, [BASE+RD*8+4] + | add PC, 4 + |.if DUALNUM + | cmp RB, LJ_TISNUM; jne >7 + | checkint RA, >8 + | mov RB, dword [BASE+RD*8] + | cmp RB, dword [BASE+RA*8] + if (vk) { + | jne >9 + } else { + | je >9 + } + | movzx RD, PC_RD + | branchPC RD + |9: + | ins_next + | + |7: // RD is not an integer. + | ja >5 + | // RD is a number. + | cmp dword [BASE+RA*8+4], LJ_TISNUM; jb >1; jne >5 + | // RD is a number, RA is an integer. + |.if SSE + | cvtsi2sd xmm0, dword [BASE+RA*8] + |.else + | fild dword [BASE+RA*8] + |.endif + | jmp >2 + | + |8: // RD is an integer, RA is not an integer. + | ja >5 + | // RD is an integer, RA is a number. + |.if SSE + | cvtsi2sd xmm0, dword [BASE+RD*8] + | ucomisd xmm0, qword [BASE+RA*8] + |.else + | fild dword [BASE+RD*8] + | fld qword [BASE+RA*8] + |.endif + | jmp >4 + | + |.else + | cmp RB, LJ_TISNUM; jae >5 + | checknum RA, >5 + |.endif + |.if SSE + |1: + | movsd xmm0, qword [BASE+RA*8] + |2: + | ucomisd xmm0, qword [BASE+RD*8] + |4: + |.else + |1: + | fld qword [BASE+RA*8] + |2: + | fld qword [BASE+RD*8] + |4: + | fcomparepp + |.endif + iseqne_fp: + if (vk) { + | jp >2 // Unordered means not equal. + | jne >2 + } else { + | jp >2 // Unordered means not equal. + | je >1 + } + iseqne_end: + if (vk) { + |1: // EQ: Branch to the target. + | movzx RD, PC_RD + | branchPC RD + |2: // NE: Fallthrough to next instruction. + |.if not FFI + |3: + |.endif + } else { + |.if not FFI + |3: + |.endif + |2: // NE: Branch to the target. + | movzx RD, PC_RD + | branchPC RD + |1: // EQ: Fallthrough to next instruction. + } + if (LJ_DUALNUM && (op == BC_ISEQV || op == BC_ISNEV || + op == BC_ISEQN || op == BC_ISNEN)) { + | jmp <9 + } else { + | ins_next + } + | + if (op == BC_ISEQV || op == BC_ISNEV) { + |5: // Either or both types are not numbers. + |.if FFI + | cmp RB, LJ_TCDATA; je ->vmeta_equal_cd + | checktp RA, LJ_TCDATA; je ->vmeta_equal_cd + |.endif + | checktp RA, RB // Compare types. + | jne <2 // Not the same type? + | cmp RB, LJ_TISPRI + | jae <1 // Same type and primitive type? + | + | // Same types and not a primitive type. Compare GCobj or pvalue. + | mov RA, [BASE+RA*8] + | mov RD, [BASE+RD*8] + | cmp RA, RD + | je <1 // Same GCobjs or pvalues? + | cmp RB, LJ_TISTABUD + | ja <2 // Different objects and not table/ud? + |.if X64 + | cmp RB, LJ_TUDATA // And not 64 bit lightuserdata. + | jb <2 + |.endif + | + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | mov TAB:RB, TAB:RA->metatable + | test TAB:RB, TAB:RB + | jz <2 // No metatable? + | test byte TAB:RB->nomm, 1<vmeta_equal // Handle __eq metamethod. + } else { + |.if FFI + |3: + | cmp RB, LJ_TCDATA + if (LJ_DUALNUM && vk) { + | jne <9 + } else { + | jne <2 + } + | jmp ->vmeta_equal_cd + |.endif + } + break; + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | ins_AND // RA = src, RD = str const, JMP with RD = target + | mov RB, [BASE+RA*8+4] + | add PC, 4 + | cmp RB, LJ_TSTR; jne >3 + | mov RA, [BASE+RA*8] + | cmp RA, [KBASE+RD*4] + iseqne_test: + if (vk) { + | jne >2 + } else { + | je >1 + } + goto iseqne_end; + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | ins_AD // RA = src, RD = num const, JMP with RD = target + | mov RB, [BASE+RA*8+4] + | add PC, 4 + |.if DUALNUM + | cmp RB, LJ_TISNUM; jne >7 + | cmp dword [KBASE+RD*8+4], LJ_TISNUM; jne >8 + | mov RB, dword [KBASE+RD*8] + | cmp RB, dword [BASE+RA*8] + if (vk) { + | jne >9 + } else { + | je >9 + } + | movzx RD, PC_RD + | branchPC RD + |9: + | ins_next + | + |7: // RA is not an integer. + | ja >3 + | // RA is a number. + | cmp dword [KBASE+RD*8+4], LJ_TISNUM; jb >1 + | // RA is a number, RD is an integer. + |.if SSE + | cvtsi2sd xmm0, dword [KBASE+RD*8] + |.else + | fild dword [KBASE+RD*8] + |.endif + | jmp >2 + | + |8: // RA is an integer, RD is a number. + |.if SSE + | cvtsi2sd xmm0, dword [BASE+RA*8] + | ucomisd xmm0, qword [KBASE+RD*8] + |.else + | fild dword [BASE+RA*8] + | fld qword [KBASE+RD*8] + |.endif + | jmp >4 + |.else + | cmp RB, LJ_TISNUM; jae >3 + |.endif + |.if SSE + |1: + | movsd xmm0, qword [KBASE+RD*8] + |2: + | ucomisd xmm0, qword [BASE+RA*8] + |4: + |.else + |1: + | fld qword [KBASE+RD*8] + |2: + | fld qword [BASE+RA*8] + |4: + | fcomparepp + |.endif + goto iseqne_fp; + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | ins_AND // RA = src, RD = primitive type (~), JMP with RD = target + | mov RB, [BASE+RA*8+4] + | add PC, 4 + | cmp RB, RD + if (!LJ_HASFFI) goto iseqne_test; + if (vk) { + | jne >3 + | movzx RD, PC_RD + | branchPC RD + |2: + | ins_next + |3: + | cmp RB, LJ_TCDATA; jne <2 + | jmp ->vmeta_equal_cd + } else { + | je >2 + | cmp RB, LJ_TCDATA; je ->vmeta_equal_cd + | movzx RD, PC_RD + | branchPC RD + |2: + | ins_next + } + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | ins_AD // RA = dst or unused, RD = src, JMP with RD = target + | mov RB, [BASE+RD*8+4] + | add PC, 4 + | cmp RB, LJ_TISTRUECOND + if (op == BC_IST || op == BC_ISTC) { + | jae >1 + } else { + | jb >1 + } + if (op == BC_ISTC || op == BC_ISFC) { + | mov [BASE+RA*8+4], RB + | mov RB, [BASE+RD*8] + | mov [BASE+RA*8], RB + } + | movzx RD, PC_RD + | branchPC RD + |1: // Fallthrough to the next instruction. + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | ins_AD // RA = dst, RD = src + |.if X64 + | mov RBa, [BASE+RD*8] + | mov [BASE+RA*8], RBa + |.else + | mov RB, [BASE+RD*8+4] + | mov RD, [BASE+RD*8] + | mov [BASE+RA*8+4], RB + | mov [BASE+RA*8], RD + |.endif + | ins_next_ + break; + case BC_NOT: + | ins_AD // RA = dst, RD = src + | xor RB, RB + | checktp RD, LJ_TISTRUECOND + | adc RB, LJ_TTRUE + | mov [BASE+RA*8+4], RB + | ins_next + break; + case BC_UNM: + | ins_AD // RA = dst, RD = src + |.if DUALNUM + | checkint RD, >5 + | mov RB, [BASE+RD*8] + | neg RB + | jo >4 + | mov dword [BASE+RA*8+4], LJ_TISNUM + | mov dword [BASE+RA*8], RB + |9: + | ins_next + |4: + | mov dword [BASE+RA*8+4], 0x41e00000 // 2^31. + | mov dword [BASE+RA*8], 0 + | jmp <9 + |5: + | ja ->vmeta_unm + |.else + | checknum RD, ->vmeta_unm + |.endif + |.if SSE + | movsd xmm0, qword [BASE+RD*8] + | sseconst_sign xmm1, RDa + | xorps xmm0, xmm1 + | movsd qword [BASE+RA*8], xmm0 + |.else + | fld qword [BASE+RD*8] + | fchs + | fstp qword [BASE+RA*8] + |.endif + |.if DUALNUM + | jmp <9 + |.else + | ins_next + |.endif + break; + case BC_LEN: + | ins_AD // RA = dst, RD = src + | checkstr RD, >2 + | mov STR:RD, [BASE+RD*8] + |.if DUALNUM + | mov RD, dword STR:RD->len + |1: + | mov dword [BASE+RA*8+4], LJ_TISNUM + | mov dword [BASE+RA*8], RD + |.elif SSE + | xorps xmm0, xmm0 + | cvtsi2sd xmm0, dword STR:RD->len + |1: + | movsd qword [BASE+RA*8], xmm0 + |.else + | fild dword STR:RD->len + |1: + | fstp qword [BASE+RA*8] + |.endif + | ins_next + |2: + | checktab RD, ->vmeta_len + | mov TAB:FCARG1, [BASE+RD*8] +#if LJ_52 + | mov TAB:RB, TAB:FCARG1->metatable + | cmp TAB:RB, 0 + | jnz >9 + |3: +#endif + |->BC_LEN_Z: + | mov RB, BASE // Save BASE. + | call extern lj_tab_len@4 // (GCtab *t) + | // Length of table returned in eax (RD). + |.if DUALNUM + | // Nothing to do. + |.elif SSE + | cvtsi2sd xmm0, RD + |.else + | mov ARG1, RD + | fild ARG1 + |.endif + | mov BASE, RB // Restore BASE. + | movzx RA, PC_RA + | jmp <1 +#if LJ_52 + |9: // Check for __len. + | test byte TAB:RB->nomm, 1<vmeta_len // 'no __len' flag NOT set: check. +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithpre, x87ins, sseins, ssereg + | ins_ABC + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | checknum RB, ->vmeta_arith_vn + | .if DUALNUM + | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_vn + | .endif + | .if SSE + | movsd xmm0, qword [BASE+RB*8] + | sseins ssereg, qword [KBASE+RC*8] + | .else + | fld qword [BASE+RB*8] + | x87ins qword [KBASE+RC*8] + | .endif + || break; + ||case 1: + | checknum RB, ->vmeta_arith_nv + | .if DUALNUM + | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_nv + | .endif + | .if SSE + | movsd xmm0, qword [KBASE+RC*8] + | sseins ssereg, qword [BASE+RB*8] + | .else + | fld qword [KBASE+RC*8] + | x87ins qword [BASE+RB*8] + | .endif + || break; + ||default: + | checknum RB, ->vmeta_arith_vv + | checknum RC, ->vmeta_arith_vv + | .if SSE + | movsd xmm0, qword [BASE+RB*8] + | sseins ssereg, qword [BASE+RC*8] + | .else + | fld qword [BASE+RB*8] + | x87ins qword [BASE+RC*8] + | .endif + || break; + ||} + |.endmacro + | + |.macro ins_arithdn, intins + | ins_ABC + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||switch (vk) { + ||case 0: + | checkint RB, ->vmeta_arith_vn + | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jne ->vmeta_arith_vn + | mov RB, [BASE+RB*8] + | intins RB, [KBASE+RC*8]; jo ->vmeta_arith_vno + || break; + ||case 1: + | checkint RB, ->vmeta_arith_nv + | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jne ->vmeta_arith_nv + | mov RC, [KBASE+RC*8] + | intins RC, [BASE+RB*8]; jo ->vmeta_arith_nvo + || break; + ||default: + | checkint RB, ->vmeta_arith_vv + | checkint RC, ->vmeta_arith_vv + | mov RB, [BASE+RB*8] + | intins RB, [BASE+RC*8]; jo ->vmeta_arith_vvo + || break; + ||} + | mov dword [BASE+RA*8+4], LJ_TISNUM + ||if (vk == 1) { + | mov dword [BASE+RA*8], RC + ||} else { + | mov dword [BASE+RA*8], RB + ||} + | ins_next + |.endmacro + | + |.macro ins_arithpost + |.if SSE + | movsd qword [BASE+RA*8], xmm0 + |.else + | fstp qword [BASE+RA*8] + |.endif + |.endmacro + | + |.macro ins_arith, x87ins, sseins + | ins_arithpre x87ins, sseins, xmm0 + | ins_arithpost + | ins_next + |.endmacro + | + |.macro ins_arith, intins, x87ins, sseins + |.if DUALNUM + | ins_arithdn intins + |.else + | ins_arith, x87ins, sseins + |.endif + |.endmacro + + | // RA = dst, RB = src1 or num const, RC = src2 or num const + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + | ins_arith add, fadd, addsd + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + | ins_arith sub, fsub, subsd + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arith imul, fmul, mulsd + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arith fdiv, divsd + break; + case BC_MODVN: + | ins_arithpre fld, movsd, xmm1 + |->BC_MODVN_Z: + | call ->vm_mod + | ins_arithpost + | ins_next + break; + case BC_MODNV: case BC_MODVV: + | ins_arithpre fld, movsd, xmm1 + | jmp ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. + break; + case BC_POW: + | ins_arithpre fld, movsd, xmm1 + | call ->vm_pow + | ins_arithpost + | ins_next + break; + + case BC_CAT: + | ins_ABC // RA = dst, RB = src_start, RC = src_end + |.if X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE + | lea CARG2d, [BASE+RC*8] + | mov CARG3d, RC + | sub CARG3d, RB + |->BC_CAT_Z: + | mov L:RB, L:CARG1d + |.else + | lea RA, [BASE+RC*8] + | sub RC, RB + | mov ARG2, RA + | mov ARG3, RC + |->BC_CAT_Z: + | mov L:RB, SAVE_L + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_cat // (lua_State *L, TValue *top, int left) + | // NULL (finished) or TValue * (metamethod) returned in eax (RC). + | mov BASE, L:RB->base + | test RC, RC + | jnz ->vmeta_binop + | movzx RB, PC_RB // Copy result to Stk[RA] from Stk[RB]. + | movzx RA, PC_RA + |.if X64 + | mov RCa, [BASE+RB*8] + | mov [BASE+RA*8], RCa + |.else + | mov RC, [BASE+RB*8+4] + | mov RB, [BASE+RB*8] + | mov [BASE+RA*8+4], RC + | mov [BASE+RA*8], RB + |.endif + | ins_next + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | ins_AND // RA = dst, RD = str const (~) + | mov RD, [KBASE+RD*4] + | mov dword [BASE+RA*8+4], LJ_TSTR + | mov [BASE+RA*8], RD + | ins_next + break; + case BC_KCDATA: + |.if FFI + | ins_AND // RA = dst, RD = cdata const (~) + | mov RD, [KBASE+RD*4] + | mov dword [BASE+RA*8+4], LJ_TCDATA + | mov [BASE+RA*8], RD + | ins_next + |.endif + break; + case BC_KSHORT: + | ins_AD // RA = dst, RD = signed int16 literal + |.if DUALNUM + | movsx RD, RDW + | mov dword [BASE+RA*8+4], LJ_TISNUM + | mov dword [BASE+RA*8], RD + |.elif SSE + | movsx RD, RDW // Sign-extend literal. + | cvtsi2sd xmm0, RD + | movsd qword [BASE+RA*8], xmm0 + |.else + | fild PC_RD // Refetch signed RD from instruction. + | fstp qword [BASE+RA*8] + |.endif + | ins_next + break; + case BC_KNUM: + | ins_AD // RA = dst, RD = num const + |.if SSE + | movsd xmm0, qword [KBASE+RD*8] + | movsd qword [BASE+RA*8], xmm0 + |.else + | fld qword [KBASE+RD*8] + | fstp qword [BASE+RA*8] + |.endif + | ins_next + break; + case BC_KPRI: + | ins_AND // RA = dst, RD = primitive type (~) + | mov [BASE+RA*8+4], RD + | ins_next + break; + case BC_KNIL: + | ins_AD // RA = dst_start, RD = dst_end + | lea RA, [BASE+RA*8+12] + | lea RD, [BASE+RD*8+4] + | mov RB, LJ_TNIL + | mov [RA-8], RB // Sets minimum 2 slots. + |1: + | mov [RA], RB + | add RA, 8 + | cmp RA, RD + | jbe <1 + | ins_next + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | ins_AD // RA = dst, RD = upvalue # + | mov LFUNC:RB, [BASE-8] + | mov UPVAL:RB, [LFUNC:RB+RD*4+offsetof(GCfuncL, uvptr)] + | mov RB, UPVAL:RB->v + |.if X64 + | mov RDa, [RB] + | mov [BASE+RA*8], RDa + |.else + | mov RD, [RB+4] + | mov RB, [RB] + | mov [BASE+RA*8+4], RD + | mov [BASE+RA*8], RB + |.endif + | ins_next + break; + case BC_USETV: +#define TV2MARKOFS \ + ((int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)) + | ins_AD // RA = upvalue #, RD = src + | mov LFUNC:RB, [BASE-8] + | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] + | cmp byte UPVAL:RB->closed, 0 + | mov RB, UPVAL:RB->v + | mov RA, [BASE+RD*8] + | mov RD, [BASE+RD*8+4] + | mov [RB], RA + | mov [RB+4], RD + | jz >1 + | // Check barrier for closed upvalue. + | test byte [RB+TV2MARKOFS], LJ_GC_BLACK // isblack(uv) + | jnz >2 + |1: + | ins_next + | + |2: // Upvalue is black. Check if new value is collectable and white. + | sub RD, LJ_TISGCV + | cmp RD, LJ_TNUMX - LJ_TISGCV // tvisgcv(v) + | jbe <1 + | test byte GCOBJ:RA->gch.marked, LJ_GC_WHITES // iswhite(v) + | jz <1 + | // Crossed a write barrier. Move the barrier forward. + |.if X64 and not X64WIN + | mov FCARG2, RB + | mov RB, BASE // Save BASE. + |.else + | xchg FCARG2, RB // Save BASE (FCARG2 == BASE). + |.endif + | lea GL:FCARG1, [DISPATCH+GG_DISP2G] + | call extern lj_gc_barrieruv@8 // (global_State *g, TValue *tv) + | mov BASE, RB // Restore BASE. + | jmp <1 + break; +#undef TV2MARKOFS + case BC_USETS: + | ins_AND // RA = upvalue #, RD = str const (~) + | mov LFUNC:RB, [BASE-8] + | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] + | mov GCOBJ:RA, [KBASE+RD*4] + | mov RD, UPVAL:RB->v + | mov [RD], GCOBJ:RA + | mov dword [RD+4], LJ_TSTR + | test byte UPVAL:RB->marked, LJ_GC_BLACK // isblack(uv) + | jnz >2 + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | test byte GCOBJ:RA->gch.marked, LJ_GC_WHITES // iswhite(str) + | jz <1 + | cmp byte UPVAL:RB->closed, 0 + | jz <1 + | // Crossed a write barrier. Move the barrier forward. + | mov RB, BASE // Save BASE (FCARG2 == BASE). + | mov FCARG2, RD + | lea GL:FCARG1, [DISPATCH+GG_DISP2G] + | call extern lj_gc_barrieruv@8 // (global_State *g, TValue *tv) + | mov BASE, RB // Restore BASE. + | jmp <1 + break; + case BC_USETN: + | ins_AD // RA = upvalue #, RD = num const + | mov LFUNC:RB, [BASE-8] + |.if SSE + | movsd xmm0, qword [KBASE+RD*8] + |.else + | fld qword [KBASE+RD*8] + |.endif + | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] + | mov RA, UPVAL:RB->v + |.if SSE + | movsd qword [RA], xmm0 + |.else + | fstp qword [RA] + |.endif + | ins_next + break; + case BC_USETP: + | ins_AND // RA = upvalue #, RD = primitive type (~) + | mov LFUNC:RB, [BASE-8] + | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] + | mov RA, UPVAL:RB->v + | mov [RA+4], RD + | ins_next + break; + case BC_UCLO: + | ins_AD // RA = level, RD = target + | branchPC RD // Do this first to free RD. + | mov L:RB, SAVE_L + | cmp dword L:RB->openupval, 0 + | je >1 + | mov L:RB->base, BASE + | lea FCARG2, [BASE+RA*8] // Caveat: FCARG2 == BASE + | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA + | call extern lj_func_closeuv@8 // (lua_State *L, TValue *level) + | mov BASE, L:RB->base + |1: + | ins_next + break; + + case BC_FNEW: + | ins_AND // RA = dst, RD = proto const (~) (holding function prototype) + |.if X64 + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG3d, [BASE-8] + | mov CARG2d, [KBASE+RD*4] // Fetch GCproto *. + | mov CARG1d, L:RB + |.else + | mov LFUNC:RA, [BASE-8] + | mov PROTO:RD, [KBASE+RD*4] // Fetch GCproto *. + | mov L:RB, SAVE_L + | mov ARG3, LFUNC:RA + | mov ARG2, PROTO:RD + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | call extern lj_func_newL_gc + | // GCfuncL * returned in eax (RC). + | mov BASE, L:RB->base + | movzx RA, PC_RA + | mov [BASE+RA*8], LFUNC:RC + | mov dword [BASE+RA*8+4], LJ_TFUNC + | ins_next + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + | ins_AD // RA = dst, RD = hbits|asize + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov RA, [DISPATCH+DISPATCH_GL(gc.total)] + | cmp RA, [DISPATCH+DISPATCH_GL(gc.threshold)] + | mov SAVE_PC, PC + | jae >5 + |1: + |.if X64 + | mov CARG3d, RD + | and RD, 0x7ff + | shr CARG3d, 11 + |.else + | mov RA, RD + | and RD, 0x7ff + | shr RA, 11 + | mov ARG3, RA + |.endif + | cmp RD, 0x7ff + | je >3 + |2: + |.if X64 + | mov L:CARG1d, L:RB + | mov CARG2d, RD + |.else + | mov ARG1, L:RB + | mov ARG2, RD + |.endif + | call extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) + | // Table * returned in eax (RC). + | mov BASE, L:RB->base + | movzx RA, PC_RA + | mov [BASE+RA*8], TAB:RC + | mov dword [BASE+RA*8+4], LJ_TTAB + | ins_next + |3: // Turn 0x7ff into 0x801. + | mov RD, 0x801 + | jmp <2 + |5: + | mov L:FCARG1, L:RB + | call extern lj_gc_step_fixtop@4 // (lua_State *L) + | movzx RD, PC_RD + | jmp <1 + break; + case BC_TDUP: + | ins_AND // RA = dst, RD = table const (~) (holding template table) + | mov L:RB, SAVE_L + | mov RA, [DISPATCH+DISPATCH_GL(gc.total)] + | mov SAVE_PC, PC + | cmp RA, [DISPATCH+DISPATCH_GL(gc.threshold)] + | mov L:RB->base, BASE + | jae >3 + |2: + | mov TAB:FCARG2, [KBASE+RD*4] // Caveat: FCARG2 == BASE + | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA + | call extern lj_tab_dup@8 // (lua_State *L, Table *kt) + | // Table * returned in eax (RC). + | mov BASE, L:RB->base + | movzx RA, PC_RA + | mov [BASE+RA*8], TAB:RC + | mov dword [BASE+RA*8+4], LJ_TTAB + | ins_next + |3: + | mov L:FCARG1, L:RB + | call extern lj_gc_step_fixtop@4 // (lua_State *L) + | movzx RD, PC_RD // Need to reload RD. + | not RDa + | jmp <2 + break; + + case BC_GGET: + | ins_AND // RA = dst, RD = str const (~) + | mov LFUNC:RB, [BASE-8] + | mov TAB:RB, LFUNC:RB->env + | mov STR:RC, [KBASE+RD*4] + | jmp ->BC_TGETS_Z + break; + case BC_GSET: + | ins_AND // RA = src, RD = str const (~) + | mov LFUNC:RB, [BASE-8] + | mov TAB:RB, LFUNC:RB->env + | mov STR:RC, [KBASE+RD*4] + | jmp ->BC_TSETS_Z + break; + + case BC_TGETV: + | ins_ABC // RA = dst, RB = table, RC = key + | checktab RB, ->vmeta_tgetv + | mov TAB:RB, [BASE+RB*8] + | + | // Integer key? + |.if DUALNUM + | checkint RC, >5 + | mov RC, dword [BASE+RC*8] + |.else + | // Convert number to int and back and compare. + | checknum RC, >5 + |.if SSE + | movsd xmm0, qword [BASE+RC*8] + | cvtsd2si RC, xmm0 + | cvtsi2sd xmm1, RC + | ucomisd xmm0, xmm1 + |.else + | fld qword [BASE+RC*8] + | fist ARG1 + | fild ARG1 + | fcomparepp + | mov RC, ARG1 + |.endif + | jne ->vmeta_tgetv // Generic numeric key? Use fallback. + |.endif + | cmp RC, TAB:RB->asize // Takes care of unordered, too. + | jae ->vmeta_tgetv // Not in array part? Use fallback. + | shl RC, 3 + | add RC, TAB:RB->array + | cmp dword [RC+4], LJ_TNIL // Avoid overwriting RB in fastpath. + | je >2 + | // Get array slot. + |.if X64 + | mov RBa, [RC] + | mov [BASE+RA*8], RBa + |.else + | mov RB, [RC] + | mov RC, [RC+4] + | mov [BASE+RA*8], RB + | mov [BASE+RA*8+4], RC + |.endif + |1: + | ins_next + | + |2: // Check for __index if table value is nil. + | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. + | jz >3 + | mov TAB:RA, TAB:RB->metatable + | test byte TAB:RA->nomm, 1<vmeta_tgetv // 'no __index' flag NOT set: check. + | movzx RA, PC_RA // Restore RA. + |3: + | mov dword [BASE+RA*8+4], LJ_TNIL + | jmp <1 + | + |5: // String key? + | checkstr RC, ->vmeta_tgetv + | mov STR:RC, [BASE+RC*8] + | jmp ->BC_TGETS_Z + break; + case BC_TGETS: + | ins_ABC // RA = dst, RB = table, RC = str const (~) + | not RCa + | mov STR:RC, [KBASE+RC*4] + | checktab RB, ->vmeta_tgets + | mov TAB:RB, [BASE+RB*8] + |->BC_TGETS_Z: // RB = GCtab *, RC = GCstr *, refetches PC_RA. + | mov RA, TAB:RB->hmask + | and RA, STR:RC->hash + | imul RA, #NODE + | add NODE:RA, TAB:RB->node + |1: + | cmp dword NODE:RA->key.it, LJ_TSTR + | jne >4 + | cmp dword NODE:RA->key.gcr, STR:RC + | jne >4 + | // Ok, key found. Assumes: offsetof(Node, val) == 0 + | cmp dword [RA+4], LJ_TNIL // Avoid overwriting RB in fastpath. + | je >5 // Key found, but nil value? + | movzx RC, PC_RA + | // Get node value. + |.if X64 + | mov RBa, [RA] + | mov [BASE+RC*8], RBa + |.else + | mov RB, [RA] + | mov RA, [RA+4] + | mov [BASE+RC*8], RB + | mov [BASE+RC*8+4], RA + |.endif + |2: + | ins_next + | + |3: + | movzx RC, PC_RA + | mov dword [BASE+RC*8+4], LJ_TNIL + | jmp <2 + | + |4: // Follow hash chain. + | mov NODE:RA, NODE:RA->next + | test NODE:RA, NODE:RA + | jnz <1 + | // End of hash chain: key not found, nil result. + | + |5: // Check for __index if table value is nil. + | mov TAB:RA, TAB:RB->metatable + | test TAB:RA, TAB:RA + | jz <3 // No metatable: done. + | test byte TAB:RA->nomm, 1<vmeta_tgets // Caveat: preserve STR:RC. + break; + case BC_TGETB: + | ins_ABC // RA = dst, RB = table, RC = byte literal + | checktab RB, ->vmeta_tgetb + | mov TAB:RB, [BASE+RB*8] + | cmp RC, TAB:RB->asize + | jae ->vmeta_tgetb + | shl RC, 3 + | add RC, TAB:RB->array + | cmp dword [RC+4], LJ_TNIL // Avoid overwriting RB in fastpath. + | je >2 + | // Get array slot. + |.if X64 + | mov RBa, [RC] + | mov [BASE+RA*8], RBa + |.else + | mov RB, [RC] + | mov RC, [RC+4] + | mov [BASE+RA*8], RB + | mov [BASE+RA*8+4], RC + |.endif + |1: + | ins_next + | + |2: // Check for __index if table value is nil. + | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. + | jz >3 + | mov TAB:RA, TAB:RB->metatable + | test byte TAB:RA->nomm, 1<vmeta_tgetb // 'no __index' flag NOT set: check. + | movzx RA, PC_RA // Restore RA. + |3: + | mov dword [BASE+RA*8+4], LJ_TNIL + | jmp <1 + break; + + case BC_TSETV: + | ins_ABC // RA = src, RB = table, RC = key + | checktab RB, ->vmeta_tsetv + | mov TAB:RB, [BASE+RB*8] + | + | // Integer key? + |.if DUALNUM + | checkint RC, >5 + | mov RC, dword [BASE+RC*8] + |.else + | // Convert number to int and back and compare. + | checknum RC, >5 + |.if SSE + | movsd xmm0, qword [BASE+RC*8] + | cvtsd2si RC, xmm0 + | cvtsi2sd xmm1, RC + | ucomisd xmm0, xmm1 + |.else + | fld qword [BASE+RC*8] + | fist ARG1 + | fild ARG1 + | fcomparepp + | mov RC, ARG1 + |.endif + | jne ->vmeta_tsetv // Generic numeric key? Use fallback. + |.endif + | cmp RC, TAB:RB->asize // Takes care of unordered, too. + | jae ->vmeta_tsetv + | shl RC, 3 + | add RC, TAB:RB->array + | cmp dword [RC+4], LJ_TNIL + | je >3 // Previous value is nil? + |1: + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jnz >7 + |2: // Set array slot. + |.if X64 + | mov RBa, [BASE+RA*8] + | mov [RC], RBa + |.else + | mov RB, [BASE+RA*8+4] + | mov RA, [BASE+RA*8] + | mov [RC+4], RB + | mov [RC], RA + |.endif + | ins_next + | + |3: // Check for __newindex if previous value is nil. + | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. + | jz <1 + | mov TAB:RA, TAB:RB->metatable + | test byte TAB:RA->nomm, 1<vmeta_tsetv // 'no __newindex' flag NOT set: check. + | movzx RA, PC_RA // Restore RA. + | jmp <1 + | + |5: // String key? + | checkstr RC, ->vmeta_tsetv + | mov STR:RC, [BASE+RC*8] + | jmp ->BC_TSETS_Z + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, RA + | movzx RA, PC_RA // Restore RA. + | jmp <2 + break; + case BC_TSETS: + | ins_ABC // RA = src, RB = table, RC = str const (~) + | not RCa + | mov STR:RC, [KBASE+RC*4] + | checktab RB, ->vmeta_tsets + | mov TAB:RB, [BASE+RB*8] + |->BC_TSETS_Z: // RB = GCtab *, RC = GCstr *, refetches PC_RA. + | mov RA, TAB:RB->hmask + | and RA, STR:RC->hash + | imul RA, #NODE + | mov byte TAB:RB->nomm, 0 // Clear metamethod cache. + | add NODE:RA, TAB:RB->node + |1: + | cmp dword NODE:RA->key.it, LJ_TSTR + | jne >5 + | cmp dword NODE:RA->key.gcr, STR:RC + | jne >5 + | // Ok, key found. Assumes: offsetof(Node, val) == 0 + | cmp dword [RA+4], LJ_TNIL + | je >4 // Previous value is nil? + |2: + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jnz >7 + |3: // Set node value. + | movzx RC, PC_RA + |.if X64 + | mov RBa, [BASE+RC*8] + | mov [RA], RBa + |.else + | mov RB, [BASE+RC*8+4] + | mov RC, [BASE+RC*8] + | mov [RA+4], RB + | mov [RA], RC + |.endif + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. + | jz <2 + | mov TMP1, RA // Save RA. + | mov TAB:RA, TAB:RB->metatable + | test byte TAB:RA->nomm, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. + | mov RA, TMP1 // Restore RA. + | jmp <2 + | + |5: // Follow hash chain. + | mov NODE:RA, NODE:RA->next + | test NODE:RA, NODE:RA + | jnz <1 + | // End of hash chain: key not found, add a new one. + | + | // But check for __newindex first. + | mov TAB:RA, TAB:RB->metatable + | test TAB:RA, TAB:RA + | jz >6 // No metatable: continue. + | test byte TAB:RA->nomm, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. + |6: + | mov TMP1, STR:RC + | mov TMP2, LJ_TSTR + | mov TMP3, TAB:RB // Save TAB:RB for us. + |.if X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE + | lea CARG3, TMP1 + | mov CARG2d, TAB:RB + | mov L:RB, L:CARG1d + |.else + | lea RC, TMP1 // Store temp. TValue in TMP1/TMP2. + | mov ARG2, TAB:RB + | mov L:RB, SAVE_L + | mov ARG3, RC + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) + | // Handles write barrier for the new key. TValue * returned in eax (RC). + | mov BASE, L:RB->base + | mov TAB:RB, TMP3 // Need TAB:RB for barrier. + | mov RA, eax + | jmp <2 // Must check write barrier for value. + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, RC // Destroys STR:RC. + | jmp <3 + break; + case BC_TSETB: + | ins_ABC // RA = src, RB = table, RC = byte literal + | checktab RB, ->vmeta_tsetb + | mov TAB:RB, [BASE+RB*8] + | cmp RC, TAB:RB->asize + | jae ->vmeta_tsetb + | shl RC, 3 + | add RC, TAB:RB->array + | cmp dword [RC+4], LJ_TNIL + | je >3 // Previous value is nil? + |1: + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jnz >7 + |2: // Set array slot. + |.if X64 + | mov RAa, [BASE+RA*8] + | mov [RC], RAa + |.else + | mov RB, [BASE+RA*8+4] + | mov RA, [BASE+RA*8] + | mov [RC+4], RB + | mov [RC], RA + |.endif + | ins_next + | + |3: // Check for __newindex if previous value is nil. + | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. + | jz <1 + | mov TAB:RA, TAB:RB->metatable + | test byte TAB:RA->nomm, 1<vmeta_tsetb // 'no __newindex' flag NOT set: check. + | movzx RA, PC_RA // Restore RA. + | jmp <1 + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, RA + | movzx RA, PC_RA // Restore RA. + | jmp <2 + break; + + case BC_TSETM: + | ins_AD // RA = base (table at base-1), RD = num const (start index) + | mov TMP1, KBASE // Need one more free register. + | mov KBASE, dword [KBASE+RD*8] // Integer constant is in lo-word. + |1: + | lea RA, [BASE+RA*8] + | mov TAB:RB, [RA-8] // Guaranteed to be a table. + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jnz >7 + |2: + | mov RD, MULTRES + | sub RD, 1 + | jz >4 // Nothing to copy? + | add RD, KBASE // Compute needed size. + | cmp RD, TAB:RB->asize + | ja >5 // Doesn't fit into array part? + | sub RD, KBASE + | shl KBASE, 3 + | add KBASE, TAB:RB->array + |3: // Copy result slots to table. + |.if X64 + | mov RBa, [RA] + | add RA, 8 + | mov [KBASE], RBa + |.else + | mov RB, [RA] + | mov [KBASE], RB + | mov RB, [RA+4] + | add RA, 8 + | mov [KBASE+4], RB + |.endif + | add KBASE, 8 + | sub RD, 1 + | jnz <3 + |4: + | mov KBASE, TMP1 + | ins_next + | + |5: // Need to resize array part. + |.if X64 + | mov L:CARG1d, SAVE_L + | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG2d, TAB:RB + | mov CARG3d, RD + | mov L:RB, L:CARG1d + |.else + | mov ARG2, TAB:RB + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov ARG3, RD + | mov ARG1, L:RB + |.endif + | mov SAVE_PC, PC + | call extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + | mov BASE, L:RB->base + | movzx RA, PC_RA // Restore RA. + | jmp <1 // Retry. + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:RB, RD + | jmp <2 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALL: case BC_CALLM: + | ins_A_C // RA = base, (RB = nresults+1,) RC = nargs+1 | extra_nargs + if (op == BC_CALLM) { + | add NARGS:RD, MULTRES + } + | cmp dword [BASE+RA*8+4], LJ_TFUNC + | mov LFUNC:RB, [BASE+RA*8] + | jne ->vmeta_call_ra + | lea BASE, [BASE+RA*8+8] + | ins_call + break; + + case BC_CALLMT: + | ins_AD // RA = base, RD = extra_nargs + | add NARGS:RD, MULTRES + | // Fall through. Assumes BC_CALLT follows and ins_AD is a no-op. + break; + case BC_CALLT: + | ins_AD // RA = base, RD = nargs+1 + | lea RA, [BASE+RA*8+8] + | mov KBASE, BASE // Use KBASE for move + vmeta_call hint. + | mov LFUNC:RB, [RA-8] + | cmp dword [RA-4], LJ_TFUNC + | jne ->vmeta_call + |->BC_CALLT_Z: + | mov PC, [BASE-4] + | test PC, FRAME_TYPE + | jnz >7 + |1: + | mov [BASE-8], LFUNC:RB // Copy function down, reloaded below. + | mov MULTRES, NARGS:RD + | sub NARGS:RD, 1 + | jz >3 + |2: // Move args down. + |.if X64 + | mov RBa, [RA] + | add RA, 8 + | mov [KBASE], RBa + |.else + | mov RB, [RA] + | mov [KBASE], RB + | mov RB, [RA+4] + | add RA, 8 + | mov [KBASE+4], RB + |.endif + | add KBASE, 8 + | sub NARGS:RD, 1 + | jnz <2 + | + | mov LFUNC:RB, [BASE-8] + |3: + | mov NARGS:RD, MULTRES + | cmp byte LFUNC:RB->ffid, 1 // (> FF_C) Calling a fast function? + | ja >5 + |4: + | ins_callt + | + |5: // Tailcall to a fast function. + | test PC, FRAME_TYPE // Lua frame below? + | jnz <4 + | movzx RA, PC_RA + | not RAa + | mov LFUNC:KBASE, [BASE+RA*8-8] // Need to prepare KBASE. + | mov KBASE, LFUNC:KBASE->pc + | mov KBASE, [KBASE+PC2PROTO(k)] + | jmp <4 + | + |7: // Tailcall from a vararg function. + | sub PC, FRAME_VARG + | test PC, FRAME_TYPEP + | jnz >8 // Vararg frame below? + | sub BASE, PC // Need to relocate BASE/KBASE down. + | mov KBASE, BASE + | mov PC, [BASE-4] + | jmp <1 + |8: + | add PC, FRAME_VARG + | jmp <1 + break; + + case BC_ITERC: + | ins_A // RA = base, (RB = nresults+1,) RC = nargs+1 (2+1) + | lea RA, [BASE+RA*8+8] // fb = base+1 + |.if X64 + | mov RBa, [RA-24] // Copy state. fb[0] = fb[-3]. + | mov RCa, [RA-16] // Copy control var. fb[1] = fb[-2]. + | mov [RA], RBa + | mov [RA+8], RCa + |.else + | mov RB, [RA-24] // Copy state. fb[0] = fb[-3]. + | mov RC, [RA-20] + | mov [RA], RB + | mov [RA+4], RC + | mov RB, [RA-16] // Copy control var. fb[1] = fb[-2]. + | mov RC, [RA-12] + | mov [RA+8], RB + | mov [RA+12], RC + |.endif + | mov LFUNC:RB, [RA-32] // Copy callable. fb[-1] = fb[-4] + | mov RC, [RA-28] + | mov [RA-8], LFUNC:RB + | mov [RA-4], RC + | cmp RC, LJ_TFUNC // Handle like a regular 2-arg call. + | mov NARGS:RD, 2+1 + | jne ->vmeta_call + | mov BASE, RA + | ins_call + break; + + case BC_ITERN: + | ins_A // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | mov TMP1, KBASE // Need two more free registers. + | mov TMP2, DISPATCH + | mov TAB:RB, [BASE+RA*8-16] + | mov RC, [BASE+RA*8-8] // Get index from control var. + | mov DISPATCH, TAB:RB->asize + | add PC, 4 + | mov KBASE, TAB:RB->array + |1: // Traverse array part. + | cmp RC, DISPATCH; jae >5 // Index points after array part? + | cmp dword [KBASE+RC*8+4], LJ_TNIL; je >4 + |.if DUALNUM + | mov dword [BASE+RA*8+4], LJ_TISNUM + | mov dword [BASE+RA*8], RC + |.elif SSE + | cvtsi2sd xmm0, RC + |.else + | fild dword [BASE+RA*8-8] + |.endif + | // Copy array slot to returned value. + |.if X64 + | mov RBa, [KBASE+RC*8] + | mov [BASE+RA*8+8], RBa + |.else + | mov RB, [KBASE+RC*8+4] + | mov [BASE+RA*8+12], RB + | mov RB, [KBASE+RC*8] + | mov [BASE+RA*8+8], RB + |.endif + | add RC, 1 + | // Return array index as a numeric key. + |.if DUALNUM + | // See above. + |.elif SSE + | movsd qword [BASE+RA*8], xmm0 + |.else + | fstp qword [BASE+RA*8] + |.endif + | mov [BASE+RA*8-8], RC // Update control var. + |2: + | movzx RD, PC_RD // Get target from ITERL. + | branchPC RD + |3: + | mov DISPATCH, TMP2 + | mov KBASE, TMP1 + | ins_next + | + |4: // Skip holes in array part. + | add RC, 1 + |.if not (DUALNUM or SSE) + | mov [BASE+RA*8-8], RC + |.endif + | jmp <1 + | + |5: // Traverse hash part. + | sub RC, DISPATCH + |6: + | cmp RC, TAB:RB->hmask; ja <3 // End of iteration? Branch to ITERL+1. + | imul KBASE, RC, #NODE + | add NODE:KBASE, TAB:RB->node + | cmp dword NODE:KBASE->val.it, LJ_TNIL; je >7 + | lea DISPATCH, [RC+DISPATCH+1] + | // Copy key and value from hash slot. + |.if X64 + | mov RBa, NODE:KBASE->key + | mov RCa, NODE:KBASE->val + | mov [BASE+RA*8], RBa + | mov [BASE+RA*8+8], RCa + |.else + | mov RB, NODE:KBASE->key.gcr + | mov RC, NODE:KBASE->key.it + | mov [BASE+RA*8], RB + | mov [BASE+RA*8+4], RC + | mov RB, NODE:KBASE->val.gcr + | mov RC, NODE:KBASE->val.it + | mov [BASE+RA*8+8], RB + | mov [BASE+RA*8+12], RC + |.endif + | mov [BASE+RA*8-8], DISPATCH + | jmp <2 + | + |7: // Skip holes in hash part. + | add RC, 1 + | jmp <6 + break; + + case BC_ISNEXT: + | ins_AD // RA = base, RD = target (points to ITERN) + | cmp dword [BASE+RA*8-20], LJ_TFUNC; jne >5 + | mov CFUNC:RB, [BASE+RA*8-24] + | cmp dword [BASE+RA*8-12], LJ_TTAB; jne >5 + | cmp dword [BASE+RA*8-4], LJ_TNIL; jne >5 + | cmp byte CFUNC:RB->ffid, FF_next_N; jne >5 + | branchPC RD + | mov dword [BASE+RA*8-8], 0 // Initialize control var. + | mov dword [BASE+RA*8-4], 0xfffe7fff + |1: + | ins_next + |5: // Despecialize bytecode if any of the checks fail. + | mov PC_OP, BC_JMP + | branchPC RD + | mov byte [PC], BC_ITERC + | jmp <1 + break; + + case BC_VARG: + | ins_ABC // RA = base, RB = nresults+1, RC = numparams + | mov TMP1, KBASE // Need one more free register. + | lea KBASE, [BASE+RC*8+(8+FRAME_VARG)] + | lea RA, [BASE+RA*8] + | sub KBASE, [BASE-4] + | // Note: KBASE may now be even _above_ BASE if nargs was < numparams. + | test RB, RB + | jz >5 // Copy all varargs? + | lea RB, [RA+RB*8-8] + | cmp KBASE, BASE // No vararg slots? + | jnb >2 + |1: // Copy vararg slots to destination slots. + |.if X64 + | mov RCa, [KBASE-8] + | add KBASE, 8 + | mov [RA], RCa + |.else + | mov RC, [KBASE-8] + | mov [RA], RC + | mov RC, [KBASE-4] + | add KBASE, 8 + | mov [RA+4], RC + |.endif + | add RA, 8 + | cmp RA, RB // All destination slots filled? + | jnb >3 + | cmp KBASE, BASE // No more vararg slots? + | jb <1 + |2: // Fill up remainder with nil. + | mov dword [RA+4], LJ_TNIL + | add RA, 8 + | cmp RA, RB + | jb <2 + |3: + | mov KBASE, TMP1 + | ins_next + | + |5: // Copy all varargs. + | mov MULTRES, 1 // MULTRES = 0+1 + | mov RC, BASE + | sub RC, KBASE + | jbe <3 // No vararg slots? + | mov RB, RC + | shr RB, 3 + | add RB, 1 + | mov MULTRES, RB // MULTRES = #varargs+1 + | mov L:RB, SAVE_L + | add RC, RA + | cmp RC, L:RB->maxstack + | ja >7 // Need to grow stack? + |6: // Copy all vararg slots. + |.if X64 + | mov RCa, [KBASE-8] + | add KBASE, 8 + | mov [RA], RCa + |.else + | mov RC, [KBASE-8] + | mov [RA], RC + | mov RC, [KBASE-4] + | add KBASE, 8 + | mov [RA+4], RC + |.endif + | add RA, 8 + | cmp KBASE, BASE // No more vararg slots? + | jb <6 + | jmp <3 + | + |7: // Grow stack for varargs. + | mov L:RB->base, BASE + | mov L:RB->top, RA + | mov SAVE_PC, PC + | sub KBASE, BASE // Need delta, because BASE may change. + | mov FCARG2, MULTRES + | sub FCARG2, 1 + | mov FCARG1, L:RB + | call extern lj_state_growstack@8 // (lua_State *L, int n) + | mov BASE, L:RB->base + | mov RA, L:RB->top + | add KBASE, BASE + | jmp <6 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | ins_AD // RA = results, RD = extra_nresults + | add RD, MULTRES // MULTRES >=1, so RD >=1. + | // Fall through. Assumes BC_RET follows and ins_AD is a no-op. + break; + + case BC_RET: case BC_RET0: case BC_RET1: + | ins_AD // RA = results, RD = nresults+1 + if (op != BC_RET0) { + | shl RA, 3 + } + |1: + | mov PC, [BASE-4] + | mov MULTRES, RD // Save nresults+1. + | test PC, FRAME_TYPE // Check frame type marker. + | jnz >7 // Not returning to a fixarg Lua func? + switch (op) { + case BC_RET: + |->BC_RET_Z: + | mov KBASE, BASE // Use KBASE for result move. + | sub RD, 1 + | jz >3 + |2: // Move results down. + |.if X64 + | mov RBa, [KBASE+RA] + | mov [KBASE-8], RBa + |.else + | mov RB, [KBASE+RA] + | mov [KBASE-8], RB + | mov RB, [KBASE+RA+4] + | mov [KBASE-4], RB + |.endif + | add KBASE, 8 + | sub RD, 1 + | jnz <2 + |3: + | mov RD, MULTRES // Note: MULTRES may be >255. + | movzx RB, PC_RB // So cannot compare with RDL! + |5: + | cmp RB, RD // More results expected? + | ja >6 + break; + case BC_RET1: + |.if X64 + | mov RBa, [BASE+RA] + | mov [BASE-8], RBa + |.else + | mov RB, [BASE+RA+4] + | mov [BASE-4], RB + | mov RB, [BASE+RA] + | mov [BASE-8], RB + |.endif + /* fallthrough */ + case BC_RET0: + |5: + | cmp PC_RB, RDL // More results expected? + | ja >6 + default: + break; + } + | movzx RA, PC_RA + | not RAa // Note: ~RA = -(RA+1) + | lea BASE, [BASE+RA*8] // base = base - (RA+1)*8 + | mov LFUNC:KBASE, [BASE-8] + | mov KBASE, LFUNC:KBASE->pc + | mov KBASE, [KBASE+PC2PROTO(k)] + | ins_next + | + |6: // Fill up results with nil. + if (op == BC_RET) { + | mov dword [KBASE-4], LJ_TNIL // Note: relies on shifted base. + | add KBASE, 8 + } else { + | mov dword [BASE+RD*8-12], LJ_TNIL + } + | add RD, 1 + | jmp <5 + | + |7: // Non-standard return case. + | lea RB, [PC-FRAME_VARG] + | test RB, FRAME_TYPEP + | jnz ->vm_return + | // Return from vararg function: relocate BASE down and RA up. + | sub BASE, RB + if (op != BC_RET0) { + | add RA, RB + } + | jmp <1 + break; + + /* -- Loops and branches ------------------------------------------------ */ + + |.define FOR_IDX, [RA]; .define FOR_TIDX, dword [RA+4] + |.define FOR_STOP, [RA+8]; .define FOR_TSTOP, dword [RA+12] + |.define FOR_STEP, [RA+16]; .define FOR_TSTEP, dword [RA+20] + |.define FOR_EXT, [RA+24]; .define FOR_TEXT, dword [RA+28] + + case BC_FORL: + |.if JIT + | hotloop RB + |.endif + | // Fall through. Assumes BC_IFORL follows and ins_AJ is a no-op. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + vk = (op == BC_IFORL || op == BC_JFORL); + | ins_AJ // RA = base, RD = target (after end of loop or start of loop) + | lea RA, [BASE+RA*8] + if (LJ_DUALNUM) { + | cmp FOR_TIDX, LJ_TISNUM; jne >9 + if (!vk) { + | cmp FOR_TSTOP, LJ_TISNUM; jne ->vmeta_for + | cmp FOR_TSTEP, LJ_TISNUM; jne ->vmeta_for + | mov RB, dword FOR_IDX + | cmp dword FOR_STEP, 0; jl >5 + } else { +#ifdef LUA_USE_ASSERT + | cmp FOR_TSTOP, LJ_TISNUM; jne ->assert_bad_for_arg_type + | cmp FOR_TSTEP, LJ_TISNUM; jne ->assert_bad_for_arg_type +#endif + | mov RB, dword FOR_STEP + | test RB, RB; js >5 + | add RB, dword FOR_IDX; jo >1 + | mov dword FOR_IDX, RB + } + | cmp RB, dword FOR_STOP + | mov FOR_TEXT, LJ_TISNUM + | mov dword FOR_EXT, RB + if (op == BC_FORI) { + | jle >7 + |1: + |6: + | branchPC RD + } else if (op == BC_JFORI) { + | branchPC RD + | movzx RD, PC_RD + | jle =>BC_JLOOP + |1: + |6: + } else if (op == BC_IFORL) { + | jg >7 + |6: + | branchPC RD + |1: + } else { + | jle =>BC_JLOOP + |1: + |6: + } + |7: + | ins_next + | + |5: // Invert check for negative step. + if (vk) { + | add RB, dword FOR_IDX; jo <1 + | mov dword FOR_IDX, RB + } + | cmp RB, dword FOR_STOP + | mov FOR_TEXT, LJ_TISNUM + | mov dword FOR_EXT, RB + if (op == BC_FORI) { + | jge <7 + } else if (op == BC_JFORI) { + | branchPC RD + | movzx RD, PC_RD + | jge =>BC_JLOOP + } else if (op == BC_IFORL) { + | jl <7 + } else { + | jge =>BC_JLOOP + } + | jmp <6 + |9: // Fallback to FP variant. + } else if (!vk) { + | cmp FOR_TIDX, LJ_TISNUM + } + if (!vk) { + | jae ->vmeta_for + | cmp FOR_TSTOP, LJ_TISNUM; jae ->vmeta_for + } else { +#ifdef LUA_USE_ASSERT + | cmp FOR_TSTOP, LJ_TISNUM; jae ->assert_bad_for_arg_type + | cmp FOR_TSTEP, LJ_TISNUM; jae ->assert_bad_for_arg_type +#endif + } + | mov RB, FOR_TSTEP // Load type/hiword of for step. + if (!vk) { + | cmp RB, LJ_TISNUM; jae ->vmeta_for + } + |.if SSE + | movsd xmm0, qword FOR_IDX + | movsd xmm1, qword FOR_STOP + if (vk) { + | addsd xmm0, qword FOR_STEP + | movsd qword FOR_IDX, xmm0 + | test RB, RB; js >3 + } else { + | jl >3 + } + | ucomisd xmm1, xmm0 + |1: + | movsd qword FOR_EXT, xmm0 + |.else + | fld qword FOR_STOP + | fld qword FOR_IDX + if (vk) { + | fadd qword FOR_STEP // nidx = idx + step + | fst qword FOR_IDX + | fst qword FOR_EXT + | test RB, RB; js >1 + } else { + | fst qword FOR_EXT + | jl >1 + } + | fxch // Swap lim/(n)idx if step non-negative. + |1: + | fcomparepp + |.endif + if (op == BC_FORI) { + |.if DUALNUM + | jnb <7 + |.else + | jnb >2 + | branchPC RD + |.endif + } else if (op == BC_JFORI) { + | branchPC RD + | movzx RD, PC_RD + | jnb =>BC_JLOOP + } else if (op == BC_IFORL) { + |.if DUALNUM + | jb <7 + |.else + | jb >2 + | branchPC RD + |.endif + } else { + | jnb =>BC_JLOOP + } + |.if DUALNUM + | jmp <6 + |.else + |2: + | ins_next + |.endif + |.if SSE + |3: // Invert comparison if step is negative. + | ucomisd xmm0, xmm1 + | jmp <1 + |.endif + break; + + case BC_ITERL: + |.if JIT + | hotloop RB + |.endif + | // Fall through. Assumes BC_IITERL follows and ins_AJ is a no-op. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | ins_AJ // RA = base, RD = target + | lea RA, [BASE+RA*8] + | mov RB, [RA+4] + | cmp RB, LJ_TNIL; je >1 // Stop if iterator returned nil. + if (op == BC_JITERL) { + | mov [RA-4], RB + | mov RB, [RA] + | mov [RA-8], RB + | jmp =>BC_JLOOP + } else { + | branchPC RD // Otherwise save control var + branch. + | mov RD, [RA] + | mov [RA-4], RB + | mov [RA-8], RD + } + |1: + | ins_next + break; + + case BC_LOOP: + | ins_A // RA = base, RD = target (loop extent) + | // Note: RA/RD is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop RB + |.endif + | // Fall through. Assumes BC_ILOOP follows and ins_A is a no-op. + break; + + case BC_ILOOP: + | ins_A // RA = base, RD = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | ins_AD // RA = base (ignored), RD = traceno + | mov RA, [DISPATCH+DISPATCH_J(trace)] + | mov TRACE:RD, [RA+RD*4] + | mov RDa, TRACE:RD->mcode + | mov L:RB, SAVE_L + | mov [DISPATCH+DISPATCH_GL(jit_base)], BASE + | mov [DISPATCH+DISPATCH_GL(jit_L)], L:RB + | // Save additional callee-save registers only used in compiled code. + |.if X64WIN + | mov TMPQ, r12 + | mov TMPa, r13 + | mov CSAVE_4, r14 + | mov CSAVE_3, r15 + | mov RAa, rsp + | sub rsp, 9*16+4*8 + | movdqa [RAa], xmm6 + | movdqa [RAa-1*16], xmm7 + | movdqa [RAa-2*16], xmm8 + | movdqa [RAa-3*16], xmm9 + | movdqa [RAa-4*16], xmm10 + | movdqa [RAa-5*16], xmm11 + | movdqa [RAa-6*16], xmm12 + | movdqa [RAa-7*16], xmm13 + | movdqa [RAa-8*16], xmm14 + | movdqa [RAa-9*16], xmm15 + |.elif X64 + | mov TMPQ, r12 + | mov TMPa, r13 + | sub rsp, 16 + |.endif + | jmp RDa + |.endif + break; + + case BC_JMP: + | ins_AJ // RA = unused, RD = target + | branchPC RD + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + /* + ** Reminder: A function may be called with func/args above L->maxstack, + ** i.e. occupying EXTRA_STACK slots. And vmeta_call may add one extra slot, + ** too. This means all FUNC* ops (including fast functions) must check + ** for stack overflow _before_ adding more slots! + */ + + case BC_FUNCF: + |.if JIT + | hotcall RB + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow and ins_AD is a no-op. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | ins_AD // BASE = new base, RA = framesize, RD = nargs+1 + | mov KBASE, [PC-4+PC2PROTO(k)] + | mov L:RB, SAVE_L + | lea RA, [BASE+RA*8] // Top of frame. + | cmp RA, L:RB->maxstack + | ja ->vm_growstack_f + | movzx RA, byte [PC-4+PC2PROTO(numparams)] + | cmp NARGS:RD, RA // Check for missing parameters. + | jbe >3 + |2: + if (op == BC_JFUNCF) { + | movzx RD, PC_RD + | jmp =>BC_JLOOP + } else { + | ins_next + } + | + |3: // Clear missing parameters. + | mov dword [BASE+NARGS:RD*8-4], LJ_TNIL + | add NARGS:RD, 1 + | cmp NARGS:RD, RA + | jbe <3 + | jmp <2 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | int3 // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | ins_AD // BASE = new base, RA = framesize, RD = nargs+1 + | lea RB, [NARGS:RD*8+FRAME_VARG] + | lea RD, [BASE+NARGS:RD*8] + | mov LFUNC:KBASE, [BASE-8] + | mov [RD-4], RB // Store delta + FRAME_VARG. + | mov [RD-8], LFUNC:KBASE // Store copy of LFUNC. + | mov L:RB, SAVE_L + | lea RA, [RD+RA*8] + | cmp RA, L:RB->maxstack + | ja ->vm_growstack_v // Need to grow stack. + | mov RA, BASE + | mov BASE, RD + | movzx RB, byte [PC-4+PC2PROTO(numparams)] + | test RB, RB + | jz >2 + |1: // Copy fixarg slots up to new frame. + | add RA, 8 + | cmp RA, BASE + | jnb >3 // Less args than parameters? + | mov KBASE, [RA-8] + | mov [RD], KBASE + | mov KBASE, [RA-4] + | mov [RD+4], KBASE + | add RD, 8 + | mov dword [RA-4], LJ_TNIL // Clear old fixarg slot (help the GC). + | sub RB, 1 + | jnz <1 + |2: + if (op == BC_JFUNCV) { + | movzx RD, PC_RD + | jmp =>BC_JLOOP + } else { + | mov KBASE, [PC-4+PC2PROTO(k)] + | ins_next + } + | + |3: // Clear missing parameters. + | mov dword [RD+4], LJ_TNIL + | add RD, 8 + | sub RB, 1 + | jnz <3 + | jmp <2 + break; + + case BC_FUNCC: + case BC_FUNCCW: + | ins_AD // BASE = new base, RA = ins RA|RD (unused), RD = nargs+1 + | mov CFUNC:RB, [BASE-8] + | mov KBASEa, CFUNC:RB->f + | mov L:RB, SAVE_L + | lea RD, [BASE+NARGS:RD*8-8] + | mov L:RB->base, BASE + | lea RA, [RD+8*LUA_MINSTACK] + | cmp RA, L:RB->maxstack + | mov L:RB->top, RD + if (op == BC_FUNCC) { + |.if X64 + | mov CARG1d, L:RB // Caveat: CARG1d may be RA. + |.else + | mov ARG1, L:RB + |.endif + } else { + |.if X64 + | mov CARG2, KBASEa + | mov CARG1d, L:RB // Caveat: CARG1d may be RA. + |.else + | mov ARG2, KBASEa + | mov ARG1, L:RB + |.endif + } + | ja ->vm_growstack_c // Need to grow stack. + | set_vmstate C + if (op == BC_FUNCC) { + | call KBASEa // (lua_State *L) + } else { + | // (lua_State *L, lua_CFunction f) + | call aword [DISPATCH+DISPATCH_GL(wrapf)] + } + | set_vmstate INTERP + | // nresults returned in eax (RD). + | mov BASE, L:RB->base + | lea RA, [BASE+RD*8] + | neg RA + | add RA, L:RB->top // RA = (L->top-(L->base+nresults))*8 + | mov PC, [BASE-4] // Fetch PC of caller. + | jmp ->vm_returnc + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + dasm_growpc(Dst, BC__MAX); + build_subroutines(ctx); + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); +#if LJ_64 +#define SZPTR "8" +#define BSZPTR "3" +#define REG_SP "0x7" +#define REG_RA "0x10" +#else +#define SZPTR "4" +#define BSZPTR "2" +#define REG_SP "0x4" +#define REG_RA "0x8" +#endif + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.long .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.long 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -" SZPTR "\n" + "\t.byte " REG_RA "\n" + "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" + "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" + "\t.align " SZPTR "\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.long .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.long .Lframe0\n" +#if LJ_64 + "\t.quad .Lbegin\n" + "\t.quad %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ + "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ + "\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ + "\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ +#else + "\t.long .Lbegin\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ + "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ + "\t.byte 0x87\n\t.uleb128 0x3\n" /* offset edi */ + "\t.byte 0x86\n\t.uleb128 0x4\n" /* offset esi */ + "\t.byte 0x83\n\t.uleb128 0x5\n" /* offset ebx */ +#endif + "\t.align " SZPTR "\n" + ".LEFDE0:\n\n", fcofs, CFRAME_SIZE); +#if LJ_HASFFI + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.long .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.long .Lframe0\n" +#if LJ_64 + "\t.quad lj_vm_ffi_call\n" + "\t.quad %d\n" + "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ + "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ + "\t.byte 0xd\n\t.uleb128 0x6\n" /* def_cfa_register rbp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ +#else + "\t.long lj_vm_ffi_call\n" + "\t.long %d\n" + "\t.byte 0xe\n\t.uleb128 8\n" /* def_cfa_offset */ + "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ + "\t.byte 0xd\n\t.uleb128 0x5\n" /* def_cfa_register ebp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset ebx */ +#endif + "\t.align " SZPTR "\n" + ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); +#endif +#if (defined(__sun__) && defined(__svr4__)) +#if LJ_64 + fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@unwind\n"); +#else + fprintf(ctx->fp, "\t.section .eh_frame,\"aw\",@progbits\n"); +#endif +#else + fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); +#endif + fprintf(ctx->fp, + ".Lframe1:\n" + "\t.long .LECIE1-.LSCIE1\n" + ".LSCIE1:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zPR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -" SZPTR "\n" + "\t.byte " REG_RA "\n" + "\t.uleb128 6\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.long lj_err_unwind_dwarf-.\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" + "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" + "\t.align " SZPTR "\n" + ".LECIE1:\n\n"); + fprintf(ctx->fp, + ".LSFDE2:\n" + "\t.long .LEFDE2-.LASFDE2\n" + ".LASFDE2:\n" + "\t.long .LASFDE2-.Lframe1\n" + "\t.long .Lbegin-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ +#if LJ_64 + "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ + "\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ + "\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ +#else + "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ + "\t.byte 0x87\n\t.uleb128 0x3\n" /* offset edi */ + "\t.byte 0x86\n\t.uleb128 0x4\n" /* offset esi */ + "\t.byte 0x83\n\t.uleb128 0x5\n" /* offset ebx */ +#endif + "\t.align " SZPTR "\n" + ".LEFDE2:\n\n", fcofs, CFRAME_SIZE); +#if LJ_HASFFI + fprintf(ctx->fp, + ".Lframe2:\n" + "\t.long .LECIE2-.LSCIE2\n" + ".LSCIE2:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -" SZPTR "\n" + "\t.byte " REG_RA "\n" + "\t.uleb128 1\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" + "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" + "\t.align " SZPTR "\n" + ".LECIE2:\n\n"); + fprintf(ctx->fp, + ".LSFDE3:\n" + "\t.long .LEFDE3-.LASFDE3\n" + ".LASFDE3:\n" + "\t.long .LASFDE3-.Lframe2\n" + "\t.long lj_vm_ffi_call-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ +#if LJ_64 + "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ + "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ + "\t.byte 0xd\n\t.uleb128 0x6\n" /* def_cfa_register rbp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ +#else + "\t.byte 0xe\n\t.uleb128 8\n" /* def_cfa_offset */ + "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ + "\t.byte 0xd\n\t.uleb128 0x5\n" /* def_cfa_register ebp */ + "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset ebx */ +#endif + "\t.align " SZPTR "\n" + ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); +#endif + break; + /* Mental note: never let Apple design an assembler. + ** Or a linker. Or a plastic case. But I digress. + */ + case BUILD_machasm: { +#if LJ_HASFFI + int fcsize = 0; +#endif + int i; + fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); + fprintf(ctx->fp, + "EH_frame1:\n" + "\t.set L$set$x,LECIEX-LSCIEX\n" + "\t.long L$set$x\n" + "LSCIEX:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.ascii \"zPR\\0\"\n" + "\t.byte 0x1\n" + "\t.byte 128-" SZPTR "\n" + "\t.byte " REG_RA "\n" + "\t.byte 6\n" /* augmentation length */ + "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ +#if LJ_64 + "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" +#else + "\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ +#endif + "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" + "\t.align " BSZPTR "\n" + "LECIEX:\n\n"); + for (i = 0; i < ctx->nsym; i++) { + const char *name = ctx->sym[i].name; + int32_t size = ctx->sym[i+1].ofs - ctx->sym[i].ofs; + if (size == 0) continue; +#if LJ_HASFFI + if (!strcmp(name, "_lj_vm_ffi_call")) { fcsize = size; continue; } +#endif + fprintf(ctx->fp, + "%s.eh:\n" + "LSFDE%d:\n" + "\t.set L$set$%d,LEFDE%d-LASFDE%d\n" + "\t.long L$set$%d\n" + "LASFDE%d:\n" + "\t.long LASFDE%d-EH_frame1\n" + "\t.long %s-.\n" + "\t.long %d\n" + "\t.byte 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ +#if LJ_64 + "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */ + "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */ + "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */ + "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */ +#else + "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ + "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ + "\t.byte 0x86\n\t.byte 0x4\n" /* offset esi */ + "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ +#endif + "\t.align " BSZPTR "\n" + "LEFDE%d:\n\n", + name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i); + } +#if LJ_HASFFI + if (fcsize) { + fprintf(ctx->fp, + "EH_frame2:\n" + "\t.set L$set$y,LECIEY-LSCIEY\n" + "\t.long L$set$y\n" + "LSCIEY:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.ascii \"zR\\0\"\n" + "\t.byte 0x1\n" + "\t.byte 128-" SZPTR "\n" + "\t.byte " REG_RA "\n" + "\t.byte 1\n" /* augmentation length */ +#if LJ_64 + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" +#else + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH. */ +#endif + "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" + "\t.align " BSZPTR "\n" + "LECIEY:\n\n"); + fprintf(ctx->fp, + "_lj_vm_ffi_call.eh:\n" + "LSFDEY:\n" + "\t.set L$set$yy,LEFDEY-LASFDEY\n" + "\t.long L$set$yy\n" + "LASFDEY:\n" + "\t.long LASFDEY-EH_frame2\n" + "\t.long _lj_vm_ffi_call-.\n" + "\t.long %d\n" + "\t.byte 0\n" /* augmentation length */ +#if LJ_64 + "\t.byte 0xe\n\t.byte 16\n" /* def_cfa_offset */ + "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */ + "\t.byte 0xd\n\t.byte 0x6\n" /* def_cfa_register rbp */ + "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */ +#else + "\t.byte 0xe\n\t.byte 8\n" /* def_cfa_offset */ + "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ + "\t.byte 0xd\n\t.byte 0x4\n" /* def_cfa_register ebp */ + "\t.byte 0x83\n\t.byte 0x3\n" /* offset ebx */ +#endif + "\t.align " BSZPTR "\n" + "LEFDEY:\n\n", fcsize); + } +#endif +#if LJ_64 + fprintf(ctx->fp, "\t.subsections_via_symbols\n"); +#else + fprintf(ctx->fp, + "\t.non_lazy_symbol_pointer\n" + "L_lj_err_unwind_dwarf$non_lazy_ptr:\n" + ".indirect_symbol _lj_err_unwind_dwarf\n" + ".long 0\n"); +#endif + } + break; + default: /* Difficult for other modes. */ + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/xedkbuild.bat b/src/3rd party/luajit-2.0/src/xedkbuild.bat new file mode 100644 index 00000000000..b4f236ed2e6 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/xedkbuild.bat @@ -0,0 +1,92 @@ +@rem Script to build LuaJIT with the Xbox 360 SDK. +@rem Donated to the public domain. +@rem +@rem Open a "Visual Studio .NET Command Prompt" (32 bit host compiler) +@rem Then cd to this directory and run this script. + +@if not defined INCLUDE goto :FAIL +@if not defined XEDK goto :FAIL + +@setlocal +@rem ---- Host compiler ---- +@set LJCOMPILE=cl /nologo /c /MD /O2 /W3 /D_CRT_SECURE_NO_DEPRECATE +@set LJLINK=link /nologo +@set LJMT=mt /nologo +@set DASMDIR=..\dynasm +@set DASM=%DASMDIR%\dynasm.lua +@set ALL_LIB=lib_base.c lib_math.c lib_bit.c lib_string.c lib_table.c lib_io.c lib_os.c lib_package.c lib_debug.c lib_jit.c lib_ffi.c + +%LJCOMPILE% host\minilua.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:minilua.exe minilua.obj +@if errorlevel 1 goto :BAD +if exist minilua.exe.manifest^ + %LJMT% -manifest minilua.exe.manifest -outputresource:minilua.exe + +@rem Error out for 64 bit host compiler +@minilua +@if errorlevel 8 goto :FAIL + +@set DASMFLAGS=-D GPR64 -D FRAME32 -D PPE -D SQRT -D DUALNUM +minilua %DASM% -LN %DASMFLAGS% -o host\buildvm_arch.h vm_ppc.dasc +@if errorlevel 1 goto :BAD + +%LJCOMPILE% /I "." /I %DASMDIR% /D_XBOX_VER=200 /DLUAJIT_TARGET=LUAJIT_ARCH_PPC host\buildvm*.c +@if errorlevel 1 goto :BAD +%LJLINK% /out:buildvm.exe buildvm*.obj +@if errorlevel 1 goto :BAD +if exist buildvm.exe.manifest^ + %LJMT% -manifest buildvm.exe.manifest -outputresource:buildvm.exe + +buildvm -m peobj -o lj_vm.obj +@if errorlevel 1 goto :BAD +buildvm -m bcdef -o lj_bcdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m ffdef -o lj_ffdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m libdef -o lj_libdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m recdef -o lj_recdef.h %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m vmdef -o jit\vmdef.lua %ALL_LIB% +@if errorlevel 1 goto :BAD +buildvm -m folddef -o lj_folddef.h lj_opt_fold.c +@if errorlevel 1 goto :BAD + +@rem ---- Cross compiler ---- +@set LJCOMPILE="%XEDK%\bin\win32\cl" /nologo /c /MT /O2 /W3 /GF /Gm- /GR- /GS- /Gy /openmp- /D_CRT_SECURE_NO_DEPRECATE /DNDEBUG /D_XBOX /D_LIB /DLUAJIT_USE_SYSMALLOC +@set LJLIB="%XEDK%\bin\win32\lib" /nologo +@set "INCLUDE=%XEDK%\include\xbox" + +@if "%1" neq "debug" goto :NODEBUG +@shift +@set "LJCOMPILE=%LJCOMPILE% /Zi" +:NODEBUG +@if "%1"=="amalg" goto :AMALG +%LJCOMPILE% /DLUA_BUILD_AS_DLL lj_*.c lib_*.c +@if errorlevel 1 goto :BAD +%LJLIB% /OUT:luajit20.lib lj_*.obj lib_*.obj +@if errorlevel 1 goto :BAD +@goto :NOAMALG +:AMALG +%LJCOMPILE% /DLUA_BUILD_AS_DLL ljamalg.c +@if errorlevel 1 goto :BAD +%LJLIB% /OUT:luajit20.lib ljamalg.obj lj_vm.obj +@if errorlevel 1 goto :BAD +:NOAMALG + +@del *.obj *.manifest minilua.exe buildvm.exe +@echo. +@echo === Successfully built LuaJIT for Xbox 360 === + +@goto :END +:BAD +@echo. +@echo ******************************************************* +@echo *** Build FAILED -- Please check the error messages *** +@echo ******************************************************* +@goto :END +:FAIL +@echo To run this script you must open a "Visual Studio .NET Command Prompt" +@echo (32 bit host compiler). The Xbox 360 SDK must be installed, too. +:END diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index d2645615855..398a9f13c55 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -132,7 +132,7 @@ nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index 5befda800cf..e0bda740e65 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -131,7 +131,7 @@ nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index ff36269f8a6..8affa4982c7 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -133,7 +133,7 @@ dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index aeab586f4bf..bdc496e983b 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -133,7 +133,7 @@ dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/engine.sln b/src/engine.sln index 6ef9a6a2b71..939293e555f 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -594,7 +594,6 @@ Global {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 - {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.Build.0 = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.ActiveCfg = Debug|Win32 diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 23b843247a9..2b5ac8a2f66 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -270,10 +270,9 @@ 0x0422 - /MACHINE:I386 %(AdditionalOptions) vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) true - $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2.0\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) true NotSet @@ -752,14 +751,6 @@ {ccca7859-eb86-493e-9b53-c4235f45b3c5} false - - {2ac1029e-e582-40cf-9cd1-5efa4211afc9} - false - false - false - true - false - diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index cd75e4cc4a3..e4e3c96afcb 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -219,9 +219,10 @@ 0x0419 - /MACHINE:I386 %(AdditionalOptions) + + true - $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) true NotSet true @@ -4176,9 +4177,6 @@ {94a1c366-3d19-48e6-8170-4adc2e70df98} false - - {2ac1029e-e582-40cf-9cd1-5efa4211afc9} - {ebf9b543-0830-4866-9b48-dc0740e87e8a} diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 55dda2e7c86..04285ffab0c 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -288,7 +288,8 @@ void CScriptStorage::reinit() if (m_virtual_machine) lua_close(m_virtual_machine); - m_virtual_machine = lua_newstate(lua_alloc, NULL); + //m_virtual_machine = lua_newstate(lua_alloc, NULL); + m_virtual_machine = luaL_newstate(); if (!m_virtual_machine) { @@ -296,6 +297,9 @@ void CScriptStorage::reinit() return; } + luaL_openlibs(lua()); + + /****** // initialize lua standard library functions struct luajit { @@ -333,6 +337,8 @@ void CScriptStorage::reinit() #endif //!DEBUG } + ***/ + if (strstr(Core.Params, "-_g")) file_header = file_header_new; //AVO: I get fatal crash at the start if this is used else From c9ccc07996a9d3c4e6539a1c6adf71f5052e6cd9 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 13 Jan 2015 08:49:49 -0500 Subject: [PATCH 067/166] * fixed lua-extensions project --- src/3rd party/lua-extensions/base.cpp | 4 +- .../lua-extensions/lua_extensions.vcxproj | 10 +- .../lua-extensions/script_additional_libs.cpp | 2 +- .../lua-extensions/script_additional_libs.h | 2 +- src/xrServerEntities/script_engine.cpp | 308 +++++++++--------- 5 files changed, 166 insertions(+), 160 deletions(-) diff --git a/src/3rd party/lua-extensions/base.cpp b/src/3rd party/lua-extensions/base.cpp index ac23d53a720..de6779a0304 100644 --- a/src/3rd party/lua-extensions/base.cpp +++ b/src/3rd party/lua-extensions/base.cpp @@ -1,6 +1,6 @@ -#include "../LuaJIT-1.1.8/etc/lua.hpp" +#include "../luajit-2.0/src/lua.hpp" -#pragma comment(lib, "LuaJIT-1.1.8.lib") +#pragma comment(lib, "lua51.lib") //#pragma comment(lib, "xrCore.lib") //#pragma comment(lib, "user32.lib") diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index 70e0739d5d2..9faeb083744 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -100,7 +100,7 @@ true true true - $(xrLibDir);%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrLibDir);%(AdditionalLibraryDirectories) true false $(xrLibDir)$(TargetName).lib @@ -121,14 +121,6 @@ {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} - - {2ac1029e-e582-40cf-9cd1-5efa4211afc9} - false - true - false - true - true - diff --git a/src/3rd party/lua-extensions/script_additional_libs.cpp b/src/3rd party/lua-extensions/script_additional_libs.cpp index 175a5133503..29d7e016772 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.cpp +++ b/src/3rd party/lua-extensions/script_additional_libs.cpp @@ -317,7 +317,7 @@ int open_table(lua_State *L){ } /******************** TABLE END ********************/ void open_additional_libs(lua_State *L){ - open_bit(L); + //open_bit(L); open_string(L); open_math(L); open_table(L); diff --git a/src/3rd party/lua-extensions/script_additional_libs.h b/src/3rd party/lua-extensions/script_additional_libs.h index bdce2c7ea0b..4c936c3e503 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.h +++ b/src/3rd party/lua-extensions/script_additional_libs.h @@ -1,6 +1,6 @@ #pragma once -#include "../LuaJIT-1.1.8/etc/lua.hpp" +#include "../luajit-2.0/src/lua.hpp" #include #include diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index f4cc1defe43..6a89d2b3328 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -19,20 +19,20 @@ # include "script_debugger.h" # else //USE_LUA_STUDIO # include "lua_studio.h" - typedef cs::lua_studio::create_world_function_type create_world_function_type; - typedef cs::lua_studio::destroy_world_function_type destroy_world_function_type; +typedef cs::lua_studio::create_world_function_type create_world_function_type; +typedef cs::lua_studio::destroy_world_function_type destroy_world_function_type; - static create_world_function_type s_create_world = 0; - static destroy_world_function_type s_destroy_world = 0; - static HMODULE s_script_debugger_handle = 0; - static LogCallback s_old_log_callback = 0; +static create_world_function_type s_create_world = 0; +static destroy_world_function_type s_destroy_world = 0; +static HMODULE s_script_debugger_handle = 0; +static LogCallback s_old_log_callback = 0; # endif //!USE_LUA_STUDIO #endif #ifndef XRSE_FACTORY_EXPORTS # ifdef DEBUG # include "ai_debug.h" - extern Flags32 psAI_Flags; +extern Flags32 psAI_Flags; # endif //-DEBUG #endif //!XRSE_FACTORY_EXPORTS @@ -67,15 +67,15 @@ static void initialize_lua_studio ( lua_State* state, cs::lua_studio::world*& wo s_create_world = (create_world_function_type) GetProcAddress( - s_script_debugger_handle, - "_cs_lua_studio_backend_create_world@12" + s_script_debugger_handle, + "_cs_lua_studio_backend_create_world@12" ); R_ASSERT2 (s_create_world, "can't find function \"cs_lua_studio_backend_create_world\""); s_destroy_world = (destroy_world_function_type) GetProcAddress( - s_script_debugger_handle, - "_cs_lua_studio_backend_destroy_world@4" + s_script_debugger_handle, + "_cs_lua_studio_backend_destroy_world@4" ); R_ASSERT2 (s_destroy_world, "can't find function \"cs_lua_studio_backend_destroy_world\" in the library"); @@ -125,24 +125,24 @@ void CScriptEngine::disconnect_from_debugger () } #endif //-(USE_DEBUGGER) && defined(USE_LUA_STUDIO) -CScriptEngine::CScriptEngine () +CScriptEngine::CScriptEngine() { - m_stack_level = 0; - m_reload_modules = false; - m_last_no_file_length = 0; - *m_last_no_file = 0; + m_stack_level = 0; + m_reload_modules = false; + m_last_no_file_length = 0; + *m_last_no_file = 0; #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - m_scriptDebugger = NULL; - restartDebugger (); + m_scriptDebugger = NULL; + restartDebugger (); # else //USE_LUA_STUDIO - m_lua_studio_world = 0; + m_lua_studio_world = 0; # endif //!USE_LUA_STUDIO #endif } -CScriptEngine::~CScriptEngine () +CScriptEngine::~CScriptEngine() { while (!m_script_processes.empty()) remove_script_process(m_script_processes.begin()->first); @@ -157,75 +157,75 @@ CScriptEngine::~CScriptEngine () #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - xr_delete (m_scriptDebugger); + xr_delete (m_scriptDebugger); # else // #ifndef USE_LUA_STUDIO - disconnect_from_debugger(); + disconnect_from_debugger(); # endif // #ifndef USE_LUA_STUDIO #endif } -void CScriptEngine::unload () +void CScriptEngine::unload() { - lua_settop (lua(),m_stack_level); - m_last_no_file_length = 0; - *m_last_no_file = 0; + lua_settop(lua(), m_stack_level); + m_last_no_file_length = 0; + *m_last_no_file = 0; } -int CScriptEngine::lua_panic (lua_State *L) +int CScriptEngine::lua_panic(lua_State *L) { - print_output (L,"PANIC",LUA_ERRRUN); + print_output(L, "PANIC", LUA_ERRRUN); return (0); } -void CScriptEngine::lua_error (lua_State *L) +void CScriptEngine::lua_error(lua_State *L) { - print_output (L,"",LUA_ERRRUN); - ai().script_engine().on_error (L); + print_output(L, "", LUA_ERRRUN); + ai().script_engine().on_error(L); #if !XRAY_EXCEPTIONS - Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_tostring(L,-1)); + Debug.fatal(DEBUG_INFO, "LUA error: %s", lua_tostring(L, -1)); #else throw lua_tostring(L,-1); #endif } -int CScriptEngine::lua_pcall_failed (lua_State *L) +int CScriptEngine::lua_pcall_failed(lua_State *L) { - print_output (L,"",LUA_ERRRUN); - ai().script_engine().on_error (L); + print_output(L, "", LUA_ERRRUN); + ai().script_engine().on_error(L); #if !XRAY_EXCEPTIONS - Debug.fatal (DEBUG_INFO,"LUA error: %s",lua_isstring(L,-1) ? lua_tostring(L,-1) : ""); + Debug.fatal(DEBUG_INFO, "LUA error: %s", lua_isstring(L, -1) ? lua_tostring(L, -1) : ""); #endif - if (lua_isstring(L,-1)) - lua_pop (L,1); + if (lua_isstring(L, -1)) + lua_pop(L, 1); return (LUA_ERRRUN); } -void lua_cast_failed (lua_State *L, LUABIND_TYPE_INFO info) +void lua_cast_failed(lua_State *L, LUABIND_TYPE_INFO info) { - CScriptEngine::print_output (L,"",LUA_ERRRUN); + CScriptEngine::print_output(L, "", LUA_ERRRUN); - Debug.fatal (DEBUG_INFO,"LUA error: cannot cast lua value to %s",info->name()); + Debug.fatal(DEBUG_INFO, "LUA error: cannot cast lua value to %s", info->name()); } -void CScriptEngine::setup_callbacks () +void CScriptEngine::setup_callbacks() { #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if( debugger() ) - debugger()->PrepareLuaBind (); + if( debugger() ) + debugger()->PrepareLuaBind (); # endif // #ifndef USE_LUA_STUDIO #endif #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO - if (!debugger() || !debugger()->Active() ) + if (!debugger() || !debugger()->Active() ) # endif // #ifndef USE_LUA_STUDIO #endif { #if !XRAY_EXCEPTIONS - luabind::set_error_callback (CScriptEngine::lua_error); + luabind::set_error_callback(CScriptEngine::lua_error); #endif #ifndef MASTER_GOLD @@ -234,9 +234,9 @@ void CScriptEngine::setup_callbacks () } #if !XRAY_EXCEPTIONS - luabind::set_cast_failed_callback (lua_cast_failed); + luabind::set_cast_failed_callback(lua_cast_failed); #endif - lua_atpanic (lua(),CScriptEngine::lua_panic); + lua_atpanic(lua(), CScriptEngine::lua_panic); } #ifdef DEBUG @@ -250,35 +250,36 @@ void CScriptEngine::lua_hook_call (lua_State *L, lua_Debug *dbg) } #endif -int auto_load (lua_State *L) +int auto_load(lua_State *L) { - if ((lua_gettop(L) < 2) || !lua_istable(L,1) || !lua_isstring(L,2)) { - lua_pushnil (L); + if ((lua_gettop(L) < 2) || !lua_istable(L, 1) || !lua_isstring(L, 2)) + { + lua_pushnil(L); return (1); } - ai().script_engine().process_file_if_exists(lua_tostring(L,2),false); - lua_rawget (L,1); + ai().script_engine().process_file_if_exists(lua_tostring(L, 2), false); + lua_rawget(L, 1); return (1); } -void CScriptEngine::setup_auto_load () +void CScriptEngine::setup_auto_load() { - luaL_newmetatable (lua(),"XRAY_AutoLoadMetaTable"); - lua_pushstring (lua(),"__index"); - lua_pushcfunction (lua(), auto_load); - lua_settable (lua(),-3); - lua_pushstring (lua(),"_G"); - lua_gettable (lua(),LUA_GLOBALSINDEX); - luaL_getmetatable (lua(),"XRAY_AutoLoadMetaTable"); - lua_setmetatable (lua(),-2); + luaL_newmetatable(lua(), "XRAY_AutoLoadMetaTable"); + lua_pushstring(lua(), "__index"); + lua_pushcfunction(lua(), auto_load); + lua_settable(lua(), -3); + lua_pushstring(lua(), "_G"); + lua_gettable(lua(), LUA_GLOBALSINDEX); + luaL_getmetatable(lua(), "XRAY_AutoLoadMetaTable"); + lua_setmetatable(lua(), -2); //. ?????????? // lua_settop (lua(),-0); } extern void export_classes(lua_State *L); -void CScriptEngine::init () +void CScriptEngine::init() { #ifdef USE_LUA_STUDIO bool lua_studio_connected = !!m_lua_studio_world; @@ -286,7 +287,7 @@ void CScriptEngine::init () m_lua_studio_world->remove (lua()); #endif // #ifdef USE_LUA_STUDIO - CScriptStorage::reinit (); + CScriptStorage::reinit(); #ifdef USE_LUA_STUDIO if (m_lua_studio_world || strstr(Core.Params, "-lua_studio")) { @@ -300,10 +301,10 @@ void CScriptEngine::init () } #endif // #ifdef USE_LUA_STUDIO - luabind::open (lua()); - setup_callbacks (); - export_classes (lua()); - setup_auto_load (); + luabind::open(lua()); + setup_callbacks(); + export_classes(lua()); + setup_auto_load(); #ifdef DEBUG m_stack_is_ready = true; @@ -312,33 +313,34 @@ void CScriptEngine::init () #ifndef USE_LUA_STUDIO # ifdef DEBUG # if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - if( !debugger() || !debugger()->Active() ) + if( !debugger() || !debugger()->Active() ) # endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - lua_sethook (lua(),lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); + lua_sethook (lua(),lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); # endif // #ifdef DEBUG #endif // #ifndef USE_LUA_STUDIO -// lua_sethook (lua(), lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); + // lua_sethook (lua(), lua_hook_call, LUA_MASKLINE|LUA_MASKCALL|LUA_MASKRET, 0); bool save = m_reload_modules; - m_reload_modules = true; - process_file_if_exists ("_G",false); - m_reload_modules = save; + m_reload_modules = true; + process_file_if_exists("_G", false); + m_reload_modules = save; - register_script_classes (); - object_factory().register_script (); + register_script_classes(); + object_factory().register_script(); #ifdef XRGAME_EXPORTS - load_common_scripts (); + load_common_scripts(); #endif - m_stack_level = lua_gettop(lua()); + m_stack_level = lua_gettop(lua()); } -void CScriptEngine::remove_script_process (const EScriptProcessors &process_id) +void CScriptEngine::remove_script_process(const EScriptProcessors &process_id) { CScriptProcessStorage::iterator I = m_script_processes.find(process_id); - if (I != m_script_processes.end()) { - xr_delete ((*I).second); - m_script_processes.erase (I); + if (I != m_script_processes.end()) + { + xr_delete((*I).second); + m_script_processes.erase(I); } } @@ -348,43 +350,49 @@ void CScriptEngine::load_common_scripts() return; #endif string_path S; - FS.update_path (S,"$game_config$","script.ltx"); + FS.update_path(S, "$game_config$", "script.ltx"); CInifile *l_tpIniFile = xr_new(S); - R_ASSERT (l_tpIniFile); - if (!l_tpIniFile->section_exist("common")) { - xr_delete (l_tpIniFile); + R_ASSERT(l_tpIniFile); + if (!l_tpIniFile->section_exist("common")) + { + xr_delete(l_tpIniFile); return; } - if (l_tpIniFile->line_exist("common","script")) { - LPCSTR caScriptString = l_tpIniFile->r_string("common","script"); + if (l_tpIniFile->line_exist("common", "script")) + { + LPCSTR caScriptString = l_tpIniFile->r_string("common", "script"); u32 n = _GetItemCount(caScriptString); string256 I; - for (u32 i=0; i f; - R_ASSERT (functor(I,f)); - f (); + R_ASSERT(functor(I, f)); + f(); } } } - xr_delete (l_tpIniFile); + xr_delete(l_tpIniFile); } -void CScriptEngine::process_file_if_exists (LPCSTR file_name, bool warn_if_not_exist) +void CScriptEngine::process_file_if_exists(LPCSTR file_name, bool warn_if_not_exist) { u32 string_length = xr_strlen(file_name); - if (!warn_if_not_exist && no_file_exists(file_name,string_length)) + if (!warn_if_not_exist && no_file_exists(file_name, string_length)) return; - string_path S,S1; - if (m_reload_modules || (*file_name && !namespace_loaded(file_name))) { - FS.update_path (S,"$game_scripts$",strconcat(sizeof(S1),S1,file_name,".script")); - if (!warn_if_not_exist && !FS.exist(S)) { + string_path S, S1; + if (m_reload_modules || (*file_name && !namespace_loaded(file_name))) + { + FS.update_path(S, "$game_scripts$", strconcat(sizeof(S1), S1, file_name, ".script")); + if (!warn_if_not_exist && !FS.exist(S)) + { #ifdef DEBUG # ifndef XRSE_FACTORY_EXPORTS if (psAI_Flags.test(aiNilObjectAccess)) @@ -395,57 +403,61 @@ void CScriptEngine::process_file_if_exists (LPCSTR file_name, bool warn_if_not_e m_stack_is_ready = true; } #endif - add_no_file (file_name,string_length); + add_no_file(file_name, string_length); return; } -#ifndef MASTER_GOLD - Msg ("* loading script %s",S1); -#endif // MASTER_GOLD - m_reload_modules = false; - load_file_into_namespace(S,*file_name ? file_name : "_G"); + //#ifndef MASTER_GOLD + if (strstr(Core.Params, "-dbg")) + Msg("* loading script %s", S1); + //#endif // MASTER_GOLD + m_reload_modules = false; + load_file_into_namespace(S, *file_name ? file_name : "_G"); } } -void CScriptEngine::process_file (LPCSTR file_name) +void CScriptEngine::process_file(LPCSTR file_name) { - process_file_if_exists (file_name,true); + process_file_if_exists(file_name, true); } -void CScriptEngine::process_file (LPCSTR file_name, bool reload_modules) +void CScriptEngine::process_file(LPCSTR file_name, bool reload_modules) { - m_reload_modules = reload_modules; - process_file_if_exists (file_name,true); - m_reload_modules = false; + m_reload_modules = reload_modules; + process_file_if_exists(file_name, true); + m_reload_modules = false; } -void CScriptEngine::register_script_classes () +void CScriptEngine::register_script_classes() { #ifdef DBG_DISABLE_SCRIPTS return; #endif string_path S; - FS.update_path (S,"$game_config$","script.ltx"); + FS.update_path(S, "$game_config$", "script.ltx"); CInifile *l_tpIniFile = xr_new(S); - R_ASSERT (l_tpIniFile); + R_ASSERT(l_tpIniFile); - if (!l_tpIniFile->section_exist("common")) { - xr_delete (l_tpIniFile); + if (!l_tpIniFile->section_exist("common")) + { + xr_delete(l_tpIniFile); return; } - m_class_registrators = READ_IF_EXISTS(l_tpIniFile,r_string,"common","class_registrators",""); - xr_delete (l_tpIniFile); + m_class_registrators = READ_IF_EXISTS(l_tpIniFile, r_string, "common", "class_registrators", ""); + xr_delete(l_tpIniFile); u32 n = _GetItemCount(*m_class_registrators); string256 I; - for (u32 i=0; i result; - if (!functor(I,result)) { - script_log (eLuaMessageTypeError,"Cannot load class registrator %s!",I); + if (!functor(I, result)) + { + script_log(eLuaMessageTypeError, "Cannot load class registrator %s!", I); continue; } - result (const_cast(&object_factory())); + result(const_cast(&object_factory())); } } @@ -456,23 +468,25 @@ bool CScriptEngine::function_object(LPCSTR function_to_call, luabind::object &ob string256 name_space, function; - parse_script_namespace (function_to_call,name_space,sizeof(name_space),function,sizeof(function)); - if (xr_strcmp(name_space,"_G")) { - LPSTR file_name = strchr(name_space,'.'); + parse_script_namespace(function_to_call, name_space, sizeof(name_space), function, sizeof(function)); + if (xr_strcmp(name_space, "_G")) + { + LPSTR file_name = strchr(name_space, '.'); if (!file_name) - process_file (name_space); - else { - *file_name = 0; - process_file (name_space); - *file_name = '.'; + process_file(name_space); + else + { + *file_name = 0; + process_file(name_space); + *file_name = '.'; } } - if (!this->object(name_space,function,type)) + if (!this->object(name_space, function, type)) return (false); - luabind::object lua_namespace = this->name_space(name_space); - object = lua_namespace[function]; + luabind::object lua_namespace = this->name_space(name_space); + object = lua_namespace[function]; return (true); } @@ -498,27 +512,27 @@ void CScriptEngine::restartDebugger () } #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) -bool CScriptEngine::no_file_exists (LPCSTR file_name, u32 string_length) +bool CScriptEngine::no_file_exists(LPCSTR file_name, u32 string_length) { if (m_last_no_file_length != string_length) return (false); - return (!memcmp(m_last_no_file,file_name,string_length*sizeof(char))); + return (!memcmp(m_last_no_file, file_name, string_length*sizeof(char))); } -void CScriptEngine::add_no_file (LPCSTR file_name, u32 string_length) +void CScriptEngine::add_no_file(LPCSTR file_name, u32 string_length) { - m_last_no_file_length = string_length; - CopyMemory (m_last_no_file,file_name,(string_length+1)*sizeof(char)); + m_last_no_file_length = string_length; + CopyMemory(m_last_no_file, file_name, (string_length + 1)*sizeof(char)); } -void CScriptEngine::collect_all_garbage () +void CScriptEngine::collect_all_garbage() { - lua_gc (lua(),LUA_GCCOLLECT,0); - lua_gc (lua(),LUA_GCCOLLECT,0); + lua_gc(lua(), LUA_GCCOLLECT, 0); + lua_gc(lua(), LUA_GCCOLLECT, 0); } -void CScriptEngine::on_error (lua_State* state) +void CScriptEngine::on_error(lua_State* state) { #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) if (!debugger()) @@ -526,4 +540,4 @@ void CScriptEngine::on_error (lua_State* state) debugger()->on_error ( state ); #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) -} \ No newline at end of file +} From 2e72ecca69f367fc953731acc1dd0b53eca1be8d Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 13 Jan 2015 10:50:37 -0500 Subject: [PATCH 068/166] * commented out LUA_DEBUG_PRINT as redundant. It is now deprecated and will be removed or re purposed in future --- src/build_config_defines.h | 2 ++ src/xrServerEntities/script_storage.cpp | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 904b1bbece6..80532440d77 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -4,7 +4,9 @@ //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) //#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) +/*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed #define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) +***/ //-SCRIPTS // CORE: diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 04285ffab0c..8283fa243a9 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -364,7 +364,7 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, //if (!strstr(Core.Params, "-dbg")) // return(0); # endif //!DEBUG -# ifdef LUA_DEBUG_PRINT +# ifndef LUA_DEBUG_PRINT # ifdef DEBUG if (!psAI_Flags.test(aiLua) && (tLuaMessageType != ScriptStorage::eLuaMessageTypeError)) return(0); @@ -686,6 +686,7 @@ bool CScriptStorage::load_file_into_namespace(LPCSTR caScriptName, LPCSTR caName int start = lua_gettop(lua()); if (!do_file(caScriptName, caNamespaceName)) { + Msg("! [ERROR] --- Failed to load script %s", caNamespaceName); lua_settop(lua(), start); return (false); } From badd570e0a9dd08f9b44e007c90fef33bd8ce971 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 14 Jan 2015 02:18:06 -0500 Subject: [PATCH 069/166] * LuaJit 2+ can is now fully functional ^ needs to be built with batch file included in src folder ^ after build completes manually copy lua51.dll to game bin folder * define USE_GSC_MEM_ALLOC to use GSC memory allocator or undefine to use one supplied by luajit * define USE_LUAJIT_ONE for v1.1.8 of luajit in case someone wants to use it (!!! don't forget to set build configuration to $(Configuration)_LuaJit_one) --- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 58 ++ src/3rd party/NVTT/NVTT.vcxproj | 52 ++ src/3rd party/crypto/crypto.vcxproj | 41 ++ src/3rd party/cximage/cximage.vcxproj | 69 +++ src/3rd party/lua-extensions/base.cpp | 9 +- .../lua-extensions/lua_extensions.vcxproj | 49 ++ .../lua-extensions/script_additional_libs.cpp | 529 ++++++++++-------- .../lua-extensions/script_additional_libs.h | 5 + .../luabind/luabind.beta7-devel.rc4.vcxproj | 59 ++ .../contrib/msvc7/ode_default/default.vcxproj | 83 +++ .../OpenAL-Windows/Router/Router.vcxproj | 88 +++ src/Layers/xrAPI/xrAPI.vcxproj | 49 ++ src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 61 ++ src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 60 ++ src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 61 ++ src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 61 ++ src/build_config_defines.h | 2 + src/editor/editor.vcxproj | 44 ++ src/editor_controls/editor_controls.vcxproj | 46 ++ src/engine.sln | 80 +++ src/plugins/Max/MAX_Export60.vcxproj | 72 +++ src/plugins/Max/MAX_Material60.vcxproj | 67 +++ src/plugins/Maya/Maya_Export2008.vcxproj | 72 +++ src/plugins/Maya/Maya_Export2009.vcxproj | 72 +++ src/plugins/Maya/Maya_Material2008.vcxproj | 62 ++ src/plugins/Maya/Maya_Material2009.vcxproj | 62 ++ src/plugins/lw/LW_Export80.vcxproj | 105 ++++ src/plugins/lw/LW_Server.vcxproj | 48 ++ src/plugins/lw/LW_Shader80.vcxproj | 69 +++ .../CompressionTest/CompressionTest.vcxproj | 46 ++ src/utils/ETools/ETools.vcxproj | 83 +++ src/utils/LWO/LWO.vcxproj | 54 ++ src/utils/ctool/ctool.vcxproj | 42 ++ .../mp_configs_verifyer.vcxproj | 41 ++ .../mp_screenshots_info.vcxproj | 46 ++ src/utils/xrAI/xrAI.vcxproj | 85 +++ src/utils/xrCompress/xrCompress.vcxproj | 209 +++++++ src/utils/xrDO_Light/xrDO_Light.vcxproj | 74 +++ src/utils/xrDXT/DXT.vcxproj | 84 +++ src/utils/xrLC/xrLC.vcxproj | 104 ++++ src/utils/xrLC_Light/xrLC_Light.vcxproj | 60 ++ .../xrLC_LightStab/xrLC_LightStab.vcxproj | 45 ++ src/utils/xrQSlim/xrQSlim.vcxproj | 45 ++ src/utils/xrSE_Factory/xrSE_Factory.vcxproj | 141 +++++ src/xrCDB/xrCDB.vcxproj | 83 +++ src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 80 +++ src/xrCore/xrCore.vcxproj | 105 ++++ src/xrCore/xrCoreStatic.vcxproj | 88 +++ src/xrD3D9-Null/xrD3D9-Null.vcxproj | 57 ++ src/xrEngine/xrEngine.vcxproj | 79 +++ src/xrGame/xrGame.vcxproj | 84 +++ src/xrGameSpy/xrGameSpy.vcxproj | 238 ++++++++ src/xrNetServer/xrNetServer.vcxproj | 75 +++ src/xrParticles/xrParticles.vcxproj | 74 +++ src/xrPhysics/xrPhysics.vcxproj | 62 ++ src/xrServerEntities/script_engine.cpp | 11 + src/xrServerEntities/script_storage.cpp | 80 +-- src/xrServerEntities/script_storage.h | 2 +- src/xrServerEntities/script_storage_inline.h | 14 +- src/xrSound/xrSound.vcxproj | 64 +++ src/xrXMLParser/xrXMLParser.vcxproj | 75 +++ 61 files changed, 4278 insertions(+), 287 deletions(-) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index 76bb1719f29..fc2f69371e2 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -28,6 +32,13 @@ true MultiByte + + DynamicLibrary + false + v120 + true + MultiByte + @@ -39,6 +50,10 @@ + + + + $(xrIntDir)$(ProjectName)\ @@ -48,6 +63,14 @@ false true + + $(xrIntDir)$(ProjectName)\ + $(xrGameDir)bin_rel\ + .dll + $(ProjectName) + false + true + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ @@ -111,6 +134,41 @@ + + + Level4 + MaxSpeed + + + true + true + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + AnySuitable + Speed + true + true + LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) + true + + + false + StreamingSIMDExtensions2 + Fast + 4996;4530;4100;4714;4127;4055;%(DisableSpecificWarnings) + + + true + true + true + + + Windows + false + $(xrLibDir)$(TargetName).lib + + + + diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index add8801837f..7c4cba3d018 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -110,6 +114,8 @@ + + @@ -180,12 +186,25 @@ MultiByte v120 + + StaticLibrary + false + true + MultiByte + v120 + StaticLibrary false true MultiByte + + StaticLibrary + false + true + MultiByte + @@ -201,15 +220,27 @@ + + + + + + + + $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -246,6 +277,27 @@ true + + + Level3 + MaxSpeed + true + true + $(ProjectDir)include;$(ProjectDir)src;$(ProjectDir)src\nvcore;$(ProjectDir)src\nvtt\squish;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;NVTT_EXPORTS;_MBCS;%(PreprocessorDefinitions) + StreamingSIMDExtensions2 + Speed + AnySuitable + true + true + true + + + true + true + true + + diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 844fbace518..3dd4ea6d1af 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -33,6 +43,10 @@ + + + + @@ -51,6 +65,12 @@ $(ProjectName) .dll + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + $(ProjectName) + .dll + Disabled @@ -91,6 +111,27 @@ $(xrLibDir)$(TargetName).lib + + + openssl;$(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) + CRYPTO_BUILD;CRYPTO_AS_SHARED_LIBRARY;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + + + MultiThreadedDLL + Fast + Level4 + ProgramDatabase + StreamingSIMDExtensions2 + true + Speed + AnySuitable + true + true + + + $(xrLibDir)$(TargetName).lib + + diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index c447dc24799..927d8c44a0f 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -32,6 +36,14 @@ false true + + StaticLibrary + v120 + false + MultiByte + false + true + @@ -45,6 +57,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -56,6 +73,13 @@ .lib $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(ProjectName) + .lib + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ @@ -105,6 +129,51 @@ $(xrLibDir)$(TargetName).lib + + + MaxSpeed + AnySuitable + true + Speed + true + true + $(XRAY_16X_LIBS);$(SolutionDir);%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;_CRT_SECURE_NO_WARNINGS;_CRT_SECURE_NO_DEPRECATE;CXIMAGE_BUILD;CXIMAGE_AS_SHARED_LIBRARY;%(PreprocessorDefinitions) + true + false + + + Default + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + Level4 + true + 4100;4702;%(DisableSpecificWarnings) + + + NDEBUG;%(PreprocessorDefinitions) + 0x0809 + + + /ignore:4075 %(AdditionalOptions) + $(OutDir)$(ProjectName).lib + $(XRAY_16X_LIBS)\jpeg\libraries\Release;$(xrLibDir);%(AdditionalLibraryDirectories) + true + true + + + true + .\Release/cximage.bsc + + + + $(XRAY_16X_LIBS)\jpeg-8c\Release\;$(xrLibDir);%(AdditionalLibraryDirectories) + $(xrLibDir)$(TargetName).lib + + Disabled diff --git a/src/3rd party/lua-extensions/base.cpp b/src/3rd party/lua-extensions/base.cpp index de6779a0304..9e6e3f923d8 100644 --- a/src/3rd party/lua-extensions/base.cpp +++ b/src/3rd party/lua-extensions/base.cpp @@ -1,6 +1,13 @@ -#include "../luajit-2.0/src/lua.hpp" +#include "../../build_config_defines.h" +#ifdef USE_LUAJIT_ONE +#pragma comment(lib, "LuaJIT-1.1.8.lib") +#include "../LuaJIT-1.1.8/etc/lua.hpp" +#else #pragma comment(lib, "lua51.lib") +#include "../luajit-2.0/src/lua.hpp" +#endif //-USE_LUAJIT_ONE + //#pragma comment(lib, "xrCore.lib") //#pragma comment(lib, "user32.lib") diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index 9faeb083744..a1ff3bbdc80 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,14 @@ false v120 + + DynamicLibrary + false + true + MultiByte + false + v120 + @@ -42,6 +54,10 @@ + + + + $(ProjectName) @@ -51,6 +67,14 @@ $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ + + $(ProjectName) + $(VC_IncludePath);$(WindowsSDK_IncludePath); + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); + false + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ @@ -82,6 +106,31 @@ + + Level3 + MaxSpeed + true + true + $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalIncludeDirectories) + Speed + false + SyncCThrow + false + Fast + Default + _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + + + true + true + true + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrLibDir);%(AdditionalLibraryDirectories) + true + false + $(xrLibDir)$(TargetName).lib + + + Level3 MaxSpeed diff --git a/src/3rd party/lua-extensions/script_additional_libs.cpp b/src/3rd party/lua-extensions/script_additional_libs.cpp index 29d7e016772..141bd5a25ae 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.cpp +++ b/src/3rd party/lua-extensions/script_additional_libs.cpp @@ -2,177 +2,196 @@ //#include "StdAfx.h" #include "script_additional_libs.h" #include +#include "../../build_config_defines.h" /******************** BIT ********************/ -int ROL(int a, int n){ - int t1, t2; - n = n % (sizeof(a) * 8); - t1 = a << n; - t2 = a >> (sizeof(a) * 8 - n); - return t1 | t2; -} -int ROR(int a, int n){ - int t1, t2; - n = n % (sizeof(a) * 8); - t1 = a >> n; - t2 = a << (sizeof(a) * 8 - n); - return t1 | t2; +int ROL(int a, int n) +{ + int t1, t2; + n = n % (sizeof(a) * 8); + t1 = a << n; + t2 = a >> (sizeof(a) * 8 - n); + return t1 | t2; +} +int ROR(int a, int n) +{ + int t1, t2; + n = n % (sizeof(a) * 8); + t1 = a >> n; + t2 = a << (sizeof(a) * 8 - n); + return t1 | t2; } -int bit_tobit(lua_State *L){ - LUA_INTEGER n = luaL_checkinteger(L, 1); - BYTE len = sizeof(n)*8; - char *s = new char[len+1]; - itoa(n, s, 2); - lua_pushfstring(L, s); - return 1; +int bit_tobit(lua_State *L) +{ + LUA_INTEGER n = luaL_checkinteger(L, 1); + BYTE len = sizeof(n) * 8; + char *s = new char[len + 1]; + itoa(n, s, 2); + lua_pushfstring(L, s); + return 1; } -int bit_tohex(lua_State *L){ - LUA_INTEGER n = luaL_checkinteger(L, 1); - BYTE len = sizeof(n)*2; - char *s = new char[len+1]; - itoa(n, s, 16); - lua_pushfstring(L, s); - return 1; +int bit_tohex(lua_State *L) +{ + LUA_INTEGER n = luaL_checkinteger(L, 1); + BYTE len = sizeof(n) * 2; + char *s = new char[len + 1]; + itoa(n, s, 16); + lua_pushfstring(L, s); + return 1; } -int bit_not(lua_State *L){ - LUA_INTEGER n = luaL_checkinteger(L, 1); - lua_pushinteger(L, ~n); - return 1; +int bit_not(lua_State *L) +{ + LUA_INTEGER n = luaL_checkinteger(L, 1); + lua_pushinteger(L, ~n); + return 1; } -int bit_and(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER b = luaL_checkinteger(L, 2); - lua_pushinteger(L, a & b); - return 1; +int bit_and(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a & b); + return 1; } -int bit_or(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER b = luaL_checkinteger(L, 2); - lua_pushinteger(L, a | b); - return 1; +int bit_or(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a | b); + return 1; } -int bit_xor(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER b = luaL_checkinteger(L, 2); - lua_pushinteger(L, a ^ b); - return 1; +int bit_xor(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER b = luaL_checkinteger(L, 2); + lua_pushinteger(L, a ^ b); + return 1; } -int bit_rol(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER n = luaL_checkinteger(L, 2); - lua_pushinteger(L, ROL(a, n)); - return 1; +int bit_rol(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, ROL(a, n)); + return 1; } -int bit_ror(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER n = luaL_checkinteger(L, 2); - lua_pushinteger(L, ROR(a, n)); - return 1; +int bit_ror(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, ROR(a, n)); + return 1; } -int bit_lshift(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER n = luaL_checkinteger(L, 2); - lua_pushinteger(L, a << n); - return 1; +int bit_lshift(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, a << n); + return 1; } -int bit_rshift(lua_State *L){ - LUA_INTEGER a = luaL_checkinteger(L, 1); - LUA_INTEGER n = luaL_checkinteger(L, 2); - lua_pushinteger(L, a >> n); - return 1; +int bit_rshift(lua_State *L) +{ + LUA_INTEGER a = luaL_checkinteger(L, 1); + LUA_INTEGER n = luaL_checkinteger(L, 2); + lua_pushinteger(L, a >> n); + return 1; } const struct luaL_Reg bit_funcs[] = { - { "tobit", bit_tobit }, - { "tohex", bit_tohex }, - { "bnot", bit_not }, - { "band", bit_and }, - { "bor", bit_or }, - { "bxor", bit_xor }, - { "lshift", bit_lshift }, - { "rshift", bit_rshift }, - { "rol", bit_rol }, - { "ror", bit_ror }, - { NULL, NULL } + {"tobit", bit_tobit}, + {"tohex", bit_tohex}, + {"bnot", bit_not}, + {"band", bit_and}, + {"bor", bit_or}, + {"bxor", bit_xor}, + {"lshift", bit_lshift}, + {"rshift", bit_rshift}, + {"rol", bit_rol}, + {"ror", bit_ror}, + {NULL, NULL} }; -int open_bit(lua_State *L){ - luaL_register(L, "bit", bit_funcs); - return 0; +int open_bit(lua_State *L) +{ + luaL_register(L, "bit", bit_funcs); + return 0; } /******************** BIT END ********************/ /******************** STRING ********************/ -int str_trim(lua_State *L){ - const char *front; - const char *end; - size_t size; - front = luaL_checklstring(L,1,&size); - end = &front[size - 1]; - for ( ; size && isspace(*front) ; size-- , front++) - ; - for ( ; size && isspace(*end) ; size-- , end--) - ; - lua_pushlstring(L,front,(size_t)(end - front) + 1); - return 1; +int str_trim(lua_State *L) +{ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L, 1, &size); + end = &front[size - 1]; + for (; size && isspace(*front); size--, front++) + ; + for (; size && isspace(*end); size--, end--) + ; + lua_pushlstring(L, front, (size_t) (end - front) + 1); + return 1; } -int str_trim_l(lua_State *L){ - const char *front; - const char *end; - size_t size; - front = luaL_checklstring(L,1,&size); - end = &front[size - 1]; - for ( ; size && isspace(*front) ; size-- , front++) - ; - lua_pushlstring(L,front,(size_t)(end - front) + 1); - return 1; +int str_trim_l(lua_State *L) +{ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L, 1, &size); + end = &front[size - 1]; + for (; size && isspace(*front); size--, front++) + ; + lua_pushlstring(L, front, (size_t) (end - front) + 1); + return 1; } -int str_trim_r(lua_State *L){ - const char *front; - const char *end; - size_t size; - front = luaL_checklstring(L,1,&size); - end = &front[size - 1]; - for ( ; size && isspace(*end) ; size-- , end--) - ; - lua_pushlstring(L,front,(size_t)(end - front) + 1); - return 1; +int str_trim_r(lua_State *L) +{ + const char *front; + const char *end; + size_t size; + front = luaL_checklstring(L, 1, &size); + end = &front[size - 1]; + for (; size && isspace(*end); size--, end--) + ; + lua_pushlstring(L, front, (size_t) (end - front) + 1); + return 1; } -int str_trim_w(lua_State *L){ - int i=0 , d, n; - const char *s = luaL_checkstring(L,1);; - while (s[i]==' ') i++; - n=i; - while (s[i]!=' ' && s[i]) i++; - d=i-n; - lua_pushlstring(L, s+n, d); - return 1; +int str_trim_w(lua_State *L) +{ + int i = 0, d, n; + const char *s = luaL_checkstring(L, 1);; + while (s[i] == ' ') i++; + n = i; + while (s[i] != ' ' && s[i]) i++; + d = i - n; + lua_pushlstring(L, s + n, d); + return 1; } const luaL_Reg strlib[] = { - {"trim", str_trim}, - {"trim_l", str_trim_l}, - {"trim_r", str_trim_r}, - {"trim_w", str_trim_w}, - {NULL, NULL} + {"trim", str_trim}, + {"trim_l", str_trim_l}, + {"trim_r", str_trim_r}, + {"trim_w", str_trim_w}, + {NULL, NULL} }; -int open_string(lua_State *L){ - luaL_openlib(L, LUA_STRLIBNAME, strlib, 0); - return 0; +int open_string(lua_State *L) +{ + luaL_openlib(L, LUA_STRLIBNAME, strlib, 0); + return 0; } /******************** STRING END ********************/ @@ -181,144 +200,164 @@ std::random_device ndrng; std::mt19937 intgen; std::uniform_real float_random_01; -int gen_random_in_range(int a1, int a2){ //unsigned? - std::uniform_int<> dist(a1, a2); - return dist(intgen); -} - -int math_randomseed(lua_State *L){ - switch (lua_gettop(L)){ - case 0:{ - intgen.seed(ndrng()); - break; - } - case 1:{ - DWORD seed_value = luaL_checkint(L, 1); - intgen.seed(seed_value); - break; - } - default: return luaL_error(L, "math_randomseed: wrong number of arguments"); - } - return 0; +int gen_random_in_range(int a1, int a2) +{ //unsigned? + std::uniform_int<> dist(a1, a2); + return dist(intgen); +} + +int math_randomseed(lua_State *L) +{ + switch (lua_gettop(L)) + { + case 0:{ + intgen.seed(ndrng()); + break; + } + case 1:{ + DWORD seed_value = luaL_checkint(L, 1); + intgen.seed(seed_value); + break; + } + default: return luaL_error(L, "math_randomseed: wrong number of arguments"); + } + return 0; } -int math_random(lua_State *L){ - switch (lua_gettop(L)){ - case 0:{ - lua_pushnumber(L, float_random_01(intgen)); - break; - } - case 1:{ - int u = luaL_checkint(L, 1); - luaL_argcheck(L, 1<=u, 1, "interval is empty"); - lua_pushinteger(L, gen_random_in_range(1,u)); - break; - } - case 2:{ - int l = luaL_checkint(L, 1); - int u = luaL_checkint(L, 2); - luaL_argcheck(L, l<=u, 2, "interval is empty"); - lua_pushinteger(L, gen_random_in_range(l,u)); - break; - } - default: return luaL_error(L, "wrong number of arguments"); - } - return 1; +int math_random(lua_State *L) +{ + switch (lua_gettop(L)) + { + case 0:{ + lua_pushnumber(L, float_random_01(intgen)); + break; + } + case 1:{ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1 <= u, 1, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(1, u)); + break; + } + case 2:{ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l <= u, 2, "interval is empty"); + lua_pushinteger(L, gen_random_in_range(l, u)); + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; } const luaL_Reg mathlib[] = { - {"random", math_random}, - {"randomseed", math_randomseed}, - {NULL, NULL} + {"random", math_random}, + {"randomseed", math_randomseed}, + {NULL, NULL} }; - -int open_math(lua_State *L){ - luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0); - return 0; + +int open_math(lua_State *L) +{ + luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0); + return 0; } /******************** MATH END ********************/ /******************** TABLE ********************/ -inline DWORD C_get_size(lua_State *L){ - int i = 0; - lua_settop(L, 2); - while (lua_next(L, 1)){ - ++i; - lua_pop(L, 1); - } - return i; +inline DWORD C_get_size(lua_State *L) +{ + int i = 0; + lua_settop(L, 2); + while (lua_next(L, 1)) + { + ++i; + lua_pop(L, 1); + } + return i; } -int tab_keys (lua_State *L){ - int i = 1; - luaL_checktype(L, 1, LUA_TTABLE); - lua_newtable(L); - lua_pushnil(L); - while(lua_next(L, 1) !=0 ){ - lua_pushinteger(L, i); - ++i; - lua_pushvalue(L, -3); - lua_settable(L, 2); - lua_pop(L, 1); - } - return 1; +int tab_keys(lua_State *L) +{ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while (lua_next(L, 1) != 0) + { + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -3); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; } -int tab_values (lua_State *L){ - int i = 1; - luaL_checktype(L, 1, LUA_TTABLE); - lua_newtable(L); - lua_pushnil(L); - while(lua_next(L, 1) != 0){ - lua_pushinteger(L, i); - ++i; - lua_pushvalue(L, -2); - lua_settable(L, 2); - lua_pop(L, 1); - } - return 1; +int tab_values(lua_State *L) +{ + int i = 1; + luaL_checktype(L, 1, LUA_TTABLE); + lua_newtable(L); + lua_pushnil(L); + while (lua_next(L, 1) != 0) + { + lua_pushinteger(L, i); + ++i; + lua_pushvalue(L, -2); + lua_settable(L, 2); + lua_pop(L, 1); + } + return 1; } -int get_size(lua_State *L) { - luaL_checktype(L, 1, LUA_TTABLE); - lua_pushinteger(L, C_get_size(L)); - return 1; +int get_size(lua_State *L) +{ + luaL_checktype(L, 1, LUA_TTABLE); + lua_pushinteger(L, C_get_size(L)); + return 1; } -int get_random(lua_State *L){ - int i = C_get_size(L); - int j = gen_random_in_range(1, i); - i=0; - luaL_checktype(L, 1, LUA_TTABLE); - lua_settop(L, 2); - while(lua_next(L, 1)){ - ++i; - if(i == j){ - lua_pushvalue(L, -2); - lua_pushvalue(L, -2); - return 2; - } - lua_pop(L, 1); - } - return 0; +int get_random(lua_State *L) +{ + int i = C_get_size(L); + int j = gen_random_in_range(1, i); + i = 0; + luaL_checktype(L, 1, LUA_TTABLE); + lua_settop(L, 2); + while (lua_next(L, 1)) + { + ++i; + if (i == j) + { + lua_pushvalue(L, -2); + lua_pushvalue(L, -2); + return 2; + } + lua_pop(L, 1); + } + return 0; } const luaL_Reg tab_funcs[] = { - {"keys", tab_keys}, - {"values", tab_values}, - {"size", get_size}, - {"random", get_random}, - {NULL, NULL} + {"keys", tab_keys}, + {"values", tab_values}, + {"size", get_size}, + {"random", get_random}, + {NULL, NULL} }; -int open_table(lua_State *L){ - luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0); - return 0; +int open_table(lua_State *L) +{ + luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0); + return 0; } /******************** TABLE END ********************/ -void open_additional_libs(lua_State *L){ - //open_bit(L); - open_string(L); - open_math(L); - open_table(L); -} \ No newline at end of file +void open_additional_libs(lua_State *L) +{ +#ifdef USE_LUAJIT_ONE + open_bit(L); + open_math(L); +#endif + open_string(L); + open_table(L); +} diff --git a/src/3rd party/lua-extensions/script_additional_libs.h b/src/3rd party/lua-extensions/script_additional_libs.h index 4c936c3e503..545d27cd369 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.h +++ b/src/3rd party/lua-extensions/script_additional_libs.h @@ -1,6 +1,11 @@ #pragma once +#include "../../build_config_defines.h" +#ifdef USE_LUAJIT_ONE +#include "../LuaJIT-1.1.8/etc/lua.hpp" +#else #include "../luajit-2.0/src/lua.hpp" +#endif #include #include diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index cecd3491209..bbb1e9b45d1 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -27,6 +31,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + @@ -38,6 +48,10 @@ + + + + <_ProjectFileVersion>12.0.30501.0 @@ -47,6 +61,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ @@ -89,6 +108,45 @@ true + + + MaxSpeed + AnySuitable + true + Speed + true + true + $(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + pch.h + Level3 + ProgramDatabase + 4530;4100;4714;4127;%(DisableSpecificWarnings) + + + $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalLibraryDirectories) + true + false + Windows + true + true + false + + + $(xrLibDir)$(TargetName).lib + MachineX86 + true + + Disabled @@ -143,6 +201,7 @@ Create Create + Create diff --git a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj index 11fb631a988..33830f9ecd2 100644 --- a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj +++ b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -34,6 +38,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -53,6 +64,11 @@ + + + + + @@ -76,6 +92,13 @@ false false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + true + false + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -185,6 +208,64 @@ regsvr32 /s /c "$(TargetPath)" + + + NDEBUG;%(PreprocessorDefinitions) + false + Win32 + true + $(IntDir)default.tlb + default.h + + + default_i.c + default_p.c + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + ../../../include;%(AdditionalIncludeDirectories) + WIN32;_WINDOWS;NDEBUG;_USRDLL;dSINGLE;MSVC;dNODEBUG;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Level3 + ProgramDatabase + 4100;4505;%(DisableSpecificWarnings) + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + $(IntDir);%(AdditionalIncludeDirectories) + + + ../../../config/msvcdefs.def + false + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + + Performing registration + regsvr32 /s /c "$(TargetPath)" + + NDEBUG;%(PreprocessorDefinitions) @@ -290,12 +371,14 @@ 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) + 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) + 4244;%(DisableSpecificWarnings) diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index bb5aa7e46d1..c8006ad4e1d 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -23,6 +27,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -36,6 +47,10 @@ + + + + @@ -55,6 +70,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -145,6 +165,58 @@ MachineX86 + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(SolutionDir)3rd party\openal\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;ROUTER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + + + + + $(IntDir) + $(IntDir) + $(IntDir) + + + Level3 + true + CompileAsCpp + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + version.lib;winmm.lib;%(AdditionalDependencies) + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Disabled @@ -153,9 +225,13 @@ MaxSpeed + MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + Disabled @@ -164,9 +240,13 @@ MaxSpeed + MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + Disabled @@ -175,9 +255,13 @@ MaxSpeed + MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + Disabled @@ -186,9 +270,13 @@ MaxSpeed + MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index ee6429a665c..83237f3607b 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -22,6 +26,12 @@ Unicode true + + DynamicLibrary + v120 + Unicode + true + DynamicLibrary v120 @@ -34,6 +44,10 @@ + + + + @@ -52,6 +66,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -103,10 +122,40 @@ MachineX86 + + + AnySuitable + true + Speed + true + true + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRAPI_EXPORTS;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + Level4 + ProgramDatabase + + + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Create Create + Create diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 398a9f13c55..d8ed7f42c2f 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -145,6 +165,46 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + + + nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -464,6 +524,7 @@ Create Create Create + Create diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index e0bda740e65..ac92108ca55 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -143,6 +163,45 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + + + nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -504,6 +563,7 @@ Create Create Create + Create diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index 8affa4982c7..dcea9252d70 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -145,6 +165,46 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_DX10;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + -Zm110 %(AdditionalOptions) + + + dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -558,6 +618,7 @@ Create Create Create + Create diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index bdc496e983b..a6eb18cc238 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -145,6 +165,46 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_DX11;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + -Zm113 %(AdditionalOptions) + + + dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -569,6 +629,7 @@ Create Create Create + Create diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 80532440d77..6af9f4ed8e9 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -12,6 +12,8 @@ // CORE: #define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails +//#define USE_LUAJIT_ONE // LuaJit 1.1.8. Dont forget to change build configuration to $(Configuration)_LuaJit_one +#define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE // VISUAL: diff --git a/src/editor/editor.vcxproj b/src/editor/editor.vcxproj index 968c49880a5..382d7a5284e 100644 --- a/src/editor/editor.vcxproj +++ b/src/editor/editor.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -23,6 +27,13 @@ true true + + DynamicLibrary + v120 + MultiByte + true + true + DynamicLibrary v120 @@ -36,6 +47,10 @@ + + + + @@ -54,6 +69,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -100,6 +120,29 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;EDITOR_LIBRARY;%(PreprocessorDefinitions) + MultiThreadedDLL + Fast + Use + pch.hpp + Level4 + ProgramDatabase + + + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + ..\..\sdk\binaries\DockPanelSkin.dll @@ -146,6 +189,7 @@ Create Create + Create diff --git a/src/editor_controls/editor_controls.vcxproj b/src/editor_controls/editor_controls.vcxproj index 896e8a9ef78..857ee4063f0 100644 --- a/src/editor_controls/editor_controls.vcxproj +++ b/src/editor_controls/editor_controls.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -23,6 +27,13 @@ true true + + DynamicLibrary + v120 + Unicode + true + true + DynamicLibrary v120 @@ -36,6 +47,10 @@ + + + + @@ -54,6 +69,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -100,6 +120,31 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;EDITOR_CONTROLS_LIBRARY;%(PreprocessorDefinitions) + + + MultiThreadedDLL + Fast + Use + pch.hpp + Level4 + ProgramDatabase + + + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + $(xrSdkDir)binaries\Flobbster.Windows.Forms.PropertyGrid.dll @@ -130,6 +175,7 @@ Create Create + Create diff --git a/src/engine.sln b/src/engine.sln index 939293e555f..3060c16220f 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -143,6 +143,7 @@ Global Mixed_Dedicated|Win32 = Mixed_Dedicated|Win32 Mixed|Win32 = Mixed|Win32 Release_Dedicated|Win32 = Release_Dedicated|Win32 + Release_LuaJit_one|Win32 = Release_LuaJit_one|Win32 Release|Win32 = Release|Win32 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution @@ -153,6 +154,8 @@ Global {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed|Win32.ActiveCfg = Mixed|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed|Win32.Build.0 = Mixed|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Win32.ActiveCfg = Release|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Win32.Build.0 = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -162,6 +165,8 @@ Global {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed|Win32.ActiveCfg = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed|Win32.Build.0 = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Win32.ActiveCfg = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Win32.Build.0 = Release|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_Dedicated|Win32.ActiveCfg = Release|Win32 @@ -171,6 +176,8 @@ Global {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed|Win32.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed|Win32.Build.0 = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.ActiveCfg = Release|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.Build.0 = Release|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -179,6 +186,7 @@ Global {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.Build.0 = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -186,6 +194,7 @@ Global {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.Build.0 = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -193,6 +202,7 @@ Global {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.Build.0 = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.ActiveCfg = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -200,6 +210,7 @@ Global {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.Build.0 = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -207,6 +218,7 @@ Global {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.Build.0 = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.ActiveCfg = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -214,6 +226,7 @@ Global {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.Build.0 = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.ActiveCfg = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -221,6 +234,7 @@ Global {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.Build.0 = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.ActiveCfg = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -228,6 +242,7 @@ Global {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.Build.0 = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Win32.ActiveCfg = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -236,6 +251,8 @@ Global {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed|Win32.Build.0 = Mixed|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.ActiveCfg = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.Build.0 = Release|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -244,6 +261,7 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.Build.0 = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.ActiveCfg = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -251,6 +269,7 @@ Global {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.Build.0 = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.ActiveCfg = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -258,6 +277,7 @@ Global {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.Build.0 = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Win32.ActiveCfg = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -266,6 +286,8 @@ Global {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed|Win32.Build.0 = Mixed|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Win32.ActiveCfg = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Win32.Build.0 = Release|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -275,6 +297,8 @@ Global {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed|Win32.Build.0 = Mixed|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Win32.ActiveCfg = Release|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Win32.Build.0 = Release|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -284,6 +308,8 @@ Global {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed|Win32.ActiveCfg = Mixed|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed|Win32.Build.0 = Mixed|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Win32.ActiveCfg = Release|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Win32.Build.0 = Release|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -293,6 +319,8 @@ Global {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed|Win32.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed|Win32.Build.0 = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Win32.ActiveCfg = Release|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Win32.Build.0 = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -302,6 +330,8 @@ Global {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Win32.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Win32.Build.0 = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Win32.ActiveCfg = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Win32.Build.0 = Release|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -311,6 +341,8 @@ Global {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed|Win32.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed|Win32.Build.0 = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Win32.ActiveCfg = Release|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Win32.Build.0 = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -320,6 +352,8 @@ Global {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed|Win32.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed|Win32.Build.0 = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Win32.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Win32.Build.0 = Release|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -329,6 +363,8 @@ Global {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed|Win32.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed|Win32.Build.0 = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Win32.ActiveCfg = Release|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Win32.Build.0 = Release|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -338,6 +374,8 @@ Global {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed|Win32.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed|Win32.Build.0 = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Win32.ActiveCfg = Release|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Win32.Build.0 = Release|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -347,6 +385,8 @@ Global {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed|Win32.ActiveCfg = Mixed|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed|Win32.Build.0 = Mixed|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Win32.ActiveCfg = Release|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Win32.Build.0 = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -356,6 +396,8 @@ Global {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed|Win32.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed|Win32.Build.0 = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release|Win32.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release|Win32.Build.0 = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -367,6 +409,7 @@ Global {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed|Win32.Build.0 = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release|Win32.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -377,6 +420,7 @@ Global {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed|Win32.Build.0 = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release|Win32.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -387,6 +431,7 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed|Win32.Build.0 = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -395,6 +440,7 @@ Global {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.Build.0 = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -403,6 +449,7 @@ Global {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Win32.Build.0 = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -413,6 +460,7 @@ Global {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed|Win32.Build.0 = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -423,6 +471,7 @@ Global {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed|Win32.Build.0 = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Win32.ActiveCfg = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -431,6 +480,8 @@ Global {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed|Win32.Build.0 = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Win32.ActiveCfg = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Win32.Build.0 = Release|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -440,6 +491,8 @@ Global {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed|Win32.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed|Win32.Build.0 = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.ActiveCfg = Release|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.Build.0 = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -448,6 +501,7 @@ Global {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.Build.0 = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.ActiveCfg = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -455,6 +509,7 @@ Global {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.Build.0 = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release|Win32.ActiveCfg = Release|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.Build.0 = Debug_Dedicated|Win32 @@ -466,6 +521,8 @@ Global {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed|Win32.Build.0 = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_Dedicated|Win32.ActiveCfg = Release_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_Dedicated|Win32.Build.0 = Release_Dedicated|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Win32.ActiveCfg = Release|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Win32.Build.0 = Release|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -475,6 +532,8 @@ Global {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed|Win32.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed|Win32.Build.0 = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.ActiveCfg = Release|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.Build.0 = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -483,6 +542,7 @@ Global {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.Build.0 = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_LuaJit_one|Win32.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -490,6 +550,7 @@ Global {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.Build.0 = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.ActiveCfg = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -497,6 +558,7 @@ Global {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.Build.0 = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Win32.ActiveCfg = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -505,6 +567,8 @@ Global {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed|Win32.ActiveCfg = Mixed|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed|Win32.Build.0 = Mixed|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release|Win32.ActiveCfg = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release|Win32.Build.0 = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -516,6 +580,7 @@ Global {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed|Win32.Build.0 = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -526,6 +591,7 @@ Global {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed|Win32.Build.0 = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Win32.ActiveCfg = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -534,6 +600,8 @@ Global {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed|Win32.Build.0 = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Win32.ActiveCfg = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Win32.Build.0 = Release|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -543,6 +611,8 @@ Global {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed|Win32.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed|Win32.Build.0 = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.ActiveCfg = Release|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.Build.0 = Release|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -551,6 +621,7 @@ Global {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.Build.0 = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.ActiveCfg = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.ActiveCfg = Debug|Win32 @@ -558,6 +629,7 @@ Global {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.Build.0 = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -569,6 +641,8 @@ Global {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed|Win32.Build.0 = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release|Win32.Build.0 = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -581,6 +655,8 @@ Global {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed|Win32.Build.0 = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.Build.0 = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 @@ -593,6 +669,8 @@ Global {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.Build.0 = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 @@ -604,6 +682,8 @@ Global {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Win32.Build.0 = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.Build.0 = Release|Win32 EndGlobalSection diff --git a/src/plugins/Max/MAX_Export60.vcxproj b/src/plugins/Max/MAX_Export60.vcxproj index f2f38da60a1..c35b15460be 100644 --- a/src/plugins/Max/MAX_Export60.vcxproj +++ b/src/plugins/Max/MAX_Export60.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -33,6 +37,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -52,6 +63,11 @@ + + + + + @@ -73,6 +89,12 @@ true false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + true + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -169,6 +191,54 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + AnySuitable + true + $(DXSDK_DIR)Include;$(SolutionDir);$(XRAY_16X_LIBS)3dsmax/ver-6.0/include;$(XRAY_16X_LIBS)3dsmax/ver-6.0/cssdk/include;$(SolutionDir)plugins\shared;%(AdditionalIncludeDirectories) + UTILITY_EXPORTS;WIN32;_WINDOWS;_USRDLL;_MAX_EXPORT;_MAX_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + stdafx.h + + + Level3 + true + false + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0809 + + + /MACHINE:I386 %(AdditionalOptions) + mesh.lib;geom.lib;gfx.lib;maxutil.lib;core.lib;paramblk2.lib;comctl32.lib;odbc32.lib;odbccp32.lib;Winmm.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_export.dlu + true + $(XRAY_16X_LIBS)\bugtrap\bin;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)3dsmax/ver-6.0/lib;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + Export\Utility.def + $(OutDir)xray_export.pdb + true + 0x08970000 + false + + NDEBUG;%(PreprocessorDefinitions) @@ -238,6 +308,7 @@ true true true + true @@ -247,6 +318,7 @@ Create Create Create + Create diff --git a/src/plugins/Max/MAX_Material60.vcxproj b/src/plugins/Max/MAX_Material60.vcxproj index 20eb205f219..1d8238d290a 100644 --- a/src/plugins/Max/MAX_Material60.vcxproj +++ b/src/plugins/Max/MAX_Material60.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -143,6 +162,53 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + /LD %(AdditionalOptions) + OnlyExplicitInline + $(XRAY_16X_LIBS)3dsmax/ver-6.0/include;$(XRAY_16X_LIBS)3dsmax/ver-6.0/cssdk/include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;_MAX_MATERIAL;_MAX_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Cdecl + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + Winmm.lib;comctl32.lib;core.lib;geom.lib;gfx.lib;mesh.lib;maxutil.lib;maxscrpt.lib;manipsys.lib;paramblk2.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_material.dlt + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(XRAY_16X_LIBS)3dsmax/ver-6.0/lib;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + ..\Shared\GameMaterial.def + $(OutDir)xray_material.pdb + Windows + true + 0x3e0e0000 + false + + @@ -153,6 +219,7 @@ Create Create + Create diff --git a/src/plugins/Maya/Maya_Export2008.vcxproj b/src/plugins/Maya/Maya_Export2008.vcxproj index e4cdb76da33..761eac9c9d6 100644 --- a/src/plugins/Maya/Maya_Export2008.vcxproj +++ b/src/plugins/Maya/Maya_Export2008.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -135,12 +154,56 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(DXSDK_DIR)Include;$(XRAY_16X_LIBS)maya/ver-2008/include;../Shared;$(SolutionDir)xrEngine;$(SolutionDir)utils/xrQSlim/src;$(XRAY_16X_LIBS)MagicSoftware\FreeMagic\Include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_EXPORT;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaAnim.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_export.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2008/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_export.pdb + Windows + false + + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -165,6 +228,8 @@ + + @@ -172,6 +237,8 @@ + + @@ -182,6 +249,8 @@ + + @@ -189,6 +258,8 @@ + + @@ -211,6 +282,7 @@ Create Create + Create diff --git a/src/plugins/Maya/Maya_Export2009.vcxproj b/src/plugins/Maya/Maya_Export2009.vcxproj index 0e420b57eae..68fe7d7ef92 100644 --- a/src/plugins/Maya/Maya_Export2009.vcxproj +++ b/src/plugins/Maya/Maya_Export2009.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -136,12 +155,56 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(DXSDK_DIR)Include;$(XRAY_16X_LIBS)maya/ver-2009/include;../Shared;$(SolutionDir)xrEngine;$(SolutionDir)utils/xrQSlim/src/;$(XRAY_16X_LIBS)MagicSoftware\FreeMagic\Include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_EXPORT;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaAnim.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_export.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2009/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_export.pdb + Windows + false + + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -166,6 +229,8 @@ + + @@ -173,6 +238,8 @@ + + @@ -183,6 +250,8 @@ + + @@ -190,6 +259,8 @@ + + @@ -212,6 +283,7 @@ Create Create + Create diff --git a/src/plugins/Maya/Maya_Material2008.vcxproj b/src/plugins/Maya/Maya_Material2008.vcxproj index 9c8e2ae98c6..29dd489fe1c 100644 --- a/src/plugins/Maya/Maya_Material2008.vcxproj +++ b/src/plugins/Maya/Maya_Material2008.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -136,6 +155,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)maya/ver-2008/include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_MATERIAL;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaRender.lib;OpenMayaUI.lib;glu32.lib;opengl32.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_material.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2008/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_material.pdb + Windows + false + + @@ -145,6 +206,7 @@ Create Create + Create diff --git a/src/plugins/Maya/Maya_Material2009.vcxproj b/src/plugins/Maya/Maya_Material2009.vcxproj index d3ced9e08c2..8a3b7ec73db 100644 --- a/src/plugins/Maya/Maya_Material2009.vcxproj +++ b/src/plugins/Maya/Maya_Material2009.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -136,6 +155,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)maya/ver-2009/include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_MATERIAL;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaRender.lib;OpenMayaUI.lib;glu32.lib;opengl32.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_material.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2009/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_material.pdb + Windows + false + + @@ -145,6 +206,7 @@ Create Create + Create diff --git a/src/plugins/lw/LW_Export80.vcxproj b/src/plugins/lw/LW_Export80.vcxproj index bd92d81f5ef..a1ee5a7e339 100644 --- a/src/plugins/lw/LW_Export80.vcxproj +++ b/src/plugins/lw/LW_Export80.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -27,6 +31,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + @@ -40,6 +50,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -49,6 +64,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -100,6 +120,55 @@ + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;$(XRAY_16X_LIBS)lightwave/ver-8.0/include/lwsdk;../Shared;$(ProjectDir)export;%(AdditionalIncludeDirectories) + NDEBUG;_X86_;_WIN32;WIN32;_WINDOWS;_USRDLL;_LW_PLUGIN;_LW_EXPORT;XRCORE_STATIC;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + true + Fast + false + true + Use + stdafx.h + $(IntDir)$(TargetName).pch + $(IntDir) + $(IntDir) + $(IntDir) + false + Level3 + true + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;lw_server.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_export.p + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;Server\$(Configuration);$(xrLibDir);%(AdditionalLibraryDirectories) + Server\serv.def + + + false + + + + _DEBUG;%(PreprocessorDefinitions) @@ -185,6 +254,8 @@ false + + @@ -192,8 +263,12 @@ false + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -201,6 +276,8 @@ false + + @@ -208,6 +285,8 @@ false + + @@ -215,6 +294,8 @@ false + + @@ -222,6 +303,8 @@ false + + @@ -229,6 +312,8 @@ false + + @@ -236,6 +321,8 @@ false + + @@ -243,6 +330,8 @@ false + + @@ -252,8 +341,12 @@ $(IntDir)%(Filename)1.xdc + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -261,6 +354,8 @@ false + + @@ -270,8 +365,12 @@ $(IntDir)%(Filename)1.xdc + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -287,6 +386,8 @@ false + + @@ -300,6 +401,7 @@ Create Create + Create @@ -309,7 +411,10 @@ $(IntDir)%(Filename).xdc + + $(IntDir)%(Filename).obj + $(IntDir)%(Filename).obj diff --git a/src/plugins/lw/LW_Server.vcxproj b/src/plugins/lw/LW_Server.vcxproj index 62773a2e500..b5ff52c39ca 100644 --- a/src/plugins/lw/LW_Server.vcxproj +++ b/src/plugins/lw/LW_Server.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -26,6 +30,12 @@ false MultiByte + + StaticLibrary + v120 + false + MultiByte + @@ -39,6 +49,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -47,6 +62,10 @@ $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -77,6 +96,33 @@ true + + + MaxSpeed + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;%(AdditionalIncludeDirectories) + _X86_;_WIN32;WIN32;NDEBUG;_LIB;%(PreprocessorDefinitions) + true + true + + + MultiThreadedDLL + true + Fast + false + Level3 + true + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + $(xrLibDir)$(TargetName).lib + true + + Disabled @@ -107,7 +153,9 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc diff --git a/src/plugins/lw/LW_Shader80.vcxproj b/src/plugins/lw/LW_Shader80.vcxproj index e7bbdfaca28..9ba04f04bc1 100644 --- a/src/plugins/lw/LW_Shader80.vcxproj +++ b/src/plugins/lw/LW_Shader80.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -27,6 +31,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + @@ -40,6 +50,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -49,6 +64,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -94,6 +114,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;$(XRAY_16X_LIBS)lightwave/ver-8.0/include/lwsdk;../Shared;%(AdditionalIncludeDirectories) + NDEBUG;_X86_;_WIN32;WIN32;_WINDOWS;_USRDLL;_LW_PLUGIN;_LW_SHADER;XRCORE_STATIC;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + true + Precise + true + Use + stdafx.h + + + Level3 + true + Cdecl + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;lw_server.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_shader.p + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) + Server\serv.def + false + + _DEBUG;%(PreprocessorDefinitions) @@ -150,19 +212,26 @@ + + + + + + Create Create + Create diff --git a/src/utils/CompressionTest/CompressionTest.vcxproj b/src/utils/CompressionTest/CompressionTest.vcxproj index 56c4389889b..2ed6f451b54 100644 --- a/src/utils/CompressionTest/CompressionTest.vcxproj +++ b/src/utils/CompressionTest/CompressionTest.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,11 @@ v120 MultiByte + + Application + v120 + MultiByte + Application v120 @@ -34,6 +43,11 @@ + + + + + @@ -53,6 +67,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -96,6 +115,31 @@ MachineX86 + + + %(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions) + + + MultiThreadedDLL + false + true + + + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + Console + true + true + false + MachineX86 + + @@ -143,6 +187,7 @@ Level1 Level1 + Level1 @@ -217,6 +262,7 @@ _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) diff --git a/src/utils/ETools/ETools.vcxproj b/src/utils/ETools/ETools.vcxproj index 90330021342..4f86280ec32 100644 --- a/src/utils/ETools/ETools.vcxproj +++ b/src/utils/ETools/ETools.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -37,6 +41,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -55,6 +66,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -64,6 +80,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -128,6 +149,60 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)utils\xrQSlim\src;$(XRAY_16X_LIBS)libvorbis-1.2.3\include;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;ETOOLS_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + Level3 + true + ProgramDatabase + Cdecl + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + /MACHINE:I386 %(AdditionalOptions) + libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;%(AdditionalDependencies) + false + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)libvorbis-1.2.3\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;%(AdditionalLibraryDirectories) + user32.lib;%(IgnoreSpecificDefaultLibraries) + true + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + _DEBUG;%(PreprocessorDefinitions) @@ -229,6 +304,7 @@ Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings @@ -237,7 +313,9 @@ $(IntDir)%(Filename)1.obj TurnOffAllWarnings $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj TurnOffAllWarnings + TurnOffAllWarnings @@ -248,27 +326,32 @@ Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings true true true + true Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings Create Create Create + Create Level4 diff --git a/src/utils/LWO/LWO.vcxproj b/src/utils/LWO/LWO.vcxproj index 1413cf5ec33..b3cafe51ad6 100644 --- a/src/utils/LWO/LWO.vcxproj +++ b/src/utils/LWO/LWO.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -26,6 +30,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + @@ -39,6 +49,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -48,6 +63,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -87,6 +107,40 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + WIN32;NDEBUG;_WINDOWS;_USRDLL;LWO_EXPORTS;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + true + MultiThreadedDLL + true + $(IntDir) + $(IntDir) + $(IntDir) + Level3 + true + StdCall + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;%(AdditionalDependencies) + true + false + $(xrLibDir)$(TargetName).lib + + _DEBUG;%(PreprocessorDefinitions) diff --git a/src/utils/ctool/ctool.vcxproj b/src/utils/ctool/ctool.vcxproj index 482c9aa9f97..8bd8c0ee509 100644 --- a/src/utils/ctool/ctool.vcxproj +++ b/src/utils/ctool/ctool.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -22,6 +26,12 @@ Unicode true + + Application + v120 + Unicode + true + Application v120 @@ -34,6 +44,10 @@ + + + + @@ -52,6 +66,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -94,6 +113,29 @@ MachineX86 + + + %(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + MultiThreadedDLL + + + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + Console + true + true + false + + + MachineX86 + + diff --git a/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj b/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj index d29a6ea0c1a..f558ee584af 100644 --- a/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj +++ b/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,12 @@ MultiByte true + + Application + v120 + MultiByte + true + Application v120 @@ -33,6 +43,10 @@ + + + + @@ -49,6 +63,10 @@ $(xrBinDir) $(xrIntDir)$(ProjectName)\ + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + Disabled @@ -92,6 +110,29 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + true + true + false + + + MachineX86 + + diff --git a/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj b/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj index 58e4199e310..e613e6231b1 100644 --- a/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj +++ b/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,12 @@ MultiByte true + + Application + v120 + MultiByte + true + Application v120 @@ -33,6 +43,10 @@ + + + + @@ -49,6 +63,10 @@ $(xrBinDir) $(xrIntDir)$(ProjectName)\ + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + Disabled @@ -98,11 +116,39 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + pch.h + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + $(OutDir)$(ProjectName).pdb + Console + true + true + false + + + MachineX86 + + Create Create + Create diff --git a/src/utils/xrAI/xrAI.vcxproj b/src/utils/xrAI/xrAI.vcxproj index 5d246fc476c..3ec8e594fee 100644 --- a/src/utils/xrAI/xrAI.vcxproj +++ b/src/utils/xrAI/xrAI.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -50,6 +61,11 @@ + + + + + @@ -69,6 +85,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -175,6 +196,62 @@ FreeImage.lib;%(AdditionalDependencies) + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;AI_COMPILER;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) + true + Windows + 0 + 0 + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + NotSet + FreeImage.lib;%(AdditionalDependencies) + + NDEBUG;%(PreprocessorDefinitions) @@ -248,6 +325,7 @@ AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode true @@ -259,21 +337,25 @@ true true true + true true true true + true true true true + true AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode @@ -282,6 +364,7 @@ Use Use Use + Use @@ -298,6 +381,7 @@ Create Create Create + Create @@ -309,6 +393,7 @@ true true true + true diff --git a/src/utils/xrCompress/xrCompress.vcxproj b/src/utils/xrCompress/xrCompress.vcxproj index db97f2fa74f..e1d941653d1 100644 --- a/src/utils/xrCompress/xrCompress.vcxproj +++ b/src/utils/xrCompress/xrCompress.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -38,6 +42,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + @@ -56,6 +67,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -65,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -119,6 +140,53 @@ false + + + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + stdafx.h + + + Level3 + true + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Console + true + true + true + UseLinkTimeCodeGeneration + false + + $(OutDir)$(TargetName).tlb @@ -205,6 +273,8 @@ + + @@ -213,6 +283,8 @@ + + @@ -221,6 +293,8 @@ + + @@ -229,6 +303,8 @@ + + @@ -237,6 +313,8 @@ + + @@ -245,6 +323,8 @@ + + @@ -253,6 +333,8 @@ + + @@ -261,6 +343,8 @@ + + @@ -269,6 +353,8 @@ + + @@ -277,6 +363,8 @@ + + @@ -285,6 +373,8 @@ + + @@ -293,6 +383,8 @@ + + @@ -301,6 +393,8 @@ + + @@ -309,6 +403,8 @@ + + @@ -317,6 +413,8 @@ + + @@ -325,6 +423,8 @@ + + @@ -333,6 +433,8 @@ + + @@ -341,6 +443,8 @@ + + @@ -349,6 +453,8 @@ + + @@ -357,6 +463,8 @@ + + @@ -365,6 +473,8 @@ + + @@ -373,6 +483,8 @@ + + @@ -381,6 +493,8 @@ + + @@ -389,6 +503,8 @@ + + @@ -397,6 +513,8 @@ + + @@ -405,6 +523,8 @@ + + @@ -413,6 +533,8 @@ + + @@ -421,6 +543,8 @@ + + @@ -429,6 +553,8 @@ + + @@ -437,6 +563,8 @@ + + @@ -445,6 +573,8 @@ + + @@ -453,6 +583,8 @@ + + @@ -461,6 +593,8 @@ + + @@ -469,6 +603,8 @@ + + @@ -477,6 +613,8 @@ + + @@ -485,6 +623,8 @@ + + @@ -493,6 +633,8 @@ + + @@ -501,6 +643,8 @@ + + @@ -509,6 +653,8 @@ + + @@ -517,6 +663,8 @@ + + @@ -525,6 +673,8 @@ + + @@ -533,6 +683,8 @@ + + @@ -541,6 +693,8 @@ + + @@ -549,6 +703,8 @@ + + @@ -557,6 +713,8 @@ + + @@ -565,6 +723,8 @@ + + @@ -573,6 +733,8 @@ + + @@ -581,6 +743,8 @@ + + @@ -589,6 +753,8 @@ + + @@ -597,6 +763,8 @@ + + @@ -605,6 +773,8 @@ + + @@ -613,6 +783,8 @@ + + @@ -621,6 +793,8 @@ + + @@ -629,6 +803,8 @@ + + @@ -637,6 +813,8 @@ + + @@ -645,6 +823,8 @@ + + @@ -653,6 +833,8 @@ + + @@ -661,6 +843,8 @@ + + @@ -669,6 +853,8 @@ + + @@ -677,6 +863,8 @@ + + @@ -685,6 +873,8 @@ + + @@ -693,6 +883,8 @@ + + @@ -701,6 +893,8 @@ + + @@ -709,6 +903,8 @@ + + @@ -717,6 +913,8 @@ + + @@ -725,6 +923,8 @@ + + @@ -733,6 +933,8 @@ + + @@ -741,6 +943,8 @@ + + @@ -749,6 +953,8 @@ + + @@ -757,12 +963,15 @@ + + Create Create Create + Create diff --git a/src/utils/xrDO_Light/xrDO_Light.vcxproj b/src/utils/xrDO_Light/xrDO_Light.vcxproj index 20b4854ba5e..4ffb6cb6e90 100644 --- a/src/utils/xrDO_Light/xrDO_Light.vcxproj +++ b/src/utils/xrDO_Light/xrDO_Light.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -50,6 +61,11 @@ + + + + + @@ -69,6 +85,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -163,6 +184,58 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -225,6 +298,7 @@ Create Create Create + Create diff --git a/src/utils/xrDXT/DXT.vcxproj b/src/utils/xrDXT/DXT.vcxproj index ad4fe29075b..dcf97015e91 100644 --- a/src/utils/xrDXT/DXT.vcxproj +++ b/src/utils/xrDXT/DXT.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -39,6 +43,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -57,6 +68,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -67,6 +83,12 @@ false .dll + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + .dll + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -134,6 +156,66 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + Release\DXT.tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\nvtt\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;DXT_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + stdafx.h + $(IntDir)$(ProjectName).pch + $(IntDir) + $(IntDir) + $(IntDir) + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrLibDir);%(AdditionalLibraryDirectories) + %(IgnoreSpecificDefaultLibraries) + true + $(OutDir)$(TargetName).pdb + false + + + true + true + true + UseLinkTimeCodeGeneration + $(xrLibDir)$(TargetName).lib + + _DEBUG;%(PreprocessorDefinitions) @@ -252,6 +334,7 @@ TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings @@ -262,6 +345,7 @@ Create Create Create + Create diff --git a/src/utils/xrLC/xrLC.vcxproj b/src/utils/xrLC/xrLC.vcxproj index 6e21e111bed..b996edac783 100644 --- a/src/utils/xrLC/xrLC.vcxproj +++ b/src/utils/xrLC/xrLC.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -39,6 +43,14 @@ MultiByte true + + Application + v120 + false + false + MultiByte + true + @@ -57,6 +69,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -66,6 +83,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -131,6 +153,63 @@ NotSet + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + /Gs %(AdditionalOptions) + Full + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)utils\xrQSlim\src;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;%(AdditionalIncludeDirectories) + _USE_MATH_DEFINES;WIN32;_WINDOWS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + NotSet + true + $(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + NotSet + + _DEBUG;%(PreprocessorDefinitions) @@ -283,10 +362,16 @@ + + + + + + $(IntDir)%(Filename)1.obj @@ -294,7 +379,9 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc @@ -305,6 +392,7 @@ true true true + true @@ -317,6 +405,7 @@ true true true + true @@ -328,6 +417,7 @@ Create Create Create + Create @@ -336,17 +426,20 @@ true true true + true true true true + true true true true + true @@ -355,11 +448,13 @@ true true true + true true true true + true @@ -367,6 +462,7 @@ true true true + true @@ -379,6 +475,7 @@ All + All @@ -387,6 +484,7 @@ true true true + true @@ -394,11 +492,13 @@ true true true + true true true true + true @@ -407,22 +507,26 @@ true true true + true true true true + true true true true + true true true true + true diff --git a/src/utils/xrLC_Light/xrLC_Light.vcxproj b/src/utils/xrLC_Light/xrLC_Light.vcxproj index 5965e3aee42..d0dbaf0259e 100644 --- a/src/utils/xrLC_Light/xrLC_Light.vcxproj +++ b/src/utils/xrLC_Light/xrLC_Light.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -48,6 +58,10 @@ + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -127,6 +146,37 @@ zlibMS.lib;%(AdditionalDependencies) + + + Full + AnySuitable + true + Speed + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)xrQSlim\src;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)zlib\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRLC_LIGHT_EXPORTS;%(PreprocessorDefinitions) + + + MultiThreadedDLL + StreamingSIMDExtensions2 + Fast + Use + Level3 + ProgramDatabase + + + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)zlib\bin;%(AdditionalLibraryDirectories) + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + zlibMS.lib;%(AdditionalDependencies) + + Disabled @@ -255,10 +305,16 @@ + + + + + + @@ -308,6 +364,7 @@ true true true + true @@ -316,12 +373,14 @@ true true true + true true true true + true @@ -330,6 +389,7 @@ Create Create Create + Create diff --git a/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj b/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj index 0b7838e7db6..6fb5f290830 100644 --- a/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj +++ b/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -48,6 +58,10 @@ + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -120,6 +139,30 @@ MachineX86 + + + $(xrSdkDir)include;$(SolutionDir)xrQSlim\src;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRLC_LIGHT_STAB_EXPORTS;%(PreprocessorDefinitions) + + + MultiThreadedDLL + Fast + Use + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Disabled @@ -153,6 +196,8 @@ + + diff --git a/src/utils/xrQSlim/xrQSlim.vcxproj b/src/utils/xrQSlim/xrQSlim.vcxproj index 80aab27dd5d..f15bddd6fd5 100644 --- a/src/utils/xrQSlim/xrQSlim.vcxproj +++ b/src/utils/xrQSlim/xrQSlim.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -30,6 +34,11 @@ v120 MultiByte + + StaticLibrary + v120 + MultiByte + StaticLibrary v120 @@ -48,6 +57,11 @@ + + + + + @@ -65,6 +79,10 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -111,6 +129,32 @@ ProgramDatabase + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;XR_QSLIM_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level3 + ProgramDatabase + + Full @@ -176,6 +220,7 @@ Create Create Create + Create diff --git a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj index 2147a8e23ff..b22e7ad7904 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj +++ b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -26,6 +30,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -45,6 +55,11 @@ + + + + + @@ -75,6 +90,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -196,6 +216,45 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRSE_FACTORY_EXPORTS;LUABIND_NO_ERROR_CHECKING;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + @@ -342,7 +401,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -351,7 +412,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -359,7 +422,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -367,7 +432,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch Create @@ -377,8 +444,11 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch Create + Create pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -391,7 +461,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -399,7 +471,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -407,7 +481,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -415,7 +491,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -423,7 +501,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -431,7 +511,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -439,7 +521,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -448,7 +532,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -456,7 +542,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -464,7 +552,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -472,7 +562,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -480,7 +572,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -488,7 +582,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -496,7 +592,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -504,8 +602,11 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch true + true pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -513,7 +614,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -521,7 +624,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -530,7 +635,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -546,7 +653,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -554,7 +663,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -562,7 +673,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -571,7 +684,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -579,7 +694,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -587,7 +704,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -595,7 +714,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -603,7 +724,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -611,7 +734,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -619,7 +744,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -627,7 +754,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -635,7 +764,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -643,7 +774,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch pch_script.h @@ -651,7 +784,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -664,6 +799,7 @@ Create Create Create + Create pch_script.h @@ -671,7 +807,9 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch @@ -682,8 +820,11 @@ true + true + + diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 1f5195c9992..ea8cdd6904d 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -38,6 +42,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -56,6 +67,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -65,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -130,6 +151,63 @@ NotSet + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCDB_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + false + true + true + UseLinkTimeCodeGeneration + false + + + $(xrLibDir)$(TargetName).lib + NotSet + + NDEBUG;%(PreprocessorDefinitions) @@ -229,6 +307,7 @@ false true true + true false @@ -312,6 +391,7 @@ Create Create Create + Create false @@ -319,6 +399,7 @@ false AssemblyAndSourceCode + AssemblyAndSourceCode false @@ -326,11 +407,13 @@ false AssemblyAndSourceCode + AssemblyAndSourceCode false AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index e68f412acfa..66aab64ae2d 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release_SecuROM Win32 @@ -46,6 +50,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -68,6 +79,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -77,6 +93,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ @@ -143,6 +164,60 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCPU_PIPE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + _DEBUG;%(PreprocessorDefinitions) @@ -253,6 +328,7 @@ Create Create Create + Create @@ -262,9 +338,13 @@ AssemblyAndSourceCode MaxSpeed + MaxSpeed false + false false + false AssemblyAndSourceCode + AssemblyAndSourceCode diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 0f68f53410c..01c40e32704 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -68,6 +83,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -146,6 +166,48 @@ NotSet + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + + + $(xrLibDir)$(TargetName).lib + NotSet + + Full @@ -189,7 +251,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -200,7 +265,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -211,7 +279,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -222,9 +293,13 @@ TurnOffAllWarnings true + true + + TurnOffAllWarnings + TurnOffAllWarnings @@ -235,7 +310,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -246,7 +324,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -257,7 +338,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -268,7 +352,10 @@ $(IntDir)%(Filename)1.obj + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj @@ -279,7 +366,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -298,6 +388,7 @@ true true true + true @@ -314,7 +405,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -326,9 +420,12 @@ + + 4702 4702 4702 + 4702 @@ -337,6 +434,8 @@ + + @@ -351,6 +450,7 @@ Create false Create + Create @@ -359,6 +459,7 @@ true true true + true @@ -368,14 +469,17 @@ AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode @@ -427,6 +531,7 @@ true true true + true diff --git a/src/xrCore/xrCoreStatic.vcxproj b/src/xrCore/xrCoreStatic.vcxproj index e36efbb4904..971a4c0bb2b 100644 --- a/src/xrCore/xrCoreStatic.vcxproj +++ b/src/xrCore/xrCoreStatic.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -31,6 +35,12 @@ MultiByte true + + StaticLibrary + v120 + MultiByte + true + StaticLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -66,6 +81,10 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -120,6 +139,33 @@ ProgramDatabase + + + Full + AnySuitable + true + Speed + true + true + .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) + XRCORE_STATIC;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;%(PreprocessorDefinitions) + true + true + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + + Full @@ -155,7 +201,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -166,7 +215,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -177,7 +229,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -188,9 +243,13 @@ TurnOffAllWarnings true + true + + TurnOffAllWarnings + TurnOffAllWarnings @@ -201,7 +260,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -212,7 +274,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -223,7 +288,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -234,7 +302,10 @@ $(IntDir)%(Filename)1.obj + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj @@ -245,7 +316,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -261,6 +335,7 @@ true true true + true @@ -268,6 +343,7 @@ true true true + true @@ -280,7 +356,10 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings @@ -299,7 +378,9 @@ Create false true + true Create + Create @@ -307,11 +388,13 @@ Create Create Create + Create true true true + true @@ -325,11 +408,14 @@ + + true true true + true @@ -340,6 +426,7 @@ true true true + true @@ -380,6 +467,7 @@ true true true + true diff --git a/src/xrD3D9-Null/xrD3D9-Null.vcxproj b/src/xrD3D9-Null/xrD3D9-Null.vcxproj index 72c26ec0fc4..9e6e9a3fab3 100644 --- a/src/xrD3D9-Null/xrD3D9-Null.vcxproj +++ b/src/xrD3D9-Null/xrD3D9-Null.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -21,6 +25,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -34,6 +44,11 @@ + + + + + @@ -53,6 +68,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -112,6 +132,42 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRD3D9NULL_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + Level3 + ProgramDatabase + + + xrD3D9-Null.def + false + Windows + true + true + true + UseLinkTimeCodeGeneration + false + + + $(xrLibDir)$(TargetName).lib + MachineX86 + + @@ -129,6 +185,7 @@ Create Create + Create diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 2b5ac8a2f66..100b6898a24 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -21,6 +21,10 @@ Release_Dedicated Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -57,6 +61,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -92,6 +103,11 @@ + + + + + @@ -123,6 +139,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir)dedicated\ $(xrIntDir)$(ProjectName)\ @@ -288,6 +309,59 @@ as-invoker-manifest-part.xml;%(AdditionalManifestFiles) + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + Default + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) + true + $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2.0\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + %(IgnoreSpecificDefaultLibraries) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + false + $(xrLibDir)$(TargetName).lib + + + as-invoker-manifest-part.xml;%(AdditionalManifestFiles) + + /Zm200 %(AdditionalOptions) @@ -595,7 +669,10 @@ 4127; 4267;%(DisableSpecificWarnings) + + 4127; 4267;%(DisableSpecificWarnings) + 4127; 4267;%(DisableSpecificWarnings) @@ -613,6 +690,7 @@ true true true + true @@ -686,6 +764,7 @@ Create Create Create + Create diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index e4e3c96afcb..4519e488e6b 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -26,6 +30,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -46,6 +57,11 @@ + + + + + @@ -77,6 +93,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + _DEBUG;%(PreprocessorDefinitions) @@ -233,6 +254,65 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + false + .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + false + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + 4237;%(DisableSpecificWarnings) + true + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + + + true + $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + + + false + $(xrLibDir)$(TargetName).lib + + @@ -971,6 +1051,7 @@ true + true @@ -1881,6 +1962,7 @@ NotUsing NotUsing NotUsing + NotUsing @@ -3150,6 +3232,7 @@ true + true @@ -3756,6 +3839,7 @@ true + true diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index 7d1dfccf6be..32582f8a177 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -5,6 +5,10 @@ Debug Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -22,6 +26,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -35,6 +45,11 @@ + + + + + @@ -54,6 +69,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + Disabled @@ -116,6 +136,42 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAMESPY_EXPORTS;_SECURE_SCL=0;XRAY_DISABLE_GAMESPY_WARNINGS;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + Level3 + ProgramDatabase + 4996;%(DisableSpecificWarnings) + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + @@ -123,536 +179,718 @@ true + true + + + + + + + + true true + true + + + + true true + true + + true true + true + + true true + true + + true true + true + + true true + true + + + + + + + + + + + + + + + + true true + true + + true true + true + + true true + true + + true true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Create Create + Create diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index 6a005c8ddbb..1e8a7269562 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -35,6 +39,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -53,6 +64,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -62,6 +78,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -125,6 +146,59 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;XR_NETSERVER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + Ws2_32.lib;dxerr.lib;%(AdditionalDependencies) + true + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + true @@ -227,6 +301,7 @@ Create Create Create + Create diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 5d4221522f0..d5ec673655a 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -36,6 +40,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -54,6 +65,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -63,6 +79,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -124,6 +145,58 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;XR_PARTICLES_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + true @@ -231,6 +304,7 @@ Create Create Create + Create diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 9b9a9d505c8..406c4cddfdd 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -30,6 +34,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -48,6 +58,11 @@ + + + + + @@ -68,6 +83,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -148,6 +168,46 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;dSINGLE;_USRDLL;XRPHYSICS_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -237,11 +297,13 @@ Create Create Create + Create true true true + true diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index 6a89d2b3328..a3e08622183 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -35,8 +35,11 @@ static LogCallback s_old_log_callback = 0; extern Flags32 psAI_Flags; # endif //-DEBUG #endif //!XRSE_FACTORY_EXPORTS +#include "../luajit/src/luajit.h" +#ifdef USE_LUAJIT_ONE void jit_command(lua_State*, LPCSTR); +#endif #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) static void log_callback (LPCSTR message) @@ -85,8 +88,12 @@ static void initialize_lua_studio ( lua_State* state, cs::lua_studio::world*& wo s_old_log_callback = SetLogCB(&log_callback); +#ifdef USE_LUAJIT_ONE jit_command (state, "debug=2"); jit_command (state, "off"); +#else + luaJIT_setmode(lua(), 0, LUAJIT_MODE_ENGINE | LUAJIT_MODE_OFF); +#endif world->add (state); } @@ -294,8 +301,12 @@ void CScriptEngine::init() if (!lua_studio_connected) try_connect_to_debugger (); else { +#ifdef USE_LUAJIT_ONE jit_command (lua(), "debug=2"); jit_command (lua(), "off"); +#else + luaJIT_setmode(lua(), 0, LUAJIT_MODE_ENGINE | LUAJIT_MODE_OFF); +#endif m_lua_studio_world->add (lua()); } } diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 8283fa243a9..332e1c91cd1 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -1,7 +1,7 @@ //////////////////////////////////////////////////////////////////////////// // Module : script_storage.cpp // Created : 01.04.2004 -// Modified : 10.01.2015 +// Modified : [1/14/2015 Andrey] // Author : Dmitriy Iassenev // Description : XRay Script Storage //////////////////////////////////////////////////////////////////////////// @@ -12,10 +12,13 @@ #include #include "../xrCore/doug_lea_allocator.h" -#ifndef DEBUG +#if !defined(DEBUG) && defined(USE_LUAJIT_ONE) # include "opt.lua.h" # include "opt_inline.lua.h" -#endif //-DEBUG +#endif //!DEBUG && USE_LUAJIT_ONE +#ifndef USE_LUAJIT_ONE +#include "../luajit-2.0/src/lua.hpp" +#endif LPCSTR file_header_old = "\ local function script_name() \ @@ -165,12 +168,16 @@ void setup_luabind_allocator() luabind::allocator_parameter = 0; } + +#ifdef USE_LUAJIT_ONE // [1/14/2015 Andrey] + /* ---- start of LuaJIT extensions */ static void l_message(lua_State* state, const char *msg) { Msg("! [LUA_JIT] %s", msg); } + static int report(lua_State *L, int status) { if (status && !lua_isnil(L, -1)) @@ -244,8 +251,22 @@ static int dojitopt(lua_State *L, const char *opt) if (*opt) lua_pushstring(L, opt); return report(L, lua_pcall(L, *opt ? 1 : 0, 0, 0)); } + +static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) +{ + lua_getglobal(state, "package"); + lua_pushstring(state, "preload"); + lua_gettable(state, -2); + + lua_pushstring(state, package_id); + luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); + lua_settable(state, -3); +} + /* ---- end of LuaJIT extensions */ #endif //!DEBUG +#endif //-USE_LUAJIT_ONE + CScriptStorage::CScriptStorage() { @@ -270,36 +291,29 @@ CScriptStorage::~CScriptStorage() lua_close(m_virtual_machine); } -#ifndef DEBUG -static void put_function(lua_State* state, u8 const* buffer, u32 const buffer_size, LPCSTR package_id) -{ - lua_getglobal(state, "package"); - lua_pushstring(state, "preload"); - lua_gettable(state, -2); - - lua_pushstring(state, package_id); - luaL_loadbuffer(state, (char*) buffer, buffer_size, package_id); - lua_settable(state, -3); -} -#endif //!DEBUG - void CScriptStorage::reinit() { if (m_virtual_machine) lua_close(m_virtual_machine); - //m_virtual_machine = lua_newstate(lua_alloc, NULL); +#ifdef USE_GSC_MEM_ALLOC + m_virtual_machine = lua_newstate(lua_alloc, NULL); +#else m_virtual_machine = luaL_newstate(); - +#endif //-USE_GSC_MEM_ALLOC + if (!m_virtual_machine) { Msg("! ERROR : Cannot initialize script virtual machine!"); return; } - luaL_openlibs(lua()); - /****** +#ifndef USE_LUAJIT_ONE + luaL_openlibs(lua()); + if (strstr(Core.Params, "-nojit")) + luaJIT_setmode(lua(), 0, LUAJIT_MODE_ENGINE | LUAJIT_MODE_OFF); +#else // USE_LUAJIT_ONE // initialize lua standard library functions struct luajit { @@ -337,7 +351,7 @@ void CScriptStorage::reinit() #endif //!DEBUG } - ***/ +#endif //!USE_LUAJIT_ONE if (strstr(Core.Params, "-_g")) file_header = file_header_new; //AVO: I get fatal crash at the start if this is used @@ -819,35 +833,35 @@ struct raii_guard : private boost::noncopyable #ifdef DEBUG bool lua_studio_connected = !!ai().script_engine().debugger(); if (!lua_studio_connected) -#endif //#ifdef DEBUG +#endif //-DEBUG { #ifdef DEBUG static bool const break_on_assert = !!strstr(Core.Params,"-break_on_assert"); -#else // #ifdef DEBUG +#else //!DEBUG static bool const break_on_assert = false; //Alundaio: Can't get a proper stack trace with this enabled -#endif // #ifdef DEBUG +#endif //-DEBUG if (!m_error_code) return; if (break_on_assert) R_ASSERT2(!m_error_code, m_error_description); else - Msg("! SCRIPT ERROR: %s", m_error_description); + Msg("! [SCRIPT ERROR]: %s", m_error_description); } } -}; // struct raii_guard +}; //-struct raii_guard bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iErorCode) { if (iErorCode) print_error(L, iErorCode); - LPCSTR S = "see call_stack for details!"; + LPCSTR S = "see call_stack for details!"; - raii_guard guard(iErorCode, S); + raii_guard guard(iErorCode, S); if (!lua_isstring(L, -1)) - return (false); + return (false); S = lua_tostring(L, -1); if (!xr_strcmp(S, "cannot resume dead coroutine")) @@ -859,8 +873,8 @@ bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iEr ai().script_engine().debugger()->Write(S); ai().script_engine().debugger()->ErrorBreak(); } -# endif // #ifndef USE_LUA_STUDIO -#endif // #ifdef USE_DEBUGGER +# endif //!USE_LUA_STUDIO +#endif //-USE_DEBUGGER } else { @@ -873,8 +887,8 @@ bool CScriptStorage::print_output(lua_State *L, LPCSTR caScriptFileName, int iEr ai().script_engine().debugger()->Write (S); ai().script_engine().debugger()->ErrorBreak (); } -# endif // #ifndef USE_LUA_STUDIO -#endif // #ifdef USE_DEBUGGER +# endif //!USE_LUA_STUDIO +#endif //-USE_DEBUGGER } return (true); } diff --git a/src/xrServerEntities/script_storage.h b/src/xrServerEntities/script_storage.h index 82dd767b3df..62d9de3d56a 100644 --- a/src/xrServerEntities/script_storage.h +++ b/src/xrServerEntities/script_storage.h @@ -1,7 +1,7 @@ //////////////////////////////////////////////////////////////////////////// // Module : script_storage.h // Created : 01.04.2004 -// Modified : 10.01.2015 +// Modified : [1/14/2015 Andrey] // Author : Dmitriy Iassenev // Description : XRay Script Storage //////////////////////////////////////////////////////////////////////////// diff --git a/src/xrServerEntities/script_storage_inline.h b/src/xrServerEntities/script_storage_inline.h index edeaf2d37d1..49ab5f8b1e2 100644 --- a/src/xrServerEntities/script_storage_inline.h +++ b/src/xrServerEntities/script_storage_inline.h @@ -8,18 +8,18 @@ #pragma once -IC lua_State *CScriptStorage::lua () +IC lua_State *CScriptStorage::lua() { - return (m_virtual_machine); + return(m_virtual_machine); } -IC void CScriptStorage::current_thread (CScriptThread *thread) +IC void CScriptStorage::current_thread(CScriptThread *thread) { - VERIFY ((thread && !m_current_thread) || !thread); - m_current_thread = thread; + VERIFY((thread && !m_current_thread) || !thread); + m_current_thread = thread; } -IC CScriptThread *CScriptStorage::current_thread () const +IC CScriptThread *CScriptStorage::current_thread() const { - return (m_current_thread); + return(m_current_thread); } diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index 28511b1b349..ba0ee9183af 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -30,6 +34,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -48,6 +58,11 @@ + + + + + @@ -68,6 +83,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -150,6 +170,47 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;$(XRAY_16X_LIBS)libvorbis-1.2.3\include;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(SolutionDir)3rd party\OpenAL\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRSOUND_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + + + libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;OpenAL32.lib;%(AdditionalDependencies) + $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)libvorbis-1.2.3\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + Full @@ -206,6 +267,8 @@ + + @@ -231,6 +294,7 @@ Create Create Create + Create diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index 1c7de9a7b4a..e7dbcd96f22 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -9,6 +9,10 @@ Mixed Win32 + + Release_LuaJit_one + Win32 + Release Win32 @@ -36,6 +40,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + @@ -54,6 +65,11 @@ + + + + + <_ProjectFileVersion>12.0.30501.0 @@ -63,6 +79,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -126,6 +147,59 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;XRXMLPARSER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + Default + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -220,6 +294,7 @@ Create Create Create + Create From 6a7753c940e2512a53e7ddd7de3805510656677c Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 14 Jan 2015 07:58:18 -0500 Subject: [PATCH 070/166] + added luajit dlls, exp, lib, and exe to source control --- src/3rd party/luajit-2.0/.gitignore | 8 ++++---- src/3rd party/luajit-2.0/src/lua51.dll | Bin 0 -> 348672 bytes src/3rd party/luajit-2.0/src/lua51.exp | Bin 0 -> 16302 bytes src/3rd party/luajit-2.0/src/lua51.lib | Bin 0 -> 27400 bytes src/3rd party/luajit-2.0/src/luajit.exe | Bin 0 -> 90112 bytes src/xrServerEntities/script_engine.cpp | 4 ++-- 6 files changed, 6 insertions(+), 6 deletions(-) create mode 100644 src/3rd party/luajit-2.0/src/lua51.dll create mode 100644 src/3rd party/luajit-2.0/src/lua51.exp create mode 100644 src/3rd party/luajit-2.0/src/lua51.lib create mode 100644 src/3rd party/luajit-2.0/src/luajit.exe diff --git a/src/3rd party/luajit-2.0/.gitignore b/src/3rd party/luajit-2.0/.gitignore index 1a07bf75bf2..5bb4d394f12 100644 --- a/src/3rd party/luajit-2.0/.gitignore +++ b/src/3rd party/luajit-2.0/.gitignore @@ -1,10 +1,10 @@ *.[oa] *.so *.obj -*.lib -*.exp -*.dll -*.exe +;*.lib +;*.exp +;*.dll +;*.exe *.manifest *.dmp *.swp diff --git a/src/3rd party/luajit-2.0/src/lua51.dll b/src/3rd party/luajit-2.0/src/lua51.dll new file mode 100644 index 0000000000000000000000000000000000000000..5a3d78d8f0103a39bd14627bba645c908ebec5c8 GIT binary patch literal 348672 zcmeFadwf$>x;MVl?6v^{J4nQ+RjR}ppjFGjC^gkdOK%{QmeLeOS{#*uinlhQpj=va zE8Sg_8RvdEbIzGLGw;04(Yc&+6!0=m(m+!Ra*;t>u?RTo4goEoG=Z|D62u%RhQ?d%~30CI~N& zdF!U_h6Qikv}D!ly7VV&pZHGggO8;@^x)%J2sNi0zp_{5QVQ_wRK7C+EF3trf~+dAp9L%*rZ*( z`3R0JIPN9R;E0Zs1R;ga@Gtf)G$d=x!?h&AY2clxEp_1E+Sl`UB?~VBMNUz&kVCgG z_ishAuzm97ZVp}lOLp?`IRc$O2lmVTyUqQ`IyY|q`k+288Y>^#P>*y$SaDnJ!wD9eh}*ET02hKRygQ= z`8h!tjItDI>mF&VihF+561Bgm127B$ICtF$0QFx5fDgTN3SJorp!TZ(*gOQlJrY3O zmjYmG+C+>;zIdi?CLd1S42=Oa`lrWxzO=J^@e8TxdmMMCh(j5N*=ssQ&msBZ#k!r$ z+{whYY`^<;`QqpGezw}ue9HaWxq=jn=jEBFLNn3&%h4yfuZ&(ALNCV9cM|&jarEtk zeyfK5&m8?9{z~Q|^yg~@p>IC}#he8fJa+VPn73SU)SeTepIxT!6-oAd5L$-5aja*E z<3TX}D{>sTufKf%E3*vv55o|}$DO^?llG-Te(?*Sd|`MOx0TQR4{`O&`o^bsurwmP?(r2ReelawifD$|61j@ld5O-?JVly1C?C4W2Xv`P;D+Qk*N`1( z>pt3(b}0w~aKUpOkQ{cJFW2C6srf$vgqhovL+XEqjDjNC4~ur?gtWEfVtALd^`x}b zCvP}GX6qJ??Zo>KqfyWeYkD5Os7E~UzWvHg_vuZ|S8n<{z3J>LH(jqag~+R=nV{uL z1efsk!S}@zS8O^}Z)(4C)5z7thT!|=D>r>hZ#w(RP5(`63jT(sM5EDRjQ=U_={BD6 zW|*$FD-LPJP_GKTm;K7UW(@V3qW3aix!32`IE5h`l9bH8a<4asdi|Hy3vwSy9~?3K zpA9wpZoHZL@{BK&0I#`ix~eR&i%P!T#MaoeluWx)VNu+6oBF&rNnjP0W}nnt4|vkn z$HDHBi!A>HjLZooAIh6~spi4xiCcoWc>&Wins&zd{Y1$n zHpIK2)9lS}6aNY%QDt>RnJ)WH+5WYCm$YOx5w@n;${w?@0+Br?Ty9{zo!8p1F-4%Z z<~9cK%0fXY5Zx)~3I;^a#7khy>VO-{_$Rew4sNl;FN_k$IL z+-qg#Ev&$zn1W8uwsQsIXwW#65E0=1P&uTu>ClRGXn+MCac~PQJ=b1B%n-JP7A1ES zmgylFq(I)7F1Rfa1h2JI38{C?=8`ZP#Q70SHy4}*b`yjMG7%S`zum#Rk3e-la8~(Qg$P=6xbyBBOLgT8jS@e zd7T(_-@v9ZCn?^jQZH|`2=0k&q2*j|ia~1n1Nst!i1nlg;l121O3lyX27F`qT8$=9 zDsCZ12g2^4TbU==!nCQyrbl<#j0>&udh-R(UD>%N&o|}upy3W_YvDyUoy`LsZOQ`p z@{ul@8U&#p9O*GO&(gfh^D4+{-sS!Wk>)uP+B<#(M?S^{Am)R956AzvgZ>u|IC0R! z7=O1mK8^9;xs>rY;6A6pih~3irgEh$q?i&Btg=c}OqUFsv;SR<{Yg^O+d3uT9Xi|n zG(@od8x4<$7Z^(?Nq>=lE;Q3Tg@1GDe3Ve1g!yPMND*RlQciPH!sjG|$dj6X1i9n0 zqeob)Ma3{WnfstqmN=;@Y6lD#!rQgU`n5J$V=-A6NGI+>=`6u~yOo>uHFg+RyG2=J z7rFMrd5~V}j^o{rxccCZS@DM+f)McW$_e8wFo!B|eb~%+i3VK&8gYCH^Y8fYF#lVC zzojyOLpqvTAVK4G{=I{WqpZ{GS+&8%=Dwaywfs!iOkN zh;q<`Hl8q}{v$;{&J!?0XA3#ggCECDO89%Dup``zSkp+@kumo%MDWd7n0fD#PLonQ zz&sWZ2_8ALOrd;W_)Z6Nysu3{b3ej>ZR? zLgfLw6_U}*@_~D~4Gdx%P1#*_W%7m~tX1w|y1phTBAGC=%pkr@vd@560wy$)m?#mP z(WVrwscHDd>0OS3wEA}+jo6GEt@367w|gJ38Q2phR%DLZ+4^?dJ|P$c`^x@%cc1gcsz0O0~pC|C*AU6uWA?I*!pZbtc) z+B2gPNP0=xwz7YEWNnYK(|^h+?=(OX!54d$p@T&EnoAM9TN@7lnUr>+mE7R;ci9ri z!3hKW+RLwND!kBYcsINgGI_Gk;{=mc9De>e{J@6JfvD#;$b{&brq^!ZWg;L#!1q9O z^C-2P_QHWBdfWDt-0%k^oBm@)2nGqDE=cz)?~(#u%`zqB3Cx=$Do+qoG>t<$ibJz^ z)=$+04gm^#S{J!XbTL>oKpu#CV+uOGk6-NDNdhS~uS3ak`UyiQ{OoY--<(qz{c51| z+bG_M65!nlfTwW4;Xhn5t~|D8tfg0U$$NJ_fnPdNYp7 zal}@me1PL39QWj!dJH{fwhc+$yC}e@OTApREe^~Q2bPim>^x$rk-&6Nq(_o`4W#gr zSx~+>a7zAY(@J?wMnjVHY!6CE+~it0sP}U%JrhA(^Qm<@d9`0g9>#TF-91a)dNay30w;4^wOM#soriI5G_v+ok*O?#+6D03{dNn3u)Bg>Mu?2fgU<{yZ`G!5_> zaQ}4p$cWA>hdPg;84S5V%*ak3doy>E9rlWCP&H-MfU*vHNfdN&3eo^XIiR#bG239# zZX!!{pzb!dKBCNF>(N@2eWqZpM#w3H=K~^QT^c~SnADIZx|VgaNRC2-N0e`#smlCrnBOoy}GjPMhhIccd+= zs$L$bwK^(n_16XSG>)S`Y}7u4-utHeVJ^cR=tMNZqlVPouaKd)hX40p3}I2(uW;F7 zkC}qadq6tzHT=KjV*}dtS0gyzj`33F#g>~I1D0_(#+dU4sOb>1LW4Me4OIgnoF=QL zut;+ViyeS>CXa&|gva3&%;OXw`L<$~rtkNwM$mgnm{C#bDwj{Dk=)UM-=rm;nLh6Z zyCF`8vT+)QWy9a>IR&Zi$A_qCDM%%P3#`*SH1N|83^V&u)0X~dH1rT?*70!oVRP(^ zoNEj<1DXwB`5K^lWLg~i5H_GP?4ABj0=jtU^&s?U^gt$YeEIe{G)8#i9Kymjre$oj z!pHN4J>Z^$A)0v6Cet3H=8HyvRNIZWlPupJ4?AR3zwXjWkr~38r#|;Sm4vxi9pRy52w}-+bbj-H zn$Cxx9Zu($WsMr0!?HH3l52?*PG%<5j(G)Z2EZZA2e@M~@UKajco05d^zn~4r4^<8^*8nNAdennEO9V;0vj?{Gk#{K8I^ZtW;5N%n)S(l1?QrDhuBLmW&(Pc$q}RU>}#lV$xl;Z z=`U3Ann5KJsrh&Osu@>*NmuhsN`XZij!qF}H`U;E{BYK<4N-y#X=8IIptW8!I5)4vOCmY3;hLf0y`GLC00p`9gB=lT0~a)*z1IGL(jP^3!G%MXut&k)WA_d0Lrz2CFqGH74a7-uV_N>zi2l z62h-=4t_)x6x`=_kLKuUv0rN5hpY0&X%L2;IBM9K3Jd%?wOnX*k8v!tNKJplnb+;_ zb$AfC{~9NXhX=Tj5Sr!+t9MPCI{l06y>1w#+eD>sfQh#$g%SBvQ}$lZNivo*cj42F zKa(0F9p>RLO*Baln{9_dg6XfnkCj;1CaY3nRR*W;b>Hk2zv2JXNOgb}2nODQ28+{K zE>?Y}^HM{<=ajdQq?`g*M#2gk#G^eeQk9xk_98&aqkvco^;n4&_7(5}Dv2QJvKRI< zvt3zlRn9=(AAb?@%4rI%A;6ft$4Jn)I)H7QSwBYzsWIz&6imjM)qpcFE5eyohm#>@ zX`Jf)%AEQe(R~?CExIhH?zt?d3^5kX+!fE=~rVhEaWPb;1pPA`jmoce=#6h4P^lm7qzF+0^$WtdlE-IN!`at+wPC> zD4b?VPbD&`qHx_%P2`gNDxqHScRsTr_gUcJps(hj)!#uP!@t%pC25x?LM_5xPDwA7 z1bFk0siu(BeLnOQCYA0r|2=-M6Gz>raQAemT)+G5*7)6*=YPAdPYGdsV#oO)H+Nrp^BzAXO{O%w5 z-JUc%_8YXFA(I!nE!OG>@m5Hxz-1op zpa~V(Ag1tPJWe?9QR78HI2x_X8Kb)AY#)Sirwi#q?d|?kS5M!GXw!mRz`|+<8b3mq z+tBzHntuzOd#=+Q+9Y7<{xsa%lY}$~@lC`1U0AFjS5q^veKx$*fsev3^P$h@bdtU} ziOwXD1WIBQxNq(DsegrNzaK*9p6giN02<6x*NxTiyolhk@e8PCgHj`g!`+{D?+U-e zJ;fP{$GE7e{D?Sl1V(E=lO5rop0xve5Qb z%BMBZUVb;*k3t#&L5=lH-90@hs~!#=KG4%G`wija3C*kG%~dKZ@aB@%{JmIn2>qRe zog&iP=l~Io)NIEQn{gPcFn^++q{0*9H&gjda82H5M$M@P&QjX?7%lejSqeRaE+ayn zZ&PQ2vYVna&L%&OdXf&Krrx;0ZpGGLLE7?1T*CyK$oL`Yi}^l1(%~V_>o4&T2iOy0 zF6mN?y&5Ph%!J16GF(_YQGVKri76o5c@{#hjdwOKz|Z5>3>+c;ru^nHGv)zpOh^Ju z6m)0rti7>$*QT$*M4P8~Y`D$4X1s)~0OXkzHM9trHl%p-ry0WUDQfr~cd8+T8QFZ` zRT@sXbEYqRXarmCCA5fDn_t#~MsWV$`H}eyn<2^nf@6&Y%0aBnzD=(a%WGf3h6~)v zmh<7aq-P(+v9xueg}s=AbE2kYp@8~6B@16LnJ$L@GiD&>qwxqTcH)x8hFj_83|3&K zO2Gn*Cx$|zCOauirOe61{)>PDr;et@oZ>mH^up^|L&Y&nN1?_eFfEH?3eZi$6vOaG zis(jS2wyF2U63ru{kgR!x&QupqkK9YxG=EwAM5D4WA^2#OVOPqm|UKhj6`?Om!f-+ z&^t)lnC@wImE`Q&tp)^35D+w3$5iLB$TR~Voomc`*0L9P`>-RV5nf} zv8ErIA8Y$Zw9pKg?>?>1Kk+_#TZSYUa)4-{H+#SI+&IV;GI9v58Am;W-fAiWCsfpW zxJoa(1me6ef%qy}8V>O_9K|7yON2P)5{P|-J!v!=*FH+n>Yj{4nx#Sdh|~5rqMvi- z6%HXb@*zmlTjA-v>5t=0TQAeJ?-1f_V&+9ey*xu+L47C@tc-VF$d5?P=W;Mmu3<=_ z>oMe{@|pI7ABA7wFeb%ejETb_o5gMQ6=0kSJs2}Wdx*h&$ZhskLx6St{c@OX3&qbof6&9`5NJ_7leAI{D!j1* zGMZKdq^&X~elMhZ7QJBc%znY_&Wf@Za3wq~b_T z;<8ep9%y|eqHG*cJXjGI7^5{3EdfGY5mn?;`eft*6MD2Z8uN-iIvI(Z-FY~eJ%ZlJ8rq9WN- zwr1Zt2bs5c&3UMILT)xJZ;>xn)QY6+*zwTUg<3(In(>K2=%xi5xT%%f1##s#lu1_J z675@wD=FP;@Hc=@>SYS7lshgox1N{@G~l%70XCQa*DDJ|(-Dc#n+ z_O_K$1;)N~_ZjJd-76(mCz|$t3r+W<>Dy&zq&B|+joWa$Lz?CfB;Ys2@L%|!#{air z_){)}->l*PzaRTd8aoCR8-8r)8kb^2575wwGko~|uG7SVFJu3aT}MKJZnX!K(|tP7 zed5Tj?j?2+ksu<3hRyCY{V3|5)a~mYct6y=tGky9NR(3qdb+wl4ID;$Bn5ax#4}H7 zeG)Q;opCrvbz{@be}It|JSklr2h{M{1FG9XnHj!Q>LTy&3V(iNSHOL-c02%{?(0Ga zcW?MD096A-1W=(eNT3cJy&GVn?wd$h4jgsgqn+M~+;t^Xqg(ypgd1zpJzatBV>k)9 zZ2)qt`%~};5!ny-ALy6`DC?<7clWV?OrzWQc~4hQ7bo>u<%xJc?M+a zHf-)$Ng!Hx;*$oHp$*7%M!L_3A)Urhu7QMVr*2c-IUIF_d-3U~k=@YOrFMeC*koa9 zp4WStyXwPLUm5UDTwsSIng}95qFL~a$9OG#@JFNW<(zEKH5w1_tO-a0AC98d z`+Xc@2F=oz(O+ zkL^<3W9lb#pMn%XE>->|N5l;s2T+J0F#xNK+GUD`ggCwN*I{`y2)w@?WfQ1#>+tZ(3!j9qUf+ zDNGL=y9?718%W#cr2u=DzFK{s(QcP_Sjqww%17nO?u>^-_SYlv~+erOqtxGAQ%KVE#A6bYgp@DLB_ga~LcVC*i_bX_HLo zS4!_BG4>Z6Df21sv?)KL6K|zeVRYXMf49J%rm&ZA5==q~LvVaicYQe3`#U?11@Bnz zWUQppbu@K+QTwSQf?Wk@oDpIBK!p5osyL`%b#@=E)aInh{pof0c+1l%7#FbmfAAAF zj-6@V=ec^^K4qMOm6t+uweqB?YPnKsUKXI5cb=&l7Za`llnL7hZfV3KIg;$uSEm40 zc(U}@UF=2W%@MBCGA_~Vo z?1A2EJm(Kh@us!1dudPc*V%#CP0xpHK5ZnVkriVu2SY&Fi=|z z+a8h+bK?bizO;5?xw;(5kGw;qM;=b2UxoL@blhqDh;~A_Dji|zxkI=dy}GnlwA6^J zgetcuP$qb5I`YPp!Pm)R6V2Co=B5U(5smX%Va#n4Yed&%a z>AAmSxEWoI0c<@G{NagZ_g4BpoT$1d5+-^;z|2ZT$3f}Ym(b3|vb^6Xt~mDAj>8g# zqeFU@b}(yPIZ=^umW7RHG+=h=#Z<&RG;EkqzEB+Pte;`iW28VGqpO zHOn`2mcUaoodCIDknUzA=vdP?*1#`I}tKyTxrqw!E8u5+^2bE*5qy=eqD4M$ zwaIv-MkrSsn?#U#kN7%Wyf+=pR$eEW2+Cvw3BhaW_zKQVqfA4YXIAE!uxdUZyIAfW zfI*P`5##QRe&%ls9)-*e4J{+$wVK#I7 z2b_U4%RABo8K;fij(V)D&c|%Q;gPpZf4@ z9Z!IwJoGSBo7o~WlnG*AZ-vYQmS;k+h&!ub5mrRdc#%zdZY`>THA1C&>O3;$9i~}6 zZF15B@GS5&;oq&-Qz%kQfyXoP2nOhR$#$6HiqWLTVjcwxNil==RD8K ztlnHJLXfen%;L?pz!9Xd2S%KZ-j_nT-{a)l9(-Bc&K8C_76{v}&g0T5*9_ zk63{yA2sHnaJ`dmRGU~pegqHXf=z`Y2Ct;e;=-98a6Do0+-N|9MJDD~>McV}%ro^S zP*Edo8>6|og%y}s1}_C%z_v*=X$SeiB=%mj-*eqKzmhu3rywY+LzGr! zg7eq8%I*hP+^EK#;Wq+))dUkE&e|2W-#sE=^D#Uv326*?=cgW2<)aALN|ll{Z`pi~ zJ6NbiYlU0^yw;zwC&YtCn|FGy8n;uyQw`rxAmeMz%34$SK6aHBr}-#O+s@-OKkHy& zmIv7xIQWqx;GV*wY^U**U!CGLKg%H8KKEU0zt+GJK%|Bk?MX9@4*KFU2Mc+y7G0F) z8B?j&a-$^<>ALciWeELyx=+=NnY9x0Z*3g>9C9RWSp@Bn2glW=zDdIfr^xN&um_Ue z&W`xQMz)jfKB$5Twik@9#=WIT7&_z!jGk*& zmJ;9LF>Ij7s#KbkMOqAqM_L58!&Rv^V{sC84ik1OS-OBc=&MbZ_eR4vYRu#fuR_B; zuu#0A)XZqqi%gEw^<}Ku!VYA-BcHd_-VDk$44h(luaN?jxsY4yM5Rt7;JTq@e%
^M_*Ga^n5zLEl9uQ-!n6)U>qly0H_7VPMIcgcYM*%LA?oxn{JSUBt6Y!Mf z5(;#GBA=X7P6i-<)?wDnD>Gh71ZKUB43R7}ZH&V-NlnucN4hGXXG_IAHitPWv$e7y zTBRWfv?plA>^ZDZWc%gg15|G#3GM_y@1mo|-IVeAu|*c=P{IWc1ZqVNQH1r9ATk#JX!!w(%4q^q_0%Y<6dA6bu2&)4&-5(CXO?F%5`i3^ z8Wm?hV4qW;rzZett*7f*Mg(>lxaZkgp{44W!F0qKNZ6qgY2X{}B3VEQyi#fkZ^Vsh z?8*X+HVFbu5V*@nEHpd@VjD&8Pl!bak9w`G%|Xw+aY3aZF%sf#l&Am&tPOK)YknJo zf`Gz~$N1leU#PBnl`>Zra2$||I+cZKl-JD(Tqb}@l=&N0U{&`kL+^qY#N7Z6JJy*ukv z5dwi&EV(^a{L^B|L`xu+BC$;8+hIr@f^Z`g7qTBeM;t_I^N1Xo!UI!Y`aGa!bg;9u zri0FLl>e9U8 z6!PE&BI=Uz0-I>?7Vwyg3JIt@vLGre%PEo3T~W?G+!YaR-aNhBEOwyWyq}Fjx%qlt zZhjIEvm=oyGy|C8LeUwTU=FZS#G~*CwJ1A{xD&i$GGk}KL`??z(KXroBTbFjGLbYn z;F$s`Ngo%erg#+84COX4s^UJ0T&3+mD1-8w4|JFGp(Duin}G3fqCdJduAf1k-we4U zKH^x8qoaV95?6;@p~jC`&V!0g84?_dVQt`Rn)C*8Fen0R;voimQbY)g8tHykOv)iL z%5R($I9Qjy$XM>@SJYc?ji}1{(W&yQ0xe;{aR4e4`OAeTqw-Ytdh1xh6Kxp8PyI@HYw} zAByUI_|h->n37v?H$Ye_frhP%H1>Z+044(kn8!O;5A~L|7Nxr0BorB^9le{!;9-F( zWUa`kkOqS!tV3%5Dp7E>Ks3zsU8&-+4yrstBImeRy_H||7DkY^saJujnj{FfNtr-z zv?&z5NKSF1rJZL(e8#G(QMZl*2MQNJm@x-tmr4(Zu@V!~9@)Rt;dduh1y+3>cA1d4 z)Zca(1hlVUC*^-cK`CPXnY2d15w(`-oeF}8?g5#0z9l*B8_)rAS* z5=L|NJb!(C+t&ji_*B>R(^-uC=smM@%qy$@~(O`#C4h=mAf_Jl3ftR3b7d;#KZ z?FON8)w?JsLpIXO)jNmy1XfZkA~v3PBCgqdJLVxH*Mb!VW82;Q$_>qLZ?d_teaS1* z(w~s=l-1E&wK+NT!*xa>K+;%KU#7kigP0(nGoj{)`!R(m6JeTDwT*QdC=Nqo9Q!@V zaz`|r)^|YeH(>9Qc|4SWOK|u(TO@(|&^{JgBW|-IV&7^f$ z;QJeGlit890oa#$){}=vuJ(D$46TOTCZDH2qq7W4iuZ%>rJy1D7cv3rKmD^28cIIH ziawvi{^RXO7Efw*mAAmQJV20bF7+odyb0rbFjo3;mw<~F)>-LYA4j#XY_UuIY!gRi zjXoJsXK8q&rpo9$_4$}_)3ot%LNy!AvvHeo z&OH@&<9gPKnezSZ`zc!^=MoZyD(J{^l@n6BTDpvFLg z?B`O$bVr=tk^C_ykbGvy9)UkSL;TTgQ+m_rwyCQv#*IC+Q^y1<#ArSqlEb&xypx8B z$0IW+{5OSW_@dF+WZ|3SOV@pR<{pziLjP~RjQ*=XbQ=XtW@q_g-cMg&l?RhHtl&n! zgthl|m9iqdUCC5hsos;5q`SjAsFc~^?>E*YWt_(LlF~|LkyZ8n4HH;ojg;UnBo&X= z;guu^XmSUd&uxAgOO<^`{2v<)^;R4LwC)P$g<&>-Xqt!!c>>?iPMn zwJe~;KP55vscf&>{|SN~L^#HIcn$E;EWrL03f zf2RIgdIwJZB(_1up9XKvsNyN)tEmLs3PSUXuayb<>&jt=*S)mnfNV5wAe zclXNYKd;|gBb1f8)XHyRH*p7G(>oGws!1xt!ki0Qub%oVm{Vx&rMW@Gw$40wy|1qe zlM!Ptmp|?!U6r$b z2dFn$Fs2*uSB$?({5^!fTKv6?za97^c_SU8LIXDp7G*4R@}+3bvjl%)z+SSL_3Cpc z%l&6PlNgF$R`gX2`s*XYH_QF~@$2@X>tivT*gIrK2vf_Gx-bD_%>Gzh%wwuV;O0^l z#K*Kl8LO^9k3H*MC*waZwt{pJVj6<_;}%{T%*7K-NdTa;AFX_mv zd!QqTZm32wa^&r=4UHUn-e#gnOoFqFAbEx{OBmxYn~UpZq&)O)L9wC~vXfR^N*Z6T z{sZq8z~D<&2X@Lb6$*$7<_z8YJ!55)m1~$wRA3S2!jjB|fppBJaC*1e`Z%o3PRbN% zU}P~}l`uy)LMqMPr=s4c@g#%AJG+;qI@;^;aI#5mUm7-3#4ZP|EY&-^!_mGr&08AL z>d#}niz9gR<9sA|B8)ovoMcip<~4;3b)lGG3kV;m*Y;^l)dqmjr;lQ+hIM#}Ys#hm zBPO4*eC6cnp-Dfp_FBqICTNlRRU640dQxCuAvGM*rQ$P$|F=3ICpJ)DaKkR0S!;yj z(kLKGwSRGX>k`_ZrS=2v(b^~4XD7PE?DK3K^W@Az$yvXf60{{)H9S*487w$ck8H~# z%)$oW+YxC>Kl24@c;t5LoCM4JwFJvsw|z*Y3a!;-daKCxQhJ!ka*ZBfjwe)m)uqP} zx2VsO96$pjFrvy`2>B3skTEBDJ| zOtyr9STK;E04yH}u1AKA2NOiOxmo=oL4zlQ-zAZN5lN{c%PdDeMadO+%ze%rhzSgg-gRJ zh|N&J$jD1W4T^N$=H#Dvbwox-*<$t4t)u~$4M<{wtA7JGOkH-q-Sirg?I^b6W$cG2 zV2yYvDw5>2HOSp~k5T4#`UjZbQ7SwX&{-+Hh~Rk~;7KF%XU5(dwhymGI%YJK&`ey7 z8Ct}|ekK1rR@eJcuREWHH-$oG6$|_m)qxUBFAsLq)kFSi6ncJvhmK$nvH6Lofaej< z0k1BjG+ykK$9T_5ANw#;R566ap)vp;5@)i1{LvUhjXe0GQdDB|2ZlH2`vqaX6V+)9 z=pj-xa>n7gOlS~sg7PRHe~$3KriAfv{JC*Y9gkEc`S>a#lHSem;!J*W>9X z9D`1ZdAYrw2zxyq8B69}l(C@Hs_&9ahzH7e7ak9gIr=ut1?L^I`gl@5M5wNx3H>Kh ze57h#YHgRt)p9=vsKLduU#HAwlfJ?6eFWfLL@+Ali{UNynPq5)An z2m1m+agoWJ))5|0g_W}BIj30{ap8oCja9~>@}t~~?YJ{#T)>~<#k5(6MtHlXblMt}LrpxUJguG%W7PlR3b=M+hc^wO0iiqr5b{NV{uc zrICiGlTA|dFCfrbYc$3#NOljszShSF`!wD*%SZdvxjekd>Cw`~(Wgx6-Z14bW(_|@ zdX~y^bxa6cEw_5>xa800(bWLvMk8wD?Q8<=d(pt&%;rV-Tkx-CbEyUo6ry{4S!uM+ zq&}qqU#3A{^>t)KW$JhF=y3u&HTjn}O%psfH*88Z)ThDWm|?PO=xx(A0z8gO{lTBP z$Dw%Hvg*-ftn*XucYG@>1{pfjXoik-J^f+C&}5wwq@L$L#k9bH6*kI-Xd78vd$oE2 z@(^y>1r>}yq#VJHW)d-!peEuS$neaPQf3NIhBL--DlK!5l_UM0OggrMzeaeSRE-sj zvDM$Cu0*AV_zdUI13Xe+RJw+{YR;BeyqS;>t^WjMTp=I28u7(w`Osstw5))tK-a?h zB0{EWSzL#;6o-NszYPS{U`x|}UgP*X(gNNddxzEM{zMZ%l{{N)<#g9!%LYdl*vV@?nw*nb*3!*T%l-`n*1cVlSnZ2y?TpG z4d2EK*`fV;X3j9BEQ{(e+TJ&?{f;=4W*v%qGgoKPUGKt!0w(pW%302P$GcXl@BfU9 z0v;&wEC)?;WYF!9BNyFwP)v0lf2W)Bax>*O|d3A#iB*Yd{-E+ggYpZLltNAf^%howvM!#Vx))_N*i3HCZe(M))tQVXiA0k#h*AnT zfJi%@Um|mrwmMT|WICcvHWn)haBv%`ZDSO@ztx7$a+wiyZq{vmOjR1hT;ixY`yA<1mFp)J0sSs`VaE5 zaGu^+D+`No$niV@UVh|y6*x_@mlDJ*3c}D67%_Vk8{f&}3F8~84`1-;HDR+hzSw$I z_opLr;5h$(3qVxULy&QhV?1ffy(k5Ef`%AUWyqLzhUub1G=DpdL_$J-8jay(W9A+ zK)_En;`a=GYT-_O66`4aE*|rMOZd4qSrwI9 z3%myEtgu(U>l7rjc{bY7Cn$v$_&yynfmQ$c_tEGodNYkn{T$CW(RjG3wJs7{{q`w2 z6Fk;c16X3_@ql{z1`xEvT+MSDb6?>q0VdBggFWX1a7UrjJw@8OYrEiFfss!+sJ?(@ zQAD8`i>ViEu*ZxCR$OYhh(p0bI-%3>HEd29l$xf3NQ9#0_9>+F7GN)zwk=9xg~ig= z2Rc%k4zHiMO2Ec7L_~Msp**s4U2HcW+QH*}Z{OrvA#F=t^%;nPJNf&~ctFNdPUKH? zsf7x)Pov$;(zc=`<|<|#6|@~pXu!%{X6I|v%X|M1RyuI4_SOWH;}-*6@P|4&jttxI zHFS-~sT+_k2EvDc5F|AnUN@HTV(YyUp3+(%f{jUQr?3(yOm&T=MxcGth0XzL5Ok@3 zY@uFoETyp0i|}xy6TG8leFu08rI@#NsZCl#eHS!m9skhc<#RfUc zQrH}0#O|9oUExQ-+SiDEbd%=xRU*Dz%IAx){|h6Own?mucf*i>%)8m-3#Pi%?Vy!~ zv0Sn076DmqU)S}%TLgF1kPPNpFj$QKqb+RL%vGQw39i=N~Wp0FPx6>0}vLSEbsi zQQEM%qQNs;-drkpZfjk%MB3`d9^G%UB4@*gsSU?ceIFVdLe8Y_mZj04^8yV>_6;gU zPN=ayU0&>m&_Om@oY1~(c=dH@npGk%G60%DF_Kt6EXr}9x$i5Zw03@YRHrCn6bsu z3bAG`r#&^(nbgrTKkCgJ4CWCR{GrY0gImO+V@7)_F=<$f1EJ+;QL*Y2NCGt*u#1Q7 z=TCHi1gvPLISxt9?YPMbm)=5+q-H1^o=Azx_e7<<3E3qkDX+woU1G+UIlIJ)FKc#* z4PUnGk~Dnbmni8SqG{UTYn{xsg1y)HA;EIr4j#2G=twzu;#`}-bA$9o07)9{8AB)Y zbC9ZmpOfI3us@Qv&!y2_T>UtHb&R(1huRqHBx>pTmobG8w6>89re@A*$&Gq*2ZOm> zB$Psk=Q6T1lWLMk++6A&yncdPny^K_U~rGa4k0z7Lr3Nf#-G2iI3BY8Cqb`6A;W>~-5<{TfmdY0vTY64NN_Jbr= z?!-o%z3{>QW46YSG1_~lHxCc|4@htBGWwOd9H6UQ-N>Oqt2A%5XHVlvdOZ3!&zB`z zX6;a#?DQrtY%qVxo{ocAhha|Mu-j?EE7jlNi}fN+-<|7;Dr?kPb{aW z=No0DEbpNqMH#?B*5epdBCDlXw;Fu9(0&O}mi~{S{Emh)k$o>u$5_8>r!ArwFy(!- z_Nbo~i9+KJn!vb`}CfZ15*9M}*~>#Mg_YZ9-n` zlKTuA;hj-Q{DS9pXOw`k?*VT6{&+*jeEMR#M!sIk}8IPvFQorTJ-dJl-b*PyAP+e5GTj zdko9;V;iVFY$;!?ey4#VIC_KunNsw*-(lufStcaoy&^#fB6Y#H{UW~A2Oi`MA`DV< zDme4H39YFa35_G{G0_{31sM;uJwb9Pyhsv!bGI}+|A+&9(10F=jXXS z2*NmosHmjLlQkw!xU4q_ZyJ)UgsZEtFPEa0C5T$y#uLi$R4_`7t(;V{M0{}@Taing zeed41X$6pCkpOS~y1d*r98cA7D!${!r2RKxS5-?HnJyR)IBEAdIV{SjOrdMRWU6Dq z^7}uuGzJ8`TXbd6Ian-ui!TP9B=8E*C?!r!LvSv~Gz7%-u%lH2diJ=dNa86V93{30|JBtUenrF@QDYX8?Dx~^hg3y`+9eu}LC zWOJ9o?82L7q3qZGEM1J!n$*BXVhRkDw$qsMb!5LVy{NHDTlfC~UR7|94W`hfVqE-cbKxHB1dIE%TUycz}~? zVM@v{dA0H9Yo@s>5v)nu77F$$E&29I2ws}cqdDNumbN{X)E5+-pahSeHTIRR!1cGV z>)4HVPK*+r{=7w-=n>Ir<8cbV7FW2`E!P16q>tXumP0Q_5y6RCXgmraK$H$dtMQEo zZ#?5`#$x{mzhw$9!RWIb-+Kde;f36V&KVu;&cUZ)oHQpAo-Mz*1NVerA-(ipa8Cx3 zR{sotdoEgWM~A5jPl&E{64bH{oXiRY$ym*BsW)w+bN=8ZW+Z@-XG+^V6rN9!WlG&M{-d;o0)=I2N#v%}MeY<+By=FY~xhm6);8X!r!o;HBV|O(B56QXdMqF^mga*L(*u%dJ)Uy zfGo7a4tIBUd8PURX);(1TkLA`t(V|hahe8e8M+f(D5c=N8RLCsnBbt}@6j=e#*3T) znoju)H9c2}IRACtSXX#RnLY>LgV36PCK(L1OE~_L;opmPV(WfB{^L^`&Rg))?TGd} zq^38~vEjVrPHs3q5f|U&7yrO7Ugg1yo^b9NzY^D1Qfu0e-mt+w$+DehLCOc_Qfyj2 zL4k`NW!Ny5_u%<3Iq6^m_D7{7%)SL<$D_njQyLC17q1f=kndRVC>kRYi^577&jEwX z21>>tGdGT)2J_eEJ8FdUvCnBZ;Y@0S6(R3&-vwg_iJP*>=@olvc?a48_a-Rc_u*5s z=9pYyEL*%PmB&?WYln{%>PhB|Y)T6BIST?diOXeKrRtKYt(h*fj>Je$OSu2#F>56P?0O`?^b2hdaiFRS<=wo;2swr`PB2RB^CS<_p1Cg01;ML3KG*<;Szk= zV+5YBgP<2g2yi+9j^Lr_oNy5+LGTWMcxSr@uMDweu}&-pM|`WJkTJQMvxgW2kDZbm<}g!Ex<%Rs?-P(XH$nLDrp zBMUb($@IIw25rJi50SDSPldo8r#y;8EuNV*li!-6i;_#Ncf)F8HJH!1OI=k@W3T`+ zHhs&-B)LD?eI48*E~L%a4;SfaDJ2(44Jcgd$1l0CHay6M!42F5BK1XIFjFa{y&iU@ za0$L_Ap3rhO(iHMcEFy`Za6-+;e3)iQ@&tvf1L>aFts&++5!j;XarYlVH#1)V;Wna zw47@I_TSWTI%ATF>m;!*^@ZV@F-&6RlO`UY*kBO0El-j^oFZSC;2tAi81JSRY9#ZA z8(S+7xoi|#+w4uH!P#G_Lo`Dwh8hJ5}d#8ssT zNp?I&wCQFUZ|}i_4_q1Hzmx{@Z=NJfy#M0~eeaMQG=7X(Hh>h5sc|pLK$+nbe4mvv zVGiw6IPe^J-%rpA(HZ%-bNMQ2RQLfiHJd`Y9p*6JsqrU;4o$1jtN|))2WT5Cm6nO& z#I7y?&nSMz-)w08cs|wXgcw5*j{0kaX#E0p@_SfB!2@YvDb*{(*TKF5=03W2zI*82 zS=2JsYr$?->6CYn3|m`~#m{I%n%9ySZS|KE6`52tY0n#6pX6`JyXegua0T=FF;&f# zNEOvqbgzJIy%}yDFtph;(UTXbPW=%v8zu5tp!EQxG@$`;-8=WR##I+y)F^Fv0W_*J zGL1^EI5sSO91(K&Oq`TklLpVLfkAn`K3 zUaH9I@pYxT6lJ_tywhff74Z@AwV{8!=N3$P>u$_*t6wYB_)(xC5-{(WV$3Y0AwAZJ zS95qROl$Q3k!`%tUz`95;34(nSP!lp##%o28ZVlt z8Ijh6IrlYnae^{iwS3J4fYU-$L9aD)H!1 z_}YoAvHbrDHMKn!wlwk!%mNYt7q~P6DmU!=ZR_U20KC<>CMA1<;HHM3ee6YuAA&x z1lj8)*;~6n{r5wVy%HyBT<(Ck?0kFfh2$CU1#|m=?|oPk8`+ZkVN1w@a8r^5QRDVQ zvnHUDoRiiPvPkK9roF+RuchZ7$i9o!bj>cd6kkL$3jhY41VCwbUa+G_gI^3f&(VdJ z;`6evU-LD*2s7j_AObdsz{c~~#{XF|7d`pt6#0`W6)w^V^*<5ou`XSM4j%U|jF1YE zU7;n9AM;3%S6a^%3^uq^8a74+_l+1hRO6^o6seGwSVm(Y;#}b>r)Mz+2R2YyR2zl2 zbfDdNag8>F?pFWGU>?TS5K1RF`5J2!jWrY@pT&e1UkEyhpN+EbJmAXF$x`#1pbVg2 z?dd`wrW6li6=e|Q%<#kIS&-p|F=?`Yur**$MQT96sd`}-#r&4si{9LUU@ozc5sd)p zmWVjBUE_IAcs!lv=%*jhbO-o!V=~ZMeFbaE+N8H42*@iU!UNm7d5tEHDVw}*;T_R0|DX3VGPnV0;vwft2iID zcH+tf{Jw$jB8kL_VlEX_;OWMtb|L_{*+lWEr5cu5cH zIkWH!9$mLksrYUoonArYeHzc^+)Z^39>z%d{j<*DeMN=z!jm+8{dK`Bh+R<5Bzxne zwE&SPy%Uh+!K#m+~m2MVoJ=iXUeaDmjW7CYz zmSRKe?j%U>+;(SDO-nI;XI7Liq}LvX(%aDyRaZ0#I+KDRnw2bQ^gj>YE5#|VKKd=e z((W7^l6_J}2i6F2Q)!HtKoNz1oGRG|G0z9NiaC|w70CW{8NWG?L&qAsO?vhl$Qkjr z$>lI){4F$iwD!pbsu{a^UFuKo6!dL7;1z_=s@HU1Cr2-BLm_oO{Tv|nvlbJJtlWX1 zs%w+BuIWf&J8x;gkjcv6HQqt?7Ue6f3-1?2Z=@E~upAGuWKkeSO9Z4$Sb4Q#TS+*a z%d>3vUF2|GYR)q9pjbY3PoP$OeBc<~3qb<0n;g*84KQ>NzL}}i)XdZhisG_dYU!g| z?1(7H!)sl-U?%Q&@m$Ypzjn9TC%`=-vFy(BpQr(P5N!m7! z_3}%IS>8;67k5$2iIZbBgrCPz*uIe@eg6Y6feoH3TGim5uK}r4b4G%A1|YOj3HY2< z>S|~kvuZ%PYg}c^MD_a`M7qsAe7mr6S)lb^Jf?w2s%h7{3GsyO7P?Z3_!G(RDyo?x zK-J<;#DpfdwQB7}X_A_Kz(b&=tZkAL8!wpP}NHAV_idmxXvZtVz4X?<(=E7@ZeWPHlh99M7a^$e ziw*k4nB#f1`waL;-lxzRYZR{Huuczk3onqi&P|rpEcY$N9y0x}_H=7^U+u;=kdggw zM_VfcHFws!OaZO$@)Nj&||n zh>H;WnVtzcy1O-Wd~TnA_cwy&4F2x>x1qoBIKCNwcjE6+{2j!fioc8a`x=Oe{auA) zGP>ISgzW~DVOtlajF4Gegq<~GWM9A(aJfZ3b1e^=b-68x$t`XO-yvRLL!5K_)VU+) znpRM2OfHqJBONVD;_tuMgcF{t#22Wv_0)JEUar2F7{0UKa`kC=h8hb`j=bfnnd6)m zUq9vcf-kyNvQ5Ro!cqta3YQ-w=gjrwpmOv545A(pYXEl^z`QQ8oAkYmtg852 z{=t+6Z_Yu9{}?v5RzTq9xK|guZ??`GdtZ49xPHasc*6}Lphza@@pr8v4 z2dFUHeC^8yQ{T+TZPtr5UMyXtU!07^jn7?(5=Q8427i}FVyA#(Dp9y zQI%)n|77N5G9d$JfB~XJOl8z)(u#&EbfTSHn1ov{ge0h3?5;~Gx>myspdt)Rf|(r0 z+OFGeyRE(MuKoXdzkru&bAcqHRW8*=ZCA8aCyp1iH3=Zh@B6&xOfmuOw*US7!e^K> z=e*~=Jn!>9?{j})So4j3*{Aw~&0TW`;dbnPbzs5fYlbUOTr9xFyeNEyY{MIRXlUJLWo(Re_qtmY5ITZQY86p}GsU_E7?Z_Q=1%jmDLZx4Hevo#BbbBZ-E_n zj~l=;_P-V?=v+4FjF%0vP7B$F3s83VLe9sw88&Z_%&9uuS)E-rJNyZwcJ;`ixwWg1 z=OCK#@>F}bX*e-*$g5QU5X>D0NWnEBOJxON)^GZacX*b3%Kw01pT7G_**Fj!9+TU{ z-S6m&hRPO&TZXIcxqACKvU}M!=CRkrZnoBt-sa$LlgiOXJ_T-%qbz6~eOUpJ%=A0s z+M-d|opgUxPb$O9(td8!Lo>^~p=nqVL_$h9qNBO`-Ty@|XmJTG&Khs=i`9e|K+VarVmF&j$toR3%DFGds#B|rMPnSqEnrigp&bIn6@)D+ zb!lYVA(rA?2+|>pz56$v!vdrXbn=iauoo2j0I5ly$8tDiE>R!Av-17vaGL5pud?U}+I}%5}N#tHmQ<0D620gFct1LCOwu#9&WkMbq1A#A!e+}%6f+xOUMsZd&GwKoK@Xm zWP5g{+U&!*-2NuXPm+`HkbzU4&a8141~_dV}RgxzUs9NGZi07%xUcq7#$5 z9TV=JW|(rfb^I=Q557;2Il{toDW3qJWD--p#&Vyw3W2V$N!IgJ%6H2DfE9OeM@fy8qi;_M3$ScPFk;6w4>{Iv<&oX*0 zlnp^?tqKy`VAmjEc>ZEj7*k%29G?3It7=J8c!qef25X2%V=?_0qR;#$Sqs9{6q@9e zf}XG@o~msx>K$manNO2eDKgQlUlf6Nbf8?Dh&`X$^v&nVj0+~Gv~1Q^glKE>AO3clqd`a+p%?}i-K zPjljCs3bLR%oZh~FYyPYQ+^6L5O*uS3r_QmGO5e-Vr-8p|3&5cu)&6p7XCjl(Bu9; zUlUiKab>XO`XjzX5ztNco#WSLmhT+S@E7XaCBIUsJ>LVWAk5QJRB6$GPEB;*eB}Yt z3V?BfiS%a2YY@toeS8BoBL{X|d(u?T`BBfw{hQ7E@$wU6k3?5=1gp-GYB^`e$)2u~XhKv12L ztvR-k({x}{@3caAWhiV3vNJR`wOC+(Unpf7?DG=q(Kwl4FSNk!`zWv%)>~lTMTKdw zV?)vRd<5igS+?^n0ev`VY~RXwBHKo@J#p_So|E@JNY~=kS^jd@CTHZ1$)3;!;u@@M zoJSq;rCk_9K>Sks01m_$Lx5dU{E#RS+dvNUlkv)jIB9g4>$OkF+C{Jbekl%IthOjRxzQT4X?KN`70chPvtm@@S*!2mvOkZL)2 z<1!JPNpA-JF~}0byG!u0jLfs4$tD?@5^9AI-_m`vuP8hE>iP20A6b^`GT+mAl&(rueThgPQjFCwsL^RXa@`BPX<&mqIK8AQ)o_o_OctBeohZ&-zgX)S6w`f6J2Bg@G)CsGX1^o*Ir7|P2xsG-R1F{cxH ztmH@Kp?NrYzUqu9BJnPMBtSovA9<7|uMJ8jRKtIZ@#}1R zPXExobZY{fWE%%g53f5LP6|km$li!dWh&?&mJL&{Iz$Ip0R?|A1Q%My(j_%+a^@~(ZaN9 zTgf=4F2(rrJu(LeAP~`4&NtQux`(ojwhmGJQzz8%KK}#1qD1)0;v+a$GKse68`;r! zvto@|#u3ZwQUZ+e7uPQxG~N0m-M4liX$9aK%?HH?BSVo`{Rf!0uxs_%bo1eutR)vp z_HRxo#pP}x#{}!@dusyJp!ED)Ec>_^7Kl<-UbrKep#BU|?l)?0rM~EK=MHfU$psS# zKqGsjp{hYQc+JT3p>&6oqe3frL%X@y?&&8l=T11C$GW{Q=iZ;|W_FPH*j z_YVYAoWW+S5@%@YW=kqr__$1Wh*OpW&V{?b#r0;rIi_wV?!@!~%s0FPvcsGd2nwv- z27@NV*OagI-Dq-c@q1r`Gl{#e#Q?%_$z%2*JnE-{@IKTioz>1Z4jI<>42)|~sHL+y zr>!e=CBl67QG30lY6v#b3X=y58LZNG8K59r9gL$~o`q=7~^YBbOnwOA0YH4&xoO|=FLET+W z4N5kvz4gPeNFZq(()R|gDV8lQ|Mp47fbfOf#tMt{m0k1*5|~g_Z~BD=&34g7mo@=)pFQpO%nhysvUQyWNqFN++Rc zbeqsCH0(KmP@Fk;(tbp|L8pW!DTy$0VzMO^&IROp+tuuuk}T)sbwbsa<`|=_jfNJc z_=!fk`;0Y1a83qE+CK&*@gp>ab1+!U9ZJrCtQ09DC2BE`&CK~OT)LXC7iB{f9~%Z% zCs5^D25F7{?pXp^1tMk@4QqNiTl9H+Nq;bIQtpRm9eDv_9=gF=v-;ybp^uAK#D{q= zXudNI^6{k4EDUjoc37?sT{B$AAr;v|VPpHMk>BB(2;zq}q~}NfRlm|< zD8FUTkw2nkxmTt`-+O;h@ZabiIoSP%Ywjq#M@jD5RdG#hD3Z{%MviJBORWfEyP*yl z`2BxC5Ypj%SI&nBt^#u2x%>4tQMlcw|EkLvlm@6k-@9z}ytsG3c+#4j&LvLHKN_8z zP``mPN%ff@ea{MK^n`0up-_xha^MqT@FK~8{Rn=4rkEmRBY6c8jO<2ZL5!5WF!io2 zLFsIS`XXNBEr4S`!gfP=g@TTn;p6m;uF}o+>zGW*!M{sx{buLOBAkZiA+jEvOM!kR ztm-jU_>9mOx4bF)Y37?sOm0)k&<}gF!Ftm~x@ZpyjO2|b zg)_-+XTS+jHoh!tQ34b#(ndJzGNx6!+i}zd1yK~QL4tbccT_l2d%ne^=EPw|_{1ky zsoMxQif{y8bYB&l=I(RQgwR17uL(Iwnx@-}l1+sE1G+>^X zM&K=yHF^h+#5J0-fMFjrdOEHZM-Z|zsI6BC4zk3)N3WFgMYhG@r^Q2&0i|8h?}(=Y zc-6V?G*N()B0Ewx9Fo$0mMYAan}pelmr}Osk4T2HLfKowIp&>#&X!Y=6HVc(AX*x{ zd{LSyp8-=o6(ZF9dld|iv$3?vjYThH-iVyw6lU($9Z`3sOytDU@T|y5!lZ319-hs8 zd+b@-X+hu96Yb)7@%j4QFEUmv2S z!hUR|E`M-q_=@35XM}7w&4Fl-J95VfJzU6gJ4y6=^yMtlBfOj)9g4`gX)#oxcYNSD zL2zSAL5tnSFI#=W)LfyD{f*L%;#81!zCsA}vb|CxG4C)d^Cj+GJhCcQ@}hW4$W6ja zLD&e>s4z~6A4iU|cB_=g#x%?mrdy0iFkb{3-Rvugd*853SNnNZBnmXiSV&o4rwW%T zWD%lJ{wlQ^x71Ks$y{6#%+4(PjZbZ+iIbBtSc_hw z#~2 zu-xeJKsKQLG3dVq{Y@$Ha(|qEaYSs;Y?bZ+D3Pi<)glhvN*A%JtycL_02Ow$OIEiCp*?N z`}etvCx9T!1q9At+?VA`o_ zH>o~~9)N~R`fTrsC<}YJmujfL^zcKf`YboU1vh;;+JcE;15qLD9Ld>9sGNA`;b7|D zUZqFHBsTOY3?Zo*>P)cB6b3I7Xq&3wpr-*uaJ$fQ)Yogq0LcQnlprCmiY`b8;K`hz zksUrrPX%n!?~W|9+wF^m3G9LCaxeDflxa$PK%*sk`=@y#U>mxU3$r_GXtgMzFQq*) zvS_%k*5g?_GhP$ut4@*65hq80J+rPahltr|{|Ao>C`zB`&++mN9qzAI_+)=RUVYlW z+E;~tEQS;_BB8`owadY6CPuR&!n3S8l`PnoEs@UM6(eq8UiUOFl`VT9bHfV$zVXv(OZsMZr;o$;X zc-CS8n1Xm;R)GLcVJWEvEx;Y_&nmD0XJ!Jhzd-DX0B#*^jRTHwv49pX*(fQL3Yr8f z=Ayr5$!siWR6mX8#2fr%1(_O$lHT+a3LfMMAOUOWeSz$je3{TGjyHDMS28jQR1uW# zvrX@9vCwVJpgoE^RfkfphhS{anbD)KaBWO;%%ZgFMD`3q@ zet&TRR<5Z5`vH2&+TN~~^amNJC`HLNlVdUs#)ieOTywHPqG_7UCZ+DUYVb=`59rcx zrM)R=a!iTe%BO*v0V`_U-6QD*v>xa*!dAIGUJ~ej)uEWT$%=W)c{IXoC#R-4nEzTX zRbz+3Y>MeQ?O-CF@20~%TCd(^stk2nW~TwmSDtlwEqc`}h^L+{YXB-2p4QZ;Vpy6J z_XOlMPx8v9dKK;yN8SWG8Ax)je~=TK#Gx8gQ1fgb1nWRJi$9xM7U6t&Q_ z7czKp>hjEr!e&Ku^X$6v#puK$4$z6=gB_g1MXeiiWTv9z_o+~$lW7tijp)PS+|6k! zEPcyz9&G`R9u;^8#t55$FjpX~&%)hZOikF0vux}~atRPb6cldA=uOirU-(>;(^eXt0|`p zZuTmSrK4mfsh|UZwvgWIj~_4w{fELIGiRm|-%)YSz6ri+nOR#}{|U6^$>$nd8c;-v z{-HT>$;2WV%&?k2IgZA&p%Bxauz3U*s(kdau4E1qFP_f=t-^^<6`@37Vw5b1Q4T|w zns&a~X3NYs65&^)@pa!ld`qqoCGGC1BdOdP{qAzCjryLQe>$wB78_rUi6_+rY3r^h z8-~1$T$<1%4TjWf8BGa@o9G9CjT#@B#53&IL*JwvSv?zdHLscVd~3WO3fRqr=$Qp} zOepZKnNTjXz}oQwC`Oh`)M!0b{nxJ%%`fHR6ZvN~T0H&=@>pXcFHefNGi!B?7oot3 zhfP5*0|2i(#sIKUqsYIZ;Z8oXF^kK4lw)KG3Tv{?s8}Es=_(vD2hq z9-70i3FWTk$@iq3CgoiGdQQp>qtK9Q)^ej=9>2;Bu5UMwY08AqYxXe!jMvQaX`%QM zdG-I})s2oJIbBPZ)k^MPA@{$;jqx{VYz&XlVb-dS1;w< z{Q8oVtKb*cd#HgGpV`IA@h(!}{okHd;DYf2Y6=eHoH8VbY*F0#%d?9AIcsdl6li+) ztOAE86!?>JeVEXrpH3+7XS#nzm+zZU;5(l@tH9?c6!_`cW2&7{pzD&eYWVns0-rt` zx7-s7Oo7Io(a9uw7HjbXhi|BybQ6YoU_ybf|MaXHzCWSBi)S~{F`>W`-&v#h?1Tc} zH+PK8$q!B_u;AO*8g0m?;4_QQkDs)8p5Zgh=N|dZ=OCXK`Mk#GT|OW1$@z`VGmTFn zpHJ|q`xT}0KY8VqS6*e8U48ry=D^i#ri9t#hvVU39Xv_~ zBxB2f;R;O_9%^mOrP!xl<8q_#tNvr*X$v_6Nj-|qQ%^YOtIIU$o$3D#J0ACTi(}{n ze^VJ>oJ3M6bTA6EJ)w6T<&MRqDR)(+2Qx-HE1V{Ch-y5VH06kgnUt|lN%hTaXEuimhvWJL==~}<=e)Tk*2R|m~w8@k8{zIE4keH1zM>6AxR-M<5Bl9#anKd#&#O*i8T6A82*1Usz$^^iB9| z#VazHCxn+bV|`_@^5OWTz{liq>rKN#%zEsN#%GfPzU~IRnr&SD=wQG)4iOq-ZW#U^s~4;kS(@=`qXX967Tn0dA3bK%d3nS3IT9? z9YDy?_cq&^G=1+Bk&2BW)AxkTdv6$r$k3p26Cq>~J@De~ru^O~7^tjS^($Hu`>qyZ zE8-6FkMShRhkT^gBd=jYBQkyDxsPqRq5EjQn9(Hu6&o5l35;m=BaUu>(}Y}5Fs735 zqmode^DkAYO2@IovL`8V-jnWrF5O4a@zHj**!QSk1@ep5v}jpxoID1Xe!N19ltmM07xxbBt|jJlz~HQ)YFQa&Bmv+N^NAlS0jj zTx>T`1*OuD?qi*Q#d3KRt5b{7|b|xDj)Qr^MWkX|5GU2PoLOOC%R}CFwUJ?3U z4>GMAwY0+EE2RP^PH86u2w9Bn?zIug;_mH5$Lg^~gxqk^im?nq+4QQOk+vsDzOkG# zbMgi@+8P^FKP}yb$n3G^#8s*RZ*qF%xP9}K)KwJY{EW-xC9-~#miCC~bzVMyEih`p-G-{%um*I*B=*VTNe`~I1 zc+43C%(e!|eBqxeGnB79C0i0t2EYa^M&JUoB5o00nHA<;5L=1$8(fkrFmc-;^U`u= z9=hsPxz(%FUZ~ZU7b?-4o9F|p1G$yuV5%Eb_NsiPImX3|bskca1(u=4l)Q-&?eH;D zM&RRKZ3aBZ!J+Yr6MYp#hF3@g`*3n|laVk}e@VS7@p(Uddp^^_ZHEQKSQ-8f5D%w8ETE*PmkywELmLzl&7X8!qx!MAdjw$G`m#RwaFrI(Nn89EDq-6$|^U!6GWZz^M_&-IY_U$!`Bio+Io*s8U z6TUKXJ3c&wt7H)x$kjQP_D+EcdP5w%I;11-ASc<89d&x>X{qTkai1gUtr_G51uYwE~s16pP}$9JwA$RSxG z=NJ3a({=@h=}%xk7Kfxp)JDIY$7}Pcd4cJ$x+#%kh-_dtmc+yV~{Re#m zz!>Snt4YfH07MAhFG}L*^LYdOQ8sr?Pe(9vWu8bswX2sM#x(c-|OS3SF! zS8#PP-(vRw;~FHh$1o($uD9Jr(?;_umF5$ZobsW_9Rmp+QJI3t$ThJi=qoV+D9_9@ z9c7GUmC|LZ6eZ0YNFxK$8hK&1B$Sa9B|XdpDN3ZPxPVg+_8YUJEFYSA`br0ttH_4{ zzC{5Zy|hFnj066vG~l(e$>B>g0AD6#CsLJ<}EQpSBEwqq5K;L_>tn&4-4Wae1`de`!YbBXM z;+KTQ>3a`aPE!Hm$Z9%ZPN=Z2>R^t^=*y}W)-(JC*%>W|z>NH}=J|-VH0OL{^j=zdMtI`OHKRz%gSWClfY*q&vXSq{3$t^MopK_0qp&7v&)CxUU7<^3WX*aC~h~-eR5K~Zn*~=6R2w?U0pP&pA&nV%zjoMZ1ztP+8;+ApB6gKcV#YsvL zvAF}`DFEV|S4zt+LiI5E%W=r$BEmFQC{AT_`y2E{qo9)IH`QqJFocgu0jg9h|I;JS z?tE3QjQx0Dg{Lr_C7G3WQE4F#eMjcLM0F>}tJ5r&$a1E77QNfhXF&@vIZyoH=5AkY zHleruP9UH5@5CQYs+8>GrqsJdhg>@SY9K=~8M!cFLSYLA%!yt4znNH)m)SZRRU!qI zbiK3t$g9c;k{QjtMfpaBXXf5AKB3H5{-x%GVl%QNVp%5X`Q1s4n9Mx4x(TRK+D<{uTqf9Z^}ngEBaos8$CcQsq zca)zb{Kbr%im_infG)KRn=2YaQ`1t3{bGTHH#x9!aA{7{uhdJAq}i;)5l!L zF!c!geiX=bxFBOe^>gQ66DK}6%Sw+pAuOr3fc=(@%1-Jp@%2+%FAibCj$&^TqMa7; z+I*5MUF=QbJFT~L3Ag(52Z6(5&T!URPYc*E{^V6={l&`4~%%P@W*tv%YI{%_-d1dV)SQ_apk7j?#>qA}^O z+$Pu%Q=3cd&aJo@wxafIPW|Mli#WMN{|n}+XKv#_F=qsf?mW(($u9Bl(C%WIHWF0A znKs>{j#%Y3|9hL}kJGokL1%oieSNI_^!LT3JUk_ObjM^Gqu)ViQd=Lp#To5$`QK}O zmO+#r7FM;t@>VFPEnYI}e_xMY3#5zRj&IkNKQ4ple#@bxrbT8xCmb@ooD|SmZ7;)@ zaSmn6PK9&(s_mzT#BH3Fl*MV)(a~l4-Tz9Z;=}lcvIaiLml9p2#fN0}*2k*tL%)}X zw|s!!_`Pot;E$ZH^vL{2GT+9;55J3xKK?CoD#3g#g8!@xD?Weat=k#;t(`f-cq&dj zLPc=mQZdQ~kLtU$0QTRxbLnb{j!d>9dYm5DVHegn$E!b})@rjAviD%mQ!Nzy&n;M$ z6EvcYc_d$G%SxrPrLEk`)v605u2Xkwxil4;2nqZiwjZPOj3;|A}j9UZ?0F*HSU!xW4OUc5=9gO3^|) zPwBf3@w<;qhC8K!ef*#=_Hq0X3!ynQz3o4FDq(96@V(xkJ_5tnM@Pw|dXL$vLr!U09C87Fl|f3Xl=a{Kb0EWZq0;`X%gk_;ex(S})kj-8 zV(Kl5^FeJYg1TtZPAT5j%xR(TX@QS=f+Ur&s|8{+XlFFm-cA?+Y_V16-;kzx~TjBRd!5IPL3uu`5ED7Y`W-7ms&z2{%iSt4qrzlf@8O%H?~w{ zTWhqTJK2?~H!}t1hXs3x1gpaROrN-z8TA+K(f+nKy{6+FnTnMxZi~rP;Jj}k4tYefL2?V9*gn~ zVV)ko9h5Os6_f7-eIx-q6rP`$IRm7qB>)_o%U3^)O`4&Y6H!+OH&|SfBC?j=b7Zh- zc9&#{D;ht@3VGzRIX2r*rwq*&l#@P@og=hdA!zk*kEXZP$^&|&xWf-+&%S}>!Bmr{ znMU{^kFrG#^)o7YyK{g5N##0C>cS3T(%<2UUezPvNdYFrVzXX@`CC0IFDzeoIE?Sy#UJZ_3=np zOmV=?A3oIKiZ9aY8^_$l_7w=AGBZVjEc_vmD%(ZrTgJaVNL9ucgyAtN3gYtzj0$jQ zioT~=)*YvJcF?L@$oiWUd0aRmqo*-B+2Zs~ena2u{k|1vyX#S@sjjAz^ilDGLxO1E z=1$~JQ8oS>S7oR4wlB!{X}$dc^(4EYuhMxc>{Hp%S`u~4KV&O%=VVX#bKILm8Vk60a%b6TGIE>>&qT%Oe{#!9l1{EA5i#3JKESEdCLg5EghL~h z{jkW??RBfdmm=kI8J_+SoF)6x`i1lFZk-Vz(RAxy7}V9KW5UoXy48T0=o@p@AjRq# zcAG&C_(|rr++b7({MEQ#Uq-=}#FZTVYR)%E?2>>BGAzKD&Oex*tN)<2mS4-@I)g}I zdhB1g!3oJsl?d4~RXgSTbl69ZmxjI|)3imwwK4G^ZKUD44#U@^WHn`)I30vH)-T-7 zIU!%?%2>Kp+SCU8eVb9wy8H(OWHokTD<^l>I3veTOWen)@FqBAf8Ulr=zC{Q=wtLB zXh%h&JgR2CvZfAItN--oq^P*Vm$$$TP6lew19Q?z@B@Enb&ma0CcSzR_eNk2WYXVp z`A=`@kt)aX+ng~YOIL+UtQnc9X5`m`_UjjxMO(e*q|oStB?^b6o`w~iXMKS=C&7tx z(s+YW8Sqy!CkyCOW8yo1lsPetEuO!&_~Hc}rCl(NQ)NF#5fb%39m)&%ds_dD=?0@V zO90+0$42B{xPo)M&QyQYiC(KNgwT@PU!B%#)!iB|&x%!t;$(rfK-cPv5c zuIL*Z`W#8;e$$)`Y1z_08qHh%UzR!8RBhaQ58tBXlW$XhxHzV68Uf;ANMaY;Ek*qY zTaPp+;y9j}g|IstoW!|XWEQfisZK2vic3|}U*l>WSa-dtp~N3HEu12x3vCn)YW{{UOo3%itVPTcnxomZJ>^2KI$h|_YS_=uVd%lf}THZuAKPa1F%u_l6=;^_*g z($#|FGWLZ1vL9eiu#>U^`AivG4-f($eTAbqtCtyD0#-15T)VHhFBbfuFL-iSwC_Zp zQ;%&4kiz5q&fdOY%7+_wP*@5>smD8lr{h5}I*~Ppb!=t;sa`G25H_f_aqoU^lHNgO z`d%y`(43*K2J}8FcoWmuI+wAL?QRJXw8Ey^95P8>*$5$6 zgJGw>x8mF+R!E0rT8sx$Rx!53d{xw^(uH_rC0xR!r{j5z-EZZO z@I$FA$_~a0-Wr7-=b`D!;wWu1uMTe!eV=q94bgNCll0BlImt3*hCj;)FV+6fJvO^)^_w2Ul!YXrdiW3!AZ#jSUg&&JcEvZ8D%OYVv(@RWGvuLpwnrj_;102xaQy1Grl#+Wld!Yx{~#(p&56oiLHt<2AzukZ zQl&{^rDbNNQqCYkLD2ma)NdFNkB-FZhj`6$3W!e3l9cHg0Fxt zw6J39X0Jc7$tej9LkIkWT$OWmzT^V@=tIlCP4(7BepdgQja@=Rjm}^2zrJ_XHINZV z9pZ?~W}7St=jn*wcA{fWGCO|TNNmnXg?aYpc}@P8`hut8 zj|HelHl&9lQeoA8&9^4W0pQ%)2Y`@Lc5^>`1u`fT^r;P^2bQ{9~a?X2iM8tMcSCFUEYD`i#qRx?iSLQL~cH< zRI{u3LUC*7%-`Yx(cl&jI1Wkn&FU;V;20=Al$7UL#iZyj?TVgk(w7}vA%QZfJO)Gz z9K#X5BRLl}jyfvaiq<#d^qGJem9Kvqe&gWge#DHugQ?!XN(uui3&EpsFq)Nel+y7G<;~qjWk~!hgbv zAqJbYQgX%p(_kuf-_}$3;_|tPPlS&x%aP@fzYL#Q*1u+S?xO)i;S^l(6&zW$-D63u zHH$&7_9u3XMDMuS_ONhk&5vjEe@vCu7d>6vy*BBHCbFZC$YR6|GPdhi^1LF@Yb=rT zRai3p>Xtm-`Gi_MLwTSwCCu{}OdAstkJ4kLk5+$&;+QgDM71LGG1y|B3iG6-MaG(| zR12BL+gHFwz-2~ki^<6=d0qo}FuiUJ4=j##b4Hu{gOjd+9z|S(x=GEgqAzvHHGn7|~?*c{YSsb89rs2xMlc<^R z&ngfvKTa|?<4Bq>ljzEm;0z(mGgQCIv^cI&AMLuZ(lL&5+`9_@49k?I$Rzt8+q9W?cSFJy5*keDAX7N-CK}&J3kOoF zIk8CvKIE(HbQuI!_EVOeM`>9KQqk|xiw#F*Yiwk8@~yLV3zVay&8#xNUKMCe6jG(p zn0Bc9neuXc8W)4gRah%5mpVxoj$Fj4)OiC9$f5MuomUCLviDoJSHUcb#){D#J_lTGvN>~l^~~EQjD3|qH)6@*uFv*kBQ~yzOEJySS}Bm6QBAKgS3t>ZfX9gG@6OZ z*)#&9Pk4SIn-OO>TXJjwOq{p@{WbpZdNmkX8{)BlP<2hwpisX_{kgUZ1c!K#oPemK_R;;Rln6OY^RQ_N;5f zD8)_OO`l^n=5!mmEBk7_{UM2K z!^Id)kE50Nqr)yS-S!tYW}`1qPVb$_OXFvU(zmhpB2qHB6t7`+TQfIFVSoa3x2G@5^C7!!Ay3(D!Ikk^ z4EpTDw}MqyXhx%h1vu6^P%y~uEa`gkS16M}OX4)EI6BS;ft1XVd453)Yp9dsqB$er zI>UXySV#`>1}(2AOl}rVU3ok66p~(c;@Qalwqu{R9w#O|=8bi@ijd_c+dLQS4rZrjX14(7@;{;deDN zzw(RtUKw8$&o;C+lu;z#1G-{5QE1_IIlmZBV!BtRfc#j(0-_I2GAb+cCvB0QV>Zc-cixk+-#&c}F__vKSz|(0EJH zwzFFXU_ThEB{65WqpzdcbPMkl`Bqkk+gK7%(i7J%pWat~LNAG!jzuOPnx9rm};9+^t#t*mP~S{tFTlr?!wBz zYx)dp*|FO{V7R95Fu2056>AuAbenId2QTXdcnMNaiC29u30Nt=SBUngBJe@ttFXB& zGHd>5OfhicV0|HPyIB8<(6Gx60(Hm?%hse82C%-qSN2ACW{0J-<8SSJMRMTT2Y2?c z3m4H>)1^xJT%Q3fv%j9kN4uDPvs$vOa1ypMm!UIRx${JXM`8R;>rrEszNq3rVp*NR zCX_>0C-1;hxSqv6nK-GVIV#u7i^(~iYwJZDHcDp0j&mLjP=Pv^@lmNNwvcz%l|@3O zq{&b`hCSG zvTCpv{(68U@TY{^Y(rGW{33vBgcg`i+7N+C=E9o>1-j%F4NE6HAx7VB|dfb~H^BFy+kkBJ~DV=b!DBz<+tI7i= zJrE-=8L4x7%xv9?ezD#pTVlOJ3wSFK`3$wK<#TXO#_^cv06V4RBC}$Tm2%h+S?E+p zgJ?lz!O<0ALOkQ%^mYHkfuG3!(4R9}uYE}1gmPyRMCc)bQ*4g3jy|UrH9yVU4~|it z+LMY&8DoM47UrBpkGnQ4Gg1G{7Cu5PElF=BUk#^gRw&O1(M_M~SduZm$3<^#<~a^1 zo2g#)oU|bZ>AzY1E$u8Z8&dP+J!6u_2E%%jvAC?GSC)$YZV{HJ?)ain|ES*nBCsI_ z<5Io-5Le=^ptp&afw(N_?T>LKK{oR#e$0PNZx_7=hS2$X`**lnAKh-xF%93tL3uN- z9?P3it~!_FLY{NhF>~C(U>VFqG;lQ$e~(CFEDb!Ar_SSoN-32MF_wu~WdLg__IebP z7@%>ao#fk5mK!E_w-di9Cx>-4CjMJgOh}9k8*>{Ihxh@9tCWOFuHipXNM=w=#b0Qh z4VoNvjacn8vM}2961j06S01unJGzX4?yf1N2a5U1F758_o?P5bf}1Ta$&PsR{F+{4 zYJ8Vu8Tznt_#X(s-2!lLbIV4X5uT3_d({_6UZ`XpxAD(p&^1kCFsYt6$E)6BNS7BjH*em1iFH+Qp213}~=&9_@zR0#uoE)NuRiF4EzWjvaX-79$S||wujh^ED7}R*+ zAK6qZ`P>(-wTH7K*Yt;Sg8q@#casaFeUo^0Me%cwrj7xhH=K{@5hl-YuAke>={MnN zM$qo)qq5u>5uSb7^ZlM*;y?Q)-$Xk7!gq`dsJP4j`0v4z)*R#M#D?o6x1$H|)xN6H zY`0NK7}W1U3;?tW5t=XJTK`1pSje|J_I00d*ReLApksfV@3(x(9|GAn`9>p_XY4k0 zu^pHsyD0iA?#J7FU3|g1bLXRoh32z zr~h~Q?%n)m9#;)l9ps$1`3FPA;sO!AQ1tfto(@sm%NaJ4chK9p1JUC*+%<_2Y*o2P zuO1F+k&xBWvq#OA7&f7zE2VjSNnk9R>l4?CNyN;=gKTMaCZiX3-$CtkT}_nU{s{JN z`lRa7cgeK!>=%65wwD-fYI2pOJz$>z-9~z#fR>2;yY$6ng5W8Z4j_;pRHNWlAIeEw zh0` z^I1SQB>s5HE=QyS3C-O8>$hUIi3iX3AKZ*dZf)<9#uoo`o39Y5JnlXORmqQb+wVgQ z@4#a1g9#$3Y58e?ADIDg*XavQT_Vmo&u#g`y6Y7QT-&?u`gB%=aS{k^G36_zyPbI2 zTcOOwzO+%+=(e2Q(xFkRl1%*@RS-$X*-{LmVD7=tdQ3fKr#4;ADZTJ#f82r2N}~F% zm&bAynuS31fKn=;P1uslQWXD|G3eVwK^%@&JLcm|n&33lkg8`M;kiD$tq{V~y* z$)zZu{u7W&E>oBBBr%#95y`7QrlKjd=+S^8w>S7Ye&b-MD3gl zHz2vf8*$J31_5wT67wuZ0ca*X^*wjtX0c|tv1biWJ{4 zzFJKFi8vXxL`{w8k=G^jH8I0K#oEnsVKq)e-`OaNje_RHzY~|EX4qsrWWAy7Qp|M= zDhf#Ert1jH4LPINpa7dP++z>rEUZNfR;%G7D%YsOYF+rV$~F41S~r>P>MHuldc~${R|H%}>qzskGVr1Zm`{(rWV) zRgU~r+HHOonm?76o1X#mr_y%wGh+U-;e_>P|S@wk0ghC zv%;365agTzi4m=Kq9fvj z!FMF4NUD>xl^>`L4Civ=fI?DiyJGY4s-)ch7eb#@ULCl@nt2isFlK?GUhq=R?R=Wr z(`~Mh{qUbv$Jh_kW+>>T=>OzUxh0Hrb+;4wb8I=}R;JdcOF(7)i5p`7>Do?+u13r-aEmYj*q!aq+6%fiRONVd8aiBgpx-=iv3 zt$ayk<#ekX zty69pPv*9+HvOCftEi$Nua9Zw2*Z)Xjj%Fvdk9zvu1W+MA!rO9MYa{ez*j)09#Nt4 zdzEV{q3llZMo@yB z3O2wreVMKbyJRFfpH#h#JP~1eb<{aYL_%n|WU5iTo=(1+CYjjZj!mpUI0Ig3{k||# z-Qjall|PT)ge1!{lYA+Qr_sH(SAVPv*b&@q;Tb3-x5ukeS88L{_tfT)<)0wD;SV=))ifNq&>r6a4-?4I7ac%&uV?1lO1^m6O z?~boE84~la^j+yQYww)jU^Ew9QtMmM64xe4KY#G!v3}}pUt_#R<-Dtf%h2x;anopY zExFpp@4IG~J^_b!=Xyh{Ti@N~S|8Ku%KZmg-w{7@SL8#dg-Blv^;b|%L22wSoZ?L=pGmTj#y`<8yk zG#6v#Po;L~cYj>=n(g_(V=h-socrrTmb~7morfx7I;qx{)TcHVr8bwOX0(yuHMzhD z&Szfc#>;H}mo_^cDgR4bPP9;_B(+&fB&$WSLc)rY*!KCU%|7$h#6>?+vtV#L$hkqj zSa2R9WdU!M8Nmg-n8J`O)<~SS^|m{u>jbIMflWs9Jf@{3UNXsOp6^c@`}K-m|G`Zc z$IGVq`&IM(G{3@X{$`rzP0aFE7mVOMN3cYt?yXOJ>xaY^26^a?-7+tBi!bSj)zX!s zg=>BKF3HBaZp~WsL3lnDqNG^2razd^&6M2R5O9kR+Rcy`>rx^;pEB)8(H*|Yn~)7Q zPHstjjoUO}R2QY{e8v`^zQ+}>&x*AaMUOAj+h1U0@!C|Zj{EisxjVYVJldEfKe1{b z*)8-vlVa7BCga8rD2+Sm@33=(_~J%vpM&q9)_>nz6_geds8~ z$@Xr9y~W{zro>T#k&H!nmuZf^*dp(m;a)jatYw*TAbwkxg@2t{V|8jbl+M*@C-6eSDj#Zl;F_MEs^=S;( zO=8;84X@^C%EU2#>%}Mg}6v9f#`m%Tr#V$xfS5@ zTBz@O0R$tQf)FSR5eEt4NCO?zb&JXjo%sfjzWYaXRyGsDTFiJbqZRO8qd)EpMvrD4 zdWZfai3eIQG_LcBQ^V_@*7rE0-8s>tJC>5uWi)o3uhSVUi)<1dNq%aHFVi+!ScG1Na zs8!oL$FM=$c~n%;Hn^YSf&5QC7bB{4%f3y+{hk7u_Q$MMEvIkm8xvXIzNSy71< zkI_H4Y*|uS{pA{ynp)QzJ?;q4Zb>|=#2pRDbxAt{y>)=k#&a!Pz$*O(1>n5AEiq@} zK~px01+}&7#46<;IfVOwruq|obG|IJGBY}YH7V#Ux@V{xH7L@54!eD1p)EYMCKmKb zSW>VES`*zjzn9Q;Mdt8@`uTB1=I|FXyT+V|3i7#yK}9$K%@@rQMy-!E4Z!CuhS)A{ zWCaJPQLeEXfsN^({Nk`&4_}24Od*HOMRWi zexVk!a3l6O+9x>CFv;v6FqgOB3w@hKyc0L%g@Qy>J#xv*0;0Iv-xM#2R|^nowdkv( z@v{92B2~Vcfa6s3=;?StHPtR~u)2*Si9Z#qea6S)Dx{8*jv6PESJY8MX0f7JjVJD2 zV2nZ;a$@x^>i4XORTuERtfN{ivGY5sFJuPR6+$Z(#Ol1pGvpb#sJ}YjoP-+iA+CJ` zRfnw@_O)NTMD8a7c-?}{E5TTd8Eg#DuM_Il{MfpDex)Ruiw;Nk&7)u5Sak`%3S!ms z*06)FEPX<;J=<~>yQ6=jyPVeNuV`tGYv;$R=To$(=EzY;KS9~m3liU@F(Sr^c6A$d z3wU2w@toFvu_Qbkt1C;+=&zQAVe7A6V1AX!7d0&?4*C{W`O2^Z_d}}$cPwI6i~u&a zy751d1>!bZz=JC)cAk##dTS9%#m@`be{Bc)V!P1$ql(@ijeXvicdT<#g`)Rsu9pqA zk3DoO`<1!gWZf>I6YjY8(@J0JF;;n3fYj^<4UMwgK%;;Ck1@6|G#mCV6`CRXjrE4R za(#C<+@G81!2Z^E)?U9ZlV>;k+hT0d$a7L01h`fG)$?T3iFcJ~sex$MwIuF`cV@Zs zqr|B7ss%0kb~Nb4>)7iL<}1t5_Mh5qEr|{3vfUVUsF^uATW{DjkCe{6l%W=psB0`j~2QDt@2%a*!yAz)7q5O_u zs$)tr`}6?!qJ3Ij_&b>#eOkXA#F$xRY<0(1dHRF05ICr9l0WF$JPFEjH@^DNYuP!S zeOlJ+R1mLY^Lkmv^^%P1EV-uAX05a4LKKdXm$i|>bGv+Y`+(u>aNBtt-CjVLw-&B3 zo@p{ZVeMmth8jsl2A-Vc7I3K zxtU?H#mwh+i8_U|b5StsW zRm7UL=*jHXBI7Q%F~{*jT>BKejjSTQ?K$4;Tvp`iaOcYc`pb~e(dfynu#Wm=jkz@q z{giv{FY0aI=i6BBqD2MU)^Tu8Y|prc78&jTP)v183pX3fJ%4MJUaQJ;toch%_jvp4 zJRR;?jE||pK}CZ{P~4c_{(0fVCR&ik_!ZWVVp)u>SfMe)Xlz&zq+c_$F2`XcI1`(&MH0S%b9erW2K%N z>X0eQqSCnAX4PA6Rs7-j0p)c8FshGj*9?#NHQFMr`BeT!X633F4Hz|=VBKHCfXo?i zMZ1Mdle6_)dix*L45XPYmKC6M5mRcE%aJ>B27L=8cutMc;MzJPzJxJ!M;E5TPE3t8 zx4%zeUwlKB(NF+5^P!3VV3d1HhuP0Pr70SPp&hliUM160!NebWBd$&3p|`XvzIa~r z_Jb)>J~)nHaJ@aDE=QMy|3qOge0u(tsc~&F@x(H<+dvu?UtGJ&G01jTX#B=#(TuBh zo{9jP44j{tvBqXr7*`oj##%IMEuM*=6Ux$8rqUOy)(B`m$7ppa$*rE+*}h3vwLJW` zJjWFGNr|9!qg(WnP=fPkquX)6o6Rwp*x*_cb9h6&s;I}l{G|}~xAT)P2$EA1bZZR1 zP2`4ZcI62w=WWbuPP_w`D?|jMP_0ErPwMTvsgMX$LE5cu7D2o&8^H zzgJ#!f(H~$FY-CYu?+e%K3)U?+1xwa9vSw`(kC1T9sMj%Sw0U)d)N{>tEPB5w5jF( zXIlSaGUd_H_cn#1cX@1~8rGC9Yl;<>E$eK2Rh_k>NOhtaEK_zF2U|p9xj90!O7)B< z8c$MJH7Dlr5PqKc0#!<^q(}kAluqJ;wBf@YUfG1qn`0Y5rv0=uHN5D;tkC7g8jrC& zKbq74RDSyt+Y1dxWNUVgN*VbSOa$;M1YQ(aEG5E6*&(xK;LBY&Dzk~y!~>_}?nM`H zFJ7LVCh-j>?d@#3kj)b75c{6$k*q$liY#(=Xp`t*`e)9>pFZp7@_Z>U=Pc4PJp*^A zR~T~?y)O9Min$hB<-GTe?Kczaqqc?H5fbl{VJ;FuBgeR_uz1vQ%9vw3W9`*5!RL>D zpIy4iSY9&L^?Z~6Nz?m@?OFYw_gDI_h|+ZMj%{tXVwRg=mf`L+$6;fNvBv8daP$aT z9uCbcemYVP_xACD_YiY zeCOTM>fkbCly`B2q3(RW3UL;9yIWnT1U8dq*?mc~H+3kwuMqhO@yVASGnx<~m!eJ6 zU=?h}=RBNS=P&o_QQ@tG{r5Gul%~@7W-NjbzpuByDP@&LsfhC}oW|w!IlucTnnBzK zmE*hZ7hQVxUh-gn$dk}(lwEFPuf)C2)qS%Mc8Ht}l1|JUzQPdui`T3xqUwqi zhHF2%uH+T+vNK!^6!MMS$@tR?=`IpVR=80k?JZ<3@%yLf_m%8DAJ(J#uq$1Etm;wO z6}&O+(IF9zh1`qfuE?-uAEm}v$)i$aNQM|4CEUV#CiyY@wMV&YQ_r7Q&)K;i<^ssF zBprC08nQ_Nxm%sa)b7_b$9t^DZsCTGAxr}^?6>cJ$o){FpGGMmu#a|mm^GyXrI&_t z?DhKadNyFtqdpb3HG{$n65#<}L16GIro?UxNN9pJLq7@Eo1N(bCQ_r|fg?-0AFt4; zIyo!dDkGDJ>1L~;0ixC1^%^=|0Kg7){Tddga$SCyP0LpNOl-apcPm-3`1y5f`zw{~ zWtQ4FX=7GH;>0nIogDiEAC<`FLviaeTqE7mO>)?Si$=YM!9>6NUb$ZDHvA*vo6Ezy z1dx{eCWLNZH62 zvc)4ZHHo})QS5-)Xu*4j`+}m{-R?A&dtnipe=qs)mxd=4x-hXG zx99PfW{B7zqZ)Z3*6fNNv~h@b&}}ri;41wUqS^ROBE%wGlTKY^p%@z4yznIaFAH|8 z*%nB;y?6uT<348R%XOxh15M>_VR6BtL(+C>P$*0yJ@yrR?aO}FCz@|mQ)#f zwY2MD5IzKq&k&q^k;c);uGcbT|O`J@swqG7V!}zXQhEe z&Bkpm7c&Z$jKH)2ZsEI=Lz8RhYWr~91EkT^GINDT0`q{ z+R2JJofH1JQ7(3~0%&taGkV)gyfUGww%>3kdU{eQms<4p*QLsG_XuCICE!q7pdYS0M|n)fv0ag$Nd_AMFpQwT9egB9*@DKX@l` z-t;W7{HvKH;^KA> zNQqv-zx4ZIr+F`d)m zrf_tt`~C3eQ6CVCNb}P4nRUzF`M0;p0Gb->6aTT_YBMwq%zAyJ@R!PKnXlgHfmGfL z(NkLZGN9)xJ!}v?M{ZB1$*A^X#4A3)EE(05k9COSZhX-x5pP|+LibCD*(Bj|KnlM= zZ`(1zce#-@Hu!o0;zk>RFJh@Ec6A@u2&oML1ZKGiK(NmzFW^<9>X;IOtNt5iWJ}IN zECySWGt>;N{U_71J+Z1^c%u8YVDz+o+ZT-9Qt%)P^DJxzHllFOL)TG0c^OeWob|g^ zuIHvg_k$r{_ing`pDl?)ZvcbilOFm8zaDvt|MX=&AduQy0LssJY|^hY@yEo%{4p$q zl~Gt2&MxgLJ=~jtUZ?Ln1HBYIJhQ%x7fyZgj2F^ao&HYTG_lGw|G+6!@DIv@4JqV6 z<>nZI!xZ*g*|-&Yg_bq)hy!Mkx0I?Kn@-p}c5ely5NJB0p%0C_(aiK3<)g7(Ujgh! z`3EtTyvHOQLi)$vJD{WjVTII=kh$JWj~+nMet1XyHm&`MO-q<#!ih!daOd@rh-V;$ zqg!gn+TQ4itneg4n4LyX>EX4#bDxWzAiYNP<*euvur_%;UtQa)8s}S}yfzce?5?uC z%0h0Cs`F(Z$T#|FA#a^}ix;l#HTs3U_hPsuCA+Xg1>y6W8i_)h^#zAb|G`KWxpUqy z`VYNrmI(b(?j3qt>IrRB1>e3GPD3_tQ7{*Z!BivrPr1==y)k1&1Jw;s3Op>NGATQ_ zqG5&9)NttS#1GG^pqDZKTD|r~c};rotkEkclBl>E7R&#o?OoubD)0RNNoGhUBya{8 zAZnBWrWzz_6jU&P;g&>HNQ}(bia=XSDO$xahj>9qoJ1UtY3=@MFT2~V-L~7yZnyR( zXsabe32GIUUaam~w5>gHyx&3 zIpgl*?)A&TU_+a%R-3Hr=9rC26|})Wc|!GKro&`%isImIjM&rKZZ467`Xa#R4WT43 z*r_G7e7Mp5sbf?;IVz;b`|Mp&>@)4S`E0yC(LCOm}2)hk9M+V5O<<{*}mX%`Zdvi6@=b5lAdZl(hOINb)13Z z_VaC~M>^*@yHJy)QNuBC)E7uLq$W0S*dH{H9!ew(L$b!e8=fgwb|d*h8pYHA*T5lM|V{kCsNa{x3V z&JTCcvh1gwRkCcXwzeJUY7RRMW$r$RVAhFFfvH-PSzpw(J}g@Z>=?S1gfo{$c|R*t z*t;Mks@W+Xnln-UU!~9zjNZN2h#6b#wLHIPvh=Cr<6(rAQ=Ey;6T!!v(Bp&Of-|jc zD;_7+h+3t!H1W^OIIIPrhHC)gR$7W)jR#{S6+Oy^R74!ZB!@r~SHLz_XUh+grw#M$ zZ*%1kvTiP50i=!-kHN|f;>Tn2dGLeJIGaP=ugduq(i_(16O^Y7WO$-bs?Myb?84zQ zajq&A=pbjgwkAOv`D>=*UBi&i1Q(DgkS+POcrmS}u4TdQzCxg13@f45laPxT@_8&n zH!Iy6>zeb`;4_0|MbY`C`(xJD$My9k@mXCrkJMOq&3S;bVwn4J0-LzbT6fin93aA&IH*6Au`$vW>MYg$zWwPPY(Qi@@_dBw?O7Wf4I%6<{xe~E zbW1y{-ShP{#qyt~@uaP0{!sxGB&~kCwP-u}v5=7XL&mBO)=adGGa%8`n^`>Hnc$H? z?`y$V+t9T;!J~zQ92>z45v?nJr9}Zm=<%ukg4C(${-V@mLt4LUNdFLrL~IU)?C>g6 zBW6%C^d$6@DXG0%ML{Br87vCXxLstzQ`5Q+Q>E$t4^l8T-UB53;V}7P z_DRT7t!>B2IwZbWZFRn`_5h7=My2+c;l8z`Dw^CQpk=2YhN7Ab2uLH-t9#qNOnzX( zfcw=W$ii3;>FwrKN)(%psVe7#@}`0Hy9)5rE*EodcUsa+ZXb!FANk zFK;Pz9(Nxo0<5tII|sJ>Rh@#4xXU>I;Su-wPH>!r`gg_ui#~w<&2fzh|26bhHzsUX zNZXPArRFSe|1 z^tVkLu@y>YmdwoDT;021j>e*Q!7LTsi0OlSivS2v3o{GR4~k!W$Z3_J)>#SHA0f`~ zDPXs@n~DOsrd9@<)ph8Wg5ya!+dBt%T6ya_NbkSk;49rKCbNDs%g=` z9A;xc!pjLx9`?YPw^F>L!IVVjA?FPWI&y3jWWHd@{FFkSXG9MG;G<9Evm&Wi&0b4b z+gihbpVWBFj#3dZ+@-)gJH6?NP`LHFgHTOv0ecMu%$30dPV}8&MO^6HH?pIHJDh0G za2Y2{9Vg}r2yMzeq;em#Pfl;@q1*|J(;tkvHDYZ`y%UDC`R+=M>{UG+$30^Qrd{T* z?tFLyem966p{wBDj04U+8ZxJ|jlb-LxU(vX+i#3tMa?~T@p8k(j)@_J15G1SJ{MJw zWSfhXn`(6_uW2gZFpg<*%AW2bKoN^k3o(0=d&YeTN%bgUXL)uc%*`G_dW?w{hPoDp zdxJt1nTx~IVO@5Nl<8qlB(sYDND{4%W>U>cC}SmHp^8$I1>n?|Pp^;8y_YYyL>`QC zarU?izv$IOoZUj_dQl`;A(l6!#xBUG)6x`j3er1+!uRiXzgp-KU@q(Fkv985JbF)}-fbfaLo(lIm*qx9o5KP(@m48KR_r z-NE00eYqlzRzqUQosdBt->^Rvaa@HrmfUsuKx-uPV`X(egt+PIRJO+D?oWQJg%$z% zMH|<}%*V?I#?R5Ww19w{s;SGgt+82Zu|}wO|9pq%razT2?F~NG)K#{Dh3g*PEbb+? zCR4ScYiU8|i>7D0wB&l$_G`US!kN$0%G|?b9*jS>)27A&TR57mO+9EF7>_K%@R!2M zW#V2F?%9T64wG+PvqJLyM3mZQ&Q%4S)T}Ds5N6ePh5ncw)tp3`AtWa$vj8VBn8A0jLlN5&xBsX@YTmIY*SxjiOqOB=R)%LTZ*;3~ z4F-bmfK>@d@tT>s=}(c;M5*qHq#4SR2}K1w6;R5M$X-6@j5RjlloIjeIPJeC1hT2e z=u3D*?X9^&b5_fo5sJ~->+E(1eo&}oa5^GD+F$eDhU>XhHj=qAxXbjZ(!GYI6r^+X zX<>FdY*lb!_9y8N20%=Bgqc3Qx8ZC)i8VL!k$csqT$kQ!F#r&`1c}q%SRUM^ZY?C; z@7BkAsLrS{+{K^=GvVY_z(V7$0~Zz$>ML@>1{sI#QEfLC7T7K(K_w%zF9|*WmlHOy zE?6?s=zaCQZzH%aFuka|KO{Ae`yS*3?G*vjbz?-14q`P>D^f7HeY7E~5xjLEc*|BJ zTn(|Ju&w6QncQ1*H0boAb%9)&-=a*)L!6iF&W0O})D14Cq*)cp%uUxz{xBTkt9@ed z!}+aCs&%XowXQMZT!a-k0>K9$MkNq@hHs)yS(k)@mvy`0CaepvBF#6c6_X4z0#t*O{h8mgUUSN?~f z2~x_Xdx3=2SaiY&!An4C`h^1BlBviBek3ZDM;2^$l)%U3zuwZs}v0Tds#Xxu4HO_^eyz43H6!r`g3L@`P zADqQzLIjVA1IT$lCEl!z^Acj0>FD|C>X(_03V%ArLLo~0%2-N`Cx5P$SFQ5H1ey7e zLa_aATZ5bA0v&BI}%*Bp)ZyGD7~XZ z(65-hub>WMAyqqXIJ>ZQ?|wbp{YE7H*DYAU3%{_G@G9sEy+<{Hn%%8eI8Pcc*1az? zoRKAaU*7xYsn0J>owYPIG5toNJ%gsl4n7OMnHnkGn~Bi$!8dEBM%I+>T{HOdz_U{# zBlq56JeYAPDwR+L!s2%X)G{luN&B;$L#c>>V0HFWKfouZA@%H!YFG#_^H$yK<);=J z%n~!lPFJ|4hW`gTc|@gQ{~{^b-b5M&S7L6T81`!obaeL1p)EWc5uUv%JN-aUn1F@Zc-uWgqJu!0{d!*B;aharlWb2xJf6*V3`vwT zh8d*um}PMj9bCcHV%wOO>ZG;x%Oe=pYngs{raV5W+S+=ZQiRCf?(RFW`;8L`m7adZ zLMe38v$&qNzg)F{M=7yc+IPM;aNfInUroP^au}cY^ee?5GfA%$j!=s8)Lu8e&w`gs z_g`pjEvHn%*MIGk1(AVx=Nv9I;Cid$Zvb_sw~}d@Nv&~VRBPLL%i&n8Z6^iKPKuX1 zA<^8#lAZ$-SnG~r5b4AmKr28u*oRq1@CX3ZaIvPZl1tImsFAQ)x1Y=heP5#Cb>py=#u*S(3$Ik{AO4008Y*7)_}Kz6+KFncuv0Lz5;5;S|oX7;kQhhjJK(wntUFiYXo zR#Vw(-mW=DW&V1tg0QHj^2#I&wkcRmY_HEFJ9IXNv^?LedC|IE9?ps2hrs=NZU_dZ zzX)8ad9hV{+blt|4LT2zshKP-WFbQ?F*n)2)y&D%Ed_l{nLpv#6Oh|w2Ns<<(6);v z4A>)d2_z`zbjl$PbA0CX7n|WG<~6#fn39n!`fD9&`GIa$*A|L8(2Zr%M%BT*n+27X zu*aAgePo=Ll5c37LM^N9iN35p;Xb<&QD@$4u`VVJHZ?VNjdj+D?JSv=6W_L0jM%}Q z`>?)9hK4?Jzj5>%B9Jp7q0|e6NU}OFWO&yMWzWG4u7>_=av$;yTOnQys?XoyAI<&6 zT<+9OnX~c-hoO!$K=zu0MFIFjd!;7IzQP!<8|`xy6H=LIaxcx5V4sqmtqIeY#PB-X z|8Sb})x2eYO!NB>*AJgxvNF{CH6N0(u}K)J%H2x1CuptAih{@w`2Ch&{i=e<{roDf zDu~SDx0K({_}#g(AaVoOE`C>YKasr8a6N^*HT>@3chzc)#`yh|-)sCP1Aqesg%k9T zLuyA%C@P*14wsBHFG|Zsnd|7$qb=P;#!Q$ncHB7gZbH<%Oqeh}hlGT#E8ybB(eQ{) z_^fb$a-HcWT&A$Bn3Jdxmk9dB!R&4W(1LZ2Y;}C2Y-cKYcR4T&vO|;5174NAQ_w!4 z*(Cc}zGNc9m_>{lqu{92vrrBdD^9@R$dQy!3_!$Xi2fXOm7rqVbJyuD#e8hv7+ z^QJkrvu}j~4XAGmF(*A_6x#^+WmLOQ|Cz&IND6DXMG*9r=qW<*Bl~JTco)ubN~1)trU*nOnHjn zVL~((f_K31Ea#wjhF7*YyBbm_H>Ad3;hG|D0kPP{rAD$MHX&^y`2XqV{)qD@pQAv! z;k+qsF;dfeoZZu(gx8QcWrb&-YmeW1n32u-%UlUvfQ3fS z-dFQpcE37__g92|C&I+fpc05M_NuYQT9tmeVCD43ufjK7)*YlpJqBcbnS1%89s?ra zP$o?hn-c()^2FfAjv<^nN4PHVKJHu?Dzsk1bR%|Q%#6&*DM*gkM>4TrKl`p>{%7nk z?(pRVbJ!BX^kr5gTR2<861DEx>6!68E=PIZa2967GY+Fy`CBh_F>5fBFg{IGT zE-LFvgu4eq?lZ8+yf4=>jL8sU4Fc>;flN`*b;}0AjeX8+GsAP>n@>gzx=eE;?pRP8 zpT~g2nF5o;|7y7ZvGdlQOF{>_BdN+e<;B_`5030E3*WH-57=33>{6#7Qkx*Au{nE?T06ZrvM)dOukiD8erCX zqIB##!qe)IeIWQKBm7FlIEG;5B=Yw-X;gkVxa56wO8wK8MyKN!RfecL@8d!LGJ20!$Cf3>~nMvSTG`ar{2@G+GsiN<4C?zACMq`giR}u{~&^as2910st3G7nIxXm0r zg)m|T`**ml=5b9Xg{)%9rseJ<)CYPo_&e8EU330>HWI=2GoFx+Vf1MJ|`!j2Vu z%a?!Uw}@QE4B#!p*hzpJ_VufITzDJ2`as)e1i08w;`tmZDS&wt6g@vb7b0D}bB&3{ z1{jw}!BK8_%%3>szT22AW4p0m^Iza#x!X|W!RliV#xZgF;OaKMA|CFS-49UXJZCw+ z1WutgD61yg*yODc1_hDK43E0;TE0)KKIVB2keq|>`^DUPNu6gE(#i{+XTaA|Xz$76 zI^Ec79M@Iw(Vz#oUvGG+$uwkaNiFQI0-L&g*`YNb(}k3OK?)rsELE9 zTJ{ynK~!dRyPp*+zE~zyVT5<+XdF&b*19*~D`!izB)z2!!u@=cxx5{@Q=st9`pBFX zdt}>|F`uzIWVJNsb5`ega`5K!R;NyEhH9YfXZnJVQ!YvNpqyt zgA2gf&R9+P(GD_`2KDjB)^iT)Y3%s^GJLlkSm!_Qo)by=Ll`qndG|>D4al$7n2^5<(i_2QtR{+Mu4Y)C6-4 zVTylsysW@k><_8;#V#`$`Cl=JnaI!pmaj^O3!GhMIM-f>bY8Nzk3XEJQV>8f`h*dI zz-?2K@{4kJf0ZUL9WtcvcN2f(4Qo*tXO&P-rXlRP$w6leg<|U&+&KCnEqrIs-oK__ z4-*^bb@2+2dg2JW@be>nl~Em3zONy1_826Tek8JYUjs^&gHHz!PwnT7Zl`zpPQsP+ zJH2Z%*B{QTdf!QKTtqx$-MIvW6wKTl$8&F2{fLowEDNonRpo0k%ZhSo{IlYYGMf$@##WjXLf znJ{9CN;Ak~0R8>I_$tyAq$0)|VA~ToI@#=A(<;0cq5dW+1DoYTcl1L7E05n8<+>TN|82?VGAJ#xm z#|#A+5)2NTZDmw4p*Fi1KN8erqTtLmuSvWLH_vzh*i8|Sr5g3jikyYLgN$|#<^jgL zg+G`$__}ECN9=Vj=?$g3gXx#v5B|~GcF94NWUEHQ@nX#J?9xuy+?(o(YF$j!0HssEBga5{9gp1HNmJs(1jJ-~>< z6IdPRD6g0*=(s^NdmrrTVyIn6xf~%k%_HQdX2)2rJG9g$#{)`&UF)6^)6xo8?z2`w1j40(}wZggmwqt2YpKpqtaB{v1?@ z@sjkBpw%ft2a4@k3N{vu56oh{ki5N`D~B(Dq&99~)7MA)mA=R=_iKrvjc(vg`M~%~ zm@T<5YO39amlzM!%^nZZP?WjCvo#dKyb5e1p<|?{Yhk2uZ7+Z;>2BR_Ky7qwEj1z! z%8MuG$!W@y>0J@8vmleG<3fD=1G(raOGP`&d5*?hguRPe;w_f~S&(_lrS2zYxl|u_ zxvU&qFIQzgQO=o7YhMF8CEbV69_5y{xf<9-{40ha{Ya=6o=K5Thq9RTq%$u)aP@|Z zSZopJ58W?^g1^r!kWB|C&CJ5;KC@s>SA8hBqc^lm-*Yk>x{Jq{u&3s&$t;=YJ!LjM zHLq(~!K%z?qAp#CG7lEVoqNhr0N(63NT1ma*#9=Vm!262e7uJvH?HacC4Ve-nID zC@nAHmqy`P*_|qqk32yu>)-|LI{@fI#ir-2AVu{`=SjV0*#2Joc6j+z0YRQdQOmr5 zy*GcffAgF6*KTAEhAfj)JPFISab@#j9st2|8nPtqWVp5pNMF7BGN$IdD(Cj1kxao| z@h|g5`jLv2SlJeTLg!AXV4;-I1BRo#F;r=v*yvtkjzEPWOO<+I{zA@fXqm^z80MU| z84WREZ!5q}`muscLo9D`uuSA1r#?qTa#YJep(4F!AmPRZL$G$om$CmsdjjXDp*NSGl*$a(`w%j+&2C8m&m?M##_2p=tKG zgnLhJNvtDk-uG$Sx@igbUcZe)yUUMfh_LpIavGNIA8l=w-Gq7(G4vE_#r_+OTJbq9 z?Mq{%7G~?cn}X~-0LKH6vW!}`hWiho$8~=e_f1%?=zc0*dZ^tv{bEL49C#iKa82)K zUB{E|Yo{v{?EYX2Hr|CK@kg|_ zw&`X|Xs+Fobf?f0UnHD#A3e=L;Oc?aD)*)?R#t!eQ{*jVo@TYb!Cj+NSmDgsW-kcY zO@Ffcr66&(sSX*%7$>mz)l6eZwr~RP_%a6e9v=2$-Q1-6)CnxWRV=`yyMbG?AB=l5 z+aS4?85M$I1^nAAjdB^M3vCYF^6Qa-!bYoeA<4wQou(AoR2mr!Et88)Ip8s1=AR`S zAS1TtR_9DD5o~R&&J)bH)!w(1IoF<@a3}NVgMf`OQyRDO^r$PgQJK&wmFLO%PWG?RxBlU@a0jn|}mo{GdoGQ6v1Pa^x z_}d5%>&5hlN!o|ZjmP+Wx?W}E>us?0#4WCR0KkNwXE&(5%AIk$nuruCRHY4bb)^{x z9&fcei$Scqv#S#B#Uv17*m;ssk`yU3XSW_1rQOEg1(NkqPwTht)`UA3(#9a-SC|wT zW^LldT8$v%!!7Xj4#40LeC^=L>4@LWMX34b@vm_=;{}W@7=$D=NjVLfCfdYPBJy;m zMTa9^8jG<~SZKDiy`i5zg+d-;M*Sy$EQ{^1U< zLE?f?STOg?@6_;z%>qHbzO)MKF{XY|Uzn&#;CUu>CKkJrhw@3=MImOoOt)QMq}aQm zJ|!R#5WFI^kTI&#$k`1E_pVdTy!Jf;U`n`~y(cq>oxkPFgnLc?E3K)7dxiJvA$H7|Qe#?R^&yDU-fmU>Cq*V6sB+QDV1 zv2$h8pK3|CZvhKgRM}_KYZmD(9VvkR=wS12icajdZKWaWAN z-#@j~>U@@WUK#HX2yan>D1@Z@V*pC`zOi&}2325H6yWOT_-}H|9h2Dl>()h9$6Nr) z+@GHP=`XZSPDSQ^A@+l-Qzdgx`pZvSQps#90l{A}il}hk_w`ZLp%q`ZKgrvD>{~WP z-#_SW?R^{HY@L#tIQN#%C0?YEDfi#_s$J85F@#QSAlqVYFa-JB+>d|$+_&v1UVA@K zp9|FIY~x&R1Dmc+x;H`TXabpQ`+}sqj>o|%O~t(BIga_ye{Z{4DP^YFtby5s-&fh= zv4+Uchux#7B;~A1y4GOMY4*pGZoqp~1lDzx_|HN4=~|-ew4__$Uk@QH8C;|3*PL?y-#Ev1)z7rHZK@tgP;^iUQEI^3n5ruVU^Lxd3@wgo(At)D zo)ne?hSvhVovPgq5S%R~wzIs?gm~*O@~lzOt5*VRRyd2RB(?u&Y=z^>>xYF^SdA$i z8^lPTd`+*_@wB!Kn2A6{G07|T(4a+6&1CiDVh`aE3#)=8;mtK2g? z`S@DQ$7sCF2qn3X2D7;l$*8Lpq7t~^!5i*tpf(wqEHG@Vk?$0=*`d-`v+@ZpY_mtB zCWkP4l=`8u-OIW{rIP7X53H|ptJ7L2oWIsLf@0Wto%hj7Lj+-a@-)kd*sznGjj`@G zLRhgeV&|AdMKd`h5h}3`V%9_5o^f`+0C~)+-|0M~8l|13#^*W@SRI`z${eT`<6O_% zd}Eo)%a9~gxj(#(KD*9Sw8S@(^fXc*hOGMinrM8PteRaswEvmr1-ot!Kb#c}+LzGGGOGv$yG0ZJ?}BA1T&Ax@u{y#OtgKU4(6 zAMo_iNwzw_#QWSt|EZ6WrlCQ5Gh-h^3Lg#-6iSnlE4Aa-D(6Y9rO4BwY9iS8eM9dM z$eM61$WZV+9!QltI}g4joZ0zo>kZD+EnzQU=Z4P^rPAmQEcL^}?sQ{V&D=jw`p5Ra z@^P^AzZo70Tq}dw%a*f!VjBO`+bLJ8Kt0v|lbvrT!VM@>ryJTd+G9x2O9OoKwAN%$(UMFE?kgy z7p40nt)GFJd9KqiGr!_u#NpY=+gaOz?1^SkWyfs~>#1yeM3)gpUw-G|e=2&z&9f5jr@b_veyJl3R=oYjaR1L=!C>h;o*ChXr>JG&KIjOj`nI5m z?idvI1Ud|J#V(P9eNC#^)NU_gxiscU#Mcv54-y<<`LT71#$d@e8^k2ZqxcQ*Pq;Hm z3_UMu-zD;R`jH4EJsuwrQ(`Z;odsj|9`kwd(Lfs%=F~yrx_>jR159+GX9}zr)_5*6 zrtjZ*a1tIv5FDAOR$Fa{4YmKL>?*M9) zQ*uTm{LDbAi7%suvcE-{;Oh1wwll{&1jo>pD9|M$%d1eEP%vLd*EkmurM)4{z4TsT z-Ww5Lj@b7+&LhqKGjN1Z+*R&1H)={GWv;U867D}MYMcoOAj(c%gmd=uGOI#pBl0T4;eJO@IZISzM$i=n~ERet3Y~(Am%Y$GTsMV6HGR_*VMx)mHj$^3B+R;6h$SYclia5K|N3(hV~+ zpPSVil2Ah2PjJT?XHhTOg8B2jr_ANO^CWvOR>bbl#+aJ-on@k{qnTylj|JK+v{|vt zvPx%JJhQASC!||@4>*b-@VC=OL+wZeM5Knm+V7EIpujbHGU|s`473^QK~P|B+F$!; zG7RB2iG!Su_;jHJusS3?n7oo(bE zGzbpbQ4vMPe=U6zy2(W^YGA-y4eZ>1B&&>{!v}Y=69cI9z{8$6gZ5EkMLP+>Hmp8| z3{fIL-b><_)1!zHOSU0~?CVseyy1L~hEVoqBJ?8AG@fPeauzEcCa}=R*_X!~JW(tb zRNec6Ca{m>tey+n1KjDn_L`@yt*3BLEyjUMP=zP>QUg5cX9LvfFfm!Z zq-jE*q6GuUj@+=*$65hlGCy$LB-XM@nD1FRggMhgm@V{R1;ektt>$_KYoLKP31MEM zYu^hVzh7hDlyoOimcQDp&aZh1w*vd)gbJ#M|5sI}F}TLfc#PO0USr%=4l*CuK!`*4 z8wMun$oubWnH%?bklC&ah0L@wde+^_`Dv^^BUDYgzu|UWP11ctuTIbdB8_6mF@Ia3 z4-ndk4Ajp_Z^Km>$NVX)q0Bav=&-h@M8mk zf%i4LDCR6+#S4IFz{)~_m8O}!^JfWKYd(1)Zunsge0CBI%CH2N_%nAo#2(b>My3;>??+O+%M@J4aoV6L-kHCFwW;Ul)3Sgsb0FhwU>$q1Tm<* zp_3fF1v~it+yPQImpGx$)o){UGWkH;OPF03G}^^$Uqh>p8OnYxQV&jR#+cxdvc|P8 z6qms0+g^=m92!^&f($u*2eLC9gF7V!yqw=dmhEj$f zHapzYpF#;x2E-GFHQ+Rhc7~nBoc%A1VtnWz`qZ;s0iJ2w3a*JX38asV zw6?BhnpFY8EO99}@PZi8fB8qk3vUixXkQNhOPOZ*CEONmE5nFfV0BK{m#$?d+Vnl) z{Q7qAy6+^12Xt}Ep8DATfm&%IA^ zdBui4U=t*$w?4$61v15bLd>3#`QR&^_f2UAu29--DlO=j_OZdzQYV_yQsa*LdK_Qp zR}fV9HitIZlN0XwDoP=a)v)JBntl-sAyQJ@H&(3w=Fm!IizwR&KikiSvYlPrmjw!w z?Nntm{C$z1?XID0lZ*QV)x~EOX++L~|JKwN`&mD!ti=e19*OwlKq#Ry>&x94t8Y1Q zYHqRr)gAd?O+WTm_vouhqMXIS&(YjA=`+b*)ysDoXAS?BPzh1`Kqw{l394LG`n6mC ztTKcTo#MRLat&vKdV~)9=c(X+27j>NfBGL3{7n^nn+m43nqt2`zu5(Wia1=vtZ_QOPBK$Q zW>Ks-=D)D+{TfPGv;#}Y6>*BKACsJshfbuXK4jhg5JpzwrhXw~tNydB&UUsh{b#1~ z3x1cke!;{%%@uqf)%gW`&#$ezQJl-zkfzX;pF#J>Q)BPoOnNv(K zY({?;m9uuAJ@^(6(@jf0X4~MSVXfHG;3!I~%b zJ*?mXUdIxu8dR9I>Zl!xOy5yoN&K~fXfhb$aA=Dy$7F5ev`gZ5cxd6FZ25) zznA$neYGI+;MWQwCw{#k@@am8)M204+p^X(4T1((%$#t!j-h}8097U3LbatH_M!rP zQ60qhu}nmAXJ>rGcqH|T7~;VDE3f2S;T$dTCNY#uyOZu;xD}Ey_9*bF<%Z@=-fb4s zl~$*8dI|RpFg2@*fyT$h-3QVz79G>TQN&w);qXrJZ;o!$9OusZ*V>{xOencu;6e*T18=Jk*dJ;}%q$mW=Ea9-pH z`}65r2nq68-|8QmJi_r*xr;yJ^)w2BaIqiCVPtB4S_j~<%p^`uaGq7uupEvoK_+CmgI4UV34;nJ6<0%LsJpR?r|?LtuGe&-iAyjAv#C`lS&1 zf{L((6wEof*?o)YhPa3lL*^B>7-oczlz}RW2!@vK-;DdMyJslJBjh+ZfgC1vvVB^! z`;(#6e~AeVx-Bbqb9X zzSKU2xs_k1ncJw^%Jj}Plc+Xx{-U2{VcD=OC+1}-B38ai@w1o}a@dTnifBJ%EdMTX z7D9uv8uxiAo;{!+k40%g(lq}}n@6p`szQmnv+_!F5NVXI^gtK4VV`Zp%|t8;;UcLu z+y2@nR^X64N#bFtOC+0?*TP*~0S&0%?x2)}yMlVKm!+!qLq^ydZa*}QvDwTCVP=fR zNUkXjqNlE2FEwx6o?-T{fLJN=9^jb?^vVRv6zN8^2E3A@fKd|EsIfW~G>N0vcWKBG>W;fQuL}pr0?kp)ESTIW#%Z0L7 z<^@K^E9@s$B9RL9{g5hit;0Wn9wISG#GKIzLk(kB#;JZ^@iwPn{LJC1Fn-kbQ4{E^ zD2y5OnAJ9W+rY-yz{U!3sS6hr0vKw$Hb)6!OGF`neC=vjmpT*)6;AOgBA|8;uBxZ4 zZQUzVBerYB4e@GfrD@-~m@LwJ>t>P6We$G>yXuzlYv5$C%HBG3c}j@u;!f+;l140m z$f1IlF<$1{K4e7wZ6nzTB>RH5%9+m6%!Ahyowp#WNlSI80-G_uYJ#G zvsZKZyT;>rv*q`AKJg(T@3ZISC1FlJXv_X(66v=H-!S&e&yck=J?|`?djEAENOFpD zt?MwZibVfP=}ufC~I|yP}QnC%+;*A z?GosjKH*OS0GN+B6tLj=ZhXi4%ETUZ4|)&e9hlD6I`umRkrICY{M~}c54py8SIGU| ze=CU0=edvjW&Bq1{0pAXAw4k4|5s30P*9kA7`he&L!(BFDhio5#iPPQDWgV}j4aK6 z{9oUf4T1AP|L`)M?<#w$B!4NtoIJ_jI(gjT?6$GO zePyAM_Q}Gjytl4QRH`sHhnQ`b6w>(15+}-*a%1o<8HKb>;(@wFG5a@b#i6d%7sOZ1 z8ngu^M1fRL}kqq4rUaqBe%G^YUB2P1Ue9B22|NqG?}yjR^oM0gS`Bnz1@0xzGu8Y1bCv+ z?EEhK+26xv5nua;qV%EhSm+UizpkunzGYIKZXUJ^vzf=~OCsHef@{lg6`9|3nR{tF z12jM*67Hw^AZ)%|YACP++Gn+XwPdLjray1q&-~9SN{mts!Neu}<{u1I2 zQHal*R~L8-!RP2~td%)%B|LY|KYU?>J@L-EWpj!*oMzp>`_4sYH{7x4?2A6ETb7+T z_q07XTx)fHivq}jFRM8&ep$kO-5Yw!ud){;+!wt^%GM;qX4Z*o@g0N0o?{Sa*Dp)l zaY=Q9d!Ls(TcTIH7F9QR7DP*-SG*JsZ8)S&pPDSP%bdSGd-E)NEd3v>Na;3#Z;cs) z^xcMn_Bp?Yc@~klhHKvVVU56~h@q#Q`uN;H zEn%ilPjt-;aBf6v#XxJNTm2B7O~xSn?v!-BmGiVKIAwaEJ|-G{6tE=e&OzPh&8+v= z*OdS%43029enYrrv*A}lv*%eIds#Pvr>CGH@0bd~lRmP7*s? zuB1n9w6+SkSob^c{#e9Y*KRJqEY`f_bSc*D7g0D8i%ASc8VikuJep%ivoHKo04Dp} zUkWm2pZp~f_CR*mF9lGuzy2kgJ&@i0%ae5Z$&44|FP_(+e317G!>jlp4@*)lrW`>R z#(a0j(+UmwTy_VxwcHWfl!u?8)$wpd-;?A&kd{UYa&IBcq@HxPI!9LLSG6R+s&J~A z(3#}j@pMI#nP z&gWT%iuiZ02&S~NTH^nq2^`9^)ytC}m|}CzaE_z7;ar2%fc)FV$4gd%!mPlaMun@a zhrt0JcJrY<$!qTw{u0DNzK3pf-D&X4Tv}m~^zMye9ebc0*jrQ^V9l6TUA)oZ7tZ% z08|jNt-gEjUy0I1ITe?tk8DY8(qIfW=WhF2Ots1nFx~~k_0-Wf_E?PBb_IKCc2dow z!S@b6J#~N0^LC{34aKkP7FoPLQ=FaCwPb+!`c8Ln@6=u0FNcFqo2cZK6x~+Z-DfPk z?&UP|Vx3MFoVr_@$4Kx!=lO%boBE!4C&dC2rqOES^j^hh+-RmUTNHeUjuGc(3x_FN zoo8#)Fuh$#9TWvd-1{MV(?Ss#DzY*+yH8}O{Osl~rF#SD7?1JE9 zrh7kPArJm~@&~x^+9@%Z$R`mUNi>phn;)efgV=o5Jl%f_>wymYCcA>F&gL=%#wT!I zAST)+!vb75{hzqH@!$^MrzFv>wtQ(Iy6x_ z+m_&N)>KA2$|bfqbg38$npAD9VME!|1`GRw3d8iy90iVwDU4hg8ko}+R2)>!E#_dm zG6nFr8$3Jz`37$q%U7H|dwj~{-9J&iiNeviHs?!N%_#Z)!E1Mc2c&VY(7Rei=@`lv z9vn?CzPx8j5cW+8dOQ-oKyDskdyKIr7+7EFzI=`WXFZ->0WY5MU*w}la~_4EPB{Oh zvbT1Q`sIGsSR{rR-GW4_*uCOeqy;0~$-kp%ORHfTFh~mHxLnf^#R6dmee@{Q9WUl) zeW(gAo>lv6_p)FQ|X?T`Va&u4<4dja!w@X z%#40!N$7!EK65r#b^Sd4eeT+Ozs6tlr5vc2ax|~gNRtTeK5apCpanT^*}&7yT4V3kHu*0X|pCPS80dYcovG1bDR|x2pAwQv|C}{yM8xV4PZY zLf21KuwwVic;E9c2~08|6VJQ(kTv8kcLD^$k1D$QlK@6`Kf?sL;qdfv82e#x`M-}3 zg{t7CD$06JL+HgLEhHj%4Ar8 zIZ>uZR6_P`!w!8}N}aoYz3JCAD$pGkr>YTEEpy}_AylnUw>r^T5y@nh(h)Z|QH1L^zOc=B93S1=(z z;OBi-=Vack)1eE5H<-JPiSJ+yF!Ah}qvrm4Y&r?4=j;&;W7dqj>8F(LW|t^v_q49Y z(VR~8IbI!S@tjEkwX5c&|c=$U*d3J%7XXf#d8Yn+5`31wb>Uqm%W>QmC)oU zB}%tc;R^88C?jZKst1V*k(|#cOz$h`-KuivX&|#TLLN`oTiLU&gm^>ALRsXci3eif zALrH@m^WYt=r(7f0XdWID9if zgPQ;c@9g1d^S|7u+`G5`ALf!wX4}-K)?`}OyFVb83LHm)*>QrB6Hhj^$YV0YONLhT z;l7Y_-v83$FkdGUgT6}@a>kKVP>SnN;aX7bclWepYZ;j z|98*@Od4{R$^+ zoaLI5tfM$%9CLq+?p#Q*Y!KbZ2^T=tQsk6teZMmd&b8Sm-0ee_qY|*)&X1HBvp-`{ zsP7Cp7)|h_UqQPKPN877TXs@GV4c~(Oc4N>&`d1R^UkNCm&=>pc>l6J)PbnU(nb=U zyMp7SJg6iFChd;K5WIDYR)hQ8g)EEbhDDO>d@KmSQuKB&KGYdz*+VZ~@7{dH!}6zHKaZ+s2z`Y~}p zC_j$TyFonlptNNv?39JOTim-z#=3)mKCF<)#t)6<}<)Sz)O15Z_#!CoFBoni`55J>h$jG>w3zRCV@k`c!1VEt;d z6{ynM)LS9ijfW*C8Ido!- z=vUxX-?j8uiwNBJIV~&p7YnFCu6c0|LAhd0`sSkXc9WQr%kba8XxC64QKZ9^&EEw1P9O4 z$7uFCTgJ!t(3GW{i{W zC)sVRRevPbO-Q-}ONZe$;kX=riz+^~VVXn=Y%|=F&~^d+3>au$W_616K;<*|ioN+d z$*_RsZMPH=X5deHstub6hm9HlNFrGeC$Ps&5 zZ#9e@n2~h9`R}=Y875jAW*t5!&s{RKOkn%S{Pj zZ)uBzi%x16lFXM>~TKn=|?Jg!r2u+P~$z8?v6BZ;;s{E-+4Dhk}YDg5ja&X+k+q^ zWVZY`IAhk{zm6#g_-Gn>`RCs?W3zo6n=rRXeR}yOGSVz9uik}b19Jp~>QtH2xgRb!4^~z8@QzO$37-DN)%N zT9Kxk45PvhNws?xS0|Wwm`eaM8gKuvaR;)sncdo=W5)@ZJcti=9y3Ggm7~JV#q3kO z^X-n8A11S6`mQE93@vwmQ9}!$8BL?4FvLQ2pXKb{`wCOLIFL8Dw@f8xsk1zwsbwIm zyy>EoSh_N4SCY=d9OhTx1~J(wes-)~y}Tyh4Dzu*vL#@wJ??woM*Mcv6jdbMFPvsF ztz6}W9A&%(HJ!Hwch3{+@gpJfBC+Or#fufw^aV$3_-0Pzf6F;6IoA2wLa!^o=Ce#E zMVp}N9_bA2RjgugrhQC#>Xc__7p?Mk5$DAA7JRrRz*_M4&r$8^;#jGeYdJd&MarYt$4ngwRUXYMx1$#o0qKjWN!B=$h)Qf-sXkSa@4f*y4( z?q#Ea97_#&y~;nVkXCEB#d>+HgFjaFiGgz(btcWms*`CQ0dnX%K~E;y1&Mz$lBIiWXAN_d(}*ZRrh29t)ep-(`1YLRq}bE ztk;#WCByFRUS-sme(my{G43K_gIp3{EsOHiKG!I1_G+K%m*gPfoV`wNmj}M{_ek4H zszb8EE}uEbc+Y}??Wz;3tK}Dm4k>Hw<$*#athjtESNDsq^vj`@cm{rwZqJ;3MToN~ z!2+wUq-Bj5%U;R|rysezr-^t0&!FjHqH}gB70qCl|E3(?4dy@D&yPy)lK2&?6boad z|4PDz&G=#DR+4wk(O)=fas~p;Bp#q0@d&Vlgv;&^&oclFzd4<{Xh$SR5N{(+WjJr+ z$MZB9hLP}MZ{n~wlrFC2T#(M(HU_}jdOEkfF8_g)f>!5AJhEObab7`^OO?Dl!hZS- z7MK8J4QN~+I9{y#LUL7}Mjl@0chD_VhRe zbX~|w?x30~2DO@N%zVw>4d%nrkO|xYo74??<#v{0k}5?4z9>fPaiH!P4UFqwq@{5 zC#5TA*4nO}YHp>dkkSp)e@-!G7u;Q8Iz0s>tgq?6hGHCM4Zo)(!(91k{7nJ^l_{|-M^;!QYtK%(mgO&?^oHuB>z!L!{bS4$` zboZ4VBo5yQ#O&;i(%nu^`mu4N0to1=ZJc>C+QVhbz-h^rz9&=?<_9BxDT+dkkfo8; zWwY;`?$SbmKX~CaJaWJ@cPo^zI7I7tSjNK)qYI_G%hdD-=p*$k2(78<-VhrOY(AqY^c>;MP9iizo zpZVnZURv1w(umUC-u7_c!*)DVl-?B@V8_8T$%uin(;tky^-AL8*dw}@hq5PfuDr%K z{Xvnn=xMZqp2m&Xa{^5j*j1G7ZGW7u(3b|>=(GpdZx?q*)ldSoda!$f}1`hqGpuhG> z*d-k=9`LY0moXb|zi*(GLtw6rS1xz|U?f}G(w$-*ksnt61K@t~S-z{SkDO0Ym|7osQd+p(IJ3%+?&bCJQ7r0H|JL}D8n0nG%!XfBWwlI$SsVi_b3ZyOrN>m^Vg3Bu~ zg3A2|pFinYC$IqWA+TQug4fpUv=I*%KiJ6zv$ib@VH#PNTON`QEN$`l87&W)M52Y+ zE?x$IIOx;nIR?(4&tf?c1C=2xH*ln4kj9Ic!xQ7UuVQc{tbw{sVKoE(Ifctu36<#& zQ9}q!F!G({T(LCBu@6S`5KD~(2=I}S5La8B?`X9EjxG)0VVSu!#0N}8Jo_oHxY877 zQY*yghehm%4~wyPJGw-xL!LRqO6@q6H?#%3_#w#Wi>hP6Ae3y=BXu~`#&IwP2}HZI z<>143`p=WxQ)d|LR{=x85yr(iRq=?87o?AjrpO~WLCx4fyvBg+69i$TYA~BC<*OKy z-Y#o#6{1VHR>KNzD!s@1LU>fddk;Y5_L=(|a$DP$2fCJ?(*066{n&^>sN(53{)2R9 zzuLYI2oP5IpTa;ierH6O=u~E z38U_Gi9KZ{fhpLEu8RjcpRkuZPg>iWsIK6FannqTjUGhW7nqL|)#8VqAQqNZs06*0 zRBO7&+Q@a!<5qIjzA_*Pr6ba*sE6qV0473NXfvH(bI;DM=yE7w>FHk%w?E#=?f(Sg znJx`Nrs4Fy)-ngL<;+sT?4!ldvg?aPy&o+qX2&0g$juii$Gr0nkCRgZYftpJ+Uh)2 zq`4==f{XO6JCI?$_#y8nu+v428GG@Zyr0309wqbt3oQ4^BhA8u08s3zI37C#2y`KV zVvSC(Rxh0#SYJNSdWrk5m9npj0(?HOI*gnI*yIEZMGuzzFOBbFX{HT*?u)iXB&P$Z zb6H?v=l9N@>5=ZkAvgICtfRnHL+eONtQ;O`am(q2+Alpr*?^6QVS;^cSZYODlobLt zHY=#l`!1)0+V=skWCdlSGa>-<44e8X%d;$i6#0&tx$F|>qKGs9{qG0SoY%guksX-J zp8~svQGL)*@SYo{gs~p&1m%VbRdlfeYW+gcfG8%wrV|)5JZNN$Z5cX_Lrz(=8@^<^ z_rTpHTD0{o4+^hRI*k{FX8P-)SLQO1Il4Oa(}d9c8>#7jsGt|k4OGzYxS@ooflt2G zmSy7W8nP*E@M18YT!>%r1BSBYvOmcF5;= zJ9qLqeuOJVy5*3$vLygXE-OrP(A?!lZ3`kRu#4C`k?d$ge$_l~E!wH|Og^bUWmi(| zjC1;oefyKB$wH40ZtgaFl(p^J$HSD5EZg2Ew5iEE2L-<|%a%FDr&# zW@nN)rmoF+HWR*B^PGM&gke628uoECCO;!D=EDlTwfurdn4&TknJO1Td6W-L9reJd zm!~fvJfG&a?;?@!Orw#O*Sxs#v|kH28hb$c!>AB}?dR2NGPio&>+cT)>T2F;`7_?( zTAjjz2&z8$7MS}HE$5zf6FI*N^HHX^PH7_iAG`xY;AiY zhcBGaZgaee#$P1=>*VldT-u7uF^j(1ndt2FWZZ+>rP@9h$08reedNGZPBEJ!Oo{p} ztYfOC;Bve=G9r>aRdR8RRL3MibsV1P{*IQVA1TYmXphuR0TTB%cXED!5guI(uR>>9Wi8FY6W&|A!GKi$Yzrko$5YDqruO z##Ur5QGSZgVk*D#rlwLOdldO$^h2;du^Bs-n=@7@E_ffG?y=>JZpvDcMnrzD#$wsJLy{>t3!#YS2Bva0R%XsWsU{i0|^gjms zgHP~Dxo_`U|GrV;=W4qSn2+`#N{!aGi4O!WX33N;qe*^aNKUl4@4W}G+Y-6h{x!u` zh!<4zYO>aCIvv&{3w2ze?7gLsgiQ?3cp)i6VQmna74^@nVmlCBGUAlI+BNf4Yuj}| zO5hm#6Vt*HqPrkOOI>?B`b`u{h5MXJ%&oCy=_8R1O9UDgit#AMH6h&_$%92R?UR)S z-@wp9>^Fw;WWi^pHY#~f5C?a|gly$pD)tHQuZ zp^UDX7u3AhDv{~FkZhmRhawxMWFqsO-*dnWmIfw$W8X7xrn7}LziW9~m34olGL4_~ z3;E|8d&a#G@5YYAq#3wx&ojEF5Z((qOF3*88Dri5hqQNrkE*&B|7S9jWJm^PfB{C0 z5;Z88Xj4NKoTzy*39pccBzl3MEjLZm*2XYHzy}NrflQ8L?bF`g_SSmaUi-Rz++JQ* zZiYYx!6Il?)KZMdUAOHaUm8Wy`Q5Abqbb9gNvb+`;5XE%s==)S z3qWdOr1bC5J%XZyAxw%O z{y-9HvA{LRc7ZDq1OrU9sklQH8PmlnU*Z}gy5VG4OJW+jUZv;Fg)sBv)2RPU@f_r6 zQEcae61_#t9N9e*q;3Gt*g3c(1VUZk5-n~syTs<~1I=if2p+72RT10T0Embj7{xvC zA%&6T^{;Q?;c)*>J737@tS)`yO*6WHQMOVs5z16bnZt=pZK+pfRWv~71}H20`^|ro z2M(<4JH-f#Lok^3#oyZ13(MJze_l7Ne@6eWr@01P?e8=S5ow@7Ep_B3Y?$V5#? zK+YaehniE3wpY;h>Iy012;OQ!A2U!?hCByuQe9xg1S?~EaCksrXBxGHPfsRrwseId zcut=x)_RBg&#|Wczs62el_WZ3fzX~i@{a!9&B*7Xu}>)h7JFnvW=i+V$qo@}1Bwhq zLvC8ST+I@sws3Mcz%gF&^-&gf*dbp@(UXuUNU`IL&7_qSy2X{Eq7`w@;XCBoTp_?K zDp81*{+n3L?&C+he&hqyeWf!>QQUed#AvF4yN@5LEX*u5F2kg|!x$X7=|+HzbeRwa z&E0QQ8)LntkOKmkC6%TotOS(Qf?ihJd5)rIh#poU`@gDojq+=u+qO1+j?};c!Ik18 z@5rRo{b7ZiU4mB1rSjJp`5lsfF>luev{OPmvNqGff%jECP9aHQUA_aTr{_61VTV>} zS#7}D+B7r@>DvD64^05t_3ct{v6K;#W?rW%R>b!&l4@2-axOX{7GW(Y>pVahMypEy z(yo8m0KuS)(54G01I}UQn`hRUDn5##Tt`w-k9knStv5BfUV;b=y1#3Ohkk5)CInt( zj4z<^cM%j}EjIzMQSy6~Ocj~>iA8oAMQlQ0in?Scd1~xVa-KwA9*J15Fd&#u!H=G* zooa^R4sx3!kcX~Ek26Emo^b{?dpc=}J#`Wn^SJ)QfTB zveb7rfAZiQ?{a|__0BcH_;R@>hzKwCS|U=&oddSAT)7AwdI&|WW zmYtBRE$PwVxWp9gIi-6rZZ}K_-mrTD86lNIsRAXr?U`)H$yY9Wh8^U|SD>0)tshLg zZJ+Mn3k!;t;iu2qac$A_YMo8f4!XX%M=uX4s&nrqhefuYLu41T7cOt)aQ~)W|C%f~ z=mf)iovHL7>8cVe_nt_>a8R>^)@E3PE92$uSr#|eT@SSBdlRe(Oj(O|5NB~OvDo~^D;@wQXm(gkgZrUC3M)VRw_b-G4XBkXV?r!`Uy z)wSz27Zi$9NI{Fb4Ea?m%o{6Pp;%7!0(Oh>+8o)R)HLE5<0F={R(qpyhvz3@1>~ae z-dyR1SW`Af#&qM4?~nu8hwaLSQNEmh9lQ?;ML_R-9<+Z;{p2@O6w_eea1n=bdK1d`sWh@`O2nRA@Rpwtv=4&rRk#Gx@93?p(Mq`Ikei$5? z2keR2G%15ObqZ4x%tE4(-G)`&(9ByZv5X5FaO-!MLI@^wqEB~nI8?9SbX7_NxA9$0 z07vN$q#Zc}{GHkjKV=CSngdZMH2coD!cPhqqB(dDje#f%_VFS-RN~tD2oJ4x*^GN@ z^m*i00gbQ+U5m<2w(FD^PS?)0LpSopA@<;HX_J?V*_!@i)T~&%kuY01LkORlw9Cq$ zc8HTx{XZUHl!k9c7#mTsbz`6UB~?)3S_p{J_)=5>4ZxC^CT~pzfVAI=6YHlR1lqkG zbNkOt6S0+R)31?Q9#)zMK@%E)Z@wWK0Kv`h)=${=v%;*|?+5OY1GSvtvr=y&!`#nK zW4nLyev_&MM748<2lL%V+EZ_nX6~xRD9td}qcium>pvh(?W%VQ6slo$aOW<1-Z;7| zddApl=A^co$^X9_P19eA$ce2u(D^=?hDcPzJ?#*jx`3_-i!)3_3==v(oSHE^@fJvf znQ@hA0e6K?20z7dDE{3diYqOYay`_Q>Z3VePf==@m<1+o44?XYu(35u$}Ig~%WRc0 zFqkCx``2|s3r6j!s+$a2xSMP%`}|+VucbNyt(l&pay4}7AI#9fup@%Xdh5xb$a%=z zN(ZdCrmj|RLg-Y+;=?YRO7WJ+?kYTVGI$l;`*ef;Gg!vh)7~Zw2>~v-Qcij;!H2>_ z9|zZ7WT4n=7^EgYom{g>e{n*Zc(%MP!ahLV!bYj%Uyhk_;PzoV#!?zW9S90ZGB2hm zJH}y>X=ra++28tCNL$PVo%+fv4BNy;zRfO6e^ErQS4#06kh2j&U745I1D_EKi{P}6 zTyCrDhV)m zFX}OVXx8jfdvL3G(lY*l#}4)#4UH#D?-s76t%I3hNEHv1VoH^!EI7ohqo}+3g4Cl5&;GF^i%Zm7s>?+Y z#t{_1oa#Wz)!7M-!cRTUf6Mv@Bjp%Axwfr6R~cFCsgK&v$?N?6(b-SSLu9d35idC_ z$L_OMFQ4^5OHzAW5*}Ekw`02{Y#K8QI_-(f6Q=Es%=1`RFHeRg7iFyvv>+y}l5uH@ zRGpO^D`?YT)YIzqDBBscC&pK;Fd(Ny@Z{aj>4>?I_^)g96lM+d0R+}bU~Y3|RF zBl}-awc58mgy5hQ1g5Yhu(8Id%?zv7)o%ij9zH)F1BLURKz;c9l)&xb^HT%2oQzY2 zBT#_K zjSFeX+-gU{M2B?bJ-sccVAVvD6x&JZt?oNcrt^$<4)Z#%s3)~UT-~N5NBRLWrb;HE zj2E?|`Yct=eq(dU0wa4!ZJ;?KyF+1!x_(T0<%heA1hAghEKD!(QmQZ{jRE~H0e+)N zP}RUuK|eJa`%BMiYND(m5SO5pUOelR>~?Nwh2uPFpJ(oN~p0_BfF0RtyAmurwOq$ zhMu`^kvhC!3L2{%HyI{r9rox}n54xwu!i#zkA*)raO^T!oKF(KCyd+odM&x*4^%h* z={c4b%~8@(+H2SK+6%j^njHP*v73BxnVk1^TT8nnR>UN~Z-4uTYGR5* z87h6ktaJ=`&oUNvEh}2)^~Ks9@iGNRZ#OJtek7~Qia%CaMx5Hs(aNiReQUCYA?>AV zyfPc`Ri8XQ3OXP=7>X5kP0$Xow|ae9~Xs_v3`fzN9ZRH~)OROdXj#_4p~fJO7R75=VDMHa?+}UDoR0$B|p8Qov3N zR7hP{NX#&)D|=;=SsQ+*KB2Z>n6;&kt&Ibc6fYM{$%q&@h?ZVri)%NJ#X@+4fLYy_ zk(+-aUa7!jHJYZjyiw1D{MWlHCMTnH$*#2d!H>a23Jt@9K>ZF`f$=F^Dz>kaaJw!y z^@v9T>k~qq8|D@|{+^~r{a)Xm_Hl8)8YDuBmn9<^eHIMI9QlseDLW=&)yf3j5%()d zz_C|55M5`5C^q*5Pvt*X%XN|KWGP31ga3Dxn+t%WIxO~7GP24{&Rg^zhr5j&%HX`w zVRLXiDQcy;ING~Q9POc%bZt#S#Q52(u%@{U&v{}Tj)_g@+aypdJAp7wHByVsk%$Sq zTi$6SZmwo)9^OJt9tiCb7iyo;*R%-r}k&ol4-&fnP71zpfD6FxXS6 z+Bde++l>Z&`xw+5c$m9=8l5*VYf^;G(SHvk+Gklo3fYZB-Y(>=TIA3R+#_oUn9tcI zdJtcXDQD6XA!>z|=l5B2^ADIvLVEB#U3}W^wjId-5=UC|E!`EfjH$OE_%Zy^6Uo32 zpTMu(5cSWdOS>+UdiSlF4iEyTzyTtXJw3fcOZ=NML{N80|dry_nR{o!(i!V#< zH-;ytv`39bZIK(KYGruP|79v08PnN{UJOEoWYQxI9%hO`SU5IHjplwMC8N)p8p%i0 zNRA>$rq)ao>9J2l_QzN=^;wMa=173-*LfR0;|RK2(_8k!VjA?FYIL32ZBc*ju1vvB ze2r_RiFUPV#iUH(Ua`B=DO}7JT)^%!N8=!Jo3YPz^qOJ|c6BYkQ|;6m?PQEx%U{&EzhdTUQq9iJk!SJ z!CE9(V@!K0wYMBq1)dmH;BDnIbr{^%@h!(xp7o>h>=~PfuB=`lV2*3GwG5CukqNvX zt74T#F{8=AXImXDXVv>pjjC?-*y>u-S{&dTe}m+S+W*Wj$p+>eeo)Q&8}tEHB-gAq zyOoeIPb)vE4uzR3$JVG_5%piLHk!WPHJ4?dGY6c(88Ql`2FDotg?+Z%{8!Dff7&Ty zpNKBBkC|`KytEX#LjUivRTv=c%AwQ_5C1R-s#(f<@NWtv7GJ~E5RG^4l%N+p<*B|- zSINWfOb{@n@v!^1&sp97Oxl-upIXqEpbngc zMZ4y|dE1$ySS&UnpMU8^`(r)h^F=7MhmUWNu;be|eg_mcN6NB95Mvjue)pPd;qGH3 zVv})4qkd@(%w>s#AScJ|v#N19gw@0v)+2F9_EpXvE!x&D{@b3pFp;>weoqU$uhr7> z9oQZ|_1#Ifo3lqRc(g4Jaj>X%G&YOA=X+A4ocW_@hu>*LxET=D;YV}tb-FhHtE3tR zOQ!F|;5`^p7bQhAbx{zUVBVvlwQ1I%Eqg88SZS{=$`klA8=gFIUy`>}%t7+>FUYdR zaX)rkobv#NT)`38I=?~+V~H7RFDja}aX!`wGUW2knkMJ#^d=W3w~~;TeTIgGzNvHk z=vQSxIKYZcD2iV&Bp!yuwf%QhG9Vl?+=#(6dO=g))2DhicdZjg%MR^Dc3m&LGq}eZ zybQH!R_9>wb=vfhg18SD5q8Fa!M=d|k|`Kcv?1T*Q~Tq3tj!z^;s@@CcB6PyM3_j& z^qh0fLUms|<$%|b{ZHWTrNkeRD$+v133!tXj>GZ+CyFK6M69_?On_5NtCNv_#iCiDZHGct_T1>BLMkl%ZtXy9&xE4=`3EAIu|4TUM`E$@`A5QUN)t;*HKCr% zu|f%-S?Ss&@})rya;N;sW76$?!#8x5ei3{8*aT59y0v{py`!lS_`|V9Lb2|seF+BR zY;MG!F;|;r(qqilGq+$*Fk|lWJ$4MP@KKY+Jkc9uLsjVzyBc3%`?WIYR!h4haTkHd znHa6^7I{&_t?CY^9{-$-jVF>x{14lpxbn=56b$fh`2c3}_!uR?IpNSxIJ9ZaS~dY; zKg8Q0zhyf~{1Uc(Hk{SU07z{=y>>X7s-Zts0zFqud`3jx3(dwRD7ALVIY>G>^u$Zr zfl<2d+~7=jimgYp$DwJ{D4VFf<%D2r!>5~9Z$66|JmRBMTj)Lcy7rQuev(l*K!_UWQ)uwoQ2 zjIf)MYn=MGKWiW?L&zvvi8pt<_A-;VsK+)nGBHx-h?F_mc*_A4v|eVHFWguv3{iaR zHNzMJDm0FTd^v@&^r7S*b4fK|{!TeC41%9Mi9Zf+Q8vCS2jHnK_2xWv`u=bpw&Rv4 zznGIyj6Gt{6BU0RZ$)Sf9RnWTJ4JWIbd_vk$DuY-P?slpAO7RrqT6@Y=;M?(W2Y$B zrB)V*8vQNx&cOoewIFd=Tb8p_f_@S~i9J6i7j!~@Vh{{i!UUpX&wayw(XtD~DHfBm zC%QY;1>y&XA97>eFWbzAa5#!q(qb4l@KoYROhJ2Tas88FcjM+qiJf0jG$$&T18ss= zfAJNo*ft20326fXlH7oXa6tE5KoKJxrUyxD{&YpIU zYjLcLjLZr_1?PhLFJDvKp^g41CBh1ZSj?S=87BUYM|vWw749{e*fSd%i;~Tt_?ktF zqJg|?=He19@Hw7l^i|}|Sjq&OZOms_YF1r+wO(-`&C<>kRh(IrzPMUUR-Q>d5a=xiQ8~pF3W{qe<{M zQ0KrjkK31Ng%>%Bfe9*Gxr=%bzSl9i-Jx`jq1EG*It^BXogh8sPMu?PZ&}Y{ja=x^*3R}F=~&D_&2P}!3VcVf zZ73A zI~#CnRbF2eSGj&7)$KQKvEdMIFlKXY=I)3kbUZV}Rau9&@NEAkenZh7uGVYwW`^H) zNDT+HnmL`%ue(%xD2GcY2Ye@1yR?$olJaYnvbG=l=_<4b+5s&0gOgm_>dx&%X23fI>K)b<$s7q?_Uw9fDU=8N@kW9L)SWY_??pcJz>2h zHk4N7D|5KE+%D^F>CnpjJx#n`!TZtj483*;7Pxv?a<_I^6tm?y4Y7CJjnUcrp}+KK z@k>MtWc%K@v|it>G(toW>r4i1+5-{@KDYC=brm=R56s~X&tS=0X@O6E7Z%R(E!}0J%6g2-pauBllIq@0N`4 z*J3(fBcr)Uspo1$PFl{SyIZ?Gv?0S1yt9Vg0_~-&^~c zWQPtP_0;HP=t=9B@|;`K;yxo=U&~REDrD%yy+tux_1>6p)so)&mK>Gi^_SIhaOVi$ zU1a7+EeHm!iBuu-iuT2vu#ReT2!&9o!uMQn(CXI?RkP~eivJjGXmHQP(<7E(W`t!9 z+Q==_VUKTL$6k7$vocc1jT;G&0fO^~Vo6(Mt^l0kO1w7oslMu*4&)PJi-_YKgHF?> zssmz@dxWc5<6YZI&PDC}ME9KFdiYR%{^7=2?NSt4+YHT!u$h0>mbs&A-Qh%u=6Nbw z{M5!bk&rkdaxQffcRbdg9X>TKINi0a(i%Qp8nlIV8yw49g9*w+5R4XoI}d$>zPGWsGhH6xB4A43AYcme@bkQjc~1C`_y^#~$!ik?veUBF_B_>vR4iI9i@Jv$)>XiMfv@^bi!Zl*!55BxkNxHB(z#P>Wnd1c#`fD++E@hTxa^>WC1v zytL33kN9(863&OZmcs|_7f+~ip@Ml4U6i>hGy-EsdaO3`|Y2n30m;(LSFi|iNm+iM62DeurZY|vyusVWE+Aa);e6KPEBCf%a<=qEj#0&-(rW-E9dLF2jwfT|`Ktk@n^=_N zvxsVQv~?d#)=n~L_YG*J@5(r_)d7r$GIuDrCUN4Y_CBuf%e^MX*rI)5|8BlS04`V@ zSSUx^8Ln;i+Y)l$kjL%zj)YCKZwL5X+kW2y?`kwSj;MWq!c|*G{7~*YgBan`e!2jf zq+12PzqkLlbj!^<3~-W(EPnAUV|qasyPgquKPwb~oR)daI|uS4=TD|LARaE!J0-c0+iNE&s5V>~=&;tX+%JlB@?GHT4z^hKe(C+si@^W>|CEZ{aH~xBUjb zY`N`M@nz3#pUPKyZhKa^FC%=uu>HBjlyF~q!j10+A`sx?X1GSX^LpsScfwV9qJa>Ust307^dX*k!wolZf6dnXL#HZ} z`S=9ByDHPrrD-qcA07j?k;#VkVRSZQg%GypR!mJn;??5$eK4GQ#1_=8S0Ey#>{B|$ z;3|4=376h{=hob)WoiSiZHHs;J2uK~Y>eFv4&2N-(JX#VruklPe<6JOx?m>$;Cx3r z0`~x=|}k`&pQRT7x_^cJlB_?)%EB>D>Y=Z6&ZSJOm`IZ{*?VYELJAapH!>z^w-ht zYqiLt!6`JIyGyv0fau=wuF3-U$?DE36X~KVI4D_0r)tR=Q`6jk=Cgv&20mw|q`58j zfB0ujrKH*IHW^WBWE(UGUYW5&+U^zlMy{M_D!5GXYe8_(SfS~;y#Y@fCxdm`I1$u? z`C6?A_)Y{{*S4}e-@xiQTE%ZX4Ru+>ejZ5`&_~;OV=?Pq(KQBjyIW}ZN zsb`BtHs@_7ufe5VkUc|TzANgf6wUK5Vc?h`KJqKFQJ=Rax-zSNss6L!DmNHaqQ6g7 z+R`GhP>n2z`e8s+fV2)S)mN)x;?M9}iaiAeHwZDNN=jeN=A&x|`-@56L5ZZw2y7lR zQSwQK%Sg*dEw&``J=G7DPZIk@ovNH5&#Y-_1DvJ$9GN%sJTPN~6U~cBQ1`-&&?)O0 z4`Wsk!dGRsYg??QWi7cASwLJ>)6%7oy8bSZT9H?wP`Do4KdN4Tp4YrGOQWs{nX=hBuOiSQ{ZoiXZ91@A3IXx;Uhd-^1b!CseL=*puU4;q1vEHuOVk?p;l5 z?y4}+;ic6IWtxEpUsD9M_dh~gMLi?C5&S_4KyI)`fGAF(19~NoJt({0t39tqeZ4!D;PN^B-8J)qsqEz-K?;DDK zKg5)4(C-vUcqp=Z5v_n$2cZZjg^!)b&gw8Z-FnsEt(L@>!cWP-ayUQOxsmU?gX6inu-f7?qeev1IeT!;p^_n3AQ(?g$26y47c1TfT z--dtBH<+!(XlhI=LefS{X@ME+>CT3S z=Hbp~$d5app-OQGQ575yoYn^Y84NlW*sy>NELyxGsn7&Tr z#TS@6p`XZ`59o56an(HkH^To~Qv6ThqvmYrbYUEMgQuy-7YScXhALj*qv!pVJJNpT|}sdrVWm!wgk%E&IcU@UC&Gkf2kp631^ zKCkde^08QLR-62#jhP-s{Bd<^-xz)57uX9X#+#Cip|5sr-&DZ_i_Z5%Lo&l68$;}f zBBk$=;FkpR?Pm3MfVVOqQ*XP}+mCs>VAR`()mwJ$n-=jlyeBJ_{ZW;`)tLXJ-|d^D z-~J}dap%wYk;pWm;v8KyP-j;YJ{(Jnl;NrBCgu=wJ%2|%O9R@LAF1cZ`46LxZ;}1wGR{ikTjaigJT*nDR+L1tqPSTcx~=`g z)Zl_jSrr^Ra{;kg+j=L~E*s;IX7R(;)6AKFk4ES(clMr-elEIQ`NQ5!9T<4Jqe3`Z zr_f~gE8XAP#IMj_oP)1*aRPqnYoWi`PaeIrCv@DFH=*aaE$e7^=P`iEdL_@Ab@Y}O zT$?cow{-V*eP7Du*`nVP7kmwk#nxbnYkT_Z;MKK#{9pM}XmV};%sV{ehl(L|ZNK$H z`OzmoHpbPc!UuRg#OuU$JbcW9w&{E5Ka6y(`$^G-{PuVJ7dA?k(`4yB6WR0~UfqZt z>~KY%NcWE<+i!o(|G{`h;B(sP!QPBudGxnm0_L3<2@`p3u-EO{ELt7m~p+tj6=1uAXR!|GY!8jL#vO9p!#!8y_2-obB!RGlWN zs{MP4Ue}D!tAChY6O*F5R5?F=+mUy>#r@IGr827I^u#(pevN~9U zS2t^<k~dO=r}m`x;XEy2az%qnmbf~lC+a+`Hd}6OuF?=Y&(L0(%gIb)G;I-d=B%m*tuQBCN=eE zGuX|uqga)CBMSs}3R=V{Uf@&Vf(lfAxf@J4Q~UrMVk)+t1af=^ zcS297B{s52Y9|pQmU<(bcJRM@lT?{EkQJ-zQjhuv%0A5)d9xh~Ie#jo6qqEH*M#n# zaZ>O2Kv5g20Y*Yz2koJ%8H9U7y4GKPSB=F;dBwrnTCXQ?5wt5cOwqS z(@Q+RmpnHn_%xM{>=$Zezaq!*BEjkSgw`#%>xSUu&S$jSg;mDJQxo{#;bc=^X6)*1 zM`S}BT5D?wUb!H61qk!}FjSi^8!|^aYD%&BJB47wmLqZb*wnv~T1WD$Dp{hI^gx46 zsg9c8vORLhE~9iviG1S``IxQosGYd<9t0(KjcO2qMU1?ENoC}2wJ>{Sb2pxF+u^{J0@j@E+&*T{#aU!697KY1_MtCoiXFqR2Y(|6F*V$XG$tfXGeoA?a znagKK{4=9vMAndU*HMl_O=5Rt93W;8%+v1(J-(4zK8Q5U#JWp3+F^P(f(X#G31&Xrw)ni`evufqvRL!{cRKLLgX_+Avo98WLn zeKdVmn)`A-)A$tek>7vhbCvm#AqHDGoR?X%Hixrd4wQW-*97Q$8=Au7XT$5}SRT5P zBjKt!oCy<;rP%V&GEQ~Luw*#HgKwAz!$n*uS%tZ?q3#?$0N#)o{u;lz*bTB%}C8?Uxk)SH~1>$xJM%AcIJyJJRUU%Faeg zy>(*3fWz$@-;}BCZqy_6PW43qP+O-IkVY5u?{KF99%iufW$;+DFY?8BKy(V9nF^nY zG!W@gIF+%&J3{!>haH(arKhAF(VS7i_m1mfUk$asBfA$0A9GdoN%bCm5vUr?!#HoI znkr`3B3UTzkcDEA4Du=&Z{beWSbw->^b)39Z{|#?M zeLj;4#TDLEV}xtdE#ny8rTW)M2O;Vr0{iplF*+8}X;f!Ub|ct1>5qGql#h!!}q$i#fIu^K7o?4q{=}kgB{nYb*H~1|3$6Di{dM++v{p- zS)mFT28*5nuIMUAm?V0<+?x6pJn*0g`U3zq*0+er&w9d-vAtLDA)l6s*@||jcd*wM zxaofz=33luMNqpsT3(|5x=5KjQsz<MrSllCJgdg(kp2=GjGk*#6y{}A_B2G>tmgRvW?yvz zyq@#lYHkeM1M*TaCHdCh7_Md*jcR_SGU>N%A2qYA!sk*+s{E$_XSk&CP#d-9$xLy} zN5A3?rC)N=H`bnMNZGYDEpqfgszEqZ43+gr@HX8%OqL^&$L;wD)(Bi-_U zSgNEVyZ(8U%O)I#JaI^ISnXx~dJLeDW}>A-zM<6<5i%HuQW*!aef1M_{lWi~9&+O^ zCI6M)(K?|vvQdSs+2~~Efup3p^tjdFgBt1MFHZl=Nct+Y%ERD2tEEXepc-6iGGTU^ zOy+sbe}}|jJM3-Hzj(VqxEu^g1ghcqaTP|OD)F}-n5|7ht5n!JQTgX~GX3}|I%OwJ z|KQys5lQ*Z9w@yeC_c)Ismm}sOxaH^LNFrixL-p35Q;Q510+s|F}X1)v*1Acmwahw z)cx7%zM+6}VJI##I6v?F8sB6s(Xs%+O55V7oUdF!$N_{Z0f9$gP+lBtmh{`?{;U4R zk0~hPQZhKPHM>Fol=Ste2ob#8nY}>nGx)iRYB)V;YS;gh0;uSxlI~Vj0b8A_>YJnp z^gtYO$en()Wzxe`|4LYxR3xK9Y*q`EMf-Fk#=~qm-?wB3=Yh#mEejqqhu>n(S|Q)6 zLk@m9{gR zqwgpd%WlTTgk%9-^aD+qmQA~hhM^EsTh9m-UIPk{EqBy&*`4wwk$2oRb^4Fy3*B;P zqOdRmj|{UJeF~Aw&hf%^w04b_9WBKvek1o87u+KyJv+t!ac9pixvCCgUGok^q_z>t zHR`O_UZGQ`xtgvOa@Qd@c{7pEADb$C34%k@P`^q$xImu*PPK*0RqVcA^UnT>)wgP^ zS0Qy{wwy@!^|_Yxt%ACl;eDMW%@xqWSvqtdC>gE5Vd{JXTWxP=K=0>UD3~+o0 zq%%&R3D;zJuQ4h3kvo-pjOU-A*&(K?7+|U54f+jUS;uDbKQ)4>SvqG7L^roiV&o)# zwt@C*4>wMldhuUD zt*O>W@LQz-IjuD;S4?Nl3{avv3a^kYxrBdke(2h|jc1IfOC3ZJP2bNZ#xSyG0y|2G zG1~Ky>utjl+pFQc1p*!>a)`Zz!ZHz!DNtwECp?2=57u4b8pR-g_h;15nNk1nGeW(^ z#w~lr71saI=&0g&YGyR(-F}lHIwBaZ!7|LSU=l+ie2irmX0JR@6BOaL*G#rPjDRs@ zH8Q-}7^8qg@x9)l@0goHA=Z@iibf)9?fOK36|9#!2t&wL7ok;7A6BuShveHmRW;nj z(l5gm4#-F5g54+++~Kz6f&1^_b*s`Mo;*0Ny?s6K+_${3rDrj^{oBMxCR!?KjfkB0 zacN16^)AuYv33ZvpuZrPvpg?ncy~G?HBNqeXg1llNMCs3ob2{dJ_tJzrx{Mo5xFEn z4RTG?8=;o_gax2F%TAraaj71bYuDy4(m(rwEV7EtHZIpD=}*i?f%w?}&`-QpzBy3W zdRe1>#m#EG=--YBpAzmq60#SEf`@-V-X+T=Hs&y!QT0i@KQ1=xNzF-4knC$_xwfxy z=*6_Ma{~WT-VK%aOD^@a>l=;ggy#%b_bfNl+A*L!r70NC7yZN1<(~iy_=n#$YW32; zJ(QKFAjk{re(rxar%HSvQuaRM&1qK6roLji+3$tMY)~(Py}At z2781BDZJzhUc?)MIJ!`77|Z_l7n)#Mf< zW#zI_m^8>}WPH*DRIotc7vR@Fx=|V_lt#n{py4$Tr-eSLYGhDG%B%ReBjx`~mH+fb z<_**1lR$~Ha3oACJ?ka%<~p%dEC9Y+5~s{2a2zAOdb3PGYlzb16Y z=#6W8gJb7}yQDP}CA5h*!Ms$l3oy)aq!|nJ0($M3R`k3+ff@yw%tUwq`&P>`IP6+^ zI{@TqLNv+=qrUfhDrdxMc6E#w$Nw-AiJ>^E9%Fn{@&*obQbc}zxp#4_Jla>D(@BTHXn z+{!Z61bgr@%_dQI>XvfePYldX@Ok_cbO8z0`sFj#g#uDChLOdbPN-c@ueiyOm*ObXi zk6IUBuuj0MSW}z61d~{0w`Q*W!e_?h!HZSCtWBxNHh`nem1C)0?tOlHMAYS}qqrjY%}dnVuY>b+t`W4Oc=X;mhlB{lhMpHu@i zC)hOr$O;t!x!0WF%IhfjBmJPHkEv-VZ$1f@AC9R>i($(C3G%5a1}bX0y@%m=00sIG zS6)p)tGAg;q_}m1oSMV?CyRU}V=2yS@XB+mv{B8Hl;Wh&zwDDt@_e7=%^=SWBjg!a z5c``!n&Iar4^w6@S>?bM2Xf-^$8$a8nJhh)D{X51Cbo>I-_OJY^fb`|xK*@2)bc{|CLBL+|FO`rdq+ri|VR z(+pr2>M(aexr{}xBo7E%c9R{Yux@oQJJ@?4<(}K?AjPc>a962)$2S1g5DF@Z`vlYT z!W7!|tG>-4qY-Y~h!bbHYgHpHTtmN-4oTSV0sSOfteukeVj=BMB&oJUYf$1Wu^mlR z(FC`^e0Q=Ib+mPOcYK4B1!|N42nDL?|DaIfN_twb;~NOll1A2c{j0o}!qOoO-+A=x zlwi3KMIAko2wkndDxilWt4y?Dkfq_WjOjEvTcAWyPi zh(#0lZ%dH@2?QcAscIFvq(Zm=qZKeK6-{)ZM1NIsM!OM*DF5i%wL6T^UaFW|^}2L) zrDjDk2FCDTP3n&H+i6!MZh1djO7TsfXwXLbPCGj{c{|)o_&?+%WSLUXjEn~qCwcW} zBnP9|YUdaa*G&@4D)_kC6+xxTgolW-g*}bAPtHF|K#fNZfZvNd@t{=pf(W_#*EqXG z$Tpn_kJ))NNUq8jTkox>sl~OmPsR$BTG1f-U#a{NUMPDDhj*Wdj*HOum5wYV!(cVCq^AjJL~V#GZ71G7&%zJYW|x**m-%Wowg zFtPOl7}-1;yVOSgJI@l}9wF*c^SjIZ4#{^K@ss#A*}dZT?0JcrF|uP1PONQpH0Vd@ z70g~?c6i5>;`gS0P$H@0&O$}~n~obxf#g;`?D{|Ei&T@fxx@prrC#b?C-u6dTHz^H zBhaEg83P2hFrX9E2LT3OrP~im4A-aJt_eu*1Dj$B*gwqi-LDsUC*0m)h=Sx{Pj z4wEm14U~FxRMwzW4$<+Dqm&#YDz*lFBW!9!Kbu;pMKQ*VoWntq^24FDswHDlw~5Np zf3HW27G8@-&<7h@9rb$YH74E+#yWtXu!H)uc|ycE(KC6KEb_8VtZ&!9_9*#f0WKC3 zD!QU{h5FC7SuG{}Qc4s-ljuPNPc`)hCiJyfhmLflUYDpIDS9#Of3?%nc`Sg5ZHa#> zn65dVc;Gsu-waTiZh(0RcVS+AhP5`)VSl$h(fJMz{?*EB1f7kYx!^KCe z#E%e9!N&Bu7ypOkl(UAK)`<=J`+$Y?r%$Da;k~fsz+J*$59z_H)#7BjsjLQ}N(^jI z+$d$0^US4k;_^#X!G8TkyHp?-8d#njGE=J=2xALCbr}Mle|b5Fecs`IXR-|#Z)^kN z7SXOMYhtw-SZ2Hcr^AAtIRLeI?rfI;e@;#OoUMQ>)U;0Kd`TgAQFyOJF2Igy{#iL_ zg_h?h=LhoCsQmCM*pL9HR^2gPkelIWz=uaa1;{9a^wfNJN_-adNh0Y?LeSzm%>;zA zFF&DFmzN>mWTeEKCPhY~TCy7)DH(L=_WcIW5&Drc7cc5DIoUn1nrosxuI)MVW@dA0 zorc?*>Q&-F!L_Yd@dy7RXw@mxEruLYBDyG!!I#JFT|zz3iv9aNP7cox(;l;b?ey^O zAxYsb;TCyd5`rPLrtKWeg3zY1HruKGu?YxrW9lK?Y(RMCHr3Vn8=kd{&|3G^uFfCx zOwd>>s=c5CPt^_j8)P*d>-JD}>R`ek6@4Nih8W@t67W317(Az6ex*k=LwPZ{!-2opoK&SZbSu{^3Vt9BypXFwIiK)W>oOZ4yI#WSG<_ z$;pab#OzCC;RBd)TFz0g@l?l?IuB>S3IK;ipZ+V`^a0J(-m1=}sm^`kavUckfO3N|BC*f1l~;c% z_!aM4(;LA|IwPTc9Xob(at5bFFC~X4<;+&{tyDHBvMjFKH?sT<^XC%AA3fkh#M!~% zX*oV>M3$SaPJ5ij@m1;sEn;Y7!Dp-XQcDO;YaO2c7c3_)3RS-0t!PMG+NaUCuCt@x zmGY%diBc}o@Hi4#x5=DrU!?!_HPozF^@xWO^sAqatV4Gg^qLCQXqkC}l!}80lv?#7 zJ^fYl1hdtuZoGK(|5~ERd&E<+!7y0(?5(a^jv+5Pqx{WY@IX4d4JjR>u*q9Okw!ydf9Gk0WreR+&5ZPIr4VU0IUr+E#;gcy&(rP20&M zn~wx;P$pZGH1y0>j>rOaNL%HMEO2tsMCVGbci8h7_(FB%-xIKiT9IJp!c%ePbiUE{hobR z>PJJvK~@7`0&G;B1l+u5^a6mXMy*B|D7PE-=_bb8ZjcpKC#F(CUb`=gQ3T zV0)OsZ9Ly|?c)NqIPum7g73F_<&JWlp12fC#>F{`M53LK12;C>k^9|U3+&DDvh;M^ zrA4wLQ}Gd`b^d}>JO!aj;q-e?Ok#K)bnS-lU|i>v2@*;*&HuPcUak5Z;bs>8shpOQWb8e9is-JmUpJb zc>@>6^P(O#3OeS12G{?)+9hSawR>N(JXM|%C^GvtpMGCFdJUIZDR~CZec}YK)Z;6an_bW8<;XPTo(XTlf1K9F zf>b`-o117`)1wPZM7Y6=cLa~+gU#`I(vx}8lZ9h?(zTGwE(`OpfkOV2^A@qJ`)u?f z6{~}5-7J4?Sb>JHLcNi7FKWlTp#D4t%}|T@r9p$r&5z^O*k8O|Rhgh*X3<@OKX>F# zyl*NfE50MnMDqNROe{rxC)$51q6TZvzOKcYM%)I2hPz8IFSZ7z6sH9ycF)i0E;}n0 z|3g{(yB3`7P2O0m|AO_B#)hdv?hj~pImFpc_*q6>t5>cOwDMxQ;)$zw0Gf;zgm!R` zc7yFbSA|ZOe0$cU=kKwWmuTz2T;=7QI=Z%2vW#OgX}=@Q-Kdwbgkee1eB=LWa(y%3vr5flL(VNJ}A0hbwD7kF$%3R6Nuk%k^lFLoz z4o`~!6ZLe}MN6%Xk;+{C8`&gQ=CWe>D(!3Rl(TD}TPj{;WWi&Tr*O$k+5 zj5l|wOgE(Zkg58RD6iGag@h`(iHS(HYE4GC=X((#Sw+FbjL?QFEI6OodW>JmHczd- z?YBxIA60u%Pre>{;BvyjLkC2fb$#_47`15SCAV6rcy%sAurgg9BjxJot|_913jYp< ztIBi>);SS|hkRqR6!jQ6c1-U~)SmoY1?1(9y_4?xRehBxAsK&FlVL9|r1I#Tx-_?+ z&*%6&%I6TDE9=vg&q}#`Ty~+U?w&}gr~e7a27BXr?O$Ygg}~6ezN2;hiC@AVN{2?7 z_Lh6JeLH1H7mGpP@GbZZFm0_?3isE z(EpQ6p^h9IMu**%IbD^3Xk{L=Lro;emxEQPk$9ajAGd4V)tWG0BnWc zbVWM6Sub>{7s#;bpq&Hs!`M2$eb^L_4EsiL>LKc&`i4gbEA8&UJZ+`7=oxIiiy!42 zNek?^M?L%TQxYB;T$6{{>G?CkjL_Zovx#ZlC3aK-T;e_WTu|%$ML?xujAUCqH7dOp<3-cRH2`D(qAhj6sKNOC4sFRC z?bE&!!Ey1*Ids{=NoPjH$_0e1U{GVUGP;-KL^|?d``vzfo{lQQk+om8SP~zFeWjzT z+Fmovdg}CL%HYi@P7Pg~H&J0<)sAZD7QQ9sEvWQ5GE&(_V9 zLY&Uf)KjF8h5;gP2pF=&%!U?O;Aah%WY~jOC%3;#_SUo-{k}yq&Z5zoVAlJC(e)bZ znG#h*h;q8N`O`zqcCM5P_yD3Io7A(_3B=M zozWCRn50>Ui+Tw63~rP0>i-4q&HpEGeJ{H@+Z3?F(h2q@h^j0E zLSk`$0sr|@ye#e?%?TUy7ZmN7S+$Zpb8H)Qp-}iFhdPX`Ek9hxRcq&a;>YTopgD;FWM^W*iWFkLs zk<|3Ni>Q@tMg>4j1gJ~r`KbMLY=_d|TX%O}pq4rcG< zBjbs^2E0V{lm)KM2dNiB_yP&xQ=KmJo})&V%kZh};0)brS6%AtS#O8$oZ$*j)Lvrq zbHjX}aNhn9|H7wm2(OFZR=7>3Oi5TsaGbd}P26p6MH7wOR0)pPZ<9@jKbL%odErwT z!7H`OLd9ANr3L*1TGadnBvVePJTYB=071aDy;}S#xx;rtLTkzK+GaM5g=&9^t8EtM~7$QsU+jD#(AV4-(B&jLZo)@9pQ5& z7(bSyDLIGS}<5I#=CAqG{*6Xm`MnH-QVqM7wne_Z~*0r7^_udhyUZfW1di~+& zQY*7+-k^6=UT|%DAV&*Y!Y6GgtR*04JMquum@PJ+bw-q{_ppv-1Sc87y&p4w{r74< zIJ>J+G{nLKw$3;koAR8{@u57M_CEWXYCBHbG9vRVzSVibbe_udT-(;Cb8d4`oBj0W z@u&`8l07&L<8Av<*)olIyHolvwfT_?Nglb7)RGhaz~TG5Ys<^vU)}Z7rfPk{X}M)p zX5K~X^Tl12L)~Qv53bE&GP<@cNY6Xl#YKoyvN|nrJMH{H;B$*e5Xb__HyTrOgnicQ zhW~is_5=g`N8G+Xc`X~PAJjYOFpmEk>h-%$IT!V=8P1yLkxkd|7JN6Oj9lygw- zWhtllu~W@q?vIEJr!{y_zPj$}*qdp_`2wD2?5S$thgjDpq>MjLofe8#9QaH;zMw3fqnKy`6=8xb4exdX@Z182RN7=8|`al*&xXX+d2Fo%W z!F9=P1EjUu>hy1x3-b`+W)-5SK9Obmet$EjS>IsNToBfes=hbH<-DyDO%pY z472w{_${|+D}r;iuXwShelJiU@r;mvxx@U)QpDrRd5)uu0P{yhouDltB3NLB*61PT zO?Zz(%7^bin+#OQCGyKZX`tx8Q3)Dh3UtMIU z-d%M$-lY(HPo)K>pptTQSHWOyus1_;6=>@E|Xlf5_%zv&f7 zYu(1=+Bjx%m8r?KpkPdCRbH_hRvf$lvc0j&jT}2x+2}y~$}%vN%42ibkcVtK7|RUa z-tCvhJnX&Q?4i{o4{n~&ut*Fkul~ycSTbuLbQgZ#yJX$3jXjk> zX8euW|7n;qhu6=66#oh=2EVJGqs{f5Vms(hZ3i>i4sKvOxKdD;*$zyIa=`W8-j;9s6AX$^`# zy2~#wwxOmXbk!^bK8}}IibY%7@fMoe!Y`z`8}#oe=lu4>3*q(bH@KJe7>gtOjl>@I zL1~HKhj)tx&l3DE4BnUH1qv2If(-|>@;dQ7tvZ+UjrC)6vRq@#)swJ6CGI+Xe$mPL z(aGZTEpGK!^nVT{+0mhVrO5#vL+h35HAV1Cb>H`mO@trCuD?V& z)W4s6AQCS<^DRsD1qOCR85=zDNlMcZohf(V-~4=<`#nDPmNa)BpA~$*&nGp^O1=_h z=u?|%3P<)(NZ<=-OvEyUEB9VYp#Dima0%-QbXlQvCbuR3D>Zd)^`)lHEVe4_SR5#i zY`T!4wr~!scQy<(gHy)Ua}whtH_2Cq+QX=GZ>aHy|M?EtKB*B;bbj!poYX_XVzrr!ym03MAws>U!PHhK_YXB z_yhM9G}OAbH4JarN(;iLvx8UZ)uu3V;g+q*+_Q1hU-oO$pr=pTuQjEP4#g#a?AIPi z5iq_p!>47xR;u=E_Zj=O+lA$f-mf+F>IZpu(SD8g%?;ZH%OCOu*2U``zTKi0Z%@}3 z@x^8|sDgxG2;q);aBQ`?S}Y_8_LR{a`MrAXT0meAxht8*7e;4gY2E&S!+$ReA@&xr zV_q9x3u#Q%|LtScs%?>3tf__&3G+_}2op#Qks32N95rHZ( zqs2n&qS2Ndw~!;Q=FbokP<)GI@rI~b9dfIL*fD(Zu8e$J8YHCPC~;ckY3?Jswr`n3 zmAK`A$lY^u_C%d~0*hVSOEVb#0TANx?LJ1~4(?J^%4V&80;JX(}fQ;^G7#!XCh_i{qusI;O@;+l~7H zwQc&Rz9`+2pusA)J?J6TVv!4cq)t?+P26Xw)zg1$+8m5jr!Era8gU}bD}hr+7k|Fh zs9crb_oLzRGl1L3KN>ixt-~lUm-=Y_>!Zterpn9wa_$m~H5N$NiDv)v@7V+6y4Uc6 zW1SC^Q1`n?l@PaX-21L6TpEs_jea5dlw}2Erg0sb>z7!rH(?mnAcjuF|5eQ`CYAxo2re*zaenG6v>X(Z6?AE?| zjFQ?`MUsyR32Cq9zY;CjFNd_fM|4@DZ86`T)${UI&R8NXcHCCG)Ql`=+gFpEvYFe3 zvwk4;u;v>Y?O8vNs)YRX$gdRjeZ{>J2Gqdi5GY-dFxI6VqGuY|86q#tDsST%p>J1t zjK zE3#E!iQ50be+w5~w<~x$+{8Z`MU^5jtIH(@BMuK;1`9@A@f2nd7Pf%VN0mN#`|QT3 zr%}WjZHdS(?zsg-i#Q=MvD-4>mILVMeA|yvrUQN9V={^F5MP{ZYTecFOmC#aLx`p> z0yK3k8c1)}vWUtw05`djGiTyMTp?^)CWy%MiiVbIUw@M7ir!Q3^XS0?JJEewnx0&b5!ezn#smLrJvQd zNC{ZU^^Mw`ja$A+_tzo|5VuYmu1RitR1mV|Vg8GQ9pbE_zfN9n73)OnU``}SKP z1_R5J=%0b-vWxMIrO~I9o>$>`1iyV11L=gl`l?i8B3V^=0iw-5u=tJmU)TVEHLbEB zdiB4ky2Sq4f+@Zuf&(FX}wIrTlC5BruJ9d2Xzh|$u@#AnO|y*l^%zc)GsTkvG7brzBAXJ`cGbas$mr7+9PyqtUoL~eWmvF zu3Dzi<_2S7HW#3DmS^>5cm+xyHP;0y;Bj&%bwIwAA|duR1KE>3;M%^`Z;qxciL=Kp ziS=kke2Uj~FoxR=KWEJCg^`t>$n2vmiAU|}mq(pP@fs=Bs3lPplR)$Xd4VZVF9rj= z7`+-B=NqgJ{`7E90+&~=t=!)c8;(Z<;`R!SF>rFP{Nxerfb6}DRffEg@e(so3&uy> z1Z2w`ev`e>$>*E6KFkeCd81`C#Y^psNm5>9kliiZ7DAvH863N0N39<`mQ3!%7z2>2 zGWtr=vrxBYVRIz01*@D=5w#$OQH%IyI=ec}JptHq`P?+>Q^|89A6nqH&N$cB=gfWt z(~MwVcIXSpg~D9jza>$f*h5eR`Wl_4am{6PnvBsn_W`N?4 z#**uI5IFZz&OobN+wO=#yo+Ki01qpA^~F2hUWu*SSmF?RMIFQ-*!8QwjD5UV<#QLy z)^RN)Qn3a%Up>U*`Hq0b_rI9m|7L#wK!L0!r<3toKA+-qGoKV}@;%BQU2;va=AV;X zV`o1Bmv)LPY-t*SW%B$;!%WO2q6@69ZE2C}nRvg()P?_M|Elw}^+|I(Kzq|R$0)MV@*~TYD-l6l}6txjlNYHeM6(vQLI(YNp^s@ zk-muq8hxvr8ChcVjqIv#OT0VUXgd515wzC2Dh9MA-ocH>KeoF=INLmRLtsky)b+T` zK9z4c#t0wG^}QZkuQe8GuVAdIV8lA>Thm6t=uEo+Mwd1WV`Pap@jXNFbs?BnFa!eT z)UjYvqF)pwG7vm2=Wzr-TPHLmI|}qyS3{^em|c;_*mEnHDv?a5!AQ?K_+lo%94dnKGA^$-V0JBSZYys$2vs^|ZS z_V*KyZild|+J?T;bY!Petl=k$lM8o7qdd8F+v`dWRq~0!*-pGBC2?YTF1^a(q;O<4hh*Db z)RXYvI-SM?m)@EyUz2YYPy*st=--u2$dQ<#RV!lk&tAh|H0YXPuZ!sBHwMFB$P*s- zJrW<)lU!56&Jh~8Kr4!Ui6wNuModA&neR0_CVH$RFljgvVfBA3A-Kyn5^AGNYq^!cdOmXm*?LVd0@anc>SMy|$YKcQb4X-Rupzaknx8>>NtUSPEtCV0dc zma-5>2-w{=FChd>#bSzX%9*Y=CGTH8g7p1;9gPyh?$RV}{Z5^Ejn%r-@Kiku&U`Gw z51C`@HlJm>y41&AtoW*{2$)kI6N>9inhab1@18dg{+q~`1fNxq#7$n@BW}QQr2BY8 z$Xi;Cywb<7e)l-;#u`25Vvq~W>Rx@sPAIbzY)Wl?iQ1K%l8veyTk*uIE~2&mkg0uu z^wQ|SW^MaMwC(V6Yql!y#y{h$&RnIAI-dSJ$(g!`Oc>gqfO`L8UNi4lK8~DsA(5gs z2#HLccPaES3R!zq|AZ0MkKFz|=Tz;YH(7BbMRrl`8XBRGH|O){1g~Yxi=e+(&g%mdttPSYRe|{E?i;Y6up2ivR`PCP)l>#L z#>K(VA#malbwt4_WxmhDUpd~eFBnc6Q_9h?lwaq}XzQ52bw=5$yhLSUTTy35=j`?G zgX@Z5E9=a}0j3TA0$>n^=w-?iFNU;RJHui~o8fYXyIc5lHSpDY<;);EQk{7@DjE-b zbF15b{YJMx$mg=C+rN|VO1@X!eSUdqO2&XQ1(2s6X8llc5)uB^Z<+&ONG_e-=lc0zk$B}&*uuL zAd@MId8W?jgM>!=QTlP$rgw9w`_Vp`5MSFUJT4%-70vgXyITkM+zI;Z-oYQDywt1~ zqCva^*5R{E;|<&KThC`RAD0Shr2Y`!$O>^Zl=T1i$&LOB=GG!*I2Xgq)V}ez?h3i* z=e|XQ?|hsjc$~+q1Ygp&j_1n7LFpCRb|YOKTpqbkq4m9dr6PsJU*sf3X@66*R`ztf zDa9(%+E&8A->q#w1izlG6uEdK^jFqpRCzwrF;^`+uc%0aMZl^8zAN2Oi37g&;ZvcXJCGCp-T8sbM zgQmr}odgcL6Bumiet?S3t;Vm$PBpc5HT#K&P?ytwkDMwATay09PIjd$!8NJr5^9Qe zkM6&i-{;nq>{5o)B|2nn0fdbCJOT-I+!-Usow37@JKE58Mw!F~b!PkzB42{~$Zx3D zQGUy|;+%8b`cM0FrAi0F>n>OW-FZ`b_zX%{Ql9+%1HhS8REH={h>-aMJN>YgE+WX` z3`$B@`gfBFDv@^%HfmeHD&^V9`Zw}$JSyPg=#{B@lpjqn?f+}yT8BB<`Uq1Pt2h<& zL}R&S9|ixv?;vKk5iW`4el51#jOE_E<@6xUY4;b)KtFe_MRbGJZdB zJ2c~NJ|DEX{ddOxk7>2r7(7H9-G97e!!=MeDm&2 z<)eIQKKXy{KgC>~hr>EI=g1UQDBVM{!+&M+Jj&x&^~ zMaD|ugVZ4gYToOUfp%JO5dDTdPgmb+kkt9U}XaW|t1zg?0<{+CC!DR9p<{JI( zb5JuUwdKEfeEK_Et_FdlC$9;&&RLnGXNq|Q21|W|Gt|QnY~)GFm(~3mOvz@V8~<#4 zhJW>u*9Qmd%>7?UbJefmp;~-^5Yh9QTmqGT5H69UBEeniSN~D+Nx+Bik(GI=M+(0f zJ;*g@>I`BN$Z`=+RuYufoM5V$5E8SM9IM0|$v|(}hw`4fR~n@QO3zMY@{?b;+w+ks zH&KObqx9#isWWSh0|M<)cYK6BQ{lyeWr3!&?$wt-cox^1AN$IPBInIN8g=0ldb;82 zUXw{7Z%U!${lEAZ!vBhQA-C4CSx17+fu>npfh7G6U7{S>oVi&!vY8?mD~_VTD!FM! zRe=9o?XO86q$2aXU$#1yq7M;k!g$Q7J1@2FY*qKSthzJb%9QzBlg?G!O1qY!IYr(p zRjL4A0i|b=FZIrqdQtwqg1F2?*v^k`LIdH#;1Ml)T9^hIhvnV!S{cwK{l6uZ+mxc9 z9?+tq_>+=lDp|Dc-IDk!w#;9xN#mYCF{^E;ziC?^l{fQzu^K;Xxd8WpTnV80Bfcf_ z+ed9BhcGHheUI0JZ|F;7&1rDKp$QKd?qH@)3`|e7$3sffpQ0x}3|F?hug=sjiJm+Y zp3`2Qc6C*n-1VIe7q*wXudZ?vi5I#2wD$7!tE{?H z2~U@d9Q!23{>6pE#xA|F#{b0;I2a;S1M- zm=NyB*gpp!CzD%sW3y*hsh_|uG z8~N4g9m_nT?>g7l_PHX)RoF8(6BmBku5`SzUEB!{Mt^%9wdYeh?;827Z53rVy?u{t6+ZlnzK2fZB2m&Pj0NH`-+N?t5$UORvG_nXKXtXly7lpT z7Cszd9n;^~QI%Or8?#8uSH!W}o3URCVdr%RUiRj?qR)Ehz-*`}N1ti6i;2$xFlDrb z_2!vIp{qG<;zf}Q0m<4`5)Q$8ES2WT$DolSX zxeTR;{bR^)t@oVn+%LKP|IDYI&trV{@$mu+hk~lZtum1k2NBf;y``cdF=+mb=v`K* zm#P|e{0krdEKqIz<(@EK#2Vo)dt!-%yn9B%l+UTdcf%;N^Iy&mCNj*nCxsLB3^wOu zq_v@gdg{ecAT}QtR8XWg?4hypl5r|i<<)Pp**PP7kEKkV$?;g1g)f=kyU$)%&i>Sb zd#*ha4Y7@FX0CXlL-{aYoQCl@531kVS+C9Q>*Yu1*HO1AV$330VaePow^zJqWGKn# z75rW*zs=v=&t5#Bj!4A!K-oz-ywAaoELfKl@``d>%WhJksItBN<^Ir@O4S$X7~L`E z=G2pRt1wuqOLkXol0MS4JLraJluNg)?kr2~&ZCFU*PVU=vE7{)l=m^Ep=fezC#y3> zxsFM<`n%=b9gt2ZaQ4>xt^5Ltj?Xo^=!HF6z53@cNA-gfE3KJs+nOJtPL}njtuWw& zMS~M(^R9*f7v!une+(lNeI~FQ$p}i_#=WZI;up+GSD}#$wCY#?Lgm}0@`=MypV60? zG&pf7wd{GFcXk`V!WXle0~GTj0v~u9#nGG0{&47;+4r3p zBvq`r@;Klue;a7kc_A{!{6KKNIG5UIet#F(__O>76%9_Dr$#H5P`9EcHHa!m>511_ z#A#K55yPgzKxxhD!)i=FeNBxWxcQS+)mT-X1CPurEqIVQU(9IY18oZfibE7zy0Q;P zRsbaLl__F?T(ZAl_RO-%+xlKAa+u{$$JWPKJi`hg7BHXxP*zk@ryqL3CJ}(IJ%I^k zspSc1DxQ55;t*K0lrH%RUjOT_5|@JOwZ3neMdq}3|n!T|CNH`4(U?g&iWhKANo>qo|ShK zSl~^rJi2t7gFwmd{MtzA&gJLrPV>(`syi>pF7F#;eJn^~kvNCwt{ePxtl6{L#VoE# zs~enH%4_CAshFe{KNswq+Bv<4W1UQ~ghM*0r=vbd4j;RMrF0FuZl7O_ZAYM)An2^< zQ}6PW7oLFvkGFPB-r%ke`7Olxh=-G!j+kk^k{@|`x2c@WNQ$qPZRVOvdS~IQQMB3>k%Mf_ z;A=(?+RucJN~Kt;Z~vq5wgY0epP}&@_kDnb(s+1)ztMPl{GBnFL14!j|J4|AXS~k4 z29>`LLTstqq@QBOK-$zg^Dt?^PYG5$Yd%(IzC^+>>?7U})9tDY-@(Q!4w8JveKPi7 zpFZ1}nj3}KCqY@83dKWK)k9qsK9ZUA%S<++29h$3mV8I?y=?uKF0#>~8hbUAYuqpM zp1v=5pvk|+Q*YuD6Ce;^2xuBt1z!!}7#ejsOs$X79YPAB6XgL79W<#omsoufx11jd ze;pXy&NMQ~?ED@;N~3M#4TUo><_Z}-4l;VqgN(vJCMSpUhg9VoSx+j6ZT+(~ES)0s zkvr5>J}SeG_N2#uHwNP%rm_y|HE|wDW%R*RUK8_ts_lNs)3#l(S-7hXflu3Z>2U9M zSqaj3+XcpUm95c})**AR4w}S4`WY+g{edOq#f!_nE%JO^R~#Z0n1gD~0HfALAgaR> zzt6w>J2PC|xt-keW4_r1xBTv`42L&j&xFq@|HUHejQ_zO%Z(F1`K*UC0sPoH94MUD ztBi5xuIrT;A&8Bnq@xjj8ovluT!pV%?=BO8jPtGlt>{>t-`r%qyFg?n&#~_D$73Lv z{G)nIlgBIwRlRw<-8q&)eNGuiaZ-yuA)Oa_yu^kd3=?Aw+svD4>T6dozsv3X-s+jUW(Gg-?JhC1_;18WESA2O%cyAQanX+RN8h!>wUH=p z(=izD`X;;ATp!?ni=(B*qspFAQzzCJpX3H7Ib{7RrpsF|>63<~Uug9>6q0`2Zud1? z^+R8oxJ9hKYXabl>axv3j1&BUE~(hxfv#S+01-AH?qd+f2Gb)Ln{ppc=J1ayXDQ4R z46SWGPAojD+UDn4UYXCXMy}>kU0Twnrc5kO{Sa4Qo%s(dmE|vcNTwhh0dk=oKS?`y z*jtq;gi}q5tXE(Cn$c1&U|tI&Y7EE}Z${vC2^|asU&WJH`2c?Hh*r!=tZN|nYV#kB zQMf}RvRqpgehE~YW=M4)`fh+yd8`t!g$?ZBUE@x?DZl8ai?xs^r~5pyZvSq+WH2f| zw3H(UPNS7Af}<~zlM^Da41ZiDY?TCjh8i!M3$IlNxuQ0Vz?DSFNH=0rLmG%J89)d%k%Da%1HBb0qHO;mUPMo&ZK#Sh4XDXG9mZz-So2k?omb7@ zU1PW7#BCA(wm#*CYR0p{J}s)TVye^oai|kKwdqN*uPS7kqn!(Ie0no&0YYQ{BE}oo zBcsH^JrCx|&v$N1m63?~&PXz#@XzSyjBhmhhzwCz6Z1@|F|#g%Sp`zDe}=8|rN6!C zuD4*4@??0pp7m3xkZ$^sDR`_}-d{H3h&kPAHAxn!p=icyCl1kvqFC-}N@7Etro{|7 z9N*}8iv74U$;P?IGI4VWPFk_(yYOrX)Smt~buh-~6zikgxZ%U-$q%qssu+;I;P5wb zdGzG_!xAL;O=@sy$p`x1yQ73TVXI-;dk24lPCJnS^npH#$)ycce&2VVky;O{{-dgH_=u`C&_occOeXs})C1BPR9l5#Bob)FR}8dO zcw-gbwi|q`x-3>5$L||FD|#yip1hRhS@EGPPX!Dl7pwn+VZ&uL6Lo*+|8tClD77;Ve zo$m02RjmhCYTt;np{*#6(*pCB%d9oNFJSOT<5BJl+ta+yIPer49dX^ewmfjBP%ZElC+WeUZsawwh# z#S=0I$;(UedgEV=;RUn)S}4@jyvJqX)v zMBX|zt?|^F^OTaf zSnaF^uD7TTikRpY0x>y|X_iyN3dzm|Sr(0CA9w=EA_7Y*V3K{taM$e3R z4W7Ps&w-fY49|07(s>gRBYK>s6g|wh+RfaauKWNk&76kgoiBpAO=wj z%>C!s^e9eX*fr%21lgtoQKFNv%3e}tWdm=oJn0?VRw`unVp;(EVjAlPl zMPs2An|=%tHi)dz8w>0k&UlDZ`xssyOJyb6qFUgQCxHRd+sbo_Z(Rnynyih&i#%eh#%3588EL|ALMsVk?cpmIB=(iI zZB!yV9As*&{+;gCnO~PjA}R9tFY+ij!%5*`o-LdKZro?FX*8a@Y0QetvJuDv z!+_#+Y<3xt$#VB$D1~vY*w&IGNA`~~qLhNE?Lv&8qy=iQ?}I(Tau3&p17|{+mdp;A zh9(-Li#vm3w1+y?wVhz!vF33$pxpxKyAL8~8p3bK-=@}4Ez>VV{5srGR_Efu|Mgga zIG=giu25#Ia0ko%czBA|v9#5-$SZNT4SF}?9H%fj>pO{0B-Db z#TMr^XlJ{kaW7xk@1BkG>3(0^T)to8D5*S>VdUGx(UUiYc12IFY?>6?F81Jfdugk@ z*IR~GBB`PGaRk0_%ULz1RZEsVDGy2es%n%mj^NrXFT6bR&Y@UMCjJ?4SA9&|g`bAD zrT1bT?mN;Dd@(eJ$bmLIw2sOn?uOvAr1f#-9a+%l$y*rwbJI^(EJv~%p$AH;d*nj5 zYs)hNAI!8rb0kCC_1u={HnYyOT@Si2x|@C=dg|7Vj~YuK@nZ}u-XO*lKi5mu;2&XY zXjXhgB)&H^o3_00MAfY#@Idxv=AIQzhjsj2&8S?lZIzsBkiMC>(>Q#@i0w%Hn;$jn zQQ0Gm(LO>rnYUxw0#anijRWB?_pR*j=Q}C(B9&#)0nO#Lb9jdwdd`Atu};y+n2<_^!O1Vn-)jFv zxi!LB_z(^6c9q`h!ruO6li(vQJJZ7B2iN%q*LfG4FF&cqh4>9KIQk|~SUGGcQe9G> z4hpX=YY{trb&h9yRxT52&EQk29;f}({tA*yiMTlp-3!mN`_b4NQTmM43#arDJOr{W z=XU3X2BR!w)V4H44^L}|4rsbhdy41)Hq1!zld@}A%6RSRu5h~6F_fqVX8&>Ef9_0L z8E`Ljyei}lPcn~zhz-GQ7lHmw*@9PJ;8I3>CK+3|^^s^{=5Ci{Yb^_fWk$cU7!3N{ z&n*l>26$&nt$B<6)2g4OSXm>v(k~G{dBkm)tdFB6A>E|qPfE)R8=_Brmj{<#!qfNF z(@dUrs;2^;{!Kky$kUJ1Q-G%*tEVwMJuXjdbM*fJmlh+JQ*yq2;#X;5i$wb!ZT4K` zwxZs7nRj)0S7%mO!%+K93P72*#)jY)>Fdi_i< z7Jd$)hH6EYtt&a@VbKto7aeL(r ze~*8MjNPn|5XwrQ$>`+C{IOl)5~qY2vr{HIDb&BlW7M@skf(1JqNhN-L`yrun%dO& zrPlkKQ{Ox5HNfU(&xzRw_Xi2R2zYWd7&$TX?WP4H3T(qrpuwnZ#8*YIHpHG@d@ypC zK3aRItGFxLnXd3a2qtxpjSi%Rz0m=;B9ekMHkPD3s`(Z&YZKD47VP9LB07Xp$@dg& zAvyIo-lEDHC7th(BECIk`lUlo%h1}40l|?8qoM1*Lw`9u4jF68; zAy*DO1(wIF==&&+JOZi)utpqT8QUT>XjM?3;m^-F2f(slK?%rg4R#oO|4M%ghL29+ zU%l~^-Q+0g^T6~BtIwl^c(F-JqL+TCfm|HhCZ0}us`O7r4eE~jLG5h~YS3eu~np^aL9WiFescgyeTKqUT7ptv*ZrCJdBbrc9jbU?zJsiFQgcsKrac;7Xm z`r+_)@XrRk{(+59Al7hfu^`Vi2oCtZApqApHZ`{XQqNxPavix21=sObJ92c7p2n5L zyX1*Qg&Tooal6)`MkwCqiJ5$bDk7SfZ?VVh88<^J>r^0c0+h$Tdi-vWs}ok$aD?JB+lL%cfZU| z0$wbWwPXHqDi`(wPGF-Fo=oB<&SmvaDby1#Cb_S**KRo8RjN;DFI%5Ktz?`&dh5Zv zQh5vECmP~r#>}$yJEtjrZaCMW*t~Lbt+!c@Y#nD@HYs`x`;jEI=!W|Uq`dqY9M#ZE zhrdjrPqpiDauhw4jboTo0sURPINcdCdgu$hO>n=SDTv1Eq_Hi(JIwx+b&Tp*VRu@~ z&>EuZ-#BY@W6#t7)Sib&OBWrAE7bA@;ir-#8~)y+$X2|198ki=)-@U@wOwoV`0xGc zrxefbc7^ltfwfi+DLA67KETyki+{5Hf>Z%}0!t-rzU>8+=#VEW7_5 zH8u=+I7Q-*QhZEVH88x)wmA)LkEr@^BBk#r%dp*0mU&iTuDB9Mlq=G^mvjDD(2cN| zh;1v<33jAVN&Qj&6^`OwrM^MShM`~)s-BLinE}CkynCLmSucaj}dWf^pcrK6+|+`o2QIsn-ES3sKZi^Aph(t|woh zW+v>0$WyQIL6%n(vd~7osJfX=ew)}qZgzX?| zxh(2cs(UMzI~^SwnlnCedB{Ah3UdZtAN}>T#^!NL7ps!Aj=$?qQr&fyEu$>q7x3#|`C=?O{1Ll4n)>(oTOh^+&QPb z1(pfkC|Aym$@5}Qx&Fy+V}6T~mR05n|Hh#sPPdIONMnXO3*kzV32|QXE&Wj(2O+y_ zh}V(TmF(6V(yi!0*NHb5V_Dk$AHz3Un}R0cG1}pTyEkQVTnRvlWgY#c{`hLhc)L}v zlQG#J!k|oz)eN@o*8}t;&n)KdD+N3b36I{@;?l?VmMLXO#bG-&S%WkV04+`&>VfGA{U!)|5y#OySMzK>T53xs~SG82j0bdAMJ^M5PtR97SFox@pHh6#T=4@nszwsmpJ#M0yx_EVp~GKH zR5%t?yahU$9b4{Ueuu`K(%#L-RT!gEy+-g1QX`lExzeZM$5u)aK^UK_Y@4s`w0dEq z9%o5;t>+McI3$_OUBfdtzz4*te|7c1v_(NAziEyHHgFgck-ekcs6`6$?M6CNA|Q*(-3DT7(^s7iUhZNEZi=m-1KA7v)mBTCDvccX#S@16d5W{Wq((B+;q`{ECE8S%FVgs zLTf=We+n`2g&0lebo{jokNvPqw=BTutpzWN{pcLQ3yO zHP`?H&5=)?`8fzR7q8Y}Q_HW(08q#dRG$H+B@OdSMQ|GY1$Mu(s!M_06jhxAyYuy5 zFgKi~a880h%6bsIRRBN=sn=N8u4V}xGZ6$@4LV9S^)OV(M&*nRYhdvM_3OoW$+ur$ z6uFC;xSpV@I+lAKGWUa@GV_Vp*kCMbQHKfwiXS0_?E`+M?^VSCykvgoyMj#Y_St#D zK2(P-;<1Y5kQ$5}au7*QbG28*2tXwPw(KYJw7K1r@}cjc3?;qC6@| zDHW9L*DC}s@v^JB`f2knDpA){!N~-ux6Z7J)J|npv?vnSXnydW6x%=M~Q1deuOw8^~kkcyvD&_U0rd8MG|(9-6GgRz44 zSKn=|amWBcBtV`Kk}?pQs~eH}#-$z(XUduG-D8GCK5Yx_9yzix=@0!E=-E>WC9v+_ z6*X8tk{Z~wFG&;jPVY+Z3+~-CUgQhY!lP=}YbEvGQMI?ZkdxXZ{h2$h0MA3;9i1%ZdF-R!05S`ci&7@RaNMlUhgfdhSTt zE01QBOx0RrEFHsh6p#`0qFN{?3lV0U@Rx$B_WE=dr%;1m+;wJqlbyDsN z;+i%1>Pqbq{7$Ar1LXPZDbL?Xd45zqlVfVy2kWJUP~G@We*Ag2 zzlYC3K5z5+1D`+hIm>4hJ(ysBM@mOF^kfvoa(f^j9Ti-b#hXeDU(bm*=J?L) zGqsNPJRqudzy&RCL@B3B1#}C(v~F_4oWQ=AXP=(gFy|(Bc%0TTFEjX3bH63)Ar>Lx zYGM(pvB;m|&c`KXj_R>i*){aW%EJ0mXDxcWoTI1J>cYk)^~5dCGdB63kTYv6(5rR0 z;RI>)7I$cZ)={1rj5nLBmW$l~jjzkS#eBC#0fU~GHhEcIa^i5WTCVz&x?Z@?681Jb zJdIiaeVge`Pa{uwlK2NEhsmg#8(pTBKV3?taT}|VXET9A!urfIGEtULMwOI6b zKi7C7AfF8_7jDCz>QfwUd0cTPl4b8o4oreyylWb7bRilUI-S{Lpf5w^ zFLcTi)$V%Th#xSEMV*T(gw=etX=3C~VeQXXj|F{Yzm9y5ZATraEKcAik1?A=z>@m> zX^TrHLc4198xed?Ha9nljf!8!bQ?5_#VZo9l0shnCX{@2{m?7(Oj9y>=1{V#EHqTv z(BEg}jz9>gMh_C2_6w31$UNz57J}Fglo~kJ_zOQiSaxI_Sn0 zEn@;dkycCHdpu;~HmGfFBU!aYaTu^FcdKX1XykU{9t~p;AI@24K!zlaqhj=fFa~SswPmVO@(v7uw)Yb72ZnXa3_OvPN_4V^y+k77_yZyYUas>XYOPF2`&2ebO}jhX`N9TKMfG)uqWPUHYuuCE?|U zSUQ>!YGIu#cdI2mrz+H>Mb(|4OP$HMWsqjo8LltmIznFR2MBan%E4@QI76MJP)%{~ z$u1C*;oLx(M6nSH655?{ojhz}@2#>ztipT9u$97d?BW#~+k z1S9zsCeb$crC`}bNbnI3oou=QEjh#2Wdu%{zvsTeDVuWEv*+JwkCL>v+-h%P`@;2V zrM-N3o>TPP*;DxAl;>uH@>8wylWhob31F1wd~^*;9M0u}v9cw9n(<>EXr`ak(_rC*p-dKOPayvs-nq z@%-}sMZd+?LZFc)SE^Yqe2^@Gymhs!O!>E#luScL}h@yTUnA zUoxv*<&Vf!zpPH%b-VubgIvNfeT}Gt$A3HCvJVaJ4NWmB*tz;RIc3BTk4ZN%C#q-> z{m6<9c?Vq2@|FNSNrRtBBX7ZOx@tT)pcT7)u(B=S3&7|J#h52LaWIU(4I{a4x@5 zPLKl&BjN|qf%-fW9F9AD6lk&u;|P)tIxO5m*&>wX|e!wdMV z;IsBTpLEg!d@knW^j*Fwjj7P#y68Z*wjHb!j`W3JG6)#IbdKg?jw;VHQl2H6q4i=Z z-<C>Kd^qdKN520Z?@jwXP0yi8Z2^B&0ViS6P=a~^t?~kg0G~WQg?z5zvyjg! zKAZXU0n17$>&i%KjCA;n?nHX*Wqc=&STL5ueM!I-TNT{&hK6R{{K$>{j|UTh1B02{{Ek*{5Jgk|8D;r zYUGCxS&eYKy_Oy<<#QXKFrTe_9KEn9IU z^{}=+hneZC+wNgrGIMh zzK4Kx%cXLriIxTMk5ABc;w8ewQ>DeGDoK$eF*5(-`V`GtYt@K9QuML0vn}q#%bPIq zxcKS#v2cFk*Jlo{de()wI4`j1C)&tM=mmR?XCC_Z!E1!PglC~Ge0MDOS^DGRzPOsV zGoX2wpr|~uz`uJH8$C;x%sUt&`- z7%oZbw_}c`rpz<%cx9I-PrrcKn~TJ&3mcD}dEqhnhr}A%g@s31@TJgx6tI3?{7Y(B zVUI`3uVu;uH?>#3LJ91+75e#Vf(!EV)@2A*mCCCpU0jjmPm{ATCnHX-S(ozKY~nLKnOh#1z+rPE-}rYzD!84Y=NfZ! zW4V02q-!0n<8#+WtW3;&xrF@YUR%jY0yyvPxN%CXinH|GoJ1CU z#y~WoYUr7})>VAGp)IQc)6a&s3b%lDM+HIEGj>#D^i+&;75~zhn@99&&5=gR=ia=SmYs%V;7)?eKkX<@(R@*fXuvZQYr0+L8_qBN*hJbNX z4N&Tq0K+K_ZFlGNRIGKGXJCqu^27`=OHg5%U|`*tlVpgPBMnoJ`TBc~ZHBBT_@u~f zM?8<(X-$6`p#!(&-JM|TkiE%w`6UGOXZgE%Dt@mXqUncdLCwLByqISNo8e%MQKpQa zYt7H3DeEJ!iTpUSm$lo_#&IJJ!3*hZIe~4vQ8SFwPV5lfmmQa0g)gu zxoLC(DrKYVS*k4T^{7qUSeP60+yjt!SA?1pky0hIwoRP)J|T|}C~&?W8ecCuDNlbW z(Dp+nU`DD~w1uz7O2pnZV7y`zJ@(i@jn=WsZ9ESfPYoebeDk;!$#9Ma7X)9?CkCI_ z$Ag68e;wVX+*SQePzkKHo_HE$M*6{BVzsAXdUsM3hG2=)-^TZ0Cn%J;1uRJrTQn7E{c2Ig%tEho-5r!dUOEV*i6ZW zwhfiDg!1{@m!9&p(|-HjnSICO)3mLxQkS;tbridz-AALRJT}1exe9rKc*5tvUUFA}$+^&nJcRZjfgnh~2V^t`5{Hjht&Qk8 z>X6ZpR)snk=42pahlh?<;R8c1)(e)&dIj4I&kib>-Ij*Lq@)I3Wzz|2xi`O$4zTit zDC3N3&L7e+Tasm_$n(F=Kq54y&ippt#0!Kn_j6qBSk@T(x|~pr8_{1lATwhfVM{7v zxfQ`v+BOkK%YN%Q8Jl%7=822Zb6}Y%uEe4I^TJc+>C;&$ZU}P-Da{O8SCU2qR4K`* zL~hEAtrQ~P7#vtPpXL%j)H+%%$=JH9#d`ln|2*ms_N<#|3?he#==ofq-V(krYI=h` z&F>+x#k49NFLhNc8?mh7XBFDRa)O3!>>r2@v1N)MV}!Afld|8j|8FK!@|B7B0Q_A_10eD2JZ@Xy+MpOf#Ct zF0Nf>*5EA?&?GVxlSZ@5w0~YWcb&1!?8{zH4KxMH<&LDmL z*$i?BZr1@f8)zS+cR31dmjSj4xdWT$c7XT$zXCj8{}cBN0goMn`wB!5%j#l3{08vT zIyfHRAWl>^igOJGy$aIXD-UFd2-U`q03eIAsI#xG%0Sovo)kZqxJD5W!xL}7qw2@3 zAC+-TW*dT4ZUsWgs8#kQvfHcN@;tNhsCy5fb!iX9uMg*5uU{(MrIIPc^;s!k^8z;K zh1MzrLIkm~HJQP)+P3fTlRo!S~_eyewmp2M-UF#+&ep3OiNieOe`F&LD zGVufpkHKcrTW({Un_HdCV3W6LL1g{dC3+QYdtvVadWqH%{VC9hJt%*TyOE0Yg2jmX z2xnW%PR_69V<>=uui|8}%&w3I%0S;0h#J^?`sYA`tiyy2e_5fiuYa350sM`PNRJf$ z?p2GlqxBhH1mjvY`&8@CoM&;d5Im`E6Iv9Tb*e5lw^0^s&NA~dwP1(g;fMuGCsLOz z=Pk8lA@zZE*VB69$3uuWXV`)bJdj+kl@7}Nwe{-lpBEV#F!DE+KqK4nG1X73+4YHa z=EdCVv$Xl4Ot&Uc!jiFC>bH=|My=y1S>luq1y8QKO)<$Uk-vFP#R^X~1V7Wo`t4Hd z_bMwp`gncG#Tz}H9-7E4Q8T{vun!)?{MGq~7O#|;7cQ9>E&}y4gD0E+RoaOTq;soO zg@Qz1M#;jkr(}^nbq(&@|FucMzv6&9zWz1#mwwuwJVuf{xp`KkL{(1jc^utcaKc`v+GzP##iO>#dQ~I9S^G1 zz1lqwC}an17W8EXUu=Gt`Y7`V8SCnU&uZH?E5LCj-sEp%e*t+);AHY;LnmZAVIJ@p z3qwx%9(SyyC-|DSwVWc64Q~@9Iq{IxTY}m)|!hNEqbfb$0S>^4eiZqnW2~RAU zjr}=ERF%lK^s|dZdLao+R1eMMwpVA6bu?K~=exG5$#;r)Le##UQnh}|D-BCF1SD8ZJ+Cz$-!%yF22`ugS~`I zmvuJFT;f&4pWIV<1N2HWAriCKi96^3B)X*k+idw@hEh{6A~@p;wM{?*ic(m1=&uo9 zvW%Xi3wsj^rxBS`X02P>wu`ZYQj7gUij(`5uPavACE${qN;$B{O5Tjk+6#VqOBR9u z&m}VUP=%|#N^sUn>$LYM@n(Rq+n-o0@&dU+#Kp>4l;dCrjMrw=_+!=H_^I?@Pt)be z_U5_S11Go7%ZQw;4*z51EB7U;05kIfL< z|Hy{dGZyJrL_QndZ0wbVA|!CzKJxIs!9X4jGZnnit)n}jUUth1o{haK>vFOtsU`Xe z#v9P9CP8mm2dn|X@?eiveS{mx3TyN79Eg>0ug~ri*$@X~J#nn`IsjJOlSpqb^(b{_ zI$WR0RVFI;uObp&-v4ovP91Z8W%J9T&!X^48!%FDinawvD2^n&)*Stp!0>ZJ{Ddvk z0o!K;_gi6fVAfrX6cd#(6>pQ zpQ~hkJ|**0DD!j4(ELCgDrX3a2DI(Cx;`+x%Q*XEMQ$}2A+2FK9>-dSq7R+lj zR{KFx@!y*he1F~M_R1I4vX7PgSq8^=uZRWI@Psc&f92}(3`L7)a>{&>2}bme&HRgO ziw(i~?me2npX`9}DywXTSvi&NO}M zPPf)-QQ617O~?AbLTBh!KoxlKA?fRD>pr3Qrvs<~1fSJ0YVypi2=C-b)FlJQ0E7mx z0r~Ia6`?e(6)B6WA^L>yGcIlGbiTBX%%G{Yii8UiVwiY5X21^8>GC2^W`MpdMG z5InKYM}2_tXlC$4^9i1fGjv%x%;Hf@#j{%V0MCl4=;b+hLfdu&xDhKnx-3@FShIME z`QKdJM4y41m^?3B0O6EA$^xazH~Oc_Qs?*C{_z$@VXPv|1wsJ`s=Iw@pQrsF!|l(^ z?Akdke2cd01#Qe`FudVR{cuA_wI@?)`>;xKSuZ!M^~+3qg~mdlz~&YR{d_k} z`548Ju9D6wX>JZacOo0k%I~EURqf0hKNiqs$qfI5c^vG_f} zAcw31QRQn?o1ZWOvU3KSrfD5=iG+x{Q?|g9l*YqQO6g8jXKv68=M1Gv2}tS8xw1K$ z!8i4>G9p1%)#PGv_LXmPwJ%2`Ua3^>U&TL`1Zwctn?E5lJ;*io;|EFDcn}RcGw&)@ z&B|`1{G;iLrf%qY5J&NTGUKv-qRP#dF=Dw|{#clEvPo{}-;7$nMJz9~ePQv&DqvZ1u(27i1w$O1+e97LaZ`TrH{2vZ^Y1SvzSg#>c~gt1zN6Q|<$*j&>A zTn={|v>rUBPoM{RGSL-Gw6;}54>EXAF;}4?*i$8pmtW8^w~2+H$>ESfJarm{apBic znTIPImdS06O=T*HQ)3PWAM5$+HQX~Y(+3jX;4!Ur8?CAK=XtbUac$R^Z7i>DL9{)~{D``f=gWk&|On_#jJMMCvI?bpXZD0I#Li5=4T5(m=3x(}bAk z+TgRBvgCz8m=`?4z}+ldY+n0vPy0Mid-u#Z;Nu$@1PmOARRonG^tokTYtl~bo zAnREy{^9b>tTQ&)ElnOrKPFFnCeHPVBEg-yahI${@%O{V_Om;u&^9WrP-{VQu zw)LN6Pgx+tE$7rRo(edrzY#pPZjL&?)4LO~StkS%LP%=Osi!PpXj^Aca$fk;R^fFN zPLsk%nqOd~?F%i_Id}8NK_q7FbDiXNWr%i}GpZ^ZIM{-DOFUZZ+aj`KFaoy7hF;+# zd*vjgrU8kZg!WrtCSV@;kzYgBSwcyZdQD~CG#BkgpUJThQ=hJGUF%Gftx2s!nF`}* zzb*~gez|ZAUBvlxT}qB&6i8jPfHq1DSkqup}vVYJzHgq9Ti3mr1vS~4} z>QZlFv%2(3iweb?f+!h@TK6eAL0yYVw{b%2h>6!Dqub)6_lZ__?%tSZuLze~++jE{ zw7U0+R=2E%Ze(Ax6k6jApCfQ;2SGAGCUc;ADm)|fOw?lpt5M><(O3apd3 z(7_Z-_lC+R;sH1o=&>qSC`2YanpoSe^jYGy+4i^{0=RaWE^8(sSG3Vt}QF*C5*d3;=rI*TS;*bp@zF>yBU#L~= zMWFaSH7!Ee142GwqkUQ{x_hiI*&O0cLhm7$7WtGcTI*4vev7C&6JiO$&EdCeN&77s zk<-(OlLSe%Sb)(8-GFm$VoKz6fu7x9kY4WA$514f7F-Fp@hTvZvk)5o=(viwpuIvC zT(;I4<%gy64=kHns0*0nzI+%~C*2Ib8qSx!XSyK%VmCD%SX|3>AsbwmU@eXdB^G~`eA{0R zPFV_M)2^YD-H0TGU7=i_oNpkUV(Sv~GA^}NVPaU9V9((4rN<$~4Oc0J7jYxb|=a^xKaTSN!lxSuw^ zGeO-_4~JK3XSn^^EcNXlhGIDa&k5P;BB`!%_u2_KzUr@+d^mPbX*b)!I_xQ}cCBU$ zt!9%`W+{u{D;{@_DWmr2A2;@;!sUb46kOmk=#baE_+6I1T<1Nn^c|;(3ZH9up_Ps1 z(^5$83-eW>BMAy|AsxH%bvTgbyGMZPcB6aP5SB|plx7r%#kV&$_w^xrIuvLy@Or;O z1<`veH{YD;$S=be#paHcIRY_^eXGWb7zssm3~Z{xBK^EndX+N4;eZ;dT;3@Z7;O!; zJBcFWhUH*fzkgN6g=Yq1U-U(cEH*WA{9DV7<;svW(8p^Bz!pD+keWl@iPBqLE?Lw+ zphw1yKF0L1K0FxlJ=!+^!{-&&ffz)1@>9+J)~_ee^h=*$~Bi7lAKzI zkmWhed3YRw&T{`C>Z#gRk+KMz?i1hOIrS$hZk3@5R)s$|VxDhSnhirs_Z z>|eq=3@n~E|3G=;6%;WC%tP{cM3oR9J`HV66p;Mp#ghB^-U=4}xLI;yH?v9EBVKys z7bkbsZd1rS{R^wjJ>xD_ZORL2Genz*c(-OWe4fwz1(&=6AcueUp3TSeHz3w`rCyDVMJz%`lTWyoY z=0@|+92dn#nKZe^ZonUj`Ho6c<51N|q?7P6x)rKF2F~| zoCbmYRW|G$^8%<^$UJ+%87+H3l0cfI5|BwbDs!Bad1Td&`=qKQD$diadX!N@$lR5z zhk5f9A5^lB4AJ4KZ-7Sl8|KW0p3L(E_l3q3?>i9}2Q=ZVa-<#6Q~nL_$jQ!TnjH8@ zFbx%d)R=7Go)>nt{kEeSJ8sL*ihQ_Cuft^6E$pMd0ED>Mbwm`V{4Q7XL;zA+19yBB z4zZL4LSGYOQ9Xg3INIioR(m|r&4G!;j;QvCQVBj!Npen>kq@y#-bwO_YQNNp-LEWV zS-pCx8F@*3G7CzX6Az@RMedkwufN@{FJ0Bg4>^HY?KzbXo1q-u=V(vI5d##7d0Z+P zSbyQj%7$08o6AG{(AZwCbI=~6EQ_|5%i@>raVI<$x z?f-#*A64{G?ejg6cOvbjVY~qKY0QLYCV&F}%J8Thm@YPIl;bv0&RGXF)x z^4nk-K1VXa(m9+^Z~Q#ow$+8eB5%__$^jT+={ds8@1jOB<&l&t=_t4?IO49YH^0sc z#1w@biqrQ8>wTLq<}I8yzI$mc{*E_mQ6T<~KYbrgm%9WtY_bCX-NvL=dt&zq>1*>U z`OHuTYjN{8`mRi^1Ox%^3u3i7#vc%VtAR2Tb>j7@ofk(qD9}Fy+SOscIZIUw zA8$L`_9JDFMwraUCoYp+cdiR&B%vZ+GNuMpF2}TG5-+yDk~|IK7Vcs}Cwx#T0<7p$ zt|Fcb{{c9tta3act6S%u5;yWf=pP$15ke2O8hDXhRUh`l^GTj`eNOZ))(D!DE*z{9 z&j)hKI-;UyB}{GqGlB)n6#b`u60IiwU6O14(LZ`DfzJ?*=)oWt1o{k4lD2dp-gKc7 zMzXW9NFB~!PK@mQoNUHy=@M+RE(;cZsC7(Yo(i!PNACek z7_szzWBW6Z9dsc|qldLN^`oKf3st1awLwGMSA;6HePNy?EXXfXAeP=~_dF!W!pi)7 zPJ)JO1sFmsagNdQkeuEZY6V{`MhH=59~au%t~>T+;CWtX6#dPqkDj?wyZ0xIf@<@$ z`@hc(l|;{7IG=cbMr`i;Yzc6~StxNW!G}Sf#ow6IULdcb;1PJfEc%Ytrhd>2 zfM^#$G_>6#plSQ5z=OdmnZ(d&x$ji+1N;0i37hm-;XwP`jFKzEQ%kN2PcHei*1AOo zSd~JB^-%G1v3sO?V^Apn=o6)Qn1|xml?lZ^>EF;VXN!vH>Dx9|!yE>yyiM21HNp~3 zs0QPcs|0!8EYHMyU85UQ5UQT?pTG^J7pZrY)2G6pyA!EB0R!U3bysD+?cVIDTSyqZuV9T;n zoC5!dCFjz|@bqJO3Rgy-`VHSM6bmh_I|TK_H)fop)Fl^&&Jx87H55Bzm}BH4>XoO? zOo!9qm9tMe-2xpw1f<}L`+Ly7%Q{xiDRVbX6#@Mm=4f^}yX0!LBZA@aCD(?>LdI#?Ww1@-Y8RWUVTlnsfb~AP*pL;}Fj#7NskiSrlI?+SN=QXSWAU$} zAS4tr*62nal8$CywDbMPr9aVuMcQ@|>S?(k@W-@{akUV?(<&W5_%gaIr)FL{k2KN` z862dY(l7$%%-GtqH3U%>`4m)>QBM<3_)Q;++@0Zq=_F!N`11UgUaDo^)v+_0y$q zhD8_fEbbywozK(D5h+sSYZOt-2fgZ2K>56u?oZ=0flo1?-F(*b8OuA@DEXJB{{D@B z-0o57?op#Wo(zvi70Kk6`sa4LllY8ggB|lv>wvKdWfE~9mTN^Dn5yhCqPA-Cuy6yv zxAnedAt($IdFF8xE=su#3Ma4h82A#U2rc(vl zN+g6yD_W1MPf{Y zv5?7_pUDm2LJxRQ2bE)!JpDpjugwPzd%-2d|aNt?O$3-Hn-cue@{C9h9;9Ib=V)J2$r%BQ}jOi z)Q3RC6`s7hG#j8PgD~@ni6WYkAggXH%bx443b-P&p`uW|A8UeM_EmnHiR>X^5%mk} z;8!vfbw=W5;zqY@eS^da!sHCr5sJ&Dn6C`ces?Ab0mxr&@F|(yP!^`?Z`MN^NRCyf zJ?>h;-mTocHnc4r5VsugeSra#!w1AJ1#F@YtQ&-aqCk+F;w1J#s=-O@p42K9ye{V! zwD1?a?&cv6b$pTTU&Zb;jmE$kpbS_tb>@&*mO0dv;SR{4g?2&=SgN0n*pzEWHSh1 zEga4Ulp?purYZkofofn=N0x2(j>4V6M((i-Pwh(X@D(>O&D~uCX$i_L%2I z8A7_~z>5v7RGkCEKU-3%F<-mK;E6thck@{kW3WK5>|8LGDbFlENWlW=)RlBC*P(BQ z?@LS%n$d9)R151^*^`+SZ}WUfj1vn&hZL_&_iUa^s*iSgWmqs5fT4((xTw`wBTRVd zkl1R=A(2%$ip!J2&{(SlDwfL7t>(DqKJOcp#4(KFkdjHw`8&!9;Zp6vj14OeZf6NI zgEo4bx1Cd~@N4QKIBHH5Yr*Yz!RXN-<+#Q5m0|di{~#bO@MTk4YK?Xti4H8#wr5Dj zU6Eg0sHpfOd`a(<=c<{UtE&9bl0KKty}T^r0uFhw4Ggkcep0=sjPD{i33vbZG61BNsg_N#QjRjE zb>?Wb!{GL>zl3+#1QkDr=w_n!#dtJcQk(e2@RVz76J5hoN^288A&83BaWznz9o&{g zvHgqb8A)_ucBw^JdMo?fephw{NZr@}oJT-ftrR~1tz6jCoiRuu86~V4Mn@yYx=CuJ zHZ|7D6xwQyRchrmlmque{S9{Yq|Acg2w3SLSfd(DA$YS3cUqTYgLnPfN#$3 zQ0)GIs&SFq5DkIoz_{?r=)lM75-SWR*#D1#udNOFPK0>=KUWK-|B+NhJYFgy5g5~}NKRj%2w z@)14WFFl?O4E9qA*t3+`Zcte3e##YrkOzBYeKctnF3v&S8{`YY+;AD3&IYFt5E2BW z$}RosrYuEmw0ovd4{=DhPT;$yc6Bya6Ln^hIxYMA&#)a+T<(>@WYM7Omk7U3br$T) z8I><(n|!QBO=SUqfBZq&J8ZO7@J4>gc4-0qQK}M!*kxMlw}7S8s-Qnnf=y0BtCIJ& zX3xh&vnR*yN25$H>TS|+vseI~8sGg_;NE|bK{t%^S8|8s+Q>ilT2+SEXovGCXlfSmMG_(i#;V$F9`J!*kcVRfSf|Gr$C0YLTi=X zaQJYLt;`oY7-`&pZtq`RX!Ty!X(|I_0nX{Zf@HG$AR}`lR8Fl^7&l8j`rO)E{s*-S zU=pifTyIq9Xp`3lW@J8inSztT15J~PSvwXdqOe2Fw?zyff`>)Us~b%C-U8-KxN0+n)pe1mSlxnDR#&*(JKkV1jAV7y zNa(gli6duluBgLNH%%M!5VDQc=Tun6ZS&s1nPSzf*pjpzOZ(Ch7jL@RSeS=2rTqHz z=YxIgvbLN&1pu0=b}TG!TbRcwD|&KVcnor>>n^ecH^1C;iBYFY#C%gyN_?CWOBUBr z$lS_>F7Tl6>hau946gH-X^8xiKR)1=SvoBJ<$ehFOgsgQ<~;faU1YtiQ0L`ni+8l1 zGsmlsf=>nvMRVqPbnpMi+?&ToRo;vLGnq*;kO?!u2!lq6I!I`uMiUhr(8)FlTbK}- zV2NN`%1u)j3^SmzB_0A9j$>`Lz3siXt-W2Ycjw7q@3e*b)VF*)Zv=Q+>vc|OnQ`8=QPG4Izn2@S=5>qQK6FBMt+LH=k5 zyvX&hkP%!|i~t8JRb4frjbnNiRVNk|qhK=IvfgR5S#6Q_WaXQiefrJLmNwZwx1`q< zMU7`Fq(}I7D}FGzd1l8o`ijbA-703FX30#(wi|p!rN%k;p%TP+HvZBUT zGz8Kgnp1|ZnP*v>=1AYy=W1_{O^xHt`*0T48|u8z`fdx~T_|72 z&L#C7Oiv^rimU6S`gjc8^J;JBrX;Y*&&>iLV_xjEwz%AowESQ=&;c({OcC)jyw8<*N_A9!wYFl-zjnNOI?8g%y0)?>`W zY#7S(bbp&>2>hi6`qpjE40=_-&dbB}>YP0gh?h`_p9Xvb)Ym5i7rn7^hoh(Vh(pik z=xt7USN&POk0M?@&m4&}03#)w2^`%a!u|Zdm%Z9RfacaKg_$c`p0tvm0?9{A8$lfF zpRyN6k&4})-h#HZfTQK5xrD^f3p!7Xk6*~i7|@I;28relO6wiRD&R1_1}mmLhCCez zoOH)ZESfQLZbg{?gx_KQi*xu_)p(2TrC-lK{=zv2q`iHG1p|oe!4AgtE5sWBKUKkQ z3nM(iMiV2XqAa<192%l}AegV3kIkv^U67Tf4Y)!ts@XQh<`DQQ?$q;ASK%ue^JC|L zTL+Qb#x)G4 zdxSLYF$}Uq7>i(32?nG+=!npbpsafcT(+ZXsM6k3 zHKgaKE|WG-pz)lS!S^diwU2~G+7~taquN*RWyI^GeT#@d<4c77$uRAU8kbq^t9OrR zpQ0B&Q;6=@KWJ{jbi;2v%g`_`M9F4laK+{kd^1*;tP;EKVuH+00qFwTQ3r>=zC%)p z@gsBU66xp0KmcL&8=OYM%cI60xdC+gK;Ij#K?kTtSkeO_R^~(ts z+B@ALs*Ylz`@MOJ{uc}kZe?zg{d>qG#2{1_6f;MTl_T{%7GOA+U~WB^kb^T1G3mzsPFkLR)4TDnN3Qowj`9NV6JASp`-ZlE6ZB*9qd? z85m>8cn}v}IEaM3zsg1RV(u!7T&!N8wv0jL3bwm zp;6gYGcx+LtbGQv%B9wRm$q4rZ`d6S%lPJ*kmLQbv#s&v{;eq{E|3@dvOZz&*S{zAVm0s^Ms{Uw> zzmH?AZ4ia=sk8L@G6AmecQ(DHjPeroW$+2YBv?z<0462_Tg(hnEY&p=0|sZw?-j{f{PN%-uvxGNBKFzTICe3ZugJ;Z*ieNU9DM>O`Lj|R_{@q#%@9!x z&D?QpDqz%Rums$7OktT2d+Q4ZoOhq$-J0QdS(I12EpZfBgyUDjN)S-N={TSxPzx=<7E5z>9e>q`c| z%4_5Mn2ewCrYvKFw&9;dlQXrFPfw;BF4sYLVL*a$X^((0#EmgRM2j3F=TPk>nrK;4yeMo(@(H@;e7Vu25Z74 z@)X!tiV&SogahIh;K{A_(S-PNnh7O}H%mK)a^siklU8eYJU@BIzq-mon*jfXh@`HrAkg-!bRzE_hI^ge!Gb03-|$O`>1~-ABCP$ zp6V`L)*H%+_&Tm_Ics$jzEs97^U~?2woN>u66AR$&%>Znch>i=^qQiGaqTDHi<6!N zA$3QM_t^e}A(1wN^;B&^J>*|8y1)$lirGSMa;59ry0)|p&Geg% z(Hd)Tgh{~T*|T*fDB{`aTsV`BCJc^e+jJ6IjP2AzLy1S?)UTDzl$0_7>M+<#(XxAz zgj+u(;ioDgFWx|c*pz)5N}KCz)yP$q!IV{1HVcc2BYaznV*~h?`Xb~nRs>;=O=cRg z)i-BtY$18pa57J-N|IqIO}64nlD{QQ_&c+1kk6!OnRT1gy>NsW`8n%m(QomN@kPWc z_h+C9cCLubA{g*1cgb|Q@h|VmFchKEa_fh*vRshCiDAB`Gf8)Pj7yr@hq*M`Or2`o(LkK3V($I+z- z;TBFvJ8)I1Qfa9N6wOd9#(%3zC`44I$u?wN!I+Ey567w8

5J z70fRgigA+8^E>Q|`6ggua2EvKZj5Sp`HF1%v;%2!PQ$u>rRIn_TKW8kL_;iL% zhkiX68@F;^`aejqD@5O(-4ujrN$DiL(!Fo)CP;{Hk zW49Qe3L?C#6dW#7@G_1{<>(|U53he_Zu8ahQesX3Jumhd8SyDHhioEcprwzw^}Lba z^@w;Q4>gdLl#=Pqk|_%Lk}G;TJ2q*Qcn=%Tivs4R||VJyr5Rj?&3RgK8( z*0b`PPmu;pA0-X=0*z2*&r@al>ry|U^N)*|Dikw+Q& zm1^Qfjc+lk+G9S6V(N~&Wk54Rq)%zoxx}k!@nustLQ(Qr0dSyK7>s>9z(OTS3>}iNE1y+Pel}&+9m*!leNb(8= z3RmhaZD_ftTbwP`dSa|owVR9yrju$%wn8AKkCVAMrYRaph2v!w_vl9<0^&s1ZQhKNAIXOt-jc?bIyOK^4kM%E8<2n_#G+EZW+lSIN$ z@WU@hRr$h&+Uxc9qjRSVm5h zE*S5y^D_nojwK>(`4e{lP*{XWwC#s{#)m9Hw%ePH?Ql9ObZt#l zqikyT^QVvnMhvo_{EM0{h|;`?Tb(Of=pqEgHX1MqyHSxXp5gPh7!zrT_LvL!v>20l zmtG%&X+&U;{Of#q<>Qr^^)_?%^4uoAoh`;LSTShxy$sD5e&6T!zcU@)m-tn3U&mGB z_Xzhk*Z({J?5-SXj6=1^$=_Ucm*>hKMoE+2cD>apuosso)_oHbSl&sq>DTCCQFfLI zW1tf1i+S`jB-+5`B$h~GM85N@v9`W5E_j215^EnN(+aR30>?yDlkkqlFH0UYieKG? zkqG>%XpXeaMH|Fa$BTb&I-=Imx`bI#Y>)wnNy)GQLKdk zI`h>kmimIcg(!wd>!c7eme6A;D+S5o82Wp}{J)VI4HI+PRm<@_|4BDBm^PPjsnx2@ zLSFA9Z`5eLMs;NY^HDbRB3TTg<@(X|55unxAK=_1lb# z#VtNSInZj1?3`ejS^Fcrjv9BHHAtgU*V14SE;jJy6J^8F^@hYrOV)of`7BgZ@ePze zC$kw?v@+V)y|0Er0fK$DyAOD_Cb`NfA5$2d8%P&J9_n1hNVj>qZ;>Z>$nIx6 z-GUOl5!>+z$WG!pslo=&!%}x~h%kb^5v8*!_SDgkh=@MdJq}v)z^_(~V)`n93TOwN zaT(JGD39&F-;#`uIYTnKs7%DfNJg1Mv?0)-wjW4exM~L~5?FUF2sB9Rr0W8E&NA8J zI(`Hku2g|(L)2U@60))6sDyr{iKRtjNUo$o<&nkGj_*Q<)!CW6auL(#0knu%P6s{` zrHVe+g^93URh~e+v|mIQRpnHB1A?_Jga|O<6u(?*9!t&hoP!^jU|N>Qk(%B8)lR8+ zP%N3q-GuYssWXmDpq?epgOmV=e0GVZdC#y z5!);?XV}p#LB$`Ox2vPBk_%C~4Y;Bp~@SwlaHP>5B=F(yczEnU%0I@abtDD)vUc6S=;NchA0 z!@x>r(IqmAkmnZ^?8T1aJuA?THK)o#XTGTDJu^ks7n4Yv-dR=twG$f9_JhzjKSpoi zQW+I;l-OeDa~g;~7v{=YW!m3sGe3;y^(!c9z5coJcg3-#34x<8SncolccTmz$7KE} zyR3avG#C!Wu1!^Er3w$d%|fyvYW#+4mc9FtB+iK%kI41`O34-jC6n4{ zN>DEzMVO}cox|dTjK0d$m;UJ;b9$Yr@;0qeWC70DqD&s%wy_6Ak}q?GVzYb4AG~EY zTxKUP-Y?eg0OmbZ% zL%}Mj)-)t1o-#IXfb8aO@F6(C5oXKC5mno z%9AZC5iZdVlnj1TFzZBa{QS8ql~g9gxHv21thCjcJkh+u^gNsR6FH=;`5v>7mTP= zv}G$^R1=2$XJpPY&}zO~JN#?a-j0d5p7_r)x}uOh*Lpd@)H!evMT^m|HpSMg{j7Q* zlGZ+RcY3w?u_dw3?ic5H7|D44LtvdP1y^!$JU6-Q&nZ+Z7sjV2mmOvQUkNdi6I=Z) z#?nDhC>AJgMsl&|&(fNr?Dpn%C191E5WUFATSQp_V~7NJt=ZuCmjz0J4bazK=!!?DYfkwJws{$nkbj{5Rspzcji7eQ|62tf3n;&^ay@R-uXjdEHGH6-UV6(nHWOV83xJS8hDt?yJHMq~SL&I}S5xu?JcznfR3%jk%O( z+7;k%!akhfi%%N`KiU%!(^5E&JhblQwHn{b=n-OG4Pw78Ci*+JJ0h*hENm z<*zuvSv_H;o}1O^Uss`R9KdKn5kNUZ`HkK_V=4k>=i`SzbSm#&JmtYzXFnZvRRtUU z9Z!P<9QabjFuRg#T*)5y1Ne#~~PY9zxKcs6FIN)#%q8Kf?F^ z#O$79^-c#y8UP=!KWEI>649$sQn`$OodU9ePqKb)b`HhIwk$UO0+0cQbVIRP`~7Ju zjo&K={kq<_%+oU!9sFe!Zzuzph-{%iOkhd)sbFl{6B6~5pKKS#%iX+-VwLt1YiI+*q25Q8}vC^6Wn`G~>7?qi`b zuGqM?a%cwo(cdYu+E!1^QDd+9M5btG!x*pe3&qeonFyiS7h4{c$wK(P&n}g@;>PTv zPwPFb4f)qsQ%R9oiI)ph{x(VygHS_Yj7ex>!JE!KV!=~-$T8UUv78sPeiFs>{n@KM zU7jc#st;xD0Z*ocSLua~yW` zC&J~}!vv#E2i~?QxEmv(-K%tw?)3hq>mB{|7@6&>PEvz3QRz0w~rSTjey{ zC-uey>BCBWH zFD+{WS*a% z8IvWU7r>6l;{k1-mrma~9;Bd)A!%#@_Mb*Mtu>*oH==B{ik$cJI$CS4W-W-OcWJ-(qDk zyO{S+I;9;x^^#21`%H68`*h{dOpK5X&c44m^`)(P-4e%8->Xi1J(s9Me6)AyO;qqh zpG*?xXL`0iP126~!Uvq5tzYAo4*8Soz5VRmA)H4&+K(kMJ!?|@=40W)oLJkj8c6Yk z9bxy?_3m|Jqf3qVM8g8g5{YJovmc?Ql;_sxRrb`rfK~#t86W3FO>9n97bWKTBa02T zU3A5r8Xr-;i!?7b-d050hf>tEV-rEbesAz-$M#e?BUYvt5M6YZcG8ZCYtmUq0XA3F zm>o5)o_e=x(AbuxMw{6XtzS+n^Ly@;edG#^s0io+$FK-fwMrci`9xiag5rg3I}vHL z+m;&TB_e3?M%wzVgsCKCA#2_=FO@YB!{lYjMa%S+t@@?G=R1n$2pL`*ZTGgx4Wfu8 z!j--}Spb3s^AgY%c>1FH2aaP2=X?4-y=4g#rZ}AlL7MF=V>3_$;We6>K}8lk97A zh!H?#JKfK+Ym9LmL1FCd&W+EqMLbVp0?9sA1P8Xxg!|c4L1$mi{@Q2lwjTGh$h_!u zUryJcn%XDQF_+oK_zzdCgrrG*9HyL(EnvJ|P>5uMRpEf{KFIL~uhMXv81zrn2uMB- zn|~7U#^i6jh@$s@O3@EV;0wjkk6IfALxHEn>qvH_!EL(rJ`KPJy;3haP7qgZ$Q^4I zAJ)dsjmPPn_#OMZPDm3tSafIYb7J3%0W$q`9#<8J)mzVkVv)jal_Y@q!lPR6ypibLBoU)bIyahT{1Mi=XAQDA$9a zuxzV!w%dET*B4o@cEaAd4dQ2W#DCQTJ-1wj?ZF;B`rpZs{GGU(B+sY2JjB9cG zvWT(x32`3z13ioy$Jpm;kNLYc7o88|6)#Dz3q_5tqpEE~8f(H`fj`hc5Qa#`-@08Q z919rswMq7JK^L!_zDFS+><8 z<&Yn+YcXz1vQmxHpKnfI)?x&IrkX~)&NSv!=4W``SOQ-G*sPPMMdZ70l>Ec8uL>9G zjUoLS_&AhkCGlvmvDVWqXRqKdq+||Gg!(g-mc>5~z@^RyJmMe{fb!6BxWJ4PuMnwLaYNs`@Zhq3jeq-F=kG#x%+h6|p$VP$_vQ zS5Q;w0(?f)YzrbAs`2Yriapt6!00PII9EhiVz=CNU=AAdREhYpk5iT5e}h;^h6lUX z{iO$)`{MD1f6z7L#8T~+0pKnMP3kCtgdGL@r>fV5%!80i22Lfz=&g!P0eah52z}Jp z@hqFrpt{|{t+|Y5|7PS(At*kQoTLo# zO)X&lqY}u8u)jPn?x9yDBDt8}FWrLIZ$oC~=$kVD+&tQA{6*v_3Lj+d#+?93_{qZsUh0a(}1H3zf|YiY(4-llVQUroFa8+XRTPbUci z&Ko6)krdhRn6OS?Y4jdeHJZ>#!rCkrx1lE<7a${mlyh|4!6WPP^}Nz2>s6Rn zTct4dOcZHpA_>MsiO9?3YW&m4g4^yF0f2OwDxdzXshE)XyKVQ;KC!bLA~7=nobLpl zc%x1FWjn$FhyzF(7!St5CCT&$h;A;*^b19x;bz)KjVP)+umUgQGtWoL*bf-w8>Vuv z^CSk)Vzwt8(XV3rTv~ra-;l#99FH}l6G0?&Y5{UteW8!GlmN{`82AFx|zE#HyCtTUSlt3c9YtzFsOYzUD4ctiX%82nj0NrBD7u0&JsB246 z9(S?HdY!LL?o5lYrvTfa{K2*iWBU49;~~Va`l1^c8!_58hai0=M>a7EMQmt9GM{J! z|5uehk!YN0%>OSw25B;0FQRb!gj613yfP-ej6K{~8Gn&5VizIHY~Y4~%re2H(MBw; zaA-$3#Nkqfoco>2@w4F&QgU`K%g&>Oy8=f6vMf~+E&hraf;I%HM%iz`kLgg1wlUI4 zjF`^m0q|;%VYfA6sj4_vA%(2RET^39(krf%_S(l^mQ2GYW= z_+;$gD1h@UO&PmLTV&2y7`HMM^QX?S?8WY6YuffbhP}mT;nwJoKQ}S7ZQ@WNBX0@eVs%R>CN=qzGD~^~!7upc3U$X1s#*rae~%_BpxBYtM-q zPjiR$NV@}h8n@bGBH)k%5NsAd!nl>i(R98}y{3A5w3){jWu|Y&qIe$}gpu+=kJqcB zy!B$koq8B9LEz=-t|c$yt4a!i1kyN$B@}@wz7CB7kP&Ig1HIIR`!IdCY=ca{uB?xk z9H)&!AKL8BU4OPPWK?=NF-w3o?N`Pju!kT01 zzCuyxbTlr}Lq4(AJy1+pQZWew_hZlpP=n6+U+ge|CkP1GzpMA22lMb9>io(ZH8&AW}O zPYGGviYl0?Pb7sqeMIslcRLyPaP*=a~ ztGXbw@ba8Zzj3@}EMTeE7aU}Q2s%ZLD!Ek#m+bs}@*txUHD+YfF~mIeH0f%4h>-T( zkq@u(AoQb1v6Ln4cFc+O^N7;s(`$-lER3H4dy^9WNbVdmVg8Lf5KiIgJ=`;6m?Cf! zY!9jXVPp?cW7jhZnPu*Hx*u0BexP1_XZS^YJpR}!F<~aADyUaLHXZRcD(qJu0c7)w znH0#hR7iy^{@+27J@cy*^NaQKmbNI|)|&&#FV`k-Tna{WH0w<{dJRs0g4CdLHCSz; z@vDjE4EjRfyjX#$*5%OkrH>Dz{Q5>Vje_yWDU0@rp~vr772C_8mt0MpTkACLmj@H)el;?^M;;W; zk!i!ohnsoGaAM{)L%(M#UP-JdWy!M{u}O4AtwW>f?OnW7M$pY=-!XH*iSwdF%s;_x+0INmM)hLw zKU3IeiFxpWuq}i^^Mnx$F7j`js2sjI4uyD1%CgFjoqWBT$I7p} z#W>q+E?iGC(t%}hX%21( z#dD1$J4~YoBxoz(gJzhV4LoR%dGU@n#VBiwnvH*+kewzbK0%n7qKO(mgRaJWDb;)$ zJMtu>W@1`}Tkibz9VU zf!5JQD=mKh2yS>?)R-@r(bzVeA@(P<#7)L)`_)&dtEP0FI7R^2>t6s(|Q7xfuQLd$a|sLdu4jDmIO${TZ`PAxnHz1kUY17N^(4 z5a9&91f@`YHCU;XLYC*2&^Nkg>I1XAvOL&sRXv&{J)$;YR>dEwUTS5v7KSyBM(!A< zT#R6)+B<7!9>m8Zs1PqD~=DtfX1_7ky$cs#$NT-JZaMtjUZfMNQf4} zO>`8(X_r9oW(@BK(IyI~Egn(D5IieW5t)#HW~3nEvqdIT1`1VtV;nda4zLJm10ur- z%QzcHj|w!rZ2n|Ed%9ndp)(#Nud+oKiv09GK4gothYWI#Q>`4-7ozT&*y|dX?vVog z$7%ypTyam-co$iq@G}D9YxMlgru-^n8*7N#ltb_TEKLzIyub`aLv#M)4I$b;=WFcS z)N(_#ARqYc<}}}lgxDz}Dl+-DkWWx|ycK7Qq#G5b7dgr&Isf$+MuiD7mQgTGGSL~a zPMdUBvtYC@K|{u;}$@niY(03+KrUh+WS|5XjMmrZ7d!ix*luiVy9X80dd{uH($i};4C;HYP(T-oat98I;UqL3%E7nSn~i3#HB zI@o~PGPTewij!d~_tzeFz@DnJlS_|+5)wJ&sCKX}B`mV=T|M$W*h2~W`ap+SuIUkSI!nEcrB`qSvgLl<7*cluaQ%SAn2bZwjne46jy{+2O2#jlwA9)3UL{&KG4_|4_Fm*@3df6C8hFW{d9 zQ7p*gCZC8W1!E+spkQofOf%zIV(t%&*0C0K5drEgk19kfA4Oft=~0PLmm|NFF8Lu( zA|!~{wHQpWCZ^Yk~b074tT$$YG6x+wW1OvJ^Y_6q zd_o*ACZX_&@Q-SJ-^Uk!ixOUGOrxzxFK8|l+Yd3GqAUoM5E!Ogh_S5y7*M*i(wBD_ z2KX&iU4}Gs{^(Ds=Ssxhd?MU+*^WkZ?E%Iza0Ma8tbJ=a*7Pv)Wy12#NJ&rE{!vK! zxjXr~g;>cn6$<3%sQ8IZ#3M_zh*RyguLwkk4H%H>lwtP;qf7jPuG>r|xFKTfa!Fa| zQ=-W*hq4Uw$1h8o+My!+ha!=obnl3r=X6xsRXGaOa`KovE31y3ojTXrY&NjX&8oc5 z;la34{#?fBwoS6gZh!|3*VWNv_nQ1OS5W%tRy;QL1W2_x9agl)Ue8t?=xRfyvD>ww zN>4YZT1xmmZ+mXr&tOAD*PheCEI?p9?;c?+d@#0tIV6t*!=LOM^b$c5eX*tcg?ZU+ zef89>=2yPVSDvj{hS}sxPxt?DhdOzdfAHVTI}WE_p-j76BqLZ@QA>NhSQ~_v=#>Nd zX1A8kjnCR6O-hDM`zP?S2lq(RPTP)u^!urNZz{txQ&nAQpHu67an5ndTK`38?XP2s)^6lN0Y}lN}q&EiU%D&?^q$tj0v^MFR zr!Qj{ljGaDtz5S?|9<&pVD!tBYz|LVj&Q$JBdwTwvA|wK-I4DAhJUa*U z{zL&$Ed^y{!`OY`w!N%j_+}wN#ydg~N?aFUx6mJ&9xCw}den_M=>@7kJF8tBoIOFG z(EUvOeM~PJYdL65it3yFpOt}03bAnHHyho1NvpZZVB2npmrd`SE#IMzy$M+yF=F(?% z^^1*_q>2$bc2X;Q8f)}@BID^~=C;p9pRp@T)+~4>!_ZsR}DlqhM zR6o*aD{5d!l-b`2Al&-ORr4Jy+lc+!5m_2d?ivtaRDK6|pjaM#urTsYDBTmC8wYah z;`yBHlH-LRImCH!=J}8wUm$;WPTW54Sf3+4!LxJj$GeBXmcCaUrG1W} zR4(2Tr6=_KS#939y@v0$JgGNEf_Fa;7R2Z3+k{j*_64^cg@kPmB&)C?j_BKdAgSA= zdXDu8MdDsj>^wSKp{=>$<4moej(84!=PfDVHGw;8$yG2|5oB=iWM8^lViVldxWB5a zZ&o?@te*P@nL;RXoP7rI;;&tuxGU_1Sc*OE1K+fQmjV>vp-|DYYuD8Po!NYYzEV{7 zev{tMa(<93`ygK9*|q%w-d7x;?#r$7>G#L&oB~swhbrl9%n;Af>m$MKs@oUq+f}#w zg4?CrTf|kBg9qYy-N)iTrh8%|#U-=+;hpWX+LYm!yl@PdTF|)AGOh2F;%{yX1rMzY z>*EPyBiz$!y|T{xzSFx}dn13fb~=ZML7<9j8neMh@The~B-+nNjCr&{XYkPa2eVu$ z)+gHO>A0z$E{VSh%j2ew3w8VKCGkmphBw#ViD1Log%7lQU2d?>y>7o*z#j=t$anFO zw#hfq^XOht(Yy4+#*J8gnw+4xWQ(JOa`RE5P4=Wdu{UrXmziWSjPgCu@#-OO{962j z+=oBmfhL9!g!>&Gw8yh!7Dz~?#)+euD*4=b_>=X0^Vo>`G84hNQnkC{fHpMoK_OaE zPwf*_=4&}dIPkL=(?Z_FU1osAn6u&-8?;XH$((h_X$sy#Tb&S}`q*l{zHPN*Keua= z&avtY#17-;cTZz1(7H0={JEtiH}&b^Ry}kIv^kGR@NJwENYFfD-nr_q-d$tNl8+i& z6IG}9hSsppQeP$So(;L4H9l4-$H8brp^YDi-5)&A{%T%mC-NA@6Z!Es_rN>ZR?oU? ze~9Fc7ZsLel=P}3k>bntU&LGb`6#T^MC8;P;Wg~xRtAUQk@m3Y-Oq#Dru5~M>NY<5KmmK-@gtd(K`TY_PGN|0u-O+^8S$WW8>N3W^J^zg z$1wN&IOc#2!VQK%mHyH`#rdAuhLKIe(JU*kM{}sxl&I4!rqLpGynI0nkE&TU<)|Me zlvN4dw8i)5*1Z*8H-y z)3pt=Z84v$y~Zzwi!z`LGM&ZD5V5v*AFnSgqvWHw5!7SK!$SE^0>QXv=Mp1VJ2?{@ zYri^QMSRI{jh+(E)ys^OL;rF>Z!VV*1K*(odfcgcCby&%+ZQ_v0ZVymbK%B?SD}tC-r+2k6kt4%NrAe=3uIY!Amt2SO(lP=WEE3tv)$!U9P>F(a6$dzN)J$8=q1OOLjwB5lySph# z0pGP6fUK57Iptth@F z35Q-&l$c+Vs6kb*?qk9nyeU0Bo#WXqL%H%xh@a9nB$*1M1xEz6_Dn3bd3P`WjLqw* z>th4iSP5JgEx`Er7A7I)!Crm-%*2APgQF#h+OIqHnldgfsn7Xrf90DBtF7qJxlz-kJNTmmIBenc=xsEU{w11GgC8o z=jpxznCQ)AXK*BEa3AwpXwqTNuK6XqbA#rXjW`juOx_xTBS6Kb+=V^6_D9$$zk0iB zjZDoxUYUb>@rXg~Vrkja%^D7>tI?EElc5!SHhvT3b2V~mXDU2yJj7v+C5kt4*a|pv zh_iJ6hivTyB6!SU+3@VbGRw7FXa0Z$9hr7=&iGdHrE2wsPN7=)io!7mk61W)qr%C8 zzSW6a)+o$0zqGKjLB3VDaY;RB{gg_ z$7R9AWy`%r<+_htoI@gK!T;x=0?cmjyiY*oW^(PXze&lwER>l5e~VXE`@|L_BG>W6 zx8$0k(HVYbnUeqL+lFYDkdgC1CG1>tJ=-O4AZLS?d=-bjZ}@1d_6R0Y>C@*N&~vJ^ zm+ch;O^c(3?_4ztt#=*MJJ-eS+9OgLQGczo!=SDMr`eJW3^@)HJ3GDLo>Ls<@!*nd zk)AuzhakmYpl@Eqp{y0X?3uRikfg>|ZLd@IJ6*Fr-eSv%=W17+}|zJ@r|Ns7UJ#Vg>4-wRzRLxv6~19!d|lcFk7gHhwnITv%2xcK3Sd+{JCUYbzp0{ML5L>VIyc{hIbw8w_$Hf?H%CNS_b{C( zV}JNY`;PD}Y?}&B5A=j@G1)Eck^AKdqec z81X&3^J*$E1?-%{PC5J{!uLvre%M8x*}2&I42NguNe+MJz+K`j&gGjT-T4IN73;N6 zNV%wB%yMIHRg!$!kSeB*^Q4XevM4dWq>7f!E6vnTN?oe_dffm`5&`erHc60)iPOCVs{MzlxrboHyna}ir3aW-u5nq>e4 zRYs*SohKAOgMRg`)9F+(IgdZrj^!3vcSq!;k4joO6S|r<{_v(^cl05ky+Bw^?PRNG z`+exKJUj37e@)4PZZI3`vep^CFJk;{V?A4&SX1wD9$y*f2n{T>8M z@ArfmDDz{%8|uddPQBvJ6Q+^D!?BySlM~}JFe&$RKLe%aw9Pg8L6}?Fn;PX!%EHYh zLnbU^3V*9{@u{%bM8P3FZ>Ur@NCp=xyZOFP=JhLO(Ty z?-V}Bkz5>n0IuLbG%h|5XTE&xJvnpB%@8r@O(TL5@La3L%sA(5xNXybuDh3#+@9`# zp>5jHT=NR^E8F7h5PVQmhqcuoS;Tc zcu*CsJ(H8~T`f(biB0@j-V1`}8*m>nB8z!l!s{z% z$ZPN5Sb0q~pTxvpNo!0@w6O5|DrE!~ib=de+=3X#$k}W__7UVzQDZmlp;WOcDihO` znUNOe_5>kNhqcH2jCJht;cxTRxA9`|z|(y@1pq`*yh=CTDKWe8d6LdaM~IDR0^qqxX0{;N+MStBHmQ%jgVRXW`}fd7yP8?S0ffM>+K)e9aex>_wI`&h z=mT>F5W(;&mT$IIiSVkyqg=cG!go`5%g4d~bJAVnil6T4mqldoDc+BOkuyF;VL0cb z!;667#f^gDgFhsj^s#{Wr0v*1C0?^g#GuX_H6l=_W;G;k@=KVz(bIU{tdZ5kN&y}` zpU_j~sw1{>#qB6Tp*c&8_J9Hg1(l5`-noHQlD)&w;3QIow>VcFhUDc?Rf6*bGZd-s%>s)kak@m7jdsS*JEKQ| zQ9YU@V@0#FV!jOeZl$S)awt7f1pQP_n4;IWu+e zaY+j=iRvMjph!Q^`%sp`_mnQ!2{*5%gU+dUQbZg6fXJ^ zqd>$#{rYnvU(ydMiBE~~9;Z!F!GhF&X0sj2HBG{d^}Sm#N3KFKF|XL8H!6Y|L+T>J zmVcY4=HU6NjndD8Og}F-r(vdf^kI?uqTT%BU0HNR7!qzx&iib zC}$f<4lDU-E7|_{zLoRZWPSMqv~R?>O;)lPI7119|8fzR4g2rUnEC%lUVNfK^;XsI z3mu}=ZKF$l(MneF7@^GVa&Xm;#;cmKs1VW4))rN;E3xf$nFn*t0?eEn$!X=fSkh~u z?Yp+3aARhP>%;7e%vvROzPv=M@7xV3Q4{Z4K8~>b6alYuC7*xLpa#h&zK9Xh+OHb+ie(pNFF!V$5hj9hiUZe3SENK6;yZ%&P*)FYR@z4 zyKVRr=kD|xOpbpKXD2x>P&s_5>#X`Nkorg;Yo&{CuMmp0vlET0Qde=F0jpxFgdEG% z^5{xUMW4^ojK0K57^j`Qeq$^1dyh={j31`C8?YlEO=F`NZY5d`#dhS0d24u;zHI<- z<=Q(DA#uv(wiO@9X1F~Mdx$PseX+lnE1*7~YeuTuo*QKrZ*z^ow0SP+_nfOayw_U4 zbzJxJJ8P@MyP+GupKYUmKOpTvey{T@;oUEK9NvFU5QCTB;=3H)!(8ikIJ`%>zRmR} z-QoQa*B7~Z;I)5!4|&OV3%^du&+j#UUrai@|H|(;_oZAL_-(n{;r#)>hxonB?`e6@ z)%z8P_ey>X`K{;oKm5{^JD%Tfxv%B=0oN~Z-M}xw@2mX2&F_EtF|1k7CC<%M2WLt& z-Z5k4pSlxOq^GdZJAMNH-0q3Kv(B0{X)^!a{wZglQ{+C^ecsfmQ;W~P;KIPP3on{} zVabfoTv%FmVd2FWXEx(pGyCxd_T!v`&{)#-3N=r~!CV-SB0Rl_NT}p`$SlJpsFg%? zGWcJ-R(W9Ja_r#iIP!URHs$G6Uec<6_IGcH}T7Gm*0){^7JoBZuX}l>dm>W>Lp1y6~XLj`Tyy zR|V;yh+YUtDZ+iYRMqGkDRZz_a)lANyuUtQY1$DD9TvdVZvVA{L~q>FAFh;DHKS)y zz#AK1hwEtim)lp#{!*mh7vDljB7;KL@LOGk>gm{1+R$;?<9z7pRsu)6QcYmY$NNOM zNGbafEgbjM?v02?bK(!Id*PW-HCpLPgo~BH->Tmf4zw2_T>KpQ$V3BY%4wHS1BrUO zoR-iieXD9zq>0x);~O^%wUOvspv&0KVGo6es!?VbLah(rT_jBwR=tZ^{2JhrY37- zlj;e-gcL%1Wooj@d_0I;j#xagD($0*@$)!QHGcDm{bzKIac6Zp{SZr-Ep>tR(YSa- zJ25dne?*p>*BC3wq8mWLU-69a2Hok^iJLq2bn=ns>wA$Lt?qjj6#C8Tf+NCiL}SLq z@`ZWItSAgvRc+bO2WplgVi0`>mj1L4r$y0eutc_TYNv}>I-C#ex%&rvm2`ibzqX3E zlfFO74Y(~K=1}0aYWVEL@pfInJk~dQomv_R=A)`7Ime%at3O!SStqkG3|@y(TJ2ly zcwCyVOij4yFn0bHhH*ek=d5>s=@0{JGeamaB~hxjN~03)93m4?VIAGn`kYE6KpTSZ zdhWVSP>Qzd3(*~GFXzq9i-$A(X5R@%`tJK_u&3t>@LV$*Ike^Y^K<)N&T+he=Bb|I z`<>sE?UP>T)LtGcHHJ%x?KKtFq91vYB4$OGdA2^oO-6oJCx=UhW5_(}Wdb#Lx_`;r zV|9c+xk7v756};kIp34NI|=ePROi`x9}j$zF=wjxY`s&ZGRS~+)` zW6i_WQNw|y7i%i$&kBj0wA=OqYx!inS8=$$+TQH<$FimUB<=5M&dS@;OqurY{W$ybpBhIaMV& zg997?ApSTGj_QTCFk!H{q+t(cqiGW+*p-y-Ls^-0swuIubO4xGaI{99$SLNCe*!_? zq5tjqCes#r4*eQILx$u4>4~g5d%6o`o@_>W#8K;w=ANO$XuAgd2JAF1tqd8!UII3q zLR3pM0q3_O>9e-J=k(GZc2Bkl-O~&lZzINkTxl1kF#{3HuwsS2bcg}gROe3L_D|NF zpim}6vg$M)?>Z?uA_C9Xo$~CAd<^4NkaSLwHaNQo79 zFY$-h)622g>&q2Z>_>7X{X1MoFbCXP_Azazn4DOtZxc%t&ILmA)AnmRliVh*VbYfu zC8<*-)q+HlG(eJSNdLA0!7Ki)PHcOM+vIm7A-U}-KJE{<@t28%JUq}Jmff95{#5Vf zzF&bJq^yPewBNFDEF+@iQDpsXub{~orwMo zsf<{6P$yeL*|#JbOCUyDCG@Jr$IrfpbLQ1NCxnpph_s3JMQi)RWwQRoYjN7^ye-cb z4~jgwH$+V3Aaiy0ym%$%7HmbjPNzRkV^%sXYTSRJB5i0P!5{Vl#c;>kW4@HHf16mD z$UnIEd1_k0twn3CHax*@lpVzE;I_lSY!gQ5Mf%;+5<(XZ=&LSCzMIJ zAC|j@Q?lX+**rVD(%e=zYDPIu=uncz)}*srP0yrrk4#=`(xw#xNondPxJ?jlO96%u zGGA_{F(RT{oo$q`QI;SpI)|*zc-d}SCu1HQSUW@H0|ZFctG!sGRvbv)DSY3o@|d>@ zyClLIulvBV%@8{da~@{+^JV%{3AyWPNxFYWv9iA7fra7<%Mn7DB;8+^)CywV1^kW^ zy!9&e4f4-fOTC`E?&GE9zcY#-z~0TR-}ZmA1bbII>d=>u-eF-GL|u;GQd4xbV!J|}o2K2+@mX5$SDcytWPeRZ zjxCp+%7!&Y>r6U!G+D=z=WjM%dM2~!*==rk=6C2sKCNN5vUZJ8PTuzXrOn23hfNV$ zzlxPc$=-Gs40|5o-Re);9a?94Z$kAXz9U80OeKs7M$X+T500E%wA|jOJfb zvIl1dxhV&KdYW8fGwl$|gu$)U8y9$Xw%8T>TIEfa9Tt4L5evMcdtzJkf?1Eq;t^lC zI(WCNCGlF%&PRUBjc3_ow^5PA0->l;0Z`ygWIPz4nKsm2*Go9>rE<5>8^b87 zq>qTlhcVc*Z7f;sx%BrPSaV%hXv5I8;=sc&rQ}@p1TUUUUGy+OwN<23^LhMDM{q~g?C_x;(WA1q*01fE?_cTy1y~u) zur*6GMilQ@w2vAjdAL3?TvdBF4X=M|P7qsxZuJ8hE;ABS1*0Mn9@Rkms z7%pswO+p@f(476)9c^AC>tv(I9{dlg1|LNBU4nKexfRiBE&9RI!^RQLSVNk<=U#?Nsx~=V z{7J$cE0z!5OD%kp__2J$uTy>V?aVjSmwIB)y;qF ztT3viiReV(;a6i^-6Y#u{aMehL&tv);JoKN)3sOCR_`q(MC2i(RMmKR&%LAya8|DA zJ|>1+z$Ih?rq49CfiMlebh$WLj3iKI{3@SGUZ8PbvMWR9kXNEOKvq}}^w|%Wqv5X7X#CZ^Lk!?5Qb8_Uf~H zI=AHK$1eol|8#`X8)>QwE?}D>)co$(`KuGWKcS8+j`XWt0EJ-CqD-vMAH|(cGuHyz6SQf=9l&CNF-uFr<#^ zHpP;zEz{?%3LaeRAGY_Y9@d{7?07HHu?kLc>|&#~9ZoT4u`!#gMJm(qgdyRQ|+p6Hxp6bDhW8H7ZE+kWO zi&J<1LSE|))c`hmqxc{SRU** z?Xxz4v^TI&^@>Ki7io!@dqPq?yPoUZcsRENkF@?;(|w++l3K@0J-cqt;mK$6z07xg zlXvY|o?T5jYDxD=lwqX6N9)-&rW7Gi$Sd|01FSg9atGKvgJEvH z?^{eGw@ebH;uH50|F?vNov7vwb~E&^V@!~BOiOUfL>xm6!WE=0+&!_xL}L+isWe#^ zD8j2S`umrp+24;9dKT_bq;MfDmv9b753f2O`5mR$V$-cjBa)kQbc?!0B%}m0DA|570Pn9W<&r_xf*e1p==A{Va=lN&RthE(FkvOH4cxDhC z+AdV&5Zs_>44jHN=BsP@YESM=bZ}z!yXW3Kfp)!&0jsiU%!uXY6mqH6D}JuEj2>M( zQI^UUsX&CJg<^I%!lit)AHzo|8NfLtT&N@uX* zP=z@znHF^1XV%4<+Wlofl&vcZlFtv+Bd`!8ay=rMx}4*zsjCfE8wahcPjmqn)C1zi1IEbNvubK{hrn z)*drLGHdejKDsy+>t?a@Y{Y`HD&64N+xM=pk;(0r;|e^RlCrZNXyJ%6S^Y6@MJZ!3 za6*rvHLhTT?0XtkX`zTyePF#;^=Duv8np)bXF*$Ho6MC6$;Es5Y9*p# zT5pRTr{~$Q#WAs%EIue}k7!vUlEohL>36?Q4Y0#w3GrImC&y9DN#89Zh}*7^(@2y| zD^uW)%s1Ke+rOUji*WD27g&1okQ z_A6B(P*2?3T})*WM>q$)bdZsEwcDFA=Uwh=&u=msq$2Ad z@%t5r>~9kZCjJV!K(M8iDG^``!g|t8Y0AdbaYSFVKr+u2wx}#w)F;P7Rbw4dmZ&BK zWuk`BcS;~J08zs_yLK*tP1@MteTdkG3J*SxtE=^XxKr_nps+kGr z)jDS?)?V$@tID{z^eR71C;UIbMo_MXNxz(#G z8tKFJ&|Zhb4zW@)u$OCQees(5UJhgs=y(Mk;skDcy`Rh7o~%b^w_?XAWQ_JAm;zfy!uqiH+0#HWY5) zoe70wDu_qMqYn)D)ItTgN{K%G?-W{)E%bXM3(bP5-3g#91iJK33i!!g+$r%mk+6RFa+BCu@X?1}!`_nZJGZCvmOyw;*t@HR&_P`E6bq)@M472Lme zQpUew5&MlU>7{va69K+6OR1{VTCbxKeXM>0sUznqnNmls_d#vQN^$wiNhlRf(zl~)ugGOqCce?b2l`(89Cuc;zH=VWs?^hb(wr>Xp<}Lb zI^B6B7V6~uniUQKP$zLr6L{$Zt-6hGNXK$bq*G}@n?iXY1NmV>V7d^ zEIz3SOBx__rgtek`HR0)!>m7_xbDii(2((yPgmkyZ#dG@+X*dahCnZAD6Dc z>R<~m^r+59)T87*b6>sYql&$Kd&iajf3&>`cw5z(@Gn`itt28+5(NYZFpUBR2Wskc zNRR<9@sfqujuRUiV$+sMjmto=r8qzqg=;64FADj-(slZEy3KU`rgWJk&_cZg%Lz-i zHVIH@ptN&?SWKX?olW2GJ@?9Xmd;F{|MSliSy%U-bM86sdCz;^{qQHVU~f67cM1<{!ykn|(uPOE?<>O?okO2zagaG+qi0)F76>860Vo+*&Pl*09eJ-WBrUIZ zuHxK0TZEHk3FdaZ23iC?mFm338eksdaQGS@z98sgo3YGa*hn?{s3>u|=E0C6zxd=D1`o3O$NeIniEbiC*3 z>;VruUh`~O$am;<{RPh*FG;ucJ!?I2pJ8PG0zvCbJWEcKs330AT;$S`Z}5J%4r-yhb;fDCK$-&OIgJ%h}HwvrQvxT*UAhBfF{Dq>e!**@*VkPS{si^k$K8_{SKfiM&Y!tEKHr&` zXFnxd^a9R{o)-){o(Gpao2H$?@KRwpUby?}4Ua>JD*7Q$`y0HFEW^7Z6I^V78=s94!Mq2fn8=J zp`_=DUS@jeRpSZTlJZZBYHb|&>LHTQxoW8`W(a*S9K`Ig$7nELzC&=8Ngj_&GbpT% z1E<){6nlDF@T@j1)IB9Ge}e#{eFJT1yHgZ*S*=Phr0W8p(biX~eCy=I7tSrm2qftf zkxYQyX6*TQ<&x;v_n=3uP;WPW%{@W)X)`X^*jnDNhAV)U)t_EkjQ1X%B`+%2Z?w?{ z`V^ij=m@CO#VpW#nxZlYv8)I{MR%iCq`A+Gu14CB*=RAGGH$ghArec54WHG`3#`gl zE~RMIqP!%0rhfO)kF}F5I@6euF?2w!HLLRiB^5Kx3%)0{uuWfZp>2|fgW5@1XdkJC z)~^s(2qBvPaOW^g6R6%_@gV8f#bwRihXyjUTN3VM)}wpe?1E=8*0cR6ws7BA8!=A@#?R#J z9ZXF0qDV!bk|slk)h0cT4E5`KEDuP~UZw5m6FBTZS{Hn3F}DAN`Mdy~skpnbA?E&? zWFkrrNSWT<_0jeBvmn+Jf7)^K_Q=KOTGOwgL&@!wtMY6Q3@2wcyK0uCwu$d_YV{(c z^GBk<^u;#G4Lo#tAxdp>lm=>v73O@+2W)ZYFyhP4E*E-)n1(d~Q^~h$&Yd0P1-Les zzDYVbcV5ulb`72han<|ku@_!)&I>Vl&|Hl)2Lh+hXMW;i8T0H39Qx{hrig2OFx2ZQ zIfib9A2vMY;_5rKeUNVy-o__YyWZG#sTtcWx7F!EqtJfw#f|SuV(YP!WWW^C^8ZR@ zEJsXp;skLod9mcki2pTRM(YhFS}%^Sb-HXQ)l>+#ytIgz?sxRZgD$G815$kWaBbWv zZI62ylPn>>OF3UuHW5)yl?Im7dbX37uQVqCgMJBh(X~C>Pl!oP2oPvpxJ}TS;z&74m9jbZt+jkKd?(dm=NGzYphCgkFwJ7Q=Rk zt++N{X|5!GrvIy(|D%tjs*7 z2N}PVybv!O(93cd7H$`_;=WGLwu-ER6g-ba0lLSW`DE*>fCsPD-OuPfp6#!|?6T+O z>Mu|($S8%2zCTzf?E-t-fqNMoZp3ltVOTo!Ver~8KH(4^qp9#sI;7g!73vFT%K@ez zB{A^M>vHJdRBnnJ(ej-l#fZ{aQCZPr+L}NE8&3*oTgfqNOmqucxRQ5at;o`jL~rGR zEixIHi0`_{4K_|<#%{9XYA!w77C7l<^bxXcO(fY9xum?>z}4{HWkM`0(-B0`vK_7c zf!ZSHz_c?=VRmsY?3vUj&BxlmCGM1{cPDkc7S2{IE>Mpx;2DTH6UxE6tFn zQ^uZ38V;UBAI+?Ze40MZDhichOqxft(MK=h+z3ggMZJk;6%<+XXtT#gk6OT zNy)S;d859V0cUqD?a5>vL{H2KXGTxVjbxDvfZzO8uX6Sf&f7R|Lhs7mOn!pd9B5;uS;R@)TdOV<0un>CW)7#bR zK@~33$jfFWf6OJKu0OQG*K&ES3{#=RRu(cns|L5l0Y?yHO-5*)ujMic(GWQLWipeLs4sb2SLucD^LmA!j=zncU@5qnP`K%7 z7tecHn#;rno*OUh6=Y=<2iaCS8CG=Uws0i6Hdr_}?(U6TEmoy!&vwETdm(N&05*sl zSAY7kvT7zLVraU=yh{UuOVN?JtdNm8kxxRu6`FH41rbgI79fEZP95a{v#!NhOL}f9 z1-V(cl4O8tB1Xxb5J2NDir`b20jA9n2NzK=&r?VPGTbdR3r88D`avY;luZFKY-AWFQ{MIt(X>-$1uBE}d7sjLIi^2*Te)*FTHNE(cp z_#x=d#McYUV@cB=b(@N{JEE2JjOv7cr!e@-3#l-zbs3gHK6;olwf9kt?GcGOHs{YUM9wTWXc` zOG(OTeS&X~ef=~)g#duN+&0(b(P=1Ym+On0OqcvRQErxtf;k`m6lY#fjOdG1e-&BB z$!-y_HHI&>UK91mWa=+Btk8A_kN)A?XHx3Q+VQn_6`_H%*(x65dZ(BM^{A{%cJq9+ zY0Tyvy)vM$%7Gs4ix=+0S2GLB0%~sJ{gTT}mRc@xK-`5U6!}5u(B8;IdCE@?(jb8; z(9Mq*iAkd{?%X6OWgHQ@MV@+-amt~1p}u+%dXS**+)N1q8*;TbPsOX9u^N%Aa%CZH zD-kLmD)+Zst6Tc)q6Bxu$iwfKJ=>OKA}s)w1U_%4iP+WayamVc>=*7tFLBbadoI23 zY!c>AUYeX}DYxU~yDZ#3l)#OfJ@OAiv?N^$HEcRNEOyK7e2TX4#8pGsszz zV<$sp*unOBD7g$y|3Z~DwO#_!S%)p0$E0Ip_VB`hZr6@V+LHiolZ;ih3I1YAjhDD$ z#ga{Nwt_XiE$1Zf$H+!4J_;_K(}q*B%!+qv!xP#hp}y@UrKTT#Q4;DeTXz-pf{mhZ zS}=^XiJCkSckhl>`tV8CcFyVJajvYDMnOs_QVf?h^T`{u@C+ZJ`0B7eOD^2_u6W~) z@$;gA)t^+%AbLN~_62^t9p-zs-9L~OC!=!-NI1D(f8^f!ctG6h{HfVLf$g6qNK?H8 z{L3-EVKOd3oOKeg|N4?9N3UadCuTr2O$Embc2O-yrW74OE}Mw&mnxr`5SA7X!h$D{ z-4%f$Xp1;w;FS1Py{edQX1enZ*otZtoMpDWy$eFe+NS0mj2Hg0M9;=0D~7>nLF8k6 zeq@{Ut#tGtVFVeFh{y#mu8fsjX8e@s*^N78%;o~5ATGIe^~6*t^kE+0JKUQ>d%_co zINs=^MwR1n+oDafKZ}K}y;JsZtYoKBG{H@E+;@OPq274m;KnnG(e=uX>@_6I7OM-p z2Ajwj1Cps4)n8T|DBSIVBTByMVBq14>!_I{AI|pzF#sVf(T!ad&ZliC@+2);_sU5< zrdxY_le`TFcjd=g+JZm((FG)2=i8z$^v_vOuB>V?5-$)RGGE-cH*&ptVV&^vB^jZ< zHjiif#OLU&O?vZ}NoQEDu-v}zk%r~C+*)mk%q{KdmD1RJNrCH&y9Xkl1c=zT8L*Q3 z*$hMd5pi50m9PjvHCftGSM*_;d)u_=F!|{w!B%Wk#hF@nl6+BZ_meBix0kT+ZK%GF zTy9ryKWXPn9_KVP57a*Vmucm+5Y3s`j2Sm%I(tyS{py1S%& zr&)fbs=U&wE%Tu!LLpxeX;~&>kck*%xyV5U=4xyqcgr(r<fFZD$o1@Oeg?@%QxShELh@uU2|8nfGJq7!2h@Ic^dxG*q712bh19boUva1j zDENE<3d9eb5rnh@ux&R1kvrVyw2k@U2HMtk3VYzDi@-|wgJG7M>AZ&*fGD1=A+>xWNQyxRaR8CwOTa`6>j5{20 z4OtPOPVrSPeI3caT#+)`HEBH59TgM~u|zn0k}D-SUeoNv6{4D-N^qoby$PFYZf(YkffLAa;&Ntg?&j0mXn)9F5MUHLzp|FqP%Q^2XFzpGAhDxU50dNPn6 z`siC%MNfFbS42;E!~W=rDPec?#8jTj@RRP}BBa`qnZKp)GE>57fHoLTUHVi9+X#FR zCyeyO%LTgEMb{%z%>c9|PC*L<@-)f`+&V_UIXG~DEBIKyrs35GV#-YoCG8yEwPC83QU?gFho}gKhBQ@Vj>F-w0QCcF!}d8 zZ?dV=2;Q!h=VJN4Ou1~FWI%x~=Q_!W9$ZuCk4#Xu^=L4kq@d<)l=A7^kQ3YP5;v4r zO*a(2q_9_o#!HQ4Nbl1RaEBOrGo$+6HjcKnMT4I@Bgfedg?``a<9C<)Q(Zk7yE1w@ zou4WR{l4V`=}`K0M50!5t^*Um*H4)SG7^xWF9pd&S;_Bcu;9$mTe+j9?g*D^sp{}; zTB0Vy$=*-UV)p1SpHcpqr_09I2_ zNlRT%c>Dp5fx%1I^dJcx@N9k^dUj5g)gK&92$f3}dOCW!7@drTq1QdyQ{0hRDGj~e zGIaF2s-WA`E;6~6y2#VMb$pF3cR_mc3yw4ztqte2+_KX1 z;6;0}nZau6d-6#4>vi;gxPXG76mxpyS}>qux{%d0eTk>sm2 z@$nGw{JlpbqwzVT1tHS_>Tx8qk)BV^cZg0nN8cBEsnvfDJOzJwrh-kVr$4_!&W-uT zA&2+Jd@ec6H!G!)??3a~W*65d{yCKEliI*Re~E8_7sq_3FA!gydi_psymUD46D8JuJ`qaGt$d^_(Xna(6~4<-ZNSy=~t1^Wvy zz^FqVguc!N?N@K8E!ee8c!>DVM8*>MBFlNUA4Xk&2NIXVhDcY1nDxq!MCy)Q$L>`Y znSmNDv^x?A;c>9~V$mHR@5u>IkG?r2I${q?t^%hhKXdS?D;E;SwYNl)ec9|9-Xi=8 z!4kH7nZw|fusmjrN%NPuCsWanzD+gU8N%{mL?QdalkAXXj^#`(KdJUy@Bc zt$IN^ElkB_ila2SGszE8Po~{hNX%3pFh2PZdwbg~@(VQEdj8_LuGI&Z-YUt*Qy9qH zTB&a@aUA&^Tk1{i)pq8b9jd3AtkXZ#7th)_@)qQG0gNh0{}DIy4O~}& zlk?3wC+@TX6kPVWLGlc^veA2sacd5+aIUN3Nez!MWeY@wuPWR)Qhf)hKqhn7Xnf!l z><*{#^flX>hCN_x#a=0%+J``4ir{d3PU8!kn0)$aoZ*78jWe3dQsrE>I_dl>M&6ty zA*%gB@nYpFRvt8-=7+x6)g&8MU2J0~Ux|&6^H-Q><2B4_oCi&EfI8#Be+EGON&ukx zXr&WRAfNbja%Az70E6C-i@Y!~O1=LX_;(J2eA$?cV5tw+)vrucWMu^c8UX7P+K zWp+$d{wsD@sM@ z(I3!&^-?N8|LXNME`58u^zmgd!^nC-68n+gKL-4NaD?J#>Jyv2bXooxn~Rk~px`w< z6@6kOcf24#)2cTd-e!&*CgFFs1P&+4)!lZ_$Ta*VlNhp+&K&#r+? zc)crb5`{#$^Rrp~|#!rF=u->PCk@N$P2IA#e zYyjY?1CNCFq`o&+3PbA6I}~>hN{!e;f9U;I)Y}FY`fg|5OL{6{4y(vD zKk~7?)@!fj%!Qm->nysW_Gde~QnEHhhB%l3LK^y-AkXqhmVK+Jm-}9hu<;-Y-7-8*tMZ+|YUjT7%IOU7C)- z%+#c&4-7iJ3;}m)DeAFJ$_RT`ChQM7xM<)5m~08 z;6>xOKnWas`jI*b}$WpwSEPCN#Wtt7rGq% z_z_)0%3c#m;@p^|41aIt7SIp6*$$Fx2 zpuW2Nv8unw{K2T;egVRGw9BD*qFa#ZRM~)Yw3E)3S&*Xu;?|VHe0$&7GDWwCG9q4CO1(~Qw0@wSITfDMWxpkZ z!Jj!DzM-qweoKj+(=E=N3FmYbXWUYf5xGb^lL}AkDt6pb;s{St1O2z7Q+WrIozqnh ztafW}a_mDCr{a4eRupJ`&J7wc`w&2QBEC(eo}T*@6oTwnxpjD zHKpTbf@K~-3g?{l*lVm~hvIf=9>=1a?S-uN%FXtCkWD|8ye^8(W80!dqW!%Dv`?XJ z^gFH0CFjZ$qq6?^KCC##bwuBiP>XT{+g$;4-!z+a{>d8 zrz<*4+0J?HS@TKrw$5mt2*PnNyPAfrR^@+|3V^@Lh2~mrXVNJ&9{R}{=ZSxXH{);ff3pAD&W@Xvr`kwmaFw= zfSh3XtTbiHI5T+@FQ1>s^JYgcK0!GV-k z?vpr8vE*mN`hWDH@QRY*1lxdKG+gka)(!sr8PJmwcI%F#4)3#u!+V&|MO-i9v!3g} z@NLWb|MJhCk>wbz@65`|OmAK4y9S(hEz_GM`KmLz?h1#e{i~pZwW~1aCMusC%ld=;CRUreLW}d!Lh9)%;hT_sK~ z9_A34-pu4>(UAut)6LSK#c(Gr-_jG2hCJIctWJk^kA@%w~+pl`W$kKjdQxDj%t724jXR5FK_~aoj8~c=wX8J5)8w;4a0II-4S3p@a-ZE~ zo|-e}D;KQ1Iqz6}L8@Fj|M2DdaF;zkKUJ6?aaNVD`G_Je7#0<*BrYf3$fTaXWJpma z{J3Y^#2x=AW7{PMH{`C8ODW`;$FIouK{26L-eq?s8SgDiL{;*XP*68AGo? zhA4V=8j#-i;0Hio4-tV%!|!3Zx~VLO)U_B~v%(@s9`ywzM9B*ELc=dJz=^BEcT7597w?GDI0r_pj+4>KOBeT zf&O?fpHcprv3DB^BF^v&ls0FP44f>tb}>)eMyPjLndxihO=TGxz>6jG(w^ z_Fy4jOxFN_RE`fqypG<&&FJEkJ-M5+rLVKv*HTm4CiiFAIM}?Lg~jR7@5RhnkxogE zw3M&yYcO_CCMOl7`hldp4GPFrd~NVL6dQUkOyqSkZtA%7gL#JvQh4~eJQategmliD zX?cz)R;r&UIBuTr%x-;eb&av?kFrE~EY6yUb+)fN1_Y+ldZDU;a%np>)Uscwh}9I` zid=ykZthgiX3iIu+<8yD&-YqkxwN;rqF@>}@%q!+2}j!(Qo%33I1C&9q=L}#-i$~& zrRD*cxNsHGj_$S_Tb%f?<|2EVRLgBHoY>?BkWH``jlvhu9c|nxh}}2ZlsB?0O~eEA zk15UnUc(L(qM0wVg-I1vpXr75Wkha-R+eklxEExNy?_H_8GQIsaTy!y z!Jl6n?ZIf9>Hdm<)Oc2Zw_l)i_RuT1ty}MfYG!(8W_r&B+n!fPp(4Zb)OX`=b`EHNGFC<#nc#`5e3AWm ziJ2)D3j{uXlz|X~8O(~;r7&c27bS-;x93gLUZ4fJulrGWxgKK*!}fo%`N!#P-Iet*)_;sPKh~A z^nfqok9JcC<-}Q)X6Kfhy_R>0k~299r|2SQu3fri^~Uprs7IhMg}L)31D%(EIt2*m zgZLqfU@u~S4sqjEq5g0!MV-0Lwy!te%f2Pb965_JP;I1`YiZXp$ZyxQ6Gii(MP$E} zx&L)~lp@`tFB~WTEH# zhwP61@&dpil+df}!)n&tMJ7V@M?OeS(stXWl$4-z5~abBB<8XSbIE2{S5s{iFd3{F zq2%nrG9DEt_b!Sti}Y;G{Mh0BIUn0!&5!K5H8iOlQk5@eU}NefWIfLl!paZ^)$eKF zEm!^8fQ`_eXZr<`B%{PK{cMk1I}*1NSxtrSQS4S#_wlcBxkD}s_U9!EQl6hAu$_BK z4;7r?40J-7OApOJC#=gJ?3&R(X&}6qlPMCO@AugCAxF1kaN0il6`YUj3PNvu9*^Qd%l0d?nr5g)X*VmWe;-_7}`JM zn10as(HlTWv6-Vp72+MJ$I{Hw=alp5ccTq|{qA4@vH=)1JX~11jSa#gohPqRi}$&A zh+Lq23ui$^LdHtZG@v8B)?cslR2)_sS*+4GruX+jVK^SL7i(wcu6Ahs6Tk*1JTdtZ z-f}t)PD>Q)!wVz(dGRdLWUVfZuNaIwzXrr-ryEFfENt-M35s(oIG&us%hju8pAaPQ zPTD)^O!30VE{>C+GMdOBPx9lXoVMy{E5>{Fsgp|0l>5UBPOcC)&}c`h?J734eXW-w zX}~Me43^*(7E7r7Fn{QcTrX}iq}?d!Rv99?C-sobs~6p>=cmINllJy}fKR++{mn>L zX{TMQ#VNC(TU9={RoQ<`@6OZSw!=Kl9(q+fWE=V;fX&hSVh>{wTM?V0ib$KvvoyDU ziBY7?Wj-CJMDr95W{wQX@ zc7<;MPt+FM<(OZX-|}|h&22}5*`DtYA&_=sG5haW^j>-k zOXmpZRE9qVMav#~!yE)CM8?&|SU#JUdJlPT6qH*gwK+qBEt$&ujcq&O=~x9Fqi)8~ z8?+W6!Afe9bUZ=&Z}QB8V_Bq|Yoq`$_vpY#+eA3=Xv7Kz(rW0)iQ z)i#%QqNw$9eqM(n$vHVbpU?s#vL>I36`xuVc`rFN?)*Ld;^e*><3|UCh`9B}04Tdy zukz{3eEKo!75g0hrLhuUyf|&Z62ocbaBQOZc`R^p?2tPjZ;sfad?%^_iS~2E-M3-> z(z^XxuYX}=57L1$^H?LQ)nBdW$jVX~&Xq-IVB)ijIPhG&6WYW(!Lp@m7^n1weqeKD z^wDhF2CONr^DXX_BFd}T#!<^Tp69x?BO5p|C5J(Y5g(g;t=QW4QmPS$*b28+;XBft zGydk7e%g&-v>U-_7bYJTKI8?|bH{z6iR_(Rz~UaC0tZFdjJiPFy#xnH?P2$^Ru8nJ z82WN!k7V$CbTW=K;LO{?lZhxcCiUnw{yI)dU466ukV{*8knB4*JS__g^9H)hz}C2P z%05F|+s^~1z89x0xMxW;Xm9&7A^lk8_J{2Yw1)#Wba$jjT2fc=6BDAS0L#JNn#~x3054MAZoiZtKf^Z0ZaR4v}8IsoRE>;W~-6`@XiZ}rZ z({Irc`I;a3v$8Up{?rApp^NG+IIiD867jfif^57ps)buaBjG}D*{8dIE|cdNQSycU z@`1PF?%UC2x_7W)VRa{F`j18BqYr5a4Jy$@@!y0WaoqsxK(YWK4vt@9K7 zA#P=?Z$d^$3X+abC1^rkK=XI_abwE{XrbY@*(`~I{agg{2#6Ue0tAj>#lL8CQ(=@A zJ+4ZnpZ7anwfmkb*Uki5{sYYITfSnPE>3!p_J77zS+cKBAHd9jpjsIK7}Y+q%X3UQ zRvy6};dpJ@EvfJqwMSgXTJNU#0;eU+3)jg)22$RQBf^KZ-Un~vd;xBD3{FHN}BK^rJ+#~gL`X}VTAv}z`f<;#;Z;xz}glUOJ`%PyH+-i#|acaXS zVHGpPix-E88HA4&5vnmC|7r|l$6BwAy9quh=;`U1OxCZS%z^>Q{3H_Bxn<9UKZzwR ze7&9#?^M~M{@Xg7RhUX$pe=KbP57d!fRF=M0tD-w+KFSWg+R}9o+d>0Vp4@k(q_=siB!0*9)6EkvsB2~vDj5#W7x>q!B12jm+Grg!$pjZ8=NV$>5)(A*_Br9 zJKT~<_4>Srd_(W|oXC(^q^k&6DuzLjrQJv}B6ZQ!&1_3<#@%^i*0C{su?AD2ARp2% zVTAeu*Lc8N__D@*GLkvB+7%Y3TDtbWcqeM_Ru#ibX*%B~;^Y zB~2xo$Gyo+V*;!i)b|JJ_EO<*ib}_LQ*E!K(0S{pY3N*RLFb&Fh`mxkFt#|k0>4N> zB|>XSU`Dws?k>{VKAZ!ZIj&W%aJDrrlVFJkOn6%LF}?+F@IRqe*I3jF{|*r#|0{aM z&aeDw@X_OBkJB)(68nq`jx!aRsBt=hr=yPs*n{*{K0SqFdAm4LY47{B^(gT_h^^wB zR#$bc(W~56T*LvlZ>GT9HQsoomz))L^D1&Yw#ut#WACjXp`{aJqU5=(Kz7Dqnw*#3 zM1}B-X}23~J>h_N=qZ99wMUrp8?;B9sqnSTana8d7N zS2!m1BfYp%sonbls z+ZTQ7BqX4-mcY1tGPlO=$~O(<5tDZRl$V=V)QVIXhKS-1bux~=@xcooZ0S-oqFlS%*^HF;a~ zi;UnF{pv44GfFw@yMSC)Lg+!RHGVG3(U=1 zto~h!5y?)LYs0DVVyIn)vX+i6Z->g|BE&CXEpMgQrF**+qFXJc7kSe+XkR*?yaw;C z|7-ntgCA+gn&0XDQ3w$m&@#91R7{*(6n9S9R%C-Ha0buXS4w;{7J%~e{{}mCxy4S! zodl6eC$2HOX!2HP(I5-{%e*9}la#tR>dh!oWT;$L(^iWPL0^Lw9YSd(UV^yx&~gIF zPmG_&PW}SU^9Y>akK%#cY|PrQr|tH*PdP2=FByZ2a0@sr*c4xw(^;AwEA_8Tlx9v! z#TL2}rRM4{4FEb8s9+HJk&|C|CP#k1Wc*T9Hp};y;#gT~F4}ZGztl^dQ(fK#Du3cu zVIkU)C-}wj1FcH9KpVNN?Y6r5-%`PL;6LNDH^6zrg-e|p z>QFxJ&LUu#zH!cTBMx>AD`12Ansh2GGu{g_`{w0aTw43v;Kp}F2{5L`f0AE}F^>A8 z4p9t-MDpj$c3vYER~+Xzpej^<=cvDx>hGQEZP8u>?$5oC4UwoCF$?{3u z)GS$jxyA!LLHpqtgq$C1C7SI5%V<24HTOI=;aXv`rZbmm4r^Y!c|L0r**rD+L$biY zRqijE@ZKfv^3ntP?9@eVtC~p=HkRl=}R&(t}!U!YX>^1ohUHnx{QE{S(ii;!f(Gl>> zpS&{NXj*a2O7p9 zBJ2xM>hUV#mvH+do-OcS$|w;pITzC$ljW5h1BAjSe(2Hm0~A0M_bKoIhJd4&9*g`U zVAE6TINe7RB{~Tve3Wv5y=RfG3g3(>MY?AA1l=B-6U#N-zkw)|b?ravhXLzOzDs zN$rJ-417U$Z9*@^SmjRJZ`Pke*~J;XRJcbudBFWhc;(_#u}Y`BUhB6chTj3VW}7Jz zKr4&1ZU+PfKTBC_0k+n(qoujWC^8_;zLI0n1o`nIKgRC}X?&KgK$15Toj{Iv1#BgM zh4#Xk3ZJ+)xdf;y5nRdNf^&!@)_wubp9OW~@5TSchLLS;7?@YgBV^$!Jnf>t=H2=U z$Nr5cV0JgG-e?M-!$j-+|Jn;8rszS~QIh;Jg1!kqTaE6 zVlN)e$z^Au;eQQ~GS`?aabcar7)*#*lioP>GjNgz_1$@U#PGaX9Se+qTH5ssp-||O!d}9{P2R-zNRCWI>}f~`~ezATyb)ZKU`}0zlSF@tQb0s zCd}8zMAsjW3a8=U{o6XYr{RwP${AQv_@NBi@s*gDaL zbQNDwh~INzX4s8GdFw?|$d&XS-?)+27DdGA>17=M^-H2BY9n{(n&e#3cN1PG$9Hb4 zoTYWo(niYAr;JDp;E2Qkj#Ng1+OM}#e@f)y*q78vNxxPnCD~%x{iP4ulbPi5FY{Zl zMEYlG`C_ir^hE;COC(XRNFP>)k9+VA%$ef!qPF$&h0v47Q9s+NGJ1v`c|@L8+0lgN z^;odA9@=@>$YOcN+mP3b=d=m<^utD;HstkK_sJQucBdA?bYMgAo=OVO!(j6XOO z8jMbmcsh8~69im9k+TFKka3=AP;m*`aa3Yrlbg5m#*|*;QyE?4bfk=D00a>+i;T;r zpGh^0lF0MxkJh5_Xhq{~pIJ+`2)580M9vO%i6?vO)%s%!H6^ij*tb$!GtU;e2uPT* zFPF0h#`Rd~&*Yegjfp6gP1qELU5!eRl91o+(&*xj zh-zNlS?^uB?B1xu>)w`zr@R@?G_f}fKM&P9el+|GE;G5fBRz+lsiAELj8%;jsE5_ z7dNUSlVaagSIG=1S$vIWdwmf}uObu4Xj;yRZ`UMmkwx=qeVZ&1-MNV$0C-Kg4aszS zWjUF$!fxHUMcqPQ?;;YAdX?p}$)^X@aVuyheuaJ4(WP2GbNMXeV{^zlwP)}d#WlHL zE#VUs-!7A1XKW$fiFmx_P`NE13w~}I7|9S~_p22EBHl@Fud zkSLP8NGO2Z@+-cvDqV*6+f21klrrWo(R@UuZMX_${)7Qq6e}lw1U1`mtbD0DP!`<_ zhjuCJN>elk#V+A}vGO|&FUh^&aG9a2&HLtw0n=%exF9mTelRs1?DfZUM!@@=U6nJB z_jozmrrH&K^Mkths-n)ynbF(oB98v7WlH-W+P8X!$$xvcIk#xTi`Yjd<&?HsglZhhv5qmsQ!Z*1Za9hxh+|GjvA)HLYeP0#8{nO(9;*Gs?^Qo_Xd$vEW zYWBPni2D|7JaNxEI9>guE9*>mXBOi`rioV09L?OLrf*bV?iXb)^g^;e`*jXa6SBH_ zm~j~QZ36wUK9Cu0&8cH;bCKeThH=qPA2kONlsa@Bn>%OPToLiZ1;mTrHp#Y+HcY0a zV3+n=McyO1}7__iLc`;-(o-s6Z&C20Hf4i%Bj(F;8ew7e2rz0a&1;m{19K9!BkZ}Lg8DT!hy z5{NKW7EdM2c3z3MXE=imsXNU;>2*G=L$ZhA_$_nbv`gwUF6I$SNcyvM&vlhfngl(Y zW$z<#jPW~G92Ec@I1R@L4ggf;MHZ|`?gevNBFt&|yfplX38bXl zsD<4obpGE}dX94a`0qg|SYqWD*Pau!hBr!V zk_)-kpOeil{w?`CS3PdMLf@jeDOE-*+-SoD9#cO^cYRdfv=eTqNE^;*^(iA}@)Brx zV{D7GNaWwsm~|z}zM>~I+(HZ=ZVY|R&g$CKHfdD0p{wo?jR1+pJY!f8< z;$KB5)bhTrUYL$K7X7{D4^&sHuMZlRL-^rru3_ z?RSvLK3q>$4@bO}_4r_!m+MmgJXn?^ zSNwUfEMKnpv%aiorRN|Va9L%nv{LW*KD$cH(bYi?x>V2+`#*ne$n8jBBVdPn7eW#?(UB*B&lNAWe7?<%E99B zbKLM?yvvI84w(k>suslpo#aU^s*ZO=d1bY+tV}SWP#k5>hKFzsn5ESDx#5}V{gO;v z)m?UgYnLO1*u>4PRdA-UZ&|%@G1?OGGI5d_$VVy!<3BicfS<9S3HVnu_L(%kws{e! zf^r10v4TG8n}ro*$I}}Z#VWk|X5k)V6#+e+IG%TL_DvB{O>omX)u%;7m(qy@q7toQHS8=Xs)UBH=TM%ETGpt8bEH*0>7joBUkK zgrG^)HwEN&y_A_n(koWt1Ksc{3hou=RF*G|Wh6>0Ugu8W!`Xh-xYMXK(UpVybss&5Eh6)fxYC zkD6HRIhn#Ko+t8In`sb_g6{%THdKBO8v&4en|ksuTmlI$Ss5xXip)9dOw;R`DVaoU zdnu#(36bWSIRuOzGTTL*jV$b{c`Rw2v1(ABKk|-xu05w3mpq({@Sj3O$6Q zKHAQ-lc8AM5Ii7BaS7+8!3vwrrN?1)0H%w!-+1p7e=8|&V$2wZaX`2LLH-$Y&YY%) zu-7KrzV-U6o!%@y_kF_Yy$S5zhUk^vAgujW=iI}(T=pjp@F*g>O7J3HY@S&6OWH&> zcg|F@`CyRc!Bb>$OE_N;?a5df`%Ffsh~C#Q4)(IfYmyrnG-^C2vFk^Owd#4(rR}PX zon2;mYV~Y=i`tgdo|@Vwds1q4CwVuLrx2Ru5koO|S@eSX7HiW2oY~gq3xMb8?#`8Z zaplTXF)66aD_6$us-)>UDDyM?}`iCdKrw?4t%We|#b&|0wC2!Rmr2rFbK#(y#iyr1Xu zJ3byj*USfaI-Pc>GeiA%Seia_MocESZWgJZqbHVzD{A#i$pmVtNaipNkDJr5mao_p zmgSAh8~WQfDkVuD*}tN{`MRkeamSuiSIZmv@bzqvzAU0nn9mA6tNC0=hoO=``2R-o z2ifmc2W6MTe(6_xd!5lX4+*o*W#;i*5Fma(_Ncp)Yzra|W1)3pSd~%RFx2XgwQ~Vx z+Q_)Cu48^NfLaJCxnpnx#bRp5$Fge^BeQiqr^(;L?)?5ua%JmOx1)a=#AN4yMv(hy zSw>ogP>UPl@G|{|rD)Srzt_5ps+;a+5>wOf83c1TAR>x$%1QLkw`&P6`2p`fkuF$o z7BXu!PfSg3q77}QcZJ!Hpl4!VRP`lg_8^?qseX>*y3F$kz4gr#nyPuL{(!5_7=9L( zfrXuVs*}zebN>Ji-i;&jP9N5=k0UE|mwrHdYk1U)sBmvG+vqz;sbQ4%x6#`n$WpmK zuiSU*w`l>*y^s*}=T~l{(5R4@tzwJSwyMNz#hqw>%6`hOzp(#ETD3?uQ9Hr zPCusif4!bO&^-kw@=kocpf|6#VE@n%*2}Ddm)B+F9nyC<7QEcBP8^qe`(At<`R?dk zxDRW-(puy6{HfBGN^e%FD&t$i#I{l5x1o9m5Ml$JV|oUQT{vYmut0G_864_A*KQbB_Cz z%Kzg<*IF+fv63dox42pOmVGvBA#RPI$m`b(clh$^_}_euEHH}*(pAz+~o+pegqUScfzf!Z|#_Uz^}wZ`L1 z1O~(mF7L}bq`l(~U$G?K=B~q(Y!okG3}oUuQyaV4aF(fZ{H`~e05;5t!eXURV2)wY z;yC-*l|(yE!)-243FBTQ`W5s!_$5z39msZ;N@kn7LlxT&@m$3U;5=@bJQe#6!AuCj zgkGZY*x>+)RTzN1&q5eFu~I^TRV zE%vAh;Hf6n{TYOG8&jVdYskz@cT-mQE$A^uYZu26d$tB(u?LZk)&Zam#I|Qd0dBR`o~dL-VORV}F%Y&rf=#t!1h$ z)SsD=E2Xgr>p?o%Xs1a}dmTVEjaq%pr|XPtUL|Yw0t9g*0L9#H-~u>L&uIk1P&dW&(#LtdLwWhSukODBLQJMM2Ps#3ZYP%pd0U ztn#w09C-;xnYX6~_f*crP3h0GbjAZvWeHwZZTv|%Xrh!gxx}xa-!of*&vQbjZ2c zqB&GC&MM!7kjy~6r(L32NNL|UHx!-_FLG6AWLq0*_BQ=$N~X7I@USqdGi90Kl_R+G zbr4Lxr*IaowlfG0h35zky?Mu}lx+6F`lk0)r9tLL+bO!<4)KPQI`09vdO@js6~g(X z-iWNWfmGh}2=})tlJC_*w(!CovS;Ky4}eLqyZ#dWb^Y|vYasTIXak5;MLuF_1(u~+ zIZ=4}Jl-WKqJnkC1Zlbt+n67G3eZ%fJKg+kbdjo!D`23S{uO#vXM|3lPSrQfa>?}` zuE(uqxs(C9^lV%YKmq7;n)vRN7eZ_yy(1`5pkEE~3U_1QS>-PoEB_?r1zT>WQUi%Z zgn&OaSM`PzJWLIW19_jCM`^?x-|V@Tm@)YS!8d*h)GMIsj$wi0m(8gKQKkq8S1wX5 zF-(jRwdfS;j8>o|C4a(@DWV@Xid7*AS(#Z&fhAHvN{%Ra`sLpH>e3DWMmzle_hQv< z{7$<(-8=rNbe4ZA&zo4~)yMcJ@B~Pt=D~2lP)1gQ)n$ zH7tM}DVwLO=Vj^g7QZbiqH9#0I(^t^ldCD1^Yz1Z z#tB3m$h)!tdpH?kGr^e-wUEAyn>b&Eg$H;j5eN(whSM0L>HafUky?_$5*etHn!@ zuuWO}GO@=c9eQ1GltWefuCk8Eds$KvswItOjig^{j<-3Z&iLHt5GsU@pY`@xQhZ2x z#3}m?7@ZYs2#T;p*r0S|qUs2$4s0Cy9L`g-MdrmCT?!=Aj#oIH;frb&Pgir30M30* z@8$v*(|Q9)(*0XGd^**1g3hx3N4u&3WX9IidJ#Trtq^tmV{Lp?QFvc#jHS zW32L&0`a&OYQ(z(VNF`_N*CN;%{U4X)1?r8qfu^7_^8)zQ8FbBJEMW~)UHz?ar;4Mijr0@u{QAkOm#sefV@ z8>D0qp03yXM2koGn*%dfsaUv@lj(Pw<$~GMUoPj^M*rF!qGEuk@Uo^$fP1~sH>6O+ zga;fTNyRF>d4oM?9Jq(By#~}g8OagM^UjF)aTJ9U>sG)J9#OG|#lw99g=dso9~?>c>xPZFb(EO7z(Dm_o{Wz^4vth$=mKRQRXnyM$%DF2f2Fi zpQT0RLZST7aUB&+j6?ukq3ks9wf3JIqt8X4wblz$c3*Rp->D@^K7#CXA%F< zvR@XE>zvcXt0R~R)M?@l-6ne1!LWBGUmr{C!EE!SKo$sjQVmyqweH9~!hKrvagqVE ztJXH8=q_xO5@VXc!pQU*Ko+uC)(E5!m4<2q@2D+SgEC= zkaO#YLnp$EM>Eo7gfB7WnG)DC_gH3^$Oq&TiV!{`?732o^dzqm=-=sleJ{MT9Eedg ztlmwR$}wp#hYEqiCKY0~zbw!P)E|AU=G&qNETHd-7scV`skL?Sg|66QpJ9*4WQYu% z;uOC+ukLDC9^+i5A`t5oTN``pqfRY#jOf$@$jXoXUj&p!Ep@sDk1X%ga8S0qJvb+D zpl-5KOAT?jxudHntI)pMhXJIz={MJk@Upg0klUTiVaA6J8PAevwK_HX*{7z$>ikZX z_>3xn!<#yPYq1OoFsmUZicbkwIkvl{_iI^&b;clgL$eU{gY5QP84YvfZ4y0kWk+iL zW$dAD$c;RCn_W-p{PZR%fvE6#9w?!0eCzD5=Kd1-j1UX8zkGvBwpfcEjoVMezm+C= z{a5A6A$$HEitX^TS~KGd34~E;Ml<6Ta@j4^^=_y#@Bp802BWlxeIJvP9P2elFXQJ? z={jD_&NJ8XMGVB#@+Bq|-!^Yysx1j~_w0e+<<=+N+_v%?0LV z;$$PbgE?k>iT}p2wjyE37H(s}cGKS!(=-QB?d2 z`Hmn3a%+`BeuP|m#XtzqzUSslzyC%ZTw9oyZAefH-xW{#;-OjNsHH<)ne1nAXZZ1 zj~}Gjq|rfY@6JjK(+I?-HleVdb)rAu%QJdTJ3z+NDt~Hq(CA695t~|s@a1eqDR$&K zwIf5ive}UdtYb(1Bv@t&WN96SEN#8WKbpDF7=j4t>y;+;15u{RvEa5Nv2GYVn z3N>pGN!IKVgdw|mf~1Idrlt$?PyP*&(qWNMwX70pKy|&sRK$2gr#+9CL#p8NC6PuU z^@O{Z6YY#Qz9e$_tiGmt#T#CA{`{Eh%R9Hm=h^ffKtLGch^Ir69qCg;`y$hK%wZLf zfN3e1mByjIu9ECRJI{*DXLH6sBNl)9jz#8!tHwVdAe7|PjD|CdR$shhDMcD+_$2r~ z+VI>KpQ>B`TWK1ZrcsI<9$%#C9~83H7%lG!vZ?isJg?q_i4(_z@==D3HLH+*9KWf` zTV(nMkryJ@VjobL%{dne+c+(;oa_U(Sca->*$?~3ybn1EsJD)y_lr%pA(beRs8>CK zFXa3?@7zk?Y9C(qBaz8Sls8oyzY=W)nQ^V|R~x^4SFM%t{rRlw&+V!s$uj547kC0awSJRtH_WI+viWUfPB^qX0eRwVFS*%fxab(?~ zxkZ??X_#7PokbZp->G=6CvYU{(fvI2>{xy=L!ecKp z4P6}Zq0WPYS(KHgcqwi8 zB#1%<+Si;Z{vsegrd5P zhon2=e+G;m!6k55uk`B=&94_n9ar=<%!q%)qf z9#rvHoj*Ve{uxb8EVz2TEoi*+J*+`Y!7uuuDcMc;%l%kBGLSGt#y43i^#+GU*qWX~ z3(@4ihCiyVQL~gdpfF5G)8q0dEESDHZsOQ$@%eq~d=jyr*=74m^+56KeQ?bgO?OLi zQ~Ziu29nF$V#~e8a=O!;)pU>Q-k`BadWRmxNAI+q`LX;)dZwV(Uz#7m0E(Ts5w6c$IF=!8->7bT6z6&+&LJk@U<9frbkFqd_*JWpR`Iz1Y-Ab4_29KOgf) zplSG7`H&owM2#DZT$=ln6-S|y{C{I7U10{*2`9|qIkiUV*|fz#6uS1s>tuhCObQd# z&R`02qM%f}f>|C^=@a0Vvps<-O65_)u0sv#vS3H8GUK)q)l+N!{uR$Vb?G%;y;i-@ z>ep!d1?RT^3#FD2LYuA1fEM(OIQ_OL;Oi4$Dc?4|!5eB2 z{m7&2Hy7!bKP#hyui@BXab2@c-4Gs;~NpE-#GdB~$J zVb7M$&C?If>WrM=sZ>`sl_hDcq*5w)ZL6dK>i(5Be4S_W?G(fz;c$iW3;B(FkqWEMh#_Y* z<^Z3w4i?rK?Q*-*y8Q!H zB{%6cF$cqQa)O!ei_5MGdj$aQ_%53kk}7Bw{&eW0$aI0;`?Mm~k1QnuQZ3 zDy(rgJ!v&xshW4gWw(nnS-SGit;)L)VwhX2@)xbj-?l1GGAkdIgWZ}2ps(~lr_Kof z39cjpGVv2c{YQRooxl{oUgq?kDR+AB=JNudNBK zFAhCz8e4q#n)1sUkzYj4_khzQkqP=7Q>t(xRh)^JW`Ik73ULOn~Xu?GE`nowZ$mOV=0CW_+bWjywAYcjV)WN;%g z6aZ`XR~TPv{Ri#HgscEZkZ`T-cExhY=e>~MgPVo?Hi>S-QfKiXJbvB&$|}+H13*lJ zzPC&w^!JaSfmFx8XkUi@s4_j2R{Xv9*wD6B>-BqVonoyJ9sF@Nmjn$ zHsSPp$P?5?76L-;_>Q04WDZSroR=;qjm@|{B+cK{8=s?9HbMm3T(0V5PrMxhVyd&` zRS(HK#B>jPHz;D;$B1nTl6dT3z3)4Bua(zW?W2?aZiQ^&^~MSLR`2QNO1d?)1Z22R8J(QSVSz!*=nx{z35`+|c%}gR0pfnvD`-pc;v?FVI6AY?49yGdRRNh_1 zYZ9;6pAxZQ6n?*75CIXJ#0*NTO9|8?2HqBu(eXjC_<%GexCA`8i_9tT^?}{_F4QMR=_funf)$ereu}NDmcXK z@bkb2LCIs6aQ_|1NwHy)wJ3LrhzBg?hWbWTOQ>GN=W(7AY*8h=NObE^hBPC(H@*5U zKIA0dig1g!C`+&8#}#Ua(Wx|VfG?nN&*wvUtwU%Bh)^M+EQTOIeOqQozO{4j;&t+T zehyeb?tV&Y5r@v#TvFe~Bc;9J3#xmDo`iBDpN6#s=JAW|>i?H#yIzwffJ%jpC!5p4 z-CM@yxxS+_>SS|zIICr>)3vDhWV6${y{lMWIGBwR`)D$KAbt|H@^HN{&#F~msmds$ zcUM%VW6B*4{EMilCrM~sp6GI0ER2{-RT(2y4el-D($wMRCYqmkE%BByXgLBJReuP5 zDM*3Z+g5~$p1S=!CH=i^+DdZdG2W#9L+=sZ$R&0A!xyZbnl>Vs7U>mjO2;c@9sU;z z@uAs|v-3151cub1`BKqlLc1x7KpBu)ktFXYS|Lz^0-bAG#CA+!uKH;PUdMV*1 z^TC=9?9|R(f&A8laH94gyj~e>o%x~2Q%zYcKEuJ;WSFs2!%KaOdm(|DBL;LOX`*LW z*cdqO+0YoYX2)6V27;n(^Tl?-$D9+B~j?+G3KHWiRLQvex=Jq)sXk^ zB;N};*d6j-!`2}ve+~P7C+O7!>hu0saaY+&QzSH&Z!>zdla3f&}o~ z@0aAl&tD+ArlWm<(N^S?SXxKIGOs2N=X7jJ-h3xXk(1|l=QMD#G*DD19Szf!wV#V9 z=|p6iKu#&<@i9)*QSc5qVNzu zyHvZS8UUPUJ;q6XrI~q4jc8p>#Av*aVb*et1Q{pzvZcR#kdwjMu*o7JN=bMGD#zM|ZV0N1 z@CKb&A_U{0-a&y91v@8P!7F)?2CO+m{@5}}Dzd~fwiol6B$mB7z{w37X_@OugT(0% zUbsd=6~L7KcoS9Jo>wIM+gwaOy_VzP=qVh7h)y&To@CkH`%mdqF*C5I{Ap#8X>N>?&AaSv$ z1{+EkG}Z}P6Yhs9RCy5P_|%(6>4{s90NSDPBww z#S47Zp?Fd1j@><^b`rwnDpCLPiBU-sh4-2*Xza6kD>aw_k~fD2uv*LPJo*+(_k6c4 z|K~xmrt^<=UMARW9VnwPCx^;Py*zlCW->ANtb=O9RZ;aK_M=!djmm-<$j1~6l!=r<@|3%`wLkh+MJ8 zQ#X%^PLuAdurX(bR%KDs&t5+l9d_ILR+$&bDuOE!Tc7F#CN}yk$RHX;KoL{VXqtr% z$369JG{W%K-jkK?sgHAC)o_o$A?OOcYB{wMzjg%l;6r&u;s$8{|3Z^Qg6>9g&iwkR zWS{IZ9zG;D0hxo{WtwF)8Uwc}-LnXDV`KrRte$5+GhPuClDV|^Um(zV@53g5L4u>} zVa3#P^IOoksBmoOFNjM~;Ubu}H7shJo<2)-5|F3P5zP3L>H;eLzw3^%r=zSKsps9lzx7Rl%_)#-W0CR^tu2!CLt_1GfHGwG4b z!Ery{_!0|Uf@ryByqiK1y(ZL+QtNevfJFghutBx}w3<7$Z|D3eFwR$V2|YQEU0xa| zpXtOxYV-%q_jIM=fH29=slFrne?5};C`uXF6AXtB?4>aYM+9@vfr-4F4ov2eUHs? z8)F36A~oHM?;njy?tYG3c-A#1(Uxb$Z%IqB@G|4FVhagO>WhtT-!}S;a4hFmz6TYv zlwyp{58Bb0p~ESjwW<=f+WZ!^iJpaN{^vJ@6#5EJS}WN)Lz8Rv;Z{UjYP=U{j&xIt8@wu(8hvp8B*^1y`YZ?V2VRNHM_d#bE2)o+PK3 zHMK+<`Mnei?C-(?|2|V$;5^RE*8h*pwA^@aUDsN5T?;O`0!>Hp5qoi0ot4?PBAk%o zltz?@mXfk1i~p-MkEUj##r4?oE8Qwsld&qc(ruQwbhqti*83^aAsg%~eseZ~m8QDj z<0vV*)o*N9xV`o_c;-2?X-_g#8LE*sQ^o$*(ic5{GxAZkGNj=6GO!O{2Bz8gJLzwZ z;p(y>fz7^;`T=<&yqujf#hhf=VY90$-Em8d)IU;U1x`TKG!igXU zoYgR@9p>;<_ej7#kH&k>DuEumGST>fch<;5MtYO!;uG6!`Ko8U@|_aX#PmcQIKYHj ze)Yt(C?7dqpv=4Y=JWPBY;tPKDnlX*5a~hJ;oY4EcHebI1x+e#g4FoKv`k~Q#afLQmSpMli z8h`ypt2RiKG4ob8R+4<0OnB|eq{U3Z zvC64bCWfl!yn6Od8O)AtWAt!WHYJ_AkzvQWki;Zn*!a=OPbYVZcc*q6FVMFX5WO-- zL;nUj0b3rCYFfOE#;sW>B)p0X~`@xbW_c@i-Y4byGDp zcX9kCA&}=3sHX}Czk`_XLXG-F z@3FMCk;k&mgGt7A`s5a_#%+#Vkn9*sn$i-Oh(~vH>DG^VpbN?m3y1MI2uUG@`|*!H z^2v)flrQmyb4Jb^a%x1l@5m?fHr^U{k6czXXkIvb*Hh;_*S*zJHnF{y%aWnWKat>cc57sLmJaJb!hnHYQ z$~#zk&*2NYZXG=JwbW_6+;%{OGVeSgI~BK3pvY3D3hp0m<%)l44>7@7zs(0g{Bu|D zkPG#OF01!Bf+sHuCMnh-$vIS-!x8P-#uU9QAa}tSg?E*)(i>O_>Yt_EmRk66>A@}K z6~dEm8f-CpD6R-3bR{yT`;2Sg_;9F|B|Pve=WQA;x8<|;*6X~_?9bDT?Mhwj(%C7{7}Ld)1b-_@Z}zG+bWtsmah6HU z-rzy8>txbn*V$bAUFSc(=C#dXA#d20+|&=?&W2G6ANvde2rL+~S+m86oK3hpYO?jH zfU}7ms3A?g4MrY$pKgUL{@`2<0xgdsbV_!kWfsenpo!%Mei;ynSVY-a;fRT|h6xJZ z^Vp9_a#Mfadx5I}Qa7}@p8B72pQv$Fn7{rES*(!vz|Yt5&J#s!?=TwH@ONIcXu2c3 z*jV8Y%n@4&yd^si#CwRr)aAfl;Lf56vy`uhEBaLy;ugV{bTQ;1{NJ)6YMEx+PXLg5 ztsv%}X4H#>E^xpzx;dt|Bov*cP+Y~4i(8VQf9mBF=ye3n-G9)MJA?ziL%?_kU}QD~ zws@kCQ#gP;9Vs(#og#aZA)smzm&7P^1yPO|218i{I}&6k?l9k&EUbbPVSfcg*f(1a zPJ`?^eqJqf>h@+Cl}M0I6Z~;ez(6cw@v=UsQ7Z95JF(G3?rC})GAsE?b}hM0OuU5h z@9fXF^6)OA8zF9=@L(YrIVE&BLLu}>m4S*)#@j!_`+c~?3ykvBT+#G5*KNWEu!3b- zg3e0w<Hvo5)#Q7*Nat1R%#QCCjWX=i!R%={$_22U0Xypmu^;d|Jw zwuR@RE|7)9EO`xrzG^w~-cOUL3L_K2qjB!&sng+WqNh$o z(3fXxsa7z^Bdk;)RXjg>>e!M?o<#uYi1)>oHQMBzS{1rZ5x4@-x4mjO8^jPJSQVP9 zZ*TePfavKa97>Y)l86NsF?iC#VPp{^m0I;+o~MxD^zunNXE7s`jxSm-IT*r&wlc$0aoj%W7dFV$K_U9n!vTB2o% zzRCA{L3ivjP#%jMl9x|*-ONUb!u(rlqjyTO&_#a%1t+>cnZ`U7iL zBhYM4PC&)9az29r`aZ$H5VAWbzru%&mH-C2R+Jvrv$+=%l{;ODNo4X1&9*NHW;o>$_g zSI(;Meo;F$$C6)@V!ftt8r#h~zXt`v$Yq9ji@-ikI4GEhWcRmi26Z#UYV_=jT>#XuPBou@p=)tn<-Nr^ zzed>e>jrCn^_?1WT*ne*mUn4rGg=~Uefvt+x2Y*t)maDUPhz|;+EQ0A4($K2hB33i zNpPnjBqklmBq5?xb1nJ^A5G>I{K{D@#HR{3%>XjUxwOK zh42G@act2mevz<>wM*%Qi1??Pr{pdJq8Aye?r2mVZ-k$I0WcXT=dVG_1oH-;F;_tyKASAd| zou@*Bg?1IG$;3@4SHAbx@4>J6ZrAS{Uh0kXus0%N%O`Rh34(EzR#0g=p)UZ96oQ>< zjU`4j#Jh-h6E;ZU!>K-gFB9knY9t116oX0z&_8AHJIO$o25SAX+D0!|zDmci$R5L? z(WMZSi||C0Co{;rh3V5-N_CIWKz*Hm&THzn`(cq`HB3y^DD}ZYI-`d&@YMMY0(Iyt zgNV1i-EYUJII1~mk!$6{Ltr2tv+=s!p78vn3GEhuXwOmePHe(y$?Rsv+f{u@=qaf2 zRLen;2!X}G$9&N4Gmx`%>7^02eXKxkdOK1R&&KlX=r;eY(OVqhdr^EvygGFCm&KRk zC2R>U!zvmE$~x#MXbQZ%N+NC?{f|VVqG1dQ=!<=3?^%jdY4d&Tql9^RpQMSKj01_j z<1FF<`N1oaNYE3J3)OjomwjrRGDeV1G+z+3YWyl|p}rI?km?ZrRrm#vMscffvYaRL ztT0UNkE+b;bD=LTrFXx*AjoGEIlxXu47v`v)4t;adZN2)L9Uht8sII)rgvdzLnR7M*oBJO{AK4mhNhKYhM zEhz?_gvrVYbVP>0=VzR(j5bZ=5c`o-LZhW%8{^gBybgX)(q~xd!~4*=A+}@#o-xPx z%-@qipq}!>Sk878;q@$02Xh&_W*k{|@N6RGPf+How~8Rx-_~6++d+wzC{4UFS#!JS z5Zg_}rL$R4m2_x(3rWPGZGO_{<2fgXy{QN7KB6!8Yn;<|fVoUnm5II^KqI4FJc~Uk zcbq2(5~XY(CD!Od46wwgDuz`(zSQP;eu8X9=Lh<@>X@!dp^3U-iAz9Az{mIK1xiH?L$~9YyJoyC4^{id(}WkwGM2g_j#tr$B4|<-TOZ5X z7rurVpgrKiid3W>&yw51{RH}=phcUj9k-R6fBlm^ab`&LCNWaJmcrhl;aT*MraSXO zhp_Wv(Cc(mVBA(dZQ!MO;KUw`q`u`4XlAWzfHWh?1{7pah zRFiy~TDQ9uT`jdsSll)wP9vU^Jk!V%dWgFUbAe=2hfImrs$CVFH8z}NVW6O4!i98H z7|YsQ%3ykN?>*j(A%~KUzO0YtSjq#j*{;Vn39F?AG%U?EC)gzv+a=uH-cp(>VX`+i zELlRjRYL4(;qLan*qjpr{ciCao49Tb&Xnw~|c{~2G z?UdM&%JFG+_t4DiL1jto*;tcp4zrUI*5jQUs7tym)7x438(q_N3oT5hGiqGs zk&x9!YW@SssFl-HtC_CQ^3Ifg^Cdea71wnwFgvuSGg*%Lke!T9&+3}Y6{?jfY4;<~ zT-aIhjdnV_%aSDUJy*>Q#v8^ibJGuDVtS|znV7Q-?`%cKTC4j|UHhOJ2#x6<#dUm@ z`QQmq+OiTO{s|n7^$AU3bFq9{Pn+@lU_NXyJGO~jm34${jLGlxudsv^6^P{){8TuX z;?N^@&N;k?YW*n|hb^*$<4@@#B17k?L!qYrZP zSKBXc+?}B(C8asVPIi%&J zZSp+hEb$(5ip!x!KHDQx?6Pc&@C#uZ0a+dfo!G1auQ~`OfCy z4+*WAPUt21KU`;+-=a6i{jMqtev2$&~&DfdQgt&p~XYs5}bEHUuJhupv1 zeD(;)i}W|*0ui4E5sjtot3OYxMPz5bI2Xi4)2jY{YvOHo@LJI_J+z6W<$?kQ5udri zPB_y}sA-&`7m{f_&qPL>3rNI_mjZ`&O_v$k+9jReEVB#q*omTB^K7JIx|d`d?)n2P z2RH>a61G23W>LY;sTPYWNifQgB<1Fr?;!8qP3huxH_5Y_KW&$Z?C+e&s;eS!748py z2Bz8U-5Y?mGHk4CFtB|BPYW;!U}*tz=+m5mo~%xMI6WDYPc#1ZO`I=0K9V8@Kra~tXUM6<^ z;gRxG^L@l;%$}aBM=A`oqLQ)kqW$${;KhMeuEOR68ay)}6SURap zd-QZ7l8x1+xWHrz@mb+GL+JXsPL99Mz7hK~*_aS~Q|8cR(kC5q=Fq<$@^bS;FYS|I z%5Y2Yc!@F)IO2(3EHkY#$0*H3MC*CR{i$c;@=vqGcP`Aazrnc%HX%=Jk;>)99QldP zJy|#wwu|_6aVFrzR2U^sb3I!V`GV%1=b4E|(pMi5pwYn;@g+yvVi^F~Q`^3HMwd(* zCmsLq7d^kvofiZ(gR z5~9jMW|{Gk?XrWI6PPRq=tQ^0gu%$ihr&2BA^C~Y-4WOTl~sV7t4!sCCL+d5wo9iEV{AcVwZsSB4< zR%lDC-YzoA?&!}Fahx;SL`JOa4koc22&=hvAiliSNN^TC-on*}h2FJUMMIWX6b)ZB zwRUBiBQl|A2=1)Q?kL}7ms>|+xrer(1ydP0?1FsSpn;eesatMLH zOQ|}UOH6V8q!Lx^S0cT5DtD^DQDh%u0`GYq_!jMCv*SBb%}r(K4=xH5LxUb@Nv5a^ z@=j3#p(_xR9b3{*Mz5j=XDXQtozRb;%i`-( z^$Qh|n18q0Cc|X$AL_a|k8ls8qT_>c?@ zBy~taVI|-GlS!paU~WN~_;=Iu!K6Pu+Vo&|k>|@1&u_sk)>;WrU>!zc>RR)-Or2Z| z-zTjd<83JS8uz-z*Oajrn%C5n)o@!{#`d-8g{N?e6PGUD_Sxw~gYztv5(b@9$-l{_ zM3wyJ%x=*j#7IZf-5+0*dwGPZ=5W?~0L#b>Cmy)?<%01*HzCq*`0&U@D1QbMcehrW z7p&B|Z0D339LbE49aeNM8^3+EH#@?dZ3`I{;Yn4!I8nIDSV4#i5n6aQW(6Bc(?otU zQ_GBH<3m|^8_(vfjDw{atrQU1sk$`Lqj{bB_qhtaA*vEucn}wzFW4>j)IB8>Y%HoS z)oJF8&e!5fPLBcKfk649e@knM_c5B9%uAvlr9}^=H68IZeU#0RHXX|BaR4;~FfzBt z+f9GV>haFV`Qbb7LO3Q4k+6I4w0cHjE9Z!~R__v=jE`LXVXG(MS$(Q8i@9?hZ$aVs zfRW!BHEArKPif0}nLx65`l2inf`=!Yy^&s_J0Ob0D+1*i0BXudt3=$#Tv#T!o+tQ- z5DSH>6G(WWIS3w}%nkSG36f>RRtxeGohvguB$Ieut5%PN49Rny{d~Lqyup5+tIsPl zpWvA=UaP}Ai$}B{s$$V#y}&S>3+tcm1~7iAv2M29ik8G~(ZqVH2Gg+X5>k~z$IQ`lFQ@ma-Nd*cfGMM{um697v*C&v9R9iYYQJsWRAHd+}( z#@ShAR&CMXkzsGyn2e6->0ZkZ+GMezBCT*o#+z%?p@Ns$@+pX6AAG7bxMQOm#+wc9 zaq@M=5%HqBL&#NZ-9uZ2)|}3a^vbMdRD$L;x+}zsYw|=dNt@)?qW6}X1NLI(>7<$i z{_uDRT{T$_f8P8%@7Nq_9)~b$o65gCLU=3j~Eb!yI#{KK%G-ds`S0V0$<_+I}{i z9iOH))~ud^Ej3qR*bzO|AqE3yBNxidRuWmzBxlXhMrV%$@t*QFx+@(!Q*K0ku2Jzy zq>ACJx`Pp7joU%|)U(_cG;2aDm^0}2{xU`LvA-3NVLAeR$$|smumcxPjjs1*5&#;a zeygyMpJa9l=z4P(TZN2NqySGgWc>kXiH2Yn5-h0z5SFlJK zWnq?|uEUk|*IG{nDgRVUc@Sq-;`Xf#Bd{n2}K2@i%C z5(NfrM!ESLX1s82yG+?=!Rh700S?q25ZG~MX8Tp@dUI^vkott@hhmGR{ij~qPIvO< z?GJWrg)dZq_C|DIFW zPO6sZM;WBKjAD4vbmTIb&wTzQr|_M^j>7o$kRM~Am%4+#*iskeOmiDsKxVJ!scnAG z6Wg;f)ci2J@DxTIl##vq?-HQ0a0g|5lC5QR6z(kipzw&X&~F5DVoSX-Tq|}+AGTd! z?4bZ6&k%M?3ee06$PX=}6%^-c`ou-{j@USI`U_tvJiYou7DR`!Z8h35t+zm4j91~B z&trfr`jU_Ti$hS2N16ViM)~uoP>pTHxuBB6{4IzSsw;$>!JEa;-X-BWd0+|uxh~;D zY~ctqL9q)A!V|2w=R>68x9@uWo!$h_Y*CDsQ8t`;^*fgIT!ho#bX?Ilrbl0OfJ{xw zK`|$%ZHY~B#iQQ5bnEN3rB6wsXX$xMO7q?X_?cbxGWNQMSc#vt5)qWL1I7 zasn*=>kK5VAp<{TK=EyJcc2iPlC!NWS5`A)uUQXWoE$kh2Lf;|KrMKRj28lQ%bTZ> z-u68tCnS{!W7K=D!b)}vqDnW}C%k&6J6_@`s9Q9*`S`0U8w`?vpRRqjG8Me6+dTP@ z@;xbjQ*z<&mMkhM$?R;JHyDYVyD)U(@v$B(nm#>pQQqq|N8|0+c16HlD zbyw+|O0)KFaD-w@ZTrR*GsCBDmKo`54vkeUgwGyMQDTcMruy^RK83}*lqv#kzj*_t zC1oa^G&Ci@6C;{_dVC_QM*G=Fug$EMiGo(k#>``Nc}2RAILsB1_=#3IZtrn2g;sgD zDs$8%0g@8{)N=YbXSOy-$0yPEFEpdeb_=}ATt8H4Xcy`vty+EbFnE&$QC;34p5)B? zg}g7g!+G@4lTOw4DSsW{t2_TwaqSq+bKD z*WP?ZFw(6w(YKM*@vKDOt^A6_&&jc_hh2c}hU&;J5b)VNnu?`ghMW(2NA$M+w*=Eh zOcnnv%%rBT_;0EI0>rKEhV1$hkTOw-|D_L@$N7{bGVC`#=4B1Bqt?mWf%e;%^ewtN zi{I&ABNc<*7Jc=yJ9LSk@rRR`=$Ecmw6ZbBHyl&Z)5FmGxeKa z^7Q7tc!-;5e;TEqa^%y=_sMd*{r(z#pDUZ2M$ek(=ocvtzekFhc8Y9LfRsl>5f}*j zTUhA(2dntG&|!YM0R?;xfnDr|YK)Pa0CZ9RNI-V5;TzYMrj@Q4o7aTH+lIr=~@c6T9J;RZ~~C1OBzW*0>V#OVRAL zerzRp-A=GB?7GiG0X+bao7txxOK}cUr|6QVPkA{4eNX zIcF{33qF!?0umu>m~l7rK4UL#XBNLL0Lo`>d*tzc*hc_jw5kLWbhuD5DHbHE#5UOc zwViRKX2b`Nm2vX<8Q%l)7NTgzT=OnFqx0O1eN!1TH=}#%5FC6=@+vNA-aK=Nop<{I zX`VR#sVkKJ(c(8~pyhS@dy-2rO>+$~zkI{$LT&NwfX@yuZ|3Z6CmU_(2a{+f4~S#Re(tNo(VNM>|TBHmMKeVe)z zy3)xP$PWgni3LP+;mOL)YpsSQQMi+oYb8o=5r0>j>1TD93hHEH zGa$m;&|F%@DG40rufLR!q8*v7r#$gtqIZ?8PKVKUL>?n{yYMU!%E~ex8wFAneM#i zr~F6Ba#Lyc+6iu{nOnP=&V7|wZ^y(m8B(1qp{A}vV<2B>H=!OQcM+y?iGbukd-YYuh3Cm zmU<;4)nkVwaFakfaCW=(1plZiR+?xZ!6nrMdM z;cO)<5=rDMpy3qvg>oNmQGAwud~834c59heYnfQYD553L{=d@R#5UUN{6?4duCQ1z zD)_N5OR4s1BCEYSnSWnt?_b67g5BOC4$)}xXlAociLl+|QRg<<;-B0>yU8_L>{ps> z&p+*Ckmefg)q_D%%N-x16%nywdBHZZv}}D#he>;6L21v2$>H6KFh-DEJZTQ$h#D9_ zrZQ77HGDY}G~At6m$AY_>dLD^ZlD7GYKa8?Q8>!b+y2EYsK3+#{04TyuiYF8;gR9_ ztM--2o*C{H8meXe=*K#Q1Q;dSyPfQZnv8CE>VFFrD6bw=WqgqAok%1z2wfJMD;Oo% zObaJIfXF4ZR7ZKCtS=fGZLv-rJa#4e<}&%pgDeQxhuageKLi^%7e5B42WvJ|r)M}< z9E5q3iNd`l@@b{H`?R!Dfa0kNP1A;VqZ$C01OnnH3mU3W)pdNHewp@Y{Ft8#ztbiB z-qkGTRWkc7l~o-8)GMzfXBUIyu~Ns$HS!?{s;7P#)UhhGTq~dXBgHnYk&zBPnS!?Y z>K?1C@tPT8DzJW9b6u^uToN2*2f@-R%{L%9^g#~-%4JIXAS+U{+sX_gT^yA6kI=AS zRp@ms=7R^N@*GgBL_n=^#sWe@$@m)kO}>fSq5^p?)D4S_Sug4629kkEW8x1=sXu_b z)2C=ix`;k1?NNZ_K;tR@V_AQ-{DaUZDX&J$A2Ndi-J0^4jOKOE$B%??%M1WyVVxVZ4hFHX948rdus@vfO-(A;rwLOpC zz0`afD%Wnl#Yl7+ZgAEdN(*I@4YXVOgbw%+8KfZskua++?42EH@dv7RBL+oxNw@A7 z=#V*~%Zo3RdlQtL_aE%GI#;EIN$^FW)7{M172Fl~n3r(}GzVCuN3s-ARHeBXFA325f9rV^r7sS_}Dhkhbu!Cp1UFT}3Od<|k(3W5cWulzvN znuU1tuUs6-_(ZeQT4T&za5fgP`;g8HiNmTWa)G1@Sp@sy2XqQ`E-*6jbBJf8P{Q^# zS+ZqG*>3+5HCd? z8E2VFii}ob8C(r9a(#su2_qwAxRWVSj@D+`>nkddJ_c6w!KI6?uVYmngT$v;6@=gd zHS+muZ@HEzlMGa?wRyG1UhPi9PGei#6S|8oQ~INp2}H094^xRhaI08N9~r5nm$YHh zlF*dU4vaKQ{jYSaB|N1cQVRC2#+eSJR3*fRSf)fZU0Dd5v$;Z>gD|km@a`6ySvReA zhbBs+%ylHPeQx%ak%k|iuIMg%7-i2dv9Ny*UEv~V}}f;mEAJNF&`1+ zCEe|;Y*aPWuBN{%NWAU|zhYPSZDqWQ8HlbHmNvg7Q|oSvAc-`@YpsWK>^Jt3{wULm zxt78e#V%=5JvDgi_v4RlbEeOA-5XC0hKo>Px)Ku6;+j0$;fFmm2>KO z5+E4P7p=@fly>T}BNO`j(u5!_w9YBbNpO79gulviLSgOZe*xG~9VrrhMOH*K9_lWH z>ANmeB>9T@0}-i1l_xY)UW~O~)bK)T_&t@gB_fuye62Kh0TvJ*ehNHPzEM(rEL7%c z5+rMZJbg_qmq{(_yVTOtuB9YZi+qLOOxE%)cx^FI)UrybQMb?wn&d}9D zr*&ZxbAxqxl7kKPd)J8cMXG473Judqb}Ne}3FJ@(O3n$?Zu6PWRI86l#Ou!XNU(CF zE-!~4iGMA>o$;^#qJghd0kCNvE%9NyP^o$@E;;w^Qz0u9hR?sM6Y-MQFp0a#A-H|M zSbIyrXp3Z(*4`Wle@S{z-4isdI$)2d>><#eLgQkO#JEO2m^KQb(<$6E7hP{`D`*L# zRpX*ZbcLhBSrnbYP^)sCr|wR^M!1DNFq;ek3XEmw3r#TY zeo5exX);SVB7Q5Be#2i2-dfl|FJ!ED4UlmUC7ZSSsGPucj<<^^!9O3r(uhzdHy~Z2 zZ=Qv0vqs9BaHV{#o(V`S%$N3zZn5$NLqmb4#e~e%nePTWe+5oR)80`m^$U_pWi)9R zOgHEOr`g@saR-d4blNGDb~mC$Rt^uzk@* z$@ZA5MRjgn-Y`B#w>sBmtw~E*O)W)Lt9wA&v`!3uq$nmf`6Ov&&@`7P5>g;fLGyc* zA`EMu`6t=_ugjZ8J>a%-Qugfod!8Va42&>*um{XT2^)ONs&h9l456N1x350B(Ajkq z@8U_!kgD{^UszV`!3)NDG5oFyqU1Nw^qFT9Xp9jT5YUdzlS8H~@}7XYxH z=)2ThdvpKrK!F1H!yzh*ZXq$GMg3Qvw(l&p#r zKEE@^0&#o1EdM2TIq{8F8+y_PPU=N{NYEIK zy2PrH9RIFbv;&C0nm!xR{gcZ28XkXYln?meq!D>M~!@zWJe%voaS;6?6)%{#mfSj<)lbK z#(U&10s);R3iKn{c7Cf%mq40>p(lo^ur|khei+D&Z=#_2*ge)#Bd0u8QV*-V&;Y6s z&{Yqn5{t`W**92jBiC^_ICs%CsC2oFTUE1jv_|8IN#vybAO_2#MrM|3(aw0OSi4eM zu{4<9rCl5D2AT_b(RDOQBd_pXF8FQEUM5X+D{kMH$C0QW`$u*d3<{zBiaa{LveG^o4WM^kP z_MeYg{31AjXG-X_0`ewS>zQLuqNkP4{_ zr=B6%r{+ZrtVly)g z9B>=i`$n{5kBx5Yf!)P5V@KkSDw3L#gE&P{HRpfFl z8-_`gVzja(vosDgZ;`SxD%iaDrz~T!n{`FzAC_)E6f+}~-mv+m;EYWa>3G?HOoh-2mKJ&~b*WgwahTX&QH%F)`0u zFwV^i<&B=r z3*8fNxQ>eKTKBNxHQh%CT9%)fP=9dM=cLG$^&v5&!rXkl(gRFVrFjdndHtGkWXs=N zJ*>ifY$?#?_hI|@L4LdFe*^mj9=1hSe9AP@7b=JU5`=z4n{^2VdejxoGp0$Wb zZr4hKD2&z^z1BLjVXLy@bJtGHPAl_lY&u!{ArY-zkQ zs3O;vKMQ}H8}BRe&PgxtNtbv=Ui)R2G!*8L(q(fen~uJ0nhH*f4Ef-T@&VVRuxi(7 zKSWcNddRfu*<_|e^5~$kpul*3XiYHG1F13RbBn>R#EQQk7L>p`yM`09Ehz2M3* zKYx$3>YdkROmpKdr(v@W+|7#^g}awZFP%nKi{r{fmeEV>X+=kVg6QjcHqJt+_DWCP zZ+R0vJ=0SsY(eyNcPkwD$*2r#n)NoYSBkr`v$&a3T=ewZ8dS?m(vm2UP3}dN@vE)m z$Cuc(lg{(wrrM?!0PvTdRk3}n2TVA_m z$QrNaY9125&?@+6$%0!P+79b&UGieYKDee#C5L6gDfN zcB8~^tiX>!K4cu)?Z?HE;6TQ4*@pc_H6N+Dw4?KwV*fjX+OOG>aEh6W@CH7u0Ts9ZIrNezSyLEHd)6x^{0UN&Lk#V zzd|D@G*iHbvhQ7a?!e275qHdLE*~dLV`Wu=8NQeC^jZ8f*q#H)$Py1@N7*SPH;~g< znsUoZjklsloQrxJ>4B_>H@d|cZE^CV<{!~hXTn8m(??`Q2B1+LzJBfKv=OCgkxN9! zI&bah^bw`$5piM`zG&^}j1i?7VNbya8FAx-$O8z=r8Ny@48aUqMN`Pq@8~M7xAadEW4x>H^=_vO&jTYs6+tp0*g+`;G#Z?AuYBBC zyY&Uxbk#q_&)UgpYnzI`?WtSKr=oe`Ydfj8r|wbSiCO3hO0z-gsT)D_2*(%yJ%4I% zp5duK$P4(T?RZRq_Q8V%BF-Cj#52}TNi>usf)vO=Kd1X;FvW@~VtvTw!(*urb$YIH z;>Z*byP*`@@p9A0$5h2lw1$y8avk4A&&+aKN6nK{HQ(#3xpi$X&&G@B6EnAHaCm6Z zjIf&~6z;%7>xQOyuGCz4n|ZBOZJfl|z}#jEz@+utF>>qlrR&*Tf_tksi3zl%5V$#C zRJgSQHe$mQlJ?U+~UY1cw% z#F~mqtDSk)$MdqRLHUJ= z!9XLxuOsu{|4U2H%*=2aiBj^+C5OKbIMw7D#8tH#ud}e=ak=<4kza z+O!erk-^c9v*9b(j!GLbIxTWVw4)>3ckQV35u?*F8t8x+uN{>!Vl+xpvm2b3!ZdSvjxTcd{ur z(yg$uem}N4u+dv^=zmY7dtu{nNwk5W->1Hrdi+VFgvq1J^5HA=(XDIIgtfsm!VZq5 z64x+SID=gWdbOU-r;3Fs_iTPgovj#mI|D5>7qg-Tc12vbM!L_LT|A>Xus4!6x;W6X z=E^1Ggm)6$BKU8S`j;?Su$GTPV`{SW{>XaneC&&CH7IIo^;&W#kXNdP!a z#;Yi)oxUfMRk*)C5x*dM`kTOwThC9n#Ipd@ogCds%PSjlJ z*$6kE4tWafT?I?y3Y=PbAfD~nxFfJPytlZNR^BIej~JK&cK7UAz}NQ6lY}z-GVpWD z%HyjvraB9S8F5zyKJ`RJQMhOJ3_h(X|gIRM4Aiiw1k@Wd2(;XFH>}m$KvE zBYplj@ig%li%!HVJR2+0j4g^Vqm3C72c#?drNE<6;qj%w zgIjzg0guMOTT}$!AO~>0*3zOerGa-m_hGT0pq05Z>Q64sqep&5Ca=s$R5dsU<8ANd zQ%XTtX}e99ugm@}$H23ogXiI!F2S;%xT_jgs33cJyYqBIQ9A))v&qq1eF0}wKS0P0 zK@zuU;Tfpvt15}5pHCzeJJ@c@6xhhdqg|PkXt(C~e+z%EeimSX(B{YP@iZliSU}@> zuSif;r!(bpV~#U=`q+}5GmN*4JtR8v!j*Ici}SvCuf4su93}qjD(xEP=Qt)h-NBd4 z&_MlCd(M}$d~t@B>X&)vd})gm7};x!@fx!DN{l^&p%(^7!K;x5s+8VM1V*-WGYnyM znky>XUNirS06mx(`g3u=9C}@o-X15~M?z zpNv1sV&aKD$;-8qSkG_L)$S@*yQN@WHxM0!*b|>CXbRd@nj>|AbpJcF`=L(5e~ES{ znT9snolK(Lo1h&imkajfmNkshb!kCcvfXuZeg$+S-lzT~yR8%>>2Gc}+HjF>^`C_^ zRWT~G9Ku;H9PJMtJ1zLcx%t7B69OyU%X@JqH=bVQ6uca)h$A)Vz_DN=JSN)C0Q2N4 z$STH#pUZSVEjclDWB=IUlQ-YgH}0~)>E(Z=De9b0i8tu^1Oj1wriI#@zRiu_gh+t4EbhtRHi5+~=Ej);ku zvX@Z+t66|Wuf6LErUnZov9<=P!WL9QE;{;qyHG;8!F(cms%>; zEn_cFa~Lf;twNgxWbl~gNE#n{KlyasIbG2qxAr@g?&z1fD+ZB8T%CD=CvvVg{SBkj zrp6||>8m6hqSo@pNR~%@$Bg2Pmco;8sN-8@s3$Lj?8h?$ zt)8;h=nHxdJNhxvm#~7K;no8YZU^#isIqXc}`iqXnbv@jUQdWs^r_QI*p8ab&b{ zte2m$jo#?7TEpBthlax;!TE=2hou_pFb&t&Eu{ns%d5#k+T#oFt}uV9Rala9g!IWi z4k}D8EuscgS8RHc!y=1&3V|+s{52MhVV5Zj7&w}}Wl6()lBC>j>K0{4nrj4`;yXvewgTNJRE0LYA(Se3Cp-O8~V z(cpdY?&R23?1OZP`7R=QIl$fdC}Sgsvn+3C(4CGpwwFQu17{cCPhT|UjNf>tM%>X09tQ}2%G#Ya<+>}S@(zx!16g@q`*Nms%G#~t7Xl@f|CdWqwosr z6K`=i-5qr%HVTQQFXqP!0JK(HX7*- zq^0XfSQK05uk_}lU7EsEwZjY$g7XuIEXZZ1X`A8ywc zgEQ_x>&iJ54fBzs1(w(`Msix?J!RMQyuu!*rhx^1dd9F~YpQ5+_mHCRu!}DD8Mn4eEZj2$h>$JGsgsLy zHT+se*q;o-GofoN6NzMks~m zMF{I+Cs9!bohygF1gyfkei0I)lS(0w-s#*Hq&mUyX+5 z&hmy5E7W|@yl1A)(D+8SkL|~n+^`AZvLimo%KO>3$-7R?<0wGkCeVSv)^PY~Yy7nB ztHi&SvYyX?E$Exwky`JwPd7AmuZ(|tEzZ#x!t9U>@Imy zU8;E4s_8wNLYJ@-YlaW$f(K8q=*i?Ynb`eA8^zNgZodRT4{J(SyiWKdZKnAfDVX|y zp`3WC{$Ku@*MRar<(F}OKz8_sY-8F@Gj{KVQ$ZME^DX-Mu@|bN$pzZzTPA^O5ne zc%shKzmYdsTIQ4&9vsu{(ua7e?ry$_E{WKVicGt3N9wE-gHy&)-PT0#R7ZGHbdPgeru3d94y!lv$>9p$pugVmwb4B;D+xr(PJ)}E zKG8k7)@z2#eyvec-iaO%JsuyTE7@!1B)|DPzvb}F z-=mRWQz9E8ZQ=g5e;Nn4^YZ&zd=&Tc1;LWMdo}**+pm85>VX~yBVX{nwQVlP_S^a5 zZ~G+U)kVDmq+8-zlr1aV;CJG$!>e6?LhP$$Bfx?ws;-Z`b`!Quz49!HrA1D zJUiPy>$u7A&yCjYPWUEfMR`ijEcYgBo z2?#~{QK|MvdpkDIO<%SY?w_)3a=ctS>=Ou5hWoq@Z>LrM2eoNdZ@u)k7rk{ab`=1< zen697H^1H~%aR?RbAId9eo0%XfbVRI^j8`qfZxtc?`+4BR}U)ScL4a~3V6cSlG>L7 zyfj4s@3sLyyKAlGlGGk&?U>zjm(}xlP^Xxi{hZ#?H&nFR89hdlOtRuDex+p`6umK@ajCz!Pn+_;;&2fLwWJxJkRNm z`F&@e=lHw)a(|k43%;D^d5w+GyjSLVzP*D?Z_o35u$PRx=6U|{8EKC2ZV&HH@a~^L z3FSh^%Bv`ZO#gU`7yGE;9X3%b_xIQmwt&s>C)uay(Ol^_ zeoOPBU%JAsy8Bkqhe-b0gC6BK<`XSl*i7jzu8zd5JJTD&;x}KU7;(vz+kE~2OM0M^ z9AF_`@+iYkS7kijmga0vj&v&{4U?N-cszA@cum-;>`^0c-;n0LZs+3b2$vncP!BfD zV)9sMz+OHP_gVMX%3FrsVdiotnUkYkGaxzIo;pHlCae+uQtlL)TDd!NkyZZz3Cn$f zVf^AmH%nYD#*BjJINcgn!Uwy-+fZ{^Jm#g z?vM06=DD`1>B!}zaKDmE65QxCHM4K-|B$AiKj;zb_r?v@Zxi2kf*DPla_N`n#hvOk zmLWgBh4vhvDaQ->^BR8^fH5`udh(|goSz4defuEzL+MG}I!$S(kCEUc2>E(TGrsuR zFAr>qWJ;@=Ie%%GZozG2F}1h79o_F}d&ex{ou_h}@B#~!7r0CRhV<`T{dUsi9&X2J!ZFW4XWowHu$E$Oi zS;w2{p>9q`qggMvoFW)US09x_+UkqU`(UhSVrF&v^jEHVeEV%o#hzQ`Z{J4wd+7`E z_r^`~cjRCAJ8xazL;BP6b^W>YY5mE3N`Lx4sXv3B;OCJCG7s=WaO}r->#y_ief&0* zxE_C3p6ewX;kHaa_i3mPJ|-U@e;wXsTjqBDN`tp$?&eOW*tX0A_Fc7e+V>hA+iKtC zSqP`~Y$&T3o0!?obJHP*(Q^aew$V}apbXpDftnB@BZ z8w`g5!~e6+)5zEw>A%&tRwldjtx`>?5`Dc)iRnfwRzN-w}xsUmQXKck8Bj}7f16#tqP|w-f>iJU-B!R8SYD&(?5JpF~lRO=n$K|FA zs82s~AFmTPO8aOuO*L9$5nAb~`x(g-H%goB4+jVj9Gm5eQvCaiW)2U8PhdYLy&Ikp z{!~m@C3}_8YQ2nQB;K^jHExs-@+5`DO4<`|!bcCETR;SMicLO+az!JYP^fWC9J<6YLnF2Tgp?Qgn&vd~0R->jf#wak|pAjADq^0acLh@@KBRAQ?JrfZOAR?|rUwNI#)B$WPMo|O=+TzwN z7R`@jn!jg+NSuhcg{p8mBC;7tf+b}B2#Wk8wSrADW`_$8#%7%{R=8s$AC*~Ga)uK$ z_wbQYx~J}S@&?+GQYF$O!ybEz*+@frB^$C&3y?wo6Y1=?Ci?RT%qUqth%Ha@!_zcN zKZujW!Swc8zLZN7e`+;Y?{6l1vZii!g2X|Dq_i{P=AHkb%cV9R%rT1PVd~uXrUu0 zQnkt|J=MCtq`mOvU_(jk+{fip>`s%;$X$rbYx@syGF-RQu0irHXnnbjZbkKUaD-8u z*JNJawhs@xHYC_t&y9&-(J|dZtY-Gt1{?F$!$4n4%|JkCCx=*kC4NXyM(=#rCQL~J5-T|@KA&VVV45mr#_wbyxtf(^di2gSNiy~(>1@Kq z?V*N}LqPX%kX*)%Laq{T2F(ts0BKTtY{k2Y$l=7BN}&^xL);0KItQP&nd?a2Y^->f z+Qa~1x-R|T`$UGI?ZEVYjco_U=~{;NfAr2TXnVVLWQl>-|c^UoCt^mhV;ZfwD1CLi~fl?nD4prUH*LCclbJ=&Lls7Lq`FkDH_FA z6s*oEVa)`KKK{hN5 z2|c}!W{B*{yp*bjT>YD`e~0Mbq53xmXh^&Mzx?N$oayM8l<6?J_Hb?H z`UBU`xK?sibKTB0mg@$tT(0h1XC`JkKIM9cYd6;mTu*U5!ZnyO<=@fqnT{{G&TwVj zn(6RzUBZ>eHJED{S25Q_u1c;uxbEUw%2ms?mTLpoFSwrM`ZL!HTwA$za~9S4giME@>q@SHT;Jd-=DL-ulIsqxYOedZe#rF%*JiFaxlFE;Tpe6)`rzlfTKd8@ zjH{IEcCOi6_i?>ReY?4~a=pOyXRiO|dX(!&Tx+@R<66qKkSoMBo9lM2Te*t4zQHw^ zE060Eu5{}5@_YWj4-PuLFM&QE9{P9qFl>z5<@LIJ{+ujtmOsnoa>>Ex$OQx4s}{_6 z7hZJbq9qs2TU611?9h3OlC_8v+s-R`J^zRE|BC1p8T~W*NAvzqd*2=(Rdw&XGMPLG z0ftvV6LAn?!b9Bie(sq-666suLck#CWHK{JMkX`EJRq??f<&PeHMXdrv`rN)MQUTA zN|hd?qS8t=RjQndZF)+TDy?Y`wN^)SzrVHjo|yoibI*Nz?)~Fz_+~x#+UxOKzu#{? zXUoi7{M-E0=BK*wkIc=RH_zJDuxs5e|E|!kM3(KEU2ArEcLjHC*ws0GLC#Ndp4oh0 z^TC{hs;4&p_>QOYesagbyo23O=al43+&noaFL%tYoQv`<%6)iL>6p^dw-@V|>X)kU zk4*i6+n-h)Q1gGcKP~-J!H;~qpYDEIjlb$X{5z2OtCZ*el{uf?&R$~boGm$ds`;v0 zR6kRFp%QYNb9dyvlKYq3617R)pzcr~R)3(LkSFG~T;sUSCsCa+VCZ*OIAGpEfIXReu(G3bqdd9vD2|MI?#|zx=||oX+{d5Z3p^B|TRp&^{tG-5p40XJ_(46C$LIM&A;x^( za5$3Ch9X|Swmsrch637(@^}TW^!0&QI1n=ErI=8o;(?grYV`*dE2}DxSC#v*%|Z)WWB%fah#T6#L*1YBe~VIsm6K)DZf(B_R* zmiuLT(|S=ISnbhLkyxTL8qh|)F>iYy5deQIk4w~8`46>bqt_D(#uLorX-)=1iD1~1 z@o5bweQ9Sj5%ULIT099B58f1jv57tj6PdP3hR!UR2EAmOjWCmPIGH>GS$GVx@F*~m zx*S)sZHxr{%(Ea839)ASL*Jq=A)okbl?9 zVtB1O(jE;3I+#y3J)ZMy9uJDv8V=yYo^vb+N`_@WUnI=yYlMji8zUiaB8bm=JQuJc z0%!?s?V~bWz={aLFtr&k%LogCs0san78dA03x-)dflv7uez-S+WLwdIXjhMiLXpi# z7;kty-UL3^oJ>%PX*)u^@pkf2{_?o~fG-q}27CzcksW5DEg1KC(Z4*N7H>QuTjL48 zY(qowiie4cN70ffS~85UGb|^zb25pv(3e7})odHSn5iw$r&N_N04HFYKo(HN)--vTl5cPMlCnIkE$%ty5fH_t9ig(7Cnnnl@Gs?X!8 ztlSvzB_c79#Z9;o#*Mg@Es>Zu81@G`W=Zx?usxWN?P!juY;6sM12He&O$T`s0ojgn zCt{Hh@3WP&H=={aTFFs4I}vD)M&Oj>M<{|Shkt7*(o7a~AQ&`ccdGqGMTp13vNba>VBbia|zut~;d9hS$Rl&Q%_j{L^urJhz-j5~B}SQIrHiM4CJF(eNv4EnUFc96Ia1Rn+%l1W!{3xsxvnn@}S z=%E?HJ01wNNOemt^oC?Rgrydg#OsO|oN6A02y}p3B?A7r+E!2mN~2V)RBQZiIuf!G zizFf30vRtfh8A=qwVIL|k$;9n)4pj!#0#Oo#y}{Oj6_#gDlx7+Cp{8g0dJVT6pckX zIx{a;ptdSdyTL@z8!@?3FQ3VIW8-uY( zm})Y+$vcU8XuZBzBp%mRU%|<)Ig$+f!F3o_Ke%>VLQDD*?;z0#SS+%{TSn@_o7y1m zh(J7^Rv)@!n)^_kh4rgY~WbhI^wn(7s`^BZbC2=vsis9jmRVs))Vk2OKW zO*Dd-l+FNHvPP?}sL5_?htC8xw36+h}$P--gB>srv56<`ru-<2yQt9>a)t-*}}&|CA3 zs3N86s8ZSk+E_9iCW=V+hI7LGsHv|E3`fFO#FNkwAoH?gZ31nz%JfR#S9&dPf{I|6 zT9YbGVtZ1*B=)HVqnD}@y&E(nbsUna6%y0PycCIzXh4b+hf;^4WD_(|m{;oyMdHX` z3n^k?+Co949Fiw-k{^KbpMjQ z<4CRr%q!l80vo;OT29xYXUV#4#Vqa)n4@j#3}P&^AD#FC6d^-NY*x1~fr1ZfzhWm0qbE z443d_ZJU=mq0AU*L=nGGK)f@Y@ODUYEuKY1vIxp*XCh&RVV>&^^5GID%U@=#N}C2S zn!q?T9zZt(6{g!dD^;yOz-1jtJ`(n60W53E^l^+b&>u2gO6hS#C5Vq!;{u1ut&nu4 zHlQ%#RR|IcjL{>h?x1!DsU4~4=!fa#sPaZcFORcyU}kvDEBV}bBQme8B(09v5^pr( zd(;-l!K_SzO3QI7m4#1Bup=2|PNHHLm97Gsc2=Eu+na-}$w)Ge$qC+qmFetpVcr2k z*@PNH|Du-3`dEfVrzZ8iZ6ZiodUGdK2I@cAF*02;9jp**wU&%JZp5tAd#?^enCqvIve2RebqhW)Xnh5%WQ2#H$ z3lN9blvG9MO52fBJMj#kmK96nKNjaim0dsRP8a|sBzi=3@~|xaGeT28FH{oGT&I^( zfRsHi(glYDUmcw{75XOSMB;foPuz)GC&o%dO&yh;TL&3(CKf-U6EL0tb!AW>#*5IY zwbY;F{PIwlBA|A2QHSZD3wxiNEjd*lIZOA=s>V$i3K6Fw8AQ4WO;LipX*jA#=4?8l z+-J=*a;l<2(^xyxu!>KdEnlr+}_3-Hc*;`Q&X)s9>IiTQl#Z-0%zzs4_ z4mMfma;KVMK?}F^(NoAqFq`x#tPC6GFPV19rI*Z@Hgj6}w9BVeOw(RE z{nE=WMGP&Qj-OivzVe~T4b0!C!^;_FO3#1F%gZn5e}2sW4WEjf3Uy^(WqxHrWnm?o zRa7~;vbb_g<=Dz`m6}Q^-JIDBD+BT~hs|Mg*%kfsUYPgdJa#1$n2zb00ipcJDbuMm zTA&K32bdYKs5D)$4*-37l}0eAH2r|asM7QTT_(h(IDpow(nNuNpvtb&3<6pQ;sMMC ze}Fjw_&33<7m=n5@4Dd!43Jrcc(r)%DwSpk<`B&2V#Gh3qtQGKJeQ-XdI{#wb2LLh z-_aaR^cOjr!B^l9_rS{tdo@SX1hWfay?@Bn3@t~RCv!CeFna)DJm$|^5$B6sO>enc zBOs1y=EOBar*bv9IqJ31GjMAsuIVTL>FPBM{$%!lN#^LaJt@f?$W z_b1Egl*ner9d+ku)auD=`nXxLW@x_Tu3A85$r^37A^qg z>FMd#Filri|6ol`cNcb2969pxu|ayedduf(*_pwQ)m_`ScON-5*u@yFf$^u1{ubus zsIcHxSg59N(^EJ;Pg4v`0;U35pc0@PGmL;0r~&GLdf*tYJEwa#8i92{6VL`k0lG`0 z3)lwq06PF$XQK5bT4&k`_imsU*bmUU6s<{7J|LT!q;k=`I_A1VahmexW)L&B7(}ub zujB~(l$wBKBp_GxR|T2yLx_2Z4HYxV=i8rU0q&3t%3?JVgZ8k zB8SuDPCA_OO6x-yuzEaDeq~#$&*P!76V^vIcs!T^#-9XPXbp&_Ct*TPV#eR^$I4H# z8PSt)`hy$!iylujvdQB~hTGx9Bp08l!1{Xr?^%?i9_#H$#E$SB~9oxe9TK_mnR$3liK7bkK&j- z7-Q0O8MPNx9b+_^Mvd&FNj{i-EdeH<<%gO5a__N05nIDCNKaD0fVUPUet5_G57;LKo#n{ z4;Tal)Oi%>c>{hx71jMmh>v>LoWZw-koL#;F5JRj5C?6*&;~<5)7wa!@DAdm9lC&i zK!bK@0<>s{9)Rk&9%=T$u0gvD{1s`z90YpahyQ8h;RE=6i1*g3_@+_XI9k$Gx3(m@ zd<@ykqAcxCZh9^*9zRR6QQSp{yM)J8{KzawZT(udo9rdgg;KnD-F4@N%}TAjCfl#1 ztLl30jxSm>u4e1z?67gEt+!{pFKnOOn(cpaYCN5r8IE4J?-IqoBsIFIWP8=R;oh}3H5Zj0^*5LK>-oKy!^1g<`~9tDsg;Wv z+k5x$qbsg14K-nhRpu$_UT{6LKDI66gZgju=aIWKw2r;KVIQ3yNVNx z$%<2(TGpu8CG%lkXC;m6vRL>s#Mop(igd zX>8ze&kdjAOm4hCUFY|Hox)2R>qo|I-FC;h?_qCuw-mQ7FWyCfZ#;*_RV8Ox&A6%W7G;$uK)np5Y_gz-jz2JtD-OIftjm4u%Lu&Pb>-J3>8Fzle{c?R*_O4i2(pWgEWL^D~ z(h%eM&5oO~SM##K3f(YtJ#?D_e$tUbIQ62v*#UZFqcJ(&XZdsV`f}s z(R?2FBJkOa@9^+F;eEI>4{g)6d@Y%8p{~oK897OQ^jus#ah7C5+-ThxZjVd6Me)Co zS<q=6STb^9~gd^Mgg7&z?TS~Ss^rE+L-k`+0 zI5m;WL&ZJPoESXtd7JZMu(8!J;Q z=>SXmDUO&6c+CL%&ws8|6Mozw582;cWh9;LuN_p zs%zCszaw|!SXs{IBktyKX=wk&W$4$#&#jwR0-bZjyNyM1Tva;1#Wf@Q#_(`$s2KgP zq%nVljLS|ZW1qi%UTUSGq)~N#+~?}AWR1>(5^9qzRUYM?(mngn(;bzt|B6`_1%1BZ z_g(0n;&pf4s`$@4wAy?>*DH%PB|DaYKa6}z58p7Ce5S0E=)Ejjs7cB)m;CdsTQ`w; zp{Fd0(`8@rNb?m#v_+GiD*l%ZJujK8Yos}dc>PG}ck?Cx!58xJNWV!`G%8Qc_twjQ zRH_`zc_=G|SS*qjqp_MpTl>#lOqTa#@?HPR@((#^iyM7QS$5{jQ3#NyjTr3*q;UT9 z*H_6l_T@QG`8=Jm6@iuEWQcZ ztOWplWY=R~Jun0a2K>$xP-R3IAea%~qSiD4U4YgK*x(QJ0R2GJuGZ8$r1?-4D_baS zF?$KqnXk%IW~rQ`%0{}&8O_ROMXUUE#D`+qC$+4IDl-bLCLM=7w6=|Za zn-*kis1d)YWwvHMLVS`#9S(Bpri9>I&r=iE|q)Kv$}T0%EebN|7;j^ zG2}#>h&b~A2x!kLAPP(ylb=uf5R&l%c?(*;53`SnKrP>dxKP@j_N97L%p0Y2lzO&n zGh2y?4*5JVs5QN(1v^^!<{^1cG4(I8l8QBpsfn-)Xb%tQyg)8do(~%w6FI{O3`7f2 zxlu2gy$BZaz@#tcv!y+9EWOnYY0|zp`hJ);;vvrZjWo~9x8pDmPJe-56zO+4nBp+W@GLd=&8o{fgwPs zL4N>x0L>y`G5QxEEI}Uv27#WXKpo;OQ)_yc<5!ein$aLi>99epvpAcYi&24JNzFvv zL{)__Ig_M%=awS)$ZV3DK(>yO&7gm@Y`YOVPpNOTMI!4dH8S)3f#ziEsPta+VIp&? z1KL_cCU0q&32Y+8RxZ9s(Gm);Ov2BFb%b~%8N((d>CAv99`nJU-j%ndFzn(;WV<)D zc{zXcC1Ww{rs1CnC!<7i4Es!Rwgy{}I;?niqFDGa9at{2;8v3VF@k+u?1I33xD zg|QEbN(FZ)>GklkxwI%lI6+JBVkP&%HiCBSah1;akU#f@NzcI5ptE|kSHlIc@&bNY z@uILdt;YMn9@oSIc@3o~vxuUmwUa!)cmiuEL4N{;%KAyZw19$etf1g8mQe5)-3foO zh(h)V`C}Ocf3c2&lod{bk8wVU#3VlXQcFwlwXB5}aF#CQtM^*aZ=+iCv@7?*`D^tJ z4g+9?EkEgcOSf;D(L@A)#^*-^?$~hbV~g~^=GNv z7bEe{QmP}~n6C}RkT)kuYc@C=;ljBN65{+k3%SWo>p5~5F|VZnYL;D#MX|`HIP0*Q z;ltR^vFvGT*Q1ZB`TA5B)>e1IJJ@QU`I2lA?!x*EZPcAOMm36C;Jia9- zk1Ijycp$Kz_{zrSWJ@0Jl_2X@UlwtmOFYP5yQ?^*LgUcFWL}j179`rEBt5_4GkL*q zG?~c9?l~CpXNXcD=oT)ntECMg@>-^}N02rOr8g}@=0ROd%e(YWC#=CC#VFtcBpA!*=6We09`;71fOg*)9ze=%JdtcJ3dTsz zfXl^5Pw7Ls9(Cp9aUBC5r?HEwcN}A9F;1XHA(MWBnRvBY27>weDXpVc0enFf2DaC8 zc@c|XfgKNRmn4(q*A>|OoaFUE>$BM|TGQVY&i3JlG_VVnj%ui@mtDPDO&gKvk0Bp_ zjPrD=dSmYVWi_g$R`vXbtC!&$>Xt~zpX-YUa{azQZp$Wru0I~g$MNM@WD~ehBnmd= zQ)3JKdQcg*51_oh_3=<7fqpEDzVx_=1Y)a?k9Z{6C|i9vE8>Ubq%uMJ6EEU)OLa+p zIG7;ChY$o6lPILI5Fb>Ko4O476}Edjc$g&+vefa5!Xw|j*Z{sjVJm7>4k)z?dU6aOCTLlfW7`6wWeG%t=iih zzXPY#p!xX%!B9*uy_uXtqP@9uMNiFy6iNVt|>)^CBB?ruTs z+7LEUM628J9hCg@saMoAd_H|t)r-;KXP-;O7`p99Te3BP9*V&Vl3eLLeX>;`Xr z2=4*C4@>?u+6e`lQ4UfLaG(QH6_wAwiF(Ibc-o`0A&KKv*mRva_ma>q0ZKfR57{F-Gs?ahIsbHaPRX?#do88L&&v`= zp?%#5*chY@`d?W9;)QfNEuQ(d>~W!QXBUBZPYWH_v-2V|n&_#JB2;k3M7#_egLw^k z`IHL@K)(6d1E%j;K7Uy)-tpAWuUZU;K4xHKv#ME?>3yOKzp9lTa*Y;(8D>v1xcqt#- z39EuzUAX3n1Do>#fH9EG}Kj&_CsKT_JI z55T0a!cX%m@(<8lSTCUcIm+@2;5G2XWB83fv9J&s2|#HI7RZ(wu)eSwJUW~&owrjs zBq|Tv+thSejzwprQQyN^CMIWo_49{P=Oskt` zm?vZ>g-hYGooV}*C^$I=WK(h9_&bTenqV#l6#o-h@j3_9n(Y9+uY@1V3Mc<(f1lys z6%(Fr;Bnn~yl-uVgK)^6$BsMm*pLhNP|Z{^4X#@2s#LQfKs!s#2Cr1HUYJ8(%qTTu z5*J|Tm0iF9(CbGH15L!m1r_T@+~{mI)67w`0rH!RG;hd`>p(8DTL1*TDd zg_?B%{Wl_gxSP<|G;NFx&cpjxs#!h21Yj!OL)u!{t6=s3QN-(|xWCI~Loj=S$Pb|1 zjkIrsevCLnFsY|#fgUnZHUX#tdM;M6KA@@{`6xxcVQL{Q1fYkc1_m+$&;|4XgFq9~ z9s;@sb6GTs*?XXB1L6ZiK$ONRfPhZd1oQy?fCkb>07wNJ1hkk4Y65zI0YHN}y(rKR zRAF$`3-oj#50Ly?pciODo_mqc`kRoaui<+@6!)_X0qhpU1L}c3K)4lgfPP>Q(A0p0;V06qco=jXBUz;r+dQ~@i1bwCKX1-J`%2-pW427Up&1N;&A zJCL^^k4*w*0!BatmIBuSZ9p8j75E15E#MJgKky9jBJd{gF7QX-W8f1&U5)#}fJ=Z` zfE`!@tOk5Q0@w`P1MC9!0tbMXfC1n=;0*9jKvjc#&VY-63cvzX0ZV~ZKmgbX+zC7Y z><115M}c>M_kq6yxwR-KFddi+Sb=KbYT!Dc1=s-G2HXYg1oi+=0WSh?0KWnL1e^s_ z3-j0nKnu(R9Kd2=H4p&8z}JAU1G|7nfgb|T0_ zJjxLs>G+Oxc!!Se;BXF`z$UUu{1}dO2`u~1O**bwz()Eg z^nNHu0SX|eGQFVp2p$7@*3r~uNY*$N_c=~!pS2W-Q-5^ri1aGvk08CF-|{e0yl6U4 zcC`gC@fGgOa?ubSuV?v;_^^-Okk)pxqDW_|vpo19Jj=}o$WjIm(~*CQG-7hxAh(z*ht%o01Ju)ahGjG<+@M87LrzT_akLUw7*B+H}S z8%Gb6(xmA!#mrh!I8;3IWVUsCnvA%aHpiSO4hh9JxrmP!FZijYO1`~`lu%7~9rtSqwSvFN;wl44dhP}FnM&ngXtra2W) zW@C14l+|ROu(Z&eWeqBJ@XIW#?9HcLByZ`;1=&uQi*PI6$|60u(xgXrep?ll2aYu9 z!JeTeI7U(vJTe4C4w-;p%_bmf*(7HNSXat!oCLaoGU}x-C-@~cGV_HiyT+9TbzTyD zNWSkzdM&Gh6ByA;cj8DfX=0K`f`ulcxFfxYneC#5Oz!TW`73VY3*cnq6DV|#OvWJz z6doY0^eNG39Y?WaJw>t7Qi@{d%PWcl>n(~^S%y*E89L(Mkt+K**C(J-;7Q=_)^$T_ z){*76WI6N=_+99kgs?A{{rA1Q|G(Y4`+h!-zx$#X#e7IMbRf(_l8uw%@_cEk{SlRi zCT%fhbQXX#!t}yMl?S4Z7M1SFZ{h1_xHCP!McznsOMVO1wR~(|KFv2{y@TE(uE{Ph zplN8v8VYC<8l&7CEW}2dJ=7ubV~Y7LlJH|q`7Ky6#qI@|T$Zs;OtsLo;pTkIT!WKe zNoo4pFsd_=O^#Jj5a+v4TG(^>e5RV+%JULui*r2Hi+OhH$;Pv>l59L93n&fz2lW9b)VATS$blY56`}+(qAF>}yDu?tW@vTk~6Ri%A%{eHt}I3y4A7efTf1 z;}_LJWWSH*p;5jnwI?bSum(0>95zE)ZDftgq9OAaByocjz2Trdgnbb3;e0;p&$P$` z=CPTDLiqeO=805TQkN#P@wG2hp4N7n*oOU^xe#|yG-M|>MS0rS%Z}4(k8B%*Ju$q= z*?8DEzhc+PbLfnHOP)n%Y(;@I6O7vfDc3yZ0IQ;$@TNG$>51CJO@7hl*m|~X1_ht@ay+<80o4!zF0!q*Z}V9kv2Q*2SvbpRan|h=C4iP*7t-I(h!JYZXQZt zeJtXGfM*f-S4X3bzGz}0ZYzcEIYs5c){9nrisqNM5XFFcAItS%rw%er>9gWo910E6 z{Yvd@OvdgBupPY4)-!b;wk7boo`;-f-h2|@!>lFd@+o<{+9TVxQ~u~;HxH@ZNWCTE zp}LII?WBA^2V*xW<@d;&<&1RYDAol~8&?Gqb=W&lE7AMtyp!PQU1C*D zJGs#QMfCM*X;Y5;#l?O$Hp{nxpLB&Mdz*Y$@&%3t^qKi_Dh1it#GD%GHYX{vT;ysH zLYytFU9r5jE`3q(g@oRJ`~81d19@F6g=vWtrX|!}g_syo0hp}s!W?uCuo;tbm=D$5 zj)}W!;3aZn!ZlYtMyoQ8t;#jx<^e6;9zi!ns8dWoN~5YDk10F_qhQAZS+o#EJEvHr>W zH|s+CI{P>5kJ@KB9F7{tamR;_e|Nm({Ec(SX%LT#?~7-|Yh1`iJxBn?S=(s4&A!~u zni#)a=KK1$^rGcKTd`x%amsPpamF#^IP3V-k-{1oCZ=#f4rBL;t!_+0@%Miv6j*+0 zyWYWiq_7J8D=yZ{Fz1DRQMzfm8M5*>D2IBxli z>+h~(?g964_X+n&H$40CJs4KUTE`~G9>)`o>z!g0TlG$TmA*#5NMEO~*Ei@J_3QLadcVF+AJRwl34MqDW__2wTfa@e zUEibMq2HJRA;>-+Ub^hfo_^aJ|i`V;z-`a!+gT4`No{iBTy zVtyQX_`tNt{A0^cEw$FY_Wkxg`$795`(b;({fPaj{g{2ge%yY-ev&Q^9zyqo(QVvm ze8u>gZIWY_bD7v6u5&fH{H`{%Tn?{;p9y~uChN?)Tw|H>JH`XXYpD*fDn#v5q5Gwt zfzTJhj$ivOLE?u{7n{Kvj)czgZ9@R8xH;d8?e(F&)GanmXLY5N)bko~OvQ+o=N!D>gL zqnPTZH;1|fs}OeT2Mu2u@{G3{?=d!6{FXLL$P%?AEFG4cEnSvw%Qnk)OOIuTC1zb_ zd&*W|&&i_nA?I1=r_SfZ7sV>q)vjAyPq=>LI_l2Q_n`Zf`?ULv8)rTGayXsOGn$MG zj4O>F8S(Lcsl7hcU1K~*c^Z)DV5{?0Hyf17vq2~}O*Cb4u5nCqOm&nww2qmMO2=G> z;4nI@^zM)pzd$H9&NOygkJ&D^2OZVokHlMC&$<5SDsj8rKKBmyA@}?4kBN>TYN+iC zggL@O;Thr2!rz1`x+^X~1FgnKjqg|*tq)oKwp+x0@w=`guFKtvINhpvKV1t-Z3TsG z)9ukM(ElE_KgDP?E-`-1IL35|NiN34&y4XD3e69H=^DoWsn1{@tnWtK` zmYJ4H%Up|qT0d=3TdS=rt-rH|ZM$uIZO_|&WBbH5#(ued*fAQM@I&X{oS!+Ti&u!v zu9)kr>!ABNH`A)vVU(j#C>AurBw?knP6!Dx;dWu0uv7Ss@FdFi2jL?jA2c^Xf06!D z{pH{vdcCM$s9&KE>c6IcM*o8THT|#k|EB*yf01E^;R=Jr@GZl`hUW|`jBAXiOs7p} zOhcx#rr%j+Sm#@JSaWP0wz+n}ZnRtNPJ5NT#=gk@_&M~YaZGny<=El)uH$jXe#hI6 z9OvWUjB3#%CdGS1t80ntBiE1Jv<|94-hD!+AetYv;4Uj%JjU1oLD1c&8)si)@3uef z$PuB8W32@vC@cCn}mYa2KlqyN;{9Vf26q{o5&zIR zee;Crq-oG}$~3`pkwxjxf3gkPuCX_QbCx;+j%OT8oO_+c;&xY$YlmxRmfX;|C%LD( z%iLP`On0SwF40?$3TrQn>2$a0r&=`DN!F>>GON}))4JaJXX`}URNF1KCv4Byu7F%z zWe?gn*gNdK_GiGa-?snWKFU$;XmYeU5{`QuZ#deW-vkdV7r!p<6$@S0yB>$kder@f zoAqMt7vH#2xL^2O*r@ve{Hn%qhvDnSO7Nk7TA#N4%=Rz#U)b{oRgeWo%S>Z9diyik8?Th7Q00@sNynd zilN=eh9o-mfG<8MB7<1N)8cQBt_X7ZGW|CVm8O*GJC@7EPh4LRP2l#cMKBf#bwa(+ zAT**+HVJ-VhJH3A>?!?e{Tcm`-edTaWyrGI)$7{h+Uwfy>T?}*9daFZ^@G10bscjJ zxS;3q@BB>nTXVnVh~=o|m}S5+9#kRIgOJPX^m1XEE@H5wcb>Ej+D_R{+s=T-&e}e; zrEIK9it_{GuWT{PNydN<^Ehv0vs!%3qg_%O7@NfF5hNR(uVLbZi&BiWcw{e?syYbxq z)@M9uJY;OQ{K;~)eGc*OF6mq2z{4&wJZ{`%y2L!w4F8^7whcz5Zmv$y8Fg0Oe@#;F z)a};wf-mpY?br3`4(bl+4v&z=Cv+!ugSu0?)4DUdA>CPM38@iU*9SJMeK*xbuav(x z^`Gfy+5+~^TyML7&*?vx>ou<%3QgliaDd;sSikhnRk|NJpN5=FIj4w^(mMmW`~tyA z&^we`n=1%{&vKLHUdschlL;gAtZJgE!CWq{<_L>)ztg|3KVncDue1Ez61U!D-C_;c z?z8#qR)^D31>Jd(qs~$9c*6Or^JeiI;!>B+z0lo8-yO=ub%uC^DZ<0TCS4BN<>#hj z)&c8rXdJ%>#r)ph=Q!v%u)!Uwx8R|KzCM3N2A7?GG-Ws4&gpX z8I5j|ZmO;fHN96i3NmI7G@5d>?qP7%BgRpXdG}ftTc_9u=v^)LPQZ9XNEkW{HygSP z-G*lkFBtlaL&melPmL)oUe7lzGTjV$*=^cpy3w38f6e?YbFcYH^GD`4Eq}IM1j%E! zf6M-){dxNvc9WyP+3ftja~&j0w|G(nP4d3?O<}k2m~c>dQ5Y0{XnM)?8`I~eedbrq z$IQ=Jk62&D!uV)=gX1H|t=i9A1Re%t(K zbDibumcy1z4?b?0WSwLya!vpbbU7QGJDkrtUvj?XyjI*Gb|MGc#izuSxWIKC^o&*R z@3|j$KjCKeYOX(#&itThrY+(6nTs_^b-BkBHvbd4M7_1qw#}AjFS2Xx<#q>T^Je=! z_FeYx*k6FIK5QT7nBw?`<2Q~ePKR?Fw25M|2K@h*;=hZtA(3~v-g5m3{LAEC?|#|+ zIki<3ds<+$3GWCuLLxt<`{WxdDxuJzxn{kDI#{nqvuXfhM*Q|vSB7JDZ~5i1;>;6$%GK5=NBS2@GZ zCoq2c+&Nk_iS6Qp;z6;|#k!>OX@#XiM0ikmRrpZ&yKt{AX#9q$%(4V}=^pE?wj;LV z;CW|37j5>}?C;v!97)IBj-8HgJ01a_`!OW!%Z^__;@v5}D}Euq?tTj+uMge-pz`%# z-wupRgmPgfwEaEM(to29^p8O&`USM19K&VM(Hp_do;Um&dbJv37Athu^~Sr6FBtu% zt)|CK@0un-JGj$)*!*|1+p^X2pym6PPb{MKe(O`#r>)PSof~YOw#~Mqws&nS?3*C1 zzG1%?<0h4(0@|zH;dX364v#ygIu|(o&ikEvoIe1s_?7cL=SR+ecdEoo#I?|v9uoV+ z0rB_Z6xRmVE3S`SOWco9{(IHz7>w1zd(iNPgbBJUbyw@wVARrq(aJY<&+GCqYSif; z(*F)+S#8*azV=PSQ--GvzcrK^E1;vUHm);g@kQgC#&?W=FrGH% zm?oQMnyxgtOv_D8rYQR2bEel#Z<)rKE6i5&O7kZ3z2+a9PnruXcUfMroU(j`7QfW$ zx87}i()thU#WuZdp{>jISDVHDh2weXtvTXlq7x&*?_mTSbtl{%?wj3R?r!%s_jW2v zpPI{*?;G-wgHBVWd9GP78_hp3|Jr=5wGQ?7OWT{a_iP{9BKD1t^xt

Dce=b1FKZ zG!jW+tIKim58~fxy9>q_YJRpO51MfuMr2*O$8>LC1a`B2tA31Ox^cE~sj(5|?=;?N ze8gxmJ!^WwWPv`$2C%0t2jg$yPT?+LkFZbpF?5?Zg+D-mA71*)+Bi+hsPFZNT;p%6OT*(ms##xhnfrT$@{G_t|fRM%Rfx{dN2O z=+lqde_%gg|C#-l_V?_6wts?olPeu2%$>}K=Dpmp%CXMjbKL0I;OKC4Ikq`^91lBs z(ck(U&pLkTc+>HLpF74oF98p#b6(@@az5bP?fjARC(bvV?_wt7FBsdUoO4B^ zXcJvxwYXUPn)tBzql3T@zf3Ts~LS)$RI=OY4rfZ$hiyi8lSF zd#C#oiH{7bx!yVkV=cE(i}A==VOUV>M(MPmSQAFw*Mnwn1!sLk_aSI@JmxuO>CO6p zzFmJixXo_;_b^xS0_G=ZjFMxRW(XR>hFd|+-!SwT9x&`Spsk10T((J)zRB!2x0yrc zs5xQoFyCzMGIyJ|nYWvJ&=!cx@Y|V09(?4G(fbDF`I`(asl`IESk#P|Wta=?-zZu| zr&tC4Nt#kU<~bV0bz+m~7u&>;7!?y@hj_Et1&IV{BKC+o#GT@9u~*y!ZF@iZ@)z|`!??BIeH8OXC)|S= zQDZ!f3CZ1{(JrAIBfafHkFW!hc(>3CdfhAR7y2Ok4he^aeo*dF;g~QW92ZUqCm{_p zy7i|*3O5@6*XM{%>7#~>^xkIJj#k)V*ok)N#f-*Y%xUx)4jK*_4jcLnM+`>|#|#68 zQ8N(3fC_cqVff?0VBf2u97Gw8H<6NTv-efg8ja9}P<0507u^#gy zjo?*HkTq@Su~B2f*zuogmy-T*)OgG|U_5R-VLWLZ#GJ@!Ny%zz6-NHd6@PFk$LQ>nPhz*<(i#mKMJ& zi?*Q=Q29KD8FTE;jjl$2LE0M-UXE8H6)p_A@*dlO)dT1q;;{P0_6O|tl4}+eM zfTE9qrjLWFPlB#bfwIqlw$FmPQ=o6PtKQwa==&heNdG*VZu=9Kla@h9s?(M;7q{q}qB2ytp4) r;Zduk3-7_)%NdNIsxY%rXZJ&|*k)(-*t3f4bYZ3Rzn}jzHSj+GcbQ#4 literal 0 HcmV?d00001 diff --git a/src/3rd party/luajit-2.0/src/lua51.exp b/src/3rd party/luajit-2.0/src/lua51.exp new file mode 100644 index 0000000000000000000000000000000000000000..1d6a62f5372d7d69031660337e4bc3cba6bc634f GIT binary patch literal 16302 zcmeI3eVkO)dB-0R89>D4MMYh76%66B9`#)>xy)*hUR$sWp)#HZevUV@ zKYI4}e4lggx%ZrN@7(h|+|CgrY38J_b>BCGXvzrUZN%I{K3mUSqC8a7@rq4C zy$<|0H(%&&^v_tSDABX1_vFdiQhz(BX#p#4LwmTHZQlQyef0OE9{8vSKI(!0Uk{9+ zk#r1=qGM?^MQ99-rEzo|ji=*j0-ZojG?6CJWST-J(n)kOO{G)lR632CX&RkQXHW~B zNoUb?nn7pNIW&`I(QG=G&Z9YWKFy^IC`vJkQ-YGzN-1iiG_}(_x{&76MRYM;f@k5S zw15`UBD#z&r^U2{meMj>PMvfGt)MHZi>{)pX(e^jHMEMZrPXvDT~9Yq58X&NQHIt~ zmU=0NXKaD`sGkO?NNZ^wm1vO4RG}fdnW|KyIyGoLZJ=S=NVm|fw23y;ZFD3_CN~e7;nxSBvF- z-?q&4*-}G}fXdbWLbY0{s;a$>zP@6)SXWjqTPh6}@Y^AW%?%WC>$2sIhE*)r3)tNt zp@wCTa$~SJRHZUh#|azz)auzBx`$6)_NZ?h@=i|7hWvbq+c?w0a3NPM)EXu4T>FZp zLf9_n>)GCtccgyw8m^?TSSaOHQ~k9@uTrH-HqRHX&oZ!wg9?27uw^*S?kyKKa7#wp zAh^W3w|ix%P%ag{rahykj?6t{_9*O7f5J9fJWKhYr_CKln;=})`zm?Voo&A2_<+s_(PY;l`1t=J69>^vN9@} z+)z-xT0j^0y^_f{28ZN0g_|2$bwvL(GX1J83>sRio!F>j(7j5qLWe3B zhSkYbde@c;>WIOR@O@&K7O{=DHHS7(#RxI;us@V;}+<}3ike*Vqs5PFKhV*b@u(DpwR@_4++z+Y>o+pD! zVlQLr!SbgbYk%s&@TVShFq>e6XA?j$f!OdS5TrSQ_(9Q-$3doEF$brP+rXSo^@=$X z^@{PJz@A1Qqamp(PieS}4z5>11E-(685ZTN*Aw2^71cEKthG3#blI@qksEcV@G~vb zn^jK(WvCw%(Xz@b+E5BPN|(lt_N2v4wVzl@gH!8{UEbvBkT zc$Xl&MKq&4MpO&RQKGO&!aD|gXQBLrs70tgTGSkrpA@wOEFvn3@;*_WU}HojQSK1c z1vXYx8s+_>y1~YYnve3&MXd%qPE-fVzYx^}#%CMBdk4`@QER|>kru%_2+^lR<-sP1 z>O}czQ3GHni0VT5fT$8!lPF%O?GiNvHc`}Sln;ukgH00EgYq+?hQTI_T7&X0MQs9` zA}Wt^x2P>(CyE+C`B$R0f}JF)gz~eZ?git8WCZU%M1L)6JJ?iFb(DKV?EpJP)G*4= ziP{Nvs;EsUKQC$**lD7+p!^$AyTO`8ZAH0P)E=;DqV7fcx1#ofoi1uS$}fo82X=-i z9>*_=+7H$uipOG~r~_bUisJtKlBh?(&Jx9a@{p)U!KRDagYwIw4uZ`P#pkwP)FH65 zMe*^!BI-%7b3}2SzZ3N|*i2CeQ2xEB=fGx(dITl&2)zI{ThyZ{9~Si@*twz(qWlL@ zhr!MhbqM8GMI8Z~BkD<%e9Q>F3UI1N(sG}(PT5w0=hHe%0I?8W} z8U>aT^#;m+5;X>_P1IW`9~U(qEG_CCl!rt$fwhZz59PN-O#z!H>I0Ndh?)v^p(q+b z^v|N2!RCt^1;%|Cp%$=v=Y*aA__V9$t3gDn)*0`{z^`CyAg%>d)Ei%3G)st2r7)FLpR zGZ9(?c7>=VU@wWvgRKzN3HGw60kA7Yb%Fg*R0*t0R5uvUH#~j7t`fBx>_?*NU{{Ok z0sD7R!(b~#tpWQFQJcWJMdiVGu107J*fpXC!2VOzRNGjHn%8KNqzhY>lX$V0?c?=m1z&)Go097WD{Nuc+N%zYz5(SWeU) zuwRNg2$mPM7mV-C2ps||h}sACD^X8^^@-XK_NJ((!TLoV0Q62#(*6wYzEkE!p4J*7B&m)c419m z5n*${wg{U7Hbz(!><(d5!Nv+pg54>s8El-eG}v9jTELDIHXm%Ouo+``4Eo>Ip z@xm5?-6L!c*aTrqz_tmCf}J3&6YO4LNw6kiU0@#*mIj+BtQ+jlgv|%zSbKz4gMD0B z2iRm`Jz(2~LCD;Fd_2FwjhG0N-+vJWDhvTX_FIKR!3g4nm-XckilJ`m5Q&mdgFeI-EFe^OGpeT|yZ&Ur!_;B1+ zzQbDpoCtob$<-2)@#p~Ss25}IPIVMN{Ka^Tk2#3Jt2w;vrYDXKunvfw0z58^_2P_O z$Aw*br8X5V9y`^v87pJY@nMe_G~?cw5ca4T1^31YVTUZ|c!#DiSMjt-aPZVpt*g)r zSDqBGAi~Cu$-ct~wQ;jk42O=n@nxUrbF9p{`_!^|B3vg0E{?+S;ZOEa5Prh~Aw6;G zpKuJzNSqS#NPv#d=Trv|OADukxHnt)M4NpF;wQnXodEg9{0gIsY#M6DuYfX;k zapf~?T9bBL4D84E_>#{w9eP&q6`W-{yrn$vFx}@y=#L#U0taFyUJS4aj733yo`Zx#=a`jmO*KtCgIkSDN0*1`a^_hwsP6j*AV}1ycPil^a5**~#&-Y0X zROERw*XI&l4GEjPG0pnepKYcJ8*X5xAy&QxIt}Ut z&-fy)FtC3D+|-J|f#@su!IheLVOVayOS53gUgaa)#5(rJqjt6F@FTQ*5-UxQ4vw;; z+jQt3qiJwlV>-gYTi$O~$nAAEPqJ%G2ZwWc3|5DrO7t+l&g90JU2k%)FS(0vFuD4@ z=IibWVSRZ#$Tw<_9|Y!pzR92*4d(OCgjrDrWQ_q4fR&2bFjEzKeW)VFe8gP9ROpzS z&IeFp$b40J=aHXRPT6_EWZu8e!2T1W--P}XV!)vCgy3s08ZfxC*BUf@XRk9n!983u zsdo?aT8G~U_=L@SnAbastLQXe9ItnT1z~EQKfL7ea1gKN`Zos-JslbI(#NZ>e*yU# zYXSBi1YDWdKVD@W)8@*&1oE&qr+5zXBFLkm+mjbUigTKg_vdAhPbBWmjp2=2(I5cM z7szWNscc5V`G)2NkvLRHoDr{w1gY3Kx5djLMiQfzAURJ7UJwNo!EZhRUJ?0Fh0VF{ z787&)oTuL%CPW~eE8b}`j;M3{cbQN^>%99`lOo2>7kanJbg-Q}_8!yW-Q0Y>+f1$| zT1T!jI5fAI-@Ne%efS|STFifpGy*#uL$zC0aH@gI$I2=cq}o5kgD2rlRj1moYAqTW z)Y))l6*t|QQJTzH5ycjxVgERa#A%yF613YQN!o9bR(i}LDf+HO+USQCNz+d)(oVk# zlUS5Sj1HZ1EJl+p5~s5*lAx4DlC;<&t#qwLQq*UWHd=3yG~Hp5cDg@I;!*mXMPhWo zB5``cA_;oVB1t-8kyiSZMN;&>McQawB-CT^G@WXZcA66=i73spNQ@R+Bu>{@BtZp> zB&lJMR@!Qj6z#M~8|}47n!aL@c6uyKl2LlbA~8B_kvP3(kp#VIktF@zBCT``*0btv zlKUc=qDdBMqh^bwX{JTmDIO-RQCeV;7%jI5`q?50%2*^xeHLk@x8P17yXPKhvS zi&BS0VswQ?;?!f21Qjikq^d<)X_G}#^f8OH(E}Dq(-$q$P6xsy9i_)C5~J@}Bu+0` zBtbv3NRr;QNGpv-#Kq{yNX{TpGBo>X*%NB{zk1Z0XUt1(W?^`5EV-TzgdNmepr70Fk z(U}%$qqs%VbcsdUX<3-ycknuk#3*l(I8`l@pgS#+q#YJ%rO#Ri?q@-i=^mWi?mV7B57J=k#_0|6Z{U| zV38R0TO>|(izMiFizMkji=dxX9fOjB8&QgDjI&p_A zbV#>DZgR+=LpD2PyF+$4WUoUWcF1E6dDbB>JLD%0dD9^uI%MoIdL;CmpAsUn97P0E zZ|VSNgzB(wu0t+#$Wn)_a>#%~Hag@UhwOC77aa14L!NNR^A35%A-{0Q`wkgvJla%` zo$QdA4rz7BB@S8U5Ka#2O|{kUkYR`1>5xx4~+WihkVN+94FA5y7t2k;W&ZbR2_~J=uHv% zcZeQRWCB*kdQ+suA#)uv&mqekvdSR^hj8RTZ>sgX9kSCQpLfW^4td-m-*?E59P)FA zyz7t%*1>vH=RCsrO|!hMe=-Gh2cF@r^}V;r^%J+r^h{0r^O9ZhkOmB!@UObLcIp@(%uG9xhVrk zn%l5ddRqaN*7kIe&Q`!kV{4$(*UAp1tv$r)Y9);{wGD=iDw38CDzIs~L%kkKKdXKG zOq4Qpx;bRkyym#Gyw69p-~WEZ2cbST(#Wa;|08=ZeXIbdjkWU9#mWrQ#Gb9w!^%`? zVWm|%n6;k<7DLj%N(E_OWlOqONtNbRTII@=HqyERB%LctrE!&%^sPvYrk8}#rX*i{ zLy|7ql4Of%s5GoeB>k#^q+PY4k}}!~k};YDQ<%RoQIT@(5vJ!2B7*C+${=Ut9o40T2-xA9=d3IpO zmhCQiX$8@eTZlIPg=q6iqQ3n^Lrq7=J|;3${GOvH-y|}0{v}7pe@kTO{GS~i_ydul z$}b$9c%8`5$z_gC^nnMRtUDTALuBb1uAoDQ9G!iE$k5669F5Ep87jTu=+f_q42|6E z=oIQ?sI=Wt`6on{j^GL!dEe0))WZ_+&wx(<+|d)?Co*&fc!tidc69nA@-8#?=;qjR{|&_Uc|Xb62{sPK-X!>E^`;wDEIUnMeh?x&8< zuSLIto_g2O#r4Ps9Y9%zhF3W{h^wJ7rhW1=?v<>)%248lx?U&#|gMV|h z{Rhwo?f#>qogWby+5z6s)@zQAZ9u<*j{enA;Ysux=&1{i_DvBPx`=WO9eK;q(HEg_ z=uSslUL&&fF|MEkD;*vBG3*UAfW9!a@Ar=O|A@%Y!$%xFK1gKf;0KN#e*-+|k=GsV z`W2C(-AzyEr`@1O`Wy|dz;g#Z_L!qb-zGA&5B6wi?++dA-w#~SqXkF1(4U5Oq8}}- z!4>o{+G%Jj?9|Yn-#F^85m|ZbmswB$A`Q?*i=Z}yDjmnSOar>9$` z^3$#a&5PEoRKO=CuR2|ynH;G!eGQn?8q=+2wLTs+0;e^~V>9(~tJXdJ=OT{_$(xl3DoM=>@nJLv=;XWyO&C;_fTR73ERi>v~6D8jW;Y6d= z(7h#`)~ME7mGRJ_tp>ANXQa`nRRU0}!K~J)g^o6c+-fi@I*pObwTiE8NK0<3p&o)O zLkYB=JO!sFyw=hKsnrOa)|j%5^`?X|6zA8TD13-VB$NMg;LA`4=@a=F%+o@siUHpn80HQ7i4Gz((AT6KJ) zC66#@XTAid8A~HIUr*s8jj?K_=BHX{cuq7h<{);%Go-V*Rh0?|WNCQ+O!FqTA`W0m?9S2NQv%SgU?FG$}A7ip-zfkwN&ftVX_ z({ew03lixY$4EZ-Oj}|}q$zEIQnoGSQq2!fmy$cDB+DlyudFgdT5_+7S@@*nH7nCI zVMY&W$;GP;rtEqpq$PK}>>mlPBCS_ueLuRC?g~wB+K!qV1S8`8fwxbkJcz zXoiYnMF-`~Oev>8^P+`YBQ4E~mRG6zL8aK7&SlKDuI66L30SXC)Xo8F9}BX2{1*0V znRl_5mg-k6re?DxsW+xq3lgQ-m}&*7t(xMMmTdt~^wI_vDP5Gn;!q?Dl%6eW;(=Q*KC2QbT^N$dkcp&Fj73V<)?kKREnfjI z(0VXuQ)qaK%(9NbP#&gmkw&#X*5GmDm?$6PDmZ2+!E>Sk>sK1Wu|}cTYQhm737&4m zvz8f<6OD#D--mH8y+6>NcHRqvo^ zHls5#GdAYEbEg#q89n9bIlUmr=ow5`DFFqa(Q+VKk0q>WM!tE;c^^wS(J;=U&-O{q zD-;`3m3j>eY_rr=oYH7k#;emUZoROPj(Y(Xip>gADrcr{CAM^*R=HALt01h>8K0gB z)pJReH&(5WiWgNVDn8Px!Q`fAYHrvWH4!Mi%4`Mhq0-X=rDvW(wO$RS39EFbunKoi z%Xh67D816?D8CGBA80|W7i=l01wPgiCjw)1bkws-$1E43R%!w38M`Qsl)T|6E~DXl z!6_If&L6Fe%(x(c)$nYrgU+;lWHl_q`D~HSozpDq*xRb^MZ)Pg_p+{~W#atFQfor0 z;J8?$;VNLuH|aQc3U8RwxEo_ug$1!*cw%^hRxR+cmKd~Ea%}g}_I{4GBLqi(*+{f< zGh%&xM9m?hkBTDhft?C5d*z~^v@t4K|B9}a{h$2456LNcM!EeA0k${ zX**)qdvO0YqL&AWeu?YfaQy+~f80&<(N0{Udkwl9P}jd6MJyh5yMTI3?Sn4r@)qj< zBII|1UfY6x2CYQ>evE#5bAagg(EHJT^v}bHdp?dnK%L*f_4P-HezgnF1~|(>ec)H1 z?IwQv_M_-W-1o!1E>>Fre+jxTqdsduZ=tN!sMBvy_Zs4(?}7FLYb*3$L4SM%Iya8~ z0IC@r*F`6G(uNtm=05cj?)o3NeAf= zouUfO(zA4hhG>Q^((=hvjkh#sZ8 zX$Rd;U!pJ4ee?i*o<2wG=nM29-9YQT7p zzpmr%GG%t`&hoTq-(>unjK#S*bdJ}axUcH|wy$mzvT(~ArD@kjcIBECe)9S-dq-Hb zX60>`dKT8Nq_XPmSJ(OFTGov&6zA}3=5UMJJ5^Y_sD-7fTh2){Zg+5nl%9z5p0D%C zGs@m+&Pdxlf4GsRYW_W{^xOKE<|S)AV5R6~`bBSi4+#!Ly0X5H#ciJR9A02s7cB2g zxAnc%8dt%$U3%pm@azIimWW(dF&oosYm>$7(xR9TmgR$db3|jaYq;FDOxC1}CaNbj zhHZw3TO`cJEuoi-srof}rZ^J-$S%`Oki*E^tn=p%W<>RAXQe8166t2G+349V$ViLB zgCfmu5LTz#?&-*`p1K*ETW%ju%Oq4T(snyvW{B&K%r3yy;#CU5AkFV2K-dm68?4Q5 zXyu~LW~j}v2{P9v${f2e`HA1|DJAzz@-H!akKNvqE--b>O&(S;|1^wlzQ2q#yY#aK zwA*@Wx2>7jYLR-n9R~e`dCx&9`K@d%$?ZwEiQ=~#!-$Gy$FLE(tpWjP6U2k4T>!D| z2!w8Kv>BP%@Q*;+jJEuS!yG%cZHM3-JHKtLru{Z@o88m)yRPj9Q^ubt8a}&M{>hsO z(m}an1KE8XyS#NV2ENP5<_sjndU3G8-f98?vC^FD{a7urs*e?OL(t-SgTcx^a&JAK ziO7Zs4nNl*2xSL83g*P|S8-jfvN)}dHD^3B8!bFviAG!j`(h9Cjwl7UR3sAG_j?4+ zbVNaKB1940Y=lj_oc4C*Y+4>~Ipt9KqnDYaR9BRa{U}1hu?MVRif_V;^7|e z+}Tw2Sda=E>pf7tYn$C&moU6KH6sRK-86%Rry3kI&&vKX@?^Iv_*nMw1}49Q679W2 z+e&JO$eWUkR8yXqvf<)9eZq^UdQ;!vQrWb2rkp@M-eQ#P_ui?dMvYd67LdqGi za*<4ia*jM37byGK!4)!U>X8}aV)w`9K_HG#kg&@W1bXsl=jH@GJ)?+g6LNLWn3|}O zXO)8^6ZB>N%Q!DaLEIM4;Q=~3an4J0@_{q(A`cnS8N2AroE$HJy0%oXVyT9aQwrc@ zn-Gk$JaEdV&f7Frpd zdUelnE)+KnY~DCptN8%@C!KQd-#*~ayI)#SSaKcRzv}Jb8xT`nPWHECqix-KM5Wyi zp&z~z5ILC;7BY27jk=$1U3mi}rZn@r3H036RmZC3W@EZB)>`+#(1Ys=hmRweo&OnSbE7GM z5SlfqmH2zTO)&-ymK&2(sONK6|C|2#&j4oh&CgV9DTU?^BHC{x6G37dW>BsRl76ED zf#?i~#K_m0KmKRR!a;D)nafgyv2oPA`vB$~2C{-1+M$K?g^ihY#zK}_3;B0jF;hKi zYaydHOa3Se!Ty5#84LNh!1$}NkVSa%ojlQdQH41VVRzkU+xl~(>c0Ts9&h_TON=V) zjkupNLNluLPmL<jL&|C;fR3VCOKwZhNzTtM5!$AlV^VSYqa>yKT#s z+gGJt#c=t=sSa&@pszjBIv_2>Utcfdht4q z<=-~~#iK&i5dRp7|Xi$0>!CLdoVHMel|vOK_Ld1$Luu6+hjE? zVjf)e6Spd?aH3A2IMrznCT6GG7|DlY z+zOf@=Fx|n+s}o!!zykUG!r!J1tsyMRx^r(AA7<|%u08(!J1WI+{8|wRpO0*XM|;g zs9gL!o>Rj9?#dzc)TYFTnu!`!lv#A&uCU7H7Yu!_$qB#z&6Q|4jo39NM*Ya#rl#JIXoWA*MW zC0g})MpFA3i`0W(5G>g$=>;qNi;9e`n~2JK#xlDw0>Y^Uu=6h}41d<1i=T(>CG6o# zj3iq}0>!BXXw&_I6gH)}_<6J`;rTtlNN&GNU^vxjdlD!QGK$+t`^G;TtyE^iT3ObNd9zC z4=9Pzx{p!Rxg&w<{>`1Rxc!3F``R&qb3kx%0U2&ur2`GHnvWM0re4nEV$Deo-pzd3g7^ww? z)W+Pp$4c12F~P$Bv5^LGs#BXz%x}j7hCf-zWeZ-XC<$vj5m2(rpYHoB@oY{qiaHJ{ z4eA~%;Uhe*vG}B=fN`qR-b=J=NMnUFoD47zUoL@lN@Fd+F7v<~e&c;u6Af#u_ye0o zYTfAwG51>P-a_VRor(H9p|Q-TK)tjn@%}p#;kf^hCs3T~)D9C!PimxG=Pe}CS&fvN z(7Q%TygANkq~1^3Bxa2B5mJ5_cipOlr*a`+@o8!aRg6?q=b}$=oufL{o@ExeYaB2ab&$l#+`NEV7pU3k_*xL&l$9}vj zK%DBdJ&9iXw#LC{v0S#KIz>tNBQI){@WHJ>bw9%;-ay~cSiQ%V5@YBkjg)n_SNtEr C^(6`b literal 0 HcmV?d00001 diff --git a/src/3rd party/luajit-2.0/src/luajit.exe b/src/3rd party/luajit-2.0/src/luajit.exe new file mode 100644 index 0000000000000000000000000000000000000000..c8e87936b4b8be99497e5dfff1196ba4c0a5665b GIT binary patch literal 90112 zcmeFae|S{YwLg3&Gf5^e;S7*KgdjnJqVWehpoAeh!AugZfeDcrQcR*1;&ilv;T*t9 zAmLW+tMEHnuabKcL|XC@5V z_PzIc-sgS)dEuFJ&R%=(wfA0o?X}lld+nXF?`{&Tf*{!NGYmo4i8uZ8@aI2&bR&Ay zgZWvAt?H>cbk{QkMGGo& zez1J$vg^~+N94v(mu}p4uj4N#T=CzrF;3Sgge`mKxNhKYn`<(EyIqgr{m4@(E)j3X zU;gM?!^3V@I)5kg_rmYrA0%Ayn)|$haF@jT zN#7RyJmzkIn6_|F4^TyG{5N@oD>L%K0|-+E~UkS=KFD)o=@m`(5pB9Gam2ei9#Ga}FNA*$WdaO-tq_;Dl2lqwq&fL_WbRMp z=W425(IxGg?WdGaO0B6@_8Uvum9;;$3DPGu)scA?gz^RX)0*l|3}Hc_ZibdJdvTI9uES%w z?ltNXEyd#tusq~Y_Sv;!o6=!Jj!eMD0|r23l?^eshoiC{5<)^nfX$(ZUP9d`tqd6f zc3=$8jeJXy1b}@U;COAoS}260qPJ^{;G-{Tyf1hfFlJ;TN7UnE(M@8@~fms|p z3SjofcEUlxuW=VUz^@k5v7*ehSJm#oie~8yauJQ*em;=F(5ZpA? zBUESutQrk=u6s(&EhSf zesKgs1%5Vf5-2+Wa)%8mMSCmnh(1a?5-GQ|SPGk>^0~Z&<-8C5Oa`*x3R|HN?CmlP zKT|2Z2H_9_YY_+y`B_fvJtp?9rZ?gz;H~T{QU+3_NujU(>@;MzpS_EEqGf2#*cx8R z>UKhM0+FZ?eI7MGQMXYg0YCf0C>~Q&-R?3F>=+JG9qoy=(~&W_7OY97e}DjC+d#m% zG2nq1@CSIKH$8r~nxmUr4JuXmiNT%0oz&hh(B1(1xtT5}z#hR@fK8?RW=97iD-8Ak z!u|lu#Vg*^&Zz*QqbvdTD8L|q)07?MBo6cA)F{n=Mfq4eh#ot z0r+-5k4vU@1=zpwO|&xuT0Qh!$iXjb&Z;$Yf$gYktE|;fq&Nbf^i?r*A)v4c|{?26jrhn|eK@zP?*=JKO z7-G{FaDE`NG*<|pkZb&G1@Knzq3Ora+>Q{KXeD0p7S>Fm78(_Pb^uUnhStUIB%q&p z0ilt3LTuWIk|@&8{*wb8=)uQ`(Of)8?c`F)&#pJ)_r#^rz&EAR_i12|RCa$qO*@Z__Dp7U~jy9(D1vpK$=hsQARw00al)eCuZ)Au43?GmR(7 zK)sQ^)=XdO^Ro~6C&}#l5Qj$m5CC7$hGF7o8}W^dpe~Bj2EqrV@#UsCeTkTdD*kRp zV#R5caPS_0nHCR?<}%FbXJgUD!~GLpHe?tzRG*VjTUixPo#P7*p!RGNwfxQ)h#lnu zBtzxBUR`xjlEwLf57;bMU;Zspnr0L$b9V^xIqjj`Y^@{jjZ(EJH%p0HgHHpq52GNP zjX}#IUJFRBb-6#NA8*Y3CE!`?Db(b4NFVnHYfmGdC*~P`i3p^2oe1}>o7(@Uc>1LP zFA5DINiJ(P^JaLF`9lpw*2HVd^^rwfl9FJ_4)`lrsbLtw9FUm{m})JJJiUDhz_-Q3WEy@D6aT@JXKS6qWF8h0AU^37@wwkh!;qNuYI80{ zZ`sX()nb zY}YuV8^Nk*#JGl~$8%dAlJh`bBRJRXLh&ur$Y!CBjOg^&jo6_nv zViTg)M>Hc#@;#4kJ=JL2cs=i@iBNpt`&ejS!-+&HPO@OvRTk*lQt?dl|mLFL)~Z zX2xk0U_S%^0@#qt!P^cE-8;=bNW4V}H&FNNGkc|` z9SH4EQ(76=8Q&SfhDjbF(0YovyE7HV_Cl{Y4|7U@O-B&oDcn~r?^Oy;BZVNp;)>RM zv%Sh`dxbWMFvMiuNEK>FCu)wdE2wLQHJ(7g&&H!3A%hYh;*r_mzsSYGXOJhRRYSbUsjXC$etpAikDTrS z1OEApVW2==3~ohA0Hi(wICwh9+VFFzR$n_7Lu>_&vM46I=``83@?m1%LR}CxFl}Xs z3p#y^{Opq?B6u8u`~XB{MgZ{NoJ&M3FX(Hx$X9|piu>AAw+HigME!RXV zSPlW#(lCWMe;@`NiFXA%gP{eAVpY`3mH`57m_0~b4kBPG7~&(({^~|#hUjX-ODsBA z&Q!D^BorgX$4Ei^kO3Op#Ad{@hH|)C$8us}EJcTNycElk4Z<8@L&Uo%EHr}MYLXl6 zj}Z;d(K%oKyyxjT|g0#nl)HR zx6?0gpFJ)lT>hHr`v*`+M zu33W@R2zs9Ia#}Fhpjlc5u>ks5$l5l0hRRpOJWf*2@!hEH=&>P0y-j6nB-f;e)AO{ z$r$9$V)q$w<6|W4tE)^?O;v1R60z+-(%vt4Qm%x!QI%T!zMA3@rr|B(cNcy_^0)q3 zl9Q7NXic_Zy@~eQP5sdI7tr|!4YvwXFc7-d&$fUUxft9D-%v;^ht4+zDLELfu_quAYM5Xury{3Z`#^7pf9o-eLyTr8Wul(o5b;g$U~b~p#`jB@$X z=8G-vUk4f>1YfVk7ZCw-oID2EoWkyRkalMm&(OhNRpELP$27g}5pVRp>mp^m(Gn+rN_%nk)o&4$G zPdlEAw9`iBT7f#Q)v*i{nH`#`A=}wYmw^lg1QIGMWqZiNzQ8n88BDVYQML||l~wJ? z+;}<{1PqO5%G<BVK!}jo{&vgND(W>;cSz|63@s zb@0AIp)zU=y#NysOKbXM+u4$hKHmOQ$J9y(@VD@on8$J3kc* z2N`4%I}83CYi*$*NXhID7;lYP6wSU%d^n9h zh06AwgooJ9ugP|f)csZ66^%nd;9ETbhJv=Xfn+7>^s(oFp>e)LXh1eh3B@@+BeO{; z6smc5Xx<=j8%3&dj%*eeXI~`Vob7FNr}kQ6n#`wy1!P79eS!V-;tvnGHSH>SQRO?HbEU# zy`-ugvS0~St3BihK06P6RC6WN4@0d#6{~-M(XM5so{JS7#!IDIKj>%Kn1Cy_0i^2m z4gzX0=x~D8$!d|i9XYl7Q-1a&rEd>q1fzsFC60JX{YjMi7D=Ef^@FZHt;(*--EPiv zV&rik;>@JkUIMME`aBLr3P8e-CTx``5A7dL!DDAA7cBA^AA6iqCCH-|+2!%!`-&YNd4-?7g`AbzQRTcLU8bBLk}|Y| zZRe7e?#XT4DOOt~ieaZG@0_uyQ0VjIu9vS)NVu0q)W?(CK2EVh2j&T1+82rWh2Zuh7uI@o$Il2mH@)v}YyIYV~1tL*X^&N%w0 z=8?CnRb36|M#%d*tU{cQF&4Q!m*~ey?q?5C>qrQIY9Lo8YXf;=l)4fHV5DFSdz@fY zN6>ydNW5n%YIZ`cf~8HX#{l3Ile1X!#f*Oery*lc=P->qRZpt*_5jl^pu{OvgMB3+ z=OY2uz*+hKd2)_peW-t|DNCqEhYZvjJUK1EGV;JDy%Dd|R{_!m*i8@(S{I^W+U~pt zY4>GcLbZ05j%I`FPNB^Kb~Cl1J>(2dCyM;`3S?MzinEhFPL4+}7XAU4lE|@_lS8X_ z#E2&Sk<*|CY8DNS|2a$j>VL>mVps-oNdcLVZ?>;Hz($@&S)8E*EFDeNdIJ?93nlvb zEiguSi3Iz=hzTTsq@c!Cof4mlmNF}v3;uCvRls&FVI$rsB}%kTiE%BBCajR+#CQng zkM+bca32w4J8=5hIxO5tqVciy2(}+EYyK|?@jo70<5&+mAy$R?RE4)l#9}2dmB!U5 zEd|qevt8VN&PdVI{X~tr*%)4bSH>oxm5{LxE@Shk1vG$^f{n`y(I#!yQyAE?4Tk9Z z1DJp&=FfT>013O9=md(jEovQJ8*JIeVBs-JPp0(^4Ad&MuHg z2av$WX3U{Jp@o2mEn;m{_<;O2*>o^GQ#{sA{cq@mAa%m!IY`LakufX zMngEN&)s9J#{$#O@=&o#6ge^4-zB{pN@f2I`xs{tKf8ht&t6p?o@roM60{CB2*Wd| za0{_+q&%|kJgG0|M9QliW7o3?gTdEY_FgU;)JOO z-|o&kc1B!2qE`I!c&#WM!|zb7sN?)O%Cd<#bueoM}u`o|cu8%#Fh1p^5cF71!85>>(uK2qA8`WwJ% zecO5nwFXk>oC#w1d!RYE2941FqqKTS4Va6bFr!HQ+Bvh%@5hQsK`|Enir1(`;`SSn zr&gSk(;?Q1E4wV;kOZX1 zsHtt*ds?rV>w{QVrlA=7HR$D0o0O;=sA0(@nG5XmJ~BE0vl;((0VYs3F?r0 zBI}Hn`;x%W(+QL`XP>;grO=98SuM2&Y)5nUNgwLJ;Y4fM+Y^LZ5h*ca+CECrU{Hq86n7WdZA!PNs-0au zoQXYwy)@Wq+l^V-SWz39o3K8JsW7b>fV5`OgW_6q@PO*#4DKh%Xq$+PeGp|_u{#1= zWTh$(=F4_@e5cn=S&doz$x()q^h|&WnK6q$O>idHEtjZO-O$ZOD~1JjBqMVpDnUy? zOI&Y&OoV+(&VZoJhK>z=s|wm=JEUi2J7uy}81GfOq8|3&aJAWM6GFMctyIYx1eIm) z;CGbkS>2@5bwQLXLnGJwq)e>?R)M@W=?eVp_*Lh%$))V`0tjWS2f9$?IGSI-hw>~~KWfKBuL-(e>rj{|-K?+_X=|WFZUh#BT&JbmM}W%5)J2E4 zIPhg{b04kGeej?|E4fEmYPSpX5Mw6NKfoqstW!>1>=djNIjS6E^-{mF=wzinffh?u z-5Mxo)@};1MLUnYw0@&C?>lPAy;PGF&3jZWS?Y>%8#Cv@nUikT^c*0K>+V^R26ZLRm}Nul8Et!3s>Sz^g}w>#COAlGeC(_XGXC3nE;7XDmFb%ZD%&AN?~czOyca3rIJsRPxd^4n8cw>lsJWYOKU1jUg45M z4;izFqfJ&GPIGrW4aMojiNa?%&5U>&K3c9wlqSPz9Pu+5jlL(v zN?@CbHe6cdDuz{>tQhIi1jP{7fli~>Iavm%5F4$Jl4)nZ!Ioi>+wSIuH#zA{d(W?R zn4>d-jLSd7Vaa^YJYd~f_FYWJ`N@Ld5hR=Igznlh7oUwg2|y0jvi=I0r)%?@vjCC* zv1-z{%d@fIrMb)o8{43Pf8t z`lvlLk?o=wBl8(_U+eT0V7y)=YMl;}u%B{-NM&agc0%}Hx5l!iv3UeQ6C`>=6;AcB z8|ZTj>D;X^$S4enni=K>Mr-O zYSg;2vRzxoV2VI$rT&ya>7PJS_8Iyi)>Y7aldv8#HGU`NEif(XMGZ-d_uhsLKLbr; z3iTW;SZppBx#uyg@04k|XeZCO6G3Y@ zXlEj569>JX2-?a)(L~Ve9JDVHbdrPiCxXs$(BVXoBbC~CG!c};LGL7hTDuSk&LsG7 z?R`Ae$%ItF6&%!^2-?U&rxHOgau7=dMLFnnBIqOs^(KOPIcOjeB-p9;XA?nA4jN1Z z<#3Py4jHcf3=Xm-g6`rVdm`vw4ss-dR&bCr5!A#%#DH=1tyu^JpCWi16nvSd%1%gC z)0%@&HH}x|^33Pr!+?igx+L^6LeOA##(|_lPI% z^i)6l0X02NGFokrvR#bC?Z5*)h_pPj@q1=q-r)@z7ZTK4mCh`V)VP_w3G)`PUTog` zFu8a*H^E?P%zT4tZDbDbP;i6Jb>J7U&Ma!Uk=X@0q64zvX3E|6O`XNZ9z>{8O)<9_ z`~g=VvT#YvE?_pHJ#N?u!Y-rn%6k>clGZUB0k@rf104 zkS#r-LOZa?i=(-;LRj>XVT$;XV~Wi&Y$r!%whY*uiP*mX53%hT##SEj4*G&eG016X zc5})~-5=KV!b!;NSI8L*NfE7bk}VQx zjv?q%22xSLLNhUNvcpx347yEHPv|cQmm@CYZzZySAN+kIXU0kE&Zojc1n961wvJXjrN&f z7j@l!>blp+a$gzjCcsGoyubl*v6F*}EA>u6zPdA+w-aHseiyZ#I`AHhM~cU~7`@3U z#x>MfCvy(nOUfg4GSv7Wk+1+NEH`7&8qpY%oy>v0HZ3YWJ5U1l7n*;Gx4VE0E28pK zd~2PstWf*EBG8Ww8MEmed)n2`{rAkW2|CV^kO>V||LbunDl)gsz<}8cxn$g^Z`=%fCZV zlf9;y8hSSZe5;8jwV@$-Jo^$>1T~9g4`<~22w2QE{|mKumf2p7iu<7LLb5ibd^Wl5 zGc@)WQ7{wCNwcZ3@(A|tK&0dddI$rh2$dmLjHT*BB8xQE)QsUs17sjS`h6UG4!O+s zv1KL#a~~nz-MpQh`gGKnZw}Bp3hm4{YfZ-tV!01t6i{<_V0A%#y|WifBX)PG5c8^g zL-h_Szb^VSPV3TkW|_l}4iC>pH~_69G6Ns#HV>ZpvQtjQc4j&dVMkyxdlQ75GJ~DR zE4DJMG0W=t97_`IsJ6fDd@|YDK1xwHPX~qyEn_ngM~&nn)N;@0+@upnFEn6PoZNtI z-8{|f>_58IB4@KY6E(U1$57jVx~G}&^1AgEjke`TB8jUI%msVUdid2E+o;~`JQkvm zXJV5NGnf{pqBUORFt1r`4Pw(xh-J1sbo>F$^H6^CR**ju&O&ORnMr)AO^wX`W^QAq z#mF4s+$lDF0mUMJ8>Nx#O|XW3fUuEymN<4ZkFdCTyVyj!ompp(5vD5ZS7M6TMvaIke>x%gyP!y{i3egC%F9E^ zDsMGaC}fFcD>t?gk&H|R@|lgHPTULxAtA!aSZA7vR~Dy3NC zz1#CRqQTC@(@C;R++lYeuXRVLSIzDhpW2HfA?jw%SiH}1p2Q@F$pXWfzf;a?Nn)6Y zYu#MTl{jdVf}`4+}R@IcQ9${Ob53A=+B$y%7Q_rY|I@gx&tm|SnD zyNGd!c}G#6DyO=c2u2$Q5hQaRi0nFxQL61V2Us3wLU;ShqLvZ!Jk62GNDH3=Gn2;0 zpghuSR7YxhNny)oO3^&NMB``+O)QP)3~0J_JL7#yCFBi6!Z}Ebz70ge1oL_*l#vFQIh51G^9xuU&TKqN^BJI=F(XF zD;UTmP;5^41(8YI_!SffvzxHf$yp$8FRCkUxE|E%d7EOv0(=M)3$%bIzTM(*DR60g zVC5Y&+w4BH(kjD(26zA)h?r_1nC28S~A3n zKG(z<8`0mKAw5!B!<-4+yC9ooB15MDuQh?aYlHa9A)P|E<$a}fEYZpaYg}(uv#)wk z4oq>09>BpBK98^zhe+@b`@T-~p_2L*JQ*R&CZg-$I zz#%q~qoYT?MGUc>g~mnzJKKp zy5;Fg!5S#Yf;2fuZ+7<#Qdlr=OQZPu%E%-z+^w}mq=T^(Aj5J=TQrdGb4bo0wa2gR zXQ?J!UFO0w<8~!e{ZZIWe5IMhw?jjX#A+koo1cnN%hP&_)3C{qxs@zdn4R_Ob zechU0~@6dDGQF`t=jA!k}%>(=uIn7_c*w0_#ef;(7D1ZI-b-bQ=GR(bZy*4$> z5RTBtS$uTzA}v@LYMwzgdfLkkZY*oajUVLu#h+#(WBx$6wKSwQb^t_KC&bs3Bc?UAf zX#w^Qt*!KAa0Ax2tFw&N@K?*mnSD5?X24cK{a6APH_vTz-BAG&c%p5P%LDAM?-3)w zg>wdu*_+=(QZ7!sy^jD~#oC6F*%5rg-LaDUJ8mP5qp~{Y@z~HoNU=z1n3RO|h=~wY;Zg~gU~Yx+vs0iDHr&fqJ3~QaF=P;jScSs;z)oBq%QM}~W2Z$H zQoEvV#~Wm)l&;Ssv+$`VB5RfU-GbP31NvX{MyY3W>C+CQg%Y*Fq+xBtx__rx(%NM5 z7(M0cD^}&B`P}iMJ}2Y}u+?D5;p&Uwr$9=LN0aU2f?EGhXlRM%?a~%?yU&S{Hz@ih z*dC=N?lV%LMc8VQ%D39(QSgKiUhPbas1nqr;FwNvb^X-O(}(7RfM z=3*NzSs(*$q}btOHJBtpC!-hww_7Va1ta-8NasNtl)W}}QMazB4$g2EPCd=W192h} zu`VIvw~418rgj5$4=%#OF`Xr3!+!^Rt73!a~MCmykdwrso#vE3qx$Ab)p^ISH2NsmEZst#ueUtL2JfyFW`!QH$*{i!F>7e)jp> zBsz;v5>pUM(fSGZ%)Et4MRVM}P(Tb_WUuhB2jN`s@qP(8 zO~mcW(7np+9cU5;TWx?Hhy4U5z;$*l@Q^xATM$&|+uWIVRbix$-eRvtCzPy^Q`ttW z$-sNXwiu3v}vVjKDB7p~ZvM6NVRYT*i$W6?)w7Gy27Q9KTH z!DWZfsSOy>7w1$=ACbr=Oi&emHB6HrCMx)EI<@)?mCtT47<8$-XbMxqFH(H3`U{%u z)G*D2m}2>pCQdc{9DlydpEPSSD>|D^hM7ThiqArp7M-syx7iq@&}u*NCaHh?LgqLqPE@kgtHg|4ew>H)JT5hA1k zT3*5oRID(ol&>(mbVF&WGzlTIx?*?|5-Er5W_R_7JYT2+lc^s1^KlI)fK`P_X0JC39NER69(2&#Q(i~jesLZ&mfkx)K>#b#V6my zv@151Lmnst72=b$E|JzMtWa`-ll=JEOH0LY7PORxy*ZtnFOfqqhls|zF|v*HUFDGH z6;hjG%n>0~nYiXAz&d$4lq&R)t0X@;SY#Ue1|xH;QP{2 zW#D0Hnli9l3>P4-lQ#k-3QZ>-T>{FZeP);FWy2)U)(^77P{v7gCxIU{&Y6AfIZ|@1 znyM$MsTUjG^Ft!uA&-f~L=Uk`?P|cZ>cATVQfztxHPl4x)0-jyE~o1Ud&o#Fk8U{s zfb2IJ2Vp_K)7^%N60(JaKtU@&>u!ncBtO0Y+X0WM7A~|+0Zt=l1SY9n#Dw|?6ANWA zMKF=wu7;ZtX_kvCchvAk1Y={+*haG$hKR9^O2gQeV4`7%pKl34~^_9Vi({lwBlHfRqZC>ci1>k7`FsO=5~W zaK0eP7fQi)h8iIv1OKxee?J^jxXhDp%jX~*_}j*-lUNS&8QaVZ5{lD!7ol1jM+TMp zXZm#I0H!ahn?5y$;gSaV*&JR`(r#E5K$2ZjU^TZ{@xfUvtw7Tlfd0faQhV0T+ds?c+b` z3JDl8JA3ZI-4Wl#-4RPX!W#TK@OvA-Nr2Z>c}V}(7CHLnIWVpiTnQxIVBATExsqDw zFc*BKx3}Ro2(NvixI5}&ThN7YeIJ0;21X;rP6r#kPQ$eH&;kipnOzQBOa|%e^U1dJ z45lwk^2%+7gxO^MXTxg`ISc9F8=-o$=m?+WRMy)Cd4yJ$0d?PE(dR2y;%1jB+=REz zqj@uYsKa+~qbdw)cK{_Iw6epo>De$PDYsrDkM#vYx3TMn-hpD&XFVsCT10i4ieFS2c24}= zh1e2J`%p^O=4U~_rx`>o8>HQmw`u(N9gQE`!6wqpSSrEJijKclY>pzz-L*1VgWvCf z4+MgP)JHUX!4SL8adojRugj8R@!It&_xp9#VcfQcW6^uD7{N3b{t@9V8`RoS`*f;} z)}FT)sC8=$nV+qC18IG1=tGn0SVg131KKfn+iHk1%OZQ;AKh(rSV|9Khuv%Ui@QP4 zL%_>>RhkZpeh2NLh8$R*;yO@BU)bz2>FVrZB$IIpJMV()xYpS(J9^#)1cq@Ogt7Iv zVe%HF+!i_l)D)HGn*jMsG!Tl0dGTEQzFfM+%3AzrG&+8jO8`rHK`BC@;8=mT~jpc+l6j0j>|z z(XZyV6+cN1TM~KF_qBPXbmri3SD-Nc;|kY_zBc$TVCme~=9KESV!QIu5El4ARqRl@ zzeEJBYKvng!)w@?J)jG%>LmyJjDORLeq?}^9Oj)T!J z;Qn4(PiK{4RUAIBZhZN|04w-_cc9j#mna8vP_7O}VT#)+?BoR0dR~A+|aLR!W z*h6fxssL3$O!p(!PP0Gn*B7pnZjGJ+nYb+^7-3&Oq z1$=DN&BWwzogbZFKPbUndyqXz##t0VXF=hkB|i=CJ;+gtlDOR#lsJu=!r3YA;?3=& zASth=a@rXw!&PRGKDbG5Tqyplgz1)_G+boh%iU)7fD2+tVgBK$n0wXT=kyE=@iL z(CH^pB3D%W6@1qzMIZua+au7b)f$_+z^(>xBIOjeM^x|G#;?Br@UlBJ@99|&OUoWo zdGe9_H7}c0vg~1brAHBgRHnAh8j;%f?c|a zzn#)G$`QMngyfx>WNVHzRymSmf=S+)V1DZv5k5c{7C9lIGH?l%1DnamtR3#5Rd)A) zxFHBM;;YlBNtTtVXP)aB4?yF&24FD{k!qc;j^|VpD8~%tjO)MAu)BXe9 z*566>5yNzuRDXy0{V(_yU;Qj;WxAH4^w34vYHDP?4It~v(PzYUqm&+dWED=2zAHx7 z+xt7Pa1*5a#aBPIipuZtjU%Y@&qh|A#k<<6^vuA!I0ui1XGB)bP|i{KZ5*H!-*?oC z>n9`BO`*LMD#6Lhn)l0xlp#T>Ns>&9VQy9bwA8; z8y`lt+(K?=*f>kF}&Ur?wPZnoBG##Yw>1T#}@8Sd~tW{qQh$(0Vv6 zPi2AI4IB`t4*x!!YLl4;=UAzRofe919*zZ$<*2|t_}z`)UHBE@Hy6K|_+5*iR`kRv zwdl!Hcr&~i-ly?Cjdw5Jy?CF+`z+oAcn{z`i1%Q`7D3YmoF*TLkwY_hqk;1o{9fX? za~;(+?VG5@*mocPHd`NqppKVN1muXPjYu~RM%LyJ#yTPQVke}3edgDLC^zE~w7}?p zAC%s=!Xp4zyid-VeUe9gl7%Rwpv0S|Y;6ty7ORmspiAIQ72d)cbt`YN}f- z&Bea@B1!p@_d;_*%1sIB&;qnD)@NT>l`pAh#SMPUA_+Nwdq3)M6u&O~y76Q9_2M^x z-$-g%(G%IAbvE8vcxU0Afp-SpPQ0CXJMebkZO0pD+MlrD4WEF-zASisgIj5 zwo_=NlZ^3`K&qaBF`0_r0venFfY#Rlw7k}X$HP86R^5xox)q3c0I>DT0b9Qsu=VR# zM7B4el*k@>-YK_Y-d+HU|K~PnJL4n&3ZQ_jC~ti##y-aVo${B;N1}9%)`l*D3&uEg zJR~dR>K!l;>{mXrN+K~}amgKWznOnAm^M~--3opARWgO-9mQ?<+Fmn9TFbcR@jM6o z#}jdu%4aHj&O^<{nUMXoecAw>jca6L(-5#I>vFNWH&*4c-AAC%DC@4}!E4#?%-~EO zoXMUwgL8RsF8i?=1luC7hix!}MLbxa$)W=@2%_579=k^B*F=dytt0-yQzc+vyhaBuF$_5ywCqY~H5EQzp0rumop`*DA z_?A;fqv4~iCoCPY*&SdLrz0+o>(#B!ggCFlp&m3F(WxmZYuNAtPN_O?3gsp({D=N`rAWUa*kVvTfJ6#bdpmjBefS1#{IH zxs?()*sYWR8ZEhY6h8!I)V_s?iEm@oL+th|6G%uG(y+%+8~o*i5|el#>JwZ~r)R%f>e$V)r8hZZilr)j_KKu){D~i5}e1;S+zHViHovD0W?(VlN;qr`SZI*cmYL zr4++@1Q)JBn*sXj_AP{!RxG1@>?Y(?(g|Qx_WbN1KWl+MFaZqIpJJ02MAH2CXa~vt zBR^kCSK1tr4V!?;y}$0u_}5AsqLOem`2n%XNjb{xwDFdVPvv~F>`?AQCqz9xeaNSr z$B8Vka8C~cpkjqqeXm-4ukxtP4q*gXD7Qu{#z}cxu&i`C8VxFJ?Oz)6p*=^nbxUPO zXYo=6Fzzken2+eFoCa7UV7lCx|Km8Ii2zF*^M4u#gb7g5m=8H?X4yc1d5!r`#sQBL z;Ks)MpTq$z1juR3-e}tiBfw zP23R1qE8cIeqGa)HBPHMS@UERSfhi9Y(gN>8R4p`<0HxY;`qYis=37}`|>21i14af^2%md%&(#iRURb8{ry z+%)-lWKZoVF$CQ*Us;wV;O14a=^(1mk`hZ{E!NL)=*v_wzD&2PbGXL`);k%70Q0u% zfSy!b*l_DT(mAT83nmVEvQnP~85=3KG|avNmn!t?>8_~jc)m9a4S;FxSdTvP4wP=| zNWG^7^*kVd)slh=7Uq{_$#xVzdoC^rz%+Rcw+}A7o|}0A*2QTwOTKDc#tu!9tYIw!5j~#9=+DsBxdoD? z#Lw#g0OSc$^&eiH|-0YPGA8dZr-ce-$==SJ`~F-9fq zCb(IJie-5`6@8K~mW~_WOgFbl@55|{J3Vr+%7hHHNSO$Xr2tBstQ2%(5Lo1K!9n0- zH{xNQue*xSbEgz=2=~Nt;>rnWghv?|U-uOqZG*E_20+|E(RiBX*NdJNoP}}YEzz4s zgxK^b;ww<{&+(>eh)p8C0B9xvs*)b73NFt;(Tzh?AKZE>o&o)|m@1b&`?{i~Uo^gSxa1bz&l z2eq2JYL*E&20+Lf%*eoPs}ApTC{=5_jtV$7kk{)kX9qbJTni|MUm`5oNXTorn`(%^ z!Gbd}yg$V-$?X7-^RwT_!E$}jnPU-x(~%EG{_A*ZJrFu;`X$k%Bi%tBTSd6e@=%Ly zL32~O9kWqwe)a+>t+4SN`Q_Gq2G?^Npv_emus1>RKK3VAcPir{ICzl@^RR#Mk9VOz zU?ZrYf6NNg6SC|dmhJ?%=_Ac|D+RPR>;d5PUEIv{ z!nqt+{wq(%oP86^0SwpQd-QZSD)t9_s5|+_qiK*!xA>S9 zrec1~SGtCVC~Sb3nc}Iyt+?CzUR){$cSV%8m`ZEc(_){v!@IgBW?eI9iML2bWw4#- zftby25;kc@cIsZ-(x*uIaJ_s1F09ZxXFy{5*`D7Lll+deFKmd9CgV(;K2}+mE#P{I zRoU#%*aA>$voS<#9axUiW=6;n%<^K`t%M(%d4i5E41}3Beqo^dV&TuegT{5T2$Htb zHG$ab0UrIdpA|ljHjzf@XSYErTzXd@?d$5DK*|r|g()fV5;aj7>R!FPBCy4r-Q`K_ zMohmrnf@cZOiA?ysKuipPBC?BM|3N;6JVqTLW`H^xMOxBC1BqJEPkNf^tYoe8XTjM9juBPfwR1PD@w-I9Cr3R zPA)?u(aS3I8R!*DF# zy95QZ_lc~%<}$*^K0pYE(e;m6+a>T06ApekXcEuCr!f5Ch;G;M#r=JB`bA_Bq>3Zg z=Ze3RozOY#*q;L9%>`eeXK>THlO#8;*9AP&J+yLkUVp?k83&hr{O_MZwBhe{UEEiO{o;GsPN4);)9npSGJ z9&w+m8!=CbPItduhYOgY3S30RQ379RC^#D&Z=Sr^0^SsS^jATKk6R4jxCQLs=Gh8$ z8P4|6WF-VKi3t1_cJo}q-KZBNJ4_a4%tFxAybgYj=E-eillzb2d~0lBm3TsfAJD*l z=V=XkZR2bhd80T;3AGj%-o%n)2qqlqFf*7GG3oJ&d1DZ6q~TLF5ylm5%;$FnIbI!! z*`qeUoK!D5j&8%|dhQ-D75uVex1+Vv`R!IZt&M(54rSpoYiyI!vI*i~F^PkvZ=yBJ zPT{Wzf$eEv(-4>nG5|@!Y2uN9;2NICkeV)_WKSbCSI=>dogWVmn5VkwbT<`8QveQ( zLtA!ti5oUh?h819wg7ffTiq%j`#DzbxD2+$R_X3tSzf`i{ogQUqdflh|evLImubEh|vM%U(nr970 z{5VdsqdLw5dlLGUoq_e?aPX)CqaR1tnt@vIf@ft>P5G5=$S+czkCN<228Jr!fEb^? zTPfXeAUiRT!vk?`cTDJORz@SOGnp1j;0bgv6-9je93rGE>1wVC3QLzpm71Kir2!gC zRr{8;=4*}llK2Zb&5bJD!H|OSuS}Z@v_wK2{gKCXCR30~F)}@nh5EJ1z}J_8iwK;l z3=G20(A#@4gXXbavdI+d3ldyd)mebkWkgnHVWowO&js}{FunSi9a2htjrOcwp%jtF z9KZR^Z}yO#Bkw|s?Uv@0VzQZOmm%&|s#c3Fzu8iFr`*qF0vgkJn*JutMWvSCybuX9 zoGA$Sj8!%xb1v%ZIZZEfB zU8bkIJ6EQ6n5lC-?!BwNgu_V-_OsT9Y*JT72t zr*>AbA6`S6qz75x97QQFrs2+e@pKD$x?Js$xTC3zioub9Q4M#Ey3E>e}?m&@UrDBe-^GFa zBRJ+rVGcBnT?D^u^{9w#R72@yIg!Hd<|I9-c>=uZ5MkmX)UU#G0DD?*E@3Bsk1>P6 z2f_0+4J3U(d?xxJVpz**#0=mLL2?;iutLhtU;Pl=ELI00v+R&*ZLdKLK==$HM?0)q z>Q0(Cac9EnAhNq>ai{W`n7d-O#1z;PhloKWY@(ll+hyezN}`qoHJ%okFxFrV!yR_i zCkEf7)qhO)zooOyl!2~8*h#hYqD*K@>{IMT)BP9SY%WcyD}y9Jj)R_+s@Lu=#-)Kl zP%lWUGsXx5sR&}zA^=}$Ch3R!9aaRj3uk_fHoI^Eww=+M2%;JnNYaho;Z&kNQk4dk zgJcmMEob68W)vM!&c<-8-fneq(5yW!X7BFvtiS=INd+ zZfniOfYoldw@#2HKN4t1VDsoM3a@LZ5DZ@ge;u3%XNX3xM>Y3jz1quVSkfG}M2AoL@*&T1qWAq&Pv`ehhca>nSwAY=!QFtNP&Q3s*h)!$|RjSIB1H zV7Ghjkk3IBuq$Xp?z5?n6F#-t4sV`ySlUO{kznk39f|V`NJL8`{p{b6mhYaD`QwF4 zEB84Zno+X{y{Bg2tWu;w_%2P`r%{R!yfFSA^Ce+dEvH3x?JTO=bUh< zRkdBd5#9;QUIr4nvkKu%^S&y6+-b#2R1-Sx6lXw)Q1hae__Zbc#1xLaSv%3!O*A#& z4yz3)6!(7Ffm+%I)Uo*$j$zR?_qvnm4wRLPA;fyyjAZlZ6`iVq6{oLg6mB*tQ09&@ zq+8-Y>8JV+DqJ{%I$g4O~;8un^P@aVpiXET7 zj|5T4%GiWxPxnuTN_L;-k z+0V(G9y17_7;Ij}orqvJk6j^RZ3C5>QRkT1fUcc_lM6eH;R=;O+z!W%Uaf)5C*lrU z=`^7M%$(?H5>o=mXU0yF6B-{TiLBrN^>qiWW9eF(E;_nu`BQOE zfFDw{`4@P{ui$~{-0WF!^|!C!$+FQEJSzf>e5K7z5+pM(5a}z*0%0y5It{P~fQvjc zd$m96nanv{Fgr#x%E8q)RL825ajt@;TF~Cs^N3NaPHJ)&yu2~h;9{C*%?#`?-myNt z5l(nGHr&Co(OlxJayT@>c#OX}f;^aha8JBEn*E>Q9B}A*PcMR>Po!+1-1IdW)aV`GXg;lv#&I1CHQ&)}4oKCT6|h@M!&mDAtZ%fp#g zTn4{i+c!;suPrv2Mrdu7PvQPkTW+ia%3@f4HX%nsYn(M)nulFh>adZ_VL& z2a3kh+qIvKhGl1w7R)kMIE)oeV?_qL74(Eyt>S6W3^j>wL4ud*n)|DbN3xAavW!Qj zv&>jR>;f&qAFJ0s$L_%i*Ku5MY8c13DMI@k#|+!BnR**)#bXa3-Y`Bze}PCLVPUZL z#~z`abzw}#bo_^M?F-BC_i;1WHr|Vls=fB%zZ__;r$HD8wFx^0>-nEZ7 zlg)nS1-**WHJ)!kv)3m0PW@pD6bJ2`a^6;VWB>cKU+>5}){Ju)7Ny4`_u+!4Zac2P zz{`o(LAdGAK7Y!Y-=Me=X1dQQ9Z1Ok+Nq5c%&cNaxKq2J2GgH*;YKpLZ)-h-04!NA z;uRBaCr}%@Z;R&k_MGy;%@}iF5yzH*PsAE_C1HRXxcHnVxsTn zD01Uct}8$WQ<)<-W0FM9Kxn8E{+wluZkUt1aOux@c0VDQ%{C1q=ve?23z}E+47|;G zSX6THjpH3%^e2M&#cOKWS;%HBga4tRmZAx^t=PC20&h2hU5xds{xA041-`24%=_QT zIf0M_PLzm2qZ|d47NgOi5`r~>oDh&eAcTt;AV6XWAxV>SxO4~v4`>dXILwr`*kM|1 zv4c}O!?aeYrJ4W}f-)E`qfw|vrMlyx8kLe@Dfxe&wa(5(Y3qO9_x=3m|9R)Y&Tp-? z*Iw6W-Ja)JYh745K70ZW0jeZp&z8J_}oGs%`)SW~KFd;_evNb@aYgC_}SM0kC3 zXRT*2!mKRskSt%c*(e8hdC&OYzalbqPkV4_$f@bXN1V7`kgM=NdEOBci+yhg>&j#E%>w<$Z_` zCe?;d=;b$zeZzU@7UF$m6#F1`Ab7tG?+G$&lsI~Qu&^X*9^PxG#@{CCulS*81#pVS zJnuJ61Y~MvG}Kw+T~g<1&FLC5RG%cqM3ezyDk%&1Wzxxd&Y$=whp%A4+GBIqnE0;i zM(Cjq(>6?;B>j?*?kh4Hwe1h5_Bpd82KD;$!LfWD8rAEv>F{SrP%4a3Dh$`g7h&FV zEVXQk{RPI<7-;tzl&bZmh&cwhRf|j(oHm<;g_DT%wyPA|JpEJf8 z3?K2wTKtg&IA_dpW5%+ekki-Y;HQ#-tn@bbAAf^u<9pQ0xCZY4I2V)Jc3@%RoR!*H zm4FnoW^9yiU`fUuC%&%17l}@- zKIeKYgGLg32x9CiQ8ybs+yOD>2{CHV++Q~CdZV)$+{^V{iv*I%3Z zS>>QhKNf<9gfZPdPW^P4i$$7(2Lxwja7kA4bFEq=xGD(H$o&Tseh@ zQx^1@N@^y93c71!HfbTy9J@ zl|gKBQoVPL>1#KSJVn_ZG>@O?tc#nJ`gv7e$-pC?SoY!@3)$>cL?`b}E<#2ZT@;X8 zLs*^#Z{i*tPP`a`nHnofVbU*$rg3bP_(*-ZvQhTz*zKfdYP>T%R7L&|uCy(s`l0n} zq4koehl^6Kp_Z>g@hyttTZQ5mYKjjf%j|UR>o4hYZM=;a9N#8eF8c*&bzXIux zQsK@Cmw*S6LWJjdX!{*`DhdpeOdJVsL-9q9zw?~Ol2Z~cx*1n#2!rf~;Mye3M;e1` zmg*DeAD>$t7$fL!r!*u1&R&R@Y-U zN((8K_H&IY;9h}p?;q`k6N4kITQBr#Hxje=B?8bn4DQoyCuDopPD9`3GoZ-qA4;Qc zLTyJNDV^n#hy|&QjFD9@bdRoMFb0y^-eX1W?_A;9bP7ZAnYPyi>Vr2}aq@nwl@5f) z|Op+(fN%Jx3Wg}$9B)q9~n=z~y z!N_OL$7P*Deu^F#%e3E%!j`c1=cdH_W|@!I=y%s+8=PZpd4}SCUi@2uc*VcVT#Mh( z+p?awj}Dc$T`N~x^LiYoVT9%PxXKepP7-FC`S=z>OB5zgj+KZ9^Km%{MyZyLK9XbI zpq#ejB(@k8n0#-AVU%v?amn2SmXybhDcdENlF(_y-}St_vRZaYtR?;C*8N~7b{Lj* z>k>As*F|`fDT+36ewa<%82K~2b|qUsQC~0-^RK5&hp=51KQZEm&M6=-<=r8t|43{W z!TEm9Epp;&mn>&@iN>5LlX1P(@h+5eRkcr9O+UgO3oK#g<{Do2vQJst%d%M&QMYHR zeG1jS#;*1hRmT!efBza)?Q3+kYo`WP?VBa{8yZ6Oe)lvX>Vt{_JyvGkB`~CwH>ur^t=Xiqa4lI+fxUF7#?XgNbc9euP~~f9@5P$-2za9P1V$ z6zLmWQhO#WYpUP@VJ*j4<9^I1GRsB%FoqnYQi>GpnAv7hY6nOD(iGLf&5-|%v#sZ3 zDf10uo^Z33W-Hw6Oj`RqZg*0`EOd92f&?dT91TkumvA?C@rh@1S#FFi5_bvUfLm@hxVN z8}}k~L+di1s4$7m+?U4J)n37hmTeAFhqA(sW6CB=dr`kI5ixsXIV{`vef`Zdfym&~y8n|4F*f#2 z&VW#I7L$gOTV>N((=T9$iZWSf?ceK6u|~CUjO&&n&t|O_7hUfg#p+O2!f3ihZ zaA3Q6sADPaO-$}V$BE!1%-kTamYMiD(RSj@i4RY-L?88C==jWR$5$LaGDgI9yze+s zIVhE7=Bmg_S1Nv24wyEY7dOrt5tn=hQzWLCjyF46{BLqZrg_SIL*iL*Fjh9-`p?IR zQVzL?^~h3g6Ll3*8Tn8M8l5q3t{Fd@f_S9lfm~|{{eTeU1*KLoIrS~C$5aY#$@OD1 z!<5qA<Ob1XS{0WKyxuedc3!#JfJRAyxDpZ_8@gN&5G%cm^is^ zOw}lgR9gt5#A&^^6NO);NQdv=LUw)?0vsh?Hp)v0P}o8Bywpj87=FPW$cGT~z90!v zn$)Z3pwR7|*)?XL<>E6xyu*3EA%TQ_!VbLMXnO)mG&A-&1I~S!{_*<^-=}I(_h3~S zmpX@(>OSB@@vg3NoTri%oGBr>HZ}7(_pF3>yj7POp4#Zzawp{R0MCOi|8O9u#2E_Y zM-sb);My3)3kh%OUWT}Yy(A;}&tjJwY)eGKck{nX=TIM>V}1LFc-1Q5D4<#q_KVrp zX<-B^Wx*xp@zJk1vM(UFr0C^rE0{){$=P+CTd#9m{_M^!>-*HNZdP0>K(O;92i~Y$ ztK$cR#Dx*C^x7(+<6P@^xR9WEO3_dqj9}{#{wEA@(H3Kc&5+FDA{V{WQU-YkaFk=Z zbnqRybL!HSHsl);MyL5Ugu~>eWPp`I0nAexSJ$ByWtFl_4#+_}^GxSApvB)4nR#fT zXu1$S_l{G)v&~QDs4tS}@sPGM2|C-IZFZP#cJ@ah(~YDd!QNE)hW>K&CkmsKN718RoDG*8pZvXmg!caLGPP z?^EsO7VM!MA90^{>|_ddrK|b_WL&Y57*6cHV0uOfW2uE?MT=mOgB+a!&j>19$s4~* z4pTd**zmb+XK8KRk0)ZJv^I6@%9XHn&JsuPTwS&$3{H`d(^Pkol+pfbE4=bO#8+eU zKk}YoWYa>d6Pt&Oi>-8yJF)U-5dPSBpA~$OMBbyk|5M2O54jRdd;gB|9y#uW>+x?< z7y6TPZGVFqJ#E(LFm!z*LTq4;&ubNJ{F`{YZl>0Q`UKs^%1p=6y7WlKp>ZNra(W`k z)B^^q_f>cy2kuw8vzMqj$qUQREP=QbtHxf9Uk=EIAn{sTI@3eId zTrZfn9NahCdW=NP%eDRnU|Bk^uCPfaKXUM|E-_BZe~zF}yV=f$$}WU*t5kSd0IVuRu4L4tJ% zdw@Q0LHD+0_D1P=QHBzM5-Kd;5$X!@_2IFLu-!YDLmik%aH?!9d(Cf1uIB_GD;1uc z-kbjPPf1Io=*6KKDmU-QqHwbB0-u~7{i$mo(n{wL5n4(bCi^}T{e54vgwe4_rW(N) zLLDrXH&`pz!zhwH@Ixi4epa)1Q`_M0Q&AC<+6FJ{_kh!dBvb`GMS_;y@NdgU|DeM@ zDxIq*vdE02%@j#}jrK&I=+rf4=Ec$d&E}JVycw919pk%=`Cc+9znRh{z1Q;&WhDeO z!S~he>pD$g*7)u;{RmZ4)$Qh*Z_MFRoX@%5a`aoSeMohj$#pAL+D1)1=>^XFVoUKIHNDtX{N>nB+>-66X3-x@;y%{p^)%x3V>eTGwig;15 zn#z|ZTo>PM_VjR$Yf}jw9cN(o^}*R&I2YIQ849}1p;rGOZaH12inodLk0lcQPTY1W zx2!&H`<2_&-flmhg^eL)K^imApPn{>=u>>>y*HIO=PIeD zSYo?WF16Me-SY3ARw3N970+;brl&k0F?lBucGtaPq+lo~w#$1gs{Ss*9^G|2Zc_?3efTj{-dC2N#!?Vq=v)V&U3kGZn=`aR3VzG9DBcwWc`ehGxc9zUY@ z60wIL)MAgSzxj(Ik0@&*U;D|z!?Ugbcw1&jC^YuDVg#LtS<*L}oxwrYTg-a1~ z(TWxbG-jkYg^Ln1+sYxK^JFDJ4fN9PRjTA}{ziIl=vo88eWW_Zh$lQQi0WC09$tSW*$ODwonj$>s4kNfPqt)L6Z&j(y-9o~j10ji#MO z-mSs;wA`fkUyGG$QPm$~$I6V5OHZiV1#%dXjA13|^GhCnc=V+}UTn~TiEh|clzOOg zU{UJ9RSXPn*FM^x*{m4Chbm))`??BUYTWB#0#EZs6(O07C`xViHn{eoY<+Oy=!VeD zea4KQPFPrE@iGCuh3TkyTpb@4nI?k{ie4<$8nRLw>ng(5hSLvZk6@=2gN{sQWvLa5<51?m{RJrWG~50%j4%1F?fbl7`a4}u3_E19IA&!VghCSR1puS3FP_CX z7X@AyNt0w_g>~y6LZv5{v*~&DWqQ6Zm0lyACWWR-uTP(oW1UrmlJKQ+vvp12w{ly9 zObKKdKruWgr^LbkVhSRyxHv`TBTnA@SX5OGg}Ti=q2l7&pQCn8AN72uVdP5!sZ`N@ z=%deZ56q}IGm9NqRys*XpCi`H88y?)88Op}BM$%J$S})*^HDU9a_0 zGJX+hO(tqn3=1(J6d~E6D=$KdDarLqP0_A0Hmq?<8qhJH5o6AbNtqGpi%_a6hjM59 z+D)MZqeBK!@CZB<8JOq{ERV^Xku!H*{=E5Upma4KVsXqd4IkGBuPJhs)fc%I@f7e> z)El`o%s2e+xuCz*=9~U^*EaG$xY|I69)R@F6jC>R4(-24w&NSuI;!cg28**8vT}GrvJQ8v# z)h=UGBPv2J4{Mk4C})IRvb0NDYQ*Z0%YE7hV3hC{aBF;%vmsS)EtAH1qvB2y#MLN342E=j2o#UYoUYL_vo5v3uQ zr^KaqG_H+h?5Yq|+;zN?nbb;!F;wvJT1nbDPxNm zf253O#rQpCY!%}cWt1tOwLuvzF|Jg`W-%^T#`9uaq>Sxi%u~h-Vw|Fkonm}Y883@* zj53Ojwe>Y+bc*q2j4H{ZMs3Ba7jn?Q6`_oBIED2&)9kM2i0v!6=5cv<{ST^do5JM_sJK74|C)ma4&FZ6@Qxgj7~LdHnSphcUBMe&`x;VE_!xjP3-j@#zN6ZKGb=vrGc6D% zc+b>A?k;t0{0FE;v%qDRw%`Y(vpVucNMSwvtwHJ>RN;!nrXJ_4z(sJ}Ld&>+->!Jv zJzBf2865p62U$~EB>kSze{?v!);;r&?5w(JxQ zI9fXlJdwBlX%p|ew~H$M+Q`uyo#b*f+;}v)VP4zj(=c$+x>c_IZC5X@s!|bVS~5wu z?)gW`DnGJrV%P)H-d4euvbwp8bAx5(A$&G;Mk3grL51a5BTh)lm|nw&gk4_i>8#Da z)adz~D}SPrkJjdQHhL}@%*idLjTKHgX@onI<;W2n*l5dC5dvnS5j)m%fjXh+7ghWT zt{nSYJ(q`jVrr_9U{hD^ehyw#lQmRUNi!lb=7`bqy`laUWFn8~5I-@bLG?9l>-6Q{%W+mSI|aRWq8LM zCJViVM>VCZLZKSGV(e*qUIU_^$5KM4ApVx`grG|GSqnrC?;h+{^3tc@>40i$9 zDQwre^p|9toWtMXmZKFE1KRoy#U?u%6b<$j`P5~fRx0@>DmATk zY7Xht`~rDUC^b@qtiDtiEw?@^K7L4_8#%d%=A)ZrcJCX&io@CQ4l?rGj(0+0dPMFH zEwF#bacaI6pIa_yPjPV~tZ(0B7-!ziKeT_x$uzFP-p&rU+B0d!k7eWUk%%4q9eP$? z?8H>1OuI03V*2rJ^pFc0Lla)$GU&%^3j zT8=b7GY_RavWc^U(>Uj2?S-~q!KPq0SamzQ!AipCxBUeB)Ah_{5oK~FYas9JGwAFb zD;dV!+RxNwg_#XcJ+ol=YmR2_C=TQu-tf*a8tj^g$^N6Q>7zLzCQUAHIu3*MRBMT2 z!KRGww7WL$k_LR_RBK1G*n`fLN50eUi<*%7+S)&~iQ2L0Irdb^uzABzIGQmM@JJnK zmcOYrZFCbc6YeRpfkwo4;2bqM-~+X!Hi-)5DC*wcOj&&=eC*qm z?^pPoK|d8KK#O^#G6I6{<8{q{l2|jl*~~jEX}pEcIWal4vHBVc#XMd&{)y2|$@QQ8 zRQYO6$v^Ey?0($=N{HJ{Bc!BKo2p%Q5t^U1JrCujzU=zjp-5Io=bh!K*g#&hgmv(l zr~K~@a~x!I%`*YdVbjz6Oz(^aJk1iv5q6E5)y?LsQeGu)Z7x;jtysm_vNb4PP8S+nrvn<;-?nVb&x<;v`@Dl@p! ztUhKQDH-;Zs!J+z!w0%1r~6-Rog~#U`c*dioch3gh3nrPR7q

Lab8Iy_q?XL#re z97P4*qAM^|d#!fub$eQK#;&^4cGZ!N?uz@~=$Gw^8+e#{vhykxK(Y48D}rgYoozGGi0dFH*xNLlh3$GwumiEZDJ6e_n3 zg>cil)^jVgO0cG!fUikW^cM?Mm8AI@RsF`?(T6BUNhO8(%TQqo1s~C+h+8H_>A&KD zf~!>_atzjyUgh}e)ymPVt``c8kg7#4?KyDjebI#(DPv3C1?f>++f2qekE!9kqD<$#ZYxRrDm`vkd3TSy z;d~9| z?4SBOqg_w@4RbY4-7aNzUYGvr_{dfLN*r^i1b>TC9KuN@i#LsNNDN9M<_3?rUTpAN zqrJnpL~W3|gX&2>XNns9SxNY>401F#ki9jy6ID4<9V8=65q7F@SML5|h)$L{dulF? z_KvQ(l<2*!=2DXPmo=9rx}F?Im^GI?>tbr!meyPfb3O4j97_7Ntz`_JQWD+9u+^o) zbUmJe@IHM?!OLTq1At_O^YbOZsg@=4_V7wlFftT9C;tqsiVQ_REfo3tcH|U|Yh#QZk3$(IuDgzsaXl$F8-_~f z@pmy#X&a#OC}EKVYTWfiIA4@F+wS5uyP5)?y}Ew;mkemT5w}oP-bz)*s;WGRV@YJ2 z+&)&)AE`A}xvlLaGq#fcZ6d5y8Qc+c=yZBJYufIv;i&W{Oz1fH&$^O-O!k7$rR2N4 zx7JNS>u7H%mIHFp-Zu%vpS_Ln=C*xH!i}0c#orm_+Oz^oFpJ6dXC!_{aF|q0^77+c z2fz33~l;hOvI2rd#5uJ{!DtbM{YPoPl#NQv64Titn>2QoY&R1J{_@J4FEf zIwA;vXZ*^cn>`)lBi2S-sju~PnAv-#m&B)&#XUg>7SUeZg~#b*hxwwi(gE)!-qmFv zo&i&#HOJaFh-Q_&O&Fy|MF-jeg?M&Q&klz#-t_De(`a9UPN?f|rx4bLD|>?!^On0X zzhKcr_&;1EVkbH5ZB5h*S&O*-;w{`#^5a~a+EqI$VsX^=JB%DfaBx<`6-OX%Pr&z_ zzm@9>kK??&DQ3U4GKaKocBfTdV}4Rsy}vGdKlW#yd8RA-1=qecQD)w8F19!r$ls{f z%K4{hh5KcxJiHk_*WsP)@vU=S@7mX{90R^>=r_3hlZl~-Ycu?58210^C9$=;o{)u770#yvs4=a_W@JEPk_hRmpK+)S;&~Fhw@sIEuQ${VR5GOGEhdOVjtT&Jqj3`;M2OR80i) zz1J2|m0gpHqK{Cbr%7qh$-a`)F9;ck4$GhoAIQCO8@h~|FoR7}p4ZT)@{KV)ZwB&} z(T(@F;AxWX{5RQ&;$vT2-dmZ$7|!nxc-{&+X>)I~90~Tv@R}4?-X293RDR_!4i?LA zVh0`r&tdjJa4ZRZbA(YtoqLW2#}W2x(Y~Do#G<|>;AsqGzg!gX9S^#p0KWRtCxk{w zL}B`#qcLn6Ow(s2>Drf#W25PNxxtDJ-owd5ub77z{7%&^3=0ld$$3#?E(s6D+OIgY z6fY%C?5F0N)iu$ctwn)J2r-HRvH>};s$aKKUEonY?rwf1%{a?*-?22~QJyBAhyDZc zJkJrHXL$x3PcyE7r+DB+31_X3LPC!eBtbDN;YM=zrgx#g)8l>E-&y1vs+2!C6UAo8 zy$gHZf0!LJ{>}pL&Hm1GulAyYwS84Ha0iomDUR4LZYJZw>#y>n*(u@1+bmPKWF<*# zMoKW7j(9q|=w-NKEcpz~Q>z$}0C&f2>RKcFWYyUva5qKIc7U~leN81pg0XdzqHAwX zZCVv)%@>zj7qZE!VLgM}IT|sd9W&f~7`6EG=Ai~FZe$m!eL(*B)^J#Iz0Ze2S!xs4 zBc)%FyQ1nAgy+t*>g7w6gNWE0+1Sr$dkTk|)I^`Nv0q}QS&h;VDX#4Ym0W2W(dt}X zn;FLDl9Iw4>*6)Sr=>j)MzLsH!j#~A`Or#NpsXcIL)Y$^w&mo zljzaN?QgM^;}yy=*uOC|{BH4dJd+a=P?e2n4C6R>+Mzu|+HBN@5rhf=UD8zp{NoJQ z;|EEezc9}D73_X^eV4hDj4m#hqMYd*?ui?I0t$tPNu;iqj#{^(=U0+6ugHO>S-rnA zWo5YI5PEEsz1j&L=i1Xm1;i0fLz|P63a1ks$48<8z2;f|te*2{!hM-RvdG^Vx$?e} zq`J(m`I{Lqi)1pG$rktctl-CN7*9pw5+^TGeEn+1ssGy;5^2|BMQuNo5Njs!!k&1OdU{7lWq8Zz?9Llo zR=d_aIpAeLV`kWBdgaxihR0gAK!( z6v(qE3`nkn({5VU-nc%(e`#rDTu#YSyo6oN%gy2?ia<)D@bcERJ)s2ht>pTeh9tAI zb`V6;m+243-`;^DT>#Cw*B-dpOtyMjp4wys>)&k|kI~N5;j;Z?i_@wBmTR4AT?tId z>C_HxI=MbvZk!%~IFpw4NwwY5<}kT!dt0cvnxl!`W_CP!j3-?`tj}T7VoD-q>o}BS zy&EA-F&5FOhg0)E^N&sR^=ot_)>VaVI=SvTx$Q+C84#MbLzG-3FxHbGpC5Fz(?&&% z+MnAE8y%jQ;+P2>2{GI9{++5+rZ6k(riG_e$9Wx%{XAw~yg4DJW-QmFLakHQ^y_$2 zDyn4Z{M1u0r4ByT@kfKU8r9qCFlIY1MpPi^30uHD-6=`PGUyV*a%Ncn2?0PkeMF#g z`mhKvM1C{JT8eN*qvXJ23yB>QLMU<8`=q;M$b1yLry|yAdkRvJ9oN;dWAo#^HxM$%f3rm* z4ssZ$$f2R=h%+gPUWF~mc8{9oKD8Bkm}5a8{xD>6Dsr zN#4&xUqx;X9~b5eo3gpzgv?s;adClk3=8R+xULnU|5e1AbbV5%DqY-lf?BZdlD$Jk zhrn9KFe-zkr!x>HBW=1fc#T}dX}x8?hzx|$0rd(wQeBPHlT{QrM0wR3N0&k4biK$~ zY!lw0v^ooeF`4RUws)C!Y^tB<`$WAQ$xF5`toAt=zL1n}9@M8@aXrVN%}pGULIyuu zFxGSVi`hd<;*F2a#=qTq@o@UL`W$O4M8~A*22t0WZCwg*GD}XK^BZh#tRn>!!-9nz z#9YiuP)^|vGmW!jfib9yhBy9T%h9SrV}zIv9P4 zm*#QDNykN5B((&@WiGb6cOb)E#Bgm6LwcMa*1R`7>kPt z|CKQPqKfNTz0OH|Wacp@*ToDWA*shJ8U6796X_wkC)-0Td)Isyh`0K@FW4ma^Q!V>?_F-B?@lwF8`*JC7ICcAQq3wSClwx-($)pccaD?MCn99o=75iKS^M?A z5lEHH>QqY(!n;d%Op?h`$8>Wbu^pbl<7@m+s$`(9!kk_8Yp(@eB8F zsxjd`wVhc~0{j<2lT8faf`$Jv`jmc#b<8{}=Dyl*r63$#g7F0#6bTdO6*9 zZuU0!y~FW;<^IiW=OkWr|7He8%Is?QZ*C_o)P;E7x*PK`o(nwootam?e^Y#mzTIEH ze^Z6q%imwWe=`(z7E$Ez%;j0cQ_NGrvzo`0=YPxnn-ZDXwTr)dcn%bID9{{gusnyZ-qWEgN~BUi0L$1n!osc0Co|K!b2T@_~x*N`*6a^Ye4 ztIVTMwT`}&e3E;FUF=dhS>*Db;CZFU_4>=hn|$%$(cw+5-!wRmAQM2{sHux1nS#x^ zym(`H%ZYcA>qj>XZ<;*(mHD=(jDzTYO0-M^Qn@wz8zM_-U6 z9V9$%WL`3;Uza^K?46(kwLM?q+6kkG0Wj3l)hGn_AlKaJD;m2({y3T2`ONJSi@FNCT1@gtM z!DB2ObL$p_nTPOk!{+NZp7e5P;K@nspiFwWHa2bYrlafIh^>*y@X^)R);xIc+JQkw zqmh(VGd9KBafNI2?)F7=O>hRU<&K^8GI`}j!BZTD$jp^HokCk}XUt$)rF8pN_xm-4 zTVv)pQSvf2d?528cwCw_rkO{~!^}_g4C;E$t$~~1jjY>XjE6fnQt^j_w;++Ymf5eI z;B-rl^Oo46!0O20+`0{6cuGD4PmL9y`ANe^*EPHw9sOy;JJHd|_+sGK$doF2)5X=d zaf-`e$3^qy4M$|+CDYnZ>YUdG9BVjQHHPW0h-a&u(Va!i0(n3?PX(_g&rQ=P1i@~ADaRGgJasn^oCh;!5=UoEt;zLI{aepzVEZIjn#daU%6c0yF zj&h1uM>(~iQyNbo+;Ti3_C)Z+8|o;hGaTi_(NFk-7tNda?xURILPt5p>Z6?EIlw7F z9p$7Bb;@4T|4XMiP50Su`3n}JntH6}Qd$*4P>)zLM)L7K#~t(V&`dq*()9w__%tbb#_@;o+jTNM-<+##CCYsJz;f;X@N zm!rK0SatZ}?8OLcqw>s=-fHQ&;e0Km+QTJq?Sr#-lq%M2LpLEh_~j*-r|0Z6T=gOPX4-C^dUX+jf3UA=?Jl; zR7bitiQFT(zV;yp$3!UMpUCRIBMkF_PIv9Za1%z*L}!xGb~aLp=r~x4FDQT)fSRH} zG&6WP)sqfu(6czD`T7^f!T1YKD)Lv?7~X3iz>$-05C$X_C&-I|cpr)Nmf{gu>n1u& zhU8e&S^ulmrEAk~h^TR*BO*Ag_>LYAclLPLp*_HRY@3A9weL0a)rPis`fn?evka== ze@Tf$KVF2W=))tP-LkZ=b7md!Z2i+qBIL|ob}%;EV0XhF5j#f2{Qkgs2S@71vH_d6 z9q_!X#EY%2ml`@+0?0l+2Sk1=a@IAjj+U21vg-eMQOG%7cwW9%GY_eLeM9vDE^nU| zsNSYzs^?iucgs{?4PYavf$Ru03inng*>hoH< zdSO9e6Z{Nr2G|?$?L@>`S?6o5b7t0kGcvFV&J-`W-H!CsyY`JmZ`$>*o#uqg2wOR% zG!kZ z0bhG`gA!*tF7XLs8om+)A^gPB5!CZp>@v zUQ;;<`jC>u)}L5WKfqH@*dmGj=tMC3ldkN&QfFvRa!l!~CA8-HO_JLAURROXSQLE_ zac4UzR+89urS^hc6-n&-N)pTPrzNqUh9t2U1Nq7*lGx7~`lWxki0oD*vDu$b3Q1x= zSCZI^Y{6HO*iR`})uSMhuaYl6jjrBB#I2&y>3J854rIR%Q5OZOKMb;+9ck+>xSxFl zw3bLv1Nc<5Z&q(ZRa7_^7cW!#+53b2_+FZZ$9hTB=V4lK9IorJA3|B_PykI!v`gRQ z`o~LC+h3(GauLe9DMPk*dQcEcpr8a350@JgR;}mwd{K-P9iq1uo z2UCd7MYBM*bNxj+zeahg_YI{nwAhUy25zt6gLmF+cz=nMIQv2gI{AC&a{Nj?Dg@Q7 z?7pZQ51(smpn8vMA3aBZ*S|KK=@9mgy7958ozV2>-Hf0e0S?7fssmwWHF_OeIXKsE zh4bk&LV%iogZ$t0?B+m-30Wfc_w0tx{%s*(Uxn}XM17+o>H}9L>WiNEFf)6L>DiB1n&f?o6tk7tywdnHQgwTsJqha~-=32+C^s zICjIwS7-~#^(B#k>K&x*Lr$As$mx=eiWe%(&oeOT-iU6NhLvwk_q}IUqmXw%H!`Y_ z-sk>~w;3d;4t8zjA244&@e#evJHsf@=uem-1*4m%^CS)G2S)`j>&=@&U z&tfEQ`-b%RWUqS1=JYN`i}Cla^#ljhq@?&F8^e+&r@mVC8ILo)sH@)<82DSh-c-}( zsLgV?UOZa+NEi#9G?CY+U0A>N5EL_CkuOHbmlt`CK@NYl=KCkLg~PQ?J|o+*a;;An zX!bZWq~!XG4YA&c{WTOcOOlridYy|6k>2p=BNrQ--iU#QQyjv@#FT~`zQu(2@kIkN z>S!=<#dD*1;@9xxjp3)f!%|=K4oQ988=ZQ}H+Z12h=oebKqC#{L$}<)M?+jV{N)An zH(bKVEjkLr`QT;WH3MZDiN;7%TK=JdY09jGi8251M)hSH`Q_xJ+@9bliJiCG$<5wJ zBX>s%ICsYigzt6>gt39F--e@-w%plhd;Qu#u4KNZb4L}&rQ>D)2i#itzR4$I|TpZWAI3BKYaa`x(xa5Mvdd!!H zzvBHmMI{MO0CmD&@eSE8xJvxHD)F&o5mz!mKq>=ZIF(?h9;=h1S2f>Z zOF**y!7xXp!}Tw8hH?`9#`-l<+|Nods>GjFNsvN+RwY8poq~{Ze^z3)i{5PhwbVZ4 z{dE%IR>}U{NCTz3hlI*oN>(RZm3c|pNU8PtqYrs+Osr?H56={yhj~hPzQyzRJiB=6 zdEVmrh-V1ty_x48o=l#ZJd1c%^K9n%0nc8ZCZ5wg@A7o=3?jY}JY#t>cxLew@vP*L zUlZxr&+`+W@A7Qq@$wY$%;L%5xsPWQPXf=iJWig@$zjHMp0{|8^BmyW!?S~DGtWw% zr93lv(s=IS8Nn0B>Kz zUg2FZ~B&17P?E9Ev_u6 zT;sl7+_j&@Zi$;;Zox`osl-o}*S&a+w{S`M(n1wXiF?V4rQ#*0u(GJUa)o=UuVBjL zS?(p}W!}p2QgFqJg0iK`?{vvhK7J>LUWWWi@>eYTR)NZ{^0`bxl%Gcm$E}K}V2O7b zsaQeG?t&t5E>yWw8Pmn1Q@v7uN~(*?SGiXfR#s7rgdxdOai}Ofwy(*LmX(wJ!m^di zD$C1O6qb42D+?-@Nx@brpNY25TyJ@WyO`XRN}QoWS6*x%y$XEkvNAVbDf+8^B=j({ zYMfhRlrah#pn%I4mlQ7Xx|dbC%gVj(f>6bMjXPQvddqb!$`^(aD!O~_Ou94KotQ|G zR;;O9_Gq!!J!<0D-1j6U-J5t%(%tvEvzIL|bmtV5mfqf=N z++*BnEX7nRQ5cz}Rq3UrFIeP;fQ;m zI6{tJ2t&DMminrSb1KW16joKuA@_w7d__exdkI4dZL03s<`fr}*@>B{NDve^kn{``zT8Uc^p!?wS>g%S)FnnYyfO`5Z}eMqyEbuhg4S zTAD$>y2M*vxvWs7#Z%^6k-MhKTexCsIe`{dN!^sMsG!@>_%C`S4!ZP%V9 zW^I=$=>0ygs<1K?r}jFH4qWm+xe7X2wzQAq)QQ;z72UD*$v<_(*fV*lq+!;wCCew4 z`^vocjZuCwmz5Uw%KL;hS<($^(vdv>nfG&y6-Je@#3+Zx3;EYW-4n|zJ*$`5g>D$5 z%6z4zwC_>01)pjGSormm{|vjahNGX+FFe-i@pvNScW;uBBOXS%$L7rKA8Fj5lr$#? zIhfncoR!tlqT)sT3}bc0YJQRUF!~#jkw7H>#HxM~%r~P$W|@03(^Wr?XYV%GVYdB0 z*~|R5z06yCnK^T^+droybeq53%luq;kNYosnVEMRgeB8+V*n3}AfqXYtCPV|(do*q z29*A?1&jsVG3f>y1dP=n3f)EvI9S{VrW^6%4h{t^@CI<~pmgI#a5tC$#=FuD*;cU> z9479d8?1;;H<*$bE#R$S)3xcwYA|VVxdrE0jy6vX}8r-1Rq0p`E2FB!X8zJN&WT;oDyn z5@I=_J&G=%gj+$JOZZ+=Aav-)UddY@v?+cW_j-kFhnwr}4$-faQ zkGm-myF3bv#VS2sX#Q)Ys+e?Dfs09%gybgG1*#?V&bv9g@mrlN=oG}RjyKUVv`ivsk>Ty_jbouLCH$(xI;AL#V++PbSrt3I#{M+>YO&W(92gZFQJuH|Hb(F(vMxT zcD;W&^-`WTP1)(!WtH5kEl#9;&cdgihpUBiwf-mBxVyXl(kVr0B`cskUGGAPR|`o} zD`|2YcDySn5ncE4rhs$^4NINNm>EUdiU~=22MJH=O8N$gP23827DFS_r^mGK+RcOYJC;6|GmyaAtXxT=t zG1-`kNoEhyYNZ`W&$~cy}k|Mq;DLHMQARsr#rL91VE zV?F(;yqEHqP^A=vdiB`fyZ6-N-=iwDMCC(rvXbyCakJZd&xoC2OegkqN_QImzC88_ z6-_fHUG?28=xaK3mV1@Ac0MHclFDUJn9yKP3~n`W%>2T859t&ttz_mD#lIY7dz8Ng zgfNZ}479W=`nc+{*WpWS%Xy@SEHl2L;<%G?m4&W^XaBNE(GnGkjBQ1v&~41dO{hkX z8WWAt{BzT@_07Rld@WY#sZ_H#!`K*?Zfxb*!LysEgb)&qDQbTGEm~S4{nRufUQSGj z#zTZ?FfNGuEQ95w`t_@+dAw#r4HI?8<28>zRudNy!AyPArcF$+lagw3YHFFnj=Ftp z&YT+N;Y`+Za%%a|J*uX*hOdl8#fyrIiz6fZudb+ARZ-Dro}TL~GqTIej9ILC=devwv&Y4ZBEZ-j?I&ueb>^Zcdb$3Eai8HJDZ8#H-ei9G{%VV>ylrCn%>*YQZpwq5Kvmry!(ywZ=_ zajL3R@k>7~KOMJ>R*F>-N`oH%Wd<+l*Xb!IPui~2rN=7mVyCgMTRJ5mznlbW<&k;(4sZ(DT5wy zs`8T!F9mMEgmM^0@B`8n^L5U$vZdv##6Gp4D&&?^Ug4wgaT7kobj82y#VL^ffp<1{ zMg;(iNjOs~o-qC<-Og1n;8;-By=kDV!?QrT4`VI}AHY}yvcfltL0J!1fU-tj4NA{g z1Ik*y7K{P6f&;}(C~C{QL0LEN1!dj5ACz@-JvbO_0^`7D@H(&s90In2vYxiU zp*-EV*3-r)y`GK);UyTcpscIoL0MP3K{q%Gyah}GWnDcM91f;|Bfu;$KP#@Esr9bmA4)4*78Iv5Y;fNpR$I0_WH zNCF=Q$AZ$r(!lj#78nKrOa;Tixu64F3OYd6H z#2y3g0SAKn!9n0*&;>SwvEW(o8c@c=Ye5+g2ZI*wao`1zyE6>q>(B!j1IB~#;81V` zcmtRO-UyBd6TmF+CU6#bGq?yG29|?*ntd`@u)Rv0yQn0(!x5 zU=5fGZUMgmZU-L(cY$f(UN9Xz08Rv(zznbz^nmBVOt2H21Um14e!y683YY*s1daly zf@8pGU>Z0boC@ZEbHSP5QgAj{0nP!}f)9gRz(Q~bxE$OAmVyVs4PX-(Mh9{lbb>PX z5r$wZ_5t8|FbeDhV?bvj^Z~|#gTVwa4jcsz0mpzhfN9`O;9T$ya4DDyt_8mV)`Ank zZQycn4;V&AbpVvJkek5%;AwCG*a}90=fN1T6TAU*-buJ%0=OI;1%}a~jRl=x2G}3W z0SADOfKgyE7z2928^9Vc72E=b(c$d?o#1Y;KlmIt0IUb2z++$x*aF@Fo&!_C%U~EC zW6WLn2jjsga0D0wCV@AAAV}vp`C)x zwX{?41~3VfzHow}`*4zIjK%GnU=m}F{4%h&fH~ls;3MF_fyLlX&yAv&tsP{Y&G^suoL@_L1%Kh z@gHC;xCcxCkAkDXzX!*FFMw&_zk^f3=fJt(Yv59_8LR*w0@s4|U@dqGtRcPu;5O_h zz@6Z4!9C#X;C}FB@G$sGuo-Ls&w{5x3)}@>0DlG=W73Vcff(@HU_96gjsSlRCV|Jn z@!&gP7I+4n1-=C?0^a~j!A3BLdK?a}#$E`@+(PCa8?l#y#n^8Hw_-1r_v9xE+<|>6 zxSRKP3SzGUxAHz3d=C3IupWE{JO=&?*aBvQ=fLN|cJKf=ih7f|%4O`e;!e0Sr-{5* z&l$E8ZVdJ~>@xS*%X^svxv_h}PTte?7@-<5hjf8n?B4-vz!~6v{KbM>u+Ic{5>6tx9eX8MkNs|N7xvX) zB>5W$?#2F?yyyFCK$#;w2p+&a03HK#!6v@H2W-K<23&-FBzO+{qu^ZZBfxg-Mc`%d zNpLIfqru4g(peKwUZ5Y8x!D7P*dGUDv8RG}VBZMt=es0uEcSl{Gr(0~4(J0P0rNna zJ6{VHWB)Gb1!sXZ;P=30-VX-1V6Ou$!o3gNj(r{2!uvRI7xvj;EB5Qaz1Zh~2f*!M z6SxIz0e=Wu;BGo=Az@lSnQj?1n{50QQ%5&47dX{NY_vx z4f}jB3;V6$RP0N^x!{XnF?a}E4ekYN!TsQN@D*@3cm#~(`y0Uh*dGCZ z7W@r(0sILVGnV@Rz*xS!5gdX2`(P574>seT435YCEl}prXXhT;8ySs@M&-?_;WA={AVx+%mg0+ zD?rUDFi49~y}?)`t<>gEO=OIa)*|jz3We(+KjA3LPxLM{O76w3{S~QH8j9yE?!vFv zDAaE7R{IkkviyW+CO_ek$*(LFu5j|?Cp>tK+Q0A!uZ7 zQoXC7_9q+^`7Kk_h|WvsJK;6Ruc|v=I=)gx-Sq3B^cIEEE3z>86^Hl=1&W%a9CW%? zgu*RQy@=#b=TkWS`aAu-$ob{BJmi0QD7-4wOGx^JN+ta|JtCErpU7e5CsHzvI{m@} zmEVf)a?$Tsgxntu9`AhBr=nlgjr}Lky%ErGFM@q zsKx@JjYMWA52D|4kXi@VTABCb=F*@rnx^@l1oJ%-Wl!&-XUWAT>Z=0pe^6f13tK&-#t@-#;e$V{%#!|x6kQ3ei&?@KdY5whVqS#)?Ydj6(y!x{_F$($+JtSE zcF|+jG$!ek_F=oPP<3IaU+Phtt9pGa?MBis-!4&QK1r=Bq#fC1tJ{+OwcVzqmL=DA z+mcYEb`2;@=W>E7MWJIUBVFz*RGCgwWh8yHgevnQ>35~Q3H@n4q)vzQyAraD*&G&w8$;^Q`+Jo#%;)maA0$bsl=hr_-nN zV8@-KO399Us;Vg+cdkl@j(e)=D|FmC4juQTP}`I;(`BstlL?`8tYBQTTYw!$hN@E? zN4BbYI}Y6!2%YJA*Kvr9+pbfcj>W33C5|uFk&aK-fE}Mm_iS33ta7Wv%~9^U+_F^- z=yJPyxYCL=wbN6&`!_#$$5ahEb&%vXu@_&wk1 zxsa5wo+FDMfy~q--b6}A=J3NmN#_hIKz=&d-7prt=I@Ys#+bn6)W}QB5UZ&#K<`Pv0+FaHvoC-w;+Fj2?wOQnN zc9@!mwEMSI-D~=j8WKOc9Lu}SqG4gXi+)3oxyS#~UhY~Zsl(CbuFa3CGS%i{RcG3~ zLh%Q*S#(zH@bwH@yNixqk9$wN6^bUb9~l8{KfYe>q8TIZGKPxgp_paJmcO>SRMoY1UjedxqC~=-NKFeZ>G`GTUfA^-{_UGp2O;R_54TE zpEm1sYP0;6@j&M0dKInLD57m7?t0v|*WwrUDhA6qeRjm@yZ(+74-Vr zrWMgr=rPNBP;(dbdP>)~@EOEi>Q%2qssWc{~yo_o9Z&Vyb9 zuB5!}wVRGtkMGhJrT4Maojr+HbLnUzzSYY)9z>g`KNn+_Amds_uqd0 zi|2m%{J#Cadg0dxe)Hl>^$iCP9sc*mBTYwNe&yJI9DlX>#K}{q|MRuiTi$r{%-P?* z^>*t!@4k2Lckh2-wS5>o|ND!=Obk6tHz28~i_wV@_bIr$?bBsCGYwSlJeXM7%-hC*VVL4t9C0S85 z-7xL(&x}cMj7>}$H-19$#FW&uN$Ha_GN(+;4FN zUYWPuZgV_F;V&)VTd(_&$lyp44u~Z8P$^lD14YIgpR-c9Mv&yVTzKhuX(P3g_Yu|aN1FKyQTePUC3^Zw1@o6;NC-$k|C z9s|hX9)I)mkD5*C#0OmC@;<>$>E+GnE5e%68@EsDdA?s$dh_-t^>0d_(X9TuVNL1H z`?qTHt+`*{DBir>k&IjAeryzPKA%@+wcOrqbL}>NfE;dqHb4K!Tst8*&>Q!oZl2wC z3201je*Sw4n$nx|tM~Iw>5c0r^&VK%l-^t(+Ae8IZ(e_!mzvU>_pkkmru63Lm%r7N z-n@U2TU)08RByN4dD(8O?{Aq7HgZ%y?qTzWDN)z&R^Ez1Bz`Mx6?Fal$KQ>UFMniz zH@IV*89#aq@!nvwTk%9k2HcvEJ6wb^*_9e@rPAPxVT$FS0(V0|O^3$|;!UHkm4d$w z2XWF7=1fg?`!tzir8AyQLrL6;!g=^M2L2`-@hP}>CHgq?oe8{6W3_@C zq^uRQyrbZqI_uojlriz(ChnX%+eu1Ioq+clk&3V?p6JLRUwAvyNe+17AnrZz#-^1s zHOWCn>gP-)r^Y9Yg`Wq!KV?x#`WefU2Hq61a#9>qaejsaZ~R&5jP&?1j%P@Pcn8SJ zNlkO4z>&~oNITN-zB1b7e`ho^ni|dG-e+b!Pxns1kP}-Em>lYOCNnY7ksg)qm<$&j zwu#7V@U_toE>tiRZdwnIFyaiTnR^qPZFTDi2i&#%BEK8T6E{Ussh0a7+YRzlXdC1g9hnNgJ19IpMHHdksl;;48G- zNS~YfE3w6U#W>O@j!VJ3xLAj~e_k;SzGE^;9H%*b#!Mk8bi$d+ASuhQ%r;UpKFmqa z$V?-j?+mjglAM8-s~jgQ@cP|yl1EwzPDsF%;TD~jN2nv&k?{-mv#rA&@o84ow!t2a zU44vgUa#eUW?$=p@R>5MFMLbIqz)UG;0Q^IPq%&P<&MUrHqdP^dRQJ`h|iG*PcPql zS)N}=p6#e}#+)+=d-hzTGzNqfU*;Tbf^%T-PDIk=+!&&O+LM%v%TBK}aEfAEO>$iv zCS$`hHIn1x5IHvzZdZcw$-4{a z=mN>_29SInAn9ONI>eQR0=LeIcI6Log;04`{ZAnzZNoIR>Y0cz07wJKd*d*5tp1a6 zkp5%?q|b9);ar4dEb{Kl&|Cpz> ze4pOg-e|&KTCRWAD(j5F*w6+ae)@2LZS>*shnZiN-+$;>^<_M(nC0%-FN*x1%4qu3 z^_Qtu&5qWt!#zl{zk~q3o$x&(;12`Tc09C*tpc*&>Tmo#J@eL*51NZ^~00+4DL_6Z)Kok%Q z!~sb_8juAn1oDAmpcJSAs)0+uHNdkA>IZxQe;^R(32=Z0gaQ#j43Ge10XYCEp9>TK z#lRMz5;zLf0iJ&3J9Cr+f`BN1_v;sRd)&`0+_V6%m%6&+BqVkBM#v$IOa0$5+jT5N`2>`238YTa z*J&Eo8sI)M^Ko|xXnNGmCI+s@wVOAIy-DmeJ8%=aBpcxz*igjwC3b88FdJw%3R~G5 z;uT)E;#a&I;`V}e4e_W?J2b=tFLiXsvtP;Y?2ZSNZtLoddv4!-?-Gv0SDmfgbMKD* zk@kSP74N4#R=j@a@^SX6QP+E%xM#_ruBYeOC%tm;<&gGXFFf+j3j5{lg`sEXbX+=T z?uYj6+ShCM-W>2i){g!5)Lqq!Pi61!|Itgu!KKel82YgM!r#-XXY?)ocFD2J%deiE z_2%G^RVSw$ue|U`pPV@lg$DU_d9(g)pW{2ruY{gnci`gRPk;aTw3qjWIVwL})_(2V zg3652OS{ZD^E0RH4j&lXw`Sc-vdVAScy`FZbtgvYJ4dODR=ha;=BTxGs{+bm z-dHTg@4LQe_@YBSMm>M|NaC9>*I#^i`|65O-)5&o?Edqs0e@;09ar8X6XUggS@|XT zgFPHq%}M(02iK&LpL%n6g8JQ{7hX;2IPYik)BQaiUH=x_<%4}cnN=OS=k&j~f62~u z=S=(B&Et~a@%mVtf7)dA(!SG9e4V%bn;*;_*RSu1&$(-A)UqoYnkGa-U>U( z|Eumtm~#Vihs$dhY%3df_>H-1SHI8vEotLj>!MeNKJ|f5&mIG6dI{X1A#d-Q&|~RS zo<(KHcFeq5yX*cHKP((RY?-z_YTko>kxw|Dxjt{{J8kl2-c{4<*vdU$Rd{~8_Rz0g zZDjj|HpqQ8`B2(}Ou}zDV8tE6c_L*{Tc}d1j4G!ps7k7eIzSzwj#3loE3_xmp6S8N zVP0m=GnbiIHi`W&whebL7tW36W^)I*?>U8!w0%%n2}`6F>;N!j4j4K>F zgeYOSFkYA@{7HC8*dmnez47$Oc7hl%6G zRB@*Gs#qkxCw?sM6_1H0#QzdKr4CXTDNyPy#YoRdFG_!wwo7NEV%bA^SYebHWu0>@jXr`Lk<}&k?N!Hf}@G_n1 z#jN7q=l;rl$DQWtxSzQzTxIhz{rdFs~DpxgbD+NXkmm9CrlJR7Y+#L zF_I*4xp=?ykfcj}rRmZ}sZ`n_RZ2&s_Oh?sLw;0dWJw+%N6JsiBjt&5x;#zJmY2z| z$QR|-ia+|_OEHxJO0@F2vQqhra$KoZ&MQAFPpJ#kW$LTyI`tj(eYITOqaIL?t7p}V zs+ZP5>!eYdT^pbc*2ZZww7J?sZK;;8E!Wm)Z)qE}&Du6_V7InU`$jve)o7=*^V;9F zYg#M)cD;k%Nxx5jP!G~6tUpx`(Zlsf{Yia<9?MAurx$%{8&^T(GFn%=ZjC$jS(ayZb3^Mze zni*zBVy32;%gr~5oFrp;4cFF zE1*_G7w)0XQWvQu%ogZ_GOipNp^~eDPAHJpNR#A+@_TZna#;CExu!g(=Blr$tJJOP zVfDOvS?#F#YmaEGHbz^dy{3g3V~iQbJj`#dk!R!^pBO(FUS>Pf$MiM*On)-~dsC2^ zZf2P?Aa^Mk;(EJld&;skM$I2F3&d-0?= zMSe~$l`G_SiXXHys~Ad}@|sejlqy%1yVd(tS+%SE)EITRnyO~2i`AFZ*CBP=A#XNq zkTykoQF~omsePfH)GlZqkfJVnKS<38Jx-slXX`5=7nk)r4L@+8iz%1`&5`DQ^RMO! zlNfGfAM&R->J)XJx=PKb7tzbQHqO=Jqr7oa(7{ z(PZeA#abb>##t>`p9vlCp+4D|iJ1*Hr<&W%J?2?5f4T5&fgp?;OpTg(M+em@lk@^gJOt#7wb3{1BS{ z4k<|bKuVG)$~`V&r~Fa=DM6C^%j40)9Qg%#xx7Z+ zD1RvLMq6K_wd3+B`6v1B@^#ruX|Hrr?o%F8Bqd6DQW>o{lvHJ!^0D%@a!$EN9jqp* zFQ{#`P%ToMsC}>fpxveq)o1C8^kvYJ7oi#38X?BV#)IZ+lQ=ZV2CtS;ZRilXoc@MZ zm?xOgjDs1EUHg0HEaPBjvkTdI+{@fLtmZGcZ@KfF2Y)x;gBP*;jNqs7i}@A&27U+c zt#(xXU{6TuDZPua)hIDHnw!n7uncyZUzmH%ud(WmnKfpuc@7%0-n>TUs?7ObV=Jl+ zq-_bcf!;#Lu@~4I>|!pDE9BncRP6B2V}E-P+UzSSK~9rz$ZeF4N;hS_Qm))k=Bp>6 zorwb`3e_buX_)E87Dq0V$K*59#jnIp(q1`N$v4-S$4y%`{Gp)y9aL9pCw-j0Mz?0} zV0;)~#*YbR5}D_)_MK-IFojGJQ_Ngo>X~bdjrFv&b1wTTTfi2wMeI)YJll;6;(Brv z$8i#;ads}0TY}!_a|IYdXJMDLS;@eR6sRAoKdaH2trOW6_x{5wP*Yan0U+l(#N>7DTG$mAtfK@S4Nl=oZ&u1t(%3>u?DNu@_ zGd4kMlq;yj2mi$d`yqqN;%0E!+$HInT1T2GDBG_3CkEk+xuC1}Z71}u#n=!QJ4Kr7Npv`w(H%C$=EfMsKx(JsNl@YLJs zzPi62sQ1)4U4wNSp~vVW^#ncHvMh4+#jq<1^deXloAgq>T(8s*=tuP$NcAQCn(k@Y z6aGdZtO?H0j8G%Oh%rVQ2}ZJ!fqf>&SPUIoU|A8Hj8fPTmBs;B5H-db}hhaB0|jwGX~l?!Av$Yumj~__sug4%p$YI++>!T2Nv+ld=P1n+O zbUkfjydf!mOaK$aP>jUbnQ$hGiDlxLBuHNtZ2g6hoqWhmF|&c$!jv%;Ociqo_DwA; zhoulOR*AbXT#YjHkOUUwLu!2#b!g_JrIh^=O8 z**dnKwQ=6qdHk^R1VQE`$XhrU#l>=QToRXt^`6ZwZ>g;K8w%h7s8^+=L=z3Z{WA^Wqbu+#UJ9U z`C43S)k7C~3qFFM5FiBMx=X_KL^!S|VqteD328!>kS#34)mXkzC=?4Dge^juP$5*| z`l4E>73zd~TwQpJKBAu(AO?vxJO2L<;_7W_tu5eE4fqoPp2UF^ixvuU21H{{F*lI90l3xKo*LEb1xoCKM(L+ZjIcTteM zSjb)+q%R5bmj(&Uf(&Lu3Kv2Sb0LR?ki=rh;s!|L7RX~6B(efBSp}&)1i7rnK3=7-d+OehQ6EUDALKLuk{SeAr68>m Date: Wed, 14 Jan 2015 08:09:41 -0500 Subject: [PATCH 071/166] * updated luajit to v2.1-alpha --- src/3rd party/luajit-2.0/Makefile | 24 +- src/3rd party/luajit-2.0/README | 4 +- src/3rd party/luajit-2.0/doc/changes.html | 2 + src/3rd party/luajit-2.0/doc/contact.html | 2 + src/3rd party/luajit-2.0/doc/ext_c_api.html | 2 + src/3rd party/luajit-2.0/doc/ext_ffi.html | 2 + src/3rd party/luajit-2.0/doc/ext_ffi_api.html | 4 + .../luajit-2.0/doc/ext_ffi_semantics.html | 24 +- .../luajit-2.0/doc/ext_ffi_tutorial.html | 2 + src/3rd party/luajit-2.0/doc/ext_jit.html | 4 +- .../luajit-2.0/doc/ext_profiler.html | 365 ++ src/3rd party/luajit-2.0/doc/extensions.html | 35 + src/3rd party/luajit-2.0/doc/faq.html | 2 + src/3rd party/luajit-2.0/doc/install.html | 21 +- src/3rd party/luajit-2.0/doc/luajit.html | 4 +- src/3rd party/luajit-2.0/doc/running.html | 3 + src/3rd party/luajit-2.0/doc/status.html | 2 + src/3rd party/luajit-2.0/dynasm/dasm_arm64.h | 518 +++ .../luajit-2.0/dynasm/dasm_arm64.lua | 1166 +++++ src/3rd party/luajit-2.0/etc/luajit.pc | 6 +- src/3rd party/luajit-2.0/src/.gitignore | 2 +- src/3rd party/luajit-2.0/src/Makefile | 54 +- src/3rd party/luajit-2.0/src/Makefile.dep | 200 +- src/3rd party/luajit-2.0/src/host/buildvm.c | 22 +- src/3rd party/luajit-2.0/src/host/buildvm.h | 1 + .../luajit-2.0/src/host/buildvm_asm.c | 39 +- .../luajit-2.0/src/host/buildvm_lib.c | 61 +- .../luajit-2.0/src/host/buildvm_libbc.h | 45 + .../luajit-2.0/src/host/genlibbc.lua | 197 + src/3rd party/luajit-2.0/src/jit/bc.lua | 19 +- src/3rd party/luajit-2.0/src/jit/bcsave.lua | 14 +- src/3rd party/luajit-2.0/src/jit/dis_arm.lua | 18 +- src/3rd party/luajit-2.0/src/jit/dis_mips.lua | 30 +- .../luajit-2.0/src/jit/dis_mipsel.lua | 15 +- src/3rd party/luajit-2.0/src/jit/dis_ppc.lua | 18 +- src/3rd party/luajit-2.0/src/jit/dis_x64.lua | 15 +- src/3rd party/luajit-2.0/src/jit/dis_x86.lua | 38 +- src/3rd party/luajit-2.0/src/jit/dump.lua | 29 +- src/3rd party/luajit-2.0/src/jit/p.lua | 310 ++ src/3rd party/luajit-2.0/src/jit/v.lua | 15 +- src/3rd party/luajit-2.0/src/jit/zone.lua | 45 + src/3rd party/luajit-2.0/src/lib_base.c | 79 +- src/3rd party/luajit-2.0/src/lib_bit.c | 134 +- src/3rd party/luajit-2.0/src/lib_debug.c | 2 +- src/3rd party/luajit-2.0/src/lib_ffi.c | 45 +- src/3rd party/luajit-2.0/src/lib_io.c | 27 +- src/3rd party/luajit-2.0/src/lib_jit.c | 154 +- src/3rd party/luajit-2.0/src/lib_math.c | 11 +- src/3rd party/luajit-2.0/src/lib_os.c | 37 +- src/3rd party/luajit-2.0/src/lib_package.c | 4 +- src/3rd party/luajit-2.0/src/lib_string.c | 448 +- src/3rd party/luajit-2.0/src/lib_table.c | 167 +- src/3rd party/luajit-2.0/src/lj_alloc.c | 12 +- src/3rd party/luajit-2.0/src/lj_api.c | 132 +- src/3rd party/luajit-2.0/src/lj_arch.h | 111 +- src/3rd party/luajit-2.0/src/lj_asm.c | 492 ++- src/3rd party/luajit-2.0/src/lj_asm_arm.h | 442 +- src/3rd party/luajit-2.0/src/lj_asm_mips.h | 364 +- src/3rd party/luajit-2.0/src/lj_asm_ppc.h | 368 +- src/3rd party/luajit-2.0/src/lj_asm_x86.h | 576 +-- src/3rd party/luajit-2.0/src/lj_bc.h | 4 + src/3rd party/luajit-2.0/src/lj_bcdump.h | 6 +- src/3rd party/luajit-2.0/src/lj_bcread.c | 143 +- src/3rd party/luajit-2.0/src/lj_bcwrite.c | 229 +- src/3rd party/luajit-2.0/src/lj_buf.c | 234 + src/3rd party/luajit-2.0/src/lj_buf.h | 105 + src/3rd party/luajit-2.0/src/lj_carith.c | 76 + src/3rd party/luajit-2.0/src/lj_carith.h | 10 + src/3rd party/luajit-2.0/src/lj_ccall.c | 158 +- src/3rd party/luajit-2.0/src/lj_ccall.h | 27 +- src/3rd party/luajit-2.0/src/lj_ccallback.c | 103 +- src/3rd party/luajit-2.0/src/lj_cdata.c | 22 +- src/3rd party/luajit-2.0/src/lj_cdata.h | 5 +- src/3rd party/luajit-2.0/src/lj_clib.c | 13 +- src/3rd party/luajit-2.0/src/lj_cparse.c | 52 +- src/3rd party/luajit-2.0/src/lj_crecord.c | 239 +- src/3rd party/luajit-2.0/src/lj_crecord.h | 7 + src/3rd party/luajit-2.0/src/lj_ctype.c | 15 +- src/3rd party/luajit-2.0/src/lj_ctype.h | 2 +- src/3rd party/luajit-2.0/src/lj_debug.c | 186 +- src/3rd party/luajit-2.0/src/lj_debug.h | 8 +- src/3rd party/luajit-2.0/src/lj_def.h | 22 +- src/3rd party/luajit-2.0/src/lj_dispatch.c | 81 +- src/3rd party/luajit-2.0/src/lj_dispatch.h | 23 +- src/3rd party/luajit-2.0/src/lj_emit_arm.h | 16 +- src/3rd party/luajit-2.0/src/lj_emit_mips.h | 16 +- src/3rd party/luajit-2.0/src/lj_emit_ppc.h | 16 +- src/3rd party/luajit-2.0/src/lj_emit_x86.h | 24 +- src/3rd party/luajit-2.0/src/lj_err.c | 66 +- src/3rd party/luajit-2.0/src/lj_errmsg.h | 5 +- src/3rd party/luajit-2.0/src/lj_ffrecord.c | 557 ++- src/3rd party/luajit-2.0/src/lj_frame.h | 98 +- src/3rd party/luajit-2.0/src/lj_gc.c | 66 +- src/3rd party/luajit-2.0/src/lj_gc.h | 10 +- src/3rd party/luajit-2.0/src/lj_gdbjit.c | 14 +- src/3rd party/luajit-2.0/src/lj_ir.c | 10 +- src/3rd party/luajit-2.0/src/lj_ir.h | 34 +- src/3rd party/luajit-2.0/src/lj_ircall.h | 138 +- src/3rd party/luajit-2.0/src/lj_jit.h | 30 +- src/3rd party/luajit-2.0/src/lj_lex.c | 342 +- src/3rd party/luajit-2.0/src/lj_lex.h | 17 +- src/3rd party/luajit-2.0/src/lj_lib.c | 75 +- src/3rd party/luajit-2.0/src/lj_lib.h | 29 +- src/3rd party/luajit-2.0/src/lj_load.c | 4 +- src/3rd party/luajit-2.0/src/lj_meta.c | 125 +- src/3rd party/luajit-2.0/src/lj_meta.h | 1 + src/3rd party/luajit-2.0/src/lj_obj.c | 17 +- src/3rd party/luajit-2.0/src/lj_obj.h | 182 +- src/3rd party/luajit-2.0/src/lj_opt_fold.c | 286 +- src/3rd party/luajit-2.0/src/lj_opt_loop.c | 29 +- src/3rd party/luajit-2.0/src/lj_opt_mem.c | 23 +- src/3rd party/luajit-2.0/src/lj_opt_narrow.c | 3 +- src/3rd party/luajit-2.0/src/lj_opt_split.c | 131 +- src/3rd party/luajit-2.0/src/lj_parse.c | 185 +- src/3rd party/luajit-2.0/src/lj_profile.c | 368 ++ src/3rd party/luajit-2.0/src/lj_profile.h | 21 + src/3rd party/luajit-2.0/src/lj_record.c | 290 +- src/3rd party/luajit-2.0/src/lj_record.h | 1 + src/3rd party/luajit-2.0/src/lj_snap.c | 22 +- src/3rd party/luajit-2.0/src/lj_state.c | 33 +- src/3rd party/luajit-2.0/src/lj_str.c | 212 +- src/3rd party/luajit-2.0/src/lj_str.h | 35 +- src/3rd party/luajit-2.0/src/lj_strfmt.c | 554 +++ src/3rd party/luajit-2.0/src/lj_strfmt.h | 125 + src/3rd party/luajit-2.0/src/lj_tab.c | 47 +- src/3rd party/luajit-2.0/src/lj_tab.h | 4 +- src/3rd party/luajit-2.0/src/lj_target.h | 2 + src/3rd party/luajit-2.0/src/lj_target_arm.h | 4 - .../luajit-2.0/src/lj_target_arm64.h | 97 + src/3rd party/luajit-2.0/src/lj_target_mips.h | 3 + src/3rd party/luajit-2.0/src/lj_target_x86.h | 3 +- src/3rd party/luajit-2.0/src/lj_trace.c | 51 +- src/3rd party/luajit-2.0/src/lj_trace.h | 1 + src/3rd party/luajit-2.0/src/lj_traceerr.h | 3 +- src/3rd party/luajit-2.0/src/lj_vm.h | 18 +- src/3rd party/luajit-2.0/src/lj_vmevent.c | 1 + src/3rd party/luajit-2.0/src/lj_vmmath.c | 32 +- src/3rd party/luajit-2.0/src/ljamalg.c | 3 + src/3rd party/luajit-2.0/src/lua51.dll | Bin 348672 -> 368128 bytes src/3rd party/luajit-2.0/src/lua51.exp | Bin 16302 -> 16746 bytes src/3rd party/luajit-2.0/src/lua51.lib | Bin 27400 -> 28130 bytes src/3rd party/luajit-2.0/src/luaconf.h | 2 +- src/3rd party/luajit-2.0/src/luajit.c | 13 +- src/3rd party/luajit-2.0/src/luajit.exe | Bin 90112 -> 86016 bytes src/3rd party/luajit-2.0/src/luajit.h | 15 +- src/3rd party/luajit-2.0/src/msvcbuild.bat | 2 + src/3rd party/luajit-2.0/src/vm_arm.dasc | 331 +- src/3rd party/luajit-2.0/src/vm_arm64.dasc | 3763 +++++++++++++++++ src/3rd party/luajit-2.0/src/vm_mips.dasc | 390 +- src/3rd party/luajit-2.0/src/vm_ppc.dasc | 365 +- src/3rd party/luajit-2.0/src/vm_x86.dasc | 1487 ++----- 151 files changed, 14392 insertions(+), 5209 deletions(-) create mode 100644 src/3rd party/luajit-2.0/doc/ext_profiler.html create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_arm64.h create mode 100644 src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua create mode 100644 src/3rd party/luajit-2.0/src/host/buildvm_libbc.h create mode 100644 src/3rd party/luajit-2.0/src/host/genlibbc.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/p.lua create mode 100644 src/3rd party/luajit-2.0/src/jit/zone.lua create mode 100644 src/3rd party/luajit-2.0/src/lj_buf.c create mode 100644 src/3rd party/luajit-2.0/src/lj_buf.h create mode 100644 src/3rd party/luajit-2.0/src/lj_profile.c create mode 100644 src/3rd party/luajit-2.0/src/lj_profile.h create mode 100644 src/3rd party/luajit-2.0/src/lj_strfmt.c create mode 100644 src/3rd party/luajit-2.0/src/lj_strfmt.h create mode 100644 src/3rd party/luajit-2.0/src/lj_target_arm64.h create mode 100644 src/3rd party/luajit-2.0/src/vm_arm64.dasc diff --git a/src/3rd party/luajit-2.0/Makefile b/src/3rd party/luajit-2.0/Makefile index 0891b713c5e..dce52e5928c 100644 --- a/src/3rd party/luajit-2.0/Makefile +++ b/src/3rd party/luajit-2.0/Makefile @@ -14,9 +14,10 @@ ############################################################################## MAJVER= 2 -MINVER= 0 -RELVER= 3 -VERSION= $(MAJVER).$(MINVER).$(RELVER) +MINVER= 1 +RELVER= 0 +PREREL= -alpha +VERSION= $(MAJVER).$(MINVER).$(RELVER)$(PREREL) ABIVER= 5.1 ############################################################################## @@ -83,8 +84,9 @@ FILE_SO= libluajit.so FILE_MAN= luajit.1 FILE_PC= luajit.pc FILES_INC= lua.h lualib.h lauxlib.h luaconf.h lua.hpp luajit.h -FILES_JITLIB= bc.lua v.lua dump.lua dis_x86.lua dis_x64.lua dis_arm.lua \ - dis_ppc.lua dis_mips.lua dis_mipsel.lua bcsave.lua vmdef.lua +FILES_JITLIB= bc.lua bcsave.lua dump.lua p.lua v.lua zone.lua \ + dis_x86.lua dis_x64.lua dis_arm.lua dis_ppc.lua \ + dis_mips.lua dis_mipsel.lua vmdef.lua ifeq (,$(findstring Windows,$(OS))) ifeq (Darwin,$(shell uname -s)) @@ -109,7 +111,7 @@ install: $(INSTALL_DEP) $(MKDIR) $(INSTALL_DIRS) cd src && $(INSTALL_X) $(FILE_T) $(INSTALL_T) cd src && test -f $(FILE_A) && $(INSTALL_F) $(FILE_A) $(INSTALL_STATIC) || : - $(RM) $(INSTALL_TSYM) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) + $(RM) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) cd src && test -f $(FILE_SO) && \ $(INSTALL_X) $(FILE_SO) $(INSTALL_DYN) && \ $(LDCONFIG) $(INSTALL_LIB) && \ @@ -121,12 +123,18 @@ install: $(INSTALL_DEP) $(RM) $(FILE_PC).tmp cd src && $(INSTALL_F) $(FILES_INC) $(INSTALL_INC) cd src/jit && $(INSTALL_F) $(FILES_JITLIB) $(INSTALL_JITLIB) - $(SYMLINK) $(INSTALL_TNAME) $(INSTALL_TSYM) @echo "==== Successfully installed LuaJIT $(VERSION) to $(PREFIX) ====" + @echo "" + @echo "Note: the development releases deliberately do NOT install a symlink for luajit" + @echo "You can do this now by running this command (with sudo):" + @echo "" + @echo " $(SYMLINK) $(INSTALL_TNAME) $(INSTALL_TSYM)" + @echo "" + uninstall: @echo "==== Uninstalling LuaJIT $(VERSION) from $(PREFIX) ====" - $(UNINSTALL) $(INSTALL_TSYM) $(INSTALL_T) $(INSTALL_STATIC) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) $(INSTALL_MAN)/$(FILE_MAN) $(INSTALL_PC) + $(UNINSTALL) $(INSTALL_T) $(INSTALL_STATIC) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) $(INSTALL_MAN)/$(FILE_MAN) $(INSTALL_PC) for file in $(FILES_JITLIB); do \ $(UNINSTALL) $(INSTALL_JITLIB)/$$file; \ done diff --git a/src/3rd party/luajit-2.0/README b/src/3rd party/luajit-2.0/README index d151bb7b2e8..6dcd9b9f20c 100644 --- a/src/3rd party/luajit-2.0/README +++ b/src/3rd party/luajit-2.0/README @@ -1,5 +1,5 @@ -README for LuaJIT 2.0.3 ------------------------ +README for LuaJIT 2.1.0-alpha +----------------------------- LuaJIT is a Just-In-Time (JIT) compiler for the Lua programming language. diff --git a/src/3rd party/luajit-2.0/doc/changes.html b/src/3rd party/luajit-2.0/doc/changes.html index 3d8f5dbba90..0d3e5ae0eab 100644 --- a/src/3rd party/luajit-2.0/doc/changes.html +++ b/src/3rd party/luajit-2.0/doc/changes.html @@ -44,6 +44,8 @@

LuaJIT Change History

jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/contact.html b/src/3rd party/luajit-2.0/doc/contact.html index 0ef01a7c159..d92c3e38fb3 100644 --- a/src/3rd party/luajit-2.0/doc/contact.html +++ b/src/3rd party/luajit-2.0/doc/contact.html @@ -41,6 +41,8 @@

    Contact

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/ext_c_api.html b/src/3rd party/luajit-2.0/doc/ext_c_api.html index 65981806da0..91dd9efbd84 100644 --- a/src/3rd party/luajit-2.0/doc/ext_c_api.html +++ b/src/3rd party/luajit-2.0/doc/ext_c_api.html @@ -41,6 +41,8 @@

    Lua/C API Extensions

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi.html b/src/3rd party/luajit-2.0/doc/ext_ffi.html index 77b8e26c567..1ff22363484 100644 --- a/src/3rd party/luajit-2.0/doc/ext_ffi.html +++ b/src/3rd party/luajit-2.0/doc/ext_ffi.html @@ -41,6 +41,8 @@

    FFI Library

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_api.html b/src/3rd party/luajit-2.0/doc/ext_ffi_api.html index 8f577e9fea6..8cf48dc3b2e 100644 --- a/src/3rd party/luajit-2.0/doc/ext_ffi_api.html +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_api.html @@ -46,6 +46,8 @@

    ffi.* API Functions

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -466,6 +468,8 @@

    status = ffi.abi(param)

    eabiEABI variant of the standard ABI winWindows variant of the standard ABI + +gc6464 bit GC references

    ffi.os

    diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html b/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html index c267b555668..889d44d8235 100644 --- a/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html @@ -46,6 +46,8 @@

    FFI Semantics

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -730,6 +732,22 @@

    Arithmetic on cdata objects

    number (e.g. for regular floating-point calculations) with tonumber(). But note this may incur a precision loss.
    • +
  • 64 bit bitwise operations: the rules for 64 bit +arithmetic operators apply analogously.
    + +Unlike the other bit.* operations, bit.tobit() +converts a cdata number via int64_t to int32_t and +returns a Lua number.
    + +For bit.band(), bit.bor() and bit.bxor(), the +conversion to int64_t or uint64_t applies to +all arguments, if any argument is a cdata number.
    + +For all other operations, only the first argument is used to determine +the output type. This implies that a cdata number as a shift count for +shifts and rotates is accepted, but that alone does not cause +a cdata number output. +

    Comparisons of cdata objects

    @@ -1205,9 +1223,8 @@

    Current Status

  • Vector operations.
  • Table initializers.
  • Initialization of nested struct/union types.
    • -
  • Allocations of variable-length arrays or structs.
    • -
  • Allocations of C types with a size > 128 bytes or an -alignment > 8 bytes.
    • +
  • Non-default initialization of VLA/VLS or large C types +(> 128 bytes or > 16 array elements.
  • Conversions from lightuserdata to void *.
  • Pointer differences for element sizes that are not a power of two.
    • @@ -1224,7 +1241,6 @@

    Current Status

    Other missing features:

      -
    • Bit operations for 64 bit types.
    • Arithmetic for complex numbers.
    • Passing structs by value to vararg C functions.
    • C++ exception interoperability diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html b/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html index 8f99bfb1bbd..e3f01460a80 100644 --- a/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html +++ b/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html @@ -48,6 +48,8 @@

      FFI Tutorial

      jit.* Library
    • Lua/C API +
    • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/ext_jit.html b/src/3rd party/luajit-2.0/doc/ext_jit.html index 27351dd64b8..a569dd570e4 100644 --- a/src/3rd party/luajit-2.0/doc/ext_jit.html +++ b/src/3rd party/luajit-2.0/doc/ext_jit.html @@ -41,6 +41,8 @@

    jit.* Library

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -151,7 +153,7 @@

    jit.os

    jit.arch

    Contains the target architecture name: -"x86", "x64", "arm", "ppc", "ppcspe", or "mips". +"x86", "x64", "arm", "ppc", or "mips".

    jit.opt.* — JIT compiler optimization control

    diff --git a/src/3rd party/luajit-2.0/doc/ext_profiler.html b/src/3rd party/luajit-2.0/doc/ext_profiler.html new file mode 100644 index 00000000000..be63662b755 --- /dev/null +++ b/src/3rd party/luajit-2.0/doc/ext_profiler.html @@ -0,0 +1,365 @@ + + + +Profiler + + + + + + + + +
    +Lua +
    + + +
    +

    +LuaJIT has an integrated statistical profiler with very low overhead. It +allows sampling the currently executing stack and other parameters in +regular intervals. +

    +

    +The integrated profiler can be accessed from three levels: +

    + + +

    High-Level Profiler

    +

    +The bundled high-level profiler offers basic profiling functionality. It +generates simple textual summaries or source code annotations. It can be +accessed with the -jp command line option +or from Lua code by loading the underlying jit.p module. +

    +

    +To cut to the chase — run this to get a CPU usage profile by +function name: +

    +
    +luajit -jp myapp.lua
+
    +

    +It's not a stated goal of the bundled profiler to add every +possible option or to cater for special profiling needs. The low-level +profiler APIs are documented below. They may be used by third-party +authors to implement advanced functionality, e.g. IDE integration or +graphical profilers. +

    +

    +Note: Sampling works for both interpreted and JIT-compiled code. The +results for JIT-compiled code may sometimes be surprising. LuaJIT +heavily optimizes and inlines Lua code — there's no simple +one-to-one correspondence between source code lines and the sampled +machine code. +

    + +

    -jp=[options[,output]]

    +

    +The -jp command line option starts the high-level profiler. +When the application run by the command line terminates, the profiler +stops and writes the results to stdout or to the specified +output file. +

    +

    +The options argument specifies how the profiling is to be +performed: +

    +
      +
    • f — Stack dump: function name, otherwise module:line. +This is the default mode.
      • +
    • F — Stack dump: ditto, but dump module:name.
      • +
    • l — Stack dump: module:line.
      • +
    • <number> — stack dump depth (callee ← +caller). Default: 1.
      • +
    • -<number> — Inverse stack dump depth (caller +→ callee).
      • +
    • s — Split stack dump after first stack level. Implies +depth ≥ 2 or depth ≤ -2.
      • +
    • p — Show full path for module names.
      • +
    • v — Show VM states.
      • +
    • z — Show zones.
      • +
    • r — Show raw sample counts. Default: show percentages.
      • +
    • a — Annotate excerpts from source code files.
      • +
    • A — Annotate complete source code files.
      • +
    • G — Produce raw output suitable for graphical tools.
      • +
    • m<number> — Minimum sample percentage to be shown. +Default: 3%.
      • +
    • i<number> — Sampling interval in milliseconds. +Default: 10ms.
      +Note: The actual sampling precision is OS-dependent.
      • +
    +

    +The default output for -jp is a list of the most CPU consuming +spots in the application. Increasing the stack dump depth with (say) +-jp=2 may help to point out the main callers or callees of +hotspots. But sample aggregation is still flat per unique stack dump. +

    +

    +To get a two-level view (split view) of callers/callees, use +-jp=s or -jp=-s. The percentages shown for the second +level are relative to the first level. +

    +

    +To see how much time is spent in each line relative to a function, use +-jp=fl. +

    +

    +To see how much time is spent in different VM states or +zones, use -jp=v or -jp=z. +

    +

    +Combinations of v/z with f/F/l produce two-level +views, e.g. -jp=vf or -jp=fv. This shows the time +spent in a VM state or zone vs. hotspots. This can be used to answer +questions like "Which time consuming functions are only interpreted?" or +"What's the garbage collector overhead for a specific function?". +

    +

    +Multiple options can be combined — but not all combinations make +sense, see above. E.g. -jp=3si4m1 samples three stack levels +deep in 4ms intervals and shows a split view of the CPU consuming +functions and their callers with a 1% threshold. +

    +

    +Source code annotations produced by -jp=a or -jp=A are +always flat and at the line level. Obviously, the source code files need +to be readable by the profiler script. +

    +

    +The high-level profiler can also be started and stopped from Lua code with: +

    +
    +require("jit.p").start(options, output)
+...
+require("jit.p").stop()
+
    + +

    jit.zone — Zones

    +

    +Zones can be used to provide information about different parts of an +application to the high-level profiler. E.g. a game could make use of an +"AI" zone, a "PHYS" zone, etc. Zones are hierarchical, +organized as a stack. +

    +

    +The jit.zone module needs to be loaded explicitly: +

    +
    +local zone = require("jit.zone")
+
    +
      +
    • zone("name") pushes a named zone to the zone stack.
      • +
    • zone() pops the current zone from the zone stack and +returns its name.
      • +
    • zone:get() returns the current zone name or nil.
      • +
    • zone:flush() flushes the zone stack.
      • +
    +

    +To show the time spent in each zone use -jp=z. To show the time +spent relative to hotspots use e.g. -jp=zf or -jp=fz. +

    + +

    Low-level Lua API

    +

    +The jit.profile module gives access to the low-level API of the +profiler from Lua code. This module needs to be loaded explicitly: +

    +local profile = require("jit.profile")
+
    +

    +This module can be used to implement your own higher-level profiler. +A typical profiling run starts the profiler, captures stack dumps in +the profiler callback, adds them to a hash table to aggregate the number +of samples, stops the profiler and then analyzes all of the captured +stack dumps. Other parameters can be sampled in the profiler callback, +too. But it's important not to spend too much time in the callback, +since this may skew the statistics. +

    + +

    profile.start(mode, cb) +— Start profiler

    +

    +This function starts the profiler. The mode argument is a +string holding options: +

    +
      +
    • f — Profile with precision down to the function level.
      • +
    • l — Profile with precision down to the line level.
      • +
    • i<number> — Sampling interval in milliseconds (default +10ms).
      +Note: The actual sampling precision is OS-dependent. +
      • +
    +

    +The cb argument is a callback function which is called with +three arguments: (thread, samples, vmstate). The callback is +called on a separate coroutine, the thread argument is the +state that holds the stack to sample for profiling. Note: do +not modify the stack of that state or call functions on it. +

    +

    +samples gives the number of accumulated samples since the last +callback (usually 1). +

    +

    +vmstate holds the VM state at the time the profiling timer +triggered. This may or may not correspond to the state of the VM when +the profiling callback is called. The state is either 'N' +native (compiled) code, 'I' interpreted code, 'C' +C code, 'G' the garbage collector, or 'J' the JIT +compiler. +

    + +

    profile.stop() +— Stop profiler

    +

    +This function stops the profiler. +

    + +

    dump = profile.dumpstack([thread,] fmt, depth) +— Dump stack

    +

    +This function allows taking stack dumps in an efficient manner. It +returns a string with a stack dump for the thread (coroutine), +formatted according to the fmt argument: +

    +
      +
    • p — Preserve the full path for module names. Otherwise +only the file name is used.
      • +
    • f — Dump the function name if it can be derived. Otherwise +use module:line.
      • +
    • F — Ditto, but dump module:name.
      • +
    • l — Dump module:line.
      • +
    • Z — Zap the following characters for the last dumped +frame.
      • +
    • All other characters are added verbatim to the output string.
      • +
    +

    +The depth argument gives the number of frames to dump, starting +at the topmost frame of the thread. A negative number dumps the frames in +inverse order. +

    +

    +The first example prints a list of the current module names and line +numbers of up to 10 frames in separate lines. The second example prints +semicolon-separated function names for all frames (up to 100) in inverse +order: +

    +
    +print(profile.dumpstack(thread, "l\n", 10))
+print(profile.dumpstack(thread, "lZ;", -100))
+
    + +

    Low-level C API

    +

    +The profiler can be controlled directly from C code, e.g. for +use by IDEs. The declarations are in "luajit.h" (see +Lua/C API extensions). +

    + +

    luaJIT_profile_start(L, mode, cb, data) +— Start profiler

    +

    +This function starts the profiler. See +above for a description of the mode argument. +

    +

    +The cb argument is a callback function with the following +declaration: +

    +
    +typedef void (*luaJIT_profile_callback)(void *data, lua_State *L,
+                                        int samples, int vmstate);
+
    +

    +data is available for use by the callback. L is the +state that holds the stack to sample for profiling. Note: do +not modify this stack or call functions on this stack — +use a separate coroutine for this purpose. See +above for a description of samples and vmstate. +

    + +

    luaJIT_profile_stop(L) +— Stop profiler

    +

    +This function stops the profiler. +

    + +

    p = luaJIT_profile_dumpstack(L, fmt, depth, len) +— Dump stack

    +

    +This function allows taking stack dumps in an efficient manner. +See above for a description of fmt +and depth. +

    +

    +This function returns a const char * pointing to a +private string buffer of the profiler. The int *len +argument returns the length of the output string. The buffer is +overwritten on the next call and deallocated when the profiler stops. +You either need to consume the content immediately or copy it for later +use. +

    +
    +
    + + + diff --git a/src/3rd party/luajit-2.0/doc/extensions.html b/src/3rd party/luajit-2.0/doc/extensions.html index e9cd136cc4f..d2f8d7ba6ab 100644 --- a/src/3rd party/luajit-2.0/doc/extensions.html +++ b/src/3rd party/luajit-2.0/doc/extensions.html @@ -58,6 +58,8 @@

    Extensions

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -113,6 +115,9 @@

    bit.* — Bitwise operations

    This module is a LuaJIT built-in — you don't need to download or install Lua BitOp. The Lua BitOp site has full documentation for all » Lua BitOp API functions. +The FFI adds support for +64 bit bitwise operations, +using the same API functions.

    Please make sure to require the module before using any of @@ -146,6 +151,11 @@

    C API extensions

    extra functions to the Lua/C API.

    +

    Profiler

    +

    +LuaJIT has an integrated profiler. +

    +

    Enhanced Standard Library Functions

    xpcall(f, err [,args...]) passes arguments

    @@ -198,6 +208,31 @@

    string.dump(f [,strip]) generates portable bytecod bytecode (e.g. from Lua 5.1) is incompatible and cannot be loaded.

    +

    table.new(narray, nhash) allocates a pre-sized table

    +

    +An extra library function table.new() can be made available via +require("table.new"). This creates a pre-sized table, just like +the C API equivalent lua_createtable(). This is useful for big +tables if the final table size is known and automatic table resizing is +too expensive. +

    + +

    table.clear(tab) clears a table

    +

    +An extra library function table.clear() can be made available +via require("table.clear"). This clears all keys and values +from a table, but preserves the allocated array/hash sizes. This is +useful when a table, which is linked from multiple places, needs to be +cleared and/or when recycling a table for use by the same context. This +avoids managing backlinks, saves an allocation and the overhead of +incremental array/hash part growth. +

    +

    +Please note this function is meant for very specific situations. In most +cases it's better to replace the (usually single) link with a new table +and let the GC do its work. +

    +

    Enhanced PRNG for math.random()

    LuaJIT uses a Tausworthe PRNG with period 2^223 to implement diff --git a/src/3rd party/luajit-2.0/doc/faq.html b/src/3rd party/luajit-2.0/doc/faq.html index 9902f0903c0..aebaef579a4 100644 --- a/src/3rd party/luajit-2.0/doc/faq.html +++ b/src/3rd party/luajit-2.0/doc/faq.html @@ -44,6 +44,8 @@

    Frequently Asked Questions (FAQ)

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/doc/install.html b/src/3rd party/luajit-2.0/doc/install.html index 7369aeb65c0..9fe0c08da4a 100644 --- a/src/3rd party/luajit-2.0/doc/install.html +++ b/src/3rd party/luajit-2.0/doc/install.html @@ -69,6 +69,8 @@

    Installation

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -132,18 +134,18 @@

    Installation

      -PPC -GCC 4.3+ -GCC 4.3+
    GCC 4.1 (PS3) +ARM64 +GCC 4.8+ +  +Clang 3.5+   -XEDK (Xbox 360) -PPC/e500v2 -GCC 4.3+ +PPC GCC 4.3+ +GCC 4.3+
    GCC 4.1 (PS3)   -  +XEDK (Xbox 360) MIPS @@ -383,10 +385,11 @@

    Cross-compiling LuaJIT

    # ARM hard-float ABI with VFP (armhf, requires recent toolchain) make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabihf- +# ARM64 (requires x64 host) +make CROSS=aarch64-linux- + # PPC make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu- -# PPC/e500v2 (fast interpreter only) -make HOST_CC="gcc -m32" CROSS=powerpc-e500v2-linux-gnuspe- # MIPS big-endian make HOST_CC="gcc -m32" CROSS=mips-linux- diff --git a/src/3rd party/luajit-2.0/doc/luajit.html b/src/3rd party/luajit-2.0/doc/luajit.html index 45507c122b4..721f636b522 100644 --- a/src/3rd party/luajit-2.0/doc/luajit.html +++ b/src/3rd party/luajit-2.0/doc/luajit.html @@ -126,6 +126,8 @@

    LuaJIT

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -170,7 +172,7 @@

    Compatibility

    GCCCLANG
    LLVMMSVC - +
    x86x64ARMPPCe500MIPS
    x86x64ARMARM64PPCMIPS
    diff --git a/src/3rd party/luajit-2.0/doc/running.html b/src/3rd party/luajit-2.0/doc/running.html index c2ec51132d1..2b764dc825e 100644 --- a/src/3rd party/luajit-2.0/doc/running.html +++ b/src/3rd party/luajit-2.0/doc/running.html @@ -63,6 +63,8 @@

    Running LuaJIT

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status @@ -178,6 +180,7 @@

    -j cmd[=arg[,arg...]]

  • -jflush — Flushes the whole cache of compiled code.
  • -jv — Shows verbose information about the progress of the JIT compiler.
  • -jdump — Dumps the code and structures used in various compiler stages.
    • +
  • -jp — Start the integrated profiler.

    • The -jv and -jdump commands are extension modules diff --git a/src/3rd party/luajit-2.0/doc/status.html b/src/3rd party/luajit-2.0/doc/status.html index e3655d48cb0..cf137ee027c 100644 --- a/src/3rd party/luajit-2.0/doc/status.html +++ b/src/3rd party/luajit-2.0/doc/status.html @@ -44,6 +44,8 @@

    Status & Roadmap

    jit.* Library
  • Lua/C API +
  • +Profiler
  • Status diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm64.h b/src/3rd party/luajit-2.0/dynasm/dasm_arm64.h new file mode 100644 index 00000000000..d912e61dda7 --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_arm64.h @@ -0,0 +1,518 @@ +/* +** DynASM ARM64 encoding engine. +** Copyright (C) 2005-2015 Mike Pall. All rights reserved. +** Released under the MIT license. See dynasm.lua for full copyright notice. +*/ + +#include +#include +#include +#include + +#define DASM_ARCH "arm64" + +#ifndef DASM_EXTERN +#define DASM_EXTERN(a,b,c,d) 0 +#endif + +/* Action definitions. */ +enum { + DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, + /* The following actions need a buffer position. */ + DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, + /* The following actions also have an argument. */ + DASM_REL_PC, DASM_LABEL_PC, + DASM_IMM, DASM_IMM6, DASM_IMM12, DASM_IMM13W, DASM_IMM13X, DASM_IMML, + DASM__MAX +}; + +/* Maximum number of section buffer positions for a single dasm_put() call. */ +#define DASM_MAXSECPOS 25 + +/* DynASM encoder status codes. Action list offset or number are or'ed in. */ +#define DASM_S_OK 0x00000000 +#define DASM_S_NOMEM 0x01000000 +#define DASM_S_PHASE 0x02000000 +#define DASM_S_MATCH_SEC 0x03000000 +#define DASM_S_RANGE_I 0x11000000 +#define DASM_S_RANGE_SEC 0x12000000 +#define DASM_S_RANGE_LG 0x13000000 +#define DASM_S_RANGE_PC 0x14000000 +#define DASM_S_RANGE_REL 0x15000000 +#define DASM_S_UNDEF_LG 0x21000000 +#define DASM_S_UNDEF_PC 0x22000000 + +/* Macros to convert positions (8 bit section + 24 bit index). */ +#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) +#define DASM_POS2BIAS(pos) ((pos)&0xff000000) +#define DASM_SEC2POS(sec) ((sec)<<24) +#define DASM_POS2SEC(pos) ((pos)>>24) +#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) + +/* Action list type. */ +typedef const unsigned int *dasm_ActList; + +/* Per-section structure. */ +typedef struct dasm_Section { + int *rbuf; /* Biased buffer pointer (negative section bias). */ + int *buf; /* True buffer pointer. */ + size_t bsize; /* Buffer size in bytes. */ + int pos; /* Biased buffer position. */ + int epos; /* End of biased buffer position - max single put. */ + int ofs; /* Byte offset into section. */ +} dasm_Section; + +/* Core structure holding the DynASM encoding state. */ +struct dasm_State { + size_t psize; /* Allocated size of this structure. */ + dasm_ActList actionlist; /* Current actionlist pointer. */ + int *lglabels; /* Local/global chain/pos ptrs. */ + size_t lgsize; + int *pclabels; /* PC label chains/pos ptrs. */ + size_t pcsize; + void **globals; /* Array of globals (bias -10). */ + dasm_Section *section; /* Pointer to active section. */ + size_t codesize; /* Total size of all code sections. */ + int maxsection; /* 0 <= sectionidx < maxsection. */ + int status; /* Status code. */ + dasm_Section sections[1]; /* All sections. Alloc-extended. */ +}; + +/* The size of the core structure depends on the max. number of sections. */ +#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) + + +/* Initialize DynASM state. */ +void dasm_init(Dst_DECL, int maxsection) +{ + dasm_State *D; + size_t psz = 0; + int i; + Dst_REF = NULL; + DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); + D = Dst_REF; + D->psize = psz; + D->lglabels = NULL; + D->lgsize = 0; + D->pclabels = NULL; + D->pcsize = 0; + D->globals = NULL; + D->maxsection = maxsection; + for (i = 0; i < maxsection; i++) { + D->sections[i].buf = NULL; /* Need this for pass3. */ + D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); + D->sections[i].bsize = 0; + D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ + } +} + +/* Free DynASM state. */ +void dasm_free(Dst_DECL) +{ + dasm_State *D = Dst_REF; + int i; + for (i = 0; i < D->maxsection; i++) + if (D->sections[i].buf) + DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); + if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); + if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); + DASM_M_FREE(Dst, D, D->psize); +} + +/* Setup global label array. Must be called before dasm_setup(). */ +void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) +{ + dasm_State *D = Dst_REF; + D->globals = gl - 10; /* Negative bias to compensate for locals. */ + DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); +} + +/* Grow PC label array. Can be called after dasm_setup(), too. */ +void dasm_growpc(Dst_DECL, unsigned int maxpc) +{ + dasm_State *D = Dst_REF; + size_t osz = D->pcsize; + DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); + memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); +} + +/* Setup encoder. */ +void dasm_setup(Dst_DECL, const void *actionlist) +{ + dasm_State *D = Dst_REF; + int i; + D->actionlist = (dasm_ActList)actionlist; + D->status = DASM_S_OK; + D->section = &D->sections[0]; + memset((void *)D->lglabels, 0, D->lgsize); + if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); + for (i = 0; i < D->maxsection; i++) { + D->sections[i].pos = DASM_SEC2POS(i); + D->sections[i].ofs = 0; + } +} + + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) { \ + D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) +#define CKPL(kind, st) \ + do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ + D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) +#else +#define CK(x, st) ((void)0) +#define CKPL(kind, st) ((void)0) +#endif + +static int dasm_imm12(unsigned int n) +{ + if ((n >> 12) == 0) + return n; + else if ((n & 0xff000fff) == 0) + return (n >> 12) | 0x1000; + else + return -1; +} + +static int dasm_ffs(unsigned long long x) +{ + int n = -1; + while (x) { x >>= 1; n++; } + return n; +} + +static int dasm_imm13(int lo, int hi) +{ + int inv = 0, w = 64, s = 0xfff, xa, xb; + unsigned long long n = (((unsigned long long)hi) << 32) | (unsigned int)lo; + unsigned long long m = 1ULL, a, b, c; + if (n & 1) { n = ~n; inv = 1; } + a = n & -n; b = (n+a)&-(n+a); c = (n+a-b)&-(n+a-b); + xa = dasm_ffs(a); xb = dasm_ffs(b); + if (c) { + w = dasm_ffs(c) - xa; + if (w == 32) m = 0x0000000100000001UL; + else if (w == 16) m = 0x0001000100010001UL; + else if (w == 8) m = 0x0101010101010101UL; + else if (w == 4) m = 0x1111111111111111UL; + else if (w == 2) m = 0x5555555555555555UL; + else return -1; + s = (-2*w & 0x3f) - 1; + } else if (!a) { + return -1; + } else if (xb == -1) { + xb = 64; + } + if ((b-a) * m != n) return -1; + if (inv) { + return ((w - xb) << 6) | (s+w+xa-xb); + } else { + return ((w - xa) << 6) | (s+xb-xa); + } + return -1; +} + +/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ +void dasm_put(Dst_DECL, int start, ...) +{ + va_list ap; + dasm_State *D = Dst_REF; + dasm_ActList p = D->actionlist + start; + dasm_Section *sec = D->section; + int pos = sec->pos, ofs = sec->ofs; + int *b; + + if (pos >= sec->epos) { + DASM_M_GROW(Dst, int, sec->buf, sec->bsize, + sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); + sec->rbuf = sec->buf - DASM_POS2BIAS(pos); + sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); + } + + b = sec->rbuf; + b[pos++] = start; + + va_start(ap, start); + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + if (action >= DASM__MAX) { + ofs += 4; + } else { + int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; + switch (action) { + case DASM_STOP: goto stop; + case DASM_SECTION: + n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); + D->section = &D->sections[n]; goto stop; + case DASM_ESC: p++; ofs += 4; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; + case DASM_REL_LG: + n = (ins & 2047) - 10; pl = D->lglabels + n; + /* Bkwd rel or global. */ + if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } + pl += 10; n = *pl; + if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ + goto linkrel; + case DASM_REL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putrel: + n = *pl; + if (n < 0) { /* Label exists. Get label pos and store it. */ + b[pos] = -n; + } else { + linkrel: + b[pos] = n; /* Else link to rel chain, anchored at label. */ + *pl = pos; + } + pos++; + break; + case DASM_LABEL_LG: + pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; + case DASM_LABEL_PC: + pl = D->pclabels + n; CKPL(pc, PC); + putlabel: + n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; + } + *pl = -pos; /* Label exists now. */ + b[pos++] = ofs; /* Store pass1 offset estimate. */ + break; + case DASM_IMM: + CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); + n >>= ((ins>>10)&31); +#ifdef DASM_CHECKS + if ((ins & 0x8000)) + CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); + else + CK((n>>((ins>>5)&31)) == 0, RANGE_I); +#endif + b[pos++] = n; + break; + case DASM_IMM6: + CK((n >> 6) == 0, RANGE_I); + b[pos++] = n; + break; + case DASM_IMM12: + CK(dasm_imm12((unsigned int)n) != -1, RANGE_I); + b[pos++] = n; + break; + case DASM_IMM13W: + CK(dasm_imm13(n, n) != -1, RANGE_I); + b[pos++] = n; + break; + case DASM_IMM13X: { + int m = va_arg(ap, int); + CK(dasm_imm13(n, m) != -1, RANGE_I); + b[pos++] = n; + b[pos++] = m; + break; + } + case DASM_IMML: { +#ifdef DASM_CHECKS + int scale = (p[-2] >> 30); + CK((!(n & ((1<>scale) < 4096) || + (unsigned int)(n+256) < 512, RANGE_I); +#endif + b[pos++] = n; + break; + } + } + } + } +stop: + va_end(ap); + sec->pos = pos; + sec->ofs = ofs; +} +#undef CK + +/* Pass 2: Link sections, shrink aligns, fix label offsets. */ +int dasm_link(Dst_DECL, size_t *szp) +{ + dasm_State *D = Dst_REF; + int secnum; + int ofs = 0; + +#ifdef DASM_CHECKS + *szp = 0; + if (D->status != DASM_S_OK) return D->status; + { + int pc; + for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) + if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; + } +#endif + + { /* Handle globals not defined in this translation unit. */ + int idx; + for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { + int n = D->lglabels[idx]; + /* Undefined label: Collapse rel chain and replace with marker (< 0). */ + while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } + } + } + + /* Combine all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->rbuf; + int pos = DASM_SEC2POS(secnum); + int lastpos = sec->pos; + + while (pos != lastpos) { + dasm_ActList p = D->actionlist + b[pos++]; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: p++; break; + case DASM_REL_EXT: break; + case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; + case DASM_REL_LG: case DASM_REL_PC: pos++; break; + case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; + case DASM_IMM: case DASM_IMM6: case DASM_IMM12: case DASM_IMM13W: + case DASM_IMML: pos++; break; + case DASM_IMM13X: pos += 2; break; + } + } + stop: (void)0; + } + ofs += sec->ofs; /* Next section starts right after current section. */ + } + + D->codesize = ofs; /* Total size of all code sections */ + *szp = ofs; + return DASM_S_OK; +} + +#ifdef DASM_CHECKS +#define CK(x, st) \ + do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) +#else +#define CK(x, st) ((void)0) +#endif + +/* Pass 3: Encode sections. */ +int dasm_encode(Dst_DECL, void *buffer) +{ + dasm_State *D = Dst_REF; + char *base = (char *)buffer; + unsigned int *cp = (unsigned int *)buffer; + int secnum; + + /* Encode all code sections. No support for data sections (yet). */ + for (secnum = 0; secnum < D->maxsection; secnum++) { + dasm_Section *sec = D->sections + secnum; + int *b = sec->buf; + int *endb = sec->rbuf + sec->pos; + + while (b != endb) { + dasm_ActList p = D->actionlist + *b++; + while (1) { + unsigned int ins = *p++; + unsigned int action = (ins >> 16); + int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; + switch (action) { + case DASM_STOP: case DASM_SECTION: goto stop; + case DASM_ESC: *cp++ = *p++; break; + case DASM_REL_EXT: + n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins&2047), !(ins&2048)); + goto patchrel; + case DASM_ALIGN: + ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0xe1a00000; + break; + case DASM_REL_LG: + CK(n >= 0, UNDEF_LG); + case DASM_REL_PC: + CK(n >= 0, UNDEF_PC); + n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base) + 4; + patchrel: + if (!(ins & 0xf800)) { /* B, BL */ + CK((n & 3) == 0 && ((n+0x08000000) >> 28) == 0, RANGE_REL); + cp[-1] |= ((n >> 2) & 0x03ffffff); + } else if ((ins & 0x800)) { /* B.cond, CBZ, CBNZ, LDR* literal */ + CK((n & 3) == 0 && ((n+0x00100000) >> 21) == 0, RANGE_REL); + cp[-1] |= ((n << 3) & 0x00ffffe0); + } else if ((ins & 0x3000) == 0x2000) { /* ADR */ + CK(((n+0x00100000) >> 21) == 0, RANGE_REL); + cp[-1] |= ((n << 3) & 0x00ffffe0) | ((n & 3) << 29); + } else if ((ins & 0x3000) == 0x3000) { /* ADRP */ + cp[-1] |= ((n >> 9) & 0x00ffffe0) | (((n >> 12) & 3) << 29); + } else if ((ins & 0x1000)) { /* TBZ, TBNZ */ + CK((n & 3) == 0 && ((n+0x00008000) >> 16) == 0, RANGE_REL); + cp[-1] |= ((n << 3) & 0x0007ffe0); + } + break; + case DASM_LABEL_LG: + ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); + break; + case DASM_LABEL_PC: break; + case DASM_IMM: + cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); + break; + case DASM_IMM6: + cp[-1] |= ((n&31) << 19) | ((n&32) << 26); + break; + case DASM_IMM12: + cp[-1] |= (dasm_imm12((unsigned int)n) << 10); + break; + case DASM_IMM13W: + cp[-1] |= (dasm_imm13(n, n) << 10); + break; + case DASM_IMM13X: + cp[-1] |= (dasm_imm13(n, *b++) << 10); + break; + case DASM_IMML: { + int scale = (p[-2] >> 30); + cp[-1] |= (!(n & ((1<>scale) < 4096) ? + ((n << (10-scale)) | 0x01000000) : ((n & 511) << 12); + break; + } + default: *cp++ = ins; break; + } + } + stop: (void)0; + } + } + + if (base + D->codesize != (char *)cp) /* Check for phase errors. */ + return DASM_S_PHASE; + return DASM_S_OK; +} +#undef CK + +/* Get PC label offset. */ +int dasm_getpclabel(Dst_DECL, unsigned int pc) +{ + dasm_State *D = Dst_REF; + if (pc*sizeof(int) < D->pcsize) { + int pos = D->pclabels[pc]; + if (pos < 0) return *DASM_POS2PTR(D, -pos); + if (pos > 0) return -1; /* Undefined. */ + } + return -2; /* Unused or out of range. */ +} + +#ifdef DASM_CHECKS +/* Optional sanity checker to call between isolated encoding steps. */ +int dasm_checkstep(Dst_DECL, int secmatch) +{ + dasm_State *D = Dst_REF; + if (D->status == DASM_S_OK) { + int i; + for (i = 1; i <= 9; i++) { + if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } + D->lglabels[i] = 0; + } + } + if (D->status == DASM_S_OK && secmatch >= 0 && + D->section != &D->sections[secmatch]) + D->status = DASM_S_MATCH_SEC|(D->section-D->sections); + return D->status; +} +#endif + diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua b/src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua new file mode 100644 index 00000000000..9766e475b0f --- /dev/null +++ b/src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua @@ -0,0 +1,1166 @@ +------------------------------------------------------------------------------ +-- DynASM ARM64 module. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- See dynasm.lua for full copyright notice. +------------------------------------------------------------------------------ + +-- Module information: +local _info = { + arch = "arm", + description = "DynASM ARM64 module", + version = "1.3.0", + vernum = 10300, + release = "2014-12-03", + author = "Mike Pall", + license = "MIT", +} + +-- Exported glue functions for the arch-specific module. +local _M = { _info = _info } + +-- Cache library functions. +local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs +local assert, setmetatable, rawget = assert, setmetatable, rawget +local _s = string +local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char +local match, gmatch, gsub = _s.match, _s.gmatch, _s.gsub +local concat, sort, insert = table.concat, table.sort, table.insert +local bit = bit or require("bit") +local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift +local ror, tohex = bit.ror, bit.tohex + +-- Inherited tables and callbacks. +local g_opt, g_arch +local wline, werror, wfatal, wwarn + +-- Action name list. +-- CHECK: Keep this in sync with the C code! +local action_names = { + "STOP", "SECTION", "ESC", "REL_EXT", + "ALIGN", "REL_LG", "LABEL_LG", + "REL_PC", "LABEL_PC", "IMM", "IMM6", "IMM12", "IMM13W", "IMM13X", "IMML", +} + +-- Maximum number of section buffer positions for dasm_put(). +-- CHECK: Keep this in sync with the C code! +local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. + +-- Action name -> action number. +local map_action = {} +for n,name in ipairs(action_names) do + map_action[name] = n-1 +end + +-- Action list buffer. +local actlist = {} + +-- Argument list for next dasm_put(). Start with offset 0 into action list. +local actargs = { 0 } + +-- Current number of section buffer positions for dasm_put(). +local secpos = 1 + +------------------------------------------------------------------------------ + +-- Dump action names and numbers. +local function dumpactions(out) + out:write("DynASM encoding engine action codes:\n") + for n,name in ipairs(action_names) do + local num = map_action[name] + out:write(format(" %-10s %02X %d\n", name, num, num)) + end + out:write("\n") +end + +-- Write action list buffer as a huge static C array. +local function writeactions(out, name) + local nn = #actlist + if nn == 0 then nn = 1; actlist[0] = map_action.STOP end + out:write("static const unsigned int ", name, "[", nn, "] = {\n") + for i = 1,nn-1 do + assert(out:write("0x", tohex(actlist[i]), ",\n")) + end + assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) +end + +------------------------------------------------------------------------------ + +-- Add word to action list. +local function wputxw(n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + actlist[#actlist+1] = n +end + +-- Add action to list with optional arg. Advance buffer pos, too. +local function waction(action, val, a, num) + local w = assert(map_action[action], "bad action name `"..action.."'") + wputxw(w * 0x10000 + (val or 0)) + if a then actargs[#actargs+1] = a end + if a or num then secpos = secpos + (num or 1) end +end + +-- Flush action list (intervening C code or buffer pos overflow). +local function wflush(term) + if #actlist == actargs[1] then return end -- Nothing to flush. + if not term then waction("STOP") end -- Terminate action list. + wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) + actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). + secpos = 1 -- The actionlist offset occupies a buffer position, too. +end + +-- Put escaped word. +local function wputw(n) + if n <= 0x000fffff then waction("ESC") end + wputxw(n) +end + +-- Reserve position for word. +local function wpos() + local pos = #actlist+1 + actlist[pos] = "" + return pos +end + +-- Store word to reserved position. +local function wputpos(pos, n) + assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") + if n <= 0x000fffff then + insert(actlist, pos+1, n) + n = map_action.ESC * 0x10000 + end + actlist[pos] = n +end + +------------------------------------------------------------------------------ + +-- Global label name -> global label number. With auto assignment on 1st use. +local next_global = 20 +local map_global = setmetatable({}, { __index = function(t, name) + if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end + local n = next_global + if n > 2047 then werror("too many global labels") end + next_global = n + 1 + t[name] = n + return n +end}) + +-- Dump global labels. +local function dumpglobals(out, lvl) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("Global labels:\n") + for i=20,next_global-1 do + out:write(format(" %s\n", t[i])) + end + out:write("\n") +end + +-- Write global label enum. +local function writeglobals(out, prefix) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("enum {\n") + for i=20,next_global-1 do + out:write(" ", prefix, t[i], ",\n") + end + out:write(" ", prefix, "_MAX\n};\n") +end + +-- Write global label names. +local function writeglobalnames(out, name) + local t = {} + for name, n in pairs(map_global) do t[n] = name end + out:write("static const char *const ", name, "[] = {\n") + for i=20,next_global-1 do + out:write(" \"", t[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Extern label name -> extern label number. With auto assignment on 1st use. +local next_extern = 0 +local map_extern_ = {} +local map_extern = setmetatable({}, { __index = function(t, name) + -- No restrictions on the name for now. + local n = next_extern + if n > 2047 then werror("too many extern labels") end + next_extern = n + 1 + t[name] = n + map_extern_[n] = name + return n +end}) + +-- Dump extern labels. +local function dumpexterns(out, lvl) + out:write("Extern labels:\n") + for i=0,next_extern-1 do + out:write(format(" %s\n", map_extern_[i])) + end + out:write("\n") +end + +-- Write extern label names. +local function writeexternnames(out, name) + out:write("static const char *const ", name, "[] = {\n") + for i=0,next_extern-1 do + out:write(" \"", map_extern_[i], "\",\n") + end + out:write(" (const char *)0\n};\n") +end + +------------------------------------------------------------------------------ + +-- Arch-specific maps. + +-- Ext. register name -> int. name. +local map_archdef = { xzr = "@x31", wzr = "@w31", lr = "x30", } + +-- Int. register name -> ext. name. +local map_reg_rev = { ["@x31"] = "xzr", ["@w31"] = "wzr", x30 = "lr", } + +local map_type = {} -- Type name -> { ctype, reg } +local ctypenum = 0 -- Type number (for Dt... macros). + +-- Reverse defines for registers. +function _M.revdef(s) + return map_reg_rev[s] or s +end + +local map_shift = { lsl = 0, lsr = 1, asr = 2, } + +local map_extend = { + uxtb = 0, uxth = 1, uxtw = 2, uxtx = 3, + sxtb = 4, sxth = 5, sxtw = 6, sxtx = 7, +} + +local map_cond = { + eq = 0, ne = 1, cs = 2, cc = 3, mi = 4, pl = 5, vs = 6, vc = 7, + hi = 8, ls = 9, ge = 10, lt = 11, gt = 12, le = 13, al = 14, + hs = 2, lo = 3, +} + +------------------------------------------------------------------------------ + +local parse_reg_type + +local function parse_reg(expr) + if not expr then werror("expected register name") end + local tname, ovreg = match(expr, "^([%w_]+):(@?%l%d+)$") + local tp = map_type[tname or expr] + if tp then + local reg = ovreg or tp.reg + if not reg then + werror("type `"..(tname or expr).."' needs a register override") + end + expr = reg + end + local ok31, rt, r = match(expr, "^(@?)([xwqdshb])([123]?[0-9])$") + if r then + r = tonumber(r) + if r <= 30 or (r == 31 and ok31 ~= "" or (rt ~= "w" and rt ~= "x")) then + if not parse_reg_type then + parse_reg_type = rt + elseif parse_reg_type ~= rt then + werror("register size mismatch") + end + return r, tp + end + end + werror("bad register name `"..expr.."'") +end + +local function parse_reg_base(expr) + if expr == "sp" then return 0x3e0 end + local base, tp = parse_reg(expr) + if parse_reg_type ~= "x" then werror("bad register type") end + parse_reg_type = false + return shl(base, 5), tp +end + +local parse_ctx = {} + +local loadenv = setfenv and function(s) + local code = loadstring(s, "") + if code then setfenv(code, parse_ctx) end + return code +end or function(s) + return load(s, "", nil, parse_ctx) +end + +-- Try to parse simple arithmetic, too, since some basic ops are aliases. +local function parse_number(n) + local x = tonumber(n) + if x then return x end + local code = loadenv("return "..n) + if code then + local ok, y = pcall(code) + if ok then return y end + end + return nil +end + +local function parse_imm(imm, bits, shift, scale, signed) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = parse_number(imm) + if n then + local m = sar(n, scale) + if shl(m, scale) == n then + if signed then + local s = sar(m, bits-1) + if s == 0 then return shl(m, shift) + elseif s == -1 then return shl(m + shl(1, bits), shift) end + else + if sar(m, bits) == 0 then return shl(m, shift) end + end + end + werror("out of range immediate `"..imm.."'") + else + waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) + return 0 + end +end + +local function parse_imm12(imm) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = parse_number(imm) + if n then + if shr(n, 12) == 0 then + return shl(n, 10) + elseif band(n, 0xff000fff) == 0 then + return shr(n, 2) + 0x00400000 + end + werror("out of range immediate `"..imm.."'") + else + waction("IMM12", 0, imm) + return 0 + end +end + +local function parse_imm13(imm) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = parse_number(imm) + local r64 = parse_reg_type == "x" + if n and n % 1 == 0 and n >= 0 and n <= 0xffffffff then + local inv = false + if band(n, 1) == 1 then n = bit.bnot(n); inv = true end + local t = {} + for i=1,32 do t[i] = band(n, 1); n = shr(n, 1) end + local b = table.concat(t) + b = b..(r64 and (inv and "1" or "0"):rep(32) or b) + local p0, p1, p0a, p1a = b:match("^(0+)(1+)(0*)(1*)") + if p0 then + local w = p1a == "" and (r64 and 64 or 32) or #p1+#p0a + if band(w, w-1) == 0 and b == b:sub(1, w):rep(64/w) then + local s = band(-2*w, 0x3f) - 1 + if w == 64 then s = s + 0x1000 end + if inv then + return shl(w-#p1-#p0, 16) + shl(s+w-#p1, 10) + else + return shl(w-#p0, 16) + shl(s+#p1, 10) + end + end + end + werror("out of range immediate `"..imm.."'") + elseif r64 then + waction("IMM13X", 0, format("(unsigned int)(%s)", imm)) + actargs[#actargs+1] = format("(unsigned int)((unsigned long long)(%s)>>32)", imm) + return 0 + else + waction("IMM13W", 0, imm) + return 0 + end +end + +local function parse_imm6(imm) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = parse_number(imm) + if n then + if n >= 0 and n <= 63 then + return shl(band(n, 0x1f), 19) + (n >= 32 and 0x80000000 or 0) + end + werror("out of range immediate `"..imm.."'") + else + waction("IMM6", 0, imm) + return 0 + end +end + +local function parse_imm_load(imm, scale) + local n = parse_number(imm) + if n then + local m = sar(n, scale) + if shl(m, scale) == n and m >= 0 and m < 0x1000 then + return shl(m, 10) + 0x01000000 -- Scaled, unsigned 12 bit offset. + elseif n >= -256 and n < 256 then + return shl(band(n, 511), 12) -- Unscaled, signed 9 bit offset. + end + werror("out of range immediate `"..imm.."'") + else + waction("IMML", 0, imm) + return 0 + end +end + +local function parse_fpimm(imm) + imm = match(imm, "^#(.*)$") + if not imm then werror("expected immediate operand") end + local n = parse_number(imm) + if n then + local m, e = math.frexp(n) + local s, e2 = 0, band(e-2, 7) + if m < 0 then m = -m; s = 0x00100000 end + m = m*32-16 + if m % 1 == 0 and m >= 0 and m <= 15 and sar(shl(e2, 29), 29)+2 == e then + return s + shl(e2, 17) + shl(m, 13) + end + werror("out of range immediate `"..imm.."'") + else + werror("NYI fpimm action") + end +end + +local function parse_shift(expr) + local s, s2 = match(expr, "^(%S+)%s*(.*)$") + s = map_shift[s] + if not s then werror("expected shift operand") end + return parse_imm(s2, 6, 10, 0, false) + shl(s, 22) +end + +local function parse_lslx16(expr) + local n = match(expr, "^lsl%s*#(%d+)$") + n = tonumber(n) + if not n then werror("expected shift operand") end + if band(n, parse_reg_type == "x" and 0xffffffcf or 0xffffffef) ~= 0 then + werror("bad shift amount") + end + return shl(n, 17) +end + +local function parse_extend(expr) + local s, s2 = match(expr, "^(%S+)%s*(.*)$") + if s == "lsl" then + s = parse_reg_type == "x" and 3 or 2 + else + s = map_extend[s] + end + if not s then werror("expected extend operand") end + return (s2 == "" and 0 or parse_imm(s2, 3, 10, 0, false)) + shl(s, 13) +end + +local function parse_cond(expr, inv) + local c = map_cond[expr] + if not c then werror("expected condition operand") end + return shl(bit.bxor(c, inv), 12) +end + +local function parse_load(params, nparams, n, op) + if params[n+2] then werror("too many operands") end + local pn, p2 = params[n], params[n+1] + local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") + if not p1 then + if not p2 then + local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local base, tp = parse_reg_base(reg) + if tp then + waction("IMML", 0, format(tp.ctypefmt, tailr)) + return op + base + end + end + end + werror("expected address operand") + end + local scale = shr(op, 30) + if p2 then + if wb == "!" then werror("bad use of '!'") end + op = op + parse_reg_base(p1) + parse_imm(p2, 9, 12, 0, true) + 0x400 + elseif wb == "!" then + local p1a, p2a = match(p1, "^([^,%s]*)%s*,%s*(.*)$") + if not p1a then werror("bad use of '!'") end + op = op + parse_reg_base(p1a) + parse_imm(p2a, 9, 12, 0, true) + 0xc00 + else + local p1a, p2a = match(p1, "^([^,%s]*)%s*(.*)$") + op = op + parse_reg_base(p1a) + if p2a ~= "" then + local imm = match(p2a, "^,%s*#(.*)$") + if imm then + op = op + parse_imm_load(imm, scale) + else + local p2b, p3b, p3s = match(p2a, "^,%s*([^,%s]*)%s*,?%s*(%S*)%s*(.*)$") + op = op + shl(parse_reg(p2b), 16) + 0x00200800 + if parse_reg_type ~= "x" and parse_reg_type ~= "w" then + werror("bad index register type") + end + if p3b == "" then + if parse_reg_type ~= "x" then werror("bad index register type") end + op = op + 0x6000 + else + if p3s == "" or p3s == "#0" then + elseif p3s == "#"..scale then + op = op + 0x1000 + else + werror("bad scale") + end + if parse_reg_type == "x" then + if p3b == "lsl" and p3s ~= "" then op = op + 0x6000 + elseif p3b == "sxtx" then op = op + 0xe000 + else + werror("bad extend/shift specifier") + end + else + if p3b == "uxtw" then op = op + 0x4000 + elseif p3b == "sxtw" then op = op + 0xc000 + else + werror("bad extend/shift specifier") + end + end + end + end + else + if wb == "!" then werror("bad use of '!'") end + op = op + 0x01000000 + end + end + return op +end + +local function parse_load_pair(params, nparams, n, op) + if params[n+2] then werror("too many operands") end + local pn, p2 = params[n], params[n+1] + local scale = shr(op, 30) == 0 and 2 or 3 + local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") + if not p1 then + if not p2 then + local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") + if reg and tailr ~= "" then + local base, tp = parse_reg_base(reg) + if tp then + waction("IMM", 32768+7*32+15+scale*1024, format(tp.ctypefmt, tailr)) + return op + base + 0x01000000 + end + end + end + werror("expected address operand") + end + if p2 then + if wb == "!" then werror("bad use of '!'") end + op = op + 0x00800000 + else + local p1a, p2a = match(p1, "^([^,%s]*)%s*,%s*(.*)$") + if p1a then p1, p2 = p1a, p2a else p2 = "#0" end + op = op + (wb == "!" and 0x01800000 or 0x01000000) + end + return op + parse_reg_base(p1) + parse_imm(p2, 7, 15, scale, true) +end + +local function parse_label(label, def) + local prefix = sub(label, 1, 2) + -- =>label (pc label reference) + if prefix == "=>" then + return "PC", 0, sub(label, 3) + end + -- ->name (global label reference) + if prefix == "->" then + return "LG", map_global[sub(label, 3)] + end + if def then + -- [1-9] (local label definition) + if match(label, "^[1-9]$") then + return "LG", 10+tonumber(label) + end + else + -- [<>][1-9] (local label reference) + local dir, lnum = match(label, "^([<>])([1-9])$") + if dir then -- Fwd: 1-9, Bkwd: 11-19. + return "LG", lnum + (dir == ">" and 0 or 10) + end + -- extern label (extern label reference) + local extname = match(label, "^extern%s+(%S+)$") + if extname then + return "EXT", map_extern[extname] + end + end + werror("bad label `"..label.."'") +end + +local function branch_type(op) + if band(op, 0x7c000000) == 0x14000000 then return 0 -- B, BL + elseif shr(op, 24) == 0x54 or band(op, 0x7e000000) == 0x34000000 or + band(op, 0x3b000000) == 0x18000000 then + return 0x800 -- B.cond, CBZ, CBNZ, LDR* literal + elseif band(op, 0x7e000000) == 0x36000000 then return 0x1000 -- TBZ, TBNZ + elseif band(op, 0x9f000000) == 0x10000000 then return 0x2000 -- ADR + elseif band(op, 0x9f000000) == band(0x90000000) then return 0x3000 -- ADRP + else + assert(false, "unknown branch type") + end +end + +------------------------------------------------------------------------------ + +local map_op, op_template + +local function op_alias(opname, f) + return function(params, nparams) + if not params then return "-> "..opname:sub(1, -3) end + f(params, nparams) + op_template(params, map_op[opname], nparams) + end +end + +local function alias_bfx(p) + p[4] = "#("..p[3]:sub(2)..")+("..p[4]:sub(2)..")-1" +end + +local function alias_bfiz(p) + parse_reg(p[1]) + if parse_reg_type == "w" then + p[3] = "#-("..p[3]:sub(2)..")%32" + p[4] = "#("..p[4]:sub(2)..")-1" + else + p[3] = "#-("..p[3]:sub(2)..")%64" + p[4] = "#("..p[4]:sub(2)..")-1" + end +end + +local alias_lslimm = op_alias("ubfm_4", function(p) + parse_reg(p[1]) + local sh = p[3]:sub(2) + if parse_reg_type == "w" then + p[3] = "#-("..sh..")%32" + p[4] = "#31-("..sh..")" + else + p[3] = "#-("..sh..")%64" + p[4] = "#63-("..sh..")" + end +end) + +-- Template strings for ARM instructions. +map_op = { + -- Basic data processing instructions. + add_3 = "0b000000DNMg|11000000pDpNIg|8b206000pDpNMx", + add_4 = "0b000000DNMSg|0b200000DNMXg|8b200000pDpNMXx|8b200000pDpNxMwX", + adds_3 = "2b000000DNMg|31000000DpNIg|ab206000DpNMx", + adds_4 = "2b000000DNMSg|2b200000DNMXg|ab200000DpNMXx|ab200000DpNxMwX", + cmn_2 = "2b00001fNMg|3100001fpNIg|ab20601fpNMx", + cmn_3 = "2b00001fNMSg|2b20001fNMXg|ab20001fpNMXx|ab20001fpNxMwX", + + sub_3 = "4b000000DNMg|51000000pDpNIg|cb206000pDpNMx", + sub_4 = "4b000000DNMSg|4b200000DNMXg|cb200000pDpNMXx|cb200000pDpNxMwX", + subs_3 = "6b000000DNMg|71000000DpNIg|eb206000DpNMx", + subs_4 = "6b000000DNMSg|6b200000DNMXg|eb200000DpNMXx|eb200000DpNxMwX", + cmp_2 = "6b00001fNMg|7100001fpNIg|eb20601fpNMx", + cmp_3 = "6b00001fNMSg|6b20001fNMXg|eb20001fpNMXx|eb20001fpNxMwX", + + neg_2 = "4b0003e0DMg", + neg_3 = "4b0003e0DMSg", + negs_2 = "6b0003e0DMg", + negs_3 = "6b0003e0DMSg", + + adc_3 = "1a000000DNMg", + adcs_3 = "3a000000DNMg", + sbc_3 = "5a000000DNMg", + sbcs_3 = "7a000000DNMg", + ngc_2 = "5a0003e0DMg", + ngcs_2 = "7a0003e0DMg", + + and_3 = "0a000000DNMg|12000000pDNig", + and_4 = "0a000000DNMSg", + orr_3 = "2a000000DNMg|32000000pDNig", + orr_4 = "2a000000DNMSg", + eor_3 = "4a000000DNMg|52000000pDNig", + eor_4 = "4a000000DNMSg", + ands_3 = "6a000000DNMg|72000000DNig", + ands_4 = "6a000000DNMSg", + tst_2 = "6a00001fNMg|7200001fNig", + tst_3 = "6a00001fNMSg", + + bic_3 = "0a200000DNMg", + bic_4 = "0a200000DNMSg", + orn_3 = "2a200000DNMg", + orn_4 = "2a200000DNMSg", + eon_3 = "4a200000DNMg", + eon_4 = "4a200000DNMSg", + bics_3 = "6a200000DNMg", + bics_4 = "6a200000DNMSg", + + movn_2 = "12800000DWg", + movn_3 = "12800000DWRg", + movz_2 = "52800000DWg", + movz_3 = "52800000DWRg", + movk_2 = "72800000DWg", + movk_3 = "72800000DWRg", + + -- TODO: this doesn't cover all valid immediates for mov reg, #imm. + mov_2 = "2a0003e0DMg|52800000DW|320003e0pDig|11000000pDpNg", + mov_3 = "2a0003e0DMSg", + mvn_2 = "2a2003e0DMg", + mvn_3 = "2a2003e0DMSg", + + adr_2 = "10000000DBx", + adrp_2 = "90000000DBx", + + csel_4 = "1a800000DNMCg", + csinc_4 = "1a800400DNMCg", + csinv_4 = "5a800000DNMCg", + csneg_4 = "5a800400DNMCg", + cset_2 = "1a9f07e0Dcg", + csetm_2 = "5a9f03e0Dcg", + cinc_3 = "1a800400DNmcg", + cinv_3 = "5a800000DNmcg", + cneg_3 = "5a800400DNmcg", + + ccmn_4 = "3a400000NMVCg|3a400800N5VCg", + ccmp_4 = "7a400000NMVCg|7a400800N5VCg", + + madd_4 = "1b000000DNMAg", + msub_4 = "1b008000DNMAg", + mul_3 = "1b007c00DNMg", + mneg_3 = "1b00fc00DNMg", + + smaddl_4 = "9b200000DxNMwAx", + smsubl_4 = "9b208000DxNMwAx", + smull_3 = "9b207c00DxNMw", + smnegl_3 = "9b20fc00DxNMw", + smulh_3 = "9b407c00DNMx", + umaddl_4 = "9ba00000DxNMwAx", + umsubl_4 = "9ba08000DxNMwAx", + umull_3 = "9ba07c00DxNMw", + umnegl_3 = "9ba0fc00DxNMw", + umulh_3 = "9bc07c00DNMx", + + udiv_3 = "1ac00800DNMg", + sdiv_3 = "1ac00c00DNMg", + + -- Bit operations. + sbfm_4 = "13000000DN12w|93400000DN12x", + bfm_4 = "33000000DN12w|b3400000DN12x", + ubfm_4 = "53000000DN12w|d3400000DN12x", + extr_4 = "13800000DNM2w|93c00000DNM2x", + + sxtb_2 = "13001c00DNw|93401c00DNx", + sxth_2 = "13003c00DNw|93403c00DNx", + sxtw_2 = "93407c00DxNw", + uxtb_2 = "53001c00DNw", + uxth_2 = "53003c00DNw", + + sbfx_4 = op_alias("sbfm_4", alias_bfx), + bfxil_4 = op_alias("bfm_4", alias_bfx), + ubfx_4 = op_alias("ubfm_4", alias_bfx), + sbfiz_4 = op_alias("sbfm_4", alias_bfiz), + bfi_4 = op_alias("bfm_4", alias_bfiz), + ubfiz_4 = op_alias("ubfm_4", alias_bfiz), + + lsl_3 = function(params, nparams) + if params and params[3]:byte() == 35 then + return alias_lslimm(params, nparams) + else + return op_template(params, "1ac02000DNMg", nparams) + end + end, + lsr_3 = "1ac02400DNMg|53007c00DN1w|d340fc00DN1x", + asr_3 = "1ac02800DNMg|13007c00DN1w|9340fc00DN1x", + ror_3 = "1ac02c00DNMg|13800000DNm2w|93c00000DNm2x", + + clz_2 = "5ac01000DNg", + cls_2 = "5ac01400DNg", + rbit_2 = "5ac00000DNg", + rev_2 = "5ac00800DNw|dac00c00DNx", + rev16_2 = "5ac00400DNg", + rev32_2 = "dac00800DNx", + + -- Loads and stores. + ["strb_*"] = "38000000DwL", + ["ldrb_*"] = "38400000DwL", + ["ldrsb_*"] = "38c00000DwL|38800000DxL", + ["strh_*"] = "78000000DwL", + ["ldrh_*"] = "78400000DwL", + ["ldrsh_*"] = "78c00000DwL|78800000DxL", + ["str_*"] = "b8000000DwL|f8000000DxL|bc000000DsL|fc000000DdL", + ["ldr_*"] = "18000000DwB|58000000DxB|1c000000DsB|5c000000DdB|b8400000DwL|f8400000DxL|bc400000DsL|fc400000DdL", + ["ldrsw_*"] = "98000000DxB|b8800000DxL", + -- NOTE: ldur etc. are handled by ldr et al. + + ["stp_*"] = "28000000DAwP|a8000000DAxP|2c000000DAsP|6c000000DAdP", + ["ldp_*"] = "28400000DAwP|a8400000DAxP|2c400000DAsP|6c400000DAdP", + ["ldpsw_*"] = "68400000DAxP", + + -- Branches. + b_1 = "14000000B", + bl_1 = "94000000B", + blr_1 = "d63f0000Nx", + br_1 = "d61f0000Nx", + ret_0 = "d65f03c0", + ret_1 = "d65f0000Nx", + -- b.cond is added below. + cbz_2 = "34000000DBg", + cbnz_2 = "35000000DBg", + tbz_3 = "36000000DTBw|36000000DTBx", + tbnz_3 = "37000000DTBw|37000000DTBx", + + -- Miscellaneous instructions. + -- TODO: hlt, hvc, smc, svc, eret, dcps[123], drps, mrs, msr + -- TODO: sys, sysl, ic, dc, at, tlbi + -- TODO: hint, yield, wfe, wfi, sev, sevl + -- TODO: clrex, dsb, dmb, isb + nop_0 = "d503201f", + brk_0 = "d4200000", + brk_1 = "d4200000W", + + -- Floating point instructions. + fmov_2 = "1e204000DNf|1e260000DwNs|1e270000DsNw|9e660000DxNd|9e670000DdNx|1e201000DFf", + fabs_2 = "1e20c000DNf", + fneg_2 = "1e214000DNf", + fsqrt_2 = "1e21c000DNf", + + fcvt_2 = "1e22c000DdNs|1e624000DsNd", + + -- TODO: half-precision and fixed-point conversions. + fcvtas_2 = "1e240000DwNs|9e240000DxNs|1e640000DwNd|9e640000DxNd", + fcvtau_2 = "1e250000DwNs|9e250000DxNs|1e650000DwNd|9e650000DxNd", + fcvtms_2 = "1e300000DwNs|9e300000DxNs|1e700000DwNd|9e700000DxNd", + fcvtmu_2 = "1e310000DwNs|9e310000DxNs|1e710000DwNd|9e710000DxNd", + fcvtns_2 = "1e200000DwNs|9e200000DxNs|1e600000DwNd|9e600000DxNd", + fcvtnu_2 = "1e210000DwNs|9e210000DxNs|1e610000DwNd|9e610000DxNd", + fcvtps_2 = "1e280000DwNs|9e280000DxNs|1e680000DwNd|9e680000DxNd", + fcvtpu_2 = "1e290000DwNs|9e290000DxNs|1e690000DwNd|9e690000DxNd", + fcvtzs_2 = "1e380000DwNs|9e380000DxNs|1e780000DwNd|9e780000DxNd", + fcvtzu_2 = "1e390000DwNs|9e390000DxNs|1e790000DwNd|9e790000DxNd", + + scvtf_2 = "1e220000DsNw|9e220000DsNx|1e620000DdNw|9e620000DdNx", + ucvtf_2 = "1e230000DsNw|9e230000DsNx|1e630000DdNw|9e630000DdNx", + + frintn_2 = "1e244000DNf", + frintp_2 = "1e24c000DNf", + frintm_2 = "1e254000DNf", + frintz_2 = "1e25c000DNf", + frinta_2 = "1e264000DNf", + frintx_2 = "1e274000DNf", + frinti_2 = "1e27c000DNf", + + fadd_3 = "1e202800DNMf", + fsub_3 = "1e203800DNMf", + fmul_3 = "1e200800DNMf", + fnmul_3 = "1e208800DNMf", + fdiv_3 = "1e201800DNMf", + + fmadd_4 = "1f000000DNMAf", + fmsub_4 = "1f008000DNMAf", + fnmadd_4 = "1f200000DNMAf", + fnmsub_4 = "1f208000DNMAf", + + fmax_3 = "1e204800DNMf", + fmaxnm_3 = "1e206800DNMf", + fmin_3 = "1e205800DNMf", + fminnm_3 = "1e207800DNMf", + + fcmp_2 = "1e202000NMf|1e202008NZf", + fcmpe_2 = "1e202010NMf|1e202018NZf", + + fccmp_4 = "1e200400NMVCf", + fccmpe_4 = "1e200410NMVCf", + + fcsel_4 = "1e200c00DNMCf", + + -- TODO: crc32*, aes*, sha*, pmull + -- TODO: SIMD instructions. +} + +for cond,c in pairs(map_cond) do + map_op["b"..cond.."_1"] = tohex(0x54000000+c).."B" +end + +------------------------------------------------------------------------------ + +-- Handle opcodes defined with template strings. +local function parse_template(params, template, nparams, pos) + local op = tonumber(sub(template, 1, 8), 16) + local n = 1 + local rtt = {} + + parse_reg_type = false + + -- Process each character. + for p in gmatch(sub(template, 9), ".") do + local q = params[n] + if p == "D" then + op = op + parse_reg(q); n = n + 1 + elseif p == "N" then + op = op + shl(parse_reg(q), 5); n = n + 1 + elseif p == "M" then + op = op + shl(parse_reg(q), 16); n = n + 1 + elseif p == "A" then + op = op + shl(parse_reg(q), 10); n = n + 1 + elseif p == "m" then + op = op + shl(parse_reg(params[n-1]), 16) + + elseif p == "p" then + if q == "sp" then params[n] = "@x31" end + elseif p == "g" then + if parse_reg_type == "x" then + op = op + 0x80000000 + elseif parse_reg_type ~= "w" then + werror("bad register type") + end + parse_reg_type = false + elseif p == "f" then + if parse_reg_type == "d" then + op = op + 0x00400000 + elseif parse_reg_type ~= "s" then + werror("bad register type") + end + parse_reg_type = false + elseif p == "x" or p == "w" or p == "d" or p == "s" then + if parse_reg_type ~= p then + werror("register size mismatch") + end + parse_reg_type = false + + elseif p == "L" then + op = parse_load(params, nparams, n, op) + elseif p == "P" then + op = parse_load_pair(params, nparams, n, op) + + elseif p == "B" then + local mode, v, s = parse_label(q, false); n = n + 1 + local m = branch_type(op) + waction("REL_"..mode, v+m, s, 1) + + elseif p == "I" then + op = op + parse_imm12(q); n = n + 1 + elseif p == "i" then + op = op + parse_imm13(q); n = n + 1 + elseif p == "W" then + op = op + parse_imm(q, 16, 5, 0, false); n = n + 1 + elseif p == "T" then + op = op + parse_imm6(q); n = n + 1 + elseif p == "1" then + op = op + parse_imm(q, 6, 16, 0, false); n = n + 1 + elseif p == "2" then + op = op + parse_imm(q, 6, 10, 0, false); n = n + 1 + elseif p == "5" then + op = op + parse_imm(q, 5, 16, 0, false); n = n + 1 + elseif p == "V" then + op = op + parse_imm(q, 4, 0, 0, false); n = n + 1 + elseif p == "F" then + op = op + parse_fpimm(q); n = n + 1 + elseif p == "Z" then + if q ~= "#0" and q ~= "#0.0" then werror("expected zero immediate") end + n = n + 1 + + elseif p == "S" then + op = op + parse_shift(q); n = n + 1 + elseif p == "X" then + op = op + parse_extend(q); n = n + 1 + elseif p == "R" then + op = op + parse_lslx16(q); n = n + 1 + elseif p == "C" then + op = op + parse_cond(q, 0); n = n + 1 + elseif p == "c" then + op = op + parse_cond(q, 1); n = n + 1 + + else + assert(false) + end + end + wputpos(pos, op) +end + +function op_template(params, template, nparams) + if not params then return template:gsub("%x%x%x%x%x%x%x%x", "") end + + -- Limit number of section buffer positions used by a single dasm_put(). + -- A single opcode needs a maximum of 3 positions. + if secpos+3 > maxsecpos then wflush() end + local pos = wpos() + local lpos, apos, spos = #actlist, #actargs, secpos + + local ok, err + for t in gmatch(template, "[^|]+") do + ok, err = pcall(parse_template, params, t, nparams, pos) + if ok then return end + secpos = spos + actlist[lpos+1] = nil + actlist[lpos+2] = nil + actlist[lpos+3] = nil + actargs[apos+1] = nil + actargs[apos+2] = nil + actargs[apos+3] = nil + end + error(err, 0) +end + +map_op[".template__"] = op_template + +------------------------------------------------------------------------------ + +-- Pseudo-opcode to mark the position where the action list is to be emitted. +map_op[".actionlist_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeactions(out, name) end) +end + +-- Pseudo-opcode to mark the position where the global enum is to be emitted. +map_op[".globals_1"] = function(params) + if not params then return "prefix" end + local prefix = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobals(out, prefix) end) +end + +-- Pseudo-opcode to mark the position where the global names are to be emitted. +map_op[".globalnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeglobalnames(out, name) end) +end + +-- Pseudo-opcode to mark the position where the extern names are to be emitted. +map_op[".externnames_1"] = function(params) + if not params then return "cvar" end + local name = params[1] -- No syntax check. You get to keep the pieces. + wline(function(out) writeexternnames(out, name) end) +end + +------------------------------------------------------------------------------ + +-- Label pseudo-opcode (converted from trailing colon form). +map_op[".label_1"] = function(params) + if not params then return "[1-9] | ->global | =>pcexpr" end + if secpos+1 > maxsecpos then wflush() end + local mode, n, s = parse_label(params[1], true) + if mode == "EXT" then werror("bad label definition") end + waction("LABEL_"..mode, n, s, 1) +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcodes for data storage. +map_op[".long_*"] = function(params) + if not params then return "imm..." end + for _,p in ipairs(params) do + local n = tonumber(p) + if not n then werror("bad immediate `"..p.."'") end + if n < 0 then n = n + 2^32 end + wputw(n) + if secpos+2 > maxsecpos then wflush() end + end +end + +-- Alignment pseudo-opcode. +map_op[".align_1"] = function(params) + if not params then return "numpow2" end + if secpos+1 > maxsecpos then wflush() end + local align = tonumber(params[1]) + if align then + local x = align + -- Must be a power of 2 in the range (2 ... 256). + for i=1,8 do + x = x / 2 + if x == 1 then + waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. + return + end + end + end + werror("bad alignment") +end + +------------------------------------------------------------------------------ + +-- Pseudo-opcode for (primitive) type definitions (map to C types). +map_op[".type_3"] = function(params, nparams) + if not params then + return nparams == 2 and "name, ctype" or "name, ctype, reg" + end + local name, ctype, reg = params[1], params[2], params[3] + if not match(name, "^[%a_][%w_]*$") then + werror("bad type name `"..name.."'") + end + local tp = map_type[name] + if tp then + werror("duplicate type `"..name.."'") + end + -- Add #type to defines. A bit unclean to put it in map_archdef. + map_archdef["#"..name] = "sizeof("..ctype..")" + -- Add new type and emit shortcut define. + local num = ctypenum + 1 + map_type[name] = { + ctype = ctype, + ctypefmt = format("Dt%X(%%s)", num), + reg = reg, + } + wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) + ctypenum = num +end +map_op[".type_2"] = map_op[".type_3"] + +-- Dump type definitions. +local function dumptypes(out, lvl) + local t = {} + for name in pairs(map_type) do t[#t+1] = name end + sort(t) + out:write("Type definitions:\n") + for _,name in ipairs(t) do + local tp = map_type[name] + local reg = tp.reg or "" + out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) + end + out:write("\n") +end + +------------------------------------------------------------------------------ + +-- Set the current section. +function _M.section(num) + waction("SECTION", num) + wflush(true) -- SECTION is a terminal action. +end + +------------------------------------------------------------------------------ + +-- Dump architecture description. +function _M.dumparch(out) + out:write(format("DynASM %s version %s, released %s\n\n", + _info.arch, _info.version, _info.release)) + dumpactions(out) +end + +-- Dump all user defined elements. +function _M.dumpdef(out, lvl) + dumptypes(out, lvl) + dumpglobals(out, lvl) + dumpexterns(out, lvl) +end + +------------------------------------------------------------------------------ + +-- Pass callbacks from/to the DynASM core. +function _M.passcb(wl, we, wf, ww) + wline, werror, wfatal, wwarn = wl, we, wf, ww + return wflush +end + +-- Setup the arch-specific module. +function _M.setup(arch, opt) + g_arch, g_opt = arch, opt +end + +-- Merge the core maps and the arch-specific maps. +function _M.mergemaps(map_coreop, map_def) + setmetatable(map_op, { __index = map_coreop }) + setmetatable(map_def, { __index = map_archdef }) + return map_op, map_def +end + +return _M + +------------------------------------------------------------------------------ + diff --git a/src/3rd party/luajit-2.0/etc/luajit.pc b/src/3rd party/luajit-2.0/etc/luajit.pc index d3f0cf30b42..5ec2c35c1f9 100644 --- a/src/3rd party/luajit-2.0/etc/luajit.pc +++ b/src/3rd party/luajit-2.0/etc/luajit.pc @@ -1,8 +1,8 @@ # Package information for LuaJIT to be used by pkg-config. majver=2 -minver=0 -relver=3 -version=${majver}.${minver}.${relver} +minver=1 +relver=0 +version=${majver}.${minver}.${relver}-alpha abiver=5.1 prefix=/usr/local diff --git a/src/3rd party/luajit-2.0/src/.gitignore b/src/3rd party/luajit-2.0/src/.gitignore index fc94e82cc88..1a30573c9ff 100644 --- a/src/3rd party/luajit-2.0/src/.gitignore +++ b/src/3rd party/luajit-2.0/src/.gitignore @@ -4,4 +4,4 @@ lj_ffdef.h lj_libdef.h lj_recdef.h lj_folddef.h -lj_vm.s +lj_vm.[sS] diff --git a/src/3rd party/luajit-2.0/src/Makefile b/src/3rd party/luajit-2.0/src/Makefile index 33b0a43b12c..71ab6ea0910 100644 --- a/src/3rd party/luajit-2.0/src/Makefile +++ b/src/3rd party/luajit-2.0/src/Makefile @@ -11,8 +11,8 @@ ############################################################################## MAJVER= 2 -MINVER= 0 -RELVER= 3 +MINVER= 1 +RELVER= 0 ABIVER= 5.1 NODOTABIVER= 51 @@ -42,17 +42,14 @@ CCOPT= -O2 -fomit-frame-pointer # # Target-specific compiler options: # -# x86 only: it's recommended to compile at least for i686. Better yet, -# compile for an architecture that has SSE2, too (-msse -msse2). -# # x86/x64 only: For GCC 4.2 or higher and if you don't intend to distribute # the binaries to a different machine you could also use: -march=native # -CCOPT_x86= -march=i686 +CCOPT_x86= -march=i686 -msse -msse2 -mfpmath=sse CCOPT_x64= CCOPT_arm= +CCOPT_arm64= CCOPT_ppc= -CCOPT_ppcspe= CCOPT_mips= # CCDEBUG= @@ -165,7 +162,8 @@ XCFLAGS= # make HOST_CC="gcc -m32" CROSS=i586-mingw32msvc- TARGET_SYS=Windows # make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu- -CCOPTIONS= $(CCDEBUG) $(CCOPT) $(CCWARN) $(XCFLAGS) $(CFLAGS) +ASOPTIONS= $(CCOPT) $(CCWARN) $(XCFLAGS) $(CFLAGS) +CCOPTIONS= $(CCDEBUG) $(ASOPTIONS) LDOPTIONS= $(CCDEBUG) $(LDFLAGS) HOST_CC= $(CC) @@ -204,6 +202,7 @@ TARGET_XLDFLAGS= TARGET_XLIBS= -lm TARGET_TCFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) TARGET_ACFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) +TARGET_ASFLAGS= $(ASOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) TARGET_ALDFLAGS= $(LDOPTIONS) $(TARGET_XLDFLAGS) $(TARGET_FLAGS) $(TARGET_LDFLAGS) TARGET_ASHLDFLAGS= $(LDOPTIONS) $(TARGET_XSHLDFLAGS) $(TARGET_FLAGS) $(TARGET_SHLDFLAGS) TARGET_ALIBS= $(TARGET_XLIBS) $(LIBS) $(TARGET_LIBS) @@ -218,12 +217,12 @@ else ifneq (,$(findstring LJ_TARGET_ARM ,$(TARGET_TESTARCH))) TARGET_LJARCH= arm else +ifneq (,$(findstring LJ_TARGET_ARM64 ,$(TARGET_TESTARCH))) + TARGET_LJARCH= arm64 +else ifneq (,$(findstring LJ_TARGET_PPC ,$(TARGET_TESTARCH))) TARGET_LJARCH= ppc else -ifneq (,$(findstring LJ_TARGET_PPCSPE ,$(TARGET_TESTARCH))) - TARGET_LJARCH= ppcspe -else ifneq (,$(findstring LJ_TARGET_MIPS ,$(TARGET_TESTARCH))) ifneq (,$(findstring MIPSEL ,$(TARGET_TESTARCH))) TARGET_ARCH= -D__MIPSEL__=1 @@ -242,6 +241,7 @@ ifneq (,$(findstring LJ_TARGET_PS3 1,$(TARGET_TESTARCH))) TARGET_SYS= PS3 TARGET_ARCH+= -D__CELLOS_LV2__ TARGET_XCFLAGS+= -DLUAJIT_USE_SYSMALLOC + TARGET_XLIBS+= -lpthread endif ifneq (,$(findstring LJ_NO_UNWIND 1,$(TARGET_TESTARCH))) TARGET_ARCH+= -DLUAJIT_NO_UNWIND @@ -313,6 +313,9 @@ ifeq (iOS,$(TARGET_SYS)) TARGET_XSHLDFLAGS= -dynamiclib -single_module -undefined dynamic_lookup -fPIC TARGET_DYNXLDOPTS= TARGET_XSHLDFLAGS+= -install_name $(TARGET_DYLIBPATH) -compatibility_version $(MAJVER).$(MINVER) -current_version $(MAJVER).$(MINVER).$(RELVER) + ifeq (arm64,$(TARGET_LJARCH)) + TARGET_XCFLAGS+= -fno-omit-frame-pointer + endif else ifneq (SunOS,$(TARGET_SYS)) ifneq (PS3,$(TARGET_SYS)) @@ -401,13 +404,10 @@ DASM_AFLAGS+= -D VER=$(subst LJ_ARCH_VERSION_,,$(filter LJ_ARCH_VERSION_%,$(subs ifeq (Windows,$(TARGET_SYS)) DASM_AFLAGS+= -D WIN endif -ifeq (x86,$(TARGET_LJARCH)) - ifneq (,$(findstring __SSE2__ 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D SSE - endif -else ifeq (x64,$(TARGET_LJARCH)) - DASM_ARCH= x86 + ifeq (,$(findstring LJ_FR2 1,$(TARGET_TESTARCH))) + DASM_ARCH= x86 + endif else ifeq (arm,$(TARGET_LJARCH)) ifeq (iOS,$(TARGET_SYS)) @@ -430,7 +430,6 @@ ifeq (ppc,$(TARGET_LJARCH)) endif endif endif -endif DASM_FLAGS= $(DASM_XFLAGS) $(DASM_AFLAGS) DASM_DASC= vm_$(DASM_ARCH).dasc @@ -443,7 +442,7 @@ BUILDVM_X= $(BUILDVM_T) HOST_O= $(MINILUA_O) $(BUILDVM_O) HOST_T= $(MINILUA_T) $(BUILDVM_T) -LJVM_S= lj_vm.s +LJVM_S= lj_vm.S LJVM_O= lj_vm.o LJVM_BOUT= $(LJVM_S) LJVM_MODE= elfasm @@ -452,10 +451,11 @@ LJLIB_O= lib_base.o lib_math.o lib_bit.o lib_string.o lib_table.o \ lib_io.o lib_os.o lib_package.o lib_debug.o lib_jit.o lib_ffi.o LJLIB_C= $(LJLIB_O:.o=.c) -LJCORE_O= lj_gc.o lj_err.o lj_char.o lj_bc.o lj_obj.o \ +LJCORE_O= lj_gc.o lj_err.o lj_char.o lj_bc.o lj_obj.o lj_buf.o \ lj_str.o lj_tab.o lj_func.o lj_udata.o lj_meta.o lj_debug.o \ lj_state.o lj_dispatch.o lj_vmevent.o lj_vmmath.o lj_strscan.o \ - lj_api.o lj_lex.o lj_parse.o lj_bcread.o lj_bcwrite.o lj_load.o \ + lj_strfmt.o lj_api.o lj_profile.o \ + lj_lex.o lj_parse.o lj_bcread.o lj_bcwrite.o lj_load.o \ lj_ir.o lj_opt_mem.o lj_opt_fold.o lj_opt_narrow.o \ lj_opt_dce.o lj_opt_loop.o lj_opt_split.o lj_opt_sink.o \ lj_mcode.o lj_snap.o lj_record.o lj_crecord.o lj_ffrecord.o \ @@ -575,6 +575,10 @@ amalg: clean: $(HOST_RM) $(ALL_RM) +libbc: + ./$(LUAJIT_T) host/genlibbc.lua -o host/buildvm_libbc.h $(LJLIB_C) + $(MAKE) all + depend: @for file in $(ALL_HDRGEN); do \ test -f $$file || touch $$file; \ @@ -589,7 +593,7 @@ depend: test -s $$file || $(HOST_RM) $$file; \ done -.PHONY: default all amalg clean depend +.PHONY: default all amalg clean libbc depend ############################################################################## # Rules for generated files. @@ -646,10 +650,10 @@ lj_folddef.h: $(BUILDVM_T) lj_opt_fold.c $(Q)$(TARGET_DYNCC) $(TARGET_ACFLAGS) -c -o $(@:.o=_dyn.o) $< $(Q)$(TARGET_CC) $(TARGET_ACFLAGS) -c -o $@ $< -%.o: %.s +%.o: %.S $(E) "ASM $@" - $(Q)$(TARGET_DYNCC) $(TARGET_ACFLAGS) -c -o $(@:.o=_dyn.o) $< - $(Q)$(TARGET_CC) $(TARGET_ACFLAGS) -c -o $@ $< + $(Q)$(TARGET_DYNCC) $(TARGET_ASFLAGS) -c -o $(@:.o=_dyn.o) $< + $(Q)$(TARGET_CC) $(TARGET_ASFLAGS) -c -o $@ $< $(LUAJIT_O): $(E) "CC $@" diff --git a/src/3rd party/luajit-2.0/src/Makefile.dep b/src/3rd party/luajit-2.0/src/Makefile.dep index 9e14d617360..9aefb236427 100644 --- a/src/3rd party/luajit-2.0/src/Makefile.dep +++ b/src/3rd party/luajit-2.0/src/Makefile.dep @@ -5,43 +5,47 @@ lib_base.o: lib_base.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h \ lj_tab.h lj_meta.h lj_state.h lj_ctype.h lj_cconv.h lj_bc.h lj_ff.h \ lj_ffdef.h lj_dispatch.h lj_jit.h lj_ir.h lj_char.h lj_strscan.h \ - lj_lib.h lj_libdef.h + lj_strfmt.h lj_lib.h lj_libdef.h lib_bit.o: lib_bit.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_str.h lj_lib.h lj_libdef.h + lj_arch.h lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_strscan.h \ + lj_strfmt.h lj_ctype.h lj_cdata.h lj_cconv.h lj_carith.h lj_ff.h \ + lj_ffdef.h lj_lib.h lj_libdef.h lib_debug.o: lib_debug.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_lib.h \ lj_libdef.h lib_ffi.o: lib_ffi.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h \ lj_ctype.h lj_cparse.h lj_cdata.h lj_cconv.h lj_carith.h lj_ccall.h \ - lj_ccallback.h lj_clib.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h + lj_ccallback.h lj_clib.h lj_strfmt.h lj_ff.h lj_ffdef.h lj_lib.h \ + lj_libdef.h lib_init.o: lib_init.c lua.h luaconf.h lauxlib.h lualib.h lj_arch.h lib_io.o: lib_io.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_state.h lj_ff.h \ - lj_ffdef.h lj_lib.h lj_libdef.h -lib_jit.o: lib_jit.c lua.h luaconf.h lauxlib.h lualib.h lj_arch.h \ - lj_obj.h lj_def.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h \ - lj_bc.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_target.h \ - lj_target_*.h lj_dispatch.h lj_vm.h lj_vmevent.h lj_lib.h luajit.h \ - lj_libdef.h + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_state.h \ + lj_strfmt.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h +lib_jit.o: lib_jit.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h \ + lj_state.h lj_bc.h lj_ctype.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h \ + lj_target.h lj_target_*.h lj_trace.h lj_dispatch.h lj_traceerr.h \ + lj_vm.h lj_vmevent.h lj_lib.h luajit.h lj_libdef.h lib_math.o: lib_math.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ lj_def.h lj_arch.h lj_lib.h lj_vm.h lj_libdef.h lib_os.o: lib_os.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_lib.h lj_libdef.h + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_lib.h \ + lj_libdef.h lib_package.o: lib_package.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ lj_def.h lj_arch.h lj_err.h lj_errmsg.h lj_lib.h lib_string.o: lib_string.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h \ - lj_meta.h lj_state.h lj_ff.h lj_ffdef.h lj_bcdump.h lj_lex.h lj_char.h \ - lj_lib.h lj_libdef.h + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h \ + lj_tab.h lj_meta.h lj_state.h lj_ff.h lj_ffdef.h lj_bcdump.h lj_lex.h \ + lj_char.h lj_strfmt.h lj_lib.h lj_libdef.h lib_table.o: lib_table.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_lib.h \ - lj_libdef.h + lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h \ + lj_tab.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h lj_alloc.o: lj_alloc.c lj_def.h lua.h luaconf.h lj_arch.h lj_alloc.h lj_api.o: lj_api.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_func.h lj_udata.h \ lj_meta.h lj_state.h lj_bc.h lj_frame.h lj_trace.h lj_jit.h lj_ir.h \ - lj_dispatch.h lj_traceerr.h lj_vm.h lj_strscan.h + lj_dispatch.h lj_traceerr.h lj_vm.h lj_strscan.h lj_strfmt.h lj_asm.o: lj_asm.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h lj_ir.h lj_jit.h \ lj_ircall.h lj_iropt.h lj_mcode.h lj_trace.h lj_dispatch.h lj_traceerr.h \ @@ -50,17 +54,20 @@ lj_asm.o: lj_asm.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_bc.o: lj_bc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_bc.h \ lj_bcdef.h lj_bcread.o: lj_bcread.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_bc.h lj_ctype.h \ - lj_cdata.h lualib.h lj_lex.h lj_bcdump.h lj_state.h + lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_bc.h \ + lj_ctype.h lj_cdata.h lualib.h lj_lex.h lj_bcdump.h lj_state.h \ + lj_strfmt.h lj_bcwrite.o: lj_bcwrite.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_str.h lj_bc.h lj_ctype.h lj_dispatch.h lj_jit.h lj_ir.h \ - lj_bcdump.h lj_lex.h lj_err.h lj_errmsg.h lj_vm.h + lj_gc.h lj_buf.h lj_str.h lj_bc.h lj_ctype.h lj_dispatch.h lj_jit.h \ + lj_ir.h lj_strfmt.h lj_bcdump.h lj_lex.h lj_err.h lj_errmsg.h lj_vm.h +lj_buf.o: lj_buf.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ + lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_strfmt.h lj_carith.o: lj_carith.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_meta.h lj_ctype.h lj_cconv.h \ - lj_cdata.h lj_carith.h + lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_meta.h lj_ir.h lj_ctype.h \ + lj_cconv.h lj_cdata.h lj_carith.h lj_strscan.h lj_ccall.o: lj_ccall.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cconv.h \ - lj_cdata.h lj_ccall.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ + lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_cconv.h lj_cdata.h \ + lj_ccall.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ lj_traceerr.h lj_ccallback.o: lj_ccallback.c lj_obj.h lua.h luaconf.h lj_def.h \ lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_state.h lj_frame.h \ @@ -71,107 +78,116 @@ lj_cconv.o: lj_cconv.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_gc.h lj_cdata.h lj_cconv.h \ lj_ccallback.h lj_cdata.o: lj_cdata.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cconv.h \ - lj_cdata.h + lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_cconv.h lj_cdata.h lj_char.o: lj_char.c lj_char.h lj_def.h lua.h luaconf.h lj_clib.o: lj_clib.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_err.h lj_errmsg.h lj_tab.h lj_str.h lj_udata.h lj_ctype.h lj_cconv.h \ - lj_cdata.h lj_clib.h + lj_cdata.h lj_clib.h lj_strfmt.h lj_cparse.o: lj_cparse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_ctype.h lj_cparse.h lj_frame.h \ - lj_bc.h lj_vm.h lj_char.h lj_strscan.h + lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_ctype.h lj_cparse.h \ + lj_frame.h lj_bc.h lj_vm.h lj_char.h lj_strscan.h lj_strfmt.h lj_crecord.o: lj_crecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h \ - lj_gc.h lj_cdata.h lj_cparse.h lj_cconv.h lj_clib.h lj_ccall.h lj_ff.h \ - lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ + lj_err.h lj_errmsg.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h lj_gc.h \ + lj_cdata.h lj_cparse.h lj_cconv.h lj_carith.h lj_clib.h lj_ccall.h \ + lj_ff.h lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_snap.h \ - lj_crecord.h + lj_crecord.h lj_strfmt.h lj_ctype.o: lj_ctype.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_ccallback.h + lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_strfmt.h lj_ctype.h \ + lj_ccallback.h lj_debug.o: lj_debug.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_state.h lj_frame.h \ - lj_bc.h lj_vm.h lj_jit.h lj_ir.h + lj_err.h lj_errmsg.h lj_debug.h lj_buf.h lj_gc.h lj_str.h lj_tab.h \ + lj_state.h lj_frame.h lj_bc.h lj_strfmt.h lj_jit.h lj_ir.h lj_dispatch.o: lj_dispatch.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_func.h lj_str.h lj_tab.h lj_meta.h lj_debug.h \ - lj_state.h lj_frame.h lj_bc.h lj_ff.h lj_ffdef.h lj_jit.h lj_ir.h \ - lj_ccallback.h lj_ctype.h lj_gc.h lj_trace.h lj_dispatch.h lj_traceerr.h \ - lj_vm.h luajit.h + lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_func.h lj_tab.h \ + lj_meta.h lj_debug.h lj_state.h lj_frame.h lj_bc.h lj_ff.h lj_ffdef.h \ + lj_strfmt.h lj_jit.h lj_ir.h lj_ccallback.h lj_ctype.h lj_trace.h \ + lj_dispatch.h lj_traceerr.h lj_profile.h lj_vm.h luajit.h lj_err.o: lj_err.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_err.h \ lj_errmsg.h lj_debug.h lj_str.h lj_func.h lj_state.h lj_frame.h lj_bc.h \ lj_ff.h lj_ffdef.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h \ - lj_traceerr.h lj_vm.h + lj_traceerr.h lj_vm.h lj_strfmt.h lj_ffrecord.o: lj_ffrecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ff.h \ lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_crecord.h \ - lj_vm.h lj_strscan.h lj_recdef.h + lj_vm.h lj_strscan.h lj_strfmt.h lj_recdef.h lj_func.o: lj_func.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_func.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ lj_traceerr.h lj_vm.h lj_gc.o: lj_gc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_udata.h lj_meta.h \ - lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h lj_trace.h lj_jit.h \ - lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h + lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_func.h lj_udata.h \ + lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h lj_trace.h \ + lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h lj_gdbjit.o: lj_gdbjit.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_frame.h lj_bc.h lj_jit.h \ - lj_ir.h lj_dispatch.h + lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_frame.h lj_bc.h lj_buf.h \ + lj_str.h lj_strfmt.h lj_jit.h lj_ir.h lj_dispatch.h lj_ir.o: lj_ir.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ - lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h lj_cdata.h lj_carith.h \ - lj_vm.h lj_strscan.h lj_lib.h + lj_buf.h lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h \ + lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h lj_cdata.h \ + lj_carith.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lib.h lj_lex.o: lj_lex.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_ctype.h lj_cdata.h lualib.h \ - lj_state.h lj_lex.h lj_parse.h lj_char.h lj_strscan.h + lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_ctype.h lj_cdata.h \ + lualib.h lj_state.h lj_lex.h lj_parse.h lj_char.h lj_strscan.h \ + lj_strfmt.h lj_lib.o: lj_lib.c lauxlib.h lua.h luaconf.h lj_obj.h lj_def.h lj_arch.h \ lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_bc.h \ - lj_dispatch.h lj_jit.h lj_ir.h lj_vm.h lj_strscan.h lj_lib.h + lj_dispatch.h lj_jit.h lj_ir.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lex.h \ + lj_bcdump.h lj_lib.h lj_load.o: lj_load.c lua.h luaconf.h lauxlib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_func.h lj_frame.h \ - lj_bc.h lj_vm.h lj_lex.h lj_bcdump.h lj_parse.h + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_func.h \ + lj_frame.h lj_bc.h lj_vm.h lj_lex.h lj_bcdump.h lj_parse.h lj_mcode.o: lj_mcode.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_gc.h lj_err.h lj_errmsg.h lj_jit.h lj_ir.h lj_mcode.h lj_trace.h \ lj_dispatch.h lj_bc.h lj_traceerr.h lj_vm.h lj_meta.o: lj_meta.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h lj_frame.h lj_bc.h \ - lj_vm.h lj_strscan.h + lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_meta.h lj_frame.h \ + lj_bc.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lib.h lj_obj.o: lj_obj.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_opt_dce.o: lj_opt_dce.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_ir.h lj_jit.h lj_iropt.h lj_opt_fold.o: lj_opt_fold.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h lj_dispatch.h \ - lj_bc.h lj_traceerr.h lj_ctype.h lj_gc.h lj_carith.h lj_vm.h \ - lj_strscan.h lj_folddef.h + lj_buf.h lj_gc.h lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h \ + lj_iropt.h lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h \ + lj_carith.h lj_vm.h lj_strscan.h lj_strfmt.h lj_folddef.h lj_opt_loop.o: lj_opt_loop.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_str.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h \ - lj_dispatch.h lj_bc.h lj_traceerr.h lj_snap.h lj_vm.h + lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_ir.h lj_jit.h \ + lj_iropt.h lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_snap.h \ + lj_vm.h lj_opt_mem.o: lj_opt_mem.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_tab.h lj_ir.h lj_jit.h lj_iropt.h + lj_tab.h lj_ir.h lj_jit.h lj_iropt.h lj_ircall.h lj_opt_narrow.o: lj_opt_narrow.c lj_obj.h lua.h luaconf.h lj_def.h \ lj_arch.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h lj_dispatch.h \ lj_traceerr.h lj_vm.h lj_strscan.h lj_opt_sink.o: lj_opt_sink.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_ir.h lj_jit.h lj_iropt.h lj_target.h lj_target_*.h lj_opt_split.o: lj_opt_split.c lj_obj.h lua.h luaconf.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_str.h lj_ir.h lj_jit.h lj_ircall.h \ - lj_iropt.h lj_vm.h + lj_arch.h lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_ir.h \ + lj_jit.h lj_ircall.h lj_iropt.h lj_vm.h lj_parse.o: lj_parse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_func.h \ - lj_state.h lj_bc.h lj_ctype.h lj_lex.h lj_parse.h lj_vm.h lj_vmevent.h + lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_buf.h lj_str.h lj_tab.h \ + lj_func.h lj_state.h lj_bc.h lj_ctype.h lj_strfmt.h lj_lex.h lj_parse.h \ + lj_vm.h lj_vmevent.h +lj_profile.o: lj_profile.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_buf.h lj_gc.h lj_str.h lj_frame.h lj_bc.h lj_debug.h lj_dispatch.h \ + lj_jit.h lj_ir.h lj_trace.h lj_traceerr.h lj_profile.h luajit.h lj_record.o: lj_record.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h lj_frame.h lj_bc.h \ - lj_ctype.h lj_gc.h lj_ff.h lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h \ - lj_iropt.h lj_trace.h lj_dispatch.h lj_traceerr.h lj_record.h \ - lj_ffrecord.h lj_snap.h lj_vm.h + lj_ctype.h lj_gc.h lj_ff.h lj_ffdef.h lj_debug.h lj_ir.h lj_jit.h \ + lj_ircall.h lj_iropt.h lj_trace.h lj_dispatch.h lj_traceerr.h \ + lj_record.h lj_ffrecord.h lj_snap.h lj_vm.h lj_snap.o: lj_snap.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ lj_tab.h lj_state.h lj_frame.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h \ lj_trace.h lj_dispatch.h lj_traceerr.h lj_snap.h lj_target.h \ lj_target_*.h lj_ctype.h lj_cdata.h lj_state.o: lj_state.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_meta.h \ - lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_trace.h lj_jit.h lj_ir.h \ - lj_dispatch.h lj_traceerr.h lj_vm.h lj_lex.h lj_alloc.h + lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_func.h \ + lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_trace.h lj_jit.h \ + lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h lj_lex.h lj_alloc.h luajit.h lj_str.o: lj_str.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_str.h lj_state.h lj_char.h + lj_err.h lj_errmsg.h lj_str.h lj_char.h +lj_strfmt.o: lj_strfmt.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ + lj_buf.h lj_gc.h lj_str.h lj_state.h lj_char.h lj_strfmt.h lj_strscan.o: lj_strscan.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_char.h lj_strscan.h lj_tab.o: lj_tab.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ @@ -189,21 +205,22 @@ lj_vmevent.o: lj_vmevent.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_vmmath.o: lj_vmmath.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ lj_ir.h lj_vm.h ljamalg.o: ljamalg.c lua.h luaconf.h lauxlib.h lj_gc.c lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h \ - lj_udata.h lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h \ - lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h lj_err.c \ - lj_debug.h lj_ff.h lj_ffdef.h lj_char.c lj_char.h lj_bc.c lj_bcdef.h \ - lj_obj.c lj_str.c lj_tab.c lj_func.c lj_udata.c lj_meta.c lj_strscan.h \ - lj_debug.c lj_state.c lj_lex.h lj_alloc.h lj_dispatch.c lj_ccallback.h \ - luajit.h lj_vmevent.c lj_vmevent.h lj_vmmath.c lj_strscan.c lj_api.c \ - lj_lex.c lualib.h lj_parse.h lj_parse.c lj_bcread.c lj_bcdump.h \ - lj_bcwrite.c lj_load.c lj_ctype.c lj_cdata.c lj_cconv.h lj_cconv.c \ - lj_ccall.c lj_ccall.h lj_ccallback.c lj_target.h lj_target_*.h \ - lj_mcode.h lj_carith.c lj_carith.h lj_clib.c lj_clib.h lj_cparse.c \ - lj_cparse.h lj_lib.c lj_lib.h lj_ir.c lj_ircall.h lj_iropt.h \ - lj_opt_mem.c lj_opt_fold.c lj_folddef.h lj_opt_narrow.c lj_opt_dce.c \ - lj_opt_loop.c lj_snap.h lj_opt_split.c lj_opt_sink.c lj_mcode.c \ - lj_snap.c lj_record.c lj_record.h lj_ffrecord.h lj_crecord.c \ + lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h \ + lj_func.h lj_udata.h lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h \ + lj_cdata.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h \ + lj_vm.h lj_err.c lj_debug.h lj_ff.h lj_ffdef.h lj_strfmt.h lj_char.c \ + lj_char.h lj_bc.c lj_bcdef.h lj_obj.c lj_buf.c lj_str.c lj_tab.c \ + lj_func.c lj_udata.c lj_meta.c lj_strscan.h lj_lib.h lj_debug.c \ + lj_state.c lj_lex.h lj_alloc.h luajit.h lj_dispatch.c lj_ccallback.h \ + lj_profile.h lj_vmevent.c lj_vmevent.h lj_vmmath.c lj_strscan.c \ + lj_strfmt.c lj_api.c lj_profile.c lj_lex.c lualib.h lj_parse.h \ + lj_parse.c lj_bcread.c lj_bcdump.h lj_bcwrite.c lj_load.c lj_ctype.c \ + lj_cdata.c lj_cconv.h lj_cconv.c lj_ccall.c lj_ccall.h lj_ccallback.c \ + lj_target.h lj_target_*.h lj_mcode.h lj_carith.c lj_carith.h lj_clib.c \ + lj_clib.h lj_cparse.c lj_cparse.h lj_lib.c lj_ir.c lj_ircall.h \ + lj_iropt.h lj_opt_mem.c lj_opt_fold.c lj_folddef.h lj_opt_narrow.c \ + lj_opt_dce.c lj_opt_loop.c lj_snap.h lj_opt_split.c lj_opt_sink.c \ + lj_mcode.c lj_snap.c lj_record.c lj_record.h lj_ffrecord.h lj_crecord.c \ lj_crecord.h lj_ffrecord.c lj_recdef.h lj_asm.c lj_asm.h lj_emit_*.h \ lj_asm_*.h lj_trace.c lj_gdbjit.h lj_gdbjit.c lj_alloc.c lib_aux.c \ lib_base.c lj_libdef.h lib_math.c lib_string.c lib_table.c lib_io.c \ @@ -220,7 +237,8 @@ host/buildvm_asm.o: host/buildvm_asm.c host/buildvm.h lj_def.h lua.h luaconf.h \ host/buildvm_fold.o: host/buildvm_fold.c host/buildvm.h lj_def.h lua.h \ luaconf.h lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_ir.h lj_obj.h host/buildvm_lib.o: host/buildvm_lib.c host/buildvm.h lj_def.h lua.h luaconf.h \ - lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_lib.h lj_obj.h + lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_bc.h lj_lib.h lj_obj.h \ + host/buildvm_libbc.h host/buildvm_peobj.o: host/buildvm_peobj.c host/buildvm.h lj_def.h lua.h \ luaconf.h lj_arch.h lj_bc.h lj_def.h lj_arch.h host/minilua.o: host/minilua.c diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.c b/src/3rd party/luajit-2.0/src/host/buildvm.c index 07122a645f1..c3e7dad2594 100644 --- a/src/3rd party/luajit-2.0/src/host/buildvm.c +++ b/src/3rd party/luajit-2.0/src/host/buildvm.c @@ -59,10 +59,10 @@ static int collect_reloc(BuildCtx *ctx, uint8_t *addr, int idx, int type); #include "../dynasm/dasm_x86.h" #elif LJ_TARGET_ARM #include "../dynasm/dasm_arm.h" +#elif LJ_TARGET_ARM64 +#include "../dynasm/dasm_arm64.h" #elif LJ_TARGET_PPC #include "../dynasm/dasm_ppc.h" -#elif LJ_TARGET_PPCSPE -#include "../dynasm/dasm_ppc.h" #elif LJ_TARGET_MIPS #include "../dynasm/dasm_mips.h" #else @@ -113,7 +113,7 @@ static const char *sym_decorate(BuildCtx *ctx, name[0] = '@'; else *p = '\0'; -#elif (LJ_TARGET_PPC || LJ_TARGET_PPCSPE) && !LJ_TARGET_CONSOLE +#elif LJ_TARGET_PPC && !LJ_TARGET_CONSOLE /* Keep @plt. */ #else *p = '\0'; @@ -179,6 +179,7 @@ static int build_code(BuildCtx *ctx) ctx->nreloc = 0; ctx->globnames = globnames; + ctx->extnames = extnames; ctx->relocsym = (const char **)malloc(NRELOCSYM*sizeof(const char *)); ctx->nrelocsym = 0; for (i = 0; i < (int)NRELOCSYM; i++) relocmap[i] = -1; @@ -320,20 +321,20 @@ static void emit_vmdef(BuildCtx *ctx) char buf[80]; int i; fprintf(ctx->fp, "-- This is a generated file. DO NOT EDIT!\n\n"); - fprintf(ctx->fp, "module(...)\n\n"); + fprintf(ctx->fp, "return {\n\n"); fprintf(ctx->fp, "bcnames = \""); for (i = 0; bc_names[i]; i++) fprintf(ctx->fp, "%-6s", bc_names[i]); - fprintf(ctx->fp, "\"\n\n"); + fprintf(ctx->fp, "\",\n\n"); fprintf(ctx->fp, "irnames = \""); for (i = 0; ir_names[i]; i++) fprintf(ctx->fp, "%-6s", ir_names[i]); - fprintf(ctx->fp, "\"\n\n"); + fprintf(ctx->fp, "\",\n\n"); fprintf(ctx->fp, "irfpm = { [0]="); for (i = 0; irfpm_names[i]; i++) fprintf(ctx->fp, "\"%s\", ", lower(buf, irfpm_names[i])); - fprintf(ctx->fp, "}\n\n"); + fprintf(ctx->fp, "},\n\n"); fprintf(ctx->fp, "irfield = { [0]="); for (i = 0; irfield_names[i]; i++) { @@ -343,17 +344,17 @@ static void emit_vmdef(BuildCtx *ctx) if (p) *p = '.'; fprintf(ctx->fp, "\"%s\", ", buf); } - fprintf(ctx->fp, "}\n\n"); + fprintf(ctx->fp, "},\n\n"); fprintf(ctx->fp, "ircall = {\n[0]="); for (i = 0; ircall_names[i]; i++) fprintf(ctx->fp, "\"%s\",\n", ircall_names[i]); - fprintf(ctx->fp, "}\n\n"); + fprintf(ctx->fp, "},\n\n"); fprintf(ctx->fp, "traceerr = {\n[0]="); for (i = 0; trace_errors[i]; i++) fprintf(ctx->fp, "\"%s\",\n", trace_errors[i]); - fprintf(ctx->fp, "}\n\n"); + fprintf(ctx->fp, "},\n\n"); } /* -- Argument parsing ---------------------------------------------------- */ @@ -490,6 +491,7 @@ int main(int argc, char **argv) case BUILD_vmdef: emit_vmdef(ctx); emit_lib(ctx); + fprintf(ctx->fp, "}\n\n"); break; case BUILD_ffdef: case BUILD_libdef: diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.h b/src/3rd party/luajit-2.0/src/host/buildvm.h index b26218502e3..5588555307e 100644 --- a/src/3rd party/luajit-2.0/src/host/buildvm.h +++ b/src/3rd party/luajit-2.0/src/host/buildvm.h @@ -82,6 +82,7 @@ typedef struct BuildCtx { const char *beginsym; /* Strings generated by DynASM. */ const char *const *globnames; + const char *const *extnames; const char *dasm_ident; const char *dasm_arch; /* Relocations. */ diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_asm.c b/src/3rd party/luajit-2.0/src/host/buildvm_asm.c index 2c9a2d482e6..fe1b589a983 100644 --- a/src/3rd party/luajit-2.0/src/host/buildvm_asm.c +++ b/src/3rd party/luajit-2.0/src/host/buildvm_asm.c @@ -51,8 +51,8 @@ static const char *const jccnames[] = { "js", "jns", "jpe", "jpo", "jl", "jge", "jle", "jg" }; -/* Emit relocation for the incredibly stupid OSX assembler. */ -static void emit_asm_reloc_mach(BuildCtx *ctx, uint8_t *cp, int n, +/* Emit x86/x64 text relocations. */ +static void emit_asm_reloc_text(BuildCtx *ctx, uint8_t *cp, int n, const char *sym) { const char *opname = NULL; @@ -71,6 +71,20 @@ static void emit_asm_reloc_mach(BuildCtx *ctx, uint8_t *cp, int n, exit(1); } emit_asm_bytes(ctx, cp, n); + if (strncmp(sym+(*sym == '_'), LABEL_PREFIX, sizeof(LABEL_PREFIX)-1)) { + /* Various fixups for external symbols outside of our binary. */ + if (ctx->mode == BUILD_elfasm) { + if (LJ_32) + fprintf(ctx->fp, "#if __PIC__\n\t%s lj_wrap_%s\n#else\n", opname, sym); + fprintf(ctx->fp, "\t%s %s@PLT\n", opname, sym); + if (LJ_32) + fprintf(ctx->fp, "#endif\n"); + return; + } else if (LJ_32 && ctx->mode == BUILD_machasm) { + fprintf(ctx->fp, "\t%s L%s$stub\n", opname, sym); + return; + } + } fprintf(ctx->fp, "\t%s %s\n", opname, sym); } #else @@ -107,7 +121,16 @@ static void emit_asm_wordreloc(BuildCtx *ctx, uint8_t *p, int n, ins, sym); exit(1); } -#elif LJ_TARGET_PPC || LJ_TARGET_PPCSPE +#elif LJ_TARGET_ARM64 + if ((ins >> 26) == 0x25u) { + fprintf(ctx->fp, "\tbl %s\n", sym); + } else { + fprintf(stderr, + "Error: unsupported opcode %08x for %s symbol relocation.\n", + ins, sym); + exit(1); + } +#elif LJ_TARGET_PPC #if LJ_TARGET_PS3 #define TOCPREFIX "." #else @@ -254,8 +277,9 @@ void emit_asm(BuildCtx *ctx) BuildReloc *r = &ctx->reloc[rel]; int n = r->ofs - ofs; #if LJ_TARGET_X86ORX64 - if (ctx->mode == BUILD_machasm && r->type != 0) { - emit_asm_reloc_mach(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); + if (r->type != 0 && + (ctx->mode == BUILD_elfasm || ctx->mode == BUILD_machasm)) { + emit_asm_reloc_text(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); } else { emit_asm_bytes(ctx, ctx->code+ofs, n); emit_asm_reloc(ctx, r->type, ctx->relocsym[r->sym]); @@ -289,10 +313,7 @@ void emit_asm(BuildCtx *ctx) #if !(LJ_TARGET_PS3 || LJ_TARGET_PSVITA) fprintf(ctx->fp, "\t.section .note.GNU-stack,\"\"," ELFASM_PX "progbits\n"); #endif -#if LJ_TARGET_PPCSPE - /* Soft-float ABI + SPE. */ - fprintf(ctx->fp, "\t.gnu_attribute 4, 2\n\t.gnu_attribute 8, 3\n"); -#elif LJ_TARGET_PPC && !LJ_TARGET_PS3 +#if LJ_TARGET_PPC && !LJ_TARGET_PS3 /* Hard-float ABI. */ fprintf(ctx->fp, "\t.gnu_attribute 4, 1\n"); #endif diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_lib.c b/src/3rd party/luajit-2.0/src/host/buildvm_lib.c index c37301d462c..e928673d4e0 100644 --- a/src/3rd party/luajit-2.0/src/host/buildvm_lib.c +++ b/src/3rd party/luajit-2.0/src/host/buildvm_lib.c @@ -5,7 +5,9 @@ #include "buildvm.h" #include "lj_obj.h" +#include "lj_bc.h" #include "lj_lib.h" +#include "buildvm_libbc.h" /* Context for library definitions. */ static uint8_t obuf[8192]; @@ -151,6 +153,62 @@ static void libdef_func(BuildCtx *ctx, char *p, int arg) regfunc = REGFUNC_OK; } +static uint8_t *libdef_uleb128(uint8_t *p, uint32_t *vv) +{ + uint32_t v = *p++; + if (v >= 0x80) { + int sh = 0; v &= 0x7f; + do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); + } + *vv = v; + return p; +} + +static void libdef_fixupbc(uint8_t *p) +{ + uint32_t i, sizebc; + p += 4; + p = libdef_uleb128(p, &sizebc); + p = libdef_uleb128(p, &sizebc); + p = libdef_uleb128(p, &sizebc); + for (i = 0; i < sizebc; i++, p += 4) { + uint8_t op = p[libbc_endian ? 3 : 0]; + uint8_t ra = p[libbc_endian ? 2 : 1]; + uint8_t rc = p[libbc_endian ? 1 : 2]; + uint8_t rb = p[libbc_endian ? 0 : 3]; + if (!LJ_DUALNUM && op == BC_ISTYPE && rc == ~LJ_TNUMX+1) { + op = BC_ISNUM; rc++; + } + p[LJ_ENDIAN_SELECT(0, 3)] = op; + p[LJ_ENDIAN_SELECT(1, 2)] = ra; + p[LJ_ENDIAN_SELECT(2, 1)] = rc; + p[LJ_ENDIAN_SELECT(3, 0)] = rb; + } +} + +static void libdef_lua(BuildCtx *ctx, char *p, int arg) +{ + UNUSED(arg); + if (ctx->mode == BUILD_libdef) { + int i; + for (i = 0; libbc_map[i].name != NULL; i++) { + if (!strcmp(libbc_map[i].name, p)) { + int ofs = libbc_map[i].ofs; + int len = libbc_map[i+1].ofs - ofs; + obuf[2]++; /* Bump hash table size. */ + *optr++ = LIBINIT_LUA; + libdef_name(p, 0); + memcpy(optr, libbc_code + ofs, len); + libdef_fixupbc(optr); + optr += len; + return; + } + } + fprintf(stderr, "Error: missing libbc definition for %s\n", p); + exit(1); + } +} + static uint32_t find_rec(char *name) { char *p = (char *)obuf; @@ -277,6 +335,7 @@ static const LibDefHandler libdef_handlers[] = { { "CF(", ")", libdef_func, LIBINIT_CF }, { "ASM(", ")", libdef_func, LIBINIT_ASM }, { "ASM_(", ")", libdef_func, LIBINIT_ASM_ }, + { "LUA(", ")", libdef_lua, 0 }, { "REC(", ")", libdef_rec, 0 }, { "PUSH(", ")", libdef_push, 0 }, { "SET(", ")", libdef_set, 0 }, @@ -373,7 +432,7 @@ void emit_lib(BuildCtx *ctx) "#ifndef FF_NUM_ASMFUNC\n#define FF_NUM_ASMFUNC %d\n#endif\n\n", ffasmfunc); } else if (ctx->mode == BUILD_vmdef) { - fprintf(ctx->fp, "}\n\n"); + fprintf(ctx->fp, "},\n\n"); } else if (ctx->mode == BUILD_bcdef) { int i; fprintf(ctx->fp, "\n};\n\n"); diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_libbc.h b/src/3rd party/luajit-2.0/src/host/buildvm_libbc.h new file mode 100644 index 00000000000..45f8f8cbdf2 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/buildvm_libbc.h @@ -0,0 +1,45 @@ +/* This is a generated file. DO NOT EDIT! */ + +static const int libbc_endian = 0; + +static const uint8_t libbc_code[] = { +#if LJ_FR2 +0,1,2,0,0,1,2,24,1,0,0,76,1,2,0,241,135,158,166,3,220,203,178,130,4,0,1,2,0, +0,1,2,24,1,0,0,76,1,2,0,243,244,148,165,20,198,190,199,252,3,0,1,2,0,0,0,3, +16,0,5,0,21,1,0,0,76,1,2,0,0,2,10,0,0,0,15,16,0,12,0,16,1,9,0,41,2,1,0,21,3, +0,0,41,4,1,0,77,2,8,128,18,6,1,0,18,8,5,0,59,9,5,0,66,6,3,2,10,6,0,0,88,7,1, +128,76,6,2,0,79,2,248,127,75,0,1,0,0,2,11,0,0,0,16,16,0,12,0,16,1,9,0,43,2, +0,0,18,3,0,0,41,4,0,0,88,5,7,128,18,7,1,0,18,9,5,0,18,10,6,0,66,7,3,2,10,7, +0,0,88,8,1,128,76,7,2,0,70,5,3,3,82,5,247,127,75,0,1,0,0,1,2,0,0,0,3,16,0,12, +0,21,1,0,0,76,1,2,0,0,2,10,0,0,2,30,16,0,12,0,21,2,0,0,11,1,0,0,88,3,7,128, +8,2,0,0,88,3,23,128,59,3,2,0,43,4,0,0,64,4,2,0,76,3,2,0,88,3,18,128,16,1,14, +0,41,3,1,0,3,3,1,0,88,3,14,128,3,1,2,0,88,3,12,128,59,3,1,0,22,4,1,1,18,5,2, +0,41,6,1,0,77,4,4,128,23,8,1,7,59,9,7,0,64,9,8,0,79,4,252,127,43,4,0,0,64,4, +2,0,76,3,2,0,75,0,1,0,0,2,0 +#else +0,1,2,0,0,1,2,24,1,0,0,76,1,2,0,241,135,158,166,3,220,203,178,130,4,0,1,2,0, +0,1,2,24,1,0,0,76,1,2,0,243,244,148,165,20,198,190,199,252,3,0,1,2,0,0,0,3, +16,0,5,0,21,1,0,0,76,1,2,0,0,2,9,0,0,0,15,16,0,12,0,16,1,9,0,41,2,1,0,21,3, +0,0,41,4,1,0,77,2,8,128,18,6,1,0,18,7,5,0,59,8,5,0,66,6,3,2,10,6,0,0,88,7,1, +128,76,6,2,0,79,2,248,127,75,0,1,0,0,2,10,0,0,0,16,16,0,12,0,16,1,9,0,43,2, +0,0,18,3,0,0,41,4,0,0,88,5,7,128,18,7,1,0,18,8,5,0,18,9,6,0,66,7,3,2,10,7,0, +0,88,8,1,128,76,7,2,0,70,5,3,3,82,5,247,127,75,0,1,0,0,1,2,0,0,0,3,16,0,12, +0,21,1,0,0,76,1,2,0,0,2,10,0,0,2,30,16,0,12,0,21,2,0,0,11,1,0,0,88,3,7,128, +8,2,0,0,88,3,23,128,59,3,2,0,43,4,0,0,64,4,2,0,76,3,2,0,88,3,18,128,16,1,14, +0,41,3,1,0,3,3,1,0,88,3,14,128,3,1,2,0,88,3,12,128,59,3,1,0,22,4,1,1,18,5,2, +0,41,6,1,0,77,4,4,128,23,8,1,7,59,9,7,0,64,9,8,0,79,4,252,127,43,4,0,0,64,4, +2,0,76,3,2,0,75,0,1,0,0,2,0 +#endif +}; + +static const struct { const char *name; int ofs; } libbc_map[] = { +{"math_deg",0}, +{"math_rad",25}, +{"string_len",50}, +{"table_foreachi",69}, +{"table_foreach",136}, +{"table_getn",207}, +{"table_remove",226}, +{NULL,355} +}; + diff --git a/src/3rd party/luajit-2.0/src/host/genlibbc.lua b/src/3rd party/luajit-2.0/src/host/genlibbc.lua new file mode 100644 index 00000000000..4398d8e74d9 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/host/genlibbc.lua @@ -0,0 +1,197 @@ +---------------------------------------------------------------------------- +-- Lua script to dump the bytecode of the library functions written in Lua. +-- The resulting 'buildvm_libbc.h' is used for the build process of LuaJIT. +---------------------------------------------------------------------------- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- + +local ffi = require("ffi") +local bit = require("bit") +local vmdef = require("jit.vmdef") +local bcnames = vmdef.bcnames + +local format = string.format + +local isbe = (string.byte(string.dump(function() end), 5) % 2 == 1) + +local function usage(arg) + io.stderr:write("Usage: ", arg and arg[0] or "genlibbc", + " [-o buildvm_libbc.h] lib_*.c\n") + os.exit(1) +end + +local function parse_arg(arg) + local outfile = "-" + if not (arg and arg[1]) then + usage(arg) + end + if arg[1] == "-o" then + outfile = arg[2] + if not outfile then usage(arg) end + table.remove(arg, 1) + table.remove(arg, 1) + end + return outfile +end + +local function read_files(names) + local src = "" + for _,name in ipairs(names) do + local fp = assert(io.open(name)) + src = src .. fp:read("*a") + fp:close() + end + return src +end + +local function transform_lua(code) + local fixup = {} + local n = -30000 + code = string.gsub(code, "CHECK_(%w*)%((.-)%)", function(tp, var) + n = n + 1 + fixup[n] = { "CHECK", tp } + return format("%s=%d", var, n) + end) + code = string.gsub(code, "PAIRS%((.-)%)", function(var) + fixup.PAIRS = true + return format("nil, %s, 0", var) + end) + return "return "..code, fixup +end + +local function read_uleb128(p) + local v = p[0]; p = p + 1 + if v >= 128 then + local sh = 7; v = v - 128 + repeat + local r = p[0] + v = v + bit.lshift(bit.band(r, 127), sh) + sh = sh + 7 + p = p + 1 + until r < 128 + end + return p, v +end + +-- ORDER LJ_T +local name2itype = { + str = 5, func = 9, tab = 12, int = 14, num = 15 +} + +local BC = {} +for i=0,#bcnames/6-1 do + BC[string.gsub(string.sub(bcnames, i*6+1, i*6+6), " ", "")] = i +end +local xop, xra = isbe and 3 or 0, isbe and 2 or 1 +local xrc, xrb = isbe and 1 or 2, isbe and 0 or 3 + +local function fixup_dump(dump, fixup) + local buf = ffi.new("uint8_t[?]", #dump+1, dump) + local p = buf+5 + local n, sizebc + p, n = read_uleb128(p) + local start = p + p = p + 4 + p = read_uleb128(p) + p = read_uleb128(p) + p, sizebc = read_uleb128(p) + local rawtab = {} + for i=0,sizebc-1 do + local op = p[xop] + if op == BC.KSHORT then + local rd = p[xrc] + 256*p[xrb] + rd = bit.arshift(bit.lshift(rd, 16), 16) + local f = fixup[rd] + if f then + if f[1] == "CHECK" then + local tp = f[2] + if tp == "tab" then rawtab[p[xra]] = true end + p[xop] = tp == "num" and BC.ISNUM or BC.ISTYPE + p[xrb] = 0 + p[xrc] = name2itype[tp] + else + error("unhandled fixup type: "..f[1]) + end + end + elseif op == BC.TGETV then + if rawtab[p[xrb]] then + p[xop] = BC.TGETR + end + elseif op == BC.TSETV then + if rawtab[p[xrb]] then + p[xop] = BC.TSETR + end + elseif op == BC.ITERC then + if fixup.PAIRS then + p[xop] = BC.ITERN + end + end + p = p + 4 + end + return ffi.string(start, n) +end + +local function find_defs(src) + local defs = {} + for name, code in string.gmatch(src, "LJLIB_LUA%(([^)]*)%)%s*/%*(.-)%*/") do + local env = {} + local tcode, fixup = transform_lua(code) + local func = assert(load(tcode, "", nil, env))() + defs[name] = fixup_dump(string.dump(func, true), fixup) + defs[#defs+1] = name + end + return defs +end + +local function gen_header(defs) + local t = {} + local function w(x) t[#t+1] = x end + w("/* This is a generated file. DO NOT EDIT! */\n\n") + w("static const int libbc_endian = ") w(isbe and 1 or 0) w(";\n\n") + local s = "" + for _,name in ipairs(defs) do + s = s .. defs[name] + end + w("static const uint8_t libbc_code[] = {\n") + local n = 0 + for i=1,#s do + local x = string.byte(s, i) + w(x); w(",") + n = n + (x < 10 and 2 or (x < 100 and 3 or 4)) + if n >= 75 then n = 0; w("\n") end + end + w("0\n};\n\n") + w("static const struct { const char *name; int ofs; } libbc_map[] = {\n") + local m = 0 + for _,name in ipairs(defs) do + w('{"'); w(name); w('",'); w(m) w('},\n') + m = m + #defs[name] + end + w("{NULL,"); w(m); w("}\n};\n\n") + return table.concat(t) +end + +local function write_file(name, data) + if name == "-" then + assert(io.write(data)) + assert(io.flush()) + else + local fp = io.open(name) + if fp then + local old = fp:read("*a") + fp:close() + if data == old then return end + end + fp = assert(io.open(name, "w")) + assert(fp:write(data)) + assert(fp:close()) + end +end + +local outfile = parse_arg(arg) +local src = read_files(arg) +local defs = find_defs(src) +local hdr = gen_header(defs) +write_file(outfile, hdr) + diff --git a/src/3rd party/luajit-2.0/src/jit/bc.lua b/src/3rd party/luajit-2.0/src/jit/bc.lua index a179d50eab3..320039ff353 100644 --- a/src/3rd party/luajit-2.0/src/jit/bc.lua +++ b/src/3rd party/luajit-2.0/src/jit/bc.lua @@ -41,7 +41,7 @@ -- Cache some library functions and objects. local jit = require("jit") -assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") local jutil = require("jit.util") local vmdef = require("jit.vmdef") local bit = require("bit") @@ -179,13 +179,12 @@ local function bcliston(outfile) end -- Public module functions. -module(...) - -line = bcline -dump = bcdump -targets = bctargets - -on = bcliston -off = bclistoff -start = bcliston -- For -j command line option. +return { + line = bcline, + dump = bcdump, + targets = bctargets, + on = bcliston, + off = bclistoff, + start = bcliston -- For -j command line option. +} diff --git a/src/3rd party/luajit-2.0/src/jit/bcsave.lua b/src/3rd party/luajit-2.0/src/jit/bcsave.lua index 2ba234d04d7..ef5a1aa9422 100644 --- a/src/3rd party/luajit-2.0/src/jit/bcsave.lua +++ b/src/3rd party/luajit-2.0/src/jit/bcsave.lua @@ -11,7 +11,7 @@ ------------------------------------------------------------------------------ local jit = require("jit") -assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") local bit = require("bit") -- Symbol name prefix for LuaJIT bytecode. @@ -63,7 +63,7 @@ local map_type = { } local map_arch = { - x86 = true, x64 = true, arm = true, ppc = true, ppcspe = true, + x86 = true, x64 = true, arm = true, ppc = true, mips = true, mipsel = true, } @@ -202,7 +202,7 @@ typedef struct { local is64, isbe = false, false if ctx.arch == "x64" then is64 = true - elseif ctx.arch == "ppc" or ctx.arch == "ppcspe" or ctx.arch == "mips" then + elseif ctx.arch == "ppc" or ctx.arch == "mips" then isbe = true end @@ -237,7 +237,7 @@ typedef struct { hdr.eendian = isbe and 2 or 1 hdr.eversion = 1 hdr.type = f16(1) - hdr.machine = f16(({ x86=3, x64=62, arm=40, ppc=20, ppcspe=20, mips=8, mipsel=8 })[ctx.arch]) + hdr.machine = f16(({ x86=3, x64=62, arm=40, ppc=20, mips=8, mipsel=8 })[ctx.arch]) if ctx.arch == "mips" or ctx.arch == "mipsel" then hdr.flags = 0x50001006 end @@ -653,7 +653,7 @@ end ------------------------------------------------------------------------------ -- Public module functions. -module(...) - -start = docmd -- Process -b command line option. +return { + start = docmd -- Process -b command line option. +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_arm.lua b/src/3rd party/luajit-2.0/src/jit/dis_arm.lua index 59be715a988..dfcbeeecf14 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_arm.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_arm.lua @@ -658,7 +658,7 @@ local function disass_block(ctx, ofs, len) end -- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create_(code, addr, out) +local function create(code, addr, out) local ctx = {} ctx.code = code ctx.addr = addr or 0 @@ -670,20 +670,20 @@ local function create_(code, addr, out) end -- Simple API: disassemble code (a string) at address and output via out. -local function disass_(code, addr, out) - create_(code, addr, out):disass() +local function disass(code, addr, out) + create(code, addr, out):disass() end -- Return register name for RID. -local function regname_(r) +local function regname(r) if r < 16 then return map_gpr[r] end return "d"..(r-16) end -- Public module functions. -module(...) - -create = create_ -disass = disass_ -regname = regname_ +return { + create = create, + disass = disass, + regname = regname +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mips.lua b/src/3rd party/luajit-2.0/src/jit/dis_mips.lua index acdd2be1663..9466f45c2c2 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_mips.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_mips.lua @@ -384,7 +384,7 @@ local function disass_block(ctx, ofs, len) end -- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create_(code, addr, out) +local function create(code, addr, out) local ctx = {} ctx.code = code ctx.addr = addr or 0 @@ -396,33 +396,33 @@ local function create_(code, addr, out) return ctx end -local function create_el_(code, addr, out) - local ctx = create_(code, addr, out) +local function create_el(code, addr, out) + local ctx = create(code, addr, out) ctx.get = get_le return ctx end -- Simple API: disassemble code (a string) at address and output via out. -local function disass_(code, addr, out) - create_(code, addr, out):disass() +local function disass(code, addr, out) + create(code, addr, out):disass() end -local function disass_el_(code, addr, out) - create_el_(code, addr, out):disass() +local function disass_el(code, addr, out) + create_el(code, addr, out):disass() end -- Return register name for RID. -local function regname_(r) +local function regname(r) if r < 32 then return map_gpr[r] end return "f"..(r-32) end -- Public module functions. -module(...) - -create = create_ -create_el = create_el_ -disass = disass_ -disass_el = disass_el_ -regname = regname_ +return { + create = create, + create_el = create_el, + disass = disass, + disass_el = disass_el, + regname = regname +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua b/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua index dd9d26ae607..f06ffe855e3 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua @@ -8,13 +8,10 @@ -- MIPS disassembler module. All the interesting stuff is there. ------------------------------------------------------------------------------ -local require = require - -module(...) - -local dis_mips = require(_PACKAGE.."dis_mips") - -create = dis_mips.create_el -disass = dis_mips.disass_el -regname = dis_mips.regname +local dis_mips = require((string.match(..., ".*%.") or "").."dis_mips") +return { + create = dis_mips.create_el, + disass = dis_mips.disass_el, + regname = dis_mips.regname +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua b/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua index d05c431116a..e077d7acdd9 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua @@ -560,7 +560,7 @@ local function disass_block(ctx, ofs, len) end -- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create_(code, addr, out) +local function create(code, addr, out) local ctx = {} ctx.code = code ctx.addr = addr or 0 @@ -572,20 +572,20 @@ local function create_(code, addr, out) end -- Simple API: disassemble code (a string) at address and output via out. -local function disass_(code, addr, out) - create_(code, addr, out):disass() +local function disass(code, addr, out) + create(code, addr, out):disass() end -- Return register name for RID. -local function regname_(r) +local function regname(r) if r < 32 then return map_gpr[r] end return "f"..(r-32) end -- Public module functions. -module(...) - -create = create_ -disass = disass_ -regname = regname_ +return { + create = create, + disass = disass, + regname = regname +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x64.lua b/src/3rd party/luajit-2.0/src/jit/dis_x64.lua index a80981bd5cb..15d55243a85 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_x64.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_x64.lua @@ -8,13 +8,10 @@ -- x86/x64 disassembler module. All the interesting stuff is there. ------------------------------------------------------------------------------ -local require = require - -module(...) - -local dis_x86 = require(_PACKAGE.."dis_x86") - -create = dis_x86.create64 -disass = dis_x86.disass64 -regname = dis_x86.regname64 +local dis_x86 = require((string.match(..., ".*%.") or "").."dis_x86") +return { + create = dis_x86.create64, + disass = dis_x86.disass64, + regname = dis_x86.regname64 +} diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x86.lua b/src/3rd party/luajit-2.0/src/jit/dis_x86.lua index 078d6094dcb..6bc38066fe3 100644 --- a/src/3rd party/luajit-2.0/src/jit/dis_x86.lua +++ b/src/3rd party/luajit-2.0/src/jit/dis_x86.lua @@ -28,6 +28,8 @@ local type = type local sub, byte, format = string.sub, string.byte, string.format local match, gmatch, gsub = string.match, string.gmatch, string.gsub local lower, rep = string.lower, string.rep +local bit = require("bit") +local tohex = bit.tohex -- Map for 1st opcode byte in 32 bit mode. Ugly? Well ... read on. local map_opc1_32 = { @@ -532,7 +534,7 @@ local function putpat(ctx, name, pat) local lo = imm % 0x1000000 x = format("0x%02x%06x", (imm-lo) / 0x1000000, lo) else - x = format("0x%08x", imm) + x = "0x"..tohex(imm) end elseif p == "R" then local r = byte(code, pos-1, pos-1)%8 @@ -782,7 +784,7 @@ local function disass_block(ctx, ofs, len) end -- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create_(code, addr, out) +local function create(code, addr, out) local ctx = {} ctx.code = code ctx.addr = (addr or 0) - 1 @@ -796,8 +798,8 @@ local function create_(code, addr, out) return ctx end -local function create64_(code, addr, out) - local ctx = create_(code, addr, out) +local function create64(code, addr, out) + local ctx = create(code, addr, out) ctx.x64 = true ctx.map1 = map_opc1_64 ctx.aregs = map_regs.Q @@ -805,32 +807,32 @@ local function create64_(code, addr, out) end -- Simple API: disassemble code (a string) at address and output via out. -local function disass_(code, addr, out) - create_(code, addr, out):disass() +local function disass(code, addr, out) + create(code, addr, out):disass() end -local function disass64_(code, addr, out) - create64_(code, addr, out):disass() +local function disass64(code, addr, out) + create64(code, addr, out):disass() end -- Return register name for RID. -local function regname_(r) +local function regname(r) if r < 8 then return map_regs.D[r+1] end return map_regs.X[r-7] end -local function regname64_(r) +local function regname64(r) if r < 16 then return map_regs.Q[r+1] end return map_regs.X[r-15] end -- Public module functions. -module(...) - -create = create_ -create64 = create64_ -disass = disass_ -disass64 = disass64_ -regname = regname_ -regname64 = regname64_ +return { + create = create, + create64 = create64, + disass = disass, + disass64 = disass64, + regname = regname, + regname64 = regname64 +} diff --git a/src/3rd party/luajit-2.0/src/jit/dump.lua b/src/3rd party/luajit-2.0/src/jit/dump.lua index 589543f1fdd..5f858492bc4 100644 --- a/src/3rd party/luajit-2.0/src/jit/dump.lua +++ b/src/3rd party/luajit-2.0/src/jit/dump.lua @@ -55,7 +55,7 @@ -- Cache some library functions and objects. local jit = require("jit") -assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") local jutil = require("jit.util") local vmdef = require("jit.vmdef") local funcinfo, funcbc = jutil.funcinfo, jutil.funcbc @@ -63,7 +63,7 @@ local traceinfo, traceir, tracek = jutil.traceinfo, jutil.traceir, jutil.tracek local tracemc, tracesnap = jutil.tracemc, jutil.tracesnap local traceexitstub, ircalladdr = jutil.traceexitstub, jutil.ircalladdr local bit = require("bit") -local band, shl, shr = bit.band, bit.lshift, bit.rshift +local band, shl, shr, tohex = bit.band, bit.lshift, bit.rshift, bit.tohex local sub, gsub, format = string.sub, string.gsub, string.format local byte, char, rep = string.byte, string.char, string.rep local type, tostring = type, tostring @@ -91,6 +91,7 @@ local function fillsymtab_tr(tr, nexit) end for i=0,nexit-1 do local addr = traceexitstub(tr, i) + if addr < 0 then addr = addr + 2^32 end t[addr] = tostring(i) end local addr = traceexitstub(tr, nexit) @@ -104,7 +105,10 @@ local function fillsymtab(tr, nexit) local ircall = vmdef.ircall for i=0,#ircall do local addr = ircalladdr(i) - if addr ~= 0 then t[addr] = ircall[i] end + if addr ~= 0 then + if addr < 0 then addr = addr + 2^32 end + t[addr] = ircall[i] + end end end if nexitsym == 1000000 then -- Per-trace exit stubs. @@ -118,6 +122,7 @@ local function fillsymtab(tr, nexit) nexit = 1000000 break end + if addr < 0 then addr = addr + 2^32 end t[addr] = tostring(i) end nexitsym = nexit @@ -136,6 +141,7 @@ local function dump_mcode(tr) local mcode, addr, loop = tracemc(tr) if not mcode then return end if not disass then disass = require("jit.dis_"..jit.arch) end + if addr < 0 then addr = addr + 2^32 end out:write("---- TRACE ", tr, " mcode ", #mcode, "\n") local ctx = disass.create(mcode, addr, dumpwrite) ctx.hexdump = 0 @@ -270,8 +276,7 @@ local litname = { ["CONV "] = setmetatable({}, { __index = function(t, mode) local s = irtype[band(mode, 31)] s = irtype[band(shr(mode, 5), 31)].."."..s - if band(mode, 0x400) ~= 0 then s = s.." trunc" - elseif band(mode, 0x800) ~= 0 then s = s.." sext" end + if band(mode, 0x800) ~= 0 then s = s.." sext" end local c = shr(mode, 14) if c == 2 then s = s.." index" elseif c == 3 then s = s.." check" end t[mode] = s @@ -280,6 +285,8 @@ local litname = { ["FLOAD "] = vmdef.irfield, ["FREF "] = vmdef.irfield, ["FPMATH"] = vmdef.irfpm, + ["BUFHDR"] = { [0] = "RESET", "APPEND" }, + ["TOSTR "] = { [0] = "INT", "NUM", "CHAR" }, } local function ctlsub(c) @@ -607,7 +614,7 @@ local function dump_texit(tr, ex, ngpr, nfpr, ...) end else for i=1,ngpr do - out:write(format(" %08x", regs[i])) + out:write(" ", tohex(regs[i])) if i % 8 == 0 then out:write("\n") end end end @@ -691,9 +698,9 @@ local function dumpon(opt, outfile) end -- Public module functions. -module(...) - -on = dumpon -off = dumpoff -start = dumpon -- For -j command line option. +return { + on = dumpon, + off = dumpoff, + start = dumpon -- For -j command line option. +} diff --git a/src/3rd party/luajit-2.0/src/jit/p.lua b/src/3rd party/luajit-2.0/src/jit/p.lua new file mode 100644 index 00000000000..97d4ccdf87c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/p.lua @@ -0,0 +1,310 @@ +---------------------------------------------------------------------------- +-- LuaJIT profiler. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- +-- This module is a simple command line interface to the built-in +-- low-overhead profiler of LuaJIT. +-- +-- The lower-level API of the profiler is accessible via the "jit.profile" +-- module or the luaJIT_profile_* C API. +-- +-- Example usage: +-- +-- luajit -jp myapp.lua +-- luajit -jp=s myapp.lua +-- luajit -jp=-s myapp.lua +-- luajit -jp=vl myapp.lua +-- luajit -jp=G,profile.txt myapp.lua +-- +-- The following dump features are available: +-- +-- f Stack dump: function name, otherwise module:line. Default mode. +-- F Stack dump: ditto, but always prepend module. +-- l Stack dump: module:line. +-- stack dump depth (callee < caller). Default: 1. +-- - Inverse stack dump depth (caller > callee). +-- s Split stack dump after first stack level. Implies abs(depth) >= 2. +-- p Show full path for module names. +-- v Show VM states. Can be combined with stack dumps, e.g. vf or fv. +-- z Show zones. Can be combined with stack dumps, e.g. zf or fz. +-- r Show raw sample counts. Default: show percentages. +-- a Annotate excerpts from source code files. +-- A Annotate complete source code files. +-- G Produce raw output suitable for graphical tools (e.g. flame graphs). +-- m Minimum sample percentage to be shown. Default: 3. +-- i Sampling interval in milliseconds. Default: 10. +-- +---------------------------------------------------------------------------- + +-- Cache some library functions and objects. +local jit = require("jit") +assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") +local profile = require("jit.profile") +local vmdef = require("jit.vmdef") +local math = math +local pairs, ipairs, tonumber, floor = pairs, ipairs, tonumber, math.floor +local sort, format = table.sort, string.format +local stdout = io.stdout +local zone -- Load jit.zone module on demand. + +-- Output file handle. +local out + +------------------------------------------------------------------------------ + +local prof_ud +local prof_states, prof_split, prof_min, prof_raw, prof_fmt, prof_depth +local prof_ann, prof_count1, prof_count2, prof_samples + +local map_vmmode = { + N = "Compiled", + I = "Interpreted", + C = "C code", + G = "Garbage Collector", + J = "JIT Compiler", +} + +-- Profiler callback. +local function prof_cb(th, samples, vmmode) + prof_samples = prof_samples + samples + local key_stack, key_stack2, key_state + -- Collect keys for sample. + if prof_states then + if prof_states == "v" then + key_state = map_vmmode[vmmode] or vmmode + else + key_state = zone:get() or "(none)" + end + end + if prof_fmt then + key_stack = profile.dumpstack(th, prof_fmt, prof_depth) + key_stack = key_stack:gsub("%[builtin#(%d+)%]", function(x) + return vmdef.ffnames[tonumber(x)] + end) + if prof_split == 2 then + local k1, k2 = key_stack:match("(.-) [<>] (.*)") + if k2 then key_stack, key_stack2 = k1, k2 end + elseif prof_split == 3 then + key_stack2 = profile.dumpstack(th, "l", 1) + end + end + -- Order keys. + local k1, k2 + if prof_split == 1 then + if key_state then + k1 = key_state + if key_stack then k2 = key_stack end + end + elseif key_stack then + k1 = key_stack + if key_stack2 then k2 = key_stack2 elseif key_state then k2 = key_state end + end + -- Coalesce samples in one or two levels. + if k1 then + local t1 = prof_count1 + t1[k1] = (t1[k1] or 0) + samples + if k2 then + local t2 = prof_count2 + local t3 = t2[k1] + if not t3 then t3 = {}; t2[k1] = t3 end + t3[k2] = (t3[k2] or 0) + samples + end + end +end + +------------------------------------------------------------------------------ + +-- Show top N list. +local function prof_top(count1, count2, samples, indent) + local t, n = {}, 0 + for k, v in pairs(count1) do + n = n + 1 + t[n] = k + end + sort(t, function(a, b) return count1[a] > count1[b] end) + for i=1,n do + local k = t[i] + local v = count1[k] + local pct = floor(v*100/samples + 0.5) + if pct < prof_min then break end + if not prof_raw then + out:write(format("%s%2d%% %s\n", indent, pct, k)) + elseif prof_raw == "r" then + out:write(format("%s%5d %s\n", indent, v, k)) + else + out:write(format("%s %d\n", k, v)) + end + if count2 then + local r = count2[k] + if r then + prof_top(r, nil, v, (prof_split == 3 or prof_split == 1) and " -- " or + (prof_depth < 0 and " -> " or " <- ")) + end + end + end +end + +-- Annotate source code +local function prof_annotate(count1, samples) + local files = {} + local ms = 0 + for k, v in pairs(count1) do + local pct = floor(v*100/samples + 0.5) + ms = math.max(ms, v) + if pct >= prof_min then + local file, line = k:match("^(.*):(%d+)$") + local fl = files[file] + if not fl then fl = {}; files[file] = fl; files[#files+1] = file end + line = tonumber(line) + fl[line] = prof_raw and v or pct + end + end + sort(files) + local fmtv, fmtn = " %3d%% | %s\n", " | %s\n" + if prof_raw then + local n = math.max(5, math.ceil(math.log10(ms))) + fmtv = "%"..n.."d | %s\n" + fmtn = (" "):rep(n).." | %s\n" + end + local ann = prof_ann + for _, file in ipairs(files) do + local f0 = file:byte() + if f0 == 40 or f0 == 91 then + out:write(format("\n====== %s ======\n[Cannot annotate non-file]\n", file)) + break + end + local fp, err = io.open(file) + if not fp then + out:write(format("====== ERROR: %s: %s\n", file, err)) + break + end + out:write(format("\n====== %s ======\n", file)) + local fl = files[file] + local n, show = 1, false + if ann ~= 0 then + for i=1,ann do + if fl[i] then show = true; out:write("@@ 1 @@\n"); break end + end + end + for line in fp:lines() do + if line:byte() == 27 then + out:write("[Cannot annotate bytecode file]\n") + break + end + local v = fl[n] + if ann ~= 0 then + local v2 = fl[n+ann] + if show then + if v2 then show = n+ann elseif v then show = n + elseif show+ann < n then show = false end + elseif v2 then + show = n+ann + out:write(format("@@ %d @@\n", n)) + end + if not show then goto next end + end + if v then + out:write(format(fmtv, v, line)) + else + out:write(format(fmtn, line)) + end + ::next:: + n = n + 1 + end + fp:close() + end +end + +------------------------------------------------------------------------------ + +-- Finish profiling and dump result. +local function prof_finish() + if prof_ud then + profile.stop() + local samples = prof_samples + if samples == 0 then + if prof_raw ~= true then out:write("[No samples collected]\n") end + return + end + if prof_ann then + prof_annotate(prof_count1, samples) + else + prof_top(prof_count1, prof_count2, samples, "") + end + prof_count1 = nil + prof_count2 = nil + prof_ud = nil + end +end + +-- Start profiling. +local function prof_start(mode) + local interval = "" + mode = mode:gsub("i%d*", function(s) interval = s; return "" end) + prof_min = 3 + mode = mode:gsub("m(%d+)", function(s) prof_min = tonumber(s); return "" end) + prof_depth = 1 + mode = mode:gsub("%-?%d+", function(s) prof_depth = tonumber(s); return "" end) + local m = {} + for c in mode:gmatch(".") do m[c] = c end + prof_states = m.z or m.v + if prof_states == "z" then zone = require("jit.zone") end + local scope = m.l or m.f or m.F or (prof_states and "" or "f") + local flags = (m.p or "") + prof_raw = m.r + if m.s then + prof_split = 2 + if prof_depth == -1 or m["-"] then prof_depth = -2 + elseif prof_depth == 1 then prof_depth = 2 end + elseif mode:find("[fF].*l") then + scope = "l" + prof_split = 3 + else + prof_split = (scope == "" or mode:find("[zv].*[lfF]")) and 1 or 0 + end + prof_ann = m.A and 0 or (m.a and 3) + if prof_ann then + scope = "l" + prof_fmt = "pl" + prof_split = 0 + prof_depth = 1 + elseif m.G and scope ~= "" then + prof_fmt = flags..scope.."Z;" + prof_depth = -100 + prof_raw = true + prof_min = 0 + elseif scope == "" then + prof_fmt = false + else + local sc = prof_split == 3 and m.f or m.F or scope + prof_fmt = flags..sc..(prof_depth >= 0 and "Z < " or "Z > ") + end + prof_count1 = {} + prof_count2 = {} + prof_samples = 0 + profile.start(scope:lower()..interval, prof_cb) + prof_ud = newproxy(true) + getmetatable(prof_ud).__gc = prof_finish +end + +------------------------------------------------------------------------------ + +local function start(mode, outfile) + if not outfile then outfile = os.getenv("LUAJIT_PROFILEFILE") end + if outfile then + out = outfile == "-" and stdout or assert(io.open(outfile, "w")) + else + out = stdout + end + prof_start(mode or "f") +end + +-- Public module functions. +return { + start = start, -- For -j command line option. + stop = prof_finish +} + diff --git a/src/3rd party/luajit-2.0/src/jit/v.lua b/src/3rd party/luajit-2.0/src/jit/v.lua index c622443d96d..157c34bc643 100644 --- a/src/3rd party/luajit-2.0/src/jit/v.lua +++ b/src/3rd party/luajit-2.0/src/jit/v.lua @@ -59,7 +59,7 @@ -- Cache some library functions and objects. local jit = require("jit") -assert(jit.version_num == 20003, "LuaJIT core/library version mismatch") +assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") local jutil = require("jit.util") local vmdef = require("jit.vmdef") local funcinfo, traceinfo = jutil.funcinfo, jutil.traceinfo @@ -116,6 +116,9 @@ local function dump_trace(what, tr, func, pc, otr, oex) if ltype == "interpreter" then out:write(format("[TRACE %3s %s%s -- fallback to interpreter]\n", tr, startex, startloc)) + elseif ltype == "stitch" then + out:write(format("[TRACE %3s %s%s %s %s]\n", + tr, startex, startloc, ltype, fmtfunc(func, pc))) elseif link == tr or link == 0 then out:write(format("[TRACE %3s %s%s %s]\n", tr, startex, startloc, ltype)) @@ -159,9 +162,9 @@ local function dumpon(outfile) end -- Public module functions. -module(...) - -on = dumpon -off = dumpoff -start = dumpon -- For -j command line option. +return { + on = dumpon, + off = dumpoff, + start = dumpon -- For -j command line option. +} diff --git a/src/3rd party/luajit-2.0/src/jit/zone.lua b/src/3rd party/luajit-2.0/src/jit/zone.lua new file mode 100644 index 00000000000..69f0f169147 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/jit/zone.lua @@ -0,0 +1,45 @@ +---------------------------------------------------------------------------- +-- LuaJIT profiler zones. +-- +-- Copyright (C) 2005-2015 Mike Pall. All rights reserved. +-- Released under the MIT license. See Copyright Notice in luajit.h +---------------------------------------------------------------------------- +-- +-- This module implements a simple hierarchical zone model. +-- +-- Example usage: +-- +-- local zone = require("jit.zone") +-- zone("AI") +-- ... +-- zone("A*") +-- ... +-- print(zone:get()) --> "A*" +-- ... +-- zone() +-- ... +-- print(zone:get()) --> "AI" +-- ... +-- zone() +-- +---------------------------------------------------------------------------- + +local remove = table.remove + +return setmetatable({ + flush = function(t) + for i=#t,1,-1 do t[i] = nil end + end, + get = function(t) + return t[#t] + end +}, { + __call = function(t, zone) + if zone then + t[#t+1] = zone + else + return (assert(remove(t), "empty zone stack")) + end + end +}) + diff --git a/src/3rd party/luajit-2.0/src/lib_base.c b/src/3rd party/luajit-2.0/src/lib_base.c index 17b9525d667..35ccdbc71c3 100644 --- a/src/3rd party/luajit-2.0/src/lib_base.c +++ b/src/3rd party/luajit-2.0/src/lib_base.c @@ -32,6 +32,7 @@ #include "lj_dispatch.h" #include "lj_char.h" #include "lj_strscan.h" +#include "lj_strfmt.h" #include "lj_lib.h" /* -- Base library: checks ------------------------------------------------ */ @@ -86,10 +87,11 @@ static int ffh_pairs(lua_State *L, MMS mm) cTValue *mo = lj_meta_lookup(L, o, mm); if ((LJ_52 || tviscdata(o)) && !tvisnil(mo)) { L->top = o+1; /* Only keep one argument. */ - copyTV(L, L->base-1, mo); /* Replace callable. */ + copyTV(L, L->base-1-LJ_FR2, mo); /* Replace callable. */ return FFH_TAILCALL; } else { if (!tvistab(o)) lj_err_argt(L, 1, LUA_TTABLE); + if (LJ_FR2) { copyTV(L, o-1, o); o--; } setfuncV(L, o-1, funcV(lj_lib_upvalue(L, 1))); if (mm == MM_pairs) setnilV(o+1); else setintV(o+1, 0); return FFH_RES(3); @@ -100,7 +102,7 @@ static int ffh_pairs(lua_State *L, MMS mm) #endif LJLIB_PUSH(lastcl) -LJLIB_ASM(pairs) +LJLIB_ASM(pairs) LJLIB_REC(xpairs 0) { return ffh_pairs(L, MM_pairs); } @@ -113,7 +115,7 @@ LJLIB_NOREGUV LJLIB_ASM(ipairs_aux) LJLIB_REC(.) } LJLIB_PUSH(lastcl) -LJLIB_ASM(ipairs) LJLIB_REC(.) +LJLIB_ASM(ipairs) LJLIB_REC(xpairs 1) { return ffh_pairs(L, MM_ipairs); } @@ -131,11 +133,11 @@ LJLIB_ASM(setmetatable) LJLIB_REC(.) lj_err_caller(L, LJ_ERR_PROTMT); setgcref(t->metatable, obj2gco(mt)); if (mt) { lj_gc_objbarriert(L, t, mt); } - settabV(L, L->base-1, t); + settabV(L, L->base-1-LJ_FR2, t); return FFH_RES(1); } -LJLIB_CF(getfenv) +LJLIB_CF(getfenv) LJLIB_REC(.) { GCfunc *fn; cTValue *o = L->base; @@ -144,6 +146,7 @@ LJLIB_CF(getfenv) o = lj_debug_frame(L, level, &level); if (o == NULL) lj_err_arg(L, 1, LJ_ERR_INVLVL); + if (LJ_FR2) o--; } fn = &gcval(o)->fn; settabV(L, L->top++, isluafunc(fn) ? tabref(fn->l.env) : tabref(L->env)); @@ -165,6 +168,7 @@ LJLIB_CF(setfenv) o = lj_debug_frame(L, level, &level); if (o == NULL) lj_err_arg(L, 1, LJ_ERR_INVLVL); + if (LJ_FR2) o--; } fn = &gcval(o)->fn; if (!isluafunc(fn)) @@ -257,7 +261,7 @@ LJLIB_ASM(tonumber) LJLIB_REC(.) if (base == 10) { TValue *o = lj_lib_checkany(L, 1); if (lj_strscan_numberobj(o)) { - copyTV(L, L->base-1, o); + copyTV(L, L->base-1-LJ_FR2, o); return FFH_RES(1); } #if LJ_HASFFI @@ -270,11 +274,11 @@ LJLIB_ASM(tonumber) LJLIB_REC(.) ct->size <= 4 && !(ct->size == 4 && (ct->info & CTF_UNSIGNED))) { int32_t i; lj_cconv_ct_tv(cts, ctype_get(cts, CTID_INT32), (uint8_t *)&i, o, 0); - setintV(L->base-1, i); + setintV(L->base-1-LJ_FR2, i); return FFH_RES(1); } lj_cconv_ct_tv(cts, ctype_get(cts, CTID_DOUBLE), - (uint8_t *)&(L->base-1)->n, o, 0); + (uint8_t *)&(L->base-1-LJ_FR2)->n, o, 0); return FFH_RES(1); } } @@ -290,45 +294,29 @@ LJLIB_ASM(tonumber) LJLIB_REC(.) while (lj_char_isspace((unsigned char)(*ep))) ep++; if (*ep == '\0') { if (LJ_DUALNUM && LJ_LIKELY(ul < 0x80000000u)) - setintV(L->base-1, (int32_t)ul); + setintV(L->base-1-LJ_FR2, (int32_t)ul); else - setnumV(L->base-1, (lua_Number)ul); + setnumV(L->base-1-LJ_FR2, (lua_Number)ul); return FFH_RES(1); } } } - setnilV(L->base-1); + setnilV(L->base-1-LJ_FR2); return FFH_RES(1); } -LJLIB_PUSH("nil") -LJLIB_PUSH("false") -LJLIB_PUSH("true") LJLIB_ASM(tostring) LJLIB_REC(.) { TValue *o = lj_lib_checkany(L, 1); cTValue *mo; L->top = o+1; /* Only keep one argument. */ if (!tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { - copyTV(L, L->base-1, mo); /* Replace callable. */ + copyTV(L, L->base-1-LJ_FR2, mo); /* Replace callable. */ return FFH_TAILCALL; - } else { - GCstr *s; - if (tvisnumber(o)) { - s = lj_str_fromnumber(L, o); - } else if (tvispri(o)) { - s = strV(lj_lib_upvalue(L, -(int32_t)itype(o))); - } else { - if (tvisfunc(o) && isffunc(funcV(o))) - lua_pushfstring(L, "function: builtin#%d", funcV(o)->c.ffid); - else - lua_pushfstring(L, "%s: %p", lj_typename(o), lua_topointer(L, 1)); - /* Note: lua_pushfstring calls the GC which may invalidate o. */ - s = strV(L->top-1); - } - setstrV(L, L->base-1, s); - return FFH_RES(1); } + lj_gc_check(L); + setstrV(L, L->base-1-LJ_FR2, lj_strfmt_obj(L, L->base)); + return FFH_RES(1); } /* -- Base library: throw and catch errors -------------------------------- */ @@ -506,21 +494,13 @@ LJLIB_CF(print) } shortcut = (tvisfunc(tv) && funcV(tv)->c.ffid == FF_tostring); for (i = 0; i < nargs; i++) { + cTValue *o = &L->base[i]; + char buf[STRFMT_MAXBUF_NUM]; const char *str; size_t size; - cTValue *o = &L->base[i]; - if (shortcut && tvisstr(o)) { - str = strVdata(o); - size = strV(o)->len; - } else if (shortcut && tvisint(o)) { - char buf[LJ_STR_INTBUF]; - char *p = lj_str_bufint(buf, intV(o)); - size = (size_t)(buf+LJ_STR_INTBUF-p); - str = p; - } else if (shortcut && tvisnum(o)) { - char buf[LJ_STR_NUMBUF]; - size = lj_str_bufnum(buf, o); - str = buf; + MSize len; + if (shortcut && (str = lj_strfmt_wstrnum(buf, o, &len)) != NULL) { + size = len; } else { copyTV(L, L->top+1, o); copyTV(L, L->top, L->top-1); @@ -558,7 +538,7 @@ LJLIB_CF(coroutine_status) if (co == L) s = "running"; else if (co->status == LUA_YIELD) s = "suspended"; else if (co->status != 0) s = "dead"; - else if (co->base > tvref(co->stack)+1) s = "normal"; + else if (co->base > tvref(co->stack)+1+LJ_FR2) s = "normal"; else if (co->top == co->base) s = "dead"; else s = "suspended"; lua_pushstring(L, s); @@ -600,8 +580,8 @@ static int ffh_resume(lua_State *L, lua_State *co, int wrap) (co->status == 0 && co->top == co->base)) { ErrMsg em = co->cframe ? LJ_ERR_CORUN : LJ_ERR_CODEAD; if (wrap) lj_err_caller(L, em); - setboolV(L->base-1, 0); - setstrV(L, L->base, lj_err_str(L, em)); + setboolV(L->base-1-LJ_FR2, 0); + setstrV(L, L->base-LJ_FR2, lj_err_str(L, em)); return FFH_RES(2); } lj_state_growstack(co, (MSize)(L->top - L->base)); @@ -642,9 +622,10 @@ static void setpc_wrap_aux(lua_State *L, GCfunc *fn); LJLIB_CF(coroutine_wrap) { + GCfunc *fn; lj_cf_coroutine_create(L); - lj_lib_pushcc(L, lj_ffh_coroutine_wrap_aux, FF_coroutine_wrap_aux, 1); - setpc_wrap_aux(L, funcV(L->top-1)); + fn = lj_lib_pushcc(L, lj_ffh_coroutine_wrap_aux, FF_coroutine_wrap_aux, 1); + setpc_wrap_aux(L, fn); return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_bit.c b/src/3rd party/luajit-2.0/src/lib_bit.c index 583e04b0c01..55cb2a845a8 100644 --- a/src/3rd party/luajit-2.0/src/lib_bit.c +++ b/src/3rd party/luajit-2.0/src/lib_bit.c @@ -12,26 +12,99 @@ #include "lj_obj.h" #include "lj_err.h" -#include "lj_str.h" +#include "lj_buf.h" +#include "lj_strscan.h" +#include "lj_strfmt.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#include "lj_cdata.h" +#include "lj_cconv.h" +#include "lj_carith.h" +#endif +#include "lj_ff.h" #include "lj_lib.h" /* ------------------------------------------------------------------------ */ #define LJLIB_MODULE_bit -LJLIB_ASM(bit_tobit) LJLIB_REC(bit_unary IR_TOBIT) +#if LJ_HASFFI +static int bit_result64(lua_State *L, CTypeID id, uint64_t x) { + GCcdata *cd = lj_cdata_new_(L, id, 8); + *(uint64_t *)cdataptr(cd) = x; + setcdataV(L, L->base-1-LJ_FR2, cd); + return FFH_RES(1); +} +#else +static int32_t bit_checkbit(lua_State *L, int narg) +{ + TValue *o = L->base + narg-1; + if (!(o < L->top && lj_strscan_numberobj(o))) + lj_err_argt(L, narg, LUA_TNUMBER); + if (LJ_LIKELY(tvisint(o))) { + return intV(o); + } else { + int32_t i = lj_num2bit(numV(o)); + if (LJ_DUALNUM) setintV(o, i); + return i; + } +} +#endif + +LJLIB_ASM(bit_tobit) LJLIB_REC(bit_tobit) +{ +#if LJ_HASFFI + CTypeID id = 0; + setintV(L->base-1-LJ_FR2, (int32_t)lj_carith_check64(L, 1, &id)); + return FFH_RES(1); +#else + lj_lib_checknumber(L, 1); + return FFH_RETRY; +#endif +} + +LJLIB_ASM(bit_bnot) LJLIB_REC(bit_unary IR_BNOT) +{ +#if LJ_HASFFI + CTypeID id = 0; + uint64_t x = lj_carith_check64(L, 1, &id); + return id ? bit_result64(L, id, ~x) : FFH_RETRY; +#else lj_lib_checknumber(L, 1); return FFH_RETRY; +#endif +} + +LJLIB_ASM(bit_bswap) LJLIB_REC(bit_unary IR_BSWAP) +{ +#if LJ_HASFFI + CTypeID id = 0; + uint64_t x = lj_carith_check64(L, 1, &id); + return id ? bit_result64(L, id, lj_bswap64(x)) : FFH_RETRY; +#else + lj_lib_checknumber(L, 1); + return FFH_RETRY; +#endif } -LJLIB_ASM_(bit_bnot) LJLIB_REC(bit_unary IR_BNOT) -LJLIB_ASM_(bit_bswap) LJLIB_REC(bit_unary IR_BSWAP) LJLIB_ASM(bit_lshift) LJLIB_REC(bit_shift IR_BSHL) { +#if LJ_HASFFI + CTypeID id = 0, id2 = 0; + uint64_t x = lj_carith_check64(L, 1, &id); + int32_t sh = (int32_t)lj_carith_check64(L, 2, &id2); + if (id) { + x = lj_carith_shift64(x, sh, curr_func(L)->c.ffid - (int)FF_bit_lshift); + return bit_result64(L, id, x); + } + if (id2) setintV(L->base+1, sh); + return FFH_RETRY; +#else lj_lib_checknumber(L, 1); - lj_lib_checkbit(L, 2); + bit_checkbit(L, 2); return FFH_RETRY; +#endif } LJLIB_ASM_(bit_rshift) LJLIB_REC(bit_shift IR_BSHR) LJLIB_ASM_(bit_arshift) LJLIB_REC(bit_shift IR_BSAR) @@ -40,25 +113,58 @@ LJLIB_ASM_(bit_ror) LJLIB_REC(bit_shift IR_BROR) LJLIB_ASM(bit_band) LJLIB_REC(bit_nary IR_BAND) { +#if LJ_HASFFI + CTypeID id = 0; + TValue *o = L->base, *top = L->top; + int i = 0; + do { lj_carith_check64(L, ++i, &id); } while (++o < top); + if (id) { + CTState *cts = ctype_cts(L); + CType *ct = ctype_get(cts, id); + int op = curr_func(L)->c.ffid - (int)FF_bit_bor; + uint64_t x, y = op >= 0 ? 0 : ~(uint64_t)0; + o = L->base; + do { + lj_cconv_ct_tv(cts, ct, (uint8_t *)&x, o, 0); + if (op < 0) y &= x; else if (op == 0) y |= x; else y ^= x; + } while (++o < top); + return bit_result64(L, id, y); + } + return FFH_RETRY; +#else int i = 0; do { lj_lib_checknumber(L, ++i); } while (L->base+i < L->top); return FFH_RETRY; +#endif } LJLIB_ASM_(bit_bor) LJLIB_REC(bit_nary IR_BOR) LJLIB_ASM_(bit_bxor) LJLIB_REC(bit_nary IR_BXOR) /* ------------------------------------------------------------------------ */ -LJLIB_CF(bit_tohex) +LJLIB_CF(bit_tohex) LJLIB_REC(.) { - uint32_t b = (uint32_t)lj_lib_checkbit(L, 1); - int32_t i, n = L->base+1 >= L->top ? 8 : lj_lib_checkbit(L, 2); - const char *hexdigits = "0123456789abcdef"; - char buf[8]; - if (n < 0) { n = -n; hexdigits = "0123456789ABCDEF"; } - if (n > 8) n = 8; - for (i = n; --i >= 0; ) { buf[i] = hexdigits[b & 15]; b >>= 4; } - lua_pushlstring(L, buf, (size_t)n); +#if LJ_HASFFI + CTypeID id = 0, id2 = 0; + uint64_t b = lj_carith_check64(L, 1, &id); + int32_t n = L->base+1>=L->top ? (id ? 16 : 8) : + (int32_t)lj_carith_check64(L, 2, &id2); +#else + uint32_t b = (uint32_t)bit_checkbit(L, 1); + int32_t n = L->base+1>=L->top ? 8 : bit_checkbit(L, 2); +#endif + SBuf *sb = lj_buf_tmp_(L); + SFormat sf = (STRFMT_UINT|STRFMT_T_HEX); + if (n < 0) { n = -n; sf |= STRFMT_F_UPPER; } + sf |= ((SFormat)((n+1)&255) << STRFMT_SH_PREC); +#if LJ_HASFFI + if (n < 16) b &= ((uint64_t)1 << 4*n)-1; +#else + if (n < 8) b &= (1u << 4*n)-1; +#endif + sb = lj_strfmt_putfxint(sb, sf, b); + setstrV(L, L->top-1, lj_buf_str(L, sb)); + lj_gc_check(L); return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_debug.c b/src/3rd party/luajit-2.0/src/lib_debug.c index e87c35cfe94..b610fb4dcdd 100644 --- a/src/3rd party/luajit-2.0/src/lib_debug.c +++ b/src/3rd party/luajit-2.0/src/lib_debug.c @@ -29,7 +29,7 @@ LJLIB_CF(debug_getregistry) return 1; } -LJLIB_CF(debug_getmetatable) +LJLIB_CF(debug_getmetatable) LJLIB_REC(.) { lj_lib_checkany(L, 1); if (!lua_getmetatable(L, 1)) { diff --git a/src/3rd party/luajit-2.0/src/lib_ffi.c b/src/3rd party/luajit-2.0/src/lib_ffi.c index f6df39d67f9..b2b2d37ff7b 100644 --- a/src/3rd party/luajit-2.0/src/lib_ffi.c +++ b/src/3rd party/luajit-2.0/src/lib_ffi.c @@ -29,6 +29,7 @@ #include "lj_ccall.h" #include "lj_ccallback.h" #include "lj_clib.h" +#include "lj_strfmt.h" #include "lj_ff.h" #include "lj_lib.h" @@ -137,7 +138,7 @@ static int ffi_index_meta(lua_State *L, CTState *cts, CType *ct, MMS mm) } } copyTV(L, base, L->top); - tv = L->top-1; + tv = L->top-1-LJ_FR2; } return lj_meta_tailcall(L, tv); } @@ -318,7 +319,7 @@ LJLIB_CF(ffi_meta___tostring) } } } - lj_str_pushf(L, msg, strdata(lj_ctype_repr(L, id, NULL)), p); + lj_strfmt_pushf(L, msg, strdata(lj_ctype_repr(L, id, NULL)), p); checkgc: lj_gc_check(L); return 1; @@ -507,7 +508,7 @@ LJLIB_CF(ffi_new) LJLIB_REC(.) if (!(info & CTF_VLA) && ctype_align(info) <= CT_MEMALIGN) cd = lj_cdata_new(cts, id, sz); else - cd = lj_cdata_newv(cts, id, sz, ctype_align(info)); + cd = lj_cdata_newv(L, id, sz, ctype_align(info)); setcdataV(L, o-1, cd); /* Anchor the uninitialized cdata. */ lj_cconv_ct_init(cts, ct, sz, cdataptr(cd), o, (MSize)(L->top - o)); /* Initialize cdata. */ @@ -558,6 +559,31 @@ LJLIB_CF(ffi_typeof) LJLIB_REC(.) return 1; } +/* Internal and unsupported API. */ +LJLIB_CF(ffi_typeinfo) +{ + CTState *cts = ctype_cts(L); + CTypeID id = (CTypeID)ffi_checkint(L, 1); + if (id > 0 && id < cts->top) { + CType *ct = ctype_get(cts, id); + GCtab *t; + lua_createtable(L, 0, 4); /* Increment hash size if fields are added. */ + t = tabV(L->top-1); + setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "info")), (int32_t)ct->info); + if (ct->size != CTSIZE_INVALID) + setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "size")), (int32_t)ct->size); + if (ct->sib) + setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "sib")), (int32_t)ct->sib); + if (gcref(ct->name)) { + GCstr *s = gco2str(gcref(ct->name)); + setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "name")), s); + } + lj_gc_check(L); + return 1; + } + return 0; +} + LJLIB_CF(ffi_istype) LJLIB_REC(.) { CTState *cts = ctype_cts(L); @@ -725,6 +751,9 @@ LJLIB_CF(ffi_abi) LJLIB_REC(.) case H_(4ab624a8,4ab624a8): b = 1; break; /* win */ #endif case H_(3af93066,1f001464): b = 1; break; /* le/be */ +#if LJ_GC64 + case H_(9e89d2c9,13c83c92): b = 1; break; /* gc64 */ +#endif default: break; } @@ -768,19 +797,11 @@ LJLIB_CF(ffi_gc) LJLIB_REC(.) GCcdata *cd = ffi_checkcdata(L, 1); TValue *fin = lj_lib_checkany(L, 2); CTState *cts = ctype_cts(L); - GCtab *t = cts->finalizer; CType *ct = ctype_raw(cts, cd->ctypeid); if (!(ctype_isptr(ct->info) || ctype_isstruct(ct->info) || ctype_isrefarray(ct->info))) lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); - if (gcref(t->metatable)) { /* Update finalizer table, if still enabled. */ - copyTV(L, lj_tab_set(L, t, L->base), fin); - lj_gc_anybarriert(L, t); - if (!tvisnil(fin)) - cd->marked |= LJ_GC_CDATA_FIN; - else - cd->marked &= ~LJ_GC_CDATA_FIN; - } + lj_cdata_setfin(L, cd, gcval(fin), itype(fin)); L->top = L->base+1; /* Pass through the cdata object. */ return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_io.c b/src/3rd party/luajit-2.0/src/lib_io.c index 037aa28e562..468d327539a 100644 --- a/src/3rd party/luajit-2.0/src/lib_io.c +++ b/src/3rd party/luajit-2.0/src/lib_io.c @@ -19,8 +19,10 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_state.h" +#include "lj_strfmt.h" #include "lj_ff.h" #include "lj_lib.h" @@ -84,7 +86,7 @@ static IOFileUD *io_file_open(lua_State *L, const char *mode) IOFileUD *iof = io_file_new(L); iof->fp = fopen(fname, mode); if (iof->fp == NULL) - luaL_argerror(L, 1, lj_str_pushf(L, "%s: %s", fname, strerror(errno))); + luaL_argerror(L, 1, lj_strfmt_pushf(L, "%s: %s", fname, strerror(errno))); return iof; } @@ -145,7 +147,7 @@ static int io_file_readline(lua_State *L, FILE *fp, MSize chop) MSize m = LUAL_BUFFERSIZE, n = 0, ok = 0; char *buf; for (;;) { - buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + buf = lj_buf_tmp(L, m); if (fgets(buf+n, m-n, fp) == NULL) break; n += (MSize)strlen(buf+n); ok |= n; @@ -161,7 +163,7 @@ static void io_file_readall(lua_State *L, FILE *fp) { MSize m, n; for (m = LUAL_BUFFERSIZE, n = 0; ; m += m) { - char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + char *buf = lj_buf_tmp(L, m); n += (MSize)fread(buf+n, 1, m-n, fp); if (n != m) { setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); @@ -174,7 +176,7 @@ static void io_file_readall(lua_State *L, FILE *fp) static int io_file_readlen(lua_State *L, FILE *fp, MSize m) { if (m) { - char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); + char *buf = lj_buf_tmp(L, m); MSize n = (MSize)fread(buf, 1, m, fp); setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); lj_gc_check(L); @@ -230,19 +232,12 @@ static int io_file_write(lua_State *L, FILE *fp, int start) cTValue *tv; int status = 1; for (tv = L->base+start; tv < L->top; tv++) { - if (tvisstr(tv)) { - MSize len = strV(tv)->len; - status = status && (fwrite(strVdata(tv), 1, len, fp) == len); - } else if (tvisint(tv)) { - char buf[LJ_STR_INTBUF]; - char *p = lj_str_bufint(buf, intV(tv)); - size_t len = (size_t)(buf+LJ_STR_INTBUF-p); - status = status && (fwrite(p, 1, len, fp) == len); - } else if (tvisnum(tv)) { - status = status && (fprintf(fp, LUA_NUMBER_FMT, numV(tv)) > 0); - } else { + char buf[STRFMT_MAXBUF_NUM]; + MSize len; + const char *p = lj_strfmt_wstrnum(buf, tv, &len); + if (!p) lj_err_argt(L, (int)(tv - L->base) + 1, LUA_TSTRING); - } + status = status && (fwrite(p, 1, len, fp) == len); } if (LJ_52 && status) { L->top = L->base+1; diff --git a/src/3rd party/luajit-2.0/src/lib_jit.c b/src/3rd party/luajit-2.0/src/lib_jit.c index 96525faf271..178ef249df3 100644 --- a/src/3rd party/luajit-2.0/src/lib_jit.c +++ b/src/3rd party/luajit-2.0/src/lib_jit.c @@ -10,13 +10,17 @@ #include "lauxlib.h" #include "lualib.h" -#include "lj_arch.h" #include "lj_obj.h" +#include "lj_gc.h" #include "lj_err.h" #include "lj_debug.h" #include "lj_str.h" #include "lj_tab.h" +#include "lj_state.h" #include "lj_bc.h" +#if LJ_HASFFI +#include "lj_ctype.h" +#endif #if LJ_HASJIT #include "lj_ir.h" #include "lj_jit.h" @@ -24,6 +28,7 @@ #include "lj_iropt.h" #include "lj_target.h" #endif +#include "lj_trace.h" #include "lj_dispatch.h" #include "lj_vm.h" #include "lj_vmevent.h" @@ -279,7 +284,7 @@ static GCtrace *jit_checktrace(lua_State *L) /* Names of link types. ORDER LJ_TRLINK */ static const char *const jit_trlinkname[] = { "none", "root", "loop", "tail-recursion", "up-recursion", "down-recursion", - "interpreter", "return" + "interpreter", "return", "stitch" }; /* local info = jit.util.traceinfo(tr) */ @@ -332,6 +337,13 @@ LJLIB_CF(jit_util_tracek) slot = ir->op2; ir = &T->ir[ir->op1]; } +#if LJ_HASFFI + if (ir->o == IR_KINT64 && !ctype_ctsG(G(L))) { + ptrdiff_t oldtop = savestack(L, L->top); + luaopen_ffi(L); /* Load FFI library on-demand. */ + L->top = restorestack(L, oldtop); + } +#endif lj_ir_kvalue(L, L->top-2, ir); setintV(L->top-1, (int32_t)irt_type(ir->t)); if (slot == -1) @@ -416,6 +428,12 @@ LJLIB_CF(jit_util_ircalladdr) #include "lj_libdef.h" +static int luaopen_jit_util(lua_State *L) +{ + LJ_LIB_REG(L, NULL, jit_util); + return 1; +} + /* -- jit.opt module ------------------------------------------------------ */ #if LJ_HASJIT @@ -513,6 +531,104 @@ LJLIB_CF(jit_opt_start) #endif +/* -- jit.profile module -------------------------------------------------- */ + +#if LJ_HASPROFILE + +#define LJLIB_MODULE_jit_profile + +/* Not loaded by default, use: local profile = require("jit.profile") */ + +static const char KEY_PROFILE_THREAD = 't'; +static const char KEY_PROFILE_FUNC = 'f'; + +static void jit_profile_callback(lua_State *L2, lua_State *L, int samples, + int vmstate) +{ + TValue key; + cTValue *tv; + setlightudV(&key, (void *)&KEY_PROFILE_FUNC); + tv = lj_tab_get(L, tabV(registry(L)), &key); + if (tvisfunc(tv)) { + char vmst = (char)vmstate; + int status; + setfuncV(L2, L2->top++, funcV(tv)); + setthreadV(L2, L2->top++, L); + setintV(L2->top++, samples); + setstrV(L2, L2->top++, lj_str_new(L2, &vmst, 1)); + status = lua_pcall(L2, 3, 0, 0); /* callback(thread, samples, vmstate) */ + if (status) { + if (G(L2)->panic) G(L2)->panic(L2); + exit(EXIT_FAILURE); + } + lj_trace_abort(G(L2)); + } +} + +/* profile.start(mode, cb) */ +LJLIB_CF(jit_profile_start) +{ + GCtab *registry = tabV(registry(L)); + GCstr *mode = lj_lib_optstr(L, 1); + GCfunc *func = lj_lib_checkfunc(L, 2); + lua_State *L2 = lua_newthread(L); /* Thread that runs profiler callback. */ + TValue key; + /* Anchor thread and function in registry. */ + setlightudV(&key, (void *)&KEY_PROFILE_THREAD); + setthreadV(L, lj_tab_set(L, registry, &key), L2); + setlightudV(&key, (void *)&KEY_PROFILE_FUNC); + setfuncV(L, lj_tab_set(L, registry, &key), func); + lj_gc_anybarriert(L, registry); + luaJIT_profile_start(L, mode ? strdata(mode) : "", + (luaJIT_profile_callback)jit_profile_callback, L2); + return 0; +} + +/* profile.stop() */ +LJLIB_CF(jit_profile_stop) +{ + GCtab *registry; + TValue key; + luaJIT_profile_stop(L); + registry = tabV(registry(L)); + setlightudV(&key, (void *)&KEY_PROFILE_THREAD); + setnilV(lj_tab_set(L, registry, &key)); + setlightudV(&key, (void *)&KEY_PROFILE_FUNC); + setnilV(lj_tab_set(L, registry, &key)); + lj_gc_anybarriert(L, registry); + return 0; +} + +/* dump = profile.dumpstack([thread,] fmt, depth) */ +LJLIB_CF(jit_profile_dumpstack) +{ + lua_State *L2 = L; + int arg = 0; + size_t len; + int depth; + GCstr *fmt; + const char *p; + if (L->top > L->base && tvisthread(L->base)) { + L2 = threadV(L->base); + arg = 1; + } + fmt = lj_lib_checkstr(L, arg+1); + depth = lj_lib_checkint(L, arg+2); + p = luaJIT_profile_dumpstack(L2, strdata(fmt), depth, &len); + lua_pushlstring(L, p, len); + return 1; +} + +#include "lj_libdef.h" + +static int luaopen_jit_profile(lua_State *L) +{ + LJ_LIB_REG(L, NULL, jit_profile); + return 1; +} + +#endif + /* -- JIT compiler initialization ----------------------------------------- */ #if LJ_HASJIT @@ -538,23 +654,17 @@ static uint32_t jit_cpudetect(lua_State *L) uint32_t features[4]; if (lj_vm_cpuid(0, vendor) && lj_vm_cpuid(1, features)) { #if !LJ_HASJIT -#define JIT_F_CMOV 1 #define JIT_F_SSE2 2 #endif - flags |= ((features[3] >> 15)&1) * JIT_F_CMOV; flags |= ((features[3] >> 26)&1) * JIT_F_SSE2; #if LJ_HASJIT flags |= ((features[2] >> 0)&1) * JIT_F_SSE3; flags |= ((features[2] >> 19)&1) * JIT_F_SSE4_1; if (vendor[2] == 0x6c65746e) { /* Intel. */ - if ((features[0] & 0x0ff00f00) == 0x00000f00) /* P4. */ - flags |= JIT_F_P4; /* Currently unused. */ - else if ((features[0] & 0x0fff0ff0) == 0x000106c0) /* Atom. */ + if ((features[0] & 0x0fff0ff0) == 0x000106c0) /* Atom. */ flags |= JIT_F_LEA_AGU; } else if (vendor[2] == 0x444d4163) { /* AMD. */ uint32_t fam = (features[0] & 0x0ff00f00); - if (fam == 0x00000f00) /* K8. */ - flags |= JIT_F_SPLIT_XMM; if (fam >= 0x00000f00) /* K8, K10. */ flags |= JIT_F_PREFER_IMUL; } @@ -562,14 +672,8 @@ static uint32_t jit_cpudetect(lua_State *L) } /* Check for required instruction set support on x86 (unnecessary on x64). */ #if LJ_TARGET_X86 -#if !defined(LUAJIT_CPU_NOCMOV) - if (!(flags & JIT_F_CMOV)) - luaL_error(L, "CPU not supported"); -#endif -#if defined(LUAJIT_CPU_SSE2) if (!(flags & JIT_F_SSE2)) - luaL_error(L, "CPU does not support SSE2 (recompile without -DLUAJIT_CPU_SSE2)"); -#endif + luaL_error(L, "CPU with SSE2 required"); #endif #elif LJ_TARGET_ARM #if LJ_HASJIT @@ -591,6 +695,8 @@ static uint32_t jit_cpudetect(lua_State *L) ver >= 60 ? JIT_F_ARMV6_ : 0; flags |= LJ_ARCH_HASFPU == 0 ? 0 : ver >= 70 ? JIT_F_VFPV3 : JIT_F_VFPV2; #endif +#elif LJ_TARGET_ARM64 + /* No optional CPU features to detect (for now). */ #elif LJ_TARGET_PPC #if LJ_HASJIT #if LJ_ARCH_SQRT @@ -600,8 +706,6 @@ static uint32_t jit_cpudetect(lua_State *L) flags |= JIT_F_ROUND; #endif #endif -#elif LJ_TARGET_PPCSPE - /* Nothing to do. */ #elif LJ_TARGET_MIPS #if LJ_HASJIT /* Compile-time MIPS CPU detection. */ @@ -631,11 +735,7 @@ static void jit_init(lua_State *L) uint32_t flags = jit_cpudetect(L); #if LJ_HASJIT jit_State *J = L2J(L); -#if LJ_TARGET_X86 - /* Silently turn off the JIT compiler on CPUs without SSE2. */ - if ((flags & JIT_F_SSE2)) -#endif - J->flags = flags | JIT_F_ON | JIT_F_OPT_DEFAULT; + J->flags = flags | JIT_F_ON | JIT_F_OPT_DEFAULT; memcpy(J->param, jit_param_default, sizeof(J->param)); lj_dispatch_update(G(L)); #else @@ -645,19 +745,23 @@ static void jit_init(lua_State *L) LUALIB_API int luaopen_jit(lua_State *L) { + jit_init(L); lua_pushliteral(L, LJ_OS_NAME); lua_pushliteral(L, LJ_ARCH_NAME); lua_pushinteger(L, LUAJIT_VERSION_NUM); lua_pushliteral(L, LUAJIT_VERSION); LJ_LIB_REG(L, LUA_JITLIBNAME, jit); +#if LJ_HASPROFILE + lj_lib_prereg(L, LUA_JITLIBNAME ".profile", luaopen_jit_profile, + tabref(L->env)); +#endif #ifndef LUAJIT_DISABLE_JITUTIL - LJ_LIB_REG(L, "jit.util", jit_util); + lj_lib_prereg(L, LUA_JITLIBNAME ".util", luaopen_jit_util, tabref(L->env)); #endif #if LJ_HASJIT LJ_LIB_REG(L, "jit.opt", jit_opt); #endif L->top -= 2; - jit_init(L); return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_math.c b/src/3rd party/luajit-2.0/src/lib_math.c index 40f29142d70..78838fcd6c0 100644 --- a/src/3rd party/luajit-2.0/src/lib_math.c +++ b/src/3rd party/luajit-2.0/src/lib_math.c @@ -47,12 +47,6 @@ LJLIB_ASM_(math_tanh) LJLIB_REC(math_htrig IRCALL_tanh) LJLIB_ASM_(math_frexp) LJLIB_ASM_(math_modf) LJLIB_REC(.) -LJLIB_PUSH(57.29577951308232) -LJLIB_ASM_(math_deg) LJLIB_REC(math_degrad) - -LJLIB_PUSH(0.017453292519943295) -LJLIB_ASM_(math_rad) LJLIB_REC(math_degrad) - LJLIB_ASM(math_log) LJLIB_REC(math_log) { double x = lj_lib_checknum(L, 1); @@ -63,12 +57,15 @@ LJLIB_ASM(math_log) LJLIB_REC(math_log) #else x = lj_vm_log2(x); y = 1.0 / lj_vm_log2(y); #endif - setnumV(L->base-1, x*y); /* Do NOT join the expression to x / y. */ + setnumV(L->base-1-LJ_FR2, x*y); /* Do NOT join the expression to x / y. */ return FFH_RES(1); } return FFH_RETRY; } +LJLIB_LUA(math_deg) /* function(x) return x * 57.29577951308232 end */ +LJLIB_LUA(math_rad) /* function(x) return x * 0.017453292519943295 end */ + LJLIB_ASM(math_atan2) LJLIB_REC(.) { lj_lib_checknum(L, 1); diff --git a/src/3rd party/luajit-2.0/src/lib_os.c b/src/3rd party/luajit-2.0/src/lib_os.c index bb5a141e3cd..7b5873a518a 100644 --- a/src/3rd party/luajit-2.0/src/lib_os.c +++ b/src/3rd party/luajit-2.0/src/lib_os.c @@ -17,7 +17,10 @@ #include "lualib.h" #include "lj_obj.h" +#include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" +#include "lj_str.h" #include "lj_lib.h" #if LJ_TARGET_POSIX @@ -188,7 +191,7 @@ LJLIB_CF(os_date) #endif } if (stm == NULL) { /* Invalid date? */ - setnilV(L->top-1); + setnilV(L->top++); } else if (strcmp(s, "*t") == 0) { lua_createtable(L, 0, 9); /* 9 = number of fields */ setfield(L, "sec", stm->tm_sec); @@ -200,23 +203,25 @@ LJLIB_CF(os_date) setfield(L, "wday", stm->tm_wday+1); setfield(L, "yday", stm->tm_yday+1); setboolfield(L, "isdst", stm->tm_isdst); - } else { - char cc[3]; - luaL_Buffer b; - cc[0] = '%'; cc[2] = '\0'; - luaL_buffinit(L, &b); - for (; *s; s++) { - if (*s != '%' || *(s + 1) == '\0') { /* No conversion specifier? */ - luaL_addchar(&b, *s); - } else { - size_t reslen; - char buff[200]; /* Should be big enough for any conversion result. */ - cc[1] = *(++s); - reslen = strftime(buff, sizeof(buff), cc, stm); - luaL_addlstring(&b, buff, reslen); + } else if (*s) { + SBuf *sb = &G(L)->tmpbuf; + MSize sz = 0; + const char *q; + for (q = s; *q; q++) + sz += (*q == '%') ? 30 : 1; /* Overflow doesn't matter. */ + setsbufL(sb, L); + for (;;) { + char *buf = lj_buf_need(sb, sz); + size_t len = strftime(buf, sbufsz(sb), s, stm); + if (len) { + setstrV(L, L->top++, lj_str_new(L, buf, len)); + lj_gc_check(L); + break; } + sz += (sz|1); } - luaL_pushresult(&b); + } else { + setstrV(L, L->top++, &G(L)->strempty); } return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_package.c b/src/3rd party/luajit-2.0/src/lib_package.c index ac38c815836..6b6eb8f6f88 100644 --- a/src/3rd party/luajit-2.0/src/lib_package.c +++ b/src/3rd party/luajit-2.0/src/lib_package.c @@ -226,7 +226,7 @@ static int ll_loadfunc(lua_State *L, const char *path, const char *name, int r) const char *bcdata = ll_bcsym(*reg, mksymname(L, name, SYMPREFIX_BC)); lua_pop(L, 1); if (bcdata) { - if (luaL_loadbuffer(L, bcdata, ~(size_t)0, name) != 0) + if (luaL_loadbuffer(L, bcdata, LJ_MAX_BUF, name) != 0) return PACKAGE_ERR_LOAD; return 0; } @@ -383,7 +383,7 @@ static int lj_cf_package_loader_preload(lua_State *L) if (lua_isnil(L, -1)) { /* Not found? */ const char *bcname = mksymname(L, name, SYMPREFIX_BC); const char *bcdata = ll_bcsym(NULL, bcname); - if (bcdata == NULL || luaL_loadbuffer(L, bcdata, ~(size_t)0, name) != 0) + if (bcdata == NULL || luaL_loadbuffer(L, bcdata, LJ_MAX_BUF, name) != 0) lua_pushfstring(L, "\n\tno field package.preload['%s']", name); } return 1; diff --git a/src/3rd party/luajit-2.0/src/lib_string.c b/src/3rd party/luajit-2.0/src/lib_string.c index c6168edbb67..a6d9986ac63 100644 --- a/src/3rd party/luajit-2.0/src/lib_string.c +++ b/src/3rd party/luajit-2.0/src/lib_string.c @@ -6,8 +6,6 @@ ** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h */ -#include - #define lib_string_c #define LUA_LIB @@ -18,6 +16,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_meta.h" @@ -25,17 +24,19 @@ #include "lj_ff.h" #include "lj_bcdump.h" #include "lj_char.h" +#include "lj_strfmt.h" #include "lj_lib.h" /* ------------------------------------------------------------------------ */ #define LJLIB_MODULE_string -LJLIB_ASM(string_len) LJLIB_REC(.) -{ - lj_lib_checkstr(L, 1); - return FFH_RETRY; -} +LJLIB_LUA(string_len) /* + function(s) + CHECK_str(s) + return #s + end +*/ LJLIB_ASM(string_byte) LJLIB_REC(string_range 0) { @@ -57,21 +58,21 @@ LJLIB_ASM(string_byte) LJLIB_REC(string_range 0) lj_state_checkstack(L, (MSize)n); p = (const unsigned char *)strdata(s) + start; for (i = 0; i < n; i++) - setintV(L->base + i-1, p[i]); + setintV(L->base + i-1-LJ_FR2, p[i]); return FFH_RES(n); } -LJLIB_ASM(string_char) +LJLIB_ASM(string_char) LJLIB_REC(.) { int i, nargs = (int)(L->top - L->base); - char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, (MSize)nargs); + char *buf = lj_buf_tmp(L, (MSize)nargs); for (i = 1; i <= nargs; i++) { int32_t k = lj_lib_checkint(L, i); if (!checku8(k)) lj_err_arg(L, i, LJ_ERR_BADVAL); buf[i-1] = (char)k; } - setstrV(L, L->base-1, lj_str_new(L, buf, (size_t)nargs)); + setstrV(L, L->base-1-LJ_FR2, lj_str_new(L, buf, (size_t)nargs)); return FFH_RES(1); } @@ -83,68 +84,38 @@ LJLIB_ASM(string_sub) LJLIB_REC(string_range 1) return FFH_RETRY; } -LJLIB_ASM(string_rep) +LJLIB_CF(string_rep) LJLIB_REC(.) { GCstr *s = lj_lib_checkstr(L, 1); - int32_t k = lj_lib_checkint(L, 2); + int32_t rep = lj_lib_checkint(L, 2); GCstr *sep = lj_lib_optstr(L, 3); - int32_t len = (int32_t)s->len; - global_State *g = G(L); - int64_t tlen; - const char *src; - char *buf; - if (k <= 0) { - empty: - setstrV(L, L->base-1, &g->strempty); - return FFH_RES(1); + SBuf *sb = lj_buf_tmp_(L); + if (sep && rep > 1) { + GCstr *s2 = lj_buf_cat2str(L, sep, s); + lj_buf_reset(sb); + lj_buf_putstr(sb, s); + s = s2; + rep--; } - if (sep) { - tlen = (int64_t)len + sep->len; - if (tlen > LJ_MAX_STR) - lj_err_caller(L, LJ_ERR_STROV); - tlen *= k; - if (tlen > LJ_MAX_STR) - lj_err_caller(L, LJ_ERR_STROV); - } else { - tlen = (int64_t)k * len; - if (tlen > LJ_MAX_STR) - lj_err_caller(L, LJ_ERR_STROV); - } - if (tlen == 0) goto empty; - buf = lj_str_needbuf(L, &g->tmpbuf, (MSize)tlen); - src = strdata(s); - if (sep) { - tlen -= sep->len; /* Ignore trailing separator. */ - if (k > 1) { /* Paste one string and one separator. */ - int32_t i; - i = 0; while (i < len) *buf++ = src[i++]; - src = strdata(sep); len = sep->len; - i = 0; while (i < len) *buf++ = src[i++]; - src = g->tmpbuf.buf; len += s->len; k--; /* Now copy that k-1 times. */ - } - } - do { - int32_t i = 0; - do { *buf++ = src[i++]; } while (i < len); - } while (--k > 0); - setstrV(L, L->base-1, lj_str_new(L, g->tmpbuf.buf, (size_t)tlen)); - return FFH_RES(1); + sb = lj_buf_putstr_rep(sb, s, rep); + setstrV(L, L->top-1, lj_buf_str(L, sb)); + lj_gc_check(L); + return 1; } -LJLIB_ASM(string_reverse) +LJLIB_ASM(string_reverse) LJLIB_REC(string_op IRCALL_lj_buf_putstr_reverse) { - GCstr *s = lj_lib_checkstr(L, 1); - lj_str_needbuf(L, &G(L)->tmpbuf, s->len); + lj_lib_checkstr(L, 1); return FFH_RETRY; } -LJLIB_ASM_(string_lower) -LJLIB_ASM_(string_upper) +LJLIB_ASM_(string_lower) LJLIB_REC(string_op IRCALL_lj_buf_putstr_lower) +LJLIB_ASM_(string_upper) LJLIB_REC(string_op IRCALL_lj_buf_putstr_upper) /* ------------------------------------------------------------------------ */ -static int writer_buf(lua_State *L, const void *p, size_t size, void *b) +static int writer_buf(lua_State *L, const void *p, size_t size, void *sb) { - luaL_addlstring((luaL_Buffer *)b, (const char *)p, size); + lj_buf_putmem((SBuf *)sb, p, (MSize)size); UNUSED(L); return 0; } @@ -153,12 +124,12 @@ LJLIB_CF(string_dump) { GCfunc *fn = lj_lib_checkfunc(L, 1); int strip = L->base+1 < L->top && tvistruecond(L->base+1); - luaL_Buffer b; + SBuf *sb = lj_buf_tmp_(L); /* Assumes lj_bcwrite() doesn't use tmpbuf. */ L->top = L->base+1; - luaL_buffinit(L, &b); - if (!isluafunc(fn) || lj_bcwrite(L, funcproto(fn), writer_buf, &b, strip)) + if (!isluafunc(fn) || lj_bcwrite(L, funcproto(fn), writer_buf, sb, strip)) lj_err_caller(L, LJ_ERR_STRDUMP); - luaL_pushresult(&b); + setstrV(L, L->top-1, lj_buf_str(L, sb)); + lj_gc_check(L); return 1; } @@ -183,7 +154,6 @@ typedef struct MatchState { } MatchState; #define L_ESC '%' -#define SPECIALS "^$*+?.([%-" static int check_capture(MatchState *ms, int l) { @@ -450,30 +420,6 @@ static const char *match(MatchState *ms, const char *s, const char *p) return s; } -static const char *lmemfind(const char *s1, size_t l1, - const char *s2, size_t l2) -{ - if (l2 == 0) { - return s1; /* empty strings are everywhere */ - } else if (l2 > l1) { - return NULL; /* avoids a negative `l1' */ - } else { - const char *init; /* to search for a `*s2' inside `s1' */ - l2--; /* 1st char will be checked by `memchr' */ - l1 = l1-l2; /* `s2' cannot be found after that */ - while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { - init++; /* 1st char is already checked */ - if (memcmp(init, s2+1, l2) == 0) { - return init-1; - } else { /* correct `l1' and `s1' to try again */ - l1 -= (size_t)(init-s1); - s1 = init; - } - } - return NULL; /* not found */ - } -} - static void push_onecapture(MatchState *ms, int i, const char *s, const char *e) { if (i >= ms->level) { @@ -501,64 +447,60 @@ static int push_captures(MatchState *ms, const char *s, const char *e) return nlevels; /* number of strings pushed */ } -static ptrdiff_t posrelat(ptrdiff_t pos, size_t len) -{ - /* relative string position: negative means back from end */ - if (pos < 0) pos += (ptrdiff_t)len + 1; - return (pos >= 0) ? pos : 0; -} - static int str_find_aux(lua_State *L, int find) { - size_t l1, l2; - const char *s = luaL_checklstring(L, 1, &l1); - const char *p = luaL_checklstring(L, 2, &l2); - ptrdiff_t init = posrelat(luaL_optinteger(L, 3, 1), l1) - 1; - if (init < 0) { - init = 0; - } else if ((size_t)(init) > l1) { + GCstr *s = lj_lib_checkstr(L, 1); + GCstr *p = lj_lib_checkstr(L, 2); + int32_t start = lj_lib_optint(L, 3, 1); + MSize st; + if (start < 0) start += (int32_t)s->len; else start--; + if (start < 0) start = 0; + st = (MSize)start; + if (st > s->len) { #if LJ_52 setnilV(L->top-1); return 1; #else - init = (ptrdiff_t)l1; + st = s->len; #endif } - if (find && (lua_toboolean(L, 4) || /* explicit request? */ - strpbrk(p, SPECIALS) == NULL)) { /* or no special characters? */ - /* do a plain search */ - const char *s2 = lmemfind(s+init, l1-(size_t)init, p, l2); - if (s2) { - lua_pushinteger(L, s2-s+1); - lua_pushinteger(L, s2-s+(ptrdiff_t)l2); + if (find && ((L->base+3 < L->top && tvistruecond(L->base+3)) || + !lj_str_haspattern(p))) { /* Search for fixed string. */ + const char *q = lj_str_find(strdata(s)+st, strdata(p), s->len-st, p->len); + if (q) { + setintV(L->top-2, (int32_t)(q-strdata(s)) + 1); + setintV(L->top-1, (int32_t)(q-strdata(s)) + (int32_t)p->len); return 2; } - } else { + } else { /* Search for pattern. */ MatchState ms; - int anchor = (*p == '^') ? (p++, 1) : 0; - const char *s1=s+init; + const char *pstr = strdata(p); + const char *sstr = strdata(s) + st; + int anchor = 0; + if (*pstr == '^') { pstr++; anchor = 1; } ms.L = L; - ms.src_init = s; - ms.src_end = s+l1; - do { - const char *res; + ms.src_init = strdata(s); + ms.src_end = strdata(s) + s->len; + do { /* Loop through string and try to match the pattern. */ + const char *q; ms.level = ms.depth = 0; - if ((res=match(&ms, s1, p)) != NULL) { + q = match(&ms, sstr, pstr); + if (q) { if (find) { - lua_pushinteger(L, s1-s+1); /* start */ - lua_pushinteger(L, res-s); /* end */ - return push_captures(&ms, NULL, 0) + 2; + setintV(L->top++, (int32_t)(sstr-(strdata(s)-1))); + setintV(L->top++, (int32_t)(q-strdata(s))); + return push_captures(&ms, NULL, NULL) + 2; } else { - return push_captures(&ms, s1, res); + return push_captures(&ms, sstr, q); } } - } while (s1++ < ms.src_end && !anchor); + } while (sstr++ < ms.src_end && !anchor); } - lua_pushnil(L); /* not found */ + setnilV(L->top-1); /* Not found. */ return 1; } -LJLIB_CF(string_find) +LJLIB_CF(string_find) LJLIB_REC(.) { return str_find_aux(L, 1); } @@ -698,221 +640,91 @@ LJLIB_CF(string_gsub) /* ------------------------------------------------------------------------ */ -/* maximum size of each formatted item (> len(format('%99.99f', -1e308))) */ -#define MAX_FMTITEM 512 -/* valid flags in a format specification */ -#define FMT_FLAGS "-+ #0" -/* -** maximum size of each format specification (such as '%-099.99d') -** (+10 accounts for %99.99x plus margin of error) -*/ -#define MAX_FMTSPEC (sizeof(FMT_FLAGS) + sizeof(LUA_INTFRMLEN) + 10) - -static void addquoted(lua_State *L, luaL_Buffer *b, int arg) -{ - GCstr *str = lj_lib_checkstr(L, arg); - int32_t len = (int32_t)str->len; - const char *s = strdata(str); - luaL_addchar(b, '"'); - while (len--) { - uint32_t c = uchar(*s); - if (c == '"' || c == '\\' || c == '\n') { - luaL_addchar(b, '\\'); - } else if (lj_char_iscntrl(c)) { /* This can only be 0-31 or 127. */ - uint32_t d; - luaL_addchar(b, '\\'); - if (c >= 100 || lj_char_isdigit(uchar(s[1]))) { - luaL_addchar(b, '0'+(c >= 100)); if (c >= 100) c -= 100; - goto tens; - } else if (c >= 10) { - tens: - d = (c * 205) >> 11; c -= d * 10; luaL_addchar(b, '0'+d); - } - c += '0'; - } - luaL_addchar(b, c); - s++; - } - luaL_addchar(b, '"'); -} - -static const char *scanformat(lua_State *L, const char *strfrmt, char *form) -{ - const char *p = strfrmt; - while (*p != '\0' && strchr(FMT_FLAGS, *p) != NULL) p++; /* skip flags */ - if ((size_t)(p - strfrmt) >= sizeof(FMT_FLAGS)) - lj_err_caller(L, LJ_ERR_STRFMTR); - if (lj_char_isdigit(uchar(*p))) p++; /* skip width */ - if (lj_char_isdigit(uchar(*p))) p++; /* (2 digits at most) */ - if (*p == '.') { - p++; - if (lj_char_isdigit(uchar(*p))) p++; /* skip precision */ - if (lj_char_isdigit(uchar(*p))) p++; /* (2 digits at most) */ - } - if (lj_char_isdigit(uchar(*p))) - lj_err_caller(L, LJ_ERR_STRFMTW); - *(form++) = '%'; - strncpy(form, strfrmt, (size_t)(p - strfrmt + 1)); - form += p - strfrmt + 1; - *form = '\0'; - return p; -} - -static void addintlen(char *form) -{ - size_t l = strlen(form); - char spec = form[l - 1]; - strcpy(form + l - 1, LUA_INTFRMLEN); - form[l + sizeof(LUA_INTFRMLEN) - 2] = spec; - form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0'; -} - -static unsigned LUA_INTFRM_T num2intfrm(lua_State *L, int arg) -{ - if (sizeof(LUA_INTFRM_T) == 4) { - return (LUA_INTFRM_T)lj_lib_checkbit(L, arg); - } else { - cTValue *o; - lj_lib_checknumber(L, arg); - o = L->base+arg-1; - if (tvisint(o)) - return (LUA_INTFRM_T)intV(o); - else - return (LUA_INTFRM_T)numV(o); - } -} - -static unsigned LUA_INTFRM_T num2uintfrm(lua_State *L, int arg) -{ - if (sizeof(LUA_INTFRM_T) == 4) { - return (unsigned LUA_INTFRM_T)lj_lib_checkbit(L, arg); - } else { - cTValue *o; - lj_lib_checknumber(L, arg); - o = L->base+arg-1; - if (tvisint(o)) - return (unsigned LUA_INTFRM_T)intV(o); - else if ((int32_t)o->u32.hi < 0) - return (unsigned LUA_INTFRM_T)(LUA_INTFRM_T)numV(o); - else - return (unsigned LUA_INTFRM_T)numV(o); - } -} - -static GCstr *meta_tostring(lua_State *L, int arg) +/* Emulate tostring() inline. */ +static GCstr *string_fmt_tostring(lua_State *L, int arg, int retry) { TValue *o = L->base+arg-1; cTValue *mo; lua_assert(o < L->top); /* Caller already checks for existence. */ if (LJ_LIKELY(tvisstr(o))) return strV(o); - if (!tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { + if (retry != 2 && !tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { copyTV(L, L->top++, mo); copyTV(L, L->top++, o); lua_call(L, 1, 1); - L->top--; - if (tvisstr(L->top)) - return strV(L->top); - o = L->base+arg-1; - copyTV(L, o, L->top); - } - if (tvisnumber(o)) { - return lj_str_fromnumber(L, o); - } else if (tvisnil(o)) { - return lj_str_newlit(L, "nil"); - } else if (tvisfalse(o)) { - return lj_str_newlit(L, "false"); - } else if (tvistrue(o)) { - return lj_str_newlit(L, "true"); - } else { - if (tvisfunc(o) && isffunc(funcV(o))) - lj_str_pushf(L, "function: builtin#%d", funcV(o)->c.ffid); - else - lj_str_pushf(L, "%s: %p", lj_typename(o), lua_topointer(L, arg)); - L->top--; - return strV(L->top); + copyTV(L, L->base+arg-1, --L->top); + return NULL; /* Buffer may be overwritten, retry. */ } -} - -LJLIB_CF(string_format) -{ - int arg = 1, top = (int)(L->top - L->base); - GCstr *fmt = lj_lib_checkstr(L, arg); - const char *strfrmt = strdata(fmt); - const char *strfrmt_end = strfrmt + fmt->len; - luaL_Buffer b; - luaL_buffinit(L, &b); - while (strfrmt < strfrmt_end) { - if (*strfrmt != L_ESC) { - luaL_addchar(&b, *strfrmt++); - } else if (*++strfrmt == L_ESC) { - luaL_addchar(&b, *strfrmt++); /* %% */ - } else { /* format item */ - char form[MAX_FMTSPEC]; /* to store the format (`%...') */ - char buff[MAX_FMTITEM]; /* to store the formatted item */ + return lj_strfmt_obj(L, o); +} + +LJLIB_CF(string_format) LJLIB_REC(.) +{ + int arg, top = (int)(L->top - L->base); + GCstr *fmt; + SBuf *sb; + FormatState fs; + SFormat sf; + int retry = 0; +again: + arg = 1; + sb = lj_buf_tmp_(L); + fmt = lj_lib_checkstr(L, arg); + lj_strfmt_init(&fs, strdata(fmt), fmt->len); + while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { + if (sf == STRFMT_LIT) { + lj_buf_putmem(sb, fs.str, fs.len); + } else if (sf == STRFMT_ERR) { + lj_err_callerv(L, LJ_ERR_STRFMT, strdata(lj_str_new(L, fs.str, fs.len))); + } else { if (++arg > top) luaL_argerror(L, arg, lj_obj_typename[0]); - strfrmt = scanformat(L, strfrmt, form); - switch (*strfrmt++) { - case 'c': - sprintf(buff, form, lj_lib_checkint(L, arg)); + switch (STRFMT_TYPE(sf)) { + case STRFMT_INT: + if (tvisint(L->base+arg-1)) { + int32_t k = intV(L->base+arg-1); + if (sf == STRFMT_INT) + lj_strfmt_putint(sb, k); /* Shortcut for plain %d. */ + else + lj_strfmt_putfxint(sb, sf, k); + } else { + lj_strfmt_putfnum_int(sb, sf, lj_lib_checknum(L, arg)); + } break; - case 'd': case 'i': - addintlen(form); - sprintf(buff, form, num2intfrm(L, arg)); + case STRFMT_UINT: + if (tvisint(L->base+arg-1)) + lj_strfmt_putfxint(sb, sf, intV(L->base+arg-1)); + else + lj_strfmt_putfnum_uint(sb, sf, lj_lib_checknum(L, arg)); break; - case 'o': case 'u': case 'x': case 'X': - addintlen(form); - sprintf(buff, form, num2uintfrm(L, arg)); + case STRFMT_NUM: + lj_strfmt_putfnum(sb, sf, lj_lib_checknum(L, arg)); break; - case 'e': case 'E': case 'f': case 'g': case 'G': case 'a': case 'A': { - TValue tv; - tv.n = lj_lib_checknum(L, arg); - if (LJ_UNLIKELY((tv.u32.hi << 1) >= 0xffe00000)) { - /* Canonicalize output of non-finite values. */ - char *p, nbuf[LJ_STR_NUMBUF]; - size_t len = lj_str_bufnum(nbuf, &tv); - if (strfrmt[-1] < 'a') { - nbuf[len-3] = nbuf[len-3] - 0x20; - nbuf[len-2] = nbuf[len-2] - 0x20; - nbuf[len-1] = nbuf[len-1] - 0x20; - } - nbuf[len] = '\0'; - for (p = form; *p < 'A' && *p != '.'; p++) ; - *p++ = 's'; *p = '\0'; - sprintf(buff, form, nbuf); - break; - } - sprintf(buff, form, (double)tv.n); + case STRFMT_STR: { + GCstr *str = string_fmt_tostring(L, arg, retry); + if (str == NULL) + retry = 1; + else if ((sf & STRFMT_T_QUOTED)) + lj_strfmt_putquoted(sb, str); /* No formatting. */ + else + lj_strfmt_putfstr(sb, sf, str); break; } - case 'q': - addquoted(L, &b, arg); - continue; - case 'p': - lj_str_pushf(L, "%p", lua_topointer(L, arg)); - luaL_addvalue(&b); - continue; - case 's': { - GCstr *str = meta_tostring(L, arg); - if (!strchr(form, '.') && str->len >= 100) { - /* no precision and string is too long to be formatted; - keep original string */ - setstrV(L, L->top++, str); - luaL_addvalue(&b); - continue; - } - sprintf(buff, form, strdata(str)); + case STRFMT_CHAR: + lj_strfmt_putfchar(sb, sf, lj_lib_checkint(L, arg)); + break; + case STRFMT_PTR: /* No formatting. */ + lj_strfmt_putptr(sb, lj_obj_ptr(L->base+arg-1)); break; - } default: - lj_err_callerv(L, LJ_ERR_STRFMTO, *(strfrmt -1)); + lua_assert(0); break; } - luaL_addlstring(&b, buff, strlen(buff)); } } - luaL_pushresult(&b); + if (retry++ == 1) goto again; + setstrV(L, L->top-1, lj_buf_str(L, sb)); + lj_gc_check(L); return 1; } diff --git a/src/3rd party/luajit-2.0/src/lib_table.c b/src/3rd party/luajit-2.0/src/lib_table.c index fbfe863873b..56612aba983 100644 --- a/src/3rd party/luajit-2.0/src/lib_table.c +++ b/src/3rd party/luajit-2.0/src/lib_table.c @@ -16,57 +16,43 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_tab.h" +#include "lj_ff.h" #include "lj_lib.h" /* ------------------------------------------------------------------------ */ #define LJLIB_MODULE_table -LJLIB_CF(table_foreachi) -{ - GCtab *t = lj_lib_checktab(L, 1); - GCfunc *func = lj_lib_checkfunc(L, 2); - MSize i, n = lj_tab_len(t); - for (i = 1; i <= n; i++) { - cTValue *val; - setfuncV(L, L->top, func); - setintV(L->top+1, i); - val = lj_tab_getint(t, (int32_t)i); - if (val) { copyTV(L, L->top+2, val); } else { setnilV(L->top+2); } - L->top += 3; - lua_call(L, 2, 1); - if (!tvisnil(L->top-1)) - return 1; - L->top--; - } - return 0; -} +LJLIB_LUA(table_foreachi) /* + function(t, f) + CHECK_tab(t) + CHECK_func(f) + for i=1,#t do + local r = f(i, t[i]) + if r ~= nil then return r end + end + end +*/ -LJLIB_CF(table_foreach) -{ - GCtab *t = lj_lib_checktab(L, 1); - GCfunc *func = lj_lib_checkfunc(L, 2); - L->top = L->base+3; - setnilV(L->top-1); - while (lj_tab_next(L, t, L->top-1)) { - copyTV(L, L->top+2, L->top); - copyTV(L, L->top+1, L->top-1); - setfuncV(L, L->top, func); - L->top += 3; - lua_call(L, 2, 1); - if (!tvisnil(L->top-1)) - return 1; - L->top--; - } - return 0; -} +LJLIB_LUA(table_foreach) /* + function(t, f) + CHECK_tab(t) + CHECK_func(f) + for k, v in PAIRS(t) do + local r = f(k, v) + if r ~= nil then return r end + end + end +*/ -LJLIB_ASM(table_getn) LJLIB_REC(.) -{ - lj_lib_checktab(L, 1); - return FFH_UNREACHABLE; -} +LJLIB_LUA(table_getn) /* + function(t) + CHECK_tab(t) + return #t + end +*/ LJLIB_CF(table_maxn) { @@ -119,52 +105,47 @@ LJLIB_CF(table_insert) LJLIB_REC(.) return 0; } -LJLIB_CF(table_remove) LJLIB_REC(.) -{ - GCtab *t = lj_lib_checktab(L, 1); - int32_t e = (int32_t)lj_tab_len(t); - int32_t pos = lj_lib_optint(L, 2, e); - if (!(1 <= pos && pos <= e)) /* Nothing to remove? */ - return 0; - lua_rawgeti(L, 1, pos); /* Get previous value. */ - /* NOBARRIER: This just moves existing elements around. */ - for (; pos < e; pos++) { - cTValue *src = lj_tab_getint(t, pos+1); - TValue *dst = lj_tab_setint(L, t, pos); - if (src) { - copyTV(L, dst, src); - } else { - setnilV(dst); - } - } - setnilV(lj_tab_setint(L, t, e)); /* Remove (last) value. */ - return 1; /* Return previous value. */ -} +LJLIB_LUA(table_remove) /* + function(t, pos) + CHECK_tab(t) + local len = #t + if pos == nil then + if len ~= 0 then + local old = t[len] + t[len] = nil + return old + end + else + CHECK_int(pos) + if pos >= 1 and pos <= len then + local old = t[pos] + for i=pos+1,len do + t[i-1] = t[i] + end + t[len] = nil + return old + end + end + end +*/ -LJLIB_CF(table_concat) +LJLIB_CF(table_concat) LJLIB_REC(.) { - luaL_Buffer b; GCtab *t = lj_lib_checktab(L, 1); GCstr *sep = lj_lib_optstr(L, 2); - MSize seplen = sep ? sep->len : 0; int32_t i = lj_lib_optint(L, 3, 1); int32_t e = (L->base+3 < L->top && !tvisnil(L->base+3)) ? lj_lib_checkint(L, 4) : (int32_t)lj_tab_len(t); - luaL_buffinit(L, &b); - if (i <= e) { - for (;;) { - cTValue *o; - lua_rawgeti(L, 1, i); - o = L->top-1; - if (!(tvisstr(o) || tvisnumber(o))) - lj_err_callerv(L, LJ_ERR_TABCAT, lj_typename(o), i); - luaL_addvalue(&b); - if (i++ == e) break; - if (seplen) - luaL_addlstring(&b, strdata(sep), seplen); - } + SBuf *sb = lj_buf_tmp_(L); + SBuf *sbx = lj_buf_puttab(sb, t, sep, i, e); + if (LJ_UNLIKELY(!sbx)) { /* Error: bad element type. */ + int32_t idx = (int32_t)(intptr_t)sbufP(sb); + cTValue *o = lj_tab_getint(t, idx); + lj_err_callerv(L, LJ_ERR_TABCAT, + lj_obj_itypename[o ? itypemap(o) : ~LJ_TNIL], idx); } - luaL_pushresult(&b); + setstrV(L, L->top-1, lj_buf_str(L, sbx)); + lj_gc_check(L); return 1; } @@ -284,6 +265,30 @@ LJLIB_CF(table_pack) } #endif +LJLIB_NOREG LJLIB_CF(table_new) LJLIB_REC(.) +{ + int32_t a = lj_lib_checkint(L, 1); + int32_t h = lj_lib_checkint(L, 2); + lua_createtable(L, a, h); + return 1; +} + +LJLIB_NOREG LJLIB_CF(table_clear) LJLIB_REC(.) +{ + lj_tab_clear(lj_lib_checktab(L, 1)); + return 0; +} + +static int luaopen_table_new(lua_State *L) +{ + return lj_lib_postreg(L, lj_cf_table_new, FF_table_new, "new"); +} + +static int luaopen_table_clear(lua_State *L) +{ + return lj_lib_postreg(L, lj_cf_table_clear, FF_table_clear, "clear"); +} + /* ------------------------------------------------------------------------ */ #include "lj_libdef.h" @@ -295,6 +300,8 @@ LUALIB_API int luaopen_table(lua_State *L) lua_getglobal(L, "unpack"); lua_setfield(L, -2, "unpack"); #endif + lj_lib_prereg(L, LUA_TABLIBNAME ".new", luaopen_table_new, tabV(L->top-1)); + lj_lib_prereg(L, LUA_TABLIBNAME ".clear", luaopen_table_clear, tabV(L->top-1)); return 1; } diff --git a/src/3rd party/luajit-2.0/src/lj_alloc.c b/src/3rd party/luajit-2.0/src/lj_alloc.c index 7c7ec678726..0aad826d361 100644 --- a/src/3rd party/luajit-2.0/src/lj_alloc.c +++ b/src/3rd party/luajit-2.0/src/lj_alloc.c @@ -77,7 +77,7 @@ #define WIN32_LEAN_AND_MEAN #include -#if LJ_64 +#if LJ_64 && !LJ_GC64 /* Undocumented, but hey, that's what we all love so much about Windows. */ typedef long (*PNTAVM)(HANDLE handle, void **addr, ULONG zbits, @@ -174,8 +174,10 @@ static LJ_AINLINE int CALL_MUNMAP(void *ptr, size_t size) #endif #define MMAP_FLAGS (MAP_PRIVATE|MAP_ANONYMOUS) -#if LJ_64 -/* 64 bit mode needs special support for allocating memory in the lower 2GB. */ +#if LJ_64 && !LJ_GC64 +/* 64 bit mode with 32 bit pointers needs special support for allocating +** memory in the lower 2GB. +*/ #if defined(MAP_32BIT) @@ -258,7 +260,7 @@ static LJ_AINLINE void *CALL_MMAP(size_t size) #else -/* 32 bit mode is easy. */ +/* 32 bit mode and GC64 mode is easy. */ static LJ_AINLINE void *CALL_MMAP(size_t size) { int olderr = errno; @@ -294,7 +296,7 @@ static LJ_AINLINE void *CALL_MREMAP_(void *ptr, size_t osz, size_t nsz, #define CALL_MREMAP(addr, osz, nsz, mv) CALL_MREMAP_((addr), (osz), (nsz), (mv)) #define CALL_MREMAP_NOMOVE 0 #define CALL_MREMAP_MAYMOVE 1 -#if LJ_64 +#if LJ_64 && !LJ_GC64 #define CALL_MREMAP_MV CALL_MREMAP_NOMOVE #else #define CALL_MREMAP_MV CALL_MREMAP_MAYMOVE diff --git a/src/3rd party/luajit-2.0/src/lj_api.c b/src/3rd party/luajit-2.0/src/lj_api.c index 3bedb39fd70..1f09284f991 100644 --- a/src/3rd party/luajit-2.0/src/lj_api.c +++ b/src/3rd party/luajit-2.0/src/lj_api.c @@ -24,6 +24,7 @@ #include "lj_trace.h" #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" /* -- Common helper functions --------------------------------------------- */ @@ -188,7 +189,7 @@ LUA_API int lua_type(lua_State *L, int idx) cTValue *o = index2adr(L, idx); if (tvisnumber(o)) { return LUA_TNUMBER; -#if LJ_64 +#if LJ_64 && !LJ_GC64 } else if (tvislightud(o)) { return LUA_TLIGHTUSERDATA; #endif @@ -268,7 +269,7 @@ LUA_API int lua_equal(lua_State *L, int idx1, int idx2) return 0; } else if (tvispri(o1)) { return o1 != niltv(L) && o2 != niltv(L); -#if LJ_64 +#if LJ_64 && !LJ_GC64 } else if (tvislightud(o1)) { return o1->u64 == o2->u64; #endif @@ -283,8 +284,8 @@ LUA_API int lua_equal(lua_State *L, int idx1, int idx2) } else { L->top = base+2; lj_vm_call(L, base, 1+1); - L->top -= 2; - return tvistruecond(L->top+1); + L->top -= 2+LJ_FR2; + return tvistruecond(L->top+1+LJ_FR2); } } } @@ -306,8 +307,8 @@ LUA_API int lua_lessthan(lua_State *L, int idx1, int idx2) } else { L->top = base+2; lj_vm_call(L, base, 1+1); - L->top -= 2; - return tvistruecond(L->top+1); + L->top -= 2+LJ_FR2; + return tvistruecond(L->top+1+LJ_FR2); } } } @@ -434,7 +435,7 @@ LUA_API const char *lua_tolstring(lua_State *L, int idx, size_t *len) } else if (tvisnumber(o)) { lj_gc_check(L); o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_str_fromnumber(L, o); + s = lj_strfmt_number(L, o); setstrV(L, o, s); } else { if (len != NULL) *len = 0; @@ -453,7 +454,7 @@ LUALIB_API const char *luaL_checklstring(lua_State *L, int idx, size_t *len) } else if (tvisnumber(o)) { lj_gc_check(L); o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_str_fromnumber(L, o); + s = lj_strfmt_number(L, o); setstrV(L, o, s); } else { lj_err_argt(L, idx, LUA_TSTRING); @@ -475,7 +476,7 @@ LUALIB_API const char *luaL_optlstring(lua_State *L, int idx, } else if (tvisnumber(o)) { lj_gc_check(L); o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_str_fromnumber(L, o); + s = lj_strfmt_number(L, o); setstrV(L, o, s); } else { lj_err_argt(L, idx, LUA_TSTRING); @@ -507,7 +508,7 @@ LUA_API size_t lua_objlen(lua_State *L, int idx) } else if (tvisudata(o)) { return udataV(o)->len; } else if (tvisnumber(o)) { - GCstr *s = lj_str_fromnumber(L, o); + GCstr *s = lj_strfmt_number(L, o); setstrV(L, o, s); return s->len; } else { @@ -545,17 +546,7 @@ LUA_API lua_State *lua_tothread(lua_State *L, int idx) LUA_API const void *lua_topointer(lua_State *L, int idx) { - cTValue *o = index2adr(L, idx); - if (tvisudata(o)) - return uddata(udataV(o)); - else if (tvislightud(o)) - return lightudV(o); - else if (tviscdata(o)) - return cdataptr(cdataV(o)); - else if (tvisgcv(o)) - return gcV(o); - else - return NULL; + return lj_obj_ptr(index2adr(L, idx)); } /* -- Stack setters (object creation) ------------------------------------- */ @@ -606,7 +597,7 @@ LUA_API const char *lua_pushvfstring(lua_State *L, const char *fmt, va_list argp) { lj_gc_check(L); - return lj_str_pushvf(L, fmt, argp); + return lj_strfmt_pushvf(L, fmt, argp); } LUA_API const char *lua_pushfstring(lua_State *L, const char *fmt, ...) @@ -615,7 +606,7 @@ LUA_API const char *lua_pushfstring(lua_State *L, const char *fmt, ...) va_list argp; lj_gc_check(L); va_start(argp, fmt); - ret = lj_str_pushvf(L, fmt, argp); + ret = lj_strfmt_pushvf(L, fmt, argp); va_end(argp); return ret; } @@ -649,10 +640,8 @@ LUA_API void lua_pushlightuserdata(lua_State *L, void *p) LUA_API void lua_createtable(lua_State *L, int narray, int nrec) { - GCtab *t; lj_gc_check(L); - t = lj_tab_new(L, (uint32_t)(narray > 0 ? narray+1 : 0), hsize2hbits(nrec)); - settabV(L, L->top, t); + settabV(L, L->top, lj_tab_new_ah(L, narray, nrec)); incr_top(L); } @@ -715,8 +704,8 @@ LUA_API void lua_concat(lua_State *L, int n) n -= (int)(L->top - top); L->top = top+2; lj_vm_call(L, top, 1+1); - L->top--; - copyTV(L, L->top-1, L->top); + L->top -= 1+LJ_FR2; + copyTV(L, L->top-1, L->top+LJ_FR2); } while (--n > 0); } else if (n == 0) { /* Push empty string. */ setstrV(L, L->top, &G(L)->strempty); @@ -735,8 +724,8 @@ LUA_API void lua_gettable(lua_State *L, int idx) if (v == NULL) { L->top += 2; lj_vm_call(L, L->top-2, 1+1); - L->top -= 2; - v = L->top+1; + L->top -= 2+LJ_FR2; + v = L->top+1+LJ_FR2; } copyTV(L, L->top-1, v); } @@ -751,8 +740,8 @@ LUA_API void lua_getfield(lua_State *L, int idx, const char *k) if (v == NULL) { L->top += 2; lj_vm_call(L, L->top-2, 1+1); - L->top -= 2; - v = L->top+1; + L->top -= 2+LJ_FR2; + v = L->top+1+LJ_FR2; } copyTV(L, L->top, v); incr_top(L); @@ -893,13 +882,14 @@ LUA_API void lua_settable(lua_State *L, int idx) o = lj_meta_tset(L, t, L->top-2); if (o) { /* NOBARRIER: lj_meta_tset ensures the table is not black. */ - copyTV(L, o, L->top-1); L->top -= 2; + copyTV(L, o, L->top+1); } else { - L->top += 3; - copyTV(L, L->top-1, L->top-6); - lj_vm_call(L, L->top-3, 0+1); - L->top -= 3; + TValue *base = L->top; + copyTV(L, base+2, base-3-2*LJ_FR2); + L->top = base+3; + lj_vm_call(L, base, 0+1); + L->top -= 3+LJ_FR2; } } @@ -913,14 +903,14 @@ LUA_API void lua_setfield(lua_State *L, int idx, const char *k) setstrV(L, &key, lj_str_newz(L, k)); o = lj_meta_tset(L, t, &key); if (o) { - L->top--; /* NOBARRIER: lj_meta_tset ensures the table is not black. */ - copyTV(L, o, L->top); + copyTV(L, o, --L->top); } else { - L->top += 3; - copyTV(L, L->top-1, L->top-6); - lj_vm_call(L, L->top-3, 0+1); - L->top -= 2; + TValue *base = L->top; + copyTV(L, base+2, base-3-2*LJ_FR2); + L->top = base+3; + lj_vm_call(L, base, 0+1); + L->top -= 2+LJ_FR2; } } @@ -1027,11 +1017,24 @@ LUA_API const char *lua_setupvalue(lua_State *L, int idx, int n) /* -- Calls --------------------------------------------------------------- */ +#if LJ_FR2 +static TValue *api_call_base(lua_State *L, int nargs) +{ + TValue *o = L->top, *base = o - nargs; + L->top = o+1; + for (; o > base; o--) copyTV(L, o, o-1); + setnilV(o); + return o+1; +} +#else +#define api_call_base(L, nargs) (L->top - (nargs)) +#endif + LUA_API void lua_call(lua_State *L, int nargs, int nresults) { api_check(L, L->status == 0 || L->status == LUA_ERRERR); api_checknelems(L, nargs+1); - lj_vm_call(L, L->top - nargs, nresults+1); + lj_vm_call(L, api_call_base(L, nargs), nresults+1); } LUA_API int lua_pcall(lua_State *L, int nargs, int nresults, int errfunc) @@ -1049,7 +1052,7 @@ LUA_API int lua_pcall(lua_State *L, int nargs, int nresults, int errfunc) api_checkvalidindex(L, o); ef = savestack(L, o); } - status = lj_vm_pcall(L, L->top - nargs, nresults+1, ef); + status = lj_vm_pcall(L, api_call_base(L, nargs), nresults+1, ef); if (status) hook_restore(g, oldh); return status; } @@ -1057,12 +1060,14 @@ LUA_API int lua_pcall(lua_State *L, int nargs, int nresults, int errfunc) static TValue *cpcall(lua_State *L, lua_CFunction func, void *ud) { GCfunc *fn = lj_func_newC(L, 0, getcurrenv(L)); + TValue *top = L->top; fn->c.f = func; - setfuncV(L, L->top, fn); - setlightudV(L->top+1, checklightudptr(L, ud)); + setfuncV(L, top++, fn); + if (LJ_FR2) setnilV(top++); + setlightudV(top++, checklightudptr(L, ud)); cframe_nres(L->cframe) = 1+0; /* Zero results. */ - L->top += 2; - return L->top-1; /* Now call the newly allocated C function. */ + L->top = top; + return top-1; /* Now call the newly allocated C function. */ } LUA_API int lua_cpcall(lua_State *L, lua_CFunction func, void *ud) @@ -1079,10 +1084,11 @@ LUA_API int lua_cpcall(lua_State *L, lua_CFunction func, void *ud) LUALIB_API int luaL_callmeta(lua_State *L, int idx, const char *field) { if (luaL_getmetafield(L, idx, field)) { - TValue *base = L->top--; - copyTV(L, base, index2adr(L, idx)); - L->top = base+1; - lj_vm_call(L, base, 1+1); + TValue *top = L->top--; + if (LJ_FR2) setnilV(top++); + copyTV(L, top++, index2adr(L, idx)); + L->top = top; + lj_vm_call(L, top-1, 1+1); return 1; } return 0; @@ -1109,12 +1115,14 @@ LUA_API int lua_yield(lua_State *L, int nresults) } else { /* Yield from hook: add a pseudo-frame. */ TValue *top = L->top; hook_leave(g); - top->u64 = cframe_multres(cf); - setcont(top+1, lj_cont_hook); - setframe_pc(top+1, cframe_pc(cf)-1); - setframe_gc(top+2, obj2gco(L)); - setframe_ftsz(top+2, (int)((char *)(top+3)-(char *)L->base)+FRAME_CONT); - L->top = L->base = top+3; + (top++)->u64 = cframe_multres(cf); + setcont(top, lj_cont_hook); + if (LJ_FR2) top++; + setframe_pc(top, cframe_pc(cf)-1); + if (LJ_FR2) top++; + setframe_gc(top, obj2gco(L), LJ_TTHREAD); + setframe_ftsz(top, ((char *)(top+1)-(char *)L->base)+FRAME_CONT); + L->top = L->base = top+1; #if LJ_TARGET_X64 lj_err_throw(L, LUA_YIELD); #else @@ -1131,7 +1139,9 @@ LUA_API int lua_yield(lua_State *L, int nresults) LUA_API int lua_resume(lua_State *L, int nargs) { if (L->cframe == NULL && L->status <= LUA_YIELD) - return lj_vm_resume(L, L->top - nargs, 0, 0); + return lj_vm_resume(L, + L->status == 0 ? api_call_base(L, nargs) : L->top - nargs, + 0, 0); L->top = L->base; setstrV(L, L->top, lj_err_str(L, LJ_ERR_COSUSP)); incr_top(L); @@ -1161,7 +1171,7 @@ LUA_API int lua_gc(lua_State *L, int what, int data) res = (int)(g->gc.total & 0x3ff); break; case LUA_GCSTEP: { - MSize a = (MSize)data << 10; + GCSize a = (GCSize)data << 10; g->gc.threshold = (a <= g->gc.total) ? (g->gc.total - a) : 0; while (g->gc.total >= g->gc.threshold) if (lj_gc_step(L) > 0) { diff --git a/src/3rd party/luajit-2.0/src/lj_arch.h b/src/3rd party/luajit-2.0/src/lj_arch.h index 2769086ce42..6b5cd1bda6f 100644 --- a/src/3rd party/luajit-2.0/src/lj_arch.h +++ b/src/3rd party/luajit-2.0/src/lj_arch.h @@ -19,10 +19,10 @@ #define LUAJIT_ARCH_x64 2 #define LUAJIT_ARCH_ARM 3 #define LUAJIT_ARCH_arm 3 -#define LUAJIT_ARCH_PPC 4 -#define LUAJIT_ARCH_ppc 4 -#define LUAJIT_ARCH_PPCSPE 5 -#define LUAJIT_ARCH_ppcspe 5 +#define LUAJIT_ARCH_ARM64 4 +#define LUAJIT_ARCH_arm64 4 +#define LUAJIT_ARCH_PPC 5 +#define LUAJIT_ARCH_ppc 5 #define LUAJIT_ARCH_MIPS 6 #define LUAJIT_ARCH_mips 6 @@ -43,12 +43,10 @@ #define LUAJIT_TARGET LUAJIT_ARCH_X64 #elif defined(__arm__) || defined(__arm) || defined(__ARM__) || defined(__ARM) #define LUAJIT_TARGET LUAJIT_ARCH_ARM +#elif defined(__aarch64__) +#define LUAJIT_TARGET LUAJIT_ARCH_ARM64 #elif defined(__ppc__) || defined(__ppc) || defined(__PPC__) || defined(__PPC) || defined(__powerpc__) || defined(__powerpc) || defined(__POWERPC__) || defined(__POWERPC) || defined(_M_PPC) -#ifdef __NO_FPRS__ -#define LUAJIT_TARGET LUAJIT_ARCH_PPCSPE -#else #define LUAJIT_TARGET LUAJIT_ARCH_PPC -#endif #elif defined(__mips__) || defined(__mips) || defined(__MIPS__) || defined(__MIPS) #define LUAJIT_TARGET LUAJIT_ARCH_MIPS #else @@ -96,7 +94,7 @@ #define LJ_TARGET_WINDOWS (LUAJIT_OS == LUAJIT_OS_WINDOWS) #define LJ_TARGET_LINUX (LUAJIT_OS == LUAJIT_OS_LINUX) #define LJ_TARGET_OSX (LUAJIT_OS == LUAJIT_OS_OSX) -#define LJ_TARGET_IOS (LJ_TARGET_OSX && LUAJIT_TARGET == LUAJIT_ARCH_ARM) +#define LJ_TARGET_IOS (LJ_TARGET_OSX && (LUAJIT_TARGET == LUAJIT_ARCH_ARM || LUAJIT_TARGET == LUAJIT_ARCH_ARM64)) #define LJ_TARGET_POSIX (LUAJIT_OS > LUAJIT_OS_WINDOWS) #define LJ_TARGET_DLOPEN LJ_TARGET_POSIX @@ -191,6 +189,23 @@ #define LJ_ARCH_VERSION 50 #endif +#elif LUAJIT_TARGET == LUAJIT_ARCH_ARM64 + +#define LJ_ARCH_NAME "arm64" +#define LJ_ARCH_BITS 64 +#define LJ_ARCH_ENDIAN LUAJIT_LE +#define LJ_TARGET_ARM64 1 +#define LJ_TARGET_EHRETREG 0 +#define LJ_TARGET_JUMPRANGE 27 /* +-2^27 = +-128MB */ +#define LJ_TARGET_MASKSHIFT 1 +#define LJ_TARGET_MASKROT 1 +#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ +#define LJ_TARGET_GC64 1 +#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL +#define LJ_ARCH_NOJIT 1 /* NYI */ + +#define LJ_ARCH_VERSION 80 + #elif LUAJIT_TARGET == LUAJIT_ARCH_PPC #define LJ_ARCH_NAME "ppc" @@ -238,25 +253,6 @@ #define LJ_ARCH_XENON 1 #endif -#elif LUAJIT_TARGET == LUAJIT_ARCH_PPCSPE - -#define LJ_ARCH_NAME "ppcspe" -#define LJ_ARCH_BITS 32 -#define LJ_ARCH_ENDIAN LUAJIT_BE -#ifndef LJ_ABI_SOFTFP -#define LJ_ABI_SOFTFP 1 -#endif -#define LJ_ABI_EABI 1 -#define LJ_TARGET_PPCSPE 1 -#define LJ_TARGET_EHRETREG 3 -#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ -#define LJ_TARGET_MASKSHIFT 0 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNIFYROT 1 /* Want only IR_BROL. */ -#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE -#define LJ_ARCH_NOFFI 1 /* NYI: comparisons, calls. */ -#define LJ_ARCH_NOJIT 1 - #elif LUAJIT_TARGET == LUAJIT_ARCH_MIPS #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) @@ -303,6 +299,16 @@ #if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 2) #error "Need at least GCC 4.2 or newer" #endif +#elif LJ_TARGET_ARM64 +#if __clang__ +#if (__clang_major__ < 3) || ((__clang_major__ == 3) && __clang_minor__ < 5) +#error "Need at least Clang 3.5 or newer" +#endif +#else +#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 8) +#error "Need at least GCC 4.8 or newer" +#endif +#endif #elif !LJ_TARGET_PS3 #if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 3) #error "Need at least GCC 4.3 or newer" @@ -326,7 +332,14 @@ #if !(__ARM_EABI__ || LJ_TARGET_IOS) #error "Only ARM EABI or iOS 3.0+ ABI is supported" #endif -#elif LJ_TARGET_PPC || LJ_TARGET_PPCSPE +#elif LJ_TARGET_ARM64 +#if defined(__AARCH64EB__) +#error "No support for big-endian ARM64" +#endif +#if defined(_ILP32) +#error "No support for ILP32 model on ARM64" +#endif +#elif LJ_TARGET_PPC #if defined(_SOFT_FLOAT) || defined(_SOFT_DOUBLE) #error "No support for PowerPC CPUs without double-precision FPU" #endif @@ -336,6 +349,9 @@ #if defined(_LP64) #error "No support for PowerPC 64 bit mode" #endif +#ifdef __NO_FPRS__ +#error "No support for PPC/e500 anymore (use LuaJIT 2.0)" +#endif #elif LJ_TARGET_MIPS #if defined(__mips_soft_float) #error "No support for MIPS CPUs without FPU" @@ -364,8 +380,22 @@ #endif #endif +/* 64 bit GC references. */ +#if LJ_TARGET_GC64 +#define LJ_GC64 1 +#else +#define LJ_GC64 0 +#endif + +/* 2-slot frame info. */ +#if LJ_GC64 +#define LJ_FR2 1 +#else +#define LJ_FR2 0 +#endif + /* Disable or enable the JIT compiler. */ -#if defined(LUAJIT_DISABLE_JIT) || defined(LJ_ARCH_NOJIT) || defined(LJ_OS_NOJIT) +#if defined(LUAJIT_DISABLE_JIT) || defined(LJ_ARCH_NOJIT) || defined(LJ_OS_NOJIT) || LJ_FR2 || LJ_GC64 #define LJ_HASJIT 0 #else #define LJ_HASJIT 1 @@ -378,6 +408,21 @@ #define LJ_HASFFI 1 #endif +#if defined(LUAJIT_DISABLE_PROFILE) +#define LJ_HASPROFILE 0 +#elif LJ_TARGET_POSIX +#define LJ_HASPROFILE 1 +#define LJ_PROFILE_SIGPROF 1 +#elif LJ_TARGET_PS3 +#define LJ_HASPROFILE 1 +#define LJ_PROFILE_PTHREAD 1 +#elif LJ_TARGET_WINDOWS || LJ_TARGET_XBOX360 +#define LJ_HASPROFILE 1 +#define LJ_PROFILE_WTHREAD 1 +#else +#define LJ_HASPROFILE 0 +#endif + #ifndef LJ_ARCH_HASFPU #define LJ_ARCH_HASFPU 1 #endif @@ -410,11 +455,11 @@ #define LJ_TARGET_UNALIGNED 0 #endif -/* Various workarounds for embedded operating systems. */ -#if (defined(__ANDROID__) && !defined(LJ_TARGET_X86ORX64)) || defined(__symbian__) || LJ_TARGET_XBOX360 +/* Various workarounds for embedded operating systems or weak C runtimes. */ +#if (defined(__ANDROID__) && !defined(LJ_TARGET_X86ORX64)) || defined(__symbian__) || LJ_TARGET_XBOX360 || LJ_TARGET_WINDOWS #define LUAJIT_NO_LOG2 #endif -#if defined(__symbian__) +#if defined(__symbian__) || LJ_TARGET_WINDOWS #define LUAJIT_NO_EXP2 #endif diff --git a/src/3rd party/luajit-2.0/src/lj_asm.c b/src/3rd party/luajit-2.0/src/lj_asm.c index 804b4dc80b2..9db950a2bd1 100644 --- a/src/3rd party/luajit-2.0/src/lj_asm.c +++ b/src/3rd party/luajit-2.0/src/lj_asm.c @@ -179,6 +179,12 @@ IRFLDEF(FLOFS) #error "Missing instruction emitter for target CPU" #endif +/* Generic load/store of register from/to stack slot. */ +#define emit_spload(as, ir, r, ofs) \ + emit_loadofs(as, ir, (r), RID_SP, (ofs)) +#define emit_spstore(as, ir, r, ofs) \ + emit_storeofs(as, ir, (r), RID_SP, (ofs)) + /* -- Register allocator debugging ---------------------------------------- */ /* #define LUAJIT_DEBUG_RA */ @@ -336,7 +342,7 @@ static Reg ra_rematk(ASMState *as, IRRef ref) emit_getgl(as, r, jit_base); } else if (emit_canremat(ASMREF_L) && ir->o == IR_KPRI) { lua_assert(irt_isnil(ir->t)); /* REF_NIL stores ASMREF_L register. */ - emit_getgl(as, r, jit_L); + emit_getgl(as, r, cur_L); #if LJ_64 } else if (ir->o == IR_KINT64) { emit_loadu64(as, r, ir_kint64(ir)->u64); @@ -694,7 +700,7 @@ static void ra_left(ASMState *as, Reg dest, IRRef lref) emit_loadu64(as, dest, ir_kint64(ir)->u64); return; #endif - } else { + } else if (ir->o != IR_KPRI) { lua_assert(ir->o == IR_KINT || ir->o == IR_KGC || ir->o == IR_KPTR || ir->o == IR_KKPTR || ir->o == IR_KNULL); emit_loadi(as, dest, ir->i); @@ -944,44 +950,6 @@ static void asm_snap_prep(ASMState *as) /* -- Miscellaneous helpers ----------------------------------------------- */ -/* Collect arguments from CALL* and CARG instructions. */ -static void asm_collectargs(ASMState *as, IRIns *ir, - const CCallInfo *ci, IRRef *args) -{ - uint32_t n = CCI_NARGS(ci); - lua_assert(n <= CCI_NARGS_MAX*2); /* Account for split args. */ - if ((ci->flags & CCI_L)) { *args++ = ASMREF_L; n--; } - while (n-- > 1) { - ir = IR(ir->op1); - lua_assert(ir->o == IR_CARG); - args[n] = ir->op2 == REF_NIL ? 0 : ir->op2; - } - args[0] = ir->op1 == REF_NIL ? 0 : ir->op1; - lua_assert(IR(ir->op1)->o != IR_CARG); -} - -/* Reconstruct CCallInfo flags for CALLX*. */ -static uint32_t asm_callx_flags(ASMState *as, IRIns *ir) -{ - uint32_t nargs = 0; - if (ir->op1 != REF_NIL) { /* Count number of arguments first. */ - IRIns *ira = IR(ir->op1); - nargs++; - while (ira->o == IR_CARG) { nargs++; ira = IR(ira->op1); } - } -#if LJ_HASFFI - if (IR(ir->op2)->o == IR_CARG) { /* Copy calling convention info. */ - CTypeID id = (CTypeID)IR(IR(ir->op2)->op2)->i; - CType *ct = ctype_get(ctype_ctsG(J2G(as->J)), id); - nargs |= ((ct->info & CTF_VARARG) ? CCI_VARARG : 0); -#if LJ_TARGET_X86 - nargs |= (ctype_cconv(ct->info) << CCI_CC_SHIFT); -#endif - } -#endif - return (nargs | (ir->t.irt << CCI_OTSHIFT)); -} - /* Calculate stack adjustment. */ static int32_t asm_stack_adjust(ASMState *as) { @@ -1066,6 +1034,259 @@ static void asm_gcstep(ASMState *as, IRIns *ir) as->gcsteps = 0x80000000; /* Prevent implicit GC check further up. */ } +/* -- Buffer operations --------------------------------------------------- */ + +static void asm_tvptr(ASMState *as, Reg dest, IRRef ref); + +static void asm_bufhdr(ASMState *as, IRIns *ir) +{ + Reg sb = ra_dest(as, ir, RSET_GPR); + if ((ir->op2 & IRBUFHDR_APPEND)) { + /* Rematerialize const buffer pointer instead of likely spill. */ + IRIns *irp = IR(ir->op1); + if (!(ra_hasreg(irp->r) || irp == ir-1 || + (irp == ir-2 && !ra_used(ir-1)))) { + while (!(irp->o == IR_BUFHDR && !(irp->op2 & IRBUFHDR_APPEND))) + irp = IR(irp->op1); + if (irref_isk(irp->op1)) { + ra_weak(as, ra_allocref(as, ir->op1, RSET_GPR)); + ir = irp; + } + } + } else { + Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, sb)); + /* Passing ir isn't strictly correct, but it's an IRT_P32, too. */ + emit_storeofs(as, ir, tmp, sb, offsetof(SBuf, p)); + emit_loadofs(as, ir, tmp, sb, offsetof(SBuf, b)); + } +#if LJ_TARGET_X86ORX64 + ra_left(as, sb, ir->op1); +#else + ra_leftov(as, sb, ir->op1); +#endif +} + +static void asm_bufput(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_buf_putstr]; + IRRef args[3]; + IRIns *irs; + int kchar = -1; + args[0] = ir->op1; /* SBuf * */ + args[1] = ir->op2; /* GCstr * */ + irs = IR(ir->op2); + lua_assert(irt_isstr(irs->t)); + if (irs->o == IR_KGC) { + GCstr *s = ir_kstr(irs); + if (s->len == 1) { /* Optimize put of single-char string constant. */ + kchar = strdata(s)[0]; + args[1] = ASMREF_TMP1; /* int, truncated to char */ + ci = &lj_ir_callinfo[IRCALL_lj_buf_putchar]; + } + } else if (mayfuse(as, ir->op2) && ra_noreg(irs->r)) { + if (irs->o == IR_TOSTR) { /* Fuse number to string conversions. */ + if (irs->op2 == IRTOSTR_NUM) { + args[1] = ASMREF_TMP1; /* TValue * */ + ci = &lj_ir_callinfo[IRCALL_lj_strfmt_putnum]; + } else { + lua_assert(irt_isinteger(IR(irs->op1)->t)); + args[1] = irs->op1; /* int */ + if (irs->op2 == IRTOSTR_INT) + ci = &lj_ir_callinfo[IRCALL_lj_strfmt_putint]; + else + ci = &lj_ir_callinfo[IRCALL_lj_buf_putchar]; + } + } else if (irs->o == IR_SNEW) { /* Fuse string allocation. */ + args[1] = irs->op1; /* const void * */ + args[2] = irs->op2; /* MSize */ + ci = &lj_ir_callinfo[IRCALL_lj_buf_putmem]; + } + } + asm_setupresult(as, ir, ci); /* SBuf * */ + asm_gencall(as, ci, args); + if (args[1] == ASMREF_TMP1) { + Reg tmp = ra_releasetmp(as, ASMREF_TMP1); + if (kchar == -1) + asm_tvptr(as, tmp, irs->op1); + else + ra_allockreg(as, kchar, tmp); + } +} + +static void asm_bufstr(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_buf_tostr]; + IRRef args[1]; + args[0] = ir->op1; /* SBuf *sb */ + as->gcsteps++; + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); +} + +/* -- Type conversions ---------------------------------------------------- */ + +static void asm_tostr(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci; + IRRef args[2]; + args[0] = ASMREF_L; + as->gcsteps++; + if (ir->op2 == IRTOSTR_NUM) { + args[1] = ASMREF_TMP1; /* cTValue * */ + ci = &lj_ir_callinfo[IRCALL_lj_strfmt_num]; + } else { + args[1] = ir->op1; /* int32_t k */ + if (ir->op2 == IRTOSTR_INT) + ci = &lj_ir_callinfo[IRCALL_lj_strfmt_int]; + else + ci = &lj_ir_callinfo[IRCALL_lj_strfmt_char]; + } + asm_setupresult(as, ir, ci); /* GCstr * */ + asm_gencall(as, ci, args); + if (ir->op2 == IRTOSTR_NUM) + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); +} + +#if LJ_32 && LJ_HASFFI && !LJ_SOFTFP && !LJ_TARGET_X86 +static void asm_conv64(ASMState *as, IRIns *ir) +{ + IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); + IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); + IRCallID id; + IRRef args[2]; + lua_assert((ir-1)->o == IR_CONV && ir->o == IR_HIOP); + args[LJ_BE] = (ir-1)->op1; + args[LJ_LE] = ir->op1; + if (st == IRT_NUM || st == IRT_FLOAT) { + id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); + ir--; + } else { + id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); + } + { +#if LJ_TARGET_ARM && !LJ_ABI_SOFTFP + CCallInfo cim = lj_ir_callinfo[id], *ci = &cim; + cim.flags |= CCI_VARARG; /* These calls don't use the hard-float ABI! */ +#else + const CCallInfo *ci = &lj_ir_callinfo[id]; +#endif + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); + } +} +#endif + +/* -- Memory references --------------------------------------------------- */ + +static void asm_newref(ASMState *as, IRIns *ir) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; + IRRef args[3]; + if (ir->r == RID_SINK) + return; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* GCtab *t */ + args[2] = ASMREF_TMP1; /* cTValue *key */ + asm_setupresult(as, ir, ci); /* TValue * */ + asm_gencall(as, ci, args); + asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); +} + +static void asm_lref(ASMState *as, IRIns *ir) +{ + Reg r = ra_dest(as, ir, RSET_GPR); +#if LJ_TARGET_X86ORX64 + ra_left(as, r, ASMREF_L); +#else + ra_leftov(as, r, ASMREF_L); +#endif +} + +/* -- Calls --------------------------------------------------------------- */ + +/* Collect arguments from CALL* and CARG instructions. */ +static void asm_collectargs(ASMState *as, IRIns *ir, + const CCallInfo *ci, IRRef *args) +{ + uint32_t n = CCI_XNARGS(ci); + lua_assert(n <= CCI_NARGS_MAX*2); /* Account for split args. */ + if ((ci->flags & CCI_L)) { *args++ = ASMREF_L; n--; } + while (n-- > 1) { + ir = IR(ir->op1); + lua_assert(ir->o == IR_CARG); + args[n] = ir->op2 == REF_NIL ? 0 : ir->op2; + } + args[0] = ir->op1 == REF_NIL ? 0 : ir->op1; + lua_assert(IR(ir->op1)->o != IR_CARG); +} + +/* Reconstruct CCallInfo flags for CALLX*. */ +static uint32_t asm_callx_flags(ASMState *as, IRIns *ir) +{ + uint32_t nargs = 0; + if (ir->op1 != REF_NIL) { /* Count number of arguments first. */ + IRIns *ira = IR(ir->op1); + nargs++; + while (ira->o == IR_CARG) { nargs++; ira = IR(ira->op1); } + } +#if LJ_HASFFI + if (IR(ir->op2)->o == IR_CARG) { /* Copy calling convention info. */ + CTypeID id = (CTypeID)IR(IR(ir->op2)->op2)->i; + CType *ct = ctype_get(ctype_ctsG(J2G(as->J)), id); + nargs |= ((ct->info & CTF_VARARG) ? CCI_VARARG : 0); +#if LJ_TARGET_X86 + nargs |= (ctype_cconv(ct->info) << CCI_CC_SHIFT); +#endif + } +#endif + return (nargs | (ir->t.irt << CCI_OTSHIFT)); +} + +static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) +{ + const CCallInfo *ci = &lj_ir_callinfo[id]; + IRRef args[2]; + args[0] = ir->op1; + args[1] = ir->op2; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static void asm_call(ASMState *as, IRIns *ir) +{ + IRRef args[CCI_NARGS_MAX]; + const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; + asm_collectargs(as, ir, ci, args); + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +#if !LJ_SOFTFP +static void asm_fppow(ASMState *as, IRIns *ir, IRRef lref, IRRef rref) +{ + const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; + IRRef args[2]; + args[0] = lref; + args[1] = rref; + asm_setupresult(as, ir, ci); + asm_gencall(as, ci, args); +} + +static int asm_fpjoin_pow(ASMState *as, IRIns *ir) +{ + IRIns *irp = IR(ir->op1); + if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { + IRIns *irpp = IR(irp->op1); + if (irpp == ir-2 && irpp->o == IR_FPMATH && + irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { + asm_fppow(as, ir, irpp->op1, irp->op2); + return 1; + } + } + return 0; +} +#endif + /* -- PHI and loop handling ----------------------------------------------- */ /* Break a PHI cycle by renaming to a free register (evict if needed). */ @@ -1339,6 +1560,129 @@ static void asm_loop(ASMState *as) #error "Missing assembler for target CPU" #endif +/* -- Instruction dispatch ------------------------------------------------ */ + +/* Assemble a single instruction. */ +static void asm_ir(ASMState *as, IRIns *ir) +{ + switch ((IROp)ir->o) { + /* Miscellaneous ops. */ + case IR_LOOP: asm_loop(as); break; + case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; + case IR_USE: + ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; + case IR_PHI: asm_phi(as, ir); break; + case IR_HIOP: asm_hiop(as, ir); break; + case IR_GCSTEP: asm_gcstep(as, ir); break; + case IR_PROF: asm_prof(as, ir); break; + + /* Guarded assertions. */ + case IR_LT: case IR_GE: case IR_LE: case IR_GT: + case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: + case IR_ABC: + asm_comp(as, ir); + break; + case IR_EQ: case IR_NE: + if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { + as->curins--; + asm_href(as, ir-1, (IROp)ir->o); + } else { + asm_equal(as, ir); + } + break; + + case IR_RETF: asm_retf(as, ir); break; + + /* Bit ops. */ + case IR_BNOT: asm_bnot(as, ir); break; + case IR_BSWAP: asm_bswap(as, ir); break; + case IR_BAND: asm_band(as, ir); break; + case IR_BOR: asm_bor(as, ir); break; + case IR_BXOR: asm_bxor(as, ir); break; + case IR_BSHL: asm_bshl(as, ir); break; + case IR_BSHR: asm_bshr(as, ir); break; + case IR_BSAR: asm_bsar(as, ir); break; + case IR_BROL: asm_brol(as, ir); break; + case IR_BROR: asm_bror(as, ir); break; + + /* Arithmetic ops. */ + case IR_ADD: asm_add(as, ir); break; + case IR_SUB: asm_sub(as, ir); break; + case IR_MUL: asm_mul(as, ir); break; + case IR_DIV: asm_div(as, ir); break; + case IR_MOD: asm_mod(as, ir); break; + case IR_POW: asm_pow(as, ir); break; + case IR_NEG: asm_neg(as, ir); break; + case IR_ABS: asm_abs(as, ir); break; + case IR_ATAN2: asm_atan2(as, ir); break; + case IR_LDEXP: asm_ldexp(as, ir); break; + case IR_MIN: asm_min(as, ir); break; + case IR_MAX: asm_max(as, ir); break; + case IR_FPMATH: asm_fpmath(as, ir); break; + + /* Overflow-checking arithmetic ops. */ + case IR_ADDOV: asm_addov(as, ir); break; + case IR_SUBOV: asm_subov(as, ir); break; + case IR_MULOV: asm_mulov(as, ir); break; + + /* Memory references. */ + case IR_AREF: asm_aref(as, ir); break; + case IR_HREF: asm_href(as, ir, 0); break; + case IR_HREFK: asm_hrefk(as, ir); break; + case IR_NEWREF: asm_newref(as, ir); break; + case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; + case IR_FREF: asm_fref(as, ir); break; + case IR_STRREF: asm_strref(as, ir); break; + case IR_LREF: asm_lref(as, ir); break; + + /* Loads and stores. */ + case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: + asm_ahuvload(as, ir); + break; + case IR_FLOAD: asm_fload(as, ir); break; + case IR_XLOAD: asm_xload(as, ir); break; + case IR_SLOAD: asm_sload(as, ir); break; + + case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; + case IR_FSTORE: asm_fstore(as, ir); break; + case IR_XSTORE: asm_xstore(as, ir); break; + + /* Allocations. */ + case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; + case IR_TNEW: asm_tnew(as, ir); break; + case IR_TDUP: asm_tdup(as, ir); break; + case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; + + /* Buffer operations. */ + case IR_BUFHDR: asm_bufhdr(as, ir); break; + case IR_BUFPUT: asm_bufput(as, ir); break; + case IR_BUFSTR: asm_bufstr(as, ir); break; + + /* Write barriers. */ + case IR_TBAR: asm_tbar(as, ir); break; + case IR_OBAR: asm_obar(as, ir); break; + + /* Type conversions. */ + case IR_TOBIT: asm_tobit(as, ir); break; + case IR_CONV: asm_conv(as, ir); break; + case IR_TOSTR: asm_tostr(as, ir); break; + case IR_STRTO: asm_strto(as, ir); break; + + /* Calls. */ + case IR_CALLA: + as->gcsteps++; + /* fallthrough */ + case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; + case IR_CALLXS: asm_callx(as, ir); break; + case IR_CARG: break; + + default: + setintV(&as->J->errinfo, ir->o); + lj_trace_err_info(as->J, LJ_TRERR_NYIIR); + break; + } +} + /* -- Head of trace ------------------------------------------------------- */ /* Head of a root trace. */ @@ -1569,7 +1913,7 @@ static void asm_tail_link(ASMState *as) mres = (int32_t)(snap->nslots - baseslot); switch (bc_op(*pc)) { case BC_CALLM: case BC_CALLMT: - mres -= (int32_t)(1 + bc_a(*pc) + bc_c(*pc)); break; + mres -= (int32_t)(1 + LJ_FR2 + bc_a(*pc) + bc_c(*pc)); break; case BC_RETM: mres -= (int32_t)(bc_a(*pc) + bc_d(*pc)); break; case BC_TSETM: mres -= (int32_t)bc_a(*pc); break; default: if (bc_op(*pc) < BC_FUNCF) mres = 0; break; @@ -1677,7 +2021,7 @@ static void asm_setup_regsp(ASMState *as) as->modset |= RSET_SCRATCH; continue; } - case IR_CALLN: case IR_CALLL: case IR_CALLS: { + case IR_CALLN: case IR_CALLA: case IR_CALLL: case IR_CALLS: { const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; ir->prev = asm_setup_call_slots(as, ir, ci); if (inloop) @@ -1722,10 +2066,20 @@ static void asm_setup_regsp(ASMState *as) /* fallthrough */ #endif /* C calls evict all scratch regs and return results in RID_RET. */ - case IR_SNEW: case IR_XSNEW: case IR_NEWREF: + case IR_SNEW: case IR_XSNEW: case IR_NEWREF: case IR_BUFPUT: if (REGARG_NUMGPR < 3 && as->evenspill < 3) as->evenspill = 3; /* lj_str_new and lj_tab_newkey need 3 args. */ - case IR_TNEW: case IR_TDUP: case IR_CNEW: case IR_CNEWI: case IR_TOSTR: +#if LJ_TARGET_X86 && LJ_HASFFI + if (0) { + case IR_CNEW: + if (ir->op2 != REF_NIL && as->evenspill < 4) + as->evenspill = 4; /* lj_cdata_newv needs 4 args. */ + } +#else + case IR_CNEW: +#endif + case IR_TNEW: case IR_TDUP: case IR_CNEWI: case IR_TOSTR: + case IR_BUFSTR: ir->prev = REGSP_HINT(RID_RET); if (inloop) as->modset = RSET_SCRATCH; @@ -1734,21 +2088,26 @@ static void asm_setup_regsp(ASMState *as) if (inloop) as->modset = RSET_SCRATCH; break; -#if !LJ_TARGET_X86ORX64 && !LJ_SOFTFP - case IR_ATAN2: case IR_LDEXP: +#if !LJ_SOFTFP + case IR_ATAN2: +#if LJ_TARGET_X86 + if (as->evenspill < 4) /* Leave room to call atan2(). */ + as->evenspill = 4; +#endif +#if !LJ_TARGET_X86ORX64 + case IR_LDEXP: +#endif #endif case IR_POW: if (!LJ_SOFTFP && irt_isnum(ir->t)) { -#if LJ_TARGET_X86ORX64 - ir->prev = REGSP_HINT(RID_XMM0); if (inloop) - as->modset |= RSET_RANGE(RID_XMM0, RID_XMM1+1)|RID2RSET(RID_EAX); + as->modset |= RSET_SCRATCH; +#if LJ_TARGET_X86 + break; #else ir->prev = REGSP_HINT(RID_FPRET); - if (inloop) - as->modset |= RSET_SCRATCH; -#endif continue; +#endif } /* fallthrough for integer POW */ case IR_DIV: case IR_MOD: @@ -1761,26 +2120,25 @@ static void asm_setup_regsp(ASMState *as) break; case IR_FPMATH: #if LJ_TARGET_X86ORX64 - if (ir->op2 == IRFPM_EXP2) { /* May be joined to lj_vm_pow_sse. */ - ir->prev = REGSP_HINT(RID_XMM0); -#if !LJ_64 - if (as->evenspill < 4) /* Leave room for 16 byte scratch area. */ + if (ir->op2 <= IRFPM_TRUNC) { + if (!(as->flags & JIT_F_SSE4_1)) { + ir->prev = REGSP_HINT(RID_XMM0); + if (inloop) + as->modset |= RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); + continue; + } + break; + } else if (ir->op2 == IRFPM_EXP2 && !LJ_64) { + if (as->evenspill < 4) /* Leave room to call pow(). */ as->evenspill = 4; -#endif - if (inloop) - as->modset |= RSET_RANGE(RID_XMM0, RID_XMM2+1)|RID2RSET(RID_EAX); - continue; - } else if (ir->op2 <= IRFPM_TRUNC && !(as->flags & JIT_F_SSE4_1)) { - ir->prev = REGSP_HINT(RID_XMM0); - if (inloop) - as->modset |= RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); - continue; } +#endif + if (inloop) + as->modset |= RSET_SCRATCH; +#if LJ_TARGET_X86 break; #else ir->prev = REGSP_HINT(RID_FPRET); - if (inloop) - as->modset |= RSET_SCRATCH; continue; #endif #if LJ_TARGET_X86ORX64 diff --git a/src/3rd party/luajit-2.0/src/lj_asm_arm.h b/src/3rd party/luajit-2.0/src/lj_asm_arm.h index 9e4cf4367f0..81843caf96a 100644 --- a/src/3rd party/luajit-2.0/src/lj_asm_arm.h +++ b/src/3rd party/luajit-2.0/src/lj_asm_arm.h @@ -338,7 +338,7 @@ static int asm_fusemadd(ASMState *as, IRIns *ir, ARMIns ai, ARMIns air) /* Generate a call to a C function. */ static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) { - uint32_t n, nargs = CCI_NARGS(ci); + uint32_t n, nargs = CCI_XNARGS(ci); int32_t ofs = 0; #if LJ_SOFTFP Reg gpr = REGARG_FIRSTGPR; @@ -453,15 +453,6 @@ static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) UNUSED(ci); } -static void asm_call(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX]; - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - asm_collectargs(as, ir, ci, args); - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - static void asm_callx(ASMState *as, IRIns *ir) { IRRef args[CCI_NARGS_MAX*2]; @@ -490,7 +481,7 @@ static void asm_retf(ASMState *as, IRIns *ir) { Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); as->topslot -= (BCReg)delta; if ((int32_t)as->topslot < 0) as->topslot = 0; irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ @@ -529,6 +520,8 @@ static void asm_tobit(ASMState *as, IRIns *ir) emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); emit_dnm(as, ARMI_VADD_D, (tmp & 15), (left & 15), (right & 15)); } +#else +#define asm_tobit(as, ir) lua_assert(0) #endif static void asm_conv(ASMState *as, IRIns *ir) @@ -601,31 +594,6 @@ static void asm_conv(ASMState *as, IRIns *ir) } } -#if !LJ_SOFTFP && LJ_HASFFI -static void asm_conv64(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); - IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); - IRCallID id; - CCallInfo ci; - IRRef args[2]; - args[0] = (ir-1)->op1; - args[1] = ir->op1; - if (st == IRT_NUM || st == IRT_FLOAT) { - id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); - ir--; - } else { - id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); - } - ci = lj_ir_callinfo[id]; -#if !LJ_ABI_SOFTFP - ci.flags |= CCI_VARARG; /* These calls don't use the hard-float ABI! */ -#endif - asm_setupresult(as, ir, &ci); - asm_gencall(as, &ci, args); -} -#endif - static void asm_strto(ASMState *as, IRIns *ir) { const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; @@ -689,6 +657,8 @@ static void asm_strto(ASMState *as, IRIns *ir) emit_opk(as, ARMI_ADD, tmp, RID_SP, ofs, RSET_GPR); } +/* -- Memory references --------------------------------------------------- */ + /* Get pointer to TValue. */ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) { @@ -714,7 +684,7 @@ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) Reg src = ra_alloc1(as, ref, allow); emit_lso(as, ARMI_STR, src, RID_SP, 0); } - if ((ir+1)->o == IR_HIOP) + if (LJ_SOFTFP && (ir+1)->o == IR_HIOP) type = ra_alloc1(as, ref+1, allow); else type = ra_allock(as, irt_toitype(ir->t), allow); @@ -722,27 +692,6 @@ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) } } -static void asm_tostr(ASMState *as, IRIns *ir) -{ - IRRef args[2]; - args[0] = ASMREF_L; - as->gcsteps++; - if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; - args[1] = ASMREF_TMP1; /* const lua_Number * */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); - } else { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; - args[1] = ir->op1; /* int32_t k */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - } -} - -/* -- Memory references --------------------------------------------------- */ - static void asm_aref(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -960,20 +909,6 @@ static void asm_hrefk(ASMState *as, IRIns *ir) emit_opk(as, ARMI_ADD, dest, node, ofs, RSET_GPR); } -static void asm_newref(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; - IRRef args[3]; - if (ir->r == RID_SINK) - return; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* GCtab *t */ - args[2] = ASMREF_TMP1; /* cTValue *key */ - asm_setupresult(as, ir, ci); /* TValue * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); -} - static void asm_uref(ASMState *as, IRIns *ir) { /* NYI: Check that UREFO is still open and not aliasing a slot. */ @@ -1106,7 +1041,7 @@ static void asm_xload(ASMState *as, IRIns *ir) asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); } -static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) { if (ir->r != RID_SINK) { Reg src = ra_alloc1(as, ir->op2, @@ -1116,6 +1051,8 @@ static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) } } +#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) + static void asm_ahuvload(ASMState *as, IRIns *ir) { int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); @@ -1273,19 +1210,16 @@ static void asm_sload(ASMState *as, IRIns *ir) static void asm_cnew(ASMState *as, IRIns *ir) { CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; - CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? - lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + CTypeID id = (CTypeID)IR(ir->op1)->i; + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[2]; + IRRef args[4]; RegSet allow = (RSET_GPR & ~RSET_SCRATCH); RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID); + lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ as->gcsteps++; - if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); /* Dest reg handled below. */ ra_evictset(as, drop); @@ -1307,16 +1241,28 @@ static void asm_cnew(ASMState *as, IRIns *ir) if (ofs == sizeof(GCcdata)) break; ofs -= 4; ir--; } + } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ + ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* CTypeID id */ + args[2] = ir->op2; /* CTSize sz */ + args[3] = ASMREF_TMP1; /* CTSize align */ + asm_gencall(as, ci, args); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); + return; } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ { - uint32_t k = emit_isk12(ARMI_MOV, ctypeid); - Reg r = k ? RID_R1 : ra_allock(as, ctypeid, allow); + uint32_t k = emit_isk12(ARMI_MOV, id); + Reg r = k ? RID_R1 : ra_allock(as, id, allow); emit_lso(as, ARMI_STRB, RID_TMP, RID_RET, offsetof(GCcdata, gct)); emit_lsox(as, ARMI_STRH, r, RID_RET, offsetof(GCcdata, ctypeid)); emit_d(as, ARMI_MOV|ARMI_K12|~LJ_TCDATA, RID_TMP); if (k) emit_d(as, ARMI_MOV^k, RID_R1); } + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ asm_gencall(as, ci, args); ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), ra_releasetmp(as, ASMREF_TMP1)); @@ -1393,24 +1339,41 @@ static void asm_fpunary(ASMState *as, IRIns *ir, ARMIns ai) emit_dm(as, ai, (dest & 15), (left & 15)); } -static int asm_fpjoin_pow(ASMState *as, IRIns *ir) -{ - IRIns *irp = IR(ir->op1); - if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { - IRIns *irpp = IR(irp->op1); - if (irpp == ir-2 && irpp->o == IR_FPMATH && - irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; - IRRef args[2]; - args[0] = irpp->op1; - args[1] = irp->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); - return 1; - } - } - return 0; +static void asm_callround(ASMState *as, IRIns *ir, int id) +{ + /* The modified regs must match with the *.dasc implementation. */ + RegSet drop = RID2RSET(RID_R0)|RID2RSET(RID_R1)|RID2RSET(RID_R2)| + RID2RSET(RID_R3)|RID2RSET(RID_R12); + RegSet of; + Reg dest, src; + ra_evictset(as, drop); + dest = ra_dest(as, ir, RSET_FPR); + emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, (dest & 15)); + emit_call(as, id == IRFPM_FLOOR ? (void *)lj_vm_floor_sf : + id == IRFPM_CEIL ? (void *)lj_vm_ceil_sf : + (void *)lj_vm_trunc_sf); + /* Workaround to protect argument GPRs from being used for remat. */ + of = as->freeset; + as->freeset &= ~RSET_RANGE(RID_R0, RID_R1+1); + as->cost[RID_R0] = as->cost[RID_R1] = REGCOST(~0u, ASMREF_L); + src = ra_alloc1(as, ir->op1, RSET_FPR); /* May alloc GPR to remat FPR. */ + as->freeset |= (of & RSET_RANGE(RID_R0, RID_R1+1)); + emit_dnm(as, ARMI_VMOV_RR_D, RID_R0, RID_R1, (src & 15)); +} + +static void asm_fpmath(ASMState *as, IRIns *ir) +{ + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + return; + if (ir->op2 <= IRFPM_TRUNC) + asm_callround(as, ir, ir->op2); + else if (ir->op2 == IRFPM_SQRT) + asm_fpunary(as, ir, ARMI_VSQRT_D); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); } +#else +#define asm_fpmath(as, ir) lua_assert(0) #endif static int asm_swapops(ASMState *as, IRRef lref, IRRef rref) @@ -1460,32 +1423,6 @@ static void asm_intop_s(ASMState *as, IRIns *ir, ARMIns ai) asm_intop(as, ir, ai); } -static void asm_bitop(ASMState *as, IRIns *ir, ARMIns ai) -{ - if (as->flagmcp == as->mcp) { /* Try to drop cmp r, #0. */ - uint32_t cc = (as->mcp[1] >> 28); - as->flagmcp = NULL; - if (cc <= CC_NE) { - as->mcp++; - ai |= ARMI_S; - } else if (cc == CC_GE) { - *++as->mcp ^= ((CC_GE^CC_PL) << 28); - ai |= ARMI_S; - } else if (cc == CC_LT) { - *++as->mcp ^= ((CC_LT^CC_MI) << 28); - ai |= ARMI_S; - } /* else: other conds don't work with bit ops. */ - } - if (ir->op2 == 0) { - Reg dest = ra_dest(as, ir, RSET_GPR); - uint32_t m = asm_fuseopm(as, ai, ir->op1, RSET_GPR); - emit_d(as, ai^m, dest); - } else { - /* NYI: Turn BAND !k12 into uxtb, uxth or bfc or shl+shr. */ - asm_intop(as, ir, ai); - } -} - static void asm_intneg(ASMState *as, IRIns *ir, ARMIns ai) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -1551,6 +1488,26 @@ static void asm_mul(ASMState *as, IRIns *ir) asm_intmul(as, ir); } +#define asm_addov(as, ir) asm_add(as, ir) +#define asm_subov(as, ir) asm_sub(as, ir) +#define asm_mulov(as, ir) asm_mul(as, ir) + +#if LJ_SOFTFP +#define asm_div(as, ir) lua_assert(0) +#define asm_pow(as, ir) lua_assert(0) +#define asm_abs(as, ir) lua_assert(0) +#define asm_atan2(as, ir) lua_assert(0) +#define asm_ldexp(as, ir) lua_assert(0) +#else +#define asm_div(as, ir) asm_fparith(as, ir, ARMI_VDIV_D) +#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) +#define asm_abs(as, ir) asm_fpunary(as, ir, ARMI_VABS_D) +#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) +#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) +#endif + +#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) + static void asm_neg(ASMState *as, IRIns *ir) { #if !LJ_SOFTFP @@ -1562,41 +1519,35 @@ static void asm_neg(ASMState *as, IRIns *ir) asm_intneg(as, ir, ARMI_RSB); } -static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) +static void asm_bitop(ASMState *as, IRIns *ir, ARMIns ai) { - const CCallInfo *ci = &lj_ir_callinfo[id]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); + if (as->flagmcp == as->mcp) { /* Try to drop cmp r, #0. */ + uint32_t cc = (as->mcp[1] >> 28); + as->flagmcp = NULL; + if (cc <= CC_NE) { + as->mcp++; + ai |= ARMI_S; + } else if (cc == CC_GE) { + *++as->mcp ^= ((CC_GE^CC_PL) << 28); + ai |= ARMI_S; + } else if (cc == CC_LT) { + *++as->mcp ^= ((CC_LT^CC_MI) << 28); + ai |= ARMI_S; + } /* else: other conds don't work with bit ops. */ + } + if (ir->op2 == 0) { + Reg dest = ra_dest(as, ir, RSET_GPR); + uint32_t m = asm_fuseopm(as, ai, ir->op1, RSET_GPR); + emit_d(as, ai^m, dest); + } else { + /* NYI: Turn BAND !k12 into uxtb, uxth or bfc or shl+shr. */ + asm_intop(as, ir, ai); + } } -#if !LJ_SOFTFP -static void asm_callround(ASMState *as, IRIns *ir, int id) -{ - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RID2RSET(RID_R0)|RID2RSET(RID_R1)|RID2RSET(RID_R2)| - RID2RSET(RID_R3)|RID2RSET(RID_R12); - RegSet of; - Reg dest, src; - ra_evictset(as, drop); - dest = ra_dest(as, ir, RSET_FPR); - emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, (dest & 15)); - emit_call(as, id == IRFPM_FLOOR ? (void *)lj_vm_floor_sf : - id == IRFPM_CEIL ? (void *)lj_vm_ceil_sf : - (void *)lj_vm_trunc_sf); - /* Workaround to protect argument GPRs from being used for remat. */ - of = as->freeset; - as->freeset &= ~RSET_RANGE(RID_R0, RID_R1+1); - as->cost[RID_R0] = as->cost[RID_R1] = REGCOST(~0u, ASMREF_L); - src = ra_alloc1(as, ir->op1, RSET_FPR); /* May alloc GPR to remat FPR. */ - as->freeset |= (of & RSET_RANGE(RID_R0, RID_R1+1)); - emit_dnm(as, ARMI_VMOV_RR_D, RID_R0, RID_R1, (src & 15)); -} -#endif +#define asm_bnot(as, ir) asm_bitop(as, ir, ARMI_MVN) -static void asm_bitswap(ASMState *as, IRIns *ir) +static void asm_bswap(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); Reg left = ra_alloc1(as, ir->op1, RSET_GPR); @@ -1613,6 +1564,10 @@ static void asm_bitswap(ASMState *as, IRIns *ir) } } +#define asm_band(as, ir) asm_bitop(as, ir, ARMI_AND) +#define asm_bor(as, ir) asm_bitop(as, ir, ARMI_ORR) +#define asm_bxor(as, ir) asm_bitop(as, ir, ARMI_EOR) + static void asm_bitshift(ASMState *as, IRIns *ir, ARMShift sh) { if (irref_isk(ir->op2)) { /* Constant shifts. */ @@ -1630,6 +1585,12 @@ static void asm_bitshift(ASMState *as, IRIns *ir, ARMShift sh) } } +#define asm_bshl(as, ir) asm_bitshift(as, ir, ARMSH_LSL) +#define asm_bshr(as, ir) asm_bitshift(as, ir, ARMSH_LSR) +#define asm_bsar(as, ir) asm_bitshift(as, ir, ARMSH_ASR) +#define asm_bror(as, ir) asm_bitshift(as, ir, ARMSH_ROR) +#define asm_brol(as, ir) lua_assert(0) + static void asm_intmin_max(ASMState *as, IRIns *ir, int cc) { uint32_t kcmp = 0, kmov = 0; @@ -1703,6 +1664,9 @@ static void asm_min_max(ASMState *as, IRIns *ir, int cc, int fcc) asm_intmin_max(as, ir, cc); } +#define asm_min(as, ir) asm_min_max(as, ir, CC_GT, CC_HI) +#define asm_max(as, ir) asm_min_max(as, ir, CC_LT, CC_LO) + /* -- Comparisons --------------------------------------------------------- */ /* Map of comparisons to flags. ORDER IR. */ @@ -1818,6 +1782,18 @@ static void asm_intcomp(ASMState *as, IRIns *ir) as->flagmcp = as->mcp; /* Allow elimination of the compare. */ } +static void asm_comp(ASMState *as, IRIns *ir) +{ +#if !LJ_SOFTFP + if (irt_isnum(ir->t)) + asm_fpcomp(as, ir); + else +#endif + asm_intcomp(as, ir); +} + +#define asm_equal(as, ir) asm_comp(as, ir) + #if LJ_HASFFI /* 64 bit integer comparisons. */ static void asm_int64comp(ASMState *as, IRIns *ir) @@ -1892,7 +1868,7 @@ static void asm_hiop(ASMState *as, IRIns *ir) #endif } else if ((ir-1)->o == IR_XSTORE) { if ((ir-1)->r != RID_SINK) - asm_xstore(as, ir, 4); + asm_xstore_(as, ir, 4); return; } if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ @@ -1940,6 +1916,16 @@ static void asm_hiop(ASMState *as, IRIns *ir) #endif } +/* -- Profiling ----------------------------------------------------------- */ + +static void asm_prof(ASMState *as, IRIns *ir) +{ + UNUSED(ir); + asm_guardcc(as, CC_NE); + emit_n(as, ARMI_TST|ARMI_K12|HOOK_PROFILE, RID_TMP); + emit_lsptr(as, ARMI_LDRB, RID_TMP, (void *)&J2G(as->J)->hookmask); +} + /* -- Stack handling ------------------------------------------------------ */ /* Check Lua stack size for overflow. Use exit handler as fallback. */ @@ -1969,7 +1955,7 @@ static void asm_stack_check(ASMState *as, BCReg topslot, emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, (int32_t)offsetof(lua_State, maxstack)); if (irp) { /* Must not spill arbitrary registers in head of side trace. */ - int32_t i = i32ptr(&J2G(as->J)->jit_L); + int32_t i = i32ptr(&J2G(as->J)->cur_L); if (ra_hasspill(irp->s)) emit_lso(as, ARMI_LDR, pbase, RID_SP, sps_scale(irp->s)); emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, (i & 4095)); @@ -1977,7 +1963,7 @@ static void asm_stack_check(ASMState *as, BCReg topslot, emit_lso(as, ARMI_STR, RID_RET, RID_SP, 0); /* Save temp. register. */ emit_loadi(as, RID_TMP, (i & ~4095)); } else { - emit_getgl(as, RID_TMP, jit_L); + emit_getgl(as, RID_TMP, cur_L); } } @@ -2086,13 +2072,13 @@ static void asm_loop_fixup(ASMState *as) /* -- Head of trace ------------------------------------------------------- */ -/* Reload L register from g->jit_L. */ +/* Reload L register from g->cur_L. */ static void asm_head_lreg(ASMState *as) { IRIns *ir = IR(ASMREF_L); if (ra_used(ir)) { Reg r = ra_dest(as, ir, RSET_GPR); - emit_getgl(as, r, jit_L); + emit_getgl(as, r, cur_L); ra_evictk(as); } } @@ -2163,143 +2149,13 @@ static void asm_tail_prep(ASMState *as) *p = 0; /* Prevent load/store merging. */ } -/* -- Instruction dispatch ------------------------------------------------ */ - -/* Assemble a single instruction. */ -static void asm_ir(ASMState *as, IRIns *ir) -{ - switch ((IROp)ir->o) { - /* Miscellaneous ops. */ - case IR_LOOP: asm_loop(as); break; - case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; - case IR_USE: - ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; - case IR_PHI: asm_phi(as, ir); break; - case IR_HIOP: asm_hiop(as, ir); break; - case IR_GCSTEP: asm_gcstep(as, ir); break; - - /* Guarded assertions. */ - case IR_EQ: case IR_NE: - if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { - as->curins--; - asm_href(as, ir-1, (IROp)ir->o); - break; - } - /* fallthrough */ - case IR_LT: case IR_GE: case IR_LE: case IR_GT: - case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: - case IR_ABC: -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { asm_fpcomp(as, ir); break; } -#endif - asm_intcomp(as, ir); - break; - - case IR_RETF: asm_retf(as, ir); break; - - /* Bit ops. */ - case IR_BNOT: asm_bitop(as, ir, ARMI_MVN); break; - case IR_BSWAP: asm_bitswap(as, ir); break; - - case IR_BAND: asm_bitop(as, ir, ARMI_AND); break; - case IR_BOR: asm_bitop(as, ir, ARMI_ORR); break; - case IR_BXOR: asm_bitop(as, ir, ARMI_EOR); break; - - case IR_BSHL: asm_bitshift(as, ir, ARMSH_LSL); break; - case IR_BSHR: asm_bitshift(as, ir, ARMSH_LSR); break; - case IR_BSAR: asm_bitshift(as, ir, ARMSH_ASR); break; - case IR_BROR: asm_bitshift(as, ir, ARMSH_ROR); break; - case IR_BROL: lua_assert(0); break; - - /* Arithmetic ops. */ - case IR_ADD: case IR_ADDOV: asm_add(as, ir); break; - case IR_SUB: case IR_SUBOV: asm_sub(as, ir); break; - case IR_MUL: case IR_MULOV: asm_mul(as, ir); break; - case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; - case IR_NEG: asm_neg(as, ir); break; - -#if LJ_SOFTFP - case IR_DIV: case IR_POW: case IR_ABS: - case IR_ATAN2: case IR_LDEXP: case IR_FPMATH: case IR_TOBIT: - lua_assert(0); /* Unused for LJ_SOFTFP. */ - break; -#else - case IR_DIV: asm_fparith(as, ir, ARMI_VDIV_D); break; - case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; - case IR_ABS: asm_fpunary(as, ir, ARMI_VABS_D); break; - case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; - case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; - case IR_FPMATH: - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - break; - if (ir->op2 <= IRFPM_TRUNC) - asm_callround(as, ir, ir->op2); - else if (ir->op2 == IRFPM_SQRT) - asm_fpunary(as, ir, ARMI_VSQRT_D); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); - break; - case IR_TOBIT: asm_tobit(as, ir); break; -#endif - - case IR_MIN: asm_min_max(as, ir, CC_GT, CC_HI); break; - case IR_MAX: asm_min_max(as, ir, CC_LT, CC_LO); break; - - /* Memory references. */ - case IR_AREF: asm_aref(as, ir); break; - case IR_HREF: asm_href(as, ir, 0); break; - case IR_HREFK: asm_hrefk(as, ir); break; - case IR_NEWREF: asm_newref(as, ir); break; - case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; - case IR_FREF: asm_fref(as, ir); break; - case IR_STRREF: asm_strref(as, ir); break; - - /* Loads and stores. */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - asm_ahuvload(as, ir); - break; - case IR_FLOAD: asm_fload(as, ir); break; - case IR_XLOAD: asm_xload(as, ir); break; - case IR_SLOAD: asm_sload(as, ir); break; - - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; - case IR_FSTORE: asm_fstore(as, ir); break; - case IR_XSTORE: asm_xstore(as, ir, 0); break; - - /* Allocations. */ - case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; - case IR_TNEW: asm_tnew(as, ir); break; - case IR_TDUP: asm_tdup(as, ir); break; - case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; - - /* Write barriers. */ - case IR_TBAR: asm_tbar(as, ir); break; - case IR_OBAR: asm_obar(as, ir); break; - - /* Type conversions. */ - case IR_CONV: asm_conv(as, ir); break; - case IR_TOSTR: asm_tostr(as, ir); break; - case IR_STRTO: asm_strto(as, ir); break; - - /* Calls. */ - case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; - case IR_CALLXS: asm_callx(as, ir); break; - case IR_CARG: break; - - default: - setintV(&as->J->errinfo, ir->o); - lj_trace_err_info(as->J, LJ_TRERR_NYIIR); - break; - } -} - /* -- Trace setup --------------------------------------------------------- */ /* Ensure there are enough stack slots for call arguments. */ static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) { IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = (int)CCI_NARGS(ci); + uint32_t i, nargs = CCI_XNARGS(ci); int nslots = 0, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR, fprodd = 0; asm_collectargs(as, ir, ci, args); for (i = 0; i < nargs; i++) { diff --git a/src/3rd party/luajit-2.0/src/lj_asm_mips.h b/src/3rd party/luajit-2.0/src/lj_asm_mips.h index 78bd26d5db5..adea0e32367 100644 --- a/src/3rd party/luajit-2.0/src/lj_asm_mips.h +++ b/src/3rd party/luajit-2.0/src/lj_asm_mips.h @@ -226,7 +226,7 @@ static void asm_fusexref(ASMState *as, MIPSIns mi, Reg rt, IRRef ref, /* Generate a call to a C function. */ static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) { - uint32_t n, nargs = CCI_NARGS(ci); + uint32_t n, nargs = CCI_XNARGS(ci); int32_t ofs = 16; Reg gpr, fpr = REGARG_FIRSTFPR; if ((void *)ci->func) @@ -326,15 +326,6 @@ static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) } } -static void asm_call(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX]; - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - asm_collectargs(as, ir, ci, args); - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - static void asm_callx(ASMState *as, IRIns *ir) { IRRef args[CCI_NARGS_MAX*2]; @@ -362,16 +353,6 @@ static void asm_callx(ASMState *as, IRIns *ir) asm_gencall(as, &ci, args); } -static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) -{ - const CCallInfo *ci = &lj_ir_callinfo[id]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - static void asm_callround(ASMState *as, IRIns *ir, IRCallID id) { /* The modified regs must match with the *.dasc implementation. */ @@ -391,7 +372,7 @@ static void asm_retf(ASMState *as, IRIns *ir) { Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); as->topslot -= (BCReg)delta; if ((int32_t)as->topslot < 0) as->topslot = 0; irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ @@ -520,28 +501,6 @@ static void asm_conv(ASMState *as, IRIns *ir) } } -#if LJ_HASFFI -static void asm_conv64(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); - IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); - IRCallID id; - const CCallInfo *ci; - IRRef args[2]; - args[LJ_BE?0:1] = ir->op1; - args[LJ_BE?1:0] = (ir-1)->op1; - if (st == IRT_NUM || st == IRT_FLOAT) { - id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); - ir--; - } else { - id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); - } - ci = &lj_ir_callinfo[id]; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} -#endif - static void asm_strto(ASMState *as, IRIns *ir) { const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; @@ -558,6 +517,8 @@ static void asm_strto(ASMState *as, IRIns *ir) RID_SP, sps_scale(ir->s)); } +/* -- Memory references --------------------------------------------------- */ + /* Get pointer to TValue. */ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) { @@ -581,27 +542,6 @@ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) } } -static void asm_tostr(ASMState *as, IRIns *ir) -{ - IRRef args[2]; - args[0] = ASMREF_L; - as->gcsteps++; - if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; - args[1] = ASMREF_TMP1; /* const lua_Number * */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); - } else { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; - args[1] = ir->op1; /* int32_t k */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - } -} - -/* -- Memory references --------------------------------------------------- */ - static void asm_aref(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -631,7 +571,7 @@ static void asm_aref(ASMState *as, IRIns *ir) ** } while ((n = nextnode(n))); ** return niltv(L); */ -static void asm_href(ASMState *as, IRIns *ir) +static void asm_href(ASMState *as, IRIns *ir, IROp merge) { RegSet allow = RSET_GPR; int destused = ra_used(ir); @@ -657,37 +597,42 @@ static void asm_href(ASMState *as, IRIns *ir) tmp2 = ra_scratch(as, allow); rset_clear(allow, tmp2); - /* Key not found in chain: load niltv. */ + /* Key not found in chain: jump to exit (if merged) or load niltv. */ l_end = emit_label(as); - if (destused) + as->invmcp = NULL; + if (merge == IR_NE) + asm_guard(as, MIPSI_B, RID_ZERO, RID_ZERO); + else if (destused) emit_loada(as, dest, niltvg(J2G(as->J))); - else - *--as->mcp = MIPSI_NOP; /* Follow hash chain until the end. */ - emit_move(as, dest, tmp1); + emit_move(as, dest, tmp2); l_loop = --as->mcp; - emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, next)); + emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, next)); l_next = emit_label(as); /* Type and value comparison. */ + if (merge == IR_EQ) { /* Must match asm_guard(). */ + emit_ti(as, MIPSI_LI, RID_TMP, as->snapno); + l_end = asm_exitstub_addr(as); + } if (irt_isnum(kt)) { emit_branch(as, MIPSI_BC1T, 0, 0, l_end); emit_fgh(as, MIPSI_C_EQ_D, 0, tmpnum, key); - emit_tg(as, MIPSI_MFC1, tmp1, key+1); - emit_branch(as, MIPSI_BEQ, tmp1, RID_ZERO, l_next); - emit_tsi(as, MIPSI_SLTIU, tmp1, tmp1, (int32_t)LJ_TISNUM); + *--as->mcp = MIPSI_NOP; /* Avoid NaN comparison overhead. */ + emit_branch(as, MIPSI_BEQ, tmp2, RID_ZERO, l_next); + emit_tsi(as, MIPSI_SLTIU, tmp2, tmp2, (int32_t)LJ_TISNUM); emit_hsi(as, MIPSI_LDC1, tmpnum, dest, (int32_t)offsetof(Node, key.n)); } else { if (irt_ispri(kt)) { - emit_branch(as, MIPSI_BEQ, tmp1, type, l_end); + emit_branch(as, MIPSI_BEQ, tmp2, type, l_end); } else { - emit_branch(as, MIPSI_BEQ, tmp2, key, l_end); - emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, key.gcr)); - emit_branch(as, MIPSI_BNE, tmp1, type, l_next); + emit_branch(as, MIPSI_BEQ, tmp1, key, l_end); + emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, key.gcr)); + emit_branch(as, MIPSI_BNE, tmp2, type, l_next); } } - emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, key.it)); - *l_loop = MIPSI_BNE | MIPSF_S(tmp1) | ((as->mcp-l_loop-1) & 0xffffu); + emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, key.it)); + *l_loop = MIPSI_BNE | MIPSF_S(tmp2) | ((as->mcp-l_loop-1) & 0xffffu); /* Load main position relative to tab->node into dest. */ khash = irref_isk(refkey) ? ir_khash(irkey) : 1; @@ -777,20 +722,6 @@ static void asm_hrefk(ASMState *as, IRIns *ir) emit_tsi(as, MIPSI_ADDU, dest, node, ra_allock(as, ofs, allow)); } -static void asm_newref(ASMState *as, IRIns *ir) -{ - if (ir->r != RID_SINK) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; - IRRef args[3]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* GCtab *t */ - args[2] = ASMREF_TMP1; /* cTValue *key */ - asm_setupresult(as, ir, ci); /* TValue * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); - } -} - static void asm_uref(ASMState *as, IRIns *ir) { /* NYI: Check that UREFO is still open and not aliasing a slot. */ @@ -919,7 +850,7 @@ static void asm_xload(ASMState *as, IRIns *ir) asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); } -static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) { if (ir->r != RID_SINK) { Reg src = ra_alloc1z(as, ir->op2, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); @@ -928,6 +859,8 @@ static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) } } +#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) + static void asm_ahuvload(ASMState *as, IRIns *ir) { IRType1 t = ir->t; @@ -1003,7 +936,7 @@ static void asm_sload(ASMState *as, IRIns *ir) if (irt_isint(t)) { Reg tmp = ra_scratch(as, RSET_FPR); emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fg(as, MIPSI_CVT_W_D, tmp, tmp); + emit_fg(as, MIPSI_TRUNC_W_D, tmp, tmp); dest = tmp; t.irt = IRT_NUM; /* Check for original type. */ } else { @@ -1043,19 +976,15 @@ static void asm_sload(ASMState *as, IRIns *ir) static void asm_cnew(ASMState *as, IRIns *ir) { CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; - CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? - lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + CTypeID id = (CTypeID)IR(ir->op1)->i; + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[2]; - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + IRRef args[4]; RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID); + lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ as->gcsteps++; - if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); /* Dest reg handled below. */ ra_evictset(as, drop); @@ -1064,6 +993,7 @@ static void asm_cnew(ASMState *as, IRIns *ir) /* Initialize immutable cdata object. */ if (ir->o == IR_CNEWI) { + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); int32_t ofs = sizeof(GCcdata); lua_assert(sz == 4 || sz == 8); if (sz == 8) { @@ -1078,12 +1008,24 @@ static void asm_cnew(ASMState *as, IRIns *ir) if (ofs == sizeof(GCcdata)) break; ofs -= 4; if (LJ_BE) ir++; else ir--; } + } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ + ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* CTypeID id */ + args[2] = ir->op2; /* CTSize sz */ + args[3] = ASMREF_TMP1; /* CTSize align */ + asm_gencall(as, ci, args); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); + return; } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ emit_tsi(as, MIPSI_SB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); emit_tsi(as, MIPSI_SH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); emit_ti(as, MIPSI_LI, RID_RET+1, ~LJ_TCDATA); - emit_ti(as, MIPSI_LI, RID_TMP, ctypeid); /* Lower 16 bit used. Sign-ext ok. */ + emit_ti(as, MIPSI_LI, RID_TMP, id); /* Lower 16 bit used. Sign-ext ok. */ + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ asm_gencall(as, ci, args); ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), ra_releasetmp(as, ASMREF_TMP1)); @@ -1153,23 +1095,16 @@ static void asm_fpunary(ASMState *as, IRIns *ir, MIPSIns mi) emit_fg(as, mi, dest, left); } -static int asm_fpjoin_pow(ASMState *as, IRIns *ir) -{ - IRIns *irp = IR(ir->op1); - if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { - IRIns *irpp = IR(irp->op1); - if (irpp == ir-2 && irpp->o == IR_FPMATH && - irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; - IRRef args[2]; - args[0] = irpp->op1; - args[1] = irp->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); - return 1; - } - } - return 0; +static void asm_fpmath(ASMState *as, IRIns *ir) +{ + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + return; + if (ir->op2 <= IRFPM_TRUNC) + asm_callround(as, ir, IRCALL_lj_vm_floor + ir->op2); + else if (ir->op2 == IRFPM_SQRT) + asm_fpunary(as, ir, MIPSI_SQRT_D); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); } static void asm_add(ASMState *as, IRIns *ir) @@ -1215,6 +1150,10 @@ static void asm_mul(ASMState *as, IRIns *ir) } } +#define asm_div(as, ir) asm_fparith(as, ir, MIPSI_DIV_D) +#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) +#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) + static void asm_neg(ASMState *as, IRIns *ir) { if (irt_isnum(ir->t)) { @@ -1226,6 +1165,10 @@ static void asm_neg(ASMState *as, IRIns *ir) } } +#define asm_abs(as, ir) asm_fpunary(as, ir, MIPSI_ABS_D) +#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) +#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) + static void asm_arithov(ASMState *as, IRIns *ir) { Reg right, left, tmp, dest = ra_dest(as, ir, RSET_GPR); @@ -1259,13 +1202,21 @@ static void asm_arithov(ASMState *as, IRIns *ir) emit_move(as, RID_TMP, dest == left ? left : right); } +#define asm_addov(as, ir) asm_arithov(as, ir) +#define asm_subov(as, ir) asm_arithov(as, ir) + static void asm_mulov(ASMState *as, IRIns *ir) { -#if LJ_DUALNUM -#error "NYI: MULOV" -#else - UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused in single-number mode. */ -#endif + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg tmp, right, left = ra_alloc2(as, ir, RSET_GPR); + right = (left >> 8); left &= 255; + tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, left), + right), dest)); + asm_guard(as, MIPSI_BNE, RID_TMP, tmp); + emit_dta(as, MIPSI_SRA, RID_TMP, dest, 31); + emit_dst(as, MIPSI_MFHI, tmp, 0, 0); + emit_dst(as, MIPSI_MFLO, dest, 0, 0); + emit_dst(as, MIPSI_MULT, 0, left, right); } #if LJ_HASFFI @@ -1352,7 +1303,7 @@ static void asm_neg64(ASMState *as, IRIns *ir) } #endif -static void asm_bitnot(ASMState *as, IRIns *ir) +static void asm_bnot(ASMState *as, IRIns *ir) { Reg left, right, dest = ra_dest(as, ir, RSET_GPR); IRIns *irl = IR(ir->op1); @@ -1366,7 +1317,7 @@ static void asm_bitnot(ASMState *as, IRIns *ir) emit_dst(as, MIPSI_NOR, dest, left, right); } -static void asm_bitswap(ASMState *as, IRIns *ir) +static void asm_bswap(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); Reg left = ra_alloc1(as, ir->op1, RSET_GPR); @@ -1402,6 +1353,10 @@ static void asm_bitop(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) emit_dst(as, mi, dest, left, right); } +#define asm_band(as, ir) asm_bitop(as, ir, MIPSI_AND, MIPSI_ANDI) +#define asm_bor(as, ir) asm_bitop(as, ir, MIPSI_OR, MIPSI_ORI) +#define asm_bxor(as, ir) asm_bitop(as, ir, MIPSI_XOR, MIPSI_XORI) + static void asm_bitshift(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -1415,7 +1370,12 @@ static void asm_bitshift(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) } } -static void asm_bitror(ASMState *as, IRIns *ir) +#define asm_bshl(as, ir) asm_bitshift(as, ir, MIPSI_SLLV, MIPSI_SLL) +#define asm_bshr(as, ir) asm_bitshift(as, ir, MIPSI_SRLV, MIPSI_SRL) +#define asm_bsar(as, ir) asm_bitshift(as, ir, MIPSI_SRAV, MIPSI_SRA) +#define asm_brol(as, ir) lua_assert(0) + +static void asm_bror(ASMState *as, IRIns *ir) { if ((as->flags & JIT_F_MIPS32R2)) { asm_bitshift(as, ir, MIPSI_ROTRV, MIPSI_ROTR); @@ -1464,6 +1424,9 @@ static void asm_min_max(ASMState *as, IRIns *ir, int ismax) } } +#define asm_min(as, ir) asm_min_max(as, ir, 0) +#define asm_max(as, ir) asm_min_max(as, ir, 1) + /* -- Comparisons --------------------------------------------------------- */ static void asm_comp(ASMState *as, IRIns *ir) @@ -1501,7 +1464,7 @@ static void asm_comp(ASMState *as, IRIns *ir) } } -static void asm_compeq(ASMState *as, IRIns *ir) +static void asm_equal(ASMState *as, IRIns *ir) { Reg right, left = ra_alloc2(as, ir, irt_isnum(ir->t) ? RSET_FPR : RSET_GPR); right = (left >> 8); left &= 255; @@ -1575,8 +1538,8 @@ static void asm_hiop(ASMState *as, IRIns *ir) } else if ((ir-1)->o == IR_XSTORE) { as->curins--; /* Handle both stores here. */ if ((ir-1)->r != RID_SINK) { - asm_xstore(as, ir, LJ_LE ? 4 : 0); - asm_xstore(as, ir-1, LJ_LE ? 0 : 4); + asm_xstore_(as, ir, LJ_LE ? 4 : 0); + asm_xstore_(as, ir-1, LJ_LE ? 0 : 4); } return; } @@ -1600,6 +1563,17 @@ static void asm_hiop(ASMState *as, IRIns *ir) #endif } +/* -- Profiling ----------------------------------------------------------- */ + +static void asm_prof(ASMState *as, IRIns *ir) +{ + UNUSED(ir); + asm_guard(as, MIPSI_BNE, RID_TMP, RID_ZERO); + emit_tsi(as, MIPSI_ANDI, RID_TMP, RID_TMP, HOOK_PROFILE); + emit_lsglptr(as, MIPSI_LBU, RID_TMP, + (int32_t)offsetof(global_State, hookmask)); +} + /* -- Stack handling ------------------------------------------------------ */ /* Check Lua stack size for overflow. Use exit handler as fallback. */ @@ -1624,7 +1598,7 @@ static void asm_stack_check(ASMState *as, BCReg topslot, emit_tsi(as, MIPSI_LW, tmp, tmp, offsetof(lua_State, maxstack)); if (pbase == RID_TMP) emit_getgl(as, RID_TMP, jit_base); - emit_getgl(as, tmp, jit_L); + emit_getgl(as, tmp, cur_L); if (allow == RSET_EMPTY) /* Spill temp. register. */ emit_tsi(as, MIPSI_SW, tmp, RID_SP, 0); } @@ -1772,131 +1746,13 @@ static void asm_tail_prep(ASMState *as) as->invmcp = as->loopref ? as->mcp : NULL; } -/* -- Instruction dispatch ------------------------------------------------ */ - -/* Assemble a single instruction. */ -static void asm_ir(ASMState *as, IRIns *ir) -{ - switch ((IROp)ir->o) { - /* Miscellaneous ops. */ - case IR_LOOP: asm_loop(as); break; - case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; - case IR_USE: - ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; - case IR_PHI: asm_phi(as, ir); break; - case IR_HIOP: asm_hiop(as, ir); break; - case IR_GCSTEP: asm_gcstep(as, ir); break; - - /* Guarded assertions. */ - case IR_EQ: case IR_NE: asm_compeq(as, ir); break; - case IR_LT: case IR_GE: case IR_LE: case IR_GT: - case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: - case IR_ABC: - asm_comp(as, ir); - break; - - case IR_RETF: asm_retf(as, ir); break; - - /* Bit ops. */ - case IR_BNOT: asm_bitnot(as, ir); break; - case IR_BSWAP: asm_bitswap(as, ir); break; - - case IR_BAND: asm_bitop(as, ir, MIPSI_AND, MIPSI_ANDI); break; - case IR_BOR: asm_bitop(as, ir, MIPSI_OR, MIPSI_ORI); break; - case IR_BXOR: asm_bitop(as, ir, MIPSI_XOR, MIPSI_XORI); break; - - case IR_BSHL: asm_bitshift(as, ir, MIPSI_SLLV, MIPSI_SLL); break; - case IR_BSHR: asm_bitshift(as, ir, MIPSI_SRLV, MIPSI_SRL); break; - case IR_BSAR: asm_bitshift(as, ir, MIPSI_SRAV, MIPSI_SRA); break; - case IR_BROL: lua_assert(0); break; - case IR_BROR: asm_bitror(as, ir); break; - - /* Arithmetic ops. */ - case IR_ADD: asm_add(as, ir); break; - case IR_SUB: asm_sub(as, ir); break; - case IR_MUL: asm_mul(as, ir); break; - case IR_DIV: asm_fparith(as, ir, MIPSI_DIV_D); break; - case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; - case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; - case IR_NEG: asm_neg(as, ir); break; - - case IR_ABS: asm_fpunary(as, ir, MIPSI_ABS_D); break; - case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; - case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; - case IR_MIN: asm_min_max(as, ir, 0); break; - case IR_MAX: asm_min_max(as, ir, 1); break; - case IR_FPMATH: - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - break; - if (ir->op2 <= IRFPM_TRUNC) - asm_callround(as, ir, IRCALL_lj_vm_floor + ir->op2); - else if (ir->op2 == IRFPM_SQRT) - asm_fpunary(as, ir, MIPSI_SQRT_D); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); - break; - - /* Overflow-checking arithmetic ops. */ - case IR_ADDOV: asm_arithov(as, ir); break; - case IR_SUBOV: asm_arithov(as, ir); break; - case IR_MULOV: asm_mulov(as, ir); break; - - /* Memory references. */ - case IR_AREF: asm_aref(as, ir); break; - case IR_HREF: asm_href(as, ir); break; - case IR_HREFK: asm_hrefk(as, ir); break; - case IR_NEWREF: asm_newref(as, ir); break; - case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; - case IR_FREF: asm_fref(as, ir); break; - case IR_STRREF: asm_strref(as, ir); break; - - /* Loads and stores. */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - asm_ahuvload(as, ir); - break; - case IR_FLOAD: asm_fload(as, ir); break; - case IR_XLOAD: asm_xload(as, ir); break; - case IR_SLOAD: asm_sload(as, ir); break; - - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; - case IR_FSTORE: asm_fstore(as, ir); break; - case IR_XSTORE: asm_xstore(as, ir, 0); break; - - /* Allocations. */ - case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; - case IR_TNEW: asm_tnew(as, ir); break; - case IR_TDUP: asm_tdup(as, ir); break; - case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; - - /* Write barriers. */ - case IR_TBAR: asm_tbar(as, ir); break; - case IR_OBAR: asm_obar(as, ir); break; - - /* Type conversions. */ - case IR_CONV: asm_conv(as, ir); break; - case IR_TOBIT: asm_tobit(as, ir); break; - case IR_TOSTR: asm_tostr(as, ir); break; - case IR_STRTO: asm_strto(as, ir); break; - - /* Calls. */ - case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; - case IR_CALLXS: asm_callx(as, ir); break; - case IR_CARG: break; - - default: - setintV(&as->J->errinfo, ir->o); - lj_trace_err_info(as->J, LJ_TRERR_NYIIR); - break; - } -} - /* -- Trace setup --------------------------------------------------------- */ /* Ensure there are enough stack slots for call arguments. */ static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) { IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = (int)CCI_NARGS(ci); + uint32_t i, nargs = CCI_XNARGS(ci); int nslots = 4, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; asm_collectargs(as, ir, ci, args); for (i = 0; i < nargs; i++) { diff --git a/src/3rd party/luajit-2.0/src/lj_asm_ppc.h b/src/3rd party/luajit-2.0/src/lj_asm_ppc.h index 2c5d74a8d94..221e221a012 100644 --- a/src/3rd party/luajit-2.0/src/lj_asm_ppc.h +++ b/src/3rd party/luajit-2.0/src/lj_asm_ppc.h @@ -251,7 +251,7 @@ static int asm_fusemadd(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pir) /* Generate a call to a C function. */ static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) { - uint32_t n, nargs = CCI_NARGS(ci); + uint32_t n, nargs = CCI_XNARGS(ci); int32_t ofs = 8; Reg gpr = REGARG_FIRSTGPR, fpr = REGARG_FIRSTFPR; if ((void *)ci->func) @@ -331,15 +331,6 @@ static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) } } -static void asm_call(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX]; - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - asm_collectargs(as, ir, ci, args); - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - static void asm_callx(ASMState *as, IRIns *ir) { IRRef args[CCI_NARGS_MAX*2]; @@ -363,16 +354,6 @@ static void asm_callx(ASMState *as, IRIns *ir) asm_gencall(as, &ci, args); } -static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) -{ - const CCallInfo *ci = &lj_ir_callinfo[id]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - /* -- Returns ------------------------------------------------------------- */ /* Return to lower frame. Guard that it goes to the right spot. */ @@ -380,7 +361,7 @@ static void asm_retf(ASMState *as, IRIns *ir) { Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); as->topslot -= (BCReg)delta; if ((int32_t)as->topslot < 0) as->topslot = 0; irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ @@ -513,28 +494,6 @@ static void asm_conv(ASMState *as, IRIns *ir) } } -#if LJ_HASFFI -static void asm_conv64(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); - IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); - IRCallID id; - const CCallInfo *ci; - IRRef args[2]; - args[0] = ir->op1; - args[1] = (ir-1)->op1; - if (st == IRT_NUM || st == IRT_FLOAT) { - id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); - ir--; - } else { - id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); - } - ci = &lj_ir_callinfo[id]; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} -#endif - static void asm_strto(ASMState *as, IRIns *ir) { const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; @@ -553,6 +512,8 @@ static void asm_strto(ASMState *as, IRIns *ir) emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_SP, ofs); } +/* -- Memory references --------------------------------------------------- */ + /* Get pointer to TValue. */ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) { @@ -576,27 +537,6 @@ static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) } } -static void asm_tostr(ASMState *as, IRIns *ir) -{ - IRRef args[2]; - args[0] = ASMREF_L; - as->gcsteps++; - if (irt_isnum(IR(ir->op1)->t) || (ir+1)->o == IR_HIOP) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; - args[1] = ASMREF_TMP1; /* const lua_Number * */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); - } else { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; - args[1] = ir->op1; /* int32_t k */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - } -} - -/* -- Memory references --------------------------------------------------- */ - static void asm_aref(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -773,20 +713,6 @@ static void asm_hrefk(ASMState *as, IRIns *ir) } } -static void asm_newref(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; - IRRef args[3]; - if (ir->r == RID_SINK) - return; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* GCtab *t */ - args[2] = ASMREF_TMP1; /* cTValue *key */ - asm_setupresult(as, ir, ci); /* TValue * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); -} - static void asm_uref(ASMState *as, IRIns *ir) { /* NYI: Check that UREFO is still open and not aliasing a slot. */ @@ -917,7 +843,7 @@ static void asm_xload(ASMState *as, IRIns *ir) asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); } -static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) +static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) { IRIns *irb; if (ir->r == RID_SINK) @@ -934,6 +860,8 @@ static void asm_xstore(ASMState *as, IRIns *ir, int32_t ofs) } } +#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) + static void asm_ahuvload(ASMState *as, IRIns *ir) { IRType1 t = ir->t; @@ -1084,19 +1012,15 @@ static void asm_sload(ASMState *as, IRIns *ir) static void asm_cnew(ASMState *as, IRIns *ir) { CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; - CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? - lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + CTypeID id = (CTypeID)IR(ir->op1)->i; + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[2]; - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); + IRRef args[4]; RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID); + lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ as->gcsteps++; - if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); /* Dest reg handled below. */ ra_evictset(as, drop); @@ -1105,6 +1029,7 @@ static void asm_cnew(ASMState *as, IRIns *ir) /* Initialize immutable cdata object. */ if (ir->o == IR_CNEWI) { + RegSet allow = (RSET_GPR & ~RSET_SCRATCH); int32_t ofs = sizeof(GCcdata); lua_assert(sz == 4 || sz == 8); if (sz == 8) { @@ -1118,12 +1043,24 @@ static void asm_cnew(ASMState *as, IRIns *ir) if (ofs == sizeof(GCcdata)) break; ofs -= 4; ir++; } + } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ + ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* CTypeID id */ + args[2] = ir->op2; /* CTSize sz */ + args[3] = ASMREF_TMP1; /* CTSize align */ + asm_gencall(as, ci, args); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); + return; } + /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ emit_tai(as, PPCI_STB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); emit_tai(as, PPCI_STH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); emit_ti(as, PPCI_LI, RID_RET+1, ~LJ_TCDATA); - emit_ti(as, PPCI_LI, RID_TMP, ctypeid); /* Lower 16 bit used. Sign-ext ok. */ + emit_ti(as, PPCI_LI, RID_TMP, id); /* Lower 16 bit used. Sign-ext ok. */ + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ asm_gencall(as, ci, args); ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), ra_releasetmp(as, ASMREF_TMP1)); @@ -1197,23 +1134,14 @@ static void asm_fpunary(ASMState *as, IRIns *ir, PPCIns pi) emit_fb(as, pi, dest, left); } -static int asm_fpjoin_pow(ASMState *as, IRIns *ir) -{ - IRIns *irp = IR(ir->op1); - if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { - IRIns *irpp = IR(irp->op1); - if (irpp == ir-2 && irpp->o == IR_FPMATH && - irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; - IRRef args[2]; - args[0] = irpp->op1; - args[1] = irp->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); - return 1; - } - } - return 0; +static void asm_fpmath(ASMState *as, IRIns *ir) +{ + if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) + return; + if (ir->op2 == IRFPM_SQRT && (as->flags & JIT_F_SQRT)) + asm_fpunary(as, ir, PPCI_FSQRT); + else + asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); } static void asm_add(ASMState *as, IRIns *ir) @@ -1313,6 +1241,10 @@ static void asm_mul(ASMState *as, IRIns *ir) } } +#define asm_div(as, ir) asm_fparith(as, ir, PPCI_FDIV) +#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) +#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) + static void asm_neg(ASMState *as, IRIns *ir) { if (irt_isnum(ir->t)) { @@ -1331,6 +1263,10 @@ static void asm_neg(ASMState *as, IRIns *ir) } } +#define asm_abs(as, ir) asm_fpunary(as, ir, PPCI_FABS) +#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) +#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) + static void asm_arithov(ASMState *as, IRIns *ir, PPCIns pi) { Reg dest, left, right; @@ -1346,6 +1282,10 @@ static void asm_arithov(ASMState *as, IRIns *ir, PPCIns pi) emit_tab(as, pi|PPCF_DOT, dest, left, right); } +#define asm_addov(as, ir) asm_arithov(as, ir, PPCI_ADDO) +#define asm_subov(as, ir) asm_arithov(as, ir, PPCI_SUBFO) +#define asm_mulov(as, ir) asm_arithov(as, ir, PPCI_MULLWO) + #if LJ_HASFFI static void asm_add64(ASMState *as, IRIns *ir) { @@ -1425,7 +1365,7 @@ static void asm_neg64(ASMState *as, IRIns *ir) } #endif -static void asm_bitnot(ASMState *as, IRIns *ir) +static void asm_bnot(ASMState *as, IRIns *ir) { Reg dest, left, right; PPCIns pi = PPCI_NOR; @@ -1452,7 +1392,7 @@ static void asm_bitnot(ASMState *as, IRIns *ir) emit_asb(as, pi, dest, left, right); } -static void asm_bitswap(ASMState *as, IRIns *ir) +static void asm_bswap(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); IRIns *irx; @@ -1473,32 +1413,6 @@ static void asm_bitswap(ASMState *as, IRIns *ir) } } -static void asm_bitop(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - Reg tmp = left; - if ((checku16(k) || (k & 0xffff) == 0) || (tmp = dest, !as->sectref)) { - if (!checku16(k)) { - emit_asi(as, pik ^ (PPCI_ORI ^ PPCI_ORIS), dest, tmp, (k >> 16)); - if ((k & 0xffff) == 0) return; - } - emit_asi(as, pik, dest, left, k); - return; - } - } - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_asb(as, pi, dest, left, right); -} - /* Fuse BAND with contiguous bitmask and a shift to rlwinm. */ static void asm_fuseandsh(ASMState *as, PPCIns pi, int32_t mask, IRRef ref) { @@ -1529,7 +1443,7 @@ static void asm_fuseandsh(ASMState *as, PPCIns pi, int32_t mask, IRRef ref) *--as->mcp = pi | PPCF_T(left); } -static void asm_bitand(ASMState *as, IRIns *ir) +static void asm_band(ASMState *as, IRIns *ir) { Reg dest, left, right; IRRef lref = ir->op1; @@ -1584,6 +1498,35 @@ static void asm_bitand(ASMState *as, IRIns *ir) emit_asb(as, PPCI_AND ^ dot, dest, left, right); } +static void asm_bitop(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) +{ + Reg dest = ra_dest(as, ir, RSET_GPR); + Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); + if (irref_isk(ir->op2)) { + int32_t k = IR(ir->op2)->i; + Reg tmp = left; + if ((checku16(k) || (k & 0xffff) == 0) || (tmp = dest, !as->sectref)) { + if (!checku16(k)) { + emit_asi(as, pik ^ (PPCI_ORI ^ PPCI_ORIS), dest, tmp, (k >> 16)); + if ((k & 0xffff) == 0) return; + } + emit_asi(as, pik, dest, left, k); + return; + } + } + /* May fail due to spills/restores above, but simplifies the logic. */ + if (as->flagmcp == as->mcp) { + as->flagmcp = NULL; + as->mcp++; + pi |= PPCF_DOT; + } + right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); + emit_asb(as, pi, dest, left, right); +} + +#define asm_bor(as, ir) asm_bitop(as, ir, PPCI_OR, PPCI_ORI) +#define asm_bxor(as, ir) asm_bitop(as, ir, PPCI_XOR, PPCI_XORI) + static void asm_bitshift(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) { Reg dest, left; @@ -1609,6 +1552,14 @@ static void asm_bitshift(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) } } +#define asm_bshl(as, ir) asm_bitshift(as, ir, PPCI_SLW, 0) +#define asm_bshr(as, ir) asm_bitshift(as, ir, PPCI_SRW, 1) +#define asm_bsar(as, ir) asm_bitshift(as, ir, PPCI_SRAW, PPCI_SRAWI) +#define asm_brol(as, ir) \ + asm_bitshift(as, ir, PPCI_RLWNM|PPCF_MB(0)|PPCF_ME(31), \ + PPCI_RLWINM|PPCF_MB(0)|PPCF_ME(31)) +#define asm_bror(as, ir) lua_assert(0) + static void asm_min_max(ASMState *as, IRIns *ir, int ismax) { if (irt_isnum(ir->t)) { @@ -1639,6 +1590,9 @@ static void asm_min_max(ASMState *as, IRIns *ir, int ismax) } } +#define asm_min(as, ir) asm_min_max(as, ir, 0) +#define asm_max(as, ir) asm_min_max(as, ir, 1) + /* -- Comparisons --------------------------------------------------------- */ #define CC_UNSIGNED 0x08 /* Unsigned integer comparison. */ @@ -1715,6 +1669,8 @@ static void asm_comp(ASMState *as, IRIns *ir) } } +#define asm_equal(as, ir) asm_comp(as, ir) + #if LJ_HASFFI /* 64 bit integer comparisons. */ static void asm_comp64(ASMState *as, IRIns *ir) @@ -1760,8 +1716,8 @@ static void asm_hiop(ASMState *as, IRIns *ir) } else if ((ir-1)->o == IR_XSTORE) { as->curins--; /* Handle both stores here. */ if ((ir-1)->r != RID_SINK) { - asm_xstore(as, ir, 0); - asm_xstore(as, ir-1, 4); + asm_xstore_(as, ir, 0); + asm_xstore_(as, ir-1, 4); } return; } @@ -1785,6 +1741,17 @@ static void asm_hiop(ASMState *as, IRIns *ir) #endif } +/* -- Profiling ----------------------------------------------------------- */ + +static void asm_prof(ASMState *as, IRIns *ir) +{ + UNUSED(ir); + asm_guardcc(as, CC_NE); + emit_asi(as, PPCI_ANDIDOT, RID_TMP, RID_TMP, HOOK_PROFILE); + emit_lsglptr(as, PPCI_LBZ, RID_TMP, + (int32_t)offsetof(global_State, hookmask)); +} + /* -- Stack handling ------------------------------------------------------ */ /* Check Lua stack size for overflow. Use exit handler as fallback. */ @@ -1806,7 +1773,7 @@ static void asm_stack_check(ASMState *as, BCReg topslot, emit_tai(as, PPCI_LWZ, tmp, tmp, offsetof(lua_State, maxstack)); if (pbase == RID_TMP) emit_getgl(as, RID_TMP, jit_base); - emit_getgl(as, tmp, jit_L); + emit_getgl(as, tmp, cur_L); if (allow == RSET_EMPTY) /* Spill temp. register. */ emit_tai(as, PPCI_STW, tmp, RID_SP, SPOFS_TMPW); } @@ -1967,136 +1934,13 @@ static void asm_tail_prep(ASMState *as) } } -/* -- Instruction dispatch ------------------------------------------------ */ - -/* Assemble a single instruction. */ -static void asm_ir(ASMState *as, IRIns *ir) -{ - switch ((IROp)ir->o) { - /* Miscellaneous ops. */ - case IR_LOOP: asm_loop(as); break; - case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; - case IR_USE: - ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; - case IR_PHI: asm_phi(as, ir); break; - case IR_HIOP: asm_hiop(as, ir); break; - case IR_GCSTEP: asm_gcstep(as, ir); break; - - /* Guarded assertions. */ - case IR_EQ: case IR_NE: - if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { - as->curins--; - asm_href(as, ir-1, (IROp)ir->o); - break; - } - /* fallthrough */ - case IR_LT: case IR_GE: case IR_LE: case IR_GT: - case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: - case IR_ABC: - asm_comp(as, ir); - break; - - case IR_RETF: asm_retf(as, ir); break; - - /* Bit ops. */ - case IR_BNOT: asm_bitnot(as, ir); break; - case IR_BSWAP: asm_bitswap(as, ir); break; - - case IR_BAND: asm_bitand(as, ir); break; - case IR_BOR: asm_bitop(as, ir, PPCI_OR, PPCI_ORI); break; - case IR_BXOR: asm_bitop(as, ir, PPCI_XOR, PPCI_XORI); break; - - case IR_BSHL: asm_bitshift(as, ir, PPCI_SLW, 0); break; - case IR_BSHR: asm_bitshift(as, ir, PPCI_SRW, 1); break; - case IR_BSAR: asm_bitshift(as, ir, PPCI_SRAW, PPCI_SRAWI); break; - case IR_BROL: asm_bitshift(as, ir, PPCI_RLWNM|PPCF_MB(0)|PPCF_ME(31), - PPCI_RLWINM|PPCF_MB(0)|PPCF_ME(31)); break; - case IR_BROR: lua_assert(0); break; - - /* Arithmetic ops. */ - case IR_ADD: asm_add(as, ir); break; - case IR_SUB: asm_sub(as, ir); break; - case IR_MUL: asm_mul(as, ir); break; - case IR_DIV: asm_fparith(as, ir, PPCI_FDIV); break; - case IR_MOD: asm_callid(as, ir, IRCALL_lj_vm_modi); break; - case IR_POW: asm_callid(as, ir, IRCALL_lj_vm_powi); break; - case IR_NEG: asm_neg(as, ir); break; - - case IR_ABS: asm_fpunary(as, ir, PPCI_FABS); break; - case IR_ATAN2: asm_callid(as, ir, IRCALL_atan2); break; - case IR_LDEXP: asm_callid(as, ir, IRCALL_ldexp); break; - case IR_MIN: asm_min_max(as, ir, 0); break; - case IR_MAX: asm_min_max(as, ir, 1); break; - case IR_FPMATH: - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - break; - if (ir->op2 == IRFPM_SQRT && (as->flags & JIT_F_SQRT)) - asm_fpunary(as, ir, PPCI_FSQRT); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); - break; - - /* Overflow-checking arithmetic ops. */ - case IR_ADDOV: asm_arithov(as, ir, PPCI_ADDO); break; - case IR_SUBOV: asm_arithov(as, ir, PPCI_SUBFO); break; - case IR_MULOV: asm_arithov(as, ir, PPCI_MULLWO); break; - - /* Memory references. */ - case IR_AREF: asm_aref(as, ir); break; - case IR_HREF: asm_href(as, ir, 0); break; - case IR_HREFK: asm_hrefk(as, ir); break; - case IR_NEWREF: asm_newref(as, ir); break; - case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; - case IR_FREF: asm_fref(as, ir); break; - case IR_STRREF: asm_strref(as, ir); break; - - /* Loads and stores. */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - asm_ahuvload(as, ir); - break; - case IR_FLOAD: asm_fload(as, ir); break; - case IR_XLOAD: asm_xload(as, ir); break; - case IR_SLOAD: asm_sload(as, ir); break; - - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; - case IR_FSTORE: asm_fstore(as, ir); break; - case IR_XSTORE: asm_xstore(as, ir, 0); break; - - /* Allocations. */ - case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; - case IR_TNEW: asm_tnew(as, ir); break; - case IR_TDUP: asm_tdup(as, ir); break; - case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; - - /* Write barriers. */ - case IR_TBAR: asm_tbar(as, ir); break; - case IR_OBAR: asm_obar(as, ir); break; - - /* Type conversions. */ - case IR_CONV: asm_conv(as, ir); break; - case IR_TOBIT: asm_tobit(as, ir); break; - case IR_TOSTR: asm_tostr(as, ir); break; - case IR_STRTO: asm_strto(as, ir); break; - - /* Calls. */ - case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; - case IR_CALLXS: asm_callx(as, ir); break; - case IR_CARG: break; - - default: - setintV(&as->J->errinfo, ir->o); - lj_trace_err_info(as->J, LJ_TRERR_NYIIR); - break; - } -} - /* -- Trace setup --------------------------------------------------------- */ /* Ensure there are enough stack slots for call arguments. */ static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) { IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = (int)CCI_NARGS(ci); + uint32_t i, nargs = CCI_XNARGS(ci); int nslots = 2, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; asm_collectargs(as, ir, ci, args); for (i = 0; i < nargs; i++) diff --git a/src/3rd party/luajit-2.0/src/lj_asm_x86.h b/src/3rd party/luajit-2.0/src/lj_asm_x86.h index bb6976f2c54..303d129fe34 100644 --- a/src/3rd party/luajit-2.0/src/lj_asm_x86.h +++ b/src/3rd party/luajit-2.0/src/lj_asm_x86.h @@ -392,7 +392,7 @@ static Reg asm_fuseloadm(ASMState *as, IRRef ref, RegSet allow, int is64) /* Count the required number of stack slots for a call. */ static int asm_count_call_slots(ASMState *as, const CCallInfo *ci, IRRef *args) { - uint32_t i, nargs = CCI_NARGS(ci); + uint32_t i, nargs = CCI_XNARGS(ci); int nslots = 0; #if LJ_64 if (LJ_ABI_WIN) { @@ -425,7 +425,7 @@ static int asm_count_call_slots(ASMState *as, const CCallInfo *ci, IRRef *args) /* Generate a call to a C function. */ static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) { - uint32_t n, nargs = CCI_NARGS(ci); + uint32_t n, nargs = CCI_XNARGS(ci); int32_t ofs = STACKARG_OFS; #if LJ_64 uint32_t gprs = REGARG_GPRS; @@ -560,7 +560,7 @@ static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) if (ra_hasreg(dest)) { ra_free(as, dest); ra_modified(as, dest); - emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, dest, RID_ESP, ofs); } if ((ci->flags & CCI_CASTU64)) { @@ -584,15 +584,6 @@ static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) } } -static void asm_call(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX]; - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - asm_collectargs(as, ir, ci, args); - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - /* Return a constant function pointer or NULL for indirect calls. */ static void *asm_callx_func(ASMState *as, IRIns *irf, IRRef func) { @@ -652,7 +643,7 @@ static void asm_retf(ASMState *as, IRIns *ir) { Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+bc_a(*((const BCIns *)pc - 1)); + int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); as->topslot -= (BCReg)delta; if ((int32_t)as->topslot < 0) as->topslot = 0; irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ @@ -672,8 +663,7 @@ static void asm_tointg(ASMState *as, IRIns *ir, Reg left) asm_guardcc(as, CC_NE); emit_rr(as, XO_UCOMISD, left, tmp); emit_rr(as, XO_CVTSI2SD, tmp, dest); - if (!(as->flags & JIT_F_SPLIT_XMM)) - emit_rr(as, XO_XORPS, tmp, tmp); /* Avoid partial register stall. */ + emit_rr(as, XO_XORPS, tmp, tmp); /* Avoid partial register stall. */ emit_rr(as, XO_CVTTSD2SI, dest, left); /* Can't fuse since left is needed twice. */ } @@ -729,8 +719,7 @@ static void asm_conv(ASMState *as, IRIns *ir) emit_mrm(as, irt_isnum(ir->t) ? XO_CVTSI2SD : XO_CVTSI2SS, dest|((LJ_64 && (st64 || st == IRT_U32)) ? REX_64 : 0), left); } - if (!(as->flags & JIT_F_SPLIT_XMM)) - emit_rr(as, XO_XORPS, dest, dest); /* Avoid partial register stall. */ + emit_rr(as, XO_XORPS, dest, dest); /* Avoid partial register stall. */ } else if (stfp) { /* FP to integer conversion. */ if (irt_isguard(ir->t)) { /* Checked conversions are only supported from number to int. */ @@ -738,9 +727,7 @@ static void asm_conv(ASMState *as, IRIns *ir) asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); } else { Reg dest = ra_dest(as, ir, RSET_GPR); - x86Op op = st == IRT_NUM ? - ((ir->op2 & IRCONV_TRUNC) ? XO_CVTTSD2SI : XO_CVTSD2SI) : - ((ir->op2 & IRCONV_TRUNC) ? XO_CVTTSS2SI : XO_CVTSS2SI); + x86Op op = st == IRT_NUM ? XO_CVTTSD2SI : XO_CVTTSS2SI; if (LJ_64 ? irt_isu64(ir->t) : irt_isu32(ir->t)) { /* LJ_64: For inputs >= 2^63 add -2^64, convert again. */ /* LJ_32: For inputs >= 2^31 add -2^31, convert again and add 2^31. */ @@ -834,8 +821,7 @@ static void asm_conv_fp_int64(ASMState *as, IRIns *ir) if (ra_hasreg(dest)) { ra_free(as, dest); ra_modified(as, dest); - emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, - dest, RID_ESP, ofs); + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, dest, RID_ESP, ofs); } emit_rmro(as, irt_isnum(ir->t) ? XO_FSTPq : XO_FSTPd, irt_isnum(ir->t) ? XOg_FSTPq : XOg_FSTPd, RID_ESP, ofs); @@ -863,7 +849,6 @@ static void asm_conv_int64_fp(ASMState *as, IRIns *ir) Reg lo, hi; lua_assert(st == IRT_NUM || st == IRT_FLOAT); lua_assert(dt == IRT_I64 || dt == IRT_U64); - lua_assert(((ir-1)->op2 & IRCONV_TRUNC)); hi = ra_dest(as, ir, RSET_GPR); lo = ra_dest(as, ir-1, rset_exclude(RSET_GPR, hi)); if (ra_used(ir-1)) emit_rmro(as, XO_MOV, lo, RID_ESP, 0); @@ -906,6 +891,14 @@ static void asm_conv_int64_fp(ASMState *as, IRIns *ir) st == IRT_NUM ? XOg_FLDq: XOg_FLDd, asm_fuseload(as, ir->op1, RSET_EMPTY)); } + +static void asm_conv64(ASMState *as, IRIns *ir) +{ + if (irt_isfp(ir->t)) + asm_conv_fp_int64(as, ir); + else + asm_conv_int64_fp(as, ir); +} #endif static void asm_strto(ASMState *as, IRIns *ir) @@ -927,29 +920,32 @@ static void asm_strto(ASMState *as, IRIns *ir) RID_ESP, sps_scale(ir->s)); } -static void asm_tostr(ASMState *as, IRIns *ir) +/* -- Memory references --------------------------------------------------- */ + +/* Get pointer to TValue. */ +static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) { - IRIns *irl = IR(ir->op1); - IRRef args[2]; - args[0] = ASMREF_L; - as->gcsteps++; - if (irt_isnum(irl->t)) { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromnum]; - args[1] = ASMREF_TMP1; /* const lua_Number * */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - emit_rmro(as, XO_LEA, ra_releasetmp(as, ASMREF_TMP1)|REX_64, - RID_ESP, ra_spill(as, irl)); + IRIns *ir = IR(ref); + if (irt_isnum(ir->t)) { + /* For numbers use the constant itself or a spill slot as a TValue. */ + if (irref_isk(ref)) + emit_loada(as, dest, ir_knum(ir)); + else + emit_rmro(as, XO_LEA, dest|REX_64, RID_ESP, ra_spill(as, ir)); } else { - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_fromint]; - args[1] = ir->op1; /* int32_t k */ - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); + /* Otherwise use g->tmptv to hold the TValue. */ + if (!irref_isk(ref)) { + Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPR, dest)); + emit_movtomro(as, REX_64IR(ir, src), dest, 0); + } else if (!irt_ispri(ir->t)) { + emit_movmroi(as, dest, 0, ir->i); + } + if (!(LJ_64 && irt_islightud(ir->t))) + emit_movmroi(as, dest, 4, irt_toitype(ir->t)); + emit_loada(as, dest, &J2G(as->J)->tmptv); } } -/* -- Memory references --------------------------------------------------- */ - static void asm_aref(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -960,23 +956,6 @@ static void asm_aref(ASMState *as, IRIns *ir) emit_rr(as, XO_MOV, dest, as->mrm.base); } -/* Merge NE(HREF, niltv) check. */ -static MCode *merge_href_niltv(ASMState *as, IRIns *ir) -{ - /* Assumes nothing else generates NE of HREF. */ - if ((ir[1].o == IR_NE || ir[1].o == IR_EQ) && ir[1].op1 == as->curins && - ra_hasreg(ir->r)) { - MCode *p = as->mcp; - p += (LJ_64 && *p != XI_ARITHi) ? 7+6 : 6+6; - /* Ensure no loop branch inversion happened. */ - if (p[-6] == 0x0f && p[-5] == XI_JCCn+(CC_NE^(ir[1].o & 1))) { - as->mcp = p; /* Kill cmp reg, imm32 + jz exit. */ - return p + *(int32_t *)(p-4); /* Return exit address. */ - } - } - return NULL; -} - /* Inlined hash lookup. Specialized for key type and for const keys. ** The equivalent C code is: ** Node *n = hashkey(t, key); @@ -985,10 +964,10 @@ static MCode *merge_href_niltv(ASMState *as, IRIns *ir) ** } while ((n = nextnode(n))); ** return niltv(L); */ -static void asm_href(ASMState *as, IRIns *ir) +static void asm_href(ASMState *as, IRIns *ir, IROp merge) { - MCode *nilexit = merge_href_niltv(as, ir); /* Do this before any restores. */ RegSet allow = RSET_GPR; + int destused = ra_used(ir); Reg dest = ra_dest(as, ir, allow); Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); Reg key = RID_NONE, tmp = RID_NONE; @@ -1005,14 +984,12 @@ static void asm_href(ASMState *as, IRIns *ir) tmp = ra_scratch(as, rset_exclude(allow, key)); } - /* Key not found in chain: jump to exit (if merged with NE) or load niltv. */ + /* Key not found in chain: jump to exit (if merged) or load niltv. */ l_end = emit_label(as); - if (nilexit && ir[1].o == IR_NE) { - emit_jcc(as, CC_E, nilexit); /* XI_JMP is not found by lj_asm_patchexit. */ - nilexit = NULL; - } else { + if (merge == IR_NE) + asm_guardcc(as, CC_E); /* XI_JMP is not found by lj_asm_patchexit. */ + else if (destused) emit_loada(as, dest, niltvg(J2G(as->J))); - } /* Follow hash chain until the end. */ l_loop = emit_sjcc_label(as, CC_NZ); @@ -1021,8 +998,8 @@ static void asm_href(ASMState *as, IRIns *ir) l_next = emit_label(as); /* Type and value comparison. */ - if (nilexit) - emit_jcc(as, CC_E, nilexit); + if (merge == IR_EQ) + asm_guardcc(as, CC_E); else emit_sjcc(as, CC_E, l_end); if (irt_isnum(kt)) { @@ -1178,41 +1155,6 @@ static void asm_hrefk(ASMState *as, IRIns *ir) #endif } -static void asm_newref(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; - IRRef args[3]; - IRIns *irkey; - Reg tmp; - if (ir->r == RID_SINK) - return; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* GCtab *t */ - args[2] = ASMREF_TMP1; /* cTValue *key */ - asm_setupresult(as, ir, ci); /* TValue * */ - asm_gencall(as, ci, args); - tmp = ra_releasetmp(as, ASMREF_TMP1); - irkey = IR(ir->op2); - if (irt_isnum(irkey->t)) { - /* For numbers use the constant itself or a spill slot as a TValue. */ - if (irref_isk(ir->op2)) - emit_loada(as, tmp, ir_knum(irkey)); - else - emit_rmro(as, XO_LEA, tmp|REX_64, RID_ESP, ra_spill(as, irkey)); - } else { - /* Otherwise use g->tmptv to hold the TValue. */ - if (!irref_isk(ir->op2)) { - Reg src = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, tmp)); - emit_movtomro(as, REX_64IR(irkey, src), tmp, 0); - } else if (!irt_ispri(irkey->t)) { - emit_movmroi(as, tmp, 0, irkey->i); - } - if (!(LJ_64 && irt_islightud(irkey->t))) - emit_movmroi(as, tmp, 4, irt_toitype(irkey->t)); - emit_loada(as, tmp, &J2G(as->J)->tmptv); - } -} - static void asm_uref(ASMState *as, IRIns *ir) { /* NYI: Check that UREFO is still open and not aliasing a slot. */ @@ -1272,7 +1214,7 @@ static void asm_fxload(ASMState *as, IRIns *ir) case IRT_U8: xo = XO_MOVZXb; break; case IRT_I16: xo = XO_MOVSXw; break; case IRT_U16: xo = XO_MOVZXw; break; - case IRT_NUM: xo = XMM_MOVRM(as); break; + case IRT_NUM: xo = XO_MOVSD; break; case IRT_FLOAT: xo = XO_MOVSS; break; default: if (LJ_64 && irt_is64(ir->t)) @@ -1285,6 +1227,9 @@ static void asm_fxload(ASMState *as, IRIns *ir) emit_mrm(as, xo, dest, RID_MRM); } +#define asm_fload(as, ir) asm_fxload(as, ir) +#define asm_xload(as, ir) asm_fxload(as, ir) + static void asm_fxstore(ASMState *as, IRIns *ir) { RegSet allow = RSET_GPR; @@ -1348,6 +1293,9 @@ static void asm_fxstore(ASMState *as, IRIns *ir) } } +#define asm_fstore(as, ir) asm_fxstore(as, ir) +#define asm_xstore(as, ir) asm_fxstore(as, ir) + #if LJ_64 static Reg asm_load_lightud64(ASMState *as, IRIns *ir, int typecheck) { @@ -1386,7 +1334,7 @@ static void asm_ahuvload(ASMState *as, IRIns *ir) RegSet allow = irt_isnum(ir->t) ? RSET_FPR : RSET_GPR; Reg dest = ra_dest(as, ir, allow); asm_fuseahuref(as, ir->op1, RSET_GPR); - emit_mrm(as, dest < RID_MAX_GPR ? XO_MOV : XMM_MOVRM(as), dest, RID_MRM); + emit_mrm(as, dest < RID_MAX_GPR ? XO_MOV : XO_MOVSD, dest, RID_MRM); } else { asm_fuseahuref(as, ir->op1, RSET_GPR); } @@ -1452,7 +1400,7 @@ static void asm_sload(ASMState *as, IRIns *ir) Reg left = ra_scratch(as, RSET_FPR); asm_tointg(as, ir, left); /* Frees dest reg. Do this before base alloc. */ base = ra_alloc1(as, REF_BASE, RSET_GPR); - emit_rmro(as, XMM_MOVRM(as), left, base, ofs); + emit_rmro(as, XO_MOVSD, left, base, ofs); t.irt = IRT_NUM; /* Continue with a regular number type check. */ #if LJ_64 } else if (irt_islightud(t)) { @@ -1470,11 +1418,9 @@ static void asm_sload(ASMState *as, IRIns *ir) lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); if ((ir->op2 & IRSLOAD_CONVERT)) { t.irt = irt_isint(t) ? IRT_NUM : IRT_INT; /* Check for original type. */ - emit_rmro(as, irt_isint(t) ? XO_CVTSI2SD : XO_CVTSD2SI, dest, base, ofs); - } else if (irt_isnum(t)) { - emit_rmro(as, XMM_MOVRM(as), dest, base, ofs); + emit_rmro(as, irt_isint(t) ? XO_CVTSI2SD : XO_CVTTSD2SI, dest, base, ofs); } else { - emit_rmro(as, XO_MOV, dest, base, ofs); + emit_rmro(as, irt_isnum(t) ? XO_MOVSD : XO_MOV, dest, base, ofs); } } else { if (!(ir->op2 & IRSLOAD_TYPECHECK)) @@ -1501,15 +1447,13 @@ static void asm_sload(ASMState *as, IRIns *ir) static void asm_cnew(ASMState *as, IRIns *ir) { CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID ctypeid = (CTypeID)IR(ir->op1)->i; - CTSize sz = (ir->o == IR_CNEWI || ir->op2 == REF_NIL) ? - lj_ctype_size(cts, ctypeid) : (CTSize)IR(ir->op2)->i; + CTypeID id = (CTypeID)IR(ir->op1)->i; + CTSize sz; + CTInfo info = lj_ctype_info(cts, id, &sz); const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[2]; - lua_assert(sz != CTSIZE_INVALID); + IRRef args[4]; + lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ as->gcsteps++; asm_setupresult(as, ir, ci); /* GCcdata * */ @@ -1552,15 +1496,26 @@ static void asm_cnew(ASMState *as, IRIns *ir) } while (1); #endif lua_assert(sz == 4 || sz == 8); + } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ + ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ir->op1; /* CTypeID id */ + args[2] = ir->op2; /* CTSize sz */ + args[3] = ASMREF_TMP1; /* CTSize align */ + asm_gencall(as, ci, args); + emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); + return; } /* Combine initialization of marked, gct and ctypeid. */ emit_movtomro(as, RID_ECX, RID_RET, offsetof(GCcdata, marked)); emit_gri(as, XG_ARITHi(XOg_OR), RID_ECX, - (int32_t)((~LJ_TCDATA<<8)+(ctypeid<<16))); + (int32_t)((~LJ_TCDATA<<8)+(id<<16))); emit_gri(as, XG_ARITHi(XOg_AND), RID_ECX, LJ_GC_WHITES); emit_opgl(as, XO_MOVZXb, RID_ECX, gc.currentwhite); + args[0] = ASMREF_L; /* lua_State *L */ + args[1] = ASMREF_TMP1; /* MSize size */ asm_gencall(as, ci, args); emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)(sz+sizeof(GCcdata))); } @@ -1638,36 +1593,9 @@ static void asm_x87load(ASMState *as, IRRef ref) } } -/* Try to rejoin pow from EXP2, MUL and LOG2 (if still unsplit). */ -static int fpmjoin_pow(ASMState *as, IRIns *ir) -{ - IRIns *irp = IR(ir->op1); - if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { - IRIns *irpp = IR(irp->op1); - if (irpp == ir-2 && irpp->o == IR_FPMATH && - irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM2+1)|RID2RSET(RID_EAX); - IRIns *irx; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - ra_destreg(as, ir, RID_XMM0); - emit_call(as, lj_vm_pow_sse); - irx = IR(irpp->op1); - if (ra_noreg(irx->r) && ra_gethint(irx->r) == RID_XMM1) - irx->r = RID_INIT; /* Avoid allocating xmm1 for x. */ - ra_left(as, RID_XMM0, irpp->op1); - ra_left(as, RID_XMM1, irp->op2); - return 1; - } - } - return 0; -} - static void asm_fpmath(ASMState *as, IRIns *ir) { - IRFPMathOp fpm = ir->o == IR_FPMATH ? (IRFPMathOp)ir->op2 : IRFPM_OTHER; + IRFPMathOp fpm = (IRFPMathOp)ir->op2; if (fpm == IRFPM_SQRT) { Reg dest = ra_dest(as, ir, RSET_FPR); Reg left = asm_fuseload(as, ir->op1, RSET_FPR); @@ -1698,51 +1626,29 @@ static void asm_fpmath(ASMState *as, IRIns *ir) fpm == IRFPM_CEIL ? lj_vm_ceil_sse : lj_vm_trunc_sse); ra_left(as, RID_XMM0, ir->op1); } - } else if (fpm == IRFPM_EXP2 && fpmjoin_pow(as, ir)) { + } else if (fpm == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) { /* Rejoined to pow(). */ - } else { /* Handle x87 ops. */ - int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_rmro(as, XMM_MOVRM(as), dest, RID_ESP, ofs); - } - emit_rmro(as, XO_FSTPq, XOg_FSTPq, RID_ESP, ofs); - switch (fpm) { /* st0 = lj_vm_*(st0) */ - case IRFPM_EXP: emit_call(as, lj_vm_exp_x87); break; - case IRFPM_EXP2: emit_call(as, lj_vm_exp2_x87); break; - case IRFPM_SIN: emit_x87op(as, XI_FSIN); break; - case IRFPM_COS: emit_x87op(as, XI_FCOS); break; - case IRFPM_TAN: emit_x87op(as, XI_FPOP); emit_x87op(as, XI_FPTAN); break; - case IRFPM_LOG: case IRFPM_LOG2: case IRFPM_LOG10: - /* Note: the use of fyl2xp1 would be pointless here. When computing - ** log(1.0+eps) the precision is already lost after 1.0 is added. - ** Subtracting 1.0 won't recover it. OTOH math.log1p would make sense. - */ - emit_x87op(as, XI_FYL2X); break; - case IRFPM_OTHER: - switch (ir->o) { - case IR_ATAN2: - emit_x87op(as, XI_FPATAN); asm_x87load(as, ir->op2); break; - case IR_LDEXP: - emit_x87op(as, XI_FPOP1); emit_x87op(as, XI_FSCALE); break; - default: lua_assert(0); break; - } - break; - default: lua_assert(0); break; - } - asm_x87load(as, ir->op1); - switch (fpm) { - case IRFPM_LOG: emit_x87op(as, XI_FLDLN2); break; - case IRFPM_LOG2: emit_x87op(as, XI_FLD1); break; - case IRFPM_LOG10: emit_x87op(as, XI_FLDLG2); break; - case IRFPM_OTHER: - if (ir->o == IR_LDEXP) asm_x87load(as, ir->op2); - break; - default: break; - } + } else { + asm_callid(as, ir, IRCALL_lj_vm_floor + fpm); + } +} + +#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) + +static void asm_ldexp(ASMState *as, IRIns *ir) +{ + int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ + Reg dest = ir->r; + if (ra_hasreg(dest)) { + ra_free(as, dest); + ra_modified(as, dest); + emit_rmro(as, XO_MOVSD, dest, RID_ESP, ofs); } + emit_rmro(as, XO_FSTPq, XOg_FSTPq, RID_ESP, ofs); + emit_x87op(as, XI_FPOP1); + emit_x87op(as, XI_FSCALE); + asm_x87load(as, ir->op1); + asm_x87load(as, ir->op2); } static void asm_fppowi(ASMState *as, IRIns *ir) @@ -1758,26 +1664,15 @@ static void asm_fppowi(ASMState *as, IRIns *ir) ra_left(as, RID_EAX, ir->op2); } -#if LJ_64 && LJ_HASFFI -static void asm_arith64(ASMState *as, IRIns *ir, IRCallID id) +static void asm_pow(ASMState *as, IRIns *ir) { - const CCallInfo *ci = &lj_ir_callinfo[id]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} +#if LJ_64 && LJ_HASFFI + if (!irt_isnum(ir->t)) + asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : + IRCALL_lj_carith_powu64); + else #endif - -static void asm_intmod(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_vm_modi]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); + asm_fppowi(as, ir); } static int asm_swapops(ASMState *as, IRIns *ir) @@ -1956,6 +1851,44 @@ static void asm_add(ASMState *as, IRIns *ir) asm_intarith(as, ir, XOg_ADD); } +static void asm_sub(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_SUBSD); + else /* Note: no need for LEA trick here. i-k is encoded as i+(-k). */ + asm_intarith(as, ir, XOg_SUB); +} + +static void asm_mul(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MULSD); + else + asm_intarith(as, ir, XOg_X_IMUL); +} + +static void asm_div(ASMState *as, IRIns *ir) +{ +#if LJ_64 && LJ_HASFFI + if (!irt_isnum(ir->t)) + asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : + IRCALL_lj_carith_divu64); + else +#endif + asm_fparith(as, ir, XO_DIVSD); +} + +static void asm_mod(ASMState *as, IRIns *ir) +{ +#if LJ_64 && LJ_HASFFI + if (!irt_isint(ir->t)) + asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : + IRCALL_lj_carith_modu64); + else +#endif + asm_callid(as, ir, IRCALL_lj_vm_modi); +} + static void asm_neg_not(ASMState *as, IRIns *ir, x86Group3 xg) { Reg dest = ra_dest(as, ir, RSET_GPR); @@ -1963,7 +1896,17 @@ static void asm_neg_not(ASMState *as, IRIns *ir, x86Group3 xg) ra_left(as, dest, ir->op1); } -static void asm_min_max(ASMState *as, IRIns *ir, int cc) +static void asm_neg(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_XORPS); + else + asm_neg_not(as, ir, XOg_NEG); +} + +#define asm_abs(as, ir) asm_fparith(as, ir, XO_ANDPS) + +static void asm_intmin_max(ASMState *as, IRIns *ir, int cc) { Reg right, dest = ra_dest(as, ir, RSET_GPR); IRRef lref = ir->op1, rref = ir->op2; @@ -1974,7 +1917,30 @@ static void asm_min_max(ASMState *as, IRIns *ir, int cc) ra_left(as, dest, lref); } -static void asm_bitswap(ASMState *as, IRIns *ir) +static void asm_min(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MINSD); + else + asm_intmin_max(as, ir, CC_G); +} + +static void asm_max(ASMState *as, IRIns *ir) +{ + if (irt_isnum(ir->t)) + asm_fparith(as, ir, XO_MAXSD); + else + asm_intmin_max(as, ir, CC_L); +} + +/* Note: don't use LEA for overflow-checking arithmetic! */ +#define asm_addov(as, ir) asm_intarith(as, ir, XOg_ADD) +#define asm_subov(as, ir) asm_intarith(as, ir, XOg_SUB) +#define asm_mulov(as, ir) asm_intarith(as, ir, XOg_X_IMUL) + +#define asm_bnot(as, ir) asm_neg_not(as, ir, XOg_NOT) + +static void asm_bswap(ASMState *as, IRIns *ir) { Reg dest = ra_dest(as, ir, RSET_GPR); as->mcp = emit_op(XO_BSWAP + ((dest&7) << 24), @@ -1982,6 +1948,10 @@ static void asm_bitswap(ASMState *as, IRIns *ir) ra_left(as, dest, ir->op1); } +#define asm_band(as, ir) asm_intarith(as, ir, XOg_AND) +#define asm_bor(as, ir) asm_intarith(as, ir, XOg_OR) +#define asm_bxor(as, ir) asm_intarith(as, ir, XOg_XOR) + static void asm_bitshift(ASMState *as, IRIns *ir, x86Shift xs) { IRRef rref = ir->op2; @@ -2021,6 +1991,12 @@ static void asm_bitshift(ASMState *as, IRIns *ir, x86Shift xs) */ } +#define asm_bshl(as, ir) asm_bitshift(as, ir, XOg_SHL) +#define asm_bshr(as, ir) asm_bitshift(as, ir, XOg_SHR) +#define asm_bsar(as, ir) asm_bitshift(as, ir, XOg_SAR) +#define asm_brol(as, ir) asm_bitshift(as, ir, XOg_ROL) +#define asm_bror(as, ir) asm_bitshift(as, ir, XOg_ROR) + /* -- Comparisons --------------------------------------------------------- */ /* Virtual flags for unordered FP comparisons. */ @@ -2047,8 +2023,9 @@ static const uint16_t asm_compmap[IR_ABC+1] = { }; /* FP and integer comparisons. */ -static void asm_comp(ASMState *as, IRIns *ir, uint32_t cc) +static void asm_comp(ASMState *as, IRIns *ir) { + uint32_t cc = asm_compmap[ir->o]; if (irt_isnum(ir->t)) { IRRef lref = ir->op1; IRRef rref = ir->op2; @@ -2203,6 +2180,8 @@ static void asm_comp(ASMState *as, IRIns *ir, uint32_t cc) } } +#define asm_equal(as, ir) asm_comp(as, ir) + #if LJ_32 && LJ_HASFFI /* 64 bit integer comparisons in 32 bit mode. */ static void asm_comp_int64(ASMState *as, IRIns *ir) @@ -2285,13 +2264,9 @@ static void asm_hiop(ASMState *as, IRIns *ir) int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ - if (usehi || uselo) { - if (irt_isfp(ir->t)) - asm_conv_fp_int64(as, ir); - else - asm_conv_int64_fp(as, ir); - } as->curins--; /* Always skip the CONV. */ + if (usehi || uselo) + asm_conv64(as, ir); return; } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ asm_comp_int64(as, ir); @@ -2340,6 +2315,16 @@ static void asm_hiop(ASMState *as, IRIns *ir) #endif } +/* -- Profiling ----------------------------------------------------------- */ + +static void asm_prof(ASMState *as, IRIns *ir) +{ + UNUSED(ir); + asm_guardcc(as, CC_NE); + emit_i8(as, HOOK_PROFILE); + emit_rma(as, XO_GROUP3b, XOg_TEST, &J2G(as->J)->hookmask); +} + /* -- Stack handling ------------------------------------------------------ */ /* Check Lua stack size for overflow. Use exit handler as fallback. */ @@ -2361,7 +2346,7 @@ static void asm_stack_check(ASMState *as, BCReg topslot, emit_rmro(as, XO_ARITH(XOg_SUB), r, RID_NONE, ptr2addr(&J2G(as->J)->jit_base)); emit_rmro(as, XO_MOV, r, r, offsetof(lua_State, maxstack)); - emit_getgl(as, r, jit_L); + emit_getgl(as, r, cur_L); if (allow == RSET_EMPTY) /* Spill temp. register. */ emit_rmro(as, XO_MOVto, r|REX_64, RID_ESP, 0); } @@ -2589,163 +2574,6 @@ static void asm_tail_prep(ASMState *as) } } -/* -- Instruction dispatch ------------------------------------------------ */ - -/* Assemble a single instruction. */ -static void asm_ir(ASMState *as, IRIns *ir) -{ - switch ((IROp)ir->o) { - /* Miscellaneous ops. */ - case IR_LOOP: asm_loop(as); break; - case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; - case IR_USE: - ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; - case IR_PHI: asm_phi(as, ir); break; - case IR_HIOP: asm_hiop(as, ir); break; - case IR_GCSTEP: asm_gcstep(as, ir); break; - - /* Guarded assertions. */ - case IR_LT: case IR_GE: case IR_LE: case IR_GT: - case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: - case IR_EQ: case IR_NE: case IR_ABC: - asm_comp(as, ir, asm_compmap[ir->o]); - break; - - case IR_RETF: asm_retf(as, ir); break; - - /* Bit ops. */ - case IR_BNOT: asm_neg_not(as, ir, XOg_NOT); break; - case IR_BSWAP: asm_bitswap(as, ir); break; - - case IR_BAND: asm_intarith(as, ir, XOg_AND); break; - case IR_BOR: asm_intarith(as, ir, XOg_OR); break; - case IR_BXOR: asm_intarith(as, ir, XOg_XOR); break; - - case IR_BSHL: asm_bitshift(as, ir, XOg_SHL); break; - case IR_BSHR: asm_bitshift(as, ir, XOg_SHR); break; - case IR_BSAR: asm_bitshift(as, ir, XOg_SAR); break; - case IR_BROL: asm_bitshift(as, ir, XOg_ROL); break; - case IR_BROR: asm_bitshift(as, ir, XOg_ROR); break; - - /* Arithmetic ops. */ - case IR_ADD: asm_add(as, ir); break; - case IR_SUB: - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_SUBSD); - else /* Note: no need for LEA trick here. i-k is encoded as i+(-k). */ - asm_intarith(as, ir, XOg_SUB); - break; - case IR_MUL: - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MULSD); - else - asm_intarith(as, ir, XOg_X_IMUL); - break; - case IR_DIV: -#if LJ_64 && LJ_HASFFI - if (!irt_isnum(ir->t)) - asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : - IRCALL_lj_carith_divu64); - else -#endif - asm_fparith(as, ir, XO_DIVSD); - break; - case IR_MOD: -#if LJ_64 && LJ_HASFFI - if (!irt_isint(ir->t)) - asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : - IRCALL_lj_carith_modu64); - else -#endif - asm_intmod(as, ir); - break; - - case IR_NEG: - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_XORPS); - else - asm_neg_not(as, ir, XOg_NEG); - break; - case IR_ABS: asm_fparith(as, ir, XO_ANDPS); break; - - case IR_MIN: - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MINSD); - else - asm_min_max(as, ir, CC_G); - break; - case IR_MAX: - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MAXSD); - else - asm_min_max(as, ir, CC_L); - break; - - case IR_FPMATH: case IR_ATAN2: case IR_LDEXP: - asm_fpmath(as, ir); - break; - case IR_POW: -#if LJ_64 && LJ_HASFFI - if (!irt_isnum(ir->t)) - asm_arith64(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : - IRCALL_lj_carith_powu64); - else -#endif - asm_fppowi(as, ir); - break; - - /* Overflow-checking arithmetic ops. Note: don't use LEA here! */ - case IR_ADDOV: asm_intarith(as, ir, XOg_ADD); break; - case IR_SUBOV: asm_intarith(as, ir, XOg_SUB); break; - case IR_MULOV: asm_intarith(as, ir, XOg_X_IMUL); break; - - /* Memory references. */ - case IR_AREF: asm_aref(as, ir); break; - case IR_HREF: asm_href(as, ir); break; - case IR_HREFK: asm_hrefk(as, ir); break; - case IR_NEWREF: asm_newref(as, ir); break; - case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; - case IR_FREF: asm_fref(as, ir); break; - case IR_STRREF: asm_strref(as, ir); break; - - /* Loads and stores. */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - asm_ahuvload(as, ir); - break; - case IR_FLOAD: case IR_XLOAD: asm_fxload(as, ir); break; - case IR_SLOAD: asm_sload(as, ir); break; - - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; - case IR_FSTORE: case IR_XSTORE: asm_fxstore(as, ir); break; - - /* Allocations. */ - case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; - case IR_TNEW: asm_tnew(as, ir); break; - case IR_TDUP: asm_tdup(as, ir); break; - case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; - - /* Write barriers. */ - case IR_TBAR: asm_tbar(as, ir); break; - case IR_OBAR: asm_obar(as, ir); break; - - /* Type conversions. */ - case IR_TOBIT: asm_tobit(as, ir); break; - case IR_CONV: asm_conv(as, ir); break; - case IR_TOSTR: asm_tostr(as, ir); break; - case IR_STRTO: asm_strto(as, ir); break; - - /* Calls. */ - case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; - case IR_CALLXS: asm_callx(as, ir); break; - case IR_CARG: break; - - default: - setintV(&as->J->errinfo, ir->o); - lj_trace_err_info(as->J, LJ_TRERR_NYIIR); - break; - } -} - /* -- Trace setup --------------------------------------------------------- */ /* Ensure there are enough stack slots for call arguments. */ diff --git a/src/3rd party/luajit-2.0/src/lj_bc.h b/src/3rd party/luajit-2.0/src/lj_bc.h index 7436fabfe17..64c1bcda35a 100644 --- a/src/3rd party/luajit-2.0/src/lj_bc.h +++ b/src/3rd party/luajit-2.0/src/lj_bc.h @@ -89,6 +89,8 @@ _(ISFC, dst, ___, var, ___) \ _(IST, ___, ___, var, ___) \ _(ISF, ___, ___, var, ___) \ + _(ISTYPE, var, ___, lit, ___) \ + _(ISNUM, var, ___, lit, ___) \ \ /* Unary ops. */ \ _(MOV, dst, ___, var, ___) \ @@ -143,10 +145,12 @@ _(TGETV, dst, var, var, index) \ _(TGETS, dst, var, str, index) \ _(TGETB, dst, var, lit, index) \ + _(TGETR, dst, var, var, index) \ _(TSETV, var, var, var, newindex) \ _(TSETS, var, var, str, newindex) \ _(TSETB, var, var, lit, newindex) \ _(TSETM, base, ___, num, newindex) \ + _(TSETR, var, var, var, newindex) \ \ /* Calls and vararg handling. T = tail call. */ \ _(CALLM, base, lit, lit, call) \ diff --git a/src/3rd party/luajit-2.0/src/lj_bcdump.h b/src/3rd party/luajit-2.0/src/lj_bcdump.h index 812d0e15169..c38983146bb 100644 --- a/src/3rd party/luajit-2.0/src/lj_bcdump.h +++ b/src/3rd party/luajit-2.0/src/lj_bcdump.h @@ -36,14 +36,15 @@ /* If you perform *any* kind of private modifications to the bytecode itself ** or to the dump format, you *must* set BCDUMP_VERSION to 0x80 or higher. */ -#define BCDUMP_VERSION 1 +#define BCDUMP_VERSION 2 /* Compatibility flags. */ #define BCDUMP_F_BE 0x01 #define BCDUMP_F_STRIP 0x02 #define BCDUMP_F_FFI 0x04 +#define BCDUMP_F_FR2 0x08 -#define BCDUMP_F_KNOWN (BCDUMP_F_FFI*2-1) +#define BCDUMP_F_KNOWN (BCDUMP_F_FR2*2-1) /* Type codes for the GC constants of a prototype. Plus length for strings. */ enum { @@ -61,6 +62,7 @@ enum { LJ_FUNC int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, void *data, int strip); +LJ_FUNC GCproto *lj_bcread_proto(LexState *ls); LJ_FUNC GCproto *lj_bcread(LexState *ls); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_bcread.c b/src/3rd party/luajit-2.0/src/lj_bcread.c index 25859d2fa62..5e5021773d7 100644 --- a/src/3rd party/luajit-2.0/src/lj_bcread.c +++ b/src/3rd party/luajit-2.0/src/lj_bcread.c @@ -9,6 +9,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_bc.h" @@ -20,6 +21,7 @@ #include "lj_lex.h" #include "lj_bcdump.h" #include "lj_state.h" +#include "lj_strfmt.h" /* Reuse some lexer fields for our own purposes. */ #define bcread_flags(ls) ls->level @@ -38,84 +40,73 @@ static LJ_NOINLINE void bcread_error(LexState *ls, ErrMsg em) const char *name = ls->chunkarg; if (*name == BCDUMP_HEAD1) name = "(binary)"; else if (*name == '@' || *name == '=') name++; - lj_str_pushf(L, "%s: %s", name, err2msg(em)); + lj_strfmt_pushf(L, "%s: %s", name, err2msg(em)); lj_err_throw(L, LUA_ERRSYNTAX); } -/* Resize input buffer. */ -static void bcread_resize(LexState *ls, MSize len) -{ - if (ls->sb.sz < len) { - MSize sz = ls->sb.sz * 2; - while (len > sz) sz = sz * 2; - lj_str_resizebuf(ls->L, &ls->sb, sz); - /* Caveat: this may change ls->sb.buf which may affect ls->p. */ - } -} - -/* Refill buffer if needed. */ +/* Refill buffer. */ static LJ_NOINLINE void bcread_fill(LexState *ls, MSize len, int need) { lua_assert(len != 0); - if (len > LJ_MAX_MEM || ls->current < 0) + if (len > LJ_MAX_BUF || ls->c < 0) bcread_error(ls, LJ_ERR_BCBAD); do { const char *buf; - size_t size; - if (ls->n) { /* Copy remainder to buffer. */ - if (ls->sb.n) { /* Move down in buffer. */ - lua_assert(ls->p + ls->n == ls->sb.buf + ls->sb.n); - if (ls->n != ls->sb.n) - memmove(ls->sb.buf, ls->p, ls->n); + size_t sz; + char *p = sbufB(&ls->sb); + MSize n = (MSize)(ls->pe - ls->p); + if (n) { /* Copy remainder to buffer. */ + if (sbuflen(&ls->sb)) { /* Move down in buffer. */ + lua_assert(ls->pe == sbufP(&ls->sb)); + if (ls->p != p) memmove(p, ls->p, n); } else { /* Copy from buffer provided by reader. */ - bcread_resize(ls, len); - memcpy(ls->sb.buf, ls->p, ls->n); + p = lj_buf_need(&ls->sb, len); + memcpy(p, ls->p, n); } - ls->p = ls->sb.buf; + ls->p = p; + ls->pe = p + n; } - ls->sb.n = ls->n; - buf = ls->rfunc(ls->L, ls->rdata, &size); /* Get more data from reader. */ - if (buf == NULL || size == 0) { /* EOF? */ + setsbufP(&ls->sb, p + n); + buf = ls->rfunc(ls->L, ls->rdata, &sz); /* Get more data from reader. */ + if (buf == NULL || sz == 0) { /* EOF? */ if (need) bcread_error(ls, LJ_ERR_BCBAD); - ls->current = -1; /* Only bad if we get called again. */ + ls->c = -1; /* Only bad if we get called again. */ break; } - if (ls->sb.n) { /* Append to buffer. */ - MSize n = ls->sb.n + (MSize)size; - bcread_resize(ls, n < len ? len : n); - memcpy(ls->sb.buf + ls->sb.n, buf, size); - ls->n = ls->sb.n = n; - ls->p = ls->sb.buf; + if (n) { /* Append to buffer. */ + n += (MSize)sz; + p = lj_buf_need(&ls->sb, n < len ? len : n); + memcpy(sbufP(&ls->sb), buf, sz); + setsbufP(&ls->sb, p + n); + ls->p = p; + ls->pe = p + n; } else { /* Return buffer provided by reader. */ - ls->n = (MSize)size; ls->p = buf; + ls->pe = buf + sz; } - } while (ls->n < len); + } while (ls->p + len > ls->pe); } /* Need a certain number of bytes. */ static LJ_AINLINE void bcread_need(LexState *ls, MSize len) { - if (LJ_UNLIKELY(ls->n < len)) + if (LJ_UNLIKELY(ls->p + len > ls->pe)) bcread_fill(ls, len, 1); } /* Want to read up to a certain number of bytes, but may need less. */ static LJ_AINLINE void bcread_want(LexState *ls, MSize len) { - if (LJ_UNLIKELY(ls->n < len)) + if (LJ_UNLIKELY(ls->p + len > ls->pe)) bcread_fill(ls, len, 0); } -#define bcread_dec(ls) check_exp(ls->n > 0, ls->n--) -#define bcread_consume(ls, len) check_exp(ls->n >= (len), ls->n -= (len)) - /* Return memory block from buffer. */ -static uint8_t *bcread_mem(LexState *ls, MSize len) +static LJ_AINLINE uint8_t *bcread_mem(LexState *ls, MSize len) { uint8_t *p = (uint8_t *)ls->p; - bcread_consume(ls, len); - ls->p = (char *)p + len; + ls->p += len; + lua_assert(ls->p <= ls->pe); return p; } @@ -128,25 +119,15 @@ static void bcread_block(LexState *ls, void *q, MSize len) /* Read byte from buffer. */ static LJ_AINLINE uint32_t bcread_byte(LexState *ls) { - bcread_dec(ls); + lua_assert(ls->p < ls->pe); return (uint32_t)(uint8_t)*ls->p++; } /* Read ULEB128 value from buffer. */ -static uint32_t bcread_uleb128(LexState *ls) +static LJ_AINLINE uint32_t bcread_uleb128(LexState *ls) { - const uint8_t *p = (const uint8_t *)ls->p; - uint32_t v = *p++; - if (LJ_UNLIKELY(v >= 0x80)) { - int sh = 0; - v &= 0x7f; - do { - v |= ((*p & 0x7f) << (sh += 7)); - bcread_dec(ls); - } while (*p++ >= 0x80); - } - bcread_dec(ls); - ls->p = (char *)p; + uint32_t v = lj_buf_ruleb128(&ls->p); + lua_assert(ls->p <= ls->pe); return v; } @@ -160,11 +141,10 @@ static uint32_t bcread_uleb128_33(LexState *ls) v &= 0x3f; do { v |= ((*p & 0x7f) << (sh += 7)); - bcread_dec(ls); } while (*p++ >= 0x80); } - bcread_dec(ls); ls->p = (char *)p; + lua_assert(ls->p <= ls->pe); return v; } @@ -212,7 +192,7 @@ static void bcread_ktabk(LexState *ls, TValue *o) o->u32.hi = bcread_uleb128(ls); } else { lua_assert(tp <= BCDUMP_KTAB_TRUE); - setitype(o, ~tp); + setpriV(o, ~tp); } } @@ -326,25 +306,13 @@ static void bcread_uv(LexState *ls, GCproto *pt, MSize sizeuv) } /* Read a prototype. */ -static GCproto *bcread_proto(LexState *ls) +GCproto *lj_bcread_proto(LexState *ls) { GCproto *pt; MSize framesize, numparams, flags, sizeuv, sizekgc, sizekn, sizebc, sizept; MSize ofsk, ofsuv, ofsdbg; MSize sizedbg = 0; BCLine firstline = 0, numline = 0; - MSize len, startn; - - /* Read length. */ - if (ls->n > 0 && ls->p[0] == 0) { /* Shortcut EOF. */ - ls->n--; ls->p++; - return NULL; - } - bcread_want(ls, 5); - len = bcread_uleb128(ls); - if (!len) return NULL; /* EOF */ - bcread_need(ls, len); - startn = ls->n; /* Read prototype header. */ flags = bcread_byte(ls); @@ -413,9 +381,6 @@ static GCproto *bcread_proto(LexState *ls) setmref(pt->uvinfo, NULL); setmref(pt->varinfo, NULL); } - - if (len != startn - ls->n) - bcread_error(ls, LJ_ERR_BCBAD); return pt; } @@ -429,6 +394,7 @@ static int bcread_header(LexState *ls) bcread_byte(ls) != BCDUMP_VERSION) return 0; bcread_flags(ls) = flags = bcread_uleb128(ls); if ((flags & ~(BCDUMP_F_KNOWN)) != 0) return 0; + if ((flags & BCDUMP_F_FR2) != LJ_FR2*BCDUMP_F_FR2) return 0; if ((flags & BCDUMP_F_FFI)) { #if LJ_HASFFI lua_State *L = ls->L; @@ -455,19 +421,34 @@ static int bcread_header(LexState *ls) GCproto *lj_bcread(LexState *ls) { lua_State *L = ls->L; - lua_assert(ls->current == BCDUMP_HEAD1); + lua_assert(ls->c == BCDUMP_HEAD1); bcread_savetop(L, ls, L->top); - lj_str_resetbuf(&ls->sb); + lj_buf_reset(&ls->sb); /* Check for a valid bytecode dump header. */ if (!bcread_header(ls)) bcread_error(ls, LJ_ERR_BCFMT); for (;;) { /* Process all prototypes in the bytecode dump. */ - GCproto *pt = bcread_proto(ls); - if (!pt) break; + GCproto *pt; + MSize len; + const char *startp; + /* Read length. */ + if (ls->p < ls->pe && ls->p[0] == 0) { /* Shortcut EOF. */ + ls->p++; + break; + } + bcread_want(ls, 5); + len = bcread_uleb128(ls); + if (!len) break; /* EOF */ + bcread_need(ls, len); + startp = ls->p; + pt = lj_bcread_proto(ls); + if (ls->p != startp + len) + bcread_error(ls, LJ_ERR_BCBAD); setprotoV(L, L->top, pt); incr_top(L); } - if ((int32_t)ls->n > 0 || L->top-1 != bcread_oldtop(L, ls)) + if ((int32_t)(2*(uint32_t)(ls->pe - ls->p)) > 0 || + L->top-1 != bcread_oldtop(L, ls)) bcread_error(ls, LJ_ERR_BCBAD); /* Pop off last prototype. */ L->top--; diff --git a/src/3rd party/luajit-2.0/src/lj_bcwrite.c b/src/3rd party/luajit-2.0/src/lj_bcwrite.c index ff97450b8fe..b2c09738387 100644 --- a/src/3rd party/luajit-2.0/src/lj_bcwrite.c +++ b/src/3rd party/luajit-2.0/src/lj_bcwrite.c @@ -8,7 +8,7 @@ #include "lj_obj.h" #include "lj_gc.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_bc.h" #if LJ_HASFFI #include "lj_ctype.h" @@ -17,13 +17,13 @@ #include "lj_dispatch.h" #include "lj_jit.h" #endif +#include "lj_strfmt.h" #include "lj_bcdump.h" #include "lj_vm.h" /* Context for bytecode writer. */ typedef struct BCWriteCtx { SBuf sb; /* Output buffer. */ - lua_State *L; /* Lua state. */ GCproto *pt; /* Root prototype. */ lua_Writer wfunc; /* Writer callback. */ void *wdata; /* Writer callback data. */ @@ -31,85 +31,44 @@ typedef struct BCWriteCtx { int status; /* Status from writer callback. */ } BCWriteCtx; -/* -- Output buffer handling ---------------------------------------------- */ - -/* Resize buffer if needed. */ -static LJ_NOINLINE void bcwrite_resize(BCWriteCtx *ctx, MSize len) -{ - MSize sz = ctx->sb.sz * 2; - while (ctx->sb.n + len > sz) sz = sz * 2; - lj_str_resizebuf(ctx->L, &ctx->sb, sz); -} - -/* Need a certain amount of buffer space. */ -static LJ_AINLINE void bcwrite_need(BCWriteCtx *ctx, MSize len) -{ - if (LJ_UNLIKELY(ctx->sb.n + len > ctx->sb.sz)) - bcwrite_resize(ctx, len); -} - -/* Add memory block to buffer. */ -static void bcwrite_block(BCWriteCtx *ctx, const void *p, MSize len) -{ - uint8_t *q = (uint8_t *)(ctx->sb.buf + ctx->sb.n); - MSize i; - ctx->sb.n += len; - for (i = 0; i < len; i++) q[i] = ((uint8_t *)p)[i]; -} - -/* Add byte to buffer. */ -static LJ_AINLINE void bcwrite_byte(BCWriteCtx *ctx, uint8_t b) -{ - ctx->sb.buf[ctx->sb.n++] = b; -} - -/* Add ULEB128 value to buffer. */ -static void bcwrite_uleb128(BCWriteCtx *ctx, uint32_t v) -{ - MSize n = ctx->sb.n; - uint8_t *p = (uint8_t *)ctx->sb.buf; - for (; v >= 0x80; v >>= 7) - p[n++] = (uint8_t)((v & 0x7f) | 0x80); - p[n++] = (uint8_t)v; - ctx->sb.n = n; -} - /* -- Bytecode writer ----------------------------------------------------- */ /* Write a single constant key/value of a template table. */ static void bcwrite_ktabk(BCWriteCtx *ctx, cTValue *o, int narrow) { - bcwrite_need(ctx, 1+10); + char *p = lj_buf_more(&ctx->sb, 1+10); if (tvisstr(o)) { const GCstr *str = strV(o); MSize len = str->len; - bcwrite_need(ctx, 5+len); - bcwrite_uleb128(ctx, BCDUMP_KTAB_STR+len); - bcwrite_block(ctx, strdata(str), len); + p = lj_buf_more(&ctx->sb, 5+len); + p = lj_strfmt_wuleb128(p, BCDUMP_KTAB_STR+len); + p = lj_buf_wmem(p, strdata(str), len); } else if (tvisint(o)) { - bcwrite_byte(ctx, BCDUMP_KTAB_INT); - bcwrite_uleb128(ctx, intV(o)); + *p++ = BCDUMP_KTAB_INT; + p = lj_strfmt_wuleb128(p, intV(o)); } else if (tvisnum(o)) { if (!LJ_DUALNUM && narrow) { /* Narrow number constants to integers. */ lua_Number num = numV(o); int32_t k = lj_num2int(num); if (num == (lua_Number)k) { /* -0 is never a constant. */ - bcwrite_byte(ctx, BCDUMP_KTAB_INT); - bcwrite_uleb128(ctx, k); + *p++ = BCDUMP_KTAB_INT; + p = lj_strfmt_wuleb128(p, k); + setsbufP(&ctx->sb, p); return; } } - bcwrite_byte(ctx, BCDUMP_KTAB_NUM); - bcwrite_uleb128(ctx, o->u32.lo); - bcwrite_uleb128(ctx, o->u32.hi); + *p++ = BCDUMP_KTAB_NUM; + p = lj_strfmt_wuleb128(p, o->u32.lo); + p = lj_strfmt_wuleb128(p, o->u32.hi); } else { lua_assert(tvispri(o)); - bcwrite_byte(ctx, BCDUMP_KTAB_NIL+~itype(o)); + *p++ = BCDUMP_KTAB_NIL+~itype(o); } + setsbufP(&ctx->sb, p); } /* Write a template table. */ -static void bcwrite_ktab(BCWriteCtx *ctx, const GCtab *t) +static void bcwrite_ktab(BCWriteCtx *ctx, char *p, const GCtab *t) { MSize narray = 0, nhash = 0; if (t->asize > 0) { /* Determine max. length of array part. */ @@ -127,8 +86,9 @@ static void bcwrite_ktab(BCWriteCtx *ctx, const GCtab *t) nhash += !tvisnil(&node[i].val); } /* Write number of array slots and hash slots. */ - bcwrite_uleb128(ctx, narray); - bcwrite_uleb128(ctx, nhash); + p = lj_strfmt_wuleb128(p, narray); + p = lj_strfmt_wuleb128(p, nhash); + setsbufP(&ctx->sb, p); if (narray) { /* Write array entries (may contain nil). */ MSize i; TValue *o = tvref(t->array); @@ -155,6 +115,7 @@ static void bcwrite_kgc(BCWriteCtx *ctx, GCproto *pt) for (i = 0; i < sizekgc; i++, kr++) { GCobj *o = gcref(*kr); MSize tp, need = 1; + char *p; /* Determine constant type and needed size. */ if (o->gch.gct == ~LJ_TSTR) { tp = BCDUMP_KGC_STR + gco2str(o)->len; @@ -181,24 +142,26 @@ static void bcwrite_kgc(BCWriteCtx *ctx, GCproto *pt) need = 1+2*5; } /* Write constant type. */ - bcwrite_need(ctx, need); - bcwrite_uleb128(ctx, tp); + p = lj_buf_more(&ctx->sb, need); + p = lj_strfmt_wuleb128(p, tp); /* Write constant data (if any). */ if (tp >= BCDUMP_KGC_STR) { - bcwrite_block(ctx, strdata(gco2str(o)), gco2str(o)->len); + p = lj_buf_wmem(p, strdata(gco2str(o)), gco2str(o)->len); } else if (tp == BCDUMP_KGC_TAB) { - bcwrite_ktab(ctx, gco2tab(o)); + bcwrite_ktab(ctx, p, gco2tab(o)); + continue; #if LJ_HASFFI } else if (tp != BCDUMP_KGC_CHILD) { - cTValue *p = (TValue *)cdataptr(gco2cd(o)); - bcwrite_uleb128(ctx, p[0].u32.lo); - bcwrite_uleb128(ctx, p[0].u32.hi); + cTValue *q = (TValue *)cdataptr(gco2cd(o)); + p = lj_strfmt_wuleb128(p, q[0].u32.lo); + p = lj_strfmt_wuleb128(p, q[0].u32.hi); if (tp == BCDUMP_KGC_COMPLEX) { - bcwrite_uleb128(ctx, p[1].u32.lo); - bcwrite_uleb128(ctx, p[1].u32.hi); + p = lj_strfmt_wuleb128(p, q[1].u32.lo); + p = lj_strfmt_wuleb128(p, q[1].u32.hi); } #endif } + setsbufP(&ctx->sb, p); } } @@ -207,7 +170,7 @@ static void bcwrite_knum(BCWriteCtx *ctx, GCproto *pt) { MSize i, sizekn = pt->sizekn; cTValue *o = mref(pt->k, TValue); - bcwrite_need(ctx, 10*sizekn); + char *p = lj_buf_more(&ctx->sb, 10*sizekn); for (i = 0; i < sizekn; i++, o++) { int32_t k; if (tvisint(o)) { @@ -220,58 +183,58 @@ static void bcwrite_knum(BCWriteCtx *ctx, GCproto *pt) k = lj_num2int(num); if (num == (lua_Number)k) { /* -0 is never a constant. */ save_int: - bcwrite_uleb128(ctx, 2*(uint32_t)k | ((uint32_t)k & 0x80000000u)); - if (k < 0) { - char *p = &ctx->sb.buf[ctx->sb.n-1]; - *p = (*p & 7) | ((k>>27) & 0x18); - } + p = lj_strfmt_wuleb128(p, 2*(uint32_t)k | ((uint32_t)k&0x80000000u)); + if (k < 0) + p[-1] = (p[-1] & 7) | ((k>>27) & 0x18); continue; } } - bcwrite_uleb128(ctx, 1+(2*o->u32.lo | (o->u32.lo & 0x80000000u))); - if (o->u32.lo >= 0x80000000u) { - char *p = &ctx->sb.buf[ctx->sb.n-1]; - *p = (*p & 7) | ((o->u32.lo>>27) & 0x18); - } - bcwrite_uleb128(ctx, o->u32.hi); + p = lj_strfmt_wuleb128(p, 1+(2*o->u32.lo | (o->u32.lo & 0x80000000u))); + if (o->u32.lo >= 0x80000000u) + p[-1] = (p[-1] & 7) | ((o->u32.lo>>27) & 0x18); + p = lj_strfmt_wuleb128(p, o->u32.hi); } } + setsbufP(&ctx->sb, p); } /* Write bytecode instructions. */ -static void bcwrite_bytecode(BCWriteCtx *ctx, GCproto *pt) +static char *bcwrite_bytecode(BCWriteCtx *ctx, char *p, GCproto *pt) { MSize nbc = pt->sizebc-1; /* Omit the [JI]FUNC* header. */ #if LJ_HASJIT - uint8_t *p = (uint8_t *)&ctx->sb.buf[ctx->sb.n]; + uint8_t *q = (uint8_t *)p; #endif - bcwrite_block(ctx, proto_bc(pt)+1, nbc*(MSize)sizeof(BCIns)); + p = lj_buf_wmem(p, proto_bc(pt)+1, nbc*(MSize)sizeof(BCIns)); + UNUSED(ctx); #if LJ_HASJIT /* Unpatch modified bytecode containing ILOOP/JLOOP etc. */ if ((pt->flags & PROTO_ILOOP) || pt->trace) { - jit_State *J = L2J(ctx->L); + jit_State *J = L2J(sbufL(&ctx->sb)); MSize i; - for (i = 0; i < nbc; i++, p += sizeof(BCIns)) { - BCOp op = (BCOp)p[LJ_ENDIAN_SELECT(0, 3)]; + for (i = 0; i < nbc; i++, q += sizeof(BCIns)) { + BCOp op = (BCOp)q[LJ_ENDIAN_SELECT(0, 3)]; if (op == BC_IFORL || op == BC_IITERL || op == BC_ILOOP || op == BC_JFORI) { - p[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_IFORL+BC_FORL); + q[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_IFORL+BC_FORL); } else if (op == BC_JFORL || op == BC_JITERL || op == BC_JLOOP) { - BCReg rd = p[LJ_ENDIAN_SELECT(2, 1)] + (p[LJ_ENDIAN_SELECT(3, 0)] << 8); + BCReg rd = q[LJ_ENDIAN_SELECT(2, 1)] + (q[LJ_ENDIAN_SELECT(3, 0)] << 8); BCIns ins = traceref(J, rd)->startins; - p[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_JFORL+BC_FORL); - p[LJ_ENDIAN_SELECT(2, 1)] = bc_c(ins); - p[LJ_ENDIAN_SELECT(3, 0)] = bc_b(ins); + q[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_JFORL+BC_FORL); + q[LJ_ENDIAN_SELECT(2, 1)] = bc_c(ins); + q[LJ_ENDIAN_SELECT(3, 0)] = bc_b(ins); } } } #endif + return p; } /* Write prototype. */ static void bcwrite_proto(BCWriteCtx *ctx, GCproto *pt) { MSize sizedbg = 0; + char *p; /* Recursively write children of prototype. */ if ((pt->flags & PROTO_CHILD)) { @@ -285,31 +248,32 @@ static void bcwrite_proto(BCWriteCtx *ctx, GCproto *pt) } /* Start writing the prototype info to a buffer. */ - lj_str_resetbuf(&ctx->sb); - ctx->sb.n = 5; /* Leave room for final size. */ - bcwrite_need(ctx, 4+6*5+(pt->sizebc-1)*(MSize)sizeof(BCIns)+pt->sizeuv*2); + p = lj_buf_need(&ctx->sb, + 5+4+6*5+(pt->sizebc-1)*(MSize)sizeof(BCIns)+pt->sizeuv*2); + p += 5; /* Leave room for final size. */ /* Write prototype header. */ - bcwrite_byte(ctx, (pt->flags & (PROTO_CHILD|PROTO_VARARG|PROTO_FFI))); - bcwrite_byte(ctx, pt->numparams); - bcwrite_byte(ctx, pt->framesize); - bcwrite_byte(ctx, pt->sizeuv); - bcwrite_uleb128(ctx, pt->sizekgc); - bcwrite_uleb128(ctx, pt->sizekn); - bcwrite_uleb128(ctx, pt->sizebc-1); + *p++ = (pt->flags & (PROTO_CHILD|PROTO_VARARG|PROTO_FFI)); + *p++ = pt->numparams; + *p++ = pt->framesize; + *p++ = pt->sizeuv; + p = lj_strfmt_wuleb128(p, pt->sizekgc); + p = lj_strfmt_wuleb128(p, pt->sizekn); + p = lj_strfmt_wuleb128(p, pt->sizebc-1); if (!ctx->strip) { if (proto_lineinfo(pt)) sizedbg = pt->sizept - (MSize)((char *)proto_lineinfo(pt) - (char *)pt); - bcwrite_uleb128(ctx, sizedbg); + p = lj_strfmt_wuleb128(p, sizedbg); if (sizedbg) { - bcwrite_uleb128(ctx, pt->firstline); - bcwrite_uleb128(ctx, pt->numline); + p = lj_strfmt_wuleb128(p, pt->firstline); + p = lj_strfmt_wuleb128(p, pt->numline); } } /* Write bytecode instructions and upvalue refs. */ - bcwrite_bytecode(ctx, pt); - bcwrite_block(ctx, proto_uv(pt), pt->sizeuv*2); + p = bcwrite_bytecode(ctx, p, pt); + p = lj_buf_wmem(p, proto_uv(pt), pt->sizeuv*2); + setsbufP(&ctx->sb, p); /* Write constants. */ bcwrite_kgc(ctx, pt); @@ -317,18 +281,19 @@ static void bcwrite_proto(BCWriteCtx *ctx, GCproto *pt) /* Write debug info, if not stripped. */ if (sizedbg) { - bcwrite_need(ctx, sizedbg); - bcwrite_block(ctx, proto_lineinfo(pt), sizedbg); + p = lj_buf_more(&ctx->sb, sizedbg); + p = lj_buf_wmem(p, proto_lineinfo(pt), sizedbg); + setsbufP(&ctx->sb, p); } /* Pass buffer to writer function. */ if (ctx->status == 0) { - MSize n = ctx->sb.n - 5; + MSize n = sbuflen(&ctx->sb) - 5; MSize nn = (lj_fls(n)+8)*9 >> 6; - ctx->sb.n = 5 - nn; - bcwrite_uleb128(ctx, n); /* Fill in final size. */ - lua_assert(ctx->sb.n == 5); - ctx->status = ctx->wfunc(ctx->L, ctx->sb.buf+5-nn, nn+n, ctx->wdata); + char *q = sbufB(&ctx->sb) + (5 - nn); + p = lj_strfmt_wuleb128(q, n); /* Fill in final size. */ + lua_assert(p == sbufB(&ctx->sb) + 5); + ctx->status = ctx->wfunc(sbufL(&ctx->sb), q, nn+n, ctx->wdata); } } @@ -338,20 +303,21 @@ static void bcwrite_header(BCWriteCtx *ctx) GCstr *chunkname = proto_chunkname(ctx->pt); const char *name = strdata(chunkname); MSize len = chunkname->len; - lj_str_resetbuf(&ctx->sb); - bcwrite_need(ctx, 5+5+len); - bcwrite_byte(ctx, BCDUMP_HEAD1); - bcwrite_byte(ctx, BCDUMP_HEAD2); - bcwrite_byte(ctx, BCDUMP_HEAD3); - bcwrite_byte(ctx, BCDUMP_VERSION); - bcwrite_byte(ctx, (ctx->strip ? BCDUMP_F_STRIP : 0) + - (LJ_BE ? BCDUMP_F_BE : 0) + - ((ctx->pt->flags & PROTO_FFI) ? BCDUMP_F_FFI : 0)); + char *p = lj_buf_need(&ctx->sb, 5+5+len); + *p++ = BCDUMP_HEAD1; + *p++ = BCDUMP_HEAD2; + *p++ = BCDUMP_HEAD3; + *p++ = BCDUMP_VERSION; + *p++ = (ctx->strip ? BCDUMP_F_STRIP : 0) + + LJ_BE*BCDUMP_F_BE + + ((ctx->pt->flags & PROTO_FFI) ? BCDUMP_F_FFI : 0) + + LJ_FR2*BCDUMP_F_FR2; if (!ctx->strip) { - bcwrite_uleb128(ctx, len); - bcwrite_block(ctx, name, len); + p = lj_strfmt_wuleb128(p, len); + p = lj_buf_wmem(p, name, len); } - ctx->status = ctx->wfunc(ctx->L, ctx->sb.buf, ctx->sb.n, ctx->wdata); + ctx->status = ctx->wfunc(sbufL(&ctx->sb), sbufB(&ctx->sb), + (MSize)(p - sbufB(&ctx->sb)), ctx->wdata); } /* Write footer of bytecode dump. */ @@ -359,7 +325,7 @@ static void bcwrite_footer(BCWriteCtx *ctx) { if (ctx->status == 0) { uint8_t zero = 0; - ctx->status = ctx->wfunc(ctx->L, &zero, 1, ctx->wdata); + ctx->status = ctx->wfunc(sbufL(&ctx->sb), &zero, 1, ctx->wdata); } } @@ -367,8 +333,8 @@ static void bcwrite_footer(BCWriteCtx *ctx) static TValue *cpwriter(lua_State *L, lua_CFunction dummy, void *ud) { BCWriteCtx *ctx = (BCWriteCtx *)ud; - UNUSED(dummy); - lj_str_resizebuf(L, &ctx->sb, 1024); /* Avoids resize for most prototypes. */ + UNUSED(L); UNUSED(dummy); + lj_buf_need(&ctx->sb, 1024); /* Avoids resize for most prototypes. */ bcwrite_header(ctx); bcwrite_proto(ctx, ctx->pt); bcwrite_footer(ctx); @@ -381,16 +347,15 @@ int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, void *data, { BCWriteCtx ctx; int status; - ctx.L = L; ctx.pt = pt; ctx.wfunc = writer; ctx.wdata = data; ctx.strip = strip; ctx.status = 0; - lj_str_initbuf(&ctx.sb); + lj_buf_init(L, &ctx.sb); status = lj_vm_cpcall(L, NULL, &ctx, cpwriter); if (status == 0) status = ctx.status; - lj_str_freebuf(G(ctx.L), &ctx.sb); + lj_buf_free(G(sbufL(&ctx.sb)), &ctx.sb); return status; } diff --git a/src/3rd party/luajit-2.0/src/lj_buf.c b/src/3rd party/luajit-2.0/src/lj_buf.c new file mode 100644 index 00000000000..023bb9aac8f --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_buf.c @@ -0,0 +1,234 @@ +/* +** Buffer handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_buf_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_err.h" +#include "lj_buf.h" +#include "lj_str.h" +#include "lj_tab.h" +#include "lj_strfmt.h" + +/* -- Buffer management --------------------------------------------------- */ + +static void buf_grow(SBuf *sb, MSize sz) +{ + MSize osz = sbufsz(sb), len = sbuflen(sb), nsz = osz; + char *b; + if (nsz < LJ_MIN_SBUF) nsz = LJ_MIN_SBUF; + while (nsz < sz) nsz += nsz; + b = (char *)lj_mem_realloc(sbufL(sb), sbufB(sb), osz, nsz); + setmref(sb->b, b); + setmref(sb->p, b + len); + setmref(sb->e, b + nsz); +} + +LJ_NOINLINE char *LJ_FASTCALL lj_buf_need2(SBuf *sb, MSize sz) +{ + lua_assert(sz > sbufsz(sb)); + if (LJ_UNLIKELY(sz > LJ_MAX_BUF)) + lj_err_mem(sbufL(sb)); + buf_grow(sb, sz); + return sbufB(sb); +} + +LJ_NOINLINE char *LJ_FASTCALL lj_buf_more2(SBuf *sb, MSize sz) +{ + MSize len = sbuflen(sb); + lua_assert(sz > sbufleft(sb)); + if (LJ_UNLIKELY(sz > LJ_MAX_BUF || len + sz > LJ_MAX_BUF)) + lj_err_mem(sbufL(sb)); + buf_grow(sb, len + sz); + return sbufP(sb); +} + +void LJ_FASTCALL lj_buf_shrink(lua_State *L, SBuf *sb) +{ + char *b = sbufB(sb); + MSize osz = (MSize)(sbufE(sb) - b); + if (osz > 2*LJ_MIN_SBUF) { + MSize n = (MSize)(sbufP(sb) - b); + b = lj_mem_realloc(L, b, osz, (osz >> 1)); + setmref(sb->b, b); + setmref(sb->p, b + n); + setmref(sb->e, b + (osz >> 1)); + } +} + +char * LJ_FASTCALL lj_buf_tmp(lua_State *L, MSize sz) +{ + SBuf *sb = &G(L)->tmpbuf; + setsbufL(sb, L); + return lj_buf_need(sb, sz); +} + +/* -- Low-level buffer put operations ------------------------------------- */ + +SBuf *lj_buf_putmem(SBuf *sb, const void *q, MSize len) +{ + char *p = lj_buf_more(sb, len); + p = lj_buf_wmem(p, q, len); + setsbufP(sb, p); + return sb; +} + +#if LJ_HASJIT +SBuf * LJ_FASTCALL lj_buf_putchar(SBuf *sb, int c) +{ + char *p = lj_buf_more(sb, 1); + *p++ = (char)c; + setsbufP(sb, p); + return sb; +} +#endif + +SBuf * LJ_FASTCALL lj_buf_putstr(SBuf *sb, GCstr *s) +{ + MSize len = s->len; + char *p = lj_buf_more(sb, len); + p = lj_buf_wmem(p, strdata(s), len); + setsbufP(sb, p); + return sb; +} + +/* -- High-level buffer put operations ------------------------------------ */ + +SBuf * LJ_FASTCALL lj_buf_putstr_reverse(SBuf *sb, GCstr *s) +{ + MSize len = s->len; + char *p = lj_buf_more(sb, len), *e = p+len; + const char *q = strdata(s)+len-1; + while (p < e) + *p++ = *q--; + setsbufP(sb, p); + return sb; +} + +SBuf * LJ_FASTCALL lj_buf_putstr_lower(SBuf *sb, GCstr *s) +{ + MSize len = s->len; + char *p = lj_buf_more(sb, len), *e = p+len; + const char *q = strdata(s); + for (; p < e; p++, q++) { + uint32_t c = *(unsigned char *)q; +#if LJ_TARGET_PPC + *p = c + ((c >= 'A' && c <= 'Z') << 5); +#else + if (c >= 'A' && c <= 'Z') c += 0x20; + *p = c; +#endif + } + setsbufP(sb, p); + return sb; +} + +SBuf * LJ_FASTCALL lj_buf_putstr_upper(SBuf *sb, GCstr *s) +{ + MSize len = s->len; + char *p = lj_buf_more(sb, len), *e = p+len; + const char *q = strdata(s); + for (; p < e; p++, q++) { + uint32_t c = *(unsigned char *)q; +#if LJ_TARGET_PPC + *p = c - ((c >= 'a' && c <= 'z') << 5); +#else + if (c >= 'a' && c <= 'z') c -= 0x20; + *p = c; +#endif + } + setsbufP(sb, p); + return sb; +} + +SBuf *lj_buf_putstr_rep(SBuf *sb, GCstr *s, int32_t rep) +{ + MSize len = s->len; + if (rep > 0 && len) { + uint64_t tlen = (uint64_t)rep * len; + char *p; + if (LJ_UNLIKELY(tlen > LJ_MAX_STR)) + lj_err_mem(sbufL(sb)); + p = lj_buf_more(sb, (MSize)tlen); + if (len == 1) { /* Optimize a common case. */ + uint32_t c = strdata(s)[0]; + do { *p++ = c; } while (--rep > 0); + } else { + const char *e = strdata(s) + len; + do { + const char *q = strdata(s); + do { *p++ = *q++; } while (q < e); + } while (--rep > 0); + } + setsbufP(sb, p); + } + return sb; +} + +SBuf *lj_buf_puttab(SBuf *sb, GCtab *t, GCstr *sep, int32_t i, int32_t e) +{ + MSize seplen = sep ? sep->len : 0; + if (i <= e) { + for (;;) { + cTValue *o = lj_tab_getint(t, i); + char *p; + if (!o) { + badtype: /* Error: bad element type. */ + setsbufP(sb, (void *)(intptr_t)i); /* Store failing index. */ + return NULL; + } else if (tvisstr(o)) { + MSize len = strV(o)->len; + p = lj_buf_wmem(lj_buf_more(sb, len + seplen), strVdata(o), len); + } else if (tvisint(o)) { + p = lj_strfmt_wint(lj_buf_more(sb, STRFMT_MAXBUF_INT+seplen), intV(o)); + } else if (tvisnum(o)) { + p = lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM+seplen), o); + } else { + goto badtype; + } + if (i++ == e) { + setsbufP(sb, p); + break; + } + if (seplen) p = lj_buf_wmem(p, strdata(sep), seplen); + setsbufP(sb, p); + } + } + return sb; +} + +/* -- Miscellaneous buffer operations ------------------------------------- */ + +GCstr * LJ_FASTCALL lj_buf_tostr(SBuf *sb) +{ + return lj_str_new(sbufL(sb), sbufB(sb), sbuflen(sb)); +} + +/* Concatenate two strings. */ +GCstr *lj_buf_cat2str(lua_State *L, GCstr *s1, GCstr *s2) +{ + MSize len1 = s1->len, len2 = s2->len; + char *buf = lj_buf_tmp(L, len1 + len2); + memcpy(buf, strdata(s1), len1); + memcpy(buf+len1, strdata(s2), len2); + return lj_str_new(L, buf, len1 + len2); +} + +/* Read ULEB128 from buffer. */ +uint32_t LJ_FASTCALL lj_buf_ruleb128(const char **pp) +{ + const uint8_t *p = (const uint8_t *)*pp; + uint32_t v = *p++; + if (LJ_UNLIKELY(v >= 0x80)) { + int sh = 0; + v &= 0x7f; + do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); + } + *pp = (const char *)p; + return v; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_buf.h b/src/3rd party/luajit-2.0/src/lj_buf.h new file mode 100644 index 00000000000..1cf1780b020 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_buf.h @@ -0,0 +1,105 @@ +/* +** Buffer handling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_BUF_H +#define _LJ_BUF_H + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_str.h" + +/* Resizable string buffers. Struct definition in lj_obj.h. */ +#define sbufB(sb) (mref((sb)->b, char)) +#define sbufP(sb) (mref((sb)->p, char)) +#define sbufE(sb) (mref((sb)->e, char)) +#define sbufL(sb) (mref((sb)->L, lua_State)) +#define sbufsz(sb) ((MSize)(sbufE((sb)) - sbufB((sb)))) +#define sbuflen(sb) ((MSize)(sbufP((sb)) - sbufB((sb)))) +#define sbufleft(sb) ((MSize)(sbufE((sb)) - sbufP((sb)))) +#define setsbufP(sb, q) (setmref((sb)->p, (q))) +#define setsbufL(sb, l) (setmref((sb)->L, (l))) + +/* Buffer management */ +LJ_FUNC char *LJ_FASTCALL lj_buf_need2(SBuf *sb, MSize sz); +LJ_FUNC char *LJ_FASTCALL lj_buf_more2(SBuf *sb, MSize sz); +LJ_FUNC void LJ_FASTCALL lj_buf_shrink(lua_State *L, SBuf *sb); +LJ_FUNC char * LJ_FASTCALL lj_buf_tmp(lua_State *L, MSize sz); + +static LJ_AINLINE void lj_buf_init(lua_State *L, SBuf *sb) +{ + setsbufL(sb, L); + setmref(sb->p, NULL); setmref(sb->e, NULL); setmref(sb->b, NULL); +} + +static LJ_AINLINE void lj_buf_reset(SBuf *sb) +{ + setmrefr(sb->p, sb->b); +} + +static LJ_AINLINE SBuf *lj_buf_tmp_(lua_State *L) +{ + SBuf *sb = &G(L)->tmpbuf; + setsbufL(sb, L); + lj_buf_reset(sb); + return sb; +} + +static LJ_AINLINE void lj_buf_free(global_State *g, SBuf *sb) +{ + lj_mem_free(g, sbufB(sb), sbufsz(sb)); +} + +static LJ_AINLINE char *lj_buf_need(SBuf *sb, MSize sz) +{ + if (LJ_UNLIKELY(sz > sbufsz(sb))) + return lj_buf_need2(sb, sz); + return sbufB(sb); +} + +static LJ_AINLINE char *lj_buf_more(SBuf *sb, MSize sz) +{ + if (LJ_UNLIKELY(sz > sbufleft(sb))) + return lj_buf_more2(sb, sz); + return sbufP(sb); +} + +/* Low-level buffer put operations */ +LJ_FUNC SBuf *lj_buf_putmem(SBuf *sb, const void *q, MSize len); +#if LJ_HASJIT +LJ_FUNC SBuf * LJ_FASTCALL lj_buf_putchar(SBuf *sb, int c); +#endif +LJ_FUNC SBuf * LJ_FASTCALL lj_buf_putstr(SBuf *sb, GCstr *s); + +static LJ_AINLINE char *lj_buf_wmem(char *p, const void *q, MSize len) +{ + return (char *)memcpy(p, q, len) + len; +} + +static LJ_AINLINE void lj_buf_putb(SBuf *sb, int c) +{ + char *p = lj_buf_more(sb, 1); + *p++ = (char)c; + setsbufP(sb, p); +} + +/* High-level buffer put operations */ +LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_reverse(SBuf *sb, GCstr *s); +LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_lower(SBuf *sb, GCstr *s); +LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_upper(SBuf *sb, GCstr *s); +LJ_FUNC SBuf *lj_buf_putstr_rep(SBuf *sb, GCstr *s, int32_t rep); +LJ_FUNC SBuf *lj_buf_puttab(SBuf *sb, GCtab *t, GCstr *sep, + int32_t i, int32_t e); + +/* Miscellaneous buffer operations */ +LJ_FUNCA GCstr * LJ_FASTCALL lj_buf_tostr(SBuf *sb); +LJ_FUNC GCstr *lj_buf_cat2str(lua_State *L, GCstr *s1, GCstr *s2); +LJ_FUNC uint32_t LJ_FASTCALL lj_buf_ruleb128(const char **pp); + +static LJ_AINLINE GCstr *lj_buf_str(lua_State *L, SBuf *sb) +{ + return lj_str_new(L, sbufB(sb), sbuflen(sb)); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_carith.c b/src/3rd party/luajit-2.0/src/lj_carith.c index 2a358a9bb0d..9032ea32410 100644 --- a/src/3rd party/luajit-2.0/src/lj_carith.c +++ b/src/3rd party/luajit-2.0/src/lj_carith.c @@ -11,10 +11,12 @@ #include "lj_err.h" #include "lj_tab.h" #include "lj_meta.h" +#include "lj_ir.h" #include "lj_ctype.h" #include "lj_cconv.h" #include "lj_cdata.h" #include "lj_carith.h" +#include "lj_strscan.h" /* -- C data arithmetic --------------------------------------------------- */ @@ -272,6 +274,80 @@ int lj_carith_op(lua_State *L, MMS mm) return lj_carith_meta(L, cts, &ca, mm); } +/* -- 64 bit bit operations helpers --------------------------------------- */ + +#if LJ_64 +#define B64DEF(name) \ + static LJ_AINLINE uint64_t lj_carith_##name(uint64_t x, int32_t sh) +#else +/* Not inlined on 32 bit archs, since some of these are quite lengthy. */ +#define B64DEF(name) \ + uint64_t LJ_NOINLINE lj_carith_##name(uint64_t x, int32_t sh) +#endif + +B64DEF(shl64) { return x << (sh&63); } +B64DEF(shr64) { return x >> (sh&63); } +B64DEF(sar64) { return (uint64_t)((int64_t)x >> (sh&63)); } +B64DEF(rol64) { return lj_rol(x, (sh&63)); } +B64DEF(ror64) { return lj_ror(x, (sh&63)); } + +#undef B64DEF + +uint64_t lj_carith_shift64(uint64_t x, int32_t sh, int op) +{ + switch (op) { + case IR_BSHL-IR_BSHL: x = lj_carith_shl64(x, sh); break; + case IR_BSHR-IR_BSHL: x = lj_carith_shr64(x, sh); break; + case IR_BSAR-IR_BSHL: x = lj_carith_sar64(x, sh); break; + case IR_BROL-IR_BSHL: x = lj_carith_rol64(x, sh); break; + case IR_BROR-IR_BSHL: x = lj_carith_ror64(x, sh); break; + default: lua_assert(0); break; + } + return x; +} + +/* Equivalent to lj_lib_checkbit(), but handles cdata. */ +uint64_t lj_carith_check64(lua_State *L, int narg, CTypeID *id) +{ + TValue *o = L->base + narg-1; + if (o >= L->top) { + err: + lj_err_argt(L, narg, LUA_TNUMBER); + } else if (LJ_LIKELY(tvisnumber(o))) { + /* Handled below. */ + } else if (tviscdata(o)) { + CTState *cts = ctype_cts(L); + uint8_t *sp = (uint8_t *)cdataptr(cdataV(o)); + CTypeID sid = cdataV(o)->ctypeid; + CType *s = ctype_get(cts, sid); + uint64_t x; + if (ctype_isref(s->info)) { + sp = *(void **)sp; + sid = ctype_cid(s->info); + } + s = ctype_raw(cts, sid); + if (ctype_isenum(s->info)) s = ctype_child(cts, s); + if ((s->info & (CTMASK_NUM|CTF_BOOL|CTF_FP|CTF_UNSIGNED)) == + CTINFO(CT_NUM, CTF_UNSIGNED) && s->size == 8) + *id = CTID_UINT64; /* Use uint64_t, since it has the highest rank. */ + else if (!*id) + *id = CTID_INT64; /* Use int64_t, unless already set. */ + lj_cconv_ct_ct(cts, ctype_get(cts, *id), s, + (uint8_t *)&x, sp, CCF_ARG(narg)); + return x; + } else if (!(tvisstr(o) && lj_strscan_number(strV(o), o))) { + goto err; + } + if (LJ_LIKELY(tvisint(o))) { + return (uint32_t)intV(o); + } else { + int32_t i = lj_num2bit(numV(o)); + if (LJ_DUALNUM) setintV(o, i); + return (uint32_t)i; + } +} + + /* -- 64 bit integer arithmetic helpers ----------------------------------- */ #if LJ_32 && LJ_HASJIT diff --git a/src/3rd party/luajit-2.0/src/lj_carith.h b/src/3rd party/luajit-2.0/src/lj_carith.h index 8c4bdbbe2a6..da8320f3066 100644 --- a/src/3rd party/luajit-2.0/src/lj_carith.h +++ b/src/3rd party/luajit-2.0/src/lj_carith.h @@ -12,6 +12,16 @@ LJ_FUNC int lj_carith_op(lua_State *L, MMS mm); +#if LJ_32 +LJ_FUNC uint64_t lj_carith_shl64(uint64_t x, int32_t sh); +LJ_FUNC uint64_t lj_carith_shr64(uint64_t x, int32_t sh); +LJ_FUNC uint64_t lj_carith_sar64(uint64_t x, int32_t sh); +LJ_FUNC uint64_t lj_carith_rol64(uint64_t x, int32_t sh); +LJ_FUNC uint64_t lj_carith_ror64(uint64_t x, int32_t sh); +#endif +LJ_FUNC uint64_t lj_carith_shift64(uint64_t x, int32_t sh, int op); +LJ_FUNC uint64_t lj_carith_check64(lua_State *L, int narg, CTypeID *id); + #if LJ_32 && LJ_HASJIT LJ_FUNC int64_t lj_carith_mul64(int64_t x, int64_t k); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.c b/src/3rd party/luajit-2.0/src/lj_ccall.c index 998417c1cf8..5ab5b60daab 100644 --- a/src/3rd party/luajit-2.0/src/lj_ccall.c +++ b/src/3rd party/luajit-2.0/src/lj_ccall.c @@ -9,7 +9,6 @@ #include "lj_gc.h" #include "lj_err.h" -#include "lj_str.h" #include "lj_tab.h" #include "lj_ctype.h" #include "lj_cconv.h" @@ -291,6 +290,75 @@ #define CCALL_HANDLE_RET \ if ((ct->info & CTF_VARARG)) sp = (uint8_t *)&cc->gpr[0]; +#elif LJ_TARGET_ARM64 +/* -- ARM64 calling conventions ------------------------------------------- */ + +#define CCALL_HANDLE_STRUCTRET \ + cc->retref = !ccall_classify_struct(cts, ctr); \ + if (cc->retref) cc->retp = dp; + +#define CCALL_HANDLE_STRUCTRET2 \ + unsigned int cl = ccall_classify_struct(cts, ctr); \ + if ((cl & 4)) { /* Combine float HFA from separate registers. */ \ + CTSize i = (cl >> 8) - 1; \ + do { ((uint32_t *)dp)[i] = cc->fpr[i].u32; } while (i--); \ + } else { \ + if (cl > 1) sp = (uint8_t *)&cc->fpr[0]; \ + memcpy(dp, sp, ctr->size); \ + } + +#define CCALL_HANDLE_COMPLEXRET \ + /* Complex values are returned in one or two FPRs. */ \ + cc->retref = 0; + +#define CCALL_HANDLE_COMPLEXRET2 \ + if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPRs. */ \ + ((float *)dp)[0] = cc->fpr[0].f; \ + ((float *)dp)[1] = cc->fpr[1].f; \ + } else { /* Copy complex double from FPRs. */ \ + ((double *)dp)[0] = cc->fpr[0].d; \ + ((double *)dp)[1] = cc->fpr[1].d; \ + } + +#define CCALL_HANDLE_STRUCTARG \ + unsigned int cl = ccall_classify_struct(cts, d); \ + if (cl == 0) { /* Pass struct by reference. */ \ + rp = cdataptr(lj_cdata_new(cts, did, sz)); \ + sz = CTSIZE_PTR; \ + } else if (cl > 1) { /* Pass struct in FPRs or on stack. */ \ + isfp = (cl & 4) ? 2 : 1; \ + } /* else: Pass struct in GPRs or on stack. */ + +#define CCALL_HANDLE_COMPLEXARG \ + /* Pass complex by value in separate (!) FPRs or on stack. */ \ + isfp = ctr->size == 2*sizeof(float) ? 2 : 1; + +#define CCALL_HANDLE_REGARG \ + if (LJ_TARGET_IOS && isva) { \ + /* IOS: All variadic arguments are on the stack. */ \ + } else if (isfp) { /* Try to pass argument in FPRs. */ \ + int n2 = ctype_isvector(d->info) ? 1 : n*isfp; \ + if (nfpr + n2 <= CCALL_NARG_FPR) { \ + dp = &cc->fpr[nfpr]; \ + nfpr += n2; \ + goto done; \ + } else { \ + nfpr = CCALL_NARG_FPR; /* Prevent reordering. */ \ + if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \ + } \ + } else { /* Try to pass argument in GPRs. */ \ + if (!LJ_TARGET_IOS && (d->info & CTF_ALIGN) > CTALIGN_PTR) \ + ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + if (ngpr + n <= maxgpr) { \ + dp = &cc->gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } else { \ + ngpr = maxgpr; /* Prevent reordering. */ \ + if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \ + } \ + } + #elif LJ_TARGET_PPC /* -- PPC calling conventions --------------------------------------------- */ @@ -339,42 +407,6 @@ if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ ctr = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ -#elif LJ_TARGET_PPCSPE -/* -- PPC/SPE calling conventions ----------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = 1; /* Return all structs by reference. */ \ - cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET \ - /* Complex values are returned in 2 or 4 GPRs. */ \ - cc->retref = 0; - -#define CCALL_HANDLE_COMPLEXRET2 \ - memcpy(dp, sp, ctr->size); /* Copy complex from GPRs. */ - -#define CCALL_HANDLE_STRUCTARG \ - rp = cdataptr(lj_cdata_new(cts, did, sz)); \ - sz = CTSIZE_PTR; /* Pass all structs by reference. */ - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex by value in 2 or 4 GPRs. */ - -/* PPC/SPE has a softfp ABI. */ -#define CCALL_HANDLE_REGARG \ - if (n > 1) { /* Doesn't fit in a single GPR? */ \ - lua_assert(n == 2 || n == 4); /* int64_t, double or complex (float). */ \ - if (n == 2) \ - ngpr = (ngpr + 1u) & ~1u; /* Only align 64 bit value to regpair. */ \ - else if (ngpr + n > maxgpr) \ - ngpr = maxgpr; /* Prevent reordering. */ \ - } \ - if (ngpr + n <= maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } - #elif LJ_TARGET_MIPS /* -- MIPS calling conventions -------------------------------------------- */ @@ -621,6 +653,52 @@ static unsigned int ccall_classify_struct(CTState *cts, CType *ct, CType *ctf) #endif +/* -- ARM64 ABI struct classification ------------------------------------- */ + +#if LJ_TARGET_ARM64 + +/* Classify a struct based on its fields. */ +static unsigned int ccall_classify_struct(CTState *cts, CType *ct) +{ + CTSize sz = ct->size; + unsigned int r = 0, n = 0, isu = (ct->info & CTF_UNION); + while (ct->sib) { + CType *sct; + ct = ctype_get(cts, ct->sib); + if (ctype_isfield(ct->info)) { + sct = ctype_rawchild(cts, ct); + if (ctype_isfp(sct->info)) { + r |= sct->size; + if (!isu) n++; else if (n == 0) n = 1; + } else if (ctype_iscomplex(sct->info)) { + r |= (sct->size >> 1); + if (!isu) n += 2; else if (n < 2) n = 2; + } else if (ctype_isstruct(sct->info)) { + goto substruct; + } else { + goto noth; + } + } else if (ctype_isbitfield(ct->info)) { + goto noth; + } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { + sct = ctype_rawchild(cts, ct); + substruct: + if (sct->size > 0) { + unsigned int s = ccall_classify_struct(cts, sct); + if (s <= 1) goto noth; + r |= (s & 255); + if (!isu) n += (s >> 8); else if (n < (s >>8)) n = (s >> 8); + } + } + } + if ((r == 4 || r == 8) && n <= 4) + return r + (n << 8); +noth: /* Not a homogeneous float/double aggregate. */ + return (sz <= 16); /* Return structs of size <= 16 in GPRs. */ +} + +#endif + /* -- Common C call handling ---------------------------------------------- */ /* Infer the destination CTypeID for a vararg argument. */ @@ -803,6 +881,12 @@ static int ccall_set_args(lua_State *L, CTState *cts, CType *ct, cc->fpr[nfpr-1].d[0] = cc->fpr[nfpr-2].d[1]; /* Split complex double. */ cc->fpr[nfpr-2].d[1] = 0; } +#elif LJ_TARGET_ARM64 + if (isfp == 2 && (uint8_t *)dp < (uint8_t *)cc->stack) { + /* Split float HFA or complex float into separate registers. */ + CTSize i = (sz >> 2) - 1; + do { ((uint64_t *)dp)[i] = ((uint32_t *)dp)[i]; } while (i--); + } #else UNUSED(isfp); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.h b/src/3rd party/luajit-2.0/src/lj_ccall.h index f5530109313..91983feebd7 100644 --- a/src/3rd party/luajit-2.0/src/lj_ccall.h +++ b/src/3rd party/luajit-2.0/src/lj_ccall.h @@ -68,27 +68,32 @@ typedef union FPRArg { float f[2]; } FPRArg; -#elif LJ_TARGET_PPC +#elif LJ_TARGET_ARM64 #define CCALL_NARG_GPR 8 +#define CCALL_NRET_GPR 2 #define CCALL_NARG_FPR 8 -#define CCALL_NRET_GPR 4 /* For complex double. */ -#define CCALL_NRET_FPR 1 -#define CCALL_SPS_EXTRA 4 +#define CCALL_NRET_FPR 4 #define CCALL_SPS_FREE 0 typedef intptr_t GPRArg; -typedef double FPRArg; +typedef union FPRArg { + double d; + float f; + uint32_t u32; +} FPRArg; -#elif LJ_TARGET_PPCSPE +#elif LJ_TARGET_PPC #define CCALL_NARG_GPR 8 -#define CCALL_NARG_FPR 0 -#define CCALL_NRET_GPR 4 /* For softfp complex double. */ -#define CCALL_NRET_FPR 0 -#define CCALL_SPS_FREE 0 /* NYI */ +#define CCALL_NARG_FPR 8 +#define CCALL_NRET_GPR 4 /* For complex double. */ +#define CCALL_NRET_FPR 1 +#define CCALL_SPS_EXTRA 4 +#define CCALL_SPS_FREE 0 typedef intptr_t GPRArg; +typedef double FPRArg; #elif LJ_TARGET_MIPS @@ -145,6 +150,8 @@ typedef LJ_ALIGN(CCALL_ALIGN_CALLSTATE) struct CCallState { uint8_t nfpr; /* Number of arguments in FPRs. */ #elif LJ_TARGET_X86 uint8_t resx87; /* Result on x87 stack: 1:float, 2:double. */ +#elif LJ_TARGET_ARM64 + void *retp; /* Aggregate return pointer in x8. */ #elif LJ_TARGET_PPC uint8_t nfpr; /* Number of arguments in FPRs. */ #endif diff --git a/src/3rd party/luajit-2.0/src/lj_ccallback.c b/src/3rd party/luajit-2.0/src/lj_ccallback.c index b210641f914..66a094402bd 100644 --- a/src/3rd party/luajit-2.0/src/lj_ccallback.c +++ b/src/3rd party/luajit-2.0/src/lj_ccallback.c @@ -27,7 +27,7 @@ #if LJ_OS_NOJIT -/* Disabled callback support. */ +/* Callbacks disabled. */ #define CALLBACK_SLOT2OFS(slot) (0*(slot)) #define CALLBACK_OFS2SLOT(ofs) (0*(ofs)) #define CALLBACK_MAX_SLOT 0 @@ -54,23 +54,18 @@ static MSize CALLBACK_OFS2SLOT(MSize ofs) #elif LJ_TARGET_ARM #define CALLBACK_MCODE_HEAD 32 -#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) -#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) + +#elif LJ_TARGET_ARM64 + +#define CALLBACK_MCODE_HEAD 32 #elif LJ_TARGET_PPC #define CALLBACK_MCODE_HEAD 24 -#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) -#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) #elif LJ_TARGET_MIPS #define CALLBACK_MCODE_HEAD 24 -#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) -#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) #else @@ -81,6 +76,12 @@ static MSize CALLBACK_OFS2SLOT(MSize ofs) #endif +#ifndef CALLBACK_SLOT2OFS +#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) +#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) +#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) +#endif + /* Convert callback slot number to callback function pointer. */ static void *callback_slot2ptr(CTState *cts, MSize slot) { @@ -157,6 +158,26 @@ static void callback_mcode_init(global_State *g, uint32_t *page) } lua_assert(p - page <= CALLBACK_MCODE_SIZE); } +#elif LJ_TARGET_ARM64 +static void callback_mcode_init(global_State *g, uint32_t *page) +{ + uint32_t *p = page; + void *target = (void *)lj_vm_ffi_callback; + MSize slot; + *p++ = A64I_LDRLx | A64F_D(RID_X11) | A64F_S19(4); + *p++ = A64I_LDRLx | A64F_D(RID_X10) | A64F_S19(5); + *p++ = A64I_BR | A64F_N(RID_X11); + *p++ = A64I_NOP; + ((void **)p)[0] = target; + ((void **)p)[1] = g; + p += 4; + for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { + *p++ = A64I_MOVZw | A64F_D(RID_X9) | A64F_U16(slot); + *p = A64I_B | A64F_S26((page-p) & 0x03ffffffu); + p++; + } + lua_assert(p - page <= CALLBACK_MCODE_SIZE); +} #elif LJ_TARGET_PPC static void callback_mcode_init(global_State *g, uint32_t *page) { @@ -351,6 +372,29 @@ void lj_ccallback_mcode_free(CTState *cts) goto done; \ } CALLBACK_HANDLE_REGARG_FP2 +#elif LJ_TARGET_ARM64 + +#define CALLBACK_HANDLE_REGARG \ + if (isfp) { \ + if (nfpr + n <= CCALL_NARG_FPR) { \ + sp = &cts->cb.fpr[nfpr]; \ + nfpr += n; \ + goto done; \ + } else { \ + nfpr = CCALL_NARG_FPR; /* Prevent reordering. */ \ + } \ + } else { \ + if (!LJ_TARGET_IOS && n > 1) \ + ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ + if (ngpr + n <= maxgpr) { \ + sp = &cts->cb.gpr[ngpr]; \ + ngpr += n; \ + goto done; \ + } else { \ + ngpr = CCALL_NARG_GPR; /* Prevent reordering. */ \ + } \ + } + #elif LJ_TARGET_PPC #define CALLBACK_HANDLE_REGARG \ @@ -411,6 +455,7 @@ static void callback_conv_args(CTState *cts, lua_State *L) int gcsteps = 0; CType *ct; GCfunc *fn; + int fntp; MSize ngpr = 0, nsp = 0, maxgpr = CCALL_NARG_GPR; #if CCALL_NARG_FPR MSize nfpr = 0; @@ -421,18 +466,27 @@ static void callback_conv_args(CTState *cts, lua_State *L) if (slot < cts->cb.sizeid && (id = cts->cb.cbid[slot]) != 0) { ct = ctype_get(cts, id); - rid = ctype_cid(ct->info); + rid = ctype_cid(ct->info); /* Return type. x86: +(spadj<<16). */ fn = funcV(lj_tab_getint(cts->miscmap, (int32_t)slot)); + fntp = LJ_TFUNC; } else { /* Must set up frame first, before throwing the error. */ ct = NULL; rid = 0; fn = (GCfunc *)L; + fntp = LJ_TTHREAD; } - o->u32.lo = LJ_CONT_FFI_CALLBACK; /* Continuation returns from callback. */ - o->u32.hi = rid; /* Return type. x86: +(spadj<<16). */ - o++; - setframe_gc(o, obj2gco(fn)); - setframe_ftsz(o, (int)((char *)(o+1) - (char *)L->base) + FRAME_CONT); + /* Continuation returns from callback. */ + if (LJ_FR2) { + (o++)->u64 = LJ_CONT_FFI_CALLBACK; + (o++)->u64 = rid; + o++; + } else { + o->u32.lo = LJ_CONT_FFI_CALLBACK; + o->u32.hi = rid; + o++; + } + setframe_gc(o, obj2gco(fn), fntp); + setframe_ftsz(o, ((char *)(o+1) - (char *)L->base) + FRAME_CONT); L->top = L->base = ++o; if (!ct) lj_err_caller(cts->L, LJ_ERR_FFI_BADCBACK); @@ -483,8 +537,13 @@ static void callback_conv_args(CTState *cts, lua_State *L) L->top = o; #if LJ_TARGET_X86 /* Store stack adjustment for returns from non-cdecl callbacks. */ - if (ctype_cconv(ct->info) != CTCC_CDECL) + if (ctype_cconv(ct->info) != CTCC_CDECL) { +#if LJ_FR2 + (L->base-3)->u64 |= (nsp << (16+2)); +#else (L->base-2)->u32.hi |= (nsp << (16+2)); +#endif + } #endif while (gcsteps-- > 0) lj_gc_check(L); @@ -493,7 +552,11 @@ static void callback_conv_args(CTState *cts, lua_State *L) /* Convert Lua object to callback result. */ static void callback_conv_result(CTState *cts, lua_State *L, TValue *o) { +#if LJ_FR2 + CType *ctr = ctype_raw(cts, (uint16_t)(L->base-3)->u64); +#else CType *ctr = ctype_raw(cts, (uint16_t)(L->base-2)->u32.hi); +#endif #if LJ_TARGET_X86 cts->cb.gpr[2] = 0; #endif @@ -529,7 +592,7 @@ lua_State * LJ_FASTCALL lj_ccallback_enter(CTState *cts, void *cf) lua_State *L = cts->L; global_State *g = cts->g; lua_assert(L != NULL); - if (gcref(g->jit_L)) { + if (tvref(g->jit_base)) { setstrV(L, L->top++, lj_err_str(L, LJ_ERR_FFI_BADCBACK)); if (g->panic) g->panic(L); exit(EXIT_FAILURE); @@ -562,9 +625,9 @@ void LJ_FASTCALL lj_ccallback_leave(CTState *cts, TValue *o) } callback_conv_result(cts, L, o); /* Finally drop C frame and continuation frame. */ - L->cframe = cframe_prev(L->cframe); - L->top -= 2; + L->top -= 2+2*LJ_FR2; L->base = obase; + L->cframe = cframe_prev(L->cframe); cts->cb.slot = 0; /* Blacklist C function that called the callback. */ } diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.c b/src/3rd party/luajit-2.0/src/lj_cdata.c index 39fc13a9ff4..fccf7f1480f 100644 --- a/src/3rd party/luajit-2.0/src/lj_cdata.c +++ b/src/3rd party/luajit-2.0/src/lj_cdata.c @@ -9,7 +9,6 @@ #include "lj_gc.h" #include "lj_err.h" -#include "lj_str.h" #include "lj_tab.h" #include "lj_ctype.h" #include "lj_cconv.h" @@ -27,12 +26,12 @@ GCcdata *lj_cdata_newref(CTState *cts, const void *p, CTypeID id) } /* Allocate variable-sized or specially aligned C data object. */ -GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, CTSize align) +GCcdata *lj_cdata_newv(lua_State *L, CTypeID id, CTSize sz, CTSize align) { global_State *g; MSize extra = sizeof(GCcdataVar) + sizeof(GCcdata) + (align > CT_MEMALIGN ? (1u<L, extra + sz, char); + char *p = lj_mem_newt(L, extra + sz, char); uintptr_t adata = (uintptr_t)p + sizeof(GCcdataVar) + sizeof(GCcdata); uintptr_t almask = (1u << align) - 1u; GCcdata *cd = (GCcdata *)(((adata + almask) & ~almask) - sizeof(GCcdata)); @@ -40,7 +39,7 @@ GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, CTSize align) cdatav(cd)->offset = (uint16_t)((char *)cd - p); cdatav(cd)->extra = extra; cdatav(cd)->len = sz; - g = cts->g; + g = G(L); setgcrefr(cd->nextgc, g->gc.root); setgcref(g->gc.root, obj2gco(cd)); newwhite(g, obj2gco(cd)); @@ -76,21 +75,20 @@ void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd) } } -TValue * LJ_FASTCALL lj_cdata_setfin(lua_State *L, GCcdata *cd) +void lj_cdata_setfin(lua_State *L, GCcdata *cd, GCobj *obj, uint32_t it) { - global_State *g = G(L); - GCtab *t = ctype_ctsG(g)->finalizer; + GCtab *t = ctype_ctsG(G(L))->finalizer; if (gcref(t->metatable)) { /* Add cdata to finalizer table, if still enabled. */ TValue *tv, tmp; setcdataV(L, &tmp, cd); lj_gc_anybarriert(L, t); tv = lj_tab_set(L, t, &tmp); - cd->marked |= LJ_GC_CDATA_FIN; - return tv; - } else { - /* Otherwise return dummy TValue. */ - return &g->tmptv; + setgcV(L, tv, obj, it); + if (!tvisnil(tv)) + cd->marked |= LJ_GC_CDATA_FIN; + else + cd->marked &= ~LJ_GC_CDATA_FIN; } } diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.h b/src/3rd party/luajit-2.0/src/lj_cdata.h index 3a1275e6c16..c8975be1c9f 100644 --- a/src/3rd party/luajit-2.0/src/lj_cdata.h +++ b/src/3rd party/luajit-2.0/src/lj_cdata.h @@ -58,11 +58,12 @@ static LJ_AINLINE GCcdata *lj_cdata_new_(lua_State *L, CTypeID id, CTSize sz) } LJ_FUNC GCcdata *lj_cdata_newref(CTState *cts, const void *pp, CTypeID id); -LJ_FUNC GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, +LJ_FUNC GCcdata *lj_cdata_newv(lua_State *L, CTypeID id, CTSize sz, CTSize align); LJ_FUNC void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd); -LJ_FUNCA TValue * LJ_FASTCALL lj_cdata_setfin(lua_State *L, GCcdata *cd); +LJ_FUNC void lj_cdata_setfin(lua_State *L, GCcdata *cd, GCobj *obj, + uint32_t it); LJ_FUNC CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, uint8_t **pp, CTInfo *qual); diff --git a/src/3rd party/luajit-2.0/src/lj_clib.c b/src/3rd party/luajit-2.0/src/lj_clib.c index d3526090975..6bdad67fef0 100644 --- a/src/3rd party/luajit-2.0/src/lj_clib.c +++ b/src/3rd party/luajit-2.0/src/lj_clib.c @@ -16,6 +16,7 @@ #include "lj_cconv.h" #include "lj_cdata.h" #include "lj_clib.h" +#include "lj_strfmt.h" /* -- OS-specific functions ----------------------------------------------- */ @@ -61,7 +62,7 @@ static const char *clib_extname(lua_State *L, const char *name) #endif ) { if (!strchr(name, '.')) { - name = lj_str_pushf(L, CLIB_SOEXT, name); + name = lj_strfmt_pushf(L, CLIB_SOEXT, name); L->top--; #ifdef __CYGWIN__ } else { @@ -70,7 +71,7 @@ static const char *clib_extname(lua_State *L, const char *name) } if (!(name[0] == CLIB_SOPREFIX[0] && name[1] == CLIB_SOPREFIX[1] && name[2] == CLIB_SOPREFIX[2])) { - name = lj_str_pushf(L, CLIB_SOPREFIX "%s", name); + name = lj_strfmt_pushf(L, CLIB_SOPREFIX "%s", name); L->top--; } } @@ -175,7 +176,7 @@ LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, if (!FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_FROM_SYSTEM, NULL, err, 0, buf, sizeof(buf), NULL)) buf[0] = '\0'; - lj_err_callermsg(L, lj_str_pushf(L, fmt, name, buf)); + lj_err_callermsg(L, lj_strfmt_pushf(L, fmt, name, buf)); } static int clib_needext(const char *s) @@ -190,7 +191,7 @@ static int clib_needext(const char *s) static const char *clib_extname(lua_State *L, const char *name) { if (clib_needext(name)) { - name = lj_str_pushf(L, "%s.dll", name); + name = lj_strfmt_pushf(L, "%s.dll", name); L->top--; } return name; @@ -263,7 +264,7 @@ static void *clib_getsym(CLibrary *cl, const char *name) LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, const char *name) { - lj_err_callermsg(L, lj_str_pushf(L, fmt, name, "no support for this OS")); + lj_err_callermsg(L, lj_strfmt_pushf(L, fmt, name, "no support for this OS")); } static void *clib_loadlib(lua_State *L, const char *name, int global) @@ -347,7 +348,7 @@ TValue *lj_clib_index(lua_State *L, CLibrary *cl, GCstr *name) CTInfo cconv = ctype_cconv(ct->info); if (cconv == CTCC_FASTCALL || cconv == CTCC_STDCALL) { CTSize sz = clib_func_argsize(cts, ct); - const char *symd = lj_str_pushf(L, + const char *symd = lj_strfmt_pushf(L, cconv == CTCC_FASTCALL ? "@%s@%d" : "_%s@%d", sym, sz); L->top--; diff --git a/src/3rd party/luajit-2.0/src/lj_cparse.c b/src/3rd party/luajit-2.0/src/lj_cparse.c index b9df88d7702..1ec32307d2a 100644 --- a/src/3rd party/luajit-2.0/src/lj_cparse.c +++ b/src/3rd party/luajit-2.0/src/lj_cparse.c @@ -9,13 +9,14 @@ #include "lj_gc.h" #include "lj_err.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_ctype.h" #include "lj_cparse.h" #include "lj_frame.h" #include "lj_vm.h" #include "lj_char.h" #include "lj_strscan.h" +#include "lj_strfmt.h" /* ** Important note: this is NOT a validating C parser! This is a minimal @@ -46,9 +47,9 @@ static const char *cp_tok2str(CPState *cp, CPToken tok) if (tok > CTOK_OFS) return ctoknames[tok-CTOK_OFS-1]; else if (!lj_char_iscntrl(tok)) - return lj_str_pushf(cp->L, "%c", tok); + return lj_strfmt_pushf(cp->L, "%c", tok); else - return lj_str_pushf(cp->L, "char(%d)", tok); + return lj_strfmt_pushf(cp->L, "char(%d)", tok); } /* End-of-line? */ @@ -85,24 +86,10 @@ static LJ_NOINLINE CPChar cp_get_bs(CPState *cp) return cp_get(cp); } -/* Grow save buffer. */ -static LJ_NOINLINE void cp_save_grow(CPState *cp, CPChar c) -{ - MSize newsize; - if (cp->sb.sz >= CPARSE_MAX_BUF/2) - cp_err(cp, LJ_ERR_XELEM); - newsize = cp->sb.sz * 2; - lj_str_resizebuf(cp->L, &cp->sb, newsize); - cp->sb.buf[cp->sb.n++] = (char)c; -} - /* Save character in buffer. */ static LJ_AINLINE void cp_save(CPState *cp, CPChar c) { - if (LJ_UNLIKELY(cp->sb.n + 1 > cp->sb.sz)) - cp_save_grow(cp, c); - else - cp->sb.buf[cp->sb.n++] = (char)c; + lj_buf_putb(&cp->sb, c); } /* Skip line break. Handles "\n", "\r", "\r\n" or "\n\r". */ @@ -122,20 +109,20 @@ LJ_NORET static void cp_errmsg(CPState *cp, CPToken tok, ErrMsg em, ...) tokstr = NULL; } else if (tok == CTOK_IDENT || tok == CTOK_INTEGER || tok == CTOK_STRING || tok >= CTOK_FIRSTDECL) { - if (cp->sb.n == 0) cp_save(cp, '$'); + if (sbufP(&cp->sb) == sbufB(&cp->sb)) cp_save(cp, '$'); cp_save(cp, '\0'); - tokstr = cp->sb.buf; + tokstr = sbufB(&cp->sb); } else { tokstr = cp_tok2str(cp, tok); } L = cp->L; va_start(argp, em); - msg = lj_str_pushvf(L, err2msg(em), argp); + msg = lj_strfmt_pushvf(L, err2msg(em), argp); va_end(argp); if (tokstr) - msg = lj_str_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tokstr); + msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tokstr); if (cp->linenumber > 1) - msg = lj_str_pushf(L, "%s at line %d", msg, cp->linenumber); + msg = lj_strfmt_pushf(L, "%s at line %d", msg, cp->linenumber); lj_err_callermsg(L, msg); } @@ -164,7 +151,7 @@ static CPToken cp_number(CPState *cp) TValue o; do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); cp_save(cp, '\0'); - fmt = lj_strscan_scan((const uint8_t *)cp->sb.buf, &o, STRSCAN_OPT_C); + fmt = lj_strscan_scan((const uint8_t *)sbufB(&cp->sb), &o, STRSCAN_OPT_C); if (fmt == STRSCAN_INT) cp->val.id = CTID_INT32; else if (fmt == STRSCAN_U32) cp->val.id = CTID_UINT32; else if (!(cp->mode & CPARSE_MODE_SKIP)) @@ -177,7 +164,7 @@ static CPToken cp_number(CPState *cp) static CPToken cp_ident(CPState *cp) { do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); - cp->str = lj_str_new(cp->L, cp->sb.buf, cp->sb.n); + cp->str = lj_buf_str(cp->L, &cp->sb); cp->val.id = lj_ctype_getname(cp->cts, &cp->ct, cp->str, cp->tmask); if (ctype_type(cp->ct->info) == CT_KW) return ctype_cid(cp->ct->info); @@ -263,11 +250,11 @@ static CPToken cp_string(CPState *cp) } cp_get(cp); if (delim == '"') { - cp->str = lj_str_new(cp->L, cp->sb.buf, cp->sb.n); + cp->str = lj_buf_str(cp->L, &cp->sb); return CTOK_STRING; } else { - if (cp->sb.n != 1) cp_err_token(cp, '\''); - cp->val.i32 = (int32_t)(char)cp->sb.buf[0]; + if (sbuflen(&cp->sb) != 1) cp_err_token(cp, '\''); + cp->val.i32 = (int32_t)(char)*sbufB(&cp->sb); cp->val.id = CTID_INT32; return CTOK_INTEGER; } @@ -296,7 +283,7 @@ static void cp_comment_cpp(CPState *cp) /* Lexical scanner for C. Only a minimal subset is implemented. */ static CPToken cp_next_(CPState *cp) { - lj_str_resetbuf(&cp->sb); + lj_buf_reset(&cp->sb); for (;;) { if (lj_char_isident(cp->c)) return lj_char_isdigit(cp->c) ? cp_number(cp) : cp_ident(cp); @@ -380,8 +367,7 @@ static void cp_init(CPState *cp) cp->depth = 0; cp->curpack = 0; cp->packstack[0] = 255; - lj_str_initbuf(&cp->sb); - lj_str_resizebuf(cp->L, &cp->sb, LJ_MIN_SBUF); + lj_buf_init(cp->L, &cp->sb); lua_assert(cp->p != NULL); cp_get(cp); /* Read-ahead first char. */ cp->tok = 0; @@ -393,7 +379,7 @@ static void cp_init(CPState *cp) static void cp_cleanup(CPState *cp) { global_State *g = G(cp->L); - lj_str_freebuf(g, &cp->sb); + lj_buf_free(g, &cp->sb); } /* Check and consume optional token. */ @@ -1012,7 +998,7 @@ static void cp_decl_asm(CPState *cp, CPDecl *decl) if (cp->tok == CTOK_STRING) { GCstr *str = cp->str; while (cp_next(cp) == CTOK_STRING) { - lj_str_pushf(cp->L, "%s%s", strdata(str), strdata(cp->str)); + lj_strfmt_pushf(cp->L, "%s%s", strdata(str), strdata(cp->str)); cp->L->top--; str = strV(cp->L->top); } diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.c b/src/3rd party/luajit-2.0/src/lj_crecord.c index a46665e9af0..e200cc99423 100644 --- a/src/3rd party/luajit-2.0/src/lj_crecord.c +++ b/src/3rd party/luajit-2.0/src/lj_crecord.c @@ -11,13 +11,13 @@ #if LJ_HASJIT && LJ_HASFFI #include "lj_err.h" -#include "lj_str.h" #include "lj_tab.h" #include "lj_frame.h" #include "lj_ctype.h" #include "lj_cdata.h" #include "lj_cparse.h" #include "lj_cconv.h" +#include "lj_carith.h" #include "lj_clib.h" #include "lj_ccall.h" #include "lj_ff.h" @@ -31,6 +31,7 @@ #include "lj_snap.h" #include "lj_crecord.h" #include "lj_dispatch.h" +#include "lj_strfmt.h" /* Some local macros to save typing. Undef'd at the end. */ #define IR(ref) (&J->cur.ir[(ref)]) @@ -441,7 +442,7 @@ static TRef crec_ct_ct(jit_State *J, CType *d, CType *s, TRef dp, TRef sp, /* fallthrough */ case CCX(I, F): if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, IRCONV_TRUNC|IRCONV_ANY); + sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, IRCONV_ANY); goto xstore; case CCX(I, P): case CCX(I, A): @@ -521,7 +522,7 @@ static TRef crec_ct_ct(jit_State *J, CType *d, CType *s, TRef dp, TRef sp, if (st == IRT_CDATA) goto err_nyi; /* The signed conversion is cheaper. x64 really has 47 bit pointers. */ sp = emitconv(sp, (LJ_64 && dsize == 8) ? IRT_I64 : IRT_U32, - st, IRCONV_TRUNC|IRCONV_ANY); + st, IRCONV_ANY); goto xstore; /* Destination is an array. */ @@ -640,12 +641,23 @@ static TRef crec_ct_tv(jit_State *J, CType *d, TRef dp, TRef sp, cTValue *sval) sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCstr))); sid = CTID_A_CCHAR; } - } else { /* NYI: tref_istab(sp), tref_islightud(sp). */ + } else if (tref_islightud(sp)) { +#if LJ_64 + sp = emitir(IRT(IR_BAND, IRT_P64), sp, + lj_ir_kint64(J, U64x(00007fff,ffffffff))); +#endif + } else { /* NYI: tref_istab(sp). */ IRType t; sid = argv2cdata(J, sp, sval)->ctypeid; s = ctype_raw(cts, sid); svisnz = cdataptr(cdataV(sval)); - t = crec_ct2irt(cts, s); + if (ctype_isfunc(s->info)) { + sid = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|sid), CTSIZE_PTR); + s = ctype_get(cts, sid); + t = IRT_PTR; + } else { + t = crec_ct2irt(cts, s); + } if (ctype_isptr(s->info)) { sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_PTR); if (ctype_isref(s->info)) { @@ -867,21 +879,17 @@ void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd) } /* Record setting a finalizer. */ -static void crec_finalizer(jit_State *J, TRef trcd, cTValue *fin) +static void crec_finalizer(jit_State *J, TRef trcd, TRef trfin, cTValue *fin) { - TRef trlo = lj_ir_call(J, IRCALL_lj_cdata_setfin, trcd); - TRef trhi = emitir(IRT(IR_ADD, IRT_P32), trlo, lj_ir_kint(J, 4)); - if (LJ_BE) { TRef tmp = trlo; trlo = trhi; trhi = tmp; } - if (tvisfunc(fin)) { - emitir(IRT(IR_XSTORE, IRT_P32), trlo, lj_ir_kfunc(J, funcV(fin))); - emitir(IRTI(IR_XSTORE), trhi, lj_ir_kint(J, LJ_TFUNC)); - } else if (tviscdata(fin)) { - emitir(IRT(IR_XSTORE, IRT_P32), trlo, - lj_ir_kgc(J, obj2gco(cdataV(fin)), IRT_CDATA)); - emitir(IRTI(IR_XSTORE), trhi, lj_ir_kint(J, LJ_TCDATA)); + if (tvisgcv(fin)) { + if (!trfin) trfin = lj_ir_kptr(J, gcval(fin)); + } else if (tvisnil(fin)) { + trfin = lj_ir_kptr(J, NULL); } else { lj_trace_err(J, LJ_TRERR_BADTYPE); } + lj_ir_call(J, IRCALL_lj_cdata_setfin, trcd, + trfin, lj_ir_kint(J, (int32_t)itype(fin))); J->needsnap = 1; } @@ -892,10 +900,8 @@ static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) CTSize sz; CTInfo info = lj_ctype_info(cts, id, &sz); CType *d = ctype_raw(cts, id); - TRef trid; - if (!sz || sz > 128 || (info & CTF_VLA) || ctype_align(info) > CT_MEMALIGN) - lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: large/special allocations. */ - trid = lj_ir_kint(J, id); + TRef trcd, trid = lj_ir_kint(J, id); + cTValue *fin; /* Use special instruction to box pointer or 32/64 bit integer. */ if (ctype_isptr(info) || (ctype_isinteger(info) && (sz == 4 || sz == 8))) { TRef sp = J->base[1] ? crec_ct_tv(J, d, 0, J->base[1], &rd->argv[1]) : @@ -903,11 +909,36 @@ static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) sz == 4 ? lj_ir_kint(J, 0) : (lj_needsplit(J), lj_ir_kint64(J, 0)); J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), trid, sp); + return; } else { - TRef trcd = emitir(IRTG(IR_CNEW, IRT_CDATA), trid, TREF_NIL); - cTValue *fin; - J->base[0] = trcd; - if (J->base[1] && !J->base[2] && + TRef trsz = TREF_NIL; + if ((info & CTF_VLA)) { /* Calculate VLA/VLS size at runtime. */ + CTSize sz0, sz1; + if (!J->base[1] || J->base[2]) + lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init VLA/VLS. */ + trsz = crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, + J->base[1], &rd->argv[1]); + sz0 = lj_ctype_vlsize(cts, d, 0); + sz1 = lj_ctype_vlsize(cts, d, 1); + trsz = emitir(IRTGI(IR_MULOV), trsz, lj_ir_kint(J, (int32_t)(sz1-sz0))); + trsz = emitir(IRTGI(IR_ADDOV), trsz, lj_ir_kint(J, (int32_t)sz0)); + J->base[1] = 0; /* Simplify logic below. */ + } else if (ctype_align(info) > CT_MEMALIGN) { + trsz = lj_ir_kint(J, sz); + } + trcd = emitir(IRTG(IR_CNEW, IRT_CDATA), trid, trsz); + if (sz > 128 || (info & CTF_VLA)) { + TRef dp; + CTSize align; + special: /* Only handle bulk zero-fill for large/VLA/VLS types. */ + if (J->base[1]) + lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init large/VLA/VLS types. */ + dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, lj_ir_kintp(J, sizeof(GCcdata))); + if (trsz == TREF_NIL) trsz = lj_ir_kint(J, sz); + align = ctype_align(info); + if (align < CT_MEMALIGN) align = CT_MEMALIGN; + crec_fill(J, dp, trsz, lj_ir_kint(J, 0), (1u << align)); + } else if (J->base[1] && !J->base[2] && !lj_cconv_multi_init(cts, d, &rd->argv[1])) { goto single_init; } else if (ctype_isarray(d->info)) { @@ -918,8 +949,9 @@ static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) TValue *sval = &tv; MSize i; tv.u64 = 0; - if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info))) - lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init array of aggregates. */ + if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info)) || + esize * CREC_FILL_MAXUNROLL < sz) + goto special; for (i = 1, ofs = 0; ofs < sz; ofs += esize) { TRef dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, lj_ir_kintp(J, ofs + sizeof(GCcdata))); @@ -976,11 +1008,12 @@ static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) crec_ct_tv(J, d, dp, lj_ir_kint(J, 0), &tv); } } - /* Handle __gc metamethod. */ - fin = lj_ctype_meta(cts, id, MM_gc); - if (fin) - crec_finalizer(J, trcd, fin); } + J->base[0] = trcd; + /* Handle __gc metamethod. */ + fin = lj_ctype_meta(cts, id, MM_gc); + if (fin) + crec_finalizer(J, trcd, 0, fin); } /* Record argument conversions. */ @@ -1090,7 +1123,7 @@ static void crec_snap_caller(jit_State *J) ptrdiff_t delta; if (!frame_islua(base-1) || J->framedepth <= 0) lj_trace_err(J, LJ_TRERR_NYICALL); - J->pc = frame_pc(base-1); delta = 1+bc_a(J->pc[-1]); + J->pc = frame_pc(base-1); delta = 1+LJ_FR2+bc_a(J->pc[-1]); L->top = base; L->base = base - delta; J->base[-1] = TREF_FALSE; J->base -= delta; J->baseslot -= (BCReg)delta; @@ -1233,7 +1266,7 @@ static TRef crec_arith_int64(jit_State *J, TRef *sp, CType **s, MMS mm) for (i = 0; i < 2; i++) { IRType st = tref_type(sp[i]); if (st == IRT_NUM || st == IRT_FLOAT) - sp[i] = emitconv(sp[i], dt, st, IRCONV_TRUNC|IRCONV_ANY); + sp[i] = emitconv(sp[i], dt, st, IRCONV_ANY); else if (!(st == IRT_I64 || st == IRT_U64)) sp[i] = emitconv(sp[i], dt, IRT_INT, (s[i]->info & CTF_UNSIGNED) ? 0 : IRCONV_SEXT); @@ -1301,15 +1334,14 @@ static TRef crec_arith_ptr(jit_State *J, TRef *sp, CType **s, MMS mm) CTypeID id; #if LJ_64 if (t == IRT_NUM || t == IRT_FLOAT) - tr = emitconv(tr, IRT_INTP, t, IRCONV_TRUNC|IRCONV_ANY); + tr = emitconv(tr, IRT_INTP, t, IRCONV_ANY); else if (!(t == IRT_I64 || t == IRT_U64)) tr = emitconv(tr, IRT_INTP, IRT_INT, ((t - IRT_I8) & 1) ? 0 : IRCONV_SEXT); #else if (!tref_typerange(sp[1], IRT_I8, IRT_U32)) { tr = emitconv(tr, IRT_INTP, t, - (t == IRT_NUM || t == IRT_FLOAT) ? - IRCONV_TRUNC|IRCONV_ANY : 0); + (t == IRT_NUM || t == IRT_FLOAT) ? IRCONV_ANY : 0); } #endif tr = emitir(IRT(IR_MUL, IRT_INTP), tr, lj_ir_kintp(J, sz)); @@ -1452,8 +1484,7 @@ void LJ_FASTCALL recff_cdata_arith(jit_State *J, RecordFFData *rd) !irt_isguard(J->guardemit)) { const BCIns *pc = frame_contpc(J->L->base-1) - 1; if (bc_op(*pc) <= BC_ISNEP) { - setframe_pc(&J2G(J)->tmptv, pc); - J2G(J)->tmptv.u32.lo = ((tref_istrue(tr) ^ bc_op(*pc)) & 1); + J2G(J)->tmptv.u64 = (uint64_t)(uintptr_t)pc; J->postproc = LJ_POST_FIXCOMP; } } @@ -1642,7 +1673,139 @@ void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd) void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd) { argv2cdata(J, J->base[0], &rd->argv[0]); - crec_finalizer(J, J->base[0], &rd->argv[1]); + if (!J->base[1]) + lj_trace_err(J, LJ_TRERR_BADTYPE); + crec_finalizer(J, J->base[0], J->base[1], &rd->argv[1]); +} + +/* -- 64 bit bit.* library functions -------------------------------------- */ + +/* Determine bit operation type from argument type. */ +static CTypeID crec_bit64_type(CTState *cts, cTValue *tv) +{ + if (tviscdata(tv)) { + CType *ct = lj_ctype_rawref(cts, cdataV(tv)->ctypeid); + if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); + if ((ct->info & (CTMASK_NUM|CTF_BOOL|CTF_FP|CTF_UNSIGNED)) == + CTINFO(CT_NUM, CTF_UNSIGNED) && ct->size == 8) + return CTID_UINT64; /* Use uint64_t, since it has the highest rank. */ + return CTID_INT64; /* Otherwise use int64_t. */ + } + return 0; /* Use regular 32 bit ops. */ +} + +void LJ_FASTCALL recff_bit64_tobit(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + TRef tr = crec_ct_tv(J, ctype_get(cts, CTID_INT64), 0, + J->base[0], &rd->argv[0]); + if (!tref_isinteger(tr)) + tr = emitconv(tr, IRT_INT, tref_type(tr), 0); + J->base[0] = tr; +} + +int LJ_FASTCALL recff_bit64_unary(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTypeID id = crec_bit64_type(cts, &rd->argv[0]); + if (id) { + TRef tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); + tr = emitir(IRT(rd->data, id-CTID_INT64+IRT_I64), tr, 0); + J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); + return 1; + } + return 0; +} + +int LJ_FASTCALL recff_bit64_nary(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTypeID id = 0; + MSize i; + for (i = 0; J->base[i] != 0; i++) { + CTypeID aid = crec_bit64_type(cts, &rd->argv[i]); + if (id < aid) id = aid; /* Determine highest type rank of all arguments. */ + } + if (id) { + CType *ct = ctype_get(cts, id); + uint32_t ot = IRT(rd->data, id-CTID_INT64+IRT_I64); + TRef tr = crec_ct_tv(J, ct, 0, J->base[0], &rd->argv[0]); + for (i = 1; J->base[i] != 0; i++) { + TRef tr2 = crec_ct_tv(J, ct, 0, J->base[i], &rd->argv[i]); + tr = emitir(ot, tr, tr2); + } + J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); + return 1; + } + return 0; +} + +int LJ_FASTCALL recff_bit64_shift(jit_State *J, RecordFFData *rd) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTypeID id; + TRef tsh = 0; + if (J->base[0] && tref_iscdata(J->base[1])) { + tsh = crec_ct_tv(J, ctype_get(cts, CTID_INT64), 0, + J->base[1], &rd->argv[1]); + if (!tref_isinteger(tsh)) + tsh = emitconv(tsh, IRT_INT, tref_type(tsh), 0); + J->base[1] = tsh; + } + id = crec_bit64_type(cts, &rd->argv[0]); + if (id) { + TRef tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); + uint32_t op = rd->data; + if (!tsh) tsh = lj_opt_narrow_tobit(J, J->base[1]); + if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && + !tref_isk(tsh)) + tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 63)); +#ifdef LJ_TARGET_UNIFYROT + if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { + op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; + tsh = emitir(IRTI(IR_NEG), tsh, tsh); + } +#endif + tr = emitir(IRT(op, id-CTID_INT64+IRT_I64), tr, tsh); + J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); + return 1; + } + return 0; +} + +TRef recff_bit64_tohex(jit_State *J, RecordFFData *rd, TRef hdr) +{ + CTState *cts = ctype_ctsG(J2G(J)); + CTypeID id = crec_bit64_type(cts, &rd->argv[0]); + TRef tr, trsf = J->base[1]; + SFormat sf = (STRFMT_UINT|STRFMT_T_HEX); + int32_t n; + if (trsf) { + CTypeID id2 = 0; + n = (int32_t)lj_carith_check64(J->L, 2, &id2); + if (id2) + trsf = crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, trsf, &rd->argv[1]); + else + trsf = lj_opt_narrow_tobit(J, trsf); + emitir(IRTGI(IR_EQ), trsf, lj_ir_kint(J, n)); /* Specialize to n. */ + } else { + n = id ? 16 : 8; + } + if (n < 0) { n = -n; sf |= STRFMT_F_UPPER; } + sf |= ((SFormat)((n+1)&255) << STRFMT_SH_PREC); + if (id) { + tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); + if (n < 16) + tr = emitir(IRT(IR_BAND, IRT_U64), tr, + lj_ir_kint64(J, ((uint64_t)1 << 4*n)-1)); + } else { + tr = lj_opt_narrow_tobit(J, J->base[0]); + if (n < 8) + tr = emitir(IRTI(IR_BAND), tr, lj_ir_kint(J, (int32_t)((1u << 4*n)-1))); + tr = emitconv(tr, IRT_U64, IRT_INT, 0); /* No sign-extension. */ + lj_needsplit(J); + } + return lj_ir_call(J, IRCALL_lj_strfmt_putfxint, hdr, lj_ir_kint(J, sf), tr); } /* -- Miscellaneous library functions ------------------------------------- */ diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.h b/src/3rd party/luajit-2.0/src/lj_crecord.h index a4628cacad5..59f342a1d9a 100644 --- a/src/3rd party/luajit-2.0/src/lj_crecord.h +++ b/src/3rd party/luajit-2.0/src/lj_crecord.h @@ -25,6 +25,13 @@ LJ_FUNC void LJ_FASTCALL recff_ffi_istype(jit_State *J, RecordFFData *rd); LJ_FUNC void LJ_FASTCALL recff_ffi_abi(jit_State *J, RecordFFData *rd); LJ_FUNC void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd); LJ_FUNC void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd); + +LJ_FUNC void LJ_FASTCALL recff_bit64_tobit(jit_State *J, RecordFFData *rd); +LJ_FUNC int LJ_FASTCALL recff_bit64_unary(jit_State *J, RecordFFData *rd); +LJ_FUNC int LJ_FASTCALL recff_bit64_nary(jit_State *J, RecordFFData *rd); +LJ_FUNC int LJ_FASTCALL recff_bit64_shift(jit_State *J, RecordFFData *rd); +LJ_FUNC TRef recff_bit64_tohex(jit_State *J, RecordFFData *rd, TRef hdr); + LJ_FUNC void LJ_FASTCALL lj_crecord_tonumber(jit_State *J, RecordFFData *rd); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.c b/src/3rd party/luajit-2.0/src/lj_ctype.c index ac301749425..2e23c994bb0 100644 --- a/src/3rd party/luajit-2.0/src/lj_ctype.c +++ b/src/3rd party/luajit-2.0/src/lj_ctype.c @@ -11,6 +11,7 @@ #include "lj_err.h" #include "lj_str.h" #include "lj_tab.h" +#include "lj_strfmt.h" #include "lj_ctype.h" #include "lj_ccallback.h" @@ -568,19 +569,19 @@ GCstr *lj_ctype_repr_int64(lua_State *L, uint64_t n, int isunsigned) /* Convert complex to string with 'i' or 'I' suffix. */ GCstr *lj_ctype_repr_complex(lua_State *L, void *sp, CTSize size) { - char buf[2*LJ_STR_NUMBUF+2+1]; + char buf[2*STRFMT_MAXBUF_NUM+2+1], *p = buf; TValue re, im; - size_t len; if (size == 2*sizeof(double)) { re.n = *(double *)sp; im.n = ((double *)sp)[1]; } else { re.n = (double)*(float *)sp; im.n = (double)((float *)sp)[1]; } - len = lj_str_bufnum(buf, &re); - if (!(im.u32.hi & 0x80000000u) || im.n != im.n) buf[len++] = '+'; - len += lj_str_bufnum(buf+len, &im); - buf[len] = buf[len-1] >= 'a' ? 'I' : 'i'; - return lj_str_new(L, buf, len+1); + p = lj_strfmt_wnum(p, &re); + if (!(im.u32.hi & 0x80000000u) || im.n != im.n) *p++ = '+'; + p = lj_strfmt_wnum(p, &im); + *p = *(p-1) >= 'a' ? 'I' : 'i'; + p++; + return lj_str_new(L, buf, p-buf); } /* -- C type state -------------------------------------------------------- */ diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.h b/src/3rd party/luajit-2.0/src/lj_ctype.h index 3df26f095c2..6639547a431 100644 --- a/src/3rd party/luajit-2.0/src/lj_ctype.h +++ b/src/3rd party/luajit-2.0/src/lj_ctype.h @@ -263,7 +263,7 @@ typedef struct CTState { /* -- Predefined types ---------------------------------------------------- */ /* Target-dependent types. */ -#if LJ_TARGET_PPC || LJ_TARGET_PPCSPE +#if LJ_TARGET_PPC #define CTTYDEFP(_) \ _(LINT32, 4, CT_NUM, CTF_LONG|CTALIGN(2)) #else diff --git a/src/3rd party/luajit-2.0/src/lj_debug.c b/src/3rd party/luajit-2.0/src/lj_debug.c index bd2fa1f5646..3226d03b9e1 100644 --- a/src/3rd party/luajit-2.0/src/lj_debug.c +++ b/src/3rd party/luajit-2.0/src/lj_debug.c @@ -9,12 +9,12 @@ #include "lj_obj.h" #include "lj_err.h" #include "lj_debug.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_tab.h" #include "lj_state.h" #include "lj_frame.h" #include "lj_bc.h" -#include "lj_vm.h" +#include "lj_strfmt.h" #if LJ_HASJIT #include "lj_jit.h" #endif @@ -24,11 +24,11 @@ /* Get frame corresponding to a level. */ cTValue *lj_debug_frame(lua_State *L, int level, int *size) { - cTValue *frame, *nextframe, *bot = tvref(L->stack); + cTValue *frame, *nextframe, *bot = tvref(L->stack)+LJ_FR2; /* Traverse frames backwards. */ for (nextframe = frame = L->base-1; frame > bot; ) { if (frame_gc(frame) == obj2gco(L)) - level++; /* Skip dummy frames. See lj_meta_call(). */ + level++; /* Skip dummy frames. See lj_err_optype_call(). */ if (level-- == 0) { *size = (int)(nextframe - frame); return frame; /* Level found. */ @@ -87,8 +87,7 @@ static BCPos debug_framepc(lua_State *L, GCfunc *fn, cTValue *nextframe) if (frame_islua(f)) { f = frame_prevl(f); } else { - if (frame_isc(f) || (LJ_HASFFI && frame_iscont(f) && - (f-1)->u32.lo == LJ_CONT_FFI_CALLBACK)) + if (frame_isc(f) || (frame_iscont(f) && frame_iscont_fficb(f))) cf = cframe_raw(cframe_prev(cf)); f = frame_prevd(f); } @@ -142,38 +141,25 @@ static BCLine debug_frameline(lua_State *L, GCfunc *fn, cTValue *nextframe) /* -- Variable names ------------------------------------------------------ */ -/* Read ULEB128 value. */ -static uint32_t debug_read_uleb128(const uint8_t **pp) -{ - const uint8_t *p = *pp; - uint32_t v = *p++; - if (LJ_UNLIKELY(v >= 0x80)) { - int sh = 0; - v &= 0x7f; - do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); - } - *pp = p; - return v; -} - /* Get name of a local variable from slot number and PC. */ static const char *debug_varname(const GCproto *pt, BCPos pc, BCReg slot) { - const uint8_t *p = proto_varinfo(pt); + const char *p = (const char *)proto_varinfo(pt); if (p) { BCPos lastpc = 0; for (;;) { - const char *name = (const char *)p; - uint32_t vn = *p++; + const char *name = p; + uint32_t vn = *(const uint8_t *)p; BCPos startpc, endpc; if (vn < VARNAME__MAX) { if (vn == VARNAME_END) break; /* End of varinfo. */ } else { - while (*p++) ; /* Skip over variable name string. */ + do { p++; } while (*(const uint8_t *)p); /* Skip over variable name. */ } - lastpc = startpc = lastpc + debug_read_uleb128(&p); + p++; + lastpc = startpc = lastpc + lj_buf_ruleb128(&p); if (startpc > pc) break; - endpc = startpc + debug_read_uleb128(&p); + endpc = startpc + lj_buf_ruleb128(&p); if (pc < endpc && slot-- == 0) { if (vn < VARNAME__MAX) { #define VARNAMESTR(name, str) str "\0" @@ -198,7 +184,7 @@ static TValue *debug_localname(lua_State *L, const lua_Debug *ar, TValue *nextframe = size ? frame + size : NULL; GCfunc *fn = frame_func(frame); BCPos pc = debug_framepc(L, fn, nextframe); - if (!nextframe) nextframe = L->top; + if (!nextframe) nextframe = L->top+LJ_FR2; if ((int)slot1 < 0) { /* Negative slot number is for varargs. */ if (pc != NO_BCPOS) { GCproto *pt = funcproto(fn); @@ -208,7 +194,7 @@ static TValue *debug_localname(lua_State *L, const lua_Debug *ar, nextframe = frame; frame = frame_prevd(frame); } - if (frame + slot1 < nextframe) { + if (frame + slot1+LJ_FR2 < nextframe) { *name = "(*vararg)"; return frame+slot1; } @@ -219,7 +205,7 @@ static TValue *debug_localname(lua_State *L, const lua_Debug *ar, if (pc != NO_BCPOS && (*name = debug_varname(funcproto(fn), pc, slot1-1)) != NULL) ; - else if (slot1 > 0 && frame + slot1 < nextframe) + else if (slot1 > 0 && frame + slot1+LJ_FR2 < nextframe) *name = "(*temporary)"; return frame+slot1; } @@ -282,7 +268,7 @@ const char *lj_debug_slotname(GCproto *pt, const BCIns *ip, BCReg slot, *name = strdata(gco2str(proto_kgc(pt, ~(ptrdiff_t)bc_c(ins)))); if (ip > proto_bc(pt)) { BCIns insp = ip[-1]; - if (bc_op(insp) == BC_MOV && bc_a(insp) == ra+1 && + if (bc_op(insp) == BC_MOV && bc_a(insp) == ra+1+LJ_FR2 && bc_d(insp) == bc_b(ins)) return "method"; } @@ -299,12 +285,12 @@ const char *lj_debug_slotname(GCproto *pt, const BCIns *ip, BCReg slot, } /* Deduce function name from caller of a frame. */ -const char *lj_debug_funcname(lua_State *L, TValue *frame, const char **name) +const char *lj_debug_funcname(lua_State *L, cTValue *frame, const char **name) { - TValue *pframe; + cTValue *pframe; GCfunc *fn; BCPos pc; - if (frame <= tvref(L->stack)) + if (frame <= tvref(L->stack)+LJ_FR2) return NULL; if (frame_isvarg(frame)) frame = frame_prevd(frame); @@ -330,7 +316,7 @@ const char *lj_debug_funcname(lua_State *L, TValue *frame, const char **name) /* -- Source code locations ----------------------------------------------- */ /* Generate shortened source name. */ -void lj_debug_shortname(char *out, GCstr *str) +void lj_debug_shortname(char *out, GCstr *str, BCLine line) { const char *src = strdata(str); if (*src == '=') { @@ -344,11 +330,11 @@ void lj_debug_shortname(char *out, GCstr *str) *out++ = '.'; *out++ = '.'; *out++ = '.'; } strcpy(out, src); - } else { /* Output [string "string"]. */ + } else { /* Output [string "string"] or [builtin:name]. */ size_t len; /* Length, up to first control char. */ for (len = 0; len < LUA_IDSIZE-12; len++) if (((const unsigned char *)src)[len] < ' ') break; - strcpy(out, "[string \""); out += 9; + strcpy(out, line == ~(BCLine)0 ? "[builtin:" : "[string \""); out += 9; if (src[len] != '\0') { /* Must truncate? */ if (len > LUA_IDSIZE-15) len = LUA_IDSIZE-15; strncpy(out, src, len); out += len; @@ -356,7 +342,7 @@ void lj_debug_shortname(char *out, GCstr *str) } else { strcpy(out, src); out += len; } - strcpy(out, "\"]"); + strcpy(out, line == ~(BCLine)0 ? "]" : "\"]"); } } @@ -369,14 +355,15 @@ void lj_debug_addloc(lua_State *L, const char *msg, if (isluafunc(fn)) { BCLine line = debug_frameline(L, fn, nextframe); if (line >= 0) { + GCproto *pt = funcproto(fn); char buf[LUA_IDSIZE]; - lj_debug_shortname(buf, proto_chunkname(funcproto(fn))); - lj_str_pushf(L, "%s:%d: %s", buf, line, msg); + lj_debug_shortname(buf, proto_chunkname(pt), pt->firstline); + lj_strfmt_pushf(L, "%s:%d: %s", buf, line, msg); return; } } } - lj_str_pushf(L, "%s", msg); + lj_strfmt_pushf(L, "%s", msg); } /* Push location string for a bytecode position to Lua stack. */ @@ -386,20 +373,22 @@ void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc) const char *s = strdata(name); MSize i, len = name->len; BCLine line = lj_debug_line(pt, pc); - if (*s == '@') { + if (pt->firstline == ~(BCLine)0) { + lj_strfmt_pushf(L, "builtin:%s", s); + } else if (*s == '@') { s++; len--; for (i = len; i > 0; i--) if (s[i] == '/' || s[i] == '\\') { s += i+1; break; } - lj_str_pushf(L, "%s:%d", s, line); + lj_strfmt_pushf(L, "%s:%d", s, line); } else if (len > 40) { - lj_str_pushf(L, "%p:%d", pt, line); + lj_strfmt_pushf(L, "%p:%d", pt, line); } else if (*s == '=') { - lj_str_pushf(L, "%s:%d", s+1, line); + lj_strfmt_pushf(L, "%s:%d", s+1, line); } else { - lj_str_pushf(L, "\"%s\":%d", s, line); + lj_strfmt_pushf(L, "\"%s\":%d", s, line); } } @@ -462,7 +451,7 @@ int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, int ext) BCLine firstline = pt->firstline; GCstr *name = proto_chunkname(pt); ar->source = strdata(name); - lj_debug_shortname(ar->short_src, name); + lj_debug_shortname(ar->short_src, name, pt->firstline); ar->linedefined = (int)firstline; ar->lastlinedefined = (int)(firstline + pt->numline); ar->what = (firstline || !pt->numline) ? "Lua" : "main"; @@ -552,6 +541,111 @@ LUA_API int lua_getstack(lua_State *L, int level, lua_Debug *ar) } } +#if LJ_HASPROFILE +/* Put the chunkname into a buffer. */ +static int debug_putchunkname(SBuf *sb, GCproto *pt, int pathstrip) +{ + GCstr *name = proto_chunkname(pt); + const char *p = strdata(name); + if (pt->firstline == ~(BCLine)0) { + lj_buf_putmem(sb, "[builtin:", 9); + lj_buf_putstr(sb, name); + lj_buf_putb(sb, ']'); + return 0; + } + if (*p == '=' || *p == '@') { + MSize len = name->len-1; + p++; + if (pathstrip) { + int i; + for (i = len-1; i >= 0; i--) + if (p[i] == '/' || p[i] == '\\') { + len -= i+1; + p = p+i+1; + break; + } + } + lj_buf_putmem(sb, p, len); + } else { + lj_buf_putmem(sb, "[string]", 8); + } + return 1; +} + +/* Put a compact stack dump into a buffer. */ +void lj_debug_dumpstack(lua_State *L, SBuf *sb, const char *fmt, int depth) +{ + int level = 0, dir = 1, pathstrip = 1; + MSize lastlen = 0; + if (depth < 0) { level = ~depth; depth = dir = -1; } /* Reverse frames. */ + while (level != depth) { /* Loop through all frame. */ + int size; + cTValue *frame = lj_debug_frame(L, level, &size); + if (frame) { + cTValue *nextframe = size ? frame+size : NULL; + GCfunc *fn = frame_func(frame); + const uint8_t *p = (const uint8_t *)fmt; + int c; + while ((c = *p++)) { + switch (c) { + case 'p': /* Preserve full path. */ + pathstrip = 0; + break; + case 'F': case 'f': { /* Dump function name. */ + const char *name; + const char *what = lj_debug_funcname(L, frame, &name); + if (what) { + if (c == 'F' && isluafunc(fn)) { /* Dump module:name for 'F'. */ + GCproto *pt = funcproto(fn); + if (pt->firstline != ~(BCLine)0) { /* Not a bytecode builtin. */ + debug_putchunkname(sb, pt, pathstrip); + lj_buf_putb(sb, ':'); + } + } + lj_buf_putmem(sb, name, (MSize)strlen(name)); + break; + } /* else: can't derive a name, dump module:line. */ + } + /* fallthrough */ + case 'l': /* Dump module:line. */ + if (isluafunc(fn)) { + GCproto *pt = funcproto(fn); + if (debug_putchunkname(sb, pt, pathstrip)) { + /* Regular Lua function. */ + BCLine line = c == 'l' ? debug_frameline(L, fn, nextframe) : + pt->firstline; + lj_buf_putb(sb, ':'); + lj_strfmt_putint(sb, line >= 0 ? line : pt->firstline); + } + } else if (isffunc(fn)) { /* Dump numbered builtins. */ + lj_buf_putmem(sb, "[builtin#", 9); + lj_strfmt_putint(sb, fn->c.ffid); + lj_buf_putb(sb, ']'); + } else { /* Dump C function address. */ + lj_buf_putb(sb, '@'); + lj_strfmt_putptr(sb, fn->c.f); + } + break; + case 'Z': /* Zap trailing separator. */ + lastlen = sbuflen(sb); + break; + default: + lj_buf_putb(sb, c); + break; + } + } + } else if (dir == 1) { + break; + } else { + level -= size; /* Reverse frame order: quickly skip missing level. */ + } + level += dir; + } + if (lastlen) + setsbufP(sb, sbufB(sb) + lastlen); /* Zap trailing separator. */ +} +#endif + /* Number of frames for the leading and trailing part of a traceback. */ #define TRACEBACK_LEVELS1 12 #define TRACEBACK_LEVELS2 10 diff --git a/src/3rd party/luajit-2.0/src/lj_debug.h b/src/3rd party/luajit-2.0/src/lj_debug.h index fa8988c3e79..11d308a41b3 100644 --- a/src/3rd party/luajit-2.0/src/lj_debug.h +++ b/src/3rd party/luajit-2.0/src/lj_debug.h @@ -32,14 +32,18 @@ LJ_FUNC const char *lj_debug_uvname(GCproto *pt, uint32_t idx); LJ_FUNC const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp); LJ_FUNC const char *lj_debug_slotname(GCproto *pt, const BCIns *pc, BCReg slot, const char **name); -LJ_FUNC const char *lj_debug_funcname(lua_State *L, TValue *frame, +LJ_FUNC const char *lj_debug_funcname(lua_State *L, cTValue *frame, const char **name); -LJ_FUNC void lj_debug_shortname(char *out, GCstr *str); +LJ_FUNC void lj_debug_shortname(char *out, GCstr *str, BCLine line); LJ_FUNC void lj_debug_addloc(lua_State *L, const char *msg, cTValue *frame, cTValue *nextframe); LJ_FUNC void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc); LJ_FUNC int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, int ext); +#if LJ_HASPROFILE +LJ_FUNC void lj_debug_dumpstack(lua_State *L, SBuf *sb, const char *fmt, + int depth); +#endif /* Fixed internal variable names. */ #define VARNAMEDEF(_) \ diff --git a/src/3rd party/luajit-2.0/src/lj_def.h b/src/3rd party/luajit-2.0/src/lj_def.h index e666c9e300e..c8fe4aa497a 100644 --- a/src/3rd party/luajit-2.0/src/lj_def.h +++ b/src/3rd party/luajit-2.0/src/lj_def.h @@ -46,10 +46,14 @@ typedef unsigned int uintptr_t; #include /* Various VM limits. */ -#define LJ_MAX_MEM 0x7fffff00 /* Max. total memory allocation. */ +#define LJ_MAX_MEM32 0x7fffff00 /* Max. 32 bit memory allocation. */ +#define LJ_MAX_MEM64 ((uint64_t)1<<47) /* Max. 64 bit memory allocation. */ +/* Max. total memory allocation. */ +#define LJ_MAX_MEM (LJ_GC64 ? LJ_MAX_MEM64 : LJ_MAX_MEM32) #define LJ_MAX_ALLOC LJ_MAX_MEM /* Max. individual allocation length. */ -#define LJ_MAX_STR LJ_MAX_MEM /* Max. string length. */ -#define LJ_MAX_UDATA LJ_MAX_MEM /* Max. userdata length. */ +#define LJ_MAX_STR LJ_MAX_MEM32 /* Max. string length. */ +#define LJ_MAX_BUF LJ_MAX_MEM32 /* Max. buffer length. */ +#define LJ_MAX_UDATA LJ_MAX_MEM32 /* Max. userdata length. */ #define LJ_MAX_STRTAB (1<<26) /* Max. string table size. */ #define LJ_MAX_HBITS 26 /* Max. hash bits. */ @@ -57,7 +61,7 @@ typedef unsigned int uintptr_t; #define LJ_MAX_ASIZE ((1<<(LJ_MAX_ABITS-1))+1) /* Max. array part size. */ #define LJ_MAX_COLOSIZE 16 /* Max. elems for colocated array. */ -#define LJ_MAX_LINE LJ_MAX_MEM /* Max. source code line number. */ +#define LJ_MAX_LINE LJ_MAX_MEM32 /* Max. source code line number. */ #define LJ_MAX_XLEVEL 200 /* Max. syntactic nesting level. */ #define LJ_MAX_BCINS (1<<26) /* Max. # of bytecode instructions. */ #define LJ_MAX_SLOTS 250 /* Max. # of slots in a Lua func. */ @@ -65,7 +69,7 @@ typedef unsigned int uintptr_t; #define LJ_MAX_UPVAL 60 /* Max. # of upvalues. */ #define LJ_MAX_IDXCHAIN 100 /* __index/__newindex chain limit. */ -#define LJ_STACK_EXTRA 5 /* Extra stack space (metamethods). */ +#define LJ_STACK_EXTRA (5+2*LJ_FR2) /* Extra stack space (metamethods). */ #define LJ_NUM_CBPAGE 1 /* Number of FFI callback pages. */ @@ -99,6 +103,14 @@ typedef unsigned int uintptr_t; #define checki32(x) ((x) == (int32_t)(x)) #define checku32(x) ((x) == (uint32_t)(x)) #define checkptr32(x) ((uintptr_t)(x) == (uint32_t)(uintptr_t)(x)) +#define checkptr47(x) (((uint64_t)(x) >> 47) == 0) +#if LJ_GC64 +#define checkptrGC(x) (checkptr47((x))) +#elif LJ_64 +#define checkptrGC(x) (checkptr32((x))) +#else +#define checkptrGC(x) 1 +#endif /* Every half-decent C compiler transforms this into a rotate instruction. */ #define lj_rol(x, n) (((x)<<(n)) | ((x)>>(-(int)(n)&(8*sizeof(x)-1)))) diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.c b/src/3rd party/luajit-2.0/src/lj_dispatch.c index 37256576ec2..1a07371cacf 100644 --- a/src/3rd party/luajit-2.0/src/lj_dispatch.c +++ b/src/3rd party/luajit-2.0/src/lj_dispatch.c @@ -8,6 +8,7 @@ #include "lj_obj.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_func.h" #include "lj_str.h" #include "lj_tab.h" @@ -17,6 +18,7 @@ #include "lj_frame.h" #include "lj_bc.h" #include "lj_ff.h" +#include "lj_strfmt.h" #if LJ_HASJIT #include "lj_jit.h" #endif @@ -25,6 +27,9 @@ #endif #include "lj_trace.h" #include "lj_dispatch.h" +#if LJ_HASPROFILE +#include "lj_profile.h" +#endif #include "lj_vm.h" #include "luajit.h" @@ -37,6 +42,12 @@ LJ_STATIC_ASSERT(GG_NUM_ASMFF == FF_NUM_ASMFUNC); #include LJ_FUNCA_NORET void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, lua_State *co); +#if !LJ_HASJIT +#define lj_dispatch_stitch lj_dispatch_ins +#endif +#if !LJ_HASPROFILE +#define lj_dispatch_profile lj_dispatch_ins +#endif #define GOTFUNC(name) (ASMFunction)name, static const ASMFunction dispatch_got[] = { @@ -82,11 +93,12 @@ void lj_dispatch_init_hotcount(global_State *g) #endif /* Internal dispatch mode bits. */ -#define DISPMODE_JIT 0x01 /* JIT compiler on. */ -#define DISPMODE_REC 0x02 /* Recording active. */ +#define DISPMODE_CALL 0x01 /* Override call dispatch. */ +#define DISPMODE_RET 0x02 /* Override return dispatch. */ #define DISPMODE_INS 0x04 /* Override instruction dispatch. */ -#define DISPMODE_CALL 0x08 /* Override call dispatch. */ -#define DISPMODE_RET 0x10 /* Override return dispatch. */ +#define DISPMODE_JIT 0x10 /* JIT compiler on. */ +#define DISPMODE_REC 0x20 /* Recording active. */ +#define DISPMODE_PROF 0x40 /* Profiling active. */ /* Update dispatch table depending on various flags. */ void lj_dispatch_update(global_State *g) @@ -97,6 +109,9 @@ void lj_dispatch_update(global_State *g) mode |= (G2J(g)->flags & JIT_F_ON) ? DISPMODE_JIT : 0; mode |= G2J(g)->state != LJ_TRACE_IDLE ? (DISPMODE_REC|DISPMODE_INS|DISPMODE_CALL) : 0; +#endif +#if LJ_HASPROFILE + mode |= (g->hookmask & HOOK_PROFILE) ? (DISPMODE_PROF|DISPMODE_INS) : 0; #endif mode |= (g->hookmask & (LUA_MASKLINE|LUA_MASKCOUNT)) ? DISPMODE_INS : 0; mode |= (g->hookmask & LUA_MASKCALL) ? DISPMODE_CALL : 0; @@ -126,9 +141,9 @@ void lj_dispatch_update(global_State *g) disp[GG_LEN_DDISP+BC_LOOP] = f_loop; /* Set dynamic instruction dispatch. */ - if ((oldmode ^ mode) & (DISPMODE_REC|DISPMODE_INS)) { + if ((oldmode ^ mode) & (DISPMODE_PROF|DISPMODE_REC|DISPMODE_INS)) { /* Need to update the whole table. */ - if (!(mode & (DISPMODE_REC|DISPMODE_INS))) { /* No ins dispatch? */ + if (!(mode & DISPMODE_INS)) { /* No ins dispatch? */ /* Copy static dispatch table to dynamic dispatch table. */ memcpy(&disp[0], &disp[GG_LEN_DDISP], GG_LEN_SDISP*sizeof(ASMFunction)); /* Overwrite with dynamic return dispatch. */ @@ -140,12 +155,13 @@ void lj_dispatch_update(global_State *g) } } else { /* The recording dispatch also checks for hooks. */ - ASMFunction f = (mode & DISPMODE_REC) ? lj_vm_record : lj_vm_inshook; + ASMFunction f = (mode & DISPMODE_PROF) ? lj_vm_profhook : + (mode & DISPMODE_REC) ? lj_vm_record : lj_vm_inshook; uint32_t i; for (i = 0; i < GG_LEN_SDISP; i++) disp[i] = f; } - } else if (!(mode & (DISPMODE_REC|DISPMODE_INS))) { + } else if (!(mode & DISPMODE_INS)) { /* Otherwise set dynamic counting ins. */ disp[BC_FORL] = f_forl; disp[BC_ITERL] = f_iterl; @@ -352,10 +368,19 @@ static void callhook(lua_State *L, int event, BCLine line) /* Top frame, nextframe = NULL. */ ar.i_ci = (int)((L->base-1) - tvref(L->stack)); lj_state_checkstack(L, 1+LUA_MINSTACK); +#if LJ_HASPROFILE && !LJ_PROFILE_SIGPROF + lj_profile_hook_enter(g); +#else hook_enter(g); +#endif hookf(L, &ar); lua_assert(hook_active(g)); + setgcref(g->cur_L, obj2gco(L)); +#if LJ_HASPROFILE && !LJ_PROFILE_SIGPROF + lj_profile_hook_leave(g); +#else hook_leave(g); +#endif } } @@ -368,7 +393,7 @@ static BCReg cur_topslot(GCproto *pt, const BCIns *pc, uint32_t nres) if (bc_op(ins) == BC_UCLO) ins = pc[bc_j(ins)]; switch (bc_op(ins)) { - case BC_CALLM: case BC_CALLMT: return bc_a(ins) + bc_c(ins) + nres-1+1; + case BC_CALLM: case BC_CALLMT: return bc_a(ins) + bc_c(ins) + nres-1+1+LJ_FR2; case BC_RETM: return bc_a(ins) + bc_d(ins) + nres-1; case BC_TSETM: return bc_a(ins) + nres-1; default: return pt->framesize; @@ -492,3 +517,41 @@ ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns *pc) return makeasmfunc(lj_bc_ofs[op]); /* Return static dispatch target. */ } +#if LJ_HASJIT +/* Stitch a new trace. */ +void LJ_FASTCALL lj_dispatch_stitch(jit_State *J, const BCIns *pc) +{ + ERRNO_SAVE + lua_State *L = J->L; + void *cf = cframe_raw(L->cframe); + const BCIns *oldpc = cframe_pc(cf); + setcframe_pc(cf, pc); + /* Before dispatch, have to bias PC by 1. */ + L->top = L->base + cur_topslot(curr_proto(L), pc+1, cframe_multres_n(cf)); + lj_trace_stitch(J, pc-1); /* Point to the CALL instruction. */ + setcframe_pc(cf, oldpc); + ERRNO_RESTORE +} +#endif + +#if LJ_HASPROFILE +/* Profile dispatch. */ +void LJ_FASTCALL lj_dispatch_profile(lua_State *L, const BCIns *pc) +{ + ERRNO_SAVE + GCfunc *fn = curr_func(L); + GCproto *pt = funcproto(fn); + void *cf = cframe_raw(L->cframe); + const BCIns *oldpc = cframe_pc(cf); + global_State *g; + setcframe_pc(cf, pc); + L->top = L->base + cur_topslot(pt, pc, cframe_multres_n(cf)); + lj_profile_interpreter(L); + setcframe_pc(cf, oldpc); + g = G(L); + setgcref(g->cur_L, obj2gco(L)); + setvmstate(g, INTERP); + ERRNO_RESTORE +} +#endif + diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.h b/src/3rd party/luajit-2.0/src/lj_dispatch.h index 778affc8cdc..1e247e38286 100644 --- a/src/3rd party/luajit-2.0/src/lj_dispatch.h +++ b/src/3rd party/luajit-2.0/src/lj_dispatch.h @@ -29,15 +29,17 @@ _(floor) _(ceil) _(trunc) _(log) _(log10) _(exp) _(sin) _(cos) _(tan) \ _(asin) _(acos) _(atan) _(sinh) _(cosh) _(tanh) _(frexp) _(modf) _(atan2) \ _(pow) _(fmod) _(ldexp) \ - _(lj_dispatch_call) _(lj_dispatch_ins) _(lj_err_throw) \ + _(lj_dispatch_call) _(lj_dispatch_ins) _(lj_dispatch_stitch) \ + _(lj_dispatch_profile) _(lj_err_throw) \ _(lj_ffh_coroutine_wrap_err) _(lj_func_closeuv) _(lj_func_newL_gc) \ _(lj_gc_barrieruv) _(lj_gc_step) _(lj_gc_step_fixtop) _(lj_meta_arith) \ _(lj_meta_call) _(lj_meta_cat) _(lj_meta_comp) _(lj_meta_equal) \ - _(lj_meta_for) _(lj_meta_len) _(lj_meta_tget) _(lj_meta_tset) \ - _(lj_state_growstack) _(lj_str_fromnum) _(lj_str_fromnumber) _(lj_str_new) \ - _(lj_tab_dup) _(lj_tab_get) _(lj_tab_getinth) _(lj_tab_len) _(lj_tab_new) \ - _(lj_tab_newkey) _(lj_tab_next) _(lj_tab_reasize) \ - JITGOTDEF(_) FFIGOTDEF(_) + _(lj_meta_for) _(lj_meta_istype) _(lj_meta_len) _(lj_meta_tget) \ + _(lj_meta_tset) _(lj_state_growstack) _(lj_strfmt_num) \ + _(lj_str_new) _(lj_tab_dup) _(lj_tab_get) _(lj_tab_getinth) _(lj_tab_len) \ + _(lj_tab_new) _(lj_tab_newkey) _(lj_tab_next) _(lj_tab_reasize) \ + _(lj_tab_setinth) _(lj_buf_putstr_reverse) _(lj_buf_putstr_lower) \ + _(lj_buf_putstr_upper) _(lj_buf_tostr) JITGOTDEF(_) FFIGOTDEF(_) enum { #define GOTENUM(name) LJ_GOT_##name, @@ -60,7 +62,7 @@ typedef uint16_t HotCount; #define HOTCOUNT_CALL 1 /* This solves a circular dependency problem -- bump as needed. Sigh. */ -#define GG_NUM_ASMFF 62 +#define GG_NUM_ASMFF 57 #define GG_LEN_DDISP (BC__MAX + GG_NUM_ASMFF) #define GG_LEN_SDISP BC_FUNCF @@ -109,7 +111,12 @@ LJ_FUNC void lj_dispatch_update(global_State *g); /* Instruction dispatch callback for hooks or when recording. */ LJ_FUNCA void LJ_FASTCALL lj_dispatch_ins(lua_State *L, const BCIns *pc); LJ_FUNCA ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns*pc); -LJ_FUNCA void LJ_FASTCALL lj_dispatch_return(lua_State *L, const BCIns *pc); +#if LJ_HASJIT +LJ_FUNCA void LJ_FASTCALL lj_dispatch_stitch(jit_State *J, const BCIns *pc); +#endif +#if LJ_HASPROFILE +LJ_FUNCA void LJ_FASTCALL lj_dispatch_profile(lua_State *L, const BCIns *pc); +#endif #if LJ_HASFFI && !defined(_BUILDVM_H) /* Save/restore errno and GetLastError() around hooks, exits and recording. */ diff --git a/src/3rd party/luajit-2.0/src/lj_emit_arm.h b/src/3rd party/luajit-2.0/src/lj_emit_arm.h index 8c5e5379c75..45ce519ef6b 100644 --- a/src/3rd party/luajit-2.0/src/lj_emit_arm.h +++ b/src/3rd party/luajit-2.0/src/lj_emit_arm.h @@ -308,30 +308,30 @@ static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) emit_dm(as, ARMI_MOV, dst, src); } -/* Generic load of register from stack slot. */ -static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic load of register with base and (small) offset address. */ +static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { #if LJ_SOFTFP lua_assert(!irt_isnum(ir->t)); UNUSED(ir); #else if (r >= RID_MAX_GPR) - emit_vlso(as, irt_isnum(ir->t) ? ARMI_VLDR_D : ARMI_VLDR_S, r, RID_SP, ofs); + emit_vlso(as, irt_isnum(ir->t) ? ARMI_VLDR_D : ARMI_VLDR_S, r, base, ofs); else #endif - emit_lso(as, ARMI_LDR, r, RID_SP, ofs); + emit_lso(as, ARMI_LDR, r, base, ofs); } -/* Generic store of register to stack slot. */ -static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic store of register with base and (small) offset address. */ +static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { #if LJ_SOFTFP lua_assert(!irt_isnum(ir->t)); UNUSED(ir); #else if (r >= RID_MAX_GPR) - emit_vlso(as, irt_isnum(ir->t) ? ARMI_VSTR_D : ARMI_VSTR_S, r, RID_SP, ofs); + emit_vlso(as, irt_isnum(ir->t) ? ARMI_VSTR_D : ARMI_VSTR_S, r, base, ofs); else #endif - emit_lso(as, ARMI_STR, r, RID_SP, ofs); + emit_lso(as, ARMI_STR, r, base, ofs); } /* Emit an arithmetic/logic operation with a constant operand. */ diff --git a/src/3rd party/luajit-2.0/src/lj_emit_mips.h b/src/3rd party/luajit-2.0/src/lj_emit_mips.h index 0fc07d9101d..8e7ee66fb1a 100644 --- a/src/3rd party/luajit-2.0/src/lj_emit_mips.h +++ b/src/3rd party/luajit-2.0/src/lj_emit_mips.h @@ -178,24 +178,24 @@ static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) emit_fg(as, irt_isnum(ir->t) ? MIPSI_MOV_D : MIPSI_MOV_S, dst, src); } -/* Generic load of register from stack slot. */ -static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic load of register with base and (small) offset address. */ +static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_tsi(as, MIPSI_LW, r, RID_SP, ofs); + emit_tsi(as, MIPSI_LW, r, base, ofs); else emit_tsi(as, irt_isnum(ir->t) ? MIPSI_LDC1 : MIPSI_LWC1, - (r & 31), RID_SP, ofs); + (r & 31), base, ofs); } -/* Generic store of register to stack slot. */ -static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic store of register with base and (small) offset address. */ +static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_tsi(as, MIPSI_SW, r, RID_SP, ofs); + emit_tsi(as, MIPSI_SW, r, base, ofs); else emit_tsi(as, irt_isnum(ir->t) ? MIPSI_SDC1 : MIPSI_SWC1, - (r&31), RID_SP, ofs); + (r&31), base, ofs); } /* Add offset to pointer. */ diff --git a/src/3rd party/luajit-2.0/src/lj_emit_ppc.h b/src/3rd party/luajit-2.0/src/lj_emit_ppc.h index 14edf00fd64..087860ed382 100644 --- a/src/3rd party/luajit-2.0/src/lj_emit_ppc.h +++ b/src/3rd party/luajit-2.0/src/lj_emit_ppc.h @@ -186,22 +186,22 @@ static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) emit_fb(as, PPCI_FMR, dst, src); } -/* Generic load of register from stack slot. */ -static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic load of register with base and (small) offset address. */ +static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_tai(as, PPCI_LWZ, r, RID_SP, ofs); + emit_tai(as, PPCI_LWZ, r, base, ofs); else - emit_fai(as, irt_isnum(ir->t) ? PPCI_LFD : PPCI_LFS, r, RID_SP, ofs); + emit_fai(as, irt_isnum(ir->t) ? PPCI_LFD : PPCI_LFS, r, base, ofs); } -/* Generic store of register to stack slot. */ -static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic store of register with base and (small) offset address. */ +static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_tai(as, PPCI_STW, r, RID_SP, ofs); + emit_tai(as, PPCI_STW, r, base, ofs); else - emit_fai(as, irt_isnum(ir->t) ? PPCI_STFD : PPCI_STFS, r, RID_SP, ofs); + emit_fai(as, irt_isnum(ir->t) ? PPCI_STFD : PPCI_STFS, r, base, ofs); } /* Emit a compare (for equality) with a constant operand. */ diff --git a/src/3rd party/luajit-2.0/src/lj_emit_x86.h b/src/3rd party/luajit-2.0/src/lj_emit_x86.h index 3a2f6510b9f..ac42db3e20f 100644 --- a/src/3rd party/luajit-2.0/src/lj_emit_x86.h +++ b/src/3rd party/luajit-2.0/src/lj_emit_x86.h @@ -241,10 +241,6 @@ static void emit_gmrmi(ASMState *as, x86Group xg, Reg rb, int32_t i) /* -- Emit loads/stores --------------------------------------------------- */ -/* Instruction selection for XMM moves. */ -#define XMM_MOVRR(as) ((as->flags & JIT_F_SPLIT_XMM) ? XO_MOVSD : XO_MOVAPS) -#define XMM_MOVRM(as) ((as->flags & JIT_F_SPLIT_XMM) ? XO_MOVLPD : XO_MOVSD) - /* mov [base+ofs], i */ static void emit_movmroi(ASMState *as, Reg base, int32_t ofs, int32_t i) { @@ -314,7 +310,7 @@ static void emit_loadn(ASMState *as, Reg r, cTValue *tv) if (tvispzero(tv)) /* Use xor only for +0. */ emit_rr(as, XO_XORPS, r, r); else - emit_rma(as, XMM_MOVRM(as), r, &tv->n); + emit_rma(as, XO_MOVSD, r, &tv->n); } /* -- Emit control-flow instructions -------------------------------------- */ @@ -427,25 +423,25 @@ static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) if (dst < RID_MAX_GPR) emit_rr(as, XO_MOV, REX_64IR(ir, dst), src); else - emit_rr(as, XMM_MOVRR(as), dst, src); + emit_rr(as, XO_MOVAPS, dst, src); } -/* Generic load of register from stack slot. */ -static void emit_spload(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic load of register with base and (small) offset address. */ +static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_rmro(as, XO_MOV, REX_64IR(ir, r), RID_ESP, ofs); + emit_rmro(as, XO_MOV, REX_64IR(ir, r), base, ofs); else - emit_rmro(as, irt_isnum(ir->t) ? XMM_MOVRM(as) : XO_MOVSS, r, RID_ESP, ofs); + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, r, base, ofs); } -/* Generic store of register to stack slot. */ -static void emit_spstore(ASMState *as, IRIns *ir, Reg r, int32_t ofs) +/* Generic store of register with base and (small) offset address. */ +static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) { if (r < RID_MAX_GPR) - emit_rmro(as, XO_MOVto, REX_64IR(ir, r), RID_ESP, ofs); + emit_rmro(as, XO_MOVto, REX_64IR(ir, r), base, ofs); else - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, r, RID_ESP, ofs); + emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, r, base, ofs); } /* Add offset to pointer. */ diff --git a/src/3rd party/luajit-2.0/src/lj_err.c b/src/3rd party/luajit-2.0/src/lj_err.c index 52631b8e7ab..e67356e9521 100644 --- a/src/3rd party/luajit-2.0/src/lj_err.c +++ b/src/3rd party/luajit-2.0/src/lj_err.c @@ -16,6 +16,7 @@ #include "lj_ff.h" #include "lj_trace.h" #include "lj_vm.h" +#include "lj_strfmt.h" /* ** LuaJIT can either use internal or external frame unwinding: @@ -98,14 +99,14 @@ static void *err_unwind(lua_State *L, void *stopcf, int errcode) TValue *top = restorestack(L, -nres); if (frame < top) { /* Frame reached? */ if (errcode) { - L->cframe = cframe_prev(cf); L->base = frame+1; + L->cframe = cframe_prev(cf); unwindstack(L, top); } return cf; } } - if (frame <= tvref(L->stack)) + if (frame <= tvref(L->stack)+LJ_FR2) break; switch (frame_typep(frame)) { case FRAME_LUA: /* Lua frame. */ @@ -113,13 +114,11 @@ static void *err_unwind(lua_State *L, void *stopcf, int errcode) frame = frame_prevl(frame); break; case FRAME_C: /* C frame. */ -#if LJ_HASFFI unwind_c: -#endif #if LJ_UNWIND_EXT if (errcode) { - L->cframe = cframe_prev(cf); L->base = frame_prevd(frame) + 1; + L->cframe = cframe_prev(cf); unwindstack(L, frame); } else if (cf != stopcf) { cf = cframe_prev(cf); @@ -143,16 +142,14 @@ static void *err_unwind(lua_State *L, void *stopcf, int errcode) return cf; } if (errcode) { - L->cframe = cframe_prev(cf); L->base = frame_prevd(frame) + 1; + L->cframe = cframe_prev(cf); unwindstack(L, frame); } return cf; case FRAME_CONT: /* Continuation frame. */ -#if LJ_HASFFI - if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) + if (frame_iscont_fficb(frame)) goto unwind_c; -#endif case FRAME_VARG: /* Vararg frame. */ frame = frame_prevd(frame); break; @@ -165,8 +162,8 @@ static void *err_unwind(lua_State *L, void *stopcf, int errcode) } if (frame_typep(frame) == FRAME_PCALL) hook_leave(G(L)); - L->cframe = cf; L->base = frame_prevd(frame) + 1; + L->cframe = cf; unwindstack(L, L->base); } return (void *)((intptr_t)cf | CFRAME_UNWIND_FF); @@ -174,8 +171,8 @@ static void *err_unwind(lua_State *L, void *stopcf, int errcode) } /* No C frame. */ if (errcode) { + L->base = tvref(L->stack)+1+LJ_FR2; L->cframe = NULL; - L->base = tvref(L->stack)+1; unwindstack(L, L->base); if (G(L)->panic) G(L)->panic(L); @@ -452,7 +449,7 @@ LJ_NOINLINE void LJ_FASTCALL lj_err_throw(lua_State *L, int errcode) { global_State *g = G(L); lj_trace_abort(g); - setgcrefnull(g->jit_L); + setmref(g->jit_base, NULL); L->status = 0; #if LJ_UNWIND_EXT err_raise_ext(errcode); @@ -497,7 +494,7 @@ LJ_NOINLINE void lj_err_mem(lua_State *L) /* Find error function for runtime errors. Requires an extra stack traversal. */ static ptrdiff_t finderrfunc(lua_State *L) { - cTValue *frame = L->base-1, *bot = tvref(L->stack); + cTValue *frame = L->base-1, *bot = tvref(L->stack)+LJ_FR2; void *cf = L->cframe; while (frame > bot && cf) { while (cframe_nres(cframe_raw(cf)) < 0) { /* cframe without frame? */ @@ -521,10 +518,8 @@ static ptrdiff_t finderrfunc(lua_State *L) frame = frame_prevd(frame); break; case FRAME_CONT: -#if LJ_HASFFI - if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) + if (frame_iscont_fficb(frame)) cf = cframe_prev(cf); -#endif frame = frame_prevd(frame); break; case FRAME_CP: @@ -535,8 +530,8 @@ static ptrdiff_t finderrfunc(lua_State *L) break; case FRAME_PCALL: case FRAME_PCALLH: - if (frame_ftsz(frame) >= (ptrdiff_t)(2*sizeof(TValue))) /* xpcall? */ - return savestack(L, frame-1); /* Point to xpcall's errorfunc. */ + if (frame_func(frame_prevd(frame))->c.ffid == FF_xpcall) + return savestack(L, frame_prevd(frame)+1); /* xpcall's errorfunc. */ return 0; default: lua_assert(0); @@ -559,8 +554,9 @@ LJ_NOINLINE void lj_err_run(lua_State *L) lj_err_throw(L, LUA_ERRERR); } L->status = LUA_ERRERR; - copyTV(L, top, top-1); + copyTV(L, top+LJ_FR2, top-1); copyTV(L, top-1, errfunc); + if (LJ_FR2) setnilV(top++); L->top = top+1; lj_vm_call(L, top, 1+1); /* Stack: |errfunc|msg| -> |msg| */ } @@ -574,7 +570,7 @@ LJ_NORET LJ_NOINLINE static void err_msgv(lua_State *L, ErrMsg em, ...) va_list argp; va_start(argp, em); if (curr_funcisL(L)) L->top = curr_topL(L); - msg = lj_str_pushvf(L, err2msg(em), argp); + msg = lj_strfmt_pushvf(L, err2msg(em), argp); va_end(argp); lj_debug_addloc(L, msg, L->base-1, NULL); lj_err_run(L); @@ -592,11 +588,11 @@ LJ_NOINLINE void lj_err_lex(lua_State *L, GCstr *src, const char *tok, { char buff[LUA_IDSIZE]; const char *msg; - lj_debug_shortname(buff, src); - msg = lj_str_pushvf(L, err2msg(em), argp); - msg = lj_str_pushf(L, "%s:%d: %s", buff, line, msg); + lj_debug_shortname(buff, src, line); + msg = lj_strfmt_pushvf(L, err2msg(em), argp); + msg = lj_strfmt_pushf(L, "%s:%d: %s", buff, line, msg); if (tok) - lj_str_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tok); + lj_strfmt_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tok); lj_err_throw(L, LUA_ERRSYNTAX); } @@ -635,8 +631,9 @@ LJ_NOINLINE void lj_err_optype_call(lua_State *L, TValue *o) const BCIns *pc = cframe_Lpc(L); if (((ptrdiff_t)pc & FRAME_TYPE) != FRAME_LUA) { const char *tname = lj_typename(o); + if (LJ_FR2) o++; setframe_pc(o, pc); - setframe_gc(o, obj2gco(L)); + setframe_gc(o, obj2gco(L), LJ_TTHREAD); L->top = L->base = o+1; err_msgv(L, LJ_ERR_BADCALL, tname); } @@ -651,13 +648,10 @@ LJ_NOINLINE void lj_err_callermsg(lua_State *L, const char *msg) if (frame_islua(frame)) { pframe = frame_prevl(frame); } else if (frame_iscont(frame)) { -#if LJ_HASFFI - if ((frame-1)->u32.lo == LJ_CONT_FFI_CALLBACK) { + if (frame_iscont_fficb(frame)) { pframe = frame; frame = NULL; - } else -#endif - { + } else { pframe = frame_prevd(frame); #if LJ_HASFFI /* Remove frame for FFI metamethods. */ @@ -680,7 +674,7 @@ LJ_NOINLINE void lj_err_callerv(lua_State *L, ErrMsg em, ...) const char *msg; va_list argp; va_start(argp, em); - msg = lj_str_pushvf(L, err2msg(em), argp); + msg = lj_strfmt_pushvf(L, err2msg(em), argp); va_end(argp); lj_err_callermsg(L, msg); } @@ -700,9 +694,9 @@ LJ_NORET LJ_NOINLINE static void err_argmsg(lua_State *L, int narg, if (narg < 0 && narg > LUA_REGISTRYINDEX) narg = (int)(L->top - L->base) + narg + 1; if (ftype && ftype[3] == 'h' && --narg == 0) /* Check for "method". */ - msg = lj_str_pushf(L, err2msg(LJ_ERR_BADSELF), fname, msg); + msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADSELF), fname, msg); else - msg = lj_str_pushf(L, err2msg(LJ_ERR_BADARG), narg, fname, msg); + msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADARG), narg, fname, msg); lj_err_callermsg(L, msg); } @@ -712,7 +706,7 @@ LJ_NOINLINE void lj_err_argv(lua_State *L, int narg, ErrMsg em, ...) const char *msg; va_list argp; va_start(argp, em); - msg = lj_str_pushvf(L, err2msg(em), argp); + msg = lj_strfmt_pushvf(L, err2msg(em), argp); va_end(argp); err_argmsg(L, narg, msg); } @@ -728,7 +722,7 @@ LJ_NOINLINE void lj_err_argtype(lua_State *L, int narg, const char *xname) { TValue *o = narg < 0 ? L->top + narg : L->base + narg-1; const char *tname = o < L->top ? lj_typename(o) : lj_obj_typename[0]; - const char *msg = lj_str_pushf(L, err2msg(LJ_ERR_BADTYPE), xname, tname); + const char *msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADTYPE), xname, tname); err_argmsg(L, narg, msg); } @@ -778,7 +772,7 @@ LUALIB_API int luaL_error(lua_State *L, const char *fmt, ...) const char *msg; va_list argp; va_start(argp, fmt); - msg = lj_str_pushvf(L, fmt, argp); + msg = lj_strfmt_pushvf(L, fmt, argp); va_end(argp); lj_err_callermsg(L, msg); return 0; /* unreachable */ diff --git a/src/3rd party/luajit-2.0/src/lj_errmsg.h b/src/3rd party/luajit-2.0/src/lj_errmsg.h index 1c9487607b6..7717665b038 100644 --- a/src/3rd party/luajit-2.0/src/lj_errmsg.h +++ b/src/3rd party/luajit-2.0/src/lj_errmsg.h @@ -96,9 +96,7 @@ ERRDEF(STRPATX, "pattern too complex") ERRDEF(STRCAPI, "invalid capture index") ERRDEF(STRCAPN, "too many captures") ERRDEF(STRCAPU, "unfinished capture") -ERRDEF(STRFMTO, "invalid option " LUA_QL("%%%c") " to " LUA_QL("format")) -ERRDEF(STRFMTR, "invalid format (repeated flags)") -ERRDEF(STRFMTW, "invalid format (width or precision too long)") +ERRDEF(STRFMT, "invalid option " LUA_QS " to " LUA_QL("format")) ERRDEF(STRGSRV, "invalid replacement value (a %s)") ERRDEF(BADMODN, "name conflict for module " LUA_QS) #if LJ_HASJIT @@ -118,7 +116,6 @@ ERRDEF(JITOPT, "unknown or malformed optimization flag " LUA_QS) /* Lexer/parser errors. */ ERRDEF(XMODE, "attempt to load chunk with wrong mode") ERRDEF(XNEAR, "%s near " LUA_QS) -ERRDEF(XELEM, "lexical element too long") ERRDEF(XLINES, "chunk has too many lines") ERRDEF(XLEVELS, "chunk has too many syntax levels") ERRDEF(XNUMBER, "malformed number") diff --git a/src/3rd party/luajit-2.0/src/lj_ffrecord.c b/src/3rd party/luajit-2.0/src/lj_ffrecord.c index 69f71ab2efb..e17f6818f19 100644 --- a/src/3rd party/luajit-2.0/src/lj_ffrecord.c +++ b/src/3rd party/luajit-2.0/src/lj_ffrecord.c @@ -27,6 +27,7 @@ #include "lj_dispatch.h" #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" /* Some local macros to save typing. Undef'd at the end. */ #define IR(ref) (&J->cur.ir[(ref)]) @@ -79,10 +80,7 @@ static GCstr *argv2str(jit_State *J, TValue *o) GCstr *s; if (!tvisnumber(o)) lj_trace_err(J, LJ_TRERR_BADTYPE); - if (tvisint(o)) - s = lj_str_fromint(J->L, intV(o)); - else - s = lj_str_fromnum(J->L, &o->n); + s = lj_strfmt_number(J->L, o); setstrV(J->L, o, s); return s; } @@ -98,27 +96,90 @@ static ptrdiff_t results_wanted(jit_State *J) return -1; } -/* Throw error for unsupported variant of fast function. */ -LJ_NORET static void recff_nyiu(jit_State *J) +/* Trace stitching: add continuation below frame to start a new trace. */ +static void recff_stitch(jit_State *J) { - setfuncV(J->L, &J->errinfo, J->fn); - lj_trace_err_info(J, LJ_TRERR_NYIFFU); + ASMFunction cont = lj_cont_stitch; + TraceNo traceno = J->cur.traceno; + lua_State *L = J->L; + TValue *base = L->base; + const BCIns *pc = frame_pc(base-1); + TValue *pframe = frame_prevl(base-1); + TRef trcont; + + lua_assert(!LJ_FR2); /* TODO_FR2: handle frame shift. */ + /* Move func + args up in Lua stack and insert continuation. */ + memmove(&base[1], &base[-1], sizeof(TValue)*(J->maxslot+1)); + setframe_ftsz(base+1, ((char *)(base+1) - (char *)pframe) + FRAME_CONT); + setcont(base, cont); + setframe_pc(base, pc); + if (LJ_DUALNUM) setintV(base-1, traceno); else base[-1].u64 = traceno; + L->base += 2; + L->top += 2; + + /* Ditto for the IR. */ + memmove(&J->base[1], &J->base[-1], sizeof(TRef)*(J->maxslot+1)); +#if LJ_64 + trcont = lj_ir_kptr(J, (void *)((int64_t)cont-(int64_t)lj_vm_asm_begin)); +#else + trcont = lj_ir_kptr(J, (void *)cont); +#endif + J->base[0] = trcont | TREF_CONT; + J->base[-1] = LJ_DUALNUM ? lj_ir_kint(J,traceno) : lj_ir_knum_u64(J,traceno); + J->base += 2; + J->baseslot += 2; + J->framedepth++; + + lj_record_stop(J, LJ_TRLINK_STITCH, 0); + + /* Undo Lua stack changes. */ + memmove(&base[-1], &base[1], sizeof(TValue)*(J->maxslot+1)); + setframe_pc(base-1, pc); + L->base -= 2; + L->top -= 2; } -/* Fallback handler for all fast functions that are not recorded (yet). */ +/* Fallback handler for fast functions that are not recorded (yet). */ static void LJ_FASTCALL recff_nyi(jit_State *J, RecordFFData *rd) { - setfuncV(J->L, &J->errinfo, J->fn); - lj_trace_err_info(J, LJ_TRERR_NYIFF); - UNUSED(rd); + if (J->cur.nins < (IRRef)J->param[JIT_P_minstitch] + REF_BASE) { + lj_trace_err_info(J, LJ_TRERR_TRACEUV); + } else { + /* Can only stitch from Lua call. */ + if (J->framedepth && frame_islua(J->L->base-1)) { + BCOp op = bc_op(*frame_pc(J->L->base-1)); + /* Stitched trace cannot start with *M op with variable # of args. */ + if (!(op == BC_CALLM || op == BC_CALLMT || + op == BC_RETM || op == BC_TSETM)) { + switch (J->fn->c.ffid) { + case FF_error: + case FF_debug_sethook: + case FF_jit_flush: + break; /* Don't stitch across special builtins. */ + default: + recff_stitch(J); /* Use trace stitching. */ + rd->nres = -1; + return; + } + } + } + /* Otherwise stop trace and return to interpreter. */ + lj_record_stop(J, LJ_TRLINK_RETURN, 0); + rd->nres = -1; + } } -/* C functions can have arbitrary side-effects and are not recorded (yet). */ -static void LJ_FASTCALL recff_c(jit_State *J, RecordFFData *rd) +/* Fallback handler for unsupported variants of fast functions. */ +#define recff_nyiu recff_nyi + +/* Must stop the trace for classic C functions with arbitrary side-effects. */ +#define recff_c recff_nyi + +/* Emit BUFHDR for the global temporary buffer. */ +static TRef recff_bufhdr(jit_State *J) { - setfuncV(J->L, &J->errinfo, J->fn); - lj_trace_err_info(J, LJ_TRERR_NYICF); - UNUSED(rd); + return emitir(IRT(IR_BUFHDR, IRT_P32), + lj_ir_kptr(J, &J2G(J)->tmpbuf), IRBUFHDR_RESET); } /* -- Base library fast functions ----------------------------------------- */ @@ -135,7 +196,7 @@ static void LJ_FASTCALL recff_type(jit_State *J, RecordFFData *rd) uint32_t t; if (tvisnumber(&rd->argv[0])) t = ~LJ_TNUMX; - else if (LJ_64 && tvislightud(&rd->argv[0])) + else if (LJ_64 && !LJ_GC64 && tvislightud(&rd->argv[0])) t = ~LJ_TLIGHTUD; else t = ~itype(&rd->argv[0]); @@ -263,7 +324,8 @@ static void LJ_FASTCALL recff_select(jit_State *J, RecordFFData *rd) J->base[i] = J->base[start+i]; } /* else: Interpreter will throw. */ } else { - recff_nyiu(J); + recff_nyiu(J, rd); + return; } } /* else: Interpreter will throw. */ } @@ -274,14 +336,18 @@ static void LJ_FASTCALL recff_tonumber(jit_State *J, RecordFFData *rd) TRef base = J->base[1]; if (tr && !tref_isnil(base)) { base = lj_opt_narrow_toint(J, base); - if (!tref_isk(base) || IR(tref_ref(base))->i != 10) - recff_nyiu(J); + if (!tref_isk(base) || IR(tref_ref(base))->i != 10) { + recff_nyiu(J, rd); + return; + } } if (tref_isnumber_str(tr)) { if (tref_isstr(tr)) { TValue tmp; - if (!lj_strscan_num(strV(&rd->argv[0]), &tmp)) - recff_nyiu(J); /* Would need an inverted STRTO for this case. */ + if (!lj_strscan_num(strV(&rd->argv[0]), &tmp)) { + recff_nyiu(J, rd); /* Would need an inverted STRTO for this case. */ + return; + } tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); } #if LJ_HASFFI @@ -336,13 +402,15 @@ static void LJ_FASTCALL recff_tostring(jit_State *J, RecordFFData *rd) if (tref_isstr(tr)) { /* Ignore __tostring in the string base metatable. */ /* Pass on result in J->base[0]. */ - } else if (!recff_metacall(J, rd, MM_tostring)) { + } else if (tr && !recff_metacall(J, rd, MM_tostring)) { if (tref_isnumber(tr)) { - J->base[0] = emitir(IRT(IR_TOSTR, IRT_STR), tr, 0); + J->base[0] = emitir(IRT(IR_TOSTR, IRT_STR), tr, + tref_isnum(tr) ? IRTOSTR_NUM : IRTOSTR_INT); } else if (tref_ispri(tr)) { - J->base[0] = lj_ir_kstr(J, strV(&J->fn->c.upvalue[tref_type(tr)])); + J->base[0] = lj_ir_kstr(J, lj_strfmt_obj(J->L, &rd->argv[0])); } else { - recff_nyiu(J); + recff_nyiu(J, rd); + return; } } } @@ -364,14 +432,14 @@ static void LJ_FASTCALL recff_ipairs_aux(jit_State *J, RecordFFData *rd) } /* else: Interpreter will throw. */ } -static void LJ_FASTCALL recff_ipairs(jit_State *J, RecordFFData *rd) +static void LJ_FASTCALL recff_xpairs(jit_State *J, RecordFFData *rd) { if (!(LJ_52 && recff_metacall(J, rd, MM_ipairs))) { TRef tab = J->base[0]; if (tref_istab(tab)) { J->base[0] = lj_ir_kfunc(J, funcV(&J->fn->c.upvalue[0])); J->base[1] = tab; - J->base[2] = lj_ir_kint(J, 0); + J->base[2] = rd->data ? lj_ir_kint(J, 0) : TREF_NIL; rd->nres = 3; } /* else: Interpreter will throw. */ } @@ -399,6 +467,7 @@ static void LJ_FASTCALL recff_xpcall(jit_State *J, RecordFFData *rd) TValue argv0, argv1; TRef tmp; int errcode; + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ /* Swap function and traceback. */ tmp = J->base[0]; J->base[0] = J->base[1]; J->base[1] = tmp; copyTV(J->L, &argv0, &rd->argv[0]); @@ -416,6 +485,18 @@ static void LJ_FASTCALL recff_xpcall(jit_State *J, RecordFFData *rd) } /* else: Interpreter will throw. */ } +static void LJ_FASTCALL recff_getfenv(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + /* Only support getfenv(0) for now. */ + if (tref_isint(tr) && tref_isk(tr) && IR(tref_ref(tr))->i == 0) { + TRef trl = emitir(IRT(IR_LREF, IRT_THREAD), 0, 0); + J->base[0] = emitir(IRT(IR_FLOAD, IRT_TAB), trl, IRFL_THREAD_ENV); + return; + } + recff_nyiu(J, rd); +} + /* -- Math library fast functions ----------------------------------------- */ static void LJ_FASTCALL recff_math_abs(jit_State *J, RecordFFData *rd) @@ -528,14 +609,6 @@ static void LJ_FASTCALL recff_math_modf(jit_State *J, RecordFFData *rd) rd->nres = 2; } -static void LJ_FASTCALL recff_math_degrad(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - TRef trm = lj_ir_knum(J, numV(&J->fn->c.upvalue[0])); - J->base[0] = emitir(IRTN(IR_MUL), tr, trm); - UNUSED(rd); -} - static void LJ_FASTCALL recff_math_pow(jit_State *J, RecordFFData *rd) { TRef tr = lj_ir_tonum(J, J->base[0]); @@ -592,48 +665,105 @@ static void LJ_FASTCALL recff_math_random(jit_State *J, RecordFFData *rd) /* -- Bit library fast functions ------------------------------------------ */ -/* Record unary bit.tobit, bit.bnot, bit.bswap. */ +/* Record bit.tobit. */ +static void LJ_FASTCALL recff_bit_tobit(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; +#if LJ_HASFFI + if (tref_iscdata(tr)) { recff_bit64_tobit(J, rd); return; } +#endif + J->base[0] = lj_opt_narrow_tobit(J, tr); + UNUSED(rd); +} + +/* Record unary bit.bnot, bit.bswap. */ static void LJ_FASTCALL recff_bit_unary(jit_State *J, RecordFFData *rd) { - TRef tr = lj_opt_narrow_tobit(J, J->base[0]); - J->base[0] = (rd->data == IR_TOBIT) ? tr : emitir(IRTI(rd->data), tr, 0); +#if LJ_HASFFI + if (recff_bit64_unary(J, rd)) + return; +#endif + J->base[0] = emitir(IRTI(rd->data), lj_opt_narrow_tobit(J, J->base[0]), 0); } /* Record N-ary bit.band, bit.bor, bit.bxor. */ static void LJ_FASTCALL recff_bit_nary(jit_State *J, RecordFFData *rd) { - TRef tr = lj_opt_narrow_tobit(J, J->base[0]); - uint32_t op = rd->data; - BCReg i; - for (i = 1; J->base[i] != 0; i++) - tr = emitir(IRTI(op), tr, lj_opt_narrow_tobit(J, J->base[i])); - J->base[0] = tr; +#if LJ_HASFFI + if (recff_bit64_nary(J, rd)) + return; +#endif + { + TRef tr = lj_opt_narrow_tobit(J, J->base[0]); + uint32_t ot = IRTI(rd->data); + BCReg i; + for (i = 1; J->base[i] != 0; i++) + tr = emitir(ot, tr, lj_opt_narrow_tobit(J, J->base[i])); + J->base[0] = tr; + } } /* Record bit shifts. */ static void LJ_FASTCALL recff_bit_shift(jit_State *J, RecordFFData *rd) { - TRef tr = lj_opt_narrow_tobit(J, J->base[0]); - TRef tsh = lj_opt_narrow_tobit(J, J->base[1]); - IROp op = (IROp)rd->data; - if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && - !tref_isk(tsh)) - tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 31)); +#if LJ_HASFFI + if (recff_bit64_shift(J, rd)) + return; +#endif + { + TRef tr = lj_opt_narrow_tobit(J, J->base[0]); + TRef tsh = lj_opt_narrow_tobit(J, J->base[1]); + IROp op = (IROp)rd->data; + if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && + !tref_isk(tsh)) + tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 31)); #ifdef LJ_TARGET_UNIFYROT - if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { - op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; - tsh = emitir(IRTI(IR_NEG), tsh, tsh); + if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { + op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; + tsh = emitir(IRTI(IR_NEG), tsh, tsh); + } +#endif + J->base[0] = emitir(IRTI(op), tr, tsh); } +} + +static void LJ_FASTCALL recff_bit_tohex(jit_State *J, RecordFFData *rd) +{ +#if LJ_HASFFI + TRef hdr = recff_bufhdr(J); + TRef tr = recff_bit64_tohex(J, rd, hdr); + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); +#else + recff_nyiu(J, rd); /* Don't bother working around this NYI. */ #endif - J->base[0] = emitir(IRTI(op), tr, tsh); } /* -- String library fast functions --------------------------------------- */ -static void LJ_FASTCALL recff_string_len(jit_State *J, RecordFFData *rd) +/* Specialize to relative starting position for string. */ +static TRef recff_string_start(jit_State *J, GCstr *s, int32_t *st, TRef tr, + TRef trlen, TRef tr0) { - J->base[0] = emitir(IRTI(IR_FLOAD), lj_ir_tostr(J, J->base[0]), IRFL_STR_LEN); - UNUSED(rd); + int32_t start = *st; + if (start < 0) { + emitir(IRTGI(IR_LT), tr, tr0); + tr = emitir(IRTI(IR_ADD), trlen, tr); + start = start + (int32_t)s->len; + emitir(start < 0 ? IRTGI(IR_LT) : IRTGI(IR_GE), tr, tr0); + if (start < 0) { + tr = tr0; + start = 0; + } + } else if (start == 0) { + emitir(IRTGI(IR_EQ), tr, tr0); + tr = tr0; + } else { + tr = emitir(IRTI(IR_ADD), tr, lj_ir_kint(J, -1)); + emitir(IRTGI(IR_GE), tr, tr0); + start--; + } + *st = start; + return tr; } /* Handle string.byte (rd->data = 0) and string.sub (rd->data = 1). */ @@ -680,29 +810,11 @@ static void LJ_FASTCALL recff_string_range(jit_State *J, RecordFFData *rd) } else if ((MSize)end <= str->len) { emitir(IRTGI(IR_ULE), trend, trlen); } else { - emitir(IRTGI(IR_GT), trend, trlen); + emitir(IRTGI(IR_UGT), trend, trlen); end = (int32_t)str->len; trend = trlen; } - if (start < 0) { - emitir(IRTGI(IR_LT), trstart, tr0); - trstart = emitir(IRTI(IR_ADD), trlen, trstart); - start = start+(int32_t)str->len; - emitir(start < 0 ? IRTGI(IR_LT) : IRTGI(IR_GE), trstart, tr0); - if (start < 0) { - trstart = tr0; - start = 0; - } - } else { - if (start == 0) { - emitir(IRTGI(IR_EQ), trstart, tr0); - trstart = tr0; - } else { - trstart = emitir(IRTI(IR_ADD), trstart, lj_ir_kint(J, -1)); - emitir(IRTGI(IR_GE), trstart, tr0); - start--; - } - } + trstart = recff_string_start(J, str, &start, trstart, trlen, tr0); if (rd->data) { /* Return string.sub result. */ if (end - start >= 0) { /* Also handle empty range here, to avoid extra traces. */ @@ -712,7 +824,7 @@ static void LJ_FASTCALL recff_string_range(jit_State *J, RecordFFData *rd) J->base[0] = emitir(IRT(IR_SNEW, IRT_STR), trptr, trslen); } else { /* Range underflow: return empty string. */ emitir(IRTGI(IR_LT), trend, trstart); - J->base[0] = lj_ir_kstr(J, lj_str_new(J->L, strdata(str), 0)); + J->base[0] = lj_ir_kstr(J, &J2G(J)->strempty); } } else { /* Return string.byte result(s). */ ptrdiff_t i, len = end - start; @@ -734,48 +846,200 @@ static void LJ_FASTCALL recff_string_range(jit_State *J, RecordFFData *rd) } } -/* -- Table library fast functions ---------------------------------------- */ - -static void LJ_FASTCALL recff_table_getn(jit_State *J, RecordFFData *rd) +static void LJ_FASTCALL recff_string_char(jit_State *J, RecordFFData *rd) { - if (tref_istab(J->base[0])) - J->base[0] = lj_ir_call(J, IRCALL_lj_tab_len, J->base[0]); - /* else: Interpreter will throw. */ + TRef k255 = lj_ir_kint(J, 255); + BCReg i; + for (i = 0; J->base[i] != 0; i++) { /* Convert char values to strings. */ + TRef tr = lj_opt_narrow_toint(J, J->base[i]); + emitir(IRTGI(IR_ULE), tr, k255); + J->base[i] = emitir(IRT(IR_TOSTR, IRT_STR), tr, IRTOSTR_CHAR); + } + if (i > 1) { /* Concatenate the strings, if there's more than one. */ + TRef hdr = recff_bufhdr(J), tr = hdr; + for (i = 0; J->base[i] != 0; i++) + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, J->base[i]); + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); + } UNUSED(rd); } -static void LJ_FASTCALL recff_table_remove(jit_State *J, RecordFFData *rd) +static void LJ_FASTCALL recff_string_rep(jit_State *J, RecordFFData *rd) { - TRef tab = J->base[0]; - rd->nres = 0; - if (tref_istab(tab)) { - if (tref_isnil(J->base[1])) { /* Simple pop: t[#t] = nil */ - TRef trlen = lj_ir_call(J, IRCALL_lj_tab_len, tab); - GCtab *t = tabV(&rd->argv[0]); - MSize len = lj_tab_len(t); - emitir(IRTGI(len ? IR_NE : IR_EQ), trlen, lj_ir_kint(J, 0)); - if (len) { - RecordIndex ix; - ix.tab = tab; - ix.key = trlen; - settabV(J->L, &ix.tabv, t); - setintV(&ix.keyv, len); - ix.idxchain = 0; - if (results_wanted(J) != 0) { /* Specialize load only if needed. */ - ix.val = 0; - J->base[0] = lj_record_idx(J, &ix); /* Load previous value. */ - rd->nres = 1; - /* Assumes ix.key/ix.tab is not modified for raw lj_record_idx(). */ - } - ix.val = TREF_NIL; - lj_record_idx(J, &ix); /* Remove value. */ + TRef str = lj_ir_tostr(J, J->base[0]); + TRef rep = lj_opt_narrow_toint(J, J->base[1]); + TRef hdr, tr, str2 = 0; + if (!tref_isnil(J->base[2])) { + TRef sep = lj_ir_tostr(J, J->base[2]); + int32_t vrep = argv2int(J, &rd->argv[1]); + emitir(IRTGI(vrep > 1 ? IR_GT : IR_LE), rep, lj_ir_kint(J, 1)); + if (vrep > 1) { + TRef hdr2 = recff_bufhdr(J); + TRef tr2 = emitir(IRT(IR_BUFPUT, IRT_P32), hdr2, sep); + tr2 = emitir(IRT(IR_BUFPUT, IRT_P32), tr2, str); + str2 = emitir(IRT(IR_BUFSTR, IRT_STR), tr2, hdr2); + } + } + tr = hdr = recff_bufhdr(J); + if (str2) { + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, str); + str = str2; + rep = emitir(IRTI(IR_ADD), rep, lj_ir_kint(J, -1)); + } + tr = lj_ir_call(J, IRCALL_lj_buf_putstr_rep, tr, str, rep); + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); +} + +static void LJ_FASTCALL recff_string_op(jit_State *J, RecordFFData *rd) +{ + TRef str = lj_ir_tostr(J, J->base[0]); + TRef hdr = recff_bufhdr(J); + TRef tr = lj_ir_call(J, rd->data, hdr, str); + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); +} + +static void LJ_FASTCALL recff_string_find(jit_State *J, RecordFFData *rd) +{ + TRef trstr = lj_ir_tostr(J, J->base[0]); + TRef trpat = lj_ir_tostr(J, J->base[1]); + TRef trlen = emitir(IRTI(IR_FLOAD), trstr, IRFL_STR_LEN); + TRef tr0 = lj_ir_kint(J, 0); + TRef trstart; + GCstr *str = argv2str(J, &rd->argv[0]); + GCstr *pat = argv2str(J, &rd->argv[1]); + int32_t start; + J->needsnap = 1; + if (tref_isnil(J->base[2])) { + trstart = lj_ir_kint(J, 1); + start = 1; + } else { + trstart = lj_opt_narrow_toint(J, J->base[2]); + start = argv2int(J, &rd->argv[2]); + } + trstart = recff_string_start(J, str, &start, trstart, trlen, tr0); + if ((MSize)start <= str->len) { + emitir(IRTGI(IR_ULE), trstart, trlen); + } else { + emitir(IRTGI(IR_UGT), trstart, trlen); +#if LJ_52 + J->base[0] = TREF_NIL; + return; +#else + trstart = trlen; + start = str->len; +#endif + } + /* Fixed arg or no pattern matching chars? (Specialized to pattern string.) */ + if ((J->base[2] && tref_istruecond(J->base[3])) || + (emitir(IRTG(IR_EQ, IRT_STR), trpat, lj_ir_kstr(J, pat)), + !lj_str_haspattern(pat))) { /* Search for fixed string. */ + TRef trsptr = emitir(IRT(IR_STRREF, IRT_P32), trstr, trstart); + TRef trpptr = emitir(IRT(IR_STRREF, IRT_P32), trpat, tr0); + TRef trslen = emitir(IRTI(IR_SUB), trlen, trstart); + TRef trplen = emitir(IRTI(IR_FLOAD), trpat, IRFL_STR_LEN); + TRef tr = lj_ir_call(J, IRCALL_lj_str_find, trsptr, trpptr, trslen, trplen); + TRef trp0 = lj_ir_kkptr(J, NULL); + if (lj_str_find(strdata(str)+(MSize)start, strdata(pat), + str->len-(MSize)start, pat->len)) { + TRef pos; + emitir(IRTG(IR_NE, IRT_P32), tr, trp0); + pos = emitir(IRTI(IR_SUB), tr, emitir(IRT(IR_STRREF, IRT_P32), trstr, tr0)); + J->base[0] = emitir(IRTI(IR_ADD), pos, lj_ir_kint(J, 1)); + J->base[1] = emitir(IRTI(IR_ADD), pos, trplen); + rd->nres = 2; + } else { + emitir(IRTG(IR_EQ, IRT_P32), tr, trp0); + J->base[0] = TREF_NIL; + } + } else { /* Search for pattern. */ + recff_nyiu(J, rd); + return; + } +} + +static void LJ_FASTCALL recff_string_format(jit_State *J, RecordFFData *rd) +{ + TRef trfmt = lj_ir_tostr(J, J->base[0]); + GCstr *fmt = argv2str(J, &rd->argv[0]); + int arg = 1; + TRef hdr, tr; + FormatState fs; + SFormat sf; + /* Specialize to the format string. */ + emitir(IRTG(IR_EQ, IRT_STR), trfmt, lj_ir_kstr(J, fmt)); + tr = hdr = recff_bufhdr(J); + lj_strfmt_init(&fs, strdata(fmt), fmt->len); + while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { /* Parse format. */ + TRef tra = sf == STRFMT_LIT ? 0 : J->base[arg++]; + TRef trsf = lj_ir_kint(J, (int32_t)sf); + IRCallID id; + switch (STRFMT_TYPE(sf)) { + case STRFMT_LIT: + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, + lj_ir_kstr(J, lj_str_new(J->L, fs.str, fs.len))); + break; + case STRFMT_INT: + id = IRCALL_lj_strfmt_putfnum_int; + handle_int: + if (!tref_isinteger(tra)) + goto handle_num; + if (sf == STRFMT_INT) { /* Shortcut for plain %d. */ + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, + emitir(IRT(IR_TOSTR, IRT_STR), tra, IRTOSTR_INT)); + } else { +#if LJ_HASFFI + tra = emitir(IRT(IR_CONV, IRT_U64), tra, + (IRT_INT|(IRT_U64<<5)|IRCONV_SEXT)); + tr = lj_ir_call(J, IRCALL_lj_strfmt_putfxint, tr, trsf, tra); + lj_needsplit(J); +#else + recff_nyiu(J, rd); /* Don't bother working around this NYI. */ + return; +#endif } - } else { /* Complex case: remove in the middle. */ - recff_nyiu(J); + break; + case STRFMT_UINT: + id = IRCALL_lj_strfmt_putfnum_uint; + goto handle_int; + case STRFMT_NUM: + id = IRCALL_lj_strfmt_putfnum; + handle_num: + tra = lj_ir_tonum(J, tra); + tr = lj_ir_call(J, id, tr, trsf, tra); + if (LJ_SOFTFP) lj_needsplit(J); + break; + case STRFMT_STR: + if (!tref_isstr(tra)) { + recff_nyiu(J, rd); /* NYI: __tostring and non-string types for %s. */ + return; + } + if (sf == STRFMT_STR) /* Shortcut for plain %s. */ + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, tra); + else if ((sf & STRFMT_T_QUOTED)) + tr = lj_ir_call(J, IRCALL_lj_strfmt_putquoted, tr, tra); + else + tr = lj_ir_call(J, IRCALL_lj_strfmt_putfstr, tr, trsf, tra); + break; + case STRFMT_CHAR: + tra = lj_opt_narrow_toint(J, tra); + if (sf == STRFMT_CHAR) /* Shortcut for plain %c. */ + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, + emitir(IRT(IR_TOSTR, IRT_STR), tra, IRTOSTR_CHAR)); + else + tr = lj_ir_call(J, IRCALL_lj_strfmt_putfchar, tr, trsf, tra); + break; + case STRFMT_PTR: /* NYI */ + case STRFMT_ERR: + default: + recff_nyiu(J, rd); + return; } - } /* else: Interpreter will throw. */ + } + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); } +/* -- Table library fast functions ---------------------------------------- */ + static void LJ_FASTCALL recff_table_insert(jit_State *J, RecordFFData *rd) { RecordIndex ix; @@ -792,11 +1056,49 @@ static void LJ_FASTCALL recff_table_insert(jit_State *J, RecordFFData *rd) ix.idxchain = 0; lj_record_idx(J, &ix); /* Set new value. */ } else { /* Complex case: insert in the middle. */ - recff_nyiu(J); + recff_nyiu(J, rd); + return; } } /* else: Interpreter will throw. */ } +static void LJ_FASTCALL recff_table_concat(jit_State *J, RecordFFData *rd) +{ + TRef tab = J->base[0]; + if (tref_istab(tab)) { + TRef sep = !tref_isnil(J->base[1]) ? + lj_ir_tostr(J, J->base[1]) : lj_ir_knull(J, IRT_STR); + TRef tri = (J->base[1] && !tref_isnil(J->base[2])) ? + lj_opt_narrow_toint(J, J->base[2]) : lj_ir_kint(J, 1); + TRef tre = (J->base[1] && J->base[2] && !tref_isnil(J->base[3])) ? + lj_opt_narrow_toint(J, J->base[3]) : + lj_ir_call(J, IRCALL_lj_tab_len, tab); + TRef hdr = recff_bufhdr(J); + TRef tr = lj_ir_call(J, IRCALL_lj_buf_puttab, hdr, tab, sep, tri, tre); + emitir(IRTG(IR_NE, IRT_PTR), tr, lj_ir_kptr(J, NULL)); + J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); + } /* else: Interpreter will throw. */ + UNUSED(rd); +} + +static void LJ_FASTCALL recff_table_new(jit_State *J, RecordFFData *rd) +{ + TRef tra = lj_opt_narrow_toint(J, J->base[0]); + TRef trh = lj_opt_narrow_toint(J, J->base[1]); + J->base[0] = lj_ir_call(J, IRCALL_lj_tab_new_ah, tra, trh); + UNUSED(rd); +} + +static void LJ_FASTCALL recff_table_clear(jit_State *J, RecordFFData *rd) +{ + TRef tr = J->base[0]; + if (tref_istab(tr)) { + rd->nres = 0; + lj_ir_call(J, IRCALL_lj_tab_clear, tr); + J->needsnap = 1; + } /* else: Interpreter will throw. */ +} + /* -- I/O library fast functions ------------------------------------------ */ /* Get FILE* for I/O function. Any I/O error aborts recording, so there's @@ -832,7 +1134,10 @@ static void LJ_FASTCALL recff_io_write(jit_State *J, RecordFFData *rd) TRef buf = emitir(IRT(IR_STRREF, IRT_P32), str, zero); TRef len = emitir(IRTI(IR_FLOAD), str, IRFL_STR_LEN); if (tref_isk(len) && IR(tref_ref(len))->i == 1) { - TRef tr = emitir(IRT(IR_XLOAD, IRT_U8), buf, IRXLOAD_READONLY); + IRIns *irs = IR(tref_ref(str)); + TRef tr = (irs->o == IR_TOSTR && irs->op2 == IRTOSTR_CHAR) ? + irs->op1 : + emitir(IRT(IR_XLOAD, IRT_U8), buf, IRXLOAD_READONLY); tr = lj_ir_call(J, IRCALL_fputc, tr, fp); if (results_wanted(J) != 0) /* Check result only if not ignored. */ emitir(IRTGI(IR_NE), tr, lj_ir_kint(J, -1)); @@ -854,6 +1159,28 @@ static void LJ_FASTCALL recff_io_flush(jit_State *J, RecordFFData *rd) J->base[0] = TREF_TRUE; } +/* -- Debug library fast functions ---------------------------------------- */ + +static void LJ_FASTCALL recff_debug_getmetatable(jit_State *J, RecordFFData *rd) +{ + GCtab *mt; + TRef mtref; + TRef tr = J->base[0]; + if (tref_istab(tr)) { + mt = tabref(tabV(&rd->argv[0])->metatable); + mtref = emitir(IRT(IR_FLOAD, IRT_TAB), tr, IRFL_TAB_META); + } else if (tref_isudata(tr)) { + mt = tabref(udataV(&rd->argv[0])->metatable); + mtref = emitir(IRT(IR_FLOAD, IRT_TAB), tr, IRFL_UDATA_META); + } else { + mt = tabref(basemt_obj(J2G(J), &rd->argv[0])); + J->base[0] = mt ? lj_ir_ktab(J, mt) : TREF_NIL; + return; + } + emitir(IRTG(mt ? IR_NE : IR_EQ, IRT_TAB), mtref, lj_ir_knull(J, IRT_TAB)); + J->base[0] = mt ? mtref : TREF_NIL; +} + /* -- Record calls to fast functions -------------------------------------- */ #include "lj_recdef.h" diff --git a/src/3rd party/luajit-2.0/src/lj_frame.h b/src/3rd party/luajit-2.0/src/lj_frame.h index cd57be223fc..8fe48db18c3 100644 --- a/src/3rd party/luajit-2.0/src/lj_frame.h +++ b/src/3rd party/luajit-2.0/src/lj_frame.h @@ -11,7 +11,16 @@ /* -- Lua stack frame ----------------------------------------------------- */ -/* Frame type markers in callee function slot (callee base-1). */ +/* Frame type markers in LSB of PC (4-byte aligned) or delta (8-byte aligned: +** +** PC 00 Lua frame +** delta 001 C frame +** delta 010 Continuation frame +** delta 011 Lua vararg frame +** delta 101 cpcall() frame +** delta 110 ff pcall() frame +** delta 111 ff pcall() frame with active hook +*/ enum { FRAME_LUA, FRAME_C, FRAME_CONT, FRAME_VARG, FRAME_LUAP, FRAME_CP, FRAME_PCALL, FRAME_PCALLH @@ -21,9 +30,47 @@ enum { #define FRAME_TYPEP (FRAME_TYPE|FRAME_P) /* Macros to access and modify Lua frames. */ +#if LJ_FR2 +/* Two-slot frame info, required for 64 bit PC/GCRef: +** +** base-2 base-1 | base base+1 ... +** [func PC/delta/ft] | [slots ...] +** ^-- frame | ^-- base ^-- top +** +** Continuation frames: +** +** base-4 base-3 base-2 base-1 | base base+1 ... +** [cont PC ] [func PC/delta/ft] | [slots ...] +** ^-- frame | ^-- base ^-- top +*/ +#define frame_gc(f) (gcval((f)-1)) +#define frame_ftsz(f) ((ptrdiff_t)(f)->ftsz) +#define frame_pc(f) ((const BCIns *)frame_ftsz(f)) +#define setframe_gc(f, p, tp) (setgcVraw((f)-1, (p), (tp))) +#define setframe_ftsz(f, sz) ((f)->ftsz = (sz)) +#define setframe_pc(f, pc) ((f)->ftsz = (int64_t)(intptr_t)(pc)) +#else +/* One-slot frame info, sufficient for 32 bit PC/GCRef: +** +** base-1 | base base+1 ... +** lo hi | +** [func | PC/delta/ft] | [slots ...] +** ^-- frame | ^-- base ^-- top +** +** Continuation frames: +** +** base-2 base-1 | base base+1 ... +** lo hi lo hi | +** [cont | PC] [func | PC/delta/ft] | [slots ...] +** ^-- frame | ^-- base ^-- top +*/ #define frame_gc(f) (gcref((f)->fr.func)) -#define frame_func(f) (&frame_gc(f)->fn) -#define frame_ftsz(f) ((f)->fr.tp.ftsz) +#define frame_ftsz(f) ((ptrdiff_t)(f)->fr.tp.ftsz) +#define frame_pc(f) (mref((f)->fr.tp.pcr, const BCIns)) +#define setframe_gc(f, p, tp) (setgcref((f)->fr.func, (p)), UNUSED(tp)) +#define setframe_ftsz(f, sz) ((f)->fr.tp.ftsz = (int32_t)(sz)) +#define setframe_pc(f, pc) (setmref((f)->fr.tp.pcr, (pc))) +#endif #define frame_type(f) (frame_ftsz(f) & FRAME_TYPE) #define frame_typep(f) (frame_ftsz(f) & FRAME_TYPEP) @@ -33,27 +80,36 @@ enum { #define frame_isvarg(f) (frame_typep(f) == FRAME_VARG) #define frame_ispcall(f) ((frame_ftsz(f) & 6) == FRAME_PCALL) -#define frame_pc(f) (mref((f)->fr.tp.pcr, const BCIns)) +#define frame_func(f) (&frame_gc(f)->fn) +#define frame_delta(f) (frame_ftsz(f) >> 3) +#define frame_sized(f) (frame_ftsz(f) & ~FRAME_TYPEP) + +enum { LJ_CONT_TAILCALL, LJ_CONT_FFI_CALLBACK }; /* Special continuations. */ + +#if LJ_FR2 +#define frame_contpc(f) (frame_pc((f)-2)) +#define frame_contv(f) (((f)-3)->u64) +#else #define frame_contpc(f) (frame_pc((f)-1)) -#if LJ_64 +#define frame_contv(f) (((f)-1)->u32.lo) +#endif +#if LJ_FR2 +#define frame_contf(f) ((ASMFunction)(uintptr_t)((f)-3)->u64) +#elif LJ_64 #define frame_contf(f) \ ((ASMFunction)(void *)((intptr_t)lj_vm_asm_begin + \ (intptr_t)(int32_t)((f)-1)->u32.lo)) #else #define frame_contf(f) ((ASMFunction)gcrefp(((f)-1)->gcr, void)) #endif -#define frame_delta(f) (frame_ftsz(f) >> 3) -#define frame_sized(f) (frame_ftsz(f) & ~FRAME_TYPEP) +#define frame_iscont_fficb(f) \ + (LJ_HASFFI && frame_contv(f) == LJ_CONT_FFI_CALLBACK) -#define frame_prevl(f) ((f) - (1+bc_a(frame_pc(f)[-1]))) +#define frame_prevl(f) ((f) - (1+LJ_FR2+bc_a(frame_pc(f)[-1]))) #define frame_prevd(f) ((TValue *)((char *)(f) - frame_sized(f))) #define frame_prev(f) (frame_islua(f)?frame_prevl(f):frame_prevd(f)) /* Note: this macro does not skip over FRAME_VARG. */ -#define setframe_pc(f, pc) (setmref((f)->fr.tp.pcr, (pc))) -#define setframe_ftsz(f, sz) ((f)->fr.tp.ftsz = (sz)) -#define setframe_gc(f, p) (setgcref((f)->fr.func, (p))) - /* -- C stack frame ------------------------------------------------------- */ /* Macros to access and modify the C stack frame chain. */ @@ -103,6 +159,15 @@ enum { #define CFRAME_SIZE 64 #endif #define CFRAME_SHIFT_MULTRES 3 +#elif LJ_TARGET_ARM64 +#define CFRAME_OFS_ERRF 196 +#define CFRAME_OFS_NRES 200 +#define CFRAME_OFS_PREV 160 +#define CFRAME_OFS_L 176 +#define CFRAME_OFS_PC 168 +#define CFRAME_OFS_MULTRES 192 +#define CFRAME_SIZE 208 +#define CFRAME_SHIFT_MULTRES 3 #elif LJ_TARGET_PPC #if LJ_TARGET_XBOX360 #define CFRAME_OFS_ERRF 424 @@ -132,15 +197,6 @@ enum { #define CFRAME_SIZE 272 #define CFRAME_SHIFT_MULTRES 3 #endif -#elif LJ_TARGET_PPCSPE -#define CFRAME_OFS_ERRF 28 -#define CFRAME_OFS_NRES 24 -#define CFRAME_OFS_PREV 20 -#define CFRAME_OFS_L 16 -#define CFRAME_OFS_PC 12 -#define CFRAME_OFS_MULTRES 8 -#define CFRAME_SIZE 184 -#define CFRAME_SHIFT_MULTRES 3 #elif LJ_TARGET_MIPS #define CFRAME_OFS_ERRF 124 #define CFRAME_OFS_NRES 120 diff --git a/src/3rd party/luajit-2.0/src/lj_gc.c b/src/3rd party/luajit-2.0/src/lj_gc.c index b498abaa84d..99d664aa2a1 100644 --- a/src/3rd party/luajit-2.0/src/lj_gc.c +++ b/src/3rd party/luajit-2.0/src/lj_gc.c @@ -12,6 +12,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_func.h" @@ -267,12 +268,12 @@ static MSize gc_traverse_frames(global_State *g, lua_State *th) { TValue *frame, *top = th->top-1, *bot = tvref(th->stack); /* Note: extra vararg frame not skipped, marks function twice (harmless). */ - for (frame = th->base-1; frame > bot; frame = frame_prev(frame)) { + for (frame = th->base-1; frame > bot+LJ_FR2; frame = frame_prev(frame)) { GCfunc *fn = frame_func(frame); TValue *ftop = frame; if (isluafunc(fn)) ftop += funcproto(fn)->framesize; if (ftop > top) top = ftop; - gc_markobj(g, fn); /* Need to mark hidden function (or L). */ + if (!LJ_FR2) gc_markobj(g, fn); /* Need to mark hidden function (or L). */ } top++; /* Correct bias of -1 (frame == base-1). */ if (top > tvref(th->maxstack)) top = tvref(th->maxstack); @@ -283,7 +284,7 @@ static MSize gc_traverse_frames(global_State *g, lua_State *th) static void gc_traverse_thread(global_State *g, lua_State *th) { TValue *o, *top = th->top; - for (o = tvref(th->stack)+1; o < top; o++) + for (o = tvref(th->stack)+1+LJ_FR2; o < top; o++) gc_marktv(g, o); if (g->gc.state == GCSatomic) { top = tvref(th->stack) + th->stacksize; @@ -348,15 +349,6 @@ static size_t gc_propagate_gray(global_State *g) /* -- Sweep phase --------------------------------------------------------- */ -/* Try to shrink some common data structures. */ -static void gc_shrink(global_State *g, lua_State *L) -{ - if (g->strnum <= (g->strmask >> 2) && g->strmask > LJ_MIN_STRTAB*2-1) - lj_str_resize(L, g->strmask >> 1); /* Shrink string table. */ - if (g->tmpbuf.sz > LJ_MIN_SBUF*2) - lj_str_resizebuf(L, &g->tmpbuf, g->tmpbuf.sz >> 1); /* Shrink temp buf. */ -} - /* Type of GC free functions. */ typedef void (LJ_FASTCALL *GCFreeFunc)(global_State *g, GCobj *o); @@ -382,7 +374,7 @@ static const GCFreeFunc gc_freefunc[] = { }; /* Full sweep of a GC list. */ -#define gc_fullsweep(g, p) gc_sweep(g, (p), LJ_MAX_MEM) +#define gc_fullsweep(g, p) gc_sweep(g, (p), ~(uint32_t)0) /* Partial sweep of a GC list. */ static GCRef *gc_sweep(global_State *g, GCRef *p, uint32_t lim) @@ -460,17 +452,18 @@ static void gc_call_finalizer(global_State *g, lua_State *L, { /* Save and restore lots of state around the __gc callback. */ uint8_t oldh = hook_save(g); - MSize oldt = g->gc.threshold; + GCSize oldt = g->gc.threshold; int errcode; TValue *top; lj_trace_abort(g); - top = L->top; - L->top = top+2; hook_entergc(g); /* Disable hooks and new traces during __gc. */ g->gc.threshold = LJ_MAX_MEM; /* Prevent GC steps. */ - copyTV(L, top, mo); - setgcV(L, top+1, o, ~o->gch.gct); - errcode = lj_vm_pcall(L, top+1, 1+0, -1); /* Stack: |mo|o| -> | */ + top = L->top; + copyTV(L, top++, mo); + if (LJ_FR2) setnilV(top++); + setgcV(L, top, o, ~o->gch.gct); + L->top = top+1; + errcode = lj_vm_pcall(L, top, 1+0, -1); /* Stack: |mo|o| -> | */ hook_restore(g, oldh); g->gc.threshold = oldt; /* Restore GC threshold. */ if (errcode) @@ -483,7 +476,7 @@ static void gc_finalize(lua_State *L) global_State *g = G(L); GCobj *o = gcnext(gcref(g->gc.mmudata)); cTValue *mo; - lua_assert(gcref(g->jit_L) == NULL); /* Must not be called on trace. */ + lua_assert(tvref(g->jit_base) == NULL); /* Must not be called on trace. */ /* Unchain from list of userdata to be finalized. */ if (o == gcref(g->gc.mmudata)) setgcrefnull(g->gc.mmudata); @@ -592,11 +585,13 @@ static void atomic(global_State *g, lua_State *L) /* All marking done, clear weak tables. */ gc_clearweak(gcref(g->gc.weak)); + lj_buf_shrink(L, &g->tmpbuf); /* Shrink temp buffer. */ + /* Prepare for sweep phase. */ g->gc.currentwhite = (uint8_t)otherwhite(g); /* Flip current white. */ g->strempty.marked = g->gc.currentwhite; setmref(g->gc.sweep, &g->gc.root); - g->gc.estimate = g->gc.total - (MSize)udsize; /* Initial estimate. */ + g->gc.estimate = g->gc.total - (GCSize)udsize; /* Initial estimate. */ } /* GC state machine. Returns a cost estimate for each step performed. */ @@ -613,14 +608,14 @@ static size_t gc_onestep(lua_State *L) g->gc.state = GCSatomic; /* End of mark phase. */ return 0; case GCSatomic: - if (gcref(g->jit_L)) /* Don't run atomic phase on trace. */ + if (tvref(g->jit_base)) /* Don't run atomic phase on trace. */ return LJ_MAX_MEM; atomic(g, L); g->gc.state = GCSsweepstring; /* Start of sweep phase. */ g->gc.sweepstr = 0; return 0; case GCSsweepstring: { - MSize old = g->gc.total; + GCSize old = g->gc.total; gc_fullsweep(g, &g->strhash[g->gc.sweepstr++]); /* Sweep one chain. */ if (g->gc.sweepstr > g->strmask) g->gc.state = GCSsweep; /* All string hash chains sweeped. */ @@ -629,12 +624,13 @@ static size_t gc_onestep(lua_State *L) return GCSWEEPCOST; } case GCSsweep: { - MSize old = g->gc.total; + GCSize old = g->gc.total; setmref(g->gc.sweep, gc_sweep(g, mref(g->gc.sweep, GCRef), GCSWEEPMAX)); lua_assert(old >= g->gc.total); g->gc.estimate -= old - g->gc.total; if (gcref(*mref(g->gc.sweep, GCRef)) == NULL) { - gc_shrink(g, L); + if (g->strnum <= (g->strmask >> 2) && g->strmask > LJ_MIN_STRTAB*2-1) + lj_str_resize(L, g->strmask >> 1); /* Shrink string table. */ if (gcref(g->gc.mmudata)) { /* Need any finalizations? */ g->gc.state = GCSfinalize; #if LJ_HASFFI @@ -649,7 +645,7 @@ static size_t gc_onestep(lua_State *L) } case GCSfinalize: if (gcref(g->gc.mmudata) != NULL) { - if (gcref(g->jit_L)) /* Don't call finalizers on trace. */ + if (tvref(g->jit_base)) /* Don't call finalizers on trace. */ return LJ_MAX_MEM; gc_finalize(L); /* Finalize one userdata object. */ if (g->gc.estimate > GCFINALIZECOST) @@ -672,7 +668,7 @@ static size_t gc_onestep(lua_State *L) int LJ_FASTCALL lj_gc_step(lua_State *L) { global_State *g = G(L); - MSize lim; + GCSize lim; int32_t ostate = g->vmstate; setvmstate(g, GC); lim = (GCSTEPSIZE/100) * g->gc.stepmul; @@ -681,13 +677,13 @@ int LJ_FASTCALL lj_gc_step(lua_State *L) if (g->gc.total > g->gc.threshold) g->gc.debt += g->gc.total - g->gc.threshold; do { - lim -= (MSize)gc_onestep(L); + lim -= (GCSize)gc_onestep(L); if (g->gc.state == GCSpause) { g->gc.threshold = (g->gc.estimate/100) * g->gc.pause; g->vmstate = ostate; return 1; /* Finished a GC cycle. */ } - } while ((int32_t)lim > 0); + } while (sizeof(lim) == 8 ? ((int64_t)lim > 0) : ((int32_t)lim > 0)); if (g->gc.debt < GCSTEPSIZE) { g->gc.threshold = g->gc.total + GCSTEPSIZE; g->vmstate = ostate; @@ -711,8 +707,8 @@ void LJ_FASTCALL lj_gc_step_fixtop(lua_State *L) /* Perform multiple GC steps. Called from JIT-compiled code. */ int LJ_FASTCALL lj_gc_step_jit(global_State *g, MSize steps) { - lua_State *L = gco2th(gcref(g->jit_L)); - L->base = mref(G(L)->jit_base, TValue); + lua_State *L = gco2th(gcref(g->cur_L)); + L->base = tvref(G(L)->jit_base); L->top = curr_topL(L); while (steps-- > 0 && lj_gc_step(L) == 0) ; @@ -806,7 +802,7 @@ void lj_gc_barriertrace(global_State *g, uint32_t traceno) /* -- Allocator ----------------------------------------------------------- */ /* Call pluggable memory allocator to allocate or resize a fragment. */ -void *lj_mem_realloc(lua_State *L, void *p, MSize osz, MSize nsz) +void *lj_mem_realloc(lua_State *L, void *p, GCSize osz, GCSize nsz) { global_State *g = G(L); lua_assert((osz == 0) == (p == NULL)); @@ -814,19 +810,19 @@ void *lj_mem_realloc(lua_State *L, void *p, MSize osz, MSize nsz) if (p == NULL && nsz > 0) lj_err_mem(L); lua_assert((nsz == 0) == (p == NULL)); - lua_assert(checkptr32(p)); + lua_assert(checkptrGC(p)); g->gc.total = (g->gc.total - osz) + nsz; return p; } /* Allocate new GC object and link it to the root set. */ -void * LJ_FASTCALL lj_mem_newgco(lua_State *L, MSize size) +void * LJ_FASTCALL lj_mem_newgco(lua_State *L, GCSize size) { global_State *g = G(L); GCobj *o = (GCobj *)g->allocf(g->allocd, NULL, 0, size); if (o == NULL) lj_err_mem(L); - lua_assert(checkptr32(o)); + lua_assert(checkptrGC(o)); g->gc.total += size; setgcrefr(o->gch.nextgc, g->gc.root); setgcref(g->gc.root, o); diff --git a/src/3rd party/luajit-2.0/src/lj_gc.h b/src/3rd party/luajit-2.0/src/lj_gc.h index ba061bc5d9b..847eb7835d9 100644 --- a/src/3rd party/luajit-2.0/src/lj_gc.h +++ b/src/3rd party/luajit-2.0/src/lj_gc.h @@ -107,8 +107,8 @@ static LJ_AINLINE void lj_gc_barrierback(global_State *g, GCtab *t) lj_gc_barrierf(G(L), obj2gco(p), obj2gco(o)); } /* Allocator. */ -LJ_FUNC void *lj_mem_realloc(lua_State *L, void *p, MSize osz, MSize nsz); -LJ_FUNC void * LJ_FASTCALL lj_mem_newgco(lua_State *L, MSize size); +LJ_FUNC void *lj_mem_realloc(lua_State *L, void *p, GCSize osz, GCSize nsz); +LJ_FUNC void * LJ_FASTCALL lj_mem_newgco(lua_State *L, GCSize size); LJ_FUNC void *lj_mem_grow(lua_State *L, void *p, MSize *szp, MSize lim, MSize esz); @@ -116,13 +116,13 @@ LJ_FUNC void *lj_mem_grow(lua_State *L, void *p, static LJ_AINLINE void lj_mem_free(global_State *g, void *p, size_t osize) { - g->gc.total -= (MSize)osize; + g->gc.total -= (GCSize)osize; g->allocf(g->allocd, p, osize, 0); } -#define lj_mem_newvec(L, n, t) ((t *)lj_mem_new(L, (MSize)((n)*sizeof(t)))) +#define lj_mem_newvec(L, n, t) ((t *)lj_mem_new(L, (GCSize)((n)*sizeof(t)))) #define lj_mem_reallocvec(L, p, on, n, t) \ - ((p) = (t *)lj_mem_realloc(L, p, (on)*sizeof(t), (MSize)((n)*sizeof(t)))) + ((p) = (t *)lj_mem_realloc(L, p, (on)*sizeof(t), (GCSize)((n)*sizeof(t)))) #define lj_mem_growvec(L, p, n, m, t) \ ((p) = (t *)lj_mem_grow(L, (p), &(n), (m), (MSize)sizeof(t))) #define lj_mem_freevec(g, p, n, t) lj_mem_free(g, (p), (n)*sizeof(t)) diff --git a/src/3rd party/luajit-2.0/src/lj_gdbjit.c b/src/3rd party/luajit-2.0/src/lj_gdbjit.c index d3f3e6119b3..c289cd8ef8a 100644 --- a/src/3rd party/luajit-2.0/src/lj_gdbjit.c +++ b/src/3rd party/luajit-2.0/src/lj_gdbjit.c @@ -14,6 +14,8 @@ #include "lj_err.h" #include "lj_debug.h" #include "lj_frame.h" +#include "lj_buf.h" +#include "lj_strfmt.h" #include "lj_jit.h" #include "lj_dispatch.h" @@ -428,16 +430,6 @@ static void gdbjit_catnum(GDBJITctx *ctx, uint32_t n) *ctx->p++ = '0' + n; } -/* Add a ULEB128 value. */ -static void gdbjit_uleb128(GDBJITctx *ctx, uint32_t v) -{ - uint8_t *p = ctx->p; - for (; v >= 0x80; v >>= 7) - *p++ = (uint8_t)((v & 0x7f) | 0x80); - *p++ = (uint8_t)v; - ctx->p = p; -} - /* Add a SLEB128 value. */ static void gdbjit_sleb128(GDBJITctx *ctx, int32_t v) { @@ -454,7 +446,7 @@ static void gdbjit_sleb128(GDBJITctx *ctx, int32_t v) #define DU16(x) (*(uint16_t *)p = (x), p += 2) #define DU32(x) (*(uint32_t *)p = (x), p += 4) #define DADDR(x) (*(uintptr_t *)p = (x), p += sizeof(uintptr_t)) -#define DUV(x) (ctx->p = p, gdbjit_uleb128(ctx, (x)), p = ctx->p) +#define DUV(x) (p = (uint8_t *)lj_strfmt_wuleb128((char *)p, (x))) #define DSV(x) (ctx->p = p, gdbjit_sleb128(ctx, (x)), p = ctx->p) #define DSTR(str) (ctx->p = p, gdbjit_strz(ctx, (str)), p = ctx->p) #define DALIGNNOP(s) while ((uintptr_t)p & ((s)-1)) *p++ = DW_CFA_nop diff --git a/src/3rd party/luajit-2.0/src/lj_ir.c b/src/3rd party/luajit-2.0/src/lj_ir.c index 439f3fc3456..9682e05e577 100644 --- a/src/3rd party/luajit-2.0/src/lj_ir.c +++ b/src/3rd party/luajit-2.0/src/lj_ir.c @@ -15,6 +15,7 @@ #if LJ_HASJIT #include "lj_gc.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_ir.h" @@ -29,6 +30,7 @@ #endif #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" #include "lj_lib.h" /* Some local macros to save typing. Undef'd at the end. */ @@ -251,7 +253,7 @@ TRef lj_ir_k64(jit_State *J, IROp op, cTValue *tv) goto found; ref = ir_nextk(J); ir = IR(ref); - lua_assert(checkptr32(tv)); + lua_assert(checkptrGC(tv)); setmref(ir->ptr, tv); ir->t.irt = t; ir->o = op; @@ -305,6 +307,7 @@ TRef lj_ir_kgc(jit_State *J, GCobj *o, IRType t) { IRIns *ir, *cir = J->cur.ir; IRRef ref; + lua_assert(!LJ_GC64); /* TODO_GC64: major changes required. */ lua_assert(!isdead(J2G(J), o)); for (ref = J->chain[IR_KGC]; ref; ref = cir[ref].prev) if (ir_kgc(&cir[ref]) == o) @@ -390,7 +393,7 @@ void lj_ir_kvalue(lua_State *L, TValue *tv, const IRIns *ir) UNUSED(L); lua_assert(ir->o != IR_KSLOT); /* Common mistake. */ switch (ir->o) { - case IR_KPRI: setitype(tv, irt_toitype(ir->t)); break; + case IR_KPRI: setpriV(tv, irt_toitype(ir->t)); break; case IR_KINT: setintV(tv, ir->i); break; case IR_KGC: setgcV(L, tv, ir_kgc(ir), irt_toitype(ir->t)); break; case IR_KPTR: case IR_KKPTR: case IR_KNULL: @@ -443,7 +446,8 @@ TRef LJ_FASTCALL lj_ir_tostr(jit_State *J, TRef tr) if (!tref_isstr(tr)) { if (!tref_isnumber(tr)) lj_trace_err(J, LJ_TRERR_BADTYPE); - tr = emitir(IRT(IR_TOSTR, IRT_STR), tr, 0); + tr = emitir(IRT(IR_TOSTR, IRT_STR), tr, + tref_isnum(tr) ? IRTOSTR_NUM : IRTOSTR_INT); } return tr; } diff --git a/src/3rd party/luajit-2.0/src/lj_ir.h b/src/3rd party/luajit-2.0/src/lj_ir.h index 8126482e849..56e19774c97 100644 --- a/src/3rd party/luajit-2.0/src/lj_ir.h +++ b/src/3rd party/luajit-2.0/src/lj_ir.h @@ -40,6 +40,7 @@ _(USE, S , ref, ___) \ _(PHI, S , ref, ref) \ _(RENAME, S , ref, lit) \ + _(PROF, S , ___, ___) \ \ /* Constants. */ \ _(KPRI, N , ___, ___) \ @@ -96,6 +97,7 @@ _(UREFC, LW, ref, lit) \ _(FREF, R , ref, lit) \ _(STRREF, N , ref, ref) \ + _(LREF, L , ___, ___) \ \ /* Loads and Stores. These must be in the same order. */ \ _(ALOAD, L , ref, ___) \ @@ -120,6 +122,11 @@ _(CNEW, AW, ref, ref) \ _(CNEWI, NW, ref, ref) /* CSE is ok, not marked as A. */ \ \ + /* Buffer operations. */ \ + _(BUFHDR, L , ref, lit) \ + _(BUFPUT, L , ref, ref) \ + _(BUFSTR, A , ref, ref) \ + \ /* Barriers. */ \ _(TBAR, S , ref, ___) \ _(OBAR, S , ref, ref) \ @@ -128,11 +135,12 @@ /* Type conversions. */ \ _(CONV, NW, ref, lit) \ _(TOBIT, N , ref, ref) \ - _(TOSTR, N , ref, ___) \ + _(TOSTR, N , ref, lit) \ _(STRTO, N , ref, ___) \ \ /* Calls. */ \ _(CALLN, N , ref, lit) \ + _(CALLA, A , ref, lit) \ _(CALLL, L , ref, lit) \ _(CALLS, S , ref, lit) \ _(CALLXS, S , ref, ref) \ @@ -186,6 +194,8 @@ IRFPMDEF(FPMENUM) _(STR_LEN, offsetof(GCstr, len)) \ _(FUNC_ENV, offsetof(GCfunc, l.env)) \ _(FUNC_PC, offsetof(GCfunc, l.pc)) \ + _(FUNC_FFID, offsetof(GCfunc, l.ffid)) \ + _(THREAD_ENV, offsetof(lua_State, env)) \ _(TAB_META, offsetof(GCtab, metatable)) \ _(TAB_ARRAY, offsetof(GCtab, array)) \ _(TAB_NODE, offsetof(GCtab, node)) \ @@ -221,13 +231,16 @@ IRFLDEF(FLENUM) #define IRXLOAD_VOLATILE 2 /* Load from volatile data. */ #define IRXLOAD_UNALIGNED 4 /* Unaligned load. */ +/* BUFHDR mode, stored in op2. */ +#define IRBUFHDR_RESET 0 /* Reset buffer. */ +#define IRBUFHDR_APPEND 1 /* Append to buffer. */ + /* CONV mode, stored in op2. */ #define IRCONV_SRCMASK 0x001f /* Source IRType. */ #define IRCONV_DSTMASK 0x03e0 /* Dest. IRType (also in ir->t). */ #define IRCONV_DSH 5 #define IRCONV_NUM_INT ((IRT_NUM<o == IR_KGC, gcref((ir)->gcr)) #define ir_kstr(ir) (gco2str(ir_kgc((ir)))) #define ir_ktab(ir) (gco2tab(ir_kgc((ir)))) diff --git a/src/3rd party/luajit-2.0/src/lj_ircall.h b/src/3rd party/luajit-2.0/src/lj_ircall.h index 893dac2f81c..84e41ecfccb 100644 --- a/src/3rd party/luajit-2.0/src/lj_ircall.h +++ b/src/3rd party/luajit-2.0/src/lj_ircall.h @@ -16,7 +16,7 @@ typedef struct CCallInfo { uint32_t flags; /* Number of arguments and flags. */ } CCallInfo; -#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* Extract # of args. */ +#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* # of args. */ #define CCI_NARGS_MAX 32 /* Max. # of args. */ #define CCI_OTSHIFT 16 @@ -25,6 +25,7 @@ typedef struct CCallInfo { #define CCI_OP(ci) ((ci)->flags >> CCI_OPSHIFT) /* Get op. */ #define CCI_CALL_N (IR_CALLN << CCI_OPSHIFT) +#define CCI_CALL_A (IR_CALLA << CCI_OPSHIFT) #define CCI_CALL_L (IR_CALLL << CCI_OPSHIFT) #define CCI_CALL_S (IR_CALLS << CCI_OPSHIFT) #define CCI_CALL_FN (CCI_CALL_N|CCI_CC_FASTCALL) @@ -45,6 +46,17 @@ typedef struct CCallInfo { #define CCI_CC_FASTCALL 0x2000 /* Fastcall calling convention. */ #define CCI_CC_STDCALL 0x3000 /* Stdcall calling convention. */ +/* Extra args for SOFTFP, SPLIT 64 bit. */ +#define CCI_XARGS_SHIFT 14 +#define CCI_XARGS(ci) (((ci)->flags >> CCI_XARGS_SHIFT) & 3) +#define CCI_XA (1u << CCI_XARGS_SHIFT) + +#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) +#define CCI_XNARGS(ci) (CCI_NARGS((ci)) + CCI_XARGS((ci))) +#else +#define CCI_XNARGS(ci) CCI_NARGS((ci)) +#endif + /* Helpers for conditional function definitions. */ #define IRCALLCOND_ANY(x) x @@ -93,26 +105,52 @@ typedef struct CCallInfo { #endif #if LJ_SOFTFP -#define ARG1_FP 2 /* Treat as 2 32 bit arguments. */ +#define XA_FP CCI_XA +#define XA2_FP (CCI_XA+CCI_XA) #else -#define ARG1_FP 1 +#define XA_FP 0 +#define XA2_FP 0 #endif #if LJ_32 -#define ARG2_64 4 /* Treat as 4 32 bit arguments. */ +#define XA_64 CCI_XA +#define XA2_64 (CCI_XA+CCI_XA) #else -#define ARG2_64 2 +#define XA_64 0 +#define XA2_64 0 #endif /* Function definitions for CALL* instructions. */ #define IRCALLDEF(_) \ _(ANY, lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \ + _(ANY, lj_str_find, 4, N, P32, 0) \ _(ANY, lj_str_new, 3, S, STR, CCI_L) \ _(ANY, lj_strscan_num, 2, FN, INT, 0) \ - _(ANY, lj_str_fromint, 2, FN, STR, CCI_L) \ - _(ANY, lj_str_fromnum, 2, FN, STR, CCI_L) \ + _(ANY, lj_strfmt_int, 2, FN, STR, CCI_L) \ + _(ANY, lj_strfmt_num, 2, FN, STR, CCI_L) \ + _(ANY, lj_strfmt_char, 2, FN, STR, CCI_L) \ + _(ANY, lj_strfmt_putint, 2, FL, P32, 0) \ + _(ANY, lj_strfmt_putnum, 2, FL, P32, 0) \ + _(ANY, lj_strfmt_putquoted, 2, FL, P32, 0) \ + _(ANY, lj_strfmt_putfxint, 3, L, P32, XA_64) \ + _(ANY, lj_strfmt_putfnum_int, 3, L, P32, XA_FP) \ + _(ANY, lj_strfmt_putfnum_uint, 3, L, P32, XA_FP) \ + _(ANY, lj_strfmt_putfnum, 3, L, P32, XA_FP) \ + _(ANY, lj_strfmt_putfstr, 3, L, P32, 0) \ + _(ANY, lj_strfmt_putfchar, 3, L, P32, 0) \ + _(ANY, lj_buf_putmem, 3, S, P32, 0) \ + _(ANY, lj_buf_putstr, 2, FL, P32, 0) \ + _(ANY, lj_buf_putchar, 2, FL, P32, 0) \ + _(ANY, lj_buf_putstr_reverse, 2, FL, P32, 0) \ + _(ANY, lj_buf_putstr_lower, 2, FL, P32, 0) \ + _(ANY, lj_buf_putstr_upper, 2, FL, P32, 0) \ + _(ANY, lj_buf_putstr_rep, 3, L, P32, 0) \ + _(ANY, lj_buf_puttab, 5, L, P32, 0) \ + _(ANY, lj_buf_tostr, 1, FL, STR, 0) \ + _(ANY, lj_tab_new_ah, 3, A, TAB, CCI_L) \ _(ANY, lj_tab_new1, 2, FS, TAB, CCI_L) \ _(ANY, lj_tab_dup, 2, FS, TAB, CCI_L) \ + _(ANY, lj_tab_clear, 1, FS, NIL, 0) \ _(ANY, lj_tab_newkey, 3, S, P32, CCI_L) \ _(ANY, lj_tab_len, 1, FL, INT, 0) \ _(ANY, lj_gc_step_jit, 2, FS, NIL, CCI_L) \ @@ -120,29 +158,29 @@ typedef struct CCallInfo { _(ANY, lj_mem_newgco, 2, FS, P32, CCI_L) \ _(ANY, lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_RANDFPR)\ _(ANY, lj_vm_modi, 2, FN, INT, 0) \ - _(ANY, sinh, ARG1_FP, N, NUM, 0) \ - _(ANY, cosh, ARG1_FP, N, NUM, 0) \ - _(ANY, tanh, ARG1_FP, N, NUM, 0) \ - _(ANY, fputc, 2, S, INT, 0) \ - _(ANY, fwrite, 4, S, INT, 0) \ - _(ANY, fflush, 1, S, INT, 0) \ + _(ANY, sinh, 1, N, NUM, XA_FP) \ + _(ANY, cosh, 1, N, NUM, XA_FP) \ + _(ANY, tanh, 1, N, NUM, XA_FP) \ + _(ANY, fputc, 2, S, INT, 0) \ + _(ANY, fwrite, 4, S, INT, 0) \ + _(ANY, fflush, 1, S, INT, 0) \ /* ORDER FPM */ \ - _(FPMATH, lj_vm_floor, ARG1_FP, N, NUM, 0) \ - _(FPMATH, lj_vm_ceil, ARG1_FP, N, NUM, 0) \ - _(FPMATH, lj_vm_trunc, ARG1_FP, N, NUM, 0) \ - _(FPMATH, sqrt, ARG1_FP, N, NUM, 0) \ - _(FPMATH, exp, ARG1_FP, N, NUM, 0) \ - _(FPMATH, lj_vm_exp2, ARG1_FP, N, NUM, 0) \ - _(FPMATH, log, ARG1_FP, N, NUM, 0) \ - _(FPMATH, lj_vm_log2, ARG1_FP, N, NUM, 0) \ - _(FPMATH, log10, ARG1_FP, N, NUM, 0) \ - _(FPMATH, sin, ARG1_FP, N, NUM, 0) \ - _(FPMATH, cos, ARG1_FP, N, NUM, 0) \ - _(FPMATH, tan, ARG1_FP, N, NUM, 0) \ - _(FPMATH, lj_vm_powi, ARG1_FP+1, N, NUM, 0) \ - _(FPMATH, pow, ARG1_FP*2, N, NUM, 0) \ - _(FPMATH, atan2, ARG1_FP*2, N, NUM, 0) \ - _(FPMATH, ldexp, ARG1_FP+1, N, NUM, 0) \ + _(FPMATH, lj_vm_floor, 1, N, NUM, XA_FP) \ + _(FPMATH, lj_vm_ceil, 1, N, NUM, XA_FP) \ + _(FPMATH, lj_vm_trunc, 1, N, NUM, XA_FP) \ + _(FPMATH, sqrt, 1, N, NUM, XA_FP) \ + _(ANY, exp, 1, N, NUM, XA_FP) \ + _(ANY, lj_vm_exp2, 1, N, NUM, XA_FP) \ + _(ANY, log, 1, N, NUM, XA_FP) \ + _(ANY, lj_vm_log2, 1, N, NUM, XA_FP) \ + _(ANY, log10, 1, N, NUM, XA_FP) \ + _(ANY, sin, 1, N, NUM, XA_FP) \ + _(ANY, cos, 1, N, NUM, XA_FP) \ + _(ANY, tan, 1, N, NUM, XA_FP) \ + _(ANY, lj_vm_powi, 2, N, NUM, XA_FP) \ + _(ANY, pow, 2, N, NUM, XA2_FP) \ + _(ANY, atan2, 2, N, NUM, XA2_FP) \ + _(ANY, ldexp, 2, N, NUM, XA_FP) \ _(SOFTFP, lj_vm_tobit, 2, N, INT, 0) \ _(SOFTFP, softfp_add, 4, N, NUM, 0) \ _(SOFTFP, softfp_sub, 4, N, NUM, 0) \ @@ -159,26 +197,32 @@ typedef struct CCallInfo { _(SOFTFP_FFI, softfp_ui2f, 1, N, FLOAT, 0) \ _(SOFTFP_FFI, softfp_f2i, 1, N, INT, 0) \ _(SOFTFP_FFI, softfp_f2ui, 1, N, INT, 0) \ - _(FP64_FFI, fp64_l2d, 2, N, NUM, 0) \ - _(FP64_FFI, fp64_ul2d, 2, N, NUM, 0) \ - _(FP64_FFI, fp64_l2f, 2, N, FLOAT, 0) \ - _(FP64_FFI, fp64_ul2f, 2, N, FLOAT, 0) \ - _(FP64_FFI, fp64_d2l, ARG1_FP, N, I64, 0) \ - _(FP64_FFI, fp64_d2ul, ARG1_FP, N, U64, 0) \ + _(FP64_FFI, fp64_l2d, 1, N, NUM, XA_64) \ + _(FP64_FFI, fp64_ul2d, 1, N, NUM, XA_64) \ + _(FP64_FFI, fp64_l2f, 1, N, FLOAT, XA_64) \ + _(FP64_FFI, fp64_ul2f, 1, N, FLOAT, XA_64) \ + _(FP64_FFI, fp64_d2l, 1, N, I64, XA_FP) \ + _(FP64_FFI, fp64_d2ul, 1, N, U64, XA_FP) \ _(FP64_FFI, fp64_f2l, 1, N, I64, 0) \ _(FP64_FFI, fp64_f2ul, 1, N, U64, 0) \ - _(FFI, lj_carith_divi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_divu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_modi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_modu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_powi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_powu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ - _(FFI, lj_cdata_setfin, 2, FN, P32, CCI_L) \ - _(FFI, strlen, 1, L, INTP, 0) \ - _(FFI, memcpy, 3, S, PTR, 0) \ - _(FFI, memset, 3, S, PTR, 0) \ - _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_mul64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) + _(FFI, lj_carith_divi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_divu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_modi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_modu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_powi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_carith_powu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI, lj_cdata_newv, 4, S, CDATA, CCI_L) \ + _(FFI, lj_cdata_setfin, 4, S, NIL, CCI_L) \ + _(FFI, strlen, 1, L, INTP, 0) \ + _(FFI, memcpy, 3, S, PTR, 0) \ + _(FFI, memset, 3, S, PTR, 0) \ + _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_mul64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_shl64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_shr64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_sar64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_rol64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ + _(FFI32, lj_carith_ror64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ \ /* End of list. */ diff --git a/src/3rd party/luajit-2.0/src/lj_jit.h b/src/3rd party/luajit-2.0/src/lj_jit.h index eb7654770bc..4b51baeb614 100644 --- a/src/3rd party/luajit-2.0/src/lj_jit.h +++ b/src/3rd party/luajit-2.0/src/lj_jit.h @@ -14,18 +14,15 @@ /* CPU-specific JIT engine flags. */ #if LJ_TARGET_X86ORX64 -#define JIT_F_CMOV 0x00000010 -#define JIT_F_SSE2 0x00000020 -#define JIT_F_SSE3 0x00000040 -#define JIT_F_SSE4_1 0x00000080 -#define JIT_F_P4 0x00000100 -#define JIT_F_PREFER_IMUL 0x00000200 -#define JIT_F_SPLIT_XMM 0x00000400 -#define JIT_F_LEA_AGU 0x00000800 +#define JIT_F_SSE2 0x00000010 +#define JIT_F_SSE3 0x00000020 +#define JIT_F_SSE4_1 0x00000040 +#define JIT_F_PREFER_IMUL 0x00000080 +#define JIT_F_LEA_AGU 0x00000100 /* Names for the CPU-specific flags. Must match the order above. */ -#define JIT_F_CPU_FIRST JIT_F_CMOV -#define JIT_F_CPUSTRING "\4CMOV\4SSE2\4SSE3\6SSE4.1\2P4\3AMD\2K8\4ATOM" +#define JIT_F_CPU_FIRST JIT_F_SSE2 +#define JIT_F_CPUSTRING "\4SSE2\4SSE3\6SSE4.1\3AMD\4ATOM" #elif LJ_TARGET_ARM #define JIT_F_ARMV6_ 0x00000010 #define JIT_F_ARMV6T2_ 0x00000020 @@ -100,6 +97,7 @@ _(\012, maxirconst, 500) /* Max. # of IR constants of a trace. */ \ _(\007, maxside, 100) /* Max. # of side traces of a root trace. */ \ _(\007, maxsnap, 500) /* Max. # of snapshots for a trace. */ \ + _(\011, minstitch, 0) /* Min. # of IR ins for a stitched trace. */ \ \ _(\007, hotloop, 56) /* # of iter. to detect a hot loop/call. */ \ _(\007, hotexit, 10) /* # of taken exits to start a side trace. */ \ @@ -205,7 +203,8 @@ typedef enum { LJ_TRLINK_UPREC, /* Up-recursion. */ LJ_TRLINK_DOWNREC, /* Down-recursion. */ LJ_TRLINK_INTERP, /* Fallback to interpreter. */ - LJ_TRLINK_RETURN /* Return to interpreter. */ + LJ_TRLINK_RETURN, /* Return to interpreter. */ + LJ_TRLINK_STITCH /* Trace stitching. */ } TraceLink; /* Trace object. */ @@ -214,6 +213,9 @@ typedef struct GCtrace { uint8_t topslot; /* Top stack slot already checked to be allocated. */ uint8_t linktype; /* Type of link. */ IRRef nins; /* Next IR instruction. Biased with REF_BIAS. */ +#if LJ_GC64 + uint32_t unused_gc64; +#endif GCRef gclist; IRIns *ir; /* IR instructions/constants. Biased with REF_BIAS. */ IRRef nk; /* Lowest IR constant. Biased with REF_BIAS. */ @@ -400,6 +402,12 @@ typedef struct jit_State { size_t szallmcarea; /* Total size of all allocated mcode areas. */ TValue errinfo; /* Additional info element for trace errors. */ + +#if LJ_HASPROFILE + GCproto *prev_pt; /* Previous prototype. */ + BCLine prev_line; /* Previous line. */ + int prof_mode; /* Profiling mode: 0, 'f', 'l'. */ +#endif } #if LJ_TARGET_ARM LJ_ALIGN(16) /* For DISPATCH-relative addresses in assembler part. */ diff --git a/src/3rd party/luajit-2.0/src/lj_lex.c b/src/3rd party/luajit-2.0/src/lj_lex.c index 0a360bfcd9c..ad3f1306ade 100644 --- a/src/3rd party/luajit-2.0/src/lj_lex.c +++ b/src/3rd party/luajit-2.0/src/lj_lex.c @@ -12,6 +12,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #if LJ_HASFFI #include "lj_tab.h" @@ -24,6 +25,7 @@ #include "lj_parse.h" #include "lj_char.h" #include "lj_strscan.h" +#include "lj_strfmt.h" /* Lua lexer token names. */ static const char *const tokennames[] = { @@ -37,50 +39,48 @@ TKDEF(TKSTR1, TKSTR2) /* -- Buffer handling ----------------------------------------------------- */ -#define char2int(c) ((int)(uint8_t)(c)) -#define next(ls) \ - (ls->current = (ls->n--) > 0 ? char2int(*ls->p++) : fillbuf(ls)) -#define save_and_next(ls) (save(ls, ls->current), next(ls)) -#define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') -#define END_OF_STREAM (-1) +#define LEX_EOF (-1) +#define lex_iseol(ls) (ls->c == '\n' || ls->c == '\r') -static int fillbuf(LexState *ls) +/* Get more input from reader. */ +static LJ_NOINLINE LexChar lex_more(LexState *ls) { size_t sz; - const char *buf = ls->rfunc(ls->L, ls->rdata, &sz); - if (buf == NULL || sz == 0) return END_OF_STREAM; - ls->n = (MSize)sz - 1; - ls->p = buf; - return char2int(*(ls->p++)); + const char *p = ls->rfunc(ls->L, ls->rdata, &sz); + if (p == NULL || sz == 0) return LEX_EOF; + ls->pe = p + sz; + ls->p = p + 1; + return (LexChar)(uint8_t)p[0]; } -static LJ_NOINLINE void save_grow(LexState *ls, int c) +/* Get next character. */ +static LJ_AINLINE LexChar lex_next(LexState *ls) { - MSize newsize; - if (ls->sb.sz >= LJ_MAX_STR/2) - lj_lex_error(ls, 0, LJ_ERR_XELEM); - newsize = ls->sb.sz * 2; - lj_str_resizebuf(ls->L, &ls->sb, newsize); - ls->sb.buf[ls->sb.n++] = (char)c; + return (ls->c = ls->p < ls->pe ? (LexChar)(uint8_t)*ls->p++ : lex_more(ls)); } -static LJ_AINLINE void save(LexState *ls, int c) +/* Save character. */ +static LJ_AINLINE void lex_save(LexState *ls, LexChar c) { - if (LJ_UNLIKELY(ls->sb.n + 1 > ls->sb.sz)) - save_grow(ls, c); - else - ls->sb.buf[ls->sb.n++] = (char)c; + lj_buf_putb(&ls->sb, c); +} + +/* Save previous character and get next character. */ +static LJ_AINLINE LexChar lex_savenext(LexState *ls) +{ + lex_save(ls, ls->c); + return lex_next(ls); } -static void inclinenumber(LexState *ls) +/* Skip line break. Handles "\n", "\r", "\r\n" or "\n\r". */ +static void lex_newline(LexState *ls) { - int old = ls->current; - lua_assert(currIsNewline(ls)); - next(ls); /* skip `\n' or `\r' */ - if (currIsNewline(ls) && ls->current != old) - next(ls); /* skip `\n\r' or `\r\n' */ + LexChar old = ls->c; + lua_assert(lex_iseol(ls)); + lex_next(ls); /* Skip "\n" or "\r". */ + if (lex_iseol(ls) && ls->c != old) lex_next(ls); /* Skip "\n\r" or "\r\n". */ if (++ls->linenumber >= LJ_MAX_LINE) - lj_lex_error(ls, ls->token, LJ_ERR_XLINES); + lj_lex_error(ls, ls->tok, LJ_ERR_XLINES); } /* -- Scanner for terminals ----------------------------------------------- */ @@ -89,19 +89,17 @@ static void inclinenumber(LexState *ls) static void lex_number(LexState *ls, TValue *tv) { StrScanFmt fmt; - int c, xp = 'e'; - lua_assert(lj_char_isdigit(ls->current)); - if ((c = ls->current) == '0') { - save_and_next(ls); - if ((ls->current | 0x20) == 'x') xp = 'p'; - } - while (lj_char_isident(ls->current) || ls->current == '.' || - ((ls->current == '-' || ls->current == '+') && (c | 0x20) == xp)) { - c = ls->current; - save_and_next(ls); + LexChar c, xp = 'e'; + lua_assert(lj_char_isdigit(ls->c)); + if ((c = ls->c) == '0' && (lex_savenext(ls) | 0x20) == 'x') + xp = 'p'; + while (lj_char_isident(ls->c) || ls->c == '.' || + ((ls->c == '-' || ls->c == '+') && (c | 0x20) == xp)) { + c = ls->c; + lex_savenext(ls); } - save(ls, '\0'); - fmt = lj_strscan_scan((const uint8_t *)ls->sb.buf, tv, + lex_save(ls, '\0'); + fmt = lj_strscan_scan((const uint8_t *)sbufB(&ls->sb), tv, (LJ_DUALNUM ? STRSCAN_OPT_TOINT : STRSCAN_OPT_TONUM) | (LJ_HASFFI ? (STRSCAN_OPT_LL|STRSCAN_OPT_IMAG) : 0)); if (LJ_DUALNUM && fmt == STRSCAN_INT) { @@ -134,60 +132,60 @@ static void lex_number(LexState *ls, TValue *tv) } } -static int skip_sep(LexState *ls) +/* Skip equal signs for "[=...=[" and "]=...=]" and return their count. */ +static int lex_skipeq(LexState *ls) { int count = 0; - int s = ls->current; + LexChar s = ls->c; lua_assert(s == '[' || s == ']'); - save_and_next(ls); - while (ls->current == '=') { - save_and_next(ls); + while (lex_savenext(ls) == '=') count++; - } - return (ls->current == s) ? count : (-count) - 1; + return (ls->c == s) ? count : (-count) - 1; } -static void read_long_string(LexState *ls, TValue *tv, int sep) +/* Parse a long string or long comment (tv set to NULL). */ +static void lex_longstring(LexState *ls, TValue *tv, int sep) { - save_and_next(ls); /* skip 2nd `[' */ - if (currIsNewline(ls)) /* string starts with a newline? */ - inclinenumber(ls); /* skip it */ + lex_savenext(ls); /* Skip second '['. */ + if (lex_iseol(ls)) /* Skip initial newline. */ + lex_newline(ls); for (;;) { - switch (ls->current) { - case END_OF_STREAM: + switch (ls->c) { + case LEX_EOF: lj_lex_error(ls, TK_eof, tv ? LJ_ERR_XLSTR : LJ_ERR_XLCOM); break; case ']': - if (skip_sep(ls) == sep) { - save_and_next(ls); /* skip 2nd `]' */ + if (lex_skipeq(ls) == sep) { + lex_savenext(ls); /* Skip second ']'. */ goto endloop; } break; case '\n': case '\r': - save(ls, '\n'); - inclinenumber(ls); - if (!tv) lj_str_resetbuf(&ls->sb); /* avoid wasting space */ + lex_save(ls, '\n'); + lex_newline(ls); + if (!tv) lj_buf_reset(&ls->sb); /* Don't waste space for comments. */ break; default: - if (tv) save_and_next(ls); - else next(ls); + lex_savenext(ls); break; } } endloop: if (tv) { - GCstr *str = lj_parse_keepstr(ls, ls->sb.buf + (2 + (MSize)sep), - ls->sb.n - 2*(2 + (MSize)sep)); + GCstr *str = lj_parse_keepstr(ls, sbufB(&ls->sb) + (2 + (MSize)sep), + sbuflen(&ls->sb) - 2*(2 + (MSize)sep)); setstrV(ls->L, tv, str); } } -static void read_string(LexState *ls, int delim, TValue *tv) +/* Parse a string. */ +static void lex_string(LexState *ls, TValue *tv) { - save_and_next(ls); - while (ls->current != delim) { - switch (ls->current) { - case END_OF_STREAM: + LexChar delim = ls->c; /* Delimiter is '\'' or '"'. */ + lex_savenext(ls); + while (ls->c != delim) { + switch (ls->c) { + case LEX_EOF: lj_lex_error(ls, TK_eof, LJ_ERR_XSTR); continue; case '\n': @@ -195,7 +193,7 @@ static void read_string(LexState *ls, int delim, TValue *tv) lj_lex_error(ls, TK_string, LJ_ERR_XSTR); continue; case '\\': { - int c = next(ls); /* Skip the '\\'. */ + LexChar c = lex_next(ls); /* Skip the '\\'. */ switch (c) { case 'a': c = '\a'; break; case 'b': c = '\b'; break; @@ -205,111 +203,112 @@ static void read_string(LexState *ls, int delim, TValue *tv) case 't': c = '\t'; break; case 'v': c = '\v'; break; case 'x': /* Hexadecimal escape '\xXX'. */ - c = (next(ls) & 15u) << 4; - if (!lj_char_isdigit(ls->current)) { - if (!lj_char_isxdigit(ls->current)) goto err_xesc; + c = (lex_next(ls) & 15u) << 4; + if (!lj_char_isdigit(ls->c)) { + if (!lj_char_isxdigit(ls->c)) goto err_xesc; c += 9 << 4; } - c += (next(ls) & 15u); - if (!lj_char_isdigit(ls->current)) { - if (!lj_char_isxdigit(ls->current)) goto err_xesc; + c += (lex_next(ls) & 15u); + if (!lj_char_isdigit(ls->c)) { + if (!lj_char_isxdigit(ls->c)) goto err_xesc; c += 9; } break; case 'z': /* Skip whitespace. */ - next(ls); - while (lj_char_isspace(ls->current)) - if (currIsNewline(ls)) inclinenumber(ls); else next(ls); + lex_next(ls); + while (lj_char_isspace(ls->c)) + if (lex_iseol(ls)) lex_newline(ls); else lex_next(ls); continue; - case '\n': case '\r': save(ls, '\n'); inclinenumber(ls); continue; + case '\n': case '\r': lex_save(ls, '\n'); lex_newline(ls); continue; case '\\': case '\"': case '\'': break; - case END_OF_STREAM: continue; + case LEX_EOF: continue; default: if (!lj_char_isdigit(c)) goto err_xesc; c -= '0'; /* Decimal escape '\ddd'. */ - if (lj_char_isdigit(next(ls))) { - c = c*10 + (ls->current - '0'); - if (lj_char_isdigit(next(ls))) { - c = c*10 + (ls->current - '0'); + if (lj_char_isdigit(lex_next(ls))) { + c = c*10 + (ls->c - '0'); + if (lj_char_isdigit(lex_next(ls))) { + c = c*10 + (ls->c - '0'); if (c > 255) { err_xesc: lj_lex_error(ls, TK_string, LJ_ERR_XESC); } - next(ls); + lex_next(ls); } } - save(ls, c); + lex_save(ls, c); continue; } - save(ls, c); - next(ls); + lex_save(ls, c); + lex_next(ls); continue; } default: - save_and_next(ls); + lex_savenext(ls); break; } } - save_and_next(ls); /* skip delimiter */ - setstrV(ls->L, tv, lj_parse_keepstr(ls, ls->sb.buf + 1, ls->sb.n - 2)); + lex_savenext(ls); /* Skip trailing delimiter. */ + setstrV(ls->L, tv, + lj_parse_keepstr(ls, sbufB(&ls->sb)+1, sbuflen(&ls->sb)-2)); } /* -- Main lexical scanner ------------------------------------------------ */ -static int llex(LexState *ls, TValue *tv) +/* Get next lexical token. */ +static LexToken lex_scan(LexState *ls, TValue *tv) { - lj_str_resetbuf(&ls->sb); + lj_buf_reset(&ls->sb); for (;;) { - if (lj_char_isident(ls->current)) { + if (lj_char_isident(ls->c)) { GCstr *s; - if (lj_char_isdigit(ls->current)) { /* Numeric literal. */ + if (lj_char_isdigit(ls->c)) { /* Numeric literal. */ lex_number(ls, tv); return TK_number; } /* Identifier or reserved word. */ do { - save_and_next(ls); - } while (lj_char_isident(ls->current)); - s = lj_parse_keepstr(ls, ls->sb.buf, ls->sb.n); + lex_savenext(ls); + } while (lj_char_isident(ls->c)); + s = lj_parse_keepstr(ls, sbufB(&ls->sb), sbuflen(&ls->sb)); setstrV(ls->L, tv, s); if (s->reserved > 0) /* Reserved word? */ return TK_OFS + s->reserved; return TK_name; } - switch (ls->current) { + switch (ls->c) { case '\n': case '\r': - inclinenumber(ls); + lex_newline(ls); continue; case ' ': case '\t': case '\v': case '\f': - next(ls); + lex_next(ls); continue; case '-': - next(ls); - if (ls->current != '-') return '-'; - /* else is a comment */ - next(ls); - if (ls->current == '[') { - int sep = skip_sep(ls); - lj_str_resetbuf(&ls->sb); /* `skip_sep' may dirty the buffer */ + lex_next(ls); + if (ls->c != '-') return '-'; + lex_next(ls); + if (ls->c == '[') { /* Long comment "--[=*[...]=*]". */ + int sep = lex_skipeq(ls); + lj_buf_reset(&ls->sb); /* `lex_skipeq' may dirty the buffer */ if (sep >= 0) { - read_long_string(ls, NULL, sep); /* long comment */ - lj_str_resetbuf(&ls->sb); + lex_longstring(ls, NULL, sep); + lj_buf_reset(&ls->sb); continue; } } - /* else short comment */ - while (!currIsNewline(ls) && ls->current != END_OF_STREAM) - next(ls); + /* Short comment "--.*\n". */ + while (!lex_iseol(ls) && ls->c != LEX_EOF) + lex_next(ls); continue; case '[': { - int sep = skip_sep(ls); + int sep = lex_skipeq(ls); if (sep >= 0) { - read_long_string(ls, tv, sep); + lex_longstring(ls, tv, sep); return TK_string; } else if (sep == -1) { return '['; @@ -319,44 +318,43 @@ static int llex(LexState *ls, TValue *tv) } } case '=': - next(ls); - if (ls->current != '=') return '='; else { next(ls); return TK_eq; } + lex_next(ls); + if (ls->c != '=') return '='; else { lex_next(ls); return TK_eq; } case '<': - next(ls); - if (ls->current != '=') return '<'; else { next(ls); return TK_le; } + lex_next(ls); + if (ls->c != '=') return '<'; else { lex_next(ls); return TK_le; } case '>': - next(ls); - if (ls->current != '=') return '>'; else { next(ls); return TK_ge; } + lex_next(ls); + if (ls->c != '=') return '>'; else { lex_next(ls); return TK_ge; } case '~': - next(ls); - if (ls->current != '=') return '~'; else { next(ls); return TK_ne; } + lex_next(ls); + if (ls->c != '=') return '~'; else { lex_next(ls); return TK_ne; } case ':': - next(ls); - if (ls->current != ':') return ':'; else { next(ls); return TK_label; } + lex_next(ls); + if (ls->c != ':') return ':'; else { lex_next(ls); return TK_label; } case '"': case '\'': - read_string(ls, ls->current, tv); + lex_string(ls, tv); return TK_string; case '.': - save_and_next(ls); - if (ls->current == '.') { - next(ls); - if (ls->current == '.') { - next(ls); + if (lex_savenext(ls) == '.') { + lex_next(ls); + if (ls->c == '.') { + lex_next(ls); return TK_dots; /* ... */ } return TK_concat; /* .. */ - } else if (!lj_char_isdigit(ls->current)) { + } else if (!lj_char_isdigit(ls->c)) { return '.'; } else { lex_number(ls, tv); return TK_number; } - case END_OF_STREAM: + case LEX_EOF: return TK_eof; default: { - int c = ls->current; - next(ls); + LexChar c = ls->c; + lex_next(ls); return c; /* Single-char tokens (+ - / ...). */ } } @@ -371,8 +369,7 @@ int lj_lex_setup(lua_State *L, LexState *ls) int header = 0; ls->L = L; ls->fs = NULL; - ls->n = 0; - ls->p = NULL; + ls->pe = ls->p = NULL; ls->vstack = NULL; ls->sizevstack = 0; ls->vtop = 0; @@ -381,24 +378,22 @@ int lj_lex_setup(lua_State *L, LexState *ls) ls->lookahead = TK_eof; /* No look-ahead token. */ ls->linenumber = 1; ls->lastline = 1; - lj_str_resizebuf(ls->L, &ls->sb, LJ_MIN_SBUF); - next(ls); /* Read-ahead first char. */ - if (ls->current == 0xef && ls->n >= 2 && char2int(ls->p[0]) == 0xbb && - char2int(ls->p[1]) == 0xbf) { /* Skip UTF-8 BOM (if buffered). */ - ls->n -= 2; + lex_next(ls); /* Read-ahead first char. */ + if (ls->c == 0xef && ls->p + 2 <= ls->pe && (uint8_t)ls->p[0] == 0xbb && + (uint8_t)ls->p[1] == 0xbf) { /* Skip UTF-8 BOM (if buffered). */ ls->p += 2; - next(ls); + lex_next(ls); header = 1; } - if (ls->current == '#') { /* Skip POSIX #! header line. */ + if (ls->c == '#') { /* Skip POSIX #! header line. */ do { - next(ls); - if (ls->current == END_OF_STREAM) return 0; - } while (!currIsNewline(ls)); - inclinenumber(ls); + lex_next(ls); + if (ls->c == LEX_EOF) return 0; + } while (!lex_iseol(ls)); + lex_newline(ls); header = 1; } - if (ls->current == LUA_SIGNATURE[0]) { /* Bytecode dump. */ + if (ls->c == LUA_SIGNATURE[0]) { /* Bytecode dump. */ if (header) { /* ** Loading bytecode with an extra header is disabled for security @@ -420,55 +415,60 @@ void lj_lex_cleanup(lua_State *L, LexState *ls) global_State *g = G(L); lj_mem_freevec(g, ls->bcstack, ls->sizebcstack, BCInsLine); lj_mem_freevec(g, ls->vstack, ls->sizevstack, VarInfo); - lj_str_freebuf(g, &ls->sb); + lj_buf_free(g, &ls->sb); } +/* Return next lexical token. */ void lj_lex_next(LexState *ls) { ls->lastline = ls->linenumber; if (LJ_LIKELY(ls->lookahead == TK_eof)) { /* No lookahead token? */ - ls->token = llex(ls, &ls->tokenval); /* Get next token. */ + ls->tok = lex_scan(ls, &ls->tokval); /* Get next token. */ } else { /* Otherwise return lookahead token. */ - ls->token = ls->lookahead; + ls->tok = ls->lookahead; ls->lookahead = TK_eof; - ls->tokenval = ls->lookaheadval; + ls->tokval = ls->lookaheadval; } } +/* Look ahead for the next token. */ LexToken lj_lex_lookahead(LexState *ls) { lua_assert(ls->lookahead == TK_eof); - ls->lookahead = llex(ls, &ls->lookaheadval); + ls->lookahead = lex_scan(ls, &ls->lookaheadval); return ls->lookahead; } -const char *lj_lex_token2str(LexState *ls, LexToken token) +/* Convert token to string. */ +const char *lj_lex_token2str(LexState *ls, LexToken tok) { - if (token > TK_OFS) - return tokennames[token-TK_OFS-1]; - else if (!lj_char_iscntrl(token)) - return lj_str_pushf(ls->L, "%c", token); + if (tok > TK_OFS) + return tokennames[tok-TK_OFS-1]; + else if (!lj_char_iscntrl(tok)) + return lj_strfmt_pushf(ls->L, "%c", tok); else - return lj_str_pushf(ls->L, "char(%d)", token); + return lj_strfmt_pushf(ls->L, "char(%d)", tok); } -void lj_lex_error(LexState *ls, LexToken token, ErrMsg em, ...) +/* Lexer error. */ +void lj_lex_error(LexState *ls, LexToken tok, ErrMsg em, ...) { - const char *tok; + const char *tokstr; va_list argp; - if (token == 0) { - tok = NULL; - } else if (token == TK_name || token == TK_string || token == TK_number) { - save(ls, '\0'); - tok = ls->sb.buf; + if (tok == 0) { + tokstr = NULL; + } else if (tok == TK_name || tok == TK_string || tok == TK_number) { + lex_save(ls, '\0'); + tokstr = sbufB(&ls->sb); } else { - tok = lj_lex_token2str(ls, token); + tokstr = lj_lex_token2str(ls, tok); } va_start(argp, em); - lj_err_lex(ls->L, ls->chunkname, tok, ls->linenumber, em, argp); + lj_err_lex(ls->L, ls->chunkname, tokstr, ls->linenumber, em, argp); va_end(argp); } +/* Initialize strings for reserved words. */ void lj_lex_init(lua_State *L) { uint32_t i; diff --git a/src/3rd party/luajit-2.0/src/lj_lex.h b/src/3rd party/luajit-2.0/src/lj_lex.h index fe017686456..acd2285d789 100644 --- a/src/3rd party/luajit-2.0/src/lj_lex.h +++ b/src/3rd party/luajit-2.0/src/lj_lex.h @@ -30,7 +30,8 @@ TKDEF(TKENUM1, TKENUM2) TK_RESERVED = TK_while - TK_OFS }; -typedef int LexToken; +typedef int LexChar; /* Lexical character. Unsigned ext. from char. */ +typedef int LexToken; /* Lexical token. */ /* Combined bytecode ins/line. Only used during bytecode generation. */ typedef struct BCInsLine { @@ -51,13 +52,13 @@ typedef struct VarInfo { typedef struct LexState { struct FuncState *fs; /* Current FuncState. Defined in lj_parse.c. */ struct lua_State *L; /* Lua state. */ - TValue tokenval; /* Current token value. */ + TValue tokval; /* Current token value. */ TValue lookaheadval; /* Lookahead token value. */ - int current; /* Current character (charint). */ - LexToken token; /* Current token. */ - LexToken lookahead; /* Lookahead token. */ - MSize n; /* Bytes left in input buffer. */ const char *p; /* Current position in input buffer. */ + const char *pe; /* End of input buffer. */ + LexChar c; /* Current character. */ + LexToken tok; /* Current token. */ + LexToken lookahead; /* Lookahead token. */ SBuf sb; /* String buffer for tokens. */ lua_Reader rfunc; /* Reader callback. */ void *rdata; /* Reader callback data. */ @@ -78,8 +79,8 @@ LJ_FUNC int lj_lex_setup(lua_State *L, LexState *ls); LJ_FUNC void lj_lex_cleanup(lua_State *L, LexState *ls); LJ_FUNC void lj_lex_next(LexState *ls); LJ_FUNC LexToken lj_lex_lookahead(LexState *ls); -LJ_FUNC const char *lj_lex_token2str(LexState *ls, LexToken token); -LJ_FUNC_NORET void lj_lex_error(LexState *ls, LexToken token, ErrMsg em, ...); +LJ_FUNC const char *lj_lex_token2str(LexState *ls, LexToken tok); +LJ_FUNC_NORET void lj_lex_error(LexState *ls, LexToken tok, ErrMsg em, ...); LJ_FUNC void lj_lex_init(lua_State *L); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_lib.c b/src/3rd party/luajit-2.0/src/lj_lib.c index 856685ee367..b16d0564fa7 100644 --- a/src/3rd party/luajit-2.0/src/lj_lib.c +++ b/src/3rd party/luajit-2.0/src/lj_lib.c @@ -18,6 +18,9 @@ #include "lj_dispatch.h" #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" +#include "lj_lex.h" +#include "lj_bcdump.h" #include "lj_lib.h" /* -- Library initialization ---------------------------------------------- */ @@ -43,6 +46,28 @@ static GCtab *lib_create_table(lua_State *L, const char *libname, int hsize) return tabV(L->top-1); } +static const uint8_t *lib_read_lfunc(lua_State *L, const uint8_t *p, GCtab *tab) +{ + int len = *p++; + GCstr *name = lj_str_new(L, (const char *)p, len); + LexState ls; + GCproto *pt; + GCfunc *fn; + memset(&ls, 0, sizeof(ls)); + ls.L = L; + ls.p = (const char *)(p+len); + ls.pe = (const char *)~(uintptr_t)0; + ls.c = -1; + ls.level = (BCDUMP_F_STRIP|(LJ_BE*BCDUMP_F_BE)); + ls.chunkname = name; + pt = lj_bcread_proto(&ls); + pt->firstline = ~(BCLine)0; + fn = lj_func_newL_empty(L, pt, tabref(L->env)); + /* NOBARRIER: See below for common barrier. */ + setfuncV(L, lj_tab_setstr(L, tab, name), fn); + return (const uint8_t *)ls.p; +} + void lj_lib_register(lua_State *L, const char *libname, const uint8_t *p, const lua_CFunction *cf) { @@ -87,6 +112,9 @@ void lj_lib_register(lua_State *L, const char *libname, ofn = fn; } else { switch (tag | len) { + case LIBINIT_LUA: + p = lib_read_lfunc(L, p, tab); + break; case LIBINIT_SET: L->top -= 2; if (tvisstr(L->top+1) && strV(L->top+1)->len == 0) @@ -120,6 +148,37 @@ void lj_lib_register(lua_State *L, const char *libname, } } +/* Push internal function on the stack. */ +GCfunc *lj_lib_pushcc(lua_State *L, lua_CFunction f, int id, int n) +{ + GCfunc *fn; + lua_pushcclosure(L, f, n); + fn = funcV(L->top-1); + fn->c.ffid = (uint8_t)id; + setmref(fn->c.pc, &G(L)->bc_cfunc_int); + return fn; +} + +void lj_lib_prereg(lua_State *L, const char *name, lua_CFunction f, GCtab *env) +{ + luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", 4); + lua_pushcfunction(L, f); + /* NOBARRIER: The function is new (marked white). */ + setgcref(funcV(L->top-1)->c.env, obj2gco(env)); + lua_setfield(L, -2, name); + L->top--; +} + +int lj_lib_postreg(lua_State *L, lua_CFunction cf, int id, const char *name) +{ + GCfunc *fn = lj_lib_pushcf(L, cf, id); + GCtab *t = tabref(curr_func(L)->c.env); /* Reference to parent table. */ + setfuncV(L, lj_tab_setstr(L, t, lj_str_newz(L, name)), fn); + lj_gc_anybarriert(L, t); + setfuncV(L, L->top++, fn); + return 1; +} + /* -- Type checks --------------------------------------------------------- */ TValue *lj_lib_checkany(lua_State *L, int narg) @@ -137,7 +196,7 @@ GCstr *lj_lib_checkstr(lua_State *L, int narg) if (LJ_LIKELY(tvisstr(o))) { return strV(o); } else if (tvisnumber(o)) { - GCstr *s = lj_str_fromnumber(L, o); + GCstr *s = lj_strfmt_number(L, o); setstrV(L, o, s); return s; } @@ -196,20 +255,6 @@ int32_t lj_lib_optint(lua_State *L, int narg, int32_t def) return (o < L->top && !tvisnil(o)) ? lj_lib_checkint(L, narg) : def; } -int32_t lj_lib_checkbit(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && lj_strscan_numberobj(o))) - lj_err_argt(L, narg, LUA_TNUMBER); - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else { - int32_t i = lj_num2bit(numV(o)); - if (LJ_DUALNUM) setintV(o, i); - return i; - } -} - GCfunc *lj_lib_checkfunc(lua_State *L, int narg) { TValue *o = L->base + narg-1; diff --git a/src/3rd party/luajit-2.0/src/lj_lib.h b/src/3rd party/luajit-2.0/src/lj_lib.h index 9320f34fdac..3fa7aa17eff 100644 --- a/src/3rd party/luajit-2.0/src/lj_lib.h +++ b/src/3rd party/luajit-2.0/src/lj_lib.h @@ -41,15 +41,22 @@ LJ_FUNC void lj_lib_checknumber(lua_State *L, int narg); LJ_FUNC lua_Number lj_lib_checknum(lua_State *L, int narg); LJ_FUNC int32_t lj_lib_checkint(lua_State *L, int narg); LJ_FUNC int32_t lj_lib_optint(lua_State *L, int narg, int32_t def); -LJ_FUNC int32_t lj_lib_checkbit(lua_State *L, int narg); LJ_FUNC GCfunc *lj_lib_checkfunc(lua_State *L, int narg); LJ_FUNC GCtab *lj_lib_checktab(lua_State *L, int narg); LJ_FUNC GCtab *lj_lib_checktabornil(lua_State *L, int narg); LJ_FUNC int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst); /* Avoid including lj_frame.h. */ +#if LJ_GC64 +#define lj_lib_upvalue(L, n) \ + (&gcval(L->base-2)->fn.c.upvalue[(n)-1]) +#elif LJ_FR2 +#define lj_lib_upvalue(L, n) \ + (&gcref((L->base-2)->gcr)->fn.c.upvalue[(n)-1]) +#else #define lj_lib_upvalue(L, n) \ (&gcref((L->base-1)->fr.func)->fn.c.upvalue[(n)-1]) +#endif #if LJ_TARGET_WINDOWS #define lj_lib_checkfpu(L) \ @@ -60,23 +67,14 @@ LJ_FUNC int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst); #define lj_lib_checkfpu(L) UNUSED(L) #endif -/* Push internal function on the stack. */ -static LJ_AINLINE void lj_lib_pushcc(lua_State *L, lua_CFunction f, - int id, int n) -{ - GCfunc *fn; - lua_pushcclosure(L, f, n); - fn = funcV(L->top-1); - fn->c.ffid = (uint8_t)id; - setmref(fn->c.pc, &G(L)->bc_cfunc_int); -} - +LJ_FUNC GCfunc *lj_lib_pushcc(lua_State *L, lua_CFunction f, int id, int n); #define lj_lib_pushcf(L, fn, id) (lj_lib_pushcc(L, (fn), (id), 0)) /* Library function declarations. Scanned by buildvm. */ #define LJLIB_CF(name) static int lj_cf_##name(lua_State *L) #define LJLIB_ASM(name) static int lj_ffh_##name(lua_State *L) #define LJLIB_ASM_(name) +#define LJLIB_LUA(name) #define LJLIB_SET(name) #define LJLIB_PUSH(arg) #define LJLIB_REC(handler) @@ -88,6 +86,10 @@ static LJ_AINLINE void lj_lib_pushcc(lua_State *L, lua_CFunction f, LJ_FUNC void lj_lib_register(lua_State *L, const char *libname, const uint8_t *init, const lua_CFunction *cf); +LJ_FUNC void lj_lib_prereg(lua_State *L, const char *name, lua_CFunction f, + GCtab *env); +LJ_FUNC int lj_lib_postreg(lua_State *L, lua_CFunction cf, int id, + const char *name); /* Library init data tags. */ #define LIBINIT_LENMASK 0x3f @@ -96,7 +98,8 @@ LJ_FUNC void lj_lib_register(lua_State *L, const char *libname, #define LIBINIT_ASM 0x40 #define LIBINIT_ASM_ 0x80 #define LIBINIT_STRING 0xc0 -#define LIBINIT_MAXSTR 0x39 +#define LIBINIT_MAXSTR 0x38 +#define LIBINIT_LUA 0xf9 #define LIBINIT_SET 0xfa #define LIBINIT_NUMBER 0xfb #define LIBINIT_COPY 0xfc diff --git a/src/3rd party/luajit-2.0/src/lj_load.c b/src/3rd party/luajit-2.0/src/lj_load.c index ff7b85117ff..95a6ab0d4de 100644 --- a/src/3rd party/luajit-2.0/src/lj_load.c +++ b/src/3rd party/luajit-2.0/src/lj_load.c @@ -15,7 +15,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_func.h" #include "lj_frame.h" #include "lj_vm.h" @@ -54,7 +54,7 @@ LUA_API int lua_loadx(lua_State *L, lua_Reader reader, void *data, ls.rdata = data; ls.chunkarg = chunkname ? chunkname : "?"; ls.mode = mode; - lj_str_initbuf(&ls.sb); + lj_buf_init(L, &ls.sb); status = lj_vm_cpcall(L, NULL, &ls, cpparser); lj_lex_cleanup(L, &ls); lj_gc_check(L); diff --git a/src/3rd party/luajit-2.0/src/lj_meta.c b/src/3rd party/luajit-2.0/src/lj_meta.c index faaaf70264a..104ecf07c3d 100644 --- a/src/3rd party/luajit-2.0/src/lj_meta.c +++ b/src/3rd party/luajit-2.0/src/lj_meta.c @@ -12,6 +12,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_meta.h" @@ -19,6 +20,8 @@ #include "lj_bc.h" #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" +#include "lj_lib.h" /* -- Metamethod handling ------------------------------------------------- */ @@ -77,12 +80,16 @@ int lj_meta_tailcall(lua_State *L, cTValue *tv) TValue *base = L->base; TValue *top = L->top; const BCIns *pc = frame_pc(base-1); /* Preserve old PC from frame. */ - copyTV(L, base-1, tv); /* Replace frame with new object. */ - top->u32.lo = LJ_CONT_TAILCALL; - setframe_pc(top, pc); - setframe_gc(top+1, obj2gco(L)); /* Dummy frame object. */ - setframe_ftsz(top+1, (int)((char *)(top+2) - (char *)base) + FRAME_CONT); - L->base = L->top = top+2; + copyTV(L, base-1-LJ_FR2, tv); /* Replace frame with new object. */ + if (LJ_FR2) + (top++)->u64 = LJ_CONT_TAILCALL; + else + top->u32.lo = LJ_CONT_TAILCALL; + setframe_pc(top++, pc); + if (LJ_FR2) top++; + setframe_gc(top, obj2gco(L), LJ_TTHREAD); /* Dummy frame object. */ + setframe_ftsz(top, ((char *)(top+1) - (char *)base) + FRAME_CONT); + L->base = L->top = top+1; /* ** before: [old_mo|PC] [... ...] ** ^base ^top @@ -113,11 +120,13 @@ static TValue *mmcall(lua_State *L, ASMFunction cont, cTValue *mo, */ TValue *top = L->top; if (curr_funcisL(L)) top = curr_topL(L); - setcont(top, cont); /* Assembler VM stores PC in upper word. */ - copyTV(L, top+1, mo); /* Store metamethod and two arguments. */ - copyTV(L, top+2, a); - copyTV(L, top+3, b); - return top+2; /* Return new base. */ + setcont(top++, cont); /* Assembler VM stores PC in upper word or FR2. */ + if (LJ_FR2) setnilV(top++); + copyTV(L, top++, mo); /* Store metamethod and two arguments. */ + if (LJ_FR2) setnilV(top++); + copyTV(L, top, a); + copyTV(L, top+1, b); + return top; /* Return new base. */ } /* -- C helpers for some instructions, called from assembler VM ----------- */ @@ -225,27 +234,14 @@ TValue *lj_meta_arith(lua_State *L, TValue *ra, cTValue *rb, cTValue *rc, } } -/* In-place coercion of a number to a string. */ -static LJ_AINLINE int tostring(lua_State *L, TValue *o) -{ - if (tvisstr(o)) { - return 1; - } else if (tvisnumber(o)) { - setstrV(L, o, lj_str_fromnumber(L, o)); - return 1; - } else { - return 0; - } -} - /* Helper for CAT. Coercion, iterative concat, __concat metamethod. */ TValue *lj_meta_cat(lua_State *L, TValue *top, int left) { int fromc = 0; if (left < 0) { left = -left; fromc = 1; } do { - int n = 1; - if (!(tvisstr(top-1) || tvisnumber(top-1)) || !tostring(L, top)) { + if (!(tvisstr(top) || tvisnumber(top)) || + !(tvisstr(top-1) || tvisnumber(top-1))) { cTValue *mo = lj_meta_lookup(L, top-1, MM_concat); if (tvisnil(mo)) { mo = lj_meta_lookup(L, top, MM_concat); @@ -266,13 +262,12 @@ TValue *lj_meta_cat(lua_State *L, TValue *top, int left) ** after mm: [...][CAT stack ...] <--push-- [result] ** next step: [...][CAT stack .............] */ - copyTV(L, top+2, top); /* Careful with the order of stack copies! */ - copyTV(L, top+1, top-1); - copyTV(L, top, mo); + copyTV(L, top+2*LJ_FR2+2, top); /* Carefully ordered stack copies! */ + copyTV(L, top+2*LJ_FR2+1, top-1); + copyTV(L, top+LJ_FR2, mo); setcont(top-1, lj_cont_cat); + if (LJ_FR2) { setnilV(top); setnilV(top+2); top += 2; } return top+1; /* Trigger metamethod call. */ - } else if (strV(top)->len == 0) { /* Shortcut. */ - (void)tostring(L, top-1); } else { /* Pick as many strings as possible from the top and concatenate them: ** @@ -281,27 +276,28 @@ TValue *lj_meta_cat(lua_State *L, TValue *top, int left) ** concat: [...][CAT stack ...] [result] ** next step: [...][CAT stack ............] */ - MSize tlen = strV(top)->len; - char *buffer; - int i; - for (n = 1; n <= left && tostring(L, top-n); n++) { - MSize len = strV(top-n)->len; - if (len >= LJ_MAX_STR - tlen) - lj_err_msg(L, LJ_ERR_STROV); - tlen += len; - } - buffer = lj_str_needbuf(L, &G(L)->tmpbuf, tlen); - n--; - tlen = 0; - for (i = n; i >= 0; i--) { - MSize len = strV(top-i)->len; - memcpy(buffer + tlen, strVdata(top-i), len); - tlen += len; + TValue *e, *o = top; + uint64_t tlen = tvisstr(o) ? strV(o)->len : STRFMT_MAXBUF_NUM; + char *p, *buf; + do { + o--; tlen += tvisstr(o) ? strV(o)->len : STRFMT_MAXBUF_NUM; + } while (--left > 0 && (tvisstr(o-1) || tvisnumber(o-1))); + if (tlen >= LJ_MAX_STR) lj_err_msg(L, LJ_ERR_STROV); + p = buf = lj_buf_tmp(L, (MSize)tlen); + for (e = top, top = o; o <= e; o++) { + if (tvisstr(o)) { + GCstr *s = strV(o); + MSize len = s->len; + p = lj_buf_wmem(p, strdata(s), len); + } else if (tvisint(o)) { + p = lj_strfmt_wint(p, intV(o)); + } else { + lua_assert(tvisnum(o)); + p = lj_strfmt_wnum(p, o); + } } - setstrV(L, top-n, lj_str_new(L, buffer, tlen)); + setstrV(L, top, lj_str_new(L, buf, (size_t)(p-buf))); } - left -= n; - top -= n; } while (left >= 1); if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) { if (!fromc) L->top = curr_topL(L); @@ -338,12 +334,14 @@ TValue *lj_meta_equal(lua_State *L, GCobj *o1, GCobj *o2, int ne) return (TValue *)(intptr_t)ne; } top = curr_top(L); - setcont(top, ne ? lj_cont_condf : lj_cont_condt); - copyTV(L, top+1, mo); + setcont(top++, ne ? lj_cont_condf : lj_cont_condt); + if (LJ_FR2) setnilV(top++); + copyTV(L, top++, mo); + if (LJ_FR2) setnilV(top++); it = ~(uint32_t)o1->gch.gct; - setgcV(L, top+2, o1, it); - setgcV(L, top+3, o2, it); - return top+2; /* Trigger metamethod call. */ + setgcV(L, top, o1, it); + setgcV(L, top+1, o2, it); + return top; /* Trigger metamethod call. */ } return (TValue *)(intptr_t)ne; } @@ -366,7 +364,7 @@ TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins) o2 = &mref(curr_proto(L)->k, cTValue)[bc_d(ins)]; } else { lua_assert(op == BC_ISEQP); - setitype(&tv, ~bc_d(ins)); + setpriV(&tv, ~bc_d(ins)); o2 = &tv; } mo = lj_meta_lookup(L, o1mm, MM_eq); @@ -423,6 +421,18 @@ TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op) } } +/* Helper for ISTYPE and ISNUM. Implicit coercion or error. */ +void lj_meta_istype(lua_State *L, BCReg ra, BCReg tp) +{ + L->top = curr_topL(L); + ra++; tp--; + lua_assert(LJ_DUALNUM || tp != ~LJ_TNUMX); /* ISTYPE -> ISNUM broken. */ + if (LJ_DUALNUM && tp == ~LJ_TNUMX) lj_lib_checkint(L, ra); + else if (tp == ~LJ_TNUMX+1) lj_lib_checknum(L, ra); + else if (tp == ~LJ_TSTR) lj_lib_checkstr(L, ra); + else lj_err_argtype(L, ra, lj_obj_itypename[tp]); +} + /* Helper for calls. __call metamethod. */ void lj_meta_call(lua_State *L, TValue *func, TValue *top) { @@ -430,7 +440,8 @@ void lj_meta_call(lua_State *L, TValue *func, TValue *top) TValue *p; if (!tvisfunc(mo)) lj_err_optype_call(L, func); - for (p = top; p > func; p--) copyTV(L, p, p-1); + for (p = top; p > func+2*LJ_FR2; p--) copyTV(L, p, p-1); + if (LJ_FR2) copyTV(L, func+2, func); copyTV(L, func, mo); } diff --git a/src/3rd party/luajit-2.0/src/lj_meta.h b/src/3rd party/luajit-2.0/src/lj_meta.h index 2c1ad0dd9b8..7f71633362b 100644 --- a/src/3rd party/luajit-2.0/src/lj_meta.h +++ b/src/3rd party/luajit-2.0/src/lj_meta.h @@ -31,6 +31,7 @@ LJ_FUNCA TValue * LJ_FASTCALL lj_meta_len(lua_State *L, cTValue *o); LJ_FUNCA TValue *lj_meta_equal(lua_State *L, GCobj *o1, GCobj *o2, int ne); LJ_FUNCA TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins); LJ_FUNCA TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op); +LJ_FUNCA void lj_meta_istype(lua_State *L, BCReg ra, BCReg tp); LJ_FUNCA void lj_meta_call(lua_State *L, TValue *func, TValue *top); LJ_FUNCA void LJ_FASTCALL lj_meta_for(lua_State *L, TValue *o); diff --git a/src/3rd party/luajit-2.0/src/lj_obj.c b/src/3rd party/luajit-2.0/src/lj_obj.c index 7fab714e5c9..b78d2c8d835 100644 --- a/src/3rd party/luajit-2.0/src/lj_obj.c +++ b/src/3rd party/luajit-2.0/src/lj_obj.c @@ -20,7 +20,7 @@ LJ_DATADEF const char *const lj_obj_itypename[] = { /* ORDER LJ_T */ }; /* Compare two objects without calling metamethods. */ -int lj_obj_equal(cTValue *o1, cTValue *o2) +int LJ_FASTCALL lj_obj_equal(cTValue *o1, cTValue *o2) { if (itype(o1) == itype(o2)) { if (tvispri(o1)) @@ -33,3 +33,18 @@ int lj_obj_equal(cTValue *o1, cTValue *o2) return numberVnum(o1) == numberVnum(o2); } +/* Return pointer to object or its object data. */ +const void * LJ_FASTCALL lj_obj_ptr(cTValue *o) +{ + if (tvisudata(o)) + return uddata(udataV(o)); + else if (tvislightud(o)) + return lightudV(o); + else if (LJ_HASFFI && tviscdata(o)) + return cdataptr(cdataV(o)); + else if (tvisgcv(o)) + return gcV(o); + else + return NULL; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_obj.h b/src/3rd party/luajit-2.0/src/lj_obj.h index 6e8381cbadf..74ed59bc726 100644 --- a/src/3rd party/luajit-2.0/src/lj_obj.h +++ b/src/3rd party/luajit-2.0/src/lj_obj.h @@ -15,42 +15,75 @@ /* -- Memory references (32 bit address space) ---------------------------- */ -/* Memory size. */ +/* Memory and GC object sizes. */ typedef uint32_t MSize; +#if LJ_GC64 +typedef uint64_t GCSize; +#else +typedef uint32_t GCSize; +#endif /* Memory reference */ typedef struct MRef { +#if LJ_GC64 + uint64_t ptr64; /* True 64 bit pointer. */ +#else uint32_t ptr32; /* Pseudo 32 bit pointer. */ +#endif } MRef; +#if LJ_GC64 +#define mref(r, t) ((t *)(void *)(r).ptr64) + +#define setmref(r, p) ((r).ptr64 = (uint64_t)(void *)(p)) +#define setmrefr(r, v) ((r).ptr64 = (v).ptr64) +#else #define mref(r, t) ((t *)(void *)(uintptr_t)(r).ptr32) #define setmref(r, p) ((r).ptr32 = (uint32_t)(uintptr_t)(void *)(p)) #define setmrefr(r, v) ((r).ptr32 = (v).ptr32) +#endif /* -- GC object references (32 bit address space) ------------------------- */ /* GCobj reference */ typedef struct GCRef { +#if LJ_GC64 + uint64_t gcptr64; /* True 64 bit pointer. */ +#else uint32_t gcptr32; /* Pseudo 32 bit pointer. */ +#endif } GCRef; /* Common GC header for all collectable objects. */ #define GCHeader GCRef nextgc; uint8_t marked; uint8_t gct /* This occupies 6 bytes, so use the next 2 bytes for non-32 bit fields. */ +#if LJ_GC64 +#define gcref(r) ((GCobj *)(r).gcptr64) +#define gcrefp(r, t) ((t *)(void *)(r).gcptr64) +#define gcrefu(r) ((r).gcptr64) +#define gcrefeq(r1, r2) ((r1).gcptr64 == (r2).gcptr64) + +#define setgcref(r, gc) ((r).gcptr64 = (uint64_t)&(gc)->gch) +#define setgcreft(r, gc, it) \ + (r).gcptr64 = (uint64_t)&(gc)->gch | (((uint64_t)(it)) << 47) +#define setgcrefp(r, p) ((r).gcptr64 = (uint64_t)(p)) +#define setgcrefnull(r) ((r).gcptr64 = 0) +#define setgcrefr(r, v) ((r).gcptr64 = (v).gcptr64) +#else #define gcref(r) ((GCobj *)(uintptr_t)(r).gcptr32) #define gcrefp(r, t) ((t *)(void *)(uintptr_t)(r).gcptr32) #define gcrefu(r) ((r).gcptr32) -#define gcrefi(r) ((int32_t)(r).gcptr32) #define gcrefeq(r1, r2) ((r1).gcptr32 == (r2).gcptr32) -#define gcnext(gc) (gcref((gc)->gch.nextgc)) #define setgcref(r, gc) ((r).gcptr32 = (uint32_t)(uintptr_t)&(gc)->gch) -#define setgcrefi(r, i) ((r).gcptr32 = (uint32_t)(i)) #define setgcrefp(r, p) ((r).gcptr32 = (uint32_t)(uintptr_t)(p)) #define setgcrefnull(r) ((r).gcptr32 = 0) #define setgcrefr(r, v) ((r).gcptr32 = (v).gcptr32) +#endif + +#define gcnext(gc) (gcref((gc)->gch.nextgc)) /* IMPORTANT NOTE: ** @@ -119,11 +152,12 @@ typedef int32_t BCLine; /* Bytecode line number. */ /* Internal assembler functions. Never call these directly from C. */ typedef void (*ASMFunction)(void); -/* Resizable string buffer. Need this here, details in lj_str.h. */ +/* Resizable string buffer. Need this here, details in lj_buf.h. */ typedef struct SBuf { - char *buf; /* String buffer base. */ - MSize n; /* String buffer length. */ - MSize sz; /* String buffer size. */ + MRef p; /* String buffer pointer. */ + MRef e; /* String buffer end pointer. */ + MRef b; /* String buffer base. */ + MRef L; /* lua_State, used for buffer resizing. */ } SBuf; /* -- Tags and values ----------------------------------------------------- */ @@ -131,13 +165,23 @@ typedef struct SBuf { /* Frame link. */ typedef union { int32_t ftsz; /* Frame type and size of previous frame. */ - MRef pcr; /* Overlaps PC for Lua frames. */ + MRef pcr; /* Or PC for Lua frames. */ } FrameLink; /* Tagged value. */ typedef LJ_ALIGN(8) union TValue { uint64_t u64; /* 64 bit pattern overlaps number. */ lua_Number n; /* Number object overlaps split tag/value object. */ +#if LJ_GC64 + GCRef gcr; /* GCobj reference with tag. */ + int64_t it64; + struct { + LJ_ENDIAN_LOHI( + int32_t i; /* Integer value. */ + , uint32_t it; /* Internal object tag. Must overlap MSW of number. */ + ) + }; +#else struct { LJ_ENDIAN_LOHI( union { @@ -147,12 +191,17 @@ typedef LJ_ALIGN(8) union TValue { , uint32_t it; /* Internal object tag. Must overlap MSW of number. */ ) }; +#endif +#if LJ_FR2 + int64_t ftsz; /* Frame type and size of previous frame, or PC. */ +#else struct { LJ_ENDIAN_LOHI( GCRef func; /* Function for next frame (or dummy L). */ , FrameLink tp; /* Link to previous frame. */ ) } fr; +#endif struct { LJ_ENDIAN_LOHI( uint32_t lo; /* Lower 32 bits of number. */ @@ -172,6 +221,8 @@ typedef const TValue cTValue; /* Internal object tags. ** +** Format for 32 bit GC references (!LJ_GC64): +** ** Internal tags overlap the MSW of a number object (must be a double). ** Interpreted as a double these are special NaNs. The FPU only generates ** one type of NaN (0xfff8_0000_0000_0000). So MSWs > 0xfff80000 are available @@ -186,6 +237,18 @@ typedef const TValue cTValue; ** int (LJ_DUALNUM)| itype | int | ** number -------double------ ** +** Format for 64 bit GC references (LJ_GC64): +** +** The upper 13 bits must be 1 (0xfff8...) for a special NaN. The next +** 4 bits hold the internal tag. The lowest 47 bits either hold a pointer, +** a zero-extended 32 bit integer or all bits set to 1 for primitive types. +** +** ------MSW------.------LSW------ +** primitive types |1..1|itype|1..................1| +** GC objects/lightud |1..1|itype|-------GCRef--------| +** int (LJ_DUALNUM) |1..1|itype|0..0|-----int-------| +** number ------------double------------- +** ** ORDER LJ_T ** Primitive types nil/false/true must be first, lightuserdata next. ** GC objects are at the end, table/userdata must be lowest. @@ -208,7 +271,7 @@ typedef const TValue cTValue; #define LJ_TNUMX (~13u) /* Integers have itype == LJ_TISNUM doubles have itype < LJ_TISNUM */ -#if LJ_64 +#if LJ_64 && !LJ_GC64 #define LJ_TISNUM 0xfffeffffu #else #define LJ_TISNUM LJ_TNUMX @@ -218,6 +281,10 @@ typedef const TValue cTValue; #define LJ_TISGCV (LJ_TSTR+1) #define LJ_TISTABUD LJ_TTAB +#if LJ_GC64 +#define LJ_GCVMASK (((uint64_t)1 << 47) - 1) +#endif + /* -- String object ------------------------------------------------------- */ /* String object header. String payload follows. */ @@ -291,6 +358,9 @@ typedef struct GCproto { uint8_t numparams; /* Number of parameters. */ uint8_t framesize; /* Fixed frame size. */ MSize sizebc; /* Number of bytecode instructions. */ +#if LJ_GC64 + uint32_t unused_gc64; +#endif GCRef gclist; MRef k; /* Split constant array (points to the middle). */ MRef uv; /* Upvalue list. local slot|0x8000 or parent uv idx. */ @@ -402,7 +472,9 @@ typedef struct Node { TValue val; /* Value object. Must be first field. */ TValue key; /* Key object. */ MRef next; /* Hash chain. */ +#if !LJ_GC64 MRef freetop; /* Top of free elements (stored in t->node[0]). */ +#endif } Node; LJ_STATIC_ASSERT(offsetof(Node, val) == 0); @@ -417,12 +489,22 @@ typedef struct GCtab { MRef node; /* Hash part. */ uint32_t asize; /* Size of array part (keys [0, asize-1]). */ uint32_t hmask; /* Hash part mask (size of hash part - 1). */ +#if LJ_GC64 + MRef freetop; /* Top of free elements. */ +#endif } GCtab; #define sizetabcolo(n) ((n)*sizeof(TValue) + sizeof(GCtab)) #define tabref(r) (&gcref((r))->tab) #define noderef(r) (mref((r), Node)) #define nextnode(n) (mref((n)->next, Node)) +#if LJ_GC64 +#define getfreetop(t, n) (noderef((t)->freetop)) +#define setfreetop(t, n, v) (setmref((t)->freetop, (v))) +#else +#define getfreetop(t, n) (noderef((n)->freetop)) +#define setfreetop(t, n, v) (setmref((n)->freetop, (v))) +#endif /* -- State objects ------------------------------------------------------- */ @@ -489,8 +571,8 @@ typedef enum { #define mmname_str(g, mm) (strref((g)->gcroot[GCROOT_MMNAME+(mm)])) typedef struct GCState { - MSize total; /* Memory currently allocated. */ - MSize threshold; /* Memory threshold. */ + GCSize total; /* Memory currently allocated. */ + GCSize threshold; /* Memory threshold. */ uint8_t currentwhite; /* Current white color. */ uint8_t state; /* GC state. */ uint8_t nocdatafin; /* No cdata finalizer called. */ @@ -502,9 +584,9 @@ typedef struct GCState { GCRef grayagain; /* List of objects for atomic traversal. */ GCRef weak; /* List of weak tables (to be cleared). */ GCRef mmudata; /* List of userdata (to be finalized). */ + GCSize debt; /* Debt (how much GC is behind schedule). */ + GCSize estimate; /* Estimate of memory actually in use. */ MSize stepmul; /* Incremental GC step granularity. */ - MSize debt; /* Debt (how much GC is behind schedule). */ - MSize estimate; /* Estimate of memory actually in use. */ MSize pause; /* Pause between successive GC cycles. */ } GCState; @@ -516,8 +598,8 @@ typedef struct global_State { lua_Alloc allocf; /* Memory allocator. */ void *allocd; /* Memory allocator data. */ GCState gc; /* Garbage collector. */ - SBuf tmpbuf; /* Temporary buffer for string concatenation. */ - Node nilnode; /* Fallback 1-element hash part (nil key and value). */ + volatile int32_t vmstate; /* VM state or current JIT code trace number. */ + SBuf tmpbuf; /* Temporary string buffer. */ GCstr strempty; /* Empty string. */ uint8_t stremptyz; /* Zero terminator of empty string. */ uint8_t hookmask; /* Hook mask. */ @@ -526,17 +608,17 @@ typedef struct global_State { GCRef mainthref; /* Link to main thread. */ TValue registrytv; /* Anchor for registry. */ TValue tmptv, tmptv2; /* Temporary TValues. */ + Node nilnode; /* Fallback 1-element hash part (nil key and value). */ GCupval uvhead; /* Head of double-linked list of all open upvalues. */ int32_t hookcount; /* Instruction hook countdown. */ int32_t hookcstart; /* Start count for instruction hook counter. */ lua_Hook hookf; /* Hook function. */ lua_CFunction wrapf; /* Wrapper for C function calls. */ lua_CFunction panic; /* Called as a last resort for errors. */ - volatile int32_t vmstate; /* VM state or current JIT code trace number. */ BCIns bc_cfunc_int; /* Bytecode for internal C function calls. */ BCIns bc_cfunc_ext; /* Bytecode for external C function calls. */ - GCRef jit_L; /* Current JIT code lua_State or NULL. */ - MRef jit_base; /* Current JIT code L->base. */ + GCRef cur_L; /* Currently executing lua_State. */ + MRef jit_base; /* Current JIT code L->base or NULL. */ MRef ctype_state; /* Pointer to C type state. */ GCRef gcroot[GCROOT_MAX]; /* GC roots. */ } global_State; @@ -553,6 +635,7 @@ typedef struct global_State { #define HOOK_ACTIVE_SHIFT 4 #define HOOK_VMEVENT 0x20 #define HOOK_GC 0x40 +#define HOOK_PROFILE 0x80 #define hook_active(g) ((g)->hookmask & HOOK_ACTIVE) #define hook_enter(g) ((g)->hookmask |= HOOK_ACTIVE) #define hook_entergc(g) ((g)->hookmask |= (HOOK_ACTIVE|HOOK_GC)) @@ -583,7 +666,13 @@ struct lua_State { #define registry(L) (&G(L)->registrytv) /* Macros to access the currently executing (Lua) function. */ +#if LJ_GC64 +#define curr_func(L) (&gcval(L->base-2)->fn) +#elif LJ_FR2 +#define curr_func(L) (&gcref((L->base-2)->gcr)->fn) +#else #define curr_func(L) (&gcref((L->base-1)->fr.func)->fn) +#endif #define curr_funcisL(L) (isluafunc(curr_func(L))) #define curr_proto(L) (funcproto(curr_func(L))) #define curr_topL(L) (L->base + curr_proto(L)->framesize) @@ -647,12 +736,17 @@ typedef union GCobj { #endif /* Macros to test types. */ +#if LJ_GC64 +#define itype(o) ((uint32_t)((o)->it64 >> 47)) +#define tvisnil(o) ((o)->it64 == -1) +#else #define itype(o) ((o)->it) #define tvisnil(o) (itype(o) == LJ_TNIL) +#endif #define tvisfalse(o) (itype(o) == LJ_TFALSE) #define tvistrue(o) (itype(o) == LJ_TTRUE) #define tvisbool(o) (tvisfalse(o) || tvistrue(o)) -#if LJ_64 +#if LJ_64 && !LJ_GC64 #define tvislightud(o) (((int32_t)itype(o) >> 15) == -2) #else #define tvislightud(o) (itype(o) == LJ_TLIGHTUD) @@ -686,7 +780,7 @@ typedef union GCobj { #define rawnumequal(o1, o2) ((o1)->u64 == (o2)->u64) /* Macros to convert type ids. */ -#if LJ_64 +#if LJ_64 && !LJ_GC64 #define itypemap(o) \ (tvisnumber(o) ? ~LJ_TNUMX : tvislightud(o) ? ~LJ_TLIGHTUD : ~itype(o)) #else @@ -694,8 +788,12 @@ typedef union GCobj { #endif /* Macros to get tagged values. */ +#if LJ_GC64 +#define gcval(o) ((GCobj *)(gcrefu((o)->gcr) & LJ_GCVMASK)) +#else #define gcval(o) (gcref((o)->gcr)) -#define boolV(o) check_exp(tvisbool(o), (LJ_TFALSE - (o)->it)) +#endif +#define boolV(o) check_exp(tvisbool(o), (LJ_TFALSE - itype(o))) #if LJ_64 #define lightudV(o) \ check_exp(tvislightud(o), (void *)((o)->u64 & U64x(00007fff,ffffffff))) @@ -714,13 +812,23 @@ typedef union GCobj { #define intV(o) check_exp(tvisint(o), (int32_t)(o)->i) /* Macros to set tagged values. */ +#if LJ_GC64 +#define setitype(o, i) ((o)->it = ((i) << 15)) +#define setnilV(o) ((o)->it64 = -1) +#define setpriV(o, x) ((o)->it64 = (int64_t)~((uint64_t)~(x)<<47)) +#define setboolV(o, x) ((o)->it64 = (int64_t)~((uint64_t)((x)+1)<<47)) +#else #define setitype(o, i) ((o)->it = (i)) #define setnilV(o) ((o)->it = LJ_TNIL) #define setboolV(o, x) ((o)->it = LJ_TFALSE-(uint32_t)(x)) +#define setpriV(o, i) (setitype((o), (i))) +#endif static LJ_AINLINE void setlightudV(TValue *o, void *p) { -#if LJ_64 +#if LJ_GC64 + o->u64 = (uint64_t)p | (((uint64_t)LJ_TLIGHTUD) << 47); +#elif LJ_64 o->u64 = (uint64_t)p | (((uint64_t)0xffff) << 48); #else setgcrefp(o->gcr, p); setitype(o, LJ_TLIGHTUD); @@ -730,10 +838,16 @@ static LJ_AINLINE void setlightudV(TValue *o, void *p) #if LJ_64 #define checklightudptr(L, p) \ (((uint64_t)(p) >> 47) ? (lj_err_msg(L, LJ_ERR_BADLU), NULL) : (p)) +#else +#define checklightudptr(L, p) (p) +#endif + +#if LJ_FR2 +#define setcont(o, f) ((o)->u64 = (uint64_t)(uintptr_t)(void *)(f)) +#elif LJ_64 #define setcont(o, f) \ ((o)->u64 = (uint64_t)(void *)(f) - (uint64_t)lj_vm_asm_begin) #else -#define checklightudptr(L, p) (p) #define setcont(o, f) setlightudV((o), (void *)(f)) #endif @@ -741,9 +855,18 @@ static LJ_AINLINE void setlightudV(TValue *o, void *p) UNUSED(L), lua_assert(!tvisgcv(o) || \ ((~itype(o) == gcval(o)->gch.gct) && !isdead(G(L), gcval(o)))) -static LJ_AINLINE void setgcV(lua_State *L, TValue *o, GCobj *v, uint32_t itype) +static LJ_AINLINE void setgcVraw(TValue *o, GCobj *v, uint32_t itype) { - setgcref(o->gcr, v); setitype(o, itype); tvchecklive(L, o); +#if LJ_GC64 + setgcreft(o->gcr, v, itype); +#else + setgcref(o->gcr, v); setitype(o, itype); +#endif +} + +static LJ_AINLINE void setgcV(lua_State *L, TValue *o, GCobj *v, uint32_t it) +{ + setgcVraw(o, v, it); tvchecklive(L, o); } #define define_setV(name, type, tag) \ @@ -810,11 +933,7 @@ static LJ_AINLINE int32_t lj_num2bit(lua_Number n) #endif } -#if LJ_TARGET_X86 && !defined(__SSE2__) -#define lj_num2int(n) lj_num2bit((n)) -#else #define lj_num2int(n) ((int32_t)(n)) -#endif static LJ_AINLINE uint64_t lj_num2u64(lua_Number n) { @@ -851,6 +970,7 @@ LJ_DATA const char *const lj_obj_itypename[~LJ_TNUMX+1]; #define lj_typename(o) (lj_obj_itypename[itypemap(o)]) /* Compare two objects without calling metamethods. */ -LJ_FUNC int lj_obj_equal(cTValue *o1, cTValue *o2); +LJ_FUNC int LJ_FASTCALL lj_obj_equal(cTValue *o1, cTValue *o2); +LJ_FUNC const void * LJ_FASTCALL lj_obj_ptr(cTValue *o); #endif diff --git a/src/3rd party/luajit-2.0/src/lj_opt_fold.c b/src/3rd party/luajit-2.0/src/lj_opt_fold.c index 7d45b7b5b57..7698b3734dd 100644 --- a/src/3rd party/luajit-2.0/src/lj_opt_fold.c +++ b/src/3rd party/luajit-2.0/src/lj_opt_fold.c @@ -14,18 +14,21 @@ #if LJ_HASJIT +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_ir.h" #include "lj_jit.h" +#include "lj_ircall.h" #include "lj_iropt.h" #include "lj_trace.h" #if LJ_HASFFI #include "lj_ctype.h" -#endif #include "lj_carith.h" +#endif #include "lj_vm.h" #include "lj_strscan.h" +#include "lj_strfmt.h" /* Here's a short description how the FOLD engine processes instructions: ** @@ -155,13 +158,14 @@ typedef IRRef (LJ_FASTCALL *FoldFunc)(jit_State *J); /* Barrier to prevent folding across a GC step. ** GC steps can only happen at the head of a trace and at LOOP. -** And the GC is only driven forward if there is at least one allocation. +** And the GC is only driven forward if there's at least one allocation. */ #define gcstep_barrier(J, ref) \ ((ref) < J->chain[IR_LOOP] && \ (J->chain[IR_SNEW] || J->chain[IR_XSNEW] || \ J->chain[IR_TNEW] || J->chain[IR_TDUP] || \ - J->chain[IR_CNEW] || J->chain[IR_CNEWI] || J->chain[IR_TOSTR])) + J->chain[IR_CNEW] || J->chain[IR_CNEWI] || \ + J->chain[IR_BUFSTR] || J->chain[IR_TOSTR] || J->chain[IR_CALLA])) /* -- Constant folding for FP numbers ------------------------------------- */ @@ -336,11 +340,9 @@ LJFOLDF(kfold_intcomp0) static uint64_t kfold_int64arith(uint64_t k1, uint64_t k2, IROp op) { switch (op) { -#if LJ_64 || LJ_HASFFI +#if LJ_HASFFI case IR_ADD: k1 += k2; break; case IR_SUB: k1 -= k2; break; -#endif -#if LJ_HASFFI case IR_MUL: k1 *= k2; break; case IR_BAND: k1 &= k2; break; case IR_BOR: k1 |= k2; break; @@ -392,20 +394,10 @@ LJFOLD(BROL KINT64 KINT) LJFOLD(BROR KINT64 KINT) LJFOLDF(kfold_int64shift) { -#if LJ_HASFFI || LJ_64 +#if LJ_HASFFI uint64_t k = ir_k64(fleft)->u64; int32_t sh = (fright->i & 63); - switch ((IROp)fins->o) { - case IR_BSHL: k <<= sh; break; -#if LJ_HASFFI - case IR_BSHR: k >>= sh; break; - case IR_BSAR: k = (uint64_t)((int64_t)k >> sh); break; - case IR_BROL: k = lj_rol(k, sh); break; - case IR_BROR: k = lj_ror(k, sh); break; -#endif - default: lua_assert(0); break; - } - return INT64FOLD(k); + return INT64FOLD(lj_carith_shift64(k, sh, fins->o - IR_BSHL)); #else UNUSED(J); lua_assert(0); return FAILFOLD; #endif @@ -528,6 +520,180 @@ LJFOLDF(kfold_strcmp) return NEXTFOLD; } +/* -- Constant folding and forwarding for buffers ------------------------- */ + +/* +** Buffer ops perform stores, but their effect is limited to the buffer +** itself. Also, buffer ops are chained: a use of an op implies a use of +** all other ops up the chain. Conversely, if an op is unused, all ops +** up the chain can go unsed. This largely eliminates the need to treat +** them as stores. +** +** Alas, treating them as normal (IRM_N) ops doesn't work, because they +** cannot be CSEd in isolation. CSE for IRM_N is implicitly done in LOOP +** or if FOLD is disabled. +** +** The compromise is to declare them as loads, emit them like stores and +** CSE whole chains manually when the BUFSTR is to be emitted. Any chain +** fragments left over from CSE are eliminated by DCE. +*/ + +/* BUFHDR is emitted like a store, see below. */ + +LJFOLD(BUFPUT BUFHDR BUFSTR) +LJFOLDF(bufput_append) +{ + /* New buffer, no other buffer op inbetween and same buffer? */ + if ((J->flags & JIT_F_OPT_FWD) && + !(fleft->op2 & IRBUFHDR_APPEND) && + fleft->prev == fright->op2 && + fleft->op1 == IR(fright->op2)->op1) { + IRRef ref = fins->op1; + IR(ref)->op2 = (fleft->op2 | IRBUFHDR_APPEND); /* Modify BUFHDR. */ + IR(ref)->op1 = fright->op1; + return ref; + } + return EMITFOLD; /* Always emit, CSE later. */ +} + +LJFOLD(BUFPUT any any) +LJFOLDF(bufput_kgc) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && fright->o == IR_KGC) { + GCstr *s2 = ir_kstr(fright); + if (s2->len == 0) { /* Empty string? */ + return LEFTFOLD; + } else { + if (fleft->o == IR_BUFPUT && irref_isk(fleft->op2) && + !irt_isphi(fleft->t)) { /* Join two constant string puts in a row. */ + GCstr *s1 = ir_kstr(IR(fleft->op2)); + IRRef kref = lj_ir_kstr(J, lj_buf_cat2str(J->L, s1, s2)); + /* lj_ir_kstr() may realloc the IR and invalidates any IRIns *. */ + IR(fins->op1)->op2 = kref; /* Modify previous BUFPUT. */ + return fins->op1; + } + } + } + return EMITFOLD; /* Always emit, CSE later. */ +} + +LJFOLD(BUFSTR any any) +LJFOLDF(bufstr_kfold_cse) +{ + lua_assert(fleft->o == IR_BUFHDR || fleft->o == IR_BUFPUT || + fleft->o == IR_CALLL); + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { + if (fleft->o == IR_BUFHDR) { /* No put operations? */ + if (!(fleft->op2 & IRBUFHDR_APPEND)) /* Empty buffer? */ + return lj_ir_kstr(J, &J2G(J)->strempty); + fins->op1 = fleft->op1; + fins->op2 = fleft->prev; /* Relies on checks in bufput_append. */ + return CSEFOLD; + } else if (fleft->o == IR_BUFPUT) { + IRIns *irb = IR(fleft->op1); + if (irb->o == IR_BUFHDR && !(irb->op2 & IRBUFHDR_APPEND)) + return fleft->op2; /* Shortcut for a single put operation. */ + } + } + /* Try to CSE the whole chain. */ + if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { + IRRef ref = J->chain[IR_BUFSTR]; + while (ref) { + IRIns *irs = IR(ref), *ira = fleft, *irb = IR(irs->op1); + while (ira->o == irb->o && ira->op2 == irb->op2) { + lua_assert(ira->o == IR_BUFHDR || ira->o == IR_BUFPUT || + ira->o == IR_CALLL || ira->o == IR_CARG); + if (ira->o == IR_BUFHDR && !(ira->op2 & IRBUFHDR_APPEND)) + return ref; /* CSE succeeded. */ + if (ira->o == IR_CALLL && ira->op2 == IRCALL_lj_buf_puttab) + break; + ira = IR(ira->op1); + irb = IR(irb->op1); + } + ref = irs->prev; + } + } + return EMITFOLD; /* No CSE possible. */ +} + +LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_reverse) +LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_upper) +LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_lower) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putquoted) +LJFOLDF(bufput_kfold_op) +{ + if (irref_isk(fleft->op2)) { + const CCallInfo *ci = &lj_ir_callinfo[fins->op2]; + SBuf *sb = lj_buf_tmp_(J->L); + sb = ((SBuf * (LJ_FASTCALL *)(SBuf *, GCstr *))ci->func)(sb, + ir_kstr(IR(fleft->op2))); + fins->o = IR_BUFPUT; + fins->op1 = fleft->op1; + fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); + return RETRYFOLD; + } + return EMITFOLD; /* Always emit, CSE later. */ +} + +LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_rep) +LJFOLDF(bufput_kfold_rep) +{ + if (irref_isk(fleft->op2)) { + IRIns *irc = IR(fleft->op1); + if (irref_isk(irc->op2)) { + SBuf *sb = lj_buf_tmp_(J->L); + sb = lj_buf_putstr_rep(sb, ir_kstr(IR(irc->op2)), IR(fleft->op2)->i); + fins->o = IR_BUFPUT; + fins->op1 = irc->op1; + fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); + return RETRYFOLD; + } + } + return EMITFOLD; /* Always emit, CSE later. */ +} + +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfxint) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum_int) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum_uint) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfstr) +LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfchar) +LJFOLDF(bufput_kfold_fmt) +{ + IRIns *irc = IR(fleft->op1); + lua_assert(irref_isk(irc->op2)); /* SFormat must be const. */ + if (irref_isk(fleft->op2)) { + SFormat sf = (SFormat)IR(irc->op2)->i; + IRIns *ira = IR(fleft->op2); + SBuf *sb = lj_buf_tmp_(J->L); + switch (fins->op2) { + case IRCALL_lj_strfmt_putfxint: + sb = lj_strfmt_putfxint(sb, sf, ir_k64(ira)->u64); + break; + case IRCALL_lj_strfmt_putfstr: + sb = lj_strfmt_putfstr(sb, sf, ir_kstr(ira)); + break; + case IRCALL_lj_strfmt_putfchar: + sb = lj_strfmt_putfchar(sb, sf, ira->i); + break; + case IRCALL_lj_strfmt_putfnum_int: + case IRCALL_lj_strfmt_putfnum_uint: + case IRCALL_lj_strfmt_putfnum: + default: { + const CCallInfo *ci = &lj_ir_callinfo[fins->op2]; + sb = ((SBuf * (*)(SBuf *, SFormat, lua_Number))ci->func)(sb, sf, + ir_knum(ira)->n); + break; + } + } + fins->o = IR_BUFPUT; + fins->op1 = irc->op1; + fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); + return RETRYFOLD; + } + return EMITFOLD; /* Always emit, CSE later. */ +} + /* -- Constant folding of pointer arithmetic ------------------------------ */ LJFOLD(ADD KGC KINT) @@ -648,27 +814,22 @@ LJFOLD(CONV KNUM IRCONV_INT_NUM) LJFOLDF(kfold_conv_knum_int_num) { lua_Number n = knumleft; - if (!(fins->op2 & IRCONV_TRUNC)) { - int32_t k = lj_num2int(n); - if (irt_isguard(fins->t) && n != (lua_Number)k) { - /* We're about to create a guard which always fails, like CONV +1.5. - ** Some pathological loops cause this during LICM, e.g.: - ** local x,k,t = 0,1.5,{1,[1.5]=2} - ** for i=1,200 do x = x+ t[k]; k = k == 1 and 1.5 or 1 end - ** assert(x == 300) - */ - return FAILFOLD; - } - return INTFOLD(k); - } else { - return INTFOLD((int32_t)n); + int32_t k = lj_num2int(n); + if (irt_isguard(fins->t) && n != (lua_Number)k) { + /* We're about to create a guard which always fails, like CONV +1.5. + ** Some pathological loops cause this during LICM, e.g.: + ** local x,k,t = 0,1.5,{1,[1.5]=2} + ** for i=1,200 do x = x+ t[k]; k = k == 1 and 1.5 or 1 end + ** assert(x == 300) + */ + return FAILFOLD; } + return INTFOLD(k); } LJFOLD(CONV KNUM IRCONV_U32_NUM) LJFOLDF(kfold_conv_knum_u32_num) { - lua_assert((fins->op2 & IRCONV_TRUNC)); #ifdef _MSC_VER { /* Workaround for MSVC bug. */ volatile uint32_t u = (uint32_t)knumleft; @@ -682,27 +843,27 @@ LJFOLDF(kfold_conv_knum_u32_num) LJFOLD(CONV KNUM IRCONV_I64_NUM) LJFOLDF(kfold_conv_knum_i64_num) { - lua_assert((fins->op2 & IRCONV_TRUNC)); return INT64FOLD((uint64_t)(int64_t)knumleft); } LJFOLD(CONV KNUM IRCONV_U64_NUM) LJFOLDF(kfold_conv_knum_u64_num) { - lua_assert((fins->op2 & IRCONV_TRUNC)); return INT64FOLD(lj_num2u64(knumleft)); } -LJFOLD(TOSTR KNUM) +LJFOLD(TOSTR KNUM any) LJFOLDF(kfold_tostr_knum) { - return lj_ir_kstr(J, lj_str_fromnum(J->L, &knumleft)); + return lj_ir_kstr(J, lj_strfmt_num(J->L, ir_knum(fleft))); } -LJFOLD(TOSTR KINT) +LJFOLD(TOSTR KINT any) LJFOLDF(kfold_tostr_kint) { - return lj_ir_kstr(J, lj_str_fromint(J->L, fleft->i)); + return lj_ir_kstr(J, fins->op2 == IRTOSTR_INT ? + lj_strfmt_int(J->L, fleft->i) : + lj_strfmt_char(J->L, fleft->i)); } LJFOLD(STRTO KGC) @@ -1200,7 +1361,9 @@ static TRef simplify_intmul_k(jit_State *J, int32_t k) ** But this is mainly intended for simple address arithmetic. ** Also it's easier for the backend to optimize the original multiplies. */ - if (k == 1) { /* i * 1 ==> i */ + if (k == 0) { /* i * 0 ==> 0 */ + return RIGHTFOLD; + } else if (k == 1) { /* i * 1 ==> i */ return LEFTFOLD; } else if ((k & (k-1)) == 0) { /* i * 2^k ==> i << k */ fins->o = IR_BSHL; @@ -1213,9 +1376,7 @@ static TRef simplify_intmul_k(jit_State *J, int32_t k) LJFOLD(MUL any KINT) LJFOLDF(simplify_intmul_k32) { - if (fright->i == 0) /* i * 0 ==> 0 */ - return INTFOLD(0); - else if (fright->i > 0) + if (fright->i >= 0) return simplify_intmul_k(J, fright->i); return NEXTFOLD; } @@ -1223,14 +1384,13 @@ LJFOLDF(simplify_intmul_k32) LJFOLD(MUL any KINT64) LJFOLDF(simplify_intmul_k64) { - if (ir_kint64(fright)->u64 == 0) /* i * 0 ==> 0 */ - return INT64FOLD(0); -#if LJ_64 - /* NYI: SPLIT for BSHL and 32 bit backend support. */ - else if (ir_kint64(fright)->u64 < 0x80000000u) +#if LJ_HASFFI + if (ir_kint64(fright)->u64 < 0x80000000u) return simplify_intmul_k(J, (int32_t)ir_kint64(fright)->u64); -#endif return NEXTFOLD; +#else + UNUSED(J); lua_assert(0); return FAILFOLD; +#endif } LJFOLD(MOD any KINT) @@ -1530,7 +1690,7 @@ LJFOLD(BOR BOR KINT64) LJFOLD(BXOR BXOR KINT64) LJFOLDF(reassoc_intarith_k64) { -#if LJ_HASFFI || LJ_64 +#if LJ_HASFFI IRIns *irk = IR(fleft->op2); if (irk->o == IR_KINT64) { uint64_t k = kfold_int64arith(ir_k64(irk)->u64, @@ -1948,6 +2108,7 @@ LJFOLDF(fwd_href_tdup) ** an aliased table, as it may invalidate all of the pointers and fields. ** Only HREF needs the NEWREF check -- AREF and HREFK already depend on ** FLOADs. And NEWREF itself is treated like a store (see below). +** LREF is constant (per trace) since coroutine switches are not inlined. */ LJFOLD(FLOAD TNEW IRFL_TAB_ASIZE) LJFOLDF(fload_tab_tnew_asize) @@ -2011,6 +2172,14 @@ LJFOLDF(fload_str_len_snew) return NEXTFOLD; } +LJFOLD(FLOAD TOSTR IRFL_STR_LEN) +LJFOLDF(fload_str_len_tostr) +{ + if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && fleft->op2 == IRTOSTR_CHAR) + return INTFOLD(1); + return NEXTFOLD; +} + /* The C type ID of cdata objects is immutable. */ LJFOLD(FLOAD KGC IRFL_CDATA_CTYPEID) LJFOLDF(fload_cdata_typeid_kgc) @@ -2057,6 +2226,8 @@ LJFOLDF(fload_cdata_ptr_int64_cnew) } LJFOLD(FLOAD any IRFL_STR_LEN) +LJFOLD(FLOAD any IRFL_FUNC_ENV) +LJFOLD(FLOAD any IRFL_THREAD_ENV) LJFOLD(FLOAD any IRFL_CDATA_CTYPEID) LJFOLD(FLOAD any IRFL_CDATA_PTR) LJFOLD(FLOAD any IRFL_CDATA_INT) @@ -2122,6 +2293,17 @@ LJFOLDF(barrier_tnew_tdup) return DROPFOLD; } +/* -- Profiling ----------------------------------------------------------- */ + +LJFOLD(PROF any any) +LJFOLDF(prof) +{ + IRRef ref = J->chain[IR_PROF]; + if (ref+1 == J->cur.nins) /* Drop neighbouring IR_PROF. */ + return ref; + return EMITFOLD; +} + /* -- Stores and allocations ---------------------------------------------- */ /* Stores and allocations cannot be folded or passed on to CSE in general. @@ -2144,8 +2326,9 @@ LJFOLD(XSTORE any any) LJFOLDX(lj_opt_dse_xstore) LJFOLD(NEWREF any any) /* Treated like a store. */ -LJFOLD(CALLS any any) +LJFOLD(CALLA any any) LJFOLD(CALLL any any) /* Safeguard fallback. */ +LJFOLD(CALLS any any) LJFOLD(CALLXS any any) LJFOLD(XBAR) LJFOLD(RETF any any) /* Modifies BASE. */ @@ -2153,6 +2336,7 @@ LJFOLD(TNEW any any) LJFOLD(TDUP any) LJFOLD(CNEW any any) LJFOLD(XSNEW any any) +LJFOLD(BUFHDR any any) LJFOLDX(lj_ir_emit) /* ------------------------------------------------------------------------ */ diff --git a/src/3rd party/luajit-2.0/src/lj_opt_loop.c b/src/3rd party/luajit-2.0/src/lj_opt_loop.c index b7d1923edb7..4b4ab7dc3a3 100644 --- a/src/3rd party/luajit-2.0/src/lj_opt_loop.c +++ b/src/3rd party/luajit-2.0/src/lj_opt_loop.c @@ -11,7 +11,7 @@ #if LJ_HASJIT #include "lj_err.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_ir.h" #include "lj_jit.h" #include "lj_iropt.h" @@ -254,9 +254,16 @@ static void loop_subst_snap(jit_State *J, SnapShot *osnap, J->cur.nsnapmap = (uint16_t)(nmap - J->cur.snapmap); } +typedef struct LoopState { + jit_State *J; + IRRef1 *subst; + MSize sizesubst; +} LoopState; + /* Unroll loop. */ -static void loop_unroll(jit_State *J) +static void loop_unroll(LoopState *lps) { + jit_State *J = lps->J; IRRef1 phi[LJ_MAX_PHI]; uint32_t nphi = 0; IRRef1 *subst; @@ -265,13 +272,13 @@ static void loop_unroll(jit_State *J) SnapEntry *loopmap, *psentinel; IRRef ins, invar; - /* Use temp buffer for substitution table. + /* Allocate substitution table. ** Only non-constant refs in [REF_BIAS,invar) are valid indexes. - ** Caveat: don't call into the VM or run the GC or the buffer may be gone. */ invar = J->cur.nins; - subst = (IRRef1 *)lj_str_needbuf(J->L, &G(J->L)->tmpbuf, - (invar-REF_BIAS)*sizeof(IRRef1)) - REF_BIAS; + lps->sizesubst = invar - REF_BIAS; + lps->subst = lj_mem_newvec(J->L, lps->sizesubst, IRRef1); + subst = lps->subst - REF_BIAS; subst[REF_BASE] = REF_BASE; /* LOOP separates the pre-roll from the loop body. */ @@ -396,7 +403,7 @@ static void loop_undo(jit_State *J, IRRef ins, SnapNo nsnap, MSize nsnapmap) static TValue *cploop_opt(lua_State *L, lua_CFunction dummy, void *ud) { UNUSED(L); UNUSED(dummy); - loop_unroll((jit_State *)ud); + loop_unroll((LoopState *)ud); return NULL; } @@ -406,7 +413,13 @@ int lj_opt_loop(jit_State *J) IRRef nins = J->cur.nins; SnapNo nsnap = J->cur.nsnap; MSize nsnapmap = J->cur.nsnapmap; - int errcode = lj_vm_cpcall(J->L, NULL, J, cploop_opt); + LoopState lps; + int errcode; + lps.J = J; + lps.subst = NULL; + lps.sizesubst = 0; + errcode = lj_vm_cpcall(J->L, NULL, &lps, cploop_opt); + lj_mem_freevec(J2G(J), lps.subst, lps.sizesubst, IRRef1); if (LJ_UNLIKELY(errcode)) { lua_State *L = J->L; if (errcode == LUA_ERRRUN && tvisnumber(L->top-1)) { /* Trace error? */ diff --git a/src/3rd party/luajit-2.0/src/lj_opt_mem.c b/src/3rd party/luajit-2.0/src/lj_opt_mem.c index f4e3cd3a815..2b6fc884034 100644 --- a/src/3rd party/luajit-2.0/src/lj_opt_mem.c +++ b/src/3rd party/luajit-2.0/src/lj_opt_mem.c @@ -17,6 +17,7 @@ #include "lj_ir.h" #include "lj_jit.h" #include "lj_iropt.h" +#include "lj_ircall.h" /* Some local macros to save typing. Undef'd at the end. */ #define IR(ref) (&J->cur.ir[(ref)]) @@ -308,7 +309,21 @@ int LJ_FASTCALL lj_opt_fwd_href_nokey(jit_State *J) return 1; /* No conflict. Can fold to niltv. */ } -/* Check whether there's no aliasing NEWREF for the left operand. */ +/* Check whether there's no aliasing table.clear. */ +static int fwd_aa_tab_clear(jit_State *J, IRRef lim, IRRef ta) +{ + IRRef ref = J->chain[IR_CALLS]; + while (ref > lim) { + IRIns *calls = IR(ref); + if (calls->op2 == IRCALL_lj_tab_clear && + (ta == calls->op1 || aa_table(J, ta, calls->op1) != ALIAS_NO)) + return 0; /* Conflict. */ + ref = calls->prev; + } + return 1; /* No conflict. Can safely FOLD/CSE. */ +} + +/* Check whether there's no aliasing NEWREF/table.clear for the left operand. */ int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim) { IRRef ta = fins->op1; @@ -319,7 +334,7 @@ int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim) return 0; /* Conflict. */ ref = newref->prev; } - return 1; /* No conflict. Can safely FOLD/CSE. */ + return fwd_aa_tab_clear(J, lim, ta); } /* ASTORE/HSTORE elimination. */ @@ -853,6 +868,10 @@ TRef LJ_FASTCALL lj_opt_fwd_tab_len(jit_State *J) ref = store->prev; } + /* Search for aliasing table.clear. */ + if (!fwd_aa_tab_clear(J, lim, tab)) + return lj_ir_emit(J); + /* Try to find a matching load. Below the conflicting store, if any. */ return lj_opt_cselim(J, lim); } diff --git a/src/3rd party/luajit-2.0/src/lj_opt_narrow.c b/src/3rd party/luajit-2.0/src/lj_opt_narrow.c index b7bd32327ec..d221c30dd4f 100644 --- a/src/3rd party/luajit-2.0/src/lj_opt_narrow.c +++ b/src/3rd party/luajit-2.0/src/lj_opt_narrow.c @@ -496,8 +496,7 @@ TRef LJ_FASTCALL lj_opt_narrow_cindex(jit_State *J, TRef tr) { lua_assert(tref_isnumber(tr)); if (tref_isnum(tr)) - return emitir(IRT(IR_CONV, IRT_INTP), tr, - (IRT_INTP<<5)|IRT_NUM|IRCONV_TRUNC|IRCONV_ANY); + return emitir(IRT(IR_CONV, IRT_INTP), tr, (IRT_INTP<<5)|IRT_NUM|IRCONV_ANY); /* Undefined overflow semantics allow stripping of ADDOV, SUBOV and MULOV. */ return narrow_stripov(J, tr, IR_MULOV, LJ_64 ? ((IRT_INTP<<5)|IRT_INT|IRCONV_SEXT) : diff --git a/src/3rd party/luajit-2.0/src/lj_opt_split.c b/src/3rd party/luajit-2.0/src/lj_opt_split.c index 1cee5093b6d..81ded6c0a01 100644 --- a/src/3rd party/luajit-2.0/src/lj_opt_split.c +++ b/src/3rd party/luajit-2.0/src/lj_opt_split.c @@ -11,7 +11,7 @@ #if LJ_HASJIT && (LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) #include "lj_err.h" -#include "lj_str.h" +#include "lj_buf.h" #include "lj_ir.h" #include "lj_jit.h" #include "lj_ircall.h" @@ -139,6 +139,7 @@ static IRRef split_call_l(jit_State *J, IRRef1 *hisubst, IRIns *oir, ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); } +#endif /* Emit a CALLN with one split 64 bit argument and a 32 bit argument. */ static IRRef split_call_li(jit_State *J, IRRef1 *hisubst, IRIns *oir, @@ -155,7 +156,6 @@ static IRRef split_call_li(jit_State *J, IRRef1 *hisubst, IRIns *oir, ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); } -#endif /* Emit a CALLN with two split 64 bit arguments. */ static IRRef split_call_ll(jit_State *J, IRRef1 *hisubst, IRIns *oir, @@ -195,6 +195,118 @@ static IRRef split_ptr(jit_State *J, IRIns *oir, IRRef ref) return split_emit(J, IRTI(IR_ADD), nref, lj_ir_kint(J, ofs)); } +#if LJ_HASFFI +static IRRef split_bitshift(jit_State *J, IRRef1 *hisubst, + IRIns *oir, IRIns *nir, IRIns *ir) +{ + IROp op = ir->o; + IRRef kref = nir->op2; + if (irref_isk(kref)) { /* Optimize constant shifts. */ + int32_t k = (IR(kref)->i & 63); + IRRef lo = nir->op1, hi = hisubst[ir->op1]; + if (op == IR_BROL || op == IR_BROR) { + if (op == IR_BROR) k = (-k & 63); + if (k >= 32) { IRRef t = lo; lo = hi; hi = t; k -= 32; } + if (k == 0) { + passthrough: + J->cur.nins--; + ir->prev = lo; + return hi; + } else { + TRef k1, k2; + IRRef t1, t2, t3, t4; + J->cur.nins--; + k1 = lj_ir_kint(J, k); + k2 = lj_ir_kint(J, (-k & 31)); + t1 = split_emit(J, IRTI(IR_BSHL), lo, k1); + t2 = split_emit(J, IRTI(IR_BSHL), hi, k1); + t3 = split_emit(J, IRTI(IR_BSHR), lo, k2); + t4 = split_emit(J, IRTI(IR_BSHR), hi, k2); + ir->prev = split_emit(J, IRTI(IR_BOR), t1, t4); + return split_emit(J, IRTI(IR_BOR), t2, t3); + } + } else if (k == 0) { + goto passthrough; + } else if (k < 32) { + if (op == IR_BSHL) { + IRRef t1 = split_emit(J, IRTI(IR_BSHL), hi, kref); + IRRef t2 = split_emit(J, IRTI(IR_BSHR), lo, lj_ir_kint(J, (-k&31))); + return split_emit(J, IRTI(IR_BOR), t1, t2); + } else { + IRRef t1 = ir->prev, t2; + lua_assert(op == IR_BSHR || op == IR_BSAR); + nir->o = IR_BSHR; + t2 = split_emit(J, IRTI(IR_BSHL), hi, lj_ir_kint(J, (-k&31))); + ir->prev = split_emit(J, IRTI(IR_BOR), t1, t2); + return split_emit(J, IRTI(op), hi, kref); + } + } else { + if (op == IR_BSHL) { + if (k == 32) + J->cur.nins--; + else + lo = ir->prev; + ir->prev = lj_ir_kint(J, 0); + return lo; + } else { + lua_assert(op == IR_BSHR || op == IR_BSAR); + if (k == 32) { + J->cur.nins--; + ir->prev = hi; + } else { + nir->op1 = hi; + } + if (op == IR_BSHR) + return lj_ir_kint(J, 0); + else + return split_emit(J, IRTI(IR_BSAR), hi, lj_ir_kint(J, 31)); + } + } + } + return split_call_li(J, hisubst, oir, ir, + op - IR_BSHL + IRCALL_lj_carith_shl64); +} + +static IRRef split_bitop(jit_State *J, IRRef1 *hisubst, + IRIns *nir, IRIns *ir) +{ + IROp op = ir->o; + IRRef hi, kref = nir->op2; + if (irref_isk(kref)) { /* Optimize bit operations with lo constant. */ + int32_t k = IR(kref)->i; + if (k == 0 || k == -1) { + if (op == IR_BAND) k = ~k; + if (k == 0) { + J->cur.nins--; + ir->prev = nir->op1; + } else if (op == IR_BXOR) { + nir->o = IR_BNOT; + nir->op2 = 0; + } else { + J->cur.nins--; + ir->prev = kref; + } + } + } + hi = hisubst[ir->op1]; + kref = hisubst[ir->op2]; + if (irref_isk(kref)) { /* Optimize bit operations with hi constant. */ + int32_t k = IR(kref)->i; + if (k == 0 || k == -1) { + if (op == IR_BAND) k = ~k; + if (k == 0) { + return hi; + } else if (op == IR_BXOR) { + return split_emit(J, IRTI(IR_BNOT), hi, 0); + } else { + return kref; + } + } + } + return split_emit(J, IRTI(op), hi, kref); +} +#endif + /* Substitute references of a snapshot. */ static void split_subst_snap(jit_State *J, SnapShot *snap, IRIns *oir) { @@ -214,7 +326,7 @@ static void split_ir(jit_State *J) IRRef nins = J->cur.nins, nk = J->cur.nk; MSize irlen = nins - nk; MSize need = (irlen+1)*(sizeof(IRIns) + sizeof(IRRef1)); - IRIns *oir = (IRIns *)lj_str_needbuf(J->L, &G(J->L)->tmpbuf, need); + IRIns *oir = (IRIns *)lj_buf_tmp(J->L, need); IRRef1 *hisubst; IRRef ref, snref; SnapShot *snap; @@ -438,6 +550,19 @@ static void split_ir(jit_State *J) irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : IRCALL_lj_carith_powu64); break; + case IR_BNOT: + hi = split_emit(J, IRTI(IR_BNOT), hiref, 0); + break; + case IR_BSWAP: + ir->prev = split_emit(J, IRTI(IR_BSWAP), hiref, 0); + hi = nref; + break; + case IR_BAND: case IR_BOR: case IR_BXOR: + hi = split_bitop(J, hisubst, nir, ir); + break; + case IR_BSHL: case IR_BSHR: case IR_BSAR: case IR_BROL: case IR_BROR: + hi = split_bitshift(J, hisubst, oir, nir, ir); + break; case IR_FLOAD: lua_assert(ir->op2 == IRFL_CDATA_INT64); hi = split_emit(J, IRTI(IR_FLOAD), nir->op1, IRFL_CDATA_INT64_4); diff --git a/src/3rd party/luajit-2.0/src/lj_parse.c b/src/3rd party/luajit-2.0/src/lj_parse.c index abfac3c0c81..d3e7a1c67be 100644 --- a/src/3rd party/luajit-2.0/src/lj_parse.c +++ b/src/3rd party/luajit-2.0/src/lj_parse.c @@ -13,6 +13,7 @@ #include "lj_gc.h" #include "lj_err.h" #include "lj_debug.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_func.h" @@ -21,6 +22,7 @@ #if LJ_HASFFI #include "lj_ctype.h" #endif +#include "lj_strfmt.h" #include "lj_lex.h" #include "lj_parse.h" #include "lj_vm.h" @@ -165,12 +167,12 @@ LJ_STATIC_ASSERT((int)BC_MODVV-(int)BC_ADDVV == (int)OPR_MOD-(int)OPR_ADD); LJ_NORET LJ_NOINLINE static void err_syntax(LexState *ls, ErrMsg em) { - lj_lex_error(ls, ls->token, em); + lj_lex_error(ls, ls->tok, em); } -LJ_NORET LJ_NOINLINE static void err_token(LexState *ls, LexToken token) +LJ_NORET LJ_NOINLINE static void err_token(LexState *ls, LexToken tok) { - lj_lex_error(ls, ls->token, LJ_ERR_XTOKEN, lj_lex_token2str(ls, token)); + lj_lex_error(ls, ls->tok, LJ_ERR_XTOKEN, lj_lex_token2str(ls, tok)); } LJ_NORET static void err_limit(FuncState *fs, uint32_t limit, const char *what) @@ -660,14 +662,14 @@ static void bcemit_method(FuncState *fs, ExpDesc *e, ExpDesc *key) BCReg idx, func, obj = expr_toanyreg(fs, e); expr_free(fs, e); func = fs->freereg; - bcemit_AD(fs, BC_MOV, func+1, obj); /* Copy object to first argument. */ + bcemit_AD(fs, BC_MOV, func+1+LJ_FR2, obj); /* Copy object to 1st argument. */ lua_assert(expr_isstrk(key)); idx = const_str(fs, key); if (idx <= BCMAX_C) { - bcreg_reserve(fs, 2); + bcreg_reserve(fs, 2+LJ_FR2); bcemit_ABC(fs, BC_TGETS, func, obj, idx); } else { - bcreg_reserve(fs, 3); + bcreg_reserve(fs, 3+LJ_FR2); bcemit_AD(fs, BC_KSTR, func+2, idx); bcemit_ABC(fs, BC_TGETV, func, obj, func+2); fs->freereg--; @@ -983,7 +985,7 @@ static void bcemit_unop(FuncState *fs, BCOp op, ExpDesc *e) /* Check and consume optional token. */ static int lex_opt(LexState *ls, LexToken tok) { - if (ls->token == tok) { + if (ls->tok == tok) { lj_lex_next(ls); return 1; } @@ -993,7 +995,7 @@ static int lex_opt(LexState *ls, LexToken tok) /* Check and consume token. */ static void lex_check(LexState *ls, LexToken tok) { - if (ls->token != tok) + if (ls->tok != tok) err_token(ls, tok); lj_lex_next(ls); } @@ -1007,7 +1009,7 @@ static void lex_match(LexState *ls, LexToken what, LexToken who, BCLine line) } else { const char *swhat = lj_lex_token2str(ls, what); const char *swho = lj_lex_token2str(ls, who); - lj_lex_error(ls, ls->token, LJ_ERR_XMATCH, swhat, swho, line); + lj_lex_error(ls, ls->tok, LJ_ERR_XMATCH, swhat, swho, line); } } } @@ -1016,9 +1018,9 @@ static void lex_match(LexState *ls, LexToken what, LexToken who, BCLine line) static GCstr *lex_str(LexState *ls) { GCstr *s; - if (ls->token != TK_name && (LJ_52 || ls->token != TK_goto)) + if (ls->tok != TK_name && (LJ_52 || ls->tok != TK_goto)) err_token(ls, TK_name); - s = strV(&ls->tokenval); + s = strV(&ls->tokval); lj_lex_next(ls); return s; } @@ -1431,78 +1433,46 @@ static void fs_fixup_line(FuncState *fs, GCproto *pt, } } -/* Resize buffer if needed. */ -static LJ_NOINLINE void fs_buf_resize(LexState *ls, MSize len) -{ - MSize sz = ls->sb.sz * 2; - while (ls->sb.n + len > sz) sz = sz * 2; - lj_str_resizebuf(ls->L, &ls->sb, sz); -} - -static LJ_AINLINE void fs_buf_need(LexState *ls, MSize len) -{ - if (LJ_UNLIKELY(ls->sb.n + len > ls->sb.sz)) - fs_buf_resize(ls, len); -} - -/* Add string to buffer. */ -static void fs_buf_str(LexState *ls, const char *str, MSize len) -{ - char *p = ls->sb.buf + ls->sb.n; - MSize i; - ls->sb.n += len; - for (i = 0; i < len; i++) p[i] = str[i]; -} - -/* Add ULEB128 value to buffer. */ -static void fs_buf_uleb128(LexState *ls, uint32_t v) -{ - MSize n = ls->sb.n; - uint8_t *p = (uint8_t *)ls->sb.buf; - for (; v >= 0x80; v >>= 7) - p[n++] = (uint8_t)((v & 0x7f) | 0x80); - p[n++] = (uint8_t)v; - ls->sb.n = n; -} - /* Prepare variable info for prototype. */ static size_t fs_prep_var(LexState *ls, FuncState *fs, size_t *ofsvar) { VarInfo *vs =ls->vstack, *ve; MSize i, n; BCPos lastpc; - lj_str_resetbuf(&ls->sb); /* Copy to temp. string buffer. */ + lj_buf_reset(&ls->sb); /* Copy to temp. string buffer. */ /* Store upvalue names. */ for (i = 0, n = fs->nuv; i < n; i++) { GCstr *s = strref(vs[fs->uvmap[i]].name); MSize len = s->len+1; - fs_buf_need(ls, len); - fs_buf_str(ls, strdata(s), len); + char *p = lj_buf_more(&ls->sb, len); + p = lj_buf_wmem(p, strdata(s), len); + setsbufP(&ls->sb, p); } - *ofsvar = ls->sb.n; + *ofsvar = sbuflen(&ls->sb); lastpc = 0; /* Store local variable names and compressed ranges. */ for (ve = vs + ls->vtop, vs += fs->vbase; vs < ve; vs++) { if (!gola_isgotolabel(vs)) { GCstr *s = strref(vs->name); BCPos startpc; + char *p; if ((uintptr_t)s < VARNAME__MAX) { - fs_buf_need(ls, 1 + 2*5); - ls->sb.buf[ls->sb.n++] = (uint8_t)(uintptr_t)s; + p = lj_buf_more(&ls->sb, 1 + 2*5); + *p++ = (char)(uintptr_t)s; } else { MSize len = s->len+1; - fs_buf_need(ls, len + 2*5); - fs_buf_str(ls, strdata(s), len); + p = lj_buf_more(&ls->sb, len + 2*5); + p = lj_buf_wmem(p, strdata(s), len); } startpc = vs->startpc; - fs_buf_uleb128(ls, startpc-lastpc); - fs_buf_uleb128(ls, vs->endpc-startpc); + p = lj_strfmt_wuleb128(p, startpc-lastpc); + p = lj_strfmt_wuleb128(p, vs->endpc-startpc); + setsbufP(&ls->sb, p); lastpc = startpc; } } - fs_buf_need(ls, 1); - ls->sb.buf[ls->sb.n++] = '\0'; /* Terminator for varinfo. */ - return ls->sb.n; + lj_buf_putb(&ls->sb, '\0'); /* Terminator for varinfo. */ + return sbuflen(&ls->sb); } /* Fixup variable info for prototype. */ @@ -1510,7 +1480,7 @@ static void fs_fixup_var(LexState *ls, GCproto *pt, uint8_t *p, size_t ofsvar) { setmref(pt->uvinfo, p); setmref(pt->varinfo, (char *)p + ofsvar); - memcpy(p, ls->sb.buf, ls->sb.n); /* Copy from temp. string buffer. */ + memcpy(p, sbufB(&ls->sb), sbuflen(&ls->sb)); /* Copy from temp. buffer. */ } #else @@ -1619,7 +1589,7 @@ static GCproto *fs_finish(LexState *ls, BCLine line) L->top--; /* Pop table of constants. */ ls->vtop = fs->vbase; /* Reset variable stack. */ ls->fs = fs->prev; - lua_assert(ls->fs != NULL || ls->token == TK_eof); + lua_assert(ls->fs != NULL || ls->tok == TK_eof); return pt; } @@ -1716,10 +1686,9 @@ static void expr_bracket(LexState *ls, ExpDesc *v) static void expr_kvalue(TValue *v, ExpDesc *e) { if (e->k <= VKTRUE) { - setitype(v, ~(uint32_t)e->k); + setpriV(v, ~(uint32_t)e->k); } else if (e->k == VKSTR) { - setgcref(v->gcr, obj2gco(e->u.sval)); - setitype(v, LJ_TSTR); + setgcVraw(v, obj2gco(e->u.sval), LJ_TSTR); } else { lua_assert(tvisnumber(expr_numtv(e))); *v = *expr_numtv(e); @@ -1741,15 +1710,15 @@ static void expr_table(LexState *ls, ExpDesc *e) bcreg_reserve(fs, 1); freg++; lex_check(ls, '{'); - while (ls->token != '}') { + while (ls->tok != '}') { ExpDesc key, val; vcall = 0; - if (ls->token == '[') { + if (ls->tok == '[') { expr_bracket(ls, &key); /* Already calls expr_toval. */ if (!expr_isk(&key)) expr_index(fs, e, &key); if (expr_isnumk(&key) && expr_numiszero(&key)) needarr = 1; else nhash++; lex_check(ls, '='); - } else if ((ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) && + } else if ((ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) && lj_lex_lookahead(ls) == '=') { expr_str(ls, &key); lex_check(ls, '='); @@ -1842,11 +1811,11 @@ static BCReg parse_params(LexState *ls, int needself) lex_check(ls, '('); if (needself) var_new_lit(ls, nparams++, "self"); - if (ls->token != ')') { + if (ls->tok != ')') { do { - if (ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) { + if (ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) { var_new(ls, nparams++, lex_str(ls)); - } else if (ls->token == TK_dots) { + } else if (ls->tok == TK_dots) { lj_lex_next(ls); fs->flags |= PROTO_VARARG; break; @@ -1880,7 +1849,7 @@ static void parse_body(LexState *ls, ExpDesc *e, int needself, BCLine line) fs.bclim = pfs->bclim - pfs->pc; bcemit_AD(&fs, BC_FUNCF, 0, 0); /* Placeholder. */ parse_chunk(ls); - if (ls->token != TK_end) lex_match(ls, TK_end, TK_function, line); + if (ls->tok != TK_end) lex_match(ls, TK_end, TK_function, line); pt = fs_finish(ls, (ls->lastline = ls->linenumber)); pfs->bcbase = ls->bcstack + oldbase; /* May have been reallocated. */ pfs->bclim = (BCPos)(ls->sizebcstack - oldbase); @@ -1919,13 +1888,13 @@ static void parse_args(LexState *ls, ExpDesc *e) BCIns ins; BCReg base; BCLine line = ls->linenumber; - if (ls->token == '(') { + if (ls->tok == '(') { #if !LJ_52 if (line != ls->lastline) err_syntax(ls, LJ_ERR_XAMBIG); #endif lj_lex_next(ls); - if (ls->token == ')') { /* f(). */ + if (ls->tok == ')') { /* f(). */ args.k = VVOID; } else { expr_list(ls, &args); @@ -1933,11 +1902,11 @@ static void parse_args(LexState *ls, ExpDesc *e) setbc_b(bcptr(fs, &args), 0); /* Pass on multiple results. */ } lex_match(ls, ')', '(', line); - } else if (ls->token == '{') { + } else if (ls->tok == '{') { expr_table(ls, &args); - } else if (ls->token == TK_string) { + } else if (ls->tok == TK_string) { expr_init(&args, VKSTR, 0); - args.u.sval = strV(&ls->tokenval); + args.u.sval = strV(&ls->tokval); lj_lex_next(ls); } else { err_syntax(ls, LJ_ERR_XFUNARG); @@ -1946,11 +1915,11 @@ static void parse_args(LexState *ls, ExpDesc *e) lua_assert(e->k == VNONRELOC); base = e->u.s.info; /* Base register for call. */ if (args.k == VCALL) { - ins = BCINS_ABC(BC_CALLM, base, 2, args.u.s.aux - base - 1); + ins = BCINS_ABC(BC_CALLM, base, 2, args.u.s.aux - base - 1 - LJ_FR2); } else { if (args.k != VVOID) expr_tonextreg(fs, &args); - ins = BCINS_ABC(BC_CALL, base, 2, fs->freereg - base); + ins = BCINS_ABC(BC_CALL, base, 2, fs->freereg - base - LJ_FR2); } expr_init(e, VCALL, bcemit_INS(fs, ins)); e->u.s.aux = base; @@ -1963,33 +1932,34 @@ static void expr_primary(LexState *ls, ExpDesc *v) { FuncState *fs = ls->fs; /* Parse prefix expression. */ - if (ls->token == '(') { + if (ls->tok == '(') { BCLine line = ls->linenumber; lj_lex_next(ls); expr(ls, v); lex_match(ls, ')', '(', line); expr_discharge(ls->fs, v); - } else if (ls->token == TK_name || (!LJ_52 && ls->token == TK_goto)) { + } else if (ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) { var_lookup(ls, v); } else { err_syntax(ls, LJ_ERR_XSYMBOL); } for (;;) { /* Parse multiple expression suffixes. */ - if (ls->token == '.') { + if (ls->tok == '.') { expr_field(ls, v); - } else if (ls->token == '[') { + } else if (ls->tok == '[') { ExpDesc key; expr_toanyreg(fs, v); expr_bracket(ls, &key); expr_index(fs, v, &key); - } else if (ls->token == ':') { + } else if (ls->tok == ':') { ExpDesc key; lj_lex_next(ls); expr_str(ls, &key); bcemit_method(fs, v, &key); parse_args(ls, v); - } else if (ls->token == '(' || ls->token == TK_string || ls->token == '{') { + } else if (ls->tok == '(' || ls->tok == TK_string || ls->tok == '{') { expr_tonextreg(fs, v); + if (LJ_FR2) bcreg_reserve(fs, 1); parse_args(ls, v); } else { break; @@ -2000,14 +1970,14 @@ static void expr_primary(LexState *ls, ExpDesc *v) /* Parse simple expression. */ static void expr_simple(LexState *ls, ExpDesc *v) { - switch (ls->token) { + switch (ls->tok) { case TK_number: - expr_init(v, (LJ_HASFFI && tviscdata(&ls->tokenval)) ? VKCDATA : VKNUM, 0); - copyTV(ls->L, &v->u.nval, &ls->tokenval); + expr_init(v, (LJ_HASFFI && tviscdata(&ls->tokval)) ? VKCDATA : VKNUM, 0); + copyTV(ls->L, &v->u.nval, &ls->tokval); break; case TK_string: expr_init(v, VKSTR, 0); - v->u.sval = strV(&ls->tokenval); + v->u.sval = strV(&ls->tokval); break; case TK_nil: expr_init(v, VKNIL, 0); @@ -2095,11 +2065,11 @@ static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit); static void expr_unop(LexState *ls, ExpDesc *v) { BCOp op; - if (ls->token == TK_not) { + if (ls->tok == TK_not) { op = BC_NOT; - } else if (ls->token == '-') { + } else if (ls->tok == '-') { op = BC_UNM; - } else if (ls->token == '#') { + } else if (ls->tok == '#') { op = BC_LEN; } else { expr_simple(ls, v); @@ -2116,7 +2086,7 @@ static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit) BinOpr op; synlevel_begin(ls); expr_unop(ls, v); - op = token2binop(ls->token); + op = token2binop(ls->tok); while (op != OPR_NOBINOPR && priority[op].left > limit) { ExpDesc v2; BinOpr nextop; @@ -2305,9 +2275,9 @@ static void parse_func(LexState *ls, BCLine line) lj_lex_next(ls); /* Skip 'function'. */ /* Parse function name. */ var_lookup(ls, &v); - while (ls->token == '.') /* Multiple dot-separated fields. */ + while (ls->tok == '.') /* Multiple dot-separated fields. */ expr_field(ls, &v); - if (ls->token == ':') { /* Optional colon to signify method call. */ + if (ls->tok == ':') { /* Optional colon to signify method call. */ needself = 1; expr_field(ls, &v); } @@ -2320,9 +2290,9 @@ static void parse_func(LexState *ls, BCLine line) /* -- Control transfer statements ----------------------------------------- */ /* Check for end of block. */ -static int endofblock(LexToken token) +static int parse_isend(LexToken tok) { - switch (token) { + switch (tok) { case TK_else: case TK_elseif: case TK_end: case TK_until: case TK_eof: return 1; default: @@ -2337,7 +2307,7 @@ static void parse_return(LexState *ls) FuncState *fs = ls->fs; lj_lex_next(ls); /* Skip 'return'. */ fs->flags |= PROTO_HAS_RETURN; - if (endofblock(ls->token) || ls->token == ';') { /* Bare return. */ + if (parse_isend(ls->tok) || ls->tok == ';') { /* Bare return. */ ins = BCINS_AD(BC_RET0, 0, 1); } else { /* Return with one or more values. */ ExpDesc e; /* Receives the _last_ expression in the list. */ @@ -2403,18 +2373,18 @@ static void parse_label(LexState *ls) lex_check(ls, TK_label); /* Recursively parse trailing statements: labels and ';' (Lua 5.2 only). */ for (;;) { - if (ls->token == TK_label) { + if (ls->tok == TK_label) { synlevel_begin(ls); parse_label(ls); synlevel_end(ls); - } else if (LJ_52 && ls->token == ';') { + } else if (LJ_52 && ls->tok == ';') { lj_lex_next(ls); } else { break; } } /* Trailing label is considered to be outside of scope. */ - if (endofblock(ls->token) && ls->token != TK_until) + if (parse_isend(ls->tok) && ls->tok != TK_until) ls->vstack[idx].slot = fs->bl->nactvar; gola_resolve(ls, fs->bl, idx); } @@ -2570,7 +2540,8 @@ static void parse_for_iter(LexState *ls, GCstr *indexname) lex_check(ls, TK_in); line = ls->linenumber; assign_adjust(ls, 3, expr_list(ls, &e), &e); - bcreg_bump(fs, 3); /* The iterator needs another 3 slots (func + 2 args). */ + /* The iterator needs another 3 [4] slots (func [pc] | state ctl). */ + bcreg_bump(fs, 3+LJ_FR2); isnext = (nvars <= 5 && predict_next(ls, fs, exprpc)); var_add(ls, 3); /* Hidden control variables. */ lex_check(ls, TK_do); @@ -2598,9 +2569,9 @@ static void parse_for(LexState *ls, BCLine line) fscope_begin(fs, &bl, FSCOPE_LOOP); lj_lex_next(ls); /* Skip 'for'. */ varname = lex_str(ls); /* Get first variable name. */ - if (ls->token == '=') + if (ls->tok == '=') parse_for_num(ls, varname, line); - else if (ls->token == ',' || ls->token == TK_in) + else if (ls->tok == ',' || ls->tok == TK_in) parse_for_iter(ls, varname); else err_syntax(ls, LJ_ERR_XFOR); @@ -2626,12 +2597,12 @@ static void parse_if(LexState *ls, BCLine line) BCPos flist; BCPos escapelist = NO_JMP; flist = parse_then(ls); - while (ls->token == TK_elseif) { /* Parse multiple 'elseif' blocks. */ + while (ls->tok == TK_elseif) { /* Parse multiple 'elseif' blocks. */ jmp_append(fs, &escapelist, bcemit_jmp(fs)); jmp_tohere(fs, flist); flist = parse_then(ls); } - if (ls->token == TK_else) { /* Parse optional 'else' block. */ + if (ls->tok == TK_else) { /* Parse optional 'else' block. */ jmp_append(fs, &escapelist, bcemit_jmp(fs)); jmp_tohere(fs, flist); lj_lex_next(ls); /* Skip 'else'. */ @@ -2649,7 +2620,7 @@ static void parse_if(LexState *ls, BCLine line) static int parse_stmt(LexState *ls) { BCLine line = ls->linenumber; - switch (ls->token) { + switch (ls->tok) { case TK_if: parse_if(ls, line); break; @@ -2707,7 +2678,7 @@ static void parse_chunk(LexState *ls) { int islast = 0; synlevel_begin(ls); - while (!islast && !endofblock(ls->token)) { + while (!islast && !parse_isend(ls->tok)) { islast = parse_stmt(ls); lex_opt(ls, ';'); lua_assert(ls->fs->framesize >= ls->fs->freereg && @@ -2742,7 +2713,7 @@ GCproto *lj_parse(LexState *ls) bcemit_AD(&fs, BC_FUNCV, 0, 0); /* Placeholder. */ lj_lex_next(ls); /* Read-ahead first token. */ parse_chunk(ls); - if (ls->token != TK_eof) + if (ls->tok != TK_eof) err_token(ls, TK_eof); pt = fs_finish(ls, ls->linenumber); L->top--; /* Drop chunkname. */ diff --git a/src/3rd party/luajit-2.0/src/lj_profile.c b/src/3rd party/luajit-2.0/src/lj_profile.c new file mode 100644 index 00000000000..01367014122 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_profile.c @@ -0,0 +1,368 @@ +/* +** Low-overhead profiling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_profile_c +#define LUA_CORE + +#include "lj_obj.h" + +#if LJ_HASPROFILE + +#include "lj_buf.h" +#include "lj_frame.h" +#include "lj_debug.h" +#include "lj_dispatch.h" +#if LJ_HASJIT +#include "lj_jit.h" +#include "lj_trace.h" +#endif +#include "lj_profile.h" + +#include "luajit.h" + +#if LJ_PROFILE_SIGPROF + +#include +#include +#define profile_lock(ps) UNUSED(ps) +#define profile_unlock(ps) UNUSED(ps) + +#elif LJ_PROFILE_PTHREAD + +#include +#include +#if LJ_TARGET_PS3 +#include +#endif +#define profile_lock(ps) pthread_mutex_lock(&ps->lock) +#define profile_unlock(ps) pthread_mutex_unlock(&ps->lock) + +#elif LJ_PROFILE_WTHREAD + +#define WIN32_LEAN_AND_MEAN +#if LJ_TARGET_XBOX360 +#include +#include +#else +#include +#endif +typedef unsigned int (WINAPI *WMM_TPFUNC)(unsigned int); +#define profile_lock(ps) EnterCriticalSection(&ps->lock) +#define profile_unlock(ps) LeaveCriticalSection(&ps->lock) + +#endif + +/* Profiler state. */ +typedef struct ProfileState { + global_State *g; /* VM state that started the profiler. */ + luaJIT_profile_callback cb; /* Profiler callback. */ + void *data; /* Profiler callback data. */ + SBuf sb; /* String buffer for stack dumps. */ + int interval; /* Sample interval in milliseconds. */ + int samples; /* Number of samples for next callback. */ + int vmstate; /* VM state when profile timer triggered. */ +#if LJ_PROFILE_SIGPROF + struct sigaction oldsa; /* Previous SIGPROF state. */ +#elif LJ_PROFILE_PTHREAD + pthread_mutex_t lock; /* g->hookmask update lock. */ + pthread_t thread; /* Timer thread. */ + int abort; /* Abort timer thread. */ +#elif LJ_PROFILE_WTHREAD +#if LJ_TARGET_WINDOWS + HINSTANCE wmm; /* WinMM library handle. */ + WMM_TPFUNC wmm_tbp; /* WinMM timeBeginPeriod function. */ + WMM_TPFUNC wmm_tep; /* WinMM timeEndPeriod function. */ +#endif + CRITICAL_SECTION lock; /* g->hookmask update lock. */ + HANDLE thread; /* Timer thread. */ + int abort; /* Abort timer thread. */ +#endif +} ProfileState; + +/* Sadly, we have to use a static profiler state. +** +** The SIGPROF variant needs a static pointer to the global state, anyway. +** And it would be hard to extend for multiple threads. You can still use +** multiple VMs in multiple threads, but only profile one at a time. +*/ +static ProfileState profile_state; + +/* Default sample interval in milliseconds. */ +#define LJ_PROFILE_INTERVAL_DEFAULT 10 + +/* -- Profiler/hook interaction ------------------------------------------- */ + +#if !LJ_PROFILE_SIGPROF +void LJ_FASTCALL lj_profile_hook_enter(global_State *g) +{ + ProfileState *ps = &profile_state; + if (ps->g) { + profile_lock(ps); + hook_enter(g); + profile_unlock(ps); + } else { + hook_enter(g); + } +} + +void LJ_FASTCALL lj_profile_hook_leave(global_State *g) +{ + ProfileState *ps = &profile_state; + if (ps->g) { + profile_lock(ps); + hook_leave(g); + profile_unlock(ps); + } else { + hook_leave(g); + } +} +#endif + +/* -- Profile callbacks --------------------------------------------------- */ + +/* Callback from profile hook (HOOK_PROFILE already cleared). */ +void LJ_FASTCALL lj_profile_interpreter(lua_State *L) +{ + ProfileState *ps = &profile_state; + global_State *g = G(L); + uint8_t mask; + profile_lock(ps); + mask = (g->hookmask & ~HOOK_PROFILE); + if (!(mask & HOOK_VMEVENT)) { + int samples = ps->samples; + ps->samples = 0; + g->hookmask = HOOK_VMEVENT; + lj_dispatch_update(g); + profile_unlock(ps); + ps->cb(ps->data, L, samples, ps->vmstate); /* Invoke user callback. */ + profile_lock(ps); + mask |= (g->hookmask & HOOK_PROFILE); + } + g->hookmask = mask; + lj_dispatch_update(g); + profile_unlock(ps); +} + +/* Trigger profile hook. Asynchronous call from OS-specific profile timer. */ +static void profile_trigger(ProfileState *ps) +{ + global_State *g = ps->g; + uint8_t mask; + profile_lock(ps); + ps->samples++; /* Always increment number of samples. */ + mask = g->hookmask; + if (!(mask & (HOOK_PROFILE|HOOK_VMEVENT))) { /* Set profile hook. */ + int st = g->vmstate; + ps->vmstate = st >= 0 ? 'N' : + st == ~LJ_VMST_INTERP ? 'I' : + st == ~LJ_VMST_C ? 'C' : + st == ~LJ_VMST_GC ? 'G' : 'J'; + g->hookmask = (mask | HOOK_PROFILE); + lj_dispatch_update(g); + } + profile_unlock(ps); +} + +/* -- OS-specific profile timer handling ---------------------------------- */ + +#if LJ_PROFILE_SIGPROF + +/* SIGPROF handler. */ +static void profile_signal(int sig) +{ + UNUSED(sig); + profile_trigger(&profile_state); +} + +/* Start profiling timer. */ +static void profile_timer_start(ProfileState *ps) +{ + int interval = ps->interval; + struct itimerval tm; + struct sigaction sa; + tm.it_value.tv_sec = tm.it_interval.tv_sec = interval / 1000; + tm.it_value.tv_usec = tm.it_interval.tv_usec = (interval % 1000) * 1000; + setitimer(ITIMER_PROF, &tm, NULL); + sa.sa_flags = SA_RESTART; + sa.sa_handler = profile_signal; + sigemptyset(&sa.sa_mask); + sigaction(SIGPROF, &sa, &ps->oldsa); +} + +/* Stop profiling timer. */ +static void profile_timer_stop(ProfileState *ps) +{ + struct itimerval tm; + tm.it_value.tv_sec = tm.it_interval.tv_sec = 0; + tm.it_value.tv_usec = tm.it_interval.tv_usec = 0; + setitimer(ITIMER_PROF, &tm, NULL); + sigaction(SIGPROF, &ps->oldsa, NULL); +} + +#elif LJ_PROFILE_PTHREAD + +/* POSIX timer thread. */ +static void *profile_thread(ProfileState *ps) +{ + int interval = ps->interval; +#if !LJ_TARGET_PS3 + struct timespec ts; + ts.tv_sec = interval / 1000; + ts.tv_nsec = (interval % 1000) * 1000000; +#endif + while (1) { +#if LJ_TARGET_PS3 + sys_timer_usleep(interval * 1000); +#else + nanosleep(&ts, NULL); +#endif + if (ps->abort) break; + profile_trigger(ps); + } + return NULL; +} + +/* Start profiling timer thread. */ +static void profile_timer_start(ProfileState *ps) +{ + pthread_mutex_init(&ps->lock, 0); + ps->abort = 0; + pthread_create(&ps->thread, NULL, (void *(*)(void *))profile_thread, ps); +} + +/* Stop profiling timer thread. */ +static void profile_timer_stop(ProfileState *ps) +{ + ps->abort = 1; + pthread_join(ps->thread, NULL); + pthread_mutex_destroy(&ps->lock); +} + +#elif LJ_PROFILE_WTHREAD + +/* Windows timer thread. */ +static DWORD WINAPI profile_thread(void *psx) +{ + ProfileState *ps = (ProfileState *)psx; + int interval = ps->interval; +#if LJ_TARGET_WINDOWS + ps->wmm_tbp(interval); +#endif + while (1) { + Sleep(interval); + if (ps->abort) break; + profile_trigger(ps); + } +#if LJ_TARGET_WINDOWS + ps->wmm_tep(interval); +#endif + return 0; +} + +/* Start profiling timer thread. */ +static void profile_timer_start(ProfileState *ps) +{ +#if LJ_TARGET_WINDOWS + if (!ps->wmm) { /* Load WinMM library on-demand. */ + ps->wmm = LoadLibraryA("winmm.dll"); + if (ps->wmm) { + ps->wmm_tbp = (WMM_TPFUNC)GetProcAddress(ps->wmm, "timeBeginPeriod"); + ps->wmm_tep = (WMM_TPFUNC)GetProcAddress(ps->wmm, "timeEndPeriod"); + if (!ps->wmm_tbp || !ps->wmm_tep) { + ps->wmm = NULL; + return; + } + } + } +#endif + InitializeCriticalSection(&ps->lock); + ps->abort = 0; + ps->thread = CreateThread(NULL, 0, profile_thread, ps, 0, NULL); +} + +/* Stop profiling timer thread. */ +static void profile_timer_stop(ProfileState *ps) +{ + ps->abort = 1; + WaitForSingleObject(ps->thread, INFINITE); + DeleteCriticalSection(&ps->lock); +} + +#endif + +/* -- Public profiling API ------------------------------------------------ */ + +/* Start profiling. */ +LUA_API void luaJIT_profile_start(lua_State *L, const char *mode, + luaJIT_profile_callback cb, void *data) +{ + ProfileState *ps = &profile_state; + int interval = LJ_PROFILE_INTERVAL_DEFAULT; + while (*mode) { + int m = *mode++; + switch (m) { + case 'i': + interval = 0; + while (*mode >= '0' && *mode <= '9') + interval = interval * 10 + (*mode++ - '0'); + if (interval <= 0) interval = 1; + break; +#if LJ_HASJIT + case 'l': case 'f': + L2J(L)->prof_mode = m; + lj_trace_flushall(L); + break; +#endif + default: /* Ignore unknown mode chars. */ + break; + } + } + if (ps->g) { + luaJIT_profile_stop(L); + if (ps->g) return; /* Profiler in use by another VM. */ + } + ps->g = G(L); + ps->interval = interval; + ps->cb = cb; + ps->data = data; + ps->samples = 0; + lj_buf_init(L, &ps->sb); + profile_timer_start(ps); +} + +/* Stop profiling. */ +LUA_API void luaJIT_profile_stop(lua_State *L) +{ + ProfileState *ps = &profile_state; + global_State *g = ps->g; + if (G(L) == g) { /* Only stop profiler if started by this VM. */ + profile_timer_stop(ps); + g->hookmask &= ~HOOK_PROFILE; + lj_dispatch_update(g); +#if LJ_HASJIT + G2J(g)->prof_mode = 0; + lj_trace_flushall(L); +#endif + lj_buf_free(g, &ps->sb); + setmref(ps->sb.b, NULL); + setmref(ps->sb.e, NULL); + ps->g = NULL; + } +} + +/* Return a compact stack dump. */ +LUA_API const char *luaJIT_profile_dumpstack(lua_State *L, const char *fmt, + int depth, size_t *len) +{ + ProfileState *ps = &profile_state; + SBuf *sb = &ps->sb; + setsbufL(sb, L); + lj_buf_reset(sb); + lj_debug_dumpstack(L, sb, fmt, depth); + *len = (size_t)sbuflen(sb); + return sbufB(sb); +} + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_profile.h b/src/3rd party/luajit-2.0/src/lj_profile.h new file mode 100644 index 00000000000..26cb9db380c --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_profile.h @@ -0,0 +1,21 @@ +/* +** Low-overhead profiling. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_PROFILE_H +#define _LJ_PROFILE_H + +#include "lj_obj.h" + +#if LJ_HASPROFILE + +LJ_FUNC void LJ_FASTCALL lj_profile_interpreter(lua_State *L); +#if !LJ_PROFILE_SIGPROF +LJ_FUNC void LJ_FASTCALL lj_profile_hook_enter(global_State *g); +LJ_FUNC void LJ_FASTCALL lj_profile_hook_leave(global_State *g); +#endif + +#endif + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_record.c b/src/3rd party/luajit-2.0/src/lj_record.c index 19f17639303..04a4c73c8f6 100644 --- a/src/3rd party/luajit-2.0/src/lj_record.c +++ b/src/3rd party/luajit-2.0/src/lj_record.c @@ -20,6 +20,9 @@ #endif #include "lj_bc.h" #include "lj_ff.h" +#if LJ_HASPROFILE +#include "lj_debug.h" +#endif #include "lj_ir.h" #include "lj_jit.h" #include "lj_ircall.h" @@ -230,7 +233,7 @@ static void canonicalize_slots(jit_State *J) } /* Stop recording. */ -static void rec_stop(jit_State *J, TraceLink linktype, TraceNo lnk) +void lj_record_stop(jit_State *J, TraceLink linktype, TraceNo lnk) { lj_trace_end(J); J->cur.linktype = (uint8_t)linktype; @@ -499,8 +502,8 @@ static LoopEvent rec_for(jit_State *J, const BCIns *fori, int isforl) static LoopEvent rec_iterl(jit_State *J, const BCIns iterins) { BCReg ra = bc_a(iterins); - lua_assert(J->base[ra] != 0); - if (!tref_isnil(J->base[ra])) { /* Looping back? */ + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ + if (!tref_isnil(getslot(J, ra))) { /* Looping back? */ J->base[ra-1] = J->base[ra]; /* Copy result of ITERC to control var. */ J->maxslot = ra-1+bc_b(J->pc[-1]); J->pc += bc_j(iterins)+1; @@ -538,12 +541,12 @@ static int innerloopleft(jit_State *J, const BCIns *pc) /* Handle the case when an interpreted loop op is hit. */ static void rec_loop_interp(jit_State *J, const BCIns *pc, LoopEvent ev) { - if (J->parent == 0) { + if (J->parent == 0 && J->exitno == 0) { if (pc == J->startpc && J->framedepth + J->retdepth == 0) { /* Same loop? */ if (ev == LOOPEV_LEAVE) /* Must loop back to form a root trace. */ lj_trace_err(J, LJ_TRERR_LLEAVE); - rec_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Looping root trace. */ + lj_record_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Looping trace. */ } else if (ev != LOOPEV_LEAVE) { /* Entering inner loop? */ /* It's usually better to abort here and wait until the inner loop ** is traced. But if the inner loop repeatedly didn't loop back, @@ -568,18 +571,64 @@ static void rec_loop_interp(jit_State *J, const BCIns *pc, LoopEvent ev) /* Handle the case when an already compiled loop op is hit. */ static void rec_loop_jit(jit_State *J, TraceNo lnk, LoopEvent ev) { - if (J->parent == 0) { /* Root trace hit an inner loop. */ + if (J->parent == 0 && J->exitno == 0) { /* Root trace hit an inner loop. */ /* Better let the inner loop spawn a side trace back here. */ lj_trace_err(J, LJ_TRERR_LINNER); } else if (ev != LOOPEV_LEAVE) { /* Side trace enters a compiled loop. */ J->instunroll = 0; /* Cannot continue across a compiled loop op. */ if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) - rec_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Form an extra loop. */ + lj_record_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Form extra loop. */ else - rec_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the loop. */ + lj_record_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the loop. */ } /* Side trace continues across a loop that's left or not entered. */ } +/* -- Record profiler hook checks ----------------------------------------- */ + +#if LJ_HASPROFILE + +/* Need to insert profiler hook check? */ +static int rec_profile_need(jit_State *J, GCproto *pt, const BCIns *pc) +{ + GCproto *ppt; + lua_assert(J->prof_mode == 'f' || J->prof_mode == 'l'); + if (!pt) + return 0; + ppt = J->prev_pt; + J->prev_pt = pt; + if (pt != ppt && ppt) { + J->prev_line = -1; + return 1; + } + if (J->prof_mode == 'l') { + BCLine line = lj_debug_line(pt, proto_bcpos(pt, pc)); + BCLine pline = J->prev_line; + J->prev_line = line; + if (pline != line) + return 1; + } + return 0; +} + +static void rec_profile_ins(jit_State *J, const BCIns *pc) +{ + if (J->prof_mode && rec_profile_need(J, J->pt, pc)) { + emitir(IRTG(IR_PROF, IRT_NIL), 0, 0); + lj_snap_add(J); + } +} + +static void rec_profile_ret(jit_State *J) +{ + if (J->prof_mode == 'f') { + emitir(IRTG(IR_PROF, IRT_NIL), 0, 0); + J->prev_pt = NULL; + lj_snap_add(J); + } +} + +#endif + /* -- Record calls and returns -------------------------------------------- */ /* Specialize to the runtime value of the called function or its prototype. */ @@ -595,6 +644,21 @@ static TRef rec_call_specialize(jit_State *J, GCfunc *fn, TRef tr) (void)lj_ir_kgc(J, obj2gco(pt), IRT_PROTO); /* Prevent GC of proto. */ return tr; } + } else { + /* Don't specialize to non-monomorphic builtins. */ + switch (fn->c.ffid) { + case FF_coroutine_wrap_aux: + case FF_string_gmatch_aux: + /* NYI: io_file_iter doesn't have an ffid, yet. */ + { /* Specialize to the ffid. */ + TRef trid = emitir(IRT(IR_FLOAD, IRT_U8), tr, IRFL_FUNC_FFID); + emitir(IRTG(IR_EQ, IRT_INT), trid, lj_ir_kint(J, fn->c.ffid)); + } + return tr; + default: + /* NYI: don't specialize to non-monomorphic C functions. */ + break; + } } /* Otherwise specialize to the function (closure) value itself. */ kfunc = lj_ir_kfunc(J, fn); @@ -609,6 +673,7 @@ static void rec_call_setup(jit_State *J, BCReg func, ptrdiff_t nargs) TValue *functv = &J->L->base[func]; TRef *fbase = &J->base[func]; ptrdiff_t i; + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ for (i = 0; i <= nargs; i++) (void)getslot(J, func+i); /* Ensure func and all args have a reference. */ if (!tref_isfunc(fbase[0])) { /* Resolve __call metamethod. */ @@ -678,6 +743,8 @@ static int check_downrec_unroll(jit_State *J, GCproto *pt) return 0; } +static TRef rec_cat(jit_State *J, BCReg baseslot, BCReg topslot); + /* Record return. */ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) { @@ -700,12 +767,13 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) /* Return to lower frame via interpreter for unhandled cases. */ if (J->framedepth == 0 && J->pt && bc_isret(bc_op(*J->pc)) && (!frame_islua(frame) || - (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))))) { + (J->parent == 0 && J->exitno == 0 && + !bc_isret(bc_op(J->cur.startins))))) { /* NYI: specialize to frame type and return directly, not via RET*. */ for (i = 0; i < (ptrdiff_t)rbase; i++) J->base[i] = 0; /* Purge dead slots. */ J->maxslot = rbase + (BCReg)gotresults; - rec_stop(J, LJ_TRLINK_RETURN, 0); /* Return to interpreter. */ + lj_record_stop(J, LJ_TRLINK_RETURN, 0); /* Return to interpreter. */ return; } if (frame_isvarg(frame)) { @@ -722,14 +790,15 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) BCIns callins = *(frame_pc(frame)-1); ptrdiff_t nresults = bc_b(callins) ? (ptrdiff_t)bc_b(callins)-1 :gotresults; BCReg cbase = bc_a(callins); - GCproto *pt = funcproto(frame_func(frame - (cbase+1))); + GCproto *pt = funcproto(frame_func(frame - (cbase+1-LJ_FR2))); + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame teardown. */ if ((pt->flags & PROTO_NOJIT)) lj_trace_err(J, LJ_TRERR_CJITOFF); if (J->framedepth == 0 && J->pt && frame == J->L->base - 1) { if (check_downrec_unroll(J, pt)) { J->maxslot = (BCReg)(rbase + gotresults); lj_snap_purge(J); - rec_stop(J, LJ_TRLINK_DOWNREC, J->cur.traceno); /* Down-recursion. */ + lj_record_stop(J, LJ_TRLINK_DOWNREC, J->cur.traceno); /* Down-rec. */ return; } lj_snap_add(J); @@ -742,7 +811,8 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) lua_assert(J->baseslot > cbase+1); J->baseslot -= cbase+1; J->base -= cbase+1; - } else if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) { + } else if (J->parent == 0 && J->exitno == 0 && + !bc_isret(bc_op(J->cur.startins))) { /* Return to lower frame would leave the loop in a root trace. */ lj_trace_err(J, LJ_TRERR_LLEAVE); } else { /* Return to lower frame. Guard for the target we return to. */ @@ -772,7 +842,24 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) } else if (cont == lj_cont_nop) { /* Nothing to do here. */ } else if (cont == lj_cont_cat) { - lua_assert(0); + BCReg bslot = bc_b(*(frame_contpc(frame)-1)); + TRef tr = gotresults ? J->base[cbase+rbase] : TREF_NIL; + if (bslot != cbase-2) { /* Concatenate the remainder. */ + TValue *b = J->L->base, save; /* Simulate lower frame and result. */ + J->base[cbase-2] = tr; + copyTV(J->L, &save, b-2); + if (gotresults) copyTV(J->L, b-2, b+rbase); else setnilV(b-2); + J->L->base = b - cbase; + tr = rec_cat(J, bslot, cbase-2); + b = J->L->base + cbase; /* Undo. */ + J->L->base = b; + copyTV(J->L, b-2, &save); + } + if (tr) { /* Store final result. */ + BCReg dst = bc_a(*(frame_contpc(frame)-1)); + J->base[dst] = tr; + if (dst >= J->maxslot) J->maxslot = dst+1; + } /* Otherwise continue with another __concat call. */ } else { /* Result type already specialized. */ lua_assert(cont == lj_cont_condf || cont == lj_cont_condt); @@ -788,13 +875,11 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) /* Prepare to record call to metamethod. */ static BCReg rec_mm_prep(jit_State *J, ASMFunction cont) { - BCReg s, top = curr_proto(J->L)->framesize; - TRef trcont; - setcont(&J->L->base[top], cont); + BCReg s, top = cont == lj_cont_cat ? J->maxslot : curr_proto(J->L)->framesize; #if LJ_64 - trcont = lj_ir_kptr(J, (void *)((int64_t)cont - (int64_t)lj_vm_asm_begin)); + TRef trcont = lj_ir_kptr(J, (void *)((int64_t)cont-(int64_t)lj_vm_asm_begin)); #else - trcont = lj_ir_kptr(J, (void *)cont); + TRef trcont = lj_ir_kptr(J, (void *)cont); #endif J->base[top] = trcont | TREF_CONT; J->framedepth++; @@ -875,7 +960,7 @@ int lj_record_mm_lookup(jit_State *J, RecordIndex *ix, MMS mm) static TRef rec_mm_arith(jit_State *J, RecordIndex *ix, MMS mm) { /* Set up metamethod call first to save ix->tab and ix->tabv. */ - BCReg func = rec_mm_prep(J, lj_cont_ra); + BCReg func = rec_mm_prep(J, mm == MM_concat ? lj_cont_cat : lj_cont_ra); TRef *base = J->base + func; TValue *basev = J->L->base + func; base[1] = ix->tab; base[2] = ix->key; @@ -891,6 +976,7 @@ static TRef rec_mm_arith(jit_State *J, RecordIndex *ix, MMS mm) lj_trace_err(J, LJ_TRERR_NOMM); } ok: + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ base[0] = ix->mobj; copyTV(J->L, basev+0, &ix->mobjv); lj_record_call(J, func, 2); @@ -907,6 +993,7 @@ static TRef rec_mm_len(jit_State *J, TRef tr, TValue *tv) BCReg func = rec_mm_prep(J, lj_cont_ra); TRef *base = J->base + func; TValue *basev = J->L->base + func; + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ base[0] = ix.mobj; copyTV(J->L, basev+0, &ix.mobjv); base[1] = tr; copyTV(J->L, basev+1, tv); #if LJ_52 @@ -929,6 +1016,7 @@ static void rec_mm_callcomp(jit_State *J, RecordIndex *ix, int op) BCReg func = rec_mm_prep(J, (op&1) ? lj_cont_condf : lj_cont_condt); TRef *base = J->base + func; TValue *tv = J->L->base + func; + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ base[0] = ix->mobj; base[1] = ix->val; base[2] = ix->key; copyTV(J->L, tv+0, &ix->mobjv); copyTV(J->L, tv+1, &ix->valv); @@ -1076,11 +1164,12 @@ static void rec_idx_abc(jit_State *J, TRef asizeref, TRef ikey, uint32_t asize) } /* Record indexed key lookup. */ -static TRef rec_idx_key(jit_State *J, RecordIndex *ix) +static TRef rec_idx_key(jit_State *J, RecordIndex *ix, IRRef *rbref) { TRef key; GCtab *t = tabV(&ix->tabv); ix->oldv = lj_tab_get(J->L, t, &ix->keyv); /* Lookup previous value. */ + *rbref = 0; /* Integer keys are looked up in the array part first. */ key = ix->key; @@ -1130,8 +1219,9 @@ static TRef rec_idx_key(jit_State *J, RecordIndex *ix) MSize hslot = (MSize)((char *)ix->oldv - (char *)&noderef(t->node)[0].val); if (t->hmask > 0 && hslot <= t->hmask*(MSize)sizeof(Node) && hslot <= 65535*(MSize)sizeof(Node)) { - TRef node, kslot; - TRef hm = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); + TRef node, kslot, hm; + *rbref = J->cur.nins; /* Mark possible rollback point. */ + hm = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); emitir(IRTGI(IR_EQ), hm, lj_ir_kint(J, (int32_t)t->hmask)); node = emitir(IRT(IR_FLOAD, IRT_P32), ix->tab, IRFL_TAB_NODE); kslot = lj_ir_kslot(J, key, hslot / sizeof(Node)); @@ -1164,6 +1254,7 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) { TRef xref; IROp xrefop, loadop; + IRRef rbref; cTValue *oldv; while (!tref_istab(ix->tab)) { /* Handle non-table lookup. */ @@ -1176,6 +1267,7 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) BCReg func = rec_mm_prep(J, ix->val ? lj_cont_nop : lj_cont_ra); TRef *base = J->base + func; TValue *tv = J->L->base + func; + lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ base[0] = ix->mobj; base[1] = ix->tab; base[2] = ix->key; setfuncV(J->L, tv+0, funcV(&ix->mobjv)); copyTV(J->L, tv+1, &ix->tabv); @@ -1209,7 +1301,7 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) } /* Record the key lookup. */ - xref = rec_idx_key(J, ix); + xref = rec_idx_key(J, ix, &rbref); xrefop = IR(tref_ref(xref))->o; loadop = xrefop == IR_AREF ? IR_ALOAD : IR_HLOAD; /* The lj_meta_tset() inconsistency is gone, but better play safe. */ @@ -1224,6 +1316,8 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) } else { res = emitir(IRTG(loadop, t), xref, 0); } + if (tref_ref(res) < rbref) /* HREFK + load forwarded? */ + lj_ir_rollback(J, rbref); /* Rollback to eliminate hmask guard. */ if (t == IRT_NIL && ix->idxchain && lj_record_mm_lookup(J, ix, MM_index)) goto handlemm; if (irtype_ispri(t)) res = TREF_PRI(t); /* Canonicalize primitives. */ @@ -1231,6 +1325,8 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) } else { /* Indexed store. */ GCtab *mt = tabref(tabV(&ix->tabv)->metatable); int keybarrier = tref_isgcv(ix->key) && !tref_isnil(ix->val); + if (tref_ref(xref) < rbref) /* HREFK forwarded? */ + lj_ir_rollback(J, rbref); /* Rollback to eliminate hmask guard. */ if (tvisnil(oldv)) { /* Previous value was nil? */ /* Need to duplicate the hasmm check for the early guards. */ int hasmm = 0; @@ -1288,6 +1384,22 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) } } +static void rec_tsetm(jit_State *J, BCReg ra, BCReg rn, int32_t i) +{ + RecordIndex ix; + cTValue *basev = J->L->base; + copyTV(J->L, &ix.tabv, &basev[ra-1]); + ix.tab = getslot(J, ra-1); + ix.idxchain = 0; + for (; ra < rn; i++, ra++) { + setintV(&ix.keyv, i); + ix.key = lj_ir_kint(J, i); + copyTV(J->L, &ix.valv, &basev[ra]); + ix.val = getslot(J, ra); + lj_record_idx(J, &ix); + } +} + /* -- Upvalue access ------------------------------------------------------ */ /* Check whether upvalue is immutable and ok to constify. */ @@ -1399,9 +1511,9 @@ static void check_call_unroll(jit_State *J, TraceNo lnk) if (count + J->tailcalled > J->param[JIT_P_recunroll]) { J->pc++; if (J->framedepth + J->retdepth == 0) - rec_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Tail-recursion. */ + lj_record_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Tail-rec. */ else - rec_stop(J, LJ_TRLINK_UPREC, J->cur.traceno); /* Up-recursion. */ + lj_record_stop(J, LJ_TRLINK_UPREC, J->cur.traceno); /* Up-recursion. */ } } else { if (count > J->param[JIT_P_callunroll]) { @@ -1475,9 +1587,9 @@ static void rec_func_jit(jit_State *J, TraceNo lnk) } J->instunroll = 0; /* Cannot continue across a compiled function. */ if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) - rec_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Extra tail-recursion. */ + lj_record_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Extra tail-rec. */ else - rec_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the function. */ + lj_record_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the function. */ } /* -- Vararg handling ----------------------------------------------------- */ @@ -1522,7 +1634,8 @@ static void rec_varg(jit_State *J, BCReg dst, ptrdiff_t nresults) if (nvararg >= nresults) emitir(IRTGI(IR_GE), fr, lj_ir_kint(J, frofs+8*(int32_t)nresults)); else - emitir(IRTGI(IR_EQ), fr, lj_ir_kint(J, frame_ftsz(J->L->base-1))); + emitir(IRTGI(IR_EQ), fr, + lj_ir_kint(J, (int32_t)frame_ftsz(J->L->base-1))); vbase = emitir(IRTI(IR_SUB), REF_BASE, fr); vbase = emitir(IRT(IR_ADD, IRT_P32), vbase, lj_ir_kint(J, frofs-8)); for (i = 0; i < nload; i++) { @@ -1601,6 +1714,54 @@ static TRef rec_tnew(jit_State *J, uint32_t ah) return emitir(IRTG(IR_TNEW, IRT_TAB), asize, hbits); } +/* -- Concatenation ------------------------------------------------------- */ + +static TRef rec_cat(jit_State *J, BCReg baseslot, BCReg topslot) +{ + TRef *top = &J->base[topslot]; + TValue savetv[5]; + BCReg s; + RecordIndex ix; + lua_assert(baseslot < topslot); + for (s = baseslot; s <= topslot; s++) + (void)getslot(J, s); /* Ensure all arguments have a reference. */ + if (tref_isnumber_str(top[0]) && tref_isnumber_str(top[-1])) { + TRef tr, hdr, *trp, *xbase, *base = &J->base[baseslot]; + /* First convert numbers to strings. */ + for (trp = top; trp >= base; trp--) { + if (tref_isnumber(*trp)) + *trp = emitir(IRT(IR_TOSTR, IRT_STR), *trp, + tref_isnum(*trp) ? IRTOSTR_NUM : IRTOSTR_INT); + else if (!tref_isstr(*trp)) + break; + } + xbase = ++trp; + tr = hdr = emitir(IRT(IR_BUFHDR, IRT_P32), + lj_ir_kptr(J, &J2G(J)->tmpbuf), IRBUFHDR_RESET); + do { + tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, *trp++); + } while (trp <= top); + tr = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); + J->maxslot = (BCReg)(xbase - J->base); + if (xbase == base) return tr; /* Return simple concatenation result. */ + /* Pass partial result. */ + topslot = J->maxslot--; + *xbase = tr; + top = xbase; + setstrV(J->L, &ix.keyv, &J2G(J)->strempty); /* Simulate string result. */ + } else { + J->maxslot = topslot-1; + copyTV(J->L, &ix.keyv, &J->L->base[topslot]); + } + copyTV(J->L, &ix.tabv, &J->L->base[topslot-1]); + ix.tab = top[-1]; + ix.key = top[0]; + memcpy(savetv, &J->L->base[topslot-1], sizeof(savetv)); /* Save slots. */ + rec_mm_arith(J, &ix, MM_concat); /* Call __concat metamethod. */ + memcpy(&J->L->base[topslot-1], savetv, sizeof(savetv)); /* Restore slots. */ + return 0; /* No result yet. */ +} + /* -- Record bytecode ops ------------------------------------------------- */ /* Prepare for comparison. */ @@ -1639,7 +1800,7 @@ void lj_record_ins(jit_State *J) if (LJ_UNLIKELY(J->postproc != LJ_POST_NONE)) { switch (J->postproc) { case LJ_POST_FIXCOMP: /* Fixup comparison. */ - pc = frame_pc(&J2G(J)->tmptv); + pc = (const BCIns *)(uintptr_t)J2G(J)->tmptv.u64; rec_comp_fixup(J, pc, (!tvistruecond(&J2G(J)->tmptv2) ^ (bc_op(*pc)&1))); /* fallthrough */ case LJ_POST_FIXGUARD: /* Fixup and emit pending guard. */ @@ -1707,6 +1868,10 @@ void lj_record_ins(jit_State *J) rec_check_ir(J); #endif +#if LJ_HASPROFILE + rec_profile_ins(J, pc); +#endif + /* Keep a copy of the runtime values of var/num/str operands. */ #define rav (&ix.valv) #define rbv (&ix.tabv) @@ -1733,7 +1898,7 @@ void lj_record_ins(jit_State *J) switch (bcmode_c(op)) { case BCMvar: copyTV(J->L, rcv, &lbase[rc]); ix.key = rc = getslot(J, rc); break; - case BCMpri: setitype(rcv, ~rc); ix.key = rc = TREF_PRI(IRT_NIL+rc); break; + case BCMpri: setpriV(rcv, ~rc); ix.key = rc = TREF_PRI(IRT_NIL+rc); break; case BCMnum: { cTValue *tv = proto_knumtv(J->pt, rc); copyTV(J->L, rcv, tv); ix.key = rc = tvisint(tv) ? lj_ir_kint(J, intV(tv)) : lj_ir_knumint(J, numV(tv)); } break; @@ -1828,6 +1993,18 @@ void lj_record_ins(jit_State *J) J->maxslot = bc_a(pc[1]); /* Shrink used slots. */ break; + case BC_ISTYPE: case BC_ISNUM: + /* These coercions need to correspond with lj_meta_istype(). */ + if (LJ_DUALNUM && rc == ~LJ_TNUMX+1) + ra = lj_opt_narrow_toint(J, ra); + else if (rc == ~LJ_TNUMX+2) + ra = lj_ir_tonum(J, ra); + else if (rc == ~LJ_TSTR+1) + ra = lj_ir_tostr(J, ra); + /* else: type specialization suffices. */ + J->base[bc_a(ins)] = ra; + break; + /* -- Unary ops --------------------------------------------------------- */ case BC_NOT: @@ -1891,6 +2068,12 @@ void lj_record_ins(jit_State *J) rc = rec_mm_arith(J, &ix, MM_pow); break; + /* -- Miscellaneous ops ------------------------------------------------- */ + + case BC_CAT: + rc = rec_cat(J, rb, rc); + break; + /* -- Constant and move ops --------------------------------------------- */ case BC_MOV: @@ -1939,6 +2122,14 @@ void lj_record_ins(jit_State *J) ix.idxchain = LJ_MAX_IDXCHAIN; rc = lj_record_idx(J, &ix); break; + case BC_TGETR: case BC_TSETR: + ix.idxchain = 0; + rc = lj_record_idx(J, &ix); + break; + + case BC_TSETM: + rec_tsetm(J, ra, (BCReg)(J->L->top - J->L->base), (int32_t)rcv->u32.lo); + break; case BC_TNEW: rc = rec_tnew(J, rc); @@ -1951,28 +2142,28 @@ void lj_record_ins(jit_State *J) /* -- Calls and vararg handling ----------------------------------------- */ case BC_ITERC: - J->base[ra] = getslot(J, ra-3); - J->base[ra+1] = getslot(J, ra-2); - J->base[ra+2] = getslot(J, ra-1); + J->base[ra] = getslot(J, ra-3-LJ_FR2); + J->base[ra+1] = getslot(J, ra-2-LJ_FR2); + J->base[ra+2] = getslot(J, ra-1-LJ_FR2); { /* Do the actual copy now because lj_record_call needs the values. */ TValue *b = &J->L->base[ra]; - copyTV(J->L, b, b-3); - copyTV(J->L, b+1, b-2); - copyTV(J->L, b+2, b-1); + copyTV(J->L, b, b-3-LJ_FR2); + copyTV(J->L, b+1, b-2-LJ_FR2); + copyTV(J->L, b+2, b-1-LJ_FR2); } lj_record_call(J, ra, (ptrdiff_t)rc-1); break; /* L->top is set to L->base+ra+rc+NARGS-1+1. See lj_dispatch_ins(). */ case BC_CALLM: - rc = (BCReg)(J->L->top - J->L->base) - ra; + rc = (BCReg)(J->L->top - J->L->base) - ra - LJ_FR2; /* fallthrough */ case BC_CALL: lj_record_call(J, ra, (ptrdiff_t)rc-1); break; case BC_CALLMT: - rc = (BCReg)(J->L->top - J->L->base) - ra; + rc = (BCReg)(J->L->top - J->L->base) - ra - LJ_FR2; /* fallthrough */ case BC_CALLT: lj_record_tailcall(J, ra, (ptrdiff_t)rc-1); @@ -1989,6 +2180,9 @@ void lj_record_ins(jit_State *J) rc = (BCReg)(J->L->top - J->L->base) - ra + 1; /* fallthrough */ case BC_RET: case BC_RET0: case BC_RET1: +#if LJ_HASPROFILE + rec_profile_ret(J); +#endif lj_record_ret(J, ra, (ptrdiff_t)rc-1); break; @@ -2001,7 +2195,7 @@ void lj_record_ins(jit_State *J) case BC_JFORI: lua_assert(bc_op(pc[(ptrdiff_t)rc-BCBIAS_J]) == BC_JFORL); if (rec_for(J, pc, 0) != LOOPEV_LEAVE) /* Link to existing loop. */ - rec_stop(J, LJ_TRLINK_ROOT, bc_d(pc[(ptrdiff_t)rc-BCBIAS_J])); + lj_record_stop(J, LJ_TRLINK_ROOT, bc_d(pc[(ptrdiff_t)rc-BCBIAS_J])); /* Continue tracing if the loop is not entered. */ break; @@ -2068,10 +2262,8 @@ void lj_record_ins(jit_State *J) /* fallthrough */ case BC_ITERN: case BC_ISNEXT: - case BC_CAT: case BC_UCLO: case BC_FNEW: - case BC_TSETM: setintV(&J->errinfo, (int32_t)op); lj_trace_err_info(J, LJ_TRERR_NYIBC); break; @@ -2137,6 +2329,12 @@ static const BCIns *rec_setup_root(jit_State *J) J->maxslot = J->pt->numparams; pc++; break; + case BC_CALLM: + case BC_CALL: + case BC_ITERC: + /* No bytecode range check for stitched traces. */ + pc++; + break; default: lua_assert(0); break; @@ -2205,7 +2403,7 @@ void lj_record_setup(jit_State *J) if (traceref(J, J->cur.root)->nchild >= J->param[JIT_P_maxside] || T->snap[J->exitno].count >= J->param[JIT_P_hotexit] + J->param[JIT_P_tryside]) { - rec_stop(J, LJ_TRLINK_INTERP, 0); + lj_record_stop(J, LJ_TRLINK_INTERP, 0); } } else { /* Root trace. */ J->cur.root = 0; @@ -2217,9 +2415,15 @@ void lj_record_setup(jit_State *J) lj_snap_add(J); if (bc_op(J->cur.startins) == BC_FORL) rec_for_loop(J, J->pc-1, &J->scev, 1); + else if (bc_op(J->cur.startins) == BC_ITERC) + J->startpc = NULL; if (1 + J->pt->framesize >= LJ_MAX_JSLOTS) lj_trace_err(J, LJ_TRERR_STACKOV); } +#if LJ_HASPROFILE + J->prev_pt = NULL; + J->prev_line = -1; +#endif #ifdef LUAJIT_ENABLE_CHECKHOOK /* Regularly check for instruction/line hooks from compiled code and ** exit to the interpreter if the hooks are set. diff --git a/src/3rd party/luajit-2.0/src/lj_record.h b/src/3rd party/luajit-2.0/src/lj_record.h index c9f4882a905..732adb47ce2 100644 --- a/src/3rd party/luajit-2.0/src/lj_record.h +++ b/src/3rd party/luajit-2.0/src/lj_record.h @@ -28,6 +28,7 @@ typedef struct RecordIndex { LJ_FUNC int lj_record_objcmp(jit_State *J, TRef a, TRef b, cTValue *av, cTValue *bv); +LJ_FUNC void lj_record_stop(jit_State *J, TraceLink linktype, TraceNo lnk); LJ_FUNC TRef lj_record_constify(jit_State *J, cTValue *o); LJ_FUNC void lj_record_call(jit_State *J, BCReg func, ptrdiff_t nargs); diff --git a/src/3rd party/luajit-2.0/src/lj_snap.c b/src/3rd party/luajit-2.0/src/lj_snap.c index 5c870bafd4c..d8e7987c5c2 100644 --- a/src/3rd party/luajit-2.0/src/lj_snap.c +++ b/src/3rd party/luajit-2.0/src/lj_snap.c @@ -97,8 +97,10 @@ static BCReg snapshot_framelinks(jit_State *J, SnapEntry *map) { cTValue *frame = J->L->base - 1; cTValue *lim = J->L->base - J->baseslot; - cTValue *ftop = frame + funcproto(frame_func(frame))->framesize; + GCfunc *fn = frame_func(frame); + cTValue *ftop = isluafunc(fn) ? (frame+funcproto(fn)->framesize) : J->L->top; MSize f = 0; + lua_assert(!LJ_FR2); /* TODO_FR2: store 64 bit PCs. */ map[f++] = SNAP_MKPC(J->pc); /* The current PC is always the first entry. */ while (frame > lim) { /* Backwards traversal of all frames above base. */ if (frame_islua(frame)) { @@ -240,7 +242,8 @@ static BCReg snap_usedef(jit_State *J, uint8_t *udf, case BCMbase: if (op >= BC_CALLM && op <= BC_VARG) { BCReg top = (op == BC_CALLM || op == BC_CALLMT || bc_c(ins) == 0) ? - maxslot : (bc_a(ins) + bc_c(ins)); + maxslot : (bc_a(ins) + bc_c(ins)+LJ_FR2); + if (LJ_FR2) DEF_SLOT(bc_a(ins)+1); s = bc_a(ins) - ((op == BC_ITERC || op == BC_ITERN) ? 3 : 0); for (; s < top; s++) USE_SLOT(s); for (; s < maxslot; s++) DEF_SLOT(s); @@ -599,6 +602,7 @@ static void snap_restoreval(jit_State *J, GCtrace *T, ExitState *ex, } if (LJ_UNLIKELY(bloomtest(rfilt, ref))) rs = snap_renameref(T, snapno, ref, rs); + lua_assert(!LJ_GC64); /* TODO_GC64: handle 64 bit references. */ if (ra_hasspill(regsp_spill(rs))) { /* Restore from spill slot. */ int32_t *sps = &ex->spill[regsp_spill(rs)]; if (irt_isinteger(t)) { @@ -612,8 +616,7 @@ static void snap_restoreval(jit_State *J, GCtrace *T, ExitState *ex, o->u64 = *(uint64_t *)sps; } else { lua_assert(!irt_ispri(t)); /* PRI refs never have a spill slot. */ - setgcrefi(o->gcr, *sps); - setitype(o, irt_toitype(t)); + setgcV(J->L, o, (GCobj *)(uintptr_t)*(GCSize *)sps, irt_toitype(t)); } } else { /* Restore from register. */ Reg r = regsp_reg(rs); @@ -631,10 +634,10 @@ static void snap_restoreval(jit_State *J, GCtrace *T, ExitState *ex, } else if (LJ_64 && irt_islightud(t)) { /* 64 bit lightuserdata which may escape already has the tag bits. */ o->u64 = ex->gpr[r-RID_MIN_GPR]; + } else if (irt_ispri(t)) { + setpriV(o, irt_toitype(t)); } else { - if (!irt_ispri(t)) - setgcrefi(o->gcr, ex->gpr[r-RID_MIN_GPR]); - setitype(o, irt_toitype(t)); + setgcV(J->L, o, (GCobj *)ex->gpr[r-RID_MIN_GPR], irt_toitype(t)); } } } @@ -795,7 +798,7 @@ const BCIns *lj_snap_restore(jit_State *J, void *exptr) MSize n, nent = snap->nent; SnapEntry *map = &T->snapmap[snap->mapofs]; SnapEntry *flinks = &T->snapmap[snap_nextofs(T, snap)-1]; - int32_t ftsz0; + ptrdiff_t ftsz0; TValue *frame; BloomFilter rfilt = snap_renamefilter(T, snapno); const BCIns *pc = snap_pc(map[nent]); @@ -836,8 +839,9 @@ const BCIns *lj_snap_restore(jit_State *J, void *exptr) snap_restoreval(J, T, ex, snapno, rfilt, ref+1, &tmp); o->u32.hi = tmp.u32.lo; } else if ((sn & (SNAP_CONT|SNAP_FRAME))) { + lua_assert(!LJ_FR2); /* TODO_FR2: store 64 bit PCs. */ /* Overwrite tag with frame link. */ - o->fr.tp.ftsz = snap_slot(sn) != 0 ? (int32_t)*flinks-- : ftsz0; + setframe_ftsz(o, snap_slot(sn) != 0 ? (int32_t)*flinks-- : ftsz0); L->base = o+1; } } diff --git a/src/3rd party/luajit-2.0/src/lj_state.c b/src/3rd party/luajit-2.0/src/lj_state.c index e654afaeb98..84b4d113a2b 100644 --- a/src/3rd party/luajit-2.0/src/lj_state.c +++ b/src/3rd party/luajit-2.0/src/lj_state.c @@ -12,6 +12,7 @@ #include "lj_obj.h" #include "lj_gc.h" #include "lj_err.h" +#include "lj_buf.h" #include "lj_str.h" #include "lj_tab.h" #include "lj_func.h" @@ -26,6 +27,7 @@ #include "lj_vm.h" #include "lj_lex.h" #include "lj_alloc.h" +#include "luajit.h" /* -- Stack handling ------------------------------------------------------ */ @@ -47,6 +49,7 @@ ** one extra slot if mobj is not a function. Only lj_meta_tset needs 5 ** slots above top, but then mobj is always a function. So we can get by ** with 5 extra slots. +** LJ_FR2: We need 2 more slots for the frame PC and the continuation PC. */ /* Resize stack slots and adjust pointers in state. */ @@ -59,7 +62,7 @@ static void resizestack(lua_State *L, MSize n) GCobj *up; lua_assert((MSize)(tvref(L->maxstack)-oldst)==L->stacksize-LJ_STACK_EXTRA-1); st = (TValue *)lj_mem_realloc(L, tvref(L->stack), - (MSize)(L->stacksize*sizeof(TValue)), + (MSize)(oldsize*sizeof(TValue)), (MSize)(realsize*sizeof(TValue))); setmref(L->stack, st); delta = (char *)st - (char *)oldst; @@ -67,12 +70,12 @@ static void resizestack(lua_State *L, MSize n) while (oldsize < realsize) /* Clear new slots. */ setnilV(st + oldsize++); L->stacksize = realsize; + if ((size_t)(mref(G(L)->jit_base, char) - (char *)oldst) < oldsize) + setmref(G(L)->jit_base, mref(G(L)->jit_base, char) + delta); L->base = (TValue *)((char *)L->base + delta); L->top = (TValue *)((char *)L->top + delta); for (up = gcref(L->openupval); up != NULL; up = gcnext(up)) setmref(gco2uv(up)->v, (TValue *)((char *)uvval(gco2uv(up)) + delta)); - if (obj2gco(L) == gcref(G(L)->jit_L)) - setmref(G(L)->jit_base, mref(G(L)->jit_base, char) + delta); } /* Relimit stack after error, in case the limit was overdrawn. */ @@ -89,7 +92,8 @@ void lj_state_shrinkstack(lua_State *L, MSize used) return; /* Avoid stack shrinking while handling stack overflow. */ if (4*used < L->stacksize && 2*(LJ_STACK_START+LJ_STACK_EXTRA) < L->stacksize && - obj2gco(L) != gcref(G(L)->jit_L)) /* Don't shrink stack of live trace. */ + /* Don't shrink stack of live trace. */ + (tvref(G(L)->jit_base) == NULL || obj2gco(L) != gcref(G(L)->cur_L))) resizestack(L, L->stacksize >> 1); } @@ -125,8 +129,9 @@ static void stack_init(lua_State *L1, lua_State *L) L1->stacksize = LJ_STACK_START + LJ_STACK_EXTRA; stend = st + L1->stacksize; setmref(L1->maxstack, stend - LJ_STACK_EXTRA - 1); - L1->base = L1->top = st+1; - setthreadV(L1, st, L1); /* Needed for curr_funcisL() on empty stack. */ + setthreadV(L1, st++, L1); /* Needed for curr_funcisL() on empty stack. */ + if (LJ_FR2) setnilV(st++); + L1->base = L1->top = st; while (st < stend) /* Clear new slots. */ setnilV(st++); } @@ -164,7 +169,7 @@ static void close_state(lua_State *L) lj_ctype_freestate(g); #endif lj_mem_freevec(g, g->strhash, g->strmask+1, GCRef); - lj_str_freebuf(g, &g->tmpbuf); + lj_buf_free(g, &g->tmpbuf); lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); lua_assert(g->gc.total == sizeof(GG_State)); #ifndef LUAJIT_USE_SYSMALLOC @@ -184,7 +189,7 @@ LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) GG_State *GG = (GG_State *)f(ud, NULL, 0, sizeof(GG_State)); lua_State *L = &GG->L; global_State *g = &GG->g; - if (GG == NULL || !checkptr32(GG)) return NULL; + if (GG == NULL || !checkptrGC(GG)) return NULL; memset(GG, 0, sizeof(GG_State)); L->gct = ~LJ_TTHREAD; L->marked = LJ_GC_WHITE0 | LJ_GC_FIXED | LJ_GC_SFIXED; /* Prevent free. */ @@ -202,8 +207,10 @@ LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) setnilV(registry(L)); setnilV(&g->nilnode.val); setnilV(&g->nilnode.key); +#if !LJ_GC64 setmref(g->nilnode.freetop, &g->nilnode); - lj_str_initbuf(&g->tmpbuf); +#endif + lj_buf_init(NULL, &g->tmpbuf); g->gc.state = GCSpause; setgcref(g->gc.root, obj2gco(L)); setmref(g->gc.sweep, &g->gc.root); @@ -236,6 +243,10 @@ LUA_API void lua_close(lua_State *L) global_State *g = G(L); int i; L = mainthread(g); /* Only the main thread can be closed. */ +#if LJ_HASPROFILE + luaJIT_profile_stop(L); +#endif + setgcrefnull(g->cur_L); lj_func_closeuv(L, tvref(L->stack)); lj_gc_separateudata(g, 1); /* Separate udata which have GC metamethods. */ #if LJ_HASJIT @@ -246,8 +257,8 @@ LUA_API void lua_close(lua_State *L) for (i = 0;;) { hook_enter(g); L->status = 0; + L->base = L->top = tvref(L->stack) + 1 + LJ_FR2; L->cframe = NULL; - L->base = L->top = tvref(L->stack) + 1; if (lj_vm_cpcall(L, NULL, NULL, cpfinalize) == 0) { if (++i >= 10) break; lj_gc_separateudata(g, 1); /* Separate udata again. */ @@ -279,6 +290,8 @@ lua_State *lj_state_new(lua_State *L) void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L) { lua_assert(L != mainthread(g)); + if (obj2gco(L) == gcref(g->cur_L)) + setgcrefnull(g->cur_L); lj_func_closeuv(L, tvref(L->stack)); lua_assert(gcref(L->openupval) == NULL); lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); diff --git a/src/3rd party/luajit-2.0/src/lj_str.c b/src/3rd party/luajit-2.0/src/lj_str.c index ca60bccb7ff..dd324500c18 100644 --- a/src/3rd party/luajit-2.0/src/lj_str.c +++ b/src/3rd party/luajit-2.0/src/lj_str.c @@ -1,13 +1,8 @@ /* ** String handling. ** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h */ -#include - #define lj_str_c #define LUA_CORE @@ -15,10 +10,9 @@ #include "lj_gc.h" #include "lj_err.h" #include "lj_str.h" -#include "lj_state.h" #include "lj_char.h" -/* -- String interning ---------------------------------------------------- */ +/* -- String helpers ------------------------------------------------------ */ /* Ordered compare of strings. Assumes string data is 4-byte aligned. */ int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b) @@ -64,6 +58,40 @@ static LJ_AINLINE int str_fastcmp(const char *a, const char *b, MSize len) return 0; } +/* Find fixed string p inside string s. */ +const char *lj_str_find(const char *s, const char *p, MSize slen, MSize plen) +{ + if (plen <= slen) { + if (plen == 0) { + return s; + } else { + int c = *(const uint8_t *)p++; + plen--; slen -= plen; + while (slen) { + const char *q = (const char *)memchr(s, c, slen); + if (!q) break; + if (memcmp(q+1, p, plen) == 0) return q; + q++; slen -= (MSize)(q-s); s = q; + } + } + } + return NULL; +} + +/* Check whether a string has a pattern matching character. */ +int lj_str_haspattern(GCstr *s) +{ + const char *p = strdata(s), *q = p + s->len; + while (p < q) { + int c = *(const uint8_t *)p++; + if (lj_char_ispunct(c) && strchr("^$*+?.([%-", c)) + return 1; /* Found a pattern matching char. */ + } + return 0; /* No pattern matching chars found. */ +} + +/* -- String interning ---------------------------------------------------- */ + /* Resize the string hash table (grow and shrink). */ void lj_str_resize(lua_State *L, MSize newmask) { @@ -167,173 +195,3 @@ void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s) lj_mem_free(g, s, sizestring(s)); } -/* -- Type conversions ---------------------------------------------------- */ - -/* Print number to buffer. Canonicalizes non-finite values. */ -size_t LJ_FASTCALL lj_str_bufnum(char *s, cTValue *o) -{ - if (LJ_LIKELY((o->u32.hi << 1) < 0xffe00000)) { /* Finite? */ - lua_Number n = o->n; -#if __BIONIC__ - if (tvismzero(o)) { s[0] = '-'; s[1] = '0'; return 2; } -#endif - return (size_t)lua_number2str(s, n); - } else if (((o->u32.hi & 0x000fffff) | o->u32.lo) != 0) { - s[0] = 'n'; s[1] = 'a'; s[2] = 'n'; return 3; - } else if ((o->u32.hi & 0x80000000) == 0) { - s[0] = 'i'; s[1] = 'n'; s[2] = 'f'; return 3; - } else { - s[0] = '-'; s[1] = 'i'; s[2] = 'n'; s[3] = 'f'; return 4; - } -} - -/* Print integer to buffer. Returns pointer to start. */ -char * LJ_FASTCALL lj_str_bufint(char *p, int32_t k) -{ - uint32_t u = (uint32_t)(k < 0 ? -k : k); - p += 1+10; - do { *--p = (char)('0' + u % 10); } while (u /= 10); - if (k < 0) *--p = '-'; - return p; -} - -/* Convert number to string. */ -GCstr * LJ_FASTCALL lj_str_fromnum(lua_State *L, const lua_Number *np) -{ - char buf[LJ_STR_NUMBUF]; - size_t len = lj_str_bufnum(buf, (TValue *)np); - return lj_str_new(L, buf, len); -} - -/* Convert integer to string. */ -GCstr * LJ_FASTCALL lj_str_fromint(lua_State *L, int32_t k) -{ - char s[1+10]; - char *p = lj_str_bufint(s, k); - return lj_str_new(L, p, (size_t)(s+sizeof(s)-p)); -} - -GCstr * LJ_FASTCALL lj_str_fromnumber(lua_State *L, cTValue *o) -{ - return tvisint(o) ? lj_str_fromint(L, intV(o)) : lj_str_fromnum(L, &o->n); -} - -/* -- String formatting --------------------------------------------------- */ - -static void addstr(lua_State *L, SBuf *sb, const char *str, MSize len) -{ - char *p; - MSize i; - if (sb->n + len > sb->sz) { - MSize sz = sb->sz * 2; - while (sb->n + len > sz) sz = sz * 2; - lj_str_resizebuf(L, sb, sz); - } - p = sb->buf + sb->n; - sb->n += len; - for (i = 0; i < len; i++) p[i] = str[i]; -} - -static void addchar(lua_State *L, SBuf *sb, int c) -{ - if (sb->n + 1 > sb->sz) { - MSize sz = sb->sz * 2; - lj_str_resizebuf(L, sb, sz); - } - sb->buf[sb->n++] = (char)c; -} - -/* Push formatted message as a string object to Lua stack. va_list variant. */ -const char *lj_str_pushvf(lua_State *L, const char *fmt, va_list argp) -{ - SBuf *sb = &G(L)->tmpbuf; - lj_str_needbuf(L, sb, (MSize)strlen(fmt)); - lj_str_resetbuf(sb); - for (;;) { - const char *e = strchr(fmt, '%'); - if (e == NULL) break; - addstr(L, sb, fmt, (MSize)(e-fmt)); - /* This function only handles %s, %c, %d, %f and %p formats. */ - switch (e[1]) { - case 's': { - const char *s = va_arg(argp, char *); - if (s == NULL) s = "(null)"; - addstr(L, sb, s, (MSize)strlen(s)); - break; - } - case 'c': - addchar(L, sb, va_arg(argp, int)); - break; - case 'd': { - char buf[LJ_STR_INTBUF]; - char *p = lj_str_bufint(buf, va_arg(argp, int32_t)); - addstr(L, sb, p, (MSize)(buf+LJ_STR_INTBUF-p)); - break; - } - case 'f': { - char buf[LJ_STR_NUMBUF]; - TValue tv; - MSize len; - tv.n = (lua_Number)(va_arg(argp, LUAI_UACNUMBER)); - len = (MSize)lj_str_bufnum(buf, &tv); - addstr(L, sb, buf, len); - break; - } - case 'p': { -#define FMTP_CHARS (2*sizeof(ptrdiff_t)) - char buf[2+FMTP_CHARS]; - ptrdiff_t p = (ptrdiff_t)(va_arg(argp, void *)); - ptrdiff_t i, lasti = 2+FMTP_CHARS; - if (p == 0) { - addstr(L, sb, "NULL", 4); - break; - } -#if LJ_64 - /* Shorten output for 64 bit pointers. */ - lasti = 2+2*4+((p >> 32) ? 2+2*(lj_fls((uint32_t)(p >> 32))>>3) : 0); -#endif - buf[0] = '0'; - buf[1] = 'x'; - for (i = lasti-1; i >= 2; i--, p >>= 4) - buf[i] = "0123456789abcdef"[(p & 15)]; - addstr(L, sb, buf, (MSize)lasti); - break; - } - case '%': - addchar(L, sb, '%'); - break; - default: - addchar(L, sb, '%'); - addchar(L, sb, e[1]); - break; - } - fmt = e+2; - } - addstr(L, sb, fmt, (MSize)strlen(fmt)); - setstrV(L, L->top, lj_str_new(L, sb->buf, sb->n)); - incr_top(L); - return strVdata(L->top - 1); -} - -/* Push formatted message as a string object to Lua stack. Vararg variant. */ -const char *lj_str_pushf(lua_State *L, const char *fmt, ...) -{ - const char *msg; - va_list argp; - va_start(argp, fmt); - msg = lj_str_pushvf(L, fmt, argp); - va_end(argp); - return msg; -} - -/* -- Buffer handling ----------------------------------------------------- */ - -char *lj_str_needbuf(lua_State *L, SBuf *sb, MSize sz) -{ - if (sz > sb->sz) { - if (sz < LJ_MIN_SBUF) sz = LJ_MIN_SBUF; - lj_str_resizebuf(L, sb, sz); - } - return sb->buf; -} - diff --git a/src/3rd party/luajit-2.0/src/lj_str.h b/src/3rd party/luajit-2.0/src/lj_str.h index 99697051d9b..d8465de663b 100644 --- a/src/3rd party/luajit-2.0/src/lj_str.h +++ b/src/3rd party/luajit-2.0/src/lj_str.h @@ -10,8 +10,13 @@ #include "lj_obj.h" -/* String interning. */ +/* String helpers. */ LJ_FUNC int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b); +LJ_FUNC const char *lj_str_find(const char *s, const char *f, + MSize slen, MSize flen); +LJ_FUNC int lj_str_haspattern(GCstr *s); + +/* String interning. */ LJ_FUNC void lj_str_resize(lua_State *L, MSize newmask); LJ_FUNCA GCstr *lj_str_new(lua_State *L, const char *str, size_t len); LJ_FUNC void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s); @@ -19,32 +24,4 @@ LJ_FUNC void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s); #define lj_str_newz(L, s) (lj_str_new(L, s, strlen(s))) #define lj_str_newlit(L, s) (lj_str_new(L, "" s, sizeof(s)-1)) -/* Type conversions. */ -LJ_FUNC size_t LJ_FASTCALL lj_str_bufnum(char *s, cTValue *o); -LJ_FUNC char * LJ_FASTCALL lj_str_bufint(char *p, int32_t k); -LJ_FUNCA GCstr * LJ_FASTCALL lj_str_fromnum(lua_State *L, const lua_Number *np); -LJ_FUNC GCstr * LJ_FASTCALL lj_str_fromint(lua_State *L, int32_t k); -LJ_FUNCA GCstr * LJ_FASTCALL lj_str_fromnumber(lua_State *L, cTValue *o); - -#define LJ_STR_INTBUF (1+10) -#define LJ_STR_NUMBUF LUAI_MAXNUMBER2STR - -/* String formatting. */ -LJ_FUNC const char *lj_str_pushvf(lua_State *L, const char *fmt, va_list argp); -LJ_FUNC const char *lj_str_pushf(lua_State *L, const char *fmt, ...) -#if defined(__GNUC__) - __attribute__ ((format (printf, 2, 3))) -#endif - ; - -/* Resizable string buffers. Struct definition in lj_obj.h. */ -LJ_FUNC char *lj_str_needbuf(lua_State *L, SBuf *sb, MSize sz); - -#define lj_str_initbuf(sb) ((sb)->buf = NULL, (sb)->sz = 0) -#define lj_str_resetbuf(sb) ((sb)->n = 0) -#define lj_str_resizebuf(L, sb, size) \ - ((sb)->buf = (char *)lj_mem_realloc(L, (sb)->buf, (sb)->sz, (size)), \ - (sb)->sz = (size)) -#define lj_str_freebuf(g, sb) lj_mem_free(g, (void *)(sb)->buf, (sb)->sz) - #endif diff --git a/src/3rd party/luajit-2.0/src/lj_strfmt.c b/src/3rd party/luajit-2.0/src/lj_strfmt.c new file mode 100644 index 00000000000..d54e796ae2a --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_strfmt.c @@ -0,0 +1,554 @@ +/* +** String formatting. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#include + +#define lj_strfmt_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_buf.h" +#include "lj_str.h" +#include "lj_state.h" +#include "lj_char.h" +#include "lj_strfmt.h" + +/* -- Format parser ------------------------------------------------------- */ + +static const uint8_t strfmt_map[('x'-'A')+1] = { + STRFMT_A,0,0,0,STRFMT_E,0,STRFMT_G,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,STRFMT_X,0,0, + 0,0,0,0,0,0, + STRFMT_A,0,STRFMT_C,STRFMT_D,STRFMT_E,STRFMT_F,STRFMT_G,0,STRFMT_I,0,0,0,0, + 0,STRFMT_O,STRFMT_P,STRFMT_Q,0,STRFMT_S,0,STRFMT_U,0,0,STRFMT_X +}; + +SFormat LJ_FASTCALL lj_strfmt_parse(FormatState *fs) +{ + const uint8_t *p = fs->p, *e = fs->e; + fs->str = (const char *)p; + for (; p < e; p++) { + if (*p == '%') { /* Escape char? */ + if (p[1] == '%') { /* '%%'? */ + fs->p = ++p+1; + goto retlit; + } else { + SFormat sf = 0; + uint32_t c; + if (p != (const uint8_t *)fs->str) + break; + for (p++; (uint32_t)*p - ' ' <= (uint32_t)('0' - ' '); p++) { + /* Parse flags. */ + if (*p == '-') sf |= STRFMT_F_LEFT; + else if (*p == '+') sf |= STRFMT_F_PLUS; + else if (*p == '0') sf |= STRFMT_F_ZERO; + else if (*p == ' ') sf |= STRFMT_F_SPACE; + else if (*p == '#') sf |= STRFMT_F_ALT; + else break; + } + if ((uint32_t)*p - '0' < 10) { /* Parse width. */ + uint32_t width = (uint32_t)*p++ - '0'; + if ((uint32_t)*p - '0' < 10) + width = (uint32_t)*p++ - '0' + width*10; + sf |= (width << STRFMT_SH_WIDTH); + } + if (*p == '.') { /* Parse precision. */ + uint32_t prec = 0; + p++; + if ((uint32_t)*p - '0' < 10) { + prec = (uint32_t)*p++ - '0'; + if ((uint32_t)*p - '0' < 10) + prec = (uint32_t)*p++ - '0' + prec*10; + } + sf |= ((prec+1) << STRFMT_SH_PREC); + } + /* Parse conversion. */ + c = (uint32_t)*p - 'A'; + if (LJ_LIKELY(c <= (uint32_t)('x' - 'A'))) { + uint32_t sx = strfmt_map[c]; + if (sx) { + fs->p = p+1; + return (sf | sx | ((c & 0x20) ? 0 : STRFMT_F_UPPER)); + } + } + /* Return error location. */ + if (*p >= 32) p++; + fs->len = (MSize)(p - (const uint8_t *)fs->str); + fs->p = fs->e; + return STRFMT_ERR; + } + } + } + fs->p = p; +retlit: + fs->len = (MSize)(p - (const uint8_t *)fs->str); + return fs->len ? STRFMT_LIT : STRFMT_EOF; +} + +/* -- Raw conversions ----------------------------------------------------- */ + +/* Write number to bufer. */ +char * LJ_FASTCALL lj_strfmt_wnum(char *p, cTValue *o) +{ + if (LJ_LIKELY((o->u32.hi << 1) < 0xffe00000)) { /* Finite? */ +#if __BIONIC__ + if (tvismzero(o)) { *p++ = '-'; *p++ = '0'; return p; } +#endif + return p + lua_number2str(p, o->n); + } else if (((o->u32.hi & 0x000fffff) | o->u32.lo) != 0) { + *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; + } else if ((o->u32.hi & 0x80000000) == 0) { + *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; + } else { + *p++ = '-'; *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; + } + return p; +} + +#define WINT_R(x, sh, sc) \ + { uint32_t d = (x*(((1<>sh; x -= d*sc; *p++ = (char)('0'+d); } + +/* Write integer to buffer. */ +char * LJ_FASTCALL lj_strfmt_wint(char *p, int32_t k) +{ + uint32_t u = (uint32_t)k; + if (k < 0) { u = (uint32_t)-k; *p++ = '-'; } + if (u < 10000) { + if (u < 10) goto dig1; if (u < 100) goto dig2; if (u < 1000) goto dig3; + } else { + uint32_t v = u / 10000; u -= v * 10000; + if (v < 10000) { + if (v < 10) goto dig5; if (v < 100) goto dig6; if (v < 1000) goto dig7; + } else { + uint32_t w = v / 10000; v -= w * 10000; + if (w >= 10) WINT_R(w, 10, 10) + *p++ = (char)('0'+w); + } + WINT_R(v, 23, 1000) + dig7: WINT_R(v, 12, 100) + dig6: WINT_R(v, 10, 10) + dig5: *p++ = (char)('0'+v); + } + WINT_R(u, 23, 1000) + dig3: WINT_R(u, 12, 100) + dig2: WINT_R(u, 10, 10) + dig1: *p++ = (char)('0'+u); + return p; +} +#undef WINT_R + +/* Write pointer to buffer. */ +char * LJ_FASTCALL lj_strfmt_wptr(char *p, const void *v) +{ + ptrdiff_t x = (ptrdiff_t)v; + MSize i, n = STRFMT_MAXBUF_PTR; + if (x == 0) { + *p++ = 'N'; *p++ = 'U'; *p++ = 'L'; *p++ = 'L'; + return p; + } +#if LJ_64 + /* Shorten output for 64 bit pointers. */ + n = 2+2*4+((x >> 32) ? 2+2*(lj_fls((uint32_t)(x >> 32))>>3) : 0); +#endif + p[0] = '0'; + p[1] = 'x'; + for (i = n-1; i >= 2; i--, x >>= 4) + p[i] = "0123456789abcdef"[(x & 15)]; + return p+n; +} + +/* Write ULEB128 to buffer. */ +char * LJ_FASTCALL lj_strfmt_wuleb128(char *p, uint32_t v) +{ + for (; v >= 0x80; v >>= 7) + *p++ = (char)((v & 0x7f) | 0x80); + *p++ = (char)v; + return p; +} + +/* Return string or write number to buffer and return pointer to start. */ +const char *lj_strfmt_wstrnum(char *buf, cTValue *o, MSize *lenp) +{ + if (tvisstr(o)) { + *lenp = strV(o)->len; + return strVdata(o); + } else if (tvisint(o)) { + *lenp = (MSize)(lj_strfmt_wint(buf, intV(o)) - buf); + return buf; + } else if (tvisnum(o)) { + *lenp = (MSize)(lj_strfmt_wnum(buf, o) - buf); + return buf; + } else { + return NULL; + } +} + +/* -- Unformatted conversions to buffer ----------------------------------- */ + +/* Add integer to buffer. */ +SBuf * LJ_FASTCALL lj_strfmt_putint(SBuf *sb, int32_t k) +{ + setsbufP(sb, lj_strfmt_wint(lj_buf_more(sb, STRFMT_MAXBUF_INT), k)); + return sb; +} + +#if LJ_HASJIT +/* Add number to buffer. */ +SBuf * LJ_FASTCALL lj_strfmt_putnum(SBuf *sb, cTValue *o) +{ + setsbufP(sb, lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM), o)); + return sb; +} +#endif + +SBuf * LJ_FASTCALL lj_strfmt_putptr(SBuf *sb, const void *v) +{ + setsbufP(sb, lj_strfmt_wptr(lj_buf_more(sb, STRFMT_MAXBUF_PTR), v)); + return sb; +} + +/* Add quoted string to buffer. */ +SBuf * LJ_FASTCALL lj_strfmt_putquoted(SBuf *sb, GCstr *str) +{ + const char *s = strdata(str); + MSize len = str->len; + lj_buf_putb(sb, '"'); + while (len--) { + uint32_t c = (uint32_t)(uint8_t)*s++; + char *p = lj_buf_more(sb, 4); + if (c == '"' || c == '\\' || c == '\n') { + *p++ = '\\'; + } else if (lj_char_iscntrl(c)) { /* This can only be 0-31 or 127. */ + uint32_t d; + *p++ = '\\'; + if (c >= 100 || lj_char_isdigit((uint8_t)*s)) { + *p++ = (char)('0'+(c >= 100)); if (c >= 100) c -= 100; + goto tens; + } else if (c >= 10) { + tens: + d = (c * 205) >> 11; c -= d * 10; *p++ = (char)('0'+d); + } + c += '0'; + } + *p++ = (char)c; + setsbufP(sb, p); + } + lj_buf_putb(sb, '"'); + return sb; +} + +/* -- Formatted conversions to buffer ------------------------------------- */ + +/* Add formatted char to buffer. */ +SBuf *lj_strfmt_putfchar(SBuf *sb, SFormat sf, int32_t c) +{ + MSize width = STRFMT_WIDTH(sf); + char *p = lj_buf_more(sb, width > 1 ? width : 1); + if ((sf & STRFMT_F_LEFT)) *p++ = (char)c; + while (width-- > 1) *p++ = ' '; + if (!(sf & STRFMT_F_LEFT)) *p++ = (char)c; + setsbufP(sb, p); + return sb; +} + +/* Add formatted string to buffer. */ +SBuf *lj_strfmt_putfstr(SBuf *sb, SFormat sf, GCstr *str) +{ + MSize len = str->len <= STRFMT_PREC(sf) ? str->len : STRFMT_PREC(sf); + MSize width = STRFMT_WIDTH(sf); + char *p = lj_buf_more(sb, width > len ? width : len); + if ((sf & STRFMT_F_LEFT)) p = lj_buf_wmem(p, strdata(str), len); + while (width-- > len) *p++ = ' '; + if (!(sf & STRFMT_F_LEFT)) p = lj_buf_wmem(p, strdata(str), len); + setsbufP(sb, p); + return sb; +} + +/* Add formatted signed/unsigned integer to buffer. */ +SBuf *lj_strfmt_putfxint(SBuf *sb, SFormat sf, uint64_t k) +{ + char buf[STRFMT_MAXBUF_XINT], *q = buf + sizeof(buf), *p; +#ifdef LUA_USE_ASSERT + char *ps; +#endif + MSize prefix = 0, len, prec, pprec, width, need; + + /* Figure out signed prefixes. */ + if (STRFMT_TYPE(sf) == STRFMT_INT) { + if ((int64_t)k < 0) { + k = (uint64_t)-(int64_t)k; + prefix = 256 + '-'; + } else if ((sf & STRFMT_F_PLUS)) { + prefix = 256 + '+'; + } else if ((sf & STRFMT_F_SPACE)) { + prefix = 256 + ' '; + } + } + + /* Convert number and store to fixed-size buffer in reverse order. */ + prec = STRFMT_PREC(sf); + if ((int32_t)prec >= 0) sf &= ~STRFMT_F_ZERO; + if (k == 0) { /* Special-case zero argument. */ + if (prec != 0 || + (sf & (STRFMT_T_OCT|STRFMT_F_ALT)) == (STRFMT_T_OCT|STRFMT_F_ALT)) + *--q = '0'; + } else if (!(sf & (STRFMT_T_HEX|STRFMT_T_OCT))) { /* Decimal. */ + uint32_t k2; + while ((k >> 32)) { *--q = (char)('0' + k % 10); k /= 10; } + k2 = (uint32_t)k; + do { *--q = (char)('0' + k2 % 10); k2 /= 10; } while (k2); + } else if ((sf & STRFMT_T_HEX)) { /* Hex. */ + const char *hexdig = (sf & STRFMT_F_UPPER) ? "0123456789ABCDEF" : + "0123456789abcdef"; + do { *--q = hexdig[(k & 15)]; k >>= 4; } while (k); + if ((sf & STRFMT_F_ALT)) prefix = 512 + ((sf & STRFMT_F_UPPER) ? 'X' : 'x'); + } else { /* Octal. */ + do { *--q = (char)('0' + (uint32_t)(k & 7)); k >>= 3; } while (k); + if ((sf & STRFMT_F_ALT)) *--q = '0'; + } + + /* Calculate sizes. */ + len = (MSize)(buf + sizeof(buf) - q); + if ((int32_t)len >= (int32_t)prec) prec = len; + width = STRFMT_WIDTH(sf); + pprec = prec + (prefix >> 8); + need = width > pprec ? width : pprec; + p = lj_buf_more(sb, need); +#ifdef LUA_USE_ASSERT + ps = p; +#endif + + /* Format number with leading/trailing whitespace and zeros. */ + if ((sf & (STRFMT_F_LEFT|STRFMT_F_ZERO)) == 0) + while (width-- > pprec) *p++ = ' '; + if (prefix) { + if ((char)prefix >= 'X') *p++ = '0'; + *p++ = (char)prefix; + } + if ((sf & (STRFMT_F_LEFT|STRFMT_F_ZERO)) == STRFMT_F_ZERO) + while (width-- > pprec) *p++ = '0'; + while (prec-- > len) *p++ = '0'; + while (q < buf + sizeof(buf)) *p++ = *q++; /* Add number itself. */ + if ((sf & STRFMT_F_LEFT)) + while (width-- > pprec) *p++ = ' '; + + lua_assert(need == (MSize)(p - ps)); + setsbufP(sb, p); + return sb; +} + +/* Add number formatted as signed integer to buffer. */ +SBuf *lj_strfmt_putfnum_int(SBuf *sb, SFormat sf, lua_Number n) +{ + int64_t k = (int64_t)n; + if (checki32(k) && sf == STRFMT_INT) + return lj_strfmt_putint(sb, (int32_t)k); /* Shortcut for plain %d. */ + else + return lj_strfmt_putfxint(sb, sf, (uint64_t)k); +} + +/* Add number formatted as unsigned integer to buffer. */ +SBuf *lj_strfmt_putfnum_uint(SBuf *sb, SFormat sf, lua_Number n) +{ + int64_t k; + if (n >= 9223372036854775808.0) + k = (int64_t)(n - 18446744073709551616.0); + else + k = (int64_t)n; + return lj_strfmt_putfxint(sb, sf, (uint64_t)k); +} + +/* Max. sprintf buffer size needed. At least #string.format("%.99f", -1e308). */ +#define STRFMT_FMTNUMBUF 512 + +/* Add formatted floating-point number to buffer. */ +SBuf *lj_strfmt_putfnum(SBuf *sb, SFormat sf, lua_Number n) +{ + TValue tv; + tv.n = n; + if (LJ_UNLIKELY((tv.u32.hi << 1) >= 0xffe00000)) { + /* Canonicalize output of non-finite values. */ + MSize width = STRFMT_WIDTH(sf), len = 3; + int prefix = 0, ch = (sf & STRFMT_F_UPPER) ? 0x202020 : 0; + char *p; + if (((tv.u32.hi & 0x000fffff) | tv.u32.lo) != 0) { + ch ^= ('n' << 16) | ('a' << 8) | 'n'; + if ((sf & STRFMT_F_SPACE)) prefix = ' '; + } else { + ch ^= ('i' << 16) | ('n' << 8) | 'f'; + if ((tv.u32.hi & 0x80000000)) prefix = '-'; + else if ((sf & STRFMT_F_PLUS)) prefix = '+'; + else if ((sf & STRFMT_F_SPACE)) prefix = ' '; + } + if (prefix) len = 4; + p = lj_buf_more(sb, width > len ? width : len); + if (!(sf & STRFMT_F_LEFT)) while (width-- > len) *p++ = ' '; + if (prefix) *p++ = prefix; + *p++ = (char)(ch >> 16); *p++ = (char)(ch >> 8); *p++ = (char)ch; + if ((sf & STRFMT_F_LEFT)) while (width-- > len) *p++ = ' '; + setsbufP(sb, p); + } else { /* Delegate to sprintf() for now. */ + uint8_t width = (uint8_t)STRFMT_WIDTH(sf), prec = (uint8_t)STRFMT_PREC(sf); + char fmt[1+5+2+3+1+1], *p = fmt; + *p++ = '%'; + if ((sf & STRFMT_F_LEFT)) *p++ = '-'; + if ((sf & STRFMT_F_PLUS)) *p++ = '+'; + if ((sf & STRFMT_F_ZERO)) *p++ = '0'; + if ((sf & STRFMT_F_SPACE)) *p++ = ' '; + if ((sf & STRFMT_F_ALT)) *p++ = '#'; + if (width) { + uint8_t x = width / 10, y = width % 10; + if (x) *p++ = '0' + x; + *p++ = '0' + y; + } + if (prec != 255) { + uint8_t x = prec / 10, y = prec % 10; + *p++ = '.'; + if (x) *p++ = '0' + x; + *p++ = '0' + y; + } + *p++ = (0x67666561 >> (STRFMT_FP(sf)<<3)) ^ ((sf & STRFMT_F_UPPER)?0x20:0); + *p = '\0'; + p = lj_buf_more(sb, STRFMT_FMTNUMBUF); + setsbufP(sb, p + sprintf(p, fmt, n)); + } + return sb; +} + +/* -- Conversions to strings ---------------------------------------------- */ + +/* Convert integer to string. */ +GCstr * LJ_FASTCALL lj_strfmt_int(lua_State *L, int32_t k) +{ + char buf[STRFMT_MAXBUF_INT]; + MSize len = (MSize)(lj_strfmt_wint(buf, k) - buf); + return lj_str_new(L, buf, len); +} + +/* Convert number to string. */ +GCstr * LJ_FASTCALL lj_strfmt_num(lua_State *L, cTValue *o) +{ + char buf[STRFMT_MAXBUF_NUM]; + MSize len = (MSize)(lj_strfmt_wnum(buf, o) - buf); + return lj_str_new(L, buf, len); +} + +/* Convert integer or number to string. */ +GCstr * LJ_FASTCALL lj_strfmt_number(lua_State *L, cTValue *o) +{ + return tvisint(o) ? lj_strfmt_int(L, intV(o)) : lj_strfmt_num(L, o); +} + +#if LJ_HASJIT +/* Convert char value to string. */ +GCstr * LJ_FASTCALL lj_strfmt_char(lua_State *L, int c) +{ + char buf[1]; + buf[0] = c; + return lj_str_new(L, buf, 1); +} +#endif + +/* Raw conversion of object to string. */ +GCstr * LJ_FASTCALL lj_strfmt_obj(lua_State *L, cTValue *o) +{ + if (tvisstr(o)) { + return strV(o); + } else if (tvisnumber(o)) { + return lj_strfmt_number(L, o); + } else if (tvisnil(o)) { + return lj_str_newlit(L, "nil"); + } else if (tvisfalse(o)) { + return lj_str_newlit(L, "false"); + } else if (tvistrue(o)) { + return lj_str_newlit(L, "true"); + } else { + char buf[8+2+2+16], *p = buf; + p = lj_buf_wmem(p, lj_typename(o), (MSize)strlen(lj_typename(o))); + *p++ = ':'; *p++ = ' '; + if (tvisfunc(o) && isffunc(funcV(o))) { + p = lj_buf_wmem(p, "builtin#", 8); + p = lj_strfmt_wint(p, funcV(o)->c.ffid); + } else { + p = lj_strfmt_wptr(p, lj_obj_ptr(o)); + } + return lj_str_new(L, buf, (size_t)(p - buf)); + } +} + +/* -- Internal string formatting ------------------------------------------ */ + +/* +** These functions are only used for lua_pushfstring(), lua_pushvfstring() +** and for internal string formatting (e.g. error messages). Caveat: unlike +** string.format(), only a limited subset of formats and flags are supported! +** +** LuaJIT has support for a couple more formats than Lua 5.1/5.2: +** - %d %u %o %x with full formatting, 32 bit integers only. +** - %f and other FP formats are really %.14g. +** - %s %c %p without formatting. +*/ + +/* Push formatted message as a string object to Lua stack. va_list variant. */ +const char *lj_strfmt_pushvf(lua_State *L, const char *fmt, va_list argp) +{ + SBuf *sb = lj_buf_tmp_(L); + FormatState fs; + SFormat sf; + GCstr *str; + lj_strfmt_init(&fs, fmt, (MSize)strlen(fmt)); + while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { + switch (STRFMT_TYPE(sf)) { + case STRFMT_LIT: + lj_buf_putmem(sb, fs.str, fs.len); + break; + case STRFMT_INT: + lj_strfmt_putfxint(sb, sf, va_arg(argp, int32_t)); + break; + case STRFMT_UINT: + lj_strfmt_putfxint(sb, sf, va_arg(argp, uint32_t)); + break; + case STRFMT_NUM: { + TValue tv; + tv.n = va_arg(argp, lua_Number); + setsbufP(sb, lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM), &tv)); + break; + } + case STRFMT_STR: { + const char *s = va_arg(argp, char *); + if (s == NULL) s = "(null)"; + lj_buf_putmem(sb, s, (MSize)strlen(s)); + break; + } + case STRFMT_CHAR: + lj_buf_putb(sb, va_arg(argp, int)); + break; + case STRFMT_PTR: + lj_strfmt_putptr(sb, va_arg(argp, void *)); + break; + case STRFMT_ERR: + default: + lj_buf_putb(sb, '?'); + lua_assert(0); + break; + } + } + str = lj_buf_str(L, sb); + setstrV(L, L->top, str); + incr_top(L); + return strdata(str); +} + +/* Push formatted message as a string object to Lua stack. Vararg variant. */ +const char *lj_strfmt_pushf(lua_State *L, const char *fmt, ...) +{ + const char *msg; + va_list argp; + va_start(argp, fmt); + msg = lj_strfmt_pushvf(L, fmt, argp); + va_end(argp); + return msg; +} + diff --git a/src/3rd party/luajit-2.0/src/lj_strfmt.h b/src/3rd party/luajit-2.0/src/lj_strfmt.h new file mode 100644 index 00000000000..dcfaf2e393b --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_strfmt.h @@ -0,0 +1,125 @@ +/* +** String formatting. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_STRFMT_H +#define _LJ_STRFMT_H + +#include "lj_obj.h" + +typedef uint32_t SFormat; /* Format indicator. */ + +/* Format parser state. */ +typedef struct FormatState { + const uint8_t *p; /* Current format string pointer. */ + const uint8_t *e; /* End of format string. */ + const char *str; /* Returned literal string. */ + MSize len; /* Size of literal string. */ +} FormatState; + +/* Format types (max. 16). */ +typedef enum FormatType { + STRFMT_EOF, STRFMT_ERR, STRFMT_LIT, + STRFMT_INT, STRFMT_UINT, STRFMT_NUM, STRFMT_STR, STRFMT_CHAR, STRFMT_PTR +} FormatType; + +/* Format subtypes (bits are reused). */ +#define STRFMT_T_HEX 0x0010 /* STRFMT_UINT */ +#define STRFMT_T_OCT 0x0020 /* STRFMT_UINT */ +#define STRFMT_T_FP_A 0x0000 /* STRFMT_NUM */ +#define STRFMT_T_FP_E 0x0010 /* STRFMT_NUM */ +#define STRFMT_T_FP_F 0x0020 /* STRFMT_NUM */ +#define STRFMT_T_FP_G 0x0030 /* STRFMT_NUM */ +#define STRFMT_T_QUOTED 0x0010 /* STRFMT_STR */ + +/* Format flags. */ +#define STRFMT_F_LEFT 0x0100 +#define STRFMT_F_PLUS 0x0200 +#define STRFMT_F_ZERO 0x0400 +#define STRFMT_F_SPACE 0x0800 +#define STRFMT_F_ALT 0x1000 +#define STRFMT_F_UPPER 0x2000 + +/* Format indicator fields. */ +#define STRFMT_SH_WIDTH 16 +#define STRFMT_SH_PREC 24 + +#define STRFMT_TYPE(sf) ((FormatType)((sf) & 15)) +#define STRFMT_WIDTH(sf) (((sf) >> STRFMT_SH_WIDTH) & 255u) +#define STRFMT_PREC(sf) ((((sf) >> STRFMT_SH_PREC) & 255u) - 1u) +#define STRFMT_FP(sf) (((sf) >> 4) & 3) + +/* Formats for conversion characters. */ +#define STRFMT_A (STRFMT_NUM|STRFMT_T_FP_A) +#define STRFMT_C (STRFMT_CHAR) +#define STRFMT_D (STRFMT_INT) +#define STRFMT_E (STRFMT_NUM|STRFMT_T_FP_E) +#define STRFMT_F (STRFMT_NUM|STRFMT_T_FP_F) +#define STRFMT_G (STRFMT_NUM|STRFMT_T_FP_G) +#define STRFMT_I STRFMT_D +#define STRFMT_O (STRFMT_UINT|STRFMT_T_OCT) +#define STRFMT_P (STRFMT_PTR) +#define STRFMT_Q (STRFMT_STR|STRFMT_T_QUOTED) +#define STRFMT_S (STRFMT_STR) +#define STRFMT_U (STRFMT_UINT) +#define STRFMT_X (STRFMT_UINT|STRFMT_T_HEX) + +/* Maximum buffer sizes for conversions. */ +#define STRFMT_MAXBUF_XINT (1+22) /* '0' prefix + uint64_t in octal. */ +#define STRFMT_MAXBUF_INT (1+10) /* Sign + int32_t in decimal. */ +#define STRFMT_MAXBUF_NUM LUAI_MAXNUMBER2STR +#define STRFMT_MAXBUF_PTR (2+2*sizeof(ptrdiff_t)) /* "0x" + hex ptr. */ + +/* Format parser. */ +LJ_FUNC SFormat LJ_FASTCALL lj_strfmt_parse(FormatState *fs); + +static LJ_AINLINE void lj_strfmt_init(FormatState *fs, const char *p, MSize len) +{ + fs->p = (const uint8_t *)p; + fs->e = (const uint8_t *)p + len; + lua_assert(*fs->e == 0); /* Must be NUL-terminated (may have NULs inside). */ +} + +/* Raw conversions. */ +LJ_FUNC char * LJ_FASTCALL lj_strfmt_wint(char *p, int32_t k); +LJ_FUNC char * LJ_FASTCALL lj_strfmt_wnum(char *p, cTValue *o); +LJ_FUNC char * LJ_FASTCALL lj_strfmt_wptr(char *p, const void *v); +LJ_FUNC char * LJ_FASTCALL lj_strfmt_wuleb128(char *p, uint32_t v); +LJ_FUNC const char *lj_strfmt_wstrnum(char *buf, cTValue *o, MSize *lenp); + +/* Unformatted conversions to buffer. */ +LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putint(SBuf *sb, int32_t k); +#if LJ_HASJIT +LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putnum(SBuf *sb, cTValue *o); +#endif +LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putptr(SBuf *sb, const void *v); +LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putquoted(SBuf *sb, GCstr *str); + +/* Formatted conversions to buffer. */ +LJ_FUNC SBuf *lj_strfmt_putfxint(SBuf *sb, SFormat sf, uint64_t k); +LJ_FUNC SBuf *lj_strfmt_putfnum_int(SBuf *sb, SFormat sf, lua_Number n); +LJ_FUNC SBuf *lj_strfmt_putfnum_uint(SBuf *sb, SFormat sf, lua_Number n); +LJ_FUNC SBuf *lj_strfmt_putfnum(SBuf *sb, SFormat, lua_Number n); +LJ_FUNC SBuf *lj_strfmt_putfchar(SBuf *sb, SFormat, int32_t c); +LJ_FUNC SBuf *lj_strfmt_putfstr(SBuf *sb, SFormat, GCstr *str); + +/* Conversions to strings. */ +LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_int(lua_State *L, int32_t k); +LJ_FUNCA GCstr * LJ_FASTCALL lj_strfmt_num(lua_State *L, cTValue *o); +LJ_FUNCA GCstr * LJ_FASTCALL lj_strfmt_number(lua_State *L, cTValue *o); +#if LJ_HASJIT +LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_char(lua_State *L, int c); +#endif +LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_obj(lua_State *L, cTValue *o); + +/* Internal string formatting. */ +LJ_FUNC const char *lj_strfmt_pushvf(lua_State *L, const char *fmt, + va_list argp); +LJ_FUNC const char *lj_strfmt_pushf(lua_State *L, const char *fmt, ...) +#ifdef __GNUC__ + __attribute__ ((format (printf, 2, 3))) +#endif + ; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_tab.c b/src/3rd party/luajit-2.0/src/lj_tab.c index a8062db7cf7..a9f43835c17 100644 --- a/src/3rd party/luajit-2.0/src/lj_tab.c +++ b/src/3rd party/luajit-2.0/src/lj_tab.c @@ -29,7 +29,12 @@ static LJ_AINLINE Node *hashmask(const GCtab *t, uint32_t hash) #define hashlohi(t, lo, hi) hashmask((t), hashrot((lo), (hi))) #define hashnum(t, o) hashlohi((t), (o)->u32.lo, ((o)->u32.hi << 1)) #define hashptr(t, p) hashlohi((t), u32ptr(p), u32ptr(p) + HASH_BIAS) +#if LJ_GC64 +#define hashgcref(t, r) \ + hashlohi((t), (uint32_t)gcrefu(r), (uint32_t)(gcrefu(r) >> 32)) +#else #define hashgcref(t, r) hashlohi((t), gcrefu(r), gcrefu(r) + HASH_BIAS) +#endif /* Hash an arbitrary key and return its anchor position in the hash table. */ static Node *hashkey(const GCtab *t, cTValue *key) @@ -58,8 +63,8 @@ static LJ_AINLINE void newhpart(lua_State *L, GCtab *t, uint32_t hbits) lj_err_msg(L, LJ_ERR_TABOV); hsize = 1u << hbits; node = lj_mem_newvec(L, hsize, Node); - setmref(node->freetop, &node[hsize]); setmref(t->node, node); + setfreetop(t, node, &node[hsize]); t->hmask = hsize-1; } @@ -98,6 +103,7 @@ static GCtab *newtab(lua_State *L, uint32_t asize, uint32_t hbits) GCtab *t; /* First try to colocate the array part. */ if (LJ_MAX_COLOSIZE != 0 && asize > 0 && asize <= LJ_MAX_COLOSIZE) { + Node *nilnode; lua_assert((sizeof(GCtab) & 7) == 0); t = (GCtab *)lj_mem_newgco(L, sizetabcolo(asize)); t->gct = ~LJ_TTAB; @@ -107,8 +113,13 @@ static GCtab *newtab(lua_State *L, uint32_t asize, uint32_t hbits) setgcrefnull(t->metatable); t->asize = asize; t->hmask = 0; - setmref(t->node, &G(L)->nilnode); + nilnode = &G(L)->nilnode; + setmref(t->node, nilnode); +#if LJ_GC64 + setmref(t->freetop, nilnode); +#endif } else { /* Otherwise separately allocate the array part. */ + Node *nilnode; t = lj_mem_newobj(L, GCtab); t->gct = ~LJ_TTAB; t->nomm = (uint8_t)~0; @@ -117,7 +128,11 @@ static GCtab *newtab(lua_State *L, uint32_t asize, uint32_t hbits) setgcrefnull(t->metatable); t->asize = 0; /* In case the array allocation fails. */ t->hmask = 0; - setmref(t->node, &G(L)->nilnode); + nilnode = &G(L)->nilnode; + setmref(t->node, nilnode); +#if LJ_GC64 + setmref(t->freetop, nilnode); +#endif if (asize > 0) { if (asize > LJ_MAX_ASIZE) lj_err_msg(L, LJ_ERR_TABOV); @@ -149,6 +164,12 @@ GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits) return t; } +/* The API of this function conforms to lua_createtable(). */ +GCtab *lj_tab_new_ah(lua_State *L, int32_t a, int32_t h) +{ + return lj_tab_new(L, (uint32_t)(a > 0 ? a+1 : 0), hsize2hbits(h)); +} + #if LJ_HASJIT GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize) { @@ -185,7 +206,7 @@ GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt) Node *node = noderef(t->node); Node *knode = noderef(kt->node); ptrdiff_t d = (char *)node - (char *)knode; - setmref(node->freetop, (Node *)((char *)noderef(knode->freetop) + d)); + setfreetop(t, node, (Node *)((char *)getfreetop(kt, knode) + d)); for (i = 0; i <= hmask; i++) { Node *kn = &knode[i]; Node *n = &node[i]; @@ -198,6 +219,17 @@ GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt) return t; } +/* Clear a table. */ +void LJ_FASTCALL lj_tab_clear(GCtab *t) +{ + clearapart(t); + if (t->hmask > 0) { + Node *node = noderef(t->node); + setfreetop(t, node, &node[t->hmask+1]); + clearhpart(t); + } +} + /* Free a table. */ void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t) { @@ -247,6 +279,9 @@ static void resizetab(lua_State *L, GCtab *t, uint32_t asize, uint32_t hbits) } else { global_State *g = G(L); setmref(t->node, &g->nilnode); +#if LJ_GC64 + setmref(t->freetop, &g->nilnode); +#endif t->hmask = 0; } if (asize < oldasize) { /* Array part shrinks? */ @@ -428,7 +463,7 @@ TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key) Node *n = hashkey(t, key); if (!tvisnil(&n->val) || t->hmask == 0) { Node *nodebase = noderef(t->node); - Node *collide, *freenode = noderef(nodebase->freetop); + Node *collide, *freenode = getfreetop(t, nodebase); lua_assert(freenode >= nodebase && freenode <= nodebase+t->hmask+1); do { if (freenode == nodebase) { /* No free node found? */ @@ -436,7 +471,7 @@ TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key) return lj_tab_set(L, t, key); /* Retry key insertion. */ } } while (!tvisnil(&(--freenode)->key)); - setmref(nodebase->freetop, freenode); + setfreetop(t, nodebase, freenode); lua_assert(freenode != &G(L)->nilnode); collide = hashkey(t, &n->key); if (collide != n) { /* Colliding node not the main node? */ diff --git a/src/3rd party/luajit-2.0/src/lj_tab.h b/src/3rd party/luajit-2.0/src/lj_tab.h index f0d228eb20a..1da28bd97f6 100644 --- a/src/3rd party/luajit-2.0/src/lj_tab.h +++ b/src/3rd party/luajit-2.0/src/lj_tab.h @@ -34,10 +34,12 @@ static LJ_AINLINE uint32_t hashrot(uint32_t lo, uint32_t hi) #define hsize2hbits(s) ((s) ? ((s)==1 ? 1 : 1+lj_fls((uint32_t)((s)-1))) : 0) LJ_FUNCA GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits); +LJ_FUNC GCtab *lj_tab_new_ah(lua_State *L, int32_t a, int32_t h); #if LJ_HASJIT LJ_FUNC GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize); #endif LJ_FUNCA GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt); +LJ_FUNC void LJ_FASTCALL lj_tab_clear(GCtab *t); LJ_FUNC void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t); #if LJ_HASFFI LJ_FUNC void lj_tab_rehash(lua_State *L, GCtab *t); @@ -53,7 +55,7 @@ LJ_FUNCA cTValue *lj_tab_get(lua_State *L, GCtab *t, cTValue *key); /* Caveat: all setters require a write barrier for the stored value. */ LJ_FUNCA TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key); -LJ_FUNC TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key); +LJ_FUNCA TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key); LJ_FUNC TValue *lj_tab_setstr(lua_State *L, GCtab *t, GCstr *key); LJ_FUNC TValue *lj_tab_set(lua_State *L, GCtab *t, cTValue *key); diff --git a/src/3rd party/luajit-2.0/src/lj_target.h b/src/3rd party/luajit-2.0/src/lj_target.h index 1a242325f5b..0daecb11c86 100644 --- a/src/3rd party/luajit-2.0/src/lj_target.h +++ b/src/3rd party/luajit-2.0/src/lj_target.h @@ -138,6 +138,8 @@ typedef uint32_t RegCost; #include "lj_target_x86.h" #elif LJ_TARGET_ARM #include "lj_target_arm.h" +#elif LJ_TARGET_ARM64 +#include "lj_target_arm64.h" #elif LJ_TARGET_PPC #include "lj_target_ppc.h" #elif LJ_TARGET_MIPS diff --git a/src/3rd party/luajit-2.0/src/lj_target_arm.h b/src/3rd party/luajit-2.0/src/lj_target_arm.h index 6d4d0aed00e..0a243b3740b 100644 --- a/src/3rd party/luajit-2.0/src/lj_target_arm.h +++ b/src/3rd party/luajit-2.0/src/lj_target_arm.h @@ -243,10 +243,6 @@ typedef enum ARMIns { ARMI_VCVT_S32_F64 = 0xeebd0bc0, ARMI_VCVT_U32_F32 = 0xeebc0ac0, ARMI_VCVT_U32_F64 = 0xeebc0bc0, - ARMI_VCVTR_S32_F32 = 0xeebd0a40, - ARMI_VCVTR_S32_F64 = 0xeebd0b40, - ARMI_VCVTR_U32_F32 = 0xeebc0a40, - ARMI_VCVTR_U32_F64 = 0xeebc0b40, ARMI_VCVT_F32_S32 = 0xeeb80ac0, ARMI_VCVT_F64_S32 = 0xeeb80bc0, ARMI_VCVT_F32_U32 = 0xeeb80a40, diff --git a/src/3rd party/luajit-2.0/src/lj_target_arm64.h b/src/3rd party/luajit-2.0/src/lj_target_arm64.h new file mode 100644 index 00000000000..99e0adc9d66 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/lj_target_arm64.h @@ -0,0 +1,97 @@ +/* +** Definitions for ARM64 CPUs. +** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +*/ + +#ifndef _LJ_TARGET_ARM64_H +#define _LJ_TARGET_ARM64_H + +/* -- Registers IDs ------------------------------------------------------- */ + +#define GPRDEF(_) \ + _(X0) _(X1) _(X2) _(X3) _(X4) _(X5) _(X6) _(X7) \ + _(X8) _(X9) _(X10) _(X11) _(X12) _(X13) _(X14) _(X15) \ + _(X16) _(X17) _(X18) _(X19) _(X20) _(X21) _(X22) _(X23) \ + _(X24) _(X25) _(X26) _(X27) _(X28) _(FP) _(LR) _(SP) +#define FPRDEF(_) \ + _(D0) _(D1) _(D2) _(D3) _(D4) _(D5) _(D6) _(D7) \ + _(D8) _(D9) _(D10) _(D11) _(D12) _(D13) _(D14) _(D15) \ + _(D16) _(D17) _(D18) _(D19) _(D20) _(D21) _(D22) _(D23) \ + _(D24) _(D25) _(D26) _(D27) _(D28) _(D29) _(D30) _(D31) +#define VRIDDEF(_) + +#define RIDENUM(name) RID_##name, + +enum { + GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ + FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ + RID_MAX, + RID_TMP = RID_LR, + RID_ZERO = RID_SP, + + /* Calling conventions. */ + RID_RET = RID_X0, + RID_FPRET = RID_D0, + + /* These definitions must match with the *.dasc file(s): */ + RID_BASE = RID_X19, /* Interpreter BASE. */ + RID_LPC = RID_X21, /* Interpreter PC. */ + RID_GL = RID_X22, /* Interpreter GL. */ + RID_LREG = RID_X23, /* Interpreter L. */ + + /* Register ranges [min, max) and number of registers. */ + RID_MIN_GPR = RID_X0, + RID_MAX_GPR = RID_SP+1, + RID_MIN_FPR = RID_MAX_GPR, + RID_MAX_FPR = RID_D31+1, + RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, + RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR +}; + +#define RID_NUM_KREF RID_NUM_GPR +#define RID_MIN_KREF RID_X0 + +/* -- Register sets ------------------------------------------------------- */ + +/* Make use of all registers, except for x18, fp, lr and sp. */ +#define RSET_FIXED \ + (RID2RSET(RID_X18)|RID2RSET(RID_FP)|RID2RSET(RID_LR)|RID2RSET(RID_SP)) +#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) +#define RSET_FPR RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR) +#define RSET_ALL (RSET_GPR|RSET_FPR) +#define RSET_INIT RSET_ALL + +/* lr is an implicit scratch register. */ +#define RSET_SCRATCH_GPR (RSET_RANGE(RID_X0, RID_X17+1)) +#define RSET_SCRATCH_FPR \ + (RSET_RANGE(RID_D0, RID_D7+1)|RSET_RANGE(RID_D16, RID_D31+1)) +#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) +#define REGARG_FIRSTGPR RID_X0 +#define REGARG_LASTGPR RID_X7 +#define REGARG_NUMGPR 8 +#define REGARG_FIRSTFPR RID_D0 +#define REGARG_LASTFPR RID_D7 +#define REGARG_NUMFPR 8 + +/* -- Instructions -------------------------------------------------------- */ + +/* Instruction fields. */ +#define A64F_D(r) (r) +#define A64F_N(r) ((r) << 5) +#define A64F_A(r) ((r) << 10) +#define A64F_M(r) ((r) << 16) +#define A64F_U16(x) ((x) << 5) +#define A64F_S26(x) (x) +#define A64F_S19(x) ((x) << 5) + +typedef enum A64Ins { + A64I_MOVZw = 0x52800000, + A64I_MOVZx = 0xd2800000, + A64I_LDRLw = 0x18000000, + A64I_LDRLx = 0x58000000, + A64I_NOP = 0xd503201f, + A64I_B = 0x14000000, + A64I_BR = 0xd61f0000, +} A64Ins; + +#endif diff --git a/src/3rd party/luajit-2.0/src/lj_target_mips.h b/src/3rd party/luajit-2.0/src/lj_target_mips.h index 0ab140bf327..76645bcac5e 100644 --- a/src/3rd party/luajit-2.0/src/lj_target_mips.h +++ b/src/3rd party/luajit-2.0/src/lj_target_mips.h @@ -169,6 +169,9 @@ typedef enum MIPSIns { MIPSI_SLTU = 0x0000002b, MIPSI_MOVZ = 0x0000000a, MIPSI_MOVN = 0x0000000b, + MIPSI_MFHI = 0x00000010, + MIPSI_MFLO = 0x00000012, + MIPSI_MULT = 0x00000018, MIPSI_SLL = 0x00000000, MIPSI_SRL = 0x00000002, diff --git a/src/3rd party/luajit-2.0/src/lj_target_x86.h b/src/3rd party/luajit-2.0/src/lj_target_x86.h index d12a1b87c00..65e438fdfcf 100644 --- a/src/3rd party/luajit-2.0/src/lj_target_x86.h +++ b/src/3rd party/luajit-2.0/src/lj_target_x86.h @@ -33,6 +33,7 @@ enum { RID_MRM = RID_MAX, /* Pseudo-id for ModRM operand. */ /* Calling conventions. */ + RID_SP = RID_ESP, RID_RET = RID_EAX, #if LJ_64 RID_FPRET = RID_XMM0, @@ -277,10 +278,8 @@ typedef enum { XO_ROUNDSD = 0x0b3a0ffc, /* Really 66 0f 3a 0b. See asm_fpmath. */ XO_UCOMISD = XO_660f(2e), XO_CVTSI2SD = XO_f20f(2a), - XO_CVTSD2SI = XO_f20f(2d), XO_CVTTSD2SI= XO_f20f(2c), XO_CVTSI2SS = XO_f30f(2a), - XO_CVTSS2SI = XO_f30f(2d), XO_CVTTSS2SI= XO_f30f(2c), XO_CVTSS2SD = XO_f30f(5a), XO_CVTSD2SS = XO_f20f(5a), diff --git a/src/3rd party/luajit-2.0/src/lj_trace.c b/src/3rd party/luajit-2.0/src/lj_trace.c index e51ec5467a0..39ff0461601 100644 --- a/src/3rd party/luajit-2.0/src/lj_trace.c +++ b/src/3rd party/luajit-2.0/src/lj_trace.c @@ -360,7 +360,7 @@ static void trace_start(jit_State *J) TraceNo traceno; if ((J->pt->flags & PROTO_NOJIT)) { /* JIT disabled for this proto? */ - if (J->parent == 0) { + if (J->parent == 0 && J->exitno == 0) { /* Lazy bytecode patching to disable hotcount events. */ lua_assert(bc_op(*J->pc) == BC_FORL || bc_op(*J->pc) == BC_ITERL || bc_op(*J->pc) == BC_LOOP || bc_op(*J->pc) == BC_FUNCF); @@ -453,6 +453,12 @@ static void trace_stop(jit_State *J) root->nextside = (TraceNo1)traceno; } break; + case BC_CALLM: + case BC_CALL: + case BC_ITERC: + /* Trace stitching: patch link of previous trace. */ + traceref(J, J->exitno)->link = traceno; + break; default: lua_assert(0); break; @@ -467,6 +473,7 @@ static void trace_stop(jit_State *J) lj_vmevent_send(L, TRACE, setstrV(L, L->top++, lj_str_newlit(L, "stop")); setintV(L->top++, traceno); + setfuncV(L, L->top++, J->fn); ); } @@ -502,8 +509,12 @@ static int trace_abort(jit_State *J) return 1; /* Retry ASM with new MCode area. */ } /* Penalize or blacklist starting bytecode instruction. */ - if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) - penalty_pc(J, &gcref(J->cur.startpt)->pt, mref(J->cur.startpc, BCIns), e); + if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) { + if (J->exitno == 0) + penalty_pc(J, &gcref(J->cur.startpt)->pt, mref(J->cur.startpc, BCIns), e); + else + traceref(J, J->exitno)->link = J->exitno; /* Self-link is blacklisted. */ + } /* Is there anything to abort? */ traceno = J->cur.traceno; @@ -672,6 +683,7 @@ static void trace_hotside(jit_State *J, const BCIns *pc) { SnapShot *snap = &traceref(J, J->parent)->snap[J->exitno]; if (!(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT)) && + isluafunc(curr_func(J->L)) && snap->count != SNAPCOUNT_DONE && ++snap->count >= J->param[JIT_P_hotexit]) { lua_assert(J->state == LJ_TRACE_IDLE); @@ -681,6 +693,20 @@ static void trace_hotside(jit_State *J, const BCIns *pc) } } +/* Stitch a new trace to the previous trace. */ +void LJ_FASTCALL lj_trace_stitch(jit_State *J, const BCIns *pc) +{ + /* Only start a new trace if not recording or inside __gc call or vmevent. */ + if (J->state == LJ_TRACE_IDLE && + !(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT))) { + J->parent = 0; /* Have to treat it like a root trace. */ + /* J->exitno is set to the invoking trace. */ + J->state = LJ_TRACE_START; + lj_trace_ins(J, pc); + } +} + + /* Tiny struct to pass data to protected call. */ typedef struct ExitDataCP { jit_State *J; @@ -767,17 +793,20 @@ int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr) if (errcode) return -errcode; /* Return negated error code. */ - lj_vmevent_send(L, TEXIT, - lj_state_checkstack(L, 4+RID_NUM_GPR+RID_NUM_FPR+LUA_MINSTACK); - setintV(L->top++, J->parent); - setintV(L->top++, J->exitno); - trace_exit_regs(L, ex); - ); + if (!(LJ_HASPROFILE && (G(L)->hookmask & HOOK_PROFILE))) + lj_vmevent_send(L, TEXIT, + lj_state_checkstack(L, 4+RID_NUM_GPR+RID_NUM_FPR+LUA_MINSTACK); + setintV(L->top++, J->parent); + setintV(L->top++, J->exitno); + trace_exit_regs(L, ex); + ); pc = exd.pc; cf = cframe_raw(L->cframe); setcframe_pc(cf, pc); - if (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize) { + if (LJ_HASPROFILE && (G(L)->hookmask & HOOK_PROFILE)) { + /* Just exit to interpreter. */ + } else if (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize) { if (!(G(L)->hookmask & HOOK_GC)) lj_gc_step(L); /* Exited because of GC: drive GC forward. */ } else { @@ -801,7 +830,7 @@ int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr) ERRNO_RESTORE switch (bc_op(*pc)) { case BC_CALLM: case BC_CALLMT: - return (int)((BCReg)(L->top - L->base) - bc_a(*pc) - bc_c(*pc)); + return (int)((BCReg)(L->top - L->base) - bc_a(*pc) - bc_c(*pc) + LJ_FR2); case BC_RETM: return (int)((BCReg)(L->top - L->base) + 1 - bc_a(*pc) - bc_d(*pc)); case BC_TSETM: diff --git a/src/3rd party/luajit-2.0/src/lj_trace.h b/src/3rd party/luajit-2.0/src/lj_trace.h index 4fbe5cf257a..9eaf91b0e33 100644 --- a/src/3rd party/luajit-2.0/src/lj_trace.h +++ b/src/3rd party/luajit-2.0/src/lj_trace.h @@ -34,6 +34,7 @@ LJ_FUNC void lj_trace_freestate(global_State *g); /* Event handling. */ LJ_FUNC void lj_trace_ins(jit_State *J, const BCIns *pc); LJ_FUNCA void LJ_FASTCALL lj_trace_hot(jit_State *J, const BCIns *pc); +LJ_FUNCA void LJ_FASTCALL lj_trace_stitch(jit_State *J, const BCIns *pc); LJ_FUNCA int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr); /* Signal asynchronous abort of trace or end of trace. */ diff --git a/src/3rd party/luajit-2.0/src/lj_traceerr.h b/src/3rd party/luajit-2.0/src/lj_traceerr.h index 9bef117aba1..6b377cb0b37 100644 --- a/src/3rd party/luajit-2.0/src/lj_traceerr.h +++ b/src/3rd party/luajit-2.0/src/lj_traceerr.h @@ -7,6 +7,7 @@ /* Recording. */ TREDEF(RECERR, "error thrown or hook called during recording") +TREDEF(TRACEUV, "trace too short") TREDEF(TRACEOV, "trace too long") TREDEF(STACKOV, "trace too deep") TREDEF(SNAPOV, "too many snapshots") @@ -23,8 +24,6 @@ TREDEF(BADTYPE, "bad argument type") TREDEF(CJITOFF, "JIT compilation disabled for function") TREDEF(CUNROLL, "call unroll limit reached") TREDEF(DOWNREC, "down-recursion, restarting") -TREDEF(NYICF, "NYI: C function %p") -TREDEF(NYIFF, "NYI: FastFunc %s") TREDEF(NYIFFU, "NYI: unsupported variant of FastFunc %s") TREDEF(NYIRETL, "NYI: return to lower frame") diff --git a/src/3rd party/luajit-2.0/src/lj_vm.h b/src/3rd party/luajit-2.0/src/lj_vm.h index 036cabc57fe..b31e22f70f7 100644 --- a/src/3rd party/luajit-2.0/src/lj_vm.h +++ b/src/3rd party/luajit-2.0/src/lj_vm.h @@ -43,13 +43,14 @@ LJ_ASMF void lj_vm_record(void); LJ_ASMF void lj_vm_inshook(void); LJ_ASMF void lj_vm_rethook(void); LJ_ASMF void lj_vm_callhook(void); +LJ_ASMF void lj_vm_profhook(void); /* Trace exit handling. */ LJ_ASMF void lj_vm_exit_handler(void); LJ_ASMF void lj_vm_exit_interp(void); /* Internal math helper functions. */ -#if LJ_TARGET_X86ORX64 || LJ_TARGET_PPC +#if LJ_TARGET_PPC || LJ_TARGET_ARM64 #define lj_vm_floor floor #define lj_vm_ceil ceil #else @@ -60,7 +61,7 @@ LJ_ASMF double lj_vm_floor_sf(double); LJ_ASMF double lj_vm_ceil_sf(double); #endif #endif -#if defined(LUAJIT_NO_LOG2) || LJ_TARGET_X86ORX64 +#ifdef LUAJIT_NO_LOG2 LJ_ASMF double lj_vm_log2(double); #else #define lj_vm_log2 log2 @@ -71,12 +72,12 @@ LJ_ASMF double lj_vm_log2(double); LJ_ASMF void lj_vm_floor_sse(void); LJ_ASMF void lj_vm_ceil_sse(void); LJ_ASMF void lj_vm_trunc_sse(void); -LJ_ASMF void lj_vm_exp_x87(void); -LJ_ASMF void lj_vm_exp2_x87(void); -LJ_ASMF void lj_vm_pow_sse(void); LJ_ASMF void lj_vm_powi_sse(void); +#define lj_vm_powi NULL #else -#if LJ_TARGET_PPC +LJ_ASMF double lj_vm_powi(double, int32_t); +#endif +#if LJ_TARGET_PPC || LJ_TARGET_ARM64 #define lj_vm_trunc trunc #else LJ_ASMF double lj_vm_trunc(double); @@ -84,13 +85,11 @@ LJ_ASMF double lj_vm_trunc(double); LJ_ASMF double lj_vm_trunc_sf(double); #endif #endif -LJ_ASMF double lj_vm_powi(double, int32_t); #ifdef LUAJIT_NO_EXP2 LJ_ASMF double lj_vm_exp2(double); #else #define lj_vm_exp2 exp2 #endif -#endif LJ_ASMF int32_t LJ_FASTCALL lj_vm_modi(int32_t, int32_t); #if LJ_HASFFI LJ_ASMF int lj_vm_errno(void); @@ -104,8 +103,7 @@ LJ_ASMF void lj_cont_nop(void); /* Do nothing, just continue execution. */ LJ_ASMF void lj_cont_condt(void); /* Branch if result is true. */ LJ_ASMF void lj_cont_condf(void); /* Branch if result is false. */ LJ_ASMF void lj_cont_hook(void); /* Continue from hook yield. */ - -enum { LJ_CONT_TAILCALL, LJ_CONT_FFI_CALLBACK }; /* Special continuations. */ +LJ_ASMF void lj_cont_stitch(void); /* Trace stitching. */ /* Start of the ASM code. */ LJ_ASMF char lj_vm_asm_begin[]; diff --git a/src/3rd party/luajit-2.0/src/lj_vmevent.c b/src/3rd party/luajit-2.0/src/lj_vmevent.c index 81fe47d4dc9..87ebcfbd286 100644 --- a/src/3rd party/luajit-2.0/src/lj_vmevent.c +++ b/src/3rd party/luajit-2.0/src/lj_vmevent.c @@ -27,6 +27,7 @@ ptrdiff_t lj_vmevent_prepare(lua_State *L, VMEvent ev) if (tv && tvisfunc(tv)) { lj_state_checkstack(L, LUA_MINSTACK); setfuncV(L, L->top++, funcV(tv)); + if (LJ_FR2) setnilV(L->top++); return savestack(L, L->top); } } diff --git a/src/3rd party/luajit-2.0/src/lj_vmmath.c b/src/3rd party/luajit-2.0/src/lj_vmmath.c index 31c6029fce1..ecad2950d93 100644 --- a/src/3rd party/luajit-2.0/src/lj_vmmath.c +++ b/src/3rd party/luajit-2.0/src/lj_vmmath.c @@ -13,16 +13,29 @@ #include "lj_ir.h" #include "lj_vm.h" -/* -- Helper functions for generated machine code ------------------------- */ +/* -- Wrapper functions --------------------------------------------------- */ -#if LJ_TARGET_X86ORX64 -/* Wrapper functions to avoid linker issues on OSX. */ -LJ_FUNCA double lj_vm_sinh(double x) { return sinh(x); } -LJ_FUNCA double lj_vm_cosh(double x) { return cosh(x); } -LJ_FUNCA double lj_vm_tanh(double x) { return tanh(x); } +#if LJ_TARGET_X86 && __ELF__ && __PIC__ +/* Wrapper functions to deal with the ELF/x86 PIC disaster. */ +LJ_FUNCA double lj_wrap_log(double x) { return log(x); } +LJ_FUNCA double lj_wrap_log10(double x) { return log10(x); } +LJ_FUNCA double lj_wrap_exp(double x) { return exp(x); } +LJ_FUNCA double lj_wrap_sin(double x) { return sin(x); } +LJ_FUNCA double lj_wrap_cos(double x) { return cos(x); } +LJ_FUNCA double lj_wrap_tan(double x) { return tan(x); } +LJ_FUNCA double lj_wrap_asin(double x) { return asin(x); } +LJ_FUNCA double lj_wrap_acos(double x) { return acos(x); } +LJ_FUNCA double lj_wrap_atan(double x) { return atan(x); } +LJ_FUNCA double lj_wrap_sinh(double x) { return sinh(x); } +LJ_FUNCA double lj_wrap_cosh(double x) { return cosh(x); } +LJ_FUNCA double lj_wrap_tanh(double x) { return tanh(x); } +LJ_FUNCA double lj_wrap_atan2(double x, double y) { return atan2(x, y); } +LJ_FUNCA double lj_wrap_pow(double x, double y) { return pow(x, y); } +LJ_FUNCA double lj_wrap_fmod(double x, double y) { return fmod(x, y); } #endif -#if !LJ_TARGET_X86ORX64 +/* -- Helper functions for generated machine code ------------------------- */ + double lj_vm_foldarith(double x, double y, int op) { switch (op) { @@ -43,7 +56,6 @@ double lj_vm_foldarith(double x, double y, int op) default: return x; } } -#endif #if LJ_HASJIT @@ -61,7 +73,7 @@ double lj_vm_exp2(double a) } #endif -#if !(LJ_TARGET_ARM || LJ_TARGET_PPC) +#if !(LJ_TARGET_ARM || LJ_TARGET_ARM64 || LJ_TARGET_PPC) int32_t LJ_FASTCALL lj_vm_modi(int32_t a, int32_t b) { uint32_t y, ua, ub; @@ -107,6 +119,7 @@ double lj_vm_powi(double x, int32_t k) else return 1.0 / lj_vm_powui(x, (uint32_t)-k); } +#endif /* Computes fpm(x) for extended math functions. */ double lj_vm_foldfpm(double x, int fpm) @@ -128,7 +141,6 @@ double lj_vm_foldfpm(double x, int fpm) } return 0; } -#endif #if LJ_HASFFI int lj_vm_errno(void) diff --git a/src/3rd party/luajit-2.0/src/ljamalg.c b/src/3rd party/luajit-2.0/src/ljamalg.c index 9b237b7e9d2..be0c52d743e 100644 --- a/src/3rd party/luajit-2.0/src/ljamalg.c +++ b/src/3rd party/luajit-2.0/src/ljamalg.c @@ -33,6 +33,7 @@ #include "lj_char.c" #include "lj_bc.c" #include "lj_obj.c" +#include "lj_buf.c" #include "lj_str.c" #include "lj_tab.c" #include "lj_func.c" @@ -44,7 +45,9 @@ #include "lj_vmevent.c" #include "lj_vmmath.c" #include "lj_strscan.c" +#include "lj_strfmt.c" #include "lj_api.c" +#include "lj_profile.c" #include "lj_lex.c" #include "lj_parse.c" #include "lj_bcread.c" diff --git a/src/3rd party/luajit-2.0/src/lua51.dll b/src/3rd party/luajit-2.0/src/lua51.dll index 5a3d78d8f0103a39bd14627bba645c908ebec5c8..16457c0f3e1f8476dcc080785ad3f86defa9e134 100644 GIT binary patch delta 184063 zcmdqK3w%?>_CK2Jq-_c*JB3gJ1lrO71qu`>2(&<3`r=(EBp^^gv6hO;BjF8cO)E{e z6?KkQl;hiTP&`L`QAEK$q%AK+IVg$`9-=!$6hWapbH8hL(g*18ckcb)&*y$Vw|sW? z?AdG9tXZ>W&6+i9HifTrEc`Iyu|nsjJ^S__`2L@p16M@U;?4W`^FKDfg?nB3n#~RT zzG`zlzh`c){DvS^`!JPC z`$&)~i9IfugSH2$^d_WwL>TZcnHTc^0Ofi0a=;{0PX%2?6Z(=7T3D{^!B>B3Gg>0TLG?Y3HU)X;PzVq zml0r$ALE*4zz1&yWQRj~v#_8xZK$68L`@Bg4(b`^=4JM4{}78em|0FxoDgSbML``~ z!o2{vHqCIpuI%%mfx_!u*_hx6);ZWBJVD8kU94SIDrxb4Et>1PabbC1s;Zth996}1 zbDZ@={58Z2K`}v&?>%31Vb_8Ob$J;ay?oe@Y{Xu>(RBk9mLr#S4K}l1LfWv!A+PH+ zY5TQe$)V2dw@w{G{akp9Kd}g1dbdY9`}w*P{Zp7HKG2XSF4;F#v{hda!&$VxLr3bV zYmR71TO-=4E{J`T_5L?w=*{n9i3=zseU1C5{8m3LI;n4!`>eQQ@(u4kamUZ%jw;u> zv(%Z5kOXS(*$d)KZM`1{`z16iyuSI(oYrriYJM}T^_zQ|-{iJ>6OqvT#-Oj4-yT5K z@}}_0H2&A1U?$Ph{O0pc3W0btr}di`o8Qc8{bot?o7`4!lEyT@G3d{F)IOiD6*~sv zy?+o`{GgmOH7!UoUyNu1l9BYYZ;rMVP-QdF8_htoS_7?Z23pb#l-mku_Lyd%gk~Uv zzQ*(8ja$e!HiL$?0(Bon1GEM-8w!b0!+9||7OVH-+ew=HIJFXGNX9qwx znq)v3H9OhX$To%D5whh@UJZXf8DhfXl$0%3ODBZ7< zv>QEpFpye4uZA*g?s<%tiz3EL+*#iF%L}Ll=*~Fe0mj~dYO&;V03@cHMAtqfs!wP% z={nactDMWIgB-g_fP+=mzJaqy{UIsd+tVqI7U|sjOlvMj8=mZ4VZ%| zGr*YaFgCJ%a;J94;#Gg#iYE4W`&H@Zdh=TN>qq~j0&hucCSFR{Y8`Q$0iR=fS6InD zGj!|M3OBXd-`)?PKQ(C4;$4XR=pp;U0G3w4#M+c?5Pghg>!lq-p$13 z8_hkYxYpG}TE^0#k`~u%-HZ3@rMPiCYZ@mIF1qqXhK@^@i&-1OB2r?ajR>(%eF%@H%zv)P4+ys^J)RH{B_)gJFN<@)`u z)uh>bw1JjdjcLJULP}bMnFwh;(hvbuXc(tk7X#65K;0>(aR*fHIX2?o>$SF8o|qacT2^;uqRA+3uRphqPrwzU-tPV zZIP6mK>EeawsXOb!>{iIaf2my7L9qBx}^;V2?8`HPBMub-(YulPEtR}Ug(^r?#a${ zUKRhUTBWLYnNjj43j4lIbh z3$raK_rD;Bx?HD)LKBPMWP&qzCrL0F+r|m9}2E)zh{pWVI zSL;6P=8b?ptWTdvWO`qBoxHAOzTb%Fon#-<@SLkFs*P`p^s?*qsn-d#xfz%;*|n~* z!fBcHG>`2@VD2=F30H!9eeCe`5WBsp<;-dB6P$I$=kv^G|2FrEoU4=8$GX=6aZdm?9A08gN_?{myt#b01LbXV^o zbJsJSZRj>2Y9~6c&(Z30n(}m?=VK$+89vuJ1A4NLM=UO52fLX^9Q+x@(kuqlXuL)} zg>>PD>%$xa%B5`dg}YCEiWU=&&wa?-L)?*Z(?2h!u>;-v3;%kaP3t~--ZHSs?QtJ< z*T@$-XqDOZEKR53zkz*z_3bg>;ZLf%?{ltSv|Q{VsvgODotNIr z@TQmsuzMmq5#CW>yoDF`tVZ+Mg~*g)m;V+p6pA0BCRg`4>|XkN`4V9#$(|?vI%uQ8 zG{aDCtN}xarsaQQi=yJYL_fugf^?$<7E6m7q4-98DHcbvccS{lZ9v^5eHquq9S6l7 zaRv+tuj#ThPP zm`JWhjrh>Jm_=P{X#Rek=F`5e^#+w#@*L0ABlmBtM~@!P)-%~?VC04GY$}{hg$2%{ zG%m{SqpljAdpfML*C99VvwRK*?e2m`cj|S|HH>p=WJxCl1ypz#Qc#?N=S%;)hpy2C zjpnX#VoeY(31}+`GPUDFf?0$4VB?nna($477J=^lRAL($REgWjm|7MjrxRsL*HN#* zmU`Vw`orMe&beHHBKDaI3nVJ;hn+zxO%fo7S~p9MX{Y(Rqn1sL>DjLvs;*Df6W6`Z z``Pc&1Za*V6nzzR9oUO8F=?Mdf;hK+#N@8L_=cxw4*Q&JfMwUw?o{1wmFoN$EQ${C zMG>YBtcu7|3r}rijWOMw8K}{<-mJ2R`$y!-Fyd@UmE%7F5Y5=;{=r4;Um-TF$rC-K=*cgyW^e}Nb&VrU+5lh}hu4{cPy5@DH3fG5Vw7x)) zlZ^Jz#7PFR_z66f+pEtfIxq#5Fmuo3?pf$e>INyn@+T7pv-g}4^6;-vzt8>74)+`& zEcot;UNOB^LS-xX?UIbl(E$#~BfTT;zvzimrLLfXZh$qkhH&#aln73F**VAU{?hYXXoRn;_fX z0-38oJ{^GchWNYC={kvI%htD1KpzNzRtG>`mA61fD3EC!63V@z39_80NaMJg${5CD z`P;O5hCqDu1KR04>j?^!pV?G?a#Q)Vzb-$A%AfVrVMgLQqH|Mmv8i~_Ul-rRi#t6V z1LeP_sgI9@!#qXg*CF+7s_t9is~g{b<(b1lq4C~CHlIcT@-n5l?&fpeXJ?9Ts8lC> z%SVRF_F+43Le)`5lxo?4>T@0Y?1kC0S1Pz(bOy6%VbLKcV8>v#1Z(`0e*!9jy7Zo- zPJxon9@|1m&mz}VY9kQrOn@r=?2LCCmyt+LF^#2;NKr|U2dVaGb-@P6Im~NSSU#EhkggPh~Kv^hKnAZ9h-SCmh+;{~{gT-frm8v5p zTJD6oN=g-`7N2|LEHt6WE5GBDHaOVA3V0d|gj=c{4*X>CLa8Z2xEU3!=-^s|MVYG{ zX;fZdpc<7Htw9#%F}z%Yl+@SV2CI1Keq_XrXItZ9)H&>6T#S?VDGZrgt&2x_abnFS z$Q99DE=7@X4U4b6l%jJl(!15X0kbt~mAhJgMXOeM8UsqFnhLeHSCX1AzS4}*`KKsf z6FACggz_H&ln>sH@+`8H)=q0i`KK5|6e3lGae4q_H;u~a7q<>5?;i!jTaJR6)p_EE zy`BfqgPc=dNGL{13m8RQk077QlW{{O(8I>^w3_oH4vP;DqQa|a#Ka>7C|n$>I{J{) zCF{J$IqJv%0yTNQ{tES%G+sFBFOX`9I`mL8<~#lZbEJUw{}t->O{mx1f_hL3)ZbFu zxF$QIw2kyg3+@E?As+IZ3~w|Qc!>%)!LvUvaTy*^3_iZ*2Qxi(DoBR?eN7k^@Dz!- zjc{@HL-z;p9fi61`BYE<$KXutL~PiLYu}MG-hXgBF;v>gY46;GNc_Kn=$vPEU@RUZ zW^q)X@D$PXvBEZp#Q#8((@)e5k0F4oya|`93D@fX2A3bzUe8`G;F@I_MAGtP(gMpz z{yBR(-p-#xo`>1?L1WZ!u=9gPcF8@9G5?3_OkYxNrMxSkdlnTj-Y*=(P4)7Cj_Ji2I#o4C(2VCdqI* z7~FH9?dDjFSG5kA4lf)8H^dze_|!7SYvYK9l`~LG zPpt?zoL(beh1QE1p)xsjge(>}f)C^>c<~1!BpDsoL~HpNshK>v?2?)mWS#~TfKLK| zK2+;{wh0_f`{EA{gVnv~MS!vUhL}5%V@h%1V21X&T~vizN@C9qiFcBhO7gqDI1jLL zpKdY0^#O*|yT~Vo9#YA1?O@tZisddN_o8@OsV_B^RIR$3S59-$nnuZKker91(woaQ zdyb@FWnGU=HZ1L3H)bshb=_EyzB~lZ0He>cO-jA~8nmX$@vFEa`34;3>uUT6z29Cw zhLv26yy&Kyh9y>-G8QXHh9mhcF19{lX2(B&bK@`HtWSt#FAg0NBF4%W#N2AOA)(vk z6M5qFQ}7*rv*M0CamHZ`^wZdPI-Mt4Pwn)tIuHBRK+VT$07DndIU&ZvIGS}3$?94p z8u&BPEar~+Y{-a_A>5nx-Ve+^Vra<44r=lhvh5=V8s7zX-IMj?yjf&)|Ar>^Grn_i z#1BIE#qmLg0&Tu3UZt8*ppqJW9Ty_UCY|?n%#ROx=Z~bR>dpj%i6N=vxP5Yg8Ez|c zw$;~hPJ9rXH@csBKHip8*@tQD7E8ay7K>vC7@d^O%d>xsb~RUFQ03fS1$-lGK- z`LuuhCt#Px^cVUxu%5}!#Z!$|Tlp&%5*TTSv{oz4*7-X6$&4@Y*~fD-jR7(*CMRpq z8a6EDxvm7&&u$rx1{pNh>;+PPG{hiv15);D%3TEa&h*r}U?J|Kcg*9CX}eGX*E)+? zCCPrg@!2+|`Ryk6Gx?hzuYv!t-yF+u$Br2a>!wcrd$9A9j?gn!qw8Zm+);XWmeDPc zPpUput1SCan-;f6QmUa`+u*8d zOiVS34?Rt-Pt^rIhI?(%mGj4Zz71`GT`MIU0fww!CLqtz2`IEMeWY;~mt5%9)hBZ= zqrZs5Uj(}Yt7@qd8)}hOH5Og@l?oeCgER&HheGz@j94eHY@R|HQD^hnp>Wn&^mMn$ zyD_lPR)|BQRa$A}ndKRc?o6XhtJ(rV(z)BwE>;Hiz;*7GM!d|n$tUZJZrGIsG3@wSZx<_Yx8@?3& zld`m~D;JhyP9w`Du1Y#Hx7Ky#nxm_vD>qtX>j8}lgofcYZCEPr3p755-sjNCGYOmj z&q@T?sFhZmJn$wvY3s-=HbVsZ78!!Sw)4^#(x>vm_t|(`jPU(Q_Mj~qbJ63rNMYT6 zHhE5jsraOVG6#xUHv{SnLOdf!p36?ydPNuo71Hsv&;#X!>wx^kPG+9DsD1qjwaS)H zPB=6)Do4&d$tq^1CI3sKswM6eteh(E^`k!6f?p|+E9o#{8&7;#8N$~u-u_aCA~LM= ztYK5Gec#+nw04HlRG>9lx|d_-Xl6b(uP)xXN**-~OpKtGw$S zjVc=`eM?r!qrYb_&$5`dw!qnfoNKnD zc^epkIs7yh7{^>6n_O$PKF7EMb%Dw%Kk^-W)#E-# zh?H))rT5#^|4+TI|E?8V4z`kj@2{{2XV2{v70$bVHTE3>UG}Mb{9Sf>c1%|*>`O&> zZlyGiMbGIcoZm|lAvAu&^6>PJYR2Yd3NO9JzL_&vxH+2{=5`lCt6BWqk#pv|;bqmL zCw#6HqfSaOCZ?E{9m@4QvsKe1pHLDQ^*Ppj!vd8-TB1YundmCZU7B5Z`n-Iliby0S z-L`D<(!!Hsn**hjm*&o9I~H~qMS+hWz+((a$5}*fbT1u{`_&I`x{eQXs~km2%Wg4C zjaJ!sncbP&!x}knNL6la;#95UlI!Y?Wu}01B{tg6BsSPj&Qk_;trQ}KV#uC%UHyIK z!2;FPY^(evHu9wg5azm~UJ+d&Of63_Slt;$dE-ayaBg>YKKD+|+dTv}X71Lt@>E&gI#Sl8+s}YlQl4 z*5>YE<~Z_12E=?tXHsVE6lErS#OB=HUwxXD-91qK4%>D2U~?h%fC8OmM_QV!1Fse3 z$$}R46$)%@(85lFeis|RForEzXw;SJAky+nFSAD$_7EO@k!@cXqZy$S*cS_X2~n5X z&4oP-<`*@p@=Vjb+}eUER=N9^EdCyIc+~kO=J?{R@^44k+Jjq{_wf0V1ez(>#iBD71)<~lj39XqLnm*6aIk|B7Gu% z6(p!=D=u3Z0vs9C(ho?(IKh%X2^)mIHtWC0;=Hy+qe7Pi2>lZ(U(>Xta_zs-8z1WfB{;l)jGw@Q zAs{yYLAs^bBwn$L7{qO*Po=~2ay>_92`WDP%`MdYi@XdUC?pHZK4CvE8mL~t%mrP9 zi2ZDM!NAxv&-yzgN71XO4%3Yfs|aa>(e*2=Pg9On{{AzzsbIAFP4-DacL>qBf;q#Z zX@E#JWBE#>lo>FEYL-PvnaY%g5rhfRRcDkU%C-BkSW2u}Zo(j9h4)3W7w&r?;?ed3 zwc8ck2yW3lY_R3XvzTRZ=E6bBtJ%uC{NAu+rpn)Z8qnhkYdND_8)8+Co@E&!N$Qo| zp%aR$pp^6l6wuMH0jkX^C%nZ4HMdsEFy!9{2N+jt13zO27e}?7yIG^+Tj061?CRpd zYV_d!<21d(1-APBk;1;8*sJqM!*_;#vS@5(TqpO;G$Ud{|ID<<&GWRnN{#O6QX?pzC%4=ApfU71F(V(#o(o1FAD z6CRA2m<$WF^{dN=-S3v%p6z}w3!v`z((p@Ycp;7}zX;5;$>;X7r4M$QuKv-l91Ns6 zT~n!YBjzF_kqO&4R~oN#!$^U3tgQt*|DtWL{u^yW8$mf3_v?d0g{@DqUQ1?n><&LM z^od2nLfB#)mpyfceBfQimQ2umhe_k)l2|okZI(tlmt)lnfvLixLNm&MQN2u${ zJbRGq%6tbI%`iM`4+f@?fN7DW6#HL{$>6vC#GDwyO-}!yWR2F2!uO}icmA*}57yvW z1O^B6z(I^GvIcbWMYexgr1}UuyKIp9MP^>!C5T({Y{c^36{)ke?K?@@l2>wq3|xgY zl^Sx2tzAASOm&K@geaR7kJ!2Qm-p3p+6e5&!Tsi8U*trmX6sEZNv5`+#|wOThqc+Yp3*6;z+9)26_LNin%(t$Ufy zovJTS)%D9TxT@Olv|$&mkK7psNPB%oEETQG2vN(cw)%Yeqak%xc||=9S!Q-bc8Ko5 zS0nRkxth70k*`v-$&Q%z*KCxp!#*uWEiBEh6PU}9rhb++IHC;i_Ef0~3_1C<-(Z!4 z|Hc{}qt(x_J67}%#`a{hS0o7cGxqq3-nukKSPXM3s^)5qPQC5Y*x*8Y_rkRyDr}rq zYDiV({|W-JzS)MAD&*EXrEIKrmkNFkdTEJFYWF??SjDvcQ*&(ctIxpyUfEVU&x=j9 z$#yDsQ&(W=`Gg~_ZakgW%3kaL|WOccI61bp3;bTLw zUYL?hFQqBTmdFA_LCB@U`8QG0R;rd)a}=g|v#G~(_~M3FOS;%5cLgbd$0+HTP2O)| z|5-Us@IB5VS23aQX7=u?M}#d;v((j_I=w{1=%mBmNDM!ygDo5=cnkU zUOMJAxUQ+~Z3_geyz^z2v1YdAzUTR?dAW+6#8*XDBE-mRhGOnq!S=4{>+Hq>VRCR< zLGIKXT0I##u!#fDu*voQnhsw|7u1MzFpI@ba6+t{tCFTzZ!4Lz?1Drq&dHzN(*8<2n)I zY7DZsf&FR#9+-^dD4C38of`I)))6_bPHpjac2!@;3m&W=fW^4LU*STFIi#%C5>lUX z4YJ^_I-wB&h|5r#;ww+N>CQ~{_9{!)zJL9q7+#>7W^qRDqOp+FE{EjQCcpJ4r#c>5 zoG8qJbb&bYIH?9mfr^Mp(n>XTYMsN(sfhqJJ24B=J`kehaaUvWRaJP}PlRL%sXDC@ zj-hs8j>YV~&tJX461nF(x!NJxX`hgH^#7zTeg1r%ZDb5mFcSN zX*T)2Eqfpd^#SENNV;^lHaF;+|x~o*NKO0^Yp}MZJ>}EB^+LtQg0Y$k?Pg zj^1MBSOKwA4*d)cyE~TPdgYZ=?T$if7ZnrJ&w9g?COeD-yE`8_z-SgLhfuvU&{ba* zK)};1QP~(D-TG0>Ohq@TX2%%z>!D6g;zivZ!hmUqKVBAi*S0Rw_1S^S4&{(Z0O$fV~Nh zV(l)?ATFU-ZRJUOM+DNsUON>*AD$ zzP61-r~ynfXXD3&QCf^?Mta0T5hWPiel|pwvX9mc8-91Ww%XCbt0^A`MWaeBTvr`L zS@sK1If!l(c!p!3SeaHWNcw6ib7J*LtyH*>^vJ0SzwXCz}-+ZVgMTGu(9 zr!%M!E2juMeGr>Gtmvmx2aA;( zNXm|!2+f!onlZ<9TJ(!uj%OF>nk!`_he8t?t4|qYUmvTGZ!!z#kjcD=gH7 zhR4wT=>PWR#?Qpc@j_nW0f#VTpIiSh2K36)^TbMI)y{V4>Jf>c!rIgw++t*qFuQ)n z3J3(m+OW+NBv!T)E6wR~gM$oZ8CpwZX_`fZN-VjFZBWSF2H|q8Dj8(yrRt)K+4Ir1 zPo+jG4e=3oq%{Pim*R@6R(HrJ+XLub5fM3m+XvGM^yvSneO!@gJA{-B~OszQ}&SwDn@(0z)l zG1cDP)i~DP+0~eag+pVy9Vd!1>}_0)nK0iQvm8-Ut?Pt7N$&`9UCi;em1-?*oJoR1 z|fK^&;EBmw3IrBN9K)PkgwR}(Fk&<=2Uy1E?4DC)$L zJUm@WI~!am7SBd<_{6gzV#!pbpd`);80zM!**2hvL(5fr$Xbwd(}8$8Ibz{icl6_c zR%oU#+)BP;V>D2A9{CYKm%k|b@mG=!FXlDv+48uWvh<*&RJ$o@tlgNDW;Z0I+x1Bq zc3o1YU7M8Uh`@YX)&QxBFFYApcty1LD7<38c@wn7H)R!}pxQR$pbwB^XDD-(cQAU{ zWVxvCP@1k)VD@u+2yjaQ2N215z6|?7C;<@HO@n;|Y^8tDC{44(LU~&ukRs-DJVv=w zu6ynP3$n>PEwRaCxa1h-`sD-#??*vcvw#Ou3v5{xfnFj@wmk(*FYkCIF7ryR73)G+!*}2qGImICV1We$m3&OlBJPfh@2PdxBQiRm4h~k-(7r zfXIdgZa}~*YC@At?B3!&$(kZA?oFgY*8S!x#N4Ch{KH*7fX!*@V5z~+GOD>0G#xJP z9)2cI z{u*c{*7xCPA*BPGgxi3J*^-B2ge&dYlMma37uvI59`4cekrFDW=R>T4&k09PTs|C~ zF+Zk08IidaZK9diKS}k;1_!*1ohr$X>%X zltu`;_3WwA-p=)c>!(PUubn;AsD zcEVDQ6Vs|uBgPM2891`SE6^3+pd+A#FQpyB;!qF#zj0~Rdqc6dgkux9^8r#wri~ti#7(^v+X=vz~GGNd%sS5{4RSmKhaPHK=a)urBCEmW7L z-Y8E+WY-mvYElj!^fh7mrs;W zUqzq=CSm_PEuFvoxqq6@k?YGbA|ZE}loio47G4Q+^rrrma+1-(W!31`xMb>3AMem> zM2UMWsa+#LEFlC7K!6o`lIv6H{T!j8JoO3@ZYmw`D;z?Oq@vSU>X*FcWk z-ioMa>ii^{;vdM7t*hCRMKvOKU_RME&3{w5EyNdC*k6KSB?hb-6SrzeE?}L!$F&oUO_S8{0k}ycPdef^ZD7PU z28zLDySii1DJnM&1=lGBvry8AMf~Z@N1}7*i#u!~;*NR2)u)8w6Q4?M4d?V%i~SZ3AqkxoprceY=jslD4o`D;xu-^(_~h8Of~6$z&GwsMs;{ zDkhBx#}xGTdFpM9+Pp@V_UM}K=#IMNYnH-lZE4ok`s7QHT(_(03I-y%OW27=`w96Wv9+ zQ16WJM+AX@1N0hykFUshkphJce$||(FBQy9XW+-g8DfoT}p+@%`994e_RSI z?s7d|pHFOXBowX=8tNF3=UOd#7ja{IF0W(L@HsrA>`P>om{{3TB2KeKys^8B{QyF%CjYp^@l;=I=s=8LE zlDSVrlU<;L=b(^xM-$aSj`l!mQ^Fo#kPd=`o68gS4xd6xcnwWnxR1>fa%{vO`IE_f zEp8&VwufHl%9L{;FvQ6jfU%eV0x+PTjVMMLQU0_+mJ}5F>;OoV+yDhjOE$K+qMvgp zR60nt$`eVcOitd}AzfwYR}H(eJcYL=1D0?IT4R;_Vz7&qnL;*&6LjMvKdyP}Oz}eU zDT^x4kq@kBq3)#fIr1794+RE3mz3woKR-ZJuwhSIdZ#;*U@CuKxUN1Z+c7QAl~iw7 zIl;Au{5n2+D#90%FyhYHS<%y-)qU8rPiLw}u+vYc3GdlipUsnnSM6-|=Gj7)oqe%6 z4*;W{=^4F-8zK7Aj2WaDu{na}+{Ef&*ehW)Gd;VUxteC7^ez;br}nOwD* zO?h^Zx*IEcc0m73hwW0P5Gs~Xq-cSvpe;twYZy$BYzhuUaItDez6$+om4#*On`Z~8 z(^=asy@DqK?vADGjx900Q|$||Y?zB>!>ptX#|Uvprq*>L(j{X7rdcr;I41%2+!9u_ zrH49;y|Sg3@X``?aLW*3(gvpfdlx~yly&?2BH^hetn}|=hW2s9VEOVH*1vm~cb2r( z>I@7x?Pt`Qs}B-gda1$N4Xyl4X(i%8dMshr|2`_bvsnBf$W7`Z7T-(vWH$b}Q3Lyk zB@~N)DU;SyUZj8yeQTB9;BF#{L>ekq4#Y%IxK0l0!*)D3CdgtJllri$&-GGUSoHIQ z&3zmq27O*)ir@&A4%cN^lVLoVZK(Re2iSwp#|kA6u+7g;3cJMn8oq2ehtt``=i{6( zg;YLE$-*~Ph5`fGD0_0S0QxD9GZ^EgR>|E#xu4yd`w``SaBFTQ<-Xb~mu45r-PAhw zqR8HSA!yX}13|#)Gk#9J9JJIN}%JJ;Ri+zRC zw^*N-`UqbyWYb?-EG%BgYF@HT$XLjkk~@#AD}5~-W{0<{4Eu0>;J<2crwht}&-cds z5FZKVH_&h}j0=Jkt9Voh8}xFVaAGo>_i}>J`7ZY4%YB4j7O<+9?-Q!~u>P;a8nW$T z;gzXy=UpAAs4rkoi= zjw5JF@>HK|hgs2eMx&93RKbtH?S88=McOUOl;|L5JgxUt-uB9jxhDk=Vp<)vm_=%X zWkyuVK6^OoZmC`~l7SIAujHIqyvC^kZHH`<54FchNe>Z!;~Eji*b(*<-`OeN4V<)g zc@KA}##jkq%R#PFwA_d-!J*QgKvD9!Sd7gGEKPOGyA=7zNw&Pb&!K`OFV7|R>pd5s zy~-v9^J%Sk-zuxJ4s*iVnG_5PVF*&;sKQer^~tn9AXS~x6rN2MJ}b@kxvFl${_t!E z3gtZnKDO2S8}$A$yqESLIYBX8>$w=}J?p62KvTNX@I_M)pQ=)*)Qc_}O5|@!SFwlw z8HeNUZ{oL+ee=)WT@C|I+>uUREJKsM2jp+v!@6y~%RC*gFV$+r;#Yy9$Vb{tbZsVd z!1c`5i2`mvZ5=~*m&V(li1y_%}?Z1hw-g7I<2D8d<8xw zW~43a2BVw~7@LxTz?4`mKJ*A8?i35wPz#@TOvPi5Y9d&~>xi)lW&>Y;N=Q(%`qxLn z)f}`fM_4$E-MMXTOkhhP8H+2(%Jd=UY(sqHv%-P&DCyxhP$g^J*2i#Q6!oAs|5wls zjk}HwdZVNBGrTQ-^hXsP`=3Ql18+$AD;8vu=_^)-!n>#QhEg5U@jU zbcUJv(;G2n^8}YiAPS1EsS42p8^@9Rnwl_q2|Mw+k&XP9=rpfxBat81OccT>HL0YB zw<4M6&KfNi-#|*rUFS#e@Gp35**4Q-Xj9qrV_Gx_yotS36D1bE1)#!H-x(dZg;bvq;Kp9XzWG--=XQ*mY;g1VJXGCC zp331?`Ir0f@F^c6M^3<4ks2<47LC46#FEkx0@FXnXM&yRWJC37p`fdTMs(#bPV@RUIoEIK(<&s9xdc6z@&Ee_DNy( zb{I#$e#1jJXzIt)Z(lb(6 z>PuJS2yx?aT9=7C3gc^42G|^Cx=mhHARw6W;VOXApR8&_W?p$_BPQeDLs{o{x<-GA z1zACmlEpu>!uLEBhZZV5b|;(hPFh;cU9e;(uL4+s24&yrLdwQM?Lb@}%%hM3tcv6} zW>Gfwz-HGzHoit>SdME8E-i@ZRLj15XUG%pYMmObR;y7=d)Lo#WKj=C7!u#vY)9b{ zPyk#-+3DLGeCCASOXfB=hT>PKLy|uNOVF)Z(xD?ip++pJxV$5iP6~=U=3rA}jwQbM z`08*QR`5T}1T?vWkm-!a*i4fSNDpNBT_%@5M@4C*maxTv!!WQu34-q^Ayd`03h&L7 z!ugMhmW1-fhiE$>7Bd!Viz7n_&hcc&ikPd|VuEqHKNw&pnBl!FkvyIwsh#vGc{NCZ zIIXgc$RQ7M8Hy1oC&UuzcSR&=?QtZsU&hop^q8EVo=t4kc|*kAWD}&}GD`tfjqNgw zoh;H3`1Xm*7mDo`EkexjF$F5qg}bEf9Y}4QM+>rNw71GLr|^D484Pfvbe5@ibRAUo zap^)!7VY<+;K>eg$=LCCRo_J0+GDq^=nQcHTlW5qd<*;aYWHm3Q}t>CUX{(UWLZKG zDPSp`V@a!8Xi1~cfixv-KnW+1K%)gC)8*4S!imgz6gG?S1tPTrMq2{gwWFJJ7!6-Cs8FYc z*SDP4M>+<066#bJfSW9}o$TYvgt?$OzHc>3N*j_BH>8O!GP*nnY*!@-E3%b_ML-DS zS~e?gB3X!NCS)Ya@7I1B{e-4sT~0MqU-fNZ**iO@Qmv(GrP7itnl);$52_z$2}#oK zN~X3#7Q~X#cta5uo}ox6_09$QIQjS#_U6uQ+DjSvg>1q5y|FNJzn^N3FHN~wo^pc& zqG|TKrp?ILlDk>{Vm$ll{l)!C!Oa45&J6A-#h$9dT*ah`s|~z~LAOp~8+J_*vlMMT zge=5~mMr$ou4&Wep%2;<5!~Z=6COpFk#GvYh5R;VSyz=dyFeSLp%6?Vsc^wB&8<(x z4GCms^Z>A@-YZB_GZbHe|9BANCP)GFjW*W?^V1>$7{fuy#DVdv~$$ zYBuxi?%m;MXj2SgDEvFnAh_Ts+`(e@^inTpYsrQ4To>ASB@BxTE z-%iMy!Y=Jk71AcNkq4$btxfd=Hn59+E{2c<;tPr`g?P%5wpbp+-6nm=@8XULhJm>~1hwW^|z32!aJ*vJ~NhbD#X{8h!i z{YdZBV9^-~dGRy=0Pdk9&=?r>EfGXDBLKiDgrwgB;7e<&0RZ7jNMlP3-?ajW>fT(1 z(@*5?RuEJ8!G~5vY-t84TzezY@s&h7oSJco)s9cxNbVRLlwCfS4ke}XsD6FR`sXzl z27xEL-CqCbW{3j#zvR(j5RzR;9DVP$=C*GEs|836P9%6AEl?v_Nl8~hFp_T|>2Y9u z7Z6PDJ9xU6o`Ud{O;5Av$r*yjRC=61kJJMR^fZc|2xBjL8i*&Pzkc&JS~iYt$@W1;sd@#vkuBj zS^>1b9bgIvaPn~h6w#mG#@hkSD0s(whZ94df8wMU@596Nw3(jBRa-+(5}uI$2ao1% zMa}7yCWZi&XO04R?y}E$>sZ>=3<*@`+gZ1{6~KK-x3OkbD}aI{x3$aG0>EjLI}f}K z#js`w#k{l0n(^?bQnU<4Snp|60x_t~N=DmU0%ZS4G2g9~$m!%J4glauzlA;9*^Hv5 z6~qrcZlmhORsduFbz2>UtpKJSzYSnsD}bea5bSXanWI}lsD|A}M7LG|n}*&7aD7b6 zhCaZLzO<5s<1GQ4@*#fapcTZfmJqV}-P_u+xfMXy+f~%6RsbW1+(xC%4}cD(0W=Pa zjaxV|tQCq?w>Pw7D}Xy{Z=>?}(JeW#;*Q&@I5Jx63`|WRqGSKtAl`09;oJBMW+>Xc zv0~4H!VVF?rq8yb;2ZDzd~`3y#DdIN+OTN&j_8TaZ7HM+o3R0U1^6mCAK`NQZjfKUr5Er_I|Ebj~L6efA z4GIp?rG%yg{@S$FhqV(8;q5yZJ4SReb?(yD+^u_LRCJFROV3`hy<=nh^z9cH7uUc4 zfVhDJ2gb(_8Z>xFLc-8tcMKn)8JUv z%G6VFjQfU@$nlMd-;snxN^59kjZAL%E%nQ=hKb&~^jrmc zVW70AJWuzRru{tZh3BiVpGR*HpiCjrSjO|1UW2?1-@N9-j)MRqN|wJQN|X>xr9Nj1 za%U+O{Jz&uu1-x!BVc4j5p8jO8y1T&b1Uk=QvdTxn9O)Rj=Cdg>=&1xI zf0{Y%5OT{hL!b&v(?e)&Q(F*4&a|P+{U?^GUheBQ4LNS3*evPMLJWK~XI$aB{Xre@ z*%QYw+L5i{v#TYmul5wF+Sl0-&>u{z|@+T_<3i`U`Nznx`lC>tMA47XlB^8AvdM2FE< zMGgV(*jIg0aN)>98brr`T(v9HZ|gc5?##MWpGArIs81y=;1+62Q*XkD>bTS?*{3o&Dh(mX5+rK{XK}g#a;b$zSUPC3ogbqWj z>=|Mw>GBuvWbm2(@fwRPw&>fB?aIf|FPL zuo_Y7X|&f-yrBVL@DA@K@30~9nppfM`i;o{l*CpnDWPtxH14^Sc2pZ>@8#d*2}K2P zf7iWgFM0y&ls3W3Z++lxh4RYy)bTp*oxPx56N3}au$@5jN zlaW-BJxI!3;_WQu+7TxeTAyJDCY4u2X8BmPJHuX%(4mYaMH`lo>tEc2|B^*j3S7XG za5T8A8e1~hxJo;!?9=j76KEh@Wb>6)(5@G>gPD#}wA#0^H1FHwmZ6D%wsB)_+PHC= zTW{RZ=!6rBYl2cO;$n}l>O{eoiD)x-Q!2ZI_v2O5{urhe6O0kkFD871TG19p+GW~F zL{6SrazHHk8tYW)8uqJ@WlxuC{m0;(I0x4b+Y0NHN?QmgR~ut4A1OLbDXBIlW2U1Wi0<7IDY?}x*vC5>^DEHZ z@S}4A-vR}nzuB(Apw#myw4k(MVO!c{i`g(osY5JYioPm;7EPetHbRK8@G!Rg3rRFE z(dH>@XiqP|L0QozMM$}^0RoaC?il|k@-g?n77z_6D!mi(F+O-Vup_GZ$QgYh#H2J8 zn`iSwADF2K2JIGyK5&arwA#!|{a<9F!>uv_$8^O4QQg5w2PbJq?@8+8X6`6qIpqrx z7yqYR`EjH&VE${a`~_1oZXY%-u;Tw~t~?5kH*w{Gg(c_gE2Rxt;_kiN_JD}|Ethms zx&A1ARhlb&Lp{ClUhVf>MACHFnO|*eT5)7U#q{L{8v>#Du2GJE(+F1UphOa^WEi{{ zqRTpw@`~Zw3d2NpxC4Gt)MBfhNk#bk-QmzHnr(DK-dI^&?j@dtRte3EO0INAR8C#&?U-gXx=(HSrc)*u_ zp*MA|(c8}NZm+S>vjMR>a>#ym?^i`mCA^{7LWlF9*~$4#C+YC{*4-GcDyecSesRcY zyp*e}&zwm++Vz=ph*$NQ^Of5|x?L2V8;Ow^cScGdLpo1`qVODoE0YqLQS=j! zcu*WcFMpif`*oBv6NbYvSJjQe;YNqPJh^cK686jPT%ELu28{dpQvO?vUmV&qNh`C8 z>U1it%DwRsWYuS`Qxy^vepK#xs}Rhy42ycJZ~J*2eIw$IV0^6u-&xX2`}=+3I*AWw z9VUnRrllCO{ZRELehLp?wXAN`xHDP%<0E@yW)1lqTRevP%q199s`9vFiGPT$S>Q{* zU&?c}llBy{2ab1fjun!yJKP=FNjDs!bz_B_o^aybj@Kn7dlcIF5PtI9%dZky-Va^QC7Sio;3*id@|u(rizCL~w1?r1c6|umXq5ug zhH{8m2(7cc#S}M1J0qNHJX>igceJ-ETc#oV#y;DB&qd|HB^Hmyz;b~nd?Su{g4o`b zF%;M97`cJ%Nl*P+%dh zw~^mQPs!8l?eF7kdt&)Kr7Tz}9Ai>n%HZ2~_$(+nh`v(J0xXjb z)MITZ6x$xfz~Epe2*PCH&CzQPMbHd2_V_niB~$ZuD|3>xYcbpNAa4aJ@5CT1u4(= z2IUz62>PY|r_=={84S z*do;)gH%XsB1vB=?nsGqHG&9N<9IshJAqF6PIPF>S0i|4Vh|lP$u7`X<=3&rYAXn~ z$}fho{`e1etMEh1DseX%zUBmpcN1U*fq_o)c3GC`IsE6HZD7w(Gy z-SrQB2)#*vMf-TmJv!ESp^wnd$YL(`7M68-XX3@BYN2W}`{;Lzu8JRBXRkBw?|p@x zlUb)fB6T~Fmm?>?&PM++SeO&ami^H~Sk<0A^+&AmXgI6-;|cZaEa%ct;oZNpvP*-* z9s?Wr$1AYpv9o=bl7z|*EabAK&q;_5&Sgu-WZN6G)rezyxWnXwF2Z2vAr~+ZEFo19&5Rq-5c;t@^XdZ=&Yw}9=ky86ehm4(06MnJIqt#}&pZE~O zrx$S8@SoHVraaeLLG6h9Q-@~@eRz7S=E~L1_2Mfe6;D&Ha2=gzH#D4gjEIfRJ}+fIiW_Q|E{Zuk~HI7Ut-?n+X8Pvt_5 z;&>v?;G0{-44Z;`StH4j`~zx-vt+gYRJBN{KD@Q2=A_M5!ek%S;C=NMjCz;6MF#05;1Z% z+Qbeub`j2mF;8QIv8{>n>3ct2p&6ratm#T8w)aYMWC#WkcpZmA=vg{R_an}0U;ZL` z<^00+L8F=FYOb*VpRD-me)T78%C#7rR9Sv)E;RUO*M<)qf*k<_1}W#dk7KREYsWlM z%fG1hpQn62oY)}-eT#4)T1Ov9A#FbB;n(Mf zAK_?iI{$bB(MTlCd~pL(>5!40y9K53$=V?I((9!u*UD2Gu?C{~%bkif5Y12o=4#X} z4@bN75M>?6kUUR;Q6x5Wz|r93HUK?l1KJ387|EDFCeSF~2UzrGV9N&}bkaa;2_b1Q z#3iGC@~3sd;Pgk*accoz#G&ugq$baM|In-%l4>Sw}V?yXi8s6nC`SFBw8kBT-y>h9_nEBXYf`*j??8pllW zVXY0iy0pe1y)+hX`JXEm1*vBXTmMl}7o;92+)-L_IY@00!hfmg7ObAtdDu}JojTWt z7FtH(I}m*4l%3v+O~LBXm?A1Z4OYi?pMlSZA(jYj&PLqjbOI6|qLrjITMm7Ivl4Dup&6K&YTQ*fC$ed$^`@q7DjOI22kjHB>!R z{bR+(P_;{aS4G=4>K>7N;odd}O6g1+!U@Ars%_ST6%*U29%|iP&6`}>$3ZGA(aX|CYYq28>dFh{$(vB5ZCGO_;) z=rXS!$4~pv(<>D}gsJ-o120sF?bKO9iMC=^J9W%Z)h?JYxBN||;h=bFjW$H0!wU&N zS!2LW_Mp0Alc+X1=|ATH>;HRq*k3q)Zuk4FKnMP>ejgFuUJ}dyC+@K3*!B*$#I{4T zm=t%|;}GB`#}BMv9+Dr^sB9oTruf1T-QUVXi2s=G|1Fk`y~Tx0VetPePyP>BVrudl zr?S5f*o{64$V7hsUn&k7)Ctim zG0yN_IxOw?lOoYU2qO+|OrD?kwf(`0=x}wnnY7ReprPS*Duk476scDKX(yc7hV}Dx z=}bC#z(*WvRNnhlZ}WQ!59Z6ogB7#G)q^Z%N4RfT&NO)|kK@-%wJ?(~;Nt5tFyO`~ zOQ{%h72CtrJ)IGbZuImD`YfB9_0lwX2;a&!@KPL24gR}GY7?Pp9)Wz;+RtYV@}^;$ z=U=NIF3+89 z&vWN5!LgoY(v*qvYm1+l?RjJZdQnJAfBBwV50|{IhA>5mwG!sKi=l80I zVg;@9%!U*x>IRU*;cPd)wRgcDvmxF4clqKwJ0PYFk^o zzZh$=D&m^&H|Gtgz5TxD|L1vL@-AncGiT16nK?6gGjqu_GEbQ-07gvv&4d|!6Z}9P zTq$LR0bmAFqJqk1$fYSb4oyynyFgcogX0mITT;;cbshZ?2y3yW4ENrSptrRS@O$u& zP_3(TsJh*HpX1uPO!&%k0|Q9+1wVD9`^rgfyPY)C#?jyX|0+FGEnccO?yS+)dJC?s z%M8o_i0NQ5!Gm~f2yLhKtafz`4 z*@{CIn%t(8UXrgc1z|73s6a5>d#g{v7yk1UfgrLz-#by`TcMLPEt9kJeY$pDhei1w zp~ zWilEQL5;cNMq`YtpFoe~H2VmlLEEr~o^tf#pv_^L71o43SZ-aL=E=HA^Qx=#^SruA zsY!cF{vfNHgerWSM(t0d_H#!R>lPDiX)3ie^_G^VHYU}grMnij;hUmZH2KWa<;fXY za^q-@b{_x}!_);3-VyQ2dLA-#d&4#S(!ejW9r#y3!eBPS2kz5iEryq`D znu69DO%oax5n@2FX@E%3xRy4~o|QI@aRY3j5Emd{F0f))`4KW&* z5s!5a8{P-R+rne8V9HZ`nEt_AM1pmL9Z}tt%IOwQRhy)A>tgU#MQz}_5eZQz-WxaT zeOb(#Z}D83p!(o3Zk9&TbMrW3#pf6X>pj78pG>GLzpiQ43<|8Z<$vef(YXm%`0^BBI(`Y{~4C{ObI;5hJ zmzd%%k;M83JOoz}-vbtTpE8V^(CE1yQeu-Q!nNI%yzIat9o0KVqii^()*05|CPBI9 zI&-zjQRo~#y6O${udHZ7;85{J2ZtdA27hG2H=gT~@yQxbO(bApNjU7et}{NdOCGE9 znU7*`t3fzgC2As8hJC<0_zDS$nCG1u>J3xgMT3PZdY?BGWBu# ziZ3R`E54YK)Pk;BJ$1Silw`#o!-o9@VbQD^v!~U_;}QJCs!hv~v(1c}}6=8gxi_vO>r`nPSbO4(hkm35^4&%ze+p{O&`E?}kDoN204p^zH-eH(TCU1gL3n{;Nk*4z-U<6uAMxa^-J(AjuJqNEaXFo5M24OBgOwv;zT>mXe7L0r6ShA>^dI&~J`uMW1$VRk%v1ogk^2%@UzYmTT;F;}Z z2yR8KFF;%vt*bL~c0|tE1=M_0rw?{PgU>qg`66VEv~tP^0ESa|0E?)Dn|A>2;-Qe) z1#n@`zq*a}>S@W&39g{FA8)Lnw_)uGI4!=HW6(L?tsCp^R%uzjJX=L5c!5SR;cehQhZriu4%N1w`P}A>c_vu#q%#QktdY z5k#W7_#NVPR|LSVS>r;rRTWk4SUJZmkGE>!cV|>H4$oL-;kUq>hKU7&RJa+W8;37Y zl$c`qiVL@5yn;tU2dnN6+z`yAS%^wOss!;Vkb!G&y*xrS{Q)gOa6qPF~ku^I6kjZIq}bI&?%ilMa&B2>Kg? zM6vSz$$9G>p|~Bq&JpI*4S?@*pYBeup~-MzE{}G@JQ1rR+Op0;84|q(HW0Lob&g&M zRr9=#-nEX9FmIl|&LQ9T~LJeW^Lh!!V)}JE9zA5>}1;yd32} z7;C&r#F~$%<3J`9Kf$xxj;4VNh{qEaWVap6P=3N5!A30)7wnVq`RY_OFmZAoaQIHI zV=$81Gmf0p)@tj#jzr}=4sAyj`K9VboaWkK7V|TbISj$a&tj~p^0!dKQO>(JTPKlML8hnK&Ib9c5>&uD2DiRJ_@g>y! za${X+mkHw}q+FlT3)7?Q2i?VEovUIbseWB1f?S1o+*S?f;t@>C3#TR6Kx8R(Csc-P zuoi(U;u-_)QVY6T3eLq$d>FPywwu-l0#i274<^Ie7I~owYJJc$v6{y_X1Eec@vxSJ!fXixv$ zZ^okCY!HjK)*mK+y$w?V{EQ9^0etvVulFhMLnH@H@e!pjdgHkgQW7nf8hn#XdD&S? z4xv9`3-XZ}QcIN02a zkbBGZ5Js$ChrZ-MQri|fjN_p2HALNU=(qlbrro0-?km^$%w3>2)s#gZR8px8u-sZY zetl}7`bw9Wu(F>l5yv2L^$(LneP&HCp?j3liIR2%=Z>5u?bc@ms!w&np0VslO9VMh zk@Ixu$)Dh#uprgyCmAaqMh|9SshFslbu-Rkls%_~LNehn?RHaP9gU$jHQFJZSrONqNmHtRAcS5!px~ccOLz)h* zW2rb{ndfb**wl_qbVhpo7SA7+hLMD=8_Eu(% zGnUlxK>R~M{9U&oe%o56O;zCk3%pEd0c^w3(@u&5&vHJYZZh4~i}FNY#U0Tk`Xll! z$c`c58zGIdG^O`q&fDcu6Sgf7q5$|X*Ij9oL(7(ggu&V~SNR-30kmzzgr3ojr4%m2 zM$p4ION`Ql8#4MXQacZ z9nn$4<$R0cB`z-?W~7Q++=1eZQ=GURHp}W7C{G%U?QNJm+ZK0R`#nf=y)qTwfT|!t z@pu|1GTCvLf;*yMu~ySg}seuM_h!6L&p z`T?r+K+SoImAHY$kVT}an`EwyWBqCLJf~xCoJtWK2*!qZgu#TVcJkmyoX}|elGT{L z&^CgZ$afybEf(}C9xR(!+d+V0{>sMTndXE>`Qh|+8gm4WLs>Buq!Y0jN4vpf#O+0_ z&tiS{SYBpmot2YC`g~uSDJxrf;ix*wb(Hny(_VtPxFny#ESK+y ztHsO)mbk+~MmtdcMxXAsggx@Hgu`*)AxKI3ao`gK8l(G}d>Nm3E=89jSg~zg=qN|h zkrKsw2Lb6;=0)XRsDe_R92VC|6@0fi4CQ}-vG*A)2~ECSW5Vy+Bl7XMWAIy*exl+V zx3kUq2;bzuIz7bq=St3b!)_}0Z(B?az6S;VKO6jl+F<4X-Qaxrl3VUXBAO9pfPBeq zIas$&y7Sg|_EckHpBv@*)qUjG$l9_iWsCd;GrXPtav1CL9QkV*VQzBtal1UtDT{l7 z6eY=xht9-Z&dZvdtvr~8*eIANX?mX_Oj|qK8|h8c-7Hnllidp;UY+92oC%9{mE!m^ zvkDqM1T&4zW{sS!ms#AdtjU3e2IZ4uV*A^IkVFS_1o1O%u@T~cznP?yyT$E|`&vGm zRBs&B2&6YBH7*L(HYGKdT+Yj$3}#O`Hc4$&I$C9MLsn$;rt4Y|g>-Bt;))H#;Rrr= zJcwHsrlDSb5OGMs5crZ~z0(YGDwtBBV7UC15=zab+N`;rDibC|w<8Gc0lo>Z?DPg3 zkSrwvFKLI+{1x>BPJW=EVKw~hLS0A9NON!|v|@D$gd=i29j7yAE1w*`1*>nsptY?n zC)<`8DwDMqRHJ1ekoVPRIKsTA#5*L1I)7Z`jmAMqmt@Mnlh2*3{pToK&-s{ zX`tAktPi<4cpE@KN=ss=LgYdNL?$HquwlJ5CxLVsH-3b%Bk8Usso1gzOurtHTM$X$ zORNIr*RY%%qeBf((*UQ5<$0K_g}zGg8aAIfmNo|}k9CnLQt*CrcVGZ~P{fm}zFBj3}KE7v+8%8GH?u#YEqW9pb@DB zCW2&mjlsF2ajdCr{8wn}P;gq+Cw1Cd-o39bntv6~4oaUM=CAi>&q(V7 zeDnae$(GTR7%~eu1-r@FiTn_g#@&_$8k&=<^y|sb4`BTzc?j=0ki|U^mL^)9D$3Q|1_>Shw?nl7mO9hsNi(Hyy<7$5Wnty z*Z>*LAoz6)^({d>32l{Zu9bIT!%)_U?RA;W6(W!1w!y3;cez*>etoRY;LdXCjg@<= zf6!_7%Z!p zouXCCfN>vmMa#ekV`Q=121RGYSH{V05qmS{M{qpYT7WSO?VE5I-s3|Wp{o<01P1lCWQ^%*~u027G=Ja;f#WZX}qK`vJ*xYgPf z{Hwui7~8{7&*A^5m$F8&!O>>?6G7fS#0B0oKZjgrpPar;o1ri|Fb=L}`Gfp6B{60g&9 z+9XcuTCrT~Wg)ExW*cBy<^=`bd5*t3lyw|BRA`SO`gECd@EMVYzzz#h8Qwv3nu*hz zFd>mso4u=O7b&M+^{(2$uMTC$rTkC%S9h>J(tuB&N@Ouz^`C;ofw{%%OA`2Fld~rq z-@3@M51mnd-_27KS!e0cZayoKb#fzt-g9!KP*jtsR(J7uPOj&Nk;=w8QHB{VSkYFs zBxN`{7I`$XMqTU0hyPoCBa)&Gf60$RZ^}O*#x3eZebkPIt7tckZ_6JlFhOWrS_}iq zCnm#=(kViGQDDUZG)UxJT;u*N0VVA^=%CwG=hzl z9a+_^iH6Ew?FtNce1&+-QP`U#7z|e_b=!LPK(1< z=?g#*HpVBm@zjwlDz6s$LYjeSYc-_AQxTNi;Msl>i8RjP6kWa0gGS{0Kz9*dT|pbc z)p|qg973cmdk!LD0q{38pM**}SbjwvyFG-zHIlg^DDIGiDNy)bX>5(OrakYL%tr8DquC(# z62g+R6WX~T|A}K*&xCR`7Gxe%%A8eXD_%Cc@ed3T!7PdwP zv_#4RY zOb2m)`h8xUj)}JFeZC=`&5;hA;D4mE9&840pTP$9_!N%kwda6pNf$~)$Dks@Y8Q7V zS6f?z(SGwieoqF>=v>?Q@eI~mdO3%)vCKSz!ejb7(`dzoBG_xQj@Cz|J9LLA3#)uS z{A*?j>IIHH9I97?GWtifAHRm5_~fyyr}WiUUOJY=^gM{7Cc`K?TTNc&3>Rg6{eznP zC1m3TV_Bz;rCVD{&nm10U8KSm{mA`e0i=+3dH6UsN&4`e%IV{nfw542-*|Ri%0JHU zo4}H!Qz!V#6WCN%%&$#g4>E~AFpCLUo0%9 z-&(+oz41dO+!NXciF6K zcro0m`iCjU-r>5*%q>0hA6_w;t(MyShezhH?$W7O`G6eeFu(Mw76MvG#N)op0Y`dg zmh#lAd|eK^N80rk{~alNYKDZEN;)GDMTj1E%G(sYJ0E&R6%7qFitjCc`xJI3+sBKi zu>R}?{?93xbF=u#DVSstukg0Htj`>N4%?lvnoC8@6#W1*jmA~^AT#xTh?zFv{xw`X zarKzQFxjv^C;9EMK^;HKAjBU&z{>F4HyBqj`8G!$zp^O*I zU^eOLfAX>!K>Wu-_&;W_IUqjQXJAsAX0aquNaifokL~75XR!tD!9uw#EZlD}@t})X zF$u+mP{)ekhQ*=2sru?)Nd&At3pEG0qK>z4Gi_zWP52Wj=)|@5EcofcwDh%_b%cVQ z(GcgODRafhfwGmbDY~K*AtFoI>Z@tXbJU&nA3^Oy>jW z_c2mxPV&{35ghm-F{z1u5H?~^x?flT^EII5p)ewQRT`W5P2J}s?esCX4ygzl~x#y7& ziexjSW$guDst)A4MmPz?rvdV(E!`*3eNOLYLLhup?m|ikzA1%S_|nr z0!V)h;Zu9 z5aBoGu+CA(UO>MxZ)_u)m8Ud}AD_e0aj0Uineje%vw=*{^Y3PT`O3RNdOP^}_Pg1p zj_(OtULLxlpyL+)woM^)OgMpuDhW6QWDFDCsnL6~Jc!#oi zI@mm^TttxjDL-9?>T-DLJuG^}e5}Q=s;4(TaE#el|0seK%wPgh8Tdx3EE}4E3gIFP zA$gyBg=7Y%tQ@6#J>Pc^yHg)CluVq)zrs7rWk0yHXmM{d8vj+5p4@)|?(-mWg0BYM zN3X#&il#GI?IM_(lr9Uzd}J?UK^8$%Bn1v*oXq}Fs1UwxD0xw6@ZA9ME->T^SUa`8 zj4sST{eDB?RQd^tE1Zkpz#+8`XFIQ2WlmP$s0@Gli2EJY+Cu)%ds*~UYTj%LNAR4R zncl)xh3hD;Z*l#ED+spF(Jq~g*&lG-fsq?A1^IRYRWz-HZVj~-{8pQ+I^1&OJl5Gp zsX$(ZbjScJC2VXq?Z%ij=22jkdw=6&=dmp5-}U^td8~UR;X$r4j-pBg3pG_R1 zlD`|{iG5RH+0YQ)y^vW&c`1d=+>b_zBpc4L;LNB9wUKjnwKj6-FSvzBm`|F=qB$>Q z?X~eJ=B+{|OJC{vu=`mKSPb9&V6Z0gckgG3Vaf1~v#y|qmp{v*!kgoWgMp0%fAD_R zjUD9ui@=4v$fp&t3DVk){69tPC3b|5dw?Z^f$==RrgfTm2ZnHQyt3qZ)a;1Q^Q4$z zRUFUHJ-~{?3)c!3C1Wk0KcCIN?YlM1^c$`LczqSWjkxr`>Z0;}Sc8Xr$uz~W7Ic^~?v-2+3S1X-kzID`p?F432X~x8tX7Axo8F)>TH7usAJB z8tP(w@pG4pZP3}3of~+gixuInYCSJl%vRxU_50lOmty$Q>q`%_i7c6?F9T2WHeaxerD^SQBA+uG3&Fl+EVr9oSqD>1 z;FHBimdV9{030Q>YY?k?o}H&I2l=$G;VYN3?ihziN(|7vww&doA6ML5yMjI5_NnD` zj$?Hw&T$m}5y4+x!D3MPo)wr&9hUPhD_P9I(RGf|Rf(|88;(n#|~A6ki{FrnPH5(hsrDr;7H}%$kXXYhBzpQoSWeD`|r z-EZ?h)&sYe@Ln<-%2N4E8GAE@e;tVy;m`V5eE%|4D{hgiCn}r`u>SzIn<9++O@QGiATbOfTU29hdnP zW=g_!H?BjthX03|p2hVOF2WIgAf51*ciG6I+oWLTV67c!c`TY1M48ZeGJ<6#YBMiKl%Z?IL@;QX+tZ;sro zocofGe+-@coG*Ng#iADri}~}9u}QeQ?IGUy7<04!y!dg}BPl}ELwYPvbEsy+6s}Bil=HYJ zhNt}Wa!@oVhI!v7fQl1%_7g0n+m#0OWG)!f7$5}V+9`$DLjkqm_ybeo-6zn$1APAz z%!=mPiujo)*yt{&<`S`{@@k6u<|)f?5KXK;d5Vose3Eq*bd5joB(ru(0d}Z7v$bG$ z3o$!*mS;Z6qSa*Ean}~;51uVZ>tz1plPn#JPQRyE@BTvCi#@8tCTD_l$cP%`ZO5vsY39mQ%PT$>jOD6Ms^@?7K}#Ym2rj8x-TB>TWN;n9zxJ# z<*vLBl70vF16Da~Hie89o1g;PKpr$!R?l#TY#~&kZMCrWfYlowVf>bY|C(Ay4z3A6 zKAfbEt#fp+(p%WQt3NUHBUmTfdqP#O%Y#Hu{U#PPWgH%8Tx<9PoIQ}>K)eO392#uC zu>zZwpqDDSt>@BmMRY0w@!-}f}@6QLKv1l<-L;|HF_ z*PnRjXYhJEba`m$mXP4XErN*Hu%0#RrZc#TNuAVJnWw)bIuO)=p-jS0Wwx|!{UacQ}`-F9)Z=ZPGk>l?)qR)Ya^AR8(1t7(0D3-6+uXA8= zxu${)<;S~5A)u7{h_VUzu0H&`e}eAhW=w0%N=SW;JJp7N^t zr2zC>i+s-Rg6AU1%CMEmuJ-6nYq|8@1z~ng5u#K)q67(gaK+k>XQI4|@k_*AB}?4- z0yvg9zUu`R6KB`P!T?FGlV|Cw6>Em4In1~gf^7{K95z6WZ-SF=byomEI64*nq_)#MXqbhvw$lV{$e}y18JdQ%bVu`B z*bQz6>S}~PsqJ0pj`U*)OGq@EJDz6k$NpOgmxA*WvFP7Is+M&?4=d-YgVjIjw8#8a zo|8u0d8)$k@IjM@Xu96G`T*JPWLi9aJD>9`GaDQ?702IxiS;yey7|qCmsofADXiTf z1%D4cUl~CUBn;M44r{~xw0hy3N+07+hEozMSqjc{LW{ygbhVHWH&1#0XJBZbJY_n5 z<-mT7(wBsFA2ZXdxSY6F;#z0MzsGR>1J}E_0=P7sz09U?)62}jb6og*1IY#%e!G57D{8*E~ zBv1J_{6~|{f42eOc+;zFc!vy}N7({c3+9^mf$cMR+JD#p>}`+d($b7{@ z^w12x=|3#PJ^CaHOeK9$R^dvZ0&$mR^v*#nXI5cB@ZEfRmvU>msd%Th7o;0Bdqe=u zSgDtF6|{S+Q7JUbqED`NVgnZ_j#uuUBhax%Y~@1fP4*l<>opcTtWKP&MwFlomItp2 zuN}rYo)Bf>QPi9X|1dg;ePI<9pOj&yQ?dm$LCR|Sp6`4O)`OdN!7^j9{oE^99P`L( zBwl&_zUx2`67i84K#ZJ6GH__?f|EKyVW#LhOub-#mk-+-)6TgVB^lEClu&Fk&rjnIzs^>==VJ3K zXU@bhz-EZuFzY8%06H;!2~uZsLX(_6Q{G4gz>d*0%x+vg6_}XtJB;I7&ZEN9vPE~n zHB;8%;4-SnR-&iT@akogyjO_r8->_D%SBe(5N+=wI~zBX_4KjqDt#=|xFS7Ebownc z>A@G$oTkJ{bU?&RmSO2LJ)i1u9?X**t8r~mt+aJTDeFyeI9;+~!# zyUp{K7H{b=9q6_9E-VeAbvTHgU!p`&3klfXVqG91R|)AYMiTvYLx`bz{|h9LP+}$- z;Y`#Jgi&8xs_y}qixPy*6-_RqoIg`OAWzmQIWt9(Pci|`ub_}MLBJAMcH2%8z-_=tJ1P6GJmMIIu6(3z%ur|5c#;-M;& zROskG`&;M`aAvi%tQEV0kg4I}Z(z$Xm-l-ETaj1!xHnh{8^CwG!J?zav<&|i(xaj3 z66Kyj-2Vo&!~=N$H`(x5qb6hw#;I8O_I5ObhLMKOhLu=?Up4H`HBf>nfo#6L4t(luHdCsy@PfBl zXSc2^GDGi&L*TA1I0OdG8R<@wL1m-Ci?pZ&$7A5Vde0}#Xs_fN0Vfc0h6%P&2vR4x z1~jEVROX76$Da2z=)lq8;D)=iccTUfRJT@#|H!1NTT6KX9Kj@!k#|uV(^PdP%lMVpV~6+{)L4k+K> zAqxbvPdCorVe=$+CJ(&BqNH_uc*l2HY}6yFRG2t5V6|vO+!~(qE*oz61Ojo=0vpf( z{>-~noxEW@@jaF-)o1g?@3AG)&OW^HJ$6U9I^NDL z?YRAYX71kdsA9yVV*ki(*qMP|DUa+DW5loSW0pbR_d}PU_blI|5xA8Oe4FG zDtz`V)8UK;En$lXg7Wcq-iP}C@qYZX_gRenS~Uvm(ES#iovq^RWGea?>AAt?*Z|T* z<&R9>?E^NbTVINsJrs`qF5ThkjTwQ3txDGIGQI<$58m-?(NRQKLqG^jNuDEL?hdM%6%Wgisge?{^p15F6q(Tgv(L< z+9xbbN{HogAF)kRb^_n=5lb2e3loztOH4#_lj+J=s&)fnwD=jk48mI4<^q6wcZ#>I zufW3CVOV@Xc@G~jfqC&RW|5>meCB30MCVZU^yW`)X1UUjgZb&rY@m5zKUx^TI*0;` zqVknVZa%P*#e&RCtz?;|d1*qylF0=~JDB}gAsbAKfad@_4+F#W0Vtqr!I zvE**cny=i4vHjl$FZ`IV*urM@iO$C;S`?WQVd{}>o5iz4uW{Z+o)v`IBRumC;%qC6 z?SBt2?xt2o1QPO<*;OsY3%-ZoQDlbA^$MQ16;@2PD!y_n>(TAwo){j-%(^u+^N39- zsMEkPp9G{wIQQlJldTX{&gDOBWuvA0`tUy65c4Cw4^Q95dP%lE{Gn~E<5oyod*%jN- zcw*Z0UWQF7_c2+5UI+7pX&SHDWy^uW;<_(@|5f~=E zeAgya1H6Xq2ONh!(2Mu{nDut2Asyi6565}71Im+Iz*PLDSs14QDhjBP>IL%xuJNpV z8Bl}UA$y*(gLn&StU=D!;rMG54xka661W{9e=#ROIB6#ic-AZxooLC=w|vZ=0&pko zU;|hTU%3O0x_WZHgWcArCyH#&FPfgGJdaj+cH6eS}_!WO=I22d{TGPBHN;%5uEG2|=7LkE@dpD!;!k9=AQ77+i|7L2?#i&ZL$osW7|3VaZ17 z=mDh$DQT8GKJNxW5zK37_joZt#=OEjo5&$R-MF$6S1d zxJt|(5MX#mibpDU3?$EH1GEHiye+tItqt;yu^HjTJvqV$=<&Vd!EB{DO(FdmwnBJvIs_2wV6g zHLRVx2#Sb^FxvPN5tH3lDJ2{3*u+y}WL&@!9wB;Q7W z<@`GW@HXl_$Xk|_GXo$btC?rg;lyga*!@JwF)ffLu$g^Mu1$NcIAfW#yqAiTO&J z4OoHgKE?&Y2-t_YOkO)aS(I>0`QQwC5`|@n?XS59y@ZDA``uXXzv?V9`x8BvC6@t~ zP1r*H`$J6e81m;5DF&+pD)Zya6HK$})?P(H=%GgG4|<5gh0KFCdBk|5-7)yZtXDGO z>KPN7xJs2<6?eW#0vd`Fbo>j~0yF)60t*_wV<^BLK4k7@LDoH3s7gkMoxDO=A51no#*@NvCaE;0*~7R*8H`%xnmF86oRGsToM0f z59DoeVZ`;oNLzy=eC0oC4#M;f zV1?A)wKPzffYipyT#YZY8^l?jJt3_iAwg1!5|8gd5KQzUov~8y#?A+mw7eR?vIz%c z%6PjN7&v-7pln2Cw@9T>h=2wlAvSUiClJ~MbH}yZSXo1eZB~{IMgxPQi-H9|H> zTDQ+z4xy>eplIJ&{W)80Pz4rXysx)mJbNF^M)LSu``Fm9-(ChBH1~*2qc#yAJMCvZ zqwYpWZx+)z6%9U3+Rs+D?Iz}hPT;@xW&X{6_H5^y@KcO&%O*1t-dqo`=v%)>plo%- zeCl^gm$o+-P=!epOfX$d&=Ju#r$R%?zTgH?q7xj!!Jk@0x zGmQghnt#F(n|DzFAqUv4?CxZiKqX?ok*l5z*?iF#Y{`HbdCEgC2#SLR*inL#rwPWrSV<2>SsP%c zOtn+xYr1K9^iei3a`E$kRI|LF_R9;8vJR2;IJ8Q0eXGX7Hy&l3w68*Y{`yfiYp_^2 z)V;t%03G%NgOS!)*=eh0BG5K+QgiE80iW|A^bBE@!@tB{yMy5A)3C}C`NWbNsGQ61 zJH}qs2ZT+))$2U!IEzhu;Th1v-l_#?4Gh@fr#+wimC^EsWr?nQWxD91A>a~h0SZ)> zaMy8`-0eB6NkUrO1I5S(8%PLEYc8l(Z5#CF;BgkEy^k@j9A_h}WdIKdU>glaFB01u zB4H#@R@x#(>enpAiVuQ9;EO!w=C$&DSYJPn6d zzze=%mX1w*(87Za*FeJl+A#N<0cy0rRHd_rPAUChpLomiHqqQlmP?f7NKV{XqX3VI zXbWA4dkl8e=7D}9AeQbG2S1VkG62M>rKkSJQEo~1xR6zrq4V&wuvO=u1ADRbV|n!DZ` zETttwda+s+GL5^&b>A^tHlTrpQmi-sg98T2e$YP@4Kd)DsBtyGuGwN%v$R*i_!qP} zewDkvV+m%OEG@(bL<}VUv8(*!?^u_6LY^T0#|65pd@VG*W;##Zvci|*piX-(Gk9XOF9p1&`+CgIFX+T$F8*(wJe4|LQTG~J1u+TqA z@@Md?s2q8WAhMGfD{!i@&}9Jbv_%}$U_&N|a(iSKMdv7SVs_#KQbEaQ5LMPA)n%<4 z0KbI%24e-dB4R(|;Z;~uwj`9f?yXBJF=$MnjmwIaW0%1O5~GCA&B}DtOzYv};L;H* zs6_q@A&Y>LNcavCq5=deK=w95;+|8iJVS2}s!a$s6!kBo`nOq7suGS8Z_K^%PAYL3 zFeu^Jdn8)nT_;WP@W$N%EZHt<>ir*eJMO+yo(E)xii z9+e=Q|85Ea79IpS&cdM(KC@*%JM95>qNenz;98*463*{u1jiSTdDeAt5H%m8%!{uAf=Ifiv@z6ORZ!Daa*3 zr9lEtD3UJ#j2lF(z#x})zO9yb`GqA7+Yp={ZG$~ihPBqmfX zwxiafY5B@3^bZ@-+VlrW>j1dqEAEMshX3#@Tx4WManozAN(6j3;#4(BJ;D% z7kSxltc&!+M*jS7tXI^-=Rk2tz-dr6PEci|YbWrpeq%$lI9tn&3K%7vz2$urw#0g~ zKBl{DuA?(<7L1jdlrh^C_JVY`pU-SyDIpzmlpW*viw*3yFk<*}ag3<80hZ?uezpNh zkA$;4@)V@_|5(QdonqsOZ7!Halv@4_S}$G0JB@tfDK;^?ajh6UL9zqx^^=jLSQ+04 zm|PdL9$a8TRSQBdx_N^3rbLhe-~iw;<#kbv;63{LK}wtdAVhUwz(@(a5>px|@e^KB z4t1I}D)%505nFI9VogCm!TG6N4*8T{Qmnii%t8nanuFCG??ztmzy zMj~IX9`v*wN~B2}uOj3v^mLwD6f&!?(}1UoN|Z@|@IUpSAes-6J3a_|h1Gb(8fJy$334Kmen=GFEcs3$ zRm29D1dmQts5fN!%8n>7$VaFWJiJ>0$UUwX z+e$Y>7yNA#zJZ_TCu@Ax6C{v>d&IDd-|R5k(6pNBlNO@!jA%;=X#boroi##|XXm}pKnuNo~H}`uk*^FslCj9BSl!9MR?aYAZ za9}d{vf-esTRV0Sl9x$Nnx%pgkX%NvoKt@%nyQ*~h<|Wk zoU#L8go0Esq!ZdBA7l>)>e5S&NF71bz^Y$A4NBT770Lo$A5b1fCXyw@)71YRFhWmS z6vyKDG||O1r`bU5Zy{Q~B#C$U+0M&pU@)7ToZ2th?5Ro9*XVT#Oyr{b5BRg@Z*o>1sI_ z>qt7`yt_zWn2eMW=aD4?Hv`T?*nup3?0NQ(b^>m;oo5O9naI0k3Z5>UXFa0lijuks zYg!RIky=qWAD`_PSX2+QWcszEWO}TfWYV;kOb_F}O((qTAervPw+Guv{Jsk;+we0m z0luTAHE%yb1fxgiEsl8lkU3f|Vl%dTRBIv2PT zVoKPJnQ@nAg~fJ6BnvyQ5B`ZKDCzm&x@`=)+B;vEMQds3QNR%XGCYE)`CI z^vdsANwaM%l5M@8(k=v)*V2 z`3{POHvsOs20ix^&HRmP@T|1?lE_c{hu}iJ`+Vi8YwU5Ywh=>J#w06iKxP(alOCN?}b z{POjs_v$&ZS>90Eqt&brO&;Owh8PT8fVFR-B+O8=QrtD*CN+yNN<%6*oOO&-Ph9r& zjSE!lfzQ~$dfn~G1D)Z?Go2x0m;Q;+AN2u8T($O~_UvR5LYtL1wMngojE>Qfy>d!2 z5lZqW)&<;!75-LVjsd`7ZVY9W=X%(pNbnZz+<*^x=TAXmGkkWtno=+l!kkP=>kO8rKYRZM0q-%RoT0fOEWzxM>G{ld6TuwK66n6^YyK?}c6K3CO@^L4OidC1kY>~m2vmFSZ z)~OY-hr?~;6l}J3!ErhK+|g*q)lta6jfDKmMU=e;=mj+E(-A@3<&+l)l=u9ef(T=> zI>Mwu152jyxUbB2MWJ#ldGQ;q%u?w*_C8v91%hb?ebL@D!?t&%hSaj*bdn{sBCu2> zq&YdK8KVn$HPCiCnJpfUnY%@d`^9K-k(v+po8*Fi7^Q0|*?m*dbAm_cfjNu}qdbErDtqUKf#?2OtYQ^;a(3ydiBfi2IhuK*PU_kHE*NQ7H$-|a zg}b`JT`lum9^=w_6fMRC!iXFtn=jW%mUgtjpq+FG(W~DwI4Oj`qLW6J) z7%NCGSGEH4c`DTRo>M76cbhyeR(?3%mx?1mCZ8iFP!bQ9z#~ZW3}rFK#Jkcer`pMb zyA6&IBDOq@K^wNz?h4uR1nvZ`L4S>tH4VR@^g4&>UwB>Th?$W#3r|-5REX5J^J{q5 zu!BZ^zN;@l)){R#<>n~9CcZO7dcaym@SH+AUUINl1+#zHOvKeW^x^2nm{4g5md9nG zQtxhwzrwK;Br4wodt$8k5O-o_SFF(zuL_k`Y1djMJ|;{W8JqhH*@es!6c~FIbE|1= zYd}Sn_VE|OKsoQ7Fiyy$%S}g$)=m zK;x;?`a8&9#T{G^f6K@#iM&X#9Bj_ksVIBPOi@97+@8lKBYe!H+#RZ6Mgkn;RpCiuIuWm{U#i(QBrcMn;AabZd8qt3@^24+# zmCijFicE#|;`swS%O8uQ4tR}4!j=UG(K~ptL7JRc)FfCOpq@K!jEERh6jI%+t^UEJ ztuFkQ@_SduY{J+nHWVW=7d7Q73H-7_a_WCZf?TD!i7##=^>&}elRpA!GO`MAKH%|9SH&D9~W$XpmNUf&X(j&j~Dx);g_&JarXAOyui6ZAIZB0@~sZh&% zo21(Yyw(-bObR^PsR0^iho&(L?{c+4j9iGly7mwo0lZ?)#&uO^Uf*|U$ zd=^}XDOd)q<95BclAbXpx969s-y zWOuCRx2y8FW;j@v5dmqe$V1+tMoH!qKdjlN1QFKpgyW`BXl6ExTzHS{k%y0*1um8>5p8Vm&`y zm6ut7{9Xjg$~0xc4=Canf-+?(IVvc8xmT%C5aj^&%788iTY(HWAxPI77^1f17Np=S z+e>Lu+;LvhUg|L<>^Or3mjIyWbm0w7ey%v%?nJ~@z5GHwx{K2ng-z)TO|H8=|KVLb zAOMxa6z8yd6g{RInm-@G*5VxI5w9Vw+n^eZ?pK~X2F45~Ec4(%V>Een3LF7oyp;q% zyq|~n=m<dGlu4ft}H<#59 z7ku)T;e1C2X}tTNcwB(Xi|ZX+H$_YjE^_Km(0_KqVPEB4k!Z($W92HEM!vByo|1fJ zG?l#Yx>^pi08RPj_tDmpZ+%bA1^BnpgR!z)B%h3f8%XM@mb{~I0LwiX38462lY(C# zkB30dyM_+q%WEd!zjuxBh$QoLAvAy6Jx^5+e#7p^b1wzZ*c^W?RKVQ6*TyL@#NNcO~q>yNL`Eh+n{Y#kIw zP2a4q?)(kHRsS@)iQ>lSB96%wCiIeAZ~|*oT1g zuUR*%1Ur={?EqO`ezM7xVyp}q3ManC$~MXP5wI{;4jF}e7|{SQ#>x@yar9J6Pvvz2 zu9)_CpM}@{ez=){8+p}hq)`*!<@FyD7x{h_{?qhDlF3N2{)%_i%Xl>iqQ=&O%-;3z z0jcr6|1thI)y;LTXsXe<#`xYZM0-ULO4)t++$&8rFf9ENu&G-WgPv_p(U|I1#kSs& z1*H1U9=vOK9f_N2Qk)&O^c$rysU=-L_hthWZFq0n`W%YbQiFf;Ww^x>-_O12Ure2PlU|1kC?a8Xv>|1*~XM?_|nQAPtD6%_=N6mtQMMP^KqMPw!w!OEA2HiQ{*%fUv} z;c3h_t6OiSw%fi7mMM!0E-AK{WsCOK+e2ibZz<+7|L?ia3}E*A{r-GD5A!T{J@?#m z&pr1nQY9^sUC#)4x)^5Ajl6ImiylX56{u1w_XBnKU!A%*sy(=V_WIPt@*iS{1C2_NH%idlV~G0z>d3Ir#fPfR-JHgAvx2nInJj=vZ1jp z_zoU6$lBe#Fk%FeKePUxRBaA9en?BO!pjN&XC&+Ar2Tc}!o|NysT$YG4tGIxYzs7F zXItG?z5FMJ9LtdFAQS5UKz#ckV&JjI?BmPUWR51Vt90|KSt(FNPZps&(nqE-{Q_JzT;;gZarK$T^ta)cF8_kWGX}AFEGeCD8^oqeB^%R@ z*fUaS<+7lDj{n4-FNDM8g2tbbk)<>JCH(fmFFp6b?{MEmg<%l*u))|N!GrM4gW1ec z-U?A`cBhm5=-!+&Gi1UvX1~No${zhzH3E31c++RRq z=W8?76kuYv2R>UiAn9#>mx&E#v%lpJn%H$ZrH~MjPwx1dZ#S{AO8+qDEd_br+n{@!a9I>(p#2TAkrUea96kR=cBMUi5$g`MzO)pe9TOc3&@?7967nx54;4EGx9$z_{q#i zgfCE$Ndt6i&f-1fp*G2y51E%?lVu&8>;?#EFA6C#-aYRrza(!=_vN5NhzOZNYXdyJUb>-iU)!be@d+s2r6l za1Nc$%Ed}Kl8h)~cjFxJn@N-GlgEAXQD7d*H=}Xb;jkk2y*T+Sz;P+sa-)*N<5YVL zBpM?9+N5BW!+8`EH+`+fO6@Pexi3;97Y^kEl^jr?UQmG8@Lh<}W$$^G4)FTQ62VDW zT+3v0{R?;oGNd>T8LVDZm7_i1fSbX(H8{Q_{&ghy+ z>tK$QFFvJM9A(~DCVxlo75H_%hdy`{-lKHn3<&Y_gpXVoq?Uvy$RI_NKF;5b`qg--{Ylt%-;8AITCpSmS=SW5=v z$){&@b!=9t^l?+VfU3OrH842vqv|c!=E=>-Onfx>oO0yK_ z1mXnB^^1w>6r1q8e3Jd6-jOJQT5ueph4UeH2eKLH)yIH{QPfFl!3zKZ6gTb@f)neEjWnoj5Rgu{E{L?*q*)m_ON5d(fCevKAlP2_AY_0TSAqjE_(uxF zZm!KlAw|}GLrlf248qXml%oUAQbZ2y_h#kqOTR}1Fr`RDA1gTT=r0gg&Y)H_)3F2) zTGf^+AN&+A>`ruyOoI*5jS#?~iY2HAGhr3gld1P$)!p>1G868iS4fH3AZ+1Cq#=Ux z5;e@pMi7|&!;qpK8+#gi>ElGWn8OVKTv}oDk*IVZd4dXd?5k*pGm_|c?I!T1(8~t0 zVKBn*f!xzkA?dIwfqiSw>SSFMVhB_uK?yHUz5(-h#~LjSI%eQ3-vK|AKxpuVe)o}A z$i?N$&4Rd+LCk|RwISEq9hi(8B)T7!rI$KIjn5*rbe!HH3F2JS7u-Rq7458|j~$e* zmQ?@6SAQ=`kQ;+YjKoFj(*bN^~5hp<8d_(+6tcA9@7S+#6EF6xywr=FUQG3Wyw~@>-+>a=~Zd z$J9apdr?Y>@(oKjyb0o~VSZCG&Y+3HnHp=WFhodZm(wU&I?b;p6@L@it;nddXGkd- zkhn<6m$n5sZqjWBTbg2@;Oa=Tk0mM9XjjKg&~-_f11>+vC5PD|0;#ZvJ6&>+y>E{E z`(SFa2J??(Lom!$mGsDw2Q8x!fL9;?TXl~7mAb1rB&v%dArZxT!-S2XmAS9n1F%GF zF&PoQl=(i`H{Tx+vnm5Yxb|S#$8@)ZD)W7Ci3T3Q7Ea^dso;Tqn)__qRf}-|sOaA< z#wUOhQf`Q6rXKS+N|FN(0O3rykH&Fvlziy`)kMdZpcf#3fEBTD@DB}tJ>It7v|cBv z5%-hc!j|E%>>PL#N<4@&(o;Gd8W~*mR}dvzw{8XUL;U_!9@E2)7ZzaRT9P4G?-gJI zQ@RmYE*2@^n^n^5x%O>?+)^!RG_jm-y7$fO3%b)8PK|@alL@60atGfseg)LuRL`)8^@kZ;pM~GRJP(y{_b$Lx~QWVcm$e= zVHM0^pepbt!3;W|7mS7h2Znu0dRgVd6x2-CQ$!AS^vWO-UN?excY zy^pW#WfMguJkS3%f-NW482v}Ghgm`ne`O?_$o{;O|1grpZK||sd2}KR38whQ6Q${J z2E?Z(vT!GjD4DQspbH5<`_`|y@Trhy$cO#>WN zD1IisKt*TZe9!mX1z%!dr7salJzu&(+BX~p3PgkTrWWW4gG^=Rw)aE<3nv4+dVxB~ zj{!$fI$9PYdI&#G25c+3(mLhm_am{dqX*?6bP}l%p*=qjsx(MHP^_iM71EVUzE5Pb z60GK+G8$glE5ES0j;vnNe5@hpHJYEqS@@; zn3e}IGOevRXFJ4eC$Y$Z;W;G{)}~Yq21F$vm?(1YGs6RXBi|CuA`-^=pcX5?)C5YT zsstt^)|Ue|aP6*lB{c`z^@4yFqfFnZ^Pi$|RCD_sJS>KdbdHmHLHkNC^_2CWU^X2_ zyFwAl@4pD(;7c!P-3DmfLRtFj&FE1FCb4_cH8@1r#7hLheVeXkR(0kkHAfd!*5mBzA+YB%MmPW(2TMcn0w8GsES8 z3DgqWmI-D9GsEEDsgY7QwNu$2hNVlgX!{V+_F4r-9py_TD@4L`kGPT!s2wFl7_dN8 zu51X*cZ3$XRyHu^2*RGRp{=hdNUhSFQCq2e0?h)FA(kv0|9y*gTfsi94X2?&cnJGk z+K(KT)5r5KlbA_w$|KK~Pm5&Da(X!LIfX?|E77rBp&%P!2t9EoUSX2Lq|A&G zjl6glL@HMKs|i3vj25sMX~f`YO``0YaoRNPQWa{@LWl(>|V8 zPhmsY(Q*9sDQo~6@f2^K!c5L&;TP{u8dz_AjkTm}R9bm+!L3IujQ2{9oA;O4Xv`;Lj)99BbWnH7s@COMKFg&Jlf)Eg`jit2!rh52*1)3NG(>a?B5ZhlRq<-g~6dbxD}r>Wrb+M^97Ss(o$%l zlm)7KrMLB)f@XwB%yGN_buYX|ZCJGBScxI`7WTepiWxa#AlXOc}f28fkb^c z3=tZ4q{++=?4qkT8O}tDFjhPk6Pj-+8D%k)7I7jGs8=I zp%bqF6)|wIMloY07U|9TB0nay+kepLUl}N7Fdh1$i$e9)mT0}D##`Z8 zT$#Km75un49}+H?6C0!mG1;XX&`PSzJzd*m(F7njDr&?FQR&rhAqP)c1TGrl+cLv+ zn8xSGy)69pSeC%r?fi*Ymcl-2=3mFMsm`+RNQy{o?q9$k=1B9+@#gYLAcDG@{h)&? z$7r8%Yfy@Bi0d9FxMGYnVlW^>dV}6%=EMDBqjb2Sb<1y^f=WL;I;sA6`Qdo5!hARS zgZ<_A?XyeB1&@MOfJAL5K9eNIFR_4DcJ|}EAdZcVjKilLq2p<=G0vS<+hj4Xew@D^ z$A(1yI_7^&(#Uxm0`fWEK@ur9AJq6DFdQ1ctDr#lG`*xnF-R3UUTPP%Y|D7}cOaQq z>i&Uu#jr8Di8PYi<$Vc0%tO25sNFMRD4_5kuq&8|#5+P`={*^AeMc3N+Z#?b@1x6^MBwyFd z&i|aqKlYmZE3VG(JG4J5IfXFpUgYw1)`n@e8-pY*(b6Q4U034mS+z>vNL)tZEeOua zWaz#Yl^-y#?}9j4zrC zw3?l0+5)v!q&seFVdr4$XESkX3EQD^q~Mjn2VUSW~?$}b=dmXjhx`4!8Ct2vC899r!ZTPDcB&-_!ALyLWv zIGf6ILfHTQJW*h&C=jB@zH%;A>(m04nfV`rB~#V^q;(w$6CPYs#Xi21NizgvZ5t+< zP)7up45xfM)MaLUNvStsZzKULs#cF(q0Fh?6#-)6Ep%80Tfw~PuM`xxdJv7 zpKL_Fb_yY;eb(#s32W1Ue-KzJln@m1bxMRC0#;B#z`zGb2%o*u&tPv&$_$$rgG98A zixQaQbJtLYtUkHy5&4giNFrQCI=dvZLFBCm{7(bcPAQ87vq#>B{*XUls_TBOY6p!4 zN;c%`*3j`M$`Eo|Iz%AR=|hxNIYbC+R79tUL`2*aq6-W7&DJ2hUPc56f|7fh6YM)A zwnvox1zczy@XB+kb?vT$-qz1)27Oh7#|3yJr3opmQq^dx3c60YdimuBrK*8SRrB?& zPf*(|`R9{0xEbsShb9volaMNtd}#zek=Qq)Ee*}bArR!u{`Q{|LMm|xlIJV*FkYek z1zqi@QY_S_W^@HXc!cX8$k#eIq>-QoBPc<;l&*5YX*K8zO2H0RI^M>lGq4N0s}@t9 zRwpNsPmlz#g(g8r4{tz5K=>n)MvA=)CbZw-3N77Jr~^lIHSO|qNJ@xAhatdvA}{#v zp#q@5O|^$4!=-t$csi1}0GL$KC5}d|s0Kn{Q15xj(>4I&XoF82O{){iN~N+E&~d5> zys1#+!#%7CY%&kRCs`4AM@dI$drid?_0g@_iq6FXPD}3*a%1YEe9nUmbi}g>NTei1 z6Ceau`h6Uq#SV)~pbP>g(bO$@C%)~_WKy=P&Uv1vBD3-_k=<(Oq(?ORpo-eu_*A0t ztUHN~4&eU*%?aTQvnw$*uxii=-G=RGZC5+9sZhnQ$>&kRQL1wky|NSsG*0;wNpAPtj*@J-YLFAtiLmeU~BmE&>ze62nr1NGY z`0?uGprrlfy>;8`bTtv_6KC>_sSs4PWbn09Sya};(D?(^A_+z}B|dWK5aQ$PsT>2b z_mD5XMxYF;T&f?YtJ;ct*U}KRBOVDtN;KF-RE-p3VVmzLb)*Cp8B&B1ksgG9p67@9 zK-&%KJ}0ghs{abvpYY~`VN@l#r_AuXE_pUNHp8ttn4%A;8)IF8$*1^pM4Im9eD3QegzrJDCi zW6=q!Q^^ab+0~NP(1dZ7okrVF}LkBff1&iCQQZ8|22h zBE3)9va^fO4uv$9ta7D!86c_#o33VgvNT^W{gLieB!iIEFxa zl`C1VN3=sSHH?#{!^b8{s-iF1o|H?t5OVs{V#-l603(wuhY_vBfl_bbdI9I5E2A=` zoAYgMwR{V<|CnTu*lBIhoOD^7`C6Byn0eQ2MS1c(=sZf6&W7ee3ls%G6fqrjld2_t z$oL;EYDbIO|AOuCZYJ#M7eEPB=LQuen;;NZx&bj&I7t)%A|SZ7GI_3Z9Z?~W52CyZ z0TedXf&wPtBVcaa;VU5;;57xz3;94Hrj}CObodXi5W7H|UG9zKSY<+i0!`_tQ&B8K zeXvV&FHk|=;uwwYpg|Z0GziT|aSGW4h;a&t_~J78z*>PqNKWz@YQ8uDms1B3g=+yJ zR~l;*jisg{FR0hU$XA56MoaCTq+aQ-@Fi1D#m)q3D(&zim6V|aeMnj4l38{Mj+&kx z$B(A4t?IjYSt|QYH*+8~&}K!D?V8?GwT+jivB*B}pxrwZg|lsEz-iqy8JtC8!;;|G z26bAJ!dWiULdQE2axC4t`Iv_=ZA)GO)hIa)0K;Kfs~In0LxaeaAi3eny9B)3XNhF3 zG4yfwNrJoG87!)4HR2r{=KroR0!S9nWHC{S)=T&&WtpTN2w7j^^%&OAhH010Z86E= zz3|0i0wGPbXqIS@Nh4VdvHR4Pr3c=DDSa^y`obOXPD`Rh-M){jQ$E)Yu4>CUe|s|W>Fa+E)V-NIopzQO`?L&2ixQ2YK(==*V|oX! zhjH!3^(U@H%Y&3-ARaND4I1z;FyzpooLuRNuhARgu+y|~vA+H!&z;VO8Zf(5Qn^+# zlM*}>4-rc*b?b1YBjzM%9U!O} zwbyOVXnP2cO5e@Kw!TVlijqZ7tkd0Ae>$`T-KtKGoSy_^m!v>DB9F{%6djz~$POLi zV{T?i&RY+n1HKi=CYJ}2M!>8dXtgjBfX9RcwX{aV3I&$>z= z0hp#kA(YJuuG%K+DYGRWXo+m`luf=ILAj;ZmAx3VH4pxP3#9(2`$0G81LnSnths3Sta^)r}ZNVR3L>m}0g{;m2r>>NU} z*IO1>{u{ywBh6PS&%iThu<-G2cK#@|C=olwooWd_@*j}g7}?Ape4 zS!{&b#&67GqeFefO?DA+i{Oj1m?5?zl$r~@y!nkp&d7co0(u`k>seSJ$N@ID@VCz2 z%7TdSYO3`cu;+iHT2xvW(WBv z!9q3-XnQVsPk_C*s}3i+@|ViDao);RJyc8PdaMSC`S2@O-pNzuunFoleAygkW>Y$N z{T#M%zzH}?N4L(U25BA3yxV^#tPhwi?@8j5^VqY@be?~k$I^zK5N3Vas?&}^QtG8n z^iA#PMBg2Jnw8CFMd$eAR+btzRLKC%`3?*m2+|OVpSH5edLuS0nigL+o4k)tu(8M3 zm_PUt8=C^Z3cYV(Kf}R9$1Us*HsuVzbuPOR@lqe3%d+}+&i0*S5{@Q5%TID1WzY6{*v>+{|TGy(HI8+-6BvWVv^x~v`_dxPO1uE>3xE`yCZXPO`$@e-h#>;7CP@LVkG)dDdQZ}N-S)HyS3B7!4bj6( z%zZw0&U5qM){4qAYFr-0GqTx zE3L@DQq06je_96LFrSTfR;NWK1z=IZzHACjO9z-BGciFGKY{_;^AOWpH+eYBEO#s#|r)AzqC3wNY1f31l))UX1e>Nr@TUvB;@g`x6mQur}u8)~|6} zxk@lLYkjDbCpTcVMd9ccbZ!J=)A}CL?MsVP739gEDKX%P&vBgjJEp|PlYj_%@7Tcf zWw_k9UdHv^24>LT2sqPfNLywt@g6JeykG%~3HGDo#svP)1uTnyvw+>hhSuHl`viWh05s?g?k!-0`V|u1b*DWD{n=JCwvdfft0(h$3t4ph&lqqJ zeNcleH)6R)bQCpB>(GQj^Sh%+T00qEu`>wr5bFbx=dQ{8orNr&1o1hg^6ophcOmO< zz}Y>Xp1A|4(?SA-9Qpk^9&;;;y+`?SoA@F%h)<3>->w7zB%r4>?x3R1M>~8ty+dva-{Mc|&Dm?~7P! zA7hd95Sdybj(K}fk-G+g;Qztm)REl&4>n4j%D4Q3W%aoZiBh{IO6A^vu&7W9l46v{ zi3Q%+xM{JiAI_@vvqC^=Ae%VKZ!2QMhrbWfPdo|^tV75hEvc$$K(OR| zS`nMAF5uoGc8_{Gzvm8&ev@L+17{pF-Gv5s!f}lLaZTVLPsnkY=S}yIz6$^fEOKv| z&iCHIM(BPPaWFYSEvhR1N&e>@Ah`2S@!N~p=&?`zi|OCMRfp?Xx9ca|pT`Bh7vkKW zx^+i<`Jdtq#q98ir=CPUTy?lU!Sw^KbGWomG5tVXi*R50B;S4~n-jJIoAhSdD7ZQT zDn_CaKRm@FOQ3DC8ws0m9l`YlE}BpNKayKOf`jw)cqub3wq7cL-fveB?KfytAmc6Ai! z);*05!bM8UW?^AghaanK#9j^4EfJy)$7lazOCH#IZA)}6lDzv`(~7fsa1}~Nx_aUC zWX8#6kr{i*ed=Hk**MvOVMLwScU2V<^)x5oZR;Fy`_~evfWW`0yY2hb<)tQAo0q15bubZ5QM5u+eg#B1HkrZu8VEp@L!{?BXG4y;c4mys6}U4lrzan&}_F)d%;gfX+X4K!7^n zvHMxJGlzzmd<#G-v?LkZFYgi!A|^tF5Q0Hw-Fmo z{HHU2!8T)uw#xKZ4A_cp`uo?30mBlHARdArU7TI`Qr<1K*F0_Ys%f;7xjz60P{q3- zP(T=CtGo+BDnE)Uzd%%ySQ$S02SM0k0!x4y6YsELBPL}5b7{bPd-9(0WW~w4&4em6 zsg&@_7C6hb7!xgi%(Vb>ZSv2ww25)aGS!ySAngYRFC`HO$rTGtO8C=CM}ODF>+OA9 z7e@oRFUC6ZT+OD$y^c&&D>YI(&;+G^oe)z}3pPC6g{+o1DNm_AMBt0X=*}{=J!O+i z&;SKl@cdx+j&v1d76k$NMj&rV=sp}mS>mkTiUfJ3hrf3>GmW98ScTZh<%Zbuh+O&A zK5)+ku4#`ZU>{|J?Yndkrk9S1p1l5Y?-M-W9yY@8{x<^81a=8;vht^2@hSM?T+!`| z5(Ih>kPW`7A%DS8bjD1l`68K3ouR}HNJY$>*_7<+aO&0#1B;J|ZhA>f^j}`2iC!ou zwx;zsjiG`Y-KS7JUOTPwpXBk#KZoAvO4^<391~89lsV^Ra5DrouDCKOf=AO8`3zAQ~4g z)Pk*Yt=Pwe)S7&$(HIzKpfF^ck8EI|u5H=7*eP^P%qe!-u1@KmIE?TS@pg^115hr= zQ^9;Es$bbHpZFqnsn?c2r&~JL1*Lpq0XrMhRsMDU@=<(bw`{fap?mR8A4#R9#b;V8 z2&cdNsefPoz;5O5@~z)QZ)@p8_wu_H|5&$l{^D1GPx`y|ljW^|587YYEnh8t_#euj z&@G+o!ejyd$$wvbWM}cfe^s}9we*F`_aTiUmFh$T|7v&5vc2>1F8V|B^ct*vQXrIn z0$uMY^rdljpJf$)Ni^1%sB2t}oehVdz;3B)=>xSJD2Mni0O`5aN-XKB01yGZym$_e^Y{&gQhp(6_va3f9!fA|3A9^tiLc6rL?Nj@ir&| zHU+WuPI9{VHV71!L=&yVYJ_?M!g_JghoJ2tg*fRe2vmtSqw$EDhQ=4)hK0G9=B8DC zA2Pp<;UISdo@M%8xKdtV`ZWC7@caGqOuzRzrZ2)3h5LB?y6|g4dQ}Mh@n4s*<>Ubc zv|Dc*=aud?DO434gIH_KSFbf-O$r~odbRu8@t!Q?68`a?;s~&`y^{E`qleEWAlCU< za=WC+9-Un=*1PyZI?n3is)#50>CyiK())zaLa8+Ipl(e72o@a%LAc}N2p8zq(ViI# zMf_`Gp)lb`a(3dY(a&bC^c8g+jHH{G)D^mQF9P7Y?d$i5oSu#N@x^QZI|eTCZyKv} z%@>smbZec5dl7oQ&H0fCyxz85L|t!tQ-oY^+a}_zw>=|*t+)N_Zzk1oC~ymcD}4#v zsumdU`Zons-==khl7j?0>R8>l5xC!#UGMMX6Ta*%PU(Q#YN~#KW(0d)RU|4@ z1i2}6HTG-`2U2zw(#enK`PCiA{tL-I(lPC3|ZSvUJ9hFBkbKmb{OV?Ck%OMwP?EW3cR{IseE9#E2YVDbkyywk-D}bb8t5#}$Wb z9InZ@QgH3Tb?+%W7TU<&-h)Jg`o&oAIvYuIkc0e5#CIyvp?s~_s^GK(XF+WDf?;YhI0o&DNEp1~b8mk18n@~s&SLuk*;9W8e8>kHIp5*)|U?A9Slj3(v zbi(J_RWdyNcn-uR4e&5Pe5BtoXAig;u*qZY;?8>^W)vf-g)FbTE+B2TaFXUWPnXQm zQ)qx3ec?$0V>`s3KB}P6Z3a7v<1!>Qz~2QWgGWY`BZOuC1;pwu(730%R~g~c(Y@*x z_o{sNs)g=Vi`=V`0U{jgmFOlfn`kDz2}b z^r0iBa+!L!V;C66#D=Sc0sn^dP!K?1;8k7|5Gf%)fa3gUsMOD4+T#PWNcsr_iDd^Jh)fBal)xDjO4Z zHhpsRDUO4;XK$%SZUFhg#Aqyz_q}-A_oCZKc5Zi9LMh5?cfwQOq1l1@;`ZaT#ZRtN zt868>nXvORpI!y;8U5<`omDWhINQu0tYR?(M((%_%1lyPDY=98wcqq0&Or4T-?a@9 zv)2PIeotL%qSoLEVRoc+JvO-ahd@*vLhHP4`vi;CmLuC>ZdX!@H>7kH4ZN505akM; zit>a^z=oKV9}@5>J{vhRnx;i%V_ERxmqZ!frZrJpQ9ck}<=z=pi66QDtOtPJP`PSK zj-w>r#ZhpW`1W3}m;AjZLn{q7Z`raQCrfaL*l))GLJw5sB%7h>a@=z{y#NFBc5~ z3{Oo>tV?#Z{*w8v#Hwk8@n25oQ`wX#P;$y*DA;dN8k=rp-b;6Qqcul zCRzh8+DfAV0I0k88b94%TAZ6DI{$IURrN!WN@>IChm<-yvCPlm3GJc?VEoQboPjyC zbU?bLqZ;xs&z1~@Yfg&u^xG#enSC-oQi05G*Qn0~c%K{HD<#h-Pd`6S3Pl=!Of z_MN@2(p}|jk>r#RRbrsP>ONq!~@~u_NDUBYIgm& zi2BO`v8_Le50v;M~QdISnYO+*yX~98!*#PvrCas&Sm~8Gp2z z4eniiD}ar*Aimj~|K#=6EUK5$eXriNS3|ynd3!Z8-p~WUb#(;k)}2I2kj37;1KcfO z0&It&q%h#6no*&2y!A^633!CW2KS8+hbKhpk=SUHw?D*ZNpO$8o|n+iU3{H{gN#)E zmc#}|jzl&yf|Vw;Mv|1F!jPA1Bl2i5$Vm(NPZEn9d0OnX=)lX^xN%-B(^ueX#`Pnv zP_!uq*X=v_hzDUe5=GpfFxWNE!Q>nC!EI=J)rlQ;{OHmTU?J}JdpsD@J@C_OpJata zau2y~=@oBVpd7P@$b`mQ5rvb&KWH zDAUcG9)v-8)jHoqfh-?r29HyK1VxXdC;BBJrZ&5H>qi2h5%M&#nnyGuJ*7k{;gI5g z$)QN5Blz3PH3lBIfnDcZ{fic*bkSro*}&=GYf%xnu}bfWUmJY1(lgE>XBVHuM6r7N zErmWGwH*xw#}Tb~arDOH0|1q6E&c(?5cr`6vt*B<7CS>#D|De%*5VHF;WP0e#0gbs zowwh56hZh$iWaH)0Mz2557`;65Mo$&Pd2Td;y= zpg8gmknQ`OL%;H?_gwZOD|tLI0onV2S&}NWm|&9CkZ3iQ^?(}lp%3x$L1k%2r=clv zNS=49%>DY9Z(UWPJkcI7NH)pDby-3Z2B41lO)hm@X!JEVxi@ zPKn98Jp^Ac8*c%U0qw9)TaJx2<{x|;@Q8=m;2T8-_gW3o+2hetZMHv~cRLl^J@4?Y zyo(=Z{f5!^rq%SH{+d?neRpWeP_QUd7Q#dB%MUZe6vT)B&-PUVN0jzaPf)D1L4(;K zJ*Exfk(-!t)OA*Q&ZFQs)>3T&^-w_6mJ9^1g?H#3uphZ$l`W5XloxJ7pa`lvvDq=v z51UyulAWE*>E6HZl-z)guWnkD0ZKiAvJ~eb-Qf7Hl9o~cqoEr>vCwNoWyi`Qq=yLb z0f!Tha`hwZ`T)S6k9~v0sIrKuYKFlzp07-`+< z1QS>rDk`LVIlS%>81D+uZJ|nC`vU6!6O0pMV4)S$q~9W-gw%|qoGBj74ep01je8xT z0j>Wv)O`0kY8C?302)+Y`(k&&=i(*f+}=vJy)X};;fGsaugT)>3{=Uj@+mZxh4uHFJzMiw;>_`cJ zle3}h)e`P^9MTzZ@h)XvaDF~mK?z+ZcuMTWiOqTUgArYG*q zD(6)4ZytxM>??s>{{)-t{6r*xvL}RnAbo@&r1A;<>EQDx@IsHykq9pW*kF{>!6{#~ z_XMzY>*)MPnso_|Zt#Lkrvm83AJj%{Zd7nK(H8iD3AxAZ-{|@k+9;ZfkUj=U$#`E& z?*m#~N1dvfFd>028hDhxX#bK%@iX}ISobN)DhojfL>v|BTzjeHBXZ4hY-C!by;x!* zATR?xmVQlauSmr5BT6@-^ra!NIkI7cvnG?=afWz8dbIU~c}H75otC@yX%nG=zN7_{ zUG(Vg*aJD(oM+~WO=8z6EIGyV=zzUoETt4fVv4bBh;Wn!0pSBYXV1T4v_o;+C(VK{AyJsBdtoY3nDcK6`{n-su`r#KF5sL3I9J@%HkpQL z)+IMq%yiNtMSI=pT2H#xJu5^CbUU<_l;S383$v7t7t1W(0 ztqN0l(mSvy?yvNEOAwI#ZT#}Wr{In8zghgrr`X&cFJpG^*gTqFe2PU(dlZw;nhRu% z$KXZFYw-xIjK*3jc4NIUxQB(ZEf6~#C-rOI0~n+x>7wu|XM$o_+rvEnX_nX%Se}Kp z0nN8O&BA+9E!)()P|xnCS;X~60acp3q|9o}wP9`{BA0v-=YV3$D*9l#wEc~e_ukKY zZe}ss4pe26A6daCZ)T$=P9Uc;FhfzDO9|5Jsw$}+X&5g`Riep}WpQLfO0C7B(X}WW z5A*rco7s?1Y7W?60#+^BbZ9e+2rSW4Yk%3y28I~HpyT~5Y zahRyGpi4kijfDORzv2qcku&iScdFrLq8!Pt3!#qQ*|X)wpS<30h@FQ& z2?Vgmn;iIcr)O`1hrD9q&FXY5f9wT;@FC%eB4$x zOe-Tf_NvQx!B#d@J%_K}%A)0(2>@{Spy(u!p_jupqB#NOiI&W zpQr)fn~LeJ!3S(YZ6Z?JT*M;-`q<<}E3igjNrd-exfu8SmS@1D87nZmS};!vhI?*l;(fWU%oUk!mmx78rDyo*6XFkorR0D;%hYO6evZb{t+ zvH`j!xM0n@0r&i&=U93KeCy8809A3aV32~{5FkP|Ju^ZG33$hIEP2zzW!Lkm&$C6> zKZ3k|u6<1uX)G7%?(0`N2M*n_u;D(k68GcwV~XsI+R9s=XSRriW!qgB7M1t+tP4SU zk7l}i+Jo8@INiisp7sJO9SQLjI2rKWrZn25P$iAJ?fLD2y6yW{?{@-Ny6v0vIsB^^ zm`y(iyby`jHl@-cVJO&?({AAD@3Jw8^GHE0tJ4I@veYWkbS7W&9_(^%uOjLTlXQas9}Q#6k(5s zW|sP(N-V#^_whGBU^fg}i35?VoA7g8R}=UfHSA#?{~;URw??$g;HnE~tlUurkcD$g zExQQ=x=#6Ns%2xAtJ(8^VgXve_wU*XNjVYKL( zc65g!jS@T#NN1pd?8x?Rr(yCgSt|cLOss3v2`rr|e+QIqklM8`3tacCr93Vs-^lO! zh(-1b#xz6kjL@3QfDgbu4CTGfaoclpWeaJG?mNl59iZ9 zU~#;17c(i3nh#k#e||UX%MP93wY%A(gpw0XzXaCPE}F$rKKj9Dk^2V?pjqnU_@P1^}p7I@_x z!r%Lljp_?E-4+U(WxhY#dqas=o;rlLf5^u45BDUsIMTYqaDsfn#K-SMNSGhq=ks>5 zD5#%0cd|&27cML!CZ0R@Jo* zgL2XUq32?B0iX(}%rP3xs5!d%O!6jFz1`=Xa9)+lPP^?3Cb-x9^iaSHckg3M4FIBUR=jwjPwzobO&bZnz3v68n}h#G#=vaI+mc0;k)YCZG7WC z9QG7{&)?n09Hu``F@4YPar}vE9IolOx&#&%alIE-)dwd*`x3BFB@5O(hlms$`J^KSw@} zeFrs|%#@|o^d0-3fRv@#B?EJ0={;X>h=AU+pN&sX_Gp?NM`1jY4725l_CT`yZq(Hz zGhw?A&n56$A~3j5e_9B!ZUiRNjpE15H=2CHUN+_WWXBXl&UK6uel8PV$NGw(#$-~9 zY_O&^FDLI>zS17-$DiHH#_G*5`~idL@-j#<1N)l!4|}1m-;ej&#|9)A72<|Hr^_4Q z7>$|eh3hDJ^=nGeVMG`FMM4uDUgC}!_$~X`L~c63hC9#4gNOD}Mr_MP&wR87P`8~o zFH|8utUVQ8fR>+YP&+2+YSumgcoj`DuX4mms~|?9Ib4*eIpT<<70-15?!D(UF}ScR zlEhM3SWx5+X&^^z1+Cj&@yiY9^zh7iCzY>O*>A1fMT>$F(f7o1?OGn9vYRVc-Jj<$ zqtxY{?gJ;DGXvkpLdD4px2m(f3C)BM56q?MjKDjx{3i9=T8bx#G>Y8QjxwvT0)OK~z%xw1KMj-&UvY0XSc9{McH3mb8QMHMiWy+~KHg>V6)o%vFh-eXzn ziM#zvsYO?luJR<*SI-EXoEhjy)YYW2qC_)u+)#O8j-%H$wWCkL0;zF+VPoZmg^oa1 zN4Py4*|AD{4E4I2pw6uJy}FtOL2b`K>MR{8Y)yU{`zSJK;EpD?!nt!B%u-fHg-vn% z14DQ{+L72%KCj4yvsM7!aSV5_h`U3$drjOm;O-4^SBty1#N8XXdq>#ENt3w}u6)C4k;6c`#L z%^xyZt+mjiCfr^$m%y6Ykte@ry+Vdv9?Tt#idfR9#)87e!q($2U4>qkN;cZv1bDIJ!FM~Tjbd)9XLZR{JOe8I)zYd7G%q0ig%`RDE zA3NP{k~H6eW5P0qeC9Inp_-`KIg)0tGFWY+y$Ro8wOBD(NQT;mD31?LRUZ2yH)P4) zcqEy46TJiZP++C`twaM7=q#1%<_J(d@#@u}B8MdcSPNReeW7cVmC++o;-e&(i`G*4 z;0OVmP&9I>pS*P&@owpdiu6w^>HG0z2jG`v{s{i=0X9Ruh+jFtmKcFFe<-aX%|DMO zRz!RF{#E|qLC7lS59jY5WTS^;<8?;vK_Wv7yRX5bsQu~9`2 zK!#hCxOONiD-R?5Tm1}CO>?QVX6W2r_o5oH@=Jo=3Fd;GbGxyplKq?idAk@^7--8KLar;ax)W6 zBl=W+8>opwow9MKP$x6)6zY_OJB2!p#hpT(qH(8Cr$M+Q>NG^<0CauiDHwNxJlVC> z>wC76?{fa=%gogOg;CcwGvFnD@MSjMi6B!qq9{+cIxzHb$){#Qz8_=B%9 zqp1U=fX>9wNbo3s#e~T(@I9}xeE!zkYz{MS=0WeUc^t~Ex2i|+2VP^N@$=SeY*2t6 zCj&=cV^jNQ7YRha3Y}t}vID23n6AbIKQ>9gBKoRMl-#N zT9}mV=w11z1rr>fQXlhrSD#X;`l!f4vyaM73NnuBN?%f60TD=L%d_gX-{shSlz()H zl?|>7j;%jhcmBMT^r&pbQDM_?th}nkdV62I`Nhh!K4$%LH$vX#1^0$?L`MXUb|3}kY!MndHgb0A7ut@%)T>wMm>Z_Vibyj$Oz)cv_e-x}BLS<<&g`X0L~Nqk(X#EJE_ z08OytT7&BmT+icr&v!NAmoCvVTGnw=OWQ?XoKxt~*nsl^dT2txJGXhDRGk%{WYRExmNMA{pyRa)(O}w`*dX9Amv39zmf?MtytQNhr1hSAGRin-dj}CP>yerl#~c&RvnbOrxtYWb0}Qm~;?S$M+^= zIs|Hg=LF?h=oparxuaj=K}R29kLNb2Xv2Fng!^$5dyW)tswO zc8sX52k~V~1|g%qa)0uAymxgZ>s&ZN!CGLSmXHkm)mP6stKt2=Wac1C*{ABzdHmKd zVgGI^yLarSdDIX%_T2-I1xh2D5k?4>rh1%qn>>c*wxL7`LBh)`SDp==hl6*#PyA!a zB3(_$S-$g2HlY{#+ZLkqoL~78zF^whPM)*eTj?-D0)}>|Ek^98ang$}YEZmoAZ~%; z(RsS<(1)~O53(L}Xrgd_o`k4D@=B=8L6N8#U3QUnfl#{|*^5pzw&5KR6`rnUfN_EU z-jn$4PW~X{+3*!h>wQ9~CWK6ER6S`j!=`&HU$Y*{B)KLVZDj0$4!e{K5G( z^d|7p@nt`3cyxl|iL*?w%8wz3!g7*E?it!hmg;JDJ#L_V2PS3PHAy*+>nPZX#m#^Ejtv^|Q(I?`y6XQ#jDT`{iYniIfXAL> zqr=H4CvoqR7+sCDnQlK`GDugmX$`;cB#TsU<(`vl+Vz7xhHpvWG7!I&D-Xj7LEK?F zfSIMj4b773NL?A2;aXac1yT11%hXeEmg8s_ofie6ar&tnX zn9rWVxl}p-`4rBf*6_6N*@OYvaCDLb9kl&zfjiI?%vS0h-tkS}vl;rE?YCE6m;oO= z7iQY$R$j>9r@v>>VL6U5mABbptE7-kZR?Atc=W$njB~}QP9V@w2#nCx+y%J0sH4&! z=SH#uqp@kNvd%&w#{za>ab%Dw_+*P|Ul(2+2piR+56P=H(*XIpdR!*TqOgU9~WZ$v_iZ zs{fFPCbW5UHE%u3Kly<@u6~5y^&`8PY47LTe`K=^H1QOF!7$SElw-g)JlYT znBVsw)?fW1U;7_6w6~audv%r$4CyZZ{(s=IYaXBT6C2OQt>Ds65S0(&bw4pf;-Fkl z#9<&{lmo-n%XeRWOW=B}oRt?R+k-1FPO=B;YK+7XV?~PCSDhLNWF`#O$?T?HlXO+Y z3RKrfs+FXO#KK z!zROz;pf@{chRU+r}#14{xd5_KKW;OABo}p+E`SN0XULd9yov}x3R%tOTm6)rbSg} zoGaY_)wz3t4{>&L~!Jk=riPYfS=h9yVz4Vzbc zFTC)P`<>RyUqU&d91Ks%L`dew@KtBnKrnDmoB<)6&ySs9E zf>D5_*QkNU+96pwtHzoefrm!Cq+duO@xJ^lpLv$W#i7ojR44r5w6-3Hf3-a6UQE^o znug!CXfaO**K8tRl9{oav8!|$WaBs8Lm@C)U&FaD}qur^&BeMjLl z!s3CeI;(TW)%&B{_yt+ZhkMd{BY-PKBfzkdt0NLM6q4s7u}RRjW>Ryz4H&|3QD76| zD=D#jJ$>)+xp^kH3!zt~K!-y_hwFcIYF!_PLSkWW`@ETOAXyR+9Cu=W5?BHoYmcO0CKi|5Ju_CLXkGG z7=j_Zsc+NbfA3N}={D6>)zyZf5stuG$U!M!I!+d_771m`KEhHeL#yVw=UA3=`Q4EJ zY=Sniz*WU(|6LI6Ab`n{&*(UKMQLr=Xo#bV+;^2p2Y~=-_W59q@QosJ$sZuU^f{ue zbjWYgZM(>!#7QYf21+kiQR;&t8X1LzK;VFKyrJL`PK;R^s_P6EFyB|Hh(3Wz=>t_- zhDvY3H=l#=IinQ}|7*YEdXTJ7x8`#YdVnYN16oN5(wOI1Dhd4!-5}fSB+%-r&jL*2 z&J`v8Ts~6lsXmr8&67$sD+f^4K-vugFBqJt??*zhEQ#I2RY<)gu^S3$5Wh@`fkE>M z-mcet3J@F@?`RVv-j#mpy%{e>8)4UxSCsfwS@s818?+^UC;^22;+Wm%B773cLNb^s zkVEhfDdDCde(M_n2B#jMYD2H5sX$)b3w_(R!UX`|@1I~i(ZxZXU4&0Mhko@^5XttN z96bujBcsr#k3jv$P%NAw6a0!`ZFi$M@H-}j90gd_B$8a{7fD`6b%~xKI&SEAAy^g_ zu0e(3eGd@{v_GZZrhB*_Z}c@x>w#I_8>1V1Da;$i<)O zrw;2m?i1>TK5!2A{K*os#e-1am%^nIef8ac1Xf<2=de{z`-6d#4s*=H$PHJutALGq zm8v2fWXG7C4gUKNXt>KEfEg-o3x$fHt|sFT6_2>c1~|$6=Yq!E%FECJc^Dl%Z_!f` zlKl@cLmX3zbkX(ligp0!I3{#oETA-VIteTsH)&`qAE0tsG;rmtaU1CdYzvqdIBkpD zuiIS@6OS>NSM}Y`7?wvO@%+rI^TJ&@<)y61FC0QIXsn*$&~2|@FWCF1Qb|)V@!KV4 zkKr3ss|xrW2hEB59C4Kw=G#~E$V=F-7l5O#7Rl!YC4O76Qwp!V9AocUd3lts>fgu% zWR>b^iu#~s0x=AR!g|o^dV*Yzb+$YVLIS~<*}=?AC$&lh`08q$%W3H6xKZj+OzeU+ zTmBsedP?#kx*BKq^gi%FA+fV(X|9Wl?k^-zVSo}X+VWg6M!6UyGW4UtVYxXre2tU8 z#tUp1;#_--0WFEP5T^;Eqdx+X8If9gWf|&E=>radVSare(|g+B6EBs%dmRX) zMNg&g;Td@J-CIEcMYfdPJ!kRMpk{jCv4*=}MgDe(Vhs0)CEHpY%PcFG`~A+J3~KI3 zHoT9rB$2u4y)1HMD_)QZa@|6?R{AzjIlk8_9vsI;b{p&Jn{k7ycSiby%UB=vj0YuF z&ljj!?*wIUj&|Ray*b)^dle`J48YTCe7l<6l{y|N$GKuN>{yLwxMDIUxuPqg{jO4d39nc4{Df29mXw;9giw? z6=0p7lQG>jDWjbK&e*geRz!SpG&6oRiWz^w6^rMGaLvN?BQ8}0{i*pfEgQybwM@$& z(Xt)}glWVVdeCTg?$xr{>ex)fre{$ll>gBfQU3lhJUN^-pkO@;)}df63f>pa`uFr8 zMhUKHTsPr*78kr}yl%bk4IM9u)O6#v2o^US>lMBHtXQ53F*8vk9nM0b7?rDcm31sL z(#a*PE!O>Zncoq?Y@Vr+*VgJ_GSFEe9}93DsZpqzVaHuzb-&XrQUgo1MoD`TYb2_y-e*#dy{c6+t6~#K5!w+RV!g4Ij`0M= zmS*Wro&Dv{QBj-OJ1}?&vdY+nWHsH95;>fAer){hBt!;yrz??P>l;b=h3&x#X zpz!bs7_AUiK#~qog$7~@sJGu4rbuQD-Z9vj5r?d7Amx(fs9|S}_nS$EozcVyi^x0m zg(TRuyZ*!d7078Q{Vx zEGxXu^6^oI!JyI^5GVFwr zd}IK3GA)^5gXGPW1&$e&mWPUgEqIZIN955RZvY}46|ZRePFL>zAa*9a180THXSLMO zDV@1{0q#UV@9q~Y(ZLN0paQW;LhkctV}cEr-cg{yCPujMl4AU?Pn5bFQbVmJygh=f zl%!OGG#>F@8RU*eIjP5~9&IOY1cQXWR>_C))Cv1ws_|R_ld%&fwAMG1kn7qQ(ARb= z6hT|57pMp7Pq|}Il+;AfIl>j#C;;suuRy*RJf}dxQ$lSmFQTG^gVr?2Q7rZ+Lilt< z-d&;e0a-*U(CwnWLhr+#>Pb4@fEpyjYg^Gt4bCi~V6*)mkunm+)KW?WQ59e_2B~*< zrJm91A;o$4Z(I;?nbZ`sCTJuMvcgF z3-wnAHG&N_>Yz@k^dLk-up)!zaBRPcJRa}Lqs5`L${+F&eU3abLVdnocU`FuP>KRU zcBnv02MifE#?GV3FH1|_O3)lxXvuX{nmzVfQFAEaRCQx-{+W)&Yi?}j4@Iyk(Lc-- z_+vtzyHz*yvk`1u_oop?eTDZ_9ZTze%eD7qI+oZwmEQjw2L7s!_1FA9gMX-l1D?hi zyjM3?JPqRnJA|lrvfrupo9<)B(sS4k_0mqU`6=uZY*W=t=^_^b_4^#DrCB~tAp|GR4MBcyyzOGRa$xW3{fYm zbfOX-RS(NkXYk(L*^F*QU=BnIzO*~*qsb}XDRpNf)S59`{#GQj#ZEVDY6A7elxZsz zQ|9Ld{Fg{J(Y6rt0U41SWZ?i0N>8_M6&)FgBJL{VGxTh@$B3BK^N2&w6*gEL za<|`!i84v8Z5<$kTM8hV2dCcC@L-d-X?j`vM}G{NQPzIok0Fk-_E&M_2o0ESZxH1f zP~JDCqKb)Vy>txJ^h{vjzSsm0;3TwwUe&BCpY13smQ}Q9V08lA>a2K)eE|DZSfR}#F^8b9(>Dm z$SeQTS?6#nH6OdqILH$gMqCKinquV14vi`&1Yaiv4`Ppa;wF zm~xr%l^kYtW-;UAxW2~Kfy9;%oa zbz?#c7UeDay1*Di=*7r~#IiAQecU}IH9H`b5}!fW zqX)rQ;rzo;z9N>5O89Ov8iTYGWcxLem5D$iS+PTTODx-@Intk(m{?k`=OK(Dvt9p$ z?5e8s(iG{l;)-R^Qxq2 zi;_NV`kmFKgVtzkCRgjK=%KVMxI!mCnup#0yhSv6^Qw|yq$^#@gX^r5zWg-Fkp?L~ zNW4!EU#@A=G_YiswEhw`>|A1|fq}M%Ap8({Ipj2cs3+??p%Ak=>J8zOSb@$g_g)Qi z$NTTJVgiCx;1JjmrvvzImG|NiW2=2l*T*8>zZV;7*dRWL=?M~I6Th(+8?DabclTne z)kAoAZdgjfm*WHre`+i<@dLbEL z0UO;V{9k64iS2=eKFr+fK`4%ay2CV+ufXgtu#{niTbInI^pA~%tw|rK< zgD;3r+GZbdMfx}Dtr%n{EzDHYM5MD1Xqi<$wlo!LQ~ALj;7$FUnVzjovH zzAPbnKxazC-Vw*E`m%~1qf4RN7rF{@zqOPf@5@FNjdl+f*7ya1CFToI=b|A1_RB+2 z5Euu6=P>ANB>{AWD(JztUpff?sT0Wnj)?9V%1bO5_>DTgq(AEyCHD!zPl^NlDGM75 z#6D?Z12r+{`4tPhSv`&~jAwa$hoCt(T)@}?vl5wWGohHK?~Rcy-qv*96whqRSiwLj z0U=h#3SP4L@9``N%78=qu?4-7;f|^UD;xs11IG%4|JNk`SU=WRoy>Rj1BzAfGyOn- zmh;F2HrP|)tSxGdQp>4v*IHBKF_JVQQY0SLb_}Cvrqg?ox#Q#v5La>b^;(3HZM4>> z!_0B=7nooE^f{#s-ey&DDo(2W>C1@ryByt+afi-r1^(|!V12`HXfKn0>&ZV$VExq- z_~is7kEwlP8;jR|Jk2qE2L$)R?gy=`?F!1@6Yo02Cy-F?f}+9^VnIwYyhj! zxGk%IyCBQyAsfvkW0;yTabRy2#j3&Uh^VxkA=X0#A2HOZMg%EtPPT?LwB&odet zh9HJhcA`A=su5aY(j?dl6-jQw+}yUGTE8P&1T^tEHdchaxaVzbpt_WQU}IzB55-)o z{ao=(%UswP)#j~+UgaP*AoYiH1gQlUcJx?Y1r0F8({_L~o=O&DMI`j5t4@I9B41h~ z%CUL(d^heM#B7e??Jnv+6W}i-(H0$xh78MlXl(mzcus&iPCo2qua1>^T{tRmY7ZVMJ-+tf>R&k6Km;7EmXEU)gQ`g`>)6d^s#+hOnTa)4K=44vKvg zL=@q!LG}XMauaC{T_tKB4)Bp7oqa=)6bgdBG%Dr(rQ`eXp@}TY(jtn{lg*4Zwq!T7 zC>E8WhN+k-rt;~DEYnggVwm&VpF#hSXrgQORQ=9hPGpJEgAqd-3$ldLeq65Ugzf?SeL!euZqa&A2~Hv!ruLJ6bSV;ky@b;`;3}5XiZn|2&lSR&VDK!$7dA zdFn7$7(I%TsQ{!I)X&9z!&tofJb!i=E68|RK!8ckHrG&3Vq&NKVllV~Q6cbS7;lUPhbVJM9cDNs4FqBP0Vf$^y2)CBHLVu`o(7jqHR zIgyis?{YLqyF8A-OC;BEBk_dxK)J}GY61p62CGv(32w0JXS_jI545`~LBM&O9>vtU zOe;JpRnNtDZcJw8zBcdv`U!snA{sVrLS(E^PTwR}C~x1ybCTIuP3knhCYg=Uuxb3o zWHwZDvWR~|_kR>|^>Exb6!GNYtWUoS;M%1cD^!fLiZNG2w$Qv(fSn>7v9!zl=HYCx zW?&JQhO@XEBLHS_WiDtHDU!++RvJepxc|nx(J8M|uo~}GYHU?I&m%DP+{YtFvdKMd zYiP-0sCR?)cgRzw0Dg?w+eTupw&6wKK_QU!R=#~CCV=mF<4BeZovSM&S?P!pfJBr1 zdP0W>FaHI)MtpOmkTMiwrwu}RIJZN zOu%Nh%DoH@>y&TajtTCY37}IcY@FpG1OjDpiQu}aRAjXm3mJ#JzL2MkV&&@9eB&s# zTvPck-Z2WR@LRv)y+^YQ^%y>5G@GpX@-%;9G;X%+d1We0v+USW7#Op00Xz&06ye1g_1)&91UXke&?HO33%M@?(V=XD=;|N z9#t-X`7M=4yDe7fKTY53q?V{85Ncq3&wl}|saEg_b%!cc>RLpxVb|g67f{PToP;e@ zWPJ`V(p0iVknWpm_D{8xl_OeGn!Fmc*n7}M0|ZVxW;%Q|W*9OqmltBrL7)x(byw=k z<>^L#<_4CoUd0Ecvmu(4Q@l8x#jzo6Q~B-bY+&ypZG+HQV22F#8-Z(>WehaS@STWl z7~1x4ggJv_X-V?*XCf(%oan}}LBoc%J%n%2-FNq|EzZRZ^^hGid^&^@17 zqjrs`G9Of{ps9F)51YXHd7eH`sG#%am^$E-$CtMN5)D|LQjVB@W}`zHFbEK*LgFUy>INQ!kz%XQD^$3VkPdzg+ey`##qPcbk5NLp@^vMt^gn3YGnZ1b+ata4XC z(c>2w*r_o{5Nm#b7Q)c@K--=nO}uc-x7H6+H*n0^j~2M+v$R@hyX5Gc;9+(02fcw@ z7)3xYfSu=?Z z=yTZH5w|iM8Qra9RErz1yW$hRV-ic6INF!oQDFal`EzrLm#V6y2^nO?2IBBl4Ku!t z3tfRf^aL!X&qC_{xMt!~X*4`Oll3Pq5+Xbtq=e<6RTaEAldXgP_4}EuNb|-K9+w62 z(bh+KW)_R{kWkDb6{PuBCQI`xeBp*2SviD-*x#Drf1VC8l5QdCqe{_izob<>5Us)j zSX+?PWbarJDNf+`ZN+&Efz(b|0KnPBMNqwE0qTKwG`{d4HbC9GMNuGKQgl*D8YmxR z4Iap)sZXrZk_AoQX<56JnbCAw%TC(AFnEb>gtTNs;aEV}yv;@cwV?*|KvX1Oi+TV6H2|Q_K=!>w_E=@NkXh!W zf;7S}AVf1CkptGSg3rofBf1f;l+KiYJkIaUVFS=HZ{%Paso>gNETKnpdoHu#wg5Nn z0x7Rz=jL42Q#~M;jO|2K6{D`$1eDLFf|1EKmR8LV1$>#x_vNv;h&ld}Inw+E{B$1c zJ*OgwmGshHgq4tOR7fQig#QldS9YE@CYmK@1;&rnhw}?~H0+pW!%+r39=8-!mKwBLnwrYX^O-H8qUn1rb64>7`D|rk1v?~}TFEtJL7J4? z3af6p1S1v)z=_y&@NGbZoy>u2uAM{b|O z%zd7Md8dQEjW!Y*!@txUw$pfUN{&)KY6`QYk9>soO2B*RVWGCmoq@N&gk2|-y+AR! z`Ysgph`A5sFGknXdC!M<{S-`}3;5nCtWW8jQu(j%0V?^Wk@R~Wyc+0h-Fh1tz=!4D z6}b*M2CO==?I5ajw~ahNW5h$r)At}Le}07b=8(69O`q~1Q^6tY5Ao?!*#Lv?FF?0w z>126ulv7T6moJ^itj^mmUL_VE`@o>$ij7+D87oZD!v8Q#_ZR0%6CsU;yS_xX!(Loy zs2>PW9P(=;M3aL58Yq88o zy8@iRaIy4B#t_RzfqOpZ3#Tzt_m!;#76$NQ?wQ6$N1aOUTp`Jsr}*A!5JVU7Z>Ob@6PO(z z^XbDBN=A6k^5G>|&Mn|mOIV*pX7F@46R`}AQZb2F z-v}Egh+8G)rzb&3m}^^%RB5I1xfYy`l&7N2!9vt|Y~gr<0g60R6+O{<)3EV>vHl(;B1{qs3lZfg}d-6c#)>TWVR7ab#2Y}YobtuAjyJGn99Vo zr9n&G{yuLmWwu)v*R2=Qoti?zs4(*2>g|XZlVWMTm=p_fLmvuZj8^IZQrXE~@ZzD= z380r!md%$%C-U|Mix-1Y3khFP4-_p0Q;|HXo)?#~N#hrw>1cw*O^6`jYeH_PSXg); z)c#?qQw_DqCGhP1zVev|%GfBSf!)2a;72H|RnTBNsGAFQEg(yCsL|)=y3Fl;LyOxD zK%}a1Km*$jAsj8@K}S-{xgA*aQrpduFgDee;l$LtX{L zX~YH~=cwt52>O;L-e)E&oO%QuKoxYzS@hVsYht1of*BsyyTT!rxO^DlVrl``^z-#E zUmxZ#&16=O3IfS$4Ry--o_J!^DQEBmW?Qt+X*{D>&<$7`W0w~t_-%wk{6o=*)IWy$ zcf<#m_^|%k2X_oSwu!*ol)&~>DMwUmsIrzD4I6z$4wg5uVsn{38yn&+Sy8GI_t(C1 z8+wu|gsBZiKgk9=R;dF;yQHCAs4b(g`R~Dk@Rfc1hyzQ|1^kSISE zpN}8ruU24k%L(vP6)Zjv)23L4D6SuA>gxB0(Z0k9#%N!N3 z?F)vNxX1hoKH)}|FlMIG5`Fdv7^ED1IVhS|-qlPdY&1Z{k~8!LCmq4wD6)X~_xQax zvcdZAFj-ONa@`smZ@!U@vW|8~b#0=+qh}u+pd@S+8zxwMzRgXu*bRwgB3+_L2Tfg- z*nBZ;TmsGnInjd8y}&8Ib%58*V*UGcB%l(h2lAVjvs9OJ}p*5g#KHB1(78W_|m; zPA~s|A3Qr70+3hQ1SC=iusa^mxisyo9P*7wi3)|n-2H?3U6acSh=S2tm>{l2aD6Ei z+sfo`u8LGxoAjx>*po7gL8oE?Qe44~Z^_hc&ON4g25Vqw`j99UOhH;#&qlPOeFy@F zd^rGSq5v$ZOR%I4`4skCyXK<97G67tS>tUqT^j070!5zZgv3(xvZBB29!zl}Z^3|ilE1$iET;oR-{@)V=*coU%t+gYx=Mvc3tH_D zH6AQ#yaHu7vA6rONMy{R+PV`Q@;s&N_CpiQ$j3b&Qc)$Oc3P$e@%Lh&Nz<&LEruO= z+3Y<#H_T@}$AgPa!NjUWl}IxZj&l+nvh|(Ln!B~~uLtqs6YQvr$LgW5sQwP0H=j)c z4Sjq*vz5>UW>&ZlqGZ_Y)ytJ}0`)QIy{$9R-uXL-qkHl!wUH4V9U-Kl{wr!ac|76@ zv2O|}+`5B2W&w+bTXe)UpU<`R(YXycXT>KjV0~u2Er?OI8m?v_Y>@Ivgjb|&E~60V z_cZe?{F;7eBdYfxOw5}=0QB~Y?$}c7K*QQC;*CT+>iigI6_#l#+TVrCkp*m^M~AdP z8HGQF@%Ji%llV=Sp}j}fOqmUuD9@#z%>cbBhT?#ZticOv2Y#iKlF;VBAae+F{=oa+8w9=M|NKL1Wk!QV!r{KILNng&x z(0NEKM0i$t3au3;tCj+iT@Nbc&2HH|(kaxvybU6!qwi+O-b} zu#0fRpm>WTo2>wfh&M3$oa5EY^>q)o*@jS6-~l^zGM-LkA0Ie zHUpPqQFC{mQ+}c+e_|2q)%Smmhi25>AxH6}i&*b8_r5=&M7mgc5=x9mNu*nm3#;MK zuOOK{5yqN*G%Diyj+FN8MB}nvtS>!B)CXkdJ8kn4RNMF0a+lcH&JG`&>+Ol z*{gUTi=`W~CnqV%TZ$pWu%#iFF=Rnrn!Et3Ubv4WS7*sIj6eN>z#a&3xl@kc$(wFr zmYknYixzE;G@o;@l^{CU$^vIht=$*0-8DB4>0)dX|EXq4!KcqhJt#r<1srn6%!JZj#T~b@T%ouu2$LqXi3ZVUh z|1W;!vY$KSdz1tSp#;#?ZE}iFf|4EBji{0K7Pu4Q73VGnx5s!8=>+_(p6|oMo~yo6h-vuM10lWv-^9P=E=Sn3-^@mnP zG!`S9b{icl3G-)7X^-<>yh=}b?U;voK+nk%7%jEI!?2YzA zt~5eC*OlmcVE$YwKLudmXx{7tTA^k~ZH2{NA|{V2)vYwna*+&sU*OqOtMmwg1EeAZ zRaxlk%0yp5vJ&9+Btz*w#Rat*ceg+RHlI-GW`98%5@aGlHHn@3R;4`6#ABeKlwt&X zCW`!v<~Q^1i?Jg9h!0uJ2E`S)BglHJF?4`cIVJ5}DnIAom5bTN9*WI?Y6#3mz+>%w- zG%f|=WAWb9hHfhL?$^zmA4G4>J%BGij+?{NU@bEMJPL^vLicR&a!`wfRXxDyZ#Xw1&QNdrh z6C&E7?o97GQ>7=9b+wJ`8JK2CqtIi4IstWf&aZn?ep*FgQV^>#y6x+JT zuxgeBE#3wFgX7hAtQg|;$&?zXL`-ffI z&`p)&?rtfCYgQ;2Vo84gQdT@#`bkuz`NFZX;Ao<7^6F3sTmseL*t1asqXC`vJoWNh zKl9jSY`DRD#!MRs*!rfHPv-NNF>6db#6swLQhi+vNm`qmZ(9bn-1+G9%5hVZYle8& zWT;#iwb0i*E<{8kZhyqZDnnQZ#$J!P8BB<|6mjlM#az9_D4jLzY)L(YoS}7L#Oz=* z?3nRRnD^2+=!{r|ihVY5DBeqP?r>@GJJ9}@ZnsJ0DfPz<^>3=mk%?RDz4}W{n16Y6 zyXL|t{!K=7g1D^D=Si|r27dsjV>P@MKHaiKU+duZ9iggq=x!9&FU(qM28nK5o3 z%-1bv=9!_7@`Lyw$%NE~ogdg+Yr2D*xmR>990D2Y=YqvvH_t4OtYkAuqs!qY*mqI`UW&O+spF%PELw#YoBy z?p%y2mCDaQEQS+;Mhed>Lm`Pyky@xGBxO7aKv-$9yK|Km z=^>irA3t6VrXIp+PYUEUH7wCng}9U@m2TKb;+bkSYV^<8&Ys_R4n;^))1{_Ccu1fV z)jHP=!KoQij@ieg9E)#iA{5#T^%Jf@L$Qr2a#gcZf7?$0Usd-GH7`aLwAKg_ylYZa zyT}nrBYA`|SBwNT7U22;g#6c8hC4XWi0>EMd%sQ$pG>ZH+$DIQ5+$66GD~d8h#xDecH|^xS1vO z#c7Brnn!S+P|{YpGYva)62%etFjXXuKH&82MntQQq!nWI5BzQ<>^}z~?YR>9i~6M| zVplXu0k$3s^&n2k@k4Ibx0jWok@!!5D8ACSOZcW!4)(Sc@%R;x2ktH6g)4A86Q}S{ z;C)4C;+kZq+^1g%N65Zc2(0d^FpyWoT8vn9=nin5gRlrTB^!-JqM5oZzrpBQK4P^L z+yS0c5vZA)t7DvU>ED13J)rMNccW9z#2qyH{u*abNChsgVAi39d$H%gT?I(Id-eFe z+V_y8$?~37r?!$?+%#-xW8mQ%&tAz=B8XSAvpSsdG&h{;9e8sQACz_wZ~PX7yP=8A_i)cobxbM7fDlrEKLLM06Dxk3p^Fz3q0i2Cy7r%CT9vsV2-_d@63g0YSRJMo=<{kqo zYL&D{5R@+E9-*BF9AupX`*NiB1o8f_*%($(kwdj{G!dEMqOE8P|8*4`Fa>GJ=31hZ z`!1zT?o8{_i`aCKv9#TaeD0xqXnT!v5}_pQ5)2Z|6;XckS2Oc%3#gyarjqs|;-*Ns z7b#n~a|cL`0BH%9<)e`mGHJhA3fzXS45}_1r8so~K_g4x5*||re4Z(Jpjsl249qE7 zxSNByZinpoo}XULdO0%yLncOUP`>i5n2@9n^wSJc;Y$k)n+8J4XxOo#aGzLY)hfX0 zLo^13T8YkdH*72eJqekCK&XjNyNe}ztoWvdo$^4Z>6vKQ$TKv&11PbX04QqJD};uD?>`AB0w>blc=Db_s{ z`?-etg~&@7To>kLJg_e#Hx-C|9zC_S7}%NKOVREGvUFOXN=5&{63zXHEp@b8ps)bn ze3vwadIRD>QG#6e;Z2PRLbyywWdG8xN(wd0hs>m2sr z9R_63{&Moa#l!-+fvJ8!vN9R!u`jOjo(-cqwr$08DOKwR^ci~gf94@WW(iDD@^H^W zE@tmpHKlJa^Iig>_dwD~J40!-+Lyb_qJM!xk=I2<26|^1Nj_irlD<p_MN%W?lg z_8q&ZQwTszVv$W`lY>%(rZZT!C!ZHCd0sx64Utj_hSO@;zXF4~t4NSLecOAO+ey5E zuun!1=IYxT5rp%;r#0SI{V}<8IzFf1^AIqgfT8VS`iyd}!!zErmW}WTbc=LF64vPr z_0td!QZ1B&*hXZMM)tQd;cOC$nh?s8hZHlq(KQ;-h0;cdv~DZ9*if%S25222*+KbV zj#R)q7XbUcNoJAvHpfOm7mUeFnv9a(AM+iID~ zlZzm6B6v~TIFY>K!inncnCpURjSl%_SND+#HY_zAa{Z{z8is{(BZ!tLp>5~r#8CbW zhm=X8$7GPk6o`0(asqfk&@}Mjf-0&7$Al%1=Y}jnM5%2P5qr@h0FHJ^`I+MD0P~Z` z5$mpibb{>9NJ2re8(K;vyTyOe0asu6n9%0SDODYv~ztaVeFH@koUR0BsDzdYwUcqPs zrgzp5xt57Vol{Bi8O>reE+NC4a;1w07$z5v6CZ@o9&11Cz5XdzX$*F82}42=c=rw9 z2DP1U!#A*e&-pXdO!_uh-bb?+(V&%9nUYo+n}RIqqQ4+Wbv+h}#3&MCgo1a6g3r)O z<^M~Y2QGpN2vDSJX-6o*o;EVRf?-2Vt1qO&{u4q39?G=~8c2%@uv3>z=oX|y!6vxV zp}`BHT&?7eRU~rwwYMk=ybP@*g?S7*Mcwc%p>*!`F%NkVH54sT0R-}bjc|H^u|t{+ zeGCfpwEqhzP1u#!lJzMuwC+Y?f&(l|jE&-%+rB{&6fc}* zgG-@|&^|!IgW-+74n623Bt>JwQ<;2lr0lNOiaaoJfNie7Af%!f~+V zj#rrRp3v2Td#_iS@fKX&Ut`8c|8%9|eKM{ZTsv`Py@^xKJD4#W*L++>yKoX3_oSW7 z==lf_$M8_r$c$TX--r8HMEGnEMDMuYhU+d|2XK9iYdE;fhjugLVO(u^kH>vHE+;M* zuGijT#uK=H!WH{Awu^8dhI`U|cjxZ?LRk1-VmUBJuDxc9=f0oTL0p2hVF zuD5UdB;{tkEzW&km!5+4$=oNq^!=9~F&LYSA%0V)17(_3YKVx7pk$4p-ke zOMJfstEs#!I*mgQ#v0j!iND^|VAsH|Aej|V*?vP6r+)zH0tlJ&73ra-s8?eC!^u-g`i ze8rM_sr>4Ae&;5fn%{7O-@S>Y^`C>-ZTk@wIvV7|IHD2jE?VUtr86VBoA&dsHnBmG zRkWPI;E_M@@|evmThr|mK65h;Eq(PdU$+@2XDLEy8ECpm9_!`LQIzE$^D~=q*k<6r zd8CiU4ekz6-+hXV5I~!N#YU17$_Y^b7zRNuoJ6ph7yFolmd!A?=}zY_`IJR8e3MO2 z=SO@jMPp6p>Mbnc{&mjCTtyc&H3)74igob8Wc2<(wia~b))@_3U!ZzT)B8<+JixNW z2Xw<%v2TYFA3-H~*ZDl9S;IlA7K8Ylx2jC_mxxcmykMmq7(xelM~iuHC(!R|)KR9e0i8S3|_ z7QoGJHng56diS2eY>G{PYCP}Wv&ze36tp8h+1oMMuyGrG>6l{JxJf)rHEdij9*SJ6 z!5jzI9_Bg*dYIoCMPh0p2399M3QR5}X7`nV7=0m4W=lYLYKOsWVgqT6`y7 z*9x~X(F*M1g-@Hl(x{8){HfOGo0y^g4Ii4c+`wrD8sZ~;AA?$6-1P5t5pEU@+dmnDLqY?J6Pj33RhWgV!&4_^n1TjUxdwU35;FQ`o zWAo)KifwOQdy3{9)`Sw!bA$;o57ErL%pLMw<{|pBs_tU6X224=m3H_)U8dB zr(lV^fx0NW13l{%6}yTaAt8*}u-QYO9CJcd1j;9Qj!FlB)nv3x=L6G~MX|9}x(EQ- zCXnpWJ;J*VR%){^8+MdlamD(zvcmt z(Nv@dp1=nO1&jOOR0h;EpK`wd?cw$F4k;`Y$1;a*Ki-Y9UA0ny+ zp9X4s}`yeC@ZxJ zIs}VAyMuTFvM;kp>5yvZ=`59i4A8x*qC0qk1$0Mv1@5$ob2I%Y+KSGq%NT)B{1NWI zN@WN1y~Xylzk$>pslRh5s1~sM8^|6Y1*ITJv|FIzBn>$HRr(spmyiE(3h+0a4)Cq_Fl%wIO5dt* z_{>=WRk~7XJ4FoSn?M<{TSdEJzT!meIBXn9$e{3c8QWmoCbtp|rGX4Up>CLJas&Cv z75wr&%;G6_r!~n&Frx5PaV2O!;2s1;D=a2KJRw*If`bzzfe~2Bc2l5%ilINSZ|{OT z2Kxq|ak-(=-o-iq{9^_T2%%={VBXatZ6%5dLz1l#Qo~t?qdm> z0SEcp_pxP~CFl6a``IniVjS{2^`Y%Uj30QhaBL|IcWyl7zD24sdVkEUT{mdK@|&^0 zWr9It?2Eu+u|^dJE@;hC`SxTCpR@ivP~|@5@*VH;)AyqvCn2;tVrIF#qE!)Mz|$V| z=4vkvblGb!&UB3>vR19b_Qgy@sKoF|B;_nvhjlJ(+>Ew>FO!gfUH&x*r*p~D8LV|& z4+0a67(h6V2yjX89uW_Wyl}Z}P&0|@k4o=_9JtnChbIRnu*;Xrf2YU_G`#6KwV4P$ z+;o6#05#Nx4!3|9Zll3&f7h^S10sMA$8h#%h)Dokg~gi@p>p3uJWr-kTHC7i2C+r4 z4~R+3+X*S~KlqtHure<Co>H9^)}_Z13DfW+4;lel>0@YMa}xl0vocwj#^MPRI|)0eFS?F{LJ z4d+LE5h9y*ortP+ck}+NwPP_`^Mbztb6^k?G1*2!gC@(`R?nY=0AVvkMxPHAQVz@R zu$iJG3_IaM2eu{^XS|`(b|R99fb5McKHsHvC{zn50ZV(GrsicjZh9D}MvIBPI;MRoF<9c;7fY7KLUBY9+L16-{N;eE@$N@WAn_ zVM%U!hcqL-1CwX&uLjRX8_nBzDH5M__;eX>nYc=&vddC85r?QRLXthd8rJ8go2B)O z@a6&rB;s0CY4~KL?QTSoziR=`6wd+S&|v)QvD*_AQ@K>U$bO`z&o%!e=+A2m;PP`w zLq_Pd4b6(-e8BbqT+*CE1c z5hh-B)S9CCa&=Iiq`s{Np?eJxc<}>lj^>x){G|t2hVFqqSFw3@r+So~hB+Wpp5SOy@?7l%B#iHAJ|>lx1vXP`MQUgr6gxyFo@NQ?;n7E zH?CUgaMDqE&u${A`*+E?@#!Pp+k#vn|CpC7>GhuApH z)ZKjG!z@X&60~uZ)B)88EseKI{)X`gi57lhCtY6K4d4%~qtW;jVDl`!*iSbKLDlqSv71a`)tX=>N*-twK`>{^! zNA$bEn0nr@^TX61Yu6qP8|v2|1;1-?Cz7?{07kE>7JX%>sS_G1H8F;rx51ucjFcu* zG{iRS+$7vQdX5_Ej{s1q#jtY}bi9&QRy_=KHA<63+e3>d_nhuwT9?OSQ4QX1(^H7O zyt^IpXM>l>3uytU$kov%8ZPY#Fk(k&vSc~-(xG5cDT#2gvA&`oS{r5%_SAPriO?un z;__h92SPywV-`Nv?o&KY4nc0zm&7*q#eNJ(k+$_ZC_K4qq2X0Ck#eAXD2w^~EV)(wJkYV=$|7nnd0!AZQHi<9*W7uCJ=IO0BN%&y)5xjCAz(Q9oBe|=c*B<7=)k&*_|X|W zULkBHJGxV`C4{Dj!vP$WPlOOjCrm^_At4LEO2y`J$gCz09SW-);G#}JdxTI&jm|qy@}aUiHBY|fseF5q;mHO`8zmS zV-Q+%ax$m^wZKX5dJC}dIn%n1eo@f~qSap;^i+a8<|PL2FzD%}@;80);bbS+iqk!5 znk|Wr)LPIJa7kp?2o*}mr81jNGq~K|M00iBMLF0TRw-y|0ZFk+1@L{|)d^iStEb#) zj~SvrX}U!YdtFftxnHN^e|ZuM_*sb1Re^}k&d8-?XB%I9;e{72EV5aee$Y;bve4mO zqAdw?ch!#(s`UQiHJ+oliYwkynz_4GOPb#<&$?&azv6+|Ck7!C8MQTny%CtcnA z?};~*3a}OOD(2|!kn?>iRFZVhBRs*Cf=_<^tDtj`+LS;)Br90RTAJE1!!PoC)wSp( zZJn>6RQNz9O;>M0sn(x=1)oX9Wi~g)!3*DmPq6_BA$gUMN_EPsyh`io?OSDj2$8f8 zKtrDY{1n8I-?Z@Pzq0A2SoOXH6_RS5Lw<(tSgbr6x<7zBQ9rc5*1JpO56*FykcGL* zfslHYYpRr08mJ@AiT><$GJoc;EYb388_>XI(^ad>nR@nH`Z74 z`WHOuZ){OKNv~n;Z5>v?`N@BjIuGc@U-}!1(}efpt$%|B%0&kL!{68>4f~8I{T({{ z?|jN{`#YN$Nm&pbkS#rx1gf6=@ZZ^pNRnWS4*`?%;YAZ4_$g_v)TP@mS}qyGZ@v4g=TQ zE@a49Pi1z1r!(wW6(}R&SSGez{wLd;zsMe_F)0VZiox;LQGaFH1Iy2WP3)R}MYEza zbYLzR&LAph(HpGA-DrNN6}`RH)f1f-b8S^G4lK@VRurHXW8%k9PdeuPArlJ*`Kffk zvy}t@J|PBxNjzu{@+Ph}d6X2D?je8Hkeb&68dBE;2=d`bv4-#D5dfrs%Sn=y80k{e z&p3m2pzhx^ioN^yc{|L8O@hYms8#(Sbbh{VW5%W*jDo-=9e`-i2hA<4W&Qel>zcIK zKAZ2`x*4gZrg_cE@DBL$7qx$YH1KG5uXI0cvDIFxa3>?gzkyu9!unu>->X$!#^B%P z6Y5}p%w7eL8tWH%o3!&OS4x*1WRxvgK7_f?3J=5=;dt+iA_YGKnEP?%;Ht*80@qPo zU*J-y!o%@DJRJKv;o+L_a26h}#cP-{5<1VlpD9!pd0nrhJ9lP6rEAM5sZ#0NxL%P4X11!DPH&I(psKxLKb396A@0 z&ybmJUX|Tpc!WJP-m1*HW~DgU|3~|0h8} zfR?n4B(TN9a=HEQC=R#@{`Mm6Y8(UkQq>&@$*Fy&Ml9Ddv5=zkY$Nw#^2jq4WKy;A z#Gb|mJK`&1MbT!w^aYlrgF-aM@a=!+-WS+-&5;-Rz87eS8u;gQ|L$#m@dftSK=6<4 zQN$f$s#P`CPeikjS})jQ@}}fmES+y9Y~@ejt-p_=6AdF0D%d~g0Vq~v1x5i1qYW|K7ivb^DGKIdiDXUd64 z@OiP26k-|;@p;PRPi?UqAJMB;SnNE|fz7({$O%G=#;~CR>gzQ*?}_C5US`=5r~Zn< z!p8BX2h`?-WJ-@kL&4IzL$!r;4E8!M$q>mWy~1)LW>Jd!HNxMN=9TXJiC0*i=B4#~ zz^iPyO;JR>&`l94>{2-LCNOXUD!=Im`Sz!H&8t`-z1)pI`6`P~O?XORqUq1RuAB;o zycAgp-b^~{vJsOd|MVn3`zq@bn}aXA8KLklArh|v-X~e0D_fPp!RmdJ+Bd( z#t!4rudz5fbrkAQh#seR$j?0S|90rb2t>tNrX4f5G^g!1@9!9-Z-pdvA5s_3zo_Y% z&`iuj?6G>>?LjnwRTl&8OeonP}K-0=n*5_6<4(I>1DahMpVLQc=)Ti<}c zp40rfH(0#+*}o7=X!13jL9KoH7Pv1&qC=JSboG}7MrsE(sgft}bW0*i9N$hI#ZG8Nr?TxGsIc{h~G3EStBU_R<*=5X_ z0^d4C@U1gVc#<6f!`Bc8Zkf>(=GQjWUV?kn+Dqd()CqPW?ZDk^E^c+ZnF+V;^j6M) z+s&q1|NbBfr#%}>C0Q90DvVgC1Krmzm)ovh<&|%-6t)8o55L6<|3|^YM8WLO1$TR! z*>#g#?%K7sjPbnaZ7`wUNBQk24N{C8SH!7kMIsNig-g_@RDSgCq_p*!ui|@M{Btd9S@GG zCYRxQdDy*O0r4WB&$WO)BB0^{C5G6^YLh2t5Ro$;QGIKEOCIi~oiCf=pohcf5-)V?w;Z)st(>@*Q~ z9%46xbFnzd7xi?*#(K1IM!8|*I^4mgXOv>IcxS$*6s~nkAzP47WN>Ey$XPL#uL!Vt zQGXa&{Hp-#86Fx+mjf(m+$0Px_b~7VX5@fuf^KurZGweM9Qs&|6(T|BJ!k=-W?z=E zy#za9a7Nt}){ie}Wj&KFY`d!X!9`13srVM+0H*2xlo<|s#PcUx+0d!qqA79K-&X=P zy=dZi(ps^qjOqpaF3~HTmeF5|(_G6DGR-QjvtW8K!BG#XH+*R8{>@BsMH@*u?m=1p8U6#cb!Aob~_gLXrIz3=p zm0@;w6Oxx&Tgp|4OxICxlNXh7VEGxwhx#DF+x(DH}hW2NH2+nM*+@I?3{ z^9E5BhK@V)lH6#jmz`g|c|LC>+y~C{Uc&Bt%ku;^M z=_@A9H~Morl0KDmwX4HbZat__3{Z&DYdkn8U2LB$Hz{LFTm`6t_F)PMg4cQwBt)HaBu)1e~ z6%aZ8CLEWQd*4OB>Rjv)%aRuG7C=KHWHEJUfvGfj158T6b}b+-sgMe0;1q2EDpHEj zGT!ev8#I2~G^|de5k+1+?lK4%&iyu5tE!Axz4!}`V&EEs$G{XJ6az^s|9jdrEs36B z0x01ZsHL;EPzzxc^!+t35Fo#hLrs%GvKUMcV(GX$1+7Th&;6=U&kl#PGEfi}&XYcb zub*G}tPk0Ej~O~BXizbsV4BxTQOD|II(zcPm@X)*@79J4R-@wkY6C(7O4*=Wq5$0a z`J~th6HRw*|A_VS3>Ne_^^^n)AIpF`mZ~RXwK$Cnhw&}>5wuI;BexjFKz<@+B4_oa zK7c7v_YwG#?7l9B^2$Odqgq}MytYE`dOC=o=%?A&LnuUKLZaeuirynRCV%iFX7GH1 zoI^nl`H`z&xYq0ZVz~|dDDA@Vmi%zFZ_}%Y<=gZIep?DG{n5CK)LP#Xy>GtJx6&0T z(1NzX)QZj#$XrX0{!QCNf@kpSFR%qRk*tb71jHd+@l=24dCg<6%2CMdqwn8JJt-|Ga7@YSWq|=W^hn#mg)Cj_j z`h03kWd|KwAw&{{+{=GwxL^AtvGXcvelkXNDLU8e*MC7FWtc}!uLdd|^%Yo>aH;|A z?$@97m6+{c)R^H9M*1M>Jsd@5p9Vy|{F%DR?%&8&+mdAIpQkC$mL$vo_U4*yer+#b z9R;bKMzs@`?m-OZ&IY8BQc!KhLJlfd?hB#ra#Ya?d+HvHD6>3wHShlk%Q88|^JM=4;!Z_)5)-ulAPZzszgqDJR&ro6CTqCc*+3tajR) z4Vzv-ZYZ`p!l5fg0%$ahr4X|g&eKNc1J{it?@v03^%A0ji!;MFX|U&791oXdurgTq z+=f}!M*a{j4eUzuyQ`Lv-*HW*52!m)^hB$gbKi)C`y6e*+v) zT?A-gal-S@*Y+P1X4JX{8cM55=_LGz7!y=K`-SDF$=5A8brgcF+08qDK8cxEy@DG* z!`|TDi+ucN;8`10e8p$%X~O~(S)C3Tjq*dV^3R|9l4Tmcb%7*-GNPtw@}>@c;Y+sK zgZ(ZrAQ78q*dkz{_a}jK#_L8M4oHEk6vj~@*2HuI>rqOCt zS=Hj{VaAzq`|mXHu0{L(Jk^F`T}7<0s$3E4oj=9;xGUBb#L`x66S1E7Q><4)u`V13 zp-p@6sHYqlP^{h(o)0@17n9DBpvV!#2ZWc(i$!dGWk4G~-s)YWz2Jws>mZ5Mt_oML zh{x`D*g>F)zoa`f3<@+7Gmz%Y9hk1#W8m)CMN-$J{t}H$ek{=<#?FT54ye#>8Qy~) zEMMo6eOYq|Fq#WUR(=r&K$mEJPM!VZn(npZ2f5<1?H?~c@9Ul9)cKtH3!lyJd))iA zW}b9lZgcHj>OubH7$egEG4?I+O%>VyO)_l*1QH;H0s#sHD7Ijs$g2hWfVRjhwKPG2 z78NlRM4$<8NlOYgy+lyK@%`9U*WGp3H{iRa*a9Nr3s68|MR#gZD=00LlK=P2y=jZ< z@ALViX>R78d7U|P=FFLM&K!lATo@n_-3}zVGR0-|R#o&c?>gwOi}PQyte#qOdAQdX z-5DF1i24yFmlM2r#`0D_u;g+QJwwW7QkZE!~T$sq3`20x`a!JWlst9=jT><*|7{JFX4xRrMbuMz8U+fVuQP z5pnSQ`W&G|I}u7Q#jVt3C9GC&FP?7zS zn=g8MVWevGGkuF{Bl4%$r0J*oD-AH?fK^rXqFQ~@nzx`F2m7zOioKz^qT~s5xSVyJ z3LR&0T`;4g2C7L8L^BFPSU}heu7eElzd^8P$X3?q29j?@6e)!`%Fk1LSuE(&DLrPG zcNK=Hr3^j8z*En9%eMNP2YTlEo9B6)kQO|-7yZN|b)M-p`gs}t=7q(esA!dO8oki~ zSvjn}JJQV$RkEaVJ%Ow=`0E!g{)p7ZRdt<~R9!5oN-FPYIG*9JPV&_=DyY0S*>_UA zHZQ@tGxyKBu+>J0mT|lXs(5Z4PKgG2$p1BPu=&K=sKygDQNy!Jn=L~Txo8lYW!^*) zeW_uaNFh|(EHF*Yn|yRwU-vrx?75}q?oS)PtNO9?;=K(xgTXp(G8`|xEK7i^B}&)= zF#qL+E0>pErraxC^^??G|4|M?7&KMYbzWR0^Md;sXa=n8x#YlIRdpS;PIu8kM$E#@ zHxdfEWGz1E`!J5M(sOZDESRHAH5|!Wa&TBxooPwc6Kx6YO94d5-lXy#S&KjVlkCT{ zmV9(gc1pM=`|+%j>ZD+nuDoA?PewuylM#?7ZP*8641CaTH~5NiJ3w2!4)+d_p)(Xy zf^`$?i=hTb7F7T?M|9GAEQ@NRmfcp9rC;W+F+ftPMtmDeTf7Wui?p=bsNsv3;RhoC zNZkeJF&8@3>SpFopB_wSMEts>HE$E~OUt=GOn{Cz!RHkdAibk{>{EKV1duDcRqU<$ zG1^p8u1i-_ihnNe3QB?8astsV5iSftx0QU8a?q(PH~MQFuHagj6XP_*7>KISrAyxb ziIm(}S1@Wabhe4Y%iz*Yh(J`PfOKFs9n8JruOh=Vvima0_SMP_@>RK8B_A;8bc{o= zNrqn+eVpRDzAZjl&FY3z8E|)iO9cwR@y??+!>bAf*~DtB#z1EsT@i!#cvlo5Whc;7 zXcWx3v}>j7>d;w?M>?{@EEZ+Sh7e1lGNEU|>g8{0$DAhi!kqE#rvThSk8PFosZm>j zS}4=zO6tqoM=-GFDY!KYh-pO#g-=+DS%>D=uWZYON>Djv3)g&2y#0f*k|6@BTvtB^ z{qa#%1bvt)RJw@+Ky3ZMKbzy*WZoLxjgn2#NQje77zN7Lgn47aXl$-PN3iijFzkCt zw19r)#S2J*P~3o)21eCpFs!c>#odU+6qiqp4nG+-bcMkzi*(h1HLBarEF1B87N5QN z7zQ)Tczl-Q6P^(CtsWxF+XS#KLxfctl_^Y_A5rzQrBoUTq?|WrA5Ey1*BN{)4)sL; zkHdTvqX{#&SWg;R=h?~)nf|M~RsCiv&C20DarmcvT2-gN@K5ES|BS)#&4qtZ*)Y5c zL*tgN`4RH6Eq+@ej56B9xY3}2DHb{0I8y_a$@waO+gv~jYPHGPYu@xcQC&Ww5-R6G z(>P;;z2ZS?_?d_}a6#GpT1f9;XAzBG^*JCXbLknhE}|1ml01V;e_eLlGNMMGsc|of z0iG3a(fWW)7L-75V(afH{dLi@#Sx7t9Z4lL*q-jKU~h3XoXw% zP@ys_wO5uN`4+X#r}RwuRUtyRnzL*05_@@;uy;HjR>gooa55z_dI0sP2^%i#RN$c0 zItuaLF)6>U8i|X3FDC#%;va>#jR8uqVjM6ED9~_ZW{&p?#v^_ve$urYhH{@ig9s3o zyiJyJJ$)I=Gj!!Q>HT{R)F}8c4h3**O2exD2@Q}H{xHZ|1%{)t3R{5OZs7Y3(XXW* zV+7kus1Ac3`!J=d2ACfVgJI>9X4TdH32H%9fB1_6>NZ&x*t`n$f<~|KD6H@iho6F zlXCFU6guWGVN?%#NBMDG-f-HJgQ07pPdkBbB&vqZ+cB}H5vw``x`M*$T$gkK7QX`_ zsJ5_Lw#~H2e0^jD#G94irSl?8Ze2@%E#i#?i!^wU?yTratC><=+>IY)x3skx<=?j z+F(={2GE!f=_$h9 zX`4Uu^@PpfiQ=w}C-%_N1~5zaPaD6kAKX|g3A59l1TDF~8YfVSQxBWLG;vUp-r_(Wa)2gJmNnc=ifgkk}yG-slSe-g^KE#_Gp%b%!cwPv_R(kF+53U zV)kMfELg0wmAZtZDaXK8Y~~r4l_OO@S*m7AZeUA2Yi-`$JSh z{7~tiP<;(YoX}O$nH9&8&_99JuoDG-;=Q9%eq1$N`B-UAIQYNJP-TRB4aa8?8$?DR z#TP$=T1OhE)HxeijUg!$OB%cqz1QS zvFKPOYaE0|+EeN@_yr@kdx47#dV?1cvQBNByJk@3slz2cv6Q-LL?9_Zn|H0$WuT)Mx5z}# zATSg@>pMfQY4W%C3@S=O9RJ3zq$>2+3Vj)@b00@eQ(Wp|=_N7lMdrCV;{%L&M17$@ zWboda>h(rtd_dwHa0^oAuYG4o^7Vw7-?xRym68k)ns@`DYut-QPrZ4UUZYb_Osn4X z4^-v-5YRZVgHLlc3Wn~(yqOG8P<}kTqEgcF|L!fFK}mbGG>}A+XUQ{3=6x%wcRh496z_N#^U(JlRLk~Q{AJQS@BJC|gdUF|^ zQ9`oCE;KU@AG_F&soQ=mVg8vUYI+Sp0i_&usH8t z`@Nx`UjO`Q{^)-VZo|717-s_J1mEy%VMw;FAl~(^oo<-H5z`{GE7Gxu-!EVS^9_Gd zKs$Yk9}tG&_-Yimu=5nZt`7IypW>VA5Yqh=f4&a4d>_ZER*0TQ6)0QnaVQBq@spGM z+dACnd~&zpN5hXg{j8JxmwI^n{Ca}VIA`$m{t6q1ebmJ2?Z4lE{nHp`X;44>#5qIb z;9h4`vTtn^baf$*%>}tn%6y@i?eMc~{0XH$Gm-JLKN}92zf5J8(G!_vp8DY*{9^bt zjnolN1pGIG>Ejq0EDGof;gsYioRVb0{M<7RVfSHu9!xXfC_j)6BSxz-)8?-99CtH4ZB*f_lwD)%pgs%2>*nTC*Qx$c)s{1P~=UFd=>by z7DN0x5U72Zz5WXn2JL!Hm16IuRa;GNu{8IlJMg_R5r_qor zV;rCo+)AqR>gzk_nBS{}z+y@R%dbR}U=_WwOFE@M>M_bcVi10zOVYrHPiZ#X29uP((bsRh!xdc0k{+~v90y?Rl9ER8NmmRBR*98B zrnP?Y+uEC7NAmSo48tSk8~)ELFbf=z#SdIDjPm_7h0d}q01uj?0y$O~GZzLjZ3Xk` z7Cs6WfQuT(x1dGp;|M%T47dLApWD#3Gg_0UJYg?KCTv+v`N~W3+3czWy}v8HCmng@ zD`}6Df0HhlXW~bi{Na#)7s$WM@wd!gf^tN`MQOnr8(gkl(u9KTxIL;C$yhoJ4SpXx zUpzHDgp!LSf{T>JO4&^1BHj-2`a6)UrEM$G+0t zatLud6cR{Hp_rv~oLo#EvxEt&J7ONQILPo}9&9d`+T+FjUo{g+U=nvInBRCDI&WOp zlx1{XOj}XnU5#6Ljh+>5|IS}_IK_Ux(!d7#V(99#nKD56 zN6Sv@3$i5)zYt3y0YGE>W)F#JWf_T!asKbG1n#AUtRiPc*?~2KD$@F2I8;S*Mp;!#NauWTOiT+Ddu^?U|>#9p+ zU3F=?*Y1CZxM){zkHACH@A94B&@5mmx+e1;U40~?pH7Jl#YnV)jncFa;64O5p$?&D z)i|@k^eQs-T43(9t0Xp0+IkuD_+yMYb+_#gOo>jhh8jIYw34$Zf*b4a4of^ z)CgH}HH1AaH@8QzxB)ga61+R4-8S_ot!djHhI?~G!j_2*jn<56tP zz-EBAtD2NSSitW!me!VF{HT-s0^oJe^Z00%?3)gizeChx>*f+~!rG`PEqI>^X%u($%us6JjckEcUcU;hwxd8&rT<=F|v5$h`Y%A zDmHERMI-C3ORBt`Sz!8*i>pF#gJXCy4sgqK1PuXJWAK5!%Btxi_p@d`z9SnIb*tA< z6Lkw;(UHY;a)8#G@<8iNPX0hgHgFkXaQsNmv^1QB_?yyJUQq6v4vG)v==^7H3~Zz4 zz#Fv$wFt}xcJe!FDOe{0{?}3*`(Re<4FEf`i69|DEand6k~aqIl{W^+-{#$0YaM(* zCw4t{_6Y1D&j6Btaw&z=11~qB)gopgrfVibC^G+=E9Y0+A^o|V{FP1q7Mr&xtwU43 zS83P^Xx!RMbmsp+5}`N8yepf6QhBi4-sG7;5v^`OL@T%#ZX^1~R;*h-Ze$424Ntz0 zrC?*Jw<`BZu3##MJ1~L4XFJ1b-n}}FwxZbamdz!mk!elHwE2aR7^Cz&$tcf`#^O(8 zWiBJHSxH)X;zLyy1{@sn%w;WTCT^t%fi;1^@`%8uSw+M92-FTnh^;e3jaEX#_4dU4 zh#h9q9KkI?)0Nc@@-4||LM$`bN0$uw%zZSOajT=SfYqW17-AV!6xK4|E9h-R%5J&^usA9pza_HL=tlMee@ka?ijwUp z88_9F4yM$~I{v_(x}p$~ft@Uc}cdV>4l9`AuimM_>F` z-rSiX!j*e>uP$t%UU!6Vw6GiX+eY#aEG$Dem+QMS&wRi^Cq9gp}3(j0E3R*Q)1!X3+rf`QyfMrB?L`1foXAg>J5`eyo$>eufNWp z@5Tn|zZ}L7bYu3;Bf=!!%l|($e7>u7v;)?aUWolot~ zZXGA-lC%aIU8cd56WAj9CA$1O-Z)jl6zvGJXgB|+JDcs2L*q#d-bCaI3IM&x;Uaob zX_H7uj$4?7X!*z!C*-iYZqNosl`UlBhbNn|1-?L`U@jp#PT6AO|B7Mv+&&0vE%r(>sJogEpaGc) z$#DUh2~UZEEhc0~To8n?M_2vt%O0AyC8KrWez*3iTf5%yjXl^6BdHVEV1&fyOKHvM z{J1nl#fB{n5h!S5qsCr!iteA%d)x(jwg(%myN`G5$*z-#CPPMC$M^ab{GEnwsz_DQ zgI6Jkigdh*5GhA#Jirds@hG~3S+ekXVIi|D!w_G@LZwYi`9<*^A;DRtac4ZPwKMO& zC(XR;qhPw~QR*YLDb~z|cgZz#I=p>&(+Y(k}Cb8K#{(@<02(%2pprb76q0K zsUtI1n0!N)W6FmVeSCk_8KeJzD{u{1{qoT2(aJVC)g`wN?WTDi8eQ%Zt6#kmQeXMd z7i}>BCy+}9I6=+i{m~&c*}Qw!WQEp=^qfVZ^i(t=XHj5rPJMR`SY1e1`J#Y30~NZ& zbQeseYwx3ljsA&5U>8drSiZJ$cou52GXug9>L;qfvf-IYGn2U++Re-ruL1jTj%dGF zU9-kGS(jE8rwCp%ApjajuO;Ecmyol^(vB)$R&<&iaFZb401 zsT6UlF?uEMB1$`?8?Py_Lq5$ds19_+9|*rMAc0;3s<0_r9+E|gbqGDrl#c@+oO;&M4c^2*@YXDUsG>8qJ z^iNiWg`_;XjXqx)UXBe<=u3ZPn!{~#(;ZGbNObp6;AZR?o3U}Y@kW2Gr9Se5Cnkg; zVQNcIYPO<|p_r{G1QatLmD|l7t4lT(hfp(4w>K73NP;64qtlR-?^g?8_{J-F%-qE$BI1AhmG}V;(4n)jJ@n+J9J{V zL?)qRQHV7J!;Yj=_<+-biC7_8`I|bK?;C^BhY`*8CCq}irjzsv;*xw`*zOspbgk(S z9q3tBWAdN#fj<`jji>_`66`+S96AXF8z4?Dg@UXV5a1|8oP}4UggnJaENDFmCT(gY z8CfvJQaY zS+G86g>2WTwp`Q+=0(M_^ik0K73xr=MX+W;1dD-TJRZ#&pdpjHl`9` zLjC8`GL5vDUHjs_@C)A`-*m+gw9g`ZuWA%94ox1{ zT9laj=jpAKGwjdbi@w*S%OGU3Z6Z>>xFvF&I$)^m+6upY<U(q8|$GzYT)B+%x*|(ZsvtHHV5K1f6Kc>u@MdrUAJp(62gFyiOq`a|aW6o5rno#HFBu?V8Tr=2MyjtRUIDS2?tKN^tz3htr-yni18k5O5hWm#ZRk=}k(*!Pk2(ikk%p-6L?6AKsr zx8h2+L%a9NMh-1_BV|2VJ4jQJF7n|XlR7C3|ov+4G zv&6@!6M8y|r;h=^S9B>oj#PjXVTXc{kauI>lhfq-aq*^|{w2 zv=HCvov5#N^xZR#`aaUgI}bz;=IgG2&$Kwj7ZMp(dbb$Jqkz93!i43$%W@6#ry$nM z9te3zm7>B=8+$6Jl$OR5Kzc8ff#%QhULgC7{7^A`v^QUcOq+~WzQD({%DyO8?AzB_w&%-AOzf}Ex7sj6t)exmgqD7$v`&DFd9_aJdh3V$sj9( z`v%5>fD3R-E77y#w`P9hAjpx)=q&E_W`-u}@`oK{(Li)p>ea3&`IAmS3aW9NHWYl{ zA;t$mHlq;$QI3lTB#;ee>4WnCu$KS`a}1;7jamfNwdPp!6mAKxqnnuG~ON zzLXQ@VBkYX;l)y!wmIb3Lvn$6O09#ElpCZd0BNFVm{+Ebz6D)rU0r&44e`Ed}&A+8Op(ahm!^Ybouy*)Gk}~LFcHZ_BFCEfNF$Qf7^_`TX$X`^$ ze;dlC=m#C*De++52gmZVcs4ZV(}O^Eu0*uORn(DiJ!t~3jAz!I*s;*6k-k$NcAdus z5a4WNn9~{YRF8?k>vZ(z-3a0LcZ5C%`-GsXJaQI5fnt*q4QK5r9IHI|7j7HIrW>C7 z{R&?)jK$xCP6el3MX|v(@aiA9dPAN(J%Oma5A%l15x^sq<0+RtGh1yi^q!vTF)Epu zzyd|Jg5alyv3>^24UzonFbMy72PECJj@|357-;j}69NUBIr6%C~)12MoS!M9Nm7+_>@ngyq$2&Iq5Y1 z$eUk3i7Njdngxnq|0FmeT1U0e&IiU(RJXqxo1k}IEP~VlR_#8r1*&Ip`y_rS5mj4E zRCS8pKZd6aXG8jaB$)~=pNO7z^&_dPDUvS357agDjlzoQ_fNda9Q$96`5z zH}G$VvjKxK{IG_{qKeJU61gi-Py6A!4ch{`H|3`KWHZ08wM%q|1c7xKlU5wZ>IITk z6_3?a(os38)Uiyb3hxt{zpG_UL&Zf`iCv6DlW52;7I^wnu4mO;ROFUxigdpW5riO~ z-WTSMVFHAU;pn#WQkY2)MNW1pSr(G`}n=rvm9SB zDpNMnrpf;c?O_|eW+fVG%WmFiDWnkv!QKrldh-eM{VxMWYM`<#OE9qsTDL)%xUqEX zY0r0vEiYl39LLlJ33McdKk`}Xr{JJYnSzEFAxs}Q5(}i8kmOX-n*wlqO1}c7Fh$N?KX>u}};xwiFc=lLWW=;Qr-DX!V8t zAw&oZ;wRh8TS+9OEjQ)Co5{#WtEqJMyY)eEvM&2ZSG!$ud8n^$3GwffSmKQW#0Edm zFMe$s&+3Yd=u}*iv!_9Qx2OF(m}kfAxuU*!`qyUe7|D9&G7w?`N?G3?a{NlG1ay5s zMG2s;;F0_av619S(W_T(ePc41@c``6pEsUpgcj@58`01 zDB5kK^gt4JJTgkbhM$@-g~x!X-P<9ixtr*Z%qvQh;FvxcgXEq^f9#Y|EJdP!UyfV? zAUs0cQI$zLViF&`58{Xa%kd)pD7T5=358Je_6GK-y1-oQ6dpu7qTCkQz6Nm!Kj}u~ z-}dr<+`w#|wxTXt4t_q>%s;(>^)=jorkVeG1IzS{lYGVmA$ydhR`Gt@@aNKqnlN(^ zgpz5vr4lG6w#lUxA#DW2?I;53 zGMnE=%dzq!=HQsOsdTJ~_x;uqYW%$MOS(NFFvl2hn# z^#88#{9diXKh)<#g*{QB`6KhkvO>2pFz5fjLTuyd+?6a7U^9j;<^xNyge82dU0q8x z!(~KeK>B>)MgrImHp7V1i71aVEP2Y*Cd4F(^4DeL(xNi<0J1={3U;G>t$eH^rb#Tn z&=QidV%D^_afSt(jXxkoo|B_=O9Z_3XpE-FF`^+dO6d+fxpk1po>|(yB{^N;0ZtAn z^R0^40=915j%Hi39j<)wdKH>ogDGlCxv;WMmTxZml!go@Als#620xuZkqJ4$5-n9{ zn4zPR)dW@zZFpLgU*tfdj9t?mr!0%i-N`5%My)>V3=`|4{2zte}M-)gDoKTV#h(S_!tBm-FmCHV<$X!qGw|=o|4IOm(+kY2qBN#RexXk7Rnl@ zA`aUN$f!4**N_K_TB8o|3{aHse@My?YfVs^Jj&C2Bc<{Y{u=NKab##6ee>L_^Poi!JNJZN44o2 za8fHX@$K)jUY#xshHM2kJ{Mf)i?M95^`Ut1`z)-o79`Vdr`ylXyz@AA-R+wts4Vi} zx3o^G3jw*4l9B_6GyE~{gHo;`1E6Sa(a<(#e}AiummMlSR|5P&mf??%W0NPoyA*4& z6BL;!%D#p~&?JMZ%is3@sB%-KCkLY?Vk>uBim9hwD0=RSXWHWzxJoH#%n>oCA3}m(q`D=^hH3;IS`+%jx$>KB*cj&cAd;Rl|XvQ1T(#$EI zr8idX%@^vMSCG#s_;+|?)84#|H*mtJ&qQ^0XS`TX9f;RnK1JC)h}tF=QgV`(eBX}{ zMkcT^zQaf*CDaf9r9v$ASlpd?Vh&_%@F91q1|Bb~K)exi8FrkZlndS%LgoWn=D%N) zxsR4PN6TCf861VxZAVV`eyo9LPaJ|Szlr_*FfU{#{KoL_#P99BFls*qq3y-@()*d^ z1U?Er{kHL=DeOk*1$(5jk@_zO@TsY+zwe8`wos_mQ$Pn;Sp9O0tR>R{#n|I8V#RF2 z&N}xwA{OWyJVp7EH6Zj4a)pK6Wc1f1&i&jB9g*0Ha;RSufq2YWOVvQFGBpuFC0B5LNuCfbK& zpj60f*sK`wOaTx9U!qZMIdWx5@(j=P$&j^Z!k2uQz}}C z*E!}Xm(*1MzR~EU!T*U#U$hi&Y%-arr?Kuso&h(;eO%z1L}aHiqg2K3=`+xRllgR# zQ&?Z(>(W@Co5NvejB?`-3P1YK7O0Sqi+|%A#ED9JO{C^{x)pVHJ1|?E;`49hT&eHn zR%?0)zqKm%pKj*=O~d)%2-NNrIVc3(>k0rY%s6|qstyF6<~Z>#Qe0a_FKJakMMz8`oZvb4D`)8K@@l zSsfsWlg|fN(b5;(&F5vX5qkYbzBPm0Xn6LAW_~z>jqLPsUrZJ{b|`y{cg)0=iO}T| zX&`NhE|>5EF|_l)Th|e4OOe>U2W8pZP5A5HO8r0`!iZUc?#L-y&CiTxJ%+$& z!Kl1KVjQB`ZZt_7SLi-tL6lOSCH$3^^1E|cMt_3Ja|PC$L>??*Q75L?TYWGQ^Ptv= z+sqH=vg`C^K7Kiut&5dsLXdTpc<3opvMsA7QBCD%`PQ46-SWgSDe4k|$b)5Gc{B9& zpMiSFH(xc+pqY*=FH*IEdriU~i$=FV16q^-doz&x6(0{%`mT zd2FceEI*8|&MpGUqOB@*LO+{bXNWs`g77_^cia#J#i&1>YW!v6J^YPEa_TxoxAS6MQCfF@Ky3NOFw$sf;W*~wdhSCtfq zVpLfd`r0;?EBIEiNf=;riZ)}2-|ER@oY1vj_Yz;|WaIVyzvWLm+3>;7;FgV6X|dYf z*a;a>&sTp#BQD6ZgMYu+@=*Hc*72&A!0i7Us)nWjI^HLVrt+0|7oo*ymFfUF$V!05 zT^S!(fxwzG`1=LA>-kz2>oa~J&XYpPSX~mnB}75^hCE63-0Dgs501i3Fro=iK%+7J z{w7->wF-ZY;R$nC!qAJ~ktiP4ILK+E{ZV(oPkylJ+gMIUlqs#DHLqjfB={&vRW{g{}yu*rgw10dWJ89V%?2mJ$69{<6 zV<%<1<)IHKWIU`wvAUy1wQlA4aNV-&h)kwUKRXB^Jp1xpH2=1DfrbVlGL(j@9~d~0 z;Q~*c!unDa#VM?JQob0xR+C`pE*czA84@T;Zx%B~&xmdOT2wv7w`Q@v!y53aNS`Y@4kG?(LLW%rNQb?)etrgO*txghtPN+IC{rEZ>3_MlbWjgmlISi8 z+MEx620equaLh~Gox{cq-Ej}}nk|Gd|D_nx+=B8f&mpnydjO(E*xf57XZeRYY^}av z9Z#FeM(Nh^;;GC&?iI>=BL>9=9)i~0pthA-1^htJu>0s#+j8x6nDqt!WGcI5*zDC> z&&*}8*CZKYlnjDtq?2He1_-V#Cmia4CGPjA??U8#>CgmenPhd!o07d?F z#9bbyR^trj(X;$NH?hTrGl#G6nbTlXvF9_sXd1iDbmb`^Dw-I?`KS03)7VTyx3918 zpQgbk>MZXzo%s@%Kq-UihSM>qTv{j4^OTPf&pPpBxP(ui{O}5V_zP*52_n8eShL74=cD-EbPmY~c zSnT7P2%rn#`vH#gB@MRzsW5EVbRH($nMS${YzTrb9wA_Kd4~r6ZaZ)vG`D0gq7<9p zCQo4%X01Kul)!LAGp@cThZ`BQbB0j@W<6Lb8gUtge&NaEiC88b+lMHD{ ziE^!)Kp_VRp|Mt*glQyX0#%~Oj^f#~AoF~)q6JnEpq@DK`3k;%7IWyIeV2bciw)6j z<-g5hMJ7V2nw{x+k%PtQ_b%sK9jqVb=|3H8Naqt!Edx<@=)2O2`8N)hXW%%1SvZG{ z1jxg47~C~q=XG=7-V?$-0k^Q*QvGr*d;wr8uRQs1xb-SOzIGmBmMkQSTS(nn$ltw% z*(QyqnMTb9Js2HOoTh?zreW62hR}qYDG?9`oB$h-d`tmr0mapvjcIo8opPG-9=EcA zE=q8y2?)Ffhm%CQ3Uz^dz#!nR%lp#BD*RxE$XD2V5$7~qR4fELQX^V?A zo+cN=X}#1M=N2I75|+-gJpv`u>Qh7wcw$MoVu!o09QVg|gvUMUAwFq7>un{IDVOMS z7rKb)Pxi47KFIHx&w5#o%ei+3D-(6T1Lu#-XX75acY?7Sxzc9dg_3Y)lZPYZ><9UO z=d*sk?aQ$7I*va`hF5|3n*q!lE-llH?vt2pZVz5z5vI4L6xUa50f2ic>T!E$Xe083 zN6iBDp0d0NJjh?U0CBZr^F+$S5Ng7QPUO&nfeINW_ ztWzwZlBJCQz#Cv_*`}Zm8zY2R_8u<+DFKbsH1)vBcSE6PCoiWHR?7!z_(oX+w#&j? zvM^F?&G@jb5S*NQPgA11mbSAvxv1s^x3PpiFRnndrESCbtDt`h!b27YO=3a>f9^Im zEJ;8mfLa=l_rZ=Hw_(3S9fS8Y=-v$9FsGRL0P@YFVlZ!>-OgKXW5cg=ybHHdG4DOO zcUHx672Y8lp&HcS9pa|#eD>{ZLd+x-g=WFlNqdzmnz!-4-p-Pi?LpDFb-Z0s)zF~q zld12uPi-xfZ);^ZstX#LhOq4DA2zkYITq0aZq?{h&<(tKBj5W1WjTxB)3WjHW}bcr zwxDZZmbvT>)=PiqTRd^LdOmjwF}v;hPq+vGE%~u>Q(e2#y`F%90!=QJgD^?r%j|u6QrV z&n#rIeAu1L;`2jDz;IN%6M?{7VFw^FS;@4(uS%#$B@LtR!7Z#P*Z}9QcJRLiRd`92 zG`-tp=!*vFQT`j>)I4q(#jwZ1{tE0X2?LJQL2g~zfHi0-b`}?~GQtZj%bJj7scJGHxHKpUJ1gLD!Xnn+P~6nQ=PhD= z;!e__iR<5PPhmx!+-GHSEC!MkEU(cEF8z-%40FDg109OCF(G{Iw#*`DPd?>Wp}}Ess;wRq!bbSZ3!(2m!Df!`1On zhVERzQnN1?f=5$)Ztr}oFcfgmxe12u4H3EF=ZoZP9rykF-)(AzD(!6 zj$WJw>Hf5c^&a{qEXIHZ#4LsLc~NioLbN^?HdkRIE4*+%92YebyG*K;8k9-7t1vRv-kxuLTx@?0U>wf;FhHo-dVRpVgJ07eolxOsg1us~p=lN25F}2arVP(=nw{ z`Dkw4U*3W&Dz7fIxFE~Ur>0qyqxlHb9UZQ&iOvbMHWgbHk?#sSzkY$JKLPCjZMCX< zHElkw4uy%t<(dpu%ZHDyOj9CMM=yeH}Kk8qW86WmH?Xzf_CNQ zDl4pn-gK*|ouhW2!l7BiC|GX9$#9C3j)C`!8}`utONJ|L>kK_Xx(_1Gqq_v;304_} zAOuH%i^!!c1(pSgZM#>x(R?&&9!DcX(lYG|GA%9{Co4F5e@d~n*r5z3ORM@QEvn6A zE$)TWflDzZ1pqBK0ReO!5?K^uszBpUF+caC^@usH3qhB61?zk zsAvUWcQ;GF;Q?f7<+W!wsq8_TQ{c8)_wwbCvMTYX2ti3MVk#;#tbpbXce7qeyC8<` zAOH(c=bnS7eDMLnNL%mF=S46qX%J8T3lb4>HLT#{m$A5k$OUr?$Z3H+wERf0;F>rw zSA%Q9rU`KURk*+_w3@0w%hQBS1BzJ5-v*H7OtiC!#jdN9(Re5Yoq}$$t)axFRqDW*Tjr)7D_5t-{eD zWf45v1%pKaZAh2?vzgpe?bt9SlJdij&C=)|Dfc5F`0CMuM%^ zNABqW7Z#Lhai9JIA|Na;Ps+m)Qk0UDPnh7<4pNi=*+Z8&2{`KH@-=9e3C3V(R4nxX z-!|E%b(?UViF(-vKw?!8JGC1i@e;%Z5Mn$kR7F<11|!-j8k}VctVp8Gwb~Y6xH>`=t2#rOehJ=!@$X>ZBZ8Sw2a7j>@!&MQ(g1DrTlILxc^uTASr(jk zeDyWNewYCOtRJWY$ZI2qLsG+mw?>hnk^*qS-&n`2x~}}dI@WLO6qM$U1n~XxC}9*d@+%;`7(D ze#1(CB$6Sqem9yA)r5si=;Uc8jwmm@NLY)51?Nrtx%F&FRt6d$WE9#U!axn%?EJ!n*k(On78%WzNZ;u#GNo&M0r5vsC}Eyo4Cc9J$J#3>fH)+p}x@k&698t@{x zr)ps05|dwUM)=Fj!T!@k?NRh<4O#*lXfX`0Fe)&w;hk5o*xu3jO@>gu+i6FX<}TCV ze)%`QaRuvn-I%8VpN$h&6ZCNvnNg`a&rr}_Id#mut3kXl6P<^G?(jxl0{9!Y(+lC# zQvbH`|LkY9xK#t%w2>cL!3OBBU&nu00oSp|e`w*OSHiIlce3%hE1^1hY%MQa$tD>( z;?0LE**tyo8a}9)-8i=Bd)O)Nnq`;AVkuu0r=urB7E(`)?WF|LOqkVV%*)Nw`J=^b zXy18j+O`eEL!|JQ5A$Ym{%i|BRSaXBwNIe;P)&G^=<_4!nzE*;^k-cOl%3+IY3Ml? z)0hovAK#BavLsEt`x$`d5gjLZ;R&Guo?G7z8O;4$7{L?Yh0-#`ZPSZs}rGvuG#=w*Wp&wkg! zM|g2+x&{v}FQQ*qa`^*Z_KLjRNty|7`VSV|2H;Q0=EGLwoZcmFK@t)osecq}e8{9fYO9FO{7U-k!>8 zYr<-qOT6?SEK=D}!ZF0chW0nxn&%g^<|H3%2~}jW+dz5t{s`qE?KZPz>=m-xM6ekI z$O=xujXcnUfTHnU`q|H?SSZ=5Z3SKdR#z=GvDz}>KZh9BBZQ+S)SuZGPv(~cYm_gr41p1p67TeHF_Mw;&Y2l8wERN6I z04I$uS-fNejxfXaCvnpLBuOri$tUu}-W6e{ycTIj><`4ttw|K^$D({i3%LJ`uByI! zmFVsNPKT*q^<7leY1Zj@)tN}VjqCK)#ATj4mwM@N&^Wlk95PR=jM7DT2bX?CmI3vB zeG~6UpD`KH66t+}xxqXUXN?gnqe?%*5Jz0B#-(;{hnIHjA+PKZYK~W`rAl^28p)4s zK|RC9^c1Ndrz!{n95R$vm7tzLIwHi~6PX5bMU1%8BT#$>=)> z2saWbB$I)(AxePoqCkhJxjU%YJQ=!Tr~!%$t^jJ!GC^Ay5{toJAnI(c#LV!-PEbmY zpk}PSQLfMt%m}#6#TK4iyRgyYlqQ{b*X}IcdHuDP`Sz0$50)KOqw@YLR#1V&hYayTF zV{txg_hA62DoruyMW#y#zRRKSF=p5aOL;nWXm10%f0&1cK{UdP>^ahbE4mJpg z;)Qm^(M14i(-5#C9xin2sDnEYuICi)l~=ohXvaG502Lm>Kbi>}KC~0jCo&cz`h+Z? zel+!eE@hl&A18tFcOD8Ia^5^gtD`MrN6LsT41nV$a6BKji4EqCO>lYt@3EHM?oI4A z-MH!4%`_cN4kTISjM21%5LHbg3;rW`3EEQ;i@6MC z)pBIPleG6*D6_{p>5hk3nct|YTyZR-W+q1#(hykNv;dNbY~T{O^>|#2O|2FzfSkP; zgq5_1A%T$5f#&T-N6|~+M&n0FNB3mX--?#Ic-JkgSGO|RnK%?d(rBzWzmunKfj`S| z83G7L(AW{dIWuLJwb+cn9b1RH?O$9%LL z{S%K*lGI2%ldNK5OYV&r;P7^zf&yR)$B;!ij)O$lJcnY8>Mv+H(0tru5DUp6ys^yG z(Oo#Oj-aXXR@7`XTKSNd+{cFbnn5T<9l(&IG4!EimneJ)bTS7JBpg5ZC=!dAOH8HI zd0OfQnTn%@WJ+D2r7l7$1h!ByZt3VvFWlOT8F&FbP8urFQ~FXZ{RX7_AWTLsg?1V* ze|QitJ=)7&GE*#NI*fE2Y`HgRudY5q<=N=f>y)KTOaDQp$I+&*(p>%%ItGYm9{|Kw z4PqZ4Kqu<{Rbso8}M`=Hu{GAUz>-4q4I0(lT=e1f%Q+(h1n2)jgQH~lm>WiUL^Y2LYXAlgj{3-BBp2=Pi-Yg+h(7Z z^Zh^OB%)DCOXiFdCN1Z4T23wF=GKgn?~~~U)!LQvO6rq&?czv4ZLT|<*IbrN9SpgA zVhRdCCTt>4fI3v-l-ZKRV_LRRG8@de%w6K(P&X4% z05}6#_#}Ztnjoi zIC1zBiiwbIi#uhr=ZUwsakiBW>Hiw6i6rI0MSP8P-gfVxc^XB_Q**=WIQs0 z=`YwuJyC@fbxH9tDjyJp`R@B$d0LQJXHCZ|=rGgZ!2=os%H$mh@W{EJ1`D@ogLS`Exdt+0 zNVjJXzRBa$DOTV$u@jucMUYnmF11FgvX%ce$Oac42OPZE#q?6yb_bS%M<@x0S>s!i zsIMnB5P%5)Bw2i{{eta=Yzt{2!#+z+;lqTZ7Dboyq4%>PJ|CdniEDv_U*Hl>ruiSM z3ousv*J-81X^9L2|9N&{{wW9S2WzEd>d{Q=@AWx_Tt_VMm;dUv>clZ_lpvXz6fG-GMr45 zq%N4&hGOE-qdWs!xNRtIC|1NYDTgsZ-zLNN|W!Ja{6$!iG%d8{sX1StWX;((lN zWKm&uxyxna9|oTR&co(exGEV-9o#NpxTxB5sN-C+77daSC8B7tZ5Jx2W)nP^iGbh3 z1EJt|xloTrCBy0G3lL2)!6)v=6g6*N3x?}*za*x6#GjCJDJo4zv2as&uN_jAataDpBXPQ3Dh2Q{Q}n z5@o(=GM^2yCgo&%wsptgSR0j_(9_4mDdYwP|^iUQ#X9&!qA!|e&AK3@%# zw;Nc{r}&}-)qpk+;hWI#n;hCC8jU3C`B^YzNCobniR*|L%1CG?bDX6F+>_df%-e!k z1uzrc4&a?$__WggCQBn#JJ8TkJR-TfvED51#}m-j6N?YnJ!Lrrj5@_4Y(|5bWa+yB za|%UD6ZPtFq^H$wy_BR&k_*gs)--1j>58{dt;!I9N|bSnHWn*THoXr>DaNLCW-e0Q z3#rBE=i#k$beN-7rE~tU@u811pmEnxtDs#Iu z?+?t4CMiPc{z_^F*xG4!rK+grbeDq>$gQkJnAf00Z1YVD8Q4T)A)SqRo?ID-YE|u! zu^@~FJroEX#_EziR3p;1$~2HjHox#wk}s47-1;#DoC5*d{=hkC{iHImlK_X|J9om~ zzWs{%06(-7hLn~v{_{@ObM6ypBnE1`YJ}oIw5~8?y2U9bFu91r|JxSfO_Q7runPeT zKyd{+6`&SNRW}vyIHKvJGAhu_#*g^?hhY=s-I=(7a@+WMTwV3R#ZHw{st7C?INO{wuLrc>^&6}=<=SDESTO|sLm2JKs`tk z5fCt_&T)i2j9QcE2OjHw0}voFDb^*Trew$%*SnWezUBCX>UQJc$Gw#jJZi!VNT3>K zqINj7$0ME}y@obS4mF~UP66FWIfcN=X&RmeK)4z#see*UE>%<6u9`Hh8X=VrR13X@ zzficAZ$XFd(LSswRLww|&>h_8B+L!O2%GRoZ;bTD(vB~Ri#WV-N32(0*GbGz#xV%l zFlyNPf*?qGpaNSiAV2GCr*OZ=BOs@%Q&RK|aOl=aGcjruTM>%(9)fwr5Nem{cj zRYr`OJ0o4nN{Mm=lRyGYsjb(gslrkhf}Nw4ab^pj{}}6|DdWrRC73Mac)1ndkhYeB zBVj?NR5-|EI|4ZtBBGmaRS3o8sB#HOD@G87LkhlRnX}bSIk4@xcK`)AEW;15b2o?= zO$AE@0EI~gCF3~tkZ=t^aT-|ZIV<#a*v|3}kF$wAwydYc$5=86_sZszy8x_SA@k3B z90w6VB)|W0aOoH2N`%{kJxlW46bBEJ0v4^bQ9~7uJmI>Rs51}Sz!pNFG~IG+X)L}Rd1NRR5tk;H4NyICZ02ysVL+T>>W$%KY`I~!1$h;{ z2UHigT>^~DCjcW+U<<8H`2Jn8FvQEk)YCAJWs2~+q(AOmAdhg3JC&X@K~5vwUU~xV zDeCCWpBRZm55?SIMf1=_m1?Ncj2bM=vULlA9YU&8oRl*I)(+w`3=P%4P7Zr4jXK@& zhkB1g#ZtPD>Vncv4*H_mP#JHvTakp;Q`_F?m);80$~@_T^!%h+kbE&%u~K&c>HL$DU^WXTff8#RO{_S){p?_11*-ma32e!Q`^0 zUJ1RAsv{7T2v_|g0 zx%L1Yytr^q9UI7Ki`?OAbD8->@RD{eGhqr)F|Fy+H@_ok3CeSxo{dEdVdii;^cEWG z#3Ex8K8K}?D}``1Bz+7`77;Y$2!q>^kSF7%}+9^`ddvK}t<`OpQzc>lBs>lADc zu#KK9y{0h9Ccq3wiB=%>f$_R(nPm|zVB&?G}ua5`+RNY(Y1ff%OaN6c0|J!8O%2($>=7jO!DffXhmO8|Ow#=!R$hUwhvk7FD(Pzh-7{ zE`qWZa7aN11;rcf*>k^-ig(mW5y^;)fC3?mFsPL}6qFa#u*_{8D@rRXv#BtxtT0Wj zEJ;nRtf)LSrKdP$iAB!)S$hVg-gBPk{r~ryc|PlY`L5e{eb?G+uRRw$4aYw)l4!R+ zgiq_%xBiJ`M$8&;7J3o*wm%^k;SSVS@Z1F3M@X3W=Z&Krm-~JPg1|4Px8D;XzcoR> zU-ov#^CIGi(Ne^Vl}IKHF}LD*F7id!>qF~=GJuP7@L(5r>EZ-bW1Iii;rLR$6UUe7 zcPLj#Nk?Dg5i=9%O3qsU_)#>`xQjP5&gSY5c5aORxBtVF=u5#ACL#q|TYm2ybVSms zy5}53V0foB9vqK~PQyv%m8;YHuxjkEja(*v zw~I+0x)YC*LC3|x^J3mSh?5LzNpSJ^#mO!Na*HFM!J&)3bzz7r3QgAtD7lA#3j zGs-7!-p%C8PZROA-Sic;Sn>RBY(Ra3JZXi!*Bw5nOJ{L#U^ETlXK4;q_$(@pNO#bj zrZOqSnfbRtbU7~xsB`_(v3Qi;H1c;$MDyXia%bQrKYIAO*IXa~AIX_Nw{dBwf5KGS zLe9`jLSot;W=cvN1Gzipo-PH;t)C@Zf6%%xreQszS{Hdncel9sz#iOVv*J(j$R1{e z?3(C!fhp~i6^!U)Snw^5;!ji8ydJ1s3#IGl;lL&T{X`SS|zR)j%WcMEuByqqyxpCW0!=U>W@i z1k)JUiU7NTcL6ytQo)Lf7nwbB%XsnS7n$S%5vU=2QFI7xGJFjJ-_I4leUaHMU*HtC zyu=jt3;E-t5% zufUsV>Ighhexg%6@d{&)YDMmI=_!pPw}=V*7?ZVJ>Vy~RL&|G$)MJ6<5tzMNRZY*(^;f&P`42u+&7yOsVlk zn;KHINW!xk9CYLO1bSgdSpDsZ*Q)!@^DpX0iKFjD76fYX&TjOWBd(2;aG}dYPI1KL zU)~peyA56Jo|7>Rd(cH2-y8FO{r53=PJ1wPMg^N<<2xEBMUTNJKspp}OHXinotxV4 z1=Awme+Q-h9eU~(5(11zIK?k`-kMh%If=S~JnTSm_)2pk=Dj%30oJNG1am^q7Z2&} zO!P7oX>QG?r)$R2r2NcpK^mj)Ia#Y}JTe(a(GzOI=&f&_VJ$GbE^Ia$kuq~2im2Rp?GLmjzbgp)|Pb6>uq`zC-_JZBqX}1j~_Q) z&{nN)m0ygRLn*@<`S*ivkhAGr7g~ozEsLO%18vg?B$h ztjmteryrV&>cpqjp>^TZ1`gYvZTt|4eLs;4Q052@9o>ocaZ=BsTOuW6~qA6+JCJ zcYwL8U;9%*v7{4^NaHl3`3)SIT)I=d^$jLPHNzqm9@jWmCDcUGb9Swr8<~!ak&PcC zv`r8ne*>2QcbLU5-e9JA_ZmX|9Q~QTxFLzTZMf|Mav?hNR%ApwGriYjG|ZClD|Lg7 z(-Wxp8(V)zVgP$i*n?THLm~=yX20+MP>pt9jT>0#?JEiON9hH7^pXxL6Z`MdbW6QA zdK(>3oi@!<9 ze-)CSE$c1hYg*^y?jZW6Z0SC1KjJ(Jitgw&)kw80mH(u4?HH){M}QPs6P^Bk6=+y` zhhaqh?P#nhDmR;-5Vy4A_5CX)xKfI)4}OG!dORh~&UhH_F;VMx#lgksmsH2+70yy! zdUtGQ4osMT??LLAyphjsn8@l6YcIx>U!xu?^QkqOKE3lOaUd0$E(&F)hN1p&!o{dC zdIy~LHgUm0thZ)^1S#C)5G~i1&|s7n2c^Y9^G0|>NWZa%mM7;2Y55!!fEJAJss4lD z$CxXoQi`y#Nac$U^CXIp9(~aS`?Xjc`qD+sX z@gQeOt?h;V%Y|@9;m=YXg*riXsZf)$VM11`P!QVOet(ffRZnw!Zj~yx(SOgsJcDtW za!Sm`RM1LOGX?3t*su{FjFss0FA5PbF|%Q~AOYW$ z(i|xPQqaq}*9lNsa#K_>o1VnzqXfJvg^ak^VEJ<8AgKaGv(vj8>}TDR_P4l=i6{@1Z)>BR@7oe$|` z@|;J5vu%feDoj|k`3Y(k^Q<(HbU!AS26QQ|4Z#(|R53zq#M8QD--tv;Dt6PHE{rYgn2K$MU>VUo2!q^nJfY^6t5jq%?>6-&)$%?LWBN zKalFj-dG^D9qM(KW9i$39k5#YFSbM9-w!57U!qBkdjbMp{iVdYn$IRiCT&B2@;?6i zum?yFVPv8+;0xPHG?1n>=85b^-L}WY-wreBxLq;z9i}KY0Y3F7Wb16ya51bAy7-TG zm>cL`+qxWP9WFSX*}2XY-8jkr41E*D)3^SFJQNzQ<a97XF`VX0-EX{>V22keNPjToap^ihJP{nXAFXgP@l{GWwYE}g-&ZM>L0>WQU1qra+$u5sU93KQ zt3(&Ix2+Ou-(@BbXhLv=OWg(?LdUp{RpJNlGH>_!6874(PsWke;zRE-Lo~?{9q4IL z)uF#n^Vnla4bhz0I&+`K10N!Tn2nf=mBukT|Zj;pQlG-e( zJ0*3Or0$kfpQN@(>VBwnAk^EW{_Yt^`#!#dcA*nn9r%P8lk)B%>L)rsU>d#I(k6Q# z-U%XZ#;xTzREhXIvYv$Ef`VsztftkOcc^{@@jnj{zO-xv%lX@|oI1*+Y^CPIFyBny zzd}Yg-BiCS8rNOSkGW?Q2Grw;=;s(+o8n=a`ubFwDs|EXiXW%9`>hl6+OQ*>33oX} zouU48wD8T}-;K}#9i;(hL_rRAC2K)R4E+EiJSbfuk8|trJ-u5a>Mt^uFRF7*7SFGE zdO%BHQh0u#4-jc|oWlw_u2bM!G*Y^aI_g1fNK6d0G2@0>X$^#8OGOWoOQ~3A%Y0It z@e#u_v;<;78{W88;LNWH?qDMFd`~23?~ieCQCAuvP_Br?j1Ftoc0lnDr;apf-}qBojZ3a;QmNc$^k(veEjFX*dnC zES-22F(9usKF+Kb?>))b#+^p>)5^X;&mO0PsL{xHF8xOOYw+nd+i|3vM(H@o@F@)P z0fl3_DQv?*y}^w$FEz?=&;F$Ln_PakOw2fiFA5P1*F%l97ml*cpa&x>Kzj_12cjj) zWjn02z_AEJv+EDN-bS5JZ+I_A=D$jNMk%g)X!X;t-`spFjeOUo6x2|;(jSHJpn@%z z-~7R-9jYBDZ{I|!#wSoUDQ*W|d|0RBsKpiybwU z`+Y1A8!l_yks|5Ljx^{SCq?YgQu{r)-!5>Jbt9+@uXsF8J$H+)Hg`G0gpuJI=xYlK|ov$nw46^JiD z%$xt)z%Nh8kp?~;+~sklZIpns=+N~g=R@POdmOEsbb+1^jF$RnDNXZYNqL0dh=Sc* zU((e*n)A;fU}ylt*uHU6JJ#J7@TuR3Mjaitfio^Ytqn;qU$^Rfp!P!GjKqxswe2v` zp?`D|ecB)JW4Dhq9`$bkL5CVwokwrO9&K==X$0yxSk6UuY9yls`%jBAe4jB(KVpnM!P$yjg-pi zMr;g1I{vcfzqtZFZ&3vwC!!}SV0zyOLhVG11o@HAPdL<(ttSN+5;^45%?Bp z1NH;Wz*?XJ$OWbYMqn5a2gre+?`O#c;52X;XaUY4J^B;wV~PDf)=Q?sFb7xwECkAd zYTypwUZ5Fx4LAdI0DYQRk^*Mn0rmhpfk%ODKohVYXaH6M9-tg3 z0J4EuKn7q2zC~$y=zsssx@`!{y?`FIIR#z+Z@=gWE-ZzMh)YNeen|F@$iaOFN8KI$k4SO- zr_6qF`e%48O3lnjwk_=4uc4ov@Yp+ISH}iov*X^18yH_3zt$W7L43@>VFPCltQmOkKyl#S zfgcQPADE<^ga1+GG3B6ygrWIEEy*t@UrMeT)--g8YK7``)mhau!#)}|FEwKL^prKJ zf2Ix?F>=I`5#or0BQB1JAL$rbHu8ayZ;bqIWdF3`qh200al{>Imb6#XI@4lDPaVB? z?1=PV$1P5OA^rFCNjJtd-T2+u@#Fq6Zq?}Bqlb)nYfS&KMPtRf^GuxBd>(t;#)+cu zJTqe77w4I~Wtww(40Yf#KnyGw0Yn2F5CxS9X1b-uQ(acMSTzjhTY+IvQfthq#b#A%4eV6u4lX8s!)W6}F=$|NOUP@u zIP)8(ao_20m>0wQ)r?ems#GHvRaGx3^o-p1^+iS@+js2}qYF!B2rFaox?wnh)K4Nw zA42(hH0eulNg7^_q&#S-w?7#m8=#1dh-G3UWBbHL#iqyI7{|w@#HYrOz}3rSAW@P8 zf`^r4kY=!UFrlA7NkXd(Ng0|tbi~k+L(_&PtA?qDt4J~#Muy9Vk(AifxYYPmgc|__ ze-G`6jqxrsk zKR$-%cquNC2}B5*pla~fLf5^eZ`B{v69X|46EPDD+^oS+t~qj!qII5}YXi7KIp@rm zb0iz?6bt1XKVQ!I0IxGg&b2R)bIrHFF;C9bA+Qfoy0>i16 zA%p(-fH3sdTBJ9Z;rL~U>wsG+!?h{#weFPIyaI$phsmqE!OL(88B$UqjA&yA-9M-{f)gL)lwnTiy4 zNd9c0&q?jE1$B4I5snnLuYeB!f|bMMi=+P{JM0@49m zfp)<6EtoLi`VL_L-}f;800w*!_Dcx=BhvX147Uvi*H5qjtyJ$o0HEpL$oyvn1PXvA zzz1{y+%Jd&v;)mRE6{WqW}p>l1IVvnxPS}r0qsERZ%FS7+<>}HxOI9F@G2YuH_!^S z1LSwO0o+L>3h<{832*~GpdC=1MrnXLpbg+Z2BAP5z@s(`fDS-~T5SiKQM2uU>J#_@ zZq#s_7m5niOU}aq@BtjEx(VV?Oq7+ah z&M8XTFu6F8pEa|`y=MQ|ZgZkr&Ts|m@1^!ccNlZsy-zQ5KPJ4Z@h)C_f0b}gAM>CLXiNozBTm0e3` z1j!uS6^lnIfq=YM%_$qE7A9mYUrF72|C9}`!o;rm=D>4V*}dHZfrGfhIQWZjHsZMN zJCePBsOGX=&ncB%lWyq_qwJb?Ysj1g(q`To5v)F#Z|e4dd0wVOBBSiO)fOa{LtQD` zN=v&F>d|X*?LFqe<2}R#0#81u+&*h@Qp1GeK;W5P?$6(FJ^YKCuABGb#Li!T%7VJM ze!*&_b$Ww0scRxGL=66tx~AlIo2i~uI%i04yX4k27nctOe@R{QZ&DT`%xxR+wadT% zHg2RYkXwj~y6ad>le6)vP1P-o*?Au?8%6#gncVq+X-Uoxpbc zDRU>YNdv zu6ZWvm*_4gO3&23%TPsw<6>`2beF=Oi8DaxX&#rPQ*)qbCC z9G~dUA=E#~Ga;%wT#{#UkD0nX7z*F*FGKAldFDuAh`X^N$&=j^KFPBnI`KNA6HBi# zed7`j6ll65Q=JsNmQH6EgEv6xoLcHsjWSdHFTech`NY^*FS+Fh`EqZ6Qn3E+-u6T{ zVFLLJ<|@}_pqxyv=_I0;IhyG=wQ$u$rUY-|fh=Q0MkA&eIi{E#%Q6%> z$rILVis{qK+^?5;0N+i**1uI#VENSiZok0t;4GQkH3L(OD>TK-hFO{=ud~iQWqWb{ zG5AZ`Ij2}65B$1nx@58r?&>dPsBD-}6sWSa_J1HAxVRD&g7}9lcMPk>@ zW^ufX9q2t29FF%*#*Mw`qaog}?8SnWAr|~{UQ3FyYsRgoZ*3W-1RGX%&F(dq%$24; znufA#zAG}Lu`X!7WzH$Yqh|UeEA3MI25nF&$Bf-@a1bp{B2!tu*C`cDMM`g*6bL+* z&=W9Z*n|)y*BL=W4Vm*+4=)Kkoi%Sy`QGup!zXpmh>aN~)IAZboa+60hI1hBVXrtz zUGrwsbO+68TptOVXxKpDzQ&+V3l`NU5O^RoSBSU;Civ5Im4O%jV@r!v(8sRR6!K5# znmbft2hpdytKzLWI;ot+aozd6l^3d*#Y+Pdm)}V;uJcSrqPMDtH+SbNlj>+Wm5YME zH4{+IJ0-T+?UaPMkmjUflwh2aNtL*Zvc8E+V|wag3Qp&vaXj{Zl~1)ylRCzbxs}S? zQnrsYx6FsR0&@Wu>}PQQZc-H5RE2r1Byy@`b%`bq6(U>tE0N+<#gL_ zJdkbeHU|P@n)(&2zb8Ia9m?E{Ufgd%26K@9}(Tx7}l%Yon1t_ z?(qckP=Iq!SV+3o;l{UcH+8F(gxn~}91IiV=6b3mwiicNJ{UMrT1LY>NaN)1A9rKd zTs^fXx)+kD(DXYvu0MGCBJlL-l$U$K)Mxc#>UZ=o^_Q>hot)TOAdrwmIPf}y42obpt-Z7+aI*o+I&l8Y0o1-D6HD2r{yMnT>0bJQ-1m?mQx1iekse zh{#2=KJW6f$|XzEiz_Oyg!PmyDVb2RxUAAuQe9S6EZHYj7KdzfksJE8-sJ2yUi;fG zFJ<%?M|#>Vsn`dl&j#X&^z5lSIMwMVgry%#!g)n}s*d29EPg2w14$Ucv)Z`SbhUOd zTzIvh(dzUDqp5IVQE|y4IEi0!?7;rP&FA4XR$66kMa3wwUtg9NC--GXt9~;5er-bf zw~lLfk13fFf5kzo1V68&LKoeAS*O>%jNyDh8_*7rno}-AKJ2xd6?84`{C!*T=Aecs_>RJ+fd8JOFMjvId;%=t_&>9BI*$JXH(J zJQ)ist2~p$r#aT-g_UNDS04%4hU;DFHcK<~U4Rd0ZUk)r*?@$A0-zbdy%U^jGjax; z_oJ*p2hjWgum#~B1Z7(pZncSvT3q6(MmNE>|LxH*FDda9dI}d-ltkB*?5pa}-X-&L zyO2XOVnT0z2BbfW6rMw>yOD#49JayjA=rU}hZ)ZO5A5G=haG5s1olUPCt-gIxjxNs zubPw$?Es3(lI2WMVT~uubGy5wYEcB$$|@ICg@GCv!)nUzfU~$dj=fdhViG@%Wd}`f zMPdbyA=4fI0Z;q~w_f22V0M9!0^kXgXpUv?@6!%~I)Hs9@mef9P&^;UYGWx8wB9KJ zL4BbZ6VJxy(Mux8y-3B)a@b3g_K!#$_LpF9eVgIvwK3d3QGDzxaWd>P!QSy1!_jYG z`cPHd@Ig#B8jN1r$DIv!Dw+ZP!b|&0;=S?gh-_+a+Q)FMucBIC1GPXa)mspLFLb~M zaIc_x0Ulv#_zpm|AG85YfDdS+cBGSU68j8fXUR)V;(~$fZ?oDDG2Ejj8C&Bito8&v zi`ot&{5z<+iO^EC$Jl60S*JFfeQfb*d5Sa$56iaQ5K--ILh_` zM#+aL=Lw(<vozRMjO*Ys;!jP_oS0!s*kpR6@Es zogY_N;V#9Nd3l*9-CbR^sH~zyGS_;_D5I6kRqo(OrFKHx2b<2J0DuqRKMBGGy^i8j zhD+s!Oe|bjBOV>Z&UQ|$s9JngQCzZ^$Z+~WCa3Q~WWxCGHIF`}IRE}jcQaQN)rG}> z^Zn)WmM7zmym_=sA!-M+t}H?pEdig$FQk#O`EiYX-eR2z<1(`TNRD(mKS$<(59k0~ zU%(Eu1KgKry{}Ni7vKiabZSiE$-(ScW?5e)ezqG9o+o;zD{I+lZ&}3R<(fqhAO!NU!Wam>I79l!BzAdpblsQn*Io; zHbc|zs-mK#QmO)?;4mA}LuIs*G8W$MDaj}*Ev%kcQ@cToO zgzLXT0=<5i+BnYE3;u@*N@(I9D(aeL+XxieMjbWJ)>19ty#{%Lb^ zyqGqOO^Ep|Ie2Q}AoP!uaUO0M8y`LjM;WXsxW{!Eo8&D|y?(A?MfocjMTD$uU@7s0 zzMn>sfKwpOyI4|+&j=Mft{^_3`3VJa+vTLdiOQ^Gh#P1IRMX`|RmBi~A-Fiu2Jl6M z_yEc>+W-|Nl_tPB9X-W~z#Tx78!Z8$2v>X)=WBA}27Evpz#V`cer?qVQ^Sz9ml?uA zrm6#Ybm;;Q;sb3!T`dSvgD?=%409dyHlPXNS^+K|amzpu&{1Y2#D&Ch-3RGFpbqE+ zOicwe0dAD84rl^+t(>?3=Msd~iZ2akM|hhM*9WvBQMVfz0M4a|3v>VlXyqnAg#qXS z>Hr@djNq0kpa5tCxLWuFbwDdXmcbA30X%v~6Htdw4R-+C?XUyQPFj095OxOw--(ET z6Sw)a0&PGCpjw5909lO;05{MCv;r!;Kg&+*tV#PzIKB5aYU?ao z=rid5gd0BWh>0CyElwXbpkF+OzS0651I_|J1M+)V(jOQKi~}sdG+;hZ2HXj303HFJ z2Mz$ofwRDOz!f0uUYq~|h5-UF5x5B`0NlXcK$92BBfxXO>%jZKr@#-u?|@u*JD-yRKQrk089dI0`h=zU^%cBco1j?UI1PLjsfR@Z-L8ztdS)#Kq4>( z&;sLu*+4!}2GlgBv7`=$4Zy>|Q^1SB8^C+O$G|^<%Z>Yf#93+CO>4+nvW`^L7V6Z} zDh(z`8TlchBELt}qCt9lNMhRmcC2!X;c0Agq&lC^mt>TEW763E;W)ywe*+pS^xJ?l zXDfJcuwHJL=_xy&^2z^y!0-RP1AgCzEh$-2PH z%d5*gC0M|QEm~AjOH+P5tfH8vx+-juyVg^LPr&Ermx-d9o#DM8kyVQ6Vq|!Y8>i4b zi^v7Gkfuw%U<)Zl#4iy_$cnI_u)A7HriM(BOwwZVSJSo zmDPZZdwctUit9dW6#3rkk)#4&_gvdM8vL&Ntn2NAin;EyzPAsGaNVczFFs4FJt42b zC1gWyFVtX9B=H7;)ri>wyGT4Nu-k8#IX8Ra9JRm)_j;Dg^Gj9~mAE}>B7Ur4ZxT0Y z*s1$QXxVg`cZy}r|9Wo5;B6MK(WX&Pk` zO!u0%o8L2kV=lAYX=$*;Sw~wnR)uYljknd<;_M^rW9^&m;CU|0p>9P=rD^$oF>3~v4kN*+!ARlKMXDT(_XL`u=sL5wC zn{&KoulcAs#a3*4+P=g=nu3w$@l*7qIT+~`p+HxztJ3Y$b?OG|OZ8c%BlcoPsiVT- zc6b~s9K;tQf?uoNpl(ucQEyXkSN}_0tT}8ZtwBGBFj+{{s5B{>G|gDeclJ2PUOyY##DK7EURzy1JD6&}_f(;wHj=}+s=>Cfxi z^%wMh{Uv>e{<6MP--Q#0j3L4hZQu-Xh6F>RL1joWq#4E(t#?6 z(**T2^~Y*4Viv3N9=4scg&~|ws#vq8LHm&I4G?6x{FFJ*R%P?p zAXiC^@ttv_nW$t^qa8J0Fkdl0VL4DGJg#Osm~6-Y`Hwg}sV?LxD#Q?MCFna|qyI{r;tyg){#LR-OmH4oz8 z=t^_FIoq=y=I-)N#h~IimgQAayd@LkWu`qa%5q z*YZZ*$~*ZCKA*4VSMd+=_o!RdaYCXnMc5=fFB}#=5^m5O)n@8X=|9!~y@^JeNmH - - -
    -

    -This is a list of changes between the released versions of LuaJIT.
    -The current stable version is LuaJIT 2.0.3.
    -

    -

    -Please check the -» Online Change History -to see whether newer versions are available. -

    - -
    -

    LuaJIT 2.0.3 — 2014-03-12

    -
      -
    • Add PS4 port.
      • -
    • Add support for multilib distro builds.
      • -
    • Fix OSX build.
      • -
    • Fix MinGW build.
      • -
    • Fix Xbox 360 build.
      • -
    • Improve ULOAD forwarding for open upvalues.
      • -
    • Fix GC steps threshold handling when called by JIT-compiled code.
      • -
    • Fix argument checks for math.deg() and math.rad().
      • -
    • Fix jit.flush(func|true).
      • -
    • Respect jit.off(func) when returning to a function, too.
      • -
    • Fix compilation of string.byte(s, nil, n).
      • -
    • Fix line number for relocated bytecode after closure fixup
      • -
    • Fix frame traversal for backtraces.
      • -
    • Fix ABC elimination.
      • -
    • Fix handling of redundant PHIs.
      • -
    • Fix snapshot restore for exit to function header.
      • -
    • Fix type punning alias analysis for constified pointers
      • -
    • Fix call unroll checks in the presence of metamethod frames.
      • -
    • Fix initial maxslot for down-recursive traces.
      • -
    • Prevent BASE register coalescing if parent uses IR_RETF.
      • -
    • Don't purge modified function from stack slots in BC_RET.
      • -
    • Fix recording of BC_VARG.
      • -
    • Don't access dangling reference to reallocated IR.
      • -
    • Fix frame depth display for bytecode dump in -jdump.
      • -
    • ARM: Fix register allocation when rematerializing FPRs.
      • -
    • x64: Fix store to upvalue for lightuserdata values.
      • -
    • FFI: Add missing GC steps for callback argument conversions.
      • -
    • FFI: Properly unload loaded DLLs.
      • -
    • FFI: Fix argument checks for ffi.string().
      • -
    • FFI/x64: Fix passing of vector arguments to calls.
      • -
    • FFI: Rehash finalizer table after GC cycle, if needed.
      • -
    • FFI: Fix cts->L for cdata unsinking in snapshot restore.
      • -
    - -

    LuaJIT 2.0.2 — 2013-06-03

    -
      -
    • Fix memory access check for fast string interning.
      • -
    • Fix MSVC intrinsics for older versions.
      • -
    • Add missing GC steps for io.* functions.
      • -
    • Fix spurious red zone overflows in machine code generation.
      • -
    • Fix jump-range constrained mcode allocation.
      • -
    • Inhibit DSE for implicit loads via calls.
      • -
    • Fix builtin string to number conversion for overflow digits.
      • -
    • Fix optional argument handling while recording builtins.
      • -
    • Fix optional argument handling in table.concat().
      • -
    • Add partial support for building with MingW64 GCC 4.8-SEH.
      • -
    • Add missing PHI barrier to string.sub(str, a, b) == kstr FOLD rule.
      • -
    • Fix compatibility issues with Illumos.
      • -
    • ARM: Fix cache flush/sync for exit stubs of JIT-compiled code.
      • -
    • MIPS: Fix cache flush/sync for JIT-compiled code jump area.
      • -
    • PPC: Add plt suffix for external calls from assembler code.
      • -
    • FFI: Fix snapshot substitution in SPLIT pass.
      • -
    • FFI/x86: Fix register allocation for 64 bit comparisons.
      • -
    • FFI: Fix tailcall in lowest frame to C function with bool result.
      • -
    • FFI: Ignore long type specifier in ffi.istype().
      • -
    • FFI: Fix calling conventions for 32 bit OSX and iOS simulator (struct returns).
      • -
    • FFI: Fix calling conventions for ARM hard-float EABI (nested structs).
      • -
    • FFI: Improve error messages for arithmetic and comparison operators.
      • -
    • FFI: Insert no-op type conversion for pointer to integer cast.
      • -
    • FFI: Fix unroll limit for ffi.fill().
      • -
    • FFI: Must sink XBAR together with XSTOREs.
      • -
    • FFI: Preserve intermediate string for const char * conversion.
      • -
    - -

    LuaJIT 2.0.1 — 2013-02-19

    -
      -
    • Don't clear frame for out-of-memory error.
      • -
    • Leave hook when resume catches error thrown from hook.
      • -
    • Add missing GC steps for template table creation.
      • -
    • Fix discharge order of comparisons in Lua parser.
      • -
    • Improve buffer handling for io.read().
      • -
    • OSX: Add support for Mach-O object files to -b option.
      • -
    • Fix PS3 port.
      • -
    • Fix/enable Xbox 360 port.
      • -
    • x86/x64: Always mark ref for shift count as non-weak.
      • -
    • x64: Don't fuse implicitly 32-to-64 extended operands.
      • -
    • ARM: Fix armhf call argument handling.
      • -
    • ARM: Fix code generation for integer math.min/math.max.
      • -
    • PPC/e500: Fix lj_vm_floor() for Inf/NaN.
      • -
    • FFI: Change priority of table initializer variants for structs.
      • -
    • FFI: Fix code generation for bool call result check on x86/x64.
      • -
    • FFI: Load FFI library on-demand for bytecode with cdata literals.
      • -
    • FFI: Fix handling of qualified transparent structs/unions.
      • -
    - -

    LuaJIT 2.0.0 — 2012-11-08

    -
      -
    • Correctness and completeness: -
        -
      • Fix Android/x86 build.
        • -
      • Fix recording of equality comparisons with __eq metamethods.
        • -
      • Fix detection of immutable upvalues.
        • -
      • Replace error with PANIC for callbacks from JIT-compiled code.
        • -
      • Fix builtin string to number conversion for INT_MIN.
        • -
      • Don't create unneeded array part for template tables.
        • -
      • Fix CONV.num.int sinking.
        • -
      • Don't propagate implicitly widened number to index metamethods.
        • -
      • ARM: Fix ordered comparisons of number vs. non-number.
        • -
      • FFI: Fix code generation for replay of sunk float fields.
        • -
      • FFI: Fix signedness of bool.
        • -
      • FFI: Fix recording of bool call result check on x86/x64.
        • -
      • FFI: Fix stack-adjustment for __thiscall callbacks.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta11 — 2012-10-16

    -
      -
    • New features: -
        -
      • Use ARM VFP instructions, if available (build-time detection).
        • -
      • Add support for ARM hard-float EABI (armhf).
        • -
      • Add PS3 port.
        • -
      • Add many features from Lua 5.2, e.g. goto/labels. - Refer to this list.
        • -
      • FFI: Add parameterized C types.
        • -
      • FFI: Add support for copy constructors.
        • -
      • FFI: Equality comparisons never raise an error (treat as unequal instead).
        • -
      • FFI: Box all accessed or returned enums.
        • -
      • FFI: Check for __new metamethod when calling a constructor.
        • -
      • FFI: Handle __pairs/__ipairs metamethods for cdata objects.
        • -
      • FFI: Convert io.* file handle to FILE * pointer (but as a void *).
        • -
      • FFI: Detect and support type punning through unions.
        • -
      • FFI: Improve various error messages.
        • -
      • -
    • Build-system reorganization: -
        -
      • Reorganize directory layout:
        - lib/* → src/jit/*
        - src/buildvm_*.dasc → src/vm_*.dasc
        - src/buildvm_*.h → removed
        - src/buildvm* → src/host/*
        • -
      • Add minified Lua interpreter plus Lua BitOp (minilua) to run DynASM.
        • -
      • Change DynASM bit operations to use Lua BitOp
        • -
      • Translate only vm_*.dasc for detected target architecture.
        • -
      • Improve target detection for msvcbuild.bat.
        • -
      • Fix build issues on Cygwin and MinGW with optional MSys.
        • -
      • Handle cross-compiles with FPU/no-FPU or hard-fp/soft-fp ABI mismatch.
        • -
      • Remove some library functions for no-JIT/no-FFI builds.
        • -
      • Add uninstall target to top-level Makefile.
        • -
      • -
    • Correctness and completeness: -
        -
      • Preserve snapshot #0 PC for all traces.
        • -
      • Fix argument checks for coroutine.create().
        • -
      • Command line prints version and JIT status to stdout, not stderr.
        • -
      • Fix userdata __gc separations at Lua state close.
        • -
      • Fix TDUP to HLOAD forwarding for LJ_DUALNUM builds.
        • -
      • Fix buffer check in bytecode writer.
        • -
      • Make os.date() thread-safe.
        • -
      • Add missing declarations for MSVC intrinsics.
        • -
      • Fix dispatch table modifications for return hooks.
        • -
      • Workaround for MSVC conversion bug (double → uint32_t → int32_t).
        • -
      • Fix FOLD rule (i-j)-i => 0-j.
        • -
      • Never use DWARF unwinder on Windows.
        • -
      • Fix shrinking of direct mapped blocks in builtin allocator.
        • -
      • Limit recursion depth in string.match() et al.
        • -
      • Fix late despecialization of ITERN after loop has been entered.
        • -
      • Fix 'f' and 'L' options for debug.getinfo() and lua_getinfo().
        • -
      • Fix package.searchpath().
        • -
      • OSX: Change dylib names to be consistent with other platforms.
        • -
      • Android: Workaround for broken sprintf("%g", -0.0).
        • -
      • x86: Remove support for ancient CPUs without CMOV (before Pentium Pro).
        • -
      • x86: Fix register allocation for calls returning register pair.
        • -
      • x86/x64: Fix fusion of unsigned byte comparisons with swapped operands.
        • -
      • ARM: Fix tonumber() argument check.
        • -
      • ARM: Fix modulo operator and math.floor()/math.ceil() for inf/nan.
        • -
      • ARM: Invoke SPLIT pass for leftover IR_TOBIT.
        • -
      • ARM: Fix BASE register coalescing.
        • -
      • PPC: Fix interpreter state setup in callbacks.
        • -
      • PPC: Fix string.sub() range check.
        • -
      • MIPS: Support generation of MIPS/MIPSEL bytecode object files.
        • -
      • MIPS: Fix calls to floor()/ceil()/trunc().
        • -
      • ARM/PPC: Detect more target architecture variants.
        • -
      • ARM/PPC/e500/MIPS: Fix tailcalls from fast functions, esp. tostring().
        • -
      • ARM/PPC/MIPS: Fix rematerialization of FP constants.
        • -
      • FFI: Don't call FreeLibrary() on our own EXE/DLL.
        • -
      • FFI: Resolve metamethods for constructors, too.
        • -
      • FFI: Properly disable callbacks on iOS (would require executable memory).
        • -
      • FFI: Fix cdecl string parsing during recording.
        • -
      • FFI: Show address pointed to for tostring(ref), too.
        • -
      • FFI: Fix alignment of C call argument/return structure.
        • -
      • FFI: Initialize all fields of standard types.
        • -
      • FFI: Fix callback handling when new C types are declared in callback.
        • -
      • FFI: Fix recording of constructors for pointers.
        • -
      • FFI: Always resolve metamethods for pointers to structs.
        • -
      • FFI: Correctly propagate alignment when interning nested types.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Add allocation sinking and store sinking optimization.
        • -
      • Constify immutable upvalues.
        • -
      • Add builtin string to integer or FP number conversion. Improves cross-platform consistency and correctness.
        • -
      • Create string hash slots in template tables for non-const values, too. Avoids later table resizes.
        • -
      • Eliminate HREFK guard for template table references.
        • -
      • Add various new FOLD rules.
        • -
      • Don't use stack unwinding for lua_yield() (slow on x64).
        • -
      • ARM, PPC, MIPS: Improve XLOAD operand fusion and register hinting.
        • -
      • PPC, MIPS: Compile math.sqrt() to sqrt instruction, if available.
        • -
      • FFI: Fold KPTR + constant offset in SPLIT pass.
        • -
      • FFI: Optimize/inline ffi.copy() and ffi.fill().
        • -
      • FFI: Compile and optimize array/struct copies.
        • -
      • FFI: Compile ffi.typeof(cdata|ctype), ffi.sizeof(), ffi.alignof(), ffi.offsetof() and ffi.gc().
        • -
      • -
    - -

    LuaJIT 2.0.0-beta10 — 2012-05-09

    -
      -
    • New features: -
        -
      • The MIPS of LuaJIT is complete. It requires a CPU conforming to the -MIPS32 R1 architecture with hardware FPU. O32 hard-fp ABI, -little-endian or big-endian.
        • -
      • Auto-detect target arch via cross-compiler. No need for -TARGET=arch anymore.
        • -
      • Make DynASM compatible with Lua 5.2.
        • -
      • From Lua 5.2: Try __tostring metamethod on non-string error -messages..
        • -
      • -
    • Correctness and completeness: -
        -
      • Fix parsing of hex literals with exponents.
        • -
      • Fix bytecode dump for certain number constants.
        • -
      • Fix argument type in error message for relative arguments.
        • -
      • Fix argument error handling on Lua stacks without a frame.
        • -
      • Add missing mcode limit check in assembler backend.
        • -
      • Fix compilation on OpenBSD.
        • -
      • Avoid recursive GC steps after GC-triggered trace exit.
        • -
      • Replace <unwind.h> definitions with our own.
        • -
      • Fix OSX build issues. Bump minimum required OSX version to 10.4.
        • -
      • Fix discharge order of comparisons in Lua parser.
        • -
      • Ensure running __gc of userdata created in __gc -at state close.
        • -
      • Limit number of userdata __gc separations at state close.
        • -
      • Fix bytecode JMP slot range when optimizing -and/or with constant LHS.
        • -
      • Fix DSE of USTORE.
        • -
      • Make lua_concat() work from C hook with partial frame.
        • -
      • Add required PHIs for implicit conversions, e.g. via XREF -forwarding.
        • -
      • Add more comparison variants to Valgrind suppressions file.
        • -
      • Disable loading bytecode with an extra header (BOM or #!).
        • -
      • Fix PHI stack slot syncing.
        • -
      • ARM: Reorder type/value tests to silence Valgrind.
        • -
      • ARM: Fix register allocation for ldrd-optimized -HREFK.
        • -
      • ARM: Fix conditional branch fixup for OBAR.
        • -
      • ARM: Invoke SPLIT pass for double args in FFI call.
        • -
      • ARM: Handle all CALL* ops with double results in -SPLIT pass.
        • -
      • ARM: Fix rejoin of POW in SPLIT pass.
        • -
      • ARM: Fix compilation of math.sinh, math.cosh, -math.tanh.
        • -
      • ARM, PPC: Avoid pointless arg clearing in BC_IFUNCF.
        • -
      • PPC: Fix resume after yield from hook.
        • -
      • PPC: Fix argument checking for rawget().
        • -
      • PPC: Fix fusion of floating-point XLOAD/XSTORE.
        • -
      • PPC: Fix HREFK code generation for huge tables.
        • -
      • PPC: Use builtin D-Cache/I-Cache sync code.
        • -
      • -
    • FFI library: -
        -
      • Ignore empty statements in ffi.cdef().
        • -
      • Ignore number parsing errors while skipping definitions.
        • -
      • Don't touch frame in callbacks with tailcalls to fast functions.
        • -
      • Fix library unloading on POSIX systems.
        • -
      • Finalize cdata before userdata when closing the state.
        • -
      • Change ffi.load() library name resolution for Cygwin.
        • -
      • Fix resolving of function name redirects on Windows/x86.
        • -
      • Fix symbol resolving error messages on Windows.
        • -
      • Fix blacklisting of C functions calling callbacks.
        • -
      • Fix result type of pointer difference.
        • -
      • Use correct PC in FFI metamethod error message.
        • -
      • Allow 'typedef _Bool int BOOL;' for the Windows API.
        • -
      • Don't record test for bool result of call, if ignored.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta9 — 2011-12-14

    -
      -
    • New features: -
        -
      • PPC port of LuaJIT is complete. Default is the dual-number port -(usually faster). Single-number port selectable via src/Makefile -at build time.
        • -
      • Add FFI callback support.
        • -
      • Extend -b to generate .c, .h or .obj/.o -files with embedded bytecode.
        • -
      • Allow loading embedded bytecode with require().
        • -
      • From Lua 5.2: Change to '\z' escape. Reject undefined escape -sequences.
        • -
      • -
    • Correctness and completeness: -
        -
      • Fix OSX 10.7 build. Fix install_name and versioning on OSX.
        • -
      • Fix iOS build.
        • -
      • Install dis_arm.lua, too.
        • -
      • Mark installed shared library as executable.
        • -
      • Add debug option to msvcbuild.bat and improve error handling.
        • -
      • Fix data-flow analysis for iterators.
        • -
      • Fix forced unwinding triggered by external unwinder.
        • -
      • Record missing for loop slot loads (return to lower frame).
        • -
      • Always use ANSI variants of Windows system functions.
        • -
      • Fix GC barrier for multi-result table constructor (TSETM).
        • -
      • Fix/add various FOLD rules.
        • -
      • Add potential PHI for number conversions due to type instability.
        • -
      • Do not eliminate PHIs only referenced from other PHIs.
        • -
      • Correctly anchor implicit number to string conversions in Lua/C API.
        • -
      • Fix various stack limit checks.
        • -
      • x64: Use thread-safe exceptions for external unwinding (GCC platforms).
        • -
      • x64: Fix result type of cdata index conversions.
        • -
      • x64: Fix math.random() and bit.bswap() code generation.
        • -
      • x64: Fix lightuserdata comparisons.
        • -
      • x64: Always extend stack-passed arguments to pointer size.
        • -
      • ARM: Many fixes to code generation backend.
        • -
      • PPC/e500: Fix dispatch for binop metamethods.
        • -
      • PPC/e500: Save/restore condition registers when entering/leaving the VM.
        • -
      • PPC/e500: Fix write barrier in stores of strings to upvalues.
        • -
      • -
    • FFI library: -
        -
      • Fix C comment parsing.
        • -
      • Fix snapshot optimization for cdata comparisons.
        • -
      • Fix recording of const/enum lookups in namespaces.
        • -
      • Fix call argument and return handling for I8/U8/I16/U16 types.
        • -
      • Fix unfused loads of float fields.
        • -
      • Fix ffi.string() recording.
        • -
      • Save GetLastError() around ffi.load() and symbol -resolving, too.
        • -
      • Improve ld script detection in ffi.load().
        • -
      • Record loads/stores to external variables in namespaces.
        • -
      • Compile calls to stdcall, fastcall and vararg functions.
        • -
      • Treat function ctypes like pointers in comparisons.
        • -
      • Resolve __call metamethod for pointers, too.
        • -
      • Record C function calls with bool return values.
        • -
      • Record ffi.errno().
        • -
      • x86: Fix number to uint32_t conversion rounding.
        • -
      • x86: Fix 64 bit arithmetic in assembler backend.
        • -
      • x64: Fix struct-by-value calling conventions.
        • -
      • ARM: Ensure invocation of SPLIT pass for float conversions.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Display trace types with -jv and -jdump.
        • -
      • Record isolated calls. But prefer recording loops over calls.
        • -
      • Specialize to prototype for non-monomorphic functions. Solves the -trace-explosion problem for closure-heavy programming styles.
        • -
      • Always generate a portable vmdef.lua. Easier for distros.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta8 — 2011-06-23

    -
      -
    • New features: -
        -
      • Soft-float ARM port of LuaJIT is complete.
        • -
      • Add support for bytecode loading/saving and -b command line -option.
        • -
      • From Lua 5.2: __len metamethod for tables -(disabled by default).
        • -
      • -
    • Correctness and completeness: -
        -
      • ARM: Misc. fixes for interpreter.
        • -
      • x86/x64: Fix bit.* argument checking in interpreter.
        • -
      • Catch early out-of-memory in memory allocator initialization.
        • -
      • Fix data-flow analysis for paths leading to an upvalue close.
        • -
      • Fix check for missing arguments in string.format().
        • -
      • Fix Solaris/x86 build (note: not a supported target).
        • -
      • Fix recording of loops with instable directions in side traces.
        • -
      • x86/x64: Fix fusion of comparisons with u8/u16 -XLOAD.
        • -
      • x86/x64: Fix register allocation for variable shifts.
        • -
      • -
    • FFI library: -
        -
      • Add ffi.errno(). Save errno/GetLastError() -around allocations etc.
        • -
      • Fix __gc for VLA/VLS cdata objects.
        • -
      • Fix recording of casts from 32 bit cdata pointers to integers.
        • -
      • tonumber(cdata) returns nil for non-numbers.
        • -
      • Show address pointed to for tostring(pointer).
        • -
      • Print NULL pointers as "cdata<... *>: NULL".
        • -
      • Support __tostring metamethod for pointers to structs, too.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • More tuning for loop unrolling heuristics.
        • -
      • Flatten and compress in-memory debug info (saves ~70%).
        • -
      • -
    - -

    LuaJIT 2.0.0-beta7 — 2011-05-05

    -
      -
    • New features: -
        -
      • ARM port of the LuaJIT interpreter is complete.
        • -
      • FFI library: Add ffi.gc(), ffi.metatype(), -ffi.istype().
        • -
      • FFI library: Resolve ld script redirection in ffi.load().
        • -
      • From Lua 5.2: package.searchpath(), fp:read("*L"), -load(string).
        • -
      • From Lua 5.2, disabled by default: empty statement, -table.unpack(), modified coroutine.running().
        • -
      • -
    • Correctness and completeness: -
        -
      • FFI library: numerous fixes.
        • -
      • Fix type mismatches in store-to-load forwarding.
        • -
      • Fix error handling within metamethods.
        • -
      • Fix table.maxn().
        • -
      • Improve accuracy of x^-k on x64.
        • -
      • Fix code generation for Intel Atom in x64 mode.
        • -
      • Fix narrowing of POW.
        • -
      • Fix recording of retried fast functions.
        • -
      • Fix code generation for bit.bnot() and multiplies.
        • -
      • Fix error location within cpcall frames.
        • -
      • Add workaround for old libgcc unwind bug.
        • -
      • Fix lua_yield() and getmetatable(lightuserdata) on x64.
        • -
      • Misc. fixes for PPC/e500 interpreter.
        • -
      • Fix stack slot updates for down-recursion.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Add dual-number mode (int/double) for the VM. Enabled for ARM.
        • -
      • Improve narrowing of arithmetic operators and for loops.
        • -
      • Tune loop unrolling heuristics and increase trace recorder limits.
        • -
      • Eliminate dead slots in snapshots using bytecode data-flow analysis.
        • -
      • Avoid phantom stores to proxy tables.
        • -
      • Optimize lookups in empty proxy tables.
        • -
      • Improve bytecode optimization of and/or operators.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta6 — 2011-02-11

    -
      -
    • New features: -
        -
      • PowerPC/e500v2 port of the LuaJIT interpreter is complete.
        • -
      • Various minor features from Lua 5.2: Hex escapes in literals, -'\*' escape, reversible string.format("%q",s), -"%g" pattern, table.sort checks callbacks, -os.exit(status|true|false[,close]).
        • -
      • Lua 5.2 __pairs and __ipairs metamethods -(disabled by default).
        • -
      • Initial release of the FFI library.
        • -
      • -
    • Correctness and completeness: -
        -
      • Fix string.format() for non-finite numbers.
        • -
      • Fix memory leak when compiled to use the built-in allocator.
        • -
      • x86/x64: Fix unnecessary resize in TSETM bytecode.
        • -
      • Fix various GC issues with traces and jit.flush().
        • -
      • x64: Fix fusion of indexes for array references.
        • -
      • x86/x64: Fix stack overflow handling for coroutine results.
        • -
      • Enable low-2GB memory allocation on FreeBSD/x64.
        • -
      • Fix collectgarbage("count") result if more than 2GB is in use.
        • -
      • Fix parsing of hex floats.
        • -
      • x86/x64: Fix loop branch inversion with trailing -HREF+NE/EQ.
        • -
      • Add jit.os string.
        • -
      • coroutine.create() permits running C functions, too.
        • -
      • Fix OSX build to work with newer ld64 versions.
        • -
      • Fix bytecode optimization of and/or operators.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Emit specialized bytecode for pairs()/next().
        • -
      • Improve bytecode coalescing of nil constants.
        • -
      • Compile calls to vararg functions.
        • -
      • Compile select().
        • -
      • Improve alias analysis, esp. for loads from allocations.
        • -
      • Tuning of various compiler heuristics.
        • -
      • Refactor and extend IR conversion instructions.
        • -
      • x86/x64: Various backend enhancements related to the FFI.
        • -
      • Add SPLIT pass to split 64 bit IR instructions for 32 bit CPUs.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta5 — 2010-08-24

    -
      -
    • Correctness and completeness: -
        -
      • Fix trace exit dispatch to function headers.
        • -
      • Fix Windows and OSX builds with LUAJIT_DISABLE_JIT.
        • -
      • Reorganize and fix placement of generated machine code on x64.
        • -
      • Fix TNEW in x64 interpreter.
        • -
      • Do not eliminate PHIs for values only referenced from side exits.
        • -
      • OS-independent canonicalization of strings for non-finite numbers.
        • -
      • Fix string.char() range check on x64.
        • -
      • Fix tostring() resolving within print().
        • -
      • Fix error handling for next().
        • -
      • Fix passing of constant arguments to external calls on x64.
        • -
      • Fix interpreter argument check for two-argument SSE math functions.
        • -
      • Fix C frame chain corruption caused by lua_cpcall().
        • -
      • Fix return from pcall() within active hook.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Replace on-trace GC frame syncing with interpreter exit.
        • -
      • Improve hash lookup specialization by not removing dead keys during GC.
        • -
      • Turn traces into true GC objects.
        • -
      • Avoid starting a GC cycle immediately after library init.
        • -
      • Add weak guards to improve dead-code elimination.
        • -
      • Speed up string interning.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta4 — 2010-03-28

    -
      -
    • Correctness and completeness: -
        -
      • Fix precondition for on-trace creation of table keys.
        • -
      • Fix {f()} on x64 when table is resized.
        • -
      • Fix folding of ordered comparisons with same references.
        • -
      • Fix snapshot restores for multi-result bytecodes.
        • -
      • Fix potential hang when recording bytecode with nested closures.
        • -
      • Fix recording of getmetatable(), tonumber() and bad argument types.
        • -
      • Fix SLOAD fusion across returns to lower frames.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Add array bounds check elimination. -Oabc is enabled by default.
        • -
      • More tuning for x64, e.g. smaller table objects.
        • -
      • -
    - -

    LuaJIT 2.0.0-beta3 — 2010-03-07

    -
      -
    • LuaJIT x64 port: -
        -
      • Port integrated memory allocator to Linux/x64, Windows/x64 and OSX/x64.
        • -
      • Port interpreter and JIT compiler to x64.
        • -
      • Port DynASM to x64.
        • -
      • Many 32/64 bit cleanups in the VM.
        • -
      • Allow building the interpreter with either x87 or SSE2 arithmetics.
        • -
      • Add external unwinding and C++ exception interop (default on x64).
        • -
      • -
    • Correctness and completeness: -
        -
      • Fix constructor bytecode generation for certain conditional values.
        • -
      • Fix some cases of ordered string comparisons.
        • -
      • Fix lua_tocfunction().
        • -
      • Fix cutoff register in JMP bytecode for some conditional expressions.
        • -
      • Fix PHI marking algorithm for references from variant slots.
        • -
      • Fix package.cpath for non-default PREFIX.
        • -
      • Fix DWARF2 frame unwind information for interpreter on OSX.
        • -
      • Drive the GC forward on string allocations in the parser.
        • -
      • Implement call/return hooks (zero-cost if disabled).
        • -
      • Implement yield from C hooks.
        • -
      • Disable JIT compiler on older non-SSE2 CPUs instead of aborting.
        • -
      • -
    • Structural and performance enhancements: -
        -
      • Compile recursive code (tail-, up- and down-recursion).
        • -
      • Improve heuristics for bytecode penalties and blacklisting.
        • -
      • Split CALL/FUNC recording and clean up fast function call semantics.
        • -
      • Major redesign of internal function call handling.
        • -
      • Improve FOR loop const specialization and integerness checks.
        • -
      • Switch to pre-initialized stacks. Avoid frame-clearing.
        • -
      • Colocation of prototypes and related data: bytecode, constants, debug info.
        • -
      • Cleanup parser and streamline bytecode generation.
        • -
      • Add support for weak IR references to register allocator.
        • -
      • Switch to compressed, extensible snapshots.
        • -
      • Compile returns to frames below the start frame.
        • -
      • Improve alias analysis of upvalues using a disambiguation hash value.
        • -
      • Compile floor/ceil/trunc to SSE2 helper calls or SSE4.1 instructions.
        • -
      • Add generic C call handling to IR and backend.
        • -
      • Improve KNUM fuse vs. load heuristics.
        • -
      • Compile various io.*() functions.
        • -
      • Compile math.sinh(), math.cosh(), math.tanh() -and math.random().
        • -
      • -
    - -

    LuaJIT 2.0.0-beta2 — 2009-11-09

    -
      -
    • Reorganize build system. Build static+shared library on POSIX.
      • -
    • Allow C++ exception conversion on all platforms -using a wrapper function.
      • -
    • Automatically catch C++ exceptions and rethrow Lua error -(DWARF2 only).
      • -
    • Check for the correct x87 FPU precision at strategic points.
      • -
    • Always use wrappers for libm functions.
      • -
    • Resurrect metamethod name strings before copying them.
      • -
    • Mark current trace, even if compiler is idle.
      • -
    • Ensure FILE metatable is created only once.
      • -
    • Fix type comparisons when different integer types are involved.
      • -
    • Fix getmetatable() recording.
      • -
    • Fix TDUP with dead keys in template table.
      • -
    • jit.flush(tr) returns status. -Prevent manual flush of a trace that's still linked.
      • -
    • Improve register allocation heuristics for invariant references.
      • -
    • Compile the push/pop variants of table.insert() and -table.remove().
      • -
    • Compatibility with MSVC link /debug.
      • -
    • Fix lua_iscfunction().
      • -
    • Fix math.random() when compiled with -fpic (OSX).
      • -
    • Fix table.maxn().
      • -
    • Bump MACOSX_DEPLOYMENT_TARGET to 10.4
      • -
    • luaL_check*() and luaL_opt*() now support -negative arguments, too.
      -This matches the behavior of Lua 5.1, but not the specification.
      • -
    - -

    LuaJIT 2.0.0-beta1 — 2009-10-31

    -
      -
    • This is the first public release of LuaJIT 2.0.
      • -
    • The whole VM has been rewritten from the ground up, so there's -no point in listing differences over earlier versions.
      • -
    -
    - -
    -

    LuaJIT 1.1.8 — 2012-04-16

    - - -

    LuaJIT 1.1.7 — 2011-05-05

    - - -

    LuaJIT 1.1.6 — 2010-03-28

    -
      -
    • Added fixes for the -» currently known bugs in Lua 5.1.4.
      • -
    • Removed wrong GC check in jit_createstate(). -Thanks to Tim Mensch.
      • -
    • Fixed bad assertions while compiling table.insert() and -table.remove().
      • -
    - -

    LuaJIT 1.1.5 — 2008-10-25

    - - -

    LuaJIT 1.1.4 — 2008-02-05

    -
      -
    • Merged with Lua 5.1.3. Fixes all -» known bugs in Lua 5.1.2.
      • -
    • Fixed possible (but unlikely) stack corruption while compiling -k^x expressions.
      • -
    • Fixed DynASM template for cmpss instruction.
      • -
    - -

    LuaJIT 1.1.3 — 2007-05-24

    -
      -
    • Merged with Lua 5.1.2. Fixes all -» known bugs in Lua 5.1.1.
      • -
    • Merged pending Lua 5.1.x fixes: "return -nil" bug, spurious count hook call.
      • -
    • Remove a (sometimes) wrong assertion in luaJIT_findpc().
      • -
    • DynASM now allows labels for displacements and .aword.
      • -
    • Fix some compiler warnings for DynASM glue (internal API change).
      • -
    • Correct naming for SSSE3 (temporarily known as SSE4) in DynASM and x86 disassembler.
      • -
    • The loadable debug modules now handle redirection to stdout -(e.g. -j trace=-).
      • -
    - -

    LuaJIT 1.1.2 — 2006-06-24

    -
      -
    • Fix MSVC inline assembly: use only local variables with -lua_number2int().
      • -
    • Fix "attempt to call a thread value" bug on Mac OS X: -make values of consts used as lightuserdata keys unique -to avoid joining by the compiler/linker.
      • -
    - -

    LuaJIT 1.1.1 — 2006-06-20

    -
      -
    • Merged with Lua 5.1.1. Fixes all -» known bugs in Lua 5.1.
      • -
    • Enforce (dynamic) linker error for EXE/DLL version mismatches.
      • -
    • Minor changes to DynASM: faster pre-processing, smaller encoding -for some immediates.
      • -
    -

    -This release is in sync with Coco 1.1.1 (see the -» Coco Change History). -

    - -

    LuaJIT 1.1.0 — 2006-03-13

    -
      -
    • Merged with Lua 5.1 (final).
      • - -
    • New JIT call frame setup: -
        -
      • The C stack is kept 16 byte aligned (faster). -Mandatory for Mac OS X on Intel, too.
        • -
      • Faster calling conventions for internal C helper functions.
        • -
      • Better instruction scheduling for function prologue, OP_CALL and -OP_RETURN.
        • -
      • - -
    • Miscellaneous optimizations: -
        -
      • Faster loads of FP constants. Remove narrow-to-wide store-to-load -forwarding stalls.
        • -
      • Use (scalar) SSE2 ops (if the CPU supports it) to speed up slot moves -and FP to integer conversions.
        • -
      • Optimized the two-argument form of OP_CONCAT (a..b).
        • -
      • Inlined OP_MOD (a%b). -With better accuracy than the C variant, too.
        • -
      • Inlined OP_POW (a^b). Unroll x^k or -use k^x = 2^(log2(k)*x) or call pow().
        • -
      • - -
    • Changes in the optimizer: -
        -
      • Improved hinting for table keys derived from table values -(t1[t2[x]]).
        • -
      • Lookup hinting now works with arbitrary object types and -supports index chains, too.
        • -
      • Generate type hints for arithmetic and comparison operators, -OP_LEN, OP_CONCAT and OP_FORPREP.
        • -
      • Remove several hint definitions in favour of a generic COMBINE hint.
        • -
      • Complete rewrite of jit.opt_inline module -(ex jit.opt_lib).
        • -
      • - -
    • Use adaptive deoptimization: -
        -
      • If runtime verification of a contract fails, the affected -instruction is recompiled and patched on-the-fly. -Regular programs will trigger deoptimization only occasionally.
        • -
      • This avoids generating code for uncommon fallback cases -most of the time. Generated code is up to 30% smaller compared to -LuaJIT 1.0.3.
        • -
      • Deoptimization is used for many opcodes and contracts: -
          -
        • OP_CALL, OP_TAILCALL: type mismatch for callable.
          • -
        • Inlined calls: closure mismatch, parameter number and type mismatches.
          • -
        • OP_GETTABLE, OP_SETTABLE: table or key type and range mismatches.
          • -
        • All arithmetic and comparison operators, OP_LEN, OP_CONCAT, -OP_FORPREP: operand type and range mismatches.
          • -
        • -
      • Complete redesign of the debug and traceback info -(bytecode ↔ mcode) to support deoptimization. -Much more flexible and needs only 50% of the space.
        • -
      • The modules jit.trace, jit.dumphints and -jit.dump handle deoptimization.
        • -
      • - -
    • Inlined many popular library functions -(for commonly used arguments only): -
        -
      • Most math.* functions (the 18 most used ones) -[2x-10x faster].
        • -
      • string.len, string.sub and string.char -[2x-10x faster].
        • -
      • table.insert, table.remove and table.getn -[3x-5x faster].
        • -
      • coroutine.yield and coroutine.resume -[3x-5x faster].
        • -
      • pairs, ipairs and the corresponding iterators -[8x-15x faster].
        • -
      • - -
    • Changes in the core and loadable modules and the stand-alone executable: -
        -
      • Added jit.version, jit.version_num -and jit.arch.
        • -
      • Reorganized some internal API functions (jit.util.*mcode*).
        • -
      • The -j dump output now shows JSUB names, too.
        • -
      • New x86 disassembler module written in pure Lua. No dependency -on ndisasm anymore. Flexible API, very compact (500 lines) -and complete (x87, MMX, SSE, SSE2, SSE3, SSSE3, privileged instructions).
        • -
      • luajit -v prints the LuaJIT version and copyright -on a separate line.
        • -
      • - -
    • Added SSE, SSE2, SSE3 and SSSE3 support to DynASM.
      • -
    • Miscellaneous doc changes. Added a section about -embedding LuaJIT.
      • -
    -

    -This release is in sync with Coco 1.1.0 (see the -» Coco Change History). -

    -
    - -
    -

    LuaJIT 1.0.3 — 2005-09-08

    -
      -
    • Even more docs.
      • -
    • Unified closure checks in jit.*.
      • -
    • Fixed some range checks in jit.util.*.
      • -
    • Fixed __newindex call originating from jit_settable_str().
      • -
    • Merged with Lua 5.1 alpha (including early bug fixes).
      • -
    -

    -This is the first public release of LuaJIT. -

    - -

    LuaJIT 1.0.2 — 2005-09-02

    -
      -
    • Add support for flushing the Valgrind translation cache
      -(MYCFLAGS= -DUSE_VALGRIND).
      • -
    • Add support for freeing executable mcode memory to the mmap()-based -variant for POSIX systems.
      • -
    • Reorganized the C function signature handling in -jit.opt_lib.
      • -
    • Changed to index-based hints for inlining C functions. -Still no support in the backend for inlining.
      • -
    • Hardcode HEAP_CREATE_ENABLE_EXECUTE value if undefined.
      • -
    • Misc. changes to the jit.* modules.
      • -
    • Misc. changes to the Makefiles.
      • -
    • Lots of new docs.
      • -
    • Complete doc reorg.
      • -
    -

    -Not released because Lua 5.1 alpha came out today. -

    - -

    LuaJIT 1.0.1 — 2005-08-31

    -
      -
    • Missing GC step in OP_CONCAT.
      • -
    • Fix result handling for C –> JIT calls.
      • -
    • Detect CPU feature bits.
      • -
    • Encode conditional moves (fucomip) only when supported.
      • -
    • Add fallback instructions for FP compares.
      • -
    • Add support for LUA_COMPAT_VARARG. Still disabled by default.
      • -
    • MSVC needs a specific place for the CALLBACK attribute -(David Burgess).
      • -
    • Misc. doc updates.
      • -
    -

    -Interim non-public release. -Special thanks to Adam D. Moss for reporting most of the bugs. -

    - -

    LuaJIT 1.0.0 — 2005-08-29

    -

    -This is the initial non-public release of LuaJIT. -

    -
    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/contact.html b/src/3rd party/luajit-2.0-BAK/doc/contact.html deleted file mode 100644 index d92c3e38fb3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/contact.html +++ /dev/null @@ -1,104 +0,0 @@ - - - -Contact - - - - - - - - -
    -Lua -
    - - -
    -

    -Please send general questions to the -» LuaJIT mailing list. -You can also send any questions you have directly to me: -

    - - - - - -

    Copyright

    -

    -All documentation is -Copyright © 2005-2015 Mike Pall. -

    - - -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html b/src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html deleted file mode 100644 index 91dd9efbd84..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html +++ /dev/null @@ -1,189 +0,0 @@ - - - -Lua/C API Extensions - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT adds some extensions to the standard Lua/C API. The LuaJIT include -directory must be in the compiler search path (-Ipath) -to be able to include the required header for C code: -

    -
    -#include "luajit.h"
-
    -

    -Or for C++ code: -

    -
    -#include "lua.hpp"
-
    - -

    luaJIT_setmode(L, idx, mode) -— Control VM

    -

    -This is a C API extension to allow control of the VM from C code. The -full prototype of LuaJIT_setmode is: -

    -
    -LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode);
-
    -

    -The returned status is either success (1) or failure (0). -The second argument is either 0 or a stack index (similar to the -other Lua/C API functions). -

    -

    -The third argument specifies the mode, which is 'or'ed with a flag. -The flag can be LUAJIT_MODE_OFF to turn a feature on, -LUAJIT_MODE_ON to turn a feature off, or -LUAJIT_MODE_FLUSH to flush cached code. -

    -

    -The following modes are defined: -

    - -

    luaJIT_setmode(L, 0, LUAJIT_MODE_ENGINE|flag)

    -

    -Turn the whole JIT compiler on or off or flush the whole cache of compiled code. -

    - -

    luaJIT_setmode(L, idx, LUAJIT_MODE_FUNC|flag)
    -luaJIT_setmode(L, idx, LUAJIT_MODE_ALLFUNC|flag)
    -luaJIT_setmode(L, idx, LUAJIT_MODE_ALLSUBFUNC|flag)

    -

    -This sets the mode for the function at the stack index idx or -the parent of the calling function (idx = 0). It either -enables JIT compilation for a function, disables it and flushes any -already compiled code or only flushes already compiled code. This -applies recursively to all sub-functions of the function with -LUAJIT_MODE_ALLFUNC or only to the sub-functions with -LUAJIT_MODE_ALLSUBFUNC. -

    - -

    luaJIT_setmode(L, trace,
    -  LUAJIT_MODE_TRACE|LUAJIT_MODE_FLUSH)

    -

    -Flushes the specified root trace and all of its side traces from the cache. -The code for the trace will be retained as long as there are any other -traces which link to it. -

    - -

    luaJIT_setmode(L, idx, LUAJIT_MODE_WRAPCFUNC|flag)

    -

    -This mode defines a wrapper function for calls to C functions. If -called with LUAJIT_MODE_ON, the stack index at idx -must be a lightuserdata object holding a pointer to the wrapper -function. From now on all C functions are called through the wrapper -function. If called with LUAJIT_MODE_OFF this mode is turned -off and all C functions are directly called. -

    -

    -The wrapper function can be used for debugging purposes or to catch -and convert foreign exceptions. But please read the section on -C++ exception interoperability -first. Recommended usage can be seen in this C++ code excerpt: -

    -
    -#include <exception>
-#include "lua.hpp"
-
-// Catch C++ exceptions and convert them to Lua error messages.
-// Customize as needed for your own exception classes.
-static int wrap_exceptions(lua_State *L, lua_CFunction f)
-{
-  try {
-    return f(L);  // Call wrapped function and return result.
-  } catch (const char *s) {  // Catch and convert exceptions.
-    lua_pushstring(L, s);
-  } catch (std::exception& e) {
-    lua_pushstring(L, e.what());
-  } catch (...) {
-    lua_pushliteral(L, "caught (...)");
-  }
-  return lua_error(L);  // Rethrow as a Lua error.
-}
-
-static int myinit(lua_State *L)
-{
-  ...
-  // Define wrapper function and enable it.
-  lua_pushlightuserdata(L, (void *)wrap_exceptions);
-  luaJIT_setmode(L, -1, LUAJIT_MODE_WRAPCFUNC|LUAJIT_MODE_ON);
-  lua_pop(L, 1);
-  ...
-}
-
    -

    -Note that you can only define a single global wrapper function, -so be careful when using this mechanism from multiple C++ modules. -Also note that this mechanism is not without overhead. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html deleted file mode 100644 index 1ff22363484..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html +++ /dev/null @@ -1,332 +0,0 @@ - - - -FFI Library - - - - - - - - -
    -Lua -
    - - -
    -

    - -The FFI library allows calling external C functions and -using C data structures from pure Lua code. - -

    -

    - -The FFI library largely obviates the need to write tedious manual -Lua/C bindings in C. No need to learn a separate binding language -— it parses plain C declarations! These can be -cut-n-pasted from C header files or reference manuals. It's up to -the task of binding large libraries without the need for dealing with -fragile binding generators. - -

    -

    -The FFI library is tightly integrated into LuaJIT (it's not available -as a separate module). The code generated by the JIT-compiler for -accesses to C data structures from Lua code is on par with the -code a C compiler would generate. Calls to C functions can -be inlined in JIT-compiled code, unlike calls to functions bound via -the classic Lua/C API. -

    -

    -This page gives a short introduction to the usage of the FFI library. -Please use the FFI sub-topics in the navigation bar to learn more. -

    - -

    Motivating Example: Calling External C Functions

    -

    -It's really easy to call an external C library function: -

    -
    -①
-②
-
-
-③local ffi = require("ffi")
-ffi.cdef[[
-int printf(const char *fmt, ...);
-]]
-ffi.C.printf("Hello %s!", "world")
-
    -

    -So, let's pick that apart: -

    -

    -① Load the FFI library. -

    -

    -② Add a C declaration -for the function. The part inside the double-brackets (in green) is -just standard C syntax. -

    -

    -③ Call the named -C function — Yes, it's that simple! -

    -

    -Actually, what goes on behind the scenes is far from simple: ③ makes use of the standard -C library namespace ffi.C. Indexing this namespace with -a symbol name ("printf") automatically binds it to the -standard C library. The result is a special kind of object which, -when called, runs the printf function. The arguments passed -to this function are automatically converted from Lua objects to the -corresponding C types. -

    -

    -Ok, so maybe the use of printf() wasn't such a spectacular -example. You could have done that with io.write() and -string.format(), too. But you get the idea ... -

    -

    -So here's something to pop up a message box on Windows: -

    -
    -local ffi = require("ffi")
-ffi.cdef[[
-int MessageBoxA(void *w, const char *txt, const char *cap, int type);
-]]
-ffi.C.MessageBoxA(nil, "Hello world!", "Test", 0)
-
    -

    -Bing! Again, that was far too easy, no? -

    -

    -Compare this with the effort required to bind that function using the -classic Lua/C API: create an extra C file, add a C function -that retrieves and checks the argument types passed from Lua and calls -the actual C function, add a list of module functions and their -names, add a luaopen_* function and register all module -functions, compile and link it into a shared library (DLL), move it to -the proper path, add Lua code that loads the module aaaand ... finally -call the binding function. Phew! -

    - -

    Motivating Example: Using C Data Structures

    -

    -The FFI library allows you to create and access C data -structures. Of course the main use for this is for interfacing with -C functions. But they can be used stand-alone, too. -

    -

    -Lua is built upon high-level data types. They are flexible, extensible -and dynamic. That's why we all love Lua so much. Alas, this can be -inefficient for certain tasks, where you'd really want a low-level -data type. E.g. a large array of a fixed structure needs to be -implemented with a big table holding lots of tiny tables. This imposes -both a substantial memory overhead as well as a performance overhead. -

    -

    -Here's a sketch of a library that operates on color images plus a -simple benchmark. First, the plain Lua version: -

    -
    -local floor = math.floor
-
-local function image_ramp_green(n)
-  local img = {}
-  local f = 255/(n-1)
-  for i=1,n do
-    img[i] = { red = 0, green = floor((i-1)*f), blue = 0, alpha = 255 }
-  end
-  return img
-end
-
-local function image_to_grey(img, n)
-  for i=1,n do
-    local y = floor(0.3*img[i].red + 0.59*img[i].green + 0.11*img[i].blue)
-    img[i].red = y; img[i].green = y; img[i].blue = y
-  end
-end
-
-local N = 400*400
-local img = image_ramp_green(N)
-for i=1,1000 do
-  image_to_grey(img, N)
-end
-
    -

    -This creates a table with 160.000 pixels, each of which is a table -holding four number values in the range of 0-255. First an image with -a green ramp is created (1D for simplicity), then the image is -converted to greyscale 1000 times. Yes, that's silly, but I was in -need of a simple example ... -

    -

    -And here's the FFI version. The modified parts have been marked in -bold: -

    -
    -①
-
-
-
-
-
-②
-
-③
-④
-
-
-
-
-
-
-③
-⑤local ffi = require("ffi")
-ffi.cdef[[
-typedef struct { uint8_t red, green, blue, alpha; } rgba_pixel;
-]]
-
-local function image_ramp_green(n)
-  local img = ffi.new("rgba_pixel[?]", n)
-  local f = 255/(n-1)
-  for i=0,n-1 do
-    img[i].green = i*f
-    img[i].alpha = 255
-  end
-  return img
-end
-
-local function image_to_grey(img, n)
-  for i=0,n-1 do
-    local y = 0.3*img[i].red + 0.59*img[i].green + 0.11*img[i].blue
-    img[i].red = y; img[i].green = y; img[i].blue = y
-  end
-end
-
-local N = 400*400
-local img = image_ramp_green(N)
-for i=1,1000 do
-  image_to_grey(img, N)
-end
-
    -

    -Ok, so that wasn't too difficult: -

    -

    -① First, load the FFI -library and declare the low-level data type. Here we choose a -struct which holds four byte fields, one for each component -of a 4x8 bit RGBA pixel. -

    -

    -② Creating the data -structure with ffi.new() is straightforward — the -'?' is a placeholder for the number of elements of a -variable-length array. -

    -

    -③ C arrays are -zero-based, so the indexes have to run from 0 to -n-1. One might want to allocate one more element instead to -simplify converting legacy code. -

    -

    -④ Since ffi.new() -zero-fills the array by default, we only need to set the green and the -alpha fields. -

    -

    -⑤ The calls to -math.floor() can be omitted here, because floating-point -numbers are already truncated towards zero when converting them to an -integer. This happens implicitly when the number is stored in the -fields of each pixel. -

    -

    -Now let's have a look at the impact of the changes: first, memory -consumption for the image is down from 22 Megabytes to -640 Kilobytes (400*400*4 bytes). That's a factor of 35x less! So, -yes, tables do have a noticeable overhead. BTW: The original program -would consume 40 Megabytes in plain Lua (on x64). -

    -

    -Next, performance: the pure Lua version runs in 9.57 seconds (52.9 -seconds with the Lua interpreter) and the FFI version runs in 0.48 -seconds on my machine (YMMV). That's a factor of 20x faster (110x -faster than the Lua interpreter). -

    -

    -The avid reader may notice that converting the pure Lua version over -to use array indexes for the colors ([1] instead of -.red, [2] instead of .green etc.) ought to -be more compact and faster. This is certainly true (by a factor of -~1.7x). Switching to a struct-of-arrays would help, too. -

    -

    -However the resulting code would be less idiomatic and rather -error-prone. And it still doesn't get even close to the performance of -the FFI version of the code. Also, high-level data structures cannot -be easily passed to other C functions, especially I/O functions, -without undue conversion penalties. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html deleted file mode 100644 index 8cf48dc3b2e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html +++ /dev/null @@ -1,570 +0,0 @@ - - - -ffi.* API Functions - - - - - - - - - -
    -Lua -
    - - -
    -

    -This page describes the API functions provided by the FFI library in -detail. It's recommended to read through the -introduction and the -FFI tutorial first. -

    - -

    Glossary

    -
      -
    • cdecl — An abstract C type declaration (a Lua -string).
      • -
    • ctype — A C type object. This is a special kind of -cdata returned by ffi.typeof(). It serves as a -cdata constructor when called.
      • -
    • cdata — A C data object. It holds a value of the -corresponding ctype.
      • -
    • ct — A C type specification which can be used for -most of the API functions. Either a cdecl, a ctype or a -cdata serving as a template type.
      • -
    • cb — A callback object. This is a C data object -holding a special function pointer. Calling this function from -C code runs an associated Lua function.
      • -
    • VLA — A variable-length array is declared with a -? instead of the number of elements, e.g. "int[?]". -The number of elements (nelem) must be given when it's -created.
      • -
    • VLS — A variable-length struct is a struct C -type where the last element is a VLA. The same rules for -declaration and creation apply.
      • -
    - -

    Declaring and Accessing External Symbols

    -

    -External symbols must be declared first and can then be accessed by -indexing a C library -namespace, which automatically binds the symbol to a specific -library. -

    - -

    ffi.cdef(def)

    -

    -Adds multiple C declarations for types or external symbols (named -variables or functions). def must be a Lua string. It's -recommended to use the syntactic sugar for string arguments as -follows: -

    -
    -ffi.cdef[[
-typedef struct foo { int a, b; } foo_t;  // Declare a struct and typedef.
-int dofoo(foo_t *f, int n);  /* Declare an external C function. */
-]]
-
    -

    -The contents of the string (the part in green above) must be a -sequence of -C declarations, -separated by semicolons. The trailing semicolon for a single -declaration may be omitted. -

    -

    -Please note that external symbols are only declared, but they -are not bound to any specific address, yet. Binding is -achieved with C library namespaces (see below). -

    -

    -C declarations are not passed through a C pre-processor, -yet. No pre-processor tokens are allowed, except for -#pragma pack. Replace #define in existing -C header files with enum, static const -or typedef and/or pass the files through an external -C pre-processor (once). Be careful not to include unneeded or -redundant declarations from unrelated header files. -

    - -

    ffi.C

    -

    -This is the default C library namespace — note the -uppercase 'C'. It binds to the default set of symbols or -libraries on the target system. These are more or less the same as a -C compiler would offer by default, without specifying extra link -libraries. -

    -

    -On POSIX systems, this binds to symbols in the default or global -namespace. This includes all exported symbols from the executable and -any libraries loaded into the global namespace. This includes at least -libc, libm, libdl (on Linux), -libgcc (if compiled with GCC), as well as any exported -symbols from the Lua/C API provided by LuaJIT itself. -

    -

    -On Windows systems, this binds to symbols exported from the -*.exe, the lua51.dll (i.e. the Lua/C API -provided by LuaJIT itself), the C runtime library LuaJIT was linked -with (msvcrt*.dll), kernel32.dll, -user32.dll and gdi32.dll. -

    - -

    clib = ffi.load(name [,global])

    -

    -This loads the dynamic library given by name and returns -a new C library namespace which binds to its symbols. On POSIX -systems, if global is true, the library symbols are -loaded into the global namespace, too. -

    -

    -If name is a path, the library is loaded from this path. -Otherwise name is canonicalized in a system-dependent way and -searched in the default search path for dynamic libraries: -

    -

    -On POSIX systems, if the name contains no dot, the extension -.so is appended. Also, the lib prefix is prepended -if necessary. So ffi.load("z") looks for "libz.so" -in the default shared library search path. -

    -

    -On Windows systems, if the name contains no dot, the extension -.dll is appended. So ffi.load("ws2_32") looks for -"ws2_32.dll" in the default DLL search path. -

    - -

    Creating cdata Objects

    -

    -The following API functions create cdata objects (type() -returns "cdata"). All created cdata objects are -garbage collected. -

    - -

    cdata = ffi.new(ct [,nelem] [,init...])
    -cdata = ctype([nelem,] [init...])

    -

    -Creates a cdata object for the given ct. VLA/VLS types -require the nelem argument. The second syntax uses a ctype as -a constructor and is otherwise fully equivalent. -

    -

    -The cdata object is initialized according to the -rules for initializers, -using the optional init arguments. Excess initializers cause -an error. -

    -

    -Performance notice: if you want to create many objects of one kind, -parse the cdecl only once and get its ctype with -ffi.typeof(). Then use the ctype as a constructor repeatedly. -

    -

    -Please note that an anonymous struct declaration implicitly -creates a new and distinguished ctype every time you use it for -ffi.new(). This is probably not what you want, -especially if you create more than one cdata object. Different anonymous -structs are not considered assignment-compatible by the -C standard, even though they may have the same fields! Also, they -are considered different types by the JIT-compiler, which may cause an -excessive number of traces. It's strongly suggested to either declare -a named struct or typedef with ffi.cdef() -or to create a single ctype object for an anonymous struct -with ffi.typeof(). -

    - -

    ctype = ffi.typeof(ct)

    -

    -Creates a ctype object for the given ct. -

    -

    -This function is especially useful to parse a cdecl only once and then -use the resulting ctype object as a constructor. -

    - -

    cdata = ffi.cast(ct, init)

    -

    -Creates a scalar cdata object for the given ct. The cdata -object is initialized with init using the "cast" variant of -the C type conversion -rules. -

    -

    -This functions is mainly useful to override the pointer compatibility -checks or to convert pointers to addresses or vice versa. -

    - -

    ctype = ffi.metatype(ct, metatable)

    -

    -Creates a ctype object for the given ct and associates it with -a metatable. Only struct/union types, complex numbers -and vectors are allowed. Other types may be wrapped in a -struct, if needed. -

    -

    -The association with a metatable is permanent and cannot be changed -afterwards. Neither the contents of the metatable nor the -contents of an __index table (if any) may be modified -afterwards. The associated metatable automatically applies to all uses -of this type, no matter how the objects are created or where they -originate from. Note that pre-defined operations on types have -precedence (e.g. declared field names cannot be overriden). -

    -

    -All standard Lua metamethods are implemented. These are called directly, -without shortcuts and on any mix of types. For binary operations, the -left operand is checked first for a valid ctype metamethod. The -__gc metamethod only applies to struct/union -types and performs an implicit ffi.gc() -call during creation of an instance. -

    - -

    cdata = ffi.gc(cdata, finalizer)

    -

    -Associates a finalizer with a pointer or aggregate cdata object. The -cdata object is returned unchanged. -

    -

    -This function allows safe integration of unmanaged resources into the -automatic memory management of the LuaJIT garbage collector. Typical -usage: -

    -
    -local p = ffi.gc(ffi.C.malloc(n), ffi.C.free)
-...
-p = nil -- Last reference to p is gone.
--- GC will eventually run finalizer: ffi.C.free(p)
-
    -

    -A cdata finalizer works like the __gc metamethod for userdata -objects: when the last reference to a cdata object is gone, the -associated finalizer is called with the cdata object as an argument. The -finalizer can be a Lua function or a cdata function or cdata function -pointer. An existing finalizer can be removed by setting a nil -finalizer, e.g. right before explicitly deleting a resource: -

    -
    -ffi.C.free(ffi.gc(p, nil)) -- Manually free the memory.
-
    - -

    C Type Information

    -

    -The following API functions return information about C types. -They are most useful for inspecting cdata objects. -

    - -

    size = ffi.sizeof(ct [,nelem])

    -

    -Returns the size of ct in bytes. Returns nil if -the size is not known (e.g. for "void" or function types). -Requires nelem for VLA/VLS types, except for cdata objects. -

    - -

    align = ffi.alignof(ct)

    -

    -Returns the minimum required alignment for ct in bytes. -

    - -

    ofs [,bpos,bsize] = ffi.offsetof(ct, field)

    -

    -Returns the offset (in bytes) of field relative to the start -of ct, which must be a struct. Additionally returns -the position and the field size (in bits) for bit fields. -

    - -

    status = ffi.istype(ct, obj)

    -

    -Returns true if obj has the C type given by -ct. Returns false otherwise. -

    -

    -C type qualifiers (const etc.) are ignored. Pointers are -checked with the standard pointer compatibility rules, but without any -special treatment for void *. If ct specifies a -struct/union, then a pointer to this type is accepted, -too. Otherwise the types must match exactly. -

    -

    -Note: this function accepts all kinds of Lua objects for the -obj argument, but always returns false for non-cdata -objects. -

    - -

    Utility Functions

    - -

    err = ffi.errno([newerr])

    -

    -Returns the error number set by the last C function call which -indicated an error condition. If the optional newerr argument -is present, the error number is set to the new value and the previous -value is returned. -

    -

    -This function offers a portable and OS-independent way to get and set the -error number. Note that only some C functions set the error -number. And it's only significant if the function actually indicated an -error condition (e.g. with a return value of -1 or -NULL). Otherwise, it may or may not contain any previously set -value. -

    -

    -You're advised to call this function only when needed and as close as -possible after the return of the related C function. The -errno value is preserved across hooks, memory allocations, -invocations of the JIT compiler and other internal VM activity. The same -applies to the value returned by GetLastError() on Windows, but -you need to declare and call it yourself. -

    - -

    str = ffi.string(ptr [,len])

    -

    -Creates an interned Lua string from the data pointed to by -ptr. -

    -

    -If the optional argument len is missing, ptr is -converted to a "char *" and the data is assumed to be -zero-terminated. The length of the string is computed with -strlen(). -

    -

    -Otherwise ptr is converted to a "void *" and -len gives the length of the data. The data may contain -embedded zeros and need not be byte-oriented (though this may cause -endianess issues). -

    -

    -This function is mainly useful to convert (temporary) -"const char *" pointers returned by -C functions to Lua strings and store them or pass them to other -functions expecting a Lua string. The Lua string is an (interned) copy -of the data and bears no relation to the original data area anymore. -Lua strings are 8 bit clean and may be used to hold arbitrary, -non-character data. -

    -

    -Performance notice: it's faster to pass the length of the string, if -it's known. E.g. when the length is returned by a C call like -sprintf(). -

    - -

    ffi.copy(dst, src, len)
    -ffi.copy(dst, str)

    -

    -Copies the data pointed to by src to dst. -dst is converted to a "void *" and src -is converted to a "const void *". -

    -

    -In the first syntax, len gives the number of bytes to copy. -Caveat: if src is a Lua string, then len must not -exceed #src+1. -

    -

    -In the second syntax, the source of the copy must be a Lua string. All -bytes of the string plus a zero-terminator are copied to -dst (i.e. #src+1 bytes). -

    -

    -Performance notice: ffi.copy() may be used as a faster -(inlinable) replacement for the C library functions -memcpy(), strcpy() and strncpy(). -

    - -

    ffi.fill(dst, len [,c])

    -

    -Fills the data pointed to by dst with len constant -bytes, given by c. If c is omitted, the data is -zero-filled. -

    -

    -Performance notice: ffi.fill() may be used as a faster -(inlinable) replacement for the C library function -memset(dst, c, len). Please note the different -order of arguments! -

    - -

    Target-specific Information

    - -

    status = ffi.abi(param)

    -

    -Returns true if param (a Lua string) applies for the -target ABI (Application Binary Interface). Returns false -otherwise. The following parameters are currently defined: -

    -

    ghxQ;a@dVRD;1 zrWK}@raDuDX{~94>1jLh$><7zB&lZ$l|rrXqi{_SJ7%$o-XHbv81jvUW~;?%$*@ed zWLjL7EK82%ealJ9N$Xcune9efp3QH&Wb3e9wsqRNY{bskBka+3&Q4lo(pK>-VV>}WP8^IQ!V&G@9C2Ppf+NwPa-=xY z9Ah24L+dcoMkI16VNsiC)EXP?$Eh2R9A-fq#FwcjYF^N+(!Q?!r*@#up)1mD(e2lL ztNTe8t{| z>vYfQ8uX3&#|#a|wZ;v`CgT?4>n1t4)M@iYbGYS6i_TVVYp^xj-msmrMcE&-KWqQQ z9_EO0ta7~OIOw=S6Xvmml89ZxFXx;1hxz?{D}R_j#vkX~_-OT7^-lFS>R;4euh36p z)lAjoYwpl&)jY2`qInG2SLj!QHEhtosDDHMz2T}M**MO4mvNKvMdKUBaFf!s(^PD} z&Ai`yz}#v+Y`%;m$HOgSEYqwm>pW|&b)mJ)T4k-Z)>+qCAGGeazG?m4%GmnZ5^N)F zHroW-GFzQ(y={x_8{0*jm(u?f9rjMSv?G1J^9~h?gu8^(!g$SoO|iCATcLGpJ=zu8 zmD)P(w_2;tsmst!)n)2jx-4Ceu28o|cUt!)n&FaepnkmmTYVa;zuEAL;e=s@alLVj z>1Wdp^Q&g!lH*u6xQu4Iu35L!tJ|g9t@G*NQh+5fw4>?;jxDqb-B@!&lL;RR(Hgs^ z$ke-o!lO+swR0YcX1a z9o|cOe1V0xYOO}A)#|inSf^SuQIT2J*R2<9bVeBXG|SZvy1`lsnev)lZbxy`JyrdZRw*0I(m>lW)a z>vn6ib*FU~+RJBcvF^7Xu(nz?_8%#C@nPYQ4CQ<*Kc4@SpQ_I`{&kSQZ^}1sHlH=i zEs>T%mSL7rmI;=5mOM+jWu@gI%j1^kEN@$Ww3w}LSUujN1Ev(-n{C)6V}C7LqrGK1D=GX7@#)A*+;(mdIG#=O&d#7^3RRlk^D z!8h>R)Qc>~Ep3+5mUEW#f0>O*yPTvT-G8e~g$ltfc!U+gN}*0@5WX_)uw1ZjchFg| zLr$=!CvOVJ1iQ|w`x&Eny#6QsCS$cl1lNZ z)@r+8yJYXMU$%GJ|H4-O16Nt_pO`%HDx^-A$Sd_#22g=hyHs|#&)kgZN+B_!ad-0Z2h|5#~8zk8ZDy$|Ao)!pJnbj9JDUW3I8l zSZpjcRv6tzk8y=ju#{Tfu_&yC)>84FOg7p3hJ!RK$TlQk;urEu_!@pCe>Z z-_5_oAK_2&|Ku<7GIhARFUmDUJwiQJJxM)7y+mEDzFoZ<^3zuJBkC*aNFh#05=IDP z1+`!h#$(3336tCoVXyGI@Q&~v%KVe?s}Q5PK{H%4L6fc7t$A5<-mCdq^P}ch&F`8p z?FdYm| zy59Pj^(pIB>#)B_Km@N6PyI8dU}J zd5j;WwyTpN+IkdQ@97^gjW%n|aTcT1X5DJvXRmauaX_Gw zhQ$n?NBftm<$_XJtogTYrT$eza6UU`{s5-DB84HbdW`mU!U{4k4g$Z8^K3xmMh65P0 zS9I5O0ex>d`EkQ8L-&|{)A+9Ogz-D$Wux3=F%2+}hJbs<++iMRX|imwY_n{)G+W|! zT6S4>TYQ!l%YMrNFv0@sBUW*DCJs0)v@LNw1flaaX->m7FtU&3(|HF!o8QZ?QGcx- zi4pv(z-V$c15j_NdaZtfzCgdxvcvM4XY>ry;DC)@6ylHFVL^k@AB%;=$BfSVRiMi^3-dI-9cTnehxaW-cVwA5p(|QhB(u$w0kyt8Hwj?((KTz(Z(4Y%rBeU&3!E`_SKlz z7_tFjBKb7F08_++LcC@WSgKAlL*vqH);y|tMzcrrk>LAN_1po0gk4nSM7-H?J{2XYTZx7hn=>v3zCu z-7*r>YPPM!wgd~4-L~VlRd%@}-SME~3rPN?HCVM1_y_n-Uarnid(=MRT?ijvPGDL&2|?u+-%q?Rr5!NGlmZ18I#g%GG7Bbj<620jD@~nlmzGAi6X4qV|YTJFb7i_QEj$ysoZu{9b)LsG>y%_~@I0_xFIKFfIMn^;k zgS9lIM7*XK%iH-<-oxL8Ip-PvRsK!>J^qB3_w!wRq&h}DRGp&c)jIVo^+NSh^-6W4 z`XB1&)o);78zl@8h70+^a$zkdnxn#(Xz{U{`I^r({jv12Xs2qcv@P1twb!&$upw}_ zZY$<@8DzP$rZnqxYj441nEhQlolWZ;4U{-M(e!3Qo6jexlhni1VtDE70<?d5rldEX7A#Oj!9fSPohO7K=5{dYiSzdM9QG&Nk4NXd7lrv!&a#HnYuXn{3Op z&9UWRMOchAkQ+;hmA1PfPHsYXdl=%`Qy5n-K{R{Y_Jys+zRG^L-MhyAi2WI`m~-~e z?a_{5Sm#+B;~lp+7GoFX4ph`yEXP|N?>OFboN#>XAS%2DjZ%hV9c>1WoW$SE=kewI z?P%3)=%T0jpU|9~`VRGO^&gNGI5gZXLZPr&Sb_!U?GP?88-SB+M?*d^OWW}%^PUvpCCIt0KWDDs_<29oAygAEjzV+F?Xgz zOq!#67&6g8wE8Dl-^A;a^n%{5&(zqkB-_&Rj>ZN}}!X5&udF5_;a&)8zzZ#-c9>mJd0W4rN!(QmwD>@a4SrCU)B*gaqswsiZ~IT496GB(w_`1V6fR zhj1BlewRQrjHX-oNzh#1YYeWdyG5MCy8pb1*u85e*|Jz#b5lq-i(YEv=6I(&~8M9v3@D_CT|I_x}Lx%V`q; delta 165482 zcmcG%30zZ0*FS!96Ch~d291h%;znKNh3 zoH=vm%$ciwPgnb^UAEb6qu#eXy5`Fmckp^U`IvhZe~xu`!+rDC8uvtj#z_U*YVy})W zogjRn5roZt$ll)}tw;I-?v$dmC)w}DvV?qQIFBJFz$|qHi^or>`$a2Se3o>6k5vc474ZEi5F>=mAWKzY8aj)Y9 zAmRTr34&?R(j}H9c+`gACl@~;Oc>3ki!qVAx+00Xg=pMw-M&_QMAaiBRuCMUsx%iR z$0#HlG=~~ARgMFi?>!B5Yguuxo{5_d(Mweu+~t@*!L1{>-hQ}BybR#`;LmW(-YY%; zW@`hp+yr(stRIUA>CnMX3{k>*h4hJdh?hB}`9msk#IXF36me(_D-P+>9_~fJNo{bN z7mF(pD=2wu%)IV`Ag?&2K}#LiFRn>$(A1!|Kvju7tY#4@*|pH2F|UK0jYk8>#_YEk9M?hNqsV2kp>gbdSO>Nu>|bn}Hml=H-H3Bl z^`{!**t^>3@EBQBb<(8cPhH3SM=Jd{0AyX2^GoI59<|`q7*A@9&a={v>DRpnr5)#_ z9hHtvXQ?~-a7<^v1=(?j*n9fU?8Weo5m(W{4Vtsx8gIz`JdmrqA@|il?uhoeoi_M$ z!44%i1<2Zvhfn9PYQEL5bX_dl7NyaFj>JHwv3+J!7b2tPTV4CiPXn1Ff|;XG{AGV8 zX!gYWe7+l+_ypbsBuVCAXl+$Hf}$6<0n82n7;gYbZUcx90O)Q2_>ZBr3J;RRx)JRG zGWWItZ1)48`#cFPeZ7xxeXX{HVrP6fVkU++*IczWV!QE;C19+iul041+* z8RTjDhVCpYa*8-|1bZ~{7V(pj>|o>|t>zD(FICq5!F-W@)SWzP)=wHV=#ep^AnnX< z@xD${YaAlW1m?6DqX`tL+4?mDWy4mdNBQbB6*1n4WLlt9<5BNElq+hI@7Btit)7pe zO4>hEz1d&cT%X@OoU0~ly14%UvHCbbnO3z0MLTXmDRZz2f2 z_Wa?mN1XVX*TP>v^cNL)OQA^AnMQ*HI=fL$IV6=1 zVb2HNyu|-s?qo?=_fM}HOVV#G|m-=baF}!ZdymB z3SxS_OG<Riq1O#H7flH(~14MM2_%0(QbjgOIu%I7h=*>%h<*zP!+@$d&Eat7}|-c@-u&ZACFFjPcM=@GyYRo;KFc|Brd^&Qck z)y*{-&6L?ztEZ)fJ<=mdob&m(IT9P{k$ZuVdi3_mairS+P=AYgms8Zwo@PWuSwTHd;6T9dX3VK>=pp)PU32q z&z?^hDDEj{s)TW=HgMuE(A@IBMYD7Z`!r#Oc;GtA?$s~i>?S_LIGR+_)=IXqSH5`b zX7+in=+IMEQSg>9L+^Cmn03KfsN@)1(z|oFcbg$9Bzq7SLzUA*vw`x#S|;}%BHq59 zecZd7>J0m`cYm?c`e>q|>k24&M-#-l5|*!A1QQA)=zW%)IJ83_7{C1026jhczYbpT zls`^nPbBu#R^w52L||TsUfYjqO&%D8><2PuIT^*uKqmq7>6SpzNo`0XKZST9B zVK1PFWsbkqj7{s)NB!NGYG&=zXTXmT>zWK592J;jqf9;E(r3f0pRaiURMwE{^&F&7>UsXPS4#`m3H*BoQ3^dL+k5%`Rn=?&sC^MP7}8aI89_1 z0I$#UUGQCcYq?SWcNZJ#Je9$>iQ%?jbGrLqSJu@+=1)W6X0&aB>?#ouV!+tmgZ)XMH?reSg7Ju6i2VG-RsxH#_@eB%rJ<OJ=aD?Ns6uKxkDpVF(FWznz2kNs49T@X(B)})0imeIRf z)PhZ*oCIO@VE3NG$D?#Z3|WMNr!%UlKkvQJAYz8a zOk=;TZmLmF3aY4i*9hpAV?TM{=Z&At38hhBB0@#b1X6+|SO(TtDj#=1`@i*|bVH1s z(F};8%K8reir#<@E&c;l+MPujuebhu{Xy?nToqlU>5R*p!c)YH?~wBIqUrln%lZf! z>t*m{K5+0NpR^YFptZ;wRKzBtloAKU;TZzp4{3z@al7cXIK~Y#l(1|%)O>NxxCR*1 zCp{;RHPk!YD({(g;0s&96|%-Sxa0@_CI}AEA4S#EEIo)48#Oj8qKrt&$tSVMc$%Ay#mg}M5{z@)uTx1|ilC3B9e3-49p$+XMgBC4{f!C}mcumNaz?q4Y7kG(HyVmJ z84W%(Qrh|!@@m*GgL>L_zsV;#RDzj{j3%1!rJE67pb}7Dfbg?54;gEt92*Vjfh?*b zLr-;}PEbAq8IFzAImt-L$sk!L->n0`0i%_t;sUNQ`&Tpj;8@iR_Uzz9+n-u8g-~Gj zDSh8Rg#+uqcuIFsPL>?cBkf0LAXKH5n|BkJR)2tnJYJ1)WJ3E(Tb3g&?U<&Q-$=tV z^slyTn&8;4!klOQLv~Q6=ihu_+t4wS0sSX3_9M&Rrh)V_SHH%)_+SfPkzt*>e>f88N z^%Vu{6aC0x3pQa`Ilq)UDBI8~=UKlG&9j!<7GQZj86za8Hpk~k231St+&ZWjsA;$+ zJd=aKZvn!udMfAgLXKy6nEP))gT0*5@D|>T5kg% zit}1A+JY!2{TGxUl8WFcKSHV%Wykg?!&^}XF*Z{5;$IQDb~#~Nvl5tW{`L;{qxy+c z_X)Lt58@9vieTH@P)VP9`*YC8T0zVI2hheZVW|;2ufyb`G2>ZGWyruQK*Hv)Xd1^u zBXdr#z{NebissCBe5u`uD(p7-LnfwAj~Bwuj{QNUe{TM_~h4-<4p>_Lbf-y?V%rF68$h1&FdOVH?mt{ zs&adF+;=K+bCCl|+Hp@ad02d}zOh1N;w}9wmW7?pVN^`zw%VJe&i5aE#Aoi z&k5nKaZnB#&+X?~M!id>ij}UPWB!?zLr!S@ z3S7W2L+fgfDc(!R6pNnhY1~8CG<|!}`=9R) zR$H#GjsV8r8|&b*uw3wd3am;sQGvR!G$&lgPK^Z`pQRUZ?${~IIRE1)tT~oJ2I`gX z&syM`YpAQPKaB^EB^pTbPS>BOaV$uW9z9k&9B4KWOnv?7Y6rFN{{J-8HPn?>TGVI- z^aXEmJ?_;PrGf5?Qu5Jd(jd4-ml2Bc{rF{_$1Jv8l%l2@p(COI2|PN%8Ud>GoWxT; z%L0zu+Raa?RPqqYf!b5>aXgG97_IX&`(}PN%r`=t>4^f+ePR4E=^l`<@^~KTsIsV~ zBzN^P$@bgvWzt$)YmTdyNwcc{0`i+>Qm$Jns4UxumJc~)Jwz}zV5(upEt8I>^5NXRM%)3&_Mn3z7S;E&v*8hs$ zf&eM}=4c8>W{3K7{>+wYM^i^j$U1Gkueu(Kvg#wK%0O%&c2Kv6tPB0lT@6u$X6FwF ztG~N~2UPVvYL-gI2dWAizODoM_7uq;`VsYnpq@+BsE8zz>H#%=v$^`Dhs@#XBW%r> zTf?~H@q<(B{V}(MZ4Xg#C*g%LgAGTaCY;lC&OE*IE`#%T3}bJ|_TjhwDE7>~pwSm; z3WXtpFuO>Qn|xg+BBwyU;OjE=f@b?IWAjwq2?j$jt@Na2dQlu4fN{BIUl-E_4SQkS zfVfP&g@BDzTa3m5D~v|#4m3P1mzQThk8`wDp%?ORu7YhH@9N!-ibC4V{R^;>rh#H{ z3A@Ae{1B?qT;O`u2w4;4;qrYNd7jqSB|zqoQlDiqC({rlb9lN*jn=TW>CeX!)BuZd zG#aE=U$Yd+1JMw@+yhA2;EcZ!-1f&Z4upy&_idj)sZJ9^1t9Nnf~*Aa4#_R>H-Gx{ z0nvfx4^hM0I$*wWv~|a9KkFWu{#>Z-yYrYNrW&Ii`*hBU26?){sRDQOaGAm#?xW{) zZB4q4RK1*?RAU-Vs>G3P(978dM`hDOND(Z8(u13O$WRt?hTf&AMSg0ALE7>(wLSy8 z6LYGIuUx3}`8Ib1ZjEd*00>#<>wGhO*6u){k<+#EBxA@nlyGWmOx#}^D8xrL3TZ>i z@V1(&DL_5)`ljM5zX7SWE9#JEXnA4QG&|`IRJf@6i2tv^XTjnY8iMWx3S4IbnhJ3k zZI;&=c&016$(dtNI-!Y0qPalUIwRqLbY^Q@*;;y0b^wc?eFpAqTezrtcqK>9oaQ*2 z!#yX}Z4nn%7xshwN7&5DE43;CbhJS%J~1M1=Wr#*R1_yt;=9k{^e8)AhbI`HO9Y!Es9VFkmpjJY}Kkb zF}{UG&FR8s73jO7XUzr5MH;iH_k#SD{JHYJooy^g)O=o}5}4Z@kKG}6LA++Nj0;rFeDF>?}omm+Qp^}dhZIg*7>%zDjz&k+BCXr!N z=8l~8>wZ5){=OuxnyD;xs==&$LJQVS#sr{%L4C=Z0nhR0t~^z_D!ruAdS$?&yaKaw zn@ug`0;TU=5+CK6=h)G?#x9Qs5x1jf3De!yEAqF^9Nyqt*`y4Aj-}o!$0X!vFvhDM8#78ZxdHyhQTpAm)pr`2igyk-{)wa?p z)?{eNr{G98XytT6YI^kQPZxU1*QmL0`T0S5Am3bgbg`h9S8CCn(R7tRUkpy?+JCs9 zSUw>tNpDA$KSa6q(^7}SWjwiXUNyB(D^CyN50gJruE6e-GY1-}OeaidR?!U2CD%*`_^bDm-b-nJf#hF31EPR)a-$#M1i>aKn{O>MILl3Hu|VUb@yRLfyaUF z%QY(n<6-aDqBV{ysKqHYlU9W42t!%7Y#EEI;la>!h za{;@yaE7{fvx-eyl&zlhvx+^jXoxlqjEr_>r?Jl#El{ag%HlZ*Wh(>C0ft~_>dmrM zTL5KYR-EkB#fdR}FgU>&|6EyMhT)Y$U8W2i&rUCn5i57I>x&17KiTGC6u1YT^+4i1l&S~z?hJGmrAJn#`~T$0!E$BSITa+TD7vi!dd zo?dLy~4_G zAFNu#KDvEacN2hvJvstuNDp<1dk)hsO^zLiaE{hK>f5f5*6d=_mL{^hmv+<6IgJ6N zY`KR$xU{#pa0PpJX`(v(w2FPTw69qCK5JRpTYql3T5#n=qYH~>n3eDLupxKEMV-Q~ zLx5MlA!g+mV+-zx5g%X9Hr&xm^(cGhj)ZP6J*dW_{F3DtN7Kc1G$U%|uauP4?D!oi ziF{CCOq3q9YKB*Odv5OBewtm~(Um=i^;*`e=kgu@ZOBwC9wr*t(q+99))qlAbMg9% zQPlr?6?<)2Pj%C`Dps>>+7RWgHfj0`@TaiGqz%_xa29jl)io^h&VizQ7h7}Zz_9r! zi;CDU3wlU^BM?7W$5rgb!e};NVF%S+?DCyP@k}9$D;zJrRLB+-!eVK_NWMvtk6VdC zy~SG#*}lS*fx1G-)O79e$}#ViKszjy9;@`X$vo_5>YIG*aXOgKM2Z&I#IIRjctp^C$)qusIGGn&*F4*bmlIp7J2v zQUNZvNs(i7l3?v^-yEh|7YCiBgS;0B?o;X_VL&ZZ?IZ7S*<4sHXX^`>!^z9_-X~YKKq%O z?s0a%q;RHirS8ZvfHe!|RTn7VRo$GYb^gyDabCn58da?}e)fJ*m^`p(IamZ(9ry7I|`$6E;$_6Q(1`2M?il|65ys zcoS{K^wLhEskQ8rdv6gZE@7ANozvy*A5q^_qfu5cdJU6u^JXj8o@TeNoT6^Q%<|sK zBxu-gR>s@Zfb*MIjj*!?c_Q3N;f^cwEFq37^Q~mc!yc|~oo9l^?vWpOv4FAbH*ccb znYQOJBm7s>7PB?=QMX_(`G*7vI?S1Se;^yT?*thA0sA5hrtOsz+`P#MRPDESHOttc zRoT7IooPqUy3ht8XkvBoPZzp-*s#_8!e0RxO#<4Aqt)V|4p3HPnrM~V*~ZoJstN4r z)k866kF1V?&u$L$uI?8LQAYq?X-TILJ(sA~BHK^1)HOpR?5DZ*NGOnpC>FM1O|tsR z4^XgcMu;;Puy5C7MZF2-Rlb!B95}<^^~+*|EnUNU%vj&ewbaOFSOzWPFVRkJR{;)D z2U=yEphxflUzMdtI~0v`wceSbldA?~>m8Lb&J2SqBl;uAoZ!sX!_uh9PNI?rvcpu$ zbFcY)h2-itEB|>D1MOQ&eCOYL@MX~=Zdd6VvkL_+i?k+o8ZeXcweVBuiUb(C-W)c; znyF%}%$lJ8qPHLv>GKPlv3@Zt*-p00Iu6rWqqVnqdv6xIc7*s=8OvMS&sGBa8B^_o zh4WgMWxQXp*4kv$U(N}&TYB1UVFKac z*n)!QGL`ZQ$3WA5P+<8zpBkv^$?1Y*7z&hYj|f8WF+r{?P!9ECmUWZF_^s@dbxiE= z2%EM3L2=VIc4qy<-JT?}wDM7JJceo<6mv8v`T0p!wqat|BXDV9e9LuSz2ln7(h)0H zrRhob^M-lG!;kYQWES(H6f{Kn3Hw59kTlJB%r z{Ro$U8wNkom>}QpkG^}*NbwXPn)KiBBg$_%%w``sdVx#hwsz*GowQTPuy1mQP?qJQ zJYyn!)*{ca4wiOix37Ml*r8$uCBj5f;IQ|0Ls?Y59SdD~)) zJCde2w-XbZrJJ-fNBr1l6NF`{`z_&eiW{4gMz219rgEp9G`$uR3$&r{fmhMth5E=4 zJ-3Pzs0gfM<8|DX`AazcR0H;D(U|VLwE)Na1O@k0uT@K-FM^{+%bqO0KQsaTRb0+u zw@mAsP?qO&rMEblUA`H2lShI4aFI=Nbj(4*`B@Mwee_+db zpIY$II;Z)5A{+g@U>>;7{eC*)ngMPOX~)rj3TTO?Lro~P6`{|QA#J++-TdjQYHcDP zrE<>1$`xfC@epr*TUM+}2CqNoGbW&D-aI|~gS!dglu+443KFm^r)o8j&?E4?<;v)<3S z=xUIiBJH$_PQc3r6A`m!kalDq3MsxK*aczrsNxoW$KIUDlI&1U0iZ#YOwL+NC4J3!ob&(+%rd6!ML{gQ zKz!1PpHsp6#;=NhCM4c$$d3UaXnf|Ef@{Top*$-j&18vAOSc%(GA#PE2^L*irbU~U zWznQ%vvUu09}Qc^H)Fk7+Nn7TttWyBUE^IYVHs-?iIg6tnWTNP( z15x)keK;QzKs0>734&D82edk_BJM5@35>qoL^dWgy;OP#RZ$DswzB@FH#gqU4vYc+ z{9rDCO#iOo?804{MKzL0)uMH2ftt%e)0MKGQ9V&TnoiSHj)`U|mgJ1@(6bda%X1Ex zeSuaTkeqTxx()1Z z+#cG(wv{J}8w~7&@&Ylzz#`?|ea;nASsm3X*K(Wv#Hq%ky|Nc4*5pb%v#!EusPD{X z%Ok~?dNY?iCu*Gq5{soEuiLB?u49+wTgB#HY}kWEV&xk4{DWP^*VnQg5B9Sy5FJ0n zJFZ1q!X4KlEHF5{As?crg!0)?l=lneRmOPqtpUN&dZ^2iC2%aKMMx!camRoy*$CK@ z;~NqoN^x8@!Yq3eiaQq?aNpfTc0k&+q^{yP!!X{Qb{daX(P7)CbN?LK_!ZigQ2aCM zRe=_(w)ivHLn+=++%HKf5F2AW$DRg#@e81!|7kp4&QxHn>40zyO&0rf-tYqDZ6_tQ zg#fdo1B^f&4RI(Gs9W)1RHm+hn7}uT%Qga?7O{>>Bv8$0gmB7TB>2`%Rl0tIh5vk* z4cw@lc0@Bav-PQWGcbB9&1xj~_i(FuG?4$Ljp?s<_A-T$aI;ZPi0_p{;s( zv#Inr_f5u1d#h59T06|xWkS7W-C(-@rrBjj+S$$iL)d{FpRw`>^$dHpMy!+eM!MBC zWs7{y8P{MImuIn6XU7?xbFWEzPnM%-X5SzrJLnAKlpd zfa#i%I@YbJFlZeh5?zxnynE7hznwF-*R@o8>+pGt#6Pj`+U1KC}}( zR!BfMhPXCjk6|nslw5;LnOBBi#vXJwnZ9wZXV7ec{p0aT72R{yILY<+V6i!b^?jl& zej93YP7M8U`FKHpz|_IxsFViOIwv;E)2BL%o3!lHC&poGZ{<`)hfNc+^28_>U9nUg zvX*VG=q;wrV=q_qw+#*Rk5FYcDZ3$NC3m@B$3j(DxfvT!X)yR(|7b0!<0~e;{l1V9 z1&FSM3`sjDh$KxTwR z0ROmXb0rkSRu*ZvHzAL^6Cf=Av{0WXDm&5 zMbLjtt3@xvs%2MbhM*tdhOz0w5>HSd$DaMfP`v7J^Q(W+t8CMU^{8T*b7G4l+tlKD zJeUa`-kNC-WH!`M=D3M1AJ$(4qX3WcK`8G+j_miga^9)ZjtL)Ow^Y-Mxm)d|yfYA0gmr@UCrJZU#yg(28uaaGQJ#^h|KI2=tXfQAND-6J3&D0M( zQ~9gRbAQT&&<-_QBLnq~_1DMya@*H03Hpn;=Dyr^MIhZ9*C<@eah<@W;JS{hFQ^G# zosecJPYNmlfhDFQw z_DwY*)2%a?InrwM>!vvNKE}&sVBsw9^BOpa~bm5+mKo7Z4V?_QZY$W=&nNaXS(ae+vjD5QxoMf!G2~`*oQiiS5>(RK z1;9B4u%9kxyE}l)Jhu7dy581j$=)CF3&TGUHl-i`iefO%(gG zZ(m6l@4b`7zdCg6CWt>RBI}@h4FOY-jGDx=aJEgJZS6u1-t38p8v@(kp~!G7J>b*} z!(#$-y_zgGz0E#+wZC|FKKt?272>A(Z06sMQ_S-@KNc?Xd%i%E>1{zj2G@YVH4JyU z5U9iV-3*0c(4J;x1!hy|rJ@isW=5mZ5X#(tPZ5Pk_S@e_h*##aKCkr`Kby;PUt2Cd z(wBYwT9SUcMY3O+Vd-GMl4}XEU&&*Cyf#e#2fDKr%@Ac78}*NYz_NYWKOCw_w;Ki8 zNOPRiW1S0!+3;V7pOn+dB?lLd4i3r$Gq*M@J-CeldtreshVx@CGUz@Tix>(4fL%wiE9Dsw77_T0(BSFt++%DHts;;P)~+ z@~?g|p8<+0K@aF#jbNZYy_iM3@weESczwBABbB@Y48>PT!$^(_!WPElH>Tnoef=Ag z4eg3^N1<8ya1k5zW)GY{nf>PC3{F`D_w~CpD66hVcco@$uI^0^5v(JkO=KFSy4Qq5 zG?P3Og6TKf_0_Pd6EG+K@n#YkcJXgLA-*rLoo|iRYT;?jlFhI->tk8Bw}*3f{0*WA#RoO}P8S=d zU%~az&jL<3>*kX8#~bDfL>R(bx-$wgV|1m}mFI+(Adp(x(avu{>*JiT62w5_lLPKk zVlD+nWzPnu;Evv>M{}huGFlIzF?u`ER*XewpP@;p$uyD^3H=u;vA5pog&E`XcM{{G zr#L+11C1`e#+kk~o!r>ejOi=c(YFjXYK(kL+G!d$fJ8ZZLkGDQxZsXM{sXV$7t{Z^ zQbd$S0lmC=6IyO8_HkqnK$o<(a|3FL^M?9OX~=Tg2>aP~9bm*vB4 z5-z&|nc!B)jjvCHlQF#9t+SU+2*u712zBX-Va|l1>8Z6+Nij;YJ@59gjm3DO_^oTV zk)TZplbhV9#k>Nr{9r!l`aEFvVI3>iHXiE*fk?#~!5RiTFwx`f0_jNNhCfygI0~KR zM&(I<@sYNiq_IHDb+ljx@e65cO`w@uyZL;*eST(u?b!L6NLCgW0Wi(55WvIKfe@!v z@AbsC%C`6B*-%N6V6n=Z=QMs@{0oVOr7*}EX-~~=>L~6=)t~qQ)7?YF32EnJ*(5P? zb>mU@S#4qyG(k%E!Z|Jt*@_ewH!+X%hwIe`@_?aDBHjSTQlIq|XiXUlLNvyZxL+#y z2h(kjx1BguJ~_1UXkt^M!nuUz8Ti6c+A%ZKaaFq}0hsJ(!m#SAJfpUIP2!2NTwjgp z8ch|B$`!uuF`}lqr6hMbyl1oBCl)`?8cmlf}*ga9ZVH0yvy&?$VL=vbe zy^TGwJx!CM$V=E)+edavQSz2>y%XpLM-}V&{)maEFe1wzco9v`qqvX}Wf`Hq9rS2c zj`Oibp2l1n*Vvb`ch+F^Wny?g&>aR%Z(4Mo!)Ym~YF6?7`>I#j)DP~p&9;t$m}yE6 zT9SgQwF^{h6vWB=E#GbSOlwUD zJm30`Y^bv!RoYSIs6=@F2x;p{K^Tl@`>9U^e5I!J2;HWyFA}k3^*|*+=}%eGfvhoC zP7|ic*&SHXj@VwKDJ#UEm4Y<4N#|8_GZdBHWoEDK$jmx{NfYP*Rz!yUf4UJM{HXJ) z5rG6NCag$>?6FWEm>eiu_FdTvLmN~~!L=RNflt_=ox^QvjYi$N_N0j}h3wwZd;ywP zJ|&{Seg&c9_A6RzDolE9YW8~Tu*(xd?bZ}1Pe+x`zVWJLO^|kET$6SjbevW-9&?-y zad_;hZfgf8EU1mm>Z=Im^YI2?)TWY3Q~c%w+#iEL|3mj>D%;hRg? z7#u+xOynNPn1zyv;M7s3e3+D#9q?SVKcdu$Q;?8M?gPfa8UiG7v=JtoCt|;8g)zlt zIQuc_FW8)TmqcbvtPR0@05+EMjh6&$fSIuQ0%Y<%6M-!y5i4LnHB&zgr4po5VRyra zBp*tPTuryLBb&Pb|&RSo4Mq4ekvz8;6NRng&cjr)M9l_Y&l>v`GoQ_HR&|wOYJ{~x$bHy z-&eNO7*%;nEuKQ6v;CZ@Y>7`kgmfplst@=lIPW0}hFIgK$yLTMv@gYk+yhyHK22lo zISmP;x0_>s^M@hGrq{R$HF%917!w7zAfc}Xw+Cg4;Ib>LrEHq7CW~txP>;4nwQm*L z6JX(t4KCtA1@H|?b{|M@*+`uZ7nj4`f~{Vt*qBMdwz7#I#j8?S z;YaaIlEAUJp?QhC$PFbD+XKvPmAL6XLEnISvl)xvELj^ zsSdtLG%H85*u5XmkfQwa&2al!6C@#uefsgtSxZ2EC!&Kpi(B9mhIFbCj%HFO%t4n` zYI2J-!5V%Cd(h!z0AR2|zT-%|;B^GTLqLw6*^CZhtM-oW@+e@zsvtFH<#)J+*(ZCm z#eYm=VW0FCtEaL7pY%(_RAlWmJD=~4n3V@jR7&q1IXgF>n&pD+F@ae>nJexc&yIf5 zUu5IiwNK(i>v-0^ao4+(z3}KX?!ToFMn; zUHJuh&RlM%n3euFg0$22NMcb1zUd1S5Kci_%zz~@1~)WvIyoHm%E@@N7#X=71P}>I z)6X>XC6K4&Z%2yHl?Xf_g&WQ#MmwJJ2NJdJBoii z&L>3yw|wO==a6R6JVc+^0gUNg(P)I?eT28VJcp%MN87@3^Oesb^qv=xiSU?w>~3H& z+P=_>ZG`|J`U9NX1K4f=_}w3b)*fJC8vv}cY1oC-=K|F~KJnRn-ejZ(!94y`tpnQ1 zU~=AMkqXHNDfv#3EfncuO25h> z9@vTGQ$-=jy^oR)6@?+Wl9CQYf#oZAAnCDURC6o^^mHel@W#9Sruqxp>JQjS)+llz z&jq5ObVXV`eMNAWah`_oEJQ{rz5WRqNN@0; zP-)NlpT$-dv|;9ZKKaVzW8lB%UnpCo_Rtv}8Y#1YXBgpp6d7$rP}>5$iKaK}sf2{5 zk1(D+MSq4{gf|zC0xp-}ba;A{;4<)p^bTNX>uMVp%L#2n0^*M^+Cy-F-faN97mniy ziHA=206g@Ao4_yO8>#^@2f*y#Zvr?T1h5I!fcTL+Rc;Xa_ks`{fWE}iMl>gB+YJCO z-*OYcy*B{7cXOkr1HjfsW@Z1IPz<~Q#rT^AOm_o7q~G>#-~C=}UA0y591nGD-%guy z=mv;q-@A!d|GWX<4J8e;Q14PNqM7(qZ0IR-<2>T5H6gS!0P(Kli zZUD$jLVV_*AjY*pkfYV?8nJ&@LJS2xuS9<2^U?hYEYFaclxxN?JVlfwEo|TM zms{F5cQnQbW`S*>g4YL@f5`!Cd@hhDOvN^@`;zo?Wl;hmTJ2g)9lkYFl~pFSux;)U z>>%KJ64z*4-Eh5gSkQlt>oTqf=^58iTqkk;jO%w?&A7ro74)5OCEyx_YX+`$xL&~Z zE-stpGeLh0iHo@Mkyhgxfa`HwcOmZ)T(2Pg6Rv%@LO&Pu{cughbr-I3TyNkyg6mgY zkw*pnU|hMlR^fUS*LGZA;Ocrz(Eow^DBS1Z+Hg#;>D@@2!3EX?|5W1W(P~XdXxQl1 zKW%u2j=G3QNgvgzv!P4ZZqeOiVq)WBdi0D>=+!&XXzbIsU%!4yN&WjJCnpaWkdiWR z(BQ#ChKj?6kGN&z$dRMO8*Kv^23j)@oMTrHM`9}>{K#lF^wYcHV|wA!ZsHRrw(HZs z<6+@veZ+&~S?Om}2i!Lv))>V;@ij}?^x5QyOl&H^B4n`%mZ6@9Xu*OyehX{{@An-Z1s=HV_j*YC!5ciE`8>?pZ%Oug@_E2!6 zhWmtZ^a2hZZXO{VBzzp(e{7holmjDpA{aayY@Xws0THwTPaogX_eZDNZJ}7-Z^HTl zOK8}z7a-DYF{Utwj9ASi@igu{OTR}Ej-V$Ck?c=EgrV+33EXTr^M z!p-v!*mpqdXVT!?68+$;RrfNE5U< zpBzq2k6SPgha+IIVQl=|NJnA})gVgmFOS6PbdZ6K6D4#8)~Q{B%W8_g3`^t8lWU8F z{5(!+ASi*XTBlhV#cMElJKL{_Ya@N50EXi*L#YtX6wIj5t5tJH5^=f6Zyd~#Etp4U z_o9U$CnP`)*_8P_a6FoO>I;;^Cbs=}Z>^R>c9m6itl@ZyxMncxc;Y^B*{$2lP7G7^ z95%*JTb(!BtlTjH@=%BGT7>4p4Xb=Lh}C_Ole+-9@R33@;KOcY@KzV~BFE29w*-zY z=J|cLhT+Exu;9_l4}qtUtBI5Bn?4We?9zR19ckYH$0@d+RM?(ltG>ENl zTRx*AAH#l#LNt$mOAP+2;V1i$Q^L|w+Ea=CkCyA$;V+X5t@F4CcB+5NqkL9v7@}@V zj$2X#mWX8-{7i%34kAx(J{I>M3?aiehuoXk2sbPH!9BieN#O3Xi?pQuO^c0`&X&KU zT8NGEy2?7Az4`S(+kkQt;#Mw6QCPpx{s5wjjZ)^9li+?sEC+%$5UZhfm(BG#^C(K= zGK4^sN>%}-Y@WlTpRsNy$GRoFwH2sUox0~CFmxmwvH0<*qP!a6IH%wjqI$60 z%ffoECjBZzMD}Ka6e0luC+0##0BI1d|4l5#0#U$86}X3h6QWhm5lsqWQW=@6F2QCk z;B12{oOX)Z*fuK2HceWDHMt$z(!i$nY@3P+vz2YD?+>!N*8k*~ zw#arK881&?I{a7ondmcM32^)vC={?8md~!h7Jzx8w8t$skr+ukOE%X+uHfXV3QfHx zl^CeE(C?p9ze}ZO>D^Av-piR)ngmx$l_dq<41K^4)RDYd`jV5j^$|RWhXcVQwA+qS zo_FyxmbAe-2`<1oKIFBYa^zAd5rTlS@dYf+F2S@|aGZ{(>MS9$d8N0zY_`Dl9A1-+ zSTw9kC1koXRL*RRD?@ZB8%`rm+D-oHBjI)h#ZUHs592FxY3#9FEJ z-4-kgN`I9~c7a%V`kc~FrPBLhy35z$ct;jCclI|P<%2h|)*1;`yfBig)?!~7{x#YM zKzJ5hoeAW4Pprw4vYMoiYjSBXF-6JuYf7(%0{|r-KI0p|EdGg7^8Uo^IaX678Z@~* zR#FiN!fiZ}_&xAlYs04rXkLG_9baNe;JH&|>ECs+eND^`ZWCdXfKWh&AMgjPualrW zLQ^^A9w#-GlsoC0xLSW-PWgY+m-Q+eIy0Zg(R_^F70TTwe&U-la`xizd*<+d>>7Sg zTOXp6qLcl72!C8aB58^bc4;xtz}rl@r*)(_L-T z?00Iu=iQd6!oJ@IgM2uEl=fivU}AtlBiFW{kK3!f`#=jH60`@nx?Agr2hSC2vET2b zgMJzgheuIQnh&2E*zOpAJ{x)_UQ8RpW}cajZIPGGB&T4JI5Xc86|^hFenf%68yRqS zy`0Fq7u)K}KaR4-GsQN)rBq_1lSky*p$$iT2M1>|DV2WyTR9?4_Hdu8oQ_~D2ERD|1T3P1%vb)O&@$M4*;zUxkyk=tY0WIbyr-K|( zH4`?GN_6hVkKnv-J+_2aV>My+y-V9pc}mSUI9iVHTBer;GLlr%&a#UV$G)v5dO-BEG`|QIb)Q5`B6Lvn_Z3f>PjM99)i6n0+SYFgxn@^RGf?FCQ6c~kUM-F;F10Nkoi*SX+Z6= z`$@XGYfFGO?@q^kE7kXhfwADe5CkBapMzL&njfR6h?l82T3{n-qioKob>y51<3>vK zGUqxJlS*z!9-6BHK2JgGdj#&cBY*?mikA-X#WNHM;tRze_8~N&NyBNd_|%230MO!r)>zlMJ>p+aN;?WL5gtUOHB5}Sl7muN zDajwOU~4fDZ|#qg`Cr6aFQjkVdZ!dqub;OjKkuW+;Kv&k;8{zP3ux^XCDz=91C6HpN&l&-9oH(^{CuHore9`^J7C-eB8eqi<2ST{Sik|LCo+D_fVUK-p} z5Z;UQ#IjZ1Xw`I9?(HQ$*O$HJjZxLGTCY)z>&MP}`-r#nWnIptjUI^l;)oX74fXc1 z;}~8fz8m$IM|yL;A%X3os2*(HxdDS;#pj!_U4?0m7L%8cm1$jBn%w-NFamSn&`can zNv-EU*w^QtROPXizfM+(Z1=A-RkK;-`QlDv{oXXs93ab^S)e?Z$X+_%M;!SRt35v* z@ZEk(1Z3)O7F7g$_cu$_>)4khHxt|gc{A}jh2HFz3w^|we_-=3ycpJ#4zw)q$<)7B zbqRV3bVMB;0EjNEj9}mV-n%z_DG?eMUX4n)3e3v3k1?>O8j~FRqG?5Z?4+9Yyf~ji zk2YQ0f$4Ynr6sD@+2fZkiXZe~&i~vkX47r__ECR~P>p@0!RI^TKabqH&r_h>hqebF z`ElfL@STS8oLQ(M&2H8E)=^+}Up;&Maza-N6b!8EMHF!8pWX|U7o*sBmlHc2PJs7C zgR@wBSjWb}x?1vVDD&Z{cdTO%_ejY|z!@tbA)SHmuzqy=8o=y#+`25@=wOJ|B!C6uiYF3u$*mGCAb>8P_3SWmHD*K8SKA+BS5m?RDfgNW{ zQ;*K1NMBz^=DQk$&WO3z7bK-$Gj;TK;CzEQzluG0EqUl`=+@SKLM@D|JL-JCZR@YY zABSr>E;}wkrB?`dA8 z5|s!xxCI|A;4-u3JvOf;Sv(cNwzkA;PazNA@OqEE-7-v!)3P%yy~QL03-u+5<2th; zzDHFX;nBTCEP0h(^$m-#qf(r9;~tq;A0MMi6Z>^}e4WbJ{}K47aDY~>Q@;K;3_}=m zpW_ZaGXm>eTKFT&fPlZ`eMVYvj)$#j5{)6zL*Sit_1+pe_Qz;fRoX^~%8 zmx4ymGy^h@`_^K9;iD=#x3G?L=vI6f1W_DZ6Bn47@9)uiWkM`aLS?{cOMqp--tok- zhmYtdL1DPWI=C##=C;h^bYX~BOFPBFqr4KRsc6N44NMGM9L%Ond=Ks|>Th_l2sYp( zthisTiV?rmS3IRw)f(s@Im1f?XT)NBC*Y(-c=rmcMrDd`j07Q^mBEucKjV~X<5#`b zEw_GGm{Cxf+sV8B{ zqbInw!xV+p-;dAxdR8T}YItzKK)(|Qa-kEaAv7H7ieHP-8^-nM<`%lo39Q zpk31k#kG)0RQ&@T6stpN__A;i-yfACJ2OoFkBRBpQ%uyhl^Rfdh62;Xy5cG{FbUKG z1)|ZoLo6tn0g`uq9Io1@>IP+(Z>A`?Tqtxp>m3bll%8Z!mwVX|=tj;jii)e!1bkoO zQ4*>=3L^nRY65pTw>iXS{9jIB%}4O%I@Az6g;h--5SYHp1Z7dy6Q{7w2To!2w5Ou_ zY@czuzkcy3*#QU2%=r4|H5{C4=gvk)>xhvCv*U_(%~Wa#`~BO2sewaR8RWEcinXqc z>t&PM5x$qaoZO=rpkB)Sips)TF`)byo56{2F1Wy|a00L0(B=%}$0Gb+9>f9-C*iUL zSDM?E)s)&Kl_Kg5U&9SamP(Hy<&Va%;dx=O!9GR`j&;`vfL} zTISd+;+%Q~3~J$WHU;v#_hjOr5$?gb!r^V+FpMyq} zr`>sRnc@ybVVy@%@+0+5?$QAv$>iyw=}V^p8-@6U!c| zcpySGSPXlxVrPWPC@wiy(Ga1U+kKfoCeg9SNbJLR61V}PeD0~35vdx7nYrTONL5nL zFZpg8ou$uB%{0y;AZbeqhM_rEnY*jv%ShGI3HgBGdQfpbLmE))M|A{EKx{KTpcX!( zxp`riO?j{^^Oe zmnyWKRW&`Z$WN`dbPC@*Kc7zD#+j98;5p$K=T+}aF+iJ&_K=F{T~v4XkF|F64TqCv z68^ax??m{fBM(dnMZo^lfvlK6Z0$$URFEz+{_V5ij-`)c zz>rsUt|BT%H9~A|tjLK`^-R6xa*oDC+fpS9Yr&h;{rt1o2FOZ2r0+9i1u@K|A#gWG z$xn+{SDcJd4K>DEqkJRrp`7*Scx7@mrYMN(kOSEe*U2V10}@*?Bv#eO*2UU`o?Zt| ze>9ssQyI=9nf1IBNAoDYh)2#aLensp9hw8~Yd-_&SRc^f~w)+Yn7^3}X z4jRBspAQiSEzG`b>La=eP0|iin3Q$MeTt*QzbyA0LcM$)Yn{^&LN`6hb-$*+**G)L zrHLwVW+y4L-sPV{yqsNFfujeVr{*}uR$`4RZW`w}6DA)Xa42}@;F5H27(VRbvL!5& zMhhV?{)hWnbN&xwZvxlkvHcHco&<;xNz?#QQKCjgK}A7DK?Tu(8><9c#ifgvVyhGr zu~i8eQNv?eyV&VoyYG9iptcsoic4?Ru6DVtU2c6WwZ)~1OU?g#<_U=Hy}$R>&qJPP z_BnIr%$YOioH>T@%+_myT2mU!kEAp$H*!-9>%$XbSj2?bA=$S4BA+gl>U`z(_BtWc zdl+q(GZH3<1EEbcC~|>*`UE(t(5&g5xSynpyefwEx@jR8tn!TZ=8cyR$frHuhs2$d z51|PVfa-nIu4!62H7)&`rlq&0>_yXdFE_Uf*bN(u`@Mz@X(_wQ&wv@?3zH->2yE6& zxlC8fQhUR&xC%XO=>nH6y3`3Smi}ZFz=L}{4Y_$Gn-B$x{sFn~GwmP=BOKG#!q55q zj)Bb+BP2*R%xC<5w{gQTB3+dhjd9ZeycGgjY%nRDD`zJ_l-whw(e0d`>t7M;UlH$* zSO>kqmSowU1b7bcrD{^XTM?}Fr+im&u?T76{VQ~E(nb!gfTr=@$|U~^o0?S_^qK&& zj9@#gRBT>*0#?juQcgv0hfW62UA1XVNQd;B> zjFX#E4lf_HmjhVAek>?%wp-i?^;2L;8dxSMa$sTwUP;IbU!T~Y z7(8xU*X3A`OS={+;vzB7n9Nvzj!mwx8Mo>$xz~So0P7=F5iP0fbAFDYR|6 zv1Sj2ru)5_Hk?cvw}pB$ks8OPuMo=!F~}ECFC`NJop(XW`KC5B$r(IX`1^zrnlrXg zUZ#_$>OJ+xP>u#P)@6=!MHec^rlP-7qmfU$7q`b1pKFqw(Q?sD`GD_s7Qni8r_vwg zysZajA0jR^=VZXs+RwUj$Hj>NIm|b^1i;J zOQ0`4gDD@Frt@aUDy{E}7M~!t+~a4iaPVDX@z$NV8$r;|U+(eiVC}fT&=Q7P{kWuQ zOOvN5OwQINevByN{kwf;(q7Zx;z;F(5%Bv6w1tv-Q0QXsoM7)%jWP^err5i9GxUlT zA7Bl<83rnMltVEhz~Rj>DZ%YAW^BE);e|e0Yo8+LnNtq0i1STu^QN2OS8FO{(3lCH z4|M6`1Rn1x*rprTeg))PFn4}&2Vx$DVro0sfxrfGwggA&B_`wg*U(xF0_m;aI5wRx|%)dt&BtClM$ z)Z(9R^OnbgN=)#s!F_L3lwBRHaw|$m+>f!kTEMmW)x6#{x|Xiccxxt&H*DFa!dhSN zN8gM!HvqRm`#OB2{>6v6>P*_9dr%i)d8gGoYE;qIaDH~cikMreSqDfVR zB@ojIt03l;lK&nW2=RqIKCb(xEfY(435daqef*Qo@T+x`U z?;rt|ZgY`0Sb0HZwQ-#Q?hc^j=Z`FaCs(o3dwxx#`IZV#dH^E{v(N)FY5|!;31S)O zDQCN5tHx{woB*gZ%An;nW@Oy~nFgVI^f`R}z z_oyl4Y`95`15F%1zcnLLq;m`~)vU7%>~> zm=%S@Z_EnDXY9r-C{M+Dvv6f_vfKs=5#r6I%WO>f-c0fvHFIO84L?a6GY4W27Fa*>e?9GhFSF|@Xp&0Aw?8N8q-mIQht%cr;G7s zCLw8T)+fib&2AjjWF{+5qc$8P!9N|Afn*e56skdi#bdhboHr-6C89Z#riZ3EGgj{=x{C{X9tj`G-pD-4=|q+yK)^+=K3P#esHgtyZDHQ zA7sqVbRDh5@OKPO*_>jxl+$GZm2XP$C|A;+*7Yg41C4tSc~j1g*5*tBafcCMB++;~ zX#9ft?xvEym~}c2mb?O4yW*x{>KA2g=W$%NS^Kg)H{08l-V9!3}@%96dU}$g@`q&4xd5Q19$B z-P4xioa$-Iccy_Iai)0MX3@z6dg>CPYR z)nJpPeR8mSqd`KvrxG{KICQQo`B0%eJh15WsBLUK5d!5N-O$O^7pl;Z<>S71P2HcT`>dY7JUn8iVOnj_a&{g#{x=4ComD3IlPW;2W)-B$4PeSt+{> za-Kz=X7ZYC0j)1MO`^pEtjkk0{e)eqxky!*8zL;T$z`O@6)Mj%cp8J`FIy5*Lm(pk zx+N|(6o#dBQ-ilhpsk*^Ft8ifooq1!!`lpk+t9Xz$X{-U;16^d8jt|0dqpTVVM(CT z1XYI)&dMfMU!uO2N62tG7XUz1CjdlE_BwQ)OF`wa@*0EOSNoMuHy$eip}uk5=g3(* zGuE`xU`b19EwxsWyD!gvAS%WcoT_gzBaCVkyH`nS$b3{z*~M5;@4IvPehgI z@Bc?K(Jr0KA>)?J|DQ#=&4Ds|2FCF3J;tiA(GZ0mVz{C`jXJF1CJYgHie#e`@iAkyOYUoDyot=W$%;7BZoI$>|OPPrFM$ZZwm=Mym7YCe_|s=FqG;uXaWVN z2TK0$I0DM72gp!9ik3}qV}aI`TTu8foeQUAZmIz;)d}_fuOaI^2zpN=F;ZkJtT)#D zTMR-c@Am+v-t((LPKWmq2e}_90$uH!CFki^M);l zAK7WDMNXE-$_Kqgy1XlpS3k@38^yzy z+h}=mw9fz`m)Yk|+6Pw%o=O}?^@d@+U7uT|^hFktSCElCmKh+|zgb$oB2-6Fpw}H( zuA(^TXG0hvbXaMaL-`%7C=nA72Y5Vc!)>?gQJ@?`AO%^+RPf~l;iw5Cm|}Nh7JvXj z;7yajO!lhMYL9XG3lPY#(O{yEM<(vq9@aKvmeM48oGNtMOtn+O zO&fLH(o+tVpH*3BTt%|n=~-jaII}RbjEmivTAi+;3QVrQO{{3NTE=w6lB30Pp^yu8 zv{fxr#34q982?y@l7L9C-42DWmhcG4JN*93;kAd6^4!N8&9ow^Sw9SHLvTM;;DiXR zhX0gvQwK8VNV(V~&$2-81+ao+<4UWnty&orB9wDK1b+aCSv^G75V zrT|z_vV3V*e1@t05#~z|5^E@cou`uF+QNavhT`Z>4p!SllQ5i&2sY|M(Zu%8kZV6} zfzMeMO3?RjG^R%<1nx0e?kh-l^#4c(F$68D9qIJb0twBVI~Jd73q*0_DnWcVQ%9%L zh9E>pfCSp{YCe{&!GK2U0kjl9QT2zAqavG zy5H$4XG4q}QS^3JTd&R3`I5ThmZMCkgEMv8x4_@MG#O%2R@g9)?Ir&fsphF%?$qvJyy$iuWF3nz730=NRywAHoJukzHXD|D)6mD`ZlRzuU(Vw{3KB`#Vl(_?GC z0!AN(Ar78(A-ZmbCl#R1xx}JPPGCM4}_VMe+ zv4^CKt^Djbw%NK7wR!efAe%|RodD!dl#Uv$G(ZJ~N~x7UGoB5T!g}#f#A`QGh~vY_z4@aPS&YOE z^7kgP8+ln8OOzhEmp_}vhDv?z=SR|TF1nW&rnBY752!AZ$#lmGcf6E;kG6KkD5y+;uG#Ve?egvLhB#H z*NzYI$2fC0p&C6X{jFd4uanti>B?rFkb(2)Kkwm-GMIJ5lFjXRR0&oQF4Dx72bOep zyWHlMh1%22P% z4-%NtFMHQM$}eZIFQurv`4>~zVClEJ9+=8(efHf2sV$Za`4?g!<)is|`Nmhyv%Dj} zDX-qe)2Bjv=bpQG@l+PY&)V5a=`EQr&1APg>*i=CJ1ZRvulp#A9b#+&e|$Q-&!&YQ zPp&fcM`+v8D>|Q`jHR#sP^uGOLw@9iGjK3J?_K`Z3^q;b_AdW(2200L{-l{WH9p1{ z&SbAk{1Wdr3*dL}IEzI%95v{Q zxbR4BgkX0LF&3VkN0CV598Z^Emb9QrMS;sMV}GK-*Aop8LN8e;)z1g~f{TcN>7Z^9 zQFThk{M}uX)4`{daKP+DwS--#Pn_0gdXJ<5ZTPN@bK9KwGac{YYjIz*dodQB46fU z{n-+JuY--~U%XnY(VoFXN%^B(bnH43?^)x1E7a~S#b{@&=07@^Q~KjAeq9k8B(3Yt ztBaU<0^JqVBFvZKf^kJwn~tcD^5k1$(s>$8MU5@`TrqpVes(FKNZKmW@60dw$3<*_ zRP+`w@w{M#ZH6?q=pNVF8C=a$4^5>jDrf6kZ8 z0gxWMlY8f|9BJmAbzjY42F4=!@$1+XX~VPp`1LGBdiW)7o6F{~D!yheyNz|{Epu5M z`O=ql$ z$KnDrzNs4H@Sr!&>Uh}#_KMV2&igK8!?cGHkiC%g=~8v4R?{+0QSRW*h0HDWE9ZYK zWb33YxARqtSU;)!cK-MxW;YMT-EDAsZA*&#wjkH1o0zNgy`8r$VmC@3ui(WuuzmyT zaVl5d3oa*u8t|suHgS52Sd$y~rp+wepeGgC62Y&>t{sh!VEx8v7`=O(-ZRHh^N z?TfT2c(&jvUdT)`p11J)il^Tq9()rkmfl>-Z@!5+*ggE+n^+%{2eo3wqNX-si!z0u zxQV?l&3=l%bTh{6zQ_5co7pC5!>!!A7#*0(_btXKyvJJ?vm011Uhog*WI=r2KR{W& ze3B0=Vebq09xq`-)UhiwD6>D{y>0>Zf0RFd3*dj`q=tWV3$serTX^d&!2j;S9EVVg zK!cW+vZvhb8yaZ16+vb%eNHXyP6M8W^h@=DV>vk(Ni~#IQw7CGe^sT#u#*BaZ`XBU#=0?-ZEWXM z&Tk-384Dktw0DZZu8I9+!-TG*62pnLDAUvShq0y=FAx|^g8x7M?LE2?{I>^n26wIt ztvY~vj>48%n!pQ5IM&V;gfLG97J7+gG*M`rSk$J7Yuc^Gb^DPM(cpj^ zMLz%o6ZOSvtQmoAjXa55G#=3Im(7O+Py#)5{vz`)ma?vHEhQr0qtV8?R&-YGu04+u zvHRDbcoDJ$>{wk7$m2R{pwdmQ(SDZ&O^nW^App+iJb-erbeKs{M~-6TspM`?uLX~X zi|ux++dKG`*J#c{fkLB6a!vQR4GVE~%~+AzQcdR~Qf;OwwcHh2@~hV+h&lvXphLV%-(Kl?(>Zc&|8Bu@_ZwHbr2}r zWHT^%Y5)pqmc0UiowK3eUenb+TNZfqOx`QbzDkyYDI_X=-7ev9mOs3V^@`ZX(Z1}f zJY$>UIIiLQm$A$cS{`CAYj{K%8^KI`Y8e~C%gWd|$@2?;xr}X&9x14j88oTnNm^T% zVUl!qnY-H~_>G+EaD^93kjU}l-Y z{FQpH1XZl^+y2>bJ4i6XP;;r|{}^~|Zka3sN+@}0a3E~B2=k9#jTNdRuxE+>92P7? ziG_ZG;!14z^&e5|aCY;mRYJ}0Gr0{e+#=-kmw&+ z?Sy-9XxZw3izLPMHs9`Kxzd0wJj})Vg&jk2h2Av=W$b1?*2S^~{oLqc$y$sPZ*s9b zb27T;xg^ym;1{k;fxs)4^Vk(E#)u2&AzM**7E0Fl+_8cU>E28{qq3nM;|Wf_B<-Az z-?M^6i}K!B!OTNxq~xPuVWz3q&4YSTBiY>@jkM#8256kX-v_vONCoSz{q+wWkFH>{ zG^q=Jv4Rz_h5XM7uv`w%n zeTF-*_i0>(aJT zuq#Jb@^9{BxAt9%&k8)d@NB|Uh37#$&*1rVC11P>mBsUWS3!T_gTVp{3I2+B*2VM5YuI(B`0cO_(cqQ|U{$=5xSqef zhQ*uW<$s}HpvxL>>OQE-@Z)Px(9gU}CAyi%hg7l^sCjE8TRSK|SNQ@WXF7YQnS^V2 zSHvrY(1-&Ik4>&w;|!5se!gZ_^ZwVg$(K@ykZ!fLovujvhP`sQVH}a3Z*N)=f)UdON8CuOhUC;UtSpbAB zR9b-)DzS0e;*}q+`TCT;0F{^xth&q58UgEfYxs*Bn5S1RJ}2Xuk0%AsG(1Ik?yae_ zZ^ZDU*SC1tESAjcykKv3@$bAW15F-K%a+B&D{Ykk0TvSrEv^Vcfil*--1aO_)UY z*}06*5oyh^QAvhw&v@7a^$hGl9m+OrM*#k6=oX;Hs^vCFh=<_r68`NbsA4bWe{O=} z@szqmA6v=TJ$0|#1+*Tr1@MCQ<$BZypg@KUwWd4h<9U2QD&bI;&=;mb>}G8L^7ypP zz_)$ewHZi_#^1w6qA%$y(U+X~y8L?p4g^1NFWb~NUV9QJl?jRavDt$@<4i@bRKVuN zzubzo_%WV#AB&XsPU3U!W0Q5M9(QWpL3)6H^S zAtk>GN?OuNgcP%INP*!0a!VAx<^k5z4Jot%=MOla^S9hCPR5-BCSc>JaYj#I^b;|m zD}L6Hzl8%a0>|aHmP{eNi}qC77?dGw4&`pq1AR*uoL}zM*!*^@oNa~PM2g+E0_tH7 zWoaNmC?(M08fc`bjFuhqV=;xIbKCX#a0``kf4*oU_V5SHFP58>wopYjk`-CcayLqMgC{Mm=t7@)*A4`El< z#z#NQu4j+&%@4EdSO)*)VKxu6BJ&Y3PnJERW_SdX=w`m}5jL>vB#<1x9d|R~AUBm? zd;~NlmG^p-#Si-#J?n@u8}B}gAqPaTJS#G7uxTZAC~sg0{Mo5|`J?Q*t_wS7;a@(= zdZVyE9%Y4j5+t(%bzta^^ZAmVU?v^Pqj;^@g3S<~mjF<9Xv_%-&ta&)*^Y5tS4vKk=TAvw`e4 zKIw55k177d629zl)(3BuOZaArs^HrmXTuOMcnLp_M8ipfP0@bA4{k*-zu~90vRHKE zR0;3%B+J3u_=`^g z7w7RKPr;xq4A+?hk;rec4H!XMTPv}5K@eO6D8qQd)9BxKJo{-DjplB>fiHcUP3e6n zE;gv%L*+G<4gog8ra~+;I6vb5dYbhTbd0wkQ&cL@<4wVxMnm5!K)jBf;vYTDdaB7% zo?$)1f&XC60@07~8=hgfDTTlE3>y?na&cI^IjnLx#O6db3^)jS0MiEKP*4@22Vv!J zKF6Zm#h|PJkxJ#NTy_2xR{x4+|hE#0=lcS zV+V2ASl2k;8B|Y7&+SScDt{=NQ)(sdso9>4X#5DBp1t-Q&E8@dKBBT_do&^tW1}Bs z2#JHUp}huybTk632sCbE-e8bH&%}9NyT#Q7hKbm+py`f)=15?5Q)VJD4LX{^zkZf2 zNrWhn3eW`lXsn^r6;;V1+;d^Ial=@k2^_CJ_`F!u7vhJfuEba*qYZzlHr=7T$zOSn zMYH?){^!`h9<(^X7)xvmgB_v@&YlNqZRLHQ2W_(Q3D2{^p>3)rPrZ)uNiQPy6JATf zF9(8y0>SI~7YJtax&L{r-{ZLL1$=emGhe{hul)8Gu#_I;_fp`~e8&q|Q7hCy2M>7> zfy4QT7ZE7&x%le-l@J~4>J0$;eAww;Wc>aYnJxPnHJr{Mnw0bE2QFpz$D!kco?)gg zcpiP0nSf0uE5anafASnNrQ`bq-gEHG$M-++J?eQL{1Ur&s8E2Qoy=d*?p-lM|BiMZ zaqx8&?f$aFIRn``Eper^6*7Q9j8=Zm5UUzp_ho6e8$iQJK}?Usi+Wma#hwvzIu~i; zb%Y`zrhpoGZmNBX)%9Tsk^d6P0*Cdm>L6jwOzdUSbubFkyNr248xFW6Ox&)yC|>ke zok1^PO}ILPp!9C6X+lMwHk)zX4!n@3tLLeSj@XpxW~1j3y!+D8t^^@xx#a3ALnjhy zBk^b=;xyo!?Pf8P0zElhF|@NNCeUS}AEKAto%$F^|A#A9hIl6{*mEJm6)vZtE`u-K zC}MHZgxye2(@cEEO*b`O(3Tjmu}II$S7ucMAbzw0uI)~MNZk*b2)cF-@115dE@;E> zK~{loSM#S{VSU`Q)bRvwfXjv;rA7hc)u8H19T5drfl&6+Pe{G@uH~+%T6<1v$nwE3 zU8|ikGHc_Mk<+f&b6TP%3_f)Gt;U)sQ2}3d#5D8!8tfuS2l>C8Z#fuffo6k{b+p_syE{* zlU?1>ua0sl-UYFEQz`U5E0w_d5Lf_r;hPBgV*Fl(3;*<0a6r9z|JRr;E?x_jDUIAL z7waJS%ks2^7&j0$K%o51D-4@SUp2nU0NfAx?XR&J5Kq7N8n~Qde(W`{-4nV0H8$8C zxsPzmfaBQe#a2-2%R-JCgaYdEED8M5_rrnrMEp{d1m_`V+9qhyaB4jiK1gBP=&y+O zSHvm_?*Yk*tRSzoSTVg7&?AY4ZiPS7N=r^xObT3l2P^OoC##(kf7?~|vMo4W{u?c> z#HtBw7&pnz4?SEFHmaA~D+15FR(Hu>!9L~nij@Ut@nK^-)} zxPBVS0EZGI7AO6Q415Y-eJx*$`^j5A-AQw~!^aKA7Oha9Y~3VP@&HXLsJQKvoH(%?B}#G9v~3qIZk zldZ0oC;o->=R8F4;bkPl&qLp2(Y>d4E>!O! z{5N4z36%@0aoa(4i8iixpsQG>e-LI8`W8}N+!zhz5vvdubbVRP1Nhb?T;cuR0Jd*X zgFOEJu0B^+?b}BS+6aPDPaF?vA!38U$P_brfpHf|i%KK|LhJ|K1#G{=BA9{Eo;zQ+{Y30;p-39Jn9%GU+_#(%Qm*i&DaMO*-~B?!^7 zu4QmXqPq(C8~1WV9;&Kzv4iGA_58N9Fi>9!&Yt!jF+KV*<6nKIk z&49lxT@CFTn^dG?xfBI=;k0q|m&GbSj1q&>B({*j6mnz~U$c$Hj{AqOGSr>3Phk#N z6VLfrSQGdA3^ivbU}C|H2`VPBDOqN+ke}ZaAkq!r@^806qoM2_9LB7OKl3a!r5vOd z5UUJ!UcrnM(t2@t>>zyyvv;~~dm5T5SH}C^vAuw|>gEUWSL8$m&@P6Q9xCQ`TW;Qv z$!34KNuCUyR&)d=Kx9}fPGVJxAb;hMPZh~p*|cjRMoHG-#w3y)oAdd@b*!@6y3sVL z=V2HY%=a?rjPNe+f`eJehrSEWsGd)Mmz4uO-g}qzjL1MzQd)P`)0DU@xJuV%O@Q#qWNPMfG{^9b9S} z6bnLA*8s0gPAYsEOd?V45-V?dkIhV(LiH>wOGNwv5s$boRJL-W6|#rG7U%gX9;hKT5nGMq&tv6hb*ZWi#s6b35flj#d796uio>18`>+ma^%dJaxRAV zvMnT4a;2TiTw3KCFXx~2{GuZj`L-~3JZuWM8AB@$H)6!$hGe|IAyIrM}x-I6D~3(!N@Kse%e(IFLX*PiE3z%|<3+Q?$NhiiId zD2L!U4;Mxsg6_vpZ}6EnOFhjmA_yBTQxDY9(gRnuDN%j+hDNqnS~i{k-pC@Peedw# z-7Gc&2X~n5ftw)oq6J?U@{HYVyy0~Wqw2kG!$R)e&DQoIL{bdB$@2h2`?072Xo9^T zpfzSJk8OgVn4^>U;wGp?yf%;@Yhq)&sN?UfH*)J9X71PisbWY@S<58yq7MXCetT7n z8Nd8Jvy6JZC%Oc!A-KB{xRwe0%W)<)2t+SeHY3`zN~go6S6GHujHvHX$e-AQ1IrtG z@|}B_EuokS>tVeHhZm?g+@Fd*N(VI{j#hv)S^0fBH-5lI#l+GTexu=y=)xEr`T=~H z0kUql@pWuj5ylsOzdC z)A^#kXk^|Se9c}Qzk8ziBYW9G>B#GZ+Y$WFBP>MHM)BUwY_l|SB!9J;rA)_}xJmG< z$!KmWJw=M<4L~dh)Bz?+fg@7@aOg`Sv?BPm>S3B+dM04g3O0z4cBI zGUW~=#PJtFp*e%9Bq@&#mvvhBdmplxB)da-?>RJ{D81gxz%oZUl(-q4&AaK2$O0G! zU%+X5<~;fJh1~QnRww;4h423ti|xN^0J4Y4g&Jsk6S(55cW*{DbgBUV6h+G10lddY zY|u@KNQc2~>5}*{FyfD=!Lt0NSs16g28%@MotbpTM2Acl_E@*;W)ZY1 zF(v7lekXYs{{*}&-yD9#m=>)%GCR5=4N3Lq|%qQ2=c&aO=+ zS7FPV>I=Im*$iNboTfvZCWg+nb*?3HNU6?WriVZF=lExbf$d3M`NhL5sVh+Dk{zok ze$Uu>$`LlqY|wPiP~L~=z*tuhEV}UVR({uU*0X>k5PSfP{Y$%Gtn|uyWL0@L&#$wu zx{l8U>03x=oeSkA(F)pPpo*%2=CQ8&rabouMQQO+=0McOm;31pBPQNo-B+n~L1KrE%LVkxb1#em7?{r2MUz~=l3 zjTNTrqcO*X>Z@_XP`o18@*)Noj(&RM6QDH0hqVSuLmR>+E=;)d{n`OzwH8IkVjFuFX|eg$i^; zK^DkSbLR0UK4m=zM=MoaY(>eoei2O|Xk`eE7OkE8JwWiw=t2ulWKfg6N)B(g#N1BXD@!;3cV)SoWLFkM|>9bW7 zvt1?FndQW}bxG5yfq%1BX;32H_$`Zdn=!DMTibh}^`ceIt_v|!sj>hU zdlB#=ghMiz9V=m5)Et7B0DswmM52Mphe&O#D}?)szK!4OJ^O#U0Lx08fkkNK7$TaiZU@U2TfIf)N-t{jdk5uK z%&BO>i^if}(ZPZIqwknS`?FuePkhJz!K*%z^j$3AH=wqL?MCA`x8P`GHl28wEDQhXlI5 z{2u=G5A5Myov=!bOkh;DLi_3NA6d_9<3mxl3g_F@cuVi_&IL38^#cjUs|lh88tWoa z-FWb0?Q=mz;f^-q+A|Fw`4daF!h>o9#80JBMM^z>Ri5BOT!Qxuh7XKEo%bge#H4JT zV*ZD1>yDbmxD^65rj{#TT+r}2KeGmiKzkl%y<^+J;o4Kql>Z2oaBLO8a|kEPi%tO_ z_E3pUrBQ{-$D{bX<19Lo_KkVq{w z@#P9zIedyk*|mv~3Wk2o_HvXwTkvva%HZ=TYm<#UI%8^K`G4SdiT6CgW`+G+i^XglIH|h)3y(O-Vv~&< zK*0v7`bj;|6I?7`L@qI~J^|%z^b{#Ci7p!aE?P*fC=kcEu9GY^X4Pr5{Bw-)z3cIE z_{4T%Dxk^$TC=w+dUNj{XDzN;9TYqvrDko7!32LR}tv*bbxwS`+-*`O$NfSQk`{#cNFC~Pl2%9SI(^Ws(< zV;6EyD=b6q{GGqk%7zc0LTTZc3v_=aU{_YAB>#>sfXKp>@5nDSIEvjP8nXk)Wje*o zz4Vk~mVUAK4ySwpg$tP#s%ZUE&>lrJ zd5*Axv;zO&<_BaAMXMsR3ZNhgzKzm~^#%~FS}P#R7yYO;_n8_fr9DGtnOYSx4gHPl zPBUvBpi#ZQN~{up!+~EoiL=(_}%{ z+bafPEd?gMVFp;mW%VP&ibRMzl7wED7hnb%JnVC-F_X9lB z@V;1Krk;4Jk3%mW&wF@3g|y*#vheK1bLtm9{tV0NuKE)tf!1nUeBw#jvyk6^hK+M4 z&^Iibwfn>L=fCW|A3WUoFNp(_PY^BFjy$mkY_D%J6pmTN;KYwrL7IFJj)0VmDlsgk zT}YupM!5~ix8MV^yy(1AOM!9^%}cUJhkaNe-i3Hkh=II=g15sUB*5TLQ?)XfxfV2M zl!t0epogo1;r^cic-asZW6K1a8g;TFg_XOO735BH6xd3FN`PtptfM& z0Y;fr*;TFWTw~4M6i(d$-a!VP40aGI*f^9t115wn_5|W4DbIOCD`$H4Sg9ZDs2}cY zJM!r-q9CZ!I^AM(tXA=c>vj}vf$xHk0r@QrVy5j=RqxO}RBeVi4oXc>dupaO|A0na z7Dnyh&?iveP1MYT%H7D=E}TvOOYdi+0lUy>S|I>BwYa?)1CW~psJcvnFLP8y14$<%EF)xRR0Q|owy$UP#asRFC;OM^6YWm^8)J=y$ayzkiM$C0SS@78{B%F=U-q$M@)rK zZ8c!B#~ffuAT}leQ<*a8H~_dw+&2?oiSGYS;xAudDdX-8K%GhwOa({~e#_ucX6Mg{ z3osnI&J4%Wa^;DidCWytF8r_>sCVX4oUuQKMxt9gzz)C*AZSNCil;fJ?h&)gMSDOy z(63YfK^jah+@dfYZmG_@MwIIPa8%|Mvt$P4Yd~4;^#=O76S;PffU9Mc=fWSZMMb5d zl&SFl%(Q_rVMh4TsYmW0II6|BmpxyF<3c1`u-ASY!wDzJwQ^%HF#Oa-n8(iV!L65A zf9a()e99%3(dDyn;eBhOmv6qrdQ0hR_^X%Lz=+bHKz2yNWl$FMRfS_kefjZAY_yha zzG5zeErLxLAA6atjP5LS?@) zOz`7SSvf}Y#}164Nmq#+z{yV#NIBHm-KzZP#P@1jG;#@yKtI9fsXR?CvaBpqwg$2g zF|R&AcnA4}X|eaZa{0@}-aI5qFH=?_kq@>k2bFtJB2m+LLX^J{42N12GOJ5W1_pR} zxiaY(1X8SThPx{obE^%9q=uG3i)n&Zf28(01HGnRELZz|?mHwDM~2ut9#le55M3Hspu7i7&-R^*_=V`2X7PGS8lgS^g~aP6DPQ{(UbS$S%D!So;n_ z6umTD`z~I3c98}RMj8_?kQ8cJhOj?j0-Pe=g~Mnp0!^i1B_AU3;x5Q_6feAs)K7a1 zFFU(Pakf@uZwV<4Dmg34$yCcZ-we%ejq`?5eaU5{3=KsVJ=!olRI+H1g-;8WmTCZ32}O!a1b{Shkl?`gvqbTNcFPsb5kNj#zx!la1)SD5K%jbys_5>x;#Gt-@T z@5&_8&ws*N1aY@rV*DRrQl0_BNWKwg7b(4R>-L06Rnk!XVrU*{^Z-2m7s!fo{$>O` z2)bFSDU@5AafBHQ%_JrHL%uXz8pCq=v*FTe>EL&KfKi$cgTA#!={~9XMjmC7W=by( z<~N(9B`IaO{^b^B@nv#7pl>nAGc4!7l|RP~oV1I8)G5|;r|zt)zdVDey~Y1dH72^o zKT1iu%y?KgDMfnV2A2{Oh`*>A%$r82jsz7`me36(Sup{vRf33Te?EdUaMq3I4>aUVp zoj4*hp;);1X&@IrtAh7VNwUP*eVBUMk9@NsYJUb9w5{8xAw&HwlxuZT)FR`o#*Ikm zvokvM1<$0s`Zby}(*{!lj29YH4F0Rr!987UA5A#z=pjv(rX1i8_mJYvk!q$Skx6W| z_w23vs)ux+R{I9Vx-3eHW(nLEB@HNk7a&;R(|t=uois=C2pZ(RDlL^9@bnaye?jji zRz8|Wwv?VfLzWwAPP&X(u;3vcw@m8O*6nv)Fm6lmtz^PSo2GmK-0%GCZqf2SHps(4 zKDD2NW>`|NGpcyUxNWR2vpr>hk+RkT_makKpQOQy=O;geovyl6wY){>1t6Et5IK(g zHhFHMm0~v7jRVtBnw1tQDCE`5LNK+e`_6^v3p|z8hGkHTX1UIxjdD}BPL7^Dzorqe z2KAI;+zVy6v<}v|=8$dvMWMZEfaQ}jOLm*&!@isbr4WI#Qgd?UXn%!*@i6BqlY_{) z7v6CpuIUm@Ce2YoPH|@s#wis;w6u{_L(-ZGN}@%IZ@&;jIOpnU%tQ)kzoa$sebLfK z(zZ+d!9LP}ekSOfG@c0aTH3C&@(78f+s>!3I5rZse!981io-ZAmxF#QzLKG9W9%yqc z=9U*$2k8mqn#2kVve5cew0zth39g{}WV`{?@mM9GJ#09E#Td%HrYQ)9I`79i`@K!Ms!6)8BlGIyWLvY~R3vD;ywgSyX-Y-U40wXA24CvH;H2Q@YX*7F=e;XqW zidh1YIC%j2nkE9;ZLE0*Z-SI4ueUNjz$&fPUOdD23sz}T?~VKE*s8c5#6^RZ)ZC=v zBE4~AKgr^L7MzHDxHdR7%{3EpK|2~UO!XC`8<{%7**A5bv)44&>3m0t741b6qm{|f zb@Px`%-kls_EhJX*sC%5o=dSSB8y65+jAMN#=!w|Pnx$VGB!}=?;m%R=_pBP&-3Ng zQ2tv#sgHIgIFIoDlI%WXtPIj18SP08i;bU$ES9_K@r`{lypVRON)6UHM{kGFRFiVb zn0d+pP3{O}HfgT_wVFeQ49mWVG>AMQTf_0YF;l`}sQg9T;aWYpxtl5ZF*(kt ziL_T1d#@&wV81qWfMk>Uw(;Bn(y&E@kBi~QdNGOIqf)*t|HN}~s4JvVF{K=>fXcDB zA_9@jwIk(>Ya28`J&moN3xg|uGH&xGMMm^OVi! z`L_e4p4tzA3>ODTR_&*F>0^`PptL>BCfO3c!F--egIoWTc%yPqxts@&ldcF%0qYJR z62`39YpVYhnIE%Bz5Cz=xn%#qNXhhXJjHn2crHaqCe3~6b-noSHb9+F&^S=KL%hfX zrCwMYo*O7l7?umDIg}r-C!H%psi|bP_`Y#2yu!RI)T|IJ2tZMx@+UV9lJb*ZfjUWclu*rtdYDvh}%n?>+H5R4$i#8)M2oFx2;ExBJr%~YdW zrXw<;R+D<0t9xm9$qOQ`ArLn_HN(}zzua6>FM@jpf_p@voHSHF6L)=y7|nJ3qrp=D zyhpRCKK+R>GA|~-m?m^Fj#eownux=qNnJz|3u&yJELQ5fPV-~2(g3N;SspY*x=xySiZ2`@O)@%x=)x@C?2jNz z(btAZkzB0$f?EVPR1mGb00Bdo71X-iv z_F`Ao8G(dBIM_7>T&)RqQ~l%ll|0%N$rt5Q~ys)t)pAm4-^AB>wAADPeMM zo7z?n^+4~8_w1~vKDh?So_Fz!wrL$+4}~doh)D{Ldki@1jE185IgyFaiIc3-(v$qo zIH{LAA3puZfj4prHy^pB5-!L>=4|kmv`~y!=(Q14e-jF*dP$X^J~dfcIqbe8ugWOgx2(bVu83> zFE-;vzPnz*rl+NAz|Di|5X@M&b_!6+H_hy;BAoJ8S3#H9oBk^z>=Y3QT_-|Y5lR^7 za|ePqir}*dp57@jU6$!hZ$s!zgnD*|wwJP5L_jk38sJgB&iBCmU}CqwgpaG&HP=;( z8uFo=iS~FJCGX_R)feb~6`bj;FGB|30~$9(GT!yK;zM4)8h^d(SBm$I;(eWXe^9(r z4f6VD#QRqKg^ag(J&xuybIo8b)|0e_-sbzViqpKIKAdZ}O)Nj%J~DtMt&sZdR)a>Y8CkqZ4ov|p~C9>B_$?!Fx&qaC2Aw@uQR&b&`jBiVnQv2?qzEFwH>p#Wc zd3b2wrhd)krX;C%T;E{y%wKGiOndO;qjeQ{4&%}2AkdI>9sh89Q<7wjZ9pk1$=1QX zNUkE>x%v$%SB(JJQSj=nl9@l7B=t|EEGir+v3D&kN40Ayovk&rF@K|YReo3P(L{rr z_{AhCI_7s;+;mMZ61a%Kx^z`p1NC&8uUEeMmGRM|C3`P5QA?x>RV2wCsCN`9cOrhv zXfS9;Q4jsg+nXMuQ3!JYw-+RseH^c(S01gRq+*%cu)jC$Ix(>4QMCu)G$r#}S*4=&yG1`^QM>(a4467Me2()WM-C zi31M!q|L*3*Pr>RF;cD+Ka^*Tl?L~E9BsrYk!uMq+KxMd3-P${gJ4|u9bY$A>L0fc z@n9K)9i5$-!R0LZN{Ey*lHjJ?H(8$t*Y+lUWULh7h6$a%YAb>HckldId9u!PtS#;^ z(&SPag#_?e*gOX%q0&c4-H%vi?0(Ewb2i%{>BGHP*&!m8THS-F4o4C&8c++}mk&)I zhd0}#Jf#*&S0oK?f)kgyO`E}%nfl;~!jp)HzCXp&Kk)EP$F~NLggOB0}*$C7;5By zDIY^xN1Rn>$OKlvDtAb*t1Iq|;NhuKu=M!_9+@iL*n?U;58H0yGq9OV1+e(0RB5~v ze4Ot?0zCmQ&pSuQ6DLR>Y3c=DKS4@~p=^*$$-5oCG8Pc)#O=+^2e3>^^gns`iBhUG zv5x0XlqNd*eurHEo%~|kv)>tos|I0UPP;LrHY>T`67@4TCGPJWIzAAp_5{5b*KCoA z%37KW-r9Zqr-|4K4C}+YO_E|}tbR?93sspHndJ1@rQvzrYN1kF-Jw!j_&rm_ycFN{ z@A0D%&v#Cf#z;#h@iWt;iPAx+jZBxS7iWR^qZxF1Cx3*)8LcL0qBxlO?pZVk%L8N~ z-N-reh)Ea<(lkP9^Y*ams${+6oT6NL4H?Ka0}ZJt3VIOvqNw|y<-KM|cS_0A`2#bg zd!=Wl@u4%p6Hi~nZ<;B=qAFX8Fms%j6C~j-QZBejJ~&;8NakH~r2OCl#n=)f*ip^$+Sl}p_hYOJZjH~&2cTZWZXQStnSeh!=h)Kj@F8N2YVXEi`B38ti|6|oU;1g>4N}od{>Uv(zjQ^Su76Nn zs0m7UxT-`#ynQw_nw|SB&|e-e;s6imQIoavODMLz`m0{7vqVcS%8q$5=};zjv<6y? zv@FR+&mD%-#tqx>4ry$rir zq+e)QD&hNaXoWR_@FNumSGz_FxCgZD?a-7#I50y!Q!7&{pHzD~rK>H~%RmQc>8Q2y z(*@FC($<^!HLn`QB8%Zp^je^XxkeFC^!_ryq<&mGOdya&E0Nf{Qm1r7DZekm@P={r_*4}(!3K7!Ex8he7nPw*=aX;hz7Um0zVmIvNYngeS?Z zLciexme#9bZ8#SyQ~ran5~v_dqT`2FWn1#qcE?e>XNZF{QjoxjQ#}%I4LW8VB?pdJ{jjPhXAD(YPSIM14cJ*-6S0k~jkLFjO16qS@fC6U67s(J$r zniMK1XC4`V(7xp=kar_Pr~Ge={3HLC{}R-lJLM0UUY(ZRVx%gOE6~{@9R0nHL6TSK ziHs?pD+$h=dbMv0R9z|bc|p1I5=z`2K7?u_>$#4W-b*!+&bU@|721te2=QDQ?$W`E zO((a=N9)xNQgM@^xP$VRl`C`GTUaa%0!0r`tB7j^+#S+0aV!f%`_O>nOUF8b`2 zT+)Tk1u4iaH54ghfs7rv(W-33tdx%uSUr0Z2odTD2ZU-U)I%P|YtB5NayRmb_#aeQ z2n9ehW;z8c(CwBFQ4BGi%AdnKFo-61j$7!~0u`pBnC;=QG}aMTNR>tlNx~QtMm@J4Yv^mmcFLNa)ur%5m4V=?Ah0Y7Ayii9YEs0j(fz!OZ%EwAb$yjzeuFByRwYx#~YNK zi9Ri)&m6tb&_+*|qbHztZqgMiSDaMSj80t%l!*SQ(76wX4WfZ!?IyKcXst}7T-oyi zl#Q~q`(aHYIUWqda8Q__PLX^RARod~nIuL#pxAra%^~#p7{M@GP>k_NlZX%8Ob(5c zOQ1W!Wbc5rJ1GcJIWuwO`|#7yO>g%EjRDhuNfv8xv~gV{-sD6X-fY@VuYhM(++Cri zjM;jhL$4funV22px>kT6L;y~^51n=!=LFGJE!4<-ovL38X4wkk4ztp*iz=Om23c|Y zhvfBn_+ zMgRWZy<~JRS(Nv~dytL>`X_KR4!sO8l~xQ#6XJn8T2F(Cx`i`nrUwRs_dVL8m%jyA zOmb_@*LRfH--ouU%N`VF4}nrygvM$A2Oy-x-H*5G5)DgASYhG>rT;>1DpV}Br%NR|tX#DIMU@KJKWQ7HDhAD~37Fe(wv5CsVkQ4yH`sM{GR zCJRl+bvSyA1{H5y2Wp{-JGydZy=pxnvYA9j(>oU$C@5fCgaQX3wmxVQ>OBN)Kanko zvZ2%H1`=qIV7m@nG=+9_3^|*G+vzq!7cGbiR_oH$?sk7PU9^kh*8IQcz68+P`Ok0s_{dxCe$PGk zoO91YCEbA+s*@?wtH1;`4`y!?P#x*nyyL?c1n79GvCVkqdl^4(o1nKmn}#*`^K z_rYD7>qY-{&%r=q?M^@A)vz684HD1*tE2EdWksWKRE5?MoiB`)Kxq8sFl>79yUqW* z+5cNhzYO*p_~m8!tgo|2VY%L>97p?szCr8|cjd?U0SulC-!Ot!0W)Ip8+*3oh$=xT zX~0_jf*)*5eoSQ~rD9DHmAi_{HBzyJA+#`s#{y6yApR4W-XJ@VC}+T=jXem9CunpS z{8MeKG~Pp|Zl&0xO1rnJJ@(t+Rw$3&Df&%kt2F>t3ZB)7K-t8zLEMswS7z)sX}Bjx zZZUqYtr(30vL&+#ISqm7EH>w$In)?5}Dnuv9nOmVOd@Mm&aFUxJn3~@+}oUxEB#vN zAHqM&Wf6T3TM5rWW6h6DXfq~;q^MH4a~q;5ut@fgT|90!i*;7xaIdq zp410u5L~H7jd26a;QUZd^vMy~+)IhTbjj_d?&XzYZ4)7+YKkf^ZN(Q7nP_0FBP;Yp zd5qq*H)v`Bx+(1|u7PaSSpS|Y^|;oNC(^1=zZ}|vNJ&zqg7O|V}k|(CKNBu2p$Q#}5{=zRQBCy6lA+&=|CIbR-0-BVpj& zK`N=n^x`~LP)rNd7Z{`f&<6&z&{pEB)MGRa@@Wj^BCNfF@(7z^weoN0umS9$fjq2; zMYGa7cw7;ST}B?mC?FPX_dUt+cpTKO-&JmYSV&d+V3Q9Hh#D3PAS7jDow{Cq4!xpl zRapa?NRrXPiF@&uwBXd&SA-dNH5%(=<&MV)E2I$R8|ceS18GnQ>2pTA>>f z*uCz1p5jN!**xvreCUnrb8SX_=uNDLHrjQVCa}mNuzE%+$+%m@J3jJe*2@_bzgL@) zhTsd(8|Vv3pK((T@CeSubj8e6qD%vT;l!tH3|_jN32*{kqD--71BpH6&2!*Qvc#Pe zt8DMieJhz|TxLTkC8jPST{*&&$CW6{x>Hs}t24wOap%No^D|w^8b>@ytV@)ZPz_I6 zj$JYhc{B~%&;ajzmlK*bBLi&<5pDBk6e{F9L(YLl4sgJ-m2g0DzdI+hVHq-d2iH3L zX&gP}O(*f>t1uTTyPg-g9GyTY+%&ue_{S@?Yx-*J^JxF7``);9J1Nyobwt)bwqT z@n1#LiG9R8iju^k9I%PLd0X-vX3EBOJ+5tYSU1xV+zcpUCcf|%)-U>D9ArW*v`D^} zCW!VO@W$WDn?K^)Z-F=r%&g!Z)w@MBWK)Y8 zu=q@xPO^uR8wnNsJez6(4S1d%M%hZR)xsZ?$eakMOK9;22mTG+A;C3Tua^SEpPR=pM9{>PB7S0Q9g-p!#cU9wMu6fJO z^)$d$mf9~)d8PrGm}|Gvn*s_54cLdjNe17OZXDa~B@7uiXRdMA^q{lH-3U&n4bVKw-8=Smp13o}cD_FhbWh>Z#5#QlmIV(_Z z&83DAEf)@NFAhWp*x5C+itPBaE7;$(U)JZ_*`KvR8>u|r;9&hq-x6s7YNCoXtACno z%FBTdwTYty*13a7yWUmEL@vCMEt zMA5ykL`Z1MGIVM|^A#wmNU44DN|XfU^2P?tQ{gB z6O0=UX}GbP#W1aokEmvG+7@oZ51S(K+G^G}>PH=Vk)42*<#GpW*M}9h(r~;DZkt;?qH*%_V%Md#mE(bLO5{sGE#~7tmdy37 z%=J}(q9;doI71~jX*!(Jky?j2{*t!Ze0+JaJ11B-EL?Jk10Fc+#)&vDRda84kP44GjT7GDjh%thxie||Bs&xn8_DWS z_$bwnML3@j&C2;6gal`Ph%Hi5`RUbc0tR^48kWs=pXIl%VN0VIK(!gedS+U%-m%KJ z>lDVeT$-cY4R`Bn*u(6>GyIOVEMw3Dp^>VGqJBSl+C~4Gh>)kXcPxmB{Fk+C4*U97 zK7AdV7V$9buuv|PPTB!Vz;(~9KU;~CjSvuQ2m9AA+*!jWYb*Hf z8ul&hDV}h$KeMM#@gB7>?)Z{VuVwj`lW3g49JwmHPME`9aUh!~u3)`;dNchiS>p~- z@Ax~lY=AR>EUKq;Ad3=07B=N^oL6DW;Ch{+HWiy^;@RKts)d~ZOA^kOiN1O+}>+AXkY(q_-d)Xm0S88NO?676PnXY3Wi z_vrrF0Fp(&1CmU>V?CQXOaRF-c>>_$egRh~Ih~45dEK~?97+>BVtAW*;k%MK8nNXU z>E%}rV|+jcFw*?;(^Qt**a#R-z{q(^M&DG)u1|%T?J%qjknQk+OB7bsSD>yEZ(t^y z@)y-_sP`>b4M;1TQ**Il>AZV^-kA4Q*B*f+953J;Z6Opv(E@ys{7$sJ_rpyqyc*Sj zj_SlvHg`~Vtm6BXH{AwJ`pmZL(Rw5S3AHlLro2N2ta*ZjItq0WZ61+O#=0p;ggPdu zKtvN`x0SYJ_YKmv4Zwo|yRtsyGP zDR1-x(Of0v0TpLugN({f!_aBkT9NQTMqelj&OpeInd)c|VdXe|HTtKM{DBtB=YM9V z?{VqMn8}K35v~VtsQ?6Y2l&xF^NJ0uoK-gSk2b*8 zXk0Uou499>d3uoLgS>4C40&T(|;7JXdZP(7IEe?4vq!R#x6S|WPJyJm~F0SsIiEx6p-na%%n z2ODDa3b)iaRw3SNo1Ncx2k`NslU&-$MvS?*f|!oT`(n`HsS= z=tjE*MU&!^X$DfE=s)@Y9A`2>Z=tFgqup(4QsX)nS9x4 z>ub^om9CRO%9jo4hRImzj8W0DzuQ7`2V!E+pD@(&5{v6XqGPR`pGZ+*a*`1Hw?vs} zAv{2i_Hz=*adb|ioG%)XqxLRG?OhJ_4ig7~c&eO}jL_wzM;PcFY5k#dIdM*RzS=va z7ro23G*qB&*TGoVxoTtPDLLPAX1$1g;OOl-H_{&IIyb`J&2=tb)gf{nicR^%Q6rZm z%I}khYicAo^Lu)AX{3Q&(MY4*(MZ&9@!o&+hW5iOP(!1rp`GnSjyBpfX)bWP5VxHp zgt$2+ip5`hD27PH&A}L9ftH8cDDc$>D*%fM#=><;Ys}p6IC={nd&47Q#C7s4z3Ziu zxYs!P$Sch8D`JX-mtYy2K4M)Rpn}{PX890QaiM-ZH%f{Bh!@_&hM1*KsL#S~wploj zP)>iyWqffS{J8Ur8j7GF)@g}yEovcS2%UiQ61iFrcNlrgsP-O*A2ba>`Z2sIs z*t;K5xmP$K&lBL4oumdGk|WirgF2}?cnDvRodDBRv+Cb;Wg6DYbgV?>v*&%j#j0(F z2|m~#wbH1`<_Bs`K+1ceB}k-E7frzu<(6`-#xqNcQOe-+9){#nZ3D~-JB}Ls_77n6 zvDeGlv6Ba2s2n{J^cPae0fF=}i<=QJ1bd+y2b!?Z$&RIDFhE2(Vr!-jn@Y-K$0F!R zl6$cZK~3CKirh6;cTJqTrr2FG&t0?7?W|equ36^K4YC1cfO^QJA0-&%B$hTPN;d^; zNQ%YFtFCkZGP@cM@h`Kh;gI#`e#Akm#*syJoMV-fftG5MUvZ2>__o&^qg+kDc?uX1 zn_8v4yKz@2))yfy;FUH0O@Q#qYt&j-jb)HyMTgDOA7G^4wKVH@7~yJ7MF7m%n8D^#T3w*#ckW?H}-uwr#Sb%Z8h?6B8r>`{x{ek0j zoiYayf<~#1(|r{>CEfp`>%M?94gt|n+D2FqVjw$1zWfuzu?_FjTg{m~V0}UGr0OOJC~~wQ zr|LGp*0{k28olEgzDi-lN@qWC=YNyR{WcJ)TujVS1C&M7JDcJ&iI$>?7Sh;;3gjY8 zGyta|Hjo_cLU`2GD6e5bAmi1WsqU0lnP-{}n&&^9jmZ#5Prh2=y#y#Z1(nedjV1v$ zL?^BeP=ovx^|>6NF3Sn1y6pMC=!;V&m^v5v|F<)#f7}_hFMa+meQ|bO9SvQxQfIn8 z{}-M4Klfz{xyurR-nDdfX4KB~{=anQvc7c9Nqy=1+*zCRN^0|}*yO*0vYP+j#E_xO zl|beUkjyFs{1KFO%}Sl=`rO%>|Di9=t5D99uw*9v|2jih^vcfscYW!a)8#~Gy1pR9 z;#&!15e=+x8M2UVi8z4}AzFxlwJ9ao%~UEoJ3&N+!S}0^`LwD20q$`A$MrVSSa%2m z@jsONpNn-Y4;1Mnj-V^RTmI*9?V6Kdr0a7-FBB^ln#w8Yjdhuz5E@2e{rOQhQD=dr zSkjdni|pKU5vHumoP%+>a@!4~*krWwaR~SRm9+wmrCknP#kGrW9Pm zUCi_ZelzjAip*v;a*UMNa-Dh${h8RmpBk7__t7Bb|OYmts2t&E$*5`ZyoGu z7NX=XYqpO+AL6NAWzAke-Ax1AsIr|`g4s3LjLqIj>LPNgLW3(Z2dkN{A~_(^kR%6J zAq|BmdLch(J0Pf@t2FXT64C7Z{W75a;t%I5&w_D*NFvdr>k|)ip9EK%&eg~YrDm{C zPaP3x&m96qCW!GNc82qtI^RpT0)!ei;}3`krY1Ss#^Wk!C;z#ac z*Eu`XQhpDL=>n~a7=Zsp-(s%bwU|F3xBzdlzz@!pqs9$A=m5zNdy9;lDCjHT@BTXk z{N0Y900!(7_*nb`A83L7H}$H?C8+XxGPLf+Aa&OmH=W1GI8jmJR#DMKROF9m=I5Y| z8@D0};+ajv2{IOCn;Vb+eLS<@w^|ib0U7-TQ42wu%dJlNeT>2uA(C-@LE+1u&^yAP zfK~Uc7=`uC+pfB$m_+YUPNBb?W3cD6S+?9pk{#D)M(O=0fVIZ~Ca9#LD9P2_t!*%# zuWS?g-_fX`K%>wi6+^;084=5IxQ77?CEg(Ha^Aq$iSCid8*NjX5NDN+>U8uB409UK z)X@Nsz#PxF#ZZxcDTOm>Wpp`^#0S*IeK_`^0+6At9YYOxxA_r<@}&R$N%g&mv3A)e z-lZ*V4M+rR5c@mOFmAYy@GAE3s#bu4xD56B$APBel; zx}1J-W?()@C}~sjRl$sR6`@{=W|!z)emQa;;ZJdOjKfs`r zB)S4oAd{e!BBDSh2BJWc(Dd7m(4Rzd_=7->rKoiBV%p_XARwfvz6(g9V>D^1;S~7~ zU}pT4q;WuWPu^xo4X-EkapJJUViSjai-cPp686cCHNTrkOV_F)Rfc2|H7~o``uiWN z&cS@U&P}%0OIg6FSQP>_H~%uTJ=Vda*~4sqEAVM1oO{-K*7< zl;bAnLtgSIyz4x6FJJX2G(&qT{QgJTu$W#aE9R7>cp#EEm^b^1J<{CJX1rBs<$Bz09X9V+xAFU=SFk-fX> zM=l{PQye|vKZTl-d=98MJ^B~;WLx_<8x{GGnkD$-VCrnSgd>KV=YaWr1&-jpWE~jfw%#7EZ^G)%K3Bvmf$fr zc?{nJO={dF=E6B-SEr1g#Gn2r8$99|y+vT(o1pETrE%@oq26S8TmmK2zYtNalF>bC zWwHyK=#{LkM>!?5R6H~F?tF?T2_34IX*viIeL@qe>;o*GKi&%n;NUV5 zgHB8V0A?wPKJlRf9q6#|#;P`=!X72Pf<23WzLM4Mq>>)dCNZRQl4rBV+c{z`QN zUIT;Bs{79kLSr&TW2j|l4}v3<;N4O}pQ26vw#=hOqHQ;!9l8E?sqL9d?HL|u(9TcQ z23_8sHX2%gd-%Vefi8{Os`cM(#@-xox3$5#0Z$k#Y71$Nqak|Wyt1-af$`u{FjJjI zxU8#16L6+9L3Q`#OY}u1<6A*VStC-~lxKkTT>H!oUj|bXPQ%HS}H?eS@8HS0Nab!T9o9AoG$vS z1K2KwM|mIo$)}w?(R5PMX2aDS`F!i>IBGPf6_lM6oqGN~(R+-XsiUX@wWz>|6m|?r zFoLKMm>{*4^kG1C_GbFUD@(v&-cGZGE(*7=2a?qMeED^{Xv-YGTMn~w z2ztQS_Wg%zJpWlX-1)_QlbgF|kN280c3&QeiUsa-a)Uk^&xGRO@((KlY|LuGp6FUOe#b99$NG;K8QdFxK{|UP zwY?ya4O)75*){Lr&b)=sv&cd8y=6W9rGG8!HJ~-=ADS`{3P_VP;qTD>JR6z)e`wzp zfDe!^+J|CeQJ8$kFW_0_9qmE<((}wR9C``Azz|K|NVQ2#DSKDy%lp`rlX!>T35r@* z-WToyEBVwH*dQm>ozm(^4vfugLS7x6EbQ99Pu1L=b<=*2p)}D@R^U{u%Q&jEyNHC0 zT?!NsluYG%QQ5ndG4fU#c^wSj4yoNe zWHAl!EFz{+7nnxfRi=?P{ElG)0YpU^x|YKqd=d6oV(4~KrLF@~)7PQvzt)@rWeA&% z$mswHxfPVaWRGsNdn=`JZz3@8r0d=F)O`0QYF5i8nhC1H9W8GX$trZ(dK!H}m%-V_ z*A;$+EY(FIjfH6<^`S(AJ^*{d5_6;!9-A4czLgsbMlvIWC6*n6f4@ja-AX7cN#L5@Zg zv%S$~;q&TQm;~RoysVxLX0J`>TkF|C_SfnBg?ct3cJG5g8VI$w&-^h+PQTVVEms?9 zWQ`2j(ZHfcM3HhoWEKV(Nc*5dE6kKCE2-x<%HiZiM~RqDqvBZXy@qErK;L)4aDHP0 z>m8zpVzYa?j(ZwdUvrULbj=2=ZvwStuqoFr=DQo<_H;@xKh?k{IV(j9*LP+Be=IN? zx{Y=J=Bn_sAJ7xJM(*}wN#!Ayv|0T+7#SDUv-$Q5P}OONrTjfe2_g|Kv=0z3HqZ+= zcb4B$@}>w1Fwrf+Uj~T<5$C&%oOq9sof#KF)W#v3aYGPth^%DV?kQ@ASwJLmx-;5a zGA>fKwomcFbzZwR+q0rwjL8K%G*W-6q8LDNuz>q|vcIB$p+2-rryGPqeEj~DR-?;^ zxzCZ>TtDbj&e!ZlSUo2^0AyiibKxm#J}SeI%g6FbG500ZMLrQ@f%;AOjj7I-y&l6Q zdX2#_#kYYHmn$fiyRE>Z>s_F9AC5f|W97LSyS+jBB!AV%BvPdQk>_$`qPXcMkoG#Y zl%MCuJ5MQt)M`7aVh8}@-#hy$8j(ILn%yZQM zP|M|6aG>yuBLowSO00ZXBkSY*qf$!$pcJE=0S~Yj?CCVMQz0jp&;fS_931FKFDj$m zouT(+=-smna=5!Yz#Sy~EZw4(jP~8b;A}GEB4`qy=s0+lvVRRklRX*jnBaHoe7ajf>gvax$P#TM|7pZx@KmgJrUw{V=kbuzR_TI_=`YKD&>*aji5?Y#{zRG%a zqgtNO?m<01)H9M)MQFW~in^t!1lWL@`Bx$31(s2@w~HvEidETv8=tY84b%UEno1Pi ze7<@&8$K}^&geI6!K*Xr!6su}Ej1$pQ%0%Eb%n}wp;JTpd1YwyHKJtVm9F6*?PdeQ zsXgF=XzUu$sP21Mj4qB^o3MxVHnbDTNv2nxhA;V?J#1jFhKX33A=Km+oqVKripFt- zwh`{#0~d(`W=MfDkBovqpNhZ;bCml_gbp=^Dp*CRL^$%fud(4nHUBP3C;+V^CXkvZ3(ZqsR@)mGU6N{bD zu_yy63ze9;C>(nRv~V!Gd3smVJlZ{s8`4n)?#`kH{!J4b92`No)XRJBWy9fRV;)c6 z3*U6-i}|X(Y_>C^6Ar*1Oas2rVF;-IArJ%P=;U=K>V61yKS%98PF2l<2`wWDHne;U_}0*Tlm(&?Ok+BgMz(s2kzD72k?M$;&hW-VV2X|YpZ!$GfRRKz?nLrQVZZu z4u!-FkM2CE6-yHzO@_&y%`B^$yUzhDb_ z>X)pa^Cz^lG-V^<#uX7%@txpE5ofqU-mnqY;TpB+4HQtNv@X5UZj#fh@0|mu`8T{O z%4`PZd24l{a*h8{?I2!x(kqZk8Y-|^C-dhY0Q4Vj2{ff8DH}&p)p@0^Jy7C@{$(oe z9v63GaQB3`i^JVN#9cq!JtgkUxPu)aa)jdUWxBJ&SJL9PDBe48u`}5^r!$9XGB2bY}*!eH3Z59bT)0G-W1vTKA;E!c$4J-7Q?PZgDNh1A zuvd`-Eg_abmMz(i)ZvbSlv5MPX)cws;S?i~2qnZVZcdHo*M7@JX@~PWzhx2ZL_L4} zTQ=jW&0JN_gS@Pi^{D4Jd)b&-A7fR$6dn)J(Pd5!s1CSM`!t47!PyUmTQRuHbqw6r z83;|J*o_p&FTklq_;CKMm-V@pQx?T_L2FMV|GK^X9?1fJG00VhvO*N=|FYcgF++Tr zuNFu79gSDZnjFJRzk?m6#>%&S$1Fo&+yjqeKlFhxMs;my6EAjmj3%t<9HZ-xdiiDRchG54W&rZ502y zh4s^p^K8b3mp*Vm%mB!&qr*5;b-zyDOyjr8=}DivRsEn~FYsqy7wigN@Pl1RiLClEe7!*O|Fr%Q{iG2ylVIp+|SaKdEqwD4cIS#70{`SJQN9KyQ&I&;U`c z^(af^_QPyI_mZcn0JE!6YTj{-MNNrv%z&o|2h6|gX%c;-6)UXeOXd7(fga#Z1dgke zZP5Oe-z8|n!y}K<;N(;`M8xvqV{CX&Si~Kp2ua!N3Vfr>eafDmeA_WLDk{p8dd!i5 z_l^SJE>ZdfWmQl9&M|}&`Q;IQ{ur~u+N=L@)|VCZ;8TvX=%~jq!Cmo^f9yTSnXO;f zf>u^5tA*~gfuMo*BEH@UVJ2L`oThZxVK!2YE@d2TG@Y}C582gz53@R}GHH!EeZbJL z4#mJ+v0;Jb2YrROVauDkY*?9VLdAY1rU5}9MFZ#o@sv&+2k9NfFC1s1Vg}iVr&{ep zQU^n1@j3vn8cyWYNR#@9dG?zuF6;*Y8v5(+=7l3{FaW zjz9Aji`Bio>XMJY`4-EX`Hq0noJthnN8+?erbao^DTADJ+CQl_WfpAY1)-htll`GH zIcw7#{Rn^fJ+Hj+Aiwr)EVY882;mZQn3o-8%MxBb#7qZpy@?B}%k(X-Uvd40E95XU z_4HqK&l}!maXa2&192tL}Z zlOLh3$6^KZy!Y5${Mk3zFlW4@m*T7-dAW(wEPGfC4>3}y3HbD7Wyhx(ou8CTD>`0} z>3p3^g;jPI)~m}WD(sui!Y)3f*3%CaDT(%u(!TP)CsvCV@R|46a9(hN4P|u?@l_{S zoRjP#;GD5qzC(c9XH$jqV;%gqgFnW^WjkDrAG_Lh#!dHQK5@+Wt-#wGh#?^IUb$7z=$J(ZUPU^L8LN@f}}{ug@{IVh2c2zw?s!+2oN^9g|%b^p4^3dqBE} z?jw>r5I~tcH)pTz;<)+tV7~W#HpY~Roe|ux%g1ms6x1`5>pp;WZ!nMlfJG-kc#GA5 zVKTXVl4AsDIUoFDDLwo}N5s+&*%@CIzOUX5;?*C3<~j!OWpQuupWk7QQU87ux}mr} z!SypP{acqm`+I-5foyC6!0)}shVjOaScUT@9NpKhwML{m3XS!GsE6yVY>?(ES^qBX zRI>gs?o_gVFYZ*bz5#bCS^o^~RI>h2+zGPYaUZco#8n4sr(ZyyAGfZohA#%EvepDQ zOyp4N`uk}TE&d&{BaiDP0#r!K%5|RgWZ8{5Nft>BVpm3iN;S;+K)0Gb8&6Pza%heH z`hW@&oqMjoM0N9r)K5yUE+{ue7b=I;q-rzykxy8^!p6VR)aF$~W^RUdkI9$RipDC@ zBVe6&2i1XwrZj=kKcajE*XyXeSC_i4^Vdz-4O>3_@Q+Whan7k8U900bd?BQj80(Ym zK}(1rFxICr;leWDLJKZZuf+}_$XL}8pz1$1K==lR20cHUy;P&oYV3XBExAHD6fK$( z4w||;u+4NKI&A#8514i2HwFlP{F@N5tsO*(n4Ca~14W4oqWSeF;clu=G=JnIo2gyO ze>lljS}?v@e^tj9o-91Nc(}>3DP#W1*M0_xc^?aZQ3Y1B|C>KKPlQvg-gmDvqfspp$ z5Bb-pSt8q!%Pl{#xAXKLA}_93TnV@)do1`(!5h;kN+?ayZ}yqpmdGBVa=4?U0nmxX0A?-Bw7w(L(XO%hdK!*XP$v zZHK!)*PGg2?eZ*}+Mf15c2@GwyVXjZAV{a63B|aU;j-h}fa`Am^$33HB65gA40fZ9 z32UvQ8S0pIO%AJZcat!Bg*yXs+HU|cJxG~?`ozK`!33?HX3?{6gtQfhjLjXsik+(d zLs{&{P-e%9v&c21O<=}tZwOab=HkJkw9dk5(J@d5Fh_?&!(7*S=C}q&0IuqbKUEci zR!YO+i|R{Qu-l|bgfKG}yDomOW3=y%yU~p5VYJJ+(#^1=gUPB*c^x7PSMPnME<_Zq zV!|`Zzh*!o>bXPONdEON>|^8n%G}gNRnvjOYS*>~E#hzf$|k~#g5eBvYY*4&IKvXP z{deHt%NuOnxjFM4T}H~Ml~1bTYD6)|I-fDR{;RX>18wLfz&Z9;kDSR5o@4olb{Ksg z-p&@|yeb!G9I+nVB7mN+Ku#COF@?%Pt$G}D#M3|@RKJeyO@yx?afJ!H@cvlagZLxm z(@lhMZ59vVjy3;NS!vhGOeJiv*C_1;e;oZ&IQc!JL}JDkiHTyWiBw*FJbZ__@3~; zF-!+V8+1k>uBDFXly@AFDTm;d*{PaEfXj_p(zXIHwk1dR%4^WA-JEId0}5AHI;gqp zeh;L+?q@6@WHZ*cQ@y3`)OntSc_}z=gLa)pwwY3JMrCxhXrSBe6ZMbUl6zivrYX%a zWJ?p+ceb)00afk6w9UDe^Ely4GrFpfwbZ>fGbs%NVcJrBo=06|IoD=azNHPH>y4@X zynpTaaAO^r?YJ(077WJ?rfd0_?Q?~*@e1Yfp90N-bK=?1t0v{PSdY2YJ8(UrUX6W4 z?b`D}a~(I)`;<#7ml^8~=lPzCY(jU;J)$Oyq1bVW^`F-6J$WX3d9A|&eJHd`n{C0~ z3#XRovks+aF3%-m<GAfa_Kjgt-XfN{EZFo)$R&NwJ9tzoTSQa zHqQeOa``t_YPeKN&P>AQ6wXx&_@&?2LKflT3w-d`lEK&eSYq#2ZtKhqv<&$o{Ho8j zdH(sg`a?bzsqIzd$Trqb)2Cn-9jV587u@=3JlmhY=d6@Ec_Id_1F2J1wQhI>)qqr( zU4dglV||K8_d3m&vA%8}J|JpKPAl$TWbOhDnu?pnR)L6ykaZ zuV+%6MFJh1ZQ7FA8kCx6*QMq=`cSBwzt{1zOzJn}J#R+?I_qa0^@}RUI(dpDjp%h7 z^=ALdVa9ryl<8C6SlQ25zx_7ul%&4e`}qTslsU4m$NY&S*jV2izqMh1w!&Z(4lS7yNBJ0@Fq+>?6TSfAO%YS%WQo4O_kBy5^3nN2#cv?Wc4B^_?ZHd7Lu z@^00!C5TgY2p(+)Kr3DTDex45C)5X196iF^(eMJGJ}}l7R$vGW#F5!bQksn$|BW8X zHy}#9UoXHDvmbBJFkO7gG1cRRC-ohAC0+6)iEq-cTXOtEai2KK`Ai^HR!z6+^cf>!-7n*B!mKOb@C(mt!AKgFBiAHvxld zAL?q6pHTR^2DmT4Cm=F35#`;}d)=RU^w36C{v&oyRW)Drl_PcpbH_66!cH=v{Nm1H|`L1r#z%a40_8W5$ z>C*Kg|EinxH|<=$AygX2-m2oSgi1-;zWh|EWKQW@d}Fd>w=zAG=3aC zr9s-Y{NA3@dN^3>6Cru=GQcCHA@q;gLs2k8iJ=!&61`2xLb(WXe_Xm$8i=ZrNu-=%xzc>K8{>ewe9`@=bS4* z50p=Uc;HjMI8vh6&Z{DUGHiTTq%mrDWK%bBrt3@Z&Sl7Hs z+ffW2n(>l;L8L*w_4+q?e3X=sfI0_Ko$yH2_T>BU!Z=r64lv(a;z<=NZOg(@LA4jg z+3{yQcSQl1)86MtkTVm$xZp3_fIK*f?DW|j?if*~(IjV(ONOJBf=s4_FGbkI0Y(RZ zS-E6!+fhEHmlSOtkKOY#(Q-K8gi|k@@<>m9V=pO2k2*koI8X4cy(G(AvF+O`8kYA2 zS=?3vtA9G7&ju6`4+XkqHVip4lfr@mH-u#BjeO zGSS2v<>t$t7f{BZig7T9n^=-tda_P*N?uiY`Og`orEB;&#;S}7Y+i5ypA|-}Mt~Ri z77N>s76u%QLEzCg?7bb)l7&30p<~_NQ(uZdg5Pd_2{1Vd(^(-((^dJ8B35vtX8{RZ| z_4pf>h$rLr#=6D^$mBJSpaxiBh(prDhojIfnt3zSZZ3clCWq%S-)eY7ZzCPiA6i6i?-wj?E5bKO;tna_BES3& znEH0*Q@TARa?rUQMeC9&SdCp7OsOdlm>M)Fqe6+m8;auPM6wK2r&f&cUKie0D;43R zP$_+&N-I(6r}zf9;l%I04YHVKE1(%o9HF_SO9y`j2ScG%x&xbFw8CGeT?#jmGfsMwW&bdLKq_4)(6}WUNWBFND#j9L{y(i42Lm5t{SjH$3I!O=+95P6$PLvr zz%c>~gTb1tL4;J}rcaTBa?-8<7w_@`75-u80Undq#LB7ifx#M}2i12U+@PwVkSL-b z;%NQ)77eC&N2I@a_nCMndLqh!x~;}O7wxJnc$uokfy*awz7+^268Q+y;{#Od$cg*E z>C^ULHO|Otd};_Efwm!fNRAy^mEyz(ouK0yWdS~``jyn{{++#s)9oJX(RBoC1L=Ce zuY(Cix}!=9l~1EgbTZ-^t{4mJ9EzD>IF51G(qVCI;IPYzX*s>eG@QJu^0!04+>Ishi*Zl4S%oR|6Acf@wV zZNM8#sN{C&*9+8k=hrk!YDh#^o6&VnSG9n?9YL=EQC%bm`t@st5@@YGZtR=N#8MjX z@t5O&fI3dEe_MP!&|k22#P|t(rQj`e^2G^!;PhQb>oa_$Ci zIC3$|gEgl#fM6WqRYjtYX$2rhPs8#j4WNzMy-$O35Cf_6UwaW}P{jM4 z%`s5{I8LG^N2|<{rqmuKJEXSIA?f2o@@3*XTy1JVSmg;X`j zy|!dpyQjv1c^PJ`yFe%ahH6dz(T&ApmdO!X*H{xQ;*Z1S!W^ajlAszuu16AOj;>tZ zdY982>6jpglo91(D^Ob1^iE`ez_?2W{~$n(s>>+SWK!$k^M2heP^JVJSW@!!E3PNX z5UW&o3bVWmMIuowUd7OR2mx|WF?bAo03W~zBtY~o9ZM-OARZ}D8-zipf+nLnM1Sd? zZ*Ka`Bpq=h90AqqM+}g|xiP6ZI?o-1pxk=FopdJPe~$(KH+RPXX$s4`mZuGn`h{RE zKvSWe|7n2KKSmFv0>EMJEzkN1W|f9axTAqpfsn?IOFZlqWly{ zO^jO~r<&GUttD`4{mFTLY@l>=LjS|4OBRKj52eF2-z^>pXiME&sMJ#TZB&o@`RV+I zLDHyh$J=|QPT&s>0$H8OUl}CTrFWnsER)&Tz6F60h%0tAN}`(>H}z0MoN1i? zw=Rn3SS3?`^=Drh!hI=puu2W=JJBU(%Oi8DZ zM&h~+R|_u9_Vjuy|IW$`JY={OJ?ijbK|O?kD1i8dWXeJg?b>q@wP@_U%F-ev6Pbp9 zcX}oA5}!RBe495yP=?%+D9sH2030yp+w95FzN}fqD-xxNq1*8eo+w_z^9zYmQs~^y z=hKN&T(3d&oCE)W#D78l*bcYA4H5Hs;%I3A^V)dPXepgNVdFbSOL;b!vtn_YA=*V2 zkFHi~?3C*!KsQT17SN=J4Ok)UHDK;0wL-3tTR2C#gyTPtZZ~zNC0nnpMMN-I-C^1C z(PN~<5!bnzf~BJ${JYMrzqAiKiq<)`(o=rXU>HV0PZ_CuZmVe!MbCnqqwn+XV&*9A^$Q z)~CWrf*zG7r`+)o8dljI#g`ZHx09q1&SIo2&mop1lN7YmY)UtnE4cQV<<_=Te1nj7 z>_Kc#ks{DkYN7Y-%il~X^zOan8z~C8uocsPfnx^pNc4(2_KDE?Nd< zwlWjKAVIX-+IA3R4Yio?q_IAPEPBzNP`+fm)F-@#aw8{MCCLWj;G`Q3~jkPsmj6e@0&f(WgkgRNVA+MbvZDxt*d1$hf z!d@ugImyx}EVZg+X$1=};NK-nW3>x;>_llO4h*JGlw#Q3`Si9A|Jx)uMB$F5EHDO^`>i^K1vBV`^P;iKN=&kP-CjN!0Kls~Sy)$f2KNi6^ zq)KtUEsjW8EA18MoW(_AJ0MwKb7~wvkSdMt|5z?My%-aYz`bI!$x2j%mvCl^Xk9#N zvb2d!9msc1mXe}+gyKL1?oqYa$;$!{zwoxn(luHW&zvH~brWylnW2n3rbvUGZ;mBg zffExtfb^x*Bv($67bkhLmdUf1#=qZmL0X>-pw_LJQLZnen}R~$N<=uCj;%CnDFJfU zvUvDIg}LTZkM4vUK4EQ1kjG*FbsG>@Hc6hH>BgafCtoXc!O^j@c_5QTSvF+@kDe;^ zncQj>^cNVKx-U@4+#=U+L5{wj<^90c!5DC2EUAXm)~$@ht!tmjyQbsgVSejWX_)b+ z{`7%PU+5g`ZvNy{NPC{+A5E23!3DQ14Kk?`@QhfAv7QWrugUwbhE)SrF>N>%D;>n3A z1c`Ed1b<)}#8pNEe{GtS&+__lQ-;(lDvQ$Q!&3@L)V~B9NUg|DxWmvA%YLHYgUQvDT z7Riqe=R32oiuK+2Ycr*OVe@+X+mG@5j-Sqw#sje9vZX;R{bN2mTe@C5fj^fmW%U`1 z;k@lE)(!~0?hx*xnx?N!-4D20$MYUJl2u(RSO`0Tht;)$hr9T!94THqj92AIOQVJ_ zc4xH1@}HX9u62M0)VmH2~^XRNWELo{7AAhBOXP z{LBm~x<}+tLLYF^VZaRr_*Z^nhE%KV$>-0MmNBDFOhNdP$j&MF+02*EmZG?JmNZR8 zEtNXuPM$kU8qT6l@IJZHIR5l3sV95mJ>E1+n#WeWM=vK154uRYF717*;7Fr3ag^9! z?6859V68R-N{O{n^5w^Z zL5k+)d}(#;Vld8Fw%%~+KuLk}19lmVuuX|Xqi~YSpUIb!*}FMh$(QE&Jv>092q`0Y zbW=;Z9({n7?>f+ldWeV|(*kVtWlXRhTny9&_d*do3qq@|<`J2z$9ir9qXn}IKMUq+ zmmK}k{U6VZ$rin;3P+`9uQ}F{2;ZL->?8uS=ncT@*@hIHDhJz#r{q{GqYLm|gRW3h zVdNRyHQ#31GlJ1ce1tI}%$rE%>Rf@;H|B9c$r%8rt~D_U4qK68&&Du}#r6}=#}q>N zKU1WzWO*OOBvNFajxG7*d45Ns6c-+h6f*e>G6VbF%l8#Zv(#0DJ$x>=%#r$KA!>A- zW2T&wMs7JwN(mTpKr96DCCZJW(n9Ga%`VI?U!X?)Eb zY4o5|nGi5);e&@#jZG7vPg{5n>KG{?criaZN9v_r$-kKcEI5-#6iL&=(!q~4(pJ6f>FSVwY(66KW)aVCQffxt8?396n$TZ>rklN>jdDEA@- z>Lh3x#>W;*J^Ih{=YiM{v5c@ai>#lM9earqAIq;Vmg4@TjU{L^wI!e=bx|lk0KY43 z)Vw&_=|06BQXn&mD0>Xp0V^6yBOObIjH|%uBSRTE$}CZyr(3aK->OsU@KC-8-}$Lx z$me9&BJJj|wYB`?c~Zg1QD_p@imQge;co1! z2<|flCBR_{FejEgVqw6a2Vy2+kJ-x?%$MTF#Y{HV5i4X<3`mM(ZF|tb$uvp!kjbI= zaoh@jRg=XxSNmkg_0*tO=1UV}p1@0h3>ZKinHtwnQG3AU*pxdabJI0ak#;^`c8yfY zR_^B~u95n(p{@MvH8^Y=%aa!1&}(N4cP@~2YNzo23&D#(;;>L!mVfKdR22~*^VEi( z`c}L^FCguSMeVNk1jOKIPa#!@=1F3NMEBMi>u#V~s)@lJX}Q{zMPE9{OEmQ+Clu8ZevkPuwc>U3rKa22^{hd<`PB;Xz#)30+qPdwK%zu>^9CQGDbQ zDPQ|3uUQh<$AN(!1&A6!-fHG1L`097|og$i@j+5!D5ZJ7D=oSLEVAZ>yHeBFds#) z7iq}WBiTL6;+YjwScGKpNy>b&;gB6;4B}(VwYgVV5Oo4!jIpocrFAZXY#54^F+KR< zrBbqX9uK-!8p=*J@sZa`y`{lzi}u{9e5q` z8;7=igH$EH@x=KQs)gae_uXry!NcR){(^5%<8%zD%}djj|LU87sDBFj2zy%t?YOgv z`g0u|!Uta`r5a7%anK2kB`j=$2OwT?ofH=|44N;C`2*KU19;0kmL3UcrE9yodli!V%<|_mvmh?I6cc z&%9G5N_rB2hP2x)CCc13%oj{`im)HN^c58t(}8bRar^bs9Npnd7k&Ko>!s|;fPd(A zfPpf|B}r0Fq9>^*B+9|knUn)n=OH7g5)S{q9w;EqT}7V$&{|dAb(n`O1GcE)qn1fa z5LIaFGAWW-!uaFMq{M{j2(bb`haO!W)~*JgW3e5!=+F>aKlBXKGz2 zQEMMrW`R0Jk@Dil{FOgR{hV)uwZ?F|GR$xvk?PJ`2vL?h3)cFo-i;;Dk3u3&)~}8u zaj$XHk0@*XY8)TZ!%x&yNXo?+S=_7OeId@B9wSdnaHm_w9+by`>Om*;6Z0%9$GXNJiaWS=0zCc*i2W0TS!WRPw@S?khJ;}DL{U0dirJtfal`3AT@IWLBSx9L3T_ov)p;}IDR9?7Xe)K|nH)q8C3QVBl*Dy*b4dXr z1NtiT%3q^tL8@NZP)xfcv}BI*4XqClJvd4ynX>DE#fMrQ+m|4+QQ7S(|E|@{QI2Ar zcYS^h&-~gkEP|W=EZv>a1R}I59NVWZS8SgbXGtayUuV*~>FwcViO^61X2($}sw&ID zAlj6@>Jt*#YNvNIDbI87pQVA($6W1}s%a=FMlHyMA1s>ccleMpDLysPozR|>a-s5x zMPwgSc7%3*;IF&C@cC{nnQCx0Xo*p!STRfh-P_m!^}e zi}{{1X&r=AsW(WutaumSasxzLN4D~3Z@_^&czR2TytvpOmBP3yJ%gYVM-|IFPri*x zM3_8deU?UQly%McW|phLyeH;JE#%5F6af3TbE4aL3DB@5NXMiWcXlG2a9QXmTSTwP z3^#4o^+-=STKNmfL0tP8Cc)(RyAw@?tFA;KT*ys83==~Uiva3~(IXv_(^8vG>ZB7S zWleeC==v2Y)Tp*+GQxt5bsx|WM4(>m^D(aTAu9&E8oN`gjHF|yN3$^FR+@Zx--Jh1 zv+$@oRbFk#@#KfX8&fvi;D%%HKLN8INGf`1OHU-|(l50;%IqTyjNfc<{u! zgJdKTz7MUgW)r%7TMuA1bTW;4*1cS7Qxa9#0^T8N(Gn4wiJ}W7Le_@P()#8jZv@d> z%&)mo8rhA26OKV1IL`095lTS|`HMGVgDmE{n;>yWNifDGiaeATEr*D|xan)1e*wiTxTKY zxh`BQnPOKeu?a!3Z8RY^TTh}9ATdz2dSW%HV1177hJe@d4afMfGVuQAUgtB*q(O#N zK1{Uk^05N{=prTQO$M(2XDmO)*go%rr>SA5?q}+5v z^cEzCEl}%6)awLgY_m|w@k|y*aR@XHf z7vc;Qo4R<2DAG~k*C+S_mt^WXtdYhKl+D52F6q{85o$8p%+CLc?{rC|!hFUBjo!K= zBBjdflGlxyB*NVP5x1_CQb*r=W31y@T3<*$;~%RWB%K(rx};*`coc0TS6FSI^T$>~ z>8_Z6h}_Vi^RJZp8|T-z(Z#4bbTtNeR>4P>W20Kkr= z6w*3yu}2(as_E7x$Th~MJoga{fRyQgIar}ew+NgJvTpk>YU2YYfG zF4<03-Ulxx=gsF$<7`D8s-&JGxL!*vQwsRg9^ zeastHN!EKEmFooX%Cd{FRp}J7(JE}4D^}rb{NNG1mp|757A_!rvMWzo&?0{#vUi(HQn|^u7Xx&(qT@$MY;g;k(hud3NMR4VX%klp zCB$X8SG%1G!S26twKQ42CM@vfBAYRbqRE@rVs@eAZn>(& zKB|uQc}U8h4sCP?bB@9IYE@J=}f@Qa<1e*e-WG6qo4x8&@er}xKx0fkosm7 z;GUe3)L{gGcogP5hrhSGdQl9aJUSSH6we&wZ&qM& z`}HG!qC$$!z_KZJcB-#-OaQt6O|yL&ZrXuh_~|G#1maV8k14MIj!E`H5G-)m#Gz&u z@`;twfZOs_NbGxGv_YPtF91bj%HrK*Z>t3==AEM$_|XD;qe?lV_wzqhN<;O30iQ#K zE0t?3yrEJW9h2aK`fT9LDGQf8K+r|lD$bXRl)mqC(|T!KtVZOE75T`wpg60-^%3Aq zP!erDUGpJct>uP(cAG{2F|KQsGogCGT|KC+`t}EPuu$^$DMa zGKswG^ho{sC(_6N4b96Q2x6y zOy?LCfj4ka3+ze`Ug5FL<~RwuO)BK~MIuf;(SYP5k{_v(Vxldy@ENL)0pV~|g9eMP zVnTtxu<&lxq|G16hgM73mf)-;q^6naEwX}HgMTf%@;2X8EyZ@*1a4E#!Zt>a#`0a& z(%_|*n-KH?fuFt5kRZX{-whrh0Xm`_M6_Ml4qbwL4q$1iCpzQmWmkSc0BW_MrrR+G zP<~5SOp_Sm#}ey&IQGUdu3fqCF1OW4eTp6dKhY_+TZ9iWX$}Nb)e}#k*jO2tas7(y z$OeDSRNVxy%}$%Vj+HXU<6wrs$Ug{*b4(5^@Fx^0xlapT(w*~DhrfWp`8^bP(Gv1D zirY9X!<{y<0R`A@>he(0H>i%iBT)Lk5*DBmEQy1H+o8RfW2?8*T(q+&*j z7U_3l&d4)jKqd^^GSZ}vlX%GnDe87GqzUlgrY4megz7?RtX)~YC)jfrQ>M_zMHB#E z7kDilZdYu3`0E>_$smUpHb~YyT8m(pM{5xgC2Z#O%8%U%_pO+}o+jcJGv6iVthJTe zX#{gd7-^_JO`ucWLs}u5P5`kw*uWQTl%kD0D5d#Qy0wqaWw0wh^DP^tK6ir7fUcBk zFu@`6f=~rZN{)K0j!Itqkrt7+zN5c$1WAe|o)P$vbj8)vhO>9Nmcy>Nk&Z?`vdBRv zX>_u^gloLgVE1g~1t0@r-3+~h+DWXV)6mkRbJ6=V$eZ#n`tuTC=ZK^j z2oeQ4!FX36z?_?R40d^v@?bZ3S;$MlxG>CFUuAo22dc-pDlvS8O9jK1gCEb8BtzBf zXekkPH1_$u{9`ZF7^d(RFVrVif%Oo6J0YyCJe17`Z<2=1&S;4hsf(126pdlQ=*#8S z6eOxYWsGR`9Lj`c5J_$>Wu<5WBAp`T>c0sB5Ed$}>RW*ApBfT_mMp$sJ<;8>NwPqW zyDlZPLo~UcVM8|>(QOs+%T;O7GKq9KnmJr54jS=e1Pw`D3vfUzih{Jlj#i9Ar@vgJ zzn|M=X>iXj{}GJ{>eh%M$9Wzd_d zk9gP3(&)*f1yR)p%aZ+b(X`Lemv%fcc;ATUO}yWV-|l#(;@OSwa{Rurj6b+p8fz%- z8bDFnoh;kMcWsuUd%i=pn}N(d(REiwkusnw|9P|2tKa{c5IwOF!W@Xl_@v%rKHB*Q zoER^5k%SZPb-`#stt1@=c~C9ExsM=?4LfOC^zAoR8G>rT4x(nPXlATveT4r;tZ2{r zB-7jgmw5r$g2h1;7Mz7e%Bydn@Uhs2p?C|Gy(t&+2avStnm^`%@J6H%=$T@pF z&Ew%1GrLj-p?;APy^Tk1kt|atpQesu`q;$uv4KyGhqMmMJec8araOLTxs%Ki{DDJZb$hYw{e{TU6wJ9-5sm=zx&AAgu& zlfrrH7HQ}xqoGPhuRU#X&efi_F@|c`7?IA9u{6~2CMYpULbNdRuwlbBZ7WZIShDum z9tc11fEsSv${&1Knq(-H$27_7^d5hxYr>8_u{!9&qO>^@hreI3(pihWzO2Jf5J`y4CdrN!`82` zw))SIaU@otU8Tv`)YJx-o#4$nGE}^Zu{uha(GzK-U6w0n&i3Wb=Bd-Muzsps^As8(H6+!vhVtYmq=D{T$znxQR}*Ge-nijA z>6vp7)U5j+^vDd>WE_Z@4d$01IE%NWpuGEY_oi0XPk;c=E57TSaap&`Q^)EREx88r zZq784G6k0RmmUwOX<=E$nk+a0Lv8Kt{Nxi-hT6E1vT#=fx#tEnF7ZieP$fL|Ph%juL0Okz^D_7vc zMlB23*%8(12UCWojfuo2k6*f>z5@sJDlek`OR(0 zn9!_Hmj29*Pe~&OW(cne6MpW%^-RUM9|A`_XqPUrPDmttTax*_rzEpE4d=(6D`5c3 zm2lVD9a}NLizaN|o5Hs|1zkFMAav;#G)g^r(^JxfTYvvmw5;LsC;9$c(OkXK90-By z>9RiPj}}TKbR0rwe|jbEKRoei7_J`R1DiFybQX2!tbEziQcUDElfWHPCQQU;yLlpi z_Gu_O4g=CGnlL@SY?x_N#*k`_#|G=HrFXl7FeRZ$V-9QqdF zDS0?fCSd(V)$?_Klllz#W;RZM^GGalyDR;MF4{4miThx^KwMGGM#h0e|oY!#q5>jDHiYaSnm{^;;y^~O{}xj=nk!6 z1A)C{G4?M05D51}32HQ+o;3*}JIIIec5>uw$Ox;)Dv~>fJD!!6#I^n|)+1Ws={&&L zP^!h{NniajR5afIEYJyN9H3*q_v&*6tN<76X*d74O0B$-( zHq`E=weGvsqB_FSdW5Rr8hHb_DlZa7fJ_D5gQ|96<;w*&d}d#Y`~qxZxmpXY4p)ky zc1mo(?koZ-->@=y%?_3$g7``;hy(l)Vd%EYz%!uC3e_}D*r8P+T}!$=11{QsDGT30 zn;GHhT^(E4z4FMvOZ_HfQ!Ygdu_TDTEP+5GDlCNr^LahLxg@jHLsUAhD#7~8R-^XfLs6Fv|GYf)q=dZn=Au2OVH@p zkR}9C=1n2i@MOs~T4smwnIPj#7{9o>tr&hzNR0zBz4f=Fg2JApkE??j8w$ch)=_4@ z{-4sIX%<;{27%Gkej%$2W_IGfB%~yRyX=-26x5#zBB45!BtmIpY^1i}>I^FH!apT* zQVIbY=TZCVBnzJ3BhTi0^8+_)HH;SafdgwpWT7o^_3(G8Jh z46Slk#F_vZ!a2U|1*uoj7*shPlh&`CJS&zIxef5i!2)ISTrDP#K(vJ<)S_|KQ?b)t(m2CC7s;9qM#OG-ZjQ~r z!Raf$(*^vMe&@jr;A|HRV|5*h(i^IuMDIPVq14CbEqJ$4x5i=2Fp&SVjHBmnC$cjGjV#J}-)#w%A)rH9rsSHulT(Fk2pKFLJ9KTtfuSO@xXNa=G1 z#kcLCL7@ghs1Q+4#;TN~TLnT@K!dq)DhKlbHY7@xgIh#H%dK|itY zu_EjTs7X`Ma0J0H@RZimr2j;*%|vu8qQ?%WXk&9%ibg#*;2F2QERAvtbc=9C5Y_=^ zJHu%>wxb@Trt_3|a&<8tSIgLy9z+O^c=nhvjLuupxVH z7h=`s-G$)9ebt}RG%!3`508=GX_7uMJj$=VEQJp^3e9KgL=sZr=EFeS^F>}`^AJAx z74WLiS56J3J|tx>gn2iZJ8$N~=2rYx{)EO4*p5G%q{e>!N>Uy1S2kXAhiID*ApQm~ z5)8(rgvuepBng(tF}Z}F&HqF)>P7^#SW6)__I@9jyUj9Us6hr2suc)u>XE_4V_(HW z5{uCVVZtsG{YA2vQb;y1-wTyeC`O=9NE#m~feK)2#Hx$XUI@jaYl;@8Dn|JVKof&f zvhk4iO)OA82i>)H)&L)22pdB+f&Nl_Jm^FPT8-pp{>7`(v|9+~{~8>uc^Mc^Us`_} zLNSi9VjTbFq&Aq*hCH78nv^|^GL7xb)P^G_F#Nz6?d zng#`H*%Zhie_|^Fnm>H1!;g4#c`#=w;>Eb-E;Q6EppVSr#`KNtXn06-KE4gR$m8hI zZ)tioCkIm>F7MqErmBrl2DXv7C@6BQyy(VqW>`;-NQBMb!sc$G(Ak%dmUaaz=^wM* zuJpxZQ^9{u0#cD^v%GWgjw6U#L_J)fhBkjhVVQ+?IfcXu)<%rLZ$!l}UZ8%!Cc91` zjwU2xN|xAvbeS&bU^b09QWq~ochK)1LO7^HPn;+bd!~5x`GN7{XYM4!x#g0%j z2-Uj(YEf38?q6soq1c+6i#-ttUZw^^UmYdB5GksL6jAI!aN`TQs`J*I!PVv=&A5|` z8m1;)i==^M@Qf-*wxPBP-lc)wbSRiSRIL^+UPUAhxY%|~ID!3>k(taJEr3`wr874x z>O|H16Cf=>7)6`y%10vF)VvSaEuex{{`q?Ji-G7@DYgb;PSL>1da9>XBeU)B`Z&tR zDuHKQ`N$;;#xaxWqw%xxRXM10Pf1nhDL<&>O9W)B4ZxGezMnu;@L@Grjkz%$W)w-4ekOE?rfNUoa(A{%&?%HC^vK=(>$jt!hgsBXm#ubIL z{79fC)BsWJiZEf2wNS2U0>DBw71$XLESwprQ%2b4JjrK^!$$@7je)r;us*;Rrs-Y)PbMx~LguRF744zoT{d=QiO=ZQapZ*4@<_ecxK=!$MYHG=H>zjxzz4IVF^ zKjC>A&)aw~v_hMZGzwwwDGWY!_}8T?{S$8y`fl9~-MSegd*Gj5-_sNo)vH%;{MVcN z^zCQSN9+3!7%(7a;Gn_QA%lkw8{9p1_=v%A@q@dK97)>~{_@+>1SWyp@gLuo5<;P? z``Nd=-#b!F{J;$CbHv;Bj1&VL@Xr6oMbU0m+{nhr8KSgB(HuK<_rr?@_)SxLp@4h%LlDBDUU7X$0*4! zC%9!B)bOV$JZYQMcX$_EQT322fg|Y~iX-ukRe1x74P?bgTarSn`SLNoW}9RuuSf73 zwLXm>-v;uDFZir3N#pI?qy+8AG(M^pI@1snk=7Y>!?8Vuk|sPH5H)oeJ?C}M4m9C5 zr7izJe|-9<@i!##ywCJCyLv18PP-;c z($9v?s{kbQ)FjVfa=qtNSaO&vGq~>J8fpKQXHl(TZ%`dAY0y+fMfmQIP49Ln*-h(NMMjhRa{Bybbjmw}ekZgsdX&5y2o zYo0|R5Rhz)!>WePOUExCuRpETom6LtYldgt><}jaOeo+{ zbdc8F4nkcox}dW|_%#^)@@6hn=EaJ6m|_D}R4#(RgIx>uN%=&qQ4ECGn&{pKcPO#- z-)pxf9VYv?V%a3MgbKX_e0Umw6&u@ADQQyE+LORwiv+7`&}eEAWzF8v4qQ>8Lbt*< zXfho>CXl!!t_e^HKr%3PF8Hz);}#fZ_w{kUfD%i?)%7psD1?zND1nie?Vg|*JE|iH zh1V^|q8W6?1AKN&0-gf$XrI4^<`1yY=1Xngn|Z$mR~$ZpdsD06cnS?-h_q3c6h`-5 zy*QR!^_olE!GW%aNJ8tHC(mlbAbUjjI#%5qKyH)@%=V>rpzD=aNlfR$C5-KcZMJJz z!XkXE4>f{Swm><#ScpTt>`zH{TGG;BW4tg3`cfl|V#?9Yt~lqW-!SMXyg)CAc&7Z3 z*4KL7QRHaHtiqYGxYY{AjJIh*93PI~LaZw<{ExkeH1IBN*m9tvVglmi~|X^s)u!0RbovY0uNM8iZ z)MAsk^Ar-HYu)1wDY&6{7_nCI;jS zTlf}JV+~b9|G;!i6KD+Sw>>>j+kP;(;CzykYL1|155X^yMczVn!evfVxLk7zp;FCB z`~@=4#1-l_TY2wY(m3~|69FRdpFuYffjKbv1t`*Gjoq6Wulz*3jW^S#91_WN73<=s z<37twaDIW7W}q_K8D-AK<(A~Md6|2HRT#LjalTz`}koha_L}g~N4hgq#+K^Bz&})_}#p5xJT74Oy z7jWeM&8Ph0Zpkt{0imVgvkH`>N7QXoBlI8VlKzmfR0kP#9fB8O0kQIw2C0wn!Z_HB z$$ODPwBZ2X*(eoj?~3P^CMj9x+~0x2)^Gar`At$rJfWm(#-gMxgrTl@jR)Cf$vFPg?jC$slEOTgwIewf}52mr_p9Gr9a9Lwc> z(4?P*+m57uU4<`51n;|zf3Z)xpDvq9-w&Pwzf1N@v$Uk;wO@+WzBPuQ-!DDbeO6Nk z%*{$MGvQd}5O;kHlgulL{GT67nc7bp`T36}OWq@iI1Z^Zc>jggzlWznJ`{IEc^dYp z*v##qTL)YA?|9@knlI#aELYtN!bcqPm8ims9_scGzHl=W`RoJI1Z`X+f8>A^r~T$u zUUvWuYn;P-ACzJ&vpxsZAZ4co-Uvf4Q)xnhFGB-}y!r(%I4BLW^rjS$;~23>nW{f^ z^%5zxNOAuc{7(lV5P17Dq<{?8vj+!2sbSTA7w%xFIfRjd&V{Eg#s*$V>G=GyLsFC} z784jJLGy6l5OA618qJ3vl8U45{RE}tq7WVKYOGOcoVT3ePacx`=88ktfwG|ElAyq@ zo?s?{l+Zg}qwWWx_M1V(pR8SX`cjy*vb6 z!ndGcvt4n9+SOWwnnEftMDR#%LNR6VA(pQd{F>dy}F)ywry0DH-0u}KIA%)nmr6F3vs_Y^||X)zkIqDxYS$>8zg z72^qa$u%@}S_Z@QiVAz;0!0`hG)(~fu27yI1;2LHkOkA1TcFhp@@@xNuCftv!5hwo z1%{SLcR#raz<}M?4UKRotc3-C*@*3dvdEQTOSkQhs3oK7484k+B+FDrp=9+4SRJi^ zqO+Uak+gT2 zW}bj{!Mh@8c0L)5ypO{@G#*n%K8#f-7TXsl2r6<-My?&9;~~nTBTKk{B!FkpFqp)t zsCsyMXCEY^Gqw;{^mY}GTFZJ8*(g%J*$cr}D?|ygGIZO5lAO( z&EUZN!NCcfwOMXBXM>l?NJ>f|Yz_1!ShecIA8P$^X`~cnlGAXeYpD7+I*9ZpA4{n} zC1KWVcord*R~3J6m@^Xc8)~hAaq8^%!v?w3$3IM^qo?>QTDh9HI1_x;| zMYL{z^_5p%xx5gLSkAJUv>+EL%K`fx)i~^-Lr4JZh9SERc~tmOc{@UJxYQX7DqX%p z>Dig06h(#Jvmmf0t1CV&p7PQ9v&3pweuoV}h^*gwxgNg*oDkk_Z3k_HNZX$+?XLgX z2-eZJK~sT2WR>7M#3g2+fSybn^QB!wEFCO1@UK3XM)nA7jXYE&s7TV5V|?fr(jayb z;&Yz!1-7>_hxmP8NHd2)kh1S?(8O?T9q1Q)#*V=6TlhVI?98*{Byar!3Ny!ew=bpG zxki)%;OI&<`3l23pwdtpjw_leL*QS2Kvl&oE}Vz<02nQ~s2Esc#aI&_2Y}Ki za$XK8M@*&VCZ7M}OKDhMK+g&%Cqq2fjLy4Y1rc_RI6U>8LbM`{ijKdkjuxmY?QZj!FHr(i#3LzN1Oz0S6-wf#1xGzgbeT zekhMWF7?$e8p^Ye!%5PaZoKrkG+A44iobdsx>Zr9c=K^-QUnzt4v*IkQ8UaR!gIfp zMn#a+LqrS^{xUeI?E8vGW^ZZiJ9h1}Fh%Zaaa-LKkt{ z32CqnJm8VJ=qkUsnnk(gtQ@+gI90uCeK}d|8o}Td!FaDR{i3)xTN$(yWG1f|+&|s_ ztM{_E{9?ArSqtHC5>JRoYP+{@nvc{EvRYm1GsIs$zA0u^*=)sx4!Zx zH(|G@?mbVN!LZ>ayhDTXz`Npr^Bw%uHyZ^Vz%@pvv|e$n>@#hu+|3}vEb%_J5gFv& zxGQQ~8YTm5P#3lwL>73U-z1~&9sY_dg|2vn_$os%LEuehfX~B1+A&o&dc{%o;y)HY z$GdK!XE!UMVku*)Uz98F#vGD!XCun6ZEBb|ccDlj`?sQ%J@MR*Clk-JcpyTe^*=OJ z6B?=w4V6MeL)iiT^)4xIz$w_XK!9LZxY(`)Bnh2x;?uvC5_Hf~!t!w99q##7x?MZq zJ-+K(jPJ~W{3QK;^bx=Et@QNZWUS=fh`9hg4%uD}t|X`wQ34_Z4Gvcf-*HNc>yZ|W zp?wM*2#=59mrhBEB!ntiu3Q_yN1v9W$4(6rDdqD4V!<(mI0t)v9N@VC9Uxt~d3#6! zrC8RfBT}+Ld1U~vIxVGinNQ?B0mP2yAJp{bb=4Znw(lfK6X?m{{ygG)>Gs~?{|3nv zOlwaNBl28cISvhYNZdxEobn0tgmQA`;X-1|EiXw?RJm%3G>B zMJV`~Kd6H&i{`t&m(s$gBMDYlKJN>Sd4Qhslh)C4XdPvewtFW*UZMPK;giouQ^NPZ zNzKy=C(PQ1E&Ok1q)P2mTlk)wt3+*`CPn_Hsg)e3Dqnx3(%4a&OoOpwm{Q$Ol zOF#bX4^njE!*5{LV1*Kwn1Njn)>wqm!6?{Jlvvi~R;QJ;M3i}N@YWxsK0OB`<~@l} z`>-+&h3x2QRUJdOlW4KE`n;jajWPG^hl^!JhXl}#5gZ-Lb*fBUKtTqZ5oCddD!Jc@ zQ7kQle8y(%#Y2?CuZzPZID4)>@5~bQDeogp6gHT^`p3dzm9;1>a3`DKQy^vOboo3V zaV_28OR@ZQe)LBvruS_KptjP!C8@>mFs;}aVBY;FSfMjSs-VM`a%P)i3e@~R2K0Cz zB+bi-Yr#Sw7dQXr`5hw7_h~-|k>+QDfugYqble%xIeVUR!Nd9g9Pt`WAO6x$(%2q# zq-Gjg1QvROI1^Y`z*~R9f;N$NQ>3-nN^er6ep2nL9X#cX6vaPOq^X+Ed3dvQi+1R% ze0(!R&l_Ln_GW2VjD)xC&Z|Hurv+xGIykhJ@eVOx*cS ziSqOL*UeIj_Li6VfV1$1m(Qo3g}wHl_>!|yyw+skPo9O{b_PFtR{BJ9iht08?R^uU zeNMV7GlQ6j~gVK`1I*{9w920{#bFBi&BzqlG6nz(8&{c&P8x7-@n4|yD0Sy zn}DWW8PDa5(vYERVT}N^x1s^bxCocs3>vY~xx?V+UtW}K5y8ECM|VFT{fm?rvE&6h ztHT-GXaD5#FQCHwIo|k-GbH$p_LRbF^cc{$;Eq<}#4k=XkG>REz z_5KxpdYgFquTt`$lh1be=gsx(u?9pRo^#`=X<%@+lK4s9c#{A9SLvYkS|oqqHw?6q zcl(d@MDIO8HxwZU#j@CTfb1b=@eltaCCA|XJv`*YgU)k;F4Zf~kr~W$TX7lLC1C86 z{O(KA)7saxTzgqcLwhnVOHWJFy7>7Im!)^zEuOaU@+EK_Y&wE-s%@zdP!CvK2a+Bl z)DIh=zXfKmS$+z{0kOCoSnQr7o)a5|2HX|gPXs*px6S~%mrAcJz8+u}0o(tsrVv8N z2HF4OVYI(5{(OYzcRYHufS%)cKYLi>iC3g?q5YiWlP$H&u1MQ7UH*pYW7zgt)u(*a z?^68G^=cbPbP6V*70Z<`_aga#>_=#aU~KQwxAKbLrI?{d>JSz)2Xh@4k3a(gH-L4e zRC4;(6tCv;mnGf@7;ew`^mpmbaX|$;+WT9I=&~c5p{g1%P0lw|J%nHIc*(htQ`cr{ zZHC$~8+N2h?*x8tJCM;loY%BV^Sa$MllaAUDJm>5b@bPyxCxW!3ZoIw0WhNk6ytZ9 z{VwP_8=<@DrEMeH=-Gqj!39dHu_X`NNA>C>zWkaL6?ZRyi_BI!4344dw~a=#X6XM= z81ywq@;9$Z!>6AD=&%*_=3$r9osNgbG{MMaCd_<*^Fxl=@OC(YeEO)Y!6Xzy%G)&;hwr{bTi}~#1?*~ zvV~tse|eeNNPGP+?QCT14CfS&-{zd;@fSEJc>Fl)c?09)@n<@_di+^X;r3^{UPL(0 z*RWfnr>^bd@y{@9xhB%&(wEJ!9OtJ+7Uh-)Fo@;x5N?-- z)c+_AFEin4@G>JTApJ-12d;vSK!lJ014!KU>Dd#5Ws4_-u{7)LI0FGPRIZDsjc0lH zc@6JjhXz5N5;F~Y0}j|7*!W{%EZO}PSd{;rvTmxHGTYYCd2Nf}{^dh(f&r^3of5sg z1Ew)AZlu2#$3j%EygwK%&ceA%z?IVQER)SY4i?^Ul7%*B6(RtK7{GKjj2DKpK@)8= zaLm#jNtBYM?ZjDwO)m{`v>9-kk#z*Ajs8!-@*osD5X=;&+*^ZFBWzNYjvD@EIJ4Zd z9Q}aZJfyIDtt14*n>W*{?7#DnUzP;HP4>p#5#WQ2i8-sdoKY6kg8Mnl{`hqCTQN~59-+MOGtko zuoNo;*diuRgOeFC03$H}VXvkIuQ|YT<<6CT;rS?O>oFALG8pglrF57J5^BP#1pc=;^9i9f^^g3SpJPLAK*Pl_-I-O5!Epfui7KH814AXeUw$Qub zHKg5}Wf{1rG0Ul8-er1kiP0-M*qFsYmtYL3vo}`I2+@}>YqmFQi7(6Am{m;QjalN* zzcDKZ2|^mP3h~#C0;5B`32@=n2rntXnZ~T_CJ~)XKT7kY4!>io01BW1poA%hvj_+= zkS*W@W-*R6MQ`UO*3D@sA*j*WhT3=PHx5`x+#ufW5@GUKXhse zlz#w(@)7S8c%3lD9rfv3DGPkZC0!^p`beYXVOaW-9w#iB;|kMkJ&6~%(|0(4B?NuozgZc%kyl2rs2SdA zW?#0hF)e;1QhBGDyts(O*qFku0BYFYn_Gh3y0#*aKneW72LBiG>;{5!QEq%fZc5xA zx8JijqJYnrw1eH%{?%Op4gW}ArXN=+11167gb-i_!`(V4#f=SXtGg^3ve{1i7{@8_ zt+o^#gg`QhYPa2XssiNRhKC=i$N zhLI$L{s{OSI8f{E#$q&@D*kMD7OP!!mhbP*Zr6?vQty!CT~OHfd6;>ReZ3Ty?lVscGe~ z_e4YY8`AdYgVrMlsnD2}zpcmCG#vdGyib;{bch{u9DNG$MZC)c?l!3oF=o8!0r0w{rt+)wjYUG|A15jv zhKiAK41qp8P&s)UF-T3)UR;&}==Y5KMA)ZqVqJaishW+c1b-xrHSA2$c$n0{7vyjB`MFwPQlP+0wLlY4-;7MS-z~?Qj!BIo zahOE+CPCZOtZYUBgx%SJ?Cn?8_Jnt~$9+RraFesE4@~}B(MPqqgMsu!g%&|h6`!zb z2ZUY_*wy2@-BX556>UhnFHm>D4{WW6#`VV3n6a^bT${9Wss{LE{y(ys0$Iy- zz>09H3Xp?uIXALmO2>NkYJsA_^Y|cs0+gTxI-qCuDy)dUT#bq}VVMH|i*#{>n!w8a zE1`nfg9a05+4TmboEhll6X@iPbAg)J8xHpf9o@jkKInoqZht@qyNN~mW@?SbVWBG7-fmzihK1|E zUxDcZe8wnmoZ;a{wwli$#9|!54O*-`3#R&s{!O?qsvgP!`b`z5;e+xeC`FN4#YLlQ3me{^_a@tEbt4nXw`rdKlGbtpB+=r7141p(HpZ~6sp?PE9{>)Awm>{wmE^}7Mqu!< z3fvk_*x2$3iZN0#P;?tZa_?#@6)KW zcnuL11x7704K>Cjj}!nDu_*3RC3Q?^sCpHt4ck^|(z>H_muf^PZl|2e^M*>yBiXD=cjntwaDO z<{f`~2upDH!rA(_bjT)5q5Yw2!zr)MdCss+8$dZ{@6Nk~{|kv+djxg&LmBXMl#K1J zq55OIpaLDhu)Z4auD(cPsThB2c_d!woYx$R;EJRpEADsagJK%(5FF6TOAdC&C~cG< ztE2@NeyaKeRk#nJ>M(*q;l=H5L2Uv-?PF15?0+AHleER#%a^JRU^Fclm}3OBuP$X6 zp}VPf_I3yJk!0lt{P!9KXBNnc&VV%?>G5j}RXId|{8~fR6ugMm7x`U!G(29}in-t+ zcS!=4ZSYbxAeiRn9yVe=HA9H(FX=1Si_`&j20xX!R7!}yY8MY<{k7Uz-*WG8=8z7w zN&L6rEKPHgj~l@fO`0>P>;o%#H4AYs)uI@4sMgvY_SuyDJH|M?#fmnr?8m zMNTpK^i$y>k_H7EOwTI)@2=1ZHl35aGoW!7Fr2Vd^3=^%YlND7+4TPd954zBPVUaJ zvSK)r^37#BITh>0k(N+#D;Q}1i^1~z&ZlTTE2poe+ytQSUJC-KR{%hNXbNoGCgg6XD%>DE12C*M3Tf=5h0Q#04G5n(Y}2`-VkV?fR+W| zay%J8m6o9pSNtpR@y*Z~RStvP(u zBo@~LaPv+vwcPt&ApGqde*YvkQbIWY+azYuRxjWmPGYyZ^A`v{+NTfmW}A=&rc@=6 zUCf(HeqkM?aWG3cZ$(4Y*YEHeK-<>JbB`lBxMQrcl9moo0NW3<-B2VpXTW2cruoG3 z#Vj(o!3v1KYcA_l99 z)ar4wU&?R<@INNMpiumS$t)K48l+dnsMN;*%G3D)(xU;rLE(BT+-g&P{f!$_Sib~g z3OJfNLOdg$7*XjU>fL7RYxn_z3Wuqa_acZ89Cv!L6kM{yQ&^1FRl;|qusgMVN_bQ% zyCuBDbEU6g!#+MemGy~fns)=ZfxX^TlP?cBd6r~FVVRzchn*P6-}K>}ZthUMV7xwx#0-J+S#52i7@@pw#N#Aq5Ei0P`vNk6WglyN7*2hk;`(3I1_jsr}{8xia=OejQ#x*K>1{!fPB!|W!~J&$6y-) zKZ2RMBGqlZ&iR1D^Ov6=g?=r+CxZ=gA3G>EC9~|lR2?LYAT%CQPojkZONIvfmFp37 zKo*QpCWA+SYByba1i;EmW5Hv_cz$U2K4gZ#c2jC}GQ>s6p-w$yYh~Rik*>vfsj?Da zfj4Jtb`C-KDYM=cR||NzOxC9~!-<=N>Ac_yofllmc3C~|Z$;`zS1<1)Li_anGiU$+ z5x#fIGEGY;4D&P0{wM(*tZNuLGFktATfa0i<5PHc;JJV&L?dY=`lsb1ve*jKAECcUu06)z%woOfkq;oxE^1?l zYs{q$@Lc4d?~3zfv^Q=LDqaY;6*X=ku+hK94V1J89_1vqBmhWf+V?q>W5JY(pr#Q z68MtVtgf=L0#udS$P=fsF}QTaF_k5{lcDWsQ>J`KqW>rvvgs7xhIa6@WT!9^p+IP` zuPW+jof91so^N_=mNFeC@NoKzRo3quj$6gy*~$zCY!+5v?+lZY487qZXo5j_OnY3V z7+nSy&MQf*6RV1lLc_KF&_%rOG&VA|&^cYED<#diY}ixxHk~xxj^S!DiQ(FgA8%jS zCXCu!wVt$zrnZRFIG7?-e6U`J02|*pjVD&E5yR;2(tK~`Y{l3!I8O#TL^wjEbZtl%X!3iTgae1Twqer6r5ZxSVeIipX^KC3B!Cn0+}RD=v@qms^XJcLXm6 zHHADfiz2~Gl?!NxhQ#5@8$}#$3iYS7jalI!N&&<&REWIrm$dw`{ETlO!I85W!ikEbpnxw(cVt}m5LgNK$ksD~D!%ML8xn7V4 zS~uMC2B;K-1gznb9wx7{Wno_NE5Min`4Ophm^^KI*X?qatzvwJGX*3^j2Oo7kHiO7 z%^^x6CO8n|hE1ZUtslAX?h64G9i$}IsSF^$YmBxBXEqk4edJBv&j$V@Wk~G=8(XLa z5A)1SHd#Ah2LE;@_HzCBpaSNcAxNOSiK>^yEo(6Ikv9hoYa%X5@>`GQ$&fOhU%eElqTr>TN?MQn^4@FTFYKpD!<&tiSL#{mBdh|EnlDaMbu z$<7LA2v|GgebXoucmg~S@F!dVXGZjzf^J+qiP{$^Z;5e$Kl9iJ1>EP%EotDp>}>FG z=U^;hc_wgUD39=$7>O;k`c?14$%AT(p=qo+!y}4-rnHl%f66~W4biQj6vVEQG%@J= zNdQ_?L1!h(I+0A*Jc8zCu-N_;>z0MUd(id5Q62qjVS6)|g*4VsEkw^D$XDkrGgN(x zct`kySBE@Wq%7ud6*1Eg_@9L;11X6cagj`502c#HSeSdiVW{B6DflxHU)OQhl91av3Z+0KsK1fTb3v)dx6 zSXjha-rsSrSv z-=@M9F(JzMj%xt9G1!W&BL*^K7@oz0m~k|QaT}JL;7&^QbPb>S@v=QuUS~Db&P#zL zkU-^2Rh4huZ=+Bwer$+X{93I*1Vm%83#@+AD(bb1ymx9hc7=<*q0pbog#PHz7B>!# z4coFA6gbFdySOi^zY(~KNiH|x+#=SE306cCEYGAQ)B$;dTm(=Gv#5b4)htX3 zT$(^LOQR&ArC=_^tvwL0wgBWG;rSeo0l+K8gO)I+VN5IjOM&~-)j^@dKs_$ck#l1! zt`<78?kte|7`8P8*pTrUiOuRrti_Kv5-LKY=FHn$RVf&ehWZxpAWsM$#HIH>D&FSI zYw$+m4;qt$JWf1w@vI!e&(2}fwdLu2TrrDtudhP0u*8Ny8(zG7&4DXDs9~fzK(>2u zogkO%Hr1fMkWD*@ENwcbPuN>SZy_5+aK-nn&@YiNb71H)OB-Zr3h2g>S@Ot2>>d1H zcLP_93PYR(=1Q8$&?)lnE#K z%(={}Y2fAf(e~fQpPtJ`MO0Jgums@%pC6yg#!dJ-9jX-*U`rDyJHRz}^0^{@!1Z|X z9ffbcdI1}vT{@LNyMXo5+NbjE3z${fn$pg{UBG5*L#Oizcd-X&uPy}g_lCv}&V1wc zSJvx+mq6L1i{;UF+e{_rMM0%3n()$&0%h||g0S!;A9vJqR_~0S=_|)=nB_Vpbs7W% z(4FZh@QzbhMmvwVo86^bj_$*XV=8yujmoi^;7{Gn%-zQWq&A1;cV@&T#MylJ-7G&{ z>@)};$Ae=k3ZC=hh{zvB$szPLhuECtjML)S{2N$Va<4^Bn)cDwRv9%Y9aCzUlzlm+fL)YYE~b4{m6ov%cLA`Rpi(9iF@ zhec?^ZT#MQ*g$BedhcO(NXsEU{ox*#CSFD?VmaEqnS9kEY)U^(LNy_!q#-0uZKzqw zLuey*^08ucOc3xcd7dP==! zfd#Y)4uB^PeThZ~1Fu6z0CbR)5Km^PNvFJ-$NS&QCXIe463%K{kI{lK1WPDd6ia=6 z0)V04$b9On6@7P(r@o(_!F~6l2j?@}{Y9nM?8-s`3=_p&p}~UP{YOw#n3zKOjGm+r z=k)DZ#Sn^Rz*K#HU2pko`P$_Z0Q$=)1I^EK{Yu9Cv;1W+Scpmoj*)hP73Qi`bOSbM zW^Dc~D9TkAEPmjm86q$4bHe2-|CC5gD(Tua_`Qw?$+s(qukkzw8!qihZ|7?qY-I08 zQ7&-aI}Qju4`-Hy&u>m>=erzO6W>N>v%ptKZPewzh_NTZSS0moQI4nyHDl`nU-FO% zl%e62@>MhfN#tWnsz_w1KH(fvfCMus0j0bmx@e}b3*uD|B8YPE{d%e>*Ed@eM$tzy z`O?L#aQIgf+x?l;mR8^=^wl!j{UDag-N+5cpY3T>Fun^idCOup&>e#&$k9Xu;TSvowB#0Dy;CWf1WC4w3z(2_6c zT`A2-o#IkAE)558Gb4Rh-;KR$sTS`>WrQlO!=2Pb!%Cw>f{b8>0AE1HviZma8+5r% zDW|tc|4O5L%&uHr&BxrwW@zVJ<(~W4ut>x~UPnxpiQL*hf-4B`V@bWju3QUV4QF0Nm~`V6>SBILfv0;42Xn0KBPtw$kxDxmAvJbeiprp+JC?_a`(FI?1i&F{Dh z_6%s#S*9SrfzG{)4h8ylRh5ke`le1M^yCqd!mgY^G-=s?M#<`6l?J^&lQL^cJHNVw z#n}E%(OU8^`Z(Uul;_sM)`DgP@ETq=vP>o3>~^tN>C}}ua3EiG*J~o(HzQS~p)wT3 zxqz46&n&r*QDqP~g+sRb%6?TKnbf*29P+=qxpy?g?M+ePuq@YmG@n1a zl$o-1bFup-0f~@o|6&l51rl+0lMV7wWpyoCLAlmp{r!)jT4-`)>g2~yfjoI3x(C0H`G<3>0y#vMiRzdlEQ2E*dhyZcZP}RGPTP|p2SV5?kg+Vq zOi(Ol)|a4l)X90{sWz;ER%ice|GK`QGI}68MV$eap-iuhrX+A|a`zSf@p5LF(q-D`uu`F8dvR1d?^wa6nnPk?xg)Mv>PPiLZ&32AW^6PdJL<~5Kbv;7I}{GVm4&|L;+(P^+ClFa&wq}rB$hKF30ikq>zj=eMlz5$w%kRBiakN% z&B~u&5H!%}D~3`@I?WyoTB*jHs*}_B2dK;49k;B5npkYKaHj$Y@-c${3FkZ^V-gJj zGKH6RAysbXkD@h|TuERqfD9M-qn6VmE7E0=VH1!q>6&44CZ;47&rcxFN=80fH0RRg zhu=IxOm=*Oqe!eWYye=#|Kw&-e9=nQZ}NEHi!EO%#E1sRu3=MJcrrZEZBJ3-#@`rM zRp*S_o})$#7}w70RIqpp*?|Qabw4Hl_)=qw;GaMuz0N zMmf6;XQzX)p9(!f3r8w+$02moVgCXZYSJF_X3sVXtZ#r~JxIfBwQkYg&Sm=hnV7er zba8e;%`hjr(j}f?3D7ymX~8*udqYOGw|w#{HgaSg!t<5)Zo+!8an;joxC;H_1K3EXyHGvW_{fb3|kSdkWtP)kNqUd{x|%zmxeo*P`Eb%+a_Tf@D!$N zkpj*C5XYO~^&IA*_#^Tv`Gq)UbAkvuHq##`WmJ+8=-HDUG~Dmpf@_G<_+cvSZ*Z)L!$;cLuDNc(SG;J{0&%;pfptLxI& z$CT}P*H zF(&=A)fe&w!!oW&S(5-f#*MU?94cWJH=@q+sng|vVeHYl{xR>r1=C0uHiwG_VDMCadG$}%2M;<>6@Up~&0nry=@U&O zK-KIZ&hd(K5CG679Q%mxF(as6EO<`gke0|Q*p5kpMbUv79P=d~QOSmCm&kl(C9`(1 zpeWpBG_sw$D_N{L>SG~>r1kPLXih0aM{vev#RjetyZ>WZLYnvi{Wz@&aF09+D`gCd zpdH+6peY!a*_iYXP`9k>b8j0XBf#8SK;I#k>f<1fE9VvmByVaQS@cK#R z*aE>hZiIXG#56-zPvjAT!mC(q9J2%QBSo~S87l%sBl`)8UKoh(PNlwMC8Y&;!JwEW zftcSg#S!zSh^dW3j584Pl~}8jTc)5qt36ivD|MhE5V@1GIbrjuR8jE8K=6wo>pBk` z>%M?c+Pa4UM}Z10pl0?01Y(42$R}=yBtw82|;7zV)zAupZ z*+Aw9HFNV; zHQZv0EhK`vBZyXfJy!fg^cVCH%PVrdi*l%6a{+iT%K`E@cMc}+LM-E7ZlD?KfQEso z5&RM)J(sIkWdC;p!HyTvH@JiF zVh0v47H@WO$K(-nscOwv*9jqD=?X+= z8#1n_p`JZs&`HU2Sg$Qzf*6Yk=J^|0&!KG~(01ik&`mqNuP<-9A}TxZjP5QTW~fpl*UHi^8eU- z_qeF4?tlEu%sDXX;EXaL3gW1Ppdg~4qFh8pyz3}(6BWFmBOy*O3loFlqd+jrW+UNPcey`u_`+dEB|NP*!W}maq z+PAgWUVHDg*WSCURY~bpynB+6BU;(b4dPJe6r_&5Lx=>$8wdojCq|$~Zu`o+mZEY` z*W&3Y)?TAE4sS15VQvNaXn6jbnO2;$TuC&(b${mS-lj1+jNG_Cfmi=k7>pBJhFHnE z-Qxa~y-+C{)u;Ng`bu$p{y89GF8~@AP3%6#hD`_p%=Zlz3%&QI;!wxY$Nd?pqDaw+ zL({mt&{-%2uApk<$pMoj`IC?;9{Gv$OzoU? zbt}4pt$*Pe*3#rIOa2XPgv!XP&yv^kHiNCAW=qnjQtQP!QuTVKi2X+bh zLvfVunyH4U1AH+N(z*^eviJWXMmvA)N-SV>ow<>UIctrEH?8RN+(_rBBADsrC?N^2IN_qQI-KQ4&V&RW8T% zo}^@E4?QM^IVU3%;GGC$Kff0Z=t*F@jgIQE!|dEP zbo%dvVdPB5|_sH2mg#gB5JpCpy{X0hKM7kj1df0g^vgva_bY}BC5zT~a9){9=AQ6vVq z0+y|qT({u7P@n#LP!`M^`~1wZnK&f;N)#5kZWD>h{|vyk1z&KK;W|98{s2Ve=)||8 ztE`c|&cv1KDX+4a9WZ5omCfHFn&XB32s;AR5RwJED@-(%yi%?}5eP~9R?>zV?q_p7 z#&$czoW7~Go|5S+7NV9A{*escv6Ai|&Dhff{&Rti+$jcjmbft%_BeZ#(0_Ddi+75a zuCJon=}<|WTt`aD$0^rSw62|v?Bku{V$EFrZI=85R?$}c#WJ4|`{@pT0z&yxw5wI8z={)t7C zuQ=;LN8p{}@IA87tal(8KzSz3n^u;FLDJy~Q!f6+yPyMY%M7nXPsJS<5N)$4hf)H# zehQ3|4X}`kb5%B?aFq`d|B)IPr+Z^gfSrs^b39%XA-HuGRNoBDJOz1Xu7|u1GtpzD zF=3=4W~Mv$gGwNOEq5Zu0zL#~TDci0w_81KT>Z+xbGt-fakjgna z`2*zMl?Lis^kmx;RH(|RnyPIWE480S+e%D0O~*%W zuf6TAT#Y1+r^oQt=}NyV1JBA6p{;9cGoXDQZzM3pJkN8+H%0SILHZ&~m3cbXXd(h_ zg#HjFgf2ZDMxlEP!2}FrCjZ4gdQ$8^>;tI0^X4cmQK=)CaVwjv!MbfSH7gTRRi2A@ zP|r|RvLS5!Q)0MZ=)v1qq(M&ztj`?P35LH1L!m8*5~ zg+X9Xn%h^6)+UTKmd2Go413UMl5jc5k83ijz)GVPQumwJo-pCjGA%<+q_p^E=a8lW zZ3rP2*BC*HA)E}kD@S4NHjCZW3)iuT%`oAL|Ba<>7Q;c&VmN;5)rchxtB6J_#GcJ! zKaE9wn|-($TW1>C@0-OwT{MJ(q=7@tPRpB~!Ny{?hyfwXG5hgIWSG{py_IqsZ z7O@**S+xZTtyJBcQ0*46k0woZn|;1T3?3VSwgv*Y&LCy@Td`_S_m(sOo*z zx>bzov84QAbcwh})qoM*KlecWgl&T)D%w|SVYT?!ro!Oa5Y=vbmof~OA;NG9K7?4B zk(V4xsAY@9U;c}?M-*V?`n0#F3&)evcJ9*BKZZU04>7XCMfC0HdMHvhvQA@U>vm%^ zQzLt3w>VAx^nci&yJ39XV-Fj!N1U73#D_l18oUu7e5Wm99{>H~8LXR6f+(LVFrS^< zBZef$kN_qD0Z!Lipze-Gmzsz+YeBaq$e&K3+=v)UXMi7#b7&T7f%JW{kV{|IXRp{R zi#%+KN4@I=FtYgsV7AwbB(&)Ss?g1aBJO)Xg_q0dtEsQ}5ibfc5R$eSYcsKz1d^LQ zwO5Sj^3E*`kI_@3DL~^xY>C}kxQP7gy<(3f=Ps|7P-QisQ~z&D!Y^0frzAXwS5gvg zt6{_UiAiedDYkMS)I6(G+3tNHP6%rBA1G&1gdX@l#Cqv}hi2@G0Is zp=)c3z|D)xyS<5FjL;MSdx!E9hG|*W0lZE!P^z0Bxx^}3O0#5H7jWMZr`Xb`adb^1 z+w`=!eB#O{JzX6iBOMu~q?k+Rh+{-marg?cHU=d;0|)=*P1s^x$73t3_tv{`l1+I= z?AC>BC$i+t52J_>cx3j2I{a`aTlI|C)nFt7$#du<%HQW-?CEF3_{XZ3iT>ClmM*71 zf!LsXO~-oD`kn0NGh(Q-8B+;sd?YGLNQeEGyd0adT%(OR$iaFJzSc|l!T5~6u3Z3* zl{0~0y-uH6l~8i35(HW+m#u~FWUaH|MuDl1RvZEQz(tqgv_VQ5qPl%fpM(a#63c~{A0g6?sT~ZitqAMDV~<7*hKA)LJ%&h zvW`dK5hKwEKH97I#nf&nhC>uHMzWdm+S|8aWT~riLMY>i6UQYi3LHd`iJn=n8g_BJ zE8u~KdAv-Ct7kQjY&nmN^fgO5f>Aw@K&$9zB+vZ@n!Vvzl6uzhMX|4PSU*-L^sq#? z$jj@{4)#S;JFv*_9Y;H0hh7i|gf2rnf#mU`h2M+z&~Y~7MKLy7v563GUJAyHHd9VJ zMid~8HbspyeGr=`>P)%oarXL);%L7{o)n44nb;*Iy(A`%ZI4FUg*;`93yf-xA-c}U1rM+dFNxhlP9HXmWuy+ZK6dINP^h>>E>~r0p$R^-*ui-qLkM zjBTZx`!>71U+mv6r4&j6xk%*mWzGs7YT!olyVgqR}rMENkPz!IVCgH39n zXO)!{6Vlruh%2)YrpRklt!(50i~(@!EGs@Bc2)oI7OOlU_Uf}0TgW_tmm!}27WikO zm3>5kcfqoY2hMnlb$uQ-*!Yn2ycpSSA4pm01K!tqX6TS+w7zofP4>w1;?Rf{Xtm{a zL6}(4CRLC_A@MZ1-;p*FPm@=_#lC%B4C-wMjw^+9<~YC~VM@^_b4H~b`=-fP-olLV z+Vf&}rv}5Qdp^8|4w5oG~zQ6yJNGxZvn z*W#TM#%tXQmK&pHt(r>G?Aowjd=oK+y$ZsK}Qp3gw&WzmLYV5i%_3Lb?E{t4^ z8SVg-8o9-g1R6^&n0|hZRlfptR`KiLSW@ldjzc7y=Y7R& z>n1?~^G-2h#}vXPL&uC1Qjh}aj6)LcIAZ9~q8pjzCnilxmv^-xx*8%+gB(@j0Prs1 zYgz(%0Q-3;SF$qFt8ho&XrugmF`MwJXi8uC)3(M<8=-AjNhSN8N*KhHV-Z-t9jm~cU2s@Awy_y9vpAJvagx85 zNQI*(jF{pSFX7~hfSFvn(;Yy%S#S^PV-_x0s*?52MUY=;5RY`$rpX6Pt#VpZIkgi>Sac+Xig{ED?(j>#?`*9sl3uIi2W64BmZ z^@MzrO$H=&!f9M_i?BSxCLel?{kXhAi-<~&6$;bS<=05gdT=YpXMD>#YKajZF_MEFKzso}&OO`(_uZD1m_SM2)h;;61~cs5i+1Y~OG zz+M4F&{l4Gt#a727+}5o-*X6gu@L!-JcX{Gcc2{x`E*oLd6eYeGiGIUI@jv zHKtS^Ch5!3s#cifi5|R^0qg(WqXAQ(ynvnHxl={l?Ky^~A*pYYJbx*85 zR_i^8KCYv_=*UoD5;<-w-@>Q#nNhJLu(2y*4Vkr64T36l043dv~FwI%h<%)Y_ z^tEodix(pA@Zh1?v+qUITFdC*Do;twvh8llgI(18kuz1Y<`cYyxq+d>GxqoFy-#Pu0i?EWG5M_=H-)GB{guObqI_9Pb&J ziY$GcW;Q9-T^_u=R`%2}u}i;Y*ML8k_8PjZEgMI}c+nn?Eh{xtFr0cTFIxmMWn{_8 z8(Aap2k)m3@>Gv+myP#S#Qo*;mHT;+eye0r$HkuNsV}gp$6*-X0o!`F9mlo-9J9)f z9LId{t%K~!aWPr*kpCSPR)^C}f)BFtI&s9%FFMn?z*Eg!k(BUx=}461M@A*lLI}1= zK$>fPsCc6z$|zue)`{WWS3U3PnYq06_DrzqlIL~4!;(&5QT)xTC_Uy{4lT-Di=w$! zw59`)kr4>?B3 zOMwI)qX^^L@VcW>NY+#LAO^{FmLy^6*E9V|F-Uz04g93oGxQP$L+Ntsd@QY>Ljc;3 z;oU_fKiU^+mRRdVkEMn1#44#Ck_7!O)|_ag zvwyOjEu6%Wf~Xt{q?qcBaXm0r8D=?k9-3MvJ}_hD-j2T!?xX9Zig=x#>p@q zrhDFPP`TI!Mfx5Lda;oRn5ueiImKQ+tMd2b!xMDd>2j$44tx0&iuy;#JM4>7uw+j9 zk@b8>3|3c{v*dTgSaohWD}4vbhmdmi$~$7B-`9`u&Vcqu>=?vuy(13L?D4z9`ZwT! z-F!BuLCn?oT6vVj4!#9lg~Z-{OAH;F z(E(F63H3nq<9Z7$G+=_o$5HaXG3-K((D*@72lFi!R&gK;JtBq&k;Sz&3anwJBfGH; z4(~VsS75V`h@pMAwx@{>O#q+u!;{E2Fey`SEL4}ms*9%OU)m?LeMiJTY19963l~|C z+E1|19Q!*G_FSKuH>ZK`B*lm*mkcEE)jOJo0jxX>Eee^$NM#sKg)kfyyY=q8h7;a{ zMX?E9B*(jCyN)eUNvC1#Q9O&;PGh-pn&&W06JJk{fz~X@68j}g$B%mA)>j-v#<(`E zP$lQy^(L!YKE?h51AZfJb3f7K?>ccp?pFT23c~WlRsD(YeapX9ooJLgT%yG*DCIhQ ze&Rcy4qqe{+Y5>?6vfex{62bpvpxwcjeGf>MyRfP z1@zuRKNTGFLwJ^-nq*yoB3iBVQ_cMkk$;-88QV8+gZ$G3ZGK*y1I)OywkJ24C#7U}I z2XESCC7R^{uisMqjPTPbe!=kj94p+~uYW~Eb1v)5Uu7%S{pCZk@{1;p(JUWAdy;Q6 zfLwCNraVJSn` z`_hp(yg-NtnL+*{aAcZeu!7IW!#NnfA_b}5x=vLk{1Q`@!rT%5LpUEc54EUtPMXK_$>DWF^sMGKc0jRX|1E58mj-(DJB#^ke@~NtrfB80%2hC#AP6Eq8EsjC$F-B=f#lrJMfMy z1yskftn=cH_9HId!gw^G5geWM5zYtsh{TA_0sdkO^)>N*Z`Oi)^@?)`U=kvTUmk|YxhJ)lm-?5^P#nH~y zYN}SOxPJINGJT1L}a?M*3I5AmK4)%bv!YYGw>L;i^#{}n&na?*fODuSfN z$G-G2)$?%{4-`a!I>Dc8Oec9hjpUy~=+lj_5oCtPzc2SUagDit!&@jAFs^(Bj9DHG zUtoYquKo+(K)|2|C&W>hC95IT94N>?ZF9RfVh*pxPJ&Wb(qRxXG0c%rwnin`2X9PM zrEN$x`yrSv-BMLyjzTqB&rl-n&*&Y)N5O)xF&264W5hrqO?}`^rwa~4QY92J$RfY9 zlQS23z@UvCH#oI!dO+Mbj`lGHl8z(>CvT!HKzN8y8)rQ%DOX&Tt=s;ea^tN6=rXYFLDQjru3cuw|bUjUv$8^z^zO zJq<|WYQ|9a2C+ook02=L1a}r$G00DQ0w(c**h{4Zobva8UxD}vv+#f>x#%L&r!>U- zLk6^kl#Y@00j0W|0&|Aqfz5J^C)G2TD1S&*UlB_sM0B4bhX{kI;R6(kvl|Z;BmecO zQpkVsQ08?`1p5yqfnZOy1shDkh!JsWI=-N*h?7rvLgsivBH%txz=drATdyD>FpWp^^Mb+P$sv`0Kv&MXomukdNQ@Jhig^?ffD6b-B?c0A6W877TxWWp zEN^i;I$*OaL^#@ZQ=n`b34!NP%Vf#*++PQ&80Fy@FibQqMMPCXCL&AL#Sn~Ha{KM* z!igmO-3Xi3ZSWwq5HC+Gm5{);_#Nt`tB3IbZNoA*m9iDC<= z^a1D2S!>W4S*Q7}2rgd#F0TTHhk8-(#~r7lZsFNY=IBZd>e5 zo5a?B4iksy&sojqqH$^rK7r6FnQ})ghk|7M_*j?^d_l~SDF>lW-mD&s6*RZ%@CLZF z!vveR@fi}rGoykwhp(yKy2LbJh+%pAfrqVk@}~EB-Yt;gR`SC7(#ke3Dr<*#2|))0 z8bjPZqrAb8m9L{2K_KszflT=qa6jc}(FL~t3!LTt60ohUh}QbcCG0uJgron*yy)n` zM}H4diV3M1W%gH)4gwQLn4nsbpp|mS^OS`Z;sT^b*hWlAhrxC+!|kn}NMsDrT}MYs z*@R^Tump*VsF#P`_moddG#b)x{Wn`DfW!BAX(fg9}RsY9X3zpsB>t*E9sG^$rQ8sGoE{% zGo?Hqe9KZUi}6|=@`{T8jFnx+($Db*WIyU|_FLp6@HUnIb)K+^w(fVd#_>S^c#P91 zi#`W>&^B{4q^@80EZTf}VgD@GH{MLq>`j9$>edBb(u4AowqQ7KUBRj7w2`Rdd*GLG z?t;~)JHQ0~Ot(O^z(~l$t6^yQpnb}2j0@0_$8ip}o5;x2;6<``Le9Xa=WbCp!Qpm& zmNlE_yd9DO!E@UTUp)^_u5jk#7f(IczJm<$eXx&H|9Q{(27S;qWDx^*r#=ECSjYQb zvi$B(ubJOc8rq~CXw~|4DRtgCqHv;M)W+arAHt^3>P?UX(mh}^Y2 zSRWotOFL2D#s2$D`BSt@l!EVjOs8gHgutbwbxL5cKvzD=-i4f5vaA<)G~aBc)I-1& zV~E(;*N9!~Brp)r`3c6y_y}8Pdn9?p@-ZpZTSqGDHsGO5qnox;a*txXz~9QPR7fmg zAw!%bArM$d;0F@sJb^FK$SJ;39)Ca7Fd5KsUtti)x2ajP(;YeeV?UAZe4we`sDWvoi z<}7@zag<|}Gx>8?*C>V?w-YM*+$wTGye#>X)9h9wB=A}Ebc#Uv7MZ8PG!m)Z@%TMQFg2%vP~YfPcU>ls6oGAUU-ELvm36NpaxFP)Hc| z$G0#NzqiNS&7!`8d1cvoHsw39OLh@5iHfRGR?satV#F($GO_)OtJ6fBKNBK2lDK38 zt{u2Qlv|;_0BO-x?ePrdzO)BHP=R6A-e7g#!EmQ1pTEGC@17Ha&e7Ho9mcIX>m*8C z-UKAiMukpP2N;#*a7Ln0C5B6wr6_!r2YR6DLa6J+?Boi#0S1ypW+nJ()B|R}yND}* zH{-Kjn8(2I*ON{d33mAVp=0%=H}4W#^}X1`{GifyX|`xkdc{1CkEeI4*#yhT6`DXN z;QJEVkHWdc zx0TS;kl*7%nVP^7%7X=2RCJp1WDGed53iG~MPx1VKhd{ZD}dn+pvg0~X(RDij5-Eb z6DeHEP$vvhuze2ddFw3lNyQI5O5s6CJde~d_QbJ7^fgmH3&KFIX3C?$Nqpo&SU*t1 ztObHM8MNs8li`tuQYzK=q~f>U?c~XfX-kGaW60x8<}z4Q85tlMCpGbQ)}tKdA0!&j z;E^&=Kwk{^NJ_bW9nw1Q`J9H&n0i73Ox9N(YV9VBC?`4|ior}pP-Ny#ByK&5+9K%ch(Z${gkK*i)z8ktx^97O{unO9~ExIuKCZc?QvBdKCU zYmM;4G4d1k!jIT_rzn;y%w=dvv?*#6T*P2O3}AQi#pYGaRV-NHga@5!>kf#*S5zSl zW#}@dS}vwxZHE1N6atfyulmv~wgNBpS=M;of+nC30RpMqAQ<@p&4>CTIuF{~Yevj@ zG1p}|{}z)1Gx^elwk%n&`)80jJWTiYRIr2p#u^13cJ=kYA;PtY5^-VR`#^@3PWB;r zo-Th2#)mgdEW#_OdeSjToXrUcB`In`F+3rQyFQuL9mrg|98H12Zi#;FsaGThU0i!+O6r~!?o8)8A`Mre-+y=l-iq}B*D|3N!cizg(50kLy3-R z;F=TUE)LXDI>}kQk?2s}dr&o${ujL3gQ(W&GB2bXA5PUtY1LbeywaCF3X_OUW+S|i zd&-+J+}VcI)=cQZv%%dF%u%rigcgdla)I|<86bd!^MAt1Fotxwa7hbY7gVUh`k2*n zSTvkYX#s!XD!mli=O@SvG7r)d14Bi2Wd*Npo z;P-CN&i;(^R@RoY+dqp#yUMF@G-ic41;nt(55V??#uH}w<75(Q4*=v~qc5dCO4!`uS?yub_WpL-k9v#l6Y~ zhoUgZ1Ao9~P((0}B7j>)uJ=+qY`l_}o(IVe_s|f7DBiLA>8;u}1u$j9X zDs-uMZK%+Vfg{KtU%BmWdWy#Y#zhp$DNCOF!Y%a;>_ZTQMz~Wv?o@KiTTJ?LGFK@(%JV$3p#r;SkP(#3 zNi?#MWPB(z3L;P%_?BD(Z+D~HKGA3 zEsB`JC|`w!mWNl$)D7~*V%-;k$5NA7iRkwc{e}DHi&Cj6OTZc4wdp`m8+`7qQ6P~Qb}SN?%X3x|hwC_pKVrs$7f(k1426I|T7k9$ zmcFY+%j*fAgF%%1TqJf=9!o>XcYz$7F0rf8jK&L<&KE?34Ilxc0kd8d4dVdo0W-mm zg0HWyfd9Y!sl4xkuNsY8@YQe+l_>f8_~N6=D+WChumBtf9=f|b&ikFEe5ew`Nd=6( zVvq~K!yFZh3Rb?wQvMkpu1o18GrqsVB7efp4WU0<^ON|L_{&4L-H*LIJZS90#>j_p zFRk{38+T1i%0eIcAa;Zw1H)0T?2;4itm=-k!oKTj<82t4oIy?!PBf z5k`jcnpoy&63u-#th_r(Z4=Lr;RpZ{&n|?Axiz$ABfn>FH({eHmVdatmnjo=7a8(o zAiA0%V4(+%l1C7_CIhpJujQ?LNI_tOe zg8$k-acsU*zdjJpS+4q>)23VGy(U!Vd$=}$i~!$VHCVremaCm>-GsU<{3_qE({Qut z9vsB>18AV2=+}RaXV>WtC-fCh(GyO`Ct_tFLs7ENAg~bb*}@h;-r8~RB8`ToyC#_p zk>hlbyoT~ysx_l<^w*6wI1^>q$PMaI2_LL-{sH_Tmrch%7-8xdv@x}>!SnSx-s!Th z5JYX#*mM)IQxpaT8+Gw18`_UbXjt{f#C2afe+Gt$#GX4QLq0Z;vpDShD1SB>5@HPU zw^P!vk=BSCB{SsRE6|P5!_F0oyA|%;eL(dfzuN{|Vk#**`QAKkZfoIXKXTVzGoX## z?StqDRj4LjGl$@TThmPV8nritFHUJ;xI!z#e&s8%=H~0Xd*vHWphtIwWL|Jk5wv9w z-5x2naM_O7Ct1rh!*U2z8&7y?X0L z%nUIuU4EB6k@s%AAP|R?j@AN78VfaU8w@nwW$*kdCJpXKQNtJUx;kzYeK)AwK1~ZY zPV!Za#dUYe-C|ltuc}9>)WdvAppU+}k`4V$?AgO!s#HaAhW^-z^m2J1AIf8M2Ib>s zDO>&mLY#e{%Ak$ zL*yMq1H(9IOF=Ihy3!CV0OQ2STcoo2@@@J+2UG^h19)a|H#2Fr5y<(bH&7$J3Yag0 zvg4g_F$S<$JMgvshnAt@+^b&~4FoR%wgNcK@Iy8cBB?`l zR}O%?QBL>8;np(pP56-F>vcE2SrlLStp%kxO>m6LTO+;*U6R?SLM$ zm6)IK#@rzAj3~YpUf(erf)D^@Gyy-n}ttl>|hk$ZOluSLplq2DtWth0ku1_CFA~rKCQno)#hGfdn0yP@~KE~0M z?tp9PZ%Ok{ldNn=IMdiP*JtHd#S&bu@~k?*nYd9s+{Y1K{^xD`K-?ZUJWb{3R{rN5 zyLsa%_3$*cgZB8?yKEe#8J?!G>m$F>G`YTUY=L@+lBdgz=Hwz9NE_o=>m^K1ty&B? ztOkFYmAwWlbL)P*)2!}UG!APmyjrB^GZR1gG*c9F3e&q@(w(_k>Adzb# z%(h(*w#a)Xv!Xx5bn~gBG;CaV5YEOas*NWS=jkgp0zGk|y`Q&nv+w_a$rYBO0&j>b zR8!cN8=|$n_%;vNd{ktrn_@=Si)bupHArrvfgeT=O+9QAk89b|o7gsg=oVXl6NiVc zk=Xg0Vo?7DOHqVlRJAa$&B6;h*Po8y$aug*Z;6KMaHEl_1h@k0*@DeVF)gB&e#Bsv zT9P!P%bf;(V64ffj6X&ofp6sDkF_^8nC6=(}!J;@or>HKfR`WU5suuB9 zRbq?7$AzO+XV({YhVJ1}%)h`G{HV~}?M^Amx#U?)jQGW;QsG+Hks>ZsO?Tyq<+pxY?w9NO%=H0~t{&}$whJrB0BpUR(TP+&PxR)36(*4| zR=;%zUnFZ3|5A3}m)rQ_6s;@xr-k=@y6K2?`6`Ey_QD~g-ZMzoVvx?KhB~^iB+Z!X zqA7fRM&`{=O~_Z&z%-HRS{ANsv5js52qqN@TgBuKt59$0WPbMOZl=904oj@P1(M?aBy=BljPzk9_tA|_xV7qaWRKta zHJ1ja__oFh-m3JxJZNRBZ{vD{TDJE#PJVldM^uk3)+deb60LlRdth%L4-60Aw!nD# zYtda9qg*DWgQ>wEWvihe2z4dVNS@?@brRm)MP*mtx(p;8&Z3yaOXSc z2J12J_&f=@w|?z?8$e}YdxofSHP9W=>>PwMO-O!WRna|#b}BCSQ0()C_Y`{VHM-FC z?!d;3Hw;z}n&a?5;{{wnNQ2gWPlClsBWAYH$Q9NY@>cSK;tmP|6-Kb~gS(0LFaTJo zNzpVoV{c$daeOlgVVr~*d!tE8Xx5Ky#!Z-{2oUUjNQE$kck$G(hg+*TQv@{gnGUIA z_&ljBVUA3(>wT@+K}p#?b+pFF27o zj2Sfz*zz*|1ForL})o1WS(ZQknRxtY1oJM&}=n>3xzdb*M00?n}kVyw+#M6^} zh0;-a1V;~7Ls|mxOMQl6laBpdhWt2BLYY`$5_i<>R7%-D5}isK&cJFoh#?CpFEivL zc*IdvNCK*E87J`~b0Ot*>Lxvn(9D@ImE?XpjQ6M-!2dMRyMSJ9?J24*uYOBugrJDB z5JF=h=UiUvv31V7NFKXRBOj+O#c>jtreMDD1I{u4RZwmN%m%}UqIfbNswVtWvJw)4 z#`UlUJ56@lm0H;B-bBw1f2`T1XcHc$W28r8n@>wqJBYEf^0Fax=ritr#MMCB$_Y-W zUvPG^v8g?RoK7(!ELmY<21k>m_i9i*q@RKqZN+LoZf+V2S(I>l*?N=~cECCHaQQS9 zkKRQG@RewZP;Zr6vhc`$oICG}K)dxpKOlFX(fJlAx} z_0k~N;*Z6=q@_x129ZAn_T)H*&M`rqpTv^Y(s<{mb3JXjZ4VhW)~UQ^mH7SRKom@l z(P$xGw2@vV3XRxjNt&hlyh4II+psWA4p|h<_yfzUmp8 z0w&}ImEtCJXwPR?iI+SmZ557IlAuI(?-yzaoH00qfcu^IbVF^5bZ#0iDg#EmsN ztj0avz^fGXf#%_q4`EVFEeH*l&dQQ!6JuzheK9z*X;Yz`b^x5N?5Y{pTK?xPy87?8 z<g#FJv zOzI&a%qSdU@ThdSq$q`!XYDCkSE#>vJ`+cu@&5b}?6I-PlHVr%x$1%og^l4%BQP!hsj?;9)Su6WGTZDb_jkxm)gZQu0URfzbLW^EtG< zVe}flAKsX?^&l6QYjh!(i-Fny#1p1wKOik&pjDrJkr*(pNndz}J{;V``H{?^>|HV_ zjfcF6J%|U)4x2jo&{>w-USu0Zskd_r;^ugdQX)uv&C7&_MGyN3dUax`M)=D;?ox7j zUS59!Pe?LJ$qOoVoZJ(+K`%0na)cFHD#RV$%h5qw-NEx%_{Qp=H_em#(d!^jSNW0N zK>iNB0;kNMlnj#pl@DuZ!I$Uew`brDyr0MgWxgYq=O)6Fn_A=m7(6%I5Zm3{aQY~H zF6E{h&y5q=Nk(>fqJ#0kDMSU%<{gxlUx?YkQb_M zS*}M{cu#fjgV3dhC!GZZlr{1+eN@eDZW{i&zn z4{9=UQS>e3a;kp115YUH?6wSyZp#2iHQ$qgE(uU<>o-3QKBo+H^=2U9n^oO70X{?e zoHQTcfvWw-J27ZINcm@oQ5w$iuPS`y_$|l>_j$_e^Y}9?+gD0=uFXZGv>wI)$a;x> zf-nuF`jlHvQG@fI*6R+d#(2;jwgJEA&L#L&W3kPl{=NR{cnl5b=Hak9_`q;7Bt7=a z(e1kLz*}K^`E4kv$%K?9h_UZhb|<9RI{ltZ*I>fPs$xHBrG7YPHK3g|-~SZ6%0E<9 zCeZ_QY;c*Yoz#_9_A0X>(Y3D0EtM9XYmEGy01;#NEB{dK!N%5RI#3V?`%EtXKs+r` zN3u*9>ESc9cS6-^Ns!c3+t4|DG`9 zE>FpmFcrX)@C3ayTx}i39@V4wMuPQvDN&t0jHwLpM@EtiQqLYHo`LKW^+-KzhbI@i z6nF5pVQjTQT9uZ9_nV)We=OkO!7&)|=rd2(pL2)NPH1-+9aG{Cv+~~s{5PNf&f>q> z`1SOd%-uoio$L-->sXU3Zlf6H&)-`SUl@{2;{-%!-&F|LJH`drm za?yrvcR&yV6{_}LnIReEf1%iPzwa)%@TMbjkBnC}uz4tP@U`U4{qoIeF9xF5WOJCrK@MKhcQy zZTL>_)_tfv`5bNN!kP;TU#O*H8Uzm^LKH$g4E`cQxF&1=p9$eaRuxM8Um?U55aRz$ z@#|*e{5Ean2BLscy5`$T=`y($g*(6irpv(@`R)KCm}IYz0n)aDDPY+p#nz?FsW0y% z$d%9(S>OClG{^_R7^g+^kMvw4F^pWg1;~V6r{5d^@{c=m9dCQ(8SIGFcv$f?-V#3!YvxX(u|A74m zWpS9s{u9}UQE=GVE1s1a+>gZLbq%Hu^oGco%U|l>Lq|pQgyv;a@<_R;Olq0IKJ%Ai z)YoUQc19_b=eSUvXK#l*HzBu8gRQj)Z>_=4X^F~1OeS}u29kpr#$(o9^mzw-4f9d|^>N$+8m+D=PE2kw& zgJx~@?y&1b)UX!*+sc0hl-M06@?R}}aq_^FE>d<^3-WBu`Cc?E*p2)M7KkS7JtF1s z@h;K@CsAFnYp{%%iE}tj?f^5w=KSwCurMf_b0BT5Ei_tfM32uv!t#R49zOEccjcHX zv`s z6Md(j|Mneyl#$nE(63^G!FmnFlxeX;IWgq!L{6z%v^6R_W<}7@7^(n~jh?!d#~Yc_Z&gvW2 zW<7F8I0`rgI0v`{_!00M;5#JJaiSyy z0eS(V07C#NfC+$1Kt7-l@CaZtVBbV1N{ok#02y!ta0j46DS`lfs5F3hKpJ2MU=H9B zz(pi@4sZ%^6z~e*0H6l&55PviBY+hE8^8*f1DFAr07wB08HAr`fEmyYphn^bxPSlq z=1b9V9M$}7Bd@m}0r8`CT7yAr3<~iv_yqZAwOSpfppl_c4>mniie?p|(sb=V+Xedt zcX&j{z6+HOZ;jEiCwfRG=U{P$xI#QC{#)!UB}rCkhg2{9EOqrs^~v{n+~=H++Be=e z&-V%6-+cYGaoUO6dD@lQz1p+d&~`=bHnlt0?(25u_S@TEYv0;l*P*6EsBWDu#;-@m zCp$*!v-NBB>+}JJd_((A4V}7o?%8=y=RZ5o^MA=-GDDSY#$I2 zkP?s{P#y3N{)Y!91g;Of5t7usOOGu*&h$ty6?bp#o*B9`^wrQ3(-Wr7y+1Pf^-Anr z)BDxl4ZQ_(s5!};V|JJyGrwv6*6cQig-s0mA*`s+gJBPbeb;+y*v&qt`n(m^JA8Wh zSN(cL-HgnO+8gy#)WH5L`nQW5k{kI#7j&>jlyDLtZ!-GPmr`vI>3>Huc|=K$vc7XX(4 zmjR7{D**Y1$Uf;MZPi5F6b~)xEq$R0F142|E?#8ng`|4T=IMql@FdMvgiCSkRJgR^ zkR?KT!B-O&HlN)YAO)r_Tw1bZuH6(-QeZ2XYcE(}T39r9QE6Xcaq+UbMT_z3`M!Md z0=w0;w8Ug9DVV>wbn((+lYQw@Q_<4mMSTx-h> z=V<={{xSX?je4VjbjtxkApW}uK|)u&bsH2M8!TX@KC^ph_a5DQhnhpfLi>b#2hK3idP$KfI2|RaJ8WkU`kLM zY5>A8_ydGQ0Q~deT9OcHGQy64AK*N>DZm?paAVbmX1L98ZR3G|RAn%{0XU*Eq}0QG zSLHM`zpFCTo>3WW@2L!p4fuff^Y7r}X_X-#ZW+GSe6KMyPeG)YHHPzWs{t{cz_W{h zb6aDm2@?%5z)_q1bDFPc3>uY~YrBSblYdSf`S%oa1o)F%cZb{#xz(-YIy>Z^*Wd^; zm6V&04=R)Y%#;~wd=PSLr@=J|xiJ~^F6EYO#+rVwj=9z0B9HjoCAmpRRCUPEn%!-n}L9 z`l|&$&-cH(-f)Whw~RTVbx;C$U6l~vi73$H-hH=?P#HuqAg7kQfjP}1mG_iUn7Ic%kVcSl_j}y);T^GJE&Au$cmx4COq(QiXMK{S$WRPo zPMvz^TqFIJ)r3Wvglmnzh-I5LRh+ugSjLtmNxhufPLe?fFam-ACO`y$7I)(S@qkpo zB!C5Q4(8poB%BSH1;__j0X6`w`j!DU0IC7o03?S={*oNtf%jd28o)sS#7{Gz5#+7`sV(R50Zv*C5*?pH(xw-HeNBm8A#;@|N536Vaa=F>=;N(Poq z$_=zl@uTMuo6zP@@ATJA*Qu}aM7ZOCJAvcE52wX>{(M{4KkR+>x`DPd1+jF}Os}8U z?c16@&HGGlU|9-QcJNm^E=Qlb9$PBz{^?uSKfPVZO6l?vVN=SPKXNSzZ{W0@V8UE~v7v_NntI2=K()4B$qSuihTfh9=6 zRRQsli40FfhIQ7g#ZBwh;gHhPytXNcIAW-h+!~1qc@(JYc%- zW9v?T_UkAqAUD<-;Qe4~ot*7`R@{H`@&{(m^29WwEmc$N_`l(@O(CtLGXk@-J-8Nu z)2sbs8-=15`vhh~b%O+r&Mt|LW!u{*wxyC%3e2|fP;IF%+OV$ex$VJ)JvM|pN%Bct zztWvMeJs7JW-J~-?)`u3vFU+u$0_mVPVsV3fjbbyE#7lr^!)({In{$a!HdjMf?G4< zLTod2?z0Q$3%10LO2jE1+_ao~<5{-nz{n6=rjCkkPIQzU=ow<0-XXAh+}zmK0vs;4 zoD)>Km)Rfa+|RvqW;~CzbxEocTdAF52r&yW>sRwH)x?rZt$z2gcJSdDgZ+rLLDs!gY!9U*ZiP*qSrR z`yA5Rp;K|@^TYZ3vpA{Yp1+9JfP%o*j0t{VZz1vN4UePrJm1d1)@e#fT&elnK?Mr5 z49z9D$RN_QZ~Xcd*OruDSZlm&o;IrH@HYA3MgMljb+ZD);_IHQd~6+)Ne{)v2YQ86jG7a;Ys%cfY+bwHB2j#G=7CTTvIlqM zjO`v`Mbu1B56srK3!G)?5?myRoR2d{KR}3q*&@%}i+^JvAv;+s%zAVc;RJxgqg$uN z1ZE2ym;C5&vxkhu&nV3IAmk2b6m5tNOz`2tJWf2r;~u#ZV(VyFhL*y8bzNq4?iYP{ z#*h$Odjt7IWQW*%xUlUCiJ_#R{BABj0JAjYwQNc*xu2k{A-1~$oBZgno6f(l@&sJl zBtQOKI(;m~Zqfyor9o7W^K+L@naNwODRBP`MaFsqky|=pW?*Z;!WT22PoQu;dz30I zB5+e03}d=*e)r;cYxVC(NZmU6FMjpT^C@okn^li{3K;5x{b=sjt9VjDzKQD}@`h4e ztcIhZQ|KV`i^T`bcfa}~obnf#UF<_o!9@!N-YNn${98zC#>BvE9D=~V&EtY8#2C^# zZCqgXLMbrc5)@oCM+jW7qcacX+|6_S0g6N+Ui4HKJ)2smX8U+s@A^@BZugV-l`yy{ z^Bxg7F*~9)eL98n{)Kp0@)MLkxM;f2(bJwytz)x0g4a2olmBja2`dt#Lt01DzQDG> z5b&h;WtoRx19waUskc@x1wRF5PnX=e*^>!Jm$JUhi%ae&IR}EVJLQoNiVuVZW>1lV z!Ke3rS9!z%w;WPFRAR3vG5rLIC~uw-Tyt=AV0N0+kvg>8Ni#pmcz#%5(L5DIlRCIH z3zjd+pI}SYznJlSQegHdsSB}Z?zsEpWN>Txzz|zDWa@%EUgOTdqL~_RXmUerGa#wx zZ{_+=A3V^5KjJ6&@SOhI*4J@b_uan`o25fw>(VjkirWSefwR`!Eyn|feuVuR8bV;} z1Bztw1beoMG0@+J{{csi_3kg5GM=6L-=Y^fcDS+x;_AMill z3Yfy*{R^?BcyeFB#Rh#Txo4O`@4@F5!k`4yZOt7@uJ=#)TZh&qrqhz(880N$_rMLQ zvpKzj0^5cMZnt26HIRR8O;1y(8C=wv%UN%n%GaqL*_m-)UlCl?QFK6Z-;X;nOIYy8 zQn!1W^#V~X8v+V{!A0#MXV*P=KknEp(c32QAuzjRjz@s|0C{b3aM8hTA!uaoBeS9d zF-EvAaCUnSuDUJ5y43sm*6kisq(kEf%=T$VY}jka$OocZ(_;g()%VF)9`6y$03kck zH;{;1o|5NHD|p|*(bVZBu>8?dI|y8G#D@#!b81<1vmRaJMT|b2Ib=KU#dU_jZ4=P2 z?*9uuIwy*Jy3A5|D#WHWI6MNI{C(orFXvK946%t^PzSM?=}?$vO_!d-VT<^yv!rkr zKX?B27ZyD*ZV~(=iXBBo&=F3_m^6uSV+Ib2jT<~WClm>+^bQI6GLv1+RG|#cP$iBF^ch~|- zhO0+yY-6VMVh_tG-~*}wb%2rmbYtvG=PkBZ%qw1MU&r#YB-j?DO98VN+p&2Zw+7Np zk(d&SG?r2iMcd+=;{&d)@6z`kVm#Z2iR&N4jLWFd3eqT!8Xjc;Dw z;^GAbE86Gf6&Eb$k78clqWSJ-d>3*=!<)$(abZb8fu^*;-l{t7LI2B5R5RhbVH&6n zw{|8fG8g%o1&Yr`8UWiI5CBk@hXUuLfOEw#L-SljJRislM8lEfK#_P%gS5r@b4%?$ z_La7Rr3+cRnbHF)fo;l_;+!~{Qdqcfv5k^K=-6ZLi3+ z8D&u9&{68=SBeHYhpTo6atIAY-J8e}-s`qNagFM!0afX4?tD}aojRKDQrL~+rMrF3 zFK&BhQ)fxt=j2(YkC`-eWGW$4qqSKcK!kv1fTajzUV;F{Z~?Ud!%}<)!~mD@n*pW= zfeWYx)B?`adkL00liA5x(iHWQWY&4MbYoP_qaYdJJixFXWCS!ng!tDWEFi{-ZvfL; zkopnel*7LQ@9TgIcr2McF-J=4Rf}U%4+H7|X8@M~GN1)O{JJBV4a$=WJJur1-ei?j zYM)zTceCUrOT`(U&_uGgwd7^6Pk*t)M2wNErC8CM4RN8J7N3`)1c^>Xi`oKg^TUc4*O!- zvCN;B+U)d*Kidgvfdti?P`D}us5Qpm*|M26%$2f3Z?&A5-|h0#lTykT6fC+m?8)hS z(!SX`qP%48g3(1w7qL0>B+HbAOP2E1P0r#hqpSUKDJ7_X>Wo`G+oc$`A}&A~pblXA z2i^g-fJQ+6cK9>+gM%nnE0URdzVu$2948qX;nxheZl`Eyg=?s3;}$_23?152qCp2Y z<;lDLF}qM%Paqti=AVZ;FOY7i)6TyH4}j@qcmf&$wpZ~CsC^C@0GtQJ901<)qG9sj zj-!hTic{yUv=^k#x6UmYUFw)Onmw{eN@m(cl8MzV!nAjexnJan=!o2~{({gy($qT! z*$=Y`!Xm7(%!j~Qv=A)`eumSC9YAut24H#@DZK|ci{hWd?wlm87Ar3WbLU$Z`+6Qy z7Zuox#U*oB6#FbLCb8^OQm|y{vI3v^ON-~vwTq=oOVoBZRx-M?&5NaFIQZbX8_w!C%>YwhQD_{X7HZ%&&lLpAJZw}42=n0r&I4*duVz3#={953LLG2z{Y1eKDLRGo z3i?k=e^Dp{)D(5bie`0rw~h)r*lKfN2-vE);~?m?$KK2LUa~1gIt#rHcWi0IIvG zg<3$$5@aNpg%(MDI^-j8GoY+d!=@HV0Zv;9QUSzZg)kpb4X6Vc&?aL5)HWLdCI`L) zssZN#hGqB$r~{XfP7@4CRi<49s)TZ1{nc19Guk*5U>}=v>KZx zEqJH}#H;}lpbpRoFyMHCe1Hv5184?V%HXDm0%W%UISz6FR^r_S5^oU&$b13)fdH8= zpg$0_DU#3y5CupCOa$Zr76BZ9@)RtZZ^gr2!0Uhpz-NGe18x9(MoK~_Ku^FxKnh?w zU>2YVuo~b3JOMZWI0|?V@EPC-z#jl;A6m-fFA(A0B!)p(O6subO-bW3`?0~g^&48VN{eV{i^?>t$uK?Eo z&Oh;^PKB8OperC8FcgpimlGG z1EvCI0u}-u1ULaMz>YC6n%IYjmjNdM9|FDrTm@VQsM92&Gr$Ch1|$H+12O>xfMUSI zfJ(qlz+S)$fVTh*fD3>|Koj65KpZOxdO#0AG(Zpz6)u%@s&++=xq}BrFDNQvr)^SC zO-x?wpa%cRk)ssibhXbyo5Ma|h(`ZK@A1B{UqBBl2z`7@7Z<~4hOd1t zT=t)bq-jILeM@aHZ?G>Ej`$Q|)NB*h@CZtU@v6Mh<9Qqwdg5Wz>4`$KtW{EMyN7|w z1GCCi(jwntpM^zBmzJ+2wXVV zhjkb}Z1|MnLcYKa6`mdR$)Kd6Y?v;gG2u#roNz6nIpKOj%m1qE+T*G!)Aa&3sf9;0 z3d+l1l2Xz1-PT&)buB70#%Q9lq)8`AEHo`FODt=XLqg&EPCMl}~kUjjDqscp-Rbg3K@aK3u9FN3JcsD+VcaT(yD5IQennuUabecgk z>3Et&C(>-1Lv!g?TH}n;t-4LO>ki$ikLc0faj(a-{D9xjkM$?{R<#v=^ulUEE$)}z zcV3g%>ewz;;)&pI{!^+joYPPCWtJEZIHCt98eD(-DClMh1NGypX@g$K9B}pWi zq>xmC2qT>(xdA5!PCxqPqVk;5`yp32%QIQKxLyOQdGzL$>`S?w|6Ys$usR|#9dM^}5 z|LR_&;!M0rG(%02Nj53QN{fo*$9%j=tPICKv-esPkd0^JiZt10pl);morcfEqw!^U0=^y3fb$;3&)}ta1FpvnxDm3d8MolCa5Nb} zE+A(?E(I&;YPyRKXNHYux3ZONg45Hyo-194azF$wFcR)U1!(Z z4R)j5WH;L__V>lV0$ZjoE;mbj(vJ^X61R`iuo zzsmP6-K~%7jpj|0=3V1G_U(0I3 zn`rJ0{bPEoZ?*RtFcZbvXWFN>8mHn_q8h4_RI*A@sR}8kc=+6|-sAhCSeDERd6PI- zPF0tiSItA-M(>|N?`+@qC;O#-t^bApRXBHGS`!X;Uvv=~i#DL6=o^%PFaBS`eg}Jr z?Q*mDb38{pWa`ZeUV}HvPmknkbfh|OhU~lpvZ@GI;>*ZB@OJ`ZY#e)#4X}sV#=h1L z-eliz7ub93bDa^+1m^)~o3qR5a!xpjZjzhqrnspt0zY@U0e(5Zo`1&g66K;wY!;u2 zV`6|DC4W+900bV=-{=#1gt^$<=H26Udo}(>-%5(M>cEhGC>F(`cyv9Qh^C`^&^%Ox z%Fy#@4H&mShz_IEAkhYsbI2daD8LOu3>izVBU8zPWCPhk-X|ZC&&dID4joA^rY?P& zE~Ojkb?heAVRza`>@K_8{>&Z8FXg2?O5}@Fi6oO;YMCa-$aJ~lH#rrjMyM-Qsd_=J zP^(q&V-=-W044^^E#^M6&~R^@ci4N)5BDc=u=~kq4l+*2g{QCJK{d--hY)@W50v9% zp^TjRn96{C97hqSv@PUOYJhd+^(=I?J9eAx|88#I$yYxdZ*s6;|(&d+3f8I-?Sh)+|gK1u-igUEQuL%!C?0s_veB= zD7wV8G7Hdgh?=4{sByYV$C_fV#4Gj6LW35?3<<)iCDB$6EEoq#q8rEKc_JUmlXx<} zlON@0ibU~{SS2=yi-GBGkW=MMnJ+8k27up>Ua@ z)4RIY=P#pL)PP#y;2t{L84lUHoevcAL`Zxff^xXF>Z2pn`=VH{hUz4ptW$KVMw)4^ zwNBGxG+e7W+A4;HpbpfDj-W0;$h9PehB+0TBGv2oY`%;uaka=1KZ$%fR~A456v<*) zB1>hNEC;I_WN6`Y04Whp*8$y6$Lcs8uM@TWB^8=)dN^GdQD!lXC?LCXcOM+)VmFC zqub;*yMz2hKgCZCdmHtMcySaOj_;-t3aw4Fiw@B#jz9)=i{qk4SZTe-tYqN%d*nQM zsY-|XdL^uG{_O*}P-dS<2_-o9${%I4>2K0aM%dEq-p_BAe>GD~hL`CrhmH0CY4wRz zgoOg=XAnt5Ls1e+Mk(lXl1T5P>*ydTx4Eo<6|y2$%%F0D|D$xOSq-aYGu(sjHS(e` z9vAf9Y#<=gIdlb^Z4Yyj!=uoWK2{MdDL54)%rM9QKdvpq<+uW1whD(9mc=;11A@!) zuyGZ=_uENMkYq7Mp71{Q_eFBJPef~Mr~T}KP|UTz(B)pws_#ALO8lx`54_c*6U|jKm+W9B-kgbRgJ1ub>QLv7#4(M(Q^D6ndcbst{4ir#KRYg3s~Wz%SHL< zDPVy(9FG(6Q1D$9?hh1D2_oZsh*upzUIXh7oV3XO6Hk!M;d7HhibxwL>5 z(l_W9TFtsxH#^RHm}OsTr`vOZ&kBQfkv+}1&w0>!+Np5XIES5`?on|LFoTp&%QbSd z+#zk%SKp>z))N8v3r(AWJd0G+VpNWnqZ;%kYDcfwZ`q&PC+)vGTb(9nBX8hag(c6B zA&rt^dbIM9!!p4$wj-+G~mp&_#2GLY_gDiKn{@v zT1CgQ8`vb414LKHX4v1`qn+oR{Slj&xyRjTzL4+cpYwY0iP$T?1hp|(CdiS}m2*Jf zU#I2(z-(8?RFb|@-=$YUZ*x+gVQe$QgiKA)WO-IWuZ2nIDs(prp{?i;`VK9^Q`rK0 zs5=hiVkLiAG>8@evu?Pc0m{!=Xj{CW+D@on`Uu-AOE+x%#@`yWDE zbjbfcoRB3j9)o2VIv*v246g+F{3%9cIp~()dmve&=y{-?vjC^>++?U;BuHnz{wR}C_2(cb7=7>i`qu4F3le2+% z7RW`=(?qM$pfaWM)!$%?EhBzM%=jRv_vpj=TODnNnVUh@JZGv+v)N}7 zyqVrR-dEl@e|gw~ih$Jw%Z+Fc=&&v{7+->~!8buekq?c;V!Rp0Ku?FsbL2BH=0-Xj zN^UV-OV`uAbO;*_TJlCVkxgea*+Xm|TgqOAK)%U#vRy2=pLMb*`z$-zzQp$IKik=M z9+c!pd%OLiJtl`ZCI#XEgL_FG7c!=g;!<{keXDU+5S4#bINr0};A-nV!aW2H6}t#YuIL!unNxv<2P#e)Ao)$8gd5fEE67n;4L= z8PF~j;N^G+v`2HvV`Kmw!7gN1u`KYw95$aVW3K&%y~TDxO2IrEM$%ExAfx%{2~>&x zj$Q+;vJ)KyeK8UQ`BQiaUI#7X0sM7@;75>)$U#7{zIG~j>t68GTlV|*A}8d$=X~OH zI?3*>?hEd2_h0TA{7gQCFX7dYA9egq-pIED3*OZ6P41CLH__&F4wQ>;D6~IdN)iP zzJ$)JN2eNQgz?Pf=1=B9v(&6H>&)u_9y`rmbJToiV!gp$x;NR&^9sE$y(Ir`{{e{X ze2D8}zsx@dfC4dS4@9Ks0BDSSbOrS2-RLJ2!2NL&q^%8I@gzvxhXG@k;X^^l+(9sl zxPUlh3YkIX0qm5M7h#^T1x5(rejitHTu(bN^ey88%TXFD)9OOy}Erl1c>LE`WQ4?xLEvOZ>0STQ_ zrpHkayqfZV7@7QLV$wnK=qc7LqQzivDJ=t&D`+Jk@oHL4YiKR4gYV(lRR%Bo_hX^; zkH#d8$Y7b!^JhVoX9G~@LZ;`jSuFpQ;tKsx7V~8I?VlugVJ~dMf+aB|`0K8`h!^t` zXwG`LB?6+Kh=n|jhsI&3ND|2+MWl*f^+O_EWQeZcwQRrdt(#Ocpk8=@mZ*QH?FU4} zeL7@hCQxLkI24l-EC7zLHFeM@H$YUHATBKsnKsjII!q_b?z&93IS$lmdGM84{&+vj zpXg`%IiP>0`@aR7Rv3)6`yCLxBM`psaB`xUhSx^x(K_nC0ooC8)c^nh diff --git a/src/3rd party/luajit-2.0/src/lua51.exp b/src/3rd party/luajit-2.0/src/lua51.exp index 1d6a62f5372d7d69031660337e4bc3cba6bc634f..854424470e61a00289bcf897869bd78273fb203d 100644 GIT binary patch literal 16746 zcmeI3e|%KcnZ{ob9Ynwc5J6FcMhyx$Gnph4jT#Y^9}%NOMU4)VnMpD*nHgs$kXW>+ zsHoIsEn2#z6}Q^8t+uqfF5T)@EA3jvt##cNExTH^)wOoDt5&ztb)WY=_uPB#IsCbQ zdOv!2-tT+vJ?EZt?wvXBo9P-emPS@R+Oy?&q9eu-A7kd{vguk{v=mb&5oMv);9ovw zpk62bo1e|~4G%Of7l>j${QWburT*=tx&^Gb4ejA(Zu9=v?6ZGA8-dS8;Ik3<{~dub zG?osaadaRZL=hTK2h#*PgeKA?noNgM9o5qmno85?Fq%$>(+rwPN6?Wpi;kkB=@@FD z*>o%&M~!qmoj@m26V0KM=wzBp^JqSuLQ#rQoSG>?E!0YFl%#e#l}@7$I-Sm-Gx3f* zix$w?w2;oBbLl)6LQjLab4XvdS8l`LKbF_}GrR(VPw4Sb~ z8|X&bKsV9NbPH{yTd6RdZi&s$77DDEEbd8_E2aK?A(zSy50$I6bOx6XI{+&+7naJJ zRdcnWQZ}c}HMvSPUn-{JsaPtSN*Bt5X?As`(%EdGTC3!X1HNsUYtn^bxeh8<26B~3 zsiLa(4fprwi+SlrS1OY(6ozv6gp$i<26LI!>Efti<%_i(PB%!XVL78XJk%GeQYzQb zZQ~q&G|(cqQ5!9LofC6dJ|v|JMo)7ixlAQj9WHo%<*^Oh#cVCzSMaVhfU(1!^yhPh ztZI6oI^3sJp_I<@jq6?p_DE2HuOGGyr#ZaE+*)qQXd48#So2OVm2<^H-fP-3s_M!- zGUkZF4vi;lb2Q79T-oe*dAK@g4nZZ?udZ9k4dkmeeS5V^I+N@37GPJ3M>|*m!$tqB zwSyQ?zCbEnE2oS3jA&jHO7K+qQx=mQz~ZCGApS}IjCOAVF>(Dk;g!;le>C2 zt*+>IBQ>Df!la?KQbukg1*<<-Tq7s3)>Fxj!BR<{C#^H3;iBq-=Nw8`{R;VFe@R~j zSNB>+#n8O*rGndo5%ir6^;mMH;j;fYrSipUPCdk_d^OWQT+HaT4m+4T7{QW(F^seH zDo+)1a1N&B2}$upHS=u*Yph#G}b->O1RT``yvUN3#6QX%KH z#de10aoC%82K`1y*)|qvitR#vV6YZyRH$`UF|VeWea0}bY1K6DhP}biie>hul3p9E z9T=Dj87U?6TH~#0NDt?RN^8_=#WPgE^PsBWeKMpZ&N7xBEPv^-_Lm+Ef9XL7s|iMU zH30+*hz)N6L7EGQUlhagI!M(@=H%4y7?{hcRx)RzRx(}`IMWzoG$d8!Ee)43z_n6n z;`Do0UJ1ptHxgd&@@g4+)+$_5hHS(i$Wc8g{7y^trPbR&8R`Q?v}|SgRI%`BQ)s5;0iJFV@uSNBMMMOnW-YIGY*mzM1lwTCp3wE%mB+4zKR)S3s)q(OZQCYA< zM0KLPTht&J_cnrWF+^VyRRH6yUPGoDqDH{#MDcd; zE27qc)r(qza+|32U{gf(qWr3;4PaA6twi}XQ5(UgiOQn9N7N>;!$b|D+%9S}*mO|^ zl=q6-0(Q8lGRnUdwH1uFun~N#BKo?hZD2D+ji9_w)ON5VM6E-4zo`4bjuf>XOruhL~TU*fT$f{M~m8o@|&U_0Xs(2W|ZF&wG*sC6wl+gMLh;KTNKa5 zgQA`QJ605r=R=})fgLAmJIe2fdK#=z6yMi(MePPdH~?e7ecK`Gd9V{i@%6ta>P4^< zMRA?)i`oO$BM>l*}XaD%eS)9z*%}qTT>IS=19K9~Jc$*j!P&Q2v9c zcfjU}dKx8PGeYly%@?&BMNI>16ZIa-AB&m+ zmK5~?%BMul0&5rbF-jf>ye+^^6}1oLPee6>ohFLL5dBnC6Ih3+abW)}YA)F6qQ-;q z7)B@xc7~{lU_TR;06SAu9oRFXl3<;prhz>xssrpSQ5+fK@sCg^*aA_rz@8Je5bSJG z4PgHwY7y8%QH@|f7u5xJj;JOup1TNjgPkjCF4!+b^?;oxDhl?3s1;y~L?yufRa7t7 zVo^yjp7#i?1Y07i1MJ^KWxID0xs6ntUQ47I-C8_{+zNkfDyk;U)23sbo3+yFP zHLwdrb%VVuY6PrXR1es%MXdw7P}B-AUT+av4|b8LUa)@`wE=9osFh&{U^l!7dS10Q-%oEnt_5DucZyYAe_ZQ8lpFMQsDSOwQ-{!Tw9s(_mRq_kq1DYByL;)B|Ar zY)0sLuzpbwg8fm{i(mtyc7Xl2s6AkVq8(Z@4s4CE zcVLeZHVtg8u=ik(6*dEGMA!$g4-hsBY*g6Cu*V5&0J}!mKG+8eYXtk8FdB<*OTwDK z)(IO277;cV>{?;t!Nv=Vf?X$UBG|#g5@4SfRtGjgSQ2c#uxVh22jJw;SQA*Cux_xMh0O)47uExIi?Arz6k#jC zHVR9CO%>J)cB`-?*fe1)!EO`Q0d|Dw38wA@VY$4d;!U|wt5ViJjn23L`#gw0)&s0j) zQh%+X>7qFeU5l43MF&r>r_9Kx?N2}R!cqCD1oQE_5b$JxDE}wyj>-G z>cSo`rpKefYtHC^3Zd|5ObI(=x5+0=4RaOln*zr)-=QKyT=}qo1pz>IO!pl|B#@gu z+;HfSAm8>3pCfR4xj^>ED$TpT3i%OByRAUcTsOS1mR{WwNsCT4{^5rIH2DsWI&vrH7{m)&a+4?dIEY?y^^*gx z!Z?U2^MDp9C>aUMDf1OYoChiTg-JL76rC zOvT=KND@9X;-cJoi*|6H0K4^MeXAxa+Qq2NM-sW643yMpAR`0W?%RGOi|_bU14~GY z*UM=plrRog?J%eWxp=vsZb21j#iE+rWMYxTy;R2ZF;q z1{Z1KMTxoj<(dUcw#P?!h;?X^XYFFs;Rlep6PK7C9lK@6rKUrF7##)23eypeE%SMo zh1}k7^CG+4ba1qp=irJERCy@oy(Ty2>`Ie+W648&mC4oTHQ#qCg!S$5B(KySKSs^t zoHi&2tGVBOVV0K($run{Mx+{x%zqKGhu9qWY-d%ZEe**G7@&?Pp-iv@M^A^jaI^@okd6(s3 zZ%y$U#FuVOLysr#wN!1+g7W#i)AEUg<+(B5YY7eF^L&H6-7>KR>iL1@J(oCC#GVmv zxdf@uJ-4;qLlQ!l7(OqF>q8W=dG5dsCR9;ba)Rp_xCoFtA*B?DGin9=d;(2?xjyZ<$aO)7g=L) z!U0shW*KKfXw!kR!3L=elzILo`l{+w22`!?u|b`+7gX@bj*Qc!aaj~cjPCZYqez^- zYmsK!WswB!u}BNOX^~bMdr-KoHkx9QB+a%+JDn0Hu_&Exkr*wtNSrRSNHYysBtfGV zX`$OK(n{Mb(nb$iBuS53q@8w$Njyq>EfS+QEfS}XEYeJoNNB|337T$^7HYCcE5$9+ zMhh&Gq~#WAr*xP!N2zR)7_GNRobI$pGi|p>f*!I+3;oa{t@Nx#+UVC7Nz&UEX{SGj zNg_%U#)n2M5u>RViPLP0G*i?f2|B|fEwtDot<+~wA1gxq%}(KTO>xGS|m<&2Z!dOwV4_$ zlAyU3X`yzDw9*obw9%y&NmAA#?NkbrwkTa^kr>@-kvM(XBF*#-izMh_i?q;>Ez(Lq zw@4f9u}G3$vq(F=8z#vp{ly|NnlvFas>wJ_w@5S1wn&0bwnz(|W|3CvvPc{CS|mvY zi?q`XVbUI@J1r8UuURBc4_Ty{9h33|>VE%dTQ zTIshIX`>GINzWTMNW1|heNs?a-~D^4!Oo5w>#u3 z4*8Ble&CR29KyLbeW?5Ty+b~62xqYLq2w_RnePzJ1L;G_r4H$J$dE&>b;unKxyK>j zbjVJJJnfKQIplSRyz7vC4ms!medl_GPj|>{hs<+GyF->Zq{ktt5Rt7fqNVy!om~~G z!@g06-0YAo4!PGM4?AR+Lw@0qR~+(3hkWXgNyckS-PcTq%yCGIL(X*w=R)qLIAo4PIvsMML#}d2(IMA4 z!i{xz`~(9P*??o_EMA4*7#a_Bmt%_T2hVeLlh=jSk_Mgg(?+ zXF22|hg|89L5Hky$c+x+D1|;$>-RY1+YZ_3ke@o_1&6%ukoQAmEcVI#X5ar`3D_R> z*8wg?#92fA*8tky-(LZ+FO>cFffs=EZIwOnOr7Odrk~wcrk~aKO#SN{!_<*#1L-KW zfxHN{LA-3eK~zf30Fs?IY?YN)KxN}S9c1AZFtYC&=&ZZ4L)mr@ah6?4BfD;c5u=J^ z(}N0Zn(ol3hqC7C96y1kOr0eUSyit&9xU%iIoj|4D#r(*F*dT_ssjIX!OMCpz}arC zyezjegY33v>#VjiRW@5`mBnW5XRpPOthG`>wp!VerB+g9r(M`C+fU!{#~uLq224SurY`TVSn*nT!wS)9f7m0Fp>?{>t2CFo^?v>Cpj{B%cL zURGALF;%>%bQV_m0Q~H$Pjp(+2j*hl&o6lVdghx%>Ty=p_nITaJu#j*schbx{BlQr zap<4ECe$rIODcZvr#yzvt9IewY^ZiXYlq5yDu?%b9?y_$r|2Ndsm)-e!l(ZFN4tWR z3YW3+U|A~<#8_)=>9qzOT5DLK{L>z3BFIX5W{{2aKxmqRpZ9oPbNGWF_;^lp?2VuJ zC@*IfeI?mMv4Sk3X-f7`fXW(*RM|q7L6$JEkjV25l@;_&&IbAhvVgwk?4NH)*3Y+) S?en$H^7+76bkY?y5&s7kszR6m literal 16302 zcmeI3eVkO)dB-0R89>D4MMYh76%66B9`#)>xy)*hUR$sWp)#HZevUV@ zKYI4}e4lggx%ZrN@7(h|+|CgrY38J_b>BCGXvzrUZN%I{K3mUSqC8a7@rq4C zy$<|0H(%&&^v_tSDABX1_vFdiQhz(BX#p#4LwmTHZQlQyef0OE9{8vSKI(!0Uk{9+ zk#r1=qGM?^MQ99-rEzo|ji=*j0-ZojG?6CJWST-J(n)kOO{G)lR632CX&RkQXHW~B zNoUb?nn7pNIW&`I(QG=G&Z9YWKFy^IC`vJkQ-YGzN-1iiG_}(_x{&76MRYM;f@k5S zw15`UBD#z&r^U2{meMj>PMvfGt)MHZi>{)pX(e^jHMEMZrPXvDT~9Yq58X&NQHIt~ zmU=0NXKaD`sGkO?NNZ^wm1vO4RG}fdnW|KyIyGoLZJ=S=NVm|fw23y;ZFD3_CN~e7;nxSBvF- z-?q&4*-}G}fXdbWLbY0{s;a$>zP@6)SXWjqTPh6}@Y^AW%?%WC>$2sIhE*)r3)tNt zp@wCTa$~SJRHZUh#|azz)auzBx`$6)_NZ?h@=i|7hWvbq+c?w0a3NPM)EXu4T>FZp zLf9_n>)GCtccgyw8m^?TSSaOHQ~k9@uTrH-HqRHX&oZ!wg9?27uw^*S?kyKKa7#wp zAh^W3w|ix%P%ag{rahykj?6t{_9*O7f5J9fJWKhYr_CKln;=})`zm?Voo&A2_<+s_(PY;l`1t=J69>^vN9@} z+)z-xT0j^0y^_f{28ZN0g_|2$bwvL(GX1J83>sRio!F>j(7j5qLWe3B zhSkYbde@c;>WIOR@O@&K7O{=DHHS7(#RxI;us@V;}+<}3ike*Vqs5PFKhV*b@u(DpwR@_4++z+Y>o+pD! zVlQLr!SbgbYk%s&@TVShFq>e6XA?j$f!OdS5TrSQ_(9Q-$3doEF$brP+rXSo^@=$X z^@{PJz@A1Qqamp(PieS}4z5>11E-(685ZTN*Aw2^71cEKthG3#blI@qksEcV@G~vb zn^jK(WvCw%(Xz@b+E5BPN|(lt_N2v4wVzl@gH!8{UEbvBkT zc$Xl&MKq&4MpO&RQKGO&!aD|gXQBLrs70tgTGSkrpA@wOEFvn3@;*_WU}HojQSK1c z1vXYx8s+_>y1~YYnve3&MXd%qPE-fVzYx^}#%CMBdk4`@QER|>kru%_2+^lR<-sP1 z>O}czQ3GHni0VT5fT$8!lPF%O?GiNvHc`}Sln;ukgH00EgYq+?hQTI_T7&X0MQs9` zA}Wt^x2P>(CyE+C`B$R0f}JF)gz~eZ?git8WCZU%M1L)6JJ?iFb(DKV?EpJP)G*4= ziP{Nvs;EsUKQC$**lD7+p!^$AyTO`8ZAH0P)E=;DqV7fcx1#ofoi1uS$}fo82X=-i z9>*_=+7H$uipOG~r~_bUisJtKlBh?(&Jx9a@{p)U!KRDagYwIw4uZ`P#pkwP)FH65 zMe*^!BI-%7b3}2SzZ3N|*i2CeQ2xEB=fGx(dITl&2)zI{ThyZ{9~Si@*twz(qWlL@ zhr!MhbqM8GMI8Z~BkD<%e9Q>F3UI1N(sG}(PT5w0=hHe%0I?8W} z8U>aT^#;m+5;X>_P1IW`9~U(qEG_CCl!rt$fwhZz59PN-O#z!H>I0Ndh?)v^p(q+b z^v|N2!RCt^1;%|Cp%$=v=Y*aA__V9$t3gDn)*0`{z^`CyAg%>d)Ei%3G)st2r7)FLpR zGZ9(?c7>=VU@wWvgRKzN3HGw60kA7Yb%Fg*R0*t0R5uvUH#~j7t`fBx>_?*NU{{Ok z0sD7R!(b~#tpWQFQJcWJMdiVGu107J*fpXC!2VOzRNGjHn%8KNqzhY>lX$V0?c?=m1z&)Go097WD{Nuc+N%zYz5(SWeU) zuwRNg2$mPM7mV-C2ps||h}sACD^X8^^@-XK_NJ((!TLoV0Q62#(*6wYzEkE!p4J*7B&m)c419m z5n*${wg{U7Hbz(!><(d5!Nv+pg54>s8El-eG}v9jTELDIHXm%Ouo+``4Eo>Ip z@xm5?-6L!c*aTrqz_tmCf}J3&6YO4LNw6kiU0@#*mIj+BtQ+jlgv|%zSbKz4gMD0B z2iRm`Jz(2~LCD;Fd_2FwjhG0N-+vJWDhvTX_FIKR!3g4nm-XckilJ`m5Q&mdgFeI-EFe^OGpeT|yZ&Ur!_;B1+ zzQbDpoCtob$<-2)@#p~Ss25}IPIVMN{Ka^Tk2#3Jt2w;vrYDXKunvfw0z58^_2P_O z$Aw*br8X5V9y`^v87pJY@nMe_G~?cw5ca4T1^31YVTUZ|c!#DiSMjt-aPZVpt*g)r zSDqBGAi~Cu$-ct~wQ;jk42O=n@nxUrbF9p{`_!^|B3vg0E{?+S;ZOEa5Prh~Aw6;G zpKuJzNSqS#NPv#d=Trv|OADukxHnt)M4NpF;wQnXodEg9{0gIsY#M6DuYfX;k zapf~?T9bBL4D84E_>#{w9eP&q6`W-{yrn$vFx}@y=#L#U0taFyUJS4aj733yo`Zx#=a`jmO*KtCgIkSDN0*1`a^_hwsP6j*AV}1ycPil^a5**~#&-Y0X zROERw*XI&l4GEjPG0pnepKYcJ8*X5xAy&QxIt}Ut z&-fy)FtC3D+|-J|f#@su!IheLVOVayOS53gUgaa)#5(rJqjt6F@FTQ*5-UxQ4vw;; z+jQt3qiJwlV>-gYTi$O~$nAAEPqJ%G2ZwWc3|5DrO7t+l&g90JU2k%)FS(0vFuD4@ z=IibWVSRZ#$Tw<_9|Y!pzR92*4d(OCgjrDrWQ_q4fR&2bFjEzKeW)VFe8gP9ROpzS z&IeFp$b40J=aHXRPT6_EWZu8e!2T1W--P}XV!)vCgy3s08ZfxC*BUf@XRk9n!983u zsdo?aT8G~U_=L@SnAbastLQXe9ItnT1z~EQKfL7ea1gKN`Zos-JslbI(#NZ>e*yU# zYXSBi1YDWdKVD@W)8@*&1oE&qr+5zXBFLkm+mjbUigTKg_vdAhPbBWmjp2=2(I5cM z7szWNscc5V`G)2NkvLRHoDr{w1gY3Kx5djLMiQfzAURJ7UJwNo!EZhRUJ?0Fh0VF{ z787&)oTuL%CPW~eE8b}`j;M3{cbQN^>%99`lOo2>7kanJbg-Q}_8!yW-Q0Y>+f1$| zT1T!jI5fAI-@Ne%efS|STFifpGy*#uL$zC0aH@gI$I2=cq}o5kgD2rlRj1moYAqTW z)Y))l6*t|QQJTzH5ycjxVgERa#A%yF613YQN!o9bR(i}LDf+HO+USQCNz+d)(oVk# zlUS5Sj1HZ1EJl+p5~s5*lAx4DlC;<&t#qwLQq*UWHd=3yG~Hp5cDg@I;!*mXMPhWo zB5``cA_;oVB1t-8kyiSZMN;&>McQawB-CT^G@WXZcA66=i73spNQ@R+Bu>{@BtZp> zB&lJMR@!Qj6z#M~8|}47n!aL@c6uyKl2LlbA~8B_kvP3(kp#VIktF@zBCT``*0btv zlKUc=qDdBMqh^bwX{JTmDIO-RQCeV;7%jI5`q?50%2*^xeHLk@x8P17yXPKhvS zi&BS0VswQ?;?!f21Qjikq^d<)X_G}#^f8OH(E}Dq(-$q$P6xsy9i_)C5~J@}Bu+0` zBtbv3NRr;QNGpv-#Kq{yNX{TpGBo>X*%NB{zk1Z0XUt1(W?^`5EV-TzgdNmepr70Fk z(U}%$qqs%VbcsdUX<3-ycknuk#3*l(I8`l@pgS#+q#YJ%rO#Ri?q@-i=^mWi?mV7B57J=k#_0|6Z{U| zV38R0TO>|(izMiFizMkji=dxX9fOjB8&QgDjI&p_A zbV#>DZgR+=LpD2PyF+$4WUoUWcF1E6dDbB>JLD%0dD9^uI%MoIdL;CmpAsUn97P0E zZ|VSNgzB(wu0t+#$Wn)_a>#%~Hag@UhwOC77aa14L!NNR^A35%A-{0Q`wkgvJla%` zo$QdA4rz7BB@S8U5Ka#2O|{kUkYR`1>5xx4~+WihkVN+94FA5y7t2k;W&ZbR2_~J=uHv% zcZeQRWCB*kdQ+suA#)uv&mqekvdSR^hj8RTZ>sgX9kSCQpLfW^4td-m-*?E59P)FA zyz7t%*1>vH=RCsrO|!hMe=-Gh2cF@r^}V;r^%J+r^h{0r^O9ZhkOmB!@UObLcIp@(%uG9xhVrk zn%l5ddRqaN*7kIe&Q`!kV{4$(*UAp1tv$r)Y9);{wGD=iDw38CDzIs~L%kkKKdXKG zOq4Qpx;bRkyym#Gyw69p-~WEZ2cbST(#Wa;|08=ZeXIbdjkWU9#mWrQ#Gb9w!^%`? zVWm|%n6;k<7DLj%N(E_OWlOqONtNbRTII@=HqyERB%LctrE!&%^sPvYrk8}#rX*i{ zLy|7ql4Of%s5GoeB>k#^q+PY4k}}!~k};YDQ<%RoQIT@(0npnQdv+Gx{^~nnh ziRRrww5m?D=5?aA?+~3TI6D3(B11z>N6%a%GIaieqbGk#Wa#{F936Oz$k5pL9i5ma zvh*&lh88(Gd4R~!$cK(b&k`9ryxh^bb3}$tzUioPg2>SDRY&EY5g8i(tE1DXlcC`y zjz(TXxrSCas{9i7gU+B1hRy=p(9_>@bfyJ4=q&IIJ@bL1ryoT==&83op$<=h&dhi8 z%u?uqj-&4k9YOsKokJfQdKUK@I)r-+okHIjI`#uc1=PvV&_YKSMu-eO`yEdo;R-6f z;i&jeB0~pImZ8({J35G~p)uqcDz0=?-i3Yw9sawc)2N%FgXk+mh2xHj--SNt$*qot z{*3y7Mt|*S>@k!J+VY;Gtw)IrZ9*FjZ9)AF?b+;TGw==V9&)t#hu}fGfA46^W$1%; z{=(7r-w_$w3f|DBvyP50K)-^H{?^g4HRv}`X}zO;hlmVaK)HsFyz1!adFX?V{KL`u z5h6=}z!kLrZ;lSXf_?#QL|+)%_j5=4Uq(J?+X_d6cM};p^tPkHtKdO9rX4-;BO*gP z3yyZ6pDZoH6|@dzTlx@JLrWYD{srZL4lZ-F>vbYSdtsxNUceQ!|2{{%9z;IqiOr6- zqkj!;Lz$M){%xR*A2{0c6O0FF!#+=M;tJZh)Y0C>C?8ZE_JlF0f-VktdIML`u8$mD zT0mr}hO41JI;w3Yvh-tILE|@jLjR0U7mEjv96xqqu()UM$=xRo9v?h*qF9?Mty@jS z;?YxuLVGs7Wb<9_;DJ*|4;T0B9NY>0>i9&_++3_zo^OpcE2Uw|vZ6CuX|);?P9dZv zcT(kswB$}qO^#hI)ut-$cEyTLvohYe>=i;pO0(r|4{6D5RwintGT-bO$uEyp z%9kcvrSc_Lg62hQS}Nd^l2@IqPmK>%n!X0iX^qKNvsxbw8iCUq<&mj+xm9h{gOUxJX0w4K(ul z24Zf!P0Ri0El8wq93%PQGi`|_k*2f-O4+uQOEo_|T}tkpkSw2+yt2v+Y014JX5o{P z*Q`uVg%v%dB^Qr2n6m4Yke1xhvL6y$MOv>+`+jsO$tgGL<&w_}Y01UFqU~5Td7J|) zI_R(swrM+*%t6ZFKu9v(nSd@4n?v+>De;* zp&(_lNa>I3~)+yb6vP6g(#yuzsZ>9BUMcttK4d zq2TF8JZqT=Io4=+XP6nu2e#xh)0RJ8n)GFO9VckhD>tUqf zlQZHYt;?0>Bj zCY;rfuUVyICcn}VR_Q!HR`Fg;q3F{pSKpqkL$THfFK8~s_Z5ey#{HX_OG%E=oOTxH zlblzu1&&m`v!dCI&d}7zi1*Z;RuE+Ll+)+*f*_-3FkPht6nsX@foMIJu%;RHiDttT zSj6n}Z-_b44tMw$+V}<|%+)uYD|1}mq;mL9vqG7NvG)aq6Ak0k`fQ)%yh5=tQK{Fe zLw?C&PH8kNqt(e4kBqR9j(boSip>gADrc&0C3b=KX_YJ0wF<&2ozcmuP(7Dac_Y>O zuy}igqT(a18m7bKRLw09Mok1tuQFYM8>{rRK6q7=sFhm4dd3opLnUuGipyyDUT_MAiSvgm zLsKqTVKqD(>!34jA6X5{a6a3ob2~N5I`+1zd*E?8&b_E>X_+{Gywn<#DmX6IXt)a4 z@=ZFYv3`YNK=*ATt4mZ)%w z=ugLqnutSQdj@gX^F%*=lISo+fG`{U*{M0P|7sZ$E`HK=UDA z3RxX>T7Cp|Jcs;ek#`97L0x}v3}qFF7NWi*7l^)typKR{l!*RWgdXbrKCs_E2p)A` z3E3{x>F=oPa>%biejN9I7xJxW=bur|uhEvrp!?ny#GMffePco8&~Bn1 z;`)1BFGK!|okYLejw^J}LU#e``rD(}e?i^WqaKI$K^Jv<74<(4`9E+SSx@u_(BJkG zy@I-2+eq|t=)DYn#Wte52hj&;<5gUzcM$#P35*SJ-a~p3=-N8;J7@{$FVIpsk1x{}^=hIO+qsV;=UIXg*C)of>qWigcA;qA$}By+DI>kP38^4$*PiPY38E zRp?9fMY=*KXqqn4I8~`em*`1)o+jxU9id}%m|mo>&=j@k43+6J4buhMNS~x8?V!!H zl1AwkD$#b@NvrAe^b9>q=jb#&MXTr(JxbTpZn}v+O`oEhX))bKBQ!?O(I@C}dV=nz zP4o~wNS~tz=wVt;_tP@^EImRu&vEi=BGw zR&{Ih49$B;@V}Ivh}&NUOik32J@wX*Gyd>hP1XFvTS4YJwdTog-EO7mW!k$i4v$1m zB3%i7#NwQB?%;an`hD#le6GW<0ssm=_g%Ez>(9QC$~!ZcRW$QK4Mr3%Q(ErTMhSdW zQAyh4qdImiirJUiwmqw?Nf%AXQ|^atqRuvC840sNUFfw1oPEF|Q=Ey8WMdd60%YVl zL6FXoo~S-~R;uDkk#5$Sjh@|~jkGv+D$@4d)9PgIhL>!4s++O%=QcUDO!g5(nzt=z zrnv6NY(zr6F-t+1r0v@*5axkqBiZe{eQhRZrdo#`qE0(Z9k!_27k<0pmfTQke~8(8 z?B1VrfvIEL;$aorN5km0_m`1o-#2XmdHZsCd%lT%D5g4|&nJ9i3p z*cQ*Rn*2TXoUP^jE$O_;l<_BuhR+@(`1qX`X?WY2itHwreW!MT4Zh3CIz}&Iy*NT) zZ#B_}SgB)>Ay!L-5@N-+DQI!M!62NV{a+O(%;b2lxlL+p%nM;)QG7htM}}_f9S1?E zX5gb>R2-Pu#Ji+EMX!E9T~}N4*~Vq4pl}KrL%br!C~`;#;x5 z>9xhv41%bSwRdS1%wr%5FiHeid`YXRyhz8#TN^rdEIS(FE#e;UC)!l@_>~HK>%C^Z zJFY!JQ-<>aO-h|k5(BUvpUK6j24By!vX75E*%b`#njPN2wC_|!dtA}>o!W`>rX-Wz zlqaTaxHwOrq~oWCsc-PkY+CzePN0UjSY=<#<;fauc=5k1XFacwau%w*Et8@AEYHRT z%6Wm{RT(ukWX8DIld^dbhz}Jc>^%j6UOe(Vrl6-+6!DTmuI?FA6E*X!a`1_QzN~*4 zKgcME2jn>nptBR_2Sq1LI0FlG$cWA|MrRY{7zfm~rGgbpHH@4F0VmtBV3g&7Q$CBS zEhNg;4CkLAk%wY6)u|EXm6)uYLvhhCsdIKtU3WhK!;vvE8(dgen0FmbUwmuu2E>7HB>S7U(zb2|qW|uP&@Ssz;ktuX{mSbhO74COars|R&@<8&ab1k~ule1? zje3Y~S$qQ|rZn?g1bXqxk|Wh}voYBiX)SyB#3RcJ2ag`MxtTvk+1zLfAOw<4YBBy^ zZ&QpxJIamm3Don&EB{UZ`d0um`sQaUHlIRscM#dCjs=Nrm_fNNNCu1!1PEXIyVi-s z$nP_M{Lhq*1K^%Bm-z^~?g>U0S_-l@((y1Li!ej^X_&J}1H`z2mLUZ{z*Io1cq^2e82PJgWyf^y%HeyH4R5 zSHPT~5-3h}+mm7W$c)~DK>CD2%6s!-IsXI291(=nEhFEPTb zu1$+$Ecd!EP`%IN#5(_(7|Xsi2^6Qg?ZL!~yCg<(;Wh@C!Ro}{Ovg{>+hG~EFqRAC z2n?rYp+&a}io^&RUU?ptgc7+wrS_%}Wy6wTl>U0Mq`9PP8O)$g^ z`mlo!bsMbWPC+x_*nUtFBXt*}NMN@wti-BxcMjIH0^=rjJ64G&{yhZ?tOvAQ=xYIDtcUuhGzejj5+;rf31Ffm&9YcxDTa9F$_r0^=6@j36rtXjrM zVUt0CI5i9Q_dphBvac2;tYW!B;*&Vslo{B10_(FHYc~9)#JpOevHJIx60Q0iBdMLD zIqJa&1xq%e`oRkSd?jP+CRX(jW10Oe0pZjv*!jZ>!+(Xr#m~U@687*2Bgv+mKyhjo z+VrR(h3!5regTa@k@N-J-0`e|NhB*7gOD!n>aW z)BBStVbv=Gjy-@UAe`#9EeTtDoH1m}mdo$G*AiadDn_!K!2;5IpCv3{HKVwFW`W^U zx4o7?S;Hu9JCw`ry~h%(^;$+zd*cGtd%q=YZ6ILTZFd3TRJXmBumE%F-^6D9hCUZP zgOw(MvYt`wmzjN_tnJ|8FTonHA)w&ksX%b5+ulleiW?b$w~e{@8T43UJ=>&^?2dFl zI0=t*v&ONT-2%j^ZhJ1#o-GQ;ZliPIGw8PtHeljhTQfNBEQx?|s@pat)`D#rEPG0Y z0cOyyME`A9SoQ!+KR5|{ctYX06Al8zsc!o&F-|)aj+~uf1ew3xVkO$NQ(%JN?0>_uihwlWw=hiMF*EuiMrnypTN#C7h1p@@KU@djpa`chv_2|gF{??@3xR=(V>9EN9X#$N%&TW8OI#T z>jNX<^%OLQ4$IA|tsMy{e2le^)+BtNqYB5LB@>|DTa=io#}rbIx%G~fu!G}*h5y7P z4dPU{vnR1$KN&FmnN2QR@VZ4wSlfw!l70Q@y}uG;bCOZiK~rf^?^p>RVNhf78CC(~ zRJXmCXxAx?6;8)8zzlr31lDPdH4D4U>pJ+255OOON@K-eLCsO?o{kXP9!tGjNQc&$ zsLvUVWxm(yr%ef8=xl`J{>P(0ajIK8Odvg@k=iK2ygoN+i6eRiByC1B? zN;fH3v*6_qB#>HyG#lq45^KYhAoU;FO0?**;Dqnk`WdA}i=G#x{=MLYXFn}CIYA9> zT(`3+5!1NBNH{u(+>i z9QUniKS+rdeN`iw&tUt(N%-|&(>VCTR$w?a3*+;$Mls*+a^W)=pM<@AUE|o#f(3|E z-L@yuYu7XmJ~-yGCDkoTV%7PEMhTxX3smnbT;d7zipJ_cwv?Dd-_%H1cYERg0sFmW A=>Px# literal 27400 zcmeHPU5s4Cl|DAX7>5vJ!2B7*C+${=Ut9o40T2-xA9=d3IpO zmhCQiX$8@eTZlIPg=q6iqQ3n^Lrq7=J|;3${GOvH-y|}0{v}7pe@kTO{GS~i_ydul z$}b$9c%8`5$z_gC^nnMRtUDTALuBb1uAoDQ9G!iE$k5669F5Ep87jTu=+f_q42|6E z=oIQ?sI=Wt`6on{j^GL!dEe0))WZ_+&wx(<+|d)?Co*&fc!tidc69nA@-8#?=;qjR{|&_Uc|Xb62{sPK-X!>E^`;wDEIUnMeh?x&8< zuSLIto_g2O#r4Ps9Y9%zhF3W{h^wJ7rhW1=?v<>)%248lx?U&#|gMV|h z{Rhwo?f#>qogWby+5z6s)@zQAZ9u<*j{enA;Ysux=&1{i_DvBPx`=WO9eK;q(HEg_ z=uSslUL&&fF|MEkD;*vBG3*UAfW9!a@Ar=O|A@%Y!$%xFK1gKf;0KN#e*-+|k=GsV z`W2C(-AzyEr`@1O`Wy|dz;g#Z_L!qb-zGA&5B6wi?++dA-w#~SqXkF1(4U5Oq8}}- z!4>o{+G%Jj?9|Yn-#F^85m|ZbmswB$A`Q?*i=Z}yDjmnSOar>9$` z^3$#a&5PEoRKO=CuR2|ynH;G!eGQn?8q=+2wLTs+0;e^~V>9(~tJXdJ=OT{_$(xl3DoM=>@nJLv=;XWyO&C;_fTR73ERi>v~6D8jW;Y6d= z(7h#`)~ME7mGRJ_tp>ANXQa`nRRU0}!K~J)g^o6c+-fi@I*pObwTiE8NK0<3p&o)O zLkYB=JO!sFyw=hKsnrOa)|j%5^`?X|6zA8TD13-VB$NMg;LA`4=@a=F%+o@siUHpn80HQ7i4Gz((AT6KJ) zC66#@XTAid8A~HIUr*s8jj?K_=BHX{cuq7h<{);%Go-V*Rh0?|WNCQ+O!FqTA`W0m?9S2NQv%SgU?FG$}A7ip-zfkwN&ftVX_ z({ew03lixY$4EZ-Oj}|}q$zEIQnoGSQq2!fmy$cDB+DlyudFgdT5_+7S@@*nH7nCI zVMY&W$;GP;rtEqpq$PK}>>mlPBCS_ueLuRC?g~wB+K!qV1S8`8fwxbkJcz zXoiYnMF-`~Oev>8^P+`YBQ4E~mRG6zL8aK7&SlKDuI66L30SXC)Xo8F9}BX2{1*0V znRl_5mg-k6re?DxsW+xq3lgQ-m}&*7t(xMMmTdt~^wI_vDP5Gn;!q?Dl%6eW;(=Q*KC2QbT^N$dkcp&Fj73V<)?kKREnfjI z(0VXuQ)qaK%(9NbP#&gmkw&#X*5GmDm?$6PDmZ2+!E>Sk>sK1Wu|}cTYQhm737&4m zvz8f<6OD#D--mH8y+6>NcHRqvo^ zHls5#GdAYEbEg#q89n9bIlUmr=ow5`DFFqa(Q+VKk0q>WM!tE;c^^wS(J;=U&-O{q zD-;`3m3j>eY_rr=oYH7k#;emUZoROPj(Y(Xip>gADrcr{CAM^*R=HALt01h>8K0gB z)pJReH&(5WiWgNVDn8Px!Q`fAYHrvWH4!Mi%4`Mhq0-X=rDvW(wO$RS39EFbunKoi z%Xh67D816?D8CGBA80|W7i=l01wPgiCjw)1bkws-$1E43R%!w38M`Qsl)T|6E~DXl z!6_If&L6Fe%(x(c)$nYrgU+;lWHl_q`D~HSozpDq*xRb^MZ)Pg_p+{~W#atFQfor0 z;J8?$;VNLuH|aQc3U8RwxEo_ug$1!*cw%^hRxR+cmKd~Ea%}g}_I{4GBLqi(*+{f< zGh%&xM9m?hkBTDhft?C5d*z~^v@t4K|B9}a{h$2456LNcM!EeA0k${ zX**)qdvO0YqL&AWeu?YfaQy+~f80&<(N0{Udkwl9P}jd6MJyh5yMTI3?Sn4r@)qj< zBII|1UfY6x2CYQ>evE#5bAagg(EHJT^v}bHdp?dnK%L*f_4P-HezgnF1~|(>ec)H1 z?IwQv_M_-W-1o!1E>>Fre+jxTqdsduZ=tN!sMBvy_Zs4(?}7FLYb*3$L4SM%Iya8~ z0IC@r*F`6G(uNtm=05cj?)o3NeAf= zouUfO(zA4hhG>Q^((=hvjkh#sZ8 zX$Rd;U!pJ4ee?i*o<2wG=nM29-9YQT7p zzpmr%GG%t`&hoTq-(>unjK#S*bdJ}axUcH|wy$mzvT(~ArD@kjcIBECe)9S-dq-Hb zX60>`dKT8Nq_XPmSJ(OFTGov&6zA}3=5UMJJ5^Y_sD-7fTh2){Zg+5nl%9z5p0D%C zGs@m+&Pdxlf4GsRYW_W{^xOKE<|S)AV5R6~`bBSi4+#!Ly0X5H#ciJR9A02s7cB2g zxAnc%8dt%$U3%pm@azIimWW(dF&oosYm>$7(xR9TmgR$db3|jaYq;FDOxC1}CaNbj zhHZw3TO`cJEuoi-srof}rZ^J-$S%`Oki*E^tn=p%W<>RAXQe8166t2G+349V$ViLB zgCfmu5LTz#?&-*`p1K*ETW%ju%Oq4T(snyvW{B&K%r3yy;#CU5AkFV2K-dm68?4Q5 zXyu~LW~j}v2{P9v${f2e`HA1|DJAzz@-H!akKNvqE--b>O&(S;|1^wlzQ2q#yY#aK zwA*@Wx2>7jYLR-n9R~e`dCx&9`K@d%$?ZwEiQ=~#!-$Gy$FLE(tpWjP6U2k4T>!D| z2!w8Kv>BP%@Q*;+jJEuS!yG%cZHM3-JHKtLru{Z@o88m)yRPj9Q^ubt8a}&M{>hsO z(m}an1KE8XyS#NV2ENP5<_sjndU3G8-f98?vC^FD{a7urs*e?OL(t-SgTcx^a&JAK ziO7Zs4nNl*2xSL83g*P|S8-jfvN)}dHD^3B8!bFviAG!j`(h9Cjwl7UR3sAG_j?4+ zbVNaKB1940Y=lj_oc4C*Y+4>~Ipt9KqnDYaR9BRa{U}1hu?MVRif_V;^7|e z+}Tw2Sda=E>pf7tYn$C&moU6KH6sRK-86%Rry3kI&&vKX@?^Iv_*nMw1}49Q679W2 z+e&JO$eWUkR8yXqvf<)9eZq^UdQ;!vQrWb2rkp@M-eQ#P_ui?dMvYd67LdqGi za*<4ia*jM37byGK!4)!U>X8}aV)w`9K_HG#kg&@W1bXsl=jH@GJ)?+g6LNLWn3|}O zXO)8^6ZB>N%Q!DaLEIM4;Q=~3an4J0@_{q(A`cnS8N2AroE$HJy0%oXVyT9aQwrc@ zn-Gk$JaEdV&f7Frpd zdUelnE)+KnY~DCptN8%@C!KQd-#*~ayI)#SSaKcRzv}Jb8xT`nPWHECqix-KM5Wyi zp&z~z5ILC;7BY27jk=$1U3mi}rZn@r3H036RmZC3W@EZB)>`+#(1Ys=hmRweo&OnSbE7GM z5SlfqmH2zTO)&-ymK&2(sONK6|C|2#&j4oh&CgV9DTU?^BHC{x6G37dW>BsRl76ED zf#?i~#K_m0KmKRR!a;D)nafgyv2oPA`vB$~2C{-1+M$K?g^ihY#zK}_3;B0jF;hKi zYaydHOa3Se!Ty5#84LNh!1$}NkVSa%ojlQdQH41VVRzkU+xl~(>c0Ts9&h_TON=V) zjkupNLNluLPmL<jL&|C;fR3VCOKwZhNzTtM5!$AlV^VSYqa>yKT#s z+gGJt#c=t=sSa&@pszjBIv_2>Utcfdht4q z<=-~~#iK&i5dRp7|Xi$0>!CLdoVHMel|vOK_Ld1$Luu6+hjE? zVjf)e6Spd?aH3A2IMrznCT6GG7|DlY z+zOf@=Fx|n+s}o!!zykUG!r!J1tsyMRx^r(AA7<|%u08(!J1WI+{8|wRpO0*XM|;g zs9gL!o>Rj9?#dzc)TYFTnu!`!lv#A&uCU7H7Yu!_$qB#z&6Q|4jo39NM*Ya#rl#JIXoWA*MW zC0g})MpFA3i`0W(5G>g$=>;qNi;9e`n~2JK#xlDw0>Y^Uu=6h}41d<1i=T(>CG6o# zj3iq}0>!BXXw&_I6gH)}_<6J`;rTtlNN&GNU^vxjdlD!QGK$+t`^G;TtyE^iT3ObNd9zC z4=9Pzx{p!Rxg&w<{>`1Rxc!3F``R&qb3kx%0U2&ur2`GHnvWM0re4nEV$Deo-pzd3g7^ww? z)W+Pp$4c12F~P$Bv5^LGs#BXz%x}j7hCf-zWeZ-XC<$vj5m2(rpYHoB@oY{qiaHJ{ z4eA~%;Uhe*vG}B=fN`qR-b=J=NMnUFoD47zUoL@lN@Fd+F7v<~e&c;u6Af#u_ye0o zYTfAwG51>P-a_VRor(H9p|Q-TK)tjn@%}p#;kf^hCs3T~)D9C!PimxG=Pe}CS&fvN z(7Q%TygANkq~1^3Bxa2B5mJ5_cipOlr*a`+@o8!aRg6?q=b}$=oufL{o@ExeYaB2ab&$l#+`NEV7pU3k_*xL&l$9}vj zK%DBdJ&9iXw#LC{v0S#KIz>tNBQI){@WHJ>bw9%;-ay~cSiQ%V5@YBkjg)n_SNtEr C^(6`b diff --git a/src/3rd party/luajit-2.0/src/luaconf.h b/src/3rd party/luajit-2.0/src/luaconf.h index 7f57bae1a07..043590b2726 100644 --- a/src/3rd party/luajit-2.0/src/luaconf.h +++ b/src/3rd party/luajit-2.0/src/luaconf.h @@ -37,7 +37,7 @@ #endif #define LUA_LROOT "/usr/local" #define LUA_LUADIR "/lua/5.1/" -#define LUA_LJDIR "/luajit-2.0.3/" +#define LUA_LJDIR "/luajit-2.1.0-alpha/" #ifdef LUA_ROOT #define LUA_JROOT LUA_ROOT diff --git a/src/3rd party/luajit-2.0/src/luajit.c b/src/3rd party/luajit-2.0/src/luajit.c index 85d713fb421..0ebc73005f8 100644 --- a/src/3rd party/luajit-2.0/src/luajit.c +++ b/src/3rd party/luajit-2.0/src/luajit.c @@ -61,8 +61,9 @@ static void laction(int i) static void print_usage(void) { - fprintf(stderr, - "usage: %s [options]... [script [args]...].\n" + fputs("usage: ", stderr); + fputs(progname, stderr); + fputs(" [options]... [script [args]...].\n" "Available options are:\n" " -e chunk Execute string " LUA_QL("chunk") ".\n" " -l name Require library " LUA_QL("name") ".\n" @@ -73,16 +74,14 @@ static void print_usage(void) " -v Show version information.\n" " -E Ignore environment variables.\n" " -- Stop handling options.\n" - " - Execute stdin and stop handling options.\n" - , - progname); + " - Execute stdin and stop handling options.\n", stderr); fflush(stderr); } static void l_message(const char *pname, const char *msg) { - if (pname) fprintf(stderr, "%s: ", pname); - fprintf(stderr, "%s\n", msg); + if (pname) { fputs(pname, stderr); fputc(':', stderr); fputc(' ', stderr); } + fputs(msg, stderr); fputc('\n', stderr); fflush(stderr); } diff --git a/src/3rd party/luajit-2.0/src/luajit.exe b/src/3rd party/luajit-2.0/src/luajit.exe index c8e87936b4b8be99497e5dfff1196ba4c0a5665b..08219a42f7cb8dd8aa7a6ad35e49ef80280cf53f 100644 GIT binary patch delta 31346 zcmeFZeO%LJ`#=2I7&37RDhMhdDj+KAU>h*D!B9{#v>7_!5(OWdNJ+Z+lsIf);N*(> zSW;POSlN{or6rar28kA#rFBu7QCZh%P+=Kik^8-ma|5aG@B6#I_v^l2ult{yIzI37 zIL_zi<2=rDmNs~o?)9$LOFADi%*aWb`1G?v#Z!f_hMJ6A2UP+AX-4ZhQqE(nL|TG?_*s=*4Z)5bsin5a9>cxDh$A5{h^0 z4=L@JJT!LHu&LG+8?BJ<`V1e+<8$$QNm%@AbK#`yOrXo4et$-kVe0ZF)+LZdEAcT( z1YsC(s+cStH6+3hPGrqfGagzg-645Rwpub|%dbWuo85(g*=&Ve+~hsUt^?y}k~?S0 z9H(UE4c0(YHk$w$1Xb&0@R?EGU~4ZF3Wcm}Hk&*;9Zmk_UDl*RS2p`>D36VJlMw`h z3lNky9A&>41;6yu^IRIim?|)}k02D@%w{`z@DS&z#rX>xTUuJOTy|@O!kHJL$YPQ1 zf*`j==Ikt%hoFUmW$!qnkmc-V`@llF7+|RzX%q^jENMJMykP7Q4_qj9cCrYPX0d6I zIGT**UHOZxa}h|I#UAG(MWHK;jpt4|iamjsJBx)u@?Xon72R5RGmCxdFUoz!N$(#m z#`sLIzl%PySgsodOJ}RgWoDldUkttwObeL8n`Tz*!KEI2nGpVkKu1%WqkDigwD39|kxsNeIENYK%q(}HRgf44@(af3$Q|kJ~=%g%jwsT8_zom{U z{39xC&t_NM0mHM|Nw~7vI($8ym0eZrVn@K6vzZmp+gqlw5TPR^+3XC&XaZ*|^$SZN zk8C!b3;oM4TGL3J&0c|kMwE_w1l$^8;qj3C*S>mGMm5W3KMoN)C)o+yML1SU%lk}$Kep}7P)d*?AfDd6` zBZaDT38tX4Rd=~0$fbT7@?f?c@)=kJb(gnvz@G=^5!Uc}C{!2AyS9%1?Tg;# zm(ns~>7eBjE8*=3f~vOr!t-_RDKEFXXhqLrO&-2)G@pRrzYYWpD?XSv@ZcfN=6v3) zSkwFd99tq}f>pylr*3XAQrpSdpIGJDX^*5ZiFIJzW%b|}Q;@=Nc8M>|!R*;vu@vky z#S(jC`LZJv%i-bKK=%sKSV)VPoP9Z(#$DkcOWkOr;LSTtmmy>AIKvq30# zq0AD2-Z8V!2ZF&`yoXR~W)b8`X<+mUyn=}sq$}Nn^a%uVFVz8sK9(3HU}B3f+T5~5 zG>(gSkbaZtE(ppS?0?@Dn=ycCHjUxoLp%$A-?D6hn34fAy zZ@c(LPQ{R`8WuOsqs2u*lj9u-sUn+YcJjq^vkh>Zb}i0r%*wVf%mDH{>yBxnTASIM zoKs+m8j&?kIDf|7&Fprbf|~X#`pag85IDOreMUJ^XiGgco06&jywzm+jqs6UOR7DM5dwFB zr69y8WY;#)fcX(wI6JW~jkTi!+3XJRn6~9zi*4^X3@r#E*p8|i@;wM6eGe;+MCrCR7lCu_N8^a;}C&6>q>esN*;qyNfXn}S&q z*1Y`1&E73`B#NCtP&F)sUn40?3!LqaZ~d*Ksf~h=faM^n=TSz+@Pc|)TO}B@Hok=} z3LMToL&|@!&9v-79Cn6Q$R;e^HlJFmRQuG@M5Ar65nccNb>3F(c0bEr1chYNZzNIh zfaMK-<@-^pu12YK1bdf8D6PH0wD$goZ!PkD)UM?&XHi6e-yO}S1!k6r<@;6ww!5$* z1!P06{Jnp|wmZ5SCAKK^-OR4W0XBOoqv>N}MVRjtm^Ty+zG!zHAo8@HdwB3~7Ftqn&c3B7WwFn&|9TX;EY<>swrhJaNv$+dusj~| zNEZUL*bL%aP>rE@z799E8uk_qMYILh*123Hf3pmcv4m~`_@%u!kFS4)!c2sSLkQ~g z05nA$EA>RhGPoZDhZPfVM_SqJQB>X?MesxkK?9v-b9=>NClL9MtWFfVEE zSj^Fg@(O_Cq!g3H=IzWpBAaO`!|}AHsZVx*f@`2T4F0&=^qOSn;1D4AO@b;s+xVrP&J6Cn)>xWji6> z6ExFHj_Mr=${*5zF68>KqP`xYh~SCAEfCe8<6Yay>b{$0+$1^k=Gzd8InpMOpKo5{Z!*X)#i z8fT3BtLNWD{#Em@l7D0PH=2JV_&1z?L-;qCe*^f}pMMqnE5~<%v%?j*r4zG5Qrj^f zD`z(*sLLj2dxHhR?l6!{$j!CM3nlC_ymBoAWkLhH2fn$B8WDS2M+6$JFo-oa(I#p2 zE|lheFtPUBovA|Q;1>D@o~CbT6MZ!e^fesAcjeAN#$oU!4x#lNybp7TtOM9r?woQE zxaUFdHh?o-sJ*~ZR@(}!N|)DOA-?=lkIU8U9S*ky|Lr5s+Dllzn!V5AOC@ghz5o|3 z#LeDq9#^3(XLWp-8@ zhJ(q?#fB1AC^J`T$d8@>i-&jNs2rSHKRznQURbG+I!=aH-6`94qXLao;@Mab(U~rHbO)4-;6Yc75bq8dxeA`W ze(sb{t{r3G2?uX0P`KacJrz#KM@;DxZr)OARp z5rL65;xC0Ri^PL1@;D?u41Q=AXREUtIiOoZwCM_K5W5(Si6Edk1!kNe`i)sUbT7K8 z-Me0yo+@-1BkZ<`;zwhH$GD|$a_RJlQfna7+=}^ll=%9XvC`L~#MUwKQq_3TKRjgF zs}uTC9ub9ZKJ8l6=rsB-YAjS(qNzx)jPul2)!?)#%Dem?X+XJx*~VKDzd&mt;?*}$ zJ~Mm#4>VV0Nl({Ih0%5|nooQxJnVm1-Vy9q6v9)}e?*Ey$44ZzOhgOi@&;*6??GR< z$etiLo7oT)4ZWn`y)=umZ7lS+WKgMJ9xE;xJAClwTd92+A#NKRF0HyLJ{=x9u&?>V zGh@T;e`_|savO4?RrSTm$f&h)QCl_(f!36p>sZkP_0$vtac6c`p@ag3O@hvueg)@# zAIPzL_ZAafi;Y;j=!)O2h72YfOQkJQI4Ly)rACv;VX)-S!o)H=HCA+~O{QvSUzT0o zWgD&4Y=pp?#cm)~H2G|I2pC0-juN?GO`^O9p@3+c_6hTtFj=e{A1M8Jir74Uyf-yM zxcJlf5xVa&raUcr$9O7GyZ(d=hZB@H9VzGL>Y7J4{MKsyw9tpWj9k*`hFdWD}WQ{l~kpibht(A^2<);ekLYyZZUyZ>!aPq4G zPFeY0vv?$WTucu(Cs$xKrYhAOf2A-`H-K`Q1y`tWp|=sj_46nVQe{L7;i zO4|dQ)8!PwrQu%^i6%EM>TlKJBC6Ly7I9PrCvfm17@$R2OHU^Rd2AHpP?v5m#};C^$c=T+p&_CtO}9 zb>~VVR==lk&dPHvm&=9e@No{NK<$@tJ`UW8Xg!mPyh?8v#nqElDBjbPR~wg2qv2D@ zXH(gJ6m8qqyv}Z;V4LjHlp!vwhX$ToIWrGxe_0v)-C_%c!KykzoE;O(liV7kj*+35 zf^8ZOdx8r3M_>(_*U>G(34?svN3ickQ*N%nT`0@t7^S_h-FO+UIR21YH)ipoy1Syi z5ZWrDx_gSs$-~U=4MTqIGhLcnz1bH=*&Bwp>$v`1*B54xqBjsaqGn27D7Foo^q0n~ zuXo^h9$;ZKa%EWRusHT;#Gz9&Bi1PS1dtboFor3W%f?Ri2>jWd}Qw{#T-z1lU`!= z!7O#1ThzG76?qKB!?@p9*5?a9tBibIfdV}F*0-;s&)eS5zoE~6XP>{zrsx-)f$ss^0P{hn?hr35EB1|`K6*n%XTnsfB+w#d40vUh#zPRHU;TrIUppD37% zs3H195nM!-?-SXTTt*e{lVx%d)v!;L$3?sPi;B6ZroX6yi}v&v?d77q{Y8hlXun%z z=Ur&Iz-0&e2kYRXgZ)La->8;#{YAlCbhw|WwjPWnhU9(4&)}hs^$TUOa8ZN3zpRYQ zn)-|ObJ6MkqIxcB=`Xs#Md$j97#Fqn7j<*dh5jPB9qUbY?WO**U@mIwFN)@(EB!@j zT*Uf|a=56YzsSNxo&7~yxQIp}HIJQUP;ECj%TDs>YqEnpSWmy0`LzOO-(uQVXu<{V z@0|>stNROg7#x=L`d%R|)D)fv-OHueg5;`Hah@v7L@ISj7T1%VvO1iY(z=WahZQ>I z{y3}wj&7G#HVev{<7U8?iM_$xO6dip#U(Cv9Xp71JeM@W6Dsvo)Jw1pH?wv zt4xA=$GZY4Q^zU!wwv7hYus2B$}Q0M2-a!`R6w;)CiSm=&H^ zD@P({TQF`t5YWuVL!p8Jpi=!OO35gW$a(LgKgdJ@)xZKJC?qh*DTh)aqe5GPf#339EHVSOy zky`HpEYa&jVeQPonP}T7MlGh(aH$uJ`Hq_|+q>L0PUC=X(hTIM>Ov{li`WR9t+}{E z84v5v7??`wT!jGQu=q)Vzmsn_PEs!0BvQF~X5zf~;Zg)x89#nm4p%AMB|!*(cL;ZJ zR^g2Izc0;+zS7LAO7AgQPGjKGaBJf&VGXjhLEy6WxB{_qiXHLc!{E_^!m}@+R8q0y zCW~PSvG!;jJp}7W3n6PjSukp>zI?=zD3^Vq!q(IT3xVYzKI{V;STwR`Sc2Dpe*xaj zvWNo|U_S*|j{pus4yF*oSw~yQ#qRPX3`=&Ql*&m`*!UX7vk9XnplGnsGO_@|h{(st zRqp<>lkR07(oH$!a6|u_XS*>SzVgEe6cMt47%RK+JF#vR{FR;{cGUL^j02B zsU1gV6w7IR*jsdf%eAzT;LlQ)%mQrnhk=7Dp|3O03b@tN{-ca&kR$fiCR&foJ>J7lKVyNgrGDz>sDGM_%iuk>3~G> z&XfpgTY|VTB~?vXRiycCNf0{wg0lBZ}mj894+G&QMdO-kmWgY_3sQ4viImxK;44EQ;{2 z0!?ni{HL~4rsZOF+mUv!v{5DgnHDx{K8<I94q=}j5SD!qrFF&&ARYP0PdUC2wb3C1%spM$(!EnGMtXKF}Ww( z26)L{r~b-a%uNQOCBr=Em0?_m9#9{XE}qGlIOe`yJ{l$kSXJcwj5Y@*ex2goh8g0} z+ot(q*~js0x#fULoPAqd2x`wVp^9Twq(jz1DU@!?rqY0MUvpc$A2IExs?v92rkqCI zzqrjnQzB$`D1mOaT8i0t@9bdeO6TkuJiG*vG5M*$;uo{C$Sdylgh0$QoUy6KnOONU zkf4CLTW_CBW|gzIPu0L0rNEJP(kEyP=Uj!eyX)lrwjlO7nHmM0rv%4bMK~36G{$7t zNuzZzJKiIHvrr%P`Z=^yL%6Qfs$eg0w^7$=8pP? z?;m5N>F30fe@q%EJ&z1bY;%WL_m3FaBiN9{wtpB0_FbEZp$i|f^Nlo$s`uMW1wApc zVgtQ)7F*6rh3iL`OVxm*VsPbv%9(P{4hqASnbm*fa+#Qn#tG`+S4IY@Y_|IYPhDYX zaJBof2RKjlU8!=-a(Q>+2#jnLXd~NvhyLxo*&{GpvfiS6ZIM}QL}-^eCgT2K4ZZ2T3vOxfA4K!(1i%S7u^dcN|*6|rVfh#fNYyAr!-wuzmk zeG0YOG*nyCW5pq;hi$lmiXtUEt8xxNpVj0qrt=AT<&hV9zP$q*tJ!%C_SI8p$?`L{ zmDwy77tSyhY?V8+iz-Jr@32(PmFWWYb8vJUy005hKC9T~!^ZuH6J_N9Jk!e8d0)B> zzJboUa(95#V(iniL&cam)5M-d5%xK-oH*0z=GRBnb+wchra5w4NBTGyD9`{wOo0~i zjEZ}Ib-9isyuE!P2i>Xl!&paGpZ`4gw;P=$*By4bU>oML1(@!f$G%2kaLeoLY>#wp zkeTi@&9g|*L9Qbqn1bTdi@l{2lf>s1N5vf=WzW$Ok_AJ?z|dmM>_T7WRYf!3uPhUt ztU6N}N`X`je$U__Se!22Ts%bzn3BJ2%0YNIK9p1%$k9H)$Sgo)O^AxCw$5&?Qjk(nI4`tdtBO zjjipf_|KI=_Apxa99v@q>p<7~80P0@)tpr`!OiM9t7q3f=Yfr!HL|bWY#L|N*m*ab z!PyMfM6Ac!MTzIJ*GN)0m`&yz8Yx0^#fZE7?e#E!`DG^H4dcp#Q`fwtXTgqvkK z=7my9*Z?F45oA`C*&UGS5sVftYcSoH!)%Ua%oVs1i<@Jv%vCv{eV~~=N;!{Lbs>ub z@W`k9aD?lm4vJt%(5%(N?N6wRFI z!77<$#(Su}cL&&K(HQBjG?3{L?clP$=Z=$AiW7V?-fR5ea+M|QHwh6mEoj@CG8IER|*Dr`?JMB)x%w9$7IwGkIWFb)D2GxRk(-g^F2qS{0;%y43m-57_VAxB($&xFY88<^<6 zMn`wh+G}($bjse{1rb+fw{_5rB#rm@JqCLNniXfgE)-zf%^rOH%2MHNQF_6g6M*q* zIgJpE;hc*);bkA5xWrNb>K@DQ@XK0RD_ux^Q-r=b{s+o}qKvjIM*?OZfW7FBOi?Kx zxA12Ojk$J5w|>3GE%^$PLNCiMM66Pzmmz8A$tje>N8OV<&GXpjJQ=+B@++^SWcKtH z@i-L`FOD%`c)R7avc(dd0R9i+{L8upFS0vDsK`98JE8_UyvzuD~9sy1+pqi@6PEWq-gT?IH8H@~QD_Qi%mVJY+z}Te=5^6=>xM0c~ zHjZ_4OScYobbHx?oP)_a-9E^TwZu42!XW)Dv>lIf;fsXO$rRtO!_g7oSaDr&tmx)l z^g;0`74-M^l~w82p-dOh@K5hnrC+a1hc$v$q*!t+cRQ-mI}pf%x{SJa%0k5Z?W0P5 z&Fq72*VaP$KAGRw-=8r)0X{)?UNlgMU5w)8~KZPZJf(T^`bZ=H9qj$P=YN zA_*q83<^0n+gK;jP=!8+DGcOVBF4kOEY|QLtpOL2Kn~TSv3;Q1DUMz{>h@r?fu}i2 zzH+$+HMghZV$xyNn%Vq%m@Tk&8?kd>LwJky=n5M>byd-WX`8*)9bsaLd8O@w;J;vhI{rBmQtF%FSPrxFHoGyVD>2o7^M~}+5^mNCxu|| zd?i+`n_?e`BL$Yy_BmPYN~~d$ndZM3?@W|QE6it$JvkWha?_oIH5BDv|Gt?8@bqRQ zlV(AInSy6vI0rB-wMD0U$275IaIp5Zf6d1BmwU0OuSC5yBJ78@ThZI~ey`a4vv6Au z0}#48bCS5#njw9lO+0NK8{oDo^4gzQ0I$(T6YAalPtw#7ubhF2qtULSB*F298(%iXWQbZYTdvud1RBk6Xrj_Gn^xE&ZRa^L4+R{2qO=V&AL=9fUUjw2K;Hx#aq>FLi1XeB(h z@NA~T3jbttu!iS0d($R}6Lb~>5gbIWpk8t zX|#CP=6~7sC){f>-aph({w zdm01Fd5SGYj7BJ9SDR>{!+f~Gg6KL8KQ^i{dxNnkclwey{K~%ugJLx`dWtneRx3l3J7>si<%AA8J=O;2i~F_&E>S>| z+RmJ3E9YFQ4I{! zGgL>pZ8+x)?s}To>%37yQN5s&Q2l1&8r#P^@Y*75+aK;gS!^STSr4>W_tM=iRncO4 z2Xq%2sg90t(lUxmG}5-)#OF&iWF5lpU3LI9tV(Al+%QugUn{AShUAN-TjQjiw~2?h zMoL?66EAMPO?u@vG0Gm1;Dsfhwq0n~t<=23U@~!*$eqo2xZwQF@!gn{-wp6m!){5c zqIR*|7K_vKyA9$t`v~c|W8!1>aT@Y-G$_29u?&}?6zBlL^EFDXx4kt`3l(J#~%saTl7civURxEZB zN}(g1ls7!IMn9Fi{3@OV>d07V-!_^IeS5aSreqf1+BR-*abIW_ zdtUs0+cdr4Nhju(&qLH?My-4Tbd4?Ys_cNm5W zbI~(cvV55s4t-acE1q-ErG(h&STLmE{yuXwjnS;KOuwHI>L@L2m}z(gB)(iWReJC1 z;^ngC5E%H{eFRlrVFDBNio;J_o!6UAq711|vomH7|AH0ib6_+RW^UZZzOu?k)ze;Q`3n z%9Llt_U)5GWRRddv9~-PZ9!tEUF`ldV(bHv0~@icRwlB}55)Wjg2*hq@qw^$RI(ju zqhtqgg19+=P7qX{^+BxA9eVc%V*LZ-rO6+NUp$aHD)LPvk&e?hjt6WULb$aL_DzeJ zSP>CKiB+bJjK-c(Ie%n~bIx^VKoy4Bx{Ap(+V)li@CRT!(t;!PzSi5ZK+md>PIt-> zCRLbQS~6TxD6L#@CI1ux_}V6WJP!LGmv_mG2Y7hEQG{C%;wa?A+w zubR_QD9nRyc7=zGM$~63Bd8+pSMHkFmjdK8+I`(Az_rCu(ji#aI~QDc${s=JiXCGp z(hEBl5)5#rOV7;~=Qx8$pPQWu8}n7?qDy{n4DdT%N<8BGvk%XRrOprv{giWbFy*vk zz|4xYk&&pJ<99FH5ceI=M@}8pXUNV`?v~FCR-)ydi(z^?Nk(IYofwCjx^cy^5UXw4YmQ&dDe@+TUr3<|m z>rP=JoX3XhSu%H>5+C?yn92$XM%unx9s{s*@`ZFEZ3CEmZUeaaIEPLPHj-3c^&!v#IM`RliMl*_!U; zhkjK<;!KI(t_CP2Is?5uvJJ~--(Y2cR*~M5>$VI)jlV}*qOeA34gCFI*g|H)kcPH4 zm%V}Vy5}DKMok*il#;RU}HHKRk5c&(+BzO{nEdZXy*u-+FV9v!cB4?#c2oNgCOLrXOaI9;J#U#_DhNMrNOV*9|*lLnkVudc;3 z&tebOiKUMQOYQH7k3Sln>wrJn=S#Afzz8>xeS>Us`57~C@^2>gO#sZsKCp-6I%Ub| zpC6EzvoW6z9<=Wcrn1B6pUq<^@%|D@Af{zhi#U4s*bwraeC^~->2H_G(6*>?GJl2% zLHkeQpa&O7FWfFJeQ>@sdahXi;27i8m$44LQAS-~gM4v}n7IWF6{HQe4L7m(Z~3l= zT@9wa^&8n6w}dagECyANvG0JyxqTNBIZ=ww0aE> zdOJ>bqqQ|;rJxMyhj6Yp$ct$ZFgLewKu*w zOuo#Q(pNFBm&Fs+ql3SDiP{rdc%#hG?4N;{w%2gs^^*8=^$Mzf?nCJ&+H0DjE%9@a z4>n+Dr$-N-TWlTY*jgl5L)cH)P@Tm^9&NaW3WTls6GS6pVgc4czFW97`Z?l{4@F6L z9~4JCoG3NU5ls&V4nt?Tj|bQQam~SgZ59i6kC}4#MDLJiBaipql~~}y_C$9jyKed4 zcw2m9_jGCc3Gw&clX2%8Rr3NZL?6{`B)I*t+og*yiZzeLjOOFguk0||iEIkU?o#1E z90#u;*p~?Q-sfV><5MY8-s1-8{(a&TkE^5)Hi_pRzdfkt0IJce0?`SXbf76sV%!s@ z3MZ=Sz5}~oc+5kJWnsD0P-9{_{ zuN}>nY9BiIWg@2AK;YgE9NpP|<%L)@%zp`ChYi86EDLhW0mOq9<(#LfQXn(A&RY(X zxR!Ep`;n}P%Od_FYvr=&{<2ynI2whP>$lQI{Ms1Eoh1xEYgxc^vyOJAAQ!>ntSh(kS!AEl;INBl5)) zPmLH&B|;DdypV&p*>w&Bxr8Suc0M)6KJ`fqVLB1`TXJa38xH+lziK^#rVeJ_P>?+O z)iW4Iq+dCJZvATAea_1#|L}I+bo^(`$^SsD#M6#`nilj%B!U&V{U7)t9a%$ql_-f> zeDLYOfsetPCocZ9eT?A;7?pAxS-d;rWxam*UGM8i1&Y*Rtl6~I;k{D{9txN#JQ>bS z`>-nx+#8lX8InQ?el$0ZymED?tRdNK1i8_~v}a=3^e76rQk3HAfvu%tIX|Qd-0-G4 zD7ZFsDoraxWvvP`+xv#Nb#J89zgB#9?^yc=ShGB4wo8Y3vFPr#-`lSMWP^5kolt>f6VN2 z`^Jy(my?ykWB%CJc`GPaU}iqE5sS!)XO`1K5Lr7{y6q#;R?C-#XKVLJ51kWd?7t%s z)pB;5*2_pG}vp z`cSNTcC7U5S7P0>firloV5r-IVJ*gExInolr*Xe}vgqu~A`=bhQDFGFjIT-AM@9K_ zahdMJiVIg^cpySkiuxOMHkk^&@V^C3Vzg95(}b46r*veh8Q9BJiDQD&QH&+k0cQ+GxHSAI~Ce_a+^2*t#o77ytn+3X!{`U z5O+M!X48`f`lSOb-dKF)Y%_*T)ka+Qufo{?)?U2Qvj)Ng{}#ka8sz-W!xxraTrKCL zXL~O#yj~KYerdwU&2J#q0y*y11K3<_JD!1f=%D!JOM%iCE5)vtme}cFh-q5(J!dXGfvmIUj(jUGwoV?0)f&O6N`x$KsN>%22O zk`}ilLg$@1*Y3{jO}8jf=Uw0lbiggq>%5nHB#*i!MxD3CBPnxB(sbTM9?4p_Btz$2 z?2#0>C7C*Jt4A`IByKgx?98LuTcJ1UyrVt-)7&v+I`0^dB-AaD>%5g7$so5xsq@b9 zNN&{dimP?rc^=7sYQ&ZoM%r88;aV?eO&k^M7)O70m}3At$T67hCyZxLayFbj!ZCtX zag1i=9Aj7sM z=d*DfbJ!@3d2ATR0_MwcIg@gBjVDj>YVIj#l&$&}CLHn~0x!XwMChkll=TSI$ zp)-hkk$Ys4b1!$A$oU9&&L`&%?#v;lojdc$Y30rWa;}0CzcO>rY%KVW5`SE-`agkY zbL-BelKxaD7QY-iz7FcDXE_Xf9#4tp;3)2>r*VU$z&yNJyDW%xF9-TlwGqwP>Gy`$ zJQEu!e)6)~P8!f1wNSe0F@+XtJJzsCQ00epBZ#A_v+?PU9LWAE|qF1oO zFOr|2@u2&1U4e5Bb8NCowg!;3m#)fn@DM+#TOnQWv8aDFMDm=N`)aJ@3(@)NVrg2w z*#7FILBUmXSQdT`!+v^6-1EvbiBW8M#UKs7E)J^Gc=IQB;!$y*EQYqTk*|fv+Ye$> zO243@M`_vFX3D85z0<@VS6~CdKhhEIR#UxEmP)zHhJUaIo`b|SuNj7RRP@`Bqbb3+ zUki%5f)h|xdaLRpPRm(Yw-R&>qVpQX&o;3k;_t5+rHd;>{h={p!J$lh$2&$mmac%& zz4d+U&vXNXx6}BpY9WtmxEi@@7hD-1AV>`lvIpP6jTB@rT-$h%{cv4HDtK81*9FMj zy~1^qw0`G}Idoy>cO=zUB|dp{nY3>1q3Xlo65oSZ@tyBX_68sG)^if+;kn|4W7R_r zKly_VU#;IkNxX7AP+C7% zJas&3==l5lH5?U4bRM-yPkXX&LJE{Uc%FTWJNpKRd$Vuh*`B%yd&H&e z0hIkYo_)ZpTl%u!)=`R5qXZA1Fbpohis+d|?>-{VKB1Q$d*@KaiN#(4tw`1JeE}&J zgK;0W$@k4f)1lwrDfEih+T3Y<{+3aQIc5~LgN}fL-!=+QfDVI#jvIv=z+B*5(D>ux zXRJwKc~dSDXV`=!0}-Z1=C4HK-y?cX~qr8$^%@Tb(w4oc4WL@(yuH z%R1?qd&Ey$#)O@I2){0Qh55`0P{pf=!W1mK9 z@RC1(XpQYfP}C?@fA)Y|-nm^Ib9U*_kh|gSw$eE|lr%Ix`e3B^;@N7x>FXcgEKt=m9A{F$&?I9D1hJDxqH<2Y)_YqL^_XjWT+I z{K6)2<;5uJ(EG%HUc6JfrBwX-;0ei1Zm#bWnp>ODz(vfv28w@ED_2;R?t$A8I%Ev z0|kTRpdN!n=mfQaT0qA@bs!vJg~ve^p!FaNC=WCp6b%{z>efqy%b?Ss*FbwgJ3yUU zs7$gXi4YD-1erhupkh!ds0Q>e&?(Rr&~;D<3LF7S1Z9G9Kr2C8LDiuBpf^BgL7#(2 zFSrQ`K!%e*$)MSwe}Ibgc8RbB4*EN-l?e5q=Rl8w%0O1oO3-{z8YmtV4GIAb1Ia+$ z&;dI@mqBMi$3O=`dq6ut>p{ywcY=(dI8X#A03^%Br#k_q1bq%_0UZOq4B89Y1^WBn z&M2dBSDsNAYBdVd^+w?xi?J`r)qO_c^?#v*qr^{t!dtpS13TL!V)r%ez}TtEDNBlq zElWi8&-z36{JdE*fc~YG@H-Fv_=~TXSp3_5d&ciZG8qa7fOLT;{9&Yjj7`V^`UCd@ zhXT8S!${s^6o!)=7))~DNTB6Uqc93s4;&4QzKQ7%tO14ruK>r8+=Uqo>;#U5Ay&u{ zQiX94WJptmjleqKCg3^XW?%=f2PpS~u>$Dtb?8+0%L9kV@Z`iF6atEt?Y>_si8~VD zC28}rn?|@Fp639uISU0q8PEcxXXP7#q^OnxeSj4}YJzGYH9-xKnqV&wI+}0*2<1^ z{ejem!9Z%ma3Hl|G%ysX1X5cj0;w&Hz;Iv&5N#=#fa8$AkORkf2nv7^Knsvw9Tx+m zfE$5$H6)Y*Cju*glYrGgJYy7UfHA)q*SOF{`0nh@(KR_%L0j0o=Krdh!kpA(!XpACnU^Vywz&$`8-~pf< zco>L(phzf#5ql7@0lWg(0vrr%1r7mT2~M>OesFX`;1BEp4h7P19R{S~Ivgk;i7^2T z00siXfg^x1z+hk^a3nAdI0|S2jt1rdLx2`wD9{QF1C|2E0C$eGV^F|R1Ho9}e&9G@ z9dJDG7?2+Dod!k%F94%}ZNLe@4&X#!H*gYAHVR_`=nsqmh5)Ak)xc>$BQOq_2~-1f z>~Lt{SPqN_76TK2TY!nc3LwnM!Y*JEa4%2?JP1q%)&o<3O+X{?955Al2{;4DfN4Ns zbgGaJQ~+lJgMqVv_6Rs`gF^|N4b%f~2W9{>f%AcLfd#-jfJHzPa3kVR1tOjNS z_W=I^JP2F?JO*41YylPlF9Ej!8Bij}aJvqN3@ZvPPd>D=gkbOh6+rrD;DUh)UVW~k4B!aheBdZx0WcJ}5f}q31L}Z#fXToEz!|{9z}0dL_ZB$lpVqzvlmQvg z2Y4Mg5GaJAAV39B0SpF?0!9FJKs|6ZFat=xFvitn8_*Zn0aO6Hfun%3FvJIj043OFVt@mIi9laq z8c+c=0Y?GzfI6TRXqRBkEQ4bpuo~zK+yfj1JOI=I8-S8<3@+e6;3c3hkdZ&|I{8PS zAY z0!IN&Kw1^23-0wCWfXECyBBD}21S3%!M6g7fu94n0AB@G0QUlS0UreJ1%3!T2>gVW z+j=-Y1~vg-0G2fqxMg91xP4&IJd5Q^X^0d52yArAzQ0;|ENlN`JZxCcCKJO_Xe081hF1|9~F zM&!By=?V?tp8>W29|E=lX`{LVJOu0nz6ivAV;89LdLVEDtC64&P%+NEqt$?ygAWE@ z3yc7M08|1G0`z>UC9fn~sRz-r*_z&+#8{|#^)fZ#lE zFEShmJPiILU<2?AU<>fyz*gXUz$?Jlft|pUz#iZQpnQC)upbxzd7dD@G`Iz_!)2~@D#8ZeK{Uj1AYaNlnqiw_Jc11R)CKJ z)`7Q>KPu!4JO(}!NXo}lLh$Q=_BsR@1jhvkb^+Uf&jLGuF9W-QbAYmlRN)PvKkyik zl!#1$;gC{K~8ayA=NLK+~4W5({(soEIGJ>}PgTZ4BvJ06IyaGWEkd%=IL>vrU z4*m{c4FX03i@_HHP2k4>w}4*)B!zMaumU`0E>|r5fV;qxQEe}99ybw0ndTIpZt-)P#~#IDZopRR{}eLSwK?T;(*=YHvvn* zM*?M$slr{rjo>4I{@_;vLxBIJrmBO-WMDJ|cLUWx2axnN10neBKqYt`FcW+kuodx? zz#Q;T0+$0f0E>Y(;1=KlAZgUYfEC~$1?~dQ2kr&hcf&!d_Hf`q2&#Z`WE2mq2fr2A z4gUaO6L>RFK*oW9bKtXqmw+`u2HXkk20jgxN2Lk}2oZh+Fc^Fe&>wsdFd_=`KNk+t zQ1w710+a*wz~_M(!1ciSz&*flL>vh$0KX7u0Y45{1b#ViBk(w|0@w(w0oDNz0PBJE z!1sZtfz80^Ak6Fc17@AZgY{pauL6U@-VZ;70JJz;HVRS~$ue*al2Q0wKU^@QZf zfX@dCh^GM@2EPTE1OISf1Nf!D4DeyV7VrhYZt!YgEBL2?oxuBmcUHq=0vvK&Z?6Id z0M`J+fnGo*@N1wESPjes?gQokUjr@&{tH+PoC(|#ePmLgWbUxt+onnicDGHFgxBJ< zxqI^@iQ~v0(US53zNrXBy?^DE-M&i6>cHvP9%1pJ%!;v66x@%@o_T2Oh~0aYl30YfX7V=^jqrE>y#)77n8=Ac?ZIAt{AAa`$Z`HDoaqbP z^tX(kn!yV=t1|7c;r?ELd(;2w4?8_?qTWJuF1VHHkkl2o+HlT_-9N@jM)}>h@|JAJ zO5^UQm6DM@j~DmF3iNqlol!Wp&fRc6_gVY-RNIWgE}PqDLe{3gmgMgxJ-fLt=Exb= zlD`K2dyhVE|EvGs6ML@Alk2Mw|DOX|pSYE)&&_}JF@aN4uj1Ves5@RF^!|OPg<075CHc#W)~s6r&6(VHt*~0x6bo2WiCgF4 z7ICiFw$8GCNs(;@_7d`4yW;LO>!D<&b8gi=>sG9V=8^%pItM0iA_gUQA zx~UjJ?{&M^EM2pvXvLCypy^OT)-^?*!1Fl2W@%y33ask6oTF^-SyhCck-`$!8+u`% zq&KexZiyX%R(fRf`vNVairUtq7+HO?-hxc$5~}@@r9}vl)XT42wW0`Hr;78-)~;A$ zUEvP0ic8Q!o)F78zjnz6i0rGNL{e#&Eh&Q5c_()lb0*F$cQeokDb!ud1n3jwTCsNR znzhifc-%GjEL(yGE#w?hwX9jQ8pxK@r6VP zFQ9!5`)0wBVabxk-n$!8C9>TOMtoX~68Y}x84}rqC-)eI{{i9NVb&38n&f*g{7&!4 zkFzAdOYCYH8HAuFfsCLuPzERyWCG=Y3P2W+6;ukU0POzTR_F2ji6Fc z1*jTS13Cbz2b~680(F9f0Z1DZ0*U~|fYbw4qvmj=figk!L3yC%pdyeJR0gU6?FXqr zb)aLQ)1X#R2dD?+?}LOvF(5T415^wmYb8D6kf8a;&!IQr{r~=-@RHppjgsM`=}lSh zU+^S!$5gbS5{0`x^`WsNN!^j{R%A*d>=bY+LPh}f`Ty5s_xx={cq799cSLE1#Ngb8 z%trxx|7sJa(4NwMr|s5ilU61bC+$qKA4qyRsVga7 zw^H|sPNEOfPtZ@%-=SZrFV$D-cj@2MU)B#Zj5p{Fw;NU()){sh_8WqeqmvEEo0GRC z|DHS~Wo*jql)F;CPZ7eQR7&vg=qYz8yOe(_{bDO(cg9x7?uxC6-4lCH+{U=3xF}Vu zYLRNG>QU7m)ibICs+U!V?W#BN%d=Ce7X0$8Rdrc)MfJU^6aV&Wk4mbRtB0rq)T7kl z>L_)LI!>LaPFAO>XRA$WvpP?`RBch;qqeF`)MaRg57nQjFRH&%|403U`nviLwNx`u z6+U$CXHEBpefXB*6h$cuBp|0iuSU9tznuUHP}UX5+)?5 z6Ot2_Cp?nyOu~x^A13r9)F%$rCTOQ?murt`f7O;Gl_fow^iooe?rmL@?mOKNx?KGU z{V6@u|D<1GxZ7^nYIxA_AH&*Y3<4z%dT7Ea%6)OK$9)#}Wn6n)XWXxGzsGs0qEs=e zIF&&)Lv@>KIhyVdm4Ni zJMk^?7vqPZxRD8y65O+8?yPXuXsCk^+;I zNyenxlIA6?O4^cie^N!#gGn_>PbSqSy_i&&^hVP0q{gH(NgpMBnsh1YO48M&pOSt{ z>PeF7eC;|vU7#*hH%=F=Q|dH2ooSk@_(h$T9jjeUd&!pRS*y zzf+&1FVL^huhy^AZ`5zqZ`V8Z59uG%+n>_!*B{issy~8WY0|%^|5*QT{U!ak`tS9f z`fmMAy}~fc5N()-8IW$6Ygl7gZ+O!1FT*Q_w+%lV{E`Ec$0Tc#Gm;l4-<7;Bd28~s z$)6_wm>hyxF*9Xh%94}~DJ3ZnrW{W>pYl@*9aHPj%l^tcl*^S*DqmB6sQkBG*`~az z929#;Y<6s6tSxqP?2gz+W1on9F19ZARP29ZABcM@?!~wxam{fb#9fa2Gj6ylR5e~T zRW(m##zeYHwO#d|>UUL;T7!8pUwugZy;`Q3q^4Z{Ph{L>YGz?9inp}}QI%RxHQc6zB<0&Yr3CCu@5M`%Q z8LNv;ja?MC5=HqV&QF!1%23^>s>WPCtNL6uO0C6YtW=-HAiStnYAl-jG%cF%z30w1!l}Lc?avgU1Z78IBpw7|t8K zk|!r?lfR`x6u?@ES>dG&QI1zmRw|WhWukJ4@&V7wo=CIh{*pS%p*a)=Z zBWS@RvBzQ?Vw+;WjrGGCnh}>7XNsF2mlKy4R}i;6?&Y|{arXMSV{r{}6V%V6pw+Jd=o||G$wwW_*o*Z+O>nUL$yKLQ0+GDcI^mV zq%Kcq!N9D?96ztStn=4v^_luS{S*2_`nUC;>D%<*>96a5*ZUd54KW6lA<3}7kZ-6m z?6n(yGK@%$OHN8oNnV}2J^A6}eaZhyK9c+$hS49%Ldxir@RXF4bt#Xfyp&Q;tx*gM z13;}jqWo0(gR)1tE_PFFIqG>KwleO)xF@j4PR2U1P_;&7Q;kzkz{)v8y;Ci!pHL6N zia1geiSc39DM&3Jjjw1nvi zs}fuZ^2A|@QHiq>_b0X|dTRrE3rTsKrVT9=^9*R9dnOLX7phUg3R zzvyL#V8aBIbCqGEVY}fn=J)vIJ;^yK52rkvLWUXIzP*(HtB3OoZ6b-|_(rs+sLwr@a#t~8pcSe_?;d=pP_bAK z>%qh!va*f)oY~`yxsvR1gQ0G)aT~wFVHFaIx0zL17o`0(;^;Er3Wo0GY zx&WVz?k4w?d(pk=K5;|dYR~s3yan&Gw+=QLiu@H>;&1Ui_~g9*hkp+u&ikkIGriYX znZO{{cJhGClem4!eq(+!FW26bk$`nqFe1 z(+nZooFh)$dFcM*PJ_^8_jRO4*PD;EWdX9fF)Si=WI6esgvnacNH&t6$d5BZtTd5~d99 zZl{L=XLn=f6ZHAF?^e)97ig8X09rBD#`Ym~OtB*Sk0mOI8w)IqW_p^R<$XMfI57aj zq=9y^b;9rj!D|1eQnj7NIqczK7_-Oi zhXH_Q>@4hA6eW>XBkE5z3Kbp!#WN~5boXFr-7h#AiGIZ*Jb_|WWFLz+pcQYB&63NA z+$m#npX`ubvIivZll^i~rsW7~dsL3gM{-im$Q%)U(ZJBNxv9?gHj?bhQ)};fWUV|VVTN%1$6h4H2BSldv#p*=_J^L HTadyRe|O0Q delta 35646 zcmeFaeOOf0`ZvC3n1K;TXVgJac~e12(NI7^KnDdx^JNsBkyO-FoJLa88O0I@8>Sey z6t%6aW2NEgSjWn9thDk4!hq7uI@Y11$EZBDY^bP=sL1_%?zIQRzUO(a=XYJd>-zok z8(sUe?t9(q{q0^adsDtoTVAWJ&QP^HoH^Z{x9imv`fn~Kb(s(P8b{_5;CNR)e+iil~8VgZTP^{ zX)5y9>EvodxhM*>C*JNW-|*E1fIB z%1gw<0=fRcDbif^kiO*xSP?Z3&2nV3dZ$X-r#Ajwvrg5wLYpPnm~DW7r?!{0RXf@} z288FdPR!MK8Z_QoXPCvt27w1g)n*M`rh98$euv-?@@;G~Ikb6B8@=t$O%B<{-a)*O zfxp!d0pm1h=-=!J$`ZV_hMea8f`x3(K^A)}cuWq1k6N>Z#SI~^ZhgM}8u3{dzc2Xg zUtQFSL4x48Ze!DVxZz?$;qoQ*XS;v-vNKjME{)aavyZxx;#y|4^ho;<9a^3pNmHvL#+r)>XT}3WI<{P z4pmQ!lv;yFxm}R5muRvCdt0+CTbYmOQqT?%+dw$3TUks1`vmHdA%6pNDhV zAJ84B!CrJ`6Whj?QAztmr4NfkL%!0(9kI`7p|XoNs0CfJ?~~o7pU4T3HS_)JrZJDs~|zhv0Uo zt?VVv)uYVsrM8j8$?ieI%El?~r@97-jz10(cT!`fLE<4A2Ttp4${4Yri(Lvf%kHAy zrOu1C_hKJGaC=UNBQ@UVks2#|3>;(|1JQ$fz_53AwKXgI3{DP}m5E%$L^Wh(MT&f$ z#mYYAR@Ad|CESpUd%&>RHE7yawhMN6MEN2*vBUe0bI^Qccyk}7_CZPi*wi!W)UrAI z6xdAcqWbY6#b{*%P>J1DLh z0Z!}@P;M?6&c_X7kBRJe9r@KI)zXa8^_x!vpq{$Vhj6Bn*oodnO|I4z>}iq<3+nT2 z_BM18a=WYqVWCp9vUfS9#{ghK(y2!pJ--FH-0P~cWAzrw(({nO#1(G8gaAB^zgU7g z*l&E8GNm`VrcFMYgEV7xW*=2V^rZL6+^>so(C47`%^S?Uim1{>=7^43g66|)O! zBr1hx1o>Ekmc&MNQ7`gA!`P^$bYXTBkg&of@Lx}=Bz%TDMtHw*<=XecPe2dE(BTTHp}73x%2Um*K4vtx|NJP+ zh|zDbAA}?r&URwxxf~`i?*Ynxd%fB@kd;ucs>Os5PZL57?-jcJR102NERHo9<~3Rt zS=kqAD)X)oTx&5(nrz_z^_QL@yXLjmt6U?|LUP;dgI!syKSH;#K^UqmY!h$TG#o^+ zz9tk6CT}Fe%8s>5pY8!RJ+G0NQK?eyav-xZr*QxSZ z3^BJ+N5t^FHo)u+%x6E6RwF}gf=a#y94K~d9W`#`8)N%*-nHDiH+I1{#_$S&A^Y9= z%!hP4gj|Sx4iRbvCgghpOAPpR#Bhy=#RO<9hq`?n4)};bVVq;vsmUTXM<|=36fqh_ zAcO2P?%1oV4os3|K)7mwbmxE_L02?c(l-N!sN2J(UZzn)-U}Cm9j7&@i+XWaEFng# zq_gbRaA}swZ2ZHDVUzTvY3bzZ;TZm7y`=z8of@s&r4?r%)#TcDp>51x#M;roQM3NE zn_S@#DJ6!5_5G?%mi?hsS!&B7_Sf&F{IFYww|&c-7oW<~5o{66_ruIW9MAwWd${y; zSf+Y^AL-v=sp_?Tq(K91e@xp$()NM5LE*?=bE#ViyI@Zi< zqKzFxzvq?3zLQ*ohPzc+f*iMpKX>zIHGl5n&r1HR;LmdY+{T}!{ORP+68)RkDf(TUtRB91w8o;)9D|tWA2jJYwGMT`d$-iI-H|2u`n1wBjL|dl3O!R==$Uy5&!Syn zx>W>yIyn{D%t3pBL)>|QyJ*+gv%tL%X$6RiIYP}fkYbLerUO`&qpQ&n-+QT3mK(KZ z@KpG>pB!sCS7r%~+BQ5X#f{o)u+cb)H3po?=Flu&S1UA@Ye1uk2WYWR^#Y`Ewzk7D zK(n~61xoYo0K?9p96mRAxO>}&N?ye|y8pNG`hT0%E68fz|Faw-mA*>KB&A#ZBUkbUgFK%+sI)*I9Li@wlbEXykjpa<7NG?>wQMGKMdTE6X160iPaIi=f_mFA z3W%DLRdnfisOjHt9KPea9RY3`A~uYvtLxBuYK<0l072}Ss~5`Q4`W4cj71Ks5NHiS z-o+f9r^8e>kc(~|B$W*vd?y^c+?0^(Hb!UifWvpJ(93RFz7hIf40>qO)c@tM%5I-? zbYhO)^NXo$K)^>;7Lu~z55kf>G*!JfLQ0F6rp}6#$|BN3_Dw@pmyeWAMP$q@8c9Q` zODC3Hv9gDthZfX3O!ium2!>OV>?^x6tn3mx+56PVhLv?DwTsJiK37XRuLDEX{b-;l zTq!#;Mhz&6oKNt2WL%afj>29>VZ;AM^j`!XZf6wuaJZpd#AdMrF`!x_(sK09LCk*( zI)VUEfm!0E=%~VewWub)_E_SgETP>T>vr8DosS8RR=96)?zGr)XBf-5;q!%2(%VtP z)NhTFSky%I^jIk-I>KES-yQPEQK;r7d0D+^HZH4o=*_iknN^jV*&h{C4v+HgfD~A?ZAfEU9 zDmw>zew7YI_xta8asM$d16ex~7$}7$6y+Hi$-)jpoQ;{rkSbV}W3=SUF1?LSNC4do zXKWxej)v^%h{l{wRHV!>&kABa>w|ou8m=HyHa3wGS?@5~<0;E84u^-xHCK3MbX^(V zdL#DBaZ-6qjB1;-KPIYIcTGr5F)@EkwZZE`oHRfWNmEkPVq?93MQjD0HJwme`yg>* zn=Rj=BB3WHLI2F5M4v{z^++^Y8Kq{~6~pe@JQjom){A9&aT!8OpwOtg@{sl*Rx?am z9zAeOF$yS9Rv*M7C{)jD2*b*@Lo+Mzm36k~Qhi_>=67jdbmV`pga6T<2C}PYp@DGc z#!A|lSog+MwBQ2XU~ekoMy4Lddy$^^qA?UN^?Og|t_>JTtYXS;v|*Pfsn);B=52Qk zO-tDWh7d9WBSu$5 zg(Xgw-X1oBN`pnkAnUv$(V4yNN>!Q|Lx}`3F^8IWtv}nexx=IbaHFl$VpcDDq6d~4mK8was zSoc}52z9(jIy!QALImb#IjkC^RbU9LF@aMPP7iXciNOP%&uDL&E@?*%8%fS`3V(8M z4z)k5F-J!pXGg|y$a zMpDOTj;9Fs)5AXmE)>{)dieFAC>{Ihk#upoZ&?e5Sc;}3{`LvFP)y+;_!gbruZJzD zF8zF2?7DaL;*6!9)jFLp4K89I67pZhmP6PscA$iZ-vd&zO^A54i z=hCB6Dh?oNJGL(^>4oMnMo!VdFQe6cfiHI{mL(Mxa97xNlCiLBNz$y*<9U$VM<*x5 zBAJ5gR;+)86ezV}dr-Wd4iy$aw-Iew4RxSxilS%cOvQ3aMvTl8g0L_Fvka8})q63vdg5XcGjG}Z_rYJ1 zmQ*um2zsS_ep&r8Iqo=;haq79fo@m0IW^=;hcCddq|w_ zmN?uk;p`*3jEWeKhI^314nZ`j*37jHZ04lwK}x;tTjTbdkcFgnCFwqwyVKdnS~aJ0 zzI@)(agR%t>*JD1wb*4aJX1@08P=d}T52n25u})Mo}L|ceK3x}bI zVmONmqMMb#S(N#1mOGX6D8t>ng`7n>>}IXztXF!nN;&ITPgXT&9q-9H$XT^LS;sl+ zw8C=pDzsnXyr!OF*Es8JPnJG}a(TWdD~7W!^kCIAgRmzPzdQLBE_JDgl)Z$rTHHN( zyEyMkPu3yMVm(>4oYmTsb&0duda~L$tD`4N&{6WQ^<){{oY&ct7sFWsnn`#16FE!M zlQo;ObUj%sI7{D?Rl-@uo~#PaqE<-3yQv4&goCp0CWr1QU*TdAJ$x>&i2+qe^9psi zumfG4fm4TXqFw=oA^lhvlLl&%=c4;K7gLZfJ4>2BKFUI?in4sZR1h_Xv1rV0H|sr4 zsMQ*b1_hoD*{PWUebsZ_wC$EIF%Q?vFCZ+=k&_RzLm0;kNGU!wK6xDSCAbDy+1)gH zVYb&f`Y~+~>~iu?`{3BURIu7k?pq)Yn-Erju<}_v0`ZJOtc|)Ia&3N=u&sHCXNutL z>)EbRA>R|_FpAXEpxbesJAaOIMu*NGpN+9?H|;`Zo?lCGhqE)7>m5;S*ktLU34^e+ z@|OvTgAubUJm0<#f>t&HY9aPOe96Bf1#J_?2E+AK;u>j0QmmU|{sfzNW?te@+U4Z8 zm2`KnMYz^77G;X!O`%BTux2EU)MuOn@pEoICt*fg2dcmqtgMWzwxo7=;Ug9M4FfN2 zG3hap$E9h@i?W2xkybW456i+G4U9@GJ%w|FaQ@-BF1z05#|hL9==?L2+>+Xn3f7x+ zg60Bf%pVi2T3SLt>YqG1>~^j(U@neT6jq~2iX}Iva3@L!^kPMCdc%L!&xMrWkSEB zWIr-Vib@&p)?tApI0xGaSqw@At;QM3TP(2(Sf&|M(`gmD${{@1d(^O~Wlgu2mYD_C z3(k$2*n=c+fCM%}z>~QReH(Jlp?0#dMr4u##@@a|P3a_VQth&O>0HW?QAip#oLL@% zvNGDYwz8Sr{wcP@tn3$b2P?}qONNPC7gKvH$F47?-TAbP2p zM8LK)$M`I*yFF!k!QkBsj+|0~c*PVbT^I*wC368solZHWe1p_7F$%igBa=)KaP)=9 zAKxtO%W39fiIaxYPLjQe^7w8onlT4S7Nc+grmwCkF)GtIAIWJMJlNOD(aOjb+S4& zSCUePA>db2Qz+op)bRK~z^N3lE0jHl4N*^w;CG-Hvk?vzj;MJGTJp-$NNHwTqS}%p z-J3QxWMLlG(bWs2m(wTutKO3%=`yB}NM1${uWewIXXM`q zix{6~+^sIkmKJ2js?FI_X=YY3MOB#{n#>c9-K%VMD%IxIL3k=1TkN)NT(^V6;U zCZZcq58lxlkBXrb7_&#K7fh8hvR|c?|CpU=I)<|2%9or%R%LmSos+1p{j;<=XG`P- zYF&PnA1Zg3P>m}!a>nma7>hksJ1!rYT+V_z!v>&{r527LkoOX|Ao zT6PXrPfK(`T}yC~=2fb%f))=;m-@}PH59`>mS?N&2eYMFGbThJ_v{cnbj7;hh5qXgW>3PX&^v1jM!l^37yy;wC1<&aGlwj%KdHLitVdkVT z>g_pKD95u=S$POhfZy#i=hDv7xtZez@%d&Xw&nCc=j!QhmJ{>Lh!3Pib7I_I|3j87 zEcX%(1GJ{PAB_cftKLWX)W)Q@VHqy_4eWJJn?V;P$unfF5$gwprAHffE%aoZsHK@R z|4j?hI4749Z;2Pa;SZ|I$!W&Uv9WBSL5$5>bbLYZO#a3;Jm&wKg885 ztV_4+L|d_Mpg7O&o2y9=o4pL{gns*Vg&0a^l(<6JE({93U|bMeo~~^zfMb|ASEsmV zm0(WrkCpD4cdL6xYdK0BEevDy+rAtOQ@X0EYRqc+R-gAg&2Bk*Yzi2~GLz3s8>!gD zYWAJD0-Mi!h}_$JPccr_@@F%Dp5@O2{P_xhHsQ&FX!|G{W4X_J5VYuZQxsI1CveOM zoyhE3Wns5|h%y$NJipKe*Du$dCh-H>5dA#5?(^Uv98*(+&~|OnxeeYO@Y_T9#;!pS zjTa>RI^WOBiY+&I7eZKklyc(z&`{yd1-Y|-QmxN>i4xT0t7-xIyvO}fIh)hMqM6qw=U@kS%o z-eRMV(;_cJcU^}@iOkaxVt8N+g29o}vDIeGn4T&sOBu!O?OBjYG4lcr6g(B})eLw= z)E*Y&%=NG!XPSrUoVVuXIU_+S={0yGA>=uuQ)=w0p%;#8J!dol@;5APJ!e$@wjF26 z(YF1}b4Km|qWss1xY7?e`Dx|)YeetU$=gPOvFn(53b|JCkH zRYEBLwb*GY|8Z~ojn-~caIJA;+x)3Ms{ z(0drH3>EV+E_gcf4G(>T#^BuMVOdTinv)eqmzQVohHFuSZ^bn7#t9#S(osZSlU1)? zqqLkczfK2Dfd*1_8a!$_6ToZaa&AN`T%{rC=XyH)HF%!}L#eMov#bI`adhc>I*5-_ z?Z1v9aMM<}T6|ZW)ZI#dt~XL>75N%WNbRm*F~x})sgai|rB!Ue^#nuGhwhn0X+~!V zYS#OX>&Gz-A9P&JfEN!#og7B0kl7Ls3o%rTLOhh~SaR*^3rZ}`M8nY;(90>ORbI-s zrHYRx7Unlo>C*kQ=teJ%gA})az|I++m0YmV%>{|8l-Sj`G2i#-ZSa{SmT0hpn_xJF zVxV^HG(9oqts7ZEl6S&W(mTE?J`j{q2q`7Vu9ba@+AX-c4jfNMiQ%Cy5RswceLOuK zYYe*zf~fy@tTjA%8@2zAJDsaN9qXNOo{kL$Zzeo7^3)+pq2l7!B`AF4P^lIFobEyp z-JR?#785jztI;Mz-aOmuW1QL|Ux;7r3%QZ?tM^dxoiQtcAb2;*1S2rztQ<3<9*B-< zsCW=*6b)FRDnkLzhTNT3UjozBul(1wF00adKnwm^>2;V3G00GJ$gBZt`=qL4%iv~X zM?aJ0oqYWEc@M*x`cEiktP|7{{h^IsH+dpI%5Y32uk(2;!Bip^XLS0!yFdoIqWmfi z#TeM+SIH+jA%#@MeOR#zcnHO=?0L%P#ouuJu;VM_OK=YJoFI9ui~|8#p|wHQ-6dR5 zP=12unYAvu*U&@il^!8NXv$cFHy*Wx%0Lct1ASy5I7*RFWjR9p5gxY5Q1K}po#q)T z9;51IK?d(S_;HLc;&Uw4OZ)1;r<)c@yC z23-I7Qzi9CJk>wyyc!j&7OyK^+WX;FZPJI+{3g#AKOei%p{-w_tK}X5w%hZci+**ygj{Sc`h<5`9lqfaUX2U5USXeo5ON98`6P z2sig!*>|qU2Pgkwks0|#9^=>3?V)~3 zHDGY1d_o-UljhJdCn#?s=Z@)Uuh+YxZW`5XxHzLmY845LJo2jt;h~BvHS?7j1A`M) zv4v?N=*G>P_IjN&vb|nIt**z+Vsj+2qlg-zcuvsBf>0@TXPLKl`&RK>o>HEMqbl5Q zu{eUOa<2KRsGJeOJ|4l(IHKUApKEFwXE`SY($gIe)jvGSuPQ#Ah)?9zgmj5KG-$<- z`QttBU^1h``A7V>ELquPo>KTBA@4h-Bak8I|16xZP?SiLA|`qdQ~apdFbfO&H|e$o z$~e*GP7~@*;~z9YZ#XV}iFM^C_QF-bbtAO-sy(oKR+juO&go2gk1hBJ64=>hGqI}? zI466FF84Ia{>H0IajWNc-0E3k7Tl$HG{F1=CK3+ImzimQUtFYbpQcCm^5ANq^HzD5 zrnIl9-Z@8Csgu=)*XsNRDC!FgCu=QiKdKRDp&i)A5p#?l9UVXC7-eN`NJ|-95stD! ze?>}kHCt~Rn{k#;6Rr>(^iGg)N~X@dES;J)X7Eib z2~CU>3$=W_ZSz2^6m;7N^@V>+@wbhT!sZUv|C7$31{V4fS?1T$<5r6=Z%avwqyL*1jxge0|JEl2)w69$S-2%3}kLln%R zue(dSA6A|xQ88}+5)SDNoBOj}H{8Ex=xk=O>>6(Z{ZXNo1@qa5II5=p)8>zpw`eR2 zEc5LuOeFGA>=FsmREt(UI77;{jGWL!>s(K3L_SVGdqtLGfW!^G{09{^VK!<5`bs1T zCDj_9#pzM`BI#+%ST*21%c`+w;ox~+<;x_CKUn1GDZ3W3EyWR%^iGxQ%3{N_Slu>o zkIUvqF5!YuoPVyPcdDFoJm)lxS_&WO!YwRH067Ud=LC*M=V;G4ogxBFCm?b##yP-q zE=FNPm*H&bqxs|1XV*&F1tX0Vj>>S~zo5n#-iSN9_DK4I7gUQ%H<$&v<>y8U$Q4$1 zRqgpa$n%SCH!Un)nn1wL2VX|Q|V3J`HHc0O-%rlXsDD#kE+Y57e zgEVr{>I~D}53MU@zbGjiLn#Y~6C_BuIv)1fFwPRGVNtZ&bhq@?qIiOS z*2FlHK#H2+ejcV7rUiz%WL3G8KsOy*=V+ozBjoXlVkDYyeE|3by!tyiHsN196Q_dg=jBuDPe7VK6slA`d z1$KFJF`GWJM`_T79Cj~)#XD>>lyY!T@!}#5Tgff#Yg7S?fSm$jtKcE2w%%T`5e@8~ z2I%dSGrocOg;mM>austzJdpXZU73FY!aVasDf2%vUTdXTcw|teV|@2PHHNgJGv|27Ob5xc+w>W%q(aFgJ`mQ3>nGDbgE`p zS(#*BZgPJ`ZKT7ON%s{{4zlxI#ZP`Yj{TX*=z9N3*kj( zw&q)y3NtjOc2q+i76Cy&!k?>23B$_fL)a5XX`o}pB-}jRg?v*NDZmV0FQ-hUc-a^( zMpn8@<;QI}3;kH+C$fCj5yWChkHMuAXBdb9L?F6oPiBi<>c3)CoDp|goS|k<$Dobh z(`k~ZdD{dQS6p_qQjer<^1>CF?iLg)4v5;3fF0L6@ibIq!P$Oz0FG`n#3D%4Y zZpaf}p{g}_$CH4D9z*WL8EH|?@O4x-#i*N;zacG1%24|i1YqR?>`#hk@=Eb2%+J9z z7q~qg8JklS&IjN)g6t*}?(XVy4j@{wZY;&{LC2Uj>wNYu4+dMB2Jc}CCIW&yi6<$E zc$aSsPb0Zwi6q##o0a{&i|s128)H<0Js$p`1CJ%?P`%&gxF&~nVz0brWrq9Tn9~cO zlk3pzEmk=UCo#ejsHw}7-YaAepFqoiqMA=X76f&Ijvb)Z)lez&!Uf^2Egk0RP;c+! z=?HQS68jiYzy96|)(|1qLD$8pS(mQ+!pCS5bP;lqXlV7cnmlW+;TBm3ucEu|7?QLA z{)?dZV+Vc(HUFHBB&;5CaD+)C(s;70RxDLHtq`&!FK^s2b_x9b{DF^OPhMWATpc-C zJq<_7^gxP&q06gr(WF6>{`1D~(fDxmy@%ZC@!#C3qhh#QitwkcnlJ-#A{7W^l7$69 zspMz9&e7CVp>?4P1G&P6_RtG2$<@;sa1jA4rd-tfdns1w%~eBgJBBg{sQ!^y4)kvH z=itVm$C+kjS6;wbC&uo?aWo;EdXZLRFY~4V-EFJZ^SqFTio8~ zk?MfHuk&1Q*|H(uwqF^&T#;-%cIR=V{{TR_rSvv3$(=DAv^zE8Ie$>nJ6ZD`bp2r= zWt-kx8tKq4Nz*PyQ^0K>_9BK->b=kVLs%K|?h9v|Ip8FFiQaFrvRx#>?)XR=yJoEW z`8qz7`sd{P6ETLVa;;dU+&J;KP$bPbb1w|UV74;ahNI1#NTh%B8RaFe0`@hs-YDqN zQ}Ch-)->!BDvP$RD*~56;fjF&b5_@rAH*6iNSD^cMpgCj?$0p1>@s4lqr<5&syZV< ziYm%ekGde)i-wt$s|Y;zO<3)Z_GB*JAU##IGaQv_hOB_D%* zHN4uC18X|ChX1GR!_`mRBGuVPxiilFBea~e z_VXSnjY`f;$QdOV7c5~@_P9`628!-H)ti>z9HVhOFx-$_Hxbd3h~Y%nWZK{HJDYhs;N*ZPJgvs6Ic*MHK1UsU;xgbBqYkdmUw8Fy z)DlS{$zf&`g+Ia5@%zo}Y+{FbIy$ktMW2jFSc3a%^Eo@1LMrRb$6*h86%xs7p=Z$wDjq^k?IAbrI6wm+?W2YjK#Q! zyoUfjgmex;L-H8IiW7*f~htV&~dn46Az+wJtWW>+n$zWz2Vs z8anPAY_Y?8dI~@POGfVv$DrJ1s0(%(c3fBVTzqB#Tj&M*TMKYD<(pv_AuOfc6=Qsq z*mRBd7^NkrNxJi{32OGb^weFm7jv(n^I3nA5p!C6i|wdS1RMmS-CUwJc)vq&wreTD zDuefP5J=YQqk&{i*VM$K$i?Zpns`DFtsZMqH%M9Q!&WAMljUdPIp3TsJAP52UdsCH z%pM$GxuX_s5H85lj_XukWyYNqQG;QryuZnsCFJ`5gKVIgzC(G`xdw15Q^}`=E#id| ziR>L+ADJSsvL&9^Sq89-cY5^*dWD};H2YrX<BL5ybBaHEzKpK>GB_xiA6_P1Oe@s6#$)xo<`rq!-2>Gnho!W; zho{hXgr`;?)QDlY0;xa+u=@}UZnf(m?0l8-r*tl>4HNi^bS;j{tM4|2kB;CTJ121+>-D>bxe<(r!)OXwAB^2FT>RaKCZ%kpu$8cSVn}%l>=$8k0mrkhFg8PR zVVk;z{nM}qH!{5s9m8*m`r}1zieHELwW3CcQCb)9-Y2=+KYOAFgUvT1l9W4AQ>ph4QX>DG*Wv_+E@ndwk z2*gaqJRetJT{`SVML^BM6pah;u72#v2I;3w(R8I4L$aZ39-4`83jF^N8>pgjz5UC; z_4dimS!(uc-SN2MOb%5%_GNdyEe&^N_A{b8(U29&Jj0>y8VjWo7u{r%s$Glv z)>e1lVWBqqqieR|b4a~T0~>l8yEa^!yLp_t-}BP;&8vq`g;P>((#52Al0Hn5CA{BPKq4GEtb_z8GgXggHed>TYRIRuqrQBue!zNPo#Ryk-K@c5KcBkhU zht`_WvZ#3B!t!{i1L5v>S=paDP=GgGcv>#R1|Y zAs#{Fxg)5DhvkmY0*F`64j)O|yd}@j!dc9@R^Ysw-<+auH&|2dTve5W*AbEjDNXtkUFQ+YOtA6`qoe_eKvS_o_Lq4q-lYvnyOO9$s_qjirpNyLb03 z-64Qatvyr;0k&$DW;vlxs}<2~Z zN`7{DB1&Fd#?o;aGsMD1J}-S*R!YGXY=4<&sVgHCO<$g1Dat*VB+}d?V|YY49ga{$ zr4{u^J0i~cg-6VD;&!hl+5fmlha=MtZDD!?I>M$mx?5cG8`7xqs3a3OXlYqD9G*in z=L6{yTE(FADK~|zC+Yap%KH38DlMNV{mrvLePxNHtyri|EtHm2M4Na08O`yv3iJc! zqZjfD#N2IArv{~kW3Qd9zu~%eFuBT`OIg7U=G;F^Z&XCv#)2c>zZ-#^D#v3?qlFFO ztUUor&%IQFVk%f^!}or=Q<=$@K*1lHwuct06yaRNBELpXtoeYH=p8uk3Q0tYAxMJT2IEQ<-7Yoh^_5;=#Vo7m8F-k}3NiiygH`-SU zdNwd{$SJdzNe|yYQa!mwdj0-XH{Z0wmVYjeaSFu7Lb`*o9GeXM)mU7`c}JDj$4mp* z?pj3;prwJH4ok2u>5mVN48mZAdDGoR>168;cnyZv<(1IOu!whl(#X|Z{|8lb^mub0M7Mp8o99`S&ZGnO@+i=$W2gf%M#gL^y`ikw?=JTz}bs9HULs z4Qx~QyCbZDX2#Q|WnFK6S?OyOy=z_Z;%w>S{)gOp+95!k&{i<=dr?M#<@486>DV%I z=8NH0M8DLLna>8I>CyW@*Z8t@X8L7kj>tE-l4?_PRj4N{5>K(4ccV z3zS_jELqp5mFb-$(=z!hb5ZQUP$(ZLqq$7~ij=k^a>5t;u*1lA%)tFO>ea(V1((U8 zVGZO+K4~#i3rC7us@ySLZP+Ir+A(1u-}3qjQlyR0&Y80Sfl1eP+#152p4}&nzHju% zsJE#>)~YQ`dWIS_&x{3IG1@K%E4$Dj-E-fFd}UZQc;`9b}QvbMu4vz&MT7`t> zv!9Ysc2urzM0w-;I^ZA;1$=9cALDmzynS?7YP&Cf_$MULA%2ReF>5$_u{5N* zfN!OQjrrNaiU&%QJyHB!C#(3qjXNab)k!RAFv(nMknZ*j8%KE>^L^cQ_0N}S+jv?1 z82)Y|82<0j5|rf^6bv*7w)$0R$OF-1SO2ZMg5P<$>nzHCk~#}Ni^{&?{`|{Q(F4=e zKOL4{cwh`J;(q+V^EA-!s4OM;t@1YY`cI@hU&2scMuv)4&@m{Ni0+c37na*sAoh^& zHub-nrAxkXLtXrdf0aHFZ&Cm0kfhnQOrO!sfA$6Gu3g3M(|@H7;=iAl zMeI%2E%7B4T7X+^xSEQ4E;)LuFQ-NR2fcd8*o8+(!DvlO$)>?a*(9VpKvsK6I4!Ja zQ;+2vFkL;=X7D=D*sV87xFLeeP~h7u;Sal1=L1DG6+Dal5BqLn*HA2q8}SZsUfxZ- zW1Kg;C$DB9C^T@B{lbl~;lIWLzF3Bj32s}&V{;A_bMQ(wreZmaZr-Q4TJae?&0?;V z6JeBjK9&6fM-bL?Jcvlz@J0sZw^G$YbqJwQc& z-E^;bx$ZZuc-`|=blq1_+i~B%hb9}!ro%Tz1OM$-_THz|F9WyoRYlU&hr)Wz>#|vuP_GpUeosCo}N2Db9e**zNxq`NSXz+hYiWcAzm-B*|}nfivZw zs*P%6j1=QcQr~KD z1Mfo6I`WyvHpdYQJ74ql;sSlze4R_nKkikZKmW}b1nTe2Ez;!2nH2j(KX*2Gq;5Cw zqWoYRQkxgxG$a+R^}LqQc2e*KP}NViitay0$#P>925Rr)w($9Dz99 zS7z{5yc5%9x;9mDzKwk*@{DWJwHW~)?<*W#y4D=voKQH4=~{b$^H+tFoUSbnaGnsQ z?N1JNZ-;}tS;sbW)U)**jjV{Hi4}4TXI8?AY#t|L*bI)bY%0fiHi=^byOm=i8^tl1 zMRSZ`gE*!#1IG*&0>oGQpt_n_=T1sOHoL|#kF|1~&8~2?uuB{lvI`s+v$GtRveO(_ zu;Uz8vsXCU*&&X_>;T6SwwI%m?dDj@c5&RsDu8ZE#B1ef&TKQWmDSHWZskjq72HaD z2W%0yR+DuWx6&eqP32Zv+^}SBETSrt;gJC{~di@evLLV z*bm%VOV+Qr^)y*8acdJk z6lJQ|AnPaG8bj7|+!{;PdTyn+PT4VT zO(5%w+?q(%XSp?*tdDbRDp_}NYlaHt&vtOTnb@1THJhyKVC9LMn zI)hsmk~M={7n5~7w=N~?NN!z0)}gTC%C6G0=~W>5w8pYne20)m$)nH#t4eW2>oKV2 zI2goRpw2Kj;0v*vUzX0MWFbtleNy15};T$2-QK1X7?%kXg-Bb)G)6tn+URjg#$pQ&#BNqT61ie!GKBrXCs z6LI2pidtv-r<+!YbC_qVQ?=bhTkCW$;V70g(nrs%QNQ}Wl(8>D^|(~9Z@g-(BaS{p`>p%@wz#Xq5I?~ zxZlIDjprhCBm4=3(x{~yvJmg=|U;?#p=Gtz&7k6omcDwmgV5CxU*m-T?|Sgr|DN8C8reP?O20r zt+G4ldoHPZekX+?zZ9l!DwGDkJhI;=XO9A<6iFAKcd45L@n1j)6hCMl|0N~<^I&(y z4;ICL1uTl6oVwyCUXS=8N$~?H{uUm;NrerFfZBxj+mLKZg5~ARK8G=|1^Q7~rS#;> z8S3H>k2Jqr7=&3ATkBu1ppU8a!SUkO&^Pi{9GP{*5j4@aRtaq98MAN+X5v}1uok8X z=C=2sE5S6vJP*_BoLRUI{KtFJ*RQ=h*^VBAi?{f|rCR)r-^9g9;T$7QjC--WurK5o z=r>l)=v^6=-n7NUmJnz7a%>dVxsQB%)Sy;>`sNY&^+=UTxDVm*ljvZ2!FfwBX4ozz zz8RtazO2iOZJV_C%}u@Z)39la&r&`tU3hb@x@3bCdpxD@YP4@s{5-9^bF4i+e(;~S zVa<`q`clhp@H<5pJ{FH-g$K7ue>=WOJ$R)w@A6uHMs$^X^Apxy#O3}6Ekr){ND(y6C3cNJn7I8{4T`tFoY z9akp(a_Z?JcVhIy%eL6~@TsuR>@7dJm%s7Ns?HZED3ijy(BZl1g9V=nCUwyY$Jqaqy*k|M(&k`iFl;k*BO&aQ4T`AwsRI zH@ah@J%Swiq`&2g13And3$kju#xc;s=An=A9Xx~ggia6|rUz;L(e{KJ0^_8?=M&Vd zP?~Xmi5jEEf%BI`)NkfU70ol$KNKE$ueqO^K5W(UuZijinv18|5FkEzg`@FpOR(R0 z(CnNAdZjes--+X!R%YQ6*Bad^!%K^Ffoa$u>S;NJEpcM8DEO|I|TxdX-u zlL0dvMhEl59F@=v^A^k@m?vQ>V7{IO747;gl`!Nsl`sKj7R>E14w!pj9)URkQwwt$ z=3AJ7NN^O)1ejcy1u!dMN?~@wJPmUgrU~W(%;zv2FntkWEKDj)Hq1hpqB(Aruo)Km zH6bC#V4j0{45k9c2~z~K5GEUDB1}9?1WbPz4NS*OmCy=v8Ri_!ahO9edtr9MY=&74 zvjD~nGXW+R#ss4&z@r07D1-SI%vqS@FfYOEgV_!9$KSS5m^K_{;qLp)!W|W6VfYqv zw@BLG&4Tt#v+&(0>ElnwtK&8u(Y3UwaEVli+cY_b#NswdUw)PzlsGO)8vS|35&P$* zs$lx^r}>T}Uw#o9j+i0apW~i4TkcmKd{yVb}l`nqe6ZMpOSRp%j>i`Kph;5yFku;7h2Zk?`^$Hfqws?6FTel3 za+6kz((`(~$aG?2xuv`k*^M8SYO$50Y*2s}OC`L;#Ftl=!}wA<}ET}Ww3$(E9m z8)bK7{10CQxf4ezFDs-1p@9fypaz%+L=3`WAgWJT0Yt?Jb|4jR36P4n6iCHe4n!3Q zl|U$_LN$<@&K_W2;69)Mco0a{a2SYca0|y^p?atVQav;QO~CU&Y}5(OKsteM0aE=i zAk|MBkm{!cNcAJcEA^uTMuIc~sh+}tR8KL$7+^dQ^&}($htr3{Q(+kah8Y+O%mc;& zEx?h$#lTU(6+mjvb|9UBl>o;8OMwZ%av-k43YEZHfz`l?z&${G5l7euOa&eUrU4HF zryzde7%WqPwLmkl377>u51bBc24(|WfVn^hoB?bD&IEP^*bnUu+y`0@JOu0mJO=CwJbg=+TQI-b%g;y z20nc-{~8e6ih?j2Z33tVh6BTagMqQYA;3i7P+$fy0+E{?& zO2HTgtN;!NRs%->_X6qC=Rsf`@D<=lU@dSI@GS5aU^8$u@CtAYunm|1>;#Sln#Q0_ z0Aqj?fC<24V5%FI6j-u>6M+`sB;ZnDD$owZ7P;UAP6n0((}BByQ-FJbQ-KG7X5e99 z7VtQ5I7hus~M4_RN2J{xty@0L2 zP+$j857dlB8vz=D1Aq}g6EGe)5SR=c0yG07fs29k6^7Nobl^51eY2qwI32hfxK4-W zeh3!&vtGx6w5DzXh5#=BdjVU3p}*3bX_DKqqjB8cCdR>RT@SON?MZUYVhRsz$3`+%w#G%jE- z;BjCmu!-D(7sx#p2_bi28@U5J$sMRmgnK*^1ndQj1%?6>6Vd-w2}lt+0Q1NJxDcpH zL_Z}yu$cJ3QsO70n-U*bO?=>9;-{j-hz7nwbOuU{Xy93*%_uRVfmaB#kQ{|2-J z_W_;2hk)h4_kp{BAJK5T2bK?k2Y}B54+CEZ9tWNVHUTdIF92yiXaSxDwgOK9JAh3< znt*76(oDz_{sfEwt^=CErx`C9^eSK~609OVXg5khm<>xAa53;GIY2-SECHQEe9#); zHqbQjR01CWt^i*P+zlFq$aMqK750IC7I+BwFz^_VCaTlGBf#^(zXCDe(B)5z`(TK` z5(F3mYz0j-S}AB9umf}rP?MA;yazM_4*?^9?*QY0j{uW_Zvf4}w}G>PuK*VVKL)M_ zo(GlyZv$>iLjBjmQVGUCfaQp=7jQS|4}klC{{|ic{u6i%_%84?@KxY>U>)!h@B)wl z4*;(LUjz!tS;D6PJx~IM16zQxz&C-3ZdlI2k^%e-ma7?s|RfYP0Gk&xRX{C1KJ7f zfIG$@w~zqF%V4AeNg3G(hd#h;(DQ($@E8xYfOY^AK}Q3Zf?f$Eg|aWu4jMg|E0zYJ z6ZE6Na^QU6F~}K#yFf1h?n5|ZN!{54#zrt|!59xb0J;>YLk=ec4}-ps+z~)OAgN7L zfycr30nY;Sflcr~0oV+BD{uwqIN%k~Yk`YF#{%0x7Xdqg4QNLEC`GfqQ^Wz+J#*;4?r5JV*%n zfxr&Xi-B#R2LUyc(EkfyAq_PHXq<$*1HcI2Ux4wz&A?>fUZ8-44F;G&F9GI(9uAxh zdNpt{@FdUq+kmN{V}ScW-vNvV9R)lDdIhipE^GmcVww_J zi3QyZu~h&4;b8+GuZ>oPtJ)s_Bw7_c<{zWY@S^;lf*mI^GEq$d?4k!Gm>+*LS`|5B z=2$bA?s7Q)2f_StieS*fTNR7?_Qc2k6|IVzb~x>3pU3~;Gjh_+?tct3% z&2}TwzWX=bD9jf(J^t-5)eyr)=MCQ1PV?iZqE&-Ke%;>fD=ehfeP$uzKBeG7E`q?1 zG7%Qi<}nM`Jc`SxBM)$w?i~FwrQ>|vJ_k>~Al@we$Epo^@MiZv1{N#@V(t6%|5@<# zUvI=3GWX4HB5cg}9cH1=FJ_@*hDzxAwaiipI+aRj%e}#SdY@#9s4|NkA(|8I9d z-8291c0k7p#jcghR~2vAvrzqO>cNSyHCRw7oq!)K{y5d@(aNH0o3h?H43$3Dzx;7#i zmTq2GLZ)&K<$mQI#gLfPMHk(mm@zqLL&=);#dqGZNl+0zYv#h`o7ZgIbmxZk z%O@;PT#or2+?4U-Ru>=rc9bey+n=duPJ>!f(uGI+k5d(Ddv)l*=mqomiA2?)$IFvc zno-{zG7J9~1_vxNj{cCO`Z@^jcOJbwN%gDBZTerOoqbqUMIOiRO;T4)Sp^}(LPcX+ zbLY&NnRDhH^Cc`LBvVsMDoxTk*}DT=1ZB9Qfiu-(c?>+ zD5kZmN$&n`wfpqXKKsX>=lO8X5~u=dfK5R7{O!@;)#~Bk0MGz50zU$Q z&S3O`NFWM`2M7@ST|krII2lLVXE}N1z#qh=J<^Q8AOC z=5UYz^aco^fd0T>U>GnC$OiI&D4-B11C{|bKpk)xI0r<;hNnf~JRlKB1;R6y;q@v( zX#O5U!rv(l;Tz9@U;oGn{{qPG+oPp{z$3u#+uB7cnARdZJ9Pm5 z;~|4;P%YYowxaE*4%MT*=m0v5COJPl5x70>iJ!tR<0gCwk90HOM>txN>qs)0NJ3;k z`IZQpLYLC_=`nha#xcYS*+N#y*0X?jiN&bXzol2{J^FzD zMfWfxOon;N6qz;CtPSkh{w5OuCUFB#q1=1>{9iN?s$C{Xdk(?(N z$rTbo+t5hbna0uXG?Dh9gbJEO2hzbbjgF-E(s6V$&7yPZM!Jpeq@UCM^lNCF)AT&O zL<6i9YtK5f>sc>`SxB-ZHjt&VQEVcc!JcC;v5#3D`+^-{N7ylTnw@8tpcz|v?Y(HP ztJl-J+4DW^_49^!BfN>;RBx77;#GPpy$#-O?}&HY`@0w6ckpBU1iz0z%%APQ=)dZ3 z^c($UJSc7ySPT&3SXlOt4dJ zt}U{sZ1^#>8k%!Dx*5MtR+F#DH{>)qM}8tdlNPiW?M*S&v>zP=bzep=LoF@q&xWux zHkzfg$!rJP%bK7n8D6<}z2D2%{w@AYe}x~a^*8%<{vp3TkK#S~O&oKd58^3&I3L3& z^XYsB&*eq@6@G!Y5OGk0n}rpFM4DJA7KyjSQE^fbG>xFu;UaG6~ zYW)GU<#zoUbkjq+L7&iP^#y%N2Te=U&P17O%?;*8)7xMpOvsu6W{62MBTc#)Zzh>X zOtyK_%rVcKBD27}W-3jUdEcxx8_ia;!+c@(o5SX~`QDr}7tIyZ&UUeh_HS0%0X7AK z^_VTUZ`=3m27BIyA4}^XwL73_bOWL&8QqH}phwV?=neEGI*a0*ZqC4vGupY&dEA-h z%y&L?_Bc&WB)$WW!{vAd-i`O;27C&)b?HTy9okMrfpJ@!E>^3%xtz_S`2=69ux!28q-T%fv z>9^#eY(79_iCJQgI4ssdc}j9lsVb?+e$LP0K*4%E_QI+GUCSLiN!kal65O<~WnUC;#&G2~@zvKsaXCBY*=huiRAw*yCzW7+25z-{u@Pl=Dx}yv&236dJ&Y%lu9O}r<$8HgHpxq}ql#01QLcJGJ+Bt1 z0p#5;3wE0?$ryIJl&_(FCBxq*139|+y! zWF2WkqbQ?8Lv$iERSyq)+#BrO=S}jad5?preCwU?9^vTO+=jug}9hY?I8WU@ZO^juBh#h11*stty8=g1`4@z-}pi`&`T}E@9=bdtAy|dfd z=RA$)f_5*#jran-j3>F7?i228=$LEVT6eR%$Gw`gC6S~Hi6^&^JIEL^jyy^hkvGY5 zvI+urh#UtIZzk>NSXxA@LNv~Eq1L(HJP^{&-XMRvU*H$}i~Kcyy?@%j;0Jk29?kpl zDf|t7h@a(8iWM+eCCIzvG>Gpf@~n(dF^Yr06sQVNk29*To&{R4PCsI1L2&!p$L&VD z%bp2`un^{VU^f5_MPr;w=MyK?1CPR4cq4uc5^D^Z1_`x_>>x*>A72lWdKU~P8FW5f zOh2V#Sq7WV=CGxZM7Mk6y+^$=Zyl(9TR+iX>u2z3d?qj98~JYjHSZ^;h#ewbu92Cb zawBxPUa1>(ikV=hn>0Jc1}b2#4+>HqLhqu@=yPP*5w<`3V`jfs(KdGPBMIe|LKqOn4erAK| zZWr6|%w8^(vIwEg;3Dg1kp0jQG#OXxANd?F)Y#&*WEl zOVLqu6U)U`aYf9LCqSsfA4wp%&ciqpg8fGe5-P;SxD?OyzVM>`-Mmng+9md=4K%>S zAiSY1x)yD7jylaw3)~h*;wT)8`{D_BHe|qW?<~U=xDqeJ=kZ0{j00}OuR>kumbhhZ zgEASz{YgZxRRsld7LvsNH5 zk8Oh-Xz)97!IQ#MnBe#a!{2IW6|_UGv&pG*>YcsLN!mzD%5Dqx2~R;s!n!K(30WkY z64JF$oNK? nB-7s{o53d43status | str CARG3, SAVE_ERRF - | str CARG2, L->cframe + | str L, SAVE_PC // Any value outside of bytecode is ok. | str CARG3, SAVE_CFRAME | cmp CARG1, #0 - | str L, SAVE_PC // Any value outside of bytecode is ok. + | str CARG2, L->cframe | beq >3 | | // Resume after yield (like a return). + | str L, [DISPATCH, #DISPATCH_GL(cur_L)] | mov RA, BASE | ldr BASE, L->base | ldr CARG1, L->top @@ -458,14 +460,15 @@ static void build_subroutines(BuildCtx *ctx) | str CARG3, SAVE_NRES | mov L, CARG1 | str CARG1, SAVE_L - | mov BASE, CARG2 - | str sp, L->cframe // Add our C frame to cframe chain. | ldr DISPATCH, L->glref // Setup pointer to dispatch table. + | mov BASE, CARG2 | str CARG1, SAVE_PC // Any value outside of bytecode is ok. | str RC, SAVE_CFRAME | add DISPATCH, DISPATCH, #GG_G2DISP + | str sp, L->cframe // Add our C frame to cframe chain. | |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | str L, [DISPATCH, #DISPATCH_GL(cur_L)] | ldr RB, L->base // RB = old base (for vmeta_call). | ldr CARG1, L->top | mov MASKR8, #255 @@ -491,20 +494,21 @@ static void build_subroutines(BuildCtx *ctx) | mov L, CARG1 | ldr RA, L:CARG1->stack | str CARG1, SAVE_L + | ldr DISPATCH, L->glref // Setup pointer to dispatch table. | ldr RB, L->top | str CARG1, SAVE_PC // Any value outside of bytecode is ok. | ldr RC, L->cframe + | add DISPATCH, DISPATCH, #GG_G2DISP | sub RA, RA, RB // Compute -savestack(L, L->top). - | str sp, L->cframe // Add our C frame to cframe chain. | mov RB, #0 | str RA, SAVE_NRES // Neg. delta means cframe w/o frame. | str RB, SAVE_ERRF // No error function. | str RC, SAVE_CFRAME + | str sp, L->cframe // Add our C frame to cframe chain. + | str L, [DISPATCH, #DISPATCH_GL(cur_L)] | blx CARG4 // (lua_State *L, lua_CFunction func, void *ud) - | ldr DISPATCH, L->glref // Setup pointer to dispatch table. | movs BASE, CRET1 - | mov PC, #FRAME_CP - | add DISPATCH, DISPATCH, #GG_G2DISP + | mov PC, #FRAME_CP | bne <3 // Else continue with the call. | b ->vm_leave_cp // No base? Just remove C frame. | @@ -614,6 +618,16 @@ static void build_subroutines(BuildCtx *ctx) | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. | b ->vm_call_dispatch_f | + |->vmeta_tgetr: + | .IOS mov RC, BASE + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | .IOS mov BASE, RC + | cmp CRET1, #0 + | ldrdne CARG12, [CRET1] + | mvneq CARG2, #~LJ_TNIL + | b ->BC_TGETR_Z + | |//----------------------------------------------------------------------- | |->vmeta_tsets1: @@ -671,6 +685,15 @@ static void build_subroutines(BuildCtx *ctx) | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. | b ->vm_call_dispatch_f | + |->vmeta_tsetr: + | str BASE, L->base + | .IOS mov RC, BASE + | str PC, SAVE_PC + | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) + | // Returns TValue *. + | .IOS mov BASE, RC + | b ->BC_TSETR_Z + | |//-- Comparison metamethods --------------------------------------------- | |->vmeta_comp: @@ -735,6 +758,17 @@ static void build_subroutines(BuildCtx *ctx) | b <3 |.endif | + |->vmeta_istype: + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | lsr CARG2, RA, #3 + | mov CARG3, RC + | str PC, SAVE_PC + | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) + | .IOS ldr BASE, L->base + | b ->cont_nop + | |//-- Arithmetic metamethods --------------------------------------------- | |->vmeta_arith_vn: @@ -1052,7 +1086,7 @@ static void build_subroutines(BuildCtx *ctx) | ffgccheck | mov CARG1, L | mov CARG2, BASE - | bl extern lj_str_fromnumber // (lua_State *L, cTValue *o) + | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) | // Returns GCstr *. | ldr BASE, L->base | mvn CARG2, #~LJ_TSTR @@ -1230,9 +1264,10 @@ static void build_subroutines(BuildCtx *ctx) | ldr CARG3, L:RA->base | mv_vmstate CARG2, INTERP | ldr CARG4, L:RA->top - | st_vmstate CARG2 | cmp CRET1, #LUA_YIELD | ldr BASE, L->base + | str L, [DISPATCH, #DISPATCH_GL(cur_L)] + | st_vmstate CARG2 | bhi >8 | subs RC, CARG4, CARG3 | ldr CARG1, L->maxstack @@ -1500,19 +1535,6 @@ static void build_subroutines(BuildCtx *ctx) | math_extern2 atan2 | math_extern2 fmod | - |->ff_math_deg: - |.if FPU - | .ffunc_d math_rad - | vldr d1, CFUNC:CARG3->upvalue[0] - | vmul.f64 d0, d0, d1 - | b ->fff_resd - |.else - | .ffunc_n math_rad - | ldrd CARG34, CFUNC:CARG3->upvalue[0] - | bl extern __aeabi_dmul - | b ->fff_restv - |.endif - | |.if HFABI | .ffunc math_ldexp | ldr CARG4, [BASE, #4] @@ -1687,12 +1709,6 @@ static void build_subroutines(BuildCtx *ctx) | |//-- String library ----------------------------------------------------- | - |.ffunc_1 string_len - | checkstr CARG2, ->fff_fallback - | ldr CARG1, STR:CARG1->len - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - | |.ffunc string_byte // Only handle the 1-arg case here. | ldrd CARG12, [BASE] | ldr PC, [BASE, FRAME_PC] @@ -1725,6 +1741,7 @@ static void build_subroutines(BuildCtx *ctx) | mov CARG1, L | str PC, SAVE_PC | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + |->fff_resstr: | // Returns GCstr *. | ldr BASE, L->base | mvn CARG2, #~LJ_TSTR @@ -1768,91 +1785,28 @@ static void build_subroutines(BuildCtx *ctx) | mvn CARG2, #~LJ_TSTR | b ->fff_restv | - |.ffunc string_rep // Only handle the 1-char case inline. - | ffgccheck - | ldrd CARG12, [BASE] - | ldrd CARG34, [BASE, #8] - | cmp NARGS8:RC, #16 - | bne ->fff_fallback // Exactly 2 arguments - | checktp CARG2, LJ_TSTR - | checktpeq CARG4, LJ_TISNUM - | bne ->fff_fallback - | subs CARG4, CARG3, #1 - | ldr CARG2, STR:CARG1->len - | blt ->fff_emptystr // Count <= 0? - | cmp CARG2, #1 - | blo ->fff_emptystr // Zero-length string? - | bne ->fff_fallback // Fallback for > 1-char strings. - | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] - | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] - | ldr CARG1, STR:CARG1[1] - | cmp RB, CARG3 - | blo ->fff_fallback - |1: // Fill buffer with char. - | strb CARG1, [CARG2, CARG4] - | subs CARG4, CARG4, #1 - | bge <1 - | b ->fff_newstr - | - |.ffunc string_reverse + |.macro ffstring_op, name + | .ffunc string_ .. name | ffgccheck - | ldrd CARG12, [BASE] + | ldr CARG3, [BASE, #4] | cmp NARGS8:RC, #8 + | ldr STR:CARG2, [BASE] | blo ->fff_fallback - | checkstr CARG2, ->fff_fallback - | ldr CARG3, STR:CARG1->len - | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] - | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] - | mov CARG4, CARG3 - | add CARG1, STR:CARG1, #sizeof(GCstr) - | cmp RB, CARG3 - | blo ->fff_fallback - |1: // Reverse string copy. - | ldrb RB, [CARG1], #1 - | subs CARG4, CARG4, #1 - | blt ->fff_newstr - | strb RB, [CARG2, CARG4] - | b <1 - | - |.macro ffstring_case, name, lo - | .ffunc name - | ffgccheck - | ldrd CARG12, [BASE] - | cmp NARGS8:RC, #8 - | blo ->fff_fallback - | checkstr CARG2, ->fff_fallback - | ldr CARG3, STR:CARG1->len - | ldr RB, [DISPATCH, #DISPATCH_GL(tmpbuf.sz)] - | ldr CARG2, [DISPATCH, #DISPATCH_GL(tmpbuf.buf)] - | mov CARG4, #0 - | add CARG1, STR:CARG1, #sizeof(GCstr) - | cmp RB, CARG3 - | blo ->fff_fallback - |1: // ASCII case conversion. - | ldrb RB, [CARG1, CARG4] - | cmp CARG4, CARG3 - | bhs ->fff_newstr - | sub RC, RB, #lo - | cmp RC, #26 - | eorlo RB, RB, #0x20 - | strb RB, [CARG2, CARG4] - | add CARG4, CARG4, #1 - | b <1 + | sub SBUF:CARG1, DISPATCH, #-DISPATCH_GL(tmpbuf) + | checkstr CARG3, ->fff_fallback + | ldr CARG4, SBUF:CARG1->b + | str BASE, L->base + | str PC, SAVE_PC + | str L, SBUF:CARG1->L + | str CARG4, SBUF:CARG1->p + | bl extern lj_buf_putstr_ .. name + | bl extern lj_buf_tostr + | b ->fff_resstr |.endmacro | - |ffstring_case string_lower, 65 - |ffstring_case string_upper, 97 - | - |//-- Table library ------------------------------------------------------ - | - |.ffunc_1 table_getn - | checktab CARG2, ->fff_fallback - | .IOS mov RA, BASE - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | .IOS mov BASE, RA - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv + |ffstring_op reverse + |ffstring_op lower + |ffstring_op upper | |//-- Bit library -------------------------------------------------------- | @@ -2126,6 +2080,69 @@ static void build_subroutines(BuildCtx *ctx) | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] | ldr INS, [PC, #-4] | bx CRET1 + | + |->cont_stitch: // Trace stitching. + |.if JIT + | // RA = resultptr, CARG4 = meta base + | ldr RB, SAVE_MULTRES + | ldr INS, [PC, #-4] + | ldr CARG3, [CARG4, #-24] // Save previous trace number. + | subs RB, RB, #8 + | decode_RA8 RC, INS // Call base. + | beq >2 + |1: // Move results down. + | ldrd CARG12, [RA] + | add RA, RA, #8 + | subs RB, RB, #8 + | strd CARG12, [BASE, RC] + | add RC, RC, #8 + | bne <1 + |2: + | decode_RA8 RA, INS + | decode_RB8 RB, INS + | add RA, RA, RB + | ldr CARG1, [DISPATCH, #DISPATCH_J(trace)] + |3: + | cmp RA, RC + | mvn CARG2, #~LJ_TNIL + | bhi >9 // More results wanted? + | + | ldr TRACE:RA, [CARG1, CARG3, lsl #2] + | cmp TRACE:RA, #0 + | beq ->cont_nop + | ldrh RC, TRACE:RA->link + | cmp RC, CARG3 + | beq ->cont_nop // Blacklisted. + | cmp RC, #0 + | bne =>BC_JLOOP // Jump to stitched trace. + | + | // Stitch a new trace to the previous trace. + | str CARG3, [DISPATCH, #DISPATCH_J(exitno)] + | str L, [DISPATCH, #DISPATCH_J(L)] + | str BASE, L->base + | sub CARG1, DISPATCH, #-GG_DISP2J + | mov CARG2, PC + | bl extern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) + | ldr BASE, L->base + | b ->cont_nop + | + |9: // Fill up results with nil. + | strd CARG12, [BASE, RC] + | add RC, RC, #8 + | b <3 + |.endif + | + |->vm_profhook: // Dispatch target for profiler hook. +#if LJ_HASPROFILE + | mov CARG1, L + | str BASE, L->base + | mov CARG2, PC + | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) + | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. + | ldr BASE, L->base + | sub PC, PC, #4 + | b ->cont_nop +#endif | |//----------------------------------------------------------------------- |//-- Trace exit handler ------------------------------------------------- @@ -2151,14 +2168,14 @@ static void build_subroutines(BuildCtx *ctx) | add CARG1, CARG1, CARG2, asr #6 | ldr CARG2, [lr, #4] // Load exit stub group offset. | sub CARG1, CARG1, lr - | ldr L, [DISPATCH, #DISPATCH_GL(jit_L)] + | ldr L, [DISPATCH, #DISPATCH_GL(cur_L)] | add CARG1, CARG2, CARG1, lsr #2 // Compute exit number. | ldr BASE, [DISPATCH, #DISPATCH_GL(jit_base)] | str CARG1, [DISPATCH, #DISPATCH_J(exitno)] | mov CARG4, #0 - | str L, [DISPATCH, #DISPATCH_J(L)] | str BASE, L->base - | str CARG4, [DISPATCH, #DISPATCH_GL(jit_L)] + | str L, [DISPATCH, #DISPATCH_J(L)] + | str CARG4, [DISPATCH, #DISPATCH_GL(jit_base)] | sub CARG1, DISPATCH, #-GG_DISP2J | mov CARG2, sp | bl extern lj_trace_exit // (jit_State *J, ExitState *ex) @@ -2177,13 +2194,14 @@ static void build_subroutines(BuildCtx *ctx) | ldr L, SAVE_L |1: | cmp CARG1, #0 - | blt >3 // Check for error from exit. + | blt >9 // Check for error from exit. | lsl RC, CARG1, #3 | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] | str RC, SAVE_MULTRES | mov CARG3, #0 + | str BASE, L->base | ldr CARG2, LFUNC:CARG2->field_pc - | str CARG3, [DISPATCH, #DISPATCH_GL(jit_L)] + | str CARG3, [DISPATCH, #DISPATCH_GL(jit_base)] | mv_vmstate CARG4, INTERP | ldr KBASE, [CARG2, #PC2PROTO(k)] | // Modified copy of ins_next which handles function header dispatch, too. @@ -2192,15 +2210,32 @@ static void build_subroutines(BuildCtx *ctx) | ldr INS, [PC], #4 | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. | st_vmstate CARG4 + | cmp OP, #BC_FUNCC+2 // Fast function? + | bhs >4 + |2: | cmp OP, #BC_FUNCF // Function header? | ldr OP, [DISPATCH, OP, lsl #2] | decode_RA8 RA, INS | lsrlo RC, INS, #16 // No: Decode operands A*8 and D. | subhs RC, RC, #8 | addhs RA, RA, BASE // Yes: RA = BASE+framesize*8, RC = nargs*8 + | ldrhs CARG3, [BASE, FRAME_FUNC] | bx OP | - |3: // Rethrow error from the right C frame. + |4: // Check frame below fast function. + | ldr CARG1, [BASE, FRAME_PC] + | ands CARG2, CARG1, #FRAME_TYPE + | bne <2 // Trace stitching continuation? + | // Otherwise set KBASE for Lua function below fast function. + | ldr CARG3, [CARG1, #-4] + | decode_RA8 CARG1, CARG3 + | sub CARG2, BASE, CARG1 + | ldr LFUNC:CARG3, [CARG2, #-16] + | ldr CARG3, LFUNC:CARG3->field_pc + | ldr KBASE, [CARG3, #PC2PROTO(k)] + | b <2 + | + |9: // Rethrow error from the right C frame. | rsb CARG2, CARG1, #0 | mov CARG1, L | bl extern lj_err_throw // (lua_State *L, int errcode) @@ -2833,6 +2868,25 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ins_next break; + case BC_ISTYPE: + | // RA = src*8, RC = -type + | ldrd CARG12, [BASE, RA] + | ins_next1 + | cmn CARG2, RC + | ins_next2 + | bne ->vmeta_istype + | ins_next3 + break; + case BC_ISNUM: + | // RA = src*8, RC = -(TISNUM-1) + | ldrd CARG12, [BASE, RA] + | ins_next1 + | checktp CARG2, LJ_TISNUM + | ins_next2 + | bhs ->vmeta_istype + | ins_next3 + break; + /* -- Unary ops --------------------------------------------------------- */ case BC_MOV: @@ -3503,6 +3557,24 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | bne <1 // 'no __index' flag set: done. | b ->vmeta_tgetb break; + case BC_TGETR: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = dst*8, RB = table*8, RC = key*8 + | ldr TAB:CARG1, [BASE, RB] + | ldr CARG2, [BASE, RC] + | ldr CARG4, TAB:CARG1->array + | ldr CARG3, TAB:CARG1->asize + | add CARG4, CARG4, CARG2, lsl #3 + | cmp CARG2, CARG3 // In array part? + | bhs ->vmeta_tgetr + | ldrd CARG12, [CARG4] + |->BC_TGETR_Z: + | ins_next1 + | ins_next2 + | strd CARG12, [BASE, RA] + | ins_next3 + break; case BC_TSETV: | decode_RB8 RB, INS @@ -3673,6 +3745,32 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | barrierback TAB:CARG1, INS, CARG3 | b <2 break; + case BC_TSETR: + | decode_RB8 RB, INS + | decode_RC8 RC, INS + | // RA = src*8, RB = table*8, RC = key*8 + | ldr TAB:CARG2, [BASE, RB] + | ldr CARG3, [BASE, RC] + | ldrb INS, TAB:CARG2->marked + | ldr CARG1, TAB:CARG2->array + | ldr CARG4, TAB:CARG2->asize + | tst INS, #LJ_GC_BLACK // isblack(table) + | add CARG1, CARG1, CARG3, lsl #3 + | bne >7 + |2: + | cmp CARG3, CARG4 // In array part? + | bhs ->vmeta_tsetr + |->BC_TSETR_Z: + | ldrd CARG34, [BASE, RA] + | ins_next1 + | ins_next2 + | strd CARG34, [CARG1] + | ins_next3 + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, INS, RB + | b <2 + break; case BC_TSETM: | // RA = base*8 (table at base-1), RC = num_const (start index) @@ -4270,7 +4368,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | st_vmstate CARG2 | ldr RA, TRACE:RC->mcode | str BASE, [DISPATCH, #DISPATCH_GL(jit_base)] - | str L, [DISPATCH, #DISPATCH_GL(jit_L)] + | str L, [DISPATCH, #DISPATCH_GL(tmpbuf.L)] | bx RA |.endif break; @@ -4388,6 +4486,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ldr BASE, L->base | mv_vmstate CARG3, INTERP | ldr CRET2, L->top + | str L, [DISPATCH, #DISPATCH_GL(cur_L)] | lsl RC, CRET1, #3 | st_vmstate CARG3 | ldr PC, [BASE, FRAME_PC] diff --git a/src/3rd party/luajit-2.0/src/vm_arm64.dasc b/src/3rd party/luajit-2.0/src/vm_arm64.dasc new file mode 100644 index 00000000000..a31cbb3a363 --- /dev/null +++ b/src/3rd party/luajit-2.0/src/vm_arm64.dasc @@ -0,0 +1,3763 @@ +|// Low-level VM code for ARM64 CPUs. +|// Bytecode interpreter, fast functions and helper functions. +|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h +| +|.arch arm64 +|.section code_op, code_sub +| +|.actionlist build_actionlist +|.globals GLOB_ +|.globalnames globnames +|.externnames extnames +| +|// Note: The ragged indentation of the instructions is intentional. +|// The starting columns indicate data dependencies. +| +|//----------------------------------------------------------------------- +| +|// ARM64 registers and the AAPCS64 ABI 1.0 at a glance: +|// +|// x0-x17 temp, x19-x28 callee-saved, x29 fp, x30 lr +|// x18 is reserved on most platforms. Don't use it, save it or restore it. +|// x31 doesn't exist. Register number 31 either means xzr/wzr (zero) or sp, +|// depending on the instruction. +|// v0-v7 temp, v8-v15 callee-saved (only d8-d15 preserved), v16-v31 temp +|// +|// x0-x7/v0-v7 hold parameters and results. +| +|// Fixed register assignments for the interpreter. +| +|// The following must be C callee-save. +|.define BASE, x19 // Base of current Lua stack frame. +|.define KBASE, x20 // Constants of current Lua function. +|.define PC, x21 // Next PC. +|.define GLREG, x22 // Global state. +|.define LREG, x23 // Register holding lua_State (also in SAVE_L). +|.define TISNUM, x24 // Constant LJ_TISNUM << 47. +|.define TISNUMhi, x25 // Constant LJ_TISNUM << 15. +|.define TISNIL, x26 // Constant -1LL. +|.define fp, x29 // Yes, we have to maintain a frame pointer. +| +|.define ST_INTERP, w26 // Constant -1. +| +|// The following temporaries are not saved across C calls, except for RA/RC. +|.define RA, x27 +|.define RC, x28 +|.define RB, x17 +|.define RAw, w27 +|.define RCw, w28 +|.define RBw, w17 +|.define INS, x16 +|.define INSw, w16 +|.define ITYPE, x15 +|.define TMP0, x8 +|.define TMP1, x9 +|.define TMP2, x10 +|.define TMP3, x11 +|.define TMP0w, w8 +|.define TMP1w, w9 +|.define TMP2w, w10 +|.define TMP3w, w11 +| +|// Calling conventions. Also used as temporaries. +|.define CARG1, x0 +|.define CARG2, x1 +|.define CARG3, x2 +|.define CARG4, x3 +|.define CARG5, x4 +|.define CARG1w, w0 +|.define CARG2w, w1 +|.define CARG3w, w2 +|.define CARG4w, w3 +|.define CARG5w, w4 +| +|.define FARG1, d0 +|.define FARG2, d1 +| +|.define CRET1, x0 +|.define CRET1w, w0 +| +|// Stack layout while in interpreter. Must match with lj_frame.h. +| +|.define CFRAME_SPACE, 208 +|//----- 16 byte aligned, <-- sp entering interpreter +|// Unused [sp, #204] // 32 bit values +|.define SAVE_NRES, [sp, #200] +|.define SAVE_ERRF, [sp, #196] +|.define SAVE_MULTRES, [sp, #192] +|.define TMPD, [sp, #184] // 64 bit values +|.define SAVE_L, [sp, #176] +|.define SAVE_PC, [sp, #168] +|.define SAVE_CFRAME, [sp, #160] +|.define SAVE_FPR_, 96 // 96+8*8: 64 bit FPR saves +|.define SAVE_GPR_, 16 // 16+10*8: 64 bit GPR saves +|.define SAVE_LR, [sp, #8] +|.define SAVE_FP, [sp] +|//----- 16 byte aligned, <-- sp while in interpreter. +| +|.define TMPDofs, #184 +| +|.macro save_, gpr1, gpr2, fpr1, fpr2 +| stp d..fpr1, d..fpr2, [sp, # SAVE_FPR_+(fpr1-8)*8] +| stp x..gpr1, x..gpr2, [sp, # SAVE_GPR_+(gpr1-19)*8] +|.endmacro +|.macro rest_, gpr1, gpr2, fpr1, fpr2 +| ldp d..fpr1, d..fpr2, [sp, # SAVE_FPR_+(fpr1-8)*8] +| ldp x..gpr1, x..gpr2, [sp, # SAVE_GPR_+(gpr1-19)*8] +|.endmacro +| +|.macro saveregs +| stp fp, lr, [sp, #-CFRAME_SPACE]! +| add fp, sp, #0 +| stp x19, x20, [sp, # SAVE_GPR_] +| save_ 21, 22, 8, 9 +| save_ 23, 24, 10, 11 +| save_ 25, 26, 12, 13 +| save_ 27, 28, 14, 15 +|.endmacro +|.macro restoreregs +| ldp x19, x20, [sp, # SAVE_GPR_] +| rest_ 21, 22, 8, 9 +| rest_ 23, 24, 10, 11 +| rest_ 25, 26, 12, 13 +| rest_ 27, 28, 14, 15 +| ldp fp, lr, [sp], # CFRAME_SPACE +|.endmacro +| +|// Type definitions. Some of these are only used for documentation. +|.type L, lua_State, LREG +|.type GL, global_State, GLREG +|.type TVALUE, TValue +|.type GCOBJ, GCobj +|.type STR, GCstr +|.type TAB, GCtab +|.type LFUNC, GCfuncL +|.type CFUNC, GCfuncC +|.type PROTO, GCproto +|.type UPVAL, GCupval +|.type NODE, Node +|.type NARGS8, int +|.type TRACE, GCtrace +|.type SBUF, SBuf +| +|//----------------------------------------------------------------------- +| +|// Trap for not-yet-implemented parts. +|.macro NYI; brk; .endmacro +| +|//----------------------------------------------------------------------- +| +|// Access to frame relative to BASE. +|.define FRAME_FUNC, #-16 +|.define FRAME_PC, #-8 +| +|.macro decode_RA, dst, ins; ubfx dst, ins, #8, #8; .endmacro +|.macro decode_RB, dst, ins; ubfx dst, ins, #24, #8; .endmacro +|.macro decode_RC, dst, ins; ubfx dst, ins, #16, #8; .endmacro +|.macro decode_RD, dst, ins; ubfx dst, ins, #16, #16; .endmacro +|.macro decode_RC8RD, dst, src; ubfiz dst, src, #3, #8; .endmacro +| +|// Instruction decode+dispatch. +|.macro ins_NEXT +| ldr INSw, [PC], #4 +| add TMP1, GL, INS, uxtb #3 +| decode_RA RA, INS +| ldr TMP0, [TMP1, #GG_G2DISP] +| decode_RD RC, INS +| br TMP0 +|.endmacro +| +|// Instruction footer. +|.if 1 +| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. +| .define ins_next, ins_NEXT +| .define ins_next_, ins_NEXT +|.else +| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. +| // Affects only certain kinds of benchmarks (and only with -j off). +| .macro ins_next +| b ->ins_next +| .endmacro +| .macro ins_next_ +| ->ins_next: +| ins_NEXT +| .endmacro +|.endif +| +|// Call decode and dispatch. +|.macro ins_callt +| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC +| ldr PC, LFUNC:CARG3->pc +| ldr INSw, [PC], #4 +| add TMP1, GL, INS, uxtb #3 +| decode_RA RA, INS +| ldr TMP0, [TMP1, #GG_G2DISP] +| add RA, BASE, RA, lsl #3 +| br TMP0 +|.endmacro +| +|.macro ins_call +| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, PC = caller PC +| str PC, [BASE, FRAME_PC] +| ins_callt +|.endmacro +| +|//----------------------------------------------------------------------- +| +|// Macros to check the TValue type and extract the GCobj. Branch on failure. +|.macro checktp, reg, tp, target +| asr ITYPE, reg, #47 +| cmn ITYPE, #-tp +| and reg, reg, #LJ_GCVMASK +| bne target +|.endmacro +|.macro checktp, dst, reg, tp, target +| asr ITYPE, reg, #47 +| cmn ITYPE, #-tp +| and dst, reg, #LJ_GCVMASK +| bne target +|.endmacro +|.macro checkstr, reg, target; checktp reg, LJ_TSTR, target; .endmacro +|.macro checktab, reg, target; checktp reg, LJ_TTAB, target; .endmacro +|.macro checkfunc, reg, target; checktp reg, LJ_TFUNC, target; .endmacro +|.macro checkint, reg, target +| cmp TISNUMhi, reg, lsr #32 +| bne target +|.endmacro +|.macro checknum, reg, target +| cmp TISNUMhi, reg, lsr #32 +| bls target +|.endmacro +|.macro checknumber, reg, target +| cmp TISNUMhi, reg, lsr #32 +| blo target +|.endmacro +| +|.macro mov_false, reg; movn reg, #0x8000, lsl #32; .endmacro +|.macro mov_true, reg; movn reg, #0x0001, lsl #48; .endmacro +| +#define GL_J(field) (GG_OFS(J) + (int)offsetof(jit_State, field)) +| +#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) +| +|.macro hotcheck, delta +| NYI +|.endmacro +| +|.macro hotloop +| hotcheck HOTCOUNT_LOOP +| blo ->vm_hotloop +|.endmacro +| +|.macro hotcall +| hotcheck HOTCOUNT_CALL +| blo ->vm_hotcall +|.endmacro +| +|// Set current VM state. +|.macro mv_vmstate, reg, st; movn reg, #LJ_VMST_..st; .endmacro +|.macro st_vmstate, reg; str reg, GL->vmstate; .endmacro +| +|// Move table write barrier back. Overwrites mark and tmp. +|.macro barrierback, tab, mark, tmp +| ldr tmp, GL->gc.grayagain +| and mark, mark, #~LJ_GC_BLACK // black2gray(tab) +| str tab, GL->gc.grayagain +| strb mark, tab->marked +| str tmp, tab->gclist +|.endmacro +| +|//----------------------------------------------------------------------- + +#if !LJ_DUALNUM +#error "Only dual-number mode supported for ARM64 target" +#endif + +/* Generate subroutines used by opcodes and other parts of the VM. */ +/* The .code_sub section should be last to help static branch prediction. */ +static void build_subroutines(BuildCtx *ctx) +{ + |.code_sub + | + |//----------------------------------------------------------------------- + |//-- Return handling ---------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_returnp: + | // See vm_return. Also: RB = previous base. + | tbz PC, #2, ->cont_dispatch // (PC & FRAME_P) == 0? + | + | // Return from pcall or xpcall fast func. + | ldr PC, [RB, FRAME_PC] // Fetch PC of previous frame. + | mov_true TMP0 + | mov BASE, RB + | // Prepending may overwrite the pcall frame, so do it at the end. + | str TMP0, [RA, #-8]! // Prepend true to results. + | + |->vm_returnc: + | adds RC, RC, #8 // RC = (nresults+1)*8. + | mov CRET1, #LUA_YIELD + | beq ->vm_unwind_c_eh + | str RCw, SAVE_MULTRES + | ands CARG1, PC, #FRAME_TYPE + | beq ->BC_RET_Z // Handle regular return to Lua. + | + |->vm_return: + | // BASE = base, RA = resultptr, RC/MULTRES = (nresults+1)*8, PC = return + | // CARG1 = PC & FRAME_TYPE + | and RB, PC, #~FRAME_TYPEP + | cmp CARG1, #FRAME_C + | sub RB, BASE, RB // RB = previous base. + | bne ->vm_returnp + | + | str RB, L->base + | ldrsw CARG2, SAVE_NRES // CARG2 = nresults+1. + | mv_vmstate TMP0w, C + | sub BASE, BASE, #16 + | subs TMP2, RC, #8 + | st_vmstate TMP0w + | beq >2 + |1: + | subs TMP2, TMP2, #8 + | ldr TMP0, [RA], #8 + | str TMP0, [BASE], #8 + | bne <1 + |2: + | cmp RC, CARG2, lsl #3 // More/less results wanted? + | bne >6 + |3: + | str BASE, L->top // Store new top. + | + |->vm_leave_cp: + | ldr RC, SAVE_CFRAME // Restore previous C frame. + | mov CRET1, #0 // Ok return status for vm_pcall. + | str RC, L->cframe + | + |->vm_leave_unw: + | restoreregs + | ret + | + |6: + | bgt >7 // Less results wanted? + | // More results wanted. Check stack size and fill up results with nil. + | ldr CARG3, L->maxstack + | cmp BASE, CARG3 + | bhs >8 + | str TISNIL, [BASE], #8 + | add RC, RC, #8 + | b <2 + | + |7: // Less results wanted. + | cbz CARG2, <3 // LUA_MULTRET+1 case? + | sub CARG1, RC, CARG2, lsl #3 + | sub BASE, BASE, CARG1 // Shrink top. + | b <3 + | + |8: // Corner case: need to grow stack for filling up results. + | // This can happen if: + | // - A C function grows the stack (a lot). + | // - The GC shrinks the stack in between. + | // - A return back from a lua_call() with (high) nresults adjustment. + | str BASE, L->top // Save current top held in BASE (yes). + | mov CARG1, L + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->top // Need the (realloced) L->top in BASE. + | ldrsw CARG2, SAVE_NRES + | b <2 + | + |->vm_unwind_c: // Unwind C stack, return from vm_pcall. + | // (void *cframe, int errcode) + | mov sp, CARG1 + | mov CRET1, CARG2 + |->vm_unwind_c_eh: // Landing pad for external unwinder. + | ldr L, SAVE_L + | mv_vmstate TMP0w, C + | ldr GL, L->glref + | st_vmstate TMP0w + | b ->vm_leave_unw + | + |->vm_unwind_ff: // Unwind C stack, return from ff pcall. + | // (void *cframe) + | and sp, CARG1, #CFRAME_RAWMASK + |->vm_unwind_ff_eh: // Landing pad for external unwinder. + | ldr L, SAVE_L + | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 + | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 + | movn TISNIL, #0 + | mov RC, #16 // 2 results: false + error message. + | ldr BASE, L->base + | ldr GL, L->glref // Setup pointer to global state. + | mov_false TMP0 + | sub RA, BASE, #8 // Results start at BASE-8. + | ldr PC, [BASE, FRAME_PC] // Fetch PC of previous frame. + | str TMP0, [BASE, #-8] // Prepend false to error message. + | st_vmstate ST_INTERP + | b ->vm_returnc + | + |//----------------------------------------------------------------------- + |//-- Grow stack for calls ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_growstack_c: // Grow stack for C function. + | // CARG1 = L + | mov CARG2, #LUA_MINSTACK + | b >2 + | + |->vm_growstack_l: // Grow stack for Lua function. + | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC + | add RC, BASE, RC + | sub RA, RA, BASE + | mov CARG1, L + | stp BASE, RC, L->base + | add PC, PC, #4 // Must point after first instruction. + | lsr CARG2, RA, #3 + |2: + | // L->base = new base, L->top = top + | str PC, SAVE_PC + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldp BASE, RC, L->base + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | sub NARGS8:RC, RC, BASE + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC + | ins_callt // Just retry the call. + | + |//----------------------------------------------------------------------- + |//-- Entry points into the assembler VM --------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_resume: // Setup C frame and resume thread. + | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) + | saveregs + | mov L, CARG1 + | ldr GL, L->glref // Setup pointer to global state. + | mov BASE, CARG2 + | str L, SAVE_L + | mov PC, #FRAME_CP + | str wzr, SAVE_NRES + | add TMP0, sp, #CFRAME_RESUME + | ldrb TMP1w, L->status + | str wzr, SAVE_ERRF + | str L, SAVE_PC // Any value outside of bytecode is ok. + | str xzr, SAVE_CFRAME + | str TMP0, L->cframe + | cbz TMP1w, >3 + | + | // Resume after yield (like a return). + | str L, GL->cur_L + | mov RA, BASE + | ldp BASE, CARG1, L->base + | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 + | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 + | ldr PC, [BASE, FRAME_PC] + | strb wzr, L->status + | movn TISNIL, #0 + | sub RC, CARG1, BASE + | ands CARG1, PC, #FRAME_TYPE + | add RC, RC, #8 + | st_vmstate ST_INTERP + | str RCw, SAVE_MULTRES + | beq ->BC_RET_Z + | b ->vm_return + | + |->vm_pcall: // Setup protected C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) + | saveregs + | mov PC, #FRAME_CP + | str CARG4w, SAVE_ERRF + | b >1 + | + |->vm_call: // Setup C frame and enter VM. + | // (lua_State *L, TValue *base, int nres1) + | saveregs + | mov PC, #FRAME_C + | + |1: // Entry point for vm_pcall above (PC = ftype). + | ldr RC, L:CARG1->cframe + | str CARG3w, SAVE_NRES + | mov L, CARG1 + | str CARG1, SAVE_L + | ldr GL, L->glref // Setup pointer to global state. + | mov BASE, CARG2 + | str CARG1, SAVE_PC // Any value outside of bytecode is ok. + | str RC, SAVE_CFRAME + | str fp, L->cframe // Add our C frame to cframe chain. + | + |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | str L, GL->cur_L + | ldp RB, CARG1, L->base // RB = old base (for vmeta_call). + | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 + | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 + | add PC, PC, BASE + | movn TISNIL, #0 + | sub PC, PC, RB // PC = frame delta + frame type + | sub NARGS8:RC, CARG1, BASE + | st_vmstate ST_INTERP + | + |->vm_call_dispatch: + | // RB = old base, BASE = new base, RC = nargs*8, PC = caller PC + | ldr CARG3, [BASE, FRAME_FUNC] + | checkfunc CARG3, ->vmeta_call + | + |->vm_call_dispatch_f: + | ins_call + | // BASE = new base, CARG3 = func, RC = nargs*8, PC = caller PC + | + |->vm_cpcall: // Setup protected C frame, call C. + | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) + | saveregs + | mov L, CARG1 + | ldr RA, L:CARG1->stack + | str CARG1, SAVE_L + | ldr GL, L->glref // Setup pointer to global state. + | ldr RB, L->top + | str CARG1, SAVE_PC // Any value outside of bytecode is ok. + | ldr RC, L->cframe + | sub RA, RA, RB // Compute -savestack(L, L->top). + | str RAw, SAVE_NRES // Neg. delta means cframe w/o frame. + | str wzr, SAVE_ERRF // No error function. + | str RC, SAVE_CFRAME + | str fp, L->cframe // Add our C frame to cframe chain. + | str L, GL->cur_L + | blr CARG4 // (lua_State *L, lua_CFunction func, void *ud) + | mov BASE, CRET1 + | mov PC, #FRAME_CP + | cbnz BASE, <3 // Else continue with the call. + | b ->vm_leave_cp // No base? Just remove C frame. + | + |//----------------------------------------------------------------------- + |//-- Metamethod handling ------------------------------------------------ + |//----------------------------------------------------------------------- + | + |//-- Continuation dispatch ---------------------------------------------- + | + |->cont_dispatch: + | // BASE = meta base, RA = resultptr, RC = (nresults+1)*8 + | ldr LFUNC:CARG3, [RB, FRAME_FUNC] + | ldr CARG1, [BASE, #-32] // Get continuation. + | mov CARG4, BASE + | mov BASE, RB // Restore caller BASE. + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + |.if FFI + | cmp CARG1, #1 + |.endif + | ldr PC, [CARG4, #-24] // Restore PC from [cont|PC]. + | ldr CARG3, LFUNC:CARG3->pc + | add TMP0, RA, RC + | str TISNIL, [TMP0, #-8] // Ensure one valid arg. + |.if FFI + | bls >1 + |.endif + | ldr KBASE, [CARG3, #PC2PROTO(k)] + | // BASE = base, RA = resultptr, CARG4 = meta base + | br CARG1 + | + |.if FFI + |1: + | beq ->cont_ffi_callback // cont = 1: return from FFI callback. + | // cont = 0: tailcall from C function. + | sub CARG4, CARG4, #32 + | sub RC, CARG4, BASE + | b ->vm_call_tail + |.endif + | + |->cont_cat: // RA = resultptr, CARG4 = meta base + | ldr INSw, [PC, #-4] + | sub CARG2, CARG4, #32 + | ldr TMP0, [RA] + | str BASE, L->base + | decode_RB RB, INS + | decode_RA RA, INS + | add TMP1, BASE, RB, lsl #3 + | subs TMP1, CARG2, TMP1 + | beq >1 + | str TMP0, [CARG2] + | lsr CARG3, TMP1, #3 + | b ->BC_CAT_Z + | + |1: + | str TMP0, [BASE, RA, lsl #3] + | b ->cont_nop + | + |//-- Table indexing metamethods ----------------------------------------- + | + |->vmeta_tgets1: + | movn CARG4, #~LJ_TSTR + | add CARG2, BASE, RB, lsl #3 + | add CARG4, STR:RC, CARG4, lsl #47 + | b >2 + | + |->vmeta_tgets: + | movk CARG2, #(LJ_TTAB>>1)&0xffff, lsl #48 + | str CARG2, GL->tmptv + | add CARG2, GL, #offsetof(global_State, tmptv) + |2: + | add CARG3, sp, TMPDofs + | str CARG4, TMPD + | b >1 + | + |->vmeta_tgetb: // RB = table, RC = index + | add RC, RC, TISNUM + | add CARG2, BASE, RB, lsl #3 + | add CARG3, sp, TMPDofs + | str RC, TMPD + | b >1 + | + |->vmeta_tgetv: // RB = table, RC = key + | add CARG2, BASE, RB, lsl #3 + | add CARG3, BASE, RC, lsl #3 + |1: + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | cbz CRET1, >3 + | ldr TMP0, [CRET1] + | str TMP0, [BASE, RA, lsl #3] + | ins_next + | + |3: // Call __index metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k + | sub TMP1, BASE, #FRAME_CONT + | ldr BASE, L->top + | mov NARGS8:RC, #16 // 2 args for func(t, k). + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | str PC, [BASE, #-24] // [cont|PC] + | sub PC, BASE, TMP1 + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | b ->vm_call_dispatch_f + | + |->vmeta_tgetr: + | sxtw CARG2, TMP1w + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | mov TMP0, TISNIL + | cbz CRET1, ->BC_TGETR_Z + | ldr TMP0, [CRET1] + | b ->BC_TGETR_Z + | + |//----------------------------------------------------------------------- + | + |->vmeta_tsets1: + | movn CARG4, #~LJ_TSTR + | add CARG2, BASE, RB, lsl #3 + | add CARG4, STR:RC, CARG4, lsl #47 + | b >2 + | + |->vmeta_tsets: + | movk CARG2, #(LJ_TTAB>>1)&0xffff, lsl #48 + | str CARG2, GL->tmptv + | add CARG2, GL, #offsetof(global_State, tmptv) + |2: + | add CARG3, sp, TMPDofs + | str CARG4, TMPD + | b >1 + | + |->vmeta_tsetb: // RB = table, RC = index + | add RC, RC, TISNUM + | add CARG2, BASE, RB, lsl #3 + | add CARG3, sp, TMPDofs + | str RC, TMPD + | b >1 + | + |->vmeta_tsetv: + | add CARG2, BASE, RB, lsl #3 + | add CARG3, BASE, RC, lsl #3 + |1: + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) + | // Returns TValue * (finished) or NULL (metamethod). + | ldr TMP0, [BASE, RA, lsl #3] + | cbz CRET1, >3 + | // NOBARRIER: lj_meta_tset ensures the table is not black. + | str TMP0, [CRET1] + | ins_next + | + |3: // Call __newindex metamethod. + | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) + | sub TMP1, BASE, #FRAME_CONT + | ldr BASE, L->top + | mov NARGS8:RC, #24 // 3 args for func(t, k, v). + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | str TMP0, [BASE, #16] // Copy value to third argument. + | str PC, [BASE, #-24] // [cont|PC] + | sub PC, BASE, TMP1 + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | b ->vm_call_dispatch_f + | + |->vmeta_tsetr: + | sxtw CARG3, TMP1w + | str BASE, L->base + | str PC, SAVE_PC + | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) + | // Returns TValue *. + | b ->BC_TSETR_Z + | + |//-- Comparison metamethods --------------------------------------------- + | + |->vmeta_comp: + | add CARG2, BASE, RA, lsl #3 + | sub PC, PC, #4 + | add CARG3, BASE, RC, lsl #3 + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | uxtb CARG4w, INSw + | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) + | // Returns 0/1 or TValue * (metamethod). + |3: + | cmp CRET1, #1 + | bhi ->vmeta_binop + |4: + | ldrh RBw, [PC, #2] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | sub RB, RB, #0x20000 + | csel PC, PC, RB, lo + |->cont_nop: + | ins_next + | + |->cont_ra: // RA = resultptr + | ldr INSw, [PC, #-4] + | ldr TMP0, [RA] + | decode_RA TMP1, INS + | str TMP0, [BASE, TMP1, lsl #3] + | b ->cont_nop + | + |->cont_condt: // RA = resultptr + | ldr TMP0, [RA] + | mov_true TMP1 + | cmp TMP1, TMP0 // Branch if result is true. + | b <4 + | + |->cont_condf: // RA = resultptr + | ldr TMP0, [RA] + | mov_false TMP1 + | cmp TMP0, TMP1 // Branch if result is false. + | b <4 + | + |->vmeta_equal: + | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. + | and TAB:CARG3, CARG3, #LJ_GCVMASK + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + | + |->vmeta_equal_cd: + |.if FFI + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | mov CARG2, INS + | str PC, SAVE_PC + | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) + | // Returns 0/1 or TValue * (metamethod). + | b <3 + |.endif + | + |->vmeta_istype: + | sub PC, PC, #4 + | str BASE, L->base + | mov CARG1, L + | mov CARG2, RA + | mov CARG3, RC + | str PC, SAVE_PC + | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) + | b ->cont_nop + | + |//-- Arithmetic metamethods --------------------------------------------- + | + |->vmeta_arith_vn: + | add CARG3, BASE, RB, lsl #3 + | add CARG4, KBASE, RC, lsl #3 + | b >1 + | + |->vmeta_arith_nv: + | add CARG4, BASE, RB, lsl #3 + | add CARG3, KBASE, RC, lsl #3 + | b >1 + | + |->vmeta_unm: + | add CARG3, BASE, RC, lsl #3 + | mov CARG4, CARG3 + | b >1 + | + |->vmeta_arith_vv: + | add CARG3, BASE, RB, lsl #3 + | add CARG4, BASE, RC, lsl #3 + |1: + | uxtb CARG5w, INSw + | add CARG2, BASE, RA, lsl #3 + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) + | // Returns NULL (finished) or TValue * (metamethod). + | cbz CRET1, ->cont_nop + | + | // Call metamethod for binary op. + |->vmeta_binop: + | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 + | sub TMP1, CRET1, BASE + | str PC, [CRET1, #-24] // [cont|PC] + | add PC, TMP1, #FRAME_CONT + | mov BASE, CRET1 + | mov NARGS8:RC, #16 // 2 args for func(o1, o2). + | b ->vm_call_dispatch + | + |->vmeta_len: + | add CARG2, BASE, RC, lsl #3 +#if LJ_52 + | mov TAB:RC, TAB:CARG1 // Save table (ignored for other types). +#endif + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_len // (lua_State *L, TValue *o) + | // Returns NULL (retry) or TValue * (metamethod base). +#if LJ_52 + | cbnz CRET1, ->vmeta_binop // Binop call for compatibility. + | mov TAB:CARG1, TAB:RC + | b ->BC_LEN_Z +#else + | b ->vmeta_binop // Binop call for compatibility. +#endif + | + |//-- Call metamethod ---------------------------------------------------- + | + |->vmeta_call: // Resolve and call __call metamethod. + | // RB = old base, BASE = new base, RC = nargs*8 + | mov CARG1, L + | str RB, L->base // This is the callers base! + | sub CARG2, BASE, #16 + | str PC, SAVE_PC + | add CARG3, BASE, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. + | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | ins_call + | + |->vmeta_callt: // Resolve __call for BC_CALLT. + | // BASE = old base, RA = new base, RC = nargs*8 + | mov CARG1, L + | str BASE, L->base + | sub CARG2, RA, #16 + | str PC, SAVE_PC + | add CARG3, RA, NARGS8:RC + | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) + | ldr LFUNC:CARG3, [RA, FRAME_FUNC] // Guaranteed to be a function here. + | ldr PC, [BASE, FRAME_PC] + | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | b ->BC_CALLT2_Z + | + |//-- Argument coercion for 'for' statement ------------------------------ + | + |->vmeta_for: + | mov CARG1, L + | str BASE, L->base + | mov CARG2, RA + | str PC, SAVE_PC + | bl extern lj_meta_for // (lua_State *L, TValue *base) + | ldr INSw, [PC, #-4] + |.if JIT + | uxtb TMP0, INS + |.endif + | decode_RA RA, INS + | decode_RD RC, INS + |.if JIT + | cmp TMP0, #BC_JFORI + | beq =>BC_JFORI + |.endif + | b =>BC_FORI + | + |//----------------------------------------------------------------------- + |//-- Fast functions ----------------------------------------------------- + |//----------------------------------------------------------------------- + | + |.macro .ffunc, name + |->ff_ .. name: + |.endmacro + | + |.macro .ffunc_1, name + |->ff_ .. name: + | ldr CARG1, [BASE] + | cmp NARGS8:RC, #8 + | blo ->fff_fallback + |.endmacro + | + |.macro .ffunc_2, name + |->ff_ .. name: + | ldp CARG1, CARG2, [BASE] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + |.endmacro + | + |.macro .ffunc_n, name + | .ffunc name + | ldr CARG1, [BASE] + | cmp NARGS8:RC, #8 + | ldr FARG1, [BASE] + | blo ->fff_fallback + | checknum CARG1, ->fff_fallback + |.endmacro + | + |.macro .ffunc_nn, name + | .ffunc name + | ldp CARG1, CARG2, [BASE] + | cmp NARGS8:RC, #16 + | ldp FARG1, FARG2, [BASE] + | blo ->fff_fallback + | checknum CARG1, ->fff_fallback + | checknum CARG2, ->fff_fallback + |.endmacro + | + |// Inlined GC threshold check. Caveat: uses CARG1 and CARG2. + |.macro ffgccheck + | ldp CARG1, CARG2, GL->gc.total // Assumes threshold follows total. + | cmp CARG1, CARG2 + | blt >1 + | bl ->fff_gcstep + |1: + |.endmacro + | + |//-- Base library: checks ----------------------------------------------- + | + |.ffunc_1 assert + | ldr PC, [BASE, FRAME_PC] + | mov_false TMP1 + | cmp CARG1, TMP1 + | bhs ->fff_fallback + | str CARG1, [BASE, #-16] + | sub RB, BASE, #8 + | subs RA, NARGS8:RC, #8 + | add RC, NARGS8:RC, #8 // Compute (nresults+1)*8. + | cbz RA, ->fff_res // Done if exactly 1 argument. + |1: + | ldr CARG1, [RB, #16] + | sub RA, RA, #8 + | str CARG1, [RB], #8 + | cbnz RA, <1 + | b ->fff_res + | + |.ffunc_1 type + | mov TMP0, #~LJ_TISNUM + | asr ITYPE, CARG1, #47 + | cmn ITYPE, #~LJ_TISNUM + | csinv TMP1, TMP0, ITYPE, lo + | add TMP1, TMP1, #offsetof(GCfuncC, upvalue)/8 + | ldr CARG1, [CFUNC:CARG3, TMP1, lsl #3] + | b ->fff_restv + | + |//-- Base library: getters and setters --------------------------------- + | + |.ffunc_1 getmetatable + | asr ITYPE, CARG1, #47 + | cmn ITYPE, #-LJ_TTAB + | ccmn ITYPE, #-LJ_TUDATA, #4, ne + | and TAB:CARG1, CARG1, #LJ_GCVMASK + | bne >6 + |1: // Field metatable must be at same offset for GCtab and GCudata! + | ldr TAB:RB, TAB:CARG1->metatable + |2: + | mov CARG1, TISNIL + | ldr STR:RC, GL->gcroot[GCROOT_MMNAME+MM_metatable] + | cbz TAB:RB, ->fff_restv + | ldr TMP1w, TAB:RB->hmask + | ldr TMP2w, STR:RC->hash + | ldr NODE:CARG3, TAB:RB->node + | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask + | add TMP1, TMP1, TMP1, lsl #1 + | movn CARG4, #~LJ_TSTR + | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 + | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. + |3: // Rearranged logic, because we expect _not_ to find the key. + | ldp CARG1, TMP0, NODE:CARG3->val + | ldr NODE:CARG3, NODE:CARG3->next + | cmp TMP0, CARG4 + | beq >5 + | cbnz NODE:CARG3, <3 + |4: + | mov CARG1, RB // Use metatable as default result. + | movk CARG1, #(LJ_TTAB>>1)&0xffff, lsl #48 + | b ->fff_restv + |5: + | cmp TMP0, TISNIL + | bne ->fff_restv + | b <4 + | + |6: + | movn TMP0, #~LJ_TISNUM + | cmp ITYPE, TMP0 + | csel ITYPE, ITYPE, TMP0, hs + | sub TMP1, GL, ITYPE, lsl #3 + | ldr TAB:RB, [TMP1, #offsetof(global_State, gcroot[GCROOT_BASEMT])-8] + | b <2 + | + |.ffunc_2 setmetatable + | // Fast path: no mt for table yet and not clearing the mt. + | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback + | ldr TAB:TMP0, TAB:TMP1->metatable + | asr ITYPE, CARG2, #47 + | ldrb TMP2w, TAB:TMP1->marked + | cmn ITYPE, #-LJ_TTAB + | and TAB:CARG2, CARG2, #LJ_GCVMASK + | ccmp TAB:TMP0, #0, #0, eq + | bne ->fff_fallback + | str TAB:CARG2, TAB:TMP1->metatable + | tbz TMP2w, #2, ->fff_restv // isblack(table) + | barrierback TAB:TMP1, TMP2w, TMP0 + | b ->fff_restv + | + |.ffunc rawget + | ldr CARG2, [BASE] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + | checktab CARG2, ->fff_fallback + | mov CARG1, L + | add CARG3, BASE, #8 + | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) + | // Returns cTValue *. + | ldr CARG1, [CRET1] + | b ->fff_restv + | + |//-- Base library: conversions ------------------------------------------ + | + |.ffunc tonumber + | // Only handles the number case inline (without a base argument). + | ldr CARG1, [BASE] + | cmp NARGS8:RC, #8 + | bne ->fff_fallback + | checknumber CARG1, ->fff_fallback + | b ->fff_restv + | + |.ffunc_1 tostring + | // Only handles the string or number case inline. + | asr ITYPE, CARG1, #47 + | cmn ITYPE, #-LJ_TSTR + | // A __tostring method in the string base metatable is ignored. + | beq ->fff_restv + | // Handle numbers inline, unless a number base metatable is present. + | ldr TMP1, GL->gcroot[GCROOT_BASEMT_NUM] + | str BASE, L->base + | cmn ITYPE, #-LJ_TISNUM + | ccmp TMP1, #0, #0, ls + | str PC, SAVE_PC // Redundant (but a defined value). + | bne ->fff_fallback + | ffgccheck + | mov CARG1, L + | mov CARG2, BASE + | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) + | // Returns GCstr *. + | movn TMP1, #~LJ_TSTR + | ldr BASE, L->base + | add CARG1, CARG1, TMP1, lsl #47 + | b ->fff_restv + | + |//-- Base library: iterators ------------------------------------------- + | + |.ffunc_1 next + | checktp CARG2, CARG1, LJ_TTAB, ->fff_fallback + | str TISNIL, [BASE, NARGS8:RC] // Set missing 2nd arg to nil. + | ldr PC, [BASE, FRAME_PC] + | stp BASE, BASE, L->base // Add frame since C call can throw. + | mov CARG1, L + | add CARG3, BASE, #8 + | str PC, SAVE_PC + | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) + | // Returns 0 at end of traversal. + | str TISNIL, [BASE, #-16] + | cbz CRET1, ->fff_res1 // End of traversal: return nil. + | ldp CARG1, CARG2, [BASE, #8] // Copy key and value to results. + | mov RC, #(2+1)*8 + | stp CARG1, CARG2, [BASE, #-16] + | b ->fff_res + | + |.ffunc_1 pairs + | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback +#if LJ_52 + | ldr TAB:CARG2, TAB:TMP1->metatable +#endif + | ldr CFUNC:CARG4, CFUNC:CARG3->upvalue[0] + | ldr PC, [BASE, FRAME_PC] +#if LJ_52 + | cbnz TAB:CARG2, ->fff_fallback +#endif + | mov RC, #(3+1)*8 + | stp CARG1, TISNIL, [BASE, #-8] + | str CFUNC:CARG4, [BASE, #-16] + | b ->fff_res + | + |.ffunc_2 ipairs_aux + | checktab CARG1, ->fff_fallback + | checkint CARG2, ->fff_fallback + | ldr TMP1w, TAB:CARG1->asize + | ldr CARG3, TAB:CARG1->array + | ldr TMP0w, TAB:CARG1->hmask + | add CARG2w, CARG2w, #1 + | cmp CARG2w, TMP1w + | ldr PC, [BASE, FRAME_PC] + | add TMP2, CARG2, TISNUM + | mov RC, #(0+1)*8 + | str TMP2, [BASE, #-16] + | bhs >2 // Not in array part? + | ldr TMP0, [CARG3, CARG2, lsl #3] + |1: + | mov TMP1, #(2+1)*8 + | cmp TMP0, TISNIL + | str TMP0, [BASE, #-8] + | csel RC, RC, TMP1, eq + | b ->fff_res + |2: // Check for empty hash part first. Otherwise call C function. + | cbz TMP0w, ->fff_res + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | cbz CRET1, ->fff_res + | ldr TMP0, [CRET1] + | b <1 + | + |.ffunc_1 ipairs + | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback +#if LJ_52 + | ldr TAB:CARG2, TAB:TMP1->metatable +#endif + | ldr CFUNC:CARG4, CFUNC:CARG3->upvalue[0] + | ldr PC, [BASE, FRAME_PC] +#if LJ_52 + | cbnz TAB:CARG2, ->fff_fallback +#endif + | mov RC, #(3+1)*8 + | stp CARG1, TISNUM, [BASE, #-8] + | str CFUNC:CARG4, [BASE, #-16] + | b ->fff_res + | + |//-- Base library: catch errors ---------------------------------------- + | + |.ffunc pcall + | ldrb TMP0w, GL->hookmask + | subs NARGS8:RC, NARGS8:RC, #8 + | blo ->fff_fallback + | mov RB, BASE + | add BASE, BASE, #16 + | ubfx TMP0w, TMP0w, #HOOK_ACTIVE_SHIFT, #1 + | add PC, TMP0, #16+FRAME_PCALL + | beq ->vm_call_dispatch + |1: + | add TMP2, BASE, NARGS8:RC + |2: + | ldr TMP0, [TMP2, #-16] + | str TMP0, [TMP2, #-8]! + | cmp TMP2, BASE + | bne <2 + | b ->vm_call_dispatch + | + |.ffunc xpcall + | ldp CARG1, CARG2, [BASE] + | ldrb TMP0w, GL->hookmask + | subs NARGS8:RC, NARGS8:RC, #16 + | blo ->fff_fallback + | mov RB, BASE + | add BASE, BASE, #24 + | asr ITYPE, CARG2, #47 + | ubfx TMP0w, TMP0w, #HOOK_ACTIVE_SHIFT, #1 + | cmn ITYPE, #-LJ_TFUNC + | add PC, TMP0, #24+FRAME_PCALL + | bne ->fff_fallback // Traceback must be a function. + | stp CARG2, CARG1, [RB] // Swap function and traceback. + | cbz NARGS8:RC, ->vm_call_dispatch + | b <1 + | + |//-- Coroutine library -------------------------------------------------- + | + |.macro coroutine_resume_wrap, resume + |.if resume + |.ffunc_1 coroutine_resume + | checktp CARG1, LJ_TTHREAD, ->fff_fallback + |.else + |.ffunc coroutine_wrap_aux + | ldr L:CARG1, CFUNC:CARG3->upvalue[0].gcr + | and L:CARG1, CARG1, #LJ_GCVMASK + |.endif + | ldr PC, [BASE, FRAME_PC] + | str BASE, L->base + | ldp RB, CARG2, L:CARG1->base + | ldrb TMP1w, L:CARG1->status + | add TMP0, CARG2, TMP1 + | str PC, SAVE_PC + | cmp TMP0, RB + | beq ->fff_fallback + | cmp TMP1, #LUA_YIELD + | add TMP0, CARG2, #8 + | csel CARG2, CARG2, TMP0, hs + | ldr CARG4, L:CARG1->maxstack + | add CARG3, CARG2, NARGS8:RC + | ldr RB, L:CARG1->cframe + | ccmp CARG3, CARG4, #2, ls + | ccmp RB, #0, #2, ls + | bhi ->fff_fallback + |.if resume + | sub CARG3, CARG3, #8 // Keep resumed thread in stack for GC. + | add BASE, BASE, #8 + | sub NARGS8:RC, NARGS8:RC, #8 + |.endif + | str CARG3, L:CARG1->top + | str BASE, L->top + | cbz NARGS8:RC, >3 + |2: // Move args to coroutine. + | ldr TMP0, [BASE, RB] + | cmp RB, NARGS8:RC + | str TMP0, [CARG2, RB] + | add RB, RB, #8 + | bne <2 + |3: + | mov CARG3, #0 + | mov L:RA, L:CARG1 + | mov CARG4, #0 + | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) + | // Returns thread status. + |4: + | ldp CARG3, CARG4, L:RA->base + | cmp CRET1, #LUA_YIELD + | ldr BASE, L->base + | str L, GL->cur_L + | st_vmstate ST_INTERP + | bhi >8 + | sub RC, CARG4, CARG3 + | ldr CARG1, L->maxstack + | add CARG2, BASE, RC + | cbz RC, >6 // No results? + | cmp CARG2, CARG1 + | mov RB, #0 + | bhi >9 // Need to grow stack? + | + | sub CARG4, RC, #8 + | str CARG3, L:RA->top // Clear coroutine stack. + |5: // Move results from coroutine. + | ldr TMP0, [CARG3, RB] + | cmp RB, CARG4 + | str TMP0, [BASE, RB] + | add RB, RB, #8 + | bne <5 + |6: + |.if resume + | mov_true TMP1 + | add RC, RC, #16 + |7: + | str TMP1, [BASE, #-8] // Prepend true/false to results. + | sub RA, BASE, #8 + |.else + | mov RA, BASE + | add RC, RC, #8 + |.endif + | ands CARG1, PC, #FRAME_TYPE + | str PC, SAVE_PC + | str RCw, SAVE_MULTRES + | beq ->BC_RET_Z + | b ->vm_return + | + |8: // Coroutine returned with error (at co->top-1). + |.if resume + | ldr TMP0, [CARG4, #-8]! + | mov_false TMP1 + | mov RC, #(2+1)*8 + | str CARG4, L:RA->top // Remove error from coroutine stack. + | str TMP0, [BASE] // Copy error message. + | b <7 + |.else + | mov CARG1, L + | mov CARG2, L:RA + | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) + | // Never returns. + |.endif + | + |9: // Handle stack expansion on return from yield. + | mov CARG1, L + | lsr CARG2, RC, #3 + | bl extern lj_state_growstack // (lua_State *L, int n) + | mov CRET1, #0 + | b <4 + |.endmacro + | + | coroutine_resume_wrap 1 // coroutine.resume + | coroutine_resume_wrap 0 // coroutine.wrap + | + |.ffunc coroutine_yield + | ldr TMP0, L->cframe + | add TMP1, BASE, NARGS8:RC + | mov CRET1, #LUA_YIELD + | stp BASE, TMP1, L->base + | tbz TMP0, #0, ->fff_fallback + | str xzr, L->cframe + | strb CRET1w, L->status + | b ->vm_leave_unw + | + |//-- Math library ------------------------------------------------------- + | + |.macro math_round, func, round + | .ffunc math_ .. func + | ldr CARG1, [BASE] + | cmp NARGS8:RC, #8 + | ldr d0, [BASE] + | blo ->fff_fallback + | cmp TISNUMhi, CARG1, lsr #32 + | beq ->fff_restv + | round d0, d0 + | b ->fff_resn + |.endmacro + | + | math_round floor, frintm + | math_round ceil, frintp + | + |.ffunc_1 math_abs + | checknumber CARG1, ->fff_fallback + | and CARG1, CARG1, #U64x(7fffffff,ffffffff) + | bne ->fff_restv + | eor CARG2w, CARG1w, CARG1w, asr #31 + | movz CARG3, #0x41e0, lsl #48 // 2^31. + | subs CARG1w, CARG2w, CARG1w, asr #31 + | add CARG1, CARG1, TISNUM + | csel CARG1, CARG1, CARG3, pl + | // Fallthrough. + | + |->fff_restv: + | // CARG1 = TValue result. + | ldr PC, [BASE, FRAME_PC] + | str CARG1, [BASE, #-16] + |->fff_res1: + | // PC = return. + | mov RC, #(1+1)*8 + |->fff_res: + | // RC = (nresults+1)*8, PC = return. + | ands CARG1, PC, #FRAME_TYPE + | str RCw, SAVE_MULTRES + | sub RA, BASE, #16 + | bne ->vm_return + | ldr INSw, [PC, #-4] + | decode_RB RB, INS + |5: + | cmp RC, RB, lsl #3 // More results expected? + | blo >6 + | decode_RA TMP1, INS + | // Adjust BASE. KBASE is assumed to be set for the calling frame. + | sub BASE, RA, TMP1, lsl #3 + | ins_next + | + |6: // Fill up results with nil. + | add TMP1, RA, RC + | add RC, RC, #8 + | str TISNIL, [TMP1, #-8] + | b <5 + | + |.macro math_extern, func + | .ffunc_n math_ .. func + | bl extern func + | b ->fff_resn + |.endmacro + | + |.macro math_extern2, func + | .ffunc_nn math_ .. func + | bl extern func + | b ->fff_resn + |.endmacro + | + |.ffunc_n math_sqrt + | fsqrt d0, d0 + |->fff_resn: + | ldr PC, [BASE, FRAME_PC] + | str d0, [BASE, #-16] + | b ->fff_res1 + | + |.ffunc math_log + | ldr CARG1, [BASE] + | cmp NARGS8:RC, #8 + | ldr FARG1, [BASE] + | bne ->fff_fallback // Need exactly 1 argument. + | checknum CARG1, ->fff_fallback + | bl extern log + | b ->fff_resn + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan + | math_extern sinh + | math_extern cosh + | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod + | + |.ffunc_2 math_ldexp + | ldr FARG1, [BASE] + | checknum CARG1, ->fff_fallback + | checkint CARG2, ->fff_fallback + | sxtw CARG1, CARG2w + | bl extern ldexp // (double x, int exp) + | b ->fff_resn + | + |.ffunc_n math_frexp + | add CARG1, sp, TMPDofs + | bl extern frexp + | ldr CARG2w, TMPD + | ldr PC, [BASE, FRAME_PC] + | str d0, [BASE, #-16] + | mov RC, #(2+1)*8 + | add CARG2, CARG2, TISNUM + | str CARG2, [BASE, #-8] + | b ->fff_res + | + |.ffunc_n math_modf + | sub CARG1, BASE, #16 + | ldr PC, [BASE, FRAME_PC] + | bl extern modf + | mov RC, #(2+1)*8 + | str d0, [BASE, #-8] + | b ->fff_res + | + |.macro math_minmax, name, cond, fcond + | .ffunc_1 name + | add RB, BASE, RC + | add RA, BASE, #8 + | checkint CARG1, >4 + |1: // Handle integers. + | ldr CARG2, [RA] + | cmp RA, RB + | bhs ->fff_restv + | checkint CARG2, >3 + | cmp CARG1w, CARG2w + | add RA, RA, #8 + | csel CARG1, CARG2, CARG1, cond + | b <1 + |3: // Convert intermediate result to number and continue below. + | scvtf d0, CARG1w + | blo ->fff_fallback + | ldr d1, [RA] + | b >6 + | + |4: + | ldr d0, [BASE] + | blo ->fff_fallback + |5: // Handle numbers. + | ldr CARG2, [RA] + | ldr d1, [RA] + | cmp RA, RB + | bhs ->fff_resn + | checknum CARG2, >7 + |6: + | fcmp d0, d1 + | add RA, RA, #8 + | fcsel d0, d1, d0, fcond + | b <5 + |7: // Convert integer to number and continue above. + | scvtf d1, CARG2w + | blo ->fff_fallback + | b <6 + |.endmacro + | + | math_minmax math_min, gt, hi + | math_minmax math_max, lt, lo + | + |//-- String library ----------------------------------------------------- + | + |.ffunc string_byte // Only handle the 1-arg case here. + | ldp PC, CARG1, [BASE, FRAME_PC] + | cmp NARGS8:RC, #8 + | asr ITYPE, CARG1, #47 + | ccmn ITYPE, #-LJ_TSTR, #0, eq + | and STR:CARG1, CARG1, #LJ_GCVMASK + | bne ->fff_fallback + | ldrb TMP0w, STR:CARG1[1] // Access is always ok (NUL at end). + | ldr CARG3w, STR:CARG1->len + | add TMP0, TMP0, TISNUM + | str TMP0, [BASE, #-16] + | mov RC, #(0+1)*8 + | cbz CARG3, ->fff_res + | b ->fff_res1 + | + |.ffunc string_char // Only handle the 1-arg case here. + | ffgccheck + | ldp PC, CARG1, [BASE, FRAME_PC] + | cmp CARG1w, #255 + | ccmp NARGS8:RC, #8, #0, ls // Need exactly 1 argument. + | bne ->fff_fallback + | checkint CARG1, ->fff_fallback + | mov CARG3, #1 + | mov CARG2, BASE // Points to stack. Little-endian. + |->fff_newstr: + | // CARG2 = str, CARG3 = len. + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + |->fff_resstr: + | // Returns GCstr *. + | ldr BASE, L->base + | movn TMP1, #~LJ_TSTR + | add CARG1, CARG1, TMP1, lsl #47 + | b ->fff_restv + | + |.ffunc string_sub + | ffgccheck + | ldr CARG1, [BASE] + | ldr CARG3, [BASE, #16] + | cmp NARGS8:RC, #16 + | movn RB, #0 + | beq >1 + | blo ->fff_fallback + | checkint CARG3, ->fff_fallback + | sxtw RB, CARG3w + |1: + | ldr CARG2, [BASE, #8] + | checkstr CARG1, ->fff_fallback + | ldr TMP1w, STR:CARG1->len + | checkint CARG2, ->fff_fallback + | sxtw CARG2, CARG2w + | // CARG1 = str, TMP1 = str->len, CARG2 = start, RB = end + | add TMP2, RB, TMP1 + | cmp RB, #0 + | add TMP0, CARG2, TMP1 + | csinc RB, RB, TMP2, ge // if (end < 0) end += len+1 + | cmp CARG2, #0 + | csinc CARG2, CARG2, TMP0, ge // if (start < 0) start += len+1 + | cmp RB, #0 + | csel RB, RB, xzr, ge // if (end < 0) end = 0 + | cmp CARG2, #1 + | csinc CARG2, CARG2, xzr, ge // if (start < 1) start = 1 + | cmp RB, TMP1 + | csel RB, RB, TMP1, le // if (end > len) end = len + | add CARG1, STR:CARG1, #sizeof(GCstr)-1 + | subs CARG3, RB, CARG2 // len = end - start + | add CARG2, CARG1, CARG2 + | add CARG3, CARG3, #1 // len += 1 + | bge ->fff_newstr + | add STR:CARG1, GL, #offsetof(global_State, strempty) + | movn TMP1, #~LJ_TSTR + | add CARG1, CARG1, TMP1, lsl #47 + | b ->fff_restv + | + |.macro ffstring_op, name + | .ffunc string_ .. name + | ffgccheck + | ldr CARG2, [BASE] + | cmp NARGS8:RC, #8 + | asr ITYPE, CARG2, #47 + | ccmn ITYPE, #-LJ_TSTR, #0, hs + | and STR:CARG2, CARG2, #LJ_GCVMASK + | bne ->fff_fallback + | ldr TMP0, GL->tmpbuf.b + | add SBUF:CARG1, GL, #offsetof(global_State, tmpbuf) + | str BASE, L->base + | str PC, SAVE_PC + | str L, GL->tmpbuf.L + | str TMP0, GL->tmpbuf.p + | bl extern lj_buf_putstr_ .. name + | bl extern lj_buf_tostr + | b ->fff_resstr + |.endmacro + | + |ffstring_op reverse + |ffstring_op lower + |ffstring_op upper + | + |//-- Bit library -------------------------------------------------------- + | + |// FP number to bit conversion for soft-float. Clobbers CARG1-CARG3 + |->vm_tobit_fb: + | bls ->fff_fallback + | add CARG2, CARG1, CARG1 + | mov CARG3, #1076 + | sub CARG3, CARG3, CARG2, lsr #53 + | cmp CARG3, #53 + | bhi >1 + | and CARG2, CARG2, #U64x(001fffff,ffffffff) + | orr CARG2, CARG2, #U64x(00200000,00000000) + | cmp CARG1, #0 + | lsr CARG2, CARG2, CARG3 + | cneg CARG1w, CARG2w, mi + | br lr + |1: + | mov CARG1w, #0 + | br lr + | + |.macro .ffunc_bit, name + | .ffunc_1 bit_..name + | adr lr, >1 + | checkint CARG1, ->vm_tobit_fb + |1: + |.endmacro + | + |.macro .ffunc_bit_op, name, ins + | .ffunc_bit name + | mov RA, #8 + | mov TMP0w, CARG1w + | adr lr, >2 + |1: + | ldr CARG1, [BASE, RA] + | cmp RA, NARGS8:RC + | add RA, RA, #8 + | bge >9 + | checkint CARG1, ->vm_tobit_fb + |2: + | ins TMP0w, TMP0w, CARG1w + | b <1 + |.endmacro + | + |.ffunc_bit_op band, and + |.ffunc_bit_op bor, orr + |.ffunc_bit_op bxor, eor + | + |.ffunc_bit tobit + | mov TMP0w, CARG1w + |9: // Label reused by .ffunc_bit_op users. + | add CARG1, TMP0, TISNUM + | b ->fff_restv + | + |.ffunc_bit bswap + | rev TMP0w, CARG1w + | add CARG1, TMP0, TISNUM + | b ->fff_restv + | + |.ffunc_bit bnot + | mvn TMP0w, CARG1w + | add CARG1, TMP0, TISNUM + | b ->fff_restv + | + |.macro .ffunc_bit_sh, name, ins, shmod + | .ffunc bit_..name + | ldp TMP0, CARG1, [BASE] + | cmp NARGS8:RC, #16 + | blo ->fff_fallback + | adr lr, >1 + | checkint CARG1, ->vm_tobit_fb + |1: + |.if shmod == 0 + | mov TMP1, CARG1 + |.else + | neg TMP1, CARG1 + |.endif + | mov CARG1, TMP0 + | adr lr, >2 + | checkint CARG1, ->vm_tobit_fb + |2: + | ins TMP0w, CARG1w, TMP1w + | add CARG1, TMP0, TISNUM + | b ->fff_restv + |.endmacro + | + |.ffunc_bit_sh lshift, lsl, 0 + |.ffunc_bit_sh rshift, lsr, 0 + |.ffunc_bit_sh arshift, asr, 0 + |.ffunc_bit_sh rol, ror, 1 + |.ffunc_bit_sh ror, ror, 0 + | + |//----------------------------------------------------------------------- + | + |->fff_fallback: // Call fast function fallback handler. + | // BASE = new base, RC = nargs*8 + | ldp CFUNC:CARG3, PC, [BASE, FRAME_FUNC] // Fallback may overwrite PC. + | ldr TMP2, L->maxstack + | add TMP1, BASE, NARGS8:RC + | stp BASE, TMP1, L->base + | and CFUNC:CARG3, CARG3, #LJ_GCVMASK + | add TMP1, TMP1, #8*LUA_MINSTACK + | ldr CARG3, CFUNC:CARG3->f + | str PC, SAVE_PC // Redundant (but a defined value). + | cmp TMP1, TMP2 + | mov CARG1, L + | bhi >5 // Need to grow stack. + | blr CARG3 // (lua_State *L) + | // Either throws an error, or recovers and returns -1, 0 or nresults+1. + | ldr BASE, L->base + | cmp CRET1w, #0 + | lsl RC, CRET1, #3 + | sub RA, BASE, #16 + | bgt ->fff_res // Returned nresults+1? + |1: // Returned 0 or -1: retry fast path. + | ldr CARG1, L->top + | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] + | sub NARGS8:RC, CARG1, BASE + | bne ->vm_call_tail // Returned -1? + | and CFUNC:CARG3, CARG3, #LJ_GCVMASK + | ins_callt // Returned 0: retry fast path. + | + |// Reconstruct previous base for vmeta_call during tailcall. + |->vm_call_tail: + | ands TMP0, PC, #FRAME_TYPE + | and TMP1, PC, #~FRAME_TYPEP + | bne >3 + | ldrb RAw, [PC, #-3] + | lsl RA, RA, #3 + | add TMP1, RA, #16 + |3: + | sub RB, BASE, TMP1 + | b ->vm_call_dispatch // Resolve again for tailcall. + | + |5: // Grow stack for fallback handler. + | mov CARG2, #LUA_MINSTACK + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldr BASE, L->base + | cmp CARG1, CARG1 // Set zero-flag to force retry. + | b <1 + | + |->fff_gcstep: // Call GC step function. + | // BASE = new base, RC = nargs*8 + | add CARG2, BASE, NARGS8:RC // Calculate L->top. + | mov RA, lr + | stp BASE, CARG2, L->base + | str PC, SAVE_PC // Redundant (but a defined value). + | mov CARG1, L + | bl extern lj_gc_step // (lua_State *L) + | ldp BASE, CARG2, L->base + | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] + | mov lr, RA // Help return address predictor. + | sub NARGS8:RC, CARG2, BASE // Calculate nargs*8. + | and CFUNC:CARG3, CARG3, #LJ_GCVMASK + | ret + | + |//----------------------------------------------------------------------- + |//-- Special dispatch targets ------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_record: // Dispatch target for recording phase. + | NYI + | + |->vm_rethook: // Dispatch target for return hooks. + | ldrb TMP2w, GL->hookmask + | tbz TMP2w, #HOOK_ACTIVE_SHIFT, >1 // Hook already active? + |5: // Re-dispatch to static ins. + | ldr TMP0, [TMP1, #GG_G2DISP+GG_DISP2STATIC] + | br TMP0 + | + |->vm_inshook: // Dispatch target for instr/line hooks. + | ldrb TMP2w, GL->hookmask + | ldr TMP3w, GL->hookcount + | tbnz TMP2w, #HOOK_ACTIVE_SHIFT, <5 // Hook already active? + | tst TMP2w, #LUA_MASKLINE|LUA_MASKCOUNT + | beq <5 + | sub TMP3w, TMP3w, #1 + | str TMP3w, GL->hookcount + | cbz TMP3w, >1 + | tbz TMP2w, #LUA_HOOKLINE, <5 + |1: + | mov CARG1, L + | str BASE, L->base + | mov CARG2, PC + | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. + | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) + |3: + | ldr BASE, L->base + |4: // Re-dispatch to static ins. + | ldr INSw, [PC, #-4] + | add TMP1, GL, INS, uxtb #3 + | decode_RA RA, INS + | ldr TMP0, [TMP1, #GG_G2DISP+GG_DISP2STATIC] + | decode_RD RC, INS + | br TMP0 + | + |->cont_hook: // Continue from hook yield. + | ldr CARG1, [CARG4, #-40] + | add PC, PC, #4 + | str CARG1w, SAVE_MULTRES // Restore MULTRES for *M ins. + | b <4 + | + |->vm_hotloop: // Hot loop counter underflow. + | NYI + | + |->vm_callhook: // Dispatch target for call hooks. + | mov CARG2, PC + |.if JIT + | b >1 + |.endif + | + |->vm_hotcall: // Hot call counter underflow. + |.if JIT + | orr CARG2, PC, #1 + |1: + |.endif + | add TMP1, BASE, NARGS8:RC + | str PC, SAVE_PC + | mov CARG1, L + | sub RA, RA, BASE + | stp BASE, TMP1, L->base + | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) + | // Returns ASMFunction. + | ldp BASE, TMP1, L->base + | str xzr, SAVE_PC // Invalidate for subsequent line hook. + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | add RA, BASE, RA + | sub NARGS8:RC, TMP1, BASE + | ldr INSw, [PC, #-4] + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | br CRET1 + | + |->cont_stitch: // Trace stitching. + | NYI + | + |->vm_profhook: // Dispatch target for profiler hook. +#if LJ_HASPROFILE + | mov CARG1, L + | str BASE, L->base + | mov CARG2, PC + | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) + | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. + | ldr BASE, L->base + | sub PC, PC, #4 + | b ->cont_nop +#endif + | + |//----------------------------------------------------------------------- + |//-- Trace exit handler ------------------------------------------------- + |//----------------------------------------------------------------------- + | + |->vm_exit_handler: + | NYI + |->vm_exit_interp: + | NYI + | + |//----------------------------------------------------------------------- + |//-- Math helper functions ---------------------------------------------- + |//----------------------------------------------------------------------- + | + | // int lj_vm_modi(int dividend, int divisor); + |->vm_modi: + | eor CARG4w, CARG1w, CARG2w + | cmp CARG4w, #0 + | eor CARG3w, CARG1w, CARG1w, asr #31 + | eor CARG4w, CARG2w, CARG2w, asr #31 + | sub CARG3w, CARG3w, CARG1w, asr #31 + | sub CARG4w, CARG4w, CARG2w, asr #31 + | udiv CARG1w, CARG3w, CARG4w + | msub CARG1w, CARG1w, CARG4w, CARG3w + | ccmp CARG1w, #0, #4, mi + | sub CARG3w, CARG1w, CARG4w + | csel CARG1w, CARG1w, CARG3w, eq + | eor CARG3w, CARG1w, CARG2w + | cmp CARG3w, #0 + | cneg CARG1w, CARG1w, mi + | ret + | + |//----------------------------------------------------------------------- + |//-- Miscellaneous functions -------------------------------------------- + |//----------------------------------------------------------------------- + | + |//----------------------------------------------------------------------- + |//-- FFI helper functions ----------------------------------------------- + |//----------------------------------------------------------------------- + | + |// Handler for callback functions. + |// Saveregs already performed. Callback slot number in [sp], g in r12. + |->vm_ffi_callback: + |.if FFI + |.type CTSTATE, CTState, PC + | saveregs + | ldr CTSTATE, GL:x10->ctype_state + | mov GL, x10 + | add x10, sp, # CFRAME_SPACE + | str w9, CTSTATE->cb.slot + | stp x0, x1, CTSTATE->cb.gpr[0] + | stp d0, d1, CTSTATE->cb.fpr[0] + | stp x2, x3, CTSTATE->cb.gpr[2] + | stp d2, d3, CTSTATE->cb.fpr[2] + | stp x4, x5, CTSTATE->cb.gpr[4] + | stp d4, d5, CTSTATE->cb.fpr[4] + | stp x6, x7, CTSTATE->cb.gpr[6] + | stp d6, d7, CTSTATE->cb.fpr[6] + | str x10, CTSTATE->cb.stack + | mov CARG1, CTSTATE + | str CTSTATE, SAVE_PC // Any value outside of bytecode is ok. + | mov CARG2, sp + | bl extern lj_ccallback_enter // (CTState *cts, void *cf) + | // Returns lua_State *. + | ldp BASE, RC, L:CRET1->base + | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 + | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 + | movn TISNIL, #0 + | mov L, CRET1 + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | sub RC, RC, BASE + | st_vmstate ST_INTERP + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | ins_callt + |.endif + | + |->cont_ffi_callback: // Return from FFI callback. + |.if FFI + | ldr CTSTATE, GL->ctype_state + | stp BASE, CARG4, L->base + | str L, CTSTATE->L + | mov CARG1, CTSTATE + | mov CARG2, RA + | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) + | ldp x0, x1, CTSTATE->cb.gpr[0] + | ldp d0, d1, CTSTATE->cb.fpr[0] + | b ->vm_leave_unw + |.endif + | + |->vm_ffi_call: // Call C function via FFI. + | // Caveat: needs special frame unwinding, see below. + |.if FFI + | .type CCSTATE, CCallState, x19 + | stp fp, lr, [sp, #-32]! + | add fp, sp, #0 + | str CCSTATE, [sp, #16] + | mov CCSTATE, x0 + | ldr TMP0w, CCSTATE:x0->spadj + | ldrb TMP1w, CCSTATE->nsp + | add TMP2, CCSTATE, #offsetof(CCallState, stack) + | subs TMP1, TMP1, #1 + | ldr TMP3, CCSTATE->func + | sub sp, fp, TMP0 + | bmi >2 + |1: // Copy stack slots + | ldr TMP0, [TMP2, TMP1, lsl #3] + | str TMP0, [sp, TMP1, lsl #3] + | subs TMP1, TMP1, #1 + | bpl <1 + |2: + | ldp x0, x1, CCSTATE->gpr[0] + | ldp d0, d1, CCSTATE->fpr[0] + | ldp x2, x3, CCSTATE->gpr[2] + | ldp d2, d3, CCSTATE->fpr[2] + | ldp x4, x5, CCSTATE->gpr[4] + | ldp d4, d5, CCSTATE->fpr[4] + | ldp x6, x7, CCSTATE->gpr[6] + | ldp d6, d7, CCSTATE->fpr[6] + | ldr x8, CCSTATE->retp + | blr TMP3 + | mov sp, fp + | stp x0, x1, CCSTATE->gpr[0] + | stp d0, d1, CCSTATE->fpr[0] + | stp d2, d3, CCSTATE->fpr[2] + | ldr CCSTATE, [sp, #16] + | ldp fp, lr, [sp], #32 + | ret + |.endif + |// Note: vm_ffi_call must be the last function in this object file! + | + |//----------------------------------------------------------------------- +} + +/* Generate the code for a single instruction. */ +static void build_ins(BuildCtx *ctx, BCOp op, int defop) +{ + int vk = 0; + |=>defop: + + switch (op) { + + /* -- Comparison ops ---------------------------------------------------- */ + + /* Remember: all ops branch for a true comparison, fall through otherwise. */ + + case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: + | // RA = src1, RC = src2, JMP with RC = target + | ldr CARG1, [BASE, RA, lsl #3] + | ldrh RBw, [PC, #2] + | ldr CARG2, [BASE, RC, lsl #3] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | sub RB, RB, #0x20000 + | checkint CARG1, >3 + | checkint CARG2, >4 + | cmp CARG1w, CARG2w + if (op == BC_ISLT) { + | csel PC, RB, PC, lt + } else if (op == BC_ISGE) { + | csel PC, RB, PC, ge + } else if (op == BC_ISLE) { + | csel PC, RB, PC, le + } else { + | csel PC, RB, PC, gt + } + |1: + | ins_next + | + |3: // RA not int. + | ldr FARG1, [BASE, RA, lsl #3] + | blo ->vmeta_comp + | ldr FARG2, [BASE, RC, lsl #3] + | cmp TISNUMhi, CARG2, lsr #32 + | bhi >5 + | bne ->vmeta_comp + | // RA number, RC int. + | scvtf FARG2, CARG2w + | b >5 + | + |4: // RA int, RC not int + | ldr FARG2, [BASE, RC, lsl #3] + | blo ->vmeta_comp + | // RA int, RC number. + | scvtf FARG1, CARG1w + | + |5: // RA number, RC number + | fcmp FARG1, FARG2 + | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. + if (op == BC_ISLT) { + | csel PC, RB, PC, lo + } else if (op == BC_ISGE) { + | csel PC, RB, PC, hs + } else if (op == BC_ISLE) { + | csel PC, RB, PC, ls + } else { + | csel PC, RB, PC, hi + } + | b <1 + break; + + case BC_ISEQV: case BC_ISNEV: + vk = op == BC_ISEQV; + | // RA = src1, RC = src2, JMP with RC = target + | ldr CARG1, [BASE, RA, lsl #3] + | add RC, BASE, RC, lsl #3 + | ldrh RBw, [PC, #2] + | ldr CARG3, [RC] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | sub RB, RB, #0x20000 + | asr ITYPE, CARG3, #47 + | cmn ITYPE, #-LJ_TISNUM + if (vk) { + | bls ->BC_ISEQN_Z + } else { + | bls ->BC_ISNEN_Z + } + | // RC is not a number. + | asr TMP0, CARG1, #47 + |.if FFI + | // Check if RC or RA is a cdata. + | cmn ITYPE, #-LJ_TCDATA + | ccmn TMP0, #-LJ_TCDATA, #4, ne + | beq ->vmeta_equal_cd + |.endif + | cmp CARG1, CARG3 + | bne >2 + | // Tag and value are equal. + if (vk) { + |->BC_ISEQV_Z: + | mov PC, RB // Perform branch. + } + |1: + | ins_next + | + |2: // Check if the tags are the same and it's a table or userdata. + | cmp ITYPE, TMP0 + | ccmn ITYPE, #-LJ_TISTABUD, #2, eq + if (vk) { + | bhi <1 + } else { + | bhi ->BC_ISEQV_Z // Reuse code from opposite instruction. + } + | // Different tables or userdatas. Need to check __eq metamethod. + | // Field metatable must be at same offset for GCtab and GCudata! + | and TAB:CARG2, CARG1, #LJ_GCVMASK + | ldr TAB:TMP2, TAB:CARG2->metatable + if (vk) { + | cbz TAB:TMP2, <1 // No metatable? + | ldrb TMP1w, TAB:TMP2->nomm + | mov CARG4, #0 // ne = 0 + | tbnz TMP1w, #MM_eq, <1 // 'no __eq' flag set: done. + } else { + | cbz TAB:TMP2, ->BC_ISEQV_Z // No metatable? + | ldrb TMP1w, TAB:TMP2->nomm + | mov CARG4, #1 // ne = 1. + | tbnz TMP1w, #MM_eq, ->BC_ISEQV_Z // 'no __eq' flag set: done. + } + | b ->vmeta_equal + break; + + case BC_ISEQS: case BC_ISNES: + vk = op == BC_ISEQS; + | // RA = src, RC = str_const (~), JMP with RC = target + | ldr CARG1, [BASE, RA, lsl #3] + | mvn RC, RC + | ldrh RBw, [PC, #2] + | ldr CARG2, [KBASE, RC, lsl #3] + | add PC, PC, #4 + | movn TMP0, #~LJ_TSTR + |.if FFI + | asr ITYPE, CARG1, #47 + |.endif + | add RB, PC, RB, lsl #2 + | add CARG2, CARG2, TMP0, lsl #47 + | sub RB, RB, #0x20000 + |.if FFI + | cmn ITYPE, #-LJ_TCDATA + | beq ->vmeta_equal_cd + |.endif + | cmp CARG1, CARG2 + if (vk) { + | csel PC, RB, PC, eq + } else { + | csel PC, RB, PC, ne + } + | ins_next + break; + + case BC_ISEQN: case BC_ISNEN: + vk = op == BC_ISEQN; + | // RA = src, RC = num_const (~), JMP with RC = target + | ldr CARG1, [BASE, RA, lsl #3] + | add RC, KBASE, RC, lsl #3 + | ldrh RBw, [PC, #2] + | ldr CARG3, [RC] + | add PC, PC, #4 + | add RB, PC, RB, lsl #2 + | sub RB, RB, #0x20000 + if (vk) { + |->BC_ISEQN_Z: + } else { + |->BC_ISNEN_Z: + } + | checkint CARG1, >4 + | checkint CARG3, >6 + | cmp CARG1w, CARG3w + |1: + if (vk) { + | csel PC, RB, PC, eq + |2: + } else { + |2: + | csel PC, RB, PC, ne + } + |3: + | ins_next + | + |4: // RA not int. + |.if FFI + | blo >7 + |.else + | blo <2 + |.endif + | ldr FARG1, [BASE, RA, lsl #3] + | ldr FARG2, [RC] + | cmp TISNUMhi, CARG3, lsr #32 + | bne >5 + | // RA number, RC int. + | scvtf FARG2, CARG3w + |5: + | // RA number, RC number. + | fcmp FARG1, FARG2 + | b <1 + | + |6: // RA int, RC number + | ldr FARG2, [RC] + | scvtf FARG1, CARG1w + | fcmp FARG1, FARG2 + | b <1 + | + |.if FFI + |7: + | asr ITYPE, CARG1, #47 + | cmn ITYPE, #-LJ_TCDATA + | bne <2 + | b ->vmeta_equal_cd + |.endif + break; + + case BC_ISEQP: case BC_ISNEP: + vk = op == BC_ISEQP; + | // RA = src, RC = primitive_type (~), JMP with RC = target + | ldr TMP0, [BASE, RA, lsl #3] + | ldrh RBw, [PC, #2] + | add PC, PC, #4 + | add RC, RC, #1 + | add RB, PC, RB, lsl #2 + |.if FFI + | asr ITYPE, TMP0, #47 + | cmn ITYPE, #-LJ_TCDATA + | beq ->vmeta_equal_cd + | cmn RC, ITYPE + |.else + | cmn RC, TMP0, asr #47 + |.endif + | sub RB, RB, #0x20000 + if (vk) { + | csel PC, RB, PC, eq + } else { + | csel PC, RB, PC, ne + } + | ins_next + break; + + /* -- Unary test and copy ops ------------------------------------------- */ + + case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: + | // RA = dst or unused, RC = src, JMP with RC = target + | ldrh RBw, [PC, #2] + | ldr TMP0, [BASE, RC, lsl #3] + | add PC, PC, #4 + | mov_false TMP1 + | add RB, PC, RB, lsl #2 + | cmp TMP0, TMP1 + | sub RB, RB, #0x20000 + if (op == BC_ISTC || op == BC_IST) { + if (op == BC_ISTC) { + | csel RA, RA, RC, lo + } + | csel PC, RB, PC, lo + } else { + if (op == BC_ISFC) { + | csel RA, RA, RC, hs + } + | csel PC, RB, PC, hs + } + if (op == BC_ISTC || op == BC_ISFC) { + | str TMP0, [BASE, RA, lsl #3] + } + | ins_next + break; + + case BC_ISTYPE: + | // RA = src, RC = -type + | ldr TMP0, [BASE, RA, lsl #3] + | cmn RC, TMP0, asr #47 + | bne ->vmeta_istype + | ins_next + break; + case BC_ISNUM: + | // RA = src, RC = -(TISNUM-1) + | ldr TMP0, [BASE, RA] + | checknum TMP0, ->vmeta_istype + | ins_next + break; + + /* -- Unary ops --------------------------------------------------------- */ + + case BC_MOV: + | // RA = dst, RC = src + | ldr TMP0, [BASE, RC, lsl #3] + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_NOT: + | // RA = dst, RC = src + | ldr TMP0, [BASE, RC, lsl #3] + | mov_false TMP1 + | mov_true TMP2 + | cmp TMP0, TMP1 + | csel TMP0, TMP1, TMP2, lo + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_UNM: + | // RA = dst, RC = src + | ldr TMP0, [BASE, RC, lsl #3] + | asr ITYPE, TMP0, #47 + | cmn ITYPE, #-LJ_TISNUM + | bhi ->vmeta_unm + | eor TMP0, TMP0, #U64x(80000000,00000000) + | bne >5 + | negs TMP0w, TMP0w + | movz CARG3, #0x41e0, lsl #48 // 2^31. + | add TMP0, TMP0, TISNUM + | csel TMP0, TMP0, CARG3, vc + |5: + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_LEN: + | // RA = dst, RC = src + | ldr CARG1, [BASE, RC, lsl #3] + | asr ITYPE, CARG1, #47 + | cmn ITYPE, #-LJ_TSTR + | and CARG1, CARG1, #LJ_GCVMASK + | bne >2 + | ldr CARG1w, STR:CARG1->len + |1: + | add CARG1, CARG1, TISNUM + | str CARG1, [BASE, RA, lsl #3] + | ins_next + | + |2: + | cmn ITYPE, #-LJ_TTAB + | bne ->vmeta_len +#if LJ_52 + | ldr TAB:CARG2, TAB:CARG1->metatable + | cbnz TAB:CARG2, >9 + |3: +#endif + |->BC_LEN_Z: + | bl extern lj_tab_len // (GCtab *t) + | // Returns uint32_t (but less than 2^31). + | b <1 + | +#if LJ_52 + |9: + | ldrb TMP1w, TAB:CARG2->nomm + | tbnz TMP1w, #MM_len, <3 // 'no __len' flag set: done. + | b ->vmeta_len +#endif + break; + + /* -- Binary ops -------------------------------------------------------- */ + + |.macro ins_arithcheck_int, target + | checkint CARG1, target + | checkint CARG2, target + |.endmacro + | + |.macro ins_arithcheck_num, target + | checknum CARG1, target + | checknum CARG2, target + |.endmacro + | + |.macro ins_arithcheck_nzdiv, target + | cbz CARG2w, target + |.endmacro + | + |.macro ins_arithhead + ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); + ||if (vk == 1) { + | and RC, RC, #255 + | decode_RB RB, INS + ||} else { + | decode_RB RB, INS + | and RC, RC, #255 + ||} + |.endmacro + | + |.macro ins_arithload, reg1, reg2 + | // RA = dst, RB = src1, RC = src2 | num_const + ||switch (vk) { + ||case 0: + | ldr reg1, [BASE, RB, lsl #3] + | ldr reg2, [KBASE, RC, lsl #3] + || break; + ||case 1: + | ldr reg1, [KBASE, RC, lsl #3] + | ldr reg2, [BASE, RB, lsl #3] + || break; + ||default: + | ldr reg1, [BASE, RB, lsl #3] + | ldr reg2, [BASE, RC, lsl #3] + || break; + ||} + |.endmacro + | + |.macro ins_arithfallback, ins + ||switch (vk) { + ||case 0: + | ins ->vmeta_arith_vn + || break; + ||case 1: + | ins ->vmeta_arith_nv + || break; + ||default: + | ins ->vmeta_arith_vv + || break; + ||} + |.endmacro + | + |.macro ins_arithmod, res, reg1, reg2 + | fdiv d2, reg1, reg2 + | frintm d2, d2 + | fmsub res, d2, reg2, reg1 + |.endmacro + | + |.macro ins_arithdn, intins, fpins + | ins_arithhead + | ins_arithload CARG1, CARG2 + | ins_arithcheck_int >5 + |.if "intins" == "smull" + | smull CARG1, CARG1w, CARG2w + | cmp CARG1, CARG1, sxtw + | mov CARG1w, CARG1w + | ins_arithfallback bne + |.elif "intins" == "ins_arithmodi" + | ins_arithfallback ins_arithcheck_nzdiv + | bl ->vm_modi + |.else + | intins CARG1w, CARG1w, CARG2w + | ins_arithfallback bvs + |.endif + | add CARG1, CARG1, TISNUM + | str CARG1, [BASE, RA, lsl #3] + |4: + | ins_next + | + |5: // FP variant. + | ins_arithload FARG1, FARG2 + | ins_arithfallback ins_arithcheck_num + | fpins FARG1, FARG1, FARG2 + | str FARG1, [BASE, RA, lsl #3] + | b <4 + |.endmacro + | + |.macro ins_arithfp, fpins + | ins_arithhead + | ins_arithload CARG1, CARG2 + | ins_arithload FARG1, FARG2 + | ins_arithfallback ins_arithcheck_num + |.if "fpins" == "fpow" + | bl extern pow + |.else + | fpins FARG1, FARG1, FARG2 + |.endif + | str FARG1, [BASE, RA, lsl #3] + | ins_next + |.endmacro + + case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: + | ins_arithdn adds, fadd + break; + case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: + | ins_arithdn subs, fsub + break; + case BC_MULVN: case BC_MULNV: case BC_MULVV: + | ins_arithdn smull, fmul + break; + case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: + | ins_arithfp fdiv + break; + case BC_MODVN: case BC_MODNV: case BC_MODVV: + | ins_arithdn ins_arithmodi, ins_arithmod + break; + case BC_POW: + | // NYI: (partial) integer arithmetic. + | ins_arithfp fpow + break; + + case BC_CAT: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = src_start, RC = src_end + | str BASE, L->base + | sub CARG3, RC, RB + | add CARG2, BASE, RC, lsl #3 + |->BC_CAT_Z: + | // RA = dst, CARG2 = top-1, CARG3 = left + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) + | // Returns NULL (finished) or TValue * (metamethod). + | ldrb RBw, [PC, #-1] + | ldr BASE, L->base + | cbnz CRET1, ->vmeta_binop + | ldr TMP0, [BASE, RB, lsl #3] + | str TMP0, [BASE, RA, lsl #3] // Copy result to RA. + | ins_next + break; + + /* -- Constant ops ------------------------------------------------------ */ + + case BC_KSTR: + | // RA = dst, RC = str_const (~) + | mvn RC, RC + | ldr TMP0, [KBASE, RC, lsl #3] + | movn TMP1, #~LJ_TSTR + | add TMP0, TMP0, TMP1, lsl #47 + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_KCDATA: + |.if FFI + | // RA = dst, RC = cdata_const (~) + | mvn RC, RC + | ldr TMP0, [KBASE, RC, lsl #3] + | movn TMP1, #~LJ_TCDATA + | add TMP0, TMP0, TMP1, lsl #47 + | str TMP0, [BASE, RA, lsl #3] + | ins_next + |.endif + break; + case BC_KSHORT: + | // RA = dst, RC = int16_literal + | sxth RCw, RCw + | add TMP0, RC, TISNUM + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_KNUM: + | // RA = dst, RC = num_const + | ldr TMP0, [KBASE, RC, lsl #3] + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_KPRI: + | // RA = dst, RC = primitive_type (~) + | mvn TMP0, RC, lsl #47 + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_KNIL: + | // RA = base, RC = end + | add RA, BASE, RA, lsl #3 + | add RC, BASE, RC, lsl #3 + | str TISNIL, [RA], #8 + |1: + | cmp RA, RC + | str TISNIL, [RA], #8 + | blt <1 + | ins_next_ + break; + + /* -- Upvalue and function ops ------------------------------------------ */ + + case BC_UGET: + | // RA = dst, RC = uvnum + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | add RC, RC, #offsetof(GCfuncL, uvptr)/8 + | and LFUNC:CARG2, CARG2, #LJ_GCVMASK + | ldr UPVAL:CARG2, [LFUNC:CARG2, RC, lsl #3] + | ldr CARG2, UPVAL:CARG2->v + | ldr TMP0, [CARG2] + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + case BC_USETV: + | // RA = uvnum, RC = src + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | add RA, RA, #offsetof(GCfuncL, uvptr)/8 + | and LFUNC:CARG2, CARG2, #LJ_GCVMASK + | ldr UPVAL:CARG1, [LFUNC:CARG2, RA, lsl #3] + | ldr CARG3, [BASE, RC, lsl #3] + | ldr CARG2, UPVAL:CARG1->v + | ldrb TMP2w, UPVAL:CARG1->marked + | ldrb TMP0w, UPVAL:CARG1->closed + | asr ITYPE, CARG3, #47 + | str CARG3, [CARG2] + | add ITYPE, ITYPE, #-LJ_TISGCV + | tst TMP2w, #LJ_GC_BLACK // isblack(uv) + | ccmp TMP0w, #0, #4, ne // && uv->closed + | ccmn ITYPE, #-(LJ_TNUMX - LJ_TISGCV), #0, ne // && tvisgcv(v) + | bhi >2 + |1: + | ins_next + | + |2: // Check if new value is white. + | and GCOBJ:CARG3, CARG3, #LJ_GCVMASK + | ldrb TMP1w, GCOBJ:CARG3->gch.marked + | tst TMP1w, #LJ_GC_WHITES // iswhite(str) + | beq <1 + | // Crossed a write barrier. Move the barrier forward. + | mov CARG1, GL + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETS: + | // RA = uvnum, RC = str_const (~) + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | add RA, RA, #offsetof(GCfuncL, uvptr)/8 + | mvn RC, RC + | and LFUNC:CARG2, CARG2, #LJ_GCVMASK + | ldr UPVAL:CARG1, [LFUNC:CARG2, RA, lsl #3] + | ldr STR:CARG3, [KBASE, RC, lsl #3] + | movn TMP0, #~LJ_TSTR + | ldr CARG2, UPVAL:CARG1->v + | ldrb TMP2w, UPVAL:CARG1->marked + | add TMP0, STR:CARG3, TMP0, lsl #47 + | ldrb TMP1w, STR:CARG3->marked + | str TMP0, [CARG2] + | tbnz TMP2w, #2, >2 // isblack(uv) + |1: + | ins_next + | + |2: // Check if string is white and ensure upvalue is closed. + | ldrb TMP0w, UPVAL:CARG1->closed + | tst TMP1w, #LJ_GC_WHITES // iswhite(str) + | ccmp TMP0w, #0, #0, ne + | beq <1 + | // Crossed a write barrier. Move the barrier forward. + | mov CARG1, GL + | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) + | b <1 + break; + case BC_USETN: + | // RA = uvnum, RC = num_const + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | add RA, RA, #offsetof(GCfuncL, uvptr)/8 + | and LFUNC:CARG2, CARG2, #LJ_GCVMASK + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA, lsl #3] + | ldr TMP0, [KBASE, RC, lsl #3] + | ldr CARG2, UPVAL:CARG2->v + | str TMP0, [CARG2] + | ins_next + break; + case BC_USETP: + | // RA = uvnum, RC = primitive_type (~) + | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] + | add RA, RA, #offsetof(GCfuncL, uvptr)/8 + | and LFUNC:CARG2, CARG2, #LJ_GCVMASK + | ldr UPVAL:CARG2, [LFUNC:CARG2, RA, lsl #3] + | mvn TMP0, RC, lsl #47 + | ldr CARG2, UPVAL:CARG2->v + | str TMP0, [CARG2] + | ins_next + break; + + case BC_UCLO: + | // RA = level, RC = target + | ldr CARG3, L->openupval + | add RC, PC, RC, lsl #2 + | str BASE, L->base + | sub PC, RC, #0x20000 + | cbz CARG3, >1 + | mov CARG1, L + | add CARG2, BASE, RA, lsl #3 + | bl extern lj_func_closeuv // (lua_State *L, TValue *level) + | ldr BASE, L->base + |1: + | ins_next + break; + + case BC_FNEW: + | // RA = dst, RC = proto_const (~) (holding function prototype) + | mvn RC, RC + | str BASE, L->base + | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] + | str PC, SAVE_PC + | ldr CARG2, [KBASE, RC, lsl #3] + | mov CARG1, L + | and LFUNC:CARG3, CARG3, #LJ_GCVMASK + | // (lua_State *L, GCproto *pt, GCfuncL *parent) + | bl extern lj_func_newL_gc + | // Returns GCfuncL *. + | ldr BASE, L->base + | movn TMP0, #~LJ_TFUNC + | add CRET1, CRET1, TMP0, lsl #47 + | str CRET1, [BASE, RA, lsl #3] + | ins_next + break; + + /* -- Table ops --------------------------------------------------------- */ + + case BC_TNEW: + case BC_TDUP: + | // RA = dst, RC = (hbits|asize) | tab_const (~) + | ldp CARG3, CARG4, GL->gc.total // Assumes threshold follows total. + | str BASE, L->base + | str PC, SAVE_PC + | mov CARG1, L + | cmp CARG3, CARG4 + | bhs >5 + |1: + if (op == BC_TNEW) { + | and CARG2, RC, #0x7ff + | lsr CARG3, RC, #11 + | cmp CARG2, #0x7ff + | mov TMP0, #0x801 + | csel CARG2, CARG2, TMP0, ne + | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) + | // Returns GCtab *. + } else { + | mvn RC, RC + | ldr CARG2, [KBASE, RC, lsl #3] + | bl extern lj_tab_dup // (lua_State *L, Table *kt) + | // Returns GCtab *. + } + | ldr BASE, L->base + | movk CRET1, #(LJ_TTAB>>1)&0xffff, lsl #48 + | str CRET1, [BASE, RA, lsl #3] + | ins_next + | + |5: + | bl extern lj_gc_step_fixtop // (lua_State *L) + | mov CARG1, L + | b <1 + break; + + case BC_GGET: + | // RA = dst, RC = str_const (~) + case BC_GSET: + | // RA = dst, RC = str_const (~) + | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] + | mvn RC, RC + | and LFUNC:CARG1, CARG1, #LJ_GCVMASK + | ldr TAB:CARG2, LFUNC:CARG1->env + | ldr STR:RC, [KBASE, RC, lsl #3] + if (op == BC_GGET) { + | b ->BC_TGETS_Z + } else { + | b ->BC_TSETS_Z + } + break; + + case BC_TGETV: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = table, RC = key + | ldr CARG2, [BASE, RB, lsl #3] + | ldr TMP1, [BASE, RC, lsl #3] + | checktab CARG2, ->vmeta_tgetv + | checkint TMP1, >9 // Integer key? + | ldr CARG3, TAB:CARG2->array + | ldr CARG1w, TAB:CARG2->asize + | add CARG3, CARG3, TMP1, uxtw #3 + | cmp TMP1w, CARG1w // In array part? + | bhs ->vmeta_tgetv + | ldr TMP0, [CARG3] + | cmp TMP0, TISNIL + | beq >5 + |1: + | str TMP0, [BASE, RA, lsl #3] + | ins_next + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <1 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_index, <1 // 'no __index' flag set: done. + | b ->vmeta_tgetv + | + |9: + | asr ITYPE, TMP1, #47 + | cmn ITYPE, #-LJ_TSTR // String key? + | bne ->vmeta_tgetv + | and STR:RC, TMP1, #LJ_GCVMASK + | b ->BC_TGETS_Z + break; + case BC_TGETS: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = table, RC = str_const (~) + | ldr CARG2, [BASE, RB, lsl #3] + | mvn RC, RC + | ldr STR:RC, [KBASE, RC, lsl #3] + | checktab CARG2, ->vmeta_tgets1 + |->BC_TGETS_Z: + | // TAB:CARG2 = GCtab *, STR:RC = GCstr *, RA = dst + | ldr TMP1w, TAB:CARG2->hmask + | ldr TMP2w, STR:RC->hash + | ldr NODE:CARG3, TAB:CARG2->node + | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask + | add TMP1, TMP1, TMP1, lsl #1 + | movn CARG4, #~LJ_TSTR + | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 + | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. + |1: + | ldp TMP0, CARG1, NODE:CARG3->val + | ldr NODE:CARG3, NODE:CARG3->next + | cmp CARG1, CARG4 + | bne >4 + | cmp TMP0, TISNIL + | beq >5 + |3: + | str TMP0, [BASE, RA, lsl #3] + | ins_next + | + |4: // Follow hash chain. + | cbnz NODE:CARG3, <1 + | // End of hash chain: key not found, nil result. + | mov TMP0, TISNIL + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <3 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_index, <3 // 'no __index' flag set: done. + | b ->vmeta_tgets + break; + case BC_TGETB: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = table, RC = index + | ldr CARG2, [BASE, RB, lsl #3] + | checktab CARG2, ->vmeta_tgetb + | ldr CARG3, TAB:CARG2->array + | ldr CARG1w, TAB:CARG2->asize + | add CARG3, CARG3, RC, lsl #3 + | cmp RCw, CARG1w // In array part? + | bhs ->vmeta_tgetb + | ldr TMP0, [CARG3] + | cmp TMP0, TISNIL + | beq >5 + |1: + | str TMP0, [BASE, RA, lsl #3] + | ins_next + | + |5: // Check for __index if table value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <1 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_index, <1 // 'no __index' flag set: done. + | b ->vmeta_tgetb + break; + case BC_TGETR: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = table, RC = key + | ldr CARG1, [BASE, RB, lsl #3] + | ldr TMP1, [BASE, RC, lsl #3] + | and TAB:CARG1, CARG1, #LJ_GCVMASK + | ldr CARG3, TAB:CARG1->array + | ldr TMP2w, TAB:CARG1->asize + | add CARG3, CARG3, TMP1w, uxtw #3 + | cmp TMP1w, TMP2w // In array part? + | bhs ->vmeta_tgetr + | ldr TMP0, [CARG3] + |->BC_TGETR_Z: + | str TMP0, [BASE, RA, lsl #3] + | ins_next + break; + + case BC_TSETV: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = src, RB = table, RC = key + | ldr CARG2, [BASE, RB, lsl #3] + | ldr TMP1, [BASE, RC, lsl #3] + | checktab CARG2, ->vmeta_tsetv + | checkint TMP1, >9 // Integer key? + | ldr CARG3, TAB:CARG2->array + | ldr CARG1w, TAB:CARG2->asize + | add CARG3, CARG3, TMP1, uxtw #3 + | cmp TMP1w, CARG1w // In array part? + | bhs ->vmeta_tsetv + | ldr TMP1, [CARG3] + | ldr TMP0, [BASE, RA, lsl #3] + | ldrb TMP2w, TAB:CARG2->marked + | cmp TMP1, TISNIL // Previous value is nil? + | beq >5 + |1: + | str TMP0, [CARG3] + | tbnz TMP2w, #2, >7 // isblack(table) + |2: + | ins_next + | + |5: // Check for __newindex if previous value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <1 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_newindex, <1 // 'no __newindex' flag set: done. + | b ->vmeta_tsetv + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP2w, TMP1 + | b <2 + | + |9: + | asr ITYPE, TMP1, #47 + | cmn ITYPE, #-LJ_TSTR // String key? + | bne ->vmeta_tsetv + | and STR:RC, TMP1, #LJ_GCVMASK + | b ->BC_TSETS_Z + break; + case BC_TSETS: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = dst, RB = table, RC = str_const (~) + | ldr CARG2, [BASE, RB, lsl #3] + | mvn RC, RC + | ldr STR:RC, [KBASE, RC, lsl #3] + | checktab CARG2, ->vmeta_tsets1 + |->BC_TSETS_Z: + | // TAB:CARG2 = GCtab *, STR:RC = GCstr *, RA = src + | ldr TMP1w, TAB:CARG2->hmask + | ldr TMP2w, STR:RC->hash + | ldr NODE:CARG3, TAB:CARG2->node + | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask + | add TMP1, TMP1, TMP1, lsl #1 + | movn CARG4, #~LJ_TSTR + | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 + | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. + | strb wzr, TAB:CARG2->nomm // Clear metamethod cache. + |1: + | ldp TMP1, CARG1, NODE:CARG3->val + | ldr NODE:TMP3, NODE:CARG3->next + | ldrb TMP2w, TAB:CARG2->marked + | cmp CARG1, CARG4 + | bne >5 + | ldr TMP0, [BASE, RA, lsl #3] + | cmp TMP1, TISNIL // Previous value is nil? + | beq >4 + |2: + | str TMP0, NODE:CARG3->val + | tbnz TMP2w, #2, >7 // isblack(table) + |3: + | ins_next + | + |4: // Check for __newindex if previous value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <2 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_newindex, <2 // 'no __newindex' flag set: done. + | b ->vmeta_tsets + | + |5: // Follow hash chain. + | mov NODE:CARG3, NODE:TMP3 + | cbnz NODE:TMP3, <1 + | // End of hash chain: key not found, add a new one. + | + | // But check for __newindex first. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, >6 // No metatable: continue. + | ldrb TMP1w, TAB:CARG1->nomm + | // 'no __newindex' flag NOT set: check. + | tbz TMP1w, #MM_newindex, ->vmeta_tsets + |6: + | movn TMP1, #~LJ_TSTR + | str PC, SAVE_PC + | add TMP0, STR:RC, TMP1, lsl #47 + | str BASE, L->base + | mov CARG1, L + | str TMP0, TMPD + | add CARG3, sp, TMPDofs + | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) + | // Returns TValue *. + | ldr BASE, L->base + | ldr TMP0, [BASE, RA, lsl #3] + | str TMP0, [CRET1] + | b <3 // No 2nd write barrier needed. + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP2w, TMP1 + | b <3 + break; + case BC_TSETB: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = src, RB = table, RC = index + | ldr CARG2, [BASE, RB, lsl #3] + | checktab CARG2, ->vmeta_tsetb + | ldr CARG3, TAB:CARG2->array + | ldr CARG1w, TAB:CARG2->asize + | add CARG3, CARG3, RC, lsl #3 + | cmp RCw, CARG1w // In array part? + | bhs ->vmeta_tsetb + | ldr TMP1, [CARG3] + | ldr TMP0, [BASE, RA, lsl #3] + | ldrb TMP2w, TAB:CARG2->marked + | cmp TMP1, TISNIL // Previous value is nil? + | beq >5 + |1: + | str TMP0, [CARG3] + | tbnz TMP2w, #2, >7 // isblack(table) + |2: + | ins_next + | + |5: // Check for __newindex if previous value is nil. + | ldr TAB:CARG1, TAB:CARG2->metatable + | cbz TAB:CARG1, <1 // No metatable: done. + | ldrb TMP1w, TAB:CARG1->nomm + | tbnz TMP1w, #MM_newindex, <1 // 'no __newindex' flag set: done. + | b ->vmeta_tsetb + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP2w, TMP1 + | b <2 + break; + case BC_TSETR: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = src, RB = table, RC = key + | ldr CARG2, [BASE, RB, lsl #3] + | ldr TMP1, [BASE, RC, lsl #3] + | and TAB:CARG2, CARG2, #LJ_GCVMASK + | ldr CARG1, TAB:CARG2->array + | ldrb TMP2w, TAB:CARG2->marked + | ldr CARG4w, TAB:CARG2->asize + | add CARG1, CARG1, TMP1, uxtw #3 + | tbnz TMP2w, #2, >7 // isblack(table) + |2: + | cmp TMP1w, CARG4w // In array part? + | bhs ->vmeta_tsetr + |->BC_TSETR_Z: + | ldr TMP0, [BASE, RA, lsl #3] + | str TMP0, [CARG1] + | ins_next + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP2w, TMP0 + | b <2 + break; + + case BC_TSETM: + | // RA = base (table at base-1), RC = num_const (start index) + | add RA, BASE, RA, lsl #3 + |1: + | ldr RBw, SAVE_MULTRES + | ldr TAB:CARG2, [RA, #-8] // Guaranteed to be a table. + | ldr TMP1, [KBASE, RC, lsl #3] // Integer constant is in lo-word. + | sub RB, RB, #8 + | cbz RB, >4 // Nothing to copy? + | and TAB:CARG2, CARG2, #LJ_GCVMASK + | ldr CARG1w, TAB:CARG2->asize + | add CARG3w, TMP1w, RBw, lsr #3 + | ldr CARG4, TAB:CARG2->array + | cmp CARG3, CARG1 + | add RB, RA, RB + | bhi >5 + | add TMP1, CARG4, TMP1w, uxtw #3 + | ldrb TMP2w, TAB:CARG2->marked + |3: // Copy result slots to table. + | ldr TMP0, [RA], #8 + | str TMP0, [TMP1], #8 + | cmp RA, RB + | blo <3 + | tbnz TMP2w, #2, >7 // isblack(table) + |4: + | ins_next + | + |5: // Need to resize array part. + | str BASE, L->base + | mov CARG1, L + | str PC, SAVE_PC + | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) + | // Must not reallocate the stack. + | b <1 + | + |7: // Possible table write barrier for any value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP2w, TMP1 + | b <4 + break; + + /* -- Calls and vararg handling ----------------------------------------- */ + + case BC_CALLM: + | // RA = base, (RB = nresults+1,) RC = extra_nargs + | ldr TMP0w, SAVE_MULTRES + | decode_RC8RD NARGS8:RC, RC + | add NARGS8:RC, NARGS8:RC, TMP0 + | b ->BC_CALL_Z + break; + case BC_CALL: + | decode_RC8RD NARGS8:RC, RC + | // RA = base, (RB = nresults+1,) RC = (nargs+1)*8 + |->BC_CALL_Z: + | mov RB, BASE // Save old BASE for vmeta_call. + | add BASE, BASE, RA, lsl #3 + | ldr CARG3, [BASE] + | sub NARGS8:RC, NARGS8:RC, #8 + | add BASE, BASE, #16 + | checkfunc CARG3, ->vmeta_call + | ins_call + break; + + case BC_CALLMT: + | // RA = base, (RB = 0,) RC = extra_nargs + | ldr TMP0w, SAVE_MULTRES + | add NARGS8:RC, TMP0, RC, lsl #3 + | b ->BC_CALLT1_Z + break; + case BC_CALLT: + | lsl NARGS8:RC, RC, #3 + | // RA = base, (RB = 0,) RC = (nargs+1)*8 + |->BC_CALLT1_Z: + | add RA, BASE, RA, lsl #3 + | ldr TMP1, [RA] + | sub NARGS8:RC, NARGS8:RC, #8 + | add RA, RA, #16 + | checktp CARG3, TMP1, LJ_TFUNC, ->vmeta_callt + | ldr PC, [BASE, FRAME_PC] + |->BC_CALLT2_Z: + | mov RB, #0 + | ldrb TMP2w, LFUNC:CARG3->ffid + | tst PC, #FRAME_TYPE + | bne >7 + |1: + | str TMP1, [BASE, FRAME_FUNC] // Copy function down, but keep PC. + | cbz NARGS8:RC, >3 + |2: + | ldr TMP0, [RA, RB] + | add TMP1, RB, #8 + | cmp TMP1, NARGS8:RC + | str TMP0, [BASE, RB] + | mov RB, TMP1 + | bne <2 + |3: + | cmp TMP2, #1 // (> FF_C) Calling a fast function? + | bhi >5 + |4: + | ins_callt + | + |5: // Tailcall to a fast function with a Lua frame below. + | ldrb RAw, [PC, #-3] + | sub CARG1, BASE, RA, lsl #3 + | ldr LFUNC:CARG1, [CARG1, #-32] + | and LFUNC:CARG1, CARG1, #LJ_GCVMASK + | ldr CARG1, LFUNC:CARG1->pc + | ldr KBASE, [CARG1, #PC2PROTO(k)] + | b <4 + | + |7: // Tailcall from a vararg function. + | eor PC, PC, #FRAME_VARG + | tst PC, #FRAME_TYPEP // Vararg frame below? + | csel TMP2, RB, TMP2, ne // Clear ffid if no Lua function below. + | bne <1 + | sub BASE, BASE, PC + | ldr PC, [BASE, FRAME_PC] + | tst PC, #FRAME_TYPE + | csel TMP2, RB, TMP2, ne // Clear ffid if no Lua function below. + | b <1 + break; + + case BC_ITERC: + | // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) + | add RA, BASE, RA, lsl #3 + | ldr CARG3, [RA, #-24] + | mov RB, BASE // Save old BASE for vmeta_call. + | ldp CARG1, CARG2, [RA, #-16] + | add BASE, RA, #16 + | mov NARGS8:RC, #16 // Iterators get 2 arguments. + | str CARG3, [RA] // Copy callable. + | stp CARG1, CARG2, [RA, #16] // Copy state and control var. + | checkfunc CARG3, ->vmeta_call + | ins_call + break; + + case BC_ITERN: + | // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) + |.if JIT + | // NYI: add hotloop, record BC_ITERN. + |.endif + | add RA, BASE, RA, lsl #3 + | ldr TAB:RB, [RA, #-16] + | ldrh TMP3w, [PC, #2] + | ldr CARG1w, [RA, #-8] // Get index from control var. + | add PC, PC, #4 + | add TMP3, PC, TMP3, lsl #2 + | and TAB:RB, RB, #LJ_GCVMASK + | sub TMP3, TMP3, #0x20000 + | ldr TMP1w, TAB:RB->asize + | ldr CARG2, TAB:RB->array + |1: // Traverse array part. + | subs RC, CARG1, TMP1 + | add CARG3, CARG2, CARG1, lsl #3 + | bhs >5 // Index points after array part? + | ldr TMP0, [CARG3] + | cmp TMP0, TISNIL + | cinc CARG1, CARG1, eq // Skip holes in array part. + | beq <1 + | add CARG1, CARG1, TISNUM + | stp CARG1, TMP0, [RA] + | add CARG1, CARG1, #1 + |3: + | str CARG1w, [RA, #-8] // Update control var. + | mov PC, TMP3 + |4: + | ins_next + | + |5: // Traverse hash part. + | ldr TMP2w, TAB:RB->hmask + | ldr NODE:RB, TAB:RB->node + |6: + | add CARG1, RC, RC, lsl #1 + | cmp RC, TMP2 // End of iteration? Branch to ITERN+1. + | add NODE:CARG3, NODE:RB, CARG1, lsl #3 // node = tab->node + idx*3*8 + | bhi <4 + | ldp TMP0, CARG1, NODE:CARG3->val + | cmp TMP0, TISNIL + | add RC, RC, #1 + | beq <6 // Skip holes in hash part. + | stp CARG1, TMP0, [RA] + | add CARG1, RC, TMP1 + | b <3 + break; + + case BC_ISNEXT: + | // RA = base, RC = target (points to ITERN) + | add RA, BASE, RA, lsl #3 + | ldr CFUNC:CARG1, [RA, #-24] + | add RC, PC, RC, lsl #2 + | ldp TAB:CARG3, CARG4, [RA, #-16] + | sub RC, RC, #0x20000 + | checkfunc CFUNC:CARG1, >5 + | asr TMP0, TAB:CARG3, #47 + | ldrb TMP1w, CFUNC:CARG1->ffid + | cmn TMP0, #-LJ_TTAB + | ccmp CARG4, TISNIL, #0, eq + | ccmp TMP1w, #FF_next_N, #0, eq + | bne >5 + | mov TMP0w, #0xfffe7fff + | lsl TMP0, TMP0, #32 + | str TMP0, [RA, #-8] // Initialize control var. + |1: + | mov PC, RC + | ins_next + | + |5: // Despecialize bytecode if any of the checks fail. + | mov TMP0, #BC_JMP + | mov TMP1, #BC_ITERC + | strb TMP0w, [PC, #-4] + | strb TMP1w, [RC] + | b <1 + break; + + case BC_VARG: + | decode_RB RB, INS + | and RC, RC, #255 + | // RA = base, RB = (nresults+1), RC = numparams + | ldr TMP1, [BASE, FRAME_PC] + | add RC, BASE, RC, lsl #3 + | add RA, BASE, RA, lsl #3 + | add RC, RC, #FRAME_VARG + | add TMP2, RA, RB, lsl #3 + | sub RC, RC, TMP1 // RC = vbase + | // Note: RC may now be even _above_ BASE if nargs was < numparams. + | sub TMP3, BASE, #16 // TMP3 = vtop + | cbz RB, >5 + | sub TMP2, TMP2, #16 + |1: // Copy vararg slots to destination slots. + | cmp RC, TMP3 + | ldr TMP0, [RC], #8 + | csel TMP0, TMP0, TISNIL, lo + | cmp RA, TMP2 + | str TMP0, [RA], #8 + | blo <1 + |2: + | ins_next + | + |5: // Copy all varargs. + | ldr TMP0, L->maxstack + | subs TMP2, TMP3, RC + | csel RB, xzr, TMP2, le // MULTRES = (max(vtop-vbase,0)+1)*8 + | add RB, RB, #8 + | add TMP1, RA, TMP2 + | str RBw, SAVE_MULTRES + | ble <2 // Nothing to copy. + | cmp TMP1, TMP0 + | bhi >7 + |6: + | ldr TMP0, [RC], #8 + | str TMP0, [RA], #8 + | cmp RC, TMP3 + | blo <6 + | b <2 + | + |7: // Grow stack for varargs. + | lsr CARG2, TMP2, #3 + | stp BASE, RA, L->base + | mov CARG1, L + | sub RC, RC, BASE // Need delta, because BASE may change. + | str PC, SAVE_PC + | bl extern lj_state_growstack // (lua_State *L, int n) + | ldp BASE, RA, L->base + | add RC, BASE, RC + | sub TMP3, BASE, #16 + | b <6 + break; + + /* -- Returns ----------------------------------------------------------- */ + + case BC_RETM: + | // RA = results, RC = extra results + | ldr TMP0w, SAVE_MULTRES + | ldr PC, [BASE, FRAME_PC] + | add RA, BASE, RA, lsl #3 + | add RC, TMP0, RC, lsl #3 + | b ->BC_RETM_Z + break; + + case BC_RET: + | // RA = results, RC = nresults+1 + | ldr PC, [BASE, FRAME_PC] + | lsl RC, RC, #3 + | add RA, BASE, RA, lsl #3 + |->BC_RETM_Z: + | str RCw, SAVE_MULTRES + |1: + | ands CARG1, PC, #FRAME_TYPE + | eor CARG2, PC, #FRAME_VARG + | bne ->BC_RETV2_Z + | + |->BC_RET_Z: + | // BASE = base, RA = resultptr, RC = (nresults+1)*8, PC = return + | ldr INSw, [PC, #-4] + | subs TMP1, RC, #8 + | sub CARG3, BASE, #16 + | beq >3 + |2: + | ldr TMP0, [RA], #8 + | add BASE, BASE, #8 + | sub TMP1, TMP1, #8 + | str TMP0, [BASE, #-24] + | cbnz TMP1, <2 + |3: + | decode_RA RA, INS + | sub CARG4, CARG3, RA, lsl #3 + | decode_RB RB, INS + | ldr LFUNC:CARG1, [CARG4, FRAME_FUNC] + |5: + | cmp RC, RB, lsl #3 // More results expected? + | blo >6 + | and LFUNC:CARG1, CARG1, #LJ_GCVMASK + | mov BASE, CARG4 + | ldr CARG2, LFUNC:CARG1->pc + | ldr KBASE, [CARG2, #PC2PROTO(k)] + | ins_next + | + |6: // Fill up results with nil. + | add BASE, BASE, #8 + | add RC, RC, #8 + | str TISNIL, [BASE, #-24] + | b <5 + | + |->BC_RETV1_Z: // Non-standard return case. + | add RA, BASE, RA, lsl #3 + |->BC_RETV2_Z: + | tst CARG2, #FRAME_TYPEP + | bne ->vm_return + | // Return from vararg function: relocate BASE down. + | sub BASE, BASE, CARG2 + | ldr PC, [BASE, FRAME_PC] + | b <1 + break; + + case BC_RET0: case BC_RET1: + | // RA = results, RC = nresults+1 + | ldr PC, [BASE, FRAME_PC] + | lsl RC, RC, #3 + | str RCw, SAVE_MULTRES + | ands CARG1, PC, #FRAME_TYPE + | eor CARG2, PC, #FRAME_VARG + | bne ->BC_RETV1_Z + | ldr INSw, [PC, #-4] + if (op == BC_RET1) { + | ldr TMP0, [BASE, RA, lsl #3] + } + | sub CARG4, BASE, #16 + | decode_RA RA, INS + | sub BASE, CARG4, RA, lsl #3 + if (op == BC_RET1) { + | str TMP0, [CARG4], #8 + } + | decode_RB RB, INS + | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] + |5: + | cmp RC, RB, lsl #3 + | blo >6 + | and LFUNC:CARG1, CARG1, #LJ_GCVMASK + | ldr CARG2, LFUNC:CARG1->pc + | ldr KBASE, [CARG2, #PC2PROTO(k)] + | ins_next + | + |6: // Fill up results with nil. + | add RC, RC, #8 + | str TISNIL, [CARG4], #8 + | b <5 + break; + + /* -- Loops and branches ------------------------------------------------ */ + + |.define FOR_IDX, [RA]; .define FOR_TIDX, [RA, #4] + |.define FOR_STOP, [RA, #8]; .define FOR_TSTOP, [RA, #12] + |.define FOR_STEP, [RA, #16]; .define FOR_TSTEP, [RA, #20] + |.define FOR_EXT, [RA, #24]; .define FOR_TEXT, [RA, #28] + + case BC_FORL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IFORL follows. + break; + + case BC_JFORI: + case BC_JFORL: +#if !LJ_HASJIT + break; +#endif + case BC_FORI: + case BC_IFORL: + | // RA = base, RC = target (after end of loop or start of loop) + vk = (op == BC_IFORL || op == BC_JFORL); + | add RA, BASE, RA, lsl #3 + | ldp CARG1, CARG2, FOR_IDX // CARG1 = IDX, CARG2 = STOP + | ldr CARG3, FOR_STEP // CARG3 = STEP + if (op != BC_JFORL) { + | add RC, PC, RC, lsl #2 + | sub RC, RC, #0x20000 + } + | checkint CARG1, >5 + if (!vk) { + | checkint CARG2, ->vmeta_for + | checkint CARG3, ->vmeta_for + | tbnz CARG3w, #31, >4 + | cmp CARG1w, CARG2w + } else { + | adds CARG1w, CARG1w, CARG3w + | bvs >2 + | add TMP0, CARG1, TISNUM + | tbnz CARG3w, #31, >4 + | cmp CARG1w, CARG2w + } + |1: + if (op == BC_FORI) { + | csel PC, RC, PC, gt + } else if (op == BC_JFORI) { + | ldrh RCw, [RC, #-2] + } else if (op == BC_IFORL) { + | csel PC, RC, PC, le + } + if (vk) { + | str TMP0, FOR_IDX + | str TMP0, FOR_EXT + } else { + | str CARG1, FOR_EXT + } + if (op == BC_JFORI || op == BC_JFORL) { + | ble =>BC_JLOOP + } + |2: + | ins_next + | + |4: // Invert check for negative step. + | cmp CARG2w, CARG1w + | b <1 + | + |5: // FP loop. + | ldp d0, d1, FOR_IDX + | blo ->vmeta_for + if (!vk) { + | checknum CARG2, ->vmeta_for + | checknum CARG3, ->vmeta_for + | str d0, FOR_EXT + } else { + | ldr d2, FOR_STEP + | fadd d0, d0, d2 + } + | tbnz CARG3, #63, >7 + | fcmp d0, d1 + |6: + if (vk) { + | str d0, FOR_IDX + | str d0, FOR_EXT + } + if (op == BC_FORI) { + | csel PC, RC, PC, hi + } else if (op == BC_JFORI) { + | ldrh RCw, [RC, #-2] + | bls =>BC_JLOOP + } else if (op == BC_IFORL) { + | csel PC, RC, PC, ls + } else { + | bls =>BC_JLOOP + } + | b <2 + | + |7: // Invert check for negative step. + | fcmp d1, d0 + | b <6 + break; + + case BC_ITERL: + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_IITERL follows. + break; + + case BC_JITERL: +#if !LJ_HASJIT + break; +#endif + case BC_IITERL: + | // RA = base, RC = target + | ldr CARG1, [BASE, RA, lsl #3] + | add TMP1, BASE, RA, lsl #3 + | cmp CARG1, TISNIL + | beq >1 // Stop if iterator returned nil. + if (op == BC_JITERL) { + | str CARG1, [TMP1, #-8] + | b =>BC_JLOOP + } else { + | add TMP0, PC, RC, lsl #2 // Otherwise save control var + branch. + | sub PC, TMP0, #0x20000 + | str CARG1, [TMP1, #-8] + } + |1: + | ins_next + break; + + case BC_LOOP: + | // RA = base, RC = target (loop extent) + | // Note: RA/RC is only used by trace recorder to determine scope/extent + | // This opcode does NOT jump, it's only purpose is to detect a hot loop. + |.if JIT + | hotloop + |.endif + | // Fall through. Assumes BC_ILOOP follows. + break; + + case BC_ILOOP: + | // RA = base, RC = target (loop extent) + | ins_next + break; + + case BC_JLOOP: + |.if JIT + | NYI + |.endif + break; + + case BC_JMP: + | // RA = base (only used by trace recorder), RC = target + | add RC, PC, RC, lsl #2 + | sub PC, RC, #0x20000 + | ins_next + break; + + /* -- Function headers -------------------------------------------------- */ + + case BC_FUNCF: + |.if JIT + | hotcall + |.endif + case BC_FUNCV: /* NYI: compiled vararg functions. */ + | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. + break; + + case BC_JFUNCF: +#if !LJ_HASJIT + break; +#endif + case BC_IFUNCF: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 + | ldr CARG1, L->maxstack + | ldrb TMP1w, [PC, #-4+PC2PROTO(numparams)] + | ldr KBASE, [PC, #-4+PC2PROTO(k)] + | cmp RA, CARG1 + | bhi ->vm_growstack_l + |2: + | cmp NARGS8:RC, TMP1, lsl #3 // Check for missing parameters. + | blo >3 + if (op == BC_JFUNCF) { + | decode_RD RC, INS + | b =>BC_JLOOP + } else { + | ins_next + } + | + |3: // Clear missing parameters. + | str TISNIL, [BASE, NARGS8:RC] + | add NARGS8:RC, NARGS8:RC, #8 + | b <2 + break; + + case BC_JFUNCV: +#if !LJ_HASJIT + break; +#endif + | NYI // NYI: compiled vararg functions + break; /* NYI: compiled vararg functions. */ + + case BC_IFUNCV: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 + | ldr CARG1, L->maxstack + | add TMP2, BASE, RC + | add RA, RA, RC + | add TMP0, RC, #16+FRAME_VARG + | str LFUNC:CARG3, [TMP2], #8 // Store (untagged) copy of LFUNC. + | ldr KBASE, [PC, #-4+PC2PROTO(k)] + | cmp RA, CARG1 + | str TMP0, [TMP2], #8 // Store delta + FRAME_VARG. + | bhs ->vm_growstack_l + | sub RC, TMP2, #16 + | ldrb TMP1w, [PC, #-4+PC2PROTO(numparams)] + | mov RA, BASE + | mov BASE, TMP2 + | cbz TMP1, >2 + |1: + | cmp RA, RC // Less args than parameters? + | bhs >3 + | ldr TMP0, [RA] + | sub TMP1, TMP1, #1 + | str TISNIL, [RA], #8 // Clear old fixarg slot (help the GC). + | str TMP0, [TMP2], #8 + | cbnz TMP1, <1 + |2: + | ins_next + | + |3: + | sub TMP1, TMP1, #1 + | str TISNIL, [TMP2], #8 + | cbz TMP1, <2 + | b <3 + break; + + case BC_FUNCC: + case BC_FUNCCW: + | // BASE = new base, RA = BASE+framesize*8, CARG3 = CFUNC, RC = nargs*8 + if (op == BC_FUNCC) { + | ldr CARG4, CFUNC:CARG3->f + } else { + | ldr CARG4, GL->wrapf + } + | add CARG2, RA, NARGS8:RC + | ldr CARG1, L->maxstack + | add RC, BASE, NARGS8:RC + | cmp CARG2, CARG1 + | stp BASE, RC, L->base + if (op == BC_FUNCCW) { + | ldr CARG2, CFUNC:CARG3->f + } + | mv_vmstate TMP0w, C + | mov CARG1, L + | bhi ->vm_growstack_c // Need to grow stack. + | st_vmstate TMP0w + | blr CARG4 // (lua_State *L [, lua_CFunction f]) + | // Returns nresults. + | ldp BASE, TMP1, L->base + | str L, GL->cur_L + | sbfiz RC, CRET1, #3, #32 + | st_vmstate ST_INTERP + | ldr PC, [BASE, FRAME_PC] + | sub RA, TMP1, RC // RA = L->top - nresults*8 + | b ->vm_returnc + break; + + /* ---------------------------------------------------------------------- */ + + default: + fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); + exit(2); + break; + } +} + +static int build_backend(BuildCtx *ctx) +{ + int op; + + dasm_growpc(Dst, BC__MAX); + + build_subroutines(ctx); + + |.code_op + for (op = 0; op < BC__MAX; op++) + build_ins(ctx, (BCOp)op, op); + + return BC__MAX; +} + +/* Emit pseudo frame-info for all assembler functions. */ +static void emit_asm_debug(BuildCtx *ctx) +{ + int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); + int i, cf = CFRAME_SIZE >> 3; + switch (ctx->mode) { + case BUILD_elfasm: + fprintf(ctx->fp, "\t.section .debug_frame,\"\",%%progbits\n"); + fprintf(ctx->fp, + ".Lframe0:\n" + "\t.long .LECIE0-.LSCIE0\n" + ".LSCIE0:\n" + "\t.long 0xffffffff\n" + "\t.byte 0x1\n" + "\t.string \"\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -8\n" + "\t.byte 30\n" /* Return address is in lr. */ + "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ + "\t.align 3\n" + ".LECIE0:\n\n"); + fprintf(ctx->fp, + ".LSFDE0:\n" + "\t.long .LEFDE0-.LASFDE0\n" + ".LASFDE0:\n" + "\t.long .Lframe0\n" + "\t.quad .Lbegin\n" + "\t.quad %d\n" + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ + "\t.byte 0x9d\n\t.uleb128 %d\n" /* offset fp */ + "\t.byte 0x9e\n\t.uleb128 %d\n", /* offset lr */ + fcofs, CFRAME_SIZE, cf, cf-1); + for (i = 19; i <= 28; i++) /* offset x19-x28 */ + fprintf(ctx->fp, "\t.byte 0x%x\n\t.uleb128 %d\n", 0x80+i, cf-i+17); + for (i = 8; i <= 15; i++) /* offset d8-d15 */ + fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 0x%x\n\t.uleb128 %d\n", + 64+i, cf-i-4); + fprintf(ctx->fp, + "\t.align 3\n" + ".LEFDE0:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".LSFDE1:\n" + "\t.long .LEFDE1-.LASFDE1\n" + ".LASFDE1:\n" + "\t.long .Lframe0\n" + "\t.quad lj_vm_ffi_call\n" + "\t.quad %d\n" + "\t.byte 0xe\n\t.uleb128 32\n" /* def_cfa_offset */ + "\t.byte 0x9d\n\t.uleb128 4\n" /* offset fp */ + "\t.byte 0x9e\n\t.uleb128 3\n" /* offset lr */ + "\t.byte 0x93\n\t.uleb128 2\n" /* offset x19 */ + "\t.align 3\n" + ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); +#endif + fprintf(ctx->fp, "\t.section .eh_frame,\"a\",%%progbits\n"); + fprintf(ctx->fp, + ".Lframe1:\n" + "\t.long .LECIE1-.LSCIE1\n" + ".LSCIE1:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zPR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -8\n" + "\t.byte 30\n" /* Return address is in lr. */ + "\t.uleb128 6\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.long lj_err_unwind_dwarf-.\n" + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ + "\t.align 3\n" + ".LECIE1:\n\n"); + fprintf(ctx->fp, + ".LSFDE2:\n" + "\t.long .LEFDE2-.LASFDE2\n" + ".LASFDE2:\n" + "\t.long .LASFDE2-.Lframe1\n" + "\t.long .Lbegin-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ + "\t.byte 0x9d\n\t.uleb128 %d\n" /* offset fp */ + "\t.byte 0x9e\n\t.uleb128 %d\n", /* offset lr */ + fcofs, CFRAME_SIZE, cf, cf-1); + for (i = 19; i <= 28; i++) /* offset x19-x28 */ + fprintf(ctx->fp, "\t.byte 0x%x\n\t.uleb128 %d\n", 0x80+i, cf-i+17); + for (i = 8; i <= 15; i++) /* offset d8-d15 */ + fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 0x%x\n\t.uleb128 %d\n", + 64+i, cf-i-4); + fprintf(ctx->fp, + "\t.align 3\n" + ".LEFDE2:\n\n"); +#if LJ_HASFFI + fprintf(ctx->fp, + ".Lframe2:\n" + "\t.long .LECIE2-.LSCIE2\n" + ".LSCIE2:\n" + "\t.long 0\n" + "\t.byte 0x1\n" + "\t.string \"zR\"\n" + "\t.uleb128 0x1\n" + "\t.sleb128 -8\n" + "\t.byte 30\n" /* Return address is in lr. */ + "\t.uleb128 1\n" /* augmentation length */ + "\t.byte 0x1b\n" /* pcrel|sdata4 */ + "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ + "\t.align 3\n" + ".LECIE2:\n\n"); + fprintf(ctx->fp, + ".LSFDE3:\n" + "\t.long .LEFDE3-.LASFDE3\n" + ".LASFDE3:\n" + "\t.long .LASFDE3-.Lframe2\n" + "\t.long lj_vm_ffi_call-.\n" + "\t.long %d\n" + "\t.uleb128 0\n" /* augmentation length */ + "\t.byte 0xe\n\t.uleb128 32\n" /* def_cfa_offset */ + "\t.byte 0x9d\n\t.uleb128 4\n" /* offset fp */ + "\t.byte 0x9e\n\t.uleb128 3\n" /* offset lr */ + "\t.byte 0x93\n\t.uleb128 2\n" /* offset x19 */ + "\t.align 3\n" + ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); +#endif + break; + default: + break; + } +} + diff --git a/src/3rd party/luajit-2.0/src/vm_mips.dasc b/src/3rd party/luajit-2.0/src/vm_mips.dasc index ac8346bbddc..7cfdf4b18b5 100644 --- a/src/3rd party/luajit-2.0/src/vm_mips.dasc +++ b/src/3rd party/luajit-2.0/src/vm_mips.dasc @@ -138,6 +138,7 @@ |.type NODE, Node |.type NARGS8, int |.type TRACE, GCtrace +|.type SBUF, SBuf | |//----------------------------------------------------------------------- | @@ -486,12 +487,13 @@ static void build_subroutines(BuildCtx *ctx) | addiu DISPATCH, DISPATCH, GG_G2DISP | sw r0, SAVE_NRES | sw r0, SAVE_ERRF - | sw TMP0, L->cframe + | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. | sw r0, SAVE_CFRAME | beqz TMP1, >3 - |. sw CARG1, SAVE_PC // Any value outside of bytecode is ok. + |. sw TMP0, L->cframe | | // Resume after yield (like a return). + | sw L, DISPATCH_GL(cur_L)(DISPATCH) | move RA, BASE | lw BASE, L->base | lw TMP1, L->top @@ -525,17 +527,18 @@ static void build_subroutines(BuildCtx *ctx) | |1: // Entry point for vm_pcall above (PC = ftype). | lw TMP1, L:CARG1->cframe - | sw CARG3, SAVE_NRES | move L, CARG1 - | sw CARG1, SAVE_L - | move BASE, CARG2 - | sw sp, L->cframe // Add our C frame to cframe chain. + | sw CARG3, SAVE_NRES | lw DISPATCH, L->glref // Setup pointer to dispatch table. + | sw CARG1, SAVE_L + | move BASE, CARG2 + | addiu DISPATCH, DISPATCH, GG_G2DISP | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. | sw TMP1, SAVE_CFRAME - | addiu DISPATCH, DISPATCH, GG_G2DISP + | sw sp, L->cframe // Add our C frame to cframe chain. | |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | sw L, DISPATCH_GL(cur_L)(DISPATCH) | lw TMP2, L->base // TMP2 = old base (used in vmeta_call). | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). | lw TMP1, L->top @@ -566,20 +569,21 @@ static void build_subroutines(BuildCtx *ctx) | lw TMP0, L:CARG1->stack | sw CARG1, SAVE_L | lw TMP1, L->top + | lw DISPATCH, L->glref // Setup pointer to dispatch table. | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. | subu TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). | lw TMP1, L->cframe - | sw sp, L->cframe // Add our C frame to cframe chain. + | addiu DISPATCH, DISPATCH, GG_G2DISP | sw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. | sw r0, SAVE_ERRF // No error function. - | move CFUNCADDR, CARG4 + | sw TMP1, SAVE_CFRAME + | sw sp, L->cframe // Add our C frame to cframe chain. + | sw L, DISPATCH_GL(cur_L)(DISPATCH) | jalr CARG4 // (lua_State *L, lua_CFunction func, void *ud) - |. sw TMP1, SAVE_CFRAME + |. move CFUNCADDR, CARG4 | move BASE, CRET1 - | lw DISPATCH, L->glref // Setup pointer to dispatch table. - | li PC, FRAME_CP | bnez CRET1, <3 // Else continue with the call. - |. addiu DISPATCH, DISPATCH, GG_G2DISP + |. li PC, FRAME_CP | b ->vm_leave_cp // No base? Just remove C frame. |. nop | @@ -688,6 +692,16 @@ static void build_subroutines(BuildCtx *ctx) | b ->vm_call_dispatch_f |. li NARGS8:RC, 16 // 2 args for func(t, k). | + |->vmeta_tgetr: + | load_got lj_tab_getinth + | call_intern lj_tab_getinth // (GCtab *t, int32_t key) + |. nop + | // Returns cTValue * or NULL. + | beqz CRET1, >1 + |. nop + | b ->BC_TGETR_Z + |. ldc1 f0, 0(CRET1) + | |//----------------------------------------------------------------------- | |->vmeta_tsets1: @@ -740,6 +754,16 @@ static void build_subroutines(BuildCtx *ctx) | b ->vm_call_dispatch_f |. li NARGS8:RC, 24 // 3 args for func(t, k, v) | + |->vmeta_tsetr: + | load_got lj_tab_setinth + | sw BASE, L->base + | sw PC, SAVE_PC + | call_intern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) + |. move CARG1, L + | // Returns TValue *. + | b ->BC_TSETR_Z + |. nop + | |//-- Comparison metamethods --------------------------------------------- | |->vmeta_comp: @@ -813,6 +837,18 @@ static void build_subroutines(BuildCtx *ctx) |. nop |.endif | + |->vmeta_istype: + | load_got lj_meta_istype + | addiu PC, PC, -4 + | sw BASE, L->base + | srl CARG2, RA, 3 + | srl CARG3, RD, 3 + | sw PC, SAVE_PC + | call_intern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) + |. move CARG1, L + | b ->cont_nop + |. nop + | |//-- Arithmetic metamethods --------------------------------------------- | |->vmeta_unm: @@ -1119,9 +1155,9 @@ static void build_subroutines(BuildCtx *ctx) |. sw BASE, L->base // Add frame since C call can throw. | ffgccheck |. sw PC, SAVE_PC // Redundant (but a defined value). - | load_got lj_str_fromnum + | load_got lj_strfmt_num | move CARG1, L - | call_intern lj_str_fromnum // (lua_State *L, lua_Number *np) + | call_intern lj_strfmt_num // (lua_State *L, lua_Number *np) |. move CARG2, BASE | // Returns GCstr *. | li CARG3, LJ_TSTR @@ -1188,7 +1224,7 @@ static void build_subroutines(BuildCtx *ctx) | mtc1 TMP0, FARG1 | beqz AT, ->fff_fallback |. lw PC, FRAME_PC(BASE) - | cvt.w.d FRET1, FARG2 + | trunc.w.d FRET1, FARG2 | cvt.d.w FARG1, FARG1 | lw TMP0, TAB:CARG1->asize | lw TMP1, TAB:CARG1->array @@ -1331,6 +1367,7 @@ static void build_subroutines(BuildCtx *ctx) | lw TMP3, L:RA->top | li_vmstate INTERP | lw BASE, L->base + | sw L, DISPATCH_GL(cur_L)(DISPATCH) | st_vmstate | beqz AT, >8 |. subu RD, TMP3, TMP2 @@ -1521,14 +1558,8 @@ static void build_subroutines(BuildCtx *ctx) | b ->fff_resn |. nop | - |->ff_math_deg: - |.ffunc_n math_rad - |. ldc1 FARG2, CFUNC:RB->upvalue[0] - | b ->fff_resn - |. mul.d FRET1, FARG1, FARG2 - | |.ffunc_nn math_ldexp - | cvt.w.d FARG2, FARG2 + | trunc.w.d FARG2, FARG2 | load_got ldexp | mfc1 CARG3, FARG2 | call_extern @@ -1592,13 +1623,6 @@ static void build_subroutines(BuildCtx *ctx) | |//-- String library ----------------------------------------------------- | - |.ffunc_1 string_len - | li AT, LJ_TSTR - | bne CARG3, AT, ->fff_fallback - |. nop - | b ->fff_resi - |. lw CRET1, STR:CARG1->len - | |.ffunc string_byte // Only handle the 1-arg case here. | lw CARG3, HI(BASE) | lw STR:CARG1, LO(BASE) @@ -1628,7 +1652,7 @@ static void build_subroutines(BuildCtx *ctx) |. sltiu AT, CARG3, LJ_TISNUM | beqz AT, ->fff_fallback |. li CARG3, 1 - | cvt.w.d FARG1, FARG1 + | trunc.w.d FARG1, FARG1 | addiu CARG2, sp, ARG5_OFS | sltiu AT, TMP0, 256 | mfc1 TMP0, FARG1 @@ -1642,6 +1666,7 @@ static void build_subroutines(BuildCtx *ctx) |. move CARG1, L | // Returns GCstr *. | lw BASE, L->base + |->fff_resstr: | move CARG1, CRET1 | b ->fff_restv |. li CARG3, LJ_TSTR @@ -1658,7 +1683,7 @@ static void build_subroutines(BuildCtx *ctx) | ldc1 f2, 8(BASE) | beqz AT, >1 |. li CARG4, -1 - | cvt.w.d f0, f0 + | trunc.w.d f0, f0 | sltiu AT, CARG3, LJ_TISNUM | beqz AT, ->fff_fallback |. mfc1 CARG4, f0 @@ -1666,7 +1691,7 @@ static void build_subroutines(BuildCtx *ctx) | sltiu AT, CARG2, LJ_TISNUM | beqz AT, ->fff_fallback |. li AT, LJ_TSTR - | cvt.w.d f2, f2 + | trunc.w.d f2, f2 | bne TMP0, AT, ->fff_fallback |. lw CARG2, STR:CARG1->len | mfc1 CARG3, f2 @@ -1695,108 +1720,32 @@ static void build_subroutines(BuildCtx *ctx) | b ->fff_restv |. li CARG3, LJ_TSTR | - |.ffunc string_rep // Only handle the 1-char case inline. - | ffgccheck - | lw TMP0, HI(BASE) - | addiu AT, NARGS8:RC, -16 // Exactly 2 arguments. - | lw CARG4, 8+HI(BASE) - | lw STR:CARG1, LO(BASE) - | addiu TMP0, TMP0, -LJ_TSTR - | ldc1 f0, 8(BASE) - | or AT, AT, TMP0 - | bnez AT, ->fff_fallback - |. sltiu AT, CARG4, LJ_TISNUM - | cvt.w.d f0, f0 - | beqz AT, ->fff_fallback - |. lw TMP0, STR:CARG1->len - | mfc1 CARG3, f0 - | lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | li AT, 1 - | blez CARG3, ->fff_emptystr // Count <= 0? - |. sltu AT, AT, TMP0 - | beqz TMP0, ->fff_emptystr // Zero length string? - |. sltu TMP0, TMP1, CARG3 - | or AT, AT, TMP0 - | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | bnez AT, ->fff_fallback // Fallback for > 1-char strings. - |. lbu TMP0, STR:CARG1[1] - | addu TMP2, CARG2, CARG3 - |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). - | addiu TMP2, TMP2, -1 - | sltu AT, CARG2, TMP2 - | bnez AT, <1 - |. sb TMP0, 0(TMP2) - | b ->fff_newstr - |. nop - | - |.ffunc string_reverse - | ffgccheck - | lw CARG3, HI(BASE) - | lw STR:CARG1, LO(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. li AT, LJ_TSTR - | bne CARG3, AT, ->fff_fallback - |. lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | lw CARG3, STR:CARG1->len - | addiu CARG1, STR:CARG1, #STR - | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | sltu AT, TMP1, CARG3 - | bnez AT, ->fff_fallback - |. addu TMP3, CARG1, CARG3 - | addu CARG4, CARG2, CARG3 - |1: // Reverse string copy. - | lbu TMP1, 0(CARG1) - | sltu AT, CARG1, TMP3 - | beqz AT, ->fff_newstr - |. addiu CARG1, CARG1, 1 - | addiu CARG4, CARG4, -1 - | b <1 - | sb TMP1, 0(CARG4) - | - |.macro ffstring_case, name, lo - | .ffunc name + |.macro ffstring_op, name + | .ffunc string_ .. name | ffgccheck | lw CARG3, HI(BASE) - | lw STR:CARG1, LO(BASE) + | lw STR:CARG2, LO(BASE) | beqz NARGS8:RC, ->fff_fallback |. li AT, LJ_TSTR | bne CARG3, AT, ->fff_fallback - |. lw TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | lw CARG3, STR:CARG1->len - | addiu CARG1, STR:CARG1, #STR - | lw CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | sltu AT, TMP1, CARG3 - | bnez AT, ->fff_fallback - |. addu TMP3, CARG1, CARG3 - | move CARG4, CARG2 - |1: // ASCII case conversion. - | lbu TMP1, 0(CARG1) - | sltu AT, CARG1, TMP3 - | beqz AT, ->fff_newstr - |. addiu TMP0, TMP1, -lo - | xori TMP2, TMP1, 0x20 - | sltiu AT, TMP0, 26 - | movn TMP1, TMP2, AT - | addiu CARG1, CARG1, 1 - | sb TMP1, 0(CARG4) - | b <1 - |. addiu CARG4, CARG4, 1 + |. addiu SBUF:CARG1, DISPATCH, DISPATCH_GL(tmpbuf) + | load_got lj_buf_putstr_ .. name + | lw TMP0, SBUF:CARG1->b + | sw L, SBUF:CARG1->L + | sw BASE, L->base + | sw TMP0, SBUF:CARG1->p + | call_intern extern lj_buf_putstr_ .. name + |. sw PC, SAVE_PC + | load_got lj_buf_tostr + | call_intern lj_buf_tostr + |. move SBUF:CARG1, SBUF:CRET1 + | b ->fff_resstr + |. lw BASE, L->base |.endmacro | - |ffstring_case string_lower, 65 - |ffstring_case string_upper, 97 - | - |//-- Table library ------------------------------------------------------ - | - |.ffunc_1 table_getn - | li AT, LJ_TTAB - | bne CARG3, AT, ->fff_fallback - |. load_got lj_tab_len - | call_intern lj_tab_len // (GCtab *t) - |. nop - | // Returns uint32_t (but less than 2^31). - | b ->fff_resi - |. nop + |ffstring_op reverse + |ffstring_op lower + |ffstring_op upper | |//-- Bit library -------------------------------------------------------- | @@ -2061,6 +2010,76 @@ static void build_subroutines(BuildCtx *ctx) | lw LFUNC:RB, FRAME_FUNC(BASE) | jr CRET1 |. lw INS, -4(PC) + | + |->cont_stitch: // Trace stitching. + |.if JIT + | // RA = resultptr, RB = meta base + | lw INS, -4(PC) + | lw TMP3, -24+LO(RB) // Save previous trace number. + | decode_RA8a RC, INS + | addiu AT, MULTRES, -8 + | decode_RA8b RC + | beqz AT, >2 + |. addu RC, BASE, RC // Call base. + |1: // Move results down. + | ldc1 f0, 0(RA) + | addiu AT, AT, -8 + | addiu RA, RA, 8 + | sdc1 f0, 0(RC) + | bnez AT, <1 + |. addiu RC, RC, 8 + |2: + | decode_RA8a RA, INS + | decode_RB8a RB, INS + | decode_RA8b RA + | decode_RB8b RB + | addu RA, RA, RB + | lw TMP1, DISPATCH_J(trace)(DISPATCH) + | addu RA, BASE, RA + |3: + | sltu AT, RC, RA + | bnez AT, >9 // More results wanted? + |. sll TMP2, TMP3, 2 + | + | addu TMP2, TMP1, TMP2 + | lw TRACE:TMP2, 0(TMP2) + | beqz TRACE:TMP2, ->cont_nop + |. nop + | lhu RD, TRACE:TMP2->link + | beq RD, TMP3, ->cont_nop // Blacklisted. + |. load_got lj_dispatch_stitch + | bnez RD, =>BC_JLOOP // Jump to stitched trace. + |. sll RD, RD, 3 + | + | // Stitch a new trace to the previous trace. + | sw TMP3, DISPATCH_J(exitno)(DISPATCH) + | sw L, DISPATCH_J(L)(DISPATCH) + | sw BASE, L->base + | addiu CARG1, DISPATCH, GG_DISP2J + | call_intern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) + |. move CARG2, PC + | b ->cont_nop + |. lw BASE, L->base + | + |9: + | sw TISNIL, HI(RC) + | b <3 + |. addiu RC, RC, 8 + |.endif + | + |->vm_profhook: // Dispatch target for profiler hook. +#if LJ_HASPROFILE + | load_got lj_dispatch_profile + | sw MULTRES, SAVE_MULTRES + | move CARG2, PC + | sw BASE, L->base + | call_intern lj_dispatch_profile // (lua_State *L, const BCIns *pc) + |. move CARG1, L + | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. + | addiu PC, PC, -4 + | b ->cont_nop + |. lw BASE, L->base +#endif | |//----------------------------------------------------------------------- |//-- Trace exit handler ------------------------------------------------- @@ -2100,14 +2119,15 @@ static void build_subroutines(BuildCtx *ctx) | lw TMP1, 0(TMP2) // Load exit number. | st_vmstate | sw TMP2, 16+32*8+29*4(sp) // Store sp in RID_SP. - | lw L, DISPATCH_GL(jit_L)(DISPATCH) - | lw BASE, DISPATCH_GL(jit_base)(DISPATCH) + | lw L, DISPATCH_GL(cur_L)(DISPATCH) + | lw BASE, DISPATCH_GL(jit_base)(DISPATCH) | load_got lj_trace_exit | sw L, DISPATCH_J(L)(DISPATCH) | sw ra, DISPATCH_J(parent)(DISPATCH) // Store trace number. + | sw BASE, L->base | sw TMP1, DISPATCH_J(exitno)(DISPATCH) // Store exit number. | addiu CARG1, DISPATCH, GG_DISP2J - | sw BASE, L->base + | sw r0, DISPATCH_GL(jit_base)(DISPATCH) | call_intern lj_trace_exit // (jit_State *J, ExitState *ex) |. addiu CARG2, sp, 16 | // Returns MULTRES (unscaled) or negated error code. @@ -2123,17 +2143,18 @@ static void build_subroutines(BuildCtx *ctx) |.if JIT | // CRET1 = MULTRES or negated error code, BASE, PC and JGL set. | lw L, SAVE_L - | addiu DISPATCH, JGL, -GG_DISP2G-32768 + | addiu DISPATCH, JGL, -GG_DISP2G-32768 + | sw BASE, L->base |1: - | bltz CRET1, >3 // Check for error from exit. - |. lw LFUNC:TMP1, FRAME_FUNC(BASE) + | bltz CRET1, >9 // Check for error from exit. + |. lw LFUNC:RB, FRAME_FUNC(BASE) | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). | sll MULTRES, CRET1, 3 | li TISNIL, LJ_TNIL | sw MULTRES, SAVE_MULTRES | mtc1 TMP3, TOBIT - | lw TMP1, LFUNC:TMP1->pc - | sw r0, DISPATCH_GL(jit_L)(DISPATCH) + | lw TMP1, LFUNC:RB->pc + | sw r0, DISPATCH_GL(jit_base)(DISPATCH) | lw KBASE, PC2PROTO(k)(TMP1) | cvt.d.s TOBIT, TOBIT | // Modified copy of ins_next which handles function header dispatch, too. @@ -2153,11 +2174,27 @@ static void build_subroutines(BuildCtx *ctx) | jr AT |. decode_RD8b RD |2: + | sltiu TMP2, TMP1, (BC_FUNCC+2)*4 // Fast function? + | bnez TMP2, >3 + |. lw TMP1, FRAME_PC(BASE) + | // Check frame below fast function. + | andi TMP0, TMP1, FRAME_TYPE + | bnez TMP0, >3 // Trace stitching continuation? + |. nop + | // Otherwise set KBASE for Lua function below fast function. + | lw TMP2, -4(TMP1) + | decode_RA8a TMP0, TMP2 + | decode_RA8b TMP0 + | subu TMP1, BASE, TMP0 + | lw LFUNC:TMP2, -8+FRAME_FUNC(TMP1) + | lw TMP1, LFUNC:TMP2->pc + | lw KBASE, PC2PROTO(k)(TMP1) + |3: | addiu RC, MULTRES, -8 | jr AT |. addu RA, RA, BASE | - |3: // Rethrow error from the right C frame. + |9: // Rethrow error from the right C frame. | load_got lj_err_throw | negu CARG2, CRET1 | call_intern lj_err_throw // (lua_State *L, int errcode) @@ -2572,6 +2609,26 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ins_next break; + case BC_ISTYPE: + | // RA = src*8, RD = -type*8 + | addu TMP2, BASE, RA + | srl TMP1, RD, 3 + | lw TMP0, HI(TMP2) + | ins_next1 + | addu AT, TMP0, TMP1 + | bnez AT, ->vmeta_istype + |. ins_next2 + break; + case BC_ISNUM: + | // RA = src*8, RD = -(TISNUM-1)*8 + | addu TMP2, BASE, RA + | lw TMP0, HI(TMP2) + | ins_next1 + | sltiu AT, TMP0, LJ_TISNUM + | beqz AT, ->vmeta_istype + |. ins_next2 + break; + /* -- Unary ops --------------------------------------------------------- */ case BC_MOV: @@ -3210,6 +3267,30 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | b ->vmeta_tgetb // Caveat: preserve TMP0! |. nop break; + case BC_TGETR: + | // RA = dst*8, RB = table*8, RC = key*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | addu CARG2, BASE, RB + | addu CARG3, BASE, RC + | lw TAB:CARG1, LO(CARG2) + | ldc1 f0, 0(CARG3) + | trunc.w.d f2, f0 + | lw TMP0, TAB:CARG1->asize + | mfc1 CARG2, f2 + | lw TMP1, TAB:CARG1->array + | sltu AT, CARG2, TMP0 + | sll TMP2, CARG2, 3 + | beqz AT, ->vmeta_tgetr // In array part? + |. addu TMP2, TMP1, TMP2 + | ldc1 f0, 0(TMP2) + |->BC_TGETR_Z: + | addu RA, BASE, RA + | ins_next1 + | sdc1 f0, 0(RA) + | ins_next2 + break; case BC_TSETV: | // RA = src*8, RB = table*8, RC = key*8 @@ -3398,6 +3479,38 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |7: // Possible table write barrier for the value. Skip valiswhite check. | barrierback TAB:RB, TMP3, TMP0, <2 break; + case BC_TSETR: + | // RA = dst*8, RB = table*8, RC = key*8 + | decode_RB8a RB, INS + | decode_RB8b RB + | decode_RDtoRC8 RC, RD + | addu CARG1, BASE, RB + | addu CARG3, BASE, RC + | lw TAB:CARG2, LO(CARG1) + | ldc1 f0, 0(CARG3) + | trunc.w.d f2, f0 + | lbu TMP3, TAB:CARG2->marked + | lw TMP0, TAB:CARG2->asize + | mfc1 CARG3, f2 + | lw TMP1, TAB:CARG2->array + | andi AT, TMP3, LJ_GC_BLACK // isblack(table) + | bnez AT, >7 + |. addu RA, BASE, RA + |2: + | sltu AT, CARG3, TMP0 + | sll TMP2, CARG3, 3 + | beqz AT, ->vmeta_tsetr // In array part? + |. ldc1 f20, 0(RA) + | addu CRET1, TMP1, TMP2 + |->BC_TSETR_Z: + | ins_next1 + | sdc1 f20, 0(CRET1) + | ins_next2 + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, TMP3, TMP0, <2 + break; + case BC_TSETM: | // RA = base*8 (table at base-1), RD = num_const*8 (start index) @@ -3957,8 +4070,8 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | sw AT, DISPATCH_GL(vmstate)(DISPATCH) | lw TRACE:TMP2, 0(TMP1) | sw BASE, DISPATCH_GL(jit_base)(DISPATCH) - | sw L, DISPATCH_GL(jit_L)(DISPATCH) | lw TMP2, TRACE:TMP2->mcode + | sw L, DISPATCH_GL(tmpbuf.L)(DISPATCH) | jr TMP2 |. addiu JGL, DISPATCH, GG_DISP2G+32768 |.endif @@ -4084,6 +4197,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | li_vmstate INTERP | lw PC, FRAME_PC(BASE) // Fetch PC of caller. | subu RA, TMP1, RD // RA = L->top - nresults*8 + | sw L, DISPATCH_GL(cur_L)(DISPATCH) | b ->vm_returnc |. st_vmstate break; diff --git a/src/3rd party/luajit-2.0/src/vm_ppc.dasc b/src/3rd party/luajit-2.0/src/vm_ppc.dasc index ad8a023e479..df60a3be9cc 100644 --- a/src/3rd party/luajit-2.0/src/vm_ppc.dasc +++ b/src/3rd party/luajit-2.0/src/vm_ppc.dasc @@ -316,6 +316,7 @@ |.type NODE, Node |.type NARGS8, int |.type TRACE, GCtrace +|.type SBUF, SBuf | |//----------------------------------------------------------------------- | @@ -684,12 +685,13 @@ static void build_subroutines(BuildCtx *ctx) | stw CARG3, SAVE_NRES | cmplwi TMP1, 0 | stw CARG3, SAVE_ERRF - | stp TMP0, L->cframe | stp CARG3, SAVE_CFRAME | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. + | stp TMP0, L->cframe | beq >3 | | // Resume after yield (like a return). + | stw L, DISPATCH_GL(cur_L)(DISPATCH) | mr RA, BASE | lp BASE, L->base | li TISNUM, LJ_TISNUM // Setup type comparison constants. @@ -729,17 +731,18 @@ static void build_subroutines(BuildCtx *ctx) | |1: // Entry point for vm_pcall above (PC = ftype). | lp TMP1, L:CARG1->cframe - | stw CARG3, SAVE_NRES | mr L, CARG1 - | stw CARG1, SAVE_L - | mr BASE, CARG2 - | stp sp, L->cframe // Add our C frame to cframe chain. + | stw CARG3, SAVE_NRES | lwz DISPATCH, L->glref // Setup pointer to dispatch table. + | stw CARG1, SAVE_L + | mr BASE, CARG2 + | addi DISPATCH, DISPATCH, GG_G2DISP | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. | stp TMP1, SAVE_CFRAME - | addi DISPATCH, DISPATCH, GG_G2DISP + | stp sp, L->cframe // Add our C frame to cframe chain. | |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). + | stw L, DISPATCH_GL(cur_L)(DISPATCH) | lp TMP2, L->base // TMP2 = old base (used in vmeta_call). | li TISNUM, LJ_TISNUM // Setup type comparison constants. | lp TMP1, L->top @@ -776,15 +779,18 @@ static void build_subroutines(BuildCtx *ctx) | lwz TMP0, L:CARG1->stack | stw CARG1, SAVE_L | lp TMP1, L->top + | lwz DISPATCH, L->glref // Setup pointer to dispatch table. | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). | lp TMP1, L->cframe - | stp sp, L->cframe // Add our C frame to cframe chain. + | addi DISPATCH, DISPATCH, GG_G2DISP | .toc lp CARG4, 0(CARG4) | li TMP2, 0 | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. | stw TMP2, SAVE_ERRF // No error function. | stp TMP1, SAVE_CFRAME + | stp sp, L->cframe // Add our C frame to cframe chain. + | stw L, DISPATCH_GL(cur_L)(DISPATCH) | mtctr CARG4 | bctrl // (lua_State *L, lua_CFunction func, void *ud) |.if PPE @@ -793,9 +799,7 @@ static void build_subroutines(BuildCtx *ctx) |.else | mr. BASE, CRET1 |.endif - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | li PC, FRAME_CP - | addi DISPATCH, DISPATCH, GG_G2DISP + | li PC, FRAME_CP | bne <3 // Else continue with the call. | b ->vm_leave_cp // No base? Just remove C frame. | @@ -918,6 +922,17 @@ static void build_subroutines(BuildCtx *ctx) | li NARGS8:RC, 16 // 2 args for func(t, k). | b ->vm_call_dispatch_f | + |->vmeta_tgetr: + | bl extern lj_tab_getinth // (GCtab *t, int32_t key) + | // Returns cTValue * or NULL. + | cmplwi CRET1, 0 + | beq >1 + | lfd f14, 0(CRET1) + | b ->BC_TGETR_Z + |1: + | stwx TISNIL, BASE, RA + | b ->cont_nop + | |//----------------------------------------------------------------------- | |->vmeta_tsets1: @@ -985,6 +1000,14 @@ static void build_subroutines(BuildCtx *ctx) | stfd f0, 16(BASE) // Copy value to third argument. | b ->vm_call_dispatch_f | + |->vmeta_tsetr: + | stp BASE, L->base + | stw PC, SAVE_PC + | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) + | // Returns TValue *. + | stfd f14, 0(CRET1) + | b ->cont_nop + | |//-- Comparison metamethods --------------------------------------------- | |->vmeta_comp: @@ -1063,6 +1086,16 @@ static void build_subroutines(BuildCtx *ctx) | b <3 |.endif | + |->vmeta_istype: + | subi PC, PC, 4 + | stp BASE, L->base + | srwi CARG2, RA, 3 + | mr CARG1, L + | srwi CARG3, RD, 3 + | stw PC, SAVE_PC + | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) + | b ->cont_nop + | |//-- Arithmetic metamethods --------------------------------------------- | |->vmeta_arith_nv: @@ -1387,9 +1420,9 @@ static void build_subroutines(BuildCtx *ctx) | mr CARG1, L | mr CARG2, BASE |.if DUALNUM - | bl extern lj_str_fromnumber // (lua_State *L, cTValue *o) + | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) |.else - | bl extern lj_str_fromnum // (lua_State *L, lua_Number *np) + | bl extern lj_strfmt_num // (lua_State *L, lua_Number *np) |.endif | // Returns GCstr *. | li CARG3, LJ_TSTR @@ -1622,6 +1655,7 @@ static void build_subroutines(BuildCtx *ctx) | lp TMP3, L:SAVE0->top | li_vmstate INTERP | lp BASE, L->base + | stw L, DISPATCH_GL(cur_L)(DISPATCH) | st_vmstate | bgt >8 | sub RD, TMP3, TMP2 @@ -1893,12 +1927,6 @@ static void build_subroutines(BuildCtx *ctx) | math_extern2 atan2 | math_extern2 fmod | - |->ff_math_deg: - |.ffunc_n math_rad - | lfd FARG2, CFUNC:RB->upvalue[0] - | fmul FARG1, FARG1, FARG2 - | b ->fff_resn - | |.if DUALNUM |.ffunc math_ldexp | cmplwi NARGS8:RC, 16 @@ -2044,11 +2072,6 @@ static void build_subroutines(BuildCtx *ctx) | |//-- String library ----------------------------------------------------- | - |.ffunc_1 string_len - | checkstr CARG3; bne ->fff_fallback - | lwz CRET1, STR:CARG1->len - | b ->fff_resi - | |.ffunc string_byte // Only handle the 1-arg case here. | cmplwi NARGS8:RC, 8 | lwz CARG3, 0(BASE) @@ -2103,6 +2126,7 @@ static void build_subroutines(BuildCtx *ctx) | stp BASE, L->base | stw PC, SAVE_PC | bl extern lj_str_new // (lua_State *L, char *str, size_t l) + |->fff_resstr: | // Returns GCstr *. | lp BASE, L->base | li CARG3, LJ_TSTR @@ -2180,114 +2204,29 @@ static void build_subroutines(BuildCtx *ctx) | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0) | b <3 | - |.ffunc string_rep // Only handle the 1-char case inline. - | ffgccheck - | cmplwi NARGS8:RC, 16 - | lwz TMP0, 0(BASE) - | lwz STR:CARG1, 4(BASE) - | lwz CARG4, 8(BASE) - |.if DUALNUM - | lwz CARG3, 12(BASE) - |.else - | lfd FARG2, 8(BASE) - |.endif - | bne ->fff_fallback // Exactly 2 arguments. - | checkstr TMP0; bne ->fff_fallback - |.if DUALNUM - | checknum CARG4; bne ->fff_fallback - |.else - | checknum CARG4; bge ->fff_fallback - | toint CARG3, FARG2 - |.endif - | lwz TMP0, STR:CARG1->len - | cmpwi CARG3, 0 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | ble >2 // Count <= 0? (or non-int) - | cmplwi TMP0, 1 - | subi TMP2, CARG3, 1 - | blt >2 // Zero length string? - | cmplw cr1, TMP1, CARG3 - | bne ->fff_fallback // Fallback for > 1-char strings. - | lbz TMP0, STR:CARG1[1] - | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | blt cr1, ->fff_fallback - |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). - | cmplwi TMP2, 0 - | stbx TMP0, CARG2, TMP2 - | subi TMP2, TMP2, 1 - | bne <1 - | b ->fff_newstr - |2: // Return empty string. - | la STR:CARG1, DISPATCH_GL(strempty)(DISPATCH) - | li CARG3, LJ_TSTR - | b ->fff_restv - | - |.ffunc string_reverse + |.macro ffstring_op, name + | .ffunc string_ .. name | ffgccheck | cmplwi NARGS8:RC, 8 | lwz CARG3, 0(BASE) - | lwz STR:CARG1, 4(BASE) + | lwz STR:CARG2, 4(BASE) | blt ->fff_fallback | checkstr CARG3 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) + | la SBUF:CARG1, DISPATCH_GL(tmpbuf)(DISPATCH) | bne ->fff_fallback - | lwz CARG3, STR:CARG1->len - | la CARG1, #STR(STR:CARG1) - | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | li TMP2, 0 - | cmplw TMP1, CARG3 - | subi TMP3, CARG3, 1 - | blt ->fff_fallback - |1: // Reverse string copy. - | cmpwi TMP3, 0 - | lbzx TMP1, CARG1, TMP2 - | blty ->fff_newstr - | stbx TMP1, CARG2, TMP3 - | subi TMP3, TMP3, 1 - | addi TMP2, TMP2, 1 - | b <1 - | - |.macro ffstring_case, name, lo - | .ffunc name - | ffgccheck - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lwz STR:CARG1, 4(BASE) - | blt ->fff_fallback - | checkstr CARG3 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | bne ->fff_fallback - | lwz CARG3, STR:CARG1->len - | la CARG1, #STR(STR:CARG1) - | lp CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | cmplw TMP1, CARG3 - | li TMP2, 0 - | blt ->fff_fallback - |1: // ASCII case conversion. - | cmplw TMP2, CARG3 - | lbzx TMP1, CARG1, TMP2 - | bgey ->fff_newstr - | subi TMP0, TMP1, lo - | xori TMP3, TMP1, 0x20 - | addic TMP0, TMP0, -26 - | subfe TMP3, TMP3, TMP3 - | rlwinm TMP3, TMP3, 0, 26, 26 // x &= 0x20. - | xor TMP1, TMP1, TMP3 - | stbx TMP1, CARG2, TMP2 - | addi TMP2, TMP2, 1 - | b <1 + | lwz TMP0, SBUF:CARG1->b + | stw L, SBUF:CARG1->L + | stp BASE, L->base + | stw PC, SAVE_PC + | stw TMP0, SBUF:CARG1->p + | bl extern lj_buf_putstr_ .. name + | bl extern lj_buf_tostr + | b ->fff_resstr |.endmacro | - |ffstring_case string_lower, 65 - |ffstring_case string_upper, 97 - | - |//-- Table library ------------------------------------------------------ - | - |.ffunc_1 table_getn - | checktab CARG3; bne ->fff_fallback - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | b ->fff_resi + |ffstring_op reverse + |ffstring_op lower + |ffstring_op upper | |//-- Bit library -------------------------------------------------------- | @@ -2588,6 +2527,70 @@ static void build_subroutines(BuildCtx *ctx) | lwz INS, -4(PC) | mtctr CRET1 | bctr + | + |->cont_stitch: // Trace stitching. + |.if JIT + | // RA = resultptr, RB = meta base + | lwz INS, -4(PC) + | lwz TMP3, -20(RB) // Save previous trace number. + | addic. TMP1, MULTRES, -8 + | decode_RA8 RC, INS // Call base. + | beq >2 + |1: // Move results down. + | lfd f0, 0(RA) + | addic. TMP1, TMP1, -8 + | addi RA, RA, 8 + | stfdx f0, BASE, RC + | addi RC, RC, 8 + | bne <1 + |2: + | decode_RA8 RA, INS + | decode_RB8 RB, INS + | add RA, RA, RB + | lwz TMP1, DISPATCH_J(trace)(DISPATCH) + |3: + | cmplw RA, RC + | bgt >9 // More results wanted? + | + | slwi TMP2, TMP3, 2 + | lwzx TRACE:TMP2, TMP1, TMP2 + | cmpwi TRACE:TMP2, 0 + | beq ->cont_nop + | lhz RD, TRACE:TMP2->link + | cmpw RD, TMP3 + | cmpwi cr1, RD, 0 + | beq ->cont_nop // Blacklisted. + | slwi RD, RD, 3 + | bne cr1, =>BC_JLOOP // Jump to stitched trace. + | + | // Stitch a new trace to the previous trace. + | stw TMP3, DISPATCH_J(exitno)(DISPATCH) + | stp L, DISPATCH_J(L)(DISPATCH) + | stp BASE, L->base + | addi CARG1, DISPATCH, GG_DISP2J + | mr CARG2, PC + | bl extern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) + | lp BASE, L->base + | b ->cont_nop + | + |9: + | stwx TISNIL, BASE, RC + | addi RC, RC, 8 + | b <3 + |.endif + | + |->vm_profhook: // Dispatch target for profiler hook. +#if LJ_HASPROFILE + | mr CARG1, L + | stw MULTRES, SAVE_MULTRES + | mr CARG2, PC + | stp BASE, L->base + | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) + | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. + | lp BASE, L->base + | subi PC, PC, 4 + | b ->cont_nop +#endif | |//----------------------------------------------------------------------- |//-- Trace exit handler ------------------------------------------------- @@ -2623,16 +2626,16 @@ static void build_subroutines(BuildCtx *ctx) | savex_ 20,21,22,23 | lhz CARG4, 2(CARG3) // Load trace number. | savex_ 24,25,26,27 - | lwz L, DISPATCH_GL(jit_L)(DISPATCH) + | lwz L, DISPATCH_GL(cur_L)(DISPATCH) | savex_ 28,29,30,31 | sub CARG3, TMP0, CARG3 // Compute exit number. | lp BASE, DISPATCH_GL(jit_base)(DISPATCH) | srwi CARG3, CARG3, 2 - | stw L, DISPATCH_J(L)(DISPATCH) + | stp L, DISPATCH_J(L)(DISPATCH) | subi CARG3, CARG3, 2 - | stw TMP1, DISPATCH_GL(jit_L)(DISPATCH) - | stw CARG4, DISPATCH_J(parent)(DISPATCH) | stp BASE, L->base + | stw CARG4, DISPATCH_J(parent)(DISPATCH) + | stw TMP1, DISPATCH_GL(jit_base)(DISPATCH) | addi CARG1, DISPATCH, GG_DISP2J | stw CARG3, DISPATCH_J(exitno)(DISPATCH) | addi CARG2, sp, 16 @@ -2656,15 +2659,16 @@ static void build_subroutines(BuildCtx *ctx) | // CARG1 = MULTRES or negated error code, BASE, PC and JGL set. | lwz L, SAVE_L | addi DISPATCH, JGL, -GG_DISP2G-32768 + | stp BASE, L->base |1: | cmpwi CARG1, 0 - | blt >3 // Check for error from exit. - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) + | blt >9 // Check for error from exit. + | lwz LFUNC:RB, FRAME_FUNC(BASE) | slwi MULTRES, CARG1, 3 | li TMP2, 0 | stw MULTRES, SAVE_MULTRES - | lwz TMP1, LFUNC:TMP1->pc - | stw TMP2, DISPATCH_GL(jit_L)(DISPATCH) + | lwz TMP1, LFUNC:RB->pc + | stw TMP2, DISPATCH_GL(jit_base)(DISPATCH) | lwz KBASE, PC2PROTO(k)(TMP1) | // Setup type comparison constants. | li TISNUM, LJ_TISNUM @@ -2694,11 +2698,25 @@ static void build_subroutines(BuildCtx *ctx) | decode_RC8 RC, INS | bctr |2: + | cmplwi TMP1, (BC_FUNCC+2)*4 // Fast function? + | blt >3 + | // Check frame below fast function. + | lwz TMP1, FRAME_PC(BASE) + | andix. TMP0, TMP1, FRAME_TYPE + | bney >3 // Trace stitching continuation? + | // Otherwise set KBASE for Lua function below fast function. + | lwz TMP2, -4(TMP1) + | decode_RA8 TMP0, TMP2 + | sub TMP1, BASE, TMP0 + | lwz LFUNC:TMP2, -12(TMP1) + | lwz TMP1, LFUNC:TMP2->pc + | lwz KBASE, PC2PROTO(k)(TMP1) + |3: | subi RC, MULTRES, 8 | add RA, RA, BASE | bctr | - |3: // Rethrow error from the right C frame. + |9: // Rethrow error from the right C frame. | neg CARG2, CARG1 | mr CARG1, L | bl extern lj_err_throw // (lua_State *L, int errcode) @@ -3288,6 +3306,29 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ins_next break; + case BC_ISTYPE: + | // RA = src*8, RD = -type*8 + | lwzx TMP0, BASE, RA + | srwi TMP1, RD, 3 + | ins_next1 + |.if not PPE and not GPR64 + | add. TMP0, TMP0, TMP1 + |.else + | neg TMP1, TMP1 + | cmpw TMP0, TMP1 + |.endif + | bne ->vmeta_istype + | ins_next2 + break; + case BC_ISNUM: + | // RA = src*8, RD = -(TISNUM-1)*8 + | lwzx TMP0, BASE, RA + | ins_next1 + | checknum TMP0 + | bge ->vmeta_istype + | ins_next2 + break; + /* -- Unary ops --------------------------------------------------------- */ case BC_MOV: @@ -4039,6 +4080,30 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | bne <1 // 'no __index' flag set: done. | b ->vmeta_tgetb // Caveat: preserve TMP0! break; + case BC_TGETR: + | // RA = dst*8, RB = table*8, RC = key*8 + | add RB, BASE, RB + | lwz TAB:CARG1, 4(RB) + |.if DUALNUM + | add RC, BASE, RC + | lwz TMP0, TAB:CARG1->asize + | lwz CARG2, 4(RC) + | lwz TMP1, TAB:CARG1->array + |.else + | lfdx f0, BASE, RC + | lwz TMP0, TAB:CARG1->asize + | toint CARG2, f0 + | lwz TMP1, TAB:CARG1->array + |.endif + | cmplw TMP0, CARG2 + | slwi TMP2, CARG2, 3 + | ble ->vmeta_tgetr // In array part? + | lfdx f14, TMP1, TMP2 + |->BC_TGETR_Z: + | ins_next1 + | stfdx f14, BASE, RA + | ins_next2 + break; case BC_TSETV: | // RA = src*8, RB = table*8, RC = key*8 @@ -4218,6 +4283,39 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | barrierback TAB:RB, TMP3, TMP0 | b <2 break; + case BC_TSETR: + | // RA = dst*8, RB = table*8, RC = key*8 + | add RB, BASE, RB + | lwz TAB:CARG2, 4(RB) + |.if DUALNUM + | add RC, BASE, RC + | lbz TMP3, TAB:RB->marked + | lwz TMP0, TAB:CARG2->asize + | lwz CARG3, 4(RC) + | lwz TMP1, TAB:CARG2->array + |.else + | lfdx f0, BASE, RC + | lbz TMP3, TAB:RB->marked + | lwz TMP0, TAB:CARG2->asize + | toint CARG3, f0 + | lwz TMP1, TAB:CARG2->array + |.endif + | andix. TMP2, TMP3, LJ_GC_BLACK // isblack(table) + | bne >7 + |2: + | cmplw TMP0, CARG3 + | slwi TMP2, CARG3, 3 + | lfdx f14, BASE, RA + | ble ->vmeta_tsetr // In array part? + | ins_next1 + | stfdx f14, TMP1, TMP2 + | ins_next2 + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:CARG2, TMP3, TMP2 + | b <2 + break; + case BC_TSETM: | // RA = base*8 (table at base-1), RD = num_const*8 (start index) @@ -4859,8 +4957,8 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | lp TMP2, TRACE:TMP2->mcode | stw BASE, DISPATCH_GL(jit_base)(DISPATCH) | mtctr TMP2 - | stw L, DISPATCH_GL(jit_L)(DISPATCH) | addi JGL, DISPATCH, GG_DISP2G+32768 + | stw L, DISPATCH_GL(tmpbuf.L)(DISPATCH) | bctr |.endif break; @@ -4995,6 +5093,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | lp TMP1, L->top | li_vmstate INTERP | lwz PC, FRAME_PC(BASE) // Fetch PC of caller. + | stw L, DISPATCH_GL(cur_L)(DISPATCH) | sub RA, TMP1, RD // RA = L->top - nresults*8 | st_vmstate | b ->vm_returnc diff --git a/src/3rd party/luajit-2.0/src/vm_x86.dasc b/src/3rd party/luajit-2.0/src/vm_x86.dasc index 4544a3beb9d..ea0415ee47b 100644 --- a/src/3rd party/luajit-2.0/src/vm_x86.dasc +++ b/src/3rd party/luajit-2.0/src/vm_x86.dasc @@ -18,7 +18,6 @@ | |.if P64 |.define X64, 1 -|.define SSE, 1 |.if WIN |.define X64WIN, 1 |.endif @@ -116,6 +115,7 @@ |.type NODE, Node |.type NARGS, int |.type TRACE, GCtrace +|.type SBUF, SBuf | |// Stack layout while in interpreter. Must match with lj_frame.h. |//----------------------------------------------------------------------- @@ -373,7 +373,6 @@ | fpop |.endmacro | -|.macro fdup; fld st0; .endmacro |.macro fpop1; fstp st1; .endmacro | |// Synthesize SSE FP constants. @@ -630,17 +629,18 @@ static void build_subroutines(BuildCtx *ctx) | lea KBASEa, [esp+CFRAME_RESUME] | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. | add DISPATCH, GG_G2DISP - | mov L:RB->cframe, KBASEa | mov SAVE_PC, RD // Any value outside of bytecode is ok. | mov SAVE_CFRAME, RDa |.if X64 | mov SAVE_NRES, RD | mov SAVE_ERRF, RD |.endif + | mov L:RB->cframe, KBASEa | cmp byte L:RB->status, RDL - | je >3 // Initial resume (like a call). + | je >2 // Initial resume (like a call). | | // Resume after yield (like a return). + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB | set_vmstate INTERP | mov byte L:RB->status, RDL | mov BASE, L:RB->base @@ -680,20 +680,19 @@ static void build_subroutines(BuildCtx *ctx) | mov RA, INARG_BASE // Caveat: overlaps SAVE_CFRAME! |.endif | + | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. | mov SAVE_CFRAME, KBASEa | mov SAVE_PC, L:RB // Any value outside of bytecode is ok. + | add DISPATCH, GG_G2DISP |.if X64 | mov L:RB->cframe, rsp |.else | mov L:RB->cframe, esp |.endif | - |2: // Entry point for vm_cpcall below (RA = base, RB = L, PC = ftype). - | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. - | add DISPATCH, GG_G2DISP - | - |3: // Entry point for vm_resume above (RA = base, RB = L, PC = ftype). + |2: // Entry point for vm_resume/vm_cpcall (RA = base, RB = L, PC = ftype). + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB | set_vmstate INTERP | mov BASE, L:RB->base // BASE = old base (used in vmeta_call). | add PC, RA @@ -731,14 +730,17 @@ static void build_subroutines(BuildCtx *ctx) | | mov KBASE, L:RB->stack // Compute -savestack(L, L->top). | sub KBASE, L:RB->top + | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. | mov SAVE_ERRF, 0 // No error function. | mov SAVE_NRES, KBASE // Neg. delta means cframe w/o frame. + | add DISPATCH, GG_G2DISP | // Handler may change cframe_nres(L->cframe) or cframe_errfunc(L->cframe). | |.if X64 | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. | mov SAVE_CFRAME, KBASEa | mov L:RB->cframe, rsp + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB | | call CARG4 // (lua_State *L, lua_CFunction func, void *ud) |.else @@ -749,6 +751,7 @@ static void build_subroutines(BuildCtx *ctx) | mov KBASE, L:RB->cframe // Add our C frame to cframe chain. | mov SAVE_CFRAME, KBASE | mov L:RB->cframe, esp + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB | | call BASE // (lua_State *L, lua_CFunction func, void *ud) |.endif @@ -856,13 +859,9 @@ static void build_subroutines(BuildCtx *ctx) |.if DUALNUM | mov TMP2, LJ_TISNUM | mov TMP1, RC - |.elif SSE + |.else | cvtsi2sd xmm0, RC | movsd TMPQ, xmm0 - |.else - | mov ARG4, RC - | fild ARG4 - | fstp TMPQ |.endif | lea RCa, TMPQ // Store temp. TValue in TMPQ. | jmp >1 @@ -916,6 +915,19 @@ static void build_subroutines(BuildCtx *ctx) | mov NARGS:RD, 2+1 // 2 args for func(t, k). | jmp ->vm_call_dispatch_f | + |->vmeta_tgetr: + | mov FCARG1, TAB:RB + | mov RB, BASE // Save BASE. + | mov FCARG2, RC // Caveat: FCARG2 == BASE + | call extern lj_tab_getinth@8 // (GCtab *t, int32_t key) + | // cTValue * or NULL returned in eax (RC). + | movzx RA, PC_RA + | mov BASE, RB // Restore BASE. + | test RC, RC + | jnz ->BC_TGETR_Z + | mov dword [BASE+RA*8+4], LJ_TNIL + | jmp ->BC_TGETR2_Z + | |//----------------------------------------------------------------------- | |->vmeta_tsets: @@ -935,13 +947,9 @@ static void build_subroutines(BuildCtx *ctx) |.if DUALNUM | mov TMP2, LJ_TISNUM | mov TMP1, RC - |.elif SSE + |.else | cvtsi2sd xmm0, RC | movsd TMPQ, xmm0 - |.else - | mov ARG4, RC - | fild ARG4 - | fstp TMPQ |.endif | lea RCa, TMPQ // Store temp. TValue in TMPQ. | jmp >1 @@ -1007,6 +1015,33 @@ static void build_subroutines(BuildCtx *ctx) | mov NARGS:RD, 3+1 // 3 args for func(t, k, v). | jmp ->vm_call_dispatch_f | + |->vmeta_tsetr: + |.if X64WIN + | mov L:CARG1d, SAVE_L + | mov CARG3d, RC + | mov L:CARG1d->base, BASE + | xchg CARG2d, TAB:RB // Caveat: CARG2d == BASE. + |.elif X64 + | mov L:CARG1d, SAVE_L + | mov CARG2d, TAB:RB + | mov L:CARG1d->base, BASE + | mov RB, BASE // Save BASE. + | mov CARG3d, RC // Caveat: CARG3d == BASE. + |.else + | mov L:RA, SAVE_L + | mov ARG2, TAB:RB + | mov RB, BASE // Save BASE. + | mov ARG3, RC + | mov ARG1, L:RA + | mov L:RA->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) + | // TValue * returned in eax (RC). + | movzx RA, PC_RA + | mov BASE, RB // Restore BASE. + | jmp ->BC_TSETR_Z + | |//-- Comparison metamethods --------------------------------------------- | |->vmeta_comp: @@ -1101,6 +1136,26 @@ static void build_subroutines(BuildCtx *ctx) | jmp <3 |.endif | + |->vmeta_istype: + |.if X64 + | mov L:RB, SAVE_L + | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. + | mov CARG2d, RA + | movzx CARG3d, PC_RD + | mov L:CARG1d, L:RB + |.else + | movzx RD, PC_RD + | mov ARG2, RA + | mov L:RB, SAVE_L + | mov ARG3, RD + | mov ARG1, L:RB + | mov L:RB->base, BASE + |.endif + | mov SAVE_PC, PC + | call extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) + | mov BASE, L:RB->base + | jmp <6 + | |//-- Arithmetic metamethods --------------------------------------------- | |->vmeta_arith_vno: @@ -1273,19 +1328,6 @@ static void build_subroutines(BuildCtx *ctx) | cmp NARGS:RD, 2+1; jb ->fff_fallback |.endmacro | - |.macro .ffunc_n, name - | .ffunc_1 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | fld qword [BASE] - |.endmacro - | - |.macro .ffunc_n, name, op - | .ffunc_1 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | op - | fld qword [BASE] - |.endmacro - | |.macro .ffunc_nsse, name, op | .ffunc_1 name | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback @@ -1296,14 +1338,6 @@ static void build_subroutines(BuildCtx *ctx) | .ffunc_nsse name, movsd |.endmacro | - |.macro .ffunc_nn, name - | .ffunc_2 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback - | fld qword [BASE] - | fld qword [BASE+8] - |.endmacro - | |.macro .ffunc_nnsse, name | .ffunc_2 name | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback @@ -1509,11 +1543,7 @@ static void build_subroutines(BuildCtx *ctx) |.else | jae ->fff_fallback |.endif - |.if SSE | movsd xmm0, qword [BASE]; jmp ->fff_resxmm0 - |.else - | fld qword [BASE]; jmp ->fff_resn - |.endif | |.ffunc_1 tostring | // Only handles the string or number case inline. @@ -1538,9 +1568,9 @@ static void build_subroutines(BuildCtx *ctx) |.endif | mov L:FCARG1, L:RB |.if DUALNUM - | call extern lj_str_fromnumber@8 // (lua_State *L, cTValue *o) + | call extern lj_strfmt_number@8 // (lua_State *L, cTValue *o) |.else - | call extern lj_str_fromnum@8 // (lua_State *L, lua_Number *np) + | call extern lj_strfmt_num@8 // (lua_State *L, lua_Number *np) |.endif | // GCstr returned in eax (RD). | mov BASE, L:RB->base @@ -1631,19 +1661,12 @@ static void build_subroutines(BuildCtx *ctx) | add RD, 1 | mov dword [BASE-4], LJ_TISNUM | mov dword [BASE-8], RD - |.elif SSE + |.else | movsd xmm0, qword [BASE+8] | sseconst_1 xmm1, RBa | addsd xmm0, xmm1 - | cvtsd2si RD, xmm0 + | cvttsd2si RD, xmm0 | movsd qword [BASE-8], xmm0 - |.else - | fld qword [BASE+8] - | fld1 - | faddp st1 - | fist ARG1 - | fstp qword [BASE-8] - | mov RD, ARG1 |.endif | mov TAB:RB, [BASE] | cmp RD, TAB:RB->asize; jae >2 // Not in array part? @@ -1690,12 +1713,9 @@ static void build_subroutines(BuildCtx *ctx) |.if DUALNUM | mov dword [BASE+12], LJ_TISNUM | mov dword [BASE+8], 0 - |.elif SSE + |.else | xorps xmm0, xmm0 | movsd qword [BASE+8], xmm0 - |.else - | fldz - | fstp qword [BASE+8] |.endif | mov RD, 1+3 | jmp ->fff_res @@ -1802,7 +1822,6 @@ static void build_subroutines(BuildCtx *ctx) | mov ARG3, RA |.endif | call ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | set_vmstate INTERP | | mov L:RB, SAVE_L |.if X64 @@ -1811,6 +1830,9 @@ static void build_subroutines(BuildCtx *ctx) | mov L:PC, ARG1 // The callee doesn't modify SAVE_L. |.endif | mov BASE, L:RB->base + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB + | set_vmstate INTERP + | | cmp eax, LUA_YIELD | ja >8 |4: @@ -1925,12 +1947,10 @@ static void build_subroutines(BuildCtx *ctx) |->fff_resi: // Dummy. |.endif | - |.if SSE |->fff_resn: | mov PC, [BASE-4] | fstp qword [BASE-8] | jmp ->fff_res1 - |.endif | | .ffunc_1 math_abs |.if DUALNUM @@ -1954,8 +1974,6 @@ static void build_subroutines(BuildCtx *ctx) |.else | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback |.endif - | - |.if SSE | movsd xmm0, qword [BASE] | sseconst_abs xmm1, RDa | andps xmm0, xmm1 @@ -1963,15 +1981,6 @@ static void build_subroutines(BuildCtx *ctx) | mov PC, [BASE-4] | movsd qword [BASE-8], xmm0 | // fallthrough - |.else - | fld qword [BASE] - | fabs - | // fallthrough - |->fff_resxmm0: // Dummy. - |->fff_resn: - | mov PC, [BASE-4] - | fstp qword [BASE-8] - |.endif | |->fff_res1: | mov RD, 1+1 @@ -1998,6 +2007,12 @@ static void build_subroutines(BuildCtx *ctx) | mov RAa, -8 // Results start at BASE+RA = BASE-8. | jmp ->vm_return | + |.if X64 + |.define fff_resfp, fff_resxmm0 + |.else + |.define fff_resfp, fff_resn + |.endif + | |.macro math_round, func | .ffunc math_ .. func |.if DUALNUM @@ -2008,107 +2023,75 @@ static void build_subroutines(BuildCtx *ctx) |.else | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback |.endif - |.if SSE | movsd xmm0, qword [BASE] - | call ->vm_ .. func - | .if DUALNUM - | cvtsd2si RB, xmm0 - | cmp RB, 0x80000000 - | jne ->fff_resi - | cvtsi2sd xmm1, RB - | ucomisd xmm0, xmm1 - | jp ->fff_resxmm0 - | je ->fff_resi - | .endif - | jmp ->fff_resxmm0 - |.else - | fld qword [BASE] - | call ->vm_ .. func - | .if DUALNUM - | fist ARG1 - | mov RB, ARG1 - | cmp RB, 0x80000000; jne >2 - | fdup - | fild ARG1 - | fcomparepp - | jp ->fff_resn - | jne ->fff_resn - |2: - | fpop - | jmp ->fff_resi - | .else - | jmp ->fff_resn - | .endif + | call ->vm_ .. func .. _sse + |.if DUALNUM + | cvttsd2si RB, xmm0 + | cmp RB, 0x80000000 + | jne ->fff_resi + | cvtsi2sd xmm1, RB + | ucomisd xmm0, xmm1 + | jp ->fff_resxmm0 + | je ->fff_resi |.endif + | jmp ->fff_resxmm0 |.endmacro | | math_round floor | math_round ceil | - |.if SSE |.ffunc_nsse math_sqrt, sqrtsd; jmp ->fff_resxmm0 - |.else - |.ffunc_n math_sqrt; fsqrt; jmp ->fff_resn - |.endif | |.ffunc math_log | cmp NARGS:RD, 1+1; jne ->fff_fallback // Exactly one argument. | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | fldln2; fld qword [BASE]; fyl2x; jmp ->fff_resn - | - |.ffunc_n math_log10, fldlg2; fyl2x; jmp ->fff_resn - |.ffunc_n math_exp; call ->vm_exp_x87; jmp ->fff_resn - | - |.ffunc_n math_sin; fsin; jmp ->fff_resn - |.ffunc_n math_cos; fcos; jmp ->fff_resn - |.ffunc_n math_tan; fptan; fpop; jmp ->fff_resn - | - |.ffunc_n math_asin - | fdup; fmul st0; fld1; fsubrp st1; fsqrt; fpatan - | jmp ->fff_resn - |.ffunc_n math_acos - | fdup; fmul st0; fld1; fsubrp st1; fsqrt; fxch; fpatan - | jmp ->fff_resn - |.ffunc_n math_atan; fld1; fpatan; jmp ->fff_resn + | movsd xmm0, qword [BASE] + |.if not X64 + | movsd FPARG1, xmm0 + |.endif + | mov RB, BASE + | call extern log + | mov BASE, RB + | jmp ->fff_resfp | |.macro math_extern, func - |.if SSE | .ffunc_nsse math_ .. func - | .if not X64 - | movsd FPARG1, xmm0 - | .endif - |.else - | .ffunc_n math_ .. func - | fstp FPARG1 + |.if not X64 + | movsd FPARG1, xmm0 |.endif | mov RB, BASE - | call extern lj_vm_ .. func + | call extern func | mov BASE, RB - | .if X64 - | jmp ->fff_resxmm0 - | .else - | jmp ->fff_resn - | .endif + | jmp ->fff_resfp |.endmacro | + |.macro math_extern2, func + | .ffunc_nnsse math_ .. func + |.if not X64 + | movsd FPARG1, xmm0 + | movsd FPARG3, xmm1 + |.endif + | mov RB, BASE + | call extern func + | mov BASE, RB + | jmp ->fff_resfp + |.endmacro + | + | math_extern log10 + | math_extern exp + | math_extern sin + | math_extern cos + | math_extern tan + | math_extern asin + | math_extern acos + | math_extern atan | math_extern sinh | math_extern cosh | math_extern tanh + | math_extern2 pow + | math_extern2 atan2 + | math_extern2 fmod | - |->ff_math_deg: - |.if SSE - |.ffunc_nsse math_rad - | mov CFUNC:RB, [BASE-8] - | mulsd xmm0, qword CFUNC:RB->upvalue[0] - | jmp ->fff_resxmm0 - |.else - |.ffunc_n math_rad - | mov CFUNC:RB, [BASE-8] - | fmul qword CFUNC:RB->upvalue[0] - | jmp ->fff_resn - |.endif - | - |.ffunc_nn math_atan2; fpatan; jmp ->fff_resn |.ffunc_nnr math_ldexp; fscale; fpop1; jmp ->fff_resn | |.ffunc_1 math_frexp @@ -2123,65 +2106,34 @@ static void build_subroutines(BuildCtx *ctx) | cmp RB, 0x00200000; jb >4 |1: | shr RB, 21; sub RB, RC // Extract and unbias exponent. - |.if SSE | cvtsi2sd xmm0, RB - |.else - | mov TMP1, RB; fild TMP1 - |.endif | mov RB, [BASE-4] | and RB, 0x800fffff // Mask off exponent. | or RB, 0x3fe00000 // Put mantissa in range [0.5,1) or 0. | mov [BASE-4], RB |2: - |.if SSE | movsd qword [BASE], xmm0 - |.else - | fstp qword [BASE] - |.endif | mov RD, 1+2 | jmp ->fff_res |3: // Return +-0, +-Inf, NaN unmodified and an exponent of 0. - |.if SSE | xorps xmm0, xmm0; jmp <2 - |.else - | fldz; jmp <2 - |.endif |4: // Handle denormals by multiplying with 2^54 and adjusting the bias. - |.if SSE | movsd xmm0, qword [BASE] | sseconst_hi xmm1, RBa, 43500000 // 2^54. | mulsd xmm0, xmm1 | movsd qword [BASE-8], xmm0 - |.else - | fld qword [BASE] - | mov TMP1, 0x5a800000; fmul TMP1 // x = x*2^54 - | fstp qword [BASE-8] - |.endif | mov RB, [BASE-4]; mov RC, 1076; shl RB, 1; jmp <1 | - |.if SSE |.ffunc_nsse math_modf - |.else - |.ffunc_n math_modf - |.endif | mov RB, [BASE+4] | mov PC, [BASE-4] | shl RB, 1; cmp RB, 0xffe00000; je >4 // +-Inf? - |.if SSE | movaps xmm4, xmm0 - | call ->vm_trunc + | call ->vm_trunc_sse | subsd xmm4, xmm0 |1: | movsd qword [BASE-8], xmm0 | movsd qword [BASE], xmm4 - |.else - | fdup - | call ->vm_trunc - | fsub st1, st0 - |1: - | fstp qword [BASE-8] - | fstp qword [BASE] - |.endif | mov RC, [BASE-4]; mov RB, [BASE+4] | xor RC, RB; js >3 // Need to adjust sign? |2: @@ -2191,24 +2143,9 @@ static void build_subroutines(BuildCtx *ctx) | xor RB, 0x80000000; mov [BASE+4], RB // Flip sign of fraction. | jmp <2 |4: - |.if SSE | xorps xmm4, xmm4; jmp <1 // Return +-Inf and +-0. - |.else - | fldz; fxch; jmp <1 // Return +-Inf and +-0. - |.endif | - |.ffunc_nnr math_fmod - |1: ; fprem; fnstsw ax; and ax, 0x400; jnz <1 - | fpop1 - | jmp ->fff_resn - | - |.if SSE - |.ffunc_nnsse math_pow; call ->vm_pow; jmp ->fff_resxmm0 - |.else - |.ffunc_nn math_pow; call ->vm_pow; jmp ->fff_resn - |.endif - | - |.macro math_minmax, name, cmovop, fcmovop, sseop + |.macro math_minmax, name, cmovop, sseop | .ffunc name | mov RA, 2 | cmp dword [BASE+4], LJ_TISNUM @@ -2225,12 +2162,7 @@ static void build_subroutines(BuildCtx *ctx) |3: | ja ->fff_fallback | // Convert intermediate result to number and continue below. - |.if SSE | cvtsi2sd xmm0, RB - |.else - | mov TMP1, RB - | fild TMP1 - |.endif | jmp >6 |4: | ja ->fff_fallback @@ -2238,7 +2170,6 @@ static void build_subroutines(BuildCtx *ctx) | jae ->fff_fallback |.endif | - |.if SSE | movsd xmm0, qword [BASE] |5: // Handle numbers or integers. | cmp RA, RD; jae ->fff_resxmm0 @@ -2257,48 +2188,13 @@ static void build_subroutines(BuildCtx *ctx) | sseop xmm0, xmm1 | add RA, 1 | jmp <5 - |.else - | fld qword [BASE] - |5: // Handle numbers or integers. - | cmp RA, RD; jae ->fff_resn - | cmp dword [BASE+RA*8-4], LJ_TISNUM - |.if DUALNUM - | jb >6 - | ja >9 - | fild dword [BASE+RA*8-8] - | jmp >7 - |.else - | jae >9 - |.endif - |6: - | fld qword [BASE+RA*8-8] - |7: - | fucomi st1; fcmovop st1; fpop1 - | add RA, 1 - | jmp <5 - |.endif |.endmacro | - | math_minmax math_min, cmovg, fcmovnbe, minsd - | math_minmax math_max, cmovl, fcmovbe, maxsd - |.if not SSE - |9: - | fpop; jmp ->fff_fallback - |.endif + | math_minmax math_min, cmovg, minsd + | math_minmax math_max, cmovl, maxsd | |//-- String library ----------------------------------------------------- | - |.ffunc_1 string_len - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | mov STR:RB, [BASE] - |.if DUALNUM - | mov RB, dword STR:RB->len; jmp ->fff_resi - |.elif SSE - | cvtsi2sd xmm0, dword STR:RB->len; jmp ->fff_resxmm0 - |.else - | fild dword STR:RB->len; jmp ->fff_resn - |.endif - | |.ffunc string_byte // Only handle the 1-arg case here. | cmp NARGS:RD, 1+1; jne ->fff_fallback | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback @@ -2309,10 +2205,8 @@ static void build_subroutines(BuildCtx *ctx) | movzx RB, byte STR:RB[1] |.if DUALNUM | jmp ->fff_resi - |.elif SSE - | cvtsi2sd xmm0, RB; jmp ->fff_resxmm0 |.else - | mov TMP1, RB; fild TMP1; jmp ->fff_resn + | cvtsi2sd xmm0, RB; jmp ->fff_resxmm0 |.endif | |.ffunc string_char // Only handle the 1-arg case here. @@ -2324,16 +2218,11 @@ static void build_subroutines(BuildCtx *ctx) | mov RB, dword [BASE] | cmp RB, 255; ja ->fff_fallback | mov TMP2, RB - |.elif SSE + |.else | jae ->fff_fallback | cvttsd2si RB, qword [BASE] | cmp RB, 255; ja ->fff_fallback | mov TMP2, RB - |.else - | jae ->fff_fallback - | fld qword [BASE] - | fistp TMP2 - | cmp TMP2, 255; ja ->fff_fallback |.endif |.if X64 | mov TMP3, 1 @@ -2354,6 +2243,7 @@ static void build_subroutines(BuildCtx *ctx) |.endif | mov SAVE_PC, PC | call extern lj_str_new // (lua_State *L, char *str, size_t l) + |->fff_resstr: | // GCstr * returned in eax (RD). | mov BASE, L:RB->base | mov PC, [BASE-4] @@ -2371,14 +2261,10 @@ static void build_subroutines(BuildCtx *ctx) | jne ->fff_fallback | mov RB, dword [BASE+16] | mov TMP2, RB - |.elif SSE + |.else | jae ->fff_fallback | cvttsd2si RB, qword [BASE+16] | mov TMP2, RB - |.else - | jae ->fff_fallback - | fld qword [BASE+16] - | fistp TMP2 |.endif |1: | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback @@ -2393,12 +2279,8 @@ static void build_subroutines(BuildCtx *ctx) | mov RB, STR:RB->len |.if DUALNUM | mov RA, dword [BASE+8] - |.elif SSE - | cvttsd2si RA, qword [BASE+8] |.else - | fld qword [BASE+8] - | fistp ARG3 - | mov RA, ARG3 + | cvttsd2si RA, qword [BASE+8] |.endif | mov RC, TMP2 | cmp RB, RC // len < end? (unsigned compare) @@ -2442,123 +2324,27 @@ static void build_subroutines(BuildCtx *ctx) | xor RC, RC // Zero length. Any ptr in RB is ok. | jmp <4 | - |.ffunc string_rep // Only handle the 1-char case inline. - | ffgccheck - | cmp NARGS:RD, 2+1; jne ->fff_fallback // Exactly 2 arguments. - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM - | mov STR:RB, [BASE] - |.if DUALNUM - | jne ->fff_fallback - | mov RC, dword [BASE+8] - |.elif SSE - | jae ->fff_fallback - | cvttsd2si RC, qword [BASE+8] - |.else - | jae ->fff_fallback - | fld qword [BASE+8] - | fistp TMP2 - | mov RC, TMP2 - |.endif - | test RC, RC - | jle ->fff_emptystr // Count <= 0? (or non-int) - | cmp dword STR:RB->len, 1 - | jb ->fff_emptystr // Zero length string? - | jne ->fff_fallback_2 // Fallback for > 1-char strings. - | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_2 - | movzx RA, byte STR:RB[1] - | mov RB, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] - |.if X64 - | mov TMP3, RC - |.else - | mov ARG3, RC - |.endif - |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). - | mov [RB], RAL - | add RB, 1 - | sub RC, 1 - | jnz <1 - | mov RD, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] - | jmp ->fff_newstr - | - |.ffunc_1 string_reverse - | ffgccheck - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | mov STR:RB, [BASE] - | mov RC, STR:RB->len - | test RC, RC - | jz ->fff_emptystr // Zero length string? - | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_1 - | add RB, #STR - | mov TMP2, PC // Need another temp register. - |.if X64 - | mov TMP3, RC - |.else - | mov ARG3, RC - |.endif - | mov PC, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] - |1: - | movzx RA, byte [RB] - | add RB, 1 - | sub RC, 1 - | mov [PC+RC], RAL - | jnz <1 - | mov RD, PC - | mov PC, TMP2 - | jmp ->fff_newstr - | - |.macro ffstring_case, name, lo, hi - | .ffunc_1 name + |.macro ffstring_op, name + | .ffunc_1 string_ .. name | ffgccheck | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | mov STR:RB, [BASE] - | mov RC, STR:RB->len - | cmp [DISPATCH+DISPATCH_GL(tmpbuf.sz)], RC; jb ->fff_fallback_1 - | add RB, #STR - | mov TMP2, PC // Need another temp register. - |.if X64 - | mov TMP3, RC - |.else - | mov ARG3, RC - |.endif - | mov PC, [DISPATCH+DISPATCH_GL(tmpbuf.buf)] - | jmp >3 - |1: // ASCII case conversion. Yes, this is suboptimal code (do you care?). - | movzx RA, byte [RB+RC] - | cmp RA, lo - | jb >2 - | cmp RA, hi - | ja >2 - | xor RA, 0x20 - |2: - | mov [PC+RC], RAL - |3: - | sub RC, 1 - | jns <1 - | mov RD, PC - | mov PC, TMP2 - | jmp ->fff_newstr + | mov L:RB, SAVE_L + | lea SBUF:FCARG1, [DISPATCH+DISPATCH_GL(tmpbuf)] + | mov L:RB->base, BASE + | mov STR:FCARG2, [BASE] // Caveat: FCARG2 == BASE + | mov RC, SBUF:FCARG1->b + | mov SBUF:FCARG1->L, L:RB + | mov SBUF:FCARG1->p, RC + | mov SAVE_PC, PC + | call extern lj_buf_putstr_ .. name .. @8 + | mov FCARG1, eax + | call extern lj_buf_tostr@4 + | jmp ->fff_resstr |.endmacro | - |ffstring_case string_lower, 0x41, 0x5a - |ffstring_case string_upper, 0x61, 0x7a - | - |//-- Table library ------------------------------------------------------ - | - |.ffunc_1 table_getn - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback - | mov RB, BASE // Save BASE. - | mov TAB:FCARG1, [BASE] - | call extern lj_tab_len@4 // LJ_FASTCALL (GCtab *t) - | // Length of table returned in eax (RD). - | mov BASE, RB // Restore BASE. - |.if DUALNUM - | mov RB, RD; jmp ->fff_resi - |.elif SSE - | cvtsi2sd xmm0, RD; jmp ->fff_resxmm0 - |.else - | mov ARG1, RD; fild ARG1; jmp ->fff_resn - |.endif + |ffstring_op reverse + |ffstring_op lower + |ffstring_op upper | |//-- Bit library -------------------------------------------------------- | @@ -2567,11 +2353,7 @@ static void build_subroutines(BuildCtx *ctx) |.macro .ffunc_bit, name, kind | .ffunc_1 name |.if kind == 2 - |.if SSE | sseconst_tobit xmm1, RBa - |.else - | mov TMP1, TOBIT_BIAS - |.endif |.endif | cmp dword [BASE+4], LJ_TISNUM |.if DUALNUM @@ -2587,37 +2369,17 @@ static void build_subroutines(BuildCtx *ctx) |.else | jae ->fff_fallback |.endif - |.if SSE | movsd xmm0, qword [BASE] |.if kind < 2 | sseconst_tobit xmm1, RBa |.endif | addsd xmm0, xmm1 | movd RB, xmm0 - |.else - | fld qword [BASE] - |.if kind < 2 - | mov TMP1, TOBIT_BIAS - |.endif - | fadd TMP1 - | fstp FPARG1 - |.if kind > 0 - | mov RB, ARG1 - |.endif - |.endif |2: |.endmacro | |.ffunc_bit bit_tobit, 0 - |.if DUALNUM or SSE - |.if not SSE - | mov RB, ARG1 - |.endif | jmp ->fff_resbit - |.else - | fild ARG1 - | jmp ->fff_resn - |.endif | |.macro .ffunc_bit_op, name, ins | .ffunc_bit name, 2 @@ -2637,17 +2399,10 @@ static void build_subroutines(BuildCtx *ctx) |.else | jae ->fff_fallback_bit_op |.endif - |.if SSE | movsd xmm0, qword [RD] | addsd xmm0, xmm1 | movd RA, xmm0 | ins RB, RA - |.else - | fld qword [RD] - | fadd TMP1 - | fstp FPARG1 - | ins RB, ARG1 - |.endif | sub RD, 8 | jmp <1 |.endmacro @@ -2664,15 +2419,10 @@ static void build_subroutines(BuildCtx *ctx) | not RB |.if DUALNUM | jmp ->fff_resbit - |.elif SSE + |.else |->fff_resbit: | cvtsi2sd xmm0, RB | jmp ->fff_resxmm0 - |.else - |->fff_resbit: - | mov ARG1, RB - | fild ARG1 - | jmp ->fff_resn |.endif | |->fff_fallback_bit_op: @@ -2685,22 +2435,13 @@ static void build_subroutines(BuildCtx *ctx) | // Note: no inline conversion from number for 2nd argument! | cmp dword [BASE+12], LJ_TISNUM; jne ->fff_fallback | mov RA, dword [BASE+8] - |.elif SSE + |.else | .ffunc_nnsse name | sseconst_tobit xmm2, RBa | addsd xmm0, xmm2 | addsd xmm1, xmm2 | movd RB, xmm0 | movd RA, xmm1 - |.else - | .ffunc_nn name - | mov TMP1, TOBIT_BIAS - | fadd TMP1 - | fstp FPARG3 - | fadd TMP1 - | fstp FPARG1 - | mov RA, ARG3 - | mov RB, ARG1 |.endif | ins RB, cl // Assumes RA is ecx. | jmp ->fff_resbit @@ -2834,7 +2575,7 @@ static void build_subroutines(BuildCtx *ctx) | mov FCARG2, PC // Caveat: FCARG2 == BASE | mov FCARG1, L:RB | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | call extern lj_dispatch_ins@8 // (lua_State *L, BCIns *pc) + | call extern lj_dispatch_ins@8 // (lua_State *L, const BCIns *pc) |3: | mov BASE, L:RB->base |4: @@ -2904,6 +2645,82 @@ static void build_subroutines(BuildCtx *ctx) | shr RD, 3 | add NARGS:RD, 1 | jmp RBa + | + |->cont_stitch: // Trace stitching. + |.if JIT + | // BASE = base, RC = result, RB = mbase + | mov RA, [RB-24] // Save previous trace number. + | mov TMP1, RA + | mov TMP3, DISPATCH // Need one more register. + | mov DISPATCH, MULTRES + | movzx RA, PC_RA + | lea RA, [BASE+RA*8] // Call base. + | sub DISPATCH, 1 + | jz >2 + |1: // Move results down. + |.if X64 + | mov RBa, [RC] + | mov [RA], RBa + |.else + | mov RB, [RC] + | mov [RA], RB + | mov RB, [RC+4] + | mov [RA+4], RB + |.endif + | add RC, 8 + | add RA, 8 + | sub DISPATCH, 1 + | jnz <1 + |2: + | movzx RC, PC_RA + | movzx RB, PC_RB + | add RC, RB + | lea RC, [BASE+RC*8-8] + |3: + | cmp RC, RA + | ja >9 // More results wanted? + | + | mov DISPATCH, TMP3 + | mov RB, TMP1 // Get previous trace number. + | mov RA, [DISPATCH+DISPATCH_J(trace)] + | mov TRACE:RD, [RA+RB*4] + | test TRACE:RD, TRACE:RD + | jz ->cont_nop + | movzx RD, word TRACE:RD->link + | cmp RD, RB + | je ->cont_nop // Blacklisted. + | test RD, RD + | jne =>BC_JLOOP // Jump to stitched trace. + | + | // Stitch a new trace to the previous trace. + | mov [DISPATCH+DISPATCH_J(exitno)], RB + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov FCARG2, PC + | lea FCARG1, [DISPATCH+GG_DISP2J] + | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa + | call extern lj_dispatch_stitch@8 // (jit_State *J, const BCIns *pc) + | mov BASE, L:RB->base + | jmp ->cont_nop + | + |9: // Fill up results with nil. + | mov dword [RA+4], LJ_TNIL + | add RA, 8 + | jmp <3 + |.endif + | + |->vm_profhook: // Dispatch target for profiler hook. +#if LJ_HASPROFILE + | mov L:RB, SAVE_L + | mov L:RB->base, BASE + | mov FCARG2, PC // Caveat: FCARG2 == BASE + | mov FCARG1, L:RB + | call extern lj_dispatch_profile@8 // (lua_State *L, const BCIns *pc) + | mov BASE, L:RB->base + | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. + | sub PC, 4 + | jmp ->cont_nop +#endif | |//----------------------------------------------------------------------- |//-- Trace exit handler ------------------------------------------------- @@ -2957,10 +2774,9 @@ static void build_subroutines(BuildCtx *ctx) | movsd qword [ebp-88], xmm1; movsd qword [ebp-96], xmm0 |.endif | // Caveat: RB is ebp. - | mov L:RB, [DISPATCH+DISPATCH_GL(jit_L)] + | mov L:RB, [DISPATCH+DISPATCH_GL(cur_L)] | mov BASE, [DISPATCH+DISPATCH_GL(jit_base)] | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa - | mov dword [DISPATCH+DISPATCH_GL(jit_L)], 0 | mov L:RB->base, BASE |.if X64WIN | lea CARG2, [rsp+4*8] @@ -2970,6 +2786,7 @@ static void build_subroutines(BuildCtx *ctx) | lea FCARG2, [esp+16] |.endif | lea FCARG1, [DISPATCH+GG_DISP2J] + | mov dword [DISPATCH+DISPATCH_GL(jit_base)], 0 | call extern lj_trace_exit@8 // (jit_State *J, ExitState *ex) | // MULTRES or negated error code returned in eax (RD). | mov RAa, L:RB->cframe @@ -3016,12 +2833,14 @@ static void build_subroutines(BuildCtx *ctx) | mov r13, TMPa | mov r12, TMPQ |.endif - | test RD, RD; js >3 // Check for error from exit. + | test RD, RD; js >9 // Check for error from exit. + | mov L:RB, SAVE_L | mov MULTRES, RD | mov LFUNC:KBASE, [BASE-8] | mov KBASE, LFUNC:KBASE->pc | mov KBASE, [KBASE+PC2PROTO(k)] - | mov dword [DISPATCH+DISPATCH_GL(jit_L)], 0 + | mov L:RB->base, BASE + | mov dword [DISPATCH+DISPATCH_GL(jit_base)], 0 | set_vmstate INTERP | // Modified copy of ins_next which handles function header dispatch, too. | mov RC, [PC] @@ -3030,16 +2849,31 @@ static void build_subroutines(BuildCtx *ctx) | add PC, 4 | shr RC, 16 | cmp OP, BC_FUNCF // Function header? - | jb >2 - | mov RC, MULTRES // RC/RD holds nres+1. + | jb >3 + | cmp OP, BC_FUNCC+2 // Fast function? + | jae >4 |2: + | mov RC, MULTRES // RC/RD holds nres+1. + |3: |.if X64 | jmp aword [DISPATCH+OP*8] |.else | jmp aword [DISPATCH+OP*4] |.endif | - |3: // Rethrow error from the right C frame. + |4: // Check frame below fast function. + | mov RC, [BASE-4] + | test RC, FRAME_TYPE + | jnz <2 // Trace stitching continuation? + | // Otherwise set KBASE for Lua function below fast function. + | movzx RC, byte [RC-3] + | not RCa + | mov LFUNC:KBASE, [BASE+RC*8-8] + | mov KBASE, LFUNC:KBASE->pc + | mov KBASE, [KBASE+PC2PROTO(k)] + | jmp <2 + | + |9: // Rethrow error from the right C frame. | neg RD | mov FCARG1, L:RB | mov FCARG2, RD @@ -3051,27 +2885,18 @@ static void build_subroutines(BuildCtx *ctx) |//----------------------------------------------------------------------- | |// FP value rounding. Called by math.floor/math.ceil fast functions - |// and from JIT code. - | - |// x87 variant: Arg/ret on x87 stack. No int/xmm registers modified. - |.macro vm_round_x87, mode1, mode2 - | fnstcw word [esp+4] // Caveat: overwrites ARG1 and ARG2. - | mov [esp+8], eax - | mov ax, mode1 - | or ax, [esp+4] - |.if mode2 ~= 0xffff - | and ax, mode2 - |.endif - | mov [esp+6], ax - | fldcw word [esp+6] - | frndint - | fldcw word [esp+4] - | mov eax, [esp+8] + |// and from JIT code. arg/ret is xmm0. xmm0-xmm3 and RD (eax) modified. + |.macro vm_round, name, mode, cond + |->name: + |.if not X64 and cond + | movsd xmm0, qword [esp+4] + | call ->name .. _sse + | movsd qword [esp+4], xmm0 // Overwrite callee-owned arg. + | fld qword [esp+4] | ret - |.endmacro + |.endif | - |// SSE variant: arg/ret is xmm0. xmm0-xmm3 and RD (eax) modified. - |.macro vm_round_sse, mode + |->name .. _sse: | sseconst_abs xmm2, RDa | sseconst_2p52 xmm3, RDa | movaps xmm1, xmm0 @@ -3104,25 +2929,15 @@ static void build_subroutines(BuildCtx *ctx) |.endif | movaps xmm0, xmm1 |1: - | ret - |.endmacro - | - |.macro vm_round, name, ssemode, mode1, mode2 - |->name: - |.if not SSE - | vm_round_x87 mode1, mode2 - |.endif - |->name .. _sse: - | vm_round_sse ssemode + | ret |.endmacro | - | vm_round vm_floor, 0, 0x0400, 0xf7ff - | vm_round vm_ceil, 1, 0x0800, 0xfbff - | vm_round vm_trunc, 2, 0x0c00, 0xffff + | vm_round vm_floor, 0, 1 + | vm_round vm_ceil, 1, JIT + | vm_round vm_trunc, 2, JIT | |// FP modulo x%y. Called by BC_MOD* and vm_arith. |->vm_mod: - |.if SSE |// Args in xmm0/xmm1, return value in xmm0. |// Caveat: xmm0-xmm5 and RC (eax) modified! | movaps xmm5, xmm0 @@ -3150,172 +2965,6 @@ static void build_subroutines(BuildCtx *ctx) | movaps xmm0, xmm5 | subsd xmm0, xmm1 | ret - |.else - |// Args/ret on x87 stack (y on top). No xmm registers modified. - |// Caveat: needs 3 slots on x87 stack! RC (eax) modified! - | fld st1 - | fdiv st1 - | fnstcw word [esp+4] - | mov ax, 0x0400 - | or ax, [esp+4] - | and ax, 0xf7ff - | mov [esp+6], ax - | fldcw word [esp+6] - | frndint - | fldcw word [esp+4] - | fmulp st1 - | fsubp st1 - | ret - |.endif - | - |// FP log2(x). Called by math.log(x, base). - |->vm_log2: - |.if X64WIN - | movsd qword [rsp+8], xmm0 // Use scratch area. - | fld1 - | fld qword [rsp+8] - | fyl2x - | fstp qword [rsp+8] - | movsd xmm0, qword [rsp+8] - |.elif X64 - | movsd qword [rsp-8], xmm0 // Use red zone. - | fld1 - | fld qword [rsp-8] - | fyl2x - | fstp qword [rsp-8] - | movsd xmm0, qword [rsp-8] - |.else - | fld1 - | fld qword [esp+4] - | fyl2x - |.endif - | ret - | - |// FP exponentiation e^x and 2^x. Called by math.exp fast function and - |// from JIT code. Arg/ret on x87 stack. No int/xmm regs modified. - |// Caveat: needs 3 slots on x87 stack! - |->vm_exp_x87: - | fldl2e; fmulp st1 // e^x ==> 2^(x*log2(e)) - |->vm_exp2_x87: - | .if X64WIN - | .define expscratch, dword [rsp+8] // Use scratch area. - | .elif X64 - | .define expscratch, dword [rsp-8] // Use red zone. - | .else - | .define expscratch, dword [esp+4] // Needs 4 byte scratch area. - | .endif - | fst expscratch // Caveat: overwrites ARG1. - | cmp expscratch, 0x7f800000; je >1 // Special case: e^+Inf = +Inf - | cmp expscratch, 0xff800000; je >2 // Special case: e^-Inf = 0 - |->vm_exp2raw: // Entry point for vm_pow. Without +-Inf check. - | fdup; frndint; fsub st1, st0; fxch // Split into frac/int part. - | f2xm1; fld1; faddp st1; fscale; fpop1 // ==> (2^frac-1 +1) << int - |1: - | ret - |2: - | fpop; fldz; ret - | - |// Generic power function x^y. Called by BC_POW, math.pow fast function, - |// and vm_arith. - |// Args/ret on x87 stack (y on top). RC (eax) modified. - |// Caveat: needs 3 slots on x87 stack! - |->vm_pow: - |.if not SSE - | fist dword [esp+4] // Store/reload int before comparison. - | fild dword [esp+4] // Integral exponent used in vm_powi. - | fucomip st1 - | jnz >8 // Branch for FP exponents. - | jp >9 // Branch for NaN exponent. - | fpop // Pop y and fallthrough to vm_powi. - | - |// FP/int power function x^i. Arg1/ret on x87 stack. - |// Arg2 (int) on C stack. RC (eax) modified. - |// Caveat: needs 2 slots on x87 stack! - | mov eax, [esp+4] - | cmp eax, 1; jle >6 // i<=1? - | // Now 1 < (unsigned)i <= 0x80000000. - |1: // Handle leading zeros. - | test eax, 1; jnz >2 - | fmul st0 - | shr eax, 1 - | jmp <1 - |2: - | shr eax, 1; jz >5 - | fdup - |3: // Handle trailing bits. - | fmul st0 - | shr eax, 1; jz >4 - | jnc <3 - | fmul st1, st0 - | jmp <3 - |4: - | fmulp st1 - |5: - | ret - |6: - | je <5 // x^1 ==> x - | jb >7 - | fld1; fdivrp st1 - | neg eax - | cmp eax, 1; je <5 // x^-1 ==> 1/x - | jmp <1 // x^-i ==> (1/x)^i - |7: - | fpop; fld1 // x^0 ==> 1 - | ret - | - |8: // FP/FP power function x^y. - | fst dword [esp+4] - | fxch - | fst dword [esp+8] - | mov eax, [esp+4]; shl eax, 1 - | cmp eax, 0xff000000; je >2 // x^+-Inf? - | mov eax, [esp+8]; shl eax, 1; je >4 // +-0^y? - | cmp eax, 0xff000000; je >4 // +-Inf^y? - | fyl2x - | jmp ->vm_exp2raw - | - |9: // Handle x^NaN. - | fld1 - | fucomip st2 - | je >1 // 1^NaN ==> 1 - | fxch // x^NaN ==> NaN - |1: - | fpop - | ret - | - |2: // Handle x^+-Inf. - | fabs - | fld1 - | fucomip st1 - | je >3 // +-1^+-Inf ==> 1 - | fpop; fabs; fldz; mov eax, 0; setc al - | ror eax, 1; xor eax, [esp+4]; jns >3 // |x|<>1, x^+-Inf ==> +Inf/0 - | fxch - |3: - | fpop1; fabs - | ret - | - |4: // Handle +-0^y or +-Inf^y. - | cmp dword [esp+4], 0; jge <3 // y >= 0, x^y ==> |x| - | fpop; fpop - | test eax, eax; jz >5 // y < 0, +-0^y ==> +Inf - | fldz // y < 0, +-Inf^y ==> 0 - | ret - |5: - | mov dword [esp+4], 0x7f800000 // Return +Inf. - | fld dword [esp+4] - | ret - |.endif - | - |// Args in xmm0/xmm1. Ret in xmm0. xmm0-xmm2 and RC (eax) modified. - |// Needs 16 byte scratch area for x86. Also called from JIT code. - |->vm_pow_sse: - | cvtsd2si eax, xmm1 - | cvtsi2sd xmm2, eax - | ucomisd xmm1, xmm2 - | jnz >8 // Branch for FP exponents. - | jp >9 // Branch for NaN exponent. - | // Fallthrough to vm_powi_sse. | |// Args in xmm0/eax. Ret in xmm0. xmm0-xmm1 and eax modified. |->vm_powi_sse: @@ -3352,287 +3001,6 @@ static void build_subroutines(BuildCtx *ctx) | sseconst_1 xmm0, RDa | ret | - |8: // FP/FP power function x^y. - |.if X64 - | movd rax, xmm1; shl rax, 1 - | rol rax, 12; cmp rax, 0xffe; je >2 // x^+-Inf? - | movd rax, xmm0; shl rax, 1; je >4 // +-0^y? - | rol rax, 12; cmp rax, 0xffe; je >5 // +-Inf^y? - | .if X64WIN - | movsd qword [rsp+16], xmm1 // Use scratch area. - | movsd qword [rsp+8], xmm0 - | fld qword [rsp+16] - | fld qword [rsp+8] - | .else - | movsd qword [rsp-16], xmm1 // Use red zone. - | movsd qword [rsp-8], xmm0 - | fld qword [rsp-16] - | fld qword [rsp-8] - | .endif - |.else - | movsd qword [esp+12], xmm1 // Needs 16 byte scratch area. - | movsd qword [esp+4], xmm0 - | cmp dword [esp+12], 0; jne >1 - | mov eax, [esp+16]; shl eax, 1 - | cmp eax, 0xffe00000; je >2 // x^+-Inf? - |1: - | cmp dword [esp+4], 0; jne >1 - | mov eax, [esp+8]; shl eax, 1; je >4 // +-0^y? - | cmp eax, 0xffe00000; je >5 // +-Inf^y? - |1: - | fld qword [esp+12] - | fld qword [esp+4] - |.endif - | fyl2x // y*log2(x) - | fdup; frndint; fsub st1, st0; fxch // Split into frac/int part. - | f2xm1; fld1; faddp st1; fscale; fpop1 // ==> (2^frac-1 +1) << int - |.if X64WIN - | fstp qword [rsp+8] // Use scratch area. - | movsd xmm0, qword [rsp+8] - |.elif X64 - | fstp qword [rsp-8] // Use red zone. - | movsd xmm0, qword [rsp-8] - |.else - | fstp qword [esp+4] // Needs 8 byte scratch area. - | movsd xmm0, qword [esp+4] - |.endif - | ret - | - |9: // Handle x^NaN. - | sseconst_1 xmm2, RDa - | ucomisd xmm0, xmm2; je >1 // 1^NaN ==> 1 - | movaps xmm0, xmm1 // x^NaN ==> NaN - |1: - | ret - | - |2: // Handle x^+-Inf. - | sseconst_abs xmm2, RDa - | andpd xmm0, xmm2 // |x| - | sseconst_1 xmm2, RDa - | ucomisd xmm0, xmm2; je <1 // +-1^+-Inf ==> 1 - | movmskpd eax, xmm1 - | xorps xmm0, xmm0 - | mov ah, al; setc al; xor al, ah; jne <1 // |x|<>1, x^+-Inf ==> +Inf/0 - |3: - | sseconst_hi xmm0, RDa, 7ff00000 // +Inf - | ret - | - |4: // Handle +-0^y. - | movmskpd eax, xmm1; test eax, eax; jnz <3 // y < 0, +-0^y ==> +Inf - | xorps xmm0, xmm0 // y >= 0, +-0^y ==> 0 - | ret - | - |5: // Handle +-Inf^y. - | movmskpd eax, xmm1; test eax, eax; jz <3 // y >= 0, +-Inf^y ==> +Inf - | xorps xmm0, xmm0 // y < 0, +-Inf^y ==> 0 - | ret - | - |// Callable from C: double lj_vm_foldfpm(double x, int fpm) - |// Computes fpm(x) for extended math functions. ORDER FPM. - |->vm_foldfpm: - |.if JIT - |.if X64 - | .if X64WIN - | .define fpmop, CARG2d - | .else - | .define fpmop, CARG1d - | .endif - | cmp fpmop, 1; jb ->vm_floor; je ->vm_ceil - | cmp fpmop, 3; jb ->vm_trunc; ja >2 - | sqrtsd xmm0, xmm0; ret - |2: - | .if X64WIN - | movsd qword [rsp+8], xmm0 // Use scratch area. - | fld qword [rsp+8] - | .else - | movsd qword [rsp-8], xmm0 // Use red zone. - | fld qword [rsp-8] - | .endif - | cmp fpmop, 5; ja >2 - | .if X64WIN; pop rax; .endif - | je >1 - | call ->vm_exp_x87 - | .if X64WIN; push rax; .endif - | jmp >7 - |1: - | call ->vm_exp2_x87 - | .if X64WIN; push rax; .endif - | jmp >7 - |2: ; cmp fpmop, 7; je >1; ja >2 - | fldln2; fxch; fyl2x; jmp >7 - |1: ; fld1; fxch; fyl2x; jmp >7 - |2: ; cmp fpmop, 9; je >1; ja >2 - | fldlg2; fxch; fyl2x; jmp >7 - |1: ; fsin; jmp >7 - |2: ; cmp fpmop, 11; je >1; ja >9 - | fcos; jmp >7 - |1: ; fptan; fpop - |7: - | .if X64WIN - | fstp qword [rsp+8] // Use scratch area. - | movsd xmm0, qword [rsp+8] - | .else - | fstp qword [rsp-8] // Use red zone. - | movsd xmm0, qword [rsp-8] - | .endif - | ret - |.else // x86 calling convention. - | .define fpmop, eax - |.if SSE - | mov fpmop, [esp+12] - | movsd xmm0, qword [esp+4] - | cmp fpmop, 1; je >1; ja >2 - | call ->vm_floor; jmp >7 - |1: ; call ->vm_ceil; jmp >7 - |2: ; cmp fpmop, 3; je >1; ja >2 - | call ->vm_trunc; jmp >7 - |1: - | sqrtsd xmm0, xmm0 - |7: - | movsd qword [esp+4], xmm0 // Overwrite callee-owned args. - | fld qword [esp+4] - | ret - |2: ; fld qword [esp+4] - | cmp fpmop, 5; jb ->vm_exp_x87; je ->vm_exp2_x87 - |2: ; cmp fpmop, 7; je >1; ja >2 - | fldln2; fxch; fyl2x; ret - |1: ; fld1; fxch; fyl2x; ret - |2: ; cmp fpmop, 9; je >1; ja >2 - | fldlg2; fxch; fyl2x; ret - |1: ; fsin; ret - |2: ; cmp fpmop, 11; je >1; ja >9 - | fcos; ret - |1: ; fptan; fpop; ret - |.else - | mov fpmop, [esp+12] - | fld qword [esp+4] - | cmp fpmop, 1; jb ->vm_floor; je ->vm_ceil - | cmp fpmop, 3; jb ->vm_trunc; ja >2 - | fsqrt; ret - |2: ; cmp fpmop, 5; jb ->vm_exp_x87; je ->vm_exp2_x87 - | cmp fpmop, 7; je >1; ja >2 - | fldln2; fxch; fyl2x; ret - |1: ; fld1; fxch; fyl2x; ret - |2: ; cmp fpmop, 9; je >1; ja >2 - | fldlg2; fxch; fyl2x; ret - |1: ; fsin; ret - |2: ; cmp fpmop, 11; je >1; ja >9 - | fcos; ret - |1: ; fptan; fpop; ret - |.endif - |.endif - |9: ; int3 // Bad fpm. - |.endif - | - |// Callable from C: double lj_vm_foldarith(double x, double y, int op) - |// Compute x op y for basic arithmetic operators (+ - * / % ^ and unary -) - |// and basic math functions. ORDER ARITH - |->vm_foldarith: - |.if X64 - | - | .if X64WIN - | .define foldop, CARG3d - | .else - | .define foldop, CARG1d - | .endif - | cmp foldop, 1; je >1; ja >2 - | addsd xmm0, xmm1; ret - |1: ; subsd xmm0, xmm1; ret - |2: ; cmp foldop, 3; je >1; ja >2 - | mulsd xmm0, xmm1; ret - |1: ; divsd xmm0, xmm1; ret - |2: ; cmp foldop, 5; jb ->vm_mod; je ->vm_pow - | cmp foldop, 7; je >1; ja >2 - | sseconst_sign xmm1, RDa; xorps xmm0, xmm1; ret - |1: ; sseconst_abs xmm1, RDa; andps xmm0, xmm1; ret - |2: ; cmp foldop, 9; ja >2 - |.if X64WIN - | movsd qword [rsp+8], xmm0 // Use scratch area. - | movsd qword [rsp+16], xmm1 - | fld qword [rsp+8] - | fld qword [rsp+16] - |.else - | movsd qword [rsp-8], xmm0 // Use red zone. - | movsd qword [rsp-16], xmm1 - | fld qword [rsp-8] - | fld qword [rsp-16] - |.endif - | je >1 - | fpatan - |7: - |.if X64WIN - | fstp qword [rsp+8] // Use scratch area. - | movsd xmm0, qword [rsp+8] - |.else - | fstp qword [rsp-8] // Use red zone. - | movsd xmm0, qword [rsp-8] - |.endif - | ret - |1: ; fxch; fscale; fpop1; jmp <7 - |2: ; cmp foldop, 11; je >1; ja >9 - | minsd xmm0, xmm1; ret - |1: ; maxsd xmm0, xmm1; ret - |9: ; int3 // Bad op. - | - |.elif SSE // x86 calling convention with SSE ops. - | - | .define foldop, eax - | mov foldop, [esp+20] - | movsd xmm0, qword [esp+4] - | movsd xmm1, qword [esp+12] - | cmp foldop, 1; je >1; ja >2 - | addsd xmm0, xmm1 - |7: - | movsd qword [esp+4], xmm0 // Overwrite callee-owned args. - | fld qword [esp+4] - | ret - |1: ; subsd xmm0, xmm1; jmp <7 - |2: ; cmp foldop, 3; je >1; ja >2 - | mulsd xmm0, xmm1; jmp <7 - |1: ; divsd xmm0, xmm1; jmp <7 - |2: ; cmp foldop, 5 - | je >1; ja >2 - | call ->vm_mod; jmp <7 - |1: ; pop edx; call ->vm_pow; push edx; jmp <7 // Writes to scratch area. - |2: ; cmp foldop, 7; je >1; ja >2 - | sseconst_sign xmm1, RDa; xorps xmm0, xmm1; jmp <7 - |1: ; sseconst_abs xmm1, RDa; andps xmm0, xmm1; jmp <7 - |2: ; cmp foldop, 9; ja >2 - | fld qword [esp+4] // Reload from stack - | fld qword [esp+12] - | je >1 - | fpatan; ret - |1: ; fxch; fscale; fpop1; ret - |2: ; cmp foldop, 11; je >1; ja >9 - | minsd xmm0, xmm1; jmp <7 - |1: ; maxsd xmm0, xmm1; jmp <7 - |9: ; int3 // Bad op. - | - |.else // x86 calling convention with x87 ops. - | - | mov eax, [esp+20] - | fld qword [esp+4] - | fld qword [esp+12] - | cmp eax, 1; je >1; ja >2 - | faddp st1; ret - |1: ; fsubp st1; ret - |2: ; cmp eax, 3; je >1; ja >2 - | fmulp st1; ret - |1: ; fdivp st1; ret - |2: ; cmp eax, 5; jb ->vm_mod; je ->vm_pow - | cmp eax, 7; je >1; ja >2 - | fpop; fchs; ret - |1: ; fpop; fabs; ret - |2: ; cmp eax, 9; je >1; ja >2 - | fpatan; ret - |1: ; fxch; fscale; fpop1; ret - |2: ; cmp eax, 11; je >1; ja >9 - | fucomi st1; fcmovnbe st1; fpop1; ret - |1: ; fucomi st1; fcmovbe st1; fpop1; ret - |9: ; int3 // Bad op. - | - |.endif - | |//----------------------------------------------------------------------- |//-- Miscellaneous functions -------------------------------------------- |//----------------------------------------------------------------------- @@ -3943,19 +3311,12 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // RA is a number. | cmp dword [BASE+RD*8+4], LJ_TISNUM; jb >1; jne ->vmeta_comp | // RA is a number, RD is an integer. - |.if SSE | cvtsi2sd xmm0, dword [BASE+RD*8] | jmp >2 - |.else - | fld qword [BASE+RA*8] - | fild dword [BASE+RD*8] - | jmp >3 - |.endif | |8: // RA is an integer, RD is not an integer. | ja ->vmeta_comp | // RA is an integer, RD is a number. - |.if SSE | cvtsi2sd xmm1, dword [BASE+RA*8] | movsd xmm0, qword [BASE+RD*8] | add PC, 4 @@ -3963,29 +3324,15 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | jmp_comp jbe, ja, jb, jae, <9 | jmp <6 |.else - | fild dword [BASE+RA*8] - | jmp >2 - |.endif - |.else | checknum RA, ->vmeta_comp | checknum RD, ->vmeta_comp |.endif - |.if SSE |1: | movsd xmm0, qword [BASE+RD*8] |2: | add PC, 4 | ucomisd xmm0, qword [BASE+RA*8] |3: - |.else - |1: - | fld qword [BASE+RA*8] // Reverse order, i.e like cmp D, A. - |2: - | fld qword [BASE+RD*8] - |3: - | add PC, 4 - | fcomparepp - |.endif | // Unordered: all of ZF CF PF set, ordered: PF clear. | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. |.if DUALNUM @@ -4025,43 +3372,25 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // RD is a number. | cmp dword [BASE+RA*8+4], LJ_TISNUM; jb >1; jne >5 | // RD is a number, RA is an integer. - |.if SSE | cvtsi2sd xmm0, dword [BASE+RA*8] - |.else - | fild dword [BASE+RA*8] - |.endif | jmp >2 | |8: // RD is an integer, RA is not an integer. | ja >5 | // RD is an integer, RA is a number. - |.if SSE | cvtsi2sd xmm0, dword [BASE+RD*8] | ucomisd xmm0, qword [BASE+RA*8] - |.else - | fild dword [BASE+RD*8] - | fld qword [BASE+RA*8] - |.endif | jmp >4 | |.else | cmp RB, LJ_TISNUM; jae >5 | checknum RA, >5 |.endif - |.if SSE |1: | movsd xmm0, qword [BASE+RA*8] |2: | ucomisd xmm0, qword [BASE+RD*8] |4: - |.else - |1: - | fld qword [BASE+RA*8] - |2: - | fld qword [BASE+RD*8] - |4: - | fcomparepp - |.endif iseqne_fp: if (vk) { | jp >2 // Unordered means not equal. @@ -4184,39 +3513,21 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // RA is a number. | cmp dword [KBASE+RD*8+4], LJ_TISNUM; jb >1 | // RA is a number, RD is an integer. - |.if SSE | cvtsi2sd xmm0, dword [KBASE+RD*8] - |.else - | fild dword [KBASE+RD*8] - |.endif | jmp >2 | |8: // RA is an integer, RD is a number. - |.if SSE | cvtsi2sd xmm0, dword [BASE+RA*8] | ucomisd xmm0, qword [KBASE+RD*8] - |.else - | fild dword [BASE+RA*8] - | fld qword [KBASE+RD*8] - |.endif | jmp >4 |.else | cmp RB, LJ_TISNUM; jae >3 |.endif - |.if SSE |1: | movsd xmm0, qword [KBASE+RD*8] |2: | ucomisd xmm0, qword [BASE+RA*8] |4: - |.else - |1: - | fld qword [KBASE+RD*8] - |2: - | fld qword [BASE+RA*8] - |4: - | fcomparepp - |.endif goto iseqne_fp; case BC_ISEQP: case BC_ISNEP: vk = op == BC_ISEQP; @@ -4267,6 +3578,18 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ins_next break; + case BC_ISTYPE: + | ins_AD // RA = src, RD = -type + | add RD, [BASE+RA*8+4] + | jne ->vmeta_istype + | ins_next + break; + case BC_ISNUM: + | ins_AD // RA = src, RD = -(TISNUM-1) + | checknum RA, ->vmeta_istype + | ins_next + break; + /* -- Unary ops --------------------------------------------------------- */ case BC_MOV: @@ -4310,16 +3633,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |.else | checknum RD, ->vmeta_unm |.endif - |.if SSE | movsd xmm0, qword [BASE+RD*8] | sseconst_sign xmm1, RDa | xorps xmm0, xmm1 | movsd qword [BASE+RA*8], xmm0 - |.else - | fld qword [BASE+RD*8] - | fchs - | fstp qword [BASE+RA*8] - |.endif |.if DUALNUM | jmp <9 |.else @@ -4335,15 +3652,11 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |1: | mov dword [BASE+RA*8+4], LJ_TISNUM | mov dword [BASE+RA*8], RD - |.elif SSE + |.else | xorps xmm0, xmm0 | cvtsi2sd xmm0, dword STR:RD->len |1: | movsd qword [BASE+RA*8], xmm0 - |.else - | fild dword STR:RD->len - |1: - | fstp qword [BASE+RA*8] |.endif | ins_next |2: @@ -4361,11 +3674,8 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // Length of table returned in eax (RD). |.if DUALNUM | // Nothing to do. - |.elif SSE - | cvtsi2sd xmm0, RD |.else - | mov ARG1, RD - | fild ARG1 + | cvtsi2sd xmm0, RD |.endif | mov BASE, RB // Restore BASE. | movzx RA, PC_RA @@ -4380,7 +3690,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) /* -- Binary ops -------------------------------------------------------- */ - |.macro ins_arithpre, x87ins, sseins, ssereg + |.macro ins_arithpre, sseins, ssereg | ins_ABC ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); ||switch (vk) { @@ -4389,37 +3699,22 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | .if DUALNUM | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_vn | .endif - | .if SSE - | movsd xmm0, qword [BASE+RB*8] - | sseins ssereg, qword [KBASE+RC*8] - | .else - | fld qword [BASE+RB*8] - | x87ins qword [KBASE+RC*8] - | .endif + | movsd xmm0, qword [BASE+RB*8] + | sseins ssereg, qword [KBASE+RC*8] || break; ||case 1: | checknum RB, ->vmeta_arith_nv | .if DUALNUM | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_nv | .endif - | .if SSE - | movsd xmm0, qword [KBASE+RC*8] - | sseins ssereg, qword [BASE+RB*8] - | .else - | fld qword [KBASE+RC*8] - | x87ins qword [BASE+RB*8] - | .endif + | movsd xmm0, qword [KBASE+RC*8] + | sseins ssereg, qword [BASE+RB*8] || break; ||default: | checknum RB, ->vmeta_arith_vv | checknum RC, ->vmeta_arith_vv - | .if SSE - | movsd xmm0, qword [BASE+RB*8] - | sseins ssereg, qword [BASE+RC*8] - | .else - | fld qword [BASE+RB*8] - | x87ins qword [BASE+RC*8] - | .endif + | movsd xmm0, qword [BASE+RB*8] + | sseins ssereg, qword [BASE+RC*8] || break; ||} |.endmacro @@ -4457,55 +3752,62 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |.endmacro | |.macro ins_arithpost - |.if SSE | movsd qword [BASE+RA*8], xmm0 - |.else - | fstp qword [BASE+RA*8] - |.endif |.endmacro | - |.macro ins_arith, x87ins, sseins - | ins_arithpre x87ins, sseins, xmm0 + |.macro ins_arith, sseins + | ins_arithpre sseins, xmm0 | ins_arithpost | ins_next |.endmacro | - |.macro ins_arith, intins, x87ins, sseins + |.macro ins_arith, intins, sseins |.if DUALNUM | ins_arithdn intins |.else - | ins_arith, x87ins, sseins + | ins_arith, sseins |.endif |.endmacro | // RA = dst, RB = src1 or num const, RC = src2 or num const case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arith add, fadd, addsd + | ins_arith add, addsd break; case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arith sub, fsub, subsd + | ins_arith sub, subsd break; case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arith imul, fmul, mulsd + | ins_arith imul, mulsd break; case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arith fdiv, divsd + | ins_arith divsd break; case BC_MODVN: - | ins_arithpre fld, movsd, xmm1 + | ins_arithpre movsd, xmm1 |->BC_MODVN_Z: | call ->vm_mod | ins_arithpost | ins_next break; case BC_MODNV: case BC_MODVV: - | ins_arithpre fld, movsd, xmm1 + | ins_arithpre movsd, xmm1 | jmp ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. break; case BC_POW: - | ins_arithpre fld, movsd, xmm1 - | call ->vm_pow + | ins_arithpre movsd, xmm1 + | mov RB, BASE + |.if not X64 + | movsd FPARG1, xmm0 + | movsd FPARG3, xmm1 + |.endif + | call extern pow + | movzx RA, PC_RA + | mov BASE, RB + |.if X64 | ins_arithpost + |.else + | fstp qword [BASE+RA*8] + |.endif | ins_next break; @@ -4573,25 +3875,17 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | movsx RD, RDW | mov dword [BASE+RA*8+4], LJ_TISNUM | mov dword [BASE+RA*8], RD - |.elif SSE + |.else | movsx RD, RDW // Sign-extend literal. | cvtsi2sd xmm0, RD | movsd qword [BASE+RA*8], xmm0 - |.else - | fild PC_RD // Refetch signed RD from instruction. - | fstp qword [BASE+RA*8] |.endif | ins_next break; case BC_KNUM: | ins_AD // RA = dst, RD = num const - |.if SSE | movsd xmm0, qword [KBASE+RD*8] | movsd qword [BASE+RA*8], xmm0 - |.else - | fld qword [KBASE+RD*8] - | fstp qword [BASE+RA*8] - |.endif | ins_next break; case BC_KPRI: @@ -4698,18 +3992,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) case BC_USETN: | ins_AD // RA = upvalue #, RD = num const | mov LFUNC:RB, [BASE-8] - |.if SSE | movsd xmm0, qword [KBASE+RD*8] - |.else - | fld qword [KBASE+RD*8] - |.endif | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] | mov RA, UPVAL:RB->v - |.if SSE | movsd qword [RA], xmm0 - |.else - | fstp qword [RA] - |.endif | ins_next break; case BC_USETP: @@ -4863,18 +4149,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |.else | // Convert number to int and back and compare. | checknum RC, >5 - |.if SSE | movsd xmm0, qword [BASE+RC*8] - | cvtsd2si RC, xmm0 + | cvttsd2si RC, xmm0 | cvtsi2sd xmm1, RC | ucomisd xmm0, xmm1 - |.else - | fld qword [BASE+RC*8] - | fist ARG1 - | fild ARG1 - | fcomparepp - | mov RC, ARG1 - |.endif | jne ->vmeta_tgetv // Generic numeric key? Use fallback. |.endif | cmp RC, TAB:RB->asize // Takes care of unordered, too. @@ -4998,6 +4276,32 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | mov dword [BASE+RA*8+4], LJ_TNIL | jmp <1 break; + case BC_TGETR: + | ins_ABC // RA = dst, RB = table, RC = key + | mov TAB:RB, [BASE+RB*8] + |.if DUALNUM + | mov RC, dword [BASE+RC*8] + |.else + | cvttsd2si RC, qword [BASE+RC*8] + |.endif + | cmp RC, TAB:RB->asize + | jae ->vmeta_tgetr // Not in array part? Use fallback. + | shl RC, 3 + | add RC, TAB:RB->array + | // Get array slot. + |->BC_TGETR_Z: + |.if X64 + | mov RBa, [RC] + | mov [BASE+RA*8], RBa + |.else + | mov RB, [RC] + | mov RC, [RC+4] + | mov [BASE+RA*8], RB + | mov [BASE+RA*8+4], RC + |.endif + |->BC_TGETR2_Z: + | ins_next + break; case BC_TSETV: | ins_ABC // RA = src, RB = table, RC = key @@ -5011,18 +4315,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |.else | // Convert number to int and back and compare. | checknum RC, >5 - |.if SSE | movsd xmm0, qword [BASE+RC*8] - | cvtsd2si RC, xmm0 + | cvttsd2si RC, xmm0 | cvtsi2sd xmm1, RC | ucomisd xmm0, xmm1 - |.else - | fld qword [BASE+RC*8] - | fist ARG1 - | fild ARG1 - | fcomparepp - | mov RC, ARG1 - |.endif | jne ->vmeta_tsetv // Generic numeric key? Use fallback. |.endif | cmp RC, TAB:RB->asize // Takes care of unordered, too. @@ -5192,6 +4488,39 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | movzx RA, PC_RA // Restore RA. | jmp <2 break; + case BC_TSETR: + | ins_ABC // RA = src, RB = table, RC = key + | mov TAB:RB, [BASE+RB*8] + |.if DUALNUM + | mov RC, dword [BASE+RC*8] + |.else + | cvttsd2si RC, qword [BASE+RC*8] + |.endif + | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) + | jnz >7 + |2: + | cmp RC, TAB:RB->asize + | jae ->vmeta_tsetr + | shl RC, 3 + | add RC, TAB:RB->array + | // Set array slot. + |->BC_TSETR_Z: + |.if X64 + | mov RBa, [BASE+RA*8] + | mov [RC], RBa + |.else + | mov RB, [BASE+RA*8+4] + | mov RA, [BASE+RA*8] + | mov [RC+4], RB + | mov [RC], RA + |.endif + | ins_next + | + |7: // Possible table write barrier for the value. Skip valiswhite check. + | barrierback TAB:RB, RA + | movzx RA, PC_RA // Restore RA. + | jmp <2 + break; case BC_TSETM: | ins_AD // RA = base (table at base-1), RD = num const (start index) @@ -5385,10 +4714,8 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |.if DUALNUM | mov dword [BASE+RA*8+4], LJ_TISNUM | mov dword [BASE+RA*8], RC - |.elif SSE - | cvtsi2sd xmm0, RC |.else - | fild dword [BASE+RA*8-8] + | cvtsi2sd xmm0, RC |.endif | // Copy array slot to returned value. |.if X64 @@ -5404,10 +4731,8 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // Return array index as a numeric key. |.if DUALNUM | // See above. - |.elif SSE - | movsd qword [BASE+RA*8], xmm0 |.else - | fstp qword [BASE+RA*8] + | movsd qword [BASE+RA*8], xmm0 |.endif | mov [BASE+RA*8-8], RC // Update control var. |2: @@ -5420,9 +4745,6 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | |4: // Skip holes in array part. | add RC, 1 - |.if not (DUALNUM or SSE) - | mov [BASE+RA*8-8], RC - |.endif | jmp <1 | |5: // Traverse hash part. @@ -5756,7 +5078,6 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) if (!vk) { | cmp RB, LJ_TISNUM; jae ->vmeta_for } - |.if SSE | movsd xmm0, qword FOR_IDX | movsd xmm1, qword FOR_STOP if (vk) { @@ -5769,22 +5090,6 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ucomisd xmm1, xmm0 |1: | movsd qword FOR_EXT, xmm0 - |.else - | fld qword FOR_STOP - | fld qword FOR_IDX - if (vk) { - | fadd qword FOR_STEP // nidx = idx + step - | fst qword FOR_IDX - | fst qword FOR_EXT - | test RB, RB; js >1 - } else { - | fst qword FOR_EXT - | jl >1 - } - | fxch // Swap lim/(n)idx if step non-negative. - |1: - | fcomparepp - |.endif if (op == BC_FORI) { |.if DUALNUM | jnb <7 @@ -5812,11 +5117,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) |2: | ins_next |.endif - |.if SSE + | |3: // Invert comparison if step is negative. | ucomisd xmm0, xmm1 | jmp <1 - |.endif break; case BC_ITERL: @@ -5854,7 +5158,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | ins_A // RA = base, RD = target (loop extent) | // Note: RA/RD is only used by trace recorder to determine scope/extent | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT + |.if JIT | hotloop RB |.endif | // Fall through. Assumes BC_ILOOP follows and ins_A is a no-op. @@ -5873,7 +5177,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | mov RDa, TRACE:RD->mcode | mov L:RB, SAVE_L | mov [DISPATCH+DISPATCH_GL(jit_base)], BASE - | mov [DISPATCH+DISPATCH_GL(jit_L)], L:RB + | mov [DISPATCH+DISPATCH_GL(tmpbuf.L)], L:RB | // Save additional callee-save registers only used in compiled code. |.if X64WIN | mov TMPQ, r12 @@ -6040,9 +5344,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop) | // (lua_State *L, lua_CFunction f) | call aword [DISPATCH+DISPATCH_GL(wrapf)] } - | set_vmstate INTERP | // nresults returned in eax (RD). | mov BASE, L:RB->base + | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB + | set_vmstate INTERP | lea RA, [BASE+RD*8] | neg RA | add RA, L:RB->top // RA = (L->top-(L->base+nresults))*8 @@ -6355,15 +5660,21 @@ static void emit_asm_debug(BuildCtx *ctx) "LEFDEY:\n\n", fcsize); } #endif -#if LJ_64 - fprintf(ctx->fp, "\t.subsections_via_symbols\n"); -#else +#if !LJ_64 fprintf(ctx->fp, "\t.non_lazy_symbol_pointer\n" "L_lj_err_unwind_dwarf$non_lazy_ptr:\n" ".indirect_symbol _lj_err_unwind_dwarf\n" - ".long 0\n"); + ".long 0\n\n"); + fprintf(ctx->fp, "\t.section __IMPORT,__jump_table,symbol_stubs,pure_instructions+self_modifying_code,5\n"); + { + const char *const *xn; + for (xn = ctx->extnames; *xn; xn++) + if (strncmp(*xn, LABEL_PREFIX, sizeof(LABEL_PREFIX)-1)) + fprintf(ctx->fp, "L_%s$stub:\n\t.indirect_symbol _%s\n\t.ascii \"\\364\\364\\364\\364\\364\"\n", *xn, *xn); + } #endif + fprintf(ctx->fp, ".subsections_via_symbols\n"); } break; default: /* Difficult for other modes. */ From d91c100a78ba249221d0fbe9b190a036199021d1 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 16 Jan 2015 03:31:24 -0500 Subject: [PATCH 072/166] - added some -dbg logging - added workaround for stalker_animation_callbacks.cpp rotation crash - added extra action debugging with -dbgact command line --- src/build_config_defines.h | 2 +- src/xrGame/action_planner_inline.h | 16 ++++++++++------ src/xrGame/alife_switch_manager.cpp | 10 +++++----- src/xrGame/stalker_animation_callbacks.cpp | 1 + src/xrServerEntities/script_storage.cpp | 10 +++++----- 5 files changed, 22 insertions(+), 17 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 7c40b2b4d18..771b4fd8b03 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -6,7 +6,7 @@ //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) #define FP_DEATH // first person death view #define LUA_DEBUG_PRINT // allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) -#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) +//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define DETAIL_RADIUS // detail draw radius (by KD) #define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) diff --git a/src/xrGame/action_planner_inline.h b/src/xrGame/action_planner_inline.h index bc523d7d3c6..998123db778 100644 --- a/src/xrGame/action_planner_inline.h +++ b/src/xrGame/action_planner_inline.h @@ -99,26 +99,30 @@ void CPlanner::update () THROW (!solution().empty()); - //Alundaio: Reverted - //Alundaio: Attempt to workaround strange line 114 crash when loading generators - //if (!solution().empty()) - //{ if (initialized()) { if (current_action_id() != solution().front()) { current_action().finalize(); m_current_action_id = solution().front(); + //Alundaio: More detailed logging for initializing action + if (strstr(Core.Params, "-dbgact")) + Msg("DEBUG: Action [%d] initializing", m_current_action_id); current_action().initialize(); } } else { m_initialized = true; m_current_action_id = solution().front(); + //Alundaio: More detailed logging for initializing action + if (strstr(Core.Params, "-dbgact")) + Msg("DEBUG: Action [%d] initializing", m_current_action_id); current_action().initialize(); } + + //Alundaio: More detailed logging for executing action; Knowing the last executing action before a crash can be very useful for debugging + if (strstr(Core.Params, "-dbgact")) + Msg("DEBUG: Action [%d] executing", m_current_action_id); current_action().execute (); - //} - //Alundaio: END } TEMPLATE_SPECIALIZATION diff --git a/src/xrGame/alife_switch_manager.cpp b/src/xrGame/alife_switch_manager.cpp index c4f255fd334..f9c441f8d62 100644 --- a/src/xrGame/alife_switch_manager.cpp +++ b/src/xrGame/alife_switch_manager.cpp @@ -61,12 +61,12 @@ void CALifeSwitchManager::add_online(CSE_ALifeDynamicObject *object, bool update clientID.set (server().GetServerClient() ? server().GetServerClient()->ID.value() : 0); server().Process_spawn (tNetPacket,clientID,FALSE,l_tpAbstract); object->s_flags.and (u16(-1) ^ M_SPAWN_UPDATE); - R_ASSERT3 (!object->used_ai_locations() || ai().level_graph().valid_vertex_id(object->m_tNodeID),"Invalid vertex for object ",object->name_replace()); -#ifdef DEBUG - if (psAI_Flags.test(aiALife)) - Msg ("[LSS] Spawning object [%s][%s][%d]",object->name_replace(),*object->s_name,object->ID); -#endif + //Alundaio: Knowing last object to spawn can be very useful to debugging + if (strstr(Core.Params, "-dbg")) + Msg("[LSS] Spawning object [%s][%s][%d]", object->name_replace(), *object->s_name, object->ID); + + R_ASSERT2(!object->used_ai_locations() || ai().level_graph().valid_vertex_id(object->m_tNodeID), make_string("Invalid vertex for object %s", object->name_replace())); object->add_online (update_registries); STOP_PROFILE diff --git a/src/xrGame/stalker_animation_callbacks.cpp b/src/xrGame/stalker_animation_callbacks.cpp index e25470ee0c7..b9a7dbbbcfb 100644 --- a/src/xrGame/stalker_animation_callbacks.cpp +++ b/src/xrGame/stalker_animation_callbacks.cpp @@ -40,6 +40,7 @@ static void _BCL callback_rotation (CBoneInstance* bone) } else { Msg("ERROR: stalker_animation_callbacks.cpp | callback_rotation | _valid(*parameter->m_rotation) failed for %s", object->Name()); + bone->mTransform.mulA_43(*parameter->m_rotation); } //Alundaio: END diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index dc991c2bbd2..fc58ef2f235 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -318,8 +318,8 @@ void CScriptStorage::reinit() #ifdef DEBUG luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); #else //!DEBUG - //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory - //if (strstr(Core.Params, "-dbg")) + + if (strstr(Core.Params, "-dbg")) luajit::open_lib(lua(), LUA_DBLIBNAME, luaopen_debug); #endif //-DEBUG @@ -354,9 +354,9 @@ int CScriptStorage::vscript_log(ScriptStorage::ELuaMessageType tLuaMessageType, # ifndef NO_XRGAME_SCRIPT_ENGINE //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) # ifndef DEBUG - //Alundaio: I can't use command line params on Windows 8.1 because no log is flushed when using a shortcut to xrEngine.exe started inside main game directory - //if (!strstr(Core.Params, "-dbg")) - // return(0); + + if (!strstr(Core.Params, "-dbg")) + return(0); # endif //!DEBUG # ifdef LUA_DEBUG_PRINT # ifdef DEBUG From 773c53f62a549a4cbbad363d3b9018824cbf6aca Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 16 Jan 2015 17:00:11 -0500 Subject: [PATCH 073/166] + Updated several combat actions with an "abs(y1-y2) > 3.0f" check for adjusting stalker sight direction to improve the look of indoor combat; they will no longer stare at the floor or ceiling - Disabled SPAWN_ANTIFREEZE --- src/build_config_defines.h | 2 +- src/xrGame/stalker_combat_actions.cpp | 113 +++++++++++++++++--------- 2 files changed, 74 insertions(+), 41 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 904b1bbece6..8e419942dd3 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -8,7 +8,7 @@ //-SCRIPTS // CORE: -#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) +//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails //-CORE diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index 3d0c7021fac..172d550083b 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -469,61 +469,72 @@ void CStalkerActionTakeCover::finalize () inherited::finalize (); } -void CStalkerActionTakeCover::execute () +void CStalkerActionTakeCover::execute() { #ifdef TEST_MENTAL_STATE VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + + if (!enemy) return; - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; if (object().movement().detail().distance_to_target() > CLOSE_MOVE_DISTANCE) - object().movement().set_body_state (eBodyStateStand); + object().movement().set_body_state(eBodyStateStand); else - object().movement().set_movement_type (m_movement_type); + object().movement().set_movement_type(m_movement_type); + + Fvector position = mem_object.m_object_params.m_position; + const CCoverPoint *point = object().best_cover(position); - Fvector position = mem_object.m_object_params.m_position; - const CCoverPoint *point = object().best_cover(position); if (point) { - setup_cover (*point); + setup_cover(*point); if (object().movement().path_completed() && object().Position().distance_to(point->position()) < 1.f) - object().brain().affect_cover (true); + object().brain().affect_cover(true); else - object().brain().affect_cover (false); + object().brain().affect_cover(false); } else { - object().movement().set_nearest_accessible_position (); - object().brain().affect_cover (true); + object().movement().set_nearest_accessible_position(); + object().brain().affect_cover(true); } -//. Add fire here -// if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().can_kill_enemy()) -// if (object().memory().visual().visible_now(object().memory().enemy().selected())) - if (fire_make_sense()) { - fire (); + //. Add fire here + // if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().can_kill_enemy()) + // if (object().memory().visual().visible_now(object().memory().enemy().selected())) + if (object().movement().path_completed()) {// && (object().memory().enemy().selected()->Position().distance_to_sqr(object().Position()) >= 10.f)) + object().best_cover_can_try_advance(); + m_storage->set_property(eWorldPropertyInCover, true); + } + + //Alundaio: Fix CAIStalker shooting at walls or aiming at ceiling or floor during this action + u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); + if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 2000 && fire_make_sense()) { + fire(); } else { - aim_ready (); + aim_ready(); } - if (object().movement().path_completed()) {// && (object().memory().enemy().selected()->Position().distance_to_sqr(object().Position()) >= 10.f)) - object().best_cover_can_try_advance (); - m_storage->set_property (eWorldPropertyInCover,true); - } + if (object().memory().visual().visible_now(enemy)) + object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); + else { - if (object().memory().visual().visible_now(object().memory().enemy().selected())) - object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); - else - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + if (_abs(object().Position().y - enemy->Position().y) > 3.f) + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + } + //-Alundaio } ////////////////////////////////////////////////////////////////////////// @@ -608,7 +619,12 @@ void CStalkerActionLookOut::execute () if (!mem_object.m_object) return; - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //Alundaio: Prevent stalkers from staring at ceiling or floor for this action + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + else + object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //-Alundaio if (current_cover(m_object) >= 3.f) { object().movement().set_nearest_accessible_position (); @@ -695,7 +711,12 @@ void CStalkerActionHoldPosition::execute () if (current_cover(m_object) < 3.f) m_storage->set_property (eWorldPropertyLookedOut,false); - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //-Alundaio if (completed()) { if ( @@ -819,7 +840,12 @@ void CStalkerActionDetourEnemy::execute () m_storage->set_property (eWorldPropertyEnemyDetoured,true); } - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //Alundaio: Prevent stalkers from looking at ceiling or floor during action + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) >= 3.f) + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + else + object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + //-Alundaio } ////////////////////////////////////////////////////////////////////////// @@ -838,7 +864,7 @@ void CStalkerActionPostCombatWait::initialize () if (object().movement().current_params().cover()) return; - object().movement().set_movement_type (eMovementTypeStand); + object().movement().set_movement_type(eMovementTypeRun); //Alundaio EObjectAction action = eObjectActionAimReady1; if (m_storage->property(eWorldPropertyKilledWounded)) @@ -996,21 +1022,28 @@ void CStalkerActionSuddenAttack::execute () //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a group. //if (object().agent_manager().member().combat_members().size() > 1) // m_storage->set_property (eWorldPropertyUseSuddenness,false); - //Alundaio: END + //-Alundaio - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + if (!enemy) return; - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; - bool visible_now = object().memory().visual().visible_now(object().memory().enemy().selected()); + //Alundaio: Don't aim at ceiling or floor + bool visible_now = object().memory().visual().visible_now(enemy); if (visible_now) - object().sight().setup (CSightAction(object().memory().enemy().selected(),true)); - else - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(enemy,true)); + else { + if (_abs(object().Position().y - enemy->Position().y) >= 3.f) + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + } + //-Alundaio if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) object().movement().set_level_dest_vertex (mem_object.m_object_params.m_level_vertex_id); @@ -1055,9 +1088,9 @@ void CStalkerActionSuddenAttack::execute () } } - CVisualMemoryManager *visual_memory_manager = object().memory().enemy().selected()->visual_memory(); + CVisualMemoryManager *visual_memory_manager = enemy->visual_memory(); VERIFY (visual_memory_manager); - if (object().memory().enemy().selected()->g_Alive() && !visual_memory_manager->visible_now(&object())) + if (enemy->g_Alive() && !visual_memory_manager->visible_now(&object())) return; m_storage->set_property (eWorldPropertyUseSuddenness, false); From d9f0a9bf98fa0bba1963e23d1a8167bbcace5046 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 17 Jan 2015 03:49:26 -0500 Subject: [PATCH 074/166] = Improved the 'stalker don't stare through ceiling/floor' feature. Instead of sight towards path, now stalkers have sight towards direction of enemy but maintain looking straight ahead instead of looking straight up or down when enemy is on a different elevation. --- src/xrGame/stalker_combat_actions.cpp | 137 +++++++++++++------------- 1 file changed, 71 insertions(+), 66 deletions(-) diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index 172d550083b..44a67102a6c 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -408,21 +408,24 @@ void CStalkerActionKillEnemy::execute () #endif // TEST_MENTAL_STATE inherited::execute(); - - //Alundaio - if (object().memory().enemy().selected() && object().memory().enemy().selected()->g_Alive()) { - object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); - fire(); + //Alundaio: Prevent Stalkers from shooting at walls for prolonged periods due to kill if not visible + const CEntityAlive *enemy = object().memory().enemy().selected(); - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + if (!enemy || !enemy->g_Alive()) + return; - if (mem_object.m_object) { - object().best_cover(mem_object.m_object_params.m_position); - } - } - else { - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); + CMemoryInfo mem_object = object().memory().memory(enemy); + + if (!mem_object.m_object) + return; + + object().best_cover(mem_object.m_object_params.m_position); + + u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); + if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 2000) { + object().sight().setup(CSightAction(enemy, true, true)); + fire(); } //Alundaio: END } @@ -469,16 +472,15 @@ void CStalkerActionTakeCover::finalize () inherited::finalize (); } -void CStalkerActionTakeCover::execute() +void CStalkerActionTakeCover::execute () { #ifdef TEST_MENTAL_STATE VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute(); + inherited::execute (); const CEntityAlive *enemy = object().memory().enemy().selected(); - if (!enemy) return; @@ -488,13 +490,12 @@ void CStalkerActionTakeCover::execute() return; if (object().movement().detail().distance_to_target() > CLOSE_MOVE_DISTANCE) - object().movement().set_body_state(eBodyStateStand); + object().movement().set_body_state (eBodyStateStand); else - object().movement().set_movement_type(m_movement_type); + object().movement().set_movement_type (m_movement_type); Fvector position = mem_object.m_object_params.m_position; const CCoverPoint *point = object().best_cover(position); - if (point) { setup_cover(*point); @@ -508,15 +509,11 @@ void CStalkerActionTakeCover::execute() object().brain().affect_cover(true); } - //. Add fire here - // if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().can_kill_enemy()) - // if (object().memory().visual().visible_now(object().memory().enemy().selected())) - if (object().movement().path_completed()) {// && (object().memory().enemy().selected()->Position().distance_to_sqr(object().Position()) >= 10.f)) - object().best_cover_can_try_advance(); - m_storage->set_property(eWorldPropertyInCover, true); - } +//. Add fire here +// if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().can_kill_enemy()) +// if (object().memory().visual().visible_now(object().memory().enemy().selected())) - //Alundaio: Fix CAIStalker shooting at walls or aiming at ceiling or floor during this action + //Alundaio: Fix shooting at walls or aiming at ceiling or floor during this action u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 2000 && fire_make_sense()) { fire(); @@ -528,9 +525,11 @@ void CStalkerActionTakeCover::execute() if (object().memory().visual().visible_now(enemy)) object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); else { - - if (_abs(object().Position().y - enemy->Position().y) > 3.f) - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } @@ -611,19 +610,23 @@ void CStalkerActionLookOut::execute () inherited::execute (); - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + if (!enemy) return; - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; - //Alundaio: Prevent stalkers from staring at ceiling or floor for this action + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } else - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); //-Alundaio if (current_cover(m_object) >= 3.f) { @@ -652,13 +655,7 @@ void CStalkerActionLookOut::execute () // object().movement().set_nearest_accessible_position (); // } - if (object().memory().enemy().selected()) { - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); - - if (mem_object.m_object) { - object().best_cover(mem_object.m_object_params.m_position); - } - } + object().best_cover(mem_object.m_object_params.m_position); } ////////////////////////////////////////////////////////////////////////// @@ -700,10 +697,11 @@ void CStalkerActionHoldPosition::execute () inherited::execute (); - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + if (!enemy) return; - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; @@ -713,9 +711,12 @@ void CStalkerActionHoldPosition::execute () //Alundaio: Prevent stalkers from staring at floor or ceiling for this action if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } else - object().sight().setup(CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); //-Alundaio if (completed()) { @@ -809,12 +810,11 @@ void CStalkerActionDetourEnemy::execute () inherited::execute (); - //Alundaio: Sanity - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + if (!enemy) return; - //Alundaio: END - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; @@ -840,11 +840,14 @@ void CStalkerActionDetourEnemy::execute () m_storage->set_property (eWorldPropertyEnemyDetoured,true); } - //Alundaio: Prevent stalkers from looking at ceiling or floor during action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) >= 3.f) - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } else - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); //-Alundaio } @@ -864,7 +867,7 @@ void CStalkerActionPostCombatWait::initialize () if (object().movement().current_params().cover()) return; - object().movement().set_movement_type(eMovementTypeRun); //Alundaio + object().movement().set_movement_type(eMovementTypeRun); EObjectAction action = eObjectActionAimReady1; if (m_storage->property(eWorldPropertyKilledWounded)) @@ -1022,28 +1025,30 @@ void CStalkerActionSuddenAttack::execute () //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a group. //if (object().agent_manager().member().combat_members().size() > 1) // m_storage->set_property (eWorldPropertyUseSuddenness,false); - //-Alundaio + //Alundaio: END - const CEntityAlive *enemy = object().memory().enemy().selected(); - if (!enemy) + if (!object().memory().enemy().selected()) return; - CMemoryInfo mem_object = object().memory().memory(enemy); + CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) return; - //Alundaio: Don't aim at ceiling or floor - bool visible_now = object().memory().visual().visible_now(enemy); + bool visible_now = object().memory().visual().visible_now(object().memory().enemy().selected()); if (visible_now) - object().sight().setup(CSightAction(enemy,true)); + object().sight().setup (CSightAction(object().memory().enemy().selected(),true)); else { - if (_abs(object().Position().y - enemy->Position().y) >= 3.f) - object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //-Alundaio } - //-Alundaio if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) object().movement().set_level_dest_vertex (mem_object.m_object_params.m_level_vertex_id); @@ -1088,9 +1093,9 @@ void CStalkerActionSuddenAttack::execute () } } - CVisualMemoryManager *visual_memory_manager = enemy->visual_memory(); + CVisualMemoryManager *visual_memory_manager = object().memory().enemy().selected()->visual_memory(); VERIFY (visual_memory_manager); - if (enemy->g_Alive() && !visual_memory_manager->visible_now(&object())) + if (object().memory().enemy().selected()->g_Alive() && !visual_memory_manager->visible_now(&object())) return; m_storage->set_property (eWorldPropertyUseSuddenness, false); From 337ace5ff277258a788f46123b21f15aadfaafac Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 17 Jan 2015 16:39:32 -0500 Subject: [PATCH 075/166] * lua re-org: - include/lua headers were moved back to luajit where they belong (dependent on luajit version used) - include/luabind headers were moved back to luabind project dir where they belong + release config (Release_LuaJit_One) for luajit 1.1.8 is completed. Note that USE_LUAJIT_ONE is now defined in project properties and not in build_config_defines.h = fixed compiler warnings for projects (some were safe to ignore and some were fixed) --- .gitmodules | 3 + changelog_legend.txt | 6 + sdk/include/{lua => lua-old}/lauxlib.h | 0 .../{lua => lua-old}/library_linkage.h | 0 sdk/include/{lua => lua-old}/lua.h | 0 sdk/include/{lua => lua-old}/luaconf.h | 0 sdk/include/{lua => lua-old}/lualib.h | 0 .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 22 +- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters | 13 - src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h | 4 +- src/3rd party/LuaJIT-1.1.8/etc/lua.hpp | 6 +- src/3rd party/LuaJIT-1.1.8/src/lcoco.c | 2 +- src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c | 6 +- src/3rd party/NVTT/NVTT.vcxproj | 3 + src/3rd party/crypto/crypto.vcxproj | 2 + src/3rd party/lua-extensions/base.cpp | 4 +- .../lua-extensions/lua_extensions.vcxproj | 21 +- .../lua_extensions.vcxproj.filters | 5 - .../lua-extensions/script_additional_libs.cpp | 4 +- .../lua-extensions/script_additional_libs.h | 8 +- src/3rd party/luabind/library_linkage.cpp | 4 +- .../luabind/luabind.beta7-devel.rc4.vcxproj | 213 ++++----- .../luabind.beta7-devel.rc4.vcxproj.filters | 417 +++++++++--------- .../luabind}/luabind/adopt_policy.hpp | 0 .../luabind}/luabind/back_reference.hpp | 0 .../luabind}/luabind/back_reference_fwd.hpp | 0 .../3rd party/luabind}/luabind/class.hpp | 0 .../3rd party/luabind}/luabind/class_info.hpp | 0 .../3rd party/luabind}/luabind/com_policy.hpp | 0 .../3rd party/luabind}/luabind/config.hpp | 0 .../luabind}/luabind/container_policy.hpp | 0 .../luabind}/luabind/copy_policy.hpp | 0 .../luabind}/luabind/dependency_policy.hpp | 0 .../luabind}/luabind/detail/calc_arity.hpp | 0 .../luabind}/luabind/detail/call.hpp | 0 .../luabind}/luabind/detail/call_function.hpp | 0 .../luabind}/luabind/detail/call_member.hpp | 0 .../luabind/detail/call_operator_iterate.hpp | 0 .../luabind}/luabind/detail/class_cache.hpp | 0 .../luabind/detail/class_registry.hpp | 0 .../luabind}/luabind/detail/class_rep.hpp | 0 .../luabind/detail/class_rep_scope.hpp | 0 .../luabind}/luabind/detail/construct_rep.hpp | 0 .../luabind}/luabind/detail/constructor.hpp | 0 .../luabind/detail/convert_to_lua.hpp | 0 .../luabind}/luabind/detail/debug.hpp | 0 .../luabind}/luabind/detail/decorate_type.hpp | 0 .../luabind}/luabind/detail/enum_maker.hpp | 0 .../luabind/detail/find_best_match.hpp | 0 .../luabind/detail/garbage_collector.hpp | 0 .../luabind/detail/get_overload_signature.hpp | 0 .../luabind}/luabind/detail/get_signature.hpp | 0 .../luabind}/luabind/detail/implicit_cast.hpp | 0 .../luabind/detail/is_indirect_const.hpp | 0 .../luabind/detail/link_compatibility.hpp | 0 .../luabind}/luabind/detail/method_rep.hpp | 0 .../luabind}/luabind/detail/object_funs.hpp | 0 .../luabind}/luabind/detail/object_rep.hpp | 0 .../luabind}/luabind/detail/open.hpp | 0 .../luabind}/luabind/detail/operator_id.hpp | 0 .../luabind}/luabind/detail/operators.hpp | 0 .../luabind}/luabind/detail/other.hpp | 0 .../luabind}/luabind/detail/overload_rep.hpp | 0 .../luabind/detail/overload_rep_base.hpp | 0 .../luabind/detail/overload_rep_impl.hpp | 0 .../luabind}/luabind/detail/pcall.hpp | 0 .../luabind/detail/pointee_sizeof.hpp | 0 .../luabind/detail/pointee_typeid.hpp | 0 .../luabind}/luabind/detail/policy.hpp | 0 .../luabind}/luabind/detail/primitives.hpp | 0 .../luabind}/luabind/detail/property.hpp | 0 .../3rd party/luabind}/luabind/detail/ref.hpp | 0 .../luabind/detail/signature_match.hpp | 0 .../luabind}/luabind/detail/stack_utils.hpp | 0 .../luabind}/luabind/detail/typetraits.hpp | 0 .../luabind}/luabind/detail/yes_no.hpp | 0 .../luabind/discard_result_policy.hpp | 0 .../3rd party/luabind}/luabind/error.hpp | 0 .../3rd party/luabind}/luabind/function.hpp | 0 .../3rd party/luabind}/luabind/functor.hpp | 0 .../luabind}/luabind/iterator_policy.hpp | 0 .../luabind}/luabind/library_linkage.h | 2 +- .../luabind}/luabind/lua_include.hpp | 8 +- .../3rd party/luabind}/luabind/luabind.hpp | 0 .../luabind}/luabind/luabind_auto_ptr.h | 0 .../luabind}/luabind/luabind_delete.h | 0 .../luabind}/luabind/luabind_memory.h | 0 .../luabind/luabind_memory_allocator.h | 0 .../luabind/luabind_memory_allocator_inline.h | 0 .../luabind_memory_manager_generator.h | 0 .../luabind}/luabind/luabind_types.h | 0 .../3rd party/luabind}/luabind/object.hpp | 0 .../3rd party/luabind}/luabind/open.hpp | 0 .../3rd party/luabind}/luabind/operator.hpp | 0 .../luabind}/luabind/out_value_policy.hpp | 0 .../3rd party/luabind}/luabind/prefix.hpp | 0 .../3rd party/luabind}/luabind/raw_policy.hpp | 0 .../luabind/return_reference_to_policy.hpp | 0 .../3rd party/luabind}/luabind/scope.hpp | 0 src/3rd party/luabind/luabind/src/Jamfile | 25 -- src/3rd party/luabind/luabind/src/makefile | 44 -- .../3rd party/luabind}/luabind/weak_ref.hpp | 0 .../luabind}/luabind/wrapper_base.hpp | 0 .../luabind}/luabind/yield_policy.hpp | 0 .../luabind/{luabind => misc}/INSTALL | 0 .../luabind/{luabind => misc}/Jamfile | 0 .../luabind/{luabind => misc}/LICENSE | 0 .../luabind/{luabind => misc}/config | 0 .../luabind/{luabind => misc}/doc/CVS/Entries | 0 .../{luabind => misc}/doc/CVS/Repository | 0 .../luabind/{luabind => misc}/doc/CVS/Root | 0 .../luabind/{luabind => misc}/doc/CVS/Tag | 0 .../luabind/{luabind => misc}/doc/adopt.rst | 0 .../luabind/{luabind => misc}/doc/copy.rst | 0 .../{luabind => misc}/doc/dependency.rst | 0 .../{luabind => misc}/doc/discard_result.rst | 0 .../luabind/{luabind => misc}/doc/docs.html | 0 .../luabind/{luabind => misc}/doc/docs.rst | 0 .../luabind/{luabind => misc}/doc/index.html | 0 .../doc/luabind-logo-label.ps | Bin .../luabind/{luabind => misc}/doc/luabind.png | Bin .../{luabind => misc}/doc/out_value.rst | 0 .../{luabind => misc}/doc/pure_out_value.rst | 0 .../luabind/{luabind => misc}/doc/raw.rst | 0 .../doc/return_reference_to.rst | 0 .../doc/return_stl_iterator.rst | 0 .../luabind/{luabind => misc}/doc/style.css | 0 .../luabind/{luabind => misc}/doc/yield.rst | 0 .../examples/any_converter/Jamfile | 0 .../examples/any_converter/any_converter.cpp | 0 .../examples/any_converter/makefile | 0 .../{luabind => misc}/examples/cln/README | 0 .../examples/cln/cln_test.cpp | 0 .../examples/cln/cln_test.lua | 0 .../{luabind => misc}/examples/cln/makefile | 0 .../examples/filesystem/Jamfile | 0 .../filesystem/directory_iterator.hpp | 0 .../examples/filesystem/filesystem.cpp | 0 .../examples/filesystem/inspect.lua | 0 .../examples/filesystem/makefile | 0 .../examples/glut/glut_bind.cpp | 0 .../examples/glut/glut_bindings.lua | 0 .../{luabind => misc}/examples/glut/makefile | 0 .../examples/intrusive_ptr/Jamfile | 0 .../examples/intrusive_ptr/intrusive_ptr.cpp | 0 .../examples/intrusive_ptr/makefile | 0 .../{luabind => misc}/examples/makefile | 0 .../{luabind => misc}/examples/regexp/Jamfile | 0 .../examples/regexp/makefile | 0 .../examples/regexp/regex.lua | 0 .../examples/regexp/regex_wrap.cpp | 0 .../luabind/{luabind => misc}/makefile | 0 .../{luabind => misc}/project-root.jam | 0 src/3rd party/luabind/pch.cpp | 2 +- src/3rd party/luabind/pch.h | 2 +- .../luabind/{luabind => }/src/class.cpp | 0 .../luabind/{luabind => }/src/class_info.cpp | 0 .../{luabind => }/src/class_registry.cpp | 0 .../luabind/{luabind => }/src/class_rep.cpp | 0 .../{luabind => }/src/create_class.cpp | 0 .../luabind/{luabind => }/src/error.cpp | 0 .../{luabind => }/src/find_best_match.cpp | 0 .../luabind/{luabind => }/src/function.cpp | 0 .../{luabind => }/src/implicit_cast.cpp | 0 .../{luabind => }/src/link_compatibility.cpp | 0 .../luabind/{luabind => }/src/object.cpp | 0 .../luabind/{luabind => }/src/object_rep.cpp | 0 .../luabind/{luabind => }/src/open.cpp | 0 .../luabind/{luabind => }/src/pcall.cpp | 0 .../luabind/{luabind => }/src/ref.cpp | 0 .../luabind/{luabind => }/src/scope.cpp | 0 .../src/stack_content_by_name.cpp | 0 .../luabind/{luabind => }/src/weak_ref.cpp | 0 .../{luabind => }/src/wrapper_base.cpp | 0 src/3rd party/luajit-2 | 1 + .../{luajit-2.0 => luajit-2.0-BAK}/.gitignore | 0 .../{luajit-2.0 => luajit-2.0-BAK}/COPYRIGHT | 0 .../{luajit-2.0 => luajit-2.0-BAK}/Makefile | 0 .../{luajit-2.0 => luajit-2.0-BAK}/README | 0 .../doc/bluequad-print.css | 0 .../doc/bluequad.css | 0 .../doc/changes.html | 0 .../doc/contact.html | 0 .../doc/ext_c_api.html | 0 .../doc/ext_ffi.html | 0 .../doc/ext_ffi_api.html | 0 .../doc/ext_ffi_semantics.html | 0 .../doc/ext_ffi_tutorial.html | 0 .../doc/ext_jit.html | 0 .../doc/ext_profiler.html | 0 .../doc/extensions.html | 0 .../doc/faq.html | 0 .../doc/img/contact.png | Bin .../doc/install.html | 0 .../doc/luajit.html | 0 .../doc/running.html | 0 .../doc/status.html | 0 .../dynasm/dasm_arm.h | 0 .../dynasm/dasm_arm.lua | 0 .../dynasm/dasm_arm64.h | 0 .../dynasm/dasm_arm64.lua | 0 .../dynasm/dasm_mips.h | 0 .../dynasm/dasm_mips.lua | 0 .../dynasm/dasm_ppc.h | 0 .../dynasm/dasm_ppc.lua | 0 .../dynasm/dasm_proto.h | 0 .../dynasm/dasm_x64.lua | 0 .../dynasm/dasm_x86.h | 0 .../dynasm/dasm_x86.lua | 0 .../dynasm/dynasm.lua | 0 .../etc/luajit.1 | 0 .../etc/luajit.pc | 0 .../src/.gitignore | 0 .../src/Makefile | 0 .../src/Makefile.dep | 0 .../src/host/.gitignore | 0 .../src/host/README | 0 .../src/host/buildvm.c | 0 .../src/host/buildvm.h | 0 .../src/host/buildvm_asm.c | 0 .../src/host/buildvm_fold.c | 0 .../src/host/buildvm_lib.c | 0 .../src/host/buildvm_libbc.h | 0 .../src/host/buildvm_peobj.c | 0 .../src/host/genlibbc.lua | 0 .../src/host/genminilua.lua | 0 .../src/host/minilua.c | 0 .../src/jit/.gitignore | 0 .../src/jit/bc.lua | 0 .../src/jit/bcsave.lua | 0 .../src/jit/dis_arm.lua | 0 .../src/jit/dis_mips.lua | 0 .../src/jit/dis_mipsel.lua | 0 .../src/jit/dis_ppc.lua | 0 .../src/jit/dis_x64.lua | 0 .../src/jit/dis_x86.lua | 0 .../src/jit/dump.lua | 0 .../src/jit/p.lua | 0 .../src/jit/v.lua | 0 .../src/jit/zone.lua | 0 .../src/lauxlib.h | 0 .../src/lib_aux.c | 0 .../src/lib_base.c | 0 .../src/lib_bit.c | 0 .../src/lib_debug.c | 0 .../src/lib_ffi.c | 0 .../src/lib_init.c | 0 .../src/lib_io.c | 0 .../src/lib_jit.c | 0 .../src/lib_math.c | 0 .../src/lib_os.c | 0 .../src/lib_package.c | 0 .../src/lib_string.c | 0 .../src/lib_table.c | 0 .../src/lj.supp | 0 .../src/lj_alloc.c | 0 .../src/lj_alloc.h | 0 .../src/lj_api.c | 0 .../src/lj_arch.h | 0 .../src/lj_asm.c | 0 .../src/lj_asm.h | 0 .../src/lj_asm_arm.h | 0 .../src/lj_asm_mips.h | 0 .../src/lj_asm_ppc.h | 0 .../src/lj_asm_x86.h | 0 .../src/lj_bc.c | 0 .../src/lj_bc.h | 0 .../src/lj_bcdump.h | 0 .../src/lj_bcread.c | 0 .../src/lj_bcwrite.c | 0 .../src/lj_buf.c | 0 .../src/lj_buf.h | 0 .../src/lj_carith.c | 0 .../src/lj_carith.h | 0 .../src/lj_ccall.c | 0 .../src/lj_ccall.h | 0 .../src/lj_ccallback.c | 0 .../src/lj_ccallback.h | 0 .../src/lj_cconv.c | 0 .../src/lj_cconv.h | 0 .../src/lj_cdata.c | 0 .../src/lj_cdata.h | 0 .../src/lj_char.c | 0 .../src/lj_char.h | 0 .../src/lj_clib.c | 0 .../src/lj_clib.h | 0 .../src/lj_cparse.c | 0 .../src/lj_cparse.h | 0 .../src/lj_crecord.c | 0 .../src/lj_crecord.h | 0 .../src/lj_ctype.c | 0 .../src/lj_ctype.h | 0 .../src/lj_debug.c | 0 .../src/lj_debug.h | 0 .../src/lj_def.h | 0 .../src/lj_dispatch.c | 0 .../src/lj_dispatch.h | 0 .../src/lj_emit_arm.h | 0 .../src/lj_emit_mips.h | 0 .../src/lj_emit_ppc.h | 0 .../src/lj_emit_x86.h | 0 .../src/lj_err.c | 0 .../src/lj_err.h | 0 .../src/lj_errmsg.h | 0 .../src/lj_ff.h | 0 .../src/lj_ffrecord.c | 0 .../src/lj_ffrecord.h | 0 .../src/lj_frame.h | 0 .../src/lj_func.c | 0 .../src/lj_func.h | 0 .../src/lj_gc.c | 0 .../src/lj_gc.h | 0 .../src/lj_gdbjit.c | 0 .../src/lj_gdbjit.h | 0 .../src/lj_ir.c | 0 .../src/lj_ir.h | 0 .../src/lj_ircall.h | 0 .../src/lj_iropt.h | 0 .../src/lj_jit.h | 0 .../src/lj_lex.c | 0 .../src/lj_lex.h | 0 .../src/lj_lib.c | 0 .../src/lj_lib.h | 0 .../src/lj_load.c | 0 .../src/lj_mcode.c | 0 .../src/lj_mcode.h | 0 .../src/lj_meta.c | 0 .../src/lj_meta.h | 0 .../src/lj_obj.c | 0 .../src/lj_obj.h | 0 .../src/lj_opt_dce.c | 0 .../src/lj_opt_fold.c | 0 .../src/lj_opt_loop.c | 0 .../src/lj_opt_mem.c | 0 .../src/lj_opt_narrow.c | 0 .../src/lj_opt_sink.c | 0 .../src/lj_opt_split.c | 0 .../src/lj_parse.c | 0 .../src/lj_parse.h | 0 .../src/lj_profile.c | 0 .../src/lj_profile.h | 0 .../src/lj_record.c | 0 .../src/lj_record.h | 0 .../src/lj_snap.c | 0 .../src/lj_snap.h | 0 .../src/lj_state.c | 0 .../src/lj_state.h | 0 .../src/lj_str.c | 0 .../src/lj_str.h | 0 .../src/lj_strfmt.c | 0 .../src/lj_strfmt.h | 0 .../src/lj_strscan.c | 0 .../src/lj_strscan.h | 0 .../src/lj_tab.c | 0 .../src/lj_tab.h | 0 .../src/lj_target.h | 0 .../src/lj_target_arm.h | 0 .../src/lj_target_arm64.h | 0 .../src/lj_target_mips.h | 0 .../src/lj_target_ppc.h | 0 .../src/lj_target_x86.h | 0 .../src/lj_trace.c | 0 .../src/lj_trace.h | 0 .../src/lj_traceerr.h | 0 .../src/lj_udata.c | 0 .../src/lj_udata.h | 0 .../src/lj_vm.h | 0 .../src/lj_vmevent.c | 0 .../src/lj_vmevent.h | 0 .../src/lj_vmmath.c | 0 .../src/ljamalg.c | 0 .../{luajit-2.0 => luajit-2.0-BAK}/src/lua.h | 0 .../src/lua.hpp | 0 .../src/lua51.dll | Bin .../src/lua51.exp | Bin .../src/lua51.lib | Bin .../src/luaconf.h | 0 .../src/luajit.c | 0 .../src/luajit.exe | Bin .../src/luajit.h | 0 .../src/lualib.h | 0 .../src/msvcbuild.bat | 0 .../src/ps4build.bat | 0 .../src/psvitabuild.bat | 0 .../src/vm_arm.dasc | 0 .../src/vm_arm64.dasc | 0 .../src/vm_mips.dasc | 0 .../src/vm_ppc.dasc | 0 .../src/vm_ppcspe.dasc | 0 .../src/vm_x86.dasc | 0 .../src/xedkbuild.bat | 0 .../OpenAL-Windows/Router/Router.vcxproj | 1 + src/Layers/xrAPI/xrAPI.vcxproj | 2 +- src/Layers/xrRender/DetailManager.cpp | 4 +- src/Layers/xrRender/DetailManager_CACHE.cpp | 29 +- src/Layers/xrRender/ParticleEffect.cpp | 2 +- .../xrRender/ResourceManager_Scripting.cpp | 9 +- src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 9 +- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 7 +- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 8 +- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 8 +- src/build_config_defines.h | 1 - src/utils/xrDXT/DXT.cpp | 4 +- src/xrCDB/xrCDB.vcxproj | 7 +- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 4 +- src/xrCore/xrCore.vcxproj | 2 +- src/xrEngine/ai_script_space.h | 7 +- src/xrEngine/stdafx.h | 10 +- src/xrEngine/xrEngine.vcxproj | 7 +- src/xrGame/GameTask.h | 2 +- src/xrGame/level_changer.cpp | 2 +- src/xrGame/script_zone.cpp | 2 +- src/xrGame/team_base_zone.cpp | 2 +- src/xrGame/xrGame.cpp | 9 +- src/xrGame/xrGame.vcxproj | 11 +- src/xrGameSpy/xrGameSpy.vcxproj | 2 +- src/xrNetServer/xrNetServer.vcxproj | 2 +- src/xrParticles/xrParticles.vcxproj | 4 +- src/xrPhysics/xrPhysics.vcxproj | 2 +- src/xrServerEntities/pch_script.h | 8 +- src/xrServerEntities/script_engine.cpp | 2 +- src/xrServerEntities/script_engine.h | 9 +- src/xrServerEntities/script_thread.cpp | 7 +- src/xrSound/xrSound.vcxproj | 3 +- src/xrXMLParser/xrXMLParser.vcxproj | 2 +- 425 files changed, 492 insertions(+), 525 deletions(-) create mode 100644 .gitmodules create mode 100644 changelog_legend.txt rename sdk/include/{lua => lua-old}/lauxlib.h (100%) rename sdk/include/{lua => lua-old}/library_linkage.h (100%) rename sdk/include/{lua => lua-old}/lua.h (100%) rename sdk/include/{lua => lua-old}/luaconf.h (100%) rename sdk/include/{lua => lua-old}/lualib.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/adopt_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/back_reference.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/back_reference_fwd.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/class.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/class_info.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/com_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/config.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/container_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/copy_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/dependency_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/calc_arity.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/call.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/call_function.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/call_member.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/call_operator_iterate.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/class_cache.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/class_registry.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/class_rep.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/class_rep_scope.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/construct_rep.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/constructor.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/convert_to_lua.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/debug.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/decorate_type.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/enum_maker.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/find_best_match.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/garbage_collector.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/get_overload_signature.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/get_signature.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/implicit_cast.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/is_indirect_const.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/link_compatibility.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/method_rep.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/object_funs.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/object_rep.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/open.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/operator_id.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/operators.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/other.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/overload_rep.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/overload_rep_base.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/overload_rep_impl.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/pcall.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/pointee_sizeof.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/pointee_typeid.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/primitives.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/property.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/ref.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/signature_match.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/stack_utils.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/typetraits.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/detail/yes_no.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/discard_result_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/error.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/function.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/functor.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/iterator_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/library_linkage.h (89%) rename {sdk/include => src/3rd party/luabind}/luabind/lua_include.hpp (90%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_auto_ptr.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_delete.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_memory.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_memory_allocator.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_memory_allocator_inline.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_memory_manager_generator.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/luabind_types.h (100%) rename {sdk/include => src/3rd party/luabind}/luabind/object.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/open.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/operator.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/out_value_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/prefix.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/raw_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/return_reference_to_policy.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/scope.hpp (100%) delete mode 100644 src/3rd party/luabind/luabind/src/Jamfile delete mode 100644 src/3rd party/luabind/luabind/src/makefile rename {sdk/include => src/3rd party/luabind}/luabind/weak_ref.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/wrapper_base.hpp (100%) rename {sdk/include => src/3rd party/luabind}/luabind/yield_policy.hpp (100%) rename src/3rd party/luabind/{luabind => misc}/INSTALL (100%) rename src/3rd party/luabind/{luabind => misc}/Jamfile (100%) rename src/3rd party/luabind/{luabind => misc}/LICENSE (100%) rename src/3rd party/luabind/{luabind => misc}/config (100%) rename src/3rd party/luabind/{luabind => misc}/doc/CVS/Entries (100%) rename src/3rd party/luabind/{luabind => misc}/doc/CVS/Repository (100%) rename src/3rd party/luabind/{luabind => misc}/doc/CVS/Root (100%) rename src/3rd party/luabind/{luabind => misc}/doc/CVS/Tag (100%) rename src/3rd party/luabind/{luabind => misc}/doc/adopt.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/copy.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/dependency.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/discard_result.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/docs.html (100%) rename src/3rd party/luabind/{luabind => misc}/doc/docs.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/index.html (100%) rename src/3rd party/luabind/{luabind => misc}/doc/luabind-logo-label.ps (100%) rename src/3rd party/luabind/{luabind => misc}/doc/luabind.png (100%) rename src/3rd party/luabind/{luabind => misc}/doc/out_value.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/pure_out_value.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/raw.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/return_reference_to.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/return_stl_iterator.rst (100%) rename src/3rd party/luabind/{luabind => misc}/doc/style.css (100%) rename src/3rd party/luabind/{luabind => misc}/doc/yield.rst (100%) rename src/3rd party/luabind/{luabind => misc}/examples/any_converter/Jamfile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/any_converter/any_converter.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/any_converter/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/cln/README (100%) rename src/3rd party/luabind/{luabind => misc}/examples/cln/cln_test.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/cln/cln_test.lua (100%) rename src/3rd party/luabind/{luabind => misc}/examples/cln/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/filesystem/Jamfile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/filesystem/directory_iterator.hpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/filesystem/filesystem.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/filesystem/inspect.lua (100%) rename src/3rd party/luabind/{luabind => misc}/examples/filesystem/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/glut/glut_bind.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/glut/glut_bindings.lua (100%) rename src/3rd party/luabind/{luabind => misc}/examples/glut/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/intrusive_ptr/Jamfile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/intrusive_ptr/intrusive_ptr.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/examples/intrusive_ptr/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/regexp/Jamfile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/regexp/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/examples/regexp/regex.lua (100%) rename src/3rd party/luabind/{luabind => misc}/examples/regexp/regex_wrap.cpp (100%) rename src/3rd party/luabind/{luabind => misc}/makefile (100%) rename src/3rd party/luabind/{luabind => misc}/project-root.jam (100%) rename src/3rd party/luabind/{luabind => }/src/class.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/class_info.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/class_registry.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/class_rep.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/create_class.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/error.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/find_best_match.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/function.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/implicit_cast.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/link_compatibility.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/object.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/object_rep.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/open.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/pcall.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/ref.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/scope.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/stack_content_by_name.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/weak_ref.cpp (100%) rename src/3rd party/luabind/{luabind => }/src/wrapper_base.cpp (100%) create mode 160000 src/3rd party/luajit-2 rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/.gitignore (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/COPYRIGHT (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/Makefile (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/README (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/bluequad-print.css (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/bluequad.css (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/changes.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/contact.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_c_api.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_ffi.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_ffi_api.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_ffi_semantics.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_ffi_tutorial.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_jit.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/ext_profiler.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/extensions.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/faq.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/img/contact.png (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/install.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/luajit.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/running.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/doc/status.html (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_arm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_arm.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_arm64.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_arm64.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_mips.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_mips.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_ppc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_ppc.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_proto.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_x64.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_x86.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dasm_x86.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/dynasm/dynasm.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/etc/luajit.1 (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/etc/luajit.pc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/.gitignore (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/Makefile (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/Makefile.dep (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/.gitignore (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/README (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm_asm.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm_fold.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm_lib.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm_libbc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/buildvm_peobj.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/genlibbc.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/genminilua.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/host/minilua.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/.gitignore (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/bc.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/bcsave.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_arm.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_mips.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_mipsel.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_ppc.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_x64.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dis_x86.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/dump.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/p.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/v.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/jit/zone.lua (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lauxlib.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_aux.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_base.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_bit.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_debug.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_ffi.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_init.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_io.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_jit.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_math.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_os.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_package.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_string.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lib_table.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj.supp (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_alloc.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_alloc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_api.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_arch.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm_arm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm_mips.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm_ppc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_asm_x86.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_bc.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_bc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_bcdump.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_bcread.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_bcwrite.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_buf.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_buf.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_carith.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_carith.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ccall.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ccall.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ccallback.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ccallback.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cconv.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cconv.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cdata.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cdata.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_char.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_char.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_clib.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_clib.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cparse.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_cparse.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_crecord.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_crecord.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ctype.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ctype.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_debug.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_debug.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_def.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_dispatch.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_dispatch.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_emit_arm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_emit_mips.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_emit_ppc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_emit_x86.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_err.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_err.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_errmsg.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ff.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ffrecord.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ffrecord.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_frame.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_func.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_func.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_gc.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_gc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_gdbjit.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_gdbjit.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ir.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ir.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_ircall.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_iropt.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_jit.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_lex.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_lex.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_lib.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_lib.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_load.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_mcode.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_mcode.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_meta.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_meta.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_obj.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_obj.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_dce.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_fold.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_loop.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_mem.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_narrow.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_sink.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_opt_split.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_parse.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_parse.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_profile.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_profile.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_record.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_record.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_snap.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_snap.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_state.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_state.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_str.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_str.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_strfmt.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_strfmt.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_strscan.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_strscan.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_tab.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_tab.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target_arm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target_arm64.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target_mips.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target_ppc.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_target_x86.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_trace.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_trace.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_traceerr.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_udata.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_udata.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_vm.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_vmevent.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_vmevent.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lj_vmmath.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/ljamalg.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lua.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lua.hpp (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lua51.dll (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lua51.exp (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lua51.lib (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/luaconf.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/luajit.c (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/luajit.exe (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/luajit.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/lualib.h (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/msvcbuild.bat (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/ps4build.bat (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/psvitabuild.bat (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_arm.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_arm64.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_mips.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_ppc.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_ppcspe.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/vm_x86.dasc (100%) rename src/3rd party/{luajit-2.0 => luajit-2.0-BAK}/src/xedkbuild.bat (100%) diff --git a/.gitmodules b/.gitmodules new file mode 100644 index 00000000000..cfb35869388 --- /dev/null +++ b/.gitmodules @@ -0,0 +1,3 @@ +[submodule "src/3rd party/luajit-2"] + path = src/3rd party/luajit-2 + url = http://luajit.org/git/luajit-2.0.git diff --git a/changelog_legend.txt b/changelog_legend.txt new file mode 100644 index 00000000000..dbe391f1e41 --- /dev/null +++ b/changelog_legend.txt @@ -0,0 +1,6 @@ +* major change +~ minor change += bug fix +- removed ++ added + diff --git a/sdk/include/lua/lauxlib.h b/sdk/include/lua-old/lauxlib.h similarity index 100% rename from sdk/include/lua/lauxlib.h rename to sdk/include/lua-old/lauxlib.h diff --git a/sdk/include/lua/library_linkage.h b/sdk/include/lua-old/library_linkage.h similarity index 100% rename from sdk/include/lua/library_linkage.h rename to sdk/include/lua-old/library_linkage.h diff --git a/sdk/include/lua/lua.h b/sdk/include/lua-old/lua.h similarity index 100% rename from sdk/include/lua/lua.h rename to sdk/include/lua-old/lua.h diff --git a/sdk/include/lua/luaconf.h b/sdk/include/lua-old/luaconf.h similarity index 100% rename from sdk/include/lua/luaconf.h rename to sdk/include/lua-old/luaconf.h diff --git a/sdk/include/lua/lualib.h b/sdk/include/lua-old/lualib.h similarity index 100% rename from sdk/include/lua/lualib.h rename to sdk/include/lua-old/lualib.h diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index fc2f69371e2..c8cc849bb63 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -136,25 +136,26 @@ - Level4 + Level3 MaxSpeed true - true - $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + + + $(ProjectDir)src;$(xrSdkDir)include;dynasm;%(AdditionalIncludeDirectories) AnySuitable Speed true true - LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;_CRT_SECURE_NO_WARNINGS;LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) true false StreamingSIMDExtensions2 Fast - 4996;4530;4100;4714;4127;4055;%(DisableSpecificWarnings) + 4706;4702;%(DisableSpecificWarnings) true @@ -202,7 +203,6 @@ - @@ -241,16 +241,6 @@ - - - - - - - - - - diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters index 8f9320b611c..270ec83b3ea 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj.filters @@ -120,9 +120,6 @@ Source Files - - Source Files - @@ -222,14 +219,4 @@ Header Files - - - - - - - - - - \ No newline at end of file diff --git a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h index 2d4fb26a067..1e30d480651 100644 --- a/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h +++ b/src/3rd party/LuaJIT-1.1.8/dynasm/dasm_x86.h @@ -402,14 +402,14 @@ int dasm_encode(Dst_DECL, void *buffer) break; } case DASM_LABEL_PC: case DASM_SETLABEL: break; - case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = fill; break; } + case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = (unsigned char)fill; break; } case DASM_ALIGN: n = *p++; while (((cp-base) & n)) *cp++ = 0x90; /* nop */ break; case DASM_MARK: mark = cp; break; case DASM_ESC: action = *p++; - default: *cp++ = action; break; + default: *cp++ = (unsigned char)action; break; case DASM_SECTION: case DASM_STOP: goto stop; } } diff --git a/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp index ec417f59469..4030829227b 100644 --- a/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp +++ b/src/3rd party/LuaJIT-1.1.8/etc/lua.hpp @@ -3,7 +3,7 @@ // <> not supplied automatically because Lua also compiles as C++ extern "C" { -#include "lua.h" -#include "lualib.h" -#include "lauxlib.h" +#include "../src/lua.h" +#include "../src/lualib.h" +#include "../src/lauxlib.h" } diff --git a/src/3rd party/LuaJIT-1.1.8/src/lcoco.c b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c index c3acc685513..d5eadc5f217 100644 --- a/src/3rd party/LuaJIT-1.1.8/src/lcoco.c +++ b/src/3rd party/LuaJIT-1.1.8/src/lcoco.c @@ -612,7 +612,7 @@ static void COCO_MAIN_DECL coco_main(COCO_MAIN_PARAM) #endif coco_State *coco = L2COCO(L); for (;;) { - L->status = luaD_rawrunprotected(L, coco_start, L->top - (coco->nargs+1)); + L->status = (lu_byte)luaD_rawrunprotected(L, coco_start, L->top - (coco->nargs+1)); if (L->status != 0) luaD_seterrorobj(L, L->status, L->top); COCO_JUMPOUT(coco) } diff --git a/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c index f025820719f..7244b606c14 100644 --- a/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c +++ b/src/3rd party/LuaJIT-1.1.8/src/ljit_backend.c @@ -176,7 +176,7 @@ static void jit_mfm_merge(jit_State *J, jit_Mfm *from, jit_Mfm *to, int maxpc) jit_assert(nofs >= 0 && m >= 0 && m < JIT_MFM_MAX); } pc++; - *to-- = m; + *to-- = (jit_Mfm) m; } } @@ -213,11 +213,11 @@ static int jit_compile_proto(jit_State *J, Table *deopt) if (firstpc < 1 || firstpc > maxpc || lastpc > maxpc || J->pt->jit_szmcode == 0) return JIT_S_COMPILER_ERROR; - *J->mfm++ = JIT_MFM_MARK+firstpc; /* Seek to firstpc. */ + *J->mfm++ = (jit_Mfm)(JIT_MFM_MARK+firstpc); /* Seek to firstpc. */ jit_compile_irange(J, firstpc, lastpc); jit_assert(J->nextpc == lastpc+1); /* Problem with combined ins? */ if (J->nextpc <= maxpc) jit_ins_chainto(J, J->nextpc); - *J->mfm++ = JIT_MFM_MARK+maxpc+1; /* Seek to .deopt/.tail. */ + *J->mfm++ = (jit_Mfm) (JIT_MFM_MARK + maxpc + 1); /* Seek to .deopt/.tail. */ for (pc = 1; pc <= maxpc; pc++) if (dasm_getpclabel(Dst, pc) == -1) { /* Undefind label referenced? */ jit_ins_setpc(J, pc, luaJIT_findmcode(J->pt, pc)); /* => Old mcode. */ diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index 7c4cba3d018..b9ffbc1539e 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -291,6 +291,9 @@ true true true + true + + 4005 true diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 3dd4ea6d1af..06f11b024e5 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -127,6 +127,8 @@ AnySuitable true true + true + 4005;4996 $(xrLibDir)$(TargetName).lib diff --git a/src/3rd party/lua-extensions/base.cpp b/src/3rd party/lua-extensions/base.cpp index 9e6e3f923d8..abebce09eb7 100644 --- a/src/3rd party/lua-extensions/base.cpp +++ b/src/3rd party/lua-extensions/base.cpp @@ -2,12 +2,12 @@ #ifdef USE_LUAJIT_ONE #pragma comment(lib, "LuaJIT-1.1.8.lib") -#include "../LuaJIT-1.1.8/etc/lua.hpp" #else #pragma comment(lib, "lua51.lib") -#include "../luajit-2.0/src/lua.hpp" #endif //-USE_LUAJIT_ONE +#include "lua.hpp" + //#pragma comment(lib, "xrCore.lib") //#pragma comment(lib, "user32.lib") diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index a1ff3bbdc80..8d09f927e2e 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -71,7 +71,7 @@ $(ProjectName) $(VC_IncludePath);$(WindowsSDK_IncludePath); $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); - false + true $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -134,22 +134,26 @@ Level3 MaxSpeed - true + false true - ..\LuaJIT-1.1.8\src;%(AdditionalIncludeDirectories) + $(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\LuaJIT-1.1.8\src\;%(AdditionalIncludeDirectories) Speed - false + true SyncCThrow false Fast Default - _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;_WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + true + true + StreamingSIMDExtensions2 + 4996;4244;4018 true true true - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrLibDir);%(AdditionalLibraryDirectories) + $(xrLibDir);%(AdditionalLibraryDirectories) true false $(xrLibDir)$(TargetName).lib @@ -166,11 +170,6 @@ - - - {a0f7d1fb-59a7-4717-a7e4-96f37e91998e} - - diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters index da5b466603e..8a32c6d3dfa 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj.filters @@ -11,9 +11,4 @@ - - - {ec3c7f77-99ea-46d1-ad76-3439ab31bcd2} - - \ No newline at end of file diff --git a/src/3rd party/lua-extensions/script_additional_libs.cpp b/src/3rd party/lua-extensions/script_additional_libs.cpp index 141bd5a25ae..c5a957daca1 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.cpp +++ b/src/3rd party/lua-extensions/script_additional_libs.cpp @@ -27,7 +27,7 @@ int bit_tobit(lua_State *L) LUA_INTEGER n = luaL_checkinteger(L, 1); BYTE len = sizeof(n) * 8; char *s = new char[len + 1]; - itoa(n, s, 2); + _itoa(n, s, 2); lua_pushfstring(L, s); return 1; } @@ -37,7 +37,7 @@ int bit_tohex(lua_State *L) LUA_INTEGER n = luaL_checkinteger(L, 1); BYTE len = sizeof(n) * 2; char *s = new char[len + 1]; - itoa(n, s, 16); + _itoa(n, s, 16); lua_pushfstring(L, s); return 1; } diff --git a/src/3rd party/lua-extensions/script_additional_libs.h b/src/3rd party/lua-extensions/script_additional_libs.h index 545d27cd369..ea8275ef1fc 100644 --- a/src/3rd party/lua-extensions/script_additional_libs.h +++ b/src/3rd party/lua-extensions/script_additional_libs.h @@ -1,11 +1,9 @@ #pragma once #include "../../build_config_defines.h" -#ifdef USE_LUAJIT_ONE -#include "../LuaJIT-1.1.8/etc/lua.hpp" -#else -#include "../luajit-2.0/src/lua.hpp" -#endif + +#include "lua.hpp" + #include #include diff --git a/src/3rd party/luabind/library_linkage.cpp b/src/3rd party/luabind/library_linkage.cpp index dc8aad4b16a..0e1f0c27dff 100644 --- a/src/3rd party/luabind/library_linkage.cpp +++ b/src/3rd party/luabind/library_linkage.cpp @@ -7,4 +7,6 @@ //////////////////////////////////////////////////////////////////////////// #include "pch.h" -#include \ No newline at end of file + +//AVO: lua51.dll is now included in Linker settings for the project +//#include \ No newline at end of file diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index bbb1e9b45d1..be214417f09 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -79,7 +79,7 @@ Speed true true - $(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) + $(ProjectDir);$(ProjectDir)..\luajit-2\src\;$(xrSdkDir)include;%(AdditionalIncludeDirectories) WIN32;NDEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) true false @@ -95,7 +95,7 @@ 4530;4100;4714;4127;%(DisableSpecificWarnings) - $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalLibraryDirectories) + $(ProjectDir)..\luajit-2\src\;%(AdditionalLibraryDirectories) true false Windows @@ -106,6 +106,7 @@ $(xrLibDir)$(TargetName).lib MachineX86 true + lua51.lib;%(AdditionalDependencies) @@ -116,8 +117,8 @@ Speed true true - $(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) + $(ProjectDir);$(ProjectDir)..\LuaJIT-1.1.8\etc;$(ProjectDir)..\LuaJIT-1.1.8\src;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;NDEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) true false @@ -133,7 +134,7 @@ 4530;4100;4714;4127;%(DisableSpecificWarnings) - $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalLibraryDirectories) + $(xrLibDir);%(AdditionalLibraryDirectories) true false Windows @@ -145,6 +146,7 @@ $(xrLibDir)$(TargetName).lib MachineX86 true + LuaJIT-1.1.8.lib;%(AdditionalDependencies) @@ -178,114 +180,119 @@ - - - - - - - - - - - - - - - - - - - Create Create Create + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {2ac1029e-e582-40cf-9cd1-5efa4211afc9} + + diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj.filters b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj.filters index 158bb188719..8652b17ff83 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj.filters +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj.filters @@ -1,316 +1,313 @@ п»ї - - {9f21a79f-38cf-41a6-8537-7bb4557e71f4} - - - {2429653a-5c6e-455d-9a2b-fdc461597c2e} - - - {73f4046b-5a9c-4a36-811d-ad0e91b71ba2} - - - - - src + + + + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - src + + Sources - - - - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers - - include\detail + + Headers + + + {ca4ed806-a92a-460d-82e1-12c6d54eb9e2} + + + {d77de1d4-f96c-4241-9861-1cb5acd23a2b} + + \ No newline at end of file diff --git a/sdk/include/luabind/adopt_policy.hpp b/src/3rd party/luabind/luabind/adopt_policy.hpp similarity index 100% rename from sdk/include/luabind/adopt_policy.hpp rename to src/3rd party/luabind/luabind/adopt_policy.hpp diff --git a/sdk/include/luabind/back_reference.hpp b/src/3rd party/luabind/luabind/back_reference.hpp similarity index 100% rename from sdk/include/luabind/back_reference.hpp rename to src/3rd party/luabind/luabind/back_reference.hpp diff --git a/sdk/include/luabind/back_reference_fwd.hpp b/src/3rd party/luabind/luabind/back_reference_fwd.hpp similarity index 100% rename from sdk/include/luabind/back_reference_fwd.hpp rename to src/3rd party/luabind/luabind/back_reference_fwd.hpp diff --git a/sdk/include/luabind/class.hpp b/src/3rd party/luabind/luabind/class.hpp similarity index 100% rename from sdk/include/luabind/class.hpp rename to src/3rd party/luabind/luabind/class.hpp diff --git a/sdk/include/luabind/class_info.hpp b/src/3rd party/luabind/luabind/class_info.hpp similarity index 100% rename from sdk/include/luabind/class_info.hpp rename to src/3rd party/luabind/luabind/class_info.hpp diff --git a/sdk/include/luabind/com_policy.hpp b/src/3rd party/luabind/luabind/com_policy.hpp similarity index 100% rename from sdk/include/luabind/com_policy.hpp rename to src/3rd party/luabind/luabind/com_policy.hpp diff --git a/sdk/include/luabind/config.hpp b/src/3rd party/luabind/luabind/config.hpp similarity index 100% rename from sdk/include/luabind/config.hpp rename to src/3rd party/luabind/luabind/config.hpp diff --git a/sdk/include/luabind/container_policy.hpp b/src/3rd party/luabind/luabind/container_policy.hpp similarity index 100% rename from sdk/include/luabind/container_policy.hpp rename to src/3rd party/luabind/luabind/container_policy.hpp diff --git a/sdk/include/luabind/copy_policy.hpp b/src/3rd party/luabind/luabind/copy_policy.hpp similarity index 100% rename from sdk/include/luabind/copy_policy.hpp rename to src/3rd party/luabind/luabind/copy_policy.hpp diff --git a/sdk/include/luabind/dependency_policy.hpp b/src/3rd party/luabind/luabind/dependency_policy.hpp similarity index 100% rename from sdk/include/luabind/dependency_policy.hpp rename to src/3rd party/luabind/luabind/dependency_policy.hpp diff --git a/sdk/include/luabind/detail/calc_arity.hpp b/src/3rd party/luabind/luabind/detail/calc_arity.hpp similarity index 100% rename from sdk/include/luabind/detail/calc_arity.hpp rename to src/3rd party/luabind/luabind/detail/calc_arity.hpp diff --git a/sdk/include/luabind/detail/call.hpp b/src/3rd party/luabind/luabind/detail/call.hpp similarity index 100% rename from sdk/include/luabind/detail/call.hpp rename to src/3rd party/luabind/luabind/detail/call.hpp diff --git a/sdk/include/luabind/detail/call_function.hpp b/src/3rd party/luabind/luabind/detail/call_function.hpp similarity index 100% rename from sdk/include/luabind/detail/call_function.hpp rename to src/3rd party/luabind/luabind/detail/call_function.hpp diff --git a/sdk/include/luabind/detail/call_member.hpp b/src/3rd party/luabind/luabind/detail/call_member.hpp similarity index 100% rename from sdk/include/luabind/detail/call_member.hpp rename to src/3rd party/luabind/luabind/detail/call_member.hpp diff --git a/sdk/include/luabind/detail/call_operator_iterate.hpp b/src/3rd party/luabind/luabind/detail/call_operator_iterate.hpp similarity index 100% rename from sdk/include/luabind/detail/call_operator_iterate.hpp rename to src/3rd party/luabind/luabind/detail/call_operator_iterate.hpp diff --git a/sdk/include/luabind/detail/class_cache.hpp b/src/3rd party/luabind/luabind/detail/class_cache.hpp similarity index 100% rename from sdk/include/luabind/detail/class_cache.hpp rename to src/3rd party/luabind/luabind/detail/class_cache.hpp diff --git a/sdk/include/luabind/detail/class_registry.hpp b/src/3rd party/luabind/luabind/detail/class_registry.hpp similarity index 100% rename from sdk/include/luabind/detail/class_registry.hpp rename to src/3rd party/luabind/luabind/detail/class_registry.hpp diff --git a/sdk/include/luabind/detail/class_rep.hpp b/src/3rd party/luabind/luabind/detail/class_rep.hpp similarity index 100% rename from sdk/include/luabind/detail/class_rep.hpp rename to src/3rd party/luabind/luabind/detail/class_rep.hpp diff --git a/sdk/include/luabind/detail/class_rep_scope.hpp b/src/3rd party/luabind/luabind/detail/class_rep_scope.hpp similarity index 100% rename from sdk/include/luabind/detail/class_rep_scope.hpp rename to src/3rd party/luabind/luabind/detail/class_rep_scope.hpp diff --git a/sdk/include/luabind/detail/construct_rep.hpp b/src/3rd party/luabind/luabind/detail/construct_rep.hpp similarity index 100% rename from sdk/include/luabind/detail/construct_rep.hpp rename to src/3rd party/luabind/luabind/detail/construct_rep.hpp diff --git a/sdk/include/luabind/detail/constructor.hpp b/src/3rd party/luabind/luabind/detail/constructor.hpp similarity index 100% rename from sdk/include/luabind/detail/constructor.hpp rename to src/3rd party/luabind/luabind/detail/constructor.hpp diff --git a/sdk/include/luabind/detail/convert_to_lua.hpp b/src/3rd party/luabind/luabind/detail/convert_to_lua.hpp similarity index 100% rename from sdk/include/luabind/detail/convert_to_lua.hpp rename to src/3rd party/luabind/luabind/detail/convert_to_lua.hpp diff --git a/sdk/include/luabind/detail/debug.hpp b/src/3rd party/luabind/luabind/detail/debug.hpp similarity index 100% rename from sdk/include/luabind/detail/debug.hpp rename to src/3rd party/luabind/luabind/detail/debug.hpp diff --git a/sdk/include/luabind/detail/decorate_type.hpp b/src/3rd party/luabind/luabind/detail/decorate_type.hpp similarity index 100% rename from sdk/include/luabind/detail/decorate_type.hpp rename to src/3rd party/luabind/luabind/detail/decorate_type.hpp diff --git a/sdk/include/luabind/detail/enum_maker.hpp b/src/3rd party/luabind/luabind/detail/enum_maker.hpp similarity index 100% rename from sdk/include/luabind/detail/enum_maker.hpp rename to src/3rd party/luabind/luabind/detail/enum_maker.hpp diff --git a/sdk/include/luabind/detail/find_best_match.hpp b/src/3rd party/luabind/luabind/detail/find_best_match.hpp similarity index 100% rename from sdk/include/luabind/detail/find_best_match.hpp rename to src/3rd party/luabind/luabind/detail/find_best_match.hpp diff --git a/sdk/include/luabind/detail/garbage_collector.hpp b/src/3rd party/luabind/luabind/detail/garbage_collector.hpp similarity index 100% rename from sdk/include/luabind/detail/garbage_collector.hpp rename to src/3rd party/luabind/luabind/detail/garbage_collector.hpp diff --git a/sdk/include/luabind/detail/get_overload_signature.hpp b/src/3rd party/luabind/luabind/detail/get_overload_signature.hpp similarity index 100% rename from sdk/include/luabind/detail/get_overload_signature.hpp rename to src/3rd party/luabind/luabind/detail/get_overload_signature.hpp diff --git a/sdk/include/luabind/detail/get_signature.hpp b/src/3rd party/luabind/luabind/detail/get_signature.hpp similarity index 100% rename from sdk/include/luabind/detail/get_signature.hpp rename to src/3rd party/luabind/luabind/detail/get_signature.hpp diff --git a/sdk/include/luabind/detail/implicit_cast.hpp b/src/3rd party/luabind/luabind/detail/implicit_cast.hpp similarity index 100% rename from sdk/include/luabind/detail/implicit_cast.hpp rename to src/3rd party/luabind/luabind/detail/implicit_cast.hpp diff --git a/sdk/include/luabind/detail/is_indirect_const.hpp b/src/3rd party/luabind/luabind/detail/is_indirect_const.hpp similarity index 100% rename from sdk/include/luabind/detail/is_indirect_const.hpp rename to src/3rd party/luabind/luabind/detail/is_indirect_const.hpp diff --git a/sdk/include/luabind/detail/link_compatibility.hpp b/src/3rd party/luabind/luabind/detail/link_compatibility.hpp similarity index 100% rename from sdk/include/luabind/detail/link_compatibility.hpp rename to src/3rd party/luabind/luabind/detail/link_compatibility.hpp diff --git a/sdk/include/luabind/detail/method_rep.hpp b/src/3rd party/luabind/luabind/detail/method_rep.hpp similarity index 100% rename from sdk/include/luabind/detail/method_rep.hpp rename to src/3rd party/luabind/luabind/detail/method_rep.hpp diff --git a/sdk/include/luabind/detail/object_funs.hpp b/src/3rd party/luabind/luabind/detail/object_funs.hpp similarity index 100% rename from sdk/include/luabind/detail/object_funs.hpp rename to src/3rd party/luabind/luabind/detail/object_funs.hpp diff --git a/sdk/include/luabind/detail/object_rep.hpp b/src/3rd party/luabind/luabind/detail/object_rep.hpp similarity index 100% rename from sdk/include/luabind/detail/object_rep.hpp rename to src/3rd party/luabind/luabind/detail/object_rep.hpp diff --git a/sdk/include/luabind/detail/open.hpp b/src/3rd party/luabind/luabind/detail/open.hpp similarity index 100% rename from sdk/include/luabind/detail/open.hpp rename to src/3rd party/luabind/luabind/detail/open.hpp diff --git a/sdk/include/luabind/detail/operator_id.hpp b/src/3rd party/luabind/luabind/detail/operator_id.hpp similarity index 100% rename from sdk/include/luabind/detail/operator_id.hpp rename to src/3rd party/luabind/luabind/detail/operator_id.hpp diff --git a/sdk/include/luabind/detail/operators.hpp b/src/3rd party/luabind/luabind/detail/operators.hpp similarity index 100% rename from sdk/include/luabind/detail/operators.hpp rename to src/3rd party/luabind/luabind/detail/operators.hpp diff --git a/sdk/include/luabind/detail/other.hpp b/src/3rd party/luabind/luabind/detail/other.hpp similarity index 100% rename from sdk/include/luabind/detail/other.hpp rename to src/3rd party/luabind/luabind/detail/other.hpp diff --git a/sdk/include/luabind/detail/overload_rep.hpp b/src/3rd party/luabind/luabind/detail/overload_rep.hpp similarity index 100% rename from sdk/include/luabind/detail/overload_rep.hpp rename to src/3rd party/luabind/luabind/detail/overload_rep.hpp diff --git a/sdk/include/luabind/detail/overload_rep_base.hpp b/src/3rd party/luabind/luabind/detail/overload_rep_base.hpp similarity index 100% rename from sdk/include/luabind/detail/overload_rep_base.hpp rename to src/3rd party/luabind/luabind/detail/overload_rep_base.hpp diff --git a/sdk/include/luabind/detail/overload_rep_impl.hpp b/src/3rd party/luabind/luabind/detail/overload_rep_impl.hpp similarity index 100% rename from sdk/include/luabind/detail/overload_rep_impl.hpp rename to src/3rd party/luabind/luabind/detail/overload_rep_impl.hpp diff --git a/sdk/include/luabind/detail/pcall.hpp b/src/3rd party/luabind/luabind/detail/pcall.hpp similarity index 100% rename from sdk/include/luabind/detail/pcall.hpp rename to src/3rd party/luabind/luabind/detail/pcall.hpp diff --git a/sdk/include/luabind/detail/pointee_sizeof.hpp b/src/3rd party/luabind/luabind/detail/pointee_sizeof.hpp similarity index 100% rename from sdk/include/luabind/detail/pointee_sizeof.hpp rename to src/3rd party/luabind/luabind/detail/pointee_sizeof.hpp diff --git a/sdk/include/luabind/detail/pointee_typeid.hpp b/src/3rd party/luabind/luabind/detail/pointee_typeid.hpp similarity index 100% rename from sdk/include/luabind/detail/pointee_typeid.hpp rename to src/3rd party/luabind/luabind/detail/pointee_typeid.hpp diff --git a/sdk/include/luabind/detail/policy.hpp b/src/3rd party/luabind/luabind/detail/policy.hpp similarity index 100% rename from sdk/include/luabind/detail/policy.hpp rename to src/3rd party/luabind/luabind/detail/policy.hpp diff --git a/sdk/include/luabind/detail/primitives.hpp b/src/3rd party/luabind/luabind/detail/primitives.hpp similarity index 100% rename from sdk/include/luabind/detail/primitives.hpp rename to src/3rd party/luabind/luabind/detail/primitives.hpp diff --git a/sdk/include/luabind/detail/property.hpp b/src/3rd party/luabind/luabind/detail/property.hpp similarity index 100% rename from sdk/include/luabind/detail/property.hpp rename to src/3rd party/luabind/luabind/detail/property.hpp diff --git a/sdk/include/luabind/detail/ref.hpp b/src/3rd party/luabind/luabind/detail/ref.hpp similarity index 100% rename from sdk/include/luabind/detail/ref.hpp rename to src/3rd party/luabind/luabind/detail/ref.hpp diff --git a/sdk/include/luabind/detail/signature_match.hpp b/src/3rd party/luabind/luabind/detail/signature_match.hpp similarity index 100% rename from sdk/include/luabind/detail/signature_match.hpp rename to src/3rd party/luabind/luabind/detail/signature_match.hpp diff --git a/sdk/include/luabind/detail/stack_utils.hpp b/src/3rd party/luabind/luabind/detail/stack_utils.hpp similarity index 100% rename from sdk/include/luabind/detail/stack_utils.hpp rename to src/3rd party/luabind/luabind/detail/stack_utils.hpp diff --git a/sdk/include/luabind/detail/typetraits.hpp b/src/3rd party/luabind/luabind/detail/typetraits.hpp similarity index 100% rename from sdk/include/luabind/detail/typetraits.hpp rename to src/3rd party/luabind/luabind/detail/typetraits.hpp diff --git a/sdk/include/luabind/detail/yes_no.hpp b/src/3rd party/luabind/luabind/detail/yes_no.hpp similarity index 100% rename from sdk/include/luabind/detail/yes_no.hpp rename to src/3rd party/luabind/luabind/detail/yes_no.hpp diff --git a/sdk/include/luabind/discard_result_policy.hpp b/src/3rd party/luabind/luabind/discard_result_policy.hpp similarity index 100% rename from sdk/include/luabind/discard_result_policy.hpp rename to src/3rd party/luabind/luabind/discard_result_policy.hpp diff --git a/sdk/include/luabind/error.hpp b/src/3rd party/luabind/luabind/error.hpp similarity index 100% rename from sdk/include/luabind/error.hpp rename to src/3rd party/luabind/luabind/error.hpp diff --git a/sdk/include/luabind/function.hpp b/src/3rd party/luabind/luabind/function.hpp similarity index 100% rename from sdk/include/luabind/function.hpp rename to src/3rd party/luabind/luabind/function.hpp diff --git a/sdk/include/luabind/functor.hpp b/src/3rd party/luabind/luabind/functor.hpp similarity index 100% rename from sdk/include/luabind/functor.hpp rename to src/3rd party/luabind/luabind/functor.hpp diff --git a/sdk/include/luabind/iterator_policy.hpp b/src/3rd party/luabind/luabind/iterator_policy.hpp similarity index 100% rename from sdk/include/luabind/iterator_policy.hpp rename to src/3rd party/luabind/luabind/iterator_policy.hpp diff --git a/sdk/include/luabind/library_linkage.h b/src/3rd party/luabind/luabind/library_linkage.h similarity index 89% rename from sdk/include/luabind/library_linkage.h rename to src/3rd party/luabind/luabind/library_linkage.h index 5d525e46c3c..ea8a8d714af 100644 --- a/sdk/include/luabind/library_linkage.h +++ b/src/3rd party/luabind/luabind/library_linkage.h @@ -9,6 +9,6 @@ #ifndef LUABIND_LIBRARY_LINKAGE_H_INCLUDED #define LUABIND_LIBRARY_LINKAGE_H_INCLUDED -#pragma comment(lib, "luabind.beta7-devel.rc4.lib" ) +#pragma comment(lib, "luabind.beta7-devel.rc4.lib") #endif // #ifndef LUABIND_LIBRARY_LINKAGE_H_INCLUDED \ No newline at end of file diff --git a/sdk/include/luabind/lua_include.hpp b/src/3rd party/luabind/luabind/lua_include.hpp similarity index 90% rename from sdk/include/luabind/lua_include.hpp rename to src/3rd party/luabind/luabind/lua_include.hpp index 8f74a00a5ba..1e32cbf1851 100644 --- a/sdk/include/luabind/lua_include.hpp +++ b/src/3rd party/luabind/luabind/lua_include.hpp @@ -23,11 +23,13 @@ #ifndef LUA_INCLUDE_HPP_INCLUDED #define LUA_INCLUDE_HPP_INCLUDED -extern "C" { +//AVO: use luajit 2 headers (switch to Release_LuaJit_One to use old headers) +#include "lua.hpp" +/*extern "C" { #include #include #include -} // extern "C" - +} // extern "C"*/ +//-AVO #endif diff --git a/sdk/include/luabind/luabind.hpp b/src/3rd party/luabind/luabind/luabind.hpp similarity index 100% rename from sdk/include/luabind/luabind.hpp rename to src/3rd party/luabind/luabind/luabind.hpp diff --git a/sdk/include/luabind/luabind_auto_ptr.h b/src/3rd party/luabind/luabind/luabind_auto_ptr.h similarity index 100% rename from sdk/include/luabind/luabind_auto_ptr.h rename to src/3rd party/luabind/luabind/luabind_auto_ptr.h diff --git a/sdk/include/luabind/luabind_delete.h b/src/3rd party/luabind/luabind/luabind_delete.h similarity index 100% rename from sdk/include/luabind/luabind_delete.h rename to src/3rd party/luabind/luabind/luabind_delete.h diff --git a/sdk/include/luabind/luabind_memory.h b/src/3rd party/luabind/luabind/luabind_memory.h similarity index 100% rename from sdk/include/luabind/luabind_memory.h rename to src/3rd party/luabind/luabind/luabind_memory.h diff --git a/sdk/include/luabind/luabind_memory_allocator.h b/src/3rd party/luabind/luabind/luabind_memory_allocator.h similarity index 100% rename from sdk/include/luabind/luabind_memory_allocator.h rename to src/3rd party/luabind/luabind/luabind_memory_allocator.h diff --git a/sdk/include/luabind/luabind_memory_allocator_inline.h b/src/3rd party/luabind/luabind/luabind_memory_allocator_inline.h similarity index 100% rename from sdk/include/luabind/luabind_memory_allocator_inline.h rename to src/3rd party/luabind/luabind/luabind_memory_allocator_inline.h diff --git a/sdk/include/luabind/luabind_memory_manager_generator.h b/src/3rd party/luabind/luabind/luabind_memory_manager_generator.h similarity index 100% rename from sdk/include/luabind/luabind_memory_manager_generator.h rename to src/3rd party/luabind/luabind/luabind_memory_manager_generator.h diff --git a/sdk/include/luabind/luabind_types.h b/src/3rd party/luabind/luabind/luabind_types.h similarity index 100% rename from sdk/include/luabind/luabind_types.h rename to src/3rd party/luabind/luabind/luabind_types.h diff --git a/sdk/include/luabind/object.hpp b/src/3rd party/luabind/luabind/object.hpp similarity index 100% rename from sdk/include/luabind/object.hpp rename to src/3rd party/luabind/luabind/object.hpp diff --git a/sdk/include/luabind/open.hpp b/src/3rd party/luabind/luabind/open.hpp similarity index 100% rename from sdk/include/luabind/open.hpp rename to src/3rd party/luabind/luabind/open.hpp diff --git a/sdk/include/luabind/operator.hpp b/src/3rd party/luabind/luabind/operator.hpp similarity index 100% rename from sdk/include/luabind/operator.hpp rename to src/3rd party/luabind/luabind/operator.hpp diff --git a/sdk/include/luabind/out_value_policy.hpp b/src/3rd party/luabind/luabind/out_value_policy.hpp similarity index 100% rename from sdk/include/luabind/out_value_policy.hpp rename to src/3rd party/luabind/luabind/out_value_policy.hpp diff --git a/sdk/include/luabind/prefix.hpp b/src/3rd party/luabind/luabind/prefix.hpp similarity index 100% rename from sdk/include/luabind/prefix.hpp rename to src/3rd party/luabind/luabind/prefix.hpp diff --git a/sdk/include/luabind/raw_policy.hpp b/src/3rd party/luabind/luabind/raw_policy.hpp similarity index 100% rename from sdk/include/luabind/raw_policy.hpp rename to src/3rd party/luabind/luabind/raw_policy.hpp diff --git a/sdk/include/luabind/return_reference_to_policy.hpp b/src/3rd party/luabind/luabind/return_reference_to_policy.hpp similarity index 100% rename from sdk/include/luabind/return_reference_to_policy.hpp rename to src/3rd party/luabind/luabind/return_reference_to_policy.hpp diff --git a/sdk/include/luabind/scope.hpp b/src/3rd party/luabind/luabind/scope.hpp similarity index 100% rename from sdk/include/luabind/scope.hpp rename to src/3rd party/luabind/luabind/scope.hpp diff --git a/src/3rd party/luabind/luabind/src/Jamfile b/src/3rd party/luabind/luabind/src/Jamfile deleted file mode 100644 index 4c7cc7ed684..00000000000 --- a/src/3rd party/luabind/luabind/src/Jamfile +++ /dev/null @@ -1,25 +0,0 @@ -project luabind/luabind ; - -lib luabind - : wrapper_base.cpp - weak_ref.cpp - pcall.cpp - error.cpp - scope.cpp - class.cpp - class_rep.cpp - function.cpp - find_best_match.cpp - implicit_cast.cpp - open.cpp - create_class.cpp - stack_content_by_name.cpp - object.cpp - object_rep.cpp - class_info.cpp - ref.cpp - class_registry.cpp - link_compatibility.cpp - : LUABIND_BUILDING - ; - diff --git a/src/3rd party/luabind/luabind/src/makefile b/src/3rd party/luabind/luabind/src/makefile deleted file mode 100644 index c23310f1696..00000000000 --- a/src/3rd party/luabind/luabind/src/makefile +++ /dev/null @@ -1,44 +0,0 @@ -include ../config - -SOURCES = \ - wrapper_base.cpp \ - pcall.cpp \ - error.cpp \ - ref.cpp \ - scope.cpp \ - class.cpp \ - class_rep.cpp \ - function.cpp \ - find_best_match.cpp \ - implicit_cast.cpp \ - open.cpp \ - create_class.cpp \ - stack_content_by_name.cpp \ - object.cpp \ - object_rep.cpp \ - class_info.cpp \ - class_registry.cpp \ - link_compatibility.cpp \ - weak_ref.cpp \ - link_compatibility.cpp - -OBJECTS = $(SOURCES:.cpp=.o) - -TARGET = ../lib/libluabind.a - - - - - -all: $(TARGET) - -$(TARGET): $(OBJECTS) - $(AR) rcu $@ $(OBJECTS) - ranlib $@ - -%.o:%.cpp - $(CXX) -g -ftemplate-depth-100 -Wall -DLUABIND_BUILDING -c $? -o $@ -I$(LUA_PATH)/include -I- -I.. -I$(BOOST_ROOT) $(CONFIG) - -clean: - rm -f $(OBJECTS) $(TARGET) - diff --git a/sdk/include/luabind/weak_ref.hpp b/src/3rd party/luabind/luabind/weak_ref.hpp similarity index 100% rename from sdk/include/luabind/weak_ref.hpp rename to src/3rd party/luabind/luabind/weak_ref.hpp diff --git a/sdk/include/luabind/wrapper_base.hpp b/src/3rd party/luabind/luabind/wrapper_base.hpp similarity index 100% rename from sdk/include/luabind/wrapper_base.hpp rename to src/3rd party/luabind/luabind/wrapper_base.hpp diff --git a/sdk/include/luabind/yield_policy.hpp b/src/3rd party/luabind/luabind/yield_policy.hpp similarity index 100% rename from sdk/include/luabind/yield_policy.hpp rename to src/3rd party/luabind/luabind/yield_policy.hpp diff --git a/src/3rd party/luabind/luabind/INSTALL b/src/3rd party/luabind/misc/INSTALL similarity index 100% rename from src/3rd party/luabind/luabind/INSTALL rename to src/3rd party/luabind/misc/INSTALL diff --git a/src/3rd party/luabind/luabind/Jamfile b/src/3rd party/luabind/misc/Jamfile similarity index 100% rename from src/3rd party/luabind/luabind/Jamfile rename to src/3rd party/luabind/misc/Jamfile diff --git a/src/3rd party/luabind/luabind/LICENSE b/src/3rd party/luabind/misc/LICENSE similarity index 100% rename from src/3rd party/luabind/luabind/LICENSE rename to src/3rd party/luabind/misc/LICENSE diff --git a/src/3rd party/luabind/luabind/config b/src/3rd party/luabind/misc/config similarity index 100% rename from src/3rd party/luabind/luabind/config rename to src/3rd party/luabind/misc/config diff --git a/src/3rd party/luabind/luabind/doc/CVS/Entries b/src/3rd party/luabind/misc/doc/CVS/Entries similarity index 100% rename from src/3rd party/luabind/luabind/doc/CVS/Entries rename to src/3rd party/luabind/misc/doc/CVS/Entries diff --git a/src/3rd party/luabind/luabind/doc/CVS/Repository b/src/3rd party/luabind/misc/doc/CVS/Repository similarity index 100% rename from src/3rd party/luabind/luabind/doc/CVS/Repository rename to src/3rd party/luabind/misc/doc/CVS/Repository diff --git a/src/3rd party/luabind/luabind/doc/CVS/Root b/src/3rd party/luabind/misc/doc/CVS/Root similarity index 100% rename from src/3rd party/luabind/luabind/doc/CVS/Root rename to src/3rd party/luabind/misc/doc/CVS/Root diff --git a/src/3rd party/luabind/luabind/doc/CVS/Tag b/src/3rd party/luabind/misc/doc/CVS/Tag similarity index 100% rename from src/3rd party/luabind/luabind/doc/CVS/Tag rename to src/3rd party/luabind/misc/doc/CVS/Tag diff --git a/src/3rd party/luabind/luabind/doc/adopt.rst b/src/3rd party/luabind/misc/doc/adopt.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/adopt.rst rename to src/3rd party/luabind/misc/doc/adopt.rst diff --git a/src/3rd party/luabind/luabind/doc/copy.rst b/src/3rd party/luabind/misc/doc/copy.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/copy.rst rename to src/3rd party/luabind/misc/doc/copy.rst diff --git a/src/3rd party/luabind/luabind/doc/dependency.rst b/src/3rd party/luabind/misc/doc/dependency.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/dependency.rst rename to src/3rd party/luabind/misc/doc/dependency.rst diff --git a/src/3rd party/luabind/luabind/doc/discard_result.rst b/src/3rd party/luabind/misc/doc/discard_result.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/discard_result.rst rename to src/3rd party/luabind/misc/doc/discard_result.rst diff --git a/src/3rd party/luabind/luabind/doc/docs.html b/src/3rd party/luabind/misc/doc/docs.html similarity index 100% rename from src/3rd party/luabind/luabind/doc/docs.html rename to src/3rd party/luabind/misc/doc/docs.html diff --git a/src/3rd party/luabind/luabind/doc/docs.rst b/src/3rd party/luabind/misc/doc/docs.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/docs.rst rename to src/3rd party/luabind/misc/doc/docs.rst diff --git a/src/3rd party/luabind/luabind/doc/index.html b/src/3rd party/luabind/misc/doc/index.html similarity index 100% rename from src/3rd party/luabind/luabind/doc/index.html rename to src/3rd party/luabind/misc/doc/index.html diff --git a/src/3rd party/luabind/luabind/doc/luabind-logo-label.ps b/src/3rd party/luabind/misc/doc/luabind-logo-label.ps similarity index 100% rename from src/3rd party/luabind/luabind/doc/luabind-logo-label.ps rename to src/3rd party/luabind/misc/doc/luabind-logo-label.ps diff --git a/src/3rd party/luabind/luabind/doc/luabind.png b/src/3rd party/luabind/misc/doc/luabind.png similarity index 100% rename from src/3rd party/luabind/luabind/doc/luabind.png rename to src/3rd party/luabind/misc/doc/luabind.png diff --git a/src/3rd party/luabind/luabind/doc/out_value.rst b/src/3rd party/luabind/misc/doc/out_value.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/out_value.rst rename to src/3rd party/luabind/misc/doc/out_value.rst diff --git a/src/3rd party/luabind/luabind/doc/pure_out_value.rst b/src/3rd party/luabind/misc/doc/pure_out_value.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/pure_out_value.rst rename to src/3rd party/luabind/misc/doc/pure_out_value.rst diff --git a/src/3rd party/luabind/luabind/doc/raw.rst b/src/3rd party/luabind/misc/doc/raw.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/raw.rst rename to src/3rd party/luabind/misc/doc/raw.rst diff --git a/src/3rd party/luabind/luabind/doc/return_reference_to.rst b/src/3rd party/luabind/misc/doc/return_reference_to.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/return_reference_to.rst rename to src/3rd party/luabind/misc/doc/return_reference_to.rst diff --git a/src/3rd party/luabind/luabind/doc/return_stl_iterator.rst b/src/3rd party/luabind/misc/doc/return_stl_iterator.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/return_stl_iterator.rst rename to src/3rd party/luabind/misc/doc/return_stl_iterator.rst diff --git a/src/3rd party/luabind/luabind/doc/style.css b/src/3rd party/luabind/misc/doc/style.css similarity index 100% rename from src/3rd party/luabind/luabind/doc/style.css rename to src/3rd party/luabind/misc/doc/style.css diff --git a/src/3rd party/luabind/luabind/doc/yield.rst b/src/3rd party/luabind/misc/doc/yield.rst similarity index 100% rename from src/3rd party/luabind/luabind/doc/yield.rst rename to src/3rd party/luabind/misc/doc/yield.rst diff --git a/src/3rd party/luabind/luabind/examples/any_converter/Jamfile b/src/3rd party/luabind/misc/examples/any_converter/Jamfile similarity index 100% rename from src/3rd party/luabind/luabind/examples/any_converter/Jamfile rename to src/3rd party/luabind/misc/examples/any_converter/Jamfile diff --git a/src/3rd party/luabind/luabind/examples/any_converter/any_converter.cpp b/src/3rd party/luabind/misc/examples/any_converter/any_converter.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/any_converter/any_converter.cpp rename to src/3rd party/luabind/misc/examples/any_converter/any_converter.cpp diff --git a/src/3rd party/luabind/luabind/examples/any_converter/makefile b/src/3rd party/luabind/misc/examples/any_converter/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/any_converter/makefile rename to src/3rd party/luabind/misc/examples/any_converter/makefile diff --git a/src/3rd party/luabind/luabind/examples/cln/README b/src/3rd party/luabind/misc/examples/cln/README similarity index 100% rename from src/3rd party/luabind/luabind/examples/cln/README rename to src/3rd party/luabind/misc/examples/cln/README diff --git a/src/3rd party/luabind/luabind/examples/cln/cln_test.cpp b/src/3rd party/luabind/misc/examples/cln/cln_test.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/cln/cln_test.cpp rename to src/3rd party/luabind/misc/examples/cln/cln_test.cpp diff --git a/src/3rd party/luabind/luabind/examples/cln/cln_test.lua b/src/3rd party/luabind/misc/examples/cln/cln_test.lua similarity index 100% rename from src/3rd party/luabind/luabind/examples/cln/cln_test.lua rename to src/3rd party/luabind/misc/examples/cln/cln_test.lua diff --git a/src/3rd party/luabind/luabind/examples/cln/makefile b/src/3rd party/luabind/misc/examples/cln/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/cln/makefile rename to src/3rd party/luabind/misc/examples/cln/makefile diff --git a/src/3rd party/luabind/luabind/examples/filesystem/Jamfile b/src/3rd party/luabind/misc/examples/filesystem/Jamfile similarity index 100% rename from src/3rd party/luabind/luabind/examples/filesystem/Jamfile rename to src/3rd party/luabind/misc/examples/filesystem/Jamfile diff --git a/src/3rd party/luabind/luabind/examples/filesystem/directory_iterator.hpp b/src/3rd party/luabind/misc/examples/filesystem/directory_iterator.hpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/filesystem/directory_iterator.hpp rename to src/3rd party/luabind/misc/examples/filesystem/directory_iterator.hpp diff --git a/src/3rd party/luabind/luabind/examples/filesystem/filesystem.cpp b/src/3rd party/luabind/misc/examples/filesystem/filesystem.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/filesystem/filesystem.cpp rename to src/3rd party/luabind/misc/examples/filesystem/filesystem.cpp diff --git a/src/3rd party/luabind/luabind/examples/filesystem/inspect.lua b/src/3rd party/luabind/misc/examples/filesystem/inspect.lua similarity index 100% rename from src/3rd party/luabind/luabind/examples/filesystem/inspect.lua rename to src/3rd party/luabind/misc/examples/filesystem/inspect.lua diff --git a/src/3rd party/luabind/luabind/examples/filesystem/makefile b/src/3rd party/luabind/misc/examples/filesystem/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/filesystem/makefile rename to src/3rd party/luabind/misc/examples/filesystem/makefile diff --git a/src/3rd party/luabind/luabind/examples/glut/glut_bind.cpp b/src/3rd party/luabind/misc/examples/glut/glut_bind.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/glut/glut_bind.cpp rename to src/3rd party/luabind/misc/examples/glut/glut_bind.cpp diff --git a/src/3rd party/luabind/luabind/examples/glut/glut_bindings.lua b/src/3rd party/luabind/misc/examples/glut/glut_bindings.lua similarity index 100% rename from src/3rd party/luabind/luabind/examples/glut/glut_bindings.lua rename to src/3rd party/luabind/misc/examples/glut/glut_bindings.lua diff --git a/src/3rd party/luabind/luabind/examples/glut/makefile b/src/3rd party/luabind/misc/examples/glut/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/glut/makefile rename to src/3rd party/luabind/misc/examples/glut/makefile diff --git a/src/3rd party/luabind/luabind/examples/intrusive_ptr/Jamfile b/src/3rd party/luabind/misc/examples/intrusive_ptr/Jamfile similarity index 100% rename from src/3rd party/luabind/luabind/examples/intrusive_ptr/Jamfile rename to src/3rd party/luabind/misc/examples/intrusive_ptr/Jamfile diff --git a/src/3rd party/luabind/luabind/examples/intrusive_ptr/intrusive_ptr.cpp b/src/3rd party/luabind/misc/examples/intrusive_ptr/intrusive_ptr.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/intrusive_ptr/intrusive_ptr.cpp rename to src/3rd party/luabind/misc/examples/intrusive_ptr/intrusive_ptr.cpp diff --git a/src/3rd party/luabind/luabind/examples/intrusive_ptr/makefile b/src/3rd party/luabind/misc/examples/intrusive_ptr/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/intrusive_ptr/makefile rename to src/3rd party/luabind/misc/examples/intrusive_ptr/makefile diff --git a/src/3rd party/luabind/luabind/examples/makefile b/src/3rd party/luabind/misc/examples/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/makefile rename to src/3rd party/luabind/misc/examples/makefile diff --git a/src/3rd party/luabind/luabind/examples/regexp/Jamfile b/src/3rd party/luabind/misc/examples/regexp/Jamfile similarity index 100% rename from src/3rd party/luabind/luabind/examples/regexp/Jamfile rename to src/3rd party/luabind/misc/examples/regexp/Jamfile diff --git a/src/3rd party/luabind/luabind/examples/regexp/makefile b/src/3rd party/luabind/misc/examples/regexp/makefile similarity index 100% rename from src/3rd party/luabind/luabind/examples/regexp/makefile rename to src/3rd party/luabind/misc/examples/regexp/makefile diff --git a/src/3rd party/luabind/luabind/examples/regexp/regex.lua b/src/3rd party/luabind/misc/examples/regexp/regex.lua similarity index 100% rename from src/3rd party/luabind/luabind/examples/regexp/regex.lua rename to src/3rd party/luabind/misc/examples/regexp/regex.lua diff --git a/src/3rd party/luabind/luabind/examples/regexp/regex_wrap.cpp b/src/3rd party/luabind/misc/examples/regexp/regex_wrap.cpp similarity index 100% rename from src/3rd party/luabind/luabind/examples/regexp/regex_wrap.cpp rename to src/3rd party/luabind/misc/examples/regexp/regex_wrap.cpp diff --git a/src/3rd party/luabind/luabind/makefile b/src/3rd party/luabind/misc/makefile similarity index 100% rename from src/3rd party/luabind/luabind/makefile rename to src/3rd party/luabind/misc/makefile diff --git a/src/3rd party/luabind/luabind/project-root.jam b/src/3rd party/luabind/misc/project-root.jam similarity index 100% rename from src/3rd party/luabind/luabind/project-root.jam rename to src/3rd party/luabind/misc/project-root.jam diff --git a/src/3rd party/luabind/pch.cpp b/src/3rd party/luabind/pch.cpp index 89ff9a2dbe1..6243896dc09 100644 --- a/src/3rd party/luabind/pch.cpp +++ b/src/3rd party/luabind/pch.cpp @@ -5,4 +5,4 @@ namespace boost { void throw_exception(const std::exception &){} } -#endif // LUABIND_NO_EXCEPTIONS +#endif //!LUABIND_NO_EXCEPTIONS diff --git a/src/3rd party/luabind/pch.h b/src/3rd party/luabind/pch.h index 7c3287df786..adfd50998c8 100644 --- a/src/3rd party/luabind/pch.h +++ b/src/3rd party/luabind/pch.h @@ -4,4 +4,4 @@ #include #include -#endif // PCH_H \ No newline at end of file +#endif //!PCH_H \ No newline at end of file diff --git a/src/3rd party/luabind/luabind/src/class.cpp b/src/3rd party/luabind/src/class.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/class.cpp rename to src/3rd party/luabind/src/class.cpp diff --git a/src/3rd party/luabind/luabind/src/class_info.cpp b/src/3rd party/luabind/src/class_info.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/class_info.cpp rename to src/3rd party/luabind/src/class_info.cpp diff --git a/src/3rd party/luabind/luabind/src/class_registry.cpp b/src/3rd party/luabind/src/class_registry.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/class_registry.cpp rename to src/3rd party/luabind/src/class_registry.cpp diff --git a/src/3rd party/luabind/luabind/src/class_rep.cpp b/src/3rd party/luabind/src/class_rep.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/class_rep.cpp rename to src/3rd party/luabind/src/class_rep.cpp diff --git a/src/3rd party/luabind/luabind/src/create_class.cpp b/src/3rd party/luabind/src/create_class.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/create_class.cpp rename to src/3rd party/luabind/src/create_class.cpp diff --git a/src/3rd party/luabind/luabind/src/error.cpp b/src/3rd party/luabind/src/error.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/error.cpp rename to src/3rd party/luabind/src/error.cpp diff --git a/src/3rd party/luabind/luabind/src/find_best_match.cpp b/src/3rd party/luabind/src/find_best_match.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/find_best_match.cpp rename to src/3rd party/luabind/src/find_best_match.cpp diff --git a/src/3rd party/luabind/luabind/src/function.cpp b/src/3rd party/luabind/src/function.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/function.cpp rename to src/3rd party/luabind/src/function.cpp diff --git a/src/3rd party/luabind/luabind/src/implicit_cast.cpp b/src/3rd party/luabind/src/implicit_cast.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/implicit_cast.cpp rename to src/3rd party/luabind/src/implicit_cast.cpp diff --git a/src/3rd party/luabind/luabind/src/link_compatibility.cpp b/src/3rd party/luabind/src/link_compatibility.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/link_compatibility.cpp rename to src/3rd party/luabind/src/link_compatibility.cpp diff --git a/src/3rd party/luabind/luabind/src/object.cpp b/src/3rd party/luabind/src/object.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/object.cpp rename to src/3rd party/luabind/src/object.cpp diff --git a/src/3rd party/luabind/luabind/src/object_rep.cpp b/src/3rd party/luabind/src/object_rep.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/object_rep.cpp rename to src/3rd party/luabind/src/object_rep.cpp diff --git a/src/3rd party/luabind/luabind/src/open.cpp b/src/3rd party/luabind/src/open.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/open.cpp rename to src/3rd party/luabind/src/open.cpp diff --git a/src/3rd party/luabind/luabind/src/pcall.cpp b/src/3rd party/luabind/src/pcall.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/pcall.cpp rename to src/3rd party/luabind/src/pcall.cpp diff --git a/src/3rd party/luabind/luabind/src/ref.cpp b/src/3rd party/luabind/src/ref.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/ref.cpp rename to src/3rd party/luabind/src/ref.cpp diff --git a/src/3rd party/luabind/luabind/src/scope.cpp b/src/3rd party/luabind/src/scope.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/scope.cpp rename to src/3rd party/luabind/src/scope.cpp diff --git a/src/3rd party/luabind/luabind/src/stack_content_by_name.cpp b/src/3rd party/luabind/src/stack_content_by_name.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/stack_content_by_name.cpp rename to src/3rd party/luabind/src/stack_content_by_name.cpp diff --git a/src/3rd party/luabind/luabind/src/weak_ref.cpp b/src/3rd party/luabind/src/weak_ref.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/weak_ref.cpp rename to src/3rd party/luabind/src/weak_ref.cpp diff --git a/src/3rd party/luabind/luabind/src/wrapper_base.cpp b/src/3rd party/luabind/src/wrapper_base.cpp similarity index 100% rename from src/3rd party/luabind/luabind/src/wrapper_base.cpp rename to src/3rd party/luabind/src/wrapper_base.cpp diff --git a/src/3rd party/luajit-2 b/src/3rd party/luajit-2 new file mode 160000 index 00000000000..396798c6fa7 --- /dev/null +++ b/src/3rd party/luajit-2 @@ -0,0 +1 @@ +Subproject commit 396798c6fa7c3fc60083b24f8411a4aec95b37bd diff --git a/src/3rd party/luajit-2.0/.gitignore b/src/3rd party/luajit-2.0-BAK/.gitignore similarity index 100% rename from src/3rd party/luajit-2.0/.gitignore rename to src/3rd party/luajit-2.0-BAK/.gitignore diff --git a/src/3rd party/luajit-2.0/COPYRIGHT b/src/3rd party/luajit-2.0-BAK/COPYRIGHT similarity index 100% rename from src/3rd party/luajit-2.0/COPYRIGHT rename to src/3rd party/luajit-2.0-BAK/COPYRIGHT diff --git a/src/3rd party/luajit-2.0/Makefile b/src/3rd party/luajit-2.0-BAK/Makefile similarity index 100% rename from src/3rd party/luajit-2.0/Makefile rename to src/3rd party/luajit-2.0-BAK/Makefile diff --git a/src/3rd party/luajit-2.0/README b/src/3rd party/luajit-2.0-BAK/README similarity index 100% rename from src/3rd party/luajit-2.0/README rename to src/3rd party/luajit-2.0-BAK/README diff --git a/src/3rd party/luajit-2.0/doc/bluequad-print.css b/src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css similarity index 100% rename from src/3rd party/luajit-2.0/doc/bluequad-print.css rename to src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css diff --git a/src/3rd party/luajit-2.0/doc/bluequad.css b/src/3rd party/luajit-2.0-BAK/doc/bluequad.css similarity index 100% rename from src/3rd party/luajit-2.0/doc/bluequad.css rename to src/3rd party/luajit-2.0-BAK/doc/bluequad.css diff --git a/src/3rd party/luajit-2.0/doc/changes.html b/src/3rd party/luajit-2.0-BAK/doc/changes.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/changes.html rename to src/3rd party/luajit-2.0-BAK/doc/changes.html diff --git a/src/3rd party/luajit-2.0/doc/contact.html b/src/3rd party/luajit-2.0-BAK/doc/contact.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/contact.html rename to src/3rd party/luajit-2.0-BAK/doc/contact.html diff --git a/src/3rd party/luajit-2.0/doc/ext_c_api.html b/src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_c_api.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_ffi.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_api.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_ffi_api.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_ffi_semantics.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html diff --git a/src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_ffi_tutorial.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html diff --git a/src/3rd party/luajit-2.0/doc/ext_jit.html b/src/3rd party/luajit-2.0-BAK/doc/ext_jit.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_jit.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_jit.html diff --git a/src/3rd party/luajit-2.0/doc/ext_profiler.html b/src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/ext_profiler.html rename to src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html diff --git a/src/3rd party/luajit-2.0/doc/extensions.html b/src/3rd party/luajit-2.0-BAK/doc/extensions.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/extensions.html rename to src/3rd party/luajit-2.0-BAK/doc/extensions.html diff --git a/src/3rd party/luajit-2.0/doc/faq.html b/src/3rd party/luajit-2.0-BAK/doc/faq.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/faq.html rename to src/3rd party/luajit-2.0-BAK/doc/faq.html diff --git a/src/3rd party/luajit-2.0/doc/img/contact.png b/src/3rd party/luajit-2.0-BAK/doc/img/contact.png similarity index 100% rename from src/3rd party/luajit-2.0/doc/img/contact.png rename to src/3rd party/luajit-2.0-BAK/doc/img/contact.png diff --git a/src/3rd party/luajit-2.0/doc/install.html b/src/3rd party/luajit-2.0-BAK/doc/install.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/install.html rename to src/3rd party/luajit-2.0-BAK/doc/install.html diff --git a/src/3rd party/luajit-2.0/doc/luajit.html b/src/3rd party/luajit-2.0-BAK/doc/luajit.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/luajit.html rename to src/3rd party/luajit-2.0-BAK/doc/luajit.html diff --git a/src/3rd party/luajit-2.0/doc/running.html b/src/3rd party/luajit-2.0-BAK/doc/running.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/running.html rename to src/3rd party/luajit-2.0-BAK/doc/running.html diff --git a/src/3rd party/luajit-2.0/doc/status.html b/src/3rd party/luajit-2.0-BAK/doc/status.html similarity index 100% rename from src/3rd party/luajit-2.0/doc/status.html rename to src/3rd party/luajit-2.0-BAK/doc/status.html diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_arm.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_arm.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm64.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_arm64.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_arm64.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_mips.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_mips.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_mips.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_mips.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_ppc.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_ppc.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_ppc.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_proto.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_proto.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x64.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_x64.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x86.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_x86.h rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h diff --git a/src/3rd party/luajit-2.0/dynasm/dasm_x86.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dasm_x86.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua diff --git a/src/3rd party/luajit-2.0/dynasm/dynasm.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua similarity index 100% rename from src/3rd party/luajit-2.0/dynasm/dynasm.lua rename to src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua diff --git a/src/3rd party/luajit-2.0/etc/luajit.1 b/src/3rd party/luajit-2.0-BAK/etc/luajit.1 similarity index 100% rename from src/3rd party/luajit-2.0/etc/luajit.1 rename to src/3rd party/luajit-2.0-BAK/etc/luajit.1 diff --git a/src/3rd party/luajit-2.0/etc/luajit.pc b/src/3rd party/luajit-2.0-BAK/etc/luajit.pc similarity index 100% rename from src/3rd party/luajit-2.0/etc/luajit.pc rename to src/3rd party/luajit-2.0-BAK/etc/luajit.pc diff --git a/src/3rd party/luajit-2.0/src/.gitignore b/src/3rd party/luajit-2.0-BAK/src/.gitignore similarity index 100% rename from src/3rd party/luajit-2.0/src/.gitignore rename to src/3rd party/luajit-2.0-BAK/src/.gitignore diff --git a/src/3rd party/luajit-2.0/src/Makefile b/src/3rd party/luajit-2.0-BAK/src/Makefile similarity index 100% rename from src/3rd party/luajit-2.0/src/Makefile rename to src/3rd party/luajit-2.0-BAK/src/Makefile diff --git a/src/3rd party/luajit-2.0/src/Makefile.dep b/src/3rd party/luajit-2.0-BAK/src/Makefile.dep similarity index 100% rename from src/3rd party/luajit-2.0/src/Makefile.dep rename to src/3rd party/luajit-2.0-BAK/src/Makefile.dep diff --git a/src/3rd party/luajit-2.0/src/host/.gitignore b/src/3rd party/luajit-2.0-BAK/src/host/.gitignore similarity index 100% rename from src/3rd party/luajit-2.0/src/host/.gitignore rename to src/3rd party/luajit-2.0-BAK/src/host/.gitignore diff --git a/src/3rd party/luajit-2.0/src/host/README b/src/3rd party/luajit-2.0-BAK/src/host/README similarity index 100% rename from src/3rd party/luajit-2.0/src/host/README rename to src/3rd party/luajit-2.0-BAK/src/host/README diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm.c rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm.c diff --git a/src/3rd party/luajit-2.0/src/host/buildvm.h b/src/3rd party/luajit-2.0-BAK/src/host/buildvm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm.h rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm.h diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_asm.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm_asm.c rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_fold.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm_fold.c rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_lib.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm_lib.c rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_libbc.h b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm_libbc.h rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h diff --git a/src/3rd party/luajit-2.0/src/host/buildvm_peobj.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/buildvm_peobj.c rename to src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c diff --git a/src/3rd party/luajit-2.0/src/host/genlibbc.lua b/src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/host/genlibbc.lua rename to src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua diff --git a/src/3rd party/luajit-2.0/src/host/genminilua.lua b/src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/host/genminilua.lua rename to src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua diff --git a/src/3rd party/luajit-2.0/src/host/minilua.c b/src/3rd party/luajit-2.0-BAK/src/host/minilua.c similarity index 100% rename from src/3rd party/luajit-2.0/src/host/minilua.c rename to src/3rd party/luajit-2.0-BAK/src/host/minilua.c diff --git a/src/3rd party/luajit-2.0/src/jit/.gitignore b/src/3rd party/luajit-2.0-BAK/src/jit/.gitignore similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/.gitignore rename to src/3rd party/luajit-2.0-BAK/src/jit/.gitignore diff --git a/src/3rd party/luajit-2.0/src/jit/bc.lua b/src/3rd party/luajit-2.0-BAK/src/jit/bc.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/bc.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/bc.lua diff --git a/src/3rd party/luajit-2.0/src/jit/bcsave.lua b/src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/bcsave.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_arm.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_arm.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mips.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_mips.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_mipsel.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_ppc.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_ppc.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x64.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_x64.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dis_x86.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dis_x86.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua diff --git a/src/3rd party/luajit-2.0/src/jit/dump.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dump.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/dump.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/dump.lua diff --git a/src/3rd party/luajit-2.0/src/jit/p.lua b/src/3rd party/luajit-2.0-BAK/src/jit/p.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/p.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/p.lua diff --git a/src/3rd party/luajit-2.0/src/jit/v.lua b/src/3rd party/luajit-2.0-BAK/src/jit/v.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/v.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/v.lua diff --git a/src/3rd party/luajit-2.0/src/jit/zone.lua b/src/3rd party/luajit-2.0-BAK/src/jit/zone.lua similarity index 100% rename from src/3rd party/luajit-2.0/src/jit/zone.lua rename to src/3rd party/luajit-2.0-BAK/src/jit/zone.lua diff --git a/src/3rd party/luajit-2.0/src/lauxlib.h b/src/3rd party/luajit-2.0-BAK/src/lauxlib.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lauxlib.h rename to src/3rd party/luajit-2.0-BAK/src/lauxlib.h diff --git a/src/3rd party/luajit-2.0/src/lib_aux.c b/src/3rd party/luajit-2.0-BAK/src/lib_aux.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_aux.c rename to src/3rd party/luajit-2.0-BAK/src/lib_aux.c diff --git a/src/3rd party/luajit-2.0/src/lib_base.c b/src/3rd party/luajit-2.0-BAK/src/lib_base.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_base.c rename to src/3rd party/luajit-2.0-BAK/src/lib_base.c diff --git a/src/3rd party/luajit-2.0/src/lib_bit.c b/src/3rd party/luajit-2.0-BAK/src/lib_bit.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_bit.c rename to src/3rd party/luajit-2.0-BAK/src/lib_bit.c diff --git a/src/3rd party/luajit-2.0/src/lib_debug.c b/src/3rd party/luajit-2.0-BAK/src/lib_debug.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_debug.c rename to src/3rd party/luajit-2.0-BAK/src/lib_debug.c diff --git a/src/3rd party/luajit-2.0/src/lib_ffi.c b/src/3rd party/luajit-2.0-BAK/src/lib_ffi.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_ffi.c rename to src/3rd party/luajit-2.0-BAK/src/lib_ffi.c diff --git a/src/3rd party/luajit-2.0/src/lib_init.c b/src/3rd party/luajit-2.0-BAK/src/lib_init.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_init.c rename to src/3rd party/luajit-2.0-BAK/src/lib_init.c diff --git a/src/3rd party/luajit-2.0/src/lib_io.c b/src/3rd party/luajit-2.0-BAK/src/lib_io.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_io.c rename to src/3rd party/luajit-2.0-BAK/src/lib_io.c diff --git a/src/3rd party/luajit-2.0/src/lib_jit.c b/src/3rd party/luajit-2.0-BAK/src/lib_jit.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_jit.c rename to src/3rd party/luajit-2.0-BAK/src/lib_jit.c diff --git a/src/3rd party/luajit-2.0/src/lib_math.c b/src/3rd party/luajit-2.0-BAK/src/lib_math.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_math.c rename to src/3rd party/luajit-2.0-BAK/src/lib_math.c diff --git a/src/3rd party/luajit-2.0/src/lib_os.c b/src/3rd party/luajit-2.0-BAK/src/lib_os.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_os.c rename to src/3rd party/luajit-2.0-BAK/src/lib_os.c diff --git a/src/3rd party/luajit-2.0/src/lib_package.c b/src/3rd party/luajit-2.0-BAK/src/lib_package.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_package.c rename to src/3rd party/luajit-2.0-BAK/src/lib_package.c diff --git a/src/3rd party/luajit-2.0/src/lib_string.c b/src/3rd party/luajit-2.0-BAK/src/lib_string.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_string.c rename to src/3rd party/luajit-2.0-BAK/src/lib_string.c diff --git a/src/3rd party/luajit-2.0/src/lib_table.c b/src/3rd party/luajit-2.0-BAK/src/lib_table.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lib_table.c rename to src/3rd party/luajit-2.0-BAK/src/lib_table.c diff --git a/src/3rd party/luajit-2.0/src/lj.supp b/src/3rd party/luajit-2.0-BAK/src/lj.supp similarity index 100% rename from src/3rd party/luajit-2.0/src/lj.supp rename to src/3rd party/luajit-2.0-BAK/src/lj.supp diff --git a/src/3rd party/luajit-2.0/src/lj_alloc.c b/src/3rd party/luajit-2.0-BAK/src/lj_alloc.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_alloc.c rename to src/3rd party/luajit-2.0-BAK/src/lj_alloc.c diff --git a/src/3rd party/luajit-2.0/src/lj_alloc.h b/src/3rd party/luajit-2.0-BAK/src/lj_alloc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_alloc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_alloc.h diff --git a/src/3rd party/luajit-2.0/src/lj_api.c b/src/3rd party/luajit-2.0-BAK/src/lj_api.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_api.c rename to src/3rd party/luajit-2.0-BAK/src/lj_api.c diff --git a/src/3rd party/luajit-2.0/src/lj_arch.h b/src/3rd party/luajit-2.0-BAK/src/lj_arch.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_arch.h rename to src/3rd party/luajit-2.0-BAK/src/lj_arch.h diff --git a/src/3rd party/luajit-2.0/src/lj_asm.c b/src/3rd party/luajit-2.0-BAK/src/lj_asm.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm.c rename to src/3rd party/luajit-2.0-BAK/src/lj_asm.c diff --git a/src/3rd party/luajit-2.0/src/lj_asm.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm.h rename to src/3rd party/luajit-2.0-BAK/src/lj_asm.h diff --git a/src/3rd party/luajit-2.0/src/lj_asm_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm_arm.h rename to src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h diff --git a/src/3rd party/luajit-2.0/src/lj_asm_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm_mips.h rename to src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h diff --git a/src/3rd party/luajit-2.0/src/lj_asm_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm_ppc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h diff --git a/src/3rd party/luajit-2.0/src/lj_asm_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_asm_x86.h rename to src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h diff --git a/src/3rd party/luajit-2.0/src/lj_bc.c b/src/3rd party/luajit-2.0-BAK/src/lj_bc.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_bc.c rename to src/3rd party/luajit-2.0-BAK/src/lj_bc.c diff --git a/src/3rd party/luajit-2.0/src/lj_bc.h b/src/3rd party/luajit-2.0-BAK/src/lj_bc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_bc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_bc.h diff --git a/src/3rd party/luajit-2.0/src/lj_bcdump.h b/src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_bcdump.h rename to src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h diff --git a/src/3rd party/luajit-2.0/src/lj_bcread.c b/src/3rd party/luajit-2.0-BAK/src/lj_bcread.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_bcread.c rename to src/3rd party/luajit-2.0-BAK/src/lj_bcread.c diff --git a/src/3rd party/luajit-2.0/src/lj_bcwrite.c b/src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_bcwrite.c rename to src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c diff --git a/src/3rd party/luajit-2.0/src/lj_buf.c b/src/3rd party/luajit-2.0-BAK/src/lj_buf.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_buf.c rename to src/3rd party/luajit-2.0-BAK/src/lj_buf.c diff --git a/src/3rd party/luajit-2.0/src/lj_buf.h b/src/3rd party/luajit-2.0-BAK/src/lj_buf.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_buf.h rename to src/3rd party/luajit-2.0-BAK/src/lj_buf.h diff --git a/src/3rd party/luajit-2.0/src/lj_carith.c b/src/3rd party/luajit-2.0-BAK/src/lj_carith.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_carith.c rename to src/3rd party/luajit-2.0-BAK/src/lj_carith.c diff --git a/src/3rd party/luajit-2.0/src/lj_carith.h b/src/3rd party/luajit-2.0-BAK/src/lj_carith.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_carith.h rename to src/3rd party/luajit-2.0-BAK/src/lj_carith.h diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.c b/src/3rd party/luajit-2.0-BAK/src/lj_ccall.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ccall.c rename to src/3rd party/luajit-2.0-BAK/src/lj_ccall.c diff --git a/src/3rd party/luajit-2.0/src/lj_ccall.h b/src/3rd party/luajit-2.0-BAK/src/lj_ccall.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ccall.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ccall.h diff --git a/src/3rd party/luajit-2.0/src/lj_ccallback.c b/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ccallback.c rename to src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c diff --git a/src/3rd party/luajit-2.0/src/lj_ccallback.h b/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ccallback.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h diff --git a/src/3rd party/luajit-2.0/src/lj_cconv.c b/src/3rd party/luajit-2.0-BAK/src/lj_cconv.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cconv.c rename to src/3rd party/luajit-2.0-BAK/src/lj_cconv.c diff --git a/src/3rd party/luajit-2.0/src/lj_cconv.h b/src/3rd party/luajit-2.0-BAK/src/lj_cconv.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cconv.h rename to src/3rd party/luajit-2.0-BAK/src/lj_cconv.h diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.c b/src/3rd party/luajit-2.0-BAK/src/lj_cdata.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cdata.c rename to src/3rd party/luajit-2.0-BAK/src/lj_cdata.c diff --git a/src/3rd party/luajit-2.0/src/lj_cdata.h b/src/3rd party/luajit-2.0-BAK/src/lj_cdata.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cdata.h rename to src/3rd party/luajit-2.0-BAK/src/lj_cdata.h diff --git a/src/3rd party/luajit-2.0/src/lj_char.c b/src/3rd party/luajit-2.0-BAK/src/lj_char.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_char.c rename to src/3rd party/luajit-2.0-BAK/src/lj_char.c diff --git a/src/3rd party/luajit-2.0/src/lj_char.h b/src/3rd party/luajit-2.0-BAK/src/lj_char.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_char.h rename to src/3rd party/luajit-2.0-BAK/src/lj_char.h diff --git a/src/3rd party/luajit-2.0/src/lj_clib.c b/src/3rd party/luajit-2.0-BAK/src/lj_clib.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_clib.c rename to src/3rd party/luajit-2.0-BAK/src/lj_clib.c diff --git a/src/3rd party/luajit-2.0/src/lj_clib.h b/src/3rd party/luajit-2.0-BAK/src/lj_clib.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_clib.h rename to src/3rd party/luajit-2.0-BAK/src/lj_clib.h diff --git a/src/3rd party/luajit-2.0/src/lj_cparse.c b/src/3rd party/luajit-2.0-BAK/src/lj_cparse.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cparse.c rename to src/3rd party/luajit-2.0-BAK/src/lj_cparse.c diff --git a/src/3rd party/luajit-2.0/src/lj_cparse.h b/src/3rd party/luajit-2.0-BAK/src/lj_cparse.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_cparse.h rename to src/3rd party/luajit-2.0-BAK/src/lj_cparse.h diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.c b/src/3rd party/luajit-2.0-BAK/src/lj_crecord.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_crecord.c rename to src/3rd party/luajit-2.0-BAK/src/lj_crecord.c diff --git a/src/3rd party/luajit-2.0/src/lj_crecord.h b/src/3rd party/luajit-2.0-BAK/src/lj_crecord.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_crecord.h rename to src/3rd party/luajit-2.0-BAK/src/lj_crecord.h diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.c b/src/3rd party/luajit-2.0-BAK/src/lj_ctype.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ctype.c rename to src/3rd party/luajit-2.0-BAK/src/lj_ctype.c diff --git a/src/3rd party/luajit-2.0/src/lj_ctype.h b/src/3rd party/luajit-2.0-BAK/src/lj_ctype.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ctype.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ctype.h diff --git a/src/3rd party/luajit-2.0/src/lj_debug.c b/src/3rd party/luajit-2.0-BAK/src/lj_debug.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_debug.c rename to src/3rd party/luajit-2.0-BAK/src/lj_debug.c diff --git a/src/3rd party/luajit-2.0/src/lj_debug.h b/src/3rd party/luajit-2.0-BAK/src/lj_debug.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_debug.h rename to src/3rd party/luajit-2.0-BAK/src/lj_debug.h diff --git a/src/3rd party/luajit-2.0/src/lj_def.h b/src/3rd party/luajit-2.0-BAK/src/lj_def.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_def.h rename to src/3rd party/luajit-2.0-BAK/src/lj_def.h diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.c b/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_dispatch.c rename to src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c diff --git a/src/3rd party/luajit-2.0/src/lj_dispatch.h b/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_dispatch.h rename to src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h diff --git a/src/3rd party/luajit-2.0/src/lj_emit_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_emit_arm.h rename to src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h diff --git a/src/3rd party/luajit-2.0/src/lj_emit_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_emit_mips.h rename to src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h diff --git a/src/3rd party/luajit-2.0/src/lj_emit_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_emit_ppc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h diff --git a/src/3rd party/luajit-2.0/src/lj_emit_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_emit_x86.h rename to src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h diff --git a/src/3rd party/luajit-2.0/src/lj_err.c b/src/3rd party/luajit-2.0-BAK/src/lj_err.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_err.c rename to src/3rd party/luajit-2.0-BAK/src/lj_err.c diff --git a/src/3rd party/luajit-2.0/src/lj_err.h b/src/3rd party/luajit-2.0-BAK/src/lj_err.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_err.h rename to src/3rd party/luajit-2.0-BAK/src/lj_err.h diff --git a/src/3rd party/luajit-2.0/src/lj_errmsg.h b/src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_errmsg.h rename to src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h diff --git a/src/3rd party/luajit-2.0/src/lj_ff.h b/src/3rd party/luajit-2.0-BAK/src/lj_ff.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ff.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ff.h diff --git a/src/3rd party/luajit-2.0/src/lj_ffrecord.c b/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ffrecord.c rename to src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c diff --git a/src/3rd party/luajit-2.0/src/lj_ffrecord.h b/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ffrecord.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h diff --git a/src/3rd party/luajit-2.0/src/lj_frame.h b/src/3rd party/luajit-2.0-BAK/src/lj_frame.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_frame.h rename to src/3rd party/luajit-2.0-BAK/src/lj_frame.h diff --git a/src/3rd party/luajit-2.0/src/lj_func.c b/src/3rd party/luajit-2.0-BAK/src/lj_func.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_func.c rename to src/3rd party/luajit-2.0-BAK/src/lj_func.c diff --git a/src/3rd party/luajit-2.0/src/lj_func.h b/src/3rd party/luajit-2.0-BAK/src/lj_func.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_func.h rename to src/3rd party/luajit-2.0-BAK/src/lj_func.h diff --git a/src/3rd party/luajit-2.0/src/lj_gc.c b/src/3rd party/luajit-2.0-BAK/src/lj_gc.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_gc.c rename to src/3rd party/luajit-2.0-BAK/src/lj_gc.c diff --git a/src/3rd party/luajit-2.0/src/lj_gc.h b/src/3rd party/luajit-2.0-BAK/src/lj_gc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_gc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_gc.h diff --git a/src/3rd party/luajit-2.0/src/lj_gdbjit.c b/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_gdbjit.c rename to src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c diff --git a/src/3rd party/luajit-2.0/src/lj_gdbjit.h b/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_gdbjit.h rename to src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h diff --git a/src/3rd party/luajit-2.0/src/lj_ir.c b/src/3rd party/luajit-2.0-BAK/src/lj_ir.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ir.c rename to src/3rd party/luajit-2.0-BAK/src/lj_ir.c diff --git a/src/3rd party/luajit-2.0/src/lj_ir.h b/src/3rd party/luajit-2.0-BAK/src/lj_ir.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ir.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ir.h diff --git a/src/3rd party/luajit-2.0/src/lj_ircall.h b/src/3rd party/luajit-2.0-BAK/src/lj_ircall.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_ircall.h rename to src/3rd party/luajit-2.0-BAK/src/lj_ircall.h diff --git a/src/3rd party/luajit-2.0/src/lj_iropt.h b/src/3rd party/luajit-2.0-BAK/src/lj_iropt.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_iropt.h rename to src/3rd party/luajit-2.0-BAK/src/lj_iropt.h diff --git a/src/3rd party/luajit-2.0/src/lj_jit.h b/src/3rd party/luajit-2.0-BAK/src/lj_jit.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_jit.h rename to src/3rd party/luajit-2.0-BAK/src/lj_jit.h diff --git a/src/3rd party/luajit-2.0/src/lj_lex.c b/src/3rd party/luajit-2.0-BAK/src/lj_lex.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_lex.c rename to src/3rd party/luajit-2.0-BAK/src/lj_lex.c diff --git a/src/3rd party/luajit-2.0/src/lj_lex.h b/src/3rd party/luajit-2.0-BAK/src/lj_lex.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_lex.h rename to src/3rd party/luajit-2.0-BAK/src/lj_lex.h diff --git a/src/3rd party/luajit-2.0/src/lj_lib.c b/src/3rd party/luajit-2.0-BAK/src/lj_lib.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_lib.c rename to src/3rd party/luajit-2.0-BAK/src/lj_lib.c diff --git a/src/3rd party/luajit-2.0/src/lj_lib.h b/src/3rd party/luajit-2.0-BAK/src/lj_lib.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_lib.h rename to src/3rd party/luajit-2.0-BAK/src/lj_lib.h diff --git a/src/3rd party/luajit-2.0/src/lj_load.c b/src/3rd party/luajit-2.0-BAK/src/lj_load.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_load.c rename to src/3rd party/luajit-2.0-BAK/src/lj_load.c diff --git a/src/3rd party/luajit-2.0/src/lj_mcode.c b/src/3rd party/luajit-2.0-BAK/src/lj_mcode.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_mcode.c rename to src/3rd party/luajit-2.0-BAK/src/lj_mcode.c diff --git a/src/3rd party/luajit-2.0/src/lj_mcode.h b/src/3rd party/luajit-2.0-BAK/src/lj_mcode.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_mcode.h rename to src/3rd party/luajit-2.0-BAK/src/lj_mcode.h diff --git a/src/3rd party/luajit-2.0/src/lj_meta.c b/src/3rd party/luajit-2.0-BAK/src/lj_meta.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_meta.c rename to src/3rd party/luajit-2.0-BAK/src/lj_meta.c diff --git a/src/3rd party/luajit-2.0/src/lj_meta.h b/src/3rd party/luajit-2.0-BAK/src/lj_meta.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_meta.h rename to src/3rd party/luajit-2.0-BAK/src/lj_meta.h diff --git a/src/3rd party/luajit-2.0/src/lj_obj.c b/src/3rd party/luajit-2.0-BAK/src/lj_obj.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_obj.c rename to src/3rd party/luajit-2.0-BAK/src/lj_obj.c diff --git a/src/3rd party/luajit-2.0/src/lj_obj.h b/src/3rd party/luajit-2.0-BAK/src/lj_obj.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_obj.h rename to src/3rd party/luajit-2.0-BAK/src/lj_obj.h diff --git a/src/3rd party/luajit-2.0/src/lj_opt_dce.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_dce.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_fold.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_fold.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_loop.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_loop.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_mem.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_mem.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_narrow.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_narrow.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_sink.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_sink.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c diff --git a/src/3rd party/luajit-2.0/src/lj_opt_split.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_opt_split.c rename to src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c diff --git a/src/3rd party/luajit-2.0/src/lj_parse.c b/src/3rd party/luajit-2.0-BAK/src/lj_parse.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_parse.c rename to src/3rd party/luajit-2.0-BAK/src/lj_parse.c diff --git a/src/3rd party/luajit-2.0/src/lj_parse.h b/src/3rd party/luajit-2.0-BAK/src/lj_parse.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_parse.h rename to src/3rd party/luajit-2.0-BAK/src/lj_parse.h diff --git a/src/3rd party/luajit-2.0/src/lj_profile.c b/src/3rd party/luajit-2.0-BAK/src/lj_profile.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_profile.c rename to src/3rd party/luajit-2.0-BAK/src/lj_profile.c diff --git a/src/3rd party/luajit-2.0/src/lj_profile.h b/src/3rd party/luajit-2.0-BAK/src/lj_profile.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_profile.h rename to src/3rd party/luajit-2.0-BAK/src/lj_profile.h diff --git a/src/3rd party/luajit-2.0/src/lj_record.c b/src/3rd party/luajit-2.0-BAK/src/lj_record.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_record.c rename to src/3rd party/luajit-2.0-BAK/src/lj_record.c diff --git a/src/3rd party/luajit-2.0/src/lj_record.h b/src/3rd party/luajit-2.0-BAK/src/lj_record.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_record.h rename to src/3rd party/luajit-2.0-BAK/src/lj_record.h diff --git a/src/3rd party/luajit-2.0/src/lj_snap.c b/src/3rd party/luajit-2.0-BAK/src/lj_snap.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_snap.c rename to src/3rd party/luajit-2.0-BAK/src/lj_snap.c diff --git a/src/3rd party/luajit-2.0/src/lj_snap.h b/src/3rd party/luajit-2.0-BAK/src/lj_snap.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_snap.h rename to src/3rd party/luajit-2.0-BAK/src/lj_snap.h diff --git a/src/3rd party/luajit-2.0/src/lj_state.c b/src/3rd party/luajit-2.0-BAK/src/lj_state.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_state.c rename to src/3rd party/luajit-2.0-BAK/src/lj_state.c diff --git a/src/3rd party/luajit-2.0/src/lj_state.h b/src/3rd party/luajit-2.0-BAK/src/lj_state.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_state.h rename to src/3rd party/luajit-2.0-BAK/src/lj_state.h diff --git a/src/3rd party/luajit-2.0/src/lj_str.c b/src/3rd party/luajit-2.0-BAK/src/lj_str.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_str.c rename to src/3rd party/luajit-2.0-BAK/src/lj_str.c diff --git a/src/3rd party/luajit-2.0/src/lj_str.h b/src/3rd party/luajit-2.0-BAK/src/lj_str.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_str.h rename to src/3rd party/luajit-2.0-BAK/src/lj_str.h diff --git a/src/3rd party/luajit-2.0/src/lj_strfmt.c b/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_strfmt.c rename to src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c diff --git a/src/3rd party/luajit-2.0/src/lj_strfmt.h b/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_strfmt.h rename to src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h diff --git a/src/3rd party/luajit-2.0/src/lj_strscan.c b/src/3rd party/luajit-2.0-BAK/src/lj_strscan.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_strscan.c rename to src/3rd party/luajit-2.0-BAK/src/lj_strscan.c diff --git a/src/3rd party/luajit-2.0/src/lj_strscan.h b/src/3rd party/luajit-2.0-BAK/src/lj_strscan.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_strscan.h rename to src/3rd party/luajit-2.0-BAK/src/lj_strscan.h diff --git a/src/3rd party/luajit-2.0/src/lj_tab.c b/src/3rd party/luajit-2.0-BAK/src/lj_tab.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_tab.c rename to src/3rd party/luajit-2.0-BAK/src/lj_tab.c diff --git a/src/3rd party/luajit-2.0/src/lj_tab.h b/src/3rd party/luajit-2.0-BAK/src/lj_tab.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_tab.h rename to src/3rd party/luajit-2.0-BAK/src/lj_tab.h diff --git a/src/3rd party/luajit-2.0/src/lj_target.h b/src/3rd party/luajit-2.0-BAK/src/lj_target.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target.h diff --git a/src/3rd party/luajit-2.0/src/lj_target_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target_arm.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h diff --git a/src/3rd party/luajit-2.0/src/lj_target_arm64.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target_arm64.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h diff --git a/src/3rd party/luajit-2.0/src/lj_target_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target_mips.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h diff --git a/src/3rd party/luajit-2.0/src/lj_target_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target_ppc.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h diff --git a/src/3rd party/luajit-2.0/src/lj_target_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_target_x86.h rename to src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h diff --git a/src/3rd party/luajit-2.0/src/lj_trace.c b/src/3rd party/luajit-2.0-BAK/src/lj_trace.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_trace.c rename to src/3rd party/luajit-2.0-BAK/src/lj_trace.c diff --git a/src/3rd party/luajit-2.0/src/lj_trace.h b/src/3rd party/luajit-2.0-BAK/src/lj_trace.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_trace.h rename to src/3rd party/luajit-2.0-BAK/src/lj_trace.h diff --git a/src/3rd party/luajit-2.0/src/lj_traceerr.h b/src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_traceerr.h rename to src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h diff --git a/src/3rd party/luajit-2.0/src/lj_udata.c b/src/3rd party/luajit-2.0-BAK/src/lj_udata.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_udata.c rename to src/3rd party/luajit-2.0-BAK/src/lj_udata.c diff --git a/src/3rd party/luajit-2.0/src/lj_udata.h b/src/3rd party/luajit-2.0-BAK/src/lj_udata.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_udata.h rename to src/3rd party/luajit-2.0-BAK/src/lj_udata.h diff --git a/src/3rd party/luajit-2.0/src/lj_vm.h b/src/3rd party/luajit-2.0-BAK/src/lj_vm.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_vm.h rename to src/3rd party/luajit-2.0-BAK/src/lj_vm.h diff --git a/src/3rd party/luajit-2.0/src/lj_vmevent.c b/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_vmevent.c rename to src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c diff --git a/src/3rd party/luajit-2.0/src/lj_vmevent.h b/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_vmevent.h rename to src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h diff --git a/src/3rd party/luajit-2.0/src/lj_vmmath.c b/src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c similarity index 100% rename from src/3rd party/luajit-2.0/src/lj_vmmath.c rename to src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c diff --git a/src/3rd party/luajit-2.0/src/ljamalg.c b/src/3rd party/luajit-2.0-BAK/src/ljamalg.c similarity index 100% rename from src/3rd party/luajit-2.0/src/ljamalg.c rename to src/3rd party/luajit-2.0-BAK/src/ljamalg.c diff --git a/src/3rd party/luajit-2.0/src/lua.h b/src/3rd party/luajit-2.0-BAK/src/lua.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lua.h rename to src/3rd party/luajit-2.0-BAK/src/lua.h diff --git a/src/3rd party/luajit-2.0/src/lua.hpp b/src/3rd party/luajit-2.0-BAK/src/lua.hpp similarity index 100% rename from src/3rd party/luajit-2.0/src/lua.hpp rename to src/3rd party/luajit-2.0-BAK/src/lua.hpp diff --git a/src/3rd party/luajit-2.0/src/lua51.dll b/src/3rd party/luajit-2.0-BAK/src/lua51.dll similarity index 100% rename from src/3rd party/luajit-2.0/src/lua51.dll rename to src/3rd party/luajit-2.0-BAK/src/lua51.dll diff --git a/src/3rd party/luajit-2.0/src/lua51.exp b/src/3rd party/luajit-2.0-BAK/src/lua51.exp similarity index 100% rename from src/3rd party/luajit-2.0/src/lua51.exp rename to src/3rd party/luajit-2.0-BAK/src/lua51.exp diff --git a/src/3rd party/luajit-2.0/src/lua51.lib b/src/3rd party/luajit-2.0-BAK/src/lua51.lib similarity index 100% rename from src/3rd party/luajit-2.0/src/lua51.lib rename to src/3rd party/luajit-2.0-BAK/src/lua51.lib diff --git a/src/3rd party/luajit-2.0/src/luaconf.h b/src/3rd party/luajit-2.0-BAK/src/luaconf.h similarity index 100% rename from src/3rd party/luajit-2.0/src/luaconf.h rename to src/3rd party/luajit-2.0-BAK/src/luaconf.h diff --git a/src/3rd party/luajit-2.0/src/luajit.c b/src/3rd party/luajit-2.0-BAK/src/luajit.c similarity index 100% rename from src/3rd party/luajit-2.0/src/luajit.c rename to src/3rd party/luajit-2.0-BAK/src/luajit.c diff --git a/src/3rd party/luajit-2.0/src/luajit.exe b/src/3rd party/luajit-2.0-BAK/src/luajit.exe similarity index 100% rename from src/3rd party/luajit-2.0/src/luajit.exe rename to src/3rd party/luajit-2.0-BAK/src/luajit.exe diff --git a/src/3rd party/luajit-2.0/src/luajit.h b/src/3rd party/luajit-2.0-BAK/src/luajit.h similarity index 100% rename from src/3rd party/luajit-2.0/src/luajit.h rename to src/3rd party/luajit-2.0-BAK/src/luajit.h diff --git a/src/3rd party/luajit-2.0/src/lualib.h b/src/3rd party/luajit-2.0-BAK/src/lualib.h similarity index 100% rename from src/3rd party/luajit-2.0/src/lualib.h rename to src/3rd party/luajit-2.0-BAK/src/lualib.h diff --git a/src/3rd party/luajit-2.0/src/msvcbuild.bat b/src/3rd party/luajit-2.0-BAK/src/msvcbuild.bat similarity index 100% rename from src/3rd party/luajit-2.0/src/msvcbuild.bat rename to src/3rd party/luajit-2.0-BAK/src/msvcbuild.bat diff --git a/src/3rd party/luajit-2.0/src/ps4build.bat b/src/3rd party/luajit-2.0-BAK/src/ps4build.bat similarity index 100% rename from src/3rd party/luajit-2.0/src/ps4build.bat rename to src/3rd party/luajit-2.0-BAK/src/ps4build.bat diff --git a/src/3rd party/luajit-2.0/src/psvitabuild.bat b/src/3rd party/luajit-2.0-BAK/src/psvitabuild.bat similarity index 100% rename from src/3rd party/luajit-2.0/src/psvitabuild.bat rename to src/3rd party/luajit-2.0-BAK/src/psvitabuild.bat diff --git a/src/3rd party/luajit-2.0/src/vm_arm.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_arm.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_arm.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_arm.dasc diff --git a/src/3rd party/luajit-2.0/src/vm_arm64.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_arm64.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc diff --git a/src/3rd party/luajit-2.0/src/vm_mips.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_mips.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc diff --git a/src/3rd party/luajit-2.0/src/vm_ppc.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_ppc.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc diff --git a/src/3rd party/luajit-2.0/src/vm_ppcspe.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_ppcspe.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc diff --git a/src/3rd party/luajit-2.0/src/vm_x86.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc similarity index 100% rename from src/3rd party/luajit-2.0/src/vm_x86.dasc rename to src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc diff --git a/src/3rd party/luajit-2.0/src/xedkbuild.bat b/src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat similarity index 100% rename from src/3rd party/luajit-2.0/src/xedkbuild.bat rename to src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index c8006ad4e1d..418a1f2696e 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -202,6 +202,7 @@ Level3 true CompileAsCpp + NDEBUG;%(PreprocessorDefinitions) diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index 83237f3607b..6d84bbf0a21 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -129,7 +129,7 @@ Speed true true - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRAPI_EXPORTS;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRAPI_EXPORTS;%(PreprocessorDefinitions) true diff --git a/src/Layers/xrRender/DetailManager.cpp b/src/Layers/xrRender/DetailManager.cpp index 25105b3b4ed..04284d5ad6f 100644 --- a/src/Layers/xrRender/DetailManager.cpp +++ b/src/Layers/xrRender/DetailManager.cpp @@ -269,8 +269,8 @@ void CDetailManager::UpdateVisibleM() // Initialize 'vis' and 'cache' // Collect objects for rendering RDEVICE.Statistic->RenderDUMP_DT_VIS.Begin (); - for (int _mz=0; _mzcache_cx) { // shift matrix to left cache_cx ++; - for (int z=0; z0; x--) cache[z][x] = cache[z][x-1]; + for (u32 x=dm_cache_line-1; x>0; x--) cache[z][x] = cache[z][x-1]; cache [z][0] = S; cache_Task (0,z,S); } @@ -121,10 +121,10 @@ void CDetailManager::cache_Update (int v_x, int v_z, Fvector& view, int limit) if (v_z>cache_cz) { // shift matrix down a bit cache_cz ++; - for (int x=0; x0; z--) cache[z][x] = cache[z-1][x]; + for (u32 z=dm_cache_line-1; z>0; z--) cache[z][x] = cache[z-1][x]; cache [0][x] = S; cache_Task (x,0,S); } @@ -132,10 +132,10 @@ void CDetailManager::cache_Update (int v_x, int v_z, Fvector& view, int limit) } else { // shift matrix up cache_cz --; - for (int x=0; xm_Flags.is(CPEDef::dfVelocityScale)){ diff --git a/src/Layers/xrRender/ResourceManager_Scripting.cpp b/src/Layers/xrRender/ResourceManager_Scripting.cpp index 93326cf6fa8..9dff836e56b 100644 --- a/src/Layers/xrRender/ResourceManager_Scripting.cpp +++ b/src/Layers/xrRender/ResourceManager_Scripting.cpp @@ -1,7 +1,14 @@ #include "stdafx.h" #pragma hdrstop -#include +//AVO: lua re-org +#ifdef USE_LUAJIT_ONE //defined in project props +#pragma comment(lib, "LuaJIT-1.1.8.lib") +#else +#pragma comment(lib, "lua51.lib" ) +#endif +//#include "lua/library_linkage.h" +//-AVO #include "../../xrEngine/Render.h" #include "ResourceManager.h" diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index d8ed7f42c2f..39ba502a24d 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -174,8 +174,8 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -192,9 +192,9 @@ nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true - NotSet + Windows true true true @@ -203,6 +203,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index ac92108ca55..b033b102e19 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -172,8 +172,8 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include\;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -190,7 +190,7 @@ nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -200,6 +200,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index dcea9252d70..3c125cae3d4 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -174,8 +174,8 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) - USE_DX10;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;USE_DX10;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -190,10 +190,11 @@ Level4 ProgramDatabase -Zm110 %(AdditionalOptions) + 4005;4099 dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -203,6 +204,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index a6eb18cc238..8378a44dce4 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -174,8 +174,8 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) - USE_DX11;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;USE_DX11;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -193,7 +193,7 @@ dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -203,6 +203,8 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT + /ignore:4099 diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 6af9f4ed8e9..6742a38e541 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -12,7 +12,6 @@ // CORE: #define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails -//#define USE_LUAJIT_ONE // LuaJit 1.1.8. Dont forget to change build configuration to $(Configuration)_LuaJit_one #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE diff --git a/src/utils/xrDXT/DXT.cpp b/src/utils/xrDXT/DXT.cpp index 76975af1b04..d7ab89c3883 100644 --- a/src/utils/xrDXT/DXT.cpp +++ b/src/utils/xrDXT/DXT.cpp @@ -210,8 +210,8 @@ int DXTCompressImage(LPCSTR out_name, u8* raw_data, u32 w, u32 h, u32 pitch, inOpt.setNormalizeMipmaps(false); nvtt::CompressionOptions compOpt; compOpt.setQuality(nvtt::Quality_Highest); - compOpt.setQuantization(fmt->flags.is(STextureParams::flDitherColor), false, - fmt->flags.is(STextureParams::flBinaryAlpha)); + compOpt.setQuantization((fmt->flags.is(STextureParams::flDitherColor)!=0), false, + (fmt->flags.is(STextureParams::flBinaryAlpha)!=0)); switch (fmt->fmt) { case STextureParams::tfDXT1: compOpt.setFormat(nvtt::Format_DXT1); break; diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index ea8cdd6904d..a99d29a048c 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -136,12 +136,13 @@ 0x0409 - /MACHINE:I386 %(AdditionalOptions) + + true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) true NotSet - false + true true true UseLinkTimeCodeGeneration @@ -168,7 +169,7 @@ true true $(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCDB_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCDB_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index 66aab64ae2d..757b389d886 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -181,7 +181,7 @@ true true $(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCPU_PIPE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCPU_PIPE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -205,7 +205,7 @@ 0x0419 - /MACHINE:I386 %(AdditionalOptions) + /ignore:4099 true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) true diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 01c40e32704..9cf431e07df 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -176,7 +176,7 @@ true true .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true diff --git a/src/xrEngine/ai_script_space.h b/src/xrEngine/ai_script_space.h index a0c67e587b3..9c1b2a754ae 100644 --- a/src/xrEngine/ai_script_space.h +++ b/src/xrEngine/ai_script_space.h @@ -16,14 +16,17 @@ //#define LUABIND_NO_EXCEPTIONS -extern "C" { +//AVO: lua re-org +#include "lua.hpp" +/*extern "C" { //#define BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION #include #include #include // #include -} +}*/ +//-AVO // Lua-bind #include diff --git a/src/xrEngine/stdafx.h b/src/xrEngine/stdafx.h index 79c0de04a0c..e06d05af951 100644 --- a/src/xrEngine/stdafx.h +++ b/src/xrEngine/stdafx.h @@ -65,7 +65,15 @@ extern ENGINE_API CInifile* pGameIni; #pragma comment( lib, "xrCDB.lib" ) #pragma comment( lib, "xrSound.lib" ) -#include "lua/library_linkage.h" +//AVO: lua re-org +#ifdef USE_LUAJIT_ONE //defined in project props +#pragma comment(lib, "LuaJIT-1.1.8.lib") +#else +#pragma comment(lib, "lua51.lib" ) +#endif +//#include "lua/library_linkage.h" +//-AVO + #include "luabind/library_linkage.h" #pragma comment( lib, "xrAPI.lib" ) diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 100b6898a24..fe44582bf24 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -318,8 +318,8 @@ true true true - .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) - NDEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;NDEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -346,7 +346,7 @@ vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) true - $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2.0\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) true NotSet @@ -357,6 +357,7 @@ false false $(xrLibDir)$(TargetName).lib + /ignore:4099 as-invoker-manifest-part.xml;%(AdditionalManifestFiles) diff --git a/src/xrGame/GameTask.h b/src/xrGame/GameTask.h index 9bdc47690c7..98d22728d4c 100644 --- a/src/xrGame/GameTask.h +++ b/src/xrGame/GameTask.h @@ -3,7 +3,7 @@ #include "encyclopedia_article_defs.h" #include "GameTaskDefs.h" #include "script_export_space.h" -#include "../../sdk/include/luabind/functor.hpp" +#include class CGameTaskManager; class CMapLocation; diff --git a/src/xrGame/level_changer.cpp b/src/xrGame/level_changer.cpp index 615f4d6f66f..e881c3550ce 100644 --- a/src/xrGame/level_changer.cpp +++ b/src/xrGame/level_changer.cpp @@ -164,7 +164,7 @@ bool CLevelChanger::get_reject_pos(Fvector& p, Fvector& r) bool CLevelChanger::feel_touch_contact (CObject *object) { - bool bRes = (((CCF_Shape*)CFORM())->Contact(object)); + bool bRes = ((((CCF_Shape*)CFORM())->Contact(object)) != 0); bRes = bRes && smart_cast(object) && smart_cast(object)->g_Alive(); return bRes; } diff --git a/src/xrGame/script_zone.cpp b/src/xrGame/script_zone.cpp index 6e07a761fea..e4beeb72082 100644 --- a/src/xrGame/script_zone.cpp +++ b/src/xrGame/script_zone.cpp @@ -90,7 +90,7 @@ void CScriptZone::net_Relcase (CObject *O) bool CScriptZone::feel_touch_contact (CObject* O) { - return (((CCF_Shape*)CFORM())->Contact(O)); + return (((CCF_Shape*)CFORM())->Contact(O)) != 0; } #ifdef DEBUG diff --git a/src/xrGame/team_base_zone.cpp b/src/xrGame/team_base_zone.cpp index 52e66dd4af0..51038428af4 100644 --- a/src/xrGame/team_base_zone.cpp +++ b/src/xrGame/team_base_zone.cpp @@ -140,7 +140,7 @@ bool CTeamBaseZone::feel_touch_contact (CObject* O) { CActor* pActor = smart_cast(O); if (!pActor) return (false); - return ((CCF_Shape*)CFORM())->Contact(O); + return ((CCF_Shape*)CFORM())->Contact(O) != 0; } #ifdef DEBUG diff --git a/src/xrGame/xrGame.cpp b/src/xrGame/xrGame.cpp index 56d3f87ffc8..fbaba45ff2a 100644 --- a/src/xrGame/xrGame.cpp +++ b/src/xrGame/xrGame.cpp @@ -12,7 +12,14 @@ #include "xr_level_controller.h" #include "profiler.h" -#include "lua/library_linkage.h" +//AVO: lua re-org +#ifdef USE_LUAJIT_ONE //defined in project props +#pragma comment(lib, "LuaJIT-1.1.8.lib") +#else +#pragma comment(lib, "lua51.lib" ) +#endif +//#include "lua/library_linkage.h" +//-AVO #include "luabind/library_linkage.h" //#pragma comment(lib,"ode.lib") diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 4519e488e6b..c5db50ee72a 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -270,8 +270,8 @@ true true false - .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\LuaJIT-1.1.8\etc\;$(SolutionDir)3rd party\luabind\;$(SolutionDir);$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -290,7 +290,7 @@ Level4 true ProgramDatabase - 4237;%(DisableSpecificWarnings) + 4005;4237;%(DisableSpecificWarnings) true @@ -298,10 +298,9 @@ 0x0419 - - + /ignore:4099 true - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index 32582f8a177..c1837693350 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -146,7 +146,7 @@ true true $(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAMESPY_EXPORTS;_SECURE_SCL=0;XRAY_DISABLE_GAMESPY_WARNINGS;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAMESPY_EXPORTS;_SECURE_SCL=0;XRAY_DISABLE_GAMESPY_WARNINGS;%(PreprocessorDefinitions) true MultiThreadedDLL false diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index 1e8a7269562..b253af8a39b 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -163,7 +163,7 @@ true true .;$(DXSDK_DIR)Include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) - NDEBUG;WIN32;_WINDOWS;XR_NETSERVER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;NDEBUG;WIN32;_WINDOWS;XR_NETSERVER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index d5ec673655a..4fd9cd80671 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -162,7 +162,7 @@ true true $(xrSdkDir)include;%(AdditionalIncludeDirectories) - NDEBUG;WIN32;_WINDOWS;XR_PARTICLES_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;NDEBUG;WIN32;_WINDOWS;XR_PARTICLES_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -184,7 +184,7 @@ 0x0409 - /MACHINE:I386 %(AdditionalOptions) + /ignore:4099 true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) true diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 406c4cddfdd..5730c91653b 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -178,7 +178,7 @@ true true $(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;dSINGLE;_USRDLL;XRPHYSICS_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;dSINGLE;_USRDLL;XRPHYSICS_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) true diff --git a/src/xrServerEntities/pch_script.h b/src/xrServerEntities/pch_script.h index 7d1e2a3f5e6..f5570562fe3 100644 --- a/src/xrServerEntities/pch_script.h +++ b/src/xrServerEntities/pch_script.h @@ -11,11 +11,15 @@ #include "stdafx.h" -extern "C" { + +//AVO: lua re-org +#include "lua.hpp" +/*extern "C" { #include #include #include -}; +}*/ +//-AVO #pragma warning(push) #pragma warning(disable:4995) diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index dcb8398c532..4a946c246e8 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -35,7 +35,7 @@ static LogCallback s_old_log_callback = 0; extern Flags32 psAI_Flags; # endif //-DEBUG #endif //!XRSE_FACTORY_EXPORTS -#include "../luajit-2.0/src/lua.hpp" +#include "lua.hpp" #ifdef USE_LUAJIT_ONE void jit_command(lua_State*, LPCSTR); diff --git a/src/xrServerEntities/script_engine.h b/src/xrServerEntities/script_engine.h index 62edfc05b42..d2873ae2969 100644 --- a/src/xrServerEntities/script_engine.h +++ b/src/xrServerEntities/script_engine.h @@ -14,9 +14,12 @@ #include "associative_vector.h" #include "script_storage.h" -extern "C" { - #include -}; +//AVO: lua re-org +#include "lua.hpp" +/*extern "C" { +#include +}*/ +//-AVO //#define DBG_DISABLE_SCRIPTS diff --git a/src/xrServerEntities/script_thread.cpp b/src/xrServerEntities/script_thread.cpp index 09d310fa6bb..3638bcd79aa 100644 --- a/src/xrServerEntities/script_thread.cpp +++ b/src/xrServerEntities/script_thread.cpp @@ -7,9 +7,12 @@ //////////////////////////////////////////////////////////////////////////// #include "pch_script.h" -extern "C" { +//AVO: lua re-org +#include "lua.hpp" +/*extern "C" { #include "lua/lua.h" -}; +};*/ +//-AVO #include "script_engine.h" #include "script_thread.h" #include "ai_space.h" diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index ba0ee9183af..68952dc5da4 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -180,7 +180,7 @@ true true $(xrSdkDir)include;$(XRAY_16X_LIBS)libvorbis-1.2.3\include;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(SolutionDir)3rd party\OpenAL\include;%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_WINDOWS;_USRDLL;XRSOUND_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRSOUND_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -209,6 +209,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + /ignore:4099 diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index e7dbcd96f22..849b2f11c5a 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -164,7 +164,7 @@ true true $(xrSdkDir)include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) - NDEBUG;WIN32;_WINDOWS;XRXMLPARSER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;NDEBUG;WIN32;_WINDOWS;XRXMLPARSER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true From 46e3fc09552047291700b08e49a84adfc71f3c49 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 17 Jan 2015 23:29:46 -0500 Subject: [PATCH 076/166] * lua re-org part 2: release config for luajit 2+ --- res/gamedata/scripts/_g.script | 2 ++ res/gamedata/scripts/gulag_general.script | 2 +- src/3rd party/NVTT/NVTT.vcxproj | 1 + src/3rd party/crypto/crypto.vcxproj | 1 + .../lua-extensions/lua_extensions.vcxproj | 15 ++++++++++----- .../luabind/luabind.beta7-devel.rc4.vcxproj | 4 +++- src/3rd party/luajit-2 | 2 +- src/Layers/xrAPI/xrAPI.vcxproj | 1 + src/Layers/xrRender/HW.cpp | 7 +++++-- src/Layers/xrRender/HW.h | 2 ++ src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 6 ++++-- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 6 ++++-- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 7 +++++-- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 7 +++++-- src/build_config_defines.h | 4 ++-- src/engine.sln | 2 +- src/xrCDB/xrCDB.vcxproj | 1 + src/xrCPU_Pipe/ttapi.cpp | 4 ++-- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 2 ++ src/xrCore/xrCore.vcxproj | 1 + src/xrEngine/xrEngine.vcxproj | 6 ++++-- src/xrGame/xrGame.vcxproj | 12 ++++++------ src/xrGameSpy/xrGameSpy.vcxproj | 1 + src/xrNetServer/xrNetServer.vcxproj | 1 + src/xrParticles/xrParticles.vcxproj | 1 + src/xrPhysics/xrPhysics.vcxproj | 1 + src/xrServerEntities/script_storage.cpp | 2 +- src/xrSound/xrSound.vcxproj | 2 ++ src/xrXMLParser/xrXMLParser.vcxproj | 1 + 29 files changed, 72 insertions(+), 32 deletions(-) diff --git a/res/gamedata/scripts/_g.script b/res/gamedata/scripts/_g.script index 4fd50a9776a..a6214eedd0e 100644 --- a/res/gamedata/scripts/_g.script +++ b/res/gamedata/scripts/_g.script @@ -104,6 +104,8 @@ function printf(fmt,...) end +printf = function() end + ---------------------------------------------------------------------- if nil == time_global then time_global = function () return device():time_global() end diff --git a/res/gamedata/scripts/gulag_general.script b/res/gamedata/scripts/gulag_general.script index 9e368de218c..96af6ad23da 100644 --- a/res/gamedata/scripts/gulag_general.script +++ b/res/gamedata/scripts/gulag_general.script @@ -885,7 +885,7 @@ local job_type_by_scheme = { function add_exclusive_job(sect, work_field, smart_ini, job_table) local work = utils.cfg_get_string(smart_ini, sect, work_field, nil, false, "") if work == nil then return end - local ini_path = "\scripts\\"..work + local ini_path = "scripts\\"..work local fs = getFS() if fs:exist("$game_config$",ini_path) == nil then diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index b9ffbc1539e..1b991d3f908 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -270,6 +270,7 @@ true true true + 4005 true diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 06f11b024e5..50e7cc0da2c 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -106,6 +106,7 @@ AnySuitable true true + 4005;4996 $(xrLibDir)$(TargetName).lib diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index 8d09f927e2e..2dd35018c6c 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -63,7 +63,7 @@ $(ProjectName) $(VC_IncludePath);$(WindowsSDK_IncludePath); $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); - false + true $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -109,22 +109,27 @@ Level3 MaxSpeed - true + false true - $(SolutionDir)3rd party\luajit-2.0\src\;%(AdditionalIncludeDirectories) + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalIncludeDirectories) Speed - false + true SyncCThrow false Fast Default _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + true + true + StreamingSIMDExtensions2 + 4996;4244;4018 + USE_LUAJIT_ONE true true true - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrLibDir);%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalLibraryDirectories) true false $(xrLibDir)$(TargetName).lib diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index be214417f09..959205b971f 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -93,12 +93,14 @@ Level3 ProgramDatabase 4530;4100;4714;4127;%(DisableSpecificWarnings) + USE_LUAJIT_ONE $(ProjectDir)..\luajit-2\src\;%(AdditionalLibraryDirectories) true false - Windows + + true true false diff --git a/src/3rd party/luajit-2 b/src/3rd party/luajit-2 index 396798c6fa7..bcfc9282e5c 160000 --- a/src/3rd party/luajit-2 +++ b/src/3rd party/luajit-2 @@ -1 +1 @@ -Subproject commit 396798c6fa7c3fc60083b24f8411a4aec95b37bd +Subproject commit bcfc9282e5c65bce9850fbc3f58b1d405423af15 diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index 6d84bbf0a21..f4ee4366251 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -111,6 +111,7 @@ Use Level4 ProgramDatabase + USE_LUAJIT_ONE true diff --git a/src/Layers/xrRender/HW.cpp b/src/Layers/xrRender/HW.cpp index 80415c2b7aa..d5fca3c802d 100644 --- a/src/Layers/xrRender/HW.cpp +++ b/src/Layers/xrRender/HW.cpp @@ -529,8 +529,11 @@ u32 CHW::selectRefresh(u32 dwWidth, u32 dwHeight, D3DFORMAT fmt) pD3D->EnumAdapterModes(DevAdapter,fmt,I,&Mode); if (Mode.Width==dwWidth && Mode.Height==dwHeight) { - //if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; - if (Mode.RefreshRate <= maxRefreshRate && Mode.RefreshRate>selected) selected = Mode.RefreshRate; //ECO_RENDER modif. +#ifndef ECO_RENDER + if (Mode.RefreshRate>selected) selected = Mode.RefreshRate; +#else + if (Mode.RefreshRate <= (UINT)maxRefreshRate && Mode.RefreshRate>selected) selected = Mode.RefreshRate; //ECO_RENDER modif. +#endif } } return selected; diff --git a/src/Layers/xrRender/HW.h b/src/Layers/xrRender/HW.h index 1773bdab268..e2eca162cb9 100644 --- a/src/Layers/xrRender/HW.h +++ b/src/Layers/xrRender/HW.h @@ -8,6 +8,8 @@ #include "hwcaps.h" +#include "../../build_config_defines.h" + #ifndef _MAYA_EXPORT #include "stats_manager.h" #endif diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 39ba502a24d..0eeabd00ab9 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -135,7 +135,7 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -149,10 +149,11 @@ Use Level4 ProgramDatabase + USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -163,6 +164,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index b033b102e19..19a3f9f4fb1 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -134,7 +134,7 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -148,10 +148,11 @@ Use Level4 ProgramDatabase + USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -161,6 +162,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index 3c125cae3d4..914193ca90a 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -135,7 +135,7 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) USE_DX10;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -150,10 +150,12 @@ Level4 ProgramDatabase -Zm110 %(AdditionalOptions) + USE_LUAJIT_ONE + 4005;4099 dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -163,6 +165,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index 8378a44dce4..e2e25d12239 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -135,7 +135,7 @@ true true true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) USE_DX11;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -150,10 +150,12 @@ Level4 ProgramDatabase -Zm113 %(AdditionalOptions) + USE_LUAJIT_ONE + 4005;4099 dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true NotSet true @@ -163,6 +165,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 6742a38e541..cbeccd0ca0c 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -18,8 +18,8 @@ // VISUAL: #define DETAIL_RADIUS // detail draw radius (by KD) #define VSYNC_FIX // functional VSync by avbaula -// ECO_RENDER is not needed with VSYNC_FIX enabled -//#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) +//ECO_RENDER is not needed with VSYNC_FIX enabled +#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) //-VISUAL // TWEAKS: diff --git a/src/engine.sln b/src/engine.sln index 3060c16220f..fccc7f33903 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -705,7 +705,7 @@ Global {EA5932F3-02FE-4AD3-89E8-7072DC465D25} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {B730F54D-1199-481A-AAD0-5DB684E067C0} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} - {EBF9B543-0830-4866-9B48-DC0740E87E8A} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} + {EBF9B543-0830-4866-9B48-DC0740E87E8A} = {2BFC806B-CE92-4EA4-8FE8-5F2EA54BA348} {A4ABD75E-825B-4D09-B3B2-2709682E40C8} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {F1836CE2-59EF-4189-8B9C-D103A511CB27} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61} = {89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B} diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index a99d29a048c..78f745094ea 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -130,6 +130,7 @@ Level4 true ProgramDatabase + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) diff --git a/src/xrCPU_Pipe/ttapi.cpp b/src/xrCPU_Pipe/ttapi.cpp index 2026ba6c9c0..9dbc8347892 100644 --- a/src/xrCPU_Pipe/ttapi.cpp +++ b/src/xrCPU_Pipe/ttapi.cpp @@ -127,7 +127,7 @@ DWORD ttapi_Init( _processor_info* ID ) QueryPerformanceCounter( &liEnd ); // We want 1/25 (40ms) fast spin-loop - ttapi_dwFastIter = ( dwNumIter * liFrequency.QuadPart ) / ( ( liEnd.QuadPart - liStart.QuadPart ) * 25 ); + ttapi_dwFastIter = (DWORD)(( dwNumIter * liFrequency.QuadPart ) / ( ( liEnd.QuadPart - liStart.QuadPart ) * 25 )); //Msg( "fast spin-loop iterations : %u" , ttapi_dwFastIter ); // Get slow spin-loop timings @@ -143,7 +143,7 @@ DWORD ttapi_Init( _processor_info* ID ) QueryPerformanceCounter( &liEnd ); // We want 1/2 (500ms) slow spin-loop - ttapi_dwSlowIter = ( dwNumIter * liFrequency.QuadPart ) / ( ( liEnd.QuadPart - liStart.QuadPart ) * 2 ); + ttapi_dwSlowIter = (DWORD)(( dwNumIter * liFrequency.QuadPart ) / ( ( liEnd.QuadPart - liStart.QuadPart ) * 2 )); //Msg( "slow spin-loop iterations : %u" , ttapi_dwSlowIter ); SetPriorityClass( GetCurrentProcess() , NORMAL_PRIORITY_CLASS ); diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index 757b389d886..5d323a98309 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -145,6 +145,8 @@ Level4 true ProgramDatabase + 4995 + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 9cf431e07df..a83f238e9ef 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -151,6 +151,7 @@ Level4 ProgramDatabase + USE_LUAJIT_ONE $(xrSdkDir)libraries;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index fe44582bf24..1b9fece3ea7 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -267,7 +267,7 @@ true true true - .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) NDEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -285,6 +285,7 @@ true ProgramDatabase Default + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) @@ -293,7 +294,7 @@ vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) true - $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2.0\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) true NotSet @@ -304,6 +305,7 @@ false false $(xrLibDir)$(TargetName).lib + /ignore:4099 as-invoker-manifest-part.xml;%(AdditionalManifestFiles) diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index c5db50ee72a..0bc2761fe88 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -213,8 +213,8 @@ Speed true true - false - .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) + true + .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -232,18 +232,18 @@ Level4 true ProgramDatabase - 4237;%(DisableSpecificWarnings) + 4005;4237;%(DisableSpecificWarnings) true + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) 0x0419 - - + /ignore:4099 true - $(SolutionDir)3rd party\luajit-2.0\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) true NotSet true diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index c1837693350..b21e6bd6680 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -122,6 +122,7 @@ Level3 ProgramDatabase 4996;%(DisableSpecificWarnings) + USE_LUAJIT_ONE $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index b253af8a39b..b267bbd42b6 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -126,6 +126,7 @@ true ProgramDatabase CompileAsCpp + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 4fd9cd80671..39465d6203b 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -126,6 +126,7 @@ true ProgramDatabase CompileAsCpp + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 5730c91653b..a726c9c7b95 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -154,6 +154,7 @@ Level4 ProgramDatabase + USE_LUAJIT_ONE $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) diff --git a/src/xrServerEntities/script_storage.cpp b/src/xrServerEntities/script_storage.cpp index 332e1c91cd1..1458215ae46 100644 --- a/src/xrServerEntities/script_storage.cpp +++ b/src/xrServerEntities/script_storage.cpp @@ -17,7 +17,7 @@ # include "opt_inline.lua.h" #endif //!DEBUG && USE_LUAJIT_ONE #ifndef USE_LUAJIT_ONE -#include "../luajit-2.0/src/lua.hpp" +#include "lua.hpp" #endif LPCSTR file_header_old = "\ diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index 68952dc5da4..18322dfb3d1 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -155,6 +155,7 @@ Level4 ProgramDatabase + USE_LUAJIT_ONE libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;OpenAL32.lib;%(AdditionalDependencies) @@ -168,6 +169,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + /ignore:4099 diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index 849b2f11c5a..6a9730c83b2 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -128,6 +128,7 @@ true ProgramDatabase CompileAsCpp + USE_LUAJIT_ONE NDEBUG;%(PreprocessorDefinitions) From d62dace21602e9d6c45ba75884fb866ca02a27b6 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 18 Jan 2015 00:14:14 -0500 Subject: [PATCH 077/166] ~ more warnings cleanup ~ enabled USE_GSC_MEM_ALLOC --- src/3rd party/cximage/cximage.vcxproj | 4 ++-- src/xrGame/xrGame.vcxproj | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index 927d8c44a0f..45c729e13e5 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -94,7 +94,7 @@ true true $(XRAY_16X_LIBS);$(SolutionDir);%(AdditionalIncludeDirectories) - WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;_CRT_SECURE_NO_WARNINGS;_CRT_SECURE_NO_DEPRECATE;CXIMAGE_BUILD;CXIMAGE_AS_SHARED_LIBRARY;%(PreprocessorDefinitions) + WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;CXIMAGE_BUILD;CXIMAGE_AS_SHARED_LIBRARY;%(PreprocessorDefinitions) true false @@ -106,7 +106,7 @@ Fast Level4 true - 4100;4702;%(DisableSpecificWarnings) + 4995;4100;4702;%(DisableSpecificWarnings) NDEBUG;%(PreprocessorDefinitions) diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 0bc2761fe88..fcd8f22bc6a 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -232,7 +232,7 @@ Level4 true ProgramDatabase - 4005;4237;%(DisableSpecificWarnings) + 4995;4005;4237;%(DisableSpecificWarnings) true USE_LUAJIT_ONE From 897d9298c1989be33603dd667de8d707582ed744 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sun, 18 Jan 2015 09:21:01 -0500 Subject: [PATCH 078/166] + added level namespace export level.spawn_item(section,position,level_vertex_id,parent_id,(bool)return_item) --- src/xrGame/level_script.cpp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index b43b0f9384b..a10d5fba5f4 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -713,6 +713,12 @@ void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighP Level().Send(P,net_flags(bReliable,bSequential,bHighPriority,bSendImmediately)); } +//can spawn entities like bolts, phantoms, ammo, etc. which normally crash when using alife():create() +void spawn_section(LPCSTR sSection, Fvector3 vPosition, u32 LevelVertexID, u16 ParentID, bool bReturnItem) +{ + Level().spawn_item(sSection, vPosition, LevelVertexID, ParentID, bReturnItem); +} + //ability to get the target game_object at crosshair CScriptGameObject* g_get_target_obj() { @@ -733,7 +739,7 @@ float g_get_target_dist() return RQ.range; return (0); } -//Alundaio: END +//-Alundaio #pragma optimize("s",on) @@ -752,6 +758,7 @@ void CLevel::script_register(lua_State *L) def("send", &g_send), //allow the ability to send netpacket to level def("get_target_obj", &g_get_target_obj), //intentionally named to what is in xray extensions def("get_target_dist", &g_get_target_dist), + def("spawn_item", spawn_section), //Alundaio: END // obsolete\deprecated def("object_by_id", get_object_by_id), From 29d882bacbf2899977a58fc26a64c415b2b0fcd1 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 18 Jan 2015 17:22:38 -0500 Subject: [PATCH 079/166] = fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch --- src/3rd party/luajit-2.0-BAK/.gitignore | 11 - src/3rd party/luajit-2.0-BAK/COPYRIGHT | 56 - src/3rd party/luajit-2.0-BAK/Makefile | 159 - src/3rd party/luajit-2.0-BAK/README | 16 - .../luajit-2.0-BAK/doc/bluequad-print.css | 166 - src/3rd party/luajit-2.0-BAK/doc/bluequad.css | 325 - src/3rd party/luajit-2.0-BAK/doc/changes.html | 930 -- src/3rd party/luajit-2.0-BAK/doc/contact.html | 104 - .../luajit-2.0-BAK/doc/ext_c_api.html | 189 - src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html | 332 - .../luajit-2.0-BAK/doc/ext_ffi_api.html | 570 -- .../luajit-2.0-BAK/doc/ext_ffi_semantics.html | 1261 --- .../luajit-2.0-BAK/doc/ext_ffi_tutorial.html | 603 -- src/3rd party/luajit-2.0-BAK/doc/ext_jit.html | 201 - .../luajit-2.0-BAK/doc/ext_profiler.html | 365 - .../luajit-2.0-BAK/doc/extensions.html | 443 - src/3rd party/luajit-2.0-BAK/doc/faq.html | 186 - .../luajit-2.0-BAK/doc/img/contact.png | Bin 1340 -> 0 bytes src/3rd party/luajit-2.0-BAK/doc/install.html | 649 -- src/3rd party/luajit-2.0-BAK/doc/luajit.html | 236 - src/3rd party/luajit-2.0-BAK/doc/running.html | 309 - src/3rd party/luajit-2.0-BAK/doc/status.html | 127 - .../luajit-2.0-BAK/dynasm/dasm_arm.h | 456 - .../luajit-2.0-BAK/dynasm/dasm_arm.lua | 1125 --- .../luajit-2.0-BAK/dynasm/dasm_arm64.h | 518 -- .../luajit-2.0-BAK/dynasm/dasm_arm64.lua | 1166 --- .../luajit-2.0-BAK/dynasm/dasm_mips.h | 416 - .../luajit-2.0-BAK/dynasm/dasm_mips.lua | 953 -- .../luajit-2.0-BAK/dynasm/dasm_ppc.h | 412 - .../luajit-2.0-BAK/dynasm/dasm_ppc.lua | 1249 --- .../luajit-2.0-BAK/dynasm/dasm_proto.h | 83 - .../luajit-2.0-BAK/dynasm/dasm_x64.lua | 12 - .../luajit-2.0-BAK/dynasm/dasm_x86.h | 471 - .../luajit-2.0-BAK/dynasm/dasm_x86.lua | 1945 ----- .../luajit-2.0-BAK/dynasm/dynasm.lua | 1094 --- src/3rd party/luajit-2.0-BAK/etc/luajit.1 | 88 - src/3rd party/luajit-2.0-BAK/etc/luajit.pc | 25 - src/3rd party/luajit-2.0-BAK/src/.gitignore | 7 - src/3rd party/luajit-2.0-BAK/src/Makefile | 688 -- src/3rd party/luajit-2.0-BAK/src/Makefile.dep | 244 - .../luajit-2.0-BAK/src/host/.gitignore | 3 - src/3rd party/luajit-2.0-BAK/src/host/README | 4 - .../luajit-2.0-BAK/src/host/buildvm.c | 518 -- .../luajit-2.0-BAK/src/host/buildvm.h | 105 - .../luajit-2.0-BAK/src/host/buildvm_asm.c | 334 - .../luajit-2.0-BAK/src/host/buildvm_fold.c | 229 - .../luajit-2.0-BAK/src/host/buildvm_lib.c | 457 - .../luajit-2.0-BAK/src/host/buildvm_libbc.h | 45 - .../luajit-2.0-BAK/src/host/buildvm_peobj.c | 368 - .../luajit-2.0-BAK/src/host/genlibbc.lua | 197 - .../luajit-2.0-BAK/src/host/genminilua.lua | 428 - .../luajit-2.0-BAK/src/host/minilua.c | 7770 ----------------- .../luajit-2.0-BAK/src/jit/.gitignore | 1 - src/3rd party/luajit-2.0-BAK/src/jit/bc.lua | 190 - .../luajit-2.0-BAK/src/jit/bcsave.lua | 659 -- .../luajit-2.0-BAK/src/jit/dis_arm.lua | 689 -- .../luajit-2.0-BAK/src/jit/dis_mips.lua | 428 - .../luajit-2.0-BAK/src/jit/dis_mipsel.lua | 17 - .../luajit-2.0-BAK/src/jit/dis_ppc.lua | 591 -- .../luajit-2.0-BAK/src/jit/dis_x64.lua | 17 - .../luajit-2.0-BAK/src/jit/dis_x86.lua | 838 -- src/3rd party/luajit-2.0-BAK/src/jit/dump.lua | 706 -- src/3rd party/luajit-2.0-BAK/src/jit/p.lua | 310 - src/3rd party/luajit-2.0-BAK/src/jit/v.lua | 170 - src/3rd party/luajit-2.0-BAK/src/jit/zone.lua | 45 - src/3rd party/luajit-2.0-BAK/src/lauxlib.h | 167 - src/3rd party/luajit-2.0-BAK/src/lib_aux.c | 356 - src/3rd party/luajit-2.0-BAK/src/lib_base.c | 664 -- src/3rd party/luajit-2.0-BAK/src/lib_bit.c | 180 - src/3rd party/luajit-2.0-BAK/src/lib_debug.c | 405 - src/3rd party/luajit-2.0-BAK/src/lib_ffi.c | 872 -- src/3rd party/luajit-2.0-BAK/src/lib_init.c | 55 - src/3rd party/luajit-2.0-BAK/src/lib_io.c | 534 -- src/3rd party/luajit-2.0-BAK/src/lib_jit.c | 767 -- src/3rd party/luajit-2.0-BAK/src/lib_math.c | 230 - src/3rd party/luajit-2.0-BAK/src/lib_os.c | 292 - .../luajit-2.0-BAK/src/lib_package.c | 602 -- src/3rd party/luajit-2.0-BAK/src/lib_string.c | 752 -- src/3rd party/luajit-2.0-BAK/src/lib_table.c | 307 - src/3rd party/luajit-2.0-BAK/src/lj.supp | 26 - src/3rd party/luajit-2.0-BAK/src/lj_alloc.c | 1398 --- src/3rd party/luajit-2.0-BAK/src/lj_alloc.h | 17 - src/3rd party/luajit-2.0-BAK/src/lj_api.c | 1210 --- src/3rd party/luajit-2.0-BAK/src/lj_arch.h | 477 - src/3rd party/luajit-2.0-BAK/src/lj_asm.c | 2278 ----- src/3rd party/luajit-2.0-BAK/src/lj_asm.h | 17 - src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h | 2217 ----- .../luajit-2.0-BAK/src/lj_asm_mips.h | 1833 ---- src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h | 2013 ----- src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h | 2630 ------ src/3rd party/luajit-2.0-BAK/src/lj_bc.c | 14 - src/3rd party/luajit-2.0-BAK/src/lj_bc.h | 265 - src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h | 68 - src/3rd party/luajit-2.0-BAK/src/lj_bcread.c | 457 - src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c | 361 - src/3rd party/luajit-2.0-BAK/src/lj_buf.c | 234 - src/3rd party/luajit-2.0-BAK/src/lj_buf.h | 105 - src/3rd party/luajit-2.0-BAK/src/lj_carith.c | 429 - src/3rd party/luajit-2.0-BAK/src/lj_carith.h | 37 - src/3rd party/luajit-2.0-BAK/src/lj_ccall.c | 984 --- src/3rd party/luajit-2.0-BAK/src/lj_ccall.h | 178 - .../luajit-2.0-BAK/src/lj_ccallback.c | 707 -- .../luajit-2.0-BAK/src/lj_ccallback.h | 25 - src/3rd party/luajit-2.0-BAK/src/lj_cconv.c | 752 -- src/3rd party/luajit-2.0-BAK/src/lj_cconv.h | 70 - src/3rd party/luajit-2.0-BAK/src/lj_cdata.c | 283 - src/3rd party/luajit-2.0-BAK/src/lj_cdata.h | 76 - src/3rd party/luajit-2.0-BAK/src/lj_char.c | 43 - src/3rd party/luajit-2.0-BAK/src/lj_char.h | 42 - src/3rd party/luajit-2.0-BAK/src/lj_clib.c | 410 - src/3rd party/luajit-2.0-BAK/src/lj_clib.h | 29 - src/3rd party/luajit-2.0-BAK/src/lj_cparse.c | 1858 ---- src/3rd party/luajit-2.0-BAK/src/lj_cparse.h | 65 - src/3rd party/luajit-2.0-BAK/src/lj_crecord.c | 1834 ---- src/3rd party/luajit-2.0-BAK/src/lj_crecord.h | 38 - src/3rd party/luajit-2.0-BAK/src/lj_ctype.c | 635 -- src/3rd party/luajit-2.0-BAK/src/lj_ctype.h | 461 - src/3rd party/luajit-2.0-BAK/src/lj_debug.c | 699 -- src/3rd party/luajit-2.0-BAK/src/lj_debug.h | 65 - src/3rd party/luajit-2.0-BAK/src/lj_def.h | 365 - .../luajit-2.0-BAK/src/lj_dispatch.c | 557 -- .../luajit-2.0-BAK/src/lj_dispatch.h | 138 - .../luajit-2.0-BAK/src/lj_emit_arm.h | 356 - .../luajit-2.0-BAK/src/lj_emit_mips.h | 211 - .../luajit-2.0-BAK/src/lj_emit_ppc.h | 238 - .../luajit-2.0-BAK/src/lj_emit_x86.h | 462 - src/3rd party/luajit-2.0-BAK/src/lj_err.c | 780 -- src/3rd party/luajit-2.0-BAK/src/lj_err.h | 41 - src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h | 190 - src/3rd party/luajit-2.0-BAK/src/lj_ff.h | 18 - .../luajit-2.0-BAK/src/lj_ffrecord.c | 1215 --- .../luajit-2.0-BAK/src/lj_ffrecord.h | 24 - src/3rd party/luajit-2.0-BAK/src/lj_frame.h | 239 - src/3rd party/luajit-2.0-BAK/src/lj_func.c | 185 - src/3rd party/luajit-2.0-BAK/src/lj_func.h | 24 - src/3rd party/luajit-2.0-BAK/src/lj_gc.c | 845 -- src/3rd party/luajit-2.0-BAK/src/lj_gc.h | 134 - src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c | 787 -- src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h | 22 - src/3rd party/luajit-2.0-BAK/src/lj_ir.c | 505 -- src/3rd party/luajit-2.0-BAK/src/lj_ir.h | 577 -- src/3rd party/luajit-2.0-BAK/src/lj_ircall.h | 321 - src/3rd party/luajit-2.0-BAK/src/lj_iropt.h | 161 - src/3rd party/luajit-2.0-BAK/src/lj_jit.h | 425 - src/3rd party/luajit-2.0-BAK/src/lj_lex.c | 481 - src/3rd party/luajit-2.0-BAK/src/lj_lex.h | 86 - src/3rd party/luajit-2.0-BAK/src/lj_lib.c | 303 - src/3rd party/luajit-2.0-BAK/src/lj_lib.h | 115 - src/3rd party/luajit-2.0-BAK/src/lj_load.c | 168 - src/3rd party/luajit-2.0-BAK/src/lj_mcode.c | 373 - src/3rd party/luajit-2.0-BAK/src/lj_mcode.h | 30 - src/3rd party/luajit-2.0-BAK/src/lj_meta.c | 477 - src/3rd party/luajit-2.0-BAK/src/lj_meta.h | 38 - src/3rd party/luajit-2.0-BAK/src/lj_obj.c | 50 - src/3rd party/luajit-2.0-BAK/src/lj_obj.h | 976 --- src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c | 78 - .../luajit-2.0-BAK/src/lj_opt_fold.c | 2483 ------ .../luajit-2.0-BAK/src/lj_opt_loop.c | 449 - src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c | 934 -- .../luajit-2.0-BAK/src/lj_opt_narrow.c | 647 -- .../luajit-2.0-BAK/src/lj_opt_sink.c | 245 - .../luajit-2.0-BAK/src/lj_opt_split.c | 856 -- src/3rd party/luajit-2.0-BAK/src/lj_parse.c | 2725 ------ src/3rd party/luajit-2.0-BAK/src/lj_parse.h | 18 - src/3rd party/luajit-2.0-BAK/src/lj_profile.c | 368 - src/3rd party/luajit-2.0-BAK/src/lj_profile.h | 21 - src/3rd party/luajit-2.0-BAK/src/lj_record.c | 2454 ------ src/3rd party/luajit-2.0-BAK/src/lj_record.h | 45 - src/3rd party/luajit-2.0-BAK/src/lj_snap.c | 870 -- src/3rd party/luajit-2.0-BAK/src/lj_snap.h | 34 - src/3rd party/luajit-2.0-BAK/src/lj_state.c | 300 - src/3rd party/luajit-2.0-BAK/src/lj_state.h | 35 - src/3rd party/luajit-2.0-BAK/src/lj_str.c | 197 - src/3rd party/luajit-2.0-BAK/src/lj_str.h | 27 - src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c | 554 -- src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h | 125 - src/3rd party/luajit-2.0-BAK/src/lj_strscan.c | 498 -- src/3rd party/luajit-2.0-BAK/src/lj_strscan.h | 39 - src/3rd party/luajit-2.0-BAK/src/lj_tab.c | 666 -- src/3rd party/luajit-2.0-BAK/src/lj_tab.h | 72 - src/3rd party/luajit-2.0-BAK/src/lj_target.h | 164 - .../luajit-2.0-BAK/src/lj_target_arm.h | 270 - .../luajit-2.0-BAK/src/lj_target_arm64.h | 97 - .../luajit-2.0-BAK/src/lj_target_mips.h | 260 - .../luajit-2.0-BAK/src/lj_target_ppc.h | 280 - .../luajit-2.0-BAK/src/lj_target_x86.h | 341 - src/3rd party/luajit-2.0-BAK/src/lj_trace.c | 845 -- src/3rd party/luajit-2.0-BAK/src/lj_trace.h | 54 - .../luajit-2.0-BAK/src/lj_traceerr.h | 60 - src/3rd party/luajit-2.0-BAK/src/lj_udata.c | 34 - src/3rd party/luajit-2.0-BAK/src/lj_udata.h | 14 - src/3rd party/luajit-2.0-BAK/src/lj_vm.h | 114 - src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c | 58 - src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h | 59 - src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c | 152 - src/3rd party/luajit-2.0-BAK/src/ljamalg.c | 96 - src/3rd party/luajit-2.0-BAK/src/lua.h | 393 - src/3rd party/luajit-2.0-BAK/src/lua.hpp | 9 - src/3rd party/luajit-2.0-BAK/src/lua51.dll | Bin 368128 -> 0 bytes src/3rd party/luajit-2.0-BAK/src/lua51.exp | Bin 16746 -> 0 bytes src/3rd party/luajit-2.0-BAK/src/lua51.lib | Bin 28130 -> 0 bytes src/3rd party/luajit-2.0-BAK/src/luaconf.h | 156 - src/3rd party/luajit-2.0-BAK/src/luajit.c | 570 -- src/3rd party/luajit-2.0-BAK/src/luajit.exe | Bin 86016 -> 0 bytes src/3rd party/luajit-2.0-BAK/src/luajit.h | 79 - src/3rd party/luajit-2.0-BAK/src/lualib.h | 43 - .../luajit-2.0-BAK/src/msvcbuild.bat | 115 - src/3rd party/luajit-2.0-BAK/src/ps4build.bat | 103 - .../luajit-2.0-BAK/src/psvitabuild.bat | 93 - src/3rd party/luajit-2.0-BAK/src/vm_arm.dasc | 4585 ---------- .../luajit-2.0-BAK/src/vm_arm64.dasc | 3763 -------- src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc | 4355 --------- src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc | 5259 ----------- .../luajit-2.0-BAK/src/vm_ppcspe.dasc | 3691 -------- src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc | 5684 ------------ .../luajit-2.0-BAK/src/xedkbuild.bat | 92 - src/build_config_defines.h | 2 +- src/xrGame/Level.cpp | 20 +- src/xrGame/xrGame.vcxproj | 5 +- 219 files changed, 20 insertions(+), 123384 deletions(-) delete mode 100644 src/3rd party/luajit-2.0-BAK/.gitignore delete mode 100644 src/3rd party/luajit-2.0-BAK/COPYRIGHT delete mode 100644 src/3rd party/luajit-2.0-BAK/Makefile delete mode 100644 src/3rd party/luajit-2.0-BAK/README delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/bluequad.css delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/changes.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/contact.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_c_api.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_ffi.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_ffi_api.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_jit.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/extensions.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/faq.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/img/contact.png delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/install.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/luajit.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/running.html delete mode 100644 src/3rd party/luajit-2.0-BAK/doc/status.html delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/etc/luajit.1 delete mode 100644 src/3rd party/luajit-2.0-BAK/etc/luajit.pc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/.gitignore delete mode 100644 src/3rd party/luajit-2.0-BAK/src/Makefile delete mode 100644 src/3rd party/luajit-2.0-BAK/src/Makefile.dep delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/.gitignore delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/README delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/host/minilua.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/.gitignore delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/bc.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/dump.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/p.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/v.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/jit/zone.lua delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lauxlib.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_aux.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_base.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_bit.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_debug.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_ffi.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_init.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_io.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_jit.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_math.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_os.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_package.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_string.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lib_table.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj.supp delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_alloc.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_alloc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_api.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_arch.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_bc.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_bc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_bcread.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_buf.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_buf.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_carith.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_carith.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ccall.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ccall.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cconv.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cconv.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cdata.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cdata.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_char.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_char.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_clib.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_clib.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cparse.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_cparse.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_crecord.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_crecord.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ctype.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ctype.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_debug.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_debug.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_def.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_err.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_err.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ff.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_frame.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_func.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_func.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_gc.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_gc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ir.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ir.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_ircall.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_iropt.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_jit.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_lex.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_lex.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_lib.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_lib.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_load.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_mcode.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_mcode.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_meta.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_meta.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_obj.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_obj.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_parse.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_parse.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_profile.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_profile.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_record.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_record.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_snap.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_snap.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_state.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_state.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_str.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_str.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_strscan.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_strscan.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_tab.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_tab.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_trace.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_trace.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_udata.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_udata.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_vm.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/ljamalg.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lua.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lua.hpp delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lua51.dll delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lua51.exp delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lua51.lib delete mode 100644 src/3rd party/luajit-2.0-BAK/src/luaconf.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/luajit.c delete mode 100644 src/3rd party/luajit-2.0-BAK/src/luajit.exe delete mode 100644 src/3rd party/luajit-2.0-BAK/src/luajit.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/lualib.h delete mode 100644 src/3rd party/luajit-2.0-BAK/src/msvcbuild.bat delete mode 100644 src/3rd party/luajit-2.0-BAK/src/ps4build.bat delete mode 100644 src/3rd party/luajit-2.0-BAK/src/psvitabuild.bat delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_arm.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc delete mode 100644 src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat diff --git a/src/3rd party/luajit-2.0-BAK/.gitignore b/src/3rd party/luajit-2.0-BAK/.gitignore deleted file mode 100644 index 5bb4d394f12..00000000000 --- a/src/3rd party/luajit-2.0-BAK/.gitignore +++ /dev/null @@ -1,11 +0,0 @@ -*.[oa] -*.so -*.obj -;*.lib -;*.exp -;*.dll -;*.exe -*.manifest -*.dmp -*.swp -.tags diff --git a/src/3rd party/luajit-2.0-BAK/COPYRIGHT b/src/3rd party/luajit-2.0-BAK/COPYRIGHT deleted file mode 100644 index 1ef7df62446..00000000000 --- a/src/3rd party/luajit-2.0-BAK/COPYRIGHT +++ /dev/null @@ -1,56 +0,0 @@ -=============================================================================== -LuaJIT -- a Just-In-Time Compiler for Lua. http://luajit.org/ - -Copyright (C) 2005-2015 Mike Pall. All rights reserved. - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -THE SOFTWARE. - -[ MIT license: http://www.opensource.org/licenses/mit-license.php ] - -=============================================================================== -[ LuaJIT includes code from Lua 5.1/5.2, which has this license statement: ] - -Copyright (C) 1994-2012 Lua.org, PUC-Rio. - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -THE SOFTWARE. - -=============================================================================== -[ LuaJIT includes code from dlmalloc, which has this license statement: ] - -This is a version (aka dlmalloc) of malloc/free/realloc written by -Doug Lea and released to the public domain, as explained at -http://creativecommons.org/licenses/publicdomain - -=============================================================================== diff --git a/src/3rd party/luajit-2.0-BAK/Makefile b/src/3rd party/luajit-2.0-BAK/Makefile deleted file mode 100644 index dce52e5928c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/Makefile +++ /dev/null @@ -1,159 +0,0 @@ -############################################################################## -# LuaJIT top level Makefile for installation. Requires GNU Make. -# -# Please read doc/install.html before changing any variables! -# -# Suitable for POSIX platforms (Linux, *BSD, OSX etc.). -# Note: src/Makefile has many more configurable options. -# -# ##### This Makefile is NOT useful for Windows! ##### -# For MSVC, please follow the instructions given in src/msvcbuild.bat. -# For MinGW and Cygwin, cd to src and run make with the Makefile there. -# -# Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -############################################################################## - -MAJVER= 2 -MINVER= 1 -RELVER= 0 -PREREL= -alpha -VERSION= $(MAJVER).$(MINVER).$(RELVER)$(PREREL) -ABIVER= 5.1 - -############################################################################## -# -# Change the installation path as needed. This automatically adjusts -# the paths in src/luaconf.h, too. Note: PREFIX must be an absolute path! -# -export PREFIX= /usr/local -export MULTILIB= lib -############################################################################## - -DPREFIX= $(DESTDIR)$(PREFIX) -INSTALL_BIN= $(DPREFIX)/bin -INSTALL_LIB= $(DPREFIX)/$(MULTILIB) -INSTALL_SHARE= $(DPREFIX)/share -INSTALL_INC= $(DPREFIX)/include/luajit-$(MAJVER).$(MINVER) - -INSTALL_LJLIBD= $(INSTALL_SHARE)/luajit-$(VERSION) -INSTALL_JITLIB= $(INSTALL_LJLIBD)/jit -INSTALL_LMODD= $(INSTALL_SHARE)/lua -INSTALL_LMOD= $(INSTALL_LMODD)/$(ABIVER) -INSTALL_CMODD= $(INSTALL_LIB)/lua -INSTALL_CMOD= $(INSTALL_CMODD)/$(ABIVER) -INSTALL_MAN= $(INSTALL_SHARE)/man/man1 -INSTALL_PKGCONFIG= $(INSTALL_LIB)/pkgconfig - -INSTALL_TNAME= luajit-$(VERSION) -INSTALL_TSYMNAME= luajit -INSTALL_ANAME= libluajit-$(ABIVER).a -INSTALL_SONAME= libluajit-$(ABIVER).so.$(MAJVER).$(MINVER).$(RELVER) -INSTALL_SOSHORT= libluajit-$(ABIVER).so -INSTALL_DYLIBNAME= libluajit-$(ABIVER).$(MAJVER).$(MINVER).$(RELVER).dylib -INSTALL_DYLIBSHORT1= libluajit-$(ABIVER).dylib -INSTALL_DYLIBSHORT2= libluajit-$(ABIVER).$(MAJVER).dylib -INSTALL_PCNAME= luajit.pc - -INSTALL_STATIC= $(INSTALL_LIB)/$(INSTALL_ANAME) -INSTALL_DYN= $(INSTALL_LIB)/$(INSTALL_SONAME) -INSTALL_SHORT1= $(INSTALL_LIB)/$(INSTALL_SOSHORT) -INSTALL_SHORT2= $(INSTALL_LIB)/$(INSTALL_SOSHORT) -INSTALL_T= $(INSTALL_BIN)/$(INSTALL_TNAME) -INSTALL_TSYM= $(INSTALL_BIN)/$(INSTALL_TSYMNAME) -INSTALL_PC= $(INSTALL_PKGCONFIG)/$(INSTALL_PCNAME) - -INSTALL_DIRS= $(INSTALL_BIN) $(INSTALL_LIB) $(INSTALL_INC) $(INSTALL_MAN) \ - $(INSTALL_PKGCONFIG) $(INSTALL_JITLIB) $(INSTALL_LMOD) $(INSTALL_CMOD) -UNINSTALL_DIRS= $(INSTALL_JITLIB) $(INSTALL_LJLIBD) $(INSTALL_INC) \ - $(INSTALL_LMOD) $(INSTALL_LMODD) $(INSTALL_CMOD) $(INSTALL_CMODD) - -RM= rm -f -MKDIR= mkdir -p -RMDIR= rmdir 2>/dev/null -SYMLINK= ln -sf -INSTALL_X= install -m 0755 -INSTALL_F= install -m 0644 -UNINSTALL= $(RM) -LDCONFIG= ldconfig -n -SED_PC= sed -e "s|^prefix=.*|prefix=$(PREFIX)|" \ - -e "s|^multilib=.*|multilib=$(MULTILIB)|" - -FILE_T= luajit -FILE_A= libluajit.a -FILE_SO= libluajit.so -FILE_MAN= luajit.1 -FILE_PC= luajit.pc -FILES_INC= lua.h lualib.h lauxlib.h luaconf.h lua.hpp luajit.h -FILES_JITLIB= bc.lua bcsave.lua dump.lua p.lua v.lua zone.lua \ - dis_x86.lua dis_x64.lua dis_arm.lua dis_ppc.lua \ - dis_mips.lua dis_mipsel.lua vmdef.lua - -ifeq (,$(findstring Windows,$(OS))) - ifeq (Darwin,$(shell uname -s)) - INSTALL_SONAME= $(INSTALL_DYLIBNAME) - INSTALL_SHORT1= $(INSTALL_LIB)/$(INSTALL_DYLIBSHORT1) - INSTALL_SHORT2= $(INSTALL_LIB)/$(INSTALL_DYLIBSHORT2) - LDCONFIG= : - endif -endif - -############################################################################## - -INSTALL_DEP= src/luajit - -default all $(INSTALL_DEP): - @echo "==== Building LuaJIT $(VERSION) ====" - $(MAKE) -C src - @echo "==== Successfully built LuaJIT $(VERSION) ====" - -install: $(INSTALL_DEP) - @echo "==== Installing LuaJIT $(VERSION) to $(PREFIX) ====" - $(MKDIR) $(INSTALL_DIRS) - cd src && $(INSTALL_X) $(FILE_T) $(INSTALL_T) - cd src && test -f $(FILE_A) && $(INSTALL_F) $(FILE_A) $(INSTALL_STATIC) || : - $(RM) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) - cd src && test -f $(FILE_SO) && \ - $(INSTALL_X) $(FILE_SO) $(INSTALL_DYN) && \ - $(LDCONFIG) $(INSTALL_LIB) && \ - $(SYMLINK) $(INSTALL_SONAME) $(INSTALL_SHORT1) && \ - $(SYMLINK) $(INSTALL_SONAME) $(INSTALL_SHORT2) || : - cd etc && $(INSTALL_F) $(FILE_MAN) $(INSTALL_MAN) - cd etc && $(SED_PC) $(FILE_PC) > $(FILE_PC).tmp && \ - $(INSTALL_F) $(FILE_PC).tmp $(INSTALL_PC) && \ - $(RM) $(FILE_PC).tmp - cd src && $(INSTALL_F) $(FILES_INC) $(INSTALL_INC) - cd src/jit && $(INSTALL_F) $(FILES_JITLIB) $(INSTALL_JITLIB) - @echo "==== Successfully installed LuaJIT $(VERSION) to $(PREFIX) ====" - @echo "" - @echo "Note: the development releases deliberately do NOT install a symlink for luajit" - @echo "You can do this now by running this command (with sudo):" - @echo "" - @echo " $(SYMLINK) $(INSTALL_TNAME) $(INSTALL_TSYM)" - @echo "" - - -uninstall: - @echo "==== Uninstalling LuaJIT $(VERSION) from $(PREFIX) ====" - $(UNINSTALL) $(INSTALL_T) $(INSTALL_STATIC) $(INSTALL_DYN) $(INSTALL_SHORT1) $(INSTALL_SHORT2) $(INSTALL_MAN)/$(FILE_MAN) $(INSTALL_PC) - for file in $(FILES_JITLIB); do \ - $(UNINSTALL) $(INSTALL_JITLIB)/$$file; \ - done - for file in $(FILES_INC); do \ - $(UNINSTALL) $(INSTALL_INC)/$$file; \ - done - $(LDCONFIG) $(INSTALL_LIB) - $(RMDIR) $(UNINSTALL_DIRS) || : - @echo "==== Successfully uninstalled LuaJIT $(VERSION) from $(PREFIX) ====" - -############################################################################## - -amalg: - @echo "Building LuaJIT $(VERSION)" - $(MAKE) -C src amalg - -clean: - $(MAKE) -C src clean - -.PHONY: all install amalg clean - -############################################################################## diff --git a/src/3rd party/luajit-2.0-BAK/README b/src/3rd party/luajit-2.0-BAK/README deleted file mode 100644 index 6dcd9b9f20c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/README +++ /dev/null @@ -1,16 +0,0 @@ -README for LuaJIT 2.1.0-alpha ------------------------------ - -LuaJIT is a Just-In-Time (JIT) compiler for the Lua programming language. - -Project Homepage: http://luajit.org/ - -LuaJIT is Copyright (C) 2005-2015 Mike Pall. -LuaJIT is free software, released under the MIT license. -See full Copyright Notice in the COPYRIGHT file or in luajit.h. - -Documentation for LuaJIT is available in HTML format. -Please point your favorite browser to: - - doc/luajit.html - diff --git a/src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css b/src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css deleted file mode 100644 index 07f5c84a5f6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/bluequad-print.css +++ /dev/null @@ -1,166 +0,0 @@ -/* Copyright (C) 2004-2015 Mike Pall. - * - * You are welcome to use the general ideas of this design for your own sites. - * But please do not steal the stylesheet, the layout or the color scheme. - */ -body { - font-family: serif; - font-size: 11pt; - margin: 0 3em; - padding: 0; - border: none; -} -a:link, a:visited, a:hover, a:active { - text-decoration: none; - background: transparent; - color: #0000ff; -} -h1, h2, h3 { - font-family: sans-serif; - font-weight: bold; - text-align: left; - margin: 0.5em 0; - padding: 0; -} -h1 { - font-size: 200%; -} -h2 { - font-size: 150%; -} -h3 { - font-size: 125%; -} -p { - margin: 0 0 0.5em 0; - padding: 0; -} -ul, ol { - margin: 0.5em 0; - padding: 0 0 0 2em; -} -ul { - list-style: outside square; -} -ol { - list-style: outside decimal; -} -li { - margin: 0; - padding: 0; -} -dl { - margin: 1em 0; - padding: 1em; - border: 1px solid black; -} -dt { - font-weight: bold; - margin: 0; - padding: 0; -} -dt sup { - float: right; - margin-left: 1em; -} -dd { - margin: 0.5em 0 0 2em; - padding: 0; -} -table { - table-layout: fixed; - width: 100%; - margin: 1em 0; - padding: 0; - border: 1px solid black; - border-spacing: 0; - border-collapse: collapse; -} -tr { - margin: 0; - padding: 0; - border: none; -} -td { - text-align: left; - margin: 0; - padding: 0.2em 0.5em; - border-top: 1px solid black; - border-bottom: 1px solid black; -} -tr.separate td { - border-top: double; -} -tt, pre, code, kbd, samp { - font-family: monospace; - font-size: 75%; -} -kbd { - font-weight: bolder; -} -blockquote, pre { - margin: 1em 2em; - padding: 0; -} -img { - border: none; - vertical-align: baseline; - margin: 0; - padding: 0; -} -img.left { - float: left; - margin: 0.5em 1em 0.5em 0; -} -img.right { - float: right; - margin: 0.5em 0 0.5em 1em; -} -.flush { - clear: both; - visibility: hidden; -} -.hide, .noprint, #nav { - display: none !important; -} -.pagebreak { - page-break-before: always; -} -#site { - text-align: right; - font-family: sans-serif; - font-weight: bold; - margin: 0 1em; - border-bottom: 1pt solid black; -} -#site a { - font-size: 1.2em; -} -#site a:link, #site a:visited { - text-decoration: none; - font-weight: bold; - background: transparent; - color: #ffffff; -} -#logo { - color: #ff8000; -} -#head { - clear: both; - margin: 0 1em; -} -#main { - line-height: 1.3; - text-align: justify; - margin: 1em; -} -#foot { - clear: both; - font-size: 80%; - text-align: center; - margin: 0 1.25em; - padding: 0.5em 0 0 0; - border-top: 1pt solid black; - page-break-before: avoid; - page-break-after: avoid; -} diff --git a/src/3rd party/luajit-2.0-BAK/doc/bluequad.css b/src/3rd party/luajit-2.0-BAK/doc/bluequad.css deleted file mode 100644 index ae531430d19..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/bluequad.css +++ /dev/null @@ -1,325 +0,0 @@ -/* Copyright (C) 2004-2015 Mike Pall. - * - * You are welcome to use the general ideas of this design for your own sites. - * But please do not steal the stylesheet, the layout or the color scheme. - */ -/* colorscheme: - * - * site | head #4162bf/white | #6078bf/#e6ecff - * ------+------ ----------------+------------------- - * nav | main #bfcfff | #e6ecff/black - * - * nav: hiback loback #c5d5ff #b9c9f9 - * hiborder loborder #e6ecff #97a7d7 - * link hover #2142bf #ff0000 - * - * link: link visited hover #2142bf #8122bf #ff0000 - * - * main: boxback boxborder #f0f4ff #bfcfff - */ -body { - font-family: Verdana, Arial, Helvetica, sans-serif; - font-size: 10pt; - margin: 0; - padding: 0; - border: none; - background: #e0e0e0; - color: #000000; -} -a:link { - text-decoration: none; - background: transparent; - color: #2142bf; -} -a:visited { - text-decoration: none; - background: transparent; - color: #8122bf; -} -a:hover, a:active { - text-decoration: underline; - background: transparent; - color: #ff0000; -} -h1, h2, h3 { - font-weight: bold; - text-align: left; - margin: 0.5em 0; - padding: 0; - background: transparent; -} -h1 { - font-size: 200%; - line-height: 3em; /* really 6em relative to body, match #site span */ - margin: 0; -} -h2 { - font-size: 150%; - color: #606060; -} -h3 { - font-size: 125%; - color: #404040; -} -p { - max-width: 600px; - margin: 0 0 0.5em 0; - padding: 0; -} -b { - color: #404040; -} -ul, ol { - max-width: 600px; - margin: 0.5em 0; - padding: 0 0 0 2em; -} -ul { - list-style: outside square; -} -ol { - list-style: outside decimal; -} -li { - margin: 0; - padding: 0; -} -dl { - max-width: 600px; - margin: 1em 0; - padding: 1em; - border: 1px solid #bfcfff; - background: #f0f4ff; -} -dt { - font-weight: bold; - margin: 0; - padding: 0; -} -dt sup { - float: right; - margin-left: 1em; - color: #808080; -} -dt a:visited { - text-decoration: none; - color: #2142bf; -} -dt a:hover, dt a:active { - text-decoration: none; - color: #ff0000; -} -dd { - margin: 0.5em 0 0 2em; - padding: 0; -} -div.tablewrap { /* for IE *sigh* */ - max-width: 600px; -} -table { - table-layout: fixed; - border-spacing: 0; - border-collapse: collapse; - max-width: 600px; - width: 100%; - margin: 1em 0; - padding: 0; - border: 1px solid #bfcfff; -} -tr { - margin: 0; - padding: 0; - border: none; -} -tr.odd { - background: #f0f4ff; -} -tr.separate td { - border-top: 1px solid #bfcfff; -} -td { - text-align: left; - margin: 0; - padding: 0.2em 0.5em; - border: none; -} -tt, code, kbd, samp { - font-family: Courier New, Courier, monospace; - line-height: 1.2; - font-size: 110%; -} -kbd { - font-weight: bolder; -} -blockquote, pre { - max-width: 600px; - margin: 1em 2em; - padding: 0; -} -pre { - line-height: 1.1; -} -pre.code { - line-height: 1.4; - margin: 0.5em 0 1em 0.5em; - padding: 0.5em 1em; - border: 1px solid #bfcfff; - background: #f0f4ff; -} -pre.mark { - padding-left: 2em; -} -span.codemark { - position:absolute; - left: 16em; - color: #4040c0; -} -span.mark { - color: #4040c0; - font-family: Courier New, Courier, monospace; - line-height: 1.1; -} -img { - border: none; - vertical-align: baseline; - margin: 0; - padding: 0; -} -img.left { - float: left; - margin: 0.5em 1em 0.5em 0; -} -img.right { - float: right; - margin: 0.5em 0 0.5em 1em; -} -.indent { - padding-left: 1em; -} -.flush { - clear: both; - visibility: hidden; -} -.hide, .noscreen { - display: none !important; -} -.ext { - color: #ff8000; -} -.new { - font-size: 6pt; - vertical-align: middle; - background: #ff8000; - color: #ffffff; -} -#site { - clear: both; - float: left; - width: 13em; - text-align: center; - font-weight: bold; - margin: 0; - padding: 0; - background: transparent; - color: #ffffff; -} -#site a { - font-size: 200%; -} -#site a:link, #site a:visited { - text-decoration: none; - font-weight: bold; - background: transparent; - color: #ffffff; -} -#site span { - line-height: 3em; /* really 6em relative to body, match h1 */ -} -#logo { - color: #ffb380; -} -#head { - margin: 0; - padding: 0 0 0 2em; - border-left: solid 13em #4162bf; - border-right: solid 3em #6078bf; - background: #6078bf; - color: #e6ecff; -} -#nav { - clear: both; - float: left; - overflow: hidden; - text-align: left; - line-height: 1.5; - width: 13em; - padding-top: 1em; - background: transparent; -} -#nav ul { - list-style: none outside; - margin: 0; - padding: 0; -} -#nav li { - margin: 0; - padding: 0; -} -#nav a { - display: block; - text-decoration: none; - font-weight: bold; - margin: 0; - padding: 2px 1em; - border-top: 1px solid transparent; - border-bottom: 1px solid transparent; - background: transparent; - color: #2142bf; -} -#nav a:hover, #nav a:active { - text-decoration: none; - border-top: 1px solid #97a7d7; - border-bottom: 1px solid #e6ecff; - background: #b9c9f9; - color: #ff0000; -} -#nav a.current, #nav a.current:hover, #nav a.current:active { - border-top: 1px solid #e6ecff; - border-bottom: 1px solid #97a7d7; - background: #c5d5ff; - color: #2142bf; -} -#nav ul ul a { - padding: 0 1em 0 1.7em; -} -#nav ul ul ul a { - padding: 0 0.5em 0 2.4em; -} -#main { - line-height: 1.5; - text-align: left; - margin: 0; - padding: 1em 2em; - border-left: solid 13em #bfcfff; - border-right: solid 3em #e6ecff; - background: #e6ecff; -} -#foot { - clear: both; - font-size: 80%; - text-align: center; - margin: 0; - padding: 0.5em; - background: #6078bf; - color: #ffffff; -} -#foot a:link, #foot a:visited { - text-decoration: underline; - background: transparent; - color: #ffffff; -} -#foot a:hover, #foot a:active { - text-decoration: underline; - background: transparent; - color: #bfcfff; -} diff --git a/src/3rd party/luajit-2.0-BAK/doc/changes.html b/src/3rd party/luajit-2.0-BAK/doc/changes.html deleted file mode 100644 index 0d3e5ae0eab..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/changes.html +++ /dev/null @@ -1,930 +0,0 @@ - - - -LuaJIT Change History - - - - - - - - - -

    • Lua 5.1
    API+ABI    		+ JIT+ BitOp+ FFIDrop-in
    DLL/.so
    - - - - - - - - - - - - - - - - - - - - - - - - -
    ParameterDescription
    32bit32 bit architecture
    64bit64 bit architecture
    leLittle-endian architecture
    beBig-endian architecture
    fpuTarget has a hardware FPU
    softfpsoftfp calling conventions
    hardfphardfp calling conventions
    eabiEABI variant of the standard ABI
    winWindows variant of the standard ABI
    gc6464 bit GC references
    - -

    ffi.os

    -

    -Contains the target OS name. Same contents as -jit.os. -

    - -

    ffi.arch

    -

    -Contains the target architecture name. Same contents as -jit.arch. -

    - -

    Methods for Callbacks

    -

    -The C types for callbacks -have some extra methods: -

    - -

    cb:free()

    -

    -Free the resources associated with a callback. The associated Lua -function is unanchored and may be garbage collected. The callback -function pointer is no longer valid and must not be called anymore -(it may be reused by a subsequently created callback). -

    - -

    cb:set(func)

    -

    -Associate a new Lua function with a callback. The C type of the -callback and the callback function pointer are unchanged. -

    -

    -This method is useful to dynamically switch the receiver of callbacks -without creating a new callback each time and registering it again (e.g. -with a GUI library). -

    - -

    Extended Standard Library Functions

    -

    -The following standard library functions have been extended to work -with cdata objects: -

    - -

    n = tonumber(cdata)

    -

    -Converts a number cdata object to a double and returns it as -a Lua number. This is particularly useful for boxed 64 bit -integer values. Caveat: this conversion may incur a precision loss. -

    - -

    s = tostring(cdata)

    -

    -Returns a string representation of the value of 64 bit integers -("nnnLL" or "nnnULL") or -complex numbers ("re±imi"). Otherwise -returns a string representation of the C type of a ctype object -("ctype<type>") or a cdata object -("cdata<type>: address"), unless you -override it with a __tostring metamethod (see -ffi.metatype()). -

    - -

    iter, obj, start = pairs(cdata)
    -iter, obj, start = ipairs(cdata)

    -

    -Calls the __pairs or __ipairs metamethod of the -corresponding ctype. -

    - -

    Extensions to the Lua Parser

    -

    -The parser for Lua source code treats numeric literals with the -suffixes LL or ULL as signed or unsigned 64 bit -integers. Case doesn't matter, but uppercase is recommended for -readability. It handles both decimal (42LL) and hexadecimal -(0x2aLL) literals. -

    -

    -The imaginary part of complex numbers can be specified by suffixing -number literals with i or I, e.g. 12.5i. -Caveat: you'll need to use 1i to get an imaginary part with -the value one, since i itself still refers to a variable -named i. -

    -
    - - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html deleted file mode 100644 index 889d44d8235..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_semantics.html +++ /dev/null @@ -1,1261 +0,0 @@ - - - -FFI Semantics - - - - - - - - - -
    -Lua -
    - - -
    -

    -This page describes the detailed semantics underlying the FFI library -and its interaction with both Lua and C code. -

    -

    -Given that the FFI library is designed to interface with C code -and that declarations can be written in plain C syntax, it -closely follows the C language semantics, wherever possible. -Some minor concessions are needed for smoother interoperation with Lua -language semantics. -

    -

    -Please don't be overwhelmed by the contents of this page — this -is a reference and you may need to consult it, if in doubt. It doesn't -hurt to skim this page, but most of the semantics "just work" as you'd -expect them to work. It should be straightforward to write -applications using the LuaJIT FFI for developers with a C or C++ -background. -

    - -

    C Language Support

    -

    -The FFI library has a built-in C parser with a minimal memory -footprint. It's used by the ffi.* library -functions to declare C types or external symbols. -

    -

    -It's only purpose is to parse C declarations, as found e.g. in -C header files. Although it does evaluate constant expressions, -it's not a C compiler. The body of inline -C function definitions is simply ignored. -

    -

    -Also, this is not a validating C parser. It expects and -accepts correctly formed C declarations, but it may choose to -ignore bad declarations or show rather generic error messages. If in -doubt, please check the input against your favorite C compiler. -

    -

    -The C parser complies to the C99 language standard plus -the following extensions: -

    -
      - -
    • The '\e' escape in character and string literals.
      • - -
    • The C99/C++ boolean type, declared with the keywords bool -or _Bool.
      • - -
    • Complex numbers, declared with the keywords complex or -_Complex.
      • - -
    • Two complex number types: complex (aka -complex double) and complex float.
      • - -
    • Vector types, declared with the GCC mode or -vector_size attribute.
      • - -
    • Unnamed ('transparent') struct/union fields -inside a struct/union.
      • - -
    • Incomplete enum declarations, handled like incomplete -struct declarations.
      • - -
    • Unnamed enum fields inside a -struct/union. This is similar to a scoped C++ -enum, except that declared constants are visible in the -global namespace, too.
      • - -
    • Scoped static const declarations inside a -struct/union (from C++).
      • - -
    • Zero-length arrays ([0]), empty -struct/union, variable-length arrays (VLA, -[?]) and variable-length structs (VLS, with a trailing -VLA).
      • - -
    • C++ reference types (int &x).
      • - -
    • Alternate GCC keywords with '__', e.g. -__const__.
      • - -
    • GCC __attribute__ with the following attributes: -aligned, packed, mode, -vector_size, cdecl, fastcall, -stdcall, thiscall.
      • - -
    • The GCC __extension__ keyword and the GCC -__alignof__ operator.
      • - -
    • GCC __asm__("symname") symbol name redirection for -function declarations.
      • - -
    • MSVC keywords for fixed-length types: __int8, -__int16, __int32 and __int64.
      • - -
    • MSVC __cdecl, __fastcall, __stdcall, -__thiscall, __ptr32, __ptr64, -__declspec(align(n)) and #pragma pack.
      • - -
    • All other GCC/MSVC-specific attributes are ignored.
      • - -
    -

    -The following C types are pre-defined by the C parser (like -a typedef, except re-declarations will be ignored): -

    -
      - -
    • Vararg handling: va_list, __builtin_va_list, -__gnuc_va_list.
      • - -
    • From <stddef.h>: ptrdiff_t, -size_t, wchar_t.
      • - -
    • From <stdint.h>: int8_t, int16_t, -int32_t, int64_t, uint8_t, -uint16_t, uint32_t, uint64_t, -intptr_t, uintptr_t.
      • - -
    -

    -You're encouraged to use these types in preference to -compiler-specific extensions or target-dependent standard types. -E.g. char differs in signedness and long differs in -size, depending on the target architecture and platform ABI. -

    -

    -The following C features are not supported: -

    -
      - -
    • A declaration must always have a type specifier; it doesn't -default to an int type.
      • - -
    • Old-style empty function declarations (K&R) are not allowed. -All C functions must have a proper prototype declaration. A -function declared without parameters (int foo();) is -treated as a function taking zero arguments, like in C++.
      • - -
    • The long double C type is parsed correctly, but -there's no support for the related conversions, accesses or arithmetic -operations.
      • - -
    • Wide character strings and character literals are not -supported.
      • - -
    • See below for features that are currently -not implemented.
      • - -
    - -

    C Type Conversion Rules

    - -

    Conversions from C types to Lua objects

    -

    -These conversion rules apply for read accesses to -C types: indexing pointers, arrays or -struct/union types; reading external variables or -constant values; retrieving return values from C calls: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    InputConversionOutput
    int8_t, int16_t→sign-ext int32_t → doublenumber
    uint8_t, uint16_t→zero-ext int32_t → doublenumber
    int32_t, uint32_t→ doublenumber
    int64_t, uint64_tboxed value64 bit int cdata
    double, float→ doublenumber
    bool0 → false, otherwise trueboolean
    enumboxed valueenum cdata
    Complex numberboxed valuecomplex cdata
    Vectorboxed valuevector cdata
    Pointerboxed valuepointer cdata
    Arrayboxed referencereference cdata
    struct/unionboxed referencereference cdata
    -

    -Bitfields are treated like their underlying type. -

    -

    -Reference types are dereferenced before a conversion can take -place — the conversion is applied to the C type pointed to -by the reference. -

    - -

    Conversions from Lua objects to C types

    -

    -These conversion rules apply for write accesses to -C types: indexing pointers, arrays or -struct/union types; initializing cdata objects; -casts to C types; writing to external variables; passing -arguments to C calls: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    InputConversionOutput
    number→double
    booleanfalse → 0, true → 1bool
    nilNULL →(void *)
    lightuserdatalightuserdata address →(void *)
    userdatauserdata payload →(void *)
    io.* fileget FILE * handle →(void *)
    stringmatch against enum constantenum
    stringcopy string data + zero-byteint8_t[], uint8_t[]
    stringstring data →const char[]
    functioncreate callback →C function type
    tabletable initializerArray
    tabletable initializerstruct/union
    cdatacdata payload →C type
    -

    -If the result type of this conversion doesn't match the -C type of the destination, the -conversion rules between C types -are applied. -

    -

    -Reference types are immutable after initialization ("no re-seating of -references"). For initialization purposes or when passing values to -reference parameters, they are treated like pointers. Note that unlike -in C++, there's no way to implement automatic reference generation of -variables under the Lua language semantics. If you want to call a -function with a reference parameter, you need to explicitly pass a -one-element array. -

    - -

    Conversions between C types

    -

    -These conversion rules are more or less the same as the standard -C conversion rules. Some rules only apply to casts, or require -pointer or type compatibility: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    InputConversionOutput
    Signed integer→narrow or sign-extendInteger
    Unsigned integer→narrow or zero-extendInteger
    Integer→rounddouble, float
    double, float→trunc int32_t →narrow(u)int8_t, (u)int16_t
    double, float→trunc(u)int32_t, (u)int64_t
    double, float→roundfloat, double
    Numbern == 0 → 0, otherwise 1bool
    boolfalse → 0, true → 1Number
    Complex numberconvert real partNumber
    Numberconvert real part, imag = 0Complex number
    Complex numberconvert real and imag partComplex number
    Numberconvert scalar and replicateVector
    Vectorcopy (same size)Vector
    struct/uniontake base address (compat)Pointer
    Arraytake base address (compat)Pointer
    Functiontake function addressFunction pointer
    Numberconvert via uintptr_t (cast)Pointer
    Pointerconvert address (compat/cast)Pointer
    Pointerconvert address (cast)Integer
    Arrayconvert base address (cast)Integer
    Arraycopy (compat)Array
    struct/unioncopy (identical type)struct/union
    -

    -Bitfields or enum types are treated like their underlying -type. -

    -

    -Conversions not listed above will raise an error. E.g. it's not -possible to convert a pointer to a complex number or vice versa. -

    - -

    Conversions for vararg C function arguments

    -

    -The following default conversion rules apply when passing Lua objects -to the variable argument part of vararg C functions: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    InputConversionOutput
    number→double
    booleanfalse → 0, true → 1bool
    nilNULL →(void *)
    userdatauserdata payload →(void *)
    lightuserdatalightuserdata address →(void *)
    stringstring data →const char *
    float cdata→double
    Array cdatatake base addressElement pointer
    struct/union cdatatake base addressstruct/union pointer
    Function cdatatake function addressFunction pointer
    Any other cdatano conversionC type
    -

    -To pass a Lua object, other than a cdata object, as a specific type, -you need to override the conversion rules: create a temporary cdata -object with a constructor or a cast and initialize it with the value -to pass: -

    -

    -Assuming x is a Lua number, here's how to pass it as an -integer to a vararg function: -

    -
    -ffi.cdef[[
-int printf(const char *fmt, ...);
-]]
-ffi.C.printf("integer value: %d\n", ffi.new("int", x))
-
    -

    -If you don't do this, the default Lua number → double -conversion rule applies. A vararg C function expecting an integer -will see a garbled or uninitialized value. -

    - -

    Initializers

    -

    -Creating a cdata object with -ffi.new() or the -equivalent constructor syntax always initializes its contents, too. -Different rules apply, depending on the number of optional -initializers and the C types involved: -

    -
      -
    • If no initializers are given, the object is filled with zero bytes.
      • - -
    • Scalar types (numbers and pointers) accept a single initializer. -The Lua object is converted to the scalar -C type.
      • - -
    • Valarrays (complex numbers and vectors) are treated like scalars -when a single initializer is given. Otherwise they are treated like -regular arrays.
      • - -
    • Aggregate types (arrays and structs) accept either a single cdata -initializer of the same type (copy constructor), a single -table initializer, or a flat list of -initializers.
      • - -
    • The elements of an array are initialized, starting at index zero. -If a single initializer is given for an array, it's repeated for all -remaining elements. This doesn't happen if two or more initializers -are given: all remaining uninitialized elements are filled with zero -bytes.
      • - -
    • Byte arrays may also be initialized with a Lua string. This copies -the whole string plus a terminating zero-byte. The copy stops early only -if the array has a known, fixed size.
      • - -
    • The fields of a struct are initialized in the order of -their declaration. Uninitialized fields are filled with zero -bytes.
      • - -
    • Only the first field of a union can be initialized with a -flat initializer.
      • - -
    • Elements or fields which are aggregates themselves are initialized -with a single initializer, but this may be a table -initializer or a compatible aggregate.
      • - -
    • Excess initializers cause an error.
      • - -
    - -

    Table Initializers

    -

    -The following rules apply if a Lua table is used to initialize an -Array or a struct/union: -

    -
      - -
    • If the table index [0] is non-nil, then the -table is assumed to be zero-based. Otherwise it's assumed to be -one-based.
      • - -
    • Array elements, starting at index zero, are initialized one-by-one -with the consecutive table elements, starting at either index -[0] or [1]. This process stops at the first -nil table element.
      • - -
    • If exactly one array element was initialized, it's repeated for -all the remaining elements. Otherwise all remaining uninitialized -elements are filled with zero bytes.
      • - -
    • The above logic only applies to arrays with a known fixed size. -A VLA is only initialized with the element(s) given in the table. -Depending on the use case, you may need to explicitly add a -NULL or 0 terminator to a VLA.
      • - -
    • A struct/union can be initialized in the -order of the declaration of its fields. Each field is initialized with -consecutive table elements, starting at either index [0] -or [1]. This process stops at the first nil table -element.
      • - -
    • Otherwise, if neither index [0] nor [1] is present, -a struct/union is initialized by looking up each field -name (as a string key) in the table. Each non-nil value is -used to initialize the corresponding field.
      • - -
    • Uninitialized fields of a struct are filled with zero -bytes, except for the trailing VLA of a VLS.
      • - -
    • Initialization of a union stops after one field has been -initialized. If no field has been initialized, the union is -filled with zero bytes.
      • - -
    • Elements or fields which are aggregates themselves are initialized -with a single initializer, but this may be a nested table -initializer (or a compatible aggregate).
      • - -
    • Excess initializers for an array cause an error. Excess -initializers for a struct/union are ignored. -Unrelated table entries are ignored, too.
      • - -
    -

    -Example: -

    -
    -local ffi = require("ffi")
-
-ffi.cdef[[
-struct foo { int a, b; };
-union bar { int i; double d; };
-struct nested { int x; struct foo y; };
-]]
-
-ffi.new("int[3]", {})            --> 0, 0, 0
-ffi.new("int[3]", {1})           --> 1, 1, 1
-ffi.new("int[3]", {1,2})         --> 1, 2, 0
-ffi.new("int[3]", {1,2,3})       --> 1, 2, 3
-ffi.new("int[3]", {[0]=1})       --> 1, 1, 1
-ffi.new("int[3]", {[0]=1,2})     --> 1, 2, 0
-ffi.new("int[3]", {[0]=1,2,3})   --> 1, 2, 3
-ffi.new("int[3]", {[0]=1,2,3,4}) --> error: too many initializers
-
-ffi.new("struct foo", {})            --> a = 0, b = 0
-ffi.new("struct foo", {1})           --> a = 1, b = 0
-ffi.new("struct foo", {1,2})         --> a = 1, b = 2
-ffi.new("struct foo", {[0]=1,2})     --> a = 1, b = 2
-ffi.new("struct foo", {b=2})         --> a = 0, b = 2
-ffi.new("struct foo", {a=1,b=2,c=3}) --> a = 1, b = 2  'c' is ignored
-
-ffi.new("union bar", {})        --> i = 0, d = 0.0
-ffi.new("union bar", {1})       --> i = 1, d = ?
-ffi.new("union bar", {[0]=1,2}) --> i = 1, d = ?    '2' is ignored
-ffi.new("union bar", {d=2})     --> i = ?, d = 2.0
-
-ffi.new("struct nested", {1,{2,3}})     --> x = 1, y.a = 2, y.b = 3
-ffi.new("struct nested", {x=1,y={2,3}}) --> x = 1, y.a = 2, y.b = 3
-
    - -

    Operations on cdata Objects

    -

    -All of the standard Lua operators can be applied to cdata objects or a -mix of a cdata object and another Lua object. The following list shows -the pre-defined operations. -

    -

    -Reference types are dereferenced before performing each of -the operations below — the operation is applied to the -C type pointed to by the reference. -

    -

    -The pre-defined operations are always tried first before deferring to a -metamethod or index table (if any) for the corresponding ctype (except -for __new). An error is raised if the metamethod lookup or -index table lookup fails. -

    - -

    Indexing a cdata object

    -
      - -
    • Indexing a pointer/array: a cdata pointer/array can be -indexed by a cdata number or a Lua number. The element address is -computed as the base address plus the number value multiplied by the -element size in bytes. A read access loads the element value and -converts it to a Lua object. A write -access converts a Lua object to the element -type and stores the converted value to the element. An error is -raised if the element size is undefined or a write access to a -constant element is attempted.
      • - -
    • Dereferencing a struct/union field: a -cdata struct/union or a pointer to a -struct/union can be dereferenced by a string key, -giving the field name. The field address is computed as the base -address plus the relative offset of the field. A read access loads the -field value and converts it to a Lua -object. A write access converts a Lua -object to the field type and stores the converted value to the -field. An error is raised if a write access to a constant -struct/union or a constant field is attempted. -Scoped enum constants or static constants are treated like a constant -field.
      • - -
    • Indexing a complex number: a complex number can be indexed -either by a cdata number or a Lua number with the values 0 or 1, or by -the strings "re" or "im". A read access loads the -real part ([0], .re) or the imaginary part -([1], .im) part of a complex number and -converts it to a Lua number. The -sub-parts of a complex number are immutable — assigning to an -index of a complex number raises an error. Accessing out-of-bound -indexes returns unspecified results, but is guaranteed not to trigger -memory access violations.
      • - -
    • Indexing a vector: a vector is treated like an array for -indexing purposes, except the vector elements are immutable — -assigning to an index of a vector raises an error.
      • - -
    -

    -A ctype object can be indexed with a string key, too. The only -pre-defined operation is reading scoped constants of -struct/union types. All other accesses defer -to the corresponding metamethods or index tables (if any). -

    -

    -Note: since there's (deliberately) no address-of operator, a cdata -object holding a value type is effectively immutable after -initialization. The JIT compiler benefits from this fact when applying -certain optimizations. -

    -

    -As a consequence, the elements of complex numbers and -vectors are immutable. But the elements of an aggregate holding these -types may be modified of course. I.e. you cannot assign to -foo.c.im, but you can assign a (newly created) complex number -to foo.c. -

    -

    -The JIT compiler implements strict aliasing rules: accesses to different -types do not alias, except for differences in signedness (this -applies even to char pointers, unlike C99). Type punning -through unions is explicitly detected and allowed. -

    - -

    Calling a cdata object

    -
      - -
    • Constructor: a ctype object can be called and used as a -constructor. This is equivalent -to ffi.new(ct, ...), unless a __new metamethod is -defined. The __new metamethod is called with the ctype object -plus any other arguments passed to the contructor. Note that you have to -use ffi.new inside of it, since calling ct(...) would -cause infinite recursion.
      • - -
    • C function call: a cdata function or cdata function -pointer can be called. The passed arguments are -converted to the C types of the -parameters given by the function declaration. Arguments passed to the -variable argument part of vararg C function use -special conversion rules. This -C function is called and the return value (if any) is -converted to a Lua object.
      -On Windows/x86 systems, __stdcall functions are automatically -detected and a function declared as __cdecl (the default) is -silently fixed up after the first call.
      • - -
    - -

    Arithmetic on cdata objects

    -
      - -
    • Pointer arithmetic: a cdata pointer/array and a cdata -number or a Lua number can be added or subtracted. The number must be -on the right hand side for a subtraction. The result is a pointer of -the same type with an address plus or minus the number value -multiplied by the element size in bytes. An error is raised if the -element size is undefined.
      • - -
    • Pointer difference: two compatible cdata pointers/arrays -can be subtracted. The result is the difference between their -addresses, divided by the element size in bytes. An error is raised if -the element size is undefined or zero.
      • - -
    • 64 bit integer arithmetic: the standard arithmetic -operators (+ - * / % ^ and unary -minus) can be applied to two cdata numbers, or a cdata number and a -Lua number. If one of them is an uint64_t, the other side is -converted to an uint64_t and an unsigned arithmetic operation -is performed. Otherwise both sides are converted to an -int64_t and a signed arithmetic operation is performed. The -result is a boxed 64 bit cdata object.
      - -If one of the operands is an enum and the other operand is a -string, the string is converted to the value of a matching enum -constant before the above conversion.
      - -These rules ensure that 64 bit integers are "sticky". Any -expression involving at least one 64 bit integer operand results -in another one. The undefined cases for the division, modulo and power -operators return 2LL ^ 63 or -2ULL ^ 63.
      - -You'll have to explicitly convert a 64 bit integer to a Lua -number (e.g. for regular floating-point calculations) with -tonumber(). But note this may incur a precision loss.
      • - -
    • 64 bit bitwise operations: the rules for 64 bit -arithmetic operators apply analogously.
      - -Unlike the other bit.* operations, bit.tobit() -converts a cdata number via int64_t to int32_t and -returns a Lua number.
      - -For bit.band(), bit.bor() and bit.bxor(), the -conversion to int64_t or uint64_t applies to -all arguments, if any argument is a cdata number.
      - -For all other operations, only the first argument is used to determine -the output type. This implies that a cdata number as a shift count for -shifts and rotates is accepted, but that alone does not cause -a cdata number output. - -
    - -

    Comparisons of cdata objects

    -
      - -
    • Pointer comparison: two compatible cdata pointers/arrays -can be compared. The result is the same as an unsigned comparison of -their addresses. nil is treated like a NULL pointer, -which is compatible with any other pointer type.
      • - -
    • 64 bit integer comparison: two cdata numbers, or a -cdata number and a Lua number can be compared with each other. If one -of them is an uint64_t, the other side is converted to an -uint64_t and an unsigned comparison is performed. Otherwise -both sides are converted to an int64_t and a signed -comparison is performed.
      - -If one of the operands is an enum and the other operand is a -string, the string is converted to the value of a matching enum -constant before the above conversion.
      - -
    • Comparisons for equality/inequality never raise an error. -Even incompatible pointers can be compared for equality by address. Any -other incompatible comparison (also with non-cdata objects) treats the -two sides as unequal.
      • - -
    - -

    cdata objects as table keys

    -

    -Lua tables may be indexed by cdata objects, but this doesn't provide -any useful semantics — cdata objects are unsuitable as table -keys! -

    -

    -A cdata object is treated like any other garbage-collected object and -is hashed and compared by its address for table indexing. Since -there's no interning for cdata value types, the same value may be -boxed in different cdata objects with different addresses. Thus -t[1LL+1LL] and t[2LL] usually do not point to -the same hash slot and they certainly do not point to the same -hash slot as t[2]. -

    -

    -It would seriously drive up implementation complexity and slow down -the common case, if one were to add extra handling for by-value -hashing and comparisons to Lua tables. Given the ubiquity of their use -inside the VM, this is not acceptable. -

    -

    -There are three viable alternatives, if you really need to use cdata -objects as keys: -

    -
      - -
    • If you can get by with the precision of Lua numbers -(52 bits), then use tonumber() on a cdata number or -combine multiple fields of a cdata aggregate to a Lua number. Then use -the resulting Lua number as a key when indexing tables.
      -One obvious benefit: t[tonumber(2LL)] does point to -the same slot as t[2].
      • - -
    • Otherwise use either tostring() on 64 bit integers -or complex numbers or combine multiple fields of a cdata aggregate to -a Lua string (e.g. with -ffi.string()). Then -use the resulting Lua string as a key when indexing tables.
      • - -
    • Create your own specialized hash table implementation using the -C types provided by the FFI library, just like you would in -C code. Ultimately this may give much better performance than the -other alternatives or what a generic by-value hash table could -possibly provide.
      • - -
    - -

    Parameterized Types

    -

    -To facilitate some abstractions, the two functions -ffi.typeof and -ffi.cdef support -parameterized types in C declarations. Note: none of the other API -functions taking a cdecl allow this. -

    -

    -Any place you can write a typedef name, an -identifier or a number in a declaration, you can write -$ (the dollar sign) instead. These placeholders are replaced in -order of appearance with the arguments following the cdecl string: -

    -
    --- Declare a struct with a parameterized field type and name:
-ffi.cdef([[
-typedef struct { $ $; } foo_t;
-]], type1, name1)
-
--- Anonymous struct with dynamic names:
-local bar_t = ffi.typeof("struct { int $, $; }", name1, name2)
--- Derived pointer type:
-local bar_ptr_t = ffi.typeof("$ *", bar_t)
-
--- Parameterized dimensions work even where a VLA won't work:
-local matrix_t = ffi.typeof("uint8_t[$][$]", width, height)
-
    -

    -Caveat: this is not simple text substitution! A passed ctype or -cdata object is treated like the underlying type, a passed string is -considered an identifier and a number is considered a number. You must -not mix this up: e.g. passing "int" as a string doesn't work in -place of a type, you'd need to use ffi.typeof("int") instead. -

    -

    -The main use for parameterized types are libraries implementing abstract -data types -(» example), -similar to what can be achieved with C++ template metaprogramming. -Another use case are derived types of anonymous structs, which avoids -pollution of the global struct namespace. -

    -

    -Please note that parameterized types are a nice tool and indispensable -for certain use cases. But you'll want to use them sparingly in regular -code, e.g. when all types are actually fixed. -

    - -

    Garbage Collection of cdata Objects

    -

    -All explicitly (ffi.new(), ffi.cast() etc.) or -implicitly (accessors) created cdata objects are garbage collected. -You need to ensure to retain valid references to cdata objects -somewhere on a Lua stack, an upvalue or in a Lua table while they are -still in use. Once the last reference to a cdata object is gone, the -garbage collector will automatically free the memory used by it (at -the end of the next GC cycle). -

    -

    -Please note that pointers themselves are cdata objects, however they -are not followed by the garbage collector. So e.g. if you -assign a cdata array to a pointer, you must keep the cdata object -holding the array alive as long as the pointer is still in use: -

    -
    -ffi.cdef[[
-typedef struct { int *a; } foo_t;
-]]
-
-local s = ffi.new("foo_t", ffi.new("int[10]")) -- WRONG!
-
-local a = ffi.new("int[10]") -- OK
-local s = ffi.new("foo_t", a)
--- Now do something with 's', but keep 'a' alive until you're done.
-
    -

    -Similar rules apply for Lua strings which are implicitly converted to -"const char *": the string object itself must be -referenced somewhere or it'll be garbage collected eventually. The -pointer will then point to stale data, which may have already been -overwritten. Note that string literals are automatically kept -alive as long as the function containing it (actually its prototype) -is not garbage collected. -

    -

    -Objects which are passed as an argument to an external C function -are kept alive until the call returns. So it's generally safe to -create temporary cdata objects in argument lists. This is a common -idiom for passing specific C types to -vararg functions. -

    -

    -Memory areas returned by C functions (e.g. from malloc()) -must be manually managed, of course (or use -ffi.gc()). Pointers to -cdata objects are indistinguishable from pointers returned by C -functions (which is one of the reasons why the GC cannot follow them). -

    - -

    Callbacks

    -

    -The LuaJIT FFI automatically generates special callback functions -whenever a Lua function is converted to a C function pointer. This -associates the generated callback function pointer with the C type -of the function pointer and the Lua function object (closure). -

    -

    -This can happen implicitly due to the usual conversions, e.g. when -passing a Lua function to a function pointer argument. Or you can use -ffi.cast() to explicitly cast a Lua function to a -C function pointer. -

    -

    -Currently only certain C function types can be used as callback -functions. Neither C vararg functions nor functions with -pass-by-value aggregate argument or result types are supported. There -are no restrictions for the kind of Lua functions that can be called -from the callback — no checks for the proper number of arguments -are made. The return value of the Lua function will be converted to the -result type and an error will be thrown for invalid conversions. -

    -

    -It's allowed to throw errors across a callback invocation, but it's not -advisable in general. Do this only if you know the C function, that -called the callback, copes with the forced stack unwinding and doesn't -leak resources. -

    -

    -One thing that's not allowed, is to let an FFI call into a C function -get JIT-compiled, which in turn calls a callback, calling into Lua again. -Usually this attempt is caught by the interpreter first and the -C function is blacklisted for compilation. -

    -

    -However, this heuristic may fail under specific circumstances: e.g. a -message polling function might not run Lua callbacks right away and the call -gets JIT-compiled. If it later happens to call back into Lua (e.g. a rarely -invoked error callback), you'll get a VM PANIC with the message -"bad callback". Then you'll need to manually turn off -JIT-compilation with -jit.off() for the -surrounding Lua function that invokes such a message polling function (or -similar). -

    - -

    Callback resource handling

    -

    -Callbacks take up resources — you can only have a limited number -of them at the same time (500 - 1000, depending on the -architecture). The associated Lua functions are anchored to prevent -garbage collection, too. -

    -

    -Callbacks due to implicit conversions are permanent! There is no -way to guess their lifetime, since the C side might store the -function pointer for later use (typical for GUI toolkits). The associated -resources cannot be reclaimed until termination: -

    -
    -ffi.cdef[[
-typedef int (__stdcall *WNDENUMPROC)(void *hwnd, intptr_t l);
-int EnumWindows(WNDENUMPROC func, intptr_t l);
-]]
-
--- Implicit conversion to a callback via function pointer argument.
-local count = 0
-ffi.C.EnumWindows(function(hwnd, l)
-  count = count + 1
-  return true
-end, 0)
--- The callback is permanent and its resources cannot be reclaimed!
--- Ok, so this may not be a problem, if you do this only once.
-
    -

    -Note: this example shows that you must properly declare -__stdcall callbacks on Windows/x86 systems. The calling -convention cannot be automatically detected, unlike for -__stdcall calls to Windows functions. -

    -

    -For some use cases it's necessary to free up the resources or to -dynamically redirect callbacks. Use an explicit cast to a -C function pointer and keep the resulting cdata object. Then use -the cb:free() -or cb:set() methods -on the cdata object: -

    -
    --- Explicitly convert to a callback via cast.
-local count = 0
-local cb = ffi.cast("WNDENUMPROC", function(hwnd, l)
-  count = count + 1
-  return true
-end)
-
--- Pass it to a C function.
-ffi.C.EnumWindows(cb, 0)
--- EnumWindows doesn't need the callback after it returns, so free it.
-
-cb:free()
--- The callback function pointer is no longer valid and its resources
--- will be reclaimed. The created Lua closure will be garbage collected.
-
    - -

    Callback performance

    -

    -Callbacks are slow! First, the C to Lua transition itself -has an unavoidable cost, similar to a lua_call() or -lua_pcall(). Argument and result marshalling add to that cost. -And finally, neither the C compiler nor LuaJIT can inline or -optimize across the language barrier and hoist repeated computations out -of a callback function. -

    -

    -Do not use callbacks for performance-sensitive work: e.g. consider a -numerical integration routine which takes a user-defined function to -integrate over. It's a bad idea to call a user-defined Lua function from -C code millions of times. The callback overhead will be absolutely -detrimental for performance. -

    -

    -It's considerably faster to write the numerical integration routine -itself in Lua — the JIT compiler will be able to inline the -user-defined function and optimize it together with its calling context, -with very competitive performance. -

    -

    -As a general guideline: use callbacks only when you must, because -of existing C APIs. E.g. callback performance is irrelevant for a -GUI application, which waits for user input most of the time, anyway. -

    -

    -For new designs avoid push-style APIs: a C function repeatedly -calling a callback for each result. Instead use pull-style APIs: -call a C function repeatedly to get a new result. Calls from Lua -to C via the FFI are much faster than the other way round. Most well-designed -libraries already use pull-style APIs (read/write, get/put). -

    - -

    C Library Namespaces

    -

    -A C library namespace is a special kind of object which allows -access to the symbols contained in shared libraries or the default -symbol namespace. The default -ffi.C namespace is -automatically created when the FFI library is loaded. C library -namespaces for specific shared libraries may be created with the -ffi.load() API -function. -

    -

    -Indexing a C library namespace object with a symbol name (a Lua -string) automatically binds it to the library. First the symbol type -is resolved — it must have been declared with -ffi.cdef. Then the -symbol address is resolved by searching for the symbol name in the -associated shared libraries or the default symbol namespace. Finally, -the resulting binding between the symbol name, the symbol type and its -address is cached. Missing symbol declarations or nonexistent symbol -names cause an error. -

    -

    -This is what happens on a read access for the different kinds of -symbols: -

    -
      - -
    • External functions: a cdata object with the type of the function -and its address is returned.
      • - -
    • External variables: the symbol address is dereferenced and the -loaded value is converted to a Lua object -and returned.
      • - -
    • Constant values (static const or enum -constants): the constant is converted to a -Lua object and returned.
      • - -
    -

    -This is what happens on a write access: -

    -
      - -
    • External variables: the value to be written is -converted to the C type of the -variable and then stored at the symbol address.
      • - -
    • Writing to constant variables or to any other symbol type causes -an error, like any other attempted write to a constant location.
      • - -
    -

    -C library namespaces themselves are garbage collected objects. If -the last reference to the namespace object is gone, the garbage -collector will eventually release the shared library reference and -remove all memory associated with the namespace. Since this may -trigger the removal of the shared library from the memory of the -running process, it's generally not safe to use function -cdata objects obtained from a library if the namespace object may be -unreferenced. -

    -

    -Performance notice: the JIT compiler specializes to the identity of -namespace objects and to the strings used to index it. This -effectively turns function cdata objects into constants. It's not -useful and actually counter-productive to explicitly cache these -function objects, e.g. local strlen = ffi.C.strlen. OTOH it -is useful to cache the namespace itself, e.g. local C = -ffi.C. -

    - -

    No Hand-holding!

    -

    -The FFI library has been designed as a low-level library. The -goal is to interface with C code and C data types with a -minimum of overhead. This means you can do anything you can do -from C: access all memory, overwrite anything in memory, call -machine code at any memory address and so on. -

    -

    -The FFI library provides no memory safety, unlike regular Lua -code. It will happily allow you to dereference a NULL -pointer, to access arrays out of bounds or to misdeclare -C functions. If you make a mistake, your application might crash, -just like equivalent C code would. -

    -

    -This behavior is inevitable, since the goal is to provide full -interoperability with C code. Adding extra safety measures, like -bounds checks, would be futile. There's no way to detect -misdeclarations of C functions, since shared libraries only -provide symbol names, but no type information. Likewise there's no way -to infer the valid range of indexes for a returned pointer. -

    -

    -Again: the FFI library is a low-level library. This implies it needs -to be used with care, but it's flexibility and performance often -outweigh this concern. If you're a C or C++ developer, it'll be easy -to apply your existing knowledge. OTOH writing code for the FFI -library is not for the faint of heart and probably shouldn't be the -first exercise for someone with little experience in Lua, C or C++. -

    -

    -As a corollary of the above, the FFI library is not safe for use by -untrusted Lua code. If you're sandboxing untrusted Lua code, you -definitely don't want to give this code access to the FFI library or -to any cdata object (except 64 bit integers or complex -numbers). Any properly engineered Lua sandbox needs to provide safety -wrappers for many of the standard Lua library functions — -similar wrappers need to be written for high-level operations on FFI -data types, too. -

    - -

    Current Status

    -

    -The initial release of the FFI library has some limitations and is -missing some features. Most of these will be fixed in future releases. -

    -

    -C language support is -currently incomplete: -

    -
      -
    • C declarations are not passed through a C pre-processor, -yet.
      • -
    • The C parser is able to evaluate most constant expressions -commonly found in C header files. However it doesn't handle the -full range of C expression semantics and may fail for some -obscure constructs.
      • -
    • static const declarations only work for integer types -up to 32 bits. Neither declaring string constants nor -floating-point constants is supported.
      • -
    • Packed struct bitfields that cross container boundaries -are not implemented.
      • -
    • Native vector types may be defined with the GCC mode or -vector_size attribute. But no operations other than loading, -storing and initializing them are supported, yet.
      • -
    • The volatile type qualifier is currently ignored by -compiled code.
      • -
    • ffi.cdef silently -ignores most re-declarations. Note: avoid re-declarations which do not -conform to C99. The implementation will eventually be changed to -perform strict checks.
      • -
    -

    -The JIT compiler already handles a large subset of all FFI operations. -It automatically falls back to the interpreter for unimplemented -operations (you can check for this with the --jv command line option). -The following operations are currently not compiled and may exhibit -suboptimal performance, especially when used in inner loops: -

    -
      -
    • Bitfield accesses and initializations.
      • -
    • Vector operations.
      • -
    • Table initializers.
      • -
    • Initialization of nested struct/union types.
      • -
    • Non-default initialization of VLA/VLS or large C types -(> 128 bytes or > 16 array elements.
      • -
    • Conversions from lightuserdata to void *.
      • -
    • Pointer differences for element sizes that are not a power of -two.
      • -
    • Calls to C functions with aggregates passed or returned by -value.
      • -
    • Calls to ctype metamethods which are not plain functions.
      • -
    • ctype __newindex tables and non-string lookups in ctype -__index tables.
      • -
    • tostring() for cdata types.
      • -
    • Calls to ffi.cdef(), ffi.load() and -ffi.metatype().
      • -
    -

    -Other missing features: -

    -
      -
    • Arithmetic for complex numbers.
      • -
    • Passing structs by value to vararg C functions.
      • -
    • C++ exception interoperability -does not extend to C functions called via the FFI, if the call is -compiled.
      • -
    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html b/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html deleted file mode 100644 index e3f01460a80..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_ffi_tutorial.html +++ /dev/null @@ -1,603 +0,0 @@ - - - -FFI Tutorial - - - - - - - - - -
    -Lua -
    - - -
    -

    -This page is intended to give you an overview of the features of the FFI -library by presenting a few use cases and guidelines. -

    -

    -This page makes no attempt to explain all of the FFI library, though. -You'll want to have a look at the ffi.* API -function reference and the FFI -semantics to learn more. -

    - -

    Loading the FFI Library

    -

    -The FFI library is built into LuaJIT by default, but it's not loaded -and initialized by default. The suggested way to use the FFI library -is to add the following to the start of every Lua file that needs one -of its functions: -

    -
    -local ffi = require("ffi")
-
    -

    -Please note this doesn't define an ffi variable in the table -of globals — you really need to use the local variable. The -require function ensures the library is only loaded once. -

    -

    -Note: If you want to experiment with the FFI from the interactive prompt -of the command line executable, omit the local, as it doesn't -preserve local variables across lines. -

    - -

    Accessing Standard System Functions

    -

    -The following code explains how to access standard system functions. -We slowly print two lines of dots by sleeping for 10 milliseconds -after each dot: -

    -
    - 
-①
-
-
-
-
-
-②
-③
-④
-
-
-
-⑤
-
-
-
-
-
-⑥local ffi = require("ffi")
-ffi.cdef[[
-void Sleep(int ms);
-int poll(struct pollfd *fds, unsigned long nfds, int timeout);
-]]
-
-local sleep
-if ffi.os == "Windows" then
-  function sleep(s)
-    ffi.C.Sleep(s*1000)
-  end
-else
-  function sleep(s)
-    ffi.C.poll(nil, 0, s*1000)
-  end
-end
-
-for i=1,160 do
-  io.write("."); io.flush()
-  sleep(0.01)
-end
-io.write("\n")
-
    -

    -Here's the step-by-step explanation: -

    -

    -① This defines the -C library functions we're going to use. The part inside the -double-brackets (in green) is just standard C syntax. You can -usually get this info from the C header files or the -documentation provided by each C library or C compiler. -

    -

    -② The difficulty we're -facing here, is that there are different standards to choose from. -Windows has a simple Sleep() function. On other systems there -are a variety of functions available to achieve sub-second sleeps, but -with no clear consensus. Thankfully poll() can be used for -this task, too, and it's present on most non-Windows systems. The -check for ffi.os makes sure we use the Windows-specific -function only on Windows systems. -

    -

    -③ Here we're wrapping the -call to the C function in a Lua function. This isn't strictly -necessary, but it's helpful to deal with system-specific issues only -in one part of the code. The way we're wrapping it ensures the check -for the OS is only done during initialization and not for every call. -

    -

    -④ A more subtle point is -that we defined our sleep() function (for the sake of this -example) as taking the number of seconds, but accepting fractional -seconds. Multiplying this by 1000 gets us milliseconds, but that still -leaves it a Lua number, which is a floating-point value. Alas, the -Sleep() function only accepts an integer value. Luckily for -us, the FFI library automatically performs the conversion when calling -the function (truncating the FP value towards zero, like in C). -

    -

    -Some readers will notice that Sleep() is part of -KERNEL32.DLL and is also a stdcall function. So how -can this possibly work? The FFI library provides the ffi.C -default C library namespace, which allows calling functions from -the default set of libraries, like a C compiler would. Also, the -FFI library automatically detects stdcall functions, so you -don't need to declare them as such. -

    -

    -⑤ The poll() -function takes a couple more arguments we're not going to use. You can -simply use nil to pass a NULL pointer and 0 -for the nfds parameter. Please note that the -number 0 does not convert to a pointer value, -unlike in C++. You really have to pass pointers to pointer arguments -and numbers to number arguments. -

    -

    -The page on FFI semantics has all -of the gory details about -conversions between Lua -objects and C types. For the most part you don't have to deal -with this, as it's performed automatically and it's carefully designed -to bridge the semantic differences between Lua and C. -

    -

    -⑥ Now that we have defined -our own sleep() function, we can just call it from plain Lua -code. That wasn't so bad, huh? Turning these boring animated dots into -a fascinating best-selling game is left as an exercise for the reader. -:-) -

    - -

    Accessing the zlib Compression Library

    -

    -The following code shows how to access the zlib compression library from Lua code. -We'll define two convenience wrapper functions that take a string and -compress or uncompress it to another string: -

    -
    - 
-①
-
-
-
-
-
-
-②
-
-
-③
-
-④
-
-
-⑤
-
-
-⑥
-
-
-
-
-
-
-
-⑦local ffi = require("ffi")
-ffi.cdef[[
-unsigned long compressBound(unsigned long sourceLen);
-int compress2(uint8_t *dest, unsigned long *destLen,
-	      const uint8_t *source, unsigned long sourceLen, int level);
-int uncompress(uint8_t *dest, unsigned long *destLen,
-	       const uint8_t *source, unsigned long sourceLen);
-]]
-local zlib = ffi.load(ffi.os == "Windows" and "zlib1" or "z")
-
-local function compress(txt)
-  local n = zlib.compressBound(#txt)
-  local buf = ffi.new("uint8_t[?]", n)
-  local buflen = ffi.new("unsigned long[1]", n)
-  local res = zlib.compress2(buf, buflen, txt, #txt, 9)
-  assert(res == 0)
-  return ffi.string(buf, buflen[0])
-end
-
-local function uncompress(comp, n)
-  local buf = ffi.new("uint8_t[?]", n)
-  local buflen = ffi.new("unsigned long[1]", n)
-  local res = zlib.uncompress(buf, buflen, comp, #comp)
-  assert(res == 0)
-  return ffi.string(buf, buflen[0])
-end
-
--- Simple test code.
-local txt = string.rep("abcd", 1000)
-print("Uncompressed size: ", #txt)
-local c = compress(txt)
-print("Compressed size: ", #c)
-local txt2 = uncompress(c, #txt)
-assert(txt2 == txt)
-
    -

    -Here's the step-by-step explanation: -

    -

    -① This defines some of the -C functions provided by zlib. For the sake of this example, some -type indirections have been reduced and it uses the pre-defined -fixed-size integer types, while still adhering to the zlib API/ABI. -

    -

    -② This loads the zlib shared -library. On POSIX systems it's named libz.so and usually -comes pre-installed. Since ffi.load() automatically adds any -missing standard prefixes/suffixes, we can simply load the -"z" library. On Windows it's named zlib1.dll and -you'll have to download it first from the -» zlib site. The check for -ffi.os makes sure we pass the right name to -ffi.load(). -

    -

    -③ First, the maximum size of -the compression buffer is obtained by calling the -zlib.compressBound function with the length of the -uncompressed string. The next line allocates a byte buffer of this -size. The [?] in the type specification indicates a -variable-length array (VLA). The actual number of elements of this -array is given as the 2nd argument to ffi.new(). -

    -

    -④ This may look strange at -first, but have a look at the declaration of the compress2 -function from zlib: the destination length is defined as a pointer! -This is because you pass in the maximum buffer size and get back the -actual length that was used. -

    -

    -In C you'd pass in the address of a local variable -(&buflen). But since there's no address-of operator in -Lua, we'll just pass in a one-element array. Conveniently it can be -initialized with the maximum buffer size in one step. Calling the -actual zlib.compress2 function is then straightforward. -

    -

    -⑤ We want to return the -compressed data as a Lua string, so we'll use ffi.string(). -It needs a pointer to the start of the data and the actual length. The -length has been returned in the buflen array, so we'll just -get it from there. -

    -

    -Note that since the function returns now, the buf and -buflen variables will eventually be garbage collected. This -is fine, because ffi.string() has copied the contents to a -newly created (interned) Lua string. If you plan to call this function -lots of times, consider reusing the buffers and/or handing back the -results in buffers instead of strings. This will reduce the overhead -for garbage collection and string interning. -

    -

    -⑥ The uncompress -functions does the exact opposite of the compress function. -The compressed data doesn't include the size of the original string, -so this needs to be passed in. Otherwise no surprises here. -

    -

    -⑦ The code, that makes use -of the functions we just defined, is just plain Lua code. It doesn't -need to know anything about the LuaJIT FFI — the convenience -wrapper functions completely hide it. -

    -

    -One major advantage of the LuaJIT FFI is that you are now able to -write those wrappers in Lua. And at a fraction of the time it -would cost you to create an extra C module using the Lua/C API. -Many of the simpler C functions can probably be used directly -from your Lua code, without any wrappers. -

    -

    -Side note: the zlib API uses the long type for passing -lengths and sizes around. But all those zlib functions actually only -deal with 32 bit values. This is an unfortunate choice for a -public API, but may be explained by zlib's history — we'll just -have to deal with it. -

    -

    -First, you should know that a long is a 64 bit type e.g. -on POSIX/x64 systems, but a 32 bit type on Windows/x64 and on -32 bit systems. Thus a long result can be either a plain -Lua number or a boxed 64 bit integer cdata object, depending on -the target system. -

    -

    -Ok, so the ffi.* functions generally accept cdata objects -wherever you'd want to use a number. That's why we get a away with -passing n to ffi.string() above. But other Lua -library functions or modules don't know how to deal with this. So for -maximum portability one needs to use tonumber() on returned -long results before passing them on. Otherwise the -application might work on some systems, but would fail in a POSIX/x64 -environment. -

    - -

    Defining Metamethods for a C Type

    -

    -The following code explains how to define metamethods for a C type. -We define a simple point type and add some operations to it: -

    -
    - 
-①
-
-
-
-②
-
-③
-
-④
-
-
-
-⑤
-
-⑥local ffi = require("ffi")
-ffi.cdef[[
-typedef struct { double x, y; } point_t;
-]]
-
-local point
-local mt = {
-  __add = function(a, b) return point(a.x+b.x, a.y+b.y) end,
-  __len = function(a) return math.sqrt(a.x*a.x + a.y*a.y) end,
-  __index = {
-    area = function(a) return a.x*a.x + a.y*a.y end,
-  },
-}
-point = ffi.metatype("point_t", mt)
-
-local a = point(3, 4)
-print(a.x, a.y)  --> 3  4
-print(#a)        --> 5
-print(a:area())  --> 25
-local b = a + point(0.5, 8)
-print(#b)        --> 12.5
-
    -

    -Here's the step-by-step explanation: -

    -

    -① This defines the C type for a -two-dimensional point object. -

    -

    -② We have to declare the variable -holding the point constructor first, because it's used inside of a -metamethod. -

    -

    -③ Let's define an __add -metamethod which adds the coordinates of two points and creates a new -point object. For simplicity, this function assumes that both arguments -are points. But it could be any mix of objects, if at least one operand -is of the required type (e.g. adding a point plus a number or vice -versa). Our __len metamethod returns the distance of a point to -the origin. -

    -

    -④ If we run out of operators, we can -define named methods, too. Here the __index table defines an -area function. For custom indexing needs, one might want to -define __index and __newindex functions instead. -

    -

    -⑤ This associates the metamethods with -our C type. This only needs to be done once. For convenience, a -constructor is returned by -ffi.metatype(). -We're not required to use it, though. The original C type can still -be used e.g. to create an array of points. The metamethods automatically -apply to any and all uses of this type. -

    -

    -Please note that the association with a metatable is permanent and -the metatable must not be modified afterwards! Ditto for the -__index table. -

    -

    -⑥ Here are some simple usage examples -for the point type and their expected results. The pre-defined -operations (such as a.x) can be freely mixed with the newly -defined metamethods. Note that area is a method and must be -called with the Lua syntax for methods: a:area(), not -a.area(). -

    -

    -The C type metamethod mechanism is most useful when used in -conjunction with C libraries that are written in an object-oriented -style. Creators return a pointer to a new instance and methods take an -instance pointer as the first argument. Sometimes you can just point -__index to the library namespace and __gc to the -destructor and you're done. But often enough you'll want to add -convenience wrappers, e.g. to return actual Lua strings or when -returning multiple values. -

    -

    -Some C libraries only declare instance pointers as an opaque -void * type. In this case you can use a fake type for all -declarations, e.g. a pointer to a named (incomplete) struct will do: -typedef struct foo_type *foo_handle. The C side doesn't -know what you declare with the LuaJIT FFI, but as long as the underlying -types are compatible, everything still works. -

    - -

    Translating C Idioms

    -

    -Here's a list of common C idioms and their translation to the -LuaJIT FFI: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    IdiomC codeLua code
    Pointer dereference
    int *p;    		x = *p;
    *p = y;    		x = p[0]
    p[0] = y
    Pointer indexing
    int i, *p;    		x = p[i];
    p[i+1] = y;    		x = p[i]
    p[i+1] = y
    Array indexing
    int i, a[];    		x = a[i];
    a[i+1] = y;    		x = a[i]
    a[i+1] = y
    struct/union dereference
    struct foo s;    		x = s.field;
    s.field = y;    		x = s.field
    s.field = y
    struct/union pointer deref.
    struct foo *sp;    		x = sp->field;
    sp->field = y;    		x = s.field
    s.field = y
    Pointer arithmetic
    int i, *p;    		x = p + i;
    y = p - i;    		x = p + i
    y = p - i
    Pointer difference
    int *p1, *p2;    		x = p1 - p2;x = p1 - p2
    Array element pointer
    int i, a[];    		x = &a[i];x = a+i
    Cast pointer to address
    int *p;    		x = (intptr_t)p;x = tonumber(
     ffi.cast("intptr_t",
              p))
    Functions with outargs
    void foo(int *inoutlen);    		int len = x;
    foo(&len);
    y = len;    		local len =
      ffi.new("int[1]", x)
    foo(len)
    y = len[0]
    Vararg conversions
    int printf(char *fmt, ...);    		printf("%g", 1.0);
    printf("%d", 1);
         		printf("%g", 1);
    printf("%d",
      ffi.new("int", 1))
    - -

    To Cache or Not to Cache

    -

    -It's a common Lua idiom to cache library functions in local variables -or upvalues, e.g.: -

    -
    -local byte, char = string.byte, string.char
-local function foo(x)
-  return char(byte(x)+1)
-end
-
    -

    -This replaces several hash-table lookups with a (faster) direct use of -a local or an upvalue. This is less important with LuaJIT, since the -JIT compiler optimizes hash-table lookups a lot and is even able to -hoist most of them out of the inner loops. It can't eliminate -all of them, though, and it saves some typing for often-used -functions. So there's still a place for this, even with LuaJIT. -

    -

    -The situation is a bit different with C function calls via the -FFI library. The JIT compiler has special logic to eliminate all -of the lookup overhead for functions resolved from a -C library namespace! -Thus it's not helpful and actually counter-productive to cache -individual C functions like this: -

    -
    -local funca, funcb = ffi.C.funca, ffi.C.funcb -- Not helpful!
-local function foo(x, n)
-  for i=1,n do funcb(funca(x, i), 1) end
-end
-
    -

    -This turns them into indirect calls and generates bigger and slower -machine code. Instead you'll want to cache the namespace itself and -rely on the JIT compiler to eliminate the lookups: -

    -
    -local C = ffi.C          -- Instead use this!
-local function foo(x, n)
-  for i=1,n do C.funcb(C.funca(x, i), 1) end
-end
-
    -

    -This generates both shorter and faster code. So don't cache -C functions, but do cache namespaces! Most often the -namespace is already in a local variable at an outer scope, e.g. from -local lib = ffi.load(...). Note that copying -it to a local variable in the function scope is unnecessary. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_jit.html b/src/3rd party/luajit-2.0-BAK/doc/ext_jit.html deleted file mode 100644 index a569dd570e4..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_jit.html +++ /dev/null @@ -1,201 +0,0 @@ - - - -jit.* Library - - - - - - - - -
    -Lua -
    - - -
    -

    -The functions in this built-in module control the behavior of the JIT -compiler engine. Note that JIT-compilation is fully automatic — -you probably won't need to use any of the following functions unless -you have special needs. -

    - -

    jit.on()
    -jit.off()

    -

    -Turns the whole JIT compiler on (default) or off. -

    -

    -These functions are typically used with the command line options --j on or -j off. -

    - -

    jit.flush()

    -

    -Flushes the whole cache of compiled code. -

    - -

    jit.on(func|true [,true|false])
    -jit.off(func|true [,true|false])
    -jit.flush(func|true [,true|false])

    -

    -jit.on enables JIT compilation for a Lua function (this is -the default). -

    -

    -jit.off disables JIT compilation for a Lua function and -flushes any already compiled code from the code cache. -

    -

    -jit.flush flushes the code, but doesn't affect the -enable/disable status. -

    -

    -The current function, i.e. the Lua function calling this library -function, can also be specified by passing true as the first -argument. -

    -

    -If the second argument is true, JIT compilation is also -enabled, disabled or flushed recursively for all sub-functions of a -function. With false only the sub-functions are affected. -

    -

    -The jit.on and jit.off functions only set a flag -which is checked when the function is about to be compiled. They do -not trigger immediate compilation. -

    -

    -Typical usage is jit.off(true, true) in the main chunk -of a module to turn off JIT compilation for the whole module for -debugging purposes. -

    - -

    jit.flush(tr)

    -

    -Flushes the root trace, specified by its number, and all of its side -traces from the cache. The code for the trace will be retained as long -as there are any other traces which link to it. -

    - -

    status, ... = jit.status()

    -

    -Returns the current status of the JIT compiler. The first result is -either true or false if the JIT compiler is turned -on or off. The remaining results are strings for CPU-specific features -and enabled optimizations. -

    - -

    jit.version

    -

    -Contains the LuaJIT version string. -

    - -

    jit.version_num

    -

    -Contains the version number of the LuaJIT core. Version xx.yy.zz -is represented by the decimal number xxyyzz. -

    - -

    jit.os

    -

    -Contains the target OS name: -"Windows", "Linux", "OSX", "BSD", "POSIX" or "Other". -

    - -

    jit.arch

    -

    -Contains the target architecture name: -"x86", "x64", "arm", "ppc", or "mips". -

    - -

    jit.opt.* — JIT compiler optimization control

    -

    -This sub-module provides the backend for the -O command line -option. -

    -

    -You can also use it programmatically, e.g.: -

    -
    -jit.opt.start(2) -- same as -O2
-jit.opt.start("-dce")
-jit.opt.start("hotloop=10", "hotexit=2")
-
    -

    -Unlike in LuaJIT 1.x, the module is built-in and -optimization is turned on by default! -It's no longer necessary to run require("jit.opt").start(), -which was one of the ways to enable optimization. -

    - -

    jit.util.* — JIT compiler introspection

    -

    -This sub-module holds functions to introspect the bytecode, generated -traces, the IR and the generated machine code. The functionality -provided by this module is still in flux and therefore undocumented. -

    -

    -The debug modules -jbc, -jv and -jdump make -extensive use of these functions. Please check out their source code, -if you want to know more. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html b/src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html deleted file mode 100644 index be63662b755..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/ext_profiler.html +++ /dev/null @@ -1,365 +0,0 @@ - - - -Profiler - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT has an integrated statistical profiler with very low overhead. It -allows sampling the currently executing stack and other parameters in -regular intervals. -

    -

    -The integrated profiler can be accessed from three levels: -

    - - -

    High-Level Profiler

    -

    -The bundled high-level profiler offers basic profiling functionality. It -generates simple textual summaries or source code annotations. It can be -accessed with the -jp command line option -or from Lua code by loading the underlying jit.p module. -

    -

    -To cut to the chase — run this to get a CPU usage profile by -function name: -

    -
    -luajit -jp myapp.lua
-
    -

    -It's not a stated goal of the bundled profiler to add every -possible option or to cater for special profiling needs. The low-level -profiler APIs are documented below. They may be used by third-party -authors to implement advanced functionality, e.g. IDE integration or -graphical profilers. -

    -

    -Note: Sampling works for both interpreted and JIT-compiled code. The -results for JIT-compiled code may sometimes be surprising. LuaJIT -heavily optimizes and inlines Lua code — there's no simple -one-to-one correspondence between source code lines and the sampled -machine code. -

    - -

    -jp=[options[,output]]

    -

    -The -jp command line option starts the high-level profiler. -When the application run by the command line terminates, the profiler -stops and writes the results to stdout or to the specified -output file. -

    -

    -The options argument specifies how the profiling is to be -performed: -

    -
      -
    • f — Stack dump: function name, otherwise module:line. -This is the default mode.
      • -
    • F — Stack dump: ditto, but dump module:name.
      • -
    • l — Stack dump: module:line.
      • -
    • <number> — stack dump depth (callee ← -caller). Default: 1.
      • -
    • -<number> — Inverse stack dump depth (caller -→ callee).
      • -
    • s — Split stack dump after first stack level. Implies -depth ≥ 2 or depth ≤ -2.
      • -
    • p — Show full path for module names.
      • -
    • v — Show VM states.
      • -
    • z — Show zones.
      • -
    • r — Show raw sample counts. Default: show percentages.
      • -
    • a — Annotate excerpts from source code files.
      • -
    • A — Annotate complete source code files.
      • -
    • G — Produce raw output suitable for graphical tools.
      • -
    • m<number> — Minimum sample percentage to be shown. -Default: 3%.
      • -
    • i<number> — Sampling interval in milliseconds. -Default: 10ms.
      -Note: The actual sampling precision is OS-dependent.
      • -
    -

    -The default output for -jp is a list of the most CPU consuming -spots in the application. Increasing the stack dump depth with (say) --jp=2 may help to point out the main callers or callees of -hotspots. But sample aggregation is still flat per unique stack dump. -

    -

    -To get a two-level view (split view) of callers/callees, use --jp=s or -jp=-s. The percentages shown for the second -level are relative to the first level. -

    -

    -To see how much time is spent in each line relative to a function, use --jp=fl. -

    -

    -To see how much time is spent in different VM states or -zones, use -jp=v or -jp=z. -

    -

    -Combinations of v/z with f/F/l produce two-level -views, e.g. -jp=vf or -jp=fv. This shows the time -spent in a VM state or zone vs. hotspots. This can be used to answer -questions like "Which time consuming functions are only interpreted?" or -"What's the garbage collector overhead for a specific function?". -

    -

    -Multiple options can be combined — but not all combinations make -sense, see above. E.g. -jp=3si4m1 samples three stack levels -deep in 4ms intervals and shows a split view of the CPU consuming -functions and their callers with a 1% threshold. -

    -

    -Source code annotations produced by -jp=a or -jp=A are -always flat and at the line level. Obviously, the source code files need -to be readable by the profiler script. -

    -

    -The high-level profiler can also be started and stopped from Lua code with: -

    -
    -require("jit.p").start(options, output)
-...
-require("jit.p").stop()
-
    - -

    jit.zone — Zones

    -

    -Zones can be used to provide information about different parts of an -application to the high-level profiler. E.g. a game could make use of an -"AI" zone, a "PHYS" zone, etc. Zones are hierarchical, -organized as a stack. -

    -

    -The jit.zone module needs to be loaded explicitly: -

    -
    -local zone = require("jit.zone")
-
    -
      -
    • zone("name") pushes a named zone to the zone stack.
      • -
    • zone() pops the current zone from the zone stack and -returns its name.
      • -
    • zone:get() returns the current zone name or nil.
      • -
    • zone:flush() flushes the zone stack.
      • -
    -

    -To show the time spent in each zone use -jp=z. To show the time -spent relative to hotspots use e.g. -jp=zf or -jp=fz. -

    - -

    Low-level Lua API

    -

    -The jit.profile module gives access to the low-level API of the -profiler from Lua code. This module needs to be loaded explicitly: -

    -local profile = require("jit.profile")
-
    -

    -This module can be used to implement your own higher-level profiler. -A typical profiling run starts the profiler, captures stack dumps in -the profiler callback, adds them to a hash table to aggregate the number -of samples, stops the profiler and then analyzes all of the captured -stack dumps. Other parameters can be sampled in the profiler callback, -too. But it's important not to spend too much time in the callback, -since this may skew the statistics. -

    - -

    profile.start(mode, cb) -— Start profiler

    -

    -This function starts the profiler. The mode argument is a -string holding options: -

    -
      -
    • f — Profile with precision down to the function level.
      • -
    • l — Profile with precision down to the line level.
      • -
    • i<number> — Sampling interval in milliseconds (default -10ms).
      -Note: The actual sampling precision is OS-dependent. -
      • -
    -

    -The cb argument is a callback function which is called with -three arguments: (thread, samples, vmstate). The callback is -called on a separate coroutine, the thread argument is the -state that holds the stack to sample for profiling. Note: do -not modify the stack of that state or call functions on it. -

    -

    -samples gives the number of accumulated samples since the last -callback (usually 1). -

    -

    -vmstate holds the VM state at the time the profiling timer -triggered. This may or may not correspond to the state of the VM when -the profiling callback is called. The state is either 'N' -native (compiled) code, 'I' interpreted code, 'C' -C code, 'G' the garbage collector, or 'J' the JIT -compiler. -

    - -

    profile.stop() -— Stop profiler

    -

    -This function stops the profiler. -

    - -

    dump = profile.dumpstack([thread,] fmt, depth) -— Dump stack

    -

    -This function allows taking stack dumps in an efficient manner. It -returns a string with a stack dump for the thread (coroutine), -formatted according to the fmt argument: -

    -
      -
    • p — Preserve the full path for module names. Otherwise -only the file name is used.
      • -
    • f — Dump the function name if it can be derived. Otherwise -use module:line.
      • -
    • F — Ditto, but dump module:name.
      • -
    • l — Dump module:line.
      • -
    • Z — Zap the following characters for the last dumped -frame.
      • -
    • All other characters are added verbatim to the output string.
      • -
    -

    -The depth argument gives the number of frames to dump, starting -at the topmost frame of the thread. A negative number dumps the frames in -inverse order. -

    -

    -The first example prints a list of the current module names and line -numbers of up to 10 frames in separate lines. The second example prints -semicolon-separated function names for all frames (up to 100) in inverse -order: -

    -
    -print(profile.dumpstack(thread, "l\n", 10))
-print(profile.dumpstack(thread, "lZ;", -100))
-
    - -

    Low-level C API

    -

    -The profiler can be controlled directly from C code, e.g. for -use by IDEs. The declarations are in "luajit.h" (see -Lua/C API extensions). -

    - -

    luaJIT_profile_start(L, mode, cb, data) -— Start profiler

    -

    -This function starts the profiler. See -above for a description of the mode argument. -

    -

    -The cb argument is a callback function with the following -declaration: -

    -
    -typedef void (*luaJIT_profile_callback)(void *data, lua_State *L,
-                                        int samples, int vmstate);
-
    -

    -data is available for use by the callback. L is the -state that holds the stack to sample for profiling. Note: do -not modify this stack or call functions on this stack — -use a separate coroutine for this purpose. See -above for a description of samples and vmstate. -

    - -

    luaJIT_profile_stop(L) -— Stop profiler

    -

    -This function stops the profiler. -

    - -

    p = luaJIT_profile_dumpstack(L, fmt, depth, len) -— Dump stack

    -

    -This function allows taking stack dumps in an efficient manner. -See above for a description of fmt -and depth. -

    -

    -This function returns a const char * pointing to a -private string buffer of the profiler. The int *len -argument returns the length of the output string. The buffer is -overwritten on the next call and deallocated when the profiler stops. -You either need to consume the content immediately or copy it for later -use. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/extensions.html b/src/3rd party/luajit-2.0-BAK/doc/extensions.html deleted file mode 100644 index d2f8d7ba6ab..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/extensions.html +++ /dev/null @@ -1,443 +0,0 @@ - - - -Extensions - - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT is fully upwards-compatible with Lua 5.1. It supports all -» standard Lua -library functions and the full set of -» Lua/C API -functions. -

    -

    -LuaJIT is also fully ABI-compatible to Lua 5.1 at the linker/dynamic -loader level. This means you can compile a C module against the -standard Lua headers and load the same shared library from either Lua -or LuaJIT. -

    -

    -LuaJIT extends the standard Lua VM with new functionality and adds -several extension modules. Please note this page is only about -functional enhancements and not about performance enhancements, -such as the optimized VM, the faster interpreter or the JIT compiler. -

    - -

    Extensions Modules

    -

    -LuaJIT comes with several built-in extension modules: -

    - -

    bit.* — Bitwise operations

    -

    -LuaJIT supports all bitwise operations as defined by -» Lua BitOp: -

    -
    -bit.tobit  bit.tohex  bit.bnot    bit.band bit.bor  bit.bxor
-bit.lshift bit.rshift bit.arshift bit.rol  bit.ror  bit.bswap
-
    -

    -This module is a LuaJIT built-in — you don't need to download or -install Lua BitOp. The Lua BitOp site has full documentation for all -» Lua BitOp API functions. -The FFI adds support for -64 bit bitwise operations, -using the same API functions. -

    -

    -Please make sure to require the module before using any of -its functions: -

    -
    -local bit = require("bit")
-
    -

    -An already installed Lua BitOp module is ignored by LuaJIT. -This way you can use bit operations from both Lua and LuaJIT on a -shared installation. -

    - -

    ffi.* — FFI library

    -

    -The FFI library allows calling external -C functions and the use of C data structures from pure Lua -code. -

    - -

    jit.* — JIT compiler control

    -

    -The functions in this module -control the behavior of the JIT compiler engine. -

    - -

    C API extensions

    -

    -LuaJIT adds some -extra functions to the Lua/C API. -

    - -

    Profiler

    -

    -LuaJIT has an integrated profiler. -

    - -

    Enhanced Standard Library Functions

    - -

    xpcall(f, err [,args...]) passes arguments

    -

    -Unlike the standard implementation in Lua 5.1, xpcall() -passes any arguments after the error function to the function -which is called in a protected context. -

    - -

    loadfile() etc. handle UTF-8 source code

    -

    -Non-ASCII characters are handled transparently by the Lua source code parser. -This allows the use of UTF-8 characters in identifiers and strings. -A UTF-8 BOM is skipped at the start of the source code. -

    - -

    tostring() etc. canonicalize NaN and ±Inf

    -

    -All number-to-string conversions consistently convert non-finite numbers -to the same strings on all platforms. NaN results in "nan", -positive infinity results in "inf" and negative infinity results -in "-inf". -

    - -

    tonumber() etc. use builtin string to number conversion

    -

    -All string-to-number conversions consistently convert integer and -floating-point inputs in decimal and hexadecimal on all platforms. -strtod() is not used anymore, which avoids numerous -problems with poor C library implementations. The builtin conversion -function provides full precision according to the IEEE-754 standard, it -works independently of the current locale and it supports hex floating-point -numbers (e.g. 0x1.5p-3). -

    - -

    string.dump(f [,strip]) generates portable bytecode

    -

    -An extra argument has been added to string.dump(). If set to -true, 'stripped' bytecode without debug information is -generated. This speeds up later bytecode loading and reduces memory -usage. See also the --b command line option. -

    -

    -The generated bytecode is portable and can be loaded on any architecture -that LuaJIT supports, independent of word size or endianess. However the -bytecode compatibility versions must match. Bytecode stays compatible -for dot releases (x.y.0 → x.y.1), but may change with major or -minor releases (2.0 → 2.1) or between any beta release. Foreign -bytecode (e.g. from Lua 5.1) is incompatible and cannot be loaded. -

    - -

    table.new(narray, nhash) allocates a pre-sized table

    -

    -An extra library function table.new() can be made available via -require("table.new"). This creates a pre-sized table, just like -the C API equivalent lua_createtable(). This is useful for big -tables if the final table size is known and automatic table resizing is -too expensive. -

    - -

    table.clear(tab) clears a table

    -

    -An extra library function table.clear() can be made available -via require("table.clear"). This clears all keys and values -from a table, but preserves the allocated array/hash sizes. This is -useful when a table, which is linked from multiple places, needs to be -cleared and/or when recycling a table for use by the same context. This -avoids managing backlinks, saves an allocation and the overhead of -incremental array/hash part growth. -

    -

    -Please note this function is meant for very specific situations. In most -cases it's better to replace the (usually single) link with a new table -and let the GC do its work. -

    - -

    Enhanced PRNG for math.random()

    -

    -LuaJIT uses a Tausworthe PRNG with period 2^223 to implement -math.random() and math.randomseed(). The quality of -the PRNG results is much superior compared to the standard Lua -implementation which uses the platform-specific ANSI rand(). -

    -

    -The PRNG generates the same sequences from the same seeds on all -platforms and makes use of all bits in the seed argument. -math.random() without arguments generates 52 pseudo-random bits -for every call. The result is uniformly distributed between 0.0 and 1.0. -It's correctly scaled up and rounded for math.random(n [,m]) to -preserve uniformity. -

    - -

    io.* functions handle 64 bit file offsets

    -

    -The file I/O functions in the standard io.* library handle -64 bit file offsets. In particular this means it's possible -to open files larger than 2 Gigabytes and to reposition or obtain -the current file position for offsets beyond 2 GB -(fp:seek() method). -

    - -

    debug.* functions identify metamethods

    -

    -debug.getinfo() and lua_getinfo() also return information -about invoked metamethods. The namewhat field is set to -"metamethod" and the name field has the name of -the corresponding metamethod (e.g. "__index"). -

    - -

    Fully Resumable VM

    -

    -The LuaJIT VM is fully resumable. This means you can yield from a -coroutine even across contexts, where this would not possible with -the standard Lua 5.1 VM: e.g. you can yield across pcall() -and xpcall(), across iterators and across metamethods. -

    - -

    Extensions from Lua 5.2

    -

    -LuaJIT supports some language and library extensions from Lua 5.2. -Features that are unlikely to break existing code are unconditionally -enabled: -

    -
      -
    • goto and ::labels::.
      • -
    • Hex escapes '\x3F' and '\*' escape in strings.
      • -
    • load(string|reader [, chunkname [,mode [,env]]]).
      • -
    • loadstring() is an alias for load().
      • -
    • loadfile(filename [,mode [,env]]).
      • -
    • math.log(x [,base]). -
    • string.rep(s, n [,sep]). -
    • string.format(): %q reversible. -%s checks __tostring. -%a and "%A added.
      • -
    • String matching pattern %g added.
      • -
    • io.read("*L").
      • -
    • io.lines() and file:lines() process -io.read() options.
      • -
    • os.exit(status|true|false [,close]).
      • -
    • package.searchpath(name, path [, sep [, rep]]).
      • -
    • package.loadlib(name, "*").
      • -
    • debug.getinfo() returns nparams and isvararg -for option "u".
      • -
    • debug.getlocal() accepts function instead of level.
      • -
    • debug.getlocal() and debug.setlocal() accept negative -indexes for varargs.
      • -
    • debug.getupvalue() and debug.setupvalue() handle -C functions.
      • -
    • debug.upvalueid() and debug.upvaluejoin().
      • -
    • Command line option -E.
      • -
    • Command line checks __tostring for errors.
      • -
    -

    -Other features are only enabled, if LuaJIT is built with --DLUAJIT_ENABLE_LUA52COMPAT: -

    -
      -
    • goto is a keyword and not a valid variable name anymore.
      • -
    • break can be placed anywhere. Empty statements (;;) -are allowed.
      • -
    • __lt, __le are invoked for mixed types.
      • -
    • __len for tables. rawlen() library function.
      • -
    • pairs() and ipairs() check for __pairs and -__ipairs.
      • -
    • coroutine.running() returns two results.
      • -
    • table.pack() and table.unpack() -(same as unpack()).
      • -
    • io.write() and file:write() return file handle -instead of true.
      • -
    • os.execute() and pipe:close() return detailed -exit status.
      • -
    • debug.setmetatable() returns object.
      • -
    • debug.getuservalue() and debug.setuservalue().
      • -
    • Remove math.mod(), string.gfind(). -
    -

    -Note: this provides only partial compatibility with Lua 5.2 at the -language and Lua library level. LuaJIT is API+ABI-compatible with -Lua 5.1, which prevents implementing features that would otherwise -break the Lua/C API and ABI (e.g. _ENV). -

    - -

    C++ Exception Interoperability

    -

    -LuaJIT has built-in support for interoperating with C++ exceptions. -The available range of features depends on the target platform and -the toolchain used to compile LuaJIT: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    PlatformCompilerInteroperability
    POSIX/x64, DWARF2 unwindingGCC 4.3+Full
    Other platforms, DWARF2 unwindingGCCLimited
    Windows/x64MSVC or WinSDKFull
    Windows/x86AnyNo
    Other platformsOther compilersNo
    -

    -Full interoperability means: -

    -
      -
    • C++ exceptions can be caught on the Lua side with pcall(), -lua_pcall() etc.
      • -
    • C++ exceptions will be converted to the generic Lua error -"C++ exception", unless you use the -C call wrapper feature.
      • -
    • It's safe to throw C++ exceptions across non-protected Lua frames -on the C stack. The contents of the C++ exception object -pass through unmodified.
      • -
    • Lua errors can be caught on the C++ side with catch(...). -The corresponding Lua error message can be retrieved from the Lua stack.
      • -
    • Throwing Lua errors across C++ frames is safe. C++ destructors -will be called.
      • -
    -

    -Limited interoperability means: -

    -
      -
    • C++ exceptions can be caught on the Lua side with pcall(), -lua_pcall() etc.
      • -
    • C++ exceptions will be converted to the generic Lua error -"C++ exception", unless you use the -C call wrapper feature.
      • -
    • C++ exceptions will be caught by non-protected Lua frames and -are rethrown as a generic Lua error. The C++ exception object will -be destroyed.
      • -
    • Lua errors cannot be caught on the C++ side.
      • -
    • Throwing Lua errors across C++ frames will not call -C++ destructors.
      • -
    - -

    -No interoperability means: -

    -
      -
    • It's not safe to throw C++ exceptions across Lua frames.
      • -
    • C++ exceptions cannot be caught on the Lua side.
      • -
    • Lua errors cannot be caught on the C++ side.
      • -
    • Throwing Lua errors across C++ frames will not call -C++ destructors.
      • -
    • Additionally, on Windows/x86 with SEH-based C++ exceptions: -it's not safe to throw a Lua error across any frames containing -a C++ function with any try/catch construct or using variables with -(implicit) destructors. This also applies to any functions which may be -inlined in such a function. It doesn't matter whether lua_error() -is called inside or outside of a try/catch or whether any object actually -needs to be destroyed: the SEH chain is corrupted and this will eventually -lead to the termination of the process.
      • -
    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/faq.html b/src/3rd party/luajit-2.0-BAK/doc/faq.html deleted file mode 100644 index aebaef579a4..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/faq.html +++ /dev/null @@ -1,186 +0,0 @@ - - - -Frequently Asked Questions (FAQ) - - - - - - - - - -
    -Lua -
    - - -
    -
    -
    Q: Where can I learn more about LuaJIT and Lua?
    -
    - -
    - -
    -
    Q: Where can I learn more about the compiler technology used by LuaJIT?
    -
    -I'm planning to write more documentation about the internals of LuaJIT. -In the meantime, please use the following Google Scholar searches -to find relevant papers:
    -Search for: » Trace Compiler
    -Search for: » JIT Compiler
    -Search for: » Dynamic Language Optimizations
    -Search for: » SSA Form
    -Search for: » Linear Scan Register Allocation
    -Here is a list of the » innovative features in LuaJIT.
    -And, you know, reading the source is of course the only way to enlightenment. :-) -
    -
    - -
    -
    Q: Why do I get this error: "attempt to index global 'arg' (a nil value)"?
    -Q: My vararg functions fail after switching to LuaJIT!
    -
    LuaJIT is compatible to the Lua 5.1 language standard. It doesn't -support the implicit arg parameter for old-style vararg -functions from Lua 5.0.
    Please convert your code to the -» Lua 5.1 -vararg syntax.
    -
    - -
    -
    Q: Why do I get this error: "bad FPU precision"?
    -
    Q: I get weird behavior after initializing Direct3D.
    -
    Q: Some FPU operations crash after I load a Delphi DLL.
    -
    -
    - -DirectX/Direct3D (up to version 9) sets the x87 FPU to single-precision -mode by default. This violates the Windows ABI and interferes with the -operation of many programs — LuaJIT is affected, too. Please make -sure you always use the D3DCREATE_FPU_PRESERVE flag when -initializing Direct3D.
    - -Direct3D version 10 or higher do not show this behavior anymore. -Consider testing your application with older versions, too.
    - -Similarly, the Borland/Delphi runtime modifies the FPU control word and -enables FP exceptions. Of course this violates the Windows ABI, too. -Please check the Delphi docs for the Set8087CW method. - -
    - -
    -
    Q: Sometimes Ctrl-C fails to stop my Lua program. Why?
    -
    The interrupt signal handler sets a Lua debug hook. But this is -currently ignored by compiled code (this will eventually be fixed). If -your program is running in a tight loop and never falls back to the -interpreter, the debug hook never runs and can't throw the -"interrupted!" error.
    In the meantime you have to press Ctrl-C -twice to get stop your program. That's similar to when it's stuck -running inside a C function under the Lua interpreter.
    -
    - -
    -
    Q: Why doesn't my favorite power-patch for Lua apply against LuaJIT?
    -
    Because it's a completely redesigned VM and has very little code -in common with Lua anymore. Also, if the patch introduces changes to -the Lua semantics, these would need to be reflected everywhere in the -VM, from the interpreter up to all stages of the compiler.
    Please -use only standard Lua language constructs. For many common needs you -can use source transformations or use wrapper or proxy functions. -The compiler will happily optimize away such indirections.
    -
    - -
    -
    Q: Lua runs everywhere. Why doesn't LuaJIT support my CPU?
    -
    Because it's a compiler — it needs to generate native -machine code. This means the code generator must be ported to each -architecture. And the fast interpreter is written in assembler and -must be ported, too. This is quite an undertaking.
    -The install documentation shows the supported -architectures. Other architectures will follow based on sufficient user -demand and/or sponsoring.
    -
    - -
    -
    Q: When will feature X be added? When will the next version be released?
    -
    When it's ready.
    -C'mon, it's open source — I'm doing it on my own time and you're -getting it for free. You can either contribute a patch or sponsor -the development of certain features, if they are important to you. -
    -
    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/img/contact.png b/src/3rd party/luajit-2.0-BAK/doc/img/contact.png deleted file mode 100644 index 9c73dc594efc1f47309d6c9b73d7719c3a9e04df..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1340 zcmV-C1;hG@P)sQ4|K#fZOHEVa==(`aQP0%nM@di3(&I%(O)@h#$&+f^&9&U}9=sU}#xfW8dZX zS6X4+hl`eQb9`=bdTMQUS6N_FRb1EH?oLrx)!OXR*y%bu zKs7fzyTH%6zRkD1%O4*iwYte19Urr}$DpLK7#SM{1qGa-tpfuC0RaJph?9SUjedfR ze1M8)YI0?0aARg}VPtGhP*&yZ{!C6(sq^PzF3k;#Avk3_bkCL7T2MCRjoQjT_h>Vwp zij{MAe{pnuZ*qHWaCvKPcUD+m*xm0?Qd!p9?bO-p)7k3L*XYmH<~BGyy}{8mHafb$ z&bYnIARr?h9v~YW9vK=O7Z@4@1O%I(tO5c8@Y5f50008dNklZz)3AlitwxnPH%H`Uot)Wm#A~UJD{dq04A@c=B#o!5#fVO zK9y#&^Z}?|*LsioK&(FDooZAR)tQj#4t{T51EP;48U9I=7br`Bk^O8MkeX!ZNe^m_BH=Vrj*jZZuSKj$t2j7FZ^2u4YKv8(~ zaMJ@oQZ>+`rSiG$iy;5QP}GpcaF4=ry2srsiZ0RqYjK@LQA)d@GB0_aay0Tvrp83dAL2x{13 zII2|!RUp(7P{l^2T*QHZ71!E*QcTqNtMh0|uLS!2k^8W?Ka#6$aBn3*=LUe(BpUo6 z=nkI1fP*0x3aYH^su6tQT}{)EfU4IyLBQ-;(w1i;#)>KNGk41l6I5_B2)f}c}CK-PL&a{M5Rut(jQ@VX1_p&z6vN)t zNcp7CYSP6-mE96jwhE}y?lvr|2kRa0g^iLTaJ1y+9qs~F+W}}-FHd&oy;TeG2n6hM z2eK~@vIu+Z%WDWZDK7wkG0}TEXW(~!Gk+0t(i)Sck-Ht%F=yzi{ZFXe-}F6T**!vM y)$^3mN5{Eb6*vAD>S)nmP3aw7v29)6WaBSReaJM4z7xj)0000 - - -Installation - - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT is only distributed as a source package. This page explains -how to build and install LuaJIT with different operating systems -and C compilers. -

    -

    -For the impatient (on POSIX systems): -

    -
    -make && sudo make install
-
    -

    -LuaJIT currently builds out-of-the box on most systems. -Here's the compatibility matrix for the supported combinations of -operating systems, CPUs and compilers: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    CPU / OSLinux or
    Android    		*BSD, OtherOSX 10.4+ or
    iOS 3.0+    		Windows
    XP/Vista/7
    x86 (32 bit)GCC 4.x
    GCC 3.4    		GCC 4.x
    GCC 3.4    		GCC 4.x
    GCC 3.4    		MSVC, MSVC/EE
    WinSDK
    MinGW, Cygwin
    x64 (64 bit)GCC 4.xORBIS (PS4)GCC 4.xMSVC + SDK v7.0
    WinSDK v7.0
    ARMv5+
    ARM9E+    		GCC 4.2+GCC 4.2+
    PSP2 (PS VITA)    		GCC 4.2+ 
    ARM64GCC 4.8+ Clang 3.5+ 
    PPCGCC 4.3+GCC 4.3+
    GCC 4.1 (PS3)    		 XEDK (Xbox 360)
    MIPSGCC 4.3+GCC 4.3+  
    - -

    Configuring LuaJIT

    -

    -The standard configuration should work fine for most installations. -Usually there is no need to tweak the settings. The following files -hold all user-configurable settings: -

    -
      -
    • src/luaconf.h sets some configuration variables.
      • -
    • Makefile has settings for installing LuaJIT (POSIX -only).
      • -
    • src/Makefile has settings for compiling LuaJIT -under POSIX, MinGW or Cygwin.
      • -
    • src/msvcbuild.bat has settings for compiling LuaJIT with -MSVC or WinSDK.
      • -
    -

    -Please read the instructions given in these files, before changing -any settings. -

    - -

    POSIX Systems (Linux, OSX, *BSD etc.)

    -

    Prerequisites

    -

    -Depending on your distribution, you may need to install a package for -GCC, the development headers and/or a complete SDK. E.g. on a current -Debian/Ubuntu, install libc6-dev with the package manager. -

    -

    -Download the current source package of LuaJIT (pick the .tar.gz), -if you haven't already done so. Move it to a directory of your choice, -open a terminal window and change to this directory. Now unpack the archive -and change to the newly created directory: -

    -
    -tar zxf LuaJIT-2.0.3.tar.gz
-cd LuaJIT-2.0.3
    -

    Building LuaJIT

    -

    -The supplied Makefiles try to auto-detect the settings needed for your -operating system and your compiler. They need to be run with GNU Make, -which is probably the default on your system, anyway. Simply run: -

    -
    -make
-
    -

    -This always builds a native x86, x64 or PPC binary, depending on the host OS -you're running this command on. Check the section on -cross-compilation for more options. -

    -

    -By default, modules are only searched under the prefix /usr/local. -You can add an extra prefix to the search paths by appending the -PREFIX option, e.g.: -

    -
    -make PREFIX=/home/myself/lj2
-
    -

    -Note for OSX: if the MACOSX_DEPLOYMENT_TARGET environment -variable is not set, then it's forced to 10.4. -

    -

    Installing LuaJIT

    -

    -The top-level Makefile installs LuaJIT by default under -/usr/local, i.e. the executable ends up in -/usr/local/bin and so on. You need root privileges -to write to this path. So, assuming sudo is installed on your system, -run the following command and enter your sudo password: -

    -
    -sudo make install
-
    -

    -Otherwise specify the directory prefix as an absolute path, e.g.: -

    -
    -make install PREFIX=/home/myself/lj2
-
    -

    -Obviously the prefixes given during build and installation need to be the same. -

    - -

    Windows Systems

    -

    Prerequisites

    -

    -Either install one of the open source SDKs -(» MinGW or -» Cygwin), which come with a modified -GCC plus the required development headers. -

    -

    -Or install Microsoft's Visual C++ (MSVC). The freely downloadable -» Express Edition -works just fine, but only contains an x86 compiler. -

    -

    -The freely downloadable -» Windows SDK -only comes with command line tools, but this is all you need to build LuaJIT. -It contains x86 and x64 compilers. -

    -

    -Next, download the source package and unpack it using an archive manager -(e.g. the Windows Explorer) to a directory of your choice. -

    -

    Building with MSVC

    -

    -Open a "Visual Studio .NET Command Prompt", cd to the -directory where you've unpacked the sources and run these commands: -

    -
    -cd src
-msvcbuild
-
    -

    -Then follow the installation instructions below. -

    -

    Building with the Windows SDK

    -

    -Open a "Windows SDK Command Shell" and select the x86 compiler: -

    -
    -setenv /release /x86
-
    -

    -Or select the x64 compiler: -

    -
    -setenv /release /x64
-
    -

    -Then cd to the directory where you've unpacked the sources -and run these commands: -

    -
    -cd src
-msvcbuild
-
    -

    -Then follow the installation instructions below. -

    -

    Building with MinGW or Cygwin

    -

    -Open a command prompt window and make sure the MinGW or Cygwin programs -are in your path. Then cd to the directory where -you've unpacked the sources and run this command for MinGW: -

    -
    -mingw32-make
-
    -

    -Or this command for Cygwin: -

    -
    -make
-
    -

    -Then follow the installation instructions below. -

    -

    Installing LuaJIT

    -

    -Copy luajit.exe and lua51.dll (built in the src -directory) to a newly created directory (any location is ok). -Add lua and lua\jit directories below it and copy -all Lua files from the src\jit directory of the distribution -to the latter directory. -

    -

    -There are no hardcoded -absolute path names — all modules are loaded relative to the -directory where luajit.exe is installed -(see src/luaconf.h). -

    - -

    Cross-compiling LuaJIT

    -

    -The GNU Makefile-based build system allows cross-compiling on any host -for any supported target, as long as both architectures have the same -pointer size. If you want to cross-compile to any 32 bit target on an -x64 OS, you need to install the multilib development package (e.g. -libc6-dev-i386 on Debian/Ubuntu) and build a 32 bit host part -(HOST_CC="gcc -m32"). -

    -

    -You need to specify TARGET_SYS whenever the host OS and the -target OS differ, or you'll get assembler or linker errors. E.g. if -you're compiling on a Windows or OSX host for embedded Linux or Android, -you need to add TARGET_SYS=Linux to the examples below. For a -minimal target OS, you may need to disable the built-in allocator in -src/Makefile and use TARGET_SYS=Other. The examples -below only show some popular targets — please check the comments -in src/Makefile for more details. -

    -
    -# Cross-compile to a 32 bit binary on a multilib x64 OS
-make CC="gcc -m32"
-
-# Cross-compile on Debian/Ubuntu for Windows (mingw32 package)
-make HOST_CC="gcc -m32" CROSS=i586-mingw32msvc- TARGET_SYS=Windows
-
    -

    -The CROSS prefix allows specifying a standard GNU cross-compile -toolchain (Binutils, GCC and a matching libc). The prefix may vary -depending on the --target the toolchain was built for (note the -CROSS prefix has a trailing "-"). The examples below -use the canonical toolchain triplets for Linux. -

    -

    -Since there's often no easy way to detect CPU features at runtime, it's -important to compile with the proper CPU or architecture settings. You -can specify these when building the toolchain yourself. Or add --mcpu=... or -march=... to TARGET_CFLAGS. For -ARM it's important to have the correct -mfloat-abi=... setting, -too. Otherwise LuaJIT may not run at the full performance of your target -CPU. -

    -
    -# ARM soft-float
-make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabi- \
-     TARGET_CFLAGS="-mfloat-abi=soft"
-
-# ARM soft-float ABI with VFP (example for Cortex-A8)
-make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabi- \
-     TARGET_CFLAGS="-mcpu=cortex-a8 -mfloat-abi=softfp"
-
-# ARM hard-float ABI with VFP (armhf, requires recent toolchain)
-make HOST_CC="gcc -m32" CROSS=arm-linux-gnueabihf-
-
-# ARM64 (requires x64 host)
-make CROSS=aarch64-linux-
-
-# PPC
-make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu-
-
-# MIPS big-endian
-make HOST_CC="gcc -m32" CROSS=mips-linux-
-# MIPS little-endian
-make HOST_CC="gcc -m32" CROSS=mipsel-linux-
-
    -

    -You can cross-compile for Android using the » Android NDK. -The environment variables need to match the install locations and the -desired target platform. E.g. Android 4.0 corresponds to ABI level 14. -For details check the folder docs in the NDK directory. -

    -

    -Only a few common variations for the different CPUs, ABIs and platforms -are listed. Please use your own judgement for which combination you want -to build/deploy or which lowest common denominator you want to pick: -

    -
    -# Android/ARM, armeabi (ARMv5TE soft-float), Android 2.2+ (Froyo)
-NDK=/opt/android/ndk
-NDKABI=8
-NDKVER=$NDK/toolchains/arm-linux-androideabi-4.6
-NDKP=$NDKVER/prebuilt/linux-x86/bin/arm-linux-androideabi-
-NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-arm"
-make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
-
-# Android/ARM, armeabi-v7a (ARMv7 VFP), Android 4.0+ (ICS)
-NDK=/opt/android/ndk
-NDKABI=14
-NDKVER=$NDK/toolchains/arm-linux-androideabi-4.6
-NDKP=$NDKVER/prebuilt/linux-x86/bin/arm-linux-androideabi-
-NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-arm"
-NDKARCH="-march=armv7-a -mfloat-abi=softfp -Wl,--fix-cortex-a8"
-make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF $NDKARCH"
-
-# Android/MIPS, mips (MIPS32R1 hard-float), Android 4.0+ (ICS)
-NDK=/opt/android/ndk
-NDKABI=14
-NDKVER=$NDK/toolchains/mipsel-linux-android-4.6
-NDKP=$NDKVER/prebuilt/linux-x86/bin/mipsel-linux-android-
-NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-mips"
-make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
-
-# Android/x86, x86 (i686 SSE3), Android 4.0+ (ICS)
-NDK=/opt/android/ndk
-NDKABI=14
-NDKVER=$NDK/toolchains/x86-4.6
-NDKP=$NDKVER/prebuilt/linux-x86/bin/i686-linux-android-
-NDKF="--sysroot $NDK/platforms/android-$NDKABI/arch-x86"
-make HOST_CC="gcc -m32" CROSS=$NDKP TARGET_FLAGS="$NDKF"
-
    -

    -You can cross-compile for iOS 3.0+ (iPhone/iPad) using the » iOS SDK. -The environment variables need to match the iOS SDK version: -

    -

    -Note: the JIT compiler is disabled for iOS, because regular iOS Apps -are not allowed to generate code at runtime. You'll only get the performance -of the LuaJIT interpreter on iOS. This is still faster than plain Lua, but -much slower than the JIT compiler. Please complain to Apple, not me. -Or use Android. :-p -

    -
    -IXCODE=`xcode-select -print-path`
-ISDK=$IXCODE/Platforms/iPhoneOS.platform/Developer
-ISDKVER=iPhoneOS6.0.sdk
-ISDKP=$ISDK/usr/bin/
-ISDKF="-arch armv7 -isysroot $ISDK/SDKs/$ISDKVER"
-make HOST_CC="gcc -m32 -arch i386" CROSS=$ISDKP TARGET_FLAGS="$ISDKF" \
-     TARGET_SYS=iOS
-
    - -

    Cross-compiling for consoles

    -

    -Building LuaJIT for consoles requires both a supported host compiler -(x86 or x64) and a cross-compiler (to PPC or ARM) from the official -console SDK. -

    -

    -Due to restrictions on consoles, the JIT compiler is disabled and only -the fast interpreter is built. This is still faster than plain Lua, -but much slower than the JIT compiler. The FFI is disabled, too, since -it's not very useful in such an environment. -

    -

    -The following commands build a static library libluajit.a, -which can be linked against your game, just like the Lua library. -

    -

    -To cross-compile for PS3 from a Linux host (requires -32 bit GCC, i.e. multilib Linux/x64) or a Windows host (requires -32 bit MinGW), run this command: -

    -
    -make HOST_CC="gcc -m32" CROSS=ppu-lv2-
-
    -

    -To cross-compile for PS4 from a Windows host, -open a "Visual Studio .NET Command Prompt" (64 bit host compiler), -cd to the directory where you've unpacked the sources and -run the following commands: -

    -
    -cd src
-ps4build
-
    -

    -To cross-compile for PS Vita from a Windows host, -open a "Visual Studio .NET Command Prompt" (32 bit host compiler), -cd to the directory where you've unpacked the sources and -run the following commands: -

    -
    -cd src
-psvitabuild
-
    -

    -To cross-compile for Xbox 360 from a Windows host, -open a "Visual Studio .NET Command Prompt" (32 bit host compiler), -cd to the directory where you've unpacked the sources and run -the following commands: -

    -
    -cd src
-xedkbuild
-
    - -

    Embedding LuaJIT

    -

    -LuaJIT is API-compatible with Lua 5.1. If you've already embedded Lua -into your application, you probably don't need to do anything to switch -to LuaJIT, except link with a different library: -

    -
      -
    • It's strongly suggested to build LuaJIT separately using the supplied -build system. Please do not attempt to integrate the individual -source files into your build tree. You'll most likely get the internal build -dependencies wrong or mess up the compiler flags. Treat LuaJIT like any -other external library and link your application with either the dynamic -or static library, depending on your needs.
      • -
    • If you want to load C modules compiled for plain Lua -with require(), you need to make sure the public symbols -(e.g. lua_pushnumber) are exported, too: -
      • On POSIX systems you can either link to the shared library -or link the static library into your application. In the latter case -you'll need to export all public symbols from your main executable -(e.g. -Wl,-E on Linux) and add the external dependencies -(e.g. -lm -ldl on Linux).
        • -
      • Since Windows symbols are bound to a specific DLL name, you need to -link to the lua51.dll created by the LuaJIT build (do not rename -the DLL). You may link LuaJIT statically on Windows only if you don't -intend to load Lua/C modules at runtime. -
      -
      • -
    • -If you're building a 64 bit application on OSX which links directly or -indirectly against LuaJIT, you need to link your main executable -with these flags: -
      --pagezero_size 10000 -image_base 100000000
-
      -Also, it's recommended to rebase all (self-compiled) shared libraries -which are loaded at runtime on OSX/x64 (e.g. C extension modules for Lua). -See: man rebase -
      • -
    -

    Additional hints for initializing LuaJIT using the C API functions:

    -
      -
    • Here's a -» simple example -for embedding Lua or LuaJIT into your application.
      • -
    • Make sure you use luaL_newstate. Avoid using -lua_newstate, since this uses the (slower) default memory -allocator from your system (no support for this on x64).
      • -
    • Make sure you use luaL_openlibs and not the old Lua 5.0 style -of calling luaopen_base etc. directly.
      • -
    • To change or extend the list of standard libraries to load, copy -src/lib_init.c to your project and modify it accordingly. -Make sure the jit library is loaded or the JIT compiler -will not be activated.
      • -
    • The bit.* module for bitwise operations -is already built-in. There's no need to statically link -» Lua BitOp to your application.
      • -
    - -

    Hints for Distribution Maintainers

    -

    -The LuaJIT build system has extra provisions for the needs of most -POSIX-based distributions. If you're a package maintainer for -a distribution, please make use of these features and -avoid patching, subverting, autotoolizing or messing up the build system -in unspeakable ways. -

    -

    -There should be absolutely no need to patch luaconf.h or any -of the Makefiles. And please do not hand-pick files for your packages — -simply use whatever make install creates. There's a reason -for all of the files and directories it creates. -

    -

    -The build system uses GNU make and auto-detects most settings based on -the host you're building it on. This should work fine for native builds, -even when sandboxed. You may need to pass some of the following flags to -both the make and the make install command lines -for a regular distribution build: -

    -
      -
    • PREFIX overrides the installation path and should usually -be set to /usr. Setting this also changes the module paths and -the paths needed to locate the shared library.
      • -
    • DESTDIR is an absolute path which allows you to install -to a shadow tree instead of the root tree of the build system.
      • -
    • MULTILIB sets the architecture-specific library path component -for multilib systems. The default is lib.
      • -
    • Have a look at the top-level Makefile and src/Makefile -for additional variables to tweak. The following variables may be -overridden, but it's not recommended, except for special needs -like cross-builds: -BUILDMODE, CC, HOST_CC, STATIC_CC, DYNAMIC_CC, CFLAGS, HOST_CFLAGS, -TARGET_CFLAGS, LDFLAGS, HOST_LDFLAGS, TARGET_LDFLAGS, TARGET_SHLDFLAGS, -TARGET_FLAGS, LIBS, HOST_LIBS, TARGET_LIBS, CROSS, HOST_SYS, TARGET_SYS -
      • -
    -

    -The build system has a special target for an amalgamated build, i.e. -make amalg. This compiles the LuaJIT core as one huge C file -and allows GCC to generate faster and shorter code. Alas, this requires -lots of memory during the build. This may be a problem for some users, -that's why it's not enabled by default. But it shouldn't be a problem for -most build farms. It's recommended that binary distributions use this -target for their LuaJIT builds. -

    -

    -The tl;dr version of the above: -

    -
    -make amalg PREFIX=/usr && \
-make install PREFIX=/usr DESTDIR=/tmp/buildroot
-
    -

    -Finally, if you encounter any difficulties, please -contact me first, instead of releasing a broken -package onto unsuspecting users. Because they'll usually gonna complain -to me (the upstream) and not you (the package maintainer), anyway. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/luajit.html b/src/3rd party/luajit-2.0-BAK/doc/luajit.html deleted file mode 100644 index 721f636b522..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/luajit.html +++ /dev/null @@ -1,236 +0,0 @@ - - - -LuaJIT - - - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT is a Just-In-Time Compiler (JIT) for the -» Lua programming language. -Lua is a powerful, dynamic and light-weight programming language. -It may be embedded or used as a general-purpose, stand-alone language. -

    -

    -LuaJIT is Copyright © 2005-2015 Mike Pall, released under the -» MIT open source license. -

    -

    -

    - -

    Compatibility

    - - -
    WindowsLinuxBSDOSXPOSIX
    - - -
    EmbeddedAndroidiOS
    - - -
    PS3PS4PS VitaXbox 360
    - - -
    GCCCLANG
    LLVM    		MSVC
    - - -
    x86x64ARMARM64PPCMIPS
    - - -
    Lua 5.1
    API+ABI    		+ JIT+ BitOp+ FFIDrop-in
    DLL/.so
    - -

    Overview

    - - - - - - - - - -
    3x
    -  100x    		115 KB
    VM    		90 KB
    JIT    		63 KLOC
    C    		24 KLOC
    ASM    		11 KLOC
    Lua
    -

    -LuaJIT has been successfully used as a scripting middleware in -games, appliances, network and graphics apps, numerical simulations, -trading platforms and many other specialty applications. It scales from -embedded devices, smartphones, desktops up to server farms. It combines -high flexibility with » high performance -and an unmatched low memory footprint. -

    -

    -LuaJIT has been in continuous development since 2005. It's widely -considered to be one of the fastest dynamic language -implementations. It has outperformed other dynamic languages on many -cross-language benchmarks since its first release — often by a -substantial margin. -

    -

    -For LuaJIT 2.0, the whole VM has been rewritten from the ground up -and relentlessly optimized for performance. It combines a high-speed -interpreter, written in assembler, with a state-of-the-art JIT -compiler. -

    -

    -An innovative trace compiler is integrated with advanced, -SSA-based optimizations and highly tuned code generation backends. -A substantial reduction of the overhead associated with dynamic languages -allows it to break into the performance range traditionally reserved for -offline, static language compilers. -

    - -

    More ...

    -

    -Please select a sub-topic in the navigation bar to learn more about LuaJIT. -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/running.html b/src/3rd party/luajit-2.0-BAK/doc/running.html deleted file mode 100644 index 2b764dc825e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/running.html +++ /dev/null @@ -1,309 +0,0 @@ - - - -Running LuaJIT - - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT has only a single stand-alone executable, called luajit on -POSIX systems or luajit.exe on Windows. It can be used to run simple -Lua statements or whole Lua applications from the command line. It has an -interactive mode, too. -

    - -

    Command Line Options

    -

    -The luajit stand-alone executable is just a slightly modified -version of the regular lua stand-alone executable. -It supports the same basic options, too. luajit -h -prints a short list of the available options. Please have a look at the -» Lua manual -for details. -

    -

    -LuaJIT has some additional options: -

    - -

    -b[options] input output

    -

    -This option saves or lists bytecode. The following additional options -are accepted: -

    -
      -
    • -l — Only list bytecode.
      • -
    • -s — Strip debug info (this is the default).
      • -
    • -g — Keep debug info.
      • -
    • -n name — Set module name (default: auto-detect from input name)
      • -
    • -t type — Set output file type (default: auto-detect from output name).
      • -
    • -a arch — Override architecture for object files (default: native).
      • -
    • -o os — Override OS for object files (default: native).
      • -
    • -e chunk — Use chunk string as input.
      • -
    • - (a single minus sign) — Use stdin as input and/or stdout as output.
      • -
    -

    -The output file type is auto-detected from the extension of the output -file name: -

    -
      -
    • c — C source file, exported bytecode data.
      • -
    • h — C header file, static bytecode data.
      • -
    • obj or o — Object file, exported bytecode data -(OS- and architecture-specific).
      • -
    • raw or any other extension — Raw bytecode file (portable). -
    -

    -Notes: -

    -
      -
    • See also string.dump() -for information on bytecode portability and compatibility.
      • -
    • A file in raw bytecode format is auto-detected and can be loaded like -any Lua source file. E.g. directly from the command line or with -loadfile(), dofile() etc.
      • -
    • To statically embed the bytecode of a module in your application, -generate an object file and just link it with your application.
      • -
    • On most ELF-based systems (e.g. Linux) you need to explicitly export the -global symbols when linking your application, e.g. with: -Wl,-E
      • -
    • require() tries to load embedded bytecode data from exported -symbols (in *.exe or lua51.dll on Windows) and from -shared libraries in package.cpath.
      • -
    -

    -Typical usage examples: -

    -
    -luajit -b test.lua test.out                 # Save bytecode to test.out
-luajit -bg test.lua test.out                # Keep debug info
-luajit -be "print('hello world')" test.out  # Save cmdline script
-
-luajit -bl test.lua                         # List to stdout
-luajit -bl test.lua test.txt                # List to test.txt
-luajit -ble "print('hello world')"          # List cmdline script
-
-luajit -b test.lua test.obj                 # Generate object file
-# Link test.obj with your application and load it with require("test")
-
    - -

    -j cmd[=arg[,arg...]]

    -

    -This option performs a LuaJIT control command or activates one of the -loadable extension modules. The command is first looked up in the -jit.* library. If no matching function is found, a module -named jit.<cmd> is loaded and the start() -function of the module is called with the specified arguments (if -any). The space between -j and cmd is optional. -

    -

    -Here are the available LuaJIT control commands: -

    -
      -
    • -jon — Turns the JIT compiler on (default).
      • -
    • -joff — Turns the JIT compiler off (only use the interpreter).
      • -
    • -jflush — Flushes the whole cache of compiled code.
      • -
    • -jv — Shows verbose information about the progress of the JIT compiler.
      • -
    • -jdump — Dumps the code and structures used in various compiler stages.
      • -
    • -jp — Start the integrated profiler.
      • -
    -

    -The -jv and -jdump commands are extension modules -written in Lua. They are mainly used for debugging the JIT compiler -itself. For a description of their options and output format, please -read the comment block at the start of their source. -They can be found in the lib directory of the source -distribution or installed under the jit directory. By default -this is /usr/local/share/luajit-2.0.3/jit on POSIX -systems. -

    - -

    -O[level]
    --O[+]flag   -O-flag
    --Oparam=value

    -

    -This options allows fine-tuned control of the optimizations used by -the JIT compiler. This is mainly intended for debugging LuaJIT itself. -Please note that the JIT compiler is extremely fast (we are talking -about the microsecond to millisecond range). Disabling optimizations -doesn't have any visible impact on its overhead, but usually generates -code that runs slower. -

    -

    -The first form sets an optimization level — this enables a -specific mix of optimization flags. -O0 turns off all -optimizations and higher numbers enable more optimizations. Omitting -the level (i.e. just -O) sets the default optimization level, -which is -O3 in the current version. -

    -

    -The second form adds or removes individual optimization flags. -The third form sets a parameter for the VM or the JIT compiler -to a specific value. -

    -

    -You can either use this option multiple times (like -Ocse --O-dce -Ohotloop=10) or separate several settings with a comma -(like -O+cse,-dce,hotloop=10). The settings are applied from -left to right and later settings override earlier ones. You can freely -mix the three forms, but note that setting an optimization level -overrides all earlier flags. -

    -

    -Here are the available flags and at what optimization levels they -are enabled: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Flag-O1-O2-O3 
    fold•••Constant Folding, Simplifications and Reassociation
    cse•••Common-Subexpression Elimination
    dce•••Dead-Code Elimination
    narrow ••Narrowing of numbers to integers
    loop ••Loop Optimizations (code hoisting)
    fwd  •Load Forwarding (L2L) and Store Forwarding (S2L)
    dse  •Dead-Store Elimination
    abc  •Array Bounds Check Elimination
    sink  •Allocation/Store Sinking
    fuse  •Fusion of operands into instructions
    -

    -Here are the parameters and their default settings: -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    ParameterDefault 
    maxtrace1000Max. number of traces in the cache
    maxrecord4000Max. number of recorded IR instructions
    maxirconst500Max. number of IR constants of a trace
    maxside100Max. number of side traces of a root trace
    maxsnap500Max. number of snapshots for a trace
    hotloop56Number of iterations to detect a hot loop or hot call
    hotexit10Number of taken exits to start a side trace
    tryside4Number of attempts to compile a side trace
    instunroll4Max. unroll factor for instable loops
    loopunroll15Max. unroll factor for loop ops in side traces
    callunroll3Max. unroll factor for pseudo-recursive calls
    recunroll2Min. unroll factor for true recursion
    sizemcode32Size of each machine code area in KBytes (Windows: 64K)
    maxmcode512Max. total size of all machine code areas in KBytes
    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/doc/status.html b/src/3rd party/luajit-2.0-BAK/doc/status.html deleted file mode 100644 index cf137ee027c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/doc/status.html +++ /dev/null @@ -1,127 +0,0 @@ - - - -Status & Roadmap - - - - - - - - - -
    -Lua -
    - - -
    -

    -LuaJIT 2.0 is the current -stable branch. This branch is in -feature-freeze — new features will only be added to LuaJIT 2.1. -

    - -

    Current Status

    -

    -LuaJIT ought to run all Lua 5.1-compatible source code just fine. -It's considered a serious bug if the VM crashes or produces unexpected -results — please report this. -

    -

    -Known incompatibilities and issues in LuaJIT 2.0: -

    -
      -
    • -There are some differences in implementation-defined behavior. -These either have a good reason, are arbitrary design choices -or are due to quirks in the VM. The latter cases may get fixed if a -demonstrable need is shown. -
      • -
    • -The Lua debug API is missing a couple of features (return -hooks for non-Lua functions) and shows slightly different behavior -in LuaJIT (no per-coroutine hooks, no tail call counting). -
      • -
    • -Some checks are missing in the JIT-compiled code for obscure situations -with open upvalues aliasing one of the SSA slots later on (or -vice versa). Bonus points, if you can find a real world test case for -this. -
      • -
    • -Currently some out-of-memory errors from on-trace code are not -handled correctly. The error may fall through an on-trace -pcall or it may be passed on to the function set with -lua_atpanic on x64. This issue will be fixed with the new -garbage collector. -
      • -
    - -

    Roadmap

    -

    -Please refer to the -» LuaJIT Roadmap 2012/2013 and an -» update on release planning for details. -

    -

    -

    -
    -
    - - - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h deleted file mode 100644 index 57e0116f5ac..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.h +++ /dev/null @@ -1,456 +0,0 @@ -/* -** DynASM ARM encoding engine. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#include -#include -#include -#include - -#define DASM_ARCH "arm" - -#ifndef DASM_EXTERN -#define DASM_EXTERN(a,b,c,d) 0 -#endif - -/* Action definitions. */ -enum { - DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, - /* The following actions need a buffer position. */ - DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, - /* The following actions also have an argument. */ - DASM_REL_PC, DASM_LABEL_PC, - DASM_IMM, DASM_IMM12, DASM_IMM16, DASM_IMML8, DASM_IMML12, DASM_IMMV8, - DASM__MAX -}; - -/* Maximum number of section buffer positions for a single dasm_put() call. */ -#define DASM_MAXSECPOS 25 - -/* DynASM encoder status codes. Action list offset or number are or'ed in. */ -#define DASM_S_OK 0x00000000 -#define DASM_S_NOMEM 0x01000000 -#define DASM_S_PHASE 0x02000000 -#define DASM_S_MATCH_SEC 0x03000000 -#define DASM_S_RANGE_I 0x11000000 -#define DASM_S_RANGE_SEC 0x12000000 -#define DASM_S_RANGE_LG 0x13000000 -#define DASM_S_RANGE_PC 0x14000000 -#define DASM_S_RANGE_REL 0x15000000 -#define DASM_S_UNDEF_LG 0x21000000 -#define DASM_S_UNDEF_PC 0x22000000 - -/* Macros to convert positions (8 bit section + 24 bit index). */ -#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) -#define DASM_POS2BIAS(pos) ((pos)&0xff000000) -#define DASM_SEC2POS(sec) ((sec)<<24) -#define DASM_POS2SEC(pos) ((pos)>>24) -#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) - -/* Action list type. */ -typedef const unsigned int *dasm_ActList; - -/* Per-section structure. */ -typedef struct dasm_Section { - int *rbuf; /* Biased buffer pointer (negative section bias). */ - int *buf; /* True buffer pointer. */ - size_t bsize; /* Buffer size in bytes. */ - int pos; /* Biased buffer position. */ - int epos; /* End of biased buffer position - max single put. */ - int ofs; /* Byte offset into section. */ -} dasm_Section; - -/* Core structure holding the DynASM encoding state. */ -struct dasm_State { - size_t psize; /* Allocated size of this structure. */ - dasm_ActList actionlist; /* Current actionlist pointer. */ - int *lglabels; /* Local/global chain/pos ptrs. */ - size_t lgsize; - int *pclabels; /* PC label chains/pos ptrs. */ - size_t pcsize; - void **globals; /* Array of globals (bias -10). */ - dasm_Section *section; /* Pointer to active section. */ - size_t codesize; /* Total size of all code sections. */ - int maxsection; /* 0 <= sectionidx < maxsection. */ - int status; /* Status code. */ - dasm_Section sections[1]; /* All sections. Alloc-extended. */ -}; - -/* The size of the core structure depends on the max. number of sections. */ -#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) - - -/* Initialize DynASM state. */ -void dasm_init(Dst_DECL, int maxsection) -{ - dasm_State *D; - size_t psz = 0; - int i; - Dst_REF = NULL; - DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); - D = Dst_REF; - D->psize = psz; - D->lglabels = NULL; - D->lgsize = 0; - D->pclabels = NULL; - D->pcsize = 0; - D->globals = NULL; - D->maxsection = maxsection; - for (i = 0; i < maxsection; i++) { - D->sections[i].buf = NULL; /* Need this for pass3. */ - D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); - D->sections[i].bsize = 0; - D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ - } -} - -/* Free DynASM state. */ -void dasm_free(Dst_DECL) -{ - dasm_State *D = Dst_REF; - int i; - for (i = 0; i < D->maxsection; i++) - if (D->sections[i].buf) - DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); - if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); - if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); - DASM_M_FREE(Dst, D, D->psize); -} - -/* Setup global label array. Must be called before dasm_setup(). */ -void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) -{ - dasm_State *D = Dst_REF; - D->globals = gl - 10; /* Negative bias to compensate for locals. */ - DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); -} - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -void dasm_growpc(Dst_DECL, unsigned int maxpc) -{ - dasm_State *D = Dst_REF; - size_t osz = D->pcsize; - DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); - memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); -} - -/* Setup encoder. */ -void dasm_setup(Dst_DECL, const void *actionlist) -{ - dasm_State *D = Dst_REF; - int i; - D->actionlist = (dasm_ActList)actionlist; - D->status = DASM_S_OK; - D->section = &D->sections[0]; - memset((void *)D->lglabels, 0, D->lgsize); - if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); - for (i = 0; i < D->maxsection; i++) { - D->sections[i].pos = DASM_SEC2POS(i); - D->sections[i].ofs = 0; - } -} - - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) { \ - D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) -#define CKPL(kind, st) \ - do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ - D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) -#else -#define CK(x, st) ((void)0) -#define CKPL(kind, st) ((void)0) -#endif - -static int dasm_imm12(unsigned int n) -{ - int i; - for (i = 0; i < 16; i++, n = (n << 2) | (n >> 30)) - if (n <= 255) return (int)(n + (i << 8)); - return -1; -} - -/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ -void dasm_put(Dst_DECL, int start, ...) -{ - va_list ap; - dasm_State *D = Dst_REF; - dasm_ActList p = D->actionlist + start; - dasm_Section *sec = D->section; - int pos = sec->pos, ofs = sec->ofs; - int *b; - - if (pos >= sec->epos) { - DASM_M_GROW(Dst, int, sec->buf, sec->bsize, - sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); - sec->rbuf = sec->buf - DASM_POS2BIAS(pos); - sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); - } - - b = sec->rbuf; - b[pos++] = start; - - va_start(ap, start); - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - if (action >= DASM__MAX) { - ofs += 4; - } else { - int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; - switch (action) { - case DASM_STOP: goto stop; - case DASM_SECTION: - n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); - D->section = &D->sections[n]; goto stop; - case DASM_ESC: p++; ofs += 4; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; - case DASM_REL_LG: - n = (ins & 2047) - 10; pl = D->lglabels + n; - /* Bkwd rel or global. */ - if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } - pl += 10; n = *pl; - if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ - goto linkrel; - case DASM_REL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putrel: - n = *pl; - if (n < 0) { /* Label exists. Get label pos and store it. */ - b[pos] = -n; - } else { - linkrel: - b[pos] = n; /* Else link to rel chain, anchored at label. */ - *pl = pos; - } - pos++; - break; - case DASM_LABEL_LG: - pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; - case DASM_LABEL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putlabel: - n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; - } - *pl = -pos; /* Label exists now. */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_IMM: - case DASM_IMM16: -#ifdef DASM_CHECKS - CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); - if ((ins & 0x8000)) - CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); - else - CK((n>>((ins>>5)&31)) == 0, RANGE_I); -#endif - b[pos++] = n; - break; - case DASM_IMMV8: - CK((n & 3) == 0, RANGE_I); - n >>= 2; - case DASM_IMML8: - case DASM_IMML12: - CK(n >= 0 ? ((n>>((ins>>5)&31)) == 0) : - (((-n)>>((ins>>5)&31)) == 0), RANGE_I); - b[pos++] = n; - break; - case DASM_IMM12: - CK(dasm_imm12((unsigned int)n) != -1, RANGE_I); - b[pos++] = n; - break; - } - } - } -stop: - va_end(ap); - sec->pos = pos; - sec->ofs = ofs; -} -#undef CK - -/* Pass 2: Link sections, shrink aligns, fix label offsets. */ -int dasm_link(Dst_DECL, size_t *szp) -{ - dasm_State *D = Dst_REF; - int secnum; - int ofs = 0; - -#ifdef DASM_CHECKS - *szp = 0; - if (D->status != DASM_S_OK) return D->status; - { - int pc; - for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) - if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; - } -#endif - - { /* Handle globals not defined in this translation unit. */ - int idx; - for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { - int n = D->lglabels[idx]; - /* Undefined label: Collapse rel chain and replace with marker (< 0). */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } - } - } - - /* Combine all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->rbuf; - int pos = DASM_SEC2POS(secnum); - int lastpos = sec->pos; - - while (pos != lastpos) { - dasm_ActList p = D->actionlist + b[pos++]; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: p++; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; - case DASM_REL_LG: case DASM_REL_PC: pos++; break; - case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; - case DASM_IMM: case DASM_IMM12: case DASM_IMM16: - case DASM_IMML8: case DASM_IMML12: case DASM_IMMV8: pos++; break; - } - } - stop: (void)0; - } - ofs += sec->ofs; /* Next section starts right after current section. */ - } - - D->codesize = ofs; /* Total size of all code sections */ - *szp = ofs; - return DASM_S_OK; -} - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) -#else -#define CK(x, st) ((void)0) -#endif - -/* Pass 3: Encode sections. */ -int dasm_encode(Dst_DECL, void *buffer) -{ - dasm_State *D = Dst_REF; - char *base = (char *)buffer; - unsigned int *cp = (unsigned int *)buffer; - int secnum; - - /* Encode all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->buf; - int *endb = sec->rbuf + sec->pos; - - while (b != endb) { - dasm_ActList p = D->actionlist + *b++; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: *cp++ = *p++; break; - case DASM_REL_EXT: - n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins&2047), !(ins&2048)); - goto patchrel; - case DASM_ALIGN: - ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0xe1a00000; - break; - case DASM_REL_LG: - CK(n >= 0, UNDEF_LG); - case DASM_REL_PC: - CK(n >= 0, UNDEF_PC); - n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base) - 4; - patchrel: - if ((ins & 0x800) == 0) { - CK((n & 3) == 0 && ((n+0x02000000) >> 26) == 0, RANGE_REL); - cp[-1] |= ((n >> 2) & 0x00ffffff); - } else if ((ins & 0x1000)) { - CK((n & 3) == 0 && -256 <= n && n <= 256, RANGE_REL); - goto patchimml8; - } else if ((ins & 0x2000) == 0) { - CK((n & 3) == 0 && -4096 <= n && n <= 4096, RANGE_REL); - goto patchimml; - } else { - CK((n & 3) == 0 && -1020 <= n && n <= 1020, RANGE_REL); - n >>= 2; - goto patchimml; - } - break; - case DASM_LABEL_LG: - ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); - break; - case DASM_LABEL_PC: break; - case DASM_IMM: - cp[-1] |= ((n>>((ins>>10)&31)) & ((1<<((ins>>5)&31))-1)) << (ins&31); - break; - case DASM_IMM12: - cp[-1] |= dasm_imm12((unsigned int)n); - break; - case DASM_IMM16: - cp[-1] |= ((n & 0xf000) << 4) | (n & 0x0fff); - break; - case DASM_IMML8: patchimml8: - cp[-1] |= n >= 0 ? (0x00800000 | (n & 0x0f) | ((n & 0xf0) << 4)) : - ((-n & 0x0f) | ((-n & 0xf0) << 4)); - break; - case DASM_IMML12: case DASM_IMMV8: patchimml: - cp[-1] |= n >= 0 ? (0x00800000 | n) : (-n); - break; - default: *cp++ = ins; break; - } - } - stop: (void)0; - } - } - - if (base + D->codesize != (char *)cp) /* Check for phase errors. */ - return DASM_S_PHASE; - return DASM_S_OK; -} -#undef CK - -/* Get PC label offset. */ -int dasm_getpclabel(Dst_DECL, unsigned int pc) -{ - dasm_State *D = Dst_REF; - if (pc*sizeof(int) < D->pcsize) { - int pos = D->pclabels[pc]; - if (pos < 0) return *DASM_POS2PTR(D, -pos); - if (pos > 0) return -1; /* Undefined. */ - } - return -2; /* Unused or out of range. */ -} - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -int dasm_checkstep(Dst_DECL, int secmatch) -{ - dasm_State *D = Dst_REF; - if (D->status == DASM_S_OK) { - int i; - for (i = 1; i <= 9; i++) { - if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } - D->lglabels[i] = 0; - } - } - if (D->status == DASM_S_OK && secmatch >= 0 && - D->section != &D->sections[secmatch]) - D->status = DASM_S_MATCH_SEC|(D->section-D->sections); - return D->status; -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua deleted file mode 100644 index 90a259c5c33..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm.lua +++ /dev/null @@ -1,1125 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM ARM module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- - --- Module information: -local _info = { - arch = "arm", - description = "DynASM ARM module", - version = "1.3.0", - vernum = 10300, - release = "2011-05-05", - author = "Mike Pall", - license = "MIT", -} - --- Exported glue functions for the arch-specific module. -local _M = { _info = _info } - --- Cache library functions. -local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs -local assert, setmetatable, rawget = assert, setmetatable, rawget -local _s = string -local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char -local match, gmatch, gsub = _s.match, _s.gmatch, _s.gsub -local concat, sort, insert = table.concat, table.sort, table.insert -local bit = bit or require("bit") -local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift -local ror, tohex = bit.ror, bit.tohex - --- Inherited tables and callbacks. -local g_opt, g_arch -local wline, werror, wfatal, wwarn - --- Action name list. --- CHECK: Keep this in sync with the C code! -local action_names = { - "STOP", "SECTION", "ESC", "REL_EXT", - "ALIGN", "REL_LG", "LABEL_LG", - "REL_PC", "LABEL_PC", "IMM", "IMM12", "IMM16", "IMML8", "IMML12", "IMMV8", -} - --- Maximum number of section buffer positions for dasm_put(). --- CHECK: Keep this in sync with the C code! -local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. - --- Action name -> action number. -local map_action = {} -for n,name in ipairs(action_names) do - map_action[name] = n-1 -end - --- Action list buffer. -local actlist = {} - --- Argument list for next dasm_put(). Start with offset 0 into action list. -local actargs = { 0 } - --- Current number of section buffer positions for dasm_put(). -local secpos = 1 - ------------------------------------------------------------------------------- - --- Dump action names and numbers. -local function dumpactions(out) - out:write("DynASM encoding engine action codes:\n") - for n,name in ipairs(action_names) do - local num = map_action[name] - out:write(format(" %-10s %02X %d\n", name, num, num)) - end - out:write("\n") -end - --- Write action list buffer as a huge static C array. -local function writeactions(out, name) - local nn = #actlist - if nn == 0 then nn = 1; actlist[0] = map_action.STOP end - out:write("static const unsigned int ", name, "[", nn, "] = {\n") - for i = 1,nn-1 do - assert(out:write("0x", tohex(actlist[i]), ",\n")) - end - assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) -end - ------------------------------------------------------------------------------- - --- Add word to action list. -local function wputxw(n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[#actlist+1] = n -end - --- Add action to list with optional arg. Advance buffer pos, too. -local function waction(action, val, a, num) - local w = assert(map_action[action], "bad action name `"..action.."'") - wputxw(w * 0x10000 + (val or 0)) - if a then actargs[#actargs+1] = a end - if a or num then secpos = secpos + (num or 1) end -end - --- Flush action list (intervening C code or buffer pos overflow). -local function wflush(term) - if #actlist == actargs[1] then return end -- Nothing to flush. - if not term then waction("STOP") end -- Terminate action list. - wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) - actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). - secpos = 1 -- The actionlist offset occupies a buffer position, too. -end - --- Put escaped word. -local function wputw(n) - if n <= 0x000fffff then waction("ESC") end - wputxw(n) -end - --- Reserve position for word. -local function wpos() - local pos = #actlist+1 - actlist[pos] = "" - return pos -end - --- Store word to reserved position. -local function wputpos(pos, n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - if n <= 0x000fffff then - insert(actlist, pos+1, n) - n = map_action.ESC * 0x10000 - end - actlist[pos] = n -end - ------------------------------------------------------------------------------- - --- Global label name -> global label number. With auto assignment on 1st use. -local next_global = 20 -local map_global = setmetatable({}, { __index = function(t, name) - if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end - local n = next_global - if n > 2047 then werror("too many global labels") end - next_global = n + 1 - t[name] = n - return n -end}) - --- Dump global labels. -local function dumpglobals(out, lvl) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("Global labels:\n") - for i=20,next_global-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write global label enum. -local function writeglobals(out, prefix) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("enum {\n") - for i=20,next_global-1 do - out:write(" ", prefix, t[i], ",\n") - end - out:write(" ", prefix, "_MAX\n};\n") -end - --- Write global label names. -local function writeglobalnames(out, name) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=20,next_global-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Extern label name -> extern label number. With auto assignment on 1st use. -local next_extern = 0 -local map_extern_ = {} -local map_extern = setmetatable({}, { __index = function(t, name) - -- No restrictions on the name for now. - local n = next_extern - if n > 2047 then werror("too many extern labels") end - next_extern = n + 1 - t[name] = n - map_extern_[n] = name - return n -end}) - --- Dump extern labels. -local function dumpexterns(out, lvl) - out:write("Extern labels:\n") - for i=0,next_extern-1 do - out:write(format(" %s\n", map_extern_[i])) - end - out:write("\n") -end - --- Write extern label names. -local function writeexternnames(out, name) - out:write("static const char *const ", name, "[] = {\n") - for i=0,next_extern-1 do - out:write(" \"", map_extern_[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Arch-specific maps. - --- Ext. register name -> int. name. -local map_archdef = { sp = "r13", lr = "r14", pc = "r15", } - --- Int. register name -> ext. name. -local map_reg_rev = { r13 = "sp", r14 = "lr", r15 = "pc", } - -local map_type = {} -- Type name -> { ctype, reg } -local ctypenum = 0 -- Type number (for Dt... macros). - --- Reverse defines for registers. -function _M.revdef(s) - return map_reg_rev[s] or s -end - -local map_shift = { lsl = 0, lsr = 1, asr = 2, ror = 3, } - -local map_cond = { - eq = 0, ne = 1, cs = 2, cc = 3, mi = 4, pl = 5, vs = 6, vc = 7, - hi = 8, ls = 9, ge = 10, lt = 11, gt = 12, le = 13, al = 14, - hs = 2, lo = 3, -} - ------------------------------------------------------------------------------- - --- Template strings for ARM instructions. -local map_op = { - -- Basic data processing instructions. - and_3 = "e0000000DNPs", - eor_3 = "e0200000DNPs", - sub_3 = "e0400000DNPs", - rsb_3 = "e0600000DNPs", - add_3 = "e0800000DNPs", - adc_3 = "e0a00000DNPs", - sbc_3 = "e0c00000DNPs", - rsc_3 = "e0e00000DNPs", - tst_2 = "e1100000NP", - teq_2 = "e1300000NP", - cmp_2 = "e1500000NP", - cmn_2 = "e1700000NP", - orr_3 = "e1800000DNPs", - mov_2 = "e1a00000DPs", - bic_3 = "e1c00000DNPs", - mvn_2 = "e1e00000DPs", - - and_4 = "e0000000DNMps", - eor_4 = "e0200000DNMps", - sub_4 = "e0400000DNMps", - rsb_4 = "e0600000DNMps", - add_4 = "e0800000DNMps", - adc_4 = "e0a00000DNMps", - sbc_4 = "e0c00000DNMps", - rsc_4 = "e0e00000DNMps", - tst_3 = "e1100000NMp", - teq_3 = "e1300000NMp", - cmp_3 = "e1500000NMp", - cmn_3 = "e1700000NMp", - orr_4 = "e1800000DNMps", - mov_3 = "e1a00000DMps", - bic_4 = "e1c00000DNMps", - mvn_3 = "e1e00000DMps", - - lsl_3 = "e1a00000DMws", - lsr_3 = "e1a00020DMws", - asr_3 = "e1a00040DMws", - ror_3 = "e1a00060DMws", - rrx_2 = "e1a00060DMs", - - -- Multiply and multiply-accumulate. - mul_3 = "e0000090NMSs", - mla_4 = "e0200090NMSDs", - umaal_4 = "e0400090DNMSs", -- v6 - mls_4 = "e0600090DNMSs", -- v6T2 - umull_4 = "e0800090DNMSs", - umlal_4 = "e0a00090DNMSs", - smull_4 = "e0c00090DNMSs", - smlal_4 = "e0e00090DNMSs", - - -- Halfword multiply and multiply-accumulate. - smlabb_4 = "e1000080NMSD", -- v5TE - smlatb_4 = "e10000a0NMSD", -- v5TE - smlabt_4 = "e10000c0NMSD", -- v5TE - smlatt_4 = "e10000e0NMSD", -- v5TE - smlawb_4 = "e1200080NMSD", -- v5TE - smulwb_3 = "e12000a0NMS", -- v5TE - smlawt_4 = "e12000c0NMSD", -- v5TE - smulwt_3 = "e12000e0NMS", -- v5TE - smlalbb_4 = "e1400080NMSD", -- v5TE - smlaltb_4 = "e14000a0NMSD", -- v5TE - smlalbt_4 = "e14000c0NMSD", -- v5TE - smlaltt_4 = "e14000e0NMSD", -- v5TE - smulbb_3 = "e1600080NMS", -- v5TE - smultb_3 = "e16000a0NMS", -- v5TE - smulbt_3 = "e16000c0NMS", -- v5TE - smultt_3 = "e16000e0NMS", -- v5TE - - -- Miscellaneous data processing instructions. - clz_2 = "e16f0f10DM", -- v5T - rev_2 = "e6bf0f30DM", -- v6 - rev16_2 = "e6bf0fb0DM", -- v6 - revsh_2 = "e6ff0fb0DM", -- v6 - sel_3 = "e6800fb0DNM", -- v6 - usad8_3 = "e780f010NMS", -- v6 - usada8_4 = "e7800010NMSD", -- v6 - rbit_2 = "e6ff0f30DM", -- v6T2 - movw_2 = "e3000000DW", -- v6T2 - movt_2 = "e3400000DW", -- v6T2 - -- Note: the X encodes width-1, not width. - sbfx_4 = "e7a00050DMvX", -- v6T2 - ubfx_4 = "e7e00050DMvX", -- v6T2 - -- Note: the X encodes the msb field, not the width. - bfc_3 = "e7c0001fDvX", -- v6T2 - bfi_4 = "e7c00010DMvX", -- v6T2 - - -- Packing and unpacking instructions. - pkhbt_3 = "e6800010DNM", pkhbt_4 = "e6800010DNMv", -- v6 - pkhtb_3 = "e6800050DNM", pkhtb_4 = "e6800050DNMv", -- v6 - sxtab_3 = "e6a00070DNM", sxtab_4 = "e6a00070DNMv", -- v6 - sxtab16_3 = "e6800070DNM", sxtab16_4 = "e6800070DNMv", -- v6 - sxtah_3 = "e6b00070DNM", sxtah_4 = "e6b00070DNMv", -- v6 - sxtb_2 = "e6af0070DM", sxtb_3 = "e6af0070DMv", -- v6 - sxtb16_2 = "e68f0070DM", sxtb16_3 = "e68f0070DMv", -- v6 - sxth_2 = "e6bf0070DM", sxth_3 = "e6bf0070DMv", -- v6 - uxtab_3 = "e6e00070DNM", uxtab_4 = "e6e00070DNMv", -- v6 - uxtab16_3 = "e6c00070DNM", uxtab16_4 = "e6c00070DNMv", -- v6 - uxtah_3 = "e6f00070DNM", uxtah_4 = "e6f00070DNMv", -- v6 - uxtb_2 = "e6ef0070DM", uxtb_3 = "e6ef0070DMv", -- v6 - uxtb16_2 = "e6cf0070DM", uxtb16_3 = "e6cf0070DMv", -- v6 - uxth_2 = "e6ff0070DM", uxth_3 = "e6ff0070DMv", -- v6 - - -- Saturating instructions. - qadd_3 = "e1000050DMN", -- v5TE - qsub_3 = "e1200050DMN", -- v5TE - qdadd_3 = "e1400050DMN", -- v5TE - qdsub_3 = "e1600050DMN", -- v5TE - -- Note: the X for ssat* encodes sat_imm-1, not sat_imm. - ssat_3 = "e6a00010DXM", ssat_4 = "e6a00010DXMp", -- v6 - usat_3 = "e6e00010DXM", usat_4 = "e6e00010DXMp", -- v6 - ssat16_3 = "e6a00f30DXM", -- v6 - usat16_3 = "e6e00f30DXM", -- v6 - - -- Parallel addition and subtraction. - sadd16_3 = "e6100f10DNM", -- v6 - sasx_3 = "e6100f30DNM", -- v6 - ssax_3 = "e6100f50DNM", -- v6 - ssub16_3 = "e6100f70DNM", -- v6 - sadd8_3 = "e6100f90DNM", -- v6 - ssub8_3 = "e6100ff0DNM", -- v6 - qadd16_3 = "e6200f10DNM", -- v6 - qasx_3 = "e6200f30DNM", -- v6 - qsax_3 = "e6200f50DNM", -- v6 - qsub16_3 = "e6200f70DNM", -- v6 - qadd8_3 = "e6200f90DNM", -- v6 - qsub8_3 = "e6200ff0DNM", -- v6 - shadd16_3 = "e6300f10DNM", -- v6 - shasx_3 = "e6300f30DNM", -- v6 - shsax_3 = "e6300f50DNM", -- v6 - shsub16_3 = "e6300f70DNM", -- v6 - shadd8_3 = "e6300f90DNM", -- v6 - shsub8_3 = "e6300ff0DNM", -- v6 - uadd16_3 = "e6500f10DNM", -- v6 - uasx_3 = "e6500f30DNM", -- v6 - usax_3 = "e6500f50DNM", -- v6 - usub16_3 = "e6500f70DNM", -- v6 - uadd8_3 = "e6500f90DNM", -- v6 - usub8_3 = "e6500ff0DNM", -- v6 - uqadd16_3 = "e6600f10DNM", -- v6 - uqasx_3 = "e6600f30DNM", -- v6 - uqsax_3 = "e6600f50DNM", -- v6 - uqsub16_3 = "e6600f70DNM", -- v6 - uqadd8_3 = "e6600f90DNM", -- v6 - uqsub8_3 = "e6600ff0DNM", -- v6 - uhadd16_3 = "e6700f10DNM", -- v6 - uhasx_3 = "e6700f30DNM", -- v6 - uhsax_3 = "e6700f50DNM", -- v6 - uhsub16_3 = "e6700f70DNM", -- v6 - uhadd8_3 = "e6700f90DNM", -- v6 - uhsub8_3 = "e6700ff0DNM", -- v6 - - -- Load/store instructions. - str_2 = "e4000000DL", str_3 = "e4000000DL", str_4 = "e4000000DL", - strb_2 = "e4400000DL", strb_3 = "e4400000DL", strb_4 = "e4400000DL", - ldr_2 = "e4100000DL", ldr_3 = "e4100000DL", ldr_4 = "e4100000DL", - ldrb_2 = "e4500000DL", ldrb_3 = "e4500000DL", ldrb_4 = "e4500000DL", - strh_2 = "e00000b0DL", strh_3 = "e00000b0DL", - ldrh_2 = "e01000b0DL", ldrh_3 = "e01000b0DL", - ldrd_2 = "e00000d0DL", ldrd_3 = "e00000d0DL", -- v5TE - ldrsb_2 = "e01000d0DL", ldrsb_3 = "e01000d0DL", - strd_2 = "e00000f0DL", strd_3 = "e00000f0DL", -- v5TE - ldrsh_2 = "e01000f0DL", ldrsh_3 = "e01000f0DL", - - ldm_2 = "e8900000oR", ldmia_2 = "e8900000oR", ldmfd_2 = "e8900000oR", - ldmda_2 = "e8100000oR", ldmfa_2 = "e8100000oR", - ldmdb_2 = "e9100000oR", ldmea_2 = "e9100000oR", - ldmib_2 = "e9900000oR", ldmed_2 = "e9900000oR", - stm_2 = "e8800000oR", stmia_2 = "e8800000oR", stmfd_2 = "e8800000oR", - stmda_2 = "e8000000oR", stmfa_2 = "e8000000oR", - stmdb_2 = "e9000000oR", stmea_2 = "e9000000oR", - stmib_2 = "e9800000oR", stmed_2 = "e9800000oR", - pop_1 = "e8bd0000R", push_1 = "e92d0000R", - - -- Branch instructions. - b_1 = "ea000000B", - bl_1 = "eb000000B", - blx_1 = "e12fff30C", - bx_1 = "e12fff10M", - - -- Miscellaneous instructions. - nop_0 = "e1a00000", - mrs_1 = "e10f0000D", - bkpt_1 = "e1200070K", -- v5T - svc_1 = "ef000000T", swi_1 = "ef000000T", - ud_0 = "e7f001f0", - - -- VFP instructions. - ["vadd.f32_3"] = "ee300a00dnm", - ["vadd.f64_3"] = "ee300b00Gdnm", - ["vsub.f32_3"] = "ee300a40dnm", - ["vsub.f64_3"] = "ee300b40Gdnm", - ["vmul.f32_3"] = "ee200a00dnm", - ["vmul.f64_3"] = "ee200b00Gdnm", - ["vnmul.f32_3"] = "ee200a40dnm", - ["vnmul.f64_3"] = "ee200b40Gdnm", - ["vmla.f32_3"] = "ee000a00dnm", - ["vmla.f64_3"] = "ee000b00Gdnm", - ["vmls.f32_3"] = "ee000a40dnm", - ["vmls.f64_3"] = "ee000b40Gdnm", - ["vnmla.f32_3"] = "ee100a40dnm", - ["vnmla.f64_3"] = "ee100b40Gdnm", - ["vnmls.f32_3"] = "ee100a00dnm", - ["vnmls.f64_3"] = "ee100b00Gdnm", - ["vdiv.f32_3"] = "ee800a00dnm", - ["vdiv.f64_3"] = "ee800b00Gdnm", - - ["vabs.f32_2"] = "eeb00ac0dm", - ["vabs.f64_2"] = "eeb00bc0Gdm", - ["vneg.f32_2"] = "eeb10a40dm", - ["vneg.f64_2"] = "eeb10b40Gdm", - ["vsqrt.f32_2"] = "eeb10ac0dm", - ["vsqrt.f64_2"] = "eeb10bc0Gdm", - ["vcmp.f32_2"] = "eeb40a40dm", - ["vcmp.f64_2"] = "eeb40b40Gdm", - ["vcmpe.f32_2"] = "eeb40ac0dm", - ["vcmpe.f64_2"] = "eeb40bc0Gdm", - ["vcmpz.f32_1"] = "eeb50a40d", - ["vcmpz.f64_1"] = "eeb50b40Gd", - ["vcmpze.f32_1"] = "eeb50ac0d", - ["vcmpze.f64_1"] = "eeb50bc0Gd", - - vldr_2 = "ed100a00dl|ed100b00Gdl", - vstr_2 = "ed000a00dl|ed000b00Gdl", - vldm_2 = "ec900a00or", - vldmia_2 = "ec900a00or", - vldmdb_2 = "ed100a00or", - vpop_1 = "ecbd0a00r", - vstm_2 = "ec800a00or", - vstmia_2 = "ec800a00or", - vstmdb_2 = "ed000a00or", - vpush_1 = "ed2d0a00r", - - ["vmov.f32_2"] = "eeb00a40dm|eeb00a00dY", -- #imm is VFPv3 only - ["vmov.f64_2"] = "eeb00b40Gdm|eeb00b00GdY", -- #imm is VFPv3 only - vmov_2 = "ee100a10Dn|ee000a10nD", - vmov_3 = "ec500a10DNm|ec400a10mDN|ec500b10GDNm|ec400b10GmDN", - - vmrs_0 = "eef1fa10", - vmrs_1 = "eef10a10D", - vmsr_1 = "eee10a10D", - - ["vcvt.s32.f32_2"] = "eebd0ac0dm", - ["vcvt.s32.f64_2"] = "eebd0bc0dGm", - ["vcvt.u32.f32_2"] = "eebc0ac0dm", - ["vcvt.u32.f64_2"] = "eebc0bc0dGm", - ["vcvtr.s32.f32_2"] = "eebd0a40dm", - ["vcvtr.s32.f64_2"] = "eebd0b40dGm", - ["vcvtr.u32.f32_2"] = "eebc0a40dm", - ["vcvtr.u32.f64_2"] = "eebc0b40dGm", - ["vcvt.f32.s32_2"] = "eeb80ac0dm", - ["vcvt.f64.s32_2"] = "eeb80bc0GdFm", - ["vcvt.f32.u32_2"] = "eeb80a40dm", - ["vcvt.f64.u32_2"] = "eeb80b40GdFm", - ["vcvt.f32.f64_2"] = "eeb70bc0dGm", - ["vcvt.f64.f32_2"] = "eeb70ac0GdFm", - - -- VFPv4 only: - ["vfma.f32_3"] = "eea00a00dnm", - ["vfma.f64_3"] = "eea00b00Gdnm", - ["vfms.f32_3"] = "eea00a40dnm", - ["vfms.f64_3"] = "eea00b40Gdnm", - ["vfnma.f32_3"] = "ee900a40dnm", - ["vfnma.f64_3"] = "ee900b40Gdnm", - ["vfnms.f32_3"] = "ee900a00dnm", - ["vfnms.f64_3"] = "ee900b00Gdnm", - - -- NYI: Advanced SIMD instructions. - - -- NYI: I have no need for these instructions right now: - -- swp, swpb, strex, ldrex, strexd, ldrexd, strexb, ldrexb, strexh, ldrexh - -- msr, nopv6, yield, wfe, wfi, sev, dbg, bxj, smc, srs, rfe - -- cps, setend, pli, pld, pldw, clrex, dsb, dmb, isb - -- stc, ldc, mcr, mcr2, mrc, mrc2, mcrr, mcrr2, mrrc, mrrc2, cdp, cdp2 -} - --- Add mnemonics for "s" variants. -do - local t = {} - for k,v in pairs(map_op) do - if sub(v, -1) == "s" then - local v2 = sub(v, 1, 2)..char(byte(v, 3)+1)..sub(v, 4, -2) - t[sub(k, 1, -3).."s"..sub(k, -2)] = v2 - end - end - for k,v in pairs(t) do - map_op[k] = v - end -end - ------------------------------------------------------------------------------- - -local function parse_gpr(expr) - local tname, ovreg = match(expr, "^([%w_]+):(r1?[0-9])$") - local tp = map_type[tname or expr] - if tp then - local reg = ovreg or tp.reg - if not reg then - werror("type `"..(tname or expr).."' needs a register override") - end - expr = reg - end - local r = match(expr, "^r(1?[0-9])$") - if r then - r = tonumber(r) - if r <= 15 then return r, tp end - end - werror("bad register name `"..expr.."'") -end - -local function parse_gpr_pm(expr) - local pm, expr2 = match(expr, "^([+-]?)(.*)$") - return parse_gpr(expr2), (pm == "-") -end - -local function parse_vr(expr, tp) - local t, r = match(expr, "^([sd])([0-9]+)$") - if t == tp then - r = tonumber(r) - if r <= 31 then - if t == "s" then return shr(r, 1), band(r, 1) end - return band(r, 15), shr(r, 4) - end - end - werror("bad register name `"..expr.."'") -end - -local function parse_reglist(reglist) - reglist = match(reglist, "^{%s*([^}]*)}$") - if not reglist then werror("register list expected") end - local rr = 0 - for p in gmatch(reglist..",", "%s*([^,]*),") do - local rbit = shl(1, parse_gpr(gsub(p, "%s+$", ""))) - if band(rr, rbit) ~= 0 then - werror("duplicate register `"..p.."'") - end - rr = rr + rbit - end - return rr -end - -local function parse_vrlist(reglist) - local ta, ra, tb, rb = match(reglist, - "^{%s*([sd])([0-9]+)%s*%-%s*([sd])([0-9]+)%s*}$") - ra, rb = tonumber(ra), tonumber(rb) - if ta and ta == tb and ra and rb and ra <= 31 and rb <= 31 and ra <= rb then - local nr = rb+1 - ra - if ta == "s" then - return shl(shr(ra,1),12)+shl(band(ra,1),22) + nr - else - return shl(band(ra,15),12)+shl(shr(ra,4),22) + nr*2 + 0x100 - end - end - werror("register list expected") -end - -local function parse_imm(imm, bits, shift, scale, signed) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = tonumber(imm) - if n then - local m = sar(n, scale) - if shl(m, scale) == n then - if signed then - local s = sar(m, bits-1) - if s == 0 then return shl(m, shift) - elseif s == -1 then return shl(m + shl(1, bits), shift) end - else - if sar(m, bits) == 0 then return shl(m, shift) end - end - end - werror("out of range immediate `"..imm.."'") - else - waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) - return 0 - end -end - -local function parse_imm12(imm) - local n = tonumber(imm) - if n then - local m = band(n) - for i=0,-15,-1 do - if shr(m, 8) == 0 then return m + shl(band(i, 15), 8) end - m = ror(m, 2) - end - werror("out of range immediate `"..imm.."'") - else - waction("IMM12", 0, imm) - return 0 - end -end - -local function parse_imm16(imm) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = tonumber(imm) - if n then - if shr(n, 16) == 0 then return band(n, 0x0fff) + shl(band(n, 0xf000), 4) end - werror("out of range immediate `"..imm.."'") - else - waction("IMM16", 32*16, imm) - return 0 - end -end - -local function parse_imm_load(imm, ext) - local n = tonumber(imm) - if n then - if ext then - if n >= -255 and n <= 255 then - local up = 0x00800000 - if n < 0 then n = -n; up = 0 end - return shl(band(n, 0xf0), 4) + band(n, 0x0f) + up - end - else - if n >= -4095 and n <= 4095 then - if n >= 0 then return n+0x00800000 end - return -n - end - end - werror("out of range immediate `"..imm.."'") - else - waction(ext and "IMML8" or "IMML12", 32768 + shl(ext and 8 or 12, 5), imm) - return 0 - end -end - -local function parse_shift(shift, gprok) - if shift == "rrx" then - return 3 * 32 - else - local s, s2 = match(shift, "^(%S+)%s*(.*)$") - s = map_shift[s] - if not s then werror("expected shift operand") end - if sub(s2, 1, 1) == "#" then - return parse_imm(s2, 5, 7, 0, false) + shl(s, 5) - else - if not gprok then werror("expected immediate shift operand") end - return shl(parse_gpr(s2), 8) + shl(s, 5) + 16 - end - end -end - -local function parse_label(label, def) - local prefix = sub(label, 1, 2) - -- =>label (pc label reference) - if prefix == "=>" then - return "PC", 0, sub(label, 3) - end - -- ->name (global label reference) - if prefix == "->" then - return "LG", map_global[sub(label, 3)] - end - if def then - -- [1-9] (local label definition) - if match(label, "^[1-9]$") then - return "LG", 10+tonumber(label) - end - else - -- [<>][1-9] (local label reference) - local dir, lnum = match(label, "^([<>])([1-9])$") - if dir then -- Fwd: 1-9, Bkwd: 11-19. - return "LG", lnum + (dir == ">" and 0 or 10) - end - -- extern label (extern label reference) - local extname = match(label, "^extern%s+(%S+)$") - if extname then - return "EXT", map_extern[extname] - end - end - werror("bad label `"..label.."'") -end - -local function parse_load(params, nparams, n, op) - local oplo = band(op, 255) - local ext, ldrd = (oplo ~= 0), (oplo == 208) - local d - if (ldrd or oplo == 240) then - d = band(shr(op, 12), 15) - if band(d, 1) ~= 0 then werror("odd destination register") end - end - local pn = params[n] - local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") - local p2 = params[n+1] - if not p1 then - if not p2 then - if match(pn, "^[<>=%-]") or match(pn, "^extern%s+") then - local mode, n, s = parse_label(pn, false) - waction("REL_"..mode, n + (ext and 0x1800 or 0x0800), s, 1) - return op + 15 * 65536 + 0x01000000 + (ext and 0x00400000 or 0) - end - local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local d, tp = parse_gpr(reg) - if tp then - waction(ext and "IMML8" or "IMML12", 32768 + 32*(ext and 8 or 12), - format(tp.ctypefmt, tailr)) - return op + shl(d, 16) + 0x01000000 + (ext and 0x00400000 or 0) - end - end - end - werror("expected address operand") - end - if wb == "!" then op = op + 0x00200000 end - if p2 then - if wb == "!" then werror("bad use of '!'") end - local p3 = params[n+2] - op = op + shl(parse_gpr(p1), 16) - local imm = match(p2, "^#(.*)$") - if imm then - local m = parse_imm_load(imm, ext) - if p3 then werror("too many parameters") end - op = op + m + (ext and 0x00400000 or 0) - else - local m, neg = parse_gpr_pm(p2) - if ldrd and (m == d or m-1 == d) then werror("register conflict") end - op = op + m + (neg and 0 or 0x00800000) + (ext and 0 or 0x02000000) - if p3 then op = op + parse_shift(p3) end - end - else - local p1a, p2 = match(p1, "^([^,%s]*)%s*(.*)$") - op = op + shl(parse_gpr(p1a), 16) + 0x01000000 - if p2 ~= "" then - local imm = match(p2, "^,%s*#(.*)$") - if imm then - local m = parse_imm_load(imm, ext) - op = op + m + (ext and 0x00400000 or 0) - else - local p2a, p3 = match(p2, "^,%s*([^,%s]*)%s*,?%s*(.*)$") - local m, neg = parse_gpr_pm(p2a) - if ldrd and (m == d or m-1 == d) then werror("register conflict") end - op = op + m + (neg and 0 or 0x00800000) + (ext and 0 or 0x02000000) - if p3 ~= "" then - if ext then werror("too many parameters") end - op = op + parse_shift(p3) - end - end - else - if wb == "!" then werror("bad use of '!'") end - op = op + (ext and 0x00c00000 or 0x00800000) - end - end - return op -end - -local function parse_vload(q) - local reg, imm = match(q, "^%[%s*([^,%s]*)%s*(.*)%]$") - if reg then - local d = shl(parse_gpr(reg), 16) - if imm == "" then return d end - imm = match(imm, "^,%s*#(.*)$") - if imm then - local n = tonumber(imm) - if n then - if n >= -1020 and n <= 1020 and n%4 == 0 then - return d + (n >= 0 and n/4+0x00800000 or -n/4) - end - werror("out of range immediate `"..imm.."'") - else - waction("IMMV8", 32768 + 32*8, imm) - return d - end - end - else - if match(q, "^[<>=%-]") or match(q, "^extern%s+") then - local mode, n, s = parse_label(q, false) - waction("REL_"..mode, n + 0x2800, s, 1) - return 15 * 65536 - end - local reg, tailr = match(q, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local d, tp = parse_gpr(reg) - if tp then - waction("IMMV8", 32768 + 32*8, format(tp.ctypefmt, tailr)) - return shl(d, 16) - end - end - end - werror("expected address operand") -end - ------------------------------------------------------------------------------- - --- Handle opcodes defined with template strings. -local function parse_template(params, template, nparams, pos) - local op = tonumber(sub(template, 1, 8), 16) - local n = 1 - local vr = "s" - - -- Process each character. - for p in gmatch(sub(template, 9), ".") do - local q = params[n] - if p == "D" then - op = op + shl(parse_gpr(q), 12); n = n + 1 - elseif p == "N" then - op = op + shl(parse_gpr(q), 16); n = n + 1 - elseif p == "S" then - op = op + shl(parse_gpr(q), 8); n = n + 1 - elseif p == "M" then - op = op + parse_gpr(q); n = n + 1 - elseif p == "d" then - local r,h = parse_vr(q, vr); op = op+shl(r,12)+shl(h,22); n = n + 1 - elseif p == "n" then - local r,h = parse_vr(q, vr); op = op+shl(r,16)+shl(h,7); n = n + 1 - elseif p == "m" then - local r,h = parse_vr(q, vr); op = op+r+shl(h,5); n = n + 1 - elseif p == "P" then - local imm = match(q, "^#(.*)$") - if imm then - op = op + parse_imm12(imm) + 0x02000000 - else - op = op + parse_gpr(q) - end - n = n + 1 - elseif p == "p" then - op = op + parse_shift(q, true); n = n + 1 - elseif p == "L" then - op = parse_load(params, nparams, n, op) - elseif p == "l" then - op = op + parse_vload(q) - elseif p == "B" then - local mode, n, s = parse_label(q, false) - waction("REL_"..mode, n, s, 1) - elseif p == "C" then -- blx gpr vs. blx label. - if match(q, "^([%w_]+):(r1?[0-9])$") or match(q, "^r(1?[0-9])$") then - op = op + parse_gpr(q) - else - if op < 0xe0000000 then werror("unconditional instruction") end - local mode, n, s = parse_label(q, false) - waction("REL_"..mode, n, s, 1) - op = 0xfa000000 - end - elseif p == "F" then - vr = "s" - elseif p == "G" then - vr = "d" - elseif p == "o" then - local r, wb = match(q, "^([^!]*)(!?)$") - op = op + shl(parse_gpr(r), 16) + (wb == "!" and 0x00200000 or 0) - n = n + 1 - elseif p == "R" then - op = op + parse_reglist(q); n = n + 1 - elseif p == "r" then - op = op + parse_vrlist(q); n = n + 1 - elseif p == "W" then - op = op + parse_imm16(q); n = n + 1 - elseif p == "v" then - op = op + parse_imm(q, 5, 7, 0, false); n = n + 1 - elseif p == "w" then - local imm = match(q, "^#(.*)$") - if imm then - op = op + parse_imm(q, 5, 7, 0, false); n = n + 1 - else - op = op + shl(parse_gpr(q), 8) + 16 - end - elseif p == "X" then - op = op + parse_imm(q, 5, 16, 0, false); n = n + 1 - elseif p == "Y" then - local imm = tonumber(match(q, "^#(.*)$")); n = n + 1 - if not imm or shr(imm, 8) ~= 0 then - werror("bad immediate operand") - end - op = op + shl(band(imm, 0xf0), 12) + band(imm, 0x0f) - elseif p == "K" then - local imm = tonumber(match(q, "^#(.*)$")); n = n + 1 - if not imm or shr(imm, 16) ~= 0 then - werror("bad immediate operand") - end - op = op + shl(band(imm, 0xfff0), 4) + band(imm, 0x000f) - elseif p == "T" then - op = op + parse_imm(q, 24, 0, 0, false); n = n + 1 - elseif p == "s" then - -- Ignored. - else - assert(false) - end - end - wputpos(pos, op) -end - -map_op[".template__"] = function(params, template, nparams) - if not params then return template:gsub("%x%x%x%x%x%x%x%x", "") end - - -- Limit number of section buffer positions used by a single dasm_put(). - -- A single opcode needs a maximum of 3 positions. - if secpos+3 > maxsecpos then wflush() end - local pos = wpos() - local lpos, apos, spos = #actlist, #actargs, secpos - - local ok, err - for t in gmatch(template, "[^|]+") do - ok, err = pcall(parse_template, params, t, nparams, pos) - if ok then return end - secpos = spos - actlist[lpos+1] = nil - actlist[lpos+2] = nil - actlist[lpos+3] = nil - actargs[apos+1] = nil - actargs[apos+2] = nil - actargs[apos+3] = nil - end - error(err, 0) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode to mark the position where the action list is to be emitted. -map_op[".actionlist_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeactions(out, name) end) -end - --- Pseudo-opcode to mark the position where the global enum is to be emitted. -map_op[".globals_1"] = function(params) - if not params then return "prefix" end - local prefix = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobals(out, prefix) end) -end - --- Pseudo-opcode to mark the position where the global names are to be emitted. -map_op[".globalnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobalnames(out, name) end) -end - --- Pseudo-opcode to mark the position where the extern names are to be emitted. -map_op[".externnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeexternnames(out, name) end) -end - ------------------------------------------------------------------------------- - --- Label pseudo-opcode (converted from trailing colon form). -map_op[".label_1"] = function(params) - if not params then return "[1-9] | ->global | =>pcexpr" end - if secpos+1 > maxsecpos then wflush() end - local mode, n, s = parse_label(params[1], true) - if mode == "EXT" then werror("bad label definition") end - waction("LABEL_"..mode, n, s, 1) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcodes for data storage. -map_op[".long_*"] = function(params) - if not params then return "imm..." end - for _,p in ipairs(params) do - local n = tonumber(p) - if not n then werror("bad immediate `"..p.."'") end - if n < 0 then n = n + 2^32 end - wputw(n) - if secpos+2 > maxsecpos then wflush() end - end -end - --- Alignment pseudo-opcode. -map_op[".align_1"] = function(params) - if not params then return "numpow2" end - if secpos+1 > maxsecpos then wflush() end - local align = tonumber(params[1]) - if align then - local x = align - -- Must be a power of 2 in the range (2 ... 256). - for i=1,8 do - x = x / 2 - if x == 1 then - waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. - return - end - end - end - werror("bad alignment") -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode for (primitive) type definitions (map to C types). -map_op[".type_3"] = function(params, nparams) - if not params then - return nparams == 2 and "name, ctype" or "name, ctype, reg" - end - local name, ctype, reg = params[1], params[2], params[3] - if not match(name, "^[%a_][%w_]*$") then - werror("bad type name `"..name.."'") - end - local tp = map_type[name] - if tp then - werror("duplicate type `"..name.."'") - end - -- Add #type to defines. A bit unclean to put it in map_archdef. - map_archdef["#"..name] = "sizeof("..ctype..")" - -- Add new type and emit shortcut define. - local num = ctypenum + 1 - map_type[name] = { - ctype = ctype, - ctypefmt = format("Dt%X(%%s)", num), - reg = reg, - } - wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) - ctypenum = num -end -map_op[".type_2"] = map_op[".type_3"] - --- Dump type definitions. -local function dumptypes(out, lvl) - local t = {} - for name in pairs(map_type) do t[#t+1] = name end - sort(t) - out:write("Type definitions:\n") - for _,name in ipairs(t) do - local tp = map_type[name] - local reg = tp.reg or "" - out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Set the current section. -function _M.section(num) - waction("SECTION", num) - wflush(true) -- SECTION is a terminal action. -end - ------------------------------------------------------------------------------- - --- Dump architecture description. -function _M.dumparch(out) - out:write(format("DynASM %s version %s, released %s\n\n", - _info.arch, _info.version, _info.release)) - dumpactions(out) -end - --- Dump all user defined elements. -function _M.dumpdef(out, lvl) - dumptypes(out, lvl) - dumpglobals(out, lvl) - dumpexterns(out, lvl) -end - ------------------------------------------------------------------------------- - --- Pass callbacks from/to the DynASM core. -function _M.passcb(wl, we, wf, ww) - wline, werror, wfatal, wwarn = wl, we, wf, ww - return wflush -end - --- Setup the arch-specific module. -function _M.setup(arch, opt) - g_arch, g_opt = arch, opt -end - --- Merge the core maps and the arch-specific maps. -function _M.mergemaps(map_coreop, map_def) - setmetatable(map_op, { __index = function(t, k) - local v = map_coreop[k] - if v then return v end - local k1, cc, k2 = match(k, "^(.-)(..)([._].*)$") - local cv = map_cond[cc] - if cv then - local v = rawget(t, k1..k2) - if type(v) == "string" then - local scv = format("%x", cv) - return gsub(scv..sub(v, 2), "|e", "|"..scv) - end - end - end }) - setmetatable(map_def, { __index = map_archdef }) - return map_op, map_def -end - -return _M - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h deleted file mode 100644 index d912e61dda7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.h +++ /dev/null @@ -1,518 +0,0 @@ -/* -** DynASM ARM64 encoding engine. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#include -#include -#include -#include - -#define DASM_ARCH "arm64" - -#ifndef DASM_EXTERN -#define DASM_EXTERN(a,b,c,d) 0 -#endif - -/* Action definitions. */ -enum { - DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, - /* The following actions need a buffer position. */ - DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, - /* The following actions also have an argument. */ - DASM_REL_PC, DASM_LABEL_PC, - DASM_IMM, DASM_IMM6, DASM_IMM12, DASM_IMM13W, DASM_IMM13X, DASM_IMML, - DASM__MAX -}; - -/* Maximum number of section buffer positions for a single dasm_put() call. */ -#define DASM_MAXSECPOS 25 - -/* DynASM encoder status codes. Action list offset or number are or'ed in. */ -#define DASM_S_OK 0x00000000 -#define DASM_S_NOMEM 0x01000000 -#define DASM_S_PHASE 0x02000000 -#define DASM_S_MATCH_SEC 0x03000000 -#define DASM_S_RANGE_I 0x11000000 -#define DASM_S_RANGE_SEC 0x12000000 -#define DASM_S_RANGE_LG 0x13000000 -#define DASM_S_RANGE_PC 0x14000000 -#define DASM_S_RANGE_REL 0x15000000 -#define DASM_S_UNDEF_LG 0x21000000 -#define DASM_S_UNDEF_PC 0x22000000 - -/* Macros to convert positions (8 bit section + 24 bit index). */ -#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) -#define DASM_POS2BIAS(pos) ((pos)&0xff000000) -#define DASM_SEC2POS(sec) ((sec)<<24) -#define DASM_POS2SEC(pos) ((pos)>>24) -#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) - -/* Action list type. */ -typedef const unsigned int *dasm_ActList; - -/* Per-section structure. */ -typedef struct dasm_Section { - int *rbuf; /* Biased buffer pointer (negative section bias). */ - int *buf; /* True buffer pointer. */ - size_t bsize; /* Buffer size in bytes. */ - int pos; /* Biased buffer position. */ - int epos; /* End of biased buffer position - max single put. */ - int ofs; /* Byte offset into section. */ -} dasm_Section; - -/* Core structure holding the DynASM encoding state. */ -struct dasm_State { - size_t psize; /* Allocated size of this structure. */ - dasm_ActList actionlist; /* Current actionlist pointer. */ - int *lglabels; /* Local/global chain/pos ptrs. */ - size_t lgsize; - int *pclabels; /* PC label chains/pos ptrs. */ - size_t pcsize; - void **globals; /* Array of globals (bias -10). */ - dasm_Section *section; /* Pointer to active section. */ - size_t codesize; /* Total size of all code sections. */ - int maxsection; /* 0 <= sectionidx < maxsection. */ - int status; /* Status code. */ - dasm_Section sections[1]; /* All sections. Alloc-extended. */ -}; - -/* The size of the core structure depends on the max. number of sections. */ -#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) - - -/* Initialize DynASM state. */ -void dasm_init(Dst_DECL, int maxsection) -{ - dasm_State *D; - size_t psz = 0; - int i; - Dst_REF = NULL; - DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); - D = Dst_REF; - D->psize = psz; - D->lglabels = NULL; - D->lgsize = 0; - D->pclabels = NULL; - D->pcsize = 0; - D->globals = NULL; - D->maxsection = maxsection; - for (i = 0; i < maxsection; i++) { - D->sections[i].buf = NULL; /* Need this for pass3. */ - D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); - D->sections[i].bsize = 0; - D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ - } -} - -/* Free DynASM state. */ -void dasm_free(Dst_DECL) -{ - dasm_State *D = Dst_REF; - int i; - for (i = 0; i < D->maxsection; i++) - if (D->sections[i].buf) - DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); - if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); - if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); - DASM_M_FREE(Dst, D, D->psize); -} - -/* Setup global label array. Must be called before dasm_setup(). */ -void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) -{ - dasm_State *D = Dst_REF; - D->globals = gl - 10; /* Negative bias to compensate for locals. */ - DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); -} - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -void dasm_growpc(Dst_DECL, unsigned int maxpc) -{ - dasm_State *D = Dst_REF; - size_t osz = D->pcsize; - DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); - memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); -} - -/* Setup encoder. */ -void dasm_setup(Dst_DECL, const void *actionlist) -{ - dasm_State *D = Dst_REF; - int i; - D->actionlist = (dasm_ActList)actionlist; - D->status = DASM_S_OK; - D->section = &D->sections[0]; - memset((void *)D->lglabels, 0, D->lgsize); - if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); - for (i = 0; i < D->maxsection; i++) { - D->sections[i].pos = DASM_SEC2POS(i); - D->sections[i].ofs = 0; - } -} - - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) { \ - D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) -#define CKPL(kind, st) \ - do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ - D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) -#else -#define CK(x, st) ((void)0) -#define CKPL(kind, st) ((void)0) -#endif - -static int dasm_imm12(unsigned int n) -{ - if ((n >> 12) == 0) - return n; - else if ((n & 0xff000fff) == 0) - return (n >> 12) | 0x1000; - else - return -1; -} - -static int dasm_ffs(unsigned long long x) -{ - int n = -1; - while (x) { x >>= 1; n++; } - return n; -} - -static int dasm_imm13(int lo, int hi) -{ - int inv = 0, w = 64, s = 0xfff, xa, xb; - unsigned long long n = (((unsigned long long)hi) << 32) | (unsigned int)lo; - unsigned long long m = 1ULL, a, b, c; - if (n & 1) { n = ~n; inv = 1; } - a = n & -n; b = (n+a)&-(n+a); c = (n+a-b)&-(n+a-b); - xa = dasm_ffs(a); xb = dasm_ffs(b); - if (c) { - w = dasm_ffs(c) - xa; - if (w == 32) m = 0x0000000100000001UL; - else if (w == 16) m = 0x0001000100010001UL; - else if (w == 8) m = 0x0101010101010101UL; - else if (w == 4) m = 0x1111111111111111UL; - else if (w == 2) m = 0x5555555555555555UL; - else return -1; - s = (-2*w & 0x3f) - 1; - } else if (!a) { - return -1; - } else if (xb == -1) { - xb = 64; - } - if ((b-a) * m != n) return -1; - if (inv) { - return ((w - xb) << 6) | (s+w+xa-xb); - } else { - return ((w - xa) << 6) | (s+xb-xa); - } - return -1; -} - -/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ -void dasm_put(Dst_DECL, int start, ...) -{ - va_list ap; - dasm_State *D = Dst_REF; - dasm_ActList p = D->actionlist + start; - dasm_Section *sec = D->section; - int pos = sec->pos, ofs = sec->ofs; - int *b; - - if (pos >= sec->epos) { - DASM_M_GROW(Dst, int, sec->buf, sec->bsize, - sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); - sec->rbuf = sec->buf - DASM_POS2BIAS(pos); - sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); - } - - b = sec->rbuf; - b[pos++] = start; - - va_start(ap, start); - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - if (action >= DASM__MAX) { - ofs += 4; - } else { - int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; - switch (action) { - case DASM_STOP: goto stop; - case DASM_SECTION: - n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); - D->section = &D->sections[n]; goto stop; - case DASM_ESC: p++; ofs += 4; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; - case DASM_REL_LG: - n = (ins & 2047) - 10; pl = D->lglabels + n; - /* Bkwd rel or global. */ - if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } - pl += 10; n = *pl; - if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ - goto linkrel; - case DASM_REL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putrel: - n = *pl; - if (n < 0) { /* Label exists. Get label pos and store it. */ - b[pos] = -n; - } else { - linkrel: - b[pos] = n; /* Else link to rel chain, anchored at label. */ - *pl = pos; - } - pos++; - break; - case DASM_LABEL_LG: - pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; - case DASM_LABEL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putlabel: - n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; - } - *pl = -pos; /* Label exists now. */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_IMM: - CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); - n >>= ((ins>>10)&31); -#ifdef DASM_CHECKS - if ((ins & 0x8000)) - CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); - else - CK((n>>((ins>>5)&31)) == 0, RANGE_I); -#endif - b[pos++] = n; - break; - case DASM_IMM6: - CK((n >> 6) == 0, RANGE_I); - b[pos++] = n; - break; - case DASM_IMM12: - CK(dasm_imm12((unsigned int)n) != -1, RANGE_I); - b[pos++] = n; - break; - case DASM_IMM13W: - CK(dasm_imm13(n, n) != -1, RANGE_I); - b[pos++] = n; - break; - case DASM_IMM13X: { - int m = va_arg(ap, int); - CK(dasm_imm13(n, m) != -1, RANGE_I); - b[pos++] = n; - b[pos++] = m; - break; - } - case DASM_IMML: { -#ifdef DASM_CHECKS - int scale = (p[-2] >> 30); - CK((!(n & ((1<>scale) < 4096) || - (unsigned int)(n+256) < 512, RANGE_I); -#endif - b[pos++] = n; - break; - } - } - } - } -stop: - va_end(ap); - sec->pos = pos; - sec->ofs = ofs; -} -#undef CK - -/* Pass 2: Link sections, shrink aligns, fix label offsets. */ -int dasm_link(Dst_DECL, size_t *szp) -{ - dasm_State *D = Dst_REF; - int secnum; - int ofs = 0; - -#ifdef DASM_CHECKS - *szp = 0; - if (D->status != DASM_S_OK) return D->status; - { - int pc; - for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) - if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; - } -#endif - - { /* Handle globals not defined in this translation unit. */ - int idx; - for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { - int n = D->lglabels[idx]; - /* Undefined label: Collapse rel chain and replace with marker (< 0). */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } - } - } - - /* Combine all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->rbuf; - int pos = DASM_SEC2POS(secnum); - int lastpos = sec->pos; - - while (pos != lastpos) { - dasm_ActList p = D->actionlist + b[pos++]; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: p++; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; - case DASM_REL_LG: case DASM_REL_PC: pos++; break; - case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; - case DASM_IMM: case DASM_IMM6: case DASM_IMM12: case DASM_IMM13W: - case DASM_IMML: pos++; break; - case DASM_IMM13X: pos += 2; break; - } - } - stop: (void)0; - } - ofs += sec->ofs; /* Next section starts right after current section. */ - } - - D->codesize = ofs; /* Total size of all code sections */ - *szp = ofs; - return DASM_S_OK; -} - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) -#else -#define CK(x, st) ((void)0) -#endif - -/* Pass 3: Encode sections. */ -int dasm_encode(Dst_DECL, void *buffer) -{ - dasm_State *D = Dst_REF; - char *base = (char *)buffer; - unsigned int *cp = (unsigned int *)buffer; - int secnum; - - /* Encode all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->buf; - int *endb = sec->rbuf + sec->pos; - - while (b != endb) { - dasm_ActList p = D->actionlist + *b++; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: *cp++ = *p++; break; - case DASM_REL_EXT: - n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins&2047), !(ins&2048)); - goto patchrel; - case DASM_ALIGN: - ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0xe1a00000; - break; - case DASM_REL_LG: - CK(n >= 0, UNDEF_LG); - case DASM_REL_PC: - CK(n >= 0, UNDEF_PC); - n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base) + 4; - patchrel: - if (!(ins & 0xf800)) { /* B, BL */ - CK((n & 3) == 0 && ((n+0x08000000) >> 28) == 0, RANGE_REL); - cp[-1] |= ((n >> 2) & 0x03ffffff); - } else if ((ins & 0x800)) { /* B.cond, CBZ, CBNZ, LDR* literal */ - CK((n & 3) == 0 && ((n+0x00100000) >> 21) == 0, RANGE_REL); - cp[-1] |= ((n << 3) & 0x00ffffe0); - } else if ((ins & 0x3000) == 0x2000) { /* ADR */ - CK(((n+0x00100000) >> 21) == 0, RANGE_REL); - cp[-1] |= ((n << 3) & 0x00ffffe0) | ((n & 3) << 29); - } else if ((ins & 0x3000) == 0x3000) { /* ADRP */ - cp[-1] |= ((n >> 9) & 0x00ffffe0) | (((n >> 12) & 3) << 29); - } else if ((ins & 0x1000)) { /* TBZ, TBNZ */ - CK((n & 3) == 0 && ((n+0x00008000) >> 16) == 0, RANGE_REL); - cp[-1] |= ((n << 3) & 0x0007ffe0); - } - break; - case DASM_LABEL_LG: - ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); - break; - case DASM_LABEL_PC: break; - case DASM_IMM: - cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); - break; - case DASM_IMM6: - cp[-1] |= ((n&31) << 19) | ((n&32) << 26); - break; - case DASM_IMM12: - cp[-1] |= (dasm_imm12((unsigned int)n) << 10); - break; - case DASM_IMM13W: - cp[-1] |= (dasm_imm13(n, n) << 10); - break; - case DASM_IMM13X: - cp[-1] |= (dasm_imm13(n, *b++) << 10); - break; - case DASM_IMML: { - int scale = (p[-2] >> 30); - cp[-1] |= (!(n & ((1<>scale) < 4096) ? - ((n << (10-scale)) | 0x01000000) : ((n & 511) << 12); - break; - } - default: *cp++ = ins; break; - } - } - stop: (void)0; - } - } - - if (base + D->codesize != (char *)cp) /* Check for phase errors. */ - return DASM_S_PHASE; - return DASM_S_OK; -} -#undef CK - -/* Get PC label offset. */ -int dasm_getpclabel(Dst_DECL, unsigned int pc) -{ - dasm_State *D = Dst_REF; - if (pc*sizeof(int) < D->pcsize) { - int pos = D->pclabels[pc]; - if (pos < 0) return *DASM_POS2PTR(D, -pos); - if (pos > 0) return -1; /* Undefined. */ - } - return -2; /* Unused or out of range. */ -} - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -int dasm_checkstep(Dst_DECL, int secmatch) -{ - dasm_State *D = Dst_REF; - if (D->status == DASM_S_OK) { - int i; - for (i = 1; i <= 9; i++) { - if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } - D->lglabels[i] = 0; - } - } - if (D->status == DASM_S_OK && secmatch >= 0 && - D->section != &D->sections[secmatch]) - D->status = DASM_S_MATCH_SEC|(D->section-D->sections); - return D->status; -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua deleted file mode 100644 index 9766e475b0f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_arm64.lua +++ /dev/null @@ -1,1166 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM ARM64 module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- - --- Module information: -local _info = { - arch = "arm", - description = "DynASM ARM64 module", - version = "1.3.0", - vernum = 10300, - release = "2014-12-03", - author = "Mike Pall", - license = "MIT", -} - --- Exported glue functions for the arch-specific module. -local _M = { _info = _info } - --- Cache library functions. -local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs -local assert, setmetatable, rawget = assert, setmetatable, rawget -local _s = string -local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char -local match, gmatch, gsub = _s.match, _s.gmatch, _s.gsub -local concat, sort, insert = table.concat, table.sort, table.insert -local bit = bit or require("bit") -local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift -local ror, tohex = bit.ror, bit.tohex - --- Inherited tables and callbacks. -local g_opt, g_arch -local wline, werror, wfatal, wwarn - --- Action name list. --- CHECK: Keep this in sync with the C code! -local action_names = { - "STOP", "SECTION", "ESC", "REL_EXT", - "ALIGN", "REL_LG", "LABEL_LG", - "REL_PC", "LABEL_PC", "IMM", "IMM6", "IMM12", "IMM13W", "IMM13X", "IMML", -} - --- Maximum number of section buffer positions for dasm_put(). --- CHECK: Keep this in sync with the C code! -local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. - --- Action name -> action number. -local map_action = {} -for n,name in ipairs(action_names) do - map_action[name] = n-1 -end - --- Action list buffer. -local actlist = {} - --- Argument list for next dasm_put(). Start with offset 0 into action list. -local actargs = { 0 } - --- Current number of section buffer positions for dasm_put(). -local secpos = 1 - ------------------------------------------------------------------------------- - --- Dump action names and numbers. -local function dumpactions(out) - out:write("DynASM encoding engine action codes:\n") - for n,name in ipairs(action_names) do - local num = map_action[name] - out:write(format(" %-10s %02X %d\n", name, num, num)) - end - out:write("\n") -end - --- Write action list buffer as a huge static C array. -local function writeactions(out, name) - local nn = #actlist - if nn == 0 then nn = 1; actlist[0] = map_action.STOP end - out:write("static const unsigned int ", name, "[", nn, "] = {\n") - for i = 1,nn-1 do - assert(out:write("0x", tohex(actlist[i]), ",\n")) - end - assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) -end - ------------------------------------------------------------------------------- - --- Add word to action list. -local function wputxw(n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[#actlist+1] = n -end - --- Add action to list with optional arg. Advance buffer pos, too. -local function waction(action, val, a, num) - local w = assert(map_action[action], "bad action name `"..action.."'") - wputxw(w * 0x10000 + (val or 0)) - if a then actargs[#actargs+1] = a end - if a or num then secpos = secpos + (num or 1) end -end - --- Flush action list (intervening C code or buffer pos overflow). -local function wflush(term) - if #actlist == actargs[1] then return end -- Nothing to flush. - if not term then waction("STOP") end -- Terminate action list. - wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) - actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). - secpos = 1 -- The actionlist offset occupies a buffer position, too. -end - --- Put escaped word. -local function wputw(n) - if n <= 0x000fffff then waction("ESC") end - wputxw(n) -end - --- Reserve position for word. -local function wpos() - local pos = #actlist+1 - actlist[pos] = "" - return pos -end - --- Store word to reserved position. -local function wputpos(pos, n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - if n <= 0x000fffff then - insert(actlist, pos+1, n) - n = map_action.ESC * 0x10000 - end - actlist[pos] = n -end - ------------------------------------------------------------------------------- - --- Global label name -> global label number. With auto assignment on 1st use. -local next_global = 20 -local map_global = setmetatable({}, { __index = function(t, name) - if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end - local n = next_global - if n > 2047 then werror("too many global labels") end - next_global = n + 1 - t[name] = n - return n -end}) - --- Dump global labels. -local function dumpglobals(out, lvl) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("Global labels:\n") - for i=20,next_global-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write global label enum. -local function writeglobals(out, prefix) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("enum {\n") - for i=20,next_global-1 do - out:write(" ", prefix, t[i], ",\n") - end - out:write(" ", prefix, "_MAX\n};\n") -end - --- Write global label names. -local function writeglobalnames(out, name) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=20,next_global-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Extern label name -> extern label number. With auto assignment on 1st use. -local next_extern = 0 -local map_extern_ = {} -local map_extern = setmetatable({}, { __index = function(t, name) - -- No restrictions on the name for now. - local n = next_extern - if n > 2047 then werror("too many extern labels") end - next_extern = n + 1 - t[name] = n - map_extern_[n] = name - return n -end}) - --- Dump extern labels. -local function dumpexterns(out, lvl) - out:write("Extern labels:\n") - for i=0,next_extern-1 do - out:write(format(" %s\n", map_extern_[i])) - end - out:write("\n") -end - --- Write extern label names. -local function writeexternnames(out, name) - out:write("static const char *const ", name, "[] = {\n") - for i=0,next_extern-1 do - out:write(" \"", map_extern_[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Arch-specific maps. - --- Ext. register name -> int. name. -local map_archdef = { xzr = "@x31", wzr = "@w31", lr = "x30", } - --- Int. register name -> ext. name. -local map_reg_rev = { ["@x31"] = "xzr", ["@w31"] = "wzr", x30 = "lr", } - -local map_type = {} -- Type name -> { ctype, reg } -local ctypenum = 0 -- Type number (for Dt... macros). - --- Reverse defines for registers. -function _M.revdef(s) - return map_reg_rev[s] or s -end - -local map_shift = { lsl = 0, lsr = 1, asr = 2, } - -local map_extend = { - uxtb = 0, uxth = 1, uxtw = 2, uxtx = 3, - sxtb = 4, sxth = 5, sxtw = 6, sxtx = 7, -} - -local map_cond = { - eq = 0, ne = 1, cs = 2, cc = 3, mi = 4, pl = 5, vs = 6, vc = 7, - hi = 8, ls = 9, ge = 10, lt = 11, gt = 12, le = 13, al = 14, - hs = 2, lo = 3, -} - ------------------------------------------------------------------------------- - -local parse_reg_type - -local function parse_reg(expr) - if not expr then werror("expected register name") end - local tname, ovreg = match(expr, "^([%w_]+):(@?%l%d+)$") - local tp = map_type[tname or expr] - if tp then - local reg = ovreg or tp.reg - if not reg then - werror("type `"..(tname or expr).."' needs a register override") - end - expr = reg - end - local ok31, rt, r = match(expr, "^(@?)([xwqdshb])([123]?[0-9])$") - if r then - r = tonumber(r) - if r <= 30 or (r == 31 and ok31 ~= "" or (rt ~= "w" and rt ~= "x")) then - if not parse_reg_type then - parse_reg_type = rt - elseif parse_reg_type ~= rt then - werror("register size mismatch") - end - return r, tp - end - end - werror("bad register name `"..expr.."'") -end - -local function parse_reg_base(expr) - if expr == "sp" then return 0x3e0 end - local base, tp = parse_reg(expr) - if parse_reg_type ~= "x" then werror("bad register type") end - parse_reg_type = false - return shl(base, 5), tp -end - -local parse_ctx = {} - -local loadenv = setfenv and function(s) - local code = loadstring(s, "") - if code then setfenv(code, parse_ctx) end - return code -end or function(s) - return load(s, "", nil, parse_ctx) -end - --- Try to parse simple arithmetic, too, since some basic ops are aliases. -local function parse_number(n) - local x = tonumber(n) - if x then return x end - local code = loadenv("return "..n) - if code then - local ok, y = pcall(code) - if ok then return y end - end - return nil -end - -local function parse_imm(imm, bits, shift, scale, signed) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = parse_number(imm) - if n then - local m = sar(n, scale) - if shl(m, scale) == n then - if signed then - local s = sar(m, bits-1) - if s == 0 then return shl(m, shift) - elseif s == -1 then return shl(m + shl(1, bits), shift) end - else - if sar(m, bits) == 0 then return shl(m, shift) end - end - end - werror("out of range immediate `"..imm.."'") - else - waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) - return 0 - end -end - -local function parse_imm12(imm) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = parse_number(imm) - if n then - if shr(n, 12) == 0 then - return shl(n, 10) - elseif band(n, 0xff000fff) == 0 then - return shr(n, 2) + 0x00400000 - end - werror("out of range immediate `"..imm.."'") - else - waction("IMM12", 0, imm) - return 0 - end -end - -local function parse_imm13(imm) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = parse_number(imm) - local r64 = parse_reg_type == "x" - if n and n % 1 == 0 and n >= 0 and n <= 0xffffffff then - local inv = false - if band(n, 1) == 1 then n = bit.bnot(n); inv = true end - local t = {} - for i=1,32 do t[i] = band(n, 1); n = shr(n, 1) end - local b = table.concat(t) - b = b..(r64 and (inv and "1" or "0"):rep(32) or b) - local p0, p1, p0a, p1a = b:match("^(0+)(1+)(0*)(1*)") - if p0 then - local w = p1a == "" and (r64 and 64 or 32) or #p1+#p0a - if band(w, w-1) == 0 and b == b:sub(1, w):rep(64/w) then - local s = band(-2*w, 0x3f) - 1 - if w == 64 then s = s + 0x1000 end - if inv then - return shl(w-#p1-#p0, 16) + shl(s+w-#p1, 10) - else - return shl(w-#p0, 16) + shl(s+#p1, 10) - end - end - end - werror("out of range immediate `"..imm.."'") - elseif r64 then - waction("IMM13X", 0, format("(unsigned int)(%s)", imm)) - actargs[#actargs+1] = format("(unsigned int)((unsigned long long)(%s)>>32)", imm) - return 0 - else - waction("IMM13W", 0, imm) - return 0 - end -end - -local function parse_imm6(imm) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = parse_number(imm) - if n then - if n >= 0 and n <= 63 then - return shl(band(n, 0x1f), 19) + (n >= 32 and 0x80000000 or 0) - end - werror("out of range immediate `"..imm.."'") - else - waction("IMM6", 0, imm) - return 0 - end -end - -local function parse_imm_load(imm, scale) - local n = parse_number(imm) - if n then - local m = sar(n, scale) - if shl(m, scale) == n and m >= 0 and m < 0x1000 then - return shl(m, 10) + 0x01000000 -- Scaled, unsigned 12 bit offset. - elseif n >= -256 and n < 256 then - return shl(band(n, 511), 12) -- Unscaled, signed 9 bit offset. - end - werror("out of range immediate `"..imm.."'") - else - waction("IMML", 0, imm) - return 0 - end -end - -local function parse_fpimm(imm) - imm = match(imm, "^#(.*)$") - if not imm then werror("expected immediate operand") end - local n = parse_number(imm) - if n then - local m, e = math.frexp(n) - local s, e2 = 0, band(e-2, 7) - if m < 0 then m = -m; s = 0x00100000 end - m = m*32-16 - if m % 1 == 0 and m >= 0 and m <= 15 and sar(shl(e2, 29), 29)+2 == e then - return s + shl(e2, 17) + shl(m, 13) - end - werror("out of range immediate `"..imm.."'") - else - werror("NYI fpimm action") - end -end - -local function parse_shift(expr) - local s, s2 = match(expr, "^(%S+)%s*(.*)$") - s = map_shift[s] - if not s then werror("expected shift operand") end - return parse_imm(s2, 6, 10, 0, false) + shl(s, 22) -end - -local function parse_lslx16(expr) - local n = match(expr, "^lsl%s*#(%d+)$") - n = tonumber(n) - if not n then werror("expected shift operand") end - if band(n, parse_reg_type == "x" and 0xffffffcf or 0xffffffef) ~= 0 then - werror("bad shift amount") - end - return shl(n, 17) -end - -local function parse_extend(expr) - local s, s2 = match(expr, "^(%S+)%s*(.*)$") - if s == "lsl" then - s = parse_reg_type == "x" and 3 or 2 - else - s = map_extend[s] - end - if not s then werror("expected extend operand") end - return (s2 == "" and 0 or parse_imm(s2, 3, 10, 0, false)) + shl(s, 13) -end - -local function parse_cond(expr, inv) - local c = map_cond[expr] - if not c then werror("expected condition operand") end - return shl(bit.bxor(c, inv), 12) -end - -local function parse_load(params, nparams, n, op) - if params[n+2] then werror("too many operands") end - local pn, p2 = params[n], params[n+1] - local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") - if not p1 then - if not p2 then - local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local base, tp = parse_reg_base(reg) - if tp then - waction("IMML", 0, format(tp.ctypefmt, tailr)) - return op + base - end - end - end - werror("expected address operand") - end - local scale = shr(op, 30) - if p2 then - if wb == "!" then werror("bad use of '!'") end - op = op + parse_reg_base(p1) + parse_imm(p2, 9, 12, 0, true) + 0x400 - elseif wb == "!" then - local p1a, p2a = match(p1, "^([^,%s]*)%s*,%s*(.*)$") - if not p1a then werror("bad use of '!'") end - op = op + parse_reg_base(p1a) + parse_imm(p2a, 9, 12, 0, true) + 0xc00 - else - local p1a, p2a = match(p1, "^([^,%s]*)%s*(.*)$") - op = op + parse_reg_base(p1a) - if p2a ~= "" then - local imm = match(p2a, "^,%s*#(.*)$") - if imm then - op = op + parse_imm_load(imm, scale) - else - local p2b, p3b, p3s = match(p2a, "^,%s*([^,%s]*)%s*,?%s*(%S*)%s*(.*)$") - op = op + shl(parse_reg(p2b), 16) + 0x00200800 - if parse_reg_type ~= "x" and parse_reg_type ~= "w" then - werror("bad index register type") - end - if p3b == "" then - if parse_reg_type ~= "x" then werror("bad index register type") end - op = op + 0x6000 - else - if p3s == "" or p3s == "#0" then - elseif p3s == "#"..scale then - op = op + 0x1000 - else - werror("bad scale") - end - if parse_reg_type == "x" then - if p3b == "lsl" and p3s ~= "" then op = op + 0x6000 - elseif p3b == "sxtx" then op = op + 0xe000 - else - werror("bad extend/shift specifier") - end - else - if p3b == "uxtw" then op = op + 0x4000 - elseif p3b == "sxtw" then op = op + 0xc000 - else - werror("bad extend/shift specifier") - end - end - end - end - else - if wb == "!" then werror("bad use of '!'") end - op = op + 0x01000000 - end - end - return op -end - -local function parse_load_pair(params, nparams, n, op) - if params[n+2] then werror("too many operands") end - local pn, p2 = params[n], params[n+1] - local scale = shr(op, 30) == 0 and 2 or 3 - local p1, wb = match(pn, "^%[%s*(.-)%s*%](!?)$") - if not p1 then - if not p2 then - local reg, tailr = match(pn, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local base, tp = parse_reg_base(reg) - if tp then - waction("IMM", 32768+7*32+15+scale*1024, format(tp.ctypefmt, tailr)) - return op + base + 0x01000000 - end - end - end - werror("expected address operand") - end - if p2 then - if wb == "!" then werror("bad use of '!'") end - op = op + 0x00800000 - else - local p1a, p2a = match(p1, "^([^,%s]*)%s*,%s*(.*)$") - if p1a then p1, p2 = p1a, p2a else p2 = "#0" end - op = op + (wb == "!" and 0x01800000 or 0x01000000) - end - return op + parse_reg_base(p1) + parse_imm(p2, 7, 15, scale, true) -end - -local function parse_label(label, def) - local prefix = sub(label, 1, 2) - -- =>label (pc label reference) - if prefix == "=>" then - return "PC", 0, sub(label, 3) - end - -- ->name (global label reference) - if prefix == "->" then - return "LG", map_global[sub(label, 3)] - end - if def then - -- [1-9] (local label definition) - if match(label, "^[1-9]$") then - return "LG", 10+tonumber(label) - end - else - -- [<>][1-9] (local label reference) - local dir, lnum = match(label, "^([<>])([1-9])$") - if dir then -- Fwd: 1-9, Bkwd: 11-19. - return "LG", lnum + (dir == ">" and 0 or 10) - end - -- extern label (extern label reference) - local extname = match(label, "^extern%s+(%S+)$") - if extname then - return "EXT", map_extern[extname] - end - end - werror("bad label `"..label.."'") -end - -local function branch_type(op) - if band(op, 0x7c000000) == 0x14000000 then return 0 -- B, BL - elseif shr(op, 24) == 0x54 or band(op, 0x7e000000) == 0x34000000 or - band(op, 0x3b000000) == 0x18000000 then - return 0x800 -- B.cond, CBZ, CBNZ, LDR* literal - elseif band(op, 0x7e000000) == 0x36000000 then return 0x1000 -- TBZ, TBNZ - elseif band(op, 0x9f000000) == 0x10000000 then return 0x2000 -- ADR - elseif band(op, 0x9f000000) == band(0x90000000) then return 0x3000 -- ADRP - else - assert(false, "unknown branch type") - end -end - ------------------------------------------------------------------------------- - -local map_op, op_template - -local function op_alias(opname, f) - return function(params, nparams) - if not params then return "-> "..opname:sub(1, -3) end - f(params, nparams) - op_template(params, map_op[opname], nparams) - end -end - -local function alias_bfx(p) - p[4] = "#("..p[3]:sub(2)..")+("..p[4]:sub(2)..")-1" -end - -local function alias_bfiz(p) - parse_reg(p[1]) - if parse_reg_type == "w" then - p[3] = "#-("..p[3]:sub(2)..")%32" - p[4] = "#("..p[4]:sub(2)..")-1" - else - p[3] = "#-("..p[3]:sub(2)..")%64" - p[4] = "#("..p[4]:sub(2)..")-1" - end -end - -local alias_lslimm = op_alias("ubfm_4", function(p) - parse_reg(p[1]) - local sh = p[3]:sub(2) - if parse_reg_type == "w" then - p[3] = "#-("..sh..")%32" - p[4] = "#31-("..sh..")" - else - p[3] = "#-("..sh..")%64" - p[4] = "#63-("..sh..")" - end -end) - --- Template strings for ARM instructions. -map_op = { - -- Basic data processing instructions. - add_3 = "0b000000DNMg|11000000pDpNIg|8b206000pDpNMx", - add_4 = "0b000000DNMSg|0b200000DNMXg|8b200000pDpNMXx|8b200000pDpNxMwX", - adds_3 = "2b000000DNMg|31000000DpNIg|ab206000DpNMx", - adds_4 = "2b000000DNMSg|2b200000DNMXg|ab200000DpNMXx|ab200000DpNxMwX", - cmn_2 = "2b00001fNMg|3100001fpNIg|ab20601fpNMx", - cmn_3 = "2b00001fNMSg|2b20001fNMXg|ab20001fpNMXx|ab20001fpNxMwX", - - sub_3 = "4b000000DNMg|51000000pDpNIg|cb206000pDpNMx", - sub_4 = "4b000000DNMSg|4b200000DNMXg|cb200000pDpNMXx|cb200000pDpNxMwX", - subs_3 = "6b000000DNMg|71000000DpNIg|eb206000DpNMx", - subs_4 = "6b000000DNMSg|6b200000DNMXg|eb200000DpNMXx|eb200000DpNxMwX", - cmp_2 = "6b00001fNMg|7100001fpNIg|eb20601fpNMx", - cmp_3 = "6b00001fNMSg|6b20001fNMXg|eb20001fpNMXx|eb20001fpNxMwX", - - neg_2 = "4b0003e0DMg", - neg_3 = "4b0003e0DMSg", - negs_2 = "6b0003e0DMg", - negs_3 = "6b0003e0DMSg", - - adc_3 = "1a000000DNMg", - adcs_3 = "3a000000DNMg", - sbc_3 = "5a000000DNMg", - sbcs_3 = "7a000000DNMg", - ngc_2 = "5a0003e0DMg", - ngcs_2 = "7a0003e0DMg", - - and_3 = "0a000000DNMg|12000000pDNig", - and_4 = "0a000000DNMSg", - orr_3 = "2a000000DNMg|32000000pDNig", - orr_4 = "2a000000DNMSg", - eor_3 = "4a000000DNMg|52000000pDNig", - eor_4 = "4a000000DNMSg", - ands_3 = "6a000000DNMg|72000000DNig", - ands_4 = "6a000000DNMSg", - tst_2 = "6a00001fNMg|7200001fNig", - tst_3 = "6a00001fNMSg", - - bic_3 = "0a200000DNMg", - bic_4 = "0a200000DNMSg", - orn_3 = "2a200000DNMg", - orn_4 = "2a200000DNMSg", - eon_3 = "4a200000DNMg", - eon_4 = "4a200000DNMSg", - bics_3 = "6a200000DNMg", - bics_4 = "6a200000DNMSg", - - movn_2 = "12800000DWg", - movn_3 = "12800000DWRg", - movz_2 = "52800000DWg", - movz_3 = "52800000DWRg", - movk_2 = "72800000DWg", - movk_3 = "72800000DWRg", - - -- TODO: this doesn't cover all valid immediates for mov reg, #imm. - mov_2 = "2a0003e0DMg|52800000DW|320003e0pDig|11000000pDpNg", - mov_3 = "2a0003e0DMSg", - mvn_2 = "2a2003e0DMg", - mvn_3 = "2a2003e0DMSg", - - adr_2 = "10000000DBx", - adrp_2 = "90000000DBx", - - csel_4 = "1a800000DNMCg", - csinc_4 = "1a800400DNMCg", - csinv_4 = "5a800000DNMCg", - csneg_4 = "5a800400DNMCg", - cset_2 = "1a9f07e0Dcg", - csetm_2 = "5a9f03e0Dcg", - cinc_3 = "1a800400DNmcg", - cinv_3 = "5a800000DNmcg", - cneg_3 = "5a800400DNmcg", - - ccmn_4 = "3a400000NMVCg|3a400800N5VCg", - ccmp_4 = "7a400000NMVCg|7a400800N5VCg", - - madd_4 = "1b000000DNMAg", - msub_4 = "1b008000DNMAg", - mul_3 = "1b007c00DNMg", - mneg_3 = "1b00fc00DNMg", - - smaddl_4 = "9b200000DxNMwAx", - smsubl_4 = "9b208000DxNMwAx", - smull_3 = "9b207c00DxNMw", - smnegl_3 = "9b20fc00DxNMw", - smulh_3 = "9b407c00DNMx", - umaddl_4 = "9ba00000DxNMwAx", - umsubl_4 = "9ba08000DxNMwAx", - umull_3 = "9ba07c00DxNMw", - umnegl_3 = "9ba0fc00DxNMw", - umulh_3 = "9bc07c00DNMx", - - udiv_3 = "1ac00800DNMg", - sdiv_3 = "1ac00c00DNMg", - - -- Bit operations. - sbfm_4 = "13000000DN12w|93400000DN12x", - bfm_4 = "33000000DN12w|b3400000DN12x", - ubfm_4 = "53000000DN12w|d3400000DN12x", - extr_4 = "13800000DNM2w|93c00000DNM2x", - - sxtb_2 = "13001c00DNw|93401c00DNx", - sxth_2 = "13003c00DNw|93403c00DNx", - sxtw_2 = "93407c00DxNw", - uxtb_2 = "53001c00DNw", - uxth_2 = "53003c00DNw", - - sbfx_4 = op_alias("sbfm_4", alias_bfx), - bfxil_4 = op_alias("bfm_4", alias_bfx), - ubfx_4 = op_alias("ubfm_4", alias_bfx), - sbfiz_4 = op_alias("sbfm_4", alias_bfiz), - bfi_4 = op_alias("bfm_4", alias_bfiz), - ubfiz_4 = op_alias("ubfm_4", alias_bfiz), - - lsl_3 = function(params, nparams) - if params and params[3]:byte() == 35 then - return alias_lslimm(params, nparams) - else - return op_template(params, "1ac02000DNMg", nparams) - end - end, - lsr_3 = "1ac02400DNMg|53007c00DN1w|d340fc00DN1x", - asr_3 = "1ac02800DNMg|13007c00DN1w|9340fc00DN1x", - ror_3 = "1ac02c00DNMg|13800000DNm2w|93c00000DNm2x", - - clz_2 = "5ac01000DNg", - cls_2 = "5ac01400DNg", - rbit_2 = "5ac00000DNg", - rev_2 = "5ac00800DNw|dac00c00DNx", - rev16_2 = "5ac00400DNg", - rev32_2 = "dac00800DNx", - - -- Loads and stores. - ["strb_*"] = "38000000DwL", - ["ldrb_*"] = "38400000DwL", - ["ldrsb_*"] = "38c00000DwL|38800000DxL", - ["strh_*"] = "78000000DwL", - ["ldrh_*"] = "78400000DwL", - ["ldrsh_*"] = "78c00000DwL|78800000DxL", - ["str_*"] = "b8000000DwL|f8000000DxL|bc000000DsL|fc000000DdL", - ["ldr_*"] = "18000000DwB|58000000DxB|1c000000DsB|5c000000DdB|b8400000DwL|f8400000DxL|bc400000DsL|fc400000DdL", - ["ldrsw_*"] = "98000000DxB|b8800000DxL", - -- NOTE: ldur etc. are handled by ldr et al. - - ["stp_*"] = "28000000DAwP|a8000000DAxP|2c000000DAsP|6c000000DAdP", - ["ldp_*"] = "28400000DAwP|a8400000DAxP|2c400000DAsP|6c400000DAdP", - ["ldpsw_*"] = "68400000DAxP", - - -- Branches. - b_1 = "14000000B", - bl_1 = "94000000B", - blr_1 = "d63f0000Nx", - br_1 = "d61f0000Nx", - ret_0 = "d65f03c0", - ret_1 = "d65f0000Nx", - -- b.cond is added below. - cbz_2 = "34000000DBg", - cbnz_2 = "35000000DBg", - tbz_3 = "36000000DTBw|36000000DTBx", - tbnz_3 = "37000000DTBw|37000000DTBx", - - -- Miscellaneous instructions. - -- TODO: hlt, hvc, smc, svc, eret, dcps[123], drps, mrs, msr - -- TODO: sys, sysl, ic, dc, at, tlbi - -- TODO: hint, yield, wfe, wfi, sev, sevl - -- TODO: clrex, dsb, dmb, isb - nop_0 = "d503201f", - brk_0 = "d4200000", - brk_1 = "d4200000W", - - -- Floating point instructions. - fmov_2 = "1e204000DNf|1e260000DwNs|1e270000DsNw|9e660000DxNd|9e670000DdNx|1e201000DFf", - fabs_2 = "1e20c000DNf", - fneg_2 = "1e214000DNf", - fsqrt_2 = "1e21c000DNf", - - fcvt_2 = "1e22c000DdNs|1e624000DsNd", - - -- TODO: half-precision and fixed-point conversions. - fcvtas_2 = "1e240000DwNs|9e240000DxNs|1e640000DwNd|9e640000DxNd", - fcvtau_2 = "1e250000DwNs|9e250000DxNs|1e650000DwNd|9e650000DxNd", - fcvtms_2 = "1e300000DwNs|9e300000DxNs|1e700000DwNd|9e700000DxNd", - fcvtmu_2 = "1e310000DwNs|9e310000DxNs|1e710000DwNd|9e710000DxNd", - fcvtns_2 = "1e200000DwNs|9e200000DxNs|1e600000DwNd|9e600000DxNd", - fcvtnu_2 = "1e210000DwNs|9e210000DxNs|1e610000DwNd|9e610000DxNd", - fcvtps_2 = "1e280000DwNs|9e280000DxNs|1e680000DwNd|9e680000DxNd", - fcvtpu_2 = "1e290000DwNs|9e290000DxNs|1e690000DwNd|9e690000DxNd", - fcvtzs_2 = "1e380000DwNs|9e380000DxNs|1e780000DwNd|9e780000DxNd", - fcvtzu_2 = "1e390000DwNs|9e390000DxNs|1e790000DwNd|9e790000DxNd", - - scvtf_2 = "1e220000DsNw|9e220000DsNx|1e620000DdNw|9e620000DdNx", - ucvtf_2 = "1e230000DsNw|9e230000DsNx|1e630000DdNw|9e630000DdNx", - - frintn_2 = "1e244000DNf", - frintp_2 = "1e24c000DNf", - frintm_2 = "1e254000DNf", - frintz_2 = "1e25c000DNf", - frinta_2 = "1e264000DNf", - frintx_2 = "1e274000DNf", - frinti_2 = "1e27c000DNf", - - fadd_3 = "1e202800DNMf", - fsub_3 = "1e203800DNMf", - fmul_3 = "1e200800DNMf", - fnmul_3 = "1e208800DNMf", - fdiv_3 = "1e201800DNMf", - - fmadd_4 = "1f000000DNMAf", - fmsub_4 = "1f008000DNMAf", - fnmadd_4 = "1f200000DNMAf", - fnmsub_4 = "1f208000DNMAf", - - fmax_3 = "1e204800DNMf", - fmaxnm_3 = "1e206800DNMf", - fmin_3 = "1e205800DNMf", - fminnm_3 = "1e207800DNMf", - - fcmp_2 = "1e202000NMf|1e202008NZf", - fcmpe_2 = "1e202010NMf|1e202018NZf", - - fccmp_4 = "1e200400NMVCf", - fccmpe_4 = "1e200410NMVCf", - - fcsel_4 = "1e200c00DNMCf", - - -- TODO: crc32*, aes*, sha*, pmull - -- TODO: SIMD instructions. -} - -for cond,c in pairs(map_cond) do - map_op["b"..cond.."_1"] = tohex(0x54000000+c).."B" -end - ------------------------------------------------------------------------------- - --- Handle opcodes defined with template strings. -local function parse_template(params, template, nparams, pos) - local op = tonumber(sub(template, 1, 8), 16) - local n = 1 - local rtt = {} - - parse_reg_type = false - - -- Process each character. - for p in gmatch(sub(template, 9), ".") do - local q = params[n] - if p == "D" then - op = op + parse_reg(q); n = n + 1 - elseif p == "N" then - op = op + shl(parse_reg(q), 5); n = n + 1 - elseif p == "M" then - op = op + shl(parse_reg(q), 16); n = n + 1 - elseif p == "A" then - op = op + shl(parse_reg(q), 10); n = n + 1 - elseif p == "m" then - op = op + shl(parse_reg(params[n-1]), 16) - - elseif p == "p" then - if q == "sp" then params[n] = "@x31" end - elseif p == "g" then - if parse_reg_type == "x" then - op = op + 0x80000000 - elseif parse_reg_type ~= "w" then - werror("bad register type") - end - parse_reg_type = false - elseif p == "f" then - if parse_reg_type == "d" then - op = op + 0x00400000 - elseif parse_reg_type ~= "s" then - werror("bad register type") - end - parse_reg_type = false - elseif p == "x" or p == "w" or p == "d" or p == "s" then - if parse_reg_type ~= p then - werror("register size mismatch") - end - parse_reg_type = false - - elseif p == "L" then - op = parse_load(params, nparams, n, op) - elseif p == "P" then - op = parse_load_pair(params, nparams, n, op) - - elseif p == "B" then - local mode, v, s = parse_label(q, false); n = n + 1 - local m = branch_type(op) - waction("REL_"..mode, v+m, s, 1) - - elseif p == "I" then - op = op + parse_imm12(q); n = n + 1 - elseif p == "i" then - op = op + parse_imm13(q); n = n + 1 - elseif p == "W" then - op = op + parse_imm(q, 16, 5, 0, false); n = n + 1 - elseif p == "T" then - op = op + parse_imm6(q); n = n + 1 - elseif p == "1" then - op = op + parse_imm(q, 6, 16, 0, false); n = n + 1 - elseif p == "2" then - op = op + parse_imm(q, 6, 10, 0, false); n = n + 1 - elseif p == "5" then - op = op + parse_imm(q, 5, 16, 0, false); n = n + 1 - elseif p == "V" then - op = op + parse_imm(q, 4, 0, 0, false); n = n + 1 - elseif p == "F" then - op = op + parse_fpimm(q); n = n + 1 - elseif p == "Z" then - if q ~= "#0" and q ~= "#0.0" then werror("expected zero immediate") end - n = n + 1 - - elseif p == "S" then - op = op + parse_shift(q); n = n + 1 - elseif p == "X" then - op = op + parse_extend(q); n = n + 1 - elseif p == "R" then - op = op + parse_lslx16(q); n = n + 1 - elseif p == "C" then - op = op + parse_cond(q, 0); n = n + 1 - elseif p == "c" then - op = op + parse_cond(q, 1); n = n + 1 - - else - assert(false) - end - end - wputpos(pos, op) -end - -function op_template(params, template, nparams) - if not params then return template:gsub("%x%x%x%x%x%x%x%x", "") end - - -- Limit number of section buffer positions used by a single dasm_put(). - -- A single opcode needs a maximum of 3 positions. - if secpos+3 > maxsecpos then wflush() end - local pos = wpos() - local lpos, apos, spos = #actlist, #actargs, secpos - - local ok, err - for t in gmatch(template, "[^|]+") do - ok, err = pcall(parse_template, params, t, nparams, pos) - if ok then return end - secpos = spos - actlist[lpos+1] = nil - actlist[lpos+2] = nil - actlist[lpos+3] = nil - actargs[apos+1] = nil - actargs[apos+2] = nil - actargs[apos+3] = nil - end - error(err, 0) -end - -map_op[".template__"] = op_template - ------------------------------------------------------------------------------- - --- Pseudo-opcode to mark the position where the action list is to be emitted. -map_op[".actionlist_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeactions(out, name) end) -end - --- Pseudo-opcode to mark the position where the global enum is to be emitted. -map_op[".globals_1"] = function(params) - if not params then return "prefix" end - local prefix = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobals(out, prefix) end) -end - --- Pseudo-opcode to mark the position where the global names are to be emitted. -map_op[".globalnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobalnames(out, name) end) -end - --- Pseudo-opcode to mark the position where the extern names are to be emitted. -map_op[".externnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeexternnames(out, name) end) -end - ------------------------------------------------------------------------------- - --- Label pseudo-opcode (converted from trailing colon form). -map_op[".label_1"] = function(params) - if not params then return "[1-9] | ->global | =>pcexpr" end - if secpos+1 > maxsecpos then wflush() end - local mode, n, s = parse_label(params[1], true) - if mode == "EXT" then werror("bad label definition") end - waction("LABEL_"..mode, n, s, 1) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcodes for data storage. -map_op[".long_*"] = function(params) - if not params then return "imm..." end - for _,p in ipairs(params) do - local n = tonumber(p) - if not n then werror("bad immediate `"..p.."'") end - if n < 0 then n = n + 2^32 end - wputw(n) - if secpos+2 > maxsecpos then wflush() end - end -end - --- Alignment pseudo-opcode. -map_op[".align_1"] = function(params) - if not params then return "numpow2" end - if secpos+1 > maxsecpos then wflush() end - local align = tonumber(params[1]) - if align then - local x = align - -- Must be a power of 2 in the range (2 ... 256). - for i=1,8 do - x = x / 2 - if x == 1 then - waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. - return - end - end - end - werror("bad alignment") -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode for (primitive) type definitions (map to C types). -map_op[".type_3"] = function(params, nparams) - if not params then - return nparams == 2 and "name, ctype" or "name, ctype, reg" - end - local name, ctype, reg = params[1], params[2], params[3] - if not match(name, "^[%a_][%w_]*$") then - werror("bad type name `"..name.."'") - end - local tp = map_type[name] - if tp then - werror("duplicate type `"..name.."'") - end - -- Add #type to defines. A bit unclean to put it in map_archdef. - map_archdef["#"..name] = "sizeof("..ctype..")" - -- Add new type and emit shortcut define. - local num = ctypenum + 1 - map_type[name] = { - ctype = ctype, - ctypefmt = format("Dt%X(%%s)", num), - reg = reg, - } - wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) - ctypenum = num -end -map_op[".type_2"] = map_op[".type_3"] - --- Dump type definitions. -local function dumptypes(out, lvl) - local t = {} - for name in pairs(map_type) do t[#t+1] = name end - sort(t) - out:write("Type definitions:\n") - for _,name in ipairs(t) do - local tp = map_type[name] - local reg = tp.reg or "" - out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Set the current section. -function _M.section(num) - waction("SECTION", num) - wflush(true) -- SECTION is a terminal action. -end - ------------------------------------------------------------------------------- - --- Dump architecture description. -function _M.dumparch(out) - out:write(format("DynASM %s version %s, released %s\n\n", - _info.arch, _info.version, _info.release)) - dumpactions(out) -end - --- Dump all user defined elements. -function _M.dumpdef(out, lvl) - dumptypes(out, lvl) - dumpglobals(out, lvl) - dumpexterns(out, lvl) -end - ------------------------------------------------------------------------------- - --- Pass callbacks from/to the DynASM core. -function _M.passcb(wl, we, wf, ww) - wline, werror, wfatal, wwarn = wl, we, wf, ww - return wflush -end - --- Setup the arch-specific module. -function _M.setup(arch, opt) - g_arch, g_opt = arch, opt -end - --- Merge the core maps and the arch-specific maps. -function _M.mergemaps(map_coreop, map_def) - setmetatable(map_op, { __index = map_coreop }) - setmetatable(map_def, { __index = map_archdef }) - return map_op, map_def -end - -return _M - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h deleted file mode 100644 index 2f4c2d2220a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.h +++ /dev/null @@ -1,416 +0,0 @@ -/* -** DynASM MIPS encoding engine. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#include -#include -#include -#include - -#define DASM_ARCH "mips" - -#ifndef DASM_EXTERN -#define DASM_EXTERN(a,b,c,d) 0 -#endif - -/* Action definitions. */ -enum { - DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, - /* The following actions need a buffer position. */ - DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, - /* The following actions also have an argument. */ - DASM_REL_PC, DASM_LABEL_PC, DASM_IMM, - DASM__MAX -}; - -/* Maximum number of section buffer positions for a single dasm_put() call. */ -#define DASM_MAXSECPOS 25 - -/* DynASM encoder status codes. Action list offset or number are or'ed in. */ -#define DASM_S_OK 0x00000000 -#define DASM_S_NOMEM 0x01000000 -#define DASM_S_PHASE 0x02000000 -#define DASM_S_MATCH_SEC 0x03000000 -#define DASM_S_RANGE_I 0x11000000 -#define DASM_S_RANGE_SEC 0x12000000 -#define DASM_S_RANGE_LG 0x13000000 -#define DASM_S_RANGE_PC 0x14000000 -#define DASM_S_RANGE_REL 0x15000000 -#define DASM_S_UNDEF_LG 0x21000000 -#define DASM_S_UNDEF_PC 0x22000000 - -/* Macros to convert positions (8 bit section + 24 bit index). */ -#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) -#define DASM_POS2BIAS(pos) ((pos)&0xff000000) -#define DASM_SEC2POS(sec) ((sec)<<24) -#define DASM_POS2SEC(pos) ((pos)>>24) -#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) - -/* Action list type. */ -typedef const unsigned int *dasm_ActList; - -/* Per-section structure. */ -typedef struct dasm_Section { - int *rbuf; /* Biased buffer pointer (negative section bias). */ - int *buf; /* True buffer pointer. */ - size_t bsize; /* Buffer size in bytes. */ - int pos; /* Biased buffer position. */ - int epos; /* End of biased buffer position - max single put. */ - int ofs; /* Byte offset into section. */ -} dasm_Section; - -/* Core structure holding the DynASM encoding state. */ -struct dasm_State { - size_t psize; /* Allocated size of this structure. */ - dasm_ActList actionlist; /* Current actionlist pointer. */ - int *lglabels; /* Local/global chain/pos ptrs. */ - size_t lgsize; - int *pclabels; /* PC label chains/pos ptrs. */ - size_t pcsize; - void **globals; /* Array of globals (bias -10). */ - dasm_Section *section; /* Pointer to active section. */ - size_t codesize; /* Total size of all code sections. */ - int maxsection; /* 0 <= sectionidx < maxsection. */ - int status; /* Status code. */ - dasm_Section sections[1]; /* All sections. Alloc-extended. */ -}; - -/* The size of the core structure depends on the max. number of sections. */ -#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) - - -/* Initialize DynASM state. */ -void dasm_init(Dst_DECL, int maxsection) -{ - dasm_State *D; - size_t psz = 0; - int i; - Dst_REF = NULL; - DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); - D = Dst_REF; - D->psize = psz; - D->lglabels = NULL; - D->lgsize = 0; - D->pclabels = NULL; - D->pcsize = 0; - D->globals = NULL; - D->maxsection = maxsection; - for (i = 0; i < maxsection; i++) { - D->sections[i].buf = NULL; /* Need this for pass3. */ - D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); - D->sections[i].bsize = 0; - D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ - } -} - -/* Free DynASM state. */ -void dasm_free(Dst_DECL) -{ - dasm_State *D = Dst_REF; - int i; - for (i = 0; i < D->maxsection; i++) - if (D->sections[i].buf) - DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); - if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); - if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); - DASM_M_FREE(Dst, D, D->psize); -} - -/* Setup global label array. Must be called before dasm_setup(). */ -void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) -{ - dasm_State *D = Dst_REF; - D->globals = gl - 10; /* Negative bias to compensate for locals. */ - DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); -} - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -void dasm_growpc(Dst_DECL, unsigned int maxpc) -{ - dasm_State *D = Dst_REF; - size_t osz = D->pcsize; - DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); - memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); -} - -/* Setup encoder. */ -void dasm_setup(Dst_DECL, const void *actionlist) -{ - dasm_State *D = Dst_REF; - int i; - D->actionlist = (dasm_ActList)actionlist; - D->status = DASM_S_OK; - D->section = &D->sections[0]; - memset((void *)D->lglabels, 0, D->lgsize); - if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); - for (i = 0; i < D->maxsection; i++) { - D->sections[i].pos = DASM_SEC2POS(i); - D->sections[i].ofs = 0; - } -} - - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) { \ - D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) -#define CKPL(kind, st) \ - do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ - D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) -#else -#define CK(x, st) ((void)0) -#define CKPL(kind, st) ((void)0) -#endif - -/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ -void dasm_put(Dst_DECL, int start, ...) -{ - va_list ap; - dasm_State *D = Dst_REF; - dasm_ActList p = D->actionlist + start; - dasm_Section *sec = D->section; - int pos = sec->pos, ofs = sec->ofs; - int *b; - - if (pos >= sec->epos) { - DASM_M_GROW(Dst, int, sec->buf, sec->bsize, - sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); - sec->rbuf = sec->buf - DASM_POS2BIAS(pos); - sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); - } - - b = sec->rbuf; - b[pos++] = start; - - va_start(ap, start); - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16) - 0xff00; - if (action >= DASM__MAX) { - ofs += 4; - } else { - int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; - switch (action) { - case DASM_STOP: goto stop; - case DASM_SECTION: - n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); - D->section = &D->sections[n]; goto stop; - case DASM_ESC: p++; ofs += 4; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; - case DASM_REL_LG: - n = (ins & 2047) - 10; pl = D->lglabels + n; - /* Bkwd rel or global. */ - if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } - pl += 10; n = *pl; - if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ - goto linkrel; - case DASM_REL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putrel: - n = *pl; - if (n < 0) { /* Label exists. Get label pos and store it. */ - b[pos] = -n; - } else { - linkrel: - b[pos] = n; /* Else link to rel chain, anchored at label. */ - *pl = pos; - } - pos++; - break; - case DASM_LABEL_LG: - pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; - case DASM_LABEL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putlabel: - n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; - } - *pl = -pos; /* Label exists now. */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_IMM: -#ifdef DASM_CHECKS - CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); -#endif - n >>= ((ins>>10)&31); -#ifdef DASM_CHECKS - if (ins & 0x8000) - CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); - else - CK((n>>((ins>>5)&31)) == 0, RANGE_I); -#endif - b[pos++] = n; - break; - } - } - } -stop: - va_end(ap); - sec->pos = pos; - sec->ofs = ofs; -} -#undef CK - -/* Pass 2: Link sections, shrink aligns, fix label offsets. */ -int dasm_link(Dst_DECL, size_t *szp) -{ - dasm_State *D = Dst_REF; - int secnum; - int ofs = 0; - -#ifdef DASM_CHECKS - *szp = 0; - if (D->status != DASM_S_OK) return D->status; - { - int pc; - for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) - if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; - } -#endif - - { /* Handle globals not defined in this translation unit. */ - int idx; - for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { - int n = D->lglabels[idx]; - /* Undefined label: Collapse rel chain and replace with marker (< 0). */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } - } - } - - /* Combine all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->rbuf; - int pos = DASM_SEC2POS(secnum); - int lastpos = sec->pos; - - while (pos != lastpos) { - dasm_ActList p = D->actionlist + b[pos++]; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16) - 0xff00; - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: p++; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; - case DASM_REL_LG: case DASM_REL_PC: pos++; break; - case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; - case DASM_IMM: pos++; break; - } - } - stop: (void)0; - } - ofs += sec->ofs; /* Next section starts right after current section. */ - } - - D->codesize = ofs; /* Total size of all code sections */ - *szp = ofs; - return DASM_S_OK; -} - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) -#else -#define CK(x, st) ((void)0) -#endif - -/* Pass 3: Encode sections. */ -int dasm_encode(Dst_DECL, void *buffer) -{ - dasm_State *D = Dst_REF; - char *base = (char *)buffer; - unsigned int *cp = (unsigned int *)buffer; - int secnum; - - /* Encode all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->buf; - int *endb = sec->rbuf + sec->pos; - - while (b != endb) { - dasm_ActList p = D->actionlist + *b++; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16) - 0xff00; - int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: *cp++ = *p++; break; - case DASM_REL_EXT: - n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins & 2047), 1); - goto patchrel; - case DASM_ALIGN: - ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0x60000000; - break; - case DASM_REL_LG: - CK(n >= 0, UNDEF_LG); - case DASM_REL_PC: - CK(n >= 0, UNDEF_PC); - n = *DASM_POS2PTR(D, n); - if (ins & 2048) - n = n - (int)((char *)cp - base); - else - n = (n + (int)base) & 0x0fffffff; - patchrel: - CK((n & 3) == 0 && - ((n + ((ins & 2048) ? 0x00020000 : 0)) >> - ((ins & 2048) ? 18 : 28)) == 0, RANGE_REL); - cp[-1] |= ((n>>2) & ((ins & 2048) ? 0x0000ffff: 0x03ffffff)); - break; - case DASM_LABEL_LG: - ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); - break; - case DASM_LABEL_PC: break; - case DASM_IMM: - cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); - break; - default: *cp++ = ins; break; - } - } - stop: (void)0; - } - } - - if (base + D->codesize != (char *)cp) /* Check for phase errors. */ - return DASM_S_PHASE; - return DASM_S_OK; -} -#undef CK - -/* Get PC label offset. */ -int dasm_getpclabel(Dst_DECL, unsigned int pc) -{ - dasm_State *D = Dst_REF; - if (pc*sizeof(int) < D->pcsize) { - int pos = D->pclabels[pc]; - if (pos < 0) return *DASM_POS2PTR(D, -pos); - if (pos > 0) return -1; /* Undefined. */ - } - return -2; /* Unused or out of range. */ -} - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -int dasm_checkstep(Dst_DECL, int secmatch) -{ - dasm_State *D = Dst_REF; - if (D->status == DASM_S_OK) { - int i; - for (i = 1; i <= 9; i++) { - if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } - D->lglabels[i] = 0; - } - } - if (D->status == DASM_S_OK && secmatch >= 0 && - D->section != &D->sections[secmatch]) - D->status = DASM_S_MATCH_SEC|(D->section-D->sections); - return D->status; -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua deleted file mode 100644 index ae0dbd7a9bc..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_mips.lua +++ /dev/null @@ -1,953 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM MIPS module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- - --- Module information: -local _info = { - arch = "mips", - description = "DynASM MIPS module", - version = "1.3.0", - vernum = 10300, - release = "2012-01-23", - author = "Mike Pall", - license = "MIT", -} - --- Exported glue functions for the arch-specific module. -local _M = { _info = _info } - --- Cache library functions. -local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs -local assert, setmetatable = assert, setmetatable -local _s = string -local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char -local match, gmatch = _s.match, _s.gmatch -local concat, sort = table.concat, table.sort -local bit = bit or require("bit") -local band, shl, sar, tohex = bit.band, bit.lshift, bit.arshift, bit.tohex - --- Inherited tables and callbacks. -local g_opt, g_arch -local wline, werror, wfatal, wwarn - --- Action name list. --- CHECK: Keep this in sync with the C code! -local action_names = { - "STOP", "SECTION", "ESC", "REL_EXT", - "ALIGN", "REL_LG", "LABEL_LG", - "REL_PC", "LABEL_PC", "IMM", -} - --- Maximum number of section buffer positions for dasm_put(). --- CHECK: Keep this in sync with the C code! -local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. - --- Action name -> action number. -local map_action = {} -for n,name in ipairs(action_names) do - map_action[name] = n-1 -end - --- Action list buffer. -local actlist = {} - --- Argument list for next dasm_put(). Start with offset 0 into action list. -local actargs = { 0 } - --- Current number of section buffer positions for dasm_put(). -local secpos = 1 - ------------------------------------------------------------------------------- - --- Dump action names and numbers. -local function dumpactions(out) - out:write("DynASM encoding engine action codes:\n") - for n,name in ipairs(action_names) do - local num = map_action[name] - out:write(format(" %-10s %02X %d\n", name, num, num)) - end - out:write("\n") -end - --- Write action list buffer as a huge static C array. -local function writeactions(out, name) - local nn = #actlist - if nn == 0 then nn = 1; actlist[0] = map_action.STOP end - out:write("static const unsigned int ", name, "[", nn, "] = {\n") - for i = 1,nn-1 do - assert(out:write("0x", tohex(actlist[i]), ",\n")) - end - assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) -end - ------------------------------------------------------------------------------- - --- Add word to action list. -local function wputxw(n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[#actlist+1] = n -end - --- Add action to list with optional arg. Advance buffer pos, too. -local function waction(action, val, a, num) - local w = assert(map_action[action], "bad action name `"..action.."'") - wputxw(0xff000000 + w * 0x10000 + (val or 0)) - if a then actargs[#actargs+1] = a end - if a or num then secpos = secpos + (num or 1) end -end - --- Flush action list (intervening C code or buffer pos overflow). -local function wflush(term) - if #actlist == actargs[1] then return end -- Nothing to flush. - if not term then waction("STOP") end -- Terminate action list. - wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) - actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). - secpos = 1 -- The actionlist offset occupies a buffer position, too. -end - --- Put escaped word. -local function wputw(n) - if n >= 0xff000000 then waction("ESC") end - wputxw(n) -end - --- Reserve position for word. -local function wpos() - local pos = #actlist+1 - actlist[pos] = "" - return pos -end - --- Store word to reserved position. -local function wputpos(pos, n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[pos] = n -end - ------------------------------------------------------------------------------- - --- Global label name -> global label number. With auto assignment on 1st use. -local next_global = 20 -local map_global = setmetatable({}, { __index = function(t, name) - if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end - local n = next_global - if n > 2047 then werror("too many global labels") end - next_global = n + 1 - t[name] = n - return n -end}) - --- Dump global labels. -local function dumpglobals(out, lvl) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("Global labels:\n") - for i=20,next_global-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write global label enum. -local function writeglobals(out, prefix) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("enum {\n") - for i=20,next_global-1 do - out:write(" ", prefix, t[i], ",\n") - end - out:write(" ", prefix, "_MAX\n};\n") -end - --- Write global label names. -local function writeglobalnames(out, name) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=20,next_global-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Extern label name -> extern label number. With auto assignment on 1st use. -local next_extern = 0 -local map_extern_ = {} -local map_extern = setmetatable({}, { __index = function(t, name) - -- No restrictions on the name for now. - local n = next_extern - if n > 2047 then werror("too many extern labels") end - next_extern = n + 1 - t[name] = n - map_extern_[n] = name - return n -end}) - --- Dump extern labels. -local function dumpexterns(out, lvl) - out:write("Extern labels:\n") - for i=0,next_extern-1 do - out:write(format(" %s\n", map_extern_[i])) - end - out:write("\n") -end - --- Write extern label names. -local function writeexternnames(out, name) - out:write("static const char *const ", name, "[] = {\n") - for i=0,next_extern-1 do - out:write(" \"", map_extern_[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Arch-specific maps. -local map_archdef = { sp="r29", ra="r31" } -- Ext. register name -> int. name. - -local map_type = {} -- Type name -> { ctype, reg } -local ctypenum = 0 -- Type number (for Dt... macros). - --- Reverse defines for registers. -function _M.revdef(s) - if s == "r29" then return "sp" - elseif s == "r31" then return "ra" end - return s -end - ------------------------------------------------------------------------------- - --- Template strings for MIPS instructions. -local map_op = { - -- First-level opcodes. - j_1 = "08000000J", - jal_1 = "0c000000J", - b_1 = "10000000B", - beqz_2 = "10000000SB", - beq_3 = "10000000STB", - bnez_2 = "14000000SB", - bne_3 = "14000000STB", - blez_2 = "18000000SB", - bgtz_2 = "1c000000SB", - addi_3 = "20000000TSI", - li_2 = "24000000TI", - addiu_3 = "24000000TSI", - slti_3 = "28000000TSI", - sltiu_3 = "2c000000TSI", - andi_3 = "30000000TSU", - lu_2 = "34000000TU", - ori_3 = "34000000TSU", - xori_3 = "38000000TSU", - lui_2 = "3c000000TU", - beqzl_2 = "50000000SB", - beql_3 = "50000000STB", - bnezl_2 = "54000000SB", - bnel_3 = "54000000STB", - blezl_2 = "58000000SB", - bgtzl_2 = "5c000000SB", - lb_2 = "80000000TO", - lh_2 = "84000000TO", - lwl_2 = "88000000TO", - lw_2 = "8c000000TO", - lbu_2 = "90000000TO", - lhu_2 = "94000000TO", - lwr_2 = "98000000TO", - sb_2 = "a0000000TO", - sh_2 = "a4000000TO", - swl_2 = "a8000000TO", - sw_2 = "ac000000TO", - swr_2 = "b8000000TO", - cache_2 = "bc000000NO", - ll_2 = "c0000000TO", - lwc1_2 = "c4000000HO", - pref_2 = "cc000000NO", - ldc1_2 = "d4000000HO", - sc_2 = "e0000000TO", - swc1_2 = "e4000000HO", - sdc1_2 = "f4000000HO", - - -- Opcode SPECIAL. - nop_0 = "00000000", - sll_3 = "00000000DTA", - movf_2 = "00000001DS", - movf_3 = "00000001DSC", - movt_2 = "00010001DS", - movt_3 = "00010001DSC", - srl_3 = "00000002DTA", - rotr_3 = "00200002DTA", - sra_3 = "00000003DTA", - sllv_3 = "00000004DTS", - srlv_3 = "00000006DTS", - rotrv_3 = "00000046DTS", - srav_3 = "00000007DTS", - jr_1 = "00000008S", - jalr_1 = "0000f809S", - jalr_2 = "00000009DS", - movz_3 = "0000000aDST", - movn_3 = "0000000bDST", - syscall_0 = "0000000c", - syscall_1 = "0000000cY", - break_0 = "0000000d", - break_1 = "0000000dY", - sync_0 = "0000000f", - mfhi_1 = "00000010D", - mthi_1 = "00000011S", - mflo_1 = "00000012D", - mtlo_1 = "00000013S", - mult_2 = "00000018ST", - multu_2 = "00000019ST", - div_2 = "0000001aST", - divu_2 = "0000001bST", - add_3 = "00000020DST", - move_2 = "00000021DS", - addu_3 = "00000021DST", - sub_3 = "00000022DST", - negu_2 = "00000023DT", - subu_3 = "00000023DST", - and_3 = "00000024DST", - or_3 = "00000025DST", - xor_3 = "00000026DST", - not_2 = "00000027DS", - nor_3 = "00000027DST", - slt_3 = "0000002aDST", - sltu_3 = "0000002bDST", - tge_2 = "00000030ST", - tge_3 = "00000030STZ", - tgeu_2 = "00000031ST", - tgeu_3 = "00000031STZ", - tlt_2 = "00000032ST", - tlt_3 = "00000032STZ", - tltu_2 = "00000033ST", - tltu_3 = "00000033STZ", - teq_2 = "00000034ST", - teq_3 = "00000034STZ", - tne_2 = "00000036ST", - tne_3 = "00000036STZ", - - -- Opcode REGIMM. - bltz_2 = "04000000SB", - bgez_2 = "04010000SB", - bltzl_2 = "04020000SB", - bgezl_2 = "04030000SB", - tgei_2 = "04080000SI", - tgeiu_2 = "04090000SI", - tlti_2 = "040a0000SI", - tltiu_2 = "040b0000SI", - teqi_2 = "040c0000SI", - tnei_2 = "040e0000SI", - bltzal_2 = "04100000SB", - bal_1 = "04110000B", - bgezal_2 = "04110000SB", - bltzall_2 = "04120000SB", - bgezall_2 = "04130000SB", - synci_1 = "041f0000O", - - -- Opcode SPECIAL2. - madd_2 = "70000000ST", - maddu_2 = "70000001ST", - mul_3 = "70000002DST", - msub_2 = "70000004ST", - msubu_2 = "70000005ST", - clz_2 = "70000020DS=", - clo_2 = "70000021DS=", - sdbbp_0 = "7000003f", - sdbbp_1 = "7000003fY", - - -- Opcode SPECIAL3. - ext_4 = "7c000000TSAM", -- Note: last arg is msbd = size-1 - ins_4 = "7c000004TSAM", -- Note: last arg is msb = pos+size-1 - wsbh_2 = "7c0000a0DT", - seb_2 = "7c000420DT", - seh_2 = "7c000620DT", - rdhwr_2 = "7c00003bTD", - - -- Opcode COP0. - mfc0_2 = "40000000TD", - mfc0_3 = "40000000TDW", - mtc0_2 = "40800000TD", - mtc0_3 = "40800000TDW", - rdpgpr_2 = "41400000DT", - di_0 = "41606000", - di_1 = "41606000T", - ei_0 = "41606020", - ei_1 = "41606020T", - wrpgpr_2 = "41c00000DT", - tlbr_0 = "42000001", - tlbwi_0 = "42000002", - tlbwr_0 = "42000006", - tlbp_0 = "42000008", - eret_0 = "42000018", - deret_0 = "4200001f", - wait_0 = "42000020", - - -- Opcode COP1. - mfc1_2 = "44000000TG", - cfc1_2 = "44400000TG", - mfhc1_2 = "44600000TG", - mtc1_2 = "44800000TG", - ctc1_2 = "44c00000TG", - mthc1_2 = "44e00000TG", - - bc1f_1 = "45000000B", - bc1f_2 = "45000000CB", - bc1t_1 = "45010000B", - bc1t_2 = "45010000CB", - bc1fl_1 = "45020000B", - bc1fl_2 = "45020000CB", - bc1tl_1 = "45030000B", - bc1tl_2 = "45030000CB", - - ["add.s_3"] = "46000000FGH", - ["sub.s_3"] = "46000001FGH", - ["mul.s_3"] = "46000002FGH", - ["div.s_3"] = "46000003FGH", - ["sqrt.s_2"] = "46000004FG", - ["abs.s_2"] = "46000005FG", - ["mov.s_2"] = "46000006FG", - ["neg.s_2"] = "46000007FG", - ["round.l.s_2"] = "46000008FG", - ["trunc.l.s_2"] = "46000009FG", - ["ceil.l.s_2"] = "4600000aFG", - ["floor.l.s_2"] = "4600000bFG", - ["round.w.s_2"] = "4600000cFG", - ["trunc.w.s_2"] = "4600000dFG", - ["ceil.w.s_2"] = "4600000eFG", - ["floor.w.s_2"] = "4600000fFG", - ["movf.s_2"] = "46000011FG", - ["movf.s_3"] = "46000011FGC", - ["movt.s_2"] = "46010011FG", - ["movt.s_3"] = "46010011FGC", - ["movz.s_3"] = "46000012FGT", - ["movn.s_3"] = "46000013FGT", - ["recip.s_2"] = "46000015FG", - ["rsqrt.s_2"] = "46000016FG", - ["cvt.d.s_2"] = "46000021FG", - ["cvt.w.s_2"] = "46000024FG", - ["cvt.l.s_2"] = "46000025FG", - ["cvt.ps.s_3"] = "46000026FGH", - ["c.f.s_2"] = "46000030GH", - ["c.f.s_3"] = "46000030VGH", - ["c.un.s_2"] = "46000031GH", - ["c.un.s_3"] = "46000031VGH", - ["c.eq.s_2"] = "46000032GH", - ["c.eq.s_3"] = "46000032VGH", - ["c.ueq.s_2"] = "46000033GH", - ["c.ueq.s_3"] = "46000033VGH", - ["c.olt.s_2"] = "46000034GH", - ["c.olt.s_3"] = "46000034VGH", - ["c.ult.s_2"] = "46000035GH", - ["c.ult.s_3"] = "46000035VGH", - ["c.ole.s_2"] = "46000036GH", - ["c.ole.s_3"] = "46000036VGH", - ["c.ule.s_2"] = "46000037GH", - ["c.ule.s_3"] = "46000037VGH", - ["c.sf.s_2"] = "46000038GH", - ["c.sf.s_3"] = "46000038VGH", - ["c.ngle.s_2"] = "46000039GH", - ["c.ngle.s_3"] = "46000039VGH", - ["c.seq.s_2"] = "4600003aGH", - ["c.seq.s_3"] = "4600003aVGH", - ["c.ngl.s_2"] = "4600003bGH", - ["c.ngl.s_3"] = "4600003bVGH", - ["c.lt.s_2"] = "4600003cGH", - ["c.lt.s_3"] = "4600003cVGH", - ["c.nge.s_2"] = "4600003dGH", - ["c.nge.s_3"] = "4600003dVGH", - ["c.le.s_2"] = "4600003eGH", - ["c.le.s_3"] = "4600003eVGH", - ["c.ngt.s_2"] = "4600003fGH", - ["c.ngt.s_3"] = "4600003fVGH", - - ["add.d_3"] = "46200000FGH", - ["sub.d_3"] = "46200001FGH", - ["mul.d_3"] = "46200002FGH", - ["div.d_3"] = "46200003FGH", - ["sqrt.d_2"] = "46200004FG", - ["abs.d_2"] = "46200005FG", - ["mov.d_2"] = "46200006FG", - ["neg.d_2"] = "46200007FG", - ["round.l.d_2"] = "46200008FG", - ["trunc.l.d_2"] = "46200009FG", - ["ceil.l.d_2"] = "4620000aFG", - ["floor.l.d_2"] = "4620000bFG", - ["round.w.d_2"] = "4620000cFG", - ["trunc.w.d_2"] = "4620000dFG", - ["ceil.w.d_2"] = "4620000eFG", - ["floor.w.d_2"] = "4620000fFG", - ["movf.d_2"] = "46200011FG", - ["movf.d_3"] = "46200011FGC", - ["movt.d_2"] = "46210011FG", - ["movt.d_3"] = "46210011FGC", - ["movz.d_3"] = "46200012FGT", - ["movn.d_3"] = "46200013FGT", - ["recip.d_2"] = "46200015FG", - ["rsqrt.d_2"] = "46200016FG", - ["cvt.s.d_2"] = "46200020FG", - ["cvt.w.d_2"] = "46200024FG", - ["cvt.l.d_2"] = "46200025FG", - ["c.f.d_2"] = "46200030GH", - ["c.f.d_3"] = "46200030VGH", - ["c.un.d_2"] = "46200031GH", - ["c.un.d_3"] = "46200031VGH", - ["c.eq.d_2"] = "46200032GH", - ["c.eq.d_3"] = "46200032VGH", - ["c.ueq.d_2"] = "46200033GH", - ["c.ueq.d_3"] = "46200033VGH", - ["c.olt.d_2"] = "46200034GH", - ["c.olt.d_3"] = "46200034VGH", - ["c.ult.d_2"] = "46200035GH", - ["c.ult.d_3"] = "46200035VGH", - ["c.ole.d_2"] = "46200036GH", - ["c.ole.d_3"] = "46200036VGH", - ["c.ule.d_2"] = "46200037GH", - ["c.ule.d_3"] = "46200037VGH", - ["c.sf.d_2"] = "46200038GH", - ["c.sf.d_3"] = "46200038VGH", - ["c.ngle.d_2"] = "46200039GH", - ["c.ngle.d_3"] = "46200039VGH", - ["c.seq.d_2"] = "4620003aGH", - ["c.seq.d_3"] = "4620003aVGH", - ["c.ngl.d_2"] = "4620003bGH", - ["c.ngl.d_3"] = "4620003bVGH", - ["c.lt.d_2"] = "4620003cGH", - ["c.lt.d_3"] = "4620003cVGH", - ["c.nge.d_2"] = "4620003dGH", - ["c.nge.d_3"] = "4620003dVGH", - ["c.le.d_2"] = "4620003eGH", - ["c.le.d_3"] = "4620003eVGH", - ["c.ngt.d_2"] = "4620003fGH", - ["c.ngt.d_3"] = "4620003fVGH", - - ["add.ps_3"] = "46c00000FGH", - ["sub.ps_3"] = "46c00001FGH", - ["mul.ps_3"] = "46c00002FGH", - ["abs.ps_2"] = "46c00005FG", - ["mov.ps_2"] = "46c00006FG", - ["neg.ps_2"] = "46c00007FG", - ["movf.ps_2"] = "46c00011FG", - ["movf.ps_3"] = "46c00011FGC", - ["movt.ps_2"] = "46c10011FG", - ["movt.ps_3"] = "46c10011FGC", - ["movz.ps_3"] = "46c00012FGT", - ["movn.ps_3"] = "46c00013FGT", - ["cvt.s.pu_2"] = "46c00020FG", - ["cvt.s.pl_2"] = "46c00028FG", - ["pll.ps_3"] = "46c0002cFGH", - ["plu.ps_3"] = "46c0002dFGH", - ["pul.ps_3"] = "46c0002eFGH", - ["puu.ps_3"] = "46c0002fFGH", - ["c.f.ps_2"] = "46c00030GH", - ["c.f.ps_3"] = "46c00030VGH", - ["c.un.ps_2"] = "46c00031GH", - ["c.un.ps_3"] = "46c00031VGH", - ["c.eq.ps_2"] = "46c00032GH", - ["c.eq.ps_3"] = "46c00032VGH", - ["c.ueq.ps_2"] = "46c00033GH", - ["c.ueq.ps_3"] = "46c00033VGH", - ["c.olt.ps_2"] = "46c00034GH", - ["c.olt.ps_3"] = "46c00034VGH", - ["c.ult.ps_2"] = "46c00035GH", - ["c.ult.ps_3"] = "46c00035VGH", - ["c.ole.ps_2"] = "46c00036GH", - ["c.ole.ps_3"] = "46c00036VGH", - ["c.ule.ps_2"] = "46c00037GH", - ["c.ule.ps_3"] = "46c00037VGH", - ["c.sf.ps_2"] = "46c00038GH", - ["c.sf.ps_3"] = "46c00038VGH", - ["c.ngle.ps_2"] = "46c00039GH", - ["c.ngle.ps_3"] = "46c00039VGH", - ["c.seq.ps_2"] = "46c0003aGH", - ["c.seq.ps_3"] = "46c0003aVGH", - ["c.ngl.ps_2"] = "46c0003bGH", - ["c.ngl.ps_3"] = "46c0003bVGH", - ["c.lt.ps_2"] = "46c0003cGH", - ["c.lt.ps_3"] = "46c0003cVGH", - ["c.nge.ps_2"] = "46c0003dGH", - ["c.nge.ps_3"] = "46c0003dVGH", - ["c.le.ps_2"] = "46c0003eGH", - ["c.le.ps_3"] = "46c0003eVGH", - ["c.ngt.ps_2"] = "46c0003fGH", - ["c.ngt.ps_3"] = "46c0003fVGH", - - ["cvt.s.w_2"] = "46800020FG", - ["cvt.d.w_2"] = "46800021FG", - - ["cvt.s.l_2"] = "46a00020FG", - ["cvt.d.l_2"] = "46a00021FG", - - -- Opcode COP1X. - lwxc1_2 = "4c000000FX", - ldxc1_2 = "4c000001FX", - luxc1_2 = "4c000005FX", - swxc1_2 = "4c000008FX", - sdxc1_2 = "4c000009FX", - suxc1_2 = "4c00000dFX", - prefx_2 = "4c00000fMX", - ["alnv.ps_4"] = "4c00001eFGHS", - ["madd.s_4"] = "4c000020FRGH", - ["madd.d_4"] = "4c000021FRGH", - ["madd.ps_4"] = "4c000026FRGH", - ["msub.s_4"] = "4c000028FRGH", - ["msub.d_4"] = "4c000029FRGH", - ["msub.ps_4"] = "4c00002eFRGH", - ["nmadd.s_4"] = "4c000030FRGH", - ["nmadd.d_4"] = "4c000031FRGH", - ["nmadd.ps_4"] = "4c000036FRGH", - ["nmsub.s_4"] = "4c000038FRGH", - ["nmsub.d_4"] = "4c000039FRGH", - ["nmsub.ps_4"] = "4c00003eFRGH", -} - ------------------------------------------------------------------------------- - -local function parse_gpr(expr) - local tname, ovreg = match(expr, "^([%w_]+):(r[1-3]?[0-9])$") - local tp = map_type[tname or expr] - if tp then - local reg = ovreg or tp.reg - if not reg then - werror("type `"..(tname or expr).."' needs a register override") - end - expr = reg - end - local r = match(expr, "^r([1-3]?[0-9])$") - if r then - r = tonumber(r) - if r <= 31 then return r, tp end - end - werror("bad register name `"..expr.."'") -end - -local function parse_fpr(expr) - local r = match(expr, "^f([1-3]?[0-9])$") - if r then - r = tonumber(r) - if r <= 31 then return r end - end - werror("bad register name `"..expr.."'") -end - -local function parse_imm(imm, bits, shift, scale, signed) - local n = tonumber(imm) - if n then - local m = sar(n, scale) - if shl(m, scale) == n then - if signed then - local s = sar(m, bits-1) - if s == 0 then return shl(m, shift) - elseif s == -1 then return shl(m + shl(1, bits), shift) end - else - if sar(m, bits) == 0 then return shl(m, shift) end - end - end - werror("out of range immediate `"..imm.."'") - elseif match(imm, "^[rf]([1-3]?[0-9])$") or - match(imm, "^([%w_]+):([rf][1-3]?[0-9])$") then - werror("expected immediate operand, got register") - else - waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) - return 0 - end -end - -local function parse_disp(disp) - local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") - if imm then - local r = shl(parse_gpr(reg), 21) - local extname = match(imm, "^extern%s+(%S+)$") - if extname then - waction("REL_EXT", map_extern[extname], nil, 1) - return r - else - return r + parse_imm(imm, 16, 0, 0, true) - end - end - local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local r, tp = parse_gpr(reg) - if tp then - waction("IMM", 32768+16*32, format(tp.ctypefmt, tailr)) - return shl(r, 21) - end - end - werror("bad displacement `"..disp.."'") -end - -local function parse_index(idx) - local rt, rs = match(idx, "^(.*)%(([%w_:]+)%)$") - if rt then - rt = parse_gpr(rt) - rs = parse_gpr(rs) - return shl(rt, 16) + shl(rs, 21) - end - werror("bad index `"..idx.."'") -end - -local function parse_label(label, def) - local prefix = sub(label, 1, 2) - -- =>label (pc label reference) - if prefix == "=>" then - return "PC", 0, sub(label, 3) - end - -- ->name (global label reference) - if prefix == "->" then - return "LG", map_global[sub(label, 3)] - end - if def then - -- [1-9] (local label definition) - if match(label, "^[1-9]$") then - return "LG", 10+tonumber(label) - end - else - -- [<>][1-9] (local label reference) - local dir, lnum = match(label, "^([<>])([1-9])$") - if dir then -- Fwd: 1-9, Bkwd: 11-19. - return "LG", lnum + (dir == ">" and 0 or 10) - end - -- extern label (extern label reference) - local extname = match(label, "^extern%s+(%S+)$") - if extname then - return "EXT", map_extern[extname] - end - end - werror("bad label `"..label.."'") -end - ------------------------------------------------------------------------------- - --- Handle opcodes defined with template strings. -map_op[".template__"] = function(params, template, nparams) - if not params then return sub(template, 9) end - local op = tonumber(sub(template, 1, 8), 16) - local n = 1 - - -- Limit number of section buffer positions used by a single dasm_put(). - -- A single opcode needs a maximum of 2 positions (ins/ext). - if secpos+2 > maxsecpos then wflush() end - local pos = wpos() - - -- Process each character. - for p in gmatch(sub(template, 9), ".") do - if p == "D" then - op = op + shl(parse_gpr(params[n]), 11); n = n + 1 - elseif p == "T" then - op = op + shl(parse_gpr(params[n]), 16); n = n + 1 - elseif p == "S" then - op = op + shl(parse_gpr(params[n]), 21); n = n + 1 - elseif p == "F" then - op = op + shl(parse_fpr(params[n]), 6); n = n + 1 - elseif p == "G" then - op = op + shl(parse_fpr(params[n]), 11); n = n + 1 - elseif p == "H" then - op = op + shl(parse_fpr(params[n]), 16); n = n + 1 - elseif p == "R" then - op = op + shl(parse_fpr(params[n]), 21); n = n + 1 - elseif p == "I" then - op = op + parse_imm(params[n], 16, 0, 0, true); n = n + 1 - elseif p == "U" then - op = op + parse_imm(params[n], 16, 0, 0, false); n = n + 1 - elseif p == "O" then - op = op + parse_disp(params[n]); n = n + 1 - elseif p == "X" then - op = op + parse_index(params[n]); n = n + 1 - elseif p == "B" or p == "J" then - local mode, n, s = parse_label(params[n], false) - if p == "B" then n = n + 2048 end - waction("REL_"..mode, n, s, 1) - n = n + 1 - elseif p == "A" then - op = op + parse_imm(params[n], 5, 6, 0, false); n = n + 1 - elseif p == "M" then - op = op + parse_imm(params[n], 5, 11, 0, false); n = n + 1 - elseif p == "N" then - op = op + parse_imm(params[n], 5, 16, 0, false); n = n + 1 - elseif p == "C" then - op = op + parse_imm(params[n], 3, 18, 0, false); n = n + 1 - elseif p == "V" then - op = op + parse_imm(params[n], 3, 8, 0, false); n = n + 1 - elseif p == "W" then - op = op + parse_imm(params[n], 3, 0, 0, false); n = n + 1 - elseif p == "Y" then - op = op + parse_imm(params[n], 20, 6, 0, false); n = n + 1 - elseif p == "Z" then - op = op + parse_imm(params[n], 10, 6, 0, false); n = n + 1 - elseif p == "=" then - op = op + shl(band(op, 0xf800), 5) -- Copy D to T for clz, clo. - else - assert(false) - end - end - wputpos(pos, op) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode to mark the position where the action list is to be emitted. -map_op[".actionlist_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeactions(out, name) end) -end - --- Pseudo-opcode to mark the position where the global enum is to be emitted. -map_op[".globals_1"] = function(params) - if not params then return "prefix" end - local prefix = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobals(out, prefix) end) -end - --- Pseudo-opcode to mark the position where the global names are to be emitted. -map_op[".globalnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobalnames(out, name) end) -end - --- Pseudo-opcode to mark the position where the extern names are to be emitted. -map_op[".externnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeexternnames(out, name) end) -end - ------------------------------------------------------------------------------- - --- Label pseudo-opcode (converted from trailing colon form). -map_op[".label_1"] = function(params) - if not params then return "[1-9] | ->global | =>pcexpr" end - if secpos+1 > maxsecpos then wflush() end - local mode, n, s = parse_label(params[1], true) - if mode == "EXT" then werror("bad label definition") end - waction("LABEL_"..mode, n, s, 1) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcodes for data storage. -map_op[".long_*"] = function(params) - if not params then return "imm..." end - for _,p in ipairs(params) do - local n = tonumber(p) - if not n then werror("bad immediate `"..p.."'") end - if n < 0 then n = n + 2^32 end - wputw(n) - if secpos+2 > maxsecpos then wflush() end - end -end - --- Alignment pseudo-opcode. -map_op[".align_1"] = function(params) - if not params then return "numpow2" end - if secpos+1 > maxsecpos then wflush() end - local align = tonumber(params[1]) - if align then - local x = align - -- Must be a power of 2 in the range (2 ... 256). - for i=1,8 do - x = x / 2 - if x == 1 then - waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. - return - end - end - end - werror("bad alignment") -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode for (primitive) type definitions (map to C types). -map_op[".type_3"] = function(params, nparams) - if not params then - return nparams == 2 and "name, ctype" or "name, ctype, reg" - end - local name, ctype, reg = params[1], params[2], params[3] - if not match(name, "^[%a_][%w_]*$") then - werror("bad type name `"..name.."'") - end - local tp = map_type[name] - if tp then - werror("duplicate type `"..name.."'") - end - -- Add #type to defines. A bit unclean to put it in map_archdef. - map_archdef["#"..name] = "sizeof("..ctype..")" - -- Add new type and emit shortcut define. - local num = ctypenum + 1 - map_type[name] = { - ctype = ctype, - ctypefmt = format("Dt%X(%%s)", num), - reg = reg, - } - wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) - ctypenum = num -end -map_op[".type_2"] = map_op[".type_3"] - --- Dump type definitions. -local function dumptypes(out, lvl) - local t = {} - for name in pairs(map_type) do t[#t+1] = name end - sort(t) - out:write("Type definitions:\n") - for _,name in ipairs(t) do - local tp = map_type[name] - local reg = tp.reg or "" - out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Set the current section. -function _M.section(num) - waction("SECTION", num) - wflush(true) -- SECTION is a terminal action. -end - ------------------------------------------------------------------------------- - --- Dump architecture description. -function _M.dumparch(out) - out:write(format("DynASM %s version %s, released %s\n\n", - _info.arch, _info.version, _info.release)) - dumpactions(out) -end - --- Dump all user defined elements. -function _M.dumpdef(out, lvl) - dumptypes(out, lvl) - dumpglobals(out, lvl) - dumpexterns(out, lvl) -end - ------------------------------------------------------------------------------- - --- Pass callbacks from/to the DynASM core. -function _M.passcb(wl, we, wf, ww) - wline, werror, wfatal, wwarn = wl, we, wf, ww - return wflush -end - --- Setup the arch-specific module. -function _M.setup(arch, opt) - g_arch, g_opt = arch, opt -end - --- Merge the core maps and the arch-specific maps. -function _M.mergemaps(map_coreop, map_def) - setmetatable(map_op, { __index = map_coreop }) - setmetatable(map_def, { __index = map_archdef }) - return map_op, map_def -end - -return _M - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h deleted file mode 100644 index 7df49365435..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.h +++ /dev/null @@ -1,412 +0,0 @@ -/* -** DynASM PPC encoding engine. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#include -#include -#include -#include - -#define DASM_ARCH "ppc" - -#ifndef DASM_EXTERN -#define DASM_EXTERN(a,b,c,d) 0 -#endif - -/* Action definitions. */ -enum { - DASM_STOP, DASM_SECTION, DASM_ESC, DASM_REL_EXT, - /* The following actions need a buffer position. */ - DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG, - /* The following actions also have an argument. */ - DASM_REL_PC, DASM_LABEL_PC, DASM_IMM, - DASM__MAX -}; - -/* Maximum number of section buffer positions for a single dasm_put() call. */ -#define DASM_MAXSECPOS 25 - -/* DynASM encoder status codes. Action list offset or number are or'ed in. */ -#define DASM_S_OK 0x00000000 -#define DASM_S_NOMEM 0x01000000 -#define DASM_S_PHASE 0x02000000 -#define DASM_S_MATCH_SEC 0x03000000 -#define DASM_S_RANGE_I 0x11000000 -#define DASM_S_RANGE_SEC 0x12000000 -#define DASM_S_RANGE_LG 0x13000000 -#define DASM_S_RANGE_PC 0x14000000 -#define DASM_S_RANGE_REL 0x15000000 -#define DASM_S_UNDEF_LG 0x21000000 -#define DASM_S_UNDEF_PC 0x22000000 - -/* Macros to convert positions (8 bit section + 24 bit index). */ -#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) -#define DASM_POS2BIAS(pos) ((pos)&0xff000000) -#define DASM_SEC2POS(sec) ((sec)<<24) -#define DASM_POS2SEC(pos) ((pos)>>24) -#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) - -/* Action list type. */ -typedef const unsigned int *dasm_ActList; - -/* Per-section structure. */ -typedef struct dasm_Section { - int *rbuf; /* Biased buffer pointer (negative section bias). */ - int *buf; /* True buffer pointer. */ - size_t bsize; /* Buffer size in bytes. */ - int pos; /* Biased buffer position. */ - int epos; /* End of biased buffer position - max single put. */ - int ofs; /* Byte offset into section. */ -} dasm_Section; - -/* Core structure holding the DynASM encoding state. */ -struct dasm_State { - size_t psize; /* Allocated size of this structure. */ - dasm_ActList actionlist; /* Current actionlist pointer. */ - int *lglabels; /* Local/global chain/pos ptrs. */ - size_t lgsize; - int *pclabels; /* PC label chains/pos ptrs. */ - size_t pcsize; - void **globals; /* Array of globals (bias -10). */ - dasm_Section *section; /* Pointer to active section. */ - size_t codesize; /* Total size of all code sections. */ - int maxsection; /* 0 <= sectionidx < maxsection. */ - int status; /* Status code. */ - dasm_Section sections[1]; /* All sections. Alloc-extended. */ -}; - -/* The size of the core structure depends on the max. number of sections. */ -#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) - - -/* Initialize DynASM state. */ -void dasm_init(Dst_DECL, int maxsection) -{ - dasm_State *D; - size_t psz = 0; - int i; - Dst_REF = NULL; - DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); - D = Dst_REF; - D->psize = psz; - D->lglabels = NULL; - D->lgsize = 0; - D->pclabels = NULL; - D->pcsize = 0; - D->globals = NULL; - D->maxsection = maxsection; - for (i = 0; i < maxsection; i++) { - D->sections[i].buf = NULL; /* Need this for pass3. */ - D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); - D->sections[i].bsize = 0; - D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ - } -} - -/* Free DynASM state. */ -void dasm_free(Dst_DECL) -{ - dasm_State *D = Dst_REF; - int i; - for (i = 0; i < D->maxsection; i++) - if (D->sections[i].buf) - DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); - if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); - if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); - DASM_M_FREE(Dst, D, D->psize); -} - -/* Setup global label array. Must be called before dasm_setup(). */ -void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) -{ - dasm_State *D = Dst_REF; - D->globals = gl - 10; /* Negative bias to compensate for locals. */ - DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); -} - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -void dasm_growpc(Dst_DECL, unsigned int maxpc) -{ - dasm_State *D = Dst_REF; - size_t osz = D->pcsize; - DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); - memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); -} - -/* Setup encoder. */ -void dasm_setup(Dst_DECL, const void *actionlist) -{ - dasm_State *D = Dst_REF; - int i; - D->actionlist = (dasm_ActList)actionlist; - D->status = DASM_S_OK; - D->section = &D->sections[0]; - memset((void *)D->lglabels, 0, D->lgsize); - if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); - for (i = 0; i < D->maxsection; i++) { - D->sections[i].pos = DASM_SEC2POS(i); - D->sections[i].ofs = 0; - } -} - - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) { \ - D->status = DASM_S_##st|(p-D->actionlist-1); return; } } while (0) -#define CKPL(kind, st) \ - do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ - D->status = DASM_S_RANGE_##st|(p-D->actionlist-1); return; } } while (0) -#else -#define CK(x, st) ((void)0) -#define CKPL(kind, st) ((void)0) -#endif - -/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ -void dasm_put(Dst_DECL, int start, ...) -{ - va_list ap; - dasm_State *D = Dst_REF; - dasm_ActList p = D->actionlist + start; - dasm_Section *sec = D->section; - int pos = sec->pos, ofs = sec->ofs; - int *b; - - if (pos >= sec->epos) { - DASM_M_GROW(Dst, int, sec->buf, sec->bsize, - sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); - sec->rbuf = sec->buf - DASM_POS2BIAS(pos); - sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); - } - - b = sec->rbuf; - b[pos++] = start; - - va_start(ap, start); - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - if (action >= DASM__MAX) { - ofs += 4; - } else { - int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0; - switch (action) { - case DASM_STOP: goto stop; - case DASM_SECTION: - n = (ins & 255); CK(n < D->maxsection, RANGE_SEC); - D->section = &D->sections[n]; goto stop; - case DASM_ESC: p++; ofs += 4; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break; - case DASM_REL_LG: - n = (ins & 2047) - 10; pl = D->lglabels + n; - /* Bkwd rel or global. */ - if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } - pl += 10; n = *pl; - if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ - goto linkrel; - case DASM_REL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putrel: - n = *pl; - if (n < 0) { /* Label exists. Get label pos and store it. */ - b[pos] = -n; - } else { - linkrel: - b[pos] = n; /* Else link to rel chain, anchored at label. */ - *pl = pos; - } - pos++; - break; - case DASM_LABEL_LG: - pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel; - case DASM_LABEL_PC: - pl = D->pclabels + n; CKPL(pc, PC); - putlabel: - n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; - } - *pl = -pos; /* Label exists now. */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_IMM: -#ifdef DASM_CHECKS - CK((n & ((1<<((ins>>10)&31))-1)) == 0, RANGE_I); -#endif - n >>= ((ins>>10)&31); -#ifdef DASM_CHECKS - if (ins & 0x8000) - CK(((n + (1<<(((ins>>5)&31)-1)))>>((ins>>5)&31)) == 0, RANGE_I); - else - CK((n>>((ins>>5)&31)) == 0, RANGE_I); -#endif - b[pos++] = n; - break; - } - } - } -stop: - va_end(ap); - sec->pos = pos; - sec->ofs = ofs; -} -#undef CK - -/* Pass 2: Link sections, shrink aligns, fix label offsets. */ -int dasm_link(Dst_DECL, size_t *szp) -{ - dasm_State *D = Dst_REF; - int secnum; - int ofs = 0; - -#ifdef DASM_CHECKS - *szp = 0; - if (D->status != DASM_S_OK) return D->status; - { - int pc; - for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) - if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; - } -#endif - - { /* Handle globals not defined in this translation unit. */ - int idx; - for (idx = 20; idx*sizeof(int) < D->lgsize; idx++) { - int n = D->lglabels[idx]; - /* Undefined label: Collapse rel chain and replace with marker (< 0). */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } - } - } - - /* Combine all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->rbuf; - int pos = DASM_SEC2POS(secnum); - int lastpos = sec->pos; - - while (pos != lastpos) { - dasm_ActList p = D->actionlist + b[pos++]; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: p++; break; - case DASM_REL_EXT: break; - case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break; - case DASM_REL_LG: case DASM_REL_PC: pos++; break; - case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break; - case DASM_IMM: pos++; break; - } - } - stop: (void)0; - } - ofs += sec->ofs; /* Next section starts right after current section. */ - } - - D->codesize = ofs; /* Total size of all code sections */ - *szp = ofs; - return DASM_S_OK; -} - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) return DASM_S_##st|(p-D->actionlist-1); } while (0) -#else -#define CK(x, st) ((void)0) -#endif - -/* Pass 3: Encode sections. */ -int dasm_encode(Dst_DECL, void *buffer) -{ - dasm_State *D = Dst_REF; - char *base = (char *)buffer; - unsigned int *cp = (unsigned int *)buffer; - int secnum; - - /* Encode all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->buf; - int *endb = sec->rbuf + sec->pos; - - while (b != endb) { - dasm_ActList p = D->actionlist + *b++; - while (1) { - unsigned int ins = *p++; - unsigned int action = (ins >> 16); - int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0; - switch (action) { - case DASM_STOP: case DASM_SECTION: goto stop; - case DASM_ESC: *cp++ = *p++; break; - case DASM_REL_EXT: - n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins & 2047), 1) - 4; - goto patchrel; - case DASM_ALIGN: - ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0x60000000; - break; - case DASM_REL_LG: - CK(n >= 0, UNDEF_LG); - case DASM_REL_PC: - CK(n >= 0, UNDEF_PC); - n = *DASM_POS2PTR(D, n) - (int)((char *)cp - base); - patchrel: - CK((n & 3) == 0 && - (((n+4) + ((ins & 2048) ? 0x00008000 : 0x02000000)) >> - ((ins & 2048) ? 16 : 26)) == 0, RANGE_REL); - cp[-1] |= ((n+4) & ((ins & 2048) ? 0x0000fffc: 0x03fffffc)); - break; - case DASM_LABEL_LG: - ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n); - break; - case DASM_LABEL_PC: break; - case DASM_IMM: - cp[-1] |= (n & ((1<<((ins>>5)&31))-1)) << (ins&31); - break; - default: *cp++ = ins; break; - } - } - stop: (void)0; - } - } - - if (base + D->codesize != (char *)cp) /* Check for phase errors. */ - return DASM_S_PHASE; - return DASM_S_OK; -} -#undef CK - -/* Get PC label offset. */ -int dasm_getpclabel(Dst_DECL, unsigned int pc) -{ - dasm_State *D = Dst_REF; - if (pc*sizeof(int) < D->pcsize) { - int pos = D->pclabels[pc]; - if (pos < 0) return *DASM_POS2PTR(D, -pos); - if (pos > 0) return -1; /* Undefined. */ - } - return -2; /* Unused or out of range. */ -} - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -int dasm_checkstep(Dst_DECL, int secmatch) -{ - dasm_State *D = Dst_REF; - if (D->status == DASM_S_OK) { - int i; - for (i = 1; i <= 9; i++) { - if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; } - D->lglabels[i] = 0; - } - } - if (D->status == DASM_S_OK && secmatch >= 0 && - D->section != &D->sections[secmatch]) - D->status = DASM_S_MATCH_SEC|(D->section-D->sections); - return D->status; -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua deleted file mode 100644 index 91f4ff9a4c8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_ppc.lua +++ /dev/null @@ -1,1249 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM PPC module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- - --- Module information: -local _info = { - arch = "ppc", - description = "DynASM PPC module", - version = "1.3.0", - vernum = 10300, - release = "2011-05-05", - author = "Mike Pall", - license = "MIT", -} - --- Exported glue functions for the arch-specific module. -local _M = { _info = _info } - --- Cache library functions. -local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs -local assert, setmetatable = assert, setmetatable -local _s = string -local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char -local match, gmatch = _s.match, _s.gmatch -local concat, sort = table.concat, table.sort -local bit = bit or require("bit") -local band, shl, shr, sar = bit.band, bit.lshift, bit.rshift, bit.arshift -local tohex = bit.tohex - --- Inherited tables and callbacks. -local g_opt, g_arch -local wline, werror, wfatal, wwarn - --- Action name list. --- CHECK: Keep this in sync with the C code! -local action_names = { - "STOP", "SECTION", "ESC", "REL_EXT", - "ALIGN", "REL_LG", "LABEL_LG", - "REL_PC", "LABEL_PC", "IMM", -} - --- Maximum number of section buffer positions for dasm_put(). --- CHECK: Keep this in sync with the C code! -local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. - --- Action name -> action number. -local map_action = {} -for n,name in ipairs(action_names) do - map_action[name] = n-1 -end - --- Action list buffer. -local actlist = {} - --- Argument list for next dasm_put(). Start with offset 0 into action list. -local actargs = { 0 } - --- Current number of section buffer positions for dasm_put(). -local secpos = 1 - ------------------------------------------------------------------------------- - --- Dump action names and numbers. -local function dumpactions(out) - out:write("DynASM encoding engine action codes:\n") - for n,name in ipairs(action_names) do - local num = map_action[name] - out:write(format(" %-10s %02X %d\n", name, num, num)) - end - out:write("\n") -end - --- Write action list buffer as a huge static C array. -local function writeactions(out, name) - local nn = #actlist - if nn == 0 then nn = 1; actlist[0] = map_action.STOP end - out:write("static const unsigned int ", name, "[", nn, "] = {\n") - for i = 1,nn-1 do - assert(out:write("0x", tohex(actlist[i]), ",\n")) - end - assert(out:write("0x", tohex(actlist[nn]), "\n};\n\n")) -end - ------------------------------------------------------------------------------- - --- Add word to action list. -local function wputxw(n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[#actlist+1] = n -end - --- Add action to list with optional arg. Advance buffer pos, too. -local function waction(action, val, a, num) - local w = assert(map_action[action], "bad action name `"..action.."'") - wputxw(w * 0x10000 + (val or 0)) - if a then actargs[#actargs+1] = a end - if a or num then secpos = secpos + (num or 1) end -end - --- Flush action list (intervening C code or buffer pos overflow). -local function wflush(term) - if #actlist == actargs[1] then return end -- Nothing to flush. - if not term then waction("STOP") end -- Terminate action list. - wline(format("dasm_put(Dst, %s);", concat(actargs, ", ")), true) - actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). - secpos = 1 -- The actionlist offset occupies a buffer position, too. -end - --- Put escaped word. -local function wputw(n) - if n <= 0xffffff then waction("ESC") end - wputxw(n) -end - --- Reserve position for word. -local function wpos() - local pos = #actlist+1 - actlist[pos] = "" - return pos -end - --- Store word to reserved position. -local function wputpos(pos, n) - assert(n >= 0 and n <= 0xffffffff and n % 1 == 0, "word out of range") - actlist[pos] = n -end - ------------------------------------------------------------------------------- - --- Global label name -> global label number. With auto assignment on 1st use. -local next_global = 20 -local map_global = setmetatable({}, { __index = function(t, name) - if not match(name, "^[%a_][%w_]*$") then werror("bad global label") end - local n = next_global - if n > 2047 then werror("too many global labels") end - next_global = n + 1 - t[name] = n - return n -end}) - --- Dump global labels. -local function dumpglobals(out, lvl) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("Global labels:\n") - for i=20,next_global-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write global label enum. -local function writeglobals(out, prefix) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("enum {\n") - for i=20,next_global-1 do - out:write(" ", prefix, t[i], ",\n") - end - out:write(" ", prefix, "_MAX\n};\n") -end - --- Write global label names. -local function writeglobalnames(out, name) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=20,next_global-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Extern label name -> extern label number. With auto assignment on 1st use. -local next_extern = 0 -local map_extern_ = {} -local map_extern = setmetatable({}, { __index = function(t, name) - -- No restrictions on the name for now. - local n = next_extern - if n > 2047 then werror("too many extern labels") end - next_extern = n + 1 - t[name] = n - map_extern_[n] = name - return n -end}) - --- Dump extern labels. -local function dumpexterns(out, lvl) - out:write("Extern labels:\n") - for i=0,next_extern-1 do - out:write(format(" %s\n", map_extern_[i])) - end - out:write("\n") -end - --- Write extern label names. -local function writeexternnames(out, name) - out:write("static const char *const ", name, "[] = {\n") - for i=0,next_extern-1 do - out:write(" \"", map_extern_[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Arch-specific maps. -local map_archdef = { sp = "r1" } -- Ext. register name -> int. name. - -local map_type = {} -- Type name -> { ctype, reg } -local ctypenum = 0 -- Type number (for Dt... macros). - --- Reverse defines for registers. -function _M.revdef(s) - if s == "r1" then return "sp" end - return s -end - -local map_cond = { - lt = 0, gt = 1, eq = 2, so = 3, - ge = 4, le = 5, ne = 6, ns = 7, -} - ------------------------------------------------------------------------------- - --- Template strings for PPC instructions. -local map_op = { - tdi_3 = "08000000ARI", - twi_3 = "0c000000ARI", - mulli_3 = "1c000000RRI", - subfic_3 = "20000000RRI", - cmplwi_3 = "28000000XRU", - cmplwi_2 = "28000000-RU", - cmpldi_3 = "28200000XRU", - cmpldi_2 = "28200000-RU", - cmpwi_3 = "2c000000XRI", - cmpwi_2 = "2c000000-RI", - cmpdi_3 = "2c200000XRI", - cmpdi_2 = "2c200000-RI", - addic_3 = "30000000RRI", - ["addic._3"] = "34000000RRI", - addi_3 = "38000000RR0I", - li_2 = "38000000RI", - la_2 = "38000000RD", - addis_3 = "3c000000RR0I", - lis_2 = "3c000000RI", - lus_2 = "3c000000RU", - bc_3 = "40000000AAK", - bcl_3 = "40000001AAK", - bdnz_1 = "42000000K", - bdz_1 = "42400000K", - sc_0 = "44000000", - b_1 = "48000000J", - bl_1 = "48000001J", - rlwimi_5 = "50000000RR~AAA.", - rlwinm_5 = "54000000RR~AAA.", - rlwnm_5 = "5c000000RR~RAA.", - ori_3 = "60000000RR~U", - nop_0 = "60000000", - oris_3 = "64000000RR~U", - xori_3 = "68000000RR~U", - xoris_3 = "6c000000RR~U", - ["andi._3"] = "70000000RR~U", - ["andis._3"] = "74000000RR~U", - lwz_2 = "80000000RD", - lwzu_2 = "84000000RD", - lbz_2 = "88000000RD", - lbzu_2 = "8c000000RD", - stw_2 = "90000000RD", - stwu_2 = "94000000RD", - stb_2 = "98000000RD", - stbu_2 = "9c000000RD", - lhz_2 = "a0000000RD", - lhzu_2 = "a4000000RD", - lha_2 = "a8000000RD", - lhau_2 = "ac000000RD", - sth_2 = "b0000000RD", - sthu_2 = "b4000000RD", - lmw_2 = "b8000000RD", - stmw_2 = "bc000000RD", - lfs_2 = "c0000000FD", - lfsu_2 = "c4000000FD", - lfd_2 = "c8000000FD", - lfdu_2 = "cc000000FD", - stfs_2 = "d0000000FD", - stfsu_2 = "d4000000FD", - stfd_2 = "d8000000FD", - stfdu_2 = "dc000000FD", - ld_2 = "e8000000RD", -- NYI: displacement must be divisible by 4. - ldu_2 = "e8000001RD", - lwa_2 = "e8000002RD", - std_2 = "f8000000RD", - stdu_2 = "f8000001RD", - - -- Primary opcode 19: - mcrf_2 = "4c000000XX", - isync_0 = "4c00012c", - crnor_3 = "4c000042CCC", - crnot_2 = "4c000042CC=", - crandc_3 = "4c000102CCC", - crxor_3 = "4c000182CCC", - crclr_1 = "4c000182C==", - crnand_3 = "4c0001c2CCC", - crand_3 = "4c000202CCC", - creqv_3 = "4c000242CCC", - crset_1 = "4c000242C==", - crorc_3 = "4c000342CCC", - cror_3 = "4c000382CCC", - crmove_2 = "4c000382CC=", - bclr_2 = "4c000020AA", - bclrl_2 = "4c000021AA", - bcctr_2 = "4c000420AA", - bcctrl_2 = "4c000421AA", - blr_0 = "4e800020", - blrl_0 = "4e800021", - bctr_0 = "4e800420", - bctrl_0 = "4e800421", - - -- Primary opcode 31: - cmpw_3 = "7c000000XRR", - cmpw_2 = "7c000000-RR", - cmpd_3 = "7c200000XRR", - cmpd_2 = "7c200000-RR", - tw_3 = "7c000008ARR", - subfc_3 = "7c000010RRR.", - subc_3 = "7c000010RRR~.", - mulhdu_3 = "7c000012RRR.", - addc_3 = "7c000014RRR.", - mulhwu_3 = "7c000016RRR.", - isel_4 = "7c00001eRRRC", - isellt_3 = "7c00001eRRR", - iselgt_3 = "7c00005eRRR", - iseleq_3 = "7c00009eRRR", - mfcr_1 = "7c000026R", - mfocrf_2 = "7c100026RG", - mtcrf_2 = "7c000120GR", - mtocrf_2 = "7c100120GR", - lwarx_3 = "7c000028RR0R", - ldx_3 = "7c00002aRR0R", - lwzx_3 = "7c00002eRR0R", - slw_3 = "7c000030RR~R.", - cntlzw_2 = "7c000034RR~", - sld_3 = "7c000036RR~R.", - and_3 = "7c000038RR~R.", - cmplw_3 = "7c000040XRR", - cmplw_2 = "7c000040-RR", - cmpld_3 = "7c200040XRR", - cmpld_2 = "7c200040-RR", - subf_3 = "7c000050RRR.", - sub_3 = "7c000050RRR~.", - ldux_3 = "7c00006aRR0R", - dcbst_2 = "7c00006c-RR", - lwzux_3 = "7c00006eRR0R", - cntlzd_2 = "7c000074RR~", - andc_3 = "7c000078RR~R.", - td_3 = "7c000088ARR", - mulhd_3 = "7c000092RRR.", - mulhw_3 = "7c000096RRR.", - ldarx_3 = "7c0000a8RR0R", - dcbf_2 = "7c0000ac-RR", - lbzx_3 = "7c0000aeRR0R", - neg_2 = "7c0000d0RR.", - lbzux_3 = "7c0000eeRR0R", - popcntb_2 = "7c0000f4RR~", - not_2 = "7c0000f8RR~%.", - nor_3 = "7c0000f8RR~R.", - subfe_3 = "7c000110RRR.", - sube_3 = "7c000110RRR~.", - adde_3 = "7c000114RRR.", - stdx_3 = "7c00012aRR0R", - stwcx_3 = "7c00012cRR0R.", - stwx_3 = "7c00012eRR0R", - prtyw_2 = "7c000134RR~", - stdux_3 = "7c00016aRR0R", - stwux_3 = "7c00016eRR0R", - prtyd_2 = "7c000174RR~", - subfze_2 = "7c000190RR.", - addze_2 = "7c000194RR.", - stdcx_3 = "7c0001acRR0R.", - stbx_3 = "7c0001aeRR0R", - subfme_2 = "7c0001d0RR.", - mulld_3 = "7c0001d2RRR.", - addme_2 = "7c0001d4RR.", - mullw_3 = "7c0001d6RRR.", - dcbtst_2 = "7c0001ec-RR", - stbux_3 = "7c0001eeRR0R", - add_3 = "7c000214RRR.", - dcbt_2 = "7c00022c-RR", - lhzx_3 = "7c00022eRR0R", - eqv_3 = "7c000238RR~R.", - eciwx_3 = "7c00026cRR0R", - lhzux_3 = "7c00026eRR0R", - xor_3 = "7c000278RR~R.", - mfspefscr_1 = "7c0082a6R", - mfxer_1 = "7c0102a6R", - mflr_1 = "7c0802a6R", - mfctr_1 = "7c0902a6R", - lwax_3 = "7c0002aaRR0R", - lhax_3 = "7c0002aeRR0R", - mftb_1 = "7c0c42e6R", - mftbu_1 = "7c0d42e6R", - lwaux_3 = "7c0002eaRR0R", - lhaux_3 = "7c0002eeRR0R", - sthx_3 = "7c00032eRR0R", - orc_3 = "7c000338RR~R.", - ecowx_3 = "7c00036cRR0R", - sthux_3 = "7c00036eRR0R", - or_3 = "7c000378RR~R.", - mr_2 = "7c000378RR~%.", - divdu_3 = "7c000392RRR.", - divwu_3 = "7c000396RRR.", - mtspefscr_1 = "7c0083a6R", - mtxer_1 = "7c0103a6R", - mtlr_1 = "7c0803a6R", - mtctr_1 = "7c0903a6R", - dcbi_2 = "7c0003ac-RR", - nand_3 = "7c0003b8RR~R.", - divd_3 = "7c0003d2RRR.", - divw_3 = "7c0003d6RRR.", - cmpb_3 = "7c0003f8RR~R.", - mcrxr_1 = "7c000400X", - subfco_3 = "7c000410RRR.", - subco_3 = "7c000410RRR~.", - addco_3 = "7c000414RRR.", - ldbrx_3 = "7c000428RR0R", - lswx_3 = "7c00042aRR0R", - lwbrx_3 = "7c00042cRR0R", - lfsx_3 = "7c00042eFR0R", - srw_3 = "7c000430RR~R.", - srd_3 = "7c000436RR~R.", - subfo_3 = "7c000450RRR.", - subo_3 = "7c000450RRR~.", - lfsux_3 = "7c00046eFR0R", - lswi_3 = "7c0004aaRR0A", - sync_0 = "7c0004ac", - lwsync_0 = "7c2004ac", - ptesync_0 = "7c4004ac", - lfdx_3 = "7c0004aeFR0R", - nego_2 = "7c0004d0RR.", - lfdux_3 = "7c0004eeFR0R", - subfeo_3 = "7c000510RRR.", - subeo_3 = "7c000510RRR~.", - addeo_3 = "7c000514RRR.", - stdbrx_3 = "7c000528RR0R", - stswx_3 = "7c00052aRR0R", - stwbrx_3 = "7c00052cRR0R", - stfsx_3 = "7c00052eFR0R", - stfsux_3 = "7c00056eFR0R", - subfzeo_2 = "7c000590RR.", - addzeo_2 = "7c000594RR.", - stswi_3 = "7c0005aaRR0A", - stfdx_3 = "7c0005aeFR0R", - subfmeo_2 = "7c0005d0RR.", - mulldo_3 = "7c0005d2RRR.", - addmeo_2 = "7c0005d4RR.", - mullwo_3 = "7c0005d6RRR.", - dcba_2 = "7c0005ec-RR", - stfdux_3 = "7c0005eeFR0R", - addo_3 = "7c000614RRR.", - lhbrx_3 = "7c00062cRR0R", - sraw_3 = "7c000630RR~R.", - srad_3 = "7c000634RR~R.", - srawi_3 = "7c000670RR~A.", - sradi_3 = "7c000674RR~H.", - eieio_0 = "7c0006ac", - lfiwax_3 = "7c0006aeFR0R", - sthbrx_3 = "7c00072cRR0R", - extsh_2 = "7c000734RR~.", - extsb_2 = "7c000774RR~.", - divduo_3 = "7c000792RRR.", - divwou_3 = "7c000796RRR.", - icbi_2 = "7c0007ac-RR", - stfiwx_3 = "7c0007aeFR0R", - extsw_2 = "7c0007b4RR~.", - divdo_3 = "7c0007d2RRR.", - divwo_3 = "7c0007d6RRR.", - dcbz_2 = "7c0007ec-RR", - - -- Primary opcode 30: - rldicl_4 = "78000000RR~HM.", - rldicr_4 = "78000004RR~HM.", - rldic_4 = "78000008RR~HM.", - rldimi_4 = "7800000cRR~HM.", - rldcl_4 = "78000010RR~RM.", - rldcr_4 = "78000012RR~RM.", - - -- Primary opcode 59: - fdivs_3 = "ec000024FFF.", - fsubs_3 = "ec000028FFF.", - fadds_3 = "ec00002aFFF.", - fsqrts_2 = "ec00002cF-F.", - fres_2 = "ec000030F-F.", - fmuls_3 = "ec000032FF-F.", - frsqrtes_2 = "ec000034F-F.", - fmsubs_4 = "ec000038FFFF~.", - fmadds_4 = "ec00003aFFFF~.", - fnmsubs_4 = "ec00003cFFFF~.", - fnmadds_4 = "ec00003eFFFF~.", - - -- Primary opcode 63: - fdiv_3 = "fc000024FFF.", - fsub_3 = "fc000028FFF.", - fadd_3 = "fc00002aFFF.", - fsqrt_2 = "fc00002cF-F.", - fsel_4 = "fc00002eFFFF~.", - fre_2 = "fc000030F-F.", - fmul_3 = "fc000032FF-F.", - frsqrte_2 = "fc000034F-F.", - fmsub_4 = "fc000038FFFF~.", - fmadd_4 = "fc00003aFFFF~.", - fnmsub_4 = "fc00003cFFFF~.", - fnmadd_4 = "fc00003eFFFF~.", - fcmpu_3 = "fc000000XFF", - fcpsgn_3 = "fc000010FFF.", - fcmpo_3 = "fc000040XFF", - mtfsb1_1 = "fc00004cA", - fneg_2 = "fc000050F-F.", - mcrfs_2 = "fc000080XX", - mtfsb0_1 = "fc00008cA", - fmr_2 = "fc000090F-F.", - frsp_2 = "fc000018F-F.", - fctiw_2 = "fc00001cF-F.", - fctiwz_2 = "fc00001eF-F.", - mtfsfi_2 = "fc00010cAA", -- NYI: upshift. - fnabs_2 = "fc000110F-F.", - fabs_2 = "fc000210F-F.", - frin_2 = "fc000310F-F.", - friz_2 = "fc000350F-F.", - frip_2 = "fc000390F-F.", - frim_2 = "fc0003d0F-F.", - mffs_1 = "fc00048eF.", - -- NYI: mtfsf, mtfsb0, mtfsb1. - fctid_2 = "fc00065cF-F.", - fctidz_2 = "fc00065eF-F.", - fcfid_2 = "fc00069cF-F.", - - -- Primary opcode 4, SPE APU extension: - evaddw_3 = "10000200RRR", - evaddiw_3 = "10000202RAR~", - evsubw_3 = "10000204RRR~", - evsubiw_3 = "10000206RAR~", - evabs_2 = "10000208RR", - evneg_2 = "10000209RR", - evextsb_2 = "1000020aRR", - evextsh_2 = "1000020bRR", - evrndw_2 = "1000020cRR", - evcntlzw_2 = "1000020dRR", - evcntlsw_2 = "1000020eRR", - brinc_3 = "1000020fRRR", - evand_3 = "10000211RRR", - evandc_3 = "10000212RRR", - evxor_3 = "10000216RRR", - evor_3 = "10000217RRR", - evmr_2 = "10000217RR=", - evnor_3 = "10000218RRR", - evnot_2 = "10000218RR=", - eveqv_3 = "10000219RRR", - evorc_3 = "1000021bRRR", - evnand_3 = "1000021eRRR", - evsrwu_3 = "10000220RRR", - evsrws_3 = "10000221RRR", - evsrwiu_3 = "10000222RRA", - evsrwis_3 = "10000223RRA", - evslw_3 = "10000224RRR", - evslwi_3 = "10000226RRA", - evrlw_3 = "10000228RRR", - evsplati_2 = "10000229RS", - evrlwi_3 = "1000022aRRA", - evsplatfi_2 = "1000022bRS", - evmergehi_3 = "1000022cRRR", - evmergelo_3 = "1000022dRRR", - evcmpgtu_3 = "10000230XRR", - evcmpgtu_2 = "10000230-RR", - evcmpgts_3 = "10000231XRR", - evcmpgts_2 = "10000231-RR", - evcmpltu_3 = "10000232XRR", - evcmpltu_2 = "10000232-RR", - evcmplts_3 = "10000233XRR", - evcmplts_2 = "10000233-RR", - evcmpeq_3 = "10000234XRR", - evcmpeq_2 = "10000234-RR", - evsel_4 = "10000278RRRW", - evsel_3 = "10000278RRR", - evfsadd_3 = "10000280RRR", - evfssub_3 = "10000281RRR", - evfsabs_2 = "10000284RR", - evfsnabs_2 = "10000285RR", - evfsneg_2 = "10000286RR", - evfsmul_3 = "10000288RRR", - evfsdiv_3 = "10000289RRR", - evfscmpgt_3 = "1000028cXRR", - evfscmpgt_2 = "1000028c-RR", - evfscmplt_3 = "1000028dXRR", - evfscmplt_2 = "1000028d-RR", - evfscmpeq_3 = "1000028eXRR", - evfscmpeq_2 = "1000028e-RR", - evfscfui_2 = "10000290R-R", - evfscfsi_2 = "10000291R-R", - evfscfuf_2 = "10000292R-R", - evfscfsf_2 = "10000293R-R", - evfsctui_2 = "10000294R-R", - evfsctsi_2 = "10000295R-R", - evfsctuf_2 = "10000296R-R", - evfsctsf_2 = "10000297R-R", - evfsctuiz_2 = "10000298R-R", - evfsctsiz_2 = "1000029aR-R", - evfststgt_3 = "1000029cXRR", - evfststgt_2 = "1000029c-RR", - evfststlt_3 = "1000029dXRR", - evfststlt_2 = "1000029d-RR", - evfststeq_3 = "1000029eXRR", - evfststeq_2 = "1000029e-RR", - efsadd_3 = "100002c0RRR", - efssub_3 = "100002c1RRR", - efsabs_2 = "100002c4RR", - efsnabs_2 = "100002c5RR", - efsneg_2 = "100002c6RR", - efsmul_3 = "100002c8RRR", - efsdiv_3 = "100002c9RRR", - efscmpgt_3 = "100002ccXRR", - efscmpgt_2 = "100002cc-RR", - efscmplt_3 = "100002cdXRR", - efscmplt_2 = "100002cd-RR", - efscmpeq_3 = "100002ceXRR", - efscmpeq_2 = "100002ce-RR", - efscfd_2 = "100002cfR-R", - efscfui_2 = "100002d0R-R", - efscfsi_2 = "100002d1R-R", - efscfuf_2 = "100002d2R-R", - efscfsf_2 = "100002d3R-R", - efsctui_2 = "100002d4R-R", - efsctsi_2 = "100002d5R-R", - efsctuf_2 = "100002d6R-R", - efsctsf_2 = "100002d7R-R", - efsctuiz_2 = "100002d8R-R", - efsctsiz_2 = "100002daR-R", - efststgt_3 = "100002dcXRR", - efststgt_2 = "100002dc-RR", - efststlt_3 = "100002ddXRR", - efststlt_2 = "100002dd-RR", - efststeq_3 = "100002deXRR", - efststeq_2 = "100002de-RR", - efdadd_3 = "100002e0RRR", - efdsub_3 = "100002e1RRR", - efdcfuid_2 = "100002e2R-R", - efdcfsid_2 = "100002e3R-R", - efdabs_2 = "100002e4RR", - efdnabs_2 = "100002e5RR", - efdneg_2 = "100002e6RR", - efdmul_3 = "100002e8RRR", - efddiv_3 = "100002e9RRR", - efdctuidz_2 = "100002eaR-R", - efdctsidz_2 = "100002ebR-R", - efdcmpgt_3 = "100002ecXRR", - efdcmpgt_2 = "100002ec-RR", - efdcmplt_3 = "100002edXRR", - efdcmplt_2 = "100002ed-RR", - efdcmpeq_3 = "100002eeXRR", - efdcmpeq_2 = "100002ee-RR", - efdcfs_2 = "100002efR-R", - efdcfui_2 = "100002f0R-R", - efdcfsi_2 = "100002f1R-R", - efdcfuf_2 = "100002f2R-R", - efdcfsf_2 = "100002f3R-R", - efdctui_2 = "100002f4R-R", - efdctsi_2 = "100002f5R-R", - efdctuf_2 = "100002f6R-R", - efdctsf_2 = "100002f7R-R", - efdctuiz_2 = "100002f8R-R", - efdctsiz_2 = "100002faR-R", - efdtstgt_3 = "100002fcXRR", - efdtstgt_2 = "100002fc-RR", - efdtstlt_3 = "100002fdXRR", - efdtstlt_2 = "100002fd-RR", - efdtsteq_3 = "100002feXRR", - efdtsteq_2 = "100002fe-RR", - evlddx_3 = "10000300RR0R", - evldd_2 = "10000301R8", - evldwx_3 = "10000302RR0R", - evldw_2 = "10000303R8", - evldhx_3 = "10000304RR0R", - evldh_2 = "10000305R8", - evlwhex_3 = "10000310RR0R", - evlwhe_2 = "10000311R4", - evlwhoux_3 = "10000314RR0R", - evlwhou_2 = "10000315R4", - evlwhosx_3 = "10000316RR0R", - evlwhos_2 = "10000317R4", - evstddx_3 = "10000320RR0R", - evstdd_2 = "10000321R8", - evstdwx_3 = "10000322RR0R", - evstdw_2 = "10000323R8", - evstdhx_3 = "10000324RR0R", - evstdh_2 = "10000325R8", - evstwhex_3 = "10000330RR0R", - evstwhe_2 = "10000331R4", - evstwhox_3 = "10000334RR0R", - evstwho_2 = "10000335R4", - evstwwex_3 = "10000338RR0R", - evstwwe_2 = "10000339R4", - evstwwox_3 = "1000033cRR0R", - evstwwo_2 = "1000033dR4", - evmhessf_3 = "10000403RRR", - evmhossf_3 = "10000407RRR", - evmheumi_3 = "10000408RRR", - evmhesmi_3 = "10000409RRR", - evmhesmf_3 = "1000040bRRR", - evmhoumi_3 = "1000040cRRR", - evmhosmi_3 = "1000040dRRR", - evmhosmf_3 = "1000040fRRR", - evmhessfa_3 = "10000423RRR", - evmhossfa_3 = "10000427RRR", - evmheumia_3 = "10000428RRR", - evmhesmia_3 = "10000429RRR", - evmhesmfa_3 = "1000042bRRR", - evmhoumia_3 = "1000042cRRR", - evmhosmia_3 = "1000042dRRR", - evmhosmfa_3 = "1000042fRRR", - evmwhssf_3 = "10000447RRR", - evmwlumi_3 = "10000448RRR", - evmwhumi_3 = "1000044cRRR", - evmwhsmi_3 = "1000044dRRR", - evmwhsmf_3 = "1000044fRRR", - evmwssf_3 = "10000453RRR", - evmwumi_3 = "10000458RRR", - evmwsmi_3 = "10000459RRR", - evmwsmf_3 = "1000045bRRR", - evmwhssfa_3 = "10000467RRR", - evmwlumia_3 = "10000468RRR", - evmwhumia_3 = "1000046cRRR", - evmwhsmia_3 = "1000046dRRR", - evmwhsmfa_3 = "1000046fRRR", - evmwssfa_3 = "10000473RRR", - evmwumia_3 = "10000478RRR", - evmwsmia_3 = "10000479RRR", - evmwsmfa_3 = "1000047bRRR", - evmra_2 = "100004c4RR", - evdivws_3 = "100004c6RRR", - evdivwu_3 = "100004c7RRR", - evmwssfaa_3 = "10000553RRR", - evmwumiaa_3 = "10000558RRR", - evmwsmiaa_3 = "10000559RRR", - evmwsmfaa_3 = "1000055bRRR", - evmwssfan_3 = "100005d3RRR", - evmwumian_3 = "100005d8RRR", - evmwsmian_3 = "100005d9RRR", - evmwsmfan_3 = "100005dbRRR", - evmergehilo_3 = "1000022eRRR", - evmergelohi_3 = "1000022fRRR", - evlhhesplatx_3 = "10000308RR0R", - evlhhesplat_2 = "10000309R2", - evlhhousplatx_3 = "1000030cRR0R", - evlhhousplat_2 = "1000030dR2", - evlhhossplatx_3 = "1000030eRR0R", - evlhhossplat_2 = "1000030fR2", - evlwwsplatx_3 = "10000318RR0R", - evlwwsplat_2 = "10000319R4", - evlwhsplatx_3 = "1000031cRR0R", - evlwhsplat_2 = "1000031dR4", - evaddusiaaw_2 = "100004c0RR", - evaddssiaaw_2 = "100004c1RR", - evsubfusiaaw_2 = "100004c2RR", - evsubfssiaaw_2 = "100004c3RR", - evaddumiaaw_2 = "100004c8RR", - evaddsmiaaw_2 = "100004c9RR", - evsubfumiaaw_2 = "100004caRR", - evsubfsmiaaw_2 = "100004cbRR", - evmheusiaaw_3 = "10000500RRR", - evmhessiaaw_3 = "10000501RRR", - evmhessfaaw_3 = "10000503RRR", - evmhousiaaw_3 = "10000504RRR", - evmhossiaaw_3 = "10000505RRR", - evmhossfaaw_3 = "10000507RRR", - evmheumiaaw_3 = "10000508RRR", - evmhesmiaaw_3 = "10000509RRR", - evmhesmfaaw_3 = "1000050bRRR", - evmhoumiaaw_3 = "1000050cRRR", - evmhosmiaaw_3 = "1000050dRRR", - evmhosmfaaw_3 = "1000050fRRR", - evmhegumiaa_3 = "10000528RRR", - evmhegsmiaa_3 = "10000529RRR", - evmhegsmfaa_3 = "1000052bRRR", - evmhogumiaa_3 = "1000052cRRR", - evmhogsmiaa_3 = "1000052dRRR", - evmhogsmfaa_3 = "1000052fRRR", - evmwlusiaaw_3 = "10000540RRR", - evmwlssiaaw_3 = "10000541RRR", - evmwlumiaaw_3 = "10000548RRR", - evmwlsmiaaw_3 = "10000549RRR", - evmheusianw_3 = "10000580RRR", - evmhessianw_3 = "10000581RRR", - evmhessfanw_3 = "10000583RRR", - evmhousianw_3 = "10000584RRR", - evmhossianw_3 = "10000585RRR", - evmhossfanw_3 = "10000587RRR", - evmheumianw_3 = "10000588RRR", - evmhesmianw_3 = "10000589RRR", - evmhesmfanw_3 = "1000058bRRR", - evmhoumianw_3 = "1000058cRRR", - evmhosmianw_3 = "1000058dRRR", - evmhosmfanw_3 = "1000058fRRR", - evmhegumian_3 = "100005a8RRR", - evmhegsmian_3 = "100005a9RRR", - evmhegsmfan_3 = "100005abRRR", - evmhogumian_3 = "100005acRRR", - evmhogsmian_3 = "100005adRRR", - evmhogsmfan_3 = "100005afRRR", - evmwlusianw_3 = "100005c0RRR", - evmwlssianw_3 = "100005c1RRR", - evmwlumianw_3 = "100005c8RRR", - evmwlsmianw_3 = "100005c9RRR", - - -- NYI: Book E instructions. -} - --- Add mnemonics for "." variants. -do - local t = {} - for k,v in pairs(map_op) do - if sub(v, -1) == "." then - local v2 = sub(v, 1, 7)..char(byte(v, 8)+1)..sub(v, 9, -2) - t[sub(k, 1, -3).."."..sub(k, -2)] = v2 - end - end - for k,v in pairs(t) do - map_op[k] = v - end -end - --- Add more branch mnemonics. -for cond,c in pairs(map_cond) do - local b1 = "b"..cond - local c1 = shl(band(c, 3), 16) + (c < 4 and 0x01000000 or 0) - -- bX[l] - map_op[b1.."_1"] = tohex(0x40800000 + c1).."K" - map_op[b1.."y_1"] = tohex(0x40a00000 + c1).."K" - map_op[b1.."l_1"] = tohex(0x40800001 + c1).."K" - map_op[b1.."_2"] = tohex(0x40800000 + c1).."-XK" - map_op[b1.."y_2"] = tohex(0x40a00000 + c1).."-XK" - map_op[b1.."l_2"] = tohex(0x40800001 + c1).."-XK" - -- bXlr[l] - map_op[b1.."lr_0"] = tohex(0x4c800020 + c1) - map_op[b1.."lrl_0"] = tohex(0x4c800021 + c1) - map_op[b1.."ctr_0"] = tohex(0x4c800420 + c1) - map_op[b1.."ctrl_0"] = tohex(0x4c800421 + c1) - -- bXctr[l] - map_op[b1.."lr_1"] = tohex(0x4c800020 + c1).."-X" - map_op[b1.."lrl_1"] = tohex(0x4c800021 + c1).."-X" - map_op[b1.."ctr_1"] = tohex(0x4c800420 + c1).."-X" - map_op[b1.."ctrl_1"] = tohex(0x4c800421 + c1).."-X" -end - ------------------------------------------------------------------------------- - -local function parse_gpr(expr) - local tname, ovreg = match(expr, "^([%w_]+):(r[1-3]?[0-9])$") - local tp = map_type[tname or expr] - if tp then - local reg = ovreg or tp.reg - if not reg then - werror("type `"..(tname or expr).."' needs a register override") - end - expr = reg - end - local r = match(expr, "^r([1-3]?[0-9])$") - if r then - r = tonumber(r) - if r <= 31 then return r, tp end - end - werror("bad register name `"..expr.."'") -end - -local function parse_fpr(expr) - local r = match(expr, "^f([1-3]?[0-9])$") - if r then - r = tonumber(r) - if r <= 31 then return r end - end - werror("bad register name `"..expr.."'") -end - -local function parse_cr(expr) - local r = match(expr, "^cr([0-7])$") - if r then return tonumber(r) end - werror("bad condition register name `"..expr.."'") -end - -local function parse_cond(expr) - local r, cond = match(expr, "^4%*cr([0-7])%+(%w%w)$") - if r then - r = tonumber(r) - local c = map_cond[cond] - if c and c < 4 then return r*4+c end - end - werror("bad condition bit name `"..expr.."'") -end - -local function parse_imm(imm, bits, shift, scale, signed) - local n = tonumber(imm) - if n then - local m = sar(n, scale) - if shl(m, scale) == n then - if signed then - local s = sar(m, bits-1) - if s == 0 then return shl(m, shift) - elseif s == -1 then return shl(m + shl(1, bits), shift) end - else - if sar(m, bits) == 0 then return shl(m, shift) end - end - end - werror("out of range immediate `"..imm.."'") - elseif match(imm, "^r([1-3]?[0-9])$") or - match(imm, "^([%w_]+):(r[1-3]?[0-9])$") then - werror("expected immediate operand, got register") - else - waction("IMM", (signed and 32768 or 0)+scale*1024+bits*32+shift, imm) - return 0 - end -end - -local function parse_shiftmask(imm, isshift) - local n = tonumber(imm) - if n then - if shr(n, 6) == 0 then - local lsb = band(imm, 31) - local msb = imm - lsb - return isshift and (shl(lsb, 11)+shr(msb, 4)) or (shl(lsb, 6)+msb) - end - werror("out of range immediate `"..imm.."'") - elseif match(imm, "^r([1-3]?[0-9])$") or - match(imm, "^([%w_]+):(r[1-3]?[0-9])$") then - werror("expected immediate operand, got register") - else - werror("NYI: parameterized 64 bit shift/mask") - end -end - -local function parse_disp(disp) - local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") - if imm then - local r = parse_gpr(reg) - if r == 0 then werror("cannot use r0 in displacement") end - return shl(r, 16) + parse_imm(imm, 16, 0, 0, true) - end - local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local r, tp = parse_gpr(reg) - if r == 0 then werror("cannot use r0 in displacement") end - if tp then - waction("IMM", 32768+16*32, format(tp.ctypefmt, tailr)) - return shl(r, 16) - end - end - werror("bad displacement `"..disp.."'") -end - -local function parse_u5disp(disp, scale) - local imm, reg = match(disp, "^(.*)%(([%w_:]+)%)$") - if imm then - local r = parse_gpr(reg) - if r == 0 then werror("cannot use r0 in displacement") end - return shl(r, 16) + parse_imm(imm, 5, 11, scale, false) - end - local reg, tailr = match(disp, "^([%w_:]+)%s*(.*)$") - if reg and tailr ~= "" then - local r, tp = parse_gpr(reg) - if r == 0 then werror("cannot use r0 in displacement") end - if tp then - waction("IMM", scale*1024+5*32+11, format(tp.ctypefmt, tailr)) - return shl(r, 16) - end - end - werror("bad displacement `"..disp.."'") -end - -local function parse_label(label, def) - local prefix = sub(label, 1, 2) - -- =>label (pc label reference) - if prefix == "=>" then - return "PC", 0, sub(label, 3) - end - -- ->name (global label reference) - if prefix == "->" then - return "LG", map_global[sub(label, 3)] - end - if def then - -- [1-9] (local label definition) - if match(label, "^[1-9]$") then - return "LG", 10+tonumber(label) - end - else - -- [<>][1-9] (local label reference) - local dir, lnum = match(label, "^([<>])([1-9])$") - if dir then -- Fwd: 1-9, Bkwd: 11-19. - return "LG", lnum + (dir == ">" and 0 or 10) - end - -- extern label (extern label reference) - local extname = match(label, "^extern%s+(%S+)$") - if extname then - return "EXT", map_extern[extname] - end - end - werror("bad label `"..label.."'") -end - ------------------------------------------------------------------------------- - --- Handle opcodes defined with template strings. -map_op[".template__"] = function(params, template, nparams) - if not params then return sub(template, 9) end - local op = tonumber(sub(template, 1, 8), 16) - local n, rs = 1, 26 - - -- Limit number of section buffer positions used by a single dasm_put(). - -- A single opcode needs a maximum of 3 positions (rlwinm). - if secpos+3 > maxsecpos then wflush() end - local pos = wpos() - - -- Process each character. - for p in gmatch(sub(template, 9), ".") do - if p == "R" then - rs = rs - 5; op = op + shl(parse_gpr(params[n]), rs); n = n + 1 - elseif p == "F" then - rs = rs - 5; op = op + shl(parse_fpr(params[n]), rs); n = n + 1 - elseif p == "A" then - rs = rs - 5; op = op + parse_imm(params[n], 5, rs, 0, false); n = n + 1 - elseif p == "S" then - rs = rs - 5; op = op + parse_imm(params[n], 5, rs, 0, true); n = n + 1 - elseif p == "I" then - op = op + parse_imm(params[n], 16, 0, 0, true); n = n + 1 - elseif p == "U" then - op = op + parse_imm(params[n], 16, 0, 0, false); n = n + 1 - elseif p == "D" then - op = op + parse_disp(params[n]); n = n + 1 - elseif p == "2" then - op = op + parse_u5disp(params[n], 1); n = n + 1 - elseif p == "4" then - op = op + parse_u5disp(params[n], 2); n = n + 1 - elseif p == "8" then - op = op + parse_u5disp(params[n], 3); n = n + 1 - elseif p == "C" then - rs = rs - 5; op = op + shl(parse_cond(params[n]), rs); n = n + 1 - elseif p == "X" then - rs = rs - 5; op = op + shl(parse_cr(params[n]), rs+2); n = n + 1 - elseif p == "W" then - op = op + parse_cr(params[n]); n = n + 1 - elseif p == "G" then - op = op + parse_imm(params[n], 8, 12, 0, false); n = n + 1 - elseif p == "H" then - op = op + parse_shiftmask(params[n], true); n = n + 1 - elseif p == "M" then - op = op + parse_shiftmask(params[n], false); n = n + 1 - elseif p == "J" or p == "K" then - local mode, n, s = parse_label(params[n], false) - if p == "K" then n = n + 2048 end - waction("REL_"..mode, n, s, 1) - n = n + 1 - elseif p == "0" then - if band(shr(op, rs), 31) == 0 then werror("cannot use r0") end - elseif p == "=" or p == "%" then - local t = band(shr(op, p == "%" and rs+5 or rs), 31) - rs = rs - 5 - op = op + shl(t, rs) - elseif p == "~" then - local mm = shl(31, rs) - local lo = band(op, mm) - local hi = band(op, shl(mm, 5)) - op = op - lo - hi + shl(lo, 5) + shr(hi, 5) - elseif p == "-" then - rs = rs - 5 - elseif p == "." then - -- Ignored. - else - assert(false) - end - end - wputpos(pos, op) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode to mark the position where the action list is to be emitted. -map_op[".actionlist_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeactions(out, name) end) -end - --- Pseudo-opcode to mark the position where the global enum is to be emitted. -map_op[".globals_1"] = function(params) - if not params then return "prefix" end - local prefix = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobals(out, prefix) end) -end - --- Pseudo-opcode to mark the position where the global names are to be emitted. -map_op[".globalnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobalnames(out, name) end) -end - --- Pseudo-opcode to mark the position where the extern names are to be emitted. -map_op[".externnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeexternnames(out, name) end) -end - ------------------------------------------------------------------------------- - --- Label pseudo-opcode (converted from trailing colon form). -map_op[".label_1"] = function(params) - if not params then return "[1-9] | ->global | =>pcexpr" end - if secpos+1 > maxsecpos then wflush() end - local mode, n, s = parse_label(params[1], true) - if mode == "EXT" then werror("bad label definition") end - waction("LABEL_"..mode, n, s, 1) -end - ------------------------------------------------------------------------------- - --- Pseudo-opcodes for data storage. -map_op[".long_*"] = function(params) - if not params then return "imm..." end - for _,p in ipairs(params) do - local n = tonumber(p) - if not n then werror("bad immediate `"..p.."'") end - if n < 0 then n = n + 2^32 end - wputw(n) - if secpos+2 > maxsecpos then wflush() end - end -end - --- Alignment pseudo-opcode. -map_op[".align_1"] = function(params) - if not params then return "numpow2" end - if secpos+1 > maxsecpos then wflush() end - local align = tonumber(params[1]) - if align then - local x = align - -- Must be a power of 2 in the range (2 ... 256). - for i=1,8 do - x = x / 2 - if x == 1 then - waction("ALIGN", align-1, nil, 1) -- Action byte is 2**n-1. - return - end - end - end - werror("bad alignment") -end - ------------------------------------------------------------------------------- - --- Pseudo-opcode for (primitive) type definitions (map to C types). -map_op[".type_3"] = function(params, nparams) - if not params then - return nparams == 2 and "name, ctype" or "name, ctype, reg" - end - local name, ctype, reg = params[1], params[2], params[3] - if not match(name, "^[%a_][%w_]*$") then - werror("bad type name `"..name.."'") - end - local tp = map_type[name] - if tp then - werror("duplicate type `"..name.."'") - end - -- Add #type to defines. A bit unclean to put it in map_archdef. - map_archdef["#"..name] = "sizeof("..ctype..")" - -- Add new type and emit shortcut define. - local num = ctypenum + 1 - map_type[name] = { - ctype = ctype, - ctypefmt = format("Dt%X(%%s)", num), - reg = reg, - } - wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) - ctypenum = num -end -map_op[".type_2"] = map_op[".type_3"] - --- Dump type definitions. -local function dumptypes(out, lvl) - local t = {} - for name in pairs(map_type) do t[#t+1] = name end - sort(t) - out:write("Type definitions:\n") - for _,name in ipairs(t) do - local tp = map_type[name] - local reg = tp.reg or "" - out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Set the current section. -function _M.section(num) - waction("SECTION", num) - wflush(true) -- SECTION is a terminal action. -end - ------------------------------------------------------------------------------- - --- Dump architecture description. -function _M.dumparch(out) - out:write(format("DynASM %s version %s, released %s\n\n", - _info.arch, _info.version, _info.release)) - dumpactions(out) -end - --- Dump all user defined elements. -function _M.dumpdef(out, lvl) - dumptypes(out, lvl) - dumpglobals(out, lvl) - dumpexterns(out, lvl) -end - ------------------------------------------------------------------------------- - --- Pass callbacks from/to the DynASM core. -function _M.passcb(wl, we, wf, ww) - wline, werror, wfatal, wwarn = wl, we, wf, ww - return wflush -end - --- Setup the arch-specific module. -function _M.setup(arch, opt) - g_arch, g_opt = arch, opt -end - --- Merge the core maps and the arch-specific maps. -function _M.mergemaps(map_coreop, map_def) - setmetatable(map_op, { __index = map_coreop }) - setmetatable(map_def, { __index = map_archdef }) - return map_op, map_def -end - -return _M - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h deleted file mode 100644 index a8bc6fd285d..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_proto.h +++ /dev/null @@ -1,83 +0,0 @@ -/* -** DynASM encoding engine prototypes. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#ifndef _DASM_PROTO_H -#define _DASM_PROTO_H - -#include -#include - -#define DASM_IDENT "DynASM 1.3.0" -#define DASM_VERSION 10300 /* 1.3.0 */ - -#ifndef Dst_DECL -#define Dst_DECL dasm_State **Dst -#endif - -#ifndef Dst_REF -#define Dst_REF (*Dst) -#endif - -#ifndef DASM_FDEF -#define DASM_FDEF extern -#endif - -#ifndef DASM_M_GROW -#define DASM_M_GROW(ctx, t, p, sz, need) \ - do { \ - size_t _sz = (sz), _need = (need); \ - if (_sz < _need) { \ - if (_sz < 16) _sz = 16; \ - while (_sz < _need) _sz += _sz; \ - (p) = (t *)realloc((p), _sz); \ - if ((p) == NULL) exit(1); \ - (sz) = _sz; \ - } \ - } while(0) -#endif - -#ifndef DASM_M_FREE -#define DASM_M_FREE(ctx, p, sz) free(p) -#endif - -/* Internal DynASM encoder state. */ -typedef struct dasm_State dasm_State; - - -/* Initialize and free DynASM state. */ -DASM_FDEF void dasm_init(Dst_DECL, int maxsection); -DASM_FDEF void dasm_free(Dst_DECL); - -/* Setup global array. Must be called before dasm_setup(). */ -DASM_FDEF void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl); - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -DASM_FDEF void dasm_growpc(Dst_DECL, unsigned int maxpc); - -/* Setup encoder. */ -DASM_FDEF void dasm_setup(Dst_DECL, const void *actionlist); - -/* Feed encoder with actions. Calls are generated by pre-processor. */ -DASM_FDEF void dasm_put(Dst_DECL, int start, ...); - -/* Link sections and return the resulting size. */ -DASM_FDEF int dasm_link(Dst_DECL, size_t *szp); - -/* Encode sections into buffer. */ -DASM_FDEF int dasm_encode(Dst_DECL, void *buffer); - -/* Get PC label offset. */ -DASM_FDEF int dasm_getpclabel(Dst_DECL, unsigned int pc); - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -DASM_FDEF int dasm_checkstep(Dst_DECL, int secmatch); -#else -#define dasm_checkstep(a, b) 0 -#endif - - -#endif /* _DASM_PROTO_H */ diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua deleted file mode 100644 index b1b62022f3c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x64.lua +++ /dev/null @@ -1,12 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM x64 module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- --- This module just sets 64 bit mode for the combined x86/x64 module. --- All the interesting stuff is there. ------------------------------------------------------------------------------- - -x64 = true -- Using a global is an ugly, but effective solution. -return require("dasm_x86") diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h deleted file mode 100644 index 652e8c99b08..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.h +++ /dev/null @@ -1,471 +0,0 @@ -/* -** DynASM x86 encoding engine. -** Copyright (C) 2005-2015 Mike Pall. All rights reserved. -** Released under the MIT license. See dynasm.lua for full copyright notice. -*/ - -#include -#include -#include -#include - -#define DASM_ARCH "x86" - -#ifndef DASM_EXTERN -#define DASM_EXTERN(a,b,c,d) 0 -#endif - -/* Action definitions. DASM_STOP must be 255. */ -enum { - DASM_DISP = 233, - DASM_IMM_S, DASM_IMM_B, DASM_IMM_W, DASM_IMM_D, DASM_IMM_WB, DASM_IMM_DB, - DASM_VREG, DASM_SPACE, DASM_SETLABEL, DASM_REL_A, DASM_REL_LG, DASM_REL_PC, - DASM_IMM_LG, DASM_IMM_PC, DASM_LABEL_LG, DASM_LABEL_PC, DASM_ALIGN, - DASM_EXTERN, DASM_ESC, DASM_MARK, DASM_SECTION, DASM_STOP -}; - -/* Maximum number of section buffer positions for a single dasm_put() call. */ -#define DASM_MAXSECPOS 25 - -/* DynASM encoder status codes. Action list offset or number are or'ed in. */ -#define DASM_S_OK 0x00000000 -#define DASM_S_NOMEM 0x01000000 -#define DASM_S_PHASE 0x02000000 -#define DASM_S_MATCH_SEC 0x03000000 -#define DASM_S_RANGE_I 0x11000000 -#define DASM_S_RANGE_SEC 0x12000000 -#define DASM_S_RANGE_LG 0x13000000 -#define DASM_S_RANGE_PC 0x14000000 -#define DASM_S_RANGE_VREG 0x15000000 -#define DASM_S_UNDEF_L 0x21000000 -#define DASM_S_UNDEF_PC 0x22000000 - -/* Macros to convert positions (8 bit section + 24 bit index). */ -#define DASM_POS2IDX(pos) ((pos)&0x00ffffff) -#define DASM_POS2BIAS(pos) ((pos)&0xff000000) -#define DASM_SEC2POS(sec) ((sec)<<24) -#define DASM_POS2SEC(pos) ((pos)>>24) -#define DASM_POS2PTR(D, pos) (D->sections[DASM_POS2SEC(pos)].rbuf + (pos)) - -/* Action list type. */ -typedef const unsigned char *dasm_ActList; - -/* Per-section structure. */ -typedef struct dasm_Section { - int *rbuf; /* Biased buffer pointer (negative section bias). */ - int *buf; /* True buffer pointer. */ - size_t bsize; /* Buffer size in bytes. */ - int pos; /* Biased buffer position. */ - int epos; /* End of biased buffer position - max single put. */ - int ofs; /* Byte offset into section. */ -} dasm_Section; - -/* Core structure holding the DynASM encoding state. */ -struct dasm_State { - size_t psize; /* Allocated size of this structure. */ - dasm_ActList actionlist; /* Current actionlist pointer. */ - int *lglabels; /* Local/global chain/pos ptrs. */ - size_t lgsize; - int *pclabels; /* PC label chains/pos ptrs. */ - size_t pcsize; - void **globals; /* Array of globals (bias -10). */ - dasm_Section *section; /* Pointer to active section. */ - size_t codesize; /* Total size of all code sections. */ - int maxsection; /* 0 <= sectionidx < maxsection. */ - int status; /* Status code. */ - dasm_Section sections[1]; /* All sections. Alloc-extended. */ -}; - -/* The size of the core structure depends on the max. number of sections. */ -#define DASM_PSZ(ms) (sizeof(dasm_State)+(ms-1)*sizeof(dasm_Section)) - - -/* Initialize DynASM state. */ -void dasm_init(Dst_DECL, int maxsection) -{ - dasm_State *D; - size_t psz = 0; - int i; - Dst_REF = NULL; - DASM_M_GROW(Dst, struct dasm_State, Dst_REF, psz, DASM_PSZ(maxsection)); - D = Dst_REF; - D->psize = psz; - D->lglabels = NULL; - D->lgsize = 0; - D->pclabels = NULL; - D->pcsize = 0; - D->globals = NULL; - D->maxsection = maxsection; - for (i = 0; i < maxsection; i++) { - D->sections[i].buf = NULL; /* Need this for pass3. */ - D->sections[i].rbuf = D->sections[i].buf - DASM_SEC2POS(i); - D->sections[i].bsize = 0; - D->sections[i].epos = 0; /* Wrong, but is recalculated after resize. */ - } -} - -/* Free DynASM state. */ -void dasm_free(Dst_DECL) -{ - dasm_State *D = Dst_REF; - int i; - for (i = 0; i < D->maxsection; i++) - if (D->sections[i].buf) - DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize); - if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize); - if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize); - DASM_M_FREE(Dst, D, D->psize); -} - -/* Setup global label array. Must be called before dasm_setup(). */ -void dasm_setupglobal(Dst_DECL, void **gl, unsigned int maxgl) -{ - dasm_State *D = Dst_REF; - D->globals = gl - 10; /* Negative bias to compensate for locals. */ - DASM_M_GROW(Dst, int, D->lglabels, D->lgsize, (10+maxgl)*sizeof(int)); -} - -/* Grow PC label array. Can be called after dasm_setup(), too. */ -void dasm_growpc(Dst_DECL, unsigned int maxpc) -{ - dasm_State *D = Dst_REF; - size_t osz = D->pcsize; - DASM_M_GROW(Dst, int, D->pclabels, D->pcsize, maxpc*sizeof(int)); - memset((void *)(((unsigned char *)D->pclabels)+osz), 0, D->pcsize-osz); -} - -/* Setup encoder. */ -void dasm_setup(Dst_DECL, const void *actionlist) -{ - dasm_State *D = Dst_REF; - int i; - D->actionlist = (dasm_ActList)actionlist; - D->status = DASM_S_OK; - D->section = &D->sections[0]; - memset((void *)D->lglabels, 0, D->lgsize); - if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize); - for (i = 0; i < D->maxsection; i++) { - D->sections[i].pos = DASM_SEC2POS(i); - D->sections[i].ofs = 0; - } -} - - -#ifdef DASM_CHECKS -#define CK(x, st) \ - do { if (!(x)) { \ - D->status = DASM_S_##st|(int)(p-D->actionlist-1); return; } } while (0) -#define CKPL(kind, st) \ - do { if ((size_t)((char *)pl-(char *)D->kind##labels) >= D->kind##size) { \ - D->status=DASM_S_RANGE_##st|(int)(p-D->actionlist-1); return; } } while (0) -#else -#define CK(x, st) ((void)0) -#define CKPL(kind, st) ((void)0) -#endif - -/* Pass 1: Store actions and args, link branches/labels, estimate offsets. */ -void dasm_put(Dst_DECL, int start, ...) -{ - va_list ap; - dasm_State *D = Dst_REF; - dasm_ActList p = D->actionlist + start; - dasm_Section *sec = D->section; - int pos = sec->pos, ofs = sec->ofs, mrm = 4; - int *b; - - if (pos >= sec->epos) { - DASM_M_GROW(Dst, int, sec->buf, sec->bsize, - sec->bsize + 2*DASM_MAXSECPOS*sizeof(int)); - sec->rbuf = sec->buf - DASM_POS2BIAS(pos); - sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos); - } - - b = sec->rbuf; - b[pos++] = start; - - va_start(ap, start); - while (1) { - int action = *p++; - if (action < DASM_DISP) { - ofs++; - } else if (action <= DASM_REL_A) { - int n = va_arg(ap, int); - b[pos++] = n; - switch (action) { - case DASM_DISP: - if (n == 0) { if ((mrm&7) == 4) mrm = p[-2]; if ((mrm&7) != 5) break; } - case DASM_IMM_DB: if (((n+128)&-256) == 0) goto ob; - case DASM_REL_A: /* Assumes ptrdiff_t is int. !x64 */ - case DASM_IMM_D: ofs += 4; break; - case DASM_IMM_S: CK(((n+128)&-256) == 0, RANGE_I); goto ob; - case DASM_IMM_B: CK((n&-256) == 0, RANGE_I); ob: ofs++; break; - case DASM_IMM_WB: if (((n+128)&-256) == 0) goto ob; - case DASM_IMM_W: CK((n&-65536) == 0, RANGE_I); ofs += 2; break; - case DASM_SPACE: p++; ofs += n; break; - case DASM_SETLABEL: b[pos-2] = -0x40000000; break; /* Neg. label ofs. */ - case DASM_VREG: CK((n&-8) == 0 && (n != 4 || (*p&1) == 0), RANGE_VREG); - if (*p++ == 1 && *p == DASM_DISP) mrm = n; continue; - } - mrm = 4; - } else { - int *pl, n; - switch (action) { - case DASM_REL_LG: - case DASM_IMM_LG: - n = *p++; pl = D->lglabels + n; - /* Bkwd rel or global. */ - if (n <= 246) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; } - pl -= 246; n = *pl; - if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */ - goto linkrel; - case DASM_REL_PC: - case DASM_IMM_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); - putrel: - n = *pl; - if (n < 0) { /* Label exists. Get label pos and store it. */ - b[pos] = -n; - } else { - linkrel: - b[pos] = n; /* Else link to rel chain, anchored at label. */ - *pl = pos; - } - pos++; - ofs += 4; /* Maximum offset needed. */ - if (action == DASM_REL_LG || action == DASM_REL_PC) - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_LABEL_LG: pl = D->lglabels + *p++; CKPL(lg, LG); goto putlabel; - case DASM_LABEL_PC: pl = D->pclabels + va_arg(ap, int); CKPL(pc, PC); - putlabel: - n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos; } - *pl = -pos; /* Label exists now. */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_ALIGN: - ofs += *p++; /* Maximum alignment needed (arg is 2**n-1). */ - b[pos++] = ofs; /* Store pass1 offset estimate. */ - break; - case DASM_EXTERN: p += 2; ofs += 4; break; - case DASM_ESC: p++; ofs++; break; - case DASM_MARK: mrm = p[-2]; break; - case DASM_SECTION: - n = *p; CK(n < D->maxsection, RANGE_SEC); D->section = &D->sections[n]; - case DASM_STOP: goto stop; - } - } - } -stop: - va_end(ap); - sec->pos = pos; - sec->ofs = ofs; -} -#undef CK - -/* Pass 2: Link sections, shrink branches/aligns, fix label offsets. */ -int dasm_link(Dst_DECL, size_t *szp) -{ - dasm_State *D = Dst_REF; - int secnum; - int ofs = 0; - -#ifdef DASM_CHECKS - *szp = 0; - if (D->status != DASM_S_OK) return D->status; - { - int pc; - for (pc = 0; pc*sizeof(int) < D->pcsize; pc++) - if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc; - } -#endif - - { /* Handle globals not defined in this translation unit. */ - int idx; - for (idx = 10; idx*sizeof(int) < D->lgsize; idx++) { - int n = D->lglabels[idx]; - /* Undefined label: Collapse rel chain and replace with marker (< 0). */ - while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; } - } - } - - /* Combine all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->rbuf; - int pos = DASM_SEC2POS(secnum); - int lastpos = sec->pos; - - while (pos != lastpos) { - dasm_ActList p = D->actionlist + b[pos++]; - while (1) { - int op, action = *p++; - switch (action) { - case DASM_REL_LG: p++; op = p[-3]; goto rel_pc; - case DASM_REL_PC: op = p[-2]; rel_pc: { - int shrink = op == 0xe9 ? 3 : ((op&0xf0) == 0x80 ? 4 : 0); - if (shrink) { /* Shrinkable branch opcode? */ - int lofs, lpos = b[pos]; - if (lpos < 0) goto noshrink; /* Ext global? */ - lofs = *DASM_POS2PTR(D, lpos); - if (lpos > pos) { /* Fwd label: add cumulative section offsets. */ - int i; - for (i = secnum; i < DASM_POS2SEC(lpos); i++) - lofs += D->sections[i].ofs; - } else { - lofs -= ofs; /* Bkwd label: unfix offset. */ - } - lofs -= b[pos+1]; /* Short branch ok? */ - if (lofs >= -128-shrink && lofs <= 127) ofs -= shrink; /* Yes. */ - else { noshrink: shrink = 0; } /* No, cannot shrink op. */ - } - b[pos+1] = shrink; - pos += 2; - break; - } - case DASM_SPACE: case DASM_IMM_LG: case DASM_VREG: p++; - case DASM_DISP: case DASM_IMM_S: case DASM_IMM_B: case DASM_IMM_W: - case DASM_IMM_D: case DASM_IMM_WB: case DASM_IMM_DB: - case DASM_SETLABEL: case DASM_REL_A: case DASM_IMM_PC: pos++; break; - case DASM_LABEL_LG: p++; - case DASM_LABEL_PC: b[pos++] += ofs; break; /* Fix label offset. */ - case DASM_ALIGN: ofs -= (b[pos++]+ofs)&*p++; break; /* Adjust ofs. */ - case DASM_EXTERN: p += 2; break; - case DASM_ESC: p++; break; - case DASM_MARK: break; - case DASM_SECTION: case DASM_STOP: goto stop; - } - } - stop: (void)0; - } - ofs += sec->ofs; /* Next section starts right after current section. */ - } - - D->codesize = ofs; /* Total size of all code sections */ - *szp = ofs; - return DASM_S_OK; -} - -#define dasmb(x) *cp++ = (unsigned char)(x) -#ifndef DASM_ALIGNED_WRITES -#define dasmw(x) \ - do { *((unsigned short *)cp) = (unsigned short)(x); cp+=2; } while (0) -#define dasmd(x) \ - do { *((unsigned int *)cp) = (unsigned int)(x); cp+=4; } while (0) -#else -#define dasmw(x) do { dasmb(x); dasmb((x)>>8); } while (0) -#define dasmd(x) do { dasmw(x); dasmw((x)>>16); } while (0) -#endif - -/* Pass 3: Encode sections. */ -int dasm_encode(Dst_DECL, void *buffer) -{ - dasm_State *D = Dst_REF; - unsigned char *base = (unsigned char *)buffer; - unsigned char *cp = base; - int secnum; - - /* Encode all code sections. No support for data sections (yet). */ - for (secnum = 0; secnum < D->maxsection; secnum++) { - dasm_Section *sec = D->sections + secnum; - int *b = sec->buf; - int *endb = sec->rbuf + sec->pos; - - while (b != endb) { - dasm_ActList p = D->actionlist + *b++; - unsigned char *mark = NULL; - while (1) { - int action = *p++; - int n = (action >= DASM_DISP && action <= DASM_ALIGN) ? *b++ : 0; - switch (action) { - case DASM_DISP: if (!mark) mark = cp; { - unsigned char *mm = mark; - if (*p != DASM_IMM_DB && *p != DASM_IMM_WB) mark = NULL; - if (n == 0) { int mrm = mm[-1]&7; if (mrm == 4) mrm = mm[0]&7; - if (mrm != 5) { mm[-1] -= 0x80; break; } } - if (((n+128) & -256) != 0) goto wd; else mm[-1] -= 0x40; - } - case DASM_IMM_S: case DASM_IMM_B: wb: dasmb(n); break; - case DASM_IMM_DB: if (((n+128)&-256) == 0) { - db: if (!mark) mark = cp; mark[-2] += 2; mark = NULL; goto wb; - } else mark = NULL; - case DASM_IMM_D: wd: dasmd(n); break; - case DASM_IMM_WB: if (((n+128)&-256) == 0) goto db; else mark = NULL; - case DASM_IMM_W: dasmw(n); break; - case DASM_VREG: { int t = *p++; if (t >= 2) n<<=3; cp[-1] |= n; break; } - case DASM_REL_LG: p++; if (n >= 0) goto rel_pc; - b++; n = (int)(ptrdiff_t)D->globals[-n]; - case DASM_REL_A: rel_a: n -= (int)(ptrdiff_t)(cp+4); goto wd; /* !x64 */ - case DASM_REL_PC: rel_pc: { - int shrink = *b++; - int *pb = DASM_POS2PTR(D, n); if (*pb < 0) { n = pb[1]; goto rel_a; } - n = *pb - ((int)(cp-base) + 4-shrink); - if (shrink == 0) goto wd; - if (shrink == 4) { cp--; cp[-1] = *cp-0x10; } else cp[-1] = 0xeb; - goto wb; - } - case DASM_IMM_LG: - p++; if (n < 0) { n = (int)(ptrdiff_t)D->globals[-n]; goto wd; } - case DASM_IMM_PC: { - int *pb = DASM_POS2PTR(D, n); - n = *pb < 0 ? pb[1] : (*pb + (int)(ptrdiff_t)base); - goto wd; - } - case DASM_LABEL_LG: { - int idx = *p++; - if (idx >= 10) - D->globals[idx] = (void *)(base + (*p == DASM_SETLABEL ? *b : n)); - break; - } - case DASM_LABEL_PC: case DASM_SETLABEL: break; - case DASM_SPACE: { int fill = *p++; while (n--) *cp++ = fill; break; } - case DASM_ALIGN: - n = *p++; - while (((cp-base) & n)) *cp++ = 0x90; /* nop */ - break; - case DASM_EXTERN: n = DASM_EXTERN(Dst, cp, p[1], *p); p += 2; goto wd; - case DASM_MARK: mark = cp; break; - case DASM_ESC: action = *p++; - default: *cp++ = action; break; - case DASM_SECTION: case DASM_STOP: goto stop; - } - } - stop: (void)0; - } - } - - if (base + D->codesize != cp) /* Check for phase errors. */ - return DASM_S_PHASE; - return DASM_S_OK; -} - -/* Get PC label offset. */ -int dasm_getpclabel(Dst_DECL, unsigned int pc) -{ - dasm_State *D = Dst_REF; - if (pc*sizeof(int) < D->pcsize) { - int pos = D->pclabels[pc]; - if (pos < 0) return *DASM_POS2PTR(D, -pos); - if (pos > 0) return -1; /* Undefined. */ - } - return -2; /* Unused or out of range. */ -} - -#ifdef DASM_CHECKS -/* Optional sanity checker to call between isolated encoding steps. */ -int dasm_checkstep(Dst_DECL, int secmatch) -{ - dasm_State *D = Dst_REF; - if (D->status == DASM_S_OK) { - int i; - for (i = 1; i <= 9; i++) { - if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_L|i; break; } - D->lglabels[i] = 0; - } - } - if (D->status == DASM_S_OK && secmatch >= 0 && - D->section != &D->sections[secmatch]) - D->status = DASM_S_MATCH_SEC|(int)(D->section-D->sections); - return D->status; -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua deleted file mode 100644 index 7ca061d22f6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dasm_x86.lua +++ /dev/null @@ -1,1945 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM x86/x64 module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See dynasm.lua for full copyright notice. ------------------------------------------------------------------------------- - -local x64 = x64 - --- Module information: -local _info = { - arch = x64 and "x64" or "x86", - description = "DynASM x86/x64 module", - version = "1.3.0", - vernum = 10300, - release = "2011-05-05", - author = "Mike Pall", - license = "MIT", -} - --- Exported glue functions for the arch-specific module. -local _M = { _info = _info } - --- Cache library functions. -local type, tonumber, pairs, ipairs = type, tonumber, pairs, ipairs -local assert, unpack, setmetatable = assert, unpack or table.unpack, setmetatable -local _s = string -local sub, format, byte, char = _s.sub, _s.format, _s.byte, _s.char -local find, match, gmatch, gsub = _s.find, _s.match, _s.gmatch, _s.gsub -local concat, sort = table.concat, table.sort -local bit = bit or require("bit") -local band, shl, shr = bit.band, bit.lshift, bit.rshift - --- Inherited tables and callbacks. -local g_opt, g_arch -local wline, werror, wfatal, wwarn - --- Action name list. --- CHECK: Keep this in sync with the C code! -local action_names = { - -- int arg, 1 buffer pos: - "DISP", "IMM_S", "IMM_B", "IMM_W", "IMM_D", "IMM_WB", "IMM_DB", - -- action arg (1 byte), int arg, 1 buffer pos (reg/num): - "VREG", "SPACE", -- !x64: VREG support NYI. - -- ptrdiff_t arg, 1 buffer pos (address): !x64 - "SETLABEL", "REL_A", - -- action arg (1 byte) or int arg, 2 buffer pos (link, offset): - "REL_LG", "REL_PC", - -- action arg (1 byte) or int arg, 1 buffer pos (link): - "IMM_LG", "IMM_PC", - -- action arg (1 byte) or int arg, 1 buffer pos (offset): - "LABEL_LG", "LABEL_PC", - -- action arg (1 byte), 1 buffer pos (offset): - "ALIGN", - -- action args (2 bytes), no buffer pos. - "EXTERN", - -- action arg (1 byte), no buffer pos. - "ESC", - -- no action arg, no buffer pos. - "MARK", - -- action arg (1 byte), no buffer pos, terminal action: - "SECTION", - -- no args, no buffer pos, terminal action: - "STOP" -} - --- Maximum number of section buffer positions for dasm_put(). --- CHECK: Keep this in sync with the C code! -local maxsecpos = 25 -- Keep this low, to avoid excessively long C lines. - --- Action name -> action number (dynamically generated below). -local map_action = {} --- First action number. Everything below does not need to be escaped. -local actfirst = 256-#action_names - --- Action list buffer and string (only used to remove dupes). -local actlist = {} -local actstr = "" - --- Argument list for next dasm_put(). Start with offset 0 into action list. -local actargs = { 0 } - --- Current number of section buffer positions for dasm_put(). -local secpos = 1 - ------------------------------------------------------------------------------- - --- Compute action numbers for action names. -for n,name in ipairs(action_names) do - local num = actfirst + n - 1 - map_action[name] = num -end - --- Dump action names and numbers. -local function dumpactions(out) - out:write("DynASM encoding engine action codes:\n") - for n,name in ipairs(action_names) do - local num = map_action[name] - out:write(format(" %-10s %02X %d\n", name, num, num)) - end - out:write("\n") -end - --- Write action list buffer as a huge static C array. -local function writeactions(out, name) - local nn = #actlist - local last = actlist[nn] or 255 - actlist[nn] = nil -- Remove last byte. - if nn == 0 then nn = 1 end - out:write("static const unsigned char ", name, "[", nn, "] = {\n") - local s = " " - for n,b in ipairs(actlist) do - s = s..b.."," - if #s >= 75 then - assert(out:write(s, "\n")) - s = " " - end - end - out:write(s, last, "\n};\n\n") -- Add last byte back. -end - ------------------------------------------------------------------------------- - --- Add byte to action list. -local function wputxb(n) - assert(n >= 0 and n <= 255 and n % 1 == 0, "byte out of range") - actlist[#actlist+1] = n -end - --- Add action to list with optional arg. Advance buffer pos, too. -local function waction(action, a, num) - wputxb(assert(map_action[action], "bad action name `"..action.."'")) - if a then actargs[#actargs+1] = a end - if a or num then secpos = secpos + (num or 1) end -end - --- Add call to embedded DynASM C code. -local function wcall(func, args) - wline(format("dasm_%s(Dst, %s);", func, concat(args, ", ")), true) -end - --- Delete duplicate action list chunks. A tad slow, but so what. -local function dedupechunk(offset) - local al, as = actlist, actstr - local chunk = char(unpack(al, offset+1, #al)) - local orig = find(as, chunk, 1, true) - if orig then - actargs[1] = orig-1 -- Replace with original offset. - for i=offset+1,#al do al[i] = nil end -- Kill dupe. - else - actstr = as..chunk - end -end - --- Flush action list (intervening C code or buffer pos overflow). -local function wflush(term) - local offset = actargs[1] - if #actlist == offset then return end -- Nothing to flush. - if not term then waction("STOP") end -- Terminate action list. - dedupechunk(offset) - wcall("put", actargs) -- Add call to dasm_put(). - actargs = { #actlist } -- Actionlist offset is 1st arg to next dasm_put(). - secpos = 1 -- The actionlist offset occupies a buffer position, too. -end - --- Put escaped byte. -local function wputb(n) - if n >= actfirst then waction("ESC") end -- Need to escape byte. - wputxb(n) -end - ------------------------------------------------------------------------------- - --- Global label name -> global label number. With auto assignment on 1st use. -local next_global = 10 -local map_global = setmetatable({}, { __index = function(t, name) - if not match(name, "^[%a_][%w_@]*$") then werror("bad global label") end - local n = next_global - if n > 246 then werror("too many global labels") end - next_global = n + 1 - t[name] = n - return n -end}) - --- Dump global labels. -local function dumpglobals(out, lvl) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("Global labels:\n") - for i=10,next_global-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write global label enum. -local function writeglobals(out, prefix) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("enum {\n") - for i=10,next_global-1 do - out:write(" ", prefix, gsub(t[i], "@.*", ""), ",\n") - end - out:write(" ", prefix, "_MAX\n};\n") -end - --- Write global label names. -local function writeglobalnames(out, name) - local t = {} - for name, n in pairs(map_global) do t[n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=10,next_global-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Extern label name -> extern label number. With auto assignment on 1st use. -local next_extern = -1 -local map_extern = setmetatable({}, { __index = function(t, name) - -- No restrictions on the name for now. - local n = next_extern - if n < -256 then werror("too many extern labels") end - next_extern = n - 1 - t[name] = n - return n -end}) - --- Dump extern labels. -local function dumpexterns(out, lvl) - local t = {} - for name, n in pairs(map_extern) do t[-n] = name end - out:write("Extern labels:\n") - for i=1,-next_extern-1 do - out:write(format(" %s\n", t[i])) - end - out:write("\n") -end - --- Write extern label names. -local function writeexternnames(out, name) - local t = {} - for name, n in pairs(map_extern) do t[-n] = name end - out:write("static const char *const ", name, "[] = {\n") - for i=1,-next_extern-1 do - out:write(" \"", t[i], "\",\n") - end - out:write(" (const char *)0\n};\n") -end - ------------------------------------------------------------------------------- - --- Arch-specific maps. -local map_archdef = {} -- Ext. register name -> int. name. -local map_reg_rev = {} -- Int. register name -> ext. name. -local map_reg_num = {} -- Int. register name -> register number. -local map_reg_opsize = {} -- Int. register name -> operand size. -local map_reg_valid_base = {} -- Int. register name -> valid base register? -local map_reg_valid_index = {} -- Int. register name -> valid index register? -local map_reg_needrex = {} -- Int. register name -> need rex vs. no rex. -local reg_list = {} -- Canonical list of int. register names. - -local map_type = {} -- Type name -> { ctype, reg } -local ctypenum = 0 -- Type number (for _PTx macros). - -local addrsize = x64 and "q" or "d" -- Size for address operands. - --- Helper functions to fill register maps. -local function mkrmap(sz, cl, names) - local cname = format("@%s", sz) - reg_list[#reg_list+1] = cname - map_archdef[cl] = cname - map_reg_rev[cname] = cl - map_reg_num[cname] = -1 - map_reg_opsize[cname] = sz - if sz == addrsize or sz == "d" then - map_reg_valid_base[cname] = true - map_reg_valid_index[cname] = true - end - if names then - for n,name in ipairs(names) do - local iname = format("@%s%x", sz, n-1) - reg_list[#reg_list+1] = iname - map_archdef[name] = iname - map_reg_rev[iname] = name - map_reg_num[iname] = n-1 - map_reg_opsize[iname] = sz - if sz == "b" and n > 4 then map_reg_needrex[iname] = false end - if sz == addrsize or sz == "d" then - map_reg_valid_base[iname] = true - map_reg_valid_index[iname] = true - end - end - end - for i=0,(x64 and sz ~= "f") and 15 or 7 do - local needrex = sz == "b" and i > 3 - local iname = format("@%s%x%s", sz, i, needrex and "R" or "") - if needrex then map_reg_needrex[iname] = true end - local name - if sz == "o" then name = format("xmm%d", i) - elseif sz == "f" then name = format("st%d", i) - else name = format("r%d%s", i, sz == addrsize and "" or sz) end - map_archdef[name] = iname - if not map_reg_rev[iname] then - reg_list[#reg_list+1] = iname - map_reg_rev[iname] = name - map_reg_num[iname] = i - map_reg_opsize[iname] = sz - if sz == addrsize or sz == "d" then - map_reg_valid_base[iname] = true - map_reg_valid_index[iname] = true - end - end - end - reg_list[#reg_list+1] = "" -end - --- Integer registers (qword, dword, word and byte sized). -if x64 then - mkrmap("q", "Rq", {"rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi"}) -end -mkrmap("d", "Rd", {"eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"}) -mkrmap("w", "Rw", {"ax", "cx", "dx", "bx", "sp", "bp", "si", "di"}) -mkrmap("b", "Rb", {"al", "cl", "dl", "bl", "ah", "ch", "dh", "bh"}) -map_reg_valid_index[map_archdef.esp] = false -if x64 then map_reg_valid_index[map_archdef.rsp] = false end -map_archdef["Ra"] = "@"..addrsize - --- FP registers (internally tword sized, but use "f" as operand size). -mkrmap("f", "Rf") - --- SSE registers (oword sized, but qword and dword accessible). -mkrmap("o", "xmm") - --- Operand size prefixes to codes. -local map_opsize = { - byte = "b", word = "w", dword = "d", qword = "q", oword = "o", tword = "t", - aword = addrsize, -} - --- Operand size code to number. -local map_opsizenum = { - b = 1, w = 2, d = 4, q = 8, o = 16, t = 10, -} - --- Operand size code to name. -local map_opsizename = { - b = "byte", w = "word", d = "dword", q = "qword", o = "oword", t = "tword", - f = "fpword", -} - --- Valid index register scale factors. -local map_xsc = { - ["1"] = 0, ["2"] = 1, ["4"] = 2, ["8"] = 3, -} - --- Condition codes. -local map_cc = { - o = 0, no = 1, b = 2, nb = 3, e = 4, ne = 5, be = 6, nbe = 7, - s = 8, ns = 9, p = 10, np = 11, l = 12, nl = 13, le = 14, nle = 15, - c = 2, nae = 2, nc = 3, ae = 3, z = 4, nz = 5, na = 6, a = 7, - pe = 10, po = 11, nge = 12, ge = 13, ng = 14, g = 15, -} - - --- Reverse defines for registers. -function _M.revdef(s) - return gsub(s, "@%w+", map_reg_rev) -end - --- Dump register names and numbers -local function dumpregs(out) - out:write("Register names, sizes and internal numbers:\n") - for _,reg in ipairs(reg_list) do - if reg == "" then - out:write("\n") - else - local name = map_reg_rev[reg] - local num = map_reg_num[reg] - local opsize = map_opsizename[map_reg_opsize[reg]] - out:write(format(" %-5s %-8s %s\n", name, opsize, - num < 0 and "(variable)" or num)) - end - end -end - ------------------------------------------------------------------------------- - --- Put action for label arg (IMM_LG, IMM_PC, REL_LG, REL_PC). -local function wputlabel(aprefix, imm, num) - if type(imm) == "number" then - if imm < 0 then - waction("EXTERN") - wputxb(aprefix == "IMM_" and 0 or 1) - imm = -imm-1 - else - waction(aprefix.."LG", nil, num); - end - wputxb(imm) - else - waction(aprefix.."PC", imm, num) - end -end - --- Put signed byte or arg. -local function wputsbarg(n) - if type(n) == "number" then - if n < -128 or n > 127 then - werror("signed immediate byte out of range") - end - if n < 0 then n = n + 256 end - wputb(n) - else waction("IMM_S", n) end -end - --- Put unsigned byte or arg. -local function wputbarg(n) - if type(n) == "number" then - if n < 0 or n > 255 then - werror("unsigned immediate byte out of range") - end - wputb(n) - else waction("IMM_B", n) end -end - --- Put unsigned word or arg. -local function wputwarg(n) - if type(n) == "number" then - if shr(n, 16) ~= 0 then - werror("unsigned immediate word out of range") - end - wputb(band(n, 255)); wputb(shr(n, 8)); - else waction("IMM_W", n) end -end - --- Put signed or unsigned dword or arg. -local function wputdarg(n) - local tn = type(n) - if tn == "number" then - wputb(band(n, 255)) - wputb(band(shr(n, 8), 255)) - wputb(band(shr(n, 16), 255)) - wputb(shr(n, 24)) - elseif tn == "table" then - wputlabel("IMM_", n[1], 1) - else - waction("IMM_D", n) - end -end - --- Put operand-size dependent number or arg (defaults to dword). -local function wputszarg(sz, n) - if not sz or sz == "d" or sz == "q" then wputdarg(n) - elseif sz == "w" then wputwarg(n) - elseif sz == "b" then wputbarg(n) - elseif sz == "s" then wputsbarg(n) - else werror("bad operand size") end -end - --- Put multi-byte opcode with operand-size dependent modifications. -local function wputop(sz, op, rex) - local r - if rex ~= 0 and not x64 then werror("bad operand size") end - if sz == "w" then wputb(102) end - -- Needs >32 bit numbers, but only for crc32 eax, word [ebx] - if op >= 4294967296 then r = op%4294967296 wputb((op-r)/4294967296) op = r end - if op >= 16777216 then wputb(shr(op, 24)); op = band(op, 0xffffff) end - if op >= 65536 then - if rex ~= 0 then - local opc3 = band(op, 0xffff00) - if opc3 == 0x0f3a00 or opc3 == 0x0f3800 then - wputb(64 + band(rex, 15)); rex = 0 - end - end - wputb(shr(op, 16)); op = band(op, 0xffff) - end - if op >= 256 then - local b = shr(op, 8) - if b == 15 and rex ~= 0 then wputb(64 + band(rex, 15)); rex = 0 end - wputb(b) - op = band(op, 255) - end - if rex ~= 0 then wputb(64 + band(rex, 15)) end - if sz == "b" then op = op - 1 end - wputb(op) -end - --- Put ModRM or SIB formatted byte. -local function wputmodrm(m, s, rm, vs, vrm) - assert(m < 4 and s < 16 and rm < 16, "bad modrm operands") - wputb(shl(m, 6) + shl(band(s, 7), 3) + band(rm, 7)) -end - --- Put ModRM/SIB plus optional displacement. -local function wputmrmsib(t, imark, s, vsreg) - local vreg, vxreg - local reg, xreg = t.reg, t.xreg - if reg and reg < 0 then reg = 0; vreg = t.vreg end - if xreg and xreg < 0 then xreg = 0; vxreg = t.vxreg end - if s < 0 then s = 0 end - - -- Register mode. - if sub(t.mode, 1, 1) == "r" then - wputmodrm(3, s, reg) - if vsreg then waction("VREG", vsreg); wputxb(2) end - if vreg then waction("VREG", vreg); wputxb(0) end - return - end - - local disp = t.disp - local tdisp = type(disp) - -- No base register? - if not reg then - local riprel = false - if xreg then - -- Indexed mode with index register only. - -- [xreg*xsc+disp] -> (0, s, esp) (xsc, xreg, ebp) - wputmodrm(0, s, 4) - if imark == "I" then waction("MARK") end - if vsreg then waction("VREG", vsreg); wputxb(2) end - wputmodrm(t.xsc, xreg, 5) - if vxreg then waction("VREG", vxreg); wputxb(3) end - else - -- Pure 32 bit displacement. - if x64 and tdisp ~= "table" then - wputmodrm(0, s, 4) -- [disp] -> (0, s, esp) (0, esp, ebp) - if imark == "I" then waction("MARK") end - wputmodrm(0, 4, 5) - else - riprel = x64 - wputmodrm(0, s, 5) -- [disp|rip-label] -> (0, s, ebp) - if imark == "I" then waction("MARK") end - end - if vsreg then waction("VREG", vsreg); wputxb(2) end - end - if riprel then -- Emit rip-relative displacement. - if match("UWSiI", imark) then - werror("NYI: rip-relative displacement followed by immediate") - end - -- The previous byte in the action buffer cannot be 0xe9 or 0x80-0x8f. - wputlabel("REL_", disp[1], 2) - else - wputdarg(disp) - end - return - end - - local m - if tdisp == "number" then -- Check displacement size at assembly time. - if disp == 0 and band(reg, 7) ~= 5 then -- [ebp] -> [ebp+0] (in SIB, too) - if not vreg then m = 0 end -- Force DISP to allow [Rd(5)] -> [ebp+0] - elseif disp >= -128 and disp <= 127 then m = 1 - else m = 2 end - elseif tdisp == "table" then - m = 2 - end - - -- Index register present or esp as base register: need SIB encoding. - if xreg or band(reg, 7) == 4 then - wputmodrm(m or 2, s, 4) -- ModRM. - if m == nil or imark == "I" then waction("MARK") end - if vsreg then waction("VREG", vsreg); wputxb(2) end - wputmodrm(t.xsc or 0, xreg or 4, reg) -- SIB. - if vxreg then waction("VREG", vxreg); wputxb(3) end - if vreg then waction("VREG", vreg); wputxb(1) end - else - wputmodrm(m or 2, s, reg) -- ModRM. - if (imark == "I" and (m == 1 or m == 2)) or - (m == nil and (vsreg or vreg)) then waction("MARK") end - if vsreg then waction("VREG", vsreg); wputxb(2) end - if vreg then waction("VREG", vreg); wputxb(1) end - end - - -- Put displacement. - if m == 1 then wputsbarg(disp) - elseif m == 2 then wputdarg(disp) - elseif m == nil then waction("DISP", disp) end -end - ------------------------------------------------------------------------------- - --- Return human-readable operand mode string. -local function opmodestr(op, args) - local m = {} - for i=1,#args do - local a = args[i] - m[#m+1] = sub(a.mode, 1, 1)..(a.opsize or "?") - end - return op.." "..concat(m, ",") -end - --- Convert number to valid integer or nil. -local function toint(expr) - local n = tonumber(expr) - if n then - if n % 1 ~= 0 or n < -2147483648 or n > 4294967295 then - werror("bad integer number `"..expr.."'") - end - return n - end -end - --- Parse immediate expression. -local function immexpr(expr) - -- &expr (pointer) - if sub(expr, 1, 1) == "&" then - return "iPJ", format("(ptrdiff_t)(%s)", sub(expr,2)) - end - - local prefix = sub(expr, 1, 2) - -- =>expr (pc label reference) - if prefix == "=>" then - return "iJ", sub(expr, 3) - end - -- ->name (global label reference) - if prefix == "->" then - return "iJ", map_global[sub(expr, 3)] - end - - -- [<>][1-9] (local label reference) - local dir, lnum = match(expr, "^([<>])([1-9])$") - if dir then -- Fwd: 247-255, Bkwd: 1-9. - return "iJ", lnum + (dir == ">" and 246 or 0) - end - - local extname = match(expr, "^extern%s+(%S+)$") - if extname then - return "iJ", map_extern[extname] - end - - -- expr (interpreted as immediate) - return "iI", expr -end - --- Parse displacement expression: +-num, +-expr, +-opsize*num -local function dispexpr(expr) - local disp = expr == "" and 0 or toint(expr) - if disp then return disp end - local c, dispt = match(expr, "^([+-])%s*(.+)$") - if c == "+" then - expr = dispt - elseif not c then - werror("bad displacement expression `"..expr.."'") - end - local opsize, tailops = match(dispt, "^(%w+)%s*%*%s*(.+)$") - local ops, imm = map_opsize[opsize], toint(tailops) - if ops and imm then - if c == "-" then imm = -imm end - return imm*map_opsizenum[ops] - end - local mode, iexpr = immexpr(dispt) - if mode == "iJ" then - if c == "-" then werror("cannot invert label reference") end - return { iexpr } - end - return expr -- Need to return original signed expression. -end - --- Parse register or type expression. -local function rtexpr(expr) - if not expr then return end - local tname, ovreg = match(expr, "^([%w_]+):(@[%w_]+)$") - local tp = map_type[tname or expr] - if tp then - local reg = ovreg or tp.reg - local rnum = map_reg_num[reg] - if not rnum then - werror("type `"..(tname or expr).."' needs a register override") - end - if not map_reg_valid_base[reg] then - werror("bad base register override `"..(map_reg_rev[reg] or reg).."'") - end - return reg, rnum, tp - end - return expr, map_reg_num[expr] -end - --- Parse operand and return { mode, opsize, reg, xreg, xsc, disp, imm }. -local function parseoperand(param) - local t = {} - - local expr = param - local opsize, tailops = match(param, "^(%w+)%s*(.+)$") - if opsize then - t.opsize = map_opsize[opsize] - if t.opsize then expr = tailops end - end - - local br = match(expr, "^%[%s*(.-)%s*%]$") - repeat - if br then - t.mode = "xm" - - -- [disp] - t.disp = toint(br) - if t.disp then - t.mode = x64 and "xm" or "xmO" - break - end - - -- [reg...] - local tp - local reg, tailr = match(br, "^([@%w_:]+)%s*(.*)$") - reg, t.reg, tp = rtexpr(reg) - if not t.reg then - -- [expr] - t.mode = x64 and "xm" or "xmO" - t.disp = dispexpr("+"..br) - break - end - - if t.reg == -1 then - t.vreg, tailr = match(tailr, "^(%b())(.*)$") - if not t.vreg then werror("bad variable register expression") end - end - - -- [xreg*xsc] or [xreg*xsc+-disp] or [xreg*xsc+-expr] - local xsc, tailsc = match(tailr, "^%*%s*([1248])%s*(.*)$") - if xsc then - if not map_reg_valid_index[reg] then - werror("bad index register `"..map_reg_rev[reg].."'") - end - t.xsc = map_xsc[xsc] - t.xreg = t.reg - t.vxreg = t.vreg - t.reg = nil - t.vreg = nil - t.disp = dispexpr(tailsc) - break - end - if not map_reg_valid_base[reg] then - werror("bad base register `"..map_reg_rev[reg].."'") - end - - -- [reg] or [reg+-disp] - t.disp = toint(tailr) or (tailr == "" and 0) - if t.disp then break end - - -- [reg+xreg...] - local xreg, tailx = match(tailr, "^+%s*([@%w_:]+)%s*(.*)$") - xreg, t.xreg, tp = rtexpr(xreg) - if not t.xreg then - -- [reg+-expr] - t.disp = dispexpr(tailr) - break - end - if not map_reg_valid_index[xreg] then - werror("bad index register `"..map_reg_rev[xreg].."'") - end - - if t.xreg == -1 then - t.vxreg, tailx = match(tailx, "^(%b())(.*)$") - if not t.vxreg then werror("bad variable register expression") end - end - - -- [reg+xreg*xsc...] - local xsc, tailsc = match(tailx, "^%*%s*([1248])%s*(.*)$") - if xsc then - t.xsc = map_xsc[xsc] - tailx = tailsc - end - - -- [...] or [...+-disp] or [...+-expr] - t.disp = dispexpr(tailx) - else - -- imm or opsize*imm - local imm = toint(expr) - if not imm and sub(expr, 1, 1) == "*" and t.opsize then - imm = toint(sub(expr, 2)) - if imm then - imm = imm * map_opsizenum[t.opsize] - t.opsize = nil - end - end - if imm then - if t.opsize then werror("bad operand size override") end - local m = "i" - if imm == 1 then m = m.."1" end - if imm >= 4294967168 and imm <= 4294967295 then imm = imm-4294967296 end - if imm >= -128 and imm <= 127 then m = m.."S" end - t.imm = imm - t.mode = m - break - end - - local tp - local reg, tailr = match(expr, "^([@%w_:]+)%s*(.*)$") - reg, t.reg, tp = rtexpr(reg) - if t.reg then - if t.reg == -1 then - t.vreg, tailr = match(tailr, "^(%b())(.*)$") - if not t.vreg then werror("bad variable register expression") end - end - -- reg - if tailr == "" then - if t.opsize then werror("bad operand size override") end - t.opsize = map_reg_opsize[reg] - if t.opsize == "f" then - t.mode = t.reg == 0 and "fF" or "f" - else - if reg == "@w4" or (x64 and reg == "@d4") then - wwarn("bad idea, try again with `"..(x64 and "rsp'" or "esp'")) - end - t.mode = t.reg == 0 and "rmR" or (reg == "@b1" and "rmC" or "rm") - end - t.needrex = map_reg_needrex[reg] - break - end - - -- type[idx], type[idx].field, type->field -> [reg+offset_expr] - if not tp then werror("bad operand `"..param.."'") end - t.mode = "xm" - t.disp = format(tp.ctypefmt, tailr) - else - t.mode, t.imm = immexpr(expr) - if sub(t.mode, -1) == "J" then - if t.opsize and t.opsize ~= addrsize then - werror("bad operand size override") - end - t.opsize = addrsize - end - end - end - until true - return t -end - ------------------------------------------------------------------------------- --- x86 Template String Description --- =============================== --- --- Each template string is a list of [match:]pattern pairs, --- separated by "|". The first match wins. No match means a --- bad or unsupported combination of operand modes or sizes. --- --- The match part and the ":" is omitted if the operation has --- no operands. Otherwise the first N characters are matched --- against the mode strings of each of the N operands. --- --- The mode string for each operand type is (see parseoperand()): --- Integer register: "rm", +"R" for eax, ax, al, +"C" for cl --- FP register: "f", +"F" for st0 --- Index operand: "xm", +"O" for [disp] (pure offset) --- Immediate: "i", +"S" for signed 8 bit, +"1" for 1, --- +"I" for arg, +"P" for pointer --- Any: +"J" for valid jump targets --- --- So a match character "m" (mixed) matches both an integer register --- and an index operand (to be encoded with the ModRM/SIB scheme). --- But "r" matches only a register and "x" only an index operand --- (e.g. for FP memory access operations). --- --- The operand size match string starts right after the mode match --- characters and ends before the ":". "dwb" or "qdwb" is assumed, if empty. --- The effective data size of the operation is matched against this list. --- --- If only the regular "b", "w", "d", "q", "t" operand sizes are --- present, then all operands must be the same size. Unspecified sizes --- are ignored, but at least one operand must have a size or the pattern --- won't match (use the "byte", "word", "dword", "qword", "tword" --- operand size overrides. E.g.: mov dword [eax], 1). --- --- If the list has a "1" or "2" prefix, the operand size is taken --- from the respective operand and any other operand sizes are ignored. --- If the list contains only ".", all operand sizes are ignored. --- If the list has a "/" prefix, the concatenated (mixed) operand sizes --- are compared to the match. --- --- E.g. "rrdw" matches for either two dword registers or two word --- registers. "Fx2dq" matches an st0 operand plus an index operand --- pointing to a dword (float) or qword (double). --- --- Every character after the ":" is part of the pattern string: --- Hex chars are accumulated to form the opcode (left to right). --- "n" disables the standard opcode mods --- (otherwise: -1 for "b", o16 prefix for "w", rex.w for "q") --- "X" Force REX.W. --- "r"/"R" adds the reg. number from the 1st/2nd operand to the opcode. --- "m"/"M" generates ModRM/SIB from the 1st/2nd operand. --- The spare 3 bits are either filled with the last hex digit or --- the result from a previous "r"/"R". The opcode is restored. --- --- All of the following characters force a flush of the opcode: --- "o"/"O" stores a pure 32 bit disp (offset) from the 1st/2nd operand. --- "S" stores a signed 8 bit immediate from the last operand. --- "U" stores an unsigned 8 bit immediate from the last operand. --- "W" stores an unsigned 16 bit immediate from the last operand. --- "i" stores an operand sized immediate from the last operand. --- "I" dito, but generates an action code to optionally modify --- the opcode (+2) for a signed 8 bit immediate. --- "J" generates one of the REL action codes from the last operand. --- ------------------------------------------------------------------------------- - --- Template strings for x86 instructions. Ordered by first opcode byte. --- Unimplemented opcodes (deliberate omissions) are marked with *. -local map_op = { - -- 00-05: add... - -- 06: *push es - -- 07: *pop es - -- 08-0D: or... - -- 0E: *push cs - -- 0F: two byte opcode prefix - -- 10-15: adc... - -- 16: *push ss - -- 17: *pop ss - -- 18-1D: sbb... - -- 1E: *push ds - -- 1F: *pop ds - -- 20-25: and... - es_0 = "26", - -- 27: *daa - -- 28-2D: sub... - cs_0 = "2E", - -- 2F: *das - -- 30-35: xor... - ss_0 = "36", - -- 37: *aaa - -- 38-3D: cmp... - ds_0 = "3E", - -- 3F: *aas - inc_1 = x64 and "m:FF0m" or "rdw:40r|m:FF0m", - dec_1 = x64 and "m:FF1m" or "rdw:48r|m:FF1m", - push_1 = (x64 and "rq:n50r|rw:50r|mq:nFF6m|mw:FF6m" or - "rdw:50r|mdw:FF6m").."|S.:6AS|ib:n6Ai|i.:68i", - pop_1 = x64 and "rq:n58r|rw:58r|mq:n8F0m|mw:8F0m" or "rdw:58r|mdw:8F0m", - -- 60: *pusha, *pushad, *pushaw - -- 61: *popa, *popad, *popaw - -- 62: *bound rdw,x - -- 63: x86: *arpl mw,rw - movsxd_2 = x64 and "rm/qd:63rM", - fs_0 = "64", - gs_0 = "65", - o16_0 = "66", - a16_0 = not x64 and "67" or nil, - a32_0 = x64 and "67", - -- 68: push idw - -- 69: imul rdw,mdw,idw - -- 6A: push ib - -- 6B: imul rdw,mdw,S - -- 6C: *insb - -- 6D: *insd, *insw - -- 6E: *outsb - -- 6F: *outsd, *outsw - -- 70-7F: jcc lb - -- 80: add... mb,i - -- 81: add... mdw,i - -- 82: *undefined - -- 83: add... mdw,S - test_2 = "mr:85Rm|rm:85rM|Ri:A9ri|mi:F70mi", - -- 86: xchg rb,mb - -- 87: xchg rdw,mdw - -- 88: mov mb,r - -- 89: mov mdw,r - -- 8A: mov r,mb - -- 8B: mov r,mdw - -- 8C: *mov mdw,seg - lea_2 = "rx1dq:8DrM", - -- 8E: *mov seg,mdw - -- 8F: pop mdw - nop_0 = "90", - xchg_2 = "Rrqdw:90R|rRqdw:90r|rm:87rM|mr:87Rm", - cbw_0 = "6698", - cwde_0 = "98", - cdqe_0 = "4898", - cwd_0 = "6699", - cdq_0 = "99", - cqo_0 = "4899", - -- 9A: *call iw:idw - wait_0 = "9B", - fwait_0 = "9B", - pushf_0 = "9C", - pushfd_0 = not x64 and "9C", - pushfq_0 = x64 and "9C", - popf_0 = "9D", - popfd_0 = not x64 and "9D", - popfq_0 = x64 and "9D", - sahf_0 = "9E", - lahf_0 = "9F", - mov_2 = "OR:A3o|RO:A1O|mr:89Rm|rm:8BrM|rib:nB0ri|ridw:B8ri|mi:C70mi", - movsb_0 = "A4", - movsw_0 = "66A5", - movsd_0 = "A5", - cmpsb_0 = "A6", - cmpsw_0 = "66A7", - cmpsd_0 = "A7", - -- A8: test Rb,i - -- A9: test Rdw,i - stosb_0 = "AA", - stosw_0 = "66AB", - stosd_0 = "AB", - lodsb_0 = "AC", - lodsw_0 = "66AD", - lodsd_0 = "AD", - scasb_0 = "AE", - scasw_0 = "66AF", - scasd_0 = "AF", - -- B0-B7: mov rb,i - -- B8-BF: mov rdw,i - -- C0: rol... mb,i - -- C1: rol... mdw,i - ret_1 = "i.:nC2W", - ret_0 = "C3", - -- C4: *les rdw,mq - -- C5: *lds rdw,mq - -- C6: mov mb,i - -- C7: mov mdw,i - -- C8: *enter iw,ib - leave_0 = "C9", - -- CA: *retf iw - -- CB: *retf - int3_0 = "CC", - int_1 = "i.:nCDU", - into_0 = "CE", - -- CF: *iret - -- D0: rol... mb,1 - -- D1: rol... mdw,1 - -- D2: rol... mb,cl - -- D3: rol... mb,cl - -- D4: *aam ib - -- D5: *aad ib - -- D6: *salc - -- D7: *xlat - -- D8-DF: floating point ops - -- E0: *loopne - -- E1: *loope - -- E2: *loop - -- E3: *jcxz, *jecxz - -- E4: *in Rb,ib - -- E5: *in Rdw,ib - -- E6: *out ib,Rb - -- E7: *out ib,Rdw - call_1 = x64 and "mq:nFF2m|J.:E8nJ" or "md:FF2m|J.:E8J", - jmp_1 = x64 and "mq:nFF4m|J.:E9nJ" or "md:FF4m|J.:E9J", -- short: EB - -- EA: *jmp iw:idw - -- EB: jmp ib - -- EC: *in Rb,dx - -- ED: *in Rdw,dx - -- EE: *out dx,Rb - -- EF: *out dx,Rdw - lock_0 = "F0", - int1_0 = "F1", - repne_0 = "F2", - repnz_0 = "F2", - rep_0 = "F3", - repe_0 = "F3", - repz_0 = "F3", - -- F4: *hlt - cmc_0 = "F5", - -- F6: test... mb,i; div... mb - -- F7: test... mdw,i; div... mdw - clc_0 = "F8", - stc_0 = "F9", - -- FA: *cli - cld_0 = "FC", - std_0 = "FD", - -- FE: inc... mb - -- FF: inc... mdw - - -- misc ops - not_1 = "m:F72m", - neg_1 = "m:F73m", - mul_1 = "m:F74m", - imul_1 = "m:F75m", - div_1 = "m:F76m", - idiv_1 = "m:F77m", - - imul_2 = "rmqdw:0FAFrM|rIqdw:69rmI|rSqdw:6BrmS|riqdw:69rmi", - imul_3 = "rmIqdw:69rMI|rmSqdw:6BrMS|rmiqdw:69rMi", - - movzx_2 = "rm/db:0FB6rM|rm/qb:|rm/wb:0FB6rM|rm/dw:0FB7rM|rm/qw:", - movsx_2 = "rm/db:0FBErM|rm/qb:|rm/wb:0FBErM|rm/dw:0FBFrM|rm/qw:", - - bswap_1 = "rqd:0FC8r", - bsf_2 = "rmqdw:0FBCrM", - bsr_2 = "rmqdw:0FBDrM", - bt_2 = "mrqdw:0FA3Rm|miqdw:0FBA4mU", - btc_2 = "mrqdw:0FBBRm|miqdw:0FBA7mU", - btr_2 = "mrqdw:0FB3Rm|miqdw:0FBA6mU", - bts_2 = "mrqdw:0FABRm|miqdw:0FBA5mU", - - shld_3 = "mriqdw:0FA4RmU|mrCqdw:0FA5Rm", - shrd_3 = "mriqdw:0FACRmU|mrCqdw:0FADRm", - - rdtsc_0 = "0F31", -- P1+ - cpuid_0 = "0FA2", -- P1+ - - -- floating point ops - fst_1 = "ff:DDD0r|xd:D92m|xq:nDD2m", - fstp_1 = "ff:DDD8r|xd:D93m|xq:nDD3m|xt:DB7m", - fld_1 = "ff:D9C0r|xd:D90m|xq:nDD0m|xt:DB5m", - - fpop_0 = "DDD8", -- Alias for fstp st0. - - fist_1 = "xw:nDF2m|xd:DB2m", - fistp_1 = "xw:nDF3m|xd:DB3m|xq:nDF7m", - fild_1 = "xw:nDF0m|xd:DB0m|xq:nDF5m", - - fxch_0 = "D9C9", - fxch_1 = "ff:D9C8r", - fxch_2 = "fFf:D9C8r|Fff:D9C8R", - - fucom_1 = "ff:DDE0r", - fucom_2 = "Fff:DDE0R", - fucomp_1 = "ff:DDE8r", - fucomp_2 = "Fff:DDE8R", - fucomi_1 = "ff:DBE8r", -- P6+ - fucomi_2 = "Fff:DBE8R", -- P6+ - fucomip_1 = "ff:DFE8r", -- P6+ - fucomip_2 = "Fff:DFE8R", -- P6+ - fcomi_1 = "ff:DBF0r", -- P6+ - fcomi_2 = "Fff:DBF0R", -- P6+ - fcomip_1 = "ff:DFF0r", -- P6+ - fcomip_2 = "Fff:DFF0R", -- P6+ - fucompp_0 = "DAE9", - fcompp_0 = "DED9", - - fldenv_1 = "x.:D94m", - fnstenv_1 = "x.:D96m", - fstenv_1 = "x.:9BD96m", - fldcw_1 = "xw:nD95m", - fstcw_1 = "xw:n9BD97m", - fnstcw_1 = "xw:nD97m", - fstsw_1 = "Rw:n9BDFE0|xw:n9BDD7m", - fnstsw_1 = "Rw:nDFE0|xw:nDD7m", - fclex_0 = "9BDBE2", - fnclex_0 = "DBE2", - - fnop_0 = "D9D0", - -- D9D1-D9DF: unassigned - - fchs_0 = "D9E0", - fabs_0 = "D9E1", - -- D9E2: unassigned - -- D9E3: unassigned - ftst_0 = "D9E4", - fxam_0 = "D9E5", - -- D9E6: unassigned - -- D9E7: unassigned - fld1_0 = "D9E8", - fldl2t_0 = "D9E9", - fldl2e_0 = "D9EA", - fldpi_0 = "D9EB", - fldlg2_0 = "D9EC", - fldln2_0 = "D9ED", - fldz_0 = "D9EE", - -- D9EF: unassigned - - f2xm1_0 = "D9F0", - fyl2x_0 = "D9F1", - fptan_0 = "D9F2", - fpatan_0 = "D9F3", - fxtract_0 = "D9F4", - fprem1_0 = "D9F5", - fdecstp_0 = "D9F6", - fincstp_0 = "D9F7", - fprem_0 = "D9F8", - fyl2xp1_0 = "D9F9", - fsqrt_0 = "D9FA", - fsincos_0 = "D9FB", - frndint_0 = "D9FC", - fscale_0 = "D9FD", - fsin_0 = "D9FE", - fcos_0 = "D9FF", - - -- SSE, SSE2 - andnpd_2 = "rmo:660F55rM", - andnps_2 = "rmo:0F55rM", - andpd_2 = "rmo:660F54rM", - andps_2 = "rmo:0F54rM", - clflush_1 = "x.:0FAE7m", - cmppd_3 = "rmio:660FC2rMU", - cmpps_3 = "rmio:0FC2rMU", - cmpsd_3 = "rrio:F20FC2rMU|rxi/oq:", - cmpss_3 = "rrio:F30FC2rMU|rxi/od:", - comisd_2 = "rro:660F2FrM|rx/oq:", - comiss_2 = "rro:0F2FrM|rx/od:", - cvtdq2pd_2 = "rro:F30FE6rM|rx/oq:", - cvtdq2ps_2 = "rmo:0F5BrM", - cvtpd2dq_2 = "rmo:F20FE6rM", - cvtpd2ps_2 = "rmo:660F5ArM", - cvtpi2pd_2 = "rx/oq:660F2ArM", - cvtpi2ps_2 = "rx/oq:0F2ArM", - cvtps2dq_2 = "rmo:660F5BrM", - cvtps2pd_2 = "rro:0F5ArM|rx/oq:", - cvtsd2si_2 = "rr/do:F20F2DrM|rr/qo:|rx/dq:|rxq:", - cvtsd2ss_2 = "rro:F20F5ArM|rx/oq:", - cvtsi2sd_2 = "rm/od:F20F2ArM|rm/oq:F20F2ArXM", - cvtsi2ss_2 = "rm/od:F30F2ArM|rm/oq:F30F2ArXM", - cvtss2sd_2 = "rro:F30F5ArM|rx/od:", - cvtss2si_2 = "rr/do:F20F2CrM|rr/qo:|rxd:|rx/qd:", - cvttpd2dq_2 = "rmo:660FE6rM", - cvttps2dq_2 = "rmo:F30F5BrM", - cvttsd2si_2 = "rr/do:F20F2CrM|rr/qo:|rx/dq:|rxq:", - cvttss2si_2 = "rr/do:F30F2CrM|rr/qo:|rxd:|rx/qd:", - fxsave_1 = "x.:0FAE0m", - fxrstor_1 = "x.:0FAE1m", - ldmxcsr_1 = "xd:0FAE2m", - lfence_0 = "0FAEE8", - maskmovdqu_2 = "rro:660FF7rM", - mfence_0 = "0FAEF0", - movapd_2 = "rmo:660F28rM|mro:660F29Rm", - movaps_2 = "rmo:0F28rM|mro:0F29Rm", - movd_2 = "rm/od:660F6ErM|rm/oq:660F6ErXM|mr/do:660F7ERm|mr/qo:", - movdqa_2 = "rmo:660F6FrM|mro:660F7FRm", - movdqu_2 = "rmo:F30F6FrM|mro:F30F7FRm", - movhlps_2 = "rro:0F12rM", - movhpd_2 = "rx/oq:660F16rM|xr/qo:n660F17Rm", - movhps_2 = "rx/oq:0F16rM|xr/qo:n0F17Rm", - movlhps_2 = "rro:0F16rM", - movlpd_2 = "rx/oq:660F12rM|xr/qo:n660F13Rm", - movlps_2 = "rx/oq:0F12rM|xr/qo:n0F13Rm", - movmskpd_2 = "rr/do:660F50rM", - movmskps_2 = "rr/do:0F50rM", - movntdq_2 = "xro:660FE7Rm", - movnti_2 = "xrqd:0FC3Rm", - movntpd_2 = "xro:660F2BRm", - movntps_2 = "xro:0F2BRm", - movq_2 = "rro:F30F7ErM|rx/oq:|xr/qo:n660FD6Rm", - movsd_2 = "rro:F20F10rM|rx/oq:|xr/qo:nF20F11Rm", - movss_2 = "rro:F30F10rM|rx/od:|xr/do:F30F11Rm", - movupd_2 = "rmo:660F10rM|mro:660F11Rm", - movups_2 = "rmo:0F10rM|mro:0F11Rm", - orpd_2 = "rmo:660F56rM", - orps_2 = "rmo:0F56rM", - packssdw_2 = "rmo:660F6BrM", - packsswb_2 = "rmo:660F63rM", - packuswb_2 = "rmo:660F67rM", - paddb_2 = "rmo:660FFCrM", - paddd_2 = "rmo:660FFErM", - paddq_2 = "rmo:660FD4rM", - paddsb_2 = "rmo:660FECrM", - paddsw_2 = "rmo:660FEDrM", - paddusb_2 = "rmo:660FDCrM", - paddusw_2 = "rmo:660FDDrM", - paddw_2 = "rmo:660FFDrM", - pand_2 = "rmo:660FDBrM", - pandn_2 = "rmo:660FDFrM", - pause_0 = "F390", - pavgb_2 = "rmo:660FE0rM", - pavgw_2 = "rmo:660FE3rM", - pcmpeqb_2 = "rmo:660F74rM", - pcmpeqd_2 = "rmo:660F76rM", - pcmpeqw_2 = "rmo:660F75rM", - pcmpgtb_2 = "rmo:660F64rM", - pcmpgtd_2 = "rmo:660F66rM", - pcmpgtw_2 = "rmo:660F65rM", - pextrw_3 = "rri/do:660FC5rMU|xri/wo:660F3A15nrMU", -- Mem op: SSE4.1 only. - pinsrw_3 = "rri/od:660FC4rMU|rxi/ow:", - pmaddwd_2 = "rmo:660FF5rM", - pmaxsw_2 = "rmo:660FEErM", - pmaxub_2 = "rmo:660FDErM", - pminsw_2 = "rmo:660FEArM", - pminub_2 = "rmo:660FDArM", - pmovmskb_2 = "rr/do:660FD7rM", - pmulhuw_2 = "rmo:660FE4rM", - pmulhw_2 = "rmo:660FE5rM", - pmullw_2 = "rmo:660FD5rM", - pmuludq_2 = "rmo:660FF4rM", - por_2 = "rmo:660FEBrM", - prefetchnta_1 = "xb:n0F180m", - prefetcht0_1 = "xb:n0F181m", - prefetcht1_1 = "xb:n0F182m", - prefetcht2_1 = "xb:n0F183m", - psadbw_2 = "rmo:660FF6rM", - pshufd_3 = "rmio:660F70rMU", - pshufhw_3 = "rmio:F30F70rMU", - pshuflw_3 = "rmio:F20F70rMU", - pslld_2 = "rmo:660FF2rM|rio:660F726mU", - pslldq_2 = "rio:660F737mU", - psllq_2 = "rmo:660FF3rM|rio:660F736mU", - psllw_2 = "rmo:660FF1rM|rio:660F716mU", - psrad_2 = "rmo:660FE2rM|rio:660F724mU", - psraw_2 = "rmo:660FE1rM|rio:660F714mU", - psrld_2 = "rmo:660FD2rM|rio:660F722mU", - psrldq_2 = "rio:660F733mU", - psrlq_2 = "rmo:660FD3rM|rio:660F732mU", - psrlw_2 = "rmo:660FD1rM|rio:660F712mU", - psubb_2 = "rmo:660FF8rM", - psubd_2 = "rmo:660FFArM", - psubq_2 = "rmo:660FFBrM", - psubsb_2 = "rmo:660FE8rM", - psubsw_2 = "rmo:660FE9rM", - psubusb_2 = "rmo:660FD8rM", - psubusw_2 = "rmo:660FD9rM", - psubw_2 = "rmo:660FF9rM", - punpckhbw_2 = "rmo:660F68rM", - punpckhdq_2 = "rmo:660F6ArM", - punpckhqdq_2 = "rmo:660F6DrM", - punpckhwd_2 = "rmo:660F69rM", - punpcklbw_2 = "rmo:660F60rM", - punpckldq_2 = "rmo:660F62rM", - punpcklqdq_2 = "rmo:660F6CrM", - punpcklwd_2 = "rmo:660F61rM", - pxor_2 = "rmo:660FEFrM", - rcpps_2 = "rmo:0F53rM", - rcpss_2 = "rro:F30F53rM|rx/od:", - rsqrtps_2 = "rmo:0F52rM", - rsqrtss_2 = "rmo:F30F52rM", - sfence_0 = "0FAEF8", - shufpd_3 = "rmio:660FC6rMU", - shufps_3 = "rmio:0FC6rMU", - stmxcsr_1 = "xd:0FAE3m", - ucomisd_2 = "rro:660F2ErM|rx/oq:", - ucomiss_2 = "rro:0F2ErM|rx/od:", - unpckhpd_2 = "rmo:660F15rM", - unpckhps_2 = "rmo:0F15rM", - unpcklpd_2 = "rmo:660F14rM", - unpcklps_2 = "rmo:0F14rM", - xorpd_2 = "rmo:660F57rM", - xorps_2 = "rmo:0F57rM", - - -- SSE3 ops - fisttp_1 = "xw:nDF1m|xd:DB1m|xq:nDD1m", - addsubpd_2 = "rmo:660FD0rM", - addsubps_2 = "rmo:F20FD0rM", - haddpd_2 = "rmo:660F7CrM", - haddps_2 = "rmo:F20F7CrM", - hsubpd_2 = "rmo:660F7DrM", - hsubps_2 = "rmo:F20F7DrM", - lddqu_2 = "rxo:F20FF0rM", - movddup_2 = "rmo:F20F12rM", - movshdup_2 = "rmo:F30F16rM", - movsldup_2 = "rmo:F30F12rM", - - -- SSSE3 ops - pabsb_2 = "rmo:660F381CrM", - pabsd_2 = "rmo:660F381ErM", - pabsw_2 = "rmo:660F381DrM", - palignr_3 = "rmio:660F3A0FrMU", - phaddd_2 = "rmo:660F3802rM", - phaddsw_2 = "rmo:660F3803rM", - phaddw_2 = "rmo:660F3801rM", - phsubd_2 = "rmo:660F3806rM", - phsubsw_2 = "rmo:660F3807rM", - phsubw_2 = "rmo:660F3805rM", - pmaddubsw_2 = "rmo:660F3804rM", - pmulhrsw_2 = "rmo:660F380BrM", - pshufb_2 = "rmo:660F3800rM", - psignb_2 = "rmo:660F3808rM", - psignd_2 = "rmo:660F380ArM", - psignw_2 = "rmo:660F3809rM", - - -- SSE4.1 ops - blendpd_3 = "rmio:660F3A0DrMU", - blendps_3 = "rmio:660F3A0CrMU", - blendvpd_3 = "rmRo:660F3815rM", - blendvps_3 = "rmRo:660F3814rM", - dppd_3 = "rmio:660F3A41rMU", - dpps_3 = "rmio:660F3A40rMU", - extractps_3 = "mri/do:660F3A17RmU|rri/qo:660F3A17RXmU", - insertps_3 = "rrio:660F3A41rMU|rxi/od:", - movntdqa_2 = "rmo:660F382ArM", - mpsadbw_3 = "rmio:660F3A42rMU", - packusdw_2 = "rmo:660F382BrM", - pblendvb_3 = "rmRo:660F3810rM", - pblendw_3 = "rmio:660F3A0ErMU", - pcmpeqq_2 = "rmo:660F3829rM", - pextrb_3 = "rri/do:660F3A14nRmU|rri/qo:|xri/bo:", - pextrd_3 = "mri/do:660F3A16RmU", - pextrq_3 = "mri/qo:660F3A16RmU", - -- pextrw is SSE2, mem operand is SSE4.1 only - phminposuw_2 = "rmo:660F3841rM", - pinsrb_3 = "rri/od:660F3A20nrMU|rxi/ob:", - pinsrd_3 = "rmi/od:660F3A22rMU", - pinsrq_3 = "rmi/oq:660F3A22rXMU", - pmaxsb_2 = "rmo:660F383CrM", - pmaxsd_2 = "rmo:660F383DrM", - pmaxud_2 = "rmo:660F383FrM", - pmaxuw_2 = "rmo:660F383ErM", - pminsb_2 = "rmo:660F3838rM", - pminsd_2 = "rmo:660F3839rM", - pminud_2 = "rmo:660F383BrM", - pminuw_2 = "rmo:660F383ArM", - pmovsxbd_2 = "rro:660F3821rM|rx/od:", - pmovsxbq_2 = "rro:660F3822rM|rx/ow:", - pmovsxbw_2 = "rro:660F3820rM|rx/oq:", - pmovsxdq_2 = "rro:660F3825rM|rx/oq:", - pmovsxwd_2 = "rro:660F3823rM|rx/oq:", - pmovsxwq_2 = "rro:660F3824rM|rx/od:", - pmovzxbd_2 = "rro:660F3831rM|rx/od:", - pmovzxbq_2 = "rro:660F3832rM|rx/ow:", - pmovzxbw_2 = "rro:660F3830rM|rx/oq:", - pmovzxdq_2 = "rro:660F3835rM|rx/oq:", - pmovzxwd_2 = "rro:660F3833rM|rx/oq:", - pmovzxwq_2 = "rro:660F3834rM|rx/od:", - pmuldq_2 = "rmo:660F3828rM", - pmulld_2 = "rmo:660F3840rM", - ptest_2 = "rmo:660F3817rM", - roundpd_3 = "rmio:660F3A09rMU", - roundps_3 = "rmio:660F3A08rMU", - roundsd_3 = "rrio:660F3A0BrMU|rxi/oq:", - roundss_3 = "rrio:660F3A0ArMU|rxi/od:", - - -- SSE4.2 ops - crc32_2 = "rmqd:F20F38F1rM|rm/dw:66F20F38F1rM|rm/db:F20F38F0rM|rm/qb:", - pcmpestri_3 = "rmio:660F3A61rMU", - pcmpestrm_3 = "rmio:660F3A60rMU", - pcmpgtq_2 = "rmo:660F3837rM", - pcmpistri_3 = "rmio:660F3A63rMU", - pcmpistrm_3 = "rmio:660F3A62rMU", - popcnt_2 = "rmqdw:F30FB8rM", - - -- SSE4a - extrq_2 = "rro:660F79rM", - extrq_3 = "riio:660F780mUU", - insertq_2 = "rro:F20F79rM", - insertq_4 = "rriio:F20F78rMUU", - lzcnt_2 = "rmqdw:F30FBDrM", - movntsd_2 = "xr/qo:nF20F2BRm", - movntss_2 = "xr/do:F30F2BRm", - -- popcnt is also in SSE4.2 -} - ------------------------------------------------------------------------------- - --- Arithmetic ops. -for name,n in pairs{ add = 0, ["or"] = 1, adc = 2, sbb = 3, - ["and"] = 4, sub = 5, xor = 6, cmp = 7 } do - local n8 = shl(n, 3) - map_op[name.."_2"] = format( - "mr:%02XRm|rm:%02XrM|mI1qdw:81%XmI|mS1qdw:83%XmS|Ri1qdwb:%02Xri|mi1qdwb:81%Xmi", - 1+n8, 3+n8, n, n, 5+n8, n) -end - --- Shift ops. -for name,n in pairs{ rol = 0, ror = 1, rcl = 2, rcr = 3, - shl = 4, shr = 5, sar = 7, sal = 4 } do - map_op[name.."_2"] = format("m1:D1%Xm|mC1qdwb:D3%Xm|mi:C1%XmU", n, n, n) -end - --- Conditional ops. -for cc,n in pairs(map_cc) do - map_op["j"..cc.."_1"] = format("J.:n0F8%XJ", n) -- short: 7%X - map_op["set"..cc.."_1"] = format("mb:n0F9%X2m", n) - map_op["cmov"..cc.."_2"] = format("rmqdw:0F4%XrM", n) -- P6+ -end - --- FP arithmetic ops. -for name,n in pairs{ add = 0, mul = 1, com = 2, comp = 3, - sub = 4, subr = 5, div = 6, divr = 7 } do - local nc = 0xc0 + shl(n, 3) - local nr = nc + (n < 4 and 0 or (n % 2 == 0 and 8 or -8)) - local fn = "f"..name - map_op[fn.."_1"] = format("ff:D8%02Xr|xd:D8%Xm|xq:nDC%Xm", nc, n, n) - if n == 2 or n == 3 then - map_op[fn.."_2"] = format("Fff:D8%02XR|Fx2d:D8%XM|Fx2q:nDC%XM", nc, n, n) - else - map_op[fn.."_2"] = format("Fff:D8%02XR|fFf:DC%02Xr|Fx2d:D8%XM|Fx2q:nDC%XM", nc, nr, n, n) - map_op[fn.."p_1"] = format("ff:DE%02Xr", nr) - map_op[fn.."p_2"] = format("fFf:DE%02Xr", nr) - end - map_op["fi"..name.."_1"] = format("xd:DA%Xm|xw:nDE%Xm", n, n) -end - --- FP conditional moves. -for cc,n in pairs{ b=0, e=1, be=2, u=3, nb=4, ne=5, nbe=6, nu=7 } do - local nc = 0xdac0 + shl(band(n, 3), 3) + shl(band(n, 4), 6) - map_op["fcmov"..cc.."_1"] = format("ff:%04Xr", nc) -- P6+ - map_op["fcmov"..cc.."_2"] = format("Fff:%04XR", nc) -- P6+ -end - --- SSE FP arithmetic ops. -for name,n in pairs{ sqrt = 1, add = 8, mul = 9, - sub = 12, min = 13, div = 14, max = 15 } do - map_op[name.."ps_2"] = format("rmo:0F5%XrM", n) - map_op[name.."ss_2"] = format("rro:F30F5%XrM|rx/od:", n) - map_op[name.."pd_2"] = format("rmo:660F5%XrM", n) - map_op[name.."sd_2"] = format("rro:F20F5%XrM|rx/oq:", n) -end - ------------------------------------------------------------------------------- - --- Process pattern string. -local function dopattern(pat, args, sz, op, needrex) - local digit, addin - local opcode = 0 - local szov = sz - local narg = 1 - local rex = 0 - - -- Limit number of section buffer positions used by a single dasm_put(). - -- A single opcode needs a maximum of 5 positions. - if secpos+5 > maxsecpos then wflush() end - - -- Process each character. - for c in gmatch(pat.."|", ".") do - if match(c, "%x") then -- Hex digit. - digit = byte(c) - 48 - if digit > 48 then digit = digit - 39 - elseif digit > 16 then digit = digit - 7 end - opcode = opcode*16 + digit - addin = nil - elseif c == "n" then -- Disable operand size mods for opcode. - szov = nil - elseif c == "X" then -- Force REX.W. - rex = 8 - elseif c == "r" then -- Merge 1st operand regno. into opcode. - addin = args[1]; opcode = opcode + (addin.reg % 8) - if narg < 2 then narg = 2 end - elseif c == "R" then -- Merge 2nd operand regno. into opcode. - addin = args[2]; opcode = opcode + (addin.reg % 8) - narg = 3 - elseif c == "m" or c == "M" then -- Encode ModRM/SIB. - local s - if addin then - s = addin.reg - opcode = opcode - band(s, 7) -- Undo regno opcode merge. - else - s = band(opcode, 15) -- Undo last digit. - opcode = shr(opcode, 4) - end - local nn = c == "m" and 1 or 2 - local t = args[nn] - if narg <= nn then narg = nn + 1 end - if szov == "q" and rex == 0 then rex = rex + 8 end - if t.reg and t.reg > 7 then rex = rex + 1 end - if t.xreg and t.xreg > 7 then rex = rex + 2 end - if s > 7 then rex = rex + 4 end - if needrex then rex = rex + 16 end - wputop(szov, opcode, rex); opcode = nil - local imark = sub(pat, -1) -- Force a mark (ugly). - -- Put ModRM/SIB with regno/last digit as spare. - wputmrmsib(t, imark, s, addin and addin.vreg) - addin = nil - else - if opcode then -- Flush opcode. - if szov == "q" and rex == 0 then rex = rex + 8 end - if needrex then rex = rex + 16 end - if addin and addin.reg == -1 then - wputop(szov, opcode - 7, rex) - waction("VREG", addin.vreg); wputxb(0) - else - if addin and addin.reg > 7 then rex = rex + 1 end - wputop(szov, opcode, rex) - end - opcode = nil - end - if c == "|" then break end - if c == "o" then -- Offset (pure 32 bit displacement). - wputdarg(args[1].disp); if narg < 2 then narg = 2 end - elseif c == "O" then - wputdarg(args[2].disp); narg = 3 - else - -- Anything else is an immediate operand. - local a = args[narg] - narg = narg + 1 - local mode, imm = a.mode, a.imm - if mode == "iJ" and not match("iIJ", c) then - werror("bad operand size for label") - end - if c == "S" then - wputsbarg(imm) - elseif c == "U" then - wputbarg(imm) - elseif c == "W" then - wputwarg(imm) - elseif c == "i" or c == "I" then - if mode == "iJ" then - wputlabel("IMM_", imm, 1) - elseif mode == "iI" and c == "I" then - waction(sz == "w" and "IMM_WB" or "IMM_DB", imm) - else - wputszarg(sz, imm) - end - elseif c == "J" then - if mode == "iPJ" then - waction("REL_A", imm) -- !x64 (secpos) - else - wputlabel("REL_", imm, 2) - end - else - werror("bad char `"..c.."' in pattern `"..pat.."' for `"..op.."'") - end - end - end - end -end - ------------------------------------------------------------------------------- - --- Mapping of operand modes to short names. Suppress output with '#'. -local map_modename = { - r = "reg", R = "eax", C = "cl", x = "mem", m = "mrm", i = "imm", - f = "stx", F = "st0", J = "lbl", ["1"] = "1", - I = "#", S = "#", O = "#", -} - --- Return a table/string showing all possible operand modes. -local function templatehelp(template, nparams) - if nparams == 0 then return "" end - local t = {} - for tm in gmatch(template, "[^%|]+") do - local s = map_modename[sub(tm, 1, 1)] - s = s..gsub(sub(tm, 2, nparams), ".", function(c) - return ", "..map_modename[c] - end) - if not match(s, "#") then t[#t+1] = s end - end - return t -end - --- Match operand modes against mode match part of template. -local function matchtm(tm, args) - for i=1,#args do - if not match(args[i].mode, sub(tm, i, i)) then return end - end - return true -end - --- Handle opcodes defined with template strings. -map_op[".template__"] = function(params, template, nparams) - if not params then return templatehelp(template, nparams) end - local args = {} - - -- Zero-operand opcodes have no match part. - if #params == 0 then - dopattern(template, args, "d", params.op, nil) - return - end - - -- Determine common operand size (coerce undefined size) or flag as mixed. - local sz, szmix, needrex - for i,p in ipairs(params) do - args[i] = parseoperand(p) - local nsz = args[i].opsize - if nsz then - if sz and sz ~= nsz then szmix = true else sz = nsz end - end - local nrex = args[i].needrex - if nrex ~= nil then - if needrex == nil then - needrex = nrex - elseif needrex ~= nrex then - werror("bad mix of byte-addressable registers") - end - end - end - - -- Try all match:pattern pairs (separated by '|'). - local gotmatch, lastpat - for tm in gmatch(template, "[^%|]+") do - -- Split off size match (starts after mode match) and pattern string. - local szm, pat = match(tm, "^(.-):(.*)$", #args+1) - if pat == "" then pat = lastpat else lastpat = pat end - if matchtm(tm, args) then - local prefix = sub(szm, 1, 1) - if prefix == "/" then -- Match both operand sizes. - if args[1].opsize == sub(szm, 2, 2) and - args[2].opsize == sub(szm, 3, 3) then - dopattern(pat, args, sz, params.op, needrex) -- Process pattern. - return - end - else -- Match common operand size. - local szp = sz - if szm == "" then szm = x64 and "qdwb" or "dwb" end -- Default sizes. - if prefix == "1" then szp = args[1].opsize; szmix = nil - elseif prefix == "2" then szp = args[2].opsize; szmix = nil end - if not szmix and (prefix == "." or match(szm, szp or "#")) then - dopattern(pat, args, szp, params.op, needrex) -- Process pattern. - return - end - end - gotmatch = true - end - end - - local msg = "bad operand mode" - if gotmatch then - if szmix then - msg = "mixed operand size" - else - msg = sz and "bad operand size" or "missing operand size" - end - end - - werror(msg.." in `"..opmodestr(params.op, args).."'") -end - ------------------------------------------------------------------------------- - --- x64-specific opcode for 64 bit immediates and displacements. -if x64 then - function map_op.mov64_2(params) - if not params then return { "reg, imm", "reg, [disp]", "[disp], reg" } end - if secpos+2 > maxsecpos then wflush() end - local opcode, op64, sz, rex, vreg - local op64 = match(params[1], "^%[%s*(.-)%s*%]$") - if op64 then - local a = parseoperand(params[2]) - if a.mode ~= "rmR" then werror("bad operand mode") end - sz = a.opsize - rex = sz == "q" and 8 or 0 - opcode = 0xa3 - else - op64 = match(params[2], "^%[%s*(.-)%s*%]$") - local a = parseoperand(params[1]) - if op64 then - if a.mode ~= "rmR" then werror("bad operand mode") end - sz = a.opsize - rex = sz == "q" and 8 or 0 - opcode = 0xa1 - else - if sub(a.mode, 1, 1) ~= "r" or a.opsize ~= "q" then - werror("bad operand mode") - end - op64 = params[2] - if a.reg == -1 then - vreg = a.vreg - opcode = 0xb8 - else - opcode = 0xb8 + band(a.reg, 7) - end - rex = a.reg > 7 and 9 or 8 - end - end - wputop(sz, opcode, rex) - if vreg then waction("VREG", vreg); wputxb(0) end - waction("IMM_D", format("(unsigned int)(%s)", op64)) - waction("IMM_D", format("(unsigned int)((%s)>>32)", op64)) - end -end - ------------------------------------------------------------------------------- - --- Pseudo-opcodes for data storage. -local function op_data(params) - if not params then return "imm..." end - local sz = sub(params.op, 2, 2) - if sz == "a" then sz = addrsize end - for _,p in ipairs(params) do - local a = parseoperand(p) - if sub(a.mode, 1, 1) ~= "i" or (a.opsize and a.opsize ~= sz) then - werror("bad mode or size in `"..p.."'") - end - if a.mode == "iJ" then - wputlabel("IMM_", a.imm, 1) - else - wputszarg(sz, a.imm) - end - if secpos+2 > maxsecpos then wflush() end - end -end - -map_op[".byte_*"] = op_data -map_op[".sbyte_*"] = op_data -map_op[".word_*"] = op_data -map_op[".dword_*"] = op_data -map_op[".aword_*"] = op_data - ------------------------------------------------------------------------------- - --- Pseudo-opcode to mark the position where the action list is to be emitted. -map_op[".actionlist_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeactions(out, name) end) -end - --- Pseudo-opcode to mark the position where the global enum is to be emitted. -map_op[".globals_1"] = function(params) - if not params then return "prefix" end - local prefix = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobals(out, prefix) end) -end - --- Pseudo-opcode to mark the position where the global names are to be emitted. -map_op[".globalnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeglobalnames(out, name) end) -end - --- Pseudo-opcode to mark the position where the extern names are to be emitted. -map_op[".externnames_1"] = function(params) - if not params then return "cvar" end - local name = params[1] -- No syntax check. You get to keep the pieces. - wline(function(out) writeexternnames(out, name) end) -end - ------------------------------------------------------------------------------- - --- Label pseudo-opcode (converted from trailing colon form). -map_op[".label_2"] = function(params) - if not params then return "[1-9] | ->global | =>pcexpr [, addr]" end - if secpos+2 > maxsecpos then wflush() end - local a = parseoperand(params[1]) - local mode, imm = a.mode, a.imm - if type(imm) == "number" and (mode == "iJ" or (imm >= 1 and imm <= 9)) then - -- Local label (1: ... 9:) or global label (->global:). - waction("LABEL_LG", nil, 1) - wputxb(imm) - elseif mode == "iJ" then - -- PC label (=>pcexpr:). - waction("LABEL_PC", imm) - else - werror("bad label definition") - end - -- SETLABEL must immediately follow LABEL_LG/LABEL_PC. - local addr = params[2] - if addr then - local a = parseoperand(addr) - if a.mode == "iPJ" then - waction("SETLABEL", a.imm) - else - werror("bad label assignment") - end - end -end -map_op[".label_1"] = map_op[".label_2"] - ------------------------------------------------------------------------------- - --- Alignment pseudo-opcode. -map_op[".align_1"] = function(params) - if not params then return "numpow2" end - if secpos+1 > maxsecpos then wflush() end - local align = tonumber(params[1]) or map_opsizenum[map_opsize[params[1]]] - if align then - local x = align - -- Must be a power of 2 in the range (2 ... 256). - for i=1,8 do - x = x / 2 - if x == 1 then - waction("ALIGN", nil, 1) - wputxb(align-1) -- Action byte is 2**n-1. - return - end - end - end - werror("bad alignment") -end - --- Spacing pseudo-opcode. -map_op[".space_2"] = function(params) - if not params then return "num [, filler]" end - if secpos+1 > maxsecpos then wflush() end - waction("SPACE", params[1]) - local fill = params[2] - if fill then - fill = tonumber(fill) - if not fill or fill < 0 or fill > 255 then werror("bad filler") end - end - wputxb(fill or 0) -end -map_op[".space_1"] = map_op[".space_2"] - ------------------------------------------------------------------------------- - --- Pseudo-opcode for (primitive) type definitions (map to C types). -map_op[".type_3"] = function(params, nparams) - if not params then - return nparams == 2 and "name, ctype" or "name, ctype, reg" - end - local name, ctype, reg = params[1], params[2], params[3] - if not match(name, "^[%a_][%w_]*$") then - werror("bad type name `"..name.."'") - end - local tp = map_type[name] - if tp then - werror("duplicate type `"..name.."'") - end - if reg and not map_reg_valid_base[reg] then - werror("bad base register `"..(map_reg_rev[reg] or reg).."'") - end - -- Add #type to defines. A bit unclean to put it in map_archdef. - map_archdef["#"..name] = "sizeof("..ctype..")" - -- Add new type and emit shortcut define. - local num = ctypenum + 1 - map_type[name] = { - ctype = ctype, - ctypefmt = format("Dt%X(%%s)", num), - reg = reg, - } - wline(format("#define Dt%X(_V) (int)(ptrdiff_t)&(((%s *)0)_V)", num, ctype)) - ctypenum = num -end -map_op[".type_2"] = map_op[".type_3"] - --- Dump type definitions. -local function dumptypes(out, lvl) - local t = {} - for name in pairs(map_type) do t[#t+1] = name end - sort(t) - out:write("Type definitions:\n") - for _,name in ipairs(t) do - local tp = map_type[name] - local reg = tp.reg and map_reg_rev[tp.reg] or "" - out:write(format(" %-20s %-20s %s\n", name, tp.ctype, reg)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Set the current section. -function _M.section(num) - waction("SECTION") - wputxb(num) - wflush(true) -- SECTION is a terminal action. -end - ------------------------------------------------------------------------------- - --- Dump architecture description. -function _M.dumparch(out) - out:write(format("DynASM %s version %s, released %s\n\n", - _info.arch, _info.version, _info.release)) - dumpregs(out) - dumpactions(out) -end - --- Dump all user defined elements. -function _M.dumpdef(out, lvl) - dumptypes(out, lvl) - dumpglobals(out, lvl) - dumpexterns(out, lvl) -end - ------------------------------------------------------------------------------- - --- Pass callbacks from/to the DynASM core. -function _M.passcb(wl, we, wf, ww) - wline, werror, wfatal, wwarn = wl, we, wf, ww - return wflush -end - --- Setup the arch-specific module. -function _M.setup(arch, opt) - g_arch, g_opt = arch, opt -end - --- Merge the core maps and the arch-specific maps. -function _M.mergemaps(map_coreop, map_def) - setmetatable(map_op, { __index = map_coreop }) - setmetatable(map_def, { __index = map_archdef }) - return map_op, map_def -end - -return _M - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua b/src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua deleted file mode 100644 index fffda7513c8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/dynasm/dynasm.lua +++ /dev/null @@ -1,1094 +0,0 @@ ------------------------------------------------------------------------------- --- DynASM. A dynamic assembler for code generation engines. --- Originally designed and implemented for LuaJIT. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- See below for full copyright notice. ------------------------------------------------------------------------------- - --- Application information. -local _info = { - name = "DynASM", - description = "A dynamic assembler for code generation engines", - version = "1.3.0", - vernum = 10300, - release = "2011-05-05", - author = "Mike Pall", - url = "http://luajit.org/dynasm.html", - license = "MIT", - copyright = [[ -Copyright (C) 2005-2015 Mike Pall. All rights reserved. - -Permission is hereby granted, free of charge, to any person obtaining -a copy of this software and associated documentation files (the -"Software"), to deal in the Software without restriction, including -without limitation the rights to use, copy, modify, merge, publish, -distribute, sublicense, and/or sell copies of the Software, and to -permit persons to whom the Software is furnished to do so, subject to -the following conditions: - -The above copyright notice and this permission notice shall be -included in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -[ MIT license: http://www.opensource.org/licenses/mit-license.php ] -]], -} - --- Cache library functions. -local type, pairs, ipairs = type, pairs, ipairs -local pcall, error, assert = pcall, error, assert -local _s = string -local sub, match, gmatch, gsub = _s.sub, _s.match, _s.gmatch, _s.gsub -local format, rep, upper = _s.format, _s.rep, _s.upper -local _t = table -local insert, remove, concat, sort = _t.insert, _t.remove, _t.concat, _t.sort -local exit = os.exit -local io = io -local stdin, stdout, stderr = io.stdin, io.stdout, io.stderr - ------------------------------------------------------------------------------- - --- Program options. -local g_opt = {} - --- Global state for current file. -local g_fname, g_curline, g_indent, g_lineno, g_synclineno, g_arch -local g_errcount = 0 - --- Write buffer for output file. -local g_wbuffer, g_capbuffer - ------------------------------------------------------------------------------- - --- Write an output line (or callback function) to the buffer. -local function wline(line, needindent) - local buf = g_capbuffer or g_wbuffer - buf[#buf+1] = needindent and g_indent..line or line - g_synclineno = g_synclineno + 1 -end - --- Write assembler line as a comment, if requestd. -local function wcomment(aline) - if g_opt.comment then - wline(g_opt.comment..aline..g_opt.endcomment, true) - end -end - --- Resync CPP line numbers. -local function wsync() - if g_synclineno ~= g_lineno and g_opt.cpp then - wline("#line "..g_lineno..' "'..g_fname..'"') - g_synclineno = g_lineno - end -end - --- Dummy action flush function. Replaced with arch-specific function later. -local function wflush(term) -end - --- Dump all buffered output lines. -local function wdumplines(out, buf) - for _,line in ipairs(buf) do - if type(line) == "string" then - assert(out:write(line, "\n")) - else - -- Special callback to dynamically insert lines after end of processing. - line(out) - end - end -end - ------------------------------------------------------------------------------- - --- Emit an error. Processing continues with next statement. -local function werror(msg) - error(format("%s:%s: error: %s:\n%s", g_fname, g_lineno, msg, g_curline), 0) -end - --- Emit a fatal error. Processing stops. -local function wfatal(msg) - g_errcount = "fatal" - werror(msg) -end - --- Print a warning. Processing continues. -local function wwarn(msg) - stderr:write(format("%s:%s: warning: %s:\n%s\n", - g_fname, g_lineno, msg, g_curline)) -end - --- Print caught error message. But suppress excessive errors. -local function wprinterr(...) - if type(g_errcount) == "number" then - -- Regular error. - g_errcount = g_errcount + 1 - if g_errcount < 21 then -- Seems to be a reasonable limit. - stderr:write(...) - elseif g_errcount == 21 then - stderr:write(g_fname, - ":*: warning: too many errors (suppressed further messages).\n") - end - else - -- Fatal error. - stderr:write(...) - return true -- Stop processing. - end -end - ------------------------------------------------------------------------------- - --- Map holding all option handlers. -local opt_map = {} -local opt_current - --- Print error and exit with error status. -local function opterror(...) - stderr:write("dynasm.lua: ERROR: ", ...) - stderr:write("\n") - exit(1) -end - --- Get option parameter. -local function optparam(args) - local argn = args.argn - local p = args[argn] - if not p then - opterror("missing parameter for option `", opt_current, "'.") - end - args.argn = argn + 1 - return p -end - ------------------------------------------------------------------------------- - --- Core pseudo-opcodes. -local map_coreop = {} --- Dummy opcode map. Replaced by arch-specific map. -local map_op = {} - --- Forward declarations. -local dostmt -local readfile - ------------------------------------------------------------------------------- - --- Map for defines (initially empty, chains to arch-specific map). -local map_def = {} - --- Pseudo-opcode to define a substitution. -map_coreop[".define_2"] = function(params, nparams) - if not params then return nparams == 1 and "name" or "name, subst" end - local name, def = params[1], params[2] or "1" - if not match(name, "^[%a_][%w_]*$") then werror("bad or duplicate define") end - map_def[name] = def -end -map_coreop[".define_1"] = map_coreop[".define_2"] - --- Define a substitution on the command line. -function opt_map.D(args) - local namesubst = optparam(args) - local name, subst = match(namesubst, "^([%a_][%w_]*)=(.*)$") - if name then - map_def[name] = subst - elseif match(namesubst, "^[%a_][%w_]*$") then - map_def[namesubst] = "1" - else - opterror("bad define") - end -end - --- Undefine a substitution on the command line. -function opt_map.U(args) - local name = optparam(args) - if match(name, "^[%a_][%w_]*$") then - map_def[name] = nil - else - opterror("bad define") - end -end - --- Helper for definesubst. -local gotsubst - -local function definesubst_one(word) - local subst = map_def[word] - if subst then gotsubst = word; return subst else return word end -end - --- Iteratively substitute defines. -local function definesubst(stmt) - -- Limit number of iterations. - for i=1,100 do - gotsubst = false - stmt = gsub(stmt, "#?[%w_]+", definesubst_one) - if not gotsubst then break end - end - if gotsubst then wfatal("recursive define involving `"..gotsubst.."'") end - return stmt -end - --- Dump all defines. -local function dumpdefines(out, lvl) - local t = {} - for name in pairs(map_def) do - t[#t+1] = name - end - sort(t) - out:write("Defines:\n") - for _,name in ipairs(t) do - local subst = map_def[name] - if g_arch then subst = g_arch.revdef(subst) end - out:write(format(" %-20s %s\n", name, subst)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Support variables for conditional assembly. -local condlevel = 0 -local condstack = {} - --- Evaluate condition with a Lua expression. Substitutions already performed. -local function cond_eval(cond) - local func, err - if setfenv then - func, err = loadstring("return "..cond, "=expr") - else - -- No globals. All unknown identifiers evaluate to nil. - func, err = load("return "..cond, "=expr", "t", {}) - end - if func then - if setfenv then - setfenv(func, {}) -- No globals. All unknown identifiers evaluate to nil. - end - local ok, res = pcall(func) - if ok then - if res == 0 then return false end -- Oh well. - return not not res - end - err = res - end - wfatal("bad condition: "..err) -end - --- Skip statements until next conditional pseudo-opcode at the same level. -local function stmtskip() - local dostmt_save = dostmt - local lvl = 0 - dostmt = function(stmt) - local op = match(stmt, "^%s*(%S+)") - if op == ".if" then - lvl = lvl + 1 - elseif lvl ~= 0 then - if op == ".endif" then lvl = lvl - 1 end - elseif op == ".elif" or op == ".else" or op == ".endif" then - dostmt = dostmt_save - dostmt(stmt) - end - end -end - --- Pseudo-opcodes for conditional assembly. -map_coreop[".if_1"] = function(params) - if not params then return "condition" end - local lvl = condlevel + 1 - local res = cond_eval(params[1]) - condlevel = lvl - condstack[lvl] = res - if not res then stmtskip() end -end - -map_coreop[".elif_1"] = function(params) - if not params then return "condition" end - if condlevel == 0 then wfatal(".elif without .if") end - local lvl = condlevel - local res = condstack[lvl] - if res then - if res == "else" then wfatal(".elif after .else") end - else - res = cond_eval(params[1]) - if res then - condstack[lvl] = res - return - end - end - stmtskip() -end - -map_coreop[".else_0"] = function(params) - if condlevel == 0 then wfatal(".else without .if") end - local lvl = condlevel - local res = condstack[lvl] - condstack[lvl] = "else" - if res then - if res == "else" then wfatal(".else after .else") end - stmtskip() - end -end - -map_coreop[".endif_0"] = function(params) - local lvl = condlevel - if lvl == 0 then wfatal(".endif without .if") end - condlevel = lvl - 1 -end - --- Check for unfinished conditionals. -local function checkconds() - if g_errcount ~= "fatal" and condlevel ~= 0 then - wprinterr(g_fname, ":*: error: unbalanced conditional\n") - end -end - ------------------------------------------------------------------------------- - --- Search for a file in the given path and open it for reading. -local function pathopen(path, name) - local dirsep = package and match(package.path, "\\") and "\\" or "/" - for _,p in ipairs(path) do - local fullname = p == "" and name or p..dirsep..name - local fin = io.open(fullname, "r") - if fin then - g_fname = fullname - return fin - end - end -end - --- Include a file. -map_coreop[".include_1"] = function(params) - if not params then return "filename" end - local name = params[1] - -- Save state. Ugly, I know. but upvalues are fast. - local gf, gl, gcl, gi = g_fname, g_lineno, g_curline, g_indent - -- Read the included file. - local fatal = readfile(pathopen(g_opt.include, name) or - wfatal("include file `"..name.."' not found")) - -- Restore state. - g_synclineno = -1 - g_fname, g_lineno, g_curline, g_indent = gf, gl, gcl, gi - if fatal then wfatal("in include file") end -end - --- Make .include and conditionals initially available, too. -map_op[".include_1"] = map_coreop[".include_1"] -map_op[".if_1"] = map_coreop[".if_1"] -map_op[".elif_1"] = map_coreop[".elif_1"] -map_op[".else_0"] = map_coreop[".else_0"] -map_op[".endif_0"] = map_coreop[".endif_0"] - ------------------------------------------------------------------------------- - --- Support variables for macros. -local mac_capture, mac_lineno, mac_name -local mac_active = {} -local mac_list = {} - --- Pseudo-opcode to define a macro. -map_coreop[".macro_*"] = function(mparams) - if not mparams then return "name [, params...]" end - -- Split off and validate macro name. - local name = remove(mparams, 1) - if not name then werror("missing macro name") end - if not (match(name, "^[%a_][%w_%.]*$") or match(name, "^%.[%w_%.]*$")) then - wfatal("bad macro name `"..name.."'") - end - -- Validate macro parameter names. - local mdup = {} - for _,mp in ipairs(mparams) do - if not match(mp, "^[%a_][%w_]*$") then - wfatal("bad macro parameter name `"..mp.."'") - end - if mdup[mp] then wfatal("duplicate macro parameter name `"..mp.."'") end - mdup[mp] = true - end - -- Check for duplicate or recursive macro definitions. - local opname = name.."_"..#mparams - if map_op[opname] or map_op[name.."_*"] then - wfatal("duplicate macro `"..name.."' ("..#mparams.." parameters)") - end - if mac_capture then wfatal("recursive macro definition") end - - -- Enable statement capture. - local lines = {} - mac_lineno = g_lineno - mac_name = name - mac_capture = function(stmt) -- Statement capture function. - -- Stop macro definition with .endmacro pseudo-opcode. - if not match(stmt, "^%s*.endmacro%s*$") then - lines[#lines+1] = stmt - return - end - mac_capture = nil - mac_lineno = nil - mac_name = nil - mac_list[#mac_list+1] = opname - -- Add macro-op definition. - map_op[opname] = function(params) - if not params then return mparams, lines end - -- Protect against recursive macro invocation. - if mac_active[opname] then wfatal("recursive macro invocation") end - mac_active[opname] = true - -- Setup substitution map. - local subst = {} - for i,mp in ipairs(mparams) do subst[mp] = params[i] end - local mcom - if g_opt.maccomment and g_opt.comment then - mcom = " MACRO "..name.." ("..#mparams..")" - wcomment("{"..mcom) - end - -- Loop through all captured statements - for _,stmt in ipairs(lines) do - -- Substitute macro parameters. - local st = gsub(stmt, "[%w_]+", subst) - st = definesubst(st) - st = gsub(st, "%s*%.%.%s*", "") -- Token paste a..b. - if mcom and sub(st, 1, 1) ~= "|" then wcomment(st) end - -- Emit statement. Use a protected call for better diagnostics. - local ok, err = pcall(dostmt, st) - if not ok then - -- Add the captured statement to the error. - wprinterr(err, "\n", g_indent, "| ", stmt, - "\t[MACRO ", name, " (", #mparams, ")]\n") - end - end - if mcom then wcomment("}"..mcom) end - mac_active[opname] = nil - end - end -end - --- An .endmacro pseudo-opcode outside of a macro definition is an error. -map_coreop[".endmacro_0"] = function(params) - wfatal(".endmacro without .macro") -end - --- Dump all macros and their contents (with -PP only). -local function dumpmacros(out, lvl) - sort(mac_list) - out:write("Macros:\n") - for _,opname in ipairs(mac_list) do - local name = sub(opname, 1, -3) - local params, lines = map_op[opname]() - out:write(format(" %-20s %s\n", name, concat(params, ", "))) - if lvl > 1 then - for _,line in ipairs(lines) do - out:write(" |", line, "\n") - end - out:write("\n") - end - end - out:write("\n") -end - --- Check for unfinished macro definitions. -local function checkmacros() - if mac_capture then - wprinterr(g_fname, ":", mac_lineno, - ": error: unfinished .macro `", mac_name ,"'\n") - end -end - ------------------------------------------------------------------------------- - --- Support variables for captures. -local cap_lineno, cap_name -local cap_buffers = {} -local cap_used = {} - --- Start a capture. -map_coreop[".capture_1"] = function(params) - if not params then return "name" end - wflush() - local name = params[1] - if not match(name, "^[%a_][%w_]*$") then - wfatal("bad capture name `"..name.."'") - end - if cap_name then - wfatal("already capturing to `"..cap_name.."' since line "..cap_lineno) - end - cap_name = name - cap_lineno = g_lineno - -- Create or continue a capture buffer and start the output line capture. - local buf = cap_buffers[name] - if not buf then buf = {}; cap_buffers[name] = buf end - g_capbuffer = buf - g_synclineno = 0 -end - --- Stop a capture. -map_coreop[".endcapture_0"] = function(params) - wflush() - if not cap_name then wfatal(".endcapture without a valid .capture") end - cap_name = nil - cap_lineno = nil - g_capbuffer = nil - g_synclineno = 0 -end - --- Dump a capture buffer. -map_coreop[".dumpcapture_1"] = function(params) - if not params then return "name" end - wflush() - local name = params[1] - if not match(name, "^[%a_][%w_]*$") then - wfatal("bad capture name `"..name.."'") - end - cap_used[name] = true - wline(function(out) - local buf = cap_buffers[name] - if buf then wdumplines(out, buf) end - end) - g_synclineno = 0 -end - --- Dump all captures and their buffers (with -PP only). -local function dumpcaptures(out, lvl) - out:write("Captures:\n") - for name,buf in pairs(cap_buffers) do - out:write(format(" %-20s %4s)\n", name, "("..#buf)) - if lvl > 1 then - local bar = rep("=", 76) - out:write(" ", bar, "\n") - for _,line in ipairs(buf) do - out:write(" ", line, "\n") - end - out:write(" ", bar, "\n\n") - end - end - out:write("\n") -end - --- Check for unfinished or unused captures. -local function checkcaptures() - if cap_name then - wprinterr(g_fname, ":", cap_lineno, - ": error: unfinished .capture `", cap_name,"'\n") - return - end - for name in pairs(cap_buffers) do - if not cap_used[name] then - wprinterr(g_fname, ":*: error: missing .dumpcapture ", name ,"\n") - end - end -end - ------------------------------------------------------------------------------- - --- Sections names. -local map_sections = {} - --- Pseudo-opcode to define code sections. --- TODO: Data sections, BSS sections. Needs extra C code and API. -map_coreop[".section_*"] = function(params) - if not params then return "name..." end - if #map_sections > 0 then werror("duplicate section definition") end - wflush() - for sn,name in ipairs(params) do - local opname = "."..name.."_0" - if not match(name, "^[%a][%w_]*$") or - map_op[opname] or map_op["."..name.."_*"] then - werror("bad section name `"..name.."'") - end - map_sections[#map_sections+1] = name - wline(format("#define DASM_SECTION_%s\t%d", upper(name), sn-1)) - map_op[opname] = function(params) g_arch.section(sn-1) end - end - wline(format("#define DASM_MAXSECTION\t\t%d", #map_sections)) -end - --- Dump all sections. -local function dumpsections(out, lvl) - out:write("Sections:\n") - for _,name in ipairs(map_sections) do - out:write(format(" %s\n", name)) - end - out:write("\n") -end - ------------------------------------------------------------------------------- - --- Replacement for customized Lua, which lacks the package library. -local prefix = "" -if not require then - function require(name) - local fp = assert(io.open(prefix..name..".lua")) - local s = fp:read("*a") - assert(fp:close()) - return assert(loadstring(s, "@"..name..".lua"))() - end -end - --- Load architecture-specific module. -local function loadarch(arch) - if not match(arch, "^[%w_]+$") then return "bad arch name" end - local ok, m_arch = pcall(require, "dasm_"..arch) - if not ok then return "cannot load module: "..m_arch end - g_arch = m_arch - wflush = m_arch.passcb(wline, werror, wfatal, wwarn) - m_arch.setup(arch, g_opt) - map_op, map_def = m_arch.mergemaps(map_coreop, map_def) -end - --- Dump architecture description. -function opt_map.dumparch(args) - local name = optparam(args) - if not g_arch then - local err = loadarch(name) - if err then opterror(err) end - end - - local t = {} - for name in pairs(map_coreop) do t[#t+1] = name end - for name in pairs(map_op) do t[#t+1] = name end - sort(t) - - local out = stdout - local _arch = g_arch._info - out:write(format("%s version %s, released %s, %s\n", - _info.name, _info.version, _info.release, _info.url)) - g_arch.dumparch(out) - - local pseudo = true - out:write("Pseudo-Opcodes:\n") - for _,sname in ipairs(t) do - local name, nparam = match(sname, "^(.+)_([0-9%*])$") - if name then - if pseudo and sub(name, 1, 1) ~= "." then - out:write("\nOpcodes:\n") - pseudo = false - end - local f = map_op[sname] - local s - if nparam ~= "*" then nparam = nparam + 0 end - if nparam == 0 then - s = "" - elseif type(f) == "string" then - s = map_op[".template__"](nil, f, nparam) - else - s = f(nil, nparam) - end - if type(s) == "table" then - for _,s2 in ipairs(s) do - out:write(format(" %-12s %s\n", name, s2)) - end - else - out:write(format(" %-12s %s\n", name, s)) - end - end - end - out:write("\n") - exit(0) -end - --- Pseudo-opcode to set the architecture. --- Only initially available (map_op is replaced when called). -map_op[".arch_1"] = function(params) - if not params then return "name" end - local err = loadarch(params[1]) - if err then wfatal(err) end - wline(format("#if DASM_VERSION != %d", _info.vernum)) - wline('#error "Version mismatch between DynASM and included encoding engine"') - wline("#endif") -end - --- Dummy .arch pseudo-opcode to improve the error report. -map_coreop[".arch_1"] = function(params) - if not params then return "name" end - wfatal("duplicate .arch statement") -end - ------------------------------------------------------------------------------- - --- Dummy pseudo-opcode. Don't confuse '.nop' with 'nop'. -map_coreop[".nop_*"] = function(params) - if not params then return "[ignored...]" end -end - --- Pseudo-opcodes to raise errors. -map_coreop[".error_1"] = function(params) - if not params then return "message" end - werror(params[1]) -end - -map_coreop[".fatal_1"] = function(params) - if not params then return "message" end - wfatal(params[1]) -end - --- Dump all user defined elements. -local function dumpdef(out) - local lvl = g_opt.dumpdef - if lvl == 0 then return end - dumpsections(out, lvl) - dumpdefines(out, lvl) - if g_arch then g_arch.dumpdef(out, lvl) end - dumpmacros(out, lvl) - dumpcaptures(out, lvl) -end - ------------------------------------------------------------------------------- - --- Helper for splitstmt. -local splitlvl - -local function splitstmt_one(c) - if c == "(" then - splitlvl = ")"..splitlvl - elseif c == "[" then - splitlvl = "]"..splitlvl - elseif c == "{" then - splitlvl = "}"..splitlvl - elseif c == ")" or c == "]" or c == "}" then - if sub(splitlvl, 1, 1) ~= c then werror("unbalanced (), [] or {}") end - splitlvl = sub(splitlvl, 2) - elseif splitlvl == "" then - return " \0 " - end - return c -end - --- Split statement into (pseudo-)opcode and params. -local function splitstmt(stmt) - -- Convert label with trailing-colon into .label statement. - local label = match(stmt, "^%s*(.+):%s*$") - if label then return ".label", {label} end - - -- Split at commas and equal signs, but obey parentheses and brackets. - splitlvl = "" - stmt = gsub(stmt, "[,%(%)%[%]{}]", splitstmt_one) - if splitlvl ~= "" then werror("unbalanced () or []") end - - -- Split off opcode. - local op, other = match(stmt, "^%s*([^%s%z]+)%s*(.*)$") - if not op then werror("bad statement syntax") end - - -- Split parameters. - local params = {} - for p in gmatch(other, "%s*(%Z+)%z?") do - params[#params+1] = gsub(p, "%s+$", "") - end - if #params > 16 then werror("too many parameters") end - - params.op = op - return op, params -end - --- Process a single statement. -dostmt = function(stmt) - -- Ignore empty statements. - if match(stmt, "^%s*$") then return end - - -- Capture macro defs before substitution. - if mac_capture then return mac_capture(stmt) end - stmt = definesubst(stmt) - - -- Emit C code without parsing the line. - if sub(stmt, 1, 1) == "|" then - local tail = sub(stmt, 2) - wflush() - if sub(tail, 1, 2) == "//" then wcomment(tail) else wline(tail, true) end - return - end - - -- Split into (pseudo-)opcode and params. - local op, params = splitstmt(stmt) - - -- Get opcode handler (matching # of parameters or generic handler). - local f = map_op[op.."_"..#params] or map_op[op.."_*"] - if not f then - if not g_arch then wfatal("first statement must be .arch") end - -- Improve error report. - for i=0,9 do - if map_op[op.."_"..i] then - werror("wrong number of parameters for `"..op.."'") - end - end - werror("unknown statement `"..op.."'") - end - - -- Call opcode handler or special handler for template strings. - if type(f) == "string" then - map_op[".template__"](params, f) - else - f(params) - end -end - --- Process a single line. -local function doline(line) - if g_opt.flushline then wflush() end - - -- Assembler line? - local indent, aline = match(line, "^(%s*)%|(.*)$") - if not aline then - -- No, plain C code line, need to flush first. - wflush() - wsync() - wline(line, false) - return - end - - g_indent = indent -- Remember current line indentation. - - -- Emit C code (even from macros). Avoids echo and line parsing. - if sub(aline, 1, 1) == "|" then - if not mac_capture then - wsync() - elseif g_opt.comment then - wsync() - wcomment(aline) - end - dostmt(aline) - return - end - - -- Echo assembler line as a comment. - if g_opt.comment then - wsync() - wcomment(aline) - end - - -- Strip assembler comments. - aline = gsub(aline, "//.*$", "") - - -- Split line into statements at semicolons. - if match(aline, ";") then - for stmt in gmatch(aline, "[^;]+") do dostmt(stmt) end - else - dostmt(aline) - end -end - ------------------------------------------------------------------------------- - --- Write DynASM header. -local function dasmhead(out) - out:write(format([[ -/* -** This file has been pre-processed with DynASM. -** %s -** DynASM version %s, DynASM %s version %s -** DO NOT EDIT! The original file is in "%s". -*/ - -]], _info.url, - _info.version, g_arch._info.arch, g_arch._info.version, - g_fname)) -end - --- Read input file. -readfile = function(fin) - g_indent = "" - g_lineno = 0 - g_synclineno = -1 - - -- Process all lines. - for line in fin:lines() do - g_lineno = g_lineno + 1 - g_curline = line - local ok, err = pcall(doline, line) - if not ok and wprinterr(err, "\n") then return true end - end - wflush() - - -- Close input file. - assert(fin == stdin or fin:close()) -end - --- Write output file. -local function writefile(outfile) - local fout - - -- Open output file. - if outfile == nil or outfile == "-" then - fout = stdout - else - fout = assert(io.open(outfile, "w")) - end - - -- Write all buffered lines - wdumplines(fout, g_wbuffer) - - -- Close output file. - assert(fout == stdout or fout:close()) - - -- Optionally dump definitions. - dumpdef(fout == stdout and stderr or stdout) -end - --- Translate an input file to an output file. -local function translate(infile, outfile) - g_wbuffer = {} - g_indent = "" - g_lineno = 0 - g_synclineno = -1 - - -- Put header. - wline(dasmhead) - - -- Read input file. - local fin - if infile == "-" then - g_fname = "(stdin)" - fin = stdin - else - g_fname = infile - fin = assert(io.open(infile, "r")) - end - readfile(fin) - - -- Check for errors. - if not g_arch then - wprinterr(g_fname, ":*: error: missing .arch directive\n") - end - checkconds() - checkmacros() - checkcaptures() - - if g_errcount ~= 0 then - stderr:write(g_fname, ":*: info: ", g_errcount, " error", - (type(g_errcount) == "number" and g_errcount > 1) and "s" or "", - " in input file -- no output file generated.\n") - dumpdef(stderr) - exit(1) - end - - -- Write output file. - writefile(outfile) -end - ------------------------------------------------------------------------------- - --- Print help text. -function opt_map.help() - stdout:write("DynASM -- ", _info.description, ".\n") - stdout:write("DynASM ", _info.version, " ", _info.release, " ", _info.url, "\n") - stdout:write[[ - -Usage: dynasm [OPTION]... INFILE.dasc|- - - -h, --help Display this help text. - -V, --version Display version and copyright information. - - -o, --outfile FILE Output file name (default is stdout). - -I, --include DIR Add directory to the include search path. - - -c, --ccomment Use /* */ comments for assembler lines. - -C, --cppcomment Use // comments for assembler lines (default). - -N, --nocomment Suppress assembler lines in output. - -M, --maccomment Show macro expansions as comments (default off). - - -L, --nolineno Suppress CPP line number information in output. - -F, --flushline Flush action list for every line. - - -D NAME[=SUBST] Define a substitution. - -U NAME Undefine a substitution. - - -P, --dumpdef Dump defines, macros, etc. Repeat for more output. - -A, --dumparch ARCH Load architecture ARCH and dump description. -]] - exit(0) -end - --- Print version information. -function opt_map.version() - stdout:write(format("%s version %s, released %s\n%s\n\n%s", - _info.name, _info.version, _info.release, _info.url, _info.copyright)) - exit(0) -end - --- Misc. options. -function opt_map.outfile(args) g_opt.outfile = optparam(args) end -function opt_map.include(args) insert(g_opt.include, 1, optparam(args)) end -function opt_map.ccomment() g_opt.comment = "/*|"; g_opt.endcomment = " */" end -function opt_map.cppcomment() g_opt.comment = "//|"; g_opt.endcomment = "" end -function opt_map.nocomment() g_opt.comment = false end -function opt_map.maccomment() g_opt.maccomment = true end -function opt_map.nolineno() g_opt.cpp = false end -function opt_map.flushline() g_opt.flushline = true end -function opt_map.dumpdef() g_opt.dumpdef = g_opt.dumpdef + 1 end - ------------------------------------------------------------------------------- - --- Short aliases for long options. -local opt_alias = { - h = "help", ["?"] = "help", V = "version", - o = "outfile", I = "include", - c = "ccomment", C = "cppcomment", N = "nocomment", M = "maccomment", - L = "nolineno", F = "flushline", - P = "dumpdef", A = "dumparch", -} - --- Parse single option. -local function parseopt(opt, args) - opt_current = #opt == 1 and "-"..opt or "--"..opt - local f = opt_map[opt] or opt_map[opt_alias[opt]] - if not f then - opterror("unrecognized option `", opt_current, "'. Try `--help'.\n") - end - f(args) -end - --- Parse arguments. -local function parseargs(args) - -- Default options. - g_opt.comment = "//|" - g_opt.endcomment = "" - g_opt.cpp = true - g_opt.dumpdef = 0 - g_opt.include = { "" } - - -- Process all option arguments. - args.argn = 1 - repeat - local a = args[args.argn] - if not a then break end - local lopt, opt = match(a, "^%-(%-?)(.+)") - if not opt then break end - args.argn = args.argn + 1 - if lopt == "" then - -- Loop through short options. - for o in gmatch(opt, ".") do parseopt(o, args) end - else - -- Long option. - parseopt(opt, args) - end - until false - - -- Check for proper number of arguments. - local nargs = #args - args.argn + 1 - if nargs ~= 1 then - if nargs == 0 then - if g_opt.dumpdef > 0 then return dumpdef(stdout) end - end - opt_map.help() - end - - -- Translate a single input file to a single output file - -- TODO: Handle multiple files? - translate(args[args.argn], g_opt.outfile) -end - ------------------------------------------------------------------------------- - --- Add the directory dynasm.lua resides in to the Lua module search path. -local arg = arg -if arg and arg[0] then - prefix = match(arg[0], "^(.*[/\\])") - if package and prefix then package.path = prefix.."?.lua;"..package.path end -end - --- Start DynASM. -parseargs{...} - ------------------------------------------------------------------------------- - diff --git a/src/3rd party/luajit-2.0-BAK/etc/luajit.1 b/src/3rd party/luajit-2.0-BAK/etc/luajit.1 deleted file mode 100644 index fd38b0a92c7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/etc/luajit.1 +++ /dev/null @@ -1,88 +0,0 @@ -.TH luajit 1 "" "" "LuaJIT documentation" -.SH NAME -luajit \- Just-In-Time Compiler for the Lua Language -\fB -.SH SYNOPSIS -.B luajit -[\fIoptions\fR]... [\fIscript\fR [\fIargs\fR]...] -.SH "WEB SITE" -.IR http://luajit.org -.SH DESCRIPTION -.PP -This is the command-line program to run Lua programs with \fBLuaJIT\fR. -.PP -\fBLuaJIT\fR is a just-in-time (JIT) compiler for the Lua language. -The virtual machine (VM) is based on a fast interpreter combined with -a trace compiler. It can significantly improve the performance of Lua programs. -.PP -\fBLuaJIT\fR is API\- and ABI-compatible with the VM of the standard -Lua\ 5.1 interpreter. When embedding the VM into an application, -the built library can be used as a drop-in replacement. -.SH OPTIONS -.TP -.BI "\-e " chunk -Run the given chunk of Lua code. -.TP -.BI "\-l " library -Load the named library, just like \fBrequire("\fR\fIlibrary\fR\fB")\fR. -.TP -.BI "\-b " ... -Save or list bytecode. Run without arguments to get help on options. -.TP -.BI "\-j " command -Perform LuaJIT control command (optional space after \fB\-j\fR). -.TP -.BI "\-O" [opt] -Control LuaJIT optimizations. -.TP -.B "\-i" -Run in interactive mode. -.TP -.B "\-v" -Show \fBLuaJIT\fR version. -.TP -.B "\-E" -Ignore environment variables. -.TP -.B "\-\-" -Stop processing options. -.TP -.B "\-" -Read script from stdin instead. -.PP -After all options are processed, the given \fIscript\fR is run. -The arguments are passed in the global \fIarg\fR table. -.PP -Interactive mode is only entered, if no \fIscript\fR and no \fB\-e\fR -option is given. Interactive mode can be left with EOF (\fICtrl\-Z\fB). -.SH EXAMPLES -.TP -luajit hello.lua world - -Prints "Hello world", assuming \fIhello.lua\fR contains: -.br - print("Hello", arg[1]) -.TP -luajit \-e "local x=0; for i=1,1e9 do x=x+i end; print(x)" - -Calculates the sum of the numbers from 1 to 1000000000. -.br -And finishes in a reasonable amount of time, too. -.TP -luajit \-jv \-e "for i=1,10 do for j=1,10 do for k=1,100 do end end end" - -Runs some nested loops and shows the resulting traces. -.SH COPYRIGHT -.PP -\fBLuaJIT\fR is Copyright \(co 2005-2015 Mike Pall. -.br -\fBLuaJIT\fR is open source software, released under the MIT license. -.SH SEE ALSO -.PP -More details in the provided HTML docs or at: -.IR http://luajit.org -.br -More about the Lua language can be found at: -.IR http://lua.org/docs.html -.PP -lua(1) diff --git a/src/3rd party/luajit-2.0-BAK/etc/luajit.pc b/src/3rd party/luajit-2.0-BAK/etc/luajit.pc deleted file mode 100644 index 5ec2c35c1f9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/etc/luajit.pc +++ /dev/null @@ -1,25 +0,0 @@ -# Package information for LuaJIT to be used by pkg-config. -majver=2 -minver=1 -relver=0 -version=${majver}.${minver}.${relver}-alpha -abiver=5.1 - -prefix=/usr/local -multilib=lib -exec_prefix=${prefix} -libdir=${exec_prefix}/${multilib} -libname=luajit-${abiver} -includedir=${prefix}/include/luajit-${majver}.${minver} - -INSTALL_LMOD=${prefix}/share/lua/${abiver} -INSTALL_CMOD=${prefix}/${multilib}/lua/${abiver} - -Name: LuaJIT -Description: Just-in-time compiler for Lua -URL: http://luajit.org -Version: ${version} -Requires: -Libs: -L${libdir} -l${libname} -Libs.private: -Wl,-E -lm -ldl -Cflags: -I${includedir} diff --git a/src/3rd party/luajit-2.0-BAK/src/.gitignore b/src/3rd party/luajit-2.0-BAK/src/.gitignore deleted file mode 100644 index 1a30573c9ff..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/.gitignore +++ /dev/null @@ -1,7 +0,0 @@ -luajit -lj_bcdef.h -lj_ffdef.h -lj_libdef.h -lj_recdef.h -lj_folddef.h -lj_vm.[sS] diff --git a/src/3rd party/luajit-2.0-BAK/src/Makefile b/src/3rd party/luajit-2.0-BAK/src/Makefile deleted file mode 100644 index 71ab6ea0910..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/Makefile +++ /dev/null @@ -1,688 +0,0 @@ -############################################################################## -# LuaJIT Makefile. Requires GNU Make. -# -# Please read doc/install.html before changing any variables! -# -# Suitable for POSIX platforms (Linux, *BSD, OSX etc.). -# Also works with MinGW and Cygwin on Windows. -# Please check msvcbuild.bat for building with MSVC on Windows. -# -# Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -############################################################################## - -MAJVER= 2 -MINVER= 1 -RELVER= 0 -ABIVER= 5.1 -NODOTABIVER= 51 - -############################################################################## -############################# COMPILER OPTIONS ############################# -############################################################################## -# These options mainly affect the speed of the JIT compiler itself, not the -# speed of the JIT-compiled code. Turn any of the optional settings on by -# removing the '#' in front of them. Make sure you force a full recompile -# with "make clean", followed by "make" if you change any options. -# -# LuaJIT builds as a native 32 or 64 bit binary by default. -CC= gcc -# -# Use this if you want to force a 32 bit build on a 64 bit multilib OS. -#CC= gcc -m32 -# -# Since the assembler part does NOT maintain a frame pointer, it's pointless -# to slow down the C part by not omitting it. Debugging, tracebacks and -# unwinding are not affected -- the assembler part has frame unwind -# information and GCC emits it where needed (x64) or with -g (see CCDEBUG). -CCOPT= -O2 -fomit-frame-pointer -# Use this if you want to generate a smaller binary (but it's slower): -#CCOPT= -Os -fomit-frame-pointer -# Note: it's no longer recommended to use -O3 with GCC 4.x. -# The I-Cache bloat usually outweighs the benefits from aggressive inlining. -# -# Target-specific compiler options: -# -# x86/x64 only: For GCC 4.2 or higher and if you don't intend to distribute -# the binaries to a different machine you could also use: -march=native -# -CCOPT_x86= -march=i686 -msse -msse2 -mfpmath=sse -CCOPT_x64= -CCOPT_arm= -CCOPT_arm64= -CCOPT_ppc= -CCOPT_mips= -# -CCDEBUG= -# Uncomment the next line to generate debug information: -#CCDEBUG= -g -# -CCWARN= -Wall -# Uncomment the next line to enable more warnings: -#CCWARN+= -Wextra -Wdeclaration-after-statement -Wredundant-decls -Wshadow -Wpointer-arith -# -############################################################################## - -############################################################################## -################################ BUILD MODE ################################ -############################################################################## -# The default build mode is mixed mode on POSIX. On Windows this is the same -# as dynamic mode. -# -# Mixed mode creates a static + dynamic library and a statically linked luajit. -BUILDMODE= mixed -# -# Static mode creates a static library and a statically linked luajit. -#BUILDMODE= static -# -# Dynamic mode creates a dynamic library and a dynamically linked luajit. -# Note: this executable will only run when the library is installed! -#BUILDMODE= dynamic -# -############################################################################## - -############################################################################## -################################# FEATURES ################################# -############################################################################## -# Enable/disable these features as needed, but make sure you force a full -# recompile with "make clean", followed by "make". -XCFLAGS= -# -# Permanently disable the FFI extension to reduce the size of the LuaJIT -# executable. But please consider that the FFI library is compiled-in, -# but NOT loaded by default. It only allocates any memory, if you actually -# make use of it. -#XCFLAGS+= -DLUAJIT_DISABLE_FFI -# -# Features from Lua 5.2 that are unlikely to break existing code are -# enabled by default. Some other features that *might* break some existing -# code (e.g. __pairs or os.execute() return values) can be enabled here. -# Note: this does not provide full compatibility with Lua 5.2 at this time. -#XCFLAGS+= -DLUAJIT_ENABLE_LUA52COMPAT -# -# Disable the JIT compiler, i.e. turn LuaJIT into a pure interpreter. -#XCFLAGS+= -DLUAJIT_DISABLE_JIT -# -# Some architectures (e.g. PPC) can use either single-number (1) or -# dual-number (2) mode. Uncomment one of these lines to override the -# default mode. Please see LJ_ARCH_NUMMODE in lj_arch.h for details. -#XCFLAGS+= -DLUAJIT_NUMMODE=1 -#XCFLAGS+= -DLUAJIT_NUMMODE=2 -# -############################################################################## - -############################################################################## -############################ DEBUGGING SUPPORT ############################# -############################################################################## -# Enable these options as needed, but make sure you force a full recompile -# with "make clean", followed by "make". -# Note that most of these are NOT suitable for benchmarking or release mode! -# -# Use the system provided memory allocator (realloc) instead of the -# bundled memory allocator. This is slower, but sometimes helpful for -# debugging. This option cannot be enabled on x64, since realloc usually -# doesn't return addresses in the right address range. -# OTOH this option is mandatory for Valgrind's memcheck tool on x64 and -# the only way to get useful results from it for all other architectures. -#XCFLAGS+= -DLUAJIT_USE_SYSMALLOC -# -# This define is required to run LuaJIT under Valgrind. The Valgrind -# header files must be installed. You should enable debug information, too. -# Use --suppressions=lj.supp to avoid some false positives. -#XCFLAGS+= -DLUAJIT_USE_VALGRIND -# -# This is the client for the GDB JIT API. GDB 7.0 or higher is required -# to make use of it. See lj_gdbjit.c for details. Enabling this causes -# a non-negligible overhead, even when not running under GDB. -#XCFLAGS+= -DLUAJIT_USE_GDBJIT -# -# Turn on assertions for the Lua/C API to debug problems with lua_* calls. -# This is rather slow -- use only while developing C libraries/embeddings. -#XCFLAGS+= -DLUA_USE_APICHECK -# -# Turn on assertions for the whole LuaJIT VM. This significantly slows down -# everything. Use only if you suspect a problem with LuaJIT itself. -#XCFLAGS+= -DLUA_USE_ASSERT -# -############################################################################## -# You probably don't need to change anything below this line! -############################################################################## - -############################################################################## -# Flags and options for host and target. -############################################################################## - -# You can override the following variables at the make command line: -# CC HOST_CC STATIC_CC DYNAMIC_CC -# CFLAGS HOST_CFLAGS TARGET_CFLAGS -# LDFLAGS HOST_LDFLAGS TARGET_LDFLAGS TARGET_SHLDFLAGS -# LIBS HOST_LIBS TARGET_LIBS -# CROSS HOST_SYS TARGET_SYS TARGET_FLAGS -# -# Cross-compilation examples: -# make HOST_CC="gcc -m32" CROSS=i586-mingw32msvc- TARGET_SYS=Windows -# make HOST_CC="gcc -m32" CROSS=powerpc-linux-gnu- - -ASOPTIONS= $(CCOPT) $(CCWARN) $(XCFLAGS) $(CFLAGS) -CCOPTIONS= $(CCDEBUG) $(ASOPTIONS) -LDOPTIONS= $(CCDEBUG) $(LDFLAGS) - -HOST_CC= $(CC) -HOST_RM= rm -f -# If left blank, minilua is built and used. You can supply an installed -# copy of (plain) Lua 5.1 or 5.2, plus Lua BitOp. E.g. with: HOST_LUA=lua -HOST_LUA= - -HOST_XCFLAGS= -I. -HOST_XLDFLAGS= -HOST_XLIBS= -HOST_ACFLAGS= $(CCOPTIONS) $(HOST_XCFLAGS) $(TARGET_ARCH) $(HOST_CFLAGS) -HOST_ALDFLAGS= $(LDOPTIONS) $(HOST_XLDFLAGS) $(HOST_LDFLAGS) -HOST_ALIBS= $(HOST_XLIBS) $(LIBS) $(HOST_LIBS) - -STATIC_CC = $(CROSS)$(CC) -DYNAMIC_CC = $(CROSS)$(CC) -fPIC -TARGET_CC= $(STATIC_CC) -TARGET_STCC= $(STATIC_CC) -TARGET_DYNCC= $(DYNAMIC_CC) -TARGET_LD= $(CROSS)$(CC) -TARGET_AR= $(CROSS)ar rcus -TARGET_STRIP= $(CROSS)strip - -TARGET_LIBPATH= $(or $(PREFIX),/usr/local)/$(or $(MULTILIB),lib) -TARGET_SONAME= libluajit-$(ABIVER).so.$(MAJVER) -TARGET_DYLIBNAME= libluajit-$(ABIVER).$(MAJVER).dylib -TARGET_DYLIBPATH= $(TARGET_LIBPATH)/$(TARGET_DYLIBNAME) -TARGET_DLLNAME= lua$(NODOTABIVER).dll -TARGET_XSHLDFLAGS= -shared -fPIC -Wl,-soname,$(TARGET_SONAME) -TARGET_DYNXLDOPTS= - -TARGET_LFSFLAGS= -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -TARGET_XCFLAGS= $(TARGET_LFSFLAGS) -U_FORTIFY_SOURCE -TARGET_XLDFLAGS= -TARGET_XLIBS= -lm -TARGET_TCFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) -TARGET_ACFLAGS= $(CCOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) -TARGET_ASFLAGS= $(ASOPTIONS) $(TARGET_XCFLAGS) $(TARGET_FLAGS) $(TARGET_CFLAGS) -TARGET_ALDFLAGS= $(LDOPTIONS) $(TARGET_XLDFLAGS) $(TARGET_FLAGS) $(TARGET_LDFLAGS) -TARGET_ASHLDFLAGS= $(LDOPTIONS) $(TARGET_XSHLDFLAGS) $(TARGET_FLAGS) $(TARGET_SHLDFLAGS) -TARGET_ALIBS= $(TARGET_XLIBS) $(LIBS) $(TARGET_LIBS) - -TARGET_TESTARCH=$(shell $(TARGET_CC) $(TARGET_TCFLAGS) -E lj_arch.h -dM) -ifneq (,$(findstring LJ_TARGET_X64 ,$(TARGET_TESTARCH))) - TARGET_LJARCH= x64 -else -ifneq (,$(findstring LJ_TARGET_X86 ,$(TARGET_TESTARCH))) - TARGET_LJARCH= x86 -else -ifneq (,$(findstring LJ_TARGET_ARM ,$(TARGET_TESTARCH))) - TARGET_LJARCH= arm -else -ifneq (,$(findstring LJ_TARGET_ARM64 ,$(TARGET_TESTARCH))) - TARGET_LJARCH= arm64 -else -ifneq (,$(findstring LJ_TARGET_PPC ,$(TARGET_TESTARCH))) - TARGET_LJARCH= ppc -else -ifneq (,$(findstring LJ_TARGET_MIPS ,$(TARGET_TESTARCH))) - ifneq (,$(findstring MIPSEL ,$(TARGET_TESTARCH))) - TARGET_ARCH= -D__MIPSEL__=1 - endif - TARGET_LJARCH= mips -else - $(error Unsupported target architecture) -endif -endif -endif -endif -endif -endif - -ifneq (,$(findstring LJ_TARGET_PS3 1,$(TARGET_TESTARCH))) - TARGET_SYS= PS3 - TARGET_ARCH+= -D__CELLOS_LV2__ - TARGET_XCFLAGS+= -DLUAJIT_USE_SYSMALLOC - TARGET_XLIBS+= -lpthread -endif -ifneq (,$(findstring LJ_NO_UNWIND 1,$(TARGET_TESTARCH))) - TARGET_ARCH+= -DLUAJIT_NO_UNWIND -endif - -TARGET_XCFLAGS+= $(CCOPT_$(TARGET_LJARCH)) -TARGET_ARCH+= $(patsubst %,-DLUAJIT_TARGET=LUAJIT_ARCH_%,$(TARGET_LJARCH)) - -ifneq (,$(PREFIX)) -ifneq (/usr/local,$(PREFIX)) - TARGET_XCFLAGS+= -DLUA_ROOT=\"$(PREFIX)\" - ifneq (/usr,$(PREFIX)) - TARGET_DYNXLDOPTS= -Wl,-rpath,$(TARGET_LIBPATH) - endif -endif -endif -ifneq (,$(MULTILIB)) - TARGET_XCFLAGS+= -DLUA_MULTILIB=\"$(MULTILIB)\" -endif -ifneq (,$(LMULTILIB)) - TARGET_XCFLAGS+= -DLUA_LMULTILIB=\"$(LMULTILIB)\" -endif - -############################################################################## -# System detection. -############################################################################## - -ifeq (Windows,$(findstring Windows,$(OS))$(MSYSTEM)$(TERM)) - HOST_SYS= Windows - HOST_RM= del -else - HOST_SYS:= $(shell uname -s) - ifneq (,$(findstring MINGW,$(HOST_SYS))) - HOST_SYS= Windows - HOST_MSYS= mingw - endif - ifneq (,$(findstring CYGWIN,$(HOST_SYS))) - HOST_SYS= Windows - HOST_MSYS= cygwin - endif -endif - -TARGET_SYS?= $(HOST_SYS) -ifeq (Windows,$(TARGET_SYS)) - TARGET_STRIP+= --strip-unneeded - TARGET_XSHLDFLAGS= -shared - TARGET_DYNXLDOPTS= -else -ifeq (,$(shell $(TARGET_CC) -o /dev/null -c -x c /dev/null -fno-stack-protector 2>/dev/null || echo 1)) - TARGET_XCFLAGS+= -fno-stack-protector -endif -ifeq (Darwin,$(TARGET_SYS)) - ifeq (,$(MACOSX_DEPLOYMENT_TARGET)) - export MACOSX_DEPLOYMENT_TARGET=10.4 - endif - TARGET_STRIP+= -x - TARGET_AR+= 2>/dev/null - TARGET_XSHLDFLAGS= -dynamiclib -single_module -undefined dynamic_lookup -fPIC - TARGET_DYNXLDOPTS= - TARGET_XSHLDFLAGS+= -install_name $(TARGET_DYLIBPATH) -compatibility_version $(MAJVER).$(MINVER) -current_version $(MAJVER).$(MINVER).$(RELVER) - ifeq (x64,$(TARGET_LJARCH)) - TARGET_XLDFLAGS+= -pagezero_size 10000 -image_base 100000000 - TARGET_XSHLDFLAGS+= -image_base 7fff04c4a000 - endif -else -ifeq (iOS,$(TARGET_SYS)) - TARGET_STRIP+= -x - TARGET_AR+= 2>/dev/null - TARGET_XSHLDFLAGS= -dynamiclib -single_module -undefined dynamic_lookup -fPIC - TARGET_DYNXLDOPTS= - TARGET_XSHLDFLAGS+= -install_name $(TARGET_DYLIBPATH) -compatibility_version $(MAJVER).$(MINVER) -current_version $(MAJVER).$(MINVER).$(RELVER) - ifeq (arm64,$(TARGET_LJARCH)) - TARGET_XCFLAGS+= -fno-omit-frame-pointer - endif -else - ifneq (SunOS,$(TARGET_SYS)) - ifneq (PS3,$(TARGET_SYS)) - TARGET_XLDFLAGS+= -Wl,-E - endif - endif - ifeq (Linux,$(TARGET_SYS)) - TARGET_XLIBS+= -ldl - endif - ifeq (GNU/kFreeBSD,$(TARGET_SYS)) - TARGET_XLIBS+= -ldl - endif -endif -endif -endif - -ifneq ($(HOST_SYS),$(TARGET_SYS)) - ifeq (Windows,$(TARGET_SYS)) - HOST_XCFLAGS+= -malign-double -DLUAJIT_OS=LUAJIT_OS_WINDOWS - else - ifeq (Linux,$(TARGET_SYS)) - HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_LINUX - else - ifeq (Darwin,$(TARGET_SYS)) - HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OSX - else - ifeq (iOS,$(TARGET_SYS)) - HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OSX - else - HOST_XCFLAGS+= -DLUAJIT_OS=LUAJIT_OS_OTHER - endif - endif - endif - endif -endif - -ifneq (,$(CCDEBUG)) - TARGET_STRIP= @: -endif - -############################################################################## -# Files and pathnames. -############################################################################## - -MINILUA_O= host/minilua.o -MINILUA_LIBS= -lm -MINILUA_T= host/minilua -MINILUA_X= $(MINILUA_T) - -ifeq (,$(HOST_LUA)) - HOST_LUA= $(MINILUA_X) - DASM_DEP= $(MINILUA_T) -endif - -DASM_DIR= ../dynasm -DASM= $(HOST_LUA) $(DASM_DIR)/dynasm.lua -DASM_XFLAGS= -DASM_AFLAGS= -DASM_ARCH= $(TARGET_LJARCH) - -ifneq (,$(findstring LJ_ARCH_BITS 64,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D P64 -endif -ifneq (,$(findstring LJ_HASJIT 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D JIT -endif -ifneq (,$(findstring LJ_HASFFI 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D FFI -endif -ifneq (,$(findstring LJ_DUALNUM 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D DUALNUM -endif -ifneq (,$(findstring LJ_ARCH_HASFPU 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D FPU - TARGET_ARCH+= -DLJ_ARCH_HASFPU=1 -else - TARGET_ARCH+= -DLJ_ARCH_HASFPU=0 -endif -ifeq (,$(findstring LJ_ABI_SOFTFP 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D HFABI - TARGET_ARCH+= -DLJ_ABI_SOFTFP=0 -else - TARGET_ARCH+= -DLJ_ABI_SOFTFP=1 -endif -DASM_AFLAGS+= -D VER=$(subst LJ_ARCH_VERSION_,,$(filter LJ_ARCH_VERSION_%,$(subst LJ_ARCH_VERSION ,LJ_ARCH_VERSION_,$(TARGET_TESTARCH)))) -ifeq (Windows,$(TARGET_SYS)) - DASM_AFLAGS+= -D WIN -endif -ifeq (x64,$(TARGET_LJARCH)) - ifeq (,$(findstring LJ_FR2 1,$(TARGET_TESTARCH))) - DASM_ARCH= x86 - endif -else -ifeq (arm,$(TARGET_LJARCH)) - ifeq (iOS,$(TARGET_SYS)) - DASM_AFLAGS+= -D IOS - endif -else -ifeq (ppc,$(TARGET_LJARCH)) - ifneq (,$(findstring LJ_ARCH_SQRT 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D SQRT - endif - ifneq (,$(findstring LJ_ARCH_ROUND 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D ROUND - endif - ifneq (,$(findstring LJ_ARCH_PPC64 1,$(TARGET_TESTARCH))) - DASM_AFLAGS+= -D GPR64 - endif - ifeq (PS3,$(TARGET_SYS)) - DASM_AFLAGS+= -D PPE -D TOC - endif -endif -endif -endif - -DASM_FLAGS= $(DASM_XFLAGS) $(DASM_AFLAGS) -DASM_DASC= vm_$(DASM_ARCH).dasc - -BUILDVM_O= host/buildvm.o host/buildvm_asm.o host/buildvm_peobj.o \ - host/buildvm_lib.o host/buildvm_fold.o -BUILDVM_T= host/buildvm -BUILDVM_X= $(BUILDVM_T) - -HOST_O= $(MINILUA_O) $(BUILDVM_O) -HOST_T= $(MINILUA_T) $(BUILDVM_T) - -LJVM_S= lj_vm.S -LJVM_O= lj_vm.o -LJVM_BOUT= $(LJVM_S) -LJVM_MODE= elfasm - -LJLIB_O= lib_base.o lib_math.o lib_bit.o lib_string.o lib_table.o \ - lib_io.o lib_os.o lib_package.o lib_debug.o lib_jit.o lib_ffi.o -LJLIB_C= $(LJLIB_O:.o=.c) - -LJCORE_O= lj_gc.o lj_err.o lj_char.o lj_bc.o lj_obj.o lj_buf.o \ - lj_str.o lj_tab.o lj_func.o lj_udata.o lj_meta.o lj_debug.o \ - lj_state.o lj_dispatch.o lj_vmevent.o lj_vmmath.o lj_strscan.o \ - lj_strfmt.o lj_api.o lj_profile.o \ - lj_lex.o lj_parse.o lj_bcread.o lj_bcwrite.o lj_load.o \ - lj_ir.o lj_opt_mem.o lj_opt_fold.o lj_opt_narrow.o \ - lj_opt_dce.o lj_opt_loop.o lj_opt_split.o lj_opt_sink.o \ - lj_mcode.o lj_snap.o lj_record.o lj_crecord.o lj_ffrecord.o \ - lj_asm.o lj_trace.o lj_gdbjit.o \ - lj_ctype.o lj_cdata.o lj_cconv.o lj_ccall.o lj_ccallback.o \ - lj_carith.o lj_clib.o lj_cparse.o \ - lj_lib.o lj_alloc.o lib_aux.o \ - $(LJLIB_O) lib_init.o - -LJVMCORE_O= $(LJVM_O) $(LJCORE_O) -LJVMCORE_DYNO= $(LJVMCORE_O:.o=_dyn.o) - -LIB_VMDEF= jit/vmdef.lua -LIB_VMDEFP= $(LIB_VMDEF) - -LUAJIT_O= luajit.o -LUAJIT_A= libluajit.a -LUAJIT_SO= libluajit.so -LUAJIT_T= luajit - -ALL_T= $(LUAJIT_T) $(LUAJIT_A) $(LUAJIT_SO) $(HOST_T) -ALL_HDRGEN= lj_bcdef.h lj_ffdef.h lj_libdef.h lj_recdef.h lj_folddef.h \ - host/buildvm_arch.h -ALL_GEN= $(LJVM_S) $(ALL_HDRGEN) $(LIB_VMDEFP) -WIN_RM= *.obj *.lib *.exp *.dll *.exe *.manifest *.pdb *.ilk -ALL_RM= $(ALL_T) $(ALL_GEN) *.o host/*.o $(WIN_RM) - -############################################################################## -# Build mode handling. -############################################################################## - -# Mixed mode defaults. -TARGET_O= $(LUAJIT_A) -TARGET_T= $(LUAJIT_T) $(LUAJIT_SO) -TARGET_DEP= $(LIB_VMDEF) $(LUAJIT_SO) - -ifeq (Windows,$(TARGET_SYS)) - TARGET_DYNCC= $(STATIC_CC) - LJVM_MODE= peobj - LJVM_BOUT= $(LJVM_O) - LUAJIT_T= luajit.exe - ifeq (cygwin,$(HOST_MSYS)) - LUAJIT_SO= cyg$(TARGET_DLLNAME) - else - LUAJIT_SO= $(TARGET_DLLNAME) - endif - # Mixed mode is not supported on Windows. And static mode doesn't work well. - # C modules cannot be loaded, because they bind to lua51.dll. - ifneq (static,$(BUILDMODE)) - BUILDMODE= dynamic - TARGET_XCFLAGS+= -DLUA_BUILD_AS_DLL - endif -endif -ifeq (Darwin,$(TARGET_SYS)) - LJVM_MODE= machasm -endif -ifeq (iOS,$(TARGET_SYS)) - LJVM_MODE= machasm -endif -ifeq (SunOS,$(TARGET_SYS)) - BUILDMODE= static -endif -ifeq (PS3,$(TARGET_SYS)) - BUILDMODE= static -endif - -ifeq (Windows,$(HOST_SYS)) - MINILUA_T= host/minilua.exe - BUILDVM_T= host/buildvm.exe - ifeq (,$(HOST_MSYS)) - MINILUA_X= host\minilua - BUILDVM_X= host\buildvm - ALL_RM:= $(subst /,\,$(ALL_RM)) - endif -endif - -ifeq (static,$(BUILDMODE)) - TARGET_DYNCC= @: - TARGET_T= $(LUAJIT_T) - TARGET_DEP= $(LIB_VMDEF) -else -ifeq (dynamic,$(BUILDMODE)) - ifneq (Windows,$(TARGET_SYS)) - TARGET_CC= $(DYNAMIC_CC) - endif - TARGET_DYNCC= @: - LJVMCORE_DYNO= $(LJVMCORE_O) - TARGET_O= $(LUAJIT_SO) - TARGET_XLDFLAGS+= $(TARGET_DYNXLDOPTS) -else -ifeq (Darwin,$(TARGET_SYS)) - TARGET_DYNCC= @: - LJVMCORE_DYNO= $(LJVMCORE_O) -endif -ifeq (iOS,$(TARGET_SYS)) - TARGET_DYNCC= @: - LJVMCORE_DYNO= $(LJVMCORE_O) -endif -endif -endif - -Q= @ -E= @echo -#Q= -#E= @: - -############################################################################## -# Make targets. -############################################################################## - -default all: $(TARGET_T) - -amalg: - @grep "^[+|]" ljamalg.c - $(MAKE) all "LJCORE_O=ljamalg.o" - -clean: - $(HOST_RM) $(ALL_RM) - -libbc: - ./$(LUAJIT_T) host/genlibbc.lua -o host/buildvm_libbc.h $(LJLIB_C) - $(MAKE) all - -depend: - @for file in $(ALL_HDRGEN); do \ - test -f $$file || touch $$file; \ - done - @$(HOST_CC) $(HOST_ACFLAGS) -MM *.c host/*.c | \ - sed -e "s| [^ ]*/dasm_\S*\.h||g" \ - -e "s|^\([^l ]\)|host/\1|" \ - -e "s| lj_target_\S*\.h| lj_target_*.h|g" \ - -e "s| lj_emit_\S*\.h| lj_emit_*.h|g" \ - -e "s| lj_asm_\S*\.h| lj_asm_*.h|g" >Makefile.dep - @for file in $(ALL_HDRGEN); do \ - test -s $$file || $(HOST_RM) $$file; \ - done - -.PHONY: default all amalg clean libbc depend - -############################################################################## -# Rules for generated files. -############################################################################## - -$(MINILUA_T): $(MINILUA_O) - $(E) "HOSTLINK $@" - $(Q)$(HOST_CC) $(HOST_ALDFLAGS) -o $@ $(MINILUA_O) $(MINILUA_LIBS) $(HOST_ALIBS) - -host/buildvm_arch.h: $(DASM_DASC) $(DASM_DEP) - $(E) "DYNASM $@" - $(Q)$(DASM) $(DASM_FLAGS) -o $@ $(DASM_DASC) - -host/buildvm.o: $(DASM_DIR)/dasm_*.h - -$(BUILDVM_T): $(BUILDVM_O) - $(E) "HOSTLINK $@" - $(Q)$(HOST_CC) $(HOST_ALDFLAGS) -o $@ $(BUILDVM_O) $(HOST_ALIBS) - -$(LJVM_BOUT): $(BUILDVM_T) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m $(LJVM_MODE) -o $@ - -lj_bcdef.h: $(BUILDVM_T) $(LJLIB_C) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m bcdef -o $@ $(LJLIB_C) - -lj_ffdef.h: $(BUILDVM_T) $(LJLIB_C) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m ffdef -o $@ $(LJLIB_C) - -lj_libdef.h: $(BUILDVM_T) $(LJLIB_C) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m libdef -o $@ $(LJLIB_C) - -lj_recdef.h: $(BUILDVM_T) $(LJLIB_C) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m recdef -o $@ $(LJLIB_C) - -$(LIB_VMDEF): $(BUILDVM_T) $(LJLIB_C) - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m vmdef -o $(LIB_VMDEFP) $(LJLIB_C) - -lj_folddef.h: $(BUILDVM_T) lj_opt_fold.c - $(E) "BUILDVM $@" - $(Q)$(BUILDVM_X) -m folddef -o $@ lj_opt_fold.c - -############################################################################## -# Object file rules. -############################################################################## - -%.o: %.c - $(E) "CC $@" - $(Q)$(TARGET_DYNCC) $(TARGET_ACFLAGS) -c -o $(@:.o=_dyn.o) $< - $(Q)$(TARGET_CC) $(TARGET_ACFLAGS) -c -o $@ $< - -%.o: %.S - $(E) "ASM $@" - $(Q)$(TARGET_DYNCC) $(TARGET_ASFLAGS) -c -o $(@:.o=_dyn.o) $< - $(Q)$(TARGET_CC) $(TARGET_ASFLAGS) -c -o $@ $< - -$(LUAJIT_O): - $(E) "CC $@" - $(Q)$(TARGET_STCC) $(TARGET_ACFLAGS) -c -o $@ $< - -$(HOST_O): %.o: %.c - $(E) "HOSTCC $@" - $(Q)$(HOST_CC) $(HOST_ACFLAGS) -c -o $@ $< - -include Makefile.dep - -############################################################################## -# Target file rules. -############################################################################## - -$(LUAJIT_A): $(LJVMCORE_O) - $(E) "AR $@" - $(Q)$(TARGET_AR) $@ $(LJVMCORE_O) - -# The dependency on _O, but linking with _DYNO is intentional. -$(LUAJIT_SO): $(LJVMCORE_O) - $(E) "DYNLINK $@" - $(Q)$(TARGET_LD) $(TARGET_ASHLDFLAGS) -o $@ $(LJVMCORE_DYNO) $(TARGET_ALIBS) - $(Q)$(TARGET_STRIP) $@ - -$(LUAJIT_T): $(TARGET_O) $(LUAJIT_O) $(TARGET_DEP) - $(E) "LINK $@" - $(Q)$(TARGET_LD) $(TARGET_ALDFLAGS) -o $@ $(LUAJIT_O) $(TARGET_O) $(TARGET_ALIBS) - $(Q)$(TARGET_STRIP) $@ - $(E) "OK Successfully built LuaJIT" - -############################################################################## diff --git a/src/3rd party/luajit-2.0-BAK/src/Makefile.dep b/src/3rd party/luajit-2.0-BAK/src/Makefile.dep deleted file mode 100644 index 9aefb236427..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/Makefile.dep +++ /dev/null @@ -1,244 +0,0 @@ -lib_aux.o: lib_aux.c lua.h luaconf.h lauxlib.h lj_obj.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_state.h lj_trace.h lj_jit.h lj_ir.h \ - lj_dispatch.h lj_bc.h lj_traceerr.h lj_lib.h lj_alloc.h -lib_base.o: lib_base.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h \ - lj_tab.h lj_meta.h lj_state.h lj_ctype.h lj_cconv.h lj_bc.h lj_ff.h \ - lj_ffdef.h lj_dispatch.h lj_jit.h lj_ir.h lj_char.h lj_strscan.h \ - lj_strfmt.h lj_lib.h lj_libdef.h -lib_bit.o: lib_bit.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_strscan.h \ - lj_strfmt.h lj_ctype.h lj_cdata.h lj_cconv.h lj_carith.h lj_ff.h \ - lj_ffdef.h lj_lib.h lj_libdef.h -lib_debug.o: lib_debug.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_lib.h \ - lj_libdef.h -lib_ffi.o: lib_ffi.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h \ - lj_ctype.h lj_cparse.h lj_cdata.h lj_cconv.h lj_carith.h lj_ccall.h \ - lj_ccallback.h lj_clib.h lj_strfmt.h lj_ff.h lj_ffdef.h lj_lib.h \ - lj_libdef.h -lib_init.o: lib_init.c lua.h luaconf.h lauxlib.h lualib.h lj_arch.h -lib_io.o: lib_io.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_state.h \ - lj_strfmt.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h -lib_jit.o: lib_jit.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h \ - lj_state.h lj_bc.h lj_ctype.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h \ - lj_target.h lj_target_*.h lj_trace.h lj_dispatch.h lj_traceerr.h \ - lj_vm.h lj_vmevent.h lj_lib.h luajit.h lj_libdef.h -lib_math.o: lib_math.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_lib.h lj_vm.h lj_libdef.h -lib_os.o: lib_os.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_lib.h \ - lj_libdef.h -lib_package.o: lib_package.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_err.h lj_errmsg.h lj_lib.h -lib_string.o: lib_string.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h \ - lj_tab.h lj_meta.h lj_state.h lj_ff.h lj_ffdef.h lj_bcdump.h lj_lex.h \ - lj_char.h lj_strfmt.h lj_lib.h lj_libdef.h -lib_table.o: lib_table.c lua.h luaconf.h lauxlib.h lualib.h lj_obj.h \ - lj_def.h lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h \ - lj_tab.h lj_ff.h lj_ffdef.h lj_lib.h lj_libdef.h -lj_alloc.o: lj_alloc.c lj_def.h lua.h luaconf.h lj_arch.h lj_alloc.h -lj_api.o: lj_api.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_tab.h lj_func.h lj_udata.h \ - lj_meta.h lj_state.h lj_bc.h lj_frame.h lj_trace.h lj_jit.h lj_ir.h \ - lj_dispatch.h lj_traceerr.h lj_vm.h lj_strscan.h lj_strfmt.h -lj_asm.o: lj_asm.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h lj_ir.h lj_jit.h \ - lj_ircall.h lj_iropt.h lj_mcode.h lj_trace.h lj_dispatch.h lj_traceerr.h \ - lj_snap.h lj_asm.h lj_vm.h lj_target.h lj_target_*.h lj_emit_*.h \ - lj_asm_*.h -lj_bc.o: lj_bc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_bc.h \ - lj_bcdef.h -lj_bcread.o: lj_bcread.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_bc.h \ - lj_ctype.h lj_cdata.h lualib.h lj_lex.h lj_bcdump.h lj_state.h \ - lj_strfmt.h -lj_bcwrite.o: lj_bcwrite.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_buf.h lj_str.h lj_bc.h lj_ctype.h lj_dispatch.h lj_jit.h \ - lj_ir.h lj_strfmt.h lj_bcdump.h lj_lex.h lj_err.h lj_errmsg.h lj_vm.h -lj_buf.o: lj_buf.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_strfmt.h -lj_carith.o: lj_carith.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_meta.h lj_ir.h lj_ctype.h \ - lj_cconv.h lj_cdata.h lj_carith.h lj_strscan.h -lj_ccall.o: lj_ccall.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_cconv.h lj_cdata.h \ - lj_ccall.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ - lj_traceerr.h -lj_ccallback.o: lj_ccallback.c lj_obj.h lua.h luaconf.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_state.h lj_frame.h \ - lj_bc.h lj_ctype.h lj_cconv.h lj_ccall.h lj_ccallback.h lj_target.h \ - lj_target_*.h lj_mcode.h lj_jit.h lj_ir.h lj_trace.h lj_dispatch.h \ - lj_traceerr.h lj_vm.h -lj_cconv.o: lj_cconv.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_gc.h lj_cdata.h lj_cconv.h \ - lj_ccallback.h -lj_cdata.o: lj_cdata.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_tab.h lj_ctype.h lj_cconv.h lj_cdata.h -lj_char.o: lj_char.c lj_char.h lj_def.h lua.h luaconf.h -lj_clib.o: lj_clib.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_tab.h lj_str.h lj_udata.h lj_ctype.h lj_cconv.h \ - lj_cdata.h lj_clib.h lj_strfmt.h -lj_cparse.o: lj_cparse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_ctype.h lj_cparse.h \ - lj_frame.h lj_bc.h lj_vm.h lj_char.h lj_strscan.h lj_strfmt.h -lj_crecord.o: lj_crecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_tab.h lj_frame.h lj_bc.h lj_ctype.h lj_gc.h \ - lj_cdata.h lj_cparse.h lj_cconv.h lj_carith.h lj_clib.h lj_ccall.h \ - lj_ff.h lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ - lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_snap.h \ - lj_crecord.h lj_strfmt.h -lj_ctype.o: lj_ctype.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_strfmt.h lj_ctype.h \ - lj_ccallback.h -lj_debug.o: lj_debug.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_debug.h lj_buf.h lj_gc.h lj_str.h lj_tab.h \ - lj_state.h lj_frame.h lj_bc.h lj_strfmt.h lj_jit.h lj_ir.h -lj_dispatch.o: lj_dispatch.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_func.h lj_tab.h \ - lj_meta.h lj_debug.h lj_state.h lj_frame.h lj_bc.h lj_ff.h lj_ffdef.h \ - lj_strfmt.h lj_jit.h lj_ir.h lj_ccallback.h lj_ctype.h lj_trace.h \ - lj_dispatch.h lj_traceerr.h lj_profile.h lj_vm.h luajit.h -lj_err.o: lj_err.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_err.h \ - lj_errmsg.h lj_debug.h lj_str.h lj_func.h lj_state.h lj_frame.h lj_bc.h \ - lj_ff.h lj_ffdef.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h \ - lj_traceerr.h lj_vm.h lj_strfmt.h -lj_ffrecord.o: lj_ffrecord.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_frame.h lj_bc.h lj_ff.h \ - lj_ffdef.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h lj_trace.h \ - lj_dispatch.h lj_traceerr.h lj_record.h lj_ffrecord.h lj_crecord.h \ - lj_vm.h lj_strscan.h lj_strfmt.h lj_recdef.h -lj_func.o: lj_func.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_func.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_bc.h \ - lj_traceerr.h lj_vm.h -lj_gc.o: lj_gc.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_func.h lj_udata.h \ - lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_cdata.h lj_trace.h \ - lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h -lj_gdbjit.o: lj_gdbjit.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_frame.h lj_bc.h lj_buf.h \ - lj_str.h lj_strfmt.h lj_jit.h lj_ir.h lj_dispatch.h -lj_ir.o: lj_ir.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_buf.h lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h lj_iropt.h \ - lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h lj_cdata.h \ - lj_carith.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lib.h -lj_lex.o: lj_lex.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_ctype.h lj_cdata.h \ - lualib.h lj_state.h lj_lex.h lj_parse.h lj_char.h lj_strscan.h \ - lj_strfmt.h -lj_lib.o: lj_lib.c lauxlib.h lua.h luaconf.h lj_obj.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_func.h lj_bc.h \ - lj_dispatch.h lj_jit.h lj_ir.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lex.h \ - lj_bcdump.h lj_lib.h -lj_load.o: lj_load.c lua.h luaconf.h lauxlib.h lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_func.h \ - lj_frame.h lj_bc.h lj_vm.h lj_lex.h lj_bcdump.h lj_parse.h -lj_mcode.o: lj_mcode.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_jit.h lj_ir.h lj_mcode.h lj_trace.h \ - lj_dispatch.h lj_bc.h lj_traceerr.h lj_vm.h -lj_meta.o: lj_meta.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_meta.h lj_frame.h \ - lj_bc.h lj_vm.h lj_strscan.h lj_strfmt.h lj_lib.h -lj_obj.o: lj_obj.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h -lj_opt_dce.o: lj_opt_dce.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_ir.h lj_jit.h lj_iropt.h -lj_opt_fold.o: lj_opt_fold.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_buf.h lj_gc.h lj_str.h lj_tab.h lj_ir.h lj_jit.h lj_ircall.h \ - lj_iropt.h lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_ctype.h \ - lj_carith.h lj_vm.h lj_strscan.h lj_strfmt.h lj_folddef.h -lj_opt_loop.o: lj_opt_loop.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_ir.h lj_jit.h \ - lj_iropt.h lj_trace.h lj_dispatch.h lj_bc.h lj_traceerr.h lj_snap.h \ - lj_vm.h -lj_opt_mem.o: lj_opt_mem.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_tab.h lj_ir.h lj_jit.h lj_iropt.h lj_ircall.h -lj_opt_narrow.o: lj_opt_narrow.c lj_obj.h lua.h luaconf.h lj_def.h \ - lj_arch.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h lj_trace.h lj_dispatch.h \ - lj_traceerr.h lj_vm.h lj_strscan.h -lj_opt_sink.o: lj_opt_sink.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_ir.h lj_jit.h lj_iropt.h lj_target.h lj_target_*.h -lj_opt_split.o: lj_opt_split.c lj_obj.h lua.h luaconf.h lj_def.h \ - lj_arch.h lj_err.h lj_errmsg.h lj_buf.h lj_gc.h lj_str.h lj_ir.h \ - lj_jit.h lj_ircall.h lj_iropt.h lj_vm.h -lj_parse.o: lj_parse.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_buf.h lj_str.h lj_tab.h \ - lj_func.h lj_state.h lj_bc.h lj_ctype.h lj_strfmt.h lj_lex.h lj_parse.h \ - lj_vm.h lj_vmevent.h -lj_profile.o: lj_profile.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_buf.h lj_gc.h lj_str.h lj_frame.h lj_bc.h lj_debug.h lj_dispatch.h \ - lj_jit.h lj_ir.h lj_trace.h lj_traceerr.h lj_profile.h luajit.h -lj_record.o: lj_record.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_err.h lj_errmsg.h lj_str.h lj_tab.h lj_meta.h lj_frame.h lj_bc.h \ - lj_ctype.h lj_gc.h lj_ff.h lj_ffdef.h lj_debug.h lj_ir.h lj_jit.h \ - lj_ircall.h lj_iropt.h lj_trace.h lj_dispatch.h lj_traceerr.h \ - lj_record.h lj_ffrecord.h lj_snap.h lj_vm.h -lj_snap.o: lj_snap.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_tab.h lj_state.h lj_frame.h lj_bc.h lj_ir.h lj_jit.h lj_iropt.h \ - lj_trace.h lj_dispatch.h lj_traceerr.h lj_snap.h lj_target.h \ - lj_target_*.h lj_ctype.h lj_cdata.h -lj_state.o: lj_state.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h lj_func.h \ - lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h lj_trace.h lj_jit.h \ - lj_ir.h lj_dispatch.h lj_traceerr.h lj_vm.h lj_lex.h lj_alloc.h luajit.h -lj_str.o: lj_str.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_str.h lj_char.h -lj_strfmt.o: lj_strfmt.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_buf.h lj_gc.h lj_str.h lj_state.h lj_char.h lj_strfmt.h -lj_strscan.o: lj_strscan.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_char.h lj_strscan.h -lj_tab.o: lj_tab.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h lj_gc.h \ - lj_err.h lj_errmsg.h lj_tab.h -lj_trace.o: lj_trace.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_err.h lj_errmsg.h lj_debug.h lj_str.h lj_frame.h lj_bc.h \ - lj_state.h lj_ir.h lj_jit.h lj_iropt.h lj_mcode.h lj_trace.h \ - lj_dispatch.h lj_traceerr.h lj_snap.h lj_gdbjit.h lj_record.h lj_asm.h \ - lj_vm.h lj_vmevent.h lj_target.h lj_target_*.h -lj_udata.o: lj_udata.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_gc.h lj_udata.h -lj_vmevent.o: lj_vmevent.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_str.h lj_tab.h lj_state.h lj_dispatch.h lj_bc.h lj_jit.h lj_ir.h \ - lj_vm.h lj_vmevent.h -lj_vmmath.o: lj_vmmath.c lj_obj.h lua.h luaconf.h lj_def.h lj_arch.h \ - lj_ir.h lj_vm.h -ljamalg.o: ljamalg.c lua.h luaconf.h lauxlib.h lj_gc.c lj_obj.h lj_def.h \ - lj_arch.h lj_gc.h lj_err.h lj_errmsg.h lj_buf.h lj_str.h lj_tab.h \ - lj_func.h lj_udata.h lj_meta.h lj_state.h lj_frame.h lj_bc.h lj_ctype.h \ - lj_cdata.h lj_trace.h lj_jit.h lj_ir.h lj_dispatch.h lj_traceerr.h \ - lj_vm.h lj_err.c lj_debug.h lj_ff.h lj_ffdef.h lj_strfmt.h lj_char.c \ - lj_char.h lj_bc.c lj_bcdef.h lj_obj.c lj_buf.c lj_str.c lj_tab.c \ - lj_func.c lj_udata.c lj_meta.c lj_strscan.h lj_lib.h lj_debug.c \ - lj_state.c lj_lex.h lj_alloc.h luajit.h lj_dispatch.c lj_ccallback.h \ - lj_profile.h lj_vmevent.c lj_vmevent.h lj_vmmath.c lj_strscan.c \ - lj_strfmt.c lj_api.c lj_profile.c lj_lex.c lualib.h lj_parse.h \ - lj_parse.c lj_bcread.c lj_bcdump.h lj_bcwrite.c lj_load.c lj_ctype.c \ - lj_cdata.c lj_cconv.h lj_cconv.c lj_ccall.c lj_ccall.h lj_ccallback.c \ - lj_target.h lj_target_*.h lj_mcode.h lj_carith.c lj_carith.h lj_clib.c \ - lj_clib.h lj_cparse.c lj_cparse.h lj_lib.c lj_ir.c lj_ircall.h \ - lj_iropt.h lj_opt_mem.c lj_opt_fold.c lj_folddef.h lj_opt_narrow.c \ - lj_opt_dce.c lj_opt_loop.c lj_snap.h lj_opt_split.c lj_opt_sink.c \ - lj_mcode.c lj_snap.c lj_record.c lj_record.h lj_ffrecord.h lj_crecord.c \ - lj_crecord.h lj_ffrecord.c lj_recdef.h lj_asm.c lj_asm.h lj_emit_*.h \ - lj_asm_*.h lj_trace.c lj_gdbjit.h lj_gdbjit.c lj_alloc.c lib_aux.c \ - lib_base.c lj_libdef.h lib_math.c lib_string.c lib_table.c lib_io.c \ - lib_os.c lib_package.c lib_debug.c lib_bit.c lib_jit.c lib_ffi.c \ - lib_init.c -luajit.o: luajit.c lua.h luaconf.h lauxlib.h lualib.h luajit.h lj_arch.h -host/buildvm.o: host/buildvm.c host/buildvm.h lj_def.h lua.h luaconf.h \ - lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_gc.h lj_obj.h lj_bc.h lj_ir.h \ - lj_ircall.h lj_ir.h lj_jit.h lj_frame.h lj_bc.h lj_dispatch.h lj_ctype.h \ - lj_gc.h lj_ccall.h lj_ctype.h luajit.h \ - host/buildvm_arch.h lj_traceerr.h -host/buildvm_asm.o: host/buildvm_asm.c host/buildvm.h lj_def.h lua.h luaconf.h \ - lj_arch.h lj_bc.h lj_def.h lj_arch.h -host/buildvm_fold.o: host/buildvm_fold.c host/buildvm.h lj_def.h lua.h \ - luaconf.h lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_ir.h lj_obj.h -host/buildvm_lib.o: host/buildvm_lib.c host/buildvm.h lj_def.h lua.h luaconf.h \ - lj_arch.h lj_obj.h lj_def.h lj_arch.h lj_bc.h lj_lib.h lj_obj.h \ - host/buildvm_libbc.h -host/buildvm_peobj.o: host/buildvm_peobj.c host/buildvm.h lj_def.h lua.h \ - luaconf.h lj_arch.h lj_bc.h lj_def.h lj_arch.h -host/minilua.o: host/minilua.c diff --git a/src/3rd party/luajit-2.0-BAK/src/host/.gitignore b/src/3rd party/luajit-2.0-BAK/src/host/.gitignore deleted file mode 100644 index 762ac2a0c6e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/.gitignore +++ /dev/null @@ -1,3 +0,0 @@ -minilua -buildvm -buildvm_arch.h diff --git a/src/3rd party/luajit-2.0-BAK/src/host/README b/src/3rd party/luajit-2.0-BAK/src/host/README deleted file mode 100644 index abfcdaa76e9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/README +++ /dev/null @@ -1,4 +0,0 @@ -The files in this directory are only used during the build process of LuaJIT. -For cross-compilation, they must be executed on the host, not on the target. - -These files should NOT be installed! diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm.c deleted file mode 100644 index c3e7dad2594..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm.c +++ /dev/null @@ -1,518 +0,0 @@ -/* -** LuaJIT VM builder. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** This is a tool to build the hand-tuned assembler code required for -** LuaJIT's bytecode interpreter. It supports a variety of output formats -** to feed different toolchains (see usage() below). -** -** This tool is not particularly optimized because it's only used while -** _building_ LuaJIT. There's no point in distributing or installing it. -** Only the object code generated by this tool is linked into LuaJIT. -** -** Caveat: some memory is not free'd, error handling is lazy. -** It's a one-shot tool -- any effort fixing this would be wasted. -*/ - -#include "buildvm.h" -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_bc.h" -#include "lj_ir.h" -#include "lj_ircall.h" -#include "lj_frame.h" -#include "lj_dispatch.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_ccall.h" -#endif -#include "luajit.h" - -#if defined(_WIN32) -#include -#include -#endif - -/* ------------------------------------------------------------------------ */ - -/* DynASM glue definitions. */ -#define Dst ctx -#define Dst_DECL BuildCtx *ctx -#define Dst_REF (ctx->D) -#define DASM_CHECKS 1 - -#include "../dynasm/dasm_proto.h" - -/* Glue macros for DynASM. */ -static int collect_reloc(BuildCtx *ctx, uint8_t *addr, int idx, int type); - -#define DASM_EXTERN(ctx, addr, idx, type) \ - collect_reloc(ctx, addr, idx, type) - -/* ------------------------------------------------------------------------ */ - -/* Avoid trouble if cross-compiling for an x86 target. Speed doesn't matter. */ -#define DASM_ALIGNED_WRITES 1 - -/* Embed architecture-specific DynASM encoder. */ -#if LJ_TARGET_X86ORX64 -#include "../dynasm/dasm_x86.h" -#elif LJ_TARGET_ARM -#include "../dynasm/dasm_arm.h" -#elif LJ_TARGET_ARM64 -#include "../dynasm/dasm_arm64.h" -#elif LJ_TARGET_PPC -#include "../dynasm/dasm_ppc.h" -#elif LJ_TARGET_MIPS -#include "../dynasm/dasm_mips.h" -#else -#error "No support for this architecture (yet)" -#endif - -/* Embed generated architecture-specific backend. */ -#include "buildvm_arch.h" - -/* ------------------------------------------------------------------------ */ - -void owrite(BuildCtx *ctx, const void *ptr, size_t sz) -{ - if (fwrite(ptr, 1, sz, ctx->fp) != sz) { - fprintf(stderr, "Error: cannot write to output file: %s\n", - strerror(errno)); - exit(1); - } -} - -/* ------------------------------------------------------------------------ */ - -/* Emit code as raw bytes. Only used for DynASM debugging. */ -static void emit_raw(BuildCtx *ctx) -{ - owrite(ctx, ctx->code, ctx->codesz); -} - -/* -- Build machine code -------------------------------------------------- */ - -static const char *sym_decorate(BuildCtx *ctx, - const char *prefix, const char *suffix) -{ - char name[256]; - char *p; -#if LJ_64 - const char *symprefix = ctx->mode == BUILD_machasm ? "_" : ""; -#elif LJ_TARGET_XBOX360 - const char *symprefix = ""; -#else - const char *symprefix = ctx->mode != BUILD_elfasm ? "_" : ""; -#endif - sprintf(name, "%s%s%s", symprefix, prefix, suffix); - p = strchr(name, '@'); - if (p) { -#if LJ_TARGET_X86ORX64 - if (!LJ_64 && (ctx->mode == BUILD_coffasm || ctx->mode == BUILD_peobj)) - name[0] = '@'; - else - *p = '\0'; -#elif LJ_TARGET_PPC && !LJ_TARGET_CONSOLE - /* Keep @plt. */ -#else - *p = '\0'; -#endif - } - p = (char *)malloc(strlen(name)+1); /* MSVC doesn't like strdup. */ - strcpy(p, name); - return p; -} - -#define NRELOCSYM (sizeof(extnames)/sizeof(extnames[0])-1) - -static int relocmap[NRELOCSYM]; - -/* Collect external relocations. */ -static int collect_reloc(BuildCtx *ctx, uint8_t *addr, int idx, int type) -{ - if (ctx->nreloc >= BUILD_MAX_RELOC) { - fprintf(stderr, "Error: too many relocations, increase BUILD_MAX_RELOC.\n"); - exit(1); - } - if (relocmap[idx] < 0) { - relocmap[idx] = ctx->nrelocsym; - ctx->relocsym[ctx->nrelocsym] = sym_decorate(ctx, "", extnames[idx]); - ctx->nrelocsym++; - } - ctx->reloc[ctx->nreloc].ofs = (int32_t)(addr - ctx->code); - ctx->reloc[ctx->nreloc].sym = relocmap[idx]; - ctx->reloc[ctx->nreloc].type = type; - ctx->nreloc++; -#if LJ_TARGET_XBOX360 - return (int)(ctx->code - addr) + 4; /* Encode symbol offset of .text. */ -#else - return 0; /* Encode symbol offset of 0. */ -#endif -} - -/* Naive insertion sort. Performance doesn't matter here. */ -static void sym_insert(BuildCtx *ctx, int32_t ofs, - const char *prefix, const char *suffix) -{ - ptrdiff_t i = ctx->nsym++; - while (i > 0) { - if (ctx->sym[i-1].ofs <= ofs) - break; - ctx->sym[i] = ctx->sym[i-1]; - i--; - } - ctx->sym[i].ofs = ofs; - ctx->sym[i].name = sym_decorate(ctx, prefix, suffix); -} - -/* Build the machine code. */ -static int build_code(BuildCtx *ctx) -{ - int status; - int i; - - /* Initialize DynASM structures. */ - ctx->nglob = GLOB__MAX; - ctx->glob = (void **)malloc(ctx->nglob*sizeof(void *)); - memset(ctx->glob, 0, ctx->nglob*sizeof(void *)); - ctx->nreloc = 0; - - ctx->globnames = globnames; - ctx->extnames = extnames; - ctx->relocsym = (const char **)malloc(NRELOCSYM*sizeof(const char *)); - ctx->nrelocsym = 0; - for (i = 0; i < (int)NRELOCSYM; i++) relocmap[i] = -1; - - ctx->dasm_ident = DASM_IDENT; - ctx->dasm_arch = DASM_ARCH; - - dasm_init(Dst, DASM_MAXSECTION); - dasm_setupglobal(Dst, ctx->glob, ctx->nglob); - dasm_setup(Dst, build_actionlist); - - /* Call arch-specific backend to emit the code. */ - ctx->npc = build_backend(ctx); - - /* Finalize the code. */ - (void)dasm_checkstep(Dst, -1); - if ((status = dasm_link(Dst, &ctx->codesz))) return status; - ctx->code = (uint8_t *)malloc(ctx->codesz); - if ((status = dasm_encode(Dst, (void *)ctx->code))) return status; - - /* Allocate symbol table and bytecode offsets. */ - ctx->beginsym = sym_decorate(ctx, "", LABEL_PREFIX "vm_asm_begin"); - ctx->sym = (BuildSym *)malloc((ctx->npc+ctx->nglob+1)*sizeof(BuildSym)); - ctx->nsym = 0; - ctx->bc_ofs = (int32_t *)malloc(ctx->npc*sizeof(int32_t)); - - /* Collect the opcodes (PC labels). */ - for (i = 0; i < ctx->npc; i++) { - int32_t ofs = dasm_getpclabel(Dst, i); - if (ofs < 0) return 0x22000000|i; - ctx->bc_ofs[i] = ofs; - if ((LJ_HASJIT || - !(i == BC_JFORI || i == BC_JFORL || i == BC_JITERL || i == BC_JLOOP || - i == BC_IFORL || i == BC_IITERL || i == BC_ILOOP)) && - (LJ_HASFFI || i != BC_KCDATA)) - sym_insert(ctx, ofs, LABEL_PREFIX_BC, bc_names[i]); - } - - /* Collect the globals (named labels). */ - for (i = 0; i < ctx->nglob; i++) { - const char *gl = globnames[i]; - int len = (int)strlen(gl); - if (!ctx->glob[i]) { - fprintf(stderr, "Error: undefined global %s\n", gl); - exit(2); - } - /* Skip the _Z symbols. */ - if (!(len >= 2 && gl[len-2] == '_' && gl[len-1] == 'Z')) - sym_insert(ctx, (int32_t)((uint8_t *)(ctx->glob[i]) - ctx->code), - LABEL_PREFIX, globnames[i]); - } - - /* Close the address range. */ - sym_insert(ctx, (int32_t)ctx->codesz, "", ""); - ctx->nsym--; - - dasm_free(Dst); - - return 0; -} - -/* -- Generate VM enums --------------------------------------------------- */ - -const char *const bc_names[] = { -#define BCNAME(name, ma, mb, mc, mt) #name, -BCDEF(BCNAME) -#undef BCNAME - NULL -}; - -const char *const ir_names[] = { -#define IRNAME(name, m, m1, m2) #name, -IRDEF(IRNAME) -#undef IRNAME - NULL -}; - -const char *const irt_names[] = { -#define IRTNAME(name, size) #name, -IRTDEF(IRTNAME) -#undef IRTNAME - NULL -}; - -const char *const irfpm_names[] = { -#define FPMNAME(name) #name, -IRFPMDEF(FPMNAME) -#undef FPMNAME - NULL -}; - -const char *const irfield_names[] = { -#define FLNAME(name, ofs) #name, -IRFLDEF(FLNAME) -#undef FLNAME - NULL -}; - -const char *const ircall_names[] = { -#define IRCALLNAME(cond, name, nargs, kind, type, flags) #name, -IRCALLDEF(IRCALLNAME) -#undef IRCALLNAME - NULL -}; - -static const char *const trace_errors[] = { -#define TREDEF(name, msg) msg, -#include "lj_traceerr.h" - NULL -}; - -static const char *lower(char *buf, const char *s) -{ - char *p = buf; - while (*s) { - *p++ = (*s >= 'A' && *s <= 'Z') ? *s+0x20 : *s; - s++; - } - *p = '\0'; - return buf; -} - -/* Emit C source code for bytecode-related definitions. */ -static void emit_bcdef(BuildCtx *ctx) -{ - int i; - fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); - fprintf(ctx->fp, "LJ_DATADEF const uint16_t lj_bc_ofs[] = {\n"); - for (i = 0; i < ctx->npc; i++) { - if (i != 0) - fprintf(ctx->fp, ",\n"); - fprintf(ctx->fp, "%d", ctx->bc_ofs[i]); - } -} - -/* Emit VM definitions as Lua code for debug modules. */ -static void emit_vmdef(BuildCtx *ctx) -{ - char buf[80]; - int i; - fprintf(ctx->fp, "-- This is a generated file. DO NOT EDIT!\n\n"); - fprintf(ctx->fp, "return {\n\n"); - - fprintf(ctx->fp, "bcnames = \""); - for (i = 0; bc_names[i]; i++) fprintf(ctx->fp, "%-6s", bc_names[i]); - fprintf(ctx->fp, "\",\n\n"); - - fprintf(ctx->fp, "irnames = \""); - for (i = 0; ir_names[i]; i++) fprintf(ctx->fp, "%-6s", ir_names[i]); - fprintf(ctx->fp, "\",\n\n"); - - fprintf(ctx->fp, "irfpm = { [0]="); - for (i = 0; irfpm_names[i]; i++) - fprintf(ctx->fp, "\"%s\", ", lower(buf, irfpm_names[i])); - fprintf(ctx->fp, "},\n\n"); - - fprintf(ctx->fp, "irfield = { [0]="); - for (i = 0; irfield_names[i]; i++) { - char *p; - lower(buf, irfield_names[i]); - p = strchr(buf, '_'); - if (p) *p = '.'; - fprintf(ctx->fp, "\"%s\", ", buf); - } - fprintf(ctx->fp, "},\n\n"); - - fprintf(ctx->fp, "ircall = {\n[0]="); - for (i = 0; ircall_names[i]; i++) - fprintf(ctx->fp, "\"%s\",\n", ircall_names[i]); - fprintf(ctx->fp, "},\n\n"); - - fprintf(ctx->fp, "traceerr = {\n[0]="); - for (i = 0; trace_errors[i]; i++) - fprintf(ctx->fp, "\"%s\",\n", trace_errors[i]); - fprintf(ctx->fp, "},\n\n"); -} - -/* -- Argument parsing ---------------------------------------------------- */ - -/* Build mode names. */ -static const char *const modenames[] = { -#define BUILDNAME(name) #name, -BUILDDEF(BUILDNAME) -#undef BUILDNAME - NULL -}; - -/* Print usage information and exit. */ -static void usage(void) -{ - int i; - fprintf(stderr, LUAJIT_VERSION " VM builder.\n"); - fprintf(stderr, LUAJIT_COPYRIGHT ", " LUAJIT_URL "\n"); - fprintf(stderr, "Target architecture: " LJ_ARCH_NAME "\n\n"); - fprintf(stderr, "Usage: buildvm -m mode [-o outfile] [infiles...]\n\n"); - fprintf(stderr, "Available modes:\n"); - for (i = 0; i < BUILD__MAX; i++) - fprintf(stderr, " %s\n", modenames[i]); - exit(1); -} - -/* Parse the output mode name. */ -static BuildMode parsemode(const char *mode) -{ - int i; - for (i = 0; modenames[i]; i++) - if (!strcmp(mode, modenames[i])) - return (BuildMode)i; - usage(); - return (BuildMode)-1; -} - -/* Parse arguments. */ -static void parseargs(BuildCtx *ctx, char **argv) -{ - const char *a; - int i; - ctx->mode = (BuildMode)-1; - ctx->outname = "-"; - for (i = 1; (a = argv[i]) != NULL; i++) { - if (a[0] != '-') - break; - switch (a[1]) { - case '-': - if (a[2]) goto err; - i++; - goto ok; - case '\0': - goto ok; - case 'm': - i++; - if (a[2] || argv[i] == NULL) goto err; - ctx->mode = parsemode(argv[i]); - break; - case 'o': - i++; - if (a[2] || argv[i] == NULL) goto err; - ctx->outname = argv[i]; - break; - default: err: - usage(); - break; - } - } -ok: - ctx->args = argv+i; - if (ctx->mode == (BuildMode)-1) goto err; -} - -int main(int argc, char **argv) -{ - BuildCtx ctx_; - BuildCtx *ctx = &ctx_; - int status, binmode; - - if (sizeof(void *) != 4*LJ_32+8*LJ_64) { - fprintf(stderr,"Error: pointer size mismatch in cross-build.\n"); - fprintf(stderr,"Try: make HOST_CC=\"gcc -m32\" CROSS=...\n\n"); - return 1; - } - - UNUSED(argc); - parseargs(ctx, argv); - - if ((status = build_code(ctx))) { - fprintf(stderr,"Error: DASM error %08x\n", status); - return 1; - } - - switch (ctx->mode) { - case BUILD_peobj: - case BUILD_raw: - binmode = 1; - break; - default: - binmode = 0; - break; - } - - if (ctx->outname[0] == '-' && ctx->outname[1] == '\0') { - ctx->fp = stdout; -#if defined(_WIN32) - if (binmode) - _setmode(_fileno(stdout), _O_BINARY); /* Yuck. */ -#endif - } else if (!(ctx->fp = fopen(ctx->outname, binmode ? "wb" : "w"))) { - fprintf(stderr, "Error: cannot open output file '%s': %s\n", - ctx->outname, strerror(errno)); - exit(1); - } - - switch (ctx->mode) { - case BUILD_elfasm: - case BUILD_coffasm: - case BUILD_machasm: - emit_asm(ctx); - emit_asm_debug(ctx); - break; - case BUILD_peobj: - emit_peobj(ctx); - break; - case BUILD_raw: - emit_raw(ctx); - break; - case BUILD_bcdef: - emit_bcdef(ctx); - emit_lib(ctx); - break; - case BUILD_vmdef: - emit_vmdef(ctx); - emit_lib(ctx); - fprintf(ctx->fp, "}\n\n"); - break; - case BUILD_ffdef: - case BUILD_libdef: - case BUILD_recdef: - emit_lib(ctx); - break; - case BUILD_folddef: - emit_fold(ctx); - break; - default: - break; - } - - fflush(ctx->fp); - if (ferror(ctx->fp)) { - fprintf(stderr, "Error: cannot write to output file: %s\n", - strerror(errno)); - exit(1); - } - fclose(ctx->fp); - - return 0; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm.h b/src/3rd party/luajit-2.0-BAK/src/host/buildvm.h deleted file mode 100644 index 5588555307e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm.h +++ /dev/null @@ -1,105 +0,0 @@ -/* -** LuaJIT VM builder. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _BUILDVM_H -#define _BUILDVM_H - -#include -#include -#include -#include -#include - -#include "lj_def.h" -#include "lj_arch.h" - -/* Hardcoded limits. Increase as needed. */ -#define BUILD_MAX_RELOC 200 /* Max. number of relocations. */ -#define BUILD_MAX_FOLD 4096 /* Max. number of fold rules. */ - -/* Prefix for scanned library definitions. */ -#define LIBDEF_PREFIX "LJLIB_" - -/* Prefix for scanned fold definitions. */ -#define FOLDDEF_PREFIX "LJFOLD" - -/* Prefixes for generated labels. */ -#define LABEL_PREFIX "lj_" -#define LABEL_PREFIX_BC LABEL_PREFIX "BC_" -#define LABEL_PREFIX_FF LABEL_PREFIX "ff_" -#define LABEL_PREFIX_CF LABEL_PREFIX "cf_" -#define LABEL_PREFIX_FFH LABEL_PREFIX "ffh_" -#define LABEL_PREFIX_LIBCF LABEL_PREFIX "lib_cf_" -#define LABEL_PREFIX_LIBINIT LABEL_PREFIX "lib_init_" - -/* Forward declaration. */ -struct dasm_State; - -/* Build modes. */ -#define BUILDDEF(_) \ - _(elfasm) _(coffasm) _(machasm) _(peobj) _(raw) \ - _(bcdef) _(ffdef) _(libdef) _(recdef) _(vmdef) \ - _(folddef) - -typedef enum { -#define BUILDENUM(name) BUILD_##name, -BUILDDEF(BUILDENUM) -#undef BUILDENUM - BUILD__MAX -} BuildMode; - -/* Code relocation. */ -typedef struct BuildReloc { - int32_t ofs; - int sym; - int type; -} BuildReloc; - -typedef struct BuildSym { - const char *name; - int32_t ofs; -} BuildSym; - -/* Build context structure. */ -typedef struct BuildCtx { - /* DynASM state pointer. Should be first member. */ - struct dasm_State *D; - /* Parsed command line. */ - BuildMode mode; - FILE *fp; - const char *outname; - char **args; - /* Code and symbols generated by DynASM. */ - uint8_t *code; - size_t codesz; - int npc, nglob, nsym, nreloc, nrelocsym; - void **glob; - BuildSym *sym; - const char **relocsym; - int32_t *bc_ofs; - const char *beginsym; - /* Strings generated by DynASM. */ - const char *const *globnames; - const char *const *extnames; - const char *dasm_ident; - const char *dasm_arch; - /* Relocations. */ - BuildReloc reloc[BUILD_MAX_RELOC]; -} BuildCtx; - -extern void owrite(BuildCtx *ctx, const void *ptr, size_t sz); -extern void emit_asm(BuildCtx *ctx); -extern void emit_peobj(BuildCtx *ctx); -extern void emit_lib(BuildCtx *ctx); -extern void emit_fold(BuildCtx *ctx); - -extern const char *const bc_names[]; -extern const char *const ir_names[]; -extern const char *const irt_names[]; -extern const char *const irfpm_names[]; -extern const char *const irfield_names[]; -extern const char *const ircall_names[]; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c deleted file mode 100644 index fe1b589a983..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_asm.c +++ /dev/null @@ -1,334 +0,0 @@ -/* -** LuaJIT VM builder: Assembler source code emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "buildvm.h" -#include "lj_bc.h" - -/* ------------------------------------------------------------------------ */ - -#if LJ_TARGET_X86ORX64 -/* Emit bytes piecewise as assembler text. */ -static void emit_asm_bytes(BuildCtx *ctx, uint8_t *p, int n) -{ - int i; - for (i = 0; i < n; i++) { - if ((i & 15) == 0) - fprintf(ctx->fp, "\t.byte %d", p[i]); - else - fprintf(ctx->fp, ",%d", p[i]); - if ((i & 15) == 15) putc('\n', ctx->fp); - } - if ((n & 15) != 0) putc('\n', ctx->fp); -} - -/* Emit relocation */ -static void emit_asm_reloc(BuildCtx *ctx, int type, const char *sym) -{ - switch (ctx->mode) { - case BUILD_elfasm: - if (type) - fprintf(ctx->fp, "\t.long %s-.-4\n", sym); - else - fprintf(ctx->fp, "\t.long %s\n", sym); - break; - case BUILD_coffasm: - fprintf(ctx->fp, "\t.def %s; .scl 3; .type 32; .endef\n", sym); - if (type) - fprintf(ctx->fp, "\t.long %s-.-4\n", sym); - else - fprintf(ctx->fp, "\t.long %s\n", sym); - break; - default: /* BUILD_machasm for relative relocations handled below. */ - fprintf(ctx->fp, "\t.long %s\n", sym); - break; - } -} - -static const char *const jccnames[] = { - "jo", "jno", "jb", "jnb", "jz", "jnz", "jbe", "ja", - "js", "jns", "jpe", "jpo", "jl", "jge", "jle", "jg" -}; - -/* Emit x86/x64 text relocations. */ -static void emit_asm_reloc_text(BuildCtx *ctx, uint8_t *cp, int n, - const char *sym) -{ - const char *opname = NULL; - if (--n < 0) goto err; - if (cp[n] == 0xe8) { - opname = "call"; - } else if (cp[n] == 0xe9) { - opname = "jmp"; - } else if (cp[n] >= 0x80 && cp[n] <= 0x8f && n > 0 && cp[n-1] == 0x0f) { - opname = jccnames[cp[n]-0x80]; - n--; - } else { -err: - fprintf(stderr, "Error: unsupported opcode for %s symbol relocation.\n", - sym); - exit(1); - } - emit_asm_bytes(ctx, cp, n); - if (strncmp(sym+(*sym == '_'), LABEL_PREFIX, sizeof(LABEL_PREFIX)-1)) { - /* Various fixups for external symbols outside of our binary. */ - if (ctx->mode == BUILD_elfasm) { - if (LJ_32) - fprintf(ctx->fp, "#if __PIC__\n\t%s lj_wrap_%s\n#else\n", opname, sym); - fprintf(ctx->fp, "\t%s %s@PLT\n", opname, sym); - if (LJ_32) - fprintf(ctx->fp, "#endif\n"); - return; - } else if (LJ_32 && ctx->mode == BUILD_machasm) { - fprintf(ctx->fp, "\t%s L%s$stub\n", opname, sym); - return; - } - } - fprintf(ctx->fp, "\t%s %s\n", opname, sym); -} -#else -/* Emit words piecewise as assembler text. */ -static void emit_asm_words(BuildCtx *ctx, uint8_t *p, int n) -{ - int i; - for (i = 0; i < n; i += 4) { - if ((i & 15) == 0) - fprintf(ctx->fp, "\t.long 0x%08x", *(uint32_t *)(p+i)); - else - fprintf(ctx->fp, ",0x%08x", *(uint32_t *)(p+i)); - if ((i & 15) == 12) putc('\n', ctx->fp); - } - if ((n & 15) != 0) putc('\n', ctx->fp); -} - -/* Emit relocation as part of an instruction. */ -static void emit_asm_wordreloc(BuildCtx *ctx, uint8_t *p, int n, - const char *sym) -{ - uint32_t ins; - emit_asm_words(ctx, p, n-4); - ins = *(uint32_t *)(p+n-4); -#if LJ_TARGET_ARM - if ((ins & 0xff000000u) == 0xfa000000u) { - fprintf(ctx->fp, "\tblx %s\n", sym); - } else if ((ins & 0x0e000000u) == 0x0a000000u) { - fprintf(ctx->fp, "\t%s%.2s %s\n", (ins & 0x01000000u) ? "bl" : "b", - &"eqnecsccmiplvsvchilsgeltgtle"[2*(ins >> 28)], sym); - } else { - fprintf(stderr, - "Error: unsupported opcode %08x for %s symbol relocation.\n", - ins, sym); - exit(1); - } -#elif LJ_TARGET_ARM64 - if ((ins >> 26) == 0x25u) { - fprintf(ctx->fp, "\tbl %s\n", sym); - } else { - fprintf(stderr, - "Error: unsupported opcode %08x for %s symbol relocation.\n", - ins, sym); - exit(1); - } -#elif LJ_TARGET_PPC -#if LJ_TARGET_PS3 -#define TOCPREFIX "." -#else -#define TOCPREFIX "" -#endif - if ((ins >> 26) == 16) { - fprintf(ctx->fp, "\t%s %d, %d, " TOCPREFIX "%s\n", - (ins & 1) ? "bcl" : "bc", (ins >> 21) & 31, (ins >> 16) & 31, sym); - } else if ((ins >> 26) == 18) { - fprintf(ctx->fp, "\t%s " TOCPREFIX "%s\n", (ins & 1) ? "bl" : "b", sym); - } else { - fprintf(stderr, - "Error: unsupported opcode %08x for %s symbol relocation.\n", - ins, sym); - exit(1); - } -#elif LJ_TARGET_MIPS - fprintf(stderr, - "Error: unsupported opcode %08x for %s symbol relocation.\n", - ins, sym); - exit(1); -#else -#error "missing relocation support for this architecture" -#endif -} -#endif - -#if LJ_TARGET_ARM -#define ELFASM_PX "%%" -#else -#define ELFASM_PX "@" -#endif - -/* Emit an assembler label. */ -static void emit_asm_label(BuildCtx *ctx, const char *name, int size, int isfunc) -{ - switch (ctx->mode) { - case BUILD_elfasm: -#if LJ_TARGET_PS3 - if (!strncmp(name, "lj_vm_", 6) && - strcmp(name, ctx->beginsym) && - !strstr(name, "hook")) { - fprintf(ctx->fp, - "\n\t.globl %s\n" - "\t.section \".opd\",\"aw\"\n" - "%s:\n" - "\t.long .%s,.TOC.@tocbase32\n" - "\t.size %s,8\n" - "\t.previous\n" - "\t.globl .%s\n" - "\t.hidden .%s\n" - "\t.type .%s, " ELFASM_PX "function\n" - "\t.size .%s, %d\n" - ".%s:\n", - name, name, name, name, name, name, name, name, size, name); - break; - } -#endif - fprintf(ctx->fp, - "\n\t.globl %s\n" - "\t.hidden %s\n" - "\t.type %s, " ELFASM_PX "%s\n" - "\t.size %s, %d\n" - "%s:\n", - name, name, name, isfunc ? "function" : "object", name, size, name); - break; - case BUILD_coffasm: - fprintf(ctx->fp, "\n\t.globl %s\n", name); - if (isfunc) - fprintf(ctx->fp, "\t.def %s; .scl 3; .type 32; .endef\n", name); - fprintf(ctx->fp, "%s:\n", name); - break; - case BUILD_machasm: - fprintf(ctx->fp, - "\n\t.private_extern %s\n" - "%s:\n", name, name); - break; - default: - break; - } -} - -/* Emit alignment. */ -static void emit_asm_align(BuildCtx *ctx, int bits) -{ - switch (ctx->mode) { - case BUILD_elfasm: - case BUILD_coffasm: - fprintf(ctx->fp, "\t.p2align %d\n", bits); - break; - case BUILD_machasm: - fprintf(ctx->fp, "\t.align %d\n", bits); - break; - default: - break; - } -} - -/* ------------------------------------------------------------------------ */ - -/* Emit assembler source code. */ -void emit_asm(BuildCtx *ctx) -{ - int i, rel; - - fprintf(ctx->fp, "\t.file \"buildvm_%s.dasc\"\n", ctx->dasm_arch); - fprintf(ctx->fp, "\t.text\n"); - emit_asm_align(ctx, 4); - -#if LJ_TARGET_PS3 - emit_asm_label(ctx, ctx->beginsym, ctx->codesz, 0); -#else - emit_asm_label(ctx, ctx->beginsym, 0, 0); -#endif - if (ctx->mode != BUILD_machasm) - fprintf(ctx->fp, ".Lbegin:\n"); - -#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND - /* This should really be moved into buildvm_arm.dasc. */ - fprintf(ctx->fp, - ".fnstart\n" - ".save {r4, r5, r6, r7, r8, r9, r10, r11, lr}\n" - ".pad #28\n"); -#endif -#if LJ_TARGET_MIPS - fprintf(ctx->fp, ".set nomips16\n.abicalls\n.set noreorder\n.set nomacro\n"); -#endif - - for (i = rel = 0; i < ctx->nsym; i++) { - int32_t ofs = ctx->sym[i].ofs; - int32_t next = ctx->sym[i+1].ofs; -#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND && LJ_HASFFI - if (!strcmp(ctx->sym[i].name, "lj_vm_ffi_call")) - fprintf(ctx->fp, - ".globl lj_err_unwind_arm\n" - ".personality lj_err_unwind_arm\n" - ".fnend\n" - ".fnstart\n" - ".save {r4, r5, r11, lr}\n" - ".setfp r11, sp\n"); -#endif - emit_asm_label(ctx, ctx->sym[i].name, next - ofs, 1); - while (rel < ctx->nreloc && ctx->reloc[rel].ofs <= next) { - BuildReloc *r = &ctx->reloc[rel]; - int n = r->ofs - ofs; -#if LJ_TARGET_X86ORX64 - if (r->type != 0 && - (ctx->mode == BUILD_elfasm || ctx->mode == BUILD_machasm)) { - emit_asm_reloc_text(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); - } else { - emit_asm_bytes(ctx, ctx->code+ofs, n); - emit_asm_reloc(ctx, r->type, ctx->relocsym[r->sym]); - } - ofs += n+4; -#else - emit_asm_wordreloc(ctx, ctx->code+ofs, n, ctx->relocsym[r->sym]); - ofs += n; -#endif - rel++; - } -#if LJ_TARGET_X86ORX64 - emit_asm_bytes(ctx, ctx->code+ofs, next-ofs); -#else - emit_asm_words(ctx, ctx->code+ofs, next-ofs); -#endif - } - -#if LJ_TARGET_ARM && defined(__GNUC__) && !LJ_NO_UNWIND - fprintf(ctx->fp, -#if !LJ_HASFFI - ".globl lj_err_unwind_arm\n" - ".personality lj_err_unwind_arm\n" -#endif - ".fnend\n"); -#endif - - fprintf(ctx->fp, "\n"); - switch (ctx->mode) { - case BUILD_elfasm: -#if !(LJ_TARGET_PS3 || LJ_TARGET_PSVITA) - fprintf(ctx->fp, "\t.section .note.GNU-stack,\"\"," ELFASM_PX "progbits\n"); -#endif -#if LJ_TARGET_PPC && !LJ_TARGET_PS3 - /* Hard-float ABI. */ - fprintf(ctx->fp, "\t.gnu_attribute 4, 1\n"); -#endif - /* fallthrough */ - case BUILD_coffasm: - fprintf(ctx->fp, "\t.ident \"%s\"\n", ctx->dasm_ident); - break; - case BUILD_machasm: - fprintf(ctx->fp, - "\t.cstring\n" - "\t.ascii \"%s\\0\"\n", ctx->dasm_ident); - break; - default: - break; - } - fprintf(ctx->fp, "\n"); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c deleted file mode 100644 index daed7eccb22..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_fold.c +++ /dev/null @@ -1,229 +0,0 @@ -/* -** LuaJIT VM builder: IR folding hash table generator. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "buildvm.h" -#include "lj_obj.h" -#include "lj_ir.h" - -/* Context for the folding hash table generator. */ -static int lineno; -static int funcidx; -static uint32_t foldkeys[BUILD_MAX_FOLD]; -static uint32_t nkeys; - -/* Try to fill the hash table with keys using the hash parameters. */ -static int tryhash(uint32_t *htab, uint32_t sz, uint32_t r, int dorol) -{ - uint32_t i; - if (dorol && ((r & 31) == 0 || (r>>5) == 0)) - return 0; /* Avoid zero rotates. */ - memset(htab, 0xff, (sz+1)*sizeof(uint32_t)); - for (i = 0; i < nkeys; i++) { - uint32_t key = foldkeys[i]; - uint32_t k = key & 0xffffff; - uint32_t h = (dorol ? lj_rol(lj_rol(k, r>>5) - k, r&31) : - (((k << (r>>5)) - k) << (r&31))) % sz; - if (htab[h] != 0xffffffff) { /* Collision on primary slot. */ - if (htab[h+1] != 0xffffffff) { /* Collision on secondary slot. */ - /* Try to move the colliding key, if possible. */ - if (h < sz-1 && htab[h+2] == 0xffffffff) { - uint32_t k2 = htab[h+1] & 0xffffff; - uint32_t h2 = (dorol ? lj_rol(lj_rol(k2, r>>5) - k2, r&31) : - (((k2 << (r>>5)) - k2) << (r&31))) % sz; - if (h2 != h+1) return 0; /* Cannot resolve collision. */ - htab[h+2] = htab[h+1]; /* Move colliding key to secondary slot. */ - } else { - return 0; /* Collision. */ - } - } - htab[h+1] = key; - } else { - htab[h] = key; - } - } - return 1; /* Success, all keys could be stored. */ -} - -/* Print the generated hash table. */ -static void printhash(BuildCtx *ctx, uint32_t *htab, uint32_t sz) -{ - uint32_t i; - fprintf(ctx->fp, "static const uint32_t fold_hash[%d] = {\n0x%08x", - sz+1, htab[0]); - for (i = 1; i < sz+1; i++) - fprintf(ctx->fp, ",\n0x%08x", htab[i]); - fprintf(ctx->fp, "\n};\n\n"); -} - -/* Exhaustive search for the shortest semi-perfect hash table. */ -static void makehash(BuildCtx *ctx) -{ - uint32_t htab[BUILD_MAX_FOLD*2+1]; - uint32_t sz, r; - /* Search for the smallest hash table with an odd size. */ - for (sz = (nkeys|1); sz < BUILD_MAX_FOLD*2; sz += 2) { - /* First try all shift hash combinations. */ - for (r = 0; r < 32*32; r++) { - if (tryhash(htab, sz, r, 0)) { - printhash(ctx, htab, sz); - fprintf(ctx->fp, - "#define fold_hashkey(k)\t(((((k)<<%u)-(k))<<%u)%%%u)\n\n", - r>>5, r&31, sz); - return; - } - } - /* Then try all rotate hash combinations. */ - for (r = 0; r < 32*32; r++) { - if (tryhash(htab, sz, r, 1)) { - printhash(ctx, htab, sz); - fprintf(ctx->fp, - "#define fold_hashkey(k)\t(lj_rol(lj_rol((k),%u)-(k),%u)%%%u)\n\n", - r>>5, r&31, sz); - return; - } - } - } - fprintf(stderr, "Error: search for perfect hash failed\n"); - exit(1); -} - -/* Parse one token of a fold rule. */ -static uint32_t nexttoken(char **pp, int allowlit, int allowany) -{ - char *p = *pp; - if (p) { - uint32_t i; - char *q = strchr(p, ' '); - if (q) *q++ = '\0'; - *pp = q; - if (allowlit && !strncmp(p, "IRFPM_", 6)) { - for (i = 0; irfpm_names[i]; i++) - if (!strcmp(irfpm_names[i], p+6)) - return i; - } else if (allowlit && !strncmp(p, "IRFL_", 5)) { - for (i = 0; irfield_names[i]; i++) - if (!strcmp(irfield_names[i], p+5)) - return i; - } else if (allowlit && !strncmp(p, "IRCALL_", 7)) { - for (i = 0; ircall_names[i]; i++) - if (!strcmp(ircall_names[i], p+7)) - return i; - } else if (allowlit && !strncmp(p, "IRCONV_", 7)) { - for (i = 0; irt_names[i]; i++) { - const char *r = strchr(p+7, '_'); - if (r && !strncmp(irt_names[i], p+7, r-(p+7))) { - uint32_t j; - for (j = 0; irt_names[j]; j++) - if (!strcmp(irt_names[j], r+1)) - return (i << 5) + j; - } - } - } else if (allowlit && *p >= '0' && *p <= '9') { - for (i = 0; *p >= '0' && *p <= '9'; p++) - i = i*10 + (*p - '0'); - if (*p == '\0') - return i; - } else if (allowany && !strcmp("any", p)) { - return allowany; - } else { - for (i = 0; ir_names[i]; i++) - if (!strcmp(ir_names[i], p)) - return i; - } - fprintf(stderr, "Error: bad fold definition token \"%s\" at line %d\n", p, lineno); - exit(1); - } - return 0; -} - -/* Parse a fold rule. */ -static void foldrule(char *p) -{ - uint32_t op = nexttoken(&p, 0, 0); - uint32_t left = nexttoken(&p, 0, 0x7f); - uint32_t right = nexttoken(&p, 1, 0x3ff); - uint32_t key = (funcidx << 24) | (op << 17) | (left << 10) | right; - uint32_t i; - if (nkeys >= BUILD_MAX_FOLD) { - fprintf(stderr, "Error: too many fold rules, increase BUILD_MAX_FOLD.\n"); - exit(1); - } - /* Simple insertion sort to detect duplicates. */ - for (i = nkeys; i > 0; i--) { - if ((foldkeys[i-1]&0xffffff) < (key & 0xffffff)) - break; - if ((foldkeys[i-1]&0xffffff) == (key & 0xffffff)) { - fprintf(stderr, "Error: duplicate fold definition at line %d\n", lineno); - exit(1); - } - foldkeys[i] = foldkeys[i-1]; - } - foldkeys[i] = key; - nkeys++; -} - -/* Emit C source code for IR folding hash table. */ -void emit_fold(BuildCtx *ctx) -{ - char buf[256]; /* We don't care about analyzing lines longer than that. */ - const char *fname = ctx->args[0]; - FILE *fp; - - if (fname == NULL) { - fprintf(stderr, "Error: missing input filename\n"); - exit(1); - } - - if (fname[0] == '-' && fname[1] == '\0') { - fp = stdin; - } else { - fp = fopen(fname, "r"); - if (!fp) { - fprintf(stderr, "Error: cannot open input file '%s': %s\n", - fname, strerror(errno)); - exit(1); - } - } - - fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); - fprintf(ctx->fp, "static const FoldFunc fold_func[] = {\n"); - - lineno = 0; - funcidx = 0; - nkeys = 0; - while (fgets(buf, sizeof(buf), fp) != NULL) { - lineno++; - /* The prefix must be at the start of a line, otherwise it's ignored. */ - if (!strncmp(buf, FOLDDEF_PREFIX, sizeof(FOLDDEF_PREFIX)-1)) { - char *p = buf+sizeof(FOLDDEF_PREFIX)-1; - char *q = strchr(p, ')'); - if (p[0] == '(' && q) { - p++; - *q = '\0'; - foldrule(p); - } else if ((p[0] == 'F' || p[0] == 'X') && p[1] == '(' && q) { - p += 2; - *q = '\0'; - if (funcidx) - fprintf(ctx->fp, ",\n"); - if (p[-2] == 'X') - fprintf(ctx->fp, " %s", p); - else - fprintf(ctx->fp, " fold_%s", p); - funcidx++; - } else { - buf[strlen(buf)-1] = '\0'; - fprintf(stderr, "Error: unknown fold definition tag %s%s at line %d\n", - FOLDDEF_PREFIX, p, lineno); - exit(1); - } - } - } - fclose(fp); - fprintf(ctx->fp, "\n};\n\n"); - - makehash(ctx); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c deleted file mode 100644 index e928673d4e0..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_lib.c +++ /dev/null @@ -1,457 +0,0 @@ -/* -** LuaJIT VM builder: library definition compiler. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "buildvm.h" -#include "lj_obj.h" -#include "lj_bc.h" -#include "lj_lib.h" -#include "buildvm_libbc.h" - -/* Context for library definitions. */ -static uint8_t obuf[8192]; -static uint8_t *optr; -static char modname[80]; -static size_t modnamelen; -static char funcname[80]; -static int modstate, regfunc; -static int ffid, recffid, ffasmfunc; - -enum { - REGFUNC_OK, - REGFUNC_NOREG, - REGFUNC_NOREGUV -}; - -static void libdef_name(const char *p, int kind) -{ - size_t n = strlen(p); - if (kind != LIBINIT_STRING) { - if (n > modnamelen && p[modnamelen] == '_' && - !strncmp(p, modname, modnamelen)) { - p += modnamelen+1; - n -= modnamelen+1; - } - } - if (n > LIBINIT_MAXSTR) { - fprintf(stderr, "Error: string too long: '%s'\n", p); - exit(1); - } - if (optr+1+n+2 > obuf+sizeof(obuf)) { /* +2 for caller. */ - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - *optr++ = (uint8_t)(n | kind); - memcpy(optr, p, n); - optr += n; -} - -static void libdef_endmodule(BuildCtx *ctx) -{ - if (modstate != 0) { - char line[80]; - const uint8_t *p; - int n; - if (modstate == 1) - fprintf(ctx->fp, " (lua_CFunction)0"); - fprintf(ctx->fp, "\n};\n"); - fprintf(ctx->fp, "static const uint8_t %s%s[] = {\n", - LABEL_PREFIX_LIBINIT, modname); - line[0] = '\0'; - for (n = 0, p = obuf; p < optr; p++) { - n += sprintf(line+n, "%d,", *p); - if (n >= 75) { - fprintf(ctx->fp, "%s\n", line); - n = 0; - line[0] = '\0'; - } - } - fprintf(ctx->fp, "%s%d\n};\n#endif\n\n", line, LIBINIT_END); - } -} - -static void libdef_module(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(arg); - if (ctx->mode == BUILD_libdef) { - libdef_endmodule(ctx); - optr = obuf; - *optr++ = (uint8_t)ffid; - *optr++ = (uint8_t)ffasmfunc; - *optr++ = 0; /* Hash table size. */ - modstate = 1; - fprintf(ctx->fp, "#ifdef %sMODULE_%s\n", LIBDEF_PREFIX, p); - fprintf(ctx->fp, "#undef %sMODULE_%s\n", LIBDEF_PREFIX, p); - fprintf(ctx->fp, "static const lua_CFunction %s%s[] = {\n", - LABEL_PREFIX_LIBCF, p); - } - modnamelen = strlen(p); - if (modnamelen > sizeof(modname)-1) { - fprintf(stderr, "Error: module name too long: '%s'\n", p); - exit(1); - } - strcpy(modname, p); -} - -static int find_ffofs(BuildCtx *ctx, const char *name) -{ - int i; - for (i = 0; i < ctx->nglob; i++) { - const char *gl = ctx->globnames[i]; - if (gl[0] == 'f' && gl[1] == 'f' && gl[2] == '_' && !strcmp(gl+3, name)) { - return (int)((uint8_t *)ctx->glob[i] - ctx->code); - } - } - fprintf(stderr, "Error: undefined fast function %s%s\n", - LABEL_PREFIX_FF, name); - exit(1); -} - -static void libdef_func(BuildCtx *ctx, char *p, int arg) -{ - if (arg != LIBINIT_CF) - ffasmfunc++; - if (ctx->mode == BUILD_libdef) { - if (modstate == 0) { - fprintf(stderr, "Error: no module for function definition %s\n", p); - exit(1); - } - if (regfunc == REGFUNC_NOREG) { - if (optr+1 > obuf+sizeof(obuf)) { - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - *optr++ = LIBINIT_FFID; - } else { - if (arg != LIBINIT_ASM_) { - if (modstate != 1) fprintf(ctx->fp, ",\n"); - modstate = 2; - fprintf(ctx->fp, " %s%s", arg ? LABEL_PREFIX_FFH : LABEL_PREFIX_CF, p); - } - if (regfunc != REGFUNC_NOREGUV) obuf[2]++; /* Bump hash table size. */ - libdef_name(regfunc == REGFUNC_NOREGUV ? "" : p, arg); - } - } else if (ctx->mode == BUILD_ffdef) { - fprintf(ctx->fp, "FFDEF(%s)\n", p); - } else if (ctx->mode == BUILD_recdef) { - if (strlen(p) > sizeof(funcname)-1) { - fprintf(stderr, "Error: function name too long: '%s'\n", p); - exit(1); - } - strcpy(funcname, p); - } else if (ctx->mode == BUILD_vmdef) { - int i; - for (i = 1; p[i] && modname[i-1]; i++) - if (p[i] == '_') p[i] = '.'; - fprintf(ctx->fp, "\"%s\",\n", p); - } else if (ctx->mode == BUILD_bcdef) { - if (arg != LIBINIT_CF) - fprintf(ctx->fp, ",\n%d", find_ffofs(ctx, p)); - } - ffid++; - regfunc = REGFUNC_OK; -} - -static uint8_t *libdef_uleb128(uint8_t *p, uint32_t *vv) -{ - uint32_t v = *p++; - if (v >= 0x80) { - int sh = 0; v &= 0x7f; - do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); - } - *vv = v; - return p; -} - -static void libdef_fixupbc(uint8_t *p) -{ - uint32_t i, sizebc; - p += 4; - p = libdef_uleb128(p, &sizebc); - p = libdef_uleb128(p, &sizebc); - p = libdef_uleb128(p, &sizebc); - for (i = 0; i < sizebc; i++, p += 4) { - uint8_t op = p[libbc_endian ? 3 : 0]; - uint8_t ra = p[libbc_endian ? 2 : 1]; - uint8_t rc = p[libbc_endian ? 1 : 2]; - uint8_t rb = p[libbc_endian ? 0 : 3]; - if (!LJ_DUALNUM && op == BC_ISTYPE && rc == ~LJ_TNUMX+1) { - op = BC_ISNUM; rc++; - } - p[LJ_ENDIAN_SELECT(0, 3)] = op; - p[LJ_ENDIAN_SELECT(1, 2)] = ra; - p[LJ_ENDIAN_SELECT(2, 1)] = rc; - p[LJ_ENDIAN_SELECT(3, 0)] = rb; - } -} - -static void libdef_lua(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(arg); - if (ctx->mode == BUILD_libdef) { - int i; - for (i = 0; libbc_map[i].name != NULL; i++) { - if (!strcmp(libbc_map[i].name, p)) { - int ofs = libbc_map[i].ofs; - int len = libbc_map[i+1].ofs - ofs; - obuf[2]++; /* Bump hash table size. */ - *optr++ = LIBINIT_LUA; - libdef_name(p, 0); - memcpy(optr, libbc_code + ofs, len); - libdef_fixupbc(optr); - optr += len; - return; - } - } - fprintf(stderr, "Error: missing libbc definition for %s\n", p); - exit(1); - } -} - -static uint32_t find_rec(char *name) -{ - char *p = (char *)obuf; - uint32_t n; - for (n = 2; *p; n++) { - if (strcmp(p, name) == 0) - return n; - p += strlen(p)+1; - } - if (p+strlen(name)+1 >= (char *)obuf+sizeof(obuf)) { - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - strcpy(p, name); - return n; -} - -static void libdef_rec(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(arg); - if (ctx->mode == BUILD_recdef) { - char *q; - uint32_t n; - for (; recffid+1 < ffid; recffid++) - fprintf(ctx->fp, ",\n0"); - recffid = ffid; - if (*p == '.') p = funcname; - q = strchr(p, ' '); - if (q) *q++ = '\0'; - n = find_rec(p); - if (q) - fprintf(ctx->fp, ",\n0x%02x00+(%s)", n, q); - else - fprintf(ctx->fp, ",\n0x%02x00", n); - } -} - -static void memcpy_endian(void *dst, void *src, size_t n) -{ - union { uint8_t b; uint32_t u; } host_endian; - host_endian.u = 1; - if (host_endian.b == LJ_ENDIAN_SELECT(1, 0)) { - memcpy(dst, src, n); - } else { - size_t i; - for (i = 0; i < n; i++) - ((uint8_t *)dst)[i] = ((uint8_t *)src)[n-i-1]; - } -} - -static void libdef_push(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(arg); - if (ctx->mode == BUILD_libdef) { - int len = (int)strlen(p); - if (*p == '"') { - if (len > 1 && p[len-1] == '"') { - p[len-1] = '\0'; - libdef_name(p+1, LIBINIT_STRING); - return; - } - } else if (*p >= '0' && *p <= '9') { - char *ep; - double d = strtod(p, &ep); - if (*ep == '\0') { - if (optr+1+sizeof(double) > obuf+sizeof(obuf)) { - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - *optr++ = LIBINIT_NUMBER; - memcpy_endian(optr, &d, sizeof(double)); - optr += sizeof(double); - return; - } - } else if (!strcmp(p, "lastcl")) { - if (optr+1 > obuf+sizeof(obuf)) { - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - *optr++ = LIBINIT_LASTCL; - return; - } else if (len > 4 && !strncmp(p, "top-", 4)) { - if (optr+2 > obuf+sizeof(obuf)) { - fprintf(stderr, "Error: output buffer overflow\n"); - exit(1); - } - *optr++ = LIBINIT_COPY; - *optr++ = (uint8_t)atoi(p+4); - return; - } - fprintf(stderr, "Error: bad value for %sPUSH(%s)\n", LIBDEF_PREFIX, p); - exit(1); - } -} - -static void libdef_set(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(arg); - if (ctx->mode == BUILD_libdef) { - if (p[0] == '!' && p[1] == '\0') p[0] = '\0'; /* Set env. */ - libdef_name(p, LIBINIT_STRING); - *optr++ = LIBINIT_SET; - obuf[2]++; /* Bump hash table size. */ - } -} - -static void libdef_regfunc(BuildCtx *ctx, char *p, int arg) -{ - UNUSED(ctx); UNUSED(p); - regfunc = arg; -} - -typedef void (*LibDefFunc)(BuildCtx *ctx, char *p, int arg); - -typedef struct LibDefHandler { - const char *suffix; - const char *stop; - const LibDefFunc func; - const int arg; -} LibDefHandler; - -static const LibDefHandler libdef_handlers[] = { - { "MODULE_", " \t\r\n", libdef_module, 0 }, - { "CF(", ")", libdef_func, LIBINIT_CF }, - { "ASM(", ")", libdef_func, LIBINIT_ASM }, - { "ASM_(", ")", libdef_func, LIBINIT_ASM_ }, - { "LUA(", ")", libdef_lua, 0 }, - { "REC(", ")", libdef_rec, 0 }, - { "PUSH(", ")", libdef_push, 0 }, - { "SET(", ")", libdef_set, 0 }, - { "NOREGUV", NULL, libdef_regfunc, REGFUNC_NOREGUV }, - { "NOREG", NULL, libdef_regfunc, REGFUNC_NOREG }, - { NULL, NULL, (LibDefFunc)0, 0 } -}; - -/* Emit C source code for library function definitions. */ -void emit_lib(BuildCtx *ctx) -{ - const char *fname; - - if (ctx->mode == BUILD_ffdef || ctx->mode == BUILD_libdef || - ctx->mode == BUILD_recdef) - fprintf(ctx->fp, "/* This is a generated file. DO NOT EDIT! */\n\n"); - else if (ctx->mode == BUILD_vmdef) - fprintf(ctx->fp, "ffnames = {\n[0]=\"Lua\",\n\"C\",\n"); - if (ctx->mode == BUILD_recdef) - fprintf(ctx->fp, "static const uint16_t recff_idmap[] = {\n0,\n0x0100"); - recffid = ffid = FF_C+1; - ffasmfunc = 0; - - while ((fname = *ctx->args++)) { - char buf[256]; /* We don't care about analyzing lines longer than that. */ - FILE *fp; - if (fname[0] == '-' && fname[1] == '\0') { - fp = stdin; - } else { - fp = fopen(fname, "r"); - if (!fp) { - fprintf(stderr, "Error: cannot open input file '%s': %s\n", - fname, strerror(errno)); - exit(1); - } - } - modstate = 0; - regfunc = REGFUNC_OK; - while (fgets(buf, sizeof(buf), fp) != NULL) { - char *p; - /* Simplistic pre-processor. Only handles top-level #if/#endif. */ - if (buf[0] == '#' && buf[1] == 'i' && buf[2] == 'f') { - int ok = 1; - if (!strcmp(buf, "#if LJ_52\n")) - ok = LJ_52; - else if (!strcmp(buf, "#if LJ_HASJIT\n")) - ok = LJ_HASJIT; - else if (!strcmp(buf, "#if LJ_HASFFI\n")) - ok = LJ_HASFFI; - if (!ok) { - int lvl = 1; - while (fgets(buf, sizeof(buf), fp) != NULL) { - if (buf[0] == '#' && buf[1] == 'e' && buf[2] == 'n') { - if (--lvl == 0) break; - } else if (buf[0] == '#' && buf[1] == 'i' && buf[2] == 'f') { - lvl++; - } - } - continue; - } - } - for (p = buf; (p = strstr(p, LIBDEF_PREFIX)) != NULL; ) { - const LibDefHandler *ldh; - p += sizeof(LIBDEF_PREFIX)-1; - for (ldh = libdef_handlers; ldh->suffix != NULL; ldh++) { - size_t n, len = strlen(ldh->suffix); - if (!strncmp(p, ldh->suffix, len)) { - p += len; - n = ldh->stop ? strcspn(p, ldh->stop) : 0; - if (!p[n]) break; - p[n] = '\0'; - ldh->func(ctx, p, ldh->arg); - p += n+1; - break; - } - } - if (ldh->suffix == NULL) { - buf[strlen(buf)-1] = '\0'; - fprintf(stderr, "Error: unknown library definition tag %s%s\n", - LIBDEF_PREFIX, p); - exit(1); - } - } - } - fclose(fp); - if (ctx->mode == BUILD_libdef) { - libdef_endmodule(ctx); - } - } - - if (ctx->mode == BUILD_ffdef) { - fprintf(ctx->fp, "\n#undef FFDEF\n\n"); - fprintf(ctx->fp, - "#ifndef FF_NUM_ASMFUNC\n#define FF_NUM_ASMFUNC %d\n#endif\n\n", - ffasmfunc); - } else if (ctx->mode == BUILD_vmdef) { - fprintf(ctx->fp, "},\n\n"); - } else if (ctx->mode == BUILD_bcdef) { - int i; - fprintf(ctx->fp, "\n};\n\n"); - fprintf(ctx->fp, "LJ_DATADEF const uint16_t lj_bc_mode[] = {\n"); - fprintf(ctx->fp, "BCDEF(BCMODE)\n"); - for (i = ffasmfunc-1; i > 0; i--) - fprintf(ctx->fp, "BCMODE_FF,\n"); - fprintf(ctx->fp, "BCMODE_FF\n};\n\n"); - } else if (ctx->mode == BUILD_recdef) { - char *p = (char *)obuf; - fprintf(ctx->fp, "\n};\n\n"); - fprintf(ctx->fp, "static const RecordFunc recff_func[] = {\n" - "recff_nyi,\n" - "recff_c"); - while (*p) { - fprintf(ctx->fp, ",\nrecff_%s", p); - p += strlen(p)+1; - } - fprintf(ctx->fp, "\n};\n\n"); - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h deleted file mode 100644 index 45f8f8cbdf2..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_libbc.h +++ /dev/null @@ -1,45 +0,0 @@ -/* This is a generated file. DO NOT EDIT! */ - -static const int libbc_endian = 0; - -static const uint8_t libbc_code[] = { -#if LJ_FR2 -0,1,2,0,0,1,2,24,1,0,0,76,1,2,0,241,135,158,166,3,220,203,178,130,4,0,1,2,0, -0,1,2,24,1,0,0,76,1,2,0,243,244,148,165,20,198,190,199,252,3,0,1,2,0,0,0,3, -16,0,5,0,21,1,0,0,76,1,2,0,0,2,10,0,0,0,15,16,0,12,0,16,1,9,0,41,2,1,0,21,3, -0,0,41,4,1,0,77,2,8,128,18,6,1,0,18,8,5,0,59,9,5,0,66,6,3,2,10,6,0,0,88,7,1, -128,76,6,2,0,79,2,248,127,75,0,1,0,0,2,11,0,0,0,16,16,0,12,0,16,1,9,0,43,2, -0,0,18,3,0,0,41,4,0,0,88,5,7,128,18,7,1,0,18,9,5,0,18,10,6,0,66,7,3,2,10,7, -0,0,88,8,1,128,76,7,2,0,70,5,3,3,82,5,247,127,75,0,1,0,0,1,2,0,0,0,3,16,0,12, -0,21,1,0,0,76,1,2,0,0,2,10,0,0,2,30,16,0,12,0,21,2,0,0,11,1,0,0,88,3,7,128, -8,2,0,0,88,3,23,128,59,3,2,0,43,4,0,0,64,4,2,0,76,3,2,0,88,3,18,128,16,1,14, -0,41,3,1,0,3,3,1,0,88,3,14,128,3,1,2,0,88,3,12,128,59,3,1,0,22,4,1,1,18,5,2, -0,41,6,1,0,77,4,4,128,23,8,1,7,59,9,7,0,64,9,8,0,79,4,252,127,43,4,0,0,64,4, -2,0,76,3,2,0,75,0,1,0,0,2,0 -#else -0,1,2,0,0,1,2,24,1,0,0,76,1,2,0,241,135,158,166,3,220,203,178,130,4,0,1,2,0, -0,1,2,24,1,0,0,76,1,2,0,243,244,148,165,20,198,190,199,252,3,0,1,2,0,0,0,3, -16,0,5,0,21,1,0,0,76,1,2,0,0,2,9,0,0,0,15,16,0,12,0,16,1,9,0,41,2,1,0,21,3, -0,0,41,4,1,0,77,2,8,128,18,6,1,0,18,7,5,0,59,8,5,0,66,6,3,2,10,6,0,0,88,7,1, -128,76,6,2,0,79,2,248,127,75,0,1,0,0,2,10,0,0,0,16,16,0,12,0,16,1,9,0,43,2, -0,0,18,3,0,0,41,4,0,0,88,5,7,128,18,7,1,0,18,8,5,0,18,9,6,0,66,7,3,2,10,7,0, -0,88,8,1,128,76,7,2,0,70,5,3,3,82,5,247,127,75,0,1,0,0,1,2,0,0,0,3,16,0,12, -0,21,1,0,0,76,1,2,0,0,2,10,0,0,2,30,16,0,12,0,21,2,0,0,11,1,0,0,88,3,7,128, -8,2,0,0,88,3,23,128,59,3,2,0,43,4,0,0,64,4,2,0,76,3,2,0,88,3,18,128,16,1,14, -0,41,3,1,0,3,3,1,0,88,3,14,128,3,1,2,0,88,3,12,128,59,3,1,0,22,4,1,1,18,5,2, -0,41,6,1,0,77,4,4,128,23,8,1,7,59,9,7,0,64,9,8,0,79,4,252,127,43,4,0,0,64,4, -2,0,76,3,2,0,75,0,1,0,0,2,0 -#endif -}; - -static const struct { const char *name; int ofs; } libbc_map[] = { -{"math_deg",0}, -{"math_rad",25}, -{"string_len",50}, -{"table_foreachi",69}, -{"table_foreach",136}, -{"table_getn",207}, -{"table_remove",226}, -{NULL,355} -}; - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c b/src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c deleted file mode 100644 index 4279f50050b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/buildvm_peobj.c +++ /dev/null @@ -1,368 +0,0 @@ -/* -** LuaJIT VM builder: PE object emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Only used for building on Windows, since we cannot assume the presence -** of a suitable assembler. The host and target byte order must match. -*/ - -#include "buildvm.h" -#include "lj_bc.h" - -#if LJ_TARGET_X86ORX64 || LJ_TARGET_PPC - -/* Context for PE object emitter. */ -static char *strtab; -static size_t strtabofs; - -/* -- PE object definitions ----------------------------------------------- */ - -/* PE header. */ -typedef struct PEheader { - uint16_t arch; - uint16_t nsects; - uint32_t time; - uint32_t symtabofs; - uint32_t nsyms; - uint16_t opthdrsz; - uint16_t flags; -} PEheader; - -/* PE section. */ -typedef struct PEsection { - char name[8]; - uint32_t vsize; - uint32_t vaddr; - uint32_t size; - uint32_t ofs; - uint32_t relocofs; - uint32_t lineofs; - uint16_t nreloc; - uint16_t nline; - uint32_t flags; -} PEsection; - -/* PE relocation. */ -typedef struct PEreloc { - uint32_t vaddr; - uint32_t symidx; - uint16_t type; -} PEreloc; - -/* Cannot use sizeof, because it pads up to the max. alignment. */ -#define PEOBJ_RELOC_SIZE (4+4+2) - -/* PE symbol table entry. */ -typedef struct PEsym { - union { - char name[8]; - uint32_t nameref[2]; - } n; - uint32_t value; - int16_t sect; - uint16_t type; - uint8_t scl; - uint8_t naux; -} PEsym; - -/* PE symbol table auxiliary entry for a section. */ -typedef struct PEsymaux { - uint32_t size; - uint16_t nreloc; - uint16_t nline; - uint32_t cksum; - uint16_t assoc; - uint8_t comdatsel; - uint8_t unused[3]; -} PEsymaux; - -/* Cannot use sizeof, because it pads up to the max. alignment. */ -#define PEOBJ_SYM_SIZE (8+4+2+2+1+1) - -/* PE object CPU specific defines. */ -#if LJ_TARGET_X86 -#define PEOBJ_ARCH_TARGET 0x014c -#define PEOBJ_RELOC_REL32 0x14 /* MS: REL32, GNU: DISP32. */ -#define PEOBJ_RELOC_DIR32 0x06 -#define PEOBJ_RELOC_OFS 0 -#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */ -#elif LJ_TARGET_X64 -#define PEOBJ_ARCH_TARGET 0x8664 -#define PEOBJ_RELOC_REL32 0x04 /* MS: REL32, GNU: DISP32. */ -#define PEOBJ_RELOC_DIR32 0x02 -#define PEOBJ_RELOC_ADDR32NB 0x03 -#define PEOBJ_RELOC_OFS 0 -#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */ -#elif LJ_TARGET_PPC -#define PEOBJ_ARCH_TARGET 0x01f2 -#define PEOBJ_RELOC_REL32 0x06 -#define PEOBJ_RELOC_DIR32 0x02 -#define PEOBJ_RELOC_OFS (-4) -#define PEOBJ_TEXT_FLAGS 0x60400020 /* 60=r+x, 40=align8, 20=code. */ -#endif - -/* Section numbers (0-based). */ -enum { - PEOBJ_SECT_ABS = -2, - PEOBJ_SECT_UNDEF = -1, - PEOBJ_SECT_TEXT, -#if LJ_TARGET_X64 - PEOBJ_SECT_PDATA, - PEOBJ_SECT_XDATA, -#endif - PEOBJ_SECT_RDATA_Z, - PEOBJ_NSECTIONS -}; - -/* Symbol types. */ -#define PEOBJ_TYPE_NULL 0 -#define PEOBJ_TYPE_FUNC 0x20 - -/* Symbol storage class. */ -#define PEOBJ_SCL_EXTERN 2 -#define PEOBJ_SCL_STATIC 3 - -/* -- PE object emitter --------------------------------------------------- */ - -/* Emit PE object symbol. */ -static void emit_peobj_sym(BuildCtx *ctx, const char *name, uint32_t value, - int sect, int type, int scl) -{ - PEsym sym; - size_t len = strlen(name); - if (!strtab) { /* Pass 1: only calculate string table length. */ - if (len > 8) strtabofs += len+1; - return; - } - if (len <= 8) { - memcpy(sym.n.name, name, len); - memset(sym.n.name+len, 0, 8-len); - } else { - sym.n.nameref[0] = 0; - sym.n.nameref[1] = (uint32_t)strtabofs; - memcpy(strtab + strtabofs, name, len); - strtab[strtabofs+len] = 0; - strtabofs += len+1; - } - sym.value = value; - sym.sect = (int16_t)(sect+1); /* 1-based section number. */ - sym.type = (uint16_t)type; - sym.scl = (uint8_t)scl; - sym.naux = 0; - owrite(ctx, &sym, PEOBJ_SYM_SIZE); -} - -/* Emit PE object section symbol. */ -static void emit_peobj_sym_sect(BuildCtx *ctx, PEsection *pesect, int sect) -{ - PEsym sym; - PEsymaux aux; - if (!strtab) return; /* Pass 1: no output. */ - memcpy(sym.n.name, pesect[sect].name, 8); - sym.value = 0; - sym.sect = (int16_t)(sect+1); /* 1-based section number. */ - sym.type = PEOBJ_TYPE_NULL; - sym.scl = PEOBJ_SCL_STATIC; - sym.naux = 1; - owrite(ctx, &sym, PEOBJ_SYM_SIZE); - memset(&aux, 0, sizeof(PEsymaux)); - aux.size = pesect[sect].size; - aux.nreloc = pesect[sect].nreloc; - owrite(ctx, &aux, PEOBJ_SYM_SIZE); -} - -/* Emit Windows PE object file. */ -void emit_peobj(BuildCtx *ctx) -{ - PEheader pehdr; - PEsection pesect[PEOBJ_NSECTIONS]; - uint32_t sofs; - int i, nrsym; - union { uint8_t b; uint32_t u; } host_endian; - - sofs = sizeof(PEheader) + PEOBJ_NSECTIONS*sizeof(PEsection); - - /* Fill in PE sections. */ - memset(&pesect, 0, PEOBJ_NSECTIONS*sizeof(PEsection)); - memcpy(pesect[PEOBJ_SECT_TEXT].name, ".text", sizeof(".text")-1); - pesect[PEOBJ_SECT_TEXT].ofs = sofs; - sofs += (pesect[PEOBJ_SECT_TEXT].size = (uint32_t)ctx->codesz); - pesect[PEOBJ_SECT_TEXT].relocofs = sofs; - sofs += (pesect[PEOBJ_SECT_TEXT].nreloc = (uint16_t)ctx->nreloc) * PEOBJ_RELOC_SIZE; - /* Flags: 60 = read+execute, 50 = align16, 20 = code. */ - pesect[PEOBJ_SECT_TEXT].flags = PEOBJ_TEXT_FLAGS; - -#if LJ_TARGET_X64 - memcpy(pesect[PEOBJ_SECT_PDATA].name, ".pdata", sizeof(".pdata")-1); - pesect[PEOBJ_SECT_PDATA].ofs = sofs; - sofs += (pesect[PEOBJ_SECT_PDATA].size = 6*4); - pesect[PEOBJ_SECT_PDATA].relocofs = sofs; - sofs += (pesect[PEOBJ_SECT_PDATA].nreloc = 6) * PEOBJ_RELOC_SIZE; - /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ - pesect[PEOBJ_SECT_PDATA].flags = 0x40300040; - - memcpy(pesect[PEOBJ_SECT_XDATA].name, ".xdata", sizeof(".xdata")-1); - pesect[PEOBJ_SECT_XDATA].ofs = sofs; - sofs += (pesect[PEOBJ_SECT_XDATA].size = 8*2+4+6*2); /* See below. */ - pesect[PEOBJ_SECT_XDATA].relocofs = sofs; - sofs += (pesect[PEOBJ_SECT_XDATA].nreloc = 1) * PEOBJ_RELOC_SIZE; - /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ - pesect[PEOBJ_SECT_XDATA].flags = 0x40300040; -#endif - - memcpy(pesect[PEOBJ_SECT_RDATA_Z].name, ".rdata$Z", sizeof(".rdata$Z")-1); - pesect[PEOBJ_SECT_RDATA_Z].ofs = sofs; - sofs += (pesect[PEOBJ_SECT_RDATA_Z].size = (uint32_t)strlen(ctx->dasm_ident)+1); - /* Flags: 40 = read, 30 = align4, 40 = initialized data. */ - pesect[PEOBJ_SECT_RDATA_Z].flags = 0x40300040; - - /* Fill in PE header. */ - pehdr.arch = PEOBJ_ARCH_TARGET; - pehdr.nsects = PEOBJ_NSECTIONS; - pehdr.time = 0; /* Timestamp is optional. */ - pehdr.symtabofs = sofs; - pehdr.opthdrsz = 0; - pehdr.flags = 0; - - /* Compute the size of the symbol table: - ** @feat.00 + nsections*2 - ** + asm_start + nsym - ** + nrsym - */ - nrsym = ctx->nrelocsym; - pehdr.nsyms = 1+PEOBJ_NSECTIONS*2 + 1+ctx->nsym + nrsym; -#if LJ_TARGET_X64 - pehdr.nsyms += 1; /* Symbol for lj_err_unwind_win64. */ -#endif - - /* Write PE object header and all sections. */ - owrite(ctx, &pehdr, sizeof(PEheader)); - owrite(ctx, &pesect, sizeof(PEsection)*PEOBJ_NSECTIONS); - - /* Write .text section. */ - host_endian.u = 1; - if (host_endian.b != LJ_ENDIAN_SELECT(1, 0)) { -#if LJ_TARGET_PPC - uint32_t *p = (uint32_t *)ctx->code; - int n = (int)(ctx->codesz >> 2); - for (i = 0; i < n; i++, p++) - *p = lj_bswap(*p); /* Byteswap .text section. */ -#else - fprintf(stderr, "Error: different byte order for host and target\n"); - exit(1); -#endif - } - owrite(ctx, ctx->code, ctx->codesz); - for (i = 0; i < ctx->nreloc; i++) { - PEreloc reloc; - reloc.vaddr = (uint32_t)ctx->reloc[i].ofs + PEOBJ_RELOC_OFS; - reloc.symidx = 1+2+ctx->reloc[i].sym; /* Reloc syms are after .text sym. */ - reloc.type = ctx->reloc[i].type ? PEOBJ_RELOC_REL32 : PEOBJ_RELOC_DIR32; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - } - -#if LJ_TARGET_X64 - { /* Write .pdata section. */ - uint32_t fcofs = (uint32_t)ctx->sym[ctx->nsym-1].ofs; - uint32_t pdata[3]; /* Start of .text, end of .text and .xdata. */ - PEreloc reloc; - pdata[0] = 0; pdata[1] = fcofs; pdata[2] = 0; - owrite(ctx, &pdata, sizeof(pdata)); - pdata[0] = fcofs; pdata[1] = (uint32_t)ctx->codesz; pdata[2] = 20; - owrite(ctx, &pdata, sizeof(pdata)); - reloc.vaddr = 0; reloc.symidx = 1+2+nrsym+2+2+1; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - reloc.vaddr = 4; reloc.symidx = 1+2+nrsym+2+2+1; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - reloc.vaddr = 8; reloc.symidx = 1+2+nrsym+2; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - reloc.vaddr = 12; reloc.symidx = 1+2+nrsym+2+2+1; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - reloc.vaddr = 16; reloc.symidx = 1+2+nrsym+2+2+1; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - reloc.vaddr = 20; reloc.symidx = 1+2+nrsym+2; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - } - { /* Write .xdata section. */ - uint16_t xdata[8+2+6]; - PEreloc reloc; - xdata[0] = 0x01|0x08|0x10; /* Ver. 1, uhandler/ehandler, prolog size 0. */ - xdata[1] = 0x0005; /* Number of unwind codes, no frame pointer. */ - xdata[2] = 0x4200; /* Stack offset 4*8+8 = aword*5. */ - xdata[3] = 0x3000; /* Push rbx. */ - xdata[4] = 0x6000; /* Push rsi. */ - xdata[5] = 0x7000; /* Push rdi. */ - xdata[6] = 0x5000; /* Push rbp. */ - xdata[7] = 0; /* Alignment. */ - xdata[8] = xdata[9] = 0; /* Relocated address of exception handler. */ - xdata[10] = 0x01; /* Ver. 1, no handler, prolog size 0. */ - xdata[11] = 0x1504; /* Number of unwind codes, fp = rbp, fpofs = 16. */ - xdata[12] = 0x0300; /* set_fpreg. */ - xdata[13] = 0x0200; /* stack offset 0*8+8 = aword*1. */ - xdata[14] = 0x3000; /* Push rbx. */ - xdata[15] = 0x5000; /* Push rbp. */ - owrite(ctx, &xdata, sizeof(xdata)); - reloc.vaddr = 2*8; reloc.symidx = 1+2+nrsym+2+2; - reloc.type = PEOBJ_RELOC_ADDR32NB; - owrite(ctx, &reloc, PEOBJ_RELOC_SIZE); - } -#endif - - /* Write .rdata$Z section. */ - owrite(ctx, ctx->dasm_ident, strlen(ctx->dasm_ident)+1); - - /* Write symbol table. */ - strtab = NULL; /* 1st pass: collect string sizes. */ - for (;;) { - strtabofs = 4; - /* Mark as SafeSEH compliant. */ - emit_peobj_sym(ctx, "@feat.00", 1, - PEOBJ_SECT_ABS, PEOBJ_TYPE_NULL, PEOBJ_SCL_STATIC); - - emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_TEXT); - for (i = 0; i < nrsym; i++) - emit_peobj_sym(ctx, ctx->relocsym[i], 0, - PEOBJ_SECT_UNDEF, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); - -#if LJ_TARGET_X64 - emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_PDATA); - emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_XDATA); - emit_peobj_sym(ctx, "lj_err_unwind_win64", 0, - PEOBJ_SECT_UNDEF, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); -#endif - - emit_peobj_sym(ctx, ctx->beginsym, 0, - PEOBJ_SECT_TEXT, PEOBJ_TYPE_NULL, PEOBJ_SCL_EXTERN); - for (i = 0; i < ctx->nsym; i++) - emit_peobj_sym(ctx, ctx->sym[i].name, (uint32_t)ctx->sym[i].ofs, - PEOBJ_SECT_TEXT, PEOBJ_TYPE_FUNC, PEOBJ_SCL_EXTERN); - - emit_peobj_sym_sect(ctx, pesect, PEOBJ_SECT_RDATA_Z); - - if (strtab) - break; - /* 2nd pass: alloc strtab, write syms and copy strings. */ - strtab = (char *)malloc(strtabofs); - *(uint32_t *)strtab = (uint32_t)strtabofs; - } - - /* Write string table. */ - owrite(ctx, strtab, strtabofs); -} - -#else - -void emit_peobj(BuildCtx *ctx) -{ - UNUSED(ctx); - fprintf(stderr, "Error: no PE object support for this target\n"); - exit(1); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua b/src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua deleted file mode 100644 index 4398d8e74d9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/genlibbc.lua +++ /dev/null @@ -1,197 +0,0 @@ ----------------------------------------------------------------------------- --- Lua script to dump the bytecode of the library functions written in Lua. --- The resulting 'buildvm_libbc.h' is used for the build process of LuaJIT. ----------------------------------------------------------------------------- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- - -local ffi = require("ffi") -local bit = require("bit") -local vmdef = require("jit.vmdef") -local bcnames = vmdef.bcnames - -local format = string.format - -local isbe = (string.byte(string.dump(function() end), 5) % 2 == 1) - -local function usage(arg) - io.stderr:write("Usage: ", arg and arg[0] or "genlibbc", - " [-o buildvm_libbc.h] lib_*.c\n") - os.exit(1) -end - -local function parse_arg(arg) - local outfile = "-" - if not (arg and arg[1]) then - usage(arg) - end - if arg[1] == "-o" then - outfile = arg[2] - if not outfile then usage(arg) end - table.remove(arg, 1) - table.remove(arg, 1) - end - return outfile -end - -local function read_files(names) - local src = "" - for _,name in ipairs(names) do - local fp = assert(io.open(name)) - src = src .. fp:read("*a") - fp:close() - end - return src -end - -local function transform_lua(code) - local fixup = {} - local n = -30000 - code = string.gsub(code, "CHECK_(%w*)%((.-)%)", function(tp, var) - n = n + 1 - fixup[n] = { "CHECK", tp } - return format("%s=%d", var, n) - end) - code = string.gsub(code, "PAIRS%((.-)%)", function(var) - fixup.PAIRS = true - return format("nil, %s, 0", var) - end) - return "return "..code, fixup -end - -local function read_uleb128(p) - local v = p[0]; p = p + 1 - if v >= 128 then - local sh = 7; v = v - 128 - repeat - local r = p[0] - v = v + bit.lshift(bit.band(r, 127), sh) - sh = sh + 7 - p = p + 1 - until r < 128 - end - return p, v -end - --- ORDER LJ_T -local name2itype = { - str = 5, func = 9, tab = 12, int = 14, num = 15 -} - -local BC = {} -for i=0,#bcnames/6-1 do - BC[string.gsub(string.sub(bcnames, i*6+1, i*6+6), " ", "")] = i -end -local xop, xra = isbe and 3 or 0, isbe and 2 or 1 -local xrc, xrb = isbe and 1 or 2, isbe and 0 or 3 - -local function fixup_dump(dump, fixup) - local buf = ffi.new("uint8_t[?]", #dump+1, dump) - local p = buf+5 - local n, sizebc - p, n = read_uleb128(p) - local start = p - p = p + 4 - p = read_uleb128(p) - p = read_uleb128(p) - p, sizebc = read_uleb128(p) - local rawtab = {} - for i=0,sizebc-1 do - local op = p[xop] - if op == BC.KSHORT then - local rd = p[xrc] + 256*p[xrb] - rd = bit.arshift(bit.lshift(rd, 16), 16) - local f = fixup[rd] - if f then - if f[1] == "CHECK" then - local tp = f[2] - if tp == "tab" then rawtab[p[xra]] = true end - p[xop] = tp == "num" and BC.ISNUM or BC.ISTYPE - p[xrb] = 0 - p[xrc] = name2itype[tp] - else - error("unhandled fixup type: "..f[1]) - end - end - elseif op == BC.TGETV then - if rawtab[p[xrb]] then - p[xop] = BC.TGETR - end - elseif op == BC.TSETV then - if rawtab[p[xrb]] then - p[xop] = BC.TSETR - end - elseif op == BC.ITERC then - if fixup.PAIRS then - p[xop] = BC.ITERN - end - end - p = p + 4 - end - return ffi.string(start, n) -end - -local function find_defs(src) - local defs = {} - for name, code in string.gmatch(src, "LJLIB_LUA%(([^)]*)%)%s*/%*(.-)%*/") do - local env = {} - local tcode, fixup = transform_lua(code) - local func = assert(load(tcode, "", nil, env))() - defs[name] = fixup_dump(string.dump(func, true), fixup) - defs[#defs+1] = name - end - return defs -end - -local function gen_header(defs) - local t = {} - local function w(x) t[#t+1] = x end - w("/* This is a generated file. DO NOT EDIT! */\n\n") - w("static const int libbc_endian = ") w(isbe and 1 or 0) w(";\n\n") - local s = "" - for _,name in ipairs(defs) do - s = s .. defs[name] - end - w("static const uint8_t libbc_code[] = {\n") - local n = 0 - for i=1,#s do - local x = string.byte(s, i) - w(x); w(",") - n = n + (x < 10 and 2 or (x < 100 and 3 or 4)) - if n >= 75 then n = 0; w("\n") end - end - w("0\n};\n\n") - w("static const struct { const char *name; int ofs; } libbc_map[] = {\n") - local m = 0 - for _,name in ipairs(defs) do - w('{"'); w(name); w('",'); w(m) w('},\n') - m = m + #defs[name] - end - w("{NULL,"); w(m); w("}\n};\n\n") - return table.concat(t) -end - -local function write_file(name, data) - if name == "-" then - assert(io.write(data)) - assert(io.flush()) - else - local fp = io.open(name) - if fp then - local old = fp:read("*a") - fp:close() - if data == old then return end - end - fp = assert(io.open(name, "w")) - assert(fp:write(data)) - assert(fp:close()) - end -end - -local outfile = parse_arg(arg) -local src = read_files(arg) -local defs = find_defs(src) -local hdr = gen_header(defs) -write_file(outfile, hdr) - diff --git a/src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua b/src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua deleted file mode 100644 index cd0d946628c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/host/genminilua.lua +++ /dev/null @@ -1,428 +0,0 @@ ----------------------------------------------------------------------------- --- Lua script to generate a customized, minified version of Lua. --- The resulting 'minilua' is used for the build process of LuaJIT. ----------------------------------------------------------------------------- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- - -local sub, match, gsub = string.sub, string.match, string.gsub - -local LUA_VERSION = "5.1.5" -local LUA_SOURCE - -local function usage() - io.stderr:write("Usage: ", arg and arg[0] or "genminilua", - " lua-", LUA_VERSION, "-source-dir\n") - os.exit(1) -end - -local function find_sources() - LUA_SOURCE = arg and arg[1] - if not LUA_SOURCE then usage() end - if sub(LUA_SOURCE, -1) ~= "/" then LUA_SOURCE = LUA_SOURCE.."/" end - local fp = io.open(LUA_SOURCE .. "lua.h") - if not fp then - LUA_SOURCE = LUA_SOURCE.."src/" - fp = io.open(LUA_SOURCE .. "lua.h") - if not fp then usage() end - end - local all = fp:read("*a") - fp:close() - if not match(all, 'LUA_RELEASE%s*"Lua '..LUA_VERSION..'"') then - io.stderr:write("Error: version mismatch\n") - usage() - end -end - -local LUA_FILES = { -"lmem.c", "lobject.c", "ltm.c", "lfunc.c", "ldo.c", "lstring.c", "ltable.c", -"lgc.c", "lstate.c", "ldebug.c", "lzio.c", "lopcodes.c", -"llex.c", "lcode.c", "lparser.c", "lvm.c", "lapi.c", "lauxlib.c", -"lbaselib.c", "ltablib.c", "liolib.c", "loslib.c", "lstrlib.c", "linit.c", -} - -local REMOVE_LIB = {} -gsub([[ -collectgarbage dofile gcinfo getfenv getmetatable load print rawequal rawset -select tostring xpcall -foreach foreachi getn maxn setn -popen tmpfile seek setvbuf __tostring -clock date difftime execute getenv rename setlocale time tmpname -dump gfind len reverse -LUA_LOADLIBNAME LUA_MATHLIBNAME LUA_DBLIBNAME -]], "%S+", function(name) - REMOVE_LIB[name] = true -end) - -local REMOVE_EXTINC = { [""] = true, [""] = true, } - -local CUSTOM_MAIN = [[ -typedef unsigned int UB; -static UB barg(lua_State *L,int idx){ -union{lua_Number n;U64 b;}bn; -bn.n=lua_tonumber(L,idx)+6755399441055744.0; -if (bn.n==0.0&&!lua_isnumber(L,idx))luaL_typerror(L,idx,"number"); -return(UB)bn.b; -} -#define BRET(b) lua_pushnumber(L,(lua_Number)(int)(b));return 1; -static int tobit(lua_State *L){ -BRET(barg(L,1))} -static int bnot(lua_State *L){ -BRET(~barg(L,1))} -static int band(lua_State *L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b&=barg(L,i);BRET(b)} -static int bor(lua_State *L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b|=barg(L,i);BRET(b)} -static int bxor(lua_State *L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b^=barg(L,i);BRET(b)} -static int lshift(lua_State *L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET(b<>n)} -static int arshift(lua_State *L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((int)b>>n)} -static int rol(lua_State *L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((b<>(32-n)))} -static int ror(lua_State *L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((b>>n)|(b<<(32-n)))} -static int bswap(lua_State *L){ -UB b=barg(L,1);b=(b>>24)|((b>>8)&0xff00)|((b&0xff00)<<8)|(b<<24);BRET(b)} -static int tohex(lua_State *L){ -UB b=barg(L,1); -int n=lua_isnone(L,2)?8:(int)barg(L,2); -const char *hexdigits="0123456789abcdef"; -char buf[8]; -int i; -if(n<0){n=-n;hexdigits="0123456789ABCDEF";} -if(n>8)n=8; -for(i=(int)n;--i>=0;){buf[i]=hexdigits[b&15];b>>=4;} -lua_pushlstring(L,buf,(size_t)n); -return 1; -} -static const struct luaL_Reg bitlib[] = { -{"tobit",tobit}, -{"bnot",bnot}, -{"band",band}, -{"bor",bor}, -{"bxor",bxor}, -{"lshift",lshift}, -{"rshift",rshift}, -{"arshift",arshift}, -{"rol",rol}, -{"ror",ror}, -{"bswap",bswap}, -{"tohex",tohex}, -{NULL,NULL} -}; -int main(int argc, char **argv){ - lua_State *L = luaL_newstate(); - int i; - luaL_openlibs(L); - luaL_register(L, "bit", bitlib); - if (argc < 2) return sizeof(void *); - lua_createtable(L, 0, 1); - lua_pushstring(L, argv[1]); - lua_rawseti(L, -2, 0); - lua_setglobal(L, "arg"); - if (luaL_loadfile(L, argv[1])) - goto err; - for (i = 2; i < argc; i++) - lua_pushstring(L, argv[i]); - if (lua_pcall(L, argc - 2, 0, 0)) { - err: - fprintf(stderr, "Error: %s\n", lua_tostring(L, -1)); - return 1; - } - lua_close(L); - return 0; -} -]] - -local function read_sources() - local t = {} - for i, name in ipairs(LUA_FILES) do - local fp = assert(io.open(LUA_SOURCE..name, "r")) - t[i] = fp:read("*a") - assert(fp:close()) - end - t[#t+1] = CUSTOM_MAIN - return table.concat(t) -end - -local includes = {} - -local function merge_includes(src) - return gsub(src, '#include%s*"([^"]*)"%s*\n', function(name) - if includes[name] then return "" end - includes[name] = true - local fp = assert(io.open(LUA_SOURCE..name, "r")) - local src = fp:read("*a") - assert(fp:close()) - src = gsub(src, "#ifndef%s+%w+_h\n#define%s+%w+_h\n", "") - src = gsub(src, "#endif%s*$", "") - return merge_includes(src) - end) -end - -local function get_license(src) - return match(src, "/%*+\n%* Copyright %(.-%*/\n") -end - -local function fold_lines(src) - return gsub(src, "\\\n", " ") -end - -local strings = {} - -local function save_str(str) - local n = #strings+1 - strings[n] = str - return "\1"..n.."\2" -end - -local function save_strings(src) - src = gsub(src, '"[^"\n]*"', save_str) - return gsub(src, "'[^'\n]*'", save_str) -end - -local function restore_strings(src) - return gsub(src, "\1(%d+)\2", function(numstr) - return strings[tonumber(numstr)] - end) -end - -local function def_istrue(def) - return def == "INT_MAX > 2147483640L" or - def == "LUAI_BITSINT >= 32" or - def == "SIZE_Bx < LUAI_BITSINT-1" or - def == "cast" or - def == "defined(LUA_CORE)" or - def == "MINSTRTABSIZE" or - def == "LUA_MINBUFFER" or - def == "HARDSTACKTESTS" or - def == "UNUSED" -end - -local head, defs = {[[ -#ifdef _MSC_VER -typedef unsigned __int64 U64; -#else -typedef unsigned long long U64; -#endif -int _CRT_glob = 0; -]]}, {} - -local function preprocess(src) - local t = { match(src, "^(.-)#") } - local lvl, on, oldon = 0, true, {} - for pp, def, txt in string.gmatch(src, "#(%w+) *([^\n]*)\n([^#]*)") do - if pp == "if" or pp == "ifdef" or pp == "ifndef" then - lvl = lvl + 1 - oldon[lvl] = on - on = def_istrue(def) - elseif pp == "else" then - if oldon[lvl] then - if on == false then on = true else on = false end - end - elseif pp == "elif" then - if oldon[lvl] then - on = def_istrue(def) - end - elseif pp == "endif" then - on = oldon[lvl] - lvl = lvl - 1 - elseif on then - if pp == "include" then - if not head[def] and not REMOVE_EXTINC[def] then - head[def] = true - head[#head+1] = "#include "..def.."\n" - end - elseif pp == "define" then - local k, sp, v = match(def, "([%w_]+)(%s*)(.*)") - if k and not (sp == "" and sub(v, 1, 1) == "(") then - defs[k] = gsub(v, "%a[%w_]*", function(tok) - return defs[tok] or tok - end) - else - t[#t+1] = "#define "..def.."\n" - end - elseif pp ~= "undef" then - error("unexpected directive: "..pp.." "..def) - end - end - if on then t[#t+1] = txt end - end - return gsub(table.concat(t), "%a[%w_]*", function(tok) - return defs[tok] or tok - end) -end - -local function merge_header(src, license) - local hdr = string.format([[ -/* This is a heavily customized and minimized copy of Lua %s. */ -/* It's only used to build LuaJIT. It does NOT have all standard functions! */ -]], LUA_VERSION) - return hdr..license..table.concat(head)..src -end - -local function strip_unused1(src) - return gsub(src, '( {"?([%w_]+)"?,%s+%a[%w_]*},\n)', function(line, func) - return REMOVE_LIB[func] and "" or line - end) -end - -local function strip_unused2(src) - return gsub(src, "Symbolic Execution.-}=", "") -end - -local function strip_unused3(src) - src = gsub(src, "extern", "static") - src = gsub(src, "\nstatic([^\n]-)%(([^)]*)%)%(", "\nstatic%1 %2(") - src = gsub(src, "#define lua_assert[^\n]*\n", "") - src = gsub(src, "lua_assert%b();?", "") - src = gsub(src, "default:\n}", "default:;\n}") - src = gsub(src, "lua_lock%b();", "") - src = gsub(src, "lua_unlock%b();", "") - src = gsub(src, "luai_threadyield%b();", "") - src = gsub(src, "luai_userstateopen%b();", "{}") - src = gsub(src, "luai_userstate%w+%b();", "") - src = gsub(src, "%(%(c==.*luaY_parser%)", "luaY_parser") - src = gsub(src, "trydecpoint%(ls,seminfo%)", - "luaX_lexerror(ls,\"malformed number\",TK_NUMBER)") - src = gsub(src, "int c=luaZ_lookahead%b();", "") - src = gsub(src, "luaL_register%(L,[^,]*,co_funcs%);\nreturn 2;", - "return 1;") - src = gsub(src, "getfuncname%b():", "NULL:") - src = gsub(src, "getobjname%b():", "NULL:") - src = gsub(src, "if%([^\n]*hookmask[^\n]*%)\n[^\n]*\n", "") - src = gsub(src, "if%([^\n]*hookmask[^\n]*%)%b{}\n", "") - src = gsub(src, "if%([^\n]*hookmask[^\n]*&&\n[^\n]*%b{}\n", "") - src = gsub(src, "(twoto%b()%()", "%1(size_t)") - src = gsub(src, "i -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -typedef enum{ -TM_INDEX, -TM_NEWINDEX, -TM_GC, -TM_MODE, -TM_EQ, -TM_ADD, -TM_SUB, -TM_MUL, -TM_DIV, -TM_MOD, -TM_POW, -TM_UNM, -TM_LEN, -TM_LT, -TM_LE, -TM_CONCAT, -TM_CALL, -TM_N -}TMS; -enum OpMode{iABC,iABx,iAsBx}; -typedef enum{ -OP_MOVE, -OP_LOADK, -OP_LOADBOOL, -OP_LOADNIL, -OP_GETUPVAL, -OP_GETGLOBAL, -OP_GETTABLE, -OP_SETGLOBAL, -OP_SETUPVAL, -OP_SETTABLE, -OP_NEWTABLE, -OP_SELF, -OP_ADD, -OP_SUB, -OP_MUL, -OP_DIV, -OP_MOD, -OP_POW, -OP_UNM, -OP_NOT, -OP_LEN, -OP_CONCAT, -OP_JMP, -OP_EQ, -OP_LT, -OP_LE, -OP_TEST, -OP_TESTSET, -OP_CALL, -OP_TAILCALL, -OP_RETURN, -OP_FORLOOP, -OP_FORPREP, -OP_TFORLOOP, -OP_SETLIST, -OP_CLOSE, -OP_CLOSURE, -OP_VARARG -}OpCode; -enum OpArgMask{ -OpArgN, -OpArgU, -OpArgR, -OpArgK -}; -typedef enum{ -VVOID, -VNIL, -VTRUE, -VFALSE, -VK, -VKNUM, -VLOCAL, -VUPVAL, -VGLOBAL, -VINDEXED, -VJMP, -VRELOCABLE, -VNONRELOC, -VCALL, -VVARARG -}expkind; -enum RESERVED{ -TK_AND=257,TK_BREAK, -TK_DO,TK_ELSE,TK_ELSEIF,TK_END,TK_FALSE,TK_FOR,TK_FUNCTION, -TK_IF,TK_IN,TK_LOCAL,TK_NIL,TK_NOT,TK_OR,TK_REPEAT, -TK_RETURN,TK_THEN,TK_TRUE,TK_UNTIL,TK_WHILE, -TK_CONCAT,TK_DOTS,TK_EQ,TK_GE,TK_LE,TK_NE,TK_NUMBER, -TK_NAME,TK_STRING,TK_EOS -}; -typedef enum BinOpr{ -OPR_ADD,OPR_SUB,OPR_MUL,OPR_DIV,OPR_MOD,OPR_POW, -OPR_CONCAT, -OPR_NE,OPR_EQ, -OPR_LT,OPR_LE,OPR_GT,OPR_GE, -OPR_AND,OPR_OR, -OPR_NOBINOPR -}BinOpr; -typedef enum UnOpr{OPR_MINUS,OPR_NOT,OPR_LEN,OPR_NOUNOPR}UnOpr; -#define LUA_QL(x)"'"x"'" -#define luai_apicheck(L,o){(void)L;} -#define lua_number2str(s,n)sprintf((s),"%.14g",(n)) -#define lua_str2number(s,p)strtod((s),(p)) -#define luai_numadd(a,b)((a)+(b)) -#define luai_numsub(a,b)((a)-(b)) -#define luai_nummul(a,b)((a)*(b)) -#define luai_numdiv(a,b)((a)/(b)) -#define luai_nummod(a,b)((a)-floor((a)/(b))*(b)) -#define luai_numpow(a,b)(pow(a,b)) -#define luai_numunm(a)(-(a)) -#define luai_numeq(a,b)((a)==(b)) -#define luai_numlt(a,b)((a)<(b)) -#define luai_numle(a,b)((a)<=(b)) -#define luai_numisnan(a)(!luai_numeq((a),(a))) -#define lua_number2int(i,d)((i)=(int)(d)) -#define lua_number2integer(i,d)((i)=(lua_Integer)(d)) -#define LUAI_THROW(L,c)longjmp((c)->b,1) -#define LUAI_TRY(L,c,a)if(setjmp((c)->b)==0){a} -#define lua_pclose(L,file)((void)((void)L,file),0) -#define lua_upvalueindex(i)((-10002)-(i)) -typedef struct lua_State lua_State; -typedef int(*lua_CFunction)(lua_State*L); -typedef const char*(*lua_Reader)(lua_State*L,void*ud,size_t*sz); -typedef void*(*lua_Alloc)(void*ud,void*ptr,size_t osize,size_t nsize); -typedef double lua_Number; -typedef ptrdiff_t lua_Integer; -static void lua_settop(lua_State*L,int idx); -static int lua_type(lua_State*L,int idx); -static const char* lua_tolstring(lua_State*L,int idx,size_t*len); -static size_t lua_objlen(lua_State*L,int idx); -static void lua_pushlstring(lua_State*L,const char*s,size_t l); -static void lua_pushcclosure(lua_State*L,lua_CFunction fn,int n); -static void lua_createtable(lua_State*L,int narr,int nrec); -static void lua_setfield(lua_State*L,int idx,const char*k); -#define lua_pop(L,n)lua_settop(L,-(n)-1) -#define lua_newtable(L)lua_createtable(L,0,0) -#define lua_pushcfunction(L,f)lua_pushcclosure(L,(f),0) -#define lua_strlen(L,i)lua_objlen(L,(i)) -#define lua_isfunction(L,n)(lua_type(L,(n))==6) -#define lua_istable(L,n)(lua_type(L,(n))==5) -#define lua_isnil(L,n)(lua_type(L,(n))==0) -#define lua_isboolean(L,n)(lua_type(L,(n))==1) -#define lua_isnone(L,n)(lua_type(L,(n))==(-1)) -#define lua_isnoneornil(L,n)(lua_type(L,(n))<=0) -#define lua_pushliteral(L,s)lua_pushlstring(L,""s,(sizeof(s)/sizeof(char))-1) -#define lua_setglobal(L,s)lua_setfield(L,(-10002),(s)) -#define lua_tostring(L,i)lua_tolstring(L,(i),NULL) -typedef struct lua_Debug lua_Debug; -typedef void(*lua_Hook)(lua_State*L,lua_Debug*ar); -struct lua_Debug{ -int event; -const char*name; -const char*namewhat; -const char*what; -const char*source; -int currentline; -int nups; -int linedefined; -int lastlinedefined; -char short_src[60]; -int i_ci; -}; -typedef unsigned int lu_int32; -typedef size_t lu_mem; -typedef ptrdiff_t l_mem; -typedef unsigned char lu_byte; -#define IntPoint(p)((unsigned int)(lu_mem)(p)) -typedef union{double u;void*s;long l;}L_Umaxalign; -typedef double l_uacNumber; -#define check_exp(c,e)(e) -#define UNUSED(x)((void)(x)) -#define cast(t,exp)((t)(exp)) -#define cast_byte(i)cast(lu_byte,(i)) -#define cast_num(i)cast(lua_Number,(i)) -#define cast_int(i)cast(int,(i)) -typedef lu_int32 Instruction; -#define condhardstacktests(x)((void)0) -typedef union GCObject GCObject; -typedef struct GCheader{ -GCObject*next;lu_byte tt;lu_byte marked; -}GCheader; -typedef union{ -GCObject*gc; -void*p; -lua_Number n; -int b; -}Value; -typedef struct lua_TValue{ -Value value;int tt; -}TValue; -#define ttisnil(o)(ttype(o)==0) -#define ttisnumber(o)(ttype(o)==3) -#define ttisstring(o)(ttype(o)==4) -#define ttistable(o)(ttype(o)==5) -#define ttisfunction(o)(ttype(o)==6) -#define ttisboolean(o)(ttype(o)==1) -#define ttisuserdata(o)(ttype(o)==7) -#define ttisthread(o)(ttype(o)==8) -#define ttislightuserdata(o)(ttype(o)==2) -#define ttype(o)((o)->tt) -#define gcvalue(o)check_exp(iscollectable(o),(o)->value.gc) -#define pvalue(o)check_exp(ttislightuserdata(o),(o)->value.p) -#define nvalue(o)check_exp(ttisnumber(o),(o)->value.n) -#define rawtsvalue(o)check_exp(ttisstring(o),&(o)->value.gc->ts) -#define tsvalue(o)(&rawtsvalue(o)->tsv) -#define rawuvalue(o)check_exp(ttisuserdata(o),&(o)->value.gc->u) -#define uvalue(o)(&rawuvalue(o)->uv) -#define clvalue(o)check_exp(ttisfunction(o),&(o)->value.gc->cl) -#define hvalue(o)check_exp(ttistable(o),&(o)->value.gc->h) -#define bvalue(o)check_exp(ttisboolean(o),(o)->value.b) -#define thvalue(o)check_exp(ttisthread(o),&(o)->value.gc->th) -#define l_isfalse(o)(ttisnil(o)||(ttisboolean(o)&&bvalue(o)==0)) -#define checkconsistency(obj) -#define checkliveness(g,obj) -#define setnilvalue(obj)((obj)->tt=0) -#define setnvalue(obj,x){TValue*i_o=(obj);i_o->value.n=(x);i_o->tt=3;} -#define setbvalue(obj,x){TValue*i_o=(obj);i_o->value.b=(x);i_o->tt=1;} -#define setsvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=4;checkliveness(G(L),i_o);} -#define setuvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=7;checkliveness(G(L),i_o);} -#define setthvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=8;checkliveness(G(L),i_o);} -#define setclvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=6;checkliveness(G(L),i_o);} -#define sethvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=5;checkliveness(G(L),i_o);} -#define setptvalue(L,obj,x){TValue*i_o=(obj);i_o->value.gc=cast(GCObject*,(x));i_o->tt=(8+1);checkliveness(G(L),i_o);} -#define setobj(L,obj1,obj2){const TValue*o2=(obj2);TValue*o1=(obj1);o1->value=o2->value;o1->tt=o2->tt;checkliveness(G(L),o1);} -#define setttype(obj,tt)(ttype(obj)=(tt)) -#define iscollectable(o)(ttype(o)>=4) -typedef TValue*StkId; -typedef union TString{ -L_Umaxalign dummy; -struct{ -GCObject*next;lu_byte tt;lu_byte marked; -lu_byte reserved; -unsigned int hash; -size_t len; -}tsv; -}TString; -#define getstr(ts)cast(const char*,(ts)+1) -#define svalue(o)getstr(rawtsvalue(o)) -typedef union Udata{ -L_Umaxalign dummy; -struct{ -GCObject*next;lu_byte tt;lu_byte marked; -struct Table*metatable; -struct Table*env; -size_t len; -}uv; -}Udata; -typedef struct Proto{ -GCObject*next;lu_byte tt;lu_byte marked; -TValue*k; -Instruction*code; -struct Proto**p; -int*lineinfo; -struct LocVar*locvars; -TString**upvalues; -TString*source; -int sizeupvalues; -int sizek; -int sizecode; -int sizelineinfo; -int sizep; -int sizelocvars; -int linedefined; -int lastlinedefined; -GCObject*gclist; -lu_byte nups; -lu_byte numparams; -lu_byte is_vararg; -lu_byte maxstacksize; -}Proto; -typedef struct LocVar{ -TString*varname; -int startpc; -int endpc; -}LocVar; -typedef struct UpVal{ -GCObject*next;lu_byte tt;lu_byte marked; -TValue*v; -union{ -TValue value; -struct{ -struct UpVal*prev; -struct UpVal*next; -}l; -}u; -}UpVal; -typedef struct CClosure{ -GCObject*next;lu_byte tt;lu_byte marked;lu_byte isC;lu_byte nupvalues;GCObject*gclist;struct Table*env; -lua_CFunction f; -TValue upvalue[1]; -}CClosure; -typedef struct LClosure{ -GCObject*next;lu_byte tt;lu_byte marked;lu_byte isC;lu_byte nupvalues;GCObject*gclist;struct Table*env; -struct Proto*p; -UpVal*upvals[1]; -}LClosure; -typedef union Closure{ -CClosure c; -LClosure l; -}Closure; -#define iscfunction(o)(ttype(o)==6&&clvalue(o)->c.isC) -typedef union TKey{ -struct{ -Value value;int tt; -struct Node*next; -}nk; -TValue tvk; -}TKey; -typedef struct Node{ -TValue i_val; -TKey i_key; -}Node; -typedef struct Table{ -GCObject*next;lu_byte tt;lu_byte marked; -lu_byte flags; -lu_byte lsizenode; -struct Table*metatable; -TValue*array; -Node*node; -Node*lastfree; -GCObject*gclist; -int sizearray; -}Table; -#define lmod(s,size)(check_exp((size&(size-1))==0,(cast(int,(s)&((size)-1))))) -#define twoto(x)((size_t)1<<(x)) -#define sizenode(t)(twoto((t)->lsizenode)) -static const TValue luaO_nilobject_; -#define ceillog2(x)(luaO_log2((x)-1)+1) -static int luaO_log2(unsigned int x); -#define gfasttm(g,et,e)((et)==NULL?NULL:((et)->flags&(1u<<(e)))?NULL:luaT_gettm(et,e,(g)->tmname[e])) -#define fasttm(l,et,e)gfasttm(G(l),et,e) -static const TValue*luaT_gettm(Table*events,TMS event,TString*ename); -#define luaM_reallocv(L,b,on,n,e)((cast(size_t,(n)+1)<=((size_t)(~(size_t)0)-2)/(e))?luaM_realloc_(L,(b),(on)*(e),(n)*(e)):luaM_toobig(L)) -#define luaM_freemem(L,b,s)luaM_realloc_(L,(b),(s),0) -#define luaM_free(L,b)luaM_realloc_(L,(b),sizeof(*(b)),0) -#define luaM_freearray(L,b,n,t)luaM_reallocv(L,(b),n,0,sizeof(t)) -#define luaM_malloc(L,t)luaM_realloc_(L,NULL,0,(t)) -#define luaM_new(L,t)cast(t*,luaM_malloc(L,sizeof(t))) -#define luaM_newvector(L,n,t)cast(t*,luaM_reallocv(L,NULL,0,n,sizeof(t))) -#define luaM_growvector(L,v,nelems,size,t,limit,e)if((nelems)+1>(size))((v)=cast(t*,luaM_growaux_(L,v,&(size),sizeof(t),limit,e))) -#define luaM_reallocvector(L,v,oldn,n,t)((v)=cast(t*,luaM_reallocv(L,v,oldn,n,sizeof(t)))) -static void*luaM_realloc_(lua_State*L,void*block,size_t oldsize, -size_t size); -static void*luaM_toobig(lua_State*L); -static void*luaM_growaux_(lua_State*L,void*block,int*size, -size_t size_elem,int limit, -const char*errormsg); -typedef struct Zio ZIO; -#define char2int(c)cast(int,cast(unsigned char,(c))) -#define zgetc(z)(((z)->n--)>0?char2int(*(z)->p++):luaZ_fill(z)) -typedef struct Mbuffer{ -char*buffer; -size_t n; -size_t buffsize; -}Mbuffer; -#define luaZ_initbuffer(L,buff)((buff)->buffer=NULL,(buff)->buffsize=0) -#define luaZ_buffer(buff)((buff)->buffer) -#define luaZ_sizebuffer(buff)((buff)->buffsize) -#define luaZ_bufflen(buff)((buff)->n) -#define luaZ_resetbuffer(buff)((buff)->n=0) -#define luaZ_resizebuffer(L,buff,size)(luaM_reallocvector(L,(buff)->buffer,(buff)->buffsize,size,char),(buff)->buffsize=size) -#define luaZ_freebuffer(L,buff)luaZ_resizebuffer(L,buff,0) -struct Zio{ -size_t n; -const char*p; -lua_Reader reader; -void*data; -lua_State*L; -}; -static int luaZ_fill(ZIO*z); -struct lua_longjmp; -#define gt(L)(&L->l_gt) -#define registry(L)(&G(L)->l_registry) -typedef struct stringtable{ -GCObject**hash; -lu_int32 nuse; -int size; -}stringtable; -typedef struct CallInfo{ -StkId base; -StkId func; -StkId top; -const Instruction*savedpc; -int nresults; -int tailcalls; -}CallInfo; -#define curr_func(L)(clvalue(L->ci->func)) -#define ci_func(ci)(clvalue((ci)->func)) -#define f_isLua(ci)(!ci_func(ci)->c.isC) -#define isLua(ci)(ttisfunction((ci)->func)&&f_isLua(ci)) -typedef struct global_State{ -stringtable strt; -lua_Alloc frealloc; -void*ud; -lu_byte currentwhite; -lu_byte gcstate; -int sweepstrgc; -GCObject*rootgc; -GCObject**sweepgc; -GCObject*gray; -GCObject*grayagain; -GCObject*weak; -GCObject*tmudata; -Mbuffer buff; -lu_mem GCthreshold; -lu_mem totalbytes; -lu_mem estimate; -lu_mem gcdept; -int gcpause; -int gcstepmul; -lua_CFunction panic; -TValue l_registry; -struct lua_State*mainthread; -UpVal uvhead; -struct Table*mt[(8+1)]; -TString*tmname[TM_N]; -}global_State; -struct lua_State{ -GCObject*next;lu_byte tt;lu_byte marked; -lu_byte status; -StkId top; -StkId base; -global_State*l_G; -CallInfo*ci; -const Instruction*savedpc; -StkId stack_last; -StkId stack; -CallInfo*end_ci; -CallInfo*base_ci; -int stacksize; -int size_ci; -unsigned short nCcalls; -unsigned short baseCcalls; -lu_byte hookmask; -lu_byte allowhook; -int basehookcount; -int hookcount; -lua_Hook hook; -TValue l_gt; -TValue env; -GCObject*openupval; -GCObject*gclist; -struct lua_longjmp*errorJmp; -ptrdiff_t errfunc; -}; -#define G(L)(L->l_G) -union GCObject{ -GCheader gch; -union TString ts; -union Udata u; -union Closure cl; -struct Table h; -struct Proto p; -struct UpVal uv; -struct lua_State th; -}; -#define rawgco2ts(o)check_exp((o)->gch.tt==4,&((o)->ts)) -#define gco2ts(o)(&rawgco2ts(o)->tsv) -#define rawgco2u(o)check_exp((o)->gch.tt==7,&((o)->u)) -#define gco2u(o)(&rawgco2u(o)->uv) -#define gco2cl(o)check_exp((o)->gch.tt==6,&((o)->cl)) -#define gco2h(o)check_exp((o)->gch.tt==5,&((o)->h)) -#define gco2p(o)check_exp((o)->gch.tt==(8+1),&((o)->p)) -#define gco2uv(o)check_exp((o)->gch.tt==(8+2),&((o)->uv)) -#define ngcotouv(o)check_exp((o)==NULL||(o)->gch.tt==(8+2),&((o)->uv)) -#define gco2th(o)check_exp((o)->gch.tt==8,&((o)->th)) -#define obj2gco(v)(cast(GCObject*,(v))) -static void luaE_freethread(lua_State*L,lua_State*L1); -#define pcRel(pc,p)(cast(int,(pc)-(p)->code)-1) -#define getline_(f,pc)(((f)->lineinfo)?(f)->lineinfo[pc]:0) -#define resethookcount(L)(L->hookcount=L->basehookcount) -static void luaG_typeerror(lua_State*L,const TValue*o, -const char*opname); -static void luaG_runerror(lua_State*L,const char*fmt,...); -#define luaD_checkstack(L,n)if((char*)L->stack_last-(char*)L->top<=(n)*(int)sizeof(TValue))luaD_growstack(L,n);else condhardstacktests(luaD_reallocstack(L,L->stacksize-5-1)); -#define incr_top(L){luaD_checkstack(L,1);L->top++;} -#define savestack(L,p)((char*)(p)-(char*)L->stack) -#define restorestack(L,n)((TValue*)((char*)L->stack+(n))) -#define saveci(L,p)((char*)(p)-(char*)L->base_ci) -#define restoreci(L,n)((CallInfo*)((char*)L->base_ci+(n))) -typedef void(*Pfunc)(lua_State*L,void*ud); -static int luaD_poscall(lua_State*L,StkId firstResult); -static void luaD_reallocCI(lua_State*L,int newsize); -static void luaD_reallocstack(lua_State*L,int newsize); -static void luaD_growstack(lua_State*L,int n); -static void luaD_throw(lua_State*L,int errcode); -static void*luaM_growaux_(lua_State*L,void*block,int*size,size_t size_elems, -int limit,const char*errormsg){ -void*newblock; -int newsize; -if(*size>=limit/2){ -if(*size>=limit) -luaG_runerror(L,errormsg); -newsize=limit; -} -else{ -newsize=(*size)*2; -if(newsize<4) -newsize=4; -} -newblock=luaM_reallocv(L,block,*size,newsize,size_elems); -*size=newsize; -return newblock; -} -static void*luaM_toobig(lua_State*L){ -luaG_runerror(L,"memory allocation error: block too big"); -return NULL; -} -static void*luaM_realloc_(lua_State*L,void*block,size_t osize,size_t nsize){ -global_State*g=G(L); -block=(*g->frealloc)(g->ud,block,osize,nsize); -if(block==NULL&&nsize>0) -luaD_throw(L,4); -g->totalbytes=(g->totalbytes-osize)+nsize; -return block; -} -#define resetbits(x,m)((x)&=cast(lu_byte,~(m))) -#define setbits(x,m)((x)|=(m)) -#define testbits(x,m)((x)&(m)) -#define bitmask(b)(1<<(b)) -#define bit2mask(b1,b2)(bitmask(b1)|bitmask(b2)) -#define l_setbit(x,b)setbits(x,bitmask(b)) -#define resetbit(x,b)resetbits(x,bitmask(b)) -#define testbit(x,b)testbits(x,bitmask(b)) -#define set2bits(x,b1,b2)setbits(x,(bit2mask(b1,b2))) -#define reset2bits(x,b1,b2)resetbits(x,(bit2mask(b1,b2))) -#define test2bits(x,b1,b2)testbits(x,(bit2mask(b1,b2))) -#define iswhite(x)test2bits((x)->gch.marked,0,1) -#define isblack(x)testbit((x)->gch.marked,2) -#define isgray(x)(!isblack(x)&&!iswhite(x)) -#define otherwhite(g)(g->currentwhite^bit2mask(0,1)) -#define isdead(g,v)((v)->gch.marked&otherwhite(g)&bit2mask(0,1)) -#define changewhite(x)((x)->gch.marked^=bit2mask(0,1)) -#define gray2black(x)l_setbit((x)->gch.marked,2) -#define valiswhite(x)(iscollectable(x)&&iswhite(gcvalue(x))) -#define luaC_white(g)cast(lu_byte,(g)->currentwhite&bit2mask(0,1)) -#define luaC_checkGC(L){condhardstacktests(luaD_reallocstack(L,L->stacksize-5-1));if(G(L)->totalbytes>=G(L)->GCthreshold)luaC_step(L);} -#define luaC_barrier(L,p,v){if(valiswhite(v)&&isblack(obj2gco(p)))luaC_barrierf(L,obj2gco(p),gcvalue(v));} -#define luaC_barriert(L,t,v){if(valiswhite(v)&&isblack(obj2gco(t)))luaC_barrierback(L,t);} -#define luaC_objbarrier(L,p,o){if(iswhite(obj2gco(o))&&isblack(obj2gco(p)))luaC_barrierf(L,obj2gco(p),obj2gco(o));} -#define luaC_objbarriert(L,t,o){if(iswhite(obj2gco(o))&&isblack(obj2gco(t)))luaC_barrierback(L,t);} -static void luaC_step(lua_State*L); -static void luaC_link(lua_State*L,GCObject*o,lu_byte tt); -static void luaC_linkupval(lua_State*L,UpVal*uv); -static void luaC_barrierf(lua_State*L,GCObject*o,GCObject*v); -static void luaC_barrierback(lua_State*L,Table*t); -#define sizestring(s)(sizeof(union TString)+((s)->len+1)*sizeof(char)) -#define sizeudata(u)(sizeof(union Udata)+(u)->len) -#define luaS_new(L,s)(luaS_newlstr(L,s,strlen(s))) -#define luaS_newliteral(L,s)(luaS_newlstr(L,""s,(sizeof(s)/sizeof(char))-1)) -#define luaS_fix(s)l_setbit((s)->tsv.marked,5) -static TString*luaS_newlstr(lua_State*L,const char*str,size_t l); -#define tostring(L,o)((ttype(o)==4)||(luaV_tostring(L,o))) -#define tonumber(o,n)(ttype(o)==3||(((o)=luaV_tonumber(o,n))!=NULL)) -#define equalobj(L,o1,o2)(ttype(o1)==ttype(o2)&&luaV_equalval(L,o1,o2)) -static int luaV_equalval(lua_State*L,const TValue*t1,const TValue*t2); -static const TValue*luaV_tonumber(const TValue*obj,TValue*n); -static int luaV_tostring(lua_State*L,StkId obj); -static void luaV_execute(lua_State*L,int nexeccalls); -static void luaV_concat(lua_State*L,int total,int last); -static const TValue luaO_nilobject_={{NULL},0}; -static int luaO_int2fb(unsigned int x){ -int e=0; -while(x>=16){ -x=(x+1)>>1; -e++; -} -if(x<8)return x; -else return((e+1)<<3)|(cast_int(x)-8); -} -static int luaO_fb2int(int x){ -int e=(x>>3)&31; -if(e==0)return x; -else return((x&7)+8)<<(e-1); -} -static int luaO_log2(unsigned int x){ -static const lu_byte log_2[256]={ -0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, -6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, -7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, -7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, -8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, -8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, -8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, -8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 -}; -int l=-1; -while(x>=256){l+=8;x>>=8;} -return l+log_2[x]; -} -static int luaO_rawequalObj(const TValue*t1,const TValue*t2){ -if(ttype(t1)!=ttype(t2))return 0; -else switch(ttype(t1)){ -case 0: -return 1; -case 3: -return luai_numeq(nvalue(t1),nvalue(t2)); -case 1: -return bvalue(t1)==bvalue(t2); -case 2: -return pvalue(t1)==pvalue(t2); -default: -return gcvalue(t1)==gcvalue(t2); -} -} -static int luaO_str2d(const char*s,lua_Number*result){ -char*endptr; -*result=lua_str2number(s,&endptr); -if(endptr==s)return 0; -if(*endptr=='x'||*endptr=='X') -*result=cast_num(strtoul(s,&endptr,16)); -if(*endptr=='\0')return 1; -while(isspace(cast(unsigned char,*endptr)))endptr++; -if(*endptr!='\0')return 0; -return 1; -} -static void pushstr(lua_State*L,const char*str){ -setsvalue(L,L->top,luaS_new(L,str)); -incr_top(L); -} -static const char*luaO_pushvfstring(lua_State*L,const char*fmt,va_list argp){ -int n=1; -pushstr(L,""); -for(;;){ -const char*e=strchr(fmt,'%'); -if(e==NULL)break; -setsvalue(L,L->top,luaS_newlstr(L,fmt,e-fmt)); -incr_top(L); -switch(*(e+1)){ -case's':{ -const char*s=va_arg(argp,char*); -if(s==NULL)s="(null)"; -pushstr(L,s); -break; -} -case'c':{ -char buff[2]; -buff[0]=cast(char,va_arg(argp,int)); -buff[1]='\0'; -pushstr(L,buff); -break; -} -case'd':{ -setnvalue(L->top,cast_num(va_arg(argp,int))); -incr_top(L); -break; -} -case'f':{ -setnvalue(L->top,cast_num(va_arg(argp,l_uacNumber))); -incr_top(L); -break; -} -case'p':{ -char buff[4*sizeof(void*)+8]; -sprintf(buff,"%p",va_arg(argp,void*)); -pushstr(L,buff); -break; -} -case'%':{ -pushstr(L,"%"); -break; -} -default:{ -char buff[3]; -buff[0]='%'; -buff[1]=*(e+1); -buff[2]='\0'; -pushstr(L,buff); -break; -} -} -n+=2; -fmt=e+2; -} -pushstr(L,fmt); -luaV_concat(L,n+1,cast_int(L->top-L->base)-1); -L->top-=n; -return svalue(L->top-1); -} -static const char*luaO_pushfstring(lua_State*L,const char*fmt,...){ -const char*msg; -va_list argp; -va_start(argp,fmt); -msg=luaO_pushvfstring(L,fmt,argp); -va_end(argp); -return msg; -} -static void luaO_chunkid(char*out,const char*source,size_t bufflen){ -if(*source=='='){ -strncpy(out,source+1,bufflen); -out[bufflen-1]='\0'; -} -else{ -if(*source=='@'){ -size_t l; -source++; -bufflen-=sizeof(" '...' "); -l=strlen(source); -strcpy(out,""); -if(l>bufflen){ -source+=(l-bufflen); -strcat(out,"..."); -} -strcat(out,source); -} -else{ -size_t len=strcspn(source,"\n\r"); -bufflen-=sizeof(" [string \"...\"] "); -if(len>bufflen)len=bufflen; -strcpy(out,"[string \""); -if(source[len]!='\0'){ -strncat(out,source,len); -strcat(out,"..."); -} -else -strcat(out,source); -strcat(out,"\"]"); -} -} -} -#define gnode(t,i)(&(t)->node[i]) -#define gkey(n)(&(n)->i_key.nk) -#define gval(n)(&(n)->i_val) -#define gnext(n)((n)->i_key.nk.next) -#define key2tval(n)(&(n)->i_key.tvk) -static TValue*luaH_setnum(lua_State*L,Table*t,int key); -static const TValue*luaH_getstr(Table*t,TString*key); -static TValue*luaH_set(lua_State*L,Table*t,const TValue*key); -static const char*const luaT_typenames[]={ -"nil","boolean","userdata","number", -"string","table","function","userdata","thread", -"proto","upval" -}; -static void luaT_init(lua_State*L){ -static const char*const luaT_eventname[]={ -"__index","__newindex", -"__gc","__mode","__eq", -"__add","__sub","__mul","__div","__mod", -"__pow","__unm","__len","__lt","__le", -"__concat","__call" -}; -int i; -for(i=0;itmname[i]=luaS_new(L,luaT_eventname[i]); -luaS_fix(G(L)->tmname[i]); -} -} -static const TValue*luaT_gettm(Table*events,TMS event,TString*ename){ -const TValue*tm=luaH_getstr(events,ename); -if(ttisnil(tm)){ -events->flags|=cast_byte(1u<metatable; -break; -case 7: -mt=uvalue(o)->metatable; -break; -default: -mt=G(L)->mt[ttype(o)]; -} -return(mt?luaH_getstr(mt,G(L)->tmname[event]):(&luaO_nilobject_)); -} -#define sizeCclosure(n)(cast(int,sizeof(CClosure))+cast(int,sizeof(TValue)*((n)-1))) -#define sizeLclosure(n)(cast(int,sizeof(LClosure))+cast(int,sizeof(TValue*)*((n)-1))) -static Closure*luaF_newCclosure(lua_State*L,int nelems,Table*e){ -Closure*c=cast(Closure*,luaM_malloc(L,sizeCclosure(nelems))); -luaC_link(L,obj2gco(c),6); -c->c.isC=1; -c->c.env=e; -c->c.nupvalues=cast_byte(nelems); -return c; -} -static Closure*luaF_newLclosure(lua_State*L,int nelems,Table*e){ -Closure*c=cast(Closure*,luaM_malloc(L,sizeLclosure(nelems))); -luaC_link(L,obj2gco(c),6); -c->l.isC=0; -c->l.env=e; -c->l.nupvalues=cast_byte(nelems); -while(nelems--)c->l.upvals[nelems]=NULL; -return c; -} -static UpVal*luaF_newupval(lua_State*L){ -UpVal*uv=luaM_new(L,UpVal); -luaC_link(L,obj2gco(uv),(8+2)); -uv->v=&uv->u.value; -setnilvalue(uv->v); -return uv; -} -static UpVal*luaF_findupval(lua_State*L,StkId level){ -global_State*g=G(L); -GCObject**pp=&L->openupval; -UpVal*p; -UpVal*uv; -while(*pp!=NULL&&(p=ngcotouv(*pp))->v>=level){ -if(p->v==level){ -if(isdead(g,obj2gco(p))) -changewhite(obj2gco(p)); -return p; -} -pp=&p->next; -} -uv=luaM_new(L,UpVal); -uv->tt=(8+2); -uv->marked=luaC_white(g); -uv->v=level; -uv->next=*pp; -*pp=obj2gco(uv); -uv->u.l.prev=&g->uvhead; -uv->u.l.next=g->uvhead.u.l.next; -uv->u.l.next->u.l.prev=uv; -g->uvhead.u.l.next=uv; -return uv; -} -static void unlinkupval(UpVal*uv){ -uv->u.l.next->u.l.prev=uv->u.l.prev; -uv->u.l.prev->u.l.next=uv->u.l.next; -} -static void luaF_freeupval(lua_State*L,UpVal*uv){ -if(uv->v!=&uv->u.value) -unlinkupval(uv); -luaM_free(L,uv); -} -static void luaF_close(lua_State*L,StkId level){ -UpVal*uv; -global_State*g=G(L); -while(L->openupval!=NULL&&(uv=ngcotouv(L->openupval))->v>=level){ -GCObject*o=obj2gco(uv); -L->openupval=uv->next; -if(isdead(g,o)) -luaF_freeupval(L,uv); -else{ -unlinkupval(uv); -setobj(L,&uv->u.value,uv->v); -uv->v=&uv->u.value; -luaC_linkupval(L,uv); -} -} -} -static Proto*luaF_newproto(lua_State*L){ -Proto*f=luaM_new(L,Proto); -luaC_link(L,obj2gco(f),(8+1)); -f->k=NULL; -f->sizek=0; -f->p=NULL; -f->sizep=0; -f->code=NULL; -f->sizecode=0; -f->sizelineinfo=0; -f->sizeupvalues=0; -f->nups=0; -f->upvalues=NULL; -f->numparams=0; -f->is_vararg=0; -f->maxstacksize=0; -f->lineinfo=NULL; -f->sizelocvars=0; -f->locvars=NULL; -f->linedefined=0; -f->lastlinedefined=0; -f->source=NULL; -return f; -} -static void luaF_freeproto(lua_State*L,Proto*f){ -luaM_freearray(L,f->code,f->sizecode,Instruction); -luaM_freearray(L,f->p,f->sizep,Proto*); -luaM_freearray(L,f->k,f->sizek,TValue); -luaM_freearray(L,f->lineinfo,f->sizelineinfo,int); -luaM_freearray(L,f->locvars,f->sizelocvars,struct LocVar); -luaM_freearray(L,f->upvalues,f->sizeupvalues,TString*); -luaM_free(L,f); -} -static void luaF_freeclosure(lua_State*L,Closure*c){ -int size=(c->c.isC)?sizeCclosure(c->c.nupvalues): -sizeLclosure(c->l.nupvalues); -luaM_freemem(L,c,size); -} -#define MASK1(n,p)((~((~(Instruction)0)<>0)&MASK1(6,0))) -#define SET_OPCODE(i,o)((i)=(((i)&MASK0(6,0))|((cast(Instruction,o)<<0)&MASK1(6,0)))) -#define GETARG_A(i)(cast(int,((i)>>(0+6))&MASK1(8,0))) -#define SETARG_A(i,u)((i)=(((i)&MASK0(8,(0+6)))|((cast(Instruction,u)<<(0+6))&MASK1(8,(0+6))))) -#define GETARG_B(i)(cast(int,((i)>>(((0+6)+8)+9))&MASK1(9,0))) -#define SETARG_B(i,b)((i)=(((i)&MASK0(9,(((0+6)+8)+9)))|((cast(Instruction,b)<<(((0+6)+8)+9))&MASK1(9,(((0+6)+8)+9))))) -#define GETARG_C(i)(cast(int,((i)>>((0+6)+8))&MASK1(9,0))) -#define SETARG_C(i,b)((i)=(((i)&MASK0(9,((0+6)+8)))|((cast(Instruction,b)<<((0+6)+8))&MASK1(9,((0+6)+8))))) -#define GETARG_Bx(i)(cast(int,((i)>>((0+6)+8))&MASK1((9+9),0))) -#define SETARG_Bx(i,b)((i)=(((i)&MASK0((9+9),((0+6)+8)))|((cast(Instruction,b)<<((0+6)+8))&MASK1((9+9),((0+6)+8))))) -#define GETARG_sBx(i)(GETARG_Bx(i)-(((1<<(9+9))-1)>>1)) -#define SETARG_sBx(i,b)SETARG_Bx((i),cast(unsigned int,(b)+(((1<<(9+9))-1)>>1))) -#define CREATE_ABC(o,a,b,c)((cast(Instruction,o)<<0)|(cast(Instruction,a)<<(0+6))|(cast(Instruction,b)<<(((0+6)+8)+9))|(cast(Instruction,c)<<((0+6)+8))) -#define CREATE_ABx(o,a,bc)((cast(Instruction,o)<<0)|(cast(Instruction,a)<<(0+6))|(cast(Instruction,bc)<<((0+6)+8))) -#define ISK(x)((x)&(1<<(9-1))) -#define INDEXK(r)((int)(r)&~(1<<(9-1))) -#define RKASK(x)((x)|(1<<(9-1))) -static const lu_byte luaP_opmodes[(cast(int,OP_VARARG)+1)]; -#define getBMode(m)(cast(enum OpArgMask,(luaP_opmodes[m]>>4)&3)) -#define getCMode(m)(cast(enum OpArgMask,(luaP_opmodes[m]>>2)&3)) -#define testTMode(m)(luaP_opmodes[m]&(1<<7)) -typedef struct expdesc{ -expkind k; -union{ -struct{int info,aux;}s; -lua_Number nval; -}u; -int t; -int f; -}expdesc; -typedef struct upvaldesc{ -lu_byte k; -lu_byte info; -}upvaldesc; -struct BlockCnt; -typedef struct FuncState{ -Proto*f; -Table*h; -struct FuncState*prev; -struct LexState*ls; -struct lua_State*L; -struct BlockCnt*bl; -int pc; -int lasttarget; -int jpc; -int freereg; -int nk; -int np; -short nlocvars; -lu_byte nactvar; -upvaldesc upvalues[60]; -unsigned short actvar[200]; -}FuncState; -static Proto*luaY_parser(lua_State*L,ZIO*z,Mbuffer*buff, -const char*name); -struct lua_longjmp{ -struct lua_longjmp*previous; -jmp_buf b; -volatile int status; -}; -static void luaD_seterrorobj(lua_State*L,int errcode,StkId oldtop){ -switch(errcode){ -case 4:{ -setsvalue(L,oldtop,luaS_newliteral(L,"not enough memory")); -break; -} -case 5:{ -setsvalue(L,oldtop,luaS_newliteral(L,"error in error handling")); -break; -} -case 3: -case 2:{ -setobj(L,oldtop,L->top-1); -break; -} -} -L->top=oldtop+1; -} -static void restore_stack_limit(lua_State*L){ -if(L->size_ci>20000){ -int inuse=cast_int(L->ci-L->base_ci); -if(inuse+1<20000) -luaD_reallocCI(L,20000); -} -} -static void resetstack(lua_State*L,int status){ -L->ci=L->base_ci; -L->base=L->ci->base; -luaF_close(L,L->base); -luaD_seterrorobj(L,status,L->base); -L->nCcalls=L->baseCcalls; -L->allowhook=1; -restore_stack_limit(L); -L->errfunc=0; -L->errorJmp=NULL; -} -static void luaD_throw(lua_State*L,int errcode){ -if(L->errorJmp){ -L->errorJmp->status=errcode; -LUAI_THROW(L,L->errorJmp); -} -else{ -L->status=cast_byte(errcode); -if(G(L)->panic){ -resetstack(L,errcode); -G(L)->panic(L); -} -exit(EXIT_FAILURE); -} -} -static int luaD_rawrunprotected(lua_State*L,Pfunc f,void*ud){ -struct lua_longjmp lj; -lj.status=0; -lj.previous=L->errorJmp; -L->errorJmp=&lj; -LUAI_TRY(L,&lj, -(*f)(L,ud); -); -L->errorJmp=lj.previous; -return lj.status; -} -static void correctstack(lua_State*L,TValue*oldstack){ -CallInfo*ci; -GCObject*up; -L->top=(L->top-oldstack)+L->stack; -for(up=L->openupval;up!=NULL;up=up->gch.next) -gco2uv(up)->v=(gco2uv(up)->v-oldstack)+L->stack; -for(ci=L->base_ci;ci<=L->ci;ci++){ -ci->top=(ci->top-oldstack)+L->stack; -ci->base=(ci->base-oldstack)+L->stack; -ci->func=(ci->func-oldstack)+L->stack; -} -L->base=(L->base-oldstack)+L->stack; -} -static void luaD_reallocstack(lua_State*L,int newsize){ -TValue*oldstack=L->stack; -int realsize=newsize+1+5; -luaM_reallocvector(L,L->stack,L->stacksize,realsize,TValue); -L->stacksize=realsize; -L->stack_last=L->stack+newsize; -correctstack(L,oldstack); -} -static void luaD_reallocCI(lua_State*L,int newsize){ -CallInfo*oldci=L->base_ci; -luaM_reallocvector(L,L->base_ci,L->size_ci,newsize,CallInfo); -L->size_ci=newsize; -L->ci=(L->ci-oldci)+L->base_ci; -L->end_ci=L->base_ci+L->size_ci-1; -} -static void luaD_growstack(lua_State*L,int n){ -if(n<=L->stacksize) -luaD_reallocstack(L,2*L->stacksize); -else -luaD_reallocstack(L,L->stacksize+n); -} -static CallInfo*growCI(lua_State*L){ -if(L->size_ci>20000) -luaD_throw(L,5); -else{ -luaD_reallocCI(L,2*L->size_ci); -if(L->size_ci>20000) -luaG_runerror(L,"stack overflow"); -} -return++L->ci; -} -static StkId adjust_varargs(lua_State*L,Proto*p,int actual){ -int i; -int nfixargs=p->numparams; -Table*htab=NULL; -StkId base,fixed; -for(;actualtop++); -fixed=L->top-actual; -base=L->top; -for(i=0;itop++,fixed+i); -setnilvalue(fixed+i); -} -if(htab){ -sethvalue(L,L->top++,htab); -} -return base; -} -static StkId tryfuncTM(lua_State*L,StkId func){ -const TValue*tm=luaT_gettmbyobj(L,func,TM_CALL); -StkId p; -ptrdiff_t funcr=savestack(L,func); -if(!ttisfunction(tm)) -luaG_typeerror(L,func,"call"); -for(p=L->top;p>func;p--)setobj(L,p,p-1); -incr_top(L); -func=restorestack(L,funcr); -setobj(L,func,tm); -return func; -} -#define inc_ci(L)((L->ci==L->end_ci)?growCI(L):(condhardstacktests(luaD_reallocCI(L,L->size_ci)),++L->ci)) -static int luaD_precall(lua_State*L,StkId func,int nresults){ -LClosure*cl; -ptrdiff_t funcr; -if(!ttisfunction(func)) -func=tryfuncTM(L,func); -funcr=savestack(L,func); -cl=&clvalue(func)->l; -L->ci->savedpc=L->savedpc; -if(!cl->isC){ -CallInfo*ci; -StkId st,base; -Proto*p=cl->p; -luaD_checkstack(L,p->maxstacksize); -func=restorestack(L,funcr); -if(!p->is_vararg){ -base=func+1; -if(L->top>base+p->numparams) -L->top=base+p->numparams; -} -else{ -int nargs=cast_int(L->top-func)-1; -base=adjust_varargs(L,p,nargs); -func=restorestack(L,funcr); -} -ci=inc_ci(L); -ci->func=func; -L->base=ci->base=base; -ci->top=L->base+p->maxstacksize; -L->savedpc=p->code; -ci->tailcalls=0; -ci->nresults=nresults; -for(st=L->top;sttop;st++) -setnilvalue(st); -L->top=ci->top; -return 0; -} -else{ -CallInfo*ci; -int n; -luaD_checkstack(L,20); -ci=inc_ci(L); -ci->func=restorestack(L,funcr); -L->base=ci->base=ci->func+1; -ci->top=L->top+20; -ci->nresults=nresults; -n=(*curr_func(L)->c.f)(L); -if(n<0) -return 2; -else{ -luaD_poscall(L,L->top-n); -return 1; -} -} -} -static int luaD_poscall(lua_State*L,StkId firstResult){ -StkId res; -int wanted,i; -CallInfo*ci; -ci=L->ci--; -res=ci->func; -wanted=ci->nresults; -L->base=(ci-1)->base; -L->savedpc=(ci-1)->savedpc; -for(i=wanted;i!=0&&firstResulttop;i--) -setobj(L,res++,firstResult++); -while(i-->0) -setnilvalue(res++); -L->top=res; -return(wanted-(-1)); -} -static void luaD_call(lua_State*L,StkId func,int nResults){ -if(++L->nCcalls>=200){ -if(L->nCcalls==200) -luaG_runerror(L,"C stack overflow"); -else if(L->nCcalls>=(200+(200>>3))) -luaD_throw(L,5); -} -if(luaD_precall(L,func,nResults)==0) -luaV_execute(L,1); -L->nCcalls--; -luaC_checkGC(L); -} -static int luaD_pcall(lua_State*L,Pfunc func,void*u, -ptrdiff_t old_top,ptrdiff_t ef){ -int status; -unsigned short oldnCcalls=L->nCcalls; -ptrdiff_t old_ci=saveci(L,L->ci); -lu_byte old_allowhooks=L->allowhook; -ptrdiff_t old_errfunc=L->errfunc; -L->errfunc=ef; -status=luaD_rawrunprotected(L,func,u); -if(status!=0){ -StkId oldtop=restorestack(L,old_top); -luaF_close(L,oldtop); -luaD_seterrorobj(L,status,oldtop); -L->nCcalls=oldnCcalls; -L->ci=restoreci(L,old_ci); -L->base=L->ci->base; -L->savedpc=L->ci->savedpc; -L->allowhook=old_allowhooks; -restore_stack_limit(L); -} -L->errfunc=old_errfunc; -return status; -} -struct SParser{ -ZIO*z; -Mbuffer buff; -const char*name; -}; -static void f_parser(lua_State*L,void*ud){ -int i; -Proto*tf; -Closure*cl; -struct SParser*p=cast(struct SParser*,ud); -luaC_checkGC(L); -tf=luaY_parser(L,p->z, -&p->buff,p->name); -cl=luaF_newLclosure(L,tf->nups,hvalue(gt(L))); -cl->l.p=tf; -for(i=0;inups;i++) -cl->l.upvals[i]=luaF_newupval(L); -setclvalue(L,L->top,cl); -incr_top(L); -} -static int luaD_protectedparser(lua_State*L,ZIO*z,const char*name){ -struct SParser p; -int status; -p.z=z;p.name=name; -luaZ_initbuffer(L,&p.buff); -status=luaD_pcall(L,f_parser,&p,savestack(L,L->top),L->errfunc); -luaZ_freebuffer(L,&p.buff); -return status; -} -static void luaS_resize(lua_State*L,int newsize){ -GCObject**newhash; -stringtable*tb; -int i; -if(G(L)->gcstate==2) -return; -newhash=luaM_newvector(L,newsize,GCObject*); -tb=&G(L)->strt; -for(i=0;isize;i++){ -GCObject*p=tb->hash[i]; -while(p){ -GCObject*next=p->gch.next; -unsigned int h=gco2ts(p)->hash; -int h1=lmod(h,newsize); -p->gch.next=newhash[h1]; -newhash[h1]=p; -p=next; -} -} -luaM_freearray(L,tb->hash,tb->size,TString*); -tb->size=newsize; -tb->hash=newhash; -} -static TString*newlstr(lua_State*L,const char*str,size_t l, -unsigned int h){ -TString*ts; -stringtable*tb; -if(l+1>(((size_t)(~(size_t)0)-2)-sizeof(TString))/sizeof(char)) -luaM_toobig(L); -ts=cast(TString*,luaM_malloc(L,(l+1)*sizeof(char)+sizeof(TString))); -ts->tsv.len=l; -ts->tsv.hash=h; -ts->tsv.marked=luaC_white(G(L)); -ts->tsv.tt=4; -ts->tsv.reserved=0; -memcpy(ts+1,str,l*sizeof(char)); -((char*)(ts+1))[l]='\0'; -tb=&G(L)->strt; -h=lmod(h,tb->size); -ts->tsv.next=tb->hash[h]; -tb->hash[h]=obj2gco(ts); -tb->nuse++; -if(tb->nuse>cast(lu_int32,tb->size)&&tb->size<=(INT_MAX-2)/2) -luaS_resize(L,tb->size*2); -return ts; -} -static TString*luaS_newlstr(lua_State*L,const char*str,size_t l){ -GCObject*o; -unsigned int h=cast(unsigned int,l); -size_t step=(l>>5)+1; -size_t l1; -for(l1=l;l1>=step;l1-=step) -h=h^((h<<5)+(h>>2)+cast(unsigned char,str[l1-1])); -for(o=G(L)->strt.hash[lmod(h,G(L)->strt.size)]; -o!=NULL; -o=o->gch.next){ -TString*ts=rawgco2ts(o); -if(ts->tsv.len==l&&(memcmp(str,getstr(ts),l)==0)){ -if(isdead(G(L),o))changewhite(o); -return ts; -} -} -return newlstr(L,str,l,h); -} -static Udata*luaS_newudata(lua_State*L,size_t s,Table*e){ -Udata*u; -if(s>((size_t)(~(size_t)0)-2)-sizeof(Udata)) -luaM_toobig(L); -u=cast(Udata*,luaM_malloc(L,s+sizeof(Udata))); -u->uv.marked=luaC_white(G(L)); -u->uv.tt=7; -u->uv.len=s; -u->uv.metatable=NULL; -u->uv.env=e; -u->uv.next=G(L)->mainthread->next; -G(L)->mainthread->next=obj2gco(u); -return u; -} -#define hashpow2(t,n)(gnode(t,lmod((n),sizenode(t)))) -#define hashstr(t,str)hashpow2(t,(str)->tsv.hash) -#define hashboolean(t,p)hashpow2(t,p) -#define hashmod(t,n)(gnode(t,((n)%((sizenode(t)-1)|1)))) -#define hashpointer(t,p)hashmod(t,IntPoint(p)) -static const Node dummynode_={ -{{NULL},0}, -{{{NULL},0,NULL}} -}; -static Node*hashnum(const Table*t,lua_Number n){ -unsigned int a[cast_int(sizeof(lua_Number)/sizeof(int))]; -int i; -if(luai_numeq(n,0)) -return gnode(t,0); -memcpy(a,&n,sizeof(a)); -for(i=1;isizearray) -return i-1; -else{ -Node*n=mainposition(t,key); -do{ -if(luaO_rawequalObj(key2tval(n),key)|| -(ttype(gkey(n))==(8+3)&&iscollectable(key)&& -gcvalue(gkey(n))==gcvalue(key))){ -i=cast_int(n-gnode(t,0)); -return i+t->sizearray; -} -else n=gnext(n); -}while(n); -luaG_runerror(L,"invalid key to "LUA_QL("next")); -return 0; -} -} -static int luaH_next(lua_State*L,Table*t,StkId key){ -int i=findindex(L,t,key); -for(i++;isizearray;i++){ -if(!ttisnil(&t->array[i])){ -setnvalue(key,cast_num(i+1)); -setobj(L,key+1,&t->array[i]); -return 1; -} -} -for(i-=t->sizearray;i<(int)sizenode(t);i++){ -if(!ttisnil(gval(gnode(t,i)))){ -setobj(L,key,key2tval(gnode(t,i))); -setobj(L,key+1,gval(gnode(t,i))); -return 1; -} -} -return 0; -} -static int computesizes(int nums[],int*narray){ -int i; -int twotoi; -int a=0; -int na=0; -int n=0; -for(i=0,twotoi=1;twotoi/2<*narray;i++,twotoi*=2){ -if(nums[i]>0){ -a+=nums[i]; -if(a>twotoi/2){ -n=twotoi; -na=a; -} -} -if(a==*narray)break; -} -*narray=n; -return na; -} -static int countint(const TValue*key,int*nums){ -int k=arrayindex(key); -if(0t->sizearray){ -lim=t->sizearray; -if(i>lim) -break; -} -for(;i<=lim;i++){ -if(!ttisnil(&t->array[i-1])) -lc++; -} -nums[lg]+=lc; -ause+=lc; -} -return ause; -} -static int numusehash(const Table*t,int*nums,int*pnasize){ -int totaluse=0; -int ause=0; -int i=sizenode(t); -while(i--){ -Node*n=&t->node[i]; -if(!ttisnil(gval(n))){ -ause+=countint(key2tval(n),nums); -totaluse++; -} -} -*pnasize+=ause; -return totaluse; -} -static void setarrayvector(lua_State*L,Table*t,int size){ -int i; -luaM_reallocvector(L,t->array,t->sizearray,size,TValue); -for(i=t->sizearray;iarray[i]); -t->sizearray=size; -} -static void setnodevector(lua_State*L,Table*t,int size){ -int lsize; -if(size==0){ -t->node=cast(Node*,(&dummynode_)); -lsize=0; -} -else{ -int i; -lsize=ceillog2(size); -if(lsize>(32-2)) -luaG_runerror(L,"table overflow"); -size=twoto(lsize); -t->node=luaM_newvector(L,size,Node); -for(i=0;ilsizenode=cast_byte(lsize); -t->lastfree=gnode(t,size); -} -static void resize(lua_State*L,Table*t,int nasize,int nhsize){ -int i; -int oldasize=t->sizearray; -int oldhsize=t->lsizenode; -Node*nold=t->node; -if(nasize>oldasize) -setarrayvector(L,t,nasize); -setnodevector(L,t,nhsize); -if(nasizesizearray=nasize; -for(i=nasize;iarray[i])) -setobj(L,luaH_setnum(L,t,i+1),&t->array[i]); -} -luaM_reallocvector(L,t->array,oldasize,nasize,TValue); -} -for(i=twoto(oldhsize)-1;i>=0;i--){ -Node*old=nold+i; -if(!ttisnil(gval(old))) -setobj(L,luaH_set(L,t,key2tval(old)),gval(old)); -} -if(nold!=(&dummynode_)) -luaM_freearray(L,nold,twoto(oldhsize),Node); -} -static void luaH_resizearray(lua_State*L,Table*t,int nasize){ -int nsize=(t->node==(&dummynode_))?0:sizenode(t); -resize(L,t,nasize,nsize); -} -static void rehash(lua_State*L,Table*t,const TValue*ek){ -int nasize,na; -int nums[(32-2)+1]; -int i; -int totaluse; -for(i=0;i<=(32-2);i++)nums[i]=0; -nasize=numusearray(t,nums); -totaluse=nasize; -totaluse+=numusehash(t,nums,&nasize); -nasize+=countint(ek,nums); -totaluse++; -na=computesizes(nums,&nasize); -resize(L,t,nasize,totaluse-na); -} -static Table*luaH_new(lua_State*L,int narray,int nhash){ -Table*t=luaM_new(L,Table); -luaC_link(L,obj2gco(t),5); -t->metatable=NULL; -t->flags=cast_byte(~0); -t->array=NULL; -t->sizearray=0; -t->lsizenode=0; -t->node=cast(Node*,(&dummynode_)); -setarrayvector(L,t,narray); -setnodevector(L,t,nhash); -return t; -} -static void luaH_free(lua_State*L,Table*t){ -if(t->node!=(&dummynode_)) -luaM_freearray(L,t->node,sizenode(t),Node); -luaM_freearray(L,t->array,t->sizearray,TValue); -luaM_free(L,t); -} -static Node*getfreepos(Table*t){ -while(t->lastfree-->t->node){ -if(ttisnil(gkey(t->lastfree))) -return t->lastfree; -} -return NULL; -} -static TValue*newkey(lua_State*L,Table*t,const TValue*key){ -Node*mp=mainposition(t,key); -if(!ttisnil(gval(mp))||mp==(&dummynode_)){ -Node*othern; -Node*n=getfreepos(t); -if(n==NULL){ -rehash(L,t,key); -return luaH_set(L,t,key); -} -othern=mainposition(t,key2tval(mp)); -if(othern!=mp){ -while(gnext(othern)!=mp)othern=gnext(othern); -gnext(othern)=n; -*n=*mp; -gnext(mp)=NULL; -setnilvalue(gval(mp)); -} -else{ -gnext(n)=gnext(mp); -gnext(mp)=n; -mp=n; -} -} -gkey(mp)->value=key->value;gkey(mp)->tt=key->tt; -luaC_barriert(L,t,key); -return gval(mp); -} -static const TValue*luaH_getnum(Table*t,int key){ -if(cast(unsigned int,key-1)sizearray)) -return&t->array[key-1]; -else{ -lua_Number nk=cast_num(key); -Node*n=hashnum(t,nk); -do{ -if(ttisnumber(gkey(n))&&luai_numeq(nvalue(gkey(n)),nk)) -return gval(n); -else n=gnext(n); -}while(n); -return(&luaO_nilobject_); -} -} -static const TValue*luaH_getstr(Table*t,TString*key){ -Node*n=hashstr(t,key); -do{ -if(ttisstring(gkey(n))&&rawtsvalue(gkey(n))==key) -return gval(n); -else n=gnext(n); -}while(n); -return(&luaO_nilobject_); -} -static const TValue*luaH_get(Table*t,const TValue*key){ -switch(ttype(key)){ -case 0:return(&luaO_nilobject_); -case 4:return luaH_getstr(t,rawtsvalue(key)); -case 3:{ -int k; -lua_Number n=nvalue(key); -lua_number2int(k,n); -if(luai_numeq(cast_num(k),nvalue(key))) -return luaH_getnum(t,k); -} -default:{ -Node*n=mainposition(t,key); -do{ -if(luaO_rawequalObj(key2tval(n),key)) -return gval(n); -else n=gnext(n); -}while(n); -return(&luaO_nilobject_); -} -} -} -static TValue*luaH_set(lua_State*L,Table*t,const TValue*key){ -const TValue*p=luaH_get(t,key); -t->flags=0; -if(p!=(&luaO_nilobject_)) -return cast(TValue*,p); -else{ -if(ttisnil(key))luaG_runerror(L,"table index is nil"); -else if(ttisnumber(key)&&luai_numisnan(nvalue(key))) -luaG_runerror(L,"table index is NaN"); -return newkey(L,t,key); -} -} -static TValue*luaH_setnum(lua_State*L,Table*t,int key){ -const TValue*p=luaH_getnum(t,key); -if(p!=(&luaO_nilobject_)) -return cast(TValue*,p); -else{ -TValue k; -setnvalue(&k,cast_num(key)); -return newkey(L,t,&k); -} -} -static TValue*luaH_setstr(lua_State*L,Table*t,TString*key){ -const TValue*p=luaH_getstr(t,key); -if(p!=(&luaO_nilobject_)) -return cast(TValue*,p); -else{ -TValue k; -setsvalue(L,&k,key); -return newkey(L,t,&k); -} -} -static int unbound_search(Table*t,unsigned int j){ -unsigned int i=j; -j++; -while(!ttisnil(luaH_getnum(t,j))){ -i=j; -j*=2; -if(j>cast(unsigned int,(INT_MAX-2))){ -i=1; -while(!ttisnil(luaH_getnum(t,i)))i++; -return i-1; -} -} -while(j-i>1){ -unsigned int m=(i+j)/2; -if(ttisnil(luaH_getnum(t,m)))j=m; -else i=m; -} -return i; -} -static int luaH_getn(Table*t){ -unsigned int j=t->sizearray; -if(j>0&&ttisnil(&t->array[j-1])){ -unsigned int i=0; -while(j-i>1){ -unsigned int m=(i+j)/2; -if(ttisnil(&t->array[m-1]))j=m; -else i=m; -} -return i; -} -else if(t->node==(&dummynode_)) -return j; -else return unbound_search(t,j); -} -#define makewhite(g,x)((x)->gch.marked=cast_byte(((x)->gch.marked&cast_byte(~(bitmask(2)|bit2mask(0,1))))|luaC_white(g))) -#define white2gray(x)reset2bits((x)->gch.marked,0,1) -#define black2gray(x)resetbit((x)->gch.marked,2) -#define stringmark(s)reset2bits((s)->tsv.marked,0,1) -#define isfinalized(u)testbit((u)->marked,3) -#define markfinalized(u)l_setbit((u)->marked,3) -#define markvalue(g,o){checkconsistency(o);if(iscollectable(o)&&iswhite(gcvalue(o)))reallymarkobject(g,gcvalue(o));} -#define markobject(g,t){if(iswhite(obj2gco(t)))reallymarkobject(g,obj2gco(t));} -#define setthreshold(g)(g->GCthreshold=(g->estimate/100)*g->gcpause) -static void removeentry(Node*n){ -if(iscollectable(gkey(n))) -setttype(gkey(n),(8+3)); -} -static void reallymarkobject(global_State*g,GCObject*o){ -white2gray(o); -switch(o->gch.tt){ -case 4:{ -return; -} -case 7:{ -Table*mt=gco2u(o)->metatable; -gray2black(o); -if(mt)markobject(g,mt); -markobject(g,gco2u(o)->env); -return; -} -case(8+2):{ -UpVal*uv=gco2uv(o); -markvalue(g,uv->v); -if(uv->v==&uv->u.value) -gray2black(o); -return; -} -case 6:{ -gco2cl(o)->c.gclist=g->gray; -g->gray=o; -break; -} -case 5:{ -gco2h(o)->gclist=g->gray; -g->gray=o; -break; -} -case 8:{ -gco2th(o)->gclist=g->gray; -g->gray=o; -break; -} -case(8+1):{ -gco2p(o)->gclist=g->gray; -g->gray=o; -break; -} -default:; -} -} -static void marktmu(global_State*g){ -GCObject*u=g->tmudata; -if(u){ -do{ -u=u->gch.next; -makewhite(g,u); -reallymarkobject(g,u); -}while(u!=g->tmudata); -} -} -static size_t luaC_separateudata(lua_State*L,int all){ -global_State*g=G(L); -size_t deadmem=0; -GCObject**p=&g->mainthread->next; -GCObject*curr; -while((curr=*p)!=NULL){ -if(!(iswhite(curr)||all)||isfinalized(gco2u(curr))) -p=&curr->gch.next; -else if(fasttm(L,gco2u(curr)->metatable,TM_GC)==NULL){ -markfinalized(gco2u(curr)); -p=&curr->gch.next; -} -else{ -deadmem+=sizeudata(gco2u(curr)); -markfinalized(gco2u(curr)); -*p=curr->gch.next; -if(g->tmudata==NULL) -g->tmudata=curr->gch.next=curr; -else{ -curr->gch.next=g->tmudata->gch.next; -g->tmudata->gch.next=curr; -g->tmudata=curr; -} -} -} -return deadmem; -} -static int traversetable(global_State*g,Table*h){ -int i; -int weakkey=0; -int weakvalue=0; -const TValue*mode; -if(h->metatable) -markobject(g,h->metatable); -mode=gfasttm(g,h->metatable,TM_MODE); -if(mode&&ttisstring(mode)){ -weakkey=(strchr(svalue(mode),'k')!=NULL); -weakvalue=(strchr(svalue(mode),'v')!=NULL); -if(weakkey||weakvalue){ -h->marked&=~(bitmask(3)|bitmask(4)); -h->marked|=cast_byte((weakkey<<3)| -(weakvalue<<4)); -h->gclist=g->weak; -g->weak=obj2gco(h); -} -} -if(weakkey&&weakvalue)return 1; -if(!weakvalue){ -i=h->sizearray; -while(i--) -markvalue(g,&h->array[i]); -} -i=sizenode(h); -while(i--){ -Node*n=gnode(h,i); -if(ttisnil(gval(n))) -removeentry(n); -else{ -if(!weakkey)markvalue(g,gkey(n)); -if(!weakvalue)markvalue(g,gval(n)); -} -} -return weakkey||weakvalue; -} -static void traverseproto(global_State*g,Proto*f){ -int i; -if(f->source)stringmark(f->source); -for(i=0;isizek;i++) -markvalue(g,&f->k[i]); -for(i=0;isizeupvalues;i++){ -if(f->upvalues[i]) -stringmark(f->upvalues[i]); -} -for(i=0;isizep;i++){ -if(f->p[i]) -markobject(g,f->p[i]); -} -for(i=0;isizelocvars;i++){ -if(f->locvars[i].varname) -stringmark(f->locvars[i].varname); -} -} -static void traverseclosure(global_State*g,Closure*cl){ -markobject(g,cl->c.env); -if(cl->c.isC){ -int i; -for(i=0;ic.nupvalues;i++) -markvalue(g,&cl->c.upvalue[i]); -} -else{ -int i; -markobject(g,cl->l.p); -for(i=0;il.nupvalues;i++) -markobject(g,cl->l.upvals[i]); -} -} -static void checkstacksizes(lua_State*L,StkId max){ -int ci_used=cast_int(L->ci-L->base_ci); -int s_used=cast_int(max-L->stack); -if(L->size_ci>20000) -return; -if(4*ci_usedsize_ci&&2*8size_ci) -luaD_reallocCI(L,L->size_ci/2); -condhardstacktests(luaD_reallocCI(L,ci_used+1)); -if(4*s_usedstacksize&& -2*((2*20)+5)stacksize) -luaD_reallocstack(L,L->stacksize/2); -condhardstacktests(luaD_reallocstack(L,s_used)); -} -static void traversestack(global_State*g,lua_State*l){ -StkId o,lim; -CallInfo*ci; -markvalue(g,gt(l)); -lim=l->top; -for(ci=l->base_ci;ci<=l->ci;ci++){ -if(limtop)lim=ci->top; -} -for(o=l->stack;otop;o++) -markvalue(g,o); -for(;o<=lim;o++) -setnilvalue(o); -checkstacksizes(l,lim); -} -static l_mem propagatemark(global_State*g){ -GCObject*o=g->gray; -gray2black(o); -switch(o->gch.tt){ -case 5:{ -Table*h=gco2h(o); -g->gray=h->gclist; -if(traversetable(g,h)) -black2gray(o); -return sizeof(Table)+sizeof(TValue)*h->sizearray+ -sizeof(Node)*sizenode(h); -} -case 6:{ -Closure*cl=gco2cl(o); -g->gray=cl->c.gclist; -traverseclosure(g,cl); -return(cl->c.isC)?sizeCclosure(cl->c.nupvalues): -sizeLclosure(cl->l.nupvalues); -} -case 8:{ -lua_State*th=gco2th(o); -g->gray=th->gclist; -th->gclist=g->grayagain; -g->grayagain=o; -black2gray(o); -traversestack(g,th); -return sizeof(lua_State)+sizeof(TValue)*th->stacksize+ -sizeof(CallInfo)*th->size_ci; -} -case(8+1):{ -Proto*p=gco2p(o); -g->gray=p->gclist; -traverseproto(g,p); -return sizeof(Proto)+sizeof(Instruction)*p->sizecode+ -sizeof(Proto*)*p->sizep+ -sizeof(TValue)*p->sizek+ -sizeof(int)*p->sizelineinfo+ -sizeof(LocVar)*p->sizelocvars+ -sizeof(TString*)*p->sizeupvalues; -} -default:return 0; -} -} -static size_t propagateall(global_State*g){ -size_t m=0; -while(g->gray)m+=propagatemark(g); -return m; -} -static int iscleared(const TValue*o,int iskey){ -if(!iscollectable(o))return 0; -if(ttisstring(o)){ -stringmark(rawtsvalue(o)); -return 0; -} -return iswhite(gcvalue(o))|| -(ttisuserdata(o)&&(!iskey&&isfinalized(uvalue(o)))); -} -static void cleartable(GCObject*l){ -while(l){ -Table*h=gco2h(l); -int i=h->sizearray; -if(testbit(h->marked,4)){ -while(i--){ -TValue*o=&h->array[i]; -if(iscleared(o,0)) -setnilvalue(o); -} -} -i=sizenode(h); -while(i--){ -Node*n=gnode(h,i); -if(!ttisnil(gval(n))&& -(iscleared(key2tval(n),1)||iscleared(gval(n),0))){ -setnilvalue(gval(n)); -removeentry(n); -} -} -l=h->gclist; -} -} -static void freeobj(lua_State*L,GCObject*o){ -switch(o->gch.tt){ -case(8+1):luaF_freeproto(L,gco2p(o));break; -case 6:luaF_freeclosure(L,gco2cl(o));break; -case(8+2):luaF_freeupval(L,gco2uv(o));break; -case 5:luaH_free(L,gco2h(o));break; -case 8:{ -luaE_freethread(L,gco2th(o)); -break; -} -case 4:{ -G(L)->strt.nuse--; -luaM_freemem(L,o,sizestring(gco2ts(o))); -break; -} -case 7:{ -luaM_freemem(L,o,sizeudata(gco2u(o))); -break; -} -default:; -} -} -#define sweepwholelist(L,p)sweeplist(L,p,((lu_mem)(~(lu_mem)0)-2)) -static GCObject**sweeplist(lua_State*L,GCObject**p,lu_mem count){ -GCObject*curr; -global_State*g=G(L); -int deadmask=otherwhite(g); -while((curr=*p)!=NULL&&count-->0){ -if(curr->gch.tt==8) -sweepwholelist(L,&gco2th(curr)->openupval); -if((curr->gch.marked^bit2mask(0,1))&deadmask){ -makewhite(g,curr); -p=&curr->gch.next; -} -else{ -*p=curr->gch.next; -if(curr==g->rootgc) -g->rootgc=curr->gch.next; -freeobj(L,curr); -} -} -return p; -} -static void checkSizes(lua_State*L){ -global_State*g=G(L); -if(g->strt.nusestrt.size/4)&& -g->strt.size>32*2) -luaS_resize(L,g->strt.size/2); -if(luaZ_sizebuffer(&g->buff)>32*2){ -size_t newsize=luaZ_sizebuffer(&g->buff)/2; -luaZ_resizebuffer(L,&g->buff,newsize); -} -} -static void GCTM(lua_State*L){ -global_State*g=G(L); -GCObject*o=g->tmudata->gch.next; -Udata*udata=rawgco2u(o); -const TValue*tm; -if(o==g->tmudata) -g->tmudata=NULL; -else -g->tmudata->gch.next=udata->uv.next; -udata->uv.next=g->mainthread->next; -g->mainthread->next=o; -makewhite(g,o); -tm=fasttm(L,udata->uv.metatable,TM_GC); -if(tm!=NULL){ -lu_byte oldah=L->allowhook; -lu_mem oldt=g->GCthreshold; -L->allowhook=0; -g->GCthreshold=2*g->totalbytes; -setobj(L,L->top,tm); -setuvalue(L,L->top+1,udata); -L->top+=2; -luaD_call(L,L->top-2,0); -L->allowhook=oldah; -g->GCthreshold=oldt; -} -} -static void luaC_callGCTM(lua_State*L){ -while(G(L)->tmudata) -GCTM(L); -} -static void luaC_freeall(lua_State*L){ -global_State*g=G(L); -int i; -g->currentwhite=bit2mask(0,1)|bitmask(6); -sweepwholelist(L,&g->rootgc); -for(i=0;istrt.size;i++) -sweepwholelist(L,&g->strt.hash[i]); -} -static void markmt(global_State*g){ -int i; -for(i=0;i<(8+1);i++) -if(g->mt[i])markobject(g,g->mt[i]); -} -static void markroot(lua_State*L){ -global_State*g=G(L); -g->gray=NULL; -g->grayagain=NULL; -g->weak=NULL; -markobject(g,g->mainthread); -markvalue(g,gt(g->mainthread)); -markvalue(g,registry(L)); -markmt(g); -g->gcstate=1; -} -static void remarkupvals(global_State*g){ -UpVal*uv; -for(uv=g->uvhead.u.l.next;uv!=&g->uvhead;uv=uv->u.l.next){ -if(isgray(obj2gco(uv))) -markvalue(g,uv->v); -} -} -static void atomic(lua_State*L){ -global_State*g=G(L); -size_t udsize; -remarkupvals(g); -propagateall(g); -g->gray=g->weak; -g->weak=NULL; -markobject(g,L); -markmt(g); -propagateall(g); -g->gray=g->grayagain; -g->grayagain=NULL; -propagateall(g); -udsize=luaC_separateudata(L,0); -marktmu(g); -udsize+=propagateall(g); -cleartable(g->weak); -g->currentwhite=cast_byte(otherwhite(g)); -g->sweepstrgc=0; -g->sweepgc=&g->rootgc; -g->gcstate=2; -g->estimate=g->totalbytes-udsize; -} -static l_mem singlestep(lua_State*L){ -global_State*g=G(L); -switch(g->gcstate){ -case 0:{ -markroot(L); -return 0; -} -case 1:{ -if(g->gray) -return propagatemark(g); -else{ -atomic(L); -return 0; -} -} -case 2:{ -lu_mem old=g->totalbytes; -sweepwholelist(L,&g->strt.hash[g->sweepstrgc++]); -if(g->sweepstrgc>=g->strt.size) -g->gcstate=3; -g->estimate-=old-g->totalbytes; -return 10; -} -case 3:{ -lu_mem old=g->totalbytes; -g->sweepgc=sweeplist(L,g->sweepgc,40); -if(*g->sweepgc==NULL){ -checkSizes(L); -g->gcstate=4; -} -g->estimate-=old-g->totalbytes; -return 40*10; -} -case 4:{ -if(g->tmudata){ -GCTM(L); -if(g->estimate>100) -g->estimate-=100; -return 100; -} -else{ -g->gcstate=0; -g->gcdept=0; -return 0; -} -} -default:return 0; -} -} -static void luaC_step(lua_State*L){ -global_State*g=G(L); -l_mem lim=(1024u/100)*g->gcstepmul; -if(lim==0) -lim=(((lu_mem)(~(lu_mem)0)-2)-1)/2; -g->gcdept+=g->totalbytes-g->GCthreshold; -do{ -lim-=singlestep(L); -if(g->gcstate==0) -break; -}while(lim>0); -if(g->gcstate!=0){ -if(g->gcdept<1024u) -g->GCthreshold=g->totalbytes+1024u; -else{ -g->gcdept-=1024u; -g->GCthreshold=g->totalbytes; -} -} -else{ -setthreshold(g); -} -} -static void luaC_barrierf(lua_State*L,GCObject*o,GCObject*v){ -global_State*g=G(L); -if(g->gcstate==1) -reallymarkobject(g,v); -else -makewhite(g,o); -} -static void luaC_barrierback(lua_State*L,Table*t){ -global_State*g=G(L); -GCObject*o=obj2gco(t); -black2gray(o); -t->gclist=g->grayagain; -g->grayagain=o; -} -static void luaC_link(lua_State*L,GCObject*o,lu_byte tt){ -global_State*g=G(L); -o->gch.next=g->rootgc; -g->rootgc=o; -o->gch.marked=luaC_white(g); -o->gch.tt=tt; -} -static void luaC_linkupval(lua_State*L,UpVal*uv){ -global_State*g=G(L); -GCObject*o=obj2gco(uv); -o->gch.next=g->rootgc; -g->rootgc=o; -if(isgray(o)){ -if(g->gcstate==1){ -gray2black(o); -luaC_barrier(L,uv,uv->v); -} -else{ -makewhite(g,o); -} -} -} -typedef union{ -lua_Number r; -TString*ts; -}SemInfo; -typedef struct Token{ -int token; -SemInfo seminfo; -}Token; -typedef struct LexState{ -int current; -int linenumber; -int lastline; -Token t; -Token lookahead; -struct FuncState*fs; -struct lua_State*L; -ZIO*z; -Mbuffer*buff; -TString*source; -char decpoint; -}LexState; -static void luaX_init(lua_State*L); -static void luaX_lexerror(LexState*ls,const char*msg,int token); -#define state_size(x)(sizeof(x)+0) -#define fromstate(l)(cast(lu_byte*,(l))-0) -#define tostate(l)(cast(lua_State*,cast(lu_byte*,l)+0)) -typedef struct LG{ -lua_State l; -global_State g; -}LG; -static void stack_init(lua_State*L1,lua_State*L){ -L1->base_ci=luaM_newvector(L,8,CallInfo); -L1->ci=L1->base_ci; -L1->size_ci=8; -L1->end_ci=L1->base_ci+L1->size_ci-1; -L1->stack=luaM_newvector(L,(2*20)+5,TValue); -L1->stacksize=(2*20)+5; -L1->top=L1->stack; -L1->stack_last=L1->stack+(L1->stacksize-5)-1; -L1->ci->func=L1->top; -setnilvalue(L1->top++); -L1->base=L1->ci->base=L1->top; -L1->ci->top=L1->top+20; -} -static void freestack(lua_State*L,lua_State*L1){ -luaM_freearray(L,L1->base_ci,L1->size_ci,CallInfo); -luaM_freearray(L,L1->stack,L1->stacksize,TValue); -} -static void f_luaopen(lua_State*L,void*ud){ -global_State*g=G(L); -UNUSED(ud); -stack_init(L,L); -sethvalue(L,gt(L),luaH_new(L,0,2)); -sethvalue(L,registry(L),luaH_new(L,0,2)); -luaS_resize(L,32); -luaT_init(L); -luaX_init(L); -luaS_fix(luaS_newliteral(L,"not enough memory")); -g->GCthreshold=4*g->totalbytes; -} -static void preinit_state(lua_State*L,global_State*g){ -G(L)=g; -L->stack=NULL; -L->stacksize=0; -L->errorJmp=NULL; -L->hook=NULL; -L->hookmask=0; -L->basehookcount=0; -L->allowhook=1; -resethookcount(L); -L->openupval=NULL; -L->size_ci=0; -L->nCcalls=L->baseCcalls=0; -L->status=0; -L->base_ci=L->ci=NULL; -L->savedpc=NULL; -L->errfunc=0; -setnilvalue(gt(L)); -} -static void close_state(lua_State*L){ -global_State*g=G(L); -luaF_close(L,L->stack); -luaC_freeall(L); -luaM_freearray(L,G(L)->strt.hash,G(L)->strt.size,TString*); -luaZ_freebuffer(L,&g->buff); -freestack(L,L); -(*g->frealloc)(g->ud,fromstate(L),state_size(LG),0); -} -static void luaE_freethread(lua_State*L,lua_State*L1){ -luaF_close(L1,L1->stack); -freestack(L,L1); -luaM_freemem(L,fromstate(L1),state_size(lua_State)); -} -static lua_State*lua_newstate(lua_Alloc f,void*ud){ -int i; -lua_State*L; -global_State*g; -void*l=(*f)(ud,NULL,0,state_size(LG)); -if(l==NULL)return NULL; -L=tostate(l); -g=&((LG*)L)->g; -L->next=NULL; -L->tt=8; -g->currentwhite=bit2mask(0,5); -L->marked=luaC_white(g); -set2bits(L->marked,5,6); -preinit_state(L,g); -g->frealloc=f; -g->ud=ud; -g->mainthread=L; -g->uvhead.u.l.prev=&g->uvhead; -g->uvhead.u.l.next=&g->uvhead; -g->GCthreshold=0; -g->strt.size=0; -g->strt.nuse=0; -g->strt.hash=NULL; -setnilvalue(registry(L)); -luaZ_initbuffer(L,&g->buff); -g->panic=NULL; -g->gcstate=0; -g->rootgc=obj2gco(L); -g->sweepstrgc=0; -g->sweepgc=&g->rootgc; -g->gray=NULL; -g->grayagain=NULL; -g->weak=NULL; -g->tmudata=NULL; -g->totalbytes=sizeof(LG); -g->gcpause=200; -g->gcstepmul=200; -g->gcdept=0; -for(i=0;i<(8+1);i++)g->mt[i]=NULL; -if(luaD_rawrunprotected(L,f_luaopen,NULL)!=0){ -close_state(L); -L=NULL; -} -else -{} -return L; -} -static void callallgcTM(lua_State*L,void*ud){ -UNUSED(ud); -luaC_callGCTM(L); -} -static void lua_close(lua_State*L){ -L=G(L)->mainthread; -luaF_close(L,L->stack); -luaC_separateudata(L,1); -L->errfunc=0; -do{ -L->ci=L->base_ci; -L->base=L->top=L->ci->base; -L->nCcalls=L->baseCcalls=0; -}while(luaD_rawrunprotected(L,callallgcTM,NULL)!=0); -close_state(L); -} -#define getcode(fs,e)((fs)->f->code[(e)->u.s.info]) -#define luaK_codeAsBx(fs,o,A,sBx)luaK_codeABx(fs,o,A,(sBx)+(((1<<(9+9))-1)>>1)) -#define luaK_setmultret(fs,e)luaK_setreturns(fs,e,(-1)) -static int luaK_codeABx(FuncState*fs,OpCode o,int A,unsigned int Bx); -static int luaK_codeABC(FuncState*fs,OpCode o,int A,int B,int C); -static void luaK_setreturns(FuncState*fs,expdesc*e,int nresults); -static void luaK_patchtohere(FuncState*fs,int list); -static void luaK_concat(FuncState*fs,int*l1,int l2); -static int currentpc(lua_State*L,CallInfo*ci){ -if(!isLua(ci))return-1; -if(ci==L->ci) -ci->savedpc=L->savedpc; -return pcRel(ci->savedpc,ci_func(ci)->l.p); -} -static int currentline(lua_State*L,CallInfo*ci){ -int pc=currentpc(L,ci); -if(pc<0) -return-1; -else -return getline_(ci_func(ci)->l.p,pc); -} -static int lua_getstack(lua_State*L,int level,lua_Debug*ar){ -int status; -CallInfo*ci; -for(ci=L->ci;level>0&&ci>L->base_ci;ci--){ -level--; -if(f_isLua(ci)) -level-=ci->tailcalls; -} -if(level==0&&ci>L->base_ci){ -status=1; -ar->i_ci=cast_int(ci-L->base_ci); -} -else if(level<0){ -status=1; -ar->i_ci=0; -} -else status=0; -return status; -} -static Proto*getluaproto(CallInfo*ci){ -return(isLua(ci)?ci_func(ci)->l.p:NULL); -} -static void funcinfo(lua_Debug*ar,Closure*cl){ -if(cl->c.isC){ -ar->source="=[C]"; -ar->linedefined=-1; -ar->lastlinedefined=-1; -ar->what="C"; -} -else{ -ar->source=getstr(cl->l.p->source); -ar->linedefined=cl->l.p->linedefined; -ar->lastlinedefined=cl->l.p->lastlinedefined; -ar->what=(ar->linedefined==0)?"main":"Lua"; -} -luaO_chunkid(ar->short_src,ar->source,60); -} -static void info_tailcall(lua_Debug*ar){ -ar->name=ar->namewhat=""; -ar->what="tail"; -ar->lastlinedefined=ar->linedefined=ar->currentline=-1; -ar->source="=(tail call)"; -luaO_chunkid(ar->short_src,ar->source,60); -ar->nups=0; -} -static void collectvalidlines(lua_State*L,Closure*f){ -if(f==NULL||f->c.isC){ -setnilvalue(L->top); -} -else{ -Table*t=luaH_new(L,0,0); -int*lineinfo=f->l.p->lineinfo; -int i; -for(i=0;il.p->sizelineinfo;i++) -setbvalue(luaH_setnum(L,t,lineinfo[i]),1); -sethvalue(L,L->top,t); -} -incr_top(L); -} -static int auxgetinfo(lua_State*L,const char*what,lua_Debug*ar, -Closure*f,CallInfo*ci){ -int status=1; -if(f==NULL){ -info_tailcall(ar); -return status; -} -for(;*what;what++){ -switch(*what){ -case'S':{ -funcinfo(ar,f); -break; -} -case'l':{ -ar->currentline=(ci)?currentline(L,ci):-1; -break; -} -case'u':{ -ar->nups=f->c.nupvalues; -break; -} -case'n':{ -ar->namewhat=(ci)?NULL:NULL; -if(ar->namewhat==NULL){ -ar->namewhat=""; -ar->name=NULL; -} -break; -} -case'L': -case'f': -break; -default:status=0; -} -} -return status; -} -static int lua_getinfo(lua_State*L,const char*what,lua_Debug*ar){ -int status; -Closure*f=NULL; -CallInfo*ci=NULL; -if(*what=='>'){ -StkId func=L->top-1; -luai_apicheck(L,ttisfunction(func)); -what++; -f=clvalue(func); -L->top--; -} -else if(ar->i_ci!=0){ -ci=L->base_ci+ar->i_ci; -f=clvalue(ci->func); -} -status=auxgetinfo(L,what,ar,f,ci); -if(strchr(what,'f')){ -if(f==NULL)setnilvalue(L->top); -else setclvalue(L,L->top,f); -incr_top(L); -} -if(strchr(what,'L')) -collectvalidlines(L,f); -return status; -} -static int isinstack(CallInfo*ci,const TValue*o){ -StkId p; -for(p=ci->base;ptop;p++) -if(o==p)return 1; -return 0; -} -static void luaG_typeerror(lua_State*L,const TValue*o,const char*op){ -const char*name=NULL; -const char*t=luaT_typenames[ttype(o)]; -const char*kind=(isinstack(L->ci,o))? -NULL: -NULL; -if(kind) -luaG_runerror(L,"attempt to %s %s "LUA_QL("%s")" (a %s value)", -op,kind,name,t); -else -luaG_runerror(L,"attempt to %s a %s value",op,t); -} -static void luaG_concaterror(lua_State*L,StkId p1,StkId p2){ -if(ttisstring(p1)||ttisnumber(p1))p1=p2; -luaG_typeerror(L,p1,"concatenate"); -} -static void luaG_aritherror(lua_State*L,const TValue*p1,const TValue*p2){ -TValue temp; -if(luaV_tonumber(p1,&temp)==NULL) -p2=p1; -luaG_typeerror(L,p2,"perform arithmetic on"); -} -static int luaG_ordererror(lua_State*L,const TValue*p1,const TValue*p2){ -const char*t1=luaT_typenames[ttype(p1)]; -const char*t2=luaT_typenames[ttype(p2)]; -if(t1[2]==t2[2]) -luaG_runerror(L,"attempt to compare two %s values",t1); -else -luaG_runerror(L,"attempt to compare %s with %s",t1,t2); -return 0; -} -static void addinfo(lua_State*L,const char*msg){ -CallInfo*ci=L->ci; -if(isLua(ci)){ -char buff[60]; -int line=currentline(L,ci); -luaO_chunkid(buff,getstr(getluaproto(ci)->source),60); -luaO_pushfstring(L,"%s:%d: %s",buff,line,msg); -} -} -static void luaG_errormsg(lua_State*L){ -if(L->errfunc!=0){ -StkId errfunc=restorestack(L,L->errfunc); -if(!ttisfunction(errfunc))luaD_throw(L,5); -setobj(L,L->top,L->top-1); -setobj(L,L->top-1,errfunc); -incr_top(L); -luaD_call(L,L->top-2,1); -} -luaD_throw(L,2); -} -static void luaG_runerror(lua_State*L,const char*fmt,...){ -va_list argp; -va_start(argp,fmt); -addinfo(L,luaO_pushvfstring(L,fmt,argp)); -va_end(argp); -luaG_errormsg(L); -} -static int luaZ_fill(ZIO*z){ -size_t size; -lua_State*L=z->L; -const char*buff; -buff=z->reader(L,z->data,&size); -if(buff==NULL||size==0)return(-1); -z->n=size-1; -z->p=buff; -return char2int(*(z->p++)); -} -static void luaZ_init(lua_State*L,ZIO*z,lua_Reader reader,void*data){ -z->L=L; -z->reader=reader; -z->data=data; -z->n=0; -z->p=NULL; -} -static char*luaZ_openspace(lua_State*L,Mbuffer*buff,size_t n){ -if(n>buff->buffsize){ -if(n<32)n=32; -luaZ_resizebuffer(L,buff,n); -} -return buff->buffer; -} -#define opmode(t,a,b,c,m)(((t)<<7)|((a)<<6)|((b)<<4)|((c)<<2)|(m)) -static const lu_byte luaP_opmodes[(cast(int,OP_VARARG)+1)]={ -opmode(0,1,OpArgR,OpArgN,iABC) -,opmode(0,1,OpArgK,OpArgN,iABx) -,opmode(0,1,OpArgU,OpArgU,iABC) -,opmode(0,1,OpArgR,OpArgN,iABC) -,opmode(0,1,OpArgU,OpArgN,iABC) -,opmode(0,1,OpArgK,OpArgN,iABx) -,opmode(0,1,OpArgR,OpArgK,iABC) -,opmode(0,0,OpArgK,OpArgN,iABx) -,opmode(0,0,OpArgU,OpArgN,iABC) -,opmode(0,0,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgU,OpArgU,iABC) -,opmode(0,1,OpArgR,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgK,OpArgK,iABC) -,opmode(0,1,OpArgR,OpArgN,iABC) -,opmode(0,1,OpArgR,OpArgN,iABC) -,opmode(0,1,OpArgR,OpArgN,iABC) -,opmode(0,1,OpArgR,OpArgR,iABC) -,opmode(0,0,OpArgR,OpArgN,iAsBx) -,opmode(1,0,OpArgK,OpArgK,iABC) -,opmode(1,0,OpArgK,OpArgK,iABC) -,opmode(1,0,OpArgK,OpArgK,iABC) -,opmode(1,1,OpArgR,OpArgU,iABC) -,opmode(1,1,OpArgR,OpArgU,iABC) -,opmode(0,1,OpArgU,OpArgU,iABC) -,opmode(0,1,OpArgU,OpArgU,iABC) -,opmode(0,0,OpArgU,OpArgN,iABC) -,opmode(0,1,OpArgR,OpArgN,iAsBx) -,opmode(0,1,OpArgR,OpArgN,iAsBx) -,opmode(1,0,OpArgN,OpArgU,iABC) -,opmode(0,0,OpArgU,OpArgU,iABC) -,opmode(0,0,OpArgN,OpArgN,iABC) -,opmode(0,1,OpArgU,OpArgN,iABx) -,opmode(0,1,OpArgU,OpArgN,iABC) -}; -#define next(ls)(ls->current=zgetc(ls->z)) -#define currIsNewline(ls)(ls->current=='\n'||ls->current=='\r') -static const char*const luaX_tokens[]={ -"and","break","do","else","elseif", -"end","false","for","function","if", -"in","local","nil","not","or","repeat", -"return","then","true","until","while", -"..","...","==",">=","<=","~=", -"","","","", -NULL -}; -#define save_and_next(ls)(save(ls,ls->current),next(ls)) -static void save(LexState*ls,int c){ -Mbuffer*b=ls->buff; -if(b->n+1>b->buffsize){ -size_t newsize; -if(b->buffsize>=((size_t)(~(size_t)0)-2)/2) -luaX_lexerror(ls,"lexical element too long",0); -newsize=b->buffsize*2; -luaZ_resizebuffer(ls->L,b,newsize); -} -b->buffer[b->n++]=cast(char,c); -} -static void luaX_init(lua_State*L){ -int i; -for(i=0;i<(cast(int,TK_WHILE-257+1));i++){ -TString*ts=luaS_new(L,luaX_tokens[i]); -luaS_fix(ts); -ts->tsv.reserved=cast_byte(i+1); -} -} -static const char*luaX_token2str(LexState*ls,int token){ -if(token<257){ -return(iscntrl(token))?luaO_pushfstring(ls->L,"char(%d)",token): -luaO_pushfstring(ls->L,"%c",token); -} -else -return luaX_tokens[token-257]; -} -static const char*txtToken(LexState*ls,int token){ -switch(token){ -case TK_NAME: -case TK_STRING: -case TK_NUMBER: -save(ls,'\0'); -return luaZ_buffer(ls->buff); -default: -return luaX_token2str(ls,token); -} -} -static void luaX_lexerror(LexState*ls,const char*msg,int token){ -char buff[80]; -luaO_chunkid(buff,getstr(ls->source),80); -msg=luaO_pushfstring(ls->L,"%s:%d: %s",buff,ls->linenumber,msg); -if(token) -luaO_pushfstring(ls->L,"%s near "LUA_QL("%s"),msg,txtToken(ls,token)); -luaD_throw(ls->L,3); -} -static void luaX_syntaxerror(LexState*ls,const char*msg){ -luaX_lexerror(ls,msg,ls->t.token); -} -static TString*luaX_newstring(LexState*ls,const char*str,size_t l){ -lua_State*L=ls->L; -TString*ts=luaS_newlstr(L,str,l); -TValue*o=luaH_setstr(L,ls->fs->h,ts); -if(ttisnil(o)){ -setbvalue(o,1); -luaC_checkGC(L); -} -return ts; -} -static void inclinenumber(LexState*ls){ -int old=ls->current; -next(ls); -if(currIsNewline(ls)&&ls->current!=old) -next(ls); -if(++ls->linenumber>=(INT_MAX-2)) -luaX_syntaxerror(ls,"chunk has too many lines"); -} -static void luaX_setinput(lua_State*L,LexState*ls,ZIO*z,TString*source){ -ls->decpoint='.'; -ls->L=L; -ls->lookahead.token=TK_EOS; -ls->z=z; -ls->fs=NULL; -ls->linenumber=1; -ls->lastline=1; -ls->source=source; -luaZ_resizebuffer(ls->L,ls->buff,32); -next(ls); -} -static int check_next(LexState*ls,const char*set){ -if(!strchr(set,ls->current)) -return 0; -save_and_next(ls); -return 1; -} -static void buffreplace(LexState*ls,char from,char to){ -size_t n=luaZ_bufflen(ls->buff); -char*p=luaZ_buffer(ls->buff); -while(n--) -if(p[n]==from)p[n]=to; -} -static void read_numeral(LexState*ls,SemInfo*seminfo){ -do{ -save_and_next(ls); -}while(isdigit(ls->current)||ls->current=='.'); -if(check_next(ls,"Ee")) -check_next(ls,"+-"); -while(isalnum(ls->current)||ls->current=='_') -save_and_next(ls); -save(ls,'\0'); -buffreplace(ls,'.',ls->decpoint); -if(!luaO_str2d(luaZ_buffer(ls->buff),&seminfo->r)) -luaX_lexerror(ls,"malformed number",TK_NUMBER); -} -static int skip_sep(LexState*ls){ -int count=0; -int s=ls->current; -save_and_next(ls); -while(ls->current=='='){ -save_and_next(ls); -count++; -} -return(ls->current==s)?count:(-count)-1; -} -static void read_long_string(LexState*ls,SemInfo*seminfo,int sep){ -int cont=0; -(void)(cont); -save_and_next(ls); -if(currIsNewline(ls)) -inclinenumber(ls); -for(;;){ -switch(ls->current){ -case(-1): -luaX_lexerror(ls,(seminfo)?"unfinished long string": -"unfinished long comment",TK_EOS); -break; -case']':{ -if(skip_sep(ls)==sep){ -save_and_next(ls); -goto endloop; -} -break; -} -case'\n': -case'\r':{ -save(ls,'\n'); -inclinenumber(ls); -if(!seminfo)luaZ_resetbuffer(ls->buff); -break; -} -default:{ -if(seminfo)save_and_next(ls); -else next(ls); -} -} -}endloop: -if(seminfo) -seminfo->ts=luaX_newstring(ls,luaZ_buffer(ls->buff)+(2+sep), -luaZ_bufflen(ls->buff)-2*(2+sep)); -} -static void read_string(LexState*ls,int del,SemInfo*seminfo){ -save_and_next(ls); -while(ls->current!=del){ -switch(ls->current){ -case(-1): -luaX_lexerror(ls,"unfinished string",TK_EOS); -continue; -case'\n': -case'\r': -luaX_lexerror(ls,"unfinished string",TK_STRING); -continue; -case'\\':{ -int c; -next(ls); -switch(ls->current){ -case'a':c='\a';break; -case'b':c='\b';break; -case'f':c='\f';break; -case'n':c='\n';break; -case'r':c='\r';break; -case't':c='\t';break; -case'v':c='\v';break; -case'\n': -case'\r':save(ls,'\n');inclinenumber(ls);continue; -case(-1):continue; -default:{ -if(!isdigit(ls->current)) -save_and_next(ls); -else{ -int i=0; -c=0; -do{ -c=10*c+(ls->current-'0'); -next(ls); -}while(++i<3&&isdigit(ls->current)); -if(c>UCHAR_MAX) -luaX_lexerror(ls,"escape sequence too large",TK_STRING); -save(ls,c); -} -continue; -} -} -save(ls,c); -next(ls); -continue; -} -default: -save_and_next(ls); -} -} -save_and_next(ls); -seminfo->ts=luaX_newstring(ls,luaZ_buffer(ls->buff)+1, -luaZ_bufflen(ls->buff)-2); -} -static int llex(LexState*ls,SemInfo*seminfo){ -luaZ_resetbuffer(ls->buff); -for(;;){ -switch(ls->current){ -case'\n': -case'\r':{ -inclinenumber(ls); -continue; -} -case'-':{ -next(ls); -if(ls->current!='-')return'-'; -next(ls); -if(ls->current=='['){ -int sep=skip_sep(ls); -luaZ_resetbuffer(ls->buff); -if(sep>=0){ -read_long_string(ls,NULL,sep); -luaZ_resetbuffer(ls->buff); -continue; -} -} -while(!currIsNewline(ls)&&ls->current!=(-1)) -next(ls); -continue; -} -case'[':{ -int sep=skip_sep(ls); -if(sep>=0){ -read_long_string(ls,seminfo,sep); -return TK_STRING; -} -else if(sep==-1)return'['; -else luaX_lexerror(ls,"invalid long string delimiter",TK_STRING); -} -case'=':{ -next(ls); -if(ls->current!='=')return'='; -else{next(ls);return TK_EQ;} -} -case'<':{ -next(ls); -if(ls->current!='=')return'<'; -else{next(ls);return TK_LE;} -} -case'>':{ -next(ls); -if(ls->current!='=')return'>'; -else{next(ls);return TK_GE;} -} -case'~':{ -next(ls); -if(ls->current!='=')return'~'; -else{next(ls);return TK_NE;} -} -case'"': -case'\'':{ -read_string(ls,ls->current,seminfo); -return TK_STRING; -} -case'.':{ -save_and_next(ls); -if(check_next(ls,".")){ -if(check_next(ls,".")) -return TK_DOTS; -else return TK_CONCAT; -} -else if(!isdigit(ls->current))return'.'; -else{ -read_numeral(ls,seminfo); -return TK_NUMBER; -} -} -case(-1):{ -return TK_EOS; -} -default:{ -if(isspace(ls->current)){ -next(ls); -continue; -} -else if(isdigit(ls->current)){ -read_numeral(ls,seminfo); -return TK_NUMBER; -} -else if(isalpha(ls->current)||ls->current=='_'){ -TString*ts; -do{ -save_and_next(ls); -}while(isalnum(ls->current)||ls->current=='_'); -ts=luaX_newstring(ls,luaZ_buffer(ls->buff), -luaZ_bufflen(ls->buff)); -if(ts->tsv.reserved>0) -return ts->tsv.reserved-1+257; -else{ -seminfo->ts=ts; -return TK_NAME; -} -} -else{ -int c=ls->current; -next(ls); -return c; -} -} -} -} -} -static void luaX_next(LexState*ls){ -ls->lastline=ls->linenumber; -if(ls->lookahead.token!=TK_EOS){ -ls->t=ls->lookahead; -ls->lookahead.token=TK_EOS; -} -else -ls->t.token=llex(ls,&ls->t.seminfo); -} -static void luaX_lookahead(LexState*ls){ -ls->lookahead.token=llex(ls,&ls->lookahead.seminfo); -} -#define hasjumps(e)((e)->t!=(e)->f) -static int isnumeral(expdesc*e){ -return(e->k==VKNUM&&e->t==(-1)&&e->f==(-1)); -} -static void luaK_nil(FuncState*fs,int from,int n){ -Instruction*previous; -if(fs->pc>fs->lasttarget){ -if(fs->pc==0){ -if(from>=fs->nactvar) -return; -} -else{ -previous=&fs->f->code[fs->pc-1]; -if(GET_OPCODE(*previous)==OP_LOADNIL){ -int pfrom=GETARG_A(*previous); -int pto=GETARG_B(*previous); -if(pfrom<=from&&from<=pto+1){ -if(from+n-1>pto) -SETARG_B(*previous,from+n-1); -return; -} -} -} -} -luaK_codeABC(fs,OP_LOADNIL,from,from+n-1,0); -} -static int luaK_jump(FuncState*fs){ -int jpc=fs->jpc; -int j; -fs->jpc=(-1); -j=luaK_codeAsBx(fs,OP_JMP,0,(-1)); -luaK_concat(fs,&j,jpc); -return j; -} -static void luaK_ret(FuncState*fs,int first,int nret){ -luaK_codeABC(fs,OP_RETURN,first,nret+1,0); -} -static int condjump(FuncState*fs,OpCode op,int A,int B,int C){ -luaK_codeABC(fs,op,A,B,C); -return luaK_jump(fs); -} -static void fixjump(FuncState*fs,int pc,int dest){ -Instruction*jmp=&fs->f->code[pc]; -int offset=dest-(pc+1); -if(abs(offset)>(((1<<(9+9))-1)>>1)) -luaX_syntaxerror(fs->ls,"control structure too long"); -SETARG_sBx(*jmp,offset); -} -static int luaK_getlabel(FuncState*fs){ -fs->lasttarget=fs->pc; -return fs->pc; -} -static int getjump(FuncState*fs,int pc){ -int offset=GETARG_sBx(fs->f->code[pc]); -if(offset==(-1)) -return(-1); -else -return(pc+1)+offset; -} -static Instruction*getjumpcontrol(FuncState*fs,int pc){ -Instruction*pi=&fs->f->code[pc]; -if(pc>=1&&testTMode(GET_OPCODE(*(pi-1)))) -return pi-1; -else -return pi; -} -static int need_value(FuncState*fs,int list){ -for(;list!=(-1);list=getjump(fs,list)){ -Instruction i=*getjumpcontrol(fs,list); -if(GET_OPCODE(i)!=OP_TESTSET)return 1; -} -return 0; -} -static int patchtestreg(FuncState*fs,int node,int reg){ -Instruction*i=getjumpcontrol(fs,node); -if(GET_OPCODE(*i)!=OP_TESTSET) -return 0; -if(reg!=((1<<8)-1)&®!=GETARG_B(*i)) -SETARG_A(*i,reg); -else -*i=CREATE_ABC(OP_TEST,GETARG_B(*i),0,GETARG_C(*i)); -return 1; -} -static void removevalues(FuncState*fs,int list){ -for(;list!=(-1);list=getjump(fs,list)) -patchtestreg(fs,list,((1<<8)-1)); -} -static void patchlistaux(FuncState*fs,int list,int vtarget,int reg, -int dtarget){ -while(list!=(-1)){ -int next=getjump(fs,list); -if(patchtestreg(fs,list,reg)) -fixjump(fs,list,vtarget); -else -fixjump(fs,list,dtarget); -list=next; -} -} -static void dischargejpc(FuncState*fs){ -patchlistaux(fs,fs->jpc,fs->pc,((1<<8)-1),fs->pc); -fs->jpc=(-1); -} -static void luaK_patchlist(FuncState*fs,int list,int target){ -if(target==fs->pc) -luaK_patchtohere(fs,list); -else{ -patchlistaux(fs,list,target,((1<<8)-1),target); -} -} -static void luaK_patchtohere(FuncState*fs,int list){ -luaK_getlabel(fs); -luaK_concat(fs,&fs->jpc,list); -} -static void luaK_concat(FuncState*fs,int*l1,int l2){ -if(l2==(-1))return; -else if(*l1==(-1)) -*l1=l2; -else{ -int list=*l1; -int next; -while((next=getjump(fs,list))!=(-1)) -list=next; -fixjump(fs,list,l2); -} -} -static void luaK_checkstack(FuncState*fs,int n){ -int newstack=fs->freereg+n; -if(newstack>fs->f->maxstacksize){ -if(newstack>=250) -luaX_syntaxerror(fs->ls,"function or expression too complex"); -fs->f->maxstacksize=cast_byte(newstack); -} -} -static void luaK_reserveregs(FuncState*fs,int n){ -luaK_checkstack(fs,n); -fs->freereg+=n; -} -static void freereg(FuncState*fs,int reg){ -if(!ISK(reg)&®>=fs->nactvar){ -fs->freereg--; -} -} -static void freeexp(FuncState*fs,expdesc*e){ -if(e->k==VNONRELOC) -freereg(fs,e->u.s.info); -} -static int addk(FuncState*fs,TValue*k,TValue*v){ -lua_State*L=fs->L; -TValue*idx=luaH_set(L,fs->h,k); -Proto*f=fs->f; -int oldsize=f->sizek; -if(ttisnumber(idx)){ -return cast_int(nvalue(idx)); -} -else{ -setnvalue(idx,cast_num(fs->nk)); -luaM_growvector(L,f->k,fs->nk,f->sizek,TValue, -((1<<(9+9))-1),"constant table overflow"); -while(oldsizesizek)setnilvalue(&f->k[oldsize++]); -setobj(L,&f->k[fs->nk],v); -luaC_barrier(L,f,v); -return fs->nk++; -} -} -static int luaK_stringK(FuncState*fs,TString*s){ -TValue o; -setsvalue(fs->L,&o,s); -return addk(fs,&o,&o); -} -static int luaK_numberK(FuncState*fs,lua_Number r){ -TValue o; -setnvalue(&o,r); -return addk(fs,&o,&o); -} -static int boolK(FuncState*fs,int b){ -TValue o; -setbvalue(&o,b); -return addk(fs,&o,&o); -} -static int nilK(FuncState*fs){ -TValue k,v; -setnilvalue(&v); -sethvalue(fs->L,&k,fs->h); -return addk(fs,&k,&v); -} -static void luaK_setreturns(FuncState*fs,expdesc*e,int nresults){ -if(e->k==VCALL){ -SETARG_C(getcode(fs,e),nresults+1); -} -else if(e->k==VVARARG){ -SETARG_B(getcode(fs,e),nresults+1); -SETARG_A(getcode(fs,e),fs->freereg); -luaK_reserveregs(fs,1); -} -} -static void luaK_setoneret(FuncState*fs,expdesc*e){ -if(e->k==VCALL){ -e->k=VNONRELOC; -e->u.s.info=GETARG_A(getcode(fs,e)); -} -else if(e->k==VVARARG){ -SETARG_B(getcode(fs,e),2); -e->k=VRELOCABLE; -} -} -static void luaK_dischargevars(FuncState*fs,expdesc*e){ -switch(e->k){ -case VLOCAL:{ -e->k=VNONRELOC; -break; -} -case VUPVAL:{ -e->u.s.info=luaK_codeABC(fs,OP_GETUPVAL,0,e->u.s.info,0); -e->k=VRELOCABLE; -break; -} -case VGLOBAL:{ -e->u.s.info=luaK_codeABx(fs,OP_GETGLOBAL,0,e->u.s.info); -e->k=VRELOCABLE; -break; -} -case VINDEXED:{ -freereg(fs,e->u.s.aux); -freereg(fs,e->u.s.info); -e->u.s.info=luaK_codeABC(fs,OP_GETTABLE,0,e->u.s.info,e->u.s.aux); -e->k=VRELOCABLE; -break; -} -case VVARARG: -case VCALL:{ -luaK_setoneret(fs,e); -break; -} -default:break; -} -} -static int code_label(FuncState*fs,int A,int b,int jump){ -luaK_getlabel(fs); -return luaK_codeABC(fs,OP_LOADBOOL,A,b,jump); -} -static void discharge2reg(FuncState*fs,expdesc*e,int reg){ -luaK_dischargevars(fs,e); -switch(e->k){ -case VNIL:{ -luaK_nil(fs,reg,1); -break; -} -case VFALSE:case VTRUE:{ -luaK_codeABC(fs,OP_LOADBOOL,reg,e->k==VTRUE,0); -break; -} -case VK:{ -luaK_codeABx(fs,OP_LOADK,reg,e->u.s.info); -break; -} -case VKNUM:{ -luaK_codeABx(fs,OP_LOADK,reg,luaK_numberK(fs,e->u.nval)); -break; -} -case VRELOCABLE:{ -Instruction*pc=&getcode(fs,e); -SETARG_A(*pc,reg); -break; -} -case VNONRELOC:{ -if(reg!=e->u.s.info) -luaK_codeABC(fs,OP_MOVE,reg,e->u.s.info,0); -break; -} -default:{ -return; -} -} -e->u.s.info=reg; -e->k=VNONRELOC; -} -static void discharge2anyreg(FuncState*fs,expdesc*e){ -if(e->k!=VNONRELOC){ -luaK_reserveregs(fs,1); -discharge2reg(fs,e,fs->freereg-1); -} -} -static void exp2reg(FuncState*fs,expdesc*e,int reg){ -discharge2reg(fs,e,reg); -if(e->k==VJMP) -luaK_concat(fs,&e->t,e->u.s.info); -if(hasjumps(e)){ -int final; -int p_f=(-1); -int p_t=(-1); -if(need_value(fs,e->t)||need_value(fs,e->f)){ -int fj=(e->k==VJMP)?(-1):luaK_jump(fs); -p_f=code_label(fs,reg,0,1); -p_t=code_label(fs,reg,1,0); -luaK_patchtohere(fs,fj); -} -final=luaK_getlabel(fs); -patchlistaux(fs,e->f,final,reg,p_f); -patchlistaux(fs,e->t,final,reg,p_t); -} -e->f=e->t=(-1); -e->u.s.info=reg; -e->k=VNONRELOC; -} -static void luaK_exp2nextreg(FuncState*fs,expdesc*e){ -luaK_dischargevars(fs,e); -freeexp(fs,e); -luaK_reserveregs(fs,1); -exp2reg(fs,e,fs->freereg-1); -} -static int luaK_exp2anyreg(FuncState*fs,expdesc*e){ -luaK_dischargevars(fs,e); -if(e->k==VNONRELOC){ -if(!hasjumps(e))return e->u.s.info; -if(e->u.s.info>=fs->nactvar){ -exp2reg(fs,e,e->u.s.info); -return e->u.s.info; -} -} -luaK_exp2nextreg(fs,e); -return e->u.s.info; -} -static void luaK_exp2val(FuncState*fs,expdesc*e){ -if(hasjumps(e)) -luaK_exp2anyreg(fs,e); -else -luaK_dischargevars(fs,e); -} -static int luaK_exp2RK(FuncState*fs,expdesc*e){ -luaK_exp2val(fs,e); -switch(e->k){ -case VKNUM: -case VTRUE: -case VFALSE: -case VNIL:{ -if(fs->nk<=((1<<(9-1))-1)){ -e->u.s.info=(e->k==VNIL)?nilK(fs): -(e->k==VKNUM)?luaK_numberK(fs,e->u.nval): -boolK(fs,(e->k==VTRUE)); -e->k=VK; -return RKASK(e->u.s.info); -} -else break; -} -case VK:{ -if(e->u.s.info<=((1<<(9-1))-1)) -return RKASK(e->u.s.info); -else break; -} -default:break; -} -return luaK_exp2anyreg(fs,e); -} -static void luaK_storevar(FuncState*fs,expdesc*var,expdesc*ex){ -switch(var->k){ -case VLOCAL:{ -freeexp(fs,ex); -exp2reg(fs,ex,var->u.s.info); -return; -} -case VUPVAL:{ -int e=luaK_exp2anyreg(fs,ex); -luaK_codeABC(fs,OP_SETUPVAL,e,var->u.s.info,0); -break; -} -case VGLOBAL:{ -int e=luaK_exp2anyreg(fs,ex); -luaK_codeABx(fs,OP_SETGLOBAL,e,var->u.s.info); -break; -} -case VINDEXED:{ -int e=luaK_exp2RK(fs,ex); -luaK_codeABC(fs,OP_SETTABLE,var->u.s.info,var->u.s.aux,e); -break; -} -default:{ -break; -} -} -freeexp(fs,ex); -} -static void luaK_self(FuncState*fs,expdesc*e,expdesc*key){ -int func; -luaK_exp2anyreg(fs,e); -freeexp(fs,e); -func=fs->freereg; -luaK_reserveregs(fs,2); -luaK_codeABC(fs,OP_SELF,func,e->u.s.info,luaK_exp2RK(fs,key)); -freeexp(fs,key); -e->u.s.info=func; -e->k=VNONRELOC; -} -static void invertjump(FuncState*fs,expdesc*e){ -Instruction*pc=getjumpcontrol(fs,e->u.s.info); -SETARG_A(*pc,!(GETARG_A(*pc))); -} -static int jumponcond(FuncState*fs,expdesc*e,int cond){ -if(e->k==VRELOCABLE){ -Instruction ie=getcode(fs,e); -if(GET_OPCODE(ie)==OP_NOT){ -fs->pc--; -return condjump(fs,OP_TEST,GETARG_B(ie),0,!cond); -} -} -discharge2anyreg(fs,e); -freeexp(fs,e); -return condjump(fs,OP_TESTSET,((1<<8)-1),e->u.s.info,cond); -} -static void luaK_goiftrue(FuncState*fs,expdesc*e){ -int pc; -luaK_dischargevars(fs,e); -switch(e->k){ -case VK:case VKNUM:case VTRUE:{ -pc=(-1); -break; -} -case VJMP:{ -invertjump(fs,e); -pc=e->u.s.info; -break; -} -default:{ -pc=jumponcond(fs,e,0); -break; -} -} -luaK_concat(fs,&e->f,pc); -luaK_patchtohere(fs,e->t); -e->t=(-1); -} -static void luaK_goiffalse(FuncState*fs,expdesc*e){ -int pc; -luaK_dischargevars(fs,e); -switch(e->k){ -case VNIL:case VFALSE:{ -pc=(-1); -break; -} -case VJMP:{ -pc=e->u.s.info; -break; -} -default:{ -pc=jumponcond(fs,e,1); -break; -} -} -luaK_concat(fs,&e->t,pc); -luaK_patchtohere(fs,e->f); -e->f=(-1); -} -static void codenot(FuncState*fs,expdesc*e){ -luaK_dischargevars(fs,e); -switch(e->k){ -case VNIL:case VFALSE:{ -e->k=VTRUE; -break; -} -case VK:case VKNUM:case VTRUE:{ -e->k=VFALSE; -break; -} -case VJMP:{ -invertjump(fs,e); -break; -} -case VRELOCABLE: -case VNONRELOC:{ -discharge2anyreg(fs,e); -freeexp(fs,e); -e->u.s.info=luaK_codeABC(fs,OP_NOT,0,e->u.s.info,0); -e->k=VRELOCABLE; -break; -} -default:{ -break; -} -} -{int temp=e->f;e->f=e->t;e->t=temp;} -removevalues(fs,e->f); -removevalues(fs,e->t); -} -static void luaK_indexed(FuncState*fs,expdesc*t,expdesc*k){ -t->u.s.aux=luaK_exp2RK(fs,k); -t->k=VINDEXED; -} -static int constfolding(OpCode op,expdesc*e1,expdesc*e2){ -lua_Number v1,v2,r; -if(!isnumeral(e1)||!isnumeral(e2))return 0; -v1=e1->u.nval; -v2=e2->u.nval; -switch(op){ -case OP_ADD:r=luai_numadd(v1,v2);break; -case OP_SUB:r=luai_numsub(v1,v2);break; -case OP_MUL:r=luai_nummul(v1,v2);break; -case OP_DIV: -if(v2==0)return 0; -r=luai_numdiv(v1,v2);break; -case OP_MOD: -if(v2==0)return 0; -r=luai_nummod(v1,v2);break; -case OP_POW:r=luai_numpow(v1,v2);break; -case OP_UNM:r=luai_numunm(v1);break; -case OP_LEN:return 0; -default:r=0;break; -} -if(luai_numisnan(r))return 0; -e1->u.nval=r; -return 1; -} -static void codearith(FuncState*fs,OpCode op,expdesc*e1,expdesc*e2){ -if(constfolding(op,e1,e2)) -return; -else{ -int o2=(op!=OP_UNM&&op!=OP_LEN)?luaK_exp2RK(fs,e2):0; -int o1=luaK_exp2RK(fs,e1); -if(o1>o2){ -freeexp(fs,e1); -freeexp(fs,e2); -} -else{ -freeexp(fs,e2); -freeexp(fs,e1); -} -e1->u.s.info=luaK_codeABC(fs,op,0,o1,o2); -e1->k=VRELOCABLE; -} -} -static void codecomp(FuncState*fs,OpCode op,int cond,expdesc*e1, -expdesc*e2){ -int o1=luaK_exp2RK(fs,e1); -int o2=luaK_exp2RK(fs,e2); -freeexp(fs,e2); -freeexp(fs,e1); -if(cond==0&&op!=OP_EQ){ -int temp; -temp=o1;o1=o2;o2=temp; -cond=1; -} -e1->u.s.info=condjump(fs,op,cond,o1,o2); -e1->k=VJMP; -} -static void luaK_prefix(FuncState*fs,UnOpr op,expdesc*e){ -expdesc e2; -e2.t=e2.f=(-1);e2.k=VKNUM;e2.u.nval=0; -switch(op){ -case OPR_MINUS:{ -if(!isnumeral(e)) -luaK_exp2anyreg(fs,e); -codearith(fs,OP_UNM,e,&e2); -break; -} -case OPR_NOT:codenot(fs,e);break; -case OPR_LEN:{ -luaK_exp2anyreg(fs,e); -codearith(fs,OP_LEN,e,&e2); -break; -} -default:; -} -} -static void luaK_infix(FuncState*fs,BinOpr op,expdesc*v){ -switch(op){ -case OPR_AND:{ -luaK_goiftrue(fs,v); -break; -} -case OPR_OR:{ -luaK_goiffalse(fs,v); -break; -} -case OPR_CONCAT:{ -luaK_exp2nextreg(fs,v); -break; -} -case OPR_ADD:case OPR_SUB:case OPR_MUL:case OPR_DIV: -case OPR_MOD:case OPR_POW:{ -if(!isnumeral(v))luaK_exp2RK(fs,v); -break; -} -default:{ -luaK_exp2RK(fs,v); -break; -} -} -} -static void luaK_posfix(FuncState*fs,BinOpr op,expdesc*e1,expdesc*e2){ -switch(op){ -case OPR_AND:{ -luaK_dischargevars(fs,e2); -luaK_concat(fs,&e2->f,e1->f); -*e1=*e2; -break; -} -case OPR_OR:{ -luaK_dischargevars(fs,e2); -luaK_concat(fs,&e2->t,e1->t); -*e1=*e2; -break; -} -case OPR_CONCAT:{ -luaK_exp2val(fs,e2); -if(e2->k==VRELOCABLE&&GET_OPCODE(getcode(fs,e2))==OP_CONCAT){ -freeexp(fs,e1); -SETARG_B(getcode(fs,e2),e1->u.s.info); -e1->k=VRELOCABLE;e1->u.s.info=e2->u.s.info; -} -else{ -luaK_exp2nextreg(fs,e2); -codearith(fs,OP_CONCAT,e1,e2); -} -break; -} -case OPR_ADD:codearith(fs,OP_ADD,e1,e2);break; -case OPR_SUB:codearith(fs,OP_SUB,e1,e2);break; -case OPR_MUL:codearith(fs,OP_MUL,e1,e2);break; -case OPR_DIV:codearith(fs,OP_DIV,e1,e2);break; -case OPR_MOD:codearith(fs,OP_MOD,e1,e2);break; -case OPR_POW:codearith(fs,OP_POW,e1,e2);break; -case OPR_EQ:codecomp(fs,OP_EQ,1,e1,e2);break; -case OPR_NE:codecomp(fs,OP_EQ,0,e1,e2);break; -case OPR_LT:codecomp(fs,OP_LT,1,e1,e2);break; -case OPR_LE:codecomp(fs,OP_LE,1,e1,e2);break; -case OPR_GT:codecomp(fs,OP_LT,0,e1,e2);break; -case OPR_GE:codecomp(fs,OP_LE,0,e1,e2);break; -default:; -} -} -static void luaK_fixline(FuncState*fs,int line){ -fs->f->lineinfo[fs->pc-1]=line; -} -static int luaK_code(FuncState*fs,Instruction i,int line){ -Proto*f=fs->f; -dischargejpc(fs); -luaM_growvector(fs->L,f->code,fs->pc,f->sizecode,Instruction, -(INT_MAX-2),"code size overflow"); -f->code[fs->pc]=i; -luaM_growvector(fs->L,f->lineinfo,fs->pc,f->sizelineinfo,int, -(INT_MAX-2),"code size overflow"); -f->lineinfo[fs->pc]=line; -return fs->pc++; -} -static int luaK_codeABC(FuncState*fs,OpCode o,int a,int b,int c){ -return luaK_code(fs,CREATE_ABC(o,a,b,c),fs->ls->lastline); -} -static int luaK_codeABx(FuncState*fs,OpCode o,int a,unsigned int bc){ -return luaK_code(fs,CREATE_ABx(o,a,bc),fs->ls->lastline); -} -static void luaK_setlist(FuncState*fs,int base,int nelems,int tostore){ -int c=(nelems-1)/50+1; -int b=(tostore==(-1))?0:tostore; -if(c<=((1<<9)-1)) -luaK_codeABC(fs,OP_SETLIST,base,b,c); -else{ -luaK_codeABC(fs,OP_SETLIST,base,b,0); -luaK_code(fs,cast(Instruction,c),fs->ls->lastline); -} -fs->freereg=base+1; -} -#define hasmultret(k)((k)==VCALL||(k)==VVARARG) -#define getlocvar(fs,i)((fs)->f->locvars[(fs)->actvar[i]]) -#define luaY_checklimit(fs,v,l,m)if((v)>(l))errorlimit(fs,l,m) -typedef struct BlockCnt{ -struct BlockCnt*previous; -int breaklist; -lu_byte nactvar; -lu_byte upval; -lu_byte isbreakable; -}BlockCnt; -static void chunk(LexState*ls); -static void expr(LexState*ls,expdesc*v); -static void anchor_token(LexState*ls){ -if(ls->t.token==TK_NAME||ls->t.token==TK_STRING){ -TString*ts=ls->t.seminfo.ts; -luaX_newstring(ls,getstr(ts),ts->tsv.len); -} -} -static void error_expected(LexState*ls,int token){ -luaX_syntaxerror(ls, -luaO_pushfstring(ls->L,LUA_QL("%s")" expected",luaX_token2str(ls,token))); -} -static void errorlimit(FuncState*fs,int limit,const char*what){ -const char*msg=(fs->f->linedefined==0)? -luaO_pushfstring(fs->L,"main function has more than %d %s",limit,what): -luaO_pushfstring(fs->L,"function at line %d has more than %d %s", -fs->f->linedefined,limit,what); -luaX_lexerror(fs->ls,msg,0); -} -static int testnext(LexState*ls,int c){ -if(ls->t.token==c){ -luaX_next(ls); -return 1; -} -else return 0; -} -static void check(LexState*ls,int c){ -if(ls->t.token!=c) -error_expected(ls,c); -} -static void checknext(LexState*ls,int c){ -check(ls,c); -luaX_next(ls); -} -#define check_condition(ls,c,msg){if(!(c))luaX_syntaxerror(ls,msg);} -static void check_match(LexState*ls,int what,int who,int where){ -if(!testnext(ls,what)){ -if(where==ls->linenumber) -error_expected(ls,what); -else{ -luaX_syntaxerror(ls,luaO_pushfstring(ls->L, -LUA_QL("%s")" expected (to close "LUA_QL("%s")" at line %d)", -luaX_token2str(ls,what),luaX_token2str(ls,who),where)); -} -} -} -static TString*str_checkname(LexState*ls){ -TString*ts; -check(ls,TK_NAME); -ts=ls->t.seminfo.ts; -luaX_next(ls); -return ts; -} -static void init_exp(expdesc*e,expkind k,int i){ -e->f=e->t=(-1); -e->k=k; -e->u.s.info=i; -} -static void codestring(LexState*ls,expdesc*e,TString*s){ -init_exp(e,VK,luaK_stringK(ls->fs,s)); -} -static void checkname(LexState*ls,expdesc*e){ -codestring(ls,e,str_checkname(ls)); -} -static int registerlocalvar(LexState*ls,TString*varname){ -FuncState*fs=ls->fs; -Proto*f=fs->f; -int oldsize=f->sizelocvars; -luaM_growvector(ls->L,f->locvars,fs->nlocvars,f->sizelocvars, -LocVar,SHRT_MAX,"too many local variables"); -while(oldsizesizelocvars)f->locvars[oldsize++].varname=NULL; -f->locvars[fs->nlocvars].varname=varname; -luaC_objbarrier(ls->L,f,varname); -return fs->nlocvars++; -} -#define new_localvarliteral(ls,v,n)new_localvar(ls,luaX_newstring(ls,""v,(sizeof(v)/sizeof(char))-1),n) -static void new_localvar(LexState*ls,TString*name,int n){ -FuncState*fs=ls->fs; -luaY_checklimit(fs,fs->nactvar+n+1,200,"local variables"); -fs->actvar[fs->nactvar+n]=cast(unsigned short,registerlocalvar(ls,name)); -} -static void adjustlocalvars(LexState*ls,int nvars){ -FuncState*fs=ls->fs; -fs->nactvar=cast_byte(fs->nactvar+nvars); -for(;nvars;nvars--){ -getlocvar(fs,fs->nactvar-nvars).startpc=fs->pc; -} -} -static void removevars(LexState*ls,int tolevel){ -FuncState*fs=ls->fs; -while(fs->nactvar>tolevel) -getlocvar(fs,--fs->nactvar).endpc=fs->pc; -} -static int indexupvalue(FuncState*fs,TString*name,expdesc*v){ -int i; -Proto*f=fs->f; -int oldsize=f->sizeupvalues; -for(i=0;inups;i++){ -if(fs->upvalues[i].k==v->k&&fs->upvalues[i].info==v->u.s.info){ -return i; -} -} -luaY_checklimit(fs,f->nups+1,60,"upvalues"); -luaM_growvector(fs->L,f->upvalues,f->nups,f->sizeupvalues, -TString*,(INT_MAX-2),""); -while(oldsizesizeupvalues)f->upvalues[oldsize++]=NULL; -f->upvalues[f->nups]=name; -luaC_objbarrier(fs->L,f,name); -fs->upvalues[f->nups].k=cast_byte(v->k); -fs->upvalues[f->nups].info=cast_byte(v->u.s.info); -return f->nups++; -} -static int searchvar(FuncState*fs,TString*n){ -int i; -for(i=fs->nactvar-1;i>=0;i--){ -if(n==getlocvar(fs,i).varname) -return i; -} -return-1; -} -static void markupval(FuncState*fs,int level){ -BlockCnt*bl=fs->bl; -while(bl&&bl->nactvar>level)bl=bl->previous; -if(bl)bl->upval=1; -} -static int singlevaraux(FuncState*fs,TString*n,expdesc*var,int base){ -if(fs==NULL){ -init_exp(var,VGLOBAL,((1<<8)-1)); -return VGLOBAL; -} -else{ -int v=searchvar(fs,n); -if(v>=0){ -init_exp(var,VLOCAL,v); -if(!base) -markupval(fs,v); -return VLOCAL; -} -else{ -if(singlevaraux(fs->prev,n,var,0)==VGLOBAL) -return VGLOBAL; -var->u.s.info=indexupvalue(fs,n,var); -var->k=VUPVAL; -return VUPVAL; -} -} -} -static void singlevar(LexState*ls,expdesc*var){ -TString*varname=str_checkname(ls); -FuncState*fs=ls->fs; -if(singlevaraux(fs,varname,var,1)==VGLOBAL) -var->u.s.info=luaK_stringK(fs,varname); -} -static void adjust_assign(LexState*ls,int nvars,int nexps,expdesc*e){ -FuncState*fs=ls->fs; -int extra=nvars-nexps; -if(hasmultret(e->k)){ -extra++; -if(extra<0)extra=0; -luaK_setreturns(fs,e,extra); -if(extra>1)luaK_reserveregs(fs,extra-1); -} -else{ -if(e->k!=VVOID)luaK_exp2nextreg(fs,e); -if(extra>0){ -int reg=fs->freereg; -luaK_reserveregs(fs,extra); -luaK_nil(fs,reg,extra); -} -} -} -static void enterlevel(LexState*ls){ -if(++ls->L->nCcalls>200) -luaX_lexerror(ls,"chunk has too many syntax levels",0); -} -#define leavelevel(ls)((ls)->L->nCcalls--) -static void enterblock(FuncState*fs,BlockCnt*bl,lu_byte isbreakable){ -bl->breaklist=(-1); -bl->isbreakable=isbreakable; -bl->nactvar=fs->nactvar; -bl->upval=0; -bl->previous=fs->bl; -fs->bl=bl; -} -static void leaveblock(FuncState*fs){ -BlockCnt*bl=fs->bl; -fs->bl=bl->previous; -removevars(fs->ls,bl->nactvar); -if(bl->upval) -luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0); -fs->freereg=fs->nactvar; -luaK_patchtohere(fs,bl->breaklist); -} -static void pushclosure(LexState*ls,FuncState*func,expdesc*v){ -FuncState*fs=ls->fs; -Proto*f=fs->f; -int oldsize=f->sizep; -int i; -luaM_growvector(ls->L,f->p,fs->np,f->sizep,Proto*, -((1<<(9+9))-1),"constant table overflow"); -while(oldsizesizep)f->p[oldsize++]=NULL; -f->p[fs->np++]=func->f; -luaC_objbarrier(ls->L,f,func->f); -init_exp(v,VRELOCABLE,luaK_codeABx(fs,OP_CLOSURE,0,fs->np-1)); -for(i=0;if->nups;i++){ -OpCode o=(func->upvalues[i].k==VLOCAL)?OP_MOVE:OP_GETUPVAL; -luaK_codeABC(fs,o,0,func->upvalues[i].info,0); -} -} -static void open_func(LexState*ls,FuncState*fs){ -lua_State*L=ls->L; -Proto*f=luaF_newproto(L); -fs->f=f; -fs->prev=ls->fs; -fs->ls=ls; -fs->L=L; -ls->fs=fs; -fs->pc=0; -fs->lasttarget=-1; -fs->jpc=(-1); -fs->freereg=0; -fs->nk=0; -fs->np=0; -fs->nlocvars=0; -fs->nactvar=0; -fs->bl=NULL; -f->source=ls->source; -f->maxstacksize=2; -fs->h=luaH_new(L,0,0); -sethvalue(L,L->top,fs->h); -incr_top(L); -setptvalue(L,L->top,f); -incr_top(L); -} -static void close_func(LexState*ls){ -lua_State*L=ls->L; -FuncState*fs=ls->fs; -Proto*f=fs->f; -removevars(ls,0); -luaK_ret(fs,0,0); -luaM_reallocvector(L,f->code,f->sizecode,fs->pc,Instruction); -f->sizecode=fs->pc; -luaM_reallocvector(L,f->lineinfo,f->sizelineinfo,fs->pc,int); -f->sizelineinfo=fs->pc; -luaM_reallocvector(L,f->k,f->sizek,fs->nk,TValue); -f->sizek=fs->nk; -luaM_reallocvector(L,f->p,f->sizep,fs->np,Proto*); -f->sizep=fs->np; -luaM_reallocvector(L,f->locvars,f->sizelocvars,fs->nlocvars,LocVar); -f->sizelocvars=fs->nlocvars; -luaM_reallocvector(L,f->upvalues,f->sizeupvalues,f->nups,TString*); -f->sizeupvalues=f->nups; -ls->fs=fs->prev; -if(fs)anchor_token(ls); -L->top-=2; -} -static Proto*luaY_parser(lua_State*L,ZIO*z,Mbuffer*buff,const char*name){ -struct LexState lexstate; -struct FuncState funcstate; -lexstate.buff=buff; -luaX_setinput(L,&lexstate,z,luaS_new(L,name)); -open_func(&lexstate,&funcstate); -funcstate.f->is_vararg=2; -luaX_next(&lexstate); -chunk(&lexstate); -check(&lexstate,TK_EOS); -close_func(&lexstate); -return funcstate.f; -} -static void field(LexState*ls,expdesc*v){ -FuncState*fs=ls->fs; -expdesc key; -luaK_exp2anyreg(fs,v); -luaX_next(ls); -checkname(ls,&key); -luaK_indexed(fs,v,&key); -} -static void yindex(LexState*ls,expdesc*v){ -luaX_next(ls); -expr(ls,v); -luaK_exp2val(ls->fs,v); -checknext(ls,']'); -} -struct ConsControl{ -expdesc v; -expdesc*t; -int nh; -int na; -int tostore; -}; -static void recfield(LexState*ls,struct ConsControl*cc){ -FuncState*fs=ls->fs; -int reg=ls->fs->freereg; -expdesc key,val; -int rkkey; -if(ls->t.token==TK_NAME){ -luaY_checklimit(fs,cc->nh,(INT_MAX-2),"items in a constructor"); -checkname(ls,&key); -} -else -yindex(ls,&key); -cc->nh++; -checknext(ls,'='); -rkkey=luaK_exp2RK(fs,&key); -expr(ls,&val); -luaK_codeABC(fs,OP_SETTABLE,cc->t->u.s.info,rkkey,luaK_exp2RK(fs,&val)); -fs->freereg=reg; -} -static void closelistfield(FuncState*fs,struct ConsControl*cc){ -if(cc->v.k==VVOID)return; -luaK_exp2nextreg(fs,&cc->v); -cc->v.k=VVOID; -if(cc->tostore==50){ -luaK_setlist(fs,cc->t->u.s.info,cc->na,cc->tostore); -cc->tostore=0; -} -} -static void lastlistfield(FuncState*fs,struct ConsControl*cc){ -if(cc->tostore==0)return; -if(hasmultret(cc->v.k)){ -luaK_setmultret(fs,&cc->v); -luaK_setlist(fs,cc->t->u.s.info,cc->na,(-1)); -cc->na--; -} -else{ -if(cc->v.k!=VVOID) -luaK_exp2nextreg(fs,&cc->v); -luaK_setlist(fs,cc->t->u.s.info,cc->na,cc->tostore); -} -} -static void listfield(LexState*ls,struct ConsControl*cc){ -expr(ls,&cc->v); -luaY_checklimit(ls->fs,cc->na,(INT_MAX-2),"items in a constructor"); -cc->na++; -cc->tostore++; -} -static void constructor(LexState*ls,expdesc*t){ -FuncState*fs=ls->fs; -int line=ls->linenumber; -int pc=luaK_codeABC(fs,OP_NEWTABLE,0,0,0); -struct ConsControl cc; -cc.na=cc.nh=cc.tostore=0; -cc.t=t; -init_exp(t,VRELOCABLE,pc); -init_exp(&cc.v,VVOID,0); -luaK_exp2nextreg(ls->fs,t); -checknext(ls,'{'); -do{ -if(ls->t.token=='}')break; -closelistfield(fs,&cc); -switch(ls->t.token){ -case TK_NAME:{ -luaX_lookahead(ls); -if(ls->lookahead.token!='=') -listfield(ls,&cc); -else -recfield(ls,&cc); -break; -} -case'[':{ -recfield(ls,&cc); -break; -} -default:{ -listfield(ls,&cc); -break; -} -} -}while(testnext(ls,',')||testnext(ls,';')); -check_match(ls,'}','{',line); -lastlistfield(fs,&cc); -SETARG_B(fs->f->code[pc],luaO_int2fb(cc.na)); -SETARG_C(fs->f->code[pc],luaO_int2fb(cc.nh)); -} -static void parlist(LexState*ls){ -FuncState*fs=ls->fs; -Proto*f=fs->f; -int nparams=0; -f->is_vararg=0; -if(ls->t.token!=')'){ -do{ -switch(ls->t.token){ -case TK_NAME:{ -new_localvar(ls,str_checkname(ls),nparams++); -break; -} -case TK_DOTS:{ -luaX_next(ls); -f->is_vararg|=2; -break; -} -default:luaX_syntaxerror(ls," or "LUA_QL("...")" expected"); -} -}while(!f->is_vararg&&testnext(ls,',')); -} -adjustlocalvars(ls,nparams); -f->numparams=cast_byte(fs->nactvar-(f->is_vararg&1)); -luaK_reserveregs(fs,fs->nactvar); -} -static void body(LexState*ls,expdesc*e,int needself,int line){ -FuncState new_fs; -open_func(ls,&new_fs); -new_fs.f->linedefined=line; -checknext(ls,'('); -if(needself){ -new_localvarliteral(ls,"self",0); -adjustlocalvars(ls,1); -} -parlist(ls); -checknext(ls,')'); -chunk(ls); -new_fs.f->lastlinedefined=ls->linenumber; -check_match(ls,TK_END,TK_FUNCTION,line); -close_func(ls); -pushclosure(ls,&new_fs,e); -} -static int explist1(LexState*ls,expdesc*v){ -int n=1; -expr(ls,v); -while(testnext(ls,',')){ -luaK_exp2nextreg(ls->fs,v); -expr(ls,v); -n++; -} -return n; -} -static void funcargs(LexState*ls,expdesc*f){ -FuncState*fs=ls->fs; -expdesc args; -int base,nparams; -int line=ls->linenumber; -switch(ls->t.token){ -case'(':{ -if(line!=ls->lastline) -luaX_syntaxerror(ls,"ambiguous syntax (function call x new statement)"); -luaX_next(ls); -if(ls->t.token==')') -args.k=VVOID; -else{ -explist1(ls,&args); -luaK_setmultret(fs,&args); -} -check_match(ls,')','(',line); -break; -} -case'{':{ -constructor(ls,&args); -break; -} -case TK_STRING:{ -codestring(ls,&args,ls->t.seminfo.ts); -luaX_next(ls); -break; -} -default:{ -luaX_syntaxerror(ls,"function arguments expected"); -return; -} -} -base=f->u.s.info; -if(hasmultret(args.k)) -nparams=(-1); -else{ -if(args.k!=VVOID) -luaK_exp2nextreg(fs,&args); -nparams=fs->freereg-(base+1); -} -init_exp(f,VCALL,luaK_codeABC(fs,OP_CALL,base,nparams+1,2)); -luaK_fixline(fs,line); -fs->freereg=base+1; -} -static void prefixexp(LexState*ls,expdesc*v){ -switch(ls->t.token){ -case'(':{ -int line=ls->linenumber; -luaX_next(ls); -expr(ls,v); -check_match(ls,')','(',line); -luaK_dischargevars(ls->fs,v); -return; -} -case TK_NAME:{ -singlevar(ls,v); -return; -} -default:{ -luaX_syntaxerror(ls,"unexpected symbol"); -return; -} -} -} -static void primaryexp(LexState*ls,expdesc*v){ -FuncState*fs=ls->fs; -prefixexp(ls,v); -for(;;){ -switch(ls->t.token){ -case'.':{ -field(ls,v); -break; -} -case'[':{ -expdesc key; -luaK_exp2anyreg(fs,v); -yindex(ls,&key); -luaK_indexed(fs,v,&key); -break; -} -case':':{ -expdesc key; -luaX_next(ls); -checkname(ls,&key); -luaK_self(fs,v,&key); -funcargs(ls,v); -break; -} -case'(':case TK_STRING:case'{':{ -luaK_exp2nextreg(fs,v); -funcargs(ls,v); -break; -} -default:return; -} -} -} -static void simpleexp(LexState*ls,expdesc*v){ -switch(ls->t.token){ -case TK_NUMBER:{ -init_exp(v,VKNUM,0); -v->u.nval=ls->t.seminfo.r; -break; -} -case TK_STRING:{ -codestring(ls,v,ls->t.seminfo.ts); -break; -} -case TK_NIL:{ -init_exp(v,VNIL,0); -break; -} -case TK_TRUE:{ -init_exp(v,VTRUE,0); -break; -} -case TK_FALSE:{ -init_exp(v,VFALSE,0); -break; -} -case TK_DOTS:{ -FuncState*fs=ls->fs; -check_condition(ls,fs->f->is_vararg, -"cannot use "LUA_QL("...")" outside a vararg function"); -fs->f->is_vararg&=~4; -init_exp(v,VVARARG,luaK_codeABC(fs,OP_VARARG,0,1,0)); -break; -} -case'{':{ -constructor(ls,v); -return; -} -case TK_FUNCTION:{ -luaX_next(ls); -body(ls,v,0,ls->linenumber); -return; -} -default:{ -primaryexp(ls,v); -return; -} -} -luaX_next(ls); -} -static UnOpr getunopr(int op){ -switch(op){ -case TK_NOT:return OPR_NOT; -case'-':return OPR_MINUS; -case'#':return OPR_LEN; -default:return OPR_NOUNOPR; -} -} -static BinOpr getbinopr(int op){ -switch(op){ -case'+':return OPR_ADD; -case'-':return OPR_SUB; -case'*':return OPR_MUL; -case'/':return OPR_DIV; -case'%':return OPR_MOD; -case'^':return OPR_POW; -case TK_CONCAT:return OPR_CONCAT; -case TK_NE:return OPR_NE; -case TK_EQ:return OPR_EQ; -case'<':return OPR_LT; -case TK_LE:return OPR_LE; -case'>':return OPR_GT; -case TK_GE:return OPR_GE; -case TK_AND:return OPR_AND; -case TK_OR:return OPR_OR; -default:return OPR_NOBINOPR; -} -} -static const struct{ -lu_byte left; -lu_byte right; -}priority[]={ -{6,6},{6,6},{7,7},{7,7},{7,7}, -{10,9},{5,4}, -{3,3},{3,3}, -{3,3},{3,3},{3,3},{3,3}, -{2,2},{1,1} -}; -static BinOpr subexpr(LexState*ls,expdesc*v,unsigned int limit){ -BinOpr op; -UnOpr uop; -enterlevel(ls); -uop=getunopr(ls->t.token); -if(uop!=OPR_NOUNOPR){ -luaX_next(ls); -subexpr(ls,v,8); -luaK_prefix(ls->fs,uop,v); -} -else simpleexp(ls,v); -op=getbinopr(ls->t.token); -while(op!=OPR_NOBINOPR&&priority[op].left>limit){ -expdesc v2; -BinOpr nextop; -luaX_next(ls); -luaK_infix(ls->fs,op,v); -nextop=subexpr(ls,&v2,priority[op].right); -luaK_posfix(ls->fs,op,v,&v2); -op=nextop; -} -leavelevel(ls); -return op; -} -static void expr(LexState*ls,expdesc*v){ -subexpr(ls,v,0); -} -static int block_follow(int token){ -switch(token){ -case TK_ELSE:case TK_ELSEIF:case TK_END: -case TK_UNTIL:case TK_EOS: -return 1; -default:return 0; -} -} -static void block(LexState*ls){ -FuncState*fs=ls->fs; -BlockCnt bl; -enterblock(fs,&bl,0); -chunk(ls); -leaveblock(fs); -} -struct LHS_assign{ -struct LHS_assign*prev; -expdesc v; -}; -static void check_conflict(LexState*ls,struct LHS_assign*lh,expdesc*v){ -FuncState*fs=ls->fs; -int extra=fs->freereg; -int conflict=0; -for(;lh;lh=lh->prev){ -if(lh->v.k==VINDEXED){ -if(lh->v.u.s.info==v->u.s.info){ -conflict=1; -lh->v.u.s.info=extra; -} -if(lh->v.u.s.aux==v->u.s.info){ -conflict=1; -lh->v.u.s.aux=extra; -} -} -} -if(conflict){ -luaK_codeABC(fs,OP_MOVE,fs->freereg,v->u.s.info,0); -luaK_reserveregs(fs,1); -} -} -static void assignment(LexState*ls,struct LHS_assign*lh,int nvars){ -expdesc e; -check_condition(ls,VLOCAL<=lh->v.k&&lh->v.k<=VINDEXED, -"syntax error"); -if(testnext(ls,',')){ -struct LHS_assign nv; -nv.prev=lh; -primaryexp(ls,&nv.v); -if(nv.v.k==VLOCAL) -check_conflict(ls,lh,&nv.v); -luaY_checklimit(ls->fs,nvars,200-ls->L->nCcalls, -"variables in assignment"); -assignment(ls,&nv,nvars+1); -} -else{ -int nexps; -checknext(ls,'='); -nexps=explist1(ls,&e); -if(nexps!=nvars){ -adjust_assign(ls,nvars,nexps,&e); -if(nexps>nvars) -ls->fs->freereg-=nexps-nvars; -} -else{ -luaK_setoneret(ls->fs,&e); -luaK_storevar(ls->fs,&lh->v,&e); -return; -} -} -init_exp(&e,VNONRELOC,ls->fs->freereg-1); -luaK_storevar(ls->fs,&lh->v,&e); -} -static int cond(LexState*ls){ -expdesc v; -expr(ls,&v); -if(v.k==VNIL)v.k=VFALSE; -luaK_goiftrue(ls->fs,&v); -return v.f; -} -static void breakstat(LexState*ls){ -FuncState*fs=ls->fs; -BlockCnt*bl=fs->bl; -int upval=0; -while(bl&&!bl->isbreakable){ -upval|=bl->upval; -bl=bl->previous; -} -if(!bl) -luaX_syntaxerror(ls,"no loop to break"); -if(upval) -luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0); -luaK_concat(fs,&bl->breaklist,luaK_jump(fs)); -} -static void whilestat(LexState*ls,int line){ -FuncState*fs=ls->fs; -int whileinit; -int condexit; -BlockCnt bl; -luaX_next(ls); -whileinit=luaK_getlabel(fs); -condexit=cond(ls); -enterblock(fs,&bl,1); -checknext(ls,TK_DO); -block(ls); -luaK_patchlist(fs,luaK_jump(fs),whileinit); -check_match(ls,TK_END,TK_WHILE,line); -leaveblock(fs); -luaK_patchtohere(fs,condexit); -} -static void repeatstat(LexState*ls,int line){ -int condexit; -FuncState*fs=ls->fs; -int repeat_init=luaK_getlabel(fs); -BlockCnt bl1,bl2; -enterblock(fs,&bl1,1); -enterblock(fs,&bl2,0); -luaX_next(ls); -chunk(ls); -check_match(ls,TK_UNTIL,TK_REPEAT,line); -condexit=cond(ls); -if(!bl2.upval){ -leaveblock(fs); -luaK_patchlist(ls->fs,condexit,repeat_init); -} -else{ -breakstat(ls); -luaK_patchtohere(ls->fs,condexit); -leaveblock(fs); -luaK_patchlist(ls->fs,luaK_jump(fs),repeat_init); -} -leaveblock(fs); -} -static int exp1(LexState*ls){ -expdesc e; -int k; -expr(ls,&e); -k=e.k; -luaK_exp2nextreg(ls->fs,&e); -return k; -} -static void forbody(LexState*ls,int base,int line,int nvars,int isnum){ -BlockCnt bl; -FuncState*fs=ls->fs; -int prep,endfor; -adjustlocalvars(ls,3); -checknext(ls,TK_DO); -prep=isnum?luaK_codeAsBx(fs,OP_FORPREP,base,(-1)):luaK_jump(fs); -enterblock(fs,&bl,0); -adjustlocalvars(ls,nvars); -luaK_reserveregs(fs,nvars); -block(ls); -leaveblock(fs); -luaK_patchtohere(fs,prep); -endfor=(isnum)?luaK_codeAsBx(fs,OP_FORLOOP,base,(-1)): -luaK_codeABC(fs,OP_TFORLOOP,base,0,nvars); -luaK_fixline(fs,line); -luaK_patchlist(fs,(isnum?endfor:luaK_jump(fs)),prep+1); -} -static void fornum(LexState*ls,TString*varname,int line){ -FuncState*fs=ls->fs; -int base=fs->freereg; -new_localvarliteral(ls,"(for index)",0); -new_localvarliteral(ls,"(for limit)",1); -new_localvarliteral(ls,"(for step)",2); -new_localvar(ls,varname,3); -checknext(ls,'='); -exp1(ls); -checknext(ls,','); -exp1(ls); -if(testnext(ls,',')) -exp1(ls); -else{ -luaK_codeABx(fs,OP_LOADK,fs->freereg,luaK_numberK(fs,1)); -luaK_reserveregs(fs,1); -} -forbody(ls,base,line,1,1); -} -static void forlist(LexState*ls,TString*indexname){ -FuncState*fs=ls->fs; -expdesc e; -int nvars=0; -int line; -int base=fs->freereg; -new_localvarliteral(ls,"(for generator)",nvars++); -new_localvarliteral(ls,"(for state)",nvars++); -new_localvarliteral(ls,"(for control)",nvars++); -new_localvar(ls,indexname,nvars++); -while(testnext(ls,',')) -new_localvar(ls,str_checkname(ls),nvars++); -checknext(ls,TK_IN); -line=ls->linenumber; -adjust_assign(ls,3,explist1(ls,&e),&e); -luaK_checkstack(fs,3); -forbody(ls,base,line,nvars-3,0); -} -static void forstat(LexState*ls,int line){ -FuncState*fs=ls->fs; -TString*varname; -BlockCnt bl; -enterblock(fs,&bl,1); -luaX_next(ls); -varname=str_checkname(ls); -switch(ls->t.token){ -case'=':fornum(ls,varname,line);break; -case',':case TK_IN:forlist(ls,varname);break; -default:luaX_syntaxerror(ls,LUA_QL("=")" or "LUA_QL("in")" expected"); -} -check_match(ls,TK_END,TK_FOR,line); -leaveblock(fs); -} -static int test_then_block(LexState*ls){ -int condexit; -luaX_next(ls); -condexit=cond(ls); -checknext(ls,TK_THEN); -block(ls); -return condexit; -} -static void ifstat(LexState*ls,int line){ -FuncState*fs=ls->fs; -int flist; -int escapelist=(-1); -flist=test_then_block(ls); -while(ls->t.token==TK_ELSEIF){ -luaK_concat(fs,&escapelist,luaK_jump(fs)); -luaK_patchtohere(fs,flist); -flist=test_then_block(ls); -} -if(ls->t.token==TK_ELSE){ -luaK_concat(fs,&escapelist,luaK_jump(fs)); -luaK_patchtohere(fs,flist); -luaX_next(ls); -block(ls); -} -else -luaK_concat(fs,&escapelist,flist); -luaK_patchtohere(fs,escapelist); -check_match(ls,TK_END,TK_IF,line); -} -static void localfunc(LexState*ls){ -expdesc v,b; -FuncState*fs=ls->fs; -new_localvar(ls,str_checkname(ls),0); -init_exp(&v,VLOCAL,fs->freereg); -luaK_reserveregs(fs,1); -adjustlocalvars(ls,1); -body(ls,&b,0,ls->linenumber); -luaK_storevar(fs,&v,&b); -getlocvar(fs,fs->nactvar-1).startpc=fs->pc; -} -static void localstat(LexState*ls){ -int nvars=0; -int nexps; -expdesc e; -do{ -new_localvar(ls,str_checkname(ls),nvars++); -}while(testnext(ls,',')); -if(testnext(ls,'=')) -nexps=explist1(ls,&e); -else{ -e.k=VVOID; -nexps=0; -} -adjust_assign(ls,nvars,nexps,&e); -adjustlocalvars(ls,nvars); -} -static int funcname(LexState*ls,expdesc*v){ -int needself=0; -singlevar(ls,v); -while(ls->t.token=='.') -field(ls,v); -if(ls->t.token==':'){ -needself=1; -field(ls,v); -} -return needself; -} -static void funcstat(LexState*ls,int line){ -int needself; -expdesc v,b; -luaX_next(ls); -needself=funcname(ls,&v); -body(ls,&b,needself,line); -luaK_storevar(ls->fs,&v,&b); -luaK_fixline(ls->fs,line); -} -static void exprstat(LexState*ls){ -FuncState*fs=ls->fs; -struct LHS_assign v; -primaryexp(ls,&v.v); -if(v.v.k==VCALL) -SETARG_C(getcode(fs,&v.v),1); -else{ -v.prev=NULL; -assignment(ls,&v,1); -} -} -static void retstat(LexState*ls){ -FuncState*fs=ls->fs; -expdesc e; -int first,nret; -luaX_next(ls); -if(block_follow(ls->t.token)||ls->t.token==';') -first=nret=0; -else{ -nret=explist1(ls,&e); -if(hasmultret(e.k)){ -luaK_setmultret(fs,&e); -if(e.k==VCALL&&nret==1){ -SET_OPCODE(getcode(fs,&e),OP_TAILCALL); -} -first=fs->nactvar; -nret=(-1); -} -else{ -if(nret==1) -first=luaK_exp2anyreg(fs,&e); -else{ -luaK_exp2nextreg(fs,&e); -first=fs->nactvar; -} -} -} -luaK_ret(fs,first,nret); -} -static int statement(LexState*ls){ -int line=ls->linenumber; -switch(ls->t.token){ -case TK_IF:{ -ifstat(ls,line); -return 0; -} -case TK_WHILE:{ -whilestat(ls,line); -return 0; -} -case TK_DO:{ -luaX_next(ls); -block(ls); -check_match(ls,TK_END,TK_DO,line); -return 0; -} -case TK_FOR:{ -forstat(ls,line); -return 0; -} -case TK_REPEAT:{ -repeatstat(ls,line); -return 0; -} -case TK_FUNCTION:{ -funcstat(ls,line); -return 0; -} -case TK_LOCAL:{ -luaX_next(ls); -if(testnext(ls,TK_FUNCTION)) -localfunc(ls); -else -localstat(ls); -return 0; -} -case TK_RETURN:{ -retstat(ls); -return 1; -} -case TK_BREAK:{ -luaX_next(ls); -breakstat(ls); -return 1; -} -default:{ -exprstat(ls); -return 0; -} -} -} -static void chunk(LexState*ls){ -int islast=0; -enterlevel(ls); -while(!islast&&!block_follow(ls->t.token)){ -islast=statement(ls); -testnext(ls,';'); -ls->fs->freereg=ls->fs->nactvar; -} -leavelevel(ls); -} -static const TValue*luaV_tonumber(const TValue*obj,TValue*n){ -lua_Number num; -if(ttisnumber(obj))return obj; -if(ttisstring(obj)&&luaO_str2d(svalue(obj),&num)){ -setnvalue(n,num); -return n; -} -else -return NULL; -} -static int luaV_tostring(lua_State*L,StkId obj){ -if(!ttisnumber(obj)) -return 0; -else{ -char s[32]; -lua_Number n=nvalue(obj); -lua_number2str(s,n); -setsvalue(L,obj,luaS_new(L,s)); -return 1; -} -} -static void callTMres(lua_State*L,StkId res,const TValue*f, -const TValue*p1,const TValue*p2){ -ptrdiff_t result=savestack(L,res); -setobj(L,L->top,f); -setobj(L,L->top+1,p1); -setobj(L,L->top+2,p2); -luaD_checkstack(L,3); -L->top+=3; -luaD_call(L,L->top-3,1); -res=restorestack(L,result); -L->top--; -setobj(L,res,L->top); -} -static void callTM(lua_State*L,const TValue*f,const TValue*p1, -const TValue*p2,const TValue*p3){ -setobj(L,L->top,f); -setobj(L,L->top+1,p1); -setobj(L,L->top+2,p2); -setobj(L,L->top+3,p3); -luaD_checkstack(L,4); -L->top+=4; -luaD_call(L,L->top-4,0); -} -static void luaV_gettable(lua_State*L,const TValue*t,TValue*key,StkId val){ -int loop; -for(loop=0;loop<100;loop++){ -const TValue*tm; -if(ttistable(t)){ -Table*h=hvalue(t); -const TValue*res=luaH_get(h,key); -if(!ttisnil(res)|| -(tm=fasttm(L,h->metatable,TM_INDEX))==NULL){ -setobj(L,val,res); -return; -} -} -else if(ttisnil(tm=luaT_gettmbyobj(L,t,TM_INDEX))) -luaG_typeerror(L,t,"index"); -if(ttisfunction(tm)){ -callTMres(L,val,tm,t,key); -return; -} -t=tm; -} -luaG_runerror(L,"loop in gettable"); -} -static void luaV_settable(lua_State*L,const TValue*t,TValue*key,StkId val){ -int loop; -TValue temp; -for(loop=0;loop<100;loop++){ -const TValue*tm; -if(ttistable(t)){ -Table*h=hvalue(t); -TValue*oldval=luaH_set(L,h,key); -if(!ttisnil(oldval)|| -(tm=fasttm(L,h->metatable,TM_NEWINDEX))==NULL){ -setobj(L,oldval,val); -h->flags=0; -luaC_barriert(L,h,val); -return; -} -} -else if(ttisnil(tm=luaT_gettmbyobj(L,t,TM_NEWINDEX))) -luaG_typeerror(L,t,"index"); -if(ttisfunction(tm)){ -callTM(L,tm,t,key,val); -return; -} -setobj(L,&temp,tm); -t=&temp; -} -luaG_runerror(L,"loop in settable"); -} -static int call_binTM(lua_State*L,const TValue*p1,const TValue*p2, -StkId res,TMS event){ -const TValue*tm=luaT_gettmbyobj(L,p1,event); -if(ttisnil(tm)) -tm=luaT_gettmbyobj(L,p2,event); -if(ttisnil(tm))return 0; -callTMres(L,res,tm,p1,p2); -return 1; -} -static const TValue*get_compTM(lua_State*L,Table*mt1,Table*mt2, -TMS event){ -const TValue*tm1=fasttm(L,mt1,event); -const TValue*tm2; -if(tm1==NULL)return NULL; -if(mt1==mt2)return tm1; -tm2=fasttm(L,mt2,event); -if(tm2==NULL)return NULL; -if(luaO_rawequalObj(tm1,tm2)) -return tm1; -return NULL; -} -static int call_orderTM(lua_State*L,const TValue*p1,const TValue*p2, -TMS event){ -const TValue*tm1=luaT_gettmbyobj(L,p1,event); -const TValue*tm2; -if(ttisnil(tm1))return-1; -tm2=luaT_gettmbyobj(L,p2,event); -if(!luaO_rawequalObj(tm1,tm2)) -return-1; -callTMres(L,L->top,tm1,p1,p2); -return!l_isfalse(L->top); -} -static int l_strcmp(const TString*ls,const TString*rs){ -const char*l=getstr(ls); -size_t ll=ls->tsv.len; -const char*r=getstr(rs); -size_t lr=rs->tsv.len; -for(;;){ -int temp=strcoll(l,r); -if(temp!=0)return temp; -else{ -size_t len=strlen(l); -if(len==lr) -return(len==ll)?0:1; -else if(len==ll) -return-1; -len++; -l+=len;ll-=len;r+=len;lr-=len; -} -} -} -static int luaV_lessthan(lua_State*L,const TValue*l,const TValue*r){ -int res; -if(ttype(l)!=ttype(r)) -return luaG_ordererror(L,l,r); -else if(ttisnumber(l)) -return luai_numlt(nvalue(l),nvalue(r)); -else if(ttisstring(l)) -return l_strcmp(rawtsvalue(l),rawtsvalue(r))<0; -else if((res=call_orderTM(L,l,r,TM_LT))!=-1) -return res; -return luaG_ordererror(L,l,r); -} -static int lessequal(lua_State*L,const TValue*l,const TValue*r){ -int res; -if(ttype(l)!=ttype(r)) -return luaG_ordererror(L,l,r); -else if(ttisnumber(l)) -return luai_numle(nvalue(l),nvalue(r)); -else if(ttisstring(l)) -return l_strcmp(rawtsvalue(l),rawtsvalue(r))<=0; -else if((res=call_orderTM(L,l,r,TM_LE))!=-1) -return res; -else if((res=call_orderTM(L,r,l,TM_LT))!=-1) -return!res; -return luaG_ordererror(L,l,r); -} -static int luaV_equalval(lua_State*L,const TValue*t1,const TValue*t2){ -const TValue*tm; -switch(ttype(t1)){ -case 0:return 1; -case 3:return luai_numeq(nvalue(t1),nvalue(t2)); -case 1:return bvalue(t1)==bvalue(t2); -case 2:return pvalue(t1)==pvalue(t2); -case 7:{ -if(uvalue(t1)==uvalue(t2))return 1; -tm=get_compTM(L,uvalue(t1)->metatable,uvalue(t2)->metatable, -TM_EQ); -break; -} -case 5:{ -if(hvalue(t1)==hvalue(t2))return 1; -tm=get_compTM(L,hvalue(t1)->metatable,hvalue(t2)->metatable,TM_EQ); -break; -} -default:return gcvalue(t1)==gcvalue(t2); -} -if(tm==NULL)return 0; -callTMres(L,L->top,tm,t1,t2); -return!l_isfalse(L->top); -} -static void luaV_concat(lua_State*L,int total,int last){ -do{ -StkId top=L->base+last+1; -int n=2; -if(!(ttisstring(top-2)||ttisnumber(top-2))||!tostring(L,top-1)){ -if(!call_binTM(L,top-2,top-1,top-2,TM_CONCAT)) -luaG_concaterror(L,top-2,top-1); -}else if(tsvalue(top-1)->len==0) -(void)tostring(L,top-2); -else{ -size_t tl=tsvalue(top-1)->len; -char*buffer; -int i; -for(n=1;nlen; -if(l>=((size_t)(~(size_t)0)-2)-tl)luaG_runerror(L,"string length overflow"); -tl+=l; -} -buffer=luaZ_openspace(L,&G(L)->buff,tl); -tl=0; -for(i=n;i>0;i--){ -size_t l=tsvalue(top-i)->len; -memcpy(buffer+tl,svalue(top-i),l); -tl+=l; -} -setsvalue(L,top-n,luaS_newlstr(L,buffer,tl)); -} -total-=n-1; -last-=n-1; -}while(total>1); -} -static void Arith(lua_State*L,StkId ra,const TValue*rb, -const TValue*rc,TMS op){ -TValue tempb,tempc; -const TValue*b,*c; -if((b=luaV_tonumber(rb,&tempb))!=NULL&& -(c=luaV_tonumber(rc,&tempc))!=NULL){ -lua_Number nb=nvalue(b),nc=nvalue(c); -switch(op){ -case TM_ADD:setnvalue(ra,luai_numadd(nb,nc));break; -case TM_SUB:setnvalue(ra,luai_numsub(nb,nc));break; -case TM_MUL:setnvalue(ra,luai_nummul(nb,nc));break; -case TM_DIV:setnvalue(ra,luai_numdiv(nb,nc));break; -case TM_MOD:setnvalue(ra,luai_nummod(nb,nc));break; -case TM_POW:setnvalue(ra,luai_numpow(nb,nc));break; -case TM_UNM:setnvalue(ra,luai_numunm(nb));break; -default:break; -} -} -else if(!call_binTM(L,rb,rc,ra,op)) -luaG_aritherror(L,rb,rc); -} -#define runtime_check(L,c){if(!(c))break;} -#define RA(i)(base+GETARG_A(i)) -#define RB(i)check_exp(getBMode(GET_OPCODE(i))==OpArgR,base+GETARG_B(i)) -#define RKB(i)check_exp(getBMode(GET_OPCODE(i))==OpArgK,ISK(GETARG_B(i))?k+INDEXK(GETARG_B(i)):base+GETARG_B(i)) -#define RKC(i)check_exp(getCMode(GET_OPCODE(i))==OpArgK,ISK(GETARG_C(i))?k+INDEXK(GETARG_C(i)):base+GETARG_C(i)) -#define KBx(i)check_exp(getBMode(GET_OPCODE(i))==OpArgK,k+GETARG_Bx(i)) -#define dojump(L,pc,i){(pc)+=(i);} -#define Protect(x){L->savedpc=pc;{x;};base=L->base;} -#define arith_op(op,tm){TValue*rb=RKB(i);TValue*rc=RKC(i);if(ttisnumber(rb)&&ttisnumber(rc)){lua_Number nb=nvalue(rb),nc=nvalue(rc);setnvalue(ra,op(nb,nc));}else Protect(Arith(L,ra,rb,rc,tm));} -static void luaV_execute(lua_State*L,int nexeccalls){ -LClosure*cl; -StkId base; -TValue*k; -const Instruction*pc; -reentry: -pc=L->savedpc; -cl=&clvalue(L->ci->func)->l; -base=L->base; -k=cl->p->k; -for(;;){ -const Instruction i=*pc++; -StkId ra; -ra=RA(i); -switch(GET_OPCODE(i)){ -case OP_MOVE:{ -setobj(L,ra,RB(i)); -continue; -} -case OP_LOADK:{ -setobj(L,ra,KBx(i)); -continue; -} -case OP_LOADBOOL:{ -setbvalue(ra,GETARG_B(i)); -if(GETARG_C(i))pc++; -continue; -} -case OP_LOADNIL:{ -TValue*rb=RB(i); -do{ -setnilvalue(rb--); -}while(rb>=ra); -continue; -} -case OP_GETUPVAL:{ -int b=GETARG_B(i); -setobj(L,ra,cl->upvals[b]->v); -continue; -} -case OP_GETGLOBAL:{ -TValue g; -TValue*rb=KBx(i); -sethvalue(L,&g,cl->env); -Protect(luaV_gettable(L,&g,rb,ra)); -continue; -} -case OP_GETTABLE:{ -Protect(luaV_gettable(L,RB(i),RKC(i),ra)); -continue; -} -case OP_SETGLOBAL:{ -TValue g; -sethvalue(L,&g,cl->env); -Protect(luaV_settable(L,&g,KBx(i),ra)); -continue; -} -case OP_SETUPVAL:{ -UpVal*uv=cl->upvals[GETARG_B(i)]; -setobj(L,uv->v,ra); -luaC_barrier(L,uv,ra); -continue; -} -case OP_SETTABLE:{ -Protect(luaV_settable(L,ra,RKB(i),RKC(i))); -continue; -} -case OP_NEWTABLE:{ -int b=GETARG_B(i); -int c=GETARG_C(i); -sethvalue(L,ra,luaH_new(L,luaO_fb2int(b),luaO_fb2int(c))); -Protect(luaC_checkGC(L)); -continue; -} -case OP_SELF:{ -StkId rb=RB(i); -setobj(L,ra+1,rb); -Protect(luaV_gettable(L,rb,RKC(i),ra)); -continue; -} -case OP_ADD:{ -arith_op(luai_numadd,TM_ADD); -continue; -} -case OP_SUB:{ -arith_op(luai_numsub,TM_SUB); -continue; -} -case OP_MUL:{ -arith_op(luai_nummul,TM_MUL); -continue; -} -case OP_DIV:{ -arith_op(luai_numdiv,TM_DIV); -continue; -} -case OP_MOD:{ -arith_op(luai_nummod,TM_MOD); -continue; -} -case OP_POW:{ -arith_op(luai_numpow,TM_POW); -continue; -} -case OP_UNM:{ -TValue*rb=RB(i); -if(ttisnumber(rb)){ -lua_Number nb=nvalue(rb); -setnvalue(ra,luai_numunm(nb)); -} -else{ -Protect(Arith(L,ra,rb,rb,TM_UNM)); -} -continue; -} -case OP_NOT:{ -int res=l_isfalse(RB(i)); -setbvalue(ra,res); -continue; -} -case OP_LEN:{ -const TValue*rb=RB(i); -switch(ttype(rb)){ -case 5:{ -setnvalue(ra,cast_num(luaH_getn(hvalue(rb)))); -break; -} -case 4:{ -setnvalue(ra,cast_num(tsvalue(rb)->len)); -break; -} -default:{ -Protect( -if(!call_binTM(L,rb,(&luaO_nilobject_),ra,TM_LEN)) -luaG_typeerror(L,rb,"get length of"); -) -} -} -continue; -} -case OP_CONCAT:{ -int b=GETARG_B(i); -int c=GETARG_C(i); -Protect(luaV_concat(L,c-b+1,c);luaC_checkGC(L)); -setobj(L,RA(i),base+b); -continue; -} -case OP_JMP:{ -dojump(L,pc,GETARG_sBx(i)); -continue; -} -case OP_EQ:{ -TValue*rb=RKB(i); -TValue*rc=RKC(i); -Protect( -if(equalobj(L,rb,rc)==GETARG_A(i)) -dojump(L,pc,GETARG_sBx(*pc)); -) -pc++; -continue; -} -case OP_LT:{ -Protect( -if(luaV_lessthan(L,RKB(i),RKC(i))==GETARG_A(i)) -dojump(L,pc,GETARG_sBx(*pc)); -) -pc++; -continue; -} -case OP_LE:{ -Protect( -if(lessequal(L,RKB(i),RKC(i))==GETARG_A(i)) -dojump(L,pc,GETARG_sBx(*pc)); -) -pc++; -continue; -} -case OP_TEST:{ -if(l_isfalse(ra)!=GETARG_C(i)) -dojump(L,pc,GETARG_sBx(*pc)); -pc++; -continue; -} -case OP_TESTSET:{ -TValue*rb=RB(i); -if(l_isfalse(rb)!=GETARG_C(i)){ -setobj(L,ra,rb); -dojump(L,pc,GETARG_sBx(*pc)); -} -pc++; -continue; -} -case OP_CALL:{ -int b=GETARG_B(i); -int nresults=GETARG_C(i)-1; -if(b!=0)L->top=ra+b; -L->savedpc=pc; -switch(luaD_precall(L,ra,nresults)){ -case 0:{ -nexeccalls++; -goto reentry; -} -case 1:{ -if(nresults>=0)L->top=L->ci->top; -base=L->base; -continue; -} -default:{ -return; -} -} -} -case OP_TAILCALL:{ -int b=GETARG_B(i); -if(b!=0)L->top=ra+b; -L->savedpc=pc; -switch(luaD_precall(L,ra,(-1))){ -case 0:{ -CallInfo*ci=L->ci-1; -int aux; -StkId func=ci->func; -StkId pfunc=(ci+1)->func; -if(L->openupval)luaF_close(L,ci->base); -L->base=ci->base=ci->func+((ci+1)->base-pfunc); -for(aux=0;pfunc+auxtop;aux++) -setobj(L,func+aux,pfunc+aux); -ci->top=L->top=func+aux; -ci->savedpc=L->savedpc; -ci->tailcalls++; -L->ci--; -goto reentry; -} -case 1:{ -base=L->base; -continue; -} -default:{ -return; -} -} -} -case OP_RETURN:{ -int b=GETARG_B(i); -if(b!=0)L->top=ra+b-1; -if(L->openupval)luaF_close(L,base); -L->savedpc=pc; -b=luaD_poscall(L,ra); -if(--nexeccalls==0) -return; -else{ -if(b)L->top=L->ci->top; -goto reentry; -} -} -case OP_FORLOOP:{ -lua_Number step=nvalue(ra+2); -lua_Number idx=luai_numadd(nvalue(ra),step); -lua_Number limit=nvalue(ra+1); -if(luai_numlt(0,step)?luai_numle(idx,limit) -:luai_numle(limit,idx)){ -dojump(L,pc,GETARG_sBx(i)); -setnvalue(ra,idx); -setnvalue(ra+3,idx); -} -continue; -} -case OP_FORPREP:{ -const TValue*init=ra; -const TValue*plimit=ra+1; -const TValue*pstep=ra+2; -L->savedpc=pc; -if(!tonumber(init,ra)) -luaG_runerror(L,LUA_QL("for")" initial value must be a number"); -else if(!tonumber(plimit,ra+1)) -luaG_runerror(L,LUA_QL("for")" limit must be a number"); -else if(!tonumber(pstep,ra+2)) -luaG_runerror(L,LUA_QL("for")" step must be a number"); -setnvalue(ra,luai_numsub(nvalue(ra),nvalue(pstep))); -dojump(L,pc,GETARG_sBx(i)); -continue; -} -case OP_TFORLOOP:{ -StkId cb=ra+3; -setobj(L,cb+2,ra+2); -setobj(L,cb+1,ra+1); -setobj(L,cb,ra); -L->top=cb+3; -Protect(luaD_call(L,cb,GETARG_C(i))); -L->top=L->ci->top; -cb=RA(i)+3; -if(!ttisnil(cb)){ -setobj(L,cb-1,cb); -dojump(L,pc,GETARG_sBx(*pc)); -} -pc++; -continue; -} -case OP_SETLIST:{ -int n=GETARG_B(i); -int c=GETARG_C(i); -int last; -Table*h; -if(n==0){ -n=cast_int(L->top-ra)-1; -L->top=L->ci->top; -} -if(c==0)c=cast_int(*pc++); -runtime_check(L,ttistable(ra)); -h=hvalue(ra); -last=((c-1)*50)+n; -if(last>h->sizearray) -luaH_resizearray(L,h,last); -for(;n>0;n--){ -TValue*val=ra+n; -setobj(L,luaH_setnum(L,h,last--),val); -luaC_barriert(L,h,val); -} -continue; -} -case OP_CLOSE:{ -luaF_close(L,ra); -continue; -} -case OP_CLOSURE:{ -Proto*p; -Closure*ncl; -int nup,j; -p=cl->p->p[GETARG_Bx(i)]; -nup=p->nups; -ncl=luaF_newLclosure(L,nup,cl->env); -ncl->l.p=p; -for(j=0;jl.upvals[j]=cl->upvals[GETARG_B(*pc)]; -else{ -ncl->l.upvals[j]=luaF_findupval(L,base+GETARG_B(*pc)); -} -} -setclvalue(L,ra,ncl); -Protect(luaC_checkGC(L)); -continue; -} -case OP_VARARG:{ -int b=GETARG_B(i)-1; -int j; -CallInfo*ci=L->ci; -int n=cast_int(ci->base-ci->func)-cl->p->numparams-1; -if(b==(-1)){ -Protect(luaD_checkstack(L,n)); -ra=RA(i); -b=n; -L->top=ra+n; -} -for(j=0;jbase-n+j); -} -else{ -setnilvalue(ra+j); -} -} -continue; -} -} -} -} -#define api_checknelems(L,n)luai_apicheck(L,(n)<=(L->top-L->base)) -#define api_checkvalidindex(L,i)luai_apicheck(L,(i)!=(&luaO_nilobject_)) -#define api_incr_top(L){luai_apicheck(L,L->topci->top);L->top++;} -static TValue*index2adr(lua_State*L,int idx){ -if(idx>0){ -TValue*o=L->base+(idx-1); -luai_apicheck(L,idx<=L->ci->top-L->base); -if(o>=L->top)return cast(TValue*,(&luaO_nilobject_)); -else return o; -} -else if(idx>(-10000)){ -luai_apicheck(L,idx!=0&&-idx<=L->top-L->base); -return L->top+idx; -} -else switch(idx){ -case(-10000):return registry(L); -case(-10001):{ -Closure*func=curr_func(L); -sethvalue(L,&L->env,func->c.env); -return&L->env; -} -case(-10002):return gt(L); -default:{ -Closure*func=curr_func(L); -idx=(-10002)-idx; -return(idx<=func->c.nupvalues) -?&func->c.upvalue[idx-1] -:cast(TValue*,(&luaO_nilobject_)); -} -} -} -static Table*getcurrenv(lua_State*L){ -if(L->ci==L->base_ci) -return hvalue(gt(L)); -else{ -Closure*func=curr_func(L); -return func->c.env; -} -} -static int lua_checkstack(lua_State*L,int size){ -int res=1; -if(size>8000||(L->top-L->base+size)>8000) -res=0; -else if(size>0){ -luaD_checkstack(L,size); -if(L->ci->toptop+size) -L->ci->top=L->top+size; -} -return res; -} -static lua_CFunction lua_atpanic(lua_State*L,lua_CFunction panicf){ -lua_CFunction old; -old=G(L)->panic; -G(L)->panic=panicf; -return old; -} -static int lua_gettop(lua_State*L){ -return cast_int(L->top-L->base); -} -static void lua_settop(lua_State*L,int idx){ -if(idx>=0){ -luai_apicheck(L,idx<=L->stack_last-L->base); -while(L->topbase+idx) -setnilvalue(L->top++); -L->top=L->base+idx; -} -else{ -luai_apicheck(L,-(idx+1)<=(L->top-L->base)); -L->top+=idx+1; -} -} -static void lua_remove(lua_State*L,int idx){ -StkId p; -p=index2adr(L,idx); -api_checkvalidindex(L,p); -while(++ptop)setobj(L,p-1,p); -L->top--; -} -static void lua_insert(lua_State*L,int idx){ -StkId p; -StkId q; -p=index2adr(L,idx); -api_checkvalidindex(L,p); -for(q=L->top;q>p;q--)setobj(L,q,q-1); -setobj(L,p,L->top); -} -static void lua_replace(lua_State*L,int idx){ -StkId o; -if(idx==(-10001)&&L->ci==L->base_ci) -luaG_runerror(L,"no calling environment"); -api_checknelems(L,1); -o=index2adr(L,idx); -api_checkvalidindex(L,o); -if(idx==(-10001)){ -Closure*func=curr_func(L); -luai_apicheck(L,ttistable(L->top-1)); -func->c.env=hvalue(L->top-1); -luaC_barrier(L,func,L->top-1); -} -else{ -setobj(L,o,L->top-1); -if(idx<(-10002)) -luaC_barrier(L,curr_func(L),L->top-1); -} -L->top--; -} -static void lua_pushvalue(lua_State*L,int idx){ -setobj(L,L->top,index2adr(L,idx)); -api_incr_top(L); -} -static int lua_type(lua_State*L,int idx){ -StkId o=index2adr(L,idx); -return(o==(&luaO_nilobject_))?(-1):ttype(o); -} -static const char*lua_typename(lua_State*L,int t){ -UNUSED(L); -return(t==(-1))?"no value":luaT_typenames[t]; -} -static int lua_iscfunction(lua_State*L,int idx){ -StkId o=index2adr(L,idx); -return iscfunction(o); -} -static int lua_isnumber(lua_State*L,int idx){ -TValue n; -const TValue*o=index2adr(L,idx); -return tonumber(o,&n); -} -static int lua_isstring(lua_State*L,int idx){ -int t=lua_type(L,idx); -return(t==4||t==3); -} -static int lua_rawequal(lua_State*L,int index1,int index2){ -StkId o1=index2adr(L,index1); -StkId o2=index2adr(L,index2); -return(o1==(&luaO_nilobject_)||o2==(&luaO_nilobject_))?0 -:luaO_rawequalObj(o1,o2); -} -static int lua_lessthan(lua_State*L,int index1,int index2){ -StkId o1,o2; -int i; -o1=index2adr(L,index1); -o2=index2adr(L,index2); -i=(o1==(&luaO_nilobject_)||o2==(&luaO_nilobject_))?0 -:luaV_lessthan(L,o1,o2); -return i; -} -static lua_Number lua_tonumber(lua_State*L,int idx){ -TValue n; -const TValue*o=index2adr(L,idx); -if(tonumber(o,&n)) -return nvalue(o); -else -return 0; -} -static lua_Integer lua_tointeger(lua_State*L,int idx){ -TValue n; -const TValue*o=index2adr(L,idx); -if(tonumber(o,&n)){ -lua_Integer res; -lua_Number num=nvalue(o); -lua_number2integer(res,num); -return res; -} -else -return 0; -} -static int lua_toboolean(lua_State*L,int idx){ -const TValue*o=index2adr(L,idx); -return!l_isfalse(o); -} -static const char*lua_tolstring(lua_State*L,int idx,size_t*len){ -StkId o=index2adr(L,idx); -if(!ttisstring(o)){ -if(!luaV_tostring(L,o)){ -if(len!=NULL)*len=0; -return NULL; -} -luaC_checkGC(L); -o=index2adr(L,idx); -} -if(len!=NULL)*len=tsvalue(o)->len; -return svalue(o); -} -static size_t lua_objlen(lua_State*L,int idx){ -StkId o=index2adr(L,idx); -switch(ttype(o)){ -case 4:return tsvalue(o)->len; -case 7:return uvalue(o)->len; -case 5:return luaH_getn(hvalue(o)); -case 3:{ -size_t l; -l=(luaV_tostring(L,o)?tsvalue(o)->len:0); -return l; -} -default:return 0; -} -} -static lua_CFunction lua_tocfunction(lua_State*L,int idx){ -StkId o=index2adr(L,idx); -return(!iscfunction(o))?NULL:clvalue(o)->c.f; -} -static void*lua_touserdata(lua_State*L,int idx){ -StkId o=index2adr(L,idx); -switch(ttype(o)){ -case 7:return(rawuvalue(o)+1); -case 2:return pvalue(o); -default:return NULL; -} -} -static void lua_pushnil(lua_State*L){ -setnilvalue(L->top); -api_incr_top(L); -} -static void lua_pushnumber(lua_State*L,lua_Number n){ -setnvalue(L->top,n); -api_incr_top(L); -} -static void lua_pushinteger(lua_State*L,lua_Integer n){ -setnvalue(L->top,cast_num(n)); -api_incr_top(L); -} -static void lua_pushlstring(lua_State*L,const char*s,size_t len){ -luaC_checkGC(L); -setsvalue(L,L->top,luaS_newlstr(L,s,len)); -api_incr_top(L); -} -static void lua_pushstring(lua_State*L,const char*s){ -if(s==NULL) -lua_pushnil(L); -else -lua_pushlstring(L,s,strlen(s)); -} -static const char*lua_pushvfstring(lua_State*L,const char*fmt, -va_list argp){ -const char*ret; -luaC_checkGC(L); -ret=luaO_pushvfstring(L,fmt,argp); -return ret; -} -static const char*lua_pushfstring(lua_State*L,const char*fmt,...){ -const char*ret; -va_list argp; -luaC_checkGC(L); -va_start(argp,fmt); -ret=luaO_pushvfstring(L,fmt,argp); -va_end(argp); -return ret; -} -static void lua_pushcclosure(lua_State*L,lua_CFunction fn,int n){ -Closure*cl; -luaC_checkGC(L); -api_checknelems(L,n); -cl=luaF_newCclosure(L,n,getcurrenv(L)); -cl->c.f=fn; -L->top-=n; -while(n--) -setobj(L,&cl->c.upvalue[n],L->top+n); -setclvalue(L,L->top,cl); -api_incr_top(L); -} -static void lua_pushboolean(lua_State*L,int b){ -setbvalue(L->top,(b!=0)); -api_incr_top(L); -} -static int lua_pushthread(lua_State*L){ -setthvalue(L,L->top,L); -api_incr_top(L); -return(G(L)->mainthread==L); -} -static void lua_gettable(lua_State*L,int idx){ -StkId t; -t=index2adr(L,idx); -api_checkvalidindex(L,t); -luaV_gettable(L,t,L->top-1,L->top-1); -} -static void lua_getfield(lua_State*L,int idx,const char*k){ -StkId t; -TValue key; -t=index2adr(L,idx); -api_checkvalidindex(L,t); -setsvalue(L,&key,luaS_new(L,k)); -luaV_gettable(L,t,&key,L->top); -api_incr_top(L); -} -static void lua_rawget(lua_State*L,int idx){ -StkId t; -t=index2adr(L,idx); -luai_apicheck(L,ttistable(t)); -setobj(L,L->top-1,luaH_get(hvalue(t),L->top-1)); -} -static void lua_rawgeti(lua_State*L,int idx,int n){ -StkId o; -o=index2adr(L,idx); -luai_apicheck(L,ttistable(o)); -setobj(L,L->top,luaH_getnum(hvalue(o),n)); -api_incr_top(L); -} -static void lua_createtable(lua_State*L,int narray,int nrec){ -luaC_checkGC(L); -sethvalue(L,L->top,luaH_new(L,narray,nrec)); -api_incr_top(L); -} -static int lua_getmetatable(lua_State*L,int objindex){ -const TValue*obj; -Table*mt=NULL; -int res; -obj=index2adr(L,objindex); -switch(ttype(obj)){ -case 5: -mt=hvalue(obj)->metatable; -break; -case 7: -mt=uvalue(obj)->metatable; -break; -default: -mt=G(L)->mt[ttype(obj)]; -break; -} -if(mt==NULL) -res=0; -else{ -sethvalue(L,L->top,mt); -api_incr_top(L); -res=1; -} -return res; -} -static void lua_getfenv(lua_State*L,int idx){ -StkId o; -o=index2adr(L,idx); -api_checkvalidindex(L,o); -switch(ttype(o)){ -case 6: -sethvalue(L,L->top,clvalue(o)->c.env); -break; -case 7: -sethvalue(L,L->top,uvalue(o)->env); -break; -case 8: -setobj(L,L->top,gt(thvalue(o))); -break; -default: -setnilvalue(L->top); -break; -} -api_incr_top(L); -} -static void lua_settable(lua_State*L,int idx){ -StkId t; -api_checknelems(L,2); -t=index2adr(L,idx); -api_checkvalidindex(L,t); -luaV_settable(L,t,L->top-2,L->top-1); -L->top-=2; -} -static void lua_setfield(lua_State*L,int idx,const char*k){ -StkId t; -TValue key; -api_checknelems(L,1); -t=index2adr(L,idx); -api_checkvalidindex(L,t); -setsvalue(L,&key,luaS_new(L,k)); -luaV_settable(L,t,&key,L->top-1); -L->top--; -} -static void lua_rawset(lua_State*L,int idx){ -StkId t; -api_checknelems(L,2); -t=index2adr(L,idx); -luai_apicheck(L,ttistable(t)); -setobj(L,luaH_set(L,hvalue(t),L->top-2),L->top-1); -luaC_barriert(L,hvalue(t),L->top-1); -L->top-=2; -} -static void lua_rawseti(lua_State*L,int idx,int n){ -StkId o; -api_checknelems(L,1); -o=index2adr(L,idx); -luai_apicheck(L,ttistable(o)); -setobj(L,luaH_setnum(L,hvalue(o),n),L->top-1); -luaC_barriert(L,hvalue(o),L->top-1); -L->top--; -} -static int lua_setmetatable(lua_State*L,int objindex){ -TValue*obj; -Table*mt; -api_checknelems(L,1); -obj=index2adr(L,objindex); -api_checkvalidindex(L,obj); -if(ttisnil(L->top-1)) -mt=NULL; -else{ -luai_apicheck(L,ttistable(L->top-1)); -mt=hvalue(L->top-1); -} -switch(ttype(obj)){ -case 5:{ -hvalue(obj)->metatable=mt; -if(mt) -luaC_objbarriert(L,hvalue(obj),mt); -break; -} -case 7:{ -uvalue(obj)->metatable=mt; -if(mt) -luaC_objbarrier(L,rawuvalue(obj),mt); -break; -} -default:{ -G(L)->mt[ttype(obj)]=mt; -break; -} -} -L->top--; -return 1; -} -static int lua_setfenv(lua_State*L,int idx){ -StkId o; -int res=1; -api_checknelems(L,1); -o=index2adr(L,idx); -api_checkvalidindex(L,o); -luai_apicheck(L,ttistable(L->top-1)); -switch(ttype(o)){ -case 6: -clvalue(o)->c.env=hvalue(L->top-1); -break; -case 7: -uvalue(o)->env=hvalue(L->top-1); -break; -case 8: -sethvalue(L,gt(thvalue(o)),hvalue(L->top-1)); -break; -default: -res=0; -break; -} -if(res)luaC_objbarrier(L,gcvalue(o),hvalue(L->top-1)); -L->top--; -return res; -} -#define adjustresults(L,nres){if(nres==(-1)&&L->top>=L->ci->top)L->ci->top=L->top;} -#define checkresults(L,na,nr)luai_apicheck(L,(nr)==(-1)||(L->ci->top-L->top>=(nr)-(na))) -static void lua_call(lua_State*L,int nargs,int nresults){ -StkId func; -api_checknelems(L,nargs+1); -checkresults(L,nargs,nresults); -func=L->top-(nargs+1); -luaD_call(L,func,nresults); -adjustresults(L,nresults); -} -struct CallS{ -StkId func; -int nresults; -}; -static void f_call(lua_State*L,void*ud){ -struct CallS*c=cast(struct CallS*,ud); -luaD_call(L,c->func,c->nresults); -} -static int lua_pcall(lua_State*L,int nargs,int nresults,int errfunc){ -struct CallS c; -int status; -ptrdiff_t func; -api_checknelems(L,nargs+1); -checkresults(L,nargs,nresults); -if(errfunc==0) -func=0; -else{ -StkId o=index2adr(L,errfunc); -api_checkvalidindex(L,o); -func=savestack(L,o); -} -c.func=L->top-(nargs+1); -c.nresults=nresults; -status=luaD_pcall(L,f_call,&c,savestack(L,c.func),func); -adjustresults(L,nresults); -return status; -} -static int lua_load(lua_State*L,lua_Reader reader,void*data, -const char*chunkname){ -ZIO z; -int status; -if(!chunkname)chunkname="?"; -luaZ_init(L,&z,reader,data); -status=luaD_protectedparser(L,&z,chunkname); -return status; -} -static int lua_error(lua_State*L){ -api_checknelems(L,1); -luaG_errormsg(L); -return 0; -} -static int lua_next(lua_State*L,int idx){ -StkId t; -int more; -t=index2adr(L,idx); -luai_apicheck(L,ttistable(t)); -more=luaH_next(L,hvalue(t),L->top-1); -if(more){ -api_incr_top(L); -} -else -L->top-=1; -return more; -} -static void lua_concat(lua_State*L,int n){ -api_checknelems(L,n); -if(n>=2){ -luaC_checkGC(L); -luaV_concat(L,n,cast_int(L->top-L->base)-1); -L->top-=(n-1); -} -else if(n==0){ -setsvalue(L,L->top,luaS_newlstr(L,"",0)); -api_incr_top(L); -} -} -static void*lua_newuserdata(lua_State*L,size_t size){ -Udata*u; -luaC_checkGC(L); -u=luaS_newudata(L,size,getcurrenv(L)); -setuvalue(L,L->top,u); -api_incr_top(L); -return u+1; -} -#define luaL_getn(L,i)((int)lua_objlen(L,i)) -#define luaL_setn(L,i,j)((void)0) -typedef struct luaL_Reg{ -const char*name; -lua_CFunction func; -}luaL_Reg; -static void luaI_openlib(lua_State*L,const char*libname, -const luaL_Reg*l,int nup); -static int luaL_argerror(lua_State*L,int numarg,const char*extramsg); -static const char* luaL_checklstring(lua_State*L,int numArg, -size_t*l); -static const char* luaL_optlstring(lua_State*L,int numArg, -const char*def,size_t*l); -static lua_Integer luaL_checkinteger(lua_State*L,int numArg); -static lua_Integer luaL_optinteger(lua_State*L,int nArg, -lua_Integer def); -static int luaL_error(lua_State*L,const char*fmt,...); -static const char* luaL_findtable(lua_State*L,int idx, -const char*fname,int szhint); -#define luaL_argcheck(L,cond,numarg,extramsg)((void)((cond)||luaL_argerror(L,(numarg),(extramsg)))) -#define luaL_checkstring(L,n)(luaL_checklstring(L,(n),NULL)) -#define luaL_optstring(L,n,d)(luaL_optlstring(L,(n),(d),NULL)) -#define luaL_checkint(L,n)((int)luaL_checkinteger(L,(n))) -#define luaL_optint(L,n,d)((int)luaL_optinteger(L,(n),(d))) -#define luaL_typename(L,i)lua_typename(L,lua_type(L,(i))) -#define luaL_getmetatable(L,n)(lua_getfield(L,(-10000),(n))) -#define luaL_opt(L,f,n,d)(lua_isnoneornil(L,(n))?(d):f(L,(n))) -typedef struct luaL_Buffer{ -char*p; -int lvl; -lua_State*L; -char buffer[BUFSIZ]; -}luaL_Buffer; -#define luaL_addchar(B,c)((void)((B)->p<((B)->buffer+BUFSIZ)||luaL_prepbuffer(B)),(*(B)->p++=(char)(c))) -#define luaL_addsize(B,n)((B)->p+=(n)) -static char* luaL_prepbuffer(luaL_Buffer*B); -static int luaL_argerror(lua_State*L,int narg,const char*extramsg){ -lua_Debug ar; -if(!lua_getstack(L,0,&ar)) -return luaL_error(L,"bad argument #%d (%s)",narg,extramsg); -lua_getinfo(L,"n",&ar); -if(strcmp(ar.namewhat,"method")==0){ -narg--; -if(narg==0) -return luaL_error(L,"calling "LUA_QL("%s")" on bad self (%s)", -ar.name,extramsg); -} -if(ar.name==NULL) -ar.name="?"; -return luaL_error(L,"bad argument #%d to "LUA_QL("%s")" (%s)", -narg,ar.name,extramsg); -} -static int luaL_typerror(lua_State*L,int narg,const char*tname){ -const char*msg=lua_pushfstring(L,"%s expected, got %s", -tname,luaL_typename(L,narg)); -return luaL_argerror(L,narg,msg); -} -static void tag_error(lua_State*L,int narg,int tag){ -luaL_typerror(L,narg,lua_typename(L,tag)); -} -static void luaL_where(lua_State*L,int level){ -lua_Debug ar; -if(lua_getstack(L,level,&ar)){ -lua_getinfo(L,"Sl",&ar); -if(ar.currentline>0){ -lua_pushfstring(L,"%s:%d: ",ar.short_src,ar.currentline); -return; -} -} -lua_pushliteral(L,""); -} -static int luaL_error(lua_State*L,const char*fmt,...){ -va_list argp; -va_start(argp,fmt); -luaL_where(L,1); -lua_pushvfstring(L,fmt,argp); -va_end(argp); -lua_concat(L,2); -return lua_error(L); -} -static int luaL_newmetatable(lua_State*L,const char*tname){ -lua_getfield(L,(-10000),tname); -if(!lua_isnil(L,-1)) -return 0; -lua_pop(L,1); -lua_newtable(L); -lua_pushvalue(L,-1); -lua_setfield(L,(-10000),tname); -return 1; -} -static void*luaL_checkudata(lua_State*L,int ud,const char*tname){ -void*p=lua_touserdata(L,ud); -if(p!=NULL){ -if(lua_getmetatable(L,ud)){ -lua_getfield(L,(-10000),tname); -if(lua_rawequal(L,-1,-2)){ -lua_pop(L,2); -return p; -} -} -} -luaL_typerror(L,ud,tname); -return NULL; -} -static void luaL_checkstack(lua_State*L,int space,const char*mes){ -if(!lua_checkstack(L,space)) -luaL_error(L,"stack overflow (%s)",mes); -} -static void luaL_checktype(lua_State*L,int narg,int t){ -if(lua_type(L,narg)!=t) -tag_error(L,narg,t); -} -static void luaL_checkany(lua_State*L,int narg){ -if(lua_type(L,narg)==(-1)) -luaL_argerror(L,narg,"value expected"); -} -static const char*luaL_checklstring(lua_State*L,int narg,size_t*len){ -const char*s=lua_tolstring(L,narg,len); -if(!s)tag_error(L,narg,4); -return s; -} -static const char*luaL_optlstring(lua_State*L,int narg, -const char*def,size_t*len){ -if(lua_isnoneornil(L,narg)){ -if(len) -*len=(def?strlen(def):0); -return def; -} -else return luaL_checklstring(L,narg,len); -} -static lua_Number luaL_checknumber(lua_State*L,int narg){ -lua_Number d=lua_tonumber(L,narg); -if(d==0&&!lua_isnumber(L,narg)) -tag_error(L,narg,3); -return d; -} -static lua_Integer luaL_checkinteger(lua_State*L,int narg){ -lua_Integer d=lua_tointeger(L,narg); -if(d==0&&!lua_isnumber(L,narg)) -tag_error(L,narg,3); -return d; -} -static lua_Integer luaL_optinteger(lua_State*L,int narg, -lua_Integer def){ -return luaL_opt(L,luaL_checkinteger,narg,def); -} -static int luaL_getmetafield(lua_State*L,int obj,const char*event){ -if(!lua_getmetatable(L,obj)) -return 0; -lua_pushstring(L,event); -lua_rawget(L,-2); -if(lua_isnil(L,-1)){ -lua_pop(L,2); -return 0; -} -else{ -lua_remove(L,-2); -return 1; -} -} -static void luaL_register(lua_State*L,const char*libname, -const luaL_Reg*l){ -luaI_openlib(L,libname,l,0); -} -static int libsize(const luaL_Reg*l){ -int size=0; -for(;l->name;l++)size++; -return size; -} -static void luaI_openlib(lua_State*L,const char*libname, -const luaL_Reg*l,int nup){ -if(libname){ -int size=libsize(l); -luaL_findtable(L,(-10000),"_LOADED",1); -lua_getfield(L,-1,libname); -if(!lua_istable(L,-1)){ -lua_pop(L,1); -if(luaL_findtable(L,(-10002),libname,size)!=NULL) -luaL_error(L,"name conflict for module "LUA_QL("%s"),libname); -lua_pushvalue(L,-1); -lua_setfield(L,-3,libname); -} -lua_remove(L,-2); -lua_insert(L,-(nup+1)); -} -for(;l->name;l++){ -int i; -for(i=0;ifunc,nup); -lua_setfield(L,-(nup+2),l->name); -} -lua_pop(L,nup); -} -static const char*luaL_findtable(lua_State*L,int idx, -const char*fname,int szhint){ -const char*e; -lua_pushvalue(L,idx); -do{ -e=strchr(fname,'.'); -if(e==NULL)e=fname+strlen(fname); -lua_pushlstring(L,fname,e-fname); -lua_rawget(L,-2); -if(lua_isnil(L,-1)){ -lua_pop(L,1); -lua_createtable(L,0,(*e=='.'?1:szhint)); -lua_pushlstring(L,fname,e-fname); -lua_pushvalue(L,-2); -lua_settable(L,-4); -} -else if(!lua_istable(L,-1)){ -lua_pop(L,2); -return fname; -} -lua_remove(L,-2); -fname=e+1; -}while(*e=='.'); -return NULL; -} -#define bufflen(B)((B)->p-(B)->buffer) -#define bufffree(B)((size_t)(BUFSIZ-bufflen(B))) -static int emptybuffer(luaL_Buffer*B){ -size_t l=bufflen(B); -if(l==0)return 0; -else{ -lua_pushlstring(B->L,B->buffer,l); -B->p=B->buffer; -B->lvl++; -return 1; -} -} -static void adjuststack(luaL_Buffer*B){ -if(B->lvl>1){ -lua_State*L=B->L; -int toget=1; -size_t toplen=lua_strlen(L,-1); -do{ -size_t l=lua_strlen(L,-(toget+1)); -if(B->lvl-toget+1>=(20/2)||toplen>l){ -toplen+=l; -toget++; -} -else break; -}while(togetlvl); -lua_concat(L,toget); -B->lvl=B->lvl-toget+1; -} -} -static char*luaL_prepbuffer(luaL_Buffer*B){ -if(emptybuffer(B)) -adjuststack(B); -return B->buffer; -} -static void luaL_addlstring(luaL_Buffer*B,const char*s,size_t l){ -while(l--) -luaL_addchar(B,*s++); -} -static void luaL_pushresult(luaL_Buffer*B){ -emptybuffer(B); -lua_concat(B->L,B->lvl); -B->lvl=1; -} -static void luaL_addvalue(luaL_Buffer*B){ -lua_State*L=B->L; -size_t vl; -const char*s=lua_tolstring(L,-1,&vl); -if(vl<=bufffree(B)){ -memcpy(B->p,s,vl); -B->p+=vl; -lua_pop(L,1); -} -else{ -if(emptybuffer(B)) -lua_insert(L,-2); -B->lvl++; -adjuststack(B); -} -} -static void luaL_buffinit(lua_State*L,luaL_Buffer*B){ -B->L=L; -B->p=B->buffer; -B->lvl=0; -} -typedef struct LoadF{ -int extraline; -FILE*f; -char buff[BUFSIZ]; -}LoadF; -static const char*getF(lua_State*L,void*ud,size_t*size){ -LoadF*lf=(LoadF*)ud; -(void)L; -if(lf->extraline){ -lf->extraline=0; -*size=1; -return"\n"; -} -if(feof(lf->f))return NULL; -*size=fread(lf->buff,1,sizeof(lf->buff),lf->f); -return(*size>0)?lf->buff:NULL; -} -static int errfile(lua_State*L,const char*what,int fnameindex){ -const char*serr=strerror(errno); -const char*filename=lua_tostring(L,fnameindex)+1; -lua_pushfstring(L,"cannot %s %s: %s",what,filename,serr); -lua_remove(L,fnameindex); -return(5+1); -} -static int luaL_loadfile(lua_State*L,const char*filename){ -LoadF lf; -int status,readstatus; -int c; -int fnameindex=lua_gettop(L)+1; -lf.extraline=0; -if(filename==NULL){ -lua_pushliteral(L,"=stdin"); -lf.f=stdin; -} -else{ -lua_pushfstring(L,"@%s",filename); -lf.f=fopen(filename,"r"); -if(lf.f==NULL)return errfile(L,"open",fnameindex); -} -c=getc(lf.f); -if(c=='#'){ -lf.extraline=1; -while((c=getc(lf.f))!=EOF&&c!='\n'); -if(c=='\n')c=getc(lf.f); -} -if(c=="\033Lua"[0]&&filename){ -lf.f=freopen(filename,"rb",lf.f); -if(lf.f==NULL)return errfile(L,"reopen",fnameindex); -while((c=getc(lf.f))!=EOF&&c!="\033Lua"[0]); -lf.extraline=0; -} -ungetc(c,lf.f); -status=lua_load(L,getF,&lf,lua_tostring(L,-1)); -readstatus=ferror(lf.f); -if(filename)fclose(lf.f); -if(readstatus){ -lua_settop(L,fnameindex); -return errfile(L,"read",fnameindex); -} -lua_remove(L,fnameindex); -return status; -} -typedef struct LoadS{ -const char*s; -size_t size; -}LoadS; -static const char*getS(lua_State*L,void*ud,size_t*size){ -LoadS*ls=(LoadS*)ud; -(void)L; -if(ls->size==0)return NULL; -*size=ls->size; -ls->size=0; -return ls->s; -} -static int luaL_loadbuffer(lua_State*L,const char*buff,size_t size, -const char*name){ -LoadS ls; -ls.s=buff; -ls.size=size; -return lua_load(L,getS,&ls,name); -} -static void*l_alloc(void*ud,void*ptr,size_t osize,size_t nsize){ -(void)ud; -(void)osize; -if(nsize==0){ -free(ptr); -return NULL; -} -else -return realloc(ptr,nsize); -} -static int panic(lua_State*L){ -(void)L; -fprintf(stderr,"PANIC: unprotected error in call to Lua API (%s)\n", -lua_tostring(L,-1)); -return 0; -} -static lua_State*luaL_newstate(void){ -lua_State*L=lua_newstate(l_alloc,NULL); -if(L)lua_atpanic(L,&panic); -return L; -} -static int luaB_tonumber(lua_State*L){ -int base=luaL_optint(L,2,10); -if(base==10){ -luaL_checkany(L,1); -if(lua_isnumber(L,1)){ -lua_pushnumber(L,lua_tonumber(L,1)); -return 1; -} -} -else{ -const char*s1=luaL_checkstring(L,1); -char*s2; -unsigned long n; -luaL_argcheck(L,2<=base&&base<=36,2,"base out of range"); -n=strtoul(s1,&s2,base); -if(s1!=s2){ -while(isspace((unsigned char)(*s2)))s2++; -if(*s2=='\0'){ -lua_pushnumber(L,(lua_Number)n); -return 1; -} -} -} -lua_pushnil(L); -return 1; -} -static int luaB_error(lua_State*L){ -int level=luaL_optint(L,2,1); -lua_settop(L,1); -if(lua_isstring(L,1)&&level>0){ -luaL_where(L,level); -lua_pushvalue(L,1); -lua_concat(L,2); -} -return lua_error(L); -} -static int luaB_setmetatable(lua_State*L){ -int t=lua_type(L,2); -luaL_checktype(L,1,5); -luaL_argcheck(L,t==0||t==5,2, -"nil or table expected"); -if(luaL_getmetafield(L,1,"__metatable")) -luaL_error(L,"cannot change a protected metatable"); -lua_settop(L,2); -lua_setmetatable(L,1); -return 1; -} -static void getfunc(lua_State*L,int opt){ -if(lua_isfunction(L,1))lua_pushvalue(L,1); -else{ -lua_Debug ar; -int level=opt?luaL_optint(L,1,1):luaL_checkint(L,1); -luaL_argcheck(L,level>=0,1,"level must be non-negative"); -if(lua_getstack(L,level,&ar)==0) -luaL_argerror(L,1,"invalid level"); -lua_getinfo(L,"f",&ar); -if(lua_isnil(L,-1)) -luaL_error(L,"no function environment for tail call at level %d", -level); -} -} -static int luaB_setfenv(lua_State*L){ -luaL_checktype(L,2,5); -getfunc(L,0); -lua_pushvalue(L,2); -if(lua_isnumber(L,1)&&lua_tonumber(L,1)==0){ -lua_pushthread(L); -lua_insert(L,-2); -lua_setfenv(L,-2); -return 0; -} -else if(lua_iscfunction(L,-2)||lua_setfenv(L,-2)==0) -luaL_error(L, -LUA_QL("setfenv")" cannot change environment of given object"); -return 1; -} -static int luaB_rawget(lua_State*L){ -luaL_checktype(L,1,5); -luaL_checkany(L,2); -lua_settop(L,2); -lua_rawget(L,1); -return 1; -} -static int luaB_type(lua_State*L){ -luaL_checkany(L,1); -lua_pushstring(L,luaL_typename(L,1)); -return 1; -} -static int luaB_next(lua_State*L){ -luaL_checktype(L,1,5); -lua_settop(L,2); -if(lua_next(L,1)) -return 2; -else{ -lua_pushnil(L); -return 1; -} -} -static int luaB_pairs(lua_State*L){ -luaL_checktype(L,1,5); -lua_pushvalue(L,lua_upvalueindex(1)); -lua_pushvalue(L,1); -lua_pushnil(L); -return 3; -} -static int ipairsaux(lua_State*L){ -int i=luaL_checkint(L,2); -luaL_checktype(L,1,5); -i++; -lua_pushinteger(L,i); -lua_rawgeti(L,1,i); -return(lua_isnil(L,-1))?0:2; -} -static int luaB_ipairs(lua_State*L){ -luaL_checktype(L,1,5); -lua_pushvalue(L,lua_upvalueindex(1)); -lua_pushvalue(L,1); -lua_pushinteger(L,0); -return 3; -} -static int load_aux(lua_State*L,int status){ -if(status==0) -return 1; -else{ -lua_pushnil(L); -lua_insert(L,-2); -return 2; -} -} -static int luaB_loadstring(lua_State*L){ -size_t l; -const char*s=luaL_checklstring(L,1,&l); -const char*chunkname=luaL_optstring(L,2,s); -return load_aux(L,luaL_loadbuffer(L,s,l,chunkname)); -} -static int luaB_loadfile(lua_State*L){ -const char*fname=luaL_optstring(L,1,NULL); -return load_aux(L,luaL_loadfile(L,fname)); -} -static int luaB_assert(lua_State*L){ -luaL_checkany(L,1); -if(!lua_toboolean(L,1)) -return luaL_error(L,"%s",luaL_optstring(L,2,"assertion failed!")); -return lua_gettop(L); -} -static int luaB_unpack(lua_State*L){ -int i,e,n; -luaL_checktype(L,1,5); -i=luaL_optint(L,2,1); -e=luaL_opt(L,luaL_checkint,3,luaL_getn(L,1)); -if(i>e)return 0; -n=e-i+1; -if(n<=0||!lua_checkstack(L,n)) -return luaL_error(L,"too many results to unpack"); -lua_rawgeti(L,1,i); -while(i++e)e=pos; -for(i=e;i>pos;i--){ -lua_rawgeti(L,1,i-1); -lua_rawseti(L,1,i); -} -break; -} -default:{ -return luaL_error(L,"wrong number of arguments to "LUA_QL("insert")); -} -} -luaL_setn(L,1,e); -lua_rawseti(L,1,pos); -return 0; -} -static int tremove(lua_State*L){ -int e=aux_getn(L,1); -int pos=luaL_optint(L,2,e); -if(!(1<=pos&&pos<=e)) -return 0; -luaL_setn(L,1,e-1); -lua_rawgeti(L,1,pos); -for(;posu)luaL_error(L,"invalid order function for sorting"); -lua_pop(L,1); -} -while(lua_rawgeti(L,1,--j),sort_comp(L,-3,-1)){ -if(j0); -} -l=strlen(p); -if(l==0||p[l-1]!='\n') -luaL_addsize(&b,l); -else{ -luaL_addsize(&b,l-1); -luaL_pushresult(&b); -return 1; -} -} -} -static int read_chars(lua_State*L,FILE*f,size_t n){ -size_t rlen; -size_t nr; -luaL_Buffer b; -luaL_buffinit(L,&b); -rlen=BUFSIZ; -do{ -char*p=luaL_prepbuffer(&b); -if(rlen>n)rlen=n; -nr=fread(p,sizeof(char),rlen,f); -luaL_addsize(&b,nr); -n-=nr; -}while(n>0&&nr==rlen); -luaL_pushresult(&b); -return(n==0||lua_objlen(L,-1)>0); -} -static int g_read(lua_State*L,FILE*f,int first){ -int nargs=lua_gettop(L)-1; -int success; -int n; -clearerr(f); -if(nargs==0){ -success=read_line(L,f); -n=first+1; -} -else{ -luaL_checkstack(L,nargs+20,"too many arguments"); -success=1; -for(n=first;nargs--&&success;n++){ -if(lua_type(L,n)==3){ -size_t l=(size_t)lua_tointeger(L,n); -success=(l==0)?test_eof(L,f):read_chars(L,f,l); -} -else{ -const char*p=lua_tostring(L,n); -luaL_argcheck(L,p&&p[0]=='*',n,"invalid option"); -switch(p[1]){ -case'n': -success=read_number(L,f); -break; -case'l': -success=read_line(L,f); -break; -case'a': -read_chars(L,f,~((size_t)0)); -success=1; -break; -default: -return luaL_argerror(L,n,"invalid format"); -} -} -} -} -if(ferror(f)) -return pushresult(L,0,NULL); -if(!success){ -lua_pop(L,1); -lua_pushnil(L); -} -return n-first; -} -static int io_read(lua_State*L){ -return g_read(L,getiofile(L,1),1); -} -static int f_read(lua_State*L){ -return g_read(L,tofile(L),2); -} -static int io_readline(lua_State*L){ -FILE*f=*(FILE**)lua_touserdata(L,lua_upvalueindex(1)); -int sucess; -if(f==NULL) -luaL_error(L,"file is already closed"); -sucess=read_line(L,f); -if(ferror(f)) -return luaL_error(L,"%s",strerror(errno)); -if(sucess)return 1; -else{ -if(lua_toboolean(L,lua_upvalueindex(2))){ -lua_settop(L,0); -lua_pushvalue(L,lua_upvalueindex(1)); -aux_close(L); -} -return 0; -} -} -static int g_write(lua_State*L,FILE*f,int arg){ -int nargs=lua_gettop(L)-1; -int status=1; -for(;nargs--;arg++){ -if(lua_type(L,arg)==3){ -status=status&& -fprintf(f,"%.14g",lua_tonumber(L,arg))>0; -} -else{ -size_t l; -const char*s=luaL_checklstring(L,arg,&l); -status=status&&(fwrite(s,sizeof(char),l,f)==l); -} -} -return pushresult(L,status,NULL); -} -static int io_write(lua_State*L){ -return g_write(L,getiofile(L,2),1); -} -static int f_write(lua_State*L){ -return g_write(L,tofile(L),2); -} -static int io_flush(lua_State*L){ -return pushresult(L,fflush(getiofile(L,2))==0,NULL); -} -static int f_flush(lua_State*L){ -return pushresult(L,fflush(tofile(L))==0,NULL); -} -static const luaL_Reg iolib[]={ -{"close",io_close}, -{"flush",io_flush}, -{"input",io_input}, -{"lines",io_lines}, -{"open",io_open}, -{"output",io_output}, -{"read",io_read}, -{"type",io_type}, -{"write",io_write}, -{NULL,NULL} -}; -static const luaL_Reg flib[]={ -{"close",io_close}, -{"flush",f_flush}, -{"lines",f_lines}, -{"read",f_read}, -{"write",f_write}, -{"__gc",io_gc}, -{NULL,NULL} -}; -static void createmeta(lua_State*L){ -luaL_newmetatable(L,"FILE*"); -lua_pushvalue(L,-1); -lua_setfield(L,-2,"__index"); -luaL_register(L,NULL,flib); -} -static void createstdfile(lua_State*L,FILE*f,int k,const char*fname){ -*newfile(L)=f; -if(k>0){ -lua_pushvalue(L,-1); -lua_rawseti(L,(-10001),k); -} -lua_pushvalue(L,-2); -lua_setfenv(L,-2); -lua_setfield(L,-3,fname); -} -static void newfenv(lua_State*L,lua_CFunction cls){ -lua_createtable(L,0,1); -lua_pushcfunction(L,cls); -lua_setfield(L,-2,"__close"); -} -static int luaopen_io(lua_State*L){ -createmeta(L); -newfenv(L,io_fclose); -lua_replace(L,(-10001)); -luaL_register(L,"io",iolib); -newfenv(L,io_noclose); -createstdfile(L,stdin,1,"stdin"); -createstdfile(L,stdout,2,"stdout"); -createstdfile(L,stderr,0,"stderr"); -lua_pop(L,1); -lua_getfield(L,-1,"popen"); -newfenv(L,io_pclose); -lua_setfenv(L,-2); -lua_pop(L,1); -return 1; -} -static int os_pushresult(lua_State*L,int i,const char*filename){ -int en=errno; -if(i){ -lua_pushboolean(L,1); -return 1; -} -else{ -lua_pushnil(L); -lua_pushfstring(L,"%s: %s",filename,strerror(en)); -lua_pushinteger(L,en); -return 3; -} -} -static int os_remove(lua_State*L){ -const char*filename=luaL_checkstring(L,1); -return os_pushresult(L,remove(filename)==0,filename); -} -static int os_exit(lua_State*L){ -exit(luaL_optint(L,1,EXIT_SUCCESS)); -} -static const luaL_Reg syslib[]={ -{"exit",os_exit}, -{"remove",os_remove}, -{NULL,NULL} -}; -static int luaopen_os(lua_State*L){ -luaL_register(L,"os",syslib); -return 1; -} -#define uchar(c)((unsigned char)(c)) -static ptrdiff_t posrelat(ptrdiff_t pos,size_t len){ -if(pos<0)pos+=(ptrdiff_t)len+1; -return(pos>=0)?pos:0; -} -static int str_sub(lua_State*L){ -size_t l; -const char*s=luaL_checklstring(L,1,&l); -ptrdiff_t start=posrelat(luaL_checkinteger(L,2),l); -ptrdiff_t end=posrelat(luaL_optinteger(L,3,-1),l); -if(start<1)start=1; -if(end>(ptrdiff_t)l)end=(ptrdiff_t)l; -if(start<=end) -lua_pushlstring(L,s+start-1,end-start+1); -else lua_pushliteral(L,""); -return 1; -} -static int str_lower(lua_State*L){ -size_t l; -size_t i; -luaL_Buffer b; -const char*s=luaL_checklstring(L,1,&l); -luaL_buffinit(L,&b); -for(i=0;i0) -luaL_addlstring(&b,s,l); -luaL_pushresult(&b); -return 1; -} -static int str_byte(lua_State*L){ -size_t l; -const char*s=luaL_checklstring(L,1,&l); -ptrdiff_t posi=posrelat(luaL_optinteger(L,2,1),l); -ptrdiff_t pose=posrelat(luaL_optinteger(L,3,posi),l); -int n,i; -if(posi<=0)posi=1; -if((size_t)pose>l)pose=l; -if(posi>pose)return 0; -n=(int)(pose-posi+1); -if(posi+n<=pose) -luaL_error(L,"string slice too long"); -luaL_checkstack(L,n,"string slice too long"); -for(i=0;i=ms->level||ms->capture[l].len==(-1)) -return luaL_error(ms->L,"invalid capture index"); -return l; -} -static int capture_to_close(MatchState*ms){ -int level=ms->level; -for(level--;level>=0;level--) -if(ms->capture[level].len==(-1))return level; -return luaL_error(ms->L,"invalid pattern capture"); -} -static const char*classend(MatchState*ms,const char*p){ -switch(*p++){ -case'%':{ -if(*p=='\0') -luaL_error(ms->L,"malformed pattern (ends with "LUA_QL("%%")")"); -return p+1; -} -case'[':{ -if(*p=='^')p++; -do{ -if(*p=='\0') -luaL_error(ms->L,"malformed pattern (missing "LUA_QL("]")")"); -if(*(p++)=='%'&&*p!='\0') -p++; -}while(*p!=']'); -return p+1; -} -default:{ -return p; -} -} -} -static int match_class(int c,int cl){ -int res; -switch(tolower(cl)){ -case'a':res=isalpha(c);break; -case'c':res=iscntrl(c);break; -case'd':res=isdigit(c);break; -case'l':res=islower(c);break; -case'p':res=ispunct(c);break; -case's':res=isspace(c);break; -case'u':res=isupper(c);break; -case'w':res=isalnum(c);break; -case'x':res=isxdigit(c);break; -case'z':res=(c==0);break; -default:return(cl==c); -} -return(islower(cl)?res:!res); -} -static int matchbracketclass(int c,const char*p,const char*ec){ -int sig=1; -if(*(p+1)=='^'){ -sig=0; -p++; -} -while(++pL,"unbalanced pattern"); -if(*s!=*p)return NULL; -else{ -int b=*p; -int e=*(p+1); -int cont=1; -while(++ssrc_end){ -if(*s==e){ -if(--cont==0)return s+1; -} -else if(*s==b)cont++; -} -} -return NULL; -} -static const char*max_expand(MatchState*ms,const char*s, -const char*p,const char*ep){ -ptrdiff_t i=0; -while((s+i)src_end&&singlematch(uchar(*(s+i)),p,ep)) -i++; -while(i>=0){ -const char*res=match(ms,(s+i),ep+1); -if(res)return res; -i--; -} -return NULL; -} -static const char*min_expand(MatchState*ms,const char*s, -const char*p,const char*ep){ -for(;;){ -const char*res=match(ms,s,ep+1); -if(res!=NULL) -return res; -else if(ssrc_end&&singlematch(uchar(*s),p,ep)) -s++; -else return NULL; -} -} -static const char*start_capture(MatchState*ms,const char*s, -const char*p,int what){ -const char*res; -int level=ms->level; -if(level>=32)luaL_error(ms->L,"too many captures"); -ms->capture[level].init=s; -ms->capture[level].len=what; -ms->level=level+1; -if((res=match(ms,s,p))==NULL) -ms->level--; -return res; -} -static const char*end_capture(MatchState*ms,const char*s, -const char*p){ -int l=capture_to_close(ms); -const char*res; -ms->capture[l].len=s-ms->capture[l].init; -if((res=match(ms,s,p))==NULL) -ms->capture[l].len=(-1); -return res; -} -static const char*match_capture(MatchState*ms,const char*s,int l){ -size_t len; -l=check_capture(ms,l); -len=ms->capture[l].len; -if((size_t)(ms->src_end-s)>=len&& -memcmp(ms->capture[l].init,s,len)==0) -return s+len; -else return NULL; -} -static const char*match(MatchState*ms,const char*s,const char*p){ -init: -switch(*p){ -case'(':{ -if(*(p+1)==')') -return start_capture(ms,s,p+2,(-2)); -else -return start_capture(ms,s,p+1,(-1)); -} -case')':{ -return end_capture(ms,s,p+1); -} -case'%':{ -switch(*(p+1)){ -case'b':{ -s=matchbalance(ms,s,p+2); -if(s==NULL)return NULL; -p+=4;goto init; -} -case'f':{ -const char*ep;char previous; -p+=2; -if(*p!='[') -luaL_error(ms->L,"missing "LUA_QL("[")" after " -LUA_QL("%%f")" in pattern"); -ep=classend(ms,p); -previous=(s==ms->src_init)?'\0':*(s-1); -if(matchbracketclass(uchar(previous),p,ep-1)|| -!matchbracketclass(uchar(*s),p,ep-1))return NULL; -p=ep;goto init; -} -default:{ -if(isdigit(uchar(*(p+1)))){ -s=match_capture(ms,s,uchar(*(p+1))); -if(s==NULL)return NULL; -p+=2;goto init; -} -goto dflt; -} -} -} -case'\0':{ -return s; -} -case'$':{ -if(*(p+1)=='\0') -return(s==ms->src_end)?s:NULL; -else goto dflt; -} -default:dflt:{ -const char*ep=classend(ms,p); -int m=ssrc_end&&singlematch(uchar(*s),p,ep); -switch(*ep){ -case'?':{ -const char*res; -if(m&&((res=match(ms,s+1,ep+1))!=NULL)) -return res; -p=ep+1;goto init; -} -case'*':{ -return max_expand(ms,s,p,ep); -} -case'+':{ -return(m?max_expand(ms,s+1,p,ep):NULL); -} -case'-':{ -return min_expand(ms,s,p,ep); -} -default:{ -if(!m)return NULL; -s++;p=ep;goto init; -} -} -} -} -} -static const char*lmemfind(const char*s1,size_t l1, -const char*s2,size_t l2){ -if(l2==0)return s1; -else if(l2>l1)return NULL; -else{ -const char*init; -l2--; -l1=l1-l2; -while(l1>0&&(init=(const char*)memchr(s1,*s2,l1))!=NULL){ -init++; -if(memcmp(init,s2+1,l2)==0) -return init-1; -else{ -l1-=init-s1; -s1=init; -} -} -return NULL; -} -} -static void push_onecapture(MatchState*ms,int i,const char*s, -const char*e){ -if(i>=ms->level){ -if(i==0) -lua_pushlstring(ms->L,s,e-s); -else -luaL_error(ms->L,"invalid capture index"); -} -else{ -ptrdiff_t l=ms->capture[i].len; -if(l==(-1))luaL_error(ms->L,"unfinished capture"); -if(l==(-2)) -lua_pushinteger(ms->L,ms->capture[i].init-ms->src_init+1); -else -lua_pushlstring(ms->L,ms->capture[i].init,l); -} -} -static int push_captures(MatchState*ms,const char*s,const char*e){ -int i; -int nlevels=(ms->level==0&&s)?1:ms->level; -luaL_checkstack(ms->L,nlevels,"too many captures"); -for(i=0;il1)init=(ptrdiff_t)l1; -if(find&&(lua_toboolean(L,4)|| -strpbrk(p,"^$*+?.([%-")==NULL)){ -const char*s2=lmemfind(s+init,l1-init,p,l2); -if(s2){ -lua_pushinteger(L,s2-s+1); -lua_pushinteger(L,s2-s+l2); -return 2; -} -} -else{ -MatchState ms; -int anchor=(*p=='^')?(p++,1):0; -const char*s1=s+init; -ms.L=L; -ms.src_init=s; -ms.src_end=s+l1; -do{ -const char*res; -ms.level=0; -if((res=match(&ms,s1,p))!=NULL){ -if(find){ -lua_pushinteger(L,s1-s+1); -lua_pushinteger(L,res-s); -return push_captures(&ms,NULL,0)+2; -} -else -return push_captures(&ms,s1,res); -} -}while(s1++L,3,&l); -for(i=0;iL; -switch(lua_type(L,3)){ -case 3: -case 4:{ -add_s(ms,b,s,e); -return; -} -case 6:{ -int n; -lua_pushvalue(L,3); -n=push_captures(ms,s,e); -lua_call(L,n,1); -break; -} -case 5:{ -push_onecapture(ms,0,s,e); -lua_gettable(L,3); -break; -} -} -if(!lua_toboolean(L,-1)){ -lua_pop(L,1); -lua_pushlstring(L,s,e-s); -} -else if(!lua_isstring(L,-1)) -luaL_error(L,"invalid replacement value (a %s)",luaL_typename(L,-1)); -luaL_addvalue(b); -} -static int str_gsub(lua_State*L){ -size_t srcl; -const char*src=luaL_checklstring(L,1,&srcl); -const char*p=luaL_checkstring(L,2); -int tr=lua_type(L,3); -int max_s=luaL_optint(L,4,srcl+1); -int anchor=(*p=='^')?(p++,1):0; -int n=0; -MatchState ms; -luaL_Buffer b; -luaL_argcheck(L,tr==3||tr==4|| -tr==6||tr==5,3, -"string/function/table expected"); -luaL_buffinit(L,&b); -ms.L=L; -ms.src_init=src; -ms.src_end=src+srcl; -while(nsrc) -src=e; -else if(src=sizeof("-+ #0")) -luaL_error(L,"invalid format (repeated flags)"); -if(isdigit(uchar(*p)))p++; -if(isdigit(uchar(*p)))p++; -if(*p=='.'){ -p++; -if(isdigit(uchar(*p)))p++; -if(isdigit(uchar(*p)))p++; -} -if(isdigit(uchar(*p))) -luaL_error(L,"invalid format (width or precision too long)"); -*(form++)='%'; -strncpy(form,strfrmt,p-strfrmt+1); -form+=p-strfrmt+1; -*form='\0'; -return p; -} -static void addintlen(char*form){ -size_t l=strlen(form); -char spec=form[l-1]; -strcpy(form+l-1,"l"); -form[l+sizeof("l")-2]=spec; -form[l+sizeof("l")-1]='\0'; -} -static int str_format(lua_State*L){ -int top=lua_gettop(L); -int arg=1; -size_t sfl; -const char*strfrmt=luaL_checklstring(L,arg,&sfl); -const char*strfrmt_end=strfrmt+sfl; -luaL_Buffer b; -luaL_buffinit(L,&b); -while(strfrmttop) -luaL_argerror(L,arg,"no value"); -strfrmt=scanformat(L,strfrmt,form); -switch(*strfrmt++){ -case'c':{ -sprintf(buff,form,(int)luaL_checknumber(L,arg)); -break; -} -case'd':case'i':{ -addintlen(form); -sprintf(buff,form,(long)luaL_checknumber(L,arg)); -break; -} -case'o':case'u':case'x':case'X':{ -addintlen(form); -sprintf(buff,form,(unsigned long)luaL_checknumber(L,arg)); -break; -} -case'e':case'E':case'f': -case'g':case'G':{ -sprintf(buff,form,(double)luaL_checknumber(L,arg)); -break; -} -case'q':{ -addquoted(L,&b,arg); -continue; -} -case's':{ -size_t l; -const char*s=luaL_checklstring(L,arg,&l); -if(!strchr(form,'.')&&l>=100){ -lua_pushvalue(L,arg); -luaL_addvalue(&b); -continue; -} -else{ -sprintf(buff,form,s); -break; -} -} -default:{ -return luaL_error(L,"invalid option "LUA_QL("%%%c")" to " -LUA_QL("format"),*(strfrmt-1)); -} -} -luaL_addlstring(&b,buff,strlen(buff)); -} -} -luaL_pushresult(&b); -return 1; -} -static const luaL_Reg strlib[]={ -{"byte",str_byte}, -{"char",str_char}, -{"find",str_find}, -{"format",str_format}, -{"gmatch",gmatch}, -{"gsub",str_gsub}, -{"lower",str_lower}, -{"match",str_match}, -{"rep",str_rep}, -{"sub",str_sub}, -{"upper",str_upper}, -{NULL,NULL} -}; -static void createmetatable(lua_State*L){ -lua_createtable(L,0,1); -lua_pushliteral(L,""); -lua_pushvalue(L,-2); -lua_setmetatable(L,-2); -lua_pop(L,1); -lua_pushvalue(L,-2); -lua_setfield(L,-2,"__index"); -lua_pop(L,1); -} -static int luaopen_string(lua_State*L){ -luaL_register(L,"string",strlib); -createmetatable(L); -return 1; -} -static const luaL_Reg lualibs[]={ -{"",luaopen_base}, -{"table",luaopen_table}, -{"io",luaopen_io}, -{"os",luaopen_os}, -{"string",luaopen_string}, -{NULL,NULL} -}; -static void luaL_openlibs(lua_State*L){ -const luaL_Reg*lib=lualibs; -for(;lib->func;lib++){ -lua_pushcfunction(L,lib->func); -lua_pushstring(L,lib->name); -lua_call(L,1,0); -} -} -typedef unsigned int UB; -static UB barg(lua_State*L,int idx){ -union{lua_Number n;U64 b;}bn; -bn.n=lua_tonumber(L,idx)+6755399441055744.0; -if(bn.n==0.0&&!lua_isnumber(L,idx))luaL_typerror(L,idx,"number"); -return(UB)bn.b; -} -#define BRET(b)lua_pushnumber(L,(lua_Number)(int)(b));return 1; -static int tobit(lua_State*L){ -BRET(barg(L,1))} -static int bnot(lua_State*L){ -BRET(~barg(L,1))} -static int band(lua_State*L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b&=barg(L,i);BRET(b)} -static int bor(lua_State*L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b|=barg(L,i);BRET(b)} -static int bxor(lua_State*L){ -int i;UB b=barg(L,1);for(i=lua_gettop(L);i>1;i--)b^=barg(L,i);BRET(b)} -static int lshift(lua_State*L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET(b<>n)} -static int arshift(lua_State*L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((int)b>>n)} -static int rol(lua_State*L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((b<>(32-n)))} -static int ror(lua_State*L){ -UB b=barg(L,1),n=barg(L,2)&31;BRET((b>>n)|(b<<(32-n)))} -static int bswap(lua_State*L){ -UB b=barg(L,1);b=(b>>24)|((b>>8)&0xff00)|((b&0xff00)<<8)|(b<<24);BRET(b)} -static int tohex(lua_State*L){ -UB b=barg(L,1); -int n=lua_isnone(L,2)?8:(int)barg(L,2); -const char*hexdigits="0123456789abcdef"; -char buf[8]; -int i; -if(n<0){n=-n;hexdigits="0123456789ABCDEF";} -if(n>8)n=8; -for(i=(int)n;--i>=0;){buf[i]=hexdigits[b&15];b>>=4;} -lua_pushlstring(L,buf,(size_t)n); -return 1; -} -static const struct luaL_Reg bitlib[]={ -{"tobit",tobit}, -{"bnot",bnot}, -{"band",band}, -{"bor",bor}, -{"bxor",bxor}, -{"lshift",lshift}, -{"rshift",rshift}, -{"arshift",arshift}, -{"rol",rol}, -{"ror",ror}, -{"bswap",bswap}, -{"tohex",tohex}, -{NULL,NULL} -}; -int main(int argc,char**argv){ -lua_State*L=luaL_newstate(); -int i; -luaL_openlibs(L); -luaL_register(L,"bit",bitlib); -if(argc<2)return sizeof(void*); -lua_createtable(L,0,1); -lua_pushstring(L,argv[1]); -lua_rawseti(L,-2,0); -lua_setglobal(L,"arg"); -if(luaL_loadfile(L,argv[1])) -goto err; -for(i=2;i -- BYTECODE -- [...] --- print(bc.line(foo, 2)) --> 0002 KSTR 1 1 ; "hello" --- --- local out = { --- -- Do something with each line: --- write = function(t, ...) io.write(...) end, --- close = function(t) end, --- flush = function(t) end, --- } --- bc.dump(foo, out) --- ------------------------------------------------------------------------------- - --- Cache some library functions and objects. -local jit = require("jit") -assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") -local jutil = require("jit.util") -local vmdef = require("jit.vmdef") -local bit = require("bit") -local sub, gsub, format = string.sub, string.gsub, string.format -local byte, band, shr = string.byte, bit.band, bit.rshift -local funcinfo, funcbc, funck = jutil.funcinfo, jutil.funcbc, jutil.funck -local funcuvname = jutil.funcuvname -local bcnames = vmdef.bcnames -local stdout, stderr = io.stdout, io.stderr - ------------------------------------------------------------------------------- - -local function ctlsub(c) - if c == "\n" then return "\\n" - elseif c == "\r" then return "\\r" - elseif c == "\t" then return "\\t" - else return format("\\%03d", byte(c)) - end -end - --- Return one bytecode line. -local function bcline(func, pc, prefix) - local ins, m = funcbc(func, pc) - if not ins then return end - local ma, mb, mc = band(m, 7), band(m, 15*8), band(m, 15*128) - local a = band(shr(ins, 8), 0xff) - local oidx = 6*band(ins, 0xff) - local op = sub(bcnames, oidx+1, oidx+6) - local s = format("%04d %s %-6s %3s ", - pc, prefix or " ", op, ma == 0 and "" or a) - local d = shr(ins, 16) - if mc == 13*128 then -- BCMjump - return format("%s=> %04d\n", s, pc+d-0x7fff) - end - if mb ~= 0 then - d = band(d, 0xff) - elseif mc == 0 then - return s.."\n" - end - local kc - if mc == 10*128 then -- BCMstr - kc = funck(func, -d-1) - kc = format(#kc > 40 and '"%.40s"~' or '"%s"', gsub(kc, "%c", ctlsub)) - elseif mc == 9*128 then -- BCMnum - kc = funck(func, d) - if op == "TSETM " then kc = kc - 2^52 end - elseif mc == 12*128 then -- BCMfunc - local fi = funcinfo(funck(func, -d-1)) - if fi.ffid then - kc = vmdef.ffnames[fi.ffid] - else - kc = fi.loc - end - elseif mc == 5*128 then -- BCMuv - kc = funcuvname(func, d) - end - if ma == 5 then -- BCMuv - local ka = funcuvname(func, a) - if kc then kc = ka.." ; "..kc else kc = ka end - end - if mb ~= 0 then - local b = shr(ins, 24) - if kc then return format("%s%3d %3d ; %s\n", s, b, d, kc) end - return format("%s%3d %3d\n", s, b, d) - end - if kc then return format("%s%3d ; %s\n", s, d, kc) end - if mc == 7*128 and d > 32767 then d = d - 65536 end -- BCMlits - return format("%s%3d\n", s, d) -end - --- Collect branch targets of a function. -local function bctargets(func) - local target = {} - for pc=1,1000000000 do - local ins, m = funcbc(func, pc) - if not ins then break end - if band(m, 15*128) == 13*128 then target[pc+shr(ins, 16)-0x7fff] = true end - end - return target -end - --- Dump bytecode instructions of a function. -local function bcdump(func, out, all) - if not out then out = stdout end - local fi = funcinfo(func) - if all and fi.children then - for n=-1,-1000000000,-1 do - local k = funck(func, n) - if not k then break end - if type(k) == "proto" then bcdump(k, out, true) end - end - end - out:write(format("-- BYTECODE -- %s-%d\n", fi.loc, fi.lastlinedefined)) - local target = bctargets(func) - for pc=1,1000000000 do - local s = bcline(func, pc, target[pc] and "=>") - if not s then break end - out:write(s) - end - out:write("\n") - out:flush() -end - ------------------------------------------------------------------------------- - --- Active flag and output file handle. -local active, out - --- List handler. -local function h_list(func) - return bcdump(func, out) -end - --- Detach list handler. -local function bclistoff() - if active then - active = false - jit.attach(h_list) - if out and out ~= stdout and out ~= stderr then out:close() end - out = nil - end -end - --- Open the output file and attach list handler. -local function bcliston(outfile) - if active then bclistoff() end - if not outfile then outfile = os.getenv("LUAJIT_LISTFILE") end - if outfile then - out = outfile == "-" and stdout or assert(io.open(outfile, "w")) - else - out = stderr - end - jit.attach(h_list, "bc") - active = true -end - --- Public module functions. -return { - line = bcline, - dump = bcdump, - targets = bctargets, - on = bcliston, - off = bclistoff, - start = bcliston -- For -j command line option. -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua b/src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua deleted file mode 100644 index ef5a1aa9422..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/bcsave.lua +++ /dev/null @@ -1,659 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT module to save/list bytecode. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- --- This module saves or lists the bytecode for an input file. --- It's run by the -b command line option. --- ------------------------------------------------------------------------------- - -local jit = require("jit") -assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") -local bit = require("bit") - --- Symbol name prefix for LuaJIT bytecode. -local LJBC_PREFIX = "luaJIT_BC_" - ------------------------------------------------------------------------------- - -local function usage() - io.stderr:write[[ -Save LuaJIT bytecode: luajit -b[options] input output - -l Only list bytecode. - -s Strip debug info (default). - -g Keep debug info. - -n name Set module name (default: auto-detect from input name). - -t type Set output file type (default: auto-detect from output name). - -a arch Override architecture for object files (default: native). - -o os Override OS for object files (default: native). - -e chunk Use chunk string as input. - -- Stop handling options. - - Use stdin as input and/or stdout as output. - -File types: c h obj o raw (default) -]] - os.exit(1) -end - -local function check(ok, ...) - if ok then return ok, ... end - io.stderr:write("luajit: ", ...) - io.stderr:write("\n") - os.exit(1) -end - -local function readfile(input) - if type(input) == "function" then return input end - if input == "-" then input = nil end - return check(loadfile(input)) -end - -local function savefile(name, mode) - if name == "-" then return io.stdout end - return check(io.open(name, mode)) -end - ------------------------------------------------------------------------------- - -local map_type = { - raw = "raw", c = "c", h = "h", o = "obj", obj = "obj", -} - -local map_arch = { - x86 = true, x64 = true, arm = true, ppc = true, - mips = true, mipsel = true, -} - -local map_os = { - linux = true, windows = true, osx = true, freebsd = true, netbsd = true, - openbsd = true, dragonfly = true, solaris = true, -} - -local function checkarg(str, map, err) - str = string.lower(str) - local s = check(map[str], "unknown ", err) - return s == true and str or s -end - -local function detecttype(str) - local ext = string.match(string.lower(str), "%.(%a+)$") - return map_type[ext] or "raw" -end - -local function checkmodname(str) - check(string.match(str, "^[%w_.%-]+$"), "bad module name") - return string.gsub(str, "[%.%-]", "_") -end - -local function detectmodname(str) - if type(str) == "string" then - local tail = string.match(str, "[^/\\]+$") - if tail then str = tail end - local head = string.match(str, "^(.*)%.[^.]*$") - if head then str = head end - str = string.match(str, "^[%w_.%-]+") - else - str = nil - end - check(str, "cannot derive module name, use -n name") - return string.gsub(str, "[%.%-]", "_") -end - ------------------------------------------------------------------------------- - -local function bcsave_tail(fp, output, s) - local ok, err = fp:write(s) - if ok and output ~= "-" then ok, err = fp:close() end - check(ok, "cannot write ", output, ": ", err) -end - -local function bcsave_raw(output, s) - local fp = savefile(output, "wb") - bcsave_tail(fp, output, s) -end - -local function bcsave_c(ctx, output, s) - local fp = savefile(output, "w") - if ctx.type == "c" then - fp:write(string.format([[ -#ifdef _cplusplus -extern "C" -#endif -#ifdef _WIN32 -__declspec(dllexport) -#endif -const char %s%s[] = { -]], LJBC_PREFIX, ctx.modname)) - else - fp:write(string.format([[ -#define %s%s_SIZE %d -static const char %s%s[] = { -]], LJBC_PREFIX, ctx.modname, #s, LJBC_PREFIX, ctx.modname)) - end - local t, n, m = {}, 0, 0 - for i=1,#s do - local b = tostring(string.byte(s, i)) - m = m + #b + 1 - if m > 78 then - fp:write(table.concat(t, ",", 1, n), ",\n") - n, m = 0, #b + 1 - end - n = n + 1 - t[n] = b - end - bcsave_tail(fp, output, table.concat(t, ",", 1, n).."\n};\n") -end - -local function bcsave_elfobj(ctx, output, s, ffi) - ffi.cdef[[ -typedef struct { - uint8_t emagic[4], eclass, eendian, eversion, eosabi, eabiversion, epad[7]; - uint16_t type, machine; - uint32_t version; - uint32_t entry, phofs, shofs; - uint32_t flags; - uint16_t ehsize, phentsize, phnum, shentsize, shnum, shstridx; -} ELF32header; -typedef struct { - uint8_t emagic[4], eclass, eendian, eversion, eosabi, eabiversion, epad[7]; - uint16_t type, machine; - uint32_t version; - uint64_t entry, phofs, shofs; - uint32_t flags; - uint16_t ehsize, phentsize, phnum, shentsize, shnum, shstridx; -} ELF64header; -typedef struct { - uint32_t name, type, flags, addr, ofs, size, link, info, align, entsize; -} ELF32sectheader; -typedef struct { - uint32_t name, type; - uint64_t flags, addr, ofs, size; - uint32_t link, info; - uint64_t align, entsize; -} ELF64sectheader; -typedef struct { - uint32_t name, value, size; - uint8_t info, other; - uint16_t sectidx; -} ELF32symbol; -typedef struct { - uint32_t name; - uint8_t info, other; - uint16_t sectidx; - uint64_t value, size; -} ELF64symbol; -typedef struct { - ELF32header hdr; - ELF32sectheader sect[6]; - ELF32symbol sym[2]; - uint8_t space[4096]; -} ELF32obj; -typedef struct { - ELF64header hdr; - ELF64sectheader sect[6]; - ELF64symbol sym[2]; - uint8_t space[4096]; -} ELF64obj; -]] - local symname = LJBC_PREFIX..ctx.modname - local is64, isbe = false, false - if ctx.arch == "x64" then - is64 = true - elseif ctx.arch == "ppc" or ctx.arch == "mips" then - isbe = true - end - - -- Handle different host/target endianess. - local function f32(x) return x end - local f16, fofs = f32, f32 - if ffi.abi("be") ~= isbe then - f32 = bit.bswap - function f16(x) return bit.rshift(bit.bswap(x), 16) end - if is64 then - local two32 = ffi.cast("int64_t", 2^32) - function fofs(x) return bit.bswap(x)*two32 end - else - fofs = f32 - end - end - - -- Create ELF object and fill in header. - local o = ffi.new(is64 and "ELF64obj" or "ELF32obj") - local hdr = o.hdr - if ctx.os == "bsd" or ctx.os == "other" then -- Determine native hdr.eosabi. - local bf = assert(io.open("/bin/ls", "rb")) - local bs = bf:read(9) - bf:close() - ffi.copy(o, bs, 9) - check(hdr.emagic[0] == 127, "no support for writing native object files") - else - hdr.emagic = "\127ELF" - hdr.eosabi = ({ freebsd=9, netbsd=2, openbsd=12, solaris=6 })[ctx.os] or 0 - end - hdr.eclass = is64 and 2 or 1 - hdr.eendian = isbe and 2 or 1 - hdr.eversion = 1 - hdr.type = f16(1) - hdr.machine = f16(({ x86=3, x64=62, arm=40, ppc=20, mips=8, mipsel=8 })[ctx.arch]) - if ctx.arch == "mips" or ctx.arch == "mipsel" then - hdr.flags = 0x50001006 - end - hdr.version = f32(1) - hdr.shofs = fofs(ffi.offsetof(o, "sect")) - hdr.ehsize = f16(ffi.sizeof(hdr)) - hdr.shentsize = f16(ffi.sizeof(o.sect[0])) - hdr.shnum = f16(6) - hdr.shstridx = f16(2) - - -- Fill in sections and symbols. - local sofs, ofs = ffi.offsetof(o, "space"), 1 - for i,name in ipairs{ - ".symtab", ".shstrtab", ".strtab", ".rodata", ".note.GNU-stack", - } do - local sect = o.sect[i] - sect.align = fofs(1) - sect.name = f32(ofs) - ffi.copy(o.space+ofs, name) - ofs = ofs + #name+1 - end - o.sect[1].type = f32(2) -- .symtab - o.sect[1].link = f32(3) - o.sect[1].info = f32(1) - o.sect[1].align = fofs(8) - o.sect[1].ofs = fofs(ffi.offsetof(o, "sym")) - o.sect[1].entsize = fofs(ffi.sizeof(o.sym[0])) - o.sect[1].size = fofs(ffi.sizeof(o.sym)) - o.sym[1].name = f32(1) - o.sym[1].sectidx = f16(4) - o.sym[1].size = fofs(#s) - o.sym[1].info = 17 - o.sect[2].type = f32(3) -- .shstrtab - o.sect[2].ofs = fofs(sofs) - o.sect[2].size = fofs(ofs) - o.sect[3].type = f32(3) -- .strtab - o.sect[3].ofs = fofs(sofs + ofs) - o.sect[3].size = fofs(#symname+1) - ffi.copy(o.space+ofs+1, symname) - ofs = ofs + #symname + 2 - o.sect[4].type = f32(1) -- .rodata - o.sect[4].flags = fofs(2) - o.sect[4].ofs = fofs(sofs + ofs) - o.sect[4].size = fofs(#s) - o.sect[5].type = f32(1) -- .note.GNU-stack - o.sect[5].ofs = fofs(sofs + ofs + #s) - - -- Write ELF object file. - local fp = savefile(output, "wb") - fp:write(ffi.string(o, ffi.sizeof(o)-4096+ofs)) - bcsave_tail(fp, output, s) -end - -local function bcsave_peobj(ctx, output, s, ffi) - ffi.cdef[[ -typedef struct { - uint16_t arch, nsects; - uint32_t time, symtabofs, nsyms; - uint16_t opthdrsz, flags; -} PEheader; -typedef struct { - char name[8]; - uint32_t vsize, vaddr, size, ofs, relocofs, lineofs; - uint16_t nreloc, nline; - uint32_t flags; -} PEsection; -typedef struct __attribute((packed)) { - union { - char name[8]; - uint32_t nameref[2]; - }; - uint32_t value; - int16_t sect; - uint16_t type; - uint8_t scl, naux; -} PEsym; -typedef struct __attribute((packed)) { - uint32_t size; - uint16_t nreloc, nline; - uint32_t cksum; - uint16_t assoc; - uint8_t comdatsel, unused[3]; -} PEsymaux; -typedef struct { - PEheader hdr; - PEsection sect[2]; - // Must be an even number of symbol structs. - PEsym sym0; - PEsymaux sym0aux; - PEsym sym1; - PEsymaux sym1aux; - PEsym sym2; - PEsym sym3; - uint32_t strtabsize; - uint8_t space[4096]; -} PEobj; -]] - local symname = LJBC_PREFIX..ctx.modname - local is64 = false - if ctx.arch == "x86" then - symname = "_"..symname - elseif ctx.arch == "x64" then - is64 = true - end - local symexport = " /EXPORT:"..symname..",DATA " - - -- The file format is always little-endian. Swap if the host is big-endian. - local function f32(x) return x end - local f16 = f32 - if ffi.abi("be") then - f32 = bit.bswap - function f16(x) return bit.rshift(bit.bswap(x), 16) end - end - - -- Create PE object and fill in header. - local o = ffi.new("PEobj") - local hdr = o.hdr - hdr.arch = f16(({ x86=0x14c, x64=0x8664, arm=0x1c0, ppc=0x1f2, mips=0x366, mipsel=0x366 })[ctx.arch]) - hdr.nsects = f16(2) - hdr.symtabofs = f32(ffi.offsetof(o, "sym0")) - hdr.nsyms = f32(6) - - -- Fill in sections and symbols. - o.sect[0].name = ".drectve" - o.sect[0].size = f32(#symexport) - o.sect[0].flags = f32(0x00100a00) - o.sym0.sect = f16(1) - o.sym0.scl = 3 - o.sym0.name = ".drectve" - o.sym0.naux = 1 - o.sym0aux.size = f32(#symexport) - o.sect[1].name = ".rdata" - o.sect[1].size = f32(#s) - o.sect[1].flags = f32(0x40300040) - o.sym1.sect = f16(2) - o.sym1.scl = 3 - o.sym1.name = ".rdata" - o.sym1.naux = 1 - o.sym1aux.size = f32(#s) - o.sym2.sect = f16(2) - o.sym2.scl = 2 - o.sym2.nameref[1] = f32(4) - o.sym3.sect = f16(-1) - o.sym3.scl = 2 - o.sym3.value = f32(1) - o.sym3.name = "@feat.00" -- Mark as SafeSEH compliant. - ffi.copy(o.space, symname) - local ofs = #symname + 1 - o.strtabsize = f32(ofs + 4) - o.sect[0].ofs = f32(ffi.offsetof(o, "space") + ofs) - ffi.copy(o.space + ofs, symexport) - ofs = ofs + #symexport - o.sect[1].ofs = f32(ffi.offsetof(o, "space") + ofs) - - -- Write PE object file. - local fp = savefile(output, "wb") - fp:write(ffi.string(o, ffi.sizeof(o)-4096+ofs)) - bcsave_tail(fp, output, s) -end - -local function bcsave_machobj(ctx, output, s, ffi) - ffi.cdef[[ -typedef struct -{ - uint32_t magic, cputype, cpusubtype, filetype, ncmds, sizeofcmds, flags; -} mach_header; -typedef struct -{ - mach_header; uint32_t reserved; -} mach_header_64; -typedef struct { - uint32_t cmd, cmdsize; - char segname[16]; - uint32_t vmaddr, vmsize, fileoff, filesize; - uint32_t maxprot, initprot, nsects, flags; -} mach_segment_command; -typedef struct { - uint32_t cmd, cmdsize; - char segname[16]; - uint64_t vmaddr, vmsize, fileoff, filesize; - uint32_t maxprot, initprot, nsects, flags; -} mach_segment_command_64; -typedef struct { - char sectname[16], segname[16]; - uint32_t addr, size; - uint32_t offset, align, reloff, nreloc, flags; - uint32_t reserved1, reserved2; -} mach_section; -typedef struct { - char sectname[16], segname[16]; - uint64_t addr, size; - uint32_t offset, align, reloff, nreloc, flags; - uint32_t reserved1, reserved2, reserved3; -} mach_section_64; -typedef struct { - uint32_t cmd, cmdsize, symoff, nsyms, stroff, strsize; -} mach_symtab_command; -typedef struct { - int32_t strx; - uint8_t type, sect; - int16_t desc; - uint32_t value; -} mach_nlist; -typedef struct { - uint32_t strx; - uint8_t type, sect; - uint16_t desc; - uint64_t value; -} mach_nlist_64; -typedef struct -{ - uint32_t magic, nfat_arch; -} mach_fat_header; -typedef struct -{ - uint32_t cputype, cpusubtype, offset, size, align; -} mach_fat_arch; -typedef struct { - struct { - mach_header hdr; - mach_segment_command seg; - mach_section sec; - mach_symtab_command sym; - } arch[1]; - mach_nlist sym_entry; - uint8_t space[4096]; -} mach_obj; -typedef struct { - struct { - mach_header_64 hdr; - mach_segment_command_64 seg; - mach_section_64 sec; - mach_symtab_command sym; - } arch[1]; - mach_nlist_64 sym_entry; - uint8_t space[4096]; -} mach_obj_64; -typedef struct { - mach_fat_header fat; - mach_fat_arch fat_arch[4]; - struct { - mach_header hdr; - mach_segment_command seg; - mach_section sec; - mach_symtab_command sym; - } arch[4]; - mach_nlist sym_entry; - uint8_t space[4096]; -} mach_fat_obj; -]] - local symname = '_'..LJBC_PREFIX..ctx.modname - local isfat, is64, align, mobj = false, false, 4, "mach_obj" - if ctx.arch == "x64" then - is64, align, mobj = true, 8, "mach_obj_64" - elseif ctx.arch == "arm" then - isfat, mobj = true, "mach_fat_obj" - else - check(ctx.arch == "x86", "unsupported architecture for OSX") - end - local function aligned(v, a) return bit.band(v+a-1, -a) end - local be32 = bit.bswap -- Mach-O FAT is BE, supported archs are LE. - - -- Create Mach-O object and fill in header. - local o = ffi.new(mobj) - local mach_size = aligned(ffi.offsetof(o, "space")+#symname+2, align) - local cputype = ({ x86={7}, x64={0x01000007}, arm={7,12,12,12} })[ctx.arch] - local cpusubtype = ({ x86={3}, x64={3}, arm={3,6,9,11} })[ctx.arch] - if isfat then - o.fat.magic = be32(0xcafebabe) - o.fat.nfat_arch = be32(#cpusubtype) - end - - -- Fill in sections and symbols. - for i=0,#cpusubtype-1 do - local ofs = 0 - if isfat then - local a = o.fat_arch[i] - a.cputype = be32(cputype[i+1]) - a.cpusubtype = be32(cpusubtype[i+1]) - -- Subsequent slices overlap each other to share data. - ofs = ffi.offsetof(o, "arch") + i*ffi.sizeof(o.arch[0]) - a.offset = be32(ofs) - a.size = be32(mach_size-ofs+#s) - end - local a = o.arch[i] - a.hdr.magic = is64 and 0xfeedfacf or 0xfeedface - a.hdr.cputype = cputype[i+1] - a.hdr.cpusubtype = cpusubtype[i+1] - a.hdr.filetype = 1 - a.hdr.ncmds = 2 - a.hdr.sizeofcmds = ffi.sizeof(a.seg)+ffi.sizeof(a.sec)+ffi.sizeof(a.sym) - a.seg.cmd = is64 and 0x19 or 0x1 - a.seg.cmdsize = ffi.sizeof(a.seg)+ffi.sizeof(a.sec) - a.seg.vmsize = #s - a.seg.fileoff = mach_size-ofs - a.seg.filesize = #s - a.seg.maxprot = 1 - a.seg.initprot = 1 - a.seg.nsects = 1 - ffi.copy(a.sec.sectname, "__data") - ffi.copy(a.sec.segname, "__DATA") - a.sec.size = #s - a.sec.offset = mach_size-ofs - a.sym.cmd = 2 - a.sym.cmdsize = ffi.sizeof(a.sym) - a.sym.symoff = ffi.offsetof(o, "sym_entry")-ofs - a.sym.nsyms = 1 - a.sym.stroff = ffi.offsetof(o, "sym_entry")+ffi.sizeof(o.sym_entry)-ofs - a.sym.strsize = aligned(#symname+2, align) - end - o.sym_entry.type = 0xf - o.sym_entry.sect = 1 - o.sym_entry.strx = 1 - ffi.copy(o.space+1, symname) - - -- Write Macho-O object file. - local fp = savefile(output, "wb") - fp:write(ffi.string(o, mach_size)) - bcsave_tail(fp, output, s) -end - -local function bcsave_obj(ctx, output, s) - local ok, ffi = pcall(require, "ffi") - check(ok, "FFI library required to write this file type") - if ctx.os == "windows" then - return bcsave_peobj(ctx, output, s, ffi) - elseif ctx.os == "osx" then - return bcsave_machobj(ctx, output, s, ffi) - else - return bcsave_elfobj(ctx, output, s, ffi) - end -end - ------------------------------------------------------------------------------- - -local function bclist(input, output) - local f = readfile(input) - require("jit.bc").dump(f, savefile(output, "w"), true) -end - -local function bcsave(ctx, input, output) - local f = readfile(input) - local s = string.dump(f, ctx.strip) - local t = ctx.type - if not t then - t = detecttype(output) - ctx.type = t - end - if t == "raw" then - bcsave_raw(output, s) - else - if not ctx.modname then ctx.modname = detectmodname(input) end - if t == "obj" then - bcsave_obj(ctx, output, s) - else - bcsave_c(ctx, output, s) - end - end -end - -local function docmd(...) - local arg = {...} - local n = 1 - local list = false - local ctx = { - strip = true, arch = jit.arch, os = string.lower(jit.os), - type = false, modname = false, - } - while n <= #arg do - local a = arg[n] - if type(a) == "string" and string.sub(a, 1, 1) == "-" and a ~= "-" then - table.remove(arg, n) - if a == "--" then break end - for m=2,#a do - local opt = string.sub(a, m, m) - if opt == "l" then - list = true - elseif opt == "s" then - ctx.strip = true - elseif opt == "g" then - ctx.strip = false - else - if arg[n] == nil or m ~= #a then usage() end - if opt == "e" then - if n ~= 1 then usage() end - arg[1] = check(loadstring(arg[1])) - elseif opt == "n" then - ctx.modname = checkmodname(table.remove(arg, n)) - elseif opt == "t" then - ctx.type = checkarg(table.remove(arg, n), map_type, "file type") - elseif opt == "a" then - ctx.arch = checkarg(table.remove(arg, n), map_arch, "architecture") - elseif opt == "o" then - ctx.os = checkarg(table.remove(arg, n), map_os, "OS name") - else - usage() - end - end - end - else - n = n + 1 - end - end - if list then - if #arg == 0 or #arg > 2 then usage() end - bclist(arg[1], arg[2] or "-") - else - if #arg ~= 2 then usage() end - bcsave(ctx, arg[1], arg[2]) - end -end - ------------------------------------------------------------------------------- - --- Public module functions. -return { - start = docmd -- Process -b command line option. -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua deleted file mode 100644 index dfcbeeecf14..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_arm.lua +++ /dev/null @@ -1,689 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT ARM disassembler module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This is a helper module used by the LuaJIT machine code dumper module. --- --- It disassembles most user-mode ARMv7 instructions --- NYI: Advanced SIMD and VFP instructions. ------------------------------------------------------------------------------- - -local type = type -local sub, byte, format = string.sub, string.byte, string.format -local match, gmatch, gsub = string.match, string.gmatch, string.gsub -local concat = table.concat -local bit = require("bit") -local band, bor, ror, tohex = bit.band, bit.bor, bit.ror, bit.tohex -local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift - ------------------------------------------------------------------------------- --- Opcode maps ------------------------------------------------------------------------------- - -local map_loadc = { - shift = 8, mask = 15, - [10] = { - shift = 20, mask = 1, - [0] = { - shift = 23, mask = 3, - [0] = "vmovFmDN", "vstmFNdr", - _ = { - shift = 21, mask = 1, - [0] = "vstrFdl", - { shift = 16, mask = 15, [13] = "vpushFdr", _ = "vstmdbFNdr", } - }, - }, - { - shift = 23, mask = 3, - [0] = "vmovFDNm", - { shift = 16, mask = 15, [13] = "vpopFdr", _ = "vldmFNdr", }, - _ = { - shift = 21, mask = 1, - [0] = "vldrFdl", "vldmdbFNdr", - }, - }, - }, - [11] = { - shift = 20, mask = 1, - [0] = { - shift = 23, mask = 3, - [0] = "vmovGmDN", "vstmGNdr", - _ = { - shift = 21, mask = 1, - [0] = "vstrGdl", - { shift = 16, mask = 15, [13] = "vpushGdr", _ = "vstmdbGNdr", } - }, - }, - { - shift = 23, mask = 3, - [0] = "vmovGDNm", - { shift = 16, mask = 15, [13] = "vpopGdr", _ = "vldmGNdr", }, - _ = { - shift = 21, mask = 1, - [0] = "vldrGdl", "vldmdbGNdr", - }, - }, - }, - _ = { - shift = 0, mask = 0 -- NYI ldc, mcrr, mrrc. - }, -} - -local map_vfps = { - shift = 6, mask = 0x2c001, - [0] = "vmlaF.dnm", "vmlsF.dnm", - [0x04000] = "vnmlsF.dnm", [0x04001] = "vnmlaF.dnm", - [0x08000] = "vmulF.dnm", [0x08001] = "vnmulF.dnm", - [0x0c000] = "vaddF.dnm", [0x0c001] = "vsubF.dnm", - [0x20000] = "vdivF.dnm", - [0x24000] = "vfnmsF.dnm", [0x24001] = "vfnmaF.dnm", - [0x28000] = "vfmaF.dnm", [0x28001] = "vfmsF.dnm", - [0x2c000] = "vmovF.dY", - [0x2c001] = { - shift = 7, mask = 0x1e01, - [0] = "vmovF.dm", "vabsF.dm", - [0x0200] = "vnegF.dm", [0x0201] = "vsqrtF.dm", - [0x0800] = "vcmpF.dm", [0x0801] = "vcmpeF.dm", - [0x0a00] = "vcmpzF.d", [0x0a01] = "vcmpzeF.d", - [0x0e01] = "vcvtG.dF.m", - [0x1000] = "vcvt.f32.u32Fdm", [0x1001] = "vcvt.f32.s32Fdm", - [0x1800] = "vcvtr.u32F.dm", [0x1801] = "vcvt.u32F.dm", - [0x1a00] = "vcvtr.s32F.dm", [0x1a01] = "vcvt.s32F.dm", - }, -} - -local map_vfpd = { - shift = 6, mask = 0x2c001, - [0] = "vmlaG.dnm", "vmlsG.dnm", - [0x04000] = "vnmlsG.dnm", [0x04001] = "vnmlaG.dnm", - [0x08000] = "vmulG.dnm", [0x08001] = "vnmulG.dnm", - [0x0c000] = "vaddG.dnm", [0x0c001] = "vsubG.dnm", - [0x20000] = "vdivG.dnm", - [0x24000] = "vfnmsG.dnm", [0x24001] = "vfnmaG.dnm", - [0x28000] = "vfmaG.dnm", [0x28001] = "vfmsG.dnm", - [0x2c000] = "vmovG.dY", - [0x2c001] = { - shift = 7, mask = 0x1e01, - [0] = "vmovG.dm", "vabsG.dm", - [0x0200] = "vnegG.dm", [0x0201] = "vsqrtG.dm", - [0x0800] = "vcmpG.dm", [0x0801] = "vcmpeG.dm", - [0x0a00] = "vcmpzG.d", [0x0a01] = "vcmpzeG.d", - [0x0e01] = "vcvtF.dG.m", - [0x1000] = "vcvt.f64.u32GdFm", [0x1001] = "vcvt.f64.s32GdFm", - [0x1800] = "vcvtr.u32FdG.m", [0x1801] = "vcvt.u32FdG.m", - [0x1a00] = "vcvtr.s32FdG.m", [0x1a01] = "vcvt.s32FdG.m", - }, -} - -local map_datac = { - shift = 24, mask = 1, - [0] = { - shift = 4, mask = 1, - [0] = { - shift = 8, mask = 15, - [10] = map_vfps, - [11] = map_vfpd, - -- NYI cdp, mcr, mrc. - }, - { - shift = 8, mask = 15, - [10] = { - shift = 20, mask = 15, - [0] = "vmovFnD", "vmovFDn", - [14] = "vmsrD", - [15] = { shift = 12, mask = 15, [15] = "vmrs", _ = "vmrsD", }, - }, - }, - }, - "svcT", -} - -local map_loadcu = { - shift = 0, mask = 0, -- NYI unconditional CP load/store. -} - -local map_datacu = { - shift = 0, mask = 0, -- NYI unconditional CP data. -} - -local map_simddata = { - shift = 0, mask = 0, -- NYI SIMD data. -} - -local map_simdload = { - shift = 0, mask = 0, -- NYI SIMD load/store, preload. -} - -local map_preload = { - shift = 0, mask = 0, -- NYI preload. -} - -local map_media = { - shift = 20, mask = 31, - [0] = false, - { --01 - shift = 5, mask = 7, - [0] = "sadd16DNM", "sasxDNM", "ssaxDNM", "ssub16DNM", - "sadd8DNM", false, false, "ssub8DNM", - }, - { --02 - shift = 5, mask = 7, - [0] = "qadd16DNM", "qasxDNM", "qsaxDNM", "qsub16DNM", - "qadd8DNM", false, false, "qsub8DNM", - }, - { --03 - shift = 5, mask = 7, - [0] = "shadd16DNM", "shasxDNM", "shsaxDNM", "shsub16DNM", - "shadd8DNM", false, false, "shsub8DNM", - }, - false, - { --05 - shift = 5, mask = 7, - [0] = "uadd16DNM", "uasxDNM", "usaxDNM", "usub16DNM", - "uadd8DNM", false, false, "usub8DNM", - }, - { --06 - shift = 5, mask = 7, - [0] = "uqadd16DNM", "uqasxDNM", "uqsaxDNM", "uqsub16DNM", - "uqadd8DNM", false, false, "uqsub8DNM", - }, - { --07 - shift = 5, mask = 7, - [0] = "uhadd16DNM", "uhasxDNM", "uhsaxDNM", "uhsub16DNM", - "uhadd8DNM", false, false, "uhsub8DNM", - }, - { --08 - shift = 5, mask = 7, - [0] = "pkhbtDNMU", false, "pkhtbDNMU", - { shift = 16, mask = 15, [15] = "sxtb16DMU", _ = "sxtab16DNMU", }, - "pkhbtDNMU", "selDNM", "pkhtbDNMU", - }, - false, - { --0a - shift = 5, mask = 7, - [0] = "ssatDxMu", "ssat16DxM", "ssatDxMu", - { shift = 16, mask = 15, [15] = "sxtbDMU", _ = "sxtabDNMU", }, - "ssatDxMu", false, "ssatDxMu", - }, - { --0b - shift = 5, mask = 7, - [0] = "ssatDxMu", "revDM", "ssatDxMu", - { shift = 16, mask = 15, [15] = "sxthDMU", _ = "sxtahDNMU", }, - "ssatDxMu", "rev16DM", "ssatDxMu", - }, - { --0c - shift = 5, mask = 7, - [3] = { shift = 16, mask = 15, [15] = "uxtb16DMU", _ = "uxtab16DNMU", }, - }, - false, - { --0e - shift = 5, mask = 7, - [0] = "usatDwMu", "usat16DwM", "usatDwMu", - { shift = 16, mask = 15, [15] = "uxtbDMU", _ = "uxtabDNMU", }, - "usatDwMu", false, "usatDwMu", - }, - { --0f - shift = 5, mask = 7, - [0] = "usatDwMu", "rbitDM", "usatDwMu", - { shift = 16, mask = 15, [15] = "uxthDMU", _ = "uxtahDNMU", }, - "usatDwMu", "revshDM", "usatDwMu", - }, - { --10 - shift = 12, mask = 15, - [15] = { - shift = 5, mask = 7, - "smuadNMS", "smuadxNMS", "smusdNMS", "smusdxNMS", - }, - _ = { - shift = 5, mask = 7, - [0] = "smladNMSD", "smladxNMSD", "smlsdNMSD", "smlsdxNMSD", - }, - }, - false, false, false, - { --14 - shift = 5, mask = 7, - [0] = "smlaldDNMS", "smlaldxDNMS", "smlsldDNMS", "smlsldxDNMS", - }, - { --15 - shift = 5, mask = 7, - [0] = { shift = 12, mask = 15, [15] = "smmulNMS", _ = "smmlaNMSD", }, - { shift = 12, mask = 15, [15] = "smmulrNMS", _ = "smmlarNMSD", }, - false, false, false, false, - "smmlsNMSD", "smmlsrNMSD", - }, - false, false, - { --18 - shift = 5, mask = 7, - [0] = { shift = 12, mask = 15, [15] = "usad8NMS", _ = "usada8NMSD", }, - }, - false, - { --1a - shift = 5, mask = 3, [2] = "sbfxDMvw", - }, - { --1b - shift = 5, mask = 3, [2] = "sbfxDMvw", - }, - { --1c - shift = 5, mask = 3, - [0] = { shift = 0, mask = 15, [15] = "bfcDvX", _ = "bfiDMvX", }, - }, - { --1d - shift = 5, mask = 3, - [0] = { shift = 0, mask = 15, [15] = "bfcDvX", _ = "bfiDMvX", }, - }, - { --1e - shift = 5, mask = 3, [2] = "ubfxDMvw", - }, - { --1f - shift = 5, mask = 3, [2] = "ubfxDMvw", - }, -} - -local map_load = { - shift = 21, mask = 9, - { - shift = 20, mask = 5, - [0] = "strtDL", "ldrtDL", [4] = "strbtDL", [5] = "ldrbtDL", - }, - _ = { - shift = 20, mask = 5, - [0] = "strDL", "ldrDL", [4] = "strbDL", [5] = "ldrbDL", - } -} - -local map_load1 = { - shift = 4, mask = 1, - [0] = map_load, map_media, -} - -local map_loadm = { - shift = 20, mask = 1, - [0] = { - shift = 23, mask = 3, - [0] = "stmdaNR", "stmNR", - { shift = 16, mask = 63, [45] = "pushR", _ = "stmdbNR", }, "stmibNR", - }, - { - shift = 23, mask = 3, - [0] = "ldmdaNR", { shift = 16, mask = 63, [61] = "popR", _ = "ldmNR", }, - "ldmdbNR", "ldmibNR", - }, -} - -local map_data = { - shift = 21, mask = 15, - [0] = "andDNPs", "eorDNPs", "subDNPs", "rsbDNPs", - "addDNPs", "adcDNPs", "sbcDNPs", "rscDNPs", - "tstNP", "teqNP", "cmpNP", "cmnNP", - "orrDNPs", "movDPs", "bicDNPs", "mvnDPs", -} - -local map_mul = { - shift = 21, mask = 7, - [0] = "mulNMSs", "mlaNMSDs", "umaalDNMS", "mlsDNMS", - "umullDNMSs", "umlalDNMSs", "smullDNMSs", "smlalDNMSs", -} - -local map_sync = { - shift = 20, mask = 15, -- NYI: brackets around N. R(D+1) for ldrexd/strexd. - [0] = "swpDMN", false, false, false, - "swpbDMN", false, false, false, - "strexDMN", "ldrexDN", "strexdDN", "ldrexdDN", - "strexbDMN", "ldrexbDN", "strexhDN", "ldrexhDN", -} - -local map_mulh = { - shift = 21, mask = 3, - [0] = { shift = 5, mask = 3, - [0] = "smlabbNMSD", "smlatbNMSD", "smlabtNMSD", "smlattNMSD", }, - { shift = 5, mask = 3, - [0] = "smlawbNMSD", "smulwbNMS", "smlawtNMSD", "smulwtNMS", }, - { shift = 5, mask = 3, - [0] = "smlalbbDNMS", "smlaltbDNMS", "smlalbtDNMS", "smlalttDNMS", }, - { shift = 5, mask = 3, - [0] = "smulbbNMS", "smultbNMS", "smulbtNMS", "smulttNMS", }, -} - -local map_misc = { - shift = 4, mask = 7, - -- NYI: decode PSR bits of msr. - [0] = { shift = 21, mask = 1, [0] = "mrsD", "msrM", }, - { shift = 21, mask = 3, "bxM", false, "clzDM", }, - { shift = 21, mask = 3, "bxjM", }, - { shift = 21, mask = 3, "blxM", }, - false, - { shift = 21, mask = 3, [0] = "qaddDMN", "qsubDMN", "qdaddDMN", "qdsubDMN", }, - false, - { shift = 21, mask = 3, "bkptK", }, -} - -local map_datar = { - shift = 4, mask = 9, - [9] = { - shift = 5, mask = 3, - [0] = { shift = 24, mask = 1, [0] = map_mul, map_sync, }, - { shift = 20, mask = 1, [0] = "strhDL", "ldrhDL", }, - { shift = 20, mask = 1, [0] = "ldrdDL", "ldrsbDL", }, - { shift = 20, mask = 1, [0] = "strdDL", "ldrshDL", }, - }, - _ = { - shift = 20, mask = 25, - [16] = { shift = 7, mask = 1, [0] = map_misc, map_mulh, }, - _ = { - shift = 0, mask = 0xffffffff, - [bor(0xe1a00000)] = "nop", - _ = map_data, - } - }, -} - -local map_datai = { - shift = 20, mask = 31, -- NYI: decode PSR bits of msr. Decode imm12. - [16] = "movwDW", [20] = "movtDW", - [18] = { shift = 0, mask = 0xf00ff, [0] = "nopv6", _ = "msrNW", }, - [22] = "msrNW", - _ = map_data, -} - -local map_branch = { - shift = 24, mask = 1, - [0] = "bB", "blB" -} - -local map_condins = { - [0] = map_datar, map_datai, map_load, map_load1, - map_loadm, map_branch, map_loadc, map_datac -} - --- NYI: setend. -local map_uncondins = { - [0] = false, map_simddata, map_simdload, map_preload, - false, "blxB", map_loadcu, map_datacu, -} - ------------------------------------------------------------------------------- - -local map_gpr = { - [0] = "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", - "r8", "r9", "r10", "r11", "r12", "sp", "lr", "pc", -} - -local map_cond = { - [0] = "eq", "ne", "hs", "lo", "mi", "pl", "vs", "vc", - "hi", "ls", "ge", "lt", "gt", "le", "al", -} - -local map_shift = { [0] = "lsl", "lsr", "asr", "ror", } - ------------------------------------------------------------------------------- - --- Output a nicely formatted line with an opcode and operands. -local function putop(ctx, text, operands) - local pos = ctx.pos - local extra = "" - if ctx.rel then - local sym = ctx.symtab[ctx.rel] - if sym then - extra = "\t->"..sym - elseif band(ctx.op, 0x0e000000) ~= 0x0a000000 then - extra = "\t; 0x"..tohex(ctx.rel) - end - end - if ctx.hexdump > 0 then - ctx.out(format("%08x %s %-5s %s%s\n", - ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) - else - ctx.out(format("%08x %-5s %s%s\n", - ctx.addr+pos, text, concat(operands, ", "), extra)) - end - ctx.pos = pos + 4 -end - --- Fallback for unknown opcodes. -local function unknown(ctx) - return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) -end - --- Format operand 2 of load/store opcodes. -local function fmtload(ctx, op, pos) - local base = map_gpr[band(rshift(op, 16), 15)] - local x, ofs - local ext = (band(op, 0x04000000) == 0) - if not ext and band(op, 0x02000000) == 0 then - ofs = band(op, 4095) - if band(op, 0x00800000) == 0 then ofs = -ofs end - if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end - ofs = "#"..ofs - elseif ext and band(op, 0x00400000) ~= 0 then - ofs = band(op, 15) + band(rshift(op, 4), 0xf0) - if band(op, 0x00800000) == 0 then ofs = -ofs end - if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end - ofs = "#"..ofs - else - ofs = map_gpr[band(op, 15)] - if ext or band(op, 0xfe0) == 0 then - elseif band(op, 0xfe0) == 0x60 then - ofs = format("%s, rrx", ofs) - else - local sh = band(rshift(op, 7), 31) - if sh == 0 then sh = 32 end - ofs = format("%s, %s #%d", ofs, map_shift[band(rshift(op, 5), 3)], sh) - end - if band(op, 0x00800000) == 0 then ofs = "-"..ofs end - end - if ofs == "#0" then - x = format("[%s]", base) - elseif band(op, 0x01000000) == 0 then - x = format("[%s], %s", base, ofs) - else - x = format("[%s, %s]", base, ofs) - end - if band(op, 0x01200000) == 0x01200000 then x = x.."!" end - return x -end - --- Format operand 2 of vector load/store opcodes. -local function fmtvload(ctx, op, pos) - local base = map_gpr[band(rshift(op, 16), 15)] - local ofs = band(op, 255)*4 - if band(op, 0x00800000) == 0 then ofs = -ofs end - if base == "pc" then ctx.rel = ctx.addr + pos + 8 + ofs end - if ofs == 0 then - return format("[%s]", base) - else - return format("[%s, #%d]", base, ofs) - end -end - -local function fmtvr(op, vr, sh0, sh1) - if vr == "s" then - return format("s%d", 2*band(rshift(op, sh0), 15)+band(rshift(op, sh1), 1)) - else - return format("d%d", band(rshift(op, sh0), 15)+band(rshift(op, sh1-4), 16)) - end -end - --- Disassemble a single instruction. -local function disass_ins(ctx) - local pos = ctx.pos - local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) - local op = bor(lshift(b3, 24), lshift(b2, 16), lshift(b1, 8), b0) - local operands = {} - local suffix = "" - local last, name, pat - local vr - ctx.op = op - ctx.rel = nil - - local cond = rshift(op, 28) - local opat - if cond == 15 then - opat = map_uncondins[band(rshift(op, 25), 7)] - else - if cond ~= 14 then suffix = map_cond[cond] end - opat = map_condins[band(rshift(op, 25), 7)] - end - while type(opat) ~= "string" do - if not opat then return unknown(ctx) end - opat = opat[band(rshift(op, opat.shift), opat.mask)] or opat._ - end - name, pat = match(opat, "^([a-z0-9]*)(.*)") - if sub(pat, 1, 1) == "." then - local s2, p2 = match(pat, "^([a-z0-9.]*)(.*)") - suffix = suffix..s2 - pat = p2 - end - - for p in gmatch(pat, ".") do - local x = nil - if p == "D" then - x = map_gpr[band(rshift(op, 12), 15)] - elseif p == "N" then - x = map_gpr[band(rshift(op, 16), 15)] - elseif p == "S" then - x = map_gpr[band(rshift(op, 8), 15)] - elseif p == "M" then - x = map_gpr[band(op, 15)] - elseif p == "d" then - x = fmtvr(op, vr, 12, 22) - elseif p == "n" then - x = fmtvr(op, vr, 16, 7) - elseif p == "m" then - x = fmtvr(op, vr, 0, 5) - elseif p == "P" then - if band(op, 0x02000000) ~= 0 then - x = ror(band(op, 255), 2*band(rshift(op, 8), 15)) - else - x = map_gpr[band(op, 15)] - if band(op, 0xff0) ~= 0 then - operands[#operands+1] = x - local s = map_shift[band(rshift(op, 5), 3)] - local r = nil - if band(op, 0xf90) == 0 then - if s == "ror" then s = "rrx" else r = "#32" end - elseif band(op, 0x10) == 0 then - r = "#"..band(rshift(op, 7), 31) - else - r = map_gpr[band(rshift(op, 8), 15)] - end - if name == "mov" then name = s; x = r - elseif r then x = format("%s %s", s, r) - else x = s end - end - end - elseif p == "L" then - x = fmtload(ctx, op, pos) - elseif p == "l" then - x = fmtvload(ctx, op, pos) - elseif p == "B" then - local addr = ctx.addr + pos + 8 + arshift(lshift(op, 8), 6) - if cond == 15 then addr = addr + band(rshift(op, 23), 2) end - ctx.rel = addr - x = "0x"..tohex(addr) - elseif p == "F" then - vr = "s" - elseif p == "G" then - vr = "d" - elseif p == "." then - suffix = suffix..(vr == "s" and ".f32" or ".f64") - elseif p == "R" then - if band(op, 0x00200000) ~= 0 and #operands == 1 then - operands[1] = operands[1].."!" - end - local t = {} - for i=0,15 do - if band(rshift(op, i), 1) == 1 then t[#t+1] = map_gpr[i] end - end - x = "{"..concat(t, ", ").."}" - elseif p == "r" then - if band(op, 0x00200000) ~= 0 and #operands == 2 then - operands[1] = operands[1].."!" - end - local s = tonumber(sub(last, 2)) - local n = band(op, 255) - if vr == "d" then n = rshift(n, 1) end - operands[#operands] = format("{%s-%s%d}", last, vr, s+n-1) - elseif p == "W" then - x = band(op, 0x0fff) + band(rshift(op, 4), 0xf000) - elseif p == "T" then - x = "#0x"..tohex(band(op, 0x00ffffff), 6) - elseif p == "U" then - x = band(rshift(op, 7), 31) - if x == 0 then x = nil end - elseif p == "u" then - x = band(rshift(op, 7), 31) - if band(op, 0x40) == 0 then - if x == 0 then x = nil else x = "lsl #"..x end - else - if x == 0 then x = "asr #32" else x = "asr #"..x end - end - elseif p == "v" then - x = band(rshift(op, 7), 31) - elseif p == "w" then - x = band(rshift(op, 16), 31) - elseif p == "x" then - x = band(rshift(op, 16), 31) + 1 - elseif p == "X" then - x = band(rshift(op, 16), 31) - last + 1 - elseif p == "Y" then - x = band(rshift(op, 12), 0xf0) + band(op, 0x0f) - elseif p == "K" then - x = "#0x"..tohex(band(rshift(op, 4), 0x0000fff0) + band(op, 15), 4) - elseif p == "s" then - if band(op, 0x00100000) ~= 0 then suffix = "s"..suffix end - else - assert(false) - end - if x then - last = x - if type(x) == "number" then x = "#"..x end - operands[#operands+1] = x - end - end - - return putop(ctx, name..suffix, operands) -end - ------------------------------------------------------------------------------- - --- Disassemble a block of code. -local function disass_block(ctx, ofs, len) - if not ofs then ofs = 0 end - local stop = len and ofs+len or #ctx.code - ctx.pos = ofs - ctx.rel = nil - while ctx.pos < stop do disass_ins(ctx) end -end - --- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create(code, addr, out) - local ctx = {} - ctx.code = code - ctx.addr = addr or 0 - ctx.out = out or io.write - ctx.symtab = {} - ctx.disass = disass_block - ctx.hexdump = 8 - return ctx -end - --- Simple API: disassemble code (a string) at address and output via out. -local function disass(code, addr, out) - create(code, addr, out):disass() -end - --- Return register name for RID. -local function regname(r) - if r < 16 then return map_gpr[r] end - return "d"..(r-16) -end - --- Public module functions. -return { - create = create, - disass = disass, - regname = regname -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua deleted file mode 100644 index 9466f45c2c2..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_mips.lua +++ /dev/null @@ -1,428 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT MIPS disassembler module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT/X license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This is a helper module used by the LuaJIT machine code dumper module. --- --- It disassembles all standard MIPS32R1/R2 instructions. --- Default mode is big-endian, but see: dis_mipsel.lua ------------------------------------------------------------------------------- - -local type = type -local sub, byte, format = string.sub, string.byte, string.format -local match, gmatch, gsub = string.match, string.gmatch, string.gsub -local concat = table.concat -local bit = require("bit") -local band, bor, tohex = bit.band, bit.bor, bit.tohex -local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift - ------------------------------------------------------------------------------- --- Primary and extended opcode maps ------------------------------------------------------------------------------- - -local map_movci = { shift = 16, mask = 1, [0] = "movfDSC", "movtDSC", } -local map_srl = { shift = 21, mask = 1, [0] = "srlDTA", "rotrDTA", } -local map_srlv = { shift = 6, mask = 1, [0] = "srlvDTS", "rotrvDTS", } - -local map_special = { - shift = 0, mask = 63, - [0] = { shift = 0, mask = -1, [0] = "nop", _ = "sllDTA" }, - map_movci, map_srl, "sraDTA", - "sllvDTS", false, map_srlv, "sravDTS", - "jrS", "jalrD1S", "movzDST", "movnDST", - "syscallY", "breakY", false, "sync", - "mfhiD", "mthiS", "mfloD", "mtloS", - false, false, false, false, - "multST", "multuST", "divST", "divuST", - false, false, false, false, - "addDST", "addu|moveDST0", "subDST", "subu|neguDS0T", - "andDST", "orDST", "xorDST", "nor|notDST0", - false, false, "sltDST", "sltuDST", - false, false, false, false, - "tgeSTZ", "tgeuSTZ", "tltSTZ", "tltuSTZ", - "teqSTZ", false, "tneSTZ", -} - -local map_special2 = { - shift = 0, mask = 63, - [0] = "maddST", "madduST", "mulDST", false, - "msubST", "msubuST", - [32] = "clzDS", [33] = "cloDS", - [63] = "sdbbpY", -} - -local map_bshfl = { - shift = 6, mask = 31, - [2] = "wsbhDT", - [16] = "sebDT", - [24] = "sehDT", -} - -local map_special3 = { - shift = 0, mask = 63, - [0] = "extTSAK", [4] = "insTSAL", - [32] = map_bshfl, - [59] = "rdhwrTD", -} - -local map_regimm = { - shift = 16, mask = 31, - [0] = "bltzSB", "bgezSB", "bltzlSB", "bgezlSB", - false, false, false, false, - "tgeiSI", "tgeiuSI", "tltiSI", "tltiuSI", - "teqiSI", false, "tneiSI", false, - "bltzalSB", "bgezalSB", "bltzallSB", "bgezallSB", - false, false, false, false, - false, false, false, false, - false, false, false, "synciSO", -} - -local map_cop0 = { - shift = 25, mask = 1, - [0] = { - shift = 21, mask = 15, - [0] = "mfc0TDW", [4] = "mtc0TDW", - [10] = "rdpgprDT", - [11] = { shift = 5, mask = 1, [0] = "diT0", "eiT0", }, - [14] = "wrpgprDT", - }, { - shift = 0, mask = 63, - [1] = "tlbr", [2] = "tlbwi", [6] = "tlbwr", [8] = "tlbp", - [24] = "eret", [31] = "deret", - [32] = "wait", - }, -} - -local map_cop1s = { - shift = 0, mask = 63, - [0] = "add.sFGH", "sub.sFGH", "mul.sFGH", "div.sFGH", - "sqrt.sFG", "abs.sFG", "mov.sFG", "neg.sFG", - "round.l.sFG", "trunc.l.sFG", "ceil.l.sFG", "floor.l.sFG", - "round.w.sFG", "trunc.w.sFG", "ceil.w.sFG", "floor.w.sFG", - false, - { shift = 16, mask = 1, [0] = "movf.sFGC", "movt.sFGC" }, - "movz.sFGT", "movn.sFGT", - false, "recip.sFG", "rsqrt.sFG", false, - false, false, false, false, - false, false, false, false, - false, "cvt.d.sFG", false, false, - "cvt.w.sFG", "cvt.l.sFG", "cvt.ps.sFGH", false, - false, false, false, false, - false, false, false, false, - "c.f.sVGH", "c.un.sVGH", "c.eq.sVGH", "c.ueq.sVGH", - "c.olt.sVGH", "c.ult.sVGH", "c.ole.sVGH", "c.ule.sVGH", - "c.sf.sVGH", "c.ngle.sVGH", "c.seq.sVGH", "c.ngl.sVGH", - "c.lt.sVGH", "c.nge.sVGH", "c.le.sVGH", "c.ngt.sVGH", -} - -local map_cop1d = { - shift = 0, mask = 63, - [0] = "add.dFGH", "sub.dFGH", "mul.dFGH", "div.dFGH", - "sqrt.dFG", "abs.dFG", "mov.dFG", "neg.dFG", - "round.l.dFG", "trunc.l.dFG", "ceil.l.dFG", "floor.l.dFG", - "round.w.dFG", "trunc.w.dFG", "ceil.w.dFG", "floor.w.dFG", - false, - { shift = 16, mask = 1, [0] = "movf.dFGC", "movt.dFGC" }, - "movz.dFGT", "movn.dFGT", - false, "recip.dFG", "rsqrt.dFG", false, - false, false, false, false, - false, false, false, false, - "cvt.s.dFG", false, false, false, - "cvt.w.dFG", "cvt.l.dFG", false, false, - false, false, false, false, - false, false, false, false, - "c.f.dVGH", "c.un.dVGH", "c.eq.dVGH", "c.ueq.dVGH", - "c.olt.dVGH", "c.ult.dVGH", "c.ole.dVGH", "c.ule.dVGH", - "c.df.dVGH", "c.ngle.dVGH", "c.deq.dVGH", "c.ngl.dVGH", - "c.lt.dVGH", "c.nge.dVGH", "c.le.dVGH", "c.ngt.dVGH", -} - -local map_cop1ps = { - shift = 0, mask = 63, - [0] = "add.psFGH", "sub.psFGH", "mul.psFGH", false, - false, "abs.psFG", "mov.psFG", "neg.psFG", - false, false, false, false, - false, false, false, false, - false, - { shift = 16, mask = 1, [0] = "movf.psFGC", "movt.psFGC" }, - "movz.psFGT", "movn.psFGT", - false, false, false, false, - false, false, false, false, - false, false, false, false, - "cvt.s.puFG", false, false, false, - false, false, false, false, - "cvt.s.plFG", false, false, false, - "pll.psFGH", "plu.psFGH", "pul.psFGH", "puu.psFGH", - "c.f.psVGH", "c.un.psVGH", "c.eq.psVGH", "c.ueq.psVGH", - "c.olt.psVGH", "c.ult.psVGH", "c.ole.psVGH", "c.ule.psVGH", - "c.psf.psVGH", "c.ngle.psVGH", "c.pseq.psVGH", "c.ngl.psVGH", - "c.lt.psVGH", "c.nge.psVGH", "c.le.psVGH", "c.ngt.psVGH", -} - -local map_cop1w = { - shift = 0, mask = 63, - [32] = "cvt.s.wFG", [33] = "cvt.d.wFG", -} - -local map_cop1l = { - shift = 0, mask = 63, - [32] = "cvt.s.lFG", [33] = "cvt.d.lFG", -} - -local map_cop1bc = { - shift = 16, mask = 3, - [0] = "bc1fCB", "bc1tCB", "bc1flCB", "bc1tlCB", -} - -local map_cop1 = { - shift = 21, mask = 31, - [0] = "mfc1TG", false, "cfc1TG", "mfhc1TG", - "mtc1TG", false, "ctc1TG", "mthc1TG", - map_cop1bc, false, false, false, - false, false, false, false, - map_cop1s, map_cop1d, false, false, - map_cop1w, map_cop1l, map_cop1ps, -} - -local map_cop1x = { - shift = 0, mask = 63, - [0] = "lwxc1FSX", "ldxc1FSX", false, false, - false, "luxc1FSX", false, false, - "swxc1FSX", "sdxc1FSX", false, false, - false, "suxc1FSX", false, "prefxMSX", - false, false, false, false, - false, false, false, false, - false, false, false, false, - false, false, "alnv.psFGHS", false, - "madd.sFRGH", "madd.dFRGH", false, false, - false, false, "madd.psFRGH", false, - "msub.sFRGH", "msub.dFRGH", false, false, - false, false, "msub.psFRGH", false, - "nmadd.sFRGH", "nmadd.dFRGH", false, false, - false, false, "nmadd.psFRGH", false, - "nmsub.sFRGH", "nmsub.dFRGH", false, false, - false, false, "nmsub.psFRGH", false, -} - -local map_pri = { - [0] = map_special, map_regimm, "jJ", "jalJ", - "beq|beqz|bST00B", "bne|bnezST0B", "blezSB", "bgtzSB", - "addiTSI", "addiu|liTS0I", "sltiTSI", "sltiuTSI", - "andiTSU", "ori|liTS0U", "xoriTSU", "luiTU", - map_cop0, map_cop1, false, map_cop1x, - "beql|beqzlST0B", "bnel|bnezlST0B", "blezlSB", "bgtzlSB", - false, false, false, false, - map_special2, false, false, map_special3, - "lbTSO", "lhTSO", "lwlTSO", "lwTSO", - "lbuTSO", "lhuTSO", "lwrTSO", false, - "sbTSO", "shTSO", "swlTSO", "swTSO", - false, false, "swrTSO", "cacheNSO", - "llTSO", "lwc1HSO", "lwc2TSO", "prefNSO", - false, "ldc1HSO", "ldc2TSO", false, - "scTSO", "swc1HSO", "swc2TSO", false, - false, "sdc1HSO", "sdc2TSO", false, -} - ------------------------------------------------------------------------------- - -local map_gpr = { - [0] = "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", - "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", - "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", - "r24", "r25", "r26", "r27", "r28", "sp", "r30", "ra", -} - ------------------------------------------------------------------------------- - --- Output a nicely formatted line with an opcode and operands. -local function putop(ctx, text, operands) - local pos = ctx.pos - local extra = "" - if ctx.rel then - local sym = ctx.symtab[ctx.rel] - if sym then extra = "\t->"..sym end - end - if ctx.hexdump > 0 then - ctx.out(format("%08x %s %-7s %s%s\n", - ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) - else - ctx.out(format("%08x %-7s %s%s\n", - ctx.addr+pos, text, concat(operands, ", "), extra)) - end - ctx.pos = pos + 4 -end - --- Fallback for unknown opcodes. -local function unknown(ctx) - return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) -end - -local function get_be(ctx) - local pos = ctx.pos - local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) - return bor(lshift(b0, 24), lshift(b1, 16), lshift(b2, 8), b3) -end - -local function get_le(ctx) - local pos = ctx.pos - local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) - return bor(lshift(b3, 24), lshift(b2, 16), lshift(b1, 8), b0) -end - --- Disassemble a single instruction. -local function disass_ins(ctx) - local op = ctx:get() - local operands = {} - local last = nil - ctx.op = op - ctx.rel = nil - - local opat = map_pri[rshift(op, 26)] - while type(opat) ~= "string" do - if not opat then return unknown(ctx) end - opat = opat[band(rshift(op, opat.shift), opat.mask)] or opat._ - end - local name, pat = match(opat, "^([a-z0-9_.]*)(.*)") - local altname, pat2 = match(pat, "|([a-z0-9_.|]*)(.*)") - if altname then pat = pat2 end - - for p in gmatch(pat, ".") do - local x = nil - if p == "S" then - x = map_gpr[band(rshift(op, 21), 31)] - elseif p == "T" then - x = map_gpr[band(rshift(op, 16), 31)] - elseif p == "D" then - x = map_gpr[band(rshift(op, 11), 31)] - elseif p == "F" then - x = "f"..band(rshift(op, 6), 31) - elseif p == "G" then - x = "f"..band(rshift(op, 11), 31) - elseif p == "H" then - x = "f"..band(rshift(op, 16), 31) - elseif p == "R" then - x = "f"..band(rshift(op, 21), 31) - elseif p == "A" then - x = band(rshift(op, 6), 31) - elseif p == "M" then - x = band(rshift(op, 11), 31) - elseif p == "N" then - x = band(rshift(op, 16), 31) - elseif p == "C" then - x = band(rshift(op, 18), 7) - if x == 0 then x = nil end - elseif p == "K" then - x = band(rshift(op, 11), 31) + 1 - elseif p == "L" then - x = band(rshift(op, 11), 31) - last + 1 - elseif p == "I" then - x = arshift(lshift(op, 16), 16) - elseif p == "U" then - x = band(op, 0xffff) - elseif p == "O" then - local disp = arshift(lshift(op, 16), 16) - operands[#operands] = format("%d(%s)", disp, last) - elseif p == "X" then - local index = map_gpr[band(rshift(op, 16), 31)] - operands[#operands] = format("%s(%s)", index, last) - elseif p == "B" then - x = ctx.addr + ctx.pos + arshift(lshift(op, 16), 16)*4 + 4 - ctx.rel = x - x = "0x"..tohex(x) - elseif p == "J" then - x = band(ctx.addr + ctx.pos, 0xf0000000) + band(op, 0x03ffffff)*4 - ctx.rel = x - x = "0x"..tohex(x) - elseif p == "V" then - x = band(rshift(op, 8), 7) - if x == 0 then x = nil end - elseif p == "W" then - x = band(op, 7) - if x == 0 then x = nil end - elseif p == "Y" then - x = band(rshift(op, 6), 0x000fffff) - if x == 0 then x = nil end - elseif p == "Z" then - x = band(rshift(op, 6), 1023) - if x == 0 then x = nil end - elseif p == "0" then - if last == "r0" or last == 0 then - local n = #operands - operands[n] = nil - last = operands[n-1] - if altname then - local a1, a2 = match(altname, "([^|]*)|(.*)") - if a1 then name, altname = a1, a2 - else name = altname end - end - end - elseif p == "1" then - if last == "ra" then - operands[#operands] = nil - end - else - assert(false) - end - if x then operands[#operands+1] = x; last = x end - end - - return putop(ctx, name, operands) -end - ------------------------------------------------------------------------------- - --- Disassemble a block of code. -local function disass_block(ctx, ofs, len) - if not ofs then ofs = 0 end - local stop = len and ofs+len or #ctx.code - stop = stop - stop % 4 - ctx.pos = ofs - ofs % 4 - ctx.rel = nil - while ctx.pos < stop do disass_ins(ctx) end -end - --- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create(code, addr, out) - local ctx = {} - ctx.code = code - ctx.addr = addr or 0 - ctx.out = out or io.write - ctx.symtab = {} - ctx.disass = disass_block - ctx.hexdump = 8 - ctx.get = get_be - return ctx -end - -local function create_el(code, addr, out) - local ctx = create(code, addr, out) - ctx.get = get_le - return ctx -end - --- Simple API: disassemble code (a string) at address and output via out. -local function disass(code, addr, out) - create(code, addr, out):disass() -end - -local function disass_el(code, addr, out) - create_el(code, addr, out):disass() -end - --- Return register name for RID. -local function regname(r) - if r < 32 then return map_gpr[r] end - return "f"..(r-32) -end - --- Public module functions. -return { - create = create, - create_el = create_el, - disass = disass, - disass_el = disass_el, - regname = regname -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua deleted file mode 100644 index f06ffe855e3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_mipsel.lua +++ /dev/null @@ -1,17 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT MIPSEL disassembler wrapper module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This module just exports the little-endian functions from the --- MIPS disassembler module. All the interesting stuff is there. ------------------------------------------------------------------------------- - -local dis_mips = require((string.match(..., ".*%.") or "").."dis_mips") -return { - create = dis_mips.create_el, - disass = dis_mips.disass_el, - regname = dis_mips.regname -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua deleted file mode 100644 index e077d7acdd9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_ppc.lua +++ /dev/null @@ -1,591 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT PPC disassembler module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT/X license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This is a helper module used by the LuaJIT machine code dumper module. --- --- It disassembles all common, non-privileged 32/64 bit PowerPC instructions --- plus the e500 SPE instructions and some Cell/Xenon extensions. --- --- NYI: VMX, VMX128 ------------------------------------------------------------------------------- - -local type = type -local sub, byte, format = string.sub, string.byte, string.format -local match, gmatch, gsub = string.match, string.gmatch, string.gsub -local concat = table.concat -local bit = require("bit") -local band, bor, tohex = bit.band, bit.bor, bit.tohex -local lshift, rshift, arshift = bit.lshift, bit.rshift, bit.arshift - ------------------------------------------------------------------------------- --- Primary and extended opcode maps ------------------------------------------------------------------------------- - -local map_crops = { - shift = 1, mask = 1023, - [0] = "mcrfXX", - [33] = "crnor|crnotCCC=", [129] = "crandcCCC", - [193] = "crxor|crclrCCC%", [225] = "crnandCCC", - [257] = "crandCCC", [289] = "creqv|crsetCCC%", - [417] = "crorcCCC", [449] = "cror|crmoveCCC=", - [16] = "b_lrKB", [528] = "b_ctrKB", - [150] = "isync", -} - -local map_rlwinm = setmetatable({ - shift = 0, mask = -1, -}, -{ __index = function(t, x) - local rot = band(rshift(x, 11), 31) - local mb = band(rshift(x, 6), 31) - local me = band(rshift(x, 1), 31) - if mb == 0 and me == 31-rot then - return "slwiRR~A." - elseif me == 31 and mb == 32-rot then - return "srwiRR~-A." - else - return "rlwinmRR~AAA." - end - end -}) - -local map_rld = { - shift = 2, mask = 7, - [0] = "rldiclRR~HM.", "rldicrRR~HM.", "rldicRR~HM.", "rldimiRR~HM.", - { - shift = 1, mask = 1, - [0] = "rldclRR~RM.", "rldcrRR~RM.", - }, -} - -local map_ext = setmetatable({ - shift = 1, mask = 1023, - - [0] = "cmp_YLRR", [32] = "cmpl_YLRR", - [4] = "twARR", [68] = "tdARR", - - [8] = "subfcRRR.", [40] = "subfRRR.", - [104] = "negRR.", [136] = "subfeRRR.", - [200] = "subfzeRR.", [232] = "subfmeRR.", - [520] = "subfcoRRR.", [552] = "subfoRRR.", - [616] = "negoRR.", [648] = "subfeoRRR.", - [712] = "subfzeoRR.", [744] = "subfmeoRR.", - - [9] = "mulhduRRR.", [73] = "mulhdRRR.", [233] = "mulldRRR.", - [457] = "divduRRR.", [489] = "divdRRR.", - [745] = "mulldoRRR.", - [969] = "divduoRRR.", [1001] = "divdoRRR.", - - [10] = "addcRRR.", [138] = "addeRRR.", - [202] = "addzeRR.", [234] = "addmeRR.", [266] = "addRRR.", - [522] = "addcoRRR.", [650] = "addeoRRR.", - [714] = "addzeoRR.", [746] = "addmeoRR.", [778] = "addoRRR.", - - [11] = "mulhwuRRR.", [75] = "mulhwRRR.", [235] = "mullwRRR.", - [459] = "divwuRRR.", [491] = "divwRRR.", - [747] = "mullwoRRR.", - [971] = "divwouRRR.", [1003] = "divwoRRR.", - - [15] = "iselltRRR", [47] = "iselgtRRR", [79] = "iseleqRRR", - - [144] = { shift = 20, mask = 1, [0] = "mtcrfRZ~", "mtocrfRZ~", }, - [19] = { shift = 20, mask = 1, [0] = "mfcrR", "mfocrfRZ", }, - [371] = { shift = 11, mask = 1023, [392] = "mftbR", [424] = "mftbuR", }, - [339] = { - shift = 11, mask = 1023, - [32] = "mferR", [256] = "mflrR", [288] = "mfctrR", [16] = "mfspefscrR", - }, - [467] = { - shift = 11, mask = 1023, - [32] = "mtxerR", [256] = "mtlrR", [288] = "mtctrR", [16] = "mtspefscrR", - }, - - [20] = "lwarxRR0R", [84] = "ldarxRR0R", - - [21] = "ldxRR0R", [53] = "lduxRRR", - [149] = "stdxRR0R", [181] = "stduxRRR", - [341] = "lwaxRR0R", [373] = "lwauxRRR", - - [23] = "lwzxRR0R", [55] = "lwzuxRRR", - [87] = "lbzxRR0R", [119] = "lbzuxRRR", - [151] = "stwxRR0R", [183] = "stwuxRRR", - [215] = "stbxRR0R", [247] = "stbuxRRR", - [279] = "lhzxRR0R", [311] = "lhzuxRRR", - [343] = "lhaxRR0R", [375] = "lhauxRRR", - [407] = "sthxRR0R", [439] = "sthuxRRR", - - [54] = "dcbst-R0R", [86] = "dcbf-R0R", - [150] = "stwcxRR0R.", [214] = "stdcxRR0R.", - [246] = "dcbtst-R0R", [278] = "dcbt-R0R", - [310] = "eciwxRR0R", [438] = "ecowxRR0R", - [470] = "dcbi-RR", - - [598] = { - shift = 21, mask = 3, - [0] = "sync", "lwsync", "ptesync", - }, - [758] = "dcba-RR", - [854] = "eieio", [982] = "icbi-R0R", [1014] = "dcbz-R0R", - - [26] = "cntlzwRR~", [58] = "cntlzdRR~", - [122] = "popcntbRR~", - [154] = "prtywRR~", [186] = "prtydRR~", - - [28] = "andRR~R.", [60] = "andcRR~R.", [124] = "nor|notRR~R=.", - [284] = "eqvRR~R.", [316] = "xorRR~R.", - [412] = "orcRR~R.", [444] = "or|mrRR~R=.", [476] = "nandRR~R.", - [508] = "cmpbRR~R", - - [512] = "mcrxrX", - - [532] = "ldbrxRR0R", [660] = "stdbrxRR0R", - - [533] = "lswxRR0R", [597] = "lswiRR0A", - [661] = "stswxRR0R", [725] = "stswiRR0A", - - [534] = "lwbrxRR0R", [662] = "stwbrxRR0R", - [790] = "lhbrxRR0R", [918] = "sthbrxRR0R", - - [535] = "lfsxFR0R", [567] = "lfsuxFRR", - [599] = "lfdxFR0R", [631] = "lfduxFRR", - [663] = "stfsxFR0R", [695] = "stfsuxFRR", - [727] = "stfdxFR0R", [759] = "stfduxFR0R", - [855] = "lfiwaxFR0R", - [983] = "stfiwxFR0R", - - [24] = "slwRR~R.", - - [27] = "sldRR~R.", [536] = "srwRR~R.", - [792] = "srawRR~R.", [824] = "srawiRR~A.", - - [794] = "sradRR~R.", [826] = "sradiRR~H.", [827] = "sradiRR~H.", - [922] = "extshRR~.", [954] = "extsbRR~.", [986] = "extswRR~.", - - [539] = "srdRR~R.", -}, -{ __index = function(t, x) - if band(x, 31) == 15 then return "iselRRRC" end - end -}) - -local map_ld = { - shift = 0, mask = 3, - [0] = "ldRRE", "lduRRE", "lwaRRE", -} - -local map_std = { - shift = 0, mask = 3, - [0] = "stdRRE", "stduRRE", -} - -local map_fps = { - shift = 5, mask = 1, - { - shift = 1, mask = 15, - [0] = false, false, "fdivsFFF.", false, - "fsubsFFF.", "faddsFFF.", "fsqrtsF-F.", false, - "fresF-F.", "fmulsFF-F.", "frsqrtesF-F.", false, - "fmsubsFFFF~.", "fmaddsFFFF~.", "fnmsubsFFFF~.", "fnmaddsFFFF~.", - } -} - -local map_fpd = { - shift = 5, mask = 1, - [0] = { - shift = 1, mask = 1023, - [0] = "fcmpuXFF", [32] = "fcmpoXFF", [64] = "mcrfsXX", - [38] = "mtfsb1A.", [70] = "mtfsb0A.", [134] = "mtfsfiA>>-A>", - [8] = "fcpsgnFFF.", [40] = "fnegF-F.", [72] = "fmrF-F.", - [136] = "fnabsF-F.", [264] = "fabsF-F.", - [12] = "frspF-F.", - [14] = "fctiwF-F.", [15] = "fctiwzF-F.", - [583] = "mffsF.", [711] = "mtfsfZF.", - [392] = "frinF-F.", [424] = "frizF-F.", - [456] = "fripF-F.", [488] = "frimF-F.", - [814] = "fctidF-F.", [815] = "fctidzF-F.", [846] = "fcfidF-F.", - }, - { - shift = 1, mask = 15, - [0] = false, false, "fdivFFF.", false, - "fsubFFF.", "faddFFF.", "fsqrtF-F.", "fselFFFF~.", - "freF-F.", "fmulFF-F.", "frsqrteF-F.", false, - "fmsubFFFF~.", "fmaddFFFF~.", "fnmsubFFFF~.", "fnmaddFFFF~.", - } -} - -local map_spe = { - shift = 0, mask = 2047, - - [512] = "evaddwRRR", [514] = "evaddiwRAR~", - [516] = "evsubwRRR~", [518] = "evsubiwRAR~", - [520] = "evabsRR", [521] = "evnegRR", - [522] = "evextsbRR", [523] = "evextshRR", [524] = "evrndwRR", - [525] = "evcntlzwRR", [526] = "evcntlswRR", - - [527] = "brincRRR", - - [529] = "evandRRR", [530] = "evandcRRR", [534] = "evxorRRR", - [535] = "evor|evmrRRR=", [536] = "evnor|evnotRRR=", - [537] = "eveqvRRR", [539] = "evorcRRR", [542] = "evnandRRR", - - [544] = "evsrwuRRR", [545] = "evsrwsRRR", - [546] = "evsrwiuRRA", [547] = "evsrwisRRA", - [548] = "evslwRRR", [550] = "evslwiRRA", - [552] = "evrlwRRR", [553] = "evsplatiRS", - [554] = "evrlwiRRA", [555] = "evsplatfiRS", - [556] = "evmergehiRRR", [557] = "evmergeloRRR", - [558] = "evmergehiloRRR", [559] = "evmergelohiRRR", - - [560] = "evcmpgtuYRR", [561] = "evcmpgtsYRR", - [562] = "evcmpltuYRR", [563] = "evcmpltsYRR", - [564] = "evcmpeqYRR", - - [632] = "evselRRR", [633] = "evselRRRW", - [634] = "evselRRRW", [635] = "evselRRRW", - [636] = "evselRRRW", [637] = "evselRRRW", - [638] = "evselRRRW", [639] = "evselRRRW", - - [640] = "evfsaddRRR", [641] = "evfssubRRR", - [644] = "evfsabsRR", [645] = "evfsnabsRR", [646] = "evfsnegRR", - [648] = "evfsmulRRR", [649] = "evfsdivRRR", - [652] = "evfscmpgtYRR", [653] = "evfscmpltYRR", [654] = "evfscmpeqYRR", - [656] = "evfscfuiR-R", [657] = "evfscfsiR-R", - [658] = "evfscfufR-R", [659] = "evfscfsfR-R", - [660] = "evfsctuiR-R", [661] = "evfsctsiR-R", - [662] = "evfsctufR-R", [663] = "evfsctsfR-R", - [664] = "evfsctuizR-R", [666] = "evfsctsizR-R", - [668] = "evfststgtYRR", [669] = "evfststltYRR", [670] = "evfststeqYRR", - - [704] = "efsaddRRR", [705] = "efssubRRR", - [708] = "efsabsRR", [709] = "efsnabsRR", [710] = "efsnegRR", - [712] = "efsmulRRR", [713] = "efsdivRRR", - [716] = "efscmpgtYRR", [717] = "efscmpltYRR", [718] = "efscmpeqYRR", - [719] = "efscfdR-R", - [720] = "efscfuiR-R", [721] = "efscfsiR-R", - [722] = "efscfufR-R", [723] = "efscfsfR-R", - [724] = "efsctuiR-R", [725] = "efsctsiR-R", - [726] = "efsctufR-R", [727] = "efsctsfR-R", - [728] = "efsctuizR-R", [730] = "efsctsizR-R", - [732] = "efststgtYRR", [733] = "efststltYRR", [734] = "efststeqYRR", - - [736] = "efdaddRRR", [737] = "efdsubRRR", - [738] = "efdcfuidR-R", [739] = "efdcfsidR-R", - [740] = "efdabsRR", [741] = "efdnabsRR", [742] = "efdnegRR", - [744] = "efdmulRRR", [745] = "efddivRRR", - [746] = "efdctuidzR-R", [747] = "efdctsidzR-R", - [748] = "efdcmpgtYRR", [749] = "efdcmpltYRR", [750] = "efdcmpeqYRR", - [751] = "efdcfsR-R", - [752] = "efdcfuiR-R", [753] = "efdcfsiR-R", - [754] = "efdcfufR-R", [755] = "efdcfsfR-R", - [756] = "efdctuiR-R", [757] = "efdctsiR-R", - [758] = "efdctufR-R", [759] = "efdctsfR-R", - [760] = "efdctuizR-R", [762] = "efdctsizR-R", - [764] = "efdtstgtYRR", [765] = "efdtstltYRR", [766] = "efdtsteqYRR", - - [768] = "evlddxRR0R", [769] = "evlddRR8", - [770] = "evldwxRR0R", [771] = "evldwRR8", - [772] = "evldhxRR0R", [773] = "evldhRR8", - [776] = "evlhhesplatxRR0R", [777] = "evlhhesplatRR2", - [780] = "evlhhousplatxRR0R", [781] = "evlhhousplatRR2", - [782] = "evlhhossplatxRR0R", [783] = "evlhhossplatRR2", - [784] = "evlwhexRR0R", [785] = "evlwheRR4", - [788] = "evlwhouxRR0R", [789] = "evlwhouRR4", - [790] = "evlwhosxRR0R", [791] = "evlwhosRR4", - [792] = "evlwwsplatxRR0R", [793] = "evlwwsplatRR4", - [796] = "evlwhsplatxRR0R", [797] = "evlwhsplatRR4", - - [800] = "evstddxRR0R", [801] = "evstddRR8", - [802] = "evstdwxRR0R", [803] = "evstdwRR8", - [804] = "evstdhxRR0R", [805] = "evstdhRR8", - [816] = "evstwhexRR0R", [817] = "evstwheRR4", - [820] = "evstwhoxRR0R", [821] = "evstwhoRR4", - [824] = "evstwwexRR0R", [825] = "evstwweRR4", - [828] = "evstwwoxRR0R", [829] = "evstwwoRR4", - - [1027] = "evmhessfRRR", [1031] = "evmhossfRRR", [1032] = "evmheumiRRR", - [1033] = "evmhesmiRRR", [1035] = "evmhesmfRRR", [1036] = "evmhoumiRRR", - [1037] = "evmhosmiRRR", [1039] = "evmhosmfRRR", [1059] = "evmhessfaRRR", - [1063] = "evmhossfaRRR", [1064] = "evmheumiaRRR", [1065] = "evmhesmiaRRR", - [1067] = "evmhesmfaRRR", [1068] = "evmhoumiaRRR", [1069] = "evmhosmiaRRR", - [1071] = "evmhosmfaRRR", [1095] = "evmwhssfRRR", [1096] = "evmwlumiRRR", - [1100] = "evmwhumiRRR", [1101] = "evmwhsmiRRR", [1103] = "evmwhsmfRRR", - [1107] = "evmwssfRRR", [1112] = "evmwumiRRR", [1113] = "evmwsmiRRR", - [1115] = "evmwsmfRRR", [1127] = "evmwhssfaRRR", [1128] = "evmwlumiaRRR", - [1132] = "evmwhumiaRRR", [1133] = "evmwhsmiaRRR", [1135] = "evmwhsmfaRRR", - [1139] = "evmwssfaRRR", [1144] = "evmwumiaRRR", [1145] = "evmwsmiaRRR", - [1147] = "evmwsmfaRRR", - - [1216] = "evaddusiaawRR", [1217] = "evaddssiaawRR", - [1218] = "evsubfusiaawRR", [1219] = "evsubfssiaawRR", - [1220] = "evmraRR", - [1222] = "evdivwsRRR", [1223] = "evdivwuRRR", - [1224] = "evaddumiaawRR", [1225] = "evaddsmiaawRR", - [1226] = "evsubfumiaawRR", [1227] = "evsubfsmiaawRR", - - [1280] = "evmheusiaawRRR", [1281] = "evmhessiaawRRR", - [1283] = "evmhessfaawRRR", [1284] = "evmhousiaawRRR", - [1285] = "evmhossiaawRRR", [1287] = "evmhossfaawRRR", - [1288] = "evmheumiaawRRR", [1289] = "evmhesmiaawRRR", - [1291] = "evmhesmfaawRRR", [1292] = "evmhoumiaawRRR", - [1293] = "evmhosmiaawRRR", [1295] = "evmhosmfaawRRR", - [1320] = "evmhegumiaaRRR", [1321] = "evmhegsmiaaRRR", - [1323] = "evmhegsmfaaRRR", [1324] = "evmhogumiaaRRR", - [1325] = "evmhogsmiaaRRR", [1327] = "evmhogsmfaaRRR", - [1344] = "evmwlusiaawRRR", [1345] = "evmwlssiaawRRR", - [1352] = "evmwlumiaawRRR", [1353] = "evmwlsmiaawRRR", - [1363] = "evmwssfaaRRR", [1368] = "evmwumiaaRRR", - [1369] = "evmwsmiaaRRR", [1371] = "evmwsmfaaRRR", - [1408] = "evmheusianwRRR", [1409] = "evmhessianwRRR", - [1411] = "evmhessfanwRRR", [1412] = "evmhousianwRRR", - [1413] = "evmhossianwRRR", [1415] = "evmhossfanwRRR", - [1416] = "evmheumianwRRR", [1417] = "evmhesmianwRRR", - [1419] = "evmhesmfanwRRR", [1420] = "evmhoumianwRRR", - [1421] = "evmhosmianwRRR", [1423] = "evmhosmfanwRRR", - [1448] = "evmhegumianRRR", [1449] = "evmhegsmianRRR", - [1451] = "evmhegsmfanRRR", [1452] = "evmhogumianRRR", - [1453] = "evmhogsmianRRR", [1455] = "evmhogsmfanRRR", - [1472] = "evmwlusianwRRR", [1473] = "evmwlssianwRRR", - [1480] = "evmwlumianwRRR", [1481] = "evmwlsmianwRRR", - [1491] = "evmwssfanRRR", [1496] = "evmwumianRRR", - [1497] = "evmwsmianRRR", [1499] = "evmwsmfanRRR", -} - -local map_pri = { - [0] = false, false, "tdiARI", "twiARI", - map_spe, false, false, "mulliRRI", - "subficRRI", false, "cmpl_iYLRU", "cmp_iYLRI", - "addicRRI", "addic.RRI", "addi|liRR0I", "addis|lisRR0I", - "b_KBJ", "sc", "bKJ", map_crops, - "rlwimiRR~AAA.", map_rlwinm, false, "rlwnmRR~RAA.", - "oriNRR~U", "orisRR~U", "xoriRR~U", "xorisRR~U", - "andi.RR~U", "andis.RR~U", map_rld, map_ext, - "lwzRRD", "lwzuRRD", "lbzRRD", "lbzuRRD", - "stwRRD", "stwuRRD", "stbRRD", "stbuRRD", - "lhzRRD", "lhzuRRD", "lhaRRD", "lhauRRD", - "sthRRD", "sthuRRD", "lmwRRD", "stmwRRD", - "lfsFRD", "lfsuFRD", "lfdFRD", "lfduFRD", - "stfsFRD", "stfsuFRD", "stfdFRD", "stfduFRD", - false, false, map_ld, map_fps, - false, false, map_std, map_fpd, -} - ------------------------------------------------------------------------------- - -local map_gpr = { - [0] = "r0", "sp", "r2", "r3", "r4", "r5", "r6", "r7", - "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", - "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", - "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31", -} - -local map_cond = { [0] = "lt", "gt", "eq", "so", "ge", "le", "ne", "ns", } - --- Format a condition bit. -local function condfmt(cond) - if cond <= 3 then - return map_cond[band(cond, 3)] - else - return format("4*cr%d+%s", rshift(cond, 2), map_cond[band(cond, 3)]) - end -end - ------------------------------------------------------------------------------- - --- Output a nicely formatted line with an opcode and operands. -local function putop(ctx, text, operands) - local pos = ctx.pos - local extra = "" - if ctx.rel then - local sym = ctx.symtab[ctx.rel] - if sym then extra = "\t->"..sym end - end - if ctx.hexdump > 0 then - ctx.out(format("%08x %s %-7s %s%s\n", - ctx.addr+pos, tohex(ctx.op), text, concat(operands, ", "), extra)) - else - ctx.out(format("%08x %-7s %s%s\n", - ctx.addr+pos, text, concat(operands, ", "), extra)) - end - ctx.pos = pos + 4 -end - --- Fallback for unknown opcodes. -local function unknown(ctx) - return putop(ctx, ".long", { "0x"..tohex(ctx.op) }) -end - --- Disassemble a single instruction. -local function disass_ins(ctx) - local pos = ctx.pos - local b0, b1, b2, b3 = byte(ctx.code, pos+1, pos+4) - local op = bor(lshift(b0, 24), lshift(b1, 16), lshift(b2, 8), b3) - local operands = {} - local last = nil - local rs = 21 - ctx.op = op - ctx.rel = nil - - local opat = map_pri[rshift(b0, 2)] - while type(opat) ~= "string" do - if not opat then return unknown(ctx) end - opat = opat[band(rshift(op, opat.shift), opat.mask)] - end - local name, pat = match(opat, "^([a-z0-9_.]*)(.*)") - local altname, pat2 = match(pat, "|([a-z0-9_.]*)(.*)") - if altname then pat = pat2 end - - for p in gmatch(pat, ".") do - local x = nil - if p == "R" then - x = map_gpr[band(rshift(op, rs), 31)] - rs = rs - 5 - elseif p == "F" then - x = "f"..band(rshift(op, rs), 31) - rs = rs - 5 - elseif p == "A" then - x = band(rshift(op, rs), 31) - rs = rs - 5 - elseif p == "S" then - x = arshift(lshift(op, 27-rs), 27) - rs = rs - 5 - elseif p == "I" then - x = arshift(lshift(op, 16), 16) - elseif p == "U" then - x = band(op, 0xffff) - elseif p == "D" or p == "E" then - local disp = arshift(lshift(op, 16), 16) - if p == "E" then disp = band(disp, -4) end - if last == "r0" then last = "0" end - operands[#operands] = format("%d(%s)", disp, last) - elseif p >= "2" and p <= "8" then - local disp = band(rshift(op, rs), 31) * p - if last == "r0" then last = "0" end - operands[#operands] = format("%d(%s)", disp, last) - elseif p == "H" then - x = band(rshift(op, rs), 31) + lshift(band(op, 2), 4) - rs = rs - 5 - elseif p == "M" then - x = band(rshift(op, rs), 31) + band(op, 0x20) - elseif p == "C" then - x = condfmt(band(rshift(op, rs), 31)) - rs = rs - 5 - elseif p == "B" then - local bo = rshift(op, 21) - local cond = band(rshift(op, 16), 31) - local cn = "" - rs = rs - 10 - if band(bo, 4) == 0 then - cn = band(bo, 2) == 0 and "dnz" or "dz" - if band(bo, 0x10) == 0 then - cn = cn..(band(bo, 8) == 0 and "f" or "t") - end - if band(bo, 0x10) == 0 then x = condfmt(cond) end - name = name..(band(bo, 1) == band(rshift(op, 15), 1) and "-" or "+") - elseif band(bo, 0x10) == 0 then - cn = map_cond[band(cond, 3) + (band(bo, 8) == 0 and 4 or 0)] - if cond > 3 then x = "cr"..rshift(cond, 2) end - name = name..(band(bo, 1) == band(rshift(op, 15), 1) and "-" or "+") - end - name = gsub(name, "_", cn) - elseif p == "J" then - x = arshift(lshift(op, 27-rs), 29-rs)*4 - if band(op, 2) == 0 then x = ctx.addr + pos + x end - ctx.rel = x - x = "0x"..tohex(x) - elseif p == "K" then - if band(op, 1) ~= 0 then name = name.."l" end - if band(op, 2) ~= 0 then name = name.."a" end - elseif p == "X" or p == "Y" then - x = band(rshift(op, rs+2), 7) - if x == 0 and p == "Y" then x = nil else x = "cr"..x end - rs = rs - 5 - elseif p == "W" then - x = "cr"..band(op, 7) - elseif p == "Z" then - x = band(rshift(op, rs-4), 255) - rs = rs - 10 - elseif p == ">" then - operands[#operands] = rshift(operands[#operands], 1) - elseif p == "0" then - if last == "r0" then - operands[#operands] = nil - if altname then name = altname end - end - elseif p == "L" then - name = gsub(name, "_", band(op, 0x00200000) ~= 0 and "d" or "w") - elseif p == "." then - if band(op, 1) == 1 then name = name.."." end - elseif p == "N" then - if op == 0x60000000 then name = "nop"; break end - elseif p == "~" then - local n = #operands - operands[n-1], operands[n] = operands[n], operands[n-1] - elseif p == "=" then - local n = #operands - if last == operands[n-1] then - operands[n] = nil - name = altname - end - elseif p == "%" then - local n = #operands - if last == operands[n-1] and last == operands[n-2] then - operands[n] = nil - operands[n-1] = nil - name = altname - end - elseif p == "-" then - rs = rs - 5 - else - assert(false) - end - if x then operands[#operands+1] = x; last = x end - end - - return putop(ctx, name, operands) -end - ------------------------------------------------------------------------------- - --- Disassemble a block of code. -local function disass_block(ctx, ofs, len) - if not ofs then ofs = 0 end - local stop = len and ofs+len or #ctx.code - stop = stop - stop % 4 - ctx.pos = ofs - ofs % 4 - ctx.rel = nil - while ctx.pos < stop do disass_ins(ctx) end -end - --- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create(code, addr, out) - local ctx = {} - ctx.code = code - ctx.addr = addr or 0 - ctx.out = out or io.write - ctx.symtab = {} - ctx.disass = disass_block - ctx.hexdump = 8 - return ctx -end - --- Simple API: disassemble code (a string) at address and output via out. -local function disass(code, addr, out) - create(code, addr, out):disass() -end - --- Return register name for RID. -local function regname(r) - if r < 32 then return map_gpr[r] end - return "f"..(r-32) -end - --- Public module functions. -return { - create = create, - disass = disass, - regname = regname -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua deleted file mode 100644 index 15d55243a85..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_x64.lua +++ /dev/null @@ -1,17 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT x64 disassembler wrapper module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This module just exports the 64 bit functions from the combined --- x86/x64 disassembler module. All the interesting stuff is there. ------------------------------------------------------------------------------- - -local dis_x86 = require((string.match(..., ".*%.") or "").."dis_x86") -return { - create = dis_x86.create64, - disass = dis_x86.disass64, - regname = dis_x86.regname64 -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua deleted file mode 100644 index 6bc38066fe3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dis_x86.lua +++ /dev/null @@ -1,838 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT x86/x64 disassembler module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- This is a helper module used by the LuaJIT machine code dumper module. --- --- Sending small code snippets to an external disassembler and mixing the --- output with our own stuff was too fragile. So I had to bite the bullet --- and write yet another x86 disassembler. Oh well ... --- --- The output format is very similar to what ndisasm generates. But it has --- been developed independently by looking at the opcode tables from the --- Intel and AMD manuals. The supported instruction set is quite extensive --- and reflects what a current generation Intel or AMD CPU implements in --- 32 bit and 64 bit mode. Yes, this includes MMX, SSE, SSE2, SSE3, SSSE3, --- SSE4.1, SSE4.2, SSE4a and even privileged and hypervisor (VMX/SVM) --- instructions. --- --- Notes: --- * The (useless) a16 prefix, 3DNow and pre-586 opcodes are unsupported. --- * No attempt at optimization has been made -- it's fast enough for my needs. --- * The public API may change when more architectures are added. ------------------------------------------------------------------------------- - -local type = type -local sub, byte, format = string.sub, string.byte, string.format -local match, gmatch, gsub = string.match, string.gmatch, string.gsub -local lower, rep = string.lower, string.rep -local bit = require("bit") -local tohex = bit.tohex - --- Map for 1st opcode byte in 32 bit mode. Ugly? Well ... read on. -local map_opc1_32 = { ---0x -[0]="addBmr","addVmr","addBrm","addVrm","addBai","addVai","push es","pop es", -"orBmr","orVmr","orBrm","orVrm","orBai","orVai","push cs","opc2*", ---1x -"adcBmr","adcVmr","adcBrm","adcVrm","adcBai","adcVai","push ss","pop ss", -"sbbBmr","sbbVmr","sbbBrm","sbbVrm","sbbBai","sbbVai","push ds","pop ds", ---2x -"andBmr","andVmr","andBrm","andVrm","andBai","andVai","es:seg","daa", -"subBmr","subVmr","subBrm","subVrm","subBai","subVai","cs:seg","das", ---3x -"xorBmr","xorVmr","xorBrm","xorVrm","xorBai","xorVai","ss:seg","aaa", -"cmpBmr","cmpVmr","cmpBrm","cmpVrm","cmpBai","cmpVai","ds:seg","aas", ---4x -"incVR","incVR","incVR","incVR","incVR","incVR","incVR","incVR", -"decVR","decVR","decVR","decVR","decVR","decVR","decVR","decVR", ---5x -"pushUR","pushUR","pushUR","pushUR","pushUR","pushUR","pushUR","pushUR", -"popUR","popUR","popUR","popUR","popUR","popUR","popUR","popUR", ---6x -"sz*pushaw,pusha","sz*popaw,popa","boundVrm","arplWmr", -"fs:seg","gs:seg","o16:","a16", -"pushUi","imulVrmi","pushBs","imulVrms", -"insb","insVS","outsb","outsVS", ---7x -"joBj","jnoBj","jbBj","jnbBj","jzBj","jnzBj","jbeBj","jaBj", -"jsBj","jnsBj","jpeBj","jpoBj","jlBj","jgeBj","jleBj","jgBj", ---8x -"arith!Bmi","arith!Vmi","arith!Bmi","arith!Vms", -"testBmr","testVmr","xchgBrm","xchgVrm", -"movBmr","movVmr","movBrm","movVrm", -"movVmg","leaVrm","movWgm","popUm", ---9x -"nop*xchgVaR|pause|xchgWaR|repne nop","xchgVaR","xchgVaR","xchgVaR", -"xchgVaR","xchgVaR","xchgVaR","xchgVaR", -"sz*cbw,cwde,cdqe","sz*cwd,cdq,cqo","call farViw","wait", -"sz*pushfw,pushf","sz*popfw,popf","sahf","lahf", ---Ax -"movBao","movVao","movBoa","movVoa", -"movsb","movsVS","cmpsb","cmpsVS", -"testBai","testVai","stosb","stosVS", -"lodsb","lodsVS","scasb","scasVS", ---Bx -"movBRi","movBRi","movBRi","movBRi","movBRi","movBRi","movBRi","movBRi", -"movVRI","movVRI","movVRI","movVRI","movVRI","movVRI","movVRI","movVRI", ---Cx -"shift!Bmu","shift!Vmu","retBw","ret","$lesVrm","$ldsVrm","movBmi","movVmi", -"enterBwu","leave","retfBw","retf","int3","intBu","into","iretVS", ---Dx -"shift!Bm1","shift!Vm1","shift!Bmc","shift!Vmc","aamBu","aadBu","salc","xlatb", -"fp*0","fp*1","fp*2","fp*3","fp*4","fp*5","fp*6","fp*7", ---Ex -"loopneBj","loopeBj","loopBj","sz*jcxzBj,jecxzBj,jrcxzBj", -"inBau","inVau","outBua","outVua", -"callVj","jmpVj","jmp farViw","jmpBj","inBad","inVad","outBda","outVda", ---Fx -"lock:","int1","repne:rep","rep:","hlt","cmc","testb!Bm","testv!Vm", -"clc","stc","cli","sti","cld","std","incb!Bm","incd!Vm", -} -assert(#map_opc1_32 == 255) - --- Map for 1st opcode byte in 64 bit mode (overrides only). -local map_opc1_64 = setmetatable({ - [0x06]=false, [0x07]=false, [0x0e]=false, - [0x16]=false, [0x17]=false, [0x1e]=false, [0x1f]=false, - [0x27]=false, [0x2f]=false, [0x37]=false, [0x3f]=false, - [0x60]=false, [0x61]=false, [0x62]=false, [0x63]="movsxdVrDmt", [0x67]="a32:", - [0x40]="rex*", [0x41]="rex*b", [0x42]="rex*x", [0x43]="rex*xb", - [0x44]="rex*r", [0x45]="rex*rb", [0x46]="rex*rx", [0x47]="rex*rxb", - [0x48]="rex*w", [0x49]="rex*wb", [0x4a]="rex*wx", [0x4b]="rex*wxb", - [0x4c]="rex*wr", [0x4d]="rex*wrb", [0x4e]="rex*wrx", [0x4f]="rex*wrxb", - [0x82]=false, [0x9a]=false, [0xc4]=false, [0xc5]=false, [0xce]=false, - [0xd4]=false, [0xd5]=false, [0xd6]=false, [0xea]=false, -}, { __index = map_opc1_32 }) - --- Map for 2nd opcode byte (0F xx). True CISC hell. Hey, I told you. --- Prefix dependent MMX/SSE opcodes: (none)|rep|o16|repne, -|F3|66|F2 -local map_opc2 = { ---0x -[0]="sldt!Dmp","sgdt!Ump","larVrm","lslVrm",nil,"syscall","clts","sysret", -"invd","wbinvd",nil,"ud1",nil,"$prefetch!Bm","femms","3dnowMrmu", ---1x -"movupsXrm|movssXrm|movupdXrm|movsdXrm", -"movupsXmr|movssXmr|movupdXmr|movsdXmr", -"movhlpsXrm$movlpsXrm|movsldupXrm|movlpdXrm|movddupXrm", -"movlpsXmr||movlpdXmr", -"unpcklpsXrm||unpcklpdXrm", -"unpckhpsXrm||unpckhpdXrm", -"movlhpsXrm$movhpsXrm|movshdupXrm|movhpdXrm", -"movhpsXmr||movhpdXmr", -"$prefetcht!Bm","hintnopVm","hintnopVm","hintnopVm", -"hintnopVm","hintnopVm","hintnopVm","hintnopVm", ---2x -"movUmx$","movUmy$","movUxm$","movUym$","movUmz$",nil,"movUzm$",nil, -"movapsXrm||movapdXrm", -"movapsXmr||movapdXmr", -"cvtpi2psXrMm|cvtsi2ssXrVmt|cvtpi2pdXrMm|cvtsi2sdXrVmt", -"movntpsXmr|movntssXmr|movntpdXmr|movntsdXmr", -"cvttps2piMrXm|cvttss2siVrXm|cvttpd2piMrXm|cvttsd2siVrXm", -"cvtps2piMrXm|cvtss2siVrXm|cvtpd2piMrXm|cvtsd2siVrXm", -"ucomissXrm||ucomisdXrm", -"comissXrm||comisdXrm", ---3x -"wrmsr","rdtsc","rdmsr","rdpmc","sysenter","sysexit",nil,"getsec", -"opc3*38",nil,"opc3*3a",nil,nil,nil,nil,nil, ---4x -"cmovoVrm","cmovnoVrm","cmovbVrm","cmovnbVrm", -"cmovzVrm","cmovnzVrm","cmovbeVrm","cmovaVrm", -"cmovsVrm","cmovnsVrm","cmovpeVrm","cmovpoVrm", -"cmovlVrm","cmovgeVrm","cmovleVrm","cmovgVrm", ---5x -"movmskpsVrXm$||movmskpdVrXm$","sqrtpsXrm|sqrtssXrm|sqrtpdXrm|sqrtsdXrm", -"rsqrtpsXrm|rsqrtssXrm","rcppsXrm|rcpssXrm", -"andpsXrm||andpdXrm","andnpsXrm||andnpdXrm", -"orpsXrm||orpdXrm","xorpsXrm||xorpdXrm", -"addpsXrm|addssXrm|addpdXrm|addsdXrm","mulpsXrm|mulssXrm|mulpdXrm|mulsdXrm", -"cvtps2pdXrm|cvtss2sdXrm|cvtpd2psXrm|cvtsd2ssXrm", -"cvtdq2psXrm|cvttps2dqXrm|cvtps2dqXrm", -"subpsXrm|subssXrm|subpdXrm|subsdXrm","minpsXrm|minssXrm|minpdXrm|minsdXrm", -"divpsXrm|divssXrm|divpdXrm|divsdXrm","maxpsXrm|maxssXrm|maxpdXrm|maxsdXrm", ---6x -"punpcklbwPrm","punpcklwdPrm","punpckldqPrm","packsswbPrm", -"pcmpgtbPrm","pcmpgtwPrm","pcmpgtdPrm","packuswbPrm", -"punpckhbwPrm","punpckhwdPrm","punpckhdqPrm","packssdwPrm", -"||punpcklqdqXrm","||punpckhqdqXrm", -"movPrVSm","movqMrm|movdquXrm|movdqaXrm", ---7x -"pshufwMrmu|pshufhwXrmu|pshufdXrmu|pshuflwXrmu","pshiftw!Pmu", -"pshiftd!Pmu","pshiftq!Mmu||pshiftdq!Xmu", -"pcmpeqbPrm","pcmpeqwPrm","pcmpeqdPrm","emms|", -"vmreadUmr||extrqXmuu$|insertqXrmuu$","vmwriteUrm||extrqXrm$|insertqXrm$", -nil,nil, -"||haddpdXrm|haddpsXrm","||hsubpdXrm|hsubpsXrm", -"movVSmMr|movqXrm|movVSmXr","movqMmr|movdquXmr|movdqaXmr", ---8x -"joVj","jnoVj","jbVj","jnbVj","jzVj","jnzVj","jbeVj","jaVj", -"jsVj","jnsVj","jpeVj","jpoVj","jlVj","jgeVj","jleVj","jgVj", ---9x -"setoBm","setnoBm","setbBm","setnbBm","setzBm","setnzBm","setbeBm","setaBm", -"setsBm","setnsBm","setpeBm","setpoBm","setlBm","setgeBm","setleBm","setgBm", ---Ax -"push fs","pop fs","cpuid","btVmr","shldVmru","shldVmrc",nil,nil, -"push gs","pop gs","rsm","btsVmr","shrdVmru","shrdVmrc","fxsave!Dmp","imulVrm", ---Bx -"cmpxchgBmr","cmpxchgVmr","$lssVrm","btrVmr", -"$lfsVrm","$lgsVrm","movzxVrBmt","movzxVrWmt", -"|popcntVrm","ud2Dp","bt!Vmu","btcVmr", -"bsfVrm","bsrVrm|lzcntVrm|bsrWrm","movsxVrBmt","movsxVrWmt", ---Cx -"xaddBmr","xaddVmr", -"cmppsXrmu|cmpssXrmu|cmppdXrmu|cmpsdXrmu","$movntiVmr|", -"pinsrwPrWmu","pextrwDrPmu", -"shufpsXrmu||shufpdXrmu","$cmpxchg!Qmp", -"bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR","bswapVR", ---Dx -"||addsubpdXrm|addsubpsXrm","psrlwPrm","psrldPrm","psrlqPrm", -"paddqPrm","pmullwPrm", -"|movq2dqXrMm|movqXmr|movdq2qMrXm$","pmovmskbVrMm||pmovmskbVrXm", -"psubusbPrm","psubuswPrm","pminubPrm","pandPrm", -"paddusbPrm","padduswPrm","pmaxubPrm","pandnPrm", ---Ex -"pavgbPrm","psrawPrm","psradPrm","pavgwPrm", -"pmulhuwPrm","pmulhwPrm", -"|cvtdq2pdXrm|cvttpd2dqXrm|cvtpd2dqXrm","$movntqMmr||$movntdqXmr", -"psubsbPrm","psubswPrm","pminswPrm","porPrm", -"paddsbPrm","paddswPrm","pmaxswPrm","pxorPrm", ---Fx -"|||lddquXrm","psllwPrm","pslldPrm","psllqPrm", -"pmuludqPrm","pmaddwdPrm","psadbwPrm","maskmovqMrm||maskmovdquXrm$", -"psubbPrm","psubwPrm","psubdPrm","psubqPrm", -"paddbPrm","paddwPrm","padddPrm","ud", -} -assert(map_opc2[255] == "ud") - --- Map for three-byte opcodes. Can't wait for their next invention. -local map_opc3 = { -["38"] = { -- [66] 0f 38 xx ---0x -[0]="pshufbPrm","phaddwPrm","phadddPrm","phaddswPrm", -"pmaddubswPrm","phsubwPrm","phsubdPrm","phsubswPrm", -"psignbPrm","psignwPrm","psigndPrm","pmulhrswPrm", -nil,nil,nil,nil, ---1x -"||pblendvbXrma",nil,nil,nil, -"||blendvpsXrma","||blendvpdXrma",nil,"||ptestXrm", -nil,nil,nil,nil, -"pabsbPrm","pabswPrm","pabsdPrm",nil, ---2x -"||pmovsxbwXrm","||pmovsxbdXrm","||pmovsxbqXrm","||pmovsxwdXrm", -"||pmovsxwqXrm","||pmovsxdqXrm",nil,nil, -"||pmuldqXrm","||pcmpeqqXrm","||$movntdqaXrm","||packusdwXrm", -nil,nil,nil,nil, ---3x -"||pmovzxbwXrm","||pmovzxbdXrm","||pmovzxbqXrm","||pmovzxwdXrm", -"||pmovzxwqXrm","||pmovzxdqXrm",nil,"||pcmpgtqXrm", -"||pminsbXrm","||pminsdXrm","||pminuwXrm","||pminudXrm", -"||pmaxsbXrm","||pmaxsdXrm","||pmaxuwXrm","||pmaxudXrm", ---4x -"||pmulddXrm","||phminposuwXrm", ---Fx -[0xf0] = "|||crc32TrBmt",[0xf1] = "|||crc32TrVmt", -}, - -["3a"] = { -- [66] 0f 3a xx ---0x -[0x00]=nil,nil,nil,nil,nil,nil,nil,nil, -"||roundpsXrmu","||roundpdXrmu","||roundssXrmu","||roundsdXrmu", -"||blendpsXrmu","||blendpdXrmu","||pblendwXrmu","palignrPrmu", ---1x -nil,nil,nil,nil, -"||pextrbVmXru","||pextrwVmXru","||pextrVmSXru","||extractpsVmXru", -nil,nil,nil,nil,nil,nil,nil,nil, ---2x -"||pinsrbXrVmu","||insertpsXrmu","||pinsrXrVmuS",nil, ---4x -[0x40] = "||dppsXrmu", -[0x41] = "||dppdXrmu", -[0x42] = "||mpsadbwXrmu", ---6x -[0x60] = "||pcmpestrmXrmu",[0x61] = "||pcmpestriXrmu", -[0x62] = "||pcmpistrmXrmu",[0x63] = "||pcmpistriXrmu", -}, -} - --- Map for VMX/SVM opcodes 0F 01 C0-FF (sgdt group with register operands). -local map_opcvm = { -[0xc1]="vmcall",[0xc2]="vmlaunch",[0xc3]="vmresume",[0xc4]="vmxoff", -[0xc8]="monitor",[0xc9]="mwait", -[0xd8]="vmrun",[0xd9]="vmmcall",[0xda]="vmload",[0xdb]="vmsave", -[0xdc]="stgi",[0xdd]="clgi",[0xde]="skinit",[0xdf]="invlpga", -[0xf8]="swapgs",[0xf9]="rdtscp", -} - --- Map for FP opcodes. And you thought stack machines are simple? -local map_opcfp = { --- D8-DF 00-BF: opcodes with a memory operand. --- D8 -[0]="faddFm","fmulFm","fcomFm","fcompFm","fsubFm","fsubrFm","fdivFm","fdivrFm", -"fldFm",nil,"fstFm","fstpFm","fldenvVm","fldcwWm","fnstenvVm","fnstcwWm", --- DA -"fiaddDm","fimulDm","ficomDm","ficompDm", -"fisubDm","fisubrDm","fidivDm","fidivrDm", --- DB -"fildDm","fisttpDm","fistDm","fistpDm",nil,"fld twordFmp",nil,"fstp twordFmp", --- DC -"faddGm","fmulGm","fcomGm","fcompGm","fsubGm","fsubrGm","fdivGm","fdivrGm", --- DD -"fldGm","fisttpQm","fstGm","fstpGm","frstorDmp",nil,"fnsaveDmp","fnstswWm", --- DE -"fiaddWm","fimulWm","ficomWm","ficompWm", -"fisubWm","fisubrWm","fidivWm","fidivrWm", --- DF -"fildWm","fisttpWm","fistWm","fistpWm", -"fbld twordFmp","fildQm","fbstp twordFmp","fistpQm", --- xx C0-FF: opcodes with a pseudo-register operand. --- D8 -"faddFf","fmulFf","fcomFf","fcompFf","fsubFf","fsubrFf","fdivFf","fdivrFf", --- D9 -"fldFf","fxchFf",{"fnop"},nil, -{"fchs","fabs",nil,nil,"ftst","fxam"}, -{"fld1","fldl2t","fldl2e","fldpi","fldlg2","fldln2","fldz"}, -{"f2xm1","fyl2x","fptan","fpatan","fxtract","fprem1","fdecstp","fincstp"}, -{"fprem","fyl2xp1","fsqrt","fsincos","frndint","fscale","fsin","fcos"}, --- DA -"fcmovbFf","fcmoveFf","fcmovbeFf","fcmovuFf",nil,{nil,"fucompp"},nil,nil, --- DB -"fcmovnbFf","fcmovneFf","fcmovnbeFf","fcmovnuFf", -{nil,nil,"fnclex","fninit"},"fucomiFf","fcomiFf",nil, --- DC -"fadd toFf","fmul toFf",nil,nil, -"fsub toFf","fsubr toFf","fdivr toFf","fdiv toFf", --- DD -"ffreeFf",nil,"fstFf","fstpFf","fucomFf","fucompFf",nil,nil, --- DE -"faddpFf","fmulpFf",nil,{nil,"fcompp"}, -"fsubrpFf","fsubpFf","fdivrpFf","fdivpFf", --- DF -nil,nil,nil,nil,{"fnstsw ax"},"fucomipFf","fcomipFf",nil, -} -assert(map_opcfp[126] == "fcomipFf") - --- Map for opcode groups. The subkey is sp from the ModRM byte. -local map_opcgroup = { - arith = { "add", "or", "adc", "sbb", "and", "sub", "xor", "cmp" }, - shift = { "rol", "ror", "rcl", "rcr", "shl", "shr", "sal", "sar" }, - testb = { "testBmi", "testBmi", "not", "neg", "mul", "imul", "div", "idiv" }, - testv = { "testVmi", "testVmi", "not", "neg", "mul", "imul", "div", "idiv" }, - incb = { "inc", "dec" }, - incd = { "inc", "dec", "callUmp", "$call farDmp", - "jmpUmp", "$jmp farDmp", "pushUm" }, - sldt = { "sldt", "str", "lldt", "ltr", "verr", "verw" }, - sgdt = { "vm*$sgdt", "vm*$sidt", "$lgdt", "vm*$lidt", - "smsw", nil, "lmsw", "vm*$invlpg" }, - bt = { nil, nil, nil, nil, "bt", "bts", "btr", "btc" }, - cmpxchg = { nil, "sz*,cmpxchg8bQmp,cmpxchg16bXmp", nil, nil, - nil, nil, "vmptrld|vmxon|vmclear", "vmptrst" }, - pshiftw = { nil, nil, "psrlw", nil, "psraw", nil, "psllw" }, - pshiftd = { nil, nil, "psrld", nil, "psrad", nil, "pslld" }, - pshiftq = { nil, nil, "psrlq", nil, nil, nil, "psllq" }, - pshiftdq = { nil, nil, "psrlq", "psrldq", nil, nil, "psllq", "pslldq" }, - fxsave = { "$fxsave", "$fxrstor", "$ldmxcsr", "$stmxcsr", - nil, "lfenceDp$", "mfenceDp$", "sfenceDp$clflush" }, - prefetch = { "prefetch", "prefetchw" }, - prefetcht = { "prefetchnta", "prefetcht0", "prefetcht1", "prefetcht2" }, -} - ------------------------------------------------------------------------------- - --- Maps for register names. -local map_regs = { - B = { "al", "cl", "dl", "bl", "ah", "ch", "dh", "bh", - "r8b", "r9b", "r10b", "r11b", "r12b", "r13b", "r14b", "r15b" }, - B64 = { "al", "cl", "dl", "bl", "spl", "bpl", "sil", "dil", - "r8b", "r9b", "r10b", "r11b", "r12b", "r13b", "r14b", "r15b" }, - W = { "ax", "cx", "dx", "bx", "sp", "bp", "si", "di", - "r8w", "r9w", "r10w", "r11w", "r12w", "r13w", "r14w", "r15w" }, - D = { "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi", - "r8d", "r9d", "r10d", "r11d", "r12d", "r13d", "r14d", "r15d" }, - Q = { "rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi", - "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15" }, - M = { "mm0", "mm1", "mm2", "mm3", "mm4", "mm5", "mm6", "mm7", - "mm0", "mm1", "mm2", "mm3", "mm4", "mm5", "mm6", "mm7" }, -- No x64 ext! - X = { "xmm0", "xmm1", "xmm2", "xmm3", "xmm4", "xmm5", "xmm6", "xmm7", - "xmm8", "xmm9", "xmm10", "xmm11", "xmm12", "xmm13", "xmm14", "xmm15" }, -} -local map_segregs = { "es", "cs", "ss", "ds", "fs", "gs", "segr6", "segr7" } - --- Maps for size names. -local map_sz2n = { - B = 1, W = 2, D = 4, Q = 8, M = 8, X = 16, -} -local map_sz2prefix = { - B = "byte", W = "word", D = "dword", - Q = "qword", - M = "qword", X = "xword", - F = "dword", G = "qword", -- No need for sizes/register names for these two. -} - ------------------------------------------------------------------------------- - --- Output a nicely formatted line with an opcode and operands. -local function putop(ctx, text, operands) - local code, pos, hex = ctx.code, ctx.pos, "" - local hmax = ctx.hexdump - if hmax > 0 then - for i=ctx.start,pos-1 do - hex = hex..format("%02X", byte(code, i, i)) - end - if #hex > hmax then hex = sub(hex, 1, hmax)..". " - else hex = hex..rep(" ", hmax-#hex+2) end - end - if operands then text = text.." "..operands end - if ctx.o16 then text = "o16 "..text; ctx.o16 = false end - if ctx.a32 then text = "a32 "..text; ctx.a32 = false end - if ctx.rep then text = ctx.rep.." "..text; ctx.rep = false end - if ctx.rex then - local t = (ctx.rexw and "w" or "")..(ctx.rexr and "r" or "").. - (ctx.rexx and "x" or "")..(ctx.rexb and "b" or "") - if t ~= "" then text = "rex."..t.." "..text end - ctx.rexw = false; ctx.rexr = false; ctx.rexx = false; ctx.rexb = false - ctx.rex = false - end - if ctx.seg then - local text2, n = gsub(text, "%[", "["..ctx.seg..":") - if n == 0 then text = ctx.seg.." "..text else text = text2 end - ctx.seg = false - end - if ctx.lock then text = "lock "..text; ctx.lock = false end - local imm = ctx.imm - if imm then - local sym = ctx.symtab[imm] - if sym then text = text.."\t->"..sym end - end - ctx.out(format("%08x %s%s\n", ctx.addr+ctx.start, hex, text)) - ctx.mrm = false - ctx.start = pos - ctx.imm = nil -end - --- Clear all prefix flags. -local function clearprefixes(ctx) - ctx.o16 = false; ctx.seg = false; ctx.lock = false; ctx.rep = false - ctx.rexw = false; ctx.rexr = false; ctx.rexx = false; ctx.rexb = false - ctx.rex = false; ctx.a32 = false -end - --- Fallback for incomplete opcodes at the end. -local function incomplete(ctx) - ctx.pos = ctx.stop+1 - clearprefixes(ctx) - return putop(ctx, "(incomplete)") -end - --- Fallback for unknown opcodes. -local function unknown(ctx) - clearprefixes(ctx) - return putop(ctx, "(unknown)") -end - --- Return an immediate of the specified size. -local function getimm(ctx, pos, n) - if pos+n-1 > ctx.stop then return incomplete(ctx) end - local code = ctx.code - if n == 1 then - local b1 = byte(code, pos, pos) - return b1 - elseif n == 2 then - local b1, b2 = byte(code, pos, pos+1) - return b1+b2*256 - else - local b1, b2, b3, b4 = byte(code, pos, pos+3) - local imm = b1+b2*256+b3*65536+b4*16777216 - ctx.imm = imm - return imm - end -end - --- Process pattern string and generate the operands. -local function putpat(ctx, name, pat) - local operands, regs, sz, mode, sp, rm, sc, rx, sdisp - local code, pos, stop = ctx.code, ctx.pos, ctx.stop - - -- Chars used: 1DFGIMPQRSTUVWXacdfgijmoprstuwxyz - for p in gmatch(pat, ".") do - local x = nil - if p == "V" or p == "U" then - if ctx.rexw then sz = "Q"; ctx.rexw = false - elseif ctx.o16 then sz = "W"; ctx.o16 = false - elseif p == "U" and ctx.x64 then sz = "Q" - else sz = "D" end - regs = map_regs[sz] - elseif p == "T" then - if ctx.rexw then sz = "Q"; ctx.rexw = false else sz = "D" end - regs = map_regs[sz] - elseif p == "B" then - sz = "B" - regs = ctx.rex and map_regs.B64 or map_regs.B - elseif match(p, "[WDQMXFG]") then - sz = p - regs = map_regs[sz] - elseif p == "P" then - sz = ctx.o16 and "X" or "M"; ctx.o16 = false - regs = map_regs[sz] - elseif p == "S" then - name = name..lower(sz) - elseif p == "s" then - local imm = getimm(ctx, pos, 1); if not imm then return end - x = imm <= 127 and format("+0x%02x", imm) - or format("-0x%02x", 256-imm) - pos = pos+1 - elseif p == "u" then - local imm = getimm(ctx, pos, 1); if not imm then return end - x = format("0x%02x", imm) - pos = pos+1 - elseif p == "w" then - local imm = getimm(ctx, pos, 2); if not imm then return end - x = format("0x%x", imm) - pos = pos+2 - elseif p == "o" then -- [offset] - if ctx.x64 then - local imm1 = getimm(ctx, pos, 4); if not imm1 then return end - local imm2 = getimm(ctx, pos+4, 4); if not imm2 then return end - x = format("[0x%08x%08x]", imm2, imm1) - pos = pos+8 - else - local imm = getimm(ctx, pos, 4); if not imm then return end - x = format("[0x%08x]", imm) - pos = pos+4 - end - elseif p == "i" or p == "I" then - local n = map_sz2n[sz] - if n == 8 and ctx.x64 and p == "I" then - local imm1 = getimm(ctx, pos, 4); if not imm1 then return end - local imm2 = getimm(ctx, pos+4, 4); if not imm2 then return end - x = format("0x%08x%08x", imm2, imm1) - else - if n == 8 then n = 4 end - local imm = getimm(ctx, pos, n); if not imm then return end - if sz == "Q" and (imm < 0 or imm > 0x7fffffff) then - imm = (0xffffffff+1)-imm - x = format(imm > 65535 and "-0x%08x" or "-0x%x", imm) - else - x = format(imm > 65535 and "0x%08x" or "0x%x", imm) - end - end - pos = pos+n - elseif p == "j" then - local n = map_sz2n[sz] - if n == 8 then n = 4 end - local imm = getimm(ctx, pos, n); if not imm then return end - if sz == "B" and imm > 127 then imm = imm-256 - elseif imm > 2147483647 then imm = imm-4294967296 end - pos = pos+n - imm = imm + pos + ctx.addr - if imm > 4294967295 and not ctx.x64 then imm = imm-4294967296 end - ctx.imm = imm - if sz == "W" then - x = format("word 0x%04x", imm%65536) - elseif ctx.x64 then - local lo = imm % 0x1000000 - x = format("0x%02x%06x", (imm-lo) / 0x1000000, lo) - else - x = "0x"..tohex(imm) - end - elseif p == "R" then - local r = byte(code, pos-1, pos-1)%8 - if ctx.rexb then r = r + 8; ctx.rexb = false end - x = regs[r+1] - elseif p == "a" then x = regs[1] - elseif p == "c" then x = "cl" - elseif p == "d" then x = "dx" - elseif p == "1" then x = "1" - else - if not mode then - mode = ctx.mrm - if not mode then - if pos > stop then return incomplete(ctx) end - mode = byte(code, pos, pos) - pos = pos+1 - end - rm = mode%8; mode = (mode-rm)/8 - sp = mode%8; mode = (mode-sp)/8 - sdisp = "" - if mode < 3 then - if rm == 4 then - if pos > stop then return incomplete(ctx) end - sc = byte(code, pos, pos) - pos = pos+1 - rm = sc%8; sc = (sc-rm)/8 - rx = sc%8; sc = (sc-rx)/8 - if ctx.rexx then rx = rx + 8; ctx.rexx = false end - if rx == 4 then rx = nil end - end - if mode > 0 or rm == 5 then - local dsz = mode - if dsz ~= 1 then dsz = 4 end - local disp = getimm(ctx, pos, dsz); if not disp then return end - if mode == 0 then rm = nil end - if rm or rx or (not sc and ctx.x64 and not ctx.a32) then - if dsz == 1 and disp > 127 then - sdisp = format("-0x%x", 256-disp) - elseif disp >= 0 and disp <= 0x7fffffff then - sdisp = format("+0x%x", disp) - else - sdisp = format("-0x%x", (0xffffffff+1)-disp) - end - else - sdisp = format(ctx.x64 and not ctx.a32 and - not (disp >= 0 and disp <= 0x7fffffff) - and "0xffffffff%08x" or "0x%08x", disp) - end - pos = pos+dsz - end - end - if rm and ctx.rexb then rm = rm + 8; ctx.rexb = false end - if ctx.rexr then sp = sp + 8; ctx.rexr = false end - end - if p == "m" then - if mode == 3 then x = regs[rm+1] - else - local aregs = ctx.a32 and map_regs.D or ctx.aregs - local srm, srx = "", "" - if rm then srm = aregs[rm+1] - elseif not sc and ctx.x64 and not ctx.a32 then srm = "rip" end - ctx.a32 = false - if rx then - if rm then srm = srm.."+" end - srx = aregs[rx+1] - if sc > 0 then srx = srx.."*"..(2^sc) end - end - x = format("[%s%s%s]", srm, srx, sdisp) - end - if mode < 3 and - (not match(pat, "[aRrgp]") or match(pat, "t")) then -- Yuck. - x = map_sz2prefix[sz].." "..x - end - elseif p == "r" then x = regs[sp+1] - elseif p == "g" then x = map_segregs[sp+1] - elseif p == "p" then -- Suppress prefix. - elseif p == "f" then x = "st"..rm - elseif p == "x" then - if sp == 0 and ctx.lock and not ctx.x64 then - x = "CR8"; ctx.lock = false - else - x = "CR"..sp - end - elseif p == "y" then x = "DR"..sp - elseif p == "z" then x = "TR"..sp - elseif p == "t" then - else - error("bad pattern `"..pat.."'") - end - end - if x then operands = operands and operands..", "..x or x end - end - ctx.pos = pos - return putop(ctx, name, operands) -end - --- Forward declaration. -local map_act - --- Fetch and cache MRM byte. -local function getmrm(ctx) - local mrm = ctx.mrm - if not mrm then - local pos = ctx.pos - if pos > ctx.stop then return nil end - mrm = byte(ctx.code, pos, pos) - ctx.pos = pos+1 - ctx.mrm = mrm - end - return mrm -end - --- Dispatch to handler depending on pattern. -local function dispatch(ctx, opat, patgrp) - if not opat then return unknown(ctx) end - if match(opat, "%|") then -- MMX/SSE variants depending on prefix. - local p - if ctx.rep then - p = ctx.rep=="rep" and "%|([^%|]*)" or "%|[^%|]*%|[^%|]*%|([^%|]*)" - ctx.rep = false - elseif ctx.o16 then p = "%|[^%|]*%|([^%|]*)"; ctx.o16 = false - else p = "^[^%|]*" end - opat = match(opat, p) - if not opat then return unknown(ctx) end --- ctx.rep = false; ctx.o16 = false - --XXX fails for 66 f2 0f 38 f1 06 crc32 eax,WORD PTR [esi] - --XXX remove in branches? - end - if match(opat, "%$") then -- reg$mem variants. - local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end - opat = match(opat, mrm >= 192 and "^[^%$]*" or "%$(.*)") - if opat == "" then return unknown(ctx) end - end - if opat == "" then return unknown(ctx) end - local name, pat = match(opat, "^([a-z0-9 ]*)(.*)") - if pat == "" and patgrp then pat = patgrp end - return map_act[sub(pat, 1, 1)](ctx, name, pat) -end - --- Get a pattern from an opcode map and dispatch to handler. -local function dispatchmap(ctx, opcmap) - local pos = ctx.pos - local opat = opcmap[byte(ctx.code, pos, pos)] - pos = pos + 1 - ctx.pos = pos - return dispatch(ctx, opat) -end - --- Map for action codes. The key is the first char after the name. -map_act = { - -- Simple opcodes without operands. - [""] = function(ctx, name, pat) - return putop(ctx, name) - end, - - -- Operand size chars fall right through. - B = putpat, W = putpat, D = putpat, Q = putpat, - V = putpat, U = putpat, T = putpat, - M = putpat, X = putpat, P = putpat, - F = putpat, G = putpat, - - -- Collect prefixes. - [":"] = function(ctx, name, pat) - ctx[pat == ":" and name or sub(pat, 2)] = name - if ctx.pos - ctx.start > 5 then return unknown(ctx) end -- Limit #prefixes. - end, - - -- Chain to special handler specified by name. - ["*"] = function(ctx, name, pat) - return map_act[name](ctx, name, sub(pat, 2)) - end, - - -- Use named subtable for opcode group. - ["!"] = function(ctx, name, pat) - local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end - return dispatch(ctx, map_opcgroup[name][((mrm-(mrm%8))/8)%8+1], sub(pat, 2)) - end, - - -- o16,o32[,o64] variants. - sz = function(ctx, name, pat) - if ctx.o16 then ctx.o16 = false - else - pat = match(pat, ",(.*)") - if ctx.rexw then - local p = match(pat, ",(.*)") - if p then pat = p; ctx.rexw = false end - end - end - pat = match(pat, "^[^,]*") - return dispatch(ctx, pat) - end, - - -- Two-byte opcode dispatch. - opc2 = function(ctx, name, pat) - return dispatchmap(ctx, map_opc2) - end, - - -- Three-byte opcode dispatch. - opc3 = function(ctx, name, pat) - return dispatchmap(ctx, map_opc3[pat]) - end, - - -- VMX/SVM dispatch. - vm = function(ctx, name, pat) - return dispatch(ctx, map_opcvm[ctx.mrm]) - end, - - -- Floating point opcode dispatch. - fp = function(ctx, name, pat) - local mrm = getmrm(ctx); if not mrm then return incomplete(ctx) end - local rm = mrm%8 - local idx = pat*8 + ((mrm-rm)/8)%8 - if mrm >= 192 then idx = idx + 64 end - local opat = map_opcfp[idx] - if type(opat) == "table" then opat = opat[rm+1] end - return dispatch(ctx, opat) - end, - - -- REX prefix. - rex = function(ctx, name, pat) - if ctx.rex then return unknown(ctx) end -- Only 1 REX prefix allowed. - for p in gmatch(pat, ".") do ctx["rex"..p] = true end - ctx.rex = true - end, - - -- Special case for nop with REX prefix. - nop = function(ctx, name, pat) - return dispatch(ctx, ctx.rex and pat or "nop") - end, -} - ------------------------------------------------------------------------------- - --- Disassemble a block of code. -local function disass_block(ctx, ofs, len) - if not ofs then ofs = 0 end - local stop = len and ofs+len or #ctx.code - ofs = ofs + 1 - ctx.start = ofs - ctx.pos = ofs - ctx.stop = stop - ctx.imm = nil - ctx.mrm = false - clearprefixes(ctx) - while ctx.pos <= stop do dispatchmap(ctx, ctx.map1) end - if ctx.pos ~= ctx.start then incomplete(ctx) end -end - --- Extended API: create a disassembler context. Then call ctx:disass(ofs, len). -local function create(code, addr, out) - local ctx = {} - ctx.code = code - ctx.addr = (addr or 0) - 1 - ctx.out = out or io.write - ctx.symtab = {} - ctx.disass = disass_block - ctx.hexdump = 16 - ctx.x64 = false - ctx.map1 = map_opc1_32 - ctx.aregs = map_regs.D - return ctx -end - -local function create64(code, addr, out) - local ctx = create(code, addr, out) - ctx.x64 = true - ctx.map1 = map_opc1_64 - ctx.aregs = map_regs.Q - return ctx -end - --- Simple API: disassemble code (a string) at address and output via out. -local function disass(code, addr, out) - create(code, addr, out):disass() -end - -local function disass64(code, addr, out) - create64(code, addr, out):disass() -end - --- Return register name for RID. -local function regname(r) - if r < 8 then return map_regs.D[r+1] end - return map_regs.X[r-7] -end - -local function regname64(r) - if r < 16 then return map_regs.Q[r+1] end - return map_regs.X[r-15] -end - --- Public module functions. -return { - create = create, - create64 = create64, - disass = disass, - disass64 = disass64, - regname = regname, - regname64 = regname64 -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/dump.lua b/src/3rd party/luajit-2.0-BAK/src/jit/dump.lua deleted file mode 100644 index 5f858492bc4..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/dump.lua +++ /dev/null @@ -1,706 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT compiler dump module. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- --- This module can be used to debug the JIT compiler itself. It dumps the --- code representations and structures used in various compiler stages. --- --- Example usage: --- --- luajit -jdump -e "local x=0; for i=1,1e6 do x=x+i end; print(x)" --- luajit -jdump=im -e "for i=1,1000 do for j=1,1000 do end end" | less -R --- luajit -jdump=is myapp.lua | less -R --- luajit -jdump=-b myapp.lua --- luajit -jdump=+aH,myapp.html myapp.lua --- luajit -jdump=ixT,myapp.dump myapp.lua --- --- The first argument specifies the dump mode. The second argument gives --- the output file name. Default output is to stdout, unless the environment --- variable LUAJIT_DUMPFILE is set. The file is overwritten every time the --- module is started. --- --- Different features can be turned on or off with the dump mode. If the --- mode starts with a '+', the following features are added to the default --- set of features; a '-' removes them. Otherwise the features are replaced. --- --- The following dump features are available (* marks the default): --- --- * t Print a line for each started, ended or aborted trace (see also -jv). --- * b Dump the traced bytecode. --- * i Dump the IR (intermediate representation). --- r Augment the IR with register/stack slots. --- s Dump the snapshot map. --- * m Dump the generated machine code. --- x Print each taken trace exit. --- X Print each taken trace exit and the contents of all registers. --- a Print the IR of aborted traces, too. --- --- The output format can be set with the following characters: --- --- T Plain text output. --- A ANSI-colored text output --- H Colorized HTML + CSS output. --- --- The default output format is plain text. It's set to ANSI-colored text --- if the COLORTERM variable is set. Note: this is independent of any output --- redirection, which is actually considered a feature. --- --- You probably want to use less -R to enjoy viewing ANSI-colored text from --- a pipe or a file. Add this to your ~/.bashrc: export LESS="-R" --- ------------------------------------------------------------------------------- - --- Cache some library functions and objects. -local jit = require("jit") -assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") -local jutil = require("jit.util") -local vmdef = require("jit.vmdef") -local funcinfo, funcbc = jutil.funcinfo, jutil.funcbc -local traceinfo, traceir, tracek = jutil.traceinfo, jutil.traceir, jutil.tracek -local tracemc, tracesnap = jutil.tracemc, jutil.tracesnap -local traceexitstub, ircalladdr = jutil.traceexitstub, jutil.ircalladdr -local bit = require("bit") -local band, shl, shr, tohex = bit.band, bit.lshift, bit.rshift, bit.tohex -local sub, gsub, format = string.sub, string.gsub, string.format -local byte, char, rep = string.byte, string.char, string.rep -local type, tostring = type, tostring -local stdout, stderr = io.stdout, io.stderr - --- Load other modules on-demand. -local bcline, disass - --- Active flag, output file handle and dump mode. -local active, out, dumpmode - ------------------------------------------------------------------------------- - -local symtabmt = { __index = false } -local symtab = {} -local nexitsym = 0 - --- Fill nested symbol table with per-trace exit stub addresses. -local function fillsymtab_tr(tr, nexit) - local t = {} - symtabmt.__index = t - if jit.arch == "mips" or jit.arch == "mipsel" then - t[traceexitstub(tr, 0)] = "exit" - return - end - for i=0,nexit-1 do - local addr = traceexitstub(tr, i) - if addr < 0 then addr = addr + 2^32 end - t[addr] = tostring(i) - end - local addr = traceexitstub(tr, nexit) - if addr then t[addr] = "stack_check" end -end - --- Fill symbol table with trace exit stub addresses. -local function fillsymtab(tr, nexit) - local t = symtab - if nexitsym == 0 then - local ircall = vmdef.ircall - for i=0,#ircall do - local addr = ircalladdr(i) - if addr ~= 0 then - if addr < 0 then addr = addr + 2^32 end - t[addr] = ircall[i] - end - end - end - if nexitsym == 1000000 then -- Per-trace exit stubs. - fillsymtab_tr(tr, nexit) - elseif nexit > nexitsym then -- Shared exit stubs. - for i=nexitsym,nexit-1 do - local addr = traceexitstub(i) - if addr == nil then -- Fall back to per-trace exit stubs. - fillsymtab_tr(tr, nexit) - setmetatable(symtab, symtabmt) - nexit = 1000000 - break - end - if addr < 0 then addr = addr + 2^32 end - t[addr] = tostring(i) - end - nexitsym = nexit - end - return t -end - -local function dumpwrite(s) - out:write(s) -end - --- Disassemble machine code. -local function dump_mcode(tr) - local info = traceinfo(tr) - if not info then return end - local mcode, addr, loop = tracemc(tr) - if not mcode then return end - if not disass then disass = require("jit.dis_"..jit.arch) end - if addr < 0 then addr = addr + 2^32 end - out:write("---- TRACE ", tr, " mcode ", #mcode, "\n") - local ctx = disass.create(mcode, addr, dumpwrite) - ctx.hexdump = 0 - ctx.symtab = fillsymtab(tr, info.nexit) - if loop ~= 0 then - symtab[addr+loop] = "LOOP" - ctx:disass(0, loop) - out:write("->LOOP:\n") - ctx:disass(loop, #mcode-loop) - symtab[addr+loop] = nil - else - ctx:disass(0, #mcode) - end -end - ------------------------------------------------------------------------------- - -local irtype_text = { - [0] = "nil", - "fal", - "tru", - "lud", - "str", - "p32", - "thr", - "pro", - "fun", - "p64", - "cdt", - "tab", - "udt", - "flt", - "num", - "i8 ", - "u8 ", - "i16", - "u16", - "int", - "u32", - "i64", - "u64", - "sfp", -} - -local colortype_ansi = { - [0] = "%s", - "%s", - "%s", - "\027[36m%s\027[m", - "\027[32m%s\027[m", - "%s", - "\027[1m%s\027[m", - "%s", - "\027[1m%s\027[m", - "%s", - "\027[33m%s\027[m", - "\027[31m%s\027[m", - "\027[36m%s\027[m", - "\027[34m%s\027[m", - "\027[34m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", - "\027[35m%s\027[m", -} - -local function colorize_text(s, t) - return s -end - -local function colorize_ansi(s, t) - return format(colortype_ansi[t], s) -end - -local irtype_ansi = setmetatable({}, - { __index = function(tab, t) - local s = colorize_ansi(irtype_text[t], t); tab[t] = s; return s; end }) - -local html_escape = { ["<"] = "<", [">"] = ">", ["&"] = "&", } - -local function colorize_html(s, t) - s = gsub(s, "[<>&]", html_escape) - return format('%s', irtype_text[t], s) -end - -local irtype_html = setmetatable({}, - { __index = function(tab, t) - local s = colorize_html(irtype_text[t], t); tab[t] = s; return s; end }) - -local header_html = [[ - -]] - -local colorize, irtype - --- Lookup tables to convert some literals into names. -local litname = { - ["SLOAD "] = setmetatable({}, { __index = function(t, mode) - local s = "" - if band(mode, 1) ~= 0 then s = s.."P" end - if band(mode, 2) ~= 0 then s = s.."F" end - if band(mode, 4) ~= 0 then s = s.."T" end - if band(mode, 8) ~= 0 then s = s.."C" end - if band(mode, 16) ~= 0 then s = s.."R" end - if band(mode, 32) ~= 0 then s = s.."I" end - t[mode] = s - return s - end}), - ["XLOAD "] = { [0] = "", "R", "V", "RV", "U", "RU", "VU", "RVU", }, - ["CONV "] = setmetatable({}, { __index = function(t, mode) - local s = irtype[band(mode, 31)] - s = irtype[band(shr(mode, 5), 31)].."."..s - if band(mode, 0x800) ~= 0 then s = s.." sext" end - local c = shr(mode, 14) - if c == 2 then s = s.." index" elseif c == 3 then s = s.." check" end - t[mode] = s - return s - end}), - ["FLOAD "] = vmdef.irfield, - ["FREF "] = vmdef.irfield, - ["FPMATH"] = vmdef.irfpm, - ["BUFHDR"] = { [0] = "RESET", "APPEND" }, - ["TOSTR "] = { [0] = "INT", "NUM", "CHAR" }, -} - -local function ctlsub(c) - if c == "\n" then return "\\n" - elseif c == "\r" then return "\\r" - elseif c == "\t" then return "\\t" - else return format("\\%03d", byte(c)) - end -end - -local function fmtfunc(func, pc) - local fi = funcinfo(func, pc) - if fi.loc then - return fi.loc - elseif fi.ffid then - return vmdef.ffnames[fi.ffid] - elseif fi.addr then - return format("C:%x", fi.addr) - else - return "(?)" - end -end - -local function formatk(tr, idx) - local k, t, slot = tracek(tr, idx) - local tn = type(k) - local s - if tn == "number" then - if k == 2^52+2^51 then - s = "bias" - else - s = format("%+.14g", k) - end - elseif tn == "string" then - s = format(#k > 20 and '"%.20s"~' or '"%s"', gsub(k, "%c", ctlsub)) - elseif tn == "function" then - s = fmtfunc(k) - elseif tn == "table" then - s = format("{%p}", k) - elseif tn == "userdata" then - if t == 12 then - s = format("userdata:%p", k) - else - s = format("[%p]", k) - if s == "[0x00000000]" then s = "NULL" end - end - elseif t == 21 then -- int64_t - s = sub(tostring(k), 1, -3) - if sub(s, 1, 1) ~= "-" then s = "+"..s end - else - s = tostring(k) -- For primitives. - end - s = colorize(format("%-4s", s), t) - if slot then - s = format("%s @%d", s, slot) - end - return s -end - -local function printsnap(tr, snap) - local n = 2 - for s=0,snap[1]-1 do - local sn = snap[n] - if shr(sn, 24) == s then - n = n + 1 - local ref = band(sn, 0xffff) - 0x8000 -- REF_BIAS - if ref < 0 then - out:write(formatk(tr, ref)) - elseif band(sn, 0x80000) ~= 0 then -- SNAP_SOFTFPNUM - out:write(colorize(format("%04d/%04d", ref, ref+1), 14)) - else - local m, ot, op1, op2 = traceir(tr, ref) - out:write(colorize(format("%04d", ref), band(ot, 31))) - end - out:write(band(sn, 0x10000) == 0 and " " or "|") -- SNAP_FRAME - else - out:write("---- ") - end - end - out:write("]\n") -end - --- Dump snapshots (not interleaved with IR). -local function dump_snap(tr) - out:write("---- TRACE ", tr, " snapshots\n") - for i=0,1000000000 do - local snap = tracesnap(tr, i) - if not snap then break end - out:write(format("#%-3d %04d [ ", i, snap[0])) - printsnap(tr, snap) - end -end - --- Return a register name or stack slot for a rid/sp location. -local function ridsp_name(ridsp, ins) - if not disass then disass = require("jit.dis_"..jit.arch) end - local rid, slot = band(ridsp, 0xff), shr(ridsp, 8) - if rid == 253 or rid == 254 then - return (slot == 0 or slot == 255) and " {sink" or format(" {%04d", ins-slot) - end - if ridsp > 255 then return format("[%x]", slot*4) end - if rid < 128 then return disass.regname(rid) end - return "" -end - --- Dump CALL* function ref and return optional ctype. -local function dumpcallfunc(tr, ins) - local ctype - if ins > 0 then - local m, ot, op1, op2 = traceir(tr, ins) - if band(ot, 31) == 0 then -- nil type means CARG(func, ctype). - ins = op1 - ctype = formatk(tr, op2) - end - end - if ins < 0 then - out:write(format("[0x%x](", tonumber((tracek(tr, ins))))) - else - out:write(format("%04d (", ins)) - end - return ctype -end - --- Recursively gather CALL* args and dump them. -local function dumpcallargs(tr, ins) - if ins < 0 then - out:write(formatk(tr, ins)) - else - local m, ot, op1, op2 = traceir(tr, ins) - local oidx = 6*shr(ot, 8) - local op = sub(vmdef.irnames, oidx+1, oidx+6) - if op == "CARG " then - dumpcallargs(tr, op1) - if op2 < 0 then - out:write(" ", formatk(tr, op2)) - else - out:write(" ", format("%04d", op2)) - end - else - out:write(format("%04d", ins)) - end - end -end - --- Dump IR and interleaved snapshots. -local function dump_ir(tr, dumpsnap, dumpreg) - local info = traceinfo(tr) - if not info then return end - local nins = info.nins - out:write("---- TRACE ", tr, " IR\n") - local irnames = vmdef.irnames - local snapref = 65536 - local snap, snapno - if dumpsnap then - snap = tracesnap(tr, 0) - snapref = snap[0] - snapno = 0 - end - for ins=1,nins do - if ins >= snapref then - if dumpreg then - out:write(format(".... SNAP #%-3d [ ", snapno)) - else - out:write(format(".... SNAP #%-3d [ ", snapno)) - end - printsnap(tr, snap) - snapno = snapno + 1 - snap = tracesnap(tr, snapno) - snapref = snap and snap[0] or 65536 - end - local m, ot, op1, op2, ridsp = traceir(tr, ins) - local oidx, t = 6*shr(ot, 8), band(ot, 31) - local op = sub(irnames, oidx+1, oidx+6) - if op == "LOOP " then - if dumpreg then - out:write(format("%04d ------------ LOOP ------------\n", ins)) - else - out:write(format("%04d ------ LOOP ------------\n", ins)) - end - elseif op ~= "NOP " and op ~= "CARG " and - (dumpreg or op ~= "RENAME") then - local rid = band(ridsp, 255) - if dumpreg then - out:write(format("%04d %-6s", ins, ridsp_name(ridsp, ins))) - else - out:write(format("%04d ", ins)) - end - out:write(format("%s%s %s %s ", - (rid == 254 or rid == 253) and "}" or - (band(ot, 128) == 0 and " " or ">"), - band(ot, 64) == 0 and " " or "+", - irtype[t], op)) - local m1, m2 = band(m, 3), band(m, 3*4) - if sub(op, 1, 4) == "CALL" then - local ctype - if m2 == 1*4 then -- op2 == IRMlit - out:write(format("%-10s (", vmdef.ircall[op2])) - else - ctype = dumpcallfunc(tr, op2) - end - if op1 ~= -1 then dumpcallargs(tr, op1) end - out:write(")") - if ctype then out:write(" ctype ", ctype) end - elseif op == "CNEW " and op2 == -1 then - out:write(formatk(tr, op1)) - elseif m1 ~= 3 then -- op1 != IRMnone - if op1 < 0 then - out:write(formatk(tr, op1)) - else - out:write(format(m1 == 0 and "%04d" or "#%-3d", op1)) - end - if m2 ~= 3*4 then -- op2 != IRMnone - if m2 == 1*4 then -- op2 == IRMlit - local litn = litname[op] - if litn and litn[op2] then - out:write(" ", litn[op2]) - elseif op == "UREFO " or op == "UREFC " then - out:write(format(" #%-3d", shr(op2, 8))) - else - out:write(format(" #%-3d", op2)) - end - elseif op2 < 0 then - out:write(" ", formatk(tr, op2)) - else - out:write(format(" %04d", op2)) - end - end - end - out:write("\n") - end - end - if snap then - if dumpreg then - out:write(format(".... SNAP #%-3d [ ", snapno)) - else - out:write(format(".... SNAP #%-3d [ ", snapno)) - end - printsnap(tr, snap) - end -end - ------------------------------------------------------------------------------- - -local recprefix = "" -local recdepth = 0 - --- Format trace error message. -local function fmterr(err, info) - if type(err) == "number" then - if type(info) == "function" then info = fmtfunc(info) end - err = format(vmdef.traceerr[err], info) - end - return err -end - --- Dump trace states. -local function dump_trace(what, tr, func, pc, otr, oex) - if what == "stop" or (what == "abort" and dumpmode.a) then - if dumpmode.i then dump_ir(tr, dumpmode.s, dumpmode.r and what == "stop") - elseif dumpmode.s then dump_snap(tr) end - if dumpmode.m then dump_mcode(tr) end - end - if what == "start" then - if dumpmode.H then out:write('
    \n') end
-    out:write("---- TRACE ", tr, " ", what)
-    if otr then out:write(" ", otr, "/", oex) end
-    out:write(" ", fmtfunc(func, pc), "\n")
-  elseif what == "stop" or what == "abort" then
-    out:write("---- TRACE ", tr, " ", what)
-    if what == "abort" then
-      out:write(" ", fmtfunc(func, pc), " -- ", fmterr(otr, oex), "\n")
-    else
-      local info = traceinfo(tr)
-      local link, ltype = info.link, info.linktype
-      if link == tr or link == 0 then
-	out:write(" -> ", ltype, "\n")
-      elseif ltype == "root" then
-	out:write(" -> ", link, "\n")
-      else
-	out:write(" -> ", link, " ", ltype, "\n")
-      end
-    end
-    if dumpmode.H then out:write("
    \n\n") else out:write("\n") end - else - out:write("---- TRACE ", what, "\n\n") - end - out:flush() -end - --- Dump recorded bytecode. -local function dump_record(tr, func, pc, depth, callee) - if depth ~= recdepth then - recdepth = depth - recprefix = rep(" .", depth) - end - local line - if pc >= 0 then - line = bcline(func, pc, recprefix) - if dumpmode.H then line = gsub(line, "[<>&]", html_escape) end - else - line = "0000 "..recprefix.." FUNCC \n" - callee = func - end - if pc <= 0 then - out:write(sub(line, 1, -2), " ; ", fmtfunc(func), "\n") - else - out:write(line) - end - if pc >= 0 and band(funcbc(func, pc), 0xff) < 16 then -- ORDER BC - out:write(bcline(func, pc+1, recprefix)) -- Write JMP for cond. - end -end - ------------------------------------------------------------------------------- - --- Dump taken trace exits. -local function dump_texit(tr, ex, ngpr, nfpr, ...) - out:write("---- TRACE ", tr, " exit ", ex, "\n") - if dumpmode.X then - local regs = {...} - if jit.arch == "x64" then - for i=1,ngpr do - out:write(format(" %016x", regs[i])) - if i % 4 == 0 then out:write("\n") end - end - else - for i=1,ngpr do - out:write(" ", tohex(regs[i])) - if i % 8 == 0 then out:write("\n") end - end - end - if jit.arch == "mips" or jit.arch == "mipsel" then - for i=1,nfpr,2 do - out:write(format(" %+17.14g", regs[ngpr+i])) - if i % 8 == 7 then out:write("\n") end - end - else - for i=1,nfpr do - out:write(format(" %+17.14g", regs[ngpr+i])) - if i % 4 == 0 then out:write("\n") end - end - end - end -end - ------------------------------------------------------------------------------- - --- Detach dump handlers. -local function dumpoff() - if active then - active = false - jit.attach(dump_texit) - jit.attach(dump_record) - jit.attach(dump_trace) - if out and out ~= stdout and out ~= stderr then out:close() end - out = nil - end -end - --- Open the output file and attach dump handlers. -local function dumpon(opt, outfile) - if active then dumpoff() end - - local colormode = os.getenv("COLORTERM") and "A" or "T" - if opt then - opt = gsub(opt, "[TAH]", function(mode) colormode = mode; return ""; end) - end - - local m = { t=true, b=true, i=true, m=true, } - if opt and opt ~= "" then - local o = sub(opt, 1, 1) - if o ~= "+" and o ~= "-" then m = {} end - for i=1,#opt do m[sub(opt, i, i)] = (o ~= "-") end - end - dumpmode = m - - if m.t or m.b or m.i or m.s or m.m then - jit.attach(dump_trace, "trace") - end - if m.b then - jit.attach(dump_record, "record") - if not bcline then bcline = require("jit.bc").line end - end - if m.x or m.X then - jit.attach(dump_texit, "texit") - end - - if not outfile then outfile = os.getenv("LUAJIT_DUMPFILE") end - if outfile then - out = outfile == "-" and stdout or assert(io.open(outfile, "w")) - else - out = stdout - end - - m[colormode] = true - if colormode == "A" then - colorize = colorize_ansi - irtype = irtype_ansi - elseif colormode == "H" then - colorize = colorize_html - irtype = irtype_html - out:write(header_html) - else - colorize = colorize_text - irtype = irtype_text - end - - active = true -end - --- Public module functions. -return { - on = dumpon, - off = dumpoff, - start = dumpon -- For -j command line option. -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/p.lua b/src/3rd party/luajit-2.0-BAK/src/jit/p.lua deleted file mode 100644 index 97d4ccdf87c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/p.lua +++ /dev/null @@ -1,310 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT profiler. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- --- This module is a simple command line interface to the built-in --- low-overhead profiler of LuaJIT. --- --- The lower-level API of the profiler is accessible via the "jit.profile" --- module or the luaJIT_profile_* C API. --- --- Example usage: --- --- luajit -jp myapp.lua --- luajit -jp=s myapp.lua --- luajit -jp=-s myapp.lua --- luajit -jp=vl myapp.lua --- luajit -jp=G,profile.txt myapp.lua --- --- The following dump features are available: --- --- f Stack dump: function name, otherwise module:line. Default mode. --- F Stack dump: ditto, but always prepend module. --- l Stack dump: module:line. --- stack dump depth (callee < caller). Default: 1. --- - Inverse stack dump depth (caller > callee). --- s Split stack dump after first stack level. Implies abs(depth) >= 2. --- p Show full path for module names. --- v Show VM states. Can be combined with stack dumps, e.g. vf or fv. --- z Show zones. Can be combined with stack dumps, e.g. zf or fz. --- r Show raw sample counts. Default: show percentages. --- a Annotate excerpts from source code files. --- A Annotate complete source code files. --- G Produce raw output suitable for graphical tools (e.g. flame graphs). --- m Minimum sample percentage to be shown. Default: 3. --- i Sampling interval in milliseconds. Default: 10. --- ----------------------------------------------------------------------------- - --- Cache some library functions and objects. -local jit = require("jit") -assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") -local profile = require("jit.profile") -local vmdef = require("jit.vmdef") -local math = math -local pairs, ipairs, tonumber, floor = pairs, ipairs, tonumber, math.floor -local sort, format = table.sort, string.format -local stdout = io.stdout -local zone -- Load jit.zone module on demand. - --- Output file handle. -local out - ------------------------------------------------------------------------------- - -local prof_ud -local prof_states, prof_split, prof_min, prof_raw, prof_fmt, prof_depth -local prof_ann, prof_count1, prof_count2, prof_samples - -local map_vmmode = { - N = "Compiled", - I = "Interpreted", - C = "C code", - G = "Garbage Collector", - J = "JIT Compiler", -} - --- Profiler callback. -local function prof_cb(th, samples, vmmode) - prof_samples = prof_samples + samples - local key_stack, key_stack2, key_state - -- Collect keys for sample. - if prof_states then - if prof_states == "v" then - key_state = map_vmmode[vmmode] or vmmode - else - key_state = zone:get() or "(none)" - end - end - if prof_fmt then - key_stack = profile.dumpstack(th, prof_fmt, prof_depth) - key_stack = key_stack:gsub("%[builtin#(%d+)%]", function(x) - return vmdef.ffnames[tonumber(x)] - end) - if prof_split == 2 then - local k1, k2 = key_stack:match("(.-) [<>] (.*)") - if k2 then key_stack, key_stack2 = k1, k2 end - elseif prof_split == 3 then - key_stack2 = profile.dumpstack(th, "l", 1) - end - end - -- Order keys. - local k1, k2 - if prof_split == 1 then - if key_state then - k1 = key_state - if key_stack then k2 = key_stack end - end - elseif key_stack then - k1 = key_stack - if key_stack2 then k2 = key_stack2 elseif key_state then k2 = key_state end - end - -- Coalesce samples in one or two levels. - if k1 then - local t1 = prof_count1 - t1[k1] = (t1[k1] or 0) + samples - if k2 then - local t2 = prof_count2 - local t3 = t2[k1] - if not t3 then t3 = {}; t2[k1] = t3 end - t3[k2] = (t3[k2] or 0) + samples - end - end -end - ------------------------------------------------------------------------------- - --- Show top N list. -local function prof_top(count1, count2, samples, indent) - local t, n = {}, 0 - for k, v in pairs(count1) do - n = n + 1 - t[n] = k - end - sort(t, function(a, b) return count1[a] > count1[b] end) - for i=1,n do - local k = t[i] - local v = count1[k] - local pct = floor(v*100/samples + 0.5) - if pct < prof_min then break end - if not prof_raw then - out:write(format("%s%2d%% %s\n", indent, pct, k)) - elseif prof_raw == "r" then - out:write(format("%s%5d %s\n", indent, v, k)) - else - out:write(format("%s %d\n", k, v)) - end - if count2 then - local r = count2[k] - if r then - prof_top(r, nil, v, (prof_split == 3 or prof_split == 1) and " -- " or - (prof_depth < 0 and " -> " or " <- ")) - end - end - end -end - --- Annotate source code -local function prof_annotate(count1, samples) - local files = {} - local ms = 0 - for k, v in pairs(count1) do - local pct = floor(v*100/samples + 0.5) - ms = math.max(ms, v) - if pct >= prof_min then - local file, line = k:match("^(.*):(%d+)$") - local fl = files[file] - if not fl then fl = {}; files[file] = fl; files[#files+1] = file end - line = tonumber(line) - fl[line] = prof_raw and v or pct - end - end - sort(files) - local fmtv, fmtn = " %3d%% | %s\n", " | %s\n" - if prof_raw then - local n = math.max(5, math.ceil(math.log10(ms))) - fmtv = "%"..n.."d | %s\n" - fmtn = (" "):rep(n).." | %s\n" - end - local ann = prof_ann - for _, file in ipairs(files) do - local f0 = file:byte() - if f0 == 40 or f0 == 91 then - out:write(format("\n====== %s ======\n[Cannot annotate non-file]\n", file)) - break - end - local fp, err = io.open(file) - if not fp then - out:write(format("====== ERROR: %s: %s\n", file, err)) - break - end - out:write(format("\n====== %s ======\n", file)) - local fl = files[file] - local n, show = 1, false - if ann ~= 0 then - for i=1,ann do - if fl[i] then show = true; out:write("@@ 1 @@\n"); break end - end - end - for line in fp:lines() do - if line:byte() == 27 then - out:write("[Cannot annotate bytecode file]\n") - break - end - local v = fl[n] - if ann ~= 0 then - local v2 = fl[n+ann] - if show then - if v2 then show = n+ann elseif v then show = n - elseif show+ann < n then show = false end - elseif v2 then - show = n+ann - out:write(format("@@ %d @@\n", n)) - end - if not show then goto next end - end - if v then - out:write(format(fmtv, v, line)) - else - out:write(format(fmtn, line)) - end - ::next:: - n = n + 1 - end - fp:close() - end -end - ------------------------------------------------------------------------------- - --- Finish profiling and dump result. -local function prof_finish() - if prof_ud then - profile.stop() - local samples = prof_samples - if samples == 0 then - if prof_raw ~= true then out:write("[No samples collected]\n") end - return - end - if prof_ann then - prof_annotate(prof_count1, samples) - else - prof_top(prof_count1, prof_count2, samples, "") - end - prof_count1 = nil - prof_count2 = nil - prof_ud = nil - end -end - --- Start profiling. -local function prof_start(mode) - local interval = "" - mode = mode:gsub("i%d*", function(s) interval = s; return "" end) - prof_min = 3 - mode = mode:gsub("m(%d+)", function(s) prof_min = tonumber(s); return "" end) - prof_depth = 1 - mode = mode:gsub("%-?%d+", function(s) prof_depth = tonumber(s); return "" end) - local m = {} - for c in mode:gmatch(".") do m[c] = c end - prof_states = m.z or m.v - if prof_states == "z" then zone = require("jit.zone") end - local scope = m.l or m.f or m.F or (prof_states and "" or "f") - local flags = (m.p or "") - prof_raw = m.r - if m.s then - prof_split = 2 - if prof_depth == -1 or m["-"] then prof_depth = -2 - elseif prof_depth == 1 then prof_depth = 2 end - elseif mode:find("[fF].*l") then - scope = "l" - prof_split = 3 - else - prof_split = (scope == "" or mode:find("[zv].*[lfF]")) and 1 or 0 - end - prof_ann = m.A and 0 or (m.a and 3) - if prof_ann then - scope = "l" - prof_fmt = "pl" - prof_split = 0 - prof_depth = 1 - elseif m.G and scope ~= "" then - prof_fmt = flags..scope.."Z;" - prof_depth = -100 - prof_raw = true - prof_min = 0 - elseif scope == "" then - prof_fmt = false - else - local sc = prof_split == 3 and m.f or m.F or scope - prof_fmt = flags..sc..(prof_depth >= 0 and "Z < " or "Z > ") - end - prof_count1 = {} - prof_count2 = {} - prof_samples = 0 - profile.start(scope:lower()..interval, prof_cb) - prof_ud = newproxy(true) - getmetatable(prof_ud).__gc = prof_finish -end - ------------------------------------------------------------------------------- - -local function start(mode, outfile) - if not outfile then outfile = os.getenv("LUAJIT_PROFILEFILE") end - if outfile then - out = outfile == "-" and stdout or assert(io.open(outfile, "w")) - else - out = stdout - end - prof_start(mode or "f") -end - --- Public module functions. -return { - start = start, -- For -j command line option. - stop = prof_finish -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/v.lua b/src/3rd party/luajit-2.0-BAK/src/jit/v.lua deleted file mode 100644 index 157c34bc643..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/v.lua +++ /dev/null @@ -1,170 +0,0 @@ ----------------------------------------------------------------------------- --- Verbose mode of the LuaJIT compiler. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- --- This module shows verbose information about the progress of the --- JIT compiler. It prints one line for each generated trace. This module --- is useful to see which code has been compiled or where the compiler --- punts and falls back to the interpreter. --- --- Example usage: --- --- luajit -jv -e "for i=1,1000 do for j=1,1000 do end end" --- luajit -jv=myapp.out myapp.lua --- --- Default output is to stderr. To redirect the output to a file, pass a --- filename as an argument (use '-' for stdout) or set the environment --- variable LUAJIT_VERBOSEFILE. The file is overwritten every time the --- module is started. --- --- The output from the first example should look like this: --- --- [TRACE 1 (command line):1 loop] --- [TRACE 2 (1/3) (command line):1 -> 1] --- --- The first number in each line is the internal trace number. Next are --- the file name ('(command line)') and the line number (':1') where the --- trace has started. Side traces also show the parent trace number and --- the exit number where they are attached to in parentheses ('(1/3)'). --- An arrow at the end shows where the trace links to ('-> 1'), unless --- it loops to itself. --- --- In this case the inner loop gets hot and is traced first, generating --- a root trace. Then the last exit from the 1st trace gets hot, too, --- and triggers generation of the 2nd trace. The side trace follows the --- path along the outer loop and *around* the inner loop, back to its --- start, and then links to the 1st trace. Yes, this may seem unusual, --- if you know how traditional compilers work. Trace compilers are full --- of surprises like this -- have fun! :-) --- --- Aborted traces are shown like this: --- --- [TRACE --- foo.lua:44 -- leaving loop in root trace at foo:lua:50] --- --- Don't worry -- trace aborts are quite common, even in programs which --- can be fully compiled. The compiler may retry several times until it --- finds a suitable trace. --- --- Of course this doesn't work with features that are not-yet-implemented --- (NYI error messages). The VM simply falls back to the interpreter. This --- may not matter at all if the particular trace is not very high up in --- the CPU usage profile. Oh, and the interpreter is quite fast, too. --- --- Also check out the -jdump module, which prints all the gory details. --- ------------------------------------------------------------------------------- - --- Cache some library functions and objects. -local jit = require("jit") -assert(jit.version_num == 20100, "LuaJIT core/library version mismatch") -local jutil = require("jit.util") -local vmdef = require("jit.vmdef") -local funcinfo, traceinfo = jutil.funcinfo, jutil.traceinfo -local type, format = type, string.format -local stdout, stderr = io.stdout, io.stderr - --- Active flag and output file handle. -local active, out - ------------------------------------------------------------------------------- - -local startloc, startex - -local function fmtfunc(func, pc) - local fi = funcinfo(func, pc) - if fi.loc then - return fi.loc - elseif fi.ffid then - return vmdef.ffnames[fi.ffid] - elseif fi.addr then - return format("C:%x", fi.addr) - else - return "(?)" - end -end - --- Format trace error message. -local function fmterr(err, info) - if type(err) == "number" then - if type(info) == "function" then info = fmtfunc(info) end - err = format(vmdef.traceerr[err], info) - end - return err -end - --- Dump trace states. -local function dump_trace(what, tr, func, pc, otr, oex) - if what == "start" then - startloc = fmtfunc(func, pc) - startex = otr and "("..otr.."/"..oex..") " or "" - else - if what == "abort" then - local loc = fmtfunc(func, pc) - if loc ~= startloc then - out:write(format("[TRACE --- %s%s -- %s at %s]\n", - startex, startloc, fmterr(otr, oex), loc)) - else - out:write(format("[TRACE --- %s%s -- %s]\n", - startex, startloc, fmterr(otr, oex))) - end - elseif what == "stop" then - local info = traceinfo(tr) - local link, ltype = info.link, info.linktype - if ltype == "interpreter" then - out:write(format("[TRACE %3s %s%s -- fallback to interpreter]\n", - tr, startex, startloc)) - elseif ltype == "stitch" then - out:write(format("[TRACE %3s %s%s %s %s]\n", - tr, startex, startloc, ltype, fmtfunc(func, pc))) - elseif link == tr or link == 0 then - out:write(format("[TRACE %3s %s%s %s]\n", - tr, startex, startloc, ltype)) - elseif ltype == "root" then - out:write(format("[TRACE %3s %s%s -> %d]\n", - tr, startex, startloc, link)) - else - out:write(format("[TRACE %3s %s%s -> %d %s]\n", - tr, startex, startloc, link, ltype)) - end - else - out:write(format("[TRACE %s]\n", what)) - end - out:flush() - end -end - ------------------------------------------------------------------------------- - --- Detach dump handlers. -local function dumpoff() - if active then - active = false - jit.attach(dump_trace) - if out and out ~= stdout and out ~= stderr then out:close() end - out = nil - end -end - --- Open the output file and attach dump handlers. -local function dumpon(outfile) - if active then dumpoff() end - if not outfile then outfile = os.getenv("LUAJIT_VERBOSEFILE") end - if outfile then - out = outfile == "-" and stdout or assert(io.open(outfile, "w")) - else - out = stderr - end - jit.attach(dump_trace, "trace") - active = true -end - --- Public module functions. -return { - on = dumpon, - off = dumpoff, - start = dumpon -- For -j command line option. -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/jit/zone.lua b/src/3rd party/luajit-2.0-BAK/src/jit/zone.lua deleted file mode 100644 index 69f0f169147..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/jit/zone.lua +++ /dev/null @@ -1,45 +0,0 @@ ----------------------------------------------------------------------------- --- LuaJIT profiler zones. --- --- Copyright (C) 2005-2015 Mike Pall. All rights reserved. --- Released under the MIT license. See Copyright Notice in luajit.h ----------------------------------------------------------------------------- --- --- This module implements a simple hierarchical zone model. --- --- Example usage: --- --- local zone = require("jit.zone") --- zone("AI") --- ... --- zone("A*") --- ... --- print(zone:get()) --> "A*" --- ... --- zone() --- ... --- print(zone:get()) --> "AI" --- ... --- zone() --- ----------------------------------------------------------------------------- - -local remove = table.remove - -return setmetatable({ - flush = function(t) - for i=#t,1,-1 do t[i] = nil end - end, - get = function(t) - return t[#t] - end -}, { - __call = function(t, zone) - if zone then - t[#t+1] = zone - else - return (assert(remove(t), "empty zone stack")) - end - end -}) - diff --git a/src/3rd party/luajit-2.0-BAK/src/lauxlib.h b/src/3rd party/luajit-2.0-BAK/src/lauxlib.h deleted file mode 100644 index fed1491b894..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lauxlib.h +++ /dev/null @@ -1,167 +0,0 @@ -/* -** $Id: lauxlib.h,v 1.88.1.1 2007/12/27 13:02:25 roberto Exp $ -** Auxiliary functions for building Lua libraries -** See Copyright Notice in lua.h -*/ - - -#ifndef lauxlib_h -#define lauxlib_h - - -#include -#include - -#include "lua.h" - - -#define luaL_getn(L,i) ((int)lua_objlen(L, i)) -#define luaL_setn(L,i,j) ((void)0) /* no op! */ - -/* extra error code for `luaL_load' */ -#define LUA_ERRFILE (LUA_ERRERR+1) - -typedef struct luaL_Reg { - const char *name; - lua_CFunction func; -} luaL_Reg; - -LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname, - const luaL_Reg *l, int nup); -LUALIB_API void (luaL_register) (lua_State *L, const char *libname, - const luaL_Reg *l); -LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); -LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); -LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname); -LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); -LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, - size_t *l); -LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, - const char *def, size_t *l); -LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); -LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); - -LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); -LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, - lua_Integer def); - -LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); -LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); -LUALIB_API void (luaL_checkany) (lua_State *L, int narg); - -LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); -LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); - -LUALIB_API void (luaL_where) (lua_State *L, int lvl); -LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); - -LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, - const char *const lst[]); - -LUALIB_API int (luaL_ref) (lua_State *L, int t); -LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); - -LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename); -LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, - const char *name); -LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); - -LUALIB_API lua_State *(luaL_newstate) (void); - - -LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, - const char *r); - -LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx, - const char *fname, int szhint); - -/* From Lua 5.2. */ -LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname); -LUALIB_API int luaL_execresult(lua_State *L, int stat); -LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename, - const char *mode); -LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, - const char *name, const char *mode); -LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, - int level); - - -/* -** =============================================================== -** some useful macros -** =============================================================== -*/ - -#define luaL_argcheck(L, cond,numarg,extramsg) \ - ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) -#define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) -#define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) -#define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) -#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) -#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) -#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) - -#define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) - -#define luaL_dofile(L, fn) \ - (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) - -#define luaL_dostring(L, s) \ - (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) - -#define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) - -#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) - -/* -** {====================================================== -** Generic Buffer manipulation -** ======================================================= -*/ - - - -typedef struct luaL_Buffer { - char *p; /* current position in buffer */ - int lvl; /* number of strings in the stack (level) */ - lua_State *L; - char buffer[LUAL_BUFFERSIZE]; -} luaL_Buffer; - -#define luaL_addchar(B,c) \ - ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ - (*(B)->p++ = (char)(c))) - -/* compatibility only */ -#define luaL_putchar(B,c) luaL_addchar(B,c) - -#define luaL_addsize(B,n) ((B)->p += (n)) - -LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); -LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B); -LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); -LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); -LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); -LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); - - -/* }====================================================== */ - - -/* compatibility with ref system */ - -/* pre-defined references */ -#define LUA_NOREF (-2) -#define LUA_REFNIL (-1) - -#define lua_ref(L,lock) ((lock) ? luaL_ref(L, LUA_REGISTRYINDEX) : \ - (lua_pushstring(L, "unlocked references are obsolete"), lua_error(L), 0)) - -#define lua_unref(L,ref) luaL_unref(L, LUA_REGISTRYINDEX, (ref)) - -#define lua_getref(L,ref) lua_rawgeti(L, LUA_REGISTRYINDEX, (ref)) - - -#define luaL_reg luaL_Reg - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_aux.c b/src/3rd party/luajit-2.0-BAK/src/lib_aux.c deleted file mode 100644 index 4a1b70ddc09..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_aux.c +++ /dev/null @@ -1,356 +0,0 @@ -/* -** Auxiliary library for the Lua/C API. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major parts taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#include -#include -#include - -#define lib_aux_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_state.h" -#include "lj_trace.h" -#include "lj_lib.h" - -#if LJ_TARGET_POSIX -#include -#endif - -/* -- I/O error handling -------------------------------------------------- */ - -LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname) -{ - if (stat) { - setboolV(L->top++, 1); - return 1; - } else { - int en = errno; /* Lua API calls may change this value. */ - setnilV(L->top++); - if (fname) - lua_pushfstring(L, "%s: %s", fname, strerror(en)); - else - lua_pushfstring(L, "%s", strerror(en)); - setintV(L->top++, en); - lj_trace_abort(G(L)); - return 3; - } -} - -LUALIB_API int luaL_execresult(lua_State *L, int stat) -{ - if (stat != -1) { -#if LJ_TARGET_POSIX - if (WIFSIGNALED(stat)) { - stat = WTERMSIG(stat); - setnilV(L->top++); - lua_pushliteral(L, "signal"); - } else { - if (WIFEXITED(stat)) - stat = WEXITSTATUS(stat); - if (stat == 0) - setboolV(L->top++, 1); - else - setnilV(L->top++); - lua_pushliteral(L, "exit"); - } -#else - if (stat == 0) - setboolV(L->top++, 1); - else - setnilV(L->top++); - lua_pushliteral(L, "exit"); -#endif - setintV(L->top++, stat); - return 3; - } - return luaL_fileresult(L, 0, NULL); -} - -/* -- Module registration ------------------------------------------------- */ - -LUALIB_API const char *luaL_findtable(lua_State *L, int idx, - const char *fname, int szhint) -{ - const char *e; - lua_pushvalue(L, idx); - do { - e = strchr(fname, '.'); - if (e == NULL) e = fname + strlen(fname); - lua_pushlstring(L, fname, (size_t)(e - fname)); - lua_rawget(L, -2); - if (lua_isnil(L, -1)) { /* no such field? */ - lua_pop(L, 1); /* remove this nil */ - lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */ - lua_pushlstring(L, fname, (size_t)(e - fname)); - lua_pushvalue(L, -2); - lua_settable(L, -4); /* set new table into field */ - } else if (!lua_istable(L, -1)) { /* field has a non-table value? */ - lua_pop(L, 2); /* remove table and value */ - return fname; /* return problematic part of the name */ - } - lua_remove(L, -2); /* remove previous table */ - fname = e + 1; - } while (*e == '.'); - return NULL; -} - -static int libsize(const luaL_Reg *l) -{ - int size = 0; - for (; l->name; l++) size++; - return size; -} - -LUALIB_API void luaL_openlib(lua_State *L, const char *libname, - const luaL_Reg *l, int nup) -{ - lj_lib_checkfpu(L); - if (libname) { - int size = libsize(l); - /* check whether lib already exists */ - luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); - lua_getfield(L, -1, libname); /* get _LOADED[libname] */ - if (!lua_istable(L, -1)) { /* not found? */ - lua_pop(L, 1); /* remove previous result */ - /* try global variable (and create one if it does not exist) */ - if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, size) != NULL) - lj_err_callerv(L, LJ_ERR_BADMODN, libname); - lua_pushvalue(L, -1); - lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ - } - lua_remove(L, -2); /* remove _LOADED table */ - lua_insert(L, -(nup+1)); /* move library table to below upvalues */ - } - for (; l->name; l++) { - int i; - for (i = 0; i < nup; i++) /* copy upvalues to the top */ - lua_pushvalue(L, -nup); - lua_pushcclosure(L, l->func, nup); - lua_setfield(L, -(nup+2), l->name); - } - lua_pop(L, nup); /* remove upvalues */ -} - -LUALIB_API void luaL_register(lua_State *L, const char *libname, - const luaL_Reg *l) -{ - luaL_openlib(L, libname, l, 0); -} - -LUALIB_API const char *luaL_gsub(lua_State *L, const char *s, - const char *p, const char *r) -{ - const char *wild; - size_t l = strlen(p); - luaL_Buffer b; - luaL_buffinit(L, &b); - while ((wild = strstr(s, p)) != NULL) { - luaL_addlstring(&b, s, (size_t)(wild - s)); /* push prefix */ - luaL_addstring(&b, r); /* push replacement in place of pattern */ - s = wild + l; /* continue after `p' */ - } - luaL_addstring(&b, s); /* push last suffix */ - luaL_pushresult(&b); - return lua_tostring(L, -1); -} - -/* -- Buffer handling ----------------------------------------------------- */ - -#define bufflen(B) ((size_t)((B)->p - (B)->buffer)) -#define bufffree(B) ((size_t)(LUAL_BUFFERSIZE - bufflen(B))) - -static int emptybuffer(luaL_Buffer *B) -{ - size_t l = bufflen(B); - if (l == 0) - return 0; /* put nothing on stack */ - lua_pushlstring(B->L, B->buffer, l); - B->p = B->buffer; - B->lvl++; - return 1; -} - -static void adjuststack(luaL_Buffer *B) -{ - if (B->lvl > 1) { - lua_State *L = B->L; - int toget = 1; /* number of levels to concat */ - size_t toplen = lua_strlen(L, -1); - do { - size_t l = lua_strlen(L, -(toget+1)); - if (!(B->lvl - toget + 1 >= LUA_MINSTACK/2 || toplen > l)) - break; - toplen += l; - toget++; - } while (toget < B->lvl); - lua_concat(L, toget); - B->lvl = B->lvl - toget + 1; - } -} - -LUALIB_API char *luaL_prepbuffer(luaL_Buffer *B) -{ - if (emptybuffer(B)) - adjuststack(B); - return B->buffer; -} - -LUALIB_API void luaL_addlstring(luaL_Buffer *B, const char *s, size_t l) -{ - while (l--) - luaL_addchar(B, *s++); -} - -LUALIB_API void luaL_addstring(luaL_Buffer *B, const char *s) -{ - luaL_addlstring(B, s, strlen(s)); -} - -LUALIB_API void luaL_pushresult(luaL_Buffer *B) -{ - emptybuffer(B); - lua_concat(B->L, B->lvl); - B->lvl = 1; -} - -LUALIB_API void luaL_addvalue(luaL_Buffer *B) -{ - lua_State *L = B->L; - size_t vl; - const char *s = lua_tolstring(L, -1, &vl); - if (vl <= bufffree(B)) { /* fit into buffer? */ - memcpy(B->p, s, vl); /* put it there */ - B->p += vl; - lua_pop(L, 1); /* remove from stack */ - } else { - if (emptybuffer(B)) - lua_insert(L, -2); /* put buffer before new value */ - B->lvl++; /* add new value into B stack */ - adjuststack(B); - } -} - -LUALIB_API void luaL_buffinit(lua_State *L, luaL_Buffer *B) -{ - B->L = L; - B->p = B->buffer; - B->lvl = 0; -} - -/* -- Reference management ------------------------------------------------ */ - -#define FREELIST_REF 0 - -/* Convert a stack index to an absolute index. */ -#define abs_index(L, i) \ - ((i) > 0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1) - -LUALIB_API int luaL_ref(lua_State *L, int t) -{ - int ref; - t = abs_index(L, t); - if (lua_isnil(L, -1)) { - lua_pop(L, 1); /* remove from stack */ - return LUA_REFNIL; /* `nil' has a unique fixed reference */ - } - lua_rawgeti(L, t, FREELIST_REF); /* get first free element */ - ref = (int)lua_tointeger(L, -1); /* ref = t[FREELIST_REF] */ - lua_pop(L, 1); /* remove it from stack */ - if (ref != 0) { /* any free element? */ - lua_rawgeti(L, t, ref); /* remove it from list */ - lua_rawseti(L, t, FREELIST_REF); /* (t[FREELIST_REF] = t[ref]) */ - } else { /* no free elements */ - ref = (int)lua_objlen(L, t); - ref++; /* create new reference */ - } - lua_rawseti(L, t, ref); - return ref; -} - -LUALIB_API void luaL_unref(lua_State *L, int t, int ref) -{ - if (ref >= 0) { - t = abs_index(L, t); - lua_rawgeti(L, t, FREELIST_REF); - lua_rawseti(L, t, ref); /* t[ref] = t[FREELIST_REF] */ - lua_pushinteger(L, ref); - lua_rawseti(L, t, FREELIST_REF); /* t[FREELIST_REF] = ref */ - } -} - -/* -- Default allocator and panic function -------------------------------- */ - -static int panic(lua_State *L) -{ - const char *s = lua_tostring(L, -1); - fputs("PANIC: unprotected error in call to Lua API (", stderr); - fputs(s ? s : "?", stderr); - fputc(')', stderr); fputc('\n', stderr); - fflush(stderr); - return 0; -} - -#ifdef LUAJIT_USE_SYSMALLOC - -#if LJ_64 && !defined(LUAJIT_USE_VALGRIND) -#error "Must use builtin allocator for 64 bit target" -#endif - -static void *mem_alloc(void *ud, void *ptr, size_t osize, size_t nsize) -{ - (void)ud; - (void)osize; - if (nsize == 0) { - free(ptr); - return NULL; - } else { - return realloc(ptr, nsize); - } -} - -LUALIB_API lua_State *luaL_newstate(void) -{ - lua_State *L = lua_newstate(mem_alloc, NULL); - if (L) G(L)->panic = panic; - return L; -} - -#else - -#include "lj_alloc.h" - -LUALIB_API lua_State *luaL_newstate(void) -{ - lua_State *L; - void *ud = lj_alloc_create(); - if (ud == NULL) return NULL; -#if LJ_64 - L = lj_state_newstate(lj_alloc_f, ud); -#else - L = lua_newstate(lj_alloc_f, ud); -#endif - if (L) G(L)->panic = panic; - return L; -} - -#if LJ_64 -LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) -{ - UNUSED(f); UNUSED(ud); - fputs("Must use luaL_newstate() for 64 bit target\n", stderr); - return NULL; -} -#endif - -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_base.c b/src/3rd party/luajit-2.0-BAK/src/lib_base.c deleted file mode 100644 index 35ccdbc71c3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_base.c +++ /dev/null @@ -1,664 +0,0 @@ -/* -** Base and coroutine library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2011 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#include - -#define lib_base_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_state.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cconv.h" -#endif -#include "lj_bc.h" -#include "lj_ff.h" -#include "lj_dispatch.h" -#include "lj_char.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" -#include "lj_lib.h" - -/* -- Base library: checks ------------------------------------------------ */ - -#define LJLIB_MODULE_base - -LJLIB_ASM(assert) LJLIB_REC(.) -{ - GCstr *s; - lj_lib_checkany(L, 1); - s = lj_lib_optstr(L, 2); - if (s) - lj_err_callermsg(L, strdata(s)); - else - lj_err_caller(L, LJ_ERR_ASSERT); - return FFH_UNREACHABLE; -} - -/* ORDER LJ_T */ -LJLIB_PUSH("nil") -LJLIB_PUSH("boolean") -LJLIB_PUSH(top-1) /* boolean */ -LJLIB_PUSH("userdata") -LJLIB_PUSH("string") -LJLIB_PUSH("upval") -LJLIB_PUSH("thread") -LJLIB_PUSH("proto") -LJLIB_PUSH("function") -LJLIB_PUSH("trace") -LJLIB_PUSH("cdata") -LJLIB_PUSH("table") -LJLIB_PUSH(top-9) /* userdata */ -LJLIB_PUSH("number") -LJLIB_ASM_(type) LJLIB_REC(.) -/* Recycle the lj_lib_checkany(L, 1) from assert. */ - -/* -- Base library: iterators --------------------------------------------- */ - -/* This solves a circular dependency problem -- change FF_next_N as needed. */ -LJ_STATIC_ASSERT((int)FF_next == FF_next_N); - -LJLIB_ASM(next) -{ - lj_lib_checktab(L, 1); - return FFH_UNREACHABLE; -} - -#if LJ_52 || LJ_HASFFI -static int ffh_pairs(lua_State *L, MMS mm) -{ - TValue *o = lj_lib_checkany(L, 1); - cTValue *mo = lj_meta_lookup(L, o, mm); - if ((LJ_52 || tviscdata(o)) && !tvisnil(mo)) { - L->top = o+1; /* Only keep one argument. */ - copyTV(L, L->base-1-LJ_FR2, mo); /* Replace callable. */ - return FFH_TAILCALL; - } else { - if (!tvistab(o)) lj_err_argt(L, 1, LUA_TTABLE); - if (LJ_FR2) { copyTV(L, o-1, o); o--; } - setfuncV(L, o-1, funcV(lj_lib_upvalue(L, 1))); - if (mm == MM_pairs) setnilV(o+1); else setintV(o+1, 0); - return FFH_RES(3); - } -} -#else -#define ffh_pairs(L, mm) (lj_lib_checktab(L, 1), FFH_UNREACHABLE) -#endif - -LJLIB_PUSH(lastcl) -LJLIB_ASM(pairs) LJLIB_REC(xpairs 0) -{ - return ffh_pairs(L, MM_pairs); -} - -LJLIB_NOREGUV LJLIB_ASM(ipairs_aux) LJLIB_REC(.) -{ - lj_lib_checktab(L, 1); - lj_lib_checkint(L, 2); - return FFH_UNREACHABLE; -} - -LJLIB_PUSH(lastcl) -LJLIB_ASM(ipairs) LJLIB_REC(xpairs 1) -{ - return ffh_pairs(L, MM_ipairs); -} - -/* -- Base library: getters and setters ----------------------------------- */ - -LJLIB_ASM_(getmetatable) LJLIB_REC(.) -/* Recycle the lj_lib_checkany(L, 1) from assert. */ - -LJLIB_ASM(setmetatable) LJLIB_REC(.) -{ - GCtab *t = lj_lib_checktab(L, 1); - GCtab *mt = lj_lib_checktabornil(L, 2); - if (!tvisnil(lj_meta_lookup(L, L->base, MM_metatable))) - lj_err_caller(L, LJ_ERR_PROTMT); - setgcref(t->metatable, obj2gco(mt)); - if (mt) { lj_gc_objbarriert(L, t, mt); } - settabV(L, L->base-1-LJ_FR2, t); - return FFH_RES(1); -} - -LJLIB_CF(getfenv) LJLIB_REC(.) -{ - GCfunc *fn; - cTValue *o = L->base; - if (!(o < L->top && tvisfunc(o))) { - int level = lj_lib_optint(L, 1, 1); - o = lj_debug_frame(L, level, &level); - if (o == NULL) - lj_err_arg(L, 1, LJ_ERR_INVLVL); - if (LJ_FR2) o--; - } - fn = &gcval(o)->fn; - settabV(L, L->top++, isluafunc(fn) ? tabref(fn->l.env) : tabref(L->env)); - return 1; -} - -LJLIB_CF(setfenv) -{ - GCfunc *fn; - GCtab *t = lj_lib_checktab(L, 2); - cTValue *o = L->base; - if (!(o < L->top && tvisfunc(o))) { - int level = lj_lib_checkint(L, 1); - if (level == 0) { - /* NOBARRIER: A thread (i.e. L) is never black. */ - setgcref(L->env, obj2gco(t)); - return 0; - } - o = lj_debug_frame(L, level, &level); - if (o == NULL) - lj_err_arg(L, 1, LJ_ERR_INVLVL); - if (LJ_FR2) o--; - } - fn = &gcval(o)->fn; - if (!isluafunc(fn)) - lj_err_caller(L, LJ_ERR_SETFENV); - setgcref(fn->l.env, obj2gco(t)); - lj_gc_objbarrier(L, obj2gco(fn), t); - setfuncV(L, L->top++, fn); - return 1; -} - -LJLIB_ASM(rawget) LJLIB_REC(.) -{ - lj_lib_checktab(L, 1); - lj_lib_checkany(L, 2); - return FFH_UNREACHABLE; -} - -LJLIB_CF(rawset) LJLIB_REC(.) -{ - lj_lib_checktab(L, 1); - lj_lib_checkany(L, 2); - L->top = 1+lj_lib_checkany(L, 3); - lua_rawset(L, 1); - return 1; -} - -LJLIB_CF(rawequal) LJLIB_REC(.) -{ - cTValue *o1 = lj_lib_checkany(L, 1); - cTValue *o2 = lj_lib_checkany(L, 2); - setboolV(L->top-1, lj_obj_equal(o1, o2)); - return 1; -} - -#if LJ_52 -LJLIB_CF(rawlen) LJLIB_REC(.) -{ - cTValue *o = L->base; - int32_t len; - if (L->top > o && tvisstr(o)) - len = (int32_t)strV(o)->len; - else - len = (int32_t)lj_tab_len(lj_lib_checktab(L, 1)); - setintV(L->top-1, len); - return 1; -} -#endif - -LJLIB_CF(unpack) -{ - GCtab *t = lj_lib_checktab(L, 1); - int32_t n, i = lj_lib_optint(L, 2, 1); - int32_t e = (L->base+3-1 < L->top && !tvisnil(L->base+3-1)) ? - lj_lib_checkint(L, 3) : (int32_t)lj_tab_len(t); - if (i > e) return 0; - n = e - i + 1; - if (n <= 0 || !lua_checkstack(L, n)) - lj_err_caller(L, LJ_ERR_UNPACK); - do { - cTValue *tv = lj_tab_getint(t, i); - if (tv) { - copyTV(L, L->top++, tv); - } else { - setnilV(L->top++); - } - } while (i++ < e); - return n; -} - -LJLIB_CF(select) LJLIB_REC(.) -{ - int32_t n = (int32_t)(L->top - L->base); - if (n >= 1 && tvisstr(L->base) && *strVdata(L->base) == '#') { - setintV(L->top-1, n-1); - return 1; - } else { - int32_t i = lj_lib_checkint(L, 1); - if (i < 0) i = n + i; else if (i > n) i = n; - if (i < 1) - lj_err_arg(L, 1, LJ_ERR_IDXRNG); - return n - i; - } -} - -/* -- Base library: conversions ------------------------------------------- */ - -LJLIB_ASM(tonumber) LJLIB_REC(.) -{ - int32_t base = lj_lib_optint(L, 2, 10); - if (base == 10) { - TValue *o = lj_lib_checkany(L, 1); - if (lj_strscan_numberobj(o)) { - copyTV(L, L->base-1-LJ_FR2, o); - return FFH_RES(1); - } -#if LJ_HASFFI - if (tviscdata(o)) { - CTState *cts = ctype_cts(L); - CType *ct = lj_ctype_rawref(cts, cdataV(o)->ctypeid); - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - if (ctype_isnum(ct->info) || ctype_iscomplex(ct->info)) { - if (LJ_DUALNUM && ctype_isinteger_or_bool(ct->info) && - ct->size <= 4 && !(ct->size == 4 && (ct->info & CTF_UNSIGNED))) { - int32_t i; - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_INT32), (uint8_t *)&i, o, 0); - setintV(L->base-1-LJ_FR2, i); - return FFH_RES(1); - } - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_DOUBLE), - (uint8_t *)&(L->base-1-LJ_FR2)->n, o, 0); - return FFH_RES(1); - } - } -#endif - } else { - const char *p = strdata(lj_lib_checkstr(L, 1)); - char *ep; - unsigned long ul; - if (base < 2 || base > 36) - lj_err_arg(L, 2, LJ_ERR_BASERNG); - ul = strtoul(p, &ep, base); - if (p != ep) { - while (lj_char_isspace((unsigned char)(*ep))) ep++; - if (*ep == '\0') { - if (LJ_DUALNUM && LJ_LIKELY(ul < 0x80000000u)) - setintV(L->base-1-LJ_FR2, (int32_t)ul); - else - setnumV(L->base-1-LJ_FR2, (lua_Number)ul); - return FFH_RES(1); - } - } - } - setnilV(L->base-1-LJ_FR2); - return FFH_RES(1); -} - -LJLIB_ASM(tostring) LJLIB_REC(.) -{ - TValue *o = lj_lib_checkany(L, 1); - cTValue *mo; - L->top = o+1; /* Only keep one argument. */ - if (!tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { - copyTV(L, L->base-1-LJ_FR2, mo); /* Replace callable. */ - return FFH_TAILCALL; - } - lj_gc_check(L); - setstrV(L, L->base-1-LJ_FR2, lj_strfmt_obj(L, L->base)); - return FFH_RES(1); -} - -/* -- Base library: throw and catch errors -------------------------------- */ - -LJLIB_CF(error) -{ - int32_t level = lj_lib_optint(L, 2, 1); - lua_settop(L, 1); - if (lua_isstring(L, 1) && level > 0) { - luaL_where(L, level); - lua_pushvalue(L, 1); - lua_concat(L, 2); - } - return lua_error(L); -} - -LJLIB_ASM(pcall) LJLIB_REC(.) -{ - lj_lib_checkany(L, 1); - lj_lib_checkfunc(L, 2); /* For xpcall only. */ - return FFH_UNREACHABLE; -} -LJLIB_ASM_(xpcall) LJLIB_REC(.) - -/* -- Base library: load Lua code ----------------------------------------- */ - -static int load_aux(lua_State *L, int status, int envarg) -{ - if (status == 0) { - if (tvistab(L->base+envarg-1)) { - GCfunc *fn = funcV(L->top-1); - GCtab *t = tabV(L->base+envarg-1); - setgcref(fn->c.env, obj2gco(t)); - lj_gc_objbarrier(L, fn, t); - } - return 1; - } else { - setnilV(L->top-2); - return 2; - } -} - -LJLIB_CF(loadfile) -{ - GCstr *fname = lj_lib_optstr(L, 1); - GCstr *mode = lj_lib_optstr(L, 2); - int status; - lua_settop(L, 3); /* Ensure env arg exists. */ - status = luaL_loadfilex(L, fname ? strdata(fname) : NULL, - mode ? strdata(mode) : NULL); - return load_aux(L, status, 3); -} - -static const char *reader_func(lua_State *L, void *ud, size_t *size) -{ - UNUSED(ud); - luaL_checkstack(L, 2, "too many nested functions"); - copyTV(L, L->top++, L->base); - lua_call(L, 0, 1); /* Call user-supplied function. */ - L->top--; - if (tvisnil(L->top)) { - *size = 0; - return NULL; - } else if (tvisstr(L->top) || tvisnumber(L->top)) { - copyTV(L, L->base+4, L->top); /* Anchor string in reserved stack slot. */ - return lua_tolstring(L, 5, size); - } else { - lj_err_caller(L, LJ_ERR_RDRSTR); - return NULL; - } -} - -LJLIB_CF(load) -{ - GCstr *name = lj_lib_optstr(L, 2); - GCstr *mode = lj_lib_optstr(L, 3); - int status; - if (L->base < L->top && (tvisstr(L->base) || tvisnumber(L->base))) { - GCstr *s = lj_lib_checkstr(L, 1); - lua_settop(L, 4); /* Ensure env arg exists. */ - status = luaL_loadbufferx(L, strdata(s), s->len, strdata(name ? name : s), - mode ? strdata(mode) : NULL); - } else { - lj_lib_checkfunc(L, 1); - lua_settop(L, 5); /* Reserve a slot for the string from the reader. */ - status = lua_loadx(L, reader_func, NULL, name ? strdata(name) : "=(load)", - mode ? strdata(mode) : NULL); - } - return load_aux(L, status, 4); -} - -LJLIB_CF(loadstring) -{ - return lj_cf_load(L); -} - -LJLIB_CF(dofile) -{ - GCstr *fname = lj_lib_optstr(L, 1); - setnilV(L->top); - L->top = L->base+1; - if (luaL_loadfile(L, fname ? strdata(fname) : NULL) != 0) - lua_error(L); - lua_call(L, 0, LUA_MULTRET); - return (int)(L->top - L->base) - 1; -} - -/* -- Base library: GC control -------------------------------------------- */ - -LJLIB_CF(gcinfo) -{ - setintV(L->top++, (G(L)->gc.total >> 10)); - return 1; -} - -LJLIB_CF(collectgarbage) -{ - int opt = lj_lib_checkopt(L, 1, LUA_GCCOLLECT, /* ORDER LUA_GC* */ - "\4stop\7restart\7collect\5count\1\377\4step\10setpause\12setstepmul"); - int32_t data = lj_lib_optint(L, 2, 0); - if (opt == LUA_GCCOUNT) { - setnumV(L->top, (lua_Number)G(L)->gc.total/1024.0); - } else { - int res = lua_gc(L, opt, data); - if (opt == LUA_GCSTEP) - setboolV(L->top, res); - else - setintV(L->top, res); - } - L->top++; - return 1; -} - -/* -- Base library: miscellaneous functions ------------------------------- */ - -LJLIB_PUSH(top-2) /* Upvalue holds weak table. */ -LJLIB_CF(newproxy) -{ - lua_settop(L, 1); - lua_newuserdata(L, 0); - if (lua_toboolean(L, 1) == 0) { /* newproxy(): without metatable. */ - return 1; - } else if (lua_isboolean(L, 1)) { /* newproxy(true): with metatable. */ - lua_newtable(L); - lua_pushvalue(L, -1); - lua_pushboolean(L, 1); - lua_rawset(L, lua_upvalueindex(1)); /* Remember mt in weak table. */ - } else { /* newproxy(proxy): inherit metatable. */ - int validproxy = 0; - if (lua_getmetatable(L, 1)) { - lua_rawget(L, lua_upvalueindex(1)); - validproxy = lua_toboolean(L, -1); - lua_pop(L, 1); - } - if (!validproxy) - lj_err_arg(L, 1, LJ_ERR_NOPROXY); - lua_getmetatable(L, 1); - } - lua_setmetatable(L, 2); - return 1; -} - -LJLIB_PUSH("tostring") -LJLIB_CF(print) -{ - ptrdiff_t i, nargs = L->top - L->base; - cTValue *tv = lj_tab_getstr(tabref(L->env), strV(lj_lib_upvalue(L, 1))); - int shortcut; - if (tv && !tvisnil(tv)) { - copyTV(L, L->top++, tv); - } else { - setstrV(L, L->top++, strV(lj_lib_upvalue(L, 1))); - lua_gettable(L, LUA_GLOBALSINDEX); - tv = L->top-1; - } - shortcut = (tvisfunc(tv) && funcV(tv)->c.ffid == FF_tostring); - for (i = 0; i < nargs; i++) { - cTValue *o = &L->base[i]; - char buf[STRFMT_MAXBUF_NUM]; - const char *str; - size_t size; - MSize len; - if (shortcut && (str = lj_strfmt_wstrnum(buf, o, &len)) != NULL) { - size = len; - } else { - copyTV(L, L->top+1, o); - copyTV(L, L->top, L->top-1); - L->top += 2; - lua_call(L, 1, 1); - str = lua_tolstring(L, -1, &size); - if (!str) - lj_err_caller(L, LJ_ERR_PRTOSTR); - L->top--; - } - if (i) - putchar('\t'); - fwrite(str, 1, size, stdout); - } - putchar('\n'); - return 0; -} - -LJLIB_PUSH(top-3) -LJLIB_SET(_VERSION) - -#include "lj_libdef.h" - -/* -- Coroutine library --------------------------------------------------- */ - -#define LJLIB_MODULE_coroutine - -LJLIB_CF(coroutine_status) -{ - const char *s; - lua_State *co; - if (!(L->top > L->base && tvisthread(L->base))) - lj_err_arg(L, 1, LJ_ERR_NOCORO); - co = threadV(L->base); - if (co == L) s = "running"; - else if (co->status == LUA_YIELD) s = "suspended"; - else if (co->status != 0) s = "dead"; - else if (co->base > tvref(co->stack)+1+LJ_FR2) s = "normal"; - else if (co->top == co->base) s = "dead"; - else s = "suspended"; - lua_pushstring(L, s); - return 1; -} - -LJLIB_CF(coroutine_running) -{ -#if LJ_52 - int ismain = lua_pushthread(L); - setboolV(L->top++, ismain); - return 2; -#else - if (lua_pushthread(L)) - setnilV(L->top++); - return 1; -#endif -} - -LJLIB_CF(coroutine_create) -{ - lua_State *L1; - if (!(L->base < L->top && tvisfunc(L->base))) - lj_err_argt(L, 1, LUA_TFUNCTION); - L1 = lua_newthread(L); - setfuncV(L, L1->top++, funcV(L->base)); - return 1; -} - -LJLIB_ASM(coroutine_yield) -{ - lj_err_caller(L, LJ_ERR_CYIELD); - return FFH_UNREACHABLE; -} - -static int ffh_resume(lua_State *L, lua_State *co, int wrap) -{ - if (co->cframe != NULL || co->status > LUA_YIELD || - (co->status == 0 && co->top == co->base)) { - ErrMsg em = co->cframe ? LJ_ERR_CORUN : LJ_ERR_CODEAD; - if (wrap) lj_err_caller(L, em); - setboolV(L->base-1-LJ_FR2, 0); - setstrV(L, L->base-LJ_FR2, lj_err_str(L, em)); - return FFH_RES(2); - } - lj_state_growstack(co, (MSize)(L->top - L->base)); - return FFH_RETRY; -} - -LJLIB_ASM(coroutine_resume) -{ - if (!(L->top > L->base && tvisthread(L->base))) - lj_err_arg(L, 1, LJ_ERR_NOCORO); - return ffh_resume(L, threadV(L->base), 0); -} - -LJLIB_NOREG LJLIB_ASM(coroutine_wrap_aux) -{ - return ffh_resume(L, threadV(lj_lib_upvalue(L, 1)), 1); -} - -/* Inline declarations. */ -LJ_ASMF void lj_ff_coroutine_wrap_aux(void); -#if !(LJ_TARGET_MIPS && defined(ljamalg_c)) -LJ_FUNCA_NORET void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, - lua_State *co); -#endif - -/* Error handler, called from assembler VM. */ -void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, lua_State *co) -{ - co->top--; copyTV(L, L->top, co->top); L->top++; - if (tvisstr(L->top-1)) - lj_err_callermsg(L, strVdata(L->top-1)); - else - lj_err_run(L); -} - -/* Forward declaration. */ -static void setpc_wrap_aux(lua_State *L, GCfunc *fn); - -LJLIB_CF(coroutine_wrap) -{ - GCfunc *fn; - lj_cf_coroutine_create(L); - fn = lj_lib_pushcc(L, lj_ffh_coroutine_wrap_aux, FF_coroutine_wrap_aux, 1); - setpc_wrap_aux(L, fn); - return 1; -} - -#include "lj_libdef.h" - -/* Fix the PC of wrap_aux. Really ugly workaround. */ -static void setpc_wrap_aux(lua_State *L, GCfunc *fn) -{ - setmref(fn->c.pc, &L2GG(L)->bcff[lj_lib_init_coroutine[1]+2]); -} - -/* ------------------------------------------------------------------------ */ - -static void newproxy_weaktable(lua_State *L) -{ - /* NOBARRIER: The table is new (marked white). */ - GCtab *t = lj_tab_new(L, 0, 1); - settabV(L, L->top++, t); - setgcref(t->metatable, obj2gco(t)); - setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "__mode")), - lj_str_newlit(L, "kv")); - t->nomm = (uint8_t)(~(1u<env); - settabV(L, lj_tab_setstr(L, env, lj_str_newlit(L, "_G")), env); - lua_pushliteral(L, LUA_VERSION); /* top-3. */ - newproxy_weaktable(L); /* top-2. */ - LJ_LIB_REG(L, "_G", base); - LJ_LIB_REG(L, LUA_COLIBNAME, coroutine); - return 2; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_bit.c b/src/3rd party/luajit-2.0-BAK/src/lib_bit.c deleted file mode 100644 index 55cb2a845a8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_bit.c +++ /dev/null @@ -1,180 +0,0 @@ -/* -** Bit manipulation library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lib_bit_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lj_cconv.h" -#include "lj_carith.h" -#endif -#include "lj_ff.h" -#include "lj_lib.h" - -/* ------------------------------------------------------------------------ */ - -#define LJLIB_MODULE_bit - -#if LJ_HASFFI -static int bit_result64(lua_State *L, CTypeID id, uint64_t x) -{ - GCcdata *cd = lj_cdata_new_(L, id, 8); - *(uint64_t *)cdataptr(cd) = x; - setcdataV(L, L->base-1-LJ_FR2, cd); - return FFH_RES(1); -} -#else -static int32_t bit_checkbit(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && lj_strscan_numberobj(o))) - lj_err_argt(L, narg, LUA_TNUMBER); - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else { - int32_t i = lj_num2bit(numV(o)); - if (LJ_DUALNUM) setintV(o, i); - return i; - } -} -#endif - -LJLIB_ASM(bit_tobit) LJLIB_REC(bit_tobit) -{ -#if LJ_HASFFI - CTypeID id = 0; - setintV(L->base-1-LJ_FR2, (int32_t)lj_carith_check64(L, 1, &id)); - return FFH_RES(1); -#else - lj_lib_checknumber(L, 1); - return FFH_RETRY; -#endif -} - -LJLIB_ASM(bit_bnot) LJLIB_REC(bit_unary IR_BNOT) -{ -#if LJ_HASFFI - CTypeID id = 0; - uint64_t x = lj_carith_check64(L, 1, &id); - return id ? bit_result64(L, id, ~x) : FFH_RETRY; -#else - lj_lib_checknumber(L, 1); - return FFH_RETRY; -#endif -} - -LJLIB_ASM(bit_bswap) LJLIB_REC(bit_unary IR_BSWAP) -{ -#if LJ_HASFFI - CTypeID id = 0; - uint64_t x = lj_carith_check64(L, 1, &id); - return id ? bit_result64(L, id, lj_bswap64(x)) : FFH_RETRY; -#else - lj_lib_checknumber(L, 1); - return FFH_RETRY; -#endif -} - -LJLIB_ASM(bit_lshift) LJLIB_REC(bit_shift IR_BSHL) -{ -#if LJ_HASFFI - CTypeID id = 0, id2 = 0; - uint64_t x = lj_carith_check64(L, 1, &id); - int32_t sh = (int32_t)lj_carith_check64(L, 2, &id2); - if (id) { - x = lj_carith_shift64(x, sh, curr_func(L)->c.ffid - (int)FF_bit_lshift); - return bit_result64(L, id, x); - } - if (id2) setintV(L->base+1, sh); - return FFH_RETRY; -#else - lj_lib_checknumber(L, 1); - bit_checkbit(L, 2); - return FFH_RETRY; -#endif -} -LJLIB_ASM_(bit_rshift) LJLIB_REC(bit_shift IR_BSHR) -LJLIB_ASM_(bit_arshift) LJLIB_REC(bit_shift IR_BSAR) -LJLIB_ASM_(bit_rol) LJLIB_REC(bit_shift IR_BROL) -LJLIB_ASM_(bit_ror) LJLIB_REC(bit_shift IR_BROR) - -LJLIB_ASM(bit_band) LJLIB_REC(bit_nary IR_BAND) -{ -#if LJ_HASFFI - CTypeID id = 0; - TValue *o = L->base, *top = L->top; - int i = 0; - do { lj_carith_check64(L, ++i, &id); } while (++o < top); - if (id) { - CTState *cts = ctype_cts(L); - CType *ct = ctype_get(cts, id); - int op = curr_func(L)->c.ffid - (int)FF_bit_bor; - uint64_t x, y = op >= 0 ? 0 : ~(uint64_t)0; - o = L->base; - do { - lj_cconv_ct_tv(cts, ct, (uint8_t *)&x, o, 0); - if (op < 0) y &= x; else if (op == 0) y |= x; else y ^= x; - } while (++o < top); - return bit_result64(L, id, y); - } - return FFH_RETRY; -#else - int i = 0; - do { lj_lib_checknumber(L, ++i); } while (L->base+i < L->top); - return FFH_RETRY; -#endif -} -LJLIB_ASM_(bit_bor) LJLIB_REC(bit_nary IR_BOR) -LJLIB_ASM_(bit_bxor) LJLIB_REC(bit_nary IR_BXOR) - -/* ------------------------------------------------------------------------ */ - -LJLIB_CF(bit_tohex) LJLIB_REC(.) -{ -#if LJ_HASFFI - CTypeID id = 0, id2 = 0; - uint64_t b = lj_carith_check64(L, 1, &id); - int32_t n = L->base+1>=L->top ? (id ? 16 : 8) : - (int32_t)lj_carith_check64(L, 2, &id2); -#else - uint32_t b = (uint32_t)bit_checkbit(L, 1); - int32_t n = L->base+1>=L->top ? 8 : bit_checkbit(L, 2); -#endif - SBuf *sb = lj_buf_tmp_(L); - SFormat sf = (STRFMT_UINT|STRFMT_T_HEX); - if (n < 0) { n = -n; sf |= STRFMT_F_UPPER; } - sf |= ((SFormat)((n+1)&255) << STRFMT_SH_PREC); -#if LJ_HASFFI - if (n < 16) b &= ((uint64_t)1 << 4*n)-1; -#else - if (n < 8) b &= (1u << 4*n)-1; -#endif - sb = lj_strfmt_putfxint(sb, sf, b); - setstrV(L, L->top-1, lj_buf_str(L, sb)); - lj_gc_check(L); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_bit(lua_State *L) -{ - LJ_LIB_REG(L, LUA_BITLIBNAME, bit); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_debug.c b/src/3rd party/luajit-2.0-BAK/src/lib_debug.c deleted file mode 100644 index b610fb4dcdd..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_debug.c +++ /dev/null @@ -1,405 +0,0 @@ -/* -** Debug library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lib_debug_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_lib.h" - -/* ------------------------------------------------------------------------ */ - -#define LJLIB_MODULE_debug - -LJLIB_CF(debug_getregistry) -{ - copyTV(L, L->top++, registry(L)); - return 1; -} - -LJLIB_CF(debug_getmetatable) LJLIB_REC(.) -{ - lj_lib_checkany(L, 1); - if (!lua_getmetatable(L, 1)) { - setnilV(L->top-1); - } - return 1; -} - -LJLIB_CF(debug_setmetatable) -{ - lj_lib_checktabornil(L, 2); - L->top = L->base+2; - lua_setmetatable(L, 1); -#if !LJ_52 - setboolV(L->top-1, 1); -#endif - return 1; -} - -LJLIB_CF(debug_getfenv) -{ - lj_lib_checkany(L, 1); - lua_getfenv(L, 1); - return 1; -} - -LJLIB_CF(debug_setfenv) -{ - lj_lib_checktab(L, 2); - L->top = L->base+2; - if (!lua_setfenv(L, 1)) - lj_err_caller(L, LJ_ERR_SETFENV); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -static void settabss(lua_State *L, const char *i, const char *v) -{ - lua_pushstring(L, v); - lua_setfield(L, -2, i); -} - -static void settabsi(lua_State *L, const char *i, int v) -{ - lua_pushinteger(L, v); - lua_setfield(L, -2, i); -} - -static void settabsb(lua_State *L, const char *i, int v) -{ - lua_pushboolean(L, v); - lua_setfield(L, -2, i); -} - -static lua_State *getthread(lua_State *L, int *arg) -{ - if (L->base < L->top && tvisthread(L->base)) { - *arg = 1; - return threadV(L->base); - } else { - *arg = 0; - return L; - } -} - -static void treatstackoption(lua_State *L, lua_State *L1, const char *fname) -{ - if (L == L1) { - lua_pushvalue(L, -2); - lua_remove(L, -3); - } - else - lua_xmove(L1, L, 1); - lua_setfield(L, -2, fname); -} - -LJLIB_CF(debug_getinfo) -{ - lj_Debug ar; - int arg, opt_f = 0, opt_L = 0; - lua_State *L1 = getthread(L, &arg); - const char *options = luaL_optstring(L, arg+2, "flnSu"); - if (lua_isnumber(L, arg+1)) { - if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), (lua_Debug *)&ar)) { - setnilV(L->top-1); - return 1; - } - } else if (L->base+arg < L->top && tvisfunc(L->base+arg)) { - options = lua_pushfstring(L, ">%s", options); - setfuncV(L1, L1->top++, funcV(L->base+arg)); - } else { - lj_err_arg(L, arg+1, LJ_ERR_NOFUNCL); - } - if (!lj_debug_getinfo(L1, options, &ar, 1)) - lj_err_arg(L, arg+2, LJ_ERR_INVOPT); - lua_createtable(L, 0, 16); /* Create result table. */ - for (; *options; options++) { - switch (*options) { - case 'S': - settabss(L, "source", ar.source); - settabss(L, "short_src", ar.short_src); - settabsi(L, "linedefined", ar.linedefined); - settabsi(L, "lastlinedefined", ar.lastlinedefined); - settabss(L, "what", ar.what); - break; - case 'l': - settabsi(L, "currentline", ar.currentline); - break; - case 'u': - settabsi(L, "nups", ar.nups); - settabsi(L, "nparams", ar.nparams); - settabsb(L, "isvararg", ar.isvararg); - break; - case 'n': - settabss(L, "name", ar.name); - settabss(L, "namewhat", ar.namewhat); - break; - case 'f': opt_f = 1; break; - case 'L': opt_L = 1; break; - default: break; - } - } - if (opt_L) treatstackoption(L, L1, "activelines"); - if (opt_f) treatstackoption(L, L1, "func"); - return 1; /* Return result table. */ -} - -LJLIB_CF(debug_getlocal) -{ - int arg; - lua_State *L1 = getthread(L, &arg); - lua_Debug ar; - const char *name; - int slot = lj_lib_checkint(L, arg+2); - if (tvisfunc(L->base+arg)) { - L->top = L->base+arg+1; - lua_pushstring(L, lua_getlocal(L, NULL, slot)); - return 1; - } - if (!lua_getstack(L1, lj_lib_checkint(L, arg+1), &ar)) - lj_err_arg(L, arg+1, LJ_ERR_LVLRNG); - name = lua_getlocal(L1, &ar, slot); - if (name) { - lua_xmove(L1, L, 1); - lua_pushstring(L, name); - lua_pushvalue(L, -2); - return 2; - } else { - setnilV(L->top-1); - return 1; - } -} - -LJLIB_CF(debug_setlocal) -{ - int arg; - lua_State *L1 = getthread(L, &arg); - lua_Debug ar; - TValue *tv; - if (!lua_getstack(L1, lj_lib_checkint(L, arg+1), &ar)) - lj_err_arg(L, arg+1, LJ_ERR_LVLRNG); - tv = lj_lib_checkany(L, arg+3); - copyTV(L1, L1->top++, tv); - lua_pushstring(L, lua_setlocal(L1, &ar, lj_lib_checkint(L, arg+2))); - return 1; -} - -static int debug_getupvalue(lua_State *L, int get) -{ - int32_t n = lj_lib_checkint(L, 2); - const char *name; - lj_lib_checkfunc(L, 1); - name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); - if (name) { - lua_pushstring(L, name); - if (!get) return 1; - copyTV(L, L->top, L->top-2); - L->top++; - return 2; - } - return 0; -} - -LJLIB_CF(debug_getupvalue) -{ - return debug_getupvalue(L, 1); -} - -LJLIB_CF(debug_setupvalue) -{ - lj_lib_checkany(L, 3); - return debug_getupvalue(L, 0); -} - -LJLIB_CF(debug_upvalueid) -{ - GCfunc *fn = lj_lib_checkfunc(L, 1); - int32_t n = lj_lib_checkint(L, 2) - 1; - if ((uint32_t)n >= fn->l.nupvalues) - lj_err_arg(L, 2, LJ_ERR_IDXRNG); - setlightudV(L->top-1, isluafunc(fn) ? (void *)gcref(fn->l.uvptr[n]) : - (void *)&fn->c.upvalue[n]); - return 1; -} - -LJLIB_CF(debug_upvaluejoin) -{ - GCfunc *fn[2]; - GCRef *p[2]; - int i; - for (i = 0; i < 2; i++) { - int32_t n; - fn[i] = lj_lib_checkfunc(L, 2*i+1); - if (!isluafunc(fn[i])) - lj_err_arg(L, 2*i+1, LJ_ERR_NOLFUNC); - n = lj_lib_checkint(L, 2*i+2) - 1; - if ((uint32_t)n >= fn[i]->l.nupvalues) - lj_err_arg(L, 2*i+2, LJ_ERR_IDXRNG); - p[i] = &fn[i]->l.uvptr[n]; - } - setgcrefr(*p[0], *p[1]); - lj_gc_objbarrier(L, fn[0], gcref(*p[1])); - return 0; -} - -#if LJ_52 -LJLIB_CF(debug_getuservalue) -{ - TValue *o = L->base; - if (o < L->top && tvisudata(o)) - settabV(L, o, tabref(udataV(o)->env)); - else - setnilV(o); - L->top = o+1; - return 1; -} - -LJLIB_CF(debug_setuservalue) -{ - TValue *o = L->base; - if (!(o < L->top && tvisudata(o))) - lj_err_argt(L, 1, LUA_TUSERDATA); - if (!(o+1 < L->top && tvistab(o+1))) - lj_err_argt(L, 2, LUA_TTABLE); - L->top = o+2; - lua_setfenv(L, 1); - return 1; -} -#endif - -/* ------------------------------------------------------------------------ */ - -static const char KEY_HOOK = 'h'; - -static void hookf(lua_State *L, lua_Debug *ar) -{ - static const char *const hooknames[] = - {"call", "return", "line", "count", "tail return"}; - lua_pushlightuserdata(L, (void *)&KEY_HOOK); - lua_rawget(L, LUA_REGISTRYINDEX); - if (lua_isfunction(L, -1)) { - lua_pushstring(L, hooknames[(int)ar->event]); - if (ar->currentline >= 0) - lua_pushinteger(L, ar->currentline); - else lua_pushnil(L); - lua_call(L, 2, 0); - } -} - -static int makemask(const char *smask, int count) -{ - int mask = 0; - if (strchr(smask, 'c')) mask |= LUA_MASKCALL; - if (strchr(smask, 'r')) mask |= LUA_MASKRET; - if (strchr(smask, 'l')) mask |= LUA_MASKLINE; - if (count > 0) mask |= LUA_MASKCOUNT; - return mask; -} - -static char *unmakemask(int mask, char *smask) -{ - int i = 0; - if (mask & LUA_MASKCALL) smask[i++] = 'c'; - if (mask & LUA_MASKRET) smask[i++] = 'r'; - if (mask & LUA_MASKLINE) smask[i++] = 'l'; - smask[i] = '\0'; - return smask; -} - -LJLIB_CF(debug_sethook) -{ - int arg, mask, count; - lua_Hook func; - (void)getthread(L, &arg); - if (lua_isnoneornil(L, arg+1)) { - lua_settop(L, arg+1); - func = NULL; mask = 0; count = 0; /* turn off hooks */ - } else { - const char *smask = luaL_checkstring(L, arg+2); - luaL_checktype(L, arg+1, LUA_TFUNCTION); - count = luaL_optint(L, arg+3, 0); - func = hookf; mask = makemask(smask, count); - } - lua_pushlightuserdata(L, (void *)&KEY_HOOK); - lua_pushvalue(L, arg+1); - lua_rawset(L, LUA_REGISTRYINDEX); - lua_sethook(L, func, mask, count); - return 0; -} - -LJLIB_CF(debug_gethook) -{ - char buff[5]; - int mask = lua_gethookmask(L); - lua_Hook hook = lua_gethook(L); - if (hook != NULL && hook != hookf) { /* external hook? */ - lua_pushliteral(L, "external hook"); - } else { - lua_pushlightuserdata(L, (void *)&KEY_HOOK); - lua_rawget(L, LUA_REGISTRYINDEX); /* get hook */ - } - lua_pushstring(L, unmakemask(mask, buff)); - lua_pushinteger(L, lua_gethookcount(L)); - return 3; -} - -/* ------------------------------------------------------------------------ */ - -LJLIB_CF(debug_debug) -{ - for (;;) { - char buffer[250]; - fputs("lua_debug> ", stderr); - if (fgets(buffer, sizeof(buffer), stdin) == 0 || - strcmp(buffer, "cont\n") == 0) - return 0; - if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || - lua_pcall(L, 0, 0, 0)) { - fputs(lua_tostring(L, -1), stderr); - fputs("\n", stderr); - } - lua_settop(L, 0); /* remove eventual returns */ - } -} - -/* ------------------------------------------------------------------------ */ - -#define LEVELS1 12 /* size of the first part of the stack */ -#define LEVELS2 10 /* size of the second part of the stack */ - -LJLIB_CF(debug_traceback) -{ - int arg; - lua_State *L1 = getthread(L, &arg); - const char *msg = lua_tostring(L, arg+1); - if (msg == NULL && L->top > L->base+arg) - L->top = L->base+arg+1; - else - luaL_traceback(L, L1, msg, lj_lib_optint(L, arg+2, (L == L1))); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_debug(lua_State *L) -{ - LJ_LIB_REG(L, LUA_DBLIBNAME, debug); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_ffi.c b/src/3rd party/luajit-2.0-BAK/src/lib_ffi.c deleted file mode 100644 index b2b2d37ff7b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_ffi.c +++ /dev/null @@ -1,872 +0,0 @@ -/* -** FFI library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lib_ffi_c -#define LUA_LIB - -#include - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_ctype.h" -#include "lj_cparse.h" -#include "lj_cdata.h" -#include "lj_cconv.h" -#include "lj_carith.h" -#include "lj_ccall.h" -#include "lj_ccallback.h" -#include "lj_clib.h" -#include "lj_strfmt.h" -#include "lj_ff.h" -#include "lj_lib.h" - -/* -- C type checks ------------------------------------------------------- */ - -/* Check first argument for a C type and returns its ID. */ -static CTypeID ffi_checkctype(lua_State *L, CTState *cts, TValue *param) -{ - TValue *o = L->base; - if (!(o < L->top)) { - err_argtype: - lj_err_argtype(L, 1, "C type"); - } - if (tvisstr(o)) { /* Parse an abstract C type declaration. */ - GCstr *s = strV(o); - CPState cp; - int errcode; - cp.L = L; - cp.cts = cts; - cp.srcname = strdata(s); - cp.p = strdata(s); - cp.param = param; - cp.mode = CPARSE_MODE_ABSTRACT|CPARSE_MODE_NOIMPLICIT; - errcode = lj_cparse(&cp); - if (errcode) lj_err_throw(L, errcode); /* Propagate errors. */ - return cp.val.id; - } else { - GCcdata *cd; - if (!tviscdata(o)) goto err_argtype; - if (param && param < L->top) lj_err_arg(L, 1, LJ_ERR_FFI_NUMPARAM); - cd = cdataV(o); - return cd->ctypeid == CTID_CTYPEID ? *(CTypeID *)cdataptr(cd) : cd->ctypeid; - } -} - -/* Check argument for C data and return it. */ -static GCcdata *ffi_checkcdata(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && tviscdata(o))) - lj_err_argt(L, narg, LUA_TCDATA); - return cdataV(o); -} - -/* Convert argument to C pointer. */ -static void *ffi_checkptr(lua_State *L, int narg, CTypeID id) -{ - CTState *cts = ctype_cts(L); - TValue *o = L->base + narg-1; - void *p; - if (o >= L->top) - lj_err_arg(L, narg, LJ_ERR_NOVAL); - lj_cconv_ct_tv(cts, ctype_get(cts, id), (uint8_t *)&p, o, CCF_ARG(narg)); - return p; -} - -/* Convert argument to int32_t. */ -static int32_t ffi_checkint(lua_State *L, int narg) -{ - CTState *cts = ctype_cts(L); - TValue *o = L->base + narg-1; - int32_t i; - if (o >= L->top) - lj_err_arg(L, narg, LJ_ERR_NOVAL); - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_INT32), (uint8_t *)&i, o, - CCF_ARG(narg)); - return i; -} - -/* -- C type metamethods -------------------------------------------------- */ - -#define LJLIB_MODULE_ffi_meta - -/* Handle ctype __index/__newindex metamethods. */ -static int ffi_index_meta(lua_State *L, CTState *cts, CType *ct, MMS mm) -{ - CTypeID id = ctype_typeid(cts, ct); - cTValue *tv = lj_ctype_meta(cts, id, mm); - TValue *base = L->base; - if (!tv) { - const char *s; - err_index: - s = strdata(lj_ctype_repr(L, id, NULL)); - if (tvisstr(L->base+1)) { - lj_err_callerv(L, LJ_ERR_FFI_BADMEMBER, s, strVdata(L->base+1)); - } else { - const char *key = tviscdata(L->base+1) ? - strdata(lj_ctype_repr(L, cdataV(L->base+1)->ctypeid, NULL)) : - lj_typename(L->base+1); - lj_err_callerv(L, LJ_ERR_FFI_BADIDXW, s, key); - } - } - if (!tvisfunc(tv)) { - if (mm == MM_index) { - cTValue *o = lj_meta_tget(L, tv, base+1); - if (o) { - if (tvisnil(o)) goto err_index; - copyTV(L, L->top-1, o); - return 1; - } - } else { - TValue *o = lj_meta_tset(L, tv, base+1); - if (o) { - copyTV(L, o, base+2); - return 0; - } - } - copyTV(L, base, L->top); - tv = L->top-1-LJ_FR2; - } - return lj_meta_tailcall(L, tv); -} - -LJLIB_CF(ffi_meta___index) LJLIB_REC(cdata_index 0) -{ - CTState *cts = ctype_cts(L); - CTInfo qual = 0; - CType *ct; - uint8_t *p; - TValue *o = L->base; - if (!(o+1 < L->top && tviscdata(o))) /* Also checks for presence of key. */ - lj_err_argt(L, 1, LUA_TCDATA); - ct = lj_cdata_index(cts, cdataV(o), o+1, &p, &qual); - if ((qual & 1)) - return ffi_index_meta(L, cts, ct, MM_index); - if (lj_cdata_get(cts, ct, L->top-1, p)) - lj_gc_check(L); - return 1; -} - -LJLIB_CF(ffi_meta___newindex) LJLIB_REC(cdata_index 1) -{ - CTState *cts = ctype_cts(L); - CTInfo qual = 0; - CType *ct; - uint8_t *p; - TValue *o = L->base; - if (!(o+2 < L->top && tviscdata(o))) /* Also checks for key and value. */ - lj_err_argt(L, 1, LUA_TCDATA); - ct = lj_cdata_index(cts, cdataV(o), o+1, &p, &qual); - if ((qual & 1)) { - if ((qual & CTF_CONST)) - lj_err_caller(L, LJ_ERR_FFI_WRCONST); - return ffi_index_meta(L, cts, ct, MM_newindex); - } - lj_cdata_set(cts, ct, p, o+2, qual); - return 0; -} - -/* Common handler for cdata arithmetic. */ -static int ffi_arith(lua_State *L) -{ - MMS mm = (MMS)(curr_func(L)->c.ffid - (int)FF_ffi_meta___eq + (int)MM_eq); - return lj_carith_op(L, mm); -} - -/* The following functions must be in contiguous ORDER MM. */ -LJLIB_CF(ffi_meta___eq) LJLIB_REC(cdata_arith MM_eq) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___len) LJLIB_REC(cdata_arith MM_len) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___lt) LJLIB_REC(cdata_arith MM_lt) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___le) LJLIB_REC(cdata_arith MM_le) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___concat) LJLIB_REC(cdata_arith MM_concat) -{ - return ffi_arith(L); -} - -/* Forward declaration. */ -static int lj_cf_ffi_new(lua_State *L); - -LJLIB_CF(ffi_meta___call) LJLIB_REC(cdata_call) -{ - CTState *cts = ctype_cts(L); - GCcdata *cd = ffi_checkcdata(L, 1); - CTypeID id = cd->ctypeid; - CType *ct; - cTValue *tv; - MMS mm = MM_call; - if (cd->ctypeid == CTID_CTYPEID) { - id = *(CTypeID *)cdataptr(cd); - mm = MM_new; - } else { - int ret = lj_ccall_func(L, cd); - if (ret >= 0) - return ret; - } - /* Handle ctype __call/__new metamethod. */ - ct = ctype_raw(cts, id); - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, mm); - if (tv) - return lj_meta_tailcall(L, tv); - else if (mm == MM_call) - lj_err_callerv(L, LJ_ERR_FFI_BADCALL, strdata(lj_ctype_repr(L, id, NULL))); - return lj_cf_ffi_new(L); -} - -LJLIB_CF(ffi_meta___add) LJLIB_REC(cdata_arith MM_add) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___sub) LJLIB_REC(cdata_arith MM_sub) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___mul) LJLIB_REC(cdata_arith MM_mul) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___div) LJLIB_REC(cdata_arith MM_div) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___mod) LJLIB_REC(cdata_arith MM_mod) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___pow) LJLIB_REC(cdata_arith MM_pow) -{ - return ffi_arith(L); -} - -LJLIB_CF(ffi_meta___unm) LJLIB_REC(cdata_arith MM_unm) -{ - return ffi_arith(L); -} -/* End of contiguous ORDER MM. */ - -LJLIB_CF(ffi_meta___tostring) -{ - GCcdata *cd = ffi_checkcdata(L, 1); - const char *msg = "cdata<%s>: %p"; - CTypeID id = cd->ctypeid; - void *p = cdataptr(cd); - if (id == CTID_CTYPEID) { - msg = "ctype<%s>"; - id = *(CTypeID *)p; - } else { - CTState *cts = ctype_cts(L); - CType *ct = ctype_raw(cts, id); - if (ctype_isref(ct->info)) { - p = *(void **)p; - ct = ctype_rawchild(cts, ct); - } - if (ctype_iscomplex(ct->info)) { - setstrV(L, L->top-1, lj_ctype_repr_complex(L, cdataptr(cd), ct->size)); - goto checkgc; - } else if (ct->size == 8 && ctype_isinteger(ct->info)) { - setstrV(L, L->top-1, lj_ctype_repr_int64(L, *(uint64_t *)cdataptr(cd), - (ct->info & CTF_UNSIGNED))); - goto checkgc; - } else if (ctype_isfunc(ct->info)) { - p = *(void **)p; - } else if (ctype_isenum(ct->info)) { - msg = "cdata<%s>: %d"; - p = (void *)(uintptr_t)*(uint32_t **)p; - } else { - if (ctype_isptr(ct->info)) { - p = cdata_getptr(p, ct->size); - ct = ctype_rawchild(cts, ct); - } - if (ctype_isstruct(ct->info) || ctype_isvector(ct->info)) { - /* Handle ctype __tostring metamethod. */ - cTValue *tv = lj_ctype_meta(cts, ctype_typeid(cts, ct), MM_tostring); - if (tv) - return lj_meta_tailcall(L, tv); - } - } - } - lj_strfmt_pushf(L, msg, strdata(lj_ctype_repr(L, id, NULL)), p); -checkgc: - lj_gc_check(L); - return 1; -} - -static int ffi_pairs(lua_State *L, MMS mm) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkcdata(L, 1)->ctypeid; - CType *ct = ctype_raw(cts, id); - cTValue *tv; - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, mm); - if (!tv) - lj_err_callerv(L, LJ_ERR_FFI_BADMM, strdata(lj_ctype_repr(L, id, NULL)), - strdata(mmname_str(G(L), mm))); - return lj_meta_tailcall(L, tv); -} - -LJLIB_CF(ffi_meta___pairs) -{ - return ffi_pairs(L, MM_pairs); -} - -LJLIB_CF(ffi_meta___ipairs) -{ - return ffi_pairs(L, MM_ipairs); -} - -LJLIB_PUSH("ffi") LJLIB_SET(__metatable) - -#include "lj_libdef.h" - -/* -- C library metamethods ----------------------------------------------- */ - -#define LJLIB_MODULE_ffi_clib - -/* Index C library by a name. */ -static TValue *ffi_clib_index(lua_State *L) -{ - TValue *o = L->base; - CLibrary *cl; - if (!(o < L->top && tvisudata(o) && udataV(o)->udtype == UDTYPE_FFI_CLIB)) - lj_err_argt(L, 1, LUA_TUSERDATA); - cl = (CLibrary *)uddata(udataV(o)); - if (!(o+1 < L->top && tvisstr(o+1))) - lj_err_argt(L, 2, LUA_TSTRING); - return lj_clib_index(L, cl, strV(o+1)); -} - -LJLIB_CF(ffi_clib___index) LJLIB_REC(clib_index 1) -{ - TValue *tv = ffi_clib_index(L); - if (tviscdata(tv)) { - CTState *cts = ctype_cts(L); - GCcdata *cd = cdataV(tv); - CType *s = ctype_get(cts, cd->ctypeid); - if (ctype_isextern(s->info)) { - CTypeID sid = ctype_cid(s->info); - void *sp = *(void **)cdataptr(cd); - CType *ct = ctype_raw(cts, sid); - if (lj_cconv_tv_ct(cts, ct, sid, L->top-1, sp)) - lj_gc_check(L); - return 1; - } - } - copyTV(L, L->top-1, tv); - return 1; -} - -LJLIB_CF(ffi_clib___newindex) LJLIB_REC(clib_index 0) -{ - TValue *tv = ffi_clib_index(L); - TValue *o = L->base+2; - if (o < L->top && tviscdata(tv)) { - CTState *cts = ctype_cts(L); - GCcdata *cd = cdataV(tv); - CType *d = ctype_get(cts, cd->ctypeid); - if (ctype_isextern(d->info)) { - CTInfo qual = 0; - for (;;) { /* Skip attributes and collect qualifiers. */ - d = ctype_child(cts, d); - if (!ctype_isattrib(d->info)) break; - if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size; - } - if (!((d->info|qual) & CTF_CONST)) { - lj_cconv_ct_tv(cts, d, *(void **)cdataptr(cd), o, 0); - return 0; - } - } - } - lj_err_caller(L, LJ_ERR_FFI_WRCONST); - return 0; /* unreachable */ -} - -LJLIB_CF(ffi_clib___gc) -{ - TValue *o = L->base; - if (o < L->top && tvisudata(o) && udataV(o)->udtype == UDTYPE_FFI_CLIB) - lj_clib_unload((CLibrary *)uddata(udataV(o))); - return 0; -} - -#include "lj_libdef.h" - -/* -- Callback function metamethods --------------------------------------- */ - -#define LJLIB_MODULE_ffi_callback - -static int ffi_callback_set(lua_State *L, GCfunc *fn) -{ - GCcdata *cd = ffi_checkcdata(L, 1); - CTState *cts = ctype_cts(L); - CType *ct = ctype_raw(cts, cd->ctypeid); - if (ctype_isptr(ct->info) && (LJ_32 || ct->size == 8)) { - MSize slot = lj_ccallback_ptr2slot(cts, *(void **)cdataptr(cd)); - if (slot < cts->cb.sizeid && cts->cb.cbid[slot] != 0) { - GCtab *t = cts->miscmap; - TValue *tv = lj_tab_setint(L, t, (int32_t)slot); - if (fn) { - setfuncV(L, tv, fn); - lj_gc_anybarriert(L, t); - } else { - setnilV(tv); - cts->cb.cbid[slot] = 0; - cts->cb.topid = slot < cts->cb.topid ? slot : cts->cb.topid; - } - return 0; - } - } - lj_err_caller(L, LJ_ERR_FFI_BADCBACK); - return 0; -} - -LJLIB_CF(ffi_callback_free) -{ - return ffi_callback_set(L, NULL); -} - -LJLIB_CF(ffi_callback_set) -{ - GCfunc *fn = lj_lib_checkfunc(L, 2); - return ffi_callback_set(L, fn); -} - -LJLIB_PUSH(top-1) LJLIB_SET(__index) - -#include "lj_libdef.h" - -/* -- FFI library functions ----------------------------------------------- */ - -#define LJLIB_MODULE_ffi - -LJLIB_CF(ffi_cdef) -{ - GCstr *s = lj_lib_checkstr(L, 1); - CPState cp; - int errcode; - cp.L = L; - cp.cts = ctype_cts(L); - cp.srcname = strdata(s); - cp.p = strdata(s); - cp.param = L->base+1; - cp.mode = CPARSE_MODE_MULTI|CPARSE_MODE_DIRECT; - errcode = lj_cparse(&cp); - if (errcode) lj_err_throw(L, errcode); /* Propagate errors. */ - lj_gc_check(L); - return 0; -} - -LJLIB_CF(ffi_new) LJLIB_REC(.) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - CType *ct = ctype_raw(cts, id); - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - TValue *o = L->base+1; - GCcdata *cd; - if ((info & CTF_VLA)) { - o++; - sz = lj_ctype_vlsize(cts, ct, (CTSize)ffi_checkint(L, 2)); - } - if (sz == CTSIZE_INVALID) - lj_err_arg(L, 1, LJ_ERR_FFI_INVSIZE); - if (!(info & CTF_VLA) && ctype_align(info) <= CT_MEMALIGN) - cd = lj_cdata_new(cts, id, sz); - else - cd = lj_cdata_newv(L, id, sz, ctype_align(info)); - setcdataV(L, o-1, cd); /* Anchor the uninitialized cdata. */ - lj_cconv_ct_init(cts, ct, sz, cdataptr(cd), - o, (MSize)(L->top - o)); /* Initialize cdata. */ - if (ctype_isstruct(ct->info)) { - /* Handle ctype __gc metamethod. Use the fast lookup here. */ - cTValue *tv = lj_tab_getinth(cts->miscmap, -(int32_t)id); - if (tv && tvistab(tv) && (tv = lj_meta_fast(L, tabV(tv), MM_gc))) { - GCtab *t = cts->finalizer; - if (gcref(t->metatable)) { - /* Add to finalizer table, if still enabled. */ - copyTV(L, lj_tab_set(L, t, o-1), tv); - lj_gc_anybarriert(L, t); - cd->marked |= LJ_GC_CDATA_FIN; - } - } - } - L->top = o; /* Only return the cdata itself. */ - lj_gc_check(L); - return 1; -} - -LJLIB_CF(ffi_cast) LJLIB_REC(ffi_new) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - CType *d = ctype_raw(cts, id); - TValue *o = lj_lib_checkany(L, 2); - L->top = o+1; /* Make sure this is the last item on the stack. */ - if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || ctype_isenum(d->info))) - lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); - if (!(tviscdata(o) && cdataV(o)->ctypeid == id)) { - GCcdata *cd = lj_cdata_new(cts, id, d->size); - lj_cconv_ct_tv(cts, d, cdataptr(cd), o, CCF_CAST); - setcdataV(L, o, cd); - lj_gc_check(L); - } - return 1; -} - -LJLIB_CF(ffi_typeof) LJLIB_REC(.) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, L->base+1); - GCcdata *cd = lj_cdata_new(cts, CTID_CTYPEID, 4); - *(CTypeID *)cdataptr(cd) = id; - setcdataV(L, L->top-1, cd); - lj_gc_check(L); - return 1; -} - -/* Internal and unsupported API. */ -LJLIB_CF(ffi_typeinfo) -{ - CTState *cts = ctype_cts(L); - CTypeID id = (CTypeID)ffi_checkint(L, 1); - if (id > 0 && id < cts->top) { - CType *ct = ctype_get(cts, id); - GCtab *t; - lua_createtable(L, 0, 4); /* Increment hash size if fields are added. */ - t = tabV(L->top-1); - setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "info")), (int32_t)ct->info); - if (ct->size != CTSIZE_INVALID) - setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "size")), (int32_t)ct->size); - if (ct->sib) - setintV(lj_tab_setstr(L, t, lj_str_newlit(L, "sib")), (int32_t)ct->sib); - if (gcref(ct->name)) { - GCstr *s = gco2str(gcref(ct->name)); - setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "name")), s); - } - lj_gc_check(L); - return 1; - } - return 0; -} - -LJLIB_CF(ffi_istype) LJLIB_REC(.) -{ - CTState *cts = ctype_cts(L); - CTypeID id1 = ffi_checkctype(L, cts, NULL); - TValue *o = lj_lib_checkany(L, 2); - int b = 0; - if (tviscdata(o)) { - GCcdata *cd = cdataV(o); - CTypeID id2 = cd->ctypeid == CTID_CTYPEID ? *(CTypeID *)cdataptr(cd) : - cd->ctypeid; - CType *ct1 = lj_ctype_rawref(cts, id1); - CType *ct2 = lj_ctype_rawref(cts, id2); - if (ct1 == ct2) { - b = 1; - } else if (ctype_type(ct1->info) == ctype_type(ct2->info) && - ct1->size == ct2->size) { - if (ctype_ispointer(ct1->info)) - b = lj_cconv_compatptr(cts, ct1, ct2, CCF_IGNQUAL); - else if (ctype_isnum(ct1->info) || ctype_isvoid(ct1->info)) - b = (((ct1->info ^ ct2->info) & ~(CTF_QUAL|CTF_LONG)) == 0); - } else if (ctype_isstruct(ct1->info) && ctype_isptr(ct2->info) && - ct1 == ctype_rawchild(cts, ct2)) { - b = 1; - } - } - setboolV(L->top-1, b); - setboolV(&G(L)->tmptv2, b); /* Remember for trace recorder. */ - return 1; -} - -LJLIB_CF(ffi_sizeof) LJLIB_REC(ffi_xof FF_ffi_sizeof) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - CTSize sz; - if (LJ_UNLIKELY(tviscdata(L->base) && cdataisv(cdataV(L->base)))) { - sz = cdatavlen(cdataV(L->base)); - } else { - CType *ct = lj_ctype_rawref(cts, id); - if (ctype_isvltype(ct->info)) - sz = lj_ctype_vlsize(cts, ct, (CTSize)ffi_checkint(L, 2)); - else - sz = ctype_hassize(ct->info) ? ct->size : CTSIZE_INVALID; - if (LJ_UNLIKELY(sz == CTSIZE_INVALID)) { - setnilV(L->top-1); - return 1; - } - } - setintV(L->top-1, (int32_t)sz); - return 1; -} - -LJLIB_CF(ffi_alignof) LJLIB_REC(ffi_xof FF_ffi_alignof) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - CTSize sz = 0; - CTInfo info = lj_ctype_info(cts, id, &sz); - setintV(L->top-1, 1 << ctype_align(info)); - return 1; -} - -LJLIB_CF(ffi_offsetof) LJLIB_REC(ffi_xof FF_ffi_offsetof) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - GCstr *name = lj_lib_checkstr(L, 2); - CType *ct = lj_ctype_rawref(cts, id); - CTSize ofs; - if (ctype_isstruct(ct->info) && ct->size != CTSIZE_INVALID) { - CType *fct = lj_ctype_getfield(cts, ct, name, &ofs); - if (fct) { - setintV(L->top-1, ofs); - if (ctype_isfield(fct->info)) { - return 1; - } else if (ctype_isbitfield(fct->info)) { - setintV(L->top++, ctype_bitpos(fct->info)); - setintV(L->top++, ctype_bitbsz(fct->info)); - return 3; - } - } - } - return 0; -} - -LJLIB_CF(ffi_errno) LJLIB_REC(.) -{ - int err = errno; - if (L->top > L->base) - errno = ffi_checkint(L, 1); - setintV(L->top++, err); - return 1; -} - -LJLIB_CF(ffi_string) LJLIB_REC(.) -{ - CTState *cts = ctype_cts(L); - TValue *o = lj_lib_checkany(L, 1); - const char *p; - size_t len; - if (o+1 < L->top && !tvisnil(o+1)) { - len = (size_t)ffi_checkint(L, 2); - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_P_CVOID), (uint8_t *)&p, o, - CCF_ARG(1)); - } else { - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_P_CCHAR), (uint8_t *)&p, o, - CCF_ARG(1)); - len = strlen(p); - } - L->top = o+1; /* Make sure this is the last item on the stack. */ - setstrV(L, o, lj_str_new(L, p, len)); - lj_gc_check(L); - return 1; -} - -LJLIB_CF(ffi_copy) LJLIB_REC(.) -{ - void *dp = ffi_checkptr(L, 1, CTID_P_VOID); - void *sp = ffi_checkptr(L, 2, CTID_P_CVOID); - TValue *o = L->base+1; - CTSize len; - if (tvisstr(o) && o+1 >= L->top) - len = strV(o)->len+1; /* Copy Lua string including trailing '\0'. */ - else - len = (CTSize)ffi_checkint(L, 3); - memcpy(dp, sp, len); - return 0; -} - -LJLIB_CF(ffi_fill) LJLIB_REC(.) -{ - void *dp = ffi_checkptr(L, 1, CTID_P_VOID); - CTSize len = (CTSize)ffi_checkint(L, 2); - int32_t fill = 0; - if (L->base+2 < L->top && !tvisnil(L->base+2)) fill = ffi_checkint(L, 3); - memset(dp, fill, len); - return 0; -} - -#define H_(le, be) LJ_ENDIAN_SELECT(0x##le, 0x##be) - -/* Test ABI string. */ -LJLIB_CF(ffi_abi) LJLIB_REC(.) -{ - GCstr *s = lj_lib_checkstr(L, 1); - int b = 0; - switch (s->hash) { -#if LJ_64 - case H_(849858eb,ad35fd06): b = 1; break; /* 64bit */ -#else - case H_(662d3c79,d0e22477): b = 1; break; /* 32bit */ -#endif -#if LJ_ARCH_HASFPU - case H_(e33ee463,e33ee463): b = 1; break; /* fpu */ -#endif -#if LJ_ABI_SOFTFP - case H_(61211a23,c2e8c81c): b = 1; break; /* softfp */ -#else - case H_(539417a8,8ce0812f): b = 1; break; /* hardfp */ -#endif -#if LJ_ABI_EABI - case H_(2182df8f,f2ed1152): b = 1; break; /* eabi */ -#endif -#if LJ_ABI_WIN - case H_(4ab624a8,4ab624a8): b = 1; break; /* win */ -#endif - case H_(3af93066,1f001464): b = 1; break; /* le/be */ -#if LJ_GC64 - case H_(9e89d2c9,13c83c92): b = 1; break; /* gc64 */ -#endif - default: - break; - } - setboolV(L->top-1, b); - setboolV(&G(L)->tmptv2, b); /* Remember for trace recorder. */ - return 1; -} - -#undef H_ - -LJLIB_PUSH(top-8) LJLIB_SET(!) /* Store reference to miscmap table. */ - -LJLIB_CF(ffi_metatype) -{ - CTState *cts = ctype_cts(L); - CTypeID id = ffi_checkctype(L, cts, NULL); - GCtab *mt = lj_lib_checktab(L, 2); - GCtab *t = cts->miscmap; - CType *ct = ctype_get(cts, id); /* Only allow raw types. */ - TValue *tv; - GCcdata *cd; - if (!(ctype_isstruct(ct->info) || ctype_iscomplex(ct->info) || - ctype_isvector(ct->info))) - lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); - tv = lj_tab_setinth(L, t, -(int32_t)id); - if (!tvisnil(tv)) - lj_err_caller(L, LJ_ERR_PROTMT); - settabV(L, tv, mt); - lj_gc_anybarriert(L, t); - cd = lj_cdata_new(cts, CTID_CTYPEID, 4); - *(CTypeID *)cdataptr(cd) = id; - setcdataV(L, L->top-1, cd); - lj_gc_check(L); - return 1; -} - -LJLIB_PUSH(top-7) LJLIB_SET(!) /* Store reference to finalizer table. */ - -LJLIB_CF(ffi_gc) LJLIB_REC(.) -{ - GCcdata *cd = ffi_checkcdata(L, 1); - TValue *fin = lj_lib_checkany(L, 2); - CTState *cts = ctype_cts(L); - CType *ct = ctype_raw(cts, cd->ctypeid); - if (!(ctype_isptr(ct->info) || ctype_isstruct(ct->info) || - ctype_isrefarray(ct->info))) - lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE); - lj_cdata_setfin(L, cd, gcval(fin), itype(fin)); - L->top = L->base+1; /* Pass through the cdata object. */ - return 1; -} - -LJLIB_PUSH(top-5) LJLIB_SET(!) /* Store clib metatable in func environment. */ - -LJLIB_CF(ffi_load) -{ - GCstr *name = lj_lib_checkstr(L, 1); - int global = (L->base+1 < L->top && tvistruecond(L->base+1)); - lj_clib_load(L, tabref(curr_func(L)->c.env), name, global); - return 1; -} - -LJLIB_PUSH(top-4) LJLIB_SET(C) -LJLIB_PUSH(top-3) LJLIB_SET(os) -LJLIB_PUSH(top-2) LJLIB_SET(arch) - -#include "lj_libdef.h" - -/* ------------------------------------------------------------------------ */ - -/* Create special weak-keyed finalizer table. */ -static GCtab *ffi_finalizer(lua_State *L) -{ - /* NOBARRIER: The table is new (marked white). */ - GCtab *t = lj_tab_new(L, 0, 1); - settabV(L, L->top++, t); - setgcref(t->metatable, obj2gco(t)); - setstrV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "__mode")), - lj_str_newlit(L, "K")); - t->nomm = (uint8_t)(~(1u<top-1); - lj_gc_anybarriert(L, t); - } -} - -LUALIB_API int luaopen_ffi(lua_State *L) -{ - CTState *cts = lj_ctype_init(L); - settabV(L, L->top++, (cts->miscmap = lj_tab_new(L, 0, 1))); - cts->finalizer = ffi_finalizer(L); - LJ_LIB_REG(L, NULL, ffi_meta); - /* NOBARRIER: basemt is a GC root. */ - setgcref(basemt_it(G(L), LJ_TCDATA), obj2gco(tabV(L->top-1))); - LJ_LIB_REG(L, NULL, ffi_clib); - LJ_LIB_REG(L, NULL, ffi_callback); - /* NOBARRIER: the key is new and lj_tab_newkey() handles the barrier. */ - settabV(L, lj_tab_setstr(L, cts->miscmap, &cts->g->strempty), tabV(L->top-1)); - L->top--; - lj_clib_default(L, tabV(L->top-1)); /* Create ffi.C default namespace. */ - lua_pushliteral(L, LJ_OS_NAME); - lua_pushliteral(L, LJ_ARCH_NAME); - LJ_LIB_REG(L, NULL, ffi); /* Note: no global "ffi" created! */ - ffi_register_module(L); - return 1; -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_init.c b/src/3rd party/luajit-2.0-BAK/src/lib_init.c deleted file mode 100644 index 85c194af43f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_init.c +++ /dev/null @@ -1,55 +0,0 @@ -/* -** Library initialization. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major parts taken verbatim from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lib_init_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_arch.h" - -static const luaL_Reg lj_lib_load[] = { - { "", luaopen_base }, - { LUA_LOADLIBNAME, luaopen_package }, - { LUA_TABLIBNAME, luaopen_table }, - { LUA_IOLIBNAME, luaopen_io }, - { LUA_OSLIBNAME, luaopen_os }, - { LUA_STRLIBNAME, luaopen_string }, - { LUA_MATHLIBNAME, luaopen_math }, - { LUA_DBLIBNAME, luaopen_debug }, - { LUA_BITLIBNAME, luaopen_bit }, - { LUA_JITLIBNAME, luaopen_jit }, - { NULL, NULL } -}; - -static const luaL_Reg lj_lib_preload[] = { -#if LJ_HASFFI - { LUA_FFILIBNAME, luaopen_ffi }, -#endif - { NULL, NULL } -}; - -LUALIB_API void luaL_openlibs(lua_State *L) -{ - const luaL_Reg *lib; - for (lib = lj_lib_load; lib->func; lib++) { - lua_pushcfunction(L, lib->func); - lua_pushstring(L, lib->name); - lua_call(L, 1, 0); - } - luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", - sizeof(lj_lib_preload)/sizeof(lj_lib_preload[0])-1); - for (lib = lj_lib_preload; lib->func; lib++) { - lua_pushcfunction(L, lib->func); - lua_setfield(L, -2, lib->name); - } - lua_pop(L, 1); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_io.c b/src/3rd party/luajit-2.0-BAK/src/lib_io.c deleted file mode 100644 index 468d327539a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_io.c +++ /dev/null @@ -1,534 +0,0 @@ -/* -** I/O library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2011 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#include -#include - -#define lib_io_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_state.h" -#include "lj_strfmt.h" -#include "lj_ff.h" -#include "lj_lib.h" - -/* Userdata payload for I/O file. */ -typedef struct IOFileUD { - FILE *fp; /* File handle. */ - uint32_t type; /* File type. */ -} IOFileUD; - -#define IOFILE_TYPE_FILE 0 /* Regular file. */ -#define IOFILE_TYPE_PIPE 1 /* Pipe. */ -#define IOFILE_TYPE_STDF 2 /* Standard file handle. */ -#define IOFILE_TYPE_MASK 3 - -#define IOFILE_FLAG_CLOSE 4 /* Close after io.lines() iterator. */ - -#define IOSTDF_UD(L, id) (&gcref(G(L)->gcroot[(id)])->ud) -#define IOSTDF_IOF(L, id) ((IOFileUD *)uddata(IOSTDF_UD(L, (id)))) - -/* -- Open/close helpers -------------------------------------------------- */ - -static IOFileUD *io_tofilep(lua_State *L) -{ - if (!(L->base < L->top && tvisudata(L->base) && - udataV(L->base)->udtype == UDTYPE_IO_FILE)) - lj_err_argtype(L, 1, "FILE*"); - return (IOFileUD *)uddata(udataV(L->base)); -} - -static IOFileUD *io_tofile(lua_State *L) -{ - IOFileUD *iof = io_tofilep(L); - if (iof->fp == NULL) - lj_err_caller(L, LJ_ERR_IOCLFL); - return iof; -} - -static FILE *io_stdfile(lua_State *L, ptrdiff_t id) -{ - IOFileUD *iof = IOSTDF_IOF(L, id); - if (iof->fp == NULL) - lj_err_caller(L, LJ_ERR_IOSTDCL); - return iof->fp; -} - -static IOFileUD *io_file_new(lua_State *L) -{ - IOFileUD *iof = (IOFileUD *)lua_newuserdata(L, sizeof(IOFileUD)); - GCudata *ud = udataV(L->top-1); - ud->udtype = UDTYPE_IO_FILE; - /* NOBARRIER: The GCudata is new (marked white). */ - setgcrefr(ud->metatable, curr_func(L)->c.env); - iof->fp = NULL; - iof->type = IOFILE_TYPE_FILE; - return iof; -} - -static IOFileUD *io_file_open(lua_State *L, const char *mode) -{ - const char *fname = strdata(lj_lib_checkstr(L, 1)); - IOFileUD *iof = io_file_new(L); - iof->fp = fopen(fname, mode); - if (iof->fp == NULL) - luaL_argerror(L, 1, lj_strfmt_pushf(L, "%s: %s", fname, strerror(errno))); - return iof; -} - -static int io_file_close(lua_State *L, IOFileUD *iof) -{ - int ok; - if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_FILE) { - ok = (fclose(iof->fp) == 0); - } else if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_PIPE) { - int stat = -1; -#if LJ_TARGET_POSIX - stat = pclose(iof->fp); -#elif LJ_TARGET_WINDOWS - stat = _pclose(iof->fp); -#else - lua_assert(0); - return 0; -#endif -#if LJ_52 - iof->fp = NULL; - return luaL_execresult(L, stat); -#else - ok = (stat != -1); -#endif - } else { - lua_assert((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_STDF); - setnilV(L->top++); - lua_pushliteral(L, "cannot close standard file"); - return 2; - } - iof->fp = NULL; - return luaL_fileresult(L, ok, NULL); -} - -/* -- Read/write helpers -------------------------------------------------- */ - -static int io_file_readnum(lua_State *L, FILE *fp) -{ - lua_Number d; - if (fscanf(fp, LUA_NUMBER_SCAN, &d) == 1) { - if (LJ_DUALNUM) { - int32_t i = lj_num2int(d); - if (d == (lua_Number)i && !tvismzero((cTValue *)&d)) { - setintV(L->top++, i); - return 1; - } - } - setnumV(L->top++, d); - return 1; - } else { - setnilV(L->top++); - return 0; - } -} - -static int io_file_readline(lua_State *L, FILE *fp, MSize chop) -{ - MSize m = LUAL_BUFFERSIZE, n = 0, ok = 0; - char *buf; - for (;;) { - buf = lj_buf_tmp(L, m); - if (fgets(buf+n, m-n, fp) == NULL) break; - n += (MSize)strlen(buf+n); - ok |= n; - if (n && buf[n-1] == '\n') { n -= chop; break; } - if (n >= m - 64) m += m; - } - setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); - lj_gc_check(L); - return (int)ok; -} - -static void io_file_readall(lua_State *L, FILE *fp) -{ - MSize m, n; - for (m = LUAL_BUFFERSIZE, n = 0; ; m += m) { - char *buf = lj_buf_tmp(L, m); - n += (MSize)fread(buf+n, 1, m-n, fp); - if (n != m) { - setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); - lj_gc_check(L); - return; - } - } -} - -static int io_file_readlen(lua_State *L, FILE *fp, MSize m) -{ - if (m) { - char *buf = lj_buf_tmp(L, m); - MSize n = (MSize)fread(buf, 1, m, fp); - setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); - lj_gc_check(L); - return (n > 0 || m == 0); - } else { - int c = getc(fp); - ungetc(c, fp); - setstrV(L, L->top++, &G(L)->strempty); - return (c != EOF); - } -} - -static int io_file_read(lua_State *L, FILE *fp, int start) -{ - int ok, n, nargs = (int)(L->top - L->base) - start; - clearerr(fp); - if (nargs == 0) { - ok = io_file_readline(L, fp, 1); - n = start+1; /* Return 1 result. */ - } else { - /* The results plus the buffers go on top of the args. */ - luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); - ok = 1; - for (n = start; nargs-- && ok; n++) { - if (tvisstr(L->base+n)) { - const char *p = strVdata(L->base+n); - if (p[0] != '*') - lj_err_arg(L, n+1, LJ_ERR_INVOPT); - if (p[1] == 'n') - ok = io_file_readnum(L, fp); - else if ((p[1] & ~0x20) == 'L') - ok = io_file_readline(L, fp, (p[1] == 'l')); - else if (p[1] == 'a') - io_file_readall(L, fp); - else - lj_err_arg(L, n+1, LJ_ERR_INVFMT); - } else if (tvisnumber(L->base+n)) { - ok = io_file_readlen(L, fp, (MSize)lj_lib_checkint(L, n+1)); - } else { - lj_err_arg(L, n+1, LJ_ERR_INVOPT); - } - } - } - if (ferror(fp)) - return luaL_fileresult(L, 0, NULL); - if (!ok) - setnilV(L->top-1); /* Replace last result with nil. */ - return n - start; -} - -static int io_file_write(lua_State *L, FILE *fp, int start) -{ - cTValue *tv; - int status = 1; - for (tv = L->base+start; tv < L->top; tv++) { - char buf[STRFMT_MAXBUF_NUM]; - MSize len; - const char *p = lj_strfmt_wstrnum(buf, tv, &len); - if (!p) - lj_err_argt(L, (int)(tv - L->base) + 1, LUA_TSTRING); - status = status && (fwrite(p, 1, len, fp) == len); - } - if (LJ_52 && status) { - L->top = L->base+1; - if (start == 0) - setudataV(L, L->base, IOSTDF_UD(L, GCROOT_IO_OUTPUT)); - return 1; - } - return luaL_fileresult(L, status, NULL); -} - -static int io_file_iter(lua_State *L) -{ - GCfunc *fn = curr_func(L); - IOFileUD *iof = uddata(udataV(&fn->c.upvalue[0])); - int n = fn->c.nupvalues - 1; - if (iof->fp == NULL) - lj_err_caller(L, LJ_ERR_IOCLFL); - L->top = L->base; - if (n) { /* Copy upvalues with options to stack. */ - if (n > LUAI_MAXCSTACK) - lj_err_caller(L, LJ_ERR_STKOV); - lj_state_checkstack(L, (MSize)n); - memcpy(L->top, &fn->c.upvalue[1], n*sizeof(TValue)); - L->top += n; - } - n = io_file_read(L, iof->fp, 0); - if (ferror(iof->fp)) - lj_err_callermsg(L, strVdata(L->top-2)); - if (tvisnil(L->base) && (iof->type & IOFILE_FLAG_CLOSE)) { - io_file_close(L, iof); /* Return values are ignored. */ - return 0; - } - return n; -} - -/* -- I/O file methods ---------------------------------------------------- */ - -#define LJLIB_MODULE_io_method - -LJLIB_CF(io_method_close) -{ - IOFileUD *iof = L->base < L->top ? io_tofile(L) : - IOSTDF_IOF(L, GCROOT_IO_OUTPUT); - return io_file_close(L, iof); -} - -LJLIB_CF(io_method_read) -{ - return io_file_read(L, io_tofile(L)->fp, 1); -} - -LJLIB_CF(io_method_write) LJLIB_REC(io_write 0) -{ - return io_file_write(L, io_tofile(L)->fp, 1); -} - -LJLIB_CF(io_method_flush) LJLIB_REC(io_flush 0) -{ - return luaL_fileresult(L, fflush(io_tofile(L)->fp) == 0, NULL); -} - -LJLIB_CF(io_method_seek) -{ - FILE *fp = io_tofile(L)->fp; - int opt = lj_lib_checkopt(L, 2, 1, "\3set\3cur\3end"); - int64_t ofs = 0; - cTValue *o; - int res; - if (opt == 0) opt = SEEK_SET; - else if (opt == 1) opt = SEEK_CUR; - else if (opt == 2) opt = SEEK_END; - o = L->base+2; - if (o < L->top) { - if (tvisint(o)) - ofs = (int64_t)intV(o); - else if (tvisnum(o)) - ofs = (int64_t)numV(o); - else if (!tvisnil(o)) - lj_err_argt(L, 3, LUA_TNUMBER); - } -#if LJ_TARGET_POSIX - res = fseeko(fp, ofs, opt); -#elif _MSC_VER >= 1400 - res = _fseeki64(fp, ofs, opt); -#elif defined(__MINGW32__) - res = fseeko64(fp, ofs, opt); -#else - res = fseek(fp, (long)ofs, opt); -#endif - if (res) - return luaL_fileresult(L, 0, NULL); -#if LJ_TARGET_POSIX - ofs = ftello(fp); -#elif _MSC_VER >= 1400 - ofs = _ftelli64(fp); -#elif defined(__MINGW32__) - ofs = ftello64(fp); -#else - ofs = (int64_t)ftell(fp); -#endif - setint64V(L->top-1, ofs); - return 1; -} - -LJLIB_CF(io_method_setvbuf) -{ - FILE *fp = io_tofile(L)->fp; - int opt = lj_lib_checkopt(L, 2, -1, "\4full\4line\2no"); - size_t sz = (size_t)lj_lib_optint(L, 3, LUAL_BUFFERSIZE); - if (opt == 0) opt = _IOFBF; - else if (opt == 1) opt = _IOLBF; - else if (opt == 2) opt = _IONBF; - return luaL_fileresult(L, setvbuf(fp, NULL, opt, sz) == 0, NULL); -} - -LJLIB_CF(io_method_lines) -{ - io_tofile(L); - lua_pushcclosure(L, io_file_iter, (int)(L->top - L->base)); - return 1; -} - -LJLIB_CF(io_method___gc) -{ - IOFileUD *iof = io_tofilep(L); - if (iof->fp != NULL && (iof->type & IOFILE_TYPE_MASK) != IOFILE_TYPE_STDF) - io_file_close(L, iof); - return 0; -} - -LJLIB_CF(io_method___tostring) -{ - IOFileUD *iof = io_tofilep(L); - if (iof->fp != NULL) - lua_pushfstring(L, "file (%p)", iof->fp); - else - lua_pushliteral(L, "file (closed)"); - return 1; -} - -LJLIB_PUSH(top-1) LJLIB_SET(__index) - -#include "lj_libdef.h" - -/* -- I/O library functions ----------------------------------------------- */ - -#define LJLIB_MODULE_io - -LJLIB_PUSH(top-2) LJLIB_SET(!) /* Set environment. */ - -LJLIB_CF(io_open) -{ - const char *fname = strdata(lj_lib_checkstr(L, 1)); - GCstr *s = lj_lib_optstr(L, 2); - const char *mode = s ? strdata(s) : "r"; - IOFileUD *iof = io_file_new(L); - iof->fp = fopen(fname, mode); - return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname); -} - -LJLIB_CF(io_popen) -{ -#if LJ_TARGET_POSIX || LJ_TARGET_WINDOWS - const char *fname = strdata(lj_lib_checkstr(L, 1)); - GCstr *s = lj_lib_optstr(L, 2); - const char *mode = s ? strdata(s) : "r"; - IOFileUD *iof = io_file_new(L); - iof->type = IOFILE_TYPE_PIPE; -#if LJ_TARGET_POSIX - fflush(NULL); - iof->fp = popen(fname, mode); -#else - iof->fp = _popen(fname, mode); -#endif - return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname); -#else - return luaL_error(L, LUA_QL("popen") " not supported"); -#endif -} - -LJLIB_CF(io_tmpfile) -{ - IOFileUD *iof = io_file_new(L); -#if LJ_TARGET_PS3 || LJ_TARGET_PS4 || LJ_TARGET_PSVITA - iof->fp = NULL; errno = ENOSYS; -#else - iof->fp = tmpfile(); -#endif - return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, NULL); -} - -LJLIB_CF(io_close) -{ - return lj_cf_io_method_close(L); -} - -LJLIB_CF(io_read) -{ - return io_file_read(L, io_stdfile(L, GCROOT_IO_INPUT), 0); -} - -LJLIB_CF(io_write) LJLIB_REC(io_write GCROOT_IO_OUTPUT) -{ - return io_file_write(L, io_stdfile(L, GCROOT_IO_OUTPUT), 0); -} - -LJLIB_CF(io_flush) LJLIB_REC(io_flush GCROOT_IO_OUTPUT) -{ - return luaL_fileresult(L, fflush(io_stdfile(L, GCROOT_IO_OUTPUT)) == 0, NULL); -} - -static int io_std_getset(lua_State *L, ptrdiff_t id, const char *mode) -{ - if (L->base < L->top && !tvisnil(L->base)) { - if (tvisudata(L->base)) { - io_tofile(L); - L->top = L->base+1; - } else { - io_file_open(L, mode); - } - /* NOBARRIER: The standard I/O handles are GC roots. */ - setgcref(G(L)->gcroot[id], gcV(L->top-1)); - } else { - setudataV(L, L->top++, IOSTDF_UD(L, id)); - } - return 1; -} - -LJLIB_CF(io_input) -{ - return io_std_getset(L, GCROOT_IO_INPUT, "r"); -} - -LJLIB_CF(io_output) -{ - return io_std_getset(L, GCROOT_IO_OUTPUT, "w"); -} - -LJLIB_CF(io_lines) -{ - if (L->base == L->top) setnilV(L->top++); - if (!tvisnil(L->base)) { /* io.lines(fname) */ - IOFileUD *iof = io_file_open(L, "r"); - iof->type = IOFILE_TYPE_FILE|IOFILE_FLAG_CLOSE; - L->top--; - setudataV(L, L->base, udataV(L->top)); - } else { /* io.lines() iterates over stdin. */ - setudataV(L, L->base, IOSTDF_UD(L, GCROOT_IO_INPUT)); - } - lua_pushcclosure(L, io_file_iter, (int)(L->top - L->base)); - return 1; -} - -LJLIB_CF(io_type) -{ - cTValue *o = lj_lib_checkany(L, 1); - if (!(tvisudata(o) && udataV(o)->udtype == UDTYPE_IO_FILE)) - setnilV(L->top++); - else if (((IOFileUD *)uddata(udataV(o)))->fp != NULL) - lua_pushliteral(L, "file"); - else - lua_pushliteral(L, "closed file"); - return 1; -} - -#include "lj_libdef.h" - -/* ------------------------------------------------------------------------ */ - -static GCobj *io_std_new(lua_State *L, FILE *fp, const char *name) -{ - IOFileUD *iof = (IOFileUD *)lua_newuserdata(L, sizeof(IOFileUD)); - GCudata *ud = udataV(L->top-1); - ud->udtype = UDTYPE_IO_FILE; - /* NOBARRIER: The GCudata is new (marked white). */ - setgcref(ud->metatable, gcV(L->top-3)); - iof->fp = fp; - iof->type = IOFILE_TYPE_STDF; - lua_setfield(L, -2, name); - return obj2gco(ud); -} - -LUALIB_API int luaopen_io(lua_State *L) -{ - LJ_LIB_REG(L, NULL, io_method); - copyTV(L, L->top, L->top-1); L->top++; - lua_setfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); - LJ_LIB_REG(L, LUA_IOLIBNAME, io); - setgcref(G(L)->gcroot[GCROOT_IO_INPUT], io_std_new(L, stdin, "stdin")); - setgcref(G(L)->gcroot[GCROOT_IO_OUTPUT], io_std_new(L, stdout, "stdout")); - io_std_new(L, stderr, "stderr"); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_jit.c b/src/3rd party/luajit-2.0-BAK/src/lib_jit.c deleted file mode 100644 index 178ef249df3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_jit.c +++ /dev/null @@ -1,767 +0,0 @@ -/* -** JIT library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lib_jit_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_state.h" -#include "lj_bc.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#if LJ_HASJIT -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_target.h" -#endif -#include "lj_trace.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_vmevent.h" -#include "lj_lib.h" - -#include "luajit.h" - -/* -- jit.* functions ----------------------------------------------------- */ - -#define LJLIB_MODULE_jit - -static int setjitmode(lua_State *L, int mode) -{ - int idx = 0; - if (L->base == L->top || tvisnil(L->base)) { /* jit.on/off/flush([nil]) */ - mode |= LUAJIT_MODE_ENGINE; - } else { - /* jit.on/off/flush(func|proto, nil|true|false) */ - if (tvisfunc(L->base) || tvisproto(L->base)) - idx = 1; - else if (!tvistrue(L->base)) /* jit.on/off/flush(true, nil|true|false) */ - goto err; - if (L->base+1 < L->top && tvisbool(L->base+1)) - mode |= boolV(L->base+1) ? LUAJIT_MODE_ALLFUNC : LUAJIT_MODE_ALLSUBFUNC; - else - mode |= LUAJIT_MODE_FUNC; - } - if (luaJIT_setmode(L, idx, mode) != 1) { - if ((mode & LUAJIT_MODE_MASK) == LUAJIT_MODE_ENGINE) - lj_err_caller(L, LJ_ERR_NOJIT); - err: - lj_err_argt(L, 1, LUA_TFUNCTION); - } - return 0; -} - -LJLIB_CF(jit_on) -{ - return setjitmode(L, LUAJIT_MODE_ON); -} - -LJLIB_CF(jit_off) -{ - return setjitmode(L, LUAJIT_MODE_OFF); -} - -LJLIB_CF(jit_flush) -{ -#if LJ_HASJIT - if (L->base < L->top && tvisnumber(L->base)) { - int traceno = lj_lib_checkint(L, 1); - luaJIT_setmode(L, traceno, LUAJIT_MODE_FLUSH|LUAJIT_MODE_TRACE); - return 0; - } -#endif - return setjitmode(L, LUAJIT_MODE_FLUSH); -} - -#if LJ_HASJIT -/* Push a string for every flag bit that is set. */ -static void flagbits_to_strings(lua_State *L, uint32_t flags, uint32_t base, - const char *str) -{ - for (; *str; base <<= 1, str += 1+*str) - if (flags & base) - setstrV(L, L->top++, lj_str_new(L, str+1, *(uint8_t *)str)); -} -#endif - -LJLIB_CF(jit_status) -{ -#if LJ_HASJIT - jit_State *J = L2J(L); - L->top = L->base; - setboolV(L->top++, (J->flags & JIT_F_ON) ? 1 : 0); - flagbits_to_strings(L, J->flags, JIT_F_CPU_FIRST, JIT_F_CPUSTRING); - flagbits_to_strings(L, J->flags, JIT_F_OPT_FIRST, JIT_F_OPTSTRING); - return (int)(L->top - L->base); -#else - setboolV(L->top++, 0); - return 1; -#endif -} - -LJLIB_CF(jit_attach) -{ -#ifdef LUAJIT_DISABLE_VMEVENT - luaL_error(L, "vmevent API disabled"); -#else - GCfunc *fn = lj_lib_checkfunc(L, 1); - GCstr *s = lj_lib_optstr(L, 2); - luaL_findtable(L, LUA_REGISTRYINDEX, LJ_VMEVENTS_REGKEY, LJ_VMEVENTS_HSIZE); - if (s) { /* Attach to given event. */ - const uint8_t *p = (const uint8_t *)strdata(s); - uint32_t h = s->len; - while (*p) h = h ^ (lj_rol(h, 6) + *p++); - lua_pushvalue(L, 1); - lua_rawseti(L, -2, VMEVENT_HASHIDX(h)); - G(L)->vmevmask = VMEVENT_NOCACHE; /* Invalidate cache. */ - } else { /* Detach if no event given. */ - setnilV(L->top++); - while (lua_next(L, -2)) { - L->top--; - if (tvisfunc(L->top) && funcV(L->top) == fn) { - setnilV(lj_tab_set(L, tabV(L->top-2), L->top-1)); - } - } - } -#endif - return 0; -} - -LJLIB_PUSH(top-5) LJLIB_SET(os) -LJLIB_PUSH(top-4) LJLIB_SET(arch) -LJLIB_PUSH(top-3) LJLIB_SET(version_num) -LJLIB_PUSH(top-2) LJLIB_SET(version) - -#include "lj_libdef.h" - -/* -- jit.util.* functions ------------------------------------------------ */ - -#define LJLIB_MODULE_jit_util - -/* -- Reflection API for Lua functions ------------------------------------ */ - -/* Return prototype of first argument (Lua function or prototype object) */ -static GCproto *check_Lproto(lua_State *L, int nolua) -{ - TValue *o = L->base; - if (L->top > o) { - if (tvisproto(o)) { - return protoV(o); - } else if (tvisfunc(o)) { - if (isluafunc(funcV(o))) - return funcproto(funcV(o)); - else if (nolua) - return NULL; - } - } - lj_err_argt(L, 1, LUA_TFUNCTION); - return NULL; /* unreachable */ -} - -static void setintfield(lua_State *L, GCtab *t, const char *name, int32_t val) -{ - setintV(lj_tab_setstr(L, t, lj_str_newz(L, name)), val); -} - -/* local info = jit.util.funcinfo(func [,pc]) */ -LJLIB_CF(jit_util_funcinfo) -{ - GCproto *pt = check_Lproto(L, 1); - if (pt) { - BCPos pc = (BCPos)lj_lib_optint(L, 2, 0); - GCtab *t; - lua_createtable(L, 0, 16); /* Increment hash size if fields are added. */ - t = tabV(L->top-1); - setintfield(L, t, "linedefined", pt->firstline); - setintfield(L, t, "lastlinedefined", pt->firstline + pt->numline); - setintfield(L, t, "stackslots", pt->framesize); - setintfield(L, t, "params", pt->numparams); - setintfield(L, t, "bytecodes", (int32_t)pt->sizebc); - setintfield(L, t, "gcconsts", (int32_t)pt->sizekgc); - setintfield(L, t, "nconsts", (int32_t)pt->sizekn); - setintfield(L, t, "upvalues", (int32_t)pt->sizeuv); - if (pc < pt->sizebc) - setintfield(L, t, "currentline", lj_debug_line(pt, pc)); - lua_pushboolean(L, (pt->flags & PROTO_VARARG)); - lua_setfield(L, -2, "isvararg"); - lua_pushboolean(L, (pt->flags & PROTO_CHILD)); - lua_setfield(L, -2, "children"); - setstrV(L, L->top++, proto_chunkname(pt)); - lua_setfield(L, -2, "source"); - lj_debug_pushloc(L, pt, pc); - lua_setfield(L, -2, "loc"); - } else { - GCfunc *fn = funcV(L->base); - GCtab *t; - lua_createtable(L, 0, 4); /* Increment hash size if fields are added. */ - t = tabV(L->top-1); - if (!iscfunc(fn)) - setintfield(L, t, "ffid", fn->c.ffid); - setintptrV(lj_tab_setstr(L, t, lj_str_newlit(L, "addr")), - (intptr_t)(void *)fn->c.f); - setintfield(L, t, "upvalues", fn->c.nupvalues); - } - return 1; -} - -/* local ins, m = jit.util.funcbc(func, pc) */ -LJLIB_CF(jit_util_funcbc) -{ - GCproto *pt = check_Lproto(L, 0); - BCPos pc = (BCPos)lj_lib_checkint(L, 2); - if (pc < pt->sizebc) { - BCIns ins = proto_bc(pt)[pc]; - BCOp op = bc_op(ins); - lua_assert(op < BC__MAX); - setintV(L->top, ins); - setintV(L->top+1, lj_bc_mode[op]); - L->top += 2; - return 2; - } - return 0; -} - -/* local k = jit.util.funck(func, idx) */ -LJLIB_CF(jit_util_funck) -{ - GCproto *pt = check_Lproto(L, 0); - ptrdiff_t idx = (ptrdiff_t)lj_lib_checkint(L, 2); - if (idx >= 0) { - if (idx < (ptrdiff_t)pt->sizekn) { - copyTV(L, L->top-1, proto_knumtv(pt, idx)); - return 1; - } - } else { - if (~idx < (ptrdiff_t)pt->sizekgc) { - GCobj *gc = proto_kgc(pt, idx); - setgcV(L, L->top-1, gc, ~gc->gch.gct); - return 1; - } - } - return 0; -} - -/* local name = jit.util.funcuvname(func, idx) */ -LJLIB_CF(jit_util_funcuvname) -{ - GCproto *pt = check_Lproto(L, 0); - uint32_t idx = (uint32_t)lj_lib_checkint(L, 2); - if (idx < pt->sizeuv) { - setstrV(L, L->top-1, lj_str_newz(L, lj_debug_uvname(pt, idx))); - return 1; - } - return 0; -} - -/* -- Reflection API for traces ------------------------------------------- */ - -#if LJ_HASJIT - -/* Check trace argument. Must not throw for non-existent trace numbers. */ -static GCtrace *jit_checktrace(lua_State *L) -{ - TraceNo tr = (TraceNo)lj_lib_checkint(L, 1); - jit_State *J = L2J(L); - if (tr > 0 && tr < J->sizetrace) - return traceref(J, tr); - return NULL; -} - -/* Names of link types. ORDER LJ_TRLINK */ -static const char *const jit_trlinkname[] = { - "none", "root", "loop", "tail-recursion", "up-recursion", "down-recursion", - "interpreter", "return", "stitch" -}; - -/* local info = jit.util.traceinfo(tr) */ -LJLIB_CF(jit_util_traceinfo) -{ - GCtrace *T = jit_checktrace(L); - if (T) { - GCtab *t; - lua_createtable(L, 0, 8); /* Increment hash size if fields are added. */ - t = tabV(L->top-1); - setintfield(L, t, "nins", (int32_t)T->nins - REF_BIAS - 1); - setintfield(L, t, "nk", REF_BIAS - (int32_t)T->nk); - setintfield(L, t, "link", T->link); - setintfield(L, t, "nexit", T->nsnap); - setstrV(L, L->top++, lj_str_newz(L, jit_trlinkname[T->linktype])); - lua_setfield(L, -2, "linktype"); - /* There are many more fields. Add them only when needed. */ - return 1; - } - return 0; -} - -/* local m, ot, op1, op2, prev = jit.util.traceir(tr, idx) */ -LJLIB_CF(jit_util_traceir) -{ - GCtrace *T = jit_checktrace(L); - IRRef ref = (IRRef)lj_lib_checkint(L, 2) + REF_BIAS; - if (T && ref >= REF_BIAS && ref < T->nins) { - IRIns *ir = &T->ir[ref]; - int32_t m = lj_ir_mode[ir->o]; - setintV(L->top-2, m); - setintV(L->top-1, ir->ot); - setintV(L->top++, (int32_t)ir->op1 - (irm_op1(m)==IRMref ? REF_BIAS : 0)); - setintV(L->top++, (int32_t)ir->op2 - (irm_op2(m)==IRMref ? REF_BIAS : 0)); - setintV(L->top++, ir->prev); - return 5; - } - return 0; -} - -/* local k, t [, slot] = jit.util.tracek(tr, idx) */ -LJLIB_CF(jit_util_tracek) -{ - GCtrace *T = jit_checktrace(L); - IRRef ref = (IRRef)lj_lib_checkint(L, 2) + REF_BIAS; - if (T && ref >= T->nk && ref < REF_BIAS) { - IRIns *ir = &T->ir[ref]; - int32_t slot = -1; - if (ir->o == IR_KSLOT) { - slot = ir->op2; - ir = &T->ir[ir->op1]; - } -#if LJ_HASFFI - if (ir->o == IR_KINT64 && !ctype_ctsG(G(L))) { - ptrdiff_t oldtop = savestack(L, L->top); - luaopen_ffi(L); /* Load FFI library on-demand. */ - L->top = restorestack(L, oldtop); - } -#endif - lj_ir_kvalue(L, L->top-2, ir); - setintV(L->top-1, (int32_t)irt_type(ir->t)); - if (slot == -1) - return 2; - setintV(L->top++, slot); - return 3; - } - return 0; -} - -/* local snap = jit.util.tracesnap(tr, sn) */ -LJLIB_CF(jit_util_tracesnap) -{ - GCtrace *T = jit_checktrace(L); - SnapNo sn = (SnapNo)lj_lib_checkint(L, 2); - if (T && sn < T->nsnap) { - SnapShot *snap = &T->snap[sn]; - SnapEntry *map = &T->snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - GCtab *t; - lua_createtable(L, nent+2, 0); - t = tabV(L->top-1); - setintV(lj_tab_setint(L, t, 0), (int32_t)snap->ref - REF_BIAS); - setintV(lj_tab_setint(L, t, 1), (int32_t)snap->nslots); - for (n = 0; n < nent; n++) - setintV(lj_tab_setint(L, t, (int32_t)(n+2)), (int32_t)map[n]); - setintV(lj_tab_setint(L, t, (int32_t)(nent+2)), (int32_t)SNAP(255, 0, 0)); - return 1; - } - return 0; -} - -/* local mcode, addr, loop = jit.util.tracemc(tr) */ -LJLIB_CF(jit_util_tracemc) -{ - GCtrace *T = jit_checktrace(L); - if (T && T->mcode != NULL) { - setstrV(L, L->top-1, lj_str_new(L, (const char *)T->mcode, T->szmcode)); - setintptrV(L->top++, (intptr_t)(void *)T->mcode); - setintV(L->top++, T->mcloop); - return 3; - } - return 0; -} - -/* local addr = jit.util.traceexitstub([tr,] exitno) */ -LJLIB_CF(jit_util_traceexitstub) -{ -#ifdef EXITSTUBS_PER_GROUP - ExitNo exitno = (ExitNo)lj_lib_checkint(L, 1); - jit_State *J = L2J(L); - if (exitno < EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) { - setintptrV(L->top-1, (intptr_t)(void *)exitstub_addr(J, exitno)); - return 1; - } -#else - if (L->top > L->base+1) { /* Don't throw for one-argument variant. */ - GCtrace *T = jit_checktrace(L); - ExitNo exitno = (ExitNo)lj_lib_checkint(L, 2); - ExitNo maxexit = T->root ? T->nsnap+1 : T->nsnap; - if (T && T->mcode != NULL && exitno < maxexit) { - setintptrV(L->top-1, (intptr_t)(void *)exitstub_trace_addr(T, exitno)); - return 1; - } - } -#endif - return 0; -} - -/* local addr = jit.util.ircalladdr(idx) */ -LJLIB_CF(jit_util_ircalladdr) -{ - uint32_t idx = (uint32_t)lj_lib_checkint(L, 1); - if (idx < IRCALL__MAX) { - setintptrV(L->top-1, (intptr_t)(void *)lj_ir_callinfo[idx].func); - return 1; - } - return 0; -} - -#endif - -#include "lj_libdef.h" - -static int luaopen_jit_util(lua_State *L) -{ - LJ_LIB_REG(L, NULL, jit_util); - return 1; -} - -/* -- jit.opt module ------------------------------------------------------ */ - -#if LJ_HASJIT - -#define LJLIB_MODULE_jit_opt - -/* Parse optimization level. */ -static int jitopt_level(jit_State *J, const char *str) -{ - if (str[0] >= '0' && str[0] <= '9' && str[1] == '\0') { - uint32_t flags; - if (str[0] == '0') flags = JIT_F_OPT_0; - else if (str[0] == '1') flags = JIT_F_OPT_1; - else if (str[0] == '2') flags = JIT_F_OPT_2; - else flags = JIT_F_OPT_3; - J->flags = (J->flags & ~JIT_F_OPT_MASK) | flags; - return 1; /* Ok. */ - } - return 0; /* No match. */ -} - -/* Parse optimization flag. */ -static int jitopt_flag(jit_State *J, const char *str) -{ - const char *lst = JIT_F_OPTSTRING; - uint32_t opt; - int set = 1; - if (str[0] == '+') { - str++; - } else if (str[0] == '-') { - str++; - set = 0; - } else if (str[0] == 'n' && str[1] == 'o') { - str += str[2] == '-' ? 3 : 2; - set = 0; - } - for (opt = JIT_F_OPT_FIRST; ; opt <<= 1) { - size_t len = *(const uint8_t *)lst; - if (len == 0) - break; - if (strncmp(str, lst+1, len) == 0 && str[len] == '\0') { - if (set) J->flags |= opt; else J->flags &= ~opt; - return 1; /* Ok. */ - } - lst += 1+len; - } - return 0; /* No match. */ -} - -/* Parse optimization parameter. */ -static int jitopt_param(jit_State *J, const char *str) -{ - const char *lst = JIT_P_STRING; - int i; - for (i = 0; i < JIT_P__MAX; i++) { - size_t len = *(const uint8_t *)lst; - lua_assert(len != 0); - if (strncmp(str, lst+1, len) == 0 && str[len] == '=') { - int32_t n = 0; - const char *p = &str[len+1]; - while (*p >= '0' && *p <= '9') - n = n*10 + (*p++ - '0'); - if (*p) return 0; /* Malformed number. */ - J->param[i] = n; - if (i == JIT_P_hotloop) - lj_dispatch_init_hotcount(J2G(J)); - return 1; /* Ok. */ - } - lst += 1+len; - } - return 0; /* No match. */ -} - -/* jit.opt.start(flags...) */ -LJLIB_CF(jit_opt_start) -{ - jit_State *J = L2J(L); - int nargs = (int)(L->top - L->base); - if (nargs == 0) { - J->flags = (J->flags & ~JIT_F_OPT_MASK) | JIT_F_OPT_DEFAULT; - } else { - int i; - for (i = 1; i <= nargs; i++) { - const char *str = strdata(lj_lib_checkstr(L, i)); - if (!jitopt_level(J, str) && - !jitopt_flag(J, str) && - !jitopt_param(J, str)) - lj_err_callerv(L, LJ_ERR_JITOPT, str); - } - } - return 0; -} - -#include "lj_libdef.h" - -#endif - -/* -- jit.profile module -------------------------------------------------- */ - -#if LJ_HASPROFILE - -#define LJLIB_MODULE_jit_profile - -/* Not loaded by default, use: local profile = require("jit.profile") */ - -static const char KEY_PROFILE_THREAD = 't'; -static const char KEY_PROFILE_FUNC = 'f'; - -static void jit_profile_callback(lua_State *L2, lua_State *L, int samples, - int vmstate) -{ - TValue key; - cTValue *tv; - setlightudV(&key, (void *)&KEY_PROFILE_FUNC); - tv = lj_tab_get(L, tabV(registry(L)), &key); - if (tvisfunc(tv)) { - char vmst = (char)vmstate; - int status; - setfuncV(L2, L2->top++, funcV(tv)); - setthreadV(L2, L2->top++, L); - setintV(L2->top++, samples); - setstrV(L2, L2->top++, lj_str_new(L2, &vmst, 1)); - status = lua_pcall(L2, 3, 0, 0); /* callback(thread, samples, vmstate) */ - if (status) { - if (G(L2)->panic) G(L2)->panic(L2); - exit(EXIT_FAILURE); - } - lj_trace_abort(G(L2)); - } -} - -/* profile.start(mode, cb) */ -LJLIB_CF(jit_profile_start) -{ - GCtab *registry = tabV(registry(L)); - GCstr *mode = lj_lib_optstr(L, 1); - GCfunc *func = lj_lib_checkfunc(L, 2); - lua_State *L2 = lua_newthread(L); /* Thread that runs profiler callback. */ - TValue key; - /* Anchor thread and function in registry. */ - setlightudV(&key, (void *)&KEY_PROFILE_THREAD); - setthreadV(L, lj_tab_set(L, registry, &key), L2); - setlightudV(&key, (void *)&KEY_PROFILE_FUNC); - setfuncV(L, lj_tab_set(L, registry, &key), func); - lj_gc_anybarriert(L, registry); - luaJIT_profile_start(L, mode ? strdata(mode) : "", - (luaJIT_profile_callback)jit_profile_callback, L2); - return 0; -} - -/* profile.stop() */ -LJLIB_CF(jit_profile_stop) -{ - GCtab *registry; - TValue key; - luaJIT_profile_stop(L); - registry = tabV(registry(L)); - setlightudV(&key, (void *)&KEY_PROFILE_THREAD); - setnilV(lj_tab_set(L, registry, &key)); - setlightudV(&key, (void *)&KEY_PROFILE_FUNC); - setnilV(lj_tab_set(L, registry, &key)); - lj_gc_anybarriert(L, registry); - return 0; -} - -/* dump = profile.dumpstack([thread,] fmt, depth) */ -LJLIB_CF(jit_profile_dumpstack) -{ - lua_State *L2 = L; - int arg = 0; - size_t len; - int depth; - GCstr *fmt; - const char *p; - if (L->top > L->base && tvisthread(L->base)) { - L2 = threadV(L->base); - arg = 1; - } - fmt = lj_lib_checkstr(L, arg+1); - depth = lj_lib_checkint(L, arg+2); - p = luaJIT_profile_dumpstack(L2, strdata(fmt), depth, &len); - lua_pushlstring(L, p, len); - return 1; -} - -#include "lj_libdef.h" - -static int luaopen_jit_profile(lua_State *L) -{ - LJ_LIB_REG(L, NULL, jit_profile); - return 1; -} - -#endif - -/* -- JIT compiler initialization ----------------------------------------- */ - -#if LJ_HASJIT -/* Default values for JIT parameters. */ -static const int32_t jit_param_default[JIT_P__MAX+1] = { -#define JIT_PARAMINIT(len, name, value) (value), -JIT_PARAMDEF(JIT_PARAMINIT) -#undef JIT_PARAMINIT - 0 -}; -#endif - -#if LJ_TARGET_ARM && LJ_TARGET_LINUX -#include -#endif - -/* Arch-dependent CPU detection. */ -static uint32_t jit_cpudetect(lua_State *L) -{ - uint32_t flags = 0; -#if LJ_TARGET_X86ORX64 - uint32_t vendor[4]; - uint32_t features[4]; - if (lj_vm_cpuid(0, vendor) && lj_vm_cpuid(1, features)) { -#if !LJ_HASJIT -#define JIT_F_SSE2 2 -#endif - flags |= ((features[3] >> 26)&1) * JIT_F_SSE2; -#if LJ_HASJIT - flags |= ((features[2] >> 0)&1) * JIT_F_SSE3; - flags |= ((features[2] >> 19)&1) * JIT_F_SSE4_1; - if (vendor[2] == 0x6c65746e) { /* Intel. */ - if ((features[0] & 0x0fff0ff0) == 0x000106c0) /* Atom. */ - flags |= JIT_F_LEA_AGU; - } else if (vendor[2] == 0x444d4163) { /* AMD. */ - uint32_t fam = (features[0] & 0x0ff00f00); - if (fam >= 0x00000f00) /* K8, K10. */ - flags |= JIT_F_PREFER_IMUL; - } -#endif - } - /* Check for required instruction set support on x86 (unnecessary on x64). */ -#if LJ_TARGET_X86 - if (!(flags & JIT_F_SSE2)) - luaL_error(L, "CPU with SSE2 required"); -#endif -#elif LJ_TARGET_ARM -#if LJ_HASJIT - int ver = LJ_ARCH_VERSION; /* Compile-time ARM CPU detection. */ -#if LJ_TARGET_LINUX - if (ver < 70) { /* Runtime ARM CPU detection. */ - struct utsname ut; - uname(&ut); - if (strncmp(ut.machine, "armv", 4) == 0) { - if (ut.machine[4] >= '7') - ver = 70; - else if (ut.machine[4] == '6') - ver = 60; - } - } -#endif - flags |= ver >= 70 ? JIT_F_ARMV7 : - ver >= 61 ? JIT_F_ARMV6T2_ : - ver >= 60 ? JIT_F_ARMV6_ : 0; - flags |= LJ_ARCH_HASFPU == 0 ? 0 : ver >= 70 ? JIT_F_VFPV3 : JIT_F_VFPV2; -#endif -#elif LJ_TARGET_ARM64 - /* No optional CPU features to detect (for now). */ -#elif LJ_TARGET_PPC -#if LJ_HASJIT -#if LJ_ARCH_SQRT - flags |= JIT_F_SQRT; -#endif -#if LJ_ARCH_ROUND - flags |= JIT_F_ROUND; -#endif -#endif -#elif LJ_TARGET_MIPS -#if LJ_HASJIT - /* Compile-time MIPS CPU detection. */ -#if LJ_ARCH_VERSION >= 20 - flags |= JIT_F_MIPS32R2; -#endif - /* Runtime MIPS CPU detection. */ -#if defined(__GNUC__) - if (!(flags & JIT_F_MIPS32R2)) { - int x; - /* On MIPS32R1 rotr is treated as srl. rotr r2,r2,1 -> srl r2,r2,1. */ - __asm__("li $2, 1\n\t.long 0x00221042\n\tmove %0, $2" : "=r"(x) : : "$2"); - if (x) flags |= JIT_F_MIPS32R2; /* Either 0x80000000 (R2) or 0 (R1). */ - } -#endif -#endif -#else -#error "Missing CPU detection for this architecture" -#endif - UNUSED(L); - return flags; -} - -/* Initialize JIT compiler. */ -static void jit_init(lua_State *L) -{ - uint32_t flags = jit_cpudetect(L); -#if LJ_HASJIT - jit_State *J = L2J(L); - J->flags = flags | JIT_F_ON | JIT_F_OPT_DEFAULT; - memcpy(J->param, jit_param_default, sizeof(J->param)); - lj_dispatch_update(G(L)); -#else - UNUSED(flags); -#endif -} - -LUALIB_API int luaopen_jit(lua_State *L) -{ - jit_init(L); - lua_pushliteral(L, LJ_OS_NAME); - lua_pushliteral(L, LJ_ARCH_NAME); - lua_pushinteger(L, LUAJIT_VERSION_NUM); - lua_pushliteral(L, LUAJIT_VERSION); - LJ_LIB_REG(L, LUA_JITLIBNAME, jit); -#if LJ_HASPROFILE - lj_lib_prereg(L, LUA_JITLIBNAME ".profile", luaopen_jit_profile, - tabref(L->env)); -#endif -#ifndef LUAJIT_DISABLE_JITUTIL - lj_lib_prereg(L, LUA_JITLIBNAME ".util", luaopen_jit_util, tabref(L->env)); -#endif -#if LJ_HASJIT - LJ_LIB_REG(L, "jit.opt", jit_opt); -#endif - L->top -= 2; - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_math.c b/src/3rd party/luajit-2.0-BAK/src/lib_math.c deleted file mode 100644 index 78838fcd6c0..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_math.c +++ /dev/null @@ -1,230 +0,0 @@ -/* -** Math library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include - -#define lib_math_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_lib.h" -#include "lj_vm.h" - -/* ------------------------------------------------------------------------ */ - -#define LJLIB_MODULE_math - -LJLIB_ASM(math_abs) LJLIB_REC(.) -{ - lj_lib_checknumber(L, 1); - return FFH_RETRY; -} -LJLIB_ASM_(math_floor) LJLIB_REC(math_round IRFPM_FLOOR) -LJLIB_ASM_(math_ceil) LJLIB_REC(math_round IRFPM_CEIL) - -LJLIB_ASM(math_sqrt) LJLIB_REC(math_unary IRFPM_SQRT) -{ - lj_lib_checknum(L, 1); - return FFH_RETRY; -} -LJLIB_ASM_(math_log10) LJLIB_REC(math_unary IRFPM_LOG10) -LJLIB_ASM_(math_exp) LJLIB_REC(math_unary IRFPM_EXP) -LJLIB_ASM_(math_sin) LJLIB_REC(math_unary IRFPM_SIN) -LJLIB_ASM_(math_cos) LJLIB_REC(math_unary IRFPM_COS) -LJLIB_ASM_(math_tan) LJLIB_REC(math_unary IRFPM_TAN) -LJLIB_ASM_(math_asin) LJLIB_REC(math_atrig FF_math_asin) -LJLIB_ASM_(math_acos) LJLIB_REC(math_atrig FF_math_acos) -LJLIB_ASM_(math_atan) LJLIB_REC(math_atrig FF_math_atan) -LJLIB_ASM_(math_sinh) LJLIB_REC(math_htrig IRCALL_sinh) -LJLIB_ASM_(math_cosh) LJLIB_REC(math_htrig IRCALL_cosh) -LJLIB_ASM_(math_tanh) LJLIB_REC(math_htrig IRCALL_tanh) -LJLIB_ASM_(math_frexp) -LJLIB_ASM_(math_modf) LJLIB_REC(.) - -LJLIB_ASM(math_log) LJLIB_REC(math_log) -{ - double x = lj_lib_checknum(L, 1); - if (L->base+1 < L->top) { - double y = lj_lib_checknum(L, 2); -#ifdef LUAJIT_NO_LOG2 - x = log(x); y = 1.0 / log(y); -#else - x = lj_vm_log2(x); y = 1.0 / lj_vm_log2(y); -#endif - setnumV(L->base-1-LJ_FR2, x*y); /* Do NOT join the expression to x / y. */ - return FFH_RES(1); - } - return FFH_RETRY; -} - -LJLIB_LUA(math_deg) /* function(x) return x * 57.29577951308232 end */ -LJLIB_LUA(math_rad) /* function(x) return x * 0.017453292519943295 end */ - -LJLIB_ASM(math_atan2) LJLIB_REC(.) -{ - lj_lib_checknum(L, 1); - lj_lib_checknum(L, 2); - return FFH_RETRY; -} -LJLIB_ASM_(math_pow) LJLIB_REC(.) -LJLIB_ASM_(math_fmod) - -LJLIB_ASM(math_ldexp) LJLIB_REC(.) -{ - lj_lib_checknum(L, 1); -#if LJ_DUALNUM && !LJ_TARGET_X86ORX64 - lj_lib_checkint(L, 2); -#else - lj_lib_checknum(L, 2); -#endif - return FFH_RETRY; -} - -LJLIB_ASM(math_min) LJLIB_REC(math_minmax IR_MIN) -{ - int i = 0; - do { lj_lib_checknumber(L, ++i); } while (L->base+i < L->top); - return FFH_RETRY; -} -LJLIB_ASM_(math_max) LJLIB_REC(math_minmax IR_MAX) - -LJLIB_PUSH(3.14159265358979323846) LJLIB_SET(pi) -LJLIB_PUSH(1e310) LJLIB_SET(huge) - -/* ------------------------------------------------------------------------ */ - -/* This implements a Tausworthe PRNG with period 2^223. Based on: -** Tables of maximally-equidistributed combined LFSR generators, -** Pierre L'Ecuyer, 1991, table 3, 1st entry. -** Full-period ME-CF generator with L=64, J=4, k=223, N1=49. -*/ - -/* PRNG state. */ -struct RandomState { - uint64_t gen[4]; /* State of the 4 LFSR generators. */ - int valid; /* State is valid. */ -}; - -/* Union needed for bit-pattern conversion between uint64_t and double. */ -typedef union { uint64_t u64; double d; } U64double; - -/* Update generator i and compute a running xor of all states. */ -#define TW223_GEN(i, k, q, s) \ - z = rs->gen[i]; \ - z = (((z<> (k-s)) ^ ((z&((uint64_t)(int64_t)-1 << (64-k)))<gen[i] = z; - -/* PRNG step function. Returns a double in the range 1.0 <= d < 2.0. */ -LJ_NOINLINE uint64_t LJ_FASTCALL lj_math_random_step(RandomState *rs) -{ - uint64_t z, r = 0; - TW223_GEN(0, 63, 31, 18) - TW223_GEN(1, 58, 19, 28) - TW223_GEN(2, 55, 24, 7) - TW223_GEN(3, 47, 21, 8) - return (r & U64x(000fffff,ffffffff)) | U64x(3ff00000,00000000); -} - -/* PRNG initialization function. */ -static void random_init(RandomState *rs, double d) -{ - uint32_t r = 0x11090601; /* 64-k[i] as four 8 bit constants. */ - int i; - for (i = 0; i < 4; i++) { - U64double u; - uint32_t m = 1u << (r&255); - r >>= 8; - u.d = d = d * 3.14159265358979323846 + 2.7182818284590452354; - if (u.u64 < m) u.u64 += m; /* Ensure k[i] MSB of gen[i] are non-zero. */ - rs->gen[i] = u.u64; - } - rs->valid = 1; - for (i = 0; i < 10; i++) - lj_math_random_step(rs); -} - -/* PRNG extract function. */ -LJLIB_PUSH(top-2) /* Upvalue holds userdata with RandomState. */ -LJLIB_CF(math_random) LJLIB_REC(.) -{ - int n = (int)(L->top - L->base); - RandomState *rs = (RandomState *)(uddata(udataV(lj_lib_upvalue(L, 1)))); - U64double u; - double d; - if (LJ_UNLIKELY(!rs->valid)) random_init(rs, 0.0); - u.u64 = lj_math_random_step(rs); - d = u.d - 1.0; - if (n > 0) { -#if LJ_DUALNUM - int isint = 1; - double r1; - lj_lib_checknumber(L, 1); - if (tvisint(L->base)) { - r1 = (lua_Number)intV(L->base); - } else { - isint = 0; - r1 = numV(L->base); - } -#else - double r1 = lj_lib_checknum(L, 1); -#endif - if (n == 1) { - d = lj_vm_floor(d*r1) + 1.0; /* d is an int in range [1, r1] */ - } else { -#if LJ_DUALNUM - double r2; - lj_lib_checknumber(L, 2); - if (tvisint(L->base+1)) { - r2 = (lua_Number)intV(L->base+1); - } else { - isint = 0; - r2 = numV(L->base+1); - } -#else - double r2 = lj_lib_checknum(L, 2); -#endif - d = lj_vm_floor(d*(r2-r1+1.0)) + r1; /* d is an int in range [r1, r2] */ - } -#if LJ_DUALNUM - if (isint) { - setintV(L->top-1, lj_num2int(d)); - return 1; - } -#endif - } /* else: d is a double in range [0, 1] */ - setnumV(L->top++, d); - return 1; -} - -/* PRNG seed function. */ -LJLIB_PUSH(top-2) /* Upvalue holds userdata with RandomState. */ -LJLIB_CF(math_randomseed) -{ - RandomState *rs = (RandomState *)(uddata(udataV(lj_lib_upvalue(L, 1)))); - random_init(rs, lj_lib_checknum(L, 1)); - return 0; -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_math(lua_State *L) -{ - RandomState *rs; - rs = (RandomState *)lua_newuserdata(L, sizeof(RandomState)); - rs->valid = 0; /* Use lazy initialization to save some time on startup. */ - LJ_LIB_REG(L, LUA_MATHLIBNAME, math); -#if defined(LUA_COMPAT_MOD) && !LJ_52 - lua_getfield(L, -1, "fmod"); - lua_setfield(L, -2, "mod"); -#endif - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_os.c b/src/3rd party/luajit-2.0-BAK/src/lib_os.c deleted file mode 100644 index 7b5873a518a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_os.c +++ /dev/null @@ -1,292 +0,0 @@ -/* -** OS library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#include -#include - -#define lib_os_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_lib.h" - -#if LJ_TARGET_POSIX -#include -#else -#include -#endif - -#if !LJ_TARGET_PSVITA -#include -#endif - -/* ------------------------------------------------------------------------ */ - -#define LJLIB_MODULE_os - -LJLIB_CF(os_execute) -{ -#if LJ_TARGET_CONSOLE -#if LJ_52 - errno = ENOSYS; - return luaL_fileresult(L, 0, NULL); -#else - lua_pushinteger(L, -1); - return 1; -#endif -#else - const char *cmd = luaL_optstring(L, 1, NULL); - int stat = system(cmd); -#if LJ_52 - if (cmd) - return luaL_execresult(L, stat); - setboolV(L->top++, 1); -#else - setintV(L->top++, stat); -#endif - return 1; -#endif -} - -LJLIB_CF(os_remove) -{ - const char *filename = luaL_checkstring(L, 1); - return luaL_fileresult(L, remove(filename) == 0, filename); -} - -LJLIB_CF(os_rename) -{ - const char *fromname = luaL_checkstring(L, 1); - const char *toname = luaL_checkstring(L, 2); - return luaL_fileresult(L, rename(fromname, toname) == 0, fromname); -} - -LJLIB_CF(os_tmpname) -{ -#if LJ_TARGET_PS3 || LJ_TARGET_PS4 || LJ_TARGET_PSVITA - lj_err_caller(L, LJ_ERR_OSUNIQF); - return 0; -#else -#if LJ_TARGET_POSIX - char buf[15+1]; - int fp; - strcpy(buf, "/tmp/lua_XXXXXX"); - fp = mkstemp(buf); - if (fp != -1) - close(fp); - else - lj_err_caller(L, LJ_ERR_OSUNIQF); -#else - char buf[L_tmpnam]; - if (tmpnam(buf) == NULL) - lj_err_caller(L, LJ_ERR_OSUNIQF); -#endif - lua_pushstring(L, buf); - return 1; -#endif -} - -LJLIB_CF(os_getenv) -{ -#if LJ_TARGET_CONSOLE - lua_pushnil(L); -#else - lua_pushstring(L, getenv(luaL_checkstring(L, 1))); /* if NULL push nil */ -#endif - return 1; -} - -LJLIB_CF(os_exit) -{ - int status; - if (L->base < L->top && tvisbool(L->base)) - status = boolV(L->base) ? EXIT_SUCCESS : EXIT_FAILURE; - else - status = lj_lib_optint(L, 1, EXIT_SUCCESS); - if (L->base+1 < L->top && tvistruecond(L->base+1)) - lua_close(L); - exit(status); - return 0; /* Unreachable. */ -} - -LJLIB_CF(os_clock) -{ - setnumV(L->top++, ((lua_Number)clock())*(1.0/(lua_Number)CLOCKS_PER_SEC)); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -static void setfield(lua_State *L, const char *key, int value) -{ - lua_pushinteger(L, value); - lua_setfield(L, -2, key); -} - -static void setboolfield(lua_State *L, const char *key, int value) -{ - if (value < 0) /* undefined? */ - return; /* does not set field */ - lua_pushboolean(L, value); - lua_setfield(L, -2, key); -} - -static int getboolfield(lua_State *L, const char *key) -{ - int res; - lua_getfield(L, -1, key); - res = lua_isnil(L, -1) ? -1 : lua_toboolean(L, -1); - lua_pop(L, 1); - return res; -} - -static int getfield(lua_State *L, const char *key, int d) -{ - int res; - lua_getfield(L, -1, key); - if (lua_isnumber(L, -1)) { - res = (int)lua_tointeger(L, -1); - } else { - if (d < 0) - lj_err_callerv(L, LJ_ERR_OSDATEF, key); - res = d; - } - lua_pop(L, 1); - return res; -} - -LJLIB_CF(os_date) -{ - const char *s = luaL_optstring(L, 1, "%c"); - time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); - struct tm *stm; -#if LJ_TARGET_POSIX - struct tm rtm; -#endif - if (*s == '!') { /* UTC? */ - s++; /* Skip '!' */ -#if LJ_TARGET_POSIX - stm = gmtime_r(&t, &rtm); -#else - stm = gmtime(&t); -#endif - } else { -#if LJ_TARGET_POSIX - stm = localtime_r(&t, &rtm); -#else - stm = localtime(&t); -#endif - } - if (stm == NULL) { /* Invalid date? */ - setnilV(L->top++); - } else if (strcmp(s, "*t") == 0) { - lua_createtable(L, 0, 9); /* 9 = number of fields */ - setfield(L, "sec", stm->tm_sec); - setfield(L, "min", stm->tm_min); - setfield(L, "hour", stm->tm_hour); - setfield(L, "day", stm->tm_mday); - setfield(L, "month", stm->tm_mon+1); - setfield(L, "year", stm->tm_year+1900); - setfield(L, "wday", stm->tm_wday+1); - setfield(L, "yday", stm->tm_yday+1); - setboolfield(L, "isdst", stm->tm_isdst); - } else if (*s) { - SBuf *sb = &G(L)->tmpbuf; - MSize sz = 0; - const char *q; - for (q = s; *q; q++) - sz += (*q == '%') ? 30 : 1; /* Overflow doesn't matter. */ - setsbufL(sb, L); - for (;;) { - char *buf = lj_buf_need(sb, sz); - size_t len = strftime(buf, sbufsz(sb), s, stm); - if (len) { - setstrV(L, L->top++, lj_str_new(L, buf, len)); - lj_gc_check(L); - break; - } - sz += (sz|1); - } - } else { - setstrV(L, L->top++, &G(L)->strempty); - } - return 1; -} - -LJLIB_CF(os_time) -{ - time_t t; - if (lua_isnoneornil(L, 1)) { /* called without args? */ - t = time(NULL); /* get current time */ - } else { - struct tm ts; - luaL_checktype(L, 1, LUA_TTABLE); - lua_settop(L, 1); /* make sure table is at the top */ - ts.tm_sec = getfield(L, "sec", 0); - ts.tm_min = getfield(L, "min", 0); - ts.tm_hour = getfield(L, "hour", 12); - ts.tm_mday = getfield(L, "day", -1); - ts.tm_mon = getfield(L, "month", -1) - 1; - ts.tm_year = getfield(L, "year", -1) - 1900; - ts.tm_isdst = getboolfield(L, "isdst"); - t = mktime(&ts); - } - if (t == (time_t)(-1)) - lua_pushnil(L); - else - lua_pushnumber(L, (lua_Number)t); - return 1; -} - -LJLIB_CF(os_difftime) -{ - lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)), - (time_t)(luaL_optnumber(L, 2, (lua_Number)0)))); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -LJLIB_CF(os_setlocale) -{ -#if LJ_TARGET_PSVITA - lua_pushliteral(L, "C"); -#else - GCstr *s = lj_lib_optstr(L, 1); - const char *str = s ? strdata(s) : NULL; - int opt = lj_lib_checkopt(L, 2, 6, - "\5ctype\7numeric\4time\7collate\10monetary\1\377\3all"); - if (opt == 0) opt = LC_CTYPE; - else if (opt == 1) opt = LC_NUMERIC; - else if (opt == 2) opt = LC_TIME; - else if (opt == 3) opt = LC_COLLATE; - else if (opt == 4) opt = LC_MONETARY; - else if (opt == 6) opt = LC_ALL; - lua_pushstring(L, setlocale(opt, str)); -#endif - return 1; -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_os(lua_State *L) -{ - LJ_LIB_REG(L, LUA_OSLIBNAME, os); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_package.c b/src/3rd party/luajit-2.0-BAK/src/lib_package.c deleted file mode 100644 index 6b6eb8f6f88..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_package.c +++ /dev/null @@ -1,602 +0,0 @@ -/* -** Package library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2012 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lib_package_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_lib.h" - -/* ------------------------------------------------------------------------ */ - -/* Error codes for ll_loadfunc. */ -#define PACKAGE_ERR_LIB 1 -#define PACKAGE_ERR_FUNC 2 -#define PACKAGE_ERR_LOAD 3 - -/* Redefined in platform specific part. */ -#define PACKAGE_LIB_FAIL "open" -#define setprogdir(L) ((void)0) - -/* Symbol name prefixes. */ -#define SYMPREFIX_CF "luaopen_%s" -#define SYMPREFIX_BC "luaJIT_BC_%s" - -#if LJ_TARGET_DLOPEN - -#include - -static void ll_unloadlib(void *lib) -{ - dlclose(lib); -} - -static void *ll_load(lua_State *L, const char *path, int gl) -{ - void *lib = dlopen(path, RTLD_NOW | (gl ? RTLD_GLOBAL : RTLD_LOCAL)); - if (lib == NULL) lua_pushstring(L, dlerror()); - return lib; -} - -static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) -{ - lua_CFunction f = (lua_CFunction)dlsym(lib, sym); - if (f == NULL) lua_pushstring(L, dlerror()); - return f; -} - -static const char *ll_bcsym(void *lib, const char *sym) -{ -#if defined(RTLD_DEFAULT) - if (lib == NULL) lib = RTLD_DEFAULT; -#elif LJ_TARGET_OSX || LJ_TARGET_BSD - if (lib == NULL) lib = (void *)(intptr_t)-2; -#endif - return (const char *)dlsym(lib, sym); -} - -#elif LJ_TARGET_WINDOWS - -#define WIN32_LEAN_AND_MEAN -#include - -#ifndef GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS -#define GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS 4 -#define GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT 2 -BOOL WINAPI GetModuleHandleExA(DWORD, LPCSTR, HMODULE*); -#endif - -#undef setprogdir - -static void setprogdir(lua_State *L) -{ - char buff[MAX_PATH + 1]; - char *lb; - DWORD nsize = sizeof(buff); - DWORD n = GetModuleFileNameA(NULL, buff, nsize); - if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) { - luaL_error(L, "unable to get ModuleFileName"); - } else { - *lb = '\0'; - luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff); - lua_remove(L, -2); /* remove original string */ - } -} - -static void pusherror(lua_State *L) -{ - DWORD error = GetLastError(); - char buffer[128]; - if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, - NULL, error, 0, buffer, sizeof(buffer), NULL)) - lua_pushstring(L, buffer); - else - lua_pushfstring(L, "system error %d\n", error); -} - -static void ll_unloadlib(void *lib) -{ - FreeLibrary((HINSTANCE)lib); -} - -static void *ll_load(lua_State *L, const char *path, int gl) -{ - HINSTANCE lib = LoadLibraryA(path); - if (lib == NULL) pusherror(L); - UNUSED(gl); - return lib; -} - -static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) -{ - lua_CFunction f = (lua_CFunction)GetProcAddress((HINSTANCE)lib, sym); - if (f == NULL) pusherror(L); - return f; -} - -static const char *ll_bcsym(void *lib, const char *sym) -{ - if (lib) { - return (const char *)GetProcAddress((HINSTANCE)lib, sym); - } else { - HINSTANCE h = GetModuleHandleA(NULL); - const char *p = (const char *)GetProcAddress(h, sym); - if (p == NULL && GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, - (const char *)ll_bcsym, &h)) - p = (const char *)GetProcAddress(h, sym); - return p; - } -} - -#else - -#undef PACKAGE_LIB_FAIL -#define PACKAGE_LIB_FAIL "absent" - -#define DLMSG "dynamic libraries not enabled; no support for target OS" - -static void ll_unloadlib(void *lib) -{ - UNUSED(lib); -} - -static void *ll_load(lua_State *L, const char *path, int gl) -{ - UNUSED(path); UNUSED(gl); - lua_pushliteral(L, DLMSG); - return NULL; -} - -static lua_CFunction ll_sym(lua_State *L, void *lib, const char *sym) -{ - UNUSED(lib); UNUSED(sym); - lua_pushliteral(L, DLMSG); - return NULL; -} - -static const char *ll_bcsym(void *lib, const char *sym) -{ - UNUSED(lib); UNUSED(sym); - return NULL; -} - -#endif - -/* ------------------------------------------------------------------------ */ - -static void **ll_register(lua_State *L, const char *path) -{ - void **plib; - lua_pushfstring(L, "LOADLIB: %s", path); - lua_gettable(L, LUA_REGISTRYINDEX); /* check library in registry? */ - if (!lua_isnil(L, -1)) { /* is there an entry? */ - plib = (void **)lua_touserdata(L, -1); - } else { /* no entry yet; create one */ - lua_pop(L, 1); - plib = (void **)lua_newuserdata(L, sizeof(void *)); - *plib = NULL; - luaL_getmetatable(L, "_LOADLIB"); - lua_setmetatable(L, -2); - lua_pushfstring(L, "LOADLIB: %s", path); - lua_pushvalue(L, -2); - lua_settable(L, LUA_REGISTRYINDEX); - } - return plib; -} - -static const char *mksymname(lua_State *L, const char *modname, - const char *prefix) -{ - const char *funcname; - const char *mark = strchr(modname, *LUA_IGMARK); - if (mark) modname = mark + 1; - funcname = luaL_gsub(L, modname, ".", "_"); - funcname = lua_pushfstring(L, prefix, funcname); - lua_remove(L, -2); /* remove 'gsub' result */ - return funcname; -} - -static int ll_loadfunc(lua_State *L, const char *path, const char *name, int r) -{ - void **reg = ll_register(L, path); - if (*reg == NULL) *reg = ll_load(L, path, (*name == '*')); - if (*reg == NULL) { - return PACKAGE_ERR_LIB; /* Unable to load library. */ - } else if (*name == '*') { /* Only load library into global namespace. */ - lua_pushboolean(L, 1); - return 0; - } else { - const char *sym = r ? name : mksymname(L, name, SYMPREFIX_CF); - lua_CFunction f = ll_sym(L, *reg, sym); - if (f) { - lua_pushcfunction(L, f); - return 0; - } - if (!r) { - const char *bcdata = ll_bcsym(*reg, mksymname(L, name, SYMPREFIX_BC)); - lua_pop(L, 1); - if (bcdata) { - if (luaL_loadbuffer(L, bcdata, LJ_MAX_BUF, name) != 0) - return PACKAGE_ERR_LOAD; - return 0; - } - } - return PACKAGE_ERR_FUNC; /* Unable to find function. */ - } -} - -static int lj_cf_package_loadlib(lua_State *L) -{ - const char *path = luaL_checkstring(L, 1); - const char *init = luaL_checkstring(L, 2); - int st = ll_loadfunc(L, path, init, 1); - if (st == 0) { /* no errors? */ - return 1; /* return the loaded function */ - } else { /* error; error message is on stack top */ - lua_pushnil(L); - lua_insert(L, -2); - lua_pushstring(L, (st == PACKAGE_ERR_LIB) ? PACKAGE_LIB_FAIL : "init"); - return 3; /* return nil, error message, and where */ - } -} - -static int lj_cf_package_unloadlib(lua_State *L) -{ - void **lib = (void **)luaL_checkudata(L, 1, "_LOADLIB"); - if (*lib) ll_unloadlib(*lib); - *lib = NULL; /* mark library as closed */ - return 0; -} - -/* ------------------------------------------------------------------------ */ - -static int readable(const char *filename) -{ - FILE *f = fopen(filename, "r"); /* try to open file */ - if (f == NULL) return 0; /* open failed */ - fclose(f); - return 1; -} - -static const char *pushnexttemplate(lua_State *L, const char *path) -{ - const char *l; - while (*path == *LUA_PATHSEP) path++; /* skip separators */ - if (*path == '\0') return NULL; /* no more templates */ - l = strchr(path, *LUA_PATHSEP); /* find next separator */ - if (l == NULL) l = path + strlen(path); - lua_pushlstring(L, path, (size_t)(l - path)); /* template */ - return l; -} - -static const char *searchpath (lua_State *L, const char *name, - const char *path, const char *sep, - const char *dirsep) -{ - luaL_Buffer msg; /* to build error message */ - luaL_buffinit(L, &msg); - if (*sep != '\0') /* non-empty separator? */ - name = luaL_gsub(L, name, sep, dirsep); /* replace it by 'dirsep' */ - while ((path = pushnexttemplate(L, path)) != NULL) { - const char *filename = luaL_gsub(L, lua_tostring(L, -1), - LUA_PATH_MARK, name); - lua_remove(L, -2); /* remove path template */ - if (readable(filename)) /* does file exist and is readable? */ - return filename; /* return that file name */ - lua_pushfstring(L, "\n\tno file " LUA_QS, filename); - lua_remove(L, -2); /* remove file name */ - luaL_addvalue(&msg); /* concatenate error msg. entry */ - } - luaL_pushresult(&msg); /* create error message */ - return NULL; /* not found */ -} - -static int lj_cf_package_searchpath(lua_State *L) -{ - const char *f = searchpath(L, luaL_checkstring(L, 1), - luaL_checkstring(L, 2), - luaL_optstring(L, 3, "."), - luaL_optstring(L, 4, LUA_DIRSEP)); - if (f != NULL) { - return 1; - } else { /* error message is on top of the stack */ - lua_pushnil(L); - lua_insert(L, -2); - return 2; /* return nil + error message */ - } -} - -static const char *findfile(lua_State *L, const char *name, - const char *pname) -{ - const char *path; - lua_getfield(L, LUA_ENVIRONINDEX, pname); - path = lua_tostring(L, -1); - if (path == NULL) - luaL_error(L, LUA_QL("package.%s") " must be a string", pname); - return searchpath(L, name, path, ".", LUA_DIRSEP); -} - -static void loaderror(lua_State *L, const char *filename) -{ - luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s", - lua_tostring(L, 1), filename, lua_tostring(L, -1)); -} - -static int lj_cf_package_loader_lua(lua_State *L) -{ - const char *filename; - const char *name = luaL_checkstring(L, 1); - filename = findfile(L, name, "path"); - if (filename == NULL) return 1; /* library not found in this path */ - if (luaL_loadfile(L, filename) != 0) - loaderror(L, filename); - return 1; /* library loaded successfully */ -} - -static int lj_cf_package_loader_c(lua_State *L) -{ - const char *name = luaL_checkstring(L, 1); - const char *filename = findfile(L, name, "cpath"); - if (filename == NULL) return 1; /* library not found in this path */ - if (ll_loadfunc(L, filename, name, 0) != 0) - loaderror(L, filename); - return 1; /* library loaded successfully */ -} - -static int lj_cf_package_loader_croot(lua_State *L) -{ - const char *filename; - const char *name = luaL_checkstring(L, 1); - const char *p = strchr(name, '.'); - int st; - if (p == NULL) return 0; /* is root */ - lua_pushlstring(L, name, (size_t)(p - name)); - filename = findfile(L, lua_tostring(L, -1), "cpath"); - if (filename == NULL) return 1; /* root not found */ - if ((st = ll_loadfunc(L, filename, name, 0)) != 0) { - if (st != PACKAGE_ERR_FUNC) loaderror(L, filename); /* real error */ - lua_pushfstring(L, "\n\tno module " LUA_QS " in file " LUA_QS, - name, filename); - return 1; /* function not found */ - } - return 1; -} - -static int lj_cf_package_loader_preload(lua_State *L) -{ - const char *name = luaL_checkstring(L, 1); - lua_getfield(L, LUA_ENVIRONINDEX, "preload"); - if (!lua_istable(L, -1)) - luaL_error(L, LUA_QL("package.preload") " must be a table"); - lua_getfield(L, -1, name); - if (lua_isnil(L, -1)) { /* Not found? */ - const char *bcname = mksymname(L, name, SYMPREFIX_BC); - const char *bcdata = ll_bcsym(NULL, bcname); - if (bcdata == NULL || luaL_loadbuffer(L, bcdata, LJ_MAX_BUF, name) != 0) - lua_pushfstring(L, "\n\tno field package.preload['%s']", name); - } - return 1; -} - -/* ------------------------------------------------------------------------ */ - -static const int sentinel_ = 0; -#define sentinel ((void *)&sentinel_) - -static int lj_cf_package_require(lua_State *L) -{ - const char *name = luaL_checkstring(L, 1); - int i; - lua_settop(L, 1); /* _LOADED table will be at index 2 */ - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); - lua_getfield(L, 2, name); - if (lua_toboolean(L, -1)) { /* is it there? */ - if (lua_touserdata(L, -1) == sentinel) /* check loops */ - luaL_error(L, "loop or previous error loading module " LUA_QS, name); - return 1; /* package is already loaded */ - } - /* else must load it; iterate over available loaders */ - lua_getfield(L, LUA_ENVIRONINDEX, "loaders"); - if (!lua_istable(L, -1)) - luaL_error(L, LUA_QL("package.loaders") " must be a table"); - lua_pushliteral(L, ""); /* error message accumulator */ - for (i = 1; ; i++) { - lua_rawgeti(L, -2, i); /* get a loader */ - if (lua_isnil(L, -1)) - luaL_error(L, "module " LUA_QS " not found:%s", - name, lua_tostring(L, -2)); - lua_pushstring(L, name); - lua_call(L, 1, 1); /* call it */ - if (lua_isfunction(L, -1)) /* did it find module? */ - break; /* module loaded successfully */ - else if (lua_isstring(L, -1)) /* loader returned error message? */ - lua_concat(L, 2); /* accumulate it */ - else - lua_pop(L, 1); - } - lua_pushlightuserdata(L, sentinel); - lua_setfield(L, 2, name); /* _LOADED[name] = sentinel */ - lua_pushstring(L, name); /* pass name as argument to module */ - lua_call(L, 1, 1); /* run loaded module */ - if (!lua_isnil(L, -1)) /* non-nil return? */ - lua_setfield(L, 2, name); /* _LOADED[name] = returned value */ - lua_getfield(L, 2, name); - if (lua_touserdata(L, -1) == sentinel) { /* module did not set a value? */ - lua_pushboolean(L, 1); /* use true as result */ - lua_pushvalue(L, -1); /* extra copy to be returned */ - lua_setfield(L, 2, name); /* _LOADED[name] = true */ - } - lj_lib_checkfpu(L); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -static void setfenv(lua_State *L) -{ - lua_Debug ar; - if (lua_getstack(L, 1, &ar) == 0 || - lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ - lua_iscfunction(L, -1)) - luaL_error(L, LUA_QL("module") " not called from a Lua function"); - lua_pushvalue(L, -2); - lua_setfenv(L, -2); - lua_pop(L, 1); -} - -static void dooptions(lua_State *L, int n) -{ - int i; - for (i = 2; i <= n; i++) { - lua_pushvalue(L, i); /* get option (a function) */ - lua_pushvalue(L, -2); /* module */ - lua_call(L, 1, 0); - } -} - -static void modinit(lua_State *L, const char *modname) -{ - const char *dot; - lua_pushvalue(L, -1); - lua_setfield(L, -2, "_M"); /* module._M = module */ - lua_pushstring(L, modname); - lua_setfield(L, -2, "_NAME"); - dot = strrchr(modname, '.'); /* look for last dot in module name */ - if (dot == NULL) dot = modname; else dot++; - /* set _PACKAGE as package name (full module name minus last part) */ - lua_pushlstring(L, modname, (size_t)(dot - modname)); - lua_setfield(L, -2, "_PACKAGE"); -} - -static int lj_cf_package_module(lua_State *L) -{ - const char *modname = luaL_checkstring(L, 1); - int loaded = lua_gettop(L) + 1; /* index of _LOADED table */ - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); - lua_getfield(L, loaded, modname); /* get _LOADED[modname] */ - if (!lua_istable(L, -1)) { /* not found? */ - lua_pop(L, 1); /* remove previous result */ - /* try global variable (and create one if it does not exist) */ - if (luaL_findtable(L, LUA_GLOBALSINDEX, modname, 1) != NULL) - lj_err_callerv(L, LJ_ERR_BADMODN, modname); - lua_pushvalue(L, -1); - lua_setfield(L, loaded, modname); /* _LOADED[modname] = new table */ - } - /* check whether table already has a _NAME field */ - lua_getfield(L, -1, "_NAME"); - if (!lua_isnil(L, -1)) { /* is table an initialized module? */ - lua_pop(L, 1); - } else { /* no; initialize it */ - lua_pop(L, 1); - modinit(L, modname); - } - lua_pushvalue(L, -1); - setfenv(L); - dooptions(L, loaded - 1); - return 0; -} - -static int lj_cf_package_seeall(lua_State *L) -{ - luaL_checktype(L, 1, LUA_TTABLE); - if (!lua_getmetatable(L, 1)) { - lua_createtable(L, 0, 1); /* create new metatable */ - lua_pushvalue(L, -1); - lua_setmetatable(L, 1); - } - lua_pushvalue(L, LUA_GLOBALSINDEX); - lua_setfield(L, -2, "__index"); /* mt.__index = _G */ - return 0; -} - -/* ------------------------------------------------------------------------ */ - -#define AUXMARK "\1" - -static void setpath(lua_State *L, const char *fieldname, const char *envname, - const char *def, int noenv) -{ -#if LJ_TARGET_CONSOLE - const char *path = NULL; - UNUSED(envname); -#else - const char *path = getenv(envname); -#endif - if (path == NULL || noenv) { - lua_pushstring(L, def); - } else { - path = luaL_gsub(L, path, LUA_PATHSEP LUA_PATHSEP, - LUA_PATHSEP AUXMARK LUA_PATHSEP); - luaL_gsub(L, path, AUXMARK, def); - lua_remove(L, -2); - } - setprogdir(L); - lua_setfield(L, -2, fieldname); -} - -static const luaL_Reg package_lib[] = { - { "loadlib", lj_cf_package_loadlib }, - { "searchpath", lj_cf_package_searchpath }, - { "seeall", lj_cf_package_seeall }, - { NULL, NULL } -}; - -static const luaL_Reg package_global[] = { - { "module", lj_cf_package_module }, - { "require", lj_cf_package_require }, - { NULL, NULL } -}; - -static const lua_CFunction package_loaders[] = -{ - lj_cf_package_loader_preload, - lj_cf_package_loader_lua, - lj_cf_package_loader_c, - lj_cf_package_loader_croot, - NULL -}; - -LUALIB_API int luaopen_package(lua_State *L) -{ - int i; - int noenv; - luaL_newmetatable(L, "_LOADLIB"); - lj_lib_pushcf(L, lj_cf_package_unloadlib, 1); - lua_setfield(L, -2, "__gc"); - luaL_register(L, LUA_LOADLIBNAME, package_lib); - lua_pushvalue(L, -1); - lua_replace(L, LUA_ENVIRONINDEX); - lua_createtable(L, sizeof(package_loaders)/sizeof(package_loaders[0])-1, 0); - for (i = 0; package_loaders[i] != NULL; i++) { - lj_lib_pushcf(L, package_loaders[i], 1); - lua_rawseti(L, -2, i+1); - } - lua_setfield(L, -2, "loaders"); - lua_getfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); - noenv = lua_toboolean(L, -1); - lua_pop(L, 1); - setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT, noenv); - setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT, noenv); - lua_pushliteral(L, LUA_PATH_CONFIG); - lua_setfield(L, -2, "config"); - luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); - lua_setfield(L, -2, "loaded"); - luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", 4); - lua_setfield(L, -2, "preload"); - lua_pushvalue(L, LUA_GLOBALSINDEX); - luaL_register(L, NULL, package_global); - lua_pop(L, 1); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lib_string.c b/src/3rd party/luajit-2.0-BAK/src/lib_string.c deleted file mode 100644 index a6d9986ac63..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lib_string.c +++ /dev/null @@ -1,752 +0,0 @@ -/* -** String library. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lib_string_c -#define LUA_LIB - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_state.h" -#include "lj_ff.h" -#include "lj_bcdump.h" -#include "lj_char.h" -#include "lj_strfmt.h" -#include "lj_lib.h" - -/* ------------------------------------------------------------------------ */ - -#define LJLIB_MODULE_string - -LJLIB_LUA(string_len) /* - function(s) - CHECK_str(s) - return #s - end -*/ - -LJLIB_ASM(string_byte) LJLIB_REC(string_range 0) -{ - GCstr *s = lj_lib_checkstr(L, 1); - int32_t len = (int32_t)s->len; - int32_t start = lj_lib_optint(L, 2, 1); - int32_t stop = lj_lib_optint(L, 3, start); - int32_t n, i; - const unsigned char *p; - if (stop < 0) stop += len+1; - if (start < 0) start += len+1; - if (start <= 0) start = 1; - if (stop > len) stop = len; - if (start > stop) return FFH_RES(0); /* Empty interval: return no results. */ - start--; - n = stop - start; - if ((uint32_t)n > LUAI_MAXCSTACK) - lj_err_caller(L, LJ_ERR_STRSLC); - lj_state_checkstack(L, (MSize)n); - p = (const unsigned char *)strdata(s) + start; - for (i = 0; i < n; i++) - setintV(L->base + i-1-LJ_FR2, p[i]); - return FFH_RES(n); -} - -LJLIB_ASM(string_char) LJLIB_REC(.) -{ - int i, nargs = (int)(L->top - L->base); - char *buf = lj_buf_tmp(L, (MSize)nargs); - for (i = 1; i <= nargs; i++) { - int32_t k = lj_lib_checkint(L, i); - if (!checku8(k)) - lj_err_arg(L, i, LJ_ERR_BADVAL); - buf[i-1] = (char)k; - } - setstrV(L, L->base-1-LJ_FR2, lj_str_new(L, buf, (size_t)nargs)); - return FFH_RES(1); -} - -LJLIB_ASM(string_sub) LJLIB_REC(string_range 1) -{ - lj_lib_checkstr(L, 1); - lj_lib_checkint(L, 2); - setintV(L->base+2, lj_lib_optint(L, 3, -1)); - return FFH_RETRY; -} - -LJLIB_CF(string_rep) LJLIB_REC(.) -{ - GCstr *s = lj_lib_checkstr(L, 1); - int32_t rep = lj_lib_checkint(L, 2); - GCstr *sep = lj_lib_optstr(L, 3); - SBuf *sb = lj_buf_tmp_(L); - if (sep && rep > 1) { - GCstr *s2 = lj_buf_cat2str(L, sep, s); - lj_buf_reset(sb); - lj_buf_putstr(sb, s); - s = s2; - rep--; - } - sb = lj_buf_putstr_rep(sb, s, rep); - setstrV(L, L->top-1, lj_buf_str(L, sb)); - lj_gc_check(L); - return 1; -} - -LJLIB_ASM(string_reverse) LJLIB_REC(string_op IRCALL_lj_buf_putstr_reverse) -{ - lj_lib_checkstr(L, 1); - return FFH_RETRY; -} -LJLIB_ASM_(string_lower) LJLIB_REC(string_op IRCALL_lj_buf_putstr_lower) -LJLIB_ASM_(string_upper) LJLIB_REC(string_op IRCALL_lj_buf_putstr_upper) - -/* ------------------------------------------------------------------------ */ - -static int writer_buf(lua_State *L, const void *p, size_t size, void *sb) -{ - lj_buf_putmem((SBuf *)sb, p, (MSize)size); - UNUSED(L); - return 0; -} - -LJLIB_CF(string_dump) -{ - GCfunc *fn = lj_lib_checkfunc(L, 1); - int strip = L->base+1 < L->top && tvistruecond(L->base+1); - SBuf *sb = lj_buf_tmp_(L); /* Assumes lj_bcwrite() doesn't use tmpbuf. */ - L->top = L->base+1; - if (!isluafunc(fn) || lj_bcwrite(L, funcproto(fn), writer_buf, sb, strip)) - lj_err_caller(L, LJ_ERR_STRDUMP); - setstrV(L, L->top-1, lj_buf_str(L, sb)); - lj_gc_check(L); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -/* macro to `unsign' a character */ -#define uchar(c) ((unsigned char)(c)) - -#define CAP_UNFINISHED (-1) -#define CAP_POSITION (-2) - -typedef struct MatchState { - const char *src_init; /* init of source string */ - const char *src_end; /* end (`\0') of source string */ - lua_State *L; - int level; /* total number of captures (finished or unfinished) */ - int depth; - struct { - const char *init; - ptrdiff_t len; - } capture[LUA_MAXCAPTURES]; -} MatchState; - -#define L_ESC '%' - -static int check_capture(MatchState *ms, int l) -{ - l -= '1'; - if (l < 0 || l >= ms->level || ms->capture[l].len == CAP_UNFINISHED) - lj_err_caller(ms->L, LJ_ERR_STRCAPI); - return l; -} - -static int capture_to_close(MatchState *ms) -{ - int level = ms->level; - for (level--; level>=0; level--) - if (ms->capture[level].len == CAP_UNFINISHED) return level; - lj_err_caller(ms->L, LJ_ERR_STRPATC); - return 0; /* unreachable */ -} - -static const char *classend(MatchState *ms, const char *p) -{ - switch (*p++) { - case L_ESC: - if (*p == '\0') - lj_err_caller(ms->L, LJ_ERR_STRPATE); - return p+1; - case '[': - if (*p == '^') p++; - do { /* look for a `]' */ - if (*p == '\0') - lj_err_caller(ms->L, LJ_ERR_STRPATM); - if (*(p++) == L_ESC && *p != '\0') - p++; /* skip escapes (e.g. `%]') */ - } while (*p != ']'); - return p+1; - default: - return p; - } -} - -static const unsigned char match_class_map[32] = { - 0,LJ_CHAR_ALPHA,0,LJ_CHAR_CNTRL,LJ_CHAR_DIGIT,0,0,LJ_CHAR_GRAPH,0,0,0,0, - LJ_CHAR_LOWER,0,0,0,LJ_CHAR_PUNCT,0,0,LJ_CHAR_SPACE,0, - LJ_CHAR_UPPER,0,LJ_CHAR_ALNUM,LJ_CHAR_XDIGIT,0,0,0,0,0,0,0 -}; - -static int match_class(int c, int cl) -{ - if ((cl & 0xc0) == 0x40) { - int t = match_class_map[(cl&0x1f)]; - if (t) { - t = lj_char_isa(c, t); - return (cl & 0x20) ? t : !t; - } - if (cl == 'z') return c == 0; - if (cl == 'Z') return c != 0; - } - return (cl == c); -} - -static int matchbracketclass(int c, const char *p, const char *ec) -{ - int sig = 1; - if (*(p+1) == '^') { - sig = 0; - p++; /* skip the `^' */ - } - while (++p < ec) { - if (*p == L_ESC) { - p++; - if (match_class(c, uchar(*p))) - return sig; - } - else if ((*(p+1) == '-') && (p+2 < ec)) { - p+=2; - if (uchar(*(p-2)) <= c && c <= uchar(*p)) - return sig; - } - else if (uchar(*p) == c) return sig; - } - return !sig; -} - -static int singlematch(int c, const char *p, const char *ep) -{ - switch (*p) { - case '.': return 1; /* matches any char */ - case L_ESC: return match_class(c, uchar(*(p+1))); - case '[': return matchbracketclass(c, p, ep-1); - default: return (uchar(*p) == c); - } -} - -static const char *match(MatchState *ms, const char *s, const char *p); - -static const char *matchbalance(MatchState *ms, const char *s, const char *p) -{ - if (*p == 0 || *(p+1) == 0) - lj_err_caller(ms->L, LJ_ERR_STRPATU); - if (*s != *p) { - return NULL; - } else { - int b = *p; - int e = *(p+1); - int cont = 1; - while (++s < ms->src_end) { - if (*s == e) { - if (--cont == 0) return s+1; - } else if (*s == b) { - cont++; - } - } - } - return NULL; /* string ends out of balance */ -} - -static const char *max_expand(MatchState *ms, const char *s, - const char *p, const char *ep) -{ - ptrdiff_t i = 0; /* counts maximum expand for item */ - while ((s+i)src_end && singlematch(uchar(*(s+i)), p, ep)) - i++; - /* keeps trying to match with the maximum repetitions */ - while (i>=0) { - const char *res = match(ms, (s+i), ep+1); - if (res) return res; - i--; /* else didn't match; reduce 1 repetition to try again */ - } - return NULL; -} - -static const char *min_expand(MatchState *ms, const char *s, - const char *p, const char *ep) -{ - for (;;) { - const char *res = match(ms, s, ep+1); - if (res != NULL) - return res; - else if (ssrc_end && singlematch(uchar(*s), p, ep)) - s++; /* try with one more repetition */ - else - return NULL; - } -} - -static const char *start_capture(MatchState *ms, const char *s, - const char *p, int what) -{ - const char *res; - int level = ms->level; - if (level >= LUA_MAXCAPTURES) lj_err_caller(ms->L, LJ_ERR_STRCAPN); - ms->capture[level].init = s; - ms->capture[level].len = what; - ms->level = level+1; - if ((res=match(ms, s, p)) == NULL) /* match failed? */ - ms->level--; /* undo capture */ - return res; -} - -static const char *end_capture(MatchState *ms, const char *s, - const char *p) -{ - int l = capture_to_close(ms); - const char *res; - ms->capture[l].len = s - ms->capture[l].init; /* close capture */ - if ((res = match(ms, s, p)) == NULL) /* match failed? */ - ms->capture[l].len = CAP_UNFINISHED; /* undo capture */ - return res; -} - -static const char *match_capture(MatchState *ms, const char *s, int l) -{ - size_t len; - l = check_capture(ms, l); - len = (size_t)ms->capture[l].len; - if ((size_t)(ms->src_end-s) >= len && - memcmp(ms->capture[l].init, s, len) == 0) - return s+len; - else - return NULL; -} - -static const char *match(MatchState *ms, const char *s, const char *p) -{ - if (++ms->depth > LJ_MAX_XLEVEL) - lj_err_caller(ms->L, LJ_ERR_STRPATX); - init: /* using goto's to optimize tail recursion */ - switch (*p) { - case '(': /* start capture */ - if (*(p+1) == ')') /* position capture? */ - s = start_capture(ms, s, p+2, CAP_POSITION); - else - s = start_capture(ms, s, p+1, CAP_UNFINISHED); - break; - case ')': /* end capture */ - s = end_capture(ms, s, p+1); - break; - case L_ESC: - switch (*(p+1)) { - case 'b': /* balanced string? */ - s = matchbalance(ms, s, p+2); - if (s == NULL) break; - p+=4; - goto init; /* else s = match(ms, s, p+4); */ - case 'f': { /* frontier? */ - const char *ep; char previous; - p += 2; - if (*p != '[') - lj_err_caller(ms->L, LJ_ERR_STRPATB); - ep = classend(ms, p); /* points to what is next */ - previous = (s == ms->src_init) ? '\0' : *(s-1); - if (matchbracketclass(uchar(previous), p, ep-1) || - !matchbracketclass(uchar(*s), p, ep-1)) { s = NULL; break; } - p=ep; - goto init; /* else s = match(ms, s, ep); */ - } - default: - if (lj_char_isdigit(uchar(*(p+1)))) { /* capture results (%0-%9)? */ - s = match_capture(ms, s, uchar(*(p+1))); - if (s == NULL) break; - p+=2; - goto init; /* else s = match(ms, s, p+2) */ - } - goto dflt; /* case default */ - } - break; - case '\0': /* end of pattern */ - break; /* match succeeded */ - case '$': - /* is the `$' the last char in pattern? */ - if (*(p+1) != '\0') goto dflt; - if (s != ms->src_end) s = NULL; /* check end of string */ - break; - default: dflt: { /* it is a pattern item */ - const char *ep = classend(ms, p); /* points to what is next */ - int m = ssrc_end && singlematch(uchar(*s), p, ep); - switch (*ep) { - case '?': { /* optional */ - const char *res; - if (m && ((res=match(ms, s+1, ep+1)) != NULL)) { - s = res; - break; - } - p=ep+1; - goto init; /* else s = match(ms, s, ep+1); */ - } - case '*': /* 0 or more repetitions */ - s = max_expand(ms, s, p, ep); - break; - case '+': /* 1 or more repetitions */ - s = (m ? max_expand(ms, s+1, p, ep) : NULL); - break; - case '-': /* 0 or more repetitions (minimum) */ - s = min_expand(ms, s, p, ep); - break; - default: - if (m) { s++; p=ep; goto init; } /* else s = match(ms, s+1, ep); */ - s = NULL; - break; - } - break; - } - } - ms->depth--; - return s; -} - -static void push_onecapture(MatchState *ms, int i, const char *s, const char *e) -{ - if (i >= ms->level) { - if (i == 0) /* ms->level == 0, too */ - lua_pushlstring(ms->L, s, (size_t)(e - s)); /* add whole match */ - else - lj_err_caller(ms->L, LJ_ERR_STRCAPI); - } else { - ptrdiff_t l = ms->capture[i].len; - if (l == CAP_UNFINISHED) lj_err_caller(ms->L, LJ_ERR_STRCAPU); - if (l == CAP_POSITION) - lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1); - else - lua_pushlstring(ms->L, ms->capture[i].init, (size_t)l); - } -} - -static int push_captures(MatchState *ms, const char *s, const char *e) -{ - int i; - int nlevels = (ms->level == 0 && s) ? 1 : ms->level; - luaL_checkstack(ms->L, nlevels, "too many captures"); - for (i = 0; i < nlevels; i++) - push_onecapture(ms, i, s, e); - return nlevels; /* number of strings pushed */ -} - -static int str_find_aux(lua_State *L, int find) -{ - GCstr *s = lj_lib_checkstr(L, 1); - GCstr *p = lj_lib_checkstr(L, 2); - int32_t start = lj_lib_optint(L, 3, 1); - MSize st; - if (start < 0) start += (int32_t)s->len; else start--; - if (start < 0) start = 0; - st = (MSize)start; - if (st > s->len) { -#if LJ_52 - setnilV(L->top-1); - return 1; -#else - st = s->len; -#endif - } - if (find && ((L->base+3 < L->top && tvistruecond(L->base+3)) || - !lj_str_haspattern(p))) { /* Search for fixed string. */ - const char *q = lj_str_find(strdata(s)+st, strdata(p), s->len-st, p->len); - if (q) { - setintV(L->top-2, (int32_t)(q-strdata(s)) + 1); - setintV(L->top-1, (int32_t)(q-strdata(s)) + (int32_t)p->len); - return 2; - } - } else { /* Search for pattern. */ - MatchState ms; - const char *pstr = strdata(p); - const char *sstr = strdata(s) + st; - int anchor = 0; - if (*pstr == '^') { pstr++; anchor = 1; } - ms.L = L; - ms.src_init = strdata(s); - ms.src_end = strdata(s) + s->len; - do { /* Loop through string and try to match the pattern. */ - const char *q; - ms.level = ms.depth = 0; - q = match(&ms, sstr, pstr); - if (q) { - if (find) { - setintV(L->top++, (int32_t)(sstr-(strdata(s)-1))); - setintV(L->top++, (int32_t)(q-strdata(s))); - return push_captures(&ms, NULL, NULL) + 2; - } else { - return push_captures(&ms, sstr, q); - } - } - } while (sstr++ < ms.src_end && !anchor); - } - setnilV(L->top-1); /* Not found. */ - return 1; -} - -LJLIB_CF(string_find) LJLIB_REC(.) -{ - return str_find_aux(L, 1); -} - -LJLIB_CF(string_match) -{ - return str_find_aux(L, 0); -} - -LJLIB_NOREG LJLIB_CF(string_gmatch_aux) -{ - const char *p = strVdata(lj_lib_upvalue(L, 2)); - GCstr *str = strV(lj_lib_upvalue(L, 1)); - const char *s = strdata(str); - TValue *tvpos = lj_lib_upvalue(L, 3); - const char *src = s + tvpos->u32.lo; - MatchState ms; - ms.L = L; - ms.src_init = s; - ms.src_end = s + str->len; - for (; src <= ms.src_end; src++) { - const char *e; - ms.level = ms.depth = 0; - if ((e = match(&ms, src, p)) != NULL) { - int32_t pos = (int32_t)(e - s); - if (e == src) pos++; /* Ensure progress for empty match. */ - tvpos->u32.lo = (uint32_t)pos; - return push_captures(&ms, src, e); - } - } - return 0; /* not found */ -} - -LJLIB_CF(string_gmatch) -{ - lj_lib_checkstr(L, 1); - lj_lib_checkstr(L, 2); - L->top = L->base+3; - (L->top-1)->u64 = 0; - lj_lib_pushcc(L, lj_cf_string_gmatch_aux, FF_string_gmatch_aux, 3); - return 1; -} - -static void add_s(MatchState *ms, luaL_Buffer *b, const char *s, const char *e) -{ - size_t l, i; - const char *news = lua_tolstring(ms->L, 3, &l); - for (i = 0; i < l; i++) { - if (news[i] != L_ESC) { - luaL_addchar(b, news[i]); - } else { - i++; /* skip ESC */ - if (!lj_char_isdigit(uchar(news[i]))) { - luaL_addchar(b, news[i]); - } else if (news[i] == '0') { - luaL_addlstring(b, s, (size_t)(e - s)); - } else { - push_onecapture(ms, news[i] - '1', s, e); - luaL_addvalue(b); /* add capture to accumulated result */ - } - } - } -} - -static void add_value(MatchState *ms, luaL_Buffer *b, - const char *s, const char *e) -{ - lua_State *L = ms->L; - switch (lua_type(L, 3)) { - case LUA_TNUMBER: - case LUA_TSTRING: { - add_s(ms, b, s, e); - return; - } - case LUA_TFUNCTION: { - int n; - lua_pushvalue(L, 3); - n = push_captures(ms, s, e); - lua_call(L, n, 1); - break; - } - case LUA_TTABLE: { - push_onecapture(ms, 0, s, e); - lua_gettable(L, 3); - break; - } - } - if (!lua_toboolean(L, -1)) { /* nil or false? */ - lua_pop(L, 1); - lua_pushlstring(L, s, (size_t)(e - s)); /* keep original text */ - } else if (!lua_isstring(L, -1)) { - lj_err_callerv(L, LJ_ERR_STRGSRV, luaL_typename(L, -1)); - } - luaL_addvalue(b); /* add result to accumulator */ -} - -LJLIB_CF(string_gsub) -{ - size_t srcl; - const char *src = luaL_checklstring(L, 1, &srcl); - const char *p = luaL_checkstring(L, 2); - int tr = lua_type(L, 3); - int max_s = luaL_optint(L, 4, (int)(srcl+1)); - int anchor = (*p == '^') ? (p++, 1) : 0; - int n = 0; - MatchState ms; - luaL_Buffer b; - if (!(tr == LUA_TNUMBER || tr == LUA_TSTRING || - tr == LUA_TFUNCTION || tr == LUA_TTABLE)) - lj_err_arg(L, 3, LJ_ERR_NOSFT); - luaL_buffinit(L, &b); - ms.L = L; - ms.src_init = src; - ms.src_end = src+srcl; - while (n < max_s) { - const char *e; - ms.level = ms.depth = 0; - e = match(&ms, src, p); - if (e) { - n++; - add_value(&ms, &b, src, e); - } - if (e && e>src) /* non empty match? */ - src = e; /* skip it */ - else if (src < ms.src_end) - luaL_addchar(&b, *src++); - else - break; - if (anchor) - break; - } - luaL_addlstring(&b, src, (size_t)(ms.src_end-src)); - luaL_pushresult(&b); - lua_pushinteger(L, n); /* number of substitutions */ - return 2; -} - -/* ------------------------------------------------------------------------ */ - -/* Emulate tostring() inline. */ -static GCstr *string_fmt_tostring(lua_State *L, int arg, int retry) -{ - TValue *o = L->base+arg-1; - cTValue *mo; - lua_assert(o < L->top); /* Caller already checks for existence. */ - if (LJ_LIKELY(tvisstr(o))) - return strV(o); - if (retry != 2 && !tvisnil(mo = lj_meta_lookup(L, o, MM_tostring))) { - copyTV(L, L->top++, mo); - copyTV(L, L->top++, o); - lua_call(L, 1, 1); - copyTV(L, L->base+arg-1, --L->top); - return NULL; /* Buffer may be overwritten, retry. */ - } - return lj_strfmt_obj(L, o); -} - -LJLIB_CF(string_format) LJLIB_REC(.) -{ - int arg, top = (int)(L->top - L->base); - GCstr *fmt; - SBuf *sb; - FormatState fs; - SFormat sf; - int retry = 0; -again: - arg = 1; - sb = lj_buf_tmp_(L); - fmt = lj_lib_checkstr(L, arg); - lj_strfmt_init(&fs, strdata(fmt), fmt->len); - while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { - if (sf == STRFMT_LIT) { - lj_buf_putmem(sb, fs.str, fs.len); - } else if (sf == STRFMT_ERR) { - lj_err_callerv(L, LJ_ERR_STRFMT, strdata(lj_str_new(L, fs.str, fs.len))); - } else { - if (++arg > top) - luaL_argerror(L, arg, lj_obj_typename[0]); - switch (STRFMT_TYPE(sf)) { - case STRFMT_INT: - if (tvisint(L->base+arg-1)) { - int32_t k = intV(L->base+arg-1); - if (sf == STRFMT_INT) - lj_strfmt_putint(sb, k); /* Shortcut for plain %d. */ - else - lj_strfmt_putfxint(sb, sf, k); - } else { - lj_strfmt_putfnum_int(sb, sf, lj_lib_checknum(L, arg)); - } - break; - case STRFMT_UINT: - if (tvisint(L->base+arg-1)) - lj_strfmt_putfxint(sb, sf, intV(L->base+arg-1)); - else - lj_strfmt_putfnum_uint(sb, sf, lj_lib_checknum(L, arg)); - break; - case STRFMT_NUM: - lj_strfmt_putfnum(sb, sf, lj_lib_checknum(L, arg)); - break; - case STRFMT_STR: { - GCstr *str = string_fmt_tostring(L, arg, retry); - if (str == NULL) - retry = 1; - else if ((sf & STRFMT_T_QUOTED)) - lj_strfmt_putquoted(sb, str); /* No formatting. */ - else - lj_strfmt_putfstr(sb, sf, str); - break; - } - case STRFMT_CHAR: - lj_strfmt_putfchar(sb, sf, lj_lib_checkint(L, arg)); - break; - case STRFMT_PTR: /* No formatting. */ - lj_strfmt_putptr(sb, lj_obj_ptr(L->base+arg-1)); - break; - default: - lua_assert(0); - break; - } - } - } - if (retry++ == 1) goto again; - setstrV(L, L->top-1, lj_buf_str(L, sb)); - lj_gc_check(L); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_string(lua_State *L) -{ - GCtab *mt; - global_State *g; - LJ_LIB_REG(L, LUA_STRLIBNAME, string); -#if defined(LUA_COMPAT_GFIND) && !LJ_52 - lua_getfield(L, -1, "gmatch"); - lua_setfield(L, -2, "gfind"); -#endif - mt = lj_tab_new(L, 0, 1); - /* NOBARRIER: basemt is a GC root. */ - g = G(L); - setgcref(basemt_it(g, LJ_TSTR), obj2gco(mt)); - settabV(L, lj_tab_setstr(L, mt, mmname_str(g, MM_index)), tabV(L->top-1)); - mt->nomm = (uint8_t)(~(1u<array); - Node *node; - lua_Number m = 0; - ptrdiff_t i; - for (i = (ptrdiff_t)t->asize - 1; i >= 0; i--) - if (!tvisnil(&array[i])) { - m = (lua_Number)(int32_t)i; - break; - } - node = noderef(t->node); - for (i = (ptrdiff_t)t->hmask; i >= 0; i--) - if (!tvisnil(&node[i].val) && tvisnumber(&node[i].key)) { - lua_Number n = numberVnum(&node[i].key); - if (n > m) m = n; - } - setnumV(L->top-1, m); - return 1; -} - -LJLIB_CF(table_insert) LJLIB_REC(.) -{ - GCtab *t = lj_lib_checktab(L, 1); - int32_t n, i = (int32_t)lj_tab_len(t) + 1; - int nargs = (int)((char *)L->top - (char *)L->base); - if (nargs != 2*sizeof(TValue)) { - if (nargs != 3*sizeof(TValue)) - lj_err_caller(L, LJ_ERR_TABINS); - /* NOBARRIER: This just moves existing elements around. */ - for (n = lj_lib_checkint(L, 2); i > n; i--) { - /* The set may invalidate the get pointer, so need to do it first! */ - TValue *dst = lj_tab_setint(L, t, i); - cTValue *src = lj_tab_getint(t, i-1); - if (src) { - copyTV(L, dst, src); - } else { - setnilV(dst); - } - } - i = n; - } - { - TValue *dst = lj_tab_setint(L, t, i); - copyTV(L, dst, L->top-1); /* Set new value. */ - lj_gc_barriert(L, t, dst); - } - return 0; -} - -LJLIB_LUA(table_remove) /* - function(t, pos) - CHECK_tab(t) - local len = #t - if pos == nil then - if len ~= 0 then - local old = t[len] - t[len] = nil - return old - end - else - CHECK_int(pos) - if pos >= 1 and pos <= len then - local old = t[pos] - for i=pos+1,len do - t[i-1] = t[i] - end - t[len] = nil - return old - end - end - end -*/ - -LJLIB_CF(table_concat) LJLIB_REC(.) -{ - GCtab *t = lj_lib_checktab(L, 1); - GCstr *sep = lj_lib_optstr(L, 2); - int32_t i = lj_lib_optint(L, 3, 1); - int32_t e = (L->base+3 < L->top && !tvisnil(L->base+3)) ? - lj_lib_checkint(L, 4) : (int32_t)lj_tab_len(t); - SBuf *sb = lj_buf_tmp_(L); - SBuf *sbx = lj_buf_puttab(sb, t, sep, i, e); - if (LJ_UNLIKELY(!sbx)) { /* Error: bad element type. */ - int32_t idx = (int32_t)(intptr_t)sbufP(sb); - cTValue *o = lj_tab_getint(t, idx); - lj_err_callerv(L, LJ_ERR_TABCAT, - lj_obj_itypename[o ? itypemap(o) : ~LJ_TNIL], idx); - } - setstrV(L, L->top-1, lj_buf_str(L, sbx)); - lj_gc_check(L); - return 1; -} - -/* ------------------------------------------------------------------------ */ - -static void set2(lua_State *L, int i, int j) -{ - lua_rawseti(L, 1, i); - lua_rawseti(L, 1, j); -} - -static int sort_comp(lua_State *L, int a, int b) -{ - if (!lua_isnil(L, 2)) { /* function? */ - int res; - lua_pushvalue(L, 2); - lua_pushvalue(L, a-1); /* -1 to compensate function */ - lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */ - lua_call(L, 2, 1); - res = lua_toboolean(L, -1); - lua_pop(L, 1); - return res; - } else { /* a < b? */ - return lua_lessthan(L, a, b); - } -} - -static void auxsort(lua_State *L, int l, int u) -{ - while (l < u) { /* for tail recursion */ - int i, j; - /* sort elements a[l], a[(l+u)/2] and a[u] */ - lua_rawgeti(L, 1, l); - lua_rawgeti(L, 1, u); - if (sort_comp(L, -1, -2)) /* a[u] < a[l]? */ - set2(L, l, u); /* swap a[l] - a[u] */ - else - lua_pop(L, 2); - if (u-l == 1) break; /* only 2 elements */ - i = (l+u)/2; - lua_rawgeti(L, 1, i); - lua_rawgeti(L, 1, l); - if (sort_comp(L, -2, -1)) { /* a[i]= P */ - while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { - if (i>=u) lj_err_caller(L, LJ_ERR_TABSORT); - lua_pop(L, 1); /* remove a[i] */ - } - /* repeat --j until a[j] <= P */ - while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { - if (j<=l) lj_err_caller(L, LJ_ERR_TABSORT); - lua_pop(L, 1); /* remove a[j] */ - } - if (jbase+1)) - lj_lib_checkfunc(L, 2); - auxsort(L, 1, n); - return 0; -} - -#if LJ_52 -LJLIB_PUSH("n") -LJLIB_CF(table_pack) -{ - TValue *array, *base = L->base; - MSize i, n = (uint32_t)(L->top - base); - GCtab *t = lj_tab_new(L, n ? n+1 : 0, 1); - /* NOBARRIER: The table is new (marked white). */ - setintV(lj_tab_setstr(L, t, strV(lj_lib_upvalue(L, 1))), (int32_t)n); - for (array = tvref(t->array) + 1, i = 0; i < n; i++) - copyTV(L, &array[i], &base[i]); - settabV(L, base, t); - L->top = base+1; - lj_gc_check(L); - return 1; -} -#endif - -LJLIB_NOREG LJLIB_CF(table_new) LJLIB_REC(.) -{ - int32_t a = lj_lib_checkint(L, 1); - int32_t h = lj_lib_checkint(L, 2); - lua_createtable(L, a, h); - return 1; -} - -LJLIB_NOREG LJLIB_CF(table_clear) LJLIB_REC(.) -{ - lj_tab_clear(lj_lib_checktab(L, 1)); - return 0; -} - -static int luaopen_table_new(lua_State *L) -{ - return lj_lib_postreg(L, lj_cf_table_new, FF_table_new, "new"); -} - -static int luaopen_table_clear(lua_State *L) -{ - return lj_lib_postreg(L, lj_cf_table_clear, FF_table_clear, "clear"); -} - -/* ------------------------------------------------------------------------ */ - -#include "lj_libdef.h" - -LUALIB_API int luaopen_table(lua_State *L) -{ - LJ_LIB_REG(L, LUA_TABLIBNAME, table); -#if LJ_52 - lua_getglobal(L, "unpack"); - lua_setfield(L, -2, "unpack"); -#endif - lj_lib_prereg(L, LUA_TABLIBNAME ".new", luaopen_table_new, tabV(L->top-1)); - lj_lib_prereg(L, LUA_TABLIBNAME ".clear", luaopen_table_clear, tabV(L->top-1)); - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj.supp b/src/3rd party/luajit-2.0-BAK/src/lj.supp deleted file mode 100644 index 411f2617001..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj.supp +++ /dev/null @@ -1,26 +0,0 @@ -# Valgrind suppression file for LuaJIT 2.0. -{ - Optimized string compare - Memcheck:Addr4 - fun:lj_str_cmp -} -{ - Optimized string compare - Memcheck:Addr1 - fun:lj_str_cmp -} -{ - Optimized string compare - Memcheck:Addr4 - fun:lj_str_new -} -{ - Optimized string compare - Memcheck:Addr1 - fun:lj_str_new -} -{ - Optimized string compare - Memcheck:Cond - fun:lj_str_new -} diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_alloc.c b/src/3rd party/luajit-2.0-BAK/src/lj_alloc.c deleted file mode 100644 index 0aad826d361..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_alloc.c +++ /dev/null @@ -1,1398 +0,0 @@ -/* -** Bundled memory allocator. -** -** Beware: this is a HEAVILY CUSTOMIZED version of dlmalloc. -** The original bears the following remark: -** -** This is a version (aka dlmalloc) of malloc/free/realloc written by -** Doug Lea and released to the public domain, as explained at -** http://creativecommons.org/licenses/publicdomain. -** -** * Version pre-2.8.4 Wed Mar 29 19:46:29 2006 (dl at gee) -** -** No additional copyright is claimed over the customizations. -** Please do NOT bother the original author about this version here! -** -** If you want to use dlmalloc in another project, you should get -** the original from: ftp://gee.cs.oswego.edu/pub/misc/ -** For thread-safe derivatives, take a look at: -** - ptmalloc: http://www.malloc.de/ -** - nedmalloc: http://www.nedprod.com/programs/portable/nedmalloc/ -*/ - -#define lj_alloc_c -#define LUA_CORE - -/* To get the mremap prototype. Must be defined before any system includes. */ -#if defined(__linux__) && !defined(_GNU_SOURCE) -#define _GNU_SOURCE -#endif - -#include "lj_def.h" -#include "lj_arch.h" -#include "lj_alloc.h" - -#ifndef LUAJIT_USE_SYSMALLOC - -#define MAX_SIZE_T (~(size_t)0) -#define MALLOC_ALIGNMENT ((size_t)8U) - -#define DEFAULT_GRANULARITY ((size_t)128U * (size_t)1024U) -#define DEFAULT_TRIM_THRESHOLD ((size_t)2U * (size_t)1024U * (size_t)1024U) -#define DEFAULT_MMAP_THRESHOLD ((size_t)128U * (size_t)1024U) -#define MAX_RELEASE_CHECK_RATE 255 - -/* ------------------- size_t and alignment properties -------------------- */ - -/* The byte and bit size of a size_t */ -#define SIZE_T_SIZE (sizeof(size_t)) -#define SIZE_T_BITSIZE (sizeof(size_t) << 3) - -/* Some constants coerced to size_t */ -/* Annoying but necessary to avoid errors on some platforms */ -#define SIZE_T_ZERO ((size_t)0) -#define SIZE_T_ONE ((size_t)1) -#define SIZE_T_TWO ((size_t)2) -#define TWO_SIZE_T_SIZES (SIZE_T_SIZE<<1) -#define FOUR_SIZE_T_SIZES (SIZE_T_SIZE<<2) -#define SIX_SIZE_T_SIZES (FOUR_SIZE_T_SIZES+TWO_SIZE_T_SIZES) - -/* The bit mask value corresponding to MALLOC_ALIGNMENT */ -#define CHUNK_ALIGN_MASK (MALLOC_ALIGNMENT - SIZE_T_ONE) - -/* the number of bytes to offset an address to align it */ -#define align_offset(A)\ - ((((size_t)(A) & CHUNK_ALIGN_MASK) == 0)? 0 :\ - ((MALLOC_ALIGNMENT - ((size_t)(A) & CHUNK_ALIGN_MASK)) & CHUNK_ALIGN_MASK)) - -/* -------------------------- MMAP support ------------------------------- */ - -#define MFAIL ((void *)(MAX_SIZE_T)) -#define CMFAIL ((char *)(MFAIL)) /* defined for convenience */ - -#define IS_DIRECT_BIT (SIZE_T_ONE) - -#if LJ_TARGET_WINDOWS - -#define WIN32_LEAN_AND_MEAN -#include - -#if LJ_64 && !LJ_GC64 - -/* Undocumented, but hey, that's what we all love so much about Windows. */ -typedef long (*PNTAVM)(HANDLE handle, void **addr, ULONG zbits, - size_t *size, ULONG alloctype, ULONG prot); -static PNTAVM ntavm; - -/* Number of top bits of the lower 32 bits of an address that must be zero. -** Apparently 0 gives us full 64 bit addresses and 1 gives us the lower 2GB. -*/ -#define NTAVM_ZEROBITS 1 - -static void INIT_MMAP(void) -{ - ntavm = (PNTAVM)GetProcAddress(GetModuleHandleA("ntdll.dll"), - "NtAllocateVirtualMemory"); -} - -/* Win64 32 bit MMAP via NtAllocateVirtualMemory. */ -static LJ_AINLINE void *CALL_MMAP(size_t size) -{ - DWORD olderr = GetLastError(); - void *ptr = NULL; - long st = ntavm(INVALID_HANDLE_VALUE, &ptr, NTAVM_ZEROBITS, &size, - MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); - SetLastError(olderr); - return st == 0 ? ptr : MFAIL; -} - -/* For direct MMAP, use MEM_TOP_DOWN to minimize interference */ -static LJ_AINLINE void *DIRECT_MMAP(size_t size) -{ - DWORD olderr = GetLastError(); - void *ptr = NULL; - long st = ntavm(INVALID_HANDLE_VALUE, &ptr, NTAVM_ZEROBITS, &size, - MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, PAGE_READWRITE); - SetLastError(olderr); - return st == 0 ? ptr : MFAIL; -} - -#else - -#define INIT_MMAP() ((void)0) - -/* Win32 MMAP via VirtualAlloc */ -static LJ_AINLINE void *CALL_MMAP(size_t size) -{ - DWORD olderr = GetLastError(); - void *ptr = VirtualAlloc(0, size, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); - SetLastError(olderr); - return ptr ? ptr : MFAIL; -} - -/* For direct MMAP, use MEM_TOP_DOWN to minimize interference */ -static LJ_AINLINE void *DIRECT_MMAP(size_t size) -{ - DWORD olderr = GetLastError(); - void *ptr = VirtualAlloc(0, size, MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, - PAGE_READWRITE); - SetLastError(olderr); - return ptr ? ptr : MFAIL; -} - -#endif - -/* This function supports releasing coalesed segments */ -static LJ_AINLINE int CALL_MUNMAP(void *ptr, size_t size) -{ - DWORD olderr = GetLastError(); - MEMORY_BASIC_INFORMATION minfo; - char *cptr = (char *)ptr; - while (size) { - if (VirtualQuery(cptr, &minfo, sizeof(minfo)) == 0) - return -1; - if (minfo.BaseAddress != cptr || minfo.AllocationBase != cptr || - minfo.State != MEM_COMMIT || minfo.RegionSize > size) - return -1; - if (VirtualFree(cptr, 0, MEM_RELEASE) == 0) - return -1; - cptr += minfo.RegionSize; - size -= minfo.RegionSize; - } - SetLastError(olderr); - return 0; -} - -#else - -#include -#include - -#define MMAP_PROT (PROT_READ|PROT_WRITE) -#if !defined(MAP_ANONYMOUS) && defined(MAP_ANON) -#define MAP_ANONYMOUS MAP_ANON -#endif -#define MMAP_FLAGS (MAP_PRIVATE|MAP_ANONYMOUS) - -#if LJ_64 && !LJ_GC64 -/* 64 bit mode with 32 bit pointers needs special support for allocating -** memory in the lower 2GB. -*/ - -#if defined(MAP_32BIT) - -#if defined(__sun__) -#define MMAP_REGION_START ((uintptr_t)0x1000) -#else -/* Actually this only gives us max. 1GB in current Linux kernels. */ -#define MMAP_REGION_START ((uintptr_t)0) -#endif - -static LJ_AINLINE void *CALL_MMAP(size_t size) -{ - int olderr = errno; - void *ptr = mmap((void *)MMAP_REGION_START, size, MMAP_PROT, MAP_32BIT|MMAP_FLAGS, -1, 0); - errno = olderr; - return ptr; -} - -#elif LJ_TARGET_OSX || LJ_TARGET_PS4 || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__DragonFly__) || defined(__sun__) - -/* OSX and FreeBSD mmap() use a naive first-fit linear search. -** That's perfect for us. Except that -pagezero_size must be set for OSX, -** otherwise the lower 4GB are blocked. And the 32GB RLIMIT_DATA needs -** to be reduced to 250MB on FreeBSD. -*/ -#if LJ_TARGET_OSX || defined(__DragonFly__) -#define MMAP_REGION_START ((uintptr_t)0x10000) -#elif LJ_TARGET_PS4 -#define MMAP_REGION_START ((uintptr_t)0x4000) -#else -#define MMAP_REGION_START ((uintptr_t)0x10000000) -#endif -#define MMAP_REGION_END ((uintptr_t)0x80000000) - -#if (defined(__FreeBSD__) || defined(__FreeBSD_kernel__)) && !LJ_TARGET_PS4 -#include -#endif - -static LJ_AINLINE void *CALL_MMAP(size_t size) -{ - int olderr = errno; - /* Hint for next allocation. Doesn't need to be thread-safe. */ - static uintptr_t alloc_hint = MMAP_REGION_START; - int retry = 0; -#if (defined(__FreeBSD__) || defined(__FreeBSD_kernel__)) && !LJ_TARGET_PS4 - static int rlimit_modified = 0; - if (LJ_UNLIKELY(rlimit_modified == 0)) { - struct rlimit rlim; - rlim.rlim_cur = rlim.rlim_max = MMAP_REGION_START; - setrlimit(RLIMIT_DATA, &rlim); /* Ignore result. May fail below. */ - rlimit_modified = 1; - } -#endif - for (;;) { - void *p = mmap((void *)alloc_hint, size, MMAP_PROT, MMAP_FLAGS, -1, 0); - if ((uintptr_t)p >= MMAP_REGION_START && - (uintptr_t)p + size < MMAP_REGION_END) { - alloc_hint = (uintptr_t)p + size; - errno = olderr; - return p; - } - if (p != CMFAIL) munmap(p, size); -#if defined(__sun__) || defined(__DragonFly__) - alloc_hint += 0x1000000; /* Need near-exhaustive linear scan. */ - if (alloc_hint + size < MMAP_REGION_END) continue; -#endif - if (retry) break; - retry = 1; - alloc_hint = MMAP_REGION_START; - } - errno = olderr; - return CMFAIL; -} - -#else - -#error "NYI: need an equivalent of MAP_32BIT for this 64 bit OS" - -#endif - -#else - -/* 32 bit mode and GC64 mode is easy. */ -static LJ_AINLINE void *CALL_MMAP(size_t size) -{ - int olderr = errno; - void *ptr = mmap(NULL, size, MMAP_PROT, MMAP_FLAGS, -1, 0); - errno = olderr; - return ptr; -} - -#endif - -#define INIT_MMAP() ((void)0) -#define DIRECT_MMAP(s) CALL_MMAP(s) - -static LJ_AINLINE int CALL_MUNMAP(void *ptr, size_t size) -{ - int olderr = errno; - int ret = munmap(ptr, size); - errno = olderr; - return ret; -} - -#if LJ_TARGET_LINUX -/* Need to define _GNU_SOURCE to get the mremap prototype. */ -static LJ_AINLINE void *CALL_MREMAP_(void *ptr, size_t osz, size_t nsz, - int flags) -{ - int olderr = errno; - ptr = mremap(ptr, osz, nsz, flags); - errno = olderr; - return ptr; -} - -#define CALL_MREMAP(addr, osz, nsz, mv) CALL_MREMAP_((addr), (osz), (nsz), (mv)) -#define CALL_MREMAP_NOMOVE 0 -#define CALL_MREMAP_MAYMOVE 1 -#if LJ_64 && !LJ_GC64 -#define CALL_MREMAP_MV CALL_MREMAP_NOMOVE -#else -#define CALL_MREMAP_MV CALL_MREMAP_MAYMOVE -#endif -#endif - -#endif - -#ifndef CALL_MREMAP -#define CALL_MREMAP(addr, osz, nsz, mv) ((void)osz, MFAIL) -#endif - -/* ----------------------- Chunk representations ------------------------ */ - -struct malloc_chunk { - size_t prev_foot; /* Size of previous chunk (if free). */ - size_t head; /* Size and inuse bits. */ - struct malloc_chunk *fd; /* double links -- used only if free. */ - struct malloc_chunk *bk; -}; - -typedef struct malloc_chunk mchunk; -typedef struct malloc_chunk *mchunkptr; -typedef struct malloc_chunk *sbinptr; /* The type of bins of chunks */ -typedef size_t bindex_t; /* Described below */ -typedef unsigned int binmap_t; /* Described below */ -typedef unsigned int flag_t; /* The type of various bit flag sets */ - -/* ------------------- Chunks sizes and alignments ----------------------- */ - -#define MCHUNK_SIZE (sizeof(mchunk)) - -#define CHUNK_OVERHEAD (SIZE_T_SIZE) - -/* Direct chunks need a second word of overhead ... */ -#define DIRECT_CHUNK_OVERHEAD (TWO_SIZE_T_SIZES) -/* ... and additional padding for fake next-chunk at foot */ -#define DIRECT_FOOT_PAD (FOUR_SIZE_T_SIZES) - -/* The smallest size we can malloc is an aligned minimal chunk */ -#define MIN_CHUNK_SIZE\ - ((MCHUNK_SIZE + CHUNK_ALIGN_MASK) & ~CHUNK_ALIGN_MASK) - -/* conversion from malloc headers to user pointers, and back */ -#define chunk2mem(p) ((void *)((char *)(p) + TWO_SIZE_T_SIZES)) -#define mem2chunk(mem) ((mchunkptr)((char *)(mem) - TWO_SIZE_T_SIZES)) -/* chunk associated with aligned address A */ -#define align_as_chunk(A) (mchunkptr)((A) + align_offset(chunk2mem(A))) - -/* Bounds on request (not chunk) sizes. */ -#define MAX_REQUEST ((~MIN_CHUNK_SIZE+1) << 2) -#define MIN_REQUEST (MIN_CHUNK_SIZE - CHUNK_OVERHEAD - SIZE_T_ONE) - -/* pad request bytes into a usable size */ -#define pad_request(req) \ - (((req) + CHUNK_OVERHEAD + CHUNK_ALIGN_MASK) & ~CHUNK_ALIGN_MASK) - -/* pad request, checking for minimum (but not maximum) */ -#define request2size(req) \ - (((req) < MIN_REQUEST)? MIN_CHUNK_SIZE : pad_request(req)) - -/* ------------------ Operations on head and foot fields ----------------- */ - -#define PINUSE_BIT (SIZE_T_ONE) -#define CINUSE_BIT (SIZE_T_TWO) -#define INUSE_BITS (PINUSE_BIT|CINUSE_BIT) - -/* Head value for fenceposts */ -#define FENCEPOST_HEAD (INUSE_BITS|SIZE_T_SIZE) - -/* extraction of fields from head words */ -#define cinuse(p) ((p)->head & CINUSE_BIT) -#define pinuse(p) ((p)->head & PINUSE_BIT) -#define chunksize(p) ((p)->head & ~(INUSE_BITS)) - -#define clear_pinuse(p) ((p)->head &= ~PINUSE_BIT) -#define clear_cinuse(p) ((p)->head &= ~CINUSE_BIT) - -/* Treat space at ptr +/- offset as a chunk */ -#define chunk_plus_offset(p, s) ((mchunkptr)(((char *)(p)) + (s))) -#define chunk_minus_offset(p, s) ((mchunkptr)(((char *)(p)) - (s))) - -/* Ptr to next or previous physical malloc_chunk. */ -#define next_chunk(p) ((mchunkptr)(((char *)(p)) + ((p)->head & ~INUSE_BITS))) -#define prev_chunk(p) ((mchunkptr)(((char *)(p)) - ((p)->prev_foot) )) - -/* extract next chunk's pinuse bit */ -#define next_pinuse(p) ((next_chunk(p)->head) & PINUSE_BIT) - -/* Get/set size at footer */ -#define get_foot(p, s) (((mchunkptr)((char *)(p) + (s)))->prev_foot) -#define set_foot(p, s) (((mchunkptr)((char *)(p) + (s)))->prev_foot = (s)) - -/* Set size, pinuse bit, and foot */ -#define set_size_and_pinuse_of_free_chunk(p, s)\ - ((p)->head = (s|PINUSE_BIT), set_foot(p, s)) - -/* Set size, pinuse bit, foot, and clear next pinuse */ -#define set_free_with_pinuse(p, s, n)\ - (clear_pinuse(n), set_size_and_pinuse_of_free_chunk(p, s)) - -#define is_direct(p)\ - (!((p)->head & PINUSE_BIT) && ((p)->prev_foot & IS_DIRECT_BIT)) - -/* Get the internal overhead associated with chunk p */ -#define overhead_for(p)\ - (is_direct(p)? DIRECT_CHUNK_OVERHEAD : CHUNK_OVERHEAD) - -/* ---------------------- Overlaid data structures ----------------------- */ - -struct malloc_tree_chunk { - /* The first four fields must be compatible with malloc_chunk */ - size_t prev_foot; - size_t head; - struct malloc_tree_chunk *fd; - struct malloc_tree_chunk *bk; - - struct malloc_tree_chunk *child[2]; - struct malloc_tree_chunk *parent; - bindex_t index; -}; - -typedef struct malloc_tree_chunk tchunk; -typedef struct malloc_tree_chunk *tchunkptr; -typedef struct malloc_tree_chunk *tbinptr; /* The type of bins of trees */ - -/* A little helper macro for trees */ -#define leftmost_child(t) ((t)->child[0] != 0? (t)->child[0] : (t)->child[1]) - -/* ----------------------------- Segments -------------------------------- */ - -struct malloc_segment { - char *base; /* base address */ - size_t size; /* allocated size */ - struct malloc_segment *next; /* ptr to next segment */ -}; - -typedef struct malloc_segment msegment; -typedef struct malloc_segment *msegmentptr; - -/* ---------------------------- malloc_state ----------------------------- */ - -/* Bin types, widths and sizes */ -#define NSMALLBINS (32U) -#define NTREEBINS (32U) -#define SMALLBIN_SHIFT (3U) -#define SMALLBIN_WIDTH (SIZE_T_ONE << SMALLBIN_SHIFT) -#define TREEBIN_SHIFT (8U) -#define MIN_LARGE_SIZE (SIZE_T_ONE << TREEBIN_SHIFT) -#define MAX_SMALL_SIZE (MIN_LARGE_SIZE - SIZE_T_ONE) -#define MAX_SMALL_REQUEST (MAX_SMALL_SIZE - CHUNK_ALIGN_MASK - CHUNK_OVERHEAD) - -struct malloc_state { - binmap_t smallmap; - binmap_t treemap; - size_t dvsize; - size_t topsize; - mchunkptr dv; - mchunkptr top; - size_t trim_check; - size_t release_checks; - mchunkptr smallbins[(NSMALLBINS+1)*2]; - tbinptr treebins[NTREEBINS]; - msegment seg; -}; - -typedef struct malloc_state *mstate; - -#define is_initialized(M) ((M)->top != 0) - -/* -------------------------- system alloc setup ------------------------- */ - -/* page-align a size */ -#define page_align(S)\ - (((S) + (LJ_PAGESIZE - SIZE_T_ONE)) & ~(LJ_PAGESIZE - SIZE_T_ONE)) - -/* granularity-align a size */ -#define granularity_align(S)\ - (((S) + (DEFAULT_GRANULARITY - SIZE_T_ONE))\ - & ~(DEFAULT_GRANULARITY - SIZE_T_ONE)) - -#if LJ_TARGET_WINDOWS -#define mmap_align(S) granularity_align(S) -#else -#define mmap_align(S) page_align(S) -#endif - -/* True if segment S holds address A */ -#define segment_holds(S, A)\ - ((char *)(A) >= S->base && (char *)(A) < S->base + S->size) - -/* Return segment holding given address */ -static msegmentptr segment_holding(mstate m, char *addr) -{ - msegmentptr sp = &m->seg; - for (;;) { - if (addr >= sp->base && addr < sp->base + sp->size) - return sp; - if ((sp = sp->next) == 0) - return 0; - } -} - -/* Return true if segment contains a segment link */ -static int has_segment_link(mstate m, msegmentptr ss) -{ - msegmentptr sp = &m->seg; - for (;;) { - if ((char *)sp >= ss->base && (char *)sp < ss->base + ss->size) - return 1; - if ((sp = sp->next) == 0) - return 0; - } -} - -/* - TOP_FOOT_SIZE is padding at the end of a segment, including space - that may be needed to place segment records and fenceposts when new - noncontiguous segments are added. -*/ -#define TOP_FOOT_SIZE\ - (align_offset(chunk2mem(0))+pad_request(sizeof(struct malloc_segment))+MIN_CHUNK_SIZE) - -/* ---------------------------- Indexing Bins ---------------------------- */ - -#define is_small(s) (((s) >> SMALLBIN_SHIFT) < NSMALLBINS) -#define small_index(s) ((s) >> SMALLBIN_SHIFT) -#define small_index2size(i) ((i) << SMALLBIN_SHIFT) -#define MIN_SMALL_INDEX (small_index(MIN_CHUNK_SIZE)) - -/* addressing by index. See above about smallbin repositioning */ -#define smallbin_at(M, i) ((sbinptr)((char *)&((M)->smallbins[(i)<<1]))) -#define treebin_at(M,i) (&((M)->treebins[i])) - -/* assign tree index for size S to variable I */ -#define compute_tree_index(S, I)\ -{\ - unsigned int X = (unsigned int)(S >> TREEBIN_SHIFT);\ - if (X == 0) {\ - I = 0;\ - } else if (X > 0xFFFF) {\ - I = NTREEBINS-1;\ - } else {\ - unsigned int K = lj_fls(X);\ - I = (bindex_t)((K << 1) + ((S >> (K + (TREEBIN_SHIFT-1)) & 1)));\ - }\ -} - -/* Bit representing maximum resolved size in a treebin at i */ -#define bit_for_tree_index(i) \ - (i == NTREEBINS-1)? (SIZE_T_BITSIZE-1) : (((i) >> 1) + TREEBIN_SHIFT - 2) - -/* Shift placing maximum resolved bit in a treebin at i as sign bit */ -#define leftshift_for_tree_index(i) \ - ((i == NTREEBINS-1)? 0 : \ - ((SIZE_T_BITSIZE-SIZE_T_ONE) - (((i) >> 1) + TREEBIN_SHIFT - 2))) - -/* The size of the smallest chunk held in bin with index i */ -#define minsize_for_tree_index(i) \ - ((SIZE_T_ONE << (((i) >> 1) + TREEBIN_SHIFT)) | \ - (((size_t)((i) & SIZE_T_ONE)) << (((i) >> 1) + TREEBIN_SHIFT - 1))) - -/* ------------------------ Operations on bin maps ----------------------- */ - -/* bit corresponding to given index */ -#define idx2bit(i) ((binmap_t)(1) << (i)) - -/* Mark/Clear bits with given index */ -#define mark_smallmap(M,i) ((M)->smallmap |= idx2bit(i)) -#define clear_smallmap(M,i) ((M)->smallmap &= ~idx2bit(i)) -#define smallmap_is_marked(M,i) ((M)->smallmap & idx2bit(i)) - -#define mark_treemap(M,i) ((M)->treemap |= idx2bit(i)) -#define clear_treemap(M,i) ((M)->treemap &= ~idx2bit(i)) -#define treemap_is_marked(M,i) ((M)->treemap & idx2bit(i)) - -/* mask with all bits to left of least bit of x on */ -#define left_bits(x) ((x<<1) | (~(x<<1)+1)) - -/* Set cinuse bit and pinuse bit of next chunk */ -#define set_inuse(M,p,s)\ - ((p)->head = (((p)->head & PINUSE_BIT)|s|CINUSE_BIT),\ - ((mchunkptr)(((char *)(p)) + (s)))->head |= PINUSE_BIT) - -/* Set cinuse and pinuse of this chunk and pinuse of next chunk */ -#define set_inuse_and_pinuse(M,p,s)\ - ((p)->head = (s|PINUSE_BIT|CINUSE_BIT),\ - ((mchunkptr)(((char *)(p)) + (s)))->head |= PINUSE_BIT) - -/* Set size, cinuse and pinuse bit of this chunk */ -#define set_size_and_pinuse_of_inuse_chunk(M, p, s)\ - ((p)->head = (s|PINUSE_BIT|CINUSE_BIT)) - -/* ----------------------- Operations on smallbins ----------------------- */ - -/* Link a free chunk into a smallbin */ -#define insert_small_chunk(M, P, S) {\ - bindex_t I = small_index(S);\ - mchunkptr B = smallbin_at(M, I);\ - mchunkptr F = B;\ - if (!smallmap_is_marked(M, I))\ - mark_smallmap(M, I);\ - else\ - F = B->fd;\ - B->fd = P;\ - F->bk = P;\ - P->fd = F;\ - P->bk = B;\ -} - -/* Unlink a chunk from a smallbin */ -#define unlink_small_chunk(M, P, S) {\ - mchunkptr F = P->fd;\ - mchunkptr B = P->bk;\ - bindex_t I = small_index(S);\ - if (F == B) {\ - clear_smallmap(M, I);\ - } else {\ - F->bk = B;\ - B->fd = F;\ - }\ -} - -/* Unlink the first chunk from a smallbin */ -#define unlink_first_small_chunk(M, B, P, I) {\ - mchunkptr F = P->fd;\ - if (B == F) {\ - clear_smallmap(M, I);\ - } else {\ - B->fd = F;\ - F->bk = B;\ - }\ -} - -/* Replace dv node, binning the old one */ -/* Used only when dvsize known to be small */ -#define replace_dv(M, P, S) {\ - size_t DVS = M->dvsize;\ - if (DVS != 0) {\ - mchunkptr DV = M->dv;\ - insert_small_chunk(M, DV, DVS);\ - }\ - M->dvsize = S;\ - M->dv = P;\ -} - -/* ------------------------- Operations on trees ------------------------- */ - -/* Insert chunk into tree */ -#define insert_large_chunk(M, X, S) {\ - tbinptr *H;\ - bindex_t I;\ - compute_tree_index(S, I);\ - H = treebin_at(M, I);\ - X->index = I;\ - X->child[0] = X->child[1] = 0;\ - if (!treemap_is_marked(M, I)) {\ - mark_treemap(M, I);\ - *H = X;\ - X->parent = (tchunkptr)H;\ - X->fd = X->bk = X;\ - } else {\ - tchunkptr T = *H;\ - size_t K = S << leftshift_for_tree_index(I);\ - for (;;) {\ - if (chunksize(T) != S) {\ - tchunkptr *C = &(T->child[(K >> (SIZE_T_BITSIZE-SIZE_T_ONE)) & 1]);\ - K <<= 1;\ - if (*C != 0) {\ - T = *C;\ - } else {\ - *C = X;\ - X->parent = T;\ - X->fd = X->bk = X;\ - break;\ - }\ - } else {\ - tchunkptr F = T->fd;\ - T->fd = F->bk = X;\ - X->fd = F;\ - X->bk = T;\ - X->parent = 0;\ - break;\ - }\ - }\ - }\ -} - -#define unlink_large_chunk(M, X) {\ - tchunkptr XP = X->parent;\ - tchunkptr R;\ - if (X->bk != X) {\ - tchunkptr F = X->fd;\ - R = X->bk;\ - F->bk = R;\ - R->fd = F;\ - } else {\ - tchunkptr *RP;\ - if (((R = *(RP = &(X->child[1]))) != 0) ||\ - ((R = *(RP = &(X->child[0]))) != 0)) {\ - tchunkptr *CP;\ - while ((*(CP = &(R->child[1])) != 0) ||\ - (*(CP = &(R->child[0])) != 0)) {\ - R = *(RP = CP);\ - }\ - *RP = 0;\ - }\ - }\ - if (XP != 0) {\ - tbinptr *H = treebin_at(M, X->index);\ - if (X == *H) {\ - if ((*H = R) == 0) \ - clear_treemap(M, X->index);\ - } else {\ - if (XP->child[0] == X) \ - XP->child[0] = R;\ - else \ - XP->child[1] = R;\ - }\ - if (R != 0) {\ - tchunkptr C0, C1;\ - R->parent = XP;\ - if ((C0 = X->child[0]) != 0) {\ - R->child[0] = C0;\ - C0->parent = R;\ - }\ - if ((C1 = X->child[1]) != 0) {\ - R->child[1] = C1;\ - C1->parent = R;\ - }\ - }\ - }\ -} - -/* Relays to large vs small bin operations */ - -#define insert_chunk(M, P, S)\ - if (is_small(S)) { insert_small_chunk(M, P, S)\ - } else { tchunkptr TP = (tchunkptr)(P); insert_large_chunk(M, TP, S); } - -#define unlink_chunk(M, P, S)\ - if (is_small(S)) { unlink_small_chunk(M, P, S)\ - } else { tchunkptr TP = (tchunkptr)(P); unlink_large_chunk(M, TP); } - -/* ----------------------- Direct-mmapping chunks ----------------------- */ - -static void *direct_alloc(size_t nb) -{ - size_t mmsize = mmap_align(nb + SIX_SIZE_T_SIZES + CHUNK_ALIGN_MASK); - if (LJ_LIKELY(mmsize > nb)) { /* Check for wrap around 0 */ - char *mm = (char *)(DIRECT_MMAP(mmsize)); - if (mm != CMFAIL) { - size_t offset = align_offset(chunk2mem(mm)); - size_t psize = mmsize - offset - DIRECT_FOOT_PAD; - mchunkptr p = (mchunkptr)(mm + offset); - p->prev_foot = offset | IS_DIRECT_BIT; - p->head = psize|CINUSE_BIT; - chunk_plus_offset(p, psize)->head = FENCEPOST_HEAD; - chunk_plus_offset(p, psize+SIZE_T_SIZE)->head = 0; - return chunk2mem(p); - } - } - return NULL; -} - -static mchunkptr direct_resize(mchunkptr oldp, size_t nb) -{ - size_t oldsize = chunksize(oldp); - if (is_small(nb)) /* Can't shrink direct regions below small size */ - return NULL; - /* Keep old chunk if big enough but not too big */ - if (oldsize >= nb + SIZE_T_SIZE && - (oldsize - nb) <= (DEFAULT_GRANULARITY >> 1)) { - return oldp; - } else { - size_t offset = oldp->prev_foot & ~IS_DIRECT_BIT; - size_t oldmmsize = oldsize + offset + DIRECT_FOOT_PAD; - size_t newmmsize = mmap_align(nb + SIX_SIZE_T_SIZES + CHUNK_ALIGN_MASK); - char *cp = (char *)CALL_MREMAP((char *)oldp - offset, - oldmmsize, newmmsize, CALL_MREMAP_MV); - if (cp != CMFAIL) { - mchunkptr newp = (mchunkptr)(cp + offset); - size_t psize = newmmsize - offset - DIRECT_FOOT_PAD; - newp->head = psize|CINUSE_BIT; - chunk_plus_offset(newp, psize)->head = FENCEPOST_HEAD; - chunk_plus_offset(newp, psize+SIZE_T_SIZE)->head = 0; - return newp; - } - } - return NULL; -} - -/* -------------------------- mspace management -------------------------- */ - -/* Initialize top chunk and its size */ -static void init_top(mstate m, mchunkptr p, size_t psize) -{ - /* Ensure alignment */ - size_t offset = align_offset(chunk2mem(p)); - p = (mchunkptr)((char *)p + offset); - psize -= offset; - - m->top = p; - m->topsize = psize; - p->head = psize | PINUSE_BIT; - /* set size of fake trailing chunk holding overhead space only once */ - chunk_plus_offset(p, psize)->head = TOP_FOOT_SIZE; - m->trim_check = DEFAULT_TRIM_THRESHOLD; /* reset on each update */ -} - -/* Initialize bins for a new mstate that is otherwise zeroed out */ -static void init_bins(mstate m) -{ - /* Establish circular links for smallbins */ - bindex_t i; - for (i = 0; i < NSMALLBINS; i++) { - sbinptr bin = smallbin_at(m,i); - bin->fd = bin->bk = bin; - } -} - -/* Allocate chunk and prepend remainder with chunk in successor base. */ -static void *prepend_alloc(mstate m, char *newbase, char *oldbase, size_t nb) -{ - mchunkptr p = align_as_chunk(newbase); - mchunkptr oldfirst = align_as_chunk(oldbase); - size_t psize = (size_t)((char *)oldfirst - (char *)p); - mchunkptr q = chunk_plus_offset(p, nb); - size_t qsize = psize - nb; - set_size_and_pinuse_of_inuse_chunk(m, p, nb); - - /* consolidate remainder with first chunk of old base */ - if (oldfirst == m->top) { - size_t tsize = m->topsize += qsize; - m->top = q; - q->head = tsize | PINUSE_BIT; - } else if (oldfirst == m->dv) { - size_t dsize = m->dvsize += qsize; - m->dv = q; - set_size_and_pinuse_of_free_chunk(q, dsize); - } else { - if (!cinuse(oldfirst)) { - size_t nsize = chunksize(oldfirst); - unlink_chunk(m, oldfirst, nsize); - oldfirst = chunk_plus_offset(oldfirst, nsize); - qsize += nsize; - } - set_free_with_pinuse(q, qsize, oldfirst); - insert_chunk(m, q, qsize); - } - - return chunk2mem(p); -} - -/* Add a segment to hold a new noncontiguous region */ -static void add_segment(mstate m, char *tbase, size_t tsize) -{ - /* Determine locations and sizes of segment, fenceposts, old top */ - char *old_top = (char *)m->top; - msegmentptr oldsp = segment_holding(m, old_top); - char *old_end = oldsp->base + oldsp->size; - size_t ssize = pad_request(sizeof(struct malloc_segment)); - char *rawsp = old_end - (ssize + FOUR_SIZE_T_SIZES + CHUNK_ALIGN_MASK); - size_t offset = align_offset(chunk2mem(rawsp)); - char *asp = rawsp + offset; - char *csp = (asp < (old_top + MIN_CHUNK_SIZE))? old_top : asp; - mchunkptr sp = (mchunkptr)csp; - msegmentptr ss = (msegmentptr)(chunk2mem(sp)); - mchunkptr tnext = chunk_plus_offset(sp, ssize); - mchunkptr p = tnext; - - /* reset top to new space */ - init_top(m, (mchunkptr)tbase, tsize - TOP_FOOT_SIZE); - - /* Set up segment record */ - set_size_and_pinuse_of_inuse_chunk(m, sp, ssize); - *ss = m->seg; /* Push current record */ - m->seg.base = tbase; - m->seg.size = tsize; - m->seg.next = ss; - - /* Insert trailing fenceposts */ - for (;;) { - mchunkptr nextp = chunk_plus_offset(p, SIZE_T_SIZE); - p->head = FENCEPOST_HEAD; - if ((char *)(&(nextp->head)) < old_end) - p = nextp; - else - break; - } - - /* Insert the rest of old top into a bin as an ordinary free chunk */ - if (csp != old_top) { - mchunkptr q = (mchunkptr)old_top; - size_t psize = (size_t)(csp - old_top); - mchunkptr tn = chunk_plus_offset(q, psize); - set_free_with_pinuse(q, psize, tn); - insert_chunk(m, q, psize); - } -} - -/* -------------------------- System allocation -------------------------- */ - -static void *alloc_sys(mstate m, size_t nb) -{ - char *tbase = CMFAIL; - size_t tsize = 0; - - /* Directly map large chunks */ - if (LJ_UNLIKELY(nb >= DEFAULT_MMAP_THRESHOLD)) { - void *mem = direct_alloc(nb); - if (mem != 0) - return mem; - } - - { - size_t req = nb + TOP_FOOT_SIZE + SIZE_T_ONE; - size_t rsize = granularity_align(req); - if (LJ_LIKELY(rsize > nb)) { /* Fail if wraps around zero */ - char *mp = (char *)(CALL_MMAP(rsize)); - if (mp != CMFAIL) { - tbase = mp; - tsize = rsize; - } - } - } - - if (tbase != CMFAIL) { - msegmentptr sp = &m->seg; - /* Try to merge with an existing segment */ - while (sp != 0 && tbase != sp->base + sp->size) - sp = sp->next; - if (sp != 0 && segment_holds(sp, m->top)) { /* append */ - sp->size += tsize; - init_top(m, m->top, m->topsize + tsize); - } else { - sp = &m->seg; - while (sp != 0 && sp->base != tbase + tsize) - sp = sp->next; - if (sp != 0) { - char *oldbase = sp->base; - sp->base = tbase; - sp->size += tsize; - return prepend_alloc(m, tbase, oldbase, nb); - } else { - add_segment(m, tbase, tsize); - } - } - - if (nb < m->topsize) { /* Allocate from new or extended top space */ - size_t rsize = m->topsize -= nb; - mchunkptr p = m->top; - mchunkptr r = m->top = chunk_plus_offset(p, nb); - r->head = rsize | PINUSE_BIT; - set_size_and_pinuse_of_inuse_chunk(m, p, nb); - return chunk2mem(p); - } - } - - return NULL; -} - -/* ----------------------- system deallocation -------------------------- */ - -/* Unmap and unlink any mmapped segments that don't contain used chunks */ -static size_t release_unused_segments(mstate m) -{ - size_t released = 0; - size_t nsegs = 0; - msegmentptr pred = &m->seg; - msegmentptr sp = pred->next; - while (sp != 0) { - char *base = sp->base; - size_t size = sp->size; - msegmentptr next = sp->next; - nsegs++; - { - mchunkptr p = align_as_chunk(base); - size_t psize = chunksize(p); - /* Can unmap if first chunk holds entire segment and not pinned */ - if (!cinuse(p) && (char *)p + psize >= base + size - TOP_FOOT_SIZE) { - tchunkptr tp = (tchunkptr)p; - if (p == m->dv) { - m->dv = 0; - m->dvsize = 0; - } else { - unlink_large_chunk(m, tp); - } - if (CALL_MUNMAP(base, size) == 0) { - released += size; - /* unlink obsoleted record */ - sp = pred; - sp->next = next; - } else { /* back out if cannot unmap */ - insert_large_chunk(m, tp, psize); - } - } - } - pred = sp; - sp = next; - } - /* Reset check counter */ - m->release_checks = nsegs > MAX_RELEASE_CHECK_RATE ? - nsegs : MAX_RELEASE_CHECK_RATE; - return released; -} - -static int alloc_trim(mstate m, size_t pad) -{ - size_t released = 0; - if (pad < MAX_REQUEST && is_initialized(m)) { - pad += TOP_FOOT_SIZE; /* ensure enough room for segment overhead */ - - if (m->topsize > pad) { - /* Shrink top space in granularity-size units, keeping at least one */ - size_t unit = DEFAULT_GRANULARITY; - size_t extra = ((m->topsize - pad + (unit - SIZE_T_ONE)) / unit - - SIZE_T_ONE) * unit; - msegmentptr sp = segment_holding(m, (char *)m->top); - - if (sp->size >= extra && - !has_segment_link(m, sp)) { /* can't shrink if pinned */ - size_t newsize = sp->size - extra; - /* Prefer mremap, fall back to munmap */ - if ((CALL_MREMAP(sp->base, sp->size, newsize, CALL_MREMAP_NOMOVE) != MFAIL) || - (CALL_MUNMAP(sp->base + newsize, extra) == 0)) { - released = extra; - } - } - - if (released != 0) { - sp->size -= released; - init_top(m, m->top, m->topsize - released); - } - } - - /* Unmap any unused mmapped segments */ - released += release_unused_segments(m); - - /* On failure, disable autotrim to avoid repeated failed future calls */ - if (released == 0 && m->topsize > m->trim_check) - m->trim_check = MAX_SIZE_T; - } - - return (released != 0)? 1 : 0; -} - -/* ---------------------------- malloc support --------------------------- */ - -/* allocate a large request from the best fitting chunk in a treebin */ -static void *tmalloc_large(mstate m, size_t nb) -{ - tchunkptr v = 0; - size_t rsize = ~nb+1; /* Unsigned negation */ - tchunkptr t; - bindex_t idx; - compute_tree_index(nb, idx); - - if ((t = *treebin_at(m, idx)) != 0) { - /* Traverse tree for this bin looking for node with size == nb */ - size_t sizebits = nb << leftshift_for_tree_index(idx); - tchunkptr rst = 0; /* The deepest untaken right subtree */ - for (;;) { - tchunkptr rt; - size_t trem = chunksize(t) - nb; - if (trem < rsize) { - v = t; - if ((rsize = trem) == 0) - break; - } - rt = t->child[1]; - t = t->child[(sizebits >> (SIZE_T_BITSIZE-SIZE_T_ONE)) & 1]; - if (rt != 0 && rt != t) - rst = rt; - if (t == 0) { - t = rst; /* set t to least subtree holding sizes > nb */ - break; - } - sizebits <<= 1; - } - } - - if (t == 0 && v == 0) { /* set t to root of next non-empty treebin */ - binmap_t leftbits = left_bits(idx2bit(idx)) & m->treemap; - if (leftbits != 0) - t = *treebin_at(m, lj_ffs(leftbits)); - } - - while (t != 0) { /* find smallest of tree or subtree */ - size_t trem = chunksize(t) - nb; - if (trem < rsize) { - rsize = trem; - v = t; - } - t = leftmost_child(t); - } - - /* If dv is a better fit, return NULL so malloc will use it */ - if (v != 0 && rsize < (size_t)(m->dvsize - nb)) { - mchunkptr r = chunk_plus_offset(v, nb); - unlink_large_chunk(m, v); - if (rsize < MIN_CHUNK_SIZE) { - set_inuse_and_pinuse(m, v, (rsize + nb)); - } else { - set_size_and_pinuse_of_inuse_chunk(m, v, nb); - set_size_and_pinuse_of_free_chunk(r, rsize); - insert_chunk(m, r, rsize); - } - return chunk2mem(v); - } - return NULL; -} - -/* allocate a small request from the best fitting chunk in a treebin */ -static void *tmalloc_small(mstate m, size_t nb) -{ - tchunkptr t, v; - mchunkptr r; - size_t rsize; - bindex_t i = lj_ffs(m->treemap); - - v = t = *treebin_at(m, i); - rsize = chunksize(t) - nb; - - while ((t = leftmost_child(t)) != 0) { - size_t trem = chunksize(t) - nb; - if (trem < rsize) { - rsize = trem; - v = t; - } - } - - r = chunk_plus_offset(v, nb); - unlink_large_chunk(m, v); - if (rsize < MIN_CHUNK_SIZE) { - set_inuse_and_pinuse(m, v, (rsize + nb)); - } else { - set_size_and_pinuse_of_inuse_chunk(m, v, nb); - set_size_and_pinuse_of_free_chunk(r, rsize); - replace_dv(m, r, rsize); - } - return chunk2mem(v); -} - -/* ----------------------------------------------------------------------- */ - -void *lj_alloc_create(void) -{ - size_t tsize = DEFAULT_GRANULARITY; - char *tbase; - INIT_MMAP(); - tbase = (char *)(CALL_MMAP(tsize)); - if (tbase != CMFAIL) { - size_t msize = pad_request(sizeof(struct malloc_state)); - mchunkptr mn; - mchunkptr msp = align_as_chunk(tbase); - mstate m = (mstate)(chunk2mem(msp)); - memset(m, 0, msize); - msp->head = (msize|PINUSE_BIT|CINUSE_BIT); - m->seg.base = tbase; - m->seg.size = tsize; - m->release_checks = MAX_RELEASE_CHECK_RATE; - init_bins(m); - mn = next_chunk(mem2chunk(m)); - init_top(m, mn, (size_t)((tbase + tsize) - (char *)mn) - TOP_FOOT_SIZE); - return m; - } - return NULL; -} - -void lj_alloc_destroy(void *msp) -{ - mstate ms = (mstate)msp; - msegmentptr sp = &ms->seg; - while (sp != 0) { - char *base = sp->base; - size_t size = sp->size; - sp = sp->next; - CALL_MUNMAP(base, size); - } -} - -static LJ_NOINLINE void *lj_alloc_malloc(void *msp, size_t nsize) -{ - mstate ms = (mstate)msp; - void *mem; - size_t nb; - if (nsize <= MAX_SMALL_REQUEST) { - bindex_t idx; - binmap_t smallbits; - nb = (nsize < MIN_REQUEST)? MIN_CHUNK_SIZE : pad_request(nsize); - idx = small_index(nb); - smallbits = ms->smallmap >> idx; - - if ((smallbits & 0x3U) != 0) { /* Remainderless fit to a smallbin. */ - mchunkptr b, p; - idx += ~smallbits & 1; /* Uses next bin if idx empty */ - b = smallbin_at(ms, idx); - p = b->fd; - unlink_first_small_chunk(ms, b, p, idx); - set_inuse_and_pinuse(ms, p, small_index2size(idx)); - mem = chunk2mem(p); - return mem; - } else if (nb > ms->dvsize) { - if (smallbits != 0) { /* Use chunk in next nonempty smallbin */ - mchunkptr b, p, r; - size_t rsize; - binmap_t leftbits = (smallbits << idx) & left_bits(idx2bit(idx)); - bindex_t i = lj_ffs(leftbits); - b = smallbin_at(ms, i); - p = b->fd; - unlink_first_small_chunk(ms, b, p, i); - rsize = small_index2size(i) - nb; - /* Fit here cannot be remainderless if 4byte sizes */ - if (SIZE_T_SIZE != 4 && rsize < MIN_CHUNK_SIZE) { - set_inuse_and_pinuse(ms, p, small_index2size(i)); - } else { - set_size_and_pinuse_of_inuse_chunk(ms, p, nb); - r = chunk_plus_offset(p, nb); - set_size_and_pinuse_of_free_chunk(r, rsize); - replace_dv(ms, r, rsize); - } - mem = chunk2mem(p); - return mem; - } else if (ms->treemap != 0 && (mem = tmalloc_small(ms, nb)) != 0) { - return mem; - } - } - } else if (nsize >= MAX_REQUEST) { - nb = MAX_SIZE_T; /* Too big to allocate. Force failure (in sys alloc) */ - } else { - nb = pad_request(nsize); - if (ms->treemap != 0 && (mem = tmalloc_large(ms, nb)) != 0) { - return mem; - } - } - - if (nb <= ms->dvsize) { - size_t rsize = ms->dvsize - nb; - mchunkptr p = ms->dv; - if (rsize >= MIN_CHUNK_SIZE) { /* split dv */ - mchunkptr r = ms->dv = chunk_plus_offset(p, nb); - ms->dvsize = rsize; - set_size_and_pinuse_of_free_chunk(r, rsize); - set_size_and_pinuse_of_inuse_chunk(ms, p, nb); - } else { /* exhaust dv */ - size_t dvs = ms->dvsize; - ms->dvsize = 0; - ms->dv = 0; - set_inuse_and_pinuse(ms, p, dvs); - } - mem = chunk2mem(p); - return mem; - } else if (nb < ms->topsize) { /* Split top */ - size_t rsize = ms->topsize -= nb; - mchunkptr p = ms->top; - mchunkptr r = ms->top = chunk_plus_offset(p, nb); - r->head = rsize | PINUSE_BIT; - set_size_and_pinuse_of_inuse_chunk(ms, p, nb); - mem = chunk2mem(p); - return mem; - } - return alloc_sys(ms, nb); -} - -static LJ_NOINLINE void *lj_alloc_free(void *msp, void *ptr) -{ - if (ptr != 0) { - mchunkptr p = mem2chunk(ptr); - mstate fm = (mstate)msp; - size_t psize = chunksize(p); - mchunkptr next = chunk_plus_offset(p, psize); - if (!pinuse(p)) { - size_t prevsize = p->prev_foot; - if ((prevsize & IS_DIRECT_BIT) != 0) { - prevsize &= ~IS_DIRECT_BIT; - psize += prevsize + DIRECT_FOOT_PAD; - CALL_MUNMAP((char *)p - prevsize, psize); - return NULL; - } else { - mchunkptr prev = chunk_minus_offset(p, prevsize); - psize += prevsize; - p = prev; - /* consolidate backward */ - if (p != fm->dv) { - unlink_chunk(fm, p, prevsize); - } else if ((next->head & INUSE_BITS) == INUSE_BITS) { - fm->dvsize = psize; - set_free_with_pinuse(p, psize, next); - return NULL; - } - } - } - if (!cinuse(next)) { /* consolidate forward */ - if (next == fm->top) { - size_t tsize = fm->topsize += psize; - fm->top = p; - p->head = tsize | PINUSE_BIT; - if (p == fm->dv) { - fm->dv = 0; - fm->dvsize = 0; - } - if (tsize > fm->trim_check) - alloc_trim(fm, 0); - return NULL; - } else if (next == fm->dv) { - size_t dsize = fm->dvsize += psize; - fm->dv = p; - set_size_and_pinuse_of_free_chunk(p, dsize); - return NULL; - } else { - size_t nsize = chunksize(next); - psize += nsize; - unlink_chunk(fm, next, nsize); - set_size_and_pinuse_of_free_chunk(p, psize); - if (p == fm->dv) { - fm->dvsize = psize; - return NULL; - } - } - } else { - set_free_with_pinuse(p, psize, next); - } - - if (is_small(psize)) { - insert_small_chunk(fm, p, psize); - } else { - tchunkptr tp = (tchunkptr)p; - insert_large_chunk(fm, tp, psize); - if (--fm->release_checks == 0) - release_unused_segments(fm); - } - } - return NULL; -} - -static LJ_NOINLINE void *lj_alloc_realloc(void *msp, void *ptr, size_t nsize) -{ - if (nsize >= MAX_REQUEST) { - return NULL; - } else { - mstate m = (mstate)msp; - mchunkptr oldp = mem2chunk(ptr); - size_t oldsize = chunksize(oldp); - mchunkptr next = chunk_plus_offset(oldp, oldsize); - mchunkptr newp = 0; - size_t nb = request2size(nsize); - - /* Try to either shrink or extend into top. Else malloc-copy-free */ - if (is_direct(oldp)) { - newp = direct_resize(oldp, nb); /* this may return NULL. */ - } else if (oldsize >= nb) { /* already big enough */ - size_t rsize = oldsize - nb; - newp = oldp; - if (rsize >= MIN_CHUNK_SIZE) { - mchunkptr rem = chunk_plus_offset(newp, nb); - set_inuse(m, newp, nb); - set_inuse(m, rem, rsize); - lj_alloc_free(m, chunk2mem(rem)); - } - } else if (next == m->top && oldsize + m->topsize > nb) { - /* Expand into top */ - size_t newsize = oldsize + m->topsize; - size_t newtopsize = newsize - nb; - mchunkptr newtop = chunk_plus_offset(oldp, nb); - set_inuse(m, oldp, nb); - newtop->head = newtopsize |PINUSE_BIT; - m->top = newtop; - m->topsize = newtopsize; - newp = oldp; - } - - if (newp != 0) { - return chunk2mem(newp); - } else { - void *newmem = lj_alloc_malloc(m, nsize); - if (newmem != 0) { - size_t oc = oldsize - overhead_for(oldp); - memcpy(newmem, ptr, oc < nsize ? oc : nsize); - lj_alloc_free(m, ptr); - } - return newmem; - } - } -} - -void *lj_alloc_f(void *msp, void *ptr, size_t osize, size_t nsize) -{ - (void)osize; - if (nsize == 0) { - return lj_alloc_free(msp, ptr); - } else if (ptr == NULL) { - return lj_alloc_malloc(msp, nsize); - } else { - return lj_alloc_realloc(msp, ptr, nsize); - } -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_alloc.h b/src/3rd party/luajit-2.0-BAK/src/lj_alloc.h deleted file mode 100644 index f87a7cf3422..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_alloc.h +++ /dev/null @@ -1,17 +0,0 @@ -/* -** Bundled memory allocator. -** Donated to the public domain. -*/ - -#ifndef _LJ_ALLOC_H -#define _LJ_ALLOC_H - -#include "lj_def.h" - -#ifndef LUAJIT_USE_SYSMALLOC -LJ_FUNC void *lj_alloc_create(void); -LJ_FUNC void lj_alloc_destroy(void *msp); -LJ_FUNC void *lj_alloc_f(void *msp, void *ptr, size_t osize, size_t nsize); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_api.c b/src/3rd party/luajit-2.0-BAK/src/lj_api.c deleted file mode 100644 index 1f09284f991..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_api.c +++ /dev/null @@ -1,1210 +0,0 @@ -/* -** Public Lua/C API. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_api_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_func.h" -#include "lj_udata.h" -#include "lj_meta.h" -#include "lj_state.h" -#include "lj_bc.h" -#include "lj_frame.h" -#include "lj_trace.h" -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" - -/* -- Common helper functions --------------------------------------------- */ - -#define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->base)) -#define api_checkvalidindex(L, i) api_check(L, (i) != niltv(L)) - -static TValue *index2adr(lua_State *L, int idx) -{ - if (idx > 0) { - TValue *o = L->base + (idx - 1); - return o < L->top ? o : niltv(L); - } else if (idx > LUA_REGISTRYINDEX) { - api_check(L, idx != 0 && -idx <= L->top - L->base); - return L->top + idx; - } else if (idx == LUA_GLOBALSINDEX) { - TValue *o = &G(L)->tmptv; - settabV(L, o, tabref(L->env)); - return o; - } else if (idx == LUA_REGISTRYINDEX) { - return registry(L); - } else { - GCfunc *fn = curr_func(L); - api_check(L, fn->c.gct == ~LJ_TFUNC && !isluafunc(fn)); - if (idx == LUA_ENVIRONINDEX) { - TValue *o = &G(L)->tmptv; - settabV(L, o, tabref(fn->c.env)); - return o; - } else { - idx = LUA_GLOBALSINDEX - idx; - return idx <= fn->c.nupvalues ? &fn->c.upvalue[idx-1] : niltv(L); - } - } -} - -static TValue *stkindex2adr(lua_State *L, int idx) -{ - if (idx > 0) { - TValue *o = L->base + (idx - 1); - return o < L->top ? o : niltv(L); - } else { - api_check(L, idx != 0 && -idx <= L->top - L->base); - return L->top + idx; - } -} - -static GCtab *getcurrenv(lua_State *L) -{ - GCfunc *fn = curr_func(L); - return fn->c.gct == ~LJ_TFUNC ? tabref(fn->c.env) : tabref(L->env); -} - -/* -- Miscellaneous API functions ----------------------------------------- */ - -LUA_API int lua_status(lua_State *L) -{ - return L->status; -} - -LUA_API int lua_checkstack(lua_State *L, int size) -{ - if (size > LUAI_MAXCSTACK || (L->top - L->base + size) > LUAI_MAXCSTACK) { - return 0; /* Stack overflow. */ - } else if (size > 0) { - lj_state_checkstack(L, (MSize)size); - } - return 1; -} - -LUALIB_API void luaL_checkstack(lua_State *L, int size, const char *msg) -{ - if (!lua_checkstack(L, size)) - lj_err_callerv(L, LJ_ERR_STKOVM, msg); -} - -LUA_API void lua_xmove(lua_State *from, lua_State *to, int n) -{ - TValue *f, *t; - if (from == to) return; - api_checknelems(from, n); - api_check(from, G(from) == G(to)); - lj_state_checkstack(to, (MSize)n); - f = from->top; - t = to->top = to->top + n; - while (--n >= 0) copyTV(to, --t, --f); - from->top = f; -} - -/* -- Stack manipulation -------------------------------------------------- */ - -LUA_API int lua_gettop(lua_State *L) -{ - return (int)(L->top - L->base); -} - -LUA_API void lua_settop(lua_State *L, int idx) -{ - if (idx >= 0) { - api_check(L, idx <= tvref(L->maxstack) - L->base); - if (L->base + idx > L->top) { - if (L->base + idx >= tvref(L->maxstack)) - lj_state_growstack(L, (MSize)idx - (MSize)(L->top - L->base)); - do { setnilV(L->top++); } while (L->top < L->base + idx); - } else { - L->top = L->base + idx; - } - } else { - api_check(L, -(idx+1) <= (L->top - L->base)); - L->top += idx+1; /* Shrinks top (idx < 0). */ - } -} - -LUA_API void lua_remove(lua_State *L, int idx) -{ - TValue *p = stkindex2adr(L, idx); - api_checkvalidindex(L, p); - while (++p < L->top) copyTV(L, p-1, p); - L->top--; -} - -LUA_API void lua_insert(lua_State *L, int idx) -{ - TValue *q, *p = stkindex2adr(L, idx); - api_checkvalidindex(L, p); - for (q = L->top; q > p; q--) copyTV(L, q, q-1); - copyTV(L, p, L->top); -} - -LUA_API void lua_replace(lua_State *L, int idx) -{ - api_checknelems(L, 1); - if (idx == LUA_GLOBALSINDEX) { - api_check(L, tvistab(L->top-1)); - /* NOBARRIER: A thread (i.e. L) is never black. */ - setgcref(L->env, obj2gco(tabV(L->top-1))); - } else if (idx == LUA_ENVIRONINDEX) { - GCfunc *fn = curr_func(L); - if (fn->c.gct != ~LJ_TFUNC) - lj_err_msg(L, LJ_ERR_NOENV); - api_check(L, tvistab(L->top-1)); - setgcref(fn->c.env, obj2gco(tabV(L->top-1))); - lj_gc_barrier(L, fn, L->top-1); - } else { - TValue *o = index2adr(L, idx); - api_checkvalidindex(L, o); - copyTV(L, o, L->top-1); - if (idx < LUA_GLOBALSINDEX) /* Need a barrier for upvalues. */ - lj_gc_barrier(L, curr_func(L), L->top-1); - } - L->top--; -} - -LUA_API void lua_pushvalue(lua_State *L, int idx) -{ - copyTV(L, L->top, index2adr(L, idx)); - incr_top(L); -} - -/* -- Stack getters ------------------------------------------------------- */ - -LUA_API int lua_type(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - if (tvisnumber(o)) { - return LUA_TNUMBER; -#if LJ_64 && !LJ_GC64 - } else if (tvislightud(o)) { - return LUA_TLIGHTUSERDATA; -#endif - } else if (o == niltv(L)) { - return LUA_TNONE; - } else { /* Magic internal/external tag conversion. ORDER LJ_T */ - uint32_t t = ~itype(o); -#if LJ_64 - int tt = (int)((U64x(75a06,98042110) >> 4*t) & 15u); -#else - int tt = (int)(((t < 8 ? 0x98042110u : 0x75a06u) >> 4*(t&7)) & 15u); -#endif - lua_assert(tt != LUA_TNIL || tvisnil(o)); - return tt; - } -} - -LUALIB_API void luaL_checktype(lua_State *L, int idx, int tt) -{ - if (lua_type(L, idx) != tt) - lj_err_argt(L, idx, tt); -} - -LUALIB_API void luaL_checkany(lua_State *L, int idx) -{ - if (index2adr(L, idx) == niltv(L)) - lj_err_arg(L, idx, LJ_ERR_NOVAL); -} - -LUA_API const char *lua_typename(lua_State *L, int t) -{ - UNUSED(L); - return lj_obj_typename[t+1]; -} - -LUA_API int lua_iscfunction(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - return tvisfunc(o) && !isluafunc(funcV(o)); -} - -LUA_API int lua_isnumber(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - return (tvisnumber(o) || (tvisstr(o) && lj_strscan_number(strV(o), &tmp))); -} - -LUA_API int lua_isstring(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - return (tvisstr(o) || tvisnumber(o)); -} - -LUA_API int lua_isuserdata(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - return (tvisudata(o) || tvislightud(o)); -} - -LUA_API int lua_rawequal(lua_State *L, int idx1, int idx2) -{ - cTValue *o1 = index2adr(L, idx1); - cTValue *o2 = index2adr(L, idx2); - return (o1 == niltv(L) || o2 == niltv(L)) ? 0 : lj_obj_equal(o1, o2); -} - -LUA_API int lua_equal(lua_State *L, int idx1, int idx2) -{ - cTValue *o1 = index2adr(L, idx1); - cTValue *o2 = index2adr(L, idx2); - if (tvisint(o1) && tvisint(o2)) { - return intV(o1) == intV(o2); - } else if (tvisnumber(o1) && tvisnumber(o2)) { - return numberVnum(o1) == numberVnum(o2); - } else if (itype(o1) != itype(o2)) { - return 0; - } else if (tvispri(o1)) { - return o1 != niltv(L) && o2 != niltv(L); -#if LJ_64 && !LJ_GC64 - } else if (tvislightud(o1)) { - return o1->u64 == o2->u64; -#endif - } else if (gcrefeq(o1->gcr, o2->gcr)) { - return 1; - } else if (!tvistabud(o1)) { - return 0; - } else { - TValue *base = lj_meta_equal(L, gcV(o1), gcV(o2), 0); - if ((uintptr_t)base <= 1) { - return (int)(uintptr_t)base; - } else { - L->top = base+2; - lj_vm_call(L, base, 1+1); - L->top -= 2+LJ_FR2; - return tvistruecond(L->top+1+LJ_FR2); - } - } -} - -LUA_API int lua_lessthan(lua_State *L, int idx1, int idx2) -{ - cTValue *o1 = index2adr(L, idx1); - cTValue *o2 = index2adr(L, idx2); - if (o1 == niltv(L) || o2 == niltv(L)) { - return 0; - } else if (tvisint(o1) && tvisint(o2)) { - return intV(o1) < intV(o2); - } else if (tvisnumber(o1) && tvisnumber(o2)) { - return numberVnum(o1) < numberVnum(o2); - } else { - TValue *base = lj_meta_comp(L, o1, o2, 0); - if ((uintptr_t)base <= 1) { - return (int)(uintptr_t)base; - } else { - L->top = base+2; - lj_vm_call(L, base, 1+1); - L->top -= 2+LJ_FR2; - return tvistruecond(L->top+1+LJ_FR2); - } - } -} - -LUA_API lua_Number lua_tonumber(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - if (LJ_LIKELY(tvisnumber(o))) - return numberVnum(o); - else if (tvisstr(o) && lj_strscan_num(strV(o), &tmp)) - return numV(&tmp); - else - return 0; -} - -LUALIB_API lua_Number luaL_checknumber(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - if (LJ_LIKELY(tvisnumber(o))) - return numberVnum(o); - else if (!(tvisstr(o) && lj_strscan_num(strV(o), &tmp))) - lj_err_argt(L, idx, LUA_TNUMBER); - return numV(&tmp); -} - -LUALIB_API lua_Number luaL_optnumber(lua_State *L, int idx, lua_Number def) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - if (LJ_LIKELY(tvisnumber(o))) - return numberVnum(o); - else if (tvisnil(o)) - return def; - else if (!(tvisstr(o) && lj_strscan_num(strV(o), &tmp))) - lj_err_argt(L, idx, LUA_TNUMBER); - return numV(&tmp); -} - -LUA_API lua_Integer lua_tointeger(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - lua_Number n; - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else if (LJ_LIKELY(tvisnum(o))) { - n = numV(o); - } else { - if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) - return 0; - if (tvisint(&tmp)) - return (lua_Integer)intV(&tmp); - n = numV(&tmp); - } -#if LJ_64 - return (lua_Integer)n; -#else - return lj_num2int(n); -#endif -} - -LUALIB_API lua_Integer luaL_checkinteger(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - lua_Number n; - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else if (LJ_LIKELY(tvisnum(o))) { - n = numV(o); - } else { - if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) - lj_err_argt(L, idx, LUA_TNUMBER); - if (tvisint(&tmp)) - return (lua_Integer)intV(&tmp); - n = numV(&tmp); - } -#if LJ_64 - return (lua_Integer)n; -#else - return lj_num2int(n); -#endif -} - -LUALIB_API lua_Integer luaL_optinteger(lua_State *L, int idx, lua_Integer def) -{ - cTValue *o = index2adr(L, idx); - TValue tmp; - lua_Number n; - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else if (LJ_LIKELY(tvisnum(o))) { - n = numV(o); - } else if (tvisnil(o)) { - return def; - } else { - if (!(tvisstr(o) && lj_strscan_number(strV(o), &tmp))) - lj_err_argt(L, idx, LUA_TNUMBER); - if (tvisint(&tmp)) - return (lua_Integer)intV(&tmp); - n = numV(&tmp); - } -#if LJ_64 - return (lua_Integer)n; -#else - return lj_num2int(n); -#endif -} - -LUA_API int lua_toboolean(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - return tvistruecond(o); -} - -LUA_API const char *lua_tolstring(lua_State *L, int idx, size_t *len) -{ - TValue *o = index2adr(L, idx); - GCstr *s; - if (LJ_LIKELY(tvisstr(o))) { - s = strV(o); - } else if (tvisnumber(o)) { - lj_gc_check(L); - o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_strfmt_number(L, o); - setstrV(L, o, s); - } else { - if (len != NULL) *len = 0; - return NULL; - } - if (len != NULL) *len = s->len; - return strdata(s); -} - -LUALIB_API const char *luaL_checklstring(lua_State *L, int idx, size_t *len) -{ - TValue *o = index2adr(L, idx); - GCstr *s; - if (LJ_LIKELY(tvisstr(o))) { - s = strV(o); - } else if (tvisnumber(o)) { - lj_gc_check(L); - o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_strfmt_number(L, o); - setstrV(L, o, s); - } else { - lj_err_argt(L, idx, LUA_TSTRING); - } - if (len != NULL) *len = s->len; - return strdata(s); -} - -LUALIB_API const char *luaL_optlstring(lua_State *L, int idx, - const char *def, size_t *len) -{ - TValue *o = index2adr(L, idx); - GCstr *s; - if (LJ_LIKELY(tvisstr(o))) { - s = strV(o); - } else if (tvisnil(o)) { - if (len != NULL) *len = def ? strlen(def) : 0; - return def; - } else if (tvisnumber(o)) { - lj_gc_check(L); - o = index2adr(L, idx); /* GC may move the stack. */ - s = lj_strfmt_number(L, o); - setstrV(L, o, s); - } else { - lj_err_argt(L, idx, LUA_TSTRING); - } - if (len != NULL) *len = s->len; - return strdata(s); -} - -LUALIB_API int luaL_checkoption(lua_State *L, int idx, const char *def, - const char *const lst[]) -{ - ptrdiff_t i; - const char *s = lua_tolstring(L, idx, NULL); - if (s == NULL && (s = def) == NULL) - lj_err_argt(L, idx, LUA_TSTRING); - for (i = 0; lst[i]; i++) - if (strcmp(lst[i], s) == 0) - return (int)i; - lj_err_argv(L, idx, LJ_ERR_INVOPTM, s); -} - -LUA_API size_t lua_objlen(lua_State *L, int idx) -{ - TValue *o = index2adr(L, idx); - if (tvisstr(o)) { - return strV(o)->len; - } else if (tvistab(o)) { - return (size_t)lj_tab_len(tabV(o)); - } else if (tvisudata(o)) { - return udataV(o)->len; - } else if (tvisnumber(o)) { - GCstr *s = lj_strfmt_number(L, o); - setstrV(L, o, s); - return s->len; - } else { - return 0; - } -} - -LUA_API lua_CFunction lua_tocfunction(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - if (tvisfunc(o)) { - BCOp op = bc_op(*mref(funcV(o)->c.pc, BCIns)); - if (op == BC_FUNCC || op == BC_FUNCCW) - return funcV(o)->c.f; - } - return NULL; -} - -LUA_API void *lua_touserdata(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - if (tvisudata(o)) - return uddata(udataV(o)); - else if (tvislightud(o)) - return lightudV(o); - else - return NULL; -} - -LUA_API lua_State *lua_tothread(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - return (!tvisthread(o)) ? NULL : threadV(o); -} - -LUA_API const void *lua_topointer(lua_State *L, int idx) -{ - return lj_obj_ptr(index2adr(L, idx)); -} - -/* -- Stack setters (object creation) ------------------------------------- */ - -LUA_API void lua_pushnil(lua_State *L) -{ - setnilV(L->top); - incr_top(L); -} - -LUA_API void lua_pushnumber(lua_State *L, lua_Number n) -{ - setnumV(L->top, n); - if (LJ_UNLIKELY(tvisnan(L->top))) - setnanV(L->top); /* Canonicalize injected NaNs. */ - incr_top(L); -} - -LUA_API void lua_pushinteger(lua_State *L, lua_Integer n) -{ - setintptrV(L->top, n); - incr_top(L); -} - -LUA_API void lua_pushlstring(lua_State *L, const char *str, size_t len) -{ - GCstr *s; - lj_gc_check(L); - s = lj_str_new(L, str, len); - setstrV(L, L->top, s); - incr_top(L); -} - -LUA_API void lua_pushstring(lua_State *L, const char *str) -{ - if (str == NULL) { - setnilV(L->top); - } else { - GCstr *s; - lj_gc_check(L); - s = lj_str_newz(L, str); - setstrV(L, L->top, s); - } - incr_top(L); -} - -LUA_API const char *lua_pushvfstring(lua_State *L, const char *fmt, - va_list argp) -{ - lj_gc_check(L); - return lj_strfmt_pushvf(L, fmt, argp); -} - -LUA_API const char *lua_pushfstring(lua_State *L, const char *fmt, ...) -{ - const char *ret; - va_list argp; - lj_gc_check(L); - va_start(argp, fmt); - ret = lj_strfmt_pushvf(L, fmt, argp); - va_end(argp); - return ret; -} - -LUA_API void lua_pushcclosure(lua_State *L, lua_CFunction f, int n) -{ - GCfunc *fn; - lj_gc_check(L); - api_checknelems(L, n); - fn = lj_func_newC(L, (MSize)n, getcurrenv(L)); - fn->c.f = f; - L->top -= n; - while (n--) - copyTV(L, &fn->c.upvalue[n], L->top+n); - setfuncV(L, L->top, fn); - lua_assert(iswhite(obj2gco(fn))); - incr_top(L); -} - -LUA_API void lua_pushboolean(lua_State *L, int b) -{ - setboolV(L->top, (b != 0)); - incr_top(L); -} - -LUA_API void lua_pushlightuserdata(lua_State *L, void *p) -{ - setlightudV(L->top, checklightudptr(L, p)); - incr_top(L); -} - -LUA_API void lua_createtable(lua_State *L, int narray, int nrec) -{ - lj_gc_check(L); - settabV(L, L->top, lj_tab_new_ah(L, narray, nrec)); - incr_top(L); -} - -LUALIB_API int luaL_newmetatable(lua_State *L, const char *tname) -{ - GCtab *regt = tabV(registry(L)); - TValue *tv = lj_tab_setstr(L, regt, lj_str_newz(L, tname)); - if (tvisnil(tv)) { - GCtab *mt = lj_tab_new(L, 0, 1); - settabV(L, tv, mt); - settabV(L, L->top++, mt); - lj_gc_anybarriert(L, regt); - return 1; - } else { - copyTV(L, L->top++, tv); - return 0; - } -} - -LUA_API int lua_pushthread(lua_State *L) -{ - setthreadV(L, L->top, L); - incr_top(L); - return (mainthread(G(L)) == L); -} - -LUA_API lua_State *lua_newthread(lua_State *L) -{ - lua_State *L1; - lj_gc_check(L); - L1 = lj_state_new(L); - setthreadV(L, L->top, L1); - incr_top(L); - return L1; -} - -LUA_API void *lua_newuserdata(lua_State *L, size_t size) -{ - GCudata *ud; - lj_gc_check(L); - if (size > LJ_MAX_UDATA) - lj_err_msg(L, LJ_ERR_UDATAOV); - ud = lj_udata_new(L, (MSize)size, getcurrenv(L)); - setudataV(L, L->top, ud); - incr_top(L); - return uddata(ud); -} - -LUA_API void lua_concat(lua_State *L, int n) -{ - api_checknelems(L, n); - if (n >= 2) { - n--; - do { - TValue *top = lj_meta_cat(L, L->top-1, -n); - if (top == NULL) { - L->top -= n; - break; - } - n -= (int)(L->top - top); - L->top = top+2; - lj_vm_call(L, top, 1+1); - L->top -= 1+LJ_FR2; - copyTV(L, L->top-1, L->top+LJ_FR2); - } while (--n > 0); - } else if (n == 0) { /* Push empty string. */ - setstrV(L, L->top, &G(L)->strempty); - incr_top(L); - } - /* else n == 1: nothing to do. */ -} - -/* -- Object getters ------------------------------------------------------ */ - -LUA_API void lua_gettable(lua_State *L, int idx) -{ - cTValue *v, *t = index2adr(L, idx); - api_checkvalidindex(L, t); - v = lj_meta_tget(L, t, L->top-1); - if (v == NULL) { - L->top += 2; - lj_vm_call(L, L->top-2, 1+1); - L->top -= 2+LJ_FR2; - v = L->top+1+LJ_FR2; - } - copyTV(L, L->top-1, v); -} - -LUA_API void lua_getfield(lua_State *L, int idx, const char *k) -{ - cTValue *v, *t = index2adr(L, idx); - TValue key; - api_checkvalidindex(L, t); - setstrV(L, &key, lj_str_newz(L, k)); - v = lj_meta_tget(L, t, &key); - if (v == NULL) { - L->top += 2; - lj_vm_call(L, L->top-2, 1+1); - L->top -= 2+LJ_FR2; - v = L->top+1+LJ_FR2; - } - copyTV(L, L->top, v); - incr_top(L); -} - -LUA_API void lua_rawget(lua_State *L, int idx) -{ - cTValue *t = index2adr(L, idx); - api_check(L, tvistab(t)); - copyTV(L, L->top-1, lj_tab_get(L, tabV(t), L->top-1)); -} - -LUA_API void lua_rawgeti(lua_State *L, int idx, int n) -{ - cTValue *v, *t = index2adr(L, idx); - api_check(L, tvistab(t)); - v = lj_tab_getint(tabV(t), n); - if (v) { - copyTV(L, L->top, v); - } else { - setnilV(L->top); - } - incr_top(L); -} - -LUA_API int lua_getmetatable(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - GCtab *mt = NULL; - if (tvistab(o)) - mt = tabref(tabV(o)->metatable); - else if (tvisudata(o)) - mt = tabref(udataV(o)->metatable); - else - mt = tabref(basemt_obj(G(L), o)); - if (mt == NULL) - return 0; - settabV(L, L->top, mt); - incr_top(L); - return 1; -} - -LUALIB_API int luaL_getmetafield(lua_State *L, int idx, const char *field) -{ - if (lua_getmetatable(L, idx)) { - cTValue *tv = lj_tab_getstr(tabV(L->top-1), lj_str_newz(L, field)); - if (tv && !tvisnil(tv)) { - copyTV(L, L->top-1, tv); - return 1; - } - L->top--; - } - return 0; -} - -LUA_API void lua_getfenv(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - api_checkvalidindex(L, o); - if (tvisfunc(o)) { - settabV(L, L->top, tabref(funcV(o)->c.env)); - } else if (tvisudata(o)) { - settabV(L, L->top, tabref(udataV(o)->env)); - } else if (tvisthread(o)) { - settabV(L, L->top, tabref(threadV(o)->env)); - } else { - setnilV(L->top); - } - incr_top(L); -} - -LUA_API int lua_next(lua_State *L, int idx) -{ - cTValue *t = index2adr(L, idx); - int more; - api_check(L, tvistab(t)); - more = lj_tab_next(L, tabV(t), L->top-1); - if (more) { - incr_top(L); /* Return new key and value slot. */ - } else { /* End of traversal. */ - L->top--; /* Remove key slot. */ - } - return more; -} - -LUA_API const char *lua_getupvalue(lua_State *L, int idx, int n) -{ - TValue *val; - const char *name = lj_debug_uvnamev(index2adr(L, idx), (uint32_t)(n-1), &val); - if (name) { - copyTV(L, L->top, val); - incr_top(L); - } - return name; -} - -LUA_API void *lua_upvalueid(lua_State *L, int idx, int n) -{ - GCfunc *fn = funcV(index2adr(L, idx)); - n--; - api_check(L, (uint32_t)n < fn->l.nupvalues); - return isluafunc(fn) ? (void *)gcref(fn->l.uvptr[n]) : - (void *)&fn->c.upvalue[n]; -} - -LUA_API void lua_upvaluejoin(lua_State *L, int idx1, int n1, int idx2, int n2) -{ - GCfunc *fn1 = funcV(index2adr(L, idx1)); - GCfunc *fn2 = funcV(index2adr(L, idx2)); - n1--; n2--; - api_check(L, isluafunc(fn1) && (uint32_t)n1 < fn1->l.nupvalues); - api_check(L, isluafunc(fn2) && (uint32_t)n2 < fn2->l.nupvalues); - setgcrefr(fn1->l.uvptr[n1], fn2->l.uvptr[n2]); - lj_gc_objbarrier(L, fn1, gcref(fn1->l.uvptr[n1])); -} - -LUALIB_API void *luaL_checkudata(lua_State *L, int idx, const char *tname) -{ - cTValue *o = index2adr(L, idx); - if (tvisudata(o)) { - GCudata *ud = udataV(o); - cTValue *tv = lj_tab_getstr(tabV(registry(L)), lj_str_newz(L, tname)); - if (tv && tvistab(tv) && tabV(tv) == tabref(ud->metatable)) - return uddata(ud); - } - lj_err_argtype(L, idx, tname); - return NULL; /* unreachable */ -} - -/* -- Object setters ------------------------------------------------------ */ - -LUA_API void lua_settable(lua_State *L, int idx) -{ - TValue *o; - cTValue *t = index2adr(L, idx); - api_checknelems(L, 2); - api_checkvalidindex(L, t); - o = lj_meta_tset(L, t, L->top-2); - if (o) { - /* NOBARRIER: lj_meta_tset ensures the table is not black. */ - L->top -= 2; - copyTV(L, o, L->top+1); - } else { - TValue *base = L->top; - copyTV(L, base+2, base-3-2*LJ_FR2); - L->top = base+3; - lj_vm_call(L, base, 0+1); - L->top -= 3+LJ_FR2; - } -} - -LUA_API void lua_setfield(lua_State *L, int idx, const char *k) -{ - TValue *o; - TValue key; - cTValue *t = index2adr(L, idx); - api_checknelems(L, 1); - api_checkvalidindex(L, t); - setstrV(L, &key, lj_str_newz(L, k)); - o = lj_meta_tset(L, t, &key); - if (o) { - /* NOBARRIER: lj_meta_tset ensures the table is not black. */ - copyTV(L, o, --L->top); - } else { - TValue *base = L->top; - copyTV(L, base+2, base-3-2*LJ_FR2); - L->top = base+3; - lj_vm_call(L, base, 0+1); - L->top -= 2+LJ_FR2; - } -} - -LUA_API void lua_rawset(lua_State *L, int idx) -{ - GCtab *t = tabV(index2adr(L, idx)); - TValue *dst, *key; - api_checknelems(L, 2); - key = L->top-2; - dst = lj_tab_set(L, t, key); - copyTV(L, dst, key+1); - lj_gc_anybarriert(L, t); - L->top = key; -} - -LUA_API void lua_rawseti(lua_State *L, int idx, int n) -{ - GCtab *t = tabV(index2adr(L, idx)); - TValue *dst, *src; - api_checknelems(L, 1); - dst = lj_tab_setint(L, t, n); - src = L->top-1; - copyTV(L, dst, src); - lj_gc_barriert(L, t, dst); - L->top = src; -} - -LUA_API int lua_setmetatable(lua_State *L, int idx) -{ - global_State *g; - GCtab *mt; - cTValue *o = index2adr(L, idx); - api_checknelems(L, 1); - api_checkvalidindex(L, o); - if (tvisnil(L->top-1)) { - mt = NULL; - } else { - api_check(L, tvistab(L->top-1)); - mt = tabV(L->top-1); - } - g = G(L); - if (tvistab(o)) { - setgcref(tabV(o)->metatable, obj2gco(mt)); - if (mt) - lj_gc_objbarriert(L, tabV(o), mt); - } else if (tvisudata(o)) { - setgcref(udataV(o)->metatable, obj2gco(mt)); - if (mt) - lj_gc_objbarrier(L, udataV(o), mt); - } else { - /* Flush cache, since traces specialize to basemt. But not during __gc. */ - if (lj_trace_flushall(L)) - lj_err_caller(L, LJ_ERR_NOGCMM); - if (tvisbool(o)) { - /* NOBARRIER: basemt is a GC root. */ - setgcref(basemt_it(g, LJ_TTRUE), obj2gco(mt)); - setgcref(basemt_it(g, LJ_TFALSE), obj2gco(mt)); - } else { - /* NOBARRIER: basemt is a GC root. */ - setgcref(basemt_obj(g, o), obj2gco(mt)); - } - } - L->top--; - return 1; -} - -LUA_API int lua_setfenv(lua_State *L, int idx) -{ - cTValue *o = index2adr(L, idx); - GCtab *t; - api_checknelems(L, 1); - api_checkvalidindex(L, o); - api_check(L, tvistab(L->top-1)); - t = tabV(L->top-1); - if (tvisfunc(o)) { - setgcref(funcV(o)->c.env, obj2gco(t)); - } else if (tvisudata(o)) { - setgcref(udataV(o)->env, obj2gco(t)); - } else if (tvisthread(o)) { - setgcref(threadV(o)->env, obj2gco(t)); - } else { - L->top--; - return 0; - } - lj_gc_objbarrier(L, gcV(o), t); - L->top--; - return 1; -} - -LUA_API const char *lua_setupvalue(lua_State *L, int idx, int n) -{ - cTValue *f = index2adr(L, idx); - TValue *val; - const char *name; - api_checknelems(L, 1); - name = lj_debug_uvnamev(f, (uint32_t)(n-1), &val); - if (name) { - L->top--; - copyTV(L, val, L->top); - lj_gc_barrier(L, funcV(f), L->top); - } - return name; -} - -/* -- Calls --------------------------------------------------------------- */ - -#if LJ_FR2 -static TValue *api_call_base(lua_State *L, int nargs) -{ - TValue *o = L->top, *base = o - nargs; - L->top = o+1; - for (; o > base; o--) copyTV(L, o, o-1); - setnilV(o); - return o+1; -} -#else -#define api_call_base(L, nargs) (L->top - (nargs)) -#endif - -LUA_API void lua_call(lua_State *L, int nargs, int nresults) -{ - api_check(L, L->status == 0 || L->status == LUA_ERRERR); - api_checknelems(L, nargs+1); - lj_vm_call(L, api_call_base(L, nargs), nresults+1); -} - -LUA_API int lua_pcall(lua_State *L, int nargs, int nresults, int errfunc) -{ - global_State *g = G(L); - uint8_t oldh = hook_save(g); - ptrdiff_t ef; - int status; - api_check(L, L->status == 0 || L->status == LUA_ERRERR); - api_checknelems(L, nargs+1); - if (errfunc == 0) { - ef = 0; - } else { - cTValue *o = stkindex2adr(L, errfunc); - api_checkvalidindex(L, o); - ef = savestack(L, o); - } - status = lj_vm_pcall(L, api_call_base(L, nargs), nresults+1, ef); - if (status) hook_restore(g, oldh); - return status; -} - -static TValue *cpcall(lua_State *L, lua_CFunction func, void *ud) -{ - GCfunc *fn = lj_func_newC(L, 0, getcurrenv(L)); - TValue *top = L->top; - fn->c.f = func; - setfuncV(L, top++, fn); - if (LJ_FR2) setnilV(top++); - setlightudV(top++, checklightudptr(L, ud)); - cframe_nres(L->cframe) = 1+0; /* Zero results. */ - L->top = top; - return top-1; /* Now call the newly allocated C function. */ -} - -LUA_API int lua_cpcall(lua_State *L, lua_CFunction func, void *ud) -{ - global_State *g = G(L); - uint8_t oldh = hook_save(g); - int status; - api_check(L, L->status == 0 || L->status == LUA_ERRERR); - status = lj_vm_cpcall(L, func, ud, cpcall); - if (status) hook_restore(g, oldh); - return status; -} - -LUALIB_API int luaL_callmeta(lua_State *L, int idx, const char *field) -{ - if (luaL_getmetafield(L, idx, field)) { - TValue *top = L->top--; - if (LJ_FR2) setnilV(top++); - copyTV(L, top++, index2adr(L, idx)); - L->top = top; - lj_vm_call(L, top-1, 1+1); - return 1; - } - return 0; -} - -/* -- Coroutine yield and resume ------------------------------------------ */ - -LUA_API int lua_yield(lua_State *L, int nresults) -{ - void *cf = L->cframe; - global_State *g = G(L); - if (cframe_canyield(cf)) { - cf = cframe_raw(cf); - if (!hook_active(g)) { /* Regular yield: move results down if needed. */ - cTValue *f = L->top - nresults; - if (f > L->base) { - TValue *t = L->base; - while (--nresults >= 0) copyTV(L, t++, f++); - L->top = t; - } - L->cframe = NULL; - L->status = LUA_YIELD; - return -1; - } else { /* Yield from hook: add a pseudo-frame. */ - TValue *top = L->top; - hook_leave(g); - (top++)->u64 = cframe_multres(cf); - setcont(top, lj_cont_hook); - if (LJ_FR2) top++; - setframe_pc(top, cframe_pc(cf)-1); - if (LJ_FR2) top++; - setframe_gc(top, obj2gco(L), LJ_TTHREAD); - setframe_ftsz(top, ((char *)(top+1)-(char *)L->base)+FRAME_CONT); - L->top = L->base = top+1; -#if LJ_TARGET_X64 - lj_err_throw(L, LUA_YIELD); -#else - L->cframe = NULL; - L->status = LUA_YIELD; - lj_vm_unwind_c(cf, LUA_YIELD); -#endif - } - } - lj_err_msg(L, LJ_ERR_CYIELD); - return 0; /* unreachable */ -} - -LUA_API int lua_resume(lua_State *L, int nargs) -{ - if (L->cframe == NULL && L->status <= LUA_YIELD) - return lj_vm_resume(L, - L->status == 0 ? api_call_base(L, nargs) : L->top - nargs, - 0, 0); - L->top = L->base; - setstrV(L, L->top, lj_err_str(L, LJ_ERR_COSUSP)); - incr_top(L); - return LUA_ERRRUN; -} - -/* -- GC and memory management -------------------------------------------- */ - -LUA_API int lua_gc(lua_State *L, int what, int data) -{ - global_State *g = G(L); - int res = 0; - switch (what) { - case LUA_GCSTOP: - g->gc.threshold = LJ_MAX_MEM; - break; - case LUA_GCRESTART: - g->gc.threshold = data == -1 ? (g->gc.total/100)*g->gc.pause : g->gc.total; - break; - case LUA_GCCOLLECT: - lj_gc_fullgc(L); - break; - case LUA_GCCOUNT: - res = (int)(g->gc.total >> 10); - break; - case LUA_GCCOUNTB: - res = (int)(g->gc.total & 0x3ff); - break; - case LUA_GCSTEP: { - GCSize a = (GCSize)data << 10; - g->gc.threshold = (a <= g->gc.total) ? (g->gc.total - a) : 0; - while (g->gc.total >= g->gc.threshold) - if (lj_gc_step(L) > 0) { - res = 1; - break; - } - break; - } - case LUA_GCSETPAUSE: - res = (int)(g->gc.pause); - g->gc.pause = (MSize)data; - break; - case LUA_GCSETSTEPMUL: - res = (int)(g->gc.stepmul); - g->gc.stepmul = (MSize)data; - break; - default: - res = -1; /* Invalid option. */ - } - return res; -} - -LUA_API lua_Alloc lua_getallocf(lua_State *L, void **ud) -{ - global_State *g = G(L); - if (ud) *ud = g->allocd; - return g->allocf; -} - -LUA_API void lua_setallocf(lua_State *L, lua_Alloc f, void *ud) -{ - global_State *g = G(L); - g->allocd = ud; - g->allocf = f; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_arch.h b/src/3rd party/luajit-2.0-BAK/src/lj_arch.h deleted file mode 100644 index 6b5cd1bda6f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_arch.h +++ /dev/null @@ -1,477 +0,0 @@ -/* -** Target architecture selection. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_ARCH_H -#define _LJ_ARCH_H - -#include "lua.h" - -/* Target endianess. */ -#define LUAJIT_LE 0 -#define LUAJIT_BE 1 - -/* Target architectures. */ -#define LUAJIT_ARCH_X86 1 -#define LUAJIT_ARCH_x86 1 -#define LUAJIT_ARCH_X64 2 -#define LUAJIT_ARCH_x64 2 -#define LUAJIT_ARCH_ARM 3 -#define LUAJIT_ARCH_arm 3 -#define LUAJIT_ARCH_ARM64 4 -#define LUAJIT_ARCH_arm64 4 -#define LUAJIT_ARCH_PPC 5 -#define LUAJIT_ARCH_ppc 5 -#define LUAJIT_ARCH_MIPS 6 -#define LUAJIT_ARCH_mips 6 - -/* Target OS. */ -#define LUAJIT_OS_OTHER 0 -#define LUAJIT_OS_WINDOWS 1 -#define LUAJIT_OS_LINUX 2 -#define LUAJIT_OS_OSX 3 -#define LUAJIT_OS_BSD 4 -#define LUAJIT_OS_POSIX 5 - -/* Select native target if no target defined. */ -#ifndef LUAJIT_TARGET - -#if defined(__i386) || defined(__i386__) || defined(_M_IX86) -#define LUAJIT_TARGET LUAJIT_ARCH_X86 -#elif defined(__x86_64__) || defined(__x86_64) || defined(_M_X64) || defined(_M_AMD64) -#define LUAJIT_TARGET LUAJIT_ARCH_X64 -#elif defined(__arm__) || defined(__arm) || defined(__ARM__) || defined(__ARM) -#define LUAJIT_TARGET LUAJIT_ARCH_ARM -#elif defined(__aarch64__) -#define LUAJIT_TARGET LUAJIT_ARCH_ARM64 -#elif defined(__ppc__) || defined(__ppc) || defined(__PPC__) || defined(__PPC) || defined(__powerpc__) || defined(__powerpc) || defined(__POWERPC__) || defined(__POWERPC) || defined(_M_PPC) -#define LUAJIT_TARGET LUAJIT_ARCH_PPC -#elif defined(__mips__) || defined(__mips) || defined(__MIPS__) || defined(__MIPS) -#define LUAJIT_TARGET LUAJIT_ARCH_MIPS -#else -#error "No support for this architecture (yet)" -#endif - -#endif - -/* Select native OS if no target OS defined. */ -#ifndef LUAJIT_OS - -#if defined(_WIN32) && !defined(_XBOX_VER) -#define LUAJIT_OS LUAJIT_OS_WINDOWS -#elif defined(__linux__) -#define LUAJIT_OS LUAJIT_OS_LINUX -#elif defined(__MACH__) && defined(__APPLE__) -#define LUAJIT_OS LUAJIT_OS_OSX -#elif (defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || \ - defined(__NetBSD__) || defined(__OpenBSD__) || \ - defined(__DragonFly__)) && !defined(__ORBIS__) -#define LUAJIT_OS LUAJIT_OS_BSD -#elif (defined(__sun__) && defined(__svr4__)) || defined(__CYGWIN__) -#define LUAJIT_OS LUAJIT_OS_POSIX -#else -#define LUAJIT_OS LUAJIT_OS_OTHER -#endif - -#endif - -/* Set target OS properties. */ -#if LUAJIT_OS == LUAJIT_OS_WINDOWS -#define LJ_OS_NAME "Windows" -#elif LUAJIT_OS == LUAJIT_OS_LINUX -#define LJ_OS_NAME "Linux" -#elif LUAJIT_OS == LUAJIT_OS_OSX -#define LJ_OS_NAME "OSX" -#elif LUAJIT_OS == LUAJIT_OS_BSD -#define LJ_OS_NAME "BSD" -#elif LUAJIT_OS == LUAJIT_OS_POSIX -#define LJ_OS_NAME "POSIX" -#else -#define LJ_OS_NAME "Other" -#endif - -#define LJ_TARGET_WINDOWS (LUAJIT_OS == LUAJIT_OS_WINDOWS) -#define LJ_TARGET_LINUX (LUAJIT_OS == LUAJIT_OS_LINUX) -#define LJ_TARGET_OSX (LUAJIT_OS == LUAJIT_OS_OSX) -#define LJ_TARGET_IOS (LJ_TARGET_OSX && (LUAJIT_TARGET == LUAJIT_ARCH_ARM || LUAJIT_TARGET == LUAJIT_ARCH_ARM64)) -#define LJ_TARGET_POSIX (LUAJIT_OS > LUAJIT_OS_WINDOWS) -#define LJ_TARGET_DLOPEN LJ_TARGET_POSIX - -#ifdef __CELLOS_LV2__ -#define LJ_TARGET_PS3 1 -#define LJ_TARGET_CONSOLE 1 -#endif - -#ifdef __ORBIS__ -#define LJ_TARGET_PS4 1 -#define LJ_TARGET_CONSOLE 1 -#undef NULL -#define NULL ((void*)0) -#endif - -#ifdef __psp2__ -#define LJ_TARGET_PSVITA 1 -#define LJ_TARGET_CONSOLE 1 -#endif - -#if _XBOX_VER >= 200 -#define LJ_TARGET_XBOX360 1 -#define LJ_TARGET_CONSOLE 1 -#endif - -#define LJ_NUMMODE_SINGLE 0 /* Single-number mode only. */ -#define LJ_NUMMODE_SINGLE_DUAL 1 /* Default to single-number mode. */ -#define LJ_NUMMODE_DUAL 2 /* Dual-number mode only. */ -#define LJ_NUMMODE_DUAL_SINGLE 3 /* Default to dual-number mode. */ - -/* Set target architecture properties. */ -#if LUAJIT_TARGET == LUAJIT_ARCH_X86 - -#define LJ_ARCH_NAME "x86" -#define LJ_ARCH_BITS 32 -#define LJ_ARCH_ENDIAN LUAJIT_LE -#if LJ_TARGET_WINDOWS || __CYGWIN__ -#define LJ_ABI_WIN 1 -#else -#define LJ_ABI_WIN 0 -#endif -#define LJ_TARGET_X86 1 -#define LJ_TARGET_X86ORX64 1 -#define LJ_TARGET_EHRETREG 0 -#define LJ_TARGET_MASKSHIFT 1 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNALIGNED 1 -#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE_DUAL - -#elif LUAJIT_TARGET == LUAJIT_ARCH_X64 - -#define LJ_ARCH_NAME "x64" -#define LJ_ARCH_BITS 64 -#define LJ_ARCH_ENDIAN LUAJIT_LE -#define LJ_ABI_WIN LJ_TARGET_WINDOWS -#define LJ_TARGET_X64 1 -#define LJ_TARGET_X86ORX64 1 -#define LJ_TARGET_EHRETREG 0 -#define LJ_TARGET_JUMPRANGE 31 /* +-2^31 = +-2GB */ -#define LJ_TARGET_MASKSHIFT 1 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNALIGNED 1 -#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE_DUAL - -#elif LUAJIT_TARGET == LUAJIT_ARCH_ARM - -#define LJ_ARCH_NAME "arm" -#define LJ_ARCH_BITS 32 -#define LJ_ARCH_ENDIAN LUAJIT_LE -#if !defined(LJ_ARCH_HASFPU) && __SOFTFP__ -#define LJ_ARCH_HASFPU 0 -#endif -#if !defined(LJ_ABI_SOFTFP) && !__ARM_PCS_VFP -#define LJ_ABI_SOFTFP 1 -#endif -#define LJ_ABI_EABI 1 -#define LJ_TARGET_ARM 1 -#define LJ_TARGET_EHRETREG 0 -#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ -#define LJ_TARGET_MASKSHIFT 0 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ -#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL - -#if __ARM_ARCH_7__ || __ARM_ARCH_7A__ || __ARM_ARCH_7R__ || __ARM_ARCH_7S__ -#define LJ_ARCH_VERSION 70 -#elif __ARM_ARCH_6T2__ -#define LJ_ARCH_VERSION 61 -#elif __ARM_ARCH_6__ || __ARM_ARCH_6J__ || __ARM_ARCH_6K__ || __ARM_ARCH_6Z__ || __ARM_ARCH_6ZK__ -#define LJ_ARCH_VERSION 60 -#else -#define LJ_ARCH_VERSION 50 -#endif - -#elif LUAJIT_TARGET == LUAJIT_ARCH_ARM64 - -#define LJ_ARCH_NAME "arm64" -#define LJ_ARCH_BITS 64 -#define LJ_ARCH_ENDIAN LUAJIT_LE -#define LJ_TARGET_ARM64 1 -#define LJ_TARGET_EHRETREG 0 -#define LJ_TARGET_JUMPRANGE 27 /* +-2^27 = +-128MB */ -#define LJ_TARGET_MASKSHIFT 1 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ -#define LJ_TARGET_GC64 1 -#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL -#define LJ_ARCH_NOJIT 1 /* NYI */ - -#define LJ_ARCH_VERSION 80 - -#elif LUAJIT_TARGET == LUAJIT_ARCH_PPC - -#define LJ_ARCH_NAME "ppc" -#if _LP64 -#define LJ_ARCH_BITS 64 -#else -#define LJ_ARCH_BITS 32 -#endif -#define LJ_ARCH_ENDIAN LUAJIT_BE -#define LJ_TARGET_PPC 1 -#define LJ_TARGET_EHRETREG 3 -#define LJ_TARGET_JUMPRANGE 25 /* +-2^25 = +-32MB */ -#define LJ_TARGET_MASKSHIFT 0 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNIFYROT 1 /* Want only IR_BROL. */ -#define LJ_ARCH_NUMMODE LJ_NUMMODE_DUAL_SINGLE - -#if _ARCH_PWR7 -#define LJ_ARCH_VERSION 70 -#elif _ARCH_PWR6 -#define LJ_ARCH_VERSION 60 -#elif _ARCH_PWR5X -#define LJ_ARCH_VERSION 51 -#elif _ARCH_PWR5 -#define LJ_ARCH_VERSION 50 -#elif _ARCH_PWR4 -#define LJ_ARCH_VERSION 40 -#else -#define LJ_ARCH_VERSION 0 -#endif -#if __PPC64__ || __powerpc64__ || LJ_TARGET_CONSOLE -#define LJ_ARCH_PPC64 1 -#define LJ_ARCH_NOFFI 1 -#endif -#if _ARCH_PPCSQ -#define LJ_ARCH_SQRT 1 -#endif -#if _ARCH_PWR5X -#define LJ_ARCH_ROUND 1 -#endif -#if __PPU__ -#define LJ_ARCH_CELL 1 -#endif -#if LJ_TARGET_XBOX360 -#define LJ_ARCH_XENON 1 -#endif - -#elif LUAJIT_TARGET == LUAJIT_ARCH_MIPS - -#if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) -#define LJ_ARCH_NAME "mipsel" -#define LJ_ARCH_ENDIAN LUAJIT_LE -#else -#define LJ_ARCH_NAME "mips" -#define LJ_ARCH_ENDIAN LUAJIT_BE -#endif -#define LJ_ARCH_BITS 32 -#define LJ_TARGET_MIPS 1 -#define LJ_TARGET_EHRETREG 4 -#define LJ_TARGET_JUMPRANGE 27 /* 2*2^27 = 256MB-aligned region */ -#define LJ_TARGET_MASKSHIFT 1 -#define LJ_TARGET_MASKROT 1 -#define LJ_TARGET_UNIFYROT 2 /* Want only IR_BROR. */ -#define LJ_ARCH_NUMMODE LJ_NUMMODE_SINGLE - -#if _MIPS_ARCH_MIPS32R2 -#define LJ_ARCH_VERSION 20 -#else -#define LJ_ARCH_VERSION 10 -#endif - -#else -#error "No target architecture defined" -#endif - -#ifndef LJ_PAGESIZE -#define LJ_PAGESIZE 4096 -#endif - -/* Check for minimum required compiler versions. */ -#if defined(__GNUC__) -#if LJ_TARGET_X86 -#if (__GNUC__ < 3) || ((__GNUC__ == 3) && __GNUC_MINOR__ < 4) -#error "Need at least GCC 3.4 or newer" -#endif -#elif LJ_TARGET_X64 -#if __GNUC__ < 4 -#error "Need at least GCC 4.0 or newer" -#endif -#elif LJ_TARGET_ARM -#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 2) -#error "Need at least GCC 4.2 or newer" -#endif -#elif LJ_TARGET_ARM64 -#if __clang__ -#if (__clang_major__ < 3) || ((__clang_major__ == 3) && __clang_minor__ < 5) -#error "Need at least Clang 3.5 or newer" -#endif -#else -#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 8) -#error "Need at least GCC 4.8 or newer" -#endif -#endif -#elif !LJ_TARGET_PS3 -#if (__GNUC__ < 4) || ((__GNUC__ == 4) && __GNUC_MINOR__ < 3) -#error "Need at least GCC 4.3 or newer" -#endif -#endif -#endif - -/* Check target-specific constraints. */ -#ifndef _BUILDVM_H -#if LJ_TARGET_X64 -#if __USING_SJLJ_EXCEPTIONS__ -#error "Need a C compiler with native exception handling on x64" -#endif -#elif LJ_TARGET_ARM -#if defined(__ARMEB__) -#error "No support for big-endian ARM" -#endif -#if __ARM_ARCH_6M__ || __ARM_ARCH_7M__ || __ARM_ARCH_7EM__ -#error "No support for Cortex-M CPUs" -#endif -#if !(__ARM_EABI__ || LJ_TARGET_IOS) -#error "Only ARM EABI or iOS 3.0+ ABI is supported" -#endif -#elif LJ_TARGET_ARM64 -#if defined(__AARCH64EB__) -#error "No support for big-endian ARM64" -#endif -#if defined(_ILP32) -#error "No support for ILP32 model on ARM64" -#endif -#elif LJ_TARGET_PPC -#if defined(_SOFT_FLOAT) || defined(_SOFT_DOUBLE) -#error "No support for PowerPC CPUs without double-precision FPU" -#endif -#if defined(_LITTLE_ENDIAN) -#error "No support for little-endian PowerPC" -#endif -#if defined(_LP64) -#error "No support for PowerPC 64 bit mode" -#endif -#ifdef __NO_FPRS__ -#error "No support for PPC/e500 anymore (use LuaJIT 2.0)" -#endif -#elif LJ_TARGET_MIPS -#if defined(__mips_soft_float) -#error "No support for MIPS CPUs without FPU" -#endif -#endif -#endif - -/* Enable or disable the dual-number mode for the VM. */ -#if (LJ_ARCH_NUMMODE == LJ_NUMMODE_SINGLE && LUAJIT_NUMMODE == 2) || \ - (LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL && LUAJIT_NUMMODE == 1) -#error "No support for this number mode on this architecture" -#endif -#if LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL || \ - (LJ_ARCH_NUMMODE == LJ_NUMMODE_DUAL_SINGLE && LUAJIT_NUMMODE != 1) || \ - (LJ_ARCH_NUMMODE == LJ_NUMMODE_SINGLE_DUAL && LUAJIT_NUMMODE == 2) -#define LJ_DUALNUM 1 -#else -#define LJ_DUALNUM 0 -#endif - -#if LJ_TARGET_IOS || LJ_TARGET_CONSOLE -/* Runtime code generation is restricted on iOS. Complain to Apple, not me. */ -/* Ditto for the consoles. Complain to Sony or MS, not me. */ -#ifndef LUAJIT_ENABLE_JIT -#define LJ_OS_NOJIT 1 -#endif -#endif - -/* 64 bit GC references. */ -#if LJ_TARGET_GC64 -#define LJ_GC64 1 -#else -#define LJ_GC64 0 -#endif - -/* 2-slot frame info. */ -#if LJ_GC64 -#define LJ_FR2 1 -#else -#define LJ_FR2 0 -#endif - -/* Disable or enable the JIT compiler. */ -#if defined(LUAJIT_DISABLE_JIT) || defined(LJ_ARCH_NOJIT) || defined(LJ_OS_NOJIT) || LJ_FR2 || LJ_GC64 -#define LJ_HASJIT 0 -#else -#define LJ_HASJIT 1 -#endif - -/* Disable or enable the FFI extension. */ -#if defined(LUAJIT_DISABLE_FFI) || defined(LJ_ARCH_NOFFI) -#define LJ_HASFFI 0 -#else -#define LJ_HASFFI 1 -#endif - -#if defined(LUAJIT_DISABLE_PROFILE) -#define LJ_HASPROFILE 0 -#elif LJ_TARGET_POSIX -#define LJ_HASPROFILE 1 -#define LJ_PROFILE_SIGPROF 1 -#elif LJ_TARGET_PS3 -#define LJ_HASPROFILE 1 -#define LJ_PROFILE_PTHREAD 1 -#elif LJ_TARGET_WINDOWS || LJ_TARGET_XBOX360 -#define LJ_HASPROFILE 1 -#define LJ_PROFILE_WTHREAD 1 -#else -#define LJ_HASPROFILE 0 -#endif - -#ifndef LJ_ARCH_HASFPU -#define LJ_ARCH_HASFPU 1 -#endif -#ifndef LJ_ABI_SOFTFP -#define LJ_ABI_SOFTFP 0 -#endif -#define LJ_SOFTFP (!LJ_ARCH_HASFPU) - -#if LJ_ARCH_ENDIAN == LUAJIT_BE -#define LJ_LE 0 -#define LJ_BE 1 -#define LJ_ENDIAN_SELECT(le, be) be -#define LJ_ENDIAN_LOHI(lo, hi) hi lo -#else -#define LJ_LE 1 -#define LJ_BE 0 -#define LJ_ENDIAN_SELECT(le, be) le -#define LJ_ENDIAN_LOHI(lo, hi) lo hi -#endif - -#if LJ_ARCH_BITS == 32 -#define LJ_32 1 -#define LJ_64 0 -#else -#define LJ_32 0 -#define LJ_64 1 -#endif - -#ifndef LJ_TARGET_UNALIGNED -#define LJ_TARGET_UNALIGNED 0 -#endif - -/* Various workarounds for embedded operating systems or weak C runtimes. */ -#if (defined(__ANDROID__) && !defined(LJ_TARGET_X86ORX64)) || defined(__symbian__) || LJ_TARGET_XBOX360 || LJ_TARGET_WINDOWS -#define LUAJIT_NO_LOG2 -#endif -#if defined(__symbian__) || LJ_TARGET_WINDOWS -#define LUAJIT_NO_EXP2 -#endif - -#if defined(LUAJIT_NO_UNWIND) || defined(__symbian__) || LJ_TARGET_IOS || LJ_TARGET_PS3 -#define LJ_NO_UNWIND 1 -#endif - -/* Compatibility with Lua 5.1 vs. 5.2. */ -#ifdef LUAJIT_ENABLE_LUA52COMPAT -#define LJ_52 1 -#else -#define LJ_52 0 -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm.c b/src/3rd party/luajit-2.0-BAK/src/lj_asm.c deleted file mode 100644 index 9db950a2bd1..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm.c +++ /dev/null @@ -1,2278 +0,0 @@ -/* -** IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_asm_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_gc.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_frame.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_mcode.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_snap.h" -#include "lj_asm.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_target.h" - -#ifdef LUA_USE_ASSERT -#include -#endif - -/* -- Assembler state and common macros ----------------------------------- */ - -/* Assembler state. */ -typedef struct ASMState { - RegCost cost[RID_MAX]; /* Reference and blended allocation cost for regs. */ - - MCode *mcp; /* Current MCode pointer (grows down). */ - MCode *mclim; /* Lower limit for MCode memory + red zone. */ -#ifdef LUA_USE_ASSERT - MCode *mcp_prev; /* Red zone overflow check. */ -#endif - - IRIns *ir; /* Copy of pointer to IR instructions/constants. */ - jit_State *J; /* JIT compiler state. */ - -#if LJ_TARGET_X86ORX64 - x86ModRM mrm; /* Fused x86 address operand. */ -#endif - - RegSet freeset; /* Set of free registers. */ - RegSet modset; /* Set of registers modified inside the loop. */ - RegSet weakset; /* Set of weakly referenced registers. */ - RegSet phiset; /* Set of PHI registers. */ - - uint32_t flags; /* Copy of JIT compiler flags. */ - int loopinv; /* Loop branch inversion (0:no, 1:yes, 2:yes+CC_P). */ - - int32_t evenspill; /* Next even spill slot. */ - int32_t oddspill; /* Next odd spill slot (or 0). */ - - IRRef curins; /* Reference of current instruction. */ - IRRef stopins; /* Stop assembly before hitting this instruction. */ - IRRef orignins; /* Original T->nins. */ - - IRRef snapref; /* Current snapshot is active after this reference. */ - IRRef snaprename; /* Rename highwater mark for snapshot check. */ - SnapNo snapno; /* Current snapshot number. */ - SnapNo loopsnapno; /* Loop snapshot number. */ - - IRRef fuseref; /* Fusion limit (loopref, 0 or FUSE_DISABLED). */ - IRRef sectref; /* Section base reference (loopref or 0). */ - IRRef loopref; /* Reference of LOOP instruction (or 0). */ - - BCReg topslot; /* Number of slots for stack check (unless 0). */ - int32_t gcsteps; /* Accumulated number of GC steps (per section). */ - - GCtrace *T; /* Trace to assemble. */ - GCtrace *parent; /* Parent trace (or NULL). */ - - MCode *mcbot; /* Bottom of reserved MCode. */ - MCode *mctop; /* Top of generated MCode. */ - MCode *mcloop; /* Pointer to loop MCode (or NULL). */ - MCode *invmcp; /* Points to invertible loop branch (or NULL). */ - MCode *flagmcp; /* Pending opportunity to merge flag setting ins. */ - MCode *realign; /* Realign loop if not NULL. */ - -#ifdef RID_NUM_KREF - int32_t krefk[RID_NUM_KREF]; -#endif - IRRef1 phireg[RID_MAX]; /* PHI register references. */ - uint16_t parentmap[LJ_MAX_JSLOTS]; /* Parent instruction to RegSP map. */ -} ASMState; - -#define IR(ref) (&as->ir[(ref)]) - -#define ASMREF_TMP1 REF_TRUE /* Temp. register. */ -#define ASMREF_TMP2 REF_FALSE /* Temp. register. */ -#define ASMREF_L REF_NIL /* Stores register for L. */ - -/* Check for variant to invariant references. */ -#define iscrossref(as, ref) ((ref) < as->sectref) - -/* Inhibit memory op fusion from variant to invariant references. */ -#define FUSE_DISABLED (~(IRRef)0) -#define mayfuse(as, ref) ((ref) > as->fuseref) -#define neverfuse(as) (as->fuseref == FUSE_DISABLED) -#define canfuse(as, ir) (!neverfuse(as) && !irt_isphi((ir)->t)) -#define opisfusableload(o) \ - ((o) == IR_ALOAD || (o) == IR_HLOAD || (o) == IR_ULOAD || \ - (o) == IR_FLOAD || (o) == IR_XLOAD || (o) == IR_SLOAD || (o) == IR_VLOAD) - -/* Sparse limit checks using a red zone before the actual limit. */ -#define MCLIM_REDZONE 64 - -static LJ_NORET LJ_NOINLINE void asm_mclimit(ASMState *as) -{ - lj_mcode_limiterr(as->J, (size_t)(as->mctop - as->mcp + 4*MCLIM_REDZONE)); -} - -static LJ_AINLINE void checkmclim(ASMState *as) -{ -#ifdef LUA_USE_ASSERT - if (as->mcp + MCLIM_REDZONE < as->mcp_prev) { - IRIns *ir = IR(as->curins+1); - fprintf(stderr, "RED ZONE OVERFLOW: %p IR %04d %02d %04d %04d\n", as->mcp, - as->curins+1-REF_BIAS, ir->o, ir->op1-REF_BIAS, ir->op2-REF_BIAS); - lua_assert(0); - } -#endif - if (LJ_UNLIKELY(as->mcp < as->mclim)) asm_mclimit(as); -#ifdef LUA_USE_ASSERT - as->mcp_prev = as->mcp; -#endif -} - -#ifdef RID_NUM_KREF -#define ra_iskref(ref) ((ref) < RID_NUM_KREF) -#define ra_krefreg(ref) ((Reg)(RID_MIN_KREF + (Reg)(ref))) -#define ra_krefk(as, ref) (as->krefk[(ref)]) - -static LJ_AINLINE void ra_setkref(ASMState *as, Reg r, int32_t k) -{ - IRRef ref = (IRRef)(r - RID_MIN_KREF); - as->krefk[ref] = k; - as->cost[r] = REGCOST(ref, ref); -} - -#else -#define ra_iskref(ref) 0 -#define ra_krefreg(ref) RID_MIN_GPR -#define ra_krefk(as, ref) 0 -#endif - -/* Arch-specific field offsets. */ -static const uint8_t field_ofs[IRFL__MAX+1] = { -#define FLOFS(name, ofs) (uint8_t)(ofs), -IRFLDEF(FLOFS) -#undef FLOFS - 0 -}; - -/* -- Target-specific instruction emitter --------------------------------- */ - -#if LJ_TARGET_X86ORX64 -#include "lj_emit_x86.h" -#elif LJ_TARGET_ARM -#include "lj_emit_arm.h" -#elif LJ_TARGET_PPC -#include "lj_emit_ppc.h" -#elif LJ_TARGET_MIPS -#include "lj_emit_mips.h" -#else -#error "Missing instruction emitter for target CPU" -#endif - -/* Generic load/store of register from/to stack slot. */ -#define emit_spload(as, ir, r, ofs) \ - emit_loadofs(as, ir, (r), RID_SP, (ofs)) -#define emit_spstore(as, ir, r, ofs) \ - emit_storeofs(as, ir, (r), RID_SP, (ofs)) - -/* -- Register allocator debugging ---------------------------------------- */ - -/* #define LUAJIT_DEBUG_RA */ - -#ifdef LUAJIT_DEBUG_RA - -#include -#include - -#define RIDNAME(name) #name, -static const char *const ra_regname[] = { - GPRDEF(RIDNAME) - FPRDEF(RIDNAME) - VRIDDEF(RIDNAME) - NULL -}; -#undef RIDNAME - -static char ra_dbg_buf[65536]; -static char *ra_dbg_p; -static char *ra_dbg_merge; -static MCode *ra_dbg_mcp; - -static void ra_dstart(void) -{ - ra_dbg_p = ra_dbg_buf; - ra_dbg_merge = NULL; - ra_dbg_mcp = NULL; -} - -static void ra_dflush(void) -{ - fwrite(ra_dbg_buf, 1, (size_t)(ra_dbg_p-ra_dbg_buf), stdout); - ra_dstart(); -} - -static void ra_dprintf(ASMState *as, const char *fmt, ...) -{ - char *p; - va_list argp; - va_start(argp, fmt); - p = ra_dbg_mcp == as->mcp ? ra_dbg_merge : ra_dbg_p; - ra_dbg_mcp = NULL; - p += sprintf(p, "%08x \e[36m%04d ", (uintptr_t)as->mcp, as->curins-REF_BIAS); - for (;;) { - const char *e = strchr(fmt, '$'); - if (e == NULL) break; - memcpy(p, fmt, (size_t)(e-fmt)); - p += e-fmt; - if (e[1] == 'r') { - Reg r = va_arg(argp, Reg) & RID_MASK; - if (r <= RID_MAX) { - const char *q; - for (q = ra_regname[r]; *q; q++) - *p++ = *q >= 'A' && *q <= 'Z' ? *q + 0x20 : *q; - } else { - *p++ = '?'; - lua_assert(0); - } - } else if (e[1] == 'f' || e[1] == 'i') { - IRRef ref; - if (e[1] == 'f') - ref = va_arg(argp, IRRef); - else - ref = va_arg(argp, IRIns *) - as->ir; - if (ref >= REF_BIAS) - p += sprintf(p, "%04d", ref - REF_BIAS); - else - p += sprintf(p, "K%03d", REF_BIAS - ref); - } else if (e[1] == 's') { - uint32_t slot = va_arg(argp, uint32_t); - p += sprintf(p, "[sp+0x%x]", sps_scale(slot)); - } else if (e[1] == 'x') { - p += sprintf(p, "%08x", va_arg(argp, int32_t)); - } else { - lua_assert(0); - } - fmt = e+2; - } - va_end(argp); - while (*fmt) - *p++ = *fmt++; - *p++ = '\e'; *p++ = '['; *p++ = 'm'; *p++ = '\n'; - if (p > ra_dbg_buf+sizeof(ra_dbg_buf)-256) { - fwrite(ra_dbg_buf, 1, (size_t)(p-ra_dbg_buf), stdout); - p = ra_dbg_buf; - } - ra_dbg_p = p; -} - -#define RA_DBG_START() ra_dstart() -#define RA_DBG_FLUSH() ra_dflush() -#define RA_DBG_REF() \ - do { char *_p = ra_dbg_p; ra_dprintf(as, ""); \ - ra_dbg_merge = _p; ra_dbg_mcp = as->mcp; } while (0) -#define RA_DBGX(x) ra_dprintf x - -#else -#define RA_DBG_START() ((void)0) -#define RA_DBG_FLUSH() ((void)0) -#define RA_DBG_REF() ((void)0) -#define RA_DBGX(x) ((void)0) -#endif - -/* -- Register allocator -------------------------------------------------- */ - -#define ra_free(as, r) rset_set(as->freeset, (r)) -#define ra_modified(as, r) rset_set(as->modset, (r)) -#define ra_weak(as, r) rset_set(as->weakset, (r)) -#define ra_noweak(as, r) rset_clear(as->weakset, (r)) - -#define ra_used(ir) (ra_hasreg((ir)->r) || ra_hasspill((ir)->s)) - -/* Setup register allocator. */ -static void ra_setup(ASMState *as) -{ - Reg r; - /* Initially all regs (except the stack pointer) are free for use. */ - as->freeset = RSET_INIT; - as->modset = RSET_EMPTY; - as->weakset = RSET_EMPTY; - as->phiset = RSET_EMPTY; - memset(as->phireg, 0, sizeof(as->phireg)); - for (r = RID_MIN_GPR; r < RID_MAX; r++) - as->cost[r] = REGCOST(~0u, 0u); -} - -/* Rematerialize constants. */ -static Reg ra_rematk(ASMState *as, IRRef ref) -{ - IRIns *ir; - Reg r; - if (ra_iskref(ref)) { - r = ra_krefreg(ref); - lua_assert(!rset_test(as->freeset, r)); - ra_free(as, r); - ra_modified(as, r); - emit_loadi(as, r, ra_krefk(as, ref)); - return r; - } - ir = IR(ref); - r = ir->r; - lua_assert(ra_hasreg(r) && !ra_hasspill(ir->s)); - ra_free(as, r); - ra_modified(as, r); - ir->r = RID_INIT; /* Do not keep any hint. */ - RA_DBGX((as, "remat $i $r", ir, r)); -#if !LJ_SOFTFP - if (ir->o == IR_KNUM) { - emit_loadn(as, r, ir_knum(ir)); - } else -#endif - if (emit_canremat(REF_BASE) && ir->o == IR_BASE) { - ra_sethint(ir->r, RID_BASE); /* Restore BASE register hint. */ - emit_getgl(as, r, jit_base); - } else if (emit_canremat(ASMREF_L) && ir->o == IR_KPRI) { - lua_assert(irt_isnil(ir->t)); /* REF_NIL stores ASMREF_L register. */ - emit_getgl(as, r, cur_L); -#if LJ_64 - } else if (ir->o == IR_KINT64) { - emit_loadu64(as, r, ir_kint64(ir)->u64); -#endif - } else { - lua_assert(ir->o == IR_KINT || ir->o == IR_KGC || - ir->o == IR_KPTR || ir->o == IR_KKPTR || ir->o == IR_KNULL); - emit_loadi(as, r, ir->i); - } - return r; -} - -/* Force a spill. Allocate a new spill slot if needed. */ -static int32_t ra_spill(ASMState *as, IRIns *ir) -{ - int32_t slot = ir->s; - lua_assert(ir >= as->ir + REF_TRUE); - if (!ra_hasspill(slot)) { - if (irt_is64(ir->t)) { - slot = as->evenspill; - as->evenspill += 2; - } else if (as->oddspill) { - slot = as->oddspill; - as->oddspill = 0; - } else { - slot = as->evenspill; - as->oddspill = slot+1; - as->evenspill += 2; - } - if (as->evenspill > 256) - lj_trace_err(as->J, LJ_TRERR_SPILLOV); - ir->s = (uint8_t)slot; - } - return sps_scale(slot); -} - -/* Release the temporarily allocated register in ASMREF_TMP1/ASMREF_TMP2. */ -static Reg ra_releasetmp(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - Reg r = ir->r; - lua_assert(ra_hasreg(r) && !ra_hasspill(ir->s)); - ra_free(as, r); - ra_modified(as, r); - ir->r = RID_INIT; - return r; -} - -/* Restore a register (marked as free). Rematerialize or force a spill. */ -static Reg ra_restore(ASMState *as, IRRef ref) -{ - if (emit_canremat(ref)) { - return ra_rematk(as, ref); - } else { - IRIns *ir = IR(ref); - int32_t ofs = ra_spill(as, ir); /* Force a spill slot. */ - Reg r = ir->r; - lua_assert(ra_hasreg(r)); - ra_sethint(ir->r, r); /* Keep hint. */ - ra_free(as, r); - if (!rset_test(as->weakset, r)) { /* Only restore non-weak references. */ - ra_modified(as, r); - RA_DBGX((as, "restore $i $r", ir, r)); - emit_spload(as, ir, r, ofs); - } - return r; - } -} - -/* Save a register to a spill slot. */ -static void ra_save(ASMState *as, IRIns *ir, Reg r) -{ - RA_DBGX((as, "save $i $r", ir, r)); - emit_spstore(as, ir, r, sps_scale(ir->s)); -} - -#define MINCOST(name) \ - if (rset_test(RSET_ALL, RID_##name) && \ - LJ_LIKELY(allow&RID2RSET(RID_##name)) && as->cost[RID_##name] < cost) \ - cost = as->cost[RID_##name]; - -/* Evict the register with the lowest cost, forcing a restore. */ -static Reg ra_evict(ASMState *as, RegSet allow) -{ - IRRef ref; - RegCost cost = ~(RegCost)0; - lua_assert(allow != RSET_EMPTY); - if (RID_NUM_FPR == 0 || allow < RID2RSET(RID_MAX_GPR)) { - GPRDEF(MINCOST) - } else { - FPRDEF(MINCOST) - } - ref = regcost_ref(cost); - lua_assert(ra_iskref(ref) || (ref >= as->T->nk && ref < as->T->nins)); - /* Preferably pick any weak ref instead of a non-weak, non-const ref. */ - if (!irref_isk(ref) && (as->weakset & allow)) { - IRIns *ir = IR(ref); - if (!rset_test(as->weakset, ir->r)) - ref = regcost_ref(as->cost[rset_pickbot((as->weakset & allow))]); - } - return ra_restore(as, ref); -} - -/* Pick any register (marked as free). Evict on-demand. */ -static Reg ra_pick(ASMState *as, RegSet allow) -{ - RegSet pick = as->freeset & allow; - if (!pick) - return ra_evict(as, allow); - else - return rset_picktop(pick); -} - -/* Get a scratch register (marked as free). */ -static Reg ra_scratch(ASMState *as, RegSet allow) -{ - Reg r = ra_pick(as, allow); - ra_modified(as, r); - RA_DBGX((as, "scratch $r", r)); - return r; -} - -/* Evict all registers from a set (if not free). */ -static void ra_evictset(ASMState *as, RegSet drop) -{ - RegSet work; - as->modset |= drop; -#if !LJ_SOFTFP - work = (drop & ~as->freeset) & RSET_FPR; - while (work) { - Reg r = rset_pickbot(work); - ra_restore(as, regcost_ref(as->cost[r])); - rset_clear(work, r); - checkmclim(as); - } -#endif - work = (drop & ~as->freeset); - while (work) { - Reg r = rset_pickbot(work); - ra_restore(as, regcost_ref(as->cost[r])); - rset_clear(work, r); - checkmclim(as); - } -} - -/* Evict (rematerialize) all registers allocated to constants. */ -static void ra_evictk(ASMState *as) -{ - RegSet work; -#if !LJ_SOFTFP - work = ~as->freeset & RSET_FPR; - while (work) { - Reg r = rset_pickbot(work); - IRRef ref = regcost_ref(as->cost[r]); - if (emit_canremat(ref) && irref_isk(ref)) { - ra_rematk(as, ref); - checkmclim(as); - } - rset_clear(work, r); - } -#endif - work = ~as->freeset & RSET_GPR; - while (work) { - Reg r = rset_pickbot(work); - IRRef ref = regcost_ref(as->cost[r]); - if (emit_canremat(ref) && irref_isk(ref)) { - ra_rematk(as, ref); - checkmclim(as); - } - rset_clear(work, r); - } -} - -#ifdef RID_NUM_KREF -/* Allocate a register for a constant. */ -static Reg ra_allock(ASMState *as, int32_t k, RegSet allow) -{ - /* First try to find a register which already holds the same constant. */ - RegSet pick, work = ~as->freeset & RSET_GPR; - Reg r; - while (work) { - IRRef ref; - r = rset_pickbot(work); - ref = regcost_ref(as->cost[r]); - if (ref < ASMREF_L && - k == (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i)) - return r; - rset_clear(work, r); - } - pick = as->freeset & allow; - if (pick) { - /* Constants should preferably get unmodified registers. */ - if ((pick & ~as->modset)) - pick &= ~as->modset; - r = rset_pickbot(pick); /* Reduce conflicts with inverse allocation. */ - } else { - r = ra_evict(as, allow); - } - RA_DBGX((as, "allock $x $r", k, r)); - ra_setkref(as, r, k); - rset_clear(as->freeset, r); - ra_noweak(as, r); - return r; -} - -/* Allocate a specific register for a constant. */ -static void ra_allockreg(ASMState *as, int32_t k, Reg r) -{ - Reg kr = ra_allock(as, k, RID2RSET(r)); - if (kr != r) { - IRIns irdummy; - irdummy.t.irt = IRT_INT; - ra_scratch(as, RID2RSET(r)); - emit_movrr(as, &irdummy, r, kr); - } -} -#else -#define ra_allockreg(as, k, r) emit_loadi(as, (r), (k)) -#endif - -/* Allocate a register for ref from the allowed set of registers. -** Note: this function assumes the ref does NOT have a register yet! -** Picks an optimal register, sets the cost and marks the register as non-free. -*/ -static Reg ra_allocref(ASMState *as, IRRef ref, RegSet allow) -{ - IRIns *ir = IR(ref); - RegSet pick = as->freeset & allow; - Reg r; - lua_assert(ra_noreg(ir->r)); - if (pick) { - /* First check register hint from propagation or PHI. */ - if (ra_hashint(ir->r)) { - r = ra_gethint(ir->r); - if (rset_test(pick, r)) /* Use hint register if possible. */ - goto found; - /* Rematerialization is cheaper than missing a hint. */ - if (rset_test(allow, r) && emit_canremat(regcost_ref(as->cost[r]))) { - ra_rematk(as, regcost_ref(as->cost[r])); - goto found; - } - RA_DBGX((as, "hintmiss $f $r", ref, r)); - } - /* Invariants should preferably get unmodified registers. */ - if (ref < as->loopref && !irt_isphi(ir->t)) { - if ((pick & ~as->modset)) - pick &= ~as->modset; - r = rset_pickbot(pick); /* Reduce conflicts with inverse allocation. */ - } else { - /* We've got plenty of regs, so get callee-save regs if possible. */ - if (RID_NUM_GPR > 8 && (pick & ~RSET_SCRATCH)) - pick &= ~RSET_SCRATCH; - r = rset_picktop(pick); - } - } else { - r = ra_evict(as, allow); - } -found: - RA_DBGX((as, "alloc $f $r", ref, r)); - ir->r = (uint8_t)r; - rset_clear(as->freeset, r); - ra_noweak(as, r); - as->cost[r] = REGCOST_REF_T(ref, irt_t(ir->t)); - return r; -} - -/* Allocate a register on-demand. */ -static Reg ra_alloc1(ASMState *as, IRRef ref, RegSet allow) -{ - Reg r = IR(ref)->r; - /* Note: allow is ignored if the register is already allocated. */ - if (ra_noreg(r)) r = ra_allocref(as, ref, allow); - ra_noweak(as, r); - return r; -} - -/* Rename register allocation and emit move. */ -static void ra_rename(ASMState *as, Reg down, Reg up) -{ - IRRef ren, ref = regcost_ref(as->cost[up] = as->cost[down]); - IRIns *ir = IR(ref); - ir->r = (uint8_t)up; - as->cost[down] = 0; - lua_assert((down < RID_MAX_GPR) == (up < RID_MAX_GPR)); - lua_assert(!rset_test(as->freeset, down) && rset_test(as->freeset, up)); - ra_free(as, down); /* 'down' is free ... */ - ra_modified(as, down); - rset_clear(as->freeset, up); /* ... and 'up' is now allocated. */ - ra_noweak(as, up); - RA_DBGX((as, "rename $f $r $r", regcost_ref(as->cost[up]), down, up)); - emit_movrr(as, ir, down, up); /* Backwards codegen needs inverse move. */ - if (!ra_hasspill(IR(ref)->s)) { /* Add the rename to the IR. */ - lj_ir_set(as->J, IRT(IR_RENAME, IRT_NIL), ref, as->snapno); - ren = tref_ref(lj_ir_emit(as->J)); - as->ir = as->T->ir; /* The IR may have been reallocated. */ - IR(ren)->r = (uint8_t)down; - IR(ren)->s = SPS_NONE; - } -} - -/* Pick a destination register (marked as free). -** Caveat: allow is ignored if there's already a destination register. -** Use ra_destreg() to get a specific register. -*/ -static Reg ra_dest(ASMState *as, IRIns *ir, RegSet allow) -{ - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - } else { - if (ra_hashint(dest) && rset_test((as->freeset&allow), ra_gethint(dest))) { - dest = ra_gethint(dest); - ra_modified(as, dest); - RA_DBGX((as, "dest $r", dest)); - } else { - dest = ra_scratch(as, allow); - } - ir->r = dest; - } - if (LJ_UNLIKELY(ra_hasspill(ir->s))) ra_save(as, ir, dest); - return dest; -} - -/* Force a specific destination register (marked as free). */ -static void ra_destreg(ASMState *as, IRIns *ir, Reg r) -{ - Reg dest = ra_dest(as, ir, RID2RSET(r)); - if (dest != r) { - lua_assert(rset_test(as->freeset, r)); - ra_modified(as, r); - emit_movrr(as, ir, dest, r); - } -} - -#if LJ_TARGET_X86ORX64 -/* Propagate dest register to left reference. Emit moves as needed. -** This is a required fixup step for all 2-operand machine instructions. -*/ -static void ra_left(ASMState *as, Reg dest, IRRef lref) -{ - IRIns *ir = IR(lref); - Reg left = ir->r; - if (ra_noreg(left)) { - if (irref_isk(lref)) { - if (ir->o == IR_KNUM) { - cTValue *tv = ir_knum(ir); - /* FP remat needs a load except for +0. Still better than eviction. */ - if (tvispzero(tv) || !(as->freeset & RSET_FPR)) { - emit_loadn(as, dest, tv); - return; - } -#if LJ_64 - } else if (ir->o == IR_KINT64) { - emit_loadu64(as, dest, ir_kint64(ir)->u64); - return; -#endif - } else if (ir->o != IR_KPRI) { - lua_assert(ir->o == IR_KINT || ir->o == IR_KGC || - ir->o == IR_KPTR || ir->o == IR_KKPTR || ir->o == IR_KNULL); - emit_loadi(as, dest, ir->i); - return; - } - } - if (!ra_hashint(left) && !iscrossref(as, lref)) - ra_sethint(ir->r, dest); /* Propagate register hint. */ - left = ra_allocref(as, lref, dest < RID_MAX_GPR ? RSET_GPR : RSET_FPR); - } - ra_noweak(as, left); - /* Move needed for true 3-operand instruction: y=a+b ==> y=a; y+=b. */ - if (dest != left) { - /* Use register renaming if dest is the PHI reg. */ - if (irt_isphi(ir->t) && as->phireg[dest] == lref) { - ra_modified(as, left); - ra_rename(as, left, dest); - } else { - emit_movrr(as, ir, dest, left); - } - } -} -#else -/* Similar to ra_left, except we override any hints. */ -static void ra_leftov(ASMState *as, Reg dest, IRRef lref) -{ - IRIns *ir = IR(lref); - Reg left = ir->r; - if (ra_noreg(left)) { - ra_sethint(ir->r, dest); /* Propagate register hint. */ - left = ra_allocref(as, lref, - (LJ_SOFTFP || dest < RID_MAX_GPR) ? RSET_GPR : RSET_FPR); - } - ra_noweak(as, left); - if (dest != left) { - /* Use register renaming if dest is the PHI reg. */ - if (irt_isphi(ir->t) && as->phireg[dest] == lref) { - ra_modified(as, left); - ra_rename(as, left, dest); - } else { - emit_movrr(as, ir, dest, left); - } - } -} -#endif - -#if !LJ_64 -/* Force a RID_RETLO/RID_RETHI destination register pair (marked as free). */ -static void ra_destpair(ASMState *as, IRIns *ir) -{ - Reg destlo = ir->r, desthi = (ir+1)->r; - /* First spill unrelated refs blocking the destination registers. */ - if (!rset_test(as->freeset, RID_RETLO) && - destlo != RID_RETLO && desthi != RID_RETLO) - ra_restore(as, regcost_ref(as->cost[RID_RETLO])); - if (!rset_test(as->freeset, RID_RETHI) && - destlo != RID_RETHI && desthi != RID_RETHI) - ra_restore(as, regcost_ref(as->cost[RID_RETHI])); - /* Next free the destination registers (if any). */ - if (ra_hasreg(destlo)) { - ra_free(as, destlo); - ra_modified(as, destlo); - } else { - destlo = RID_RETLO; - } - if (ra_hasreg(desthi)) { - ra_free(as, desthi); - ra_modified(as, desthi); - } else { - desthi = RID_RETHI; - } - /* Check for conflicts and shuffle the registers as needed. */ - if (destlo == RID_RETHI) { - if (desthi == RID_RETLO) { -#if LJ_TARGET_X86 - *--as->mcp = XI_XCHGa + RID_RETHI; -#else - emit_movrr(as, ir, RID_RETHI, RID_TMP); - emit_movrr(as, ir, RID_RETLO, RID_RETHI); - emit_movrr(as, ir, RID_TMP, RID_RETLO); -#endif - } else { - emit_movrr(as, ir, RID_RETHI, RID_RETLO); - if (desthi != RID_RETHI) emit_movrr(as, ir, desthi, RID_RETHI); - } - } else if (desthi == RID_RETLO) { - emit_movrr(as, ir, RID_RETLO, RID_RETHI); - if (destlo != RID_RETLO) emit_movrr(as, ir, destlo, RID_RETLO); - } else { - if (desthi != RID_RETHI) emit_movrr(as, ir, desthi, RID_RETHI); - if (destlo != RID_RETLO) emit_movrr(as, ir, destlo, RID_RETLO); - } - /* Restore spill slots (if any). */ - if (ra_hasspill((ir+1)->s)) ra_save(as, ir+1, RID_RETHI); - if (ra_hasspill(ir->s)) ra_save(as, ir, RID_RETLO); -} -#endif - -/* -- Snapshot handling --------- ----------------------------------------- */ - -/* Can we rematerialize a KNUM instead of forcing a spill? */ -static int asm_snap_canremat(ASMState *as) -{ - Reg r; - for (r = RID_MIN_FPR; r < RID_MAX_FPR; r++) - if (irref_isk(regcost_ref(as->cost[r]))) - return 1; - return 0; -} - -/* Check whether a sunk store corresponds to an allocation. */ -static int asm_sunk_store(ASMState *as, IRIns *ira, IRIns *irs) -{ - if (irs->s == 255) { - if (irs->o == IR_ASTORE || irs->o == IR_HSTORE || - irs->o == IR_FSTORE || irs->o == IR_XSTORE) { - IRIns *irk = IR(irs->op1); - if (irk->o == IR_AREF || irk->o == IR_HREFK) - irk = IR(irk->op1); - return (IR(irk->op1) == ira); - } - return 0; - } else { - return (ira + irs->s == irs); /* Quick check. */ - } -} - -/* Allocate register or spill slot for a ref that escapes to a snapshot. */ -static void asm_snap_alloc1(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (!irref_isk(ref) && (!(ra_used(ir) || ir->r == RID_SUNK))) { - if (ir->r == RID_SINK) { - ir->r = RID_SUNK; -#if LJ_HASFFI - if (ir->o == IR_CNEWI) { /* Allocate CNEWI value. */ - asm_snap_alloc1(as, ir->op2); - if (LJ_32 && (ir+1)->o == IR_HIOP) - asm_snap_alloc1(as, (ir+1)->op2); - } else -#endif - { /* Allocate stored values for TNEW, TDUP and CNEW. */ - IRIns *irs; - lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || ir->o == IR_CNEW); - for (irs = IR(as->snapref-1); irs > ir; irs--) - if (irs->r == RID_SINK && asm_sunk_store(as, ir, irs)) { - lua_assert(irs->o == IR_ASTORE || irs->o == IR_HSTORE || - irs->o == IR_FSTORE || irs->o == IR_XSTORE); - asm_snap_alloc1(as, irs->op2); - if (LJ_32 && (irs+1)->o == IR_HIOP) - asm_snap_alloc1(as, (irs+1)->op2); - } - } - } else { - RegSet allow; - if (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT) { - IRIns *irc; - for (irc = IR(as->curins); irc > ir; irc--) - if ((irc->op1 == ref || irc->op2 == ref) && - !(irc->r == RID_SINK || irc->r == RID_SUNK)) - goto nosink; /* Don't sink conversion if result is used. */ - asm_snap_alloc1(as, ir->op1); - return; - } - nosink: - allow = (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR; - if ((as->freeset & allow) || - (allow == RSET_FPR && asm_snap_canremat(as))) { - /* Get a weak register if we have a free one or can rematerialize. */ - Reg r = ra_allocref(as, ref, allow); /* Allocate a register. */ - if (!irt_isphi(ir->t)) - ra_weak(as, r); /* But mark it as weakly referenced. */ - checkmclim(as); - RA_DBGX((as, "snapreg $f $r", ref, ir->r)); - } else { - ra_spill(as, ir); /* Otherwise force a spill slot. */ - RA_DBGX((as, "snapspill $f $s", ref, ir->s)); - } - } - } -} - -/* Allocate refs escaping to a snapshot. */ -static void asm_snap_alloc(ASMState *as) -{ - SnapShot *snap = &as->T->snap[as->snapno]; - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - IRRef ref = snap_ref(sn); - if (!irref_isk(ref)) { - asm_snap_alloc1(as, ref); - if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM)) { - lua_assert(irt_type(IR(ref+1)->t) == IRT_SOFTFP); - asm_snap_alloc1(as, ref+1); - } - } - } -} - -/* All guards for a snapshot use the same exitno. This is currently the -** same as the snapshot number. Since the exact origin of the exit cannot -** be determined, all guards for the same snapshot must exit with the same -** RegSP mapping. -** A renamed ref which has been used in a prior guard for the same snapshot -** would cause an inconsistency. The easy way out is to force a spill slot. -*/ -static int asm_snap_checkrename(ASMState *as, IRRef ren) -{ - SnapShot *snap = &as->T->snap[as->snapno]; - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - IRRef ref = snap_ref(sn); - if (ref == ren || (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && ++ref == ren)) { - IRIns *ir = IR(ref); - ra_spill(as, ir); /* Register renamed, so force a spill slot. */ - RA_DBGX((as, "snaprensp $f $s", ref, ir->s)); - return 1; /* Found. */ - } - } - return 0; /* Not found. */ -} - -/* Prepare snapshot for next guard instruction. */ -static void asm_snap_prep(ASMState *as) -{ - if (as->curins < as->snapref) { - do { - if (as->snapno == 0) return; /* Called by sunk stores before snap #0. */ - as->snapno--; - as->snapref = as->T->snap[as->snapno].ref; - } while (as->curins < as->snapref); - asm_snap_alloc(as); - as->snaprename = as->T->nins; - } else { - /* Process any renames above the highwater mark. */ - for (; as->snaprename < as->T->nins; as->snaprename++) { - IRIns *ir = IR(as->snaprename); - if (asm_snap_checkrename(as, ir->op1)) - ir->op2 = REF_BIAS-1; /* Kill rename. */ - } - } -} - -/* -- Miscellaneous helpers ----------------------------------------------- */ - -/* Calculate stack adjustment. */ -static int32_t asm_stack_adjust(ASMState *as) -{ - if (as->evenspill <= SPS_FIXED) - return 0; - return sps_scale(sps_align(as->evenspill)); -} - -/* Must match with hash*() in lj_tab.c. */ -static uint32_t ir_khash(IRIns *ir) -{ - uint32_t lo, hi; - if (irt_isstr(ir->t)) { - return ir_kstr(ir)->hash; - } else if (irt_isnum(ir->t)) { - lo = ir_knum(ir)->u32.lo; - hi = ir_knum(ir)->u32.hi << 1; - } else if (irt_ispri(ir->t)) { - lua_assert(!irt_isnil(ir->t)); - return irt_type(ir->t)-IRT_FALSE; - } else { - lua_assert(irt_isgcv(ir->t)); - lo = u32ptr(ir_kgc(ir)); - hi = lo + HASH_BIAS; - } - return hashrot(lo, hi); -} - -/* -- Allocations --------------------------------------------------------- */ - -static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args); -static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci); - -static void asm_snew(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_str_new]; - IRRef args[3]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* const char *str */ - args[2] = ir->op2; /* size_t len */ - as->gcsteps++; - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); -} - -static void asm_tnew(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_new1]; - IRRef args[2]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* uint32_t ahsize */ - as->gcsteps++; - asm_setupresult(as, ir, ci); /* GCtab * */ - asm_gencall(as, ci, args); - ra_allockreg(as, ir->op1 | (ir->op2 << 24), ra_releasetmp(as, ASMREF_TMP1)); -} - -static void asm_tdup(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_dup]; - IRRef args[2]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* const GCtab *kt */ - as->gcsteps++; - asm_setupresult(as, ir, ci); /* GCtab * */ - asm_gencall(as, ci, args); -} - -static void asm_gc_check(ASMState *as); - -/* Explicit GC step. */ -static void asm_gcstep(ASMState *as, IRIns *ir) -{ - IRIns *ira; - for (ira = IR(as->stopins+1); ira < ir; ira++) - if ((ira->o == IR_TNEW || ira->o == IR_TDUP || - (LJ_HASFFI && (ira->o == IR_CNEW || ira->o == IR_CNEWI))) && - ra_used(ira)) - as->gcsteps++; - if (as->gcsteps) - asm_gc_check(as); - as->gcsteps = 0x80000000; /* Prevent implicit GC check further up. */ -} - -/* -- Buffer operations --------------------------------------------------- */ - -static void asm_tvptr(ASMState *as, Reg dest, IRRef ref); - -static void asm_bufhdr(ASMState *as, IRIns *ir) -{ - Reg sb = ra_dest(as, ir, RSET_GPR); - if ((ir->op2 & IRBUFHDR_APPEND)) { - /* Rematerialize const buffer pointer instead of likely spill. */ - IRIns *irp = IR(ir->op1); - if (!(ra_hasreg(irp->r) || irp == ir-1 || - (irp == ir-2 && !ra_used(ir-1)))) { - while (!(irp->o == IR_BUFHDR && !(irp->op2 & IRBUFHDR_APPEND))) - irp = IR(irp->op1); - if (irref_isk(irp->op1)) { - ra_weak(as, ra_allocref(as, ir->op1, RSET_GPR)); - ir = irp; - } - } - } else { - Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, sb)); - /* Passing ir isn't strictly correct, but it's an IRT_P32, too. */ - emit_storeofs(as, ir, tmp, sb, offsetof(SBuf, p)); - emit_loadofs(as, ir, tmp, sb, offsetof(SBuf, b)); - } -#if LJ_TARGET_X86ORX64 - ra_left(as, sb, ir->op1); -#else - ra_leftov(as, sb, ir->op1); -#endif -} - -static void asm_bufput(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_buf_putstr]; - IRRef args[3]; - IRIns *irs; - int kchar = -1; - args[0] = ir->op1; /* SBuf * */ - args[1] = ir->op2; /* GCstr * */ - irs = IR(ir->op2); - lua_assert(irt_isstr(irs->t)); - if (irs->o == IR_KGC) { - GCstr *s = ir_kstr(irs); - if (s->len == 1) { /* Optimize put of single-char string constant. */ - kchar = strdata(s)[0]; - args[1] = ASMREF_TMP1; /* int, truncated to char */ - ci = &lj_ir_callinfo[IRCALL_lj_buf_putchar]; - } - } else if (mayfuse(as, ir->op2) && ra_noreg(irs->r)) { - if (irs->o == IR_TOSTR) { /* Fuse number to string conversions. */ - if (irs->op2 == IRTOSTR_NUM) { - args[1] = ASMREF_TMP1; /* TValue * */ - ci = &lj_ir_callinfo[IRCALL_lj_strfmt_putnum]; - } else { - lua_assert(irt_isinteger(IR(irs->op1)->t)); - args[1] = irs->op1; /* int */ - if (irs->op2 == IRTOSTR_INT) - ci = &lj_ir_callinfo[IRCALL_lj_strfmt_putint]; - else - ci = &lj_ir_callinfo[IRCALL_lj_buf_putchar]; - } - } else if (irs->o == IR_SNEW) { /* Fuse string allocation. */ - args[1] = irs->op1; /* const void * */ - args[2] = irs->op2; /* MSize */ - ci = &lj_ir_callinfo[IRCALL_lj_buf_putmem]; - } - } - asm_setupresult(as, ir, ci); /* SBuf * */ - asm_gencall(as, ci, args); - if (args[1] == ASMREF_TMP1) { - Reg tmp = ra_releasetmp(as, ASMREF_TMP1); - if (kchar == -1) - asm_tvptr(as, tmp, irs->op1); - else - ra_allockreg(as, kchar, tmp); - } -} - -static void asm_bufstr(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_buf_tostr]; - IRRef args[1]; - args[0] = ir->op1; /* SBuf *sb */ - as->gcsteps++; - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); -} - -/* -- Type conversions ---------------------------------------------------- */ - -static void asm_tostr(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci; - IRRef args[2]; - args[0] = ASMREF_L; - as->gcsteps++; - if (ir->op2 == IRTOSTR_NUM) { - args[1] = ASMREF_TMP1; /* cTValue * */ - ci = &lj_ir_callinfo[IRCALL_lj_strfmt_num]; - } else { - args[1] = ir->op1; /* int32_t k */ - if (ir->op2 == IRTOSTR_INT) - ci = &lj_ir_callinfo[IRCALL_lj_strfmt_int]; - else - ci = &lj_ir_callinfo[IRCALL_lj_strfmt_char]; - } - asm_setupresult(as, ir, ci); /* GCstr * */ - asm_gencall(as, ci, args); - if (ir->op2 == IRTOSTR_NUM) - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op1); -} - -#if LJ_32 && LJ_HASFFI && !LJ_SOFTFP && !LJ_TARGET_X86 -static void asm_conv64(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); - IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); - IRCallID id; - IRRef args[2]; - lua_assert((ir-1)->o == IR_CONV && ir->o == IR_HIOP); - args[LJ_BE] = (ir-1)->op1; - args[LJ_LE] = ir->op1; - if (st == IRT_NUM || st == IRT_FLOAT) { - id = IRCALL_fp64_d2l + ((st == IRT_FLOAT) ? 2 : 0) + (dt - IRT_I64); - ir--; - } else { - id = IRCALL_fp64_l2d + ((dt == IRT_FLOAT) ? 2 : 0) + (st - IRT_I64); - } - { -#if LJ_TARGET_ARM && !LJ_ABI_SOFTFP - CCallInfo cim = lj_ir_callinfo[id], *ci = &cim; - cim.flags |= CCI_VARARG; /* These calls don't use the hard-float ABI! */ -#else - const CCallInfo *ci = &lj_ir_callinfo[id]; -#endif - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); - } -} -#endif - -/* -- Memory references --------------------------------------------------- */ - -static void asm_newref(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_tab_newkey]; - IRRef args[3]; - if (ir->r == RID_SINK) - return; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* GCtab *t */ - args[2] = ASMREF_TMP1; /* cTValue *key */ - asm_setupresult(as, ir, ci); /* TValue * */ - asm_gencall(as, ci, args); - asm_tvptr(as, ra_releasetmp(as, ASMREF_TMP1), ir->op2); -} - -static void asm_lref(ASMState *as, IRIns *ir) -{ - Reg r = ra_dest(as, ir, RSET_GPR); -#if LJ_TARGET_X86ORX64 - ra_left(as, r, ASMREF_L); -#else - ra_leftov(as, r, ASMREF_L); -#endif -} - -/* -- Calls --------------------------------------------------------------- */ - -/* Collect arguments from CALL* and CARG instructions. */ -static void asm_collectargs(ASMState *as, IRIns *ir, - const CCallInfo *ci, IRRef *args) -{ - uint32_t n = CCI_XNARGS(ci); - lua_assert(n <= CCI_NARGS_MAX*2); /* Account for split args. */ - if ((ci->flags & CCI_L)) { *args++ = ASMREF_L; n--; } - while (n-- > 1) { - ir = IR(ir->op1); - lua_assert(ir->o == IR_CARG); - args[n] = ir->op2 == REF_NIL ? 0 : ir->op2; - } - args[0] = ir->op1 == REF_NIL ? 0 : ir->op1; - lua_assert(IR(ir->op1)->o != IR_CARG); -} - -/* Reconstruct CCallInfo flags for CALLX*. */ -static uint32_t asm_callx_flags(ASMState *as, IRIns *ir) -{ - uint32_t nargs = 0; - if (ir->op1 != REF_NIL) { /* Count number of arguments first. */ - IRIns *ira = IR(ir->op1); - nargs++; - while (ira->o == IR_CARG) { nargs++; ira = IR(ira->op1); } - } -#if LJ_HASFFI - if (IR(ir->op2)->o == IR_CARG) { /* Copy calling convention info. */ - CTypeID id = (CTypeID)IR(IR(ir->op2)->op2)->i; - CType *ct = ctype_get(ctype_ctsG(J2G(as->J)), id); - nargs |= ((ct->info & CTF_VARARG) ? CCI_VARARG : 0); -#if LJ_TARGET_X86 - nargs |= (ctype_cconv(ct->info) << CCI_CC_SHIFT); -#endif - } -#endif - return (nargs | (ir->t.irt << CCI_OTSHIFT)); -} - -static void asm_callid(ASMState *as, IRIns *ir, IRCallID id) -{ - const CCallInfo *ci = &lj_ir_callinfo[id]; - IRRef args[2]; - args[0] = ir->op1; - args[1] = ir->op2; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - -static void asm_call(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX]; - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - asm_collectargs(as, ir, ci, args); - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - -#if !LJ_SOFTFP -static void asm_fppow(ASMState *as, IRIns *ir, IRRef lref, IRRef rref) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_pow]; - IRRef args[2]; - args[0] = lref; - args[1] = rref; - asm_setupresult(as, ir, ci); - asm_gencall(as, ci, args); -} - -static int asm_fpjoin_pow(ASMState *as, IRIns *ir) -{ - IRIns *irp = IR(ir->op1); - if (irp == ir-1 && irp->o == IR_MUL && !ra_used(irp)) { - IRIns *irpp = IR(irp->op1); - if (irpp == ir-2 && irpp->o == IR_FPMATH && - irpp->op2 == IRFPM_LOG2 && !ra_used(irpp)) { - asm_fppow(as, ir, irpp->op1, irp->op2); - return 1; - } - } - return 0; -} -#endif - -/* -- PHI and loop handling ----------------------------------------------- */ - -/* Break a PHI cycle by renaming to a free register (evict if needed). */ -static void asm_phi_break(ASMState *as, RegSet blocked, RegSet blockedby, - RegSet allow) -{ - RegSet candidates = blocked & allow; - if (candidates) { /* If this register file has candidates. */ - /* Note: the set for ra_pick cannot be empty, since each register file - ** has some registers never allocated to PHIs. - */ - Reg down, up = ra_pick(as, ~blocked & allow); /* Get a free register. */ - if (candidates & ~blockedby) /* Optimize shifts, else it's a cycle. */ - candidates = candidates & ~blockedby; - down = rset_picktop(candidates); /* Pick candidate PHI register. */ - ra_rename(as, down, up); /* And rename it to the free register. */ - } -} - -/* PHI register shuffling. -** -** The allocator tries hard to preserve PHI register assignments across -** the loop body. Most of the time this loop does nothing, since there -** are no register mismatches. -** -** If a register mismatch is detected and ... -** - the register is currently free: rename it. -** - the register is blocked by an invariant: restore/remat and rename it. -** - Otherwise the register is used by another PHI, so mark it as blocked. -** -** The renames are order-sensitive, so just retry the loop if a register -** is marked as blocked, but has been freed in the meantime. A cycle is -** detected if all of the blocked registers are allocated. To break the -** cycle rename one of them to a free register and retry. -** -** Note that PHI spill slots are kept in sync and don't need to be shuffled. -*/ -static void asm_phi_shuffle(ASMState *as) -{ - RegSet work; - - /* Find and resolve PHI register mismatches. */ - for (;;) { - RegSet blocked = RSET_EMPTY; - RegSet blockedby = RSET_EMPTY; - RegSet phiset = as->phiset; - while (phiset) { /* Check all left PHI operand registers. */ - Reg r = rset_pickbot(phiset); - IRIns *irl = IR(as->phireg[r]); - Reg left = irl->r; - if (r != left) { /* Mismatch? */ - if (!rset_test(as->freeset, r)) { /* PHI register blocked? */ - IRRef ref = regcost_ref(as->cost[r]); - /* Blocked by other PHI (w/reg)? */ - if (!ra_iskref(ref) && irt_ismarked(IR(ref)->t)) { - rset_set(blocked, r); - if (ra_hasreg(left)) - rset_set(blockedby, left); - left = RID_NONE; - } else { /* Otherwise grab register from invariant. */ - ra_restore(as, ref); - checkmclim(as); - } - } - if (ra_hasreg(left)) { - ra_rename(as, left, r); - checkmclim(as); - } - } - rset_clear(phiset, r); - } - if (!blocked) break; /* Finished. */ - if (!(as->freeset & blocked)) { /* Break cycles if none are free. */ - asm_phi_break(as, blocked, blockedby, RSET_GPR); - if (!LJ_SOFTFP) asm_phi_break(as, blocked, blockedby, RSET_FPR); - checkmclim(as); - } /* Else retry some more renames. */ - } - - /* Restore/remat invariants whose registers are modified inside the loop. */ -#if !LJ_SOFTFP - work = as->modset & ~(as->freeset | as->phiset) & RSET_FPR; - while (work) { - Reg r = rset_pickbot(work); - ra_restore(as, regcost_ref(as->cost[r])); - rset_clear(work, r); - checkmclim(as); - } -#endif - work = as->modset & ~(as->freeset | as->phiset); - while (work) { - Reg r = rset_pickbot(work); - ra_restore(as, regcost_ref(as->cost[r])); - rset_clear(work, r); - checkmclim(as); - } - - /* Allocate and save all unsaved PHI regs and clear marks. */ - work = as->phiset; - while (work) { - Reg r = rset_picktop(work); - IRRef lref = as->phireg[r]; - IRIns *ir = IR(lref); - if (ra_hasspill(ir->s)) { /* Left PHI gained a spill slot? */ - irt_clearmark(ir->t); /* Handled here, so clear marker now. */ - ra_alloc1(as, lref, RID2RSET(r)); - ra_save(as, ir, r); /* Save to spill slot inside the loop. */ - checkmclim(as); - } - rset_clear(work, r); - } -} - -/* Copy unsynced left/right PHI spill slots. Rarely needed. */ -static void asm_phi_copyspill(ASMState *as) -{ - int need = 0; - IRIns *ir; - for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) - if (ra_hasspill(ir->s) && ra_hasspill(IR(ir->op1)->s)) - need |= irt_isfp(ir->t) ? 2 : 1; /* Unsynced spill slot? */ - if ((need & 1)) { /* Copy integer spill slots. */ -#if !LJ_TARGET_X86ORX64 - Reg r = RID_TMP; -#else - Reg r = RID_RET; - if ((as->freeset & RSET_GPR)) - r = rset_pickbot((as->freeset & RSET_GPR)); - else - emit_spload(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); -#endif - for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) { - if (ra_hasspill(ir->s)) { - IRIns *irl = IR(ir->op1); - if (ra_hasspill(irl->s) && !irt_isfp(ir->t)) { - emit_spstore(as, irl, r, sps_scale(irl->s)); - emit_spload(as, ir, r, sps_scale(ir->s)); - checkmclim(as); - } - } - } -#if LJ_TARGET_X86ORX64 - if (!rset_test(as->freeset, r)) - emit_spstore(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); -#endif - } -#if !LJ_SOFTFP - if ((need & 2)) { /* Copy FP spill slots. */ -#if LJ_TARGET_X86 - Reg r = RID_XMM0; -#else - Reg r = RID_FPRET; -#endif - if ((as->freeset & RSET_FPR)) - r = rset_pickbot((as->freeset & RSET_FPR)); - if (!rset_test(as->freeset, r)) - emit_spload(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); - for (ir = IR(as->orignins-1); ir->o == IR_PHI; ir--) { - if (ra_hasspill(ir->s)) { - IRIns *irl = IR(ir->op1); - if (ra_hasspill(irl->s) && irt_isfp(ir->t)) { - emit_spstore(as, irl, r, sps_scale(irl->s)); - emit_spload(as, ir, r, sps_scale(ir->s)); - checkmclim(as); - } - } - } - if (!rset_test(as->freeset, r)) - emit_spstore(as, IR(regcost_ref(as->cost[r])), r, SPOFS_TMP); - } -#endif -} - -/* Emit renames for left PHIs which are only spilled outside the loop. */ -static void asm_phi_fixup(ASMState *as) -{ - RegSet work = as->phiset; - while (work) { - Reg r = rset_picktop(work); - IRRef lref = as->phireg[r]; - IRIns *ir = IR(lref); - if (irt_ismarked(ir->t)) { - irt_clearmark(ir->t); - /* Left PHI gained a spill slot before the loop? */ - if (ra_hasspill(ir->s)) { - IRRef ren; - lj_ir_set(as->J, IRT(IR_RENAME, IRT_NIL), lref, as->loopsnapno); - ren = tref_ref(lj_ir_emit(as->J)); - as->ir = as->T->ir; /* The IR may have been reallocated. */ - IR(ren)->r = (uint8_t)r; - IR(ren)->s = SPS_NONE; - } - } - rset_clear(work, r); - } -} - -/* Setup right PHI reference. */ -static void asm_phi(ASMState *as, IRIns *ir) -{ - RegSet allow = ((!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR) & - ~as->phiset; - RegSet afree = (as->freeset & allow); - IRIns *irl = IR(ir->op1); - IRIns *irr = IR(ir->op2); - if (ir->r == RID_SINK) /* Sink PHI. */ - return; - /* Spill slot shuffling is not implemented yet (but rarely needed). */ - if (ra_hasspill(irl->s) || ra_hasspill(irr->s)) - lj_trace_err(as->J, LJ_TRERR_NYIPHI); - /* Leave at least one register free for non-PHIs (and PHI cycle breaking). */ - if ((afree & (afree-1))) { /* Two or more free registers? */ - Reg r; - if (ra_noreg(irr->r)) { /* Get a register for the right PHI. */ - r = ra_allocref(as, ir->op2, allow); - } else { /* Duplicate right PHI, need a copy (rare). */ - r = ra_scratch(as, allow); - emit_movrr(as, irr, r, irr->r); - } - ir->r = (uint8_t)r; - rset_set(as->phiset, r); - as->phireg[r] = (IRRef1)ir->op1; - irt_setmark(irl->t); /* Marks left PHIs _with_ register. */ - if (ra_noreg(irl->r)) - ra_sethint(irl->r, r); /* Set register hint for left PHI. */ - } else { /* Otherwise allocate a spill slot. */ - /* This is overly restrictive, but it triggers only on synthetic code. */ - if (ra_hasreg(irl->r) || ra_hasreg(irr->r)) - lj_trace_err(as->J, LJ_TRERR_NYIPHI); - ra_spill(as, ir); - irr->s = ir->s; /* Set right PHI spill slot. Sync left slot later. */ - } -} - -static void asm_loop_fixup(ASMState *as); - -/* Middle part of a loop. */ -static void asm_loop(ASMState *as) -{ - MCode *mcspill; - /* LOOP is a guard, so the snapno is up to date. */ - as->loopsnapno = as->snapno; - if (as->gcsteps) - asm_gc_check(as); - /* LOOP marks the transition from the variant to the invariant part. */ - as->flagmcp = as->invmcp = NULL; - as->sectref = 0; - if (!neverfuse(as)) as->fuseref = 0; - asm_phi_shuffle(as); - mcspill = as->mcp; - asm_phi_copyspill(as); - asm_loop_fixup(as); - as->mcloop = as->mcp; - RA_DBGX((as, "===== LOOP =====")); - if (!as->realign) RA_DBG_FLUSH(); - if (as->mcp != mcspill) - emit_jmp(as, mcspill); -} - -/* -- Target-specific assembler ------------------------------------------- */ - -#if LJ_TARGET_X86ORX64 -#include "lj_asm_x86.h" -#elif LJ_TARGET_ARM -#include "lj_asm_arm.h" -#elif LJ_TARGET_PPC -#include "lj_asm_ppc.h" -#elif LJ_TARGET_MIPS -#include "lj_asm_mips.h" -#else -#error "Missing assembler for target CPU" -#endif - -/* -- Instruction dispatch ------------------------------------------------ */ - -/* Assemble a single instruction. */ -static void asm_ir(ASMState *as, IRIns *ir) -{ - switch ((IROp)ir->o) { - /* Miscellaneous ops. */ - case IR_LOOP: asm_loop(as); break; - case IR_NOP: case IR_XBAR: lua_assert(!ra_used(ir)); break; - case IR_USE: - ra_alloc1(as, ir->op1, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); break; - case IR_PHI: asm_phi(as, ir); break; - case IR_HIOP: asm_hiop(as, ir); break; - case IR_GCSTEP: asm_gcstep(as, ir); break; - case IR_PROF: asm_prof(as, ir); break; - - /* Guarded assertions. */ - case IR_LT: case IR_GE: case IR_LE: case IR_GT: - case IR_ULT: case IR_UGE: case IR_ULE: case IR_UGT: - case IR_ABC: - asm_comp(as, ir); - break; - case IR_EQ: case IR_NE: - if ((ir-1)->o == IR_HREF && ir->op1 == as->curins-1) { - as->curins--; - asm_href(as, ir-1, (IROp)ir->o); - } else { - asm_equal(as, ir); - } - break; - - case IR_RETF: asm_retf(as, ir); break; - - /* Bit ops. */ - case IR_BNOT: asm_bnot(as, ir); break; - case IR_BSWAP: asm_bswap(as, ir); break; - case IR_BAND: asm_band(as, ir); break; - case IR_BOR: asm_bor(as, ir); break; - case IR_BXOR: asm_bxor(as, ir); break; - case IR_BSHL: asm_bshl(as, ir); break; - case IR_BSHR: asm_bshr(as, ir); break; - case IR_BSAR: asm_bsar(as, ir); break; - case IR_BROL: asm_brol(as, ir); break; - case IR_BROR: asm_bror(as, ir); break; - - /* Arithmetic ops. */ - case IR_ADD: asm_add(as, ir); break; - case IR_SUB: asm_sub(as, ir); break; - case IR_MUL: asm_mul(as, ir); break; - case IR_DIV: asm_div(as, ir); break; - case IR_MOD: asm_mod(as, ir); break; - case IR_POW: asm_pow(as, ir); break; - case IR_NEG: asm_neg(as, ir); break; - case IR_ABS: asm_abs(as, ir); break; - case IR_ATAN2: asm_atan2(as, ir); break; - case IR_LDEXP: asm_ldexp(as, ir); break; - case IR_MIN: asm_min(as, ir); break; - case IR_MAX: asm_max(as, ir); break; - case IR_FPMATH: asm_fpmath(as, ir); break; - - /* Overflow-checking arithmetic ops. */ - case IR_ADDOV: asm_addov(as, ir); break; - case IR_SUBOV: asm_subov(as, ir); break; - case IR_MULOV: asm_mulov(as, ir); break; - - /* Memory references. */ - case IR_AREF: asm_aref(as, ir); break; - case IR_HREF: asm_href(as, ir, 0); break; - case IR_HREFK: asm_hrefk(as, ir); break; - case IR_NEWREF: asm_newref(as, ir); break; - case IR_UREFO: case IR_UREFC: asm_uref(as, ir); break; - case IR_FREF: asm_fref(as, ir); break; - case IR_STRREF: asm_strref(as, ir); break; - case IR_LREF: asm_lref(as, ir); break; - - /* Loads and stores. */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - asm_ahuvload(as, ir); - break; - case IR_FLOAD: asm_fload(as, ir); break; - case IR_XLOAD: asm_xload(as, ir); break; - case IR_SLOAD: asm_sload(as, ir); break; - - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: asm_ahustore(as, ir); break; - case IR_FSTORE: asm_fstore(as, ir); break; - case IR_XSTORE: asm_xstore(as, ir); break; - - /* Allocations. */ - case IR_SNEW: case IR_XSNEW: asm_snew(as, ir); break; - case IR_TNEW: asm_tnew(as, ir); break; - case IR_TDUP: asm_tdup(as, ir); break; - case IR_CNEW: case IR_CNEWI: asm_cnew(as, ir); break; - - /* Buffer operations. */ - case IR_BUFHDR: asm_bufhdr(as, ir); break; - case IR_BUFPUT: asm_bufput(as, ir); break; - case IR_BUFSTR: asm_bufstr(as, ir); break; - - /* Write barriers. */ - case IR_TBAR: asm_tbar(as, ir); break; - case IR_OBAR: asm_obar(as, ir); break; - - /* Type conversions. */ - case IR_TOBIT: asm_tobit(as, ir); break; - case IR_CONV: asm_conv(as, ir); break; - case IR_TOSTR: asm_tostr(as, ir); break; - case IR_STRTO: asm_strto(as, ir); break; - - /* Calls. */ - case IR_CALLA: - as->gcsteps++; - /* fallthrough */ - case IR_CALLN: case IR_CALLL: case IR_CALLS: asm_call(as, ir); break; - case IR_CALLXS: asm_callx(as, ir); break; - case IR_CARG: break; - - default: - setintV(&as->J->errinfo, ir->o); - lj_trace_err_info(as->J, LJ_TRERR_NYIIR); - break; - } -} - -/* -- Head of trace ------------------------------------------------------- */ - -/* Head of a root trace. */ -static void asm_head_root(ASMState *as) -{ - int32_t spadj; - asm_head_root_base(as); - emit_setvmstate(as, (int32_t)as->T->traceno); - spadj = asm_stack_adjust(as); - as->T->spadjust = (uint16_t)spadj; - emit_spsub(as, spadj); - /* Root traces assume a checked stack for the starting proto. */ - as->T->topslot = gcref(as->T->startpt)->pt.framesize; -} - -/* Head of a side trace. -** -** The current simplistic algorithm requires that all slots inherited -** from the parent are live in a register between pass 2 and pass 3. This -** avoids the complexity of stack slot shuffling. But of course this may -** overflow the register set in some cases and cause the dreaded error: -** "NYI: register coalescing too complex". A refined algorithm is needed. -*/ -static void asm_head_side(ASMState *as) -{ - IRRef1 sloadins[RID_MAX]; - RegSet allow = RSET_ALL; /* Inverse of all coalesced registers. */ - RegSet live = RSET_EMPTY; /* Live parent registers. */ - IRIns *irp = &as->parent->ir[REF_BASE]; /* Parent base. */ - int32_t spadj, spdelta; - int pass2 = 0; - int pass3 = 0; - IRRef i; - - if (as->snapno && as->topslot > as->parent->topslot) { - /* Force snap #0 alloc to prevent register overwrite in stack check. */ - as->snapno = 0; - asm_snap_alloc(as); - } - allow = asm_head_side_base(as, irp, allow); - - /* Scan all parent SLOADs and collect register dependencies. */ - for (i = as->stopins; i > REF_BASE; i--) { - IRIns *ir = IR(i); - RegSP rs; - lua_assert((ir->o == IR_SLOAD && (ir->op2 & IRSLOAD_PARENT)) || - (LJ_SOFTFP && ir->o == IR_HIOP) || ir->o == IR_PVAL); - rs = as->parentmap[i - REF_FIRST]; - if (ra_hasreg(ir->r)) { - rset_clear(allow, ir->r); - if (ra_hasspill(ir->s)) { - ra_save(as, ir, ir->r); - checkmclim(as); - } - } else if (ra_hasspill(ir->s)) { - irt_setmark(ir->t); - pass2 = 1; - } - if (ir->r == rs) { /* Coalesce matching registers right now. */ - ra_free(as, ir->r); - } else if (ra_hasspill(regsp_spill(rs))) { - if (ra_hasreg(ir->r)) - pass3 = 1; - } else if (ra_used(ir)) { - sloadins[rs] = (IRRef1)i; - rset_set(live, rs); /* Block live parent register. */ - } - } - - /* Calculate stack frame adjustment. */ - spadj = asm_stack_adjust(as); - spdelta = spadj - (int32_t)as->parent->spadjust; - if (spdelta < 0) { /* Don't shrink the stack frame. */ - spadj = (int32_t)as->parent->spadjust; - spdelta = 0; - } - as->T->spadjust = (uint16_t)spadj; - - /* Reload spilled target registers. */ - if (pass2) { - for (i = as->stopins; i > REF_BASE; i--) { - IRIns *ir = IR(i); - if (irt_ismarked(ir->t)) { - RegSet mask; - Reg r; - RegSP rs; - irt_clearmark(ir->t); - rs = as->parentmap[i - REF_FIRST]; - if (!ra_hasspill(regsp_spill(rs))) - ra_sethint(ir->r, rs); /* Hint may be gone, set it again. */ - else if (sps_scale(regsp_spill(rs))+spdelta == sps_scale(ir->s)) - continue; /* Same spill slot, do nothing. */ - mask = ((!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR) & allow; - if (mask == RSET_EMPTY) - lj_trace_err(as->J, LJ_TRERR_NYICOAL); - r = ra_allocref(as, i, mask); - ra_save(as, ir, r); - rset_clear(allow, r); - if (r == rs) { /* Coalesce matching registers right now. */ - ra_free(as, r); - rset_clear(live, r); - } else if (ra_hasspill(regsp_spill(rs))) { - pass3 = 1; - } - checkmclim(as); - } - } - } - - /* Store trace number and adjust stack frame relative to the parent. */ - emit_setvmstate(as, (int32_t)as->T->traceno); - emit_spsub(as, spdelta); - -#if !LJ_TARGET_X86ORX64 - /* Restore BASE register from parent spill slot. */ - if (ra_hasspill(irp->s)) - emit_spload(as, IR(REF_BASE), IR(REF_BASE)->r, sps_scale(irp->s)); -#endif - - /* Restore target registers from parent spill slots. */ - if (pass3) { - RegSet work = ~as->freeset & RSET_ALL; - while (work) { - Reg r = rset_pickbot(work); - IRRef ref = regcost_ref(as->cost[r]); - RegSP rs = as->parentmap[ref - REF_FIRST]; - rset_clear(work, r); - if (ra_hasspill(regsp_spill(rs))) { - int32_t ofs = sps_scale(regsp_spill(rs)); - ra_free(as, r); - emit_spload(as, IR(ref), r, ofs); - checkmclim(as); - } - } - } - - /* Shuffle registers to match up target regs with parent regs. */ - for (;;) { - RegSet work; - - /* Repeatedly coalesce free live registers by moving to their target. */ - while ((work = as->freeset & live) != RSET_EMPTY) { - Reg rp = rset_pickbot(work); - IRIns *ir = IR(sloadins[rp]); - rset_clear(live, rp); - rset_clear(allow, rp); - ra_free(as, ir->r); - emit_movrr(as, ir, ir->r, rp); - checkmclim(as); - } - - /* We're done if no live registers remain. */ - if (live == RSET_EMPTY) - break; - - /* Break cycles by renaming one target to a temp. register. */ - if (live & RSET_GPR) { - RegSet tmpset = as->freeset & ~live & allow & RSET_GPR; - if (tmpset == RSET_EMPTY) - lj_trace_err(as->J, LJ_TRERR_NYICOAL); - ra_rename(as, rset_pickbot(live & RSET_GPR), rset_pickbot(tmpset)); - } - if (!LJ_SOFTFP && (live & RSET_FPR)) { - RegSet tmpset = as->freeset & ~live & allow & RSET_FPR; - if (tmpset == RSET_EMPTY) - lj_trace_err(as->J, LJ_TRERR_NYICOAL); - ra_rename(as, rset_pickbot(live & RSET_FPR), rset_pickbot(tmpset)); - } - checkmclim(as); - /* Continue with coalescing to fix up the broken cycle(s). */ - } - - /* Inherit top stack slot already checked by parent trace. */ - as->T->topslot = as->parent->topslot; - if (as->topslot > as->T->topslot) { /* Need to check for higher slot? */ -#ifdef EXITSTATE_CHECKEXIT - /* Highest exit + 1 indicates stack check. */ - ExitNo exitno = as->T->nsnap; -#else - /* Reuse the parent exit in the context of the parent trace. */ - ExitNo exitno = as->J->exitno; -#endif - as->T->topslot = (uint8_t)as->topslot; /* Remember for child traces. */ - asm_stack_check(as, as->topslot, irp, allow & RSET_GPR, exitno); - } -} - -/* -- Tail of trace ------------------------------------------------------- */ - -/* Get base slot for a snapshot. */ -static BCReg asm_baseslot(ASMState *as, SnapShot *snap, int *gotframe) -{ - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - MSize n; - for (n = snap->nent; n > 0; n--) { - SnapEntry sn = map[n-1]; - if ((sn & SNAP_FRAME)) { - *gotframe = 1; - return snap_slot(sn); - } - } - return 0; -} - -/* Link to another trace. */ -static void asm_tail_link(ASMState *as) -{ - SnapNo snapno = as->T->nsnap-1; /* Last snapshot. */ - SnapShot *snap = &as->T->snap[snapno]; - int gotframe = 0; - BCReg baseslot = asm_baseslot(as, snap, &gotframe); - - as->topslot = snap->topslot; - checkmclim(as); - ra_allocref(as, REF_BASE, RID2RSET(RID_BASE)); - - if (as->T->link == 0) { - /* Setup fixed registers for exit to interpreter. */ - const BCIns *pc = snap_pc(as->T->snapmap[snap->mapofs + snap->nent]); - int32_t mres; - if (bc_op(*pc) == BC_JLOOP) { /* NYI: find a better way to do this. */ - BCIns *retpc = &traceref(as->J, bc_d(*pc))->startins; - if (bc_isret(bc_op(*retpc))) - pc = retpc; - } - ra_allockreg(as, i32ptr(J2GG(as->J)->dispatch), RID_DISPATCH); - ra_allockreg(as, i32ptr(pc), RID_LPC); - mres = (int32_t)(snap->nslots - baseslot); - switch (bc_op(*pc)) { - case BC_CALLM: case BC_CALLMT: - mres -= (int32_t)(1 + LJ_FR2 + bc_a(*pc) + bc_c(*pc)); break; - case BC_RETM: mres -= (int32_t)(bc_a(*pc) + bc_d(*pc)); break; - case BC_TSETM: mres -= (int32_t)bc_a(*pc); break; - default: if (bc_op(*pc) < BC_FUNCF) mres = 0; break; - } - ra_allockreg(as, mres, RID_RET); /* Return MULTRES or 0. */ - } else if (baseslot) { - /* Save modified BASE for linking to trace with higher start frame. */ - emit_setgl(as, RID_BASE, jit_base); - } - emit_addptr(as, RID_BASE, 8*(int32_t)baseslot); - - /* Sync the interpreter state with the on-trace state. */ - asm_stack_restore(as, snap); - - /* Root traces that add frames need to check the stack at the end. */ - if (!as->parent && gotframe) - asm_stack_check(as, as->topslot, NULL, as->freeset & RSET_GPR, snapno); -} - -/* -- Trace setup --------------------------------------------------------- */ - -/* Clear reg/sp for all instructions and add register hints. */ -static void asm_setup_regsp(ASMState *as) -{ - GCtrace *T = as->T; - int sink = T->sinktags; - IRRef nins = T->nins; - IRIns *ir, *lastir; - int inloop; -#if LJ_TARGET_ARM - uint32_t rload = 0xa6402a64; -#endif - - ra_setup(as); - - /* Clear reg/sp for constants. */ - for (ir = IR(T->nk), lastir = IR(REF_BASE); ir < lastir; ir++) - ir->prev = REGSP_INIT; - - /* REF_BASE is used for implicit references to the BASE register. */ - lastir->prev = REGSP_HINT(RID_BASE); - - ir = IR(nins-1); - if (ir->o == IR_RENAME) { - do { ir--; nins--; } while (ir->o == IR_RENAME); - T->nins = nins; /* Remove any renames left over from ASM restart. */ - } - as->snaprename = nins; - as->snapref = nins; - as->snapno = T->nsnap; - - as->stopins = REF_BASE; - as->orignins = nins; - as->curins = nins; - - /* Setup register hints for parent link instructions. */ - ir = IR(REF_FIRST); - if (as->parent) { - uint16_t *p; - lastir = lj_snap_regspmap(as->parent, as->J->exitno, ir); - if (lastir - ir > LJ_MAX_JSLOTS) - lj_trace_err(as->J, LJ_TRERR_NYICOAL); - as->stopins = (IRRef)((lastir-1) - as->ir); - for (p = as->parentmap; ir < lastir; ir++) { - RegSP rs = ir->prev; - *p++ = (uint16_t)rs; /* Copy original parent RegSP to parentmap. */ - if (!ra_hasspill(regsp_spill(rs))) - ir->prev = (uint16_t)REGSP_HINT(regsp_reg(rs)); - else - ir->prev = REGSP_INIT; - } - } - - inloop = 0; - as->evenspill = SPS_FIRST; - for (lastir = IR(nins); ir < lastir; ir++) { - if (sink) { - if (ir->r == RID_SINK) - continue; - if (ir->r == RID_SUNK) { /* Revert after ASM restart. */ - ir->r = RID_SINK; - continue; - } - } - switch (ir->o) { - case IR_LOOP: - inloop = 1; - break; -#if LJ_TARGET_ARM - case IR_SLOAD: - if (!((ir->op2 & IRSLOAD_TYPECHECK) || (ir+1)->o == IR_HIOP)) - break; - /* fallthrough */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - if (!LJ_SOFTFP && irt_isnum(ir->t)) break; - ir->prev = (uint16_t)REGSP_HINT((rload & 15)); - rload = lj_ror(rload, 4); - continue; -#endif - case IR_CALLXS: { - CCallInfo ci; - ci.flags = asm_callx_flags(as, ir); - ir->prev = asm_setup_call_slots(as, ir, &ci); - if (inloop) - as->modset |= RSET_SCRATCH; - continue; - } - case IR_CALLN: case IR_CALLA: case IR_CALLL: case IR_CALLS: { - const CCallInfo *ci = &lj_ir_callinfo[ir->op2]; - ir->prev = asm_setup_call_slots(as, ir, ci); - if (inloop) - as->modset |= (ci->flags & CCI_NOFPRCLOBBER) ? - (RSET_SCRATCH & ~RSET_FPR) : RSET_SCRATCH; - continue; - } -#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) - case IR_HIOP: - switch ((ir-1)->o) { -#if LJ_SOFTFP && LJ_TARGET_ARM - case IR_SLOAD: case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - if (ra_hashint((ir-1)->r)) { - ir->prev = (ir-1)->prev + 1; - continue; - } - break; -#endif -#if !LJ_SOFTFP && LJ_NEED_FP64 - case IR_CONV: - if (irt_isfp((ir-1)->t)) { - ir->prev = REGSP_HINT(RID_FPRET); - continue; - } - /* fallthrough */ -#endif - case IR_CALLN: case IR_CALLXS: -#if LJ_SOFTFP - case IR_MIN: case IR_MAX: -#endif - (ir-1)->prev = REGSP_HINT(RID_RETLO); - ir->prev = REGSP_HINT(RID_RETHI); - continue; - default: - break; - } - break; -#endif -#if LJ_SOFTFP - case IR_MIN: case IR_MAX: - if ((ir+1)->o != IR_HIOP) break; - /* fallthrough */ -#endif - /* C calls evict all scratch regs and return results in RID_RET. */ - case IR_SNEW: case IR_XSNEW: case IR_NEWREF: case IR_BUFPUT: - if (REGARG_NUMGPR < 3 && as->evenspill < 3) - as->evenspill = 3; /* lj_str_new and lj_tab_newkey need 3 args. */ -#if LJ_TARGET_X86 && LJ_HASFFI - if (0) { - case IR_CNEW: - if (ir->op2 != REF_NIL && as->evenspill < 4) - as->evenspill = 4; /* lj_cdata_newv needs 4 args. */ - } -#else - case IR_CNEW: -#endif - case IR_TNEW: case IR_TDUP: case IR_CNEWI: case IR_TOSTR: - case IR_BUFSTR: - ir->prev = REGSP_HINT(RID_RET); - if (inloop) - as->modset = RSET_SCRATCH; - continue; - case IR_STRTO: case IR_OBAR: - if (inloop) - as->modset = RSET_SCRATCH; - break; -#if !LJ_SOFTFP - case IR_ATAN2: -#if LJ_TARGET_X86 - if (as->evenspill < 4) /* Leave room to call atan2(). */ - as->evenspill = 4; -#endif -#if !LJ_TARGET_X86ORX64 - case IR_LDEXP: -#endif -#endif - case IR_POW: - if (!LJ_SOFTFP && irt_isnum(ir->t)) { - if (inloop) - as->modset |= RSET_SCRATCH; -#if LJ_TARGET_X86 - break; -#else - ir->prev = REGSP_HINT(RID_FPRET); - continue; -#endif - } - /* fallthrough for integer POW */ - case IR_DIV: case IR_MOD: - if (!irt_isnum(ir->t)) { - ir->prev = REGSP_HINT(RID_RET); - if (inloop) - as->modset |= (RSET_SCRATCH & RSET_GPR); - continue; - } - break; - case IR_FPMATH: -#if LJ_TARGET_X86ORX64 - if (ir->op2 <= IRFPM_TRUNC) { - if (!(as->flags & JIT_F_SSE4_1)) { - ir->prev = REGSP_HINT(RID_XMM0); - if (inloop) - as->modset |= RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); - continue; - } - break; - } else if (ir->op2 == IRFPM_EXP2 && !LJ_64) { - if (as->evenspill < 4) /* Leave room to call pow(). */ - as->evenspill = 4; - } -#endif - if (inloop) - as->modset |= RSET_SCRATCH; -#if LJ_TARGET_X86 - break; -#else - ir->prev = REGSP_HINT(RID_FPRET); - continue; -#endif -#if LJ_TARGET_X86ORX64 - /* Non-constant shift counts need to be in RID_ECX on x86/x64. */ - case IR_BSHL: case IR_BSHR: case IR_BSAR: case IR_BROL: case IR_BROR: - if (!irref_isk(ir->op2) && !ra_hashint(IR(ir->op2)->r)) { - IR(ir->op2)->r = REGSP_HINT(RID_ECX); - if (inloop) - rset_set(as->modset, RID_ECX); - } - break; -#endif - /* Do not propagate hints across type conversions or loads. */ - case IR_TOBIT: - case IR_XLOAD: -#if !LJ_TARGET_ARM - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: -#endif - break; - case IR_CONV: - if (irt_isfp(ir->t) || (ir->op2 & IRCONV_SRCMASK) == IRT_NUM || - (ir->op2 & IRCONV_SRCMASK) == IRT_FLOAT) - break; - /* fallthrough */ - default: - /* Propagate hints across likely 'op reg, imm' or 'op reg'. */ - if (irref_isk(ir->op2) && !irref_isk(ir->op1) && - ra_hashint(regsp_reg(IR(ir->op1)->prev))) { - ir->prev = IR(ir->op1)->prev; - continue; - } - break; - } - ir->prev = REGSP_INIT; - } - if ((as->evenspill & 1)) - as->oddspill = as->evenspill++; - else - as->oddspill = 0; -} - -/* -- Assembler core ------------------------------------------------------ */ - -/* Assemble a trace. */ -void lj_asm_trace(jit_State *J, GCtrace *T) -{ - ASMState as_; - ASMState *as = &as_; - MCode *origtop; - - /* Ensure an initialized instruction beyond the last one for HIOP checks. */ - J->cur.nins = lj_ir_nextins(J); - J->cur.ir[J->cur.nins].o = IR_NOP; - - /* Setup initial state. Copy some fields to reduce indirections. */ - as->J = J; - as->T = T; - as->ir = T->ir; - as->flags = J->flags; - as->loopref = J->loopref; - as->realign = NULL; - as->loopinv = 0; - as->parent = J->parent ? traceref(J, J->parent) : NULL; - - /* Reserve MCode memory. */ - as->mctop = origtop = lj_mcode_reserve(J, &as->mcbot); - as->mcp = as->mctop; - as->mclim = as->mcbot + MCLIM_REDZONE; - asm_setup_target(as); - - do { - as->mcp = as->mctop; -#ifdef LUA_USE_ASSERT - as->mcp_prev = as->mcp; -#endif - as->curins = T->nins; - RA_DBG_START(); - RA_DBGX((as, "===== STOP =====")); - - /* General trace setup. Emit tail of trace. */ - asm_tail_prep(as); - as->mcloop = NULL; - as->flagmcp = NULL; - as->topslot = 0; - as->gcsteps = 0; - as->sectref = as->loopref; - as->fuseref = (as->flags & JIT_F_OPT_FUSE) ? as->loopref : FUSE_DISABLED; - asm_setup_regsp(as); - if (!as->loopref) - asm_tail_link(as); - - /* Assemble a trace in linear backwards order. */ - for (as->curins--; as->curins > as->stopins; as->curins--) { - IRIns *ir = IR(as->curins); - lua_assert(!(LJ_32 && irt_isint64(ir->t))); /* Handled by SPLIT. */ - if (!ra_used(ir) && !ir_sideeff(ir) && (as->flags & JIT_F_OPT_DCE)) - continue; /* Dead-code elimination can be soooo easy. */ - if (irt_isguard(ir->t)) - asm_snap_prep(as); - RA_DBG_REF(); - checkmclim(as); - asm_ir(as, ir); - } - } while (as->realign); /* Retry in case the MCode needs to be realigned. */ - - /* Emit head of trace. */ - RA_DBG_REF(); - checkmclim(as); - if (as->gcsteps > 0) { - as->curins = as->T->snap[0].ref; - asm_snap_prep(as); /* The GC check is a guard. */ - asm_gc_check(as); - } - ra_evictk(as); - if (as->parent) - asm_head_side(as); - else - asm_head_root(as); - asm_phi_fixup(as); - - RA_DBGX((as, "===== START ====")); - RA_DBG_FLUSH(); - if (as->freeset != RSET_ALL) - lj_trace_err(as->J, LJ_TRERR_BADRA); /* Ouch! Should never happen. */ - - /* Set trace entry point before fixing up tail to allow link to self. */ - T->mcode = as->mcp; - T->mcloop = as->mcloop ? (MSize)((char *)as->mcloop - (char *)as->mcp) : 0; - if (!as->loopref) - asm_tail_fixup(as, T->link); /* Note: this may change as->mctop! */ - T->szmcode = (MSize)((char *)as->mctop - (char *)as->mcp); - lj_mcode_sync(T->mcode, origtop); -} - -#undef IR - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm.h deleted file mode 100644 index 85f29763220..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm.h +++ /dev/null @@ -1,17 +0,0 @@ -/* -** IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_ASM_H -#define _LJ_ASM_H - -#include "lj_jit.h" - -#if LJ_HASJIT -LJ_FUNC void lj_asm_trace(jit_State *J, GCtrace *T); -LJ_FUNC void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, - MCode *target); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h deleted file mode 100644 index 81843caf96a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm_arm.h +++ /dev/null @@ -1,2217 +0,0 @@ -/* -** ARM IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Register allocator extensions --------------------------------------- */ - -/* Allocate a register with a hint. */ -static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) -{ - Reg r = IR(ref)->r; - if (ra_noreg(r)) { - if (!ra_hashint(r) && !iscrossref(as, ref)) - ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ - r = ra_allocref(as, ref, allow); - } - ra_noweak(as, r); - return r; -} - -/* Allocate a scratch register pair. */ -static Reg ra_scratchpair(ASMState *as, RegSet allow) -{ - RegSet pick1 = as->freeset & allow; - RegSet pick2 = pick1 & (pick1 >> 1) & RSET_GPREVEN; - Reg r; - if (pick2) { - r = rset_picktop(pick2); - } else { - RegSet pick = pick1 & (allow >> 1) & RSET_GPREVEN; - if (pick) { - r = rset_picktop(pick); - ra_restore(as, regcost_ref(as->cost[r+1])); - } else { - pick = pick1 & (allow << 1) & RSET_GPRODD; - if (pick) { - r = ra_restore(as, regcost_ref(as->cost[rset_picktop(pick)-1])); - } else { - r = ra_evict(as, allow & (allow >> 1) & RSET_GPREVEN); - ra_restore(as, regcost_ref(as->cost[r+1])); - } - } - } - lua_assert(rset_test(RSET_GPREVEN, r)); - ra_modified(as, r); - ra_modified(as, r+1); - RA_DBGX((as, "scratchpair $r $r", r, r+1)); - return r; -} - -#if !LJ_SOFTFP -/* Allocate two source registers for three-operand instructions. */ -static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) -{ - IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); - Reg left = irl->r, right = irr->r; - if (ra_hasreg(left)) { - ra_noweak(as, left); - if (ra_noreg(right)) - right = ra_allocref(as, ir->op2, rset_exclude(allow, left)); - else - ra_noweak(as, right); - } else if (ra_hasreg(right)) { - ra_noweak(as, right); - left = ra_allocref(as, ir->op1, rset_exclude(allow, right)); - } else if (ra_hashint(right)) { - right = ra_allocref(as, ir->op2, allow); - left = ra_alloc1(as, ir->op1, rset_exclude(allow, right)); - } else { - left = ra_allocref(as, ir->op1, allow); - right = ra_alloc1(as, ir->op2, rset_exclude(allow, left)); - } - return left | (right << 8); -} -#endif - -/* -- Guard handling ------------------------------------------------------ */ - -/* Generate an exit stub group at the bottom of the reserved MCode memory. */ -static MCode *asm_exitstub_gen(ASMState *as, ExitNo group) -{ - MCode *mxp = as->mcbot; - int i; - if (mxp + 4*4+4*EXITSTUBS_PER_GROUP >= as->mctop) - asm_mclimit(as); - /* str lr, [sp]; bl ->vm_exit_handler; .long DISPATCH_address, group. */ - *mxp++ = ARMI_STR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_LR)|ARMF_N(RID_SP); - *mxp = ARMI_BL|((((MCode *)(void *)lj_vm_exit_handler-mxp)-2)&0x00ffffffu); - mxp++; - *mxp++ = (MCode)i32ptr(J2GG(as->J)->dispatch); /* DISPATCH address */ - *mxp++ = group*EXITSTUBS_PER_GROUP; - for (i = 0; i < EXITSTUBS_PER_GROUP; i++) - *mxp++ = ARMI_B|((-6-i)&0x00ffffffu); - lj_mcode_sync(as->mcbot, mxp); - lj_mcode_commitbot(as->J, mxp); - as->mcbot = mxp; - as->mclim = as->mcbot + MCLIM_REDZONE; - return mxp - EXITSTUBS_PER_GROUP; -} - -/* Setup all needed exit stubs. */ -static void asm_exitstub_setup(ASMState *as, ExitNo nexits) -{ - ExitNo i; - if (nexits >= EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) - lj_trace_err(as->J, LJ_TRERR_SNAPOV); - for (i = 0; i < (nexits+EXITSTUBS_PER_GROUP-1)/EXITSTUBS_PER_GROUP; i++) - if (as->J->exitstubgroup[i] == NULL) - as->J->exitstubgroup[i] = asm_exitstub_gen(as, i); -} - -/* Emit conditional branch to exit for guard. */ -static void asm_guardcc(ASMState *as, ARMCC cc) -{ - MCode *target = exitstub_addr(as->J, as->snapno); - MCode *p = as->mcp; - if (LJ_UNLIKELY(p == as->invmcp)) { - as->loopinv = 1; - *p = ARMI_BL | ((target-p-2) & 0x00ffffffu); - emit_branch(as, ARMF_CC(ARMI_B, cc^1), p+1); - return; - } - emit_branch(as, ARMF_CC(ARMI_BL, cc), target); -} - -/* -- Operand fusion ------------------------------------------------------ */ - -/* Limit linear search to this distance. Avoids O(n^2) behavior. */ -#define CONFLICT_SEARCH_LIM 31 - -/* Check if there's no conflicting instruction between curins and ref. */ -static int noconflict(ASMState *as, IRRef ref, IROp conflict) -{ - IRIns *ir = as->ir; - IRRef i = as->curins; - if (i > ref + CONFLICT_SEARCH_LIM) - return 0; /* Give up, ref is too far away. */ - while (--i > ref) - if (ir[i].o == conflict) - return 0; /* Conflict found. */ - return 1; /* Ok, no conflict. */ -} - -/* Fuse the array base of colocated arrays. */ -static int32_t asm_fuseabase(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && - !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) - return (int32_t)sizeof(GCtab); - return 0; -} - -/* Fuse array/hash/upvalue reference into register+offset operand. */ -static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow, - int lim) -{ - IRIns *ir = IR(ref); - if (ra_noreg(ir->r)) { - if (ir->o == IR_AREF) { - if (mayfuse(as, ref)) { - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - ofs += 8*IR(ir->op2)->i; - if (ofs > -lim && ofs < lim) { - *ofsp = ofs; - return ra_alloc1(as, refa, allow); - } - } - } - } else if (ir->o == IR_HREFK) { - if (mayfuse(as, ref)) { - int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); - if (ofs < lim) { - *ofsp = ofs; - return ra_alloc1(as, ir->op1, allow); - } - } - } else if (ir->o == IR_UREFC) { - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); - *ofsp = (ofs & 255); /* Mask out less bits to allow LDRD. */ - return ra_allock(as, (ofs & ~255), allow); - } - } - } - *ofsp = 0; - return ra_alloc1(as, ref, allow); -} - -/* Fuse m operand into arithmetic/logic instructions. */ -static uint32_t asm_fuseopm(ASMState *as, ARMIns ai, IRRef ref, RegSet allow) -{ - IRIns *ir = IR(ref); - if (ra_hasreg(ir->r)) { - ra_noweak(as, ir->r); - return ARMF_M(ir->r); - } else if (irref_isk(ref)) { - uint32_t k = emit_isk12(ai, ir->i); - if (k) - return k; - } else if (mayfuse(as, ref)) { - if (ir->o >= IR_BSHL && ir->o <= IR_BROR) { - Reg m = ra_alloc1(as, ir->op1, allow); - ARMShift sh = ir->o == IR_BSHL ? ARMSH_LSL : - ir->o == IR_BSHR ? ARMSH_LSR : - ir->o == IR_BSAR ? ARMSH_ASR : ARMSH_ROR; - if (irref_isk(ir->op2)) { - return m | ARMF_SH(sh, (IR(ir->op2)->i & 31)); - } else { - Reg s = ra_alloc1(as, ir->op2, rset_exclude(allow, m)); - return m | ARMF_RSH(sh, s); - } - } else if (ir->o == IR_ADD && ir->op1 == ir->op2) { - Reg m = ra_alloc1(as, ir->op1, allow); - return m | ARMF_SH(ARMSH_LSL, 1); - } - } - return ra_allocref(as, ref, allow); -} - -/* Fuse shifts into loads/stores. Only bother with BSHL 2 => lsl #2. */ -static IRRef asm_fuselsl2(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (ra_noreg(ir->r) && mayfuse(as, ref) && ir->o == IR_BSHL && - irref_isk(ir->op2) && IR(ir->op2)->i == 2) - return ir->op1; - return 0; /* No fusion. */ -} - -/* Fuse XLOAD/XSTORE reference into load/store operand. */ -static void asm_fusexref(ASMState *as, ARMIns ai, Reg rd, IRRef ref, - RegSet allow, int32_t ofs) -{ - IRIns *ir = IR(ref); - Reg base; - if (ra_noreg(ir->r) && canfuse(as, ir)) { - int32_t lim = (!LJ_SOFTFP && (ai & 0x08000000)) ? 1024 : - (ai & 0x04000000) ? 4096 : 256; - if (ir->o == IR_ADD) { - int32_t ofs2; - if (irref_isk(ir->op2) && - (ofs2 = ofs + IR(ir->op2)->i) > -lim && ofs2 < lim && - (!(!LJ_SOFTFP && (ai & 0x08000000)) || !(ofs2 & 3))) { - ofs = ofs2; - ref = ir->op1; - } else if (ofs == 0 && !(!LJ_SOFTFP && (ai & 0x08000000))) { - IRRef lref = ir->op1, rref = ir->op2; - Reg rn, rm; - if ((ai & 0x04000000)) { - IRRef sref = asm_fuselsl2(as, rref); - if (sref) { - rref = sref; - ai |= ARMF_SH(ARMSH_LSL, 2); - } else if ((sref = asm_fuselsl2(as, lref)) != 0) { - lref = rref; - rref = sref; - ai |= ARMF_SH(ARMSH_LSL, 2); - } - } - rn = ra_alloc1(as, lref, allow); - rm = ra_alloc1(as, rref, rset_exclude(allow, rn)); - if ((ai & 0x04000000)) ai |= ARMI_LS_R; - emit_dnm(as, ai|ARMI_LS_P|ARMI_LS_U, rd, rn, rm); - return; - } - } else if (ir->o == IR_STRREF && !(!LJ_SOFTFP && (ai & 0x08000000))) { - lua_assert(ofs == 0); - ofs = (int32_t)sizeof(GCstr); - if (irref_isk(ir->op2)) { - ofs += IR(ir->op2)->i; - ref = ir->op1; - } else if (irref_isk(ir->op1)) { - ofs += IR(ir->op1)->i; - ref = ir->op2; - } else { - /* NYI: Fuse ADD with constant. */ - Reg rn = ra_alloc1(as, ir->op1, allow); - uint32_t m = asm_fuseopm(as, 0, ir->op2, rset_exclude(allow, rn)); - if ((ai & 0x04000000)) - emit_lso(as, ai, rd, rd, ofs); - else - emit_lsox(as, ai, rd, rd, ofs); - emit_dn(as, ARMI_ADD^m, rd, rn); - return; - } - if (ofs <= -lim || ofs >= lim) { - Reg rn = ra_alloc1(as, ref, allow); - Reg rm = ra_allock(as, ofs, rset_exclude(allow, rn)); - if ((ai & 0x04000000)) ai |= ARMI_LS_R; - emit_dnm(as, ai|ARMI_LS_P|ARMI_LS_U, rd, rn, rm); - return; - } - } - } - base = ra_alloc1(as, ref, allow); -#if !LJ_SOFTFP - if ((ai & 0x08000000)) - emit_vlso(as, ai, rd, base, ofs); - else -#endif - if ((ai & 0x04000000)) - emit_lso(as, ai, rd, base, ofs); - else - emit_lsox(as, ai, rd, base, ofs); -} - -#if !LJ_SOFTFP -/* Fuse to multiply-add/sub instruction. */ -static int asm_fusemadd(ASMState *as, IRIns *ir, ARMIns ai, ARMIns air) -{ - IRRef lref = ir->op1, rref = ir->op2; - IRIns *irm; - if (lref != rref && - ((mayfuse(as, lref) && (irm = IR(lref), irm->o == IR_MUL) && - ra_noreg(irm->r)) || - (mayfuse(as, rref) && (irm = IR(rref), irm->o == IR_MUL) && - (rref = lref, ai = air, ra_noreg(irm->r))))) { - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg add = ra_hintalloc(as, rref, dest, RSET_FPR); - Reg right, left = ra_alloc2(as, irm, - rset_exclude(rset_exclude(RSET_FPR, dest), add)); - right = (left >> 8); left &= 255; - emit_dnm(as, ai, (dest & 15), (left & 15), (right & 15)); - if (dest != add) emit_dm(as, ARMI_VMOV_D, (dest & 15), (add & 15)); - return 1; - } - return 0; -} -#endif - -/* -- Calls --------------------------------------------------------------- */ - -/* Generate a call to a C function. */ -static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) -{ - uint32_t n, nargs = CCI_XNARGS(ci); - int32_t ofs = 0; -#if LJ_SOFTFP - Reg gpr = REGARG_FIRSTGPR; -#else - Reg gpr, fpr = REGARG_FIRSTFPR, fprodd = 0; -#endif - if ((void *)ci->func) - emit_call(as, (void *)ci->func); -#if !LJ_SOFTFP - for (gpr = REGARG_FIRSTGPR; gpr <= REGARG_LASTGPR; gpr++) - as->cost[gpr] = REGCOST(~0u, ASMREF_L); - gpr = REGARG_FIRSTGPR; -#endif - for (n = 0; n < nargs; n++) { /* Setup args. */ - IRRef ref = args[n]; - IRIns *ir = IR(ref); -#if !LJ_SOFTFP - if (ref && irt_isfp(ir->t)) { - RegSet of = as->freeset; - Reg src; - if (!LJ_ABI_SOFTFP && !(ci->flags & CCI_VARARG)) { - if (irt_isnum(ir->t)) { - if (fpr <= REGARG_LASTFPR) { - ra_leftov(as, fpr, ref); - fpr++; - continue; - } - } else if (fprodd) { /* Ick. */ - src = ra_alloc1(as, ref, RSET_FPR); - emit_dm(as, ARMI_VMOV_S, (fprodd & 15), (src & 15) | 0x00400000); - fprodd = 0; - continue; - } else if (fpr <= REGARG_LASTFPR) { - ra_leftov(as, fpr, ref); - fprodd = fpr++; - continue; - } - /* Workaround to protect argument GPRs from being used for remat. */ - as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); - src = ra_alloc1(as, ref, RSET_FPR); /* May alloc GPR to remat FPR. */ - as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); - fprodd = 0; - goto stackfp; - } - /* Workaround to protect argument GPRs from being used for remat. */ - as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); - src = ra_alloc1(as, ref, RSET_FPR); /* May alloc GPR to remat FPR. */ - as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); - if (irt_isnum(ir->t)) gpr = (gpr+1) & ~1u; - if (gpr <= REGARG_LASTGPR) { - lua_assert(rset_test(as->freeset, gpr)); /* Must have been evicted. */ - if (irt_isnum(ir->t)) { - lua_assert(rset_test(as->freeset, gpr+1)); /* Ditto. */ - emit_dnm(as, ARMI_VMOV_RR_D, gpr, gpr+1, (src & 15)); - gpr += 2; - } else { - emit_dn(as, ARMI_VMOV_R_S, gpr, (src & 15)); - gpr++; - } - } else { - stackfp: - if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; - emit_spstore(as, ir, src, ofs); - ofs += irt_isnum(ir->t) ? 8 : 4; - } - } else -#endif - { - if (gpr <= REGARG_LASTGPR) { - lua_assert(rset_test(as->freeset, gpr)); /* Must have been evicted. */ - if (ref) ra_leftov(as, gpr, ref); - gpr++; - } else { - if (ref) { - Reg r = ra_alloc1(as, ref, RSET_GPR); - emit_spstore(as, ir, r, ofs); - } - ofs += 4; - } - } - } -} - -/* Setup result reg/sp for call. Evict scratch regs. */ -static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - RegSet drop = RSET_SCRATCH; - int hiop = ((ir+1)->o == IR_HIOP); - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - if (hiop && ra_hasreg((ir+1)->r)) - rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ - ra_evictset(as, drop); /* Evictions must be performed first. */ - if (ra_used(ir)) { - lua_assert(!irt_ispri(ir->t)); - if (!LJ_SOFTFP && irt_isfp(ir->t)) { - if (LJ_ABI_SOFTFP || (ci->flags & (CCI_CASTU64|CCI_VARARG))) { - Reg dest = (ra_dest(as, ir, RSET_FPR) & 15); - if (irt_isnum(ir->t)) - emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, dest); - else - emit_dn(as, ARMI_VMOV_S_R, RID_RET, dest); - } else { - ra_destreg(as, ir, RID_FPRET); - } - } else if (hiop) { - ra_destpair(as, ir); - } else { - ra_destreg(as, ir, RID_RET); - } - } - UNUSED(ci); -} - -static void asm_callx(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX*2]; - CCallInfo ci; - IRRef func; - IRIns *irf; - ci.flags = asm_callx_flags(as, ir); - asm_collectargs(as, ir, &ci, args); - asm_setupresult(as, ir, &ci); - func = ir->op2; irf = IR(func); - if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } - if (irref_isk(func)) { /* Call to constant address. */ - ci.func = (ASMFunction)(void *)(irf->i); - } else { /* Need a non-argument register for indirect calls. */ - Reg freg = ra_alloc1(as, func, RSET_RANGE(RID_R4, RID_R12+1)); - emit_m(as, ARMI_BLXr, freg); - ci.func = (ASMFunction)(void *)0; - } - asm_gencall(as, &ci, args); -} - -/* -- Returns ------------------------------------------------------------- */ - -/* Return to lower frame. Guard that it goes to the right spot. */ -static void asm_retf(ASMState *as, IRIns *ir) -{ - Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); - void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); - as->topslot -= (BCReg)delta; - if ((int32_t)as->topslot < 0) as->topslot = 0; - irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ - /* Need to force a spill on REF_BASE now to update the stack slot. */ - emit_lso(as, ARMI_STR, base, RID_SP, ra_spill(as, IR(REF_BASE))); - emit_setgl(as, base, jit_base); - emit_addptr(as, base, -8*delta); - asm_guardcc(as, CC_NE); - emit_nm(as, ARMI_CMP, RID_TMP, - ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); - emit_lso(as, ARMI_LDR, RID_TMP, base, -4); -} - -/* -- Type conversions ---------------------------------------------------- */ - -#if !LJ_SOFTFP -static void asm_tointg(ASMState *as, IRIns *ir, Reg left) -{ - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_guardcc(as, CC_NE); - emit_d(as, ARMI_VMRS, 0); - emit_dm(as, ARMI_VCMP_D, (tmp & 15), (left & 15)); - emit_dm(as, ARMI_VCVT_F64_S32, (tmp & 15), (tmp & 15)); - emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); - emit_dm(as, ARMI_VCVT_S32_F64, (tmp & 15), (left & 15)); -} - -static void asm_tobit(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_FPR; - Reg left = ra_alloc1(as, ir->op1, allow); - Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); - Reg tmp = ra_scratch(as, rset_clear(allow, right)); - Reg dest = ra_dest(as, ir, RSET_GPR); - emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); - emit_dnm(as, ARMI_VADD_D, (tmp & 15), (left & 15), (right & 15)); -} -#else -#define asm_tobit(as, ir) lua_assert(0) -#endif - -static void asm_conv(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); -#if !LJ_SOFTFP - int stfp = (st == IRT_NUM || st == IRT_FLOAT); -#endif - IRRef lref = ir->op1; - /* 64 bit integer conversions are handled by SPLIT. */ - lua_assert(!irt_isint64(ir->t) && !(st == IRT_I64 || st == IRT_U64)); -#if LJ_SOFTFP - /* FP conversions are handled by SPLIT. */ - lua_assert(!irt_isfp(ir->t) && !(st == IRT_NUM || st == IRT_FLOAT)); - /* Can't check for same types: SPLIT uses CONV int.int + BXOR for sfp NEG. */ -#else - lua_assert(irt_type(ir->t) != st); - if (irt_isfp(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - if (stfp) { /* FP to FP conversion. */ - emit_dm(as, st == IRT_NUM ? ARMI_VCVT_F32_F64 : ARMI_VCVT_F64_F32, - (dest & 15), (ra_alloc1(as, lref, RSET_FPR) & 15)); - } else { /* Integer to FP conversion. */ - Reg left = ra_alloc1(as, lref, RSET_GPR); - ARMIns ai = irt_isfloat(ir->t) ? - (st == IRT_INT ? ARMI_VCVT_F32_S32 : ARMI_VCVT_F32_U32) : - (st == IRT_INT ? ARMI_VCVT_F64_S32 : ARMI_VCVT_F64_U32); - emit_dm(as, ai, (dest & 15), (dest & 15)); - emit_dn(as, ARMI_VMOV_S_R, left, (dest & 15)); - } - } else if (stfp) { /* FP to integer conversion. */ - if (irt_isguard(ir->t)) { - /* Checked conversions are only supported from number to int. */ - lua_assert(irt_isint(ir->t) && st == IRT_NUM); - asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); - } else { - Reg left = ra_alloc1(as, lref, RSET_FPR); - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - Reg dest = ra_dest(as, ir, RSET_GPR); - ARMIns ai; - emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); - ai = irt_isint(ir->t) ? - (st == IRT_NUM ? ARMI_VCVT_S32_F64 : ARMI_VCVT_S32_F32) : - (st == IRT_NUM ? ARMI_VCVT_U32_F64 : ARMI_VCVT_U32_F32); - emit_dm(as, ai, (tmp & 15), (left & 15)); - } - } else -#endif - { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ - Reg left = ra_alloc1(as, lref, RSET_GPR); - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); - if ((as->flags & JIT_F_ARMV6)) { - ARMIns ai = st == IRT_I8 ? ARMI_SXTB : - st == IRT_U8 ? ARMI_UXTB : - st == IRT_I16 ? ARMI_SXTH : ARMI_UXTH; - emit_dm(as, ai, dest, left); - } else if (st == IRT_U8) { - emit_dn(as, ARMI_AND|ARMI_K12|255, dest, left); - } else { - uint32_t shift = st == IRT_I8 ? 24 : 16; - ARMShift sh = st == IRT_U16 ? ARMSH_LSR : ARMSH_ASR; - emit_dm(as, ARMI_MOV|ARMF_SH(sh, shift), dest, RID_TMP); - emit_dm(as, ARMI_MOV|ARMF_SH(ARMSH_LSL, shift), RID_TMP, left); - } - } else { /* Handle 32/32 bit no-op (cast). */ - ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ - } - } -} - -static void asm_strto(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; - IRRef args[2]; - Reg rlo = 0, rhi = 0, tmp; - int destused = ra_used(ir); - int32_t ofs = 0; - ra_evictset(as, RSET_SCRATCH); -#if LJ_SOFTFP - if (destused) { - if (ra_hasspill(ir->s) && ra_hasspill((ir+1)->s) && - (ir->s & 1) == 0 && ir->s + 1 == (ir+1)->s) { - int i; - for (i = 0; i < 2; i++) { - Reg r = (ir+i)->r; - if (ra_hasreg(r)) { - ra_free(as, r); - ra_modified(as, r); - emit_spload(as, ir+i, r, sps_scale((ir+i)->s)); - } - } - ofs = sps_scale(ir->s); - destused = 0; - } else { - rhi = ra_dest(as, ir+1, RSET_GPR); - rlo = ra_dest(as, ir, rset_exclude(RSET_GPR, rhi)); - } - } - asm_guardcc(as, CC_EQ); - if (destused) { - emit_lso(as, ARMI_LDR, rhi, RID_SP, 4); - emit_lso(as, ARMI_LDR, rlo, RID_SP, 0); - } -#else - UNUSED(rhi); - if (destused) { - if (ra_hasspill(ir->s)) { - ofs = sps_scale(ir->s); - destused = 0; - if (ra_hasreg(ir->r)) { - ra_free(as, ir->r); - ra_modified(as, ir->r); - emit_spload(as, ir, ir->r, ofs); - } - } else { - rlo = ra_dest(as, ir, RSET_FPR); - } - } - asm_guardcc(as, CC_EQ); - if (destused) - emit_vlso(as, ARMI_VLDR_D, rlo, RID_SP, 0); -#endif - emit_n(as, ARMI_CMP|ARMI_K12|0, RID_RET); /* Test return status. */ - args[0] = ir->op1; /* GCstr *str */ - args[1] = ASMREF_TMP1; /* TValue *n */ - asm_gencall(as, ci, args); - tmp = ra_releasetmp(as, ASMREF_TMP1); - if (ofs == 0) - emit_dm(as, ARMI_MOV, tmp, RID_SP); - else - emit_opk(as, ARMI_ADD, tmp, RID_SP, ofs, RSET_GPR); -} - -/* -- Memory references --------------------------------------------------- */ - -/* Get pointer to TValue. */ -static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) -{ - IRIns *ir = IR(ref); - if (irt_isnum(ir->t)) { - if (irref_isk(ref)) { - /* Use the number constant itself as a TValue. */ - ra_allockreg(as, i32ptr(ir_knum(ir)), dest); - } else { -#if LJ_SOFTFP - lua_assert(0); -#else - /* Otherwise force a spill and use the spill slot. */ - emit_opk(as, ARMI_ADD, dest, RID_SP, ra_spill(as, ir), RSET_GPR); -#endif - } - } else { - /* Otherwise use [sp] and [sp+4] to hold the TValue. */ - RegSet allow = rset_exclude(RSET_GPR, dest); - Reg type; - emit_dm(as, ARMI_MOV, dest, RID_SP); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, allow); - emit_lso(as, ARMI_STR, src, RID_SP, 0); - } - if (LJ_SOFTFP && (ir+1)->o == IR_HIOP) - type = ra_alloc1(as, ref+1, allow); - else - type = ra_allock(as, irt_toitype(ir->t), allow); - emit_lso(as, ARMI_STR, type, RID_SP, 4); - } -} - -static void asm_aref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx, base; - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - uint32_t k = emit_isk12(ARMI_ADD, ofs + 8*IR(ir->op2)->i); - if (k) { - base = ra_alloc1(as, refa, RSET_GPR); - emit_dn(as, ARMI_ADD^k, dest, base); - return; - } - } - base = ra_alloc1(as, ir->op1, RSET_GPR); - idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); - emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 3), dest, base, idx); -} - -/* Inlined hash lookup. Specialized for key type and for const keys. -** The equivalent C code is: -** Node *n = hashkey(t, key); -** do { -** if (lj_obj_equal(&n->key, key)) return &n->val; -** } while ((n = nextnode(n))); -** return niltv(L); -*/ -static void asm_href(ASMState *as, IRIns *ir, IROp merge) -{ - RegSet allow = RSET_GPR; - int destused = ra_used(ir); - Reg dest = ra_dest(as, ir, allow); - Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); - Reg key = 0, keyhi = 0, keynumhi = RID_NONE, tmp = RID_TMP; - IRRef refkey = ir->op2; - IRIns *irkey = IR(refkey); - IRType1 kt = irkey->t; - int32_t k = 0, khi = emit_isk12(ARMI_CMP, irt_toitype(kt)); - uint32_t khash; - MCLabel l_end, l_loop; - rset_clear(allow, tab); - if (!irref_isk(refkey) || irt_isstr(kt)) { -#if LJ_SOFTFP - key = ra_alloc1(as, refkey, allow); - rset_clear(allow, key); - if (irkey[1].o == IR_HIOP) { - if (ra_hasreg((irkey+1)->r)) { - keynumhi = (irkey+1)->r; - keyhi = RID_TMP; - ra_noweak(as, keynumhi); - } else { - keyhi = keynumhi = ra_allocref(as, refkey+1, allow); - } - rset_clear(allow, keynumhi); - khi = 0; - } -#else - if (irt_isnum(kt)) { - key = ra_scratch(as, allow); - rset_clear(allow, key); - keyhi = keynumhi = ra_scratch(as, allow); - rset_clear(allow, keyhi); - khi = 0; - } else { - key = ra_alloc1(as, refkey, allow); - rset_clear(allow, key); - } -#endif - } else if (irt_isnum(kt)) { - int32_t val = (int32_t)ir_knum(irkey)->u32.lo; - k = emit_isk12(ARMI_CMP, val); - if (!k) { - key = ra_allock(as, val, allow); - rset_clear(allow, key); - } - val = (int32_t)ir_knum(irkey)->u32.hi; - khi = emit_isk12(ARMI_CMP, val); - if (!khi) { - keyhi = ra_allock(as, val, allow); - rset_clear(allow, keyhi); - } - } else if (!irt_ispri(kt)) { - k = emit_isk12(ARMI_CMP, irkey->i); - if (!k) { - key = ra_alloc1(as, refkey, allow); - rset_clear(allow, key); - } - } - if (!irt_ispri(kt)) - tmp = ra_scratchpair(as, allow); - - /* Key not found in chain: jump to exit (if merged) or load niltv. */ - l_end = emit_label(as); - as->invmcp = NULL; - if (merge == IR_NE) - asm_guardcc(as, CC_AL); - else if (destused) - emit_loada(as, dest, niltvg(J2G(as->J))); - - /* Follow hash chain until the end. */ - l_loop = --as->mcp; - emit_n(as, ARMI_CMP|ARMI_K12|0, dest); - emit_lso(as, ARMI_LDR, dest, dest, (int32_t)offsetof(Node, next)); - - /* Type and value comparison. */ - if (merge == IR_EQ) - asm_guardcc(as, CC_EQ); - else - emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); - if (!irt_ispri(kt)) { - emit_nm(as, ARMF_CC(ARMI_CMP, CC_EQ)^k, tmp, key); - emit_nm(as, ARMI_CMP^khi, tmp+1, keyhi); - emit_lsox(as, ARMI_LDRD, tmp, dest, (int32_t)offsetof(Node, key)); - } else { - emit_n(as, ARMI_CMP^khi, tmp); - emit_lso(as, ARMI_LDR, tmp, dest, (int32_t)offsetof(Node, key.it)); - } - *l_loop = ARMF_CC(ARMI_B, CC_NE) | ((as->mcp-l_loop-2) & 0x00ffffffu); - - /* Load main position relative to tab->node into dest. */ - khash = irref_isk(refkey) ? ir_khash(irkey) : 1; - if (khash == 0) { - emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); - } else { - emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 3), dest, dest, tmp); - emit_dnm(as, ARMI_ADD|ARMF_SH(ARMSH_LSL, 1), tmp, tmp, tmp); - if (irt_isstr(kt)) { /* Fetch of str->hash is cheaper than ra_allock. */ - emit_dnm(as, ARMI_AND, tmp, tmp+1, RID_TMP); - emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); - emit_lso(as, ARMI_LDR, tmp+1, key, (int32_t)offsetof(GCstr, hash)); - emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); - } else if (irref_isk(refkey)) { - emit_opk(as, ARMI_AND, tmp, RID_TMP, (int32_t)khash, - rset_exclude(rset_exclude(RSET_GPR, tab), dest)); - emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); - emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); - } else { /* Must match with hash*() in lj_tab.c. */ - if (ra_hasreg(keynumhi)) { /* Canonicalize +-0.0 to 0.0. */ - if (keyhi == RID_TMP) - emit_dm(as, ARMF_CC(ARMI_MOV, CC_NE), keyhi, keynumhi); - emit_d(as, ARMF_CC(ARMI_MOV, CC_EQ)|ARMI_K12|0, keyhi); - } - emit_dnm(as, ARMI_AND, tmp, tmp, RID_TMP); - emit_dnm(as, ARMI_SUB|ARMF_SH(ARMSH_ROR, 32-HASH_ROT3), tmp, tmp, tmp+1); - emit_lso(as, ARMI_LDR, dest, tab, (int32_t)offsetof(GCtab, node)); - emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_ROR, 32-((HASH_ROT2+HASH_ROT1)&31)), - tmp, tmp+1, tmp); - emit_lso(as, ARMI_LDR, RID_TMP, tab, (int32_t)offsetof(GCtab, hmask)); - emit_dnm(as, ARMI_SUB|ARMF_SH(ARMSH_ROR, 32-HASH_ROT1), tmp+1, tmp+1, tmp); - if (ra_hasreg(keynumhi)) { - emit_dnm(as, ARMI_EOR, tmp+1, tmp, key); - emit_dnm(as, ARMI_ORR|ARMI_S, RID_TMP, tmp, key); /* Test for +-0.0. */ - emit_dnm(as, ARMI_ADD, tmp, keynumhi, keynumhi); -#if !LJ_SOFTFP - emit_dnm(as, ARMI_VMOV_RR_D, key, keynumhi, - (ra_alloc1(as, refkey, RSET_FPR) & 15)); -#endif - } else { - emit_dnm(as, ARMI_EOR, tmp+1, tmp, key); - emit_opk(as, ARMI_ADD, tmp, key, (int32_t)HASH_BIAS, - rset_exclude(rset_exclude(RSET_GPR, tab), key)); - } - } - } -} - -static void asm_hrefk(ASMState *as, IRIns *ir) -{ - IRIns *kslot = IR(ir->op2); - IRIns *irkey = IR(kslot->op1); - int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); - int32_t kofs = ofs + (int32_t)offsetof(Node, key); - Reg dest = (ra_used(ir) || ofs > 4095) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; - Reg node = ra_alloc1(as, ir->op1, RSET_GPR); - Reg key = RID_NONE, type = RID_TMP, idx = node; - RegSet allow = rset_exclude(RSET_GPR, node); - lua_assert(ofs % sizeof(Node) == 0); - if (ofs > 4095) { - idx = dest; - rset_clear(allow, dest); - kofs = (int32_t)offsetof(Node, key); - } else if (ra_hasreg(dest)) { - emit_opk(as, ARMI_ADD, dest, node, ofs, allow); - } - asm_guardcc(as, CC_NE); - if (!irt_ispri(irkey->t)) { - RegSet even = (as->freeset & allow); - even = even & (even >> 1) & RSET_GPREVEN; - if (even) { - key = ra_scratch(as, even); - if (rset_test(as->freeset, key+1)) { - type = key+1; - ra_modified(as, type); - } - } else { - key = ra_scratch(as, allow); - } - rset_clear(allow, key); - } - rset_clear(allow, type); - if (irt_isnum(irkey->t)) { - emit_opk(as, ARMF_CC(ARMI_CMP, CC_EQ), 0, type, - (int32_t)ir_knum(irkey)->u32.hi, allow); - emit_opk(as, ARMI_CMP, 0, key, - (int32_t)ir_knum(irkey)->u32.lo, allow); - } else { - if (ra_hasreg(key)) - emit_opk(as, ARMF_CC(ARMI_CMP, CC_EQ), 0, key, irkey->i, allow); - emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype(irkey->t), type); - } - emit_lso(as, ARMI_LDR, type, idx, kofs+4); - if (ra_hasreg(key)) emit_lso(as, ARMI_LDR, key, idx, kofs); - if (ofs > 4095) - emit_opk(as, ARMI_ADD, dest, node, ofs, RSET_GPR); -} - -static void asm_uref(ASMState *as, IRIns *ir) -{ - /* NYI: Check that UREFO is still open and not aliasing a slot. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; - emit_lsptr(as, ARMI_LDR, dest, v); - } else { - Reg uv = ra_scratch(as, RSET_GPR); - Reg func = ra_alloc1(as, ir->op1, RSET_GPR); - if (ir->o == IR_UREFC) { - asm_guardcc(as, CC_NE); - emit_n(as, ARMI_CMP|ARMI_K12|1, RID_TMP); - emit_opk(as, ARMI_ADD, dest, uv, - (int32_t)offsetof(GCupval, tv), RSET_GPR); - emit_lso(as, ARMI_LDRB, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); - } else { - emit_lso(as, ARMI_LDR, dest, uv, (int32_t)offsetof(GCupval, v)); - } - emit_lso(as, ARMI_LDR, uv, func, - (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); - } -} - -static void asm_fref(ASMState *as, IRIns *ir) -{ - UNUSED(as); UNUSED(ir); - lua_assert(!ra_used(ir)); -} - -static void asm_strref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - IRRef ref = ir->op2, refk = ir->op1; - Reg r; - if (irref_isk(ref)) { - IRRef tmp = refk; refk = ref; ref = tmp; - } else if (!irref_isk(refk)) { - uint32_t k, m = ARMI_K12|sizeof(GCstr); - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - IRIns *irr = IR(ir->op2); - if (ra_hasreg(irr->r)) { - ra_noweak(as, irr->r); - right = irr->r; - } else if (mayfuse(as, irr->op2) && - irr->o == IR_ADD && irref_isk(irr->op2) && - (k = emit_isk12(ARMI_ADD, - (int32_t)sizeof(GCstr) + IR(irr->op2)->i))) { - m = k; - right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); - } else { - right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); - } - emit_dn(as, ARMI_ADD^m, dest, dest); - emit_dnm(as, ARMI_ADD, dest, left, right); - return; - } - r = ra_alloc1(as, ref, RSET_GPR); - emit_opk(as, ARMI_ADD, dest, r, - sizeof(GCstr) + IR(refk)->i, rset_exclude(RSET_GPR, r)); -} - -/* -- Loads and stores ---------------------------------------------------- */ - -static ARMIns asm_fxloadins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: return ARMI_LDRSB; - case IRT_U8: return ARMI_LDRB; - case IRT_I16: return ARMI_LDRSH; - case IRT_U16: return ARMI_LDRH; - case IRT_NUM: lua_assert(!LJ_SOFTFP); return ARMI_VLDR_D; - case IRT_FLOAT: if (!LJ_SOFTFP) return ARMI_VLDR_S; - default: return ARMI_LDR; - } -} - -static ARMIns asm_fxstoreins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: case IRT_U8: return ARMI_STRB; - case IRT_I16: case IRT_U16: return ARMI_STRH; - case IRT_NUM: lua_assert(!LJ_SOFTFP); return ARMI_VSTR_D; - case IRT_FLOAT: if (!LJ_SOFTFP) return ARMI_VSTR_S; - default: return ARMI_STR; - } -} - -static void asm_fload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); - ARMIns ai = asm_fxloadins(ir); - int32_t ofs; - if (ir->op2 == IRFL_TAB_ARRAY) { - ofs = asm_fuseabase(as, ir->op1); - if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ - emit_dn(as, ARMI_ADD|ARMI_K12|ofs, dest, idx); - return; - } - } - ofs = field_ofs[ir->op2]; - if ((ai & 0x04000000)) - emit_lso(as, ai, dest, idx, ofs); - else - emit_lsox(as, ai, dest, idx, ofs); -} - -static void asm_fstore(ASMState *as, IRIns *ir) -{ - if (ir->r != RID_SINK) { - Reg src = ra_alloc1(as, ir->op2, RSET_GPR); - IRIns *irf = IR(ir->op1); - Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); - int32_t ofs = field_ofs[irf->op2]; - ARMIns ai = asm_fxstoreins(ir); - if ((ai & 0x04000000)) - emit_lso(as, ai, src, idx, ofs); - else - emit_lsox(as, ai, src, idx, ofs); - } -} - -static void asm_xload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, - (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR); - lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); - asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); -} - -static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) -{ - if (ir->r != RID_SINK) { - Reg src = ra_alloc1(as, ir->op2, - (!LJ_SOFTFP && irt_isfp(ir->t)) ? RSET_FPR : RSET_GPR); - asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, - rset_exclude(RSET_GPR, src), ofs); - } -} - -#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) - -static void asm_ahuvload(ASMState *as, IRIns *ir) -{ - int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); - IRType t = hiop ? IRT_NUM : irt_type(ir->t); - Reg dest = RID_NONE, type = RID_NONE, idx; - RegSet allow = RSET_GPR; - int32_t ofs = 0; - if (hiop && ra_used(ir+1)) { - type = ra_dest(as, ir+1, allow); - rset_clear(allow, type); - } - if (ra_used(ir)) { - lua_assert((LJ_SOFTFP ? 0 : irt_isnum(ir->t)) || - irt_isint(ir->t) || irt_isaddr(ir->t)); - dest = ra_dest(as, ir, (!LJ_SOFTFP && t == IRT_NUM) ? RSET_FPR : allow); - rset_clear(allow, dest); - } - idx = asm_fuseahuref(as, ir->op1, &ofs, allow, - (!LJ_SOFTFP && t == IRT_NUM) ? 1024 : 4096); - if (!hiop || type == RID_NONE) { - rset_clear(allow, idx); - if (ofs < 256 && ra_hasreg(dest) && (dest & 1) == 0 && - rset_test((as->freeset & allow), dest+1)) { - type = dest+1; - ra_modified(as, type); - } else { - type = RID_TMP; - } - } - asm_guardcc(as, t == IRT_NUM ? CC_HS : CC_NE); - emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype_(t), type); - if (ra_hasreg(dest)) { -#if !LJ_SOFTFP - if (t == IRT_NUM) - emit_vlso(as, ARMI_VLDR_D, dest, idx, ofs); - else -#endif - emit_lso(as, ARMI_LDR, dest, idx, ofs); - } - emit_lso(as, ARMI_LDR, type, idx, ofs+4); -} - -static void asm_ahustore(ASMState *as, IRIns *ir) -{ - if (ir->r != RID_SINK) { - RegSet allow = RSET_GPR; - Reg idx, src = RID_NONE, type = RID_NONE; - int32_t ofs = 0; -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { - src = ra_alloc1(as, ir->op2, RSET_FPR); - idx = asm_fuseahuref(as, ir->op1, &ofs, allow, 1024); - emit_vlso(as, ARMI_VSTR_D, src, idx, ofs); - } else -#endif - { - int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); - if (!irt_ispri(ir->t)) { - src = ra_alloc1(as, ir->op2, allow); - rset_clear(allow, src); - } - if (hiop) - type = ra_alloc1(as, (ir+1)->op2, allow); - else - type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); - idx = asm_fuseahuref(as, ir->op1, &ofs, rset_exclude(allow, type), 4096); - if (ra_hasreg(src)) emit_lso(as, ARMI_STR, src, idx, ofs); - emit_lso(as, ARMI_STR, type, idx, ofs+4); - } - } -} - -static void asm_sload(ASMState *as, IRIns *ir) -{ - int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); - int hiop = (LJ_SOFTFP && (ir+1)->o == IR_HIOP); - IRType t = hiop ? IRT_NUM : irt_type(ir->t); - Reg dest = RID_NONE, type = RID_NONE, base; - RegSet allow = RSET_GPR; - lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ - lua_assert(irt_isguard(ir->t) || !(ir->op2 & IRSLOAD_TYPECHECK)); -#if LJ_SOFTFP - lua_assert(!(ir->op2 & IRSLOAD_CONVERT)); /* Handled by LJ_SOFTFP SPLIT. */ - if (hiop && ra_used(ir+1)) { - type = ra_dest(as, ir+1, allow); - rset_clear(allow, type); - } -#else - if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(ir->t) && t == IRT_INT) { - dest = ra_scratch(as, RSET_FPR); - asm_tointg(as, ir, dest); - t = IRT_NUM; /* Continue with a regular number type check. */ - } else -#endif - if (ra_used(ir)) { - Reg tmp = RID_NONE; - if ((ir->op2 & IRSLOAD_CONVERT)) - tmp = ra_scratch(as, t == IRT_INT ? RSET_FPR : RSET_GPR); - lua_assert((LJ_SOFTFP ? 0 : irt_isnum(ir->t)) || - irt_isint(ir->t) || irt_isaddr(ir->t)); - dest = ra_dest(as, ir, (!LJ_SOFTFP && t == IRT_NUM) ? RSET_FPR : allow); - rset_clear(allow, dest); - base = ra_alloc1(as, REF_BASE, allow); - if ((ir->op2 & IRSLOAD_CONVERT)) { - if (t == IRT_INT) { - emit_dn(as, ARMI_VMOV_R_S, dest, (tmp & 15)); - emit_dm(as, ARMI_VCVT_S32_F64, (tmp & 15), (tmp & 15)); - t = IRT_NUM; /* Check for original type. */ - } else { - emit_dm(as, ARMI_VCVT_F64_S32, (dest & 15), (dest & 15)); - emit_dn(as, ARMI_VMOV_S_R, tmp, (dest & 15)); - t = IRT_INT; /* Check for original type. */ - } - dest = tmp; - } - goto dotypecheck; - } - base = ra_alloc1(as, REF_BASE, allow); -dotypecheck: - rset_clear(allow, base); - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - if (ra_noreg(type)) { - if (ofs < 256 && ra_hasreg(dest) && (dest & 1) == 0 && - rset_test((as->freeset & allow), dest+1)) { - type = dest+1; - ra_modified(as, type); - } else { - type = RID_TMP; - } - } - asm_guardcc(as, t == IRT_NUM ? CC_HS : CC_NE); - emit_n(as, ARMI_CMN|ARMI_K12|-irt_toitype_(t), type); - } - if (ra_hasreg(dest)) { -#if !LJ_SOFTFP - if (t == IRT_NUM) { - if (ofs < 1024) { - emit_vlso(as, ARMI_VLDR_D, dest, base, ofs); - } else { - if (ra_hasreg(type)) emit_lso(as, ARMI_LDR, type, base, ofs+4); - emit_vlso(as, ARMI_VLDR_D, dest, RID_TMP, 0); - emit_opk(as, ARMI_ADD, RID_TMP, base, ofs, allow); - return; - } - } else -#endif - emit_lso(as, ARMI_LDR, dest, base, ofs); - } - if (ra_hasreg(type)) emit_lso(as, ARMI_LDR, type, base, ofs+4); -} - -/* -- Allocations --------------------------------------------------------- */ - -#if LJ_HASFFI -static void asm_cnew(ASMState *as, IRIns *ir) -{ - CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID id = (CTypeID)IR(ir->op1)->i; - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[4]; - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); - RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - - as->gcsteps++; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - if (ra_used(ir)) - ra_destreg(as, ir, RID_RET); /* GCcdata * */ - - /* Initialize immutable cdata object. */ - if (ir->o == IR_CNEWI) { - int32_t ofs = sizeof(GCcdata); - lua_assert(sz == 4 || sz == 8); - if (sz == 8) { - ofs += 4; ir++; - lua_assert(ir->o == IR_HIOP); - } - for (;;) { - Reg r = ra_alloc1(as, ir->op2, allow); - emit_lso(as, ARMI_STR, r, RID_RET, ofs); - rset_clear(allow, r); - if (ofs == sizeof(GCcdata)) break; - ofs -= 4; ir--; - } - } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ - ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* CTypeID id */ - args[2] = ir->op2; /* CTSize sz */ - args[3] = ASMREF_TMP1; /* CTSize align */ - asm_gencall(as, ci, args); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); - return; - } - - /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ - { - uint32_t k = emit_isk12(ARMI_MOV, id); - Reg r = k ? RID_R1 : ra_allock(as, id, allow); - emit_lso(as, ARMI_STRB, RID_TMP, RID_RET, offsetof(GCcdata, gct)); - emit_lsox(as, ARMI_STRH, r, RID_RET, offsetof(GCcdata, ctypeid)); - emit_d(as, ARMI_MOV|ARMI_K12|~LJ_TCDATA, RID_TMP); - if (k) emit_d(as, ARMI_MOV^k, RID_R1); - } - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ - asm_gencall(as, ci, args); - ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), - ra_releasetmp(as, ASMREF_TMP1)); -} -#else -#define asm_cnew(as, ir) ((void)0) -#endif - -/* -- Write barriers ------------------------------------------------------ */ - -static void asm_tbar(ASMState *as, IRIns *ir) -{ - Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); - Reg link = ra_scratch(as, rset_exclude(RSET_GPR, tab)); - Reg gr = ra_allock(as, i32ptr(J2G(as->J)), - rset_exclude(rset_exclude(RSET_GPR, tab), link)); - Reg mark = RID_TMP; - MCLabel l_end = emit_label(as); - emit_lso(as, ARMI_STR, link, tab, (int32_t)offsetof(GCtab, gclist)); - emit_lso(as, ARMI_STRB, mark, tab, (int32_t)offsetof(GCtab, marked)); - emit_lso(as, ARMI_STR, tab, gr, - (int32_t)offsetof(global_State, gc.grayagain)); - emit_dn(as, ARMI_BIC|ARMI_K12|LJ_GC_BLACK, mark, mark); - emit_lso(as, ARMI_LDR, link, gr, - (int32_t)offsetof(global_State, gc.grayagain)); - emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); - emit_n(as, ARMI_TST|ARMI_K12|LJ_GC_BLACK, mark); - emit_lso(as, ARMI_LDRB, mark, tab, (int32_t)offsetof(GCtab, marked)); -} - -static void asm_obar(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; - IRRef args[2]; - MCLabel l_end; - Reg obj, val, tmp; - /* No need for other object barriers (yet). */ - lua_assert(IR(ir->op1)->o == IR_UREFC); - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ir->op1; /* TValue *tv */ - asm_gencall(as, ci, args); - if ((l_end[-1] >> 28) == CC_AL) - l_end[-1] = ARMF_CC(l_end[-1], CC_NE); - else - emit_branch(as, ARMF_CC(ARMI_B, CC_EQ), l_end); - ra_allockreg(as, i32ptr(J2G(as->J)), ra_releasetmp(as, ASMREF_TMP1)); - obj = IR(ir->op1)->r; - tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); - emit_n(as, ARMF_CC(ARMI_TST, CC_NE)|ARMI_K12|LJ_GC_BLACK, tmp); - emit_n(as, ARMI_TST|ARMI_K12|LJ_GC_WHITES, RID_TMP); - val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); - emit_lso(as, ARMI_LDRB, tmp, obj, - (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); - emit_lso(as, ARMI_LDRB, RID_TMP, val, (int32_t)offsetof(GChead, marked)); -} - -/* -- Arithmetic and logic operations ------------------------------------- */ - -#if !LJ_SOFTFP -static void asm_fparith(ASMState *as, IRIns *ir, ARMIns ai) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - emit_dnm(as, ai, (dest & 15), (left & 15), (right & 15)); -} - -static void asm_fpunary(ASMState *as, IRIns *ir, ARMIns ai) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); - emit_dm(as, ai, (dest & 15), (left & 15)); -} - -static void asm_callround(ASMState *as, IRIns *ir, int id) -{ - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RID2RSET(RID_R0)|RID2RSET(RID_R1)|RID2RSET(RID_R2)| - RID2RSET(RID_R3)|RID2RSET(RID_R12); - RegSet of; - Reg dest, src; - ra_evictset(as, drop); - dest = ra_dest(as, ir, RSET_FPR); - emit_dnm(as, ARMI_VMOV_D_RR, RID_RETLO, RID_RETHI, (dest & 15)); - emit_call(as, id == IRFPM_FLOOR ? (void *)lj_vm_floor_sf : - id == IRFPM_CEIL ? (void *)lj_vm_ceil_sf : - (void *)lj_vm_trunc_sf); - /* Workaround to protect argument GPRs from being used for remat. */ - of = as->freeset; - as->freeset &= ~RSET_RANGE(RID_R0, RID_R1+1); - as->cost[RID_R0] = as->cost[RID_R1] = REGCOST(~0u, ASMREF_L); - src = ra_alloc1(as, ir->op1, RSET_FPR); /* May alloc GPR to remat FPR. */ - as->freeset |= (of & RSET_RANGE(RID_R0, RID_R1+1)); - emit_dnm(as, ARMI_VMOV_RR_D, RID_R0, RID_R1, (src & 15)); -} - -static void asm_fpmath(ASMState *as, IRIns *ir) -{ - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - return; - if (ir->op2 <= IRFPM_TRUNC) - asm_callround(as, ir, ir->op2); - else if (ir->op2 == IRFPM_SQRT) - asm_fpunary(as, ir, ARMI_VSQRT_D); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); -} -#else -#define asm_fpmath(as, ir) lua_assert(0) -#endif - -static int asm_swapops(ASMState *as, IRRef lref, IRRef rref) -{ - IRIns *ir; - if (irref_isk(rref)) - return 0; /* Don't swap constants to the left. */ - if (irref_isk(lref)) - return 1; /* But swap constants to the right. */ - ir = IR(rref); - if ((ir->o >= IR_BSHL && ir->o <= IR_BROR) || - (ir->o == IR_ADD && ir->op1 == ir->op2)) - return 0; /* Don't swap fusable operands to the left. */ - ir = IR(lref); - if ((ir->o >= IR_BSHL && ir->o <= IR_BROR) || - (ir->o == IR_ADD && ir->op1 == ir->op2)) - return 1; /* But swap fusable operands to the right. */ - return 0; /* Otherwise don't swap. */ -} - -static void asm_intop(ASMState *as, IRIns *ir, ARMIns ai) -{ - IRRef lref = ir->op1, rref = ir->op2; - Reg left, dest = ra_dest(as, ir, RSET_GPR); - uint32_t m; - if (asm_swapops(as, lref, rref)) { - IRRef tmp = lref; lref = rref; rref = tmp; - if ((ai & ~ARMI_S) == ARMI_SUB || (ai & ~ARMI_S) == ARMI_SBC) - ai ^= (ARMI_SUB^ARMI_RSB); - } - left = ra_hintalloc(as, lref, dest, RSET_GPR); - m = asm_fuseopm(as, ai, rref, rset_exclude(RSET_GPR, left)); - if (irt_isguard(ir->t)) { /* For IR_ADDOV etc. */ - asm_guardcc(as, CC_VS); - ai |= ARMI_S; - } - emit_dn(as, ai^m, dest, left); -} - -static void asm_intop_s(ASMState *as, IRIns *ir, ARMIns ai) -{ - if (as->flagmcp == as->mcp) { /* Drop cmp r, #0. */ - as->flagmcp = NULL; - as->mcp++; - ai |= ARMI_S; - } - asm_intop(as, ir, ai); -} - -static void asm_intneg(ASMState *as, IRIns *ir, ARMIns ai) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - emit_dn(as, ai|ARMI_K12|0, dest, left); -} - -/* NYI: use add/shift for MUL(OV) with constants. FOLD only does 2^k. */ -static void asm_intmul(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, dest)); - Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - Reg tmp = RID_NONE; - /* ARMv5 restriction: dest != left and dest_hi != left. */ - if (dest == left && left != right) { left = right; right = dest; } - if (irt_isguard(ir->t)) { /* IR_MULOV */ - if (!(as->flags & JIT_F_ARMV6) && dest == left) - tmp = left = ra_scratch(as, rset_exclude(RSET_GPR, left)); - asm_guardcc(as, CC_NE); - emit_nm(as, ARMI_TEQ|ARMF_SH(ARMSH_ASR, 31), RID_TMP, dest); - emit_dnm(as, ARMI_SMULL|ARMF_S(right), dest, RID_TMP, left); - } else { - if (!(as->flags & JIT_F_ARMV6) && dest == left) tmp = left = RID_TMP; - emit_nm(as, ARMI_MUL|ARMF_S(right), dest, left); - } - /* Only need this for the dest == left == right case. */ - if (ra_hasreg(tmp)) emit_dm(as, ARMI_MOV, tmp, right); -} - -static void asm_add(ASMState *as, IRIns *ir) -{ -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { - if (!asm_fusemadd(as, ir, ARMI_VMLA_D, ARMI_VMLA_D)) - asm_fparith(as, ir, ARMI_VADD_D); - return; - } -#endif - asm_intop_s(as, ir, ARMI_ADD); -} - -static void asm_sub(ASMState *as, IRIns *ir) -{ -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { - if (!asm_fusemadd(as, ir, ARMI_VNMLS_D, ARMI_VMLS_D)) - asm_fparith(as, ir, ARMI_VSUB_D); - return; - } -#endif - asm_intop_s(as, ir, ARMI_SUB); -} - -static void asm_mul(ASMState *as, IRIns *ir) -{ -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { - asm_fparith(as, ir, ARMI_VMUL_D); - return; - } -#endif - asm_intmul(as, ir); -} - -#define asm_addov(as, ir) asm_add(as, ir) -#define asm_subov(as, ir) asm_sub(as, ir) -#define asm_mulov(as, ir) asm_mul(as, ir) - -#if LJ_SOFTFP -#define asm_div(as, ir) lua_assert(0) -#define asm_pow(as, ir) lua_assert(0) -#define asm_abs(as, ir) lua_assert(0) -#define asm_atan2(as, ir) lua_assert(0) -#define asm_ldexp(as, ir) lua_assert(0) -#else -#define asm_div(as, ir) asm_fparith(as, ir, ARMI_VDIV_D) -#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) -#define asm_abs(as, ir) asm_fpunary(as, ir, ARMI_VABS_D) -#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) -#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) -#endif - -#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) - -static void asm_neg(ASMState *as, IRIns *ir) -{ -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) { - asm_fpunary(as, ir, ARMI_VNEG_D); - return; - } -#endif - asm_intneg(as, ir, ARMI_RSB); -} - -static void asm_bitop(ASMState *as, IRIns *ir, ARMIns ai) -{ - if (as->flagmcp == as->mcp) { /* Try to drop cmp r, #0. */ - uint32_t cc = (as->mcp[1] >> 28); - as->flagmcp = NULL; - if (cc <= CC_NE) { - as->mcp++; - ai |= ARMI_S; - } else if (cc == CC_GE) { - *++as->mcp ^= ((CC_GE^CC_PL) << 28); - ai |= ARMI_S; - } else if (cc == CC_LT) { - *++as->mcp ^= ((CC_LT^CC_MI) << 28); - ai |= ARMI_S; - } /* else: other conds don't work with bit ops. */ - } - if (ir->op2 == 0) { - Reg dest = ra_dest(as, ir, RSET_GPR); - uint32_t m = asm_fuseopm(as, ai, ir->op1, RSET_GPR); - emit_d(as, ai^m, dest); - } else { - /* NYI: Turn BAND !k12 into uxtb, uxth or bfc or shl+shr. */ - asm_intop(as, ir, ai); - } -} - -#define asm_bnot(as, ir) asm_bitop(as, ir, ARMI_MVN) - -static void asm_bswap(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - if ((as->flags & JIT_F_ARMV6)) { - emit_dm(as, ARMI_REV, dest, left); - } else { - Reg tmp2 = dest; - if (tmp2 == left) - tmp2 = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, dest), left)); - emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_LSR, 8), dest, tmp2, RID_TMP); - emit_dm(as, ARMI_MOV|ARMF_SH(ARMSH_ROR, 8), tmp2, left); - emit_dn(as, ARMI_BIC|ARMI_K12|256*8|255, RID_TMP, RID_TMP); - emit_dnm(as, ARMI_EOR|ARMF_SH(ARMSH_ROR, 16), RID_TMP, left, left); - } -} - -#define asm_band(as, ir) asm_bitop(as, ir, ARMI_AND) -#define asm_bor(as, ir) asm_bitop(as, ir, ARMI_ORR) -#define asm_bxor(as, ir) asm_bitop(as, ir, ARMI_EOR) - -static void asm_bitshift(ASMState *as, IRIns *ir, ARMShift sh) -{ - if (irref_isk(ir->op2)) { /* Constant shifts. */ - /* NYI: Turn SHL+SHR or BAND+SHR into uxtb, uxth or ubfx. */ - /* NYI: Turn SHL+ASR into sxtb, sxth or sbfx. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - int32_t shift = (IR(ir->op2)->i & 31); - emit_dm(as, ARMI_MOV|ARMF_SH(sh, shift), dest, left); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_dm(as, ARMI_MOV|ARMF_RSH(sh, right), dest, left); - } -} - -#define asm_bshl(as, ir) asm_bitshift(as, ir, ARMSH_LSL) -#define asm_bshr(as, ir) asm_bitshift(as, ir, ARMSH_LSR) -#define asm_bsar(as, ir) asm_bitshift(as, ir, ARMSH_ASR) -#define asm_bror(as, ir) asm_bitshift(as, ir, ARMSH_ROR) -#define asm_brol(as, ir) lua_assert(0) - -static void asm_intmin_max(ASMState *as, IRIns *ir, int cc) -{ - uint32_t kcmp = 0, kmov = 0; - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - Reg right = 0; - if (irref_isk(ir->op2)) { - kcmp = emit_isk12(ARMI_CMP, IR(ir->op2)->i); - if (kcmp) kmov = emit_isk12(ARMI_MOV, IR(ir->op2)->i); - } - if (!kmov) { - kcmp = 0; - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - } - if (kmov || dest != right) { - emit_dm(as, ARMF_CC(ARMI_MOV, cc)^kmov, dest, right); - cc ^= 1; /* Must use opposite conditions for paired moves. */ - } else { - cc ^= (CC_LT^CC_GT); /* Otherwise may swap CC_LT <-> CC_GT. */ - } - if (dest != left) emit_dm(as, ARMF_CC(ARMI_MOV, cc), dest, left); - emit_nm(as, ARMI_CMP^kcmp, left, right); -} - -#if LJ_SOFTFP -static void asm_sfpmin_max(ASMState *as, IRIns *ir, int cc) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_softfp_cmp]; - RegSet drop = RSET_SCRATCH; - Reg r; - IRRef args[4]; - args[0] = ir->op1; args[1] = (ir+1)->op1; - args[2] = ir->op2; args[3] = (ir+1)->op2; - /* __aeabi_cdcmple preserves r0-r3. */ - if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); - if (ra_hasreg((ir+1)->r)) rset_clear(drop, (ir+1)->r); - if (!rset_test(as->freeset, RID_R2) && - regcost_ref(as->cost[RID_R2]) == args[2]) rset_clear(drop, RID_R2); - if (!rset_test(as->freeset, RID_R3) && - regcost_ref(as->cost[RID_R3]) == args[3]) rset_clear(drop, RID_R3); - ra_evictset(as, drop); - ra_destpair(as, ir); - emit_dm(as, ARMF_CC(ARMI_MOV, cc), RID_RETHI, RID_R3); - emit_dm(as, ARMF_CC(ARMI_MOV, cc), RID_RETLO, RID_R2); - emit_call(as, (void *)ci->func); - for (r = RID_R0; r <= RID_R3; r++) - ra_leftov(as, r, args[r-RID_R0]); -} -#else -static void asm_fpmin_max(ASMState *as, IRIns *ir, int cc) -{ - Reg dest = (ra_dest(as, ir, RSET_FPR) & 15); - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = ((left >> 8) & 15); left &= 15; - if (dest != left) emit_dm(as, ARMF_CC(ARMI_VMOV_D, cc^1), dest, left); - if (dest != right) emit_dm(as, ARMF_CC(ARMI_VMOV_D, cc), dest, right); - emit_d(as, ARMI_VMRS, 0); - emit_dm(as, ARMI_VCMP_D, left, right); -} -#endif - -static void asm_min_max(ASMState *as, IRIns *ir, int cc, int fcc) -{ -#if LJ_SOFTFP - UNUSED(fcc); -#else - if (irt_isnum(ir->t)) - asm_fpmin_max(as, ir, fcc); - else -#endif - asm_intmin_max(as, ir, cc); -} - -#define asm_min(as, ir) asm_min_max(as, ir, CC_GT, CC_HI) -#define asm_max(as, ir) asm_min_max(as, ir, CC_LT, CC_LO) - -/* -- Comparisons --------------------------------------------------------- */ - -/* Map of comparisons to flags. ORDER IR. */ -static const uint8_t asm_compmap[IR_ABC+1] = { - /* op FP swp int cc FP cc */ - /* LT */ CC_GE + (CC_HS << 4), - /* GE x */ CC_LT + (CC_HI << 4), - /* LE */ CC_GT + (CC_HI << 4), - /* GT x */ CC_LE + (CC_HS << 4), - /* ULT x */ CC_HS + (CC_LS << 4), - /* UGE */ CC_LO + (CC_LO << 4), - /* ULE x */ CC_HI + (CC_LO << 4), - /* UGT */ CC_LS + (CC_LS << 4), - /* EQ */ CC_NE + (CC_NE << 4), - /* NE */ CC_EQ + (CC_EQ << 4), - /* ABC */ CC_LS + (CC_LS << 4) /* Same as UGT. */ -}; - -#if LJ_SOFTFP -/* FP comparisons. */ -static void asm_sfpcomp(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_softfp_cmp]; - RegSet drop = RSET_SCRATCH; - Reg r; - IRRef args[4]; - int swp = (((ir->o ^ (ir->o >> 2)) & ~(ir->o >> 3) & 1) << 1); - args[swp^0] = ir->op1; args[swp^1] = (ir+1)->op1; - args[swp^2] = ir->op2; args[swp^3] = (ir+1)->op2; - /* __aeabi_cdcmple preserves r0-r3. This helps to reduce spills. */ - for (r = RID_R0; r <= RID_R3; r++) - if (!rset_test(as->freeset, r) && - regcost_ref(as->cost[r]) == args[r-RID_R0]) rset_clear(drop, r); - ra_evictset(as, drop); - asm_guardcc(as, (asm_compmap[ir->o] >> 4)); - emit_call(as, (void *)ci->func); - for (r = RID_R0; r <= RID_R3; r++) - ra_leftov(as, r, args[r-RID_R0]); -} -#else -/* FP comparisons. */ -static void asm_fpcomp(ASMState *as, IRIns *ir) -{ - Reg left, right; - ARMIns ai; - int swp = ((ir->o ^ (ir->o >> 2)) & ~(ir->o >> 3) & 1); - if (!swp && irref_isk(ir->op2) && ir_knum(IR(ir->op2))->u64 == 0) { - left = (ra_alloc1(as, ir->op1, RSET_FPR) & 15); - right = 0; - ai = ARMI_VCMPZ_D; - } else { - left = ra_alloc2(as, ir, RSET_FPR); - if (swp) { - right = (left & 15); left = ((left >> 8) & 15); - } else { - right = ((left >> 8) & 15); left &= 15; - } - ai = ARMI_VCMP_D; - } - asm_guardcc(as, (asm_compmap[ir->o] >> 4)); - emit_d(as, ARMI_VMRS, 0); - emit_dm(as, ai, left, right); -} -#endif - -/* Integer comparisons. */ -static void asm_intcomp(ASMState *as, IRIns *ir) -{ - ARMCC cc = (asm_compmap[ir->o] & 15); - IRRef lref = ir->op1, rref = ir->op2; - Reg left; - uint32_t m; - int cmpprev0 = 0; - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); - if (asm_swapops(as, lref, rref)) { - Reg tmp = lref; lref = rref; rref = tmp; - if (cc >= CC_GE) cc ^= 7; /* LT <-> GT, LE <-> GE */ - else if (cc > CC_NE) cc ^= 11; /* LO <-> HI, LS <-> HS */ - } - if (irref_isk(rref) && IR(rref)->i == 0) { - IRIns *irl = IR(lref); - cmpprev0 = (irl+1 == ir); - /* Combine comp(BAND(left, right), 0) into tst left, right. */ - if (cmpprev0 && irl->o == IR_BAND && !ra_used(irl)) { - IRRef blref = irl->op1, brref = irl->op2; - uint32_t m2 = 0; - Reg bleft; - if (asm_swapops(as, blref, brref)) { - Reg tmp = blref; blref = brref; brref = tmp; - } - if (irref_isk(brref)) { - m2 = emit_isk12(ARMI_AND, IR(brref)->i); - if ((m2 & (ARMI_AND^ARMI_BIC))) - goto notst; /* Not beneficial if we miss a constant operand. */ - } - if (cc == CC_GE) cc = CC_PL; - else if (cc == CC_LT) cc = CC_MI; - else if (cc > CC_NE) goto notst; /* Other conds don't work with tst. */ - bleft = ra_alloc1(as, blref, RSET_GPR); - if (!m2) m2 = asm_fuseopm(as, 0, brref, rset_exclude(RSET_GPR, bleft)); - asm_guardcc(as, cc); - emit_n(as, ARMI_TST^m2, bleft); - return; - } - } -notst: - left = ra_alloc1(as, lref, RSET_GPR); - m = asm_fuseopm(as, ARMI_CMP, rref, rset_exclude(RSET_GPR, left)); - asm_guardcc(as, cc); - emit_n(as, ARMI_CMP^m, left); - /* Signed comparison with zero and referencing previous ins? */ - if (cmpprev0 && (cc <= CC_NE || cc >= CC_GE)) - as->flagmcp = as->mcp; /* Allow elimination of the compare. */ -} - -static void asm_comp(ASMState *as, IRIns *ir) -{ -#if !LJ_SOFTFP - if (irt_isnum(ir->t)) - asm_fpcomp(as, ir); - else -#endif - asm_intcomp(as, ir); -} - -#define asm_equal(as, ir) asm_comp(as, ir) - -#if LJ_HASFFI -/* 64 bit integer comparisons. */ -static void asm_int64comp(ASMState *as, IRIns *ir) -{ - int signedcomp = (ir->o <= IR_GT); - ARMCC cclo, cchi; - Reg leftlo, lefthi; - uint32_t mlo, mhi; - RegSet allow = RSET_GPR, oldfree; - - /* Always use unsigned comparison for loword. */ - cclo = asm_compmap[ir->o + (signedcomp ? 4 : 0)] & 15; - leftlo = ra_alloc1(as, ir->op1, allow); - oldfree = as->freeset; - mlo = asm_fuseopm(as, ARMI_CMP, ir->op2, rset_clear(allow, leftlo)); - allow &= ~(oldfree & ~as->freeset); /* Update for allocs of asm_fuseopm. */ - - /* Use signed or unsigned comparison for hiword. */ - cchi = asm_compmap[ir->o] & 15; - lefthi = ra_alloc1(as, (ir+1)->op1, allow); - mhi = asm_fuseopm(as, ARMI_CMP, (ir+1)->op2, rset_clear(allow, lefthi)); - - /* All register allocations must be performed _before_ this point. */ - if (signedcomp) { - MCLabel l_around = emit_label(as); - asm_guardcc(as, cclo); - emit_n(as, ARMI_CMP^mlo, leftlo); - emit_branch(as, ARMF_CC(ARMI_B, CC_NE), l_around); - if (cchi == CC_GE || cchi == CC_LE) cchi ^= 6; /* GE -> GT, LE -> LT */ - asm_guardcc(as, cchi); - } else { - asm_guardcc(as, cclo); - emit_n(as, ARMF_CC(ARMI_CMP, CC_EQ)^mlo, leftlo); - } - emit_n(as, ARMI_CMP^mhi, lefthi); -} -#endif - -/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ - -/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ -static void asm_hiop(ASMState *as, IRIns *ir) -{ -#if LJ_HASFFI || LJ_SOFTFP - /* HIOP is marked as a store because it needs its own DCE logic. */ - int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ - if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; - if ((ir-1)->o <= IR_NE) { /* 64 bit integer or FP comparisons. ORDER IR. */ - as->curins--; /* Always skip the loword comparison. */ -#if LJ_SOFTFP - if (!irt_isint(ir->t)) { - asm_sfpcomp(as, ir-1); - return; - } -#endif -#if LJ_HASFFI - asm_int64comp(as, ir-1); -#endif - return; -#if LJ_SOFTFP - } else if ((ir-1)->o == IR_MIN || (ir-1)->o == IR_MAX) { - as->curins--; /* Always skip the loword min/max. */ - if (uselo || usehi) - asm_sfpmin_max(as, ir-1, (ir-1)->o == IR_MIN ? CC_HI : CC_LO); - return; -#elif LJ_HASFFI - } else if ((ir-1)->o == IR_CONV) { - as->curins--; /* Always skip the CONV. */ - if (usehi || uselo) - asm_conv64(as, ir); - return; -#endif - } else if ((ir-1)->o == IR_XSTORE) { - if ((ir-1)->r != RID_SINK) - asm_xstore_(as, ir, 4); - return; - } - if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ - switch ((ir-1)->o) { -#if LJ_HASFFI - case IR_ADD: - as->curins--; - asm_intop(as, ir, ARMI_ADC); - asm_intop(as, ir-1, ARMI_ADD|ARMI_S); - break; - case IR_SUB: - as->curins--; - asm_intop(as, ir, ARMI_SBC); - asm_intop(as, ir-1, ARMI_SUB|ARMI_S); - break; - case IR_NEG: - as->curins--; - asm_intneg(as, ir, ARMI_RSC); - asm_intneg(as, ir-1, ARMI_RSB|ARMI_S); - break; -#endif -#if LJ_SOFTFP - case IR_SLOAD: case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - case IR_STRTO: - if (!uselo) - ra_allocref(as, ir->op1, RSET_GPR); /* Mark lo op as used. */ - break; -#endif - case IR_CALLN: - case IR_CALLS: - case IR_CALLXS: - if (!uselo) - ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ - break; -#if LJ_SOFTFP - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: case IR_TOSTR: -#endif - case IR_CNEWI: - /* Nothing to do here. Handled by lo op itself. */ - break; - default: lua_assert(0); break; - } -#else - UNUSED(as); UNUSED(ir); lua_assert(0); -#endif -} - -/* -- Profiling ----------------------------------------------------------- */ - -static void asm_prof(ASMState *as, IRIns *ir) -{ - UNUSED(ir); - asm_guardcc(as, CC_NE); - emit_n(as, ARMI_TST|ARMI_K12|HOOK_PROFILE, RID_TMP); - emit_lsptr(as, ARMI_LDRB, RID_TMP, (void *)&J2G(as->J)->hookmask); -} - -/* -- Stack handling ------------------------------------------------------ */ - -/* Check Lua stack size for overflow. Use exit handler as fallback. */ -static void asm_stack_check(ASMState *as, BCReg topslot, - IRIns *irp, RegSet allow, ExitNo exitno) -{ - Reg pbase; - uint32_t k; - if (irp) { - if (!ra_hasspill(irp->s)) { - pbase = irp->r; - lua_assert(ra_hasreg(pbase)); - } else if (allow) { - pbase = rset_pickbot(allow); - } else { - pbase = RID_RET; - emit_lso(as, ARMI_LDR, RID_RET, RID_SP, 0); /* Restore temp. register. */ - } - } else { - pbase = RID_BASE; - } - emit_branch(as, ARMF_CC(ARMI_BL, CC_LS), exitstub_addr(as->J, exitno)); - k = emit_isk12(0, (int32_t)(8*topslot)); - lua_assert(k); - emit_n(as, ARMI_CMP^k, RID_TMP); - emit_dnm(as, ARMI_SUB, RID_TMP, RID_TMP, pbase); - emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, - (int32_t)offsetof(lua_State, maxstack)); - if (irp) { /* Must not spill arbitrary registers in head of side trace. */ - int32_t i = i32ptr(&J2G(as->J)->cur_L); - if (ra_hasspill(irp->s)) - emit_lso(as, ARMI_LDR, pbase, RID_SP, sps_scale(irp->s)); - emit_lso(as, ARMI_LDR, RID_TMP, RID_TMP, (i & 4095)); - if (ra_hasspill(irp->s) && !allow) - emit_lso(as, ARMI_STR, RID_RET, RID_SP, 0); /* Save temp. register. */ - emit_loadi(as, RID_TMP, (i & ~4095)); - } else { - emit_getgl(as, RID_TMP, cur_L); - } -} - -/* Restore Lua stack from on-trace state. */ -static void asm_stack_restore(ASMState *as, SnapShot *snap) -{ - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; - MSize n, nent = snap->nent; - /* Store the value of all modified slots to the Lua stack. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - BCReg s = snap_slot(sn); - int32_t ofs = 8*((int32_t)s-1); - IRRef ref = snap_ref(sn); - IRIns *ir = IR(ref); - if ((sn & SNAP_NORESTORE)) - continue; - if (irt_isnum(ir->t)) { -#if LJ_SOFTFP - RegSet odd = rset_exclude(RSET_GPRODD, RID_BASE); - Reg tmp; - lua_assert(irref_isk(ref)); /* LJ_SOFTFP: must be a number constant. */ - tmp = ra_allock(as, (int32_t)ir_knum(ir)->u32.lo, - rset_exclude(RSET_GPREVEN, RID_BASE)); - emit_lso(as, ARMI_STR, tmp, RID_BASE, ofs); - if (rset_test(as->freeset, tmp+1)) odd = RID2RSET(tmp+1); - tmp = ra_allock(as, (int32_t)ir_knum(ir)->u32.hi, odd); - emit_lso(as, ARMI_STR, tmp, RID_BASE, ofs+4); -#else - Reg src = ra_alloc1(as, ref, RSET_FPR); - emit_vlso(as, ARMI_VSTR_D, src, RID_BASE, ofs); -#endif - } else { - RegSet odd = rset_exclude(RSET_GPRODD, RID_BASE); - Reg type; - lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPREVEN, RID_BASE)); - emit_lso(as, ARMI_STR, src, RID_BASE, ofs); - if (rset_test(as->freeset, src+1)) odd = RID2RSET(src+1); - } - if ((sn & (SNAP_CONT|SNAP_FRAME))) { - if (s == 0) continue; /* Do not overwrite link to previous frame. */ - type = ra_allock(as, (int32_t)(*flinks--), odd); -#if LJ_SOFTFP - } else if ((sn & SNAP_SOFTFPNUM)) { - type = ra_alloc1(as, ref+1, rset_exclude(RSET_GPRODD, RID_BASE)); -#endif - } else { - type = ra_allock(as, (int32_t)irt_toitype(ir->t), odd); - } - emit_lso(as, ARMI_STR, type, RID_BASE, ofs+4); - } - checkmclim(as); - } - lua_assert(map + nent == flinks); -} - -/* -- GC handling --------------------------------------------------------- */ - -/* Check GC threshold and do one or more GC steps. */ -static void asm_gc_check(ASMState *as) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; - IRRef args[2]; - MCLabel l_end; - Reg tmp1, tmp2; - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ - asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ - emit_n(as, ARMI_CMP|ARMI_K12|0, RID_RET); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ASMREF_TMP2; /* MSize steps */ - asm_gencall(as, ci, args); - tmp1 = ra_releasetmp(as, ASMREF_TMP1); - tmp2 = ra_releasetmp(as, ASMREF_TMP2); - emit_loadi(as, tmp2, as->gcsteps); - /* Jump around GC step if GC total < GC threshold. */ - emit_branch(as, ARMF_CC(ARMI_B, CC_LS), l_end); - emit_nm(as, ARMI_CMP, RID_TMP, tmp2); - emit_lso(as, ARMI_LDR, tmp2, tmp1, - (int32_t)offsetof(global_State, gc.threshold)); - emit_lso(as, ARMI_LDR, RID_TMP, tmp1, - (int32_t)offsetof(global_State, gc.total)); - ra_allockreg(as, i32ptr(J2G(as->J)), tmp1); - as->gcsteps = 0; - checkmclim(as); -} - -/* -- Loop handling ------------------------------------------------------- */ - -/* Fixup the loop branch. */ -static void asm_loop_fixup(ASMState *as) -{ - MCode *p = as->mctop; - MCode *target = as->mcp; - if (as->loopinv) { /* Inverted loop branch? */ - /* asm_guardcc already inverted the bcc and patched the final bl. */ - p[-2] |= ((uint32_t)(target-p) & 0x00ffffffu); - } else { - p[-1] = ARMI_B | ((uint32_t)((target-p)-1) & 0x00ffffffu); - } -} - -/* -- Head of trace ------------------------------------------------------- */ - -/* Reload L register from g->cur_L. */ -static void asm_head_lreg(ASMState *as) -{ - IRIns *ir = IR(ASMREF_L); - if (ra_used(ir)) { - Reg r = ra_dest(as, ir, RSET_GPR); - emit_getgl(as, r, cur_L); - ra_evictk(as); - } -} - -/* Coalesce BASE register for a root trace. */ -static void asm_head_root_base(ASMState *as) -{ - IRIns *ir; - asm_head_lreg(as); - ir = IR(REF_BASE); - if (ra_hasreg(ir->r) && (rset_test(as->modset, ir->r) || irt_ismarked(ir->t))) - ra_spill(as, ir); - ra_destreg(as, ir, RID_BASE); -} - -/* Coalesce BASE register for a side trace. */ -static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) -{ - IRIns *ir; - asm_head_lreg(as); - ir = IR(REF_BASE); - if (ra_hasreg(ir->r) && (rset_test(as->modset, ir->r) || irt_ismarked(ir->t))) - ra_spill(as, ir); - if (ra_hasspill(irp->s)) { - rset_clear(allow, ra_dest(as, ir, allow)); - } else { - Reg r = irp->r; - lua_assert(ra_hasreg(r)); - rset_clear(allow, r); - if (r != ir->r && !rset_test(as->freeset, r)) - ra_restore(as, regcost_ref(as->cost[r])); - ra_destreg(as, ir, r); - } - return allow; -} - -/* -- Tail of trace ------------------------------------------------------- */ - -/* Fixup the tail code. */ -static void asm_tail_fixup(ASMState *as, TraceNo lnk) -{ - MCode *p = as->mctop; - MCode *target; - int32_t spadj = as->T->spadjust; - if (spadj == 0) { - as->mctop = --p; - } else { - /* Patch stack adjustment. */ - uint32_t k = emit_isk12(ARMI_ADD, spadj); - lua_assert(k); - p[-2] = (ARMI_ADD^k) | ARMF_D(RID_SP) | ARMF_N(RID_SP); - } - /* Patch exit branch. */ - target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; - p[-1] = ARMI_B|(((target-p)-1)&0x00ffffffu); -} - -/* Prepare tail of code. */ -static void asm_tail_prep(ASMState *as) -{ - MCode *p = as->mctop - 1; /* Leave room for exit branch. */ - if (as->loopref) { - as->invmcp = as->mcp = p; - } else { - as->mcp = p-1; /* Leave room for stack pointer adjustment. */ - as->invmcp = NULL; - } - *p = 0; /* Prevent load/store merging. */ -} - -/* -- Trace setup --------------------------------------------------------- */ - -/* Ensure there are enough stack slots for call arguments. */ -static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = CCI_XNARGS(ci); - int nslots = 0, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR, fprodd = 0; - asm_collectargs(as, ir, ci, args); - for (i = 0; i < nargs; i++) { - if (!LJ_SOFTFP && args[i] && irt_isfp(IR(args[i])->t)) { - if (!LJ_ABI_SOFTFP && !(ci->flags & CCI_VARARG)) { - if (irt_isnum(IR(args[i])->t)) { - if (nfpr > 0) nfpr--; - else fprodd = 0, nslots = (nslots + 3) & ~1; - } else { - if (fprodd) fprodd--; - else if (nfpr > 0) fprodd = 1, nfpr--; - else nslots++; - } - } else if (irt_isnum(IR(args[i])->t)) { - ngpr &= ~1; - if (ngpr > 0) ngpr -= 2; else nslots += 2; - } else { - if (ngpr > 0) ngpr--; else nslots++; - } - } else { - if (ngpr > 0) ngpr--; else nslots++; - } - } - if (nslots > as->evenspill) /* Leave room for args in stack slots. */ - as->evenspill = nslots; - return REGSP_HINT(RID_RET); -} - -static void asm_setup_target(ASMState *as) -{ - /* May need extra exit for asm_stack_check on side traces. */ - asm_exitstub_setup(as, as->T->nsnap + (as->parent ? 1 : 0)); -} - -/* -- Trace patching ------------------------------------------------------ */ - -/* Patch exit jumps of existing machine code to a new target. */ -void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) -{ - MCode *p = T->mcode; - MCode *pe = (MCode *)((char *)p + T->szmcode); - MCode *cstart = NULL, *cend = p; - MCode *mcarea = lj_mcode_patch(J, p, 0); - MCode *px = exitstub_addr(J, exitno) - 2; - for (; p < pe; p++) { - /* Look for bl_cc exitstub, replace with b_cc target. */ - uint32_t ins = *p; - if ((ins & 0x0f000000u) == 0x0b000000u && ins < 0xf0000000u && - ((ins ^ (px-p)) & 0x00ffffffu) == 0) { - *p = (ins & 0xfe000000u) | (((target-p)-2) & 0x00ffffffu); - cend = p+1; - if (!cstart) cstart = p; - } - } - lua_assert(cstart != NULL); - lj_mcode_sync(cstart, cend); - lj_mcode_patch(J, mcarea, 1); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h deleted file mode 100644 index adea0e32367..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm_mips.h +++ /dev/null @@ -1,1833 +0,0 @@ -/* -** MIPS IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Register allocator extensions --------------------------------------- */ - -/* Allocate a register with a hint. */ -static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) -{ - Reg r = IR(ref)->r; - if (ra_noreg(r)) { - if (!ra_hashint(r) && !iscrossref(as, ref)) - ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ - r = ra_allocref(as, ref, allow); - } - ra_noweak(as, r); - return r; -} - -/* Allocate a register or RID_ZERO. */ -static Reg ra_alloc1z(ASMState *as, IRRef ref, RegSet allow) -{ - Reg r = IR(ref)->r; - if (ra_noreg(r)) { - if (!(allow & RSET_FPR) && irref_isk(ref) && IR(ref)->i == 0) - return RID_ZERO; - r = ra_allocref(as, ref, allow); - } else { - ra_noweak(as, r); - } - return r; -} - -/* Allocate two source registers for three-operand instructions. */ -static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) -{ - IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); - Reg left = irl->r, right = irr->r; - if (ra_hasreg(left)) { - ra_noweak(as, left); - if (ra_noreg(right)) - right = ra_alloc1z(as, ir->op2, rset_exclude(allow, left)); - else - ra_noweak(as, right); - } else if (ra_hasreg(right)) { - ra_noweak(as, right); - left = ra_alloc1z(as, ir->op1, rset_exclude(allow, right)); - } else if (ra_hashint(right)) { - right = ra_alloc1z(as, ir->op2, allow); - left = ra_alloc1z(as, ir->op1, rset_exclude(allow, right)); - } else { - left = ra_alloc1z(as, ir->op1, allow); - right = ra_alloc1z(as, ir->op2, rset_exclude(allow, left)); - } - return left | (right << 8); -} - -/* -- Guard handling ------------------------------------------------------ */ - -/* Need some spare long-range jump slots, for out-of-range branches. */ -#define MIPS_SPAREJUMP 4 - -/* Setup spare long-range jump slots per mcarea. */ -static void asm_sparejump_setup(ASMState *as) -{ - MCode *mxp = as->mcbot; - /* Assumes sizeof(MCLink) == 8. */ - if (((uintptr_t)mxp & (LJ_PAGESIZE-1)) == 8) { - lua_assert(MIPSI_NOP == 0); - memset(mxp+2, 0, MIPS_SPAREJUMP*8); - mxp += MIPS_SPAREJUMP*2; - lua_assert(mxp < as->mctop); - lj_mcode_sync(as->mcbot, mxp); - lj_mcode_commitbot(as->J, mxp); - as->mcbot = mxp; - as->mclim = as->mcbot + MCLIM_REDZONE; - } -} - -/* Setup exit stub after the end of each trace. */ -static void asm_exitstub_setup(ASMState *as) -{ - MCode *mxp = as->mctop; - /* sw TMP, 0(sp); j ->vm_exit_handler; li TMP, traceno */ - *--mxp = MIPSI_LI|MIPSF_T(RID_TMP)|as->T->traceno; - *--mxp = MIPSI_J|((((uintptr_t)(void *)lj_vm_exit_handler)>>2)&0x03ffffffu); - lua_assert(((uintptr_t)mxp ^ (uintptr_t)(void *)lj_vm_exit_handler)>>28 == 0); - *--mxp = MIPSI_SW|MIPSF_T(RID_TMP)|MIPSF_S(RID_SP)|0; - as->mctop = mxp; -} - -/* Keep this in-sync with exitstub_trace_addr(). */ -#define asm_exitstub_addr(as) ((as)->mctop) - -/* Emit conditional branch to exit for guard. */ -static void asm_guard(ASMState *as, MIPSIns mi, Reg rs, Reg rt) -{ - MCode *target = asm_exitstub_addr(as); - MCode *p = as->mcp; - if (LJ_UNLIKELY(p == as->invmcp)) { - as->invmcp = NULL; - as->loopinv = 1; - as->mcp = p+1; - mi = mi ^ ((mi>>28) == 1 ? 0x04000000u : 0x00010000u); /* Invert cond. */ - target = p; /* Patch target later in asm_loop_fixup. */ - } - emit_ti(as, MIPSI_LI, RID_TMP, as->snapno); - emit_branch(as, mi, rs, rt, target); -} - -/* -- Operand fusion ------------------------------------------------------ */ - -/* Limit linear search to this distance. Avoids O(n^2) behavior. */ -#define CONFLICT_SEARCH_LIM 31 - -/* Check if there's no conflicting instruction between curins and ref. */ -static int noconflict(ASMState *as, IRRef ref, IROp conflict) -{ - IRIns *ir = as->ir; - IRRef i = as->curins; - if (i > ref + CONFLICT_SEARCH_LIM) - return 0; /* Give up, ref is too far away. */ - while (--i > ref) - if (ir[i].o == conflict) - return 0; /* Conflict found. */ - return 1; /* Ok, no conflict. */ -} - -/* Fuse the array base of colocated arrays. */ -static int32_t asm_fuseabase(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && - !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) - return (int32_t)sizeof(GCtab); - return 0; -} - -/* Fuse array/hash/upvalue reference into register+offset operand. */ -static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow) -{ - IRIns *ir = IR(ref); - if (ra_noreg(ir->r)) { - if (ir->o == IR_AREF) { - if (mayfuse(as, ref)) { - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - ofs += 8*IR(ir->op2)->i; - if (checki16(ofs)) { - *ofsp = ofs; - return ra_alloc1(as, refa, allow); - } - } - } - } else if (ir->o == IR_HREFK) { - if (mayfuse(as, ref)) { - int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); - if (checki16(ofs)) { - *ofsp = ofs; - return ra_alloc1(as, ir->op1, allow); - } - } - } else if (ir->o == IR_UREFC) { - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); - int32_t jgl = (intptr_t)J2G(as->J); - if ((uint32_t)(ofs-jgl) < 65536) { - *ofsp = ofs-jgl-32768; - return RID_JGL; - } else { - *ofsp = (int16_t)ofs; - return ra_allock(as, ofs-(int16_t)ofs, allow); - } - } - } - } - *ofsp = 0; - return ra_alloc1(as, ref, allow); -} - -/* Fuse XLOAD/XSTORE reference into load/store operand. */ -static void asm_fusexref(ASMState *as, MIPSIns mi, Reg rt, IRRef ref, - RegSet allow, int32_t ofs) -{ - IRIns *ir = IR(ref); - Reg base; - if (ra_noreg(ir->r) && canfuse(as, ir)) { - if (ir->o == IR_ADD) { - int32_t ofs2; - if (irref_isk(ir->op2) && (ofs2 = ofs + IR(ir->op2)->i, checki16(ofs2))) { - ref = ir->op1; - ofs = ofs2; - } - } else if (ir->o == IR_STRREF) { - int32_t ofs2 = 65536; - lua_assert(ofs == 0); - ofs = (int32_t)sizeof(GCstr); - if (irref_isk(ir->op2)) { - ofs2 = ofs + IR(ir->op2)->i; - ref = ir->op1; - } else if (irref_isk(ir->op1)) { - ofs2 = ofs + IR(ir->op1)->i; - ref = ir->op2; - } - if (!checki16(ofs2)) { - /* NYI: Fuse ADD with constant. */ - Reg right, left = ra_alloc2(as, ir, allow); - right = (left >> 8); left &= 255; - emit_hsi(as, mi, rt, RID_TMP, ofs); - emit_dst(as, MIPSI_ADDU, RID_TMP, left, right); - return; - } - ofs = ofs2; - } - } - base = ra_alloc1(as, ref, allow); - emit_hsi(as, mi, rt, base, ofs); -} - -/* -- Calls --------------------------------------------------------------- */ - -/* Generate a call to a C function. */ -static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) -{ - uint32_t n, nargs = CCI_XNARGS(ci); - int32_t ofs = 16; - Reg gpr, fpr = REGARG_FIRSTFPR; - if ((void *)ci->func) - emit_call(as, (void *)ci->func); - for (gpr = REGARG_FIRSTGPR; gpr <= REGARG_LASTGPR; gpr++) - as->cost[gpr] = REGCOST(~0u, ASMREF_L); - gpr = REGARG_FIRSTGPR; - for (n = 0; n < nargs; n++) { /* Setup args. */ - IRRef ref = args[n]; - if (ref) { - IRIns *ir = IR(ref); - if (irt_isfp(ir->t) && fpr <= REGARG_LASTFPR && - !(ci->flags & CCI_VARARG)) { - lua_assert(rset_test(as->freeset, fpr)); /* Already evicted. */ - ra_leftov(as, fpr, ref); - fpr += 2; - gpr += irt_isnum(ir->t) ? 2 : 1; - } else { - fpr = REGARG_LASTFPR+1; - if (irt_isnum(ir->t)) gpr = (gpr+1) & ~1; - if (gpr <= REGARG_LASTGPR) { - lua_assert(rset_test(as->freeset, gpr)); /* Already evicted. */ - if (irt_isfp(ir->t)) { - RegSet of = as->freeset; - Reg r; - /* Workaround to protect argument GPRs from being used for remat. */ - as->freeset &= ~RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1); - r = ra_alloc1(as, ref, RSET_FPR); - as->freeset |= (of & RSET_RANGE(REGARG_FIRSTGPR, REGARG_LASTGPR+1)); - if (irt_isnum(ir->t)) { - emit_tg(as, MIPSI_MFC1, gpr+(LJ_BE?0:1), r+1); - emit_tg(as, MIPSI_MFC1, gpr+(LJ_BE?1:0), r); - lua_assert(rset_test(as->freeset, gpr+1)); /* Already evicted. */ - gpr += 2; - } else if (irt_isfloat(ir->t)) { - emit_tg(as, MIPSI_MFC1, gpr, r); - gpr++; - } - } else { - ra_leftov(as, gpr, ref); - gpr++; - } - } else { - Reg r = ra_alloc1z(as, ref, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; - emit_spstore(as, ir, r, ofs); - ofs += irt_isnum(ir->t) ? 8 : 4; - } - } - } else { - fpr = REGARG_LASTFPR+1; - if (gpr <= REGARG_LASTGPR) - gpr++; - else - ofs += 4; - } - checkmclim(as); - } -} - -/* Setup result reg/sp for call. Evict scratch regs. */ -static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - RegSet drop = RSET_SCRATCH; - int hiop = ((ir+1)->o == IR_HIOP); - if ((ci->flags & CCI_NOFPRCLOBBER)) - drop &= ~RSET_FPR; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - if (hiop && ra_hasreg((ir+1)->r)) - rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ - ra_evictset(as, drop); /* Evictions must be performed first. */ - if (ra_used(ir)) { - lua_assert(!irt_ispri(ir->t)); - if (irt_isfp(ir->t)) { - if ((ci->flags & CCI_CASTU64)) { - int32_t ofs = sps_scale(ir->s); - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_tg(as, MIPSI_MTC1, RID_RETHI, dest+1); - emit_tg(as, MIPSI_MTC1, RID_RETLO, dest); - } - if (ofs) { - emit_tsi(as, MIPSI_SW, RID_RETLO, RID_SP, ofs+(LJ_BE?4:0)); - emit_tsi(as, MIPSI_SW, RID_RETHI, RID_SP, ofs+(LJ_BE?0:4)); - } - } else { - ra_destreg(as, ir, RID_FPRET); - } - } else if (hiop) { - ra_destpair(as, ir); - } else { - ra_destreg(as, ir, RID_RET); - } - } -} - -static void asm_callx(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX*2]; - CCallInfo ci; - IRRef func; - IRIns *irf; - ci.flags = asm_callx_flags(as, ir); - asm_collectargs(as, ir, &ci, args); - asm_setupresult(as, ir, &ci); - func = ir->op2; irf = IR(func); - if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } - if (irref_isk(func)) { /* Call to constant address. */ - ci.func = (ASMFunction)(void *)(irf->i); - } else { /* Need specific register for indirect calls. */ - Reg r = ra_alloc1(as, func, RID2RSET(RID_CFUNCADDR)); - MCode *p = as->mcp; - if (r == RID_CFUNCADDR) - *--p = MIPSI_NOP; - else - *--p = MIPSI_MOVE | MIPSF_D(RID_CFUNCADDR) | MIPSF_S(r); - *--p = MIPSI_JALR | MIPSF_S(r); - as->mcp = p; - ci.func = (ASMFunction)(void *)0; - } - asm_gencall(as, &ci, args); -} - -static void asm_callround(ASMState *as, IRIns *ir, IRCallID id) -{ - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RID2RSET(RID_R1)|RID2RSET(RID_R12)|RID2RSET(RID_FPRET)| - RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(REGARG_FIRSTFPR); - if (ra_hasreg(ir->r)) rset_clear(drop, ir->r); - ra_evictset(as, drop); - ra_destreg(as, ir, RID_FPRET); - emit_call(as, (void *)lj_ir_callinfo[id].func); - ra_leftov(as, REGARG_FIRSTFPR, ir->op1); -} - -/* -- Returns ------------------------------------------------------------- */ - -/* Return to lower frame. Guard that it goes to the right spot. */ -static void asm_retf(ASMState *as, IRIns *ir) -{ - Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); - void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); - as->topslot -= (BCReg)delta; - if ((int32_t)as->topslot < 0) as->topslot = 0; - irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ - emit_setgl(as, base, jit_base); - emit_addptr(as, base, -8*delta); - asm_guard(as, MIPSI_BNE, RID_TMP, - ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); - emit_tsi(as, MIPSI_LW, RID_TMP, base, -8); -} - -/* -- Type conversions ---------------------------------------------------- */ - -static void asm_tointg(ASMState *as, IRIns *ir, Reg left) -{ - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_guard(as, MIPSI_BC1F, 0, 0); - emit_fgh(as, MIPSI_C_EQ_D, 0, tmp, left); - emit_fg(as, MIPSI_CVT_D_W, tmp, tmp); - emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fg(as, MIPSI_CVT_W_D, tmp, left); -} - -static void asm_tobit(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_FPR; - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, allow); - Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); - Reg tmp = ra_scratch(as, rset_clear(allow, right)); - emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fgh(as, MIPSI_ADD_D, tmp, left, right); -} - -static void asm_conv(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); - int stfp = (st == IRT_NUM || st == IRT_FLOAT); - IRRef lref = ir->op1; - lua_assert(irt_type(ir->t) != st); - lua_assert(!(irt_isint64(ir->t) || - (st == IRT_I64 || st == IRT_U64))); /* Handled by SPLIT. */ - if (irt_isfp(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - if (stfp) { /* FP to FP conversion. */ - emit_fg(as, st == IRT_NUM ? MIPSI_CVT_S_D : MIPSI_CVT_D_S, - dest, ra_alloc1(as, lref, RSET_FPR)); - } else if (st == IRT_U32) { /* U32 to FP conversion. */ - /* y = (x ^ 0x8000000) + 2147483648.0 */ - Reg left = ra_alloc1(as, lref, RSET_GPR); - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, dest)); - emit_fgh(as, irt_isfloat(ir->t) ? MIPSI_ADD_S : MIPSI_ADD_D, - dest, dest, tmp); - emit_fg(as, irt_isfloat(ir->t) ? MIPSI_CVT_S_W : MIPSI_CVT_D_W, - dest, dest); - if (irt_isfloat(ir->t)) - emit_lsptr(as, MIPSI_LWC1, (tmp & 31), - (void *)lj_ir_k64_find(as->J, U64x(4f000000,4f000000)), - RSET_GPR); - else - emit_lsptr(as, MIPSI_LDC1, (tmp & 31), - (void *)lj_ir_k64_find(as->J, U64x(41e00000,00000000)), - RSET_GPR); - emit_tg(as, MIPSI_MTC1, RID_TMP, dest); - emit_dst(as, MIPSI_XOR, RID_TMP, RID_TMP, left); - emit_ti(as, MIPSI_LUI, RID_TMP, 0x8000); - } else { /* Integer to FP conversion. */ - Reg left = ra_alloc1(as, lref, RSET_GPR); - emit_fg(as, irt_isfloat(ir->t) ? MIPSI_CVT_S_W : MIPSI_CVT_D_W, - dest, dest); - emit_tg(as, MIPSI_MTC1, left, dest); - } - } else if (stfp) { /* FP to integer conversion. */ - if (irt_isguard(ir->t)) { - /* Checked conversions are only supported from number to int. */ - lua_assert(irt_isint(ir->t) && st == IRT_NUM); - asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, lref, RSET_FPR); - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - if (irt_isu32(ir->t)) { - /* y = (int)floor(x - 2147483648.0) ^ 0x80000000 */ - emit_dst(as, MIPSI_XOR, dest, dest, RID_TMP); - emit_ti(as, MIPSI_LUI, RID_TMP, 0x8000); - emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fg(as, st == IRT_FLOAT ? MIPSI_FLOOR_W_S : MIPSI_FLOOR_W_D, - tmp, tmp); - emit_fgh(as, st == IRT_FLOAT ? MIPSI_SUB_S : MIPSI_SUB_D, - tmp, left, tmp); - if (st == IRT_FLOAT) - emit_lsptr(as, MIPSI_LWC1, (tmp & 31), - (void *)lj_ir_k64_find(as->J, U64x(4f000000,4f000000)), - RSET_GPR); - else - emit_lsptr(as, MIPSI_LDC1, (tmp & 31), - (void *)lj_ir_k64_find(as->J, U64x(41e00000,00000000)), - RSET_GPR); - } else { - emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fg(as, st == IRT_FLOAT ? MIPSI_TRUNC_W_S : MIPSI_TRUNC_W_D, - tmp, left); - } - } - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); - if ((ir->op2 & IRCONV_SEXT)) { - if ((as->flags & JIT_F_MIPS32R2)) { - emit_dst(as, st == IRT_I8 ? MIPSI_SEB : MIPSI_SEH, dest, 0, left); - } else { - uint32_t shift = st == IRT_I8 ? 24 : 16; - emit_dta(as, MIPSI_SRA, dest, dest, shift); - emit_dta(as, MIPSI_SLL, dest, left, shift); - } - } else { - emit_tsi(as, MIPSI_ANDI, dest, left, - (int32_t)(st == IRT_U8 ? 0xff : 0xffff)); - } - } else { /* 32/64 bit integer conversions. */ - /* Only need to handle 32/32 bit no-op (cast) on 32 bit archs. */ - ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ - } - } -} - -static void asm_strto(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; - IRRef args[2]; - RegSet drop = RSET_SCRATCH; - if (ra_hasreg(ir->r)) rset_set(drop, ir->r); /* Spill dest reg (if any). */ - ra_evictset(as, drop); - asm_guard(as, MIPSI_BEQ, RID_RET, RID_ZERO); /* Test return status. */ - args[0] = ir->op1; /* GCstr *str */ - args[1] = ASMREF_TMP1; /* TValue *n */ - asm_gencall(as, ci, args); - /* Store the result to the spill slot or temp slots. */ - emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), - RID_SP, sps_scale(ir->s)); -} - -/* -- Memory references --------------------------------------------------- */ - -/* Get pointer to TValue. */ -static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) -{ - IRIns *ir = IR(ref); - if (irt_isnum(ir->t)) { - if (irref_isk(ref)) /* Use the number constant itself as a TValue. */ - ra_allockreg(as, i32ptr(ir_knum(ir)), dest); - else /* Otherwise force a spill and use the spill slot. */ - emit_tsi(as, MIPSI_ADDIU, dest, RID_SP, ra_spill(as, ir)); - } else { - /* Otherwise use g->tmptv to hold the TValue. */ - RegSet allow = rset_exclude(RSET_GPR, dest); - Reg type; - emit_tsi(as, MIPSI_ADDIU, dest, RID_JGL, offsetof(global_State, tmptv)-32768); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, allow); - emit_setgl(as, src, tmptv.gcr); - } - type = ra_allock(as, irt_toitype(ir->t), allow); - emit_setgl(as, type, tmptv.it); - } -} - -static void asm_aref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx, base; - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - ofs += 8*IR(ir->op2)->i; - if (checki16(ofs)) { - base = ra_alloc1(as, refa, RSET_GPR); - emit_tsi(as, MIPSI_ADDIU, dest, base, ofs); - return; - } - } - base = ra_alloc1(as, ir->op1, RSET_GPR); - idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); - emit_dst(as, MIPSI_ADDU, dest, RID_TMP, base); - emit_dta(as, MIPSI_SLL, RID_TMP, idx, 3); -} - -/* Inlined hash lookup. Specialized for key type and for const keys. -** The equivalent C code is: -** Node *n = hashkey(t, key); -** do { -** if (lj_obj_equal(&n->key, key)) return &n->val; -** } while ((n = nextnode(n))); -** return niltv(L); -*/ -static void asm_href(ASMState *as, IRIns *ir, IROp merge) -{ - RegSet allow = RSET_GPR; - int destused = ra_used(ir); - Reg dest = ra_dest(as, ir, allow); - Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); - Reg key = RID_NONE, type = RID_NONE, tmpnum = RID_NONE, tmp1 = RID_TMP, tmp2; - IRRef refkey = ir->op2; - IRIns *irkey = IR(refkey); - IRType1 kt = irkey->t; - uint32_t khash; - MCLabel l_end, l_loop, l_next; - - rset_clear(allow, tab); - if (irt_isnum(kt)) { - key = ra_alloc1(as, refkey, RSET_FPR); - tmpnum = ra_scratch(as, rset_exclude(RSET_FPR, key)); - } else if (!irt_ispri(kt)) { - key = ra_alloc1(as, refkey, allow); - rset_clear(allow, key); - type = ra_allock(as, irt_toitype(irkey->t), allow); - rset_clear(allow, type); - } - tmp2 = ra_scratch(as, allow); - rset_clear(allow, tmp2); - - /* Key not found in chain: jump to exit (if merged) or load niltv. */ - l_end = emit_label(as); - as->invmcp = NULL; - if (merge == IR_NE) - asm_guard(as, MIPSI_B, RID_ZERO, RID_ZERO); - else if (destused) - emit_loada(as, dest, niltvg(J2G(as->J))); - /* Follow hash chain until the end. */ - emit_move(as, dest, tmp2); - l_loop = --as->mcp; - emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, next)); - l_next = emit_label(as); - - /* Type and value comparison. */ - if (merge == IR_EQ) { /* Must match asm_guard(). */ - emit_ti(as, MIPSI_LI, RID_TMP, as->snapno); - l_end = asm_exitstub_addr(as); - } - if (irt_isnum(kt)) { - emit_branch(as, MIPSI_BC1T, 0, 0, l_end); - emit_fgh(as, MIPSI_C_EQ_D, 0, tmpnum, key); - *--as->mcp = MIPSI_NOP; /* Avoid NaN comparison overhead. */ - emit_branch(as, MIPSI_BEQ, tmp2, RID_ZERO, l_next); - emit_tsi(as, MIPSI_SLTIU, tmp2, tmp2, (int32_t)LJ_TISNUM); - emit_hsi(as, MIPSI_LDC1, tmpnum, dest, (int32_t)offsetof(Node, key.n)); - } else { - if (irt_ispri(kt)) { - emit_branch(as, MIPSI_BEQ, tmp2, type, l_end); - } else { - emit_branch(as, MIPSI_BEQ, tmp1, key, l_end); - emit_tsi(as, MIPSI_LW, tmp1, dest, (int32_t)offsetof(Node, key.gcr)); - emit_branch(as, MIPSI_BNE, tmp2, type, l_next); - } - } - emit_tsi(as, MIPSI_LW, tmp2, dest, (int32_t)offsetof(Node, key.it)); - *l_loop = MIPSI_BNE | MIPSF_S(tmp2) | ((as->mcp-l_loop-1) & 0xffffu); - - /* Load main position relative to tab->node into dest. */ - khash = irref_isk(refkey) ? ir_khash(irkey) : 1; - if (khash == 0) { - emit_tsi(as, MIPSI_LW, dest, tab, (int32_t)offsetof(GCtab, node)); - } else { - Reg tmphash = tmp1; - if (irref_isk(refkey)) - tmphash = ra_allock(as, khash, allow); - emit_dst(as, MIPSI_ADDU, dest, dest, tmp1); - lua_assert(sizeof(Node) == 24); - emit_dst(as, MIPSI_SUBU, tmp1, tmp2, tmp1); - emit_dta(as, MIPSI_SLL, tmp1, tmp1, 3); - emit_dta(as, MIPSI_SLL, tmp2, tmp1, 5); - emit_dst(as, MIPSI_AND, tmp1, tmp2, tmphash); - emit_tsi(as, MIPSI_LW, dest, tab, (int32_t)offsetof(GCtab, node)); - emit_tsi(as, MIPSI_LW, tmp2, tab, (int32_t)offsetof(GCtab, hmask)); - if (irref_isk(refkey)) { - /* Nothing to do. */ - } else if (irt_isstr(kt)) { - emit_tsi(as, MIPSI_LW, tmp1, key, (int32_t)offsetof(GCstr, hash)); - } else { /* Must match with hash*() in lj_tab.c. */ - emit_dst(as, MIPSI_SUBU, tmp1, tmp1, tmp2); - emit_rotr(as, tmp2, tmp2, dest, (-HASH_ROT3)&31); - emit_dst(as, MIPSI_XOR, tmp1, tmp1, tmp2); - emit_rotr(as, tmp1, tmp1, dest, (-HASH_ROT2-HASH_ROT1)&31); - emit_dst(as, MIPSI_SUBU, tmp2, tmp2, dest); - if (irt_isnum(kt)) { - emit_dst(as, MIPSI_XOR, tmp2, tmp2, tmp1); - if ((as->flags & JIT_F_MIPS32R2)) { - emit_dta(as, MIPSI_ROTR, dest, tmp1, (-HASH_ROT1)&31); - } else { - emit_dst(as, MIPSI_OR, dest, dest, tmp1); - emit_dta(as, MIPSI_SLL, tmp1, tmp1, HASH_ROT1); - emit_dta(as, MIPSI_SRL, dest, tmp1, (-HASH_ROT1)&31); - } - emit_dst(as, MIPSI_ADDU, tmp1, tmp1, tmp1); - emit_tg(as, MIPSI_MFC1, tmp2, key); - emit_tg(as, MIPSI_MFC1, tmp1, key+1); - } else { - emit_dst(as, MIPSI_XOR, tmp2, key, tmp1); - emit_rotr(as, dest, tmp1, tmp2, (-HASH_ROT1)&31); - emit_dst(as, MIPSI_ADDU, tmp1, key, ra_allock(as, HASH_BIAS, allow)); - } - } - } -} - -static void asm_hrefk(ASMState *as, IRIns *ir) -{ - IRIns *kslot = IR(ir->op2); - IRIns *irkey = IR(kslot->op1); - int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); - int32_t kofs = ofs + (int32_t)offsetof(Node, key); - Reg dest = (ra_used(ir)||ofs > 32736) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; - Reg node = ra_alloc1(as, ir->op1, RSET_GPR); - Reg key = RID_NONE, type = RID_TMP, idx = node; - RegSet allow = rset_exclude(RSET_GPR, node); - int32_t lo, hi; - lua_assert(ofs % sizeof(Node) == 0); - if (ofs > 32736) { - idx = dest; - rset_clear(allow, dest); - kofs = (int32_t)offsetof(Node, key); - } else if (ra_hasreg(dest)) { - emit_tsi(as, MIPSI_ADDIU, dest, node, ofs); - } - if (!irt_ispri(irkey->t)) { - key = ra_scratch(as, allow); - rset_clear(allow, key); - } - if (irt_isnum(irkey->t)) { - lo = (int32_t)ir_knum(irkey)->u32.lo; - hi = (int32_t)ir_knum(irkey)->u32.hi; - } else { - lo = irkey->i; - hi = irt_toitype(irkey->t); - if (!ra_hasreg(key)) - goto nolo; - } - asm_guard(as, MIPSI_BNE, key, lo ? ra_allock(as, lo, allow) : RID_ZERO); -nolo: - asm_guard(as, MIPSI_BNE, type, hi ? ra_allock(as, hi, allow) : RID_ZERO); - if (ra_hasreg(key)) emit_tsi(as, MIPSI_LW, key, idx, kofs+(LJ_BE?4:0)); - emit_tsi(as, MIPSI_LW, type, idx, kofs+(LJ_BE?0:4)); - if (ofs > 32736) - emit_tsi(as, MIPSI_ADDU, dest, node, ra_allock(as, ofs, allow)); -} - -static void asm_uref(ASMState *as, IRIns *ir) -{ - /* NYI: Check that UREFO is still open and not aliasing a slot. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; - emit_lsptr(as, MIPSI_LW, dest, v, RSET_GPR); - } else { - Reg uv = ra_scratch(as, RSET_GPR); - Reg func = ra_alloc1(as, ir->op1, RSET_GPR); - if (ir->o == IR_UREFC) { - asm_guard(as, MIPSI_BEQ, RID_TMP, RID_ZERO); - emit_tsi(as, MIPSI_ADDIU, dest, uv, (int32_t)offsetof(GCupval, tv)); - emit_tsi(as, MIPSI_LBU, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); - } else { - emit_tsi(as, MIPSI_LW, dest, uv, (int32_t)offsetof(GCupval, v)); - } - emit_tsi(as, MIPSI_LW, uv, func, - (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); - } -} - -static void asm_fref(ASMState *as, IRIns *ir) -{ - UNUSED(as); UNUSED(ir); - lua_assert(!ra_used(ir)); -} - -static void asm_strref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - IRRef ref = ir->op2, refk = ir->op1; - int32_t ofs = (int32_t)sizeof(GCstr); - Reg r; - if (irref_isk(ref)) { - IRRef tmp = refk; refk = ref; ref = tmp; - } else if (!irref_isk(refk)) { - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - IRIns *irr = IR(ir->op2); - if (ra_hasreg(irr->r)) { - ra_noweak(as, irr->r); - right = irr->r; - } else if (mayfuse(as, irr->op2) && - irr->o == IR_ADD && irref_isk(irr->op2) && - checki16(ofs + IR(irr->op2)->i)) { - ofs += IR(irr->op2)->i; - right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); - } else { - right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); - } - emit_tsi(as, MIPSI_ADDIU, dest, dest, ofs); - emit_dst(as, MIPSI_ADDU, dest, left, right); - return; - } - r = ra_alloc1(as, ref, RSET_GPR); - ofs += IR(refk)->i; - if (checki16(ofs)) - emit_tsi(as, MIPSI_ADDIU, dest, r, ofs); - else - emit_dst(as, MIPSI_ADDU, dest, r, - ra_allock(as, ofs, rset_exclude(RSET_GPR, r))); -} - -/* -- Loads and stores ---------------------------------------------------- */ - -static MIPSIns asm_fxloadins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: return MIPSI_LB; - case IRT_U8: return MIPSI_LBU; - case IRT_I16: return MIPSI_LH; - case IRT_U16: return MIPSI_LHU; - case IRT_NUM: return MIPSI_LDC1; - case IRT_FLOAT: return MIPSI_LWC1; - default: return MIPSI_LW; - } -} - -static MIPSIns asm_fxstoreins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: case IRT_U8: return MIPSI_SB; - case IRT_I16: case IRT_U16: return MIPSI_SH; - case IRT_NUM: return MIPSI_SDC1; - case IRT_FLOAT: return MIPSI_SWC1; - default: return MIPSI_SW; - } -} - -static void asm_fload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); - MIPSIns mi = asm_fxloadins(ir); - int32_t ofs; - if (ir->op2 == IRFL_TAB_ARRAY) { - ofs = asm_fuseabase(as, ir->op1); - if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ - emit_tsi(as, MIPSI_ADDIU, dest, idx, ofs); - return; - } - } - ofs = field_ofs[ir->op2]; - lua_assert(!irt_isfp(ir->t)); - emit_tsi(as, mi, dest, idx, ofs); -} - -static void asm_fstore(ASMState *as, IRIns *ir) -{ - if (ir->r != RID_SINK) { - Reg src = ra_alloc1z(as, ir->op2, RSET_GPR); - IRIns *irf = IR(ir->op1); - Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); - int32_t ofs = field_ofs[irf->op2]; - MIPSIns mi = asm_fxstoreins(ir); - lua_assert(!irt_isfp(ir->t)); - emit_tsi(as, mi, src, idx, ofs); - } -} - -static void asm_xload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); - asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); -} - -static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) -{ - if (ir->r != RID_SINK) { - Reg src = ra_alloc1z(as, ir->op2, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, - rset_exclude(RSET_GPR, src), ofs); - } -} - -#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) - -static void asm_ahuvload(ASMState *as, IRIns *ir) -{ - IRType1 t = ir->t; - Reg dest = RID_NONE, type = RID_TMP, idx; - RegSet allow = RSET_GPR; - int32_t ofs = 0; - if (ra_used(ir)) { - lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); - dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); - rset_clear(allow, dest); - } - idx = asm_fuseahuref(as, ir->op1, &ofs, allow); - rset_clear(allow, idx); - if (irt_isnum(t)) { - asm_guard(as, MIPSI_BEQ, type, RID_ZERO); - emit_tsi(as, MIPSI_SLTIU, type, type, (int32_t)LJ_TISNUM); - if (ra_hasreg(dest)) - emit_hsi(as, MIPSI_LDC1, dest, idx, ofs); - } else { - asm_guard(as, MIPSI_BNE, type, ra_allock(as, irt_toitype(t), allow)); - if (ra_hasreg(dest)) emit_tsi(as, MIPSI_LW, dest, idx, ofs+(LJ_BE?4:0)); - } - emit_tsi(as, MIPSI_LW, type, idx, ofs+(LJ_BE?0:4)); -} - -static void asm_ahustore(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_GPR; - Reg idx, src = RID_NONE, type = RID_NONE; - int32_t ofs = 0; - if (ir->r == RID_SINK) - return; - if (irt_isnum(ir->t)) { - src = ra_alloc1(as, ir->op2, RSET_FPR); - } else { - if (!irt_ispri(ir->t)) { - src = ra_alloc1(as, ir->op2, allow); - rset_clear(allow, src); - } - type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); - rset_clear(allow, type); - } - idx = asm_fuseahuref(as, ir->op1, &ofs, allow); - if (irt_isnum(ir->t)) { - emit_hsi(as, MIPSI_SDC1, src, idx, ofs); - } else { - if (ra_hasreg(src)) - emit_tsi(as, MIPSI_SW, src, idx, ofs+(LJ_BE?4:0)); - emit_tsi(as, MIPSI_SW, type, idx, ofs+(LJ_BE?0:4)); - } -} - -static void asm_sload(ASMState *as, IRIns *ir) -{ - int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); - IRType1 t = ir->t; - Reg dest = RID_NONE, type = RID_NONE, base; - RegSet allow = RSET_GPR; - lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ - lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); - lua_assert(!irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); - if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { - dest = ra_scratch(as, RSET_FPR); - asm_tointg(as, ir, dest); - t.irt = IRT_NUM; /* Continue with a regular number type check. */ - } else if (ra_used(ir)) { - lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); - dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); - rset_clear(allow, dest); - base = ra_alloc1(as, REF_BASE, allow); - rset_clear(allow, base); - if ((ir->op2 & IRSLOAD_CONVERT)) { - if (irt_isint(t)) { - Reg tmp = ra_scratch(as, RSET_FPR); - emit_tg(as, MIPSI_MFC1, dest, tmp); - emit_fg(as, MIPSI_TRUNC_W_D, tmp, tmp); - dest = tmp; - t.irt = IRT_NUM; /* Check for original type. */ - } else { - Reg tmp = ra_scratch(as, RSET_GPR); - emit_fg(as, MIPSI_CVT_D_W, dest, dest); - emit_tg(as, MIPSI_MTC1, tmp, dest); - dest = tmp; - t.irt = IRT_INT; /* Check for original type. */ - } - } - goto dotypecheck; - } - base = ra_alloc1(as, REF_BASE, allow); - rset_clear(allow, base); -dotypecheck: - if (irt_isnum(t)) { - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - asm_guard(as, MIPSI_BEQ, RID_TMP, RID_ZERO); - emit_tsi(as, MIPSI_SLTIU, RID_TMP, RID_TMP, (int32_t)LJ_TISNUM); - type = RID_TMP; - } - if (ra_hasreg(dest)) emit_hsi(as, MIPSI_LDC1, dest, base, ofs); - } else { - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - Reg ktype = ra_allock(as, irt_toitype(t), allow); - asm_guard(as, MIPSI_BNE, RID_TMP, ktype); - type = RID_TMP; - } - if (ra_hasreg(dest)) emit_tsi(as, MIPSI_LW, dest, base, ofs ^ (LJ_BE?4:0)); - } - if (ra_hasreg(type)) emit_tsi(as, MIPSI_LW, type, base, ofs ^ (LJ_BE?0:4)); -} - -/* -- Allocations --------------------------------------------------------- */ - -#if LJ_HASFFI -static void asm_cnew(ASMState *as, IRIns *ir) -{ - CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID id = (CTypeID)IR(ir->op1)->i; - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[4]; - RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - - as->gcsteps++; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - if (ra_used(ir)) - ra_destreg(as, ir, RID_RET); /* GCcdata * */ - - /* Initialize immutable cdata object. */ - if (ir->o == IR_CNEWI) { - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); - int32_t ofs = sizeof(GCcdata); - lua_assert(sz == 4 || sz == 8); - if (sz == 8) { - ofs += 4; - lua_assert((ir+1)->o == IR_HIOP); - if (LJ_LE) ir++; - } - for (;;) { - Reg r = ra_alloc1z(as, ir->op2, allow); - emit_tsi(as, MIPSI_SW, r, RID_RET, ofs); - rset_clear(allow, r); - if (ofs == sizeof(GCcdata)) break; - ofs -= 4; if (LJ_BE) ir++; else ir--; - } - } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ - ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* CTypeID id */ - args[2] = ir->op2; /* CTSize sz */ - args[3] = ASMREF_TMP1; /* CTSize align */ - asm_gencall(as, ci, args); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); - return; - } - - /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ - emit_tsi(as, MIPSI_SB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); - emit_tsi(as, MIPSI_SH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); - emit_ti(as, MIPSI_LI, RID_RET+1, ~LJ_TCDATA); - emit_ti(as, MIPSI_LI, RID_TMP, id); /* Lower 16 bit used. Sign-ext ok. */ - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ - asm_gencall(as, ci, args); - ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), - ra_releasetmp(as, ASMREF_TMP1)); -} -#else -#define asm_cnew(as, ir) ((void)0) -#endif - -/* -- Write barriers ------------------------------------------------------ */ - -static void asm_tbar(ASMState *as, IRIns *ir) -{ - Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); - Reg mark = ra_scratch(as, rset_exclude(RSET_GPR, tab)); - Reg link = RID_TMP; - MCLabel l_end = emit_label(as); - emit_tsi(as, MIPSI_SW, link, tab, (int32_t)offsetof(GCtab, gclist)); - emit_tsi(as, MIPSI_SB, mark, tab, (int32_t)offsetof(GCtab, marked)); - emit_setgl(as, tab, gc.grayagain); - emit_getgl(as, link, gc.grayagain); - emit_dst(as, MIPSI_XOR, mark, mark, RID_TMP); /* Clear black bit. */ - emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); - emit_tsi(as, MIPSI_ANDI, RID_TMP, mark, LJ_GC_BLACK); - emit_tsi(as, MIPSI_LBU, mark, tab, (int32_t)offsetof(GCtab, marked)); -} - -static void asm_obar(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; - IRRef args[2]; - MCLabel l_end; - Reg obj, val, tmp; - /* No need for other object barriers (yet). */ - lua_assert(IR(ir->op1)->o == IR_UREFC); - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ir->op1; /* TValue *tv */ - asm_gencall(as, ci, args); - emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); - obj = IR(ir->op1)->r; - tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); - emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); - emit_tsi(as, MIPSI_ANDI, tmp, tmp, LJ_GC_BLACK); - emit_branch(as, MIPSI_BEQ, RID_TMP, RID_ZERO, l_end); - emit_tsi(as, MIPSI_ANDI, RID_TMP, RID_TMP, LJ_GC_WHITES); - val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); - emit_tsi(as, MIPSI_LBU, tmp, obj, - (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); - emit_tsi(as, MIPSI_LBU, RID_TMP, val, (int32_t)offsetof(GChead, marked)); -} - -/* -- Arithmetic and logic operations ------------------------------------- */ - -static void asm_fparith(ASMState *as, IRIns *ir, MIPSIns mi) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - emit_fgh(as, mi, dest, left, right); -} - -static void asm_fpunary(ASMState *as, IRIns *ir, MIPSIns mi) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); - emit_fg(as, mi, dest, left); -} - -static void asm_fpmath(ASMState *as, IRIns *ir) -{ - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - return; - if (ir->op2 <= IRFPM_TRUNC) - asm_callround(as, ir, IRCALL_lj_vm_floor + ir->op2); - else if (ir->op2 == IRFPM_SQRT) - asm_fpunary(as, ir, MIPSI_SQRT_D); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); -} - -static void asm_add(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fparith(as, ir, MIPSI_ADD_D); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (checki16(k)) { - emit_tsi(as, MIPSI_ADDIU, dest, left, k); - return; - } - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_dst(as, MIPSI_ADDU, dest, left, right); - } -} - -static void asm_sub(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fparith(as, ir, MIPSI_SUB_D); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, MIPSI_SUBU, dest, left, right); - } -} - -static void asm_mul(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fparith(as, ir, MIPSI_MUL_D); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, MIPSI_MUL, dest, left, right); - } -} - -#define asm_div(as, ir) asm_fparith(as, ir, MIPSI_DIV_D) -#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) -#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) - -static void asm_neg(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fpunary(as, ir, MIPSI_NEG_D); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); - } -} - -#define asm_abs(as, ir) asm_fpunary(as, ir, MIPSI_ABS_D) -#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) -#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) - -static void asm_arithov(ASMState *as, IRIns *ir) -{ - Reg right, left, tmp, dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op2)) { - int k = IR(ir->op2)->i; - if (ir->o == IR_SUBOV) k = -k; - if (checki16(k)) { /* (dest < left) == (k >= 0 ? 1 : 0) */ - left = ra_alloc1(as, ir->op1, RSET_GPR); - asm_guard(as, k >= 0 ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); - emit_dst(as, MIPSI_SLT, RID_TMP, dest, dest == left ? RID_TMP : left); - emit_tsi(as, MIPSI_ADDIU, dest, left, k); - if (dest == left) emit_move(as, RID_TMP, left); - return; - } - } - left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, left), - right), dest)); - asm_guard(as, MIPSI_BLTZ, RID_TMP, 0); - emit_dst(as, MIPSI_AND, RID_TMP, RID_TMP, tmp); - if (ir->o == IR_ADDOV) { /* ((dest^left) & (dest^right)) < 0 */ - emit_dst(as, MIPSI_XOR, RID_TMP, dest, dest == right ? RID_TMP : right); - } else { /* ((dest^left) & (dest^~right)) < 0 */ - emit_dst(as, MIPSI_XOR, RID_TMP, RID_TMP, dest); - emit_dst(as, MIPSI_NOR, RID_TMP, dest == right ? RID_TMP : right, RID_ZERO); - } - emit_dst(as, MIPSI_XOR, tmp, dest, dest == left ? RID_TMP : left); - emit_dst(as, ir->o == IR_ADDOV ? MIPSI_ADDU : MIPSI_SUBU, dest, left, right); - if (dest == left || dest == right) - emit_move(as, RID_TMP, dest == left ? left : right); -} - -#define asm_addov(as, ir) asm_arithov(as, ir) -#define asm_subov(as, ir) asm_arithov(as, ir) - -static void asm_mulov(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg tmp, right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, left), - right), dest)); - asm_guard(as, MIPSI_BNE, RID_TMP, tmp); - emit_dta(as, MIPSI_SRA, RID_TMP, dest, 31); - emit_dst(as, MIPSI_MFHI, tmp, 0, 0); - emit_dst(as, MIPSI_MFLO, dest, 0, 0); - emit_dst(as, MIPSI_MULT, 0, left, right); -} - -#if LJ_HASFFI -static void asm_add64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (k == 0) { - emit_dst(as, MIPSI_ADDU, dest, left, RID_TMP); - goto loarith; - } else if (checki16(k)) { - emit_dst(as, MIPSI_ADDU, dest, dest, RID_TMP); - emit_tsi(as, MIPSI_ADDIU, dest, left, k); - goto loarith; - } - } - emit_dst(as, MIPSI_ADDU, dest, dest, RID_TMP); - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_dst(as, MIPSI_ADDU, dest, left, right); -loarith: - ir--; - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc1(as, ir->op1, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (k == 0) { - if (dest != left) - emit_move(as, dest, left); - return; - } else if (checki16(k)) { - if (dest == left) { - Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, left)); - emit_move(as, dest, tmp); - dest = tmp; - } - emit_dst(as, MIPSI_SLTU, RID_TMP, dest, left); - emit_tsi(as, MIPSI_ADDIU, dest, left, k); - return; - } - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - if (dest == left && dest == right) { - Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); - emit_move(as, dest, tmp); - dest = tmp; - } - emit_dst(as, MIPSI_SLTU, RID_TMP, dest, dest == left ? right : left); - emit_dst(as, MIPSI_ADDU, dest, left, right); -} - -static void asm_sub64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, MIPSI_SUBU, dest, dest, RID_TMP); - emit_dst(as, MIPSI_SUBU, dest, left, right); - ir--; - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - if (dest == left) { - Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); - emit_move(as, dest, tmp); - dest = tmp; - } - emit_dst(as, MIPSI_SLTU, RID_TMP, left, dest); - emit_dst(as, MIPSI_SUBU, dest, left, right); -} - -static void asm_neg64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - emit_dst(as, MIPSI_SUBU, dest, dest, RID_TMP); - emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); - ir--; - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc1(as, ir->op1, RSET_GPR); - emit_dst(as, MIPSI_SLTU, RID_TMP, RID_ZERO, dest); - emit_dst(as, MIPSI_SUBU, dest, RID_ZERO, left); -} -#endif - -static void asm_bnot(ASMState *as, IRIns *ir) -{ - Reg left, right, dest = ra_dest(as, ir, RSET_GPR); - IRIns *irl = IR(ir->op1); - if (mayfuse(as, ir->op1) && irl->o == IR_BOR) { - left = ra_alloc2(as, irl, RSET_GPR); - right = (left >> 8); left &= 255; - } else { - left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - right = RID_ZERO; - } - emit_dst(as, MIPSI_NOR, dest, left, right); -} - -static void asm_bswap(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - if ((as->flags & JIT_F_MIPS32R2)) { - emit_dta(as, MIPSI_ROTR, dest, RID_TMP, 16); - emit_dst(as, MIPSI_WSBH, RID_TMP, 0, left); - } else { - Reg tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), dest)); - emit_dst(as, MIPSI_OR, dest, dest, tmp); - emit_dst(as, MIPSI_OR, dest, dest, RID_TMP); - emit_tsi(as, MIPSI_ANDI, dest, dest, 0xff00); - emit_dta(as, MIPSI_SLL, RID_TMP, RID_TMP, 8); - emit_dta(as, MIPSI_SRL, dest, left, 8); - emit_tsi(as, MIPSI_ANDI, RID_TMP, left, 0xff00); - emit_dst(as, MIPSI_OR, tmp, tmp, RID_TMP); - emit_dta(as, MIPSI_SRL, tmp, left, 24); - emit_dta(as, MIPSI_SLL, RID_TMP, left, 24); - } -} - -static void asm_bitop(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (checku16(k)) { - emit_tsi(as, mik, dest, left, k); - return; - } - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_dst(as, mi, dest, left, right); -} - -#define asm_band(as, ir) asm_bitop(as, ir, MIPSI_AND, MIPSI_ANDI) -#define asm_bor(as, ir) asm_bitop(as, ir, MIPSI_OR, MIPSI_ORI) -#define asm_bxor(as, ir) asm_bitop(as, ir, MIPSI_XOR, MIPSI_XORI) - -static void asm_bitshift(ASMState *as, IRIns *ir, MIPSIns mi, MIPSIns mik) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op2)) { /* Constant shifts. */ - uint32_t shift = (uint32_t)(IR(ir->op2)->i & 31); - emit_dta(as, mik, dest, ra_hintalloc(as, ir->op1, dest, RSET_GPR), shift); - } else { - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, mi, dest, right, left); /* Shift amount is in rs. */ - } -} - -#define asm_bshl(as, ir) asm_bitshift(as, ir, MIPSI_SLLV, MIPSI_SLL) -#define asm_bshr(as, ir) asm_bitshift(as, ir, MIPSI_SRLV, MIPSI_SRL) -#define asm_bsar(as, ir) asm_bitshift(as, ir, MIPSI_SRAV, MIPSI_SRA) -#define asm_brol(as, ir) lua_assert(0) - -static void asm_bror(ASMState *as, IRIns *ir) -{ - if ((as->flags & JIT_F_MIPS32R2)) { - asm_bitshift(as, ir, MIPSI_ROTRV, MIPSI_ROTR); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op2)) { /* Constant shifts. */ - uint32_t shift = (uint32_t)(IR(ir->op2)->i & 31); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - emit_rotr(as, dest, left, RID_TMP, shift); - } else { - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, MIPSI_OR, dest, dest, RID_TMP); - emit_dst(as, MIPSI_SRLV, dest, right, left); - emit_dst(as, MIPSI_SLLV, RID_TMP, RID_TMP, left); - emit_dst(as, MIPSI_SUBU, RID_TMP, ra_allock(as, 32, RSET_GPR), right); - } - } -} - -static void asm_min_max(ASMState *as, IRIns *ir, int ismax) -{ - if (irt_isnum(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - if (dest == left) { - emit_fg(as, MIPSI_MOVT_D, dest, right); - } else { - emit_fg(as, MIPSI_MOVF_D, dest, left); - if (dest != right) emit_fg(as, MIPSI_MOV_D, dest, right); - } - emit_fgh(as, MIPSI_C_OLT_D, 0, ismax ? left : right, ismax ? right : left); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - if (dest == left) { - emit_dst(as, MIPSI_MOVN, dest, right, RID_TMP); - } else { - emit_dst(as, MIPSI_MOVZ, dest, left, RID_TMP); - if (dest != right) emit_move(as, dest, right); - } - emit_dst(as, MIPSI_SLT, RID_TMP, - ismax ? left : right, ismax ? right : left); - } -} - -#define asm_min(as, ir) asm_min_max(as, ir, 0) -#define asm_max(as, ir) asm_min_max(as, ir, 1) - -/* -- Comparisons --------------------------------------------------------- */ - -static void asm_comp(ASMState *as, IRIns *ir) -{ - /* ORDER IR: LT GE LE GT ULT UGE ULE UGT. */ - IROp op = ir->o; - if (irt_isnum(ir->t)) { - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - asm_guard(as, (op&1) ? MIPSI_BC1T : MIPSI_BC1F, 0, 0); - emit_fgh(as, MIPSI_C_OLT_D + ((op&3) ^ ((op>>2)&1)), 0, left, right); - } else { - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - if (op == IR_ABC) op = IR_UGT; - if ((op&4) == 0 && irref_isk(ir->op2) && IR(ir->op2)->i == 0) { - MIPSIns mi = (op&2) ? ((op&1) ? MIPSI_BLEZ : MIPSI_BGTZ) : - ((op&1) ? MIPSI_BLTZ : MIPSI_BGEZ); - asm_guard(as, mi, left, 0); - } else { - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if ((op&2)) k++; - if (checki16(k)) { - asm_guard(as, (op&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); - emit_tsi(as, (op&4) ? MIPSI_SLTIU : MIPSI_SLTI, - RID_TMP, left, k); - return; - } - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - asm_guard(as, ((op^(op>>1))&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); - emit_dst(as, (op&4) ? MIPSI_SLTU : MIPSI_SLT, - RID_TMP, (op&2) ? right : left, (op&2) ? left : right); - } - } -} - -static void asm_equal(ASMState *as, IRIns *ir) -{ - Reg right, left = ra_alloc2(as, ir, irt_isnum(ir->t) ? RSET_FPR : RSET_GPR); - right = (left >> 8); left &= 255; - if (irt_isnum(ir->t)) { - asm_guard(as, (ir->o & 1) ? MIPSI_BC1T : MIPSI_BC1F, 0, 0); - emit_fgh(as, MIPSI_C_EQ_D, 0, left, right); - } else { - asm_guard(as, (ir->o & 1) ? MIPSI_BEQ : MIPSI_BNE, left, right); - } -} - -#if LJ_HASFFI -/* 64 bit integer comparisons. */ -static void asm_comp64(ASMState *as, IRIns *ir) -{ - /* ORDER IR: LT GE LE GT ULT UGE ULE UGT. */ - IROp op = (ir-1)->o; - MCLabel l_end; - Reg rightlo, leftlo, righthi, lefthi = ra_alloc2(as, ir, RSET_GPR); - righthi = (lefthi >> 8); lefthi &= 255; - leftlo = ra_alloc2(as, ir-1, - rset_exclude(rset_exclude(RSET_GPR, lefthi), righthi)); - rightlo = (leftlo >> 8); leftlo &= 255; - asm_guard(as, ((op^(op>>1))&1) ? MIPSI_BNE : MIPSI_BEQ, RID_TMP, RID_ZERO); - l_end = emit_label(as); - if (lefthi != righthi) - emit_dst(as, (op&4) ? MIPSI_SLTU : MIPSI_SLT, RID_TMP, - (op&2) ? righthi : lefthi, (op&2) ? lefthi : righthi); - emit_dst(as, MIPSI_SLTU, RID_TMP, - (op&2) ? rightlo : leftlo, (op&2) ? leftlo : rightlo); - if (lefthi != righthi) - emit_branch(as, MIPSI_BEQ, lefthi, righthi, l_end); -} - -static void asm_comp64eq(ASMState *as, IRIns *ir) -{ - Reg tmp, right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - asm_guard(as, ((ir-1)->o & 1) ? MIPSI_BEQ : MIPSI_BNE, RID_TMP, RID_ZERO); - tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, left), right)); - emit_dst(as, MIPSI_OR, RID_TMP, RID_TMP, tmp); - emit_dst(as, MIPSI_XOR, tmp, left, right); - left = ra_alloc2(as, ir-1, RSET_GPR); - right = (left >> 8); left &= 255; - emit_dst(as, MIPSI_XOR, RID_TMP, left, right); -} -#endif - -/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ - -/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ -static void asm_hiop(ASMState *as, IRIns *ir) -{ -#if LJ_HASFFI - /* HIOP is marked as a store because it needs its own DCE logic. */ - int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ - if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; - if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ - as->curins--; /* Always skip the CONV. */ - if (usehi || uselo) - asm_conv64(as, ir); - return; - } else if ((ir-1)->o < IR_EQ) { /* 64 bit integer comparisons. ORDER IR. */ - as->curins--; /* Always skip the loword comparison. */ - asm_comp64(as, ir); - return; - } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ - as->curins--; /* Always skip the loword comparison. */ - asm_comp64eq(as, ir); - return; - } else if ((ir-1)->o == IR_XSTORE) { - as->curins--; /* Handle both stores here. */ - if ((ir-1)->r != RID_SINK) { - asm_xstore_(as, ir, LJ_LE ? 4 : 0); - asm_xstore_(as, ir-1, LJ_LE ? 0 : 4); - } - return; - } - if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ - switch ((ir-1)->o) { - case IR_ADD: as->curins--; asm_add64(as, ir); break; - case IR_SUB: as->curins--; asm_sub64(as, ir); break; - case IR_NEG: as->curins--; asm_neg64(as, ir); break; - case IR_CALLN: - case IR_CALLXS: - if (!uselo) - ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ - break; - case IR_CNEWI: - /* Nothing to do here. Handled by lo op itself. */ - break; - default: lua_assert(0); break; - } -#else - UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused without FFI. */ -#endif -} - -/* -- Profiling ----------------------------------------------------------- */ - -static void asm_prof(ASMState *as, IRIns *ir) -{ - UNUSED(ir); - asm_guard(as, MIPSI_BNE, RID_TMP, RID_ZERO); - emit_tsi(as, MIPSI_ANDI, RID_TMP, RID_TMP, HOOK_PROFILE); - emit_lsglptr(as, MIPSI_LBU, RID_TMP, - (int32_t)offsetof(global_State, hookmask)); -} - -/* -- Stack handling ------------------------------------------------------ */ - -/* Check Lua stack size for overflow. Use exit handler as fallback. */ -static void asm_stack_check(ASMState *as, BCReg topslot, - IRIns *irp, RegSet allow, ExitNo exitno) -{ - /* Try to get an unused temp. register, otherwise spill/restore RID_RET*. */ - Reg tmp, pbase = irp ? (ra_hasreg(irp->r) ? irp->r : RID_TMP) : RID_BASE; - ExitNo oldsnap = as->snapno; - rset_clear(allow, pbase); - tmp = allow ? rset_pickbot(allow) : - (pbase == RID_RETHI ? RID_RETLO : RID_RETHI); - as->snapno = exitno; - asm_guard(as, MIPSI_BNE, RID_TMP, RID_ZERO); - as->snapno = oldsnap; - if (allow == RSET_EMPTY) /* Restore temp. register. */ - emit_tsi(as, MIPSI_LW, tmp, RID_SP, 0); - else - ra_modified(as, tmp); - emit_tsi(as, MIPSI_SLTIU, RID_TMP, RID_TMP, (int32_t)(8*topslot)); - emit_dst(as, MIPSI_SUBU, RID_TMP, tmp, pbase); - emit_tsi(as, MIPSI_LW, tmp, tmp, offsetof(lua_State, maxstack)); - if (pbase == RID_TMP) - emit_getgl(as, RID_TMP, jit_base); - emit_getgl(as, tmp, cur_L); - if (allow == RSET_EMPTY) /* Spill temp. register. */ - emit_tsi(as, MIPSI_SW, tmp, RID_SP, 0); -} - -/* Restore Lua stack from on-trace state. */ -static void asm_stack_restore(ASMState *as, SnapShot *snap) -{ - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; - MSize n, nent = snap->nent; - /* Store the value of all modified slots to the Lua stack. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - BCReg s = snap_slot(sn); - int32_t ofs = 8*((int32_t)s-1); - IRRef ref = snap_ref(sn); - IRIns *ir = IR(ref); - if ((sn & SNAP_NORESTORE)) - continue; - if (irt_isnum(ir->t)) { - Reg src = ra_alloc1(as, ref, RSET_FPR); - emit_hsi(as, MIPSI_SDC1, src, RID_BASE, ofs); - } else { - Reg type; - RegSet allow = rset_exclude(RSET_GPR, RID_BASE); - lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, allow); - rset_clear(allow, src); - emit_tsi(as, MIPSI_SW, src, RID_BASE, ofs+(LJ_BE?4:0)); - } - if ((sn & (SNAP_CONT|SNAP_FRAME))) { - if (s == 0) continue; /* Do not overwrite link to previous frame. */ - type = ra_allock(as, (int32_t)(*flinks--), allow); - } else { - type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); - } - emit_tsi(as, MIPSI_SW, type, RID_BASE, ofs+(LJ_BE?0:4)); - } - checkmclim(as); - } - lua_assert(map + nent == flinks); -} - -/* -- GC handling --------------------------------------------------------- */ - -/* Check GC threshold and do one or more GC steps. */ -static void asm_gc_check(ASMState *as) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; - IRRef args[2]; - MCLabel l_end; - Reg tmp; - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ - /* Assumes asm_snap_prep() already done. */ - asm_guard(as, MIPSI_BNE, RID_RET, RID_ZERO); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ASMREF_TMP2; /* MSize steps */ - asm_gencall(as, ci, args); - emit_tsi(as, MIPSI_ADDIU, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); - tmp = ra_releasetmp(as, ASMREF_TMP2); - emit_loadi(as, tmp, as->gcsteps); - /* Jump around GC step if GC total < GC threshold. */ - emit_branch(as, MIPSI_BNE, RID_TMP, RID_ZERO, l_end); - emit_dst(as, MIPSI_SLTU, RID_TMP, RID_TMP, tmp); - emit_getgl(as, tmp, gc.threshold); - emit_getgl(as, RID_TMP, gc.total); - as->gcsteps = 0; - checkmclim(as); -} - -/* -- Loop handling ------------------------------------------------------- */ - -/* Fixup the loop branch. */ -static void asm_loop_fixup(ASMState *as) -{ - MCode *p = as->mctop; - MCode *target = as->mcp; - p[-1] = MIPSI_NOP; - if (as->loopinv) { /* Inverted loop branch? */ - /* asm_guard already inverted the cond branch. Only patch the target. */ - p[-3] |= ((target-p+2) & 0x0000ffffu); - } else { - p[-2] = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); - } -} - -/* -- Head of trace ------------------------------------------------------- */ - -/* Coalesce BASE register for a root trace. */ -static void asm_head_root_base(ASMState *as) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (as->loopinv) as->mctop--; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (r != RID_BASE) - emit_move(as, r, RID_BASE); - } -} - -/* Coalesce BASE register for a side trace. */ -static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (as->loopinv) as->mctop--; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (irp->r == r) { - rset_clear(allow, r); /* Mark same BASE register as coalesced. */ - } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { - rset_clear(allow, irp->r); - emit_move(as, r, irp->r); /* Move from coalesced parent reg. */ - } else { - emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ - } - } - return allow; -} - -/* -- Tail of trace ------------------------------------------------------- */ - -/* Fixup the tail code. */ -static void asm_tail_fixup(ASMState *as, TraceNo lnk) -{ - MCode *target = lnk ? traceref(as->J,lnk)->mcode : (MCode *)lj_vm_exit_interp; - int32_t spadj = as->T->spadjust; - MCode *p = as->mctop-1; - *p = spadj ? (MIPSI_ADDIU|MIPSF_T(RID_SP)|MIPSF_S(RID_SP)|spadj) : MIPSI_NOP; - p[-1] = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); -} - -/* Prepare tail of code. */ -static void asm_tail_prep(ASMState *as) -{ - as->mcp = as->mctop-2; /* Leave room for branch plus nop or stack adj. */ - as->invmcp = as->loopref ? as->mcp : NULL; -} - -/* -- Trace setup --------------------------------------------------------- */ - -/* Ensure there are enough stack slots for call arguments. */ -static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = CCI_XNARGS(ci); - int nslots = 4, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; - asm_collectargs(as, ir, ci, args); - for (i = 0; i < nargs; i++) { - if (args[i] && irt_isfp(IR(args[i])->t) && - nfpr > 0 && !(ci->flags & CCI_VARARG)) { - nfpr--; - ngpr -= irt_isnum(IR(args[i])->t) ? 2 : 1; - } else if (args[i] && irt_isnum(IR(args[i])->t)) { - nfpr = 0; - ngpr = ngpr & ~1; - if (ngpr > 0) ngpr -= 2; else nslots = (nslots+3) & ~1; - } else { - nfpr = 0; - if (ngpr > 0) ngpr--; else nslots++; - } - } - if (nslots > as->evenspill) /* Leave room for args in stack slots. */ - as->evenspill = nslots; - return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); -} - -static void asm_setup_target(ASMState *as) -{ - asm_sparejump_setup(as); - asm_exitstub_setup(as); -} - -/* -- Trace patching ------------------------------------------------------ */ - -/* Patch exit jumps of existing machine code to a new target. */ -void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) -{ - MCode *p = T->mcode; - MCode *pe = (MCode *)((char *)p + T->szmcode); - MCode *px = exitstub_trace_addr(T, exitno); - MCode *cstart = NULL, *cstop = NULL; - MCode *mcarea = lj_mcode_patch(J, p, 0); - MCode exitload = MIPSI_LI | MIPSF_T(RID_TMP) | exitno; - MCode tjump = MIPSI_J|(((uintptr_t)target>>2)&0x03ffffffu); - for (p++; p < pe; p++) { - if (*p == exitload) { /* Look for load of exit number. */ - if (((p[-1] ^ (px-p)) & 0xffffu) == 0) { /* Look for exitstub branch. */ - ptrdiff_t delta = target - p; - if (((delta + 0x8000) >> 16) == 0) { /* Patch in-range branch. */ - patchbranch: - p[-1] = (p[-1] & 0xffff0000u) | (delta & 0xffffu); - *p = MIPSI_NOP; /* Replace the load of the exit number. */ - cstop = p; - if (!cstart) cstart = p-1; - } else { /* Branch out of range. Use spare jump slot in mcarea. */ - int i; - for (i = 2; i < 2+MIPS_SPAREJUMP*2; i += 2) { - if (mcarea[i] == tjump) { - delta = mcarea+i - p; - goto patchbranch; - } else if (mcarea[i] == MIPSI_NOP) { - mcarea[i] = tjump; - cstart = mcarea+i; - delta = mcarea+i - p; - goto patchbranch; - } - } - /* Ignore jump slot overflow. Child trace is simply not attached. */ - } - } else if (p+1 == pe) { - /* Patch NOP after code for inverted loop branch. Use of J is ok. */ - lua_assert(p[1] == MIPSI_NOP); - p[1] = tjump; - *p = MIPSI_NOP; /* Replace the load of the exit number. */ - cstop = p+2; - if (!cstart) cstart = p+1; - } - } - } - if (cstart) lj_mcode_sync(cstart, cstop); - lj_mcode_patch(J, mcarea, 1); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h deleted file mode 100644 index 221e221a012..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm_ppc.h +++ /dev/null @@ -1,2013 +0,0 @@ -/* -** PPC IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Register allocator extensions --------------------------------------- */ - -/* Allocate a register with a hint. */ -static Reg ra_hintalloc(ASMState *as, IRRef ref, Reg hint, RegSet allow) -{ - Reg r = IR(ref)->r; - if (ra_noreg(r)) { - if (!ra_hashint(r) && !iscrossref(as, ref)) - ra_sethint(IR(ref)->r, hint); /* Propagate register hint. */ - r = ra_allocref(as, ref, allow); - } - ra_noweak(as, r); - return r; -} - -/* Allocate two source registers for three-operand instructions. */ -static Reg ra_alloc2(ASMState *as, IRIns *ir, RegSet allow) -{ - IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); - Reg left = irl->r, right = irr->r; - if (ra_hasreg(left)) { - ra_noweak(as, left); - if (ra_noreg(right)) - right = ra_allocref(as, ir->op2, rset_exclude(allow, left)); - else - ra_noweak(as, right); - } else if (ra_hasreg(right)) { - ra_noweak(as, right); - left = ra_allocref(as, ir->op1, rset_exclude(allow, right)); - } else if (ra_hashint(right)) { - right = ra_allocref(as, ir->op2, allow); - left = ra_alloc1(as, ir->op1, rset_exclude(allow, right)); - } else { - left = ra_allocref(as, ir->op1, allow); - right = ra_alloc1(as, ir->op2, rset_exclude(allow, left)); - } - return left | (right << 8); -} - -/* -- Guard handling ------------------------------------------------------ */ - -/* Setup exit stubs after the end of each trace. */ -static void asm_exitstub_setup(ASMState *as, ExitNo nexits) -{ - ExitNo i; - MCode *mxp = as->mctop; - if (mxp - (nexits + 3 + MCLIM_REDZONE) < as->mclim) - asm_mclimit(as); - /* 1: mflr r0; bl ->vm_exit_handler; li r0, traceno; bl <1; bl <1; ... */ - for (i = nexits-1; (int32_t)i >= 0; i--) - *--mxp = PPCI_BL|(((-3-i)&0x00ffffffu)<<2); - *--mxp = PPCI_LI|PPCF_T(RID_TMP)|as->T->traceno; /* Read by exit handler. */ - mxp--; - *mxp = PPCI_BL|((((MCode *)(void *)lj_vm_exit_handler-mxp)&0x00ffffffu)<<2); - *--mxp = PPCI_MFLR|PPCF_T(RID_TMP); - as->mctop = mxp; -} - -static MCode *asm_exitstub_addr(ASMState *as, ExitNo exitno) -{ - /* Keep this in-sync with exitstub_trace_addr(). */ - return as->mctop + exitno + 3; -} - -/* Emit conditional branch to exit for guard. */ -static void asm_guardcc(ASMState *as, PPCCC cc) -{ - MCode *target = asm_exitstub_addr(as, as->snapno); - MCode *p = as->mcp; - if (LJ_UNLIKELY(p == as->invmcp)) { - as->loopinv = 1; - *p = PPCI_B | (((target-p) & 0x00ffffffu) << 2); - emit_condbranch(as, PPCI_BC, cc^4, p); - return; - } - emit_condbranch(as, PPCI_BC, cc, target); -} - -/* -- Operand fusion ------------------------------------------------------ */ - -/* Limit linear search to this distance. Avoids O(n^2) behavior. */ -#define CONFLICT_SEARCH_LIM 31 - -/* Check if there's no conflicting instruction between curins and ref. */ -static int noconflict(ASMState *as, IRRef ref, IROp conflict) -{ - IRIns *ir = as->ir; - IRRef i = as->curins; - if (i > ref + CONFLICT_SEARCH_LIM) - return 0; /* Give up, ref is too far away. */ - while (--i > ref) - if (ir[i].o == conflict) - return 0; /* Conflict found. */ - return 1; /* Ok, no conflict. */ -} - -/* Fuse the array base of colocated arrays. */ -static int32_t asm_fuseabase(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (ir->o == IR_TNEW && ir->op1 <= LJ_MAX_COLOSIZE && - !neverfuse(as) && noconflict(as, ref, IR_NEWREF)) - return (int32_t)sizeof(GCtab); - return 0; -} - -/* Indicates load/store indexed is ok. */ -#define AHUREF_LSX ((int32_t)0x80000000) - -/* Fuse array/hash/upvalue reference into register+offset operand. */ -static Reg asm_fuseahuref(ASMState *as, IRRef ref, int32_t *ofsp, RegSet allow) -{ - IRIns *ir = IR(ref); - if (ra_noreg(ir->r)) { - if (ir->o == IR_AREF) { - if (mayfuse(as, ref)) { - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - ofs += 8*IR(ir->op2)->i; - if (checki16(ofs)) { - *ofsp = ofs; - return ra_alloc1(as, refa, allow); - } - } - if (*ofsp == AHUREF_LSX) { - Reg base = ra_alloc1(as, ir->op1, allow); - Reg idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); - return base | (idx << 8); - } - } - } else if (ir->o == IR_HREFK) { - if (mayfuse(as, ref)) { - int32_t ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); - if (checki16(ofs)) { - *ofsp = ofs; - return ra_alloc1(as, ir->op1, allow); - } - } - } else if (ir->o == IR_UREFC) { - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - int32_t ofs = i32ptr(&gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.tv); - int32_t jgl = (intptr_t)J2G(as->J); - if ((uint32_t)(ofs-jgl) < 65536) { - *ofsp = ofs-jgl-32768; - return RID_JGL; - } else { - *ofsp = (int16_t)ofs; - return ra_allock(as, ofs-(int16_t)ofs, allow); - } - } - } - } - *ofsp = 0; - return ra_alloc1(as, ref, allow); -} - -/* Fuse XLOAD/XSTORE reference into load/store operand. */ -static void asm_fusexref(ASMState *as, PPCIns pi, Reg rt, IRRef ref, - RegSet allow, int32_t ofs) -{ - IRIns *ir = IR(ref); - Reg base; - if (ra_noreg(ir->r) && canfuse(as, ir)) { - if (ir->o == IR_ADD) { - int32_t ofs2; - if (irref_isk(ir->op2) && (ofs2 = ofs + IR(ir->op2)->i, checki16(ofs2))) { - ofs = ofs2; - ref = ir->op1; - } else if (ofs == 0) { - Reg right, left = ra_alloc2(as, ir, allow); - right = (left >> 8); left &= 255; - emit_fab(as, PPCI_LWZX | ((pi >> 20) & 0x780), rt, left, right); - return; - } - } else if (ir->o == IR_STRREF) { - lua_assert(ofs == 0); - ofs = (int32_t)sizeof(GCstr); - if (irref_isk(ir->op2)) { - ofs += IR(ir->op2)->i; - ref = ir->op1; - } else if (irref_isk(ir->op1)) { - ofs += IR(ir->op1)->i; - ref = ir->op2; - } else { - /* NYI: Fuse ADD with constant. */ - Reg tmp, right, left = ra_alloc2(as, ir, allow); - right = (left >> 8); left &= 255; - tmp = ra_scratch(as, rset_exclude(rset_exclude(allow, left), right)); - emit_fai(as, pi, rt, tmp, ofs); - emit_tab(as, PPCI_ADD, tmp, left, right); - return; - } - if (!checki16(ofs)) { - Reg left = ra_alloc1(as, ref, allow); - Reg right = ra_allock(as, ofs, rset_exclude(allow, left)); - emit_fab(as, PPCI_LWZX | ((pi >> 20) & 0x780), rt, left, right); - return; - } - } - } - base = ra_alloc1(as, ref, allow); - emit_fai(as, pi, rt, base, ofs); -} - -/* Fuse XLOAD/XSTORE reference into indexed-only load/store operand. */ -static void asm_fusexrefx(ASMState *as, PPCIns pi, Reg rt, IRRef ref, - RegSet allow) -{ - IRIns *ira = IR(ref); - Reg right, left; - if (canfuse(as, ira) && ira->o == IR_ADD && ra_noreg(ira->r)) { - left = ra_alloc2(as, ira, allow); - right = (left >> 8); left &= 255; - } else { - right = ra_alloc1(as, ref, allow); - left = RID_R0; - } - emit_tab(as, pi, rt, left, right); -} - -/* Fuse to multiply-add/sub instruction. */ -static int asm_fusemadd(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pir) -{ - IRRef lref = ir->op1, rref = ir->op2; - IRIns *irm; - if (lref != rref && - ((mayfuse(as, lref) && (irm = IR(lref), irm->o == IR_MUL) && - ra_noreg(irm->r)) || - (mayfuse(as, rref) && (irm = IR(rref), irm->o == IR_MUL) && - (rref = lref, pi = pir, ra_noreg(irm->r))))) { - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg add = ra_alloc1(as, rref, RSET_FPR); - Reg right, left = ra_alloc2(as, irm, rset_exclude(RSET_FPR, add)); - right = (left >> 8); left &= 255; - emit_facb(as, pi, dest, left, right, add); - return 1; - } - return 0; -} - -/* -- Calls --------------------------------------------------------------- */ - -/* Generate a call to a C function. */ -static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) -{ - uint32_t n, nargs = CCI_XNARGS(ci); - int32_t ofs = 8; - Reg gpr = REGARG_FIRSTGPR, fpr = REGARG_FIRSTFPR; - if ((void *)ci->func) - emit_call(as, (void *)ci->func); - for (n = 0; n < nargs; n++) { /* Setup args. */ - IRRef ref = args[n]; - if (ref) { - IRIns *ir = IR(ref); - if (irt_isfp(ir->t)) { - if (fpr <= REGARG_LASTFPR) { - lua_assert(rset_test(as->freeset, fpr)); /* Already evicted. */ - ra_leftov(as, fpr, ref); - fpr++; - } else { - Reg r = ra_alloc1(as, ref, RSET_FPR); - if (irt_isnum(ir->t)) ofs = (ofs + 4) & ~4; - emit_spstore(as, ir, r, ofs); - ofs += irt_isnum(ir->t) ? 8 : 4; - } - } else { - if (gpr <= REGARG_LASTGPR) { - lua_assert(rset_test(as->freeset, gpr)); /* Already evicted. */ - ra_leftov(as, gpr, ref); - gpr++; - } else { - Reg r = ra_alloc1(as, ref, RSET_GPR); - emit_spstore(as, ir, r, ofs); - ofs += 4; - } - } - } else { - if (gpr <= REGARG_LASTGPR) - gpr++; - else - ofs += 4; - } - checkmclim(as); - } - if ((ci->flags & CCI_VARARG)) /* Vararg calls need to know about FPR use. */ - emit_tab(as, fpr == REGARG_FIRSTFPR ? PPCI_CRXOR : PPCI_CREQV, 6, 6, 6); -} - -/* Setup result reg/sp for call. Evict scratch regs. */ -static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - RegSet drop = RSET_SCRATCH; - int hiop = ((ir+1)->o == IR_HIOP); - if ((ci->flags & CCI_NOFPRCLOBBER)) - drop &= ~RSET_FPR; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - if (hiop && ra_hasreg((ir+1)->r)) - rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ - ra_evictset(as, drop); /* Evictions must be performed first. */ - if (ra_used(ir)) { - lua_assert(!irt_ispri(ir->t)); - if (irt_isfp(ir->t)) { - if ((ci->flags & CCI_CASTU64)) { - /* Use spill slot or temp slots. */ - int32_t ofs = ir->s ? sps_scale(ir->s) : SPOFS_TMP; - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_fai(as, PPCI_LFD, dest, RID_SP, ofs); - } - emit_tai(as, PPCI_STW, RID_RETHI, RID_SP, ofs); - emit_tai(as, PPCI_STW, RID_RETLO, RID_SP, ofs+4); - } else { - ra_destreg(as, ir, RID_FPRET); - } - } else if (hiop) { - ra_destpair(as, ir); - } else { - ra_destreg(as, ir, RID_RET); - } - } -} - -static void asm_callx(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX*2]; - CCallInfo ci; - IRRef func; - IRIns *irf; - ci.flags = asm_callx_flags(as, ir); - asm_collectargs(as, ir, &ci, args); - asm_setupresult(as, ir, &ci); - func = ir->op2; irf = IR(func); - if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } - if (irref_isk(func)) { /* Call to constant address. */ - ci.func = (ASMFunction)(void *)(irf->i); - } else { /* Need a non-argument register for indirect calls. */ - RegSet allow = RSET_GPR & ~RSET_RANGE(RID_R0, REGARG_LASTGPR+1); - Reg freg = ra_alloc1(as, func, allow); - *--as->mcp = PPCI_BCTRL; - *--as->mcp = PPCI_MTCTR | PPCF_T(freg); - ci.func = (ASMFunction)(void *)0; - } - asm_gencall(as, &ci, args); -} - -/* -- Returns ------------------------------------------------------------- */ - -/* Return to lower frame. Guard that it goes to the right spot. */ -static void asm_retf(ASMState *as, IRIns *ir) -{ - Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); - void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); - as->topslot -= (BCReg)delta; - if ((int32_t)as->topslot < 0) as->topslot = 0; - irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ - emit_setgl(as, base, jit_base); - emit_addptr(as, base, -8*delta); - asm_guardcc(as, CC_NE); - emit_ab(as, PPCI_CMPW, RID_TMP, - ra_allock(as, i32ptr(pc), rset_exclude(RSET_GPR, base))); - emit_tai(as, PPCI_LWZ, RID_TMP, base, -8); -} - -/* -- Type conversions ---------------------------------------------------- */ - -static void asm_tointg(ASMState *as, IRIns *ir, Reg left) -{ - RegSet allow = RSET_FPR; - Reg tmp = ra_scratch(as, rset_clear(allow, left)); - Reg fbias = ra_scratch(as, rset_clear(allow, tmp)); - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg hibias = ra_allock(as, 0x43300000, rset_exclude(RSET_GPR, dest)); - asm_guardcc(as, CC_NE); - emit_fab(as, PPCI_FCMPU, 0, tmp, left); - emit_fab(as, PPCI_FSUB, tmp, tmp, fbias); - emit_fai(as, PPCI_LFD, tmp, RID_SP, SPOFS_TMP); - emit_tai(as, PPCI_STW, RID_TMP, RID_SP, SPOFS_TMPLO); - emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); - emit_asi(as, PPCI_XORIS, RID_TMP, dest, 0x8000); - emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); - emit_lsptr(as, PPCI_LFS, (fbias & 31), - (void *)lj_ir_k64_find(as->J, U64x(59800004,59800000)), - RSET_GPR); - emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); - emit_fb(as, PPCI_FCTIWZ, tmp, left); -} - -static void asm_tobit(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_FPR; - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, allow); - Reg right = ra_alloc1(as, ir->op2, rset_clear(allow, left)); - Reg tmp = ra_scratch(as, rset_clear(allow, right)); - emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); - emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); - emit_fab(as, PPCI_FADD, tmp, left, right); -} - -static void asm_conv(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); - int stfp = (st == IRT_NUM || st == IRT_FLOAT); - IRRef lref = ir->op1; - lua_assert(irt_type(ir->t) != st); - lua_assert(!(irt_isint64(ir->t) || - (st == IRT_I64 || st == IRT_U64))); /* Handled by SPLIT. */ - if (irt_isfp(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - if (stfp) { /* FP to FP conversion. */ - if (st == IRT_NUM) /* double -> float conversion. */ - emit_fb(as, PPCI_FRSP, dest, ra_alloc1(as, lref, RSET_FPR)); - else /* float -> double conversion is a no-op on PPC. */ - ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ - } else { /* Integer to FP conversion. */ - /* IRT_INT: Flip hibit, bias with 2^52, subtract 2^52+2^31. */ - /* IRT_U32: Bias with 2^52, subtract 2^52. */ - RegSet allow = RSET_GPR; - Reg left = ra_alloc1(as, lref, allow); - Reg hibias = ra_allock(as, 0x43300000, rset_clear(allow, left)); - Reg fbias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); - const float *kbias; - if (irt_isfloat(ir->t)) emit_fb(as, PPCI_FRSP, dest, dest); - emit_fab(as, PPCI_FSUB, dest, dest, fbias); - emit_fai(as, PPCI_LFD, dest, RID_SP, SPOFS_TMP); - kbias = (const float *)lj_ir_k64_find(as->J, U64x(59800004,59800000)); - if (st == IRT_U32) kbias++; - emit_lsptr(as, PPCI_LFS, (fbias & 31), (void *)kbias, - rset_clear(allow, hibias)); - emit_tai(as, PPCI_STW, st == IRT_U32 ? left : RID_TMP, - RID_SP, SPOFS_TMPLO); - emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); - if (st != IRT_U32) emit_asi(as, PPCI_XORIS, RID_TMP, left, 0x8000); - } - } else if (stfp) { /* FP to integer conversion. */ - if (irt_isguard(ir->t)) { - /* Checked conversions are only supported from number to int. */ - lua_assert(irt_isint(ir->t) && st == IRT_NUM); - asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, lref, RSET_FPR); - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - if (irt_isu32(ir->t)) { - /* Convert both x and x-2^31 to int and merge results. */ - Reg tmpi = ra_scratch(as, rset_exclude(RSET_GPR, dest)); - emit_asb(as, PPCI_OR, dest, dest, tmpi); /* Select with mask idiom. */ - emit_asb(as, PPCI_AND, tmpi, tmpi, RID_TMP); - emit_asb(as, PPCI_ANDC, dest, dest, RID_TMP); - emit_tai(as, PPCI_LWZ, tmpi, RID_SP, SPOFS_TMPLO); /* tmp = (int)(x) */ - emit_tai(as, PPCI_ADDIS, dest, dest, 0x8000); /* dest += 2^31 */ - emit_asb(as, PPCI_SRAWI, RID_TMP, dest, 31); /* mask = -(dest < 0) */ - emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); - emit_tai(as, PPCI_LWZ, dest, - RID_SP, SPOFS_TMPLO); /* dest = (int)(x-2^31) */ - emit_fb(as, PPCI_FCTIWZ, tmp, left); - emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); - emit_fb(as, PPCI_FCTIWZ, tmp, tmp); - emit_fab(as, PPCI_FSUB, tmp, left, tmp); - emit_lsptr(as, PPCI_LFS, (tmp & 31), - (void *)lj_ir_k64_find(as->J, U64x(4f000000,00000000)), - RSET_GPR); - } else { - emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); - emit_fai(as, PPCI_STFD, tmp, RID_SP, SPOFS_TMP); - emit_fb(as, PPCI_FCTIWZ, tmp, left); - } - } - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); - if ((ir->op2 & IRCONV_SEXT)) - emit_as(as, st == IRT_I8 ? PPCI_EXTSB : PPCI_EXTSH, dest, left); - else - emit_rot(as, PPCI_RLWINM, dest, left, 0, st == IRT_U8 ? 24 : 16, 31); - } else { /* 32/64 bit integer conversions. */ - /* Only need to handle 32/32 bit no-op (cast) on 32 bit archs. */ - ra_leftov(as, dest, lref); /* Do nothing, but may need to move regs. */ - } - } -} - -static void asm_strto(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; - IRRef args[2]; - int32_t ofs; - RegSet drop = RSET_SCRATCH; - if (ra_hasreg(ir->r)) rset_set(drop, ir->r); /* Spill dest reg (if any). */ - ra_evictset(as, drop); - asm_guardcc(as, CC_EQ); - emit_ai(as, PPCI_CMPWI, RID_RET, 0); /* Test return status. */ - args[0] = ir->op1; /* GCstr *str */ - args[1] = ASMREF_TMP1; /* TValue *n */ - asm_gencall(as, ci, args); - /* Store the result to the spill slot or temp slots. */ - ofs = ir->s ? sps_scale(ir->s) : SPOFS_TMP; - emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_SP, ofs); -} - -/* -- Memory references --------------------------------------------------- */ - -/* Get pointer to TValue. */ -static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) -{ - IRIns *ir = IR(ref); - if (irt_isnum(ir->t)) { - if (irref_isk(ref)) /* Use the number constant itself as a TValue. */ - ra_allockreg(as, i32ptr(ir_knum(ir)), dest); - else /* Otherwise force a spill and use the spill slot. */ - emit_tai(as, PPCI_ADDI, dest, RID_SP, ra_spill(as, ir)); - } else { - /* Otherwise use g->tmptv to hold the TValue. */ - RegSet allow = rset_exclude(RSET_GPR, dest); - Reg type; - emit_tai(as, PPCI_ADDI, dest, RID_JGL, offsetof(global_State, tmptv)-32768); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, allow); - emit_setgl(as, src, tmptv.gcr); - } - type = ra_allock(as, irt_toitype(ir->t), allow); - emit_setgl(as, type, tmptv.it); - } -} - -static void asm_aref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx, base; - if (irref_isk(ir->op2)) { - IRRef tab = IR(ir->op1)->op1; - int32_t ofs = asm_fuseabase(as, tab); - IRRef refa = ofs ? tab : ir->op1; - ofs += 8*IR(ir->op2)->i; - if (checki16(ofs)) { - base = ra_alloc1(as, refa, RSET_GPR); - emit_tai(as, PPCI_ADDI, dest, base, ofs); - return; - } - } - base = ra_alloc1(as, ir->op1, RSET_GPR); - idx = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, base)); - emit_tab(as, PPCI_ADD, dest, RID_TMP, base); - emit_slwi(as, RID_TMP, idx, 3); -} - -/* Inlined hash lookup. Specialized for key type and for const keys. -** The equivalent C code is: -** Node *n = hashkey(t, key); -** do { -** if (lj_obj_equal(&n->key, key)) return &n->val; -** } while ((n = nextnode(n))); -** return niltv(L); -*/ -static void asm_href(ASMState *as, IRIns *ir, IROp merge) -{ - RegSet allow = RSET_GPR; - int destused = ra_used(ir); - Reg dest = ra_dest(as, ir, allow); - Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); - Reg key = RID_NONE, tmp1 = RID_TMP, tmp2; - Reg tisnum = RID_NONE, tmpnum = RID_NONE; - IRRef refkey = ir->op2; - IRIns *irkey = IR(refkey); - IRType1 kt = irkey->t; - uint32_t khash; - MCLabel l_end, l_loop, l_next; - - rset_clear(allow, tab); - if (irt_isnum(kt)) { - key = ra_alloc1(as, refkey, RSET_FPR); - tmpnum = ra_scratch(as, rset_exclude(RSET_FPR, key)); - tisnum = ra_allock(as, (int32_t)LJ_TISNUM, allow); - rset_clear(allow, tisnum); - } else if (!irt_ispri(kt)) { - key = ra_alloc1(as, refkey, allow); - rset_clear(allow, key); - } - tmp2 = ra_scratch(as, allow); - rset_clear(allow, tmp2); - - /* Key not found in chain: jump to exit (if merged) or load niltv. */ - l_end = emit_label(as); - as->invmcp = NULL; - if (merge == IR_NE) - asm_guardcc(as, CC_EQ); - else if (destused) - emit_loada(as, dest, niltvg(J2G(as->J))); - - /* Follow hash chain until the end. */ - l_loop = --as->mcp; - emit_ai(as, PPCI_CMPWI, dest, 0); - emit_tai(as, PPCI_LWZ, dest, dest, (int32_t)offsetof(Node, next)); - l_next = emit_label(as); - - /* Type and value comparison. */ - if (merge == IR_EQ) - asm_guardcc(as, CC_EQ); - else - emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); - if (irt_isnum(kt)) { - emit_fab(as, PPCI_FCMPU, 0, tmpnum, key); - emit_condbranch(as, PPCI_BC, CC_GE, l_next); - emit_ab(as, PPCI_CMPLW, tmp1, tisnum); - emit_fai(as, PPCI_LFD, tmpnum, dest, (int32_t)offsetof(Node, key.n)); - } else { - if (!irt_ispri(kt)) { - emit_ab(as, PPCI_CMPW, tmp2, key); - emit_condbranch(as, PPCI_BC, CC_NE, l_next); - } - emit_ai(as, PPCI_CMPWI, tmp1, irt_toitype(irkey->t)); - if (!irt_ispri(kt)) - emit_tai(as, PPCI_LWZ, tmp2, dest, (int32_t)offsetof(Node, key.gcr)); - } - emit_tai(as, PPCI_LWZ, tmp1, dest, (int32_t)offsetof(Node, key.it)); - *l_loop = PPCI_BC | PPCF_Y | PPCF_CC(CC_NE) | - (((char *)as->mcp-(char *)l_loop) & 0xffffu); - - /* Load main position relative to tab->node into dest. */ - khash = irref_isk(refkey) ? ir_khash(irkey) : 1; - if (khash == 0) { - emit_tai(as, PPCI_LWZ, dest, tab, (int32_t)offsetof(GCtab, node)); - } else { - Reg tmphash = tmp1; - if (irref_isk(refkey)) - tmphash = ra_allock(as, khash, allow); - emit_tab(as, PPCI_ADD, dest, dest, tmp1); - emit_tai(as, PPCI_MULLI, tmp1, tmp1, sizeof(Node)); - emit_asb(as, PPCI_AND, tmp1, tmp2, tmphash); - emit_tai(as, PPCI_LWZ, dest, tab, (int32_t)offsetof(GCtab, node)); - emit_tai(as, PPCI_LWZ, tmp2, tab, (int32_t)offsetof(GCtab, hmask)); - if (irref_isk(refkey)) { - /* Nothing to do. */ - } else if (irt_isstr(kt)) { - emit_tai(as, PPCI_LWZ, tmp1, key, (int32_t)offsetof(GCstr, hash)); - } else { /* Must match with hash*() in lj_tab.c. */ - emit_tab(as, PPCI_SUBF, tmp1, tmp2, tmp1); - emit_rotlwi(as, tmp2, tmp2, HASH_ROT3); - emit_asb(as, PPCI_XOR, tmp1, tmp1, tmp2); - emit_rotlwi(as, tmp1, tmp1, (HASH_ROT2+HASH_ROT1)&31); - emit_tab(as, PPCI_SUBF, tmp2, dest, tmp2); - if (irt_isnum(kt)) { - int32_t ofs = ra_spill(as, irkey); - emit_asb(as, PPCI_XOR, tmp2, tmp2, tmp1); - emit_rotlwi(as, dest, tmp1, HASH_ROT1); - emit_tab(as, PPCI_ADD, tmp1, tmp1, tmp1); - emit_tai(as, PPCI_LWZ, tmp2, RID_SP, ofs+4); - emit_tai(as, PPCI_LWZ, tmp1, RID_SP, ofs); - } else { - emit_asb(as, PPCI_XOR, tmp2, key, tmp1); - emit_rotlwi(as, dest, tmp1, HASH_ROT1); - emit_tai(as, PPCI_ADDI, tmp1, tmp2, HASH_BIAS); - emit_tai(as, PPCI_ADDIS, tmp2, key, (HASH_BIAS + 32768)>>16); - } - } - } -} - -static void asm_hrefk(ASMState *as, IRIns *ir) -{ - IRIns *kslot = IR(ir->op2); - IRIns *irkey = IR(kslot->op1); - int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); - int32_t kofs = ofs + (int32_t)offsetof(Node, key); - Reg dest = (ra_used(ir)||ofs > 32736) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; - Reg node = ra_alloc1(as, ir->op1, RSET_GPR); - Reg key = RID_NONE, type = RID_TMP, idx = node; - RegSet allow = rset_exclude(RSET_GPR, node); - lua_assert(ofs % sizeof(Node) == 0); - if (ofs > 32736) { - idx = dest; - rset_clear(allow, dest); - kofs = (int32_t)offsetof(Node, key); - } else if (ra_hasreg(dest)) { - emit_tai(as, PPCI_ADDI, dest, node, ofs); - } - asm_guardcc(as, CC_NE); - if (!irt_ispri(irkey->t)) { - key = ra_scratch(as, allow); - rset_clear(allow, key); - } - rset_clear(allow, type); - if (irt_isnum(irkey->t)) { - emit_cmpi(as, key, (int32_t)ir_knum(irkey)->u32.lo); - asm_guardcc(as, CC_NE); - emit_cmpi(as, type, (int32_t)ir_knum(irkey)->u32.hi); - } else { - if (ra_hasreg(key)) { - emit_cmpi(as, key, irkey->i); /* May use RID_TMP, i.e. type. */ - asm_guardcc(as, CC_NE); - } - emit_ai(as, PPCI_CMPWI, type, irt_toitype(irkey->t)); - } - if (ra_hasreg(key)) emit_tai(as, PPCI_LWZ, key, idx, kofs+4); - emit_tai(as, PPCI_LWZ, type, idx, kofs); - if (ofs > 32736) { - emit_tai(as, PPCI_ADDIS, dest, dest, (ofs + 32768) >> 16); - emit_tai(as, PPCI_ADDI, dest, node, ofs); - } -} - -static void asm_uref(ASMState *as, IRIns *ir) -{ - /* NYI: Check that UREFO is still open and not aliasing a slot. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; - emit_lsptr(as, PPCI_LWZ, dest, v, RSET_GPR); - } else { - Reg uv = ra_scratch(as, RSET_GPR); - Reg func = ra_alloc1(as, ir->op1, RSET_GPR); - if (ir->o == IR_UREFC) { - asm_guardcc(as, CC_NE); - emit_ai(as, PPCI_CMPWI, RID_TMP, 1); - emit_tai(as, PPCI_ADDI, dest, uv, (int32_t)offsetof(GCupval, tv)); - emit_tai(as, PPCI_LBZ, RID_TMP, uv, (int32_t)offsetof(GCupval, closed)); - } else { - emit_tai(as, PPCI_LWZ, dest, uv, (int32_t)offsetof(GCupval, v)); - } - emit_tai(as, PPCI_LWZ, uv, func, - (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); - } -} - -static void asm_fref(ASMState *as, IRIns *ir) -{ - UNUSED(as); UNUSED(ir); - lua_assert(!ra_used(ir)); -} - -static void asm_strref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - IRRef ref = ir->op2, refk = ir->op1; - int32_t ofs = (int32_t)sizeof(GCstr); - Reg r; - if (irref_isk(ref)) { - IRRef tmp = refk; refk = ref; ref = tmp; - } else if (!irref_isk(refk)) { - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - IRIns *irr = IR(ir->op2); - if (ra_hasreg(irr->r)) { - ra_noweak(as, irr->r); - right = irr->r; - } else if (mayfuse(as, irr->op2) && - irr->o == IR_ADD && irref_isk(irr->op2) && - checki16(ofs + IR(irr->op2)->i)) { - ofs += IR(irr->op2)->i; - right = ra_alloc1(as, irr->op1, rset_exclude(RSET_GPR, left)); - } else { - right = ra_allocref(as, ir->op2, rset_exclude(RSET_GPR, left)); - } - emit_tai(as, PPCI_ADDI, dest, dest, ofs); - emit_tab(as, PPCI_ADD, dest, left, right); - return; - } - r = ra_alloc1(as, ref, RSET_GPR); - ofs += IR(refk)->i; - if (checki16(ofs)) - emit_tai(as, PPCI_ADDI, dest, r, ofs); - else - emit_tab(as, PPCI_ADD, dest, r, - ra_allock(as, ofs, rset_exclude(RSET_GPR, r))); -} - -/* -- Loads and stores ---------------------------------------------------- */ - -static PPCIns asm_fxloadins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: return PPCI_LBZ; /* Needs sign-extension. */ - case IRT_U8: return PPCI_LBZ; - case IRT_I16: return PPCI_LHA; - case IRT_U16: return PPCI_LHZ; - case IRT_NUM: return PPCI_LFD; - case IRT_FLOAT: return PPCI_LFS; - default: return PPCI_LWZ; - } -} - -static PPCIns asm_fxstoreins(IRIns *ir) -{ - switch (irt_type(ir->t)) { - case IRT_I8: case IRT_U8: return PPCI_STB; - case IRT_I16: case IRT_U16: return PPCI_STH; - case IRT_NUM: return PPCI_STFD; - case IRT_FLOAT: return PPCI_STFS; - default: return PPCI_STW; - } -} - -static void asm_fload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg idx = ra_alloc1(as, ir->op1, RSET_GPR); - PPCIns pi = asm_fxloadins(ir); - int32_t ofs; - if (ir->op2 == IRFL_TAB_ARRAY) { - ofs = asm_fuseabase(as, ir->op1); - if (ofs) { /* Turn the t->array load into an add for colocated arrays. */ - emit_tai(as, PPCI_ADDI, dest, idx, ofs); - return; - } - } - ofs = field_ofs[ir->op2]; - lua_assert(!irt_isi8(ir->t)); - emit_tai(as, pi, dest, idx, ofs); -} - -static void asm_fstore(ASMState *as, IRIns *ir) -{ - if (ir->r != RID_SINK) { - Reg src = ra_alloc1(as, ir->op2, RSET_GPR); - IRIns *irf = IR(ir->op1); - Reg idx = ra_alloc1(as, irf->op1, rset_exclude(RSET_GPR, src)); - int32_t ofs = field_ofs[irf->op2]; - PPCIns pi = asm_fxstoreins(ir); - emit_tai(as, pi, src, idx, ofs); - } -} - -static void asm_xload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - lua_assert(!(ir->op2 & IRXLOAD_UNALIGNED)); - if (irt_isi8(ir->t)) - emit_as(as, PPCI_EXTSB, dest, dest); - asm_fusexref(as, asm_fxloadins(ir), dest, ir->op1, RSET_GPR, 0); -} - -static void asm_xstore_(ASMState *as, IRIns *ir, int32_t ofs) -{ - IRIns *irb; - if (ir->r == RID_SINK) - return; - if (ofs == 0 && mayfuse(as, ir->op2) && (irb = IR(ir->op2))->o == IR_BSWAP && - ra_noreg(irb->r) && (irt_isint(ir->t) || irt_isu32(ir->t))) { - /* Fuse BSWAP with XSTORE to stwbrx. */ - Reg src = ra_alloc1(as, irb->op1, RSET_GPR); - asm_fusexrefx(as, PPCI_STWBRX, src, ir->op1, rset_exclude(RSET_GPR, src)); - } else { - Reg src = ra_alloc1(as, ir->op2, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - asm_fusexref(as, asm_fxstoreins(ir), src, ir->op1, - rset_exclude(RSET_GPR, src), ofs); - } -} - -#define asm_xstore(as, ir) asm_xstore_(as, ir, 0) - -static void asm_ahuvload(ASMState *as, IRIns *ir) -{ - IRType1 t = ir->t; - Reg dest = RID_NONE, type = RID_TMP, tmp = RID_TMP, idx; - RegSet allow = RSET_GPR; - int32_t ofs = AHUREF_LSX; - if (ra_used(ir)) { - lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); - if (!irt_isnum(t)) ofs = 0; - dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); - rset_clear(allow, dest); - } - idx = asm_fuseahuref(as, ir->op1, &ofs, allow); - if (irt_isnum(t)) { - Reg tisnum = ra_allock(as, (int32_t)LJ_TISNUM, rset_exclude(allow, idx)); - asm_guardcc(as, CC_GE); - emit_ab(as, PPCI_CMPLW, type, tisnum); - if (ra_hasreg(dest)) { - if (ofs == AHUREF_LSX) { - tmp = ra_scratch(as, rset_exclude(rset_exclude(RSET_GPR, - (idx&255)), (idx>>8))); - emit_fab(as, PPCI_LFDX, dest, (idx&255), tmp); - } else { - emit_fai(as, PPCI_LFD, dest, idx, ofs); - } - } - } else { - asm_guardcc(as, CC_NE); - emit_ai(as, PPCI_CMPWI, type, irt_toitype(t)); - if (ra_hasreg(dest)) emit_tai(as, PPCI_LWZ, dest, idx, ofs+4); - } - if (ofs == AHUREF_LSX) { - emit_tab(as, PPCI_LWZX, type, (idx&255), tmp); - emit_slwi(as, tmp, (idx>>8), 3); - } else { - emit_tai(as, PPCI_LWZ, type, idx, ofs); - } -} - -static void asm_ahustore(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_GPR; - Reg idx, src = RID_NONE, type = RID_NONE; - int32_t ofs = AHUREF_LSX; - if (ir->r == RID_SINK) - return; - if (irt_isnum(ir->t)) { - src = ra_alloc1(as, ir->op2, RSET_FPR); - } else { - if (!irt_ispri(ir->t)) { - src = ra_alloc1(as, ir->op2, allow); - rset_clear(allow, src); - ofs = 0; - } - type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); - rset_clear(allow, type); - } - idx = asm_fuseahuref(as, ir->op1, &ofs, allow); - if (irt_isnum(ir->t)) { - if (ofs == AHUREF_LSX) { - emit_fab(as, PPCI_STFDX, src, (idx&255), RID_TMP); - emit_slwi(as, RID_TMP, (idx>>8), 3); - } else { - emit_fai(as, PPCI_STFD, src, idx, ofs); - } - } else { - if (ra_hasreg(src)) - emit_tai(as, PPCI_STW, src, idx, ofs+4); - if (ofs == AHUREF_LSX) { - emit_tab(as, PPCI_STWX, type, (idx&255), RID_TMP); - emit_slwi(as, RID_TMP, (idx>>8), 3); - } else { - emit_tai(as, PPCI_STW, type, idx, ofs); - } - } -} - -static void asm_sload(ASMState *as, IRIns *ir) -{ - int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 0 : 4); - IRType1 t = ir->t; - Reg dest = RID_NONE, type = RID_NONE, base; - RegSet allow = RSET_GPR; - lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ - lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); - lua_assert(LJ_DUALNUM || - !irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); - if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { - dest = ra_scratch(as, RSET_FPR); - asm_tointg(as, ir, dest); - t.irt = IRT_NUM; /* Continue with a regular number type check. */ - } else if (ra_used(ir)) { - lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); - dest = ra_dest(as, ir, irt_isnum(t) ? RSET_FPR : RSET_GPR); - rset_clear(allow, dest); - base = ra_alloc1(as, REF_BASE, allow); - rset_clear(allow, base); - if ((ir->op2 & IRSLOAD_CONVERT)) { - if (irt_isint(t)) { - emit_tai(as, PPCI_LWZ, dest, RID_SP, SPOFS_TMPLO); - dest = ra_scratch(as, RSET_FPR); - emit_fai(as, PPCI_STFD, dest, RID_SP, SPOFS_TMP); - emit_fb(as, PPCI_FCTIWZ, dest, dest); - t.irt = IRT_NUM; /* Check for original type. */ - } else { - Reg tmp = ra_scratch(as, allow); - Reg hibias = ra_allock(as, 0x43300000, rset_clear(allow, tmp)); - Reg fbias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); - emit_fab(as, PPCI_FSUB, dest, dest, fbias); - emit_fai(as, PPCI_LFD, dest, RID_SP, SPOFS_TMP); - emit_lsptr(as, PPCI_LFS, (fbias & 31), - (void *)lj_ir_k64_find(as->J, U64x(59800004,59800000)), - rset_clear(allow, hibias)); - emit_tai(as, PPCI_STW, tmp, RID_SP, SPOFS_TMPLO); - emit_tai(as, PPCI_STW, hibias, RID_SP, SPOFS_TMPHI); - emit_asi(as, PPCI_XORIS, tmp, tmp, 0x8000); - dest = tmp; - t.irt = IRT_INT; /* Check for original type. */ - } - } - goto dotypecheck; - } - base = ra_alloc1(as, REF_BASE, allow); - rset_clear(allow, base); -dotypecheck: - if (irt_isnum(t)) { - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - Reg tisnum = ra_allock(as, (int32_t)LJ_TISNUM, allow); - asm_guardcc(as, CC_GE); - emit_ab(as, PPCI_CMPLW, RID_TMP, tisnum); - type = RID_TMP; - } - if (ra_hasreg(dest)) emit_fai(as, PPCI_LFD, dest, base, ofs-4); - } else { - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - asm_guardcc(as, CC_NE); - emit_ai(as, PPCI_CMPWI, RID_TMP, irt_toitype(t)); - type = RID_TMP; - } - if (ra_hasreg(dest)) emit_tai(as, PPCI_LWZ, dest, base, ofs); - } - if (ra_hasreg(type)) emit_tai(as, PPCI_LWZ, type, base, ofs-4); -} - -/* -- Allocations --------------------------------------------------------- */ - -#if LJ_HASFFI -static void asm_cnew(ASMState *as, IRIns *ir) -{ - CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID id = (CTypeID)IR(ir->op1)->i; - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[4]; - RegSet drop = RSET_SCRATCH; - lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - - as->gcsteps++; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - if (ra_used(ir)) - ra_destreg(as, ir, RID_RET); /* GCcdata * */ - - /* Initialize immutable cdata object. */ - if (ir->o == IR_CNEWI) { - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); - int32_t ofs = sizeof(GCcdata); - lua_assert(sz == 4 || sz == 8); - if (sz == 8) { - ofs += 4; - lua_assert((ir+1)->o == IR_HIOP); - } - for (;;) { - Reg r = ra_alloc1(as, ir->op2, allow); - emit_tai(as, PPCI_STW, r, RID_RET, ofs); - rset_clear(allow, r); - if (ofs == sizeof(GCcdata)) break; - ofs -= 4; ir++; - } - } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ - ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* CTypeID id */ - args[2] = ir->op2; /* CTSize sz */ - args[3] = ASMREF_TMP1; /* CTSize align */ - asm_gencall(as, ci, args); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); - return; - } - - /* Initialize gct and ctypeid. lj_mem_newgco() already sets marked. */ - emit_tai(as, PPCI_STB, RID_RET+1, RID_RET, offsetof(GCcdata, gct)); - emit_tai(as, PPCI_STH, RID_TMP, RID_RET, offsetof(GCcdata, ctypeid)); - emit_ti(as, PPCI_LI, RID_RET+1, ~LJ_TCDATA); - emit_ti(as, PPCI_LI, RID_TMP, id); /* Lower 16 bit used. Sign-ext ok. */ - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ - asm_gencall(as, ci, args); - ra_allockreg(as, (int32_t)(sz+sizeof(GCcdata)), - ra_releasetmp(as, ASMREF_TMP1)); -} -#else -#define asm_cnew(as, ir) ((void)0) -#endif - -/* -- Write barriers ------------------------------------------------------ */ - -static void asm_tbar(ASMState *as, IRIns *ir) -{ - Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); - Reg mark = ra_scratch(as, rset_exclude(RSET_GPR, tab)); - Reg link = RID_TMP; - MCLabel l_end = emit_label(as); - emit_tai(as, PPCI_STW, link, tab, (int32_t)offsetof(GCtab, gclist)); - emit_tai(as, PPCI_STB, mark, tab, (int32_t)offsetof(GCtab, marked)); - emit_setgl(as, tab, gc.grayagain); - lua_assert(LJ_GC_BLACK == 0x04); - emit_rot(as, PPCI_RLWINM, mark, mark, 0, 30, 28); /* Clear black bit. */ - emit_getgl(as, link, gc.grayagain); - emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); - emit_asi(as, PPCI_ANDIDOT, RID_TMP, mark, LJ_GC_BLACK); - emit_tai(as, PPCI_LBZ, mark, tab, (int32_t)offsetof(GCtab, marked)); -} - -static void asm_obar(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; - IRRef args[2]; - MCLabel l_end; - Reg obj, val, tmp; - /* No need for other object barriers (yet). */ - lua_assert(IR(ir->op1)->o == IR_UREFC); - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ir->op1; /* TValue *tv */ - asm_gencall(as, ci, args); - emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); - obj = IR(ir->op1)->r; - tmp = ra_scratch(as, rset_exclude(RSET_GPR, obj)); - emit_condbranch(as, PPCI_BC|PPCF_Y, CC_EQ, l_end); - emit_asi(as, PPCI_ANDIDOT, tmp, tmp, LJ_GC_BLACK); - emit_condbranch(as, PPCI_BC, CC_EQ, l_end); - emit_asi(as, PPCI_ANDIDOT, RID_TMP, RID_TMP, LJ_GC_WHITES); - val = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, obj)); - emit_tai(as, PPCI_LBZ, tmp, obj, - (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); - emit_tai(as, PPCI_LBZ, RID_TMP, val, (int32_t)offsetof(GChead, marked)); -} - -/* -- Arithmetic and logic operations ------------------------------------- */ - -static void asm_fparith(ASMState *as, IRIns *ir, PPCIns pi) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - if (pi == PPCI_FMUL) - emit_fac(as, pi, dest, left, right); - else - emit_fab(as, pi, dest, left, right); -} - -static void asm_fpunary(ASMState *as, IRIns *ir, PPCIns pi) -{ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg left = ra_hintalloc(as, ir->op1, dest, RSET_FPR); - emit_fb(as, pi, dest, left); -} - -static void asm_fpmath(ASMState *as, IRIns *ir) -{ - if (ir->op2 == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) - return; - if (ir->op2 == IRFPM_SQRT && (as->flags & JIT_F_SQRT)) - asm_fpunary(as, ir, PPCI_FSQRT); - else - asm_callid(as, ir, IRCALL_lj_vm_floor + ir->op2); -} - -static void asm_add(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - if (!asm_fusemadd(as, ir, PPCI_FMADD, PPCI_FMADD)) - asm_fparith(as, ir, PPCI_FADD); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - PPCIns pi; - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (checki16(k)) { - pi = PPCI_ADDI; - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi = PPCI_ADDICDOT; - } - emit_tai(as, pi, dest, left, k); - return; - } else if ((k & 0xffff) == 0) { - emit_tai(as, PPCI_ADDIS, dest, left, (k >> 16)); - return; - } else if (!as->sectref) { - emit_tai(as, PPCI_ADDIS, dest, dest, (k + 32768) >> 16); - emit_tai(as, PPCI_ADDI, dest, left, k); - return; - } - } - pi = PPCI_ADD; - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_tab(as, pi, dest, left, right); - } -} - -static void asm_sub(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - if (!asm_fusemadd(as, ir, PPCI_FMSUB, PPCI_FNMSUB)) - asm_fparith(as, ir, PPCI_FSUB); - } else { - PPCIns pi = PPCI_SUBF; - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left, right; - if (irref_isk(ir->op1)) { - int32_t k = IR(ir->op1)->i; - if (checki16(k)) { - right = ra_alloc1(as, ir->op2, RSET_GPR); - emit_tai(as, PPCI_SUBFIC, dest, right, k); - return; - } - } - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_tab(as, pi, dest, right, left); /* Subtract right _from_ left. */ - } -} - -static void asm_mul(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fparith(as, ir, PPCI_FMUL); - } else { - PPCIns pi = PPCI_MULLW; - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (checki16(k)) { - emit_tai(as, PPCI_MULLI, dest, left, k); - return; - } - } - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_tab(as, pi, dest, left, right); - } -} - -#define asm_div(as, ir) asm_fparith(as, ir, PPCI_FDIV) -#define asm_mod(as, ir) asm_callid(as, ir, IRCALL_lj_vm_modi) -#define asm_pow(as, ir) asm_callid(as, ir, IRCALL_lj_vm_powi) - -static void asm_neg(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) { - asm_fpunary(as, ir, PPCI_FNEG); - } else { - Reg dest, left; - PPCIns pi = PPCI_NEG; - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - dest = ra_dest(as, ir, RSET_GPR); - left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - emit_tab(as, pi, dest, left, 0); - } -} - -#define asm_abs(as, ir) asm_fpunary(as, ir, PPCI_FABS) -#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) -#define asm_ldexp(as, ir) asm_callid(as, ir, IRCALL_ldexp) - -static void asm_arithov(ASMState *as, IRIns *ir, PPCIns pi) -{ - Reg dest, left, right; - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - } - asm_guardcc(as, CC_SO); - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - if (pi == PPCI_SUBFO) { Reg tmp = left; left = right; right = tmp; } - emit_tab(as, pi|PPCF_DOT, dest, left, right); -} - -#define asm_addov(as, ir) asm_arithov(as, ir, PPCI_ADDO) -#define asm_subov(as, ir) asm_arithov(as, ir, PPCI_SUBFO) -#define asm_mulov(as, ir) asm_arithov(as, ir, PPCI_MULLWO) - -#if LJ_HASFFI -static void asm_add64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_alloc1(as, ir->op1, RSET_GPR); - PPCIns pi = PPCI_ADDE; - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (k == 0) - pi = PPCI_ADDZE; - else if (k == -1) - pi = PPCI_ADDME; - else - goto needright; - right = 0; - } else { - needright: - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - } - emit_tab(as, pi, dest, left, right); - ir--; - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc1(as, ir->op1, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (checki16(k)) { - emit_tai(as, PPCI_ADDIC, dest, left, k); - return; - } - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_tab(as, PPCI_ADDC, dest, left, right); -} - -static void asm_sub64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left, right = ra_alloc1(as, ir->op2, RSET_GPR); - PPCIns pi = PPCI_SUBFE; - if (irref_isk(ir->op1)) { - int32_t k = IR(ir->op1)->i; - if (k == 0) - pi = PPCI_SUBFZE; - else if (k == -1) - pi = PPCI_SUBFME; - else - goto needleft; - left = 0; - } else { - needleft: - left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, right)); - } - emit_tab(as, pi, dest, right, left); /* Subtract right _from_ left. */ - ir--; - dest = ra_dest(as, ir, RSET_GPR); - right = ra_alloc1(as, ir->op2, RSET_GPR); - if (irref_isk(ir->op1)) { - int32_t k = IR(ir->op1)->i; - if (checki16(k)) { - emit_tai(as, PPCI_SUBFIC, dest, right, k); - return; - } - } - left = ra_alloc1(as, ir->op1, rset_exclude(RSET_GPR, right)); - emit_tab(as, PPCI_SUBFC, dest, right, left); -} - -static void asm_neg64(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - emit_tab(as, PPCI_SUBFZE, dest, left, 0); - ir--; - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc1(as, ir->op1, RSET_GPR); - emit_tai(as, PPCI_SUBFIC, dest, left, 0); -} -#endif - -static void asm_bnot(ASMState *as, IRIns *ir) -{ - Reg dest, left, right; - PPCIns pi = PPCI_NOR; - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - dest = ra_dest(as, ir, RSET_GPR); - if (mayfuse(as, ir->op1)) { - IRIns *irl = IR(ir->op1); - if (irl->o == IR_BAND) - pi ^= (PPCI_NOR ^ PPCI_NAND); - else if (irl->o == IR_BXOR) - pi ^= (PPCI_NOR ^ PPCI_EQV); - else if (irl->o != IR_BOR) - goto nofuse; - left = ra_hintalloc(as, irl->op1, dest, RSET_GPR); - right = ra_alloc1(as, irl->op2, rset_exclude(RSET_GPR, left)); - } else { -nofuse: - left = right = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - } - emit_asb(as, pi, dest, left, right); -} - -static void asm_bswap(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - IRIns *irx; - if (mayfuse(as, ir->op1) && (irx = IR(ir->op1))->o == IR_XLOAD && - ra_noreg(irx->r) && (irt_isint(irx->t) || irt_isu32(irx->t))) { - /* Fuse BSWAP with XLOAD to lwbrx. */ - asm_fusexrefx(as, PPCI_LWBRX, dest, irx->op1, RSET_GPR); - } else { - Reg left = ra_alloc1(as, ir->op1, RSET_GPR); - Reg tmp = dest; - if (tmp == left) { - tmp = RID_TMP; - emit_mr(as, dest, RID_TMP); - } - emit_rot(as, PPCI_RLWIMI, tmp, left, 24, 16, 23); - emit_rot(as, PPCI_RLWIMI, tmp, left, 24, 0, 7); - emit_rotlwi(as, tmp, left, 8); - } -} - -/* Fuse BAND with contiguous bitmask and a shift to rlwinm. */ -static void asm_fuseandsh(ASMState *as, PPCIns pi, int32_t mask, IRRef ref) -{ - IRIns *ir; - Reg left; - if (mayfuse(as, ref) && (ir = IR(ref), ra_noreg(ir->r)) && - irref_isk(ir->op2) && ir->o >= IR_BSHL && ir->o <= IR_BROR) { - int32_t sh = (IR(ir->op2)->i & 31); - switch (ir->o) { - case IR_BSHL: - if ((mask & ((1u<>sh))) goto nofuse; - sh = ((32-sh)&31); - break; - case IR_BROL: - break; - default: - goto nofuse; - } - left = ra_alloc1(as, ir->op1, RSET_GPR); - *--as->mcp = pi | PPCF_T(left) | PPCF_B(sh); - return; - } -nofuse: - left = ra_alloc1(as, ref, RSET_GPR); - *--as->mcp = pi | PPCF_T(left); -} - -static void asm_band(ASMState *as, IRIns *ir) -{ - Reg dest, left, right; - IRRef lref = ir->op1; - PPCIns dot = 0; - IRRef op2; - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - dot = PPCF_DOT; - } - dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (k) { - /* First check for a contiguous bitmask as used by rlwinm. */ - uint32_t s1 = lj_ffs((uint32_t)k); - uint32_t k1 = ((uint32_t)k >> s1); - if ((k1 & (k1+1)) == 0) { - asm_fuseandsh(as, PPCI_RLWINM|dot | PPCF_A(dest) | - PPCF_MB(31-lj_fls((uint32_t)k)) | PPCF_ME(31-s1), - k, lref); - return; - } - if (~(uint32_t)k) { - uint32_t s2 = lj_ffs(~(uint32_t)k); - uint32_t k2 = (~(uint32_t)k >> s2); - if ((k2 & (k2+1)) == 0) { - asm_fuseandsh(as, PPCI_RLWINM|dot | PPCF_A(dest) | - PPCF_MB(32-s2) | PPCF_ME(30-lj_fls(~(uint32_t)k)), - k, lref); - return; - } - } - } - if (checku16(k)) { - left = ra_alloc1(as, lref, RSET_GPR); - emit_asi(as, PPCI_ANDIDOT, dest, left, k); - return; - } else if ((k & 0xffff) == 0) { - left = ra_alloc1(as, lref, RSET_GPR); - emit_asi(as, PPCI_ANDISDOT, dest, left, (k >> 16)); - return; - } - } - op2 = ir->op2; - if (mayfuse(as, op2) && IR(op2)->o == IR_BNOT && ra_noreg(IR(op2)->r)) { - dot ^= (PPCI_AND ^ PPCI_ANDC); - op2 = IR(op2)->op1; - } - left = ra_hintalloc(as, lref, dest, RSET_GPR); - right = ra_alloc1(as, op2, rset_exclude(RSET_GPR, left)); - emit_asb(as, PPCI_AND ^ dot, dest, left, right); -} - -static void asm_bitop(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg right, left = ra_hintalloc(as, ir->op1, dest, RSET_GPR); - if (irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - Reg tmp = left; - if ((checku16(k) || (k & 0xffff) == 0) || (tmp = dest, !as->sectref)) { - if (!checku16(k)) { - emit_asi(as, pik ^ (PPCI_ORI ^ PPCI_ORIS), dest, tmp, (k >> 16)); - if ((k & 0xffff) == 0) return; - } - emit_asi(as, pik, dest, left, k); - return; - } - } - /* May fail due to spills/restores above, but simplifies the logic. */ - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - pi |= PPCF_DOT; - } - right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_asb(as, pi, dest, left, right); -} - -#define asm_bor(as, ir) asm_bitop(as, ir, PPCI_OR, PPCI_ORI) -#define asm_bxor(as, ir) asm_bitop(as, ir, PPCI_XOR, PPCI_XORI) - -static void asm_bitshift(ASMState *as, IRIns *ir, PPCIns pi, PPCIns pik) -{ - Reg dest, left; - Reg dot = 0; - if (as->flagmcp == as->mcp) { - as->flagmcp = NULL; - as->mcp++; - dot = PPCF_DOT; - } - dest = ra_dest(as, ir, RSET_GPR); - left = ra_alloc1(as, ir->op1, RSET_GPR); - if (irref_isk(ir->op2)) { /* Constant shifts. */ - int32_t shift = (IR(ir->op2)->i & 31); - if (pik == 0) /* SLWI */ - emit_rot(as, PPCI_RLWINM|dot, dest, left, shift, 0, 31-shift); - else if (pik == 1) /* SRWI */ - emit_rot(as, PPCI_RLWINM|dot, dest, left, (32-shift)&31, shift, 31); - else - emit_asb(as, pik|dot, dest, left, shift); - } else { - Reg right = ra_alloc1(as, ir->op2, rset_exclude(RSET_GPR, left)); - emit_asb(as, pi|dot, dest, left, right); - } -} - -#define asm_bshl(as, ir) asm_bitshift(as, ir, PPCI_SLW, 0) -#define asm_bshr(as, ir) asm_bitshift(as, ir, PPCI_SRW, 1) -#define asm_bsar(as, ir) asm_bitshift(as, ir, PPCI_SRAW, PPCI_SRAWI) -#define asm_brol(as, ir) \ - asm_bitshift(as, ir, PPCI_RLWNM|PPCF_MB(0)|PPCF_ME(31), \ - PPCI_RLWINM|PPCF_MB(0)|PPCF_ME(31)) -#define asm_bror(as, ir) lua_assert(0) - -static void asm_min_max(ASMState *as, IRIns *ir, int ismax) -{ - if (irt_isnum(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg tmp = dest; - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - if (tmp == left || tmp == right) - tmp = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_FPR, - dest), left), right)); - emit_facb(as, PPCI_FSEL, dest, tmp, - ismax ? left : right, ismax ? right : left); - emit_fab(as, PPCI_FSUB, tmp, left, right); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg tmp1 = RID_TMP, tmp2 = dest; - Reg right, left = ra_alloc2(as, ir, RSET_GPR); - right = (left >> 8); left &= 255; - if (tmp2 == left || tmp2 == right) - tmp2 = ra_scratch(as, rset_exclude(rset_exclude(rset_exclude(RSET_GPR, - dest), left), right)); - emit_tab(as, PPCI_ADD, dest, tmp2, right); - emit_asb(as, ismax ? PPCI_ANDC : PPCI_AND, tmp2, tmp2, tmp1); - emit_tab(as, PPCI_SUBFE, tmp1, tmp1, tmp1); - emit_tab(as, PPCI_SUBFC, tmp2, tmp2, tmp1); - emit_asi(as, PPCI_XORIS, tmp2, right, 0x8000); - emit_asi(as, PPCI_XORIS, tmp1, left, 0x8000); - } -} - -#define asm_min(as, ir) asm_min_max(as, ir, 0) -#define asm_max(as, ir) asm_min_max(as, ir, 1) - -/* -- Comparisons --------------------------------------------------------- */ - -#define CC_UNSIGNED 0x08 /* Unsigned integer comparison. */ -#define CC_TWO 0x80 /* Check two flags for FP comparison. */ - -/* Map of comparisons to flags. ORDER IR. */ -static const uint8_t asm_compmap[IR_ABC+1] = { - /* op int cc FP cc */ - /* LT */ CC_GE + (CC_GE<<4), - /* GE */ CC_LT + (CC_LE<<4) + CC_TWO, - /* LE */ CC_GT + (CC_GE<<4) + CC_TWO, - /* GT */ CC_LE + (CC_LE<<4), - /* ULT */ CC_GE + CC_UNSIGNED + (CC_GT<<4) + CC_TWO, - /* UGE */ CC_LT + CC_UNSIGNED + (CC_LT<<4), - /* ULE */ CC_GT + CC_UNSIGNED + (CC_GT<<4), - /* UGT */ CC_LE + CC_UNSIGNED + (CC_LT<<4) + CC_TWO, - /* EQ */ CC_NE + (CC_NE<<4), - /* NE */ CC_EQ + (CC_EQ<<4), - /* ABC */ CC_LE + CC_UNSIGNED + (CC_LT<<4) + CC_TWO /* Same as UGT. */ -}; - -static void asm_intcomp_(ASMState *as, IRRef lref, IRRef rref, Reg cr, PPCCC cc) -{ - Reg right, left = ra_alloc1(as, lref, RSET_GPR); - if (irref_isk(rref)) { - int32_t k = IR(rref)->i; - if ((cc & CC_UNSIGNED) == 0) { /* Signed comparison with constant. */ - if (checki16(k)) { - emit_tai(as, PPCI_CMPWI, cr, left, k); - /* Signed comparison with zero and referencing previous ins? */ - if (k == 0 && lref == as->curins-1) - as->flagmcp = as->mcp; /* Allow elimination of the compare. */ - return; - } else if ((cc & 3) == (CC_EQ & 3)) { /* Use CMPLWI for EQ or NE. */ - if (checku16(k)) { - emit_tai(as, PPCI_CMPLWI, cr, left, k); - return; - } else if (!as->sectref && ra_noreg(IR(rref)->r)) { - emit_tai(as, PPCI_CMPLWI, cr, RID_TMP, k); - emit_asi(as, PPCI_XORIS, RID_TMP, left, (k >> 16)); - return; - } - } - } else { /* Unsigned comparison with constant. */ - if (checku16(k)) { - emit_tai(as, PPCI_CMPLWI, cr, left, k); - return; - } - } - } - right = ra_alloc1(as, rref, rset_exclude(RSET_GPR, left)); - emit_tab(as, (cc & CC_UNSIGNED) ? PPCI_CMPLW : PPCI_CMPW, cr, left, right); -} - -static void asm_comp(ASMState *as, IRIns *ir) -{ - PPCCC cc = asm_compmap[ir->o]; - if (irt_isnum(ir->t)) { - Reg right, left = ra_alloc2(as, ir, RSET_FPR); - right = (left >> 8); left &= 255; - asm_guardcc(as, (cc >> 4)); - if ((cc & CC_TWO)) - emit_tab(as, PPCI_CROR, ((cc>>4)&3), ((cc>>4)&3), (CC_EQ&3)); - emit_fab(as, PPCI_FCMPU, 0, left, right); - } else { - IRRef lref = ir->op1, rref = ir->op2; - if (irref_isk(lref) && !irref_isk(rref)) { - /* Swap constants to the right (only for ABC). */ - IRRef tmp = lref; lref = rref; rref = tmp; - if ((cc & 2) == 0) cc ^= 1; /* LT <-> GT, LE <-> GE */ - } - asm_guardcc(as, cc); - asm_intcomp_(as, lref, rref, 0, cc); - } -} - -#define asm_equal(as, ir) asm_comp(as, ir) - -#if LJ_HASFFI -/* 64 bit integer comparisons. */ -static void asm_comp64(ASMState *as, IRIns *ir) -{ - PPCCC cc = asm_compmap[(ir-1)->o]; - if ((cc&3) == (CC_EQ&3)) { - asm_guardcc(as, cc); - emit_tab(as, (cc&4) ? PPCI_CRAND : PPCI_CROR, - (CC_EQ&3), (CC_EQ&3), 4+(CC_EQ&3)); - } else { - asm_guardcc(as, CC_EQ); - emit_tab(as, PPCI_CROR, (CC_EQ&3), (CC_EQ&3), ((cc^~(cc>>2))&1)); - emit_tab(as, (cc&4) ? PPCI_CRAND : PPCI_CRANDC, - (CC_EQ&3), (CC_EQ&3), 4+(cc&3)); - } - /* Loword comparison sets cr1 and is unsigned, except for equality. */ - asm_intcomp_(as, (ir-1)->op1, (ir-1)->op2, 4, - cc | ((cc&3) == (CC_EQ&3) ? 0 : CC_UNSIGNED)); - /* Hiword comparison sets cr0. */ - asm_intcomp_(as, ir->op1, ir->op2, 0, cc); - as->flagmcp = NULL; /* Doesn't work here. */ -} -#endif - -/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ - -/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ -static void asm_hiop(ASMState *as, IRIns *ir) -{ -#if LJ_HASFFI - /* HIOP is marked as a store because it needs its own DCE logic. */ - int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ - if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; - if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ - as->curins--; /* Always skip the CONV. */ - if (usehi || uselo) - asm_conv64(as, ir); - return; - } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ - as->curins--; /* Always skip the loword comparison. */ - asm_comp64(as, ir); - return; - } else if ((ir-1)->o == IR_XSTORE) { - as->curins--; /* Handle both stores here. */ - if ((ir-1)->r != RID_SINK) { - asm_xstore_(as, ir, 0); - asm_xstore_(as, ir-1, 4); - } - return; - } - if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ - switch ((ir-1)->o) { - case IR_ADD: as->curins--; asm_add64(as, ir); break; - case IR_SUB: as->curins--; asm_sub64(as, ir); break; - case IR_NEG: as->curins--; asm_neg64(as, ir); break; - case IR_CALLN: - case IR_CALLXS: - if (!uselo) - ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ - break; - case IR_CNEWI: - /* Nothing to do here. Handled by lo op itself. */ - break; - default: lua_assert(0); break; - } -#else - UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused without FFI. */ -#endif -} - -/* -- Profiling ----------------------------------------------------------- */ - -static void asm_prof(ASMState *as, IRIns *ir) -{ - UNUSED(ir); - asm_guardcc(as, CC_NE); - emit_asi(as, PPCI_ANDIDOT, RID_TMP, RID_TMP, HOOK_PROFILE); - emit_lsglptr(as, PPCI_LBZ, RID_TMP, - (int32_t)offsetof(global_State, hookmask)); -} - -/* -- Stack handling ------------------------------------------------------ */ - -/* Check Lua stack size for overflow. Use exit handler as fallback. */ -static void asm_stack_check(ASMState *as, BCReg topslot, - IRIns *irp, RegSet allow, ExitNo exitno) -{ - /* Try to get an unused temp. register, otherwise spill/restore RID_RET*. */ - Reg tmp, pbase = irp ? (ra_hasreg(irp->r) ? irp->r : RID_TMP) : RID_BASE; - rset_clear(allow, pbase); - tmp = allow ? rset_pickbot(allow) : - (pbase == RID_RETHI ? RID_RETLO : RID_RETHI); - emit_condbranch(as, PPCI_BC, CC_LT, asm_exitstub_addr(as, exitno)); - if (allow == RSET_EMPTY) /* Restore temp. register. */ - emit_tai(as, PPCI_LWZ, tmp, RID_SP, SPOFS_TMPW); - else - ra_modified(as, tmp); - emit_ai(as, PPCI_CMPLWI, RID_TMP, (int32_t)(8*topslot)); - emit_tab(as, PPCI_SUBF, RID_TMP, pbase, tmp); - emit_tai(as, PPCI_LWZ, tmp, tmp, offsetof(lua_State, maxstack)); - if (pbase == RID_TMP) - emit_getgl(as, RID_TMP, jit_base); - emit_getgl(as, tmp, cur_L); - if (allow == RSET_EMPTY) /* Spill temp. register. */ - emit_tai(as, PPCI_STW, tmp, RID_SP, SPOFS_TMPW); -} - -/* Restore Lua stack from on-trace state. */ -static void asm_stack_restore(ASMState *as, SnapShot *snap) -{ - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; - MSize n, nent = snap->nent; - /* Store the value of all modified slots to the Lua stack. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - BCReg s = snap_slot(sn); - int32_t ofs = 8*((int32_t)s-1); - IRRef ref = snap_ref(sn); - IRIns *ir = IR(ref); - if ((sn & SNAP_NORESTORE)) - continue; - if (irt_isnum(ir->t)) { - Reg src = ra_alloc1(as, ref, RSET_FPR); - emit_fai(as, PPCI_STFD, src, RID_BASE, ofs); - } else { - Reg type; - RegSet allow = rset_exclude(RSET_GPR, RID_BASE); - lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || irt_isinteger(ir->t)); - if (!irt_ispri(ir->t)) { - Reg src = ra_alloc1(as, ref, allow); - rset_clear(allow, src); - emit_tai(as, PPCI_STW, src, RID_BASE, ofs+4); - } - if ((sn & (SNAP_CONT|SNAP_FRAME))) { - if (s == 0) continue; /* Do not overwrite link to previous frame. */ - type = ra_allock(as, (int32_t)(*flinks--), allow); - } else { - type = ra_allock(as, (int32_t)irt_toitype(ir->t), allow); - } - emit_tai(as, PPCI_STW, type, RID_BASE, ofs); - } - checkmclim(as); - } - lua_assert(map + nent == flinks); -} - -/* -- GC handling --------------------------------------------------------- */ - -/* Check GC threshold and do one or more GC steps. */ -static void asm_gc_check(ASMState *as) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; - IRRef args[2]; - MCLabel l_end; - Reg tmp; - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ - asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ - emit_ai(as, PPCI_CMPWI, RID_RET, 0); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ASMREF_TMP2; /* MSize steps */ - asm_gencall(as, ci, args); - emit_tai(as, PPCI_ADDI, ra_releasetmp(as, ASMREF_TMP1), RID_JGL, -32768); - tmp = ra_releasetmp(as, ASMREF_TMP2); - emit_loadi(as, tmp, as->gcsteps); - /* Jump around GC step if GC total < GC threshold. */ - emit_condbranch(as, PPCI_BC|PPCF_Y, CC_LT, l_end); - emit_ab(as, PPCI_CMPLW, RID_TMP, tmp); - emit_getgl(as, tmp, gc.threshold); - emit_getgl(as, RID_TMP, gc.total); - as->gcsteps = 0; - checkmclim(as); -} - -/* -- Loop handling ------------------------------------------------------- */ - -/* Fixup the loop branch. */ -static void asm_loop_fixup(ASMState *as) -{ - MCode *p = as->mctop; - MCode *target = as->mcp; - if (as->loopinv) { /* Inverted loop branch? */ - /* asm_guardcc already inverted the cond branch and patched the final b. */ - p[-2] = (p[-2] & (0xffff0000u & ~PPCF_Y)) | (((target-p+2) & 0x3fffu) << 2); - } else { - p[-1] = PPCI_B|(((target-p+1)&0x00ffffffu)<<2); - } -} - -/* -- Head of trace ------------------------------------------------------- */ - -/* Coalesce BASE register for a root trace. */ -static void asm_head_root_base(ASMState *as) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (r != RID_BASE) - emit_mr(as, r, RID_BASE); - } -} - -/* Coalesce BASE register for a side trace. */ -static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (irp->r == r) { - rset_clear(allow, r); /* Mark same BASE register as coalesced. */ - } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { - rset_clear(allow, irp->r); - emit_mr(as, r, irp->r); /* Move from coalesced parent reg. */ - } else { - emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ - } - } - return allow; -} - -/* -- Tail of trace ------------------------------------------------------- */ - -/* Fixup the tail code. */ -static void asm_tail_fixup(ASMState *as, TraceNo lnk) -{ - MCode *p = as->mctop; - MCode *target; - int32_t spadj = as->T->spadjust; - if (spadj == 0) { - *--p = PPCI_NOP; - *--p = PPCI_NOP; - as->mctop = p; - } else { - /* Patch stack adjustment. */ - lua_assert(checki16(CFRAME_SIZE+spadj)); - p[-3] = PPCI_ADDI | PPCF_T(RID_TMP) | PPCF_A(RID_SP) | (CFRAME_SIZE+spadj); - p[-2] = PPCI_STWU | PPCF_T(RID_TMP) | PPCF_A(RID_SP) | spadj; - } - /* Patch exit branch. */ - target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; - p[-1] = PPCI_B|(((target-p+1)&0x00ffffffu)<<2); -} - -/* Prepare tail of code. */ -static void asm_tail_prep(ASMState *as) -{ - MCode *p = as->mctop - 1; /* Leave room for exit branch. */ - if (as->loopref) { - as->invmcp = as->mcp = p; - } else { - as->mcp = p-2; /* Leave room for stack pointer adjustment. */ - as->invmcp = NULL; - } -} - -/* -- Trace setup --------------------------------------------------------- */ - -/* Ensure there are enough stack slots for call arguments. */ -static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - IRRef args[CCI_NARGS_MAX*2]; - uint32_t i, nargs = CCI_XNARGS(ci); - int nslots = 2, ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; - asm_collectargs(as, ir, ci, args); - for (i = 0; i < nargs; i++) - if (args[i] && irt_isfp(IR(args[i])->t)) { - if (nfpr > 0) nfpr--; else nslots = (nslots+3) & ~1; - } else { - if (ngpr > 0) ngpr--; else nslots++; - } - if (nslots > as->evenspill) /* Leave room for args in stack slots. */ - as->evenspill = nslots; - return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); -} - -static void asm_setup_target(ASMState *as) -{ - asm_exitstub_setup(as, as->T->nsnap + (as->parent ? 1 : 0)); -} - -/* -- Trace patching ------------------------------------------------------ */ - -/* Patch exit jumps of existing machine code to a new target. */ -void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) -{ - MCode *p = T->mcode; - MCode *pe = (MCode *)((char *)p + T->szmcode); - MCode *px = exitstub_trace_addr(T, exitno); - MCode *cstart = NULL; - MCode *mcarea = lj_mcode_patch(J, p, 0); - int clearso = 0; - for (; p < pe; p++) { - /* Look for exitstub branch, try to replace with branch to target. */ - uint32_t ins = *p; - if ((ins & 0xfc000000u) == 0x40000000u && - ((ins ^ ((char *)px-(char *)p)) & 0xffffu) == 0) { - ptrdiff_t delta = (char *)target - (char *)p; - if (((ins >> 16) & 3) == (CC_SO&3)) { - clearso = sizeof(MCode); - delta -= sizeof(MCode); - } - /* Many, but not all short-range branches can be patched directly. */ - if (((delta + 0x8000) >> 16) == 0) { - *p = (ins & 0xffdf0000u) | ((uint32_t)delta & 0xffffu) | - ((delta & 0x8000) * (PPCF_Y/0x8000)); - if (!cstart) cstart = p; - } - } else if ((ins & 0xfc000000u) == PPCI_B && - ((ins ^ ((char *)px-(char *)p)) & 0x03ffffffu) == 0) { - ptrdiff_t delta = (char *)target - (char *)p; - lua_assert(((delta + 0x02000000) >> 26) == 0); - *p = PPCI_B | ((uint32_t)delta & 0x03ffffffu); - if (!cstart) cstart = p; - } - } - { /* Always patch long-range branch in exit stub itself. */ - ptrdiff_t delta = (char *)target - (char *)px - clearso; - lua_assert(((delta + 0x02000000) >> 26) == 0); - *px = PPCI_B | ((uint32_t)delta & 0x03ffffffu); - } - if (!cstart) cstart = px; - lj_mcode_sync(cstart, px+1); - if (clearso) { /* Extend the current trace. Ugly workaround. */ - MCode *pp = J->cur.mcode; - J->cur.szmcode += sizeof(MCode); - *--pp = PPCI_MCRXR; /* Clear SO flag. */ - J->cur.mcode = pp; - lj_mcode_sync(pp, pp+1); - } - lj_mcode_patch(J, mcarea, 1); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h deleted file mode 100644 index 303d129fe34..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_asm_x86.h +++ /dev/null @@ -1,2630 +0,0 @@ -/* -** x86/x64 IR assembler (SSA IR -> machine code). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Guard handling ------------------------------------------------------ */ - -/* Generate an exit stub group at the bottom of the reserved MCode memory. */ -static MCode *asm_exitstub_gen(ASMState *as, ExitNo group) -{ - ExitNo i, groupofs = (group*EXITSTUBS_PER_GROUP) & 0xff; - MCode *mxp = as->mcbot; - MCode *mxpstart = mxp; - if (mxp + (2+2)*EXITSTUBS_PER_GROUP+8+5 >= as->mctop) - asm_mclimit(as); - /* Push low byte of exitno for each exit stub. */ - *mxp++ = XI_PUSHi8; *mxp++ = (MCode)groupofs; - for (i = 1; i < EXITSTUBS_PER_GROUP; i++) { - *mxp++ = XI_JMPs; *mxp++ = (MCode)((2+2)*(EXITSTUBS_PER_GROUP - i) - 2); - *mxp++ = XI_PUSHi8; *mxp++ = (MCode)(groupofs + i); - } - /* Push the high byte of the exitno for each exit stub group. */ - *mxp++ = XI_PUSHi8; *mxp++ = (MCode)((group*EXITSTUBS_PER_GROUP)>>8); - /* Store DISPATCH at original stack slot 0. Account for the two push ops. */ - *mxp++ = XI_MOVmi; - *mxp++ = MODRM(XM_OFS8, 0, RID_ESP); - *mxp++ = MODRM(XM_SCALE1, RID_ESP, RID_ESP); - *mxp++ = 2*sizeof(void *); - *(int32_t *)mxp = ptr2addr(J2GG(as->J)->dispatch); mxp += 4; - /* Jump to exit handler which fills in the ExitState. */ - *mxp++ = XI_JMP; mxp += 4; - *((int32_t *)(mxp-4)) = jmprel(mxp, (MCode *)(void *)lj_vm_exit_handler); - /* Commit the code for this group (even if assembly fails later on). */ - lj_mcode_commitbot(as->J, mxp); - as->mcbot = mxp; - as->mclim = as->mcbot + MCLIM_REDZONE; - return mxpstart; -} - -/* Setup all needed exit stubs. */ -static void asm_exitstub_setup(ASMState *as, ExitNo nexits) -{ - ExitNo i; - if (nexits >= EXITSTUBS_PER_GROUP*LJ_MAX_EXITSTUBGR) - lj_trace_err(as->J, LJ_TRERR_SNAPOV); - for (i = 0; i < (nexits+EXITSTUBS_PER_GROUP-1)/EXITSTUBS_PER_GROUP; i++) - if (as->J->exitstubgroup[i] == NULL) - as->J->exitstubgroup[i] = asm_exitstub_gen(as, i); -} - -/* Emit conditional branch to exit for guard. -** It's important to emit this *after* all registers have been allocated, -** because rematerializations may invalidate the flags. -*/ -static void asm_guardcc(ASMState *as, int cc) -{ - MCode *target = exitstub_addr(as->J, as->snapno); - MCode *p = as->mcp; - if (LJ_UNLIKELY(p == as->invmcp)) { - as->loopinv = 1; - *(int32_t *)(p+1) = jmprel(p+5, target); - target = p; - cc ^= 1; - if (as->realign) { - emit_sjcc(as, cc, target); - return; - } - } - emit_jcc(as, cc, target); -} - -/* -- Memory operand fusion ----------------------------------------------- */ - -/* Limit linear search to this distance. Avoids O(n^2) behavior. */ -#define CONFLICT_SEARCH_LIM 31 - -/* Check if a reference is a signed 32 bit constant. */ -static int asm_isk32(ASMState *as, IRRef ref, int32_t *k) -{ - if (irref_isk(ref)) { - IRIns *ir = IR(ref); - if (ir->o != IR_KINT64) { - *k = ir->i; - return 1; - } else if (checki32((int64_t)ir_kint64(ir)->u64)) { - *k = (int32_t)ir_kint64(ir)->u64; - return 1; - } - } - return 0; -} - -/* Check if there's no conflicting instruction between curins and ref. -** Also avoid fusing loads if there are multiple references. -*/ -static int noconflict(ASMState *as, IRRef ref, IROp conflict, int noload) -{ - IRIns *ir = as->ir; - IRRef i = as->curins; - if (i > ref + CONFLICT_SEARCH_LIM) - return 0; /* Give up, ref is too far away. */ - while (--i > ref) { - if (ir[i].o == conflict) - return 0; /* Conflict found. */ - else if (!noload && (ir[i].op1 == ref || ir[i].op2 == ref)) - return 0; - } - return 1; /* Ok, no conflict. */ -} - -/* Fuse array base into memory operand. */ -static IRRef asm_fuseabase(ASMState *as, IRRef ref) -{ - IRIns *irb = IR(ref); - as->mrm.ofs = 0; - if (irb->o == IR_FLOAD) { - IRIns *ira = IR(irb->op1); - lua_assert(irb->op2 == IRFL_TAB_ARRAY); - /* We can avoid the FLOAD of t->array for colocated arrays. */ - if (ira->o == IR_TNEW && ira->op1 <= LJ_MAX_COLOSIZE && - !neverfuse(as) && noconflict(as, irb->op1, IR_NEWREF, 1)) { - as->mrm.ofs = (int32_t)sizeof(GCtab); /* Ofs to colocated array. */ - return irb->op1; /* Table obj. */ - } - } else if (irb->o == IR_ADD && irref_isk(irb->op2)) { - /* Fuse base offset (vararg load). */ - as->mrm.ofs = IR(irb->op2)->i; - return irb->op1; - } - return ref; /* Otherwise use the given array base. */ -} - -/* Fuse array reference into memory operand. */ -static void asm_fusearef(ASMState *as, IRIns *ir, RegSet allow) -{ - IRIns *irx; - lua_assert(ir->o == IR_AREF); - as->mrm.base = (uint8_t)ra_alloc1(as, asm_fuseabase(as, ir->op1), allow); - irx = IR(ir->op2); - if (irref_isk(ir->op2)) { - as->mrm.ofs += 8*irx->i; - as->mrm.idx = RID_NONE; - } else { - rset_clear(allow, as->mrm.base); - as->mrm.scale = XM_SCALE8; - /* Fuse a constant ADD (e.g. t[i+1]) into the offset. - ** Doesn't help much without ABCelim, but reduces register pressure. - */ - if (!LJ_64 && /* Has bad effects with negative index on x64. */ - mayfuse(as, ir->op2) && ra_noreg(irx->r) && - irx->o == IR_ADD && irref_isk(irx->op2)) { - as->mrm.ofs += 8*IR(irx->op2)->i; - as->mrm.idx = (uint8_t)ra_alloc1(as, irx->op1, allow); - } else { - as->mrm.idx = (uint8_t)ra_alloc1(as, ir->op2, allow); - } - } -} - -/* Fuse array/hash/upvalue reference into memory operand. -** Caveat: this may allocate GPRs for the base/idx registers. Be sure to -** pass the final allow mask, excluding any GPRs used for other inputs. -** In particular: 2-operand GPR instructions need to call ra_dest() first! -*/ -static void asm_fuseahuref(ASMState *as, IRRef ref, RegSet allow) -{ - IRIns *ir = IR(ref); - if (ra_noreg(ir->r)) { - switch ((IROp)ir->o) { - case IR_AREF: - if (mayfuse(as, ref)) { - asm_fusearef(as, ir, allow); - return; - } - break; - case IR_HREFK: - if (mayfuse(as, ref)) { - as->mrm.base = (uint8_t)ra_alloc1(as, ir->op1, allow); - as->mrm.ofs = (int32_t)(IR(ir->op2)->op2 * sizeof(Node)); - as->mrm.idx = RID_NONE; - return; - } - break; - case IR_UREFC: - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - GCupval *uv = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv; - as->mrm.ofs = ptr2addr(&uv->tv); - as->mrm.base = as->mrm.idx = RID_NONE; - return; - } - break; - default: - lua_assert(ir->o == IR_HREF || ir->o == IR_NEWREF || ir->o == IR_UREFO || - ir->o == IR_KKPTR); - break; - } - } - as->mrm.base = (uint8_t)ra_alloc1(as, ref, allow); - as->mrm.ofs = 0; - as->mrm.idx = RID_NONE; -} - -/* Fuse FLOAD/FREF reference into memory operand. */ -static void asm_fusefref(ASMState *as, IRIns *ir, RegSet allow) -{ - lua_assert(ir->o == IR_FLOAD || ir->o == IR_FREF); - as->mrm.ofs = field_ofs[ir->op2]; - as->mrm.idx = RID_NONE; - if (irref_isk(ir->op1)) { - as->mrm.ofs += IR(ir->op1)->i; - as->mrm.base = RID_NONE; - } else { - as->mrm.base = (uint8_t)ra_alloc1(as, ir->op1, allow); - } -} - -/* Fuse string reference into memory operand. */ -static void asm_fusestrref(ASMState *as, IRIns *ir, RegSet allow) -{ - IRIns *irr; - lua_assert(ir->o == IR_STRREF); - as->mrm.base = as->mrm.idx = RID_NONE; - as->mrm.scale = XM_SCALE1; - as->mrm.ofs = sizeof(GCstr); - if (irref_isk(ir->op1)) { - as->mrm.ofs += IR(ir->op1)->i; - } else { - Reg r = ra_alloc1(as, ir->op1, allow); - rset_clear(allow, r); - as->mrm.base = (uint8_t)r; - } - irr = IR(ir->op2); - if (irref_isk(ir->op2)) { - as->mrm.ofs += irr->i; - } else { - Reg r; - /* Fuse a constant add into the offset, e.g. string.sub(s, i+10). */ - if (!LJ_64 && /* Has bad effects with negative index on x64. */ - mayfuse(as, ir->op2) && irr->o == IR_ADD && irref_isk(irr->op2)) { - as->mrm.ofs += IR(irr->op2)->i; - r = ra_alloc1(as, irr->op1, allow); - } else { - r = ra_alloc1(as, ir->op2, allow); - } - if (as->mrm.base == RID_NONE) - as->mrm.base = (uint8_t)r; - else - as->mrm.idx = (uint8_t)r; - } -} - -static void asm_fusexref(ASMState *as, IRRef ref, RegSet allow) -{ - IRIns *ir = IR(ref); - as->mrm.idx = RID_NONE; - if (ir->o == IR_KPTR || ir->o == IR_KKPTR) { - as->mrm.ofs = ir->i; - as->mrm.base = RID_NONE; - } else if (ir->o == IR_STRREF) { - asm_fusestrref(as, ir, allow); - } else { - as->mrm.ofs = 0; - if (canfuse(as, ir) && ir->o == IR_ADD && ra_noreg(ir->r)) { - /* Gather (base+idx*sz)+ofs as emitted by cdata ptr/array indexing. */ - IRIns *irx; - IRRef idx; - Reg r; - if (asm_isk32(as, ir->op2, &as->mrm.ofs)) { /* Recognize x+ofs. */ - ref = ir->op1; - ir = IR(ref); - if (!(ir->o == IR_ADD && canfuse(as, ir) && ra_noreg(ir->r))) - goto noadd; - } - as->mrm.scale = XM_SCALE1; - idx = ir->op1; - ref = ir->op2; - irx = IR(idx); - if (!(irx->o == IR_BSHL || irx->o == IR_ADD)) { /* Try other operand. */ - idx = ir->op2; - ref = ir->op1; - irx = IR(idx); - } - if (canfuse(as, irx) && ra_noreg(irx->r)) { - if (irx->o == IR_BSHL && irref_isk(irx->op2) && IR(irx->op2)->i <= 3) { - /* Recognize idx<op1; - as->mrm.scale = (uint8_t)(IR(irx->op2)->i << 6); - } else if (irx->o == IR_ADD && irx->op1 == irx->op2) { - /* FOLD does idx*2 ==> idx<<1 ==> idx+idx. */ - idx = irx->op1; - as->mrm.scale = XM_SCALE2; - } - } - r = ra_alloc1(as, idx, allow); - rset_clear(allow, r); - as->mrm.idx = (uint8_t)r; - } - noadd: - as->mrm.base = (uint8_t)ra_alloc1(as, ref, allow); - } -} - -/* Fuse load into memory operand. */ -static Reg asm_fuseload(ASMState *as, IRRef ref, RegSet allow) -{ - IRIns *ir = IR(ref); - if (ra_hasreg(ir->r)) { - if (allow != RSET_EMPTY) { /* Fast path. */ - ra_noweak(as, ir->r); - return ir->r; - } - fusespill: - /* Force a spill if only memory operands are allowed (asm_x87load). */ - as->mrm.base = RID_ESP; - as->mrm.ofs = ra_spill(as, ir); - as->mrm.idx = RID_NONE; - return RID_MRM; - } - if (ir->o == IR_KNUM) { - RegSet avail = as->freeset & ~as->modset & RSET_FPR; - lua_assert(allow != RSET_EMPTY); - if (!(avail & (avail-1))) { /* Fuse if less than two regs available. */ - as->mrm.ofs = ptr2addr(ir_knum(ir)); - as->mrm.base = as->mrm.idx = RID_NONE; - return RID_MRM; - } - } else if (ir->o == IR_KINT64) { - RegSet avail = as->freeset & ~as->modset & RSET_GPR; - lua_assert(allow != RSET_EMPTY); - if (!(avail & (avail-1))) { /* Fuse if less than two regs available. */ - as->mrm.ofs = ptr2addr(ir_kint64(ir)); - as->mrm.base = as->mrm.idx = RID_NONE; - return RID_MRM; - } - } else if (mayfuse(as, ref)) { - RegSet xallow = (allow & RSET_GPR) ? allow : RSET_GPR; - if (ir->o == IR_SLOAD) { - if (!(ir->op2 & (IRSLOAD_PARENT|IRSLOAD_CONVERT)) && - noconflict(as, ref, IR_RETF, 0)) { - as->mrm.base = (uint8_t)ra_alloc1(as, REF_BASE, xallow); - as->mrm.ofs = 8*((int32_t)ir->op1-1) + ((ir->op2&IRSLOAD_FRAME)?4:0); - as->mrm.idx = RID_NONE; - return RID_MRM; - } - } else if (ir->o == IR_FLOAD) { - /* Generic fusion is only ok for 32 bit operand (but see asm_comp). */ - if ((irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)) && - noconflict(as, ref, IR_FSTORE, 0)) { - asm_fusefref(as, ir, xallow); - return RID_MRM; - } - } else if (ir->o == IR_ALOAD || ir->o == IR_HLOAD || ir->o == IR_ULOAD) { - if (noconflict(as, ref, ir->o + IRDELTA_L2S, 0)) { - asm_fuseahuref(as, ir->op1, xallow); - return RID_MRM; - } - } else if (ir->o == IR_XLOAD) { - /* Generic fusion is not ok for 8/16 bit operands (but see asm_comp). - ** Fusing unaligned memory operands is ok on x86 (except for SIMD types). - */ - if ((!irt_typerange(ir->t, IRT_I8, IRT_U16)) && - noconflict(as, ref, IR_XSTORE, 0)) { - asm_fusexref(as, ir->op1, xallow); - return RID_MRM; - } - } else if (ir->o == IR_VLOAD) { - asm_fuseahuref(as, ir->op1, xallow); - return RID_MRM; - } - } - if (!(as->freeset & allow) && !irref_isk(ref) && - (allow == RSET_EMPTY || ra_hasspill(ir->s) || iscrossref(as, ref))) - goto fusespill; - return ra_allocref(as, ref, allow); -} - -#if LJ_64 -/* Don't fuse a 32 bit load into a 64 bit operation. */ -static Reg asm_fuseloadm(ASMState *as, IRRef ref, RegSet allow, int is64) -{ - if (is64 && !irt_is64(IR(ref)->t)) - return ra_alloc1(as, ref, allow); - return asm_fuseload(as, ref, allow); -} -#else -#define asm_fuseloadm(as, ref, allow, is64) asm_fuseload(as, (ref), (allow)) -#endif - -/* -- Calls --------------------------------------------------------------- */ - -/* Count the required number of stack slots for a call. */ -static int asm_count_call_slots(ASMState *as, const CCallInfo *ci, IRRef *args) -{ - uint32_t i, nargs = CCI_XNARGS(ci); - int nslots = 0; -#if LJ_64 - if (LJ_ABI_WIN) { - nslots = (int)(nargs*2); /* Only matters for more than four args. */ - } else { - int ngpr = REGARG_NUMGPR, nfpr = REGARG_NUMFPR; - for (i = 0; i < nargs; i++) - if (args[i] && irt_isfp(IR(args[i])->t)) { - if (nfpr > 0) nfpr--; else nslots += 2; - } else { - if (ngpr > 0) ngpr--; else nslots += 2; - } - } -#else - int ngpr = 0; - if ((ci->flags & CCI_CC_MASK) == CCI_CC_FASTCALL) - ngpr = 2; - else if ((ci->flags & CCI_CC_MASK) == CCI_CC_THISCALL) - ngpr = 1; - for (i = 0; i < nargs; i++) - if (args[i] && irt_isfp(IR(args[i])->t)) { - nslots += irt_isnum(IR(args[i])->t) ? 2 : 1; - } else { - if (ngpr > 0) ngpr--; else nslots++; - } -#endif - return nslots; -} - -/* Generate a call to a C function. */ -static void asm_gencall(ASMState *as, const CCallInfo *ci, IRRef *args) -{ - uint32_t n, nargs = CCI_XNARGS(ci); - int32_t ofs = STACKARG_OFS; -#if LJ_64 - uint32_t gprs = REGARG_GPRS; - Reg fpr = REGARG_FIRSTFPR; -#if !LJ_ABI_WIN - MCode *patchnfpr = NULL; -#endif -#else - uint32_t gprs = 0; - if ((ci->flags & CCI_CC_MASK) != CCI_CC_CDECL) { - if ((ci->flags & CCI_CC_MASK) == CCI_CC_THISCALL) - gprs = (REGARG_GPRS & 31); - else if ((ci->flags & CCI_CC_MASK) == CCI_CC_FASTCALL) - gprs = REGARG_GPRS; - } -#endif - if ((void *)ci->func) - emit_call(as, ci->func); -#if LJ_64 - if ((ci->flags & CCI_VARARG)) { /* Special handling for vararg calls. */ -#if LJ_ABI_WIN - for (n = 0; n < 4 && n < nargs; n++) { - IRIns *ir = IR(args[n]); - if (irt_isfp(ir->t)) /* Duplicate FPRs in GPRs. */ - emit_rr(as, XO_MOVDto, (irt_isnum(ir->t) ? REX_64 : 0) | (fpr+n), - ((gprs >> (n*5)) & 31)); /* Either MOVD or MOVQ. */ - } -#else - patchnfpr = --as->mcp; /* Indicate number of used FPRs in register al. */ - *--as->mcp = XI_MOVrib | RID_EAX; -#endif - } -#endif - for (n = 0; n < nargs; n++) { /* Setup args. */ - IRRef ref = args[n]; - IRIns *ir = IR(ref); - Reg r; -#if LJ_64 && LJ_ABI_WIN - /* Windows/x64 argument registers are strictly positional. */ - r = irt_isfp(ir->t) ? (fpr <= REGARG_LASTFPR ? fpr : 0) : (gprs & 31); - fpr++; gprs >>= 5; -#elif LJ_64 - /* POSIX/x64 argument registers are used in order of appearance. */ - if (irt_isfp(ir->t)) { - r = fpr <= REGARG_LASTFPR ? fpr++ : 0; - } else { - r = gprs & 31; gprs >>= 5; - } -#else - if (ref && irt_isfp(ir->t)) { - r = 0; - } else { - r = gprs & 31; gprs >>= 5; - if (!ref) continue; - } -#endif - if (r) { /* Argument is in a register. */ - if (r < RID_MAX_GPR && ref < ASMREF_TMP1) { -#if LJ_64 - if (ir->o == IR_KINT64) - emit_loadu64(as, r, ir_kint64(ir)->u64); - else -#endif - emit_loadi(as, r, ir->i); - } else { - lua_assert(rset_test(as->freeset, r)); /* Must have been evicted. */ - if (ra_hasreg(ir->r)) { - ra_noweak(as, ir->r); - emit_movrr(as, ir, r, ir->r); - } else { - ra_allocref(as, ref, RID2RSET(r)); - } - } - } else if (irt_isfp(ir->t)) { /* FP argument is on stack. */ - lua_assert(!(irt_isfloat(ir->t) && irref_isk(ref))); /* No float k. */ - if (LJ_32 && (ofs & 4) && irref_isk(ref)) { - /* Split stores for unaligned FP consts. */ - emit_movmroi(as, RID_ESP, ofs, (int32_t)ir_knum(ir)->u32.lo); - emit_movmroi(as, RID_ESP, ofs+4, (int32_t)ir_knum(ir)->u32.hi); - } else { - r = ra_alloc1(as, ref, RSET_FPR); - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, - r, RID_ESP, ofs); - } - ofs += (LJ_32 && irt_isfloat(ir->t)) ? 4 : 8; - } else { /* Non-FP argument is on stack. */ - if (LJ_32 && ref < ASMREF_TMP1) { - emit_movmroi(as, RID_ESP, ofs, ir->i); - } else { - r = ra_alloc1(as, ref, RSET_GPR); - emit_movtomro(as, REX_64 + r, RID_ESP, ofs); - } - ofs += sizeof(intptr_t); - } - checkmclim(as); - } -#if LJ_64 && !LJ_ABI_WIN - if (patchnfpr) *patchnfpr = fpr - REGARG_FIRSTFPR; -#endif -} - -/* Setup result reg/sp for call. Evict scratch regs. */ -static void asm_setupresult(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - RegSet drop = RSET_SCRATCH; - int hiop = (LJ_32 && (ir+1)->o == IR_HIOP); - if ((ci->flags & CCI_NOFPRCLOBBER)) - drop &= ~RSET_FPR; - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - if (hiop && ra_hasreg((ir+1)->r)) - rset_clear(drop, (ir+1)->r); /* Dest reg handled below. */ - ra_evictset(as, drop); /* Evictions must be performed first. */ - if (ra_used(ir)) { - if (irt_isfp(ir->t)) { - int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ -#if LJ_64 - if ((ci->flags & CCI_CASTU64)) { - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_rr(as, XO_MOVD, dest|REX_64, RID_RET); /* Really MOVQ. */ - } - if (ofs) emit_movtomro(as, RID_RET|REX_64, RID_ESP, ofs); - } else { - ra_destreg(as, ir, RID_FPRET); - } -#else - /* Number result is in x87 st0 for x86 calling convention. */ - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, - dest, RID_ESP, ofs); - } - if ((ci->flags & CCI_CASTU64)) { - emit_movtomro(as, RID_RETLO, RID_ESP, ofs); - emit_movtomro(as, RID_RETHI, RID_ESP, ofs+4); - } else { - emit_rmro(as, irt_isnum(ir->t) ? XO_FSTPq : XO_FSTPd, - irt_isnum(ir->t) ? XOg_FSTPq : XOg_FSTPd, RID_ESP, ofs); - } -#endif -#if LJ_32 - } else if (hiop) { - ra_destpair(as, ir); -#endif - } else { - lua_assert(!irt_ispri(ir->t)); - ra_destreg(as, ir, RID_RET); - } - } else if (LJ_32 && irt_isfp(ir->t) && !(ci->flags & CCI_CASTU64)) { - emit_x87op(as, XI_FPOP); /* Pop unused result from x87 st0. */ - } -} - -/* Return a constant function pointer or NULL for indirect calls. */ -static void *asm_callx_func(ASMState *as, IRIns *irf, IRRef func) -{ -#if LJ_32 - UNUSED(as); - if (irref_isk(func)) - return (void *)irf->i; -#else - if (irref_isk(func)) { - MCode *p; - if (irf->o == IR_KINT64) - p = (MCode *)(void *)ir_k64(irf)->u64; - else - p = (MCode *)(void *)(uintptr_t)(uint32_t)irf->i; - if (p - as->mcp == (int32_t)(p - as->mcp)) - return p; /* Call target is still in +-2GB range. */ - /* Avoid the indirect case of emit_call(). Try to hoist func addr. */ - } -#endif - return NULL; -} - -static void asm_callx(ASMState *as, IRIns *ir) -{ - IRRef args[CCI_NARGS_MAX*2]; - CCallInfo ci; - IRRef func; - IRIns *irf; - int32_t spadj = 0; - ci.flags = asm_callx_flags(as, ir); - asm_collectargs(as, ir, &ci, args); - asm_setupresult(as, ir, &ci); -#if LJ_32 - /* Have to readjust stack after non-cdecl calls due to callee cleanup. */ - if ((ci.flags & CCI_CC_MASK) != CCI_CC_CDECL) - spadj = 4 * asm_count_call_slots(as, &ci, args); -#endif - func = ir->op2; irf = IR(func); - if (irf->o == IR_CARG) { func = irf->op1; irf = IR(func); } - ci.func = (ASMFunction)asm_callx_func(as, irf, func); - if (!(void *)ci.func) { - /* Use a (hoistable) non-scratch register for indirect calls. */ - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); - Reg r = ra_alloc1(as, func, allow); - if (LJ_32) emit_spsub(as, spadj); /* Above code may cause restores! */ - emit_rr(as, XO_GROUP5, XOg_CALL, r); - } else if (LJ_32) { - emit_spsub(as, spadj); - } - asm_gencall(as, &ci, args); -} - -/* -- Returns ------------------------------------------------------------- */ - -/* Return to lower frame. Guard that it goes to the right spot. */ -static void asm_retf(ASMState *as, IRIns *ir) -{ - Reg base = ra_alloc1(as, REF_BASE, RSET_GPR); - void *pc = ir_kptr(IR(ir->op2)); - int32_t delta = 1+LJ_FR2+bc_a(*((const BCIns *)pc - 1)); - as->topslot -= (BCReg)delta; - if ((int32_t)as->topslot < 0) as->topslot = 0; - irt_setmark(IR(REF_BASE)->t); /* Children must not coalesce with BASE reg. */ - emit_setgl(as, base, jit_base); - emit_addptr(as, base, -8*delta); - asm_guardcc(as, CC_NE); - emit_gmroi(as, XG_ARITHi(XOg_CMP), base, -4, ptr2addr(pc)); -} - -/* -- Type conversions ---------------------------------------------------- */ - -static void asm_tointg(ASMState *as, IRIns *ir, Reg left) -{ - Reg tmp = ra_scratch(as, rset_exclude(RSET_FPR, left)); - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_guardcc(as, CC_P); - asm_guardcc(as, CC_NE); - emit_rr(as, XO_UCOMISD, left, tmp); - emit_rr(as, XO_CVTSI2SD, tmp, dest); - emit_rr(as, XO_XORPS, tmp, tmp); /* Avoid partial register stall. */ - emit_rr(as, XO_CVTTSD2SI, dest, left); - /* Can't fuse since left is needed twice. */ -} - -static void asm_tobit(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - Reg tmp = ra_noreg(IR(ir->op1)->r) ? - ra_alloc1(as, ir->op1, RSET_FPR) : - ra_scratch(as, RSET_FPR); - Reg right = asm_fuseload(as, ir->op2, rset_exclude(RSET_FPR, tmp)); - emit_rr(as, XO_MOVDto, tmp, dest); - emit_mrm(as, XO_ADDSD, tmp, right); - ra_left(as, tmp, ir->op1); -} - -static void asm_conv(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); - int st64 = (st == IRT_I64 || st == IRT_U64 || (LJ_64 && st == IRT_P64)); - int stfp = (st == IRT_NUM || st == IRT_FLOAT); - IRRef lref = ir->op1; - lua_assert(irt_type(ir->t) != st); - lua_assert(!(LJ_32 && (irt_isint64(ir->t) || st64))); /* Handled by SPLIT. */ - if (irt_isfp(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_FPR); - if (stfp) { /* FP to FP conversion. */ - Reg left = asm_fuseload(as, lref, RSET_FPR); - emit_mrm(as, st == IRT_NUM ? XO_CVTSD2SS : XO_CVTSS2SD, dest, left); - if (left == dest) return; /* Avoid the XO_XORPS. */ - } else if (LJ_32 && st == IRT_U32) { /* U32 to FP conversion on x86. */ - /* number = (2^52+2^51 .. u32) - (2^52+2^51) */ - cTValue *k = lj_ir_k64_find(as->J, U64x(43380000,00000000)); - Reg bias = ra_scratch(as, rset_exclude(RSET_FPR, dest)); - if (irt_isfloat(ir->t)) - emit_rr(as, XO_CVTSD2SS, dest, dest); - emit_rr(as, XO_SUBSD, dest, bias); /* Subtract 2^52+2^51 bias. */ - emit_rr(as, XO_XORPS, dest, bias); /* Merge bias and integer. */ - emit_loadn(as, bias, k); - emit_mrm(as, XO_MOVD, dest, asm_fuseload(as, lref, RSET_GPR)); - return; - } else { /* Integer to FP conversion. */ - Reg left = (LJ_64 && (st == IRT_U32 || st == IRT_U64)) ? - ra_alloc1(as, lref, RSET_GPR) : - asm_fuseloadm(as, lref, RSET_GPR, st64); - if (LJ_64 && st == IRT_U64) { - MCLabel l_end = emit_label(as); - const void *k = lj_ir_k64_find(as->J, U64x(43f00000,00000000)); - emit_rma(as, XO_ADDSD, dest, k); /* Add 2^64 to compensate. */ - emit_sjcc(as, CC_NS, l_end); - emit_rr(as, XO_TEST, left|REX_64, left); /* Check if u64 >= 2^63. */ - } - emit_mrm(as, irt_isnum(ir->t) ? XO_CVTSI2SD : XO_CVTSI2SS, - dest|((LJ_64 && (st64 || st == IRT_U32)) ? REX_64 : 0), left); - } - emit_rr(as, XO_XORPS, dest, dest); /* Avoid partial register stall. */ - } else if (stfp) { /* FP to integer conversion. */ - if (irt_isguard(ir->t)) { - /* Checked conversions are only supported from number to int. */ - lua_assert(irt_isint(ir->t) && st == IRT_NUM); - asm_tointg(as, ir, ra_alloc1(as, lref, RSET_FPR)); - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - x86Op op = st == IRT_NUM ? XO_CVTTSD2SI : XO_CVTTSS2SI; - if (LJ_64 ? irt_isu64(ir->t) : irt_isu32(ir->t)) { - /* LJ_64: For inputs >= 2^63 add -2^64, convert again. */ - /* LJ_32: For inputs >= 2^31 add -2^31, convert again and add 2^31. */ - Reg tmp = ra_noreg(IR(lref)->r) ? ra_alloc1(as, lref, RSET_FPR) : - ra_scratch(as, RSET_FPR); - MCLabel l_end = emit_label(as); - if (LJ_32) - emit_gri(as, XG_ARITHi(XOg_ADD), dest, (int32_t)0x80000000); - emit_rr(as, op, dest|REX_64, tmp); - if (st == IRT_NUM) - emit_rma(as, XO_ADDSD, tmp, lj_ir_k64_find(as->J, - LJ_64 ? U64x(c3f00000,00000000) : U64x(c1e00000,00000000))); - else - emit_rma(as, XO_ADDSS, tmp, lj_ir_k64_find(as->J, - LJ_64 ? U64x(00000000,df800000) : U64x(00000000,cf000000))); - emit_sjcc(as, CC_NS, l_end); - emit_rr(as, XO_TEST, dest|REX_64, dest); /* Check if dest negative. */ - emit_rr(as, op, dest|REX_64, tmp); - ra_left(as, tmp, lref); - } else { - Reg left = asm_fuseload(as, lref, RSET_FPR); - if (LJ_64 && irt_isu32(ir->t)) - emit_rr(as, XO_MOV, dest, dest); /* Zero hiword. */ - emit_mrm(as, op, - dest|((LJ_64 && - (irt_is64(ir->t) || irt_isu32(ir->t))) ? REX_64 : 0), - left); - } - } - } else if (st >= IRT_I8 && st <= IRT_U16) { /* Extend to 32 bit integer. */ - Reg left, dest = ra_dest(as, ir, RSET_GPR); - RegSet allow = RSET_GPR; - x86Op op; - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t)); - if (st == IRT_I8) { - op = XO_MOVSXb; allow = RSET_GPR8; dest |= FORCE_REX; - } else if (st == IRT_U8) { - op = XO_MOVZXb; allow = RSET_GPR8; dest |= FORCE_REX; - } else if (st == IRT_I16) { - op = XO_MOVSXw; - } else { - op = XO_MOVZXw; - } - left = asm_fuseload(as, lref, allow); - /* Add extra MOV if source is already in wrong register. */ - if (!LJ_64 && left != RID_MRM && !rset_test(allow, left)) { - Reg tmp = ra_scratch(as, allow); - emit_rr(as, op, dest, tmp); - emit_rr(as, XO_MOV, tmp, left); - } else { - emit_mrm(as, op, dest, left); - } - } else { /* 32/64 bit integer conversions. */ - if (LJ_32) { /* Only need to handle 32/32 bit no-op (cast) on x86. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ - } else if (irt_is64(ir->t)) { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (st64 || !(ir->op2 & IRCONV_SEXT)) { - /* 64/64 bit no-op (cast) or 32 to 64 bit zero extension. */ - ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ - } else { /* 32 to 64 bit sign extension. */ - Reg left = asm_fuseload(as, lref, RSET_GPR); - emit_mrm(as, XO_MOVSXd, dest|REX_64, left); - } - } else { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (st64) { - Reg left = asm_fuseload(as, lref, RSET_GPR); - /* This is either a 32 bit reg/reg mov which zeroes the hiword - ** or a load of the loword from a 64 bit address. - */ - emit_mrm(as, XO_MOV, dest, left); - } else { /* 32/32 bit no-op (cast). */ - ra_left(as, dest, lref); /* Do nothing, but may need to move regs. */ - } - } - } -} - -#if LJ_32 && LJ_HASFFI -/* No SSE conversions to/from 64 bit on x86, so resort to ugly x87 code. */ - -/* 64 bit integer to FP conversion in 32 bit mode. */ -static void asm_conv_fp_int64(ASMState *as, IRIns *ir) -{ - Reg hi = ra_alloc1(as, ir->op1, RSET_GPR); - Reg lo = ra_alloc1(as, (ir-1)->op1, rset_exclude(RSET_GPR, hi)); - int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, dest, RID_ESP, ofs); - } - emit_rmro(as, irt_isnum(ir->t) ? XO_FSTPq : XO_FSTPd, - irt_isnum(ir->t) ? XOg_FSTPq : XOg_FSTPd, RID_ESP, ofs); - if (((ir-1)->op2 & IRCONV_SRCMASK) == IRT_U64) { - /* For inputs in [2^63,2^64-1] add 2^64 to compensate. */ - MCLabel l_end = emit_label(as); - emit_rma(as, XO_FADDq, XOg_FADDq, - lj_ir_k64_find(as->J, U64x(43f00000,00000000))); - emit_sjcc(as, CC_NS, l_end); - emit_rr(as, XO_TEST, hi, hi); /* Check if u64 >= 2^63. */ - } else { - lua_assert(((ir-1)->op2 & IRCONV_SRCMASK) == IRT_I64); - } - emit_rmro(as, XO_FILDq, XOg_FILDq, RID_ESP, 0); - /* NYI: Avoid narrow-to-wide store-to-load forwarding stall. */ - emit_rmro(as, XO_MOVto, hi, RID_ESP, 4); - emit_rmro(as, XO_MOVto, lo, RID_ESP, 0); -} - -/* FP to 64 bit integer conversion in 32 bit mode. */ -static void asm_conv_int64_fp(ASMState *as, IRIns *ir) -{ - IRType st = (IRType)((ir-1)->op2 & IRCONV_SRCMASK); - IRType dt = (((ir-1)->op2 & IRCONV_DSTMASK) >> IRCONV_DSH); - Reg lo, hi; - lua_assert(st == IRT_NUM || st == IRT_FLOAT); - lua_assert(dt == IRT_I64 || dt == IRT_U64); - hi = ra_dest(as, ir, RSET_GPR); - lo = ra_dest(as, ir-1, rset_exclude(RSET_GPR, hi)); - if (ra_used(ir-1)) emit_rmro(as, XO_MOV, lo, RID_ESP, 0); - /* NYI: Avoid wide-to-narrow store-to-load forwarding stall. */ - if (!(as->flags & JIT_F_SSE3)) { /* Set FPU rounding mode to default. */ - emit_rmro(as, XO_FLDCW, XOg_FLDCW, RID_ESP, 4); - emit_rmro(as, XO_MOVto, lo, RID_ESP, 4); - emit_gri(as, XG_ARITHi(XOg_AND), lo, 0xf3ff); - } - if (dt == IRT_U64) { - /* For inputs in [2^63,2^64-1] add -2^64 and convert again. */ - MCLabel l_pop, l_end = emit_label(as); - emit_x87op(as, XI_FPOP); - l_pop = emit_label(as); - emit_sjmp(as, l_end); - emit_rmro(as, XO_MOV, hi, RID_ESP, 4); - if ((as->flags & JIT_F_SSE3)) - emit_rmro(as, XO_FISTTPq, XOg_FISTTPq, RID_ESP, 0); - else - emit_rmro(as, XO_FISTPq, XOg_FISTPq, RID_ESP, 0); - emit_rma(as, XO_FADDq, XOg_FADDq, - lj_ir_k64_find(as->J, U64x(c3f00000,00000000))); - emit_sjcc(as, CC_NS, l_pop); - emit_rr(as, XO_TEST, hi, hi); /* Check if out-of-range (2^63). */ - } - emit_rmro(as, XO_MOV, hi, RID_ESP, 4); - if ((as->flags & JIT_F_SSE3)) { /* Truncation is easy with SSE3. */ - emit_rmro(as, XO_FISTTPq, XOg_FISTTPq, RID_ESP, 0); - } else { /* Otherwise set FPU rounding mode to truncate before the store. */ - emit_rmro(as, XO_FISTPq, XOg_FISTPq, RID_ESP, 0); - emit_rmro(as, XO_FLDCW, XOg_FLDCW, RID_ESP, 0); - emit_rmro(as, XO_MOVtow, lo, RID_ESP, 0); - emit_rmro(as, XO_ARITHw(XOg_OR), lo, RID_ESP, 0); - emit_loadi(as, lo, 0xc00); - emit_rmro(as, XO_FNSTCW, XOg_FNSTCW, RID_ESP, 0); - } - if (dt == IRT_U64) - emit_x87op(as, XI_FDUP); - emit_mrm(as, st == IRT_NUM ? XO_FLDq : XO_FLDd, - st == IRT_NUM ? XOg_FLDq: XOg_FLDd, - asm_fuseload(as, ir->op1, RSET_EMPTY)); -} - -static void asm_conv64(ASMState *as, IRIns *ir) -{ - if (irt_isfp(ir->t)) - asm_conv_fp_int64(as, ir); - else - asm_conv_int64_fp(as, ir); -} -#endif - -static void asm_strto(ASMState *as, IRIns *ir) -{ - /* Force a spill slot for the destination register (if any). */ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_strscan_num]; - IRRef args[2]; - RegSet drop = RSET_SCRATCH; - if ((drop & RSET_FPR) != RSET_FPR && ra_hasreg(ir->r)) - rset_set(drop, ir->r); /* WIN64 doesn't spill all FPRs. */ - ra_evictset(as, drop); - asm_guardcc(as, CC_E); - emit_rr(as, XO_TEST, RID_RET, RID_RET); /* Test return status. */ - args[0] = ir->op1; /* GCstr *str */ - args[1] = ASMREF_TMP1; /* TValue *n */ - asm_gencall(as, ci, args); - /* Store the result to the spill slot or temp slots. */ - emit_rmro(as, XO_LEA, ra_releasetmp(as, ASMREF_TMP1)|REX_64, - RID_ESP, sps_scale(ir->s)); -} - -/* -- Memory references --------------------------------------------------- */ - -/* Get pointer to TValue. */ -static void asm_tvptr(ASMState *as, Reg dest, IRRef ref) -{ - IRIns *ir = IR(ref); - if (irt_isnum(ir->t)) { - /* For numbers use the constant itself or a spill slot as a TValue. */ - if (irref_isk(ref)) - emit_loada(as, dest, ir_knum(ir)); - else - emit_rmro(as, XO_LEA, dest|REX_64, RID_ESP, ra_spill(as, ir)); - } else { - /* Otherwise use g->tmptv to hold the TValue. */ - if (!irref_isk(ref)) { - Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPR, dest)); - emit_movtomro(as, REX_64IR(ir, src), dest, 0); - } else if (!irt_ispri(ir->t)) { - emit_movmroi(as, dest, 0, ir->i); - } - if (!(LJ_64 && irt_islightud(ir->t))) - emit_movmroi(as, dest, 4, irt_toitype(ir->t)); - emit_loada(as, dest, &J2G(as->J)->tmptv); - } -} - -static void asm_aref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_fusearef(as, ir, RSET_GPR); - if (!(as->mrm.idx == RID_NONE && as->mrm.ofs == 0)) - emit_mrm(as, XO_LEA, dest, RID_MRM); - else if (as->mrm.base != dest) - emit_rr(as, XO_MOV, dest, as->mrm.base); -} - -/* Inlined hash lookup. Specialized for key type and for const keys. -** The equivalent C code is: -** Node *n = hashkey(t, key); -** do { -** if (lj_obj_equal(&n->key, key)) return &n->val; -** } while ((n = nextnode(n))); -** return niltv(L); -*/ -static void asm_href(ASMState *as, IRIns *ir, IROp merge) -{ - RegSet allow = RSET_GPR; - int destused = ra_used(ir); - Reg dest = ra_dest(as, ir, allow); - Reg tab = ra_alloc1(as, ir->op1, rset_clear(allow, dest)); - Reg key = RID_NONE, tmp = RID_NONE; - IRIns *irkey = IR(ir->op2); - int isk = irref_isk(ir->op2); - IRType1 kt = irkey->t; - uint32_t khash; - MCLabel l_end, l_loop, l_next; - - if (!isk) { - rset_clear(allow, tab); - key = ra_alloc1(as, ir->op2, irt_isnum(kt) ? RSET_FPR : allow); - if (!irt_isstr(kt)) - tmp = ra_scratch(as, rset_exclude(allow, key)); - } - - /* Key not found in chain: jump to exit (if merged) or load niltv. */ - l_end = emit_label(as); - if (merge == IR_NE) - asm_guardcc(as, CC_E); /* XI_JMP is not found by lj_asm_patchexit. */ - else if (destused) - emit_loada(as, dest, niltvg(J2G(as->J))); - - /* Follow hash chain until the end. */ - l_loop = emit_sjcc_label(as, CC_NZ); - emit_rr(as, XO_TEST, dest, dest); - emit_rmro(as, XO_MOV, dest, dest, offsetof(Node, next)); - l_next = emit_label(as); - - /* Type and value comparison. */ - if (merge == IR_EQ) - asm_guardcc(as, CC_E); - else - emit_sjcc(as, CC_E, l_end); - if (irt_isnum(kt)) { - if (isk) { - /* Assumes -0.0 is already canonicalized to +0.0. */ - emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.u32.lo), - (int32_t)ir_knum(irkey)->u32.lo); - emit_sjcc(as, CC_NE, l_next); - emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.u32.hi), - (int32_t)ir_knum(irkey)->u32.hi); - } else { - emit_sjcc(as, CC_P, l_next); - emit_rmro(as, XO_UCOMISD, key, dest, offsetof(Node, key.n)); - emit_sjcc(as, CC_AE, l_next); - /* The type check avoids NaN penalties and complaints from Valgrind. */ -#if LJ_64 - emit_u32(as, LJ_TISNUM); - emit_rmro(as, XO_ARITHi, XOg_CMP, dest, offsetof(Node, key.it)); -#else - emit_i8(as, LJ_TISNUM); - emit_rmro(as, XO_ARITHi8, XOg_CMP, dest, offsetof(Node, key.it)); -#endif - } -#if LJ_64 - } else if (irt_islightud(kt)) { - emit_rmro(as, XO_CMP, key|REX_64, dest, offsetof(Node, key.u64)); -#endif - } else { - if (!irt_ispri(kt)) { - lua_assert(irt_isaddr(kt)); - if (isk) - emit_gmroi(as, XG_ARITHi(XOg_CMP), dest, offsetof(Node, key.gcr), - ptr2addr(ir_kgc(irkey))); - else - emit_rmro(as, XO_CMP, key, dest, offsetof(Node, key.gcr)); - emit_sjcc(as, CC_NE, l_next); - } - lua_assert(!irt_isnil(kt)); - emit_i8(as, irt_toitype(kt)); - emit_rmro(as, XO_ARITHi8, XOg_CMP, dest, offsetof(Node, key.it)); - } - emit_sfixup(as, l_loop); - checkmclim(as); - - /* Load main position relative to tab->node into dest. */ - khash = isk ? ir_khash(irkey) : 1; - if (khash == 0) { - emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, node)); - } else { - emit_rmro(as, XO_ARITH(XOg_ADD), dest, tab, offsetof(GCtab, node)); - if ((as->flags & JIT_F_PREFER_IMUL)) { - emit_i8(as, sizeof(Node)); - emit_rr(as, XO_IMULi8, dest, dest); - } else { - emit_shifti(as, XOg_SHL, dest, 3); - emit_rmrxo(as, XO_LEA, dest, dest, dest, XM_SCALE2, 0); - } - if (isk) { - emit_gri(as, XG_ARITHi(XOg_AND), dest, (int32_t)khash); - emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, hmask)); - } else if (irt_isstr(kt)) { - emit_rmro(as, XO_ARITH(XOg_AND), dest, key, offsetof(GCstr, hash)); - emit_rmro(as, XO_MOV, dest, tab, offsetof(GCtab, hmask)); - } else { /* Must match with hashrot() in lj_tab.c. */ - emit_rmro(as, XO_ARITH(XOg_AND), dest, tab, offsetof(GCtab, hmask)); - emit_rr(as, XO_ARITH(XOg_SUB), dest, tmp); - emit_shifti(as, XOg_ROL, tmp, HASH_ROT3); - emit_rr(as, XO_ARITH(XOg_XOR), dest, tmp); - emit_shifti(as, XOg_ROL, dest, HASH_ROT2); - emit_rr(as, XO_ARITH(XOg_SUB), tmp, dest); - emit_shifti(as, XOg_ROL, dest, HASH_ROT1); - emit_rr(as, XO_ARITH(XOg_XOR), tmp, dest); - if (irt_isnum(kt)) { - emit_rr(as, XO_ARITH(XOg_ADD), dest, dest); -#if LJ_64 - emit_shifti(as, XOg_SHR|REX_64, dest, 32); - emit_rr(as, XO_MOV, tmp, dest); - emit_rr(as, XO_MOVDto, key|REX_64, dest); -#else - emit_rmro(as, XO_MOV, dest, RID_ESP, ra_spill(as, irkey)+4); - emit_rr(as, XO_MOVDto, key, tmp); -#endif - } else { - emit_rr(as, XO_MOV, tmp, key); - emit_rmro(as, XO_LEA, dest, key, HASH_BIAS); - } - } - } -} - -static void asm_hrefk(ASMState *as, IRIns *ir) -{ - IRIns *kslot = IR(ir->op2); - IRIns *irkey = IR(kslot->op1); - int32_t ofs = (int32_t)(kslot->op2 * sizeof(Node)); - Reg dest = ra_used(ir) ? ra_dest(as, ir, RSET_GPR) : RID_NONE; - Reg node = ra_alloc1(as, ir->op1, RSET_GPR); -#if !LJ_64 - MCLabel l_exit; -#endif - lua_assert(ofs % sizeof(Node) == 0); - if (ra_hasreg(dest)) { - if (ofs != 0) { - if (dest == node && !(as->flags & JIT_F_LEA_AGU)) - emit_gri(as, XG_ARITHi(XOg_ADD), dest, ofs); - else - emit_rmro(as, XO_LEA, dest, node, ofs); - } else if (dest != node) { - emit_rr(as, XO_MOV, dest, node); - } - } - asm_guardcc(as, CC_NE); -#if LJ_64 - if (!irt_ispri(irkey->t)) { - Reg key = ra_scratch(as, rset_exclude(RSET_GPR, node)); - emit_rmro(as, XO_CMP, key|REX_64, node, - ofs + (int32_t)offsetof(Node, key.u64)); - lua_assert(irt_isnum(irkey->t) || irt_isgcv(irkey->t)); - /* Assumes -0.0 is already canonicalized to +0.0. */ - emit_loadu64(as, key, irt_isnum(irkey->t) ? ir_knum(irkey)->u64 : - ((uint64_t)irt_toitype(irkey->t) << 32) | - (uint64_t)(uint32_t)ptr2addr(ir_kgc(irkey))); - } else { - lua_assert(!irt_isnil(irkey->t)); - emit_i8(as, irt_toitype(irkey->t)); - emit_rmro(as, XO_ARITHi8, XOg_CMP, node, - ofs + (int32_t)offsetof(Node, key.it)); - } -#else - l_exit = emit_label(as); - if (irt_isnum(irkey->t)) { - /* Assumes -0.0 is already canonicalized to +0.0. */ - emit_gmroi(as, XG_ARITHi(XOg_CMP), node, - ofs + (int32_t)offsetof(Node, key.u32.lo), - (int32_t)ir_knum(irkey)->u32.lo); - emit_sjcc(as, CC_NE, l_exit); - emit_gmroi(as, XG_ARITHi(XOg_CMP), node, - ofs + (int32_t)offsetof(Node, key.u32.hi), - (int32_t)ir_knum(irkey)->u32.hi); - } else { - if (!irt_ispri(irkey->t)) { - lua_assert(irt_isgcv(irkey->t)); - emit_gmroi(as, XG_ARITHi(XOg_CMP), node, - ofs + (int32_t)offsetof(Node, key.gcr), - ptr2addr(ir_kgc(irkey))); - emit_sjcc(as, CC_NE, l_exit); - } - lua_assert(!irt_isnil(irkey->t)); - emit_i8(as, irt_toitype(irkey->t)); - emit_rmro(as, XO_ARITHi8, XOg_CMP, node, - ofs + (int32_t)offsetof(Node, key.it)); - } -#endif -} - -static void asm_uref(ASMState *as, IRIns *ir) -{ - /* NYI: Check that UREFO is still open and not aliasing a slot. */ - Reg dest = ra_dest(as, ir, RSET_GPR); - if (irref_isk(ir->op1)) { - GCfunc *fn = ir_kfunc(IR(ir->op1)); - MRef *v = &gcref(fn->l.uvptr[(ir->op2 >> 8)])->uv.v; - emit_rma(as, XO_MOV, dest, v); - } else { - Reg uv = ra_scratch(as, RSET_GPR); - Reg func = ra_alloc1(as, ir->op1, RSET_GPR); - if (ir->o == IR_UREFC) { - emit_rmro(as, XO_LEA, dest, uv, offsetof(GCupval, tv)); - asm_guardcc(as, CC_NE); - emit_i8(as, 1); - emit_rmro(as, XO_ARITHib, XOg_CMP, uv, offsetof(GCupval, closed)); - } else { - emit_rmro(as, XO_MOV, dest, uv, offsetof(GCupval, v)); - } - emit_rmro(as, XO_MOV, uv, func, - (int32_t)offsetof(GCfuncL, uvptr) + 4*(int32_t)(ir->op2 >> 8)); - } -} - -static void asm_fref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_fusefref(as, ir, RSET_GPR); - emit_mrm(as, XO_LEA, dest, RID_MRM); -} - -static void asm_strref(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - asm_fusestrref(as, ir, RSET_GPR); - if (as->mrm.base == RID_NONE) - emit_loadi(as, dest, as->mrm.ofs); - else if (as->mrm.base == dest && as->mrm.idx == RID_NONE) - emit_gri(as, XG_ARITHi(XOg_ADD), dest, as->mrm.ofs); - else - emit_mrm(as, XO_LEA, dest, RID_MRM); -} - -/* -- Loads and stores ---------------------------------------------------- */ - -static void asm_fxload(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, irt_isfp(ir->t) ? RSET_FPR : RSET_GPR); - x86Op xo; - if (ir->o == IR_FLOAD) - asm_fusefref(as, ir, RSET_GPR); - else - asm_fusexref(as, ir->op1, RSET_GPR); - /* ir->op2 is ignored -- unaligned loads are ok on x86. */ - switch (irt_type(ir->t)) { - case IRT_I8: xo = XO_MOVSXb; break; - case IRT_U8: xo = XO_MOVZXb; break; - case IRT_I16: xo = XO_MOVSXw; break; - case IRT_U16: xo = XO_MOVZXw; break; - case IRT_NUM: xo = XO_MOVSD; break; - case IRT_FLOAT: xo = XO_MOVSS; break; - default: - if (LJ_64 && irt_is64(ir->t)) - dest |= REX_64; - else - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); - xo = XO_MOV; - break; - } - emit_mrm(as, xo, dest, RID_MRM); -} - -#define asm_fload(as, ir) asm_fxload(as, ir) -#define asm_xload(as, ir) asm_fxload(as, ir) - -static void asm_fxstore(ASMState *as, IRIns *ir) -{ - RegSet allow = RSET_GPR; - Reg src = RID_NONE, osrc = RID_NONE; - int32_t k = 0; - if (ir->r == RID_SINK) - return; - /* The IRT_I16/IRT_U16 stores should never be simplified for constant - ** values since mov word [mem], imm16 has a length-changing prefix. - */ - if (irt_isi16(ir->t) || irt_isu16(ir->t) || irt_isfp(ir->t) || - !asm_isk32(as, ir->op2, &k)) { - RegSet allow8 = irt_isfp(ir->t) ? RSET_FPR : - (irt_isi8(ir->t) || irt_isu8(ir->t)) ? RSET_GPR8 : RSET_GPR; - src = osrc = ra_alloc1(as, ir->op2, allow8); - if (!LJ_64 && !rset_test(allow8, src)) { /* Already in wrong register. */ - rset_clear(allow, osrc); - src = ra_scratch(as, allow8); - } - rset_clear(allow, src); - } - if (ir->o == IR_FSTORE) { - asm_fusefref(as, IR(ir->op1), allow); - } else { - asm_fusexref(as, ir->op1, allow); - if (LJ_32 && ir->o == IR_HIOP) as->mrm.ofs += 4; - } - if (ra_hasreg(src)) { - x86Op xo; - switch (irt_type(ir->t)) { - case IRT_I8: case IRT_U8: xo = XO_MOVtob; src |= FORCE_REX; break; - case IRT_I16: case IRT_U16: xo = XO_MOVtow; break; - case IRT_NUM: xo = XO_MOVSDto; break; - case IRT_FLOAT: xo = XO_MOVSSto; break; -#if LJ_64 - case IRT_LIGHTUD: lua_assert(0); /* NYI: mask 64 bit lightuserdata. */ -#endif - default: - if (LJ_64 && irt_is64(ir->t)) - src |= REX_64; - else - lua_assert(irt_isint(ir->t) || irt_isu32(ir->t) || irt_isaddr(ir->t)); - xo = XO_MOVto; - break; - } - emit_mrm(as, xo, src, RID_MRM); - if (!LJ_64 && src != osrc) { - ra_noweak(as, osrc); - emit_rr(as, XO_MOV, src, osrc); - } - } else { - if (irt_isi8(ir->t) || irt_isu8(ir->t)) { - emit_i8(as, k); - emit_mrm(as, XO_MOVmib, 0, RID_MRM); - } else { - lua_assert(irt_is64(ir->t) || irt_isint(ir->t) || irt_isu32(ir->t) || - irt_isaddr(ir->t)); - emit_i32(as, k); - emit_mrm(as, XO_MOVmi, REX_64IR(ir, 0), RID_MRM); - } - } -} - -#define asm_fstore(as, ir) asm_fxstore(as, ir) -#define asm_xstore(as, ir) asm_fxstore(as, ir) - -#if LJ_64 -static Reg asm_load_lightud64(ASMState *as, IRIns *ir, int typecheck) -{ - if (ra_used(ir) || typecheck) { - Reg dest = ra_dest(as, ir, RSET_GPR); - if (typecheck) { - Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, dest)); - asm_guardcc(as, CC_NE); - emit_i8(as, -2); - emit_rr(as, XO_ARITHi8, XOg_CMP, tmp); - emit_shifti(as, XOg_SAR|REX_64, tmp, 47); - emit_rr(as, XO_MOV, tmp|REX_64, dest); - } - return dest; - } else { - return RID_NONE; - } -} -#endif - -static void asm_ahuvload(ASMState *as, IRIns *ir) -{ - lua_assert(irt_isnum(ir->t) || irt_ispri(ir->t) || irt_isaddr(ir->t) || - (LJ_DUALNUM && irt_isint(ir->t))); -#if LJ_64 - if (irt_islightud(ir->t)) { - Reg dest = asm_load_lightud64(as, ir, 1); - if (ra_hasreg(dest)) { - asm_fuseahuref(as, ir->op1, RSET_GPR); - emit_mrm(as, XO_MOV, dest|REX_64, RID_MRM); - } - return; - } else -#endif - if (ra_used(ir)) { - RegSet allow = irt_isnum(ir->t) ? RSET_FPR : RSET_GPR; - Reg dest = ra_dest(as, ir, allow); - asm_fuseahuref(as, ir->op1, RSET_GPR); - emit_mrm(as, dest < RID_MAX_GPR ? XO_MOV : XO_MOVSD, dest, RID_MRM); - } else { - asm_fuseahuref(as, ir->op1, RSET_GPR); - } - /* Always do the type check, even if the load result is unused. */ - as->mrm.ofs += 4; - asm_guardcc(as, irt_isnum(ir->t) ? CC_AE : CC_NE); - if (LJ_64 && irt_type(ir->t) >= IRT_NUM) { - lua_assert(irt_isinteger(ir->t) || irt_isnum(ir->t)); - emit_u32(as, LJ_TISNUM); - emit_mrm(as, XO_ARITHi, XOg_CMP, RID_MRM); - } else { - emit_i8(as, irt_toitype(ir->t)); - emit_mrm(as, XO_ARITHi8, XOg_CMP, RID_MRM); - } -} - -static void asm_ahustore(ASMState *as, IRIns *ir) -{ - if (ir->r == RID_SINK) - return; - if (irt_isnum(ir->t)) { - Reg src = ra_alloc1(as, ir->op2, RSET_FPR); - asm_fuseahuref(as, ir->op1, RSET_GPR); - emit_mrm(as, XO_MOVSDto, src, RID_MRM); -#if LJ_64 - } else if (irt_islightud(ir->t)) { - Reg src = ra_alloc1(as, ir->op2, RSET_GPR); - asm_fuseahuref(as, ir->op1, rset_exclude(RSET_GPR, src)); - emit_mrm(as, XO_MOVto, src|REX_64, RID_MRM); -#endif - } else { - IRIns *irr = IR(ir->op2); - RegSet allow = RSET_GPR; - Reg src = RID_NONE; - if (!irref_isk(ir->op2)) { - src = ra_alloc1(as, ir->op2, allow); - rset_clear(allow, src); - } - asm_fuseahuref(as, ir->op1, allow); - if (ra_hasreg(src)) { - emit_mrm(as, XO_MOVto, src, RID_MRM); - } else if (!irt_ispri(irr->t)) { - lua_assert(irt_isaddr(ir->t) || (LJ_DUALNUM && irt_isinteger(ir->t))); - emit_i32(as, irr->i); - emit_mrm(as, XO_MOVmi, 0, RID_MRM); - } - as->mrm.ofs += 4; - emit_i32(as, (int32_t)irt_toitype(ir->t)); - emit_mrm(as, XO_MOVmi, 0, RID_MRM); - } -} - -static void asm_sload(ASMState *as, IRIns *ir) -{ - int32_t ofs = 8*((int32_t)ir->op1-1) + ((ir->op2 & IRSLOAD_FRAME) ? 4 : 0); - IRType1 t = ir->t; - Reg base; - lua_assert(!(ir->op2 & IRSLOAD_PARENT)); /* Handled by asm_head_side(). */ - lua_assert(irt_isguard(t) || !(ir->op2 & IRSLOAD_TYPECHECK)); - lua_assert(LJ_DUALNUM || - !irt_isint(t) || (ir->op2 & (IRSLOAD_CONVERT|IRSLOAD_FRAME))); - if ((ir->op2 & IRSLOAD_CONVERT) && irt_isguard(t) && irt_isint(t)) { - Reg left = ra_scratch(as, RSET_FPR); - asm_tointg(as, ir, left); /* Frees dest reg. Do this before base alloc. */ - base = ra_alloc1(as, REF_BASE, RSET_GPR); - emit_rmro(as, XO_MOVSD, left, base, ofs); - t.irt = IRT_NUM; /* Continue with a regular number type check. */ -#if LJ_64 - } else if (irt_islightud(t)) { - Reg dest = asm_load_lightud64(as, ir, (ir->op2 & IRSLOAD_TYPECHECK)); - if (ra_hasreg(dest)) { - base = ra_alloc1(as, REF_BASE, RSET_GPR); - emit_rmro(as, XO_MOV, dest|REX_64, base, ofs); - } - return; -#endif - } else if (ra_used(ir)) { - RegSet allow = irt_isnum(t) ? RSET_FPR : RSET_GPR; - Reg dest = ra_dest(as, ir, allow); - base = ra_alloc1(as, REF_BASE, RSET_GPR); - lua_assert(irt_isnum(t) || irt_isint(t) || irt_isaddr(t)); - if ((ir->op2 & IRSLOAD_CONVERT)) { - t.irt = irt_isint(t) ? IRT_NUM : IRT_INT; /* Check for original type. */ - emit_rmro(as, irt_isint(t) ? XO_CVTSI2SD : XO_CVTTSD2SI, dest, base, ofs); - } else { - emit_rmro(as, irt_isnum(t) ? XO_MOVSD : XO_MOV, dest, base, ofs); - } - } else { - if (!(ir->op2 & IRSLOAD_TYPECHECK)) - return; /* No type check: avoid base alloc. */ - base = ra_alloc1(as, REF_BASE, RSET_GPR); - } - if ((ir->op2 & IRSLOAD_TYPECHECK)) { - /* Need type check, even if the load result is unused. */ - asm_guardcc(as, irt_isnum(t) ? CC_AE : CC_NE); - if (LJ_64 && irt_type(t) >= IRT_NUM) { - lua_assert(irt_isinteger(t) || irt_isnum(t)); - emit_u32(as, LJ_TISNUM); - emit_rmro(as, XO_ARITHi, XOg_CMP, base, ofs+4); - } else { - emit_i8(as, irt_toitype(t)); - emit_rmro(as, XO_ARITHi8, XOg_CMP, base, ofs+4); - } - } -} - -/* -- Allocations --------------------------------------------------------- */ - -#if LJ_HASFFI -static void asm_cnew(ASMState *as, IRIns *ir) -{ - CTState *cts = ctype_ctsG(J2G(as->J)); - CTypeID id = (CTypeID)IR(ir->op1)->i; - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_mem_newgco]; - IRRef args[4]; - lua_assert(sz != CTSIZE_INVALID || (ir->o == IR_CNEW && ir->op2 != REF_NIL)); - - as->gcsteps++; - asm_setupresult(as, ir, ci); /* GCcdata * */ - - /* Initialize immutable cdata object. */ - if (ir->o == IR_CNEWI) { - RegSet allow = (RSET_GPR & ~RSET_SCRATCH); -#if LJ_64 - Reg r64 = sz == 8 ? REX_64 : 0; - if (irref_isk(ir->op2)) { - IRIns *irk = IR(ir->op2); - uint64_t k = irk->o == IR_KINT64 ? ir_k64(irk)->u64 : - (uint64_t)(uint32_t)irk->i; - if (sz == 4 || checki32((int64_t)k)) { - emit_i32(as, (int32_t)k); - emit_rmro(as, XO_MOVmi, r64, RID_RET, sizeof(GCcdata)); - } else { - emit_movtomro(as, RID_ECX + r64, RID_RET, sizeof(GCcdata)); - emit_loadu64(as, RID_ECX, k); - } - } else { - Reg r = ra_alloc1(as, ir->op2, allow); - emit_movtomro(as, r + r64, RID_RET, sizeof(GCcdata)); - } -#else - int32_t ofs = sizeof(GCcdata); - if (sz == 8) { - ofs += 4; ir++; - lua_assert(ir->o == IR_HIOP); - } - do { - if (irref_isk(ir->op2)) { - emit_movmroi(as, RID_RET, ofs, IR(ir->op2)->i); - } else { - Reg r = ra_alloc1(as, ir->op2, allow); - emit_movtomro(as, r, RID_RET, ofs); - rset_clear(allow, r); - } - if (ofs == sizeof(GCcdata)) break; - ofs -= 4; ir--; - } while (1); -#endif - lua_assert(sz == 4 || sz == 8); - } else if (ir->op2 != REF_NIL) { /* Create VLA/VLS/aligned cdata. */ - ci = &lj_ir_callinfo[IRCALL_lj_cdata_newv]; - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ir->op1; /* CTypeID id */ - args[2] = ir->op2; /* CTSize sz */ - args[3] = ASMREF_TMP1; /* CTSize align */ - asm_gencall(as, ci, args); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)ctype_align(info)); - return; - } - - /* Combine initialization of marked, gct and ctypeid. */ - emit_movtomro(as, RID_ECX, RID_RET, offsetof(GCcdata, marked)); - emit_gri(as, XG_ARITHi(XOg_OR), RID_ECX, - (int32_t)((~LJ_TCDATA<<8)+(id<<16))); - emit_gri(as, XG_ARITHi(XOg_AND), RID_ECX, LJ_GC_WHITES); - emit_opgl(as, XO_MOVZXb, RID_ECX, gc.currentwhite); - - args[0] = ASMREF_L; /* lua_State *L */ - args[1] = ASMREF_TMP1; /* MSize size */ - asm_gencall(as, ci, args); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP1), (int32_t)(sz+sizeof(GCcdata))); -} -#else -#define asm_cnew(as, ir) ((void)0) -#endif - -/* -- Write barriers ------------------------------------------------------ */ - -static void asm_tbar(ASMState *as, IRIns *ir) -{ - Reg tab = ra_alloc1(as, ir->op1, RSET_GPR); - Reg tmp = ra_scratch(as, rset_exclude(RSET_GPR, tab)); - MCLabel l_end = emit_label(as); - emit_movtomro(as, tmp, tab, offsetof(GCtab, gclist)); - emit_setgl(as, tab, gc.grayagain); - emit_getgl(as, tmp, gc.grayagain); - emit_i8(as, ~LJ_GC_BLACK); - emit_rmro(as, XO_ARITHib, XOg_AND, tab, offsetof(GCtab, marked)); - emit_sjcc(as, CC_Z, l_end); - emit_i8(as, LJ_GC_BLACK); - emit_rmro(as, XO_GROUP3b, XOg_TEST, tab, offsetof(GCtab, marked)); -} - -static void asm_obar(ASMState *as, IRIns *ir) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_barrieruv]; - IRRef args[2]; - MCLabel l_end; - Reg obj; - /* No need for other object barriers (yet). */ - lua_assert(IR(ir->op1)->o == IR_UREFC); - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ir->op1; /* TValue *tv */ - asm_gencall(as, ci, args); - emit_loada(as, ra_releasetmp(as, ASMREF_TMP1), J2G(as->J)); - obj = IR(ir->op1)->r; - emit_sjcc(as, CC_Z, l_end); - emit_i8(as, LJ_GC_WHITES); - if (irref_isk(ir->op2)) { - GCobj *vp = ir_kgc(IR(ir->op2)); - emit_rma(as, XO_GROUP3b, XOg_TEST, &vp->gch.marked); - } else { - Reg val = ra_alloc1(as, ir->op2, rset_exclude(RSET_SCRATCH&RSET_GPR, obj)); - emit_rmro(as, XO_GROUP3b, XOg_TEST, val, (int32_t)offsetof(GChead, marked)); - } - emit_sjcc(as, CC_Z, l_end); - emit_i8(as, LJ_GC_BLACK); - emit_rmro(as, XO_GROUP3b, XOg_TEST, obj, - (int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)); -} - -/* -- FP/int arithmetic and logic operations ------------------------------ */ - -/* Load reference onto x87 stack. Force a spill to memory if needed. */ -static void asm_x87load(ASMState *as, IRRef ref) -{ - IRIns *ir = IR(ref); - if (ir->o == IR_KNUM) { - cTValue *tv = ir_knum(ir); - if (tvispzero(tv)) /* Use fldz only for +0. */ - emit_x87op(as, XI_FLDZ); - else if (tvispone(tv)) - emit_x87op(as, XI_FLD1); - else - emit_rma(as, XO_FLDq, XOg_FLDq, tv); - } else if (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT && !ra_used(ir) && - !irref_isk(ir->op1) && mayfuse(as, ir->op1)) { - IRIns *iri = IR(ir->op1); - emit_rmro(as, XO_FILDd, XOg_FILDd, RID_ESP, ra_spill(as, iri)); - } else { - emit_mrm(as, XO_FLDq, XOg_FLDq, asm_fuseload(as, ref, RSET_EMPTY)); - } -} - -static void asm_fpmath(ASMState *as, IRIns *ir) -{ - IRFPMathOp fpm = (IRFPMathOp)ir->op2; - if (fpm == IRFPM_SQRT) { - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg left = asm_fuseload(as, ir->op1, RSET_FPR); - emit_mrm(as, XO_SQRTSD, dest, left); - } else if (fpm <= IRFPM_TRUNC) { - if (as->flags & JIT_F_SSE4_1) { /* SSE4.1 has a rounding instruction. */ - Reg dest = ra_dest(as, ir, RSET_FPR); - Reg left = asm_fuseload(as, ir->op1, RSET_FPR); - /* ROUNDSD has a 4-byte opcode which doesn't fit in x86Op. - ** Let's pretend it's a 3-byte opcode, and compensate afterwards. - ** This is atrocious, but the alternatives are much worse. - */ - /* Round down/up/trunc == 1001/1010/1011. */ - emit_i8(as, 0x09 + fpm); - emit_mrm(as, XO_ROUNDSD, dest, left); - if (LJ_64 && as->mcp[1] != (MCode)(XO_ROUNDSD >> 16)) { - as->mcp[0] = as->mcp[1]; as->mcp[1] = 0x0f; /* Swap 0F and REX. */ - } - *--as->mcp = 0x66; /* 1st byte of ROUNDSD opcode. */ - } else { /* Call helper functions for SSE2 variant. */ - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM3+1)|RID2RSET(RID_EAX); - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - ra_destreg(as, ir, RID_XMM0); - emit_call(as, fpm == IRFPM_FLOOR ? lj_vm_floor_sse : - fpm == IRFPM_CEIL ? lj_vm_ceil_sse : lj_vm_trunc_sse); - ra_left(as, RID_XMM0, ir->op1); - } - } else if (fpm == IRFPM_EXP2 && asm_fpjoin_pow(as, ir)) { - /* Rejoined to pow(). */ - } else { - asm_callid(as, ir, IRCALL_lj_vm_floor + fpm); - } -} - -#define asm_atan2(as, ir) asm_callid(as, ir, IRCALL_atan2) - -static void asm_ldexp(ASMState *as, IRIns *ir) -{ - int32_t ofs = sps_scale(ir->s); /* Use spill slot or temp slots. */ - Reg dest = ir->r; - if (ra_hasreg(dest)) { - ra_free(as, dest); - ra_modified(as, dest); - emit_rmro(as, XO_MOVSD, dest, RID_ESP, ofs); - } - emit_rmro(as, XO_FSTPq, XOg_FSTPq, RID_ESP, ofs); - emit_x87op(as, XI_FPOP1); - emit_x87op(as, XI_FSCALE); - asm_x87load(as, ir->op1); - asm_x87load(as, ir->op2); -} - -static void asm_fppowi(ASMState *as, IRIns *ir) -{ - /* The modified regs must match with the *.dasc implementation. */ - RegSet drop = RSET_RANGE(RID_XMM0, RID_XMM1+1)|RID2RSET(RID_EAX); - if (ra_hasreg(ir->r)) - rset_clear(drop, ir->r); /* Dest reg handled below. */ - ra_evictset(as, drop); - ra_destreg(as, ir, RID_XMM0); - emit_call(as, lj_vm_powi_sse); - ra_left(as, RID_XMM0, ir->op1); - ra_left(as, RID_EAX, ir->op2); -} - -static void asm_pow(ASMState *as, IRIns *ir) -{ -#if LJ_64 && LJ_HASFFI - if (!irt_isnum(ir->t)) - asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : - IRCALL_lj_carith_powu64); - else -#endif - asm_fppowi(as, ir); -} - -static int asm_swapops(ASMState *as, IRIns *ir) -{ - IRIns *irl = IR(ir->op1); - IRIns *irr = IR(ir->op2); - lua_assert(ra_noreg(irr->r)); - if (!irm_iscomm(lj_ir_mode[ir->o])) - return 0; /* Can't swap non-commutative operations. */ - if (irref_isk(ir->op2)) - return 0; /* Don't swap constants to the left. */ - if (ra_hasreg(irl->r)) - return 1; /* Swap if left already has a register. */ - if (ra_samehint(ir->r, irr->r)) - return 1; /* Swap if dest and right have matching hints. */ - if (as->curins > as->loopref) { /* In variant part? */ - if (ir->op2 < as->loopref && !irt_isphi(irr->t)) - return 0; /* Keep invariants on the right. */ - if (ir->op1 < as->loopref && !irt_isphi(irl->t)) - return 1; /* Swap invariants to the right. */ - } - if (opisfusableload(irl->o)) - return 1; /* Swap fusable loads to the right. */ - return 0; /* Otherwise don't swap. */ -} - -static void asm_fparith(ASMState *as, IRIns *ir, x86Op xo) -{ - IRRef lref = ir->op1; - IRRef rref = ir->op2; - RegSet allow = RSET_FPR; - Reg dest; - Reg right = IR(rref)->r; - if (ra_hasreg(right)) { - rset_clear(allow, right); - ra_noweak(as, right); - } - dest = ra_dest(as, ir, allow); - if (lref == rref) { - right = dest; - } else if (ra_noreg(right)) { - if (asm_swapops(as, ir)) { - IRRef tmp = lref; lref = rref; rref = tmp; - } - right = asm_fuseload(as, rref, rset_clear(allow, dest)); - } - emit_mrm(as, xo, dest, right); - ra_left(as, dest, lref); -} - -static void asm_intarith(ASMState *as, IRIns *ir, x86Arith xa) -{ - IRRef lref = ir->op1; - IRRef rref = ir->op2; - RegSet allow = RSET_GPR; - Reg dest, right; - int32_t k = 0; - if (as->flagmcp == as->mcp) { /* Drop test r,r instruction. */ - as->flagmcp = NULL; - as->mcp += (LJ_64 && *as->mcp < XI_TESTb) ? 3 : 2; - } - right = IR(rref)->r; - if (ra_hasreg(right)) { - rset_clear(allow, right); - ra_noweak(as, right); - } - dest = ra_dest(as, ir, allow); - if (lref == rref) { - right = dest; - } else if (ra_noreg(right) && !asm_isk32(as, rref, &k)) { - if (asm_swapops(as, ir)) { - IRRef tmp = lref; lref = rref; rref = tmp; - } - right = asm_fuseloadm(as, rref, rset_clear(allow, dest), irt_is64(ir->t)); - } - if (irt_isguard(ir->t)) /* For IR_ADDOV etc. */ - asm_guardcc(as, CC_O); - if (xa != XOg_X_IMUL) { - if (ra_hasreg(right)) - emit_mrm(as, XO_ARITH(xa), REX_64IR(ir, dest), right); - else - emit_gri(as, XG_ARITHi(xa), REX_64IR(ir, dest), k); - } else if (ra_hasreg(right)) { /* IMUL r, mrm. */ - emit_mrm(as, XO_IMUL, REX_64IR(ir, dest), right); - } else { /* IMUL r, r, k. */ - /* NYI: use lea/shl/add/sub (FOLD only does 2^k) depending on CPU. */ - Reg left = asm_fuseloadm(as, lref, RSET_GPR, irt_is64(ir->t)); - x86Op xo; - if (checki8(k)) { emit_i8(as, k); xo = XO_IMULi8; - } else { emit_i32(as, k); xo = XO_IMULi; } - emit_mrm(as, xo, REX_64IR(ir, dest), left); - return; - } - ra_left(as, dest, lref); -} - -/* LEA is really a 4-operand ADD with an independent destination register, -** up to two source registers and an immediate. One register can be scaled -** by 1, 2, 4 or 8. This can be used to avoid moves or to fuse several -** instructions. -** -** Currently only a few common cases are supported: -** - 3-operand ADD: y = a+b; y = a+k with a and b already allocated -** - Left ADD fusion: y = (a+b)+k; y = (a+k)+b -** - Right ADD fusion: y = a+(b+k) -** The ommited variants have already been reduced by FOLD. -** -** There are more fusion opportunities, like gathering shifts or joining -** common references. But these are probably not worth the trouble, since -** array indexing is not decomposed and already makes use of all fields -** of the ModRM operand. -*/ -static int asm_lea(ASMState *as, IRIns *ir) -{ - IRIns *irl = IR(ir->op1); - IRIns *irr = IR(ir->op2); - RegSet allow = RSET_GPR; - Reg dest; - as->mrm.base = as->mrm.idx = RID_NONE; - as->mrm.scale = XM_SCALE1; - as->mrm.ofs = 0; - if (ra_hasreg(irl->r)) { - rset_clear(allow, irl->r); - ra_noweak(as, irl->r); - as->mrm.base = irl->r; - if (irref_isk(ir->op2) || ra_hasreg(irr->r)) { - /* The PHI renaming logic does a better job in some cases. */ - if (ra_hasreg(ir->r) && - ((irt_isphi(irl->t) && as->phireg[ir->r] == ir->op1) || - (irt_isphi(irr->t) && as->phireg[ir->r] == ir->op2))) - return 0; - if (irref_isk(ir->op2)) { - as->mrm.ofs = irr->i; - } else { - rset_clear(allow, irr->r); - ra_noweak(as, irr->r); - as->mrm.idx = irr->r; - } - } else if (irr->o == IR_ADD && mayfuse(as, ir->op2) && - irref_isk(irr->op2)) { - Reg idx = ra_alloc1(as, irr->op1, allow); - rset_clear(allow, idx); - as->mrm.idx = (uint8_t)idx; - as->mrm.ofs = IR(irr->op2)->i; - } else { - return 0; - } - } else if (ir->op1 != ir->op2 && irl->o == IR_ADD && mayfuse(as, ir->op1) && - (irref_isk(ir->op2) || irref_isk(irl->op2))) { - Reg idx, base = ra_alloc1(as, irl->op1, allow); - rset_clear(allow, base); - as->mrm.base = (uint8_t)base; - if (irref_isk(ir->op2)) { - as->mrm.ofs = irr->i; - idx = ra_alloc1(as, irl->op2, allow); - } else { - as->mrm.ofs = IR(irl->op2)->i; - idx = ra_alloc1(as, ir->op2, allow); - } - rset_clear(allow, idx); - as->mrm.idx = (uint8_t)idx; - } else { - return 0; - } - dest = ra_dest(as, ir, allow); - emit_mrm(as, XO_LEA, dest, RID_MRM); - return 1; /* Success. */ -} - -static void asm_add(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_ADDSD); - else if ((as->flags & JIT_F_LEA_AGU) || as->flagmcp == as->mcp || - irt_is64(ir->t) || !asm_lea(as, ir)) - asm_intarith(as, ir, XOg_ADD); -} - -static void asm_sub(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_SUBSD); - else /* Note: no need for LEA trick here. i-k is encoded as i+(-k). */ - asm_intarith(as, ir, XOg_SUB); -} - -static void asm_mul(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MULSD); - else - asm_intarith(as, ir, XOg_X_IMUL); -} - -static void asm_div(ASMState *as, IRIns *ir) -{ -#if LJ_64 && LJ_HASFFI - if (!irt_isnum(ir->t)) - asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : - IRCALL_lj_carith_divu64); - else -#endif - asm_fparith(as, ir, XO_DIVSD); -} - -static void asm_mod(ASMState *as, IRIns *ir) -{ -#if LJ_64 && LJ_HASFFI - if (!irt_isint(ir->t)) - asm_callid(as, ir, irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : - IRCALL_lj_carith_modu64); - else -#endif - asm_callid(as, ir, IRCALL_lj_vm_modi); -} - -static void asm_neg_not(ASMState *as, IRIns *ir, x86Group3 xg) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - emit_rr(as, XO_GROUP3, REX_64IR(ir, xg), dest); - ra_left(as, dest, ir->op1); -} - -static void asm_neg(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_XORPS); - else - asm_neg_not(as, ir, XOg_NEG); -} - -#define asm_abs(as, ir) asm_fparith(as, ir, XO_ANDPS) - -static void asm_intmin_max(ASMState *as, IRIns *ir, int cc) -{ - Reg right, dest = ra_dest(as, ir, RSET_GPR); - IRRef lref = ir->op1, rref = ir->op2; - if (irref_isk(rref)) { lref = rref; rref = ir->op1; } - right = ra_alloc1(as, rref, rset_exclude(RSET_GPR, dest)); - emit_rr(as, XO_CMOV + (cc<<24), REX_64IR(ir, dest), right); - emit_rr(as, XO_CMP, REX_64IR(ir, dest), right); - ra_left(as, dest, lref); -} - -static void asm_min(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MINSD); - else - asm_intmin_max(as, ir, CC_G); -} - -static void asm_max(ASMState *as, IRIns *ir) -{ - if (irt_isnum(ir->t)) - asm_fparith(as, ir, XO_MAXSD); - else - asm_intmin_max(as, ir, CC_L); -} - -/* Note: don't use LEA for overflow-checking arithmetic! */ -#define asm_addov(as, ir) asm_intarith(as, ir, XOg_ADD) -#define asm_subov(as, ir) asm_intarith(as, ir, XOg_SUB) -#define asm_mulov(as, ir) asm_intarith(as, ir, XOg_X_IMUL) - -#define asm_bnot(as, ir) asm_neg_not(as, ir, XOg_NOT) - -static void asm_bswap(ASMState *as, IRIns *ir) -{ - Reg dest = ra_dest(as, ir, RSET_GPR); - as->mcp = emit_op(XO_BSWAP + ((dest&7) << 24), - REX_64IR(ir, 0), dest, 0, as->mcp, 1); - ra_left(as, dest, ir->op1); -} - -#define asm_band(as, ir) asm_intarith(as, ir, XOg_AND) -#define asm_bor(as, ir) asm_intarith(as, ir, XOg_OR) -#define asm_bxor(as, ir) asm_intarith(as, ir, XOg_XOR) - -static void asm_bitshift(ASMState *as, IRIns *ir, x86Shift xs) -{ - IRRef rref = ir->op2; - IRIns *irr = IR(rref); - Reg dest; - if (irref_isk(rref)) { /* Constant shifts. */ - int shift; - dest = ra_dest(as, ir, RSET_GPR); - shift = irr->i & (irt_is64(ir->t) ? 63 : 31); - switch (shift) { - case 0: break; - case 1: emit_rr(as, XO_SHIFT1, REX_64IR(ir, xs), dest); break; - default: emit_shifti(as, REX_64IR(ir, xs), dest, shift); break; - } - } else { /* Variable shifts implicitly use register cl (i.e. ecx). */ - Reg right; - dest = ra_dest(as, ir, rset_exclude(RSET_GPR, RID_ECX)); - if (dest == RID_ECX) { - dest = ra_scratch(as, rset_exclude(RSET_GPR, RID_ECX)); - emit_rr(as, XO_MOV, RID_ECX, dest); - } - right = irr->r; - if (ra_noreg(right)) - right = ra_allocref(as, rref, RID2RSET(RID_ECX)); - else if (right != RID_ECX) - ra_scratch(as, RID2RSET(RID_ECX)); - emit_rr(as, XO_SHIFTcl, REX_64IR(ir, xs), dest); - ra_noweak(as, right); - if (right != RID_ECX) - emit_rr(as, XO_MOV, RID_ECX, right); - } - ra_left(as, dest, ir->op1); - /* - ** Note: avoid using the flags resulting from a shift or rotate! - ** All of them cause a partial flag stall, except for r,1 shifts - ** (but not rotates). And a shift count of 0 leaves the flags unmodified. - */ -} - -#define asm_bshl(as, ir) asm_bitshift(as, ir, XOg_SHL) -#define asm_bshr(as, ir) asm_bitshift(as, ir, XOg_SHR) -#define asm_bsar(as, ir) asm_bitshift(as, ir, XOg_SAR) -#define asm_brol(as, ir) asm_bitshift(as, ir, XOg_ROL) -#define asm_bror(as, ir) asm_bitshift(as, ir, XOg_ROR) - -/* -- Comparisons --------------------------------------------------------- */ - -/* Virtual flags for unordered FP comparisons. */ -#define VCC_U 0x1000 /* Unordered. */ -#define VCC_P 0x2000 /* Needs extra CC_P branch. */ -#define VCC_S 0x4000 /* Swap avoids CC_P branch. */ -#define VCC_PS (VCC_P|VCC_S) - -/* Map of comparisons to flags. ORDER IR. */ -#define COMPFLAGS(ci, cin, cu, cf) ((ci)+((cu)<<4)+((cin)<<8)+(cf)) -static const uint16_t asm_compmap[IR_ABC+1] = { - /* signed non-eq unsigned flags */ - /* LT */ COMPFLAGS(CC_GE, CC_G, CC_AE, VCC_PS), - /* GE */ COMPFLAGS(CC_L, CC_L, CC_B, 0), - /* LE */ COMPFLAGS(CC_G, CC_G, CC_A, VCC_PS), - /* GT */ COMPFLAGS(CC_LE, CC_L, CC_BE, 0), - /* ULT */ COMPFLAGS(CC_AE, CC_A, CC_AE, VCC_U), - /* UGE */ COMPFLAGS(CC_B, CC_B, CC_B, VCC_U|VCC_PS), - /* ULE */ COMPFLAGS(CC_A, CC_A, CC_A, VCC_U), - /* UGT */ COMPFLAGS(CC_BE, CC_B, CC_BE, VCC_U|VCC_PS), - /* EQ */ COMPFLAGS(CC_NE, CC_NE, CC_NE, VCC_P), - /* NE */ COMPFLAGS(CC_E, CC_E, CC_E, VCC_U|VCC_P), - /* ABC */ COMPFLAGS(CC_BE, CC_B, CC_BE, VCC_U|VCC_PS) /* Same as UGT. */ -}; - -/* FP and integer comparisons. */ -static void asm_comp(ASMState *as, IRIns *ir) -{ - uint32_t cc = asm_compmap[ir->o]; - if (irt_isnum(ir->t)) { - IRRef lref = ir->op1; - IRRef rref = ir->op2; - Reg left, right; - MCLabel l_around; - /* - ** An extra CC_P branch is required to preserve ordered/unordered - ** semantics for FP comparisons. This can be avoided by swapping - ** the operands and inverting the condition (except for EQ and UNE). - ** So always try to swap if possible. - ** - ** Another option would be to swap operands to achieve better memory - ** operand fusion. But it's unlikely that this outweighs the cost - ** of the extra branches. - */ - if (cc & VCC_S) { /* Swap? */ - IRRef tmp = lref; lref = rref; rref = tmp; - cc ^= (VCC_PS|(5<<4)); /* A <-> B, AE <-> BE, PS <-> none */ - } - left = ra_alloc1(as, lref, RSET_FPR); - right = asm_fuseload(as, rref, rset_exclude(RSET_FPR, left)); - l_around = emit_label(as); - asm_guardcc(as, cc >> 4); - if (cc & VCC_P) { /* Extra CC_P branch required? */ - if (!(cc & VCC_U)) { - asm_guardcc(as, CC_P); /* Branch to exit for ordered comparisons. */ - } else if (l_around != as->invmcp) { - emit_sjcc(as, CC_P, l_around); /* Branch around for unordered. */ - } else { - /* Patched to mcloop by asm_loop_fixup. */ - as->loopinv = 2; - if (as->realign) - emit_sjcc(as, CC_P, as->mcp); - else - emit_jcc(as, CC_P, as->mcp); - } - } - emit_mrm(as, XO_UCOMISD, left, right); - } else { - IRRef lref = ir->op1, rref = ir->op2; - IROp leftop = (IROp)(IR(lref)->o); - Reg r64 = REX_64IR(ir, 0); - int32_t imm = 0; - lua_assert(irt_is64(ir->t) || irt_isint(ir->t) || - irt_isu32(ir->t) || irt_isaddr(ir->t) || irt_isu8(ir->t)); - /* Swap constants (only for ABC) and fusable loads to the right. */ - if (irref_isk(lref) || (!irref_isk(rref) && opisfusableload(leftop))) { - if ((cc & 0xc) == 0xc) cc ^= 0x53; /* L <-> G, LE <-> GE */ - else if ((cc & 0xa) == 0x2) cc ^= 0x55; /* A <-> B, AE <-> BE */ - lref = ir->op2; rref = ir->op1; - } - if (asm_isk32(as, rref, &imm)) { - IRIns *irl = IR(lref); - /* Check wether we can use test ins. Not for unsigned, since CF=0. */ - int usetest = (imm == 0 && (cc & 0xa) != 0x2); - if (usetest && irl->o == IR_BAND && irl+1 == ir && !ra_used(irl)) { - /* Combine comp(BAND(ref, r/imm), 0) into test mrm, r/imm. */ - Reg right, left = RID_NONE; - RegSet allow = RSET_GPR; - if (!asm_isk32(as, irl->op2, &imm)) { - left = ra_alloc1(as, irl->op2, allow); - rset_clear(allow, left); - } else { /* Try to Fuse IRT_I8/IRT_U8 loads, too. See below. */ - IRIns *irll = IR(irl->op1); - if (opisfusableload((IROp)irll->o) && - (irt_isi8(irll->t) || irt_isu8(irll->t))) { - IRType1 origt = irll->t; /* Temporarily flip types. */ - irll->t.irt = (irll->t.irt & ~IRT_TYPE) | IRT_INT; - as->curins--; /* Skip to BAND to avoid failing in noconflict(). */ - right = asm_fuseload(as, irl->op1, RSET_GPR); - as->curins++; - irll->t = origt; - if (right != RID_MRM) goto test_nofuse; - /* Fusion succeeded, emit test byte mrm, imm8. */ - asm_guardcc(as, cc); - emit_i8(as, (imm & 0xff)); - emit_mrm(as, XO_GROUP3b, XOg_TEST, RID_MRM); - return; - } - } - as->curins--; /* Skip to BAND to avoid failing in noconflict(). */ - right = asm_fuseloadm(as, irl->op1, allow, r64); - as->curins++; /* Undo the above. */ - test_nofuse: - asm_guardcc(as, cc); - if (ra_noreg(left)) { - emit_i32(as, imm); - emit_mrm(as, XO_GROUP3, r64 + XOg_TEST, right); - } else { - emit_mrm(as, XO_TEST, r64 + left, right); - } - } else { - Reg left; - if (opisfusableload((IROp)irl->o) && - ((irt_isu8(irl->t) && checku8(imm)) || - ((irt_isi8(irl->t) || irt_isi16(irl->t)) && checki8(imm)) || - (irt_isu16(irl->t) && checku16(imm) && checki8((int16_t)imm)))) { - /* Only the IRT_INT case is fused by asm_fuseload. - ** The IRT_I8/IRT_U8 loads and some IRT_I16/IRT_U16 loads - ** are handled here. - ** Note that cmp word [mem], imm16 should not be generated, - ** since it has a length-changing prefix. Compares of a word - ** against a sign-extended imm8 are ok, however. - */ - IRType1 origt = irl->t; /* Temporarily flip types. */ - irl->t.irt = (irl->t.irt & ~IRT_TYPE) | IRT_INT; - left = asm_fuseload(as, lref, RSET_GPR); - irl->t = origt; - if (left == RID_MRM) { /* Fusion succeeded? */ - if (irt_isu8(irl->t) || irt_isu16(irl->t)) - cc >>= 4; /* Need unsigned compare. */ - asm_guardcc(as, cc); - emit_i8(as, imm); - emit_mrm(as, (irt_isi8(origt) || irt_isu8(origt)) ? - XO_ARITHib : XO_ARITHiw8, r64 + XOg_CMP, RID_MRM); - return; - } /* Otherwise handle register case as usual. */ - } else { - left = asm_fuseloadm(as, lref, - irt_isu8(ir->t) ? RSET_GPR8 : RSET_GPR, r64); - } - asm_guardcc(as, cc); - if (usetest && left != RID_MRM) { - /* Use test r,r instead of cmp r,0. */ - x86Op xo = XO_TEST; - if (irt_isu8(ir->t)) { - lua_assert(ir->o == IR_EQ || ir->o == IR_NE); - xo = XO_TESTb; - if (!rset_test(RSET_RANGE(RID_EAX, RID_EBX+1), left)) { - if (LJ_64) { - left |= FORCE_REX; - } else { - emit_i32(as, 0xff); - emit_mrm(as, XO_GROUP3, XOg_TEST, left); - return; - } - } - } - emit_rr(as, xo, r64 + left, left); - if (irl+1 == ir) /* Referencing previous ins? */ - as->flagmcp = as->mcp; /* Set flag to drop test r,r if possible. */ - } else { - emit_gmrmi(as, XG_ARITHi(XOg_CMP), r64 + left, imm); - } - } - } else { - Reg left = ra_alloc1(as, lref, RSET_GPR); - Reg right = asm_fuseloadm(as, rref, rset_exclude(RSET_GPR, left), r64); - asm_guardcc(as, cc); - emit_mrm(as, XO_CMP, r64 + left, right); - } - } -} - -#define asm_equal(as, ir) asm_comp(as, ir) - -#if LJ_32 && LJ_HASFFI -/* 64 bit integer comparisons in 32 bit mode. */ -static void asm_comp_int64(ASMState *as, IRIns *ir) -{ - uint32_t cc = asm_compmap[(ir-1)->o]; - RegSet allow = RSET_GPR; - Reg lefthi = RID_NONE, leftlo = RID_NONE; - Reg righthi = RID_NONE, rightlo = RID_NONE; - MCLabel l_around; - x86ModRM mrm; - - as->curins--; /* Skip loword ins. Avoids failing in noconflict(), too. */ - - /* Allocate/fuse hiword operands. */ - if (irref_isk(ir->op2)) { - lefthi = asm_fuseload(as, ir->op1, allow); - } else { - lefthi = ra_alloc1(as, ir->op1, allow); - rset_clear(allow, lefthi); - righthi = asm_fuseload(as, ir->op2, allow); - if (righthi == RID_MRM) { - if (as->mrm.base != RID_NONE) rset_clear(allow, as->mrm.base); - if (as->mrm.idx != RID_NONE) rset_clear(allow, as->mrm.idx); - } else { - rset_clear(allow, righthi); - } - } - mrm = as->mrm; /* Save state for hiword instruction. */ - - /* Allocate/fuse loword operands. */ - if (irref_isk((ir-1)->op2)) { - leftlo = asm_fuseload(as, (ir-1)->op1, allow); - } else { - leftlo = ra_alloc1(as, (ir-1)->op1, allow); - rset_clear(allow, leftlo); - rightlo = asm_fuseload(as, (ir-1)->op2, allow); - } - - /* All register allocations must be performed _before_ this point. */ - l_around = emit_label(as); - as->invmcp = as->flagmcp = NULL; /* Cannot use these optimizations. */ - - /* Loword comparison and branch. */ - asm_guardcc(as, cc >> 4); /* Always use unsigned compare for loword. */ - if (ra_noreg(rightlo)) { - int32_t imm = IR((ir-1)->op2)->i; - if (imm == 0 && ((cc >> 4) & 0xa) != 0x2 && leftlo != RID_MRM) - emit_rr(as, XO_TEST, leftlo, leftlo); - else - emit_gmrmi(as, XG_ARITHi(XOg_CMP), leftlo, imm); - } else { - emit_mrm(as, XO_CMP, leftlo, rightlo); - } - - /* Hiword comparison and branches. */ - if ((cc & 15) != CC_NE) - emit_sjcc(as, CC_NE, l_around); /* Hiword unequal: skip loword compare. */ - if ((cc & 15) != CC_E) - asm_guardcc(as, cc >> 8); /* Hiword compare without equality check. */ - as->mrm = mrm; /* Restore state. */ - if (ra_noreg(righthi)) { - int32_t imm = IR(ir->op2)->i; - if (imm == 0 && (cc & 0xa) != 0x2 && lefthi != RID_MRM) - emit_rr(as, XO_TEST, lefthi, lefthi); - else - emit_gmrmi(as, XG_ARITHi(XOg_CMP), lefthi, imm); - } else { - emit_mrm(as, XO_CMP, lefthi, righthi); - } -} -#endif - -/* -- Support for 64 bit ops in 32 bit mode ------------------------------- */ - -/* Hiword op of a split 64 bit op. Previous op must be the loword op. */ -static void asm_hiop(ASMState *as, IRIns *ir) -{ -#if LJ_32 && LJ_HASFFI - /* HIOP is marked as a store because it needs its own DCE logic. */ - int uselo = ra_used(ir-1), usehi = ra_used(ir); /* Loword/hiword used? */ - if (LJ_UNLIKELY(!(as->flags & JIT_F_OPT_DCE))) uselo = usehi = 1; - if ((ir-1)->o == IR_CONV) { /* Conversions to/from 64 bit. */ - as->curins--; /* Always skip the CONV. */ - if (usehi || uselo) - asm_conv64(as, ir); - return; - } else if ((ir-1)->o <= IR_NE) { /* 64 bit integer comparisons. ORDER IR. */ - asm_comp_int64(as, ir); - return; - } else if ((ir-1)->o == IR_XSTORE) { - if ((ir-1)->r != RID_SINK) - asm_fxstore(as, ir); - return; - } - if (!usehi) return; /* Skip unused hiword op for all remaining ops. */ - switch ((ir-1)->o) { - case IR_ADD: - as->flagmcp = NULL; - as->curins--; - asm_intarith(as, ir, XOg_ADC); - asm_intarith(as, ir-1, XOg_ADD); - break; - case IR_SUB: - as->flagmcp = NULL; - as->curins--; - asm_intarith(as, ir, XOg_SBB); - asm_intarith(as, ir-1, XOg_SUB); - break; - case IR_NEG: { - Reg dest = ra_dest(as, ir, RSET_GPR); - emit_rr(as, XO_GROUP3, XOg_NEG, dest); - emit_i8(as, 0); - emit_rr(as, XO_ARITHi8, XOg_ADC, dest); - ra_left(as, dest, ir->op1); - as->curins--; - asm_neg_not(as, ir-1, XOg_NEG); - break; - } - case IR_CALLN: - case IR_CALLXS: - if (!uselo) - ra_allocref(as, ir->op1, RID2RSET(RID_RETLO)); /* Mark lo op as used. */ - break; - case IR_CNEWI: - /* Nothing to do here. Handled by CNEWI itself. */ - break; - default: lua_assert(0); break; - } -#else - UNUSED(as); UNUSED(ir); lua_assert(0); /* Unused on x64 or without FFI. */ -#endif -} - -/* -- Profiling ----------------------------------------------------------- */ - -static void asm_prof(ASMState *as, IRIns *ir) -{ - UNUSED(ir); - asm_guardcc(as, CC_NE); - emit_i8(as, HOOK_PROFILE); - emit_rma(as, XO_GROUP3b, XOg_TEST, &J2G(as->J)->hookmask); -} - -/* -- Stack handling ------------------------------------------------------ */ - -/* Check Lua stack size for overflow. Use exit handler as fallback. */ -static void asm_stack_check(ASMState *as, BCReg topslot, - IRIns *irp, RegSet allow, ExitNo exitno) -{ - /* Try to get an unused temp. register, otherwise spill/restore eax. */ - Reg pbase = irp ? irp->r : RID_BASE; - Reg r = allow ? rset_pickbot(allow) : RID_EAX; - emit_jcc(as, CC_B, exitstub_addr(as->J, exitno)); - if (allow == RSET_EMPTY) /* Restore temp. register. */ - emit_rmro(as, XO_MOV, r|REX_64, RID_ESP, 0); - else - ra_modified(as, r); - emit_gri(as, XG_ARITHi(XOg_CMP), r, (int32_t)(8*topslot)); - if (ra_hasreg(pbase) && pbase != r) - emit_rr(as, XO_ARITH(XOg_SUB), r, pbase); - else - emit_rmro(as, XO_ARITH(XOg_SUB), r, RID_NONE, - ptr2addr(&J2G(as->J)->jit_base)); - emit_rmro(as, XO_MOV, r, r, offsetof(lua_State, maxstack)); - emit_getgl(as, r, cur_L); - if (allow == RSET_EMPTY) /* Spill temp. register. */ - emit_rmro(as, XO_MOVto, r|REX_64, RID_ESP, 0); -} - -/* Restore Lua stack from on-trace state. */ -static void asm_stack_restore(ASMState *as, SnapShot *snap) -{ - SnapEntry *map = &as->T->snapmap[snap->mapofs]; - SnapEntry *flinks = &as->T->snapmap[snap_nextofs(as->T, snap)-1]; - MSize n, nent = snap->nent; - /* Store the value of all modified slots to the Lua stack. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - BCReg s = snap_slot(sn); - int32_t ofs = 8*((int32_t)s-1); - IRRef ref = snap_ref(sn); - IRIns *ir = IR(ref); - if ((sn & SNAP_NORESTORE)) - continue; - if (irt_isnum(ir->t)) { - Reg src = ra_alloc1(as, ref, RSET_FPR); - emit_rmro(as, XO_MOVSDto, src, RID_BASE, ofs); - } else { - lua_assert(irt_ispri(ir->t) || irt_isaddr(ir->t) || - (LJ_DUALNUM && irt_isinteger(ir->t))); - if (!irref_isk(ref)) { - Reg src = ra_alloc1(as, ref, rset_exclude(RSET_GPR, RID_BASE)); - emit_movtomro(as, REX_64IR(ir, src), RID_BASE, ofs); - } else if (!irt_ispri(ir->t)) { - emit_movmroi(as, RID_BASE, ofs, ir->i); - } - if ((sn & (SNAP_CONT|SNAP_FRAME))) { - if (s != 0) /* Do not overwrite link to previous frame. */ - emit_movmroi(as, RID_BASE, ofs+4, (int32_t)(*flinks--)); - } else { - if (!(LJ_64 && irt_islightud(ir->t))) - emit_movmroi(as, RID_BASE, ofs+4, irt_toitype(ir->t)); - } - } - checkmclim(as); - } - lua_assert(map + nent == flinks); -} - -/* -- GC handling --------------------------------------------------------- */ - -/* Check GC threshold and do one or more GC steps. */ -static void asm_gc_check(ASMState *as) -{ - const CCallInfo *ci = &lj_ir_callinfo[IRCALL_lj_gc_step_jit]; - IRRef args[2]; - MCLabel l_end; - Reg tmp; - ra_evictset(as, RSET_SCRATCH); - l_end = emit_label(as); - /* Exit trace if in GCSatomic or GCSfinalize. Avoids syncing GC objects. */ - asm_guardcc(as, CC_NE); /* Assumes asm_snap_prep() already done. */ - emit_rr(as, XO_TEST, RID_RET, RID_RET); - args[0] = ASMREF_TMP1; /* global_State *g */ - args[1] = ASMREF_TMP2; /* MSize steps */ - asm_gencall(as, ci, args); - tmp = ra_releasetmp(as, ASMREF_TMP1); - emit_loada(as, tmp, J2G(as->J)); - emit_loadi(as, ra_releasetmp(as, ASMREF_TMP2), as->gcsteps); - /* Jump around GC step if GC total < GC threshold. */ - emit_sjcc(as, CC_B, l_end); - emit_opgl(as, XO_ARITH(XOg_CMP), tmp, gc.threshold); - emit_getgl(as, tmp, gc.total); - as->gcsteps = 0; - checkmclim(as); -} - -/* -- Loop handling ------------------------------------------------------- */ - -/* Fixup the loop branch. */ -static void asm_loop_fixup(ASMState *as) -{ - MCode *p = as->mctop; - MCode *target = as->mcp; - if (as->realign) { /* Realigned loops use short jumps. */ - as->realign = NULL; /* Stop another retry. */ - lua_assert(((intptr_t)target & 15) == 0); - if (as->loopinv) { /* Inverted loop branch? */ - p -= 5; - p[0] = XI_JMP; - lua_assert(target - p >= -128); - p[-1] = (MCode)(target - p); /* Patch sjcc. */ - if (as->loopinv == 2) - p[-3] = (MCode)(target - p + 2); /* Patch opt. short jp. */ - } else { - lua_assert(target - p >= -128); - p[-1] = (MCode)(int8_t)(target - p); /* Patch short jmp. */ - p[-2] = XI_JMPs; - } - } else { - MCode *newloop; - p[-5] = XI_JMP; - if (as->loopinv) { /* Inverted loop branch? */ - /* asm_guardcc already inverted the jcc and patched the jmp. */ - p -= 5; - newloop = target+4; - *(int32_t *)(p-4) = (int32_t)(target - p); /* Patch jcc. */ - if (as->loopinv == 2) { - *(int32_t *)(p-10) = (int32_t)(target - p + 6); /* Patch opt. jp. */ - newloop = target+8; - } - } else { /* Otherwise just patch jmp. */ - *(int32_t *)(p-4) = (int32_t)(target - p); - newloop = target+3; - } - /* Realign small loops and shorten the loop branch. */ - if (newloop >= p - 128) { - as->realign = newloop; /* Force a retry and remember alignment. */ - as->curins = as->stopins; /* Abort asm_trace now. */ - as->T->nins = as->orignins; /* Remove any added renames. */ - } - } -} - -/* -- Head of trace ------------------------------------------------------- */ - -/* Coalesce BASE register for a root trace. */ -static void asm_head_root_base(ASMState *as) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (r != RID_BASE) - emit_rr(as, XO_MOV, r, RID_BASE); - } -} - -/* Coalesce or reload BASE register for a side trace. */ -static RegSet asm_head_side_base(ASMState *as, IRIns *irp, RegSet allow) -{ - IRIns *ir = IR(REF_BASE); - Reg r = ir->r; - if (ra_hasreg(r)) { - ra_free(as, r); - if (rset_test(as->modset, r) || irt_ismarked(ir->t)) - ir->r = RID_INIT; /* No inheritance for modified BASE register. */ - if (irp->r == r) { - rset_clear(allow, r); /* Mark same BASE register as coalesced. */ - } else if (ra_hasreg(irp->r) && rset_test(as->freeset, irp->r)) { - rset_clear(allow, irp->r); - emit_rr(as, XO_MOV, r, irp->r); /* Move from coalesced parent reg. */ - } else { - emit_getgl(as, r, jit_base); /* Otherwise reload BASE. */ - } - } - return allow; -} - -/* -- Tail of trace ------------------------------------------------------- */ - -/* Fixup the tail code. */ -static void asm_tail_fixup(ASMState *as, TraceNo lnk) -{ - /* Note: don't use as->mcp swap + emit_*: emit_op overwrites more bytes. */ - MCode *p = as->mctop; - MCode *target, *q; - int32_t spadj = as->T->spadjust; - if (spadj == 0) { - p -= ((as->flags & JIT_F_LEA_AGU) ? 7 : 6) + (LJ_64 ? 1 : 0); - } else { - MCode *p1; - /* Patch stack adjustment. */ - if (checki8(spadj)) { - p -= 3; - p1 = p-6; - *p1 = (MCode)spadj; - } else { - p1 = p-9; - *(int32_t *)p1 = spadj; - } - if ((as->flags & JIT_F_LEA_AGU)) { -#if LJ_64 - p1[-4] = 0x48; -#endif - p1[-3] = (MCode)XI_LEA; - p1[-2] = MODRM(checki8(spadj) ? XM_OFS8 : XM_OFS32, RID_ESP, RID_ESP); - p1[-1] = MODRM(XM_SCALE1, RID_ESP, RID_ESP); - } else { -#if LJ_64 - p1[-3] = 0x48; -#endif - p1[-2] = (MCode)(checki8(spadj) ? XI_ARITHi8 : XI_ARITHi); - p1[-1] = MODRM(XM_REG, XOg_ADD, RID_ESP); - } - } - /* Patch exit branch. */ - target = lnk ? traceref(as->J, lnk)->mcode : (MCode *)lj_vm_exit_interp; - *(int32_t *)(p-4) = jmprel(p, target); - p[-5] = XI_JMP; - /* Drop unused mcode tail. Fill with NOPs to make the prefetcher happy. */ - for (q = as->mctop-1; q >= p; q--) - *q = XI_NOP; - as->mctop = p; -} - -/* Prepare tail of code. */ -static void asm_tail_prep(ASMState *as) -{ - MCode *p = as->mctop; - /* Realign and leave room for backwards loop branch or exit branch. */ - if (as->realign) { - int i = ((int)(intptr_t)as->realign) & 15; - /* Fill unused mcode tail with NOPs to make the prefetcher happy. */ - while (i-- > 0) - *--p = XI_NOP; - as->mctop = p; - p -= (as->loopinv ? 5 : 2); /* Space for short/near jmp. */ - } else { - p -= 5; /* Space for exit branch (near jmp). */ - } - if (as->loopref) { - as->invmcp = as->mcp = p; - } else { - /* Leave room for ESP adjustment: add esp, imm or lea esp, [esp+imm] */ - as->mcp = p - (((as->flags & JIT_F_LEA_AGU) ? 7 : 6) + (LJ_64 ? 1 : 0)); - as->invmcp = NULL; - } -} - -/* -- Trace setup --------------------------------------------------------- */ - -/* Ensure there are enough stack slots for call arguments. */ -static Reg asm_setup_call_slots(ASMState *as, IRIns *ir, const CCallInfo *ci) -{ - IRRef args[CCI_NARGS_MAX*2]; - int nslots; - asm_collectargs(as, ir, ci, args); - nslots = asm_count_call_slots(as, ci, args); - if (nslots > as->evenspill) /* Leave room for args in stack slots. */ - as->evenspill = nslots; -#if LJ_64 - return irt_isfp(ir->t) ? REGSP_HINT(RID_FPRET) : REGSP_HINT(RID_RET); -#else - return irt_isfp(ir->t) ? REGSP_INIT : REGSP_HINT(RID_RET); -#endif -} - -/* Target-specific setup. */ -static void asm_setup_target(ASMState *as) -{ - asm_exitstub_setup(as, as->T->nsnap); -} - -/* -- Trace patching ------------------------------------------------------ */ - -/* Patch exit jumps of existing machine code to a new target. */ -void lj_asm_patchexit(jit_State *J, GCtrace *T, ExitNo exitno, MCode *target) -{ - MCode *p = T->mcode; - MCode *mcarea = lj_mcode_patch(J, p, 0); - MSize len = T->szmcode; - MCode *px = exitstub_addr(J, exitno) - 6; - MCode *pe = p+len-6; - uint32_t stateaddr = u32ptr(&J2G(J)->vmstate); - if (len > 5 && p[len-5] == XI_JMP && p+len-6 + *(int32_t *)(p+len-4) == px) - *(int32_t *)(p+len-4) = jmprel(p+len, target); - /* Do not patch parent exit for a stack check. Skip beyond vmstate update. */ - for (; p < pe; p++) - if (*(uint32_t *)(p+(LJ_64 ? 3 : 2)) == stateaddr && p[0] == XI_MOVmi) { - p += LJ_64 ? 11 : 10; - break; - } - lua_assert(p < pe); - for (; p < pe; p++) { - if ((*(uint16_t *)p & 0xf0ff) == 0x800f && p + *(int32_t *)(p+2) == px) { - *(int32_t *)(p+2) = jmprel(p+6, target); - p += 5; - } - } - lj_mcode_sync(T->mcode, T->mcode + T->szmcode); - lj_mcode_patch(J, mcarea, 1); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_bc.c b/src/3rd party/luajit-2.0-BAK/src/lj_bc.c deleted file mode 100644 index a8f444c26e1..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_bc.c +++ /dev/null @@ -1,14 +0,0 @@ -/* -** Bytecode instruction modes. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_bc_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_bc.h" - -/* Bytecode offsets and bytecode instruction modes. */ -#include "lj_bcdef.h" - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_bc.h b/src/3rd party/luajit-2.0-BAK/src/lj_bc.h deleted file mode 100644 index 64c1bcda35a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_bc.h +++ /dev/null @@ -1,265 +0,0 @@ -/* -** Bytecode instruction format. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_BC_H -#define _LJ_BC_H - -#include "lj_def.h" -#include "lj_arch.h" - -/* Bytecode instruction format, 32 bit wide, fields of 8 or 16 bit: -** -** +----+----+----+----+ -** | B | C | A | OP | Format ABC -** +----+----+----+----+ -** | D | A | OP | Format AD -** +-------------------- -** MSB LSB -** -** In-memory instructions are always stored in host byte order. -*/ - -/* Operand ranges and related constants. */ -#define BCMAX_A 0xff -#define BCMAX_B 0xff -#define BCMAX_C 0xff -#define BCMAX_D 0xffff -#define BCBIAS_J 0x8000 -#define NO_REG BCMAX_A -#define NO_JMP (~(BCPos)0) - -/* Macros to get instruction fields. */ -#define bc_op(i) ((BCOp)((i)&0xff)) -#define bc_a(i) ((BCReg)(((i)>>8)&0xff)) -#define bc_b(i) ((BCReg)((i)>>24)) -#define bc_c(i) ((BCReg)(((i)>>16)&0xff)) -#define bc_d(i) ((BCReg)((i)>>16)) -#define bc_j(i) ((ptrdiff_t)bc_d(i)-BCBIAS_J) - -/* Macros to set instruction fields. */ -#define setbc_byte(p, x, ofs) \ - ((uint8_t *)(p))[LJ_ENDIAN_SELECT(ofs, 3-ofs)] = (uint8_t)(x) -#define setbc_op(p, x) setbc_byte(p, (x), 0) -#define setbc_a(p, x) setbc_byte(p, (x), 1) -#define setbc_b(p, x) setbc_byte(p, (x), 3) -#define setbc_c(p, x) setbc_byte(p, (x), 2) -#define setbc_d(p, x) \ - ((uint16_t *)(p))[LJ_ENDIAN_SELECT(1, 0)] = (uint16_t)(x) -#define setbc_j(p, x) setbc_d(p, (BCPos)((int32_t)(x)+BCBIAS_J)) - -/* Macros to compose instructions. */ -#define BCINS_ABC(o, a, b, c) \ - (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(b)<<24)|((BCIns)(c)<<16)) -#define BCINS_AD(o, a, d) \ - (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(d)<<16)) -#define BCINS_AJ(o, a, j) BCINS_AD(o, a, (BCPos)((int32_t)(j)+BCBIAS_J)) - -/* Bytecode instruction definition. Order matters, see below. -** -** (name, filler, Amode, Bmode, Cmode or Dmode, metamethod) -** -** The opcode name suffixes specify the type for RB/RC or RD: -** V = variable slot -** S = string const -** N = number const -** P = primitive type (~itype) -** B = unsigned byte literal -** M = multiple args/results -*/ -#define BCDEF(_) \ - /* Comparison ops. ORDER OPR. */ \ - _(ISLT, var, ___, var, lt) \ - _(ISGE, var, ___, var, lt) \ - _(ISLE, var, ___, var, le) \ - _(ISGT, var, ___, var, le) \ - \ - _(ISEQV, var, ___, var, eq) \ - _(ISNEV, var, ___, var, eq) \ - _(ISEQS, var, ___, str, eq) \ - _(ISNES, var, ___, str, eq) \ - _(ISEQN, var, ___, num, eq) \ - _(ISNEN, var, ___, num, eq) \ - _(ISEQP, var, ___, pri, eq) \ - _(ISNEP, var, ___, pri, eq) \ - \ - /* Unary test and copy ops. */ \ - _(ISTC, dst, ___, var, ___) \ - _(ISFC, dst, ___, var, ___) \ - _(IST, ___, ___, var, ___) \ - _(ISF, ___, ___, var, ___) \ - _(ISTYPE, var, ___, lit, ___) \ - _(ISNUM, var, ___, lit, ___) \ - \ - /* Unary ops. */ \ - _(MOV, dst, ___, var, ___) \ - _(NOT, dst, ___, var, ___) \ - _(UNM, dst, ___, var, unm) \ - _(LEN, dst, ___, var, len) \ - \ - /* Binary ops. ORDER OPR. VV last, POW must be next. */ \ - _(ADDVN, dst, var, num, add) \ - _(SUBVN, dst, var, num, sub) \ - _(MULVN, dst, var, num, mul) \ - _(DIVVN, dst, var, num, div) \ - _(MODVN, dst, var, num, mod) \ - \ - _(ADDNV, dst, var, num, add) \ - _(SUBNV, dst, var, num, sub) \ - _(MULNV, dst, var, num, mul) \ - _(DIVNV, dst, var, num, div) \ - _(MODNV, dst, var, num, mod) \ - \ - _(ADDVV, dst, var, var, add) \ - _(SUBVV, dst, var, var, sub) \ - _(MULVV, dst, var, var, mul) \ - _(DIVVV, dst, var, var, div) \ - _(MODVV, dst, var, var, mod) \ - \ - _(POW, dst, var, var, pow) \ - _(CAT, dst, rbase, rbase, concat) \ - \ - /* Constant ops. */ \ - _(KSTR, dst, ___, str, ___) \ - _(KCDATA, dst, ___, cdata, ___) \ - _(KSHORT, dst, ___, lits, ___) \ - _(KNUM, dst, ___, num, ___) \ - _(KPRI, dst, ___, pri, ___) \ - _(KNIL, base, ___, base, ___) \ - \ - /* Upvalue and function ops. */ \ - _(UGET, dst, ___, uv, ___) \ - _(USETV, uv, ___, var, ___) \ - _(USETS, uv, ___, str, ___) \ - _(USETN, uv, ___, num, ___) \ - _(USETP, uv, ___, pri, ___) \ - _(UCLO, rbase, ___, jump, ___) \ - _(FNEW, dst, ___, func, gc) \ - \ - /* Table ops. */ \ - _(TNEW, dst, ___, lit, gc) \ - _(TDUP, dst, ___, tab, gc) \ - _(GGET, dst, ___, str, index) \ - _(GSET, var, ___, str, newindex) \ - _(TGETV, dst, var, var, index) \ - _(TGETS, dst, var, str, index) \ - _(TGETB, dst, var, lit, index) \ - _(TGETR, dst, var, var, index) \ - _(TSETV, var, var, var, newindex) \ - _(TSETS, var, var, str, newindex) \ - _(TSETB, var, var, lit, newindex) \ - _(TSETM, base, ___, num, newindex) \ - _(TSETR, var, var, var, newindex) \ - \ - /* Calls and vararg handling. T = tail call. */ \ - _(CALLM, base, lit, lit, call) \ - _(CALL, base, lit, lit, call) \ - _(CALLMT, base, ___, lit, call) \ - _(CALLT, base, ___, lit, call) \ - _(ITERC, base, lit, lit, call) \ - _(ITERN, base, lit, lit, call) \ - _(VARG, base, lit, lit, ___) \ - _(ISNEXT, base, ___, jump, ___) \ - \ - /* Returns. */ \ - _(RETM, base, ___, lit, ___) \ - _(RET, rbase, ___, lit, ___) \ - _(RET0, rbase, ___, lit, ___) \ - _(RET1, rbase, ___, lit, ___) \ - \ - /* Loops and branches. I/J = interp/JIT, I/C/L = init/call/loop. */ \ - _(FORI, base, ___, jump, ___) \ - _(JFORI, base, ___, jump, ___) \ - \ - _(FORL, base, ___, jump, ___) \ - _(IFORL, base, ___, jump, ___) \ - _(JFORL, base, ___, lit, ___) \ - \ - _(ITERL, base, ___, jump, ___) \ - _(IITERL, base, ___, jump, ___) \ - _(JITERL, base, ___, lit, ___) \ - \ - _(LOOP, rbase, ___, jump, ___) \ - _(ILOOP, rbase, ___, jump, ___) \ - _(JLOOP, rbase, ___, lit, ___) \ - \ - _(JMP, rbase, ___, jump, ___) \ - \ - /* Function headers. I/J = interp/JIT, F/V/C = fixarg/vararg/C func. */ \ - _(FUNCF, rbase, ___, ___, ___) \ - _(IFUNCF, rbase, ___, ___, ___) \ - _(JFUNCF, rbase, ___, lit, ___) \ - _(FUNCV, rbase, ___, ___, ___) \ - _(IFUNCV, rbase, ___, ___, ___) \ - _(JFUNCV, rbase, ___, lit, ___) \ - _(FUNCC, rbase, ___, ___, ___) \ - _(FUNCCW, rbase, ___, ___, ___) - -/* Bytecode opcode numbers. */ -typedef enum { -#define BCENUM(name, ma, mb, mc, mt) BC_##name, -BCDEF(BCENUM) -#undef BCENUM - BC__MAX -} BCOp; - -LJ_STATIC_ASSERT((int)BC_ISEQV+1 == (int)BC_ISNEV); -LJ_STATIC_ASSERT(((int)BC_ISEQV^1) == (int)BC_ISNEV); -LJ_STATIC_ASSERT(((int)BC_ISEQS^1) == (int)BC_ISNES); -LJ_STATIC_ASSERT(((int)BC_ISEQN^1) == (int)BC_ISNEN); -LJ_STATIC_ASSERT(((int)BC_ISEQP^1) == (int)BC_ISNEP); -LJ_STATIC_ASSERT(((int)BC_ISLT^1) == (int)BC_ISGE); -LJ_STATIC_ASSERT(((int)BC_ISLE^1) == (int)BC_ISGT); -LJ_STATIC_ASSERT(((int)BC_ISLT^3) == (int)BC_ISGT); -LJ_STATIC_ASSERT((int)BC_IST-(int)BC_ISTC == (int)BC_ISF-(int)BC_ISFC); -LJ_STATIC_ASSERT((int)BC_CALLT-(int)BC_CALL == (int)BC_CALLMT-(int)BC_CALLM); -LJ_STATIC_ASSERT((int)BC_CALLMT + 1 == (int)BC_CALLT); -LJ_STATIC_ASSERT((int)BC_RETM + 1 == (int)BC_RET); -LJ_STATIC_ASSERT((int)BC_FORL + 1 == (int)BC_IFORL); -LJ_STATIC_ASSERT((int)BC_FORL + 2 == (int)BC_JFORL); -LJ_STATIC_ASSERT((int)BC_ITERL + 1 == (int)BC_IITERL); -LJ_STATIC_ASSERT((int)BC_ITERL + 2 == (int)BC_JITERL); -LJ_STATIC_ASSERT((int)BC_LOOP + 1 == (int)BC_ILOOP); -LJ_STATIC_ASSERT((int)BC_LOOP + 2 == (int)BC_JLOOP); -LJ_STATIC_ASSERT((int)BC_FUNCF + 1 == (int)BC_IFUNCF); -LJ_STATIC_ASSERT((int)BC_FUNCF + 2 == (int)BC_JFUNCF); -LJ_STATIC_ASSERT((int)BC_FUNCV + 1 == (int)BC_IFUNCV); -LJ_STATIC_ASSERT((int)BC_FUNCV + 2 == (int)BC_JFUNCV); - -/* This solves a circular dependency problem, change as needed. */ -#define FF_next_N 4 - -/* Stack slots used by FORI/FORL, relative to operand A. */ -enum { - FORL_IDX, FORL_STOP, FORL_STEP, FORL_EXT -}; - -/* Bytecode operand modes. ORDER BCMode */ -typedef enum { - BCMnone, BCMdst, BCMbase, BCMvar, BCMrbase, BCMuv, /* Mode A must be <= 7 */ - BCMlit, BCMlits, BCMpri, BCMnum, BCMstr, BCMtab, BCMfunc, BCMjump, BCMcdata, - BCM_max -} BCMode; -#define BCM___ BCMnone - -#define bcmode_a(op) ((BCMode)(lj_bc_mode[op] & 7)) -#define bcmode_b(op) ((BCMode)((lj_bc_mode[op]>>3) & 15)) -#define bcmode_c(op) ((BCMode)((lj_bc_mode[op]>>7) & 15)) -#define bcmode_d(op) bcmode_c(op) -#define bcmode_hasd(op) ((lj_bc_mode[op] & (15<<3)) == (BCMnone<<3)) -#define bcmode_mm(op) ((MMS)(lj_bc_mode[op]>>11)) - -#define BCMODE(name, ma, mb, mc, mm) \ - (BCM##ma|(BCM##mb<<3)|(BCM##mc<<7)|(MM_##mm<<11)), -#define BCMODE_FF 0 - -static LJ_AINLINE int bc_isret(BCOp op) -{ - return (op == BC_RETM || op == BC_RET || op == BC_RET0 || op == BC_RET1); -} - -LJ_DATA const uint16_t lj_bc_mode[]; -LJ_DATA const uint16_t lj_bc_ofs[]; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h b/src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h deleted file mode 100644 index c38983146bb..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_bcdump.h +++ /dev/null @@ -1,68 +0,0 @@ -/* -** Bytecode dump definitions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_BCDUMP_H -#define _LJ_BCDUMP_H - -#include "lj_obj.h" -#include "lj_lex.h" - -/* -- Bytecode dump format ------------------------------------------------ */ - -/* -** dump = header proto+ 0U -** header = ESC 'L' 'J' versionB flagsU [namelenU nameB*] -** proto = lengthU pdata -** pdata = phead bcinsW* uvdataH* kgc* knum* [debugB*] -** phead = flagsB numparamsB framesizeB numuvB numkgcU numknU numbcU -** [debuglenU [firstlineU numlineU]] -** kgc = kgctypeU { ktab | (loU hiU) | (rloU rhiU iloU ihiU) | strB* } -** knum = intU0 | (loU1 hiU) -** ktab = narrayU nhashU karray* khash* -** karray = ktabk -** khash = ktabk ktabk -** ktabk = ktabtypeU { intU | (loU hiU) | strB* } -** -** B = 8 bit, H = 16 bit, W = 32 bit, U = ULEB128 of W, U0/U1 = ULEB128 of W+1 -*/ - -/* Bytecode dump header. */ -#define BCDUMP_HEAD1 0x1b -#define BCDUMP_HEAD2 0x4c -#define BCDUMP_HEAD3 0x4a - -/* If you perform *any* kind of private modifications to the bytecode itself -** or to the dump format, you *must* set BCDUMP_VERSION to 0x80 or higher. -*/ -#define BCDUMP_VERSION 2 - -/* Compatibility flags. */ -#define BCDUMP_F_BE 0x01 -#define BCDUMP_F_STRIP 0x02 -#define BCDUMP_F_FFI 0x04 -#define BCDUMP_F_FR2 0x08 - -#define BCDUMP_F_KNOWN (BCDUMP_F_FR2*2-1) - -/* Type codes for the GC constants of a prototype. Plus length for strings. */ -enum { - BCDUMP_KGC_CHILD, BCDUMP_KGC_TAB, BCDUMP_KGC_I64, BCDUMP_KGC_U64, - BCDUMP_KGC_COMPLEX, BCDUMP_KGC_STR -}; - -/* Type codes for the keys/values of a constant table. */ -enum { - BCDUMP_KTAB_NIL, BCDUMP_KTAB_FALSE, BCDUMP_KTAB_TRUE, - BCDUMP_KTAB_INT, BCDUMP_KTAB_NUM, BCDUMP_KTAB_STR -}; - -/* -- Bytecode reader/writer ---------------------------------------------- */ - -LJ_FUNC int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, - void *data, int strip); -LJ_FUNC GCproto *lj_bcread_proto(LexState *ls); -LJ_FUNC GCproto *lj_bcread(LexState *ls); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_bcread.c b/src/3rd party/luajit-2.0-BAK/src/lj_bcread.c deleted file mode 100644 index 5e5021773d7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_bcread.c +++ /dev/null @@ -1,457 +0,0 @@ -/* -** Bytecode reader. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_bcread_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_bc.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lualib.h" -#endif -#include "lj_lex.h" -#include "lj_bcdump.h" -#include "lj_state.h" -#include "lj_strfmt.h" - -/* Reuse some lexer fields for our own purposes. */ -#define bcread_flags(ls) ls->level -#define bcread_swap(ls) \ - ((bcread_flags(ls) & BCDUMP_F_BE) != LJ_BE*BCDUMP_F_BE) -#define bcread_oldtop(L, ls) restorestack(L, ls->lastline) -#define bcread_savetop(L, ls, top) \ - ls->lastline = (BCLine)savestack(L, (top)) - -/* -- Input buffer handling ----------------------------------------------- */ - -/* Throw reader error. */ -static LJ_NOINLINE void bcread_error(LexState *ls, ErrMsg em) -{ - lua_State *L = ls->L; - const char *name = ls->chunkarg; - if (*name == BCDUMP_HEAD1) name = "(binary)"; - else if (*name == '@' || *name == '=') name++; - lj_strfmt_pushf(L, "%s: %s", name, err2msg(em)); - lj_err_throw(L, LUA_ERRSYNTAX); -} - -/* Refill buffer. */ -static LJ_NOINLINE void bcread_fill(LexState *ls, MSize len, int need) -{ - lua_assert(len != 0); - if (len > LJ_MAX_BUF || ls->c < 0) - bcread_error(ls, LJ_ERR_BCBAD); - do { - const char *buf; - size_t sz; - char *p = sbufB(&ls->sb); - MSize n = (MSize)(ls->pe - ls->p); - if (n) { /* Copy remainder to buffer. */ - if (sbuflen(&ls->sb)) { /* Move down in buffer. */ - lua_assert(ls->pe == sbufP(&ls->sb)); - if (ls->p != p) memmove(p, ls->p, n); - } else { /* Copy from buffer provided by reader. */ - p = lj_buf_need(&ls->sb, len); - memcpy(p, ls->p, n); - } - ls->p = p; - ls->pe = p + n; - } - setsbufP(&ls->sb, p + n); - buf = ls->rfunc(ls->L, ls->rdata, &sz); /* Get more data from reader. */ - if (buf == NULL || sz == 0) { /* EOF? */ - if (need) bcread_error(ls, LJ_ERR_BCBAD); - ls->c = -1; /* Only bad if we get called again. */ - break; - } - if (n) { /* Append to buffer. */ - n += (MSize)sz; - p = lj_buf_need(&ls->sb, n < len ? len : n); - memcpy(sbufP(&ls->sb), buf, sz); - setsbufP(&ls->sb, p + n); - ls->p = p; - ls->pe = p + n; - } else { /* Return buffer provided by reader. */ - ls->p = buf; - ls->pe = buf + sz; - } - } while (ls->p + len > ls->pe); -} - -/* Need a certain number of bytes. */ -static LJ_AINLINE void bcread_need(LexState *ls, MSize len) -{ - if (LJ_UNLIKELY(ls->p + len > ls->pe)) - bcread_fill(ls, len, 1); -} - -/* Want to read up to a certain number of bytes, but may need less. */ -static LJ_AINLINE void bcread_want(LexState *ls, MSize len) -{ - if (LJ_UNLIKELY(ls->p + len > ls->pe)) - bcread_fill(ls, len, 0); -} - -/* Return memory block from buffer. */ -static LJ_AINLINE uint8_t *bcread_mem(LexState *ls, MSize len) -{ - uint8_t *p = (uint8_t *)ls->p; - ls->p += len; - lua_assert(ls->p <= ls->pe); - return p; -} - -/* Copy memory block from buffer. */ -static void bcread_block(LexState *ls, void *q, MSize len) -{ - memcpy(q, bcread_mem(ls, len), len); -} - -/* Read byte from buffer. */ -static LJ_AINLINE uint32_t bcread_byte(LexState *ls) -{ - lua_assert(ls->p < ls->pe); - return (uint32_t)(uint8_t)*ls->p++; -} - -/* Read ULEB128 value from buffer. */ -static LJ_AINLINE uint32_t bcread_uleb128(LexState *ls) -{ - uint32_t v = lj_buf_ruleb128(&ls->p); - lua_assert(ls->p <= ls->pe); - return v; -} - -/* Read top 32 bits of 33 bit ULEB128 value from buffer. */ -static uint32_t bcread_uleb128_33(LexState *ls) -{ - const uint8_t *p = (const uint8_t *)ls->p; - uint32_t v = (*p++ >> 1); - if (LJ_UNLIKELY(v >= 0x40)) { - int sh = -1; - v &= 0x3f; - do { - v |= ((*p & 0x7f) << (sh += 7)); - } while (*p++ >= 0x80); - } - ls->p = (char *)p; - lua_assert(ls->p <= ls->pe); - return v; -} - -/* -- Bytecode reader ----------------------------------------------------- */ - -/* Read debug info of a prototype. */ -static void bcread_dbg(LexState *ls, GCproto *pt, MSize sizedbg) -{ - void *lineinfo = (void *)proto_lineinfo(pt); - bcread_block(ls, lineinfo, sizedbg); - /* Swap lineinfo if the endianess differs. */ - if (bcread_swap(ls) && pt->numline >= 256) { - MSize i, n = pt->sizebc-1; - if (pt->numline < 65536) { - uint16_t *p = (uint16_t *)lineinfo; - for (i = 0; i < n; i++) p[i] = (uint16_t)((p[i] >> 8)|(p[i] << 8)); - } else { - uint32_t *p = (uint32_t *)lineinfo; - for (i = 0; i < n; i++) p[i] = lj_bswap(p[i]); - } - } -} - -/* Find pointer to varinfo. */ -static const void *bcread_varinfo(GCproto *pt) -{ - const uint8_t *p = proto_uvinfo(pt); - MSize n = pt->sizeuv; - if (n) while (*p++ || --n) ; - return p; -} - -/* Read a single constant key/value of a template table. */ -static void bcread_ktabk(LexState *ls, TValue *o) -{ - MSize tp = bcread_uleb128(ls); - if (tp >= BCDUMP_KTAB_STR) { - MSize len = tp - BCDUMP_KTAB_STR; - const char *p = (const char *)bcread_mem(ls, len); - setstrV(ls->L, o, lj_str_new(ls->L, p, len)); - } else if (tp == BCDUMP_KTAB_INT) { - setintV(o, (int32_t)bcread_uleb128(ls)); - } else if (tp == BCDUMP_KTAB_NUM) { - o->u32.lo = bcread_uleb128(ls); - o->u32.hi = bcread_uleb128(ls); - } else { - lua_assert(tp <= BCDUMP_KTAB_TRUE); - setpriV(o, ~tp); - } -} - -/* Read a template table. */ -static GCtab *bcread_ktab(LexState *ls) -{ - MSize narray = bcread_uleb128(ls); - MSize nhash = bcread_uleb128(ls); - GCtab *t = lj_tab_new(ls->L, narray, hsize2hbits(nhash)); - if (narray) { /* Read array entries. */ - MSize i; - TValue *o = tvref(t->array); - for (i = 0; i < narray; i++, o++) - bcread_ktabk(ls, o); - } - if (nhash) { /* Read hash entries. */ - MSize i; - for (i = 0; i < nhash; i++) { - TValue key; - bcread_ktabk(ls, &key); - lua_assert(!tvisnil(&key)); - bcread_ktabk(ls, lj_tab_set(ls->L, t, &key)); - } - } - return t; -} - -/* Read GC constants of a prototype. */ -static void bcread_kgc(LexState *ls, GCproto *pt, MSize sizekgc) -{ - MSize i; - GCRef *kr = mref(pt->k, GCRef) - (ptrdiff_t)sizekgc; - for (i = 0; i < sizekgc; i++, kr++) { - MSize tp = bcread_uleb128(ls); - if (tp >= BCDUMP_KGC_STR) { - MSize len = tp - BCDUMP_KGC_STR; - const char *p = (const char *)bcread_mem(ls, len); - setgcref(*kr, obj2gco(lj_str_new(ls->L, p, len))); - } else if (tp == BCDUMP_KGC_TAB) { - setgcref(*kr, obj2gco(bcread_ktab(ls))); -#if LJ_HASFFI - } else if (tp != BCDUMP_KGC_CHILD) { - CTypeID id = tp == BCDUMP_KGC_COMPLEX ? CTID_COMPLEX_DOUBLE : - tp == BCDUMP_KGC_I64 ? CTID_INT64 : CTID_UINT64; - CTSize sz = tp == BCDUMP_KGC_COMPLEX ? 16 : 8; - GCcdata *cd = lj_cdata_new_(ls->L, id, sz); - TValue *p = (TValue *)cdataptr(cd); - setgcref(*kr, obj2gco(cd)); - p[0].u32.lo = bcread_uleb128(ls); - p[0].u32.hi = bcread_uleb128(ls); - if (tp == BCDUMP_KGC_COMPLEX) { - p[1].u32.lo = bcread_uleb128(ls); - p[1].u32.hi = bcread_uleb128(ls); - } -#endif - } else { - lua_State *L = ls->L; - lua_assert(tp == BCDUMP_KGC_CHILD); - if (L->top <= bcread_oldtop(L, ls)) /* Stack underflow? */ - bcread_error(ls, LJ_ERR_BCBAD); - L->top--; - setgcref(*kr, obj2gco(protoV(L->top))); - } - } -} - -/* Read number constants of a prototype. */ -static void bcread_knum(LexState *ls, GCproto *pt, MSize sizekn) -{ - MSize i; - TValue *o = mref(pt->k, TValue); - for (i = 0; i < sizekn; i++, o++) { - int isnum = (ls->p[0] & 1); - uint32_t lo = bcread_uleb128_33(ls); - if (isnum) { - o->u32.lo = lo; - o->u32.hi = bcread_uleb128(ls); - } else { - setintV(o, lo); - } - } -} - -/* Read bytecode instructions. */ -static void bcread_bytecode(LexState *ls, GCproto *pt, MSize sizebc) -{ - BCIns *bc = proto_bc(pt); - bc[0] = BCINS_AD((pt->flags & PROTO_VARARG) ? BC_FUNCV : BC_FUNCF, - pt->framesize, 0); - bcread_block(ls, bc+1, (sizebc-1)*(MSize)sizeof(BCIns)); - /* Swap bytecode instructions if the endianess differs. */ - if (bcread_swap(ls)) { - MSize i; - for (i = 1; i < sizebc; i++) bc[i] = lj_bswap(bc[i]); - } -} - -/* Read upvalue refs. */ -static void bcread_uv(LexState *ls, GCproto *pt, MSize sizeuv) -{ - if (sizeuv) { - uint16_t *uv = proto_uv(pt); - bcread_block(ls, uv, sizeuv*2); - /* Swap upvalue refs if the endianess differs. */ - if (bcread_swap(ls)) { - MSize i; - for (i = 0; i < sizeuv; i++) - uv[i] = (uint16_t)((uv[i] >> 8)|(uv[i] << 8)); - } - } -} - -/* Read a prototype. */ -GCproto *lj_bcread_proto(LexState *ls) -{ - GCproto *pt; - MSize framesize, numparams, flags, sizeuv, sizekgc, sizekn, sizebc, sizept; - MSize ofsk, ofsuv, ofsdbg; - MSize sizedbg = 0; - BCLine firstline = 0, numline = 0; - - /* Read prototype header. */ - flags = bcread_byte(ls); - numparams = bcread_byte(ls); - framesize = bcread_byte(ls); - sizeuv = bcread_byte(ls); - sizekgc = bcread_uleb128(ls); - sizekn = bcread_uleb128(ls); - sizebc = bcread_uleb128(ls) + 1; - if (!(bcread_flags(ls) & BCDUMP_F_STRIP)) { - sizedbg = bcread_uleb128(ls); - if (sizedbg) { - firstline = bcread_uleb128(ls); - numline = bcread_uleb128(ls); - } - } - - /* Calculate total size of prototype including all colocated arrays. */ - sizept = (MSize)sizeof(GCproto) + - sizebc*(MSize)sizeof(BCIns) + - sizekgc*(MSize)sizeof(GCRef); - sizept = (sizept + (MSize)sizeof(TValue)-1) & ~((MSize)sizeof(TValue)-1); - ofsk = sizept; sizept += sizekn*(MSize)sizeof(TValue); - ofsuv = sizept; sizept += ((sizeuv+1)&~1)*2; - ofsdbg = sizept; sizept += sizedbg; - - /* Allocate prototype object and initialize its fields. */ - pt = (GCproto *)lj_mem_newgco(ls->L, (MSize)sizept); - pt->gct = ~LJ_TPROTO; - pt->numparams = (uint8_t)numparams; - pt->framesize = (uint8_t)framesize; - pt->sizebc = sizebc; - setmref(pt->k, (char *)pt + ofsk); - setmref(pt->uv, (char *)pt + ofsuv); - pt->sizekgc = 0; /* Set to zero until fully initialized. */ - pt->sizekn = sizekn; - pt->sizept = sizept; - pt->sizeuv = (uint8_t)sizeuv; - pt->flags = (uint8_t)flags; - pt->trace = 0; - setgcref(pt->chunkname, obj2gco(ls->chunkname)); - - /* Close potentially uninitialized gap between bc and kgc. */ - *(uint32_t *)((char *)pt + ofsk - sizeof(GCRef)*(sizekgc+1)) = 0; - - /* Read bytecode instructions and upvalue refs. */ - bcread_bytecode(ls, pt, sizebc); - bcread_uv(ls, pt, sizeuv); - - /* Read constants. */ - bcread_kgc(ls, pt, sizekgc); - pt->sizekgc = sizekgc; - bcread_knum(ls, pt, sizekn); - - /* Read and initialize debug info. */ - pt->firstline = firstline; - pt->numline = numline; - if (sizedbg) { - MSize sizeli = (sizebc-1) << (numline < 256 ? 0 : numline < 65536 ? 1 : 2); - setmref(pt->lineinfo, (char *)pt + ofsdbg); - setmref(pt->uvinfo, (char *)pt + ofsdbg + sizeli); - bcread_dbg(ls, pt, sizedbg); - setmref(pt->varinfo, bcread_varinfo(pt)); - } else { - setmref(pt->lineinfo, NULL); - setmref(pt->uvinfo, NULL); - setmref(pt->varinfo, NULL); - } - return pt; -} - -/* Read and check header of bytecode dump. */ -static int bcread_header(LexState *ls) -{ - uint32_t flags; - bcread_want(ls, 3+5+5); - if (bcread_byte(ls) != BCDUMP_HEAD2 || - bcread_byte(ls) != BCDUMP_HEAD3 || - bcread_byte(ls) != BCDUMP_VERSION) return 0; - bcread_flags(ls) = flags = bcread_uleb128(ls); - if ((flags & ~(BCDUMP_F_KNOWN)) != 0) return 0; - if ((flags & BCDUMP_F_FR2) != LJ_FR2*BCDUMP_F_FR2) return 0; - if ((flags & BCDUMP_F_FFI)) { -#if LJ_HASFFI - lua_State *L = ls->L; - if (!ctype_ctsG(G(L))) { - ptrdiff_t oldtop = savestack(L, L->top); - luaopen_ffi(L); /* Load FFI library on-demand. */ - L->top = restorestack(L, oldtop); - } -#else - return 0; -#endif - } - if ((flags & BCDUMP_F_STRIP)) { - ls->chunkname = lj_str_newz(ls->L, ls->chunkarg); - } else { - MSize len = bcread_uleb128(ls); - bcread_need(ls, len); - ls->chunkname = lj_str_new(ls->L, (const char *)bcread_mem(ls, len), len); - } - return 1; /* Ok. */ -} - -/* Read a bytecode dump. */ -GCproto *lj_bcread(LexState *ls) -{ - lua_State *L = ls->L; - lua_assert(ls->c == BCDUMP_HEAD1); - bcread_savetop(L, ls, L->top); - lj_buf_reset(&ls->sb); - /* Check for a valid bytecode dump header. */ - if (!bcread_header(ls)) - bcread_error(ls, LJ_ERR_BCFMT); - for (;;) { /* Process all prototypes in the bytecode dump. */ - GCproto *pt; - MSize len; - const char *startp; - /* Read length. */ - if (ls->p < ls->pe && ls->p[0] == 0) { /* Shortcut EOF. */ - ls->p++; - break; - } - bcread_want(ls, 5); - len = bcread_uleb128(ls); - if (!len) break; /* EOF */ - bcread_need(ls, len); - startp = ls->p; - pt = lj_bcread_proto(ls); - if (ls->p != startp + len) - bcread_error(ls, LJ_ERR_BCBAD); - setprotoV(L, L->top, pt); - incr_top(L); - } - if ((int32_t)(2*(uint32_t)(ls->pe - ls->p)) > 0 || - L->top-1 != bcread_oldtop(L, ls)) - bcread_error(ls, LJ_ERR_BCBAD); - /* Pop off last prototype. */ - L->top--; - return protoV(L->top); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c b/src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c deleted file mode 100644 index b2c09738387..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_bcwrite.c +++ /dev/null @@ -1,361 +0,0 @@ -/* -** Bytecode writer. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_bcwrite_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_buf.h" -#include "lj_bc.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#if LJ_HASJIT -#include "lj_dispatch.h" -#include "lj_jit.h" -#endif -#include "lj_strfmt.h" -#include "lj_bcdump.h" -#include "lj_vm.h" - -/* Context for bytecode writer. */ -typedef struct BCWriteCtx { - SBuf sb; /* Output buffer. */ - GCproto *pt; /* Root prototype. */ - lua_Writer wfunc; /* Writer callback. */ - void *wdata; /* Writer callback data. */ - int strip; /* Strip debug info. */ - int status; /* Status from writer callback. */ -} BCWriteCtx; - -/* -- Bytecode writer ----------------------------------------------------- */ - -/* Write a single constant key/value of a template table. */ -static void bcwrite_ktabk(BCWriteCtx *ctx, cTValue *o, int narrow) -{ - char *p = lj_buf_more(&ctx->sb, 1+10); - if (tvisstr(o)) { - const GCstr *str = strV(o); - MSize len = str->len; - p = lj_buf_more(&ctx->sb, 5+len); - p = lj_strfmt_wuleb128(p, BCDUMP_KTAB_STR+len); - p = lj_buf_wmem(p, strdata(str), len); - } else if (tvisint(o)) { - *p++ = BCDUMP_KTAB_INT; - p = lj_strfmt_wuleb128(p, intV(o)); - } else if (tvisnum(o)) { - if (!LJ_DUALNUM && narrow) { /* Narrow number constants to integers. */ - lua_Number num = numV(o); - int32_t k = lj_num2int(num); - if (num == (lua_Number)k) { /* -0 is never a constant. */ - *p++ = BCDUMP_KTAB_INT; - p = lj_strfmt_wuleb128(p, k); - setsbufP(&ctx->sb, p); - return; - } - } - *p++ = BCDUMP_KTAB_NUM; - p = lj_strfmt_wuleb128(p, o->u32.lo); - p = lj_strfmt_wuleb128(p, o->u32.hi); - } else { - lua_assert(tvispri(o)); - *p++ = BCDUMP_KTAB_NIL+~itype(o); - } - setsbufP(&ctx->sb, p); -} - -/* Write a template table. */ -static void bcwrite_ktab(BCWriteCtx *ctx, char *p, const GCtab *t) -{ - MSize narray = 0, nhash = 0; - if (t->asize > 0) { /* Determine max. length of array part. */ - ptrdiff_t i; - TValue *array = tvref(t->array); - for (i = (ptrdiff_t)t->asize-1; i >= 0; i--) - if (!tvisnil(&array[i])) - break; - narray = (MSize)(i+1); - } - if (t->hmask > 0) { /* Count number of used hash slots. */ - MSize i, hmask = t->hmask; - Node *node = noderef(t->node); - for (i = 0; i <= hmask; i++) - nhash += !tvisnil(&node[i].val); - } - /* Write number of array slots and hash slots. */ - p = lj_strfmt_wuleb128(p, narray); - p = lj_strfmt_wuleb128(p, nhash); - setsbufP(&ctx->sb, p); - if (narray) { /* Write array entries (may contain nil). */ - MSize i; - TValue *o = tvref(t->array); - for (i = 0; i < narray; i++, o++) - bcwrite_ktabk(ctx, o, 1); - } - if (nhash) { /* Write hash entries. */ - MSize i = nhash; - Node *node = noderef(t->node) + t->hmask; - for (;; node--) - if (!tvisnil(&node->val)) { - bcwrite_ktabk(ctx, &node->key, 0); - bcwrite_ktabk(ctx, &node->val, 1); - if (--i == 0) break; - } - } -} - -/* Write GC constants of a prototype. */ -static void bcwrite_kgc(BCWriteCtx *ctx, GCproto *pt) -{ - MSize i, sizekgc = pt->sizekgc; - GCRef *kr = mref(pt->k, GCRef) - (ptrdiff_t)sizekgc; - for (i = 0; i < sizekgc; i++, kr++) { - GCobj *o = gcref(*kr); - MSize tp, need = 1; - char *p; - /* Determine constant type and needed size. */ - if (o->gch.gct == ~LJ_TSTR) { - tp = BCDUMP_KGC_STR + gco2str(o)->len; - need = 5+gco2str(o)->len; - } else if (o->gch.gct == ~LJ_TPROTO) { - lua_assert((pt->flags & PROTO_CHILD)); - tp = BCDUMP_KGC_CHILD; -#if LJ_HASFFI - } else if (o->gch.gct == ~LJ_TCDATA) { - CTypeID id = gco2cd(o)->ctypeid; - need = 1+4*5; - if (id == CTID_INT64) { - tp = BCDUMP_KGC_I64; - } else if (id == CTID_UINT64) { - tp = BCDUMP_KGC_U64; - } else { - lua_assert(id == CTID_COMPLEX_DOUBLE); - tp = BCDUMP_KGC_COMPLEX; - } -#endif - } else { - lua_assert(o->gch.gct == ~LJ_TTAB); - tp = BCDUMP_KGC_TAB; - need = 1+2*5; - } - /* Write constant type. */ - p = lj_buf_more(&ctx->sb, need); - p = lj_strfmt_wuleb128(p, tp); - /* Write constant data (if any). */ - if (tp >= BCDUMP_KGC_STR) { - p = lj_buf_wmem(p, strdata(gco2str(o)), gco2str(o)->len); - } else if (tp == BCDUMP_KGC_TAB) { - bcwrite_ktab(ctx, p, gco2tab(o)); - continue; -#if LJ_HASFFI - } else if (tp != BCDUMP_KGC_CHILD) { - cTValue *q = (TValue *)cdataptr(gco2cd(o)); - p = lj_strfmt_wuleb128(p, q[0].u32.lo); - p = lj_strfmt_wuleb128(p, q[0].u32.hi); - if (tp == BCDUMP_KGC_COMPLEX) { - p = lj_strfmt_wuleb128(p, q[1].u32.lo); - p = lj_strfmt_wuleb128(p, q[1].u32.hi); - } -#endif - } - setsbufP(&ctx->sb, p); - } -} - -/* Write number constants of a prototype. */ -static void bcwrite_knum(BCWriteCtx *ctx, GCproto *pt) -{ - MSize i, sizekn = pt->sizekn; - cTValue *o = mref(pt->k, TValue); - char *p = lj_buf_more(&ctx->sb, 10*sizekn); - for (i = 0; i < sizekn; i++, o++) { - int32_t k; - if (tvisint(o)) { - k = intV(o); - goto save_int; - } else { - /* Write a 33 bit ULEB128 for the int (lsb=0) or loword (lsb=1). */ - if (!LJ_DUALNUM) { /* Narrow number constants to integers. */ - lua_Number num = numV(o); - k = lj_num2int(num); - if (num == (lua_Number)k) { /* -0 is never a constant. */ - save_int: - p = lj_strfmt_wuleb128(p, 2*(uint32_t)k | ((uint32_t)k&0x80000000u)); - if (k < 0) - p[-1] = (p[-1] & 7) | ((k>>27) & 0x18); - continue; - } - } - p = lj_strfmt_wuleb128(p, 1+(2*o->u32.lo | (o->u32.lo & 0x80000000u))); - if (o->u32.lo >= 0x80000000u) - p[-1] = (p[-1] & 7) | ((o->u32.lo>>27) & 0x18); - p = lj_strfmt_wuleb128(p, o->u32.hi); - } - } - setsbufP(&ctx->sb, p); -} - -/* Write bytecode instructions. */ -static char *bcwrite_bytecode(BCWriteCtx *ctx, char *p, GCproto *pt) -{ - MSize nbc = pt->sizebc-1; /* Omit the [JI]FUNC* header. */ -#if LJ_HASJIT - uint8_t *q = (uint8_t *)p; -#endif - p = lj_buf_wmem(p, proto_bc(pt)+1, nbc*(MSize)sizeof(BCIns)); - UNUSED(ctx); -#if LJ_HASJIT - /* Unpatch modified bytecode containing ILOOP/JLOOP etc. */ - if ((pt->flags & PROTO_ILOOP) || pt->trace) { - jit_State *J = L2J(sbufL(&ctx->sb)); - MSize i; - for (i = 0; i < nbc; i++, q += sizeof(BCIns)) { - BCOp op = (BCOp)q[LJ_ENDIAN_SELECT(0, 3)]; - if (op == BC_IFORL || op == BC_IITERL || op == BC_ILOOP || - op == BC_JFORI) { - q[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_IFORL+BC_FORL); - } else if (op == BC_JFORL || op == BC_JITERL || op == BC_JLOOP) { - BCReg rd = q[LJ_ENDIAN_SELECT(2, 1)] + (q[LJ_ENDIAN_SELECT(3, 0)] << 8); - BCIns ins = traceref(J, rd)->startins; - q[LJ_ENDIAN_SELECT(0, 3)] = (uint8_t)(op-BC_JFORL+BC_FORL); - q[LJ_ENDIAN_SELECT(2, 1)] = bc_c(ins); - q[LJ_ENDIAN_SELECT(3, 0)] = bc_b(ins); - } - } - } -#endif - return p; -} - -/* Write prototype. */ -static void bcwrite_proto(BCWriteCtx *ctx, GCproto *pt) -{ - MSize sizedbg = 0; - char *p; - - /* Recursively write children of prototype. */ - if ((pt->flags & PROTO_CHILD)) { - ptrdiff_t i, n = pt->sizekgc; - GCRef *kr = mref(pt->k, GCRef) - 1; - for (i = 0; i < n; i++, kr--) { - GCobj *o = gcref(*kr); - if (o->gch.gct == ~LJ_TPROTO) - bcwrite_proto(ctx, gco2pt(o)); - } - } - - /* Start writing the prototype info to a buffer. */ - p = lj_buf_need(&ctx->sb, - 5+4+6*5+(pt->sizebc-1)*(MSize)sizeof(BCIns)+pt->sizeuv*2); - p += 5; /* Leave room for final size. */ - - /* Write prototype header. */ - *p++ = (pt->flags & (PROTO_CHILD|PROTO_VARARG|PROTO_FFI)); - *p++ = pt->numparams; - *p++ = pt->framesize; - *p++ = pt->sizeuv; - p = lj_strfmt_wuleb128(p, pt->sizekgc); - p = lj_strfmt_wuleb128(p, pt->sizekn); - p = lj_strfmt_wuleb128(p, pt->sizebc-1); - if (!ctx->strip) { - if (proto_lineinfo(pt)) - sizedbg = pt->sizept - (MSize)((char *)proto_lineinfo(pt) - (char *)pt); - p = lj_strfmt_wuleb128(p, sizedbg); - if (sizedbg) { - p = lj_strfmt_wuleb128(p, pt->firstline); - p = lj_strfmt_wuleb128(p, pt->numline); - } - } - - /* Write bytecode instructions and upvalue refs. */ - p = bcwrite_bytecode(ctx, p, pt); - p = lj_buf_wmem(p, proto_uv(pt), pt->sizeuv*2); - setsbufP(&ctx->sb, p); - - /* Write constants. */ - bcwrite_kgc(ctx, pt); - bcwrite_knum(ctx, pt); - - /* Write debug info, if not stripped. */ - if (sizedbg) { - p = lj_buf_more(&ctx->sb, sizedbg); - p = lj_buf_wmem(p, proto_lineinfo(pt), sizedbg); - setsbufP(&ctx->sb, p); - } - - /* Pass buffer to writer function. */ - if (ctx->status == 0) { - MSize n = sbuflen(&ctx->sb) - 5; - MSize nn = (lj_fls(n)+8)*9 >> 6; - char *q = sbufB(&ctx->sb) + (5 - nn); - p = lj_strfmt_wuleb128(q, n); /* Fill in final size. */ - lua_assert(p == sbufB(&ctx->sb) + 5); - ctx->status = ctx->wfunc(sbufL(&ctx->sb), q, nn+n, ctx->wdata); - } -} - -/* Write header of bytecode dump. */ -static void bcwrite_header(BCWriteCtx *ctx) -{ - GCstr *chunkname = proto_chunkname(ctx->pt); - const char *name = strdata(chunkname); - MSize len = chunkname->len; - char *p = lj_buf_need(&ctx->sb, 5+5+len); - *p++ = BCDUMP_HEAD1; - *p++ = BCDUMP_HEAD2; - *p++ = BCDUMP_HEAD3; - *p++ = BCDUMP_VERSION; - *p++ = (ctx->strip ? BCDUMP_F_STRIP : 0) + - LJ_BE*BCDUMP_F_BE + - ((ctx->pt->flags & PROTO_FFI) ? BCDUMP_F_FFI : 0) + - LJ_FR2*BCDUMP_F_FR2; - if (!ctx->strip) { - p = lj_strfmt_wuleb128(p, len); - p = lj_buf_wmem(p, name, len); - } - ctx->status = ctx->wfunc(sbufL(&ctx->sb), sbufB(&ctx->sb), - (MSize)(p - sbufB(&ctx->sb)), ctx->wdata); -} - -/* Write footer of bytecode dump. */ -static void bcwrite_footer(BCWriteCtx *ctx) -{ - if (ctx->status == 0) { - uint8_t zero = 0; - ctx->status = ctx->wfunc(sbufL(&ctx->sb), &zero, 1, ctx->wdata); - } -} - -/* Protected callback for bytecode writer. */ -static TValue *cpwriter(lua_State *L, lua_CFunction dummy, void *ud) -{ - BCWriteCtx *ctx = (BCWriteCtx *)ud; - UNUSED(L); UNUSED(dummy); - lj_buf_need(&ctx->sb, 1024); /* Avoids resize for most prototypes. */ - bcwrite_header(ctx); - bcwrite_proto(ctx, ctx->pt); - bcwrite_footer(ctx); - return NULL; -} - -/* Write bytecode for a prototype. */ -int lj_bcwrite(lua_State *L, GCproto *pt, lua_Writer writer, void *data, - int strip) -{ - BCWriteCtx ctx; - int status; - ctx.pt = pt; - ctx.wfunc = writer; - ctx.wdata = data; - ctx.strip = strip; - ctx.status = 0; - lj_buf_init(L, &ctx.sb); - status = lj_vm_cpcall(L, NULL, &ctx, cpwriter); - if (status == 0) status = ctx.status; - lj_buf_free(G(sbufL(&ctx.sb)), &ctx.sb); - return status; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_buf.c b/src/3rd party/luajit-2.0-BAK/src/lj_buf.c deleted file mode 100644 index 023bb9aac8f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_buf.c +++ /dev/null @@ -1,234 +0,0 @@ -/* -** Buffer handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_buf_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_strfmt.h" - -/* -- Buffer management --------------------------------------------------- */ - -static void buf_grow(SBuf *sb, MSize sz) -{ - MSize osz = sbufsz(sb), len = sbuflen(sb), nsz = osz; - char *b; - if (nsz < LJ_MIN_SBUF) nsz = LJ_MIN_SBUF; - while (nsz < sz) nsz += nsz; - b = (char *)lj_mem_realloc(sbufL(sb), sbufB(sb), osz, nsz); - setmref(sb->b, b); - setmref(sb->p, b + len); - setmref(sb->e, b + nsz); -} - -LJ_NOINLINE char *LJ_FASTCALL lj_buf_need2(SBuf *sb, MSize sz) -{ - lua_assert(sz > sbufsz(sb)); - if (LJ_UNLIKELY(sz > LJ_MAX_BUF)) - lj_err_mem(sbufL(sb)); - buf_grow(sb, sz); - return sbufB(sb); -} - -LJ_NOINLINE char *LJ_FASTCALL lj_buf_more2(SBuf *sb, MSize sz) -{ - MSize len = sbuflen(sb); - lua_assert(sz > sbufleft(sb)); - if (LJ_UNLIKELY(sz > LJ_MAX_BUF || len + sz > LJ_MAX_BUF)) - lj_err_mem(sbufL(sb)); - buf_grow(sb, len + sz); - return sbufP(sb); -} - -void LJ_FASTCALL lj_buf_shrink(lua_State *L, SBuf *sb) -{ - char *b = sbufB(sb); - MSize osz = (MSize)(sbufE(sb) - b); - if (osz > 2*LJ_MIN_SBUF) { - MSize n = (MSize)(sbufP(sb) - b); - b = lj_mem_realloc(L, b, osz, (osz >> 1)); - setmref(sb->b, b); - setmref(sb->p, b + n); - setmref(sb->e, b + (osz >> 1)); - } -} - -char * LJ_FASTCALL lj_buf_tmp(lua_State *L, MSize sz) -{ - SBuf *sb = &G(L)->tmpbuf; - setsbufL(sb, L); - return lj_buf_need(sb, sz); -} - -/* -- Low-level buffer put operations ------------------------------------- */ - -SBuf *lj_buf_putmem(SBuf *sb, const void *q, MSize len) -{ - char *p = lj_buf_more(sb, len); - p = lj_buf_wmem(p, q, len); - setsbufP(sb, p); - return sb; -} - -#if LJ_HASJIT -SBuf * LJ_FASTCALL lj_buf_putchar(SBuf *sb, int c) -{ - char *p = lj_buf_more(sb, 1); - *p++ = (char)c; - setsbufP(sb, p); - return sb; -} -#endif - -SBuf * LJ_FASTCALL lj_buf_putstr(SBuf *sb, GCstr *s) -{ - MSize len = s->len; - char *p = lj_buf_more(sb, len); - p = lj_buf_wmem(p, strdata(s), len); - setsbufP(sb, p); - return sb; -} - -/* -- High-level buffer put operations ------------------------------------ */ - -SBuf * LJ_FASTCALL lj_buf_putstr_reverse(SBuf *sb, GCstr *s) -{ - MSize len = s->len; - char *p = lj_buf_more(sb, len), *e = p+len; - const char *q = strdata(s)+len-1; - while (p < e) - *p++ = *q--; - setsbufP(sb, p); - return sb; -} - -SBuf * LJ_FASTCALL lj_buf_putstr_lower(SBuf *sb, GCstr *s) -{ - MSize len = s->len; - char *p = lj_buf_more(sb, len), *e = p+len; - const char *q = strdata(s); - for (; p < e; p++, q++) { - uint32_t c = *(unsigned char *)q; -#if LJ_TARGET_PPC - *p = c + ((c >= 'A' && c <= 'Z') << 5); -#else - if (c >= 'A' && c <= 'Z') c += 0x20; - *p = c; -#endif - } - setsbufP(sb, p); - return sb; -} - -SBuf * LJ_FASTCALL lj_buf_putstr_upper(SBuf *sb, GCstr *s) -{ - MSize len = s->len; - char *p = lj_buf_more(sb, len), *e = p+len; - const char *q = strdata(s); - for (; p < e; p++, q++) { - uint32_t c = *(unsigned char *)q; -#if LJ_TARGET_PPC - *p = c - ((c >= 'a' && c <= 'z') << 5); -#else - if (c >= 'a' && c <= 'z') c -= 0x20; - *p = c; -#endif - } - setsbufP(sb, p); - return sb; -} - -SBuf *lj_buf_putstr_rep(SBuf *sb, GCstr *s, int32_t rep) -{ - MSize len = s->len; - if (rep > 0 && len) { - uint64_t tlen = (uint64_t)rep * len; - char *p; - if (LJ_UNLIKELY(tlen > LJ_MAX_STR)) - lj_err_mem(sbufL(sb)); - p = lj_buf_more(sb, (MSize)tlen); - if (len == 1) { /* Optimize a common case. */ - uint32_t c = strdata(s)[0]; - do { *p++ = c; } while (--rep > 0); - } else { - const char *e = strdata(s) + len; - do { - const char *q = strdata(s); - do { *p++ = *q++; } while (q < e); - } while (--rep > 0); - } - setsbufP(sb, p); - } - return sb; -} - -SBuf *lj_buf_puttab(SBuf *sb, GCtab *t, GCstr *sep, int32_t i, int32_t e) -{ - MSize seplen = sep ? sep->len : 0; - if (i <= e) { - for (;;) { - cTValue *o = lj_tab_getint(t, i); - char *p; - if (!o) { - badtype: /* Error: bad element type. */ - setsbufP(sb, (void *)(intptr_t)i); /* Store failing index. */ - return NULL; - } else if (tvisstr(o)) { - MSize len = strV(o)->len; - p = lj_buf_wmem(lj_buf_more(sb, len + seplen), strVdata(o), len); - } else if (tvisint(o)) { - p = lj_strfmt_wint(lj_buf_more(sb, STRFMT_MAXBUF_INT+seplen), intV(o)); - } else if (tvisnum(o)) { - p = lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM+seplen), o); - } else { - goto badtype; - } - if (i++ == e) { - setsbufP(sb, p); - break; - } - if (seplen) p = lj_buf_wmem(p, strdata(sep), seplen); - setsbufP(sb, p); - } - } - return sb; -} - -/* -- Miscellaneous buffer operations ------------------------------------- */ - -GCstr * LJ_FASTCALL lj_buf_tostr(SBuf *sb) -{ - return lj_str_new(sbufL(sb), sbufB(sb), sbuflen(sb)); -} - -/* Concatenate two strings. */ -GCstr *lj_buf_cat2str(lua_State *L, GCstr *s1, GCstr *s2) -{ - MSize len1 = s1->len, len2 = s2->len; - char *buf = lj_buf_tmp(L, len1 + len2); - memcpy(buf, strdata(s1), len1); - memcpy(buf+len1, strdata(s2), len2); - return lj_str_new(L, buf, len1 + len2); -} - -/* Read ULEB128 from buffer. */ -uint32_t LJ_FASTCALL lj_buf_ruleb128(const char **pp) -{ - const uint8_t *p = (const uint8_t *)*pp; - uint32_t v = *p++; - if (LJ_UNLIKELY(v >= 0x80)) { - int sh = 0; - v &= 0x7f; - do { v |= ((*p & 0x7f) << (sh += 7)); } while (*p++ >= 0x80); - } - *pp = (const char *)p; - return v; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_buf.h b/src/3rd party/luajit-2.0-BAK/src/lj_buf.h deleted file mode 100644 index 1cf1780b020..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_buf.h +++ /dev/null @@ -1,105 +0,0 @@ -/* -** Buffer handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_BUF_H -#define _LJ_BUF_H - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_str.h" - -/* Resizable string buffers. Struct definition in lj_obj.h. */ -#define sbufB(sb) (mref((sb)->b, char)) -#define sbufP(sb) (mref((sb)->p, char)) -#define sbufE(sb) (mref((sb)->e, char)) -#define sbufL(sb) (mref((sb)->L, lua_State)) -#define sbufsz(sb) ((MSize)(sbufE((sb)) - sbufB((sb)))) -#define sbuflen(sb) ((MSize)(sbufP((sb)) - sbufB((sb)))) -#define sbufleft(sb) ((MSize)(sbufE((sb)) - sbufP((sb)))) -#define setsbufP(sb, q) (setmref((sb)->p, (q))) -#define setsbufL(sb, l) (setmref((sb)->L, (l))) - -/* Buffer management */ -LJ_FUNC char *LJ_FASTCALL lj_buf_need2(SBuf *sb, MSize sz); -LJ_FUNC char *LJ_FASTCALL lj_buf_more2(SBuf *sb, MSize sz); -LJ_FUNC void LJ_FASTCALL lj_buf_shrink(lua_State *L, SBuf *sb); -LJ_FUNC char * LJ_FASTCALL lj_buf_tmp(lua_State *L, MSize sz); - -static LJ_AINLINE void lj_buf_init(lua_State *L, SBuf *sb) -{ - setsbufL(sb, L); - setmref(sb->p, NULL); setmref(sb->e, NULL); setmref(sb->b, NULL); -} - -static LJ_AINLINE void lj_buf_reset(SBuf *sb) -{ - setmrefr(sb->p, sb->b); -} - -static LJ_AINLINE SBuf *lj_buf_tmp_(lua_State *L) -{ - SBuf *sb = &G(L)->tmpbuf; - setsbufL(sb, L); - lj_buf_reset(sb); - return sb; -} - -static LJ_AINLINE void lj_buf_free(global_State *g, SBuf *sb) -{ - lj_mem_free(g, sbufB(sb), sbufsz(sb)); -} - -static LJ_AINLINE char *lj_buf_need(SBuf *sb, MSize sz) -{ - if (LJ_UNLIKELY(sz > sbufsz(sb))) - return lj_buf_need2(sb, sz); - return sbufB(sb); -} - -static LJ_AINLINE char *lj_buf_more(SBuf *sb, MSize sz) -{ - if (LJ_UNLIKELY(sz > sbufleft(sb))) - return lj_buf_more2(sb, sz); - return sbufP(sb); -} - -/* Low-level buffer put operations */ -LJ_FUNC SBuf *lj_buf_putmem(SBuf *sb, const void *q, MSize len); -#if LJ_HASJIT -LJ_FUNC SBuf * LJ_FASTCALL lj_buf_putchar(SBuf *sb, int c); -#endif -LJ_FUNC SBuf * LJ_FASTCALL lj_buf_putstr(SBuf *sb, GCstr *s); - -static LJ_AINLINE char *lj_buf_wmem(char *p, const void *q, MSize len) -{ - return (char *)memcpy(p, q, len) + len; -} - -static LJ_AINLINE void lj_buf_putb(SBuf *sb, int c) -{ - char *p = lj_buf_more(sb, 1); - *p++ = (char)c; - setsbufP(sb, p); -} - -/* High-level buffer put operations */ -LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_reverse(SBuf *sb, GCstr *s); -LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_lower(SBuf *sb, GCstr *s); -LJ_FUNCA SBuf * LJ_FASTCALL lj_buf_putstr_upper(SBuf *sb, GCstr *s); -LJ_FUNC SBuf *lj_buf_putstr_rep(SBuf *sb, GCstr *s, int32_t rep); -LJ_FUNC SBuf *lj_buf_puttab(SBuf *sb, GCtab *t, GCstr *sep, - int32_t i, int32_t e); - -/* Miscellaneous buffer operations */ -LJ_FUNCA GCstr * LJ_FASTCALL lj_buf_tostr(SBuf *sb); -LJ_FUNC GCstr *lj_buf_cat2str(lua_State *L, GCstr *s1, GCstr *s2); -LJ_FUNC uint32_t LJ_FASTCALL lj_buf_ruleb128(const char **pp); - -static LJ_AINLINE GCstr *lj_buf_str(lua_State *L, SBuf *sb) -{ - return lj_str_new(L, sbufB(sb), sbuflen(sb)); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_carith.c b/src/3rd party/luajit-2.0-BAK/src/lj_carith.c deleted file mode 100644 index 9032ea32410..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_carith.c +++ /dev/null @@ -1,429 +0,0 @@ -/* -** C data arithmetic. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_ir.h" -#include "lj_ctype.h" -#include "lj_cconv.h" -#include "lj_cdata.h" -#include "lj_carith.h" -#include "lj_strscan.h" - -/* -- C data arithmetic --------------------------------------------------- */ - -/* Binary operands of an operator converted to ctypes. */ -typedef struct CDArith { - uint8_t *p[2]; - CType *ct[2]; -} CDArith; - -/* Check arguments for arithmetic metamethods. */ -static int carith_checkarg(lua_State *L, CTState *cts, CDArith *ca) -{ - TValue *o = L->base; - int ok = 1; - MSize i; - if (o+1 >= L->top) - lj_err_argt(L, 1, LUA_TCDATA); - for (i = 0; i < 2; i++, o++) { - if (tviscdata(o)) { - GCcdata *cd = cdataV(o); - CTypeID id = (CTypeID)cd->ctypeid; - CType *ct = ctype_raw(cts, id); - uint8_t *p = (uint8_t *)cdataptr(cd); - if (ctype_isptr(ct->info)) { - p = (uint8_t *)cdata_getptr(p, ct->size); - if (ctype_isref(ct->info)) ct = ctype_rawchild(cts, ct); - } else if (ctype_isfunc(ct->info)) { - p = (uint8_t *)*(void **)p; - ct = ctype_get(cts, - lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR)); - } - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - ca->ct[i] = ct; - ca->p[i] = p; - } else if (tvisint(o)) { - ca->ct[i] = ctype_get(cts, CTID_INT32); - ca->p[i] = (uint8_t *)&o->i; - } else if (tvisnum(o)) { - ca->ct[i] = ctype_get(cts, CTID_DOUBLE); - ca->p[i] = (uint8_t *)&o->n; - } else if (tvisnil(o)) { - ca->ct[i] = ctype_get(cts, CTID_P_VOID); - ca->p[i] = (uint8_t *)0; - } else if (tvisstr(o)) { - TValue *o2 = i == 0 ? o+1 : o-1; - CType *ct = ctype_raw(cts, cdataV(o2)->ctypeid); - ca->ct[i] = NULL; - ca->p[i] = (uint8_t *)strVdata(o); - ok = 0; - if (ctype_isenum(ct->info)) { - CTSize ofs; - CType *cct = lj_ctype_getfield(cts, ct, strV(o), &ofs); - if (cct && ctype_isconstval(cct->info)) { - ca->ct[i] = ctype_child(cts, cct); - ca->p[i] = (uint8_t *)&cct->size; /* Assumes ct does not grow. */ - ok = 1; - } else { - ca->ct[1-i] = ct; /* Use enum to improve error message. */ - ca->p[1-i] = NULL; - break; - } - } - } else { - ca->ct[i] = NULL; - ca->p[i] = (void *)(intptr_t)1; /* To make it unequal. */ - ok = 0; - } - } - return ok; -} - -/* Pointer arithmetic. */ -static int carith_ptr(lua_State *L, CTState *cts, CDArith *ca, MMS mm) -{ - CType *ctp = ca->ct[0]; - uint8_t *pp = ca->p[0]; - ptrdiff_t idx; - CTSize sz; - CTypeID id; - GCcdata *cd; - if (ctype_isptr(ctp->info) || ctype_isrefarray(ctp->info)) { - if ((mm == MM_sub || mm == MM_eq || mm == MM_lt || mm == MM_le) && - (ctype_isptr(ca->ct[1]->info) || ctype_isrefarray(ca->ct[1]->info))) { - uint8_t *pp2 = ca->p[1]; - if (mm == MM_eq) { /* Pointer equality. Incompatible pointers are ok. */ - setboolV(L->top-1, (pp == pp2)); - return 1; - } - if (!lj_cconv_compatptr(cts, ctp, ca->ct[1], CCF_IGNQUAL)) - return 0; - if (mm == MM_sub) { /* Pointer difference. */ - intptr_t diff; - sz = lj_ctype_size(cts, ctype_cid(ctp->info)); /* Element size. */ - if (sz == 0 || sz == CTSIZE_INVALID) - return 0; - diff = ((intptr_t)pp - (intptr_t)pp2) / (int32_t)sz; - /* All valid pointer differences on x64 are in (-2^47, +2^47), - ** which fits into a double without loss of precision. - */ - setintptrV(L->top-1, (int32_t)diff); - return 1; - } else if (mm == MM_lt) { /* Pointer comparison (unsigned). */ - setboolV(L->top-1, ((uintptr_t)pp < (uintptr_t)pp2)); - return 1; - } else { - lua_assert(mm == MM_le); - setboolV(L->top-1, ((uintptr_t)pp <= (uintptr_t)pp2)); - return 1; - } - } - if (!((mm == MM_add || mm == MM_sub) && ctype_isnum(ca->ct[1]->info))) - return 0; - lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ca->ct[1], - (uint8_t *)&idx, ca->p[1], 0); - if (mm == MM_sub) idx = -idx; - } else if (mm == MM_add && ctype_isnum(ctp->info) && - (ctype_isptr(ca->ct[1]->info) || ctype_isrefarray(ca->ct[1]->info))) { - /* Swap pointer and index. */ - ctp = ca->ct[1]; pp = ca->p[1]; - lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ca->ct[0], - (uint8_t *)&idx, ca->p[0], 0); - } else { - return 0; - } - sz = lj_ctype_size(cts, ctype_cid(ctp->info)); /* Element size. */ - if (sz == CTSIZE_INVALID) - return 0; - pp += idx*(int32_t)sz; /* Compute pointer + index. */ - id = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ctp->info)), - CTSIZE_PTR); - cd = lj_cdata_new(cts, id, CTSIZE_PTR); - *(uint8_t **)cdataptr(cd) = pp; - setcdataV(L, L->top-1, cd); - lj_gc_check(L); - return 1; -} - -/* 64 bit integer arithmetic. */ -static int carith_int64(lua_State *L, CTState *cts, CDArith *ca, MMS mm) -{ - if (ctype_isnum(ca->ct[0]->info) && ca->ct[0]->size <= 8 && - ctype_isnum(ca->ct[1]->info) && ca->ct[1]->size <= 8) { - CTypeID id = (((ca->ct[0]->info & CTF_UNSIGNED) && ca->ct[0]->size == 8) || - ((ca->ct[1]->info & CTF_UNSIGNED) && ca->ct[1]->size == 8)) ? - CTID_UINT64 : CTID_INT64; - CType *ct = ctype_get(cts, id); - GCcdata *cd; - uint64_t u0, u1, *up; - lj_cconv_ct_ct(cts, ct, ca->ct[0], (uint8_t *)&u0, ca->p[0], 0); - if (mm != MM_unm) - lj_cconv_ct_ct(cts, ct, ca->ct[1], (uint8_t *)&u1, ca->p[1], 0); - switch (mm) { - case MM_eq: - setboolV(L->top-1, (u0 == u1)); - return 1; - case MM_lt: - setboolV(L->top-1, - id == CTID_INT64 ? ((int64_t)u0 < (int64_t)u1) : (u0 < u1)); - return 1; - case MM_le: - setboolV(L->top-1, - id == CTID_INT64 ? ((int64_t)u0 <= (int64_t)u1) : (u0 <= u1)); - return 1; - default: break; - } - cd = lj_cdata_new(cts, id, 8); - up = (uint64_t *)cdataptr(cd); - setcdataV(L, L->top-1, cd); - switch (mm) { - case MM_add: *up = u0 + u1; break; - case MM_sub: *up = u0 - u1; break; - case MM_mul: *up = u0 * u1; break; - case MM_div: - if (id == CTID_INT64) - *up = (uint64_t)lj_carith_divi64((int64_t)u0, (int64_t)u1); - else - *up = lj_carith_divu64(u0, u1); - break; - case MM_mod: - if (id == CTID_INT64) - *up = (uint64_t)lj_carith_modi64((int64_t)u0, (int64_t)u1); - else - *up = lj_carith_modu64(u0, u1); - break; - case MM_pow: - if (id == CTID_INT64) - *up = (uint64_t)lj_carith_powi64((int64_t)u0, (int64_t)u1); - else - *up = lj_carith_powu64(u0, u1); - break; - case MM_unm: *up = (uint64_t)-(int64_t)u0; break; - default: lua_assert(0); break; - } - lj_gc_check(L); - return 1; - } - return 0; -} - -/* Handle ctype arithmetic metamethods. */ -static int lj_carith_meta(lua_State *L, CTState *cts, CDArith *ca, MMS mm) -{ - cTValue *tv = NULL; - if (tviscdata(L->base)) { - CTypeID id = cdataV(L->base)->ctypeid; - CType *ct = ctype_raw(cts, id); - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, mm); - } - if (!tv && L->base+1 < L->top && tviscdata(L->base+1)) { - CTypeID id = cdataV(L->base+1)->ctypeid; - CType *ct = ctype_raw(cts, id); - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, mm); - } - if (!tv) { - const char *repr[2]; - int i, isenum = -1, isstr = -1; - if (mm == MM_eq) { /* Equality checks never raise an error. */ - int eq = ca->p[0] == ca->p[1]; - setboolV(L->top-1, eq); - setboolV(&G(L)->tmptv2, eq); /* Remember for trace recorder. */ - return 1; - } - for (i = 0; i < 2; i++) { - if (ca->ct[i] && tviscdata(L->base+i)) { - if (ctype_isenum(ca->ct[i]->info)) isenum = i; - repr[i] = strdata(lj_ctype_repr(L, ctype_typeid(cts, ca->ct[i]), NULL)); - } else { - if (tvisstr(&L->base[i])) isstr = i; - repr[i] = lj_typename(&L->base[i]); - } - } - if ((isenum ^ isstr) == 1) - lj_err_callerv(L, LJ_ERR_FFI_BADCONV, repr[isstr], repr[isenum]); - lj_err_callerv(L, mm == MM_len ? LJ_ERR_FFI_BADLEN : - mm == MM_concat ? LJ_ERR_FFI_BADCONCAT : - mm < MM_add ? LJ_ERR_FFI_BADCOMP : LJ_ERR_FFI_BADARITH, - repr[0], repr[1]); - } - return lj_meta_tailcall(L, tv); -} - -/* Arithmetic operators for cdata. */ -int lj_carith_op(lua_State *L, MMS mm) -{ - CTState *cts = ctype_cts(L); - CDArith ca; - if (carith_checkarg(L, cts, &ca)) { - if (carith_int64(L, cts, &ca, mm) || carith_ptr(L, cts, &ca, mm)) { - copyTV(L, &G(L)->tmptv2, L->top-1); /* Remember for trace recorder. */ - return 1; - } - } - return lj_carith_meta(L, cts, &ca, mm); -} - -/* -- 64 bit bit operations helpers --------------------------------------- */ - -#if LJ_64 -#define B64DEF(name) \ - static LJ_AINLINE uint64_t lj_carith_##name(uint64_t x, int32_t sh) -#else -/* Not inlined on 32 bit archs, since some of these are quite lengthy. */ -#define B64DEF(name) \ - uint64_t LJ_NOINLINE lj_carith_##name(uint64_t x, int32_t sh) -#endif - -B64DEF(shl64) { return x << (sh&63); } -B64DEF(shr64) { return x >> (sh&63); } -B64DEF(sar64) { return (uint64_t)((int64_t)x >> (sh&63)); } -B64DEF(rol64) { return lj_rol(x, (sh&63)); } -B64DEF(ror64) { return lj_ror(x, (sh&63)); } - -#undef B64DEF - -uint64_t lj_carith_shift64(uint64_t x, int32_t sh, int op) -{ - switch (op) { - case IR_BSHL-IR_BSHL: x = lj_carith_shl64(x, sh); break; - case IR_BSHR-IR_BSHL: x = lj_carith_shr64(x, sh); break; - case IR_BSAR-IR_BSHL: x = lj_carith_sar64(x, sh); break; - case IR_BROL-IR_BSHL: x = lj_carith_rol64(x, sh); break; - case IR_BROR-IR_BSHL: x = lj_carith_ror64(x, sh); break; - default: lua_assert(0); break; - } - return x; -} - -/* Equivalent to lj_lib_checkbit(), but handles cdata. */ -uint64_t lj_carith_check64(lua_State *L, int narg, CTypeID *id) -{ - TValue *o = L->base + narg-1; - if (o >= L->top) { - err: - lj_err_argt(L, narg, LUA_TNUMBER); - } else if (LJ_LIKELY(tvisnumber(o))) { - /* Handled below. */ - } else if (tviscdata(o)) { - CTState *cts = ctype_cts(L); - uint8_t *sp = (uint8_t *)cdataptr(cdataV(o)); - CTypeID sid = cdataV(o)->ctypeid; - CType *s = ctype_get(cts, sid); - uint64_t x; - if (ctype_isref(s->info)) { - sp = *(void **)sp; - sid = ctype_cid(s->info); - } - s = ctype_raw(cts, sid); - if (ctype_isenum(s->info)) s = ctype_child(cts, s); - if ((s->info & (CTMASK_NUM|CTF_BOOL|CTF_FP|CTF_UNSIGNED)) == - CTINFO(CT_NUM, CTF_UNSIGNED) && s->size == 8) - *id = CTID_UINT64; /* Use uint64_t, since it has the highest rank. */ - else if (!*id) - *id = CTID_INT64; /* Use int64_t, unless already set. */ - lj_cconv_ct_ct(cts, ctype_get(cts, *id), s, - (uint8_t *)&x, sp, CCF_ARG(narg)); - return x; - } else if (!(tvisstr(o) && lj_strscan_number(strV(o), o))) { - goto err; - } - if (LJ_LIKELY(tvisint(o))) { - return (uint32_t)intV(o); - } else { - int32_t i = lj_num2bit(numV(o)); - if (LJ_DUALNUM) setintV(o, i); - return (uint32_t)i; - } -} - - -/* -- 64 bit integer arithmetic helpers ----------------------------------- */ - -#if LJ_32 && LJ_HASJIT -/* Signed/unsigned 64 bit multiplication. */ -int64_t lj_carith_mul64(int64_t a, int64_t b) -{ - return a * b; -} -#endif - -/* Unsigned 64 bit division. */ -uint64_t lj_carith_divu64(uint64_t a, uint64_t b) -{ - if (b == 0) return U64x(80000000,00000000); - return a / b; -} - -/* Signed 64 bit division. */ -int64_t lj_carith_divi64(int64_t a, int64_t b) -{ - if (b == 0 || (a == (int64_t)U64x(80000000,00000000) && b == -1)) - return U64x(80000000,00000000); - return a / b; -} - -/* Unsigned 64 bit modulo. */ -uint64_t lj_carith_modu64(uint64_t a, uint64_t b) -{ - if (b == 0) return U64x(80000000,00000000); - return a % b; -} - -/* Signed 64 bit modulo. */ -int64_t lj_carith_modi64(int64_t a, int64_t b) -{ - if (b == 0) return U64x(80000000,00000000); - if (a == (int64_t)U64x(80000000,00000000) && b == -1) return 0; - return a % b; -} - -/* Unsigned 64 bit x^k. */ -uint64_t lj_carith_powu64(uint64_t x, uint64_t k) -{ - uint64_t y; - if (k == 0) - return 1; - for (; (k & 1) == 0; k >>= 1) x *= x; - y = x; - if ((k >>= 1) != 0) { - for (;;) { - x *= x; - if (k == 1) break; - if (k & 1) y *= x; - k >>= 1; - } - y *= x; - } - return y; -} - -/* Signed 64 bit x^k. */ -int64_t lj_carith_powi64(int64_t x, int64_t k) -{ - if (k == 0) - return 1; - if (k < 0) { - if (x == 0) - return U64x(7fffffff,ffffffff); - else if (x == 1) - return 1; - else if (x == -1) - return (k & 1) ? -1 : 1; - else - return 0; - } - return (int64_t)lj_carith_powu64((uint64_t)x, (uint64_t)k); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_carith.h b/src/3rd party/luajit-2.0-BAK/src/lj_carith.h deleted file mode 100644 index da8320f3066..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_carith.h +++ /dev/null @@ -1,37 +0,0 @@ -/* -** C data arithmetic. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CARITH_H -#define _LJ_CARITH_H - -#include "lj_obj.h" - -#if LJ_HASFFI - -LJ_FUNC int lj_carith_op(lua_State *L, MMS mm); - -#if LJ_32 -LJ_FUNC uint64_t lj_carith_shl64(uint64_t x, int32_t sh); -LJ_FUNC uint64_t lj_carith_shr64(uint64_t x, int32_t sh); -LJ_FUNC uint64_t lj_carith_sar64(uint64_t x, int32_t sh); -LJ_FUNC uint64_t lj_carith_rol64(uint64_t x, int32_t sh); -LJ_FUNC uint64_t lj_carith_ror64(uint64_t x, int32_t sh); -#endif -LJ_FUNC uint64_t lj_carith_shift64(uint64_t x, int32_t sh, int op); -LJ_FUNC uint64_t lj_carith_check64(lua_State *L, int narg, CTypeID *id); - -#if LJ_32 && LJ_HASJIT -LJ_FUNC int64_t lj_carith_mul64(int64_t x, int64_t k); -#endif -LJ_FUNC uint64_t lj_carith_divu64(uint64_t a, uint64_t b); -LJ_FUNC int64_t lj_carith_divi64(int64_t a, int64_t b); -LJ_FUNC uint64_t lj_carith_modu64(uint64_t a, uint64_t b); -LJ_FUNC int64_t lj_carith_modi64(int64_t a, int64_t b); -LJ_FUNC uint64_t lj_carith_powu64(uint64_t x, uint64_t k); -LJ_FUNC int64_t lj_carith_powi64(int64_t x, int64_t k); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ccall.c b/src/3rd party/luajit-2.0-BAK/src/lj_ccall.c deleted file mode 100644 index 5ab5b60daab..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ccall.c +++ /dev/null @@ -1,984 +0,0 @@ -/* -** FFI C call handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_ctype.h" -#include "lj_cconv.h" -#include "lj_cdata.h" -#include "lj_ccall.h" -#include "lj_trace.h" - -/* Target-specific handling of register arguments. */ -#if LJ_TARGET_X86 -/* -- x86 calling conventions --------------------------------------------- */ - -#if LJ_ABI_WIN - -#define CCALL_HANDLE_STRUCTRET \ - /* Return structs bigger than 8 by reference (on stack only). */ \ - cc->retref = (sz > 8); \ - if (cc->retref) cc->stack[nsp++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET CCALL_HANDLE_STRUCTRET - -#else - -#if LJ_TARGET_OSX - -#define CCALL_HANDLE_STRUCTRET \ - /* Return structs of size 1, 2, 4 or 8 in registers. */ \ - cc->retref = !(sz == 1 || sz == 2 || sz == 4 || sz == 8); \ - if (cc->retref) { \ - if (ngpr < maxgpr) \ - cc->gpr[ngpr++] = (GPRArg)dp; \ - else \ - cc->stack[nsp++] = (GPRArg)dp; \ - } else { /* Struct with single FP field ends up in FPR. */ \ - cc->resx87 = ccall_classify_struct(cts, ctr); \ - } - -#define CCALL_HANDLE_STRUCTRET2 \ - if (cc->resx87) sp = (uint8_t *)&cc->fpr[0]; \ - memcpy(dp, sp, ctr->size); - -#else - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = 1; /* Return all structs by reference (in reg or on stack). */ \ - if (ngpr < maxgpr) \ - cc->gpr[ngpr++] = (GPRArg)dp; \ - else \ - cc->stack[nsp++] = (GPRArg)dp; - -#endif - -#define CCALL_HANDLE_COMPLEXRET \ - /* Return complex float in GPRs and complex double by reference. */ \ - cc->retref = (sz > 8); \ - if (cc->retref) { \ - if (ngpr < maxgpr) \ - cc->gpr[ngpr++] = (GPRArg)dp; \ - else \ - cc->stack[nsp++] = (GPRArg)dp; \ - } - -#endif - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (!cc->retref) \ - *(int64_t *)dp = *(int64_t *)sp; /* Copy complex float from GPRs. */ - -#define CCALL_HANDLE_STRUCTARG \ - ngpr = maxgpr; /* Pass all structs by value on the stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - isfp = 1; /* Pass complex by value on stack. */ - -#define CCALL_HANDLE_REGARG \ - if (!isfp) { /* Only non-FP values may be passed in registers. */ \ - if (n > 1) { /* Anything > 32 bit is passed on the stack. */ \ - if (!LJ_ABI_WIN) ngpr = maxgpr; /* Prevent reordering. */ \ - } else if (ngpr + 1 <= maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#elif LJ_TARGET_X64 && LJ_ABI_WIN -/* -- Windows/x64 calling conventions ------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - /* Return structs of size 1, 2, 4 or 8 in a GPR. */ \ - cc->retref = !(sz == 1 || sz == 2 || sz == 4 || sz == 8); \ - if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET CCALL_HANDLE_STRUCTRET - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (!cc->retref) \ - *(int64_t *)dp = *(int64_t *)sp; /* Copy complex float from GPRs. */ - -#define CCALL_HANDLE_STRUCTARG \ - /* Pass structs of size 1, 2, 4 or 8 in a GPR by value. */ \ - if (!(sz == 1 || sz == 2 || sz == 4 || sz == 8)) { \ - rp = cdataptr(lj_cdata_new(cts, did, sz)); \ - sz = CTSIZE_PTR; /* Pass all other structs by reference. */ \ - } - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex float in a GPR and complex double by reference. */ \ - if (sz != 2*sizeof(float)) { \ - rp = cdataptr(lj_cdata_new(cts, did, sz)); \ - sz = CTSIZE_PTR; \ - } - -/* Windows/x64 argument registers are strictly positional (use ngpr). */ -#define CCALL_HANDLE_REGARG \ - if (isfp) { \ - if (ngpr < maxgpr) { dp = &cc->fpr[ngpr++]; nfpr = ngpr; goto done; } \ - } else { \ - if (ngpr < maxgpr) { dp = &cc->gpr[ngpr++]; goto done; } \ - } - -#elif LJ_TARGET_X64 -/* -- POSIX/x64 calling conventions --------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - int rcl[2]; rcl[0] = rcl[1] = 0; \ - if (ccall_classify_struct(cts, ctr, rcl, 0)) { \ - cc->retref = 1; /* Return struct by reference. */ \ - cc->gpr[ngpr++] = (GPRArg)dp; \ - } else { \ - cc->retref = 0; /* Return small structs in registers. */ \ - } - -#define CCALL_HANDLE_STRUCTRET2 \ - int rcl[2]; rcl[0] = rcl[1] = 0; \ - ccall_classify_struct(cts, ctr, rcl, 0); \ - ccall_struct_ret(cc, rcl, dp, ctr->size); - -#define CCALL_HANDLE_COMPLEXRET \ - /* Complex values are returned in one or two FPRs. */ \ - cc->retref = 0; - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPR. */ \ - *(int64_t *)dp = cc->fpr[0].l[0]; \ - } else { /* Copy non-contiguous complex double from FPRs. */ \ - ((int64_t *)dp)[0] = cc->fpr[0].l[0]; \ - ((int64_t *)dp)[1] = cc->fpr[1].l[0]; \ - } - -#define CCALL_HANDLE_STRUCTARG \ - int rcl[2]; rcl[0] = rcl[1] = 0; \ - if (!ccall_classify_struct(cts, d, rcl, 0)) { \ - cc->nsp = nsp; cc->ngpr = ngpr; cc->nfpr = nfpr; \ - if (ccall_struct_arg(cc, cts, d, rcl, o, narg)) goto err_nyi; \ - nsp = cc->nsp; ngpr = cc->ngpr; nfpr = cc->nfpr; \ - continue; \ - } /* Pass all other structs by value on stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - isfp = 2; /* Pass complex in FPRs or on stack. Needs postprocessing. */ - -#define CCALL_HANDLE_REGARG \ - if (isfp) { /* Try to pass argument in FPRs. */ \ - int n2 = ctype_isvector(d->info) ? 1 : n; \ - if (nfpr + n2 <= CCALL_NARG_FPR) { \ - dp = &cc->fpr[nfpr]; \ - nfpr += n2; \ - goto done; \ - } \ - } else { /* Try to pass argument in GPRs. */ \ - /* Note that reordering is explicitly allowed in the x64 ABI. */ \ - if (n <= 2 && ngpr + n <= maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#elif LJ_TARGET_ARM -/* -- ARM calling conventions --------------------------------------------- */ - -#if LJ_ABI_SOFTFP - -#define CCALL_HANDLE_STRUCTRET \ - /* Return structs of size <= 4 in a GPR. */ \ - cc->retref = !(sz <= 4); \ - if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET \ - cc->retref = 1; /* Return all complex values by reference. */ \ - cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET2 \ - UNUSED(dp); /* Nothing to do. */ - -#define CCALL_HANDLE_STRUCTARG \ - /* Pass all structs by value in registers and/or on the stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex by value in 2 or 4 GPRs. */ - -#define CCALL_HANDLE_REGARG_FP1 -#define CCALL_HANDLE_REGARG_FP2 - -#else - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = !ccall_classify_struct(cts, ctr, ct); \ - if (cc->retref) cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_STRUCTRET2 \ - if (ccall_classify_struct(cts, ctr, ct) > 1) sp = (uint8_t *)&cc->fpr[0]; \ - memcpy(dp, sp, ctr->size); - -#define CCALL_HANDLE_COMPLEXRET \ - if (!(ct->info & CTF_VARARG)) cc->retref = 0; /* Return complex in FPRs. */ - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (!(ct->info & CTF_VARARG)) memcpy(dp, &cc->fpr[0], ctr->size); - -#define CCALL_HANDLE_STRUCTARG \ - isfp = (ccall_classify_struct(cts, d, ct) > 1); - /* Pass all structs by value in registers and/or on the stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - isfp = 1; /* Pass complex by value in FPRs or on stack. */ - -#define CCALL_HANDLE_REGARG_FP1 \ - if (isfp && !(ct->info & CTF_VARARG)) { \ - if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \ - if (nfpr + (n >> 1) <= CCALL_NARG_FPR) { \ - dp = &cc->fpr[nfpr]; \ - nfpr += (n >> 1); \ - goto done; \ - } \ - } else { \ - if (sz > 1 && fprodd != nfpr) fprodd = 0; \ - if (fprodd) { \ - if (2*nfpr+n <= 2*CCALL_NARG_FPR+1) { \ - dp = (void *)&cc->fpr[fprodd-1].f[1]; \ - nfpr += (n >> 1); \ - if ((n & 1)) fprodd = 0; else fprodd = nfpr-1; \ - goto done; \ - } \ - } else { \ - if (2*nfpr+n <= 2*CCALL_NARG_FPR) { \ - dp = (void *)&cc->fpr[nfpr]; \ - nfpr += (n >> 1); \ - if ((n & 1)) fprodd = ++nfpr; else fprodd = 0; \ - goto done; \ - } \ - } \ - } \ - fprodd = 0; /* No reordering after the first FP value is on stack. */ \ - } else { - -#define CCALL_HANDLE_REGARG_FP2 } - -#endif - -#define CCALL_HANDLE_REGARG \ - CCALL_HANDLE_REGARG_FP1 \ - if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \ - if (ngpr < maxgpr) \ - ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - } \ - if (ngpr < maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - if (ngpr + n > maxgpr) { \ - nsp += ngpr + n - maxgpr; /* Assumes contiguous gpr/stack fields. */ \ - if (nsp > CCALL_MAXSTACK) goto err_nyi; /* Too many arguments. */ \ - ngpr = maxgpr; \ - } else { \ - ngpr += n; \ - } \ - goto done; \ - } CCALL_HANDLE_REGARG_FP2 - -#define CCALL_HANDLE_RET \ - if ((ct->info & CTF_VARARG)) sp = (uint8_t *)&cc->gpr[0]; - -#elif LJ_TARGET_ARM64 -/* -- ARM64 calling conventions ------------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = !ccall_classify_struct(cts, ctr); \ - if (cc->retref) cc->retp = dp; - -#define CCALL_HANDLE_STRUCTRET2 \ - unsigned int cl = ccall_classify_struct(cts, ctr); \ - if ((cl & 4)) { /* Combine float HFA from separate registers. */ \ - CTSize i = (cl >> 8) - 1; \ - do { ((uint32_t *)dp)[i] = cc->fpr[i].u32; } while (i--); \ - } else { \ - if (cl > 1) sp = (uint8_t *)&cc->fpr[0]; \ - memcpy(dp, sp, ctr->size); \ - } - -#define CCALL_HANDLE_COMPLEXRET \ - /* Complex values are returned in one or two FPRs. */ \ - cc->retref = 0; - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPRs. */ \ - ((float *)dp)[0] = cc->fpr[0].f; \ - ((float *)dp)[1] = cc->fpr[1].f; \ - } else { /* Copy complex double from FPRs. */ \ - ((double *)dp)[0] = cc->fpr[0].d; \ - ((double *)dp)[1] = cc->fpr[1].d; \ - } - -#define CCALL_HANDLE_STRUCTARG \ - unsigned int cl = ccall_classify_struct(cts, d); \ - if (cl == 0) { /* Pass struct by reference. */ \ - rp = cdataptr(lj_cdata_new(cts, did, sz)); \ - sz = CTSIZE_PTR; \ - } else if (cl > 1) { /* Pass struct in FPRs or on stack. */ \ - isfp = (cl & 4) ? 2 : 1; \ - } /* else: Pass struct in GPRs or on stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex by value in separate (!) FPRs or on stack. */ \ - isfp = ctr->size == 2*sizeof(float) ? 2 : 1; - -#define CCALL_HANDLE_REGARG \ - if (LJ_TARGET_IOS && isva) { \ - /* IOS: All variadic arguments are on the stack. */ \ - } else if (isfp) { /* Try to pass argument in FPRs. */ \ - int n2 = ctype_isvector(d->info) ? 1 : n*isfp; \ - if (nfpr + n2 <= CCALL_NARG_FPR) { \ - dp = &cc->fpr[nfpr]; \ - nfpr += n2; \ - goto done; \ - } else { \ - nfpr = CCALL_NARG_FPR; /* Prevent reordering. */ \ - if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \ - } \ - } else { /* Try to pass argument in GPRs. */ \ - if (!LJ_TARGET_IOS && (d->info & CTF_ALIGN) > CTALIGN_PTR) \ - ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - if (ngpr + n <= maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } else { \ - ngpr = maxgpr; /* Prevent reordering. */ \ - if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \ - } \ - } - -#elif LJ_TARGET_PPC -/* -- PPC calling conventions --------------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = 1; /* Return all structs by reference. */ \ - cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET \ - /* Complex values are returned in 2 or 4 GPRs. */ \ - cc->retref = 0; - -#define CCALL_HANDLE_COMPLEXRET2 \ - memcpy(dp, sp, ctr->size); /* Copy complex from GPRs. */ - -#define CCALL_HANDLE_STRUCTARG \ - rp = cdataptr(lj_cdata_new(cts, did, sz)); \ - sz = CTSIZE_PTR; /* Pass all structs by reference. */ - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex by value in 2 or 4 GPRs. */ - -#define CCALL_HANDLE_REGARG \ - if (isfp) { /* Try to pass argument in FPRs. */ \ - if (nfpr + 1 <= CCALL_NARG_FPR) { \ - dp = &cc->fpr[nfpr]; \ - nfpr += 1; \ - d = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ \ - goto done; \ - } \ - } else { /* Try to pass argument in GPRs. */ \ - if (n > 1) { \ - lua_assert(n == 2 || n == 4); /* int64_t or complex (float). */ \ - if (ctype_isinteger(d->info)) \ - ngpr = (ngpr + 1u) & ~1u; /* Align int64_t to regpair. */ \ - else if (ngpr + n > maxgpr) \ - ngpr = maxgpr; /* Prevent reordering. */ \ - } \ - if (ngpr + n <= maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#define CCALL_HANDLE_RET \ - if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ - ctr = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ - -#elif LJ_TARGET_MIPS -/* -- MIPS calling conventions -------------------------------------------- */ - -#define CCALL_HANDLE_STRUCTRET \ - cc->retref = 1; /* Return all structs by reference. */ \ - cc->gpr[ngpr++] = (GPRArg)dp; - -#define CCALL_HANDLE_COMPLEXRET \ - /* Complex values are returned in 1 or 2 FPRs. */ \ - cc->retref = 0; - -#define CCALL_HANDLE_COMPLEXRET2 \ - if (ctr->size == 2*sizeof(float)) { /* Copy complex float from FPRs. */ \ - ((float *)dp)[0] = cc->fpr[0].f; \ - ((float *)dp)[1] = cc->fpr[1].f; \ - } else { /* Copy complex double from FPRs. */ \ - ((double *)dp)[0] = cc->fpr[0].d; \ - ((double *)dp)[1] = cc->fpr[1].d; \ - } - -#define CCALL_HANDLE_STRUCTARG \ - /* Pass all structs by value in registers and/or on the stack. */ - -#define CCALL_HANDLE_COMPLEXARG \ - /* Pass complex by value in 2 or 4 GPRs. */ - -#define CCALL_HANDLE_REGARG \ - if (isfp && nfpr < CCALL_NARG_FPR && !(ct->info & CTF_VARARG)) { \ - /* Try to pass argument in FPRs. */ \ - dp = n == 1 ? (void *)&cc->fpr[nfpr].f : (void *)&cc->fpr[nfpr].d; \ - nfpr++; ngpr += n; \ - goto done; \ - } else { /* Try to pass argument in GPRs. */ \ - nfpr = CCALL_NARG_FPR; \ - if ((d->info & CTF_ALIGN) > CTALIGN_PTR) \ - ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - if (ngpr < maxgpr) { \ - dp = &cc->gpr[ngpr]; \ - if (ngpr + n > maxgpr) { \ - nsp += ngpr + n - maxgpr; /* Assumes contiguous gpr/stack fields. */ \ - if (nsp > CCALL_MAXSTACK) goto err_nyi; /* Too many arguments. */ \ - ngpr = maxgpr; \ - } else { \ - ngpr += n; \ - } \ - goto done; \ - } \ - } - -#define CCALL_HANDLE_RET \ - if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ - sp = (uint8_t *)&cc->fpr[0].f; - -#else -#error "Missing calling convention definitions for this architecture" -#endif - -#ifndef CCALL_HANDLE_STRUCTRET2 -#define CCALL_HANDLE_STRUCTRET2 \ - memcpy(dp, sp, ctr->size); /* Copy struct return value from GPRs. */ -#endif - -/* -- x86 OSX ABI struct classification ----------------------------------- */ - -#if LJ_TARGET_X86 && LJ_TARGET_OSX - -/* Check for struct with single FP field. */ -static int ccall_classify_struct(CTState *cts, CType *ct) -{ - CTSize sz = ct->size; - if (!(sz == sizeof(float) || sz == sizeof(double))) return 0; - if ((ct->info & CTF_UNION)) return 0; - while (ct->sib) { - ct = ctype_get(cts, ct->sib); - if (ctype_isfield(ct->info)) { - CType *sct = ctype_rawchild(cts, ct); - if (ctype_isfp(sct->info)) { - if (sct->size == sz) - return (sz >> 2); /* Return 1 for float or 2 for double. */ - } else if (ctype_isstruct(sct->info)) { - if (sct->size) - return ccall_classify_struct(cts, sct); - } else { - break; - } - } else if (ctype_isbitfield(ct->info)) { - break; - } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { - CType *sct = ctype_rawchild(cts, ct); - if (sct->size) - return ccall_classify_struct(cts, sct); - } - } - return 0; -} - -#endif - -/* -- x64 struct classification ------------------------------------------- */ - -#if LJ_TARGET_X64 && !LJ_ABI_WIN - -/* Register classes for x64 struct classification. */ -#define CCALL_RCL_INT 1 -#define CCALL_RCL_SSE 2 -#define CCALL_RCL_MEM 4 -/* NYI: classify vectors. */ - -static int ccall_classify_struct(CTState *cts, CType *ct, int *rcl, CTSize ofs); - -/* Classify a C type. */ -static void ccall_classify_ct(CTState *cts, CType *ct, int *rcl, CTSize ofs) -{ - if (ctype_isarray(ct->info)) { - CType *cct = ctype_rawchild(cts, ct); - CTSize eofs, esz = cct->size, asz = ct->size; - for (eofs = 0; eofs < asz; eofs += esz) - ccall_classify_ct(cts, cct, rcl, ofs+eofs); - } else if (ctype_isstruct(ct->info)) { - ccall_classify_struct(cts, ct, rcl, ofs); - } else { - int cl = ctype_isfp(ct->info) ? CCALL_RCL_SSE : CCALL_RCL_INT; - lua_assert(ctype_hassize(ct->info)); - if ((ofs & (ct->size-1))) cl = CCALL_RCL_MEM; /* Unaligned. */ - rcl[(ofs >= 8)] |= cl; - } -} - -/* Recursively classify a struct based on its fields. */ -static int ccall_classify_struct(CTState *cts, CType *ct, int *rcl, CTSize ofs) -{ - if (ct->size > 16) return CCALL_RCL_MEM; /* Too big, gets memory class. */ - while (ct->sib) { - CTSize fofs; - ct = ctype_get(cts, ct->sib); - fofs = ofs+ct->size; - if (ctype_isfield(ct->info)) - ccall_classify_ct(cts, ctype_rawchild(cts, ct), rcl, fofs); - else if (ctype_isbitfield(ct->info)) - rcl[(fofs >= 8)] |= CCALL_RCL_INT; /* NYI: unaligned bitfields? */ - else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) - ccall_classify_struct(cts, ctype_rawchild(cts, ct), rcl, fofs); - } - return ((rcl[0]|rcl[1]) & CCALL_RCL_MEM); /* Memory class? */ -} - -/* Try to split up a small struct into registers. */ -static int ccall_struct_reg(CCallState *cc, GPRArg *dp, int *rcl) -{ - MSize ngpr = cc->ngpr, nfpr = cc->nfpr; - uint32_t i; - for (i = 0; i < 2; i++) { - lua_assert(!(rcl[i] & CCALL_RCL_MEM)); - if ((rcl[i] & CCALL_RCL_INT)) { /* Integer class takes precedence. */ - if (ngpr >= CCALL_NARG_GPR) return 1; /* Register overflow. */ - cc->gpr[ngpr++] = dp[i]; - } else if ((rcl[i] & CCALL_RCL_SSE)) { - if (nfpr >= CCALL_NARG_FPR) return 1; /* Register overflow. */ - cc->fpr[nfpr++].l[0] = dp[i]; - } - } - cc->ngpr = ngpr; cc->nfpr = nfpr; - return 0; /* Ok. */ -} - -/* Pass a small struct argument. */ -static int ccall_struct_arg(CCallState *cc, CTState *cts, CType *d, int *rcl, - TValue *o, int narg) -{ - GPRArg dp[2]; - dp[0] = dp[1] = 0; - /* Convert to temp. struct. */ - lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg)); - if (ccall_struct_reg(cc, dp, rcl)) { /* Register overflow? Pass on stack. */ - MSize nsp = cc->nsp, n = rcl[1] ? 2 : 1; - if (nsp + n > CCALL_MAXSTACK) return 1; /* Too many arguments. */ - cc->nsp = nsp + n; - memcpy(&cc->stack[nsp], dp, n*CTSIZE_PTR); - } - return 0; /* Ok. */ -} - -/* Combine returned small struct. */ -static void ccall_struct_ret(CCallState *cc, int *rcl, uint8_t *dp, CTSize sz) -{ - GPRArg sp[2]; - MSize ngpr = 0, nfpr = 0; - uint32_t i; - for (i = 0; i < 2; i++) { - if ((rcl[i] & CCALL_RCL_INT)) { /* Integer class takes precedence. */ - sp[i] = cc->gpr[ngpr++]; - } else if ((rcl[i] & CCALL_RCL_SSE)) { - sp[i] = cc->fpr[nfpr++].l[0]; - } - } - memcpy(dp, sp, sz); -} -#endif - -/* -- ARM hard-float ABI struct classification ---------------------------- */ - -#if LJ_TARGET_ARM && !LJ_ABI_SOFTFP - -/* Classify a struct based on its fields. */ -static unsigned int ccall_classify_struct(CTState *cts, CType *ct, CType *ctf) -{ - CTSize sz = ct->size; - unsigned int r = 0, n = 0, isu = (ct->info & CTF_UNION); - if ((ctf->info & CTF_VARARG)) goto noth; - while (ct->sib) { - CType *sct; - ct = ctype_get(cts, ct->sib); - if (ctype_isfield(ct->info)) { - sct = ctype_rawchild(cts, ct); - if (ctype_isfp(sct->info)) { - r |= sct->size; - if (!isu) n++; else if (n == 0) n = 1; - } else if (ctype_iscomplex(sct->info)) { - r |= (sct->size >> 1); - if (!isu) n += 2; else if (n < 2) n = 2; - } else if (ctype_isstruct(sct->info)) { - goto substruct; - } else { - goto noth; - } - } else if (ctype_isbitfield(ct->info)) { - goto noth; - } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { - sct = ctype_rawchild(cts, ct); - substruct: - if (sct->size > 0) { - unsigned int s = ccall_classify_struct(cts, sct, ctf); - if (s <= 1) goto noth; - r |= (s & 255); - if (!isu) n += (s >> 8); else if (n < (s >>8)) n = (s >> 8); - } - } - } - if ((r == 4 || r == 8) && n <= 4) - return r + (n << 8); -noth: /* Not a homogeneous float/double aggregate. */ - return (sz <= 4); /* Return structs of size <= 4 in a GPR. */ -} - -#endif - -/* -- ARM64 ABI struct classification ------------------------------------- */ - -#if LJ_TARGET_ARM64 - -/* Classify a struct based on its fields. */ -static unsigned int ccall_classify_struct(CTState *cts, CType *ct) -{ - CTSize sz = ct->size; - unsigned int r = 0, n = 0, isu = (ct->info & CTF_UNION); - while (ct->sib) { - CType *sct; - ct = ctype_get(cts, ct->sib); - if (ctype_isfield(ct->info)) { - sct = ctype_rawchild(cts, ct); - if (ctype_isfp(sct->info)) { - r |= sct->size; - if (!isu) n++; else if (n == 0) n = 1; - } else if (ctype_iscomplex(sct->info)) { - r |= (sct->size >> 1); - if (!isu) n += 2; else if (n < 2) n = 2; - } else if (ctype_isstruct(sct->info)) { - goto substruct; - } else { - goto noth; - } - } else if (ctype_isbitfield(ct->info)) { - goto noth; - } else if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { - sct = ctype_rawchild(cts, ct); - substruct: - if (sct->size > 0) { - unsigned int s = ccall_classify_struct(cts, sct); - if (s <= 1) goto noth; - r |= (s & 255); - if (!isu) n += (s >> 8); else if (n < (s >>8)) n = (s >> 8); - } - } - } - if ((r == 4 || r == 8) && n <= 4) - return r + (n << 8); -noth: /* Not a homogeneous float/double aggregate. */ - return (sz <= 16); /* Return structs of size <= 16 in GPRs. */ -} - -#endif - -/* -- Common C call handling ---------------------------------------------- */ - -/* Infer the destination CTypeID for a vararg argument. */ -CTypeID lj_ccall_ctid_vararg(CTState *cts, cTValue *o) -{ - if (tvisnumber(o)) { - return CTID_DOUBLE; - } else if (tviscdata(o)) { - CTypeID id = cdataV(o)->ctypeid; - CType *s = ctype_get(cts, id); - if (ctype_isrefarray(s->info)) { - return lj_ctype_intern(cts, - CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(s->info)), CTSIZE_PTR); - } else if (ctype_isstruct(s->info) || ctype_isfunc(s->info)) { - /* NYI: how to pass a struct by value in a vararg argument? */ - return lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR); - } else if (ctype_isfp(s->info) && s->size == sizeof(float)) { - return CTID_DOUBLE; - } else { - return id; - } - } else if (tvisstr(o)) { - return CTID_P_CCHAR; - } else if (tvisbool(o)) { - return CTID_BOOL; - } else { - return CTID_P_VOID; - } -} - -/* Setup arguments for C call. */ -static int ccall_set_args(lua_State *L, CTState *cts, CType *ct, - CCallState *cc) -{ - int gcsteps = 0; - TValue *o, *top = L->top; - CTypeID fid; - CType *ctr; - MSize maxgpr, ngpr = 0, nsp = 0, narg; -#if CCALL_NARG_FPR - MSize nfpr = 0; -#if LJ_TARGET_ARM - MSize fprodd = 0; -#endif -#endif - - /* Clear unused regs to get some determinism in case of misdeclaration. */ - memset(cc->gpr, 0, sizeof(cc->gpr)); -#if CCALL_NUM_FPR - memset(cc->fpr, 0, sizeof(cc->fpr)); -#endif - -#if LJ_TARGET_X86 - /* x86 has several different calling conventions. */ - cc->resx87 = 0; - switch (ctype_cconv(ct->info)) { - case CTCC_FASTCALL: maxgpr = 2; break; - case CTCC_THISCALL: maxgpr = 1; break; - default: maxgpr = 0; break; - } -#else - maxgpr = CCALL_NARG_GPR; -#endif - - /* Perform required setup for some result types. */ - ctr = ctype_rawchild(cts, ct); - if (ctype_isvector(ctr->info)) { - if (!(CCALL_VECTOR_REG && (ctr->size == 8 || ctr->size == 16))) - goto err_nyi; - } else if (ctype_iscomplex(ctr->info) || ctype_isstruct(ctr->info)) { - /* Preallocate cdata object and anchor it after arguments. */ - CTSize sz = ctr->size; - GCcdata *cd = lj_cdata_new(cts, ctype_cid(ct->info), sz); - void *dp = cdataptr(cd); - setcdataV(L, L->top++, cd); - if (ctype_isstruct(ctr->info)) { - CCALL_HANDLE_STRUCTRET - } else { - CCALL_HANDLE_COMPLEXRET - } -#if LJ_TARGET_X86 - } else if (ctype_isfp(ctr->info)) { - cc->resx87 = ctr->size == sizeof(float) ? 1 : 2; -#endif - } - - /* Skip initial attributes. */ - fid = ct->sib; - while (fid) { - CType *ctf = ctype_get(cts, fid); - if (!ctype_isattrib(ctf->info)) break; - fid = ctf->sib; - } - - /* Walk through all passed arguments. */ - for (o = L->base+1, narg = 1; o < top; o++, narg++) { - CTypeID did; - CType *d; - CTSize sz; - MSize n, isfp = 0, isva = 0; - void *dp, *rp = NULL; - - if (fid) { /* Get argument type from field. */ - CType *ctf = ctype_get(cts, fid); - fid = ctf->sib; - lua_assert(ctype_isfield(ctf->info)); - did = ctype_cid(ctf->info); - } else { - if (!(ct->info & CTF_VARARG)) - lj_err_caller(L, LJ_ERR_FFI_NUMARG); /* Too many arguments. */ - did = lj_ccall_ctid_vararg(cts, o); /* Infer vararg type. */ - isva = 1; - } - d = ctype_raw(cts, did); - sz = d->size; - - /* Find out how (by value/ref) and where (GPR/FPR) to pass an argument. */ - if (ctype_isnum(d->info)) { - if (sz > 8) goto err_nyi; - if ((d->info & CTF_FP)) - isfp = 1; - } else if (ctype_isvector(d->info)) { - if (CCALL_VECTOR_REG && (sz == 8 || sz == 16)) - isfp = 1; - else - goto err_nyi; - } else if (ctype_isstruct(d->info)) { - CCALL_HANDLE_STRUCTARG - } else if (ctype_iscomplex(d->info)) { - CCALL_HANDLE_COMPLEXARG - } else { - sz = CTSIZE_PTR; - } - sz = (sz + CTSIZE_PTR-1) & ~(CTSIZE_PTR-1); - n = sz / CTSIZE_PTR; /* Number of GPRs or stack slots needed. */ - - CCALL_HANDLE_REGARG /* Handle register arguments. */ - - /* Otherwise pass argument on stack. */ - if (CCALL_ALIGN_STACKARG && !rp && (d->info & CTF_ALIGN) > CTALIGN_PTR) { - MSize align = (1u << ctype_align(d->info-CTALIGN_PTR)) -1; - nsp = (nsp + align) & ~align; /* Align argument on stack. */ - } - if (nsp + n > CCALL_MAXSTACK) { /* Too many arguments. */ - err_nyi: - lj_err_caller(L, LJ_ERR_FFI_NYICALL); - } - dp = &cc->stack[nsp]; - nsp += n; - isva = 0; - - done: - if (rp) { /* Pass by reference. */ - gcsteps++; - *(void **)dp = rp; - dp = rp; - } - lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg)); - /* Extend passed integers to 32 bits at least. */ - if (ctype_isinteger_or_bool(d->info) && d->size < 4) { - if (d->info & CTF_UNSIGNED) - *(uint32_t *)dp = d->size == 1 ? (uint32_t)*(uint8_t *)dp : - (uint32_t)*(uint16_t *)dp; - else - *(int32_t *)dp = d->size == 1 ? (int32_t)*(int8_t *)dp : - (int32_t)*(int16_t *)dp; - } -#if LJ_TARGET_X64 && LJ_ABI_WIN - if (isva) { /* Windows/x64 mirrors varargs in both register sets. */ - if (nfpr == ngpr) - cc->gpr[ngpr-1] = cc->fpr[ngpr-1].l[0]; - else - cc->fpr[ngpr-1].l[0] = cc->gpr[ngpr-1]; - } -#else - UNUSED(isva); -#endif -#if LJ_TARGET_X64 && !LJ_ABI_WIN - if (isfp == 2 && n == 2 && (uint8_t *)dp == (uint8_t *)&cc->fpr[nfpr-2]) { - cc->fpr[nfpr-1].d[0] = cc->fpr[nfpr-2].d[1]; /* Split complex double. */ - cc->fpr[nfpr-2].d[1] = 0; - } -#elif LJ_TARGET_ARM64 - if (isfp == 2 && (uint8_t *)dp < (uint8_t *)cc->stack) { - /* Split float HFA or complex float into separate registers. */ - CTSize i = (sz >> 2) - 1; - do { ((uint64_t *)dp)[i] = ((uint32_t *)dp)[i]; } while (i--); - } -#else - UNUSED(isfp); -#endif - } - if (fid) lj_err_caller(L, LJ_ERR_FFI_NUMARG); /* Too few arguments. */ - -#if LJ_TARGET_X64 || LJ_TARGET_PPC - cc->nfpr = nfpr; /* Required for vararg functions. */ -#endif - cc->nsp = nsp; - cc->spadj = (CCALL_SPS_FREE + CCALL_SPS_EXTRA)*CTSIZE_PTR; - if (nsp > CCALL_SPS_FREE) - cc->spadj += (((nsp-CCALL_SPS_FREE)*CTSIZE_PTR + 15u) & ~15u); - return gcsteps; -} - -/* Get results from C call. */ -static int ccall_get_results(lua_State *L, CTState *cts, CType *ct, - CCallState *cc, int *ret) -{ - CType *ctr = ctype_rawchild(cts, ct); - uint8_t *sp = (uint8_t *)&cc->gpr[0]; - if (ctype_isvoid(ctr->info)) { - *ret = 0; /* Zero results. */ - return 0; /* No additional GC step. */ - } - *ret = 1; /* One result. */ - if (ctype_isstruct(ctr->info)) { - /* Return cdata object which is already on top of stack. */ - if (!cc->retref) { - void *dp = cdataptr(cdataV(L->top-1)); /* Use preallocated object. */ - CCALL_HANDLE_STRUCTRET2 - } - return 1; /* One GC step. */ - } - if (ctype_iscomplex(ctr->info)) { - /* Return cdata object which is already on top of stack. */ - void *dp = cdataptr(cdataV(L->top-1)); /* Use preallocated object. */ - CCALL_HANDLE_COMPLEXRET2 - return 1; /* One GC step. */ - } - if (LJ_BE && ctype_isinteger_or_bool(ctr->info) && ctr->size < CTSIZE_PTR) - sp += (CTSIZE_PTR - ctr->size); -#if CCALL_NUM_FPR - if (ctype_isfp(ctr->info) || ctype_isvector(ctr->info)) - sp = (uint8_t *)&cc->fpr[0]; -#endif -#ifdef CCALL_HANDLE_RET - CCALL_HANDLE_RET -#endif - /* No reference types end up here, so there's no need for the CTypeID. */ - lua_assert(!(ctype_isrefarray(ctr->info) || ctype_isstruct(ctr->info))); - return lj_cconv_tv_ct(cts, ctr, 0, L->top-1, sp); -} - -/* Call C function. */ -int lj_ccall_func(lua_State *L, GCcdata *cd) -{ - CTState *cts = ctype_cts(L); - CType *ct = ctype_raw(cts, cd->ctypeid); - CTSize sz = CTSIZE_PTR; - if (ctype_isptr(ct->info)) { - sz = ct->size; - ct = ctype_rawchild(cts, ct); - } - if (ctype_isfunc(ct->info)) { - CCallState cc; - int gcsteps, ret; - cc.func = (void (*)(void))cdata_getptr(cdataptr(cd), sz); - gcsteps = ccall_set_args(L, cts, ct, &cc); - ct = (CType *)((intptr_t)ct-(intptr_t)cts->tab); - cts->cb.slot = ~0u; - lj_vm_ffi_call(&cc); - if (cts->cb.slot != ~0u) { /* Blacklist function that called a callback. */ - TValue tv; - setlightudV(&tv, (void *)cc.func); - setboolV(lj_tab_set(L, cts->miscmap, &tv), 1); - } - ct = (CType *)((intptr_t)ct+(intptr_t)cts->tab); /* May be reallocated. */ - gcsteps += ccall_get_results(L, cts, ct, &cc, &ret); -#if LJ_TARGET_X86 && LJ_ABI_WIN - /* Automatically detect __stdcall and fix up C function declaration. */ - if (cc.spadj && ctype_cconv(ct->info) == CTCC_CDECL) { - CTF_INSERT(ct->info, CCONV, CTCC_STDCALL); - lj_trace_abort(G(L)); - } -#endif - while (gcsteps-- > 0) - lj_gc_check(L); - return ret; - } - return -1; /* Not a function. */ -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ccall.h b/src/3rd party/luajit-2.0-BAK/src/lj_ccall.h deleted file mode 100644 index 91983feebd7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ccall.h +++ /dev/null @@ -1,178 +0,0 @@ -/* -** FFI C call handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CCALL_H -#define _LJ_CCALL_H - -#include "lj_obj.h" -#include "lj_ctype.h" - -#if LJ_HASFFI - -/* -- C calling conventions ----------------------------------------------- */ - -#if LJ_TARGET_X86ORX64 - -#if LJ_TARGET_X86 -#define CCALL_NARG_GPR 2 /* For fastcall arguments. */ -#define CCALL_NARG_FPR 0 -#define CCALL_NRET_GPR 2 -#define CCALL_NRET_FPR 1 /* For FP results on x87 stack. */ -#define CCALL_ALIGN_STACKARG 0 /* Don't align argument on stack. */ -#elif LJ_ABI_WIN -#define CCALL_NARG_GPR 4 -#define CCALL_NARG_FPR 4 -#define CCALL_NRET_GPR 1 -#define CCALL_NRET_FPR 1 -#define CCALL_SPS_EXTRA 4 -#else -#define CCALL_NARG_GPR 6 -#define CCALL_NARG_FPR 8 -#define CCALL_NRET_GPR 2 -#define CCALL_NRET_FPR 2 -#define CCALL_VECTOR_REG 1 /* Pass vectors in registers. */ -#endif - -#define CCALL_SPS_FREE 1 -#define CCALL_ALIGN_CALLSTATE 16 - -typedef LJ_ALIGN(16) union FPRArg { - double d[2]; - float f[4]; - uint8_t b[16]; - uint16_t s[8]; - int i[4]; - int64_t l[2]; -} FPRArg; - -typedef intptr_t GPRArg; - -#elif LJ_TARGET_ARM - -#define CCALL_NARG_GPR 4 -#define CCALL_NRET_GPR 2 /* For softfp double. */ -#if LJ_ABI_SOFTFP -#define CCALL_NARG_FPR 0 -#define CCALL_NRET_FPR 0 -#else -#define CCALL_NARG_FPR 8 -#define CCALL_NRET_FPR 4 -#endif -#define CCALL_SPS_FREE 0 - -typedef intptr_t GPRArg; -typedef union FPRArg { - double d; - float f[2]; -} FPRArg; - -#elif LJ_TARGET_ARM64 - -#define CCALL_NARG_GPR 8 -#define CCALL_NRET_GPR 2 -#define CCALL_NARG_FPR 8 -#define CCALL_NRET_FPR 4 -#define CCALL_SPS_FREE 0 - -typedef intptr_t GPRArg; -typedef union FPRArg { - double d; - float f; - uint32_t u32; -} FPRArg; - -#elif LJ_TARGET_PPC - -#define CCALL_NARG_GPR 8 -#define CCALL_NARG_FPR 8 -#define CCALL_NRET_GPR 4 /* For complex double. */ -#define CCALL_NRET_FPR 1 -#define CCALL_SPS_EXTRA 4 -#define CCALL_SPS_FREE 0 - -typedef intptr_t GPRArg; -typedef double FPRArg; - -#elif LJ_TARGET_MIPS - -#define CCALL_NARG_GPR 4 -#define CCALL_NARG_FPR 2 -#define CCALL_NRET_GPR 2 -#define CCALL_NRET_FPR 2 -#define CCALL_SPS_EXTRA 7 -#define CCALL_SPS_FREE 1 - -typedef intptr_t GPRArg; -typedef union FPRArg { - double d; - struct { LJ_ENDIAN_LOHI(float f; , float g;) }; -} FPRArg; - -#else -#error "Missing calling convention definitions for this architecture" -#endif - -#ifndef CCALL_SPS_EXTRA -#define CCALL_SPS_EXTRA 0 -#endif -#ifndef CCALL_VECTOR_REG -#define CCALL_VECTOR_REG 0 -#endif -#ifndef CCALL_ALIGN_STACKARG -#define CCALL_ALIGN_STACKARG 1 -#endif -#ifndef CCALL_ALIGN_CALLSTATE -#define CCALL_ALIGN_CALLSTATE 8 -#endif - -#define CCALL_NUM_GPR \ - (CCALL_NARG_GPR > CCALL_NRET_GPR ? CCALL_NARG_GPR : CCALL_NRET_GPR) -#define CCALL_NUM_FPR \ - (CCALL_NARG_FPR > CCALL_NRET_FPR ? CCALL_NARG_FPR : CCALL_NRET_FPR) - -/* Check against constants in lj_ctype.h. */ -LJ_STATIC_ASSERT(CCALL_NUM_GPR <= CCALL_MAX_GPR); -LJ_STATIC_ASSERT(CCALL_NUM_FPR <= CCALL_MAX_FPR); - -#define CCALL_MAXSTACK 32 - -/* -- C call state -------------------------------------------------------- */ - -typedef LJ_ALIGN(CCALL_ALIGN_CALLSTATE) struct CCallState { - void (*func)(void); /* Pointer to called function. */ - uint32_t spadj; /* Stack pointer adjustment. */ - uint8_t nsp; /* Number of stack slots. */ - uint8_t retref; /* Return value by reference. */ -#if LJ_TARGET_X64 - uint8_t ngpr; /* Number of arguments in GPRs. */ - uint8_t nfpr; /* Number of arguments in FPRs. */ -#elif LJ_TARGET_X86 - uint8_t resx87; /* Result on x87 stack: 1:float, 2:double. */ -#elif LJ_TARGET_ARM64 - void *retp; /* Aggregate return pointer in x8. */ -#elif LJ_TARGET_PPC - uint8_t nfpr; /* Number of arguments in FPRs. */ -#endif -#if LJ_32 - int32_t align1; -#endif -#if CCALL_NUM_FPR - FPRArg fpr[CCALL_NUM_FPR]; /* Arguments/results in FPRs. */ -#endif - GPRArg gpr[CCALL_NUM_GPR]; /* Arguments/results in GPRs. */ - GPRArg stack[CCALL_MAXSTACK]; /* Stack slots. */ -} CCallState; - -/* -- C call handling ----------------------------------------------------- */ - -/* Really belongs to lj_vm.h. */ -LJ_ASMF void LJ_FASTCALL lj_vm_ffi_call(CCallState *cc); - -LJ_FUNC CTypeID lj_ccall_ctid_vararg(CTState *cts, cTValue *o); -LJ_FUNC int lj_ccall_func(lua_State *L, GCcdata *cd); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c b/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c deleted file mode 100644 index 66a094402bd..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.c +++ /dev/null @@ -1,707 +0,0 @@ -/* -** FFI C callback handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_state.h" -#include "lj_frame.h" -#include "lj_ctype.h" -#include "lj_cconv.h" -#include "lj_ccall.h" -#include "lj_ccallback.h" -#include "lj_target.h" -#include "lj_mcode.h" -#include "lj_trace.h" -#include "lj_vm.h" - -/* -- Target-specific handling of callback slots -------------------------- */ - -#define CALLBACK_MCODE_SIZE (LJ_PAGESIZE * LJ_NUM_CBPAGE) - -#if LJ_OS_NOJIT - -/* Callbacks disabled. */ -#define CALLBACK_SLOT2OFS(slot) (0*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (0*(ofs)) -#define CALLBACK_MAX_SLOT 0 - -#elif LJ_TARGET_X86ORX64 - -#define CALLBACK_MCODE_HEAD (LJ_64 ? 8 : 0) -#define CALLBACK_MCODE_GROUP (-2+1+2+5+(LJ_64 ? 6 : 5)) - -#define CALLBACK_SLOT2OFS(slot) \ - (CALLBACK_MCODE_HEAD + CALLBACK_MCODE_GROUP*((slot)/32) + 4*(slot)) - -static MSize CALLBACK_OFS2SLOT(MSize ofs) -{ - MSize group; - ofs -= CALLBACK_MCODE_HEAD; - group = ofs / (32*4 + CALLBACK_MCODE_GROUP); - return (ofs % (32*4 + CALLBACK_MCODE_GROUP))/4 + group*32; -} - -#define CALLBACK_MAX_SLOT \ - (((CALLBACK_MCODE_SIZE-CALLBACK_MCODE_HEAD)/(CALLBACK_MCODE_GROUP+4*32))*32) - -#elif LJ_TARGET_ARM - -#define CALLBACK_MCODE_HEAD 32 - -#elif LJ_TARGET_ARM64 - -#define CALLBACK_MCODE_HEAD 32 - -#elif LJ_TARGET_PPC - -#define CALLBACK_MCODE_HEAD 24 - -#elif LJ_TARGET_MIPS - -#define CALLBACK_MCODE_HEAD 24 - -#else - -/* Missing support for this architecture. */ -#define CALLBACK_SLOT2OFS(slot) (0*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (0*(ofs)) -#define CALLBACK_MAX_SLOT 0 - -#endif - -#ifndef CALLBACK_SLOT2OFS -#define CALLBACK_SLOT2OFS(slot) (CALLBACK_MCODE_HEAD + 8*(slot)) -#define CALLBACK_OFS2SLOT(ofs) (((ofs)-CALLBACK_MCODE_HEAD)/8) -#define CALLBACK_MAX_SLOT (CALLBACK_OFS2SLOT(CALLBACK_MCODE_SIZE)) -#endif - -/* Convert callback slot number to callback function pointer. */ -static void *callback_slot2ptr(CTState *cts, MSize slot) -{ - return (uint8_t *)cts->cb.mcode + CALLBACK_SLOT2OFS(slot); -} - -/* Convert callback function pointer to slot number. */ -MSize lj_ccallback_ptr2slot(CTState *cts, void *p) -{ - uintptr_t ofs = (uintptr_t)((uint8_t *)p -(uint8_t *)cts->cb.mcode); - if (ofs < CALLBACK_MCODE_SIZE) { - MSize slot = CALLBACK_OFS2SLOT((MSize)ofs); - if (CALLBACK_SLOT2OFS(slot) == (MSize)ofs) - return slot; - } - return ~0u; /* Not a known callback function pointer. */ -} - -/* Initialize machine code for callback function pointers. */ -#if LJ_OS_NOJIT -/* Disabled callback support. */ -#define callback_mcode_init(g, p) UNUSED(p) -#elif LJ_TARGET_X86ORX64 -static void callback_mcode_init(global_State *g, uint8_t *page) -{ - uint8_t *p = page; - uint8_t *target = (uint8_t *)(void *)lj_vm_ffi_callback; - MSize slot; -#if LJ_64 - *(void **)p = target; p += 8; -#endif - for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { - /* mov al, slot; jmp group */ - *p++ = XI_MOVrib | RID_EAX; *p++ = (uint8_t)slot; - if ((slot & 31) == 31 || slot == CALLBACK_MAX_SLOT-1) { - /* push ebp/rbp; mov ah, slot>>8; mov ebp, &g. */ - *p++ = XI_PUSH + RID_EBP; - *p++ = XI_MOVrib | (RID_EAX+4); *p++ = (uint8_t)(slot >> 8); - *p++ = XI_MOVri | RID_EBP; - *(int32_t *)p = i32ptr(g); p += 4; -#if LJ_64 - /* jmp [rip-pageofs] where lj_vm_ffi_callback is stored. */ - *p++ = XI_GROUP5; *p++ = XM_OFS0 + (XOg_JMP<<3) + RID_EBP; - *(int32_t *)p = (int32_t)(page-(p+4)); p += 4; -#else - /* jmp lj_vm_ffi_callback. */ - *p++ = XI_JMP; *(int32_t *)p = target-(p+4); p += 4; -#endif - } else { - *p++ = XI_JMPs; *p++ = (uint8_t)((2+2)*(31-(slot&31)) - 2); - } - } - lua_assert(p - page <= CALLBACK_MCODE_SIZE); -} -#elif LJ_TARGET_ARM -static void callback_mcode_init(global_State *g, uint32_t *page) -{ - uint32_t *p = page; - void *target = (void *)lj_vm_ffi_callback; - MSize slot; - /* This must match with the saveregs macro in buildvm_arm.dasc. */ - *p++ = ARMI_SUB|ARMF_D(RID_R12)|ARMF_N(RID_R12)|ARMF_M(RID_PC); - *p++ = ARMI_PUSH|ARMF_N(RID_SP)|RSET_RANGE(RID_R4,RID_R11+1)|RID2RSET(RID_LR); - *p++ = ARMI_SUB|ARMI_K12|ARMF_D(RID_R12)|ARMF_N(RID_R12)|CALLBACK_MCODE_HEAD; - *p++ = ARMI_STR|ARMI_LS_P|ARMI_LS_W|ARMF_D(RID_R12)|ARMF_N(RID_SP)|(CFRAME_SIZE-4*9); - *p++ = ARMI_LDR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_R12)|ARMF_N(RID_PC); - *p++ = ARMI_LDR|ARMI_LS_P|ARMI_LS_U|ARMF_D(RID_PC)|ARMF_N(RID_PC); - *p++ = u32ptr(g); - *p++ = u32ptr(target); - for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { - *p++ = ARMI_MOV|ARMF_D(RID_R12)|ARMF_M(RID_PC); - *p = ARMI_B | ((page-p-2) & 0x00ffffffu); - p++; - } - lua_assert(p - page <= CALLBACK_MCODE_SIZE); -} -#elif LJ_TARGET_ARM64 -static void callback_mcode_init(global_State *g, uint32_t *page) -{ - uint32_t *p = page; - void *target = (void *)lj_vm_ffi_callback; - MSize slot; - *p++ = A64I_LDRLx | A64F_D(RID_X11) | A64F_S19(4); - *p++ = A64I_LDRLx | A64F_D(RID_X10) | A64F_S19(5); - *p++ = A64I_BR | A64F_N(RID_X11); - *p++ = A64I_NOP; - ((void **)p)[0] = target; - ((void **)p)[1] = g; - p += 4; - for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { - *p++ = A64I_MOVZw | A64F_D(RID_X9) | A64F_U16(slot); - *p = A64I_B | A64F_S26((page-p) & 0x03ffffffu); - p++; - } - lua_assert(p - page <= CALLBACK_MCODE_SIZE); -} -#elif LJ_TARGET_PPC -static void callback_mcode_init(global_State *g, uint32_t *page) -{ - uint32_t *p = page; - void *target = (void *)lj_vm_ffi_callback; - MSize slot; - *p++ = PPCI_LIS | PPCF_T(RID_TMP) | (u32ptr(target) >> 16); - *p++ = PPCI_LIS | PPCF_T(RID_R12) | (u32ptr(g) >> 16); - *p++ = PPCI_ORI | PPCF_A(RID_TMP)|PPCF_T(RID_TMP) | (u32ptr(target) & 0xffff); - *p++ = PPCI_ORI | PPCF_A(RID_R12)|PPCF_T(RID_R12) | (u32ptr(g) & 0xffff); - *p++ = PPCI_MTCTR | PPCF_T(RID_TMP); - *p++ = PPCI_BCTR; - for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { - *p++ = PPCI_LI | PPCF_T(RID_R11) | slot; - *p = PPCI_B | (((page-p) & 0x00ffffffu) << 2); - p++; - } - lua_assert(p - page <= CALLBACK_MCODE_SIZE); -} -#elif LJ_TARGET_MIPS -static void callback_mcode_init(global_State *g, uint32_t *page) -{ - uint32_t *p = page; - void *target = (void *)lj_vm_ffi_callback; - MSize slot; - *p++ = MIPSI_SW | MIPSF_T(RID_R1)|MIPSF_S(RID_SP) | 0; - *p++ = MIPSI_LUI | MIPSF_T(RID_R3) | (u32ptr(target) >> 16); - *p++ = MIPSI_LUI | MIPSF_T(RID_R2) | (u32ptr(g) >> 16); - *p++ = MIPSI_ORI | MIPSF_T(RID_R3)|MIPSF_S(RID_R3) |(u32ptr(target)&0xffff); - *p++ = MIPSI_JR | MIPSF_S(RID_R3); - *p++ = MIPSI_ORI | MIPSF_T(RID_R2)|MIPSF_S(RID_R2) | (u32ptr(g)&0xffff); - for (slot = 0; slot < CALLBACK_MAX_SLOT; slot++) { - *p = MIPSI_B | ((page-p-1) & 0x0000ffffu); - p++; - *p++ = MIPSI_LI | MIPSF_T(RID_R1) | slot; - } - lua_assert(p - page <= CALLBACK_MCODE_SIZE); -} -#else -/* Missing support for this architecture. */ -#define callback_mcode_init(g, p) UNUSED(p) -#endif - -/* -- Machine code management --------------------------------------------- */ - -#if LJ_TARGET_WINDOWS - -#define WIN32_LEAN_AND_MEAN -#include - -#elif LJ_TARGET_POSIX - -#include -#ifndef MAP_ANONYMOUS -#define MAP_ANONYMOUS MAP_ANON -#endif - -#endif - -/* Allocate and initialize area for callback function pointers. */ -static void callback_mcode_new(CTState *cts) -{ - size_t sz = (size_t)CALLBACK_MCODE_SIZE; - void *p; - if (CALLBACK_MAX_SLOT == 0) - lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); -#if LJ_TARGET_WINDOWS - p = VirtualAlloc(NULL, sz, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); - if (!p) - lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); -#elif LJ_TARGET_POSIX - p = mmap(NULL, sz, (PROT_READ|PROT_WRITE), MAP_PRIVATE|MAP_ANONYMOUS, - -1, 0); - if (p == MAP_FAILED) - lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); -#else - /* Fallback allocator. Fails if memory is not executable by default. */ - p = lj_mem_new(cts->L, sz); -#endif - cts->cb.mcode = p; - callback_mcode_init(cts->g, p); - lj_mcode_sync(p, (char *)p + sz); -#if LJ_TARGET_WINDOWS - { - DWORD oprot; - VirtualProtect(p, sz, PAGE_EXECUTE_READ, &oprot); - } -#elif LJ_TARGET_POSIX - mprotect(p, sz, (PROT_READ|PROT_EXEC)); -#endif -} - -/* Free area for callback function pointers. */ -void lj_ccallback_mcode_free(CTState *cts) -{ - size_t sz = (size_t)CALLBACK_MCODE_SIZE; - void *p = cts->cb.mcode; - if (p == NULL) return; -#if LJ_TARGET_WINDOWS - VirtualFree(p, 0, MEM_RELEASE); - UNUSED(sz); -#elif LJ_TARGET_POSIX - munmap(p, sz); -#else - lj_mem_free(cts->g, p, sz); -#endif -} - -/* -- C callback entry ---------------------------------------------------- */ - -/* Target-specific handling of register arguments. Similar to lj_ccall.c. */ -#if LJ_TARGET_X86 - -#define CALLBACK_HANDLE_REGARG \ - if (!isfp) { /* Only non-FP values may be passed in registers. */ \ - if (n > 1) { /* Anything > 32 bit is passed on the stack. */ \ - if (!LJ_ABI_WIN) ngpr = maxgpr; /* Prevent reordering. */ \ - } else if (ngpr + 1 <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#elif LJ_TARGET_X64 && LJ_ABI_WIN - -/* Windows/x64 argument registers are strictly positional (use ngpr). */ -#define CALLBACK_HANDLE_REGARG \ - if (isfp) { \ - if (ngpr < maxgpr) { sp = &cts->cb.fpr[ngpr++]; UNUSED(nfpr); goto done; } \ - } else { \ - if (ngpr < maxgpr) { sp = &cts->cb.gpr[ngpr++]; goto done; } \ - } - -#elif LJ_TARGET_X64 - -#define CALLBACK_HANDLE_REGARG \ - if (isfp) { \ - if (nfpr + n <= CCALL_NARG_FPR) { \ - sp = &cts->cb.fpr[nfpr]; \ - nfpr += n; \ - goto done; \ - } \ - } else { \ - if (ngpr + n <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#elif LJ_TARGET_ARM - -#if LJ_ABI_SOFTFP - -#define CALLBACK_HANDLE_REGARG_FP1 UNUSED(isfp); -#define CALLBACK_HANDLE_REGARG_FP2 - -#else - -#define CALLBACK_HANDLE_REGARG_FP1 \ - if (isfp) { \ - if (n == 1) { \ - if (fprodd) { \ - sp = &cts->cb.fpr[fprodd-1]; \ - fprodd = 0; \ - goto done; \ - } else if (nfpr + 1 <= CCALL_NARG_FPR) { \ - sp = &cts->cb.fpr[nfpr++]; \ - fprodd = nfpr; \ - goto done; \ - } \ - } else { \ - if (nfpr + 1 <= CCALL_NARG_FPR) { \ - sp = &cts->cb.fpr[nfpr++]; \ - goto done; \ - } \ - } \ - fprodd = 0; /* No reordering after the first FP value is on stack. */ \ - } else { - -#define CALLBACK_HANDLE_REGARG_FP2 } - -#endif - -#define CALLBACK_HANDLE_REGARG \ - CALLBACK_HANDLE_REGARG_FP1 \ - if (n > 1) ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - if (ngpr + n <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } CALLBACK_HANDLE_REGARG_FP2 - -#elif LJ_TARGET_ARM64 - -#define CALLBACK_HANDLE_REGARG \ - if (isfp) { \ - if (nfpr + n <= CCALL_NARG_FPR) { \ - sp = &cts->cb.fpr[nfpr]; \ - nfpr += n; \ - goto done; \ - } else { \ - nfpr = CCALL_NARG_FPR; /* Prevent reordering. */ \ - } \ - } else { \ - if (!LJ_TARGET_IOS && n > 1) \ - ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - if (ngpr + n <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } else { \ - ngpr = CCALL_NARG_GPR; /* Prevent reordering. */ \ - } \ - } - -#elif LJ_TARGET_PPC - -#define CALLBACK_HANDLE_REGARG \ - if (isfp) { \ - if (nfpr + 1 <= CCALL_NARG_FPR) { \ - sp = &cts->cb.fpr[nfpr++]; \ - cta = ctype_get(cts, CTID_DOUBLE); /* FPRs always hold doubles. */ \ - goto done; \ - } \ - } else { /* Try to pass argument in GPRs. */ \ - if (n > 1) { \ - lua_assert(ctype_isinteger(cta->info) && n == 2); /* int64_t. */ \ - ngpr = (ngpr + 1u) & ~1u; /* Align int64_t to regpair. */ \ - } \ - if (ngpr + n <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#define CALLBACK_HANDLE_RET \ - if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ - *(double *)dp = *(float *)dp; /* FPRs always hold doubles. */ - -#elif LJ_TARGET_MIPS - -#define CALLBACK_HANDLE_REGARG \ - if (isfp && nfpr < CCALL_NARG_FPR) { /* Try to pass argument in FPRs. */ \ - sp = (void *)((uint8_t *)&cts->cb.fpr[nfpr] + ((LJ_BE && n==1) ? 4 : 0)); \ - nfpr++; ngpr += n; \ - goto done; \ - } else { /* Try to pass argument in GPRs. */ \ - nfpr = CCALL_NARG_FPR; \ - if (n > 1) ngpr = (ngpr + 1u) & ~1u; /* Align to regpair. */ \ - if (ngpr + n <= maxgpr) { \ - sp = &cts->cb.gpr[ngpr]; \ - ngpr += n; \ - goto done; \ - } \ - } - -#define CALLBACK_HANDLE_RET \ - if (ctype_isfp(ctr->info) && ctr->size == sizeof(float)) \ - ((float *)dp)[1] = *(float *)dp; - -#else -#error "Missing calling convention definitions for this architecture" -#endif - -/* Convert and push callback arguments to Lua stack. */ -static void callback_conv_args(CTState *cts, lua_State *L) -{ - TValue *o = L->top; - intptr_t *stack = cts->cb.stack; - MSize slot = cts->cb.slot; - CTypeID id = 0, rid, fid; - int gcsteps = 0; - CType *ct; - GCfunc *fn; - int fntp; - MSize ngpr = 0, nsp = 0, maxgpr = CCALL_NARG_GPR; -#if CCALL_NARG_FPR - MSize nfpr = 0; -#if LJ_TARGET_ARM - MSize fprodd = 0; -#endif -#endif - - if (slot < cts->cb.sizeid && (id = cts->cb.cbid[slot]) != 0) { - ct = ctype_get(cts, id); - rid = ctype_cid(ct->info); /* Return type. x86: +(spadj<<16). */ - fn = funcV(lj_tab_getint(cts->miscmap, (int32_t)slot)); - fntp = LJ_TFUNC; - } else { /* Must set up frame first, before throwing the error. */ - ct = NULL; - rid = 0; - fn = (GCfunc *)L; - fntp = LJ_TTHREAD; - } - /* Continuation returns from callback. */ - if (LJ_FR2) { - (o++)->u64 = LJ_CONT_FFI_CALLBACK; - (o++)->u64 = rid; - o++; - } else { - o->u32.lo = LJ_CONT_FFI_CALLBACK; - o->u32.hi = rid; - o++; - } - setframe_gc(o, obj2gco(fn), fntp); - setframe_ftsz(o, ((char *)(o+1) - (char *)L->base) + FRAME_CONT); - L->top = L->base = ++o; - if (!ct) - lj_err_caller(cts->L, LJ_ERR_FFI_BADCBACK); - if (isluafunc(fn)) - setcframe_pc(L->cframe, proto_bc(funcproto(fn))+1); - lj_state_checkstack(L, LUA_MINSTACK); /* May throw. */ - o = L->base; /* Might have been reallocated. */ - -#if LJ_TARGET_X86 - /* x86 has several different calling conventions. */ - switch (ctype_cconv(ct->info)) { - case CTCC_FASTCALL: maxgpr = 2; break; - case CTCC_THISCALL: maxgpr = 1; break; - default: maxgpr = 0; break; - } -#endif - - fid = ct->sib; - while (fid) { - CType *ctf = ctype_get(cts, fid); - if (!ctype_isattrib(ctf->info)) { - CType *cta; - void *sp; - CTSize sz; - int isfp; - MSize n; - lua_assert(ctype_isfield(ctf->info)); - cta = ctype_rawchild(cts, ctf); - isfp = ctype_isfp(cta->info); - sz = (cta->size + CTSIZE_PTR-1) & ~(CTSIZE_PTR-1); - n = sz / CTSIZE_PTR; /* Number of GPRs or stack slots needed. */ - - CALLBACK_HANDLE_REGARG /* Handle register arguments. */ - - /* Otherwise pass argument on stack. */ - if (CCALL_ALIGN_STACKARG && LJ_32 && sz == 8) - nsp = (nsp + 1) & ~1u; /* Align 64 bit argument on stack. */ - sp = &stack[nsp]; - nsp += n; - - done: - if (LJ_BE && cta->size < CTSIZE_PTR) - sp = (void *)((uint8_t *)sp + CTSIZE_PTR-cta->size); - gcsteps += lj_cconv_tv_ct(cts, cta, 0, o++, sp); - } - fid = ctf->sib; - } - L->top = o; -#if LJ_TARGET_X86 - /* Store stack adjustment for returns from non-cdecl callbacks. */ - if (ctype_cconv(ct->info) != CTCC_CDECL) { -#if LJ_FR2 - (L->base-3)->u64 |= (nsp << (16+2)); -#else - (L->base-2)->u32.hi |= (nsp << (16+2)); -#endif - } -#endif - while (gcsteps-- > 0) - lj_gc_check(L); -} - -/* Convert Lua object to callback result. */ -static void callback_conv_result(CTState *cts, lua_State *L, TValue *o) -{ -#if LJ_FR2 - CType *ctr = ctype_raw(cts, (uint16_t)(L->base-3)->u64); -#else - CType *ctr = ctype_raw(cts, (uint16_t)(L->base-2)->u32.hi); -#endif -#if LJ_TARGET_X86 - cts->cb.gpr[2] = 0; -#endif - if (!ctype_isvoid(ctr->info)) { - uint8_t *dp = (uint8_t *)&cts->cb.gpr[0]; -#if CCALL_NUM_FPR - if (ctype_isfp(ctr->info)) - dp = (uint8_t *)&cts->cb.fpr[0]; -#endif - lj_cconv_ct_tv(cts, ctr, dp, o, 0); -#ifdef CALLBACK_HANDLE_RET - CALLBACK_HANDLE_RET -#endif - /* Extend returned integers to (at least) 32 bits. */ - if (ctype_isinteger_or_bool(ctr->info) && ctr->size < 4) { - if (ctr->info & CTF_UNSIGNED) - *(uint32_t *)dp = ctr->size == 1 ? (uint32_t)*(uint8_t *)dp : - (uint32_t)*(uint16_t *)dp; - else - *(int32_t *)dp = ctr->size == 1 ? (int32_t)*(int8_t *)dp : - (int32_t)*(int16_t *)dp; - } -#if LJ_TARGET_X86 - if (ctype_isfp(ctr->info)) - cts->cb.gpr[2] = ctr->size == sizeof(float) ? 1 : 2; -#endif - } -} - -/* Enter callback. */ -lua_State * LJ_FASTCALL lj_ccallback_enter(CTState *cts, void *cf) -{ - lua_State *L = cts->L; - global_State *g = cts->g; - lua_assert(L != NULL); - if (tvref(g->jit_base)) { - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_FFI_BADCBACK)); - if (g->panic) g->panic(L); - exit(EXIT_FAILURE); - } - lj_trace_abort(g); /* Never record across callback. */ - /* Setup C frame. */ - cframe_prev(cf) = L->cframe; - setcframe_L(cf, L); - cframe_errfunc(cf) = -1; - cframe_nres(cf) = 0; - L->cframe = cf; - callback_conv_args(cts, L); - return L; /* Now call the function on this stack. */ -} - -/* Leave callback. */ -void LJ_FASTCALL lj_ccallback_leave(CTState *cts, TValue *o) -{ - lua_State *L = cts->L; - GCfunc *fn; - TValue *obase = L->base; - L->base = L->top; /* Keep continuation frame for throwing errors. */ - if (o >= L->base) { - /* PC of RET* is lost. Point to last line for result conv. errors. */ - fn = curr_func(L); - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - setcframe_pc(L->cframe, proto_bc(pt)+pt->sizebc+1); - } - } - callback_conv_result(cts, L, o); - /* Finally drop C frame and continuation frame. */ - L->top -= 2+2*LJ_FR2; - L->base = obase; - L->cframe = cframe_prev(L->cframe); - cts->cb.slot = 0; /* Blacklist C function that called the callback. */ -} - -/* -- C callback management ----------------------------------------------- */ - -/* Get an unused slot in the callback slot table. */ -static MSize callback_slot_new(CTState *cts, CType *ct) -{ - CTypeID id = ctype_typeid(cts, ct); - CTypeID1 *cbid = cts->cb.cbid; - MSize top; - for (top = cts->cb.topid; top < cts->cb.sizeid; top++) - if (LJ_LIKELY(cbid[top] == 0)) - goto found; -#if CALLBACK_MAX_SLOT - if (top >= CALLBACK_MAX_SLOT) -#endif - lj_err_caller(cts->L, LJ_ERR_FFI_CBACKOV); - if (!cts->cb.mcode) - callback_mcode_new(cts); - lj_mem_growvec(cts->L, cbid, cts->cb.sizeid, CALLBACK_MAX_SLOT, CTypeID1); - cts->cb.cbid = cbid; - memset(cbid+top, 0, (cts->cb.sizeid-top)*sizeof(CTypeID1)); -found: - cbid[top] = id; - cts->cb.topid = top+1; - return top; -} - -/* Check for function pointer and supported argument/result types. */ -static CType *callback_checkfunc(CTState *cts, CType *ct) -{ - int narg = 0; - if (!ctype_isptr(ct->info) || (LJ_64 && ct->size != CTSIZE_PTR)) - return NULL; - ct = ctype_rawchild(cts, ct); - if (ctype_isfunc(ct->info)) { - CType *ctr = ctype_rawchild(cts, ct); - CTypeID fid = ct->sib; - if (!(ctype_isvoid(ctr->info) || ctype_isenum(ctr->info) || - ctype_isptr(ctr->info) || (ctype_isnum(ctr->info) && ctr->size <= 8))) - return NULL; - if ((ct->info & CTF_VARARG)) - return NULL; - while (fid) { - CType *ctf = ctype_get(cts, fid); - if (!ctype_isattrib(ctf->info)) { - CType *cta; - lua_assert(ctype_isfield(ctf->info)); - cta = ctype_rawchild(cts, ctf); - if (!(ctype_isenum(cta->info) || ctype_isptr(cta->info) || - (ctype_isnum(cta->info) && cta->size <= 8)) || - ++narg >= LUA_MINSTACK-3) - return NULL; - } - fid = ctf->sib; - } - return ct; - } - return NULL; -} - -/* Create a new callback and return the callback function pointer. */ -void *lj_ccallback_new(CTState *cts, CType *ct, GCfunc *fn) -{ - ct = callback_checkfunc(cts, ct); - if (ct) { - MSize slot = callback_slot_new(cts, ct); - GCtab *t = cts->miscmap; - setfuncV(cts->L, lj_tab_setint(cts->L, t, (int32_t)slot), fn); - lj_gc_anybarriert(cts->L, t); - return callback_slot2ptr(cts, slot); - } - return NULL; /* Bad conversion. */ -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h b/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h deleted file mode 100644 index 83dbe048b5b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ccallback.h +++ /dev/null @@ -1,25 +0,0 @@ -/* -** FFI C callback handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CCALLBACK_H -#define _LJ_CCALLBACK_H - -#include "lj_obj.h" -#include "lj_ctype.h" - -#if LJ_HASFFI - -/* Really belongs to lj_vm.h. */ -LJ_ASMF void lj_vm_ffi_callback(void); - -LJ_FUNC MSize lj_ccallback_ptr2slot(CTState *cts, void *p); -LJ_FUNCA lua_State * LJ_FASTCALL lj_ccallback_enter(CTState *cts, void *cf); -LJ_FUNCA void LJ_FASTCALL lj_ccallback_leave(CTState *cts, TValue *o); -LJ_FUNC void *lj_ccallback_new(CTState *cts, CType *ct, GCfunc *fn); -LJ_FUNC void lj_ccallback_mcode_free(CTState *cts); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cconv.c b/src/3rd party/luajit-2.0-BAK/src/lj_cconv.c deleted file mode 100644 index 8a270766fb9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cconv.c +++ /dev/null @@ -1,752 +0,0 @@ -/* -** C type conversions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lj_cconv.h" -#include "lj_ccallback.h" - -/* -- Conversion errors --------------------------------------------------- */ - -/* Bad conversion. */ -LJ_NORET static void cconv_err_conv(CTState *cts, CType *d, CType *s, - CTInfo flags) -{ - const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); - const char *src; - if ((flags & CCF_FROMTV)) - src = lj_obj_typename[1+(ctype_isnum(s->info) ? LUA_TNUMBER : - ctype_isarray(s->info) ? LUA_TSTRING : LUA_TNIL)]; - else - src = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, s), NULL)); - if (CCF_GETARG(flags)) - lj_err_argv(cts->L, CCF_GETARG(flags), LJ_ERR_FFI_BADCONV, src, dst); - else - lj_err_callerv(cts->L, LJ_ERR_FFI_BADCONV, src, dst); -} - -/* Bad conversion from TValue. */ -LJ_NORET static void cconv_err_convtv(CTState *cts, CType *d, TValue *o, - CTInfo flags) -{ - const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); - const char *src = lj_typename(o); - if (CCF_GETARG(flags)) - lj_err_argv(cts->L, CCF_GETARG(flags), LJ_ERR_FFI_BADCONV, src, dst); - else - lj_err_callerv(cts->L, LJ_ERR_FFI_BADCONV, src, dst); -} - -/* Initializer overflow. */ -LJ_NORET static void cconv_err_initov(CTState *cts, CType *d) -{ - const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL)); - lj_err_callerv(cts->L, LJ_ERR_FFI_INITOV, dst); -} - -/* -- C type compatibility checks ----------------------------------------- */ - -/* Get raw type and qualifiers for a child type. Resolves enums, too. */ -static CType *cconv_childqual(CTState *cts, CType *ct, CTInfo *qual) -{ - ct = ctype_child(cts, ct); - for (;;) { - if (ctype_isattrib(ct->info)) { - if (ctype_attrib(ct->info) == CTA_QUAL) *qual |= ct->size; - } else if (!ctype_isenum(ct->info)) { - break; - } - ct = ctype_child(cts, ct); - } - *qual |= (ct->info & CTF_QUAL); - return ct; -} - -/* Check for compatible types when converting to a pointer. -** Note: these checks are more relaxed than what C99 mandates. -*/ -int lj_cconv_compatptr(CTState *cts, CType *d, CType *s, CTInfo flags) -{ - if (!((flags & CCF_CAST) || d == s)) { - CTInfo dqual = 0, squal = 0; - d = cconv_childqual(cts, d, &dqual); - if (!ctype_isstruct(s->info)) - s = cconv_childqual(cts, s, &squal); - if ((flags & CCF_SAME)) { - if (dqual != squal) - return 0; /* Different qualifiers. */ - } else if (!(flags & CCF_IGNQUAL)) { - if ((dqual & squal) != squal) - return 0; /* Discarded qualifiers. */ - if (ctype_isvoid(d->info) || ctype_isvoid(s->info)) - return 1; /* Converting to/from void * is always ok. */ - } - if (ctype_type(d->info) != ctype_type(s->info) || - d->size != s->size) - return 0; /* Different type or different size. */ - if (ctype_isnum(d->info)) { - if (((d->info ^ s->info) & (CTF_BOOL|CTF_FP))) - return 0; /* Different numeric types. */ - } else if (ctype_ispointer(d->info)) { - /* Check child types for compatibility. */ - return lj_cconv_compatptr(cts, d, s, flags|CCF_SAME); - } else if (ctype_isstruct(d->info)) { - if (d != s) - return 0; /* Must be exact same type for struct/union. */ - } else if (ctype_isfunc(d->info)) { - /* NYI: structural equality of functions. */ - } - } - return 1; /* Types are compatible. */ -} - -/* -- C type to C type conversion ----------------------------------------- */ - -/* Convert C type to C type. Caveat: expects to get the raw CType! -** -** Note: This is only used by the interpreter and not optimized at all. -** The JIT compiler will do a much better job specializing for each case. -*/ -void lj_cconv_ct_ct(CTState *cts, CType *d, CType *s, - uint8_t *dp, uint8_t *sp, CTInfo flags) -{ - CTSize dsize = d->size, ssize = s->size; - CTInfo dinfo = d->info, sinfo = s->info; - void *tmpptr; - - lua_assert(!ctype_isenum(dinfo) && !ctype_isenum(sinfo)); - lua_assert(!ctype_isattrib(dinfo) && !ctype_isattrib(sinfo)); - - if (ctype_type(dinfo) > CT_MAYCONVERT || ctype_type(sinfo) > CT_MAYCONVERT) - goto err_conv; - - /* Some basic sanity checks. */ - lua_assert(!ctype_isnum(dinfo) || dsize > 0); - lua_assert(!ctype_isnum(sinfo) || ssize > 0); - lua_assert(!ctype_isbool(dinfo) || dsize == 1 || dsize == 4); - lua_assert(!ctype_isbool(sinfo) || ssize == 1 || ssize == 4); - lua_assert(!ctype_isinteger(dinfo) || (1u< ssize) { /* Zero-extend or sign-extend LSB. */ -#if LJ_LE - uint8_t fill = (!(sinfo & CTF_UNSIGNED) && (sp[ssize-1]&0x80)) ? 0xff : 0; - memcpy(dp, sp, ssize); - memset(dp + ssize, fill, dsize-ssize); -#else - uint8_t fill = (!(sinfo & CTF_UNSIGNED) && (sp[0]&0x80)) ? 0xff : 0; - memset(dp, fill, dsize-ssize); - memcpy(dp + (dsize-ssize), sp, ssize); -#endif - } else { /* Copy LSB. */ -#if LJ_LE - memcpy(dp, sp, dsize); -#else - memcpy(dp, sp + (ssize-dsize), dsize); -#endif - } - break; - case CCX(I, F): { - double n; /* Always convert via double. */ - conv_I_F: - /* Convert source to double. */ - if (ssize == sizeof(double)) n = *(double *)sp; - else if (ssize == sizeof(float)) n = (double)*(float *)sp; - else goto err_conv; /* NYI: long double. */ - /* Then convert double to integer. */ - /* The conversion must exactly match the semantics of JIT-compiled code! */ - if (dsize < 4 || (dsize == 4 && !(dinfo & CTF_UNSIGNED))) { - int32_t i = (int32_t)n; - if (dsize == 4) *(int32_t *)dp = i; - else if (dsize == 2) *(int16_t *)dp = (int16_t)i; - else *(int8_t *)dp = (int8_t)i; - } else if (dsize == 4) { - *(uint32_t *)dp = (uint32_t)n; - } else if (dsize == 8) { - if (!(dinfo & CTF_UNSIGNED)) - *(int64_t *)dp = (int64_t)n; - else - *(uint64_t *)dp = lj_num2u64(n); - } else { - goto err_conv; /* NYI: conversion to >64 bit integers. */ - } - break; - } - case CCX(I, C): - s = ctype_child(cts, s); - sinfo = s->info; - ssize = s->size; - goto conv_I_F; /* Just convert re. */ - case CCX(I, P): - if (!(flags & CCF_CAST)) goto err_conv; - sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); - goto conv_I_I; - case CCX(I, A): - if (!(flags & CCF_CAST)) goto err_conv; - sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); - ssize = CTSIZE_PTR; - tmpptr = sp; - sp = (uint8_t *)&tmpptr; - goto conv_I_I; - - /* Destination is a floating-point number. */ - case CCX(F, B): - case CCX(F, I): { - double n; /* Always convert via double. */ - conv_F_I: - /* First convert source to double. */ - /* The conversion must exactly match the semantics of JIT-compiled code! */ - if (ssize < 4 || (ssize == 4 && !(sinfo & CTF_UNSIGNED))) { - int32_t i; - if (ssize == 4) { - i = *(int32_t *)sp; - } else if (!(sinfo & CTF_UNSIGNED)) { - if (ssize == 2) i = *(int16_t *)sp; - else i = *(int8_t *)sp; - } else { - if (ssize == 2) i = *(uint16_t *)sp; - else i = *(uint8_t *)sp; - } - n = (double)i; - } else if (ssize == 4) { - n = (double)*(uint32_t *)sp; - } else if (ssize == 8) { - if (!(sinfo & CTF_UNSIGNED)) n = (double)*(int64_t *)sp; - else n = (double)*(uint64_t *)sp; - } else { - goto err_conv; /* NYI: conversion from >64 bit integers. */ - } - /* Convert double to destination. */ - if (dsize == sizeof(double)) *(double *)dp = n; - else if (dsize == sizeof(float)) *(float *)dp = (float)n; - else goto err_conv; /* NYI: long double. */ - break; - } - case CCX(F, F): { - double n; /* Always convert via double. */ - conv_F_F: - if (ssize == dsize) goto copyval; - /* Convert source to double. */ - if (ssize == sizeof(double)) n = *(double *)sp; - else if (ssize == sizeof(float)) n = (double)*(float *)sp; - else goto err_conv; /* NYI: long double. */ - /* Convert double to destination. */ - if (dsize == sizeof(double)) *(double *)dp = n; - else if (dsize == sizeof(float)) *(float *)dp = (float)n; - else goto err_conv; /* NYI: long double. */ - break; - } - case CCX(F, C): - s = ctype_child(cts, s); - sinfo = s->info; - ssize = s->size; - goto conv_F_F; /* Ignore im, and convert from re. */ - - /* Destination is a complex number. */ - case CCX(C, I): - d = ctype_child(cts, d); - dinfo = d->info; - dsize = d->size; - memset(dp + dsize, 0, dsize); /* Clear im. */ - goto conv_F_I; /* Convert to re. */ - case CCX(C, F): - d = ctype_child(cts, d); - dinfo = d->info; - dsize = d->size; - memset(dp + dsize, 0, dsize); /* Clear im. */ - goto conv_F_F; /* Convert to re. */ - - case CCX(C, C): - if (dsize != ssize) { /* Different types: convert re/im separately. */ - CType *dc = ctype_child(cts, d); - CType *sc = ctype_child(cts, s); - lj_cconv_ct_ct(cts, dc, sc, dp, sp, flags); - lj_cconv_ct_ct(cts, dc, sc, dp + dc->size, sp + sc->size, flags); - return; - } - goto copyval; /* Otherwise this is easy. */ - - /* Destination is a vector. */ - case CCX(V, I): - case CCX(V, F): - case CCX(V, C): { - CType *dc = ctype_child(cts, d); - CTSize esize; - /* First convert the scalar to the first element. */ - lj_cconv_ct_ct(cts, dc, s, dp, sp, flags); - /* Then replicate it to the other elements (splat). */ - for (sp = dp, esize = dc->size; dsize > esize; dsize -= esize) { - dp += esize; - memcpy(dp, sp, esize); - } - break; - } - - case CCX(V, V): - /* Copy same-sized vectors, even for different lengths/element-types. */ - if (dsize != ssize) goto err_conv; - goto copyval; - - /* Destination is a pointer. */ - case CCX(P, I): - if (!(flags & CCF_CAST)) goto err_conv; - dinfo = CTINFO(CT_NUM, CTF_UNSIGNED); - goto conv_I_I; - - case CCX(P, F): - if (!(flags & CCF_CAST) || !(flags & CCF_FROMTV)) goto err_conv; - /* The signed conversion is cheaper. x64 really has 47 bit pointers. */ - dinfo = CTINFO(CT_NUM, (LJ_64 && dsize == 8) ? 0 : CTF_UNSIGNED); - goto conv_I_F; - - case CCX(P, P): - if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv; - cdata_setptr(dp, dsize, cdata_getptr(sp, ssize)); - break; - - case CCX(P, A): - case CCX(P, S): - if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv; - cdata_setptr(dp, dsize, sp); - break; - - /* Destination is an array. */ - case CCX(A, A): - if ((flags & CCF_CAST) || (d->info & CTF_VLA) || dsize != ssize || - d->size == CTSIZE_INVALID || !lj_cconv_compatptr(cts, d, s, flags)) - goto err_conv; - goto copyval; - - /* Destination is a struct/union. */ - case CCX(S, S): - if ((flags & CCF_CAST) || (d->info & CTF_VLA) || d != s) - goto err_conv; /* Must be exact same type. */ -copyval: /* Copy value. */ - lua_assert(dsize == ssize); - memcpy(dp, sp, dsize); - break; - - default: - err_conv: - cconv_err_conv(cts, d, s, flags); - } -} - -/* -- C type to TValue conversion ----------------------------------------- */ - -/* Convert C type to TValue. Caveat: expects to get the raw CType! */ -int lj_cconv_tv_ct(CTState *cts, CType *s, CTypeID sid, - TValue *o, uint8_t *sp) -{ - CTInfo sinfo = s->info; - if (ctype_isnum(sinfo)) { - if (!ctype_isbool(sinfo)) { - if (ctype_isinteger(sinfo) && s->size > 4) goto copyval; - if (LJ_DUALNUM && ctype_isinteger(sinfo)) { - int32_t i; - lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT32), s, - (uint8_t *)&i, sp, 0); - if ((sinfo & CTF_UNSIGNED) && i < 0) - setnumV(o, (lua_Number)(uint32_t)i); - else - setintV(o, i); - } else { - lj_cconv_ct_ct(cts, ctype_get(cts, CTID_DOUBLE), s, - (uint8_t *)&o->n, sp, 0); - /* Numbers are NOT canonicalized here! Beware of uninitialized data. */ - lua_assert(tvisnum(o)); - } - } else { - uint32_t b = s->size == 1 ? (*sp != 0) : (*(int *)sp != 0); - setboolV(o, b); - setboolV(&cts->g->tmptv2, b); /* Remember for trace recorder. */ - } - return 0; - } else if (ctype_isrefarray(sinfo) || ctype_isstruct(sinfo)) { - /* Create reference. */ - setcdataV(cts->L, o, lj_cdata_newref(cts, sp, sid)); - return 1; /* Need GC step. */ - } else { - GCcdata *cd; - CTSize sz; - copyval: /* Copy value. */ - sz = s->size; - lua_assert(sz != CTSIZE_INVALID); - /* Attributes are stripped, qualifiers are kept (but mostly ignored). */ - cd = lj_cdata_new(cts, ctype_typeid(cts, s), sz); - setcdataV(cts->L, o, cd); - memcpy(cdataptr(cd), sp, sz); - return 1; /* Need GC step. */ - } -} - -/* Convert bitfield to TValue. */ -int lj_cconv_tv_bf(CTState *cts, CType *s, TValue *o, uint8_t *sp) -{ - CTInfo info = s->info; - CTSize pos, bsz; - uint32_t val; - lua_assert(ctype_isbitfield(info)); - /* NYI: packed bitfields may cause misaligned reads. */ - switch (ctype_bitcsz(info)) { - case 4: val = *(uint32_t *)sp; break; - case 2: val = *(uint16_t *)sp; break; - case 1: val = *(uint8_t *)sp; break; - default: lua_assert(0); val = 0; break; - } - /* Check if a packed bitfield crosses a container boundary. */ - pos = ctype_bitpos(info); - bsz = ctype_bitbsz(info); - lua_assert(pos < 8*ctype_bitcsz(info)); - lua_assert(bsz > 0 && bsz <= 8*ctype_bitcsz(info)); - if (pos + bsz > 8*ctype_bitcsz(info)) - lj_err_caller(cts->L, LJ_ERR_FFI_NYIPACKBIT); - if (!(info & CTF_BOOL)) { - CTSize shift = 32 - bsz; - if (!(info & CTF_UNSIGNED)) { - setintV(o, (int32_t)(val << (shift-pos)) >> shift); - } else { - val = (val << (shift-pos)) >> shift; - if (!LJ_DUALNUM || (int32_t)val < 0) - setnumV(o, (lua_Number)(uint32_t)val); - else - setintV(o, (int32_t)val); - } - } else { - lua_assert(bsz == 1); - setboolV(o, (val >> pos) & 1); - } - return 0; /* No GC step needed. */ -} - -/* -- TValue to C type conversion ----------------------------------------- */ - -/* Convert table to array. */ -static void cconv_array_tab(CTState *cts, CType *d, - uint8_t *dp, GCtab *t, CTInfo flags) -{ - int32_t i; - CType *dc = ctype_rawchild(cts, d); /* Array element type. */ - CTSize size = d->size, esize = dc->size, ofs = 0; - for (i = 0; ; i++) { - TValue *tv = (TValue *)lj_tab_getint(t, i); - if (!tv || tvisnil(tv)) { - if (i == 0) continue; /* Try again for 1-based tables. */ - break; /* Stop at first nil. */ - } - if (ofs >= size) - cconv_err_initov(cts, d); - lj_cconv_ct_tv(cts, dc, dp + ofs, tv, flags); - ofs += esize; - } - if (size != CTSIZE_INVALID) { /* Only fill up arrays with known size. */ - if (ofs == esize) { /* Replicate a single element. */ - for (; ofs < size; ofs += esize) memcpy(dp + ofs, dp, esize); - } else { /* Otherwise fill the remainder with zero. */ - memset(dp + ofs, 0, size - ofs); - } - } -} - -/* Convert table to sub-struct/union. */ -static void cconv_substruct_tab(CTState *cts, CType *d, uint8_t *dp, - GCtab *t, int32_t *ip, CTInfo flags) -{ - CTypeID id = d->sib; - while (id) { - CType *df = ctype_get(cts, id); - id = df->sib; - if (ctype_isfield(df->info) || ctype_isbitfield(df->info)) { - TValue *tv; - int32_t i = *ip, iz = i; - if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ - if (i >= 0) { - retry: - tv = (TValue *)lj_tab_getint(t, i); - if (!tv || tvisnil(tv)) { - if (i == 0) { i = 1; goto retry; } /* 1-based tables. */ - if (iz == 0) { *ip = i = -1; goto tryname; } /* Init named fields. */ - break; /* Stop at first nil. */ - } - *ip = i + 1; - } else { - tryname: - tv = (TValue *)lj_tab_getstr(t, gco2str(gcref(df->name))); - if (!tv || tvisnil(tv)) continue; - } - if (ctype_isfield(df->info)) - lj_cconv_ct_tv(cts, ctype_rawchild(cts, df), dp+df->size, tv, flags); - else - lj_cconv_bf_tv(cts, df, dp+df->size, tv); - if ((d->info & CTF_UNION)) break; - } else if (ctype_isxattrib(df->info, CTA_SUBTYPE)) { - cconv_substruct_tab(cts, ctype_rawchild(cts, df), - dp+df->size, t, ip, flags); - } /* Ignore all other entries in the chain. */ - } -} - -/* Convert table to struct/union. */ -static void cconv_struct_tab(CTState *cts, CType *d, - uint8_t *dp, GCtab *t, CTInfo flags) -{ - int32_t i = 0; - memset(dp, 0, d->size); /* Much simpler to clear the struct first. */ - cconv_substruct_tab(cts, d, dp, t, &i, flags); -} - -/* Convert TValue to C type. Caveat: expects to get the raw CType! */ -void lj_cconv_ct_tv(CTState *cts, CType *d, - uint8_t *dp, TValue *o, CTInfo flags) -{ - CTypeID sid = CTID_P_VOID; - CType *s; - void *tmpptr; - uint8_t tmpbool, *sp = (uint8_t *)&tmpptr; - if (LJ_LIKELY(tvisint(o))) { - sp = (uint8_t *)&o->i; - sid = CTID_INT32; - flags |= CCF_FROMTV; - } else if (LJ_LIKELY(tvisnum(o))) { - sp = (uint8_t *)&o->n; - sid = CTID_DOUBLE; - flags |= CCF_FROMTV; - } else if (tviscdata(o)) { - sp = cdataptr(cdataV(o)); - sid = cdataV(o)->ctypeid; - s = ctype_get(cts, sid); - if (ctype_isref(s->info)) { /* Resolve reference for value. */ - lua_assert(s->size == CTSIZE_PTR); - sp = *(void **)sp; - sid = ctype_cid(s->info); - } - s = ctype_raw(cts, sid); - if (ctype_isfunc(s->info)) { - sid = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|sid), CTSIZE_PTR); - } else { - if (ctype_isenum(s->info)) s = ctype_child(cts, s); - goto doconv; - } - } else if (tvisstr(o)) { - GCstr *str = strV(o); - if (ctype_isenum(d->info)) { /* Match string against enum constant. */ - CTSize ofs; - CType *cct = lj_ctype_getfield(cts, d, str, &ofs); - if (!cct || !ctype_isconstval(cct->info)) - goto err_conv; - lua_assert(d->size == 4); - sp = (uint8_t *)&cct->size; - sid = ctype_cid(cct->info); - } else if (ctype_isrefarray(d->info)) { /* Copy string to array. */ - CType *dc = ctype_rawchild(cts, d); - CTSize sz = str->len+1; - if (!ctype_isinteger(dc->info) || dc->size != 1) - goto err_conv; - if (d->size != 0 && d->size < sz) - sz = d->size; - memcpy(dp, strdata(str), sz); - return; - } else { /* Otherwise pass it as a const char[]. */ - sp = (uint8_t *)strdata(str); - sid = CTID_A_CCHAR; - flags |= CCF_FROMTV; - } - } else if (tvistab(o)) { - if (ctype_isarray(d->info)) { - cconv_array_tab(cts, d, dp, tabV(o), flags); - return; - } else if (ctype_isstruct(d->info)) { - cconv_struct_tab(cts, d, dp, tabV(o), flags); - return; - } else { - goto err_conv; - } - } else if (tvisbool(o)) { - tmpbool = boolV(o); - sp = &tmpbool; - sid = CTID_BOOL; - } else if (tvisnil(o)) { - tmpptr = (void *)0; - flags |= CCF_FROMTV; - } else if (tvisudata(o)) { - GCudata *ud = udataV(o); - tmpptr = uddata(ud); - if (ud->udtype == UDTYPE_IO_FILE) - tmpptr = *(void **)tmpptr; - } else if (tvislightud(o)) { - tmpptr = lightudV(o); - } else if (tvisfunc(o)) { - void *p = lj_ccallback_new(cts, d, funcV(o)); - if (p) { - *(void **)dp = p; - return; - } - goto err_conv; - } else { - err_conv: - cconv_err_convtv(cts, d, o, flags); - } - s = ctype_get(cts, sid); -doconv: - if (ctype_isenum(d->info)) d = ctype_child(cts, d); - lj_cconv_ct_ct(cts, d, s, dp, sp, flags); -} - -/* Convert TValue to bitfield. */ -void lj_cconv_bf_tv(CTState *cts, CType *d, uint8_t *dp, TValue *o) -{ - CTInfo info = d->info; - CTSize pos, bsz; - uint32_t val, mask; - lua_assert(ctype_isbitfield(info)); - if ((info & CTF_BOOL)) { - uint8_t tmpbool; - lua_assert(ctype_bitbsz(info) == 1); - lj_cconv_ct_tv(cts, ctype_get(cts, CTID_BOOL), &tmpbool, o, 0); - val = tmpbool; - } else { - CTypeID did = (info & CTF_UNSIGNED) ? CTID_UINT32 : CTID_INT32; - lj_cconv_ct_tv(cts, ctype_get(cts, did), (uint8_t *)&val, o, 0); - } - pos = ctype_bitpos(info); - bsz = ctype_bitbsz(info); - lua_assert(pos < 8*ctype_bitcsz(info)); - lua_assert(bsz > 0 && bsz <= 8*ctype_bitcsz(info)); - /* Check if a packed bitfield crosses a container boundary. */ - if (pos + bsz > 8*ctype_bitcsz(info)) - lj_err_caller(cts->L, LJ_ERR_FFI_NYIPACKBIT); - mask = ((1u << bsz) - 1u) << pos; - val = (val << pos) & mask; - /* NYI: packed bitfields may cause misaligned reads/writes. */ - switch (ctype_bitcsz(info)) { - case 4: *(uint32_t *)dp = (*(uint32_t *)dp & ~mask) | (uint32_t)val; break; - case 2: *(uint16_t *)dp = (*(uint16_t *)dp & ~mask) | (uint16_t)val; break; - case 1: *(uint8_t *)dp = (*(uint8_t *)dp & ~mask) | (uint8_t)val; break; - default: lua_assert(0); break; - } -} - -/* -- Initialize C type with TValues -------------------------------------- */ - -/* Initialize an array with TValues. */ -static void cconv_array_init(CTState *cts, CType *d, CTSize sz, uint8_t *dp, - TValue *o, MSize len) -{ - CType *dc = ctype_rawchild(cts, d); /* Array element type. */ - CTSize ofs, esize = dc->size; - MSize i; - if (len*esize > sz) - cconv_err_initov(cts, d); - for (i = 0, ofs = 0; i < len; i++, ofs += esize) - lj_cconv_ct_tv(cts, dc, dp + ofs, o + i, 0); - if (ofs == esize) { /* Replicate a single element. */ - for (; ofs < sz; ofs += esize) memcpy(dp + ofs, dp, esize); - } else { /* Otherwise fill the remainder with zero. */ - memset(dp + ofs, 0, sz - ofs); - } -} - -/* Initialize a sub-struct/union with TValues. */ -static void cconv_substruct_init(CTState *cts, CType *d, uint8_t *dp, - TValue *o, MSize len, MSize *ip) -{ - CTypeID id = d->sib; - while (id) { - CType *df = ctype_get(cts, id); - id = df->sib; - if (ctype_isfield(df->info) || ctype_isbitfield(df->info)) { - MSize i = *ip; - if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ - if (i >= len) break; - *ip = i + 1; - if (ctype_isfield(df->info)) - lj_cconv_ct_tv(cts, ctype_rawchild(cts, df), dp+df->size, o + i, 0); - else - lj_cconv_bf_tv(cts, df, dp+df->size, o + i); - if ((d->info & CTF_UNION)) break; - } else if (ctype_isxattrib(df->info, CTA_SUBTYPE)) { - cconv_substruct_init(cts, ctype_rawchild(cts, df), - dp+df->size, o, len, ip); - if ((d->info & CTF_UNION)) break; - } /* Ignore all other entries in the chain. */ - } -} - -/* Initialize a struct/union with TValues. */ -static void cconv_struct_init(CTState *cts, CType *d, CTSize sz, uint8_t *dp, - TValue *o, MSize len) -{ - MSize i = 0; - memset(dp, 0, sz); /* Much simpler to clear the struct first. */ - cconv_substruct_init(cts, d, dp, o, len, &i); - if (i < len) - cconv_err_initov(cts, d); -} - -/* Check whether to use a multi-value initializer. -** This is true if an aggregate is to be initialized with a value. -** Valarrays are treated as values here so ct_tv handles (V|C, I|F). -*/ -int lj_cconv_multi_init(CTState *cts, CType *d, TValue *o) -{ - if (!(ctype_isrefarray(d->info) || ctype_isstruct(d->info))) - return 0; /* Destination is not an aggregate. */ - if (tvistab(o) || (tvisstr(o) && !ctype_isstruct(d->info))) - return 0; /* Initializer is not a value. */ - if (tviscdata(o) && lj_ctype_rawref(cts, cdataV(o)->ctypeid) == d) - return 0; /* Source and destination are identical aggregates. */ - return 1; /* Otherwise the initializer is a value. */ -} - -/* Initialize C type with TValues. Caveat: expects to get the raw CType! */ -void lj_cconv_ct_init(CTState *cts, CType *d, CTSize sz, - uint8_t *dp, TValue *o, MSize len) -{ - if (len == 0) - memset(dp, 0, sz); - else if (len == 1 && !lj_cconv_multi_init(cts, d, o)) - lj_cconv_ct_tv(cts, d, dp, o, 0); - else if (ctype_isarray(d->info)) /* Also handles valarray init with len>1. */ - cconv_array_init(cts, d, sz, dp, o, len); - else if (ctype_isstruct(d->info)) - cconv_struct_init(cts, d, sz, dp, o, len); - else - cconv_err_initov(cts, d); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cconv.h b/src/3rd party/luajit-2.0-BAK/src/lj_cconv.h deleted file mode 100644 index 2bd50ff46e9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cconv.h +++ /dev/null @@ -1,70 +0,0 @@ -/* -** C type conversions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CCONV_H -#define _LJ_CCONV_H - -#include "lj_obj.h" -#include "lj_ctype.h" - -#if LJ_HASFFI - -/* Compressed C type index. ORDER CCX. */ -enum { - CCX_B, /* Bool. */ - CCX_I, /* Integer. */ - CCX_F, /* Floating-point number. */ - CCX_C, /* Complex. */ - CCX_V, /* Vector. */ - CCX_P, /* Pointer. */ - CCX_A, /* Refarray. */ - CCX_S /* Struct/union. */ -}; - -/* Convert C type info to compressed C type index. ORDER CT. ORDER CCX. */ -static LJ_AINLINE uint32_t cconv_idx(CTInfo info) -{ - uint32_t idx = ((info >> 26) & 15u); /* Dispatch bits. */ - lua_assert(ctype_type(info) <= CT_MAYCONVERT); -#if LJ_64 - idx = ((uint32_t)(U64x(f436fff5,fff7f021) >> 4*idx) & 15u); -#else - idx = (((idx < 8 ? 0xfff7f021u : 0xf436fff5) >> 4*(idx & 7u)) & 15u); -#endif - lua_assert(idx < 8); - return idx; -} - -#define cconv_idx2(dinfo, sinfo) \ - ((cconv_idx((dinfo)) << 3) + cconv_idx((sinfo))) - -#define CCX(dst, src) ((CCX_##dst << 3) + CCX_##src) - -/* Conversion flags. */ -#define CCF_CAST 0x00000001u -#define CCF_FROMTV 0x00000002u -#define CCF_SAME 0x00000004u -#define CCF_IGNQUAL 0x00000008u - -#define CCF_ARG_SHIFT 8 -#define CCF_ARG(n) ((n) << CCF_ARG_SHIFT) -#define CCF_GETARG(f) ((f) >> CCF_ARG_SHIFT) - -LJ_FUNC int lj_cconv_compatptr(CTState *cts, CType *d, CType *s, CTInfo flags); -LJ_FUNC void lj_cconv_ct_ct(CTState *cts, CType *d, CType *s, - uint8_t *dp, uint8_t *sp, CTInfo flags); -LJ_FUNC int lj_cconv_tv_ct(CTState *cts, CType *s, CTypeID sid, - TValue *o, uint8_t *sp); -LJ_FUNC int lj_cconv_tv_bf(CTState *cts, CType *s, TValue *o, uint8_t *sp); -LJ_FUNC void lj_cconv_ct_tv(CTState *cts, CType *d, - uint8_t *dp, TValue *o, CTInfo flags); -LJ_FUNC void lj_cconv_bf_tv(CTState *cts, CType *d, uint8_t *dp, TValue *o); -LJ_FUNC int lj_cconv_multi_init(CTState *cts, CType *d, TValue *o); -LJ_FUNC void lj_cconv_ct_init(CTState *cts, CType *d, CTSize sz, - uint8_t *dp, TValue *o, MSize len); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cdata.c b/src/3rd party/luajit-2.0-BAK/src/lj_cdata.c deleted file mode 100644 index fccf7f1480f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cdata.c +++ /dev/null @@ -1,283 +0,0 @@ -/* -** C data management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_ctype.h" -#include "lj_cconv.h" -#include "lj_cdata.h" - -/* -- C data allocation --------------------------------------------------- */ - -/* Allocate a new C data object holding a reference to another object. */ -GCcdata *lj_cdata_newref(CTState *cts, const void *p, CTypeID id) -{ - CTypeID refid = lj_ctype_intern(cts, CTINFO_REF(id), CTSIZE_PTR); - GCcdata *cd = lj_cdata_new(cts, refid, CTSIZE_PTR); - *(const void **)cdataptr(cd) = p; - return cd; -} - -/* Allocate variable-sized or specially aligned C data object. */ -GCcdata *lj_cdata_newv(lua_State *L, CTypeID id, CTSize sz, CTSize align) -{ - global_State *g; - MSize extra = sizeof(GCcdataVar) + sizeof(GCcdata) + - (align > CT_MEMALIGN ? (1u<offset = (uint16_t)((char *)cd - p); - cdatav(cd)->extra = extra; - cdatav(cd)->len = sz; - g = G(L); - setgcrefr(cd->nextgc, g->gc.root); - setgcref(g->gc.root, obj2gco(cd)); - newwhite(g, obj2gco(cd)); - cd->marked |= 0x80; - cd->gct = ~LJ_TCDATA; - cd->ctypeid = id; - return cd; -} - -/* Free a C data object. */ -void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd) -{ - if (LJ_UNLIKELY(cd->marked & LJ_GC_CDATA_FIN)) { - GCobj *root; - makewhite(g, obj2gco(cd)); - markfinalized(obj2gco(cd)); - if ((root = gcref(g->gc.mmudata)) != NULL) { - setgcrefr(cd->nextgc, root->gch.nextgc); - setgcref(root->gch.nextgc, obj2gco(cd)); - setgcref(g->gc.mmudata, obj2gco(cd)); - } else { - setgcref(cd->nextgc, obj2gco(cd)); - setgcref(g->gc.mmudata, obj2gco(cd)); - } - } else if (LJ_LIKELY(!cdataisv(cd))) { - CType *ct = ctype_raw(ctype_ctsG(g), cd->ctypeid); - CTSize sz = ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR; - lua_assert(ctype_hassize(ct->info) || ctype_isfunc(ct->info) || - ctype_isextern(ct->info)); - lj_mem_free(g, cd, sizeof(GCcdata) + sz); - } else { - lj_mem_free(g, memcdatav(cd), sizecdatav(cd)); - } -} - -void lj_cdata_setfin(lua_State *L, GCcdata *cd, GCobj *obj, uint32_t it) -{ - GCtab *t = ctype_ctsG(G(L))->finalizer; - if (gcref(t->metatable)) { - /* Add cdata to finalizer table, if still enabled. */ - TValue *tv, tmp; - setcdataV(L, &tmp, cd); - lj_gc_anybarriert(L, t); - tv = lj_tab_set(L, t, &tmp); - setgcV(L, tv, obj, it); - if (!tvisnil(tv)) - cd->marked |= LJ_GC_CDATA_FIN; - else - cd->marked &= ~LJ_GC_CDATA_FIN; - } -} - -/* -- C data indexing ----------------------------------------------------- */ - -/* Index C data by a TValue. Return CType and pointer. */ -CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, uint8_t **pp, - CTInfo *qual) -{ - uint8_t *p = (uint8_t *)cdataptr(cd); - CType *ct = ctype_get(cts, cd->ctypeid); - ptrdiff_t idx; - - /* Resolve reference for cdata object. */ - if (ctype_isref(ct->info)) { - lua_assert(ct->size == CTSIZE_PTR); - p = *(uint8_t **)p; - ct = ctype_child(cts, ct); - } - -collect_attrib: - /* Skip attributes and collect qualifiers. */ - while (ctype_isattrib(ct->info)) { - if (ctype_attrib(ct->info) == CTA_QUAL) *qual |= ct->size; - ct = ctype_child(cts, ct); - } - lua_assert(!ctype_isref(ct->info)); /* Interning rejects refs to refs. */ - - if (tvisint(key)) { - idx = (ptrdiff_t)intV(key); - goto integer_key; - } else if (tvisnum(key)) { /* Numeric key. */ - idx = LJ_64 ? (ptrdiff_t)numV(key) : (ptrdiff_t)lj_num2int(numV(key)); - integer_key: - if (ctype_ispointer(ct->info)) { - CTSize sz = lj_ctype_size(cts, ctype_cid(ct->info)); /* Element size. */ - if (sz == CTSIZE_INVALID) - lj_err_caller(cts->L, LJ_ERR_FFI_INVSIZE); - if (ctype_isptr(ct->info)) { - p = (uint8_t *)cdata_getptr(p, ct->size); - } else if ((ct->info & (CTF_VECTOR|CTF_COMPLEX))) { - if ((ct->info & CTF_COMPLEX)) idx &= 1; - *qual |= CTF_CONST; /* Valarray elements are constant. */ - } - *pp = p + idx*(int32_t)sz; - return ct; - } - } else if (tviscdata(key)) { /* Integer cdata key. */ - GCcdata *cdk = cdataV(key); - CType *ctk = ctype_raw(cts, cdk->ctypeid); - if (ctype_isenum(ctk->info)) ctk = ctype_child(cts, ctk); - if (ctype_isinteger(ctk->info)) { - lj_cconv_ct_ct(cts, ctype_get(cts, CTID_INT_PSZ), ctk, - (uint8_t *)&idx, cdataptr(cdk), 0); - goto integer_key; - } - } else if (tvisstr(key)) { /* String key. */ - GCstr *name = strV(key); - if (ctype_isstruct(ct->info)) { - CTSize ofs; - CType *fct = lj_ctype_getfieldq(cts, ct, name, &ofs, qual); - if (fct) { - *pp = p + ofs; - return fct; - } - } else if (ctype_iscomplex(ct->info)) { - if (name->len == 2) { - *qual |= CTF_CONST; /* Complex fields are constant. */ - if (strdata(name)[0] == 'r' && strdata(name)[1] == 'e') { - *pp = p; - return ct; - } else if (strdata(name)[0] == 'i' && strdata(name)[1] == 'm') { - *pp = p + (ct->size >> 1); - return ct; - } - } - } else if (cd->ctypeid == CTID_CTYPEID) { - /* Allow indexing a (pointer to) struct constructor to get constants. */ - CType *sct = ctype_raw(cts, *(CTypeID *)p); - if (ctype_isptr(sct->info)) - sct = ctype_rawchild(cts, sct); - if (ctype_isstruct(sct->info)) { - CTSize ofs; - CType *fct = lj_ctype_getfield(cts, sct, name, &ofs); - if (fct && ctype_isconstval(fct->info)) - return fct; - } - ct = sct; /* Allow resolving metamethods for constructors, too. */ - } - } - if (ctype_isptr(ct->info)) { /* Automatically perform '->'. */ - if (ctype_isstruct(ctype_rawchild(cts, ct)->info)) { - p = (uint8_t *)cdata_getptr(p, ct->size); - ct = ctype_child(cts, ct); - goto collect_attrib; - } - } - *qual |= 1; /* Lookup failed. */ - return ct; /* But return the resolved raw type. */ -} - -/* -- C data getters ------------------------------------------------------ */ - -/* Get constant value and convert to TValue. */ -static void cdata_getconst(CTState *cts, TValue *o, CType *ct) -{ - CType *ctt = ctype_child(cts, ct); - lua_assert(ctype_isinteger(ctt->info) && ctt->size <= 4); - /* Constants are already zero-extended/sign-extended to 32 bits. */ - if ((ctt->info & CTF_UNSIGNED) && (int32_t)ct->size < 0) - setnumV(o, (lua_Number)(uint32_t)ct->size); - else - setintV(o, (int32_t)ct->size); -} - -/* Get C data value and convert to TValue. */ -int lj_cdata_get(CTState *cts, CType *s, TValue *o, uint8_t *sp) -{ - CTypeID sid; - - if (ctype_isconstval(s->info)) { - cdata_getconst(cts, o, s); - return 0; /* No GC step needed. */ - } else if (ctype_isbitfield(s->info)) { - return lj_cconv_tv_bf(cts, s, o, sp); - } - - /* Get child type of pointer/array/field. */ - lua_assert(ctype_ispointer(s->info) || ctype_isfield(s->info)); - sid = ctype_cid(s->info); - s = ctype_get(cts, sid); - - /* Resolve reference for field. */ - if (ctype_isref(s->info)) { - lua_assert(s->size == CTSIZE_PTR); - sp = *(uint8_t **)sp; - sid = ctype_cid(s->info); - s = ctype_get(cts, sid); - } - - /* Skip attributes. */ - while (ctype_isattrib(s->info)) - s = ctype_child(cts, s); - - return lj_cconv_tv_ct(cts, s, sid, o, sp); -} - -/* -- C data setters ------------------------------------------------------ */ - -/* Convert TValue and set C data value. */ -void lj_cdata_set(CTState *cts, CType *d, uint8_t *dp, TValue *o, CTInfo qual) -{ - if (ctype_isconstval(d->info)) { - goto err_const; - } else if (ctype_isbitfield(d->info)) { - if (((d->info|qual) & CTF_CONST)) goto err_const; - lj_cconv_bf_tv(cts, d, dp, o); - return; - } - - /* Get child type of pointer/array/field. */ - lua_assert(ctype_ispointer(d->info) || ctype_isfield(d->info)); - d = ctype_child(cts, d); - - /* Resolve reference for field. */ - if (ctype_isref(d->info)) { - lua_assert(d->size == CTSIZE_PTR); - dp = *(uint8_t **)dp; - d = ctype_child(cts, d); - } - - /* Skip attributes and collect qualifiers. */ - for (;;) { - if (ctype_isattrib(d->info)) { - if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size; - } else { - break; - } - d = ctype_child(cts, d); - } - - lua_assert(ctype_hassize(d->info) && !ctype_isvoid(d->info)); - - if (((d->info|qual) & CTF_CONST)) { - err_const: - lj_err_caller(cts->L, LJ_ERR_FFI_WRCONST); - } - - lj_cconv_ct_tv(cts, d, dp, o, 0); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cdata.h b/src/3rd party/luajit-2.0-BAK/src/lj_cdata.h deleted file mode 100644 index c8975be1c9f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cdata.h +++ /dev/null @@ -1,76 +0,0 @@ -/* -** C data management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CDATA_H -#define _LJ_CDATA_H - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_ctype.h" - -#if LJ_HASFFI - -/* Get C data pointer. */ -static LJ_AINLINE void *cdata_getptr(void *p, CTSize sz) -{ - if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ - return ((void *)(uintptr_t)*(uint32_t *)p); - } else { - lua_assert(sz == CTSIZE_PTR); - return *(void **)p; - } -} - -/* Set C data pointer. */ -static LJ_AINLINE void cdata_setptr(void *p, CTSize sz, const void *v) -{ - if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ - *(uint32_t *)p = (uint32_t)(uintptr_t)v; - } else { - lua_assert(sz == CTSIZE_PTR); - *(void **)p = (void *)v; - } -} - -/* Allocate fixed-size C data object. */ -static LJ_AINLINE GCcdata *lj_cdata_new(CTState *cts, CTypeID id, CTSize sz) -{ - GCcdata *cd; -#ifdef LUA_USE_ASSERT - CType *ct = ctype_raw(cts, id); - lua_assert((ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR) == sz); -#endif - cd = (GCcdata *)lj_mem_newgco(cts->L, sizeof(GCcdata) + sz); - cd->gct = ~LJ_TCDATA; - cd->ctypeid = ctype_check(cts, id); - return cd; -} - -/* Variant which works without a valid CTState. */ -static LJ_AINLINE GCcdata *lj_cdata_new_(lua_State *L, CTypeID id, CTSize sz) -{ - GCcdata *cd = (GCcdata *)lj_mem_newgco(L, sizeof(GCcdata) + sz); - cd->gct = ~LJ_TCDATA; - cd->ctypeid = id; - return cd; -} - -LJ_FUNC GCcdata *lj_cdata_newref(CTState *cts, const void *pp, CTypeID id); -LJ_FUNC GCcdata *lj_cdata_newv(lua_State *L, CTypeID id, CTSize sz, - CTSize align); - -LJ_FUNC void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd); -LJ_FUNC void lj_cdata_setfin(lua_State *L, GCcdata *cd, GCobj *obj, - uint32_t it); - -LJ_FUNC CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, - uint8_t **pp, CTInfo *qual); -LJ_FUNC int lj_cdata_get(CTState *cts, CType *s, TValue *o, uint8_t *sp); -LJ_FUNC void lj_cdata_set(CTState *cts, CType *d, uint8_t *dp, TValue *o, - CTInfo qual); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_char.c b/src/3rd party/luajit-2.0-BAK/src/lj_char.c deleted file mode 100644 index 11f23efe44d..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_char.c +++ /dev/null @@ -1,43 +0,0 @@ -/* -** Character types. -** Donated to the public domain. -** -** This is intended to replace the problematic libc single-byte NLS functions. -** These just don't make sense anymore with UTF-8 locales becoming the norm -** on POSIX systems. It never worked too well on Windows systems since hardly -** anyone bothered to call setlocale(). -** -** This table is hardcoded for ASCII. Identifiers include the characters -** 128-255, too. This allows for the use of all non-ASCII chars as identifiers -** in the lexer. This is a broad definition, but works well in practice -** for both UTF-8 locales and most single-byte locales (such as ISO-8859-*). -** -** If you really need proper character types for UTF-8 strings, please use -** an add-on library such as slnunicode: http://luaforge.net/projects/sln/ -*/ - -#define lj_char_c -#define LUA_CORE - -#include "lj_char.h" - -LJ_DATADEF const uint8_t lj_char_bits[257] = { - 0, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 152,152,152,152,152,152,152,152,152,152, 4, 4, 4, 4, 4, 4, - 4,176,176,176,176,176,176,160,160,160,160,160,160,160,160,160, - 160,160,160,160,160,160,160,160,160,160,160, 4, 4, 4, 4,132, - 4,208,208,208,208,208,208,192,192,192,192,192,192,192,192,192, - 192,192,192,192,192,192,192,192,192,192,192, 4, 4, 4, 4, 1, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, - 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128 -}; - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_char.h b/src/3rd party/luajit-2.0-BAK/src/lj_char.h deleted file mode 100644 index c3c86d34b1d..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_char.h +++ /dev/null @@ -1,42 +0,0 @@ -/* -** Character types. -** Donated to the public domain. -*/ - -#ifndef _LJ_CHAR_H -#define _LJ_CHAR_H - -#include "lj_def.h" - -#define LJ_CHAR_CNTRL 0x01 -#define LJ_CHAR_SPACE 0x02 -#define LJ_CHAR_PUNCT 0x04 -#define LJ_CHAR_DIGIT 0x08 -#define LJ_CHAR_XDIGIT 0x10 -#define LJ_CHAR_UPPER 0x20 -#define LJ_CHAR_LOWER 0x40 -#define LJ_CHAR_IDENT 0x80 -#define LJ_CHAR_ALPHA (LJ_CHAR_LOWER|LJ_CHAR_UPPER) -#define LJ_CHAR_ALNUM (LJ_CHAR_ALPHA|LJ_CHAR_DIGIT) -#define LJ_CHAR_GRAPH (LJ_CHAR_ALNUM|LJ_CHAR_PUNCT) - -/* Only pass -1 or 0..255 to these macros. Never pass a signed char! */ -#define lj_char_isa(c, t) ((lj_char_bits+1)[(c)] & t) -#define lj_char_iscntrl(c) lj_char_isa((c), LJ_CHAR_CNTRL) -#define lj_char_isspace(c) lj_char_isa((c), LJ_CHAR_SPACE) -#define lj_char_ispunct(c) lj_char_isa((c), LJ_CHAR_PUNCT) -#define lj_char_isdigit(c) lj_char_isa((c), LJ_CHAR_DIGIT) -#define lj_char_isxdigit(c) lj_char_isa((c), LJ_CHAR_XDIGIT) -#define lj_char_isupper(c) lj_char_isa((c), LJ_CHAR_UPPER) -#define lj_char_islower(c) lj_char_isa((c), LJ_CHAR_LOWER) -#define lj_char_isident(c) lj_char_isa((c), LJ_CHAR_IDENT) -#define lj_char_isalpha(c) lj_char_isa((c), LJ_CHAR_ALPHA) -#define lj_char_isalnum(c) lj_char_isa((c), LJ_CHAR_ALNUM) -#define lj_char_isgraph(c) lj_char_isa((c), LJ_CHAR_GRAPH) - -#define lj_char_toupper(c) ((c) - (lj_char_islower(c) >> 1)) -#define lj_char_tolower(c) ((c) + lj_char_isupper(c)) - -LJ_DATA const uint8_t lj_char_bits[257]; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_clib.c b/src/3rd party/luajit-2.0-BAK/src/lj_clib.c deleted file mode 100644 index 6bdad67fef0..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_clib.c +++ /dev/null @@ -1,410 +0,0 @@ -/* -** FFI C library loader. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_str.h" -#include "lj_udata.h" -#include "lj_ctype.h" -#include "lj_cconv.h" -#include "lj_cdata.h" -#include "lj_clib.h" -#include "lj_strfmt.h" - -/* -- OS-specific functions ----------------------------------------------- */ - -#if LJ_TARGET_DLOPEN - -#include -#include - -#if defined(RTLD_DEFAULT) -#define CLIB_DEFHANDLE RTLD_DEFAULT -#elif LJ_TARGET_OSX || LJ_TARGET_BSD -#define CLIB_DEFHANDLE ((void *)(intptr_t)-2) -#else -#define CLIB_DEFHANDLE NULL -#endif - -LJ_NORET LJ_NOINLINE static void clib_error_(lua_State *L) -{ - lj_err_callermsg(L, dlerror()); -} - -#define clib_error(L, fmt, name) clib_error_(L) - -#if defined(__CYGWIN__) -#define CLIB_SOPREFIX "cyg" -#else -#define CLIB_SOPREFIX "lib" -#endif - -#if LJ_TARGET_OSX -#define CLIB_SOEXT "%s.dylib" -#elif defined(__CYGWIN__) -#define CLIB_SOEXT "%s.dll" -#else -#define CLIB_SOEXT "%s.so" -#endif - -static const char *clib_extname(lua_State *L, const char *name) -{ - if (!strchr(name, '/') -#ifdef __CYGWIN__ - && !strchr(name, '\\') -#endif - ) { - if (!strchr(name, '.')) { - name = lj_strfmt_pushf(L, CLIB_SOEXT, name); - L->top--; -#ifdef __CYGWIN__ - } else { - return name; -#endif - } - if (!(name[0] == CLIB_SOPREFIX[0] && name[1] == CLIB_SOPREFIX[1] && - name[2] == CLIB_SOPREFIX[2])) { - name = lj_strfmt_pushf(L, CLIB_SOPREFIX "%s", name); - L->top--; - } - } - return name; -} - -/* Check for a recognized ld script line. */ -static const char *clib_check_lds(lua_State *L, const char *buf) -{ - char *p, *e; - if ((!strncmp(buf, "GROUP", 5) || !strncmp(buf, "INPUT", 5)) && - (p = strchr(buf, '('))) { - while (*++p == ' ') ; - for (e = p; *e && *e != ' ' && *e != ')'; e++) ; - return strdata(lj_str_new(L, p, e-p)); - } - return NULL; -} - -/* Quick and dirty solution to resolve shared library name from ld script. */ -static const char *clib_resolve_lds(lua_State *L, const char *name) -{ - FILE *fp = fopen(name, "r"); - const char *p = NULL; - if (fp) { - char buf[256]; - if (fgets(buf, sizeof(buf), fp)) { - if (!strncmp(buf, "/* GNU ld script", 16)) { /* ld script magic? */ - while (fgets(buf, sizeof(buf), fp)) { /* Check all lines. */ - p = clib_check_lds(L, buf); - if (p) break; - } - } else { /* Otherwise check only the first line. */ - p = clib_check_lds(L, buf); - } - } - fclose(fp); - } - return p; -} - -static void *clib_loadlib(lua_State *L, const char *name, int global) -{ - void *h = dlopen(clib_extname(L, name), - RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); - if (!h) { - const char *e, *err = dlerror(); - if (*err == '/' && (e = strchr(err, ':')) && - (name = clib_resolve_lds(L, strdata(lj_str_new(L, err, e-err))))) { - h = dlopen(name, RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); - if (h) return h; - err = dlerror(); - } - lj_err_callermsg(L, err); - } - return h; -} - -static void clib_unloadlib(CLibrary *cl) -{ - if (cl->handle && cl->handle != CLIB_DEFHANDLE) - dlclose(cl->handle); -} - -static void *clib_getsym(CLibrary *cl, const char *name) -{ - void *p = dlsym(cl->handle, name); - return p; -} - -#elif LJ_TARGET_WINDOWS - -#define WIN32_LEAN_AND_MEAN -#include - -#ifndef GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS -#define GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS 4 -#define GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT 2 -BOOL WINAPI GetModuleHandleExA(DWORD, LPCSTR, HMODULE*); -#endif - -#define CLIB_DEFHANDLE ((void *)-1) - -/* Default libraries. */ -enum { - CLIB_HANDLE_EXE, - CLIB_HANDLE_DLL, - CLIB_HANDLE_CRT, - CLIB_HANDLE_KERNEL32, - CLIB_HANDLE_USER32, - CLIB_HANDLE_GDI32, - CLIB_HANDLE_MAX -}; - -static void *clib_def_handle[CLIB_HANDLE_MAX]; - -LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, - const char *name) -{ - DWORD err = GetLastError(); - char buf[128]; - if (!FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_FROM_SYSTEM, - NULL, err, 0, buf, sizeof(buf), NULL)) - buf[0] = '\0'; - lj_err_callermsg(L, lj_strfmt_pushf(L, fmt, name, buf)); -} - -static int clib_needext(const char *s) -{ - while (*s) { - if (*s == '/' || *s == '\\' || *s == '.') return 0; - s++; - } - return 1; -} - -static const char *clib_extname(lua_State *L, const char *name) -{ - if (clib_needext(name)) { - name = lj_strfmt_pushf(L, "%s.dll", name); - L->top--; - } - return name; -} - -static void *clib_loadlib(lua_State *L, const char *name, int global) -{ - DWORD oldwerr = GetLastError(); - void *h = (void *)LoadLibraryA(clib_extname(L, name)); - if (!h) clib_error(L, "cannot load module " LUA_QS ": %s", name); - SetLastError(oldwerr); - UNUSED(global); - return h; -} - -static void clib_unloadlib(CLibrary *cl) -{ - if (cl->handle == CLIB_DEFHANDLE) { - MSize i; - for (i = CLIB_HANDLE_KERNEL32; i < CLIB_HANDLE_MAX; i++) { - void *h = clib_def_handle[i]; - if (h) { - clib_def_handle[i] = NULL; - FreeLibrary((HINSTANCE)h); - } - } - } else if (cl->handle) { - FreeLibrary((HINSTANCE)cl->handle); - } -} - -static void *clib_getsym(CLibrary *cl, const char *name) -{ - void *p = NULL; - if (cl->handle == CLIB_DEFHANDLE) { /* Search default libraries. */ - MSize i; - for (i = 0; i < CLIB_HANDLE_MAX; i++) { - HINSTANCE h = (HINSTANCE)clib_def_handle[i]; - if (!(void *)h) { /* Resolve default library handles (once). */ - switch (i) { - case CLIB_HANDLE_EXE: GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, NULL, &h); break; - case CLIB_HANDLE_DLL: - GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, - (const char *)clib_def_handle, &h); - break; - case CLIB_HANDLE_CRT: - GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS|GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, - (const char *)&_fmode, &h); - break; - case CLIB_HANDLE_KERNEL32: h = LoadLibraryA("kernel32.dll"); break; - case CLIB_HANDLE_USER32: h = LoadLibraryA("user32.dll"); break; - case CLIB_HANDLE_GDI32: h = LoadLibraryA("gdi32.dll"); break; - } - if (!h) continue; - clib_def_handle[i] = (void *)h; - } - p = (void *)GetProcAddress(h, name); - if (p) break; - } - } else { - p = (void *)GetProcAddress((HINSTANCE)cl->handle, name); - } - return p; -} - -#else - -#define CLIB_DEFHANDLE NULL - -LJ_NORET LJ_NOINLINE static void clib_error(lua_State *L, const char *fmt, - const char *name) -{ - lj_err_callermsg(L, lj_strfmt_pushf(L, fmt, name, "no support for this OS")); -} - -static void *clib_loadlib(lua_State *L, const char *name, int global) -{ - lj_err_callermsg(L, "no support for loading dynamic libraries for this OS"); - UNUSED(name); UNUSED(global); - return NULL; -} - -static void clib_unloadlib(CLibrary *cl) -{ - UNUSED(cl); -} - -static void *clib_getsym(CLibrary *cl, const char *name) -{ - UNUSED(cl); UNUSED(name); - return NULL; -} - -#endif - -/* -- C library indexing -------------------------------------------------- */ - -#if LJ_TARGET_X86 && LJ_ABI_WIN -/* Compute argument size for fastcall/stdcall functions. */ -static CTSize clib_func_argsize(CTState *cts, CType *ct) -{ - CTSize n = 0; - while (ct->sib) { - CType *d; - ct = ctype_get(cts, ct->sib); - if (ctype_isfield(ct->info)) { - d = ctype_rawchild(cts, ct); - n += ((d->size + 3) & ~3); - } - } - return n; -} -#endif - -/* Get redirected or mangled external symbol. */ -static const char *clib_extsym(CTState *cts, CType *ct, GCstr *name) -{ - if (ct->sib) { - CType *ctf = ctype_get(cts, ct->sib); - if (ctype_isxattrib(ctf->info, CTA_REDIR)) - return strdata(gco2str(gcref(ctf->name))); - } - return strdata(name); -} - -/* Index a C library by name. */ -TValue *lj_clib_index(lua_State *L, CLibrary *cl, GCstr *name) -{ - TValue *tv = lj_tab_setstr(L, cl->cache, name); - if (LJ_UNLIKELY(tvisnil(tv))) { - CTState *cts = ctype_cts(L); - CType *ct; - CTypeID id = lj_ctype_getname(cts, &ct, name, CLNS_INDEX); - if (!id) - lj_err_callerv(L, LJ_ERR_FFI_NODECL, strdata(name)); - if (ctype_isconstval(ct->info)) { - CType *ctt = ctype_child(cts, ct); - lua_assert(ctype_isinteger(ctt->info) && ctt->size <= 4); - if ((ctt->info & CTF_UNSIGNED) && (int32_t)ct->size < 0) - setnumV(tv, (lua_Number)(uint32_t)ct->size); - else - setintV(tv, (int32_t)ct->size); - } else { - const char *sym = clib_extsym(cts, ct, name); -#if LJ_TARGET_WINDOWS - DWORD oldwerr = GetLastError(); -#endif - void *p = clib_getsym(cl, sym); - GCcdata *cd; - lua_assert(ctype_isfunc(ct->info) || ctype_isextern(ct->info)); -#if LJ_TARGET_X86 && LJ_ABI_WIN - /* Retry with decorated name for fastcall/stdcall functions. */ - if (!p && ctype_isfunc(ct->info)) { - CTInfo cconv = ctype_cconv(ct->info); - if (cconv == CTCC_FASTCALL || cconv == CTCC_STDCALL) { - CTSize sz = clib_func_argsize(cts, ct); - const char *symd = lj_strfmt_pushf(L, - cconv == CTCC_FASTCALL ? "@%s@%d" : "_%s@%d", - sym, sz); - L->top--; - p = clib_getsym(cl, symd); - } - } -#endif - if (!p) - clib_error(L, "cannot resolve symbol " LUA_QS ": %s", sym); -#if LJ_TARGET_WINDOWS - SetLastError(oldwerr); -#endif - cd = lj_cdata_new(cts, id, CTSIZE_PTR); - *(void **)cdataptr(cd) = p; - setcdataV(L, tv, cd); - } - } - return tv; -} - -/* -- C library management ------------------------------------------------ */ - -/* Create a new CLibrary object and push it on the stack. */ -static CLibrary *clib_new(lua_State *L, GCtab *mt) -{ - GCtab *t = lj_tab_new(L, 0, 0); - GCudata *ud = lj_udata_new(L, sizeof(CLibrary), t); - CLibrary *cl = (CLibrary *)uddata(ud); - cl->cache = t; - ud->udtype = UDTYPE_FFI_CLIB; - /* NOBARRIER: The GCudata is new (marked white). */ - setgcref(ud->metatable, obj2gco(mt)); - setudataV(L, L->top++, ud); - return cl; -} - -/* Load a C library. */ -void lj_clib_load(lua_State *L, GCtab *mt, GCstr *name, int global) -{ - void *handle = clib_loadlib(L, strdata(name), global); - CLibrary *cl = clib_new(L, mt); - cl->handle = handle; -} - -/* Unload a C library. */ -void lj_clib_unload(CLibrary *cl) -{ - clib_unloadlib(cl); - cl->handle = NULL; -} - -/* Create the default C library object. */ -void lj_clib_default(lua_State *L, GCtab *mt) -{ - CLibrary *cl = clib_new(L, mt); - cl->handle = CLIB_DEFHANDLE; -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_clib.h b/src/3rd party/luajit-2.0-BAK/src/lj_clib.h deleted file mode 100644 index e5dc98e1cd7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_clib.h +++ /dev/null @@ -1,29 +0,0 @@ -/* -** FFI C library loader. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CLIB_H -#define _LJ_CLIB_H - -#include "lj_obj.h" - -#if LJ_HASFFI - -/* Namespace for C library indexing. */ -#define CLNS_INDEX ((1u<env. */ -} CLibrary; - -LJ_FUNC TValue *lj_clib_index(lua_State *L, CLibrary *cl, GCstr *name); -LJ_FUNC void lj_clib_load(lua_State *L, GCtab *mt, GCstr *name, int global); -LJ_FUNC void lj_clib_unload(CLibrary *cl); -LJ_FUNC void lj_clib_default(lua_State *L, GCtab *mt); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cparse.c b/src/3rd party/luajit-2.0-BAK/src/lj_cparse.c deleted file mode 100644 index 1ec32307d2a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cparse.c +++ /dev/null @@ -1,1858 +0,0 @@ -/* -** C declaration parser. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_ctype.h" -#include "lj_cparse.h" -#include "lj_frame.h" -#include "lj_vm.h" -#include "lj_char.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" - -/* -** Important note: this is NOT a validating C parser! This is a minimal -** C declaration parser, solely for use by the LuaJIT FFI. -** -** It ought to return correct results for properly formed C declarations, -** but it may accept some invalid declarations, too (and return nonsense). -** Also, it shows rather generic error messages to avoid unnecessary bloat. -** If in doubt, please check the input against your favorite C compiler. -*/ - -/* -- C lexer ------------------------------------------------------------- */ - -/* C lexer token names. */ -static const char *const ctoknames[] = { -#define CTOKSTR(name, str) str, -CTOKDEF(CTOKSTR) -#undef CTOKSTR - NULL -}; - -/* Forward declaration. */ -LJ_NORET static void cp_err(CPState *cp, ErrMsg em); - -static const char *cp_tok2str(CPState *cp, CPToken tok) -{ - lua_assert(tok < CTOK_FIRSTDECL); - if (tok > CTOK_OFS) - return ctoknames[tok-CTOK_OFS-1]; - else if (!lj_char_iscntrl(tok)) - return lj_strfmt_pushf(cp->L, "%c", tok); - else - return lj_strfmt_pushf(cp->L, "char(%d)", tok); -} - -/* End-of-line? */ -static LJ_AINLINE int cp_iseol(CPChar c) -{ - return (c == '\n' || c == '\r'); -} - -/* Peek next raw character. */ -static LJ_AINLINE CPChar cp_rawpeek(CPState *cp) -{ - return (CPChar)(uint8_t)(*cp->p); -} - -static LJ_NOINLINE CPChar cp_get_bs(CPState *cp); - -/* Get next character. */ -static LJ_AINLINE CPChar cp_get(CPState *cp) -{ - cp->c = (CPChar)(uint8_t)(*cp->p++); - if (LJ_LIKELY(cp->c != '\\')) return cp->c; - return cp_get_bs(cp); -} - -/* Transparently skip backslash-escaped line breaks. */ -static LJ_NOINLINE CPChar cp_get_bs(CPState *cp) -{ - CPChar c2, c = cp_rawpeek(cp); - if (!cp_iseol(c)) return cp->c; - cp->p++; - c2 = cp_rawpeek(cp); - if (cp_iseol(c2) && c2 != c) cp->p++; - cp->linenumber++; - return cp_get(cp); -} - -/* Save character in buffer. */ -static LJ_AINLINE void cp_save(CPState *cp, CPChar c) -{ - lj_buf_putb(&cp->sb, c); -} - -/* Skip line break. Handles "\n", "\r", "\r\n" or "\n\r". */ -static void cp_newline(CPState *cp) -{ - CPChar c = cp_rawpeek(cp); - if (cp_iseol(c) && c != cp->c) cp->p++; - cp->linenumber++; -} - -LJ_NORET static void cp_errmsg(CPState *cp, CPToken tok, ErrMsg em, ...) -{ - const char *msg, *tokstr; - lua_State *L; - va_list argp; - if (tok == 0) { - tokstr = NULL; - } else if (tok == CTOK_IDENT || tok == CTOK_INTEGER || tok == CTOK_STRING || - tok >= CTOK_FIRSTDECL) { - if (sbufP(&cp->sb) == sbufB(&cp->sb)) cp_save(cp, '$'); - cp_save(cp, '\0'); - tokstr = sbufB(&cp->sb); - } else { - tokstr = cp_tok2str(cp, tok); - } - L = cp->L; - va_start(argp, em); - msg = lj_strfmt_pushvf(L, err2msg(em), argp); - va_end(argp); - if (tokstr) - msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tokstr); - if (cp->linenumber > 1) - msg = lj_strfmt_pushf(L, "%s at line %d", msg, cp->linenumber); - lj_err_callermsg(L, msg); -} - -LJ_NORET LJ_NOINLINE static void cp_err_token(CPState *cp, CPToken tok) -{ - cp_errmsg(cp, cp->tok, LJ_ERR_XTOKEN, cp_tok2str(cp, tok)); -} - -LJ_NORET LJ_NOINLINE static void cp_err_badidx(CPState *cp, CType *ct) -{ - GCstr *s = lj_ctype_repr(cp->cts->L, ctype_typeid(cp->cts, ct), NULL); - cp_errmsg(cp, 0, LJ_ERR_FFI_BADIDX, strdata(s)); -} - -LJ_NORET LJ_NOINLINE static void cp_err(CPState *cp, ErrMsg em) -{ - cp_errmsg(cp, 0, em); -} - -/* -- Main lexical scanner ------------------------------------------------ */ - -/* Parse number literal. Only handles int32_t/uint32_t right now. */ -static CPToken cp_number(CPState *cp) -{ - StrScanFmt fmt; - TValue o; - do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); - cp_save(cp, '\0'); - fmt = lj_strscan_scan((const uint8_t *)sbufB(&cp->sb), &o, STRSCAN_OPT_C); - if (fmt == STRSCAN_INT) cp->val.id = CTID_INT32; - else if (fmt == STRSCAN_U32) cp->val.id = CTID_UINT32; - else if (!(cp->mode & CPARSE_MODE_SKIP)) - cp_errmsg(cp, CTOK_INTEGER, LJ_ERR_XNUMBER); - cp->val.u32 = (uint32_t)o.i; - return CTOK_INTEGER; -} - -/* Parse identifier or keyword. */ -static CPToken cp_ident(CPState *cp) -{ - do { cp_save(cp, cp->c); } while (lj_char_isident(cp_get(cp))); - cp->str = lj_buf_str(cp->L, &cp->sb); - cp->val.id = lj_ctype_getname(cp->cts, &cp->ct, cp->str, cp->tmask); - if (ctype_type(cp->ct->info) == CT_KW) - return ctype_cid(cp->ct->info); - return CTOK_IDENT; -} - -/* Parse parameter. */ -static CPToken cp_param(CPState *cp) -{ - CPChar c = cp_get(cp); - TValue *o = cp->param; - if (lj_char_isident(c) || c == '$') /* Reserve $xyz for future extensions. */ - cp_errmsg(cp, c, LJ_ERR_XSYNTAX); - if (!o || o >= cp->L->top) - cp_err(cp, LJ_ERR_FFI_NUMPARAM); - cp->param = o+1; - if (tvisstr(o)) { - cp->str = strV(o); - cp->val.id = 0; - cp->ct = &cp->cts->tab[0]; - return CTOK_IDENT; - } else if (tvisnumber(o)) { - cp->val.i32 = numberVint(o); - cp->val.id = CTID_INT32; - return CTOK_INTEGER; - } else { - GCcdata *cd; - if (!tviscdata(o)) - lj_err_argtype(cp->L, (int)(o-cp->L->base)+1, "type parameter"); - cd = cdataV(o); - if (cd->ctypeid == CTID_CTYPEID) - cp->val.id = *(CTypeID *)cdataptr(cd); - else - cp->val.id = cd->ctypeid; - return '$'; - } -} - -/* Parse string or character constant. */ -static CPToken cp_string(CPState *cp) -{ - CPChar delim = cp->c; - cp_get(cp); - while (cp->c != delim) { - CPChar c = cp->c; - if (c == '\0') cp_errmsg(cp, CTOK_EOF, LJ_ERR_XSTR); - if (c == '\\') { - c = cp_get(cp); - switch (c) { - case '\0': cp_errmsg(cp, CTOK_EOF, LJ_ERR_XSTR); break; - case 'a': c = '\a'; break; - case 'b': c = '\b'; break; - case 'f': c = '\f'; break; - case 'n': c = '\n'; break; - case 'r': c = '\r'; break; - case 't': c = '\t'; break; - case 'v': c = '\v'; break; - case 'e': c = 27; break; - case 'x': - c = 0; - while (lj_char_isxdigit(cp_get(cp))) - c = (c<<4) + (lj_char_isdigit(cp->c) ? cp->c-'0' : (cp->c&15)+9); - cp_save(cp, (c & 0xff)); - continue; - default: - if (lj_char_isdigit(c)) { - c -= '0'; - if (lj_char_isdigit(cp_get(cp))) { - c = c*8 + (cp->c - '0'); - if (lj_char_isdigit(cp_get(cp))) { - c = c*8 + (cp->c - '0'); - cp_get(cp); - } - } - cp_save(cp, (c & 0xff)); - continue; - } - break; - } - } - cp_save(cp, c); - cp_get(cp); - } - cp_get(cp); - if (delim == '"') { - cp->str = lj_buf_str(cp->L, &cp->sb); - return CTOK_STRING; - } else { - if (sbuflen(&cp->sb) != 1) cp_err_token(cp, '\''); - cp->val.i32 = (int32_t)(char)*sbufB(&cp->sb); - cp->val.id = CTID_INT32; - return CTOK_INTEGER; - } -} - -/* Skip C comment. */ -static void cp_comment_c(CPState *cp) -{ - do { - if (cp_get(cp) == '*') { - do { - if (cp_get(cp) == '/') { cp_get(cp); return; } - } while (cp->c == '*'); - } - if (cp_iseol(cp->c)) cp_newline(cp); - } while (cp->c != '\0'); -} - -/* Skip C++ comment. */ -static void cp_comment_cpp(CPState *cp) -{ - while (!cp_iseol(cp_get(cp)) && cp->c != '\0') - ; -} - -/* Lexical scanner for C. Only a minimal subset is implemented. */ -static CPToken cp_next_(CPState *cp) -{ - lj_buf_reset(&cp->sb); - for (;;) { - if (lj_char_isident(cp->c)) - return lj_char_isdigit(cp->c) ? cp_number(cp) : cp_ident(cp); - switch (cp->c) { - case '\n': case '\r': cp_newline(cp); /* fallthrough. */ - case ' ': case '\t': case '\v': case '\f': cp_get(cp); break; - case '"': case '\'': return cp_string(cp); - case '/': - if (cp_get(cp) == '*') cp_comment_c(cp); - else if (cp->c == '/') cp_comment_cpp(cp); - else return '/'; - break; - case '|': - if (cp_get(cp) != '|') return '|'; cp_get(cp); return CTOK_OROR; - case '&': - if (cp_get(cp) != '&') return '&'; cp_get(cp); return CTOK_ANDAND; - case '=': - if (cp_get(cp) != '=') return '='; cp_get(cp); return CTOK_EQ; - case '!': - if (cp_get(cp) != '=') return '!'; cp_get(cp); return CTOK_NE; - case '<': - if (cp_get(cp) == '=') { cp_get(cp); return CTOK_LE; } - else if (cp->c == '<') { cp_get(cp); return CTOK_SHL; } - return '<'; - case '>': - if (cp_get(cp) == '=') { cp_get(cp); return CTOK_GE; } - else if (cp->c == '>') { cp_get(cp); return CTOK_SHR; } - return '>'; - case '-': - if (cp_get(cp) != '>') return '-'; cp_get(cp); return CTOK_DEREF; - case '$': - return cp_param(cp); - case '\0': return CTOK_EOF; - default: { CPToken c = cp->c; cp_get(cp); return c; } - } - } -} - -static LJ_NOINLINE CPToken cp_next(CPState *cp) -{ - return (cp->tok = cp_next_(cp)); -} - -/* -- C parser ------------------------------------------------------------ */ - -/* Namespaces for resolving identifiers. */ -#define CPNS_DEFAULT \ - ((1u<linenumber = 1; - cp->depth = 0; - cp->curpack = 0; - cp->packstack[0] = 255; - lj_buf_init(cp->L, &cp->sb); - lua_assert(cp->p != NULL); - cp_get(cp); /* Read-ahead first char. */ - cp->tok = 0; - cp->tmask = CPNS_DEFAULT; - cp_next(cp); /* Read-ahead first token. */ -} - -/* Cleanup C parser state. */ -static void cp_cleanup(CPState *cp) -{ - global_State *g = G(cp->L); - lj_buf_free(g, &cp->sb); -} - -/* Check and consume optional token. */ -static int cp_opt(CPState *cp, CPToken tok) -{ - if (cp->tok == tok) { cp_next(cp); return 1; } - return 0; -} - -/* Check and consume token. */ -static void cp_check(CPState *cp, CPToken tok) -{ - if (cp->tok != tok) cp_err_token(cp, tok); - cp_next(cp); -} - -/* Check if the next token may start a type declaration. */ -static int cp_istypedecl(CPState *cp) -{ - if (cp->tok >= CTOK_FIRSTDECL && cp->tok <= CTOK_LASTDECL) return 1; - if (cp->tok == CTOK_IDENT && ctype_istypedef(cp->ct->info)) return 1; - if (cp->tok == '$') return 1; - return 0; -} - -/* -- Constant expression evaluator --------------------------------------- */ - -/* Forward declarations. */ -static void cp_expr_unary(CPState *cp, CPValue *k); -static void cp_expr_sub(CPState *cp, CPValue *k, int pri); - -/* Please note that type handling is very weak here. Most ops simply -** assume integer operands. Accessors are only needed to compute types and -** return synthetic values. The only purpose of the expression evaluator -** is to compute the values of constant expressions one would typically -** find in C header files. And again: this is NOT a validating C parser! -*/ - -/* Parse comma separated expression and return last result. */ -static void cp_expr_comma(CPState *cp, CPValue *k) -{ - do { cp_expr_sub(cp, k, 0); } while (cp_opt(cp, ',')); -} - -/* Parse sizeof/alignof operator. */ -static void cp_expr_sizeof(CPState *cp, CPValue *k, int wantsz) -{ - CTSize sz; - CTInfo info; - if (cp_opt(cp, '(')) { - if (cp_istypedecl(cp)) - k->id = cp_decl_abstract(cp); - else - cp_expr_comma(cp, k); - cp_check(cp, ')'); - } else { - cp_expr_unary(cp, k); - } - info = lj_ctype_info(cp->cts, k->id, &sz); - if (wantsz) { - if (sz != CTSIZE_INVALID) - k->u32 = sz; - else if (k->id != CTID_A_CCHAR) /* Special case for sizeof("string"). */ - cp_err(cp, LJ_ERR_FFI_INVSIZE); - } else { - k->u32 = 1u << ctype_align(info); - } - k->id = CTID_UINT32; /* Really size_t. */ -} - -/* Parse prefix operators. */ -static void cp_expr_prefix(CPState *cp, CPValue *k) -{ - if (cp->tok == CTOK_INTEGER) { - *k = cp->val; cp_next(cp); - } else if (cp_opt(cp, '+')) { - cp_expr_unary(cp, k); /* Nothing to do (well, integer promotion). */ - } else if (cp_opt(cp, '-')) { - cp_expr_unary(cp, k); k->i32 = -k->i32; - } else if (cp_opt(cp, '~')) { - cp_expr_unary(cp, k); k->i32 = ~k->i32; - } else if (cp_opt(cp, '!')) { - cp_expr_unary(cp, k); k->i32 = !k->i32; k->id = CTID_INT32; - } else if (cp_opt(cp, '(')) { - if (cp_istypedecl(cp)) { /* Cast operator. */ - CTypeID id = cp_decl_abstract(cp); - cp_check(cp, ')'); - cp_expr_unary(cp, k); - k->id = id; /* No conversion performed. */ - } else { /* Sub-expression. */ - cp_expr_comma(cp, k); - cp_check(cp, ')'); - } - } else if (cp_opt(cp, '*')) { /* Indirection. */ - CType *ct; - cp_expr_unary(cp, k); - ct = lj_ctype_rawref(cp->cts, k->id); - if (!ctype_ispointer(ct->info)) - cp_err_badidx(cp, ct); - k->u32 = 0; k->id = ctype_cid(ct->info); - } else if (cp_opt(cp, '&')) { /* Address operator. */ - cp_expr_unary(cp, k); - k->id = lj_ctype_intern(cp->cts, CTINFO(CT_PTR, CTALIGN_PTR+k->id), - CTSIZE_PTR); - } else if (cp_opt(cp, CTOK_SIZEOF)) { - cp_expr_sizeof(cp, k, 1); - } else if (cp_opt(cp, CTOK_ALIGNOF)) { - cp_expr_sizeof(cp, k, 0); - } else if (cp->tok == CTOK_IDENT) { - if (ctype_type(cp->ct->info) == CT_CONSTVAL) { - k->u32 = cp->ct->size; k->id = ctype_cid(cp->ct->info); - } else if (ctype_type(cp->ct->info) == CT_EXTERN) { - k->u32 = cp->val.id; k->id = ctype_cid(cp->ct->info); - } else if (ctype_type(cp->ct->info) == CT_FUNC) { - k->u32 = cp->val.id; k->id = cp->val.id; - } else { - goto err_expr; - } - cp_next(cp); - } else if (cp->tok == CTOK_STRING) { - CTSize sz = cp->str->len; - while (cp_next(cp) == CTOK_STRING) - sz += cp->str->len; - k->u32 = sz + 1; - k->id = CTID_A_CCHAR; - } else { - err_expr: - cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); - } -} - -/* Parse postfix operators. */ -static void cp_expr_postfix(CPState *cp, CPValue *k) -{ - for (;;) { - CType *ct; - if (cp_opt(cp, '[')) { /* Array/pointer index. */ - CPValue k2; - cp_expr_comma(cp, &k2); - ct = lj_ctype_rawref(cp->cts, k->id); - if (!ctype_ispointer(ct->info)) { - ct = lj_ctype_rawref(cp->cts, k2.id); - if (!ctype_ispointer(ct->info)) - cp_err_badidx(cp, ct); - } - cp_check(cp, ']'); - k->u32 = 0; - } else if (cp->tok == '.' || cp->tok == CTOK_DEREF) { /* Struct deref. */ - CTSize ofs; - CType *fct; - ct = lj_ctype_rawref(cp->cts, k->id); - if (cp->tok == CTOK_DEREF) { - if (!ctype_ispointer(ct->info)) - cp_err_badidx(cp, ct); - ct = lj_ctype_rawref(cp->cts, ctype_cid(ct->info)); - } - cp_next(cp); - if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); - if (!ctype_isstruct(ct->info) || ct->size == CTSIZE_INVALID || - !(fct = lj_ctype_getfield(cp->cts, ct, cp->str, &ofs)) || - ctype_isbitfield(fct->info)) { - GCstr *s = lj_ctype_repr(cp->cts->L, ctype_typeid(cp->cts, ct), NULL); - cp_errmsg(cp, 0, LJ_ERR_FFI_BADMEMBER, strdata(s), strdata(cp->str)); - } - ct = fct; - k->u32 = ctype_isconstval(ct->info) ? ct->size : 0; - cp_next(cp); - } else { - return; - } - k->id = ctype_cid(ct->info); - } -} - -/* Parse infix operators. */ -static void cp_expr_infix(CPState *cp, CPValue *k, int pri) -{ - CPValue k2; - k2.u32 = 0; k2.id = 0; /* Silence the compiler. */ - for (;;) { - switch (pri) { - case 0: - if (cp_opt(cp, '?')) { - CPValue k3; - cp_expr_comma(cp, &k2); /* Right-associative. */ - cp_check(cp, ':'); - cp_expr_sub(cp, &k3, 0); - k->u32 = k->u32 ? k2.u32 : k3.u32; - k->id = k2.id > k3.id ? k2.id : k3.id; - continue; - } - case 1: - if (cp_opt(cp, CTOK_OROR)) { - cp_expr_sub(cp, &k2, 2); k->i32 = k->u32 || k2.u32; k->id = CTID_INT32; - continue; - } - case 2: - if (cp_opt(cp, CTOK_ANDAND)) { - cp_expr_sub(cp, &k2, 3); k->i32 = k->u32 && k2.u32; k->id = CTID_INT32; - continue; - } - case 3: - if (cp_opt(cp, '|')) { - cp_expr_sub(cp, &k2, 4); k->u32 = k->u32 | k2.u32; goto arith_result; - } - case 4: - if (cp_opt(cp, '^')) { - cp_expr_sub(cp, &k2, 5); k->u32 = k->u32 ^ k2.u32; goto arith_result; - } - case 5: - if (cp_opt(cp, '&')) { - cp_expr_sub(cp, &k2, 6); k->u32 = k->u32 & k2.u32; goto arith_result; - } - case 6: - if (cp_opt(cp, CTOK_EQ)) { - cp_expr_sub(cp, &k2, 7); k->i32 = k->u32 == k2.u32; k->id = CTID_INT32; - continue; - } else if (cp_opt(cp, CTOK_NE)) { - cp_expr_sub(cp, &k2, 7); k->i32 = k->u32 != k2.u32; k->id = CTID_INT32; - continue; - } - case 7: - if (cp_opt(cp, '<')) { - cp_expr_sub(cp, &k2, 8); - if (k->id == CTID_INT32 && k2.id == CTID_INT32) - k->i32 = k->i32 < k2.i32; - else - k->i32 = k->u32 < k2.u32; - k->id = CTID_INT32; - continue; - } else if (cp_opt(cp, '>')) { - cp_expr_sub(cp, &k2, 8); - if (k->id == CTID_INT32 && k2.id == CTID_INT32) - k->i32 = k->i32 > k2.i32; - else - k->i32 = k->u32 > k2.u32; - k->id = CTID_INT32; - continue; - } else if (cp_opt(cp, CTOK_LE)) { - cp_expr_sub(cp, &k2, 8); - if (k->id == CTID_INT32 && k2.id == CTID_INT32) - k->i32 = k->i32 <= k2.i32; - else - k->i32 = k->u32 <= k2.u32; - k->id = CTID_INT32; - continue; - } else if (cp_opt(cp, CTOK_GE)) { - cp_expr_sub(cp, &k2, 8); - if (k->id == CTID_INT32 && k2.id == CTID_INT32) - k->i32 = k->i32 >= k2.i32; - else - k->i32 = k->u32 >= k2.u32; - k->id = CTID_INT32; - continue; - } - case 8: - if (cp_opt(cp, CTOK_SHL)) { - cp_expr_sub(cp, &k2, 9); k->u32 = k->u32 << k2.u32; - continue; - } else if (cp_opt(cp, CTOK_SHR)) { - cp_expr_sub(cp, &k2, 9); - if (k->id == CTID_INT32) - k->i32 = k->i32 >> k2.i32; - else - k->u32 = k->u32 >> k2.u32; - continue; - } - case 9: - if (cp_opt(cp, '+')) { - cp_expr_sub(cp, &k2, 10); k->u32 = k->u32 + k2.u32; - arith_result: - if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ - continue; - } else if (cp_opt(cp, '-')) { - cp_expr_sub(cp, &k2, 10); k->u32 = k->u32 - k2.u32; goto arith_result; - } - case 10: - if (cp_opt(cp, '*')) { - cp_expr_unary(cp, &k2); k->u32 = k->u32 * k2.u32; goto arith_result; - } else if (cp_opt(cp, '/')) { - cp_expr_unary(cp, &k2); - if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ - if (k2.u32 == 0 || - (k->id == CTID_INT32 && k->u32 == 0x80000000u && k2.i32 == -1)) - cp_err(cp, LJ_ERR_BADVAL); - if (k->id == CTID_INT32) - k->i32 = k->i32 / k2.i32; - else - k->u32 = k->u32 / k2.u32; - continue; - } else if (cp_opt(cp, '%')) { - cp_expr_unary(cp, &k2); - if (k2.id > k->id) k->id = k2.id; /* Trivial promotion to unsigned. */ - if (k2.u32 == 0 || - (k->id == CTID_INT32 && k->u32 == 0x80000000u && k2.i32 == -1)) - cp_err(cp, LJ_ERR_BADVAL); - if (k->id == CTID_INT32) - k->i32 = k->i32 % k2.i32; - else - k->u32 = k->u32 % k2.u32; - continue; - } - default: - return; - } - } -} - -/* Parse and evaluate unary expression. */ -static void cp_expr_unary(CPState *cp, CPValue *k) -{ - if (++cp->depth > CPARSE_MAX_DECLDEPTH) cp_err(cp, LJ_ERR_XLEVELS); - cp_expr_prefix(cp, k); - cp_expr_postfix(cp, k); - cp->depth--; -} - -/* Parse and evaluate sub-expression. */ -static void cp_expr_sub(CPState *cp, CPValue *k, int pri) -{ - cp_expr_unary(cp, k); - cp_expr_infix(cp, k, pri); -} - -/* Parse constant integer expression. */ -static void cp_expr_kint(CPState *cp, CPValue *k) -{ - CType *ct; - cp_expr_sub(cp, k, 0); - ct = ctype_raw(cp->cts, k->id); - if (!ctype_isinteger(ct->info)) cp_err(cp, LJ_ERR_BADVAL); -} - -/* Parse (non-negative) size expression. */ -static CTSize cp_expr_ksize(CPState *cp) -{ - CPValue k; - cp_expr_kint(cp, &k); - if (k.u32 >= 0x80000000u) cp_err(cp, LJ_ERR_FFI_INVSIZE); - return k.u32; -} - -/* -- Type declaration stack management ----------------------------------- */ - -/* Add declaration element behind the insertion position. */ -static CPDeclIdx cp_add(CPDecl *decl, CTInfo info, CTSize size) -{ - CPDeclIdx top = decl->top; - if (top >= CPARSE_MAX_DECLSTACK) cp_err(decl->cp, LJ_ERR_XLEVELS); - decl->stack[top].info = info; - decl->stack[top].size = size; - decl->stack[top].sib = 0; - setgcrefnull(decl->stack[top].name); - decl->stack[top].next = decl->stack[decl->pos].next; - decl->stack[decl->pos].next = (CTypeID1)top; - decl->top = top+1; - return top; -} - -/* Push declaration element before the insertion position. */ -static CPDeclIdx cp_push(CPDecl *decl, CTInfo info, CTSize size) -{ - return (decl->pos = cp_add(decl, info, size)); -} - -/* Push or merge attributes. */ -static void cp_push_attributes(CPDecl *decl) -{ - CType *ct = &decl->stack[decl->pos]; - if (ctype_isfunc(ct->info)) { /* Ok to modify in-place. */ -#if LJ_TARGET_X86 - if ((decl->fattr & CTFP_CCONV)) - ct->info = (ct->info & (CTMASK_NUM|CTF_VARARG|CTMASK_CID)) + - (decl->fattr & ~CTMASK_CID); -#endif - } else { - if ((decl->attr & CTFP_ALIGNED) && !(decl->mode & CPARSE_MODE_FIELD)) - cp_push(decl, CTINFO(CT_ATTRIB, CTATTRIB(CTA_ALIGN)), - ctype_align(decl->attr)); - } -} - -/* Push unrolled type to declaration stack and merge qualifiers. */ -static void cp_push_type(CPDecl *decl, CTypeID id) -{ - CType *ct = ctype_get(decl->cp->cts, id); - CTInfo info = ct->info; - CTSize size = ct->size; - switch (ctype_type(info)) { - case CT_STRUCT: case CT_ENUM: - cp_push(decl, CTINFO(CT_TYPEDEF, id), 0); /* Don't copy unique types. */ - if ((decl->attr & CTF_QUAL)) { /* Push unmerged qualifiers. */ - cp_push(decl, CTINFO(CT_ATTRIB, CTATTRIB(CTA_QUAL)), - (decl->attr & CTF_QUAL)); - decl->attr &= ~CTF_QUAL; - } - break; - case CT_ATTRIB: - if (ctype_isxattrib(info, CTA_QUAL)) - decl->attr &= ~size; /* Remove redundant qualifiers. */ - cp_push_type(decl, ctype_cid(info)); /* Unroll. */ - cp_push(decl, info & ~CTMASK_CID, size); /* Copy type. */ - break; - case CT_ARRAY: - cp_push_type(decl, ctype_cid(info)); /* Unroll. */ - cp_push(decl, info & ~CTMASK_CID, size); /* Copy type. */ - decl->stack[decl->pos].sib = 1; /* Mark as already checked and sized. */ - /* Note: this is not copied to the ct->sib in the C type table. */ - break; - case CT_FUNC: - /* Copy type, link parameters (shared). */ - decl->stack[cp_push(decl, info, size)].sib = ct->sib; - break; - default: - /* Copy type, merge common qualifiers. */ - cp_push(decl, info|(decl->attr & CTF_QUAL), size); - decl->attr &= ~CTF_QUAL; - break; - } -} - -/* Consume the declaration element chain and intern the C type. */ -static CTypeID cp_decl_intern(CPState *cp, CPDecl *decl) -{ - CTypeID id = 0; - CPDeclIdx idx = 0; - CTSize csize = CTSIZE_INVALID; - CTSize cinfo = 0; - do { - CType *ct = &decl->stack[idx]; - CTInfo info = ct->info; - CTInfo size = ct->size; - /* The cid is already part of info for copies of pointers/functions. */ - idx = ct->next; - if (ctype_istypedef(info)) { - lua_assert(id == 0); - id = ctype_cid(info); - /* Always refetch info/size, since struct/enum may have been completed. */ - cinfo = ctype_get(cp->cts, id)->info; - csize = ctype_get(cp->cts, id)->size; - lua_assert(ctype_isstruct(cinfo) || ctype_isenum(cinfo)); - } else if (ctype_isfunc(info)) { /* Intern function. */ - CType *fct; - CTypeID fid; - CTypeID sib; - if (id) { - CType *refct = ctype_raw(cp->cts, id); - /* Reject function or refarray return types. */ - if (ctype_isfunc(refct->info) || ctype_isrefarray(refct->info)) - cp_err(cp, LJ_ERR_FFI_INVTYPE); - } - /* No intervening attributes allowed, skip forward. */ - while (idx) { - CType *ctn = &decl->stack[idx]; - if (!ctype_isattrib(ctn->info)) break; - idx = ctn->next; /* Skip attribute. */ - } - sib = ct->sib; /* Next line may reallocate the C type table. */ - fid = lj_ctype_new(cp->cts, &fct); - csize = CTSIZE_INVALID; - fct->info = cinfo = info + id; - fct->size = size; - fct->sib = sib; - id = fid; - } else if (ctype_isattrib(info)) { - if (ctype_isxattrib(info, CTA_QUAL)) - cinfo |= size; - else if (ctype_isxattrib(info, CTA_ALIGN)) - CTF_INSERT(cinfo, ALIGN, size); - id = lj_ctype_intern(cp->cts, info+id, size); - /* Inherit csize/cinfo from original type. */ - } else { - if (ctype_isnum(info)) { /* Handle mode/vector-size attributes. */ - lua_assert(id == 0); - if (!(info & CTF_BOOL)) { - CTSize msize = ctype_msizeP(decl->attr); - CTSize vsize = ctype_vsizeP(decl->attr); - if (msize && (!(info & CTF_FP) || (msize == 4 || msize == 8))) { - CTSize malign = lj_fls(msize); - if (malign > 4) malign = 4; /* Limit alignment. */ - CTF_INSERT(info, ALIGN, malign); - size = msize; /* Override size via mode. */ - } - if (vsize) { /* Vector size set? */ - CTSize esize = lj_fls(size); - if (vsize >= esize) { - /* Intern the element type first. */ - id = lj_ctype_intern(cp->cts, info, size); - /* Then create a vector (array) with vsize alignment. */ - size = (1u << vsize); - if (vsize > 4) vsize = 4; /* Limit alignment. */ - if (ctype_align(info) > vsize) vsize = ctype_align(info); - info = CTINFO(CT_ARRAY, (info & CTF_QUAL) + CTF_VECTOR + - CTALIGN(vsize)); - } - } - } - } else if (ctype_isptr(info)) { - /* Reject pointer/ref to ref. */ - if (id && ctype_isref(ctype_raw(cp->cts, id)->info)) - cp_err(cp, LJ_ERR_FFI_INVTYPE); - if (ctype_isref(info)) { - info &= ~CTF_VOLATILE; /* Refs are always const, never volatile. */ - /* No intervening attributes allowed, skip forward. */ - while (idx) { - CType *ctn = &decl->stack[idx]; - if (!ctype_isattrib(ctn->info)) break; - idx = ctn->next; /* Skip attribute. */ - } - } - } else if (ctype_isarray(info)) { /* Check for valid array size etc. */ - if (ct->sib == 0) { /* Only check/size arrays not copied by unroll. */ - if (ctype_isref(cinfo)) /* Reject arrays of refs. */ - cp_err(cp, LJ_ERR_FFI_INVTYPE); - /* Reject VLS or unknown-sized types. */ - if (ctype_isvltype(cinfo) || csize == CTSIZE_INVALID) - cp_err(cp, LJ_ERR_FFI_INVSIZE); - /* a[] and a[?] keep their invalid size. */ - if (size != CTSIZE_INVALID) { - uint64_t xsz = (uint64_t)size * csize; - if (xsz >= 0x80000000u) cp_err(cp, LJ_ERR_FFI_INVSIZE); - size = (CTSize)xsz; - } - } - if ((cinfo & CTF_ALIGN) > (info & CTF_ALIGN)) /* Find max. align. */ - info = (info & ~CTF_ALIGN) | (cinfo & CTF_ALIGN); - info |= (cinfo & CTF_QUAL); /* Inherit qual. */ - } else { - lua_assert(ctype_isvoid(info)); - } - csize = size; - cinfo = info+id; - id = lj_ctype_intern(cp->cts, info+id, size); - } - } while (idx); - return id; -} - -/* -- C declaration parser ------------------------------------------------ */ - -#define H_(le, be) LJ_ENDIAN_SELECT(0x##le, 0x##be) - -/* Reset declaration state to declaration specifier. */ -static void cp_decl_reset(CPDecl *decl) -{ - decl->pos = decl->specpos; - decl->top = decl->specpos+1; - decl->stack[decl->specpos].next = 0; - decl->attr = decl->specattr; - decl->fattr = decl->specfattr; - decl->name = NULL; - decl->redir = NULL; -} - -/* Parse constant initializer. */ -/* NYI: FP constants and strings as initializers. */ -static CTypeID cp_decl_constinit(CPState *cp, CType **ctp, CTypeID ctypeid) -{ - CType *ctt = ctype_get(cp->cts, ctypeid); - CTInfo info; - CTSize size; - CPValue k; - CTypeID constid; - while (ctype_isattrib(ctt->info)) { /* Skip attributes. */ - ctypeid = ctype_cid(ctt->info); /* Update ID, too. */ - ctt = ctype_get(cp->cts, ctypeid); - } - info = ctt->info; - size = ctt->size; - if (!ctype_isinteger(info) || !(info & CTF_CONST) || size > 4) - cp_err(cp, LJ_ERR_FFI_INVTYPE); - cp_check(cp, '='); - cp_expr_sub(cp, &k, 0); - constid = lj_ctype_new(cp->cts, ctp); - (*ctp)->info = CTINFO(CT_CONSTVAL, CTF_CONST|ctypeid); - k.u32 <<= 8*(4-size); - if ((info & CTF_UNSIGNED)) - k.u32 >>= 8*(4-size); - else - k.u32 = (uint32_t)((int32_t)k.u32 >> 8*(4-size)); - (*ctp)->size = k.u32; - return constid; -} - -/* Parse size in parentheses as part of attribute. */ -static CTSize cp_decl_sizeattr(CPState *cp) -{ - CTSize sz; - uint32_t oldtmask = cp->tmask; - cp->tmask = CPNS_DEFAULT; /* Required for expression evaluator. */ - cp_check(cp, '('); - sz = cp_expr_ksize(cp); - cp->tmask = oldtmask; - cp_check(cp, ')'); - return sz; -} - -/* Parse alignment attribute. */ -static void cp_decl_align(CPState *cp, CPDecl *decl) -{ - CTSize al = 4; /* Unspecified alignment is 16 bytes. */ - if (cp->tok == '(') { - al = cp_decl_sizeattr(cp); - al = al ? lj_fls(al) : 0; - } - CTF_INSERT(decl->attr, ALIGN, al); - decl->attr |= CTFP_ALIGNED; -} - -/* Parse GCC asm("name") redirect. */ -static void cp_decl_asm(CPState *cp, CPDecl *decl) -{ - UNUSED(decl); - cp_next(cp); - cp_check(cp, '('); - if (cp->tok == CTOK_STRING) { - GCstr *str = cp->str; - while (cp_next(cp) == CTOK_STRING) { - lj_strfmt_pushf(cp->L, "%s%s", strdata(str), strdata(cp->str)); - cp->L->top--; - str = strV(cp->L->top); - } - decl->redir = str; - } - cp_check(cp, ')'); -} - -/* Parse GCC __attribute__((mode(...))). */ -static void cp_decl_mode(CPState *cp, CPDecl *decl) -{ - cp_check(cp, '('); - if (cp->tok == CTOK_IDENT) { - const char *s = strdata(cp->str); - CTSize sz = 0, vlen = 0; - if (s[0] == '_' && s[1] == '_') s += 2; - if (*s == 'V') { - s++; - vlen = *s++ - '0'; - if (*s >= '0' && *s <= '9') - vlen = vlen*10 + (*s++ - '0'); - } - switch (*s++) { - case 'Q': sz = 1; break; - case 'H': sz = 2; break; - case 'S': sz = 4; break; - case 'D': sz = 8; break; - case 'T': sz = 16; break; - case 'O': sz = 32; break; - default: goto bad_size; - } - if (*s == 'I' || *s == 'F') { - CTF_INSERT(decl->attr, MSIZEP, sz); - if (vlen) CTF_INSERT(decl->attr, VSIZEP, lj_fls(vlen*sz)); - } - bad_size: - cp_next(cp); - } - cp_check(cp, ')'); -} - -/* Parse GCC __attribute__((...)). */ -static void cp_decl_gccattribute(CPState *cp, CPDecl *decl) -{ - cp_next(cp); - cp_check(cp, '('); - cp_check(cp, '('); - while (cp->tok != ')') { - if (cp->tok == CTOK_IDENT) { - GCstr *attrstr = cp->str; - cp_next(cp); - switch (attrstr->hash) { - case H_(64a9208e,8ce14319): case H_(8e6331b2,95a282af): /* aligned */ - cp_decl_align(cp, decl); - break; - case H_(42eb47de,f0ede26c): case H_(29f48a09,cf383e0c): /* packed */ - decl->attr |= CTFP_PACKED; - break; - case H_(0a84eef6,8dfab04c): case H_(995cf92c,d5696591): /* mode */ - cp_decl_mode(cp, decl); - break; - case H_(0ab31997,2d5213fa): case H_(bf875611,200e9990): /* vector_size */ - { - CTSize vsize = cp_decl_sizeattr(cp); - if (vsize) CTF_INSERT(decl->attr, VSIZEP, lj_fls(vsize)); - } - break; -#if LJ_TARGET_X86 - case H_(5ad22db8,c689b848): case H_(439150fa,65ea78cb): /* regparm */ - CTF_INSERT(decl->fattr, REGPARM, cp_decl_sizeattr(cp)); - decl->fattr |= CTFP_CCONV; - break; - case H_(18fc0b98,7ff4c074): case H_(4e62abed,0a747424): /* cdecl */ - CTF_INSERT(decl->fattr, CCONV, CTCC_CDECL); - decl->fattr |= CTFP_CCONV; - break; - case H_(72b2e41b,494c5a44): case H_(f2356d59,f25fc9bd): /* thiscall */ - CTF_INSERT(decl->fattr, CCONV, CTCC_THISCALL); - decl->fattr |= CTFP_CCONV; - break; - case H_(0d0ffc42,ab746f88): case H_(21c54ba1,7f0ca7e3): /* fastcall */ - CTF_INSERT(decl->fattr, CCONV, CTCC_FASTCALL); - decl->fattr |= CTFP_CCONV; - break; - case H_(ef76b040,9412e06a): case H_(de56697b,c750e6e1): /* stdcall */ - CTF_INSERT(decl->fattr, CCONV, CTCC_STDCALL); - decl->fattr |= CTFP_CCONV; - break; - case H_(ea78b622,f234bd8e): case H_(252ffb06,8d50f34b): /* sseregparm */ - decl->fattr |= CTF_SSEREGPARM; - decl->fattr |= CTFP_CCONV; - break; -#endif - default: /* Skip all other attributes. */ - goto skip_attr; - } - } else if (cp->tok >= CTOK_FIRSTDECL) { /* For __attribute((const)) etc. */ - cp_next(cp); - skip_attr: - if (cp_opt(cp, '(')) { - while (cp->tok != ')' && cp->tok != CTOK_EOF) cp_next(cp); - cp_check(cp, ')'); - } - } else { - break; - } - if (!cp_opt(cp, ',')) break; - } - cp_check(cp, ')'); - cp_check(cp, ')'); -} - -/* Parse MSVC __declspec(...). */ -static void cp_decl_msvcattribute(CPState *cp, CPDecl *decl) -{ - cp_next(cp); - cp_check(cp, '('); - while (cp->tok == CTOK_IDENT) { - GCstr *attrstr = cp->str; - cp_next(cp); - switch (attrstr->hash) { - case H_(bc2395fa,98f267f8): /* align */ - cp_decl_align(cp, decl); - break; - default: /* Ignore all other attributes. */ - if (cp_opt(cp, '(')) { - while (cp->tok != ')' && cp->tok != CTOK_EOF) cp_next(cp); - cp_check(cp, ')'); - } - break; - } - } - cp_check(cp, ')'); -} - -/* Parse declaration attributes (and common qualifiers). */ -static void cp_decl_attributes(CPState *cp, CPDecl *decl) -{ - for (;;) { - switch (cp->tok) { - case CTOK_CONST: decl->attr |= CTF_CONST; break; - case CTOK_VOLATILE: decl->attr |= CTF_VOLATILE; break; - case CTOK_RESTRICT: break; /* Ignore. */ - case CTOK_EXTENSION: break; /* Ignore. */ - case CTOK_ATTRIBUTE: cp_decl_gccattribute(cp, decl); continue; - case CTOK_ASM: cp_decl_asm(cp, decl); continue; - case CTOK_DECLSPEC: cp_decl_msvcattribute(cp, decl); continue; - case CTOK_CCDECL: -#if LJ_TARGET_X86 - CTF_INSERT(decl->fattr, CCONV, cp->ct->size); - decl->fattr |= CTFP_CCONV; -#endif - break; - case CTOK_PTRSZ: -#if LJ_64 - CTF_INSERT(decl->attr, MSIZEP, cp->ct->size); -#endif - break; - default: return; - } - cp_next(cp); - } -} - -/* Parse struct/union/enum name. */ -static CTypeID cp_struct_name(CPState *cp, CPDecl *sdecl, CTInfo info) -{ - CTypeID sid; - CType *ct; - cp->tmask = CPNS_STRUCT; - cp_next(cp); - cp_decl_attributes(cp, sdecl); - cp->tmask = CPNS_DEFAULT; - if (cp->tok != '{') { - if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); - if (cp->val.id) { /* Name of existing struct/union/enum. */ - sid = cp->val.id; - ct = cp->ct; - if ((ct->info ^ info) & (CTMASK_NUM|CTF_UNION)) /* Wrong type. */ - cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(gco2str(gcref(ct->name)))); - } else { /* Create named, incomplete struct/union/enum. */ - if ((cp->mode & CPARSE_MODE_NOIMPLICIT)) - cp_errmsg(cp, 0, LJ_ERR_FFI_BADTAG, strdata(cp->str)); - sid = lj_ctype_new(cp->cts, &ct); - ct->info = info; - ct->size = CTSIZE_INVALID; - ctype_setname(ct, cp->str); - lj_ctype_addname(cp->cts, ct, sid); - } - cp_next(cp); - } else { /* Create anonymous, incomplete struct/union/enum. */ - sid = lj_ctype_new(cp->cts, &ct); - ct->info = info; - ct->size = CTSIZE_INVALID; - } - if (cp->tok == '{') { - if (ct->size != CTSIZE_INVALID || ct->sib) - cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(gco2str(gcref(ct->name)))); - ct->sib = 1; /* Indicate the type is currently being defined. */ - } - return sid; -} - -/* Determine field alignment. */ -static CTSize cp_field_align(CPState *cp, CType *ct, CTInfo info) -{ - CTSize align = ctype_align(info); - UNUSED(cp); UNUSED(ct); -#if (LJ_TARGET_X86 && !LJ_ABI_WIN) || (LJ_TARGET_ARM && __APPLE__) - /* The SYSV i386 and iOS ABIs limit alignment of non-vector fields to 2^2. */ - if (align > 2 && !(info & CTFP_ALIGNED)) { - if (ctype_isarray(info) && !(info & CTF_VECTOR)) { - do { - ct = ctype_rawchild(cp->cts, ct); - info = ct->info; - } while (ctype_isarray(info) && !(info & CTF_VECTOR)); - } - if (ctype_isnum(info) || ctype_isenum(info)) - align = 2; - } -#endif - return align; -} - -/* Layout struct/union fields. */ -static void cp_struct_layout(CPState *cp, CTypeID sid, CTInfo sattr) -{ - CTSize bofs = 0, bmaxofs = 0; /* Bit offset and max. bit offset. */ - CTSize maxalign = ctype_align(sattr); - CType *sct = ctype_get(cp->cts, sid); - CTInfo sinfo = sct->info; - CTypeID fieldid = sct->sib; - while (fieldid) { - CType *ct = ctype_get(cp->cts, fieldid); - CTInfo attr = ct->size; /* Field declaration attributes (temp.). */ - - if (ctype_isfield(ct->info) || - (ctype_isxattrib(ct->info, CTA_SUBTYPE) && attr)) { - CTSize align, amask; /* Alignment (pow2) and alignment mask (bits). */ - CTSize sz; - CTInfo info = lj_ctype_info(cp->cts, ctype_cid(ct->info), &sz); - CTSize bsz, csz = 8*sz; /* Field size and container size (in bits). */ - sinfo |= (info & (CTF_QUAL|CTF_VLA)); /* Merge pseudo-qualifiers. */ - - /* Check for size overflow and determine alignment. */ - if (sz >= 0x20000000u || bofs + csz < bofs || (info & CTF_VLA)) { - if (!(sz == CTSIZE_INVALID && ctype_isarray(info) && - !(sinfo & CTF_UNION))) - cp_err(cp, LJ_ERR_FFI_INVSIZE); - csz = sz = 0; /* Treat a[] and a[?] as zero-sized. */ - } - align = cp_field_align(cp, ct, info); - if (((attr|sattr) & CTFP_PACKED) || - ((attr & CTFP_ALIGNED) && ctype_align(attr) > align)) - align = ctype_align(attr); - if (cp->packstack[cp->curpack] < align) - align = cp->packstack[cp->curpack]; - if (align > maxalign) maxalign = align; - amask = (8u << align) - 1; - - bsz = ctype_bitcsz(ct->info); /* Bitfield size (temp.). */ - if (bsz == CTBSZ_FIELD || !ctype_isfield(ct->info)) { - bsz = csz; /* Regular fields or subtypes always fill the container. */ - bofs = (bofs + amask) & ~amask; /* Start new aligned field. */ - ct->size = (bofs >> 3); /* Store field offset. */ - } else { /* Bitfield. */ - if (bsz == 0 || (attr & CTFP_ALIGNED) || - (!((attr|sattr) & CTFP_PACKED) && (bofs & amask) + bsz > csz)) - bofs = (bofs + amask) & ~amask; /* Start new aligned field. */ - - /* Prefer regular field over bitfield. */ - if (bsz == csz && (bofs & amask) == 0) { - ct->info = CTINFO(CT_FIELD, ctype_cid(ct->info)); - ct->size = (bofs >> 3); /* Store field offset. */ - } else { - ct->info = CTINFO(CT_BITFIELD, - (info & (CTF_QUAL|CTF_UNSIGNED|CTF_BOOL)) + - (csz << (CTSHIFT_BITCSZ-3)) + (bsz << CTSHIFT_BITBSZ)); -#if LJ_BE - ct->info += ((csz - (bofs & (csz-1)) - bsz) << CTSHIFT_BITPOS); -#else - ct->info += ((bofs & (csz-1)) << CTSHIFT_BITPOS); -#endif - ct->size = ((bofs & ~(csz-1)) >> 3); /* Store container offset. */ - } - } - - /* Determine next offset or max. offset. */ - if ((sinfo & CTF_UNION)) { - if (bsz > bmaxofs) bmaxofs = bsz; - } else { - bofs += bsz; - } - } /* All other fields in the chain are already set up. */ - - fieldid = ct->sib; - } - - /* Complete struct/union. */ - sct->info = sinfo + CTALIGN(maxalign); - bofs = (sinfo & CTF_UNION) ? bmaxofs : bofs; - maxalign = (8u << maxalign) - 1; - sct->size = (((bofs + maxalign) & ~maxalign) >> 3); -} - -/* Parse struct/union declaration. */ -static CTypeID cp_decl_struct(CPState *cp, CPDecl *sdecl, CTInfo sinfo) -{ - CTypeID sid = cp_struct_name(cp, sdecl, sinfo); - if (cp_opt(cp, '{')) { /* Struct/union definition. */ - CTypeID lastid = sid; - int lastdecl = 0; - while (cp->tok != '}') { - CPDecl decl; - CPscl scl = cp_decl_spec(cp, &decl, CDF_STATIC); - decl.mode = scl ? CPARSE_MODE_DIRECT : - CPARSE_MODE_DIRECT|CPARSE_MODE_ABSTRACT|CPARSE_MODE_FIELD; - - for (;;) { - CTypeID ctypeid; - - if (lastdecl) cp_err_token(cp, '}'); - - /* Parse field declarator. */ - decl.bits = CTSIZE_INVALID; - cp_declarator(cp, &decl); - ctypeid = cp_decl_intern(cp, &decl); - - if ((scl & CDF_STATIC)) { /* Static constant in struct namespace. */ - CType *ct; - CTypeID fieldid = cp_decl_constinit(cp, &ct, ctypeid); - ctype_get(cp->cts, lastid)->sib = fieldid; - lastid = fieldid; - ctype_setname(ct, decl.name); - } else { - CTSize bsz = CTBSZ_FIELD; /* Temp. for layout phase. */ - CType *ct; - CTypeID fieldid = lj_ctype_new(cp->cts, &ct); /* Do this first. */ - CType *tct = ctype_raw(cp->cts, ctypeid); - - if (decl.bits == CTSIZE_INVALID) { /* Regular field. */ - if (ctype_isarray(tct->info) && tct->size == CTSIZE_INVALID) - lastdecl = 1; /* a[] or a[?] must be the last declared field. */ - - /* Accept transparent struct/union/enum. */ - if (!decl.name) { - if (!((ctype_isstruct(tct->info) && !(tct->info & CTF_VLA)) || - ctype_isenum(tct->info))) - cp_err_token(cp, CTOK_IDENT); - ct->info = CTINFO(CT_ATTRIB, CTATTRIB(CTA_SUBTYPE) + ctypeid); - ct->size = ctype_isstruct(tct->info) ? - (decl.attr|0x80000000u) : 0; /* For layout phase. */ - goto add_field; - } - } else { /* Bitfield. */ - bsz = decl.bits; - if (!ctype_isinteger_or_bool(tct->info) || - (bsz == 0 && decl.name) || 8*tct->size > CTBSZ_MAX || - bsz > ((tct->info & CTF_BOOL) ? 1 : 8*tct->size)) - cp_errmsg(cp, ':', LJ_ERR_BADVAL); - } - - /* Create temporary field for layout phase. */ - ct->info = CTINFO(CT_FIELD, ctypeid + (bsz << CTSHIFT_BITCSZ)); - ct->size = decl.attr; - if (decl.name) ctype_setname(ct, decl.name); - - add_field: - ctype_get(cp->cts, lastid)->sib = fieldid; - lastid = fieldid; - } - if (!cp_opt(cp, ',')) break; - cp_decl_reset(&decl); - } - cp_check(cp, ';'); - } - cp_check(cp, '}'); - ctype_get(cp->cts, lastid)->sib = 0; /* Drop sib = 1 for empty structs. */ - cp_decl_attributes(cp, sdecl); /* Layout phase needs postfix attributes. */ - cp_struct_layout(cp, sid, sdecl->attr); - } - return sid; -} - -/* Parse enum declaration. */ -static CTypeID cp_decl_enum(CPState *cp, CPDecl *sdecl) -{ - CTypeID eid = cp_struct_name(cp, sdecl, CTINFO(CT_ENUM, CTID_VOID)); - CTInfo einfo = CTINFO(CT_ENUM, CTALIGN(2) + CTID_UINT32); - CTSize esize = 4; /* Only 32 bit enums are supported. */ - if (cp_opt(cp, '{')) { /* Enum definition. */ - CPValue k; - CTypeID lastid = eid; - k.u32 = 0; - k.id = CTID_INT32; - do { - GCstr *name = cp->str; - if (cp->tok != CTOK_IDENT) cp_err_token(cp, CTOK_IDENT); - if (cp->val.id) cp_errmsg(cp, 0, LJ_ERR_FFI_REDEF, strdata(name)); - cp_next(cp); - if (cp_opt(cp, '=')) { - cp_expr_kint(cp, &k); - if (k.id == CTID_UINT32) { - /* C99 says that enum constants are always (signed) integers. - ** But since unsigned constants like 0x80000000 are quite common, - ** those are left as uint32_t. - */ - if (k.i32 >= 0) k.id = CTID_INT32; - } else { - /* OTOH it's common practice and even mandated by some ABIs - ** that the enum type itself is unsigned, unless there are any - ** negative constants. - */ - k.id = CTID_INT32; - if (k.i32 < 0) einfo = CTINFO(CT_ENUM, CTALIGN(2) + CTID_INT32); - } - } - /* Add named enum constant. */ - { - CType *ct; - CTypeID constid = lj_ctype_new(cp->cts, &ct); - ctype_get(cp->cts, lastid)->sib = constid; - lastid = constid; - ctype_setname(ct, name); - ct->info = CTINFO(CT_CONSTVAL, CTF_CONST|k.id); - ct->size = k.u32++; - if (k.u32 == 0x80000000u) k.id = CTID_UINT32; - lj_ctype_addname(cp->cts, ct, constid); - } - if (!cp_opt(cp, ',')) break; - } while (cp->tok != '}'); /* Trailing ',' is ok. */ - cp_check(cp, '}'); - /* Complete enum. */ - ctype_get(cp->cts, eid)->info = einfo; - ctype_get(cp->cts, eid)->size = esize; - } - return eid; -} - -/* Parse declaration specifiers. */ -static CPscl cp_decl_spec(CPState *cp, CPDecl *decl, CPscl scl) -{ - uint32_t cds = 0, sz = 0; - CTypeID tdef = 0; - - decl->cp = cp; - decl->mode = cp->mode; - decl->name = NULL; - decl->redir = NULL; - decl->attr = 0; - decl->fattr = 0; - decl->pos = decl->top = 0; - decl->stack[0].next = 0; - - for (;;) { /* Parse basic types. */ - cp_decl_attributes(cp, decl); - if (cp->tok >= CTOK_FIRSTDECL && cp->tok <= CTOK_LASTDECLFLAG) { - uint32_t cbit; - if (cp->ct->size) { - if (sz) goto end_decl; - sz = cp->ct->size; - } - cbit = (1u << (cp->tok - CTOK_FIRSTDECL)); - cds = cds | cbit | ((cbit & cds & CDF_LONG) << 1); - if (cp->tok >= CTOK_FIRSTSCL) { - if (!(scl & cbit)) cp_errmsg(cp, cp->tok, LJ_ERR_FFI_BADSCL); - } else if (tdef) { - goto end_decl; - } - cp_next(cp); - continue; - } - if (sz || tdef || - (cds & (CDF_SHORT|CDF_LONG|CDF_SIGNED|CDF_UNSIGNED|CDF_COMPLEX))) - break; - switch (cp->tok) { - case CTOK_STRUCT: - tdef = cp_decl_struct(cp, decl, CTINFO(CT_STRUCT, 0)); - continue; - case CTOK_UNION: - tdef = cp_decl_struct(cp, decl, CTINFO(CT_STRUCT, CTF_UNION)); - continue; - case CTOK_ENUM: - tdef = cp_decl_enum(cp, decl); - continue; - case CTOK_IDENT: - if (ctype_istypedef(cp->ct->info)) { - tdef = ctype_cid(cp->ct->info); /* Get typedef. */ - cp_next(cp); - continue; - } - break; - case '$': - tdef = cp->val.id; - cp_next(cp); - continue; - default: - break; - } - break; - } -end_decl: - - if ((cds & CDF_COMPLEX)) /* Use predefined complex types. */ - tdef = sz == 4 ? CTID_COMPLEX_FLOAT : CTID_COMPLEX_DOUBLE; - - if (tdef) { - cp_push_type(decl, tdef); - } else if ((cds & CDF_VOID)) { - cp_push(decl, CTINFO(CT_VOID, (decl->attr & CTF_QUAL)), CTSIZE_INVALID); - decl->attr &= ~CTF_QUAL; - } else { - /* Determine type info and size. */ - CTInfo info = CTINFO(CT_NUM, (cds & CDF_UNSIGNED) ? CTF_UNSIGNED : 0); - if ((cds & CDF_BOOL)) { - if ((cds & ~(CDF_SCL|CDF_BOOL|CDF_INT|CDF_SIGNED|CDF_UNSIGNED))) - cp_errmsg(cp, 0, LJ_ERR_FFI_INVTYPE); - info |= CTF_BOOL; - if (!(cds & CDF_SIGNED)) info |= CTF_UNSIGNED; - if (!sz) { - sz = 1; - } - } else if ((cds & CDF_FP)) { - info = CTINFO(CT_NUM, CTF_FP); - if ((cds & CDF_LONG)) sz = sizeof(long double); - } else if ((cds & CDF_CHAR)) { - if ((cds & (CDF_CHAR|CDF_SIGNED|CDF_UNSIGNED)) == CDF_CHAR) - info |= CTF_UCHAR; /* Handle platforms where char is unsigned. */ - } else if ((cds & CDF_SHORT)) { - sz = sizeof(short); - } else if ((cds & CDF_LONGLONG)) { - sz = 8; - } else if ((cds & CDF_LONG)) { - info |= CTF_LONG; - sz = sizeof(long); - } else if (!sz) { - if (!(cds & (CDF_SIGNED|CDF_UNSIGNED))) - cp_errmsg(cp, cp->tok, LJ_ERR_FFI_DECLSPEC); - sz = sizeof(int); - } - lua_assert(sz != 0); - info += CTALIGN(lj_fls(sz)); /* Use natural alignment. */ - info += (decl->attr & CTF_QUAL); /* Merge qualifiers. */ - cp_push(decl, info, sz); - decl->attr &= ~CTF_QUAL; - } - decl->specpos = decl->pos; - decl->specattr = decl->attr; - decl->specfattr = decl->fattr; - return (cds & CDF_SCL); /* Return storage class. */ -} - -/* Parse array declaration. */ -static void cp_decl_array(CPState *cp, CPDecl *decl) -{ - CTInfo info = CTINFO(CT_ARRAY, 0); - CTSize nelem = CTSIZE_INVALID; /* Default size for a[] or a[?]. */ - cp_decl_attributes(cp, decl); - if (cp_opt(cp, '?')) - info |= CTF_VLA; /* Create variable-length array a[?]. */ - else if (cp->tok != ']') - nelem = cp_expr_ksize(cp); - cp_check(cp, ']'); - cp_add(decl, info, nelem); -} - -/* Parse function declaration. */ -static void cp_decl_func(CPState *cp, CPDecl *fdecl) -{ - CTSize nargs = 0; - CTInfo info = CTINFO(CT_FUNC, 0); - CTypeID lastid = 0, anchor = 0; - if (cp->tok != ')') { - do { - CPDecl decl; - CTypeID ctypeid, fieldid; - CType *ct; - if (cp_opt(cp, '.')) { /* Vararg function. */ - cp_check(cp, '.'); /* Workaround for the minimalistic lexer. */ - cp_check(cp, '.'); - info |= CTF_VARARG; - break; - } - cp_decl_spec(cp, &decl, CDF_REGISTER); - decl.mode = CPARSE_MODE_DIRECT|CPARSE_MODE_ABSTRACT; - cp_declarator(cp, &decl); - ctypeid = cp_decl_intern(cp, &decl); - ct = ctype_raw(cp->cts, ctypeid); - if (ctype_isvoid(ct->info)) - break; - else if (ctype_isrefarray(ct->info)) - ctypeid = lj_ctype_intern(cp->cts, - CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ct->info)), CTSIZE_PTR); - else if (ctype_isfunc(ct->info)) - ctypeid = lj_ctype_intern(cp->cts, - CTINFO(CT_PTR, CTALIGN_PTR|ctypeid), CTSIZE_PTR); - /* Add new parameter. */ - fieldid = lj_ctype_new(cp->cts, &ct); - if (anchor) - ctype_get(cp->cts, lastid)->sib = fieldid; - else - anchor = fieldid; - lastid = fieldid; - if (decl.name) ctype_setname(ct, decl.name); - ct->info = CTINFO(CT_FIELD, ctypeid); - ct->size = nargs++; - } while (cp_opt(cp, ',')); - } - cp_check(cp, ')'); - if (cp_opt(cp, '{')) { /* Skip function definition. */ - int level = 1; - cp->mode |= CPARSE_MODE_SKIP; - for (;;) { - if (cp->tok == '{') level++; - else if (cp->tok == '}' && --level == 0) break; - else if (cp->tok == CTOK_EOF) cp_err_token(cp, '}'); - cp_next(cp); - } - cp->mode &= ~CPARSE_MODE_SKIP; - cp->tok = ';'; /* Ok for cp_decl_multi(), error in cp_decl_single(). */ - } - info |= (fdecl->fattr & ~CTMASK_CID); - fdecl->fattr = 0; - fdecl->stack[cp_add(fdecl, info, nargs)].sib = anchor; -} - -/* Parse declarator. */ -static void cp_declarator(CPState *cp, CPDecl *decl) -{ - if (++cp->depth > CPARSE_MAX_DECLDEPTH) cp_err(cp, LJ_ERR_XLEVELS); - - for (;;) { /* Head of declarator. */ - if (cp_opt(cp, '*')) { /* Pointer. */ - CTSize sz; - CTInfo info; - cp_decl_attributes(cp, decl); - sz = CTSIZE_PTR; - info = CTINFO(CT_PTR, CTALIGN_PTR); -#if LJ_64 - if (ctype_msizeP(decl->attr) == 4) { - sz = 4; - info = CTINFO(CT_PTR, CTALIGN(2)); - } -#endif - info += (decl->attr & (CTF_QUAL|CTF_REF)); - decl->attr &= ~(CTF_QUAL|(CTMASK_MSIZEP<attr &= ~(CTF_QUAL|(CTMASK_MSIZEP<mode & CPARSE_MODE_ABSTRACT) && - (cp->tok == ')' || cp_istypedecl(cp))) goto func_decl; - pos = decl->pos; - cp_declarator(cp, decl); - cp_check(cp, ')'); - decl->pos = pos; - } else if (cp->tok == CTOK_IDENT) { /* Direct declarator. */ - if (!(decl->mode & CPARSE_MODE_DIRECT)) cp_err_token(cp, CTOK_EOF); - decl->name = cp->str; - decl->nameid = cp->val.id; - cp_next(cp); - } else { /* Abstract declarator. */ - if (!(decl->mode & CPARSE_MODE_ABSTRACT)) cp_err_token(cp, CTOK_IDENT); - } - - for (;;) { /* Tail of declarator. */ - if (cp_opt(cp, '[')) { /* Array. */ - cp_decl_array(cp, decl); - } else if (cp_opt(cp, '(')) { /* Function. */ - func_decl: - cp_decl_func(cp, decl); - } else { - break; - } - } - - if ((decl->mode & CPARSE_MODE_FIELD) && cp_opt(cp, ':')) /* Field width. */ - decl->bits = cp_expr_ksize(cp); - - /* Process postfix attributes. */ - cp_decl_attributes(cp, decl); - cp_push_attributes(decl); - - cp->depth--; -} - -/* Parse an abstract type declaration and return it's C type ID. */ -static CTypeID cp_decl_abstract(CPState *cp) -{ - CPDecl decl; - cp_decl_spec(cp, &decl, 0); - decl.mode = CPARSE_MODE_ABSTRACT; - cp_declarator(cp, &decl); - return cp_decl_intern(cp, &decl); -} - -/* Handle pragmas. */ -static void cp_pragma(CPState *cp, BCLine pragmaline) -{ - cp_next(cp); - if (cp->tok == CTOK_IDENT && - cp->str->hash == H_(e79b999f,42ca3e85)) { /* pack */ - cp_next(cp); - cp_check(cp, '('); - if (cp->tok == CTOK_IDENT) { - if (cp->str->hash == H_(738e923c,a1b65954)) { /* push */ - if (cp->curpack < CPARSE_MAX_PACKSTACK) { - cp->packstack[cp->curpack+1] = cp->packstack[cp->curpack]; - cp->curpack++; - } - } else if (cp->str->hash == H_(6c71cf27,6c71cf27)) { /* pop */ - if (cp->curpack > 0) cp->curpack--; - } else { - cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); - } - cp_next(cp); - if (!cp_opt(cp, ',')) goto end_pack; - } - if (cp->tok == CTOK_INTEGER) { - cp->packstack[cp->curpack] = cp->val.u32 ? lj_fls(cp->val.u32) : 0; - cp_next(cp); - } else { - cp->packstack[cp->curpack] = 255; - } - end_pack: - cp_check(cp, ')'); - } else { /* Ignore all other pragmas. */ - while (cp->tok != CTOK_EOF && cp->linenumber == pragmaline) - cp_next(cp); - } -} - -/* Parse multiple C declarations of types or extern identifiers. */ -static void cp_decl_multi(CPState *cp) -{ - int first = 1; - while (cp->tok != CTOK_EOF) { - CPDecl decl; - CPscl scl; - if (cp_opt(cp, ';')) { /* Skip empty statements. */ - first = 0; - continue; - } - if (cp->tok == '#') { /* Workaround, since we have no preprocessor, yet. */ - BCLine pragmaline = cp->linenumber; - if (!(cp_next(cp) == CTOK_IDENT && - cp->str->hash == H_(f5e6b4f8,1d509107))) /* pragma */ - cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); - cp_pragma(cp, pragmaline); - continue; - } - scl = cp_decl_spec(cp, &decl, CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC); - if ((cp->tok == ';' || cp->tok == CTOK_EOF) && - ctype_istypedef(decl.stack[0].info)) { - CTInfo info = ctype_rawchild(cp->cts, &decl.stack[0])->info; - if (ctype_isstruct(info) || ctype_isenum(info)) - goto decl_end; /* Accept empty declaration of struct/union/enum. */ - } - for (;;) { - CTypeID ctypeid; - cp_declarator(cp, &decl); - ctypeid = cp_decl_intern(cp, &decl); - if (decl.name && !decl.nameid) { /* NYI: redeclarations are ignored. */ - CType *ct; - CTypeID id; - if ((scl & CDF_TYPEDEF)) { /* Create new typedef. */ - id = lj_ctype_new(cp->cts, &ct); - ct->info = CTINFO(CT_TYPEDEF, ctypeid); - goto noredir; - } else if (ctype_isfunc(ctype_get(cp->cts, ctypeid)->info)) { - /* Treat both static and extern function declarations as extern. */ - ct = ctype_get(cp->cts, ctypeid); - /* We always get new anonymous functions (typedefs are copied). */ - lua_assert(gcref(ct->name) == NULL); - id = ctypeid; /* Just name it. */ - } else if ((scl & CDF_STATIC)) { /* Accept static constants. */ - id = cp_decl_constinit(cp, &ct, ctypeid); - goto noredir; - } else { /* External references have extern or no storage class. */ - id = lj_ctype_new(cp->cts, &ct); - ct->info = CTINFO(CT_EXTERN, ctypeid); - } - if (decl.redir) { /* Add attribute for redirected symbol name. */ - CType *cta; - CTypeID aid = lj_ctype_new(cp->cts, &cta); - ct = ctype_get(cp->cts, id); /* Table may have been reallocated. */ - cta->info = CTINFO(CT_ATTRIB, CTATTRIB(CTA_REDIR)); - cta->sib = ct->sib; - ct->sib = aid; - ctype_setname(cta, decl.redir); - } - noredir: - ctype_setname(ct, decl.name); - lj_ctype_addname(cp->cts, ct, id); - } - if (!cp_opt(cp, ',')) break; - cp_decl_reset(&decl); - } - decl_end: - if (cp->tok == CTOK_EOF && first) break; /* May omit ';' for 1 decl. */ - first = 0; - cp_check(cp, ';'); - } -} - -/* Parse a single C type declaration. */ -static void cp_decl_single(CPState *cp) -{ - CPDecl decl; - cp_decl_spec(cp, &decl, 0); - cp_declarator(cp, &decl); - cp->val.id = cp_decl_intern(cp, &decl); - if (cp->tok != CTOK_EOF) cp_err_token(cp, CTOK_EOF); -} - -#undef H_ - -/* ------------------------------------------------------------------------ */ - -/* Protected callback for C parser. */ -static TValue *cpcparser(lua_State *L, lua_CFunction dummy, void *ud) -{ - CPState *cp = (CPState *)ud; - UNUSED(dummy); - cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ - cp_init(cp); - if ((cp->mode & CPARSE_MODE_MULTI)) - cp_decl_multi(cp); - else - cp_decl_single(cp); - if (cp->param && cp->param != cp->L->top) - cp_err(cp, LJ_ERR_FFI_NUMPARAM); - lua_assert(cp->depth == 0); - return NULL; -} - -/* C parser. */ -int lj_cparse(CPState *cp) -{ - LJ_CTYPE_SAVE(cp->cts); - int errcode = lj_vm_cpcall(cp->L, NULL, cp, cpcparser); - if (errcode) - LJ_CTYPE_RESTORE(cp->cts); - cp_cleanup(cp); - return errcode; -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_cparse.h b/src/3rd party/luajit-2.0-BAK/src/lj_cparse.h deleted file mode 100644 index 441580de6fe..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_cparse.h +++ /dev/null @@ -1,65 +0,0 @@ -/* -** C declaration parser. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CPARSE_H -#define _LJ_CPARSE_H - -#include "lj_obj.h" -#include "lj_ctype.h" - -#if LJ_HASFFI - -/* C parser limits. */ -#define CPARSE_MAX_BUF 32768 /* Max. token buffer size. */ -#define CPARSE_MAX_DECLSTACK 100 /* Max. declaration stack depth. */ -#define CPARSE_MAX_DECLDEPTH 20 /* Max. recursive declaration depth. */ -#define CPARSE_MAX_PACKSTACK 7 /* Max. pack pragma stack depth. */ - -/* Flags for C parser mode. */ -#define CPARSE_MODE_MULTI 1 /* Process multiple declarations. */ -#define CPARSE_MODE_ABSTRACT 2 /* Accept abstract declarators. */ -#define CPARSE_MODE_DIRECT 4 /* Accept direct declarators. */ -#define CPARSE_MODE_FIELD 8 /* Accept field width in bits, too. */ -#define CPARSE_MODE_NOIMPLICIT 16 /* Reject implicit declarations. */ -#define CPARSE_MODE_SKIP 32 /* Skip definitions, ignore errors. */ - -typedef int CPChar; /* C parser character. Unsigned ext. from char. */ -typedef int CPToken; /* C parser token. */ - -/* C parser internal value representation. */ -typedef struct CPValue { - union { - int32_t i32; /* Value for CTID_INT32. */ - uint32_t u32; /* Value for CTID_UINT32. */ - }; - CTypeID id; /* C Type ID of the value. */ -} CPValue; - -/* C parser state. */ -typedef struct CPState { - CPChar c; /* Current character. */ - CPToken tok; /* Current token. */ - CPValue val; /* Token value. */ - GCstr *str; /* Interned string of identifier/keyword. */ - CType *ct; /* C type table entry. */ - const char *p; /* Current position in input buffer. */ - SBuf sb; /* String buffer for tokens. */ - lua_State *L; /* Lua state. */ - CTState *cts; /* C type state. */ - TValue *param; /* C type parameters. */ - const char *srcname; /* Current source name. */ - BCLine linenumber; /* Input line counter. */ - int depth; /* Recursive declaration depth. */ - uint32_t tmask; /* Type mask for next identifier. */ - uint32_t mode; /* C parser mode. */ - uint8_t packstack[CPARSE_MAX_PACKSTACK]; /* Stack for pack pragmas. */ - uint8_t curpack; /* Current position in pack pragma stack. */ -} CPState; - -LJ_FUNC int lj_cparse(CPState *cp); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_crecord.c b/src/3rd party/luajit-2.0-BAK/src/lj_crecord.c deleted file mode 100644 index e200cc99423..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_crecord.c +++ /dev/null @@ -1,1834 +0,0 @@ -/* -** Trace recorder for C data operations. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_ffrecord_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT && LJ_HASFFI - -#include "lj_err.h" -#include "lj_tab.h" -#include "lj_frame.h" -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lj_cparse.h" -#include "lj_cconv.h" -#include "lj_carith.h" -#include "lj_clib.h" -#include "lj_ccall.h" -#include "lj_ff.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_record.h" -#include "lj_ffrecord.h" -#include "lj_snap.h" -#include "lj_crecord.h" -#include "lj_dispatch.h" -#include "lj_strfmt.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -#define emitconv(a, dt, st, flags) \ - emitir(IRT(IR_CONV, (dt)), (a), (st)|((dt) << 5)|(flags)) - -/* -- C type checks ------------------------------------------------------- */ - -static GCcdata *argv2cdata(jit_State *J, TRef tr, cTValue *o) -{ - GCcdata *cd; - TRef trtypeid; - if (!tref_iscdata(tr)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - cd = cdataV(o); - /* Specialize to the CTypeID. */ - trtypeid = emitir(IRT(IR_FLOAD, IRT_U16), tr, IRFL_CDATA_CTYPEID); - emitir(IRTG(IR_EQ, IRT_INT), trtypeid, lj_ir_kint(J, (int32_t)cd->ctypeid)); - return cd; -} - -/* Specialize to the CTypeID held by a cdata constructor. */ -static CTypeID crec_constructor(jit_State *J, GCcdata *cd, TRef tr) -{ - CTypeID id; - lua_assert(tref_iscdata(tr) && cd->ctypeid == CTID_CTYPEID); - id = *(CTypeID *)cdataptr(cd); - tr = emitir(IRT(IR_FLOAD, IRT_INT), tr, IRFL_CDATA_INT); - emitir(IRTG(IR_EQ, IRT_INT), tr, lj_ir_kint(J, (int32_t)id)); - return id; -} - -static CTypeID argv2ctype(jit_State *J, TRef tr, cTValue *o) -{ - if (tref_isstr(tr)) { - GCstr *s = strV(o); - CPState cp; - CTypeID oldtop; - /* Specialize to the string containing the C type declaration. */ - emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, s)); - cp.L = J->L; - cp.cts = ctype_ctsG(J2G(J)); - oldtop = cp.cts->top; - cp.srcname = strdata(s); - cp.p = strdata(s); - cp.param = NULL; - cp.mode = CPARSE_MODE_ABSTRACT|CPARSE_MODE_NOIMPLICIT; - if (lj_cparse(&cp) || cp.cts->top > oldtop) /* Avoid new struct defs. */ - lj_trace_err(J, LJ_TRERR_BADTYPE); - return cp.val.id; - } else { - GCcdata *cd = argv2cdata(J, tr, o); - return cd->ctypeid == CTID_CTYPEID ? crec_constructor(J, cd, tr) : - cd->ctypeid; - } -} - -/* Convert CType to IRType (if possible). */ -static IRType crec_ct2irt(CTState *cts, CType *ct) -{ - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - if (LJ_LIKELY(ctype_isnum(ct->info))) { - if ((ct->info & CTF_FP)) { - if (ct->size == sizeof(double)) - return IRT_NUM; - else if (ct->size == sizeof(float)) - return IRT_FLOAT; - } else { - uint32_t b = lj_fls(ct->size); - if (b <= 3) - return IRT_I8 + 2*b + ((ct->info & CTF_UNSIGNED) ? 1 : 0); - } - } else if (ctype_isptr(ct->info)) { - return (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; - } else if (ctype_iscomplex(ct->info)) { - if (ct->size == 2*sizeof(double)) - return IRT_NUM; - else if (ct->size == 2*sizeof(float)) - return IRT_FLOAT; - } - return IRT_CDATA; -} - -/* -- Optimized memory fill and copy -------------------------------------- */ - -/* Maximum length and unroll of inlined copy/fill. */ -#define CREC_COPY_MAXUNROLL 16 -#define CREC_COPY_MAXLEN 128 - -#define CREC_FILL_MAXUNROLL 16 - -/* Number of windowed registers used for optimized memory copy. */ -#if LJ_TARGET_X86 -#define CREC_COPY_REGWIN 2 -#elif LJ_TARGET_PPC || LJ_TARGET_MIPS -#define CREC_COPY_REGWIN 8 -#else -#define CREC_COPY_REGWIN 4 -#endif - -/* List of memory offsets for copy/fill. */ -typedef struct CRecMemList { - CTSize ofs; /* Offset in bytes. */ - IRType tp; /* Type of load/store. */ - TRef trofs; /* TRef of interned offset. */ - TRef trval; /* TRef of load value. */ -} CRecMemList; - -/* Generate copy list for element-wise struct copy. */ -static MSize crec_copy_struct(CRecMemList *ml, CTState *cts, CType *ct) -{ - CTypeID fid = ct->sib; - MSize mlp = 0; - while (fid) { - CType *df = ctype_get(cts, fid); - fid = df->sib; - if (ctype_isfield(df->info)) { - CType *cct; - IRType tp; - if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ - cct = ctype_rawchild(cts, df); /* Field type. */ - tp = crec_ct2irt(cts, cct); - if (tp == IRT_CDATA) return 0; /* NYI: aggregates. */ - if (mlp >= CREC_COPY_MAXUNROLL) return 0; - ml[mlp].ofs = df->size; - ml[mlp].tp = tp; - mlp++; - if (ctype_iscomplex(cct->info)) { - if (mlp >= CREC_COPY_MAXUNROLL) return 0; - ml[mlp].ofs = df->size + (cct->size >> 1); - ml[mlp].tp = tp; - mlp++; - } - } else if (!ctype_isconstval(df->info)) { - /* NYI: bitfields and sub-structures. */ - return 0; - } - } - return mlp; -} - -/* Generate unrolled copy list, from highest to lowest step size/alignment. */ -static MSize crec_copy_unroll(CRecMemList *ml, CTSize len, CTSize step, - IRType tp) -{ - CTSize ofs = 0; - MSize mlp = 0; - if (tp == IRT_CDATA) tp = IRT_U8 + 2*lj_fls(step); - do { - while (ofs + step <= len) { - if (mlp >= CREC_COPY_MAXUNROLL) return 0; - ml[mlp].ofs = ofs; - ml[mlp].tp = tp; - mlp++; - ofs += step; - } - step >>= 1; - tp -= 2; - } while (ofs < len); - return mlp; -} - -/* -** Emit copy list with windowed loads/stores. -** LJ_TARGET_UNALIGNED: may emit unaligned loads/stores (not marked as such). -*/ -static void crec_copy_emit(jit_State *J, CRecMemList *ml, MSize mlp, - TRef trdst, TRef trsrc) -{ - MSize i, j, rwin = 0; - for (i = 0, j = 0; i < mlp; ) { - TRef trofs = lj_ir_kintp(J, ml[i].ofs); - TRef trsptr = emitir(IRT(IR_ADD, IRT_PTR), trsrc, trofs); - ml[i].trval = emitir(IRT(IR_XLOAD, ml[i].tp), trsptr, 0); - ml[i].trofs = trofs; - i++; - rwin += (LJ_SOFTFP && ml[i].tp == IRT_NUM) ? 2 : 1; - if (rwin >= CREC_COPY_REGWIN || i >= mlp) { /* Flush buffered stores. */ - rwin = 0; - for ( ; j < i; j++) { - TRef trdptr = emitir(IRT(IR_ADD, IRT_PTR), trdst, ml[j].trofs); - emitir(IRT(IR_XSTORE, ml[j].tp), trdptr, ml[j].trval); - } - } - } -} - -/* Optimized memory copy. */ -static void crec_copy(jit_State *J, TRef trdst, TRef trsrc, TRef trlen, - CType *ct) -{ - if (tref_isk(trlen)) { /* Length must be constant. */ - CRecMemList ml[CREC_COPY_MAXUNROLL]; - MSize mlp = 0; - CTSize step = 1, len = (CTSize)IR(tref_ref(trlen))->i; - IRType tp = IRT_CDATA; - int needxbar = 0; - if (len == 0) return; /* Shortcut. */ - if (len > CREC_COPY_MAXLEN) goto fallback; - if (ct) { - CTState *cts = ctype_ctsG(J2G(J)); - lua_assert(ctype_isarray(ct->info) || ctype_isstruct(ct->info)); - if (ctype_isarray(ct->info)) { - CType *cct = ctype_rawchild(cts, ct); - tp = crec_ct2irt(cts, cct); - if (tp == IRT_CDATA) goto rawcopy; - step = lj_ir_type_size[tp]; - lua_assert((len & (step-1)) == 0); - } else if ((ct->info & CTF_UNION)) { - step = (1u << ctype_align(ct->info)); - goto rawcopy; - } else { - mlp = crec_copy_struct(ml, cts, ct); - goto emitcopy; - } - } else { - rawcopy: - needxbar = 1; - if (LJ_TARGET_UNALIGNED || step >= CTSIZE_PTR) - step = CTSIZE_PTR; - } - mlp = crec_copy_unroll(ml, len, step, tp); - emitcopy: - if (mlp) { - crec_copy_emit(J, ml, mlp, trdst, trsrc); - if (needxbar) - emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); - return; - } - } -fallback: - /* Call memcpy. Always needs a barrier to disable alias analysis. */ - lj_ir_call(J, IRCALL_memcpy, trdst, trsrc, trlen); - emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); -} - -/* Generate unrolled fill list, from highest to lowest step size/alignment. */ -static MSize crec_fill_unroll(CRecMemList *ml, CTSize len, CTSize step) -{ - CTSize ofs = 0; - MSize mlp = 0; - IRType tp = IRT_U8 + 2*lj_fls(step); - do { - while (ofs + step <= len) { - if (mlp >= CREC_COPY_MAXUNROLL) return 0; - ml[mlp].ofs = ofs; - ml[mlp].tp = tp; - mlp++; - ofs += step; - } - step >>= 1; - tp -= 2; - } while (ofs < len); - return mlp; -} - -/* -** Emit stores for fill list. -** LJ_TARGET_UNALIGNED: may emit unaligned stores (not marked as such). -*/ -static void crec_fill_emit(jit_State *J, CRecMemList *ml, MSize mlp, - TRef trdst, TRef trfill) -{ - MSize i; - for (i = 0; i < mlp; i++) { - TRef trofs = lj_ir_kintp(J, ml[i].ofs); - TRef trdptr = emitir(IRT(IR_ADD, IRT_PTR), trdst, trofs); - emitir(IRT(IR_XSTORE, ml[i].tp), trdptr, trfill); - } -} - -/* Optimized memory fill. */ -static void crec_fill(jit_State *J, TRef trdst, TRef trlen, TRef trfill, - CTSize step) -{ - if (tref_isk(trlen)) { /* Length must be constant. */ - CRecMemList ml[CREC_FILL_MAXUNROLL]; - MSize mlp; - CTSize len = (CTSize)IR(tref_ref(trlen))->i; - if (len == 0) return; /* Shortcut. */ - if (LJ_TARGET_UNALIGNED || step >= CTSIZE_PTR) - step = CTSIZE_PTR; - if (step * CREC_FILL_MAXUNROLL < len) goto fallback; - mlp = crec_fill_unroll(ml, len, step); - if (!mlp) goto fallback; - if (tref_isk(trfill) || ml[0].tp != IRT_U8) - trfill = emitconv(trfill, IRT_INT, IRT_U8, 0); - if (ml[0].tp != IRT_U8) { /* Scatter U8 to U16/U32/U64. */ - if (CTSIZE_PTR == 8 && ml[0].tp == IRT_U64) { - if (tref_isk(trfill)) /* Pointless on x64 with zero-extended regs. */ - trfill = emitconv(trfill, IRT_U64, IRT_U32, 0); - trfill = emitir(IRT(IR_MUL, IRT_U64), trfill, - lj_ir_kint64(J, U64x(01010101,01010101))); - } else { - trfill = emitir(IRTI(IR_MUL), trfill, - lj_ir_kint(J, ml[0].tp == IRT_U16 ? 0x0101 : 0x01010101)); - } - } - crec_fill_emit(J, ml, mlp, trdst, trfill); - } else { -fallback: - /* Call memset. Always needs a barrier to disable alias analysis. */ - lj_ir_call(J, IRCALL_memset, trdst, trfill, trlen); /* Note: arg order! */ - } - emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); -} - -/* -- Convert C type to C type -------------------------------------------- */ - -/* -** This code mirrors the code in lj_cconv.c. It performs the same steps -** for the trace recorder that lj_cconv.c does for the interpreter. -** -** One major difference is that we can get away with much fewer checks -** here. E.g. checks for casts, constness or correct types can often be -** omitted, even if they might fail. The interpreter subsequently throws -** an error, which aborts the trace. -** -** All operations are specialized to their C types, so the on-trace -** outcome must be the same as the outcome in the interpreter. If the -** interpreter doesn't throw an error, then the trace is correct, too. -** Care must be taken not to generate invalid (temporary) IR or to -** trigger asserts. -*/ - -/* Determine whether a passed number or cdata number is non-zero. */ -static int crec_isnonzero(CType *s, void *p) -{ - if (p == (void *)0) - return 0; - if (p == (void *)1) - return 1; - if ((s->info & CTF_FP)) { - if (s->size == sizeof(float)) - return (*(float *)p != 0); - else - return (*(double *)p != 0); - } else { - if (s->size == 1) - return (*(uint8_t *)p != 0); - else if (s->size == 2) - return (*(uint16_t *)p != 0); - else if (s->size == 4) - return (*(uint32_t *)p != 0); - else - return (*(uint64_t *)p != 0); - } -} - -static TRef crec_ct_ct(jit_State *J, CType *d, CType *s, TRef dp, TRef sp, - void *svisnz) -{ - IRType dt = crec_ct2irt(ctype_ctsG(J2G(J)), d); - IRType st = crec_ct2irt(ctype_ctsG(J2G(J)), s); - CTSize dsize = d->size, ssize = s->size; - CTInfo dinfo = d->info, sinfo = s->info; - - if (ctype_type(dinfo) > CT_MAYCONVERT || ctype_type(sinfo) > CT_MAYCONVERT) - goto err_conv; - - /* - ** Note: Unlike lj_cconv_ct_ct(), sp holds the _value_ of pointers and - ** numbers up to 8 bytes. Otherwise sp holds a pointer. - */ - - switch (cconv_idx2(dinfo, sinfo)) { - /* Destination is a bool. */ - case CCX(B, B): - goto xstore; /* Source operand is already normalized. */ - case CCX(B, I): - case CCX(B, F): - if (st != IRT_CDATA) { - /* Specialize to the result of a comparison against 0. */ - TRef zero = (st == IRT_NUM || st == IRT_FLOAT) ? lj_ir_knum(J, 0) : - (st == IRT_I64 || st == IRT_U64) ? lj_ir_kint64(J, 0) : - lj_ir_kint(J, 0); - int isnz = crec_isnonzero(s, svisnz); - emitir(IRTG(isnz ? IR_NE : IR_EQ, st), sp, zero); - sp = lj_ir_kint(J, isnz); - goto xstore; - } - goto err_nyi; - - /* Destination is an integer. */ - case CCX(I, B): - case CCX(I, I): - conv_I_I: - if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - /* Extend 32 to 64 bit integer. */ - if (dsize == 8 && ssize < 8 && !(LJ_64 && (sinfo & CTF_UNSIGNED))) - sp = emitconv(sp, dt, ssize < 4 ? IRT_INT : st, - (sinfo & CTF_UNSIGNED) ? 0 : IRCONV_SEXT); - else if (dsize < 8 && ssize == 8) /* Truncate from 64 bit integer. */ - sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, 0); - else if (st == IRT_INT) - sp = lj_opt_narrow_toint(J, sp); - xstore: - if (dt == IRT_I64 || dt == IRT_U64) lj_needsplit(J); - if (dp == 0) return sp; - emitir(IRT(IR_XSTORE, dt), dp, sp); - break; - case CCX(I, C): - sp = emitir(IRT(IR_XLOAD, st), sp, 0); /* Load re. */ - /* fallthrough */ - case CCX(I, F): - if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, st, IRCONV_ANY); - goto xstore; - case CCX(I, P): - case CCX(I, A): - sinfo = CTINFO(CT_NUM, CTF_UNSIGNED); - ssize = CTSIZE_PTR; - st = IRT_UINTP; - if (((dsize ^ ssize) & 8) == 0) { /* Must insert no-op type conversion. */ - sp = emitconv(sp, dsize < 4 ? IRT_INT : dt, IRT_PTR, 0); - goto xstore; - } - goto conv_I_I; - - /* Destination is a floating-point number. */ - case CCX(F, B): - case CCX(F, I): - conv_F_I: - if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - sp = emitconv(sp, dt, ssize < 4 ? IRT_INT : st, 0); - goto xstore; - case CCX(F, C): - sp = emitir(IRT(IR_XLOAD, st), sp, 0); /* Load re. */ - /* fallthrough */ - case CCX(F, F): - conv_F_F: - if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - if (dt != st) sp = emitconv(sp, dt, st, 0); - goto xstore; - - /* Destination is a complex number. */ - case CCX(C, I): - case CCX(C, F): - { /* Clear im. */ - TRef ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, (dsize >> 1))); - emitir(IRT(IR_XSTORE, dt), ptr, lj_ir_knum(J, 0)); - } - /* Convert to re. */ - if ((sinfo & CTF_FP)) goto conv_F_F; else goto conv_F_I; - - case CCX(C, C): - if (dt == IRT_CDATA || st == IRT_CDATA) goto err_nyi; - { - TRef re, im, ptr; - re = emitir(IRT(IR_XLOAD, st), sp, 0); - ptr = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, (ssize >> 1))); - im = emitir(IRT(IR_XLOAD, st), ptr, 0); - if (dt != st) { - re = emitconv(re, dt, st, 0); - im = emitconv(im, dt, st, 0); - } - emitir(IRT(IR_XSTORE, dt), dp, re); - ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, (dsize >> 1))); - emitir(IRT(IR_XSTORE, dt), ptr, im); - } - break; - - /* Destination is a vector. */ - case CCX(V, I): - case CCX(V, F): - case CCX(V, C): - case CCX(V, V): - goto err_nyi; - - /* Destination is a pointer. */ - case CCX(P, P): - case CCX(P, A): - case CCX(P, S): - /* There are only 32 bit pointers/addresses on 32 bit machines. - ** Also ok on x64, since all 32 bit ops clear the upper part of the reg. - */ - goto xstore; - case CCX(P, I): - if (st == IRT_CDATA) goto err_nyi; - if (!LJ_64 && ssize == 8) /* Truncate from 64 bit integer. */ - sp = emitconv(sp, IRT_U32, st, 0); - goto xstore; - case CCX(P, F): - if (st == IRT_CDATA) goto err_nyi; - /* The signed conversion is cheaper. x64 really has 47 bit pointers. */ - sp = emitconv(sp, (LJ_64 && dsize == 8) ? IRT_I64 : IRT_U32, - st, IRCONV_ANY); - goto xstore; - - /* Destination is an array. */ - case CCX(A, A): - /* Destination is a struct/union. */ - case CCX(S, S): - if (dp == 0) goto err_conv; - crec_copy(J, dp, sp, lj_ir_kint(J, dsize), d); - break; - - default: - err_conv: - err_nyi: - lj_trace_err(J, LJ_TRERR_NYICONV); - break; - } - return 0; -} - -/* -- Convert C type to TValue (load) ------------------------------------- */ - -static TRef crec_tv_ct(jit_State *J, CType *s, CTypeID sid, TRef sp) -{ - CTState *cts = ctype_ctsG(J2G(J)); - IRType t = crec_ct2irt(cts, s); - CTInfo sinfo = s->info; - if (ctype_isnum(sinfo)) { - TRef tr; - if (t == IRT_CDATA) - goto err_nyi; /* NYI: copyval of >64 bit integers. */ - tr = emitir(IRT(IR_XLOAD, t), sp, 0); - if (t == IRT_FLOAT || t == IRT_U32) { /* Keep uint32_t/float as numbers. */ - return emitconv(tr, IRT_NUM, t, 0); - } else if (t == IRT_I64 || t == IRT_U64) { /* Box 64 bit integer. */ - sp = tr; - lj_needsplit(J); - } else if ((sinfo & CTF_BOOL)) { - /* Assume not equal to zero. Fixup and emit pending guard later. */ - lj_ir_set(J, IRTGI(IR_NE), tr, lj_ir_kint(J, 0)); - J->postproc = LJ_POST_FIXGUARD; - return TREF_TRUE; - } else { - return tr; - } - } else if (ctype_isptr(sinfo) || ctype_isenum(sinfo)) { - sp = emitir(IRT(IR_XLOAD, t), sp, 0); /* Box pointers and enums. */ - } else if (ctype_isrefarray(sinfo) || ctype_isstruct(sinfo)) { - cts->L = J->L; - sid = lj_ctype_intern(cts, CTINFO_REF(sid), CTSIZE_PTR); /* Create ref. */ - } else if (ctype_iscomplex(sinfo)) { /* Unbox/box complex. */ - ptrdiff_t esz = (ptrdiff_t)(s->size >> 1); - TRef ptr, tr1, tr2, dp; - dp = emitir(IRTG(IR_CNEW, IRT_CDATA), lj_ir_kint(J, sid), TREF_NIL); - tr1 = emitir(IRT(IR_XLOAD, t), sp, 0); - ptr = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, esz)); - tr2 = emitir(IRT(IR_XLOAD, t), ptr, 0); - ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, sizeof(GCcdata))); - emitir(IRT(IR_XSTORE, t), ptr, tr1); - ptr = emitir(IRT(IR_ADD, IRT_PTR), dp, lj_ir_kintp(J, sizeof(GCcdata)+esz)); - emitir(IRT(IR_XSTORE, t), ptr, tr2); - return dp; - } else { - /* NYI: copyval of vectors. */ - err_nyi: - lj_trace_err(J, LJ_TRERR_NYICONV); - } - /* Box pointer, ref, enum or 64 bit integer. */ - return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, sid), sp); -} - -/* -- Convert TValue to C type (store) ------------------------------------ */ - -static TRef crec_ct_tv(jit_State *J, CType *d, TRef dp, TRef sp, cTValue *sval) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTypeID sid = CTID_P_VOID; - void *svisnz = 0; - CType *s; - if (LJ_LIKELY(tref_isinteger(sp))) { - sid = CTID_INT32; - svisnz = (void *)(intptr_t)(tvisint(sval)?(intV(sval)!=0):!tviszero(sval)); - } else if (tref_isnum(sp)) { - sid = CTID_DOUBLE; - svisnz = (void *)(intptr_t)(tvisint(sval)?(intV(sval)!=0):!tviszero(sval)); - } else if (tref_isbool(sp)) { - sp = lj_ir_kint(J, tref_istrue(sp) ? 1 : 0); - sid = CTID_BOOL; - } else if (tref_isnil(sp)) { - sp = lj_ir_kptr(J, NULL); - } else if (tref_isudata(sp)) { - GCudata *ud = udataV(sval); - if (ud->udtype == UDTYPE_IO_FILE) { - TRef tr = emitir(IRT(IR_FLOAD, IRT_U8), sp, IRFL_UDATA_UDTYPE); - emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, UDTYPE_IO_FILE)); - sp = emitir(IRT(IR_FLOAD, IRT_PTR), sp, IRFL_UDATA_FILE); - } else { - sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCudata))); - } - } else if (tref_isstr(sp)) { - if (ctype_isenum(d->info)) { /* Match string against enum constant. */ - GCstr *str = strV(sval); - CTSize ofs; - CType *cct = lj_ctype_getfield(cts, d, str, &ofs); - /* Specialize to the name of the enum constant. */ - emitir(IRTG(IR_EQ, IRT_STR), sp, lj_ir_kstr(J, str)); - if (cct && ctype_isconstval(cct->info)) { - lua_assert(ctype_child(cts, cct)->size == 4); - svisnz = (void *)(intptr_t)(ofs != 0); - sp = lj_ir_kint(J, (int32_t)ofs); - sid = ctype_cid(cct->info); - } /* else: interpreter will throw. */ - } else if (ctype_isrefarray(d->info)) { /* Copy string to array. */ - lj_trace_err(J, LJ_TRERR_BADTYPE); /* NYI */ - } else { /* Otherwise pass the string data as a const char[]. */ - /* Don't use STRREF. It folds with SNEW, which loses the trailing NUL. */ - sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCstr))); - sid = CTID_A_CCHAR; - } - } else if (tref_islightud(sp)) { -#if LJ_64 - sp = emitir(IRT(IR_BAND, IRT_P64), sp, - lj_ir_kint64(J, U64x(00007fff,ffffffff))); -#endif - } else { /* NYI: tref_istab(sp). */ - IRType t; - sid = argv2cdata(J, sp, sval)->ctypeid; - s = ctype_raw(cts, sid); - svisnz = cdataptr(cdataV(sval)); - if (ctype_isfunc(s->info)) { - sid = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|sid), CTSIZE_PTR); - s = ctype_get(cts, sid); - t = IRT_PTR; - } else { - t = crec_ct2irt(cts, s); - } - if (ctype_isptr(s->info)) { - sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_PTR); - if (ctype_isref(s->info)) { - svisnz = *(void **)svisnz; - s = ctype_rawchild(cts, s); - if (ctype_isenum(s->info)) s = ctype_child(cts, s); - t = crec_ct2irt(cts, s); - } else { - goto doconv; - } - } else if (t == IRT_I64 || t == IRT_U64) { - sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_INT64); - lj_needsplit(J); - goto doconv; - } else if (t == IRT_INT || t == IRT_U32) { - if (ctype_isenum(s->info)) s = ctype_child(cts, s); - sp = emitir(IRT(IR_FLOAD, t), sp, IRFL_CDATA_INT); - goto doconv; - } else { - sp = emitir(IRT(IR_ADD, IRT_PTR), sp, lj_ir_kintp(J, sizeof(GCcdata))); - } - if (ctype_isnum(s->info) && t != IRT_CDATA) - sp = emitir(IRT(IR_XLOAD, t), sp, 0); /* Load number value. */ - goto doconv; - } - s = ctype_get(cts, sid); -doconv: - if (ctype_isenum(d->info)) d = ctype_child(cts, d); - return crec_ct_ct(J, d, s, dp, sp, svisnz); -} - -/* -- C data metamethods -------------------------------------------------- */ - -/* This would be rather difficult in FOLD, so do it here: -** (base+k)+(idx*sz)+ofs ==> (base+idx*sz)+(ofs+k) -** (base+(idx+k)*sz)+ofs ==> (base+idx*sz)+(ofs+k*sz) -*/ -static TRef crec_reassoc_ofs(jit_State *J, TRef tr, ptrdiff_t *ofsp, MSize sz) -{ - IRIns *ir = IR(tref_ref(tr)); - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && irref_isk(ir->op2) && - (ir->o == IR_ADD || ir->o == IR_ADDOV || ir->o == IR_SUBOV)) { - IRIns *irk = IR(ir->op2); - ptrdiff_t k; - if (LJ_64 && irk->o == IR_KINT64) - k = (ptrdiff_t)ir_kint64(irk)->u64 * sz; - else - k = (ptrdiff_t)irk->i * sz; - if (ir->o == IR_SUBOV) *ofsp -= k; else *ofsp += k; - tr = ir->op1; /* Not a TRef, but the caller doesn't care. */ - } - return tr; -} - -/* Record ctype __index/__newindex metamethods. */ -static void crec_index_meta(jit_State *J, CTState *cts, CType *ct, - RecordFFData *rd) -{ - CTypeID id = ctype_typeid(cts, ct); - cTValue *tv = lj_ctype_meta(cts, id, rd->data ? MM_newindex : MM_index); - if (!tv) - lj_trace_err(J, LJ_TRERR_BADTYPE); - if (tvisfunc(tv)) { - J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; - rd->nres = -1; /* Pending tailcall. */ - } else if (rd->data == 0 && tvistab(tv) && tref_isstr(J->base[1])) { - /* Specialize to result of __index lookup. */ - cTValue *o = lj_tab_get(J->L, tabV(tv), &rd->argv[1]); - J->base[0] = lj_record_constify(J, o); - if (!J->base[0]) - lj_trace_err(J, LJ_TRERR_BADTYPE); - /* Always specialize to the key. */ - emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, strV(&rd->argv[1]))); - } else { - /* NYI: resolving of non-function metamethods. */ - /* NYI: non-string keys for __index table. */ - /* NYI: stores to __newindex table. */ - lj_trace_err(J, LJ_TRERR_BADTYPE); - } -} - -void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd) -{ - TRef idx, ptr = J->base[0]; - ptrdiff_t ofs = sizeof(GCcdata); - GCcdata *cd = argv2cdata(J, ptr, &rd->argv[0]); - CTState *cts = ctype_ctsG(J2G(J)); - CType *ct = ctype_raw(cts, cd->ctypeid); - CTypeID sid = 0; - - /* Resolve pointer or reference for cdata object. */ - if (ctype_isptr(ct->info)) { - IRType t = (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; - if (ctype_isref(ct->info)) ct = ctype_rawchild(cts, ct); - ptr = emitir(IRT(IR_FLOAD, t), ptr, IRFL_CDATA_PTR); - ofs = 0; - ptr = crec_reassoc_ofs(J, ptr, &ofs, 1); - } - -again: - idx = J->base[1]; - if (tref_isnumber(idx)) { - idx = lj_opt_narrow_cindex(J, idx); - if (ctype_ispointer(ct->info)) { - CTSize sz; - integer_key: - if ((ct->info & CTF_COMPLEX)) - idx = emitir(IRT(IR_BAND, IRT_INTP), idx, lj_ir_kintp(J, 1)); - sz = lj_ctype_size(cts, (sid = ctype_cid(ct->info))); - idx = crec_reassoc_ofs(J, idx, &ofs, sz); -#if LJ_TARGET_ARM || LJ_TARGET_PPC - /* Hoist base add to allow fusion of index/shift into operands. */ - if (LJ_LIKELY(J->flags & JIT_F_OPT_LOOP) && ofs -#if LJ_TARGET_ARM - && (sz == 1 || sz == 4) -#endif - ) { - ptr = emitir(IRT(IR_ADD, IRT_PTR), ptr, lj_ir_kintp(J, ofs)); - ofs = 0; - } -#endif - idx = emitir(IRT(IR_MUL, IRT_INTP), idx, lj_ir_kintp(J, sz)); - ptr = emitir(IRT(IR_ADD, IRT_PTR), idx, ptr); - } - } else if (tref_iscdata(idx)) { - GCcdata *cdk = cdataV(&rd->argv[1]); - CType *ctk = ctype_raw(cts, cdk->ctypeid); - IRType t = crec_ct2irt(cts, ctk); - if (ctype_ispointer(ct->info) && t >= IRT_I8 && t <= IRT_U64) { - if (ctk->size == 8) { - idx = emitir(IRT(IR_FLOAD, t), idx, IRFL_CDATA_INT64); - } else if (ctk->size == 4) { - idx = emitir(IRT(IR_FLOAD, t), idx, IRFL_CDATA_INT); - } else { - idx = emitir(IRT(IR_ADD, IRT_PTR), idx, - lj_ir_kintp(J, sizeof(GCcdata))); - idx = emitir(IRT(IR_XLOAD, t), idx, 0); - } - if (LJ_64 && ctk->size < sizeof(intptr_t) && !(ctk->info & CTF_UNSIGNED)) - idx = emitconv(idx, IRT_INTP, IRT_INT, IRCONV_SEXT); - if (!LJ_64 && ctk->size > sizeof(intptr_t)) { - idx = emitconv(idx, IRT_INTP, t, 0); - lj_needsplit(J); - } - goto integer_key; - } - } else if (tref_isstr(idx)) { - GCstr *name = strV(&rd->argv[1]); - if (cd && cd->ctypeid == CTID_CTYPEID) - ct = ctype_raw(cts, crec_constructor(J, cd, ptr)); - if (ctype_isstruct(ct->info)) { - CTSize fofs; - CType *fct; - fct = lj_ctype_getfield(cts, ct, name, &fofs); - if (fct) { - /* Always specialize to the field name. */ - emitir(IRTG(IR_EQ, IRT_STR), idx, lj_ir_kstr(J, name)); - if (ctype_isconstval(fct->info)) { - if (fct->size >= 0x80000000u && - (ctype_child(cts, fct)->info & CTF_UNSIGNED)) { - J->base[0] = lj_ir_knum(J, (lua_Number)(uint32_t)fct->size); - return; - } - J->base[0] = lj_ir_kint(J, (int32_t)fct->size); - return; /* Interpreter will throw for newindex. */ - } else if (ctype_isbitfield(fct->info)) { - lj_trace_err(J, LJ_TRERR_NYICONV); - } else { - lua_assert(ctype_isfield(fct->info)); - sid = ctype_cid(fct->info); - } - ofs += (ptrdiff_t)fofs; - } - } else if (ctype_iscomplex(ct->info)) { - if (name->len == 2 && - ((strdata(name)[0] == 'r' && strdata(name)[1] == 'e') || - (strdata(name)[0] == 'i' && strdata(name)[1] == 'm'))) { - /* Always specialize to the field name. */ - emitir(IRTG(IR_EQ, IRT_STR), idx, lj_ir_kstr(J, name)); - if (strdata(name)[0] == 'i') ofs += (ct->size >> 1); - sid = ctype_cid(ct->info); - } - } - } - if (!sid) { - if (ctype_isptr(ct->info)) { /* Automatically perform '->'. */ - CType *cct = ctype_rawchild(cts, ct); - if (ctype_isstruct(cct->info)) { - ct = cct; - cd = NULL; - if (tref_isstr(idx)) goto again; - } - } - crec_index_meta(J, cts, ct, rd); - return; - } - - if (ofs) - ptr = emitir(IRT(IR_ADD, IRT_PTR), ptr, lj_ir_kintp(J, ofs)); - - /* Resolve reference for field. */ - ct = ctype_get(cts, sid); - if (ctype_isref(ct->info)) { - ptr = emitir(IRT(IR_XLOAD, IRT_PTR), ptr, 0); - sid = ctype_cid(ct->info); - ct = ctype_get(cts, sid); - } - - while (ctype_isattrib(ct->info)) - ct = ctype_child(cts, ct); /* Skip attributes. */ - - if (rd->data == 0) { /* __index metamethod. */ - J->base[0] = crec_tv_ct(J, ct, sid, ptr); - } else { /* __newindex metamethod. */ - rd->nres = 0; - J->needsnap = 1; - crec_ct_tv(J, ct, ptr, J->base[2], &rd->argv[2]); - } -} - -/* Record setting a finalizer. */ -static void crec_finalizer(jit_State *J, TRef trcd, TRef trfin, cTValue *fin) -{ - if (tvisgcv(fin)) { - if (!trfin) trfin = lj_ir_kptr(J, gcval(fin)); - } else if (tvisnil(fin)) { - trfin = lj_ir_kptr(J, NULL); - } else { - lj_trace_err(J, LJ_TRERR_BADTYPE); - } - lj_ir_call(J, IRCALL_lj_cdata_setfin, trcd, - trfin, lj_ir_kint(J, (int32_t)itype(fin))); - J->needsnap = 1; -} - -/* Record cdata allocation. */ -static void crec_alloc(jit_State *J, RecordFFData *rd, CTypeID id) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTSize sz; - CTInfo info = lj_ctype_info(cts, id, &sz); - CType *d = ctype_raw(cts, id); - TRef trcd, trid = lj_ir_kint(J, id); - cTValue *fin; - /* Use special instruction to box pointer or 32/64 bit integer. */ - if (ctype_isptr(info) || (ctype_isinteger(info) && (sz == 4 || sz == 8))) { - TRef sp = J->base[1] ? crec_ct_tv(J, d, 0, J->base[1], &rd->argv[1]) : - ctype_isptr(info) ? lj_ir_kptr(J, NULL) : - sz == 4 ? lj_ir_kint(J, 0) : - (lj_needsplit(J), lj_ir_kint64(J, 0)); - J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), trid, sp); - return; - } else { - TRef trsz = TREF_NIL; - if ((info & CTF_VLA)) { /* Calculate VLA/VLS size at runtime. */ - CTSize sz0, sz1; - if (!J->base[1] || J->base[2]) - lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init VLA/VLS. */ - trsz = crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, - J->base[1], &rd->argv[1]); - sz0 = lj_ctype_vlsize(cts, d, 0); - sz1 = lj_ctype_vlsize(cts, d, 1); - trsz = emitir(IRTGI(IR_MULOV), trsz, lj_ir_kint(J, (int32_t)(sz1-sz0))); - trsz = emitir(IRTGI(IR_ADDOV), trsz, lj_ir_kint(J, (int32_t)sz0)); - J->base[1] = 0; /* Simplify logic below. */ - } else if (ctype_align(info) > CT_MEMALIGN) { - trsz = lj_ir_kint(J, sz); - } - trcd = emitir(IRTG(IR_CNEW, IRT_CDATA), trid, trsz); - if (sz > 128 || (info & CTF_VLA)) { - TRef dp; - CTSize align; - special: /* Only handle bulk zero-fill for large/VLA/VLS types. */ - if (J->base[1]) - lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init large/VLA/VLS types. */ - dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, lj_ir_kintp(J, sizeof(GCcdata))); - if (trsz == TREF_NIL) trsz = lj_ir_kint(J, sz); - align = ctype_align(info); - if (align < CT_MEMALIGN) align = CT_MEMALIGN; - crec_fill(J, dp, trsz, lj_ir_kint(J, 0), (1u << align)); - } else if (J->base[1] && !J->base[2] && - !lj_cconv_multi_init(cts, d, &rd->argv[1])) { - goto single_init; - } else if (ctype_isarray(d->info)) { - CType *dc = ctype_rawchild(cts, d); /* Array element type. */ - CTSize ofs, esize = dc->size; - TRef sp = 0; - TValue tv; - TValue *sval = &tv; - MSize i; - tv.u64 = 0; - if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info)) || - esize * CREC_FILL_MAXUNROLL < sz) - goto special; - for (i = 1, ofs = 0; ofs < sz; ofs += esize) { - TRef dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, - lj_ir_kintp(J, ofs + sizeof(GCcdata))); - if (J->base[i]) { - sp = J->base[i]; - sval = &rd->argv[i]; - i++; - } else if (i != 2) { - sp = ctype_isnum(dc->info) ? lj_ir_kint(J, 0) : TREF_NIL; - } - crec_ct_tv(J, dc, dp, sp, sval); - } - } else if (ctype_isstruct(d->info)) { - CTypeID fid = d->sib; - MSize i = 1; - while (fid) { - CType *df = ctype_get(cts, fid); - fid = df->sib; - if (ctype_isfield(df->info)) { - CType *dc; - TRef sp, dp; - TValue tv; - TValue *sval = &tv; - setintV(&tv, 0); - if (!gcref(df->name)) continue; /* Ignore unnamed fields. */ - dc = ctype_rawchild(cts, df); /* Field type. */ - if (!(ctype_isnum(dc->info) || ctype_isptr(dc->info) || - ctype_isenum(dc->info))) - lj_trace_err(J, LJ_TRERR_NYICONV); /* NYI: init aggregates. */ - if (J->base[i]) { - sp = J->base[i]; - sval = &rd->argv[i]; - i++; - } else { - sp = ctype_isptr(dc->info) ? TREF_NIL : lj_ir_kint(J, 0); - } - dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, - lj_ir_kintp(J, df->size + sizeof(GCcdata))); - crec_ct_tv(J, dc, dp, sp, sval); - } else if (!ctype_isconstval(df->info)) { - /* NYI: init bitfields and sub-structures. */ - lj_trace_err(J, LJ_TRERR_NYICONV); - } - } - } else { - TRef dp; - single_init: - dp = emitir(IRT(IR_ADD, IRT_PTR), trcd, lj_ir_kintp(J, sizeof(GCcdata))); - if (J->base[1]) { - crec_ct_tv(J, d, dp, J->base[1], &rd->argv[1]); - } else { - TValue tv; - tv.u64 = 0; - crec_ct_tv(J, d, dp, lj_ir_kint(J, 0), &tv); - } - } - } - J->base[0] = trcd; - /* Handle __gc metamethod. */ - fin = lj_ctype_meta(cts, id, MM_gc); - if (fin) - crec_finalizer(J, trcd, 0, fin); -} - -/* Record argument conversions. */ -static TRef crec_call_args(jit_State *J, RecordFFData *rd, - CTState *cts, CType *ct) -{ - TRef args[CCI_NARGS_MAX]; - CTypeID fid; - MSize i, n; - TRef tr, *base; - cTValue *o; -#if LJ_TARGET_X86 -#if LJ_ABI_WIN - TRef *arg0 = NULL, *arg1 = NULL; -#endif - int ngpr = 0; - if (ctype_cconv(ct->info) == CTCC_THISCALL) - ngpr = 1; - else if (ctype_cconv(ct->info) == CTCC_FASTCALL) - ngpr = 2; -#endif - - /* Skip initial attributes. */ - fid = ct->sib; - while (fid) { - CType *ctf = ctype_get(cts, fid); - if (!ctype_isattrib(ctf->info)) break; - fid = ctf->sib; - } - args[0] = TREF_NIL; - for (n = 0, base = J->base+1, o = rd->argv+1; *base; n++, base++, o++) { - CTypeID did; - CType *d; - - if (n >= CCI_NARGS_MAX) - lj_trace_err(J, LJ_TRERR_NYICALL); - - if (fid) { /* Get argument type from field. */ - CType *ctf = ctype_get(cts, fid); - fid = ctf->sib; - lua_assert(ctype_isfield(ctf->info)); - did = ctype_cid(ctf->info); - } else { - if (!(ct->info & CTF_VARARG)) - lj_trace_err(J, LJ_TRERR_NYICALL); /* Too many arguments. */ - did = lj_ccall_ctid_vararg(cts, o); /* Infer vararg type. */ - } - d = ctype_raw(cts, did); - if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || - ctype_isenum(d->info))) - lj_trace_err(J, LJ_TRERR_NYICALL); - tr = crec_ct_tv(J, d, 0, *base, o); - if (ctype_isinteger_or_bool(d->info)) { - if (d->size < 4) { - if ((d->info & CTF_UNSIGNED)) - tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_U8 : IRT_U16, 0); - else - tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_I8 : IRT_I16,IRCONV_SEXT); - } - } else if (LJ_SOFTFP && ctype_isfp(d->info) && d->size > 4) { - lj_needsplit(J); - } -#if LJ_TARGET_X86 - /* 64 bit args must not end up in registers for fastcall/thiscall. */ -#if LJ_ABI_WIN - if (!ctype_isfp(d->info)) { - /* Sigh, the Windows/x86 ABI allows reordering across 64 bit args. */ - if (tref_typerange(tr, IRT_I64, IRT_U64)) { - if (ngpr) { - arg0 = &args[n]; args[n++] = TREF_NIL; ngpr--; - if (ngpr) { - arg1 = &args[n]; args[n++] = TREF_NIL; ngpr--; - } - } - } else { - if (arg0) { *arg0 = tr; arg0 = NULL; n--; continue; } - if (arg1) { *arg1 = tr; arg1 = NULL; n--; continue; } - if (ngpr) ngpr--; - } - } -#else - if (!ctype_isfp(d->info) && ngpr) { - if (tref_typerange(tr, IRT_I64, IRT_U64)) { - /* No reordering for other x86 ABIs. Simply add alignment args. */ - do { args[n++] = TREF_NIL; } while (--ngpr); - } else { - ngpr--; - } - } -#endif -#endif - args[n] = tr; - } - tr = args[0]; - for (i = 1; i < n; i++) - tr = emitir(IRT(IR_CARG, IRT_NIL), tr, args[i]); - return tr; -} - -/* Create a snapshot for the caller, simulating a 'false' return value. */ -static void crec_snap_caller(jit_State *J) -{ - lua_State *L = J->L; - TValue *base = L->base, *top = L->top; - const BCIns *pc = J->pc; - TRef ftr = J->base[-1]; - ptrdiff_t delta; - if (!frame_islua(base-1) || J->framedepth <= 0) - lj_trace_err(J, LJ_TRERR_NYICALL); - J->pc = frame_pc(base-1); delta = 1+LJ_FR2+bc_a(J->pc[-1]); - L->top = base; L->base = base - delta; - J->base[-1] = TREF_FALSE; - J->base -= delta; J->baseslot -= (BCReg)delta; - J->maxslot = (BCReg)delta; J->framedepth--; - lj_snap_add(J); - L->base = base; L->top = top; - J->framedepth++; J->maxslot = 1; - J->base += delta; J->baseslot += (BCReg)delta; - J->base[-1] = ftr; J->pc = pc; -} - -/* Record function call. */ -static int crec_call(jit_State *J, RecordFFData *rd, GCcdata *cd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CType *ct = ctype_raw(cts, cd->ctypeid); - IRType tp = IRT_PTR; - if (ctype_isptr(ct->info)) { - tp = (LJ_64 && ct->size == 8) ? IRT_P64 : IRT_P32; - ct = ctype_rawchild(cts, ct); - } - if (ctype_isfunc(ct->info)) { - TRef func = emitir(IRT(IR_FLOAD, tp), J->base[0], IRFL_CDATA_PTR); - CType *ctr = ctype_rawchild(cts, ct); - IRType t = crec_ct2irt(cts, ctr); - TRef tr; - TValue tv; - /* Check for blacklisted C functions that might call a callback. */ - setlightudV(&tv, - cdata_getptr(cdataptr(cd), (LJ_64 && tp == IRT_P64) ? 8 : 4)); - if (tvistrue(lj_tab_get(J->L, cts->miscmap, &tv))) - lj_trace_err(J, LJ_TRERR_BLACKL); - if (ctype_isvoid(ctr->info)) { - t = IRT_NIL; - rd->nres = 0; - } else if (!(ctype_isnum(ctr->info) || ctype_isptr(ctr->info) || - ctype_isenum(ctr->info)) || t == IRT_CDATA) { - lj_trace_err(J, LJ_TRERR_NYICALL); - } - if ((ct->info & CTF_VARARG) -#if LJ_TARGET_X86 - || ctype_cconv(ct->info) != CTCC_CDECL -#endif - ) - func = emitir(IRT(IR_CARG, IRT_NIL), func, - lj_ir_kint(J, ctype_typeid(cts, ct))); - tr = emitir(IRT(IR_CALLXS, t), crec_call_args(J, rd, cts, ct), func); - if (ctype_isbool(ctr->info)) { - if (frame_islua(J->L->base-1) && bc_b(frame_pc(J->L->base-1)[-1]) == 1) { - /* Don't check result if ignored. */ - tr = TREF_NIL; - } else { - crec_snap_caller(J); -#if LJ_TARGET_X86ORX64 - /* Note: only the x86/x64 backend supports U8 and only for EQ(tr, 0). */ - lj_ir_set(J, IRTG(IR_NE, IRT_U8), tr, lj_ir_kint(J, 0)); -#else - lj_ir_set(J, IRTGI(IR_NE), tr, lj_ir_kint(J, 0)); -#endif - J->postproc = LJ_POST_FIXGUARDSNAP; - tr = TREF_TRUE; - } - } else if (t == IRT_PTR || (LJ_64 && t == IRT_P32) || - t == IRT_I64 || t == IRT_U64 || ctype_isenum(ctr->info)) { - TRef trid = lj_ir_kint(J, ctype_cid(ct->info)); - tr = emitir(IRTG(IR_CNEWI, IRT_CDATA), trid, tr); - if (t == IRT_I64 || t == IRT_U64) lj_needsplit(J); - } else if (t == IRT_FLOAT || t == IRT_U32) { - tr = emitconv(tr, IRT_NUM, t, 0); - } else if (t == IRT_I8 || t == IRT_I16) { - tr = emitconv(tr, IRT_INT, t, IRCONV_SEXT); - } else if (t == IRT_U8 || t == IRT_U16) { - tr = emitconv(tr, IRT_INT, t, 0); - } - J->base[0] = tr; - J->needsnap = 1; - return 1; - } - return 0; -} - -void LJ_FASTCALL recff_cdata_call(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - GCcdata *cd = argv2cdata(J, J->base[0], &rd->argv[0]); - CTypeID id = cd->ctypeid; - CType *ct; - cTValue *tv; - MMS mm = MM_call; - if (id == CTID_CTYPEID) { - id = crec_constructor(J, cd, J->base[0]); - mm = MM_new; - } else if (crec_call(J, rd, cd)) { - return; - } - /* Record ctype __call/__new metamethod. */ - ct = ctype_raw(cts, id); - tv = lj_ctype_meta(cts, ctype_isptr(ct->info) ? ctype_cid(ct->info) : id, mm); - if (tv) { - if (tvisfunc(tv)) { - J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; - rd->nres = -1; /* Pending tailcall. */ - return; - } - } else if (mm == MM_new) { - crec_alloc(J, rd, id); - return; - } - /* No metamethod or NYI: non-function metamethods. */ - lj_trace_err(J, LJ_TRERR_BADTYPE); -} - -static TRef crec_arith_int64(jit_State *J, TRef *sp, CType **s, MMS mm) -{ - if (ctype_isnum(s[0]->info) && ctype_isnum(s[1]->info)) { - IRType dt; - CTypeID id; - TRef tr; - MSize i; - IROp op; - lj_needsplit(J); - if (((s[0]->info & CTF_UNSIGNED) && s[0]->size == 8) || - ((s[1]->info & CTF_UNSIGNED) && s[1]->size == 8)) { - dt = IRT_U64; id = CTID_UINT64; - } else { - dt = IRT_I64; id = CTID_INT64; - if (mm < MM_add && - !((s[0]->info | s[1]->info) & CTF_FP) && - s[0]->size == 4 && s[1]->size == 4) { /* Try to narrow comparison. */ - if (!((s[0]->info ^ s[1]->info) & CTF_UNSIGNED) || - (tref_isk(sp[1]) && IR(tref_ref(sp[1]))->i >= 0)) { - dt = (s[0]->info & CTF_UNSIGNED) ? IRT_U32 : IRT_INT; - goto comp; - } else if (tref_isk(sp[0]) && IR(tref_ref(sp[0]))->i >= 0) { - dt = (s[1]->info & CTF_UNSIGNED) ? IRT_U32 : IRT_INT; - goto comp; - } - } - } - for (i = 0; i < 2; i++) { - IRType st = tref_type(sp[i]); - if (st == IRT_NUM || st == IRT_FLOAT) - sp[i] = emitconv(sp[i], dt, st, IRCONV_ANY); - else if (!(st == IRT_I64 || st == IRT_U64)) - sp[i] = emitconv(sp[i], dt, IRT_INT, - (s[i]->info & CTF_UNSIGNED) ? 0 : IRCONV_SEXT); - } - if (mm < MM_add) { - comp: - /* Assume true comparison. Fixup and emit pending guard later. */ - if (mm == MM_eq) { - op = IR_EQ; - } else { - op = mm == MM_lt ? IR_LT : IR_LE; - if (dt == IRT_U32 || dt == IRT_U64) - op += (IR_ULT-IR_LT); - } - lj_ir_set(J, IRTG(op, dt), sp[0], sp[1]); - J->postproc = LJ_POST_FIXGUARD; - return TREF_TRUE; - } else { - tr = emitir(IRT(mm+(int)IR_ADD-(int)MM_add, dt), sp[0], sp[1]); - } - return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); - } - return 0; -} - -static TRef crec_arith_ptr(jit_State *J, TRef *sp, CType **s, MMS mm) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CType *ctp = s[0]; - if (ctype_isptr(ctp->info) || ctype_isrefarray(ctp->info)) { - if ((mm == MM_sub || mm == MM_eq || mm == MM_lt || mm == MM_le) && - (ctype_isptr(s[1]->info) || ctype_isrefarray(s[1]->info))) { - if (mm == MM_sub) { /* Pointer difference. */ - TRef tr; - CTSize sz = lj_ctype_size(cts, ctype_cid(ctp->info)); - if (sz == 0 || (sz & (sz-1)) != 0) - return 0; /* NYI: integer division. */ - tr = emitir(IRT(IR_SUB, IRT_INTP), sp[0], sp[1]); - tr = emitir(IRT(IR_BSAR, IRT_INTP), tr, lj_ir_kint(J, lj_fls(sz))); -#if LJ_64 - tr = emitconv(tr, IRT_NUM, IRT_INTP, 0); -#endif - return tr; - } else { /* Pointer comparison (unsigned). */ - /* Assume true comparison. Fixup and emit pending guard later. */ - IROp op = mm == MM_eq ? IR_EQ : mm == MM_lt ? IR_ULT : IR_ULE; - lj_ir_set(J, IRTG(op, IRT_PTR), sp[0], sp[1]); - J->postproc = LJ_POST_FIXGUARD; - return TREF_TRUE; - } - } - if (!((mm == MM_add || mm == MM_sub) && ctype_isnum(s[1]->info))) - return 0; - } else if (mm == MM_add && ctype_isnum(ctp->info) && - (ctype_isptr(s[1]->info) || ctype_isrefarray(s[1]->info))) { - TRef tr = sp[0]; sp[0] = sp[1]; sp[1] = tr; /* Swap pointer and index. */ - ctp = s[1]; - } else { - return 0; - } - { - TRef tr = sp[1]; - IRType t = tref_type(tr); - CTSize sz = lj_ctype_size(cts, ctype_cid(ctp->info)); - CTypeID id; -#if LJ_64 - if (t == IRT_NUM || t == IRT_FLOAT) - tr = emitconv(tr, IRT_INTP, t, IRCONV_ANY); - else if (!(t == IRT_I64 || t == IRT_U64)) - tr = emitconv(tr, IRT_INTP, IRT_INT, - ((t - IRT_I8) & 1) ? 0 : IRCONV_SEXT); -#else - if (!tref_typerange(sp[1], IRT_I8, IRT_U32)) { - tr = emitconv(tr, IRT_INTP, t, - (t == IRT_NUM || t == IRT_FLOAT) ? IRCONV_ANY : 0); - } -#endif - tr = emitir(IRT(IR_MUL, IRT_INTP), tr, lj_ir_kintp(J, sz)); - tr = emitir(IRT(mm+(int)IR_ADD-(int)MM_add, IRT_PTR), sp[0], tr); - id = lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|ctype_cid(ctp->info)), - CTSIZE_PTR); - return emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); - } -} - -/* Record ctype arithmetic metamethods. */ -static TRef crec_arith_meta(jit_State *J, TRef *sp, CType **s, CTState *cts, - RecordFFData *rd) -{ - cTValue *tv = NULL; - if (J->base[0]) { - if (tviscdata(&rd->argv[0])) { - CTypeID id = argv2cdata(J, J->base[0], &rd->argv[0])->ctypeid; - CType *ct = ctype_raw(cts, id); - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, (MMS)rd->data); - } - if (!tv && J->base[1] && tviscdata(&rd->argv[1])) { - CTypeID id = argv2cdata(J, J->base[1], &rd->argv[1])->ctypeid; - CType *ct = ctype_raw(cts, id); - if (ctype_isptr(ct->info)) id = ctype_cid(ct->info); - tv = lj_ctype_meta(cts, id, (MMS)rd->data); - } - } - if (tv) { - if (tvisfunc(tv)) { - J->base[-1] = lj_ir_kfunc(J, funcV(tv)) | TREF_FRAME; - rd->nres = -1; /* Pending tailcall. */ - return 0; - } /* NYI: non-function metamethods. */ - } else if ((MMS)rd->data == MM_eq) { /* Fallback cdata pointer comparison. */ - if (sp[0] && sp[1] && ctype_isnum(s[0]->info) == ctype_isnum(s[1]->info)) { - /* Assume true comparison. Fixup and emit pending guard later. */ - lj_ir_set(J, IRTG(IR_EQ, IRT_PTR), sp[0], sp[1]); - J->postproc = LJ_POST_FIXGUARD; - return TREF_TRUE; - } else { - return TREF_FALSE; - } - } - lj_trace_err(J, LJ_TRERR_BADTYPE); - return 0; -} - -void LJ_FASTCALL recff_cdata_arith(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - TRef sp[2]; - CType *s[2]; - MSize i; - for (i = 0; i < 2; i++) { - TRef tr = J->base[i]; - CType *ct = ctype_get(cts, CTID_DOUBLE); - if (!tr) { - lj_trace_err(J, LJ_TRERR_BADTYPE); - } else if (tref_iscdata(tr)) { - CTypeID id = argv2cdata(J, tr, &rd->argv[i])->ctypeid; - IRType t; - ct = ctype_raw(cts, id); - t = crec_ct2irt(cts, ct); - if (ctype_isptr(ct->info)) { /* Resolve pointer or reference. */ - tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_PTR); - if (ctype_isref(ct->info)) { - ct = ctype_rawchild(cts, ct); - t = crec_ct2irt(cts, ct); - } - } else if (t == IRT_I64 || t == IRT_U64) { - tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_INT64); - lj_needsplit(J); - goto ok; - } else if (t == IRT_INT || t == IRT_U32) { - tr = emitir(IRT(IR_FLOAD, t), tr, IRFL_CDATA_INT); - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - goto ok; - } else if (ctype_isfunc(ct->info)) { - tr = emitir(IRT(IR_FLOAD, IRT_PTR), tr, IRFL_CDATA_PTR); - ct = ctype_get(cts, - lj_ctype_intern(cts, CTINFO(CT_PTR, CTALIGN_PTR|id), CTSIZE_PTR)); - goto ok; - } else { - tr = emitir(IRT(IR_ADD, IRT_PTR), tr, lj_ir_kintp(J, sizeof(GCcdata))); - } - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - if (ctype_isnum(ct->info)) { - if (t == IRT_CDATA) { - tr = 0; - } else { - if (t == IRT_I64 || t == IRT_U64) lj_needsplit(J); - tr = emitir(IRT(IR_XLOAD, t), tr, 0); - } - } - } else if (tref_isnil(tr)) { - tr = lj_ir_kptr(J, NULL); - ct = ctype_get(cts, CTID_P_VOID); - } else if (tref_isinteger(tr)) { - ct = ctype_get(cts, CTID_INT32); - } else if (tref_isstr(tr)) { - TRef tr2 = J->base[1-i]; - CTypeID id = argv2cdata(J, tr2, &rd->argv[1-i])->ctypeid; - ct = ctype_raw(cts, id); - if (ctype_isenum(ct->info)) { /* Match string against enum constant. */ - GCstr *str = strV(&rd->argv[i]); - CTSize ofs; - CType *cct = lj_ctype_getfield(cts, ct, str, &ofs); - if (cct && ctype_isconstval(cct->info)) { - /* Specialize to the name of the enum constant. */ - emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, str)); - ct = ctype_child(cts, cct); - tr = lj_ir_kint(J, (int32_t)ofs); - } else { /* Interpreter will throw or return false. */ - ct = ctype_get(cts, CTID_P_VOID); - } - } else if (ctype_isptr(ct->info)) { - tr = emitir(IRT(IR_ADD, IRT_PTR), tr, lj_ir_kintp(J, sizeof(GCstr))); - } else { - ct = ctype_get(cts, CTID_P_VOID); - } - } else if (!tref_isnum(tr)) { - tr = 0; - ct = ctype_get(cts, CTID_P_VOID); - } - ok: - s[i] = ct; - sp[i] = tr; - } - { - TRef tr; - if (!(tr = crec_arith_int64(J, sp, s, (MMS)rd->data)) && - !(tr = crec_arith_ptr(J, sp, s, (MMS)rd->data)) && - !(tr = crec_arith_meta(J, sp, s, cts, rd))) - return; - J->base[0] = tr; - /* Fixup cdata comparisons, too. Avoids some cdata escapes. */ - if (J->postproc == LJ_POST_FIXGUARD && frame_iscont(J->L->base-1) && - !irt_isguard(J->guardemit)) { - const BCIns *pc = frame_contpc(J->L->base-1) - 1; - if (bc_op(*pc) <= BC_ISNEP) { - J2G(J)->tmptv.u64 = (uint64_t)(uintptr_t)pc; - J->postproc = LJ_POST_FIXCOMP; - } - } - } -} - -/* -- C library namespace metamethods ------------------------------------- */ - -void LJ_FASTCALL recff_clib_index(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - if (tref_isudata(J->base[0]) && tref_isstr(J->base[1]) && - udataV(&rd->argv[0])->udtype == UDTYPE_FFI_CLIB) { - CLibrary *cl = (CLibrary *)uddata(udataV(&rd->argv[0])); - GCstr *name = strV(&rd->argv[1]); - CType *ct; - CTypeID id = lj_ctype_getname(cts, &ct, name, CLNS_INDEX); - cTValue *tv = lj_tab_getstr(cl->cache, name); - rd->nres = rd->data; - if (id && tv && !tvisnil(tv)) { - /* Specialize to the symbol name and make the result a constant. */ - emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, name)); - if (ctype_isconstval(ct->info)) { - if (ct->size >= 0x80000000u && - (ctype_child(cts, ct)->info & CTF_UNSIGNED)) - J->base[0] = lj_ir_knum(J, (lua_Number)(uint32_t)ct->size); - else - J->base[0] = lj_ir_kint(J, (int32_t)ct->size); - } else if (ctype_isextern(ct->info)) { - CTypeID sid = ctype_cid(ct->info); - void *sp = *(void **)cdataptr(cdataV(tv)); - TRef ptr; - ct = ctype_raw(cts, sid); - if (LJ_64 && !checkptr32(sp)) - ptr = lj_ir_kintp(J, (uintptr_t)sp); - else - ptr = lj_ir_kptr(J, sp); - if (rd->data) { - J->base[0] = crec_tv_ct(J, ct, sid, ptr); - } else { - J->needsnap = 1; - crec_ct_tv(J, ct, ptr, J->base[2], &rd->argv[2]); - } - } else { - J->base[0] = lj_ir_kgc(J, obj2gco(cdataV(tv)), IRT_CDATA); - } - } else { - lj_trace_err(J, LJ_TRERR_NOCACHE); - } - } /* else: interpreter will throw. */ -} - -/* -- FFI library functions ----------------------------------------------- */ - -static TRef crec_toint(jit_State *J, CTState *cts, TRef sp, TValue *sval) -{ - return crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, sp, sval); -} - -void LJ_FASTCALL recff_ffi_new(jit_State *J, RecordFFData *rd) -{ - crec_alloc(J, rd, argv2ctype(J, J->base[0], &rd->argv[0])); -} - -void LJ_FASTCALL recff_ffi_errno(jit_State *J, RecordFFData *rd) -{ - UNUSED(rd); - if (J->base[0]) - lj_trace_err(J, LJ_TRERR_NYICALL); - J->base[0] = lj_ir_call(J, IRCALL_lj_vm_errno); -} - -void LJ_FASTCALL recff_ffi_string(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - TRef tr = J->base[0]; - if (tr) { - TRef trlen = J->base[1]; - if (!tref_isnil(trlen)) { - trlen = crec_toint(J, cts, trlen, &rd->argv[1]); - tr = crec_ct_tv(J, ctype_get(cts, CTID_P_CVOID), 0, tr, &rd->argv[0]); - } else { - tr = crec_ct_tv(J, ctype_get(cts, CTID_P_CCHAR), 0, tr, &rd->argv[0]); - trlen = lj_ir_call(J, IRCALL_strlen, tr); - } - J->base[0] = emitir(IRT(IR_XSNEW, IRT_STR), tr, trlen); - } /* else: interpreter will throw. */ -} - -void LJ_FASTCALL recff_ffi_copy(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - TRef trdst = J->base[0], trsrc = J->base[1], trlen = J->base[2]; - if (trdst && trsrc && (trlen || tref_isstr(trsrc))) { - trdst = crec_ct_tv(J, ctype_get(cts, CTID_P_VOID), 0, trdst, &rd->argv[0]); - trsrc = crec_ct_tv(J, ctype_get(cts, CTID_P_CVOID), 0, trsrc, &rd->argv[1]); - if (trlen) { - trlen = crec_toint(J, cts, trlen, &rd->argv[2]); - } else { - trlen = emitir(IRTI(IR_FLOAD), J->base[1], IRFL_STR_LEN); - trlen = emitir(IRTI(IR_ADD), trlen, lj_ir_kint(J, 1)); - } - rd->nres = 0; - crec_copy(J, trdst, trsrc, trlen, NULL); - } /* else: interpreter will throw. */ -} - -void LJ_FASTCALL recff_ffi_fill(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - TRef trdst = J->base[0], trlen = J->base[1], trfill = J->base[2]; - if (trdst && trlen) { - CTSize step = 1; - if (tviscdata(&rd->argv[0])) { /* Get alignment of original destination. */ - CTSize sz; - CType *ct = ctype_raw(cts, cdataV(&rd->argv[0])->ctypeid); - if (ctype_isptr(ct->info)) - ct = ctype_rawchild(cts, ct); - step = (1u<argv[0]); - trlen = crec_toint(J, cts, trlen, &rd->argv[1]); - if (trfill) - trfill = crec_toint(J, cts, trfill, &rd->argv[2]); - else - trfill = lj_ir_kint(J, 0); - rd->nres = 0; - crec_fill(J, trdst, trlen, trfill, step); - } /* else: interpreter will throw. */ -} - -void LJ_FASTCALL recff_ffi_typeof(jit_State *J, RecordFFData *rd) -{ - if (tref_iscdata(J->base[0])) { - TRef trid = lj_ir_kint(J, argv2ctype(J, J->base[0], &rd->argv[0])); - J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), - lj_ir_kint(J, CTID_CTYPEID), trid); - } else { - setfuncV(J->L, &J->errinfo, J->fn); - lj_trace_err_info(J, LJ_TRERR_NYIFFU); - } -} - -void LJ_FASTCALL recff_ffi_istype(jit_State *J, RecordFFData *rd) -{ - argv2ctype(J, J->base[0], &rd->argv[0]); - if (tref_iscdata(J->base[1])) { - argv2ctype(J, J->base[1], &rd->argv[1]); - J->postproc = LJ_POST_FIXBOOL; - J->base[0] = TREF_TRUE; - } else { - J->base[0] = TREF_FALSE; - } -} - -void LJ_FASTCALL recff_ffi_abi(jit_State *J, RecordFFData *rd) -{ - if (tref_isstr(J->base[0])) { - /* Specialize to the ABI string to make the boolean result a constant. */ - emitir(IRTG(IR_EQ, IRT_STR), J->base[0], lj_ir_kstr(J, strV(&rd->argv[0]))); - J->postproc = LJ_POST_FIXBOOL; - J->base[0] = TREF_TRUE; - } else { - lj_trace_err(J, LJ_TRERR_BADTYPE); - } -} - -/* Record ffi.sizeof(), ffi.alignof(), ffi.offsetof(). */ -void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd) -{ - CTypeID id = argv2ctype(J, J->base[0], &rd->argv[0]); - if (rd->data == FF_ffi_sizeof) { - CType *ct = lj_ctype_rawref(ctype_ctsG(J2G(J)), id); - if (ctype_isvltype(ct->info)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - } else if (rd->data == FF_ffi_offsetof) { /* Specialize to the field name. */ - if (!tref_isstr(J->base[1])) - lj_trace_err(J, LJ_TRERR_BADTYPE); - emitir(IRTG(IR_EQ, IRT_STR), J->base[1], lj_ir_kstr(J, strV(&rd->argv[1]))); - rd->nres = 3; /* Just in case. */ - } - J->postproc = LJ_POST_FIXCONST; - J->base[0] = J->base[1] = J->base[2] = TREF_NIL; -} - -void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd) -{ - argv2cdata(J, J->base[0], &rd->argv[0]); - if (!J->base[1]) - lj_trace_err(J, LJ_TRERR_BADTYPE); - crec_finalizer(J, J->base[0], J->base[1], &rd->argv[1]); -} - -/* -- 64 bit bit.* library functions -------------------------------------- */ - -/* Determine bit operation type from argument type. */ -static CTypeID crec_bit64_type(CTState *cts, cTValue *tv) -{ - if (tviscdata(tv)) { - CType *ct = lj_ctype_rawref(cts, cdataV(tv)->ctypeid); - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - if ((ct->info & (CTMASK_NUM|CTF_BOOL|CTF_FP|CTF_UNSIGNED)) == - CTINFO(CT_NUM, CTF_UNSIGNED) && ct->size == 8) - return CTID_UINT64; /* Use uint64_t, since it has the highest rank. */ - return CTID_INT64; /* Otherwise use int64_t. */ - } - return 0; /* Use regular 32 bit ops. */ -} - -void LJ_FASTCALL recff_bit64_tobit(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - TRef tr = crec_ct_tv(J, ctype_get(cts, CTID_INT64), 0, - J->base[0], &rd->argv[0]); - if (!tref_isinteger(tr)) - tr = emitconv(tr, IRT_INT, tref_type(tr), 0); - J->base[0] = tr; -} - -int LJ_FASTCALL recff_bit64_unary(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTypeID id = crec_bit64_type(cts, &rd->argv[0]); - if (id) { - TRef tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); - tr = emitir(IRT(rd->data, id-CTID_INT64+IRT_I64), tr, 0); - J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); - return 1; - } - return 0; -} - -int LJ_FASTCALL recff_bit64_nary(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTypeID id = 0; - MSize i; - for (i = 0; J->base[i] != 0; i++) { - CTypeID aid = crec_bit64_type(cts, &rd->argv[i]); - if (id < aid) id = aid; /* Determine highest type rank of all arguments. */ - } - if (id) { - CType *ct = ctype_get(cts, id); - uint32_t ot = IRT(rd->data, id-CTID_INT64+IRT_I64); - TRef tr = crec_ct_tv(J, ct, 0, J->base[0], &rd->argv[0]); - for (i = 1; J->base[i] != 0; i++) { - TRef tr2 = crec_ct_tv(J, ct, 0, J->base[i], &rd->argv[i]); - tr = emitir(ot, tr, tr2); - } - J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); - return 1; - } - return 0; -} - -int LJ_FASTCALL recff_bit64_shift(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTypeID id; - TRef tsh = 0; - if (J->base[0] && tref_iscdata(J->base[1])) { - tsh = crec_ct_tv(J, ctype_get(cts, CTID_INT64), 0, - J->base[1], &rd->argv[1]); - if (!tref_isinteger(tsh)) - tsh = emitconv(tsh, IRT_INT, tref_type(tsh), 0); - J->base[1] = tsh; - } - id = crec_bit64_type(cts, &rd->argv[0]); - if (id) { - TRef tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); - uint32_t op = rd->data; - if (!tsh) tsh = lj_opt_narrow_tobit(J, J->base[1]); - if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && - !tref_isk(tsh)) - tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 63)); -#ifdef LJ_TARGET_UNIFYROT - if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { - op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; - tsh = emitir(IRTI(IR_NEG), tsh, tsh); - } -#endif - tr = emitir(IRT(op, id-CTID_INT64+IRT_I64), tr, tsh); - J->base[0] = emitir(IRTG(IR_CNEWI, IRT_CDATA), lj_ir_kint(J, id), tr); - return 1; - } - return 0; -} - -TRef recff_bit64_tohex(jit_State *J, RecordFFData *rd, TRef hdr) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CTypeID id = crec_bit64_type(cts, &rd->argv[0]); - TRef tr, trsf = J->base[1]; - SFormat sf = (STRFMT_UINT|STRFMT_T_HEX); - int32_t n; - if (trsf) { - CTypeID id2 = 0; - n = (int32_t)lj_carith_check64(J->L, 2, &id2); - if (id2) - trsf = crec_ct_tv(J, ctype_get(cts, CTID_INT32), 0, trsf, &rd->argv[1]); - else - trsf = lj_opt_narrow_tobit(J, trsf); - emitir(IRTGI(IR_EQ), trsf, lj_ir_kint(J, n)); /* Specialize to n. */ - } else { - n = id ? 16 : 8; - } - if (n < 0) { n = -n; sf |= STRFMT_F_UPPER; } - sf |= ((SFormat)((n+1)&255) << STRFMT_SH_PREC); - if (id) { - tr = crec_ct_tv(J, ctype_get(cts, id), 0, J->base[0], &rd->argv[0]); - if (n < 16) - tr = emitir(IRT(IR_BAND, IRT_U64), tr, - lj_ir_kint64(J, ((uint64_t)1 << 4*n)-1)); - } else { - tr = lj_opt_narrow_tobit(J, J->base[0]); - if (n < 8) - tr = emitir(IRTI(IR_BAND), tr, lj_ir_kint(J, (int32_t)((1u << 4*n)-1))); - tr = emitconv(tr, IRT_U64, IRT_INT, 0); /* No sign-extension. */ - lj_needsplit(J); - } - return lj_ir_call(J, IRCALL_lj_strfmt_putfxint, hdr, lj_ir_kint(J, sf), tr); -} - -/* -- Miscellaneous library functions ------------------------------------- */ - -void LJ_FASTCALL lj_crecord_tonumber(jit_State *J, RecordFFData *rd) -{ - CTState *cts = ctype_ctsG(J2G(J)); - CType *d, *ct = lj_ctype_rawref(cts, cdataV(&rd->argv[0])->ctypeid); - if (ctype_isenum(ct->info)) ct = ctype_child(cts, ct); - if (ctype_isnum(ct->info) || ctype_iscomplex(ct->info)) { - if (ctype_isinteger_or_bool(ct->info) && ct->size <= 4 && - !(ct->size == 4 && (ct->info & CTF_UNSIGNED))) - d = ctype_get(cts, CTID_INT32); - else - d = ctype_get(cts, CTID_DOUBLE); - J->base[0] = crec_ct_tv(J, d, 0, J->base[0], &rd->argv[0]); - } else { - J->base[0] = TREF_NIL; - } -} - -#undef IR -#undef emitir -#undef emitconv - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_crecord.h b/src/3rd party/luajit-2.0-BAK/src/lj_crecord.h deleted file mode 100644 index 59f342a1d9a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_crecord.h +++ /dev/null @@ -1,38 +0,0 @@ -/* -** Trace recorder for C data operations. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CRECORD_H -#define _LJ_CRECORD_H - -#include "lj_obj.h" -#include "lj_jit.h" -#include "lj_ffrecord.h" - -#if LJ_HASJIT && LJ_HASFFI -LJ_FUNC void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_cdata_call(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_cdata_arith(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_clib_index(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_new(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_errno(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_string(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_copy(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_fill(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_typeof(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_istype(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_abi(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_xof(jit_State *J, RecordFFData *rd); -LJ_FUNC void LJ_FASTCALL recff_ffi_gc(jit_State *J, RecordFFData *rd); - -LJ_FUNC void LJ_FASTCALL recff_bit64_tobit(jit_State *J, RecordFFData *rd); -LJ_FUNC int LJ_FASTCALL recff_bit64_unary(jit_State *J, RecordFFData *rd); -LJ_FUNC int LJ_FASTCALL recff_bit64_nary(jit_State *J, RecordFFData *rd); -LJ_FUNC int LJ_FASTCALL recff_bit64_shift(jit_State *J, RecordFFData *rd); -LJ_FUNC TRef recff_bit64_tohex(jit_State *J, RecordFFData *rd, TRef hdr); - -LJ_FUNC void LJ_FASTCALL lj_crecord_tonumber(jit_State *J, RecordFFData *rd); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ctype.c b/src/3rd party/luajit-2.0-BAK/src/lj_ctype.c deleted file mode 100644 index 2e23c994bb0..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ctype.c +++ /dev/null @@ -1,635 +0,0 @@ -/* -** C type management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include "lj_obj.h" - -#if LJ_HASFFI - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_strfmt.h" -#include "lj_ctype.h" -#include "lj_ccallback.h" - -/* -- C type definitions -------------------------------------------------- */ - -/* Predefined typedefs. */ -#define CTTDDEF(_) \ - /* Vararg handling. */ \ - _("va_list", P_VOID) \ - _("__builtin_va_list", P_VOID) \ - _("__gnuc_va_list", P_VOID) \ - /* From stddef.h. */ \ - _("ptrdiff_t", INT_PSZ) \ - _("size_t", UINT_PSZ) \ - _("wchar_t", WCHAR) \ - /* Subset of stdint.h. */ \ - _("int8_t", INT8) \ - _("int16_t", INT16) \ - _("int32_t", INT32) \ - _("int64_t", INT64) \ - _("uint8_t", UINT8) \ - _("uint16_t", UINT16) \ - _("uint32_t", UINT32) \ - _("uint64_t", UINT64) \ - _("intptr_t", INT_PSZ) \ - _("uintptr_t", UINT_PSZ) \ - /* End of typedef list. */ - -/* Keywords (only the ones we actually care for). */ -#define CTKWDEF(_) \ - /* Type specifiers. */ \ - _("void", -1, CTOK_VOID) \ - _("_Bool", 0, CTOK_BOOL) \ - _("bool", 1, CTOK_BOOL) \ - _("char", 1, CTOK_CHAR) \ - _("int", 4, CTOK_INT) \ - _("__int8", 1, CTOK_INT) \ - _("__int16", 2, CTOK_INT) \ - _("__int32", 4, CTOK_INT) \ - _("__int64", 8, CTOK_INT) \ - _("float", 4, CTOK_FP) \ - _("double", 8, CTOK_FP) \ - _("long", 0, CTOK_LONG) \ - _("short", 0, CTOK_SHORT) \ - _("_Complex", 0, CTOK_COMPLEX) \ - _("complex", 0, CTOK_COMPLEX) \ - _("__complex", 0, CTOK_COMPLEX) \ - _("__complex__", 0, CTOK_COMPLEX) \ - _("signed", 0, CTOK_SIGNED) \ - _("__signed", 0, CTOK_SIGNED) \ - _("__signed__", 0, CTOK_SIGNED) \ - _("unsigned", 0, CTOK_UNSIGNED) \ - /* Type qualifiers. */ \ - _("const", 0, CTOK_CONST) \ - _("__const", 0, CTOK_CONST) \ - _("__const__", 0, CTOK_CONST) \ - _("volatile", 0, CTOK_VOLATILE) \ - _("__volatile", 0, CTOK_VOLATILE) \ - _("__volatile__", 0, CTOK_VOLATILE) \ - _("restrict", 0, CTOK_RESTRICT) \ - _("__restrict", 0, CTOK_RESTRICT) \ - _("__restrict__", 0, CTOK_RESTRICT) \ - _("inline", 0, CTOK_INLINE) \ - _("__inline", 0, CTOK_INLINE) \ - _("__inline__", 0, CTOK_INLINE) \ - /* Storage class specifiers. */ \ - _("typedef", 0, CTOK_TYPEDEF) \ - _("extern", 0, CTOK_EXTERN) \ - _("static", 0, CTOK_STATIC) \ - _("auto", 0, CTOK_AUTO) \ - _("register", 0, CTOK_REGISTER) \ - /* GCC Attributes. */ \ - _("__extension__", 0, CTOK_EXTENSION) \ - _("__attribute", 0, CTOK_ATTRIBUTE) \ - _("__attribute__", 0, CTOK_ATTRIBUTE) \ - _("asm", 0, CTOK_ASM) \ - _("__asm", 0, CTOK_ASM) \ - _("__asm__", 0, CTOK_ASM) \ - /* MSVC Attributes. */ \ - _("__declspec", 0, CTOK_DECLSPEC) \ - _("__cdecl", CTCC_CDECL, CTOK_CCDECL) \ - _("__thiscall", CTCC_THISCALL, CTOK_CCDECL) \ - _("__fastcall", CTCC_FASTCALL, CTOK_CCDECL) \ - _("__stdcall", CTCC_STDCALL, CTOK_CCDECL) \ - _("__ptr32", 4, CTOK_PTRSZ) \ - _("__ptr64", 8, CTOK_PTRSZ) \ - /* Other type specifiers. */ \ - _("struct", 0, CTOK_STRUCT) \ - _("union", 0, CTOK_UNION) \ - _("enum", 0, CTOK_ENUM) \ - /* Operators. */ \ - _("sizeof", 0, CTOK_SIZEOF) \ - _("__alignof", 0, CTOK_ALIGNOF) \ - _("__alignof__", 0, CTOK_ALIGNOF) \ - /* End of keyword list. */ - -/* Type info for predefined types. Size merged in. */ -static CTInfo lj_ctype_typeinfo[] = { -#define CTTYINFODEF(id, sz, ct, info) CTINFO((ct),(((sz)&0x3fu)<<10)+(info)), -#define CTTDINFODEF(name, id) CTINFO(CT_TYPEDEF, CTID_##id), -#define CTKWINFODEF(name, sz, kw) CTINFO(CT_KW,(((sz)&0x3fu)<<10)+(kw)), -CTTYDEF(CTTYINFODEF) -CTTDDEF(CTTDINFODEF) -CTKWDEF(CTKWINFODEF) -#undef CTTYINFODEF -#undef CTTDINFODEF -#undef CTKWINFODEF - 0 -}; - -/* Predefined type names collected in a single string. */ -static const char * const lj_ctype_typenames = -#define CTTDNAMEDEF(name, id) name "\0" -#define CTKWNAMEDEF(name, sz, cds) name "\0" -CTTDDEF(CTTDNAMEDEF) -CTKWDEF(CTKWNAMEDEF) -#undef CTTDNAMEDEF -#undef CTKWNAMEDEF -; - -#define CTTYPEINFO_NUM (sizeof(lj_ctype_typeinfo)/sizeof(CTInfo)-1) -#ifdef LUAJIT_CTYPE_CHECK_ANCHOR -#define CTTYPETAB_MIN CTTYPEINFO_NUM -#else -#define CTTYPETAB_MIN 128 -#endif - -/* -- C type interning ---------------------------------------------------- */ - -#define ct_hashtype(info, size) (hashrot(info, size) & CTHASH_MASK) -#define ct_hashname(name) \ - (hashrot(u32ptr(name), u32ptr(name) + HASH_BIAS) & CTHASH_MASK) - -/* Create new type element. */ -CTypeID lj_ctype_new(CTState *cts, CType **ctp) -{ - CTypeID id = cts->top; - CType *ct; - lua_assert(cts->L); - if (LJ_UNLIKELY(id >= cts->sizetab)) { - if (id >= CTID_MAX) lj_err_msg(cts->L, LJ_ERR_TABOV); -#ifdef LUAJIT_CTYPE_CHECK_ANCHOR - ct = lj_mem_newvec(cts->L, id+1, CType); - memcpy(ct, cts->tab, id*sizeof(CType)); - memset(cts->tab, 0, id*sizeof(CType)); - lj_mem_freevec(cts->g, cts->tab, cts->sizetab, CType); - cts->tab = ct; - cts->sizetab = id+1; -#else - lj_mem_growvec(cts->L, cts->tab, cts->sizetab, CTID_MAX, CType); -#endif - } - cts->top = id+1; - *ctp = ct = &cts->tab[id]; - ct->info = 0; - ct->size = 0; - ct->sib = 0; - ct->next = 0; - setgcrefnull(ct->name); - return id; -} - -/* Intern a type element. */ -CTypeID lj_ctype_intern(CTState *cts, CTInfo info, CTSize size) -{ - uint32_t h = ct_hashtype(info, size); - CTypeID id = cts->hash[h]; - lua_assert(cts->L); - while (id) { - CType *ct = ctype_get(cts, id); - if (ct->info == info && ct->size == size) - return id; - id = ct->next; - } - id = cts->top; - if (LJ_UNLIKELY(id >= cts->sizetab)) { - if (id >= CTID_MAX) lj_err_msg(cts->L, LJ_ERR_TABOV); - lj_mem_growvec(cts->L, cts->tab, cts->sizetab, CTID_MAX, CType); - } - cts->top = id+1; - cts->tab[id].info = info; - cts->tab[id].size = size; - cts->tab[id].sib = 0; - cts->tab[id].next = cts->hash[h]; - setgcrefnull(cts->tab[id].name); - cts->hash[h] = (CTypeID1)id; - return id; -} - -/* Add type element to hash table. */ -static void ctype_addtype(CTState *cts, CType *ct, CTypeID id) -{ - uint32_t h = ct_hashtype(ct->info, ct->size); - ct->next = cts->hash[h]; - cts->hash[h] = (CTypeID1)id; -} - -/* Add named element to hash table. */ -void lj_ctype_addname(CTState *cts, CType *ct, CTypeID id) -{ - uint32_t h = ct_hashname(gcref(ct->name)); - ct->next = cts->hash[h]; - cts->hash[h] = (CTypeID1)id; -} - -/* Get a C type by name, matching the type mask. */ -CTypeID lj_ctype_getname(CTState *cts, CType **ctp, GCstr *name, uint32_t tmask) -{ - CTypeID id = cts->hash[ct_hashname(name)]; - while (id) { - CType *ct = ctype_get(cts, id); - if (gcref(ct->name) == obj2gco(name) && - ((tmask >> ctype_type(ct->info)) & 1)) { - *ctp = ct; - return id; - } - id = ct->next; - } - *ctp = &cts->tab[0]; /* Simplify caller logic. ctype_get() would assert. */ - return 0; -} - -/* Get a struct/union/enum/function field by name. */ -CType *lj_ctype_getfieldq(CTState *cts, CType *ct, GCstr *name, CTSize *ofs, - CTInfo *qual) -{ - while (ct->sib) { - ct = ctype_get(cts, ct->sib); - if (gcref(ct->name) == obj2gco(name)) { - *ofs = ct->size; - return ct; - } - if (ctype_isxattrib(ct->info, CTA_SUBTYPE)) { - CType *fct, *cct = ctype_child(cts, ct); - CTInfo q = 0; - while (ctype_isattrib(cct->info)) { - if (ctype_attrib(cct->info) == CTA_QUAL) q |= cct->size; - cct = ctype_child(cts, cct); - } - fct = lj_ctype_getfieldq(cts, cct, name, ofs, qual); - if (fct) { - if (qual) *qual |= q; - *ofs += ct->size; - return fct; - } - } - } - return NULL; /* Not found. */ -} - -/* -- C type information -------------------------------------------------- */ - -/* Follow references and get raw type for a C type ID. */ -CType *lj_ctype_rawref(CTState *cts, CTypeID id) -{ - CType *ct = ctype_get(cts, id); - while (ctype_isattrib(ct->info) || ctype_isref(ct->info)) - ct = ctype_child(cts, ct); - return ct; -} - -/* Get size for a C type ID. Does NOT support VLA/VLS. */ -CTSize lj_ctype_size(CTState *cts, CTypeID id) -{ - CType *ct = ctype_raw(cts, id); - return ctype_hassize(ct->info) ? ct->size : CTSIZE_INVALID; -} - -/* Get size for a variable-length C type. Does NOT support other C types. */ -CTSize lj_ctype_vlsize(CTState *cts, CType *ct, CTSize nelem) -{ - uint64_t xsz = 0; - if (ctype_isstruct(ct->info)) { - CTypeID arrid = 0, fid = ct->sib; - xsz = ct->size; /* Add the struct size. */ - while (fid) { - CType *ctf = ctype_get(cts, fid); - if (ctype_type(ctf->info) == CT_FIELD) - arrid = ctype_cid(ctf->info); /* Remember last field of VLS. */ - fid = ctf->sib; - } - ct = ctype_raw(cts, arrid); - } - lua_assert(ctype_isvlarray(ct->info)); /* Must be a VLA. */ - ct = ctype_rawchild(cts, ct); /* Get array element. */ - lua_assert(ctype_hassize(ct->info)); - /* Calculate actual size of VLA and check for overflow. */ - xsz += (uint64_t)ct->size * nelem; - return xsz < 0x80000000u ? (CTSize)xsz : CTSIZE_INVALID; -} - -/* Get type, qualifiers, size and alignment for a C type ID. */ -CTInfo lj_ctype_info(CTState *cts, CTypeID id, CTSize *szp) -{ - CTInfo qual = 0; - CType *ct = ctype_get(cts, id); - for (;;) { - CTInfo info = ct->info; - if (ctype_isenum(info)) { - /* Follow child. Need to look at its attributes, too. */ - } else if (ctype_isattrib(info)) { - if (ctype_isxattrib(info, CTA_QUAL)) - qual |= ct->size; - else if (ctype_isxattrib(info, CTA_ALIGN) && !(qual & CTFP_ALIGNED)) - qual |= CTFP_ALIGNED + CTALIGN(ct->size); - } else { - if (!(qual & CTFP_ALIGNED)) qual |= (info & CTF_ALIGN); - qual |= (info & ~(CTF_ALIGN|CTMASK_CID)); - lua_assert(ctype_hassize(info) || ctype_isfunc(info)); - *szp = ctype_isfunc(info) ? CTSIZE_INVALID : ct->size; - break; - } - ct = ctype_get(cts, ctype_cid(info)); - } - return qual; -} - -/* Get ctype metamethod. */ -cTValue *lj_ctype_meta(CTState *cts, CTypeID id, MMS mm) -{ - CType *ct = ctype_get(cts, id); - cTValue *tv; - while (ctype_isattrib(ct->info) || ctype_isref(ct->info)) { - id = ctype_cid(ct->info); - ct = ctype_get(cts, id); - } - if (ctype_isptr(ct->info) && - ctype_isfunc(ctype_get(cts, ctype_cid(ct->info))->info)) - tv = lj_tab_getstr(cts->miscmap, &cts->g->strempty); - else - tv = lj_tab_getinth(cts->miscmap, -(int32_t)id); - if (tv && tvistab(tv) && - (tv = lj_tab_getstr(tabV(tv), mmname_str(cts->g, mm))) && !tvisnil(tv)) - return tv; - return NULL; -} - -/* -- C type representation ----------------------------------------------- */ - -/* Fixed max. length of a C type representation. */ -#define CTREPR_MAX 512 - -typedef struct CTRepr { - char *pb, *pe; - CTState *cts; - lua_State *L; - int needsp; - int ok; - char buf[CTREPR_MAX]; -} CTRepr; - -/* Prepend string. */ -static void ctype_prepstr(CTRepr *ctr, const char *str, MSize len) -{ - char *p = ctr->pb; - if (ctr->buf + len+1 > p) { ctr->ok = 0; return; } - if (ctr->needsp) *--p = ' '; - ctr->needsp = 1; - p -= len; - while (len-- > 0) p[len] = str[len]; - ctr->pb = p; -} - -#define ctype_preplit(ctr, str) ctype_prepstr((ctr), "" str, sizeof(str)-1) - -/* Prepend char. */ -static void ctype_prepc(CTRepr *ctr, int c) -{ - if (ctr->buf >= ctr->pb) { ctr->ok = 0; return; } - *--ctr->pb = c; -} - -/* Prepend number. */ -static void ctype_prepnum(CTRepr *ctr, uint32_t n) -{ - char *p = ctr->pb; - if (ctr->buf + 10+1 > p) { ctr->ok = 0; return; } - do { *--p = (char)('0' + n % 10); } while (n /= 10); - ctr->pb = p; - ctr->needsp = 0; -} - -/* Append char. */ -static void ctype_appc(CTRepr *ctr, int c) -{ - if (ctr->pe >= ctr->buf + CTREPR_MAX) { ctr->ok = 0; return; } - *ctr->pe++ = c; -} - -/* Append number. */ -static void ctype_appnum(CTRepr *ctr, uint32_t n) -{ - char buf[10]; - char *p = buf+sizeof(buf); - char *q = ctr->pe; - if (q > ctr->buf + CTREPR_MAX - 10) { ctr->ok = 0; return; } - do { *--p = (char)('0' + n % 10); } while (n /= 10); - do { *q++ = *p++; } while (p < buf+sizeof(buf)); - ctr->pe = q; -} - -/* Prepend qualifiers. */ -static void ctype_prepqual(CTRepr *ctr, CTInfo info) -{ - if ((info & CTF_VOLATILE)) ctype_preplit(ctr, "volatile"); - if ((info & CTF_CONST)) ctype_preplit(ctr, "const"); -} - -/* Prepend named type. */ -static void ctype_preptype(CTRepr *ctr, CType *ct, CTInfo qual, const char *t) -{ - if (gcref(ct->name)) { - GCstr *str = gco2str(gcref(ct->name)); - ctype_prepstr(ctr, strdata(str), str->len); - } else { - if (ctr->needsp) ctype_prepc(ctr, ' '); - ctype_prepnum(ctr, ctype_typeid(ctr->cts, ct)); - ctr->needsp = 1; - } - ctype_prepstr(ctr, t, (MSize)strlen(t)); - ctype_prepqual(ctr, qual); -} - -static void ctype_repr(CTRepr *ctr, CTypeID id) -{ - CType *ct = ctype_get(ctr->cts, id); - CTInfo qual = 0; - int ptrto = 0; - for (;;) { - CTInfo info = ct->info; - CTSize size = ct->size; - switch (ctype_type(info)) { - case CT_NUM: - if ((info & CTF_BOOL)) { - ctype_preplit(ctr, "bool"); - } else if ((info & CTF_FP)) { - if (size == sizeof(double)) ctype_preplit(ctr, "double"); - else if (size == sizeof(float)) ctype_preplit(ctr, "float"); - else ctype_preplit(ctr, "long double"); - } else if (size == 1) { - if (!((info ^ CTF_UCHAR) & CTF_UNSIGNED)) ctype_preplit(ctr, "char"); - else if (CTF_UCHAR) ctype_preplit(ctr, "signed char"); - else ctype_preplit(ctr, "unsigned char"); - } else if (size < 8) { - if (size == 4) ctype_preplit(ctr, "int"); - else ctype_preplit(ctr, "short"); - if ((info & CTF_UNSIGNED)) ctype_preplit(ctr, "unsigned"); - } else { - ctype_preplit(ctr, "_t"); - ctype_prepnum(ctr, size*8); - ctype_preplit(ctr, "int"); - if ((info & CTF_UNSIGNED)) ctype_prepc(ctr, 'u'); - } - ctype_prepqual(ctr, (qual|info)); - return; - case CT_VOID: - ctype_preplit(ctr, "void"); - ctype_prepqual(ctr, (qual|info)); - return; - case CT_STRUCT: - ctype_preptype(ctr, ct, qual, (info & CTF_UNION) ? "union" : "struct"); - return; - case CT_ENUM: - if (id == CTID_CTYPEID) { - ctype_preplit(ctr, "ctype"); - return; - } - ctype_preptype(ctr, ct, qual, "enum"); - return; - case CT_ATTRIB: - if (ctype_attrib(info) == CTA_QUAL) qual |= size; - break; - case CT_PTR: - if ((info & CTF_REF)) { - ctype_prepc(ctr, '&'); - } else { - ctype_prepqual(ctr, (qual|info)); - if (LJ_64 && size == 4) ctype_preplit(ctr, "__ptr32"); - ctype_prepc(ctr, '*'); - } - qual = 0; - ptrto = 1; - ctr->needsp = 1; - break; - case CT_ARRAY: - if (ctype_isrefarray(info)) { - ctr->needsp = 1; - if (ptrto) { ptrto = 0; ctype_prepc(ctr, '('); ctype_appc(ctr, ')'); } - ctype_appc(ctr, '['); - if (size != CTSIZE_INVALID) { - CTSize csize = ctype_child(ctr->cts, ct)->size; - ctype_appnum(ctr, csize ? size/csize : 0); - } else if ((info & CTF_VLA)) { - ctype_appc(ctr, '?'); - } - ctype_appc(ctr, ']'); - } else if ((info & CTF_COMPLEX)) { - if (size == 2*sizeof(float)) ctype_preplit(ctr, "float"); - ctype_preplit(ctr, "complex"); - return; - } else { - ctype_preplit(ctr, ")))"); - ctype_prepnum(ctr, size); - ctype_preplit(ctr, "__attribute__((vector_size("); - } - break; - case CT_FUNC: - ctr->needsp = 1; - if (ptrto) { ptrto = 0; ctype_prepc(ctr, '('); ctype_appc(ctr, ')'); } - ctype_appc(ctr, '('); - ctype_appc(ctr, ')'); - break; - default: - lua_assert(0); - break; - } - ct = ctype_get(ctr->cts, ctype_cid(info)); - } -} - -/* Return a printable representation of a C type. */ -GCstr *lj_ctype_repr(lua_State *L, CTypeID id, GCstr *name) -{ - global_State *g = G(L); - CTRepr ctr; - ctr.pb = ctr.pe = &ctr.buf[CTREPR_MAX/2]; - ctr.cts = ctype_ctsG(g); - ctr.L = L; - ctr.ok = 1; - ctr.needsp = 0; - if (name) ctype_prepstr(&ctr, strdata(name), name->len); - ctype_repr(&ctr, id); - if (LJ_UNLIKELY(!ctr.ok)) return lj_str_newlit(L, "?"); - return lj_str_new(L, ctr.pb, ctr.pe - ctr.pb); -} - -/* Convert int64_t/uint64_t to string with 'LL' or 'ULL' suffix. */ -GCstr *lj_ctype_repr_int64(lua_State *L, uint64_t n, int isunsigned) -{ - char buf[1+20+3]; - char *p = buf+sizeof(buf); - int sign = 0; - *--p = 'L'; *--p = 'L'; - if (isunsigned) { - *--p = 'U'; - } else if ((int64_t)n < 0) { - n = (uint64_t)-(int64_t)n; - sign = 1; - } - do { *--p = (char)('0' + n % 10); } while (n /= 10); - if (sign) *--p = '-'; - return lj_str_new(L, p, (size_t)(buf+sizeof(buf)-p)); -} - -/* Convert complex to string with 'i' or 'I' suffix. */ -GCstr *lj_ctype_repr_complex(lua_State *L, void *sp, CTSize size) -{ - char buf[2*STRFMT_MAXBUF_NUM+2+1], *p = buf; - TValue re, im; - if (size == 2*sizeof(double)) { - re.n = *(double *)sp; im.n = ((double *)sp)[1]; - } else { - re.n = (double)*(float *)sp; im.n = (double)((float *)sp)[1]; - } - p = lj_strfmt_wnum(p, &re); - if (!(im.u32.hi & 0x80000000u) || im.n != im.n) *p++ = '+'; - p = lj_strfmt_wnum(p, &im); - *p = *(p-1) >= 'a' ? 'I' : 'i'; - p++; - return lj_str_new(L, buf, p-buf); -} - -/* -- C type state -------------------------------------------------------- */ - -/* Initialize C type table and state. */ -CTState *lj_ctype_init(lua_State *L) -{ - CTState *cts = lj_mem_newt(L, sizeof(CTState), CTState); - CType *ct = lj_mem_newvec(L, CTTYPETAB_MIN, CType); - const char *name = lj_ctype_typenames; - CTypeID id; - memset(cts, 0, sizeof(CTState)); - cts->tab = ct; - cts->sizetab = CTTYPETAB_MIN; - cts->top = CTTYPEINFO_NUM; - cts->L = NULL; - cts->g = G(L); - for (id = 0; id < CTTYPEINFO_NUM; id++, ct++) { - CTInfo info = lj_ctype_typeinfo[id]; - ct->size = (CTSize)((int32_t)(info << 16) >> 26); - ct->info = info & 0xffff03ffu; - ct->sib = 0; - if (ctype_type(info) == CT_KW || ctype_istypedef(info)) { - size_t len = strlen(name); - GCstr *str = lj_str_new(L, name, len); - ctype_setname(ct, str); - name += len+1; - lj_ctype_addname(cts, ct, id); - } else { - setgcrefnull(ct->name); - ct->next = 0; - if (!ctype_isenum(info)) ctype_addtype(cts, ct, id); - } - } - setmref(G(L)->ctype_state, cts); - return cts; -} - -/* Free C type table and state. */ -void lj_ctype_freestate(global_State *g) -{ - CTState *cts = ctype_ctsG(g); - if (cts) { - lj_ccallback_mcode_free(cts); - lj_mem_freevec(g, cts->tab, cts->sizetab, CType); - lj_mem_freevec(g, cts->cb.cbid, cts->cb.sizeid, CTypeID1); - lj_mem_freet(g, cts); - } -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ctype.h b/src/3rd party/luajit-2.0-BAK/src/lj_ctype.h deleted file mode 100644 index 6639547a431..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ctype.h +++ /dev/null @@ -1,461 +0,0 @@ -/* -** C type management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_CTYPE_H -#define _LJ_CTYPE_H - -#include "lj_obj.h" -#include "lj_gc.h" - -#if LJ_HASFFI - -/* -- C type definitions -------------------------------------------------- */ - -/* C type numbers. Highest 4 bits of C type info. ORDER CT. */ -enum { - /* Externally visible types. */ - CT_NUM, /* Integer or floating-point numbers. */ - CT_STRUCT, /* Struct or union. */ - CT_PTR, /* Pointer or reference. */ - CT_ARRAY, /* Array or complex type. */ - CT_MAYCONVERT = CT_ARRAY, - CT_VOID, /* Void type. */ - CT_ENUM, /* Enumeration. */ - CT_HASSIZE = CT_ENUM, /* Last type where ct->size holds the actual size. */ - CT_FUNC, /* Function. */ - CT_TYPEDEF, /* Typedef. */ - CT_ATTRIB, /* Miscellaneous attributes. */ - /* Internal element types. */ - CT_FIELD, /* Struct/union field or function parameter. */ - CT_BITFIELD, /* Struct/union bitfield. */ - CT_CONSTVAL, /* Constant value. */ - CT_EXTERN, /* External reference. */ - CT_KW /* Keyword. */ -}; - -LJ_STATIC_ASSERT(((int)CT_PTR & (int)CT_ARRAY) == CT_PTR); -LJ_STATIC_ASSERT(((int)CT_STRUCT & (int)CT_ARRAY) == CT_STRUCT); - -/* -** ---------- info ------------ -** |type flags... A cid | size | sib | next | name | -** +----------------------------+--------+-------+-------+-------+-- -** |NUM BFvcUL.. A | size | | type | | -** |STRUCT ..vcU..V A | size | field | name? | name? | -** |PTR ..vcR... A cid | size | | type | | -** |ARRAY VCvc...V A cid | size | | type | | -** |VOID ..vc.... A | size | | type | | -** |ENUM A cid | size | const | name? | name? | -** |FUNC ....VS.. cc cid | nargs | field | name? | name? | -** |TYPEDEF cid | | | name | name | -** |ATTRIB attrnum cid | attr | sib? | type? | | -** |FIELD cid | offset | field | | name? | -** |BITFIELD B.vcU csz bsz pos | offset | field | | name? | -** |CONSTVAL c cid | value | const | name | name | -** |EXTERN cid | | sib? | name | name | -** |KW tok | size | | name | name | -** +----------------------------+--------+-------+-------+-------+-- -** ^^ ^^--- bits used for C type conversion dispatch -*/ - -/* C type info flags. TFFArrrr */ -#define CTF_BOOL 0x08000000u /* Boolean: NUM, BITFIELD. */ -#define CTF_FP 0x04000000u /* Floating-point: NUM. */ -#define CTF_CONST 0x02000000u /* Const qualifier. */ -#define CTF_VOLATILE 0x01000000u /* Volatile qualifier. */ -#define CTF_UNSIGNED 0x00800000u /* Unsigned: NUM, BITFIELD. */ -#define CTF_LONG 0x00400000u /* Long: NUM. */ -#define CTF_VLA 0x00100000u /* Variable-length: ARRAY, STRUCT. */ -#define CTF_REF 0x00800000u /* Reference: PTR. */ -#define CTF_VECTOR 0x08000000u /* Vector: ARRAY. */ -#define CTF_COMPLEX 0x04000000u /* Complex: ARRAY. */ -#define CTF_UNION 0x00800000u /* Union: STRUCT. */ -#define CTF_VARARG 0x00800000u /* Vararg: FUNC. */ -#define CTF_SSEREGPARM 0x00400000u /* SSE register parameters: FUNC. */ - -#define CTF_QUAL (CTF_CONST|CTF_VOLATILE) -#define CTF_ALIGN (CTMASK_ALIGN< 0 ? CTF_UNSIGNED : 0) - -/* Flags used in parser. .F.Ammvf cp->attr */ -#define CTFP_ALIGNED 0x00000001u /* cp->attr + ALIGN */ -#define CTFP_PACKED 0x00000002u /* cp->attr */ -/* ...C...f cp->fattr */ -#define CTFP_CCONV 0x00000001u /* cp->fattr + CCONV/[SSE]REGPARM */ - -/* C type info bitfields. */ -#define CTMASK_CID 0x0000ffffu /* Max. 65536 type IDs. */ -#define CTMASK_NUM 0xf0000000u /* Max. 16 type numbers. */ -#define CTSHIFT_NUM 28 -#define CTMASK_ALIGN 15 /* Max. alignment is 2^15. */ -#define CTSHIFT_ALIGN 16 -#define CTMASK_ATTRIB 255 /* Max. 256 attributes. */ -#define CTSHIFT_ATTRIB 16 -#define CTMASK_CCONV 3 /* Max. 4 calling conventions. */ -#define CTSHIFT_CCONV 16 -#define CTMASK_REGPARM 3 /* Max. 0-3 regparms. */ -#define CTSHIFT_REGPARM 18 -/* Bitfields only used in parser. */ -#define CTMASK_VSIZEP 15 /* Max. vector size is 2^15. */ -#define CTSHIFT_VSIZEP 4 -#define CTMASK_MSIZEP 255 /* Max. type size (via mode) is 128. */ -#define CTSHIFT_MSIZEP 8 - -/* Info bits for BITFIELD. Max. size of bitfield is 64 bits. */ -#define CTBSZ_MAX 32 /* Max. size of bitfield is 32 bit. */ -#define CTBSZ_FIELD 127 /* Temp. marker for regular field. */ -#define CTMASK_BITPOS 127 -#define CTMASK_BITBSZ 127 -#define CTMASK_BITCSZ 127 -#define CTSHIFT_BITPOS 0 -#define CTSHIFT_BITBSZ 8 -#define CTSHIFT_BITCSZ 16 - -#define CTF_INSERT(info, field, val) \ - info = (info & ~(CTMASK_##field<> CTSHIFT_NUM) -#define ctype_cid(info) ((CTypeID)((info) & CTMASK_CID)) -#define ctype_align(info) (((info) >> CTSHIFT_ALIGN) & CTMASK_ALIGN) -#define ctype_attrib(info) (((info) >> CTSHIFT_ATTRIB) & CTMASK_ATTRIB) -#define ctype_bitpos(info) (((info) >> CTSHIFT_BITPOS) & CTMASK_BITPOS) -#define ctype_bitbsz(info) (((info) >> CTSHIFT_BITBSZ) & CTMASK_BITBSZ) -#define ctype_bitcsz(info) (((info) >> CTSHIFT_BITCSZ) & CTMASK_BITCSZ) -#define ctype_vsizeP(info) (((info) >> CTSHIFT_VSIZEP) & CTMASK_VSIZEP) -#define ctype_msizeP(info) (((info) >> CTSHIFT_MSIZEP) & CTMASK_MSIZEP) -#define ctype_cconv(info) (((info) >> CTSHIFT_CCONV) & CTMASK_CCONV) - -/* Simple type checks. */ -#define ctype_isnum(info) (ctype_type((info)) == CT_NUM) -#define ctype_isvoid(info) (ctype_type((info)) == CT_VOID) -#define ctype_isptr(info) (ctype_type((info)) == CT_PTR) -#define ctype_isarray(info) (ctype_type((info)) == CT_ARRAY) -#define ctype_isstruct(info) (ctype_type((info)) == CT_STRUCT) -#define ctype_isfunc(info) (ctype_type((info)) == CT_FUNC) -#define ctype_isenum(info) (ctype_type((info)) == CT_ENUM) -#define ctype_istypedef(info) (ctype_type((info)) == CT_TYPEDEF) -#define ctype_isattrib(info) (ctype_type((info)) == CT_ATTRIB) -#define ctype_isfield(info) (ctype_type((info)) == CT_FIELD) -#define ctype_isbitfield(info) (ctype_type((info)) == CT_BITFIELD) -#define ctype_isconstval(info) (ctype_type((info)) == CT_CONSTVAL) -#define ctype_isextern(info) (ctype_type((info)) == CT_EXTERN) -#define ctype_hassize(info) (ctype_type((info)) <= CT_HASSIZE) - -/* Combined type and flag checks. */ -#define ctype_isinteger(info) \ - (((info) & (CTMASK_NUM|CTF_BOOL|CTF_FP)) == CTINFO(CT_NUM, 0)) -#define ctype_isinteger_or_bool(info) \ - (((info) & (CTMASK_NUM|CTF_FP)) == CTINFO(CT_NUM, 0)) -#define ctype_isbool(info) \ - (((info) & (CTMASK_NUM|CTF_BOOL)) == CTINFO(CT_NUM, CTF_BOOL)) -#define ctype_isfp(info) \ - (((info) & (CTMASK_NUM|CTF_FP)) == CTINFO(CT_NUM, CTF_FP)) - -#define ctype_ispointer(info) \ - ((ctype_type(info) >> 1) == (CT_PTR >> 1)) /* Pointer or array. */ -#define ctype_isref(info) \ - (((info) & (CTMASK_NUM|CTF_REF)) == CTINFO(CT_PTR, CTF_REF)) - -#define ctype_isrefarray(info) \ - (((info) & (CTMASK_NUM|CTF_VECTOR|CTF_COMPLEX)) == CTINFO(CT_ARRAY, 0)) -#define ctype_isvector(info) \ - (((info) & (CTMASK_NUM|CTF_VECTOR)) == CTINFO(CT_ARRAY, CTF_VECTOR)) -#define ctype_iscomplex(info) \ - (((info) & (CTMASK_NUM|CTF_COMPLEX)) == CTINFO(CT_ARRAY, CTF_COMPLEX)) - -#define ctype_isvltype(info) \ - (((info) & ((CTMASK_NUM|CTF_VLA) - (2u<") _(STRING, "") \ - _(INTEGER, "") _(EOF, "") \ - _(OROR, "||") _(ANDAND, "&&") _(EQ, "==") _(NE, "!=") \ - _(LE, "<=") _(GE, ">=") _(SHL, "<<") _(SHR, ">>") _(DEREF, "->") - -/* Simple declaration specifiers. */ -#define CDSDEF(_) \ - _(VOID) _(BOOL) _(CHAR) _(INT) _(FP) \ - _(LONG) _(LONGLONG) _(SHORT) _(COMPLEX) _(SIGNED) _(UNSIGNED) \ - _(CONST) _(VOLATILE) _(RESTRICT) _(INLINE) \ - _(TYPEDEF) _(EXTERN) _(STATIC) _(AUTO) _(REGISTER) - -/* C keywords. */ -#define CKWDEF(_) \ - CDSDEF(_) _(EXTENSION) _(ASM) _(ATTRIBUTE) \ - _(DECLSPEC) _(CCDECL) _(PTRSZ) \ - _(STRUCT) _(UNION) _(ENUM) \ - _(SIZEOF) _(ALIGNOF) - -/* C token numbers. */ -enum { - CTOK_OFS = 255, -#define CTOKNUM(name, sym) CTOK_##name, -#define CKWNUM(name) CTOK_##name, -CTOKDEF(CTOKNUM) -CKWDEF(CKWNUM) -#undef CTOKNUM -#undef CKWNUM - CTOK_FIRSTDECL = CTOK_VOID, - CTOK_FIRSTSCL = CTOK_TYPEDEF, - CTOK_LASTDECLFLAG = CTOK_REGISTER, - CTOK_LASTDECL = CTOK_ENUM -}; - -/* Declaration specifier flags. */ -enum { -#define CDSFLAG(name) CDF_##name = (1u << (CTOK_##name - CTOK_FIRSTDECL)), -CDSDEF(CDSFLAG) -#undef CDSFLAG - CDF__END -}; - -#define CDF_SCL (CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC|CDF_AUTO|CDF_REGISTER) - -/* -- C type management --------------------------------------------------- */ - -#define ctype_ctsG(g) (mref((g)->ctype_state, CTState)) - -/* Get C type state. */ -static LJ_AINLINE CTState *ctype_cts(lua_State *L) -{ - CTState *cts = ctype_ctsG(G(L)); - cts->L = L; /* Save L for errors and allocations. */ - return cts; -} - -/* Save and restore state of C type table. */ -#define LJ_CTYPE_SAVE(cts) CTState savects_ = *(cts) -#define LJ_CTYPE_RESTORE(cts) \ - ((cts)->top = savects_.top, \ - memcpy((cts)->hash, savects_.hash, sizeof(savects_.hash))) - -/* Check C type ID for validity when assertions are enabled. */ -static LJ_AINLINE CTypeID ctype_check(CTState *cts, CTypeID id) -{ - lua_assert(id > 0 && id < cts->top); UNUSED(cts); - return id; -} - -/* Get C type for C type ID. */ -static LJ_AINLINE CType *ctype_get(CTState *cts, CTypeID id) -{ - return &cts->tab[ctype_check(cts, id)]; -} - -/* Get C type ID for a C type. */ -#define ctype_typeid(cts, ct) ((CTypeID)((ct) - (cts)->tab)) - -/* Get child C type. */ -static LJ_AINLINE CType *ctype_child(CTState *cts, CType *ct) -{ - lua_assert(!(ctype_isvoid(ct->info) || ctype_isstruct(ct->info) || - ctype_isbitfield(ct->info))); /* These don't have children. */ - return ctype_get(cts, ctype_cid(ct->info)); -} - -/* Get raw type for a C type ID. */ -static LJ_AINLINE CType *ctype_raw(CTState *cts, CTypeID id) -{ - CType *ct = ctype_get(cts, id); - while (ctype_isattrib(ct->info)) ct = ctype_child(cts, ct); - return ct; -} - -/* Get raw type of the child of a C type. */ -static LJ_AINLINE CType *ctype_rawchild(CTState *cts, CType *ct) -{ - do { ct = ctype_child(cts, ct); } while (ctype_isattrib(ct->info)); - return ct; -} - -/* Set the name of a C type table element. */ -static LJ_AINLINE void ctype_setname(CType *ct, GCstr *s) -{ - /* NOBARRIER: mark string as fixed -- the C type table is never collected. */ - fixstring(s); - setgcref(ct->name, obj2gco(s)); -} - -LJ_FUNC CTypeID lj_ctype_new(CTState *cts, CType **ctp); -LJ_FUNC CTypeID lj_ctype_intern(CTState *cts, CTInfo info, CTSize size); -LJ_FUNC void lj_ctype_addname(CTState *cts, CType *ct, CTypeID id); -LJ_FUNC CTypeID lj_ctype_getname(CTState *cts, CType **ctp, GCstr *name, - uint32_t tmask); -LJ_FUNC CType *lj_ctype_getfieldq(CTState *cts, CType *ct, GCstr *name, - CTSize *ofs, CTInfo *qual); -#define lj_ctype_getfield(cts, ct, name, ofs) \ - lj_ctype_getfieldq((cts), (ct), (name), (ofs), NULL) -LJ_FUNC CType *lj_ctype_rawref(CTState *cts, CTypeID id); -LJ_FUNC CTSize lj_ctype_size(CTState *cts, CTypeID id); -LJ_FUNC CTSize lj_ctype_vlsize(CTState *cts, CType *ct, CTSize nelem); -LJ_FUNC CTInfo lj_ctype_info(CTState *cts, CTypeID id, CTSize *szp); -LJ_FUNC cTValue *lj_ctype_meta(CTState *cts, CTypeID id, MMS mm); -LJ_FUNC GCstr *lj_ctype_repr(lua_State *L, CTypeID id, GCstr *name); -LJ_FUNC GCstr *lj_ctype_repr_int64(lua_State *L, uint64_t n, int isunsigned); -LJ_FUNC GCstr *lj_ctype_repr_complex(lua_State *L, void *sp, CTSize size); -LJ_FUNC CTState *lj_ctype_init(lua_State *L); -LJ_FUNC void lj_ctype_freestate(global_State *g); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_debug.c b/src/3rd party/luajit-2.0-BAK/src/lj_debug.c deleted file mode 100644 index 3226d03b9e1..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_debug.c +++ /dev/null @@ -1,699 +0,0 @@ -/* -** Debugging and introspection. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_debug_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_buf.h" -#include "lj_tab.h" -#include "lj_state.h" -#include "lj_frame.h" -#include "lj_bc.h" -#include "lj_strfmt.h" -#if LJ_HASJIT -#include "lj_jit.h" -#endif - -/* -- Frames -------------------------------------------------------------- */ - -/* Get frame corresponding to a level. */ -cTValue *lj_debug_frame(lua_State *L, int level, int *size) -{ - cTValue *frame, *nextframe, *bot = tvref(L->stack)+LJ_FR2; - /* Traverse frames backwards. */ - for (nextframe = frame = L->base-1; frame > bot; ) { - if (frame_gc(frame) == obj2gco(L)) - level++; /* Skip dummy frames. See lj_err_optype_call(). */ - if (level-- == 0) { - *size = (int)(nextframe - frame); - return frame; /* Level found. */ - } - nextframe = frame; - if (frame_islua(frame)) { - frame = frame_prevl(frame); - } else { - if (frame_isvarg(frame)) - level++; /* Skip vararg pseudo-frame. */ - frame = frame_prevd(frame); - } - } - *size = level; - return NULL; /* Level not found. */ -} - -/* Invalid bytecode position. */ -#define NO_BCPOS (~(BCPos)0) - -/* Return bytecode position for function/frame or NO_BCPOS. */ -static BCPos debug_framepc(lua_State *L, GCfunc *fn, cTValue *nextframe) -{ - const BCIns *ins; - GCproto *pt; - BCPos pos; - lua_assert(fn->c.gct == ~LJ_TFUNC || fn->c.gct == ~LJ_TTHREAD); - if (!isluafunc(fn)) { /* Cannot derive a PC for non-Lua functions. */ - return NO_BCPOS; - } else if (nextframe == NULL) { /* Lua function on top. */ - void *cf = cframe_raw(L->cframe); - if (cf == NULL || (char *)cframe_pc(cf) == (char *)cframe_L(cf)) - return NO_BCPOS; - ins = cframe_pc(cf); /* Only happens during error/hook handling. */ - } else { - if (frame_islua(nextframe)) { - ins = frame_pc(nextframe); - } else if (frame_iscont(nextframe)) { - ins = frame_contpc(nextframe); - } else { - /* Lua function below errfunc/gc/hook: find cframe to get the PC. */ - void *cf = cframe_raw(L->cframe); - TValue *f = L->base-1; - for (;;) { - if (cf == NULL) - return NO_BCPOS; - while (cframe_nres(cf) < 0) { - if (f >= restorestack(L, -cframe_nres(cf))) - break; - cf = cframe_raw(cframe_prev(cf)); - if (cf == NULL) - return NO_BCPOS; - } - if (f < nextframe) - break; - if (frame_islua(f)) { - f = frame_prevl(f); - } else { - if (frame_isc(f) || (frame_iscont(f) && frame_iscont_fficb(f))) - cf = cframe_raw(cframe_prev(cf)); - f = frame_prevd(f); - } - } - ins = cframe_pc(cf); - } - } - pt = funcproto(fn); - pos = proto_bcpos(pt, ins) - 1; -#if LJ_HASJIT - if (pos > pt->sizebc) { /* Undo the effects of lj_trace_exit for JLOOP. */ - GCtrace *T = (GCtrace *)((char *)(ins-1) - offsetof(GCtrace, startins)); - lua_assert(bc_isret(bc_op(ins[-1]))); - pos = proto_bcpos(pt, mref(T->startpc, const BCIns)); - } -#endif - return pos; -} - -/* -- Line numbers -------------------------------------------------------- */ - -/* Get line number for a bytecode position. */ -BCLine LJ_FASTCALL lj_debug_line(GCproto *pt, BCPos pc) -{ - const void *lineinfo = proto_lineinfo(pt); - if (pc <= pt->sizebc && lineinfo) { - BCLine first = pt->firstline; - if (pc == pt->sizebc) return first + pt->numline; - if (pc-- == 0) return first; - if (pt->numline < 256) - return first + (BCLine)((const uint8_t *)lineinfo)[pc]; - else if (pt->numline < 65536) - return first + (BCLine)((const uint16_t *)lineinfo)[pc]; - else - return first + (BCLine)((const uint32_t *)lineinfo)[pc]; - } - return 0; -} - -/* Get line number for function/frame. */ -static BCLine debug_frameline(lua_State *L, GCfunc *fn, cTValue *nextframe) -{ - BCPos pc = debug_framepc(L, fn, nextframe); - if (pc != NO_BCPOS) { - GCproto *pt = funcproto(fn); - lua_assert(pc <= pt->sizebc); - return lj_debug_line(pt, pc); - } - return -1; -} - -/* -- Variable names ------------------------------------------------------ */ - -/* Get name of a local variable from slot number and PC. */ -static const char *debug_varname(const GCproto *pt, BCPos pc, BCReg slot) -{ - const char *p = (const char *)proto_varinfo(pt); - if (p) { - BCPos lastpc = 0; - for (;;) { - const char *name = p; - uint32_t vn = *(const uint8_t *)p; - BCPos startpc, endpc; - if (vn < VARNAME__MAX) { - if (vn == VARNAME_END) break; /* End of varinfo. */ - } else { - do { p++; } while (*(const uint8_t *)p); /* Skip over variable name. */ - } - p++; - lastpc = startpc = lastpc + lj_buf_ruleb128(&p); - if (startpc > pc) break; - endpc = startpc + lj_buf_ruleb128(&p); - if (pc < endpc && slot-- == 0) { - if (vn < VARNAME__MAX) { -#define VARNAMESTR(name, str) str "\0" - name = VARNAMEDEF(VARNAMESTR); -#undef VARNAMESTR - if (--vn) while (*name++ || --vn) ; - } - return name; - } - } - } - return NULL; -} - -/* Get name of local variable from 1-based slot number and function/frame. */ -static TValue *debug_localname(lua_State *L, const lua_Debug *ar, - const char **name, BCReg slot1) -{ - uint32_t offset = (uint32_t)ar->i_ci & 0xffff; - uint32_t size = (uint32_t)ar->i_ci >> 16; - TValue *frame = tvref(L->stack) + offset; - TValue *nextframe = size ? frame + size : NULL; - GCfunc *fn = frame_func(frame); - BCPos pc = debug_framepc(L, fn, nextframe); - if (!nextframe) nextframe = L->top+LJ_FR2; - if ((int)slot1 < 0) { /* Negative slot number is for varargs. */ - if (pc != NO_BCPOS) { - GCproto *pt = funcproto(fn); - if ((pt->flags & PROTO_VARARG)) { - slot1 = pt->numparams + (BCReg)(-(int)slot1); - if (frame_isvarg(frame)) { /* Vararg frame has been set up? (pc!=0) */ - nextframe = frame; - frame = frame_prevd(frame); - } - if (frame + slot1+LJ_FR2 < nextframe) { - *name = "(*vararg)"; - return frame+slot1; - } - } - } - return NULL; - } - if (pc != NO_BCPOS && - (*name = debug_varname(funcproto(fn), pc, slot1-1)) != NULL) - ; - else if (slot1 > 0 && frame + slot1+LJ_FR2 < nextframe) - *name = "(*temporary)"; - return frame+slot1; -} - -/* Get name of upvalue. */ -const char *lj_debug_uvname(GCproto *pt, uint32_t idx) -{ - const uint8_t *p = proto_uvinfo(pt); - lua_assert(idx < pt->sizeuv); - if (!p) return ""; - if (idx) while (*p++ || --idx) ; - return (const char *)p; -} - -/* Get name and value of upvalue. */ -const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp) -{ - if (tvisfunc(o)) { - GCfunc *fn = funcV(o); - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - if (idx < pt->sizeuv) { - *tvp = uvval(&gcref(fn->l.uvptr[idx])->uv); - return lj_debug_uvname(pt, idx); - } - } else { - if (idx < fn->c.nupvalues) { - *tvp = &fn->c.upvalue[idx]; - return ""; - } - } - } - return NULL; -} - -/* Deduce name of an object from slot number and PC. */ -const char *lj_debug_slotname(GCproto *pt, const BCIns *ip, BCReg slot, - const char **name) -{ - const char *lname; -restart: - lname = debug_varname(pt, proto_bcpos(pt, ip), slot); - if (lname != NULL) { *name = lname; return "local"; } - while (--ip > proto_bc(pt)) { - BCIns ins = *ip; - BCOp op = bc_op(ins); - BCReg ra = bc_a(ins); - if (bcmode_a(op) == BCMbase) { - if (slot >= ra && (op != BC_KNIL || slot <= bc_d(ins))) - return NULL; - } else if (bcmode_a(op) == BCMdst && ra == slot) { - switch (bc_op(ins)) { - case BC_MOV: - if (ra == slot) { slot = bc_d(ins); goto restart; } - break; - case BC_GGET: - *name = strdata(gco2str(proto_kgc(pt, ~(ptrdiff_t)bc_d(ins)))); - return "global"; - case BC_TGETS: - *name = strdata(gco2str(proto_kgc(pt, ~(ptrdiff_t)bc_c(ins)))); - if (ip > proto_bc(pt)) { - BCIns insp = ip[-1]; - if (bc_op(insp) == BC_MOV && bc_a(insp) == ra+1+LJ_FR2 && - bc_d(insp) == bc_b(ins)) - return "method"; - } - return "field"; - case BC_UGET: - *name = lj_debug_uvname(pt, bc_d(ins)); - return "upvalue"; - default: - return NULL; - } - } - } - return NULL; -} - -/* Deduce function name from caller of a frame. */ -const char *lj_debug_funcname(lua_State *L, cTValue *frame, const char **name) -{ - cTValue *pframe; - GCfunc *fn; - BCPos pc; - if (frame <= tvref(L->stack)+LJ_FR2) - return NULL; - if (frame_isvarg(frame)) - frame = frame_prevd(frame); - pframe = frame_prev(frame); - fn = frame_func(pframe); - pc = debug_framepc(L, fn, frame); - if (pc != NO_BCPOS) { - GCproto *pt = funcproto(fn); - const BCIns *ip = &proto_bc(pt)[check_exp(pc < pt->sizebc, pc)]; - MMS mm = bcmode_mm(bc_op(*ip)); - if (mm == MM_call) { - BCReg slot = bc_a(*ip); - if (bc_op(*ip) == BC_ITERC) slot -= 3; - return lj_debug_slotname(pt, ip, slot, name); - } else if (mm != MM__MAX) { - *name = strdata(mmname_str(G(L), mm)); - return "metamethod"; - } - } - return NULL; -} - -/* -- Source code locations ----------------------------------------------- */ - -/* Generate shortened source name. */ -void lj_debug_shortname(char *out, GCstr *str, BCLine line) -{ - const char *src = strdata(str); - if (*src == '=') { - strncpy(out, src+1, LUA_IDSIZE); /* Remove first char. */ - out[LUA_IDSIZE-1] = '\0'; /* Ensures null termination. */ - } else if (*src == '@') { /* Output "source", or "...source". */ - size_t len = str->len-1; - src++; /* Skip the `@' */ - if (len >= LUA_IDSIZE) { - src += len-(LUA_IDSIZE-4); /* Get last part of file name. */ - *out++ = '.'; *out++ = '.'; *out++ = '.'; - } - strcpy(out, src); - } else { /* Output [string "string"] or [builtin:name]. */ - size_t len; /* Length, up to first control char. */ - for (len = 0; len < LUA_IDSIZE-12; len++) - if (((const unsigned char *)src)[len] < ' ') break; - strcpy(out, line == ~(BCLine)0 ? "[builtin:" : "[string \""); out += 9; - if (src[len] != '\0') { /* Must truncate? */ - if (len > LUA_IDSIZE-15) len = LUA_IDSIZE-15; - strncpy(out, src, len); out += len; - strcpy(out, "..."); out += 3; - } else { - strcpy(out, src); out += len; - } - strcpy(out, line == ~(BCLine)0 ? "]" : "\"]"); - } -} - -/* Add current location of a frame to error message. */ -void lj_debug_addloc(lua_State *L, const char *msg, - cTValue *frame, cTValue *nextframe) -{ - if (frame) { - GCfunc *fn = frame_func(frame); - if (isluafunc(fn)) { - BCLine line = debug_frameline(L, fn, nextframe); - if (line >= 0) { - GCproto *pt = funcproto(fn); - char buf[LUA_IDSIZE]; - lj_debug_shortname(buf, proto_chunkname(pt), pt->firstline); - lj_strfmt_pushf(L, "%s:%d: %s", buf, line, msg); - return; - } - } - } - lj_strfmt_pushf(L, "%s", msg); -} - -/* Push location string for a bytecode position to Lua stack. */ -void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc) -{ - GCstr *name = proto_chunkname(pt); - const char *s = strdata(name); - MSize i, len = name->len; - BCLine line = lj_debug_line(pt, pc); - if (pt->firstline == ~(BCLine)0) { - lj_strfmt_pushf(L, "builtin:%s", s); - } else if (*s == '@') { - s++; len--; - for (i = len; i > 0; i--) - if (s[i] == '/' || s[i] == '\\') { - s += i+1; - break; - } - lj_strfmt_pushf(L, "%s:%d", s, line); - } else if (len > 40) { - lj_strfmt_pushf(L, "%p:%d", pt, line); - } else if (*s == '=') { - lj_strfmt_pushf(L, "%s:%d", s+1, line); - } else { - lj_strfmt_pushf(L, "\"%s\":%d", s, line); - } -} - -/* -- Public debug API ---------------------------------------------------- */ - -/* lua_getupvalue() and lua_setupvalue() are in lj_api.c. */ - -LUA_API const char *lua_getlocal(lua_State *L, const lua_Debug *ar, int n) -{ - const char *name = NULL; - if (ar) { - TValue *o = debug_localname(L, ar, &name, (BCReg)n); - if (name) { - copyTV(L, L->top, o); - incr_top(L); - } - } else if (tvisfunc(L->top-1) && isluafunc(funcV(L->top-1))) { - name = debug_varname(funcproto(funcV(L->top-1)), 0, (BCReg)n-1); - } - return name; -} - -LUA_API const char *lua_setlocal(lua_State *L, const lua_Debug *ar, int n) -{ - const char *name = NULL; - TValue *o = debug_localname(L, ar, &name, (BCReg)n); - if (name) - copyTV(L, o, L->top-1); - L->top--; - return name; -} - -int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, int ext) -{ - int opt_f = 0, opt_L = 0; - TValue *frame = NULL; - TValue *nextframe = NULL; - GCfunc *fn; - if (*what == '>') { - TValue *func = L->top - 1; - api_check(L, tvisfunc(func)); - fn = funcV(func); - L->top--; - what++; - } else { - uint32_t offset = (uint32_t)ar->i_ci & 0xffff; - uint32_t size = (uint32_t)ar->i_ci >> 16; - lua_assert(offset != 0); - frame = tvref(L->stack) + offset; - if (size) nextframe = frame + size; - lua_assert(frame <= tvref(L->maxstack) && - (!nextframe || nextframe <= tvref(L->maxstack))); - fn = frame_func(frame); - lua_assert(fn->c.gct == ~LJ_TFUNC); - } - for (; *what; what++) { - if (*what == 'S') { - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - BCLine firstline = pt->firstline; - GCstr *name = proto_chunkname(pt); - ar->source = strdata(name); - lj_debug_shortname(ar->short_src, name, pt->firstline); - ar->linedefined = (int)firstline; - ar->lastlinedefined = (int)(firstline + pt->numline); - ar->what = (firstline || !pt->numline) ? "Lua" : "main"; - } else { - ar->source = "=[C]"; - ar->short_src[0] = '['; - ar->short_src[1] = 'C'; - ar->short_src[2] = ']'; - ar->short_src[3] = '\0'; - ar->linedefined = -1; - ar->lastlinedefined = -1; - ar->what = "C"; - } - } else if (*what == 'l') { - ar->currentline = frame ? debug_frameline(L, fn, nextframe) : -1; - } else if (*what == 'u') { - ar->nups = fn->c.nupvalues; - if (ext) { - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - ar->nparams = pt->numparams; - ar->isvararg = !!(pt->flags & PROTO_VARARG); - } else { - ar->nparams = 0; - ar->isvararg = 1; - } - } - } else if (*what == 'n') { - ar->namewhat = frame ? lj_debug_funcname(L, frame, &ar->name) : NULL; - if (ar->namewhat == NULL) { - ar->namewhat = ""; - ar->name = NULL; - } - } else if (*what == 'f') { - opt_f = 1; - } else if (*what == 'L') { - opt_L = 1; - } else { - return 0; /* Bad option. */ - } - } - if (opt_f) { - setfuncV(L, L->top, fn); - incr_top(L); - } - if (opt_L) { - if (isluafunc(fn)) { - GCtab *t = lj_tab_new(L, 0, 0); - GCproto *pt = funcproto(fn); - const void *lineinfo = proto_lineinfo(pt); - if (lineinfo) { - BCLine first = pt->firstline; - int sz = pt->numline < 256 ? 1 : pt->numline < 65536 ? 2 : 4; - MSize i, szl = pt->sizebc-1; - for (i = 0; i < szl; i++) { - BCLine line = first + - (sz == 1 ? (BCLine)((const uint8_t *)lineinfo)[i] : - sz == 2 ? (BCLine)((const uint16_t *)lineinfo)[i] : - (BCLine)((const uint32_t *)lineinfo)[i]); - setboolV(lj_tab_setint(L, t, line), 1); - } - } - settabV(L, L->top, t); - } else { - setnilV(L->top); - } - incr_top(L); - } - return 1; /* Ok. */ -} - -LUA_API int lua_getinfo(lua_State *L, const char *what, lua_Debug *ar) -{ - return lj_debug_getinfo(L, what, (lj_Debug *)ar, 0); -} - -LUA_API int lua_getstack(lua_State *L, int level, lua_Debug *ar) -{ - int size; - cTValue *frame = lj_debug_frame(L, level, &size); - if (frame) { - ar->i_ci = (size << 16) + (int)(frame - tvref(L->stack)); - return 1; - } else { - ar->i_ci = level - size; - return 0; - } -} - -#if LJ_HASPROFILE -/* Put the chunkname into a buffer. */ -static int debug_putchunkname(SBuf *sb, GCproto *pt, int pathstrip) -{ - GCstr *name = proto_chunkname(pt); - const char *p = strdata(name); - if (pt->firstline == ~(BCLine)0) { - lj_buf_putmem(sb, "[builtin:", 9); - lj_buf_putstr(sb, name); - lj_buf_putb(sb, ']'); - return 0; - } - if (*p == '=' || *p == '@') { - MSize len = name->len-1; - p++; - if (pathstrip) { - int i; - for (i = len-1; i >= 0; i--) - if (p[i] == '/' || p[i] == '\\') { - len -= i+1; - p = p+i+1; - break; - } - } - lj_buf_putmem(sb, p, len); - } else { - lj_buf_putmem(sb, "[string]", 8); - } - return 1; -} - -/* Put a compact stack dump into a buffer. */ -void lj_debug_dumpstack(lua_State *L, SBuf *sb, const char *fmt, int depth) -{ - int level = 0, dir = 1, pathstrip = 1; - MSize lastlen = 0; - if (depth < 0) { level = ~depth; depth = dir = -1; } /* Reverse frames. */ - while (level != depth) { /* Loop through all frame. */ - int size; - cTValue *frame = lj_debug_frame(L, level, &size); - if (frame) { - cTValue *nextframe = size ? frame+size : NULL; - GCfunc *fn = frame_func(frame); - const uint8_t *p = (const uint8_t *)fmt; - int c; - while ((c = *p++)) { - switch (c) { - case 'p': /* Preserve full path. */ - pathstrip = 0; - break; - case 'F': case 'f': { /* Dump function name. */ - const char *name; - const char *what = lj_debug_funcname(L, frame, &name); - if (what) { - if (c == 'F' && isluafunc(fn)) { /* Dump module:name for 'F'. */ - GCproto *pt = funcproto(fn); - if (pt->firstline != ~(BCLine)0) { /* Not a bytecode builtin. */ - debug_putchunkname(sb, pt, pathstrip); - lj_buf_putb(sb, ':'); - } - } - lj_buf_putmem(sb, name, (MSize)strlen(name)); - break; - } /* else: can't derive a name, dump module:line. */ - } - /* fallthrough */ - case 'l': /* Dump module:line. */ - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - if (debug_putchunkname(sb, pt, pathstrip)) { - /* Regular Lua function. */ - BCLine line = c == 'l' ? debug_frameline(L, fn, nextframe) : - pt->firstline; - lj_buf_putb(sb, ':'); - lj_strfmt_putint(sb, line >= 0 ? line : pt->firstline); - } - } else if (isffunc(fn)) { /* Dump numbered builtins. */ - lj_buf_putmem(sb, "[builtin#", 9); - lj_strfmt_putint(sb, fn->c.ffid); - lj_buf_putb(sb, ']'); - } else { /* Dump C function address. */ - lj_buf_putb(sb, '@'); - lj_strfmt_putptr(sb, fn->c.f); - } - break; - case 'Z': /* Zap trailing separator. */ - lastlen = sbuflen(sb); - break; - default: - lj_buf_putb(sb, c); - break; - } - } - } else if (dir == 1) { - break; - } else { - level -= size; /* Reverse frame order: quickly skip missing level. */ - } - level += dir; - } - if (lastlen) - setsbufP(sb, sbufB(sb) + lastlen); /* Zap trailing separator. */ -} -#endif - -/* Number of frames for the leading and trailing part of a traceback. */ -#define TRACEBACK_LEVELS1 12 -#define TRACEBACK_LEVELS2 10 - -LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, - int level) -{ - int top = (int)(L->top - L->base); - int lim = TRACEBACK_LEVELS1; - lua_Debug ar; - if (msg) lua_pushfstring(L, "%s\n", msg); - lua_pushliteral(L, "stack traceback:"); - while (lua_getstack(L1, level++, &ar)) { - GCfunc *fn; - if (level > lim) { - if (!lua_getstack(L1, level + TRACEBACK_LEVELS2, &ar)) { - level--; - } else { - lua_pushliteral(L, "\n\t..."); - lua_getstack(L1, -10, &ar); - level = ar.i_ci - TRACEBACK_LEVELS2; - } - lim = 2147483647; - continue; - } - lua_getinfo(L1, "Snlf", &ar); - fn = funcV(L1->top-1); L1->top--; - if (isffunc(fn) && !*ar.namewhat) - lua_pushfstring(L, "\n\t[builtin#%d]:", fn->c.ffid); - else - lua_pushfstring(L, "\n\t%s:", ar.short_src); - if (ar.currentline > 0) - lua_pushfstring(L, "%d:", ar.currentline); - if (*ar.namewhat) { - lua_pushfstring(L, " in function " LUA_QS, ar.name); - } else { - if (*ar.what == 'm') { - lua_pushliteral(L, " in main chunk"); - } else if (*ar.what == 'C') { - lua_pushfstring(L, " at %p", fn->c.f); - } else { - lua_pushfstring(L, " in function <%s:%d>", - ar.short_src, ar.linedefined); - } - } - if ((int)(L->top - L->base) - top >= 15) - lua_concat(L, (int)(L->top - L->base) - top); - } - lua_concat(L, (int)(L->top - L->base) - top); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_debug.h b/src/3rd party/luajit-2.0-BAK/src/lj_debug.h deleted file mode 100644 index 11d308a41b3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_debug.h +++ /dev/null @@ -1,65 +0,0 @@ -/* -** Debugging and introspection. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_DEBUG_H -#define _LJ_DEBUG_H - -#include "lj_obj.h" - -typedef struct lj_Debug { - /* Common fields. Must be in the same order as in lua.h. */ - int event; - const char *name; - const char *namewhat; - const char *what; - const char *source; - int currentline; - int nups; - int linedefined; - int lastlinedefined; - char short_src[LUA_IDSIZE]; - int i_ci; - /* Extended fields. Only valid if lj_debug_getinfo() is called with ext = 1.*/ - int nparams; - int isvararg; -} lj_Debug; - -LJ_FUNC cTValue *lj_debug_frame(lua_State *L, int level, int *size); -LJ_FUNC BCLine LJ_FASTCALL lj_debug_line(GCproto *pt, BCPos pc); -LJ_FUNC const char *lj_debug_uvname(GCproto *pt, uint32_t idx); -LJ_FUNC const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp); -LJ_FUNC const char *lj_debug_slotname(GCproto *pt, const BCIns *pc, - BCReg slot, const char **name); -LJ_FUNC const char *lj_debug_funcname(lua_State *L, cTValue *frame, - const char **name); -LJ_FUNC void lj_debug_shortname(char *out, GCstr *str, BCLine line); -LJ_FUNC void lj_debug_addloc(lua_State *L, const char *msg, - cTValue *frame, cTValue *nextframe); -LJ_FUNC void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc); -LJ_FUNC int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, - int ext); -#if LJ_HASPROFILE -LJ_FUNC void lj_debug_dumpstack(lua_State *L, SBuf *sb, const char *fmt, - int depth); -#endif - -/* Fixed internal variable names. */ -#define VARNAMEDEF(_) \ - _(FOR_IDX, "(for index)") \ - _(FOR_STOP, "(for limit)") \ - _(FOR_STEP, "(for step)") \ - _(FOR_GEN, "(for generator)") \ - _(FOR_STATE, "(for state)") \ - _(FOR_CTL, "(for control)") - -enum { - VARNAME_END, -#define VARNAMEENUM(name, str) VARNAME_##name, - VARNAMEDEF(VARNAMEENUM) -#undef VARNAMEENUM - VARNAME__MAX -}; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_def.h b/src/3rd party/luajit-2.0-BAK/src/lj_def.h deleted file mode 100644 index c8fe4aa497a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_def.h +++ /dev/null @@ -1,365 +0,0 @@ -/* -** LuaJIT common internal definitions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_DEF_H -#define _LJ_DEF_H - -#include "lua.h" - -#if defined(_MSC_VER) -/* MSVC is stuck in the last century and doesn't have C99's stdint.h. */ -typedef __int8 int8_t; -typedef __int16 int16_t; -typedef __int32 int32_t; -typedef __int64 int64_t; -typedef unsigned __int8 uint8_t; -typedef unsigned __int16 uint16_t; -typedef unsigned __int32 uint32_t; -typedef unsigned __int64 uint64_t; -#ifdef _WIN64 -typedef __int64 intptr_t; -typedef unsigned __int64 uintptr_t; -#else -typedef __int32 intptr_t; -typedef unsigned __int32 uintptr_t; -#endif -#elif defined(__symbian__) -/* Cough. */ -typedef signed char int8_t; -typedef short int int16_t; -typedef int int32_t; -typedef long long int64_t; -typedef unsigned char uint8_t; -typedef unsigned short int uint16_t; -typedef unsigned int uint32_t; -typedef unsigned long long uint64_t; -typedef int intptr_t; -typedef unsigned int uintptr_t; -#else -#include -#endif - -/* Needed everywhere. */ -#include -#include - -/* Various VM limits. */ -#define LJ_MAX_MEM32 0x7fffff00 /* Max. 32 bit memory allocation. */ -#define LJ_MAX_MEM64 ((uint64_t)1<<47) /* Max. 64 bit memory allocation. */ -/* Max. total memory allocation. */ -#define LJ_MAX_MEM (LJ_GC64 ? LJ_MAX_MEM64 : LJ_MAX_MEM32) -#define LJ_MAX_ALLOC LJ_MAX_MEM /* Max. individual allocation length. */ -#define LJ_MAX_STR LJ_MAX_MEM32 /* Max. string length. */ -#define LJ_MAX_BUF LJ_MAX_MEM32 /* Max. buffer length. */ -#define LJ_MAX_UDATA LJ_MAX_MEM32 /* Max. userdata length. */ - -#define LJ_MAX_STRTAB (1<<26) /* Max. string table size. */ -#define LJ_MAX_HBITS 26 /* Max. hash bits. */ -#define LJ_MAX_ABITS 28 /* Max. bits of array key. */ -#define LJ_MAX_ASIZE ((1<<(LJ_MAX_ABITS-1))+1) /* Max. array part size. */ -#define LJ_MAX_COLOSIZE 16 /* Max. elems for colocated array. */ - -#define LJ_MAX_LINE LJ_MAX_MEM32 /* Max. source code line number. */ -#define LJ_MAX_XLEVEL 200 /* Max. syntactic nesting level. */ -#define LJ_MAX_BCINS (1<<26) /* Max. # of bytecode instructions. */ -#define LJ_MAX_SLOTS 250 /* Max. # of slots in a Lua func. */ -#define LJ_MAX_LOCVAR 200 /* Max. # of local variables. */ -#define LJ_MAX_UPVAL 60 /* Max. # of upvalues. */ - -#define LJ_MAX_IDXCHAIN 100 /* __index/__newindex chain limit. */ -#define LJ_STACK_EXTRA (5+2*LJ_FR2) /* Extra stack space (metamethods). */ - -#define LJ_NUM_CBPAGE 1 /* Number of FFI callback pages. */ - -/* Minimum table/buffer sizes. */ -#define LJ_MIN_GLOBAL 6 /* Min. global table size (hbits). */ -#define LJ_MIN_REGISTRY 2 /* Min. registry size (hbits). */ -#define LJ_MIN_STRTAB 256 /* Min. string table size (pow2). */ -#define LJ_MIN_SBUF 32 /* Min. string buffer length. */ -#define LJ_MIN_VECSZ 8 /* Min. size for growable vectors. */ -#define LJ_MIN_IRSZ 32 /* Min. size for growable IR. */ -#define LJ_MIN_K64SZ 16 /* Min. size for chained K64Array. */ - -/* JIT compiler limits. */ -#define LJ_MAX_JSLOTS 250 /* Max. # of stack slots for a trace. */ -#define LJ_MAX_PHI 64 /* Max. # of PHIs for a loop. */ -#define LJ_MAX_EXITSTUBGR 16 /* Max. # of exit stub groups. */ - -/* Various macros. */ -#ifndef UNUSED -#define UNUSED(x) ((void)(x)) /* to avoid warnings */ -#endif - -#define U64x(hi, lo) (((uint64_t)0x##hi << 32) + (uint64_t)0x##lo) -#define i32ptr(p) ((int32_t)(intptr_t)(void *)(p)) -#define u32ptr(p) ((uint32_t)(intptr_t)(void *)(p)) - -#define checki8(x) ((x) == (int32_t)(int8_t)(x)) -#define checku8(x) ((x) == (int32_t)(uint8_t)(x)) -#define checki16(x) ((x) == (int32_t)(int16_t)(x)) -#define checku16(x) ((x) == (int32_t)(uint16_t)(x)) -#define checki32(x) ((x) == (int32_t)(x)) -#define checku32(x) ((x) == (uint32_t)(x)) -#define checkptr32(x) ((uintptr_t)(x) == (uint32_t)(uintptr_t)(x)) -#define checkptr47(x) (((uint64_t)(x) >> 47) == 0) -#if LJ_GC64 -#define checkptrGC(x) (checkptr47((x))) -#elif LJ_64 -#define checkptrGC(x) (checkptr32((x))) -#else -#define checkptrGC(x) 1 -#endif - -/* Every half-decent C compiler transforms this into a rotate instruction. */ -#define lj_rol(x, n) (((x)<<(n)) | ((x)>>(-(int)(n)&(8*sizeof(x)-1)))) -#define lj_ror(x, n) (((x)<<(-(int)(n)&(8*sizeof(x)-1))) | ((x)>>(n))) - -/* A really naive Bloom filter. But sufficient for our needs. */ -typedef uintptr_t BloomFilter; -#define BLOOM_MASK (8*sizeof(BloomFilter) - 1) -#define bloombit(x) ((uintptr_t)1 << ((x) & BLOOM_MASK)) -#define bloomset(b, x) ((b) |= bloombit((x))) -#define bloomtest(b, x) ((b) & bloombit((x))) - -#if defined(__GNUC__) || defined(__psp2__) - -#define LJ_NORET __attribute__((noreturn)) -#define LJ_ALIGN(n) __attribute__((aligned(n))) -#define LJ_INLINE inline -#define LJ_AINLINE inline __attribute__((always_inline)) -#define LJ_NOINLINE __attribute__((noinline)) - -#if defined(__ELF__) || defined(__MACH__) || defined(__psp2__) -#if !((defined(__sun__) && defined(__svr4__)) || defined(__CELLOS_LV2__)) -#define LJ_NOAPI extern __attribute__((visibility("hidden"))) -#endif -#endif - -/* Note: it's only beneficial to use fastcall on x86 and then only for up to -** two non-FP args. The amalgamated compile covers all LJ_FUNC cases. Only -** indirect calls and related tail-called C functions are marked as fastcall. -*/ -#if defined(__i386__) -#define LJ_FASTCALL __attribute__((fastcall)) -#endif - -#define LJ_LIKELY(x) __builtin_expect(!!(x), 1) -#define LJ_UNLIKELY(x) __builtin_expect(!!(x), 0) - -#define lj_ffs(x) ((uint32_t)__builtin_ctz(x)) -/* Don't ask ... */ -#if defined(__INTEL_COMPILER) && (defined(__i386__) || defined(__x86_64__)) -static LJ_AINLINE uint32_t lj_fls(uint32_t x) -{ - uint32_t r; __asm__("bsrl %1, %0" : "=r" (r) : "rm" (x) : "cc"); return r; -} -#else -#define lj_fls(x) ((uint32_t)(__builtin_clz(x)^31)) -#endif - -#if defined(__arm__) -static LJ_AINLINE uint32_t lj_bswap(uint32_t x) -{ -#if defined(__psp2__) - return __builtin_rev(x); -#else - uint32_t r; -#if __ARM_ARCH_6__ || __ARM_ARCH_6J__ || __ARM_ARCH_6T2__ || __ARM_ARCH_6Z__ ||\ - __ARM_ARCH_6ZK__ || __ARM_ARCH_7__ || __ARM_ARCH_7A__ || __ARM_ARCH_7R__ - __asm__("rev %0, %1" : "=r" (r) : "r" (x)); - return r; -#else -#ifdef __thumb__ - r = x ^ lj_ror(x, 16); -#else - __asm__("eor %0, %1, %1, ror #16" : "=r" (r) : "r" (x)); -#endif - return ((r & 0xff00ffffu) >> 8) ^ lj_ror(x, 8); -#endif -#endif -} - -static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) -{ - return ((uint64_t)lj_bswap((uint32_t)x)<<32) | lj_bswap((uint32_t)(x>>32)); -} -#elif (__GNUC__ > 4) || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3) -static LJ_AINLINE uint32_t lj_bswap(uint32_t x) -{ - return (uint32_t)__builtin_bswap32((int32_t)x); -} - -static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) -{ - return (uint64_t)__builtin_bswap64((int64_t)x); -} -#elif defined(__i386__) || defined(__x86_64__) -static LJ_AINLINE uint32_t lj_bswap(uint32_t x) -{ - uint32_t r; __asm__("bswap %0" : "=r" (r) : "0" (x)); return r; -} - -#if defined(__i386__) -static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) -{ - return ((uint64_t)lj_bswap((uint32_t)x)<<32) | lj_bswap((uint32_t)(x>>32)); -} -#else -static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) -{ - uint64_t r; __asm__("bswap %0" : "=r" (r) : "0" (x)); return r; -} -#endif -#else -static LJ_AINLINE uint32_t lj_bswap(uint32_t x) -{ - return (x << 24) | ((x & 0xff00) << 8) | ((x >> 8) & 0xff00) | (x >> 24); -} - -static LJ_AINLINE uint64_t lj_bswap64(uint64_t x) -{ - return (uint64_t)lj_bswap((uint32_t)(x >> 32)) | - ((uint64_t)lj_bswap((uint32_t)x) << 32); -} -#endif - -typedef union __attribute__((packed)) Unaligned16 { - uint16_t u; - uint8_t b[2]; -} Unaligned16; - -typedef union __attribute__((packed)) Unaligned32 { - uint32_t u; - uint8_t b[4]; -} Unaligned32; - -/* Unaligned load of uint16_t. */ -static LJ_AINLINE uint16_t lj_getu16(const void *p) -{ - return ((const Unaligned16 *)p)->u; -} - -/* Unaligned load of uint32_t. */ -static LJ_AINLINE uint32_t lj_getu32(const void *p) -{ - return ((const Unaligned32 *)p)->u; -} - -#elif defined(_MSC_VER) - -#define LJ_NORET __declspec(noreturn) -#define LJ_ALIGN(n) __declspec(align(n)) -#define LJ_INLINE __inline -#define LJ_AINLINE __forceinline -#define LJ_NOINLINE __declspec(noinline) -#if defined(_M_IX86) -#define LJ_FASTCALL __fastcall -#endif - -#ifdef _M_PPC -unsigned int _CountLeadingZeros(long); -#pragma intrinsic(_CountLeadingZeros) -static LJ_AINLINE uint32_t lj_fls(uint32_t x) -{ - return _CountLeadingZeros(x) ^ 31; -} -#else -unsigned char _BitScanForward(uint32_t *, unsigned long); -unsigned char _BitScanReverse(uint32_t *, unsigned long); -#pragma intrinsic(_BitScanForward) -#pragma intrinsic(_BitScanReverse) - -static LJ_AINLINE uint32_t lj_ffs(uint32_t x) -{ - uint32_t r; _BitScanForward(&r, x); return r; -} - -static LJ_AINLINE uint32_t lj_fls(uint32_t x) -{ - uint32_t r; _BitScanReverse(&r, x); return r; -} -#endif - -unsigned long _byteswap_ulong(unsigned long); -uint64_t _byteswap_uint64(uint64_t); -#define lj_bswap(x) (_byteswap_ulong((x))) -#define lj_bswap64(x) (_byteswap_uint64((x))) - -#if defined(_M_PPC) && defined(LUAJIT_NO_UNALIGNED) -/* -** Replacement for unaligned loads on Xbox 360. Disabled by default since it's -** usually more costly than the occasional stall when crossing a cache-line. -*/ -static LJ_AINLINE uint16_t lj_getu16(const void *v) -{ - const uint8_t *p = (const uint8_t *)v; - return (uint16_t)((p[0]<<8) | p[1]); -} -static LJ_AINLINE uint32_t lj_getu32(const void *v) -{ - const uint8_t *p = (const uint8_t *)v; - return (uint32_t)((p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3]); -} -#else -/* Unaligned loads are generally ok on x86/x64. */ -#define lj_getu16(p) (*(uint16_t *)(p)) -#define lj_getu32(p) (*(uint32_t *)(p)) -#endif - -#else -#error "missing defines for your compiler" -#endif - -/* Optional defines. */ -#ifndef LJ_FASTCALL -#define LJ_FASTCALL -#endif -#ifndef LJ_NORET -#define LJ_NORET -#endif -#ifndef LJ_NOAPI -#define LJ_NOAPI extern -#endif -#ifndef LJ_LIKELY -#define LJ_LIKELY(x) (x) -#define LJ_UNLIKELY(x) (x) -#endif - -/* Attributes for internal functions. */ -#define LJ_DATA LJ_NOAPI -#define LJ_DATADEF -#define LJ_ASMF LJ_NOAPI -#define LJ_FUNCA LJ_NOAPI -#if defined(ljamalg_c) -#define LJ_FUNC static -#else -#define LJ_FUNC LJ_NOAPI -#endif -#define LJ_FUNC_NORET LJ_FUNC LJ_NORET -#define LJ_FUNCA_NORET LJ_FUNCA LJ_NORET -#define LJ_ASMF_NORET LJ_ASMF LJ_NORET - -/* Runtime assertions. */ -#ifdef lua_assert -#define check_exp(c, e) (lua_assert(c), (e)) -#define api_check(l, e) lua_assert(e) -#else -#define lua_assert(c) ((void)0) -#define check_exp(c, e) (e) -#define api_check luai_apicheck -#endif - -/* Static assertions. */ -#define LJ_ASSERT_NAME2(name, line) name ## line -#define LJ_ASSERT_NAME(line) LJ_ASSERT_NAME2(lj_assert_, line) -#ifdef __COUNTER__ -#define LJ_STATIC_ASSERT(cond) \ - extern void LJ_ASSERT_NAME(__COUNTER__)(int STATIC_ASSERTION_FAILED[(cond)?1:-1]) -#else -#define LJ_STATIC_ASSERT(cond) \ - extern void LJ_ASSERT_NAME(__LINE__)(int STATIC_ASSERTION_FAILED[(cond)?1:-1]) -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c b/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c deleted file mode 100644 index 1a07371cacf..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.c +++ /dev/null @@ -1,557 +0,0 @@ -/* -** Instruction dispatch handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_dispatch_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_func.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_debug.h" -#include "lj_state.h" -#include "lj_frame.h" -#include "lj_bc.h" -#include "lj_ff.h" -#include "lj_strfmt.h" -#if LJ_HASJIT -#include "lj_jit.h" -#endif -#if LJ_HASFFI -#include "lj_ccallback.h" -#endif -#include "lj_trace.h" -#include "lj_dispatch.h" -#if LJ_HASPROFILE -#include "lj_profile.h" -#endif -#include "lj_vm.h" -#include "luajit.h" - -/* Bump GG_NUM_ASMFF in lj_dispatch.h as needed. Ugly. */ -LJ_STATIC_ASSERT(GG_NUM_ASMFF == FF_NUM_ASMFUNC); - -/* -- Dispatch table management ------------------------------------------- */ - -#if LJ_TARGET_MIPS -#include -LJ_FUNCA_NORET void LJ_FASTCALL lj_ffh_coroutine_wrap_err(lua_State *L, - lua_State *co); -#if !LJ_HASJIT -#define lj_dispatch_stitch lj_dispatch_ins -#endif -#if !LJ_HASPROFILE -#define lj_dispatch_profile lj_dispatch_ins -#endif - -#define GOTFUNC(name) (ASMFunction)name, -static const ASMFunction dispatch_got[] = { - GOTDEF(GOTFUNC) -}; -#undef GOTFUNC -#endif - -/* Initialize instruction dispatch table and hot counters. */ -void lj_dispatch_init(GG_State *GG) -{ - uint32_t i; - ASMFunction *disp = GG->dispatch; - for (i = 0; i < GG_LEN_SDISP; i++) - disp[GG_LEN_DDISP+i] = disp[i] = makeasmfunc(lj_bc_ofs[i]); - for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) - disp[i] = makeasmfunc(lj_bc_ofs[i]); - /* The JIT engine is off by default. luaopen_jit() turns it on. */ - disp[BC_FORL] = disp[BC_IFORL]; - disp[BC_ITERL] = disp[BC_IITERL]; - disp[BC_LOOP] = disp[BC_ILOOP]; - disp[BC_FUNCF] = disp[BC_IFUNCF]; - disp[BC_FUNCV] = disp[BC_IFUNCV]; - GG->g.bc_cfunc_ext = GG->g.bc_cfunc_int = BCINS_AD(BC_FUNCC, LUA_MINSTACK, 0); - for (i = 0; i < GG_NUM_ASMFF; i++) - GG->bcff[i] = BCINS_AD(BC__MAX+i, 0, 0); -#if LJ_TARGET_MIPS - memcpy(GG->got, dispatch_got, LJ_GOT__MAX*4); -#endif -} - -#if LJ_HASJIT -/* Initialize hotcount table. */ -void lj_dispatch_init_hotcount(global_State *g) -{ - int32_t hotloop = G2J(g)->param[JIT_P_hotloop]; - HotCount start = (HotCount)(hotloop*HOTCOUNT_LOOP - 1); - HotCount *hotcount = G2GG(g)->hotcount; - uint32_t i; - for (i = 0; i < HOTCOUNT_SIZE; i++) - hotcount[i] = start; -} -#endif - -/* Internal dispatch mode bits. */ -#define DISPMODE_CALL 0x01 /* Override call dispatch. */ -#define DISPMODE_RET 0x02 /* Override return dispatch. */ -#define DISPMODE_INS 0x04 /* Override instruction dispatch. */ -#define DISPMODE_JIT 0x10 /* JIT compiler on. */ -#define DISPMODE_REC 0x20 /* Recording active. */ -#define DISPMODE_PROF 0x40 /* Profiling active. */ - -/* Update dispatch table depending on various flags. */ -void lj_dispatch_update(global_State *g) -{ - uint8_t oldmode = g->dispatchmode; - uint8_t mode = 0; -#if LJ_HASJIT - mode |= (G2J(g)->flags & JIT_F_ON) ? DISPMODE_JIT : 0; - mode |= G2J(g)->state != LJ_TRACE_IDLE ? - (DISPMODE_REC|DISPMODE_INS|DISPMODE_CALL) : 0; -#endif -#if LJ_HASPROFILE - mode |= (g->hookmask & HOOK_PROFILE) ? (DISPMODE_PROF|DISPMODE_INS) : 0; -#endif - mode |= (g->hookmask & (LUA_MASKLINE|LUA_MASKCOUNT)) ? DISPMODE_INS : 0; - mode |= (g->hookmask & LUA_MASKCALL) ? DISPMODE_CALL : 0; - mode |= (g->hookmask & LUA_MASKRET) ? DISPMODE_RET : 0; - if (oldmode != mode) { /* Mode changed? */ - ASMFunction *disp = G2GG(g)->dispatch; - ASMFunction f_forl, f_iterl, f_loop, f_funcf, f_funcv; - g->dispatchmode = mode; - - /* Hotcount if JIT is on, but not while recording. */ - if ((mode & (DISPMODE_JIT|DISPMODE_REC)) == DISPMODE_JIT) { - f_forl = makeasmfunc(lj_bc_ofs[BC_FORL]); - f_iterl = makeasmfunc(lj_bc_ofs[BC_ITERL]); - f_loop = makeasmfunc(lj_bc_ofs[BC_LOOP]); - f_funcf = makeasmfunc(lj_bc_ofs[BC_FUNCF]); - f_funcv = makeasmfunc(lj_bc_ofs[BC_FUNCV]); - } else { /* Otherwise use the non-hotcounting instructions. */ - f_forl = disp[GG_LEN_DDISP+BC_IFORL]; - f_iterl = disp[GG_LEN_DDISP+BC_IITERL]; - f_loop = disp[GG_LEN_DDISP+BC_ILOOP]; - f_funcf = makeasmfunc(lj_bc_ofs[BC_IFUNCF]); - f_funcv = makeasmfunc(lj_bc_ofs[BC_IFUNCV]); - } - /* Init static counting instruction dispatch first (may be copied below). */ - disp[GG_LEN_DDISP+BC_FORL] = f_forl; - disp[GG_LEN_DDISP+BC_ITERL] = f_iterl; - disp[GG_LEN_DDISP+BC_LOOP] = f_loop; - - /* Set dynamic instruction dispatch. */ - if ((oldmode ^ mode) & (DISPMODE_PROF|DISPMODE_REC|DISPMODE_INS)) { - /* Need to update the whole table. */ - if (!(mode & DISPMODE_INS)) { /* No ins dispatch? */ - /* Copy static dispatch table to dynamic dispatch table. */ - memcpy(&disp[0], &disp[GG_LEN_DDISP], GG_LEN_SDISP*sizeof(ASMFunction)); - /* Overwrite with dynamic return dispatch. */ - if ((mode & DISPMODE_RET)) { - disp[BC_RETM] = lj_vm_rethook; - disp[BC_RET] = lj_vm_rethook; - disp[BC_RET0] = lj_vm_rethook; - disp[BC_RET1] = lj_vm_rethook; - } - } else { - /* The recording dispatch also checks for hooks. */ - ASMFunction f = (mode & DISPMODE_PROF) ? lj_vm_profhook : - (mode & DISPMODE_REC) ? lj_vm_record : lj_vm_inshook; - uint32_t i; - for (i = 0; i < GG_LEN_SDISP; i++) - disp[i] = f; - } - } else if (!(mode & DISPMODE_INS)) { - /* Otherwise set dynamic counting ins. */ - disp[BC_FORL] = f_forl; - disp[BC_ITERL] = f_iterl; - disp[BC_LOOP] = f_loop; - /* Set dynamic return dispatch. */ - if ((mode & DISPMODE_RET)) { - disp[BC_RETM] = lj_vm_rethook; - disp[BC_RET] = lj_vm_rethook; - disp[BC_RET0] = lj_vm_rethook; - disp[BC_RET1] = lj_vm_rethook; - } else { - disp[BC_RETM] = disp[GG_LEN_DDISP+BC_RETM]; - disp[BC_RET] = disp[GG_LEN_DDISP+BC_RET]; - disp[BC_RET0] = disp[GG_LEN_DDISP+BC_RET0]; - disp[BC_RET1] = disp[GG_LEN_DDISP+BC_RET1]; - } - } - - /* Set dynamic call dispatch. */ - if ((oldmode ^ mode) & DISPMODE_CALL) { /* Update the whole table? */ - uint32_t i; - if ((mode & DISPMODE_CALL) == 0) { /* No call hooks? */ - for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) - disp[i] = makeasmfunc(lj_bc_ofs[i]); - } else { - for (i = GG_LEN_SDISP; i < GG_LEN_DDISP; i++) - disp[i] = lj_vm_callhook; - } - } - if (!(mode & DISPMODE_CALL)) { /* Overwrite dynamic counting ins. */ - disp[BC_FUNCF] = f_funcf; - disp[BC_FUNCV] = f_funcv; - } - -#if LJ_HASJIT - /* Reset hotcounts for JIT off to on transition. */ - if ((mode & DISPMODE_JIT) && !(oldmode & DISPMODE_JIT)) - lj_dispatch_init_hotcount(g); -#endif - } -} - -/* -- JIT mode setting ---------------------------------------------------- */ - -#if LJ_HASJIT -/* Set JIT mode for a single prototype. */ -static void setptmode(global_State *g, GCproto *pt, int mode) -{ - if ((mode & LUAJIT_MODE_ON)) { /* (Re-)enable JIT compilation. */ - pt->flags &= ~PROTO_NOJIT; - lj_trace_reenableproto(pt); /* Unpatch all ILOOP etc. bytecodes. */ - } else { /* Flush and/or disable JIT compilation. */ - if (!(mode & LUAJIT_MODE_FLUSH)) - pt->flags |= PROTO_NOJIT; - lj_trace_flushproto(g, pt); /* Flush all traces of prototype. */ - } -} - -/* Recursively set the JIT mode for all children of a prototype. */ -static void setptmode_all(global_State *g, GCproto *pt, int mode) -{ - ptrdiff_t i; - if (!(pt->flags & PROTO_CHILD)) return; - for (i = -(ptrdiff_t)pt->sizekgc; i < 0; i++) { - GCobj *o = proto_kgc(pt, i); - if (o->gch.gct == ~LJ_TPROTO) { - setptmode(g, gco2pt(o), mode); - setptmode_all(g, gco2pt(o), mode); - } - } -} -#endif - -/* Public API function: control the JIT engine. */ -int luaJIT_setmode(lua_State *L, int idx, int mode) -{ - global_State *g = G(L); - int mm = mode & LUAJIT_MODE_MASK; - lj_trace_abort(g); /* Abort recording on any state change. */ - /* Avoid pulling the rug from under our own feet. */ - if ((g->hookmask & HOOK_GC)) - lj_err_caller(L, LJ_ERR_NOGCMM); - switch (mm) { -#if LJ_HASJIT - case LUAJIT_MODE_ENGINE: - if ((mode & LUAJIT_MODE_FLUSH)) { - lj_trace_flushall(L); - } else { - if (!(mode & LUAJIT_MODE_ON)) - G2J(g)->flags &= ~(uint32_t)JIT_F_ON; -#if LJ_TARGET_X86ORX64 - else if ((G2J(g)->flags & JIT_F_SSE2)) - G2J(g)->flags |= (uint32_t)JIT_F_ON; - else - return 0; /* Don't turn on JIT compiler without SSE2 support. */ -#else - else - G2J(g)->flags |= (uint32_t)JIT_F_ON; -#endif - lj_dispatch_update(g); - } - break; - case LUAJIT_MODE_FUNC: - case LUAJIT_MODE_ALLFUNC: - case LUAJIT_MODE_ALLSUBFUNC: { - cTValue *tv = idx == 0 ? frame_prev(L->base-1) : - idx > 0 ? L->base + (idx-1) : L->top + idx; - GCproto *pt; - if ((idx == 0 || tvisfunc(tv)) && isluafunc(&gcval(tv)->fn)) - pt = funcproto(&gcval(tv)->fn); /* Cannot use funcV() for frame slot. */ - else if (tvisproto(tv)) - pt = protoV(tv); - else - return 0; /* Failed. */ - if (mm != LUAJIT_MODE_ALLSUBFUNC) - setptmode(g, pt, mode); - if (mm != LUAJIT_MODE_FUNC) - setptmode_all(g, pt, mode); - break; - } - case LUAJIT_MODE_TRACE: - if (!(mode & LUAJIT_MODE_FLUSH)) - return 0; /* Failed. */ - lj_trace_flush(G2J(g), idx); - break; -#else - case LUAJIT_MODE_ENGINE: - case LUAJIT_MODE_FUNC: - case LUAJIT_MODE_ALLFUNC: - case LUAJIT_MODE_ALLSUBFUNC: - UNUSED(idx); - if ((mode & LUAJIT_MODE_ON)) - return 0; /* Failed. */ - break; -#endif - case LUAJIT_MODE_WRAPCFUNC: - if ((mode & LUAJIT_MODE_ON)) { - if (idx != 0) { - cTValue *tv = idx > 0 ? L->base + (idx-1) : L->top + idx; - if (tvislightud(tv)) - g->wrapf = (lua_CFunction)lightudV(tv); - else - return 0; /* Failed. */ - } else { - return 0; /* Failed. */ - } - g->bc_cfunc_ext = BCINS_AD(BC_FUNCCW, 0, 0); - } else { - g->bc_cfunc_ext = BCINS_AD(BC_FUNCC, 0, 0); - } - break; - default: - return 0; /* Failed. */ - } - return 1; /* OK. */ -} - -/* Enforce (dynamic) linker error for version mismatches. See luajit.c. */ -LUA_API void LUAJIT_VERSION_SYM(void) -{ -} - -/* -- Hooks --------------------------------------------------------------- */ - -/* This function can be called asynchronously (e.g. during a signal). */ -LUA_API int lua_sethook(lua_State *L, lua_Hook func, int mask, int count) -{ - global_State *g = G(L); - mask &= HOOK_EVENTMASK; - if (func == NULL || mask == 0) { mask = 0; func = NULL; } /* Consistency. */ - g->hookf = func; - g->hookcount = g->hookcstart = (int32_t)count; - g->hookmask = (uint8_t)((g->hookmask & ~HOOK_EVENTMASK) | mask); - lj_trace_abort(g); /* Abort recording on any hook change. */ - lj_dispatch_update(g); - return 1; -} - -LUA_API lua_Hook lua_gethook(lua_State *L) -{ - return G(L)->hookf; -} - -LUA_API int lua_gethookmask(lua_State *L) -{ - return G(L)->hookmask & HOOK_EVENTMASK; -} - -LUA_API int lua_gethookcount(lua_State *L) -{ - return (int)G(L)->hookcstart; -} - -/* Call a hook. */ -static void callhook(lua_State *L, int event, BCLine line) -{ - global_State *g = G(L); - lua_Hook hookf = g->hookf; - if (hookf && !hook_active(g)) { - lua_Debug ar; - lj_trace_abort(g); /* Abort recording on any hook call. */ - ar.event = event; - ar.currentline = line; - /* Top frame, nextframe = NULL. */ - ar.i_ci = (int)((L->base-1) - tvref(L->stack)); - lj_state_checkstack(L, 1+LUA_MINSTACK); -#if LJ_HASPROFILE && !LJ_PROFILE_SIGPROF - lj_profile_hook_enter(g); -#else - hook_enter(g); -#endif - hookf(L, &ar); - lua_assert(hook_active(g)); - setgcref(g->cur_L, obj2gco(L)); -#if LJ_HASPROFILE && !LJ_PROFILE_SIGPROF - lj_profile_hook_leave(g); -#else - hook_leave(g); -#endif - } -} - -/* -- Dispatch callbacks -------------------------------------------------- */ - -/* Calculate number of used stack slots in the current frame. */ -static BCReg cur_topslot(GCproto *pt, const BCIns *pc, uint32_t nres) -{ - BCIns ins = pc[-1]; - if (bc_op(ins) == BC_UCLO) - ins = pc[bc_j(ins)]; - switch (bc_op(ins)) { - case BC_CALLM: case BC_CALLMT: return bc_a(ins) + bc_c(ins) + nres-1+1+LJ_FR2; - case BC_RETM: return bc_a(ins) + bc_d(ins) + nres-1; - case BC_TSETM: return bc_a(ins) + nres-1; - default: return pt->framesize; - } -} - -/* Instruction dispatch. Used by instr/line/return hooks or when recording. */ -void LJ_FASTCALL lj_dispatch_ins(lua_State *L, const BCIns *pc) -{ - ERRNO_SAVE - GCfunc *fn = curr_func(L); - GCproto *pt = funcproto(fn); - void *cf = cframe_raw(L->cframe); - const BCIns *oldpc = cframe_pc(cf); - global_State *g = G(L); - BCReg slots; - setcframe_pc(cf, pc); - slots = cur_topslot(pt, pc, cframe_multres_n(cf)); - L->top = L->base + slots; /* Fix top. */ -#if LJ_HASJIT - { - jit_State *J = G2J(g); - if (J->state != LJ_TRACE_IDLE) { -#ifdef LUA_USE_ASSERT - ptrdiff_t delta = L->top - L->base; -#endif - J->L = L; - lj_trace_ins(J, pc-1); /* The interpreter bytecode PC is offset by 1. */ - lua_assert(L->top - L->base == delta); - } - } -#endif - if ((g->hookmask & LUA_MASKCOUNT) && g->hookcount == 0) { - g->hookcount = g->hookcstart; - callhook(L, LUA_HOOKCOUNT, -1); - L->top = L->base + slots; /* Fix top again. */ - } - if ((g->hookmask & LUA_MASKLINE)) { - BCPos npc = proto_bcpos(pt, pc) - 1; - BCPos opc = proto_bcpos(pt, oldpc) - 1; - BCLine line = lj_debug_line(pt, npc); - if (pc <= oldpc || opc >= pt->sizebc || line != lj_debug_line(pt, opc)) { - callhook(L, LUA_HOOKLINE, line); - L->top = L->base + slots; /* Fix top again. */ - } - } - if ((g->hookmask & LUA_MASKRET) && bc_isret(bc_op(pc[-1]))) - callhook(L, LUA_HOOKRET, -1); - ERRNO_RESTORE -} - -/* Initialize call. Ensure stack space and return # of missing parameters. */ -static int call_init(lua_State *L, GCfunc *fn) -{ - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - int numparams = pt->numparams; - int gotparams = (int)(L->top - L->base); - int need = pt->framesize; - if ((pt->flags & PROTO_VARARG)) need += 1+gotparams; - lj_state_checkstack(L, (MSize)need); - numparams -= gotparams; - return numparams >= 0 ? numparams : 0; - } else { - lj_state_checkstack(L, LUA_MINSTACK); - return 0; - } -} - -/* Call dispatch. Used by call hooks, hot calls or when recording. */ -ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns *pc) -{ - ERRNO_SAVE - GCfunc *fn = curr_func(L); - BCOp op; - global_State *g = G(L); -#if LJ_HASJIT - jit_State *J = G2J(g); -#endif - int missing = call_init(L, fn); -#if LJ_HASJIT - J->L = L; - if ((uintptr_t)pc & 1) { /* Marker for hot call. */ -#ifdef LUA_USE_ASSERT - ptrdiff_t delta = L->top - L->base; -#endif - pc = (const BCIns *)((uintptr_t)pc & ~(uintptr_t)1); - lj_trace_hot(J, pc); - lua_assert(L->top - L->base == delta); - goto out; - } else if (J->state != LJ_TRACE_IDLE && - !(g->hookmask & (HOOK_GC|HOOK_VMEVENT))) { -#ifdef LUA_USE_ASSERT - ptrdiff_t delta = L->top - L->base; -#endif - /* Record the FUNC* bytecodes, too. */ - lj_trace_ins(J, pc-1); /* The interpreter bytecode PC is offset by 1. */ - lua_assert(L->top - L->base == delta); - } -#endif - if ((g->hookmask & LUA_MASKCALL)) { - int i; - for (i = 0; i < missing; i++) /* Add missing parameters. */ - setnilV(L->top++); - callhook(L, LUA_HOOKCALL, -1); - /* Preserve modifications of missing parameters by lua_setlocal(). */ - while (missing-- > 0 && tvisnil(L->top - 1)) - L->top--; - } -#if LJ_HASJIT -out: -#endif - op = bc_op(pc[-1]); /* Get FUNC* op. */ -#if LJ_HASJIT - /* Use the non-hotcounting variants if JIT is off or while recording. */ - if ((!(J->flags & JIT_F_ON) || J->state != LJ_TRACE_IDLE) && - (op == BC_FUNCF || op == BC_FUNCV)) - op = (BCOp)((int)op+(int)BC_IFUNCF-(int)BC_FUNCF); -#endif - ERRNO_RESTORE - return makeasmfunc(lj_bc_ofs[op]); /* Return static dispatch target. */ -} - -#if LJ_HASJIT -/* Stitch a new trace. */ -void LJ_FASTCALL lj_dispatch_stitch(jit_State *J, const BCIns *pc) -{ - ERRNO_SAVE - lua_State *L = J->L; - void *cf = cframe_raw(L->cframe); - const BCIns *oldpc = cframe_pc(cf); - setcframe_pc(cf, pc); - /* Before dispatch, have to bias PC by 1. */ - L->top = L->base + cur_topslot(curr_proto(L), pc+1, cframe_multres_n(cf)); - lj_trace_stitch(J, pc-1); /* Point to the CALL instruction. */ - setcframe_pc(cf, oldpc); - ERRNO_RESTORE -} -#endif - -#if LJ_HASPROFILE -/* Profile dispatch. */ -void LJ_FASTCALL lj_dispatch_profile(lua_State *L, const BCIns *pc) -{ - ERRNO_SAVE - GCfunc *fn = curr_func(L); - GCproto *pt = funcproto(fn); - void *cf = cframe_raw(L->cframe); - const BCIns *oldpc = cframe_pc(cf); - global_State *g; - setcframe_pc(cf, pc); - L->top = L->base + cur_topslot(pt, pc, cframe_multres_n(cf)); - lj_profile_interpreter(L); - setcframe_pc(cf, oldpc); - g = G(L); - setgcref(g->cur_L, obj2gco(L)); - setvmstate(g, INTERP); - ERRNO_RESTORE -} -#endif - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h b/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h deleted file mode 100644 index 1e247e38286..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_dispatch.h +++ /dev/null @@ -1,138 +0,0 @@ -/* -** Instruction dispatch handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_DISPATCH_H -#define _LJ_DISPATCH_H - -#include "lj_obj.h" -#include "lj_bc.h" -#if LJ_HASJIT -#include "lj_jit.h" -#endif - -#if LJ_TARGET_MIPS -/* Need our own global offset table for the dreaded MIPS calling conventions. */ -#if LJ_HASJIT -#define JITGOTDEF(_) _(lj_trace_exit) _(lj_trace_hot) -#else -#define JITGOTDEF(_) -#endif -#if LJ_HASFFI -#define FFIGOTDEF(_) \ - _(lj_meta_equal_cd) _(lj_ccallback_enter) _(lj_ccallback_leave) -#else -#define FFIGOTDEF(_) -#endif -#define GOTDEF(_) \ - _(floor) _(ceil) _(trunc) _(log) _(log10) _(exp) _(sin) _(cos) _(tan) \ - _(asin) _(acos) _(atan) _(sinh) _(cosh) _(tanh) _(frexp) _(modf) _(atan2) \ - _(pow) _(fmod) _(ldexp) \ - _(lj_dispatch_call) _(lj_dispatch_ins) _(lj_dispatch_stitch) \ - _(lj_dispatch_profile) _(lj_err_throw) \ - _(lj_ffh_coroutine_wrap_err) _(lj_func_closeuv) _(lj_func_newL_gc) \ - _(lj_gc_barrieruv) _(lj_gc_step) _(lj_gc_step_fixtop) _(lj_meta_arith) \ - _(lj_meta_call) _(lj_meta_cat) _(lj_meta_comp) _(lj_meta_equal) \ - _(lj_meta_for) _(lj_meta_istype) _(lj_meta_len) _(lj_meta_tget) \ - _(lj_meta_tset) _(lj_state_growstack) _(lj_strfmt_num) \ - _(lj_str_new) _(lj_tab_dup) _(lj_tab_get) _(lj_tab_getinth) _(lj_tab_len) \ - _(lj_tab_new) _(lj_tab_newkey) _(lj_tab_next) _(lj_tab_reasize) \ - _(lj_tab_setinth) _(lj_buf_putstr_reverse) _(lj_buf_putstr_lower) \ - _(lj_buf_putstr_upper) _(lj_buf_tostr) JITGOTDEF(_) FFIGOTDEF(_) - -enum { -#define GOTENUM(name) LJ_GOT_##name, -GOTDEF(GOTENUM) -#undef GOTENUM - LJ_GOT__MAX -}; -#endif - -/* Type of hot counter. Must match the code in the assembler VM. */ -/* 16 bits are sufficient. Only 0.0015% overhead with maximum slot penalty. */ -typedef uint16_t HotCount; - -/* Number of hot counter hash table entries (must be a power of two). */ -#define HOTCOUNT_SIZE 64 -#define HOTCOUNT_PCMASK ((HOTCOUNT_SIZE-1)*sizeof(HotCount)) - -/* Hotcount decrements. */ -#define HOTCOUNT_LOOP 2 -#define HOTCOUNT_CALL 1 - -/* This solves a circular dependency problem -- bump as needed. Sigh. */ -#define GG_NUM_ASMFF 57 - -#define GG_LEN_DDISP (BC__MAX + GG_NUM_ASMFF) -#define GG_LEN_SDISP BC_FUNCF -#define GG_LEN_DISP (GG_LEN_DDISP + GG_LEN_SDISP) - -/* Global state, main thread and extra fields are allocated together. */ -typedef struct GG_State { - lua_State L; /* Main thread. */ - global_State g; /* Global state. */ -#if LJ_TARGET_MIPS - ASMFunction got[LJ_GOT__MAX]; /* Global offset table. */ -#endif -#if LJ_HASJIT - jit_State J; /* JIT state. */ - HotCount hotcount[HOTCOUNT_SIZE]; /* Hot counters. */ -#endif - ASMFunction dispatch[GG_LEN_DISP]; /* Instruction dispatch tables. */ - BCIns bcff[GG_NUM_ASMFF]; /* Bytecode for ASM fast functions. */ -} GG_State; - -#define GG_OFS(field) ((int)offsetof(GG_State, field)) -#define G2GG(gl) ((GG_State *)((char *)(gl) - GG_OFS(g))) -#define J2GG(j) ((GG_State *)((char *)(j) - GG_OFS(J))) -#define L2GG(L) (G2GG(G(L))) -#define J2G(J) (&J2GG(J)->g) -#define G2J(gl) (&G2GG(gl)->J) -#define L2J(L) (&L2GG(L)->J) -#define GG_G2DISP (GG_OFS(dispatch) - GG_OFS(g)) -#define GG_DISP2G (GG_OFS(g) - GG_OFS(dispatch)) -#define GG_DISP2J (GG_OFS(J) - GG_OFS(dispatch)) -#define GG_DISP2HOT (GG_OFS(hotcount) - GG_OFS(dispatch)) -#define GG_DISP2STATIC (GG_LEN_DDISP*(int)sizeof(ASMFunction)) - -#define hotcount_get(gg, pc) \ - (gg)->hotcount[(u32ptr(pc)>>2) & (HOTCOUNT_SIZE-1)] -#define hotcount_set(gg, pc, val) \ - (hotcount_get((gg), (pc)) = (HotCount)(val)) - -/* Dispatch table management. */ -LJ_FUNC void lj_dispatch_init(GG_State *GG); -#if LJ_HASJIT -LJ_FUNC void lj_dispatch_init_hotcount(global_State *g); -#endif -LJ_FUNC void lj_dispatch_update(global_State *g); - -/* Instruction dispatch callback for hooks or when recording. */ -LJ_FUNCA void LJ_FASTCALL lj_dispatch_ins(lua_State *L, const BCIns *pc); -LJ_FUNCA ASMFunction LJ_FASTCALL lj_dispatch_call(lua_State *L, const BCIns*pc); -#if LJ_HASJIT -LJ_FUNCA void LJ_FASTCALL lj_dispatch_stitch(jit_State *J, const BCIns *pc); -#endif -#if LJ_HASPROFILE -LJ_FUNCA void LJ_FASTCALL lj_dispatch_profile(lua_State *L, const BCIns *pc); -#endif - -#if LJ_HASFFI && !defined(_BUILDVM_H) -/* Save/restore errno and GetLastError() around hooks, exits and recording. */ -#include -#if LJ_TARGET_WINDOWS -#define WIN32_LEAN_AND_MEAN -#include -#define ERRNO_SAVE int olderr = errno; DWORD oldwerr = GetLastError(); -#define ERRNO_RESTORE errno = olderr; SetLastError(oldwerr); -#else -#define ERRNO_SAVE int olderr = errno; -#define ERRNO_RESTORE errno = olderr; -#endif -#else -#define ERRNO_SAVE -#define ERRNO_RESTORE -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h deleted file mode 100644 index 45ce519ef6b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_emit_arm.h +++ /dev/null @@ -1,356 +0,0 @@ -/* -** ARM instruction emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Constant encoding --------------------------------------------------- */ - -static uint8_t emit_invai[16] = { - /* AND */ (ARMI_AND^ARMI_BIC) >> 21, - /* EOR */ 0, - /* SUB */ (ARMI_SUB^ARMI_ADD) >> 21, - /* RSB */ 0, - /* ADD */ (ARMI_ADD^ARMI_SUB) >> 21, - /* ADC */ (ARMI_ADC^ARMI_SBC) >> 21, - /* SBC */ (ARMI_SBC^ARMI_ADC) >> 21, - /* RSC */ 0, - /* TST */ 0, - /* TEQ */ 0, - /* CMP */ (ARMI_CMP^ARMI_CMN) >> 21, - /* CMN */ (ARMI_CMN^ARMI_CMP) >> 21, - /* ORR */ 0, - /* MOV */ (ARMI_MOV^ARMI_MVN) >> 21, - /* BIC */ (ARMI_BIC^ARMI_AND) >> 21, - /* MVN */ (ARMI_MVN^ARMI_MOV) >> 21 -}; - -/* Encode constant in K12 format for data processing instructions. */ -static uint32_t emit_isk12(ARMIns ai, int32_t n) -{ - uint32_t invai, i, m = (uint32_t)n; - /* K12: unsigned 8 bit value, rotated in steps of two bits. */ - for (i = 0; i < 4096; i += 256, m = lj_rol(m, 2)) - if (m <= 255) return ARMI_K12|m|i; - /* Otherwise try negation/complement with the inverse instruction. */ - invai = emit_invai[((ai >> 21) & 15)]; - if (!invai) return 0; /* Failed. No inverse instruction. */ - m = ~(uint32_t)n; - if (invai == ((ARMI_SUB^ARMI_ADD) >> 21) || - invai == (ARMI_CMP^ARMI_CMN) >> 21) m++; - for (i = 0; i < 4096; i += 256, m = lj_rol(m, 2)) - if (m <= 255) return ARMI_K12|(invai<<21)|m|i; - return 0; /* Failed. */ -} - -/* -- Emit basic instructions --------------------------------------------- */ - -static void emit_dnm(ASMState *as, ARMIns ai, Reg rd, Reg rn, Reg rm) -{ - *--as->mcp = ai | ARMF_D(rd) | ARMF_N(rn) | ARMF_M(rm); -} - -static void emit_dm(ASMState *as, ARMIns ai, Reg rd, Reg rm) -{ - *--as->mcp = ai | ARMF_D(rd) | ARMF_M(rm); -} - -static void emit_dn(ASMState *as, ARMIns ai, Reg rd, Reg rn) -{ - *--as->mcp = ai | ARMF_D(rd) | ARMF_N(rn); -} - -static void emit_nm(ASMState *as, ARMIns ai, Reg rn, Reg rm) -{ - *--as->mcp = ai | ARMF_N(rn) | ARMF_M(rm); -} - -static void emit_d(ASMState *as, ARMIns ai, Reg rd) -{ - *--as->mcp = ai | ARMF_D(rd); -} - -static void emit_n(ASMState *as, ARMIns ai, Reg rn) -{ - *--as->mcp = ai | ARMF_N(rn); -} - -static void emit_m(ASMState *as, ARMIns ai, Reg rm) -{ - *--as->mcp = ai | ARMF_M(rm); -} - -static void emit_lsox(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) -{ - lua_assert(ofs >= -255 && ofs <= 255); - if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; - *--as->mcp = ai | ARMI_LS_P | ARMI_LSX_I | ARMF_D(rd) | ARMF_N(rn) | - ((ofs & 0xf0) << 4) | (ofs & 0x0f); -} - -static void emit_lso(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) -{ - lua_assert(ofs >= -4095 && ofs <= 4095); - /* Combine LDR/STR pairs to LDRD/STRD. */ - if (*as->mcp == (ai|ARMI_LS_P|ARMI_LS_U|ARMF_D(rd^1)|ARMF_N(rn)|(ofs^4)) && - (ai & ~(ARMI_LDR^ARMI_STR)) == ARMI_STR && rd != rn && - (uint32_t)ofs <= 252 && !(ofs & 3) && !((rd ^ (ofs >>2)) & 1) && - as->mcp != as->mcloop) { - as->mcp++; - emit_lsox(as, ai == ARMI_LDR ? ARMI_LDRD : ARMI_STRD, rd&~1, rn, ofs&~4); - return; - } - if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; - *--as->mcp = ai | ARMI_LS_P | ARMF_D(rd) | ARMF_N(rn) | ofs; -} - -#if !LJ_SOFTFP -static void emit_vlso(ASMState *as, ARMIns ai, Reg rd, Reg rn, int32_t ofs) -{ - lua_assert(ofs >= -1020 && ofs <= 1020 && (ofs&3) == 0); - if (ofs < 0) ofs = -ofs; else ai |= ARMI_LS_U; - *--as->mcp = ai | ARMI_LS_P | ARMF_D(rd & 15) | ARMF_N(rn) | (ofs >> 2); -} -#endif - -/* -- Emit loads/stores --------------------------------------------------- */ - -/* Prefer spills of BASE/L. */ -#define emit_canremat(ref) ((ref) < ASMREF_L) - -/* Try to find a one step delta relative to another constant. */ -static int emit_kdelta1(ASMState *as, Reg d, int32_t i) -{ - RegSet work = ~as->freeset & RSET_GPR; - while (work) { - Reg r = rset_picktop(work); - IRRef ref = regcost_ref(as->cost[r]); - lua_assert(r != d); - if (emit_canremat(ref)) { - int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); - uint32_t k = emit_isk12(ARMI_ADD, delta); - if (k) { - if (k == ARMI_K12) - emit_dm(as, ARMI_MOV, d, r); - else - emit_dn(as, ARMI_ADD^k, d, r); - return 1; - } - } - rset_clear(work, r); - } - return 0; /* Failed. */ -} - -/* Try to find a two step delta relative to another constant. */ -static int emit_kdelta2(ASMState *as, Reg d, int32_t i) -{ - RegSet work = ~as->freeset & RSET_GPR; - while (work) { - Reg r = rset_picktop(work); - IRRef ref = regcost_ref(as->cost[r]); - lua_assert(r != d); - if (emit_canremat(ref)) { - int32_t other = ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i; - if (other) { - int32_t delta = i - other; - uint32_t sh, inv = 0, k2, k; - if (delta < 0) { delta = -delta; inv = ARMI_ADD^ARMI_SUB; } - sh = lj_ffs(delta) & ~1; - k2 = emit_isk12(0, delta & (255 << sh)); - k = emit_isk12(0, delta & ~(255 << sh)); - if (k) { - emit_dn(as, ARMI_ADD^k2^inv, d, d); - emit_dn(as, ARMI_ADD^k^inv, d, r); - return 1; - } - } - } - rset_clear(work, r); - } - return 0; /* Failed. */ -} - -/* Load a 32 bit constant into a GPR. */ -static void emit_loadi(ASMState *as, Reg r, int32_t i) -{ - uint32_t k = emit_isk12(ARMI_MOV, i); - lua_assert(rset_test(as->freeset, r) || r == RID_TMP); - if (k) { - /* Standard K12 constant. */ - emit_d(as, ARMI_MOV^k, r); - } else if ((as->flags & JIT_F_ARMV6T2) && (uint32_t)i < 0x00010000u) { - /* 16 bit loword constant for ARMv6T2. */ - emit_d(as, ARMI_MOVW|(i & 0x0fff)|((i & 0xf000)<<4), r); - } else if (emit_kdelta1(as, r, i)) { - /* One step delta relative to another constant. */ - } else if ((as->flags & JIT_F_ARMV6T2)) { - /* 32 bit hiword/loword constant for ARMv6T2. */ - emit_d(as, ARMI_MOVT|((i>>16) & 0x0fff)|(((i>>16) & 0xf000)<<4), r); - emit_d(as, ARMI_MOVW|(i & 0x0fff)|((i & 0xf000)<<4), r); - } else if (emit_kdelta2(as, r, i)) { - /* Two step delta relative to another constant. */ - } else { - /* Otherwise construct the constant with up to 4 instructions. */ - /* NYI: use mvn+bic, use pc-relative loads. */ - for (;;) { - uint32_t sh = lj_ffs(i) & ~1; - int32_t m = i & (255 << sh); - i &= ~(255 << sh); - if (i == 0) { - emit_d(as, ARMI_MOV ^ emit_isk12(0, m), r); - break; - } - emit_dn(as, ARMI_ORR ^ emit_isk12(0, m), r, r); - } - } -} - -#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) - -static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); - -/* Get/set from constant pointer. */ -static void emit_lsptr(ASMState *as, ARMIns ai, Reg r, void *p) -{ - int32_t i = i32ptr(p); - emit_lso(as, ai, r, ra_allock(as, (i & ~4095), rset_exclude(RSET_GPR, r)), - (i & 4095)); -} - -#if !LJ_SOFTFP -/* Load a number constant into an FPR. */ -static void emit_loadn(ASMState *as, Reg r, cTValue *tv) -{ - int32_t i; - if ((as->flags & JIT_F_VFPV3) && !tv->u32.lo) { - uint32_t hi = tv->u32.hi; - uint32_t b = ((hi >> 22) & 0x1ff); - if (!(hi & 0xffff) && (b == 0x100 || b == 0x0ff)) { - *--as->mcp = ARMI_VMOVI_D | ARMF_D(r & 15) | - ((tv->u32.hi >> 12) & 0x00080000) | - ((tv->u32.hi >> 4) & 0x00070000) | - ((tv->u32.hi >> 16) & 0x0000000f); - return; - } - } - i = i32ptr(tv); - emit_vlso(as, ARMI_VLDR_D, r, - ra_allock(as, (i & ~1020), RSET_GPR), (i & 1020)); -} -#endif - -/* Get/set global_State fields. */ -#define emit_getgl(as, r, field) \ - emit_lsptr(as, ARMI_LDR, (r), (void *)&J2G(as->J)->field) -#define emit_setgl(as, r, field) \ - emit_lsptr(as, ARMI_STR, (r), (void *)&J2G(as->J)->field) - -/* Trace number is determined from pc of exit instruction. */ -#define emit_setvmstate(as, i) UNUSED(i) - -/* -- Emit control-flow instructions -------------------------------------- */ - -/* Label for internal jumps. */ -typedef MCode *MCLabel; - -/* Return label pointing to current PC. */ -#define emit_label(as) ((as)->mcp) - -static void emit_branch(ASMState *as, ARMIns ai, MCode *target) -{ - MCode *p = as->mcp; - ptrdiff_t delta = (target - p) - 1; - lua_assert(((delta + 0x00800000) >> 24) == 0); - *--p = ai | ((uint32_t)delta & 0x00ffffffu); - as->mcp = p; -} - -#define emit_jmp(as, target) emit_branch(as, ARMI_B, (target)) - -static void emit_call(ASMState *as, void *target) -{ - MCode *p = --as->mcp; - ptrdiff_t delta = ((char *)target - (char *)p) - 8; - if ((((delta>>2) + 0x00800000) >> 24) == 0) { - if ((delta & 1)) - *p = ARMI_BLX | ((uint32_t)(delta>>2) & 0x00ffffffu) | ((delta&2) << 27); - else - *p = ARMI_BL | ((uint32_t)(delta>>2) & 0x00ffffffu); - } else { /* Target out of range: need indirect call. But don't use R0-R3. */ - Reg r = ra_allock(as, i32ptr(target), RSET_RANGE(RID_R4, RID_R12+1)); - *p = ARMI_BLXr | ARMF_M(r); - } -} - -/* -- Emit generic operations --------------------------------------------- */ - -/* Generic move between two regs. */ -static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) -{ -#if LJ_SOFTFP - lua_assert(!irt_isnum(ir->t)); UNUSED(ir); -#else - if (dst >= RID_MAX_GPR) { - emit_dm(as, irt_isnum(ir->t) ? ARMI_VMOV_D : ARMI_VMOV_S, - (dst & 15), (src & 15)); - return; - } -#endif - if (as->mcp != as->mcloop) { /* Swap early registers for loads/stores. */ - MCode ins = *as->mcp, swp = (src^dst); - if ((ins & 0x0c000000) == 0x04000000 && (ins & 0x02000010) != 0x02000010) { - if (!((ins ^ (dst << 16)) & 0x000f0000)) - *as->mcp = ins ^ (swp << 16); /* Swap N in load/store. */ - if (!(ins & 0x00100000) && !((ins ^ (dst << 12)) & 0x0000f000)) - *as->mcp = ins ^ (swp << 12); /* Swap D in store. */ - } - } - emit_dm(as, ARMI_MOV, dst, src); -} - -/* Generic load of register with base and (small) offset address. */ -static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ -#if LJ_SOFTFP - lua_assert(!irt_isnum(ir->t)); UNUSED(ir); -#else - if (r >= RID_MAX_GPR) - emit_vlso(as, irt_isnum(ir->t) ? ARMI_VLDR_D : ARMI_VLDR_S, r, base, ofs); - else -#endif - emit_lso(as, ARMI_LDR, r, base, ofs); -} - -/* Generic store of register with base and (small) offset address. */ -static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ -#if LJ_SOFTFP - lua_assert(!irt_isnum(ir->t)); UNUSED(ir); -#else - if (r >= RID_MAX_GPR) - emit_vlso(as, irt_isnum(ir->t) ? ARMI_VSTR_D : ARMI_VSTR_S, r, base, ofs); - else -#endif - emit_lso(as, ARMI_STR, r, base, ofs); -} - -/* Emit an arithmetic/logic operation with a constant operand. */ -static void emit_opk(ASMState *as, ARMIns ai, Reg dest, Reg src, - int32_t i, RegSet allow) -{ - uint32_t k = emit_isk12(ai, i); - if (k) - emit_dn(as, ai^k, dest, src); - else - emit_dnm(as, ai, dest, src, ra_allock(as, i, allow)); -} - -/* Add offset to pointer. */ -static void emit_addptr(ASMState *as, Reg r, int32_t ofs) -{ - if (ofs) - emit_opk(as, ARMI_ADD, r, r, ofs, rset_exclude(RSET_GPR, r)); -} - -#define emit_spsub(as, ofs) emit_addptr(as, RID_SP, -(ofs)) - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h deleted file mode 100644 index 8e7ee66fb1a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_emit_mips.h +++ /dev/null @@ -1,211 +0,0 @@ -/* -** MIPS instruction emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Emit basic instructions --------------------------------------------- */ - -static void emit_dst(ASMState *as, MIPSIns mi, Reg rd, Reg rs, Reg rt) -{ - *--as->mcp = mi | MIPSF_D(rd) | MIPSF_S(rs) | MIPSF_T(rt); -} - -static void emit_dta(ASMState *as, MIPSIns mi, Reg rd, Reg rt, uint32_t a) -{ - *--as->mcp = mi | MIPSF_D(rd) | MIPSF_T(rt) | MIPSF_A(a); -} - -#define emit_ds(as, mi, rd, rs) emit_dst(as, (mi), (rd), (rs), 0) -#define emit_tg(as, mi, rt, rg) emit_dst(as, (mi), (rg)&31, 0, (rt)) - -static void emit_tsi(ASMState *as, MIPSIns mi, Reg rt, Reg rs, int32_t i) -{ - *--as->mcp = mi | MIPSF_T(rt) | MIPSF_S(rs) | (i & 0xffff); -} - -#define emit_ti(as, mi, rt, i) emit_tsi(as, (mi), (rt), 0, (i)) -#define emit_hsi(as, mi, rh, rs, i) emit_tsi(as, (mi), (rh) & 31, (rs), (i)) - -static void emit_fgh(ASMState *as, MIPSIns mi, Reg rf, Reg rg, Reg rh) -{ - *--as->mcp = mi | MIPSF_F(rf&31) | MIPSF_G(rg&31) | MIPSF_H(rh&31); -} - -#define emit_fg(as, mi, rf, rg) emit_fgh(as, (mi), (rf), (rg), 0) - -static void emit_rotr(ASMState *as, Reg dest, Reg src, Reg tmp, uint32_t shift) -{ - if ((as->flags & JIT_F_MIPS32R2)) { - emit_dta(as, MIPSI_ROTR, dest, src, shift); - } else { - emit_dst(as, MIPSI_OR, dest, dest, tmp); - emit_dta(as, MIPSI_SLL, dest, src, (-shift)&31); - emit_dta(as, MIPSI_SRL, tmp, src, shift); - } -} - -/* -- Emit loads/stores --------------------------------------------------- */ - -/* Prefer rematerialization of BASE/L from global_State over spills. */ -#define emit_canremat(ref) ((ref) <= REF_BASE) - -/* Try to find a one step delta relative to another constant. */ -static int emit_kdelta1(ASMState *as, Reg t, int32_t i) -{ - RegSet work = ~as->freeset & RSET_GPR; - while (work) { - Reg r = rset_picktop(work); - IRRef ref = regcost_ref(as->cost[r]); - lua_assert(r != t); - if (ref < ASMREF_L) { - int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); - if (checki16(delta)) { - emit_tsi(as, MIPSI_ADDIU, t, r, delta); - return 1; - } - } - rset_clear(work, r); - } - return 0; /* Failed. */ -} - -/* Load a 32 bit constant into a GPR. */ -static void emit_loadi(ASMState *as, Reg r, int32_t i) -{ - if (checki16(i)) { - emit_ti(as, MIPSI_LI, r, i); - } else { - if ((i & 0xffff)) { - int32_t jgl = i32ptr(J2G(as->J)); - if ((uint32_t)(i-jgl) < 65536) { - emit_tsi(as, MIPSI_ADDIU, r, RID_JGL, i-jgl-32768); - return; - } else if (emit_kdelta1(as, r, i)) { - return; - } else if ((i >> 16) == 0) { - emit_tsi(as, MIPSI_ORI, r, RID_ZERO, i); - return; - } - emit_tsi(as, MIPSI_ORI, r, r, i); - } - emit_ti(as, MIPSI_LUI, r, (i >> 16)); - } -} - -#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) - -static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); -static void ra_allockreg(ASMState *as, int32_t k, Reg r); - -/* Get/set from constant pointer. */ -static void emit_lsptr(ASMState *as, MIPSIns mi, Reg r, void *p, RegSet allow) -{ - int32_t jgl = i32ptr(J2G(as->J)); - int32_t i = i32ptr(p); - Reg base; - if ((uint32_t)(i-jgl) < 65536) { - i = i-jgl-32768; - base = RID_JGL; - } else { - base = ra_allock(as, i-(int16_t)i, allow); - } - emit_tsi(as, mi, r, base, i); -} - -#define emit_loadn(as, r, tv) \ - emit_lsptr(as, MIPSI_LDC1, ((r) & 31), (void *)(tv), RSET_GPR) - -/* Get/set global_State fields. */ -static void emit_lsglptr(ASMState *as, MIPSIns mi, Reg r, int32_t ofs) -{ - emit_tsi(as, mi, r, RID_JGL, ofs-32768); -} - -#define emit_getgl(as, r, field) \ - emit_lsglptr(as, MIPSI_LW, (r), (int32_t)offsetof(global_State, field)) -#define emit_setgl(as, r, field) \ - emit_lsglptr(as, MIPSI_SW, (r), (int32_t)offsetof(global_State, field)) - -/* Trace number is determined from per-trace exit stubs. */ -#define emit_setvmstate(as, i) UNUSED(i) - -/* -- Emit control-flow instructions -------------------------------------- */ - -/* Label for internal jumps. */ -typedef MCode *MCLabel; - -/* Return label pointing to current PC. */ -#define emit_label(as) ((as)->mcp) - -static void emit_branch(ASMState *as, MIPSIns mi, Reg rs, Reg rt, MCode *target) -{ - MCode *p = as->mcp; - ptrdiff_t delta = target - p; - lua_assert(((delta + 0x8000) >> 16) == 0); - *--p = mi | MIPSF_S(rs) | MIPSF_T(rt) | ((uint32_t)delta & 0xffffu); - as->mcp = p; -} - -static void emit_jmp(ASMState *as, MCode *target) -{ - *--as->mcp = MIPSI_NOP; - emit_branch(as, MIPSI_B, RID_ZERO, RID_ZERO, (target)); -} - -static void emit_call(ASMState *as, void *target) -{ - MCode *p = as->mcp; - *--p = MIPSI_NOP; - if ((((uintptr_t)target ^ (uintptr_t)p) >> 28) == 0) - *--p = MIPSI_JAL | (((uintptr_t)target >>2) & 0x03ffffffu); - else /* Target out of range: need indirect call. */ - *--p = MIPSI_JALR | MIPSF_S(RID_CFUNCADDR); - as->mcp = p; - ra_allockreg(as, i32ptr(target), RID_CFUNCADDR); -} - -/* -- Emit generic operations --------------------------------------------- */ - -#define emit_move(as, dst, src) \ - emit_ds(as, MIPSI_MOVE, (dst), (src)) - -/* Generic move between two regs. */ -static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) -{ - if (dst < RID_MAX_GPR) - emit_move(as, dst, src); - else - emit_fg(as, irt_isnum(ir->t) ? MIPSI_MOV_D : MIPSI_MOV_S, dst, src); -} - -/* Generic load of register with base and (small) offset address. */ -static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_tsi(as, MIPSI_LW, r, base, ofs); - else - emit_tsi(as, irt_isnum(ir->t) ? MIPSI_LDC1 : MIPSI_LWC1, - (r & 31), base, ofs); -} - -/* Generic store of register with base and (small) offset address. */ -static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_tsi(as, MIPSI_SW, r, base, ofs); - else - emit_tsi(as, irt_isnum(ir->t) ? MIPSI_SDC1 : MIPSI_SWC1, - (r&31), base, ofs); -} - -/* Add offset to pointer. */ -static void emit_addptr(ASMState *as, Reg r, int32_t ofs) -{ - if (ofs) { - lua_assert(checki16(ofs)); - emit_tsi(as, MIPSI_ADDIU, r, r, ofs); - } -} - -#define emit_spsub(as, ofs) emit_addptr(as, RID_SP, -(ofs)) - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h deleted file mode 100644 index 087860ed382..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_emit_ppc.h +++ /dev/null @@ -1,238 +0,0 @@ -/* -** PPC instruction emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Emit basic instructions --------------------------------------------- */ - -static void emit_tab(ASMState *as, PPCIns pi, Reg rt, Reg ra, Reg rb) -{ - *--as->mcp = pi | PPCF_T(rt) | PPCF_A(ra) | PPCF_B(rb); -} - -#define emit_asb(as, pi, ra, rs, rb) emit_tab(as, (pi), (rs), (ra), (rb)) -#define emit_as(as, pi, ra, rs) emit_tab(as, (pi), (rs), (ra), 0) -#define emit_ab(as, pi, ra, rb) emit_tab(as, (pi), 0, (ra), (rb)) - -static void emit_tai(ASMState *as, PPCIns pi, Reg rt, Reg ra, int32_t i) -{ - *--as->mcp = pi | PPCF_T(rt) | PPCF_A(ra) | (i & 0xffff); -} - -#define emit_ti(as, pi, rt, i) emit_tai(as, (pi), (rt), 0, (i)) -#define emit_ai(as, pi, ra, i) emit_tai(as, (pi), 0, (ra), (i)) -#define emit_asi(as, pi, ra, rs, i) emit_tai(as, (pi), (rs), (ra), (i)) - -#define emit_fab(as, pi, rf, ra, rb) \ - emit_tab(as, (pi), (rf)&31, (ra)&31, (rb)&31) -#define emit_fb(as, pi, rf, rb) emit_tab(as, (pi), (rf)&31, 0, (rb)&31) -#define emit_fac(as, pi, rf, ra, rc) \ - emit_tab(as, (pi) | PPCF_C((rc) & 31), (rf)&31, (ra)&31, 0) -#define emit_facb(as, pi, rf, ra, rc, rb) \ - emit_tab(as, (pi) | PPCF_C((rc) & 31), (rf)&31, (ra)&31, (rb)&31) -#define emit_fai(as, pi, rf, ra, i) emit_tai(as, (pi), (rf)&31, (ra), (i)) - -static void emit_rot(ASMState *as, PPCIns pi, Reg ra, Reg rs, - int32_t n, int32_t b, int32_t e) -{ - *--as->mcp = pi | PPCF_T(rs) | PPCF_A(ra) | PPCF_B(n) | - PPCF_MB(b) | PPCF_ME(e); -} - -static void emit_slwi(ASMState *as, Reg ra, Reg rs, int32_t n) -{ - lua_assert(n >= 0 && n < 32); - emit_rot(as, PPCI_RLWINM, ra, rs, n, 0, 31-n); -} - -static void emit_rotlwi(ASMState *as, Reg ra, Reg rs, int32_t n) -{ - lua_assert(n >= 0 && n < 32); - emit_rot(as, PPCI_RLWINM, ra, rs, n, 0, 31); -} - -/* -- Emit loads/stores --------------------------------------------------- */ - -/* Prefer rematerialization of BASE/L from global_State over spills. */ -#define emit_canremat(ref) ((ref) <= REF_BASE) - -/* Try to find a one step delta relative to another constant. */ -static int emit_kdelta1(ASMState *as, Reg t, int32_t i) -{ - RegSet work = ~as->freeset & RSET_GPR; - while (work) { - Reg r = rset_picktop(work); - IRRef ref = regcost_ref(as->cost[r]); - lua_assert(r != t); - if (ref < ASMREF_L) { - int32_t delta = i - (ra_iskref(ref) ? ra_krefk(as, ref) : IR(ref)->i); - if (checki16(delta)) { - emit_tai(as, PPCI_ADDI, t, r, delta); - return 1; - } - } - rset_clear(work, r); - } - return 0; /* Failed. */ -} - -/* Load a 32 bit constant into a GPR. */ -static void emit_loadi(ASMState *as, Reg r, int32_t i) -{ - if (checki16(i)) { - emit_ti(as, PPCI_LI, r, i); - } else { - if ((i & 0xffff)) { - int32_t jgl = i32ptr(J2G(as->J)); - if ((uint32_t)(i-jgl) < 65536) { - emit_tai(as, PPCI_ADDI, r, RID_JGL, i-jgl-32768); - return; - } else if (emit_kdelta1(as, r, i)) { - return; - } - emit_asi(as, PPCI_ORI, r, r, i); - } - emit_ti(as, PPCI_LIS, r, (i >> 16)); - } -} - -#define emit_loada(as, r, addr) emit_loadi(as, (r), i32ptr((addr))) - -static Reg ra_allock(ASMState *as, int32_t k, RegSet allow); - -/* Get/set from constant pointer. */ -static void emit_lsptr(ASMState *as, PPCIns pi, Reg r, void *p, RegSet allow) -{ - int32_t jgl = i32ptr(J2G(as->J)); - int32_t i = i32ptr(p); - Reg base; - if ((uint32_t)(i-jgl) < 65536) { - i = i-jgl-32768; - base = RID_JGL; - } else { - base = ra_allock(as, i-(int16_t)i, allow); - } - emit_tai(as, pi, r, base, i); -} - -#define emit_loadn(as, r, tv) \ - emit_lsptr(as, PPCI_LFD, ((r) & 31), (void *)(tv), RSET_GPR) - -/* Get/set global_State fields. */ -static void emit_lsglptr(ASMState *as, PPCIns pi, Reg r, int32_t ofs) -{ - emit_tai(as, pi, r, RID_JGL, ofs-32768); -} - -#define emit_getgl(as, r, field) \ - emit_lsglptr(as, PPCI_LWZ, (r), (int32_t)offsetof(global_State, field)) -#define emit_setgl(as, r, field) \ - emit_lsglptr(as, PPCI_STW, (r), (int32_t)offsetof(global_State, field)) - -/* Trace number is determined from per-trace exit stubs. */ -#define emit_setvmstate(as, i) UNUSED(i) - -/* -- Emit control-flow instructions -------------------------------------- */ - -/* Label for internal jumps. */ -typedef MCode *MCLabel; - -/* Return label pointing to current PC. */ -#define emit_label(as) ((as)->mcp) - -static void emit_condbranch(ASMState *as, PPCIns pi, PPCCC cc, MCode *target) -{ - MCode *p = --as->mcp; - ptrdiff_t delta = (char *)target - (char *)p; - lua_assert(((delta + 0x8000) >> 16) == 0); - pi ^= (delta & 0x8000) * (PPCF_Y/0x8000); - *p = pi | PPCF_CC(cc) | ((uint32_t)delta & 0xffffu); -} - -static void emit_jmp(ASMState *as, MCode *target) -{ - MCode *p = --as->mcp; - ptrdiff_t delta = (char *)target - (char *)p; - *p = PPCI_B | (delta & 0x03fffffcu); -} - -static void emit_call(ASMState *as, void *target) -{ - MCode *p = --as->mcp; - ptrdiff_t delta = (char *)target - (char *)p; - if ((((delta>>2) + 0x00800000) >> 24) == 0) { - *p = PPCI_BL | (delta & 0x03fffffcu); - } else { /* Target out of range: need indirect call. Don't use arg reg. */ - RegSet allow = RSET_GPR & ~RSET_RANGE(RID_R0, REGARG_LASTGPR+1); - Reg r = ra_allock(as, i32ptr(target), allow); - *p = PPCI_BCTRL; - p[-1] = PPCI_MTCTR | PPCF_T(r); - as->mcp = p-1; - } -} - -/* -- Emit generic operations --------------------------------------------- */ - -#define emit_mr(as, dst, src) \ - emit_asb(as, PPCI_MR, (dst), (src), (src)) - -/* Generic move between two regs. */ -static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) -{ - UNUSED(ir); - if (dst < RID_MAX_GPR) - emit_mr(as, dst, src); - else - emit_fb(as, PPCI_FMR, dst, src); -} - -/* Generic load of register with base and (small) offset address. */ -static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_tai(as, PPCI_LWZ, r, base, ofs); - else - emit_fai(as, irt_isnum(ir->t) ? PPCI_LFD : PPCI_LFS, r, base, ofs); -} - -/* Generic store of register with base and (small) offset address. */ -static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_tai(as, PPCI_STW, r, base, ofs); - else - emit_fai(as, irt_isnum(ir->t) ? PPCI_STFD : PPCI_STFS, r, base, ofs); -} - -/* Emit a compare (for equality) with a constant operand. */ -static void emit_cmpi(ASMState *as, Reg r, int32_t k) -{ - if (checki16(k)) { - emit_ai(as, PPCI_CMPWI, r, k); - } else if (checku16(k)) { - emit_ai(as, PPCI_CMPLWI, r, k); - } else { - emit_ai(as, PPCI_CMPLWI, RID_TMP, k); - emit_asi(as, PPCI_XORIS, RID_TMP, r, (k >> 16)); - } -} - -/* Add offset to pointer. */ -static void emit_addptr(ASMState *as, Reg r, int32_t ofs) -{ - if (ofs) { - emit_tai(as, PPCI_ADDI, r, r, ofs); - if (!checki16(ofs)) - emit_tai(as, PPCI_ADDIS, r, r, (ofs + 32768) >> 16); - } -} - -static void emit_spsub(ASMState *as, int32_t ofs) -{ - if (ofs) { - emit_tai(as, PPCI_STWU, RID_TMP, RID_SP, -ofs); - emit_tai(as, PPCI_ADDI, RID_TMP, RID_SP, - CFRAME_SIZE + (as->parent ? as->parent->spadjust : 0)); - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h deleted file mode 100644 index ac42db3e20f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_emit_x86.h +++ /dev/null @@ -1,462 +0,0 @@ -/* -** x86/x64 instruction emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -- Emit basic instructions --------------------------------------------- */ - -#define MODRM(mode, r1, r2) ((MCode)((mode)+(((r1)&7)<<3)+((r2)&7))) - -#if LJ_64 -#define REXRB(p, rr, rb) \ - { MCode rex = 0x40 + (((rr)>>1)&4) + (((rb)>>3)&1); \ - if (rex != 0x40) *--(p) = rex; } -#define FORCE_REX 0x200 -#define REX_64 (FORCE_REX|0x080000) -#else -#define REXRB(p, rr, rb) ((void)0) -#define FORCE_REX 0 -#define REX_64 0 -#endif - -#define emit_i8(as, i) (*--as->mcp = (MCode)(i)) -#define emit_i32(as, i) (*(int32_t *)(as->mcp-4) = (i), as->mcp -= 4) -#define emit_u32(as, u) (*(uint32_t *)(as->mcp-4) = (u), as->mcp -= 4) - -#define emit_x87op(as, xo) \ - (*(uint16_t *)(as->mcp-2) = (uint16_t)(xo), as->mcp -= 2) - -/* op */ -static LJ_AINLINE MCode *emit_op(x86Op xo, Reg rr, Reg rb, Reg rx, - MCode *p, int delta) -{ - int n = (int8_t)xo; -#if defined(__GNUC__) - if (__builtin_constant_p(xo) && n == -2) - p[delta-2] = (MCode)(xo >> 24); - else if (__builtin_constant_p(xo) && n == -3) - *(uint16_t *)(p+delta-3) = (uint16_t)(xo >> 16); - else -#endif - *(uint32_t *)(p+delta-5) = (uint32_t)xo; - p += n + delta; -#if LJ_64 - { - uint32_t rex = 0x40 + ((rr>>1)&(4+(FORCE_REX>>1)))+((rx>>2)&2)+((rb>>3)&1); - if (rex != 0x40) { - rex |= (rr >> 16); - if (n == -4) { *p = (MCode)rex; rex = (MCode)(xo >> 8); } - else if ((xo & 0xffffff) == 0x6600fd) { *p = (MCode)rex; rex = 0x66; } - *--p = (MCode)rex; - } - } -#else - UNUSED(rr); UNUSED(rb); UNUSED(rx); -#endif - return p; -} - -/* op + modrm */ -#define emit_opm(xo, mode, rr, rb, p, delta) \ - (p[(delta)-1] = MODRM((mode), (rr), (rb)), \ - emit_op((xo), (rr), (rb), 0, (p), (delta))) - -/* op + modrm + sib */ -#define emit_opmx(xo, mode, scale, rr, rb, rx, p) \ - (p[-1] = MODRM((scale), (rx), (rb)), \ - p[-2] = MODRM((mode), (rr), RID_ESP), \ - emit_op((xo), (rr), (rb), (rx), (p), -1)) - -/* op r1, r2 */ -static void emit_rr(ASMState *as, x86Op xo, Reg r1, Reg r2) -{ - MCode *p = as->mcp; - as->mcp = emit_opm(xo, XM_REG, r1, r2, p, 0); -} - -#if LJ_64 && defined(LUA_USE_ASSERT) -/* [addr] is sign-extended in x64 and must be in lower 2G (not 4G). */ -static int32_t ptr2addr(const void *p) -{ - lua_assert((uintptr_t)p < (uintptr_t)0x80000000); - return i32ptr(p); -} -#else -#define ptr2addr(p) (i32ptr((p))) -#endif - -/* op r, [addr] */ -static void emit_rma(ASMState *as, x86Op xo, Reg rr, const void *addr) -{ - MCode *p = as->mcp; - *(int32_t *)(p-4) = ptr2addr(addr); -#if LJ_64 - p[-5] = MODRM(XM_SCALE1, RID_ESP, RID_EBP); - as->mcp = emit_opm(xo, XM_OFS0, rr, RID_ESP, p, -5); -#else - as->mcp = emit_opm(xo, XM_OFS0, rr, RID_EBP, p, -4); -#endif -} - -/* op r, [base+ofs] */ -static void emit_rmro(ASMState *as, x86Op xo, Reg rr, Reg rb, int32_t ofs) -{ - MCode *p = as->mcp; - x86Mode mode; - if (ra_hasreg(rb)) { - if (ofs == 0 && (rb&7) != RID_EBP) { - mode = XM_OFS0; - } else if (checki8(ofs)) { - *--p = (MCode)ofs; - mode = XM_OFS8; - } else { - p -= 4; - *(int32_t *)p = ofs; - mode = XM_OFS32; - } - if ((rb&7) == RID_ESP) - *--p = MODRM(XM_SCALE1, RID_ESP, RID_ESP); - } else { - *(int32_t *)(p-4) = ofs; -#if LJ_64 - p[-5] = MODRM(XM_SCALE1, RID_ESP, RID_EBP); - p -= 5; - rb = RID_ESP; -#else - p -= 4; - rb = RID_EBP; -#endif - mode = XM_OFS0; - } - as->mcp = emit_opm(xo, mode, rr, rb, p, 0); -} - -/* op r, [base+idx*scale+ofs] */ -static void emit_rmrxo(ASMState *as, x86Op xo, Reg rr, Reg rb, Reg rx, - x86Mode scale, int32_t ofs) -{ - MCode *p = as->mcp; - x86Mode mode; - if (ofs == 0 && (rb&7) != RID_EBP) { - mode = XM_OFS0; - } else if (checki8(ofs)) { - mode = XM_OFS8; - *--p = (MCode)ofs; - } else { - mode = XM_OFS32; - p -= 4; - *(int32_t *)p = ofs; - } - as->mcp = emit_opmx(xo, mode, scale, rr, rb, rx, p); -} - -/* op r, i */ -static void emit_gri(ASMState *as, x86Group xg, Reg rb, int32_t i) -{ - MCode *p = as->mcp; - x86Op xo; - if (checki8(i)) { - *--p = (MCode)i; - xo = XG_TOXOi8(xg); - } else { - p -= 4; - *(int32_t *)p = i; - xo = XG_TOXOi(xg); - } - as->mcp = emit_opm(xo, XM_REG, (Reg)(xg & 7) | (rb & REX_64), rb, p, 0); -} - -/* op [base+ofs], i */ -static void emit_gmroi(ASMState *as, x86Group xg, Reg rb, int32_t ofs, - int32_t i) -{ - x86Op xo; - if (checki8(i)) { - emit_i8(as, i); - xo = XG_TOXOi8(xg); - } else { - emit_i32(as, i); - xo = XG_TOXOi(xg); - } - emit_rmro(as, xo, (Reg)(xg & 7), rb, ofs); -} - -#define emit_shifti(as, xg, r, i) \ - (emit_i8(as, (i)), emit_rr(as, XO_SHIFTi, (Reg)(xg), (r))) - -/* op r, rm/mrm */ -static void emit_mrm(ASMState *as, x86Op xo, Reg rr, Reg rb) -{ - MCode *p = as->mcp; - x86Mode mode = XM_REG; - if (rb == RID_MRM) { - rb = as->mrm.base; - if (rb == RID_NONE) { - rb = RID_EBP; - mode = XM_OFS0; - p -= 4; - *(int32_t *)p = as->mrm.ofs; - if (as->mrm.idx != RID_NONE) - goto mrmidx; -#if LJ_64 - *--p = MODRM(XM_SCALE1, RID_ESP, RID_EBP); - rb = RID_ESP; -#endif - } else { - if (as->mrm.ofs == 0 && (rb&7) != RID_EBP) { - mode = XM_OFS0; - } else if (checki8(as->mrm.ofs)) { - *--p = (MCode)as->mrm.ofs; - mode = XM_OFS8; - } else { - p -= 4; - *(int32_t *)p = as->mrm.ofs; - mode = XM_OFS32; - } - if (as->mrm.idx != RID_NONE) { - mrmidx: - as->mcp = emit_opmx(xo, mode, as->mrm.scale, rr, rb, as->mrm.idx, p); - return; - } - if ((rb&7) == RID_ESP) - *--p = MODRM(XM_SCALE1, RID_ESP, RID_ESP); - } - } - as->mcp = emit_opm(xo, mode, rr, rb, p, 0); -} - -/* op rm/mrm, i */ -static void emit_gmrmi(ASMState *as, x86Group xg, Reg rb, int32_t i) -{ - x86Op xo; - if (checki8(i)) { - emit_i8(as, i); - xo = XG_TOXOi8(xg); - } else { - emit_i32(as, i); - xo = XG_TOXOi(xg); - } - emit_mrm(as, xo, (Reg)(xg & 7) | (rb & REX_64), (rb & ~REX_64)); -} - -/* -- Emit loads/stores --------------------------------------------------- */ - -/* mov [base+ofs], i */ -static void emit_movmroi(ASMState *as, Reg base, int32_t ofs, int32_t i) -{ - emit_i32(as, i); - emit_rmro(as, XO_MOVmi, 0, base, ofs); -} - -/* mov [base+ofs], r */ -#define emit_movtomro(as, r, base, ofs) \ - emit_rmro(as, XO_MOVto, (r), (base), (ofs)) - -/* Get/set global_State fields. */ -#define emit_opgl(as, xo, r, field) \ - emit_rma(as, (xo), (r), (void *)&J2G(as->J)->field) -#define emit_getgl(as, r, field) emit_opgl(as, XO_MOV, (r), field) -#define emit_setgl(as, r, field) emit_opgl(as, XO_MOVto, (r), field) - -#define emit_setvmstate(as, i) \ - (emit_i32(as, i), emit_opgl(as, XO_MOVmi, 0, vmstate)) - -/* mov r, i / xor r, r */ -static void emit_loadi(ASMState *as, Reg r, int32_t i) -{ - /* XOR r,r is shorter, but modifies the flags. This is bad for HIOP. */ - if (i == 0 && !(LJ_32 && (IR(as->curins)->o == IR_HIOP || - (as->curins+1 < as->T->nins && - IR(as->curins+1)->o == IR_HIOP)))) { - emit_rr(as, XO_ARITH(XOg_XOR), r, r); - } else { - MCode *p = as->mcp; - *(int32_t *)(p-4) = i; - p[-5] = (MCode)(XI_MOVri+(r&7)); - p -= 5; - REXRB(p, 0, r); - as->mcp = p; - } -} - -/* mov r, addr */ -#define emit_loada(as, r, addr) \ - emit_loadi(as, (r), ptr2addr((addr))) - -#if LJ_64 -/* mov r, imm64 or shorter 32 bit extended load. */ -static void emit_loadu64(ASMState *as, Reg r, uint64_t u64) -{ - if (checku32(u64)) { /* 32 bit load clears upper 32 bits. */ - emit_loadi(as, r, (int32_t)u64); - } else if (checki32((int64_t)u64)) { /* Sign-extended 32 bit load. */ - MCode *p = as->mcp; - *(int32_t *)(p-4) = (int32_t)u64; - as->mcp = emit_opm(XO_MOVmi, XM_REG, REX_64, r, p, -4); - } else { /* Full-size 64 bit load. */ - MCode *p = as->mcp; - *(uint64_t *)(p-8) = u64; - p[-9] = (MCode)(XI_MOVri+(r&7)); - p[-10] = 0x48 + ((r>>3)&1); - p -= 10; - as->mcp = p; - } -} -#endif - -/* movsd r, [&tv->n] / xorps r, r */ -static void emit_loadn(ASMState *as, Reg r, cTValue *tv) -{ - if (tvispzero(tv)) /* Use xor only for +0. */ - emit_rr(as, XO_XORPS, r, r); - else - emit_rma(as, XO_MOVSD, r, &tv->n); -} - -/* -- Emit control-flow instructions -------------------------------------- */ - -/* Label for short jumps. */ -typedef MCode *MCLabel; - -#if LJ_32 && LJ_HASFFI -/* jmp short target */ -static void emit_sjmp(ASMState *as, MCLabel target) -{ - MCode *p = as->mcp; - ptrdiff_t delta = target - p; - lua_assert(delta == (int8_t)delta); - p[-1] = (MCode)(int8_t)delta; - p[-2] = XI_JMPs; - as->mcp = p - 2; -} -#endif - -/* jcc short target */ -static void emit_sjcc(ASMState *as, int cc, MCLabel target) -{ - MCode *p = as->mcp; - ptrdiff_t delta = target - p; - lua_assert(delta == (int8_t)delta); - p[-1] = (MCode)(int8_t)delta; - p[-2] = (MCode)(XI_JCCs+(cc&15)); - as->mcp = p - 2; -} - -/* jcc short (pending target) */ -static MCLabel emit_sjcc_label(ASMState *as, int cc) -{ - MCode *p = as->mcp; - p[-1] = 0; - p[-2] = (MCode)(XI_JCCs+(cc&15)); - as->mcp = p - 2; - return p; -} - -/* Fixup jcc short target. */ -static void emit_sfixup(ASMState *as, MCLabel source) -{ - source[-1] = (MCode)(as->mcp-source); -} - -/* Return label pointing to current PC. */ -#define emit_label(as) ((as)->mcp) - -/* Compute relative 32 bit offset for jump and call instructions. */ -static LJ_AINLINE int32_t jmprel(MCode *p, MCode *target) -{ - ptrdiff_t delta = target - p; - lua_assert(delta == (int32_t)delta); - return (int32_t)delta; -} - -/* jcc target */ -static void emit_jcc(ASMState *as, int cc, MCode *target) -{ - MCode *p = as->mcp; - *(int32_t *)(p-4) = jmprel(p, target); - p[-5] = (MCode)(XI_JCCn+(cc&15)); - p[-6] = 0x0f; - as->mcp = p - 6; -} - -/* jmp target */ -static void emit_jmp(ASMState *as, MCode *target) -{ - MCode *p = as->mcp; - *(int32_t *)(p-4) = jmprel(p, target); - p[-5] = XI_JMP; - as->mcp = p - 5; -} - -/* call target */ -static void emit_call_(ASMState *as, MCode *target) -{ - MCode *p = as->mcp; -#if LJ_64 - if (target-p != (int32_t)(target-p)) { - /* Assumes RID_RET is never an argument to calls and always clobbered. */ - emit_rr(as, XO_GROUP5, XOg_CALL, RID_RET); - emit_loadu64(as, RID_RET, (uint64_t)target); - return; - } -#endif - *(int32_t *)(p-4) = jmprel(p, target); - p[-5] = XI_CALL; - as->mcp = p - 5; -} - -#define emit_call(as, f) emit_call_(as, (MCode *)(void *)(f)) - -/* -- Emit generic operations --------------------------------------------- */ - -/* Use 64 bit operations to handle 64 bit IR types. */ -#if LJ_64 -#define REX_64IR(ir, r) ((r) + (irt_is64((ir)->t) ? REX_64 : 0)) -#else -#define REX_64IR(ir, r) (r) -#endif - -/* Generic move between two regs. */ -static void emit_movrr(ASMState *as, IRIns *ir, Reg dst, Reg src) -{ - UNUSED(ir); - if (dst < RID_MAX_GPR) - emit_rr(as, XO_MOV, REX_64IR(ir, dst), src); - else - emit_rr(as, XO_MOVAPS, dst, src); -} - -/* Generic load of register with base and (small) offset address. */ -static void emit_loadofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_rmro(as, XO_MOV, REX_64IR(ir, r), base, ofs); - else - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSD : XO_MOVSS, r, base, ofs); -} - -/* Generic store of register with base and (small) offset address. */ -static void emit_storeofs(ASMState *as, IRIns *ir, Reg r, Reg base, int32_t ofs) -{ - if (r < RID_MAX_GPR) - emit_rmro(as, XO_MOVto, REX_64IR(ir, r), base, ofs); - else - emit_rmro(as, irt_isnum(ir->t) ? XO_MOVSDto : XO_MOVSSto, r, base, ofs); -} - -/* Add offset to pointer. */ -static void emit_addptr(ASMState *as, Reg r, int32_t ofs) -{ - if (ofs) { - if ((as->flags & JIT_F_LEA_AGU)) - emit_rmro(as, XO_LEA, r, r, ofs); - else - emit_gri(as, XG_ARITHi(XOg_ADD), r, ofs); - } -} - -#define emit_spsub(as, ofs) emit_addptr(as, RID_ESP|REX_64, -(ofs)) - -/* Prefer rematerialization of BASE/L from global_State over spills. */ -#define emit_canremat(ref) ((ref) <= REF_BASE) - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_err.c b/src/3rd party/luajit-2.0-BAK/src/lj_err.c deleted file mode 100644 index e67356e9521..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_err.c +++ /dev/null @@ -1,780 +0,0 @@ -/* -** Error handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_err_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_str.h" -#include "lj_func.h" -#include "lj_state.h" -#include "lj_frame.h" -#include "lj_ff.h" -#include "lj_trace.h" -#include "lj_vm.h" -#include "lj_strfmt.h" - -/* -** LuaJIT can either use internal or external frame unwinding: -** -** - Internal frame unwinding (INT) is free-standing and doesn't require -** any OS or library support. -** -** - External frame unwinding (EXT) uses the system-provided unwind handler. -** -** Pros and Cons: -** -** - EXT requires unwind tables for *all* functions on the C stack between -** the pcall/catch and the error/throw. This is the default on x64, -** but needs to be manually enabled on x86/PPC for non-C++ code. -** -** - INT is faster when actually throwing errors (but this happens rarely). -** Setting up error handlers is zero-cost in any case. -** -** - EXT provides full interoperability with C++ exceptions. You can throw -** Lua errors or C++ exceptions through a mix of Lua frames and C++ frames. -** C++ destructors are called as needed. C++ exceptions caught by pcall -** are converted to the string "C++ exception". Lua errors can be caught -** with catch (...) in C++. -** -** - INT has only limited support for automatically catching C++ exceptions -** on POSIX systems using DWARF2 stack unwinding. Other systems may use -** the wrapper function feature. Lua errors thrown through C++ frames -** cannot be caught by C++ code and C++ destructors are not run. -** -** EXT is the default on x64 systems, INT is the default on all other systems. -** -** EXT can be manually enabled on POSIX systems using GCC and DWARF2 stack -** unwinding with -DLUAJIT_UNWIND_EXTERNAL. *All* C code must be compiled -** with -funwind-tables (or -fexceptions). This includes LuaJIT itself (set -** TARGET_CFLAGS), all of your C/Lua binding code, all loadable C modules -** and all C libraries that have callbacks which may be used to call back -** into Lua. C++ code must *not* be compiled with -fno-exceptions. -** -** EXT cannot be enabled on WIN32 since system exceptions use code-driven SEH. -** EXT is mandatory on WIN64 since the calling convention has an abundance -** of callee-saved registers (rbx, rbp, rsi, rdi, r12-r15, xmm6-xmm15). -** EXT is mandatory on POSIX/x64 since the interpreter doesn't save r12/r13. -*/ - -#if defined(__GNUC__) && (LJ_TARGET_X64 || defined(LUAJIT_UNWIND_EXTERNAL)) -#define LJ_UNWIND_EXT 1 -#elif LJ_TARGET_X64 && LJ_TARGET_WINDOWS -#define LJ_UNWIND_EXT 1 -#endif - -/* -- Error messages ------------------------------------------------------ */ - -/* Error message strings. */ -LJ_DATADEF const char *lj_err_allmsg = -#define ERRDEF(name, msg) msg "\0" -#include "lj_errmsg.h" -; - -/* -- Internal frame unwinding -------------------------------------------- */ - -/* Unwind Lua stack and move error message to new top. */ -LJ_NOINLINE static void unwindstack(lua_State *L, TValue *top) -{ - lj_func_closeuv(L, top); - if (top < L->top-1) { - copyTV(L, top, L->top-1); - L->top = top+1; - } - lj_state_relimitstack(L); -} - -/* Unwind until stop frame. Optionally cleanup frames. */ -static void *err_unwind(lua_State *L, void *stopcf, int errcode) -{ - TValue *frame = L->base-1; - void *cf = L->cframe; - while (cf) { - int32_t nres = cframe_nres(cframe_raw(cf)); - if (nres < 0) { /* C frame without Lua frame? */ - TValue *top = restorestack(L, -nres); - if (frame < top) { /* Frame reached? */ - if (errcode) { - L->base = frame+1; - L->cframe = cframe_prev(cf); - unwindstack(L, top); - } - return cf; - } - } - if (frame <= tvref(L->stack)+LJ_FR2) - break; - switch (frame_typep(frame)) { - case FRAME_LUA: /* Lua frame. */ - case FRAME_LUAP: - frame = frame_prevl(frame); - break; - case FRAME_C: /* C frame. */ - unwind_c: -#if LJ_UNWIND_EXT - if (errcode) { - L->base = frame_prevd(frame) + 1; - L->cframe = cframe_prev(cf); - unwindstack(L, frame); - } else if (cf != stopcf) { - cf = cframe_prev(cf); - frame = frame_prevd(frame); - break; - } - return NULL; /* Continue unwinding. */ -#else - UNUSED(stopcf); - cf = cframe_prev(cf); - frame = frame_prevd(frame); - break; -#endif - case FRAME_CP: /* Protected C frame. */ - if (cframe_canyield(cf)) { /* Resume? */ - if (errcode) { - hook_leave(G(L)); /* Assumes nobody uses coroutines inside hooks. */ - L->cframe = NULL; - L->status = (uint8_t)errcode; - } - return cf; - } - if (errcode) { - L->base = frame_prevd(frame) + 1; - L->cframe = cframe_prev(cf); - unwindstack(L, frame); - } - return cf; - case FRAME_CONT: /* Continuation frame. */ - if (frame_iscont_fficb(frame)) - goto unwind_c; - case FRAME_VARG: /* Vararg frame. */ - frame = frame_prevd(frame); - break; - case FRAME_PCALL: /* FF pcall() frame. */ - case FRAME_PCALLH: /* FF pcall() frame inside hook. */ - if (errcode) { - if (errcode == LUA_YIELD) { - frame = frame_prevd(frame); - break; - } - if (frame_typep(frame) == FRAME_PCALL) - hook_leave(G(L)); - L->base = frame_prevd(frame) + 1; - L->cframe = cf; - unwindstack(L, L->base); - } - return (void *)((intptr_t)cf | CFRAME_UNWIND_FF); - } - } - /* No C frame. */ - if (errcode) { - L->base = tvref(L->stack)+1+LJ_FR2; - L->cframe = NULL; - unwindstack(L, L->base); - if (G(L)->panic) - G(L)->panic(L); - exit(EXIT_FAILURE); - } - return L; /* Anything non-NULL will do. */ -} - -/* -- External frame unwinding -------------------------------------------- */ - -#if defined(__GNUC__) && !LJ_NO_UNWIND && !LJ_TARGET_WINDOWS - -/* -** We have to use our own definitions instead of the mandatory (!) unwind.h, -** since various OS, distros and compilers mess up the header installation. -*/ - -typedef struct _Unwind_Exception -{ - uint64_t exclass; - void (*excleanup)(int, struct _Unwind_Exception *); - uintptr_t p1, p2; -} __attribute__((__aligned__)) _Unwind_Exception; - -typedef struct _Unwind_Context _Unwind_Context; - -#define _URC_OK 0 -#define _URC_FATAL_PHASE1_ERROR 3 -#define _URC_HANDLER_FOUND 6 -#define _URC_INSTALL_CONTEXT 7 -#define _URC_CONTINUE_UNWIND 8 -#define _URC_FAILURE 9 - -#if !LJ_TARGET_ARM - -extern uintptr_t _Unwind_GetCFA(_Unwind_Context *); -extern void _Unwind_SetGR(_Unwind_Context *, int, uintptr_t); -extern void _Unwind_SetIP(_Unwind_Context *, uintptr_t); -extern void _Unwind_DeleteException(_Unwind_Exception *); -extern int _Unwind_RaiseException(_Unwind_Exception *); - -#define _UA_SEARCH_PHASE 1 -#define _UA_CLEANUP_PHASE 2 -#define _UA_HANDLER_FRAME 4 -#define _UA_FORCE_UNWIND 8 - -#define LJ_UEXCLASS 0x4c55414a49543200ULL /* LUAJIT2\0 */ -#define LJ_UEXCLASS_MAKE(c) (LJ_UEXCLASS | (uint64_t)(c)) -#define LJ_UEXCLASS_CHECK(cl) (((cl) ^ LJ_UEXCLASS) <= 0xff) -#define LJ_UEXCLASS_ERRCODE(cl) ((int)((cl) & 0xff)) - -/* DWARF2 personality handler referenced from interpreter .eh_frame. */ -LJ_FUNCA int lj_err_unwind_dwarf(int version, int actions, - uint64_t uexclass, _Unwind_Exception *uex, _Unwind_Context *ctx) -{ - void *cf; - lua_State *L; - if (version != 1) - return _URC_FATAL_PHASE1_ERROR; - UNUSED(uexclass); - cf = (void *)_Unwind_GetCFA(ctx); - L = cframe_L(cf); - if ((actions & _UA_SEARCH_PHASE)) { -#if LJ_UNWIND_EXT - if (err_unwind(L, cf, 0) == NULL) - return _URC_CONTINUE_UNWIND; -#endif - if (!LJ_UEXCLASS_CHECK(uexclass)) { - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); - } - return _URC_HANDLER_FOUND; - } - if ((actions & _UA_CLEANUP_PHASE)) { - int errcode; - if (LJ_UEXCLASS_CHECK(uexclass)) { - errcode = LJ_UEXCLASS_ERRCODE(uexclass); - } else { - if ((actions & _UA_HANDLER_FRAME)) - _Unwind_DeleteException(uex); - errcode = LUA_ERRRUN; - } -#if LJ_UNWIND_EXT - cf = err_unwind(L, cf, errcode); - if ((actions & _UA_FORCE_UNWIND)) { - return _URC_CONTINUE_UNWIND; - } else if (cf) { - _Unwind_SetGR(ctx, LJ_TARGET_EHRETREG, errcode); - _Unwind_SetIP(ctx, (uintptr_t)(cframe_unwind_ff(cf) ? - lj_vm_unwind_ff_eh : - lj_vm_unwind_c_eh)); - return _URC_INSTALL_CONTEXT; - } -#if LJ_TARGET_X86ORX64 - else if ((actions & _UA_HANDLER_FRAME)) { - /* Workaround for ancient libgcc bug. Still present in RHEL 5.5. :-/ - ** Real fix: http://gcc.gnu.org/viewcvs/trunk/gcc/unwind-dw2.c?r1=121165&r2=124837&pathrev=153877&diff_format=h - */ - _Unwind_SetGR(ctx, LJ_TARGET_EHRETREG, errcode); - _Unwind_SetIP(ctx, (uintptr_t)lj_vm_unwind_rethrow); - return _URC_INSTALL_CONTEXT; - } -#endif -#else - /* This is not the proper way to escape from the unwinder. We get away with - ** it on non-x64 because the interpreter restores all callee-saved regs. - */ - lj_err_throw(L, errcode); -#endif - } - return _URC_CONTINUE_UNWIND; -} - -#if LJ_UNWIND_EXT -#if LJ_TARGET_OSX || defined(__OpenBSD__) -/* Sorry, no thread safety for OSX. Complain to Apple, not me. */ -static _Unwind_Exception static_uex; -#else -static __thread _Unwind_Exception static_uex; -#endif - -/* Raise DWARF2 exception. */ -static void err_raise_ext(int errcode) -{ - static_uex.exclass = LJ_UEXCLASS_MAKE(errcode); - static_uex.excleanup = NULL; - _Unwind_RaiseException(&static_uex); -} -#endif - -#else - -extern void _Unwind_DeleteException(void *); -extern int __gnu_unwind_frame (void *, _Unwind_Context *); -extern int _Unwind_VRS_Set(_Unwind_Context *, int, uint32_t, int, void *); -extern int _Unwind_VRS_Get(_Unwind_Context *, int, uint32_t, int, void *); - -static inline uint32_t _Unwind_GetGR(_Unwind_Context *ctx, int r) -{ - uint32_t v; - _Unwind_VRS_Get(ctx, 0, r, 0, &v); - return v; -} - -static inline void _Unwind_SetGR(_Unwind_Context *ctx, int r, uint32_t v) -{ - _Unwind_VRS_Set(ctx, 0, r, 0, &v); -} - -#define _US_VIRTUAL_UNWIND_FRAME 0 -#define _US_UNWIND_FRAME_STARTING 1 -#define _US_ACTION_MASK 3 -#define _US_FORCE_UNWIND 8 - -/* ARM unwinder personality handler referenced from interpreter .ARM.extab. */ -LJ_FUNCA int lj_err_unwind_arm(int state, void *ucb, _Unwind_Context *ctx) -{ - void *cf = (void *)_Unwind_GetGR(ctx, 13); - lua_State *L = cframe_L(cf); - if ((state & _US_ACTION_MASK) == _US_VIRTUAL_UNWIND_FRAME) { - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); - return _URC_HANDLER_FOUND; - } - if ((state&(_US_ACTION_MASK|_US_FORCE_UNWIND)) == _US_UNWIND_FRAME_STARTING) { - _Unwind_DeleteException(ucb); - _Unwind_SetGR(ctx, 15, (uint32_t)(void *)lj_err_throw); - _Unwind_SetGR(ctx, 0, (uint32_t)L); - _Unwind_SetGR(ctx, 1, (uint32_t)LUA_ERRRUN); - return _URC_INSTALL_CONTEXT; - } - if (__gnu_unwind_frame(ucb, ctx) != _URC_OK) - return _URC_FAILURE; - return _URC_CONTINUE_UNWIND; -} - -#endif - -#elif LJ_TARGET_X64 && LJ_TARGET_WINDOWS - -/* -** Someone in Redmond owes me several days of my life. A lot of this is -** undocumented or just plain wrong on MSDN. Some of it can be gathered -** from 3rd party docs or must be found by trial-and-error. They really -** don't want you to write your own language-specific exception handler -** or to interact gracefully with MSVC. :-( -** -** Apparently MSVC doesn't call C++ destructors for foreign exceptions -** unless you compile your C++ code with /EHa. Unfortunately this means -** catch (...) also catches things like access violations. The use of -** _set_se_translator doesn't really help, because it requires /EHa, too. -*/ - -#define WIN32_LEAN_AND_MEAN -#include - -/* Taken from: http://www.nynaeve.net/?p=99 */ -typedef struct UndocumentedDispatcherContext { - ULONG64 ControlPc; - ULONG64 ImageBase; - PRUNTIME_FUNCTION FunctionEntry; - ULONG64 EstablisherFrame; - ULONG64 TargetIp; - PCONTEXT ContextRecord; - void (*LanguageHandler)(void); - PVOID HandlerData; - PUNWIND_HISTORY_TABLE HistoryTable; - ULONG ScopeIndex; - ULONG Fill0; -} UndocumentedDispatcherContext; - -/* Another wild guess. */ -extern void __DestructExceptionObject(EXCEPTION_RECORD *rec, int nothrow); - -#ifdef MINGW_SDK_INIT -/* Workaround for broken MinGW64 declaration. */ -VOID RtlUnwindEx_FIXED(PVOID,PVOID,PVOID,PVOID,PVOID,PVOID) asm("RtlUnwindEx"); -#define RtlUnwindEx RtlUnwindEx_FIXED -#endif - -#define LJ_MSVC_EXCODE ((DWORD)0xe06d7363) -#define LJ_GCC_EXCODE ((DWORD)0x20474343) - -#define LJ_EXCODE ((DWORD)0xe24c4a00) -#define LJ_EXCODE_MAKE(c) (LJ_EXCODE | (DWORD)(c)) -#define LJ_EXCODE_CHECK(cl) (((cl) ^ LJ_EXCODE) <= 0xff) -#define LJ_EXCODE_ERRCODE(cl) ((int)((cl) & 0xff)) - -/* Win64 exception handler for interpreter frame. */ -LJ_FUNCA EXCEPTION_DISPOSITION lj_err_unwind_win64(EXCEPTION_RECORD *rec, - void *cf, CONTEXT *ctx, UndocumentedDispatcherContext *dispatch) -{ - lua_State *L = cframe_L(cf); - int errcode = LJ_EXCODE_CHECK(rec->ExceptionCode) ? - LJ_EXCODE_ERRCODE(rec->ExceptionCode) : LUA_ERRRUN; - if ((rec->ExceptionFlags & 6)) { /* EH_UNWINDING|EH_EXIT_UNWIND */ - /* Unwind internal frames. */ - err_unwind(L, cf, errcode); - } else { - void *cf2 = err_unwind(L, cf, 0); - if (cf2) { /* We catch it, so start unwinding the upper frames. */ - if (rec->ExceptionCode == LJ_MSVC_EXCODE || - rec->ExceptionCode == LJ_GCC_EXCODE) { - __DestructExceptionObject(rec, 1); - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRCPP)); - } else if (!LJ_EXCODE_CHECK(rec->ExceptionCode)) { - /* Don't catch access violations etc. */ - return ExceptionContinueSearch; - } - /* Unwind the stack and call all handlers for all lower C frames - ** (including ourselves) again with EH_UNWINDING set. Then set - ** rsp = cf, rax = errcode and jump to the specified target. - */ - RtlUnwindEx(cf, (void *)((cframe_unwind_ff(cf2) && errcode != LUA_YIELD) ? - lj_vm_unwind_ff_eh : - lj_vm_unwind_c_eh), - rec, (void *)(uintptr_t)errcode, ctx, dispatch->HistoryTable); - /* RtlUnwindEx should never return. */ - } - } - return ExceptionContinueSearch; -} - -/* Raise Windows exception. */ -static void err_raise_ext(int errcode) -{ - RaiseException(LJ_EXCODE_MAKE(errcode), 1 /* EH_NONCONTINUABLE */, 0, NULL); -} - -#endif - -/* -- Error handling ------------------------------------------------------ */ - -/* Throw error. Find catch frame, unwind stack and continue. */ -LJ_NOINLINE void LJ_FASTCALL lj_err_throw(lua_State *L, int errcode) -{ - global_State *g = G(L); - lj_trace_abort(g); - setmref(g->jit_base, NULL); - L->status = 0; -#if LJ_UNWIND_EXT - err_raise_ext(errcode); - /* - ** A return from this function signals a corrupt C stack that cannot be - ** unwound. We have no choice but to call the panic function and exit. - ** - ** Usually this is caused by a C function without unwind information. - ** This should never happen on x64, but may happen if you've manually - ** enabled LUAJIT_UNWIND_EXTERNAL and forgot to recompile *every* - ** non-C++ file with -funwind-tables. - */ - if (G(L)->panic) - G(L)->panic(L); -#else - { - void *cf = err_unwind(L, NULL, errcode); - if (cframe_unwind_ff(cf)) - lj_vm_unwind_ff(cframe_raw(cf)); - else - lj_vm_unwind_c(cframe_raw(cf), errcode); - } -#endif - exit(EXIT_FAILURE); -} - -/* Return string object for error message. */ -LJ_NOINLINE GCstr *lj_err_str(lua_State *L, ErrMsg em) -{ - return lj_str_newz(L, err2msg(em)); -} - -/* Out-of-memory error. */ -LJ_NOINLINE void lj_err_mem(lua_State *L) -{ - if (L->status == LUA_ERRERR+1) /* Don't touch the stack during lua_open. */ - lj_vm_unwind_c(L->cframe, LUA_ERRMEM); - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_ERRMEM)); - lj_err_throw(L, LUA_ERRMEM); -} - -/* Find error function for runtime errors. Requires an extra stack traversal. */ -static ptrdiff_t finderrfunc(lua_State *L) -{ - cTValue *frame = L->base-1, *bot = tvref(L->stack)+LJ_FR2; - void *cf = L->cframe; - while (frame > bot && cf) { - while (cframe_nres(cframe_raw(cf)) < 0) { /* cframe without frame? */ - if (frame >= restorestack(L, -cframe_nres(cf))) - break; - if (cframe_errfunc(cf) >= 0) /* Error handler not inherited (-1)? */ - return cframe_errfunc(cf); - cf = cframe_prev(cf); /* Else unwind cframe and continue searching. */ - if (cf == NULL) - return 0; - } - switch (frame_typep(frame)) { - case FRAME_LUA: - case FRAME_LUAP: - frame = frame_prevl(frame); - break; - case FRAME_C: - cf = cframe_prev(cf); - /* fallthrough */ - case FRAME_VARG: - frame = frame_prevd(frame); - break; - case FRAME_CONT: - if (frame_iscont_fficb(frame)) - cf = cframe_prev(cf); - frame = frame_prevd(frame); - break; - case FRAME_CP: - if (cframe_canyield(cf)) return 0; - if (cframe_errfunc(cf) >= 0) - return cframe_errfunc(cf); - frame = frame_prevd(frame); - break; - case FRAME_PCALL: - case FRAME_PCALLH: - if (frame_func(frame_prevd(frame))->c.ffid == FF_xpcall) - return savestack(L, frame_prevd(frame)+1); /* xpcall's errorfunc. */ - return 0; - default: - lua_assert(0); - return 0; - } - } - return 0; -} - -/* Runtime error. */ -LJ_NOINLINE void lj_err_run(lua_State *L) -{ - ptrdiff_t ef = finderrfunc(L); - if (ef) { - TValue *errfunc = restorestack(L, ef); - TValue *top = L->top; - lj_trace_abort(G(L)); - if (!tvisfunc(errfunc) || L->status == LUA_ERRERR) { - setstrV(L, top-1, lj_err_str(L, LJ_ERR_ERRERR)); - lj_err_throw(L, LUA_ERRERR); - } - L->status = LUA_ERRERR; - copyTV(L, top+LJ_FR2, top-1); - copyTV(L, top-1, errfunc); - if (LJ_FR2) setnilV(top++); - L->top = top+1; - lj_vm_call(L, top, 1+1); /* Stack: |errfunc|msg| -> |msg| */ - } - lj_err_throw(L, LUA_ERRRUN); -} - -/* Formatted runtime error message. */ -LJ_NORET LJ_NOINLINE static void err_msgv(lua_State *L, ErrMsg em, ...) -{ - const char *msg; - va_list argp; - va_start(argp, em); - if (curr_funcisL(L)) L->top = curr_topL(L); - msg = lj_strfmt_pushvf(L, err2msg(em), argp); - va_end(argp); - lj_debug_addloc(L, msg, L->base-1, NULL); - lj_err_run(L); -} - -/* Non-vararg variant for better calling conventions. */ -LJ_NOINLINE void lj_err_msg(lua_State *L, ErrMsg em) -{ - err_msgv(L, em); -} - -/* Lexer error. */ -LJ_NOINLINE void lj_err_lex(lua_State *L, GCstr *src, const char *tok, - BCLine line, ErrMsg em, va_list argp) -{ - char buff[LUA_IDSIZE]; - const char *msg; - lj_debug_shortname(buff, src, line); - msg = lj_strfmt_pushvf(L, err2msg(em), argp); - msg = lj_strfmt_pushf(L, "%s:%d: %s", buff, line, msg); - if (tok) - lj_strfmt_pushf(L, err2msg(LJ_ERR_XNEAR), msg, tok); - lj_err_throw(L, LUA_ERRSYNTAX); -} - -/* Typecheck error for operands. */ -LJ_NOINLINE void lj_err_optype(lua_State *L, cTValue *o, ErrMsg opm) -{ - const char *tname = lj_typename(o); - const char *opname = err2msg(opm); - if (curr_funcisL(L)) { - GCproto *pt = curr_proto(L); - const BCIns *pc = cframe_Lpc(L) - 1; - const char *oname = NULL; - const char *kind = lj_debug_slotname(pt, pc, (BCReg)(o-L->base), &oname); - if (kind) - err_msgv(L, LJ_ERR_BADOPRT, opname, kind, oname, tname); - } - err_msgv(L, LJ_ERR_BADOPRV, opname, tname); -} - -/* Typecheck error for ordered comparisons. */ -LJ_NOINLINE void lj_err_comp(lua_State *L, cTValue *o1, cTValue *o2) -{ - const char *t1 = lj_typename(o1); - const char *t2 = lj_typename(o2); - err_msgv(L, t1 == t2 ? LJ_ERR_BADCMPV : LJ_ERR_BADCMPT, t1, t2); - /* This assumes the two "boolean" entries are commoned by the C compiler. */ -} - -/* Typecheck error for __call. */ -LJ_NOINLINE void lj_err_optype_call(lua_State *L, TValue *o) -{ - /* Gross hack if lua_[p]call or pcall/xpcall fail for a non-callable object: - ** L->base still points to the caller. So add a dummy frame with L instead - ** of a function. See lua_getstack(). - */ - const BCIns *pc = cframe_Lpc(L); - if (((ptrdiff_t)pc & FRAME_TYPE) != FRAME_LUA) { - const char *tname = lj_typename(o); - if (LJ_FR2) o++; - setframe_pc(o, pc); - setframe_gc(o, obj2gco(L), LJ_TTHREAD); - L->top = L->base = o+1; - err_msgv(L, LJ_ERR_BADCALL, tname); - } - lj_err_optype(L, o, LJ_ERR_OPCALL); -} - -/* Error in context of caller. */ -LJ_NOINLINE void lj_err_callermsg(lua_State *L, const char *msg) -{ - TValue *frame = L->base-1; - TValue *pframe = NULL; - if (frame_islua(frame)) { - pframe = frame_prevl(frame); - } else if (frame_iscont(frame)) { - if (frame_iscont_fficb(frame)) { - pframe = frame; - frame = NULL; - } else { - pframe = frame_prevd(frame); -#if LJ_HASFFI - /* Remove frame for FFI metamethods. */ - if (frame_func(frame)->c.ffid >= FF_ffi_meta___index && - frame_func(frame)->c.ffid <= FF_ffi_meta___tostring) { - L->base = pframe+1; - L->top = frame; - setcframe_pc(cframe_raw(L->cframe), frame_contpc(frame)); - } -#endif - } - } - lj_debug_addloc(L, msg, pframe, frame); - lj_err_run(L); -} - -/* Formatted error in context of caller. */ -LJ_NOINLINE void lj_err_callerv(lua_State *L, ErrMsg em, ...) -{ - const char *msg; - va_list argp; - va_start(argp, em); - msg = lj_strfmt_pushvf(L, err2msg(em), argp); - va_end(argp); - lj_err_callermsg(L, msg); -} - -/* Error in context of caller. */ -LJ_NOINLINE void lj_err_caller(lua_State *L, ErrMsg em) -{ - lj_err_callermsg(L, err2msg(em)); -} - -/* Argument error message. */ -LJ_NORET LJ_NOINLINE static void err_argmsg(lua_State *L, int narg, - const char *msg) -{ - const char *fname = "?"; - const char *ftype = lj_debug_funcname(L, L->base - 1, &fname); - if (narg < 0 && narg > LUA_REGISTRYINDEX) - narg = (int)(L->top - L->base) + narg + 1; - if (ftype && ftype[3] == 'h' && --narg == 0) /* Check for "method". */ - msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADSELF), fname, msg); - else - msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADARG), narg, fname, msg); - lj_err_callermsg(L, msg); -} - -/* Formatted argument error. */ -LJ_NOINLINE void lj_err_argv(lua_State *L, int narg, ErrMsg em, ...) -{ - const char *msg; - va_list argp; - va_start(argp, em); - msg = lj_strfmt_pushvf(L, err2msg(em), argp); - va_end(argp); - err_argmsg(L, narg, msg); -} - -/* Argument error. */ -LJ_NOINLINE void lj_err_arg(lua_State *L, int narg, ErrMsg em) -{ - err_argmsg(L, narg, err2msg(em)); -} - -/* Typecheck error for arguments. */ -LJ_NOINLINE void lj_err_argtype(lua_State *L, int narg, const char *xname) -{ - TValue *o = narg < 0 ? L->top + narg : L->base + narg-1; - const char *tname = o < L->top ? lj_typename(o) : lj_obj_typename[0]; - const char *msg = lj_strfmt_pushf(L, err2msg(LJ_ERR_BADTYPE), xname, tname); - err_argmsg(L, narg, msg); -} - -/* Typecheck error for arguments. */ -LJ_NOINLINE void lj_err_argt(lua_State *L, int narg, int tt) -{ - lj_err_argtype(L, narg, lj_obj_typename[tt+1]); -} - -/* -- Public error handling API ------------------------------------------- */ - -LUA_API lua_CFunction lua_atpanic(lua_State *L, lua_CFunction panicf) -{ - lua_CFunction old = G(L)->panic; - G(L)->panic = panicf; - return old; -} - -/* Forwarders for the public API (C calling convention and no LJ_NORET). */ -LUA_API int lua_error(lua_State *L) -{ - lj_err_run(L); - return 0; /* unreachable */ -} - -LUALIB_API int luaL_argerror(lua_State *L, int narg, const char *msg) -{ - err_argmsg(L, narg, msg); - return 0; /* unreachable */ -} - -LUALIB_API int luaL_typerror(lua_State *L, int narg, const char *xname) -{ - lj_err_argtype(L, narg, xname); - return 0; /* unreachable */ -} - -LUALIB_API void luaL_where(lua_State *L, int level) -{ - int size; - cTValue *frame = lj_debug_frame(L, level, &size); - lj_debug_addloc(L, "", frame, size ? frame+size : NULL); -} - -LUALIB_API int luaL_error(lua_State *L, const char *fmt, ...) -{ - const char *msg; - va_list argp; - va_start(argp, fmt); - msg = lj_strfmt_pushvf(L, fmt, argp); - va_end(argp); - lj_err_callermsg(L, msg); - return 0; /* unreachable */ -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_err.h b/src/3rd party/luajit-2.0-BAK/src/lj_err.h deleted file mode 100644 index 03a56f0362c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_err.h +++ /dev/null @@ -1,41 +0,0 @@ -/* -** Error handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_ERR_H -#define _LJ_ERR_H - -#include - -#include "lj_obj.h" - -typedef enum { -#define ERRDEF(name, msg) \ - LJ_ERR_##name, LJ_ERR_##name##_ = LJ_ERR_##name + sizeof(msg)-1, -#include "lj_errmsg.h" - LJ_ERR__MAX -} ErrMsg; - -LJ_DATA const char *lj_err_allmsg; -#define err2msg(em) (lj_err_allmsg+(int)(em)) - -LJ_FUNC GCstr *lj_err_str(lua_State *L, ErrMsg em); -LJ_FUNCA_NORET void LJ_FASTCALL lj_err_throw(lua_State *L, int errcode); -LJ_FUNC_NORET void lj_err_mem(lua_State *L); -LJ_FUNC_NORET void lj_err_run(lua_State *L); -LJ_FUNC_NORET void lj_err_msg(lua_State *L, ErrMsg em); -LJ_FUNC_NORET void lj_err_lex(lua_State *L, GCstr *src, const char *tok, - BCLine line, ErrMsg em, va_list argp); -LJ_FUNC_NORET void lj_err_optype(lua_State *L, cTValue *o, ErrMsg opm); -LJ_FUNC_NORET void lj_err_comp(lua_State *L, cTValue *o1, cTValue *o2); -LJ_FUNC_NORET void lj_err_optype_call(lua_State *L, TValue *o); -LJ_FUNC_NORET void lj_err_callermsg(lua_State *L, const char *msg); -LJ_FUNC_NORET void lj_err_callerv(lua_State *L, ErrMsg em, ...); -LJ_FUNC_NORET void lj_err_caller(lua_State *L, ErrMsg em); -LJ_FUNC_NORET void lj_err_arg(lua_State *L, int narg, ErrMsg em); -LJ_FUNC_NORET void lj_err_argv(lua_State *L, int narg, ErrMsg em, ...); -LJ_FUNC_NORET void lj_err_argtype(lua_State *L, int narg, const char *xname); -LJ_FUNC_NORET void lj_err_argt(lua_State *L, int narg, int tt); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h b/src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h deleted file mode 100644 index 7717665b038..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_errmsg.h +++ /dev/null @@ -1,190 +0,0 @@ -/* -** VM error messages. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* This file may be included multiple times with different ERRDEF macros. */ - -/* Basic error handling. */ -ERRDEF(ERRMEM, "not enough memory") -ERRDEF(ERRERR, "error in error handling") -ERRDEF(ERRCPP, "C++ exception") - -/* Allocations. */ -ERRDEF(STROV, "string length overflow") -ERRDEF(UDATAOV, "userdata length overflow") -ERRDEF(STKOV, "stack overflow") -ERRDEF(STKOVM, "stack overflow (%s)") -ERRDEF(TABOV, "table overflow") - -/* Table indexing. */ -ERRDEF(NANIDX, "table index is NaN") -ERRDEF(NILIDX, "table index is nil") -ERRDEF(NEXTIDX, "invalid key to " LUA_QL("next")) - -/* Metamethod resolving. */ -ERRDEF(BADCALL, "attempt to call a %s value") -ERRDEF(BADOPRT, "attempt to %s %s " LUA_QS " (a %s value)") -ERRDEF(BADOPRV, "attempt to %s a %s value") -ERRDEF(BADCMPT, "attempt to compare %s with %s") -ERRDEF(BADCMPV, "attempt to compare two %s values") -ERRDEF(GETLOOP, "loop in gettable") -ERRDEF(SETLOOP, "loop in settable") -ERRDEF(OPCALL, "call") -ERRDEF(OPINDEX, "index") -ERRDEF(OPARITH, "perform arithmetic on") -ERRDEF(OPCAT, "concatenate") -ERRDEF(OPLEN, "get length of") - -/* Type checks. */ -ERRDEF(BADSELF, "calling " LUA_QS " on bad self (%s)") -ERRDEF(BADARG, "bad argument #%d to " LUA_QS " (%s)") -ERRDEF(BADTYPE, "%s expected, got %s") -ERRDEF(BADVAL, "invalid value") -ERRDEF(NOVAL, "value expected") -ERRDEF(NOCORO, "coroutine expected") -ERRDEF(NOTABN, "nil or table expected") -ERRDEF(NOLFUNC, "Lua function expected") -ERRDEF(NOFUNCL, "function or level expected") -ERRDEF(NOSFT, "string/function/table expected") -ERRDEF(NOPROXY, "boolean or proxy expected") -ERRDEF(FORINIT, LUA_QL("for") " initial value must be a number") -ERRDEF(FORLIM, LUA_QL("for") " limit must be a number") -ERRDEF(FORSTEP, LUA_QL("for") " step must be a number") - -/* C API checks. */ -ERRDEF(NOENV, "no calling environment") -ERRDEF(CYIELD, "attempt to yield across C-call boundary") -ERRDEF(BADLU, "bad light userdata pointer") -ERRDEF(NOGCMM, "bad action while in __gc metamethod") -#if LJ_TARGET_WINDOWS -ERRDEF(BADFPU, "bad FPU precision (use D3DCREATE_FPU_PRESERVE with DirectX)") -#endif - -/* Standard library function errors. */ -ERRDEF(ASSERT, "assertion failed!") -ERRDEF(PROTMT, "cannot change a protected metatable") -ERRDEF(UNPACK, "too many results to unpack") -ERRDEF(RDRSTR, "reader function must return a string") -ERRDEF(PRTOSTR, LUA_QL("tostring") " must return a string to " LUA_QL("print")) -ERRDEF(IDXRNG, "index out of range") -ERRDEF(BASERNG, "base out of range") -ERRDEF(LVLRNG, "level out of range") -ERRDEF(INVLVL, "invalid level") -ERRDEF(INVOPT, "invalid option") -ERRDEF(INVOPTM, "invalid option " LUA_QS) -ERRDEF(INVFMT, "invalid format") -ERRDEF(SETFENV, LUA_QL("setfenv") " cannot change environment of given object") -ERRDEF(CORUN, "cannot resume running coroutine") -ERRDEF(CODEAD, "cannot resume dead coroutine") -ERRDEF(COSUSP, "cannot resume non-suspended coroutine") -ERRDEF(TABINS, "wrong number of arguments to " LUA_QL("insert")) -ERRDEF(TABCAT, "invalid value (%s) at index %d in table for " LUA_QL("concat")) -ERRDEF(TABSORT, "invalid order function for sorting") -ERRDEF(IOCLFL, "attempt to use a closed file") -ERRDEF(IOSTDCL, "standard file is closed") -ERRDEF(OSUNIQF, "unable to generate a unique filename") -ERRDEF(OSDATEF, "field " LUA_QS " missing in date table") -ERRDEF(STRDUMP, "unable to dump given function") -ERRDEF(STRSLC, "string slice too long") -ERRDEF(STRPATB, "missing " LUA_QL("[") " after " LUA_QL("%f") " in pattern") -ERRDEF(STRPATC, "invalid pattern capture") -ERRDEF(STRPATE, "malformed pattern (ends with " LUA_QL("%") ")") -ERRDEF(STRPATM, "malformed pattern (missing " LUA_QL("]") ")") -ERRDEF(STRPATU, "unbalanced pattern") -ERRDEF(STRPATX, "pattern too complex") -ERRDEF(STRCAPI, "invalid capture index") -ERRDEF(STRCAPN, "too many captures") -ERRDEF(STRCAPU, "unfinished capture") -ERRDEF(STRFMT, "invalid option " LUA_QS " to " LUA_QL("format")) -ERRDEF(STRGSRV, "invalid replacement value (a %s)") -ERRDEF(BADMODN, "name conflict for module " LUA_QS) -#if LJ_HASJIT -ERRDEF(JITPROT, "runtime code generation failed, restricted kernel?") -#if LJ_TARGET_X86ORX64 -ERRDEF(NOJIT, "JIT compiler disabled, CPU does not support SSE2") -#else -ERRDEF(NOJIT, "JIT compiler disabled") -#endif -#elif defined(LJ_ARCH_NOJIT) -ERRDEF(NOJIT, "no JIT compiler for this architecture (yet)") -#else -ERRDEF(NOJIT, "JIT compiler permanently disabled by build option") -#endif -ERRDEF(JITOPT, "unknown or malformed optimization flag " LUA_QS) - -/* Lexer/parser errors. */ -ERRDEF(XMODE, "attempt to load chunk with wrong mode") -ERRDEF(XNEAR, "%s near " LUA_QS) -ERRDEF(XLINES, "chunk has too many lines") -ERRDEF(XLEVELS, "chunk has too many syntax levels") -ERRDEF(XNUMBER, "malformed number") -ERRDEF(XLSTR, "unfinished long string") -ERRDEF(XLCOM, "unfinished long comment") -ERRDEF(XSTR, "unfinished string") -ERRDEF(XESC, "invalid escape sequence") -ERRDEF(XLDELIM, "invalid long string delimiter") -ERRDEF(XTOKEN, LUA_QS " expected") -ERRDEF(XJUMP, "control structure too long") -ERRDEF(XSLOTS, "function or expression too complex") -ERRDEF(XLIMC, "chunk has more than %d local variables") -ERRDEF(XLIMM, "main function has more than %d %s") -ERRDEF(XLIMF, "function at line %d has more than %d %s") -ERRDEF(XMATCH, LUA_QS " expected (to close " LUA_QS " at line %d)") -ERRDEF(XFIXUP, "function too long for return fixup") -ERRDEF(XPARAM, " or " LUA_QL("...") " expected") -#if !LJ_52 -ERRDEF(XAMBIG, "ambiguous syntax (function call x new statement)") -#endif -ERRDEF(XFUNARG, "function arguments expected") -ERRDEF(XSYMBOL, "unexpected symbol") -ERRDEF(XDOTS, "cannot use " LUA_QL("...") " outside a vararg function") -ERRDEF(XSYNTAX, "syntax error") -ERRDEF(XFOR, LUA_QL("=") " or " LUA_QL("in") " expected") -ERRDEF(XBREAK, "no loop to break") -ERRDEF(XLUNDEF, "undefined label " LUA_QS) -ERRDEF(XLDUP, "duplicate label " LUA_QS) -ERRDEF(XGSCOPE, " jumps into the scope of local " LUA_QS) - -/* Bytecode reader errors. */ -ERRDEF(BCFMT, "cannot load incompatible bytecode") -ERRDEF(BCBAD, "cannot load malformed bytecode") - -#if LJ_HASFFI -/* FFI errors. */ -ERRDEF(FFI_INVTYPE, "invalid C type") -ERRDEF(FFI_INVSIZE, "size of C type is unknown or too large") -ERRDEF(FFI_BADSCL, "bad storage class") -ERRDEF(FFI_DECLSPEC, "declaration specifier expected") -ERRDEF(FFI_BADTAG, "undeclared or implicit tag " LUA_QS) -ERRDEF(FFI_REDEF, "attempt to redefine " LUA_QS) -ERRDEF(FFI_NUMPARAM, "wrong number of type parameters") -ERRDEF(FFI_INITOV, "too many initializers for " LUA_QS) -ERRDEF(FFI_BADCONV, "cannot convert " LUA_QS " to " LUA_QS) -ERRDEF(FFI_BADLEN, "attempt to get length of " LUA_QS) -ERRDEF(FFI_BADCONCAT, "attempt to concatenate " LUA_QS " and " LUA_QS) -ERRDEF(FFI_BADARITH, "attempt to perform arithmetic on " LUA_QS " and " LUA_QS) -ERRDEF(FFI_BADCOMP, "attempt to compare " LUA_QS " with " LUA_QS) -ERRDEF(FFI_BADCALL, LUA_QS " is not callable") -ERRDEF(FFI_NUMARG, "wrong number of arguments for function call") -ERRDEF(FFI_BADMEMBER, LUA_QS " has no member named " LUA_QS) -ERRDEF(FFI_BADIDX, LUA_QS " cannot be indexed") -ERRDEF(FFI_BADIDXW, LUA_QS " cannot be indexed with " LUA_QS) -ERRDEF(FFI_BADMM, LUA_QS " has no " LUA_QS " metamethod") -ERRDEF(FFI_WRCONST, "attempt to write to constant location") -ERRDEF(FFI_NODECL, "missing declaration for symbol " LUA_QS) -ERRDEF(FFI_BADCBACK, "bad callback") -#if LJ_OS_NOJIT -ERRDEF(FFI_CBACKOV, "no support for callbacks on this OS") -#else -ERRDEF(FFI_CBACKOV, "too many callbacks") -#endif -ERRDEF(FFI_NYIPACKBIT, "NYI: packed bit fields") -ERRDEF(FFI_NYICALL, "NYI: cannot call this C function (yet)") -#endif - -#undef ERRDEF - -/* Detecting unused error messages: - awk -F, '/^ERRDEF/ { gsub(/ERRDEF./, ""); printf "grep -q LJ_ERR_%s *.[ch] || echo %s\n", $1, $1}' lj_errmsg.h | sh -*/ diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ff.h b/src/3rd party/luajit-2.0-BAK/src/lj_ff.h deleted file mode 100644 index 73dad9695a6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ff.h +++ /dev/null @@ -1,18 +0,0 @@ -/* -** Fast function IDs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_FF_H -#define _LJ_FF_H - -/* Fast function ID. */ -typedef enum { - FF_LUA_ = FF_LUA, /* Lua function (must be 0). */ - FF_C_ = FF_C, /* Regular C function (must be 1). */ -#define FFDEF(name) FF_##name, -#include "lj_ffdef.h" - FF__MAX -} FastFunc; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c b/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c deleted file mode 100644 index e17f6818f19..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.c +++ /dev/null @@ -1,1215 +0,0 @@ -/* -** Fast function call recorder. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_ffrecord_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_err.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_frame.h" -#include "lj_bc.h" -#include "lj_ff.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_record.h" -#include "lj_ffrecord.h" -#include "lj_crecord.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* -- Fast function recording handlers ------------------------------------ */ - -/* Conventions for fast function call handlers: -** -** The argument slots start at J->base[0]. All of them are guaranteed to be -** valid and type-specialized references. J->base[J->maxslot] is set to 0 -** as a sentinel. The runtime argument values start at rd->argv[0]. -** -** In general fast functions should check for presence of all of their -** arguments and for the correct argument types. Some simplifications -** are allowed if the interpreter throws instead. But even if recording -** is aborted, the generated IR must be consistent (no zero-refs). -** -** The number of results in rd->nres is set to 1. Handlers that return -** a different number of results need to override it. A negative value -** prevents return processing (e.g. for pending calls). -** -** Results need to be stored starting at J->base[0]. Return processing -** moves them to the right slots later. -** -** The per-ffid auxiliary data is the value of the 2nd part of the -** LJLIB_REC() annotation. This allows handling similar functionality -** in a common handler. -*/ - -/* Type of handler to record a fast function. */ -typedef void (LJ_FASTCALL *RecordFunc)(jit_State *J, RecordFFData *rd); - -/* Get runtime value of int argument. */ -static int32_t argv2int(jit_State *J, TValue *o) -{ - if (!lj_strscan_numberobj(o)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - return tvisint(o) ? intV(o) : lj_num2int(numV(o)); -} - -/* Get runtime value of string argument. */ -static GCstr *argv2str(jit_State *J, TValue *o) -{ - if (LJ_LIKELY(tvisstr(o))) { - return strV(o); - } else { - GCstr *s; - if (!tvisnumber(o)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - s = lj_strfmt_number(J->L, o); - setstrV(J->L, o, s); - return s; - } -} - -/* Return number of results wanted by caller. */ -static ptrdiff_t results_wanted(jit_State *J) -{ - TValue *frame = J->L->base-1; - if (frame_islua(frame)) - return (ptrdiff_t)bc_b(frame_pc(frame)[-1]) - 1; - else - return -1; -} - -/* Trace stitching: add continuation below frame to start a new trace. */ -static void recff_stitch(jit_State *J) -{ - ASMFunction cont = lj_cont_stitch; - TraceNo traceno = J->cur.traceno; - lua_State *L = J->L; - TValue *base = L->base; - const BCIns *pc = frame_pc(base-1); - TValue *pframe = frame_prevl(base-1); - TRef trcont; - - lua_assert(!LJ_FR2); /* TODO_FR2: handle frame shift. */ - /* Move func + args up in Lua stack and insert continuation. */ - memmove(&base[1], &base[-1], sizeof(TValue)*(J->maxslot+1)); - setframe_ftsz(base+1, ((char *)(base+1) - (char *)pframe) + FRAME_CONT); - setcont(base, cont); - setframe_pc(base, pc); - if (LJ_DUALNUM) setintV(base-1, traceno); else base[-1].u64 = traceno; - L->base += 2; - L->top += 2; - - /* Ditto for the IR. */ - memmove(&J->base[1], &J->base[-1], sizeof(TRef)*(J->maxslot+1)); -#if LJ_64 - trcont = lj_ir_kptr(J, (void *)((int64_t)cont-(int64_t)lj_vm_asm_begin)); -#else - trcont = lj_ir_kptr(J, (void *)cont); -#endif - J->base[0] = trcont | TREF_CONT; - J->base[-1] = LJ_DUALNUM ? lj_ir_kint(J,traceno) : lj_ir_knum_u64(J,traceno); - J->base += 2; - J->baseslot += 2; - J->framedepth++; - - lj_record_stop(J, LJ_TRLINK_STITCH, 0); - - /* Undo Lua stack changes. */ - memmove(&base[-1], &base[1], sizeof(TValue)*(J->maxslot+1)); - setframe_pc(base-1, pc); - L->base -= 2; - L->top -= 2; -} - -/* Fallback handler for fast functions that are not recorded (yet). */ -static void LJ_FASTCALL recff_nyi(jit_State *J, RecordFFData *rd) -{ - if (J->cur.nins < (IRRef)J->param[JIT_P_minstitch] + REF_BASE) { - lj_trace_err_info(J, LJ_TRERR_TRACEUV); - } else { - /* Can only stitch from Lua call. */ - if (J->framedepth && frame_islua(J->L->base-1)) { - BCOp op = bc_op(*frame_pc(J->L->base-1)); - /* Stitched trace cannot start with *M op with variable # of args. */ - if (!(op == BC_CALLM || op == BC_CALLMT || - op == BC_RETM || op == BC_TSETM)) { - switch (J->fn->c.ffid) { - case FF_error: - case FF_debug_sethook: - case FF_jit_flush: - break; /* Don't stitch across special builtins. */ - default: - recff_stitch(J); /* Use trace stitching. */ - rd->nres = -1; - return; - } - } - } - /* Otherwise stop trace and return to interpreter. */ - lj_record_stop(J, LJ_TRLINK_RETURN, 0); - rd->nres = -1; - } -} - -/* Fallback handler for unsupported variants of fast functions. */ -#define recff_nyiu recff_nyi - -/* Must stop the trace for classic C functions with arbitrary side-effects. */ -#define recff_c recff_nyi - -/* Emit BUFHDR for the global temporary buffer. */ -static TRef recff_bufhdr(jit_State *J) -{ - return emitir(IRT(IR_BUFHDR, IRT_P32), - lj_ir_kptr(J, &J2G(J)->tmpbuf), IRBUFHDR_RESET); -} - -/* -- Base library fast functions ----------------------------------------- */ - -static void LJ_FASTCALL recff_assert(jit_State *J, RecordFFData *rd) -{ - /* Arguments already specialized. The interpreter throws for nil/false. */ - rd->nres = J->maxslot; /* Pass through all arguments. */ -} - -static void LJ_FASTCALL recff_type(jit_State *J, RecordFFData *rd) -{ - /* Arguments already specialized. Result is a constant string. Neat, huh? */ - uint32_t t; - if (tvisnumber(&rd->argv[0])) - t = ~LJ_TNUMX; - else if (LJ_64 && !LJ_GC64 && tvislightud(&rd->argv[0])) - t = ~LJ_TLIGHTUD; - else - t = ~itype(&rd->argv[0]); - J->base[0] = lj_ir_kstr(J, strV(&J->fn->c.upvalue[t])); - UNUSED(rd); -} - -static void LJ_FASTCALL recff_getmetatable(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tr) { - RecordIndex ix; - ix.tab = tr; - copyTV(J->L, &ix.tabv, &rd->argv[0]); - if (lj_record_mm_lookup(J, &ix, MM_metatable)) - J->base[0] = ix.mobj; - else - J->base[0] = ix.mt; - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_setmetatable(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - TRef mt = J->base[1]; - if (tref_istab(tr) && (tref_istab(mt) || (mt && tref_isnil(mt)))) { - TRef fref, mtref; - RecordIndex ix; - ix.tab = tr; - copyTV(J->L, &ix.tabv, &rd->argv[0]); - lj_record_mm_lookup(J, &ix, MM_metatable); /* Guard for no __metatable. */ - fref = emitir(IRT(IR_FREF, IRT_P32), tr, IRFL_TAB_META); - mtref = tref_isnil(mt) ? lj_ir_knull(J, IRT_TAB) : mt; - emitir(IRT(IR_FSTORE, IRT_TAB), fref, mtref); - if (!tref_isnil(mt)) - emitir(IRT(IR_TBAR, IRT_TAB), tr, 0); - J->base[0] = tr; - J->needsnap = 1; - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_rawget(jit_State *J, RecordFFData *rd) -{ - RecordIndex ix; - ix.tab = J->base[0]; ix.key = J->base[1]; - if (tref_istab(ix.tab) && ix.key) { - ix.val = 0; ix.idxchain = 0; - settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); - copyTV(J->L, &ix.keyv, &rd->argv[1]); - J->base[0] = lj_record_idx(J, &ix); - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_rawset(jit_State *J, RecordFFData *rd) -{ - RecordIndex ix; - ix.tab = J->base[0]; ix.key = J->base[1]; ix.val = J->base[2]; - if (tref_istab(ix.tab) && ix.key && ix.val) { - ix.idxchain = 0; - settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); - copyTV(J->L, &ix.keyv, &rd->argv[1]); - copyTV(J->L, &ix.valv, &rd->argv[2]); - lj_record_idx(J, &ix); - /* Pass through table at J->base[0] as result. */ - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_rawequal(jit_State *J, RecordFFData *rd) -{ - TRef tra = J->base[0]; - TRef trb = J->base[1]; - if (tra && trb) { - int diff = lj_record_objcmp(J, tra, trb, &rd->argv[0], &rd->argv[1]); - J->base[0] = diff ? TREF_FALSE : TREF_TRUE; - } /* else: Interpreter will throw. */ -} - -#if LJ_52 -static void LJ_FASTCALL recff_rawlen(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tref_isstr(tr)) - J->base[0] = emitir(IRTI(IR_FLOAD), tr, IRFL_STR_LEN); - else if (tref_istab(tr)) - J->base[0] = lj_ir_call(J, IRCALL_lj_tab_len, tr); - /* else: Interpreter will throw. */ - UNUSED(rd); -} -#endif - -/* Determine mode of select() call. */ -int32_t lj_ffrecord_select_mode(jit_State *J, TRef tr, TValue *tv) -{ - if (tref_isstr(tr) && *strVdata(tv) == '#') { /* select('#', ...) */ - if (strV(tv)->len == 1) { - emitir(IRTG(IR_EQ, IRT_STR), tr, lj_ir_kstr(J, strV(tv))); - } else { - TRef trptr = emitir(IRT(IR_STRREF, IRT_P32), tr, lj_ir_kint(J, 0)); - TRef trchar = emitir(IRT(IR_XLOAD, IRT_U8), trptr, IRXLOAD_READONLY); - emitir(IRTG(IR_EQ, IRT_INT), trchar, lj_ir_kint(J, '#')); - } - return 0; - } else { /* select(n, ...) */ - int32_t start = argv2int(J, tv); - if (start == 0) lj_trace_err(J, LJ_TRERR_BADTYPE); /* A bit misleading. */ - return start; - } -} - -static void LJ_FASTCALL recff_select(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tr) { - ptrdiff_t start = lj_ffrecord_select_mode(J, tr, &rd->argv[0]); - if (start == 0) { /* select('#', ...) */ - J->base[0] = lj_ir_kint(J, J->maxslot - 1); - } else if (tref_isk(tr)) { /* select(k, ...) */ - ptrdiff_t n = (ptrdiff_t)J->maxslot; - if (start < 0) start += n; - else if (start > n) start = n; - rd->nres = n - start; - if (start >= 1) { - ptrdiff_t i; - for (i = 0; i < n - start; i++) - J->base[i] = J->base[start+i]; - } /* else: Interpreter will throw. */ - } else { - recff_nyiu(J, rd); - return; - } - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_tonumber(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - TRef base = J->base[1]; - if (tr && !tref_isnil(base)) { - base = lj_opt_narrow_toint(J, base); - if (!tref_isk(base) || IR(tref_ref(base))->i != 10) { - recff_nyiu(J, rd); - return; - } - } - if (tref_isnumber_str(tr)) { - if (tref_isstr(tr)) { - TValue tmp; - if (!lj_strscan_num(strV(&rd->argv[0]), &tmp)) { - recff_nyiu(J, rd); /* Would need an inverted STRTO for this case. */ - return; - } - tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); - } -#if LJ_HASFFI - } else if (tref_iscdata(tr)) { - lj_crecord_tonumber(J, rd); - return; -#endif - } else { - tr = TREF_NIL; - } - J->base[0] = tr; - UNUSED(rd); -} - -static TValue *recff_metacall_cp(lua_State *L, lua_CFunction dummy, void *ud) -{ - jit_State *J = (jit_State *)ud; - lj_record_tailcall(J, 0, 1); - UNUSED(L); UNUSED(dummy); - return NULL; -} - -static int recff_metacall(jit_State *J, RecordFFData *rd, MMS mm) -{ - RecordIndex ix; - ix.tab = J->base[0]; - copyTV(J->L, &ix.tabv, &rd->argv[0]); - if (lj_record_mm_lookup(J, &ix, mm)) { /* Has metamethod? */ - int errcode; - TValue argv0; - /* Temporarily insert metamethod below object. */ - J->base[1] = J->base[0]; - J->base[0] = ix.mobj; - copyTV(J->L, &argv0, &rd->argv[0]); - copyTV(J->L, &rd->argv[1], &rd->argv[0]); - copyTV(J->L, &rd->argv[0], &ix.mobjv); - /* Need to protect lj_record_tailcall because it may throw. */ - errcode = lj_vm_cpcall(J->L, NULL, J, recff_metacall_cp); - /* Always undo Lua stack changes to avoid confusing the interpreter. */ - copyTV(J->L, &rd->argv[0], &argv0); - if (errcode) - lj_err_throw(J->L, errcode); /* Propagate errors. */ - rd->nres = -1; /* Pending call. */ - return 1; /* Tailcalled to metamethod. */ - } - return 0; -} - -static void LJ_FASTCALL recff_tostring(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tref_isstr(tr)) { - /* Ignore __tostring in the string base metatable. */ - /* Pass on result in J->base[0]. */ - } else if (tr && !recff_metacall(J, rd, MM_tostring)) { - if (tref_isnumber(tr)) { - J->base[0] = emitir(IRT(IR_TOSTR, IRT_STR), tr, - tref_isnum(tr) ? IRTOSTR_NUM : IRTOSTR_INT); - } else if (tref_ispri(tr)) { - J->base[0] = lj_ir_kstr(J, lj_strfmt_obj(J->L, &rd->argv[0])); - } else { - recff_nyiu(J, rd); - return; - } - } -} - -static void LJ_FASTCALL recff_ipairs_aux(jit_State *J, RecordFFData *rd) -{ - RecordIndex ix; - ix.tab = J->base[0]; - if (tref_istab(ix.tab)) { - if (!tvisnumber(&rd->argv[1])) /* No support for string coercion. */ - lj_trace_err(J, LJ_TRERR_BADTYPE); - setintV(&ix.keyv, numberVint(&rd->argv[1])+1); - settabV(J->L, &ix.tabv, tabV(&rd->argv[0])); - ix.val = 0; ix.idxchain = 0; - ix.key = lj_opt_narrow_toint(J, J->base[1]); - J->base[0] = ix.key = emitir(IRTI(IR_ADD), ix.key, lj_ir_kint(J, 1)); - J->base[1] = lj_record_idx(J, &ix); - rd->nres = tref_isnil(J->base[1]) ? 0 : 2; - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_xpairs(jit_State *J, RecordFFData *rd) -{ - if (!(LJ_52 && recff_metacall(J, rd, MM_ipairs))) { - TRef tab = J->base[0]; - if (tref_istab(tab)) { - J->base[0] = lj_ir_kfunc(J, funcV(&J->fn->c.upvalue[0])); - J->base[1] = tab; - J->base[2] = rd->data ? lj_ir_kint(J, 0) : TREF_NIL; - rd->nres = 3; - } /* else: Interpreter will throw. */ - } -} - -static void LJ_FASTCALL recff_pcall(jit_State *J, RecordFFData *rd) -{ - if (J->maxslot >= 1) { - lj_record_call(J, 0, J->maxslot - 1); - rd->nres = -1; /* Pending call. */ - } /* else: Interpreter will throw. */ -} - -static TValue *recff_xpcall_cp(lua_State *L, lua_CFunction dummy, void *ud) -{ - jit_State *J = (jit_State *)ud; - lj_record_call(J, 1, J->maxslot - 2); - UNUSED(L); UNUSED(dummy); - return NULL; -} - -static void LJ_FASTCALL recff_xpcall(jit_State *J, RecordFFData *rd) -{ - if (J->maxslot >= 2) { - TValue argv0, argv1; - TRef tmp; - int errcode; - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - /* Swap function and traceback. */ - tmp = J->base[0]; J->base[0] = J->base[1]; J->base[1] = tmp; - copyTV(J->L, &argv0, &rd->argv[0]); - copyTV(J->L, &argv1, &rd->argv[1]); - copyTV(J->L, &rd->argv[0], &argv1); - copyTV(J->L, &rd->argv[1], &argv0); - /* Need to protect lj_record_call because it may throw. */ - errcode = lj_vm_cpcall(J->L, NULL, J, recff_xpcall_cp); - /* Always undo Lua stack swap to avoid confusing the interpreter. */ - copyTV(J->L, &rd->argv[0], &argv0); - copyTV(J->L, &rd->argv[1], &argv1); - if (errcode) - lj_err_throw(J->L, errcode); /* Propagate errors. */ - rd->nres = -1; /* Pending call. */ - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_getfenv(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - /* Only support getfenv(0) for now. */ - if (tref_isint(tr) && tref_isk(tr) && IR(tref_ref(tr))->i == 0) { - TRef trl = emitir(IRT(IR_LREF, IRT_THREAD), 0, 0); - J->base[0] = emitir(IRT(IR_FLOAD, IRT_TAB), trl, IRFL_THREAD_ENV); - return; - } - recff_nyiu(J, rd); -} - -/* -- Math library fast functions ----------------------------------------- */ - -static void LJ_FASTCALL recff_math_abs(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - J->base[0] = emitir(IRTN(IR_ABS), tr, lj_ir_knum_abs(J)); - UNUSED(rd); -} - -/* Record rounding functions math.floor and math.ceil. */ -static void LJ_FASTCALL recff_math_round(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (!tref_isinteger(tr)) { /* Pass through integers unmodified. */ - tr = emitir(IRTN(IR_FPMATH), lj_ir_tonum(J, tr), rd->data); - /* Result is integral (or NaN/Inf), but may not fit an int32_t. */ - if (LJ_DUALNUM) { /* Try to narrow using a guarded conversion to int. */ - lua_Number n = lj_vm_foldfpm(numberVnum(&rd->argv[0]), rd->data); - if (n == (lua_Number)lj_num2int(n)) - tr = emitir(IRTGI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_CHECK); - } - J->base[0] = tr; - } -} - -/* Record unary math.* functions, mapped to IR_FPMATH opcode. */ -static void LJ_FASTCALL recff_math_unary(jit_State *J, RecordFFData *rd) -{ - J->base[0] = emitir(IRTN(IR_FPMATH), lj_ir_tonum(J, J->base[0]), rd->data); -} - -/* Record math.log. */ -static void LJ_FASTCALL recff_math_log(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - if (J->base[1]) { -#ifdef LUAJIT_NO_LOG2 - uint32_t fpm = IRFPM_LOG; -#else - uint32_t fpm = IRFPM_LOG2; -#endif - TRef trb = lj_ir_tonum(J, J->base[1]); - tr = emitir(IRTN(IR_FPMATH), tr, fpm); - trb = emitir(IRTN(IR_FPMATH), trb, fpm); - trb = emitir(IRTN(IR_DIV), lj_ir_knum_one(J), trb); - tr = emitir(IRTN(IR_MUL), tr, trb); - } else { - tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_LOG); - } - J->base[0] = tr; - UNUSED(rd); -} - -/* Record math.atan2. */ -static void LJ_FASTCALL recff_math_atan2(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - TRef tr2 = lj_ir_tonum(J, J->base[1]); - J->base[0] = emitir(IRTN(IR_ATAN2), tr, tr2); - UNUSED(rd); -} - -/* Record math.ldexp. */ -static void LJ_FASTCALL recff_math_ldexp(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); -#if LJ_TARGET_X86ORX64 - TRef tr2 = lj_ir_tonum(J, J->base[1]); -#else - TRef tr2 = lj_opt_narrow_toint(J, J->base[1]); -#endif - J->base[0] = emitir(IRTN(IR_LDEXP), tr, tr2); - UNUSED(rd); -} - -/* Record math.asin, math.acos, math.atan. */ -static void LJ_FASTCALL recff_math_atrig(jit_State *J, RecordFFData *rd) -{ - TRef y = lj_ir_tonum(J, J->base[0]); - TRef x = lj_ir_knum_one(J); - uint32_t ffid = rd->data; - if (ffid != FF_math_atan) { - TRef tmp = emitir(IRTN(IR_MUL), y, y); - tmp = emitir(IRTN(IR_SUB), x, tmp); - tmp = emitir(IRTN(IR_FPMATH), tmp, IRFPM_SQRT); - if (ffid == FF_math_asin) { x = tmp; } else { x = y; y = tmp; } - } - J->base[0] = emitir(IRTN(IR_ATAN2), y, x); -} - -static void LJ_FASTCALL recff_math_htrig(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - J->base[0] = emitir(IRTN(IR_CALLN), tr, rd->data); -} - -static void LJ_FASTCALL recff_math_modf(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tref_isinteger(tr)) { - J->base[0] = tr; - J->base[1] = lj_ir_kint(J, 0); - } else { - TRef trt; - tr = lj_ir_tonum(J, tr); - trt = emitir(IRTN(IR_FPMATH), tr, IRFPM_TRUNC); - J->base[0] = trt; - J->base[1] = emitir(IRTN(IR_SUB), tr, trt); - } - rd->nres = 2; -} - -static void LJ_FASTCALL recff_math_pow(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonum(J, J->base[0]); - if (!tref_isnumber_str(J->base[1])) - lj_trace_err(J, LJ_TRERR_BADTYPE); - J->base[0] = lj_opt_narrow_pow(J, tr, J->base[1], &rd->argv[1]); - UNUSED(rd); -} - -static void LJ_FASTCALL recff_math_minmax(jit_State *J, RecordFFData *rd) -{ - TRef tr = lj_ir_tonumber(J, J->base[0]); - uint32_t op = rd->data; - BCReg i; - for (i = 1; J->base[i] != 0; i++) { - TRef tr2 = lj_ir_tonumber(J, J->base[i]); - IRType t = IRT_INT; - if (!(tref_isinteger(tr) && tref_isinteger(tr2))) { - if (tref_isinteger(tr)) tr = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); - if (tref_isinteger(tr2)) tr2 = emitir(IRTN(IR_CONV), tr2, IRCONV_NUM_INT); - t = IRT_NUM; - } - tr = emitir(IRT(op, t), tr, tr2); - } - J->base[0] = tr; -} - -static void LJ_FASTCALL recff_math_random(jit_State *J, RecordFFData *rd) -{ - GCudata *ud = udataV(&J->fn->c.upvalue[0]); - TRef tr, one; - lj_ir_kgc(J, obj2gco(ud), IRT_UDATA); /* Prevent collection. */ - tr = lj_ir_call(J, IRCALL_lj_math_random_step, lj_ir_kptr(J, uddata(ud))); - one = lj_ir_knum_one(J); - tr = emitir(IRTN(IR_SUB), tr, one); - if (J->base[0]) { - TRef tr1 = lj_ir_tonum(J, J->base[0]); - if (J->base[1]) { /* d = floor(d*(r2-r1+1.0)) + r1 */ - TRef tr2 = lj_ir_tonum(J, J->base[1]); - tr2 = emitir(IRTN(IR_SUB), tr2, tr1); - tr2 = emitir(IRTN(IR_ADD), tr2, one); - tr = emitir(IRTN(IR_MUL), tr, tr2); - tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_FLOOR); - tr = emitir(IRTN(IR_ADD), tr, tr1); - } else { /* d = floor(d*r1) + 1.0 */ - tr = emitir(IRTN(IR_MUL), tr, tr1); - tr = emitir(IRTN(IR_FPMATH), tr, IRFPM_FLOOR); - tr = emitir(IRTN(IR_ADD), tr, one); - } - } - J->base[0] = tr; - UNUSED(rd); -} - -/* -- Bit library fast functions ------------------------------------------ */ - -/* Record bit.tobit. */ -static void LJ_FASTCALL recff_bit_tobit(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; -#if LJ_HASFFI - if (tref_iscdata(tr)) { recff_bit64_tobit(J, rd); return; } -#endif - J->base[0] = lj_opt_narrow_tobit(J, tr); - UNUSED(rd); -} - -/* Record unary bit.bnot, bit.bswap. */ -static void LJ_FASTCALL recff_bit_unary(jit_State *J, RecordFFData *rd) -{ -#if LJ_HASFFI - if (recff_bit64_unary(J, rd)) - return; -#endif - J->base[0] = emitir(IRTI(rd->data), lj_opt_narrow_tobit(J, J->base[0]), 0); -} - -/* Record N-ary bit.band, bit.bor, bit.bxor. */ -static void LJ_FASTCALL recff_bit_nary(jit_State *J, RecordFFData *rd) -{ -#if LJ_HASFFI - if (recff_bit64_nary(J, rd)) - return; -#endif - { - TRef tr = lj_opt_narrow_tobit(J, J->base[0]); - uint32_t ot = IRTI(rd->data); - BCReg i; - for (i = 1; J->base[i] != 0; i++) - tr = emitir(ot, tr, lj_opt_narrow_tobit(J, J->base[i])); - J->base[0] = tr; - } -} - -/* Record bit shifts. */ -static void LJ_FASTCALL recff_bit_shift(jit_State *J, RecordFFData *rd) -{ -#if LJ_HASFFI - if (recff_bit64_shift(J, rd)) - return; -#endif - { - TRef tr = lj_opt_narrow_tobit(J, J->base[0]); - TRef tsh = lj_opt_narrow_tobit(J, J->base[1]); - IROp op = (IROp)rd->data; - if (!(op < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && - !tref_isk(tsh)) - tsh = emitir(IRTI(IR_BAND), tsh, lj_ir_kint(J, 31)); -#ifdef LJ_TARGET_UNIFYROT - if (op == (LJ_TARGET_UNIFYROT == 1 ? IR_BROR : IR_BROL)) { - op = LJ_TARGET_UNIFYROT == 1 ? IR_BROL : IR_BROR; - tsh = emitir(IRTI(IR_NEG), tsh, tsh); - } -#endif - J->base[0] = emitir(IRTI(op), tr, tsh); - } -} - -static void LJ_FASTCALL recff_bit_tohex(jit_State *J, RecordFFData *rd) -{ -#if LJ_HASFFI - TRef hdr = recff_bufhdr(J); - TRef tr = recff_bit64_tohex(J, rd, hdr); - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); -#else - recff_nyiu(J, rd); /* Don't bother working around this NYI. */ -#endif -} - -/* -- String library fast functions --------------------------------------- */ - -/* Specialize to relative starting position for string. */ -static TRef recff_string_start(jit_State *J, GCstr *s, int32_t *st, TRef tr, - TRef trlen, TRef tr0) -{ - int32_t start = *st; - if (start < 0) { - emitir(IRTGI(IR_LT), tr, tr0); - tr = emitir(IRTI(IR_ADD), trlen, tr); - start = start + (int32_t)s->len; - emitir(start < 0 ? IRTGI(IR_LT) : IRTGI(IR_GE), tr, tr0); - if (start < 0) { - tr = tr0; - start = 0; - } - } else if (start == 0) { - emitir(IRTGI(IR_EQ), tr, tr0); - tr = tr0; - } else { - tr = emitir(IRTI(IR_ADD), tr, lj_ir_kint(J, -1)); - emitir(IRTGI(IR_GE), tr, tr0); - start--; - } - *st = start; - return tr; -} - -/* Handle string.byte (rd->data = 0) and string.sub (rd->data = 1). */ -static void LJ_FASTCALL recff_string_range(jit_State *J, RecordFFData *rd) -{ - TRef trstr = lj_ir_tostr(J, J->base[0]); - TRef trlen = emitir(IRTI(IR_FLOAD), trstr, IRFL_STR_LEN); - TRef tr0 = lj_ir_kint(J, 0); - TRef trstart, trend; - GCstr *str = argv2str(J, &rd->argv[0]); - int32_t start, end; - if (rd->data) { /* string.sub(str, start [,end]) */ - start = argv2int(J, &rd->argv[1]); - trstart = lj_opt_narrow_toint(J, J->base[1]); - trend = J->base[2]; - if (tref_isnil(trend)) { - trend = lj_ir_kint(J, -1); - end = -1; - } else { - trend = lj_opt_narrow_toint(J, trend); - end = argv2int(J, &rd->argv[2]); - } - } else { /* string.byte(str, [,start [,end]]) */ - if (tref_isnil(J->base[1])) { - start = 1; - trstart = lj_ir_kint(J, 1); - } else { - start = argv2int(J, &rd->argv[1]); - trstart = lj_opt_narrow_toint(J, J->base[1]); - } - if (J->base[1] && !tref_isnil(J->base[2])) { - trend = lj_opt_narrow_toint(J, J->base[2]); - end = argv2int(J, &rd->argv[2]); - } else { - trend = trstart; - end = start; - } - } - if (end < 0) { - emitir(IRTGI(IR_LT), trend, tr0); - trend = emitir(IRTI(IR_ADD), emitir(IRTI(IR_ADD), trlen, trend), - lj_ir_kint(J, 1)); - end = end+(int32_t)str->len+1; - } else if ((MSize)end <= str->len) { - emitir(IRTGI(IR_ULE), trend, trlen); - } else { - emitir(IRTGI(IR_UGT), trend, trlen); - end = (int32_t)str->len; - trend = trlen; - } - trstart = recff_string_start(J, str, &start, trstart, trlen, tr0); - if (rd->data) { /* Return string.sub result. */ - if (end - start >= 0) { - /* Also handle empty range here, to avoid extra traces. */ - TRef trptr, trslen = emitir(IRTI(IR_SUB), trend, trstart); - emitir(IRTGI(IR_GE), trslen, tr0); - trptr = emitir(IRT(IR_STRREF, IRT_P32), trstr, trstart); - J->base[0] = emitir(IRT(IR_SNEW, IRT_STR), trptr, trslen); - } else { /* Range underflow: return empty string. */ - emitir(IRTGI(IR_LT), trend, trstart); - J->base[0] = lj_ir_kstr(J, &J2G(J)->strempty); - } - } else { /* Return string.byte result(s). */ - ptrdiff_t i, len = end - start; - if (len > 0) { - TRef trslen = emitir(IRTI(IR_SUB), trend, trstart); - emitir(IRTGI(IR_EQ), trslen, lj_ir_kint(J, (int32_t)len)); - if (J->baseslot + len > LJ_MAX_JSLOTS) - lj_trace_err_info(J, LJ_TRERR_STACKOV); - rd->nres = len; - for (i = 0; i < len; i++) { - TRef tmp = emitir(IRTI(IR_ADD), trstart, lj_ir_kint(J, (int32_t)i)); - tmp = emitir(IRT(IR_STRREF, IRT_P32), trstr, tmp); - J->base[i] = emitir(IRT(IR_XLOAD, IRT_U8), tmp, IRXLOAD_READONLY); - } - } else { /* Empty range or range underflow: return no results. */ - emitir(IRTGI(IR_LE), trend, trstart); - rd->nres = 0; - } - } -} - -static void LJ_FASTCALL recff_string_char(jit_State *J, RecordFFData *rd) -{ - TRef k255 = lj_ir_kint(J, 255); - BCReg i; - for (i = 0; J->base[i] != 0; i++) { /* Convert char values to strings. */ - TRef tr = lj_opt_narrow_toint(J, J->base[i]); - emitir(IRTGI(IR_ULE), tr, k255); - J->base[i] = emitir(IRT(IR_TOSTR, IRT_STR), tr, IRTOSTR_CHAR); - } - if (i > 1) { /* Concatenate the strings, if there's more than one. */ - TRef hdr = recff_bufhdr(J), tr = hdr; - for (i = 0; J->base[i] != 0; i++) - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, J->base[i]); - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); - } - UNUSED(rd); -} - -static void LJ_FASTCALL recff_string_rep(jit_State *J, RecordFFData *rd) -{ - TRef str = lj_ir_tostr(J, J->base[0]); - TRef rep = lj_opt_narrow_toint(J, J->base[1]); - TRef hdr, tr, str2 = 0; - if (!tref_isnil(J->base[2])) { - TRef sep = lj_ir_tostr(J, J->base[2]); - int32_t vrep = argv2int(J, &rd->argv[1]); - emitir(IRTGI(vrep > 1 ? IR_GT : IR_LE), rep, lj_ir_kint(J, 1)); - if (vrep > 1) { - TRef hdr2 = recff_bufhdr(J); - TRef tr2 = emitir(IRT(IR_BUFPUT, IRT_P32), hdr2, sep); - tr2 = emitir(IRT(IR_BUFPUT, IRT_P32), tr2, str); - str2 = emitir(IRT(IR_BUFSTR, IRT_STR), tr2, hdr2); - } - } - tr = hdr = recff_bufhdr(J); - if (str2) { - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, str); - str = str2; - rep = emitir(IRTI(IR_ADD), rep, lj_ir_kint(J, -1)); - } - tr = lj_ir_call(J, IRCALL_lj_buf_putstr_rep, tr, str, rep); - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); -} - -static void LJ_FASTCALL recff_string_op(jit_State *J, RecordFFData *rd) -{ - TRef str = lj_ir_tostr(J, J->base[0]); - TRef hdr = recff_bufhdr(J); - TRef tr = lj_ir_call(J, rd->data, hdr, str); - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); -} - -static void LJ_FASTCALL recff_string_find(jit_State *J, RecordFFData *rd) -{ - TRef trstr = lj_ir_tostr(J, J->base[0]); - TRef trpat = lj_ir_tostr(J, J->base[1]); - TRef trlen = emitir(IRTI(IR_FLOAD), trstr, IRFL_STR_LEN); - TRef tr0 = lj_ir_kint(J, 0); - TRef trstart; - GCstr *str = argv2str(J, &rd->argv[0]); - GCstr *pat = argv2str(J, &rd->argv[1]); - int32_t start; - J->needsnap = 1; - if (tref_isnil(J->base[2])) { - trstart = lj_ir_kint(J, 1); - start = 1; - } else { - trstart = lj_opt_narrow_toint(J, J->base[2]); - start = argv2int(J, &rd->argv[2]); - } - trstart = recff_string_start(J, str, &start, trstart, trlen, tr0); - if ((MSize)start <= str->len) { - emitir(IRTGI(IR_ULE), trstart, trlen); - } else { - emitir(IRTGI(IR_UGT), trstart, trlen); -#if LJ_52 - J->base[0] = TREF_NIL; - return; -#else - trstart = trlen; - start = str->len; -#endif - } - /* Fixed arg or no pattern matching chars? (Specialized to pattern string.) */ - if ((J->base[2] && tref_istruecond(J->base[3])) || - (emitir(IRTG(IR_EQ, IRT_STR), trpat, lj_ir_kstr(J, pat)), - !lj_str_haspattern(pat))) { /* Search for fixed string. */ - TRef trsptr = emitir(IRT(IR_STRREF, IRT_P32), trstr, trstart); - TRef trpptr = emitir(IRT(IR_STRREF, IRT_P32), trpat, tr0); - TRef trslen = emitir(IRTI(IR_SUB), trlen, trstart); - TRef trplen = emitir(IRTI(IR_FLOAD), trpat, IRFL_STR_LEN); - TRef tr = lj_ir_call(J, IRCALL_lj_str_find, trsptr, trpptr, trslen, trplen); - TRef trp0 = lj_ir_kkptr(J, NULL); - if (lj_str_find(strdata(str)+(MSize)start, strdata(pat), - str->len-(MSize)start, pat->len)) { - TRef pos; - emitir(IRTG(IR_NE, IRT_P32), tr, trp0); - pos = emitir(IRTI(IR_SUB), tr, emitir(IRT(IR_STRREF, IRT_P32), trstr, tr0)); - J->base[0] = emitir(IRTI(IR_ADD), pos, lj_ir_kint(J, 1)); - J->base[1] = emitir(IRTI(IR_ADD), pos, trplen); - rd->nres = 2; - } else { - emitir(IRTG(IR_EQ, IRT_P32), tr, trp0); - J->base[0] = TREF_NIL; - } - } else { /* Search for pattern. */ - recff_nyiu(J, rd); - return; - } -} - -static void LJ_FASTCALL recff_string_format(jit_State *J, RecordFFData *rd) -{ - TRef trfmt = lj_ir_tostr(J, J->base[0]); - GCstr *fmt = argv2str(J, &rd->argv[0]); - int arg = 1; - TRef hdr, tr; - FormatState fs; - SFormat sf; - /* Specialize to the format string. */ - emitir(IRTG(IR_EQ, IRT_STR), trfmt, lj_ir_kstr(J, fmt)); - tr = hdr = recff_bufhdr(J); - lj_strfmt_init(&fs, strdata(fmt), fmt->len); - while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { /* Parse format. */ - TRef tra = sf == STRFMT_LIT ? 0 : J->base[arg++]; - TRef trsf = lj_ir_kint(J, (int32_t)sf); - IRCallID id; - switch (STRFMT_TYPE(sf)) { - case STRFMT_LIT: - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, - lj_ir_kstr(J, lj_str_new(J->L, fs.str, fs.len))); - break; - case STRFMT_INT: - id = IRCALL_lj_strfmt_putfnum_int; - handle_int: - if (!tref_isinteger(tra)) - goto handle_num; - if (sf == STRFMT_INT) { /* Shortcut for plain %d. */ - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, - emitir(IRT(IR_TOSTR, IRT_STR), tra, IRTOSTR_INT)); - } else { -#if LJ_HASFFI - tra = emitir(IRT(IR_CONV, IRT_U64), tra, - (IRT_INT|(IRT_U64<<5)|IRCONV_SEXT)); - tr = lj_ir_call(J, IRCALL_lj_strfmt_putfxint, tr, trsf, tra); - lj_needsplit(J); -#else - recff_nyiu(J, rd); /* Don't bother working around this NYI. */ - return; -#endif - } - break; - case STRFMT_UINT: - id = IRCALL_lj_strfmt_putfnum_uint; - goto handle_int; - case STRFMT_NUM: - id = IRCALL_lj_strfmt_putfnum; - handle_num: - tra = lj_ir_tonum(J, tra); - tr = lj_ir_call(J, id, tr, trsf, tra); - if (LJ_SOFTFP) lj_needsplit(J); - break; - case STRFMT_STR: - if (!tref_isstr(tra)) { - recff_nyiu(J, rd); /* NYI: __tostring and non-string types for %s. */ - return; - } - if (sf == STRFMT_STR) /* Shortcut for plain %s. */ - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, tra); - else if ((sf & STRFMT_T_QUOTED)) - tr = lj_ir_call(J, IRCALL_lj_strfmt_putquoted, tr, tra); - else - tr = lj_ir_call(J, IRCALL_lj_strfmt_putfstr, tr, trsf, tra); - break; - case STRFMT_CHAR: - tra = lj_opt_narrow_toint(J, tra); - if (sf == STRFMT_CHAR) /* Shortcut for plain %c. */ - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, - emitir(IRT(IR_TOSTR, IRT_STR), tra, IRTOSTR_CHAR)); - else - tr = lj_ir_call(J, IRCALL_lj_strfmt_putfchar, tr, trsf, tra); - break; - case STRFMT_PTR: /* NYI */ - case STRFMT_ERR: - default: - recff_nyiu(J, rd); - return; - } - } - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); -} - -/* -- Table library fast functions ---------------------------------------- */ - -static void LJ_FASTCALL recff_table_insert(jit_State *J, RecordFFData *rd) -{ - RecordIndex ix; - ix.tab = J->base[0]; - ix.val = J->base[1]; - rd->nres = 0; - if (tref_istab(ix.tab) && ix.val) { - if (!J->base[2]) { /* Simple push: t[#t+1] = v */ - TRef trlen = lj_ir_call(J, IRCALL_lj_tab_len, ix.tab); - GCtab *t = tabV(&rd->argv[0]); - ix.key = emitir(IRTI(IR_ADD), trlen, lj_ir_kint(J, 1)); - settabV(J->L, &ix.tabv, t); - setintV(&ix.keyv, lj_tab_len(t) + 1); - ix.idxchain = 0; - lj_record_idx(J, &ix); /* Set new value. */ - } else { /* Complex case: insert in the middle. */ - recff_nyiu(J, rd); - return; - } - } /* else: Interpreter will throw. */ -} - -static void LJ_FASTCALL recff_table_concat(jit_State *J, RecordFFData *rd) -{ - TRef tab = J->base[0]; - if (tref_istab(tab)) { - TRef sep = !tref_isnil(J->base[1]) ? - lj_ir_tostr(J, J->base[1]) : lj_ir_knull(J, IRT_STR); - TRef tri = (J->base[1] && !tref_isnil(J->base[2])) ? - lj_opt_narrow_toint(J, J->base[2]) : lj_ir_kint(J, 1); - TRef tre = (J->base[1] && J->base[2] && !tref_isnil(J->base[3])) ? - lj_opt_narrow_toint(J, J->base[3]) : - lj_ir_call(J, IRCALL_lj_tab_len, tab); - TRef hdr = recff_bufhdr(J); - TRef tr = lj_ir_call(J, IRCALL_lj_buf_puttab, hdr, tab, sep, tri, tre); - emitir(IRTG(IR_NE, IRT_PTR), tr, lj_ir_kptr(J, NULL)); - J->base[0] = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); - } /* else: Interpreter will throw. */ - UNUSED(rd); -} - -static void LJ_FASTCALL recff_table_new(jit_State *J, RecordFFData *rd) -{ - TRef tra = lj_opt_narrow_toint(J, J->base[0]); - TRef trh = lj_opt_narrow_toint(J, J->base[1]); - J->base[0] = lj_ir_call(J, IRCALL_lj_tab_new_ah, tra, trh); - UNUSED(rd); -} - -static void LJ_FASTCALL recff_table_clear(jit_State *J, RecordFFData *rd) -{ - TRef tr = J->base[0]; - if (tref_istab(tr)) { - rd->nres = 0; - lj_ir_call(J, IRCALL_lj_tab_clear, tr); - J->needsnap = 1; - } /* else: Interpreter will throw. */ -} - -/* -- I/O library fast functions ------------------------------------------ */ - -/* Get FILE* for I/O function. Any I/O error aborts recording, so there's -** no need to encode the alternate cases for any of the guards. -*/ -static TRef recff_io_fp(jit_State *J, TRef *udp, int32_t id) -{ - TRef tr, ud, fp; - if (id) { /* io.func() */ - tr = lj_ir_kptr(J, &J2G(J)->gcroot[id]); - ud = emitir(IRT(IR_XLOAD, IRT_UDATA), tr, 0); - } else { /* fp:method() */ - ud = J->base[0]; - if (!tref_isudata(ud)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - tr = emitir(IRT(IR_FLOAD, IRT_U8), ud, IRFL_UDATA_UDTYPE); - emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, UDTYPE_IO_FILE)); - } - *udp = ud; - fp = emitir(IRT(IR_FLOAD, IRT_PTR), ud, IRFL_UDATA_FILE); - emitir(IRTG(IR_NE, IRT_PTR), fp, lj_ir_knull(J, IRT_PTR)); - return fp; -} - -static void LJ_FASTCALL recff_io_write(jit_State *J, RecordFFData *rd) -{ - TRef ud, fp = recff_io_fp(J, &ud, rd->data); - TRef zero = lj_ir_kint(J, 0); - TRef one = lj_ir_kint(J, 1); - ptrdiff_t i = rd->data == 0 ? 1 : 0; - for (; J->base[i]; i++) { - TRef str = lj_ir_tostr(J, J->base[i]); - TRef buf = emitir(IRT(IR_STRREF, IRT_P32), str, zero); - TRef len = emitir(IRTI(IR_FLOAD), str, IRFL_STR_LEN); - if (tref_isk(len) && IR(tref_ref(len))->i == 1) { - IRIns *irs = IR(tref_ref(str)); - TRef tr = (irs->o == IR_TOSTR && irs->op2 == IRTOSTR_CHAR) ? - irs->op1 : - emitir(IRT(IR_XLOAD, IRT_U8), buf, IRXLOAD_READONLY); - tr = lj_ir_call(J, IRCALL_fputc, tr, fp); - if (results_wanted(J) != 0) /* Check result only if not ignored. */ - emitir(IRTGI(IR_NE), tr, lj_ir_kint(J, -1)); - } else { - TRef tr = lj_ir_call(J, IRCALL_fwrite, buf, one, len, fp); - if (results_wanted(J) != 0) /* Check result only if not ignored. */ - emitir(IRTGI(IR_EQ), tr, len); - } - } - J->base[0] = LJ_52 ? ud : TREF_TRUE; -} - -static void LJ_FASTCALL recff_io_flush(jit_State *J, RecordFFData *rd) -{ - TRef ud, fp = recff_io_fp(J, &ud, rd->data); - TRef tr = lj_ir_call(J, IRCALL_fflush, fp); - if (results_wanted(J) != 0) /* Check result only if not ignored. */ - emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, 0)); - J->base[0] = TREF_TRUE; -} - -/* -- Debug library fast functions ---------------------------------------- */ - -static void LJ_FASTCALL recff_debug_getmetatable(jit_State *J, RecordFFData *rd) -{ - GCtab *mt; - TRef mtref; - TRef tr = J->base[0]; - if (tref_istab(tr)) { - mt = tabref(tabV(&rd->argv[0])->metatable); - mtref = emitir(IRT(IR_FLOAD, IRT_TAB), tr, IRFL_TAB_META); - } else if (tref_isudata(tr)) { - mt = tabref(udataV(&rd->argv[0])->metatable); - mtref = emitir(IRT(IR_FLOAD, IRT_TAB), tr, IRFL_UDATA_META); - } else { - mt = tabref(basemt_obj(J2G(J), &rd->argv[0])); - J->base[0] = mt ? lj_ir_ktab(J, mt) : TREF_NIL; - return; - } - emitir(IRTG(mt ? IR_NE : IR_EQ, IRT_TAB), mtref, lj_ir_knull(J, IRT_TAB)); - J->base[0] = mt ? mtref : TREF_NIL; -} - -/* -- Record calls to fast functions -------------------------------------- */ - -#include "lj_recdef.h" - -static uint32_t recdef_lookup(GCfunc *fn) -{ - if (fn->c.ffid < sizeof(recff_idmap)/sizeof(recff_idmap[0])) - return recff_idmap[fn->c.ffid]; - else - return 0; -} - -/* Record entry to a fast function or C function. */ -void lj_ffrecord_func(jit_State *J) -{ - RecordFFData rd; - uint32_t m = recdef_lookup(J->fn); - rd.data = m & 0xff; - rd.nres = 1; /* Default is one result. */ - rd.argv = J->L->base; - J->base[J->maxslot] = 0; /* Mark end of arguments. */ - (recff_func[m >> 8])(J, &rd); /* Call recff_* handler. */ - if (rd.nres >= 0) { - if (J->postproc == LJ_POST_NONE) J->postproc = LJ_POST_FFRETRY; - lj_record_ret(J, 0, rd.nres); - } -} - -#undef IR -#undef emitir - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h b/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h deleted file mode 100644 index f858ca29cfc..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ffrecord.h +++ /dev/null @@ -1,24 +0,0 @@ -/* -** Fast function call recorder. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_FFRECORD_H -#define _LJ_FFRECORD_H - -#include "lj_obj.h" -#include "lj_jit.h" - -#if LJ_HASJIT -/* Data used by handlers to record a fast function. */ -typedef struct RecordFFData { - TValue *argv; /* Runtime argument values. */ - ptrdiff_t nres; /* Number of returned results (defaults to 1). */ - uint32_t data; /* Per-ffid auxiliary data (opcode, literal etc.). */ -} RecordFFData; - -LJ_FUNC int32_t lj_ffrecord_select_mode(jit_State *J, TRef tr, TValue *tv); -LJ_FUNC void lj_ffrecord_func(jit_State *J); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_frame.h b/src/3rd party/luajit-2.0-BAK/src/lj_frame.h deleted file mode 100644 index 8fe48db18c3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_frame.h +++ /dev/null @@ -1,239 +0,0 @@ -/* -** Stack frames. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_FRAME_H -#define _LJ_FRAME_H - -#include "lj_obj.h" -#include "lj_bc.h" - -/* -- Lua stack frame ----------------------------------------------------- */ - -/* Frame type markers in LSB of PC (4-byte aligned) or delta (8-byte aligned: -** -** PC 00 Lua frame -** delta 001 C frame -** delta 010 Continuation frame -** delta 011 Lua vararg frame -** delta 101 cpcall() frame -** delta 110 ff pcall() frame -** delta 111 ff pcall() frame with active hook -*/ -enum { - FRAME_LUA, FRAME_C, FRAME_CONT, FRAME_VARG, - FRAME_LUAP, FRAME_CP, FRAME_PCALL, FRAME_PCALLH -}; -#define FRAME_TYPE 3 -#define FRAME_P 4 -#define FRAME_TYPEP (FRAME_TYPE|FRAME_P) - -/* Macros to access and modify Lua frames. */ -#if LJ_FR2 -/* Two-slot frame info, required for 64 bit PC/GCRef: -** -** base-2 base-1 | base base+1 ... -** [func PC/delta/ft] | [slots ...] -** ^-- frame | ^-- base ^-- top -** -** Continuation frames: -** -** base-4 base-3 base-2 base-1 | base base+1 ... -** [cont PC ] [func PC/delta/ft] | [slots ...] -** ^-- frame | ^-- base ^-- top -*/ -#define frame_gc(f) (gcval((f)-1)) -#define frame_ftsz(f) ((ptrdiff_t)(f)->ftsz) -#define frame_pc(f) ((const BCIns *)frame_ftsz(f)) -#define setframe_gc(f, p, tp) (setgcVraw((f)-1, (p), (tp))) -#define setframe_ftsz(f, sz) ((f)->ftsz = (sz)) -#define setframe_pc(f, pc) ((f)->ftsz = (int64_t)(intptr_t)(pc)) -#else -/* One-slot frame info, sufficient for 32 bit PC/GCRef: -** -** base-1 | base base+1 ... -** lo hi | -** [func | PC/delta/ft] | [slots ...] -** ^-- frame | ^-- base ^-- top -** -** Continuation frames: -** -** base-2 base-1 | base base+1 ... -** lo hi lo hi | -** [cont | PC] [func | PC/delta/ft] | [slots ...] -** ^-- frame | ^-- base ^-- top -*/ -#define frame_gc(f) (gcref((f)->fr.func)) -#define frame_ftsz(f) ((ptrdiff_t)(f)->fr.tp.ftsz) -#define frame_pc(f) (mref((f)->fr.tp.pcr, const BCIns)) -#define setframe_gc(f, p, tp) (setgcref((f)->fr.func, (p)), UNUSED(tp)) -#define setframe_ftsz(f, sz) ((f)->fr.tp.ftsz = (int32_t)(sz)) -#define setframe_pc(f, pc) (setmref((f)->fr.tp.pcr, (pc))) -#endif - -#define frame_type(f) (frame_ftsz(f) & FRAME_TYPE) -#define frame_typep(f) (frame_ftsz(f) & FRAME_TYPEP) -#define frame_islua(f) (frame_type(f) == FRAME_LUA) -#define frame_isc(f) (frame_type(f) == FRAME_C) -#define frame_iscont(f) (frame_typep(f) == FRAME_CONT) -#define frame_isvarg(f) (frame_typep(f) == FRAME_VARG) -#define frame_ispcall(f) ((frame_ftsz(f) & 6) == FRAME_PCALL) - -#define frame_func(f) (&frame_gc(f)->fn) -#define frame_delta(f) (frame_ftsz(f) >> 3) -#define frame_sized(f) (frame_ftsz(f) & ~FRAME_TYPEP) - -enum { LJ_CONT_TAILCALL, LJ_CONT_FFI_CALLBACK }; /* Special continuations. */ - -#if LJ_FR2 -#define frame_contpc(f) (frame_pc((f)-2)) -#define frame_contv(f) (((f)-3)->u64) -#else -#define frame_contpc(f) (frame_pc((f)-1)) -#define frame_contv(f) (((f)-1)->u32.lo) -#endif -#if LJ_FR2 -#define frame_contf(f) ((ASMFunction)(uintptr_t)((f)-3)->u64) -#elif LJ_64 -#define frame_contf(f) \ - ((ASMFunction)(void *)((intptr_t)lj_vm_asm_begin + \ - (intptr_t)(int32_t)((f)-1)->u32.lo)) -#else -#define frame_contf(f) ((ASMFunction)gcrefp(((f)-1)->gcr, void)) -#endif -#define frame_iscont_fficb(f) \ - (LJ_HASFFI && frame_contv(f) == LJ_CONT_FFI_CALLBACK) - -#define frame_prevl(f) ((f) - (1+LJ_FR2+bc_a(frame_pc(f)[-1]))) -#define frame_prevd(f) ((TValue *)((char *)(f) - frame_sized(f))) -#define frame_prev(f) (frame_islua(f)?frame_prevl(f):frame_prevd(f)) -/* Note: this macro does not skip over FRAME_VARG. */ - -/* -- C stack frame ------------------------------------------------------- */ - -/* Macros to access and modify the C stack frame chain. */ - -/* These definitions must match with the arch-specific *.dasc files. */ -#if LJ_TARGET_X86 -#define CFRAME_OFS_ERRF (15*4) -#define CFRAME_OFS_NRES (14*4) -#define CFRAME_OFS_PREV (13*4) -#define CFRAME_OFS_L (12*4) -#define CFRAME_OFS_PC (6*4) -#define CFRAME_OFS_MULTRES (5*4) -#define CFRAME_SIZE (12*4) -#define CFRAME_SHIFT_MULTRES 0 -#elif LJ_TARGET_X64 -#if LJ_ABI_WIN -#define CFRAME_OFS_PREV (13*8) -#define CFRAME_OFS_PC (25*4) -#define CFRAME_OFS_L (24*4) -#define CFRAME_OFS_ERRF (23*4) -#define CFRAME_OFS_NRES (22*4) -#define CFRAME_OFS_MULTRES (21*4) -#define CFRAME_SIZE (10*8) -#define CFRAME_SIZE_JIT (CFRAME_SIZE + 9*16 + 4*8) -#define CFRAME_SHIFT_MULTRES 0 -#else -#define CFRAME_OFS_PREV (4*8) -#define CFRAME_OFS_PC (7*4) -#define CFRAME_OFS_L (6*4) -#define CFRAME_OFS_ERRF (5*4) -#define CFRAME_OFS_NRES (4*4) -#define CFRAME_OFS_MULTRES (1*4) -#define CFRAME_SIZE (10*8) -#define CFRAME_SIZE_JIT (CFRAME_SIZE + 16) -#define CFRAME_SHIFT_MULTRES 0 -#endif -#elif LJ_TARGET_ARM -#define CFRAME_OFS_ERRF 24 -#define CFRAME_OFS_NRES 20 -#define CFRAME_OFS_PREV 16 -#define CFRAME_OFS_L 12 -#define CFRAME_OFS_PC 8 -#define CFRAME_OFS_MULTRES 4 -#if LJ_ARCH_HASFPU -#define CFRAME_SIZE 128 -#else -#define CFRAME_SIZE 64 -#endif -#define CFRAME_SHIFT_MULTRES 3 -#elif LJ_TARGET_ARM64 -#define CFRAME_OFS_ERRF 196 -#define CFRAME_OFS_NRES 200 -#define CFRAME_OFS_PREV 160 -#define CFRAME_OFS_L 176 -#define CFRAME_OFS_PC 168 -#define CFRAME_OFS_MULTRES 192 -#define CFRAME_SIZE 208 -#define CFRAME_SHIFT_MULTRES 3 -#elif LJ_TARGET_PPC -#if LJ_TARGET_XBOX360 -#define CFRAME_OFS_ERRF 424 -#define CFRAME_OFS_NRES 420 -#define CFRAME_OFS_PREV 400 -#define CFRAME_OFS_L 416 -#define CFRAME_OFS_PC 412 -#define CFRAME_OFS_MULTRES 408 -#define CFRAME_SIZE 384 -#define CFRAME_SHIFT_MULTRES 3 -#elif LJ_ARCH_PPC64 -#define CFRAME_OFS_ERRF 472 -#define CFRAME_OFS_NRES 468 -#define CFRAME_OFS_PREV 448 -#define CFRAME_OFS_L 464 -#define CFRAME_OFS_PC 460 -#define CFRAME_OFS_MULTRES 456 -#define CFRAME_SIZE 400 -#define CFRAME_SHIFT_MULTRES 3 -#else -#define CFRAME_OFS_ERRF 48 -#define CFRAME_OFS_NRES 44 -#define CFRAME_OFS_PREV 40 -#define CFRAME_OFS_L 36 -#define CFRAME_OFS_PC 32 -#define CFRAME_OFS_MULTRES 28 -#define CFRAME_SIZE 272 -#define CFRAME_SHIFT_MULTRES 3 -#endif -#elif LJ_TARGET_MIPS -#define CFRAME_OFS_ERRF 124 -#define CFRAME_OFS_NRES 120 -#define CFRAME_OFS_PREV 116 -#define CFRAME_OFS_L 112 -#define CFRAME_OFS_PC 20 -#define CFRAME_OFS_MULTRES 16 -#define CFRAME_SIZE 112 -#define CFRAME_SHIFT_MULTRES 3 -#else -#error "Missing CFRAME_* definitions for this architecture" -#endif - -#ifndef CFRAME_SIZE_JIT -#define CFRAME_SIZE_JIT CFRAME_SIZE -#endif - -#define CFRAME_RESUME 1 -#define CFRAME_UNWIND_FF 2 /* Only used in unwinder. */ -#define CFRAME_RAWMASK (~(intptr_t)(CFRAME_RESUME|CFRAME_UNWIND_FF)) - -#define cframe_errfunc(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_ERRF)) -#define cframe_nres(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_NRES)) -#define cframe_prev(cf) (*(void **)(((char *)(cf))+CFRAME_OFS_PREV)) -#define cframe_multres(cf) (*(uint32_t *)(((char *)(cf))+CFRAME_OFS_MULTRES)) -#define cframe_multres_n(cf) (cframe_multres((cf)) >> CFRAME_SHIFT_MULTRES) -#define cframe_L(cf) \ - (&gcref(*(GCRef *)(((char *)(cf))+CFRAME_OFS_L))->th) -#define cframe_pc(cf) \ - (mref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), const BCIns)) -#define setcframe_L(cf, L) \ - (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_L), (L))) -#define setcframe_pc(cf, pc) \ - (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), (pc))) -#define cframe_canyield(cf) ((intptr_t)(cf) & CFRAME_RESUME) -#define cframe_unwind_ff(cf) ((intptr_t)(cf) & CFRAME_UNWIND_FF) -#define cframe_raw(cf) ((void *)((intptr_t)(cf) & CFRAME_RAWMASK)) -#define cframe_Lpc(L) cframe_pc(cframe_raw(L->cframe)) - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_func.c b/src/3rd party/luajit-2.0-BAK/src/lj_func.c deleted file mode 100644 index eb8a9dbbfd8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_func.c +++ /dev/null @@ -1,185 +0,0 @@ -/* -** Function handling (prototypes, functions and upvalues). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_func_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_func.h" -#include "lj_trace.h" -#include "lj_vm.h" - -/* -- Prototypes ---------------------------------------------------------- */ - -void LJ_FASTCALL lj_func_freeproto(global_State *g, GCproto *pt) -{ - lj_mem_free(g, pt, pt->sizept); -} - -/* -- Upvalues ------------------------------------------------------------ */ - -static void unlinkuv(GCupval *uv) -{ - lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); - setgcrefr(uvnext(uv)->prev, uv->prev); - setgcrefr(uvprev(uv)->next, uv->next); -} - -/* Find existing open upvalue for a stack slot or create a new one. */ -static GCupval *func_finduv(lua_State *L, TValue *slot) -{ - global_State *g = G(L); - GCRef *pp = &L->openupval; - GCupval *p; - GCupval *uv; - /* Search the sorted list of open upvalues. */ - while (gcref(*pp) != NULL && uvval((p = gco2uv(gcref(*pp)))) >= slot) { - lua_assert(!p->closed && uvval(p) != &p->tv); - if (uvval(p) == slot) { /* Found open upvalue pointing to same slot? */ - if (isdead(g, obj2gco(p))) /* Resurrect it, if it's dead. */ - flipwhite(obj2gco(p)); - return p; - } - pp = &p->nextgc; - } - /* No matching upvalue found. Create a new one. */ - uv = lj_mem_newt(L, sizeof(GCupval), GCupval); - newwhite(g, uv); - uv->gct = ~LJ_TUPVAL; - uv->closed = 0; /* Still open. */ - setmref(uv->v, slot); /* Pointing to the stack slot. */ - /* NOBARRIER: The GCupval is new (marked white) and open. */ - setgcrefr(uv->nextgc, *pp); /* Insert into sorted list of open upvalues. */ - setgcref(*pp, obj2gco(uv)); - setgcref(uv->prev, obj2gco(&g->uvhead)); /* Insert into GC list, too. */ - setgcrefr(uv->next, g->uvhead.next); - setgcref(uvnext(uv)->prev, obj2gco(uv)); - setgcref(g->uvhead.next, obj2gco(uv)); - lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); - return uv; -} - -/* Create an empty and closed upvalue. */ -static GCupval *func_emptyuv(lua_State *L) -{ - GCupval *uv = (GCupval *)lj_mem_newgco(L, sizeof(GCupval)); - uv->gct = ~LJ_TUPVAL; - uv->closed = 1; - setnilV(&uv->tv); - setmref(uv->v, &uv->tv); - return uv; -} - -/* Close all open upvalues pointing to some stack level or above. */ -void LJ_FASTCALL lj_func_closeuv(lua_State *L, TValue *level) -{ - GCupval *uv; - global_State *g = G(L); - while (gcref(L->openupval) != NULL && - uvval((uv = gco2uv(gcref(L->openupval)))) >= level) { - GCobj *o = obj2gco(uv); - lua_assert(!isblack(o) && !uv->closed && uvval(uv) != &uv->tv); - setgcrefr(L->openupval, uv->nextgc); /* No longer in open list. */ - if (isdead(g, o)) { - lj_func_freeuv(g, uv); - } else { - unlinkuv(uv); - lj_gc_closeuv(g, uv); - } - } -} - -void LJ_FASTCALL lj_func_freeuv(global_State *g, GCupval *uv) -{ - if (!uv->closed) - unlinkuv(uv); - lj_mem_freet(g, uv); -} - -/* -- Functions (closures) ------------------------------------------------ */ - -GCfunc *lj_func_newC(lua_State *L, MSize nelems, GCtab *env) -{ - GCfunc *fn = (GCfunc *)lj_mem_newgco(L, sizeCfunc(nelems)); - fn->c.gct = ~LJ_TFUNC; - fn->c.ffid = FF_C; - fn->c.nupvalues = (uint8_t)nelems; - /* NOBARRIER: The GCfunc is new (marked white). */ - setmref(fn->c.pc, &G(L)->bc_cfunc_ext); - setgcref(fn->c.env, obj2gco(env)); - return fn; -} - -static GCfunc *func_newL(lua_State *L, GCproto *pt, GCtab *env) -{ - uint32_t count; - GCfunc *fn = (GCfunc *)lj_mem_newgco(L, sizeLfunc((MSize)pt->sizeuv)); - fn->l.gct = ~LJ_TFUNC; - fn->l.ffid = FF_LUA; - fn->l.nupvalues = 0; /* Set to zero until upvalues are initialized. */ - /* NOBARRIER: Really a setgcref. But the GCfunc is new (marked white). */ - setmref(fn->l.pc, proto_bc(pt)); - setgcref(fn->l.env, obj2gco(env)); - /* Saturating 3 bit counter (0..7) for created closures. */ - count = (uint32_t)pt->flags + PROTO_CLCOUNT; - pt->flags = (uint8_t)(count - ((count >> PROTO_CLC_BITS) & PROTO_CLCOUNT)); - return fn; -} - -/* Create a new Lua function with empty upvalues. */ -GCfunc *lj_func_newL_empty(lua_State *L, GCproto *pt, GCtab *env) -{ - GCfunc *fn = func_newL(L, pt, env); - MSize i, nuv = pt->sizeuv; - /* NOBARRIER: The GCfunc is new (marked white). */ - for (i = 0; i < nuv; i++) { - GCupval *uv = func_emptyuv(L); - uv->dhash = (uint32_t)(uintptr_t)pt ^ ((uint32_t)proto_uv(pt)[i] << 24); - setgcref(fn->l.uvptr[i], obj2gco(uv)); - } - fn->l.nupvalues = (uint8_t)nuv; - return fn; -} - -/* Do a GC check and create a new Lua function with inherited upvalues. */ -GCfunc *lj_func_newL_gc(lua_State *L, GCproto *pt, GCfuncL *parent) -{ - GCfunc *fn; - GCRef *puv; - MSize i, nuv; - TValue *base; - lj_gc_check_fixtop(L); - fn = func_newL(L, pt, tabref(parent->env)); - /* NOBARRIER: The GCfunc is new (marked white). */ - puv = parent->uvptr; - nuv = pt->sizeuv; - base = L->base; - for (i = 0; i < nuv; i++) { - uint32_t v = proto_uv(pt)[i]; - GCupval *uv; - if ((v & PROTO_UV_LOCAL)) { - uv = func_finduv(L, base + (v & 0xff)); - uv->immutable = ((v / PROTO_UV_IMMUTABLE) & 1); - uv->dhash = (uint32_t)(uintptr_t)mref(parent->pc, char) ^ (v << 24); - } else { - uv = &gcref(puv[v])->uv; - } - setgcref(fn->l.uvptr[i], obj2gco(uv)); - } - fn->l.nupvalues = (uint8_t)nuv; - return fn; -} - -void LJ_FASTCALL lj_func_free(global_State *g, GCfunc *fn) -{ - MSize size = isluafunc(fn) ? sizeLfunc((MSize)fn->l.nupvalues) : - sizeCfunc((MSize)fn->c.nupvalues); - lj_mem_free(g, fn, size); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_func.h b/src/3rd party/luajit-2.0-BAK/src/lj_func.h deleted file mode 100644 index a6e534e7739..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_func.h +++ /dev/null @@ -1,24 +0,0 @@ -/* -** Function handling (prototypes, functions and upvalues). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_FUNC_H -#define _LJ_FUNC_H - -#include "lj_obj.h" - -/* Prototypes. */ -LJ_FUNC void LJ_FASTCALL lj_func_freeproto(global_State *g, GCproto *pt); - -/* Upvalues. */ -LJ_FUNCA void LJ_FASTCALL lj_func_closeuv(lua_State *L, TValue *level); -LJ_FUNC void LJ_FASTCALL lj_func_freeuv(global_State *g, GCupval *uv); - -/* Functions (closures). */ -LJ_FUNC GCfunc *lj_func_newC(lua_State *L, MSize nelems, GCtab *env); -LJ_FUNC GCfunc *lj_func_newL_empty(lua_State *L, GCproto *pt, GCtab *env); -LJ_FUNCA GCfunc *lj_func_newL_gc(lua_State *L, GCproto *pt, GCfuncL *parent); -LJ_FUNC void LJ_FASTCALL lj_func_free(global_State *g, GCfunc *c); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_gc.c b/src/3rd party/luajit-2.0-BAK/src/lj_gc.c deleted file mode 100644 index 99d664aa2a1..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_gc.c +++ /dev/null @@ -1,845 +0,0 @@ -/* -** Garbage collector. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_gc_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_func.h" -#include "lj_udata.h" -#include "lj_meta.h" -#include "lj_state.h" -#include "lj_frame.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cdata.h" -#endif -#include "lj_trace.h" -#include "lj_vm.h" - -#define GCSTEPSIZE 1024u -#define GCSWEEPMAX 40 -#define GCSWEEPCOST 10 -#define GCFINALIZECOST 100 - -/* Macros to set GCobj colors and flags. */ -#define white2gray(x) ((x)->gch.marked &= (uint8_t)~LJ_GC_WHITES) -#define gray2black(x) ((x)->gch.marked |= LJ_GC_BLACK) -#define isfinalized(u) ((u)->marked & LJ_GC_FINALIZED) - -/* -- Mark phase ---------------------------------------------------------- */ - -/* Mark a TValue (if needed). */ -#define gc_marktv(g, tv) \ - { lua_assert(!tvisgcv(tv) || (~itype(tv) == gcval(tv)->gch.gct)); \ - if (tviswhite(tv)) gc_mark(g, gcV(tv)); } - -/* Mark a GCobj (if needed). */ -#define gc_markobj(g, o) \ - { if (iswhite(obj2gco(o))) gc_mark(g, obj2gco(o)); } - -/* Mark a string object. */ -#define gc_mark_str(s) ((s)->marked &= (uint8_t)~LJ_GC_WHITES) - -/* Mark a white GCobj. */ -static void gc_mark(global_State *g, GCobj *o) -{ - int gct = o->gch.gct; - lua_assert(iswhite(o) && !isdead(g, o)); - white2gray(o); - if (LJ_UNLIKELY(gct == ~LJ_TUDATA)) { - GCtab *mt = tabref(gco2ud(o)->metatable); - gray2black(o); /* Userdata are never gray. */ - if (mt) gc_markobj(g, mt); - gc_markobj(g, tabref(gco2ud(o)->env)); - } else if (LJ_UNLIKELY(gct == ~LJ_TUPVAL)) { - GCupval *uv = gco2uv(o); - gc_marktv(g, uvval(uv)); - if (uv->closed) - gray2black(o); /* Closed upvalues are never gray. */ - } else if (gct != ~LJ_TSTR && gct != ~LJ_TCDATA) { - lua_assert(gct == ~LJ_TFUNC || gct == ~LJ_TTAB || - gct == ~LJ_TTHREAD || gct == ~LJ_TPROTO); - setgcrefr(o->gch.gclist, g->gc.gray); - setgcref(g->gc.gray, o); - } -} - -/* Mark GC roots. */ -static void gc_mark_gcroot(global_State *g) -{ - ptrdiff_t i; - for (i = 0; i < GCROOT_MAX; i++) - if (gcref(g->gcroot[i]) != NULL) - gc_markobj(g, gcref(g->gcroot[i])); -} - -/* Start a GC cycle and mark the root set. */ -static void gc_mark_start(global_State *g) -{ - setgcrefnull(g->gc.gray); - setgcrefnull(g->gc.grayagain); - setgcrefnull(g->gc.weak); - gc_markobj(g, mainthread(g)); - gc_markobj(g, tabref(mainthread(g)->env)); - gc_marktv(g, &g->registrytv); - gc_mark_gcroot(g); - g->gc.state = GCSpropagate; -} - -/* Mark open upvalues. */ -static void gc_mark_uv(global_State *g) -{ - GCupval *uv; - for (uv = uvnext(&g->uvhead); uv != &g->uvhead; uv = uvnext(uv)) { - lua_assert(uvprev(uvnext(uv)) == uv && uvnext(uvprev(uv)) == uv); - if (isgray(obj2gco(uv))) - gc_marktv(g, uvval(uv)); - } -} - -/* Mark userdata in mmudata list. */ -static void gc_mark_mmudata(global_State *g) -{ - GCobj *root = gcref(g->gc.mmudata); - GCobj *u = root; - if (u) { - do { - u = gcnext(u); - makewhite(g, u); /* Could be from previous GC. */ - gc_mark(g, u); - } while (u != root); - } -} - -/* Separate userdata objects to be finalized to mmudata list. */ -size_t lj_gc_separateudata(global_State *g, int all) -{ - size_t m = 0; - GCRef *p = &mainthread(g)->nextgc; - GCobj *o; - while ((o = gcref(*p)) != NULL) { - if (!(iswhite(o) || all) || isfinalized(gco2ud(o))) { - p = &o->gch.nextgc; /* Nothing to do. */ - } else if (!lj_meta_fastg(g, tabref(gco2ud(o)->metatable), MM_gc)) { - markfinalized(o); /* Done, as there's no __gc metamethod. */ - p = &o->gch.nextgc; - } else { /* Otherwise move userdata to be finalized to mmudata list. */ - m += sizeudata(gco2ud(o)); - markfinalized(o); - *p = o->gch.nextgc; - if (gcref(g->gc.mmudata)) { /* Link to end of mmudata list. */ - GCobj *root = gcref(g->gc.mmudata); - setgcrefr(o->gch.nextgc, root->gch.nextgc); - setgcref(root->gch.nextgc, o); - setgcref(g->gc.mmudata, o); - } else { /* Create circular list. */ - setgcref(o->gch.nextgc, o); - setgcref(g->gc.mmudata, o); - } - } - } - return m; -} - -/* -- Propagation phase --------------------------------------------------- */ - -/* Traverse a table. */ -static int gc_traverse_tab(global_State *g, GCtab *t) -{ - int weak = 0; - cTValue *mode; - GCtab *mt = tabref(t->metatable); - if (mt) - gc_markobj(g, mt); - mode = lj_meta_fastg(g, mt, MM_mode); - if (mode && tvisstr(mode)) { /* Valid __mode field? */ - const char *modestr = strVdata(mode); - int c; - while ((c = *modestr++)) { - if (c == 'k') weak |= LJ_GC_WEAKKEY; - else if (c == 'v') weak |= LJ_GC_WEAKVAL; - else if (c == 'K') weak = (int)(~0u & ~LJ_GC_WEAKVAL); - } - if (weak > 0) { /* Weak tables are cleared in the atomic phase. */ - t->marked = (uint8_t)((t->marked & ~LJ_GC_WEAK) | weak); - setgcrefr(t->gclist, g->gc.weak); - setgcref(g->gc.weak, obj2gco(t)); - } - } - if (weak == LJ_GC_WEAK) /* Nothing to mark if both keys/values are weak. */ - return 1; - if (!(weak & LJ_GC_WEAKVAL)) { /* Mark array part. */ - MSize i, asize = t->asize; - for (i = 0; i < asize; i++) - gc_marktv(g, arrayslot(t, i)); - } - if (t->hmask > 0) { /* Mark hash part. */ - Node *node = noderef(t->node); - MSize i, hmask = t->hmask; - for (i = 0; i <= hmask; i++) { - Node *n = &node[i]; - if (!tvisnil(&n->val)) { /* Mark non-empty slot. */ - lua_assert(!tvisnil(&n->key)); - if (!(weak & LJ_GC_WEAKKEY)) gc_marktv(g, &n->key); - if (!(weak & LJ_GC_WEAKVAL)) gc_marktv(g, &n->val); - } - } - } - return weak; -} - -/* Traverse a function. */ -static void gc_traverse_func(global_State *g, GCfunc *fn) -{ - gc_markobj(g, tabref(fn->c.env)); - if (isluafunc(fn)) { - uint32_t i; - lua_assert(fn->l.nupvalues <= funcproto(fn)->sizeuv); - gc_markobj(g, funcproto(fn)); - for (i = 0; i < fn->l.nupvalues; i++) /* Mark Lua function upvalues. */ - gc_markobj(g, &gcref(fn->l.uvptr[i])->uv); - } else { - uint32_t i; - for (i = 0; i < fn->c.nupvalues; i++) /* Mark C function upvalues. */ - gc_marktv(g, &fn->c.upvalue[i]); - } -} - -#if LJ_HASJIT -/* Mark a trace. */ -static void gc_marktrace(global_State *g, TraceNo traceno) -{ - GCobj *o = obj2gco(traceref(G2J(g), traceno)); - lua_assert(traceno != G2J(g)->cur.traceno); - if (iswhite(o)) { - white2gray(o); - setgcrefr(o->gch.gclist, g->gc.gray); - setgcref(g->gc.gray, o); - } -} - -/* Traverse a trace. */ -static void gc_traverse_trace(global_State *g, GCtrace *T) -{ - IRRef ref; - if (T->traceno == 0) return; - for (ref = T->nk; ref < REF_TRUE; ref++) { - IRIns *ir = &T->ir[ref]; - if (ir->o == IR_KGC) - gc_markobj(g, ir_kgc(ir)); - } - if (T->link) gc_marktrace(g, T->link); - if (T->nextroot) gc_marktrace(g, T->nextroot); - if (T->nextside) gc_marktrace(g, T->nextside); - gc_markobj(g, gcref(T->startpt)); -} - -/* The current trace is a GC root while not anchored in the prototype (yet). */ -#define gc_traverse_curtrace(g) gc_traverse_trace(g, &G2J(g)->cur) -#else -#define gc_traverse_curtrace(g) UNUSED(g) -#endif - -/* Traverse a prototype. */ -static void gc_traverse_proto(global_State *g, GCproto *pt) -{ - ptrdiff_t i; - gc_mark_str(proto_chunkname(pt)); - for (i = -(ptrdiff_t)pt->sizekgc; i < 0; i++) /* Mark collectable consts. */ - gc_markobj(g, proto_kgc(pt, i)); -#if LJ_HASJIT - if (pt->trace) gc_marktrace(g, pt->trace); -#endif -} - -/* Traverse the frame structure of a stack. */ -static MSize gc_traverse_frames(global_State *g, lua_State *th) -{ - TValue *frame, *top = th->top-1, *bot = tvref(th->stack); - /* Note: extra vararg frame not skipped, marks function twice (harmless). */ - for (frame = th->base-1; frame > bot+LJ_FR2; frame = frame_prev(frame)) { - GCfunc *fn = frame_func(frame); - TValue *ftop = frame; - if (isluafunc(fn)) ftop += funcproto(fn)->framesize; - if (ftop > top) top = ftop; - if (!LJ_FR2) gc_markobj(g, fn); /* Need to mark hidden function (or L). */ - } - top++; /* Correct bias of -1 (frame == base-1). */ - if (top > tvref(th->maxstack)) top = tvref(th->maxstack); - return (MSize)(top - bot); /* Return minimum needed stack size. */ -} - -/* Traverse a thread object. */ -static void gc_traverse_thread(global_State *g, lua_State *th) -{ - TValue *o, *top = th->top; - for (o = tvref(th->stack)+1+LJ_FR2; o < top; o++) - gc_marktv(g, o); - if (g->gc.state == GCSatomic) { - top = tvref(th->stack) + th->stacksize; - for (; o < top; o++) /* Clear unmarked slots. */ - setnilV(o); - } - gc_markobj(g, tabref(th->env)); - lj_state_shrinkstack(th, gc_traverse_frames(g, th)); -} - -/* Propagate one gray object. Traverse it and turn it black. */ -static size_t propagatemark(global_State *g) -{ - GCobj *o = gcref(g->gc.gray); - int gct = o->gch.gct; - lua_assert(isgray(o)); - gray2black(o); - setgcrefr(g->gc.gray, o->gch.gclist); /* Remove from gray list. */ - if (LJ_LIKELY(gct == ~LJ_TTAB)) { - GCtab *t = gco2tab(o); - if (gc_traverse_tab(g, t) > 0) - black2gray(o); /* Keep weak tables gray. */ - return sizeof(GCtab) + sizeof(TValue) * t->asize + - sizeof(Node) * (t->hmask + 1); - } else if (LJ_LIKELY(gct == ~LJ_TFUNC)) { - GCfunc *fn = gco2func(o); - gc_traverse_func(g, fn); - return isluafunc(fn) ? sizeLfunc((MSize)fn->l.nupvalues) : - sizeCfunc((MSize)fn->c.nupvalues); - } else if (LJ_LIKELY(gct == ~LJ_TPROTO)) { - GCproto *pt = gco2pt(o); - gc_traverse_proto(g, pt); - return pt->sizept; - } else if (LJ_LIKELY(gct == ~LJ_TTHREAD)) { - lua_State *th = gco2th(o); - setgcrefr(th->gclist, g->gc.grayagain); - setgcref(g->gc.grayagain, o); - black2gray(o); /* Threads are never black. */ - gc_traverse_thread(g, th); - return sizeof(lua_State) + sizeof(TValue) * th->stacksize; - } else { -#if LJ_HASJIT - GCtrace *T = gco2trace(o); - gc_traverse_trace(g, T); - return ((sizeof(GCtrace)+7)&~7) + (T->nins-T->nk)*sizeof(IRIns) + - T->nsnap*sizeof(SnapShot) + T->nsnapmap*sizeof(SnapEntry); -#else - lua_assert(0); - return 0; -#endif - } -} - -/* Propagate all gray objects. */ -static size_t gc_propagate_gray(global_State *g) -{ - size_t m = 0; - while (gcref(g->gc.gray) != NULL) - m += propagatemark(g); - return m; -} - -/* -- Sweep phase --------------------------------------------------------- */ - -/* Type of GC free functions. */ -typedef void (LJ_FASTCALL *GCFreeFunc)(global_State *g, GCobj *o); - -/* GC free functions for LJ_TSTR .. LJ_TUDATA. ORDER LJ_T */ -static const GCFreeFunc gc_freefunc[] = { - (GCFreeFunc)lj_str_free, - (GCFreeFunc)lj_func_freeuv, - (GCFreeFunc)lj_state_free, - (GCFreeFunc)lj_func_freeproto, - (GCFreeFunc)lj_func_free, -#if LJ_HASJIT - (GCFreeFunc)lj_trace_free, -#else - (GCFreeFunc)0, -#endif -#if LJ_HASFFI - (GCFreeFunc)lj_cdata_free, -#else - (GCFreeFunc)0, -#endif - (GCFreeFunc)lj_tab_free, - (GCFreeFunc)lj_udata_free -}; - -/* Full sweep of a GC list. */ -#define gc_fullsweep(g, p) gc_sweep(g, (p), ~(uint32_t)0) - -/* Partial sweep of a GC list. */ -static GCRef *gc_sweep(global_State *g, GCRef *p, uint32_t lim) -{ - /* Mask with other white and LJ_GC_FIXED. Or LJ_GC_SFIXED on shutdown. */ - int ow = otherwhite(g); - GCobj *o; - while ((o = gcref(*p)) != NULL && lim-- > 0) { - if (o->gch.gct == ~LJ_TTHREAD) /* Need to sweep open upvalues, too. */ - gc_fullsweep(g, &gco2th(o)->openupval); - if (((o->gch.marked ^ LJ_GC_WHITES) & ow)) { /* Black or current white? */ - lua_assert(!isdead(g, o) || (o->gch.marked & LJ_GC_FIXED)); - makewhite(g, o); /* Value is alive, change to the current white. */ - p = &o->gch.nextgc; - } else { /* Otherwise value is dead, free it. */ - lua_assert(isdead(g, o) || ow == LJ_GC_SFIXED); - setgcrefr(*p, o->gch.nextgc); - if (o == gcref(g->gc.root)) - setgcrefr(g->gc.root, o->gch.nextgc); /* Adjust list anchor. */ - gc_freefunc[o->gch.gct - ~LJ_TSTR](g, o); - } - } - return p; -} - -/* Check whether we can clear a key or a value slot from a table. */ -static int gc_mayclear(cTValue *o, int val) -{ - if (tvisgcv(o)) { /* Only collectable objects can be weak references. */ - if (tvisstr(o)) { /* But strings cannot be used as weak references. */ - gc_mark_str(strV(o)); /* And need to be marked. */ - return 0; - } - if (iswhite(gcV(o))) - return 1; /* Object is about to be collected. */ - if (tvisudata(o) && val && isfinalized(udataV(o))) - return 1; /* Finalized userdata is dropped only from values. */ - } - return 0; /* Cannot clear. */ -} - -/* Clear collected entries from weak tables. */ -static void gc_clearweak(GCobj *o) -{ - while (o) { - GCtab *t = gco2tab(o); - lua_assert((t->marked & LJ_GC_WEAK)); - if ((t->marked & LJ_GC_WEAKVAL)) { - MSize i, asize = t->asize; - for (i = 0; i < asize; i++) { - /* Clear array slot when value is about to be collected. */ - TValue *tv = arrayslot(t, i); - if (gc_mayclear(tv, 1)) - setnilV(tv); - } - } - if (t->hmask > 0) { - Node *node = noderef(t->node); - MSize i, hmask = t->hmask; - for (i = 0; i <= hmask; i++) { - Node *n = &node[i]; - /* Clear hash slot when key or value is about to be collected. */ - if (!tvisnil(&n->val) && (gc_mayclear(&n->key, 0) || - gc_mayclear(&n->val, 1))) - setnilV(&n->val); - } - } - o = gcref(t->gclist); - } -} - -/* Call a userdata or cdata finalizer. */ -static void gc_call_finalizer(global_State *g, lua_State *L, - cTValue *mo, GCobj *o) -{ - /* Save and restore lots of state around the __gc callback. */ - uint8_t oldh = hook_save(g); - GCSize oldt = g->gc.threshold; - int errcode; - TValue *top; - lj_trace_abort(g); - hook_entergc(g); /* Disable hooks and new traces during __gc. */ - g->gc.threshold = LJ_MAX_MEM; /* Prevent GC steps. */ - top = L->top; - copyTV(L, top++, mo); - if (LJ_FR2) setnilV(top++); - setgcV(L, top, o, ~o->gch.gct); - L->top = top+1; - errcode = lj_vm_pcall(L, top, 1+0, -1); /* Stack: |mo|o| -> | */ - hook_restore(g, oldh); - g->gc.threshold = oldt; /* Restore GC threshold. */ - if (errcode) - lj_err_throw(L, errcode); /* Propagate errors. */ -} - -/* Finalize one userdata or cdata object from the mmudata list. */ -static void gc_finalize(lua_State *L) -{ - global_State *g = G(L); - GCobj *o = gcnext(gcref(g->gc.mmudata)); - cTValue *mo; - lua_assert(tvref(g->jit_base) == NULL); /* Must not be called on trace. */ - /* Unchain from list of userdata to be finalized. */ - if (o == gcref(g->gc.mmudata)) - setgcrefnull(g->gc.mmudata); - else - setgcrefr(gcref(g->gc.mmudata)->gch.nextgc, o->gch.nextgc); -#if LJ_HASFFI - if (o->gch.gct == ~LJ_TCDATA) { - TValue tmp, *tv; - /* Add cdata back to the GC list and make it white. */ - setgcrefr(o->gch.nextgc, g->gc.root); - setgcref(g->gc.root, o); - makewhite(g, o); - o->gch.marked &= (uint8_t)~LJ_GC_CDATA_FIN; - /* Resolve finalizer. */ - setcdataV(L, &tmp, gco2cd(o)); - tv = lj_tab_set(L, ctype_ctsG(g)->finalizer, &tmp); - if (!tvisnil(tv)) { - g->gc.nocdatafin = 0; - copyTV(L, &tmp, tv); - setnilV(tv); /* Clear entry in finalizer table. */ - gc_call_finalizer(g, L, &tmp, o); - } - return; - } -#endif - /* Add userdata back to the main userdata list and make it white. */ - setgcrefr(o->gch.nextgc, mainthread(g)->nextgc); - setgcref(mainthread(g)->nextgc, o); - makewhite(g, o); - /* Resolve the __gc metamethod. */ - mo = lj_meta_fastg(g, tabref(gco2ud(o)->metatable), MM_gc); - if (mo) - gc_call_finalizer(g, L, mo, o); -} - -/* Finalize all userdata objects from mmudata list. */ -void lj_gc_finalize_udata(lua_State *L) -{ - while (gcref(G(L)->gc.mmudata) != NULL) - gc_finalize(L); -} - -#if LJ_HASFFI -/* Finalize all cdata objects from finalizer table. */ -void lj_gc_finalize_cdata(lua_State *L) -{ - global_State *g = G(L); - CTState *cts = ctype_ctsG(g); - if (cts) { - GCtab *t = cts->finalizer; - Node *node = noderef(t->node); - ptrdiff_t i; - setgcrefnull(t->metatable); /* Mark finalizer table as disabled. */ - for (i = (ptrdiff_t)t->hmask; i >= 0; i--) - if (!tvisnil(&node[i].val) && tviscdata(&node[i].key)) { - GCobj *o = gcV(&node[i].key); - TValue tmp; - makewhite(g, o); - o->gch.marked &= (uint8_t)~LJ_GC_CDATA_FIN; - copyTV(L, &tmp, &node[i].val); - setnilV(&node[i].val); - gc_call_finalizer(g, L, &tmp, o); - } - } -} -#endif - -/* Free all remaining GC objects. */ -void lj_gc_freeall(global_State *g) -{ - MSize i, strmask; - /* Free everything, except super-fixed objects (the main thread). */ - g->gc.currentwhite = LJ_GC_WHITES | LJ_GC_SFIXED; - gc_fullsweep(g, &g->gc.root); - strmask = g->strmask; - for (i = 0; i <= strmask; i++) /* Free all string hash chains. */ - gc_fullsweep(g, &g->strhash[i]); -} - -/* -- Collector ----------------------------------------------------------- */ - -/* Atomic part of the GC cycle, transitioning from mark to sweep phase. */ -static void atomic(global_State *g, lua_State *L) -{ - size_t udsize; - - gc_mark_uv(g); /* Need to remark open upvalues (the thread may be dead). */ - gc_propagate_gray(g); /* Propagate any left-overs. */ - - setgcrefr(g->gc.gray, g->gc.weak); /* Empty the list of weak tables. */ - setgcrefnull(g->gc.weak); - lua_assert(!iswhite(obj2gco(mainthread(g)))); - gc_markobj(g, L); /* Mark running thread. */ - gc_traverse_curtrace(g); /* Traverse current trace. */ - gc_mark_gcroot(g); /* Mark GC roots (again). */ - gc_propagate_gray(g); /* Propagate all of the above. */ - - setgcrefr(g->gc.gray, g->gc.grayagain); /* Empty the 2nd chance list. */ - setgcrefnull(g->gc.grayagain); - gc_propagate_gray(g); /* Propagate it. */ - - udsize = lj_gc_separateudata(g, 0); /* Separate userdata to be finalized. */ - gc_mark_mmudata(g); /* Mark them. */ - udsize += gc_propagate_gray(g); /* And propagate the marks. */ - - /* All marking done, clear weak tables. */ - gc_clearweak(gcref(g->gc.weak)); - - lj_buf_shrink(L, &g->tmpbuf); /* Shrink temp buffer. */ - - /* Prepare for sweep phase. */ - g->gc.currentwhite = (uint8_t)otherwhite(g); /* Flip current white. */ - g->strempty.marked = g->gc.currentwhite; - setmref(g->gc.sweep, &g->gc.root); - g->gc.estimate = g->gc.total - (GCSize)udsize; /* Initial estimate. */ -} - -/* GC state machine. Returns a cost estimate for each step performed. */ -static size_t gc_onestep(lua_State *L) -{ - global_State *g = G(L); - switch (g->gc.state) { - case GCSpause: - gc_mark_start(g); /* Start a new GC cycle by marking all GC roots. */ - return 0; - case GCSpropagate: - if (gcref(g->gc.gray) != NULL) - return propagatemark(g); /* Propagate one gray object. */ - g->gc.state = GCSatomic; /* End of mark phase. */ - return 0; - case GCSatomic: - if (tvref(g->jit_base)) /* Don't run atomic phase on trace. */ - return LJ_MAX_MEM; - atomic(g, L); - g->gc.state = GCSsweepstring; /* Start of sweep phase. */ - g->gc.sweepstr = 0; - return 0; - case GCSsweepstring: { - GCSize old = g->gc.total; - gc_fullsweep(g, &g->strhash[g->gc.sweepstr++]); /* Sweep one chain. */ - if (g->gc.sweepstr > g->strmask) - g->gc.state = GCSsweep; /* All string hash chains sweeped. */ - lua_assert(old >= g->gc.total); - g->gc.estimate -= old - g->gc.total; - return GCSWEEPCOST; - } - case GCSsweep: { - GCSize old = g->gc.total; - setmref(g->gc.sweep, gc_sweep(g, mref(g->gc.sweep, GCRef), GCSWEEPMAX)); - lua_assert(old >= g->gc.total); - g->gc.estimate -= old - g->gc.total; - if (gcref(*mref(g->gc.sweep, GCRef)) == NULL) { - if (g->strnum <= (g->strmask >> 2) && g->strmask > LJ_MIN_STRTAB*2-1) - lj_str_resize(L, g->strmask >> 1); /* Shrink string table. */ - if (gcref(g->gc.mmudata)) { /* Need any finalizations? */ - g->gc.state = GCSfinalize; -#if LJ_HASFFI - g->gc.nocdatafin = 1; -#endif - } else { /* Otherwise skip this phase to help the JIT. */ - g->gc.state = GCSpause; /* End of GC cycle. */ - g->gc.debt = 0; - } - } - return GCSWEEPMAX*GCSWEEPCOST; - } - case GCSfinalize: - if (gcref(g->gc.mmudata) != NULL) { - if (tvref(g->jit_base)) /* Don't call finalizers on trace. */ - return LJ_MAX_MEM; - gc_finalize(L); /* Finalize one userdata object. */ - if (g->gc.estimate > GCFINALIZECOST) - g->gc.estimate -= GCFINALIZECOST; - return GCFINALIZECOST; - } -#if LJ_HASFFI - if (!g->gc.nocdatafin) lj_tab_rehash(L, ctype_ctsG(g)->finalizer); -#endif - g->gc.state = GCSpause; /* End of GC cycle. */ - g->gc.debt = 0; - return 0; - default: - lua_assert(0); - return 0; - } -} - -/* Perform a limited amount of incremental GC steps. */ -int LJ_FASTCALL lj_gc_step(lua_State *L) -{ - global_State *g = G(L); - GCSize lim; - int32_t ostate = g->vmstate; - setvmstate(g, GC); - lim = (GCSTEPSIZE/100) * g->gc.stepmul; - if (lim == 0) - lim = LJ_MAX_MEM; - if (g->gc.total > g->gc.threshold) - g->gc.debt += g->gc.total - g->gc.threshold; - do { - lim -= (GCSize)gc_onestep(L); - if (g->gc.state == GCSpause) { - g->gc.threshold = (g->gc.estimate/100) * g->gc.pause; - g->vmstate = ostate; - return 1; /* Finished a GC cycle. */ - } - } while (sizeof(lim) == 8 ? ((int64_t)lim > 0) : ((int32_t)lim > 0)); - if (g->gc.debt < GCSTEPSIZE) { - g->gc.threshold = g->gc.total + GCSTEPSIZE; - g->vmstate = ostate; - return -1; - } else { - g->gc.debt -= GCSTEPSIZE; - g->gc.threshold = g->gc.total; - g->vmstate = ostate; - return 0; - } -} - -/* Ditto, but fix the stack top first. */ -void LJ_FASTCALL lj_gc_step_fixtop(lua_State *L) -{ - if (curr_funcisL(L)) L->top = curr_topL(L); - lj_gc_step(L); -} - -#if LJ_HASJIT -/* Perform multiple GC steps. Called from JIT-compiled code. */ -int LJ_FASTCALL lj_gc_step_jit(global_State *g, MSize steps) -{ - lua_State *L = gco2th(gcref(g->cur_L)); - L->base = tvref(G(L)->jit_base); - L->top = curr_topL(L); - while (steps-- > 0 && lj_gc_step(L) == 0) - ; - /* Return 1 to force a trace exit. */ - return (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize); -} -#endif - -/* Perform a full GC cycle. */ -void lj_gc_fullgc(lua_State *L) -{ - global_State *g = G(L); - int32_t ostate = g->vmstate; - setvmstate(g, GC); - if (g->gc.state <= GCSatomic) { /* Caught somewhere in the middle. */ - setmref(g->gc.sweep, &g->gc.root); /* Sweep everything (preserving it). */ - setgcrefnull(g->gc.gray); /* Reset lists from partial propagation. */ - setgcrefnull(g->gc.grayagain); - setgcrefnull(g->gc.weak); - g->gc.state = GCSsweepstring; /* Fast forward to the sweep phase. */ - g->gc.sweepstr = 0; - } - while (g->gc.state == GCSsweepstring || g->gc.state == GCSsweep) - gc_onestep(L); /* Finish sweep. */ - lua_assert(g->gc.state == GCSfinalize || g->gc.state == GCSpause); - /* Now perform a full GC. */ - g->gc.state = GCSpause; - do { gc_onestep(L); } while (g->gc.state != GCSpause); - g->gc.threshold = (g->gc.estimate/100) * g->gc.pause; - g->vmstate = ostate; -} - -/* -- Write barriers ------------------------------------------------------ */ - -/* Move the GC propagation frontier forward. */ -void lj_gc_barrierf(global_State *g, GCobj *o, GCobj *v) -{ - lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); - lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); - lua_assert(o->gch.gct != ~LJ_TTAB); - /* Preserve invariant during propagation. Otherwise it doesn't matter. */ - if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) - gc_mark(g, v); /* Move frontier forward. */ - else - makewhite(g, o); /* Make it white to avoid the following barrier. */ -} - -/* Specialized barrier for closed upvalue. Pass &uv->tv. */ -void LJ_FASTCALL lj_gc_barrieruv(global_State *g, TValue *tv) -{ -#define TV2MARKED(x) \ - (*((uint8_t *)(x) - offsetof(GCupval, tv) + offsetof(GCupval, marked))) - if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) - gc_mark(g, gcV(tv)); - else - TV2MARKED(tv) = (TV2MARKED(tv) & (uint8_t)~LJ_GC_COLORS) | curwhite(g); -#undef TV2MARKED -} - -/* Close upvalue. Also needs a write barrier. */ -void lj_gc_closeuv(global_State *g, GCupval *uv) -{ - GCobj *o = obj2gco(uv); - /* Copy stack slot to upvalue itself and point to the copy. */ - copyTV(mainthread(g), &uv->tv, uvval(uv)); - setmref(uv->v, &uv->tv); - uv->closed = 1; - setgcrefr(o->gch.nextgc, g->gc.root); - setgcref(g->gc.root, o); - if (isgray(o)) { /* A closed upvalue is never gray, so fix this. */ - if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) { - gray2black(o); /* Make it black and preserve invariant. */ - if (tviswhite(&uv->tv)) - lj_gc_barrierf(g, o, gcV(&uv->tv)); - } else { - makewhite(g, o); /* Make it white, i.e. sweep the upvalue. */ - lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); - } - } -} - -#if LJ_HASJIT -/* Mark a trace if it's saved during the propagation phase. */ -void lj_gc_barriertrace(global_State *g, uint32_t traceno) -{ - if (g->gc.state == GCSpropagate || g->gc.state == GCSatomic) - gc_marktrace(g, traceno); -} -#endif - -/* -- Allocator ----------------------------------------------------------- */ - -/* Call pluggable memory allocator to allocate or resize a fragment. */ -void *lj_mem_realloc(lua_State *L, void *p, GCSize osz, GCSize nsz) -{ - global_State *g = G(L); - lua_assert((osz == 0) == (p == NULL)); - p = g->allocf(g->allocd, p, osz, nsz); - if (p == NULL && nsz > 0) - lj_err_mem(L); - lua_assert((nsz == 0) == (p == NULL)); - lua_assert(checkptrGC(p)); - g->gc.total = (g->gc.total - osz) + nsz; - return p; -} - -/* Allocate new GC object and link it to the root set. */ -void * LJ_FASTCALL lj_mem_newgco(lua_State *L, GCSize size) -{ - global_State *g = G(L); - GCobj *o = (GCobj *)g->allocf(g->allocd, NULL, 0, size); - if (o == NULL) - lj_err_mem(L); - lua_assert(checkptrGC(o)); - g->gc.total += size; - setgcrefr(o->gch.nextgc, g->gc.root); - setgcref(g->gc.root, o); - newwhite(g, o); - return o; -} - -/* Resize growable vector. */ -void *lj_mem_grow(lua_State *L, void *p, MSize *szp, MSize lim, MSize esz) -{ - MSize sz = (*szp) << 1; - if (sz < LJ_MIN_VECSZ) - sz = LJ_MIN_VECSZ; - if (sz > lim) - sz = lim; - p = lj_mem_realloc(L, p, (*szp)*esz, sz*esz); - *szp = sz; - return p; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_gc.h b/src/3rd party/luajit-2.0-BAK/src/lj_gc.h deleted file mode 100644 index 847eb7835d9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_gc.h +++ /dev/null @@ -1,134 +0,0 @@ -/* -** Garbage collector. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_GC_H -#define _LJ_GC_H - -#include "lj_obj.h" - -/* Garbage collector states. Order matters. */ -enum { - GCSpause, GCSpropagate, GCSatomic, GCSsweepstring, GCSsweep, GCSfinalize -}; - -/* Bitmasks for marked field of GCobj. */ -#define LJ_GC_WHITE0 0x01 -#define LJ_GC_WHITE1 0x02 -#define LJ_GC_BLACK 0x04 -#define LJ_GC_FINALIZED 0x08 -#define LJ_GC_WEAKKEY 0x08 -#define LJ_GC_WEAKVAL 0x10 -#define LJ_GC_CDATA_FIN 0x10 -#define LJ_GC_FIXED 0x20 -#define LJ_GC_SFIXED 0x40 - -#define LJ_GC_WHITES (LJ_GC_WHITE0 | LJ_GC_WHITE1) -#define LJ_GC_COLORS (LJ_GC_WHITES | LJ_GC_BLACK) -#define LJ_GC_WEAK (LJ_GC_WEAKKEY | LJ_GC_WEAKVAL) - -/* Macros to test and set GCobj colors. */ -#define iswhite(x) ((x)->gch.marked & LJ_GC_WHITES) -#define isblack(x) ((x)->gch.marked & LJ_GC_BLACK) -#define isgray(x) (!((x)->gch.marked & (LJ_GC_BLACK|LJ_GC_WHITES))) -#define tviswhite(x) (tvisgcv(x) && iswhite(gcV(x))) -#define otherwhite(g) (g->gc.currentwhite ^ LJ_GC_WHITES) -#define isdead(g, v) ((v)->gch.marked & otherwhite(g) & LJ_GC_WHITES) - -#define curwhite(g) ((g)->gc.currentwhite & LJ_GC_WHITES) -#define newwhite(g, x) (obj2gco(x)->gch.marked = (uint8_t)curwhite(g)) -#define makewhite(g, x) \ - ((x)->gch.marked = ((x)->gch.marked & (uint8_t)~LJ_GC_COLORS) | curwhite(g)) -#define flipwhite(x) ((x)->gch.marked ^= LJ_GC_WHITES) -#define black2gray(x) ((x)->gch.marked &= (uint8_t)~LJ_GC_BLACK) -#define fixstring(s) ((s)->marked |= LJ_GC_FIXED) -#define markfinalized(x) ((x)->gch.marked |= LJ_GC_FINALIZED) - -/* Collector. */ -LJ_FUNC size_t lj_gc_separateudata(global_State *g, int all); -LJ_FUNC void lj_gc_finalize_udata(lua_State *L); -#if LJ_HASFFI -LJ_FUNC void lj_gc_finalize_cdata(lua_State *L); -#else -#define lj_gc_finalize_cdata(L) UNUSED(L) -#endif -LJ_FUNC void lj_gc_freeall(global_State *g); -LJ_FUNCA int LJ_FASTCALL lj_gc_step(lua_State *L); -LJ_FUNCA void LJ_FASTCALL lj_gc_step_fixtop(lua_State *L); -#if LJ_HASJIT -LJ_FUNC int LJ_FASTCALL lj_gc_step_jit(global_State *g, MSize steps); -#endif -LJ_FUNC void lj_gc_fullgc(lua_State *L); - -/* GC check: drive collector forward if the GC threshold has been reached. */ -#define lj_gc_check(L) \ - { if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) \ - lj_gc_step(L); } -#define lj_gc_check_fixtop(L) \ - { if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) \ - lj_gc_step_fixtop(L); } - -/* Write barriers. */ -LJ_FUNC void lj_gc_barrierf(global_State *g, GCobj *o, GCobj *v); -LJ_FUNCA void LJ_FASTCALL lj_gc_barrieruv(global_State *g, TValue *tv); -LJ_FUNC void lj_gc_closeuv(global_State *g, GCupval *uv); -#if LJ_HASJIT -LJ_FUNC void lj_gc_barriertrace(global_State *g, uint32_t traceno); -#endif - -/* Move the GC propagation frontier back for tables (make it gray again). */ -static LJ_AINLINE void lj_gc_barrierback(global_State *g, GCtab *t) -{ - GCobj *o = obj2gco(t); - lua_assert(isblack(o) && !isdead(g, o)); - lua_assert(g->gc.state != GCSfinalize && g->gc.state != GCSpause); - black2gray(o); - setgcrefr(t->gclist, g->gc.grayagain); - setgcref(g->gc.grayagain, o); -} - -/* Barrier for stores to table objects. TValue and GCobj variant. */ -#define lj_gc_anybarriert(L, t) \ - { if (LJ_UNLIKELY(isblack(obj2gco(t)))) lj_gc_barrierback(G(L), (t)); } -#define lj_gc_barriert(L, t, tv) \ - { if (tviswhite(tv) && isblack(obj2gco(t))) \ - lj_gc_barrierback(G(L), (t)); } -#define lj_gc_objbarriert(L, t, o) \ - { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) \ - lj_gc_barrierback(G(L), (t)); } - -/* Barrier for stores to any other object. TValue and GCobj variant. */ -#define lj_gc_barrier(L, p, tv) \ - { if (tviswhite(tv) && isblack(obj2gco(p))) \ - lj_gc_barrierf(G(L), obj2gco(p), gcV(tv)); } -#define lj_gc_objbarrier(L, p, o) \ - { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ - lj_gc_barrierf(G(L), obj2gco(p), obj2gco(o)); } - -/* Allocator. */ -LJ_FUNC void *lj_mem_realloc(lua_State *L, void *p, GCSize osz, GCSize nsz); -LJ_FUNC void * LJ_FASTCALL lj_mem_newgco(lua_State *L, GCSize size); -LJ_FUNC void *lj_mem_grow(lua_State *L, void *p, - MSize *szp, MSize lim, MSize esz); - -#define lj_mem_new(L, s) lj_mem_realloc(L, NULL, 0, (s)) - -static LJ_AINLINE void lj_mem_free(global_State *g, void *p, size_t osize) -{ - g->gc.total -= (GCSize)osize; - g->allocf(g->allocd, p, osize, 0); -} - -#define lj_mem_newvec(L, n, t) ((t *)lj_mem_new(L, (GCSize)((n)*sizeof(t)))) -#define lj_mem_reallocvec(L, p, on, n, t) \ - ((p) = (t *)lj_mem_realloc(L, p, (on)*sizeof(t), (GCSize)((n)*sizeof(t)))) -#define lj_mem_growvec(L, p, n, m, t) \ - ((p) = (t *)lj_mem_grow(L, (p), &(n), (m), (MSize)sizeof(t))) -#define lj_mem_freevec(g, p, n, t) lj_mem_free(g, (p), (n)*sizeof(t)) - -#define lj_mem_newobj(L, t) ((t *)lj_mem_newgco(L, sizeof(t))) -#define lj_mem_newt(L, s, t) ((t *)lj_mem_new(L, (s))) -#define lj_mem_freet(g, p) lj_mem_free(g, (p), sizeof(*(p))) - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c b/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c deleted file mode 100644 index c289cd8ef8a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.c +++ /dev/null @@ -1,787 +0,0 @@ -/* -** Client for the GDB JIT API. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_gdbjit_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_frame.h" -#include "lj_buf.h" -#include "lj_strfmt.h" -#include "lj_jit.h" -#include "lj_dispatch.h" - -/* This is not compiled in by default. -** Enable with -DLUAJIT_USE_GDBJIT in the Makefile and recompile everything. -*/ -#ifdef LUAJIT_USE_GDBJIT - -/* The GDB JIT API allows JIT compilers to pass debug information about -** JIT-compiled code back to GDB. You need at least GDB 7.0 or higher -** to see it in action. -** -** This is a passive API, so it works even when not running under GDB -** or when attaching to an already running process. Alas, this implies -** enabling it always has a non-negligible overhead -- do not use in -** release mode! -** -** The LuaJIT GDB JIT client is rather minimal at the moment. It gives -** each trace a symbol name and adds a source location and frame unwind -** information. Obviously LuaJIT itself and any embedding C application -** should be compiled with debug symbols, too (see the Makefile). -** -** Traces are named TRACE_1, TRACE_2, ... these correspond to the trace -** numbers from -jv or -jdump. Use "break TRACE_1" or "tbreak TRACE_1" etc. -** to set breakpoints on specific traces (even ahead of their creation). -** -** The source location for each trace allows listing the corresponding -** source lines with the GDB command "list" (but only if the Lua source -** has been loaded from a file). Currently this is always set to the -** location where the trace has been started. -** -** Frame unwind information can be inspected with the GDB command -** "info frame". This also allows proper backtraces across JIT-compiled -** code with the GDB command "bt". -** -** You probably want to add the following settings to a .gdbinit file -** (or add them to ~/.gdbinit): -** set disassembly-flavor intel -** set breakpoint pending on -** -** Here's a sample GDB session: -** ------------------------------------------------------------------------ - -$ cat >x.lua -for outer=1,100 do - for inner=1,100 do end -end -^D - -$ luajit -jv x.lua -[TRACE 1 x.lua:2] -[TRACE 2 (1/3) x.lua:1 -> 1] - -$ gdb --quiet --args luajit x.lua -(gdb) tbreak TRACE_1 -Function "TRACE_1" not defined. -Temporary breakpoint 1 (TRACE_1) pending. -(gdb) run -Starting program: luajit x.lua - -Temporary breakpoint 1, TRACE_1 () at x.lua:2 -2 for inner=1,100 do end -(gdb) list -1 for outer=1,100 do -2 for inner=1,100 do end -3 end -(gdb) bt -#0 TRACE_1 () at x.lua:2 -#1 0x08053690 in lua_pcall [...] -[...] -#7 0x0806ff90 in main [...] -(gdb) disass TRACE_1 -Dump of assembler code for function TRACE_1: -0xf7fd9fba : mov DWORD PTR ds:0xf7e0e2a0,0x1 -0xf7fd9fc4 : movsd xmm7,QWORD PTR [edx+0x20] -[...] -0xf7fd9ff8 : jmp 0xf7fd2014 -End of assembler dump. -(gdb) tbreak TRACE_2 -Function "TRACE_2" not defined. -Temporary breakpoint 2 (TRACE_2) pending. -(gdb) cont -Continuing. - -Temporary breakpoint 2, TRACE_2 () at x.lua:1 -1 for outer=1,100 do -(gdb) info frame -Stack level 0, frame at 0xffffd7c0: - eip = 0xf7fd9f60 in TRACE_2 (x.lua:1); saved eip 0x8053690 - called by frame at 0xffffd7e0 - source language unknown. - Arglist at 0xffffd78c, args: - Locals at 0xffffd78c, Previous frame's sp is 0xffffd7c0 - Saved registers: - ebx at 0xffffd7ac, ebp at 0xffffd7b8, esi at 0xffffd7b0, edi at 0xffffd7b4, - eip at 0xffffd7bc -(gdb) - -** ------------------------------------------------------------------------ -*/ - -/* -- GDB JIT API --------------------------------------------------------- */ - -/* GDB JIT actions. */ -enum { - GDBJIT_NOACTION = 0, - GDBJIT_REGISTER, - GDBJIT_UNREGISTER -}; - -/* GDB JIT entry. */ -typedef struct GDBJITentry { - struct GDBJITentry *next_entry; - struct GDBJITentry *prev_entry; - const char *symfile_addr; - uint64_t symfile_size; -} GDBJITentry; - -/* GDB JIT descriptor. */ -typedef struct GDBJITdesc { - uint32_t version; - uint32_t action_flag; - GDBJITentry *relevant_entry; - GDBJITentry *first_entry; -} GDBJITdesc; - -GDBJITdesc __jit_debug_descriptor = { - 1, GDBJIT_NOACTION, NULL, NULL -}; - -/* GDB sets a breakpoint at this function. */ -void LJ_NOINLINE __jit_debug_register_code() -{ - __asm__ __volatile__(""); -}; - -/* -- In-memory ELF object definitions ------------------------------------ */ - -/* ELF definitions. */ -typedef struct ELFheader { - uint8_t emagic[4]; - uint8_t eclass; - uint8_t eendian; - uint8_t eversion; - uint8_t eosabi; - uint8_t eabiversion; - uint8_t epad[7]; - uint16_t type; - uint16_t machine; - uint32_t version; - uintptr_t entry; - uintptr_t phofs; - uintptr_t shofs; - uint32_t flags; - uint16_t ehsize; - uint16_t phentsize; - uint16_t phnum; - uint16_t shentsize; - uint16_t shnum; - uint16_t shstridx; -} ELFheader; - -typedef struct ELFsectheader { - uint32_t name; - uint32_t type; - uintptr_t flags; - uintptr_t addr; - uintptr_t ofs; - uintptr_t size; - uint32_t link; - uint32_t info; - uintptr_t align; - uintptr_t entsize; -} ELFsectheader; - -#define ELFSECT_IDX_ABS 0xfff1 - -enum { - ELFSECT_TYPE_PROGBITS = 1, - ELFSECT_TYPE_SYMTAB = 2, - ELFSECT_TYPE_STRTAB = 3, - ELFSECT_TYPE_NOBITS = 8 -}; - -#define ELFSECT_FLAGS_WRITE 1 -#define ELFSECT_FLAGS_ALLOC 2 -#define ELFSECT_FLAGS_EXEC 4 - -typedef struct ELFsymbol { -#if LJ_64 - uint32_t name; - uint8_t info; - uint8_t other; - uint16_t sectidx; - uintptr_t value; - uint64_t size; -#else - uint32_t name; - uintptr_t value; - uint32_t size; - uint8_t info; - uint8_t other; - uint16_t sectidx; -#endif -} ELFsymbol; - -enum { - ELFSYM_TYPE_FUNC = 2, - ELFSYM_TYPE_FILE = 4, - ELFSYM_BIND_LOCAL = 0 << 4, - ELFSYM_BIND_GLOBAL = 1 << 4, -}; - -/* DWARF definitions. */ -#define DW_CIE_VERSION 1 - -enum { - DW_CFA_nop = 0x0, - DW_CFA_offset_extended = 0x5, - DW_CFA_def_cfa = 0xc, - DW_CFA_def_cfa_offset = 0xe, - DW_CFA_offset_extended_sf = 0x11, - DW_CFA_advance_loc = 0x40, - DW_CFA_offset = 0x80 -}; - -enum { - DW_EH_PE_udata4 = 3, - DW_EH_PE_textrel = 0x20 -}; - -enum { - DW_TAG_compile_unit = 0x11 -}; - -enum { - DW_children_no = 0, - DW_children_yes = 1 -}; - -enum { - DW_AT_name = 0x03, - DW_AT_stmt_list = 0x10, - DW_AT_low_pc = 0x11, - DW_AT_high_pc = 0x12 -}; - -enum { - DW_FORM_addr = 0x01, - DW_FORM_data4 = 0x06, - DW_FORM_string = 0x08 -}; - -enum { - DW_LNS_extended_op = 0, - DW_LNS_copy = 1, - DW_LNS_advance_pc = 2, - DW_LNS_advance_line = 3 -}; - -enum { - DW_LNE_end_sequence = 1, - DW_LNE_set_address = 2 -}; - -enum { -#if LJ_TARGET_X86 - DW_REG_AX, DW_REG_CX, DW_REG_DX, DW_REG_BX, - DW_REG_SP, DW_REG_BP, DW_REG_SI, DW_REG_DI, - DW_REG_RA, -#elif LJ_TARGET_X64 - /* Yes, the order is strange, but correct. */ - DW_REG_AX, DW_REG_DX, DW_REG_CX, DW_REG_BX, - DW_REG_SI, DW_REG_DI, DW_REG_BP, DW_REG_SP, - DW_REG_8, DW_REG_9, DW_REG_10, DW_REG_11, - DW_REG_12, DW_REG_13, DW_REG_14, DW_REG_15, - DW_REG_RA, -#elif LJ_TARGET_ARM - DW_REG_SP = 13, - DW_REG_RA = 14, -#elif LJ_TARGET_PPC - DW_REG_SP = 1, - DW_REG_RA = 65, - DW_REG_CR = 70, -#elif LJ_TARGET_MIPS - DW_REG_SP = 29, - DW_REG_RA = 31, -#else -#error "Unsupported target architecture" -#endif -}; - -/* Minimal list of sections for the in-memory ELF object. */ -enum { - GDBJIT_SECT_NULL, - GDBJIT_SECT_text, - GDBJIT_SECT_eh_frame, - GDBJIT_SECT_shstrtab, - GDBJIT_SECT_strtab, - GDBJIT_SECT_symtab, - GDBJIT_SECT_debug_info, - GDBJIT_SECT_debug_abbrev, - GDBJIT_SECT_debug_line, - GDBJIT_SECT__MAX -}; - -enum { - GDBJIT_SYM_UNDEF, - GDBJIT_SYM_FILE, - GDBJIT_SYM_FUNC, - GDBJIT_SYM__MAX -}; - -/* In-memory ELF object. */ -typedef struct GDBJITobj { - ELFheader hdr; /* ELF header. */ - ELFsectheader sect[GDBJIT_SECT__MAX]; /* ELF sections. */ - ELFsymbol sym[GDBJIT_SYM__MAX]; /* ELF symbol table. */ - uint8_t space[4096]; /* Space for various section data. */ -} GDBJITobj; - -/* Combined structure for GDB JIT entry and ELF object. */ -typedef struct GDBJITentryobj { - GDBJITentry entry; - size_t sz; - GDBJITobj obj; -} GDBJITentryobj; - -/* Template for in-memory ELF header. */ -static const ELFheader elfhdr_template = { - .emagic = { 0x7f, 'E', 'L', 'F' }, - .eclass = LJ_64 ? 2 : 1, - .eendian = LJ_ENDIAN_SELECT(1, 2), - .eversion = 1, -#if LJ_TARGET_LINUX - .eosabi = 0, /* Nope, it's not 3. */ -#elif defined(__FreeBSD__) - .eosabi = 9, -#elif defined(__NetBSD__) - .eosabi = 2, -#elif defined(__OpenBSD__) - .eosabi = 12, -#elif defined(__DragonFly__) - .eosabi = 0, -#elif (defined(__sun__) && defined(__svr4__)) - .eosabi = 6, -#else - .eosabi = 0, -#endif - .eabiversion = 0, - .epad = { 0, 0, 0, 0, 0, 0, 0 }, - .type = 1, -#if LJ_TARGET_X86 - .machine = 3, -#elif LJ_TARGET_X64 - .machine = 62, -#elif LJ_TARGET_ARM - .machine = 40, -#elif LJ_TARGET_PPC - .machine = 20, -#elif LJ_TARGET_MIPS - .machine = 8, -#else -#error "Unsupported target architecture" -#endif - .version = 1, - .entry = 0, - .phofs = 0, - .shofs = offsetof(GDBJITobj, sect), - .flags = 0, - .ehsize = sizeof(ELFheader), - .phentsize = 0, - .phnum = 0, - .shentsize = sizeof(ELFsectheader), - .shnum = GDBJIT_SECT__MAX, - .shstridx = GDBJIT_SECT_shstrtab -}; - -/* -- In-memory ELF object generation ------------------------------------- */ - -/* Context for generating the ELF object for the GDB JIT API. */ -typedef struct GDBJITctx { - uint8_t *p; /* Pointer to next address in obj.space. */ - uint8_t *startp; /* Pointer to start address in obj.space. */ - GCtrace *T; /* Generate symbols for this trace. */ - uintptr_t mcaddr; /* Machine code address. */ - MSize szmcode; /* Size of machine code. */ - MSize spadjp; /* Stack adjustment for parent trace or interpreter. */ - MSize spadj; /* Stack adjustment for trace itself. */ - BCLine lineno; /* Starting line number. */ - const char *filename; /* Starting file name. */ - size_t objsize; /* Final size of ELF object. */ - GDBJITobj obj; /* In-memory ELF object. */ -} GDBJITctx; - -/* Add a zero-terminated string. */ -static uint32_t gdbjit_strz(GDBJITctx *ctx, const char *str) -{ - uint8_t *p = ctx->p; - uint32_t ofs = (uint32_t)(p - ctx->startp); - do { - *p++ = (uint8_t)*str; - } while (*str++); - ctx->p = p; - return ofs; -} - -/* Append a decimal number. */ -static void gdbjit_catnum(GDBJITctx *ctx, uint32_t n) -{ - if (n >= 10) { uint32_t m = n / 10; n = n % 10; gdbjit_catnum(ctx, m); } - *ctx->p++ = '0' + n; -} - -/* Add a SLEB128 value. */ -static void gdbjit_sleb128(GDBJITctx *ctx, int32_t v) -{ - uint8_t *p = ctx->p; - for (; (uint32_t)(v+0x40) >= 0x80; v >>= 7) - *p++ = (uint8_t)((v & 0x7f) | 0x80); - *p++ = (uint8_t)(v & 0x7f); - ctx->p = p; -} - -/* Shortcuts to generate DWARF structures. */ -#define DB(x) (*p++ = (x)) -#define DI8(x) (*(int8_t *)p = (x), p++) -#define DU16(x) (*(uint16_t *)p = (x), p += 2) -#define DU32(x) (*(uint32_t *)p = (x), p += 4) -#define DADDR(x) (*(uintptr_t *)p = (x), p += sizeof(uintptr_t)) -#define DUV(x) (p = (uint8_t *)lj_strfmt_wuleb128((char *)p, (x))) -#define DSV(x) (ctx->p = p, gdbjit_sleb128(ctx, (x)), p = ctx->p) -#define DSTR(str) (ctx->p = p, gdbjit_strz(ctx, (str)), p = ctx->p) -#define DALIGNNOP(s) while ((uintptr_t)p & ((s)-1)) *p++ = DW_CFA_nop -#define DSECT(name, stmt) \ - { uint32_t *szp_##name = (uint32_t *)p; p += 4; stmt \ - *szp_##name = (uint32_t)((p-(uint8_t *)szp_##name)-4); } \ - -/* Initialize ELF section headers. */ -static void LJ_FASTCALL gdbjit_secthdr(GDBJITctx *ctx) -{ - ELFsectheader *sect; - - *ctx->p++ = '\0'; /* Empty string at start of string table. */ - -#define SECTDEF(id, tp, al) \ - sect = &ctx->obj.sect[GDBJIT_SECT_##id]; \ - sect->name = gdbjit_strz(ctx, "." #id); \ - sect->type = ELFSECT_TYPE_##tp; \ - sect->align = (al) - - SECTDEF(text, NOBITS, 16); - sect->flags = ELFSECT_FLAGS_ALLOC|ELFSECT_FLAGS_EXEC; - sect->addr = ctx->mcaddr; - sect->ofs = 0; - sect->size = ctx->szmcode; - - SECTDEF(eh_frame, PROGBITS, sizeof(uintptr_t)); - sect->flags = ELFSECT_FLAGS_ALLOC; - - SECTDEF(shstrtab, STRTAB, 1); - SECTDEF(strtab, STRTAB, 1); - - SECTDEF(symtab, SYMTAB, sizeof(uintptr_t)); - sect->ofs = offsetof(GDBJITobj, sym); - sect->size = sizeof(ctx->obj.sym); - sect->link = GDBJIT_SECT_strtab; - sect->entsize = sizeof(ELFsymbol); - sect->info = GDBJIT_SYM_FUNC; - - SECTDEF(debug_info, PROGBITS, 1); - SECTDEF(debug_abbrev, PROGBITS, 1); - SECTDEF(debug_line, PROGBITS, 1); - -#undef SECTDEF -} - -/* Initialize symbol table. */ -static void LJ_FASTCALL gdbjit_symtab(GDBJITctx *ctx) -{ - ELFsymbol *sym; - - *ctx->p++ = '\0'; /* Empty string at start of string table. */ - - sym = &ctx->obj.sym[GDBJIT_SYM_FILE]; - sym->name = gdbjit_strz(ctx, "JIT mcode"); - sym->sectidx = ELFSECT_IDX_ABS; - sym->info = ELFSYM_TYPE_FILE|ELFSYM_BIND_LOCAL; - - sym = &ctx->obj.sym[GDBJIT_SYM_FUNC]; - sym->name = gdbjit_strz(ctx, "TRACE_"); ctx->p--; - gdbjit_catnum(ctx, ctx->T->traceno); *ctx->p++ = '\0'; - sym->sectidx = GDBJIT_SECT_text; - sym->value = 0; - sym->size = ctx->szmcode; - sym->info = ELFSYM_TYPE_FUNC|ELFSYM_BIND_GLOBAL; -} - -/* Initialize .eh_frame section. */ -static void LJ_FASTCALL gdbjit_ehframe(GDBJITctx *ctx) -{ - uint8_t *p = ctx->p; - uint8_t *framep = p; - - /* Emit DWARF EH CIE. */ - DSECT(CIE, - DU32(0); /* Offset to CIE itself. */ - DB(DW_CIE_VERSION); - DSTR("zR"); /* Augmentation. */ - DUV(1); /* Code alignment factor. */ - DSV(-(int32_t)sizeof(uintptr_t)); /* Data alignment factor. */ - DB(DW_REG_RA); /* Return address register. */ - DB(1); DB(DW_EH_PE_textrel|DW_EH_PE_udata4); /* Augmentation data. */ - DB(DW_CFA_def_cfa); DUV(DW_REG_SP); DUV(sizeof(uintptr_t)); -#if LJ_TARGET_PPC - DB(DW_CFA_offset_extended_sf); DB(DW_REG_RA); DSV(-1); -#else - DB(DW_CFA_offset|DW_REG_RA); DUV(1); -#endif - DALIGNNOP(sizeof(uintptr_t)); - ) - - /* Emit DWARF EH FDE. */ - DSECT(FDE, - DU32((uint32_t)(p-framep)); /* Offset to CIE. */ - DU32(0); /* Machine code offset relative to .text. */ - DU32(ctx->szmcode); /* Machine code length. */ - DB(0); /* Augmentation data. */ - /* Registers saved in CFRAME. */ -#if LJ_TARGET_X86 - DB(DW_CFA_offset|DW_REG_BP); DUV(2); - DB(DW_CFA_offset|DW_REG_DI); DUV(3); - DB(DW_CFA_offset|DW_REG_SI); DUV(4); - DB(DW_CFA_offset|DW_REG_BX); DUV(5); -#elif LJ_TARGET_X64 - DB(DW_CFA_offset|DW_REG_BP); DUV(2); - DB(DW_CFA_offset|DW_REG_BX); DUV(3); - DB(DW_CFA_offset|DW_REG_15); DUV(4); - DB(DW_CFA_offset|DW_REG_14); DUV(5); - /* Extra registers saved for JIT-compiled code. */ - DB(DW_CFA_offset|DW_REG_13); DUV(9); - DB(DW_CFA_offset|DW_REG_12); DUV(10); -#elif LJ_TARGET_ARM - { - int i; - for (i = 11; i >= 4; i--) { DB(DW_CFA_offset|i); DUV(2+(11-i)); } - } -#elif LJ_TARGET_PPC - { - int i; - DB(DW_CFA_offset_extended); DB(DW_REG_CR); DUV(55); - for (i = 14; i <= 31; i++) { - DB(DW_CFA_offset|i); DUV(37+(31-i)); - DB(DW_CFA_offset|32|i); DUV(2+2*(31-i)); - } - } -#elif LJ_TARGET_MIPS - { - int i; - DB(DW_CFA_offset|30); DUV(2); - for (i = 23; i >= 16; i--) { DB(DW_CFA_offset|i); DUV(26-i); } - for (i = 30; i >= 20; i -= 2) { DB(DW_CFA_offset|32|i); DUV(42-i); } - } -#else -#error "Unsupported target architecture" -#endif - if (ctx->spadjp != ctx->spadj) { /* Parent/interpreter stack frame size. */ - DB(DW_CFA_def_cfa_offset); DUV(ctx->spadjp); - DB(DW_CFA_advance_loc|1); /* Only an approximation. */ - } - DB(DW_CFA_def_cfa_offset); DUV(ctx->spadj); /* Trace stack frame size. */ - DALIGNNOP(sizeof(uintptr_t)); - ) - - ctx->p = p; -} - -/* Initialize .debug_info section. */ -static void LJ_FASTCALL gdbjit_debuginfo(GDBJITctx *ctx) -{ - uint8_t *p = ctx->p; - - DSECT(info, - DU16(2); /* DWARF version. */ - DU32(0); /* Abbrev offset. */ - DB(sizeof(uintptr_t)); /* Pointer size. */ - - DUV(1); /* Abbrev #1: DW_TAG_compile_unit. */ - DSTR(ctx->filename); /* DW_AT_name. */ - DADDR(ctx->mcaddr); /* DW_AT_low_pc. */ - DADDR(ctx->mcaddr + ctx->szmcode); /* DW_AT_high_pc. */ - DU32(0); /* DW_AT_stmt_list. */ - ) - - ctx->p = p; -} - -/* Initialize .debug_abbrev section. */ -static void LJ_FASTCALL gdbjit_debugabbrev(GDBJITctx *ctx) -{ - uint8_t *p = ctx->p; - - /* Abbrev #1: DW_TAG_compile_unit. */ - DUV(1); DUV(DW_TAG_compile_unit); - DB(DW_children_no); - DUV(DW_AT_name); DUV(DW_FORM_string); - DUV(DW_AT_low_pc); DUV(DW_FORM_addr); - DUV(DW_AT_high_pc); DUV(DW_FORM_addr); - DUV(DW_AT_stmt_list); DUV(DW_FORM_data4); - DB(0); DB(0); - - ctx->p = p; -} - -#define DLNE(op, s) (DB(DW_LNS_extended_op), DUV(1+(s)), DB((op))) - -/* Initialize .debug_line section. */ -static void LJ_FASTCALL gdbjit_debugline(GDBJITctx *ctx) -{ - uint8_t *p = ctx->p; - - DSECT(line, - DU16(2); /* DWARF version. */ - DSECT(header, - DB(1); /* Minimum instruction length. */ - DB(1); /* is_stmt. */ - DI8(0); /* Line base for special opcodes. */ - DB(2); /* Line range for special opcodes. */ - DB(3+1); /* Opcode base at DW_LNS_advance_line+1. */ - DB(0); DB(1); DB(1); /* Standard opcode lengths. */ - /* Directory table. */ - DB(0); - /* File name table. */ - DSTR(ctx->filename); DUV(0); DUV(0); DUV(0); - DB(0); - ) - - DLNE(DW_LNE_set_address, sizeof(uintptr_t)); DADDR(ctx->mcaddr); - if (ctx->lineno) { - DB(DW_LNS_advance_line); DSV(ctx->lineno-1); - } - DB(DW_LNS_copy); - DB(DW_LNS_advance_pc); DUV(ctx->szmcode); - DLNE(DW_LNE_end_sequence, 0); - ) - - ctx->p = p; -} - -#undef DLNE - -/* Undef shortcuts. */ -#undef DB -#undef DI8 -#undef DU16 -#undef DU32 -#undef DADDR -#undef DUV -#undef DSV -#undef DSTR -#undef DALIGNNOP -#undef DSECT - -/* Type of a section initializer callback. */ -typedef void (LJ_FASTCALL *GDBJITinitf)(GDBJITctx *ctx); - -/* Call section initializer and set the section offset and size. */ -static void gdbjit_initsect(GDBJITctx *ctx, int sect, GDBJITinitf initf) -{ - ctx->startp = ctx->p; - ctx->obj.sect[sect].ofs = (uintptr_t)((char *)ctx->p - (char *)&ctx->obj); - initf(ctx); - ctx->obj.sect[sect].size = (uintptr_t)(ctx->p - ctx->startp); -} - -#define SECTALIGN(p, a) \ - ((p) = (uint8_t *)(((uintptr_t)(p) + ((a)-1)) & ~(uintptr_t)((a)-1))) - -/* Build in-memory ELF object. */ -static void gdbjit_buildobj(GDBJITctx *ctx) -{ - GDBJITobj *obj = &ctx->obj; - /* Fill in ELF header and clear structures. */ - memcpy(&obj->hdr, &elfhdr_template, sizeof(ELFheader)); - memset(&obj->sect, 0, sizeof(ELFsectheader)*GDBJIT_SECT__MAX); - memset(&obj->sym, 0, sizeof(ELFsymbol)*GDBJIT_SYM__MAX); - /* Initialize sections. */ - ctx->p = obj->space; - gdbjit_initsect(ctx, GDBJIT_SECT_shstrtab, gdbjit_secthdr); - gdbjit_initsect(ctx, GDBJIT_SECT_strtab, gdbjit_symtab); - gdbjit_initsect(ctx, GDBJIT_SECT_debug_info, gdbjit_debuginfo); - gdbjit_initsect(ctx, GDBJIT_SECT_debug_abbrev, gdbjit_debugabbrev); - gdbjit_initsect(ctx, GDBJIT_SECT_debug_line, gdbjit_debugline); - SECTALIGN(ctx->p, sizeof(uintptr_t)); - gdbjit_initsect(ctx, GDBJIT_SECT_eh_frame, gdbjit_ehframe); - ctx->objsize = (size_t)((char *)ctx->p - (char *)obj); - lua_assert(ctx->objsize < sizeof(GDBJITobj)); -} - -#undef SECTALIGN - -/* -- Interface to GDB JIT API -------------------------------------------- */ - -/* Add new entry to GDB JIT symbol chain. */ -static void gdbjit_newentry(lua_State *L, GDBJITctx *ctx) -{ - /* Allocate memory for GDB JIT entry and ELF object. */ - MSize sz = (MSize)(sizeof(GDBJITentryobj) - sizeof(GDBJITobj) + ctx->objsize); - GDBJITentryobj *eo = lj_mem_newt(L, sz, GDBJITentryobj); - memcpy(&eo->obj, &ctx->obj, ctx->objsize); /* Copy ELF object. */ - eo->sz = sz; - ctx->T->gdbjit_entry = (void *)eo; - /* Link new entry to chain and register it. */ - eo->entry.prev_entry = NULL; - eo->entry.next_entry = __jit_debug_descriptor.first_entry; - if (eo->entry.next_entry) - eo->entry.next_entry->prev_entry = &eo->entry; - eo->entry.symfile_addr = (const char *)&eo->obj; - eo->entry.symfile_size = ctx->objsize; - __jit_debug_descriptor.first_entry = &eo->entry; - __jit_debug_descriptor.relevant_entry = &eo->entry; - __jit_debug_descriptor.action_flag = GDBJIT_REGISTER; - __jit_debug_register_code(); -} - -/* Add debug info for newly compiled trace and notify GDB. */ -void lj_gdbjit_addtrace(jit_State *J, GCtrace *T) -{ - GDBJITctx ctx; - GCproto *pt = &gcref(T->startpt)->pt; - TraceNo parent = T->ir[REF_BASE].op1; - const BCIns *startpc = mref(T->startpc, const BCIns); - ctx.T = T; - ctx.mcaddr = (uintptr_t)T->mcode; - ctx.szmcode = T->szmcode; - ctx.spadjp = CFRAME_SIZE_JIT + - (MSize)(parent ? traceref(J, parent)->spadjust : 0); - ctx.spadj = CFRAME_SIZE_JIT + T->spadjust; - lua_assert(startpc >= proto_bc(pt) && startpc < proto_bc(pt) + pt->sizebc); - ctx.lineno = lj_debug_line(pt, proto_bcpos(pt, startpc)); - ctx.filename = proto_chunknamestr(pt); - if (*ctx.filename == '@' || *ctx.filename == '=') - ctx.filename++; - else - ctx.filename = "(string)"; - gdbjit_buildobj(&ctx); - gdbjit_newentry(J->L, &ctx); -} - -/* Delete debug info for trace and notify GDB. */ -void lj_gdbjit_deltrace(jit_State *J, GCtrace *T) -{ - GDBJITentryobj *eo = (GDBJITentryobj *)T->gdbjit_entry; - if (eo) { - if (eo->entry.prev_entry) - eo->entry.prev_entry->next_entry = eo->entry.next_entry; - else - __jit_debug_descriptor.first_entry = eo->entry.next_entry; - if (eo->entry.next_entry) - eo->entry.next_entry->prev_entry = eo->entry.prev_entry; - __jit_debug_descriptor.relevant_entry = &eo->entry; - __jit_debug_descriptor.action_flag = GDBJIT_UNREGISTER; - __jit_debug_register_code(); - lj_mem_free(J2G(J), eo, eo->sz); - } -} - -#endif -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h b/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h deleted file mode 100644 index 49c586301a8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_gdbjit.h +++ /dev/null @@ -1,22 +0,0 @@ -/* -** Client for the GDB JIT API. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_GDBJIT_H -#define _LJ_GDBJIT_H - -#include "lj_obj.h" -#include "lj_jit.h" - -#if LJ_HASJIT && defined(LUAJIT_USE_GDBJIT) - -LJ_FUNC void lj_gdbjit_addtrace(jit_State *J, GCtrace *T); -LJ_FUNC void lj_gdbjit_deltrace(jit_State *J, GCtrace *T); - -#else -#define lj_gdbjit_addtrace(J, T) UNUSED(T) -#define lj_gdbjit_deltrace(J, T) UNUSED(T) -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ir.c b/src/3rd party/luajit-2.0-BAK/src/lj_ir.c deleted file mode 100644 index 9682e05e577..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ir.c +++ /dev/null @@ -1,505 +0,0 @@ -/* -** SSA IR (Intermediate Representation) emitter. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_ir_c -#define LUA_CORE - -/* For pointers to libc/libm functions. */ -#include -#include - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_gc.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lj_carith.h" -#endif -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" -#include "lj_lib.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) -#define fins (&J->fold.ins) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* -- IR tables ----------------------------------------------------------- */ - -/* IR instruction modes. */ -LJ_DATADEF const uint8_t lj_ir_mode[IR__MAX+1] = { -IRDEF(IRMODE) - 0 -}; - -/* IR type sizes. */ -LJ_DATADEF const uint8_t lj_ir_type_size[IRT__MAX+1] = { -#define IRTSIZE(name, size) size, -IRTDEF(IRTSIZE) -#undef IRTSIZE - 0 -}; - -/* C call info for CALL* instructions. */ -LJ_DATADEF const CCallInfo lj_ir_callinfo[] = { -#define IRCALLCI(cond, name, nargs, kind, type, flags) \ - { (ASMFunction)IRCALLCOND_##cond(name), \ - (nargs)|(CCI_CALL_##kind)|(IRT_##type<irbuf + J->irbotlim; - MSize szins = J->irtoplim - J->irbotlim; - if (szins) { - baseir = (IRIns *)lj_mem_realloc(J->L, baseir, szins*sizeof(IRIns), - 2*szins*sizeof(IRIns)); - J->irtoplim = J->irbotlim + 2*szins; - } else { - baseir = (IRIns *)lj_mem_realloc(J->L, NULL, 0, LJ_MIN_IRSZ*sizeof(IRIns)); - J->irbotlim = REF_BASE - LJ_MIN_IRSZ/4; - J->irtoplim = J->irbotlim + LJ_MIN_IRSZ; - } - J->cur.ir = J->irbuf = baseir - J->irbotlim; -} - -/* Grow IR buffer at the bottom or shift it up. */ -static void lj_ir_growbot(jit_State *J) -{ - IRIns *baseir = J->irbuf + J->irbotlim; - MSize szins = J->irtoplim - J->irbotlim; - lua_assert(szins != 0); - lua_assert(J->cur.nk == J->irbotlim); - if (J->cur.nins + (szins >> 1) < J->irtoplim) { - /* More than half of the buffer is free on top: shift up by a quarter. */ - MSize ofs = szins >> 2; - memmove(baseir + ofs, baseir, (J->cur.nins - J->irbotlim)*sizeof(IRIns)); - J->irbotlim -= ofs; - J->irtoplim -= ofs; - J->cur.ir = J->irbuf = baseir - J->irbotlim; - } else { - /* Double the buffer size, but split the growth amongst top/bottom. */ - IRIns *newbase = lj_mem_newt(J->L, 2*szins*sizeof(IRIns), IRIns); - MSize ofs = szins >= 256 ? 128 : (szins >> 1); /* Limit bottom growth. */ - memcpy(newbase + ofs, baseir, (J->cur.nins - J->irbotlim)*sizeof(IRIns)); - lj_mem_free(G(J->L), baseir, szins*sizeof(IRIns)); - J->irbotlim -= ofs; - J->irtoplim = J->irbotlim + 2*szins; - J->cur.ir = J->irbuf = newbase - J->irbotlim; - } -} - -/* Emit IR without any optimizations. */ -TRef LJ_FASTCALL lj_ir_emit(jit_State *J) -{ - IRRef ref = lj_ir_nextins(J); - IRIns *ir = IR(ref); - IROp op = fins->o; - ir->prev = J->chain[op]; - J->chain[op] = (IRRef1)ref; - ir->o = op; - ir->op1 = fins->op1; - ir->op2 = fins->op2; - J->guardemit.irt |= fins->t.irt; - return TREF(ref, irt_t((ir->t = fins->t))); -} - -/* Emit call to a C function. */ -TRef lj_ir_call(jit_State *J, IRCallID id, ...) -{ - const CCallInfo *ci = &lj_ir_callinfo[id]; - uint32_t n = CCI_NARGS(ci); - TRef tr = TREF_NIL; - va_list argp; - va_start(argp, id); - if ((ci->flags & CCI_L)) n--; - if (n > 0) - tr = va_arg(argp, IRRef); - while (n-- > 1) - tr = emitir(IRT(IR_CARG, IRT_NIL), tr, va_arg(argp, IRRef)); - va_end(argp); - if (CCI_OP(ci) == IR_CALLS) - J->needsnap = 1; /* Need snapshot after call with side effect. */ - return emitir(CCI_OPTYPE(ci), tr, id); -} - -/* -- Interning of constants ---------------------------------------------- */ - -/* -** IR instructions for constants are kept between J->cur.nk >= ref < REF_BIAS. -** They are chained like all other instructions, but grow downwards. -** The are interned (like strings in the VM) to facilitate reference -** comparisons. The same constant must get the same reference. -*/ - -/* Get ref of next IR constant and optionally grow IR. -** Note: this may invalidate all IRIns *! -*/ -static LJ_AINLINE IRRef ir_nextk(jit_State *J) -{ - IRRef ref = J->cur.nk; - if (LJ_UNLIKELY(ref <= J->irbotlim)) lj_ir_growbot(J); - J->cur.nk = --ref; - return ref; -} - -/* Intern int32_t constant. */ -TRef LJ_FASTCALL lj_ir_kint(jit_State *J, int32_t k) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef ref; - for (ref = J->chain[IR_KINT]; ref; ref = cir[ref].prev) - if (cir[ref].i == k) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - ir->i = k; - ir->t.irt = IRT_INT; - ir->o = IR_KINT; - ir->prev = J->chain[IR_KINT]; - J->chain[IR_KINT] = (IRRef1)ref; -found: - return TREF(ref, IRT_INT); -} - -/* The MRef inside the KNUM/KINT64 IR instructions holds the address of the -** 64 bit constant. The constants themselves are stored in a chained array -** and shared across traces. -** -** Rationale for choosing this data structure: -** - The address of the constants is embedded in the generated machine code -** and must never move. A resizable array or hash table wouldn't work. -** - Most apps need very few non-32 bit integer constants (less than a dozen). -** - Linear search is hard to beat in terms of speed and low complexity. -*/ -typedef struct K64Array { - MRef next; /* Pointer to next list. */ - MSize numk; /* Number of used elements in this array. */ - TValue k[LJ_MIN_K64SZ]; /* Array of constants. */ -} K64Array; - -/* Free all chained arrays. */ -void lj_ir_k64_freeall(jit_State *J) -{ - K64Array *k; - for (k = mref(J->k64, K64Array); k; ) { - K64Array *next = mref(k->next, K64Array); - lj_mem_free(J2G(J), k, sizeof(K64Array)); - k = next; - } -} - -/* Find 64 bit constant in chained array or add it. */ -cTValue *lj_ir_k64_find(jit_State *J, uint64_t u64) -{ - K64Array *k, *kp = NULL; - TValue *ntv; - MSize idx; - /* Search for the constant in the whole chain of arrays. */ - for (k = mref(J->k64, K64Array); k; k = mref(k->next, K64Array)) { - kp = k; /* Remember previous element in list. */ - for (idx = 0; idx < k->numk; idx++) { /* Search one array. */ - TValue *tv = &k->k[idx]; - if (tv->u64 == u64) /* Needed for +-0/NaN/absmask. */ - return tv; - } - } - /* Constant was not found, need to add it. */ - if (!(kp && kp->numk < LJ_MIN_K64SZ)) { /* Allocate a new array. */ - K64Array *kn = lj_mem_newt(J->L, sizeof(K64Array), K64Array); - setmref(kn->next, NULL); - kn->numk = 0; - if (kp) - setmref(kp->next, kn); /* Chain to the end of the list. */ - else - setmref(J->k64, kn); /* Link first array. */ - kp = kn; - } - ntv = &kp->k[kp->numk++]; /* Add to current array. */ - ntv->u64 = u64; - return ntv; -} - -/* Intern 64 bit constant, given by its address. */ -TRef lj_ir_k64(jit_State *J, IROp op, cTValue *tv) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef ref; - IRType t = op == IR_KNUM ? IRT_NUM : IRT_I64; - for (ref = J->chain[op]; ref; ref = cir[ref].prev) - if (ir_k64(&cir[ref]) == tv) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - lua_assert(checkptrGC(tv)); - setmref(ir->ptr, tv); - ir->t.irt = t; - ir->o = op; - ir->prev = J->chain[op]; - J->chain[op] = (IRRef1)ref; -found: - return TREF(ref, t); -} - -/* Intern FP constant, given by its 64 bit pattern. */ -TRef lj_ir_knum_u64(jit_State *J, uint64_t u64) -{ - return lj_ir_k64(J, IR_KNUM, lj_ir_k64_find(J, u64)); -} - -/* Intern 64 bit integer constant. */ -TRef lj_ir_kint64(jit_State *J, uint64_t u64) -{ - return lj_ir_k64(J, IR_KINT64, lj_ir_k64_find(J, u64)); -} - -/* Check whether a number is int and return it. -0 is NOT considered an int. */ -static int numistrueint(lua_Number n, int32_t *kp) -{ - int32_t k = lj_num2int(n); - if (n == (lua_Number)k) { - if (kp) *kp = k; - if (k == 0) { /* Special check for -0. */ - TValue tv; - setnumV(&tv, n); - if (tv.u32.hi != 0) - return 0; - } - return 1; - } - return 0; -} - -/* Intern number as int32_t constant if possible, otherwise as FP constant. */ -TRef lj_ir_knumint(jit_State *J, lua_Number n) -{ - int32_t k; - if (numistrueint(n, &k)) - return lj_ir_kint(J, k); - else - return lj_ir_knum(J, n); -} - -/* Intern GC object "constant". */ -TRef lj_ir_kgc(jit_State *J, GCobj *o, IRType t) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef ref; - lua_assert(!LJ_GC64); /* TODO_GC64: major changes required. */ - lua_assert(!isdead(J2G(J), o)); - for (ref = J->chain[IR_KGC]; ref; ref = cir[ref].prev) - if (ir_kgc(&cir[ref]) == o) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - /* NOBARRIER: Current trace is a GC root. */ - setgcref(ir->gcr, o); - ir->t.irt = (uint8_t)t; - ir->o = IR_KGC; - ir->prev = J->chain[IR_KGC]; - J->chain[IR_KGC] = (IRRef1)ref; -found: - return TREF(ref, t); -} - -/* Intern 32 bit pointer constant. */ -TRef lj_ir_kptr_(jit_State *J, IROp op, void *ptr) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef ref; - lua_assert((void *)(intptr_t)i32ptr(ptr) == ptr); - for (ref = J->chain[op]; ref; ref = cir[ref].prev) - if (mref(cir[ref].ptr, void) == ptr) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - setmref(ir->ptr, ptr); - ir->t.irt = IRT_P32; - ir->o = op; - ir->prev = J->chain[op]; - J->chain[op] = (IRRef1)ref; -found: - return TREF(ref, IRT_P32); -} - -/* Intern typed NULL constant. */ -TRef lj_ir_knull(jit_State *J, IRType t) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef ref; - for (ref = J->chain[IR_KNULL]; ref; ref = cir[ref].prev) - if (irt_t(cir[ref].t) == t) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - ir->i = 0; - ir->t.irt = (uint8_t)t; - ir->o = IR_KNULL; - ir->prev = J->chain[IR_KNULL]; - J->chain[IR_KNULL] = (IRRef1)ref; -found: - return TREF(ref, t); -} - -/* Intern key slot. */ -TRef lj_ir_kslot(jit_State *J, TRef key, IRRef slot) -{ - IRIns *ir, *cir = J->cur.ir; - IRRef2 op12 = IRREF2((IRRef1)key, (IRRef1)slot); - IRRef ref; - /* Const part is not touched by CSE/DCE, so 0-65535 is ok for IRMlit here. */ - lua_assert(tref_isk(key) && slot == (IRRef)(IRRef1)slot); - for (ref = J->chain[IR_KSLOT]; ref; ref = cir[ref].prev) - if (cir[ref].op12 == op12) - goto found; - ref = ir_nextk(J); - ir = IR(ref); - ir->op12 = op12; - ir->t.irt = IRT_P32; - ir->o = IR_KSLOT; - ir->prev = J->chain[IR_KSLOT]; - J->chain[IR_KSLOT] = (IRRef1)ref; -found: - return TREF(ref, IRT_P32); -} - -/* -- Access to IR constants ---------------------------------------------- */ - -/* Copy value of IR constant. */ -void lj_ir_kvalue(lua_State *L, TValue *tv, const IRIns *ir) -{ - UNUSED(L); - lua_assert(ir->o != IR_KSLOT); /* Common mistake. */ - switch (ir->o) { - case IR_KPRI: setpriV(tv, irt_toitype(ir->t)); break; - case IR_KINT: setintV(tv, ir->i); break; - case IR_KGC: setgcV(L, tv, ir_kgc(ir), irt_toitype(ir->t)); break; - case IR_KPTR: case IR_KKPTR: case IR_KNULL: - setlightudV(tv, mref(ir->ptr, void)); - break; - case IR_KNUM: setnumV(tv, ir_knum(ir)->n); break; -#if LJ_HASFFI - case IR_KINT64: { - GCcdata *cd = lj_cdata_new_(L, CTID_INT64, 8); - *(uint64_t *)cdataptr(cd) = ir_kint64(ir)->u64; - setcdataV(L, tv, cd); - break; - } -#endif - default: lua_assert(0); break; - } -} - -/* -- Convert IR operand types -------------------------------------------- */ - -/* Convert from string to number. */ -TRef LJ_FASTCALL lj_ir_tonumber(jit_State *J, TRef tr) -{ - if (!tref_isnumber(tr)) { - if (tref_isstr(tr)) - tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); - else - lj_trace_err(J, LJ_TRERR_BADTYPE); - } - return tr; -} - -/* Convert from integer or string to number. */ -TRef LJ_FASTCALL lj_ir_tonum(jit_State *J, TRef tr) -{ - if (!tref_isnum(tr)) { - if (tref_isinteger(tr)) - tr = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); - else if (tref_isstr(tr)) - tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); - else - lj_trace_err(J, LJ_TRERR_BADTYPE); - } - return tr; -} - -/* Convert from integer or number to string. */ -TRef LJ_FASTCALL lj_ir_tostr(jit_State *J, TRef tr) -{ - if (!tref_isstr(tr)) { - if (!tref_isnumber(tr)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - tr = emitir(IRT(IR_TOSTR, IRT_STR), tr, - tref_isnum(tr) ? IRTOSTR_NUM : IRTOSTR_INT); - } - return tr; -} - -/* -- Miscellaneous IR ops ------------------------------------------------ */ - -/* Evaluate numeric comparison. */ -int lj_ir_numcmp(lua_Number a, lua_Number b, IROp op) -{ - switch (op) { - case IR_EQ: return (a == b); - case IR_NE: return (a != b); - case IR_LT: return (a < b); - case IR_GE: return (a >= b); - case IR_LE: return (a <= b); - case IR_GT: return (a > b); - case IR_ULT: return !(a >= b); - case IR_UGE: return !(a < b); - case IR_ULE: return !(a > b); - case IR_UGT: return !(a <= b); - default: lua_assert(0); return 0; - } -} - -/* Evaluate string comparison. */ -int lj_ir_strcmp(GCstr *a, GCstr *b, IROp op) -{ - int res = lj_str_cmp(a, b); - switch (op) { - case IR_LT: return (res < 0); - case IR_GE: return (res >= 0); - case IR_LE: return (res <= 0); - case IR_GT: return (res > 0); - default: lua_assert(0); return 0; - } -} - -/* Rollback IR to previous state. */ -void lj_ir_rollback(jit_State *J, IRRef ref) -{ - IRRef nins = J->cur.nins; - while (nins > ref) { - IRIns *ir; - nins--; - ir = IR(nins); - J->chain[ir->o] = ir->prev; - } - J->cur.nins = nins; -} - -#undef IR -#undef fins -#undef emitir - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ir.h b/src/3rd party/luajit-2.0-BAK/src/lj_ir.h deleted file mode 100644 index 56e19774c97..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ir.h +++ /dev/null @@ -1,577 +0,0 @@ -/* -** SSA IR (Intermediate Representation) format. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_IR_H -#define _LJ_IR_H - -#include "lj_obj.h" - -/* -- IR instructions ----------------------------------------------------- */ - -/* IR instruction definition. Order matters, see below. ORDER IR */ -#define IRDEF(_) \ - /* Guarded assertions. */ \ - /* Must be properly aligned to flip opposites (^1) and (un)ordered (^4). */ \ - _(LT, N , ref, ref) \ - _(GE, N , ref, ref) \ - _(LE, N , ref, ref) \ - _(GT, N , ref, ref) \ - \ - _(ULT, N , ref, ref) \ - _(UGE, N , ref, ref) \ - _(ULE, N , ref, ref) \ - _(UGT, N , ref, ref) \ - \ - _(EQ, C , ref, ref) \ - _(NE, C , ref, ref) \ - \ - _(ABC, N , ref, ref) \ - _(RETF, S , ref, ref) \ - \ - /* Miscellaneous ops. */ \ - _(NOP, N , ___, ___) \ - _(BASE, N , lit, lit) \ - _(PVAL, N , lit, ___) \ - _(GCSTEP, S , ___, ___) \ - _(HIOP, S , ref, ref) \ - _(LOOP, S , ___, ___) \ - _(USE, S , ref, ___) \ - _(PHI, S , ref, ref) \ - _(RENAME, S , ref, lit) \ - _(PROF, S , ___, ___) \ - \ - /* Constants. */ \ - _(KPRI, N , ___, ___) \ - _(KINT, N , cst, ___) \ - _(KGC, N , cst, ___) \ - _(KPTR, N , cst, ___) \ - _(KKPTR, N , cst, ___) \ - _(KNULL, N , cst, ___) \ - _(KNUM, N , cst, ___) \ - _(KINT64, N , cst, ___) \ - _(KSLOT, N , ref, lit) \ - \ - /* Bit ops. */ \ - _(BNOT, N , ref, ___) \ - _(BSWAP, N , ref, ___) \ - _(BAND, C , ref, ref) \ - _(BOR, C , ref, ref) \ - _(BXOR, C , ref, ref) \ - _(BSHL, N , ref, ref) \ - _(BSHR, N , ref, ref) \ - _(BSAR, N , ref, ref) \ - _(BROL, N , ref, ref) \ - _(BROR, N , ref, ref) \ - \ - /* Arithmetic ops. ORDER ARITH */ \ - _(ADD, C , ref, ref) \ - _(SUB, N , ref, ref) \ - _(MUL, C , ref, ref) \ - _(DIV, N , ref, ref) \ - _(MOD, N , ref, ref) \ - _(POW, N , ref, ref) \ - _(NEG, N , ref, ref) \ - \ - _(ABS, N , ref, ref) \ - _(ATAN2, N , ref, ref) \ - _(LDEXP, N , ref, ref) \ - _(MIN, C , ref, ref) \ - _(MAX, C , ref, ref) \ - _(FPMATH, N , ref, lit) \ - \ - /* Overflow-checking arithmetic ops. */ \ - _(ADDOV, CW, ref, ref) \ - _(SUBOV, NW, ref, ref) \ - _(MULOV, CW, ref, ref) \ - \ - /* Memory ops. A = array, H = hash, U = upvalue, F = field, S = stack. */ \ - \ - /* Memory references. */ \ - _(AREF, R , ref, ref) \ - _(HREFK, R , ref, ref) \ - _(HREF, L , ref, ref) \ - _(NEWREF, S , ref, ref) \ - _(UREFO, LW, ref, lit) \ - _(UREFC, LW, ref, lit) \ - _(FREF, R , ref, lit) \ - _(STRREF, N , ref, ref) \ - _(LREF, L , ___, ___) \ - \ - /* Loads and Stores. These must be in the same order. */ \ - _(ALOAD, L , ref, ___) \ - _(HLOAD, L , ref, ___) \ - _(ULOAD, L , ref, ___) \ - _(FLOAD, L , ref, lit) \ - _(XLOAD, L , ref, lit) \ - _(SLOAD, L , lit, lit) \ - _(VLOAD, L , ref, ___) \ - \ - _(ASTORE, S , ref, ref) \ - _(HSTORE, S , ref, ref) \ - _(USTORE, S , ref, ref) \ - _(FSTORE, S , ref, ref) \ - _(XSTORE, S , ref, ref) \ - \ - /* Allocations. */ \ - _(SNEW, N , ref, ref) /* CSE is ok, not marked as A. */ \ - _(XSNEW, A , ref, ref) \ - _(TNEW, AW, lit, lit) \ - _(TDUP, AW, ref, ___) \ - _(CNEW, AW, ref, ref) \ - _(CNEWI, NW, ref, ref) /* CSE is ok, not marked as A. */ \ - \ - /* Buffer operations. */ \ - _(BUFHDR, L , ref, lit) \ - _(BUFPUT, L , ref, ref) \ - _(BUFSTR, A , ref, ref) \ - \ - /* Barriers. */ \ - _(TBAR, S , ref, ___) \ - _(OBAR, S , ref, ref) \ - _(XBAR, S , ___, ___) \ - \ - /* Type conversions. */ \ - _(CONV, NW, ref, lit) \ - _(TOBIT, N , ref, ref) \ - _(TOSTR, N , ref, lit) \ - _(STRTO, N , ref, ___) \ - \ - /* Calls. */ \ - _(CALLN, N , ref, lit) \ - _(CALLA, A , ref, lit) \ - _(CALLL, L , ref, lit) \ - _(CALLS, S , ref, lit) \ - _(CALLXS, S , ref, ref) \ - _(CARG, N , ref, ref) \ - \ - /* End of list. */ - -/* IR opcodes (max. 256). */ -typedef enum { -#define IRENUM(name, m, m1, m2) IR_##name, -IRDEF(IRENUM) -#undef IRENUM - IR__MAX -} IROp; - -/* Stored opcode. */ -typedef uint8_t IROp1; - -LJ_STATIC_ASSERT(((int)IR_EQ^1) == (int)IR_NE); -LJ_STATIC_ASSERT(((int)IR_LT^1) == (int)IR_GE); -LJ_STATIC_ASSERT(((int)IR_LE^1) == (int)IR_GT); -LJ_STATIC_ASSERT(((int)IR_LT^3) == (int)IR_GT); -LJ_STATIC_ASSERT(((int)IR_LT^4) == (int)IR_ULT); - -/* Delta between xLOAD and xSTORE. */ -#define IRDELTA_L2S ((int)IR_ASTORE - (int)IR_ALOAD) - -LJ_STATIC_ASSERT((int)IR_HLOAD + IRDELTA_L2S == (int)IR_HSTORE); -LJ_STATIC_ASSERT((int)IR_ULOAD + IRDELTA_L2S == (int)IR_USTORE); -LJ_STATIC_ASSERT((int)IR_FLOAD + IRDELTA_L2S == (int)IR_FSTORE); -LJ_STATIC_ASSERT((int)IR_XLOAD + IRDELTA_L2S == (int)IR_XSTORE); - -/* -- Named IR literals --------------------------------------------------- */ - -/* FPMATH sub-functions. ORDER FPM. */ -#define IRFPMDEF(_) \ - _(FLOOR) _(CEIL) _(TRUNC) /* Must be first and in this order. */ \ - _(SQRT) _(EXP) _(EXP2) _(LOG) _(LOG2) _(LOG10) \ - _(SIN) _(COS) _(TAN) \ - _(OTHER) - -typedef enum { -#define FPMENUM(name) IRFPM_##name, -IRFPMDEF(FPMENUM) -#undef FPMENUM - IRFPM__MAX -} IRFPMathOp; - -/* FLOAD fields. */ -#define IRFLDEF(_) \ - _(STR_LEN, offsetof(GCstr, len)) \ - _(FUNC_ENV, offsetof(GCfunc, l.env)) \ - _(FUNC_PC, offsetof(GCfunc, l.pc)) \ - _(FUNC_FFID, offsetof(GCfunc, l.ffid)) \ - _(THREAD_ENV, offsetof(lua_State, env)) \ - _(TAB_META, offsetof(GCtab, metatable)) \ - _(TAB_ARRAY, offsetof(GCtab, array)) \ - _(TAB_NODE, offsetof(GCtab, node)) \ - _(TAB_ASIZE, offsetof(GCtab, asize)) \ - _(TAB_HMASK, offsetof(GCtab, hmask)) \ - _(TAB_NOMM, offsetof(GCtab, nomm)) \ - _(UDATA_META, offsetof(GCudata, metatable)) \ - _(UDATA_UDTYPE, offsetof(GCudata, udtype)) \ - _(UDATA_FILE, sizeof(GCudata)) \ - _(CDATA_CTYPEID, offsetof(GCcdata, ctypeid)) \ - _(CDATA_PTR, sizeof(GCcdata)) \ - _(CDATA_INT, sizeof(GCcdata)) \ - _(CDATA_INT64, sizeof(GCcdata)) \ - _(CDATA_INT64_4, sizeof(GCcdata) + 4) - -typedef enum { -#define FLENUM(name, ofs) IRFL_##name, -IRFLDEF(FLENUM) -#undef FLENUM - IRFL__MAX -} IRFieldID; - -/* SLOAD mode bits, stored in op2. */ -#define IRSLOAD_PARENT 0x01 /* Coalesce with parent trace. */ -#define IRSLOAD_FRAME 0x02 /* Load hiword of frame. */ -#define IRSLOAD_TYPECHECK 0x04 /* Needs type check. */ -#define IRSLOAD_CONVERT 0x08 /* Number to integer conversion. */ -#define IRSLOAD_READONLY 0x10 /* Read-only, omit slot store. */ -#define IRSLOAD_INHERIT 0x20 /* Inherited by exits/side traces. */ - -/* XLOAD mode, stored in op2. */ -#define IRXLOAD_READONLY 1 /* Load from read-only data. */ -#define IRXLOAD_VOLATILE 2 /* Load from volatile data. */ -#define IRXLOAD_UNALIGNED 4 /* Unaligned load. */ - -/* BUFHDR mode, stored in op2. */ -#define IRBUFHDR_RESET 0 /* Reset buffer. */ -#define IRBUFHDR_APPEND 1 /* Append to buffer. */ - -/* CONV mode, stored in op2. */ -#define IRCONV_SRCMASK 0x001f /* Source IRType. */ -#define IRCONV_DSTMASK 0x03e0 /* Dest. IRType (also in ir->t). */ -#define IRCONV_DSH 5 -#define IRCONV_NUM_INT ((IRT_NUM<>2)&3)) -#define irm_iscomm(m) ((m) & IRM_C) -#define irm_kind(m) ((m) & IRM_S) - -#define IRMODE(name, m, m1, m2) (((IRM##m1)|((IRM##m2)<<2)|(IRM_##m))^IRM_W), - -LJ_DATA const uint8_t lj_ir_mode[IR__MAX+1]; - -/* -- IR instruction types ------------------------------------------------ */ - -/* Map of itypes to non-negative numbers. ORDER LJ_T. -** LJ_TUPVAL/LJ_TTRACE never appear in a TValue. Use these itypes for -** IRT_P32 and IRT_P64, which never escape the IR. -** The various integers are only used in the IR and can only escape to -** a TValue after implicit or explicit conversion. Their types must be -** contiguous and next to IRT_NUM (see the typerange macros below). -*/ -#define IRTDEF(_) \ - _(NIL, 4) _(FALSE, 4) _(TRUE, 4) _(LIGHTUD, LJ_64 ? 8 : 4) _(STR, 4) \ - _(P32, 4) _(THREAD, 4) _(PROTO, 4) _(FUNC, 4) _(P64, 8) _(CDATA, 4) \ - _(TAB, 4) _(UDATA, 4) \ - _(FLOAT, 4) _(NUM, 8) _(I8, 1) _(U8, 1) _(I16, 2) _(U16, 2) \ - _(INT, 4) _(U32, 4) _(I64, 8) _(U64, 8) \ - _(SOFTFP, 4) /* There is room for 9 more types. */ - -/* IR result type and flags (8 bit). */ -typedef enum { -#define IRTENUM(name, size) IRT_##name, -IRTDEF(IRTENUM) -#undef IRTENUM - IRT__MAX, - - /* Native pointer type and the corresponding integer type. */ - IRT_PTR = LJ_64 ? IRT_P64 : IRT_P32, - IRT_INTP = LJ_64 ? IRT_I64 : IRT_INT, - IRT_UINTP = LJ_64 ? IRT_U64 : IRT_U32, - /* TODO_GC64: major changes required for all uses of IRT_P32. */ - - /* Additional flags. */ - IRT_MARK = 0x20, /* Marker for misc. purposes. */ - IRT_ISPHI = 0x40, /* Instruction is left or right PHI operand. */ - IRT_GUARD = 0x80, /* Instruction is a guard. */ - - /* Masks. */ - IRT_TYPE = 0x1f, - IRT_T = 0xff -} IRType; - -#define irtype_ispri(irt) ((uint32_t)(irt) <= IRT_TRUE) - -/* Stored IRType. */ -typedef struct IRType1 { uint8_t irt; } IRType1; - -#define IRT(o, t) ((uint32_t)(((o)<<8) | (t))) -#define IRTI(o) (IRT((o), IRT_INT)) -#define IRTN(o) (IRT((o), IRT_NUM)) -#define IRTG(o, t) (IRT((o), IRT_GUARD|(t))) -#define IRTGI(o) (IRT((o), IRT_GUARD|IRT_INT)) - -#define irt_t(t) ((IRType)(t).irt) -#define irt_type(t) ((IRType)((t).irt & IRT_TYPE)) -#define irt_sametype(t1, t2) ((((t1).irt ^ (t2).irt) & IRT_TYPE) == 0) -#define irt_typerange(t, first, last) \ - ((uint32_t)((t).irt & IRT_TYPE) - (uint32_t)(first) <= (uint32_t)(last-first)) - -#define irt_isnil(t) (irt_type(t) == IRT_NIL) -#define irt_ispri(t) ((uint32_t)irt_type(t) <= IRT_TRUE) -#define irt_islightud(t) (irt_type(t) == IRT_LIGHTUD) -#define irt_isstr(t) (irt_type(t) == IRT_STR) -#define irt_istab(t) (irt_type(t) == IRT_TAB) -#define irt_iscdata(t) (irt_type(t) == IRT_CDATA) -#define irt_isfloat(t) (irt_type(t) == IRT_FLOAT) -#define irt_isnum(t) (irt_type(t) == IRT_NUM) -#define irt_isint(t) (irt_type(t) == IRT_INT) -#define irt_isi8(t) (irt_type(t) == IRT_I8) -#define irt_isu8(t) (irt_type(t) == IRT_U8) -#define irt_isi16(t) (irt_type(t) == IRT_I16) -#define irt_isu16(t) (irt_type(t) == IRT_U16) -#define irt_isu32(t) (irt_type(t) == IRT_U32) -#define irt_isi64(t) (irt_type(t) == IRT_I64) -#define irt_isu64(t) (irt_type(t) == IRT_U64) - -#define irt_isfp(t) (irt_isnum(t) || irt_isfloat(t)) -#define irt_isinteger(t) (irt_typerange((t), IRT_I8, IRT_INT)) -#define irt_isgcv(t) (irt_typerange((t), IRT_STR, IRT_UDATA)) -#define irt_isaddr(t) (irt_typerange((t), IRT_LIGHTUD, IRT_UDATA)) -#define irt_isint64(t) (irt_typerange((t), IRT_I64, IRT_U64)) - -#if LJ_GC64 -#define IRT_IS64 \ - ((1u<> irt_type(t)) & 1) -#define irt_is64orfp(t) (((IRT_IS64|(1u<>irt_type(t)) & 1) - -#define irt_size(t) (lj_ir_type_size[irt_t((t))]) - -LJ_DATA const uint8_t lj_ir_type_size[]; - -static LJ_AINLINE IRType itype2irt(const TValue *tv) -{ - if (tvisint(tv)) - return IRT_INT; - else if (tvisnum(tv)) - return IRT_NUM; -#if LJ_64 && !LJ_GC64 - else if (tvislightud(tv)) - return IRT_LIGHTUD; -#endif - else - return (IRType)~itype(tv); -} - -static LJ_AINLINE uint32_t irt_toitype_(IRType t) -{ - lua_assert(!LJ_64 || t != IRT_LIGHTUD); - if (LJ_DUALNUM && t > IRT_NUM) { - return LJ_TISNUM; - } else { - lua_assert(t <= IRT_NUM); - return ~(uint32_t)t; - } -} - -#define irt_toitype(t) irt_toitype_(irt_type((t))) - -#define irt_isguard(t) ((t).irt & IRT_GUARD) -#define irt_ismarked(t) ((t).irt & IRT_MARK) -#define irt_setmark(t) ((t).irt |= IRT_MARK) -#define irt_clearmark(t) ((t).irt &= ~IRT_MARK) -#define irt_isphi(t) ((t).irt & IRT_ISPHI) -#define irt_setphi(t) ((t).irt |= IRT_ISPHI) -#define irt_clearphi(t) ((t).irt &= ~IRT_ISPHI) - -/* Stored combined IR opcode and type. */ -typedef uint16_t IROpT; - -/* -- IR references ------------------------------------------------------- */ - -/* IR references. */ -typedef uint16_t IRRef1; /* One stored reference. */ -typedef uint32_t IRRef2; /* Two stored references. */ -typedef uint32_t IRRef; /* Used to pass around references. */ - -/* Fixed references. */ -enum { - REF_BIAS = 0x8000, - REF_TRUE = REF_BIAS-3, - REF_FALSE = REF_BIAS-2, - REF_NIL = REF_BIAS-1, /* \--- Constants grow downwards. */ - REF_BASE = REF_BIAS, /* /--- IR grows upwards. */ - REF_FIRST = REF_BIAS+1, - REF_DROP = 0xffff -}; - -/* Note: IRMlit operands must be < REF_BIAS, too! -** This allows for fast and uniform manipulation of all operands -** without looking up the operand mode in lj_ir_mode: -** - CSE calculates the maximum reference of two operands. -** This must work with mixed reference/literal operands, too. -** - DCE marking only checks for operand >= REF_BIAS. -** - LOOP needs to substitute reference operands. -** Constant references and literals must not be modified. -*/ - -#define IRREF2(lo, hi) ((IRRef2)(lo) | ((IRRef2)(hi) << 16)) - -#define irref_isk(ref) ((ref) < REF_BIAS) - -/* Tagged IR references (32 bit). -** -** +-------+-------+---------------+ -** | irt | flags | ref | -** +-------+-------+---------------+ -** -** The tag holds a copy of the IRType and speeds up IR type checks. -*/ -typedef uint32_t TRef; - -#define TREF_REFMASK 0x0000ffff -#define TREF_FRAME 0x00010000 -#define TREF_CONT 0x00020000 - -#define TREF(ref, t) ((TRef)((ref) + ((t)<<24))) - -#define tref_ref(tr) ((IRRef1)(tr)) -#define tref_t(tr) ((IRType)((tr)>>24)) -#define tref_type(tr) ((IRType)(((tr)>>24) & IRT_TYPE)) -#define tref_typerange(tr, first, last) \ - ((((tr)>>24) & IRT_TYPE) - (TRef)(first) <= (TRef)(last-first)) - -#define tref_istype(tr, t) (((tr) & (IRT_TYPE<<24)) == ((t)<<24)) -#define tref_isnil(tr) (tref_istype((tr), IRT_NIL)) -#define tref_isfalse(tr) (tref_istype((tr), IRT_FALSE)) -#define tref_istrue(tr) (tref_istype((tr), IRT_TRUE)) -#define tref_islightud(tr) (tref_istype((tr), IRT_LIGHTUD)) -#define tref_isstr(tr) (tref_istype((tr), IRT_STR)) -#define tref_isfunc(tr) (tref_istype((tr), IRT_FUNC)) -#define tref_iscdata(tr) (tref_istype((tr), IRT_CDATA)) -#define tref_istab(tr) (tref_istype((tr), IRT_TAB)) -#define tref_isudata(tr) (tref_istype((tr), IRT_UDATA)) -#define tref_isnum(tr) (tref_istype((tr), IRT_NUM)) -#define tref_isint(tr) (tref_istype((tr), IRT_INT)) - -#define tref_isbool(tr) (tref_typerange((tr), IRT_FALSE, IRT_TRUE)) -#define tref_ispri(tr) (tref_typerange((tr), IRT_NIL, IRT_TRUE)) -#define tref_istruecond(tr) (!tref_typerange((tr), IRT_NIL, IRT_FALSE)) -#define tref_isinteger(tr) (tref_typerange((tr), IRT_I8, IRT_INT)) -#define tref_isnumber(tr) (tref_typerange((tr), IRT_NUM, IRT_INT)) -#define tref_isnumber_str(tr) (tref_isnumber((tr)) || tref_isstr((tr))) -#define tref_isgcv(tr) (tref_typerange((tr), IRT_STR, IRT_UDATA)) - -#define tref_isk(tr) (irref_isk(tref_ref((tr)))) -#define tref_isk2(tr1, tr2) (irref_isk(tref_ref((tr1) | (tr2)))) - -#define TREF_PRI(t) (TREF(REF_NIL-(t), (t))) -#define TREF_NIL (TREF_PRI(IRT_NIL)) -#define TREF_FALSE (TREF_PRI(IRT_FALSE)) -#define TREF_TRUE (TREF_PRI(IRT_TRUE)) - -/* -- IR format ----------------------------------------------------------- */ - -/* IR instruction format (64 bit). -** -** 16 16 8 8 8 8 -** +-------+-------+---+---+---+---+ -** | op1 | op2 | t | o | r | s | -** +-------+-------+---+---+---+---+ -** | op12/i/gco | ot | prev | (alternative fields in union) -** +---------------+-------+-------+ -** 32 16 16 -** -** prev is only valid prior to register allocation and then reused for r + s. -*/ - -typedef union IRIns { - struct { - LJ_ENDIAN_LOHI( - IRRef1 op1; /* IR operand 1. */ - , IRRef1 op2; /* IR operand 2. */ - ) - IROpT ot; /* IR opcode and type (overlaps t and o). */ - IRRef1 prev; /* Previous ins in same chain (overlaps r and s). */ - }; - struct { - IRRef2 op12; /* IR operand 1 and 2 (overlaps op1 and op2). */ - LJ_ENDIAN_LOHI( - IRType1 t; /* IR type. */ - , IROp1 o; /* IR opcode. */ - ) - LJ_ENDIAN_LOHI( - uint8_t r; /* Register allocation (overlaps prev). */ - , uint8_t s; /* Spill slot allocation (overlaps prev). */ - ) - }; - int32_t i; /* 32 bit signed integer literal (overlaps op12). */ - GCRef gcr; /* GCobj constant (overlaps op12). */ - MRef ptr; /* Pointer constant (overlaps op12). */ -} IRIns; - -/* TODO_GC64: major changes required. */ -#define ir_kgc(ir) check_exp((ir)->o == IR_KGC, gcref((ir)->gcr)) -#define ir_kstr(ir) (gco2str(ir_kgc((ir)))) -#define ir_ktab(ir) (gco2tab(ir_kgc((ir)))) -#define ir_kfunc(ir) (gco2func(ir_kgc((ir)))) -#define ir_kcdata(ir) (gco2cd(ir_kgc((ir)))) -#define ir_knum(ir) check_exp((ir)->o == IR_KNUM, mref((ir)->ptr, cTValue)) -#define ir_kint64(ir) check_exp((ir)->o == IR_KINT64, mref((ir)->ptr,cTValue)) -#define ir_k64(ir) \ - check_exp((ir)->o == IR_KNUM || (ir)->o == IR_KINT64, mref((ir)->ptr,cTValue)) -#define ir_kptr(ir) \ - check_exp((ir)->o == IR_KPTR || (ir)->o == IR_KKPTR, mref((ir)->ptr, void)) - -/* A store or any other op with a non-weak guard has a side-effect. */ -static LJ_AINLINE int ir_sideeff(IRIns *ir) -{ - return (((ir->t.irt | ~IRT_GUARD) & lj_ir_mode[ir->o]) >= IRM_S); -} - -LJ_STATIC_ASSERT((int)IRT_GUARD == (int)IRM_W); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_ircall.h b/src/3rd party/luajit-2.0-BAK/src/lj_ircall.h deleted file mode 100644 index 84e41ecfccb..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_ircall.h +++ /dev/null @@ -1,321 +0,0 @@ -/* -** IR CALL* instruction definitions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_IRCALL_H -#define _LJ_IRCALL_H - -#include "lj_obj.h" -#include "lj_ir.h" -#include "lj_jit.h" - -/* C call info for CALL* instructions. */ -typedef struct CCallInfo { - ASMFunction func; /* Function pointer. */ - uint32_t flags; /* Number of arguments and flags. */ -} CCallInfo; - -#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* # of args. */ -#define CCI_NARGS_MAX 32 /* Max. # of args. */ - -#define CCI_OTSHIFT 16 -#define CCI_OPTYPE(ci) ((ci)->flags >> CCI_OTSHIFT) /* Get op/type. */ -#define CCI_OPSHIFT 24 -#define CCI_OP(ci) ((ci)->flags >> CCI_OPSHIFT) /* Get op. */ - -#define CCI_CALL_N (IR_CALLN << CCI_OPSHIFT) -#define CCI_CALL_A (IR_CALLA << CCI_OPSHIFT) -#define CCI_CALL_L (IR_CALLL << CCI_OPSHIFT) -#define CCI_CALL_S (IR_CALLS << CCI_OPSHIFT) -#define CCI_CALL_FN (CCI_CALL_N|CCI_CC_FASTCALL) -#define CCI_CALL_FL (CCI_CALL_L|CCI_CC_FASTCALL) -#define CCI_CALL_FS (CCI_CALL_S|CCI_CC_FASTCALL) - -/* C call info flags. */ -#define CCI_L 0x0100 /* Implicit L arg. */ -#define CCI_CASTU64 0x0200 /* Cast u64 result to number. */ -#define CCI_NOFPRCLOBBER 0x0400 /* Does not clobber any FPRs. */ -#define CCI_VARARG 0x0800 /* Vararg function. */ - -#define CCI_CC_MASK 0x3000 /* Calling convention mask. */ -#define CCI_CC_SHIFT 12 -/* ORDER CC */ -#define CCI_CC_CDECL 0x0000 /* Default cdecl calling convention. */ -#define CCI_CC_THISCALL 0x1000 /* Thiscall calling convention. */ -#define CCI_CC_FASTCALL 0x2000 /* Fastcall calling convention. */ -#define CCI_CC_STDCALL 0x3000 /* Stdcall calling convention. */ - -/* Extra args for SOFTFP, SPLIT 64 bit. */ -#define CCI_XARGS_SHIFT 14 -#define CCI_XARGS(ci) (((ci)->flags >> CCI_XARGS_SHIFT) & 3) -#define CCI_XA (1u << CCI_XARGS_SHIFT) - -#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) -#define CCI_XNARGS(ci) (CCI_NARGS((ci)) + CCI_XARGS((ci))) -#else -#define CCI_XNARGS(ci) CCI_NARGS((ci)) -#endif - -/* Helpers for conditional function definitions. */ -#define IRCALLCOND_ANY(x) x - -#if LJ_TARGET_X86ORX64 -#define IRCALLCOND_FPMATH(x) NULL -#else -#define IRCALLCOND_FPMATH(x) x -#endif - -#if LJ_SOFTFP -#define IRCALLCOND_SOFTFP(x) x -#if LJ_HASFFI -#define IRCALLCOND_SOFTFP_FFI(x) x -#else -#define IRCALLCOND_SOFTFP_FFI(x) NULL -#endif -#else -#define IRCALLCOND_SOFTFP(x) NULL -#define IRCALLCOND_SOFTFP_FFI(x) NULL -#endif - -#define LJ_NEED_FP64 (LJ_TARGET_ARM || LJ_TARGET_PPC || LJ_TARGET_MIPS) - -#if LJ_HASFFI && (LJ_SOFTFP || LJ_NEED_FP64) -#define IRCALLCOND_FP64_FFI(x) x -#else -#define IRCALLCOND_FP64_FFI(x) NULL -#endif - -#if LJ_HASFFI -#define IRCALLCOND_FFI(x) x -#if LJ_32 -#define IRCALLCOND_FFI32(x) x -#else -#define IRCALLCOND_FFI32(x) NULL -#endif -#else -#define IRCALLCOND_FFI(x) NULL -#define IRCALLCOND_FFI32(x) NULL -#endif - -#if LJ_TARGET_X86 -#define CCI_RANDFPR 0 /* Clang on OSX/x86 is overzealous. */ -#else -#define CCI_RANDFPR CCI_NOFPRCLOBBER -#endif - -#if LJ_SOFTFP -#define XA_FP CCI_XA -#define XA2_FP (CCI_XA+CCI_XA) -#else -#define XA_FP 0 -#define XA2_FP 0 -#endif - -#if LJ_32 -#define XA_64 CCI_XA -#define XA2_64 (CCI_XA+CCI_XA) -#else -#define XA_64 0 -#define XA2_64 0 -#endif - -/* Function definitions for CALL* instructions. */ -#define IRCALLDEF(_) \ - _(ANY, lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \ - _(ANY, lj_str_find, 4, N, P32, 0) \ - _(ANY, lj_str_new, 3, S, STR, CCI_L) \ - _(ANY, lj_strscan_num, 2, FN, INT, 0) \ - _(ANY, lj_strfmt_int, 2, FN, STR, CCI_L) \ - _(ANY, lj_strfmt_num, 2, FN, STR, CCI_L) \ - _(ANY, lj_strfmt_char, 2, FN, STR, CCI_L) \ - _(ANY, lj_strfmt_putint, 2, FL, P32, 0) \ - _(ANY, lj_strfmt_putnum, 2, FL, P32, 0) \ - _(ANY, lj_strfmt_putquoted, 2, FL, P32, 0) \ - _(ANY, lj_strfmt_putfxint, 3, L, P32, XA_64) \ - _(ANY, lj_strfmt_putfnum_int, 3, L, P32, XA_FP) \ - _(ANY, lj_strfmt_putfnum_uint, 3, L, P32, XA_FP) \ - _(ANY, lj_strfmt_putfnum, 3, L, P32, XA_FP) \ - _(ANY, lj_strfmt_putfstr, 3, L, P32, 0) \ - _(ANY, lj_strfmt_putfchar, 3, L, P32, 0) \ - _(ANY, lj_buf_putmem, 3, S, P32, 0) \ - _(ANY, lj_buf_putstr, 2, FL, P32, 0) \ - _(ANY, lj_buf_putchar, 2, FL, P32, 0) \ - _(ANY, lj_buf_putstr_reverse, 2, FL, P32, 0) \ - _(ANY, lj_buf_putstr_lower, 2, FL, P32, 0) \ - _(ANY, lj_buf_putstr_upper, 2, FL, P32, 0) \ - _(ANY, lj_buf_putstr_rep, 3, L, P32, 0) \ - _(ANY, lj_buf_puttab, 5, L, P32, 0) \ - _(ANY, lj_buf_tostr, 1, FL, STR, 0) \ - _(ANY, lj_tab_new_ah, 3, A, TAB, CCI_L) \ - _(ANY, lj_tab_new1, 2, FS, TAB, CCI_L) \ - _(ANY, lj_tab_dup, 2, FS, TAB, CCI_L) \ - _(ANY, lj_tab_clear, 1, FS, NIL, 0) \ - _(ANY, lj_tab_newkey, 3, S, P32, CCI_L) \ - _(ANY, lj_tab_len, 1, FL, INT, 0) \ - _(ANY, lj_gc_step_jit, 2, FS, NIL, CCI_L) \ - _(ANY, lj_gc_barrieruv, 2, FS, NIL, 0) \ - _(ANY, lj_mem_newgco, 2, FS, P32, CCI_L) \ - _(ANY, lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_RANDFPR)\ - _(ANY, lj_vm_modi, 2, FN, INT, 0) \ - _(ANY, sinh, 1, N, NUM, XA_FP) \ - _(ANY, cosh, 1, N, NUM, XA_FP) \ - _(ANY, tanh, 1, N, NUM, XA_FP) \ - _(ANY, fputc, 2, S, INT, 0) \ - _(ANY, fwrite, 4, S, INT, 0) \ - _(ANY, fflush, 1, S, INT, 0) \ - /* ORDER FPM */ \ - _(FPMATH, lj_vm_floor, 1, N, NUM, XA_FP) \ - _(FPMATH, lj_vm_ceil, 1, N, NUM, XA_FP) \ - _(FPMATH, lj_vm_trunc, 1, N, NUM, XA_FP) \ - _(FPMATH, sqrt, 1, N, NUM, XA_FP) \ - _(ANY, exp, 1, N, NUM, XA_FP) \ - _(ANY, lj_vm_exp2, 1, N, NUM, XA_FP) \ - _(ANY, log, 1, N, NUM, XA_FP) \ - _(ANY, lj_vm_log2, 1, N, NUM, XA_FP) \ - _(ANY, log10, 1, N, NUM, XA_FP) \ - _(ANY, sin, 1, N, NUM, XA_FP) \ - _(ANY, cos, 1, N, NUM, XA_FP) \ - _(ANY, tan, 1, N, NUM, XA_FP) \ - _(ANY, lj_vm_powi, 2, N, NUM, XA_FP) \ - _(ANY, pow, 2, N, NUM, XA2_FP) \ - _(ANY, atan2, 2, N, NUM, XA2_FP) \ - _(ANY, ldexp, 2, N, NUM, XA_FP) \ - _(SOFTFP, lj_vm_tobit, 2, N, INT, 0) \ - _(SOFTFP, softfp_add, 4, N, NUM, 0) \ - _(SOFTFP, softfp_sub, 4, N, NUM, 0) \ - _(SOFTFP, softfp_mul, 4, N, NUM, 0) \ - _(SOFTFP, softfp_div, 4, N, NUM, 0) \ - _(SOFTFP, softfp_cmp, 4, N, NIL, 0) \ - _(SOFTFP, softfp_i2d, 1, N, NUM, 0) \ - _(SOFTFP, softfp_d2i, 2, N, INT, 0) \ - _(SOFTFP_FFI, softfp_ui2d, 1, N, NUM, 0) \ - _(SOFTFP_FFI, softfp_f2d, 1, N, NUM, 0) \ - _(SOFTFP_FFI, softfp_d2ui, 2, N, INT, 0) \ - _(SOFTFP_FFI, softfp_d2f, 2, N, FLOAT, 0) \ - _(SOFTFP_FFI, softfp_i2f, 1, N, FLOAT, 0) \ - _(SOFTFP_FFI, softfp_ui2f, 1, N, FLOAT, 0) \ - _(SOFTFP_FFI, softfp_f2i, 1, N, INT, 0) \ - _(SOFTFP_FFI, softfp_f2ui, 1, N, INT, 0) \ - _(FP64_FFI, fp64_l2d, 1, N, NUM, XA_64) \ - _(FP64_FFI, fp64_ul2d, 1, N, NUM, XA_64) \ - _(FP64_FFI, fp64_l2f, 1, N, FLOAT, XA_64) \ - _(FP64_FFI, fp64_ul2f, 1, N, FLOAT, XA_64) \ - _(FP64_FFI, fp64_d2l, 1, N, I64, XA_FP) \ - _(FP64_FFI, fp64_d2ul, 1, N, U64, XA_FP) \ - _(FP64_FFI, fp64_f2l, 1, N, I64, 0) \ - _(FP64_FFI, fp64_f2ul, 1, N, U64, 0) \ - _(FFI, lj_carith_divi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_divu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_modi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_modu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_powi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_carith_powu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI, lj_cdata_newv, 4, S, CDATA, CCI_L) \ - _(FFI, lj_cdata_setfin, 4, S, NIL, CCI_L) \ - _(FFI, strlen, 1, L, INTP, 0) \ - _(FFI, memcpy, 3, S, PTR, 0) \ - _(FFI, memset, 3, S, PTR, 0) \ - _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_mul64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_shl64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_shr64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_sar64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_rol64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ - _(FFI32, lj_carith_ror64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \ - \ - /* End of list. */ - -typedef enum { -#define IRCALLENUM(cond, name, nargs, kind, type, flags) IRCALL_##name, -IRCALLDEF(IRCALLENUM) -#undef IRCALLENUM - IRCALL__MAX -} IRCallID; - -LJ_FUNC TRef lj_ir_call(jit_State *J, IRCallID id, ...); - -LJ_DATA const CCallInfo lj_ir_callinfo[IRCALL__MAX+1]; - -/* Soft-float declarations. */ -#if LJ_SOFTFP -#if LJ_TARGET_ARM -#define softfp_add __aeabi_dadd -#define softfp_sub __aeabi_dsub -#define softfp_mul __aeabi_dmul -#define softfp_div __aeabi_ddiv -#define softfp_cmp __aeabi_cdcmple -#define softfp_i2d __aeabi_i2d -#define softfp_d2i __aeabi_d2iz -#define softfp_ui2d __aeabi_ui2d -#define softfp_f2d __aeabi_f2d -#define softfp_d2ui __aeabi_d2uiz -#define softfp_d2f __aeabi_d2f -#define softfp_i2f __aeabi_i2f -#define softfp_ui2f __aeabi_ui2f -#define softfp_f2i __aeabi_f2iz -#define softfp_f2ui __aeabi_f2uiz -#define fp64_l2d __aeabi_l2d -#define fp64_ul2d __aeabi_ul2d -#define fp64_l2f __aeabi_l2f -#define fp64_ul2f __aeabi_ul2f -#if LJ_TARGET_IOS -#define fp64_d2l __fixdfdi -#define fp64_d2ul __fixunsdfdi -#define fp64_f2l __fixsfdi -#define fp64_f2ul __fixunssfdi -#else -#define fp64_d2l __aeabi_d2lz -#define fp64_d2ul __aeabi_d2ulz -#define fp64_f2l __aeabi_f2lz -#define fp64_f2ul __aeabi_f2ulz -#endif -#else -#error "Missing soft-float definitions for target architecture" -#endif -extern double softfp_add(double a, double b); -extern double softfp_sub(double a, double b); -extern double softfp_mul(double a, double b); -extern double softfp_div(double a, double b); -extern void softfp_cmp(double a, double b); -extern double softfp_i2d(int32_t a); -extern int32_t softfp_d2i(double a); -#if LJ_HASFFI -extern double softfp_ui2d(uint32_t a); -extern double softfp_f2d(float a); -extern uint32_t softfp_d2ui(double a); -extern float softfp_d2f(double a); -extern float softfp_i2f(int32_t a); -extern float softfp_ui2f(uint32_t a); -extern int32_t softfp_f2i(float a); -extern uint32_t softfp_f2ui(float a); -#endif -#endif - -#if LJ_HASFFI && LJ_NEED_FP64 && !(LJ_TARGET_ARM && LJ_SOFTFP) -#ifdef __GNUC__ -#define fp64_l2d __floatdidf -#define fp64_ul2d __floatundidf -#define fp64_l2f __floatdisf -#define fp64_ul2f __floatundisf -#define fp64_d2l __fixdfdi -#define fp64_d2ul __fixunsdfdi -#define fp64_f2l __fixsfdi -#define fp64_f2ul __fixunssfdi -#else -#error "Missing fp64 helper definitions for this compiler" -#endif -#endif - -#if LJ_HASFFI && (LJ_SOFTFP || LJ_NEED_FP64) -extern double fp64_l2d(int64_t a); -extern double fp64_ul2d(uint64_t a); -extern float fp64_l2f(int64_t a); -extern float fp64_ul2f(uint64_t a); -extern int64_t fp64_d2l(double a); -extern uint64_t fp64_d2ul(double a); -extern int64_t fp64_f2l(float a); -extern uint64_t fp64_f2ul(float a); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_iropt.h b/src/3rd party/luajit-2.0-BAK/src/lj_iropt.h deleted file mode 100644 index 4e424e70045..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_iropt.h +++ /dev/null @@ -1,161 +0,0 @@ -/* -** Common header for IR emitter and optimizations. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_IROPT_H -#define _LJ_IROPT_H - -#include - -#include "lj_obj.h" -#include "lj_jit.h" - -#if LJ_HASJIT -/* IR emitter. */ -LJ_FUNC void LJ_FASTCALL lj_ir_growtop(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_ir_emit(jit_State *J); - -/* Save current IR in J->fold.ins, but do not emit it (yet). */ -static LJ_AINLINE void lj_ir_set_(jit_State *J, uint16_t ot, IRRef1 a, IRRef1 b) -{ - J->fold.ins.ot = ot; J->fold.ins.op1 = a; J->fold.ins.op2 = b; -} - -#define lj_ir_set(J, ot, a, b) \ - lj_ir_set_(J, (uint16_t)(ot), (IRRef1)(a), (IRRef1)(b)) - -/* Get ref of next IR instruction and optionally grow IR. -** Note: this may invalidate all IRIns*! -*/ -static LJ_AINLINE IRRef lj_ir_nextins(jit_State *J) -{ - IRRef ref = J->cur.nins; - if (LJ_UNLIKELY(ref >= J->irtoplim)) lj_ir_growtop(J); - J->cur.nins = ref + 1; - return ref; -} - -/* Interning of constants. */ -LJ_FUNC TRef LJ_FASTCALL lj_ir_kint(jit_State *J, int32_t k); -LJ_FUNC void lj_ir_k64_freeall(jit_State *J); -LJ_FUNC TRef lj_ir_k64(jit_State *J, IROp op, cTValue *tv); -LJ_FUNC cTValue *lj_ir_k64_find(jit_State *J, uint64_t u64); -LJ_FUNC TRef lj_ir_knum_u64(jit_State *J, uint64_t u64); -LJ_FUNC TRef lj_ir_knumint(jit_State *J, lua_Number n); -LJ_FUNC TRef lj_ir_kint64(jit_State *J, uint64_t u64); -LJ_FUNC TRef lj_ir_kgc(jit_State *J, GCobj *o, IRType t); -LJ_FUNC TRef lj_ir_kptr_(jit_State *J, IROp op, void *ptr); -LJ_FUNC TRef lj_ir_knull(jit_State *J, IRType t); -LJ_FUNC TRef lj_ir_kslot(jit_State *J, TRef key, IRRef slot); - -#if LJ_64 -#define lj_ir_kintp(J, k) lj_ir_kint64(J, (uint64_t)(k)) -#else -#define lj_ir_kintp(J, k) lj_ir_kint(J, (int32_t)(k)) -#endif - -static LJ_AINLINE TRef lj_ir_knum(jit_State *J, lua_Number n) -{ - TValue tv; - tv.n = n; - return lj_ir_knum_u64(J, tv.u64); -} - -#define lj_ir_kstr(J, str) lj_ir_kgc(J, obj2gco((str)), IRT_STR) -#define lj_ir_ktab(J, tab) lj_ir_kgc(J, obj2gco((tab)), IRT_TAB) -#define lj_ir_kfunc(J, func) lj_ir_kgc(J, obj2gco((func)), IRT_FUNC) -#define lj_ir_kptr(J, ptr) lj_ir_kptr_(J, IR_KPTR, (ptr)) -#define lj_ir_kkptr(J, ptr) lj_ir_kptr_(J, IR_KKPTR, (ptr)) - -/* Special FP constants. */ -#define lj_ir_knum_zero(J) lj_ir_knum_u64(J, U64x(00000000,00000000)) -#define lj_ir_knum_one(J) lj_ir_knum_u64(J, U64x(3ff00000,00000000)) -#define lj_ir_knum_tobit(J) lj_ir_knum_u64(J, U64x(43380000,00000000)) - -/* Special 128 bit SIMD constants. */ -#define lj_ir_knum_abs(J) lj_ir_k64(J, IR_KNUM, LJ_KSIMD(J, LJ_KSIMD_ABS)) -#define lj_ir_knum_neg(J) lj_ir_k64(J, IR_KNUM, LJ_KSIMD(J, LJ_KSIMD_NEG)) - -/* Access to constants. */ -LJ_FUNC void lj_ir_kvalue(lua_State *L, TValue *tv, const IRIns *ir); - -/* Convert IR operand types. */ -LJ_FUNC TRef LJ_FASTCALL lj_ir_tonumber(jit_State *J, TRef tr); -LJ_FUNC TRef LJ_FASTCALL lj_ir_tonum(jit_State *J, TRef tr); -LJ_FUNC TRef LJ_FASTCALL lj_ir_tostr(jit_State *J, TRef tr); - -/* Miscellaneous IR ops. */ -LJ_FUNC int lj_ir_numcmp(lua_Number a, lua_Number b, IROp op); -LJ_FUNC int lj_ir_strcmp(GCstr *a, GCstr *b, IROp op); -LJ_FUNC void lj_ir_rollback(jit_State *J, IRRef ref); - -/* Emit IR instructions with on-the-fly optimizations. */ -LJ_FUNC TRef LJ_FASTCALL lj_opt_fold(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_cse(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_cselim(jit_State *J, IRRef lim); - -/* Special return values for the fold functions. */ -enum { - NEXTFOLD, /* Couldn't fold, pass on. */ - RETRYFOLD, /* Retry fold with modified fins. */ - KINTFOLD, /* Return ref for int constant in fins->i. */ - FAILFOLD, /* Guard would always fail. */ - DROPFOLD, /* Guard eliminated. */ - MAX_FOLD -}; - -#define INTFOLD(k) ((J->fold.ins.i = (k)), (TRef)KINTFOLD) -#define INT64FOLD(k) (lj_ir_kint64(J, (k))) -#define CONDFOLD(cond) ((TRef)FAILFOLD + (TRef)(cond)) -#define LEFTFOLD (J->fold.ins.op1) -#define RIGHTFOLD (J->fold.ins.op2) -#define CSEFOLD (lj_opt_cse(J)) -#define EMITFOLD (lj_ir_emit(J)) - -/* Load/store forwarding. */ -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_aload(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_hload(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_uload(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_fload(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_xload(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_tab_len(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_fwd_hrefk(jit_State *J); -LJ_FUNC int LJ_FASTCALL lj_opt_fwd_href_nokey(jit_State *J); -LJ_FUNC int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim); -LJ_FUNC int lj_opt_fwd_wasnonnil(jit_State *J, IROpT loadop, IRRef xref); - -/* Dead-store elimination. */ -LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_ahstore(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_ustore(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_fstore(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_dse_xstore(jit_State *J); - -/* Narrowing. */ -LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_convert(jit_State *J); -LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_index(jit_State *J, TRef key); -LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_toint(jit_State *J, TRef tr); -LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_tobit(jit_State *J, TRef tr); -#if LJ_HASFFI -LJ_FUNC TRef LJ_FASTCALL lj_opt_narrow_cindex(jit_State *J, TRef key); -#endif -LJ_FUNC TRef lj_opt_narrow_arith(jit_State *J, TRef rb, TRef rc, - TValue *vb, TValue *vc, IROp op); -LJ_FUNC TRef lj_opt_narrow_unm(jit_State *J, TRef rc, TValue *vc); -LJ_FUNC TRef lj_opt_narrow_mod(jit_State *J, TRef rb, TRef rc, TValue *vc); -LJ_FUNC TRef lj_opt_narrow_pow(jit_State *J, TRef rb, TRef rc, TValue *vc); -LJ_FUNC IRType lj_opt_narrow_forl(jit_State *J, cTValue *forbase); - -/* Optimization passes. */ -LJ_FUNC void lj_opt_dce(jit_State *J); -LJ_FUNC int lj_opt_loop(jit_State *J); -#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) -LJ_FUNC void lj_opt_split(jit_State *J); -#else -#define lj_opt_split(J) UNUSED(J) -#endif -LJ_FUNC void lj_opt_sink(jit_State *J); - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_jit.h b/src/3rd party/luajit-2.0-BAK/src/lj_jit.h deleted file mode 100644 index 4b51baeb614..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_jit.h +++ /dev/null @@ -1,425 +0,0 @@ -/* -** Common definitions for the JIT compiler. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_JIT_H -#define _LJ_JIT_H - -#include "lj_obj.h" -#include "lj_ir.h" - -/* JIT engine flags. */ -#define JIT_F_ON 0x00000001 - -/* CPU-specific JIT engine flags. */ -#if LJ_TARGET_X86ORX64 -#define JIT_F_SSE2 0x00000010 -#define JIT_F_SSE3 0x00000020 -#define JIT_F_SSE4_1 0x00000040 -#define JIT_F_PREFER_IMUL 0x00000080 -#define JIT_F_LEA_AGU 0x00000100 - -/* Names for the CPU-specific flags. Must match the order above. */ -#define JIT_F_CPU_FIRST JIT_F_SSE2 -#define JIT_F_CPUSTRING "\4SSE2\4SSE3\6SSE4.1\3AMD\4ATOM" -#elif LJ_TARGET_ARM -#define JIT_F_ARMV6_ 0x00000010 -#define JIT_F_ARMV6T2_ 0x00000020 -#define JIT_F_ARMV7 0x00000040 -#define JIT_F_VFPV2 0x00000080 -#define JIT_F_VFPV3 0x00000100 - -#define JIT_F_ARMV6 (JIT_F_ARMV6_|JIT_F_ARMV6T2_|JIT_F_ARMV7) -#define JIT_F_ARMV6T2 (JIT_F_ARMV6T2_|JIT_F_ARMV7) -#define JIT_F_VFP (JIT_F_VFPV2|JIT_F_VFPV3) - -/* Names for the CPU-specific flags. Must match the order above. */ -#define JIT_F_CPU_FIRST JIT_F_ARMV6_ -#define JIT_F_CPUSTRING "\5ARMv6\7ARMv6T2\5ARMv7\5VFPv2\5VFPv3" -#elif LJ_TARGET_PPC -#define JIT_F_SQRT 0x00000010 -#define JIT_F_ROUND 0x00000020 - -/* Names for the CPU-specific flags. Must match the order above. */ -#define JIT_F_CPU_FIRST JIT_F_SQRT -#define JIT_F_CPUSTRING "\4SQRT\5ROUND" -#elif LJ_TARGET_MIPS -#define JIT_F_MIPS32R2 0x00000010 - -/* Names for the CPU-specific flags. Must match the order above. */ -#define JIT_F_CPU_FIRST JIT_F_MIPS32R2 -#define JIT_F_CPUSTRING "\010MIPS32R2" -#else -#define JIT_F_CPU_FIRST 0 -#define JIT_F_CPUSTRING "" -#endif - -/* Optimization flags. */ -#define JIT_F_OPT_MASK 0x0fff0000 - -#define JIT_F_OPT_FOLD 0x00010000 -#define JIT_F_OPT_CSE 0x00020000 -#define JIT_F_OPT_DCE 0x00040000 -#define JIT_F_OPT_FWD 0x00080000 -#define JIT_F_OPT_DSE 0x00100000 -#define JIT_F_OPT_NARROW 0x00200000 -#define JIT_F_OPT_LOOP 0x00400000 -#define JIT_F_OPT_ABC 0x00800000 -#define JIT_F_OPT_SINK 0x01000000 -#define JIT_F_OPT_FUSE 0x02000000 - -/* Optimizations names for -O. Must match the order above. */ -#define JIT_F_OPT_FIRST JIT_F_OPT_FOLD -#define JIT_F_OPTSTRING \ - "\4fold\3cse\3dce\3fwd\3dse\6narrow\4loop\3abc\4sink\4fuse" - -/* Optimization levels set a fixed combination of flags. */ -#define JIT_F_OPT_0 0 -#define JIT_F_OPT_1 (JIT_F_OPT_FOLD|JIT_F_OPT_CSE|JIT_F_OPT_DCE) -#define JIT_F_OPT_2 (JIT_F_OPT_1|JIT_F_OPT_NARROW|JIT_F_OPT_LOOP) -#define JIT_F_OPT_3 (JIT_F_OPT_2|\ - JIT_F_OPT_FWD|JIT_F_OPT_DSE|JIT_F_OPT_ABC|JIT_F_OPT_SINK|JIT_F_OPT_FUSE) -#define JIT_F_OPT_DEFAULT JIT_F_OPT_3 - -#if LJ_TARGET_WINDOWS || LJ_64 -/* See: http://blogs.msdn.com/oldnewthing/archive/2003/10/08/55239.aspx */ -#define JIT_P_sizemcode_DEFAULT 64 -#else -/* Could go as low as 4K, but the mmap() overhead would be rather high. */ -#define JIT_P_sizemcode_DEFAULT 32 -#endif - -/* Optimization parameters and their defaults. Length is a char in octal! */ -#define JIT_PARAMDEF(_) \ - _(\010, maxtrace, 1000) /* Max. # of traces in cache. */ \ - _(\011, maxrecord, 4000) /* Max. # of recorded IR instructions. */ \ - _(\012, maxirconst, 500) /* Max. # of IR constants of a trace. */ \ - _(\007, maxside, 100) /* Max. # of side traces of a root trace. */ \ - _(\007, maxsnap, 500) /* Max. # of snapshots for a trace. */ \ - _(\011, minstitch, 0) /* Min. # of IR ins for a stitched trace. */ \ - \ - _(\007, hotloop, 56) /* # of iter. to detect a hot loop/call. */ \ - _(\007, hotexit, 10) /* # of taken exits to start a side trace. */ \ - _(\007, tryside, 4) /* # of attempts to compile a side trace. */ \ - \ - _(\012, instunroll, 4) /* Max. unroll for instable loops. */ \ - _(\012, loopunroll, 15) /* Max. unroll for loop ops in side traces. */ \ - _(\012, callunroll, 3) /* Max. unroll for recursive calls. */ \ - _(\011, recunroll, 2) /* Min. unroll for true recursion. */ \ - \ - /* Size of each machine code area (in KBytes). */ \ - _(\011, sizemcode, JIT_P_sizemcode_DEFAULT) \ - /* Max. total size of all machine code areas (in KBytes). */ \ - _(\010, maxmcode, 512) \ - /* End of list. */ - -enum { -#define JIT_PARAMENUM(len, name, value) JIT_P_##name, -JIT_PARAMDEF(JIT_PARAMENUM) -#undef JIT_PARAMENUM - JIT_P__MAX -}; - -#define JIT_PARAMSTR(len, name, value) #len #name -#define JIT_P_STRING JIT_PARAMDEF(JIT_PARAMSTR) - -/* Trace compiler state. */ -typedef enum { - LJ_TRACE_IDLE, /* Trace compiler idle. */ - LJ_TRACE_ACTIVE = 0x10, - LJ_TRACE_RECORD, /* Bytecode recording active. */ - LJ_TRACE_START, /* New trace started. */ - LJ_TRACE_END, /* End of trace. */ - LJ_TRACE_ASM, /* Assemble trace. */ - LJ_TRACE_ERR /* Trace aborted with error. */ -} TraceState; - -/* Post-processing action. */ -typedef enum { - LJ_POST_NONE, /* No action. */ - LJ_POST_FIXCOMP, /* Fixup comparison and emit pending guard. */ - LJ_POST_FIXGUARD, /* Fixup and emit pending guard. */ - LJ_POST_FIXGUARDSNAP, /* Fixup and emit pending guard and snapshot. */ - LJ_POST_FIXBOOL, /* Fixup boolean result. */ - LJ_POST_FIXCONST, /* Fixup constant results. */ - LJ_POST_FFRETRY /* Suppress recording of retried fast functions. */ -} PostProc; - -/* Machine code type. */ -#if LJ_TARGET_X86ORX64 -typedef uint8_t MCode; -#else -typedef uint32_t MCode; -#endif - -/* Stack snapshot header. */ -typedef struct SnapShot { - uint16_t mapofs; /* Offset into snapshot map. */ - IRRef1 ref; /* First IR ref for this snapshot. */ - uint8_t nslots; /* Number of valid slots. */ - uint8_t topslot; /* Maximum frame extent. */ - uint8_t nent; /* Number of compressed entries. */ - uint8_t count; /* Count of taken exits for this snapshot. */ -} SnapShot; - -#define SNAPCOUNT_DONE 255 /* Already compiled and linked a side trace. */ - -/* Compressed snapshot entry. */ -typedef uint32_t SnapEntry; - -#define SNAP_FRAME 0x010000 /* Frame slot. */ -#define SNAP_CONT 0x020000 /* Continuation slot. */ -#define SNAP_NORESTORE 0x040000 /* No need to restore slot. */ -#define SNAP_SOFTFPNUM 0x080000 /* Soft-float number. */ -LJ_STATIC_ASSERT(SNAP_FRAME == TREF_FRAME); -LJ_STATIC_ASSERT(SNAP_CONT == TREF_CONT); - -#define SNAP(slot, flags, ref) (((SnapEntry)(slot) << 24) + (flags) + (ref)) -#define SNAP_TR(slot, tr) \ - (((SnapEntry)(slot) << 24) + ((tr) & (TREF_CONT|TREF_FRAME|TREF_REFMASK))) -#define SNAP_MKPC(pc) ((SnapEntry)u32ptr(pc)) -#define SNAP_MKFTSZ(ftsz) ((SnapEntry)(ftsz)) -#define snap_ref(sn) ((sn) & 0xffff) -#define snap_slot(sn) ((BCReg)((sn) >> 24)) -#define snap_isframe(sn) ((sn) & SNAP_FRAME) -#define snap_pc(sn) ((const BCIns *)(uintptr_t)(sn)) -#define snap_setref(sn, ref) (((sn) & (0xffff0000&~SNAP_NORESTORE)) | (ref)) - -/* Snapshot and exit numbers. */ -typedef uint32_t SnapNo; -typedef uint32_t ExitNo; - -/* Trace number. */ -typedef uint32_t TraceNo; /* Used to pass around trace numbers. */ -typedef uint16_t TraceNo1; /* Stored trace number. */ - -/* Type of link. ORDER LJ_TRLINK */ -typedef enum { - LJ_TRLINK_NONE, /* Incomplete trace. No link, yet. */ - LJ_TRLINK_ROOT, /* Link to other root trace. */ - LJ_TRLINK_LOOP, /* Loop to same trace. */ - LJ_TRLINK_TAILREC, /* Tail-recursion. */ - LJ_TRLINK_UPREC, /* Up-recursion. */ - LJ_TRLINK_DOWNREC, /* Down-recursion. */ - LJ_TRLINK_INTERP, /* Fallback to interpreter. */ - LJ_TRLINK_RETURN, /* Return to interpreter. */ - LJ_TRLINK_STITCH /* Trace stitching. */ -} TraceLink; - -/* Trace object. */ -typedef struct GCtrace { - GCHeader; - uint8_t topslot; /* Top stack slot already checked to be allocated. */ - uint8_t linktype; /* Type of link. */ - IRRef nins; /* Next IR instruction. Biased with REF_BIAS. */ -#if LJ_GC64 - uint32_t unused_gc64; -#endif - GCRef gclist; - IRIns *ir; /* IR instructions/constants. Biased with REF_BIAS. */ - IRRef nk; /* Lowest IR constant. Biased with REF_BIAS. */ - uint16_t nsnap; /* Number of snapshots. */ - uint16_t nsnapmap; /* Number of snapshot map elements. */ - SnapShot *snap; /* Snapshot array. */ - SnapEntry *snapmap; /* Snapshot map. */ - GCRef startpt; /* Starting prototype. */ - MRef startpc; /* Bytecode PC of starting instruction. */ - BCIns startins; /* Original bytecode of starting instruction. */ - MSize szmcode; /* Size of machine code. */ - MCode *mcode; /* Start of machine code. */ - MSize mcloop; /* Offset of loop start in machine code. */ - uint16_t nchild; /* Number of child traces (root trace only). */ - uint16_t spadjust; /* Stack pointer adjustment (offset in bytes). */ - TraceNo1 traceno; /* Trace number. */ - TraceNo1 link; /* Linked trace (or self for loops). */ - TraceNo1 root; /* Root trace of side trace (or 0 for root traces). */ - TraceNo1 nextroot; /* Next root trace for same prototype. */ - TraceNo1 nextside; /* Next side trace of same root trace. */ - uint8_t sinktags; /* Trace has SINK tags. */ - uint8_t unused1; -#ifdef LUAJIT_USE_GDBJIT - void *gdbjit_entry; /* GDB JIT entry. */ -#endif -} GCtrace; - -#define gco2trace(o) check_exp((o)->gch.gct == ~LJ_TTRACE, (GCtrace *)(o)) -#define traceref(J, n) \ - check_exp((n)>0 && (MSize)(n)sizetrace, (GCtrace *)gcref(J->trace[(n)])) - -LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCtrace, gclist)); - -static LJ_AINLINE MSize snap_nextofs(GCtrace *T, SnapShot *snap) -{ - if (snap+1 == &T->snap[T->nsnap]) - return T->nsnapmap; - else - return (snap+1)->mapofs; -} - -/* Round-robin penalty cache for bytecodes leading to aborted traces. */ -typedef struct HotPenalty { - MRef pc; /* Starting bytecode PC. */ - uint16_t val; /* Penalty value, i.e. hotcount start. */ - uint16_t reason; /* Abort reason (really TraceErr). */ -} HotPenalty; - -#define PENALTY_SLOTS 64 /* Penalty cache slot. Must be a power of 2. */ -#define PENALTY_MIN (36*2) /* Minimum penalty value. */ -#define PENALTY_MAX 60000 /* Maximum penalty value. */ -#define PENALTY_RNDBITS 4 /* # of random bits to add to penalty value. */ - -/* Round-robin backpropagation cache for narrowing conversions. */ -typedef struct BPropEntry { - IRRef1 key; /* Key: original reference. */ - IRRef1 val; /* Value: reference after conversion. */ - IRRef mode; /* Mode for this entry (currently IRCONV_*). */ -} BPropEntry; - -/* Number of slots for the backpropagation cache. Must be a power of 2. */ -#define BPROP_SLOTS 16 - -/* Scalar evolution analysis cache. */ -typedef struct ScEvEntry { - MRef pc; /* Bytecode PC of FORI. */ - IRRef1 idx; /* Index reference. */ - IRRef1 start; /* Constant start reference. */ - IRRef1 stop; /* Constant stop reference. */ - IRRef1 step; /* Constant step reference. */ - IRType1 t; /* Scalar type. */ - uint8_t dir; /* Direction. 1: +, 0: -. */ -} ScEvEntry; - -/* 128 bit SIMD constants. */ -enum { - LJ_KSIMD_ABS, - LJ_KSIMD_NEG, - LJ_KSIMD__MAX -}; - -/* Get 16 byte aligned pointer to SIMD constant. */ -#define LJ_KSIMD(J, n) \ - ((TValue *)(((intptr_t)&J->ksimd[2*(n)] + 15) & ~(intptr_t)15)) - -/* Set/reset flag to activate the SPLIT pass for the current trace. */ -#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) -#define lj_needsplit(J) (J->needsplit = 1) -#define lj_resetsplit(J) (J->needsplit = 0) -#else -#define lj_needsplit(J) UNUSED(J) -#define lj_resetsplit(J) UNUSED(J) -#endif - -/* Fold state is used to fold instructions on-the-fly. */ -typedef struct FoldState { - IRIns ins; /* Currently emitted instruction. */ - IRIns left; /* Instruction referenced by left operand. */ - IRIns right; /* Instruction referenced by right operand. */ -} FoldState; - -/* JIT compiler state. */ -typedef struct jit_State { - GCtrace cur; /* Current trace. */ - - lua_State *L; /* Current Lua state. */ - const BCIns *pc; /* Current PC. */ - GCfunc *fn; /* Current function. */ - GCproto *pt; /* Current prototype. */ - TRef *base; /* Current frame base, points into J->slots. */ - - uint32_t flags; /* JIT engine flags. */ - BCReg maxslot; /* Relative to baseslot. */ - BCReg baseslot; /* Current frame base, offset into J->slots. */ - - uint8_t mergesnap; /* Allowed to merge with next snapshot. */ - uint8_t needsnap; /* Need snapshot before recording next bytecode. */ - IRType1 guardemit; /* Accumulated IRT_GUARD for emitted instructions. */ - uint8_t bcskip; /* Number of bytecode instructions to skip. */ - - FoldState fold; /* Fold state. */ - - const BCIns *bc_min; /* Start of allowed bytecode range for root trace. */ - MSize bc_extent; /* Extent of the range. */ - - TraceState state; /* Trace compiler state. */ - - int32_t instunroll; /* Unroll counter for instable loops. */ - int32_t loopunroll; /* Unroll counter for loop ops in side traces. */ - int32_t tailcalled; /* Number of successive tailcalls. */ - int32_t framedepth; /* Current frame depth. */ - int32_t retdepth; /* Return frame depth (count of RETF). */ - - MRef k64; /* Pointer to chained array of 64 bit constants. */ - TValue ksimd[LJ_KSIMD__MAX*2+1]; /* 16 byte aligned SIMD constants. */ - - IRIns *irbuf; /* Temp. IR instruction buffer. Biased with REF_BIAS. */ - IRRef irtoplim; /* Upper limit of instuction buffer (biased). */ - IRRef irbotlim; /* Lower limit of instuction buffer (biased). */ - IRRef loopref; /* Last loop reference or ref of final LOOP (or 0). */ - - MSize sizesnap; /* Size of temp. snapshot buffer. */ - SnapShot *snapbuf; /* Temp. snapshot buffer. */ - SnapEntry *snapmapbuf; /* Temp. snapshot map buffer. */ - MSize sizesnapmap; /* Size of temp. snapshot map buffer. */ - - PostProc postproc; /* Required post-processing after execution. */ -#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI) - int needsplit; /* Need SPLIT pass. */ -#endif - - GCRef *trace; /* Array of traces. */ - TraceNo freetrace; /* Start of scan for next free trace. */ - MSize sizetrace; /* Size of trace array. */ - - IRRef1 chain[IR__MAX]; /* IR instruction skip-list chain anchors. */ - TRef slot[LJ_MAX_JSLOTS+LJ_STACK_EXTRA]; /* Stack slot map. */ - - int32_t param[JIT_P__MAX]; /* JIT engine parameters. */ - - MCode *exitstubgroup[LJ_MAX_EXITSTUBGR]; /* Exit stub group addresses. */ - - HotPenalty penalty[PENALTY_SLOTS]; /* Penalty slots. */ - uint32_t penaltyslot; /* Round-robin index into penalty slots. */ - uint32_t prngstate; /* PRNG state. */ - - BPropEntry bpropcache[BPROP_SLOTS]; /* Backpropagation cache slots. */ - uint32_t bpropslot; /* Round-robin index into bpropcache slots. */ - - ScEvEntry scev; /* Scalar evolution analysis cache slots. */ - - const BCIns *startpc; /* Bytecode PC of starting instruction. */ - TraceNo parent; /* Parent of current side trace (0 for root traces). */ - ExitNo exitno; /* Exit number in parent of current side trace. */ - - BCIns *patchpc; /* PC for pending re-patch. */ - BCIns patchins; /* Instruction for pending re-patch. */ - - int mcprot; /* Protection of current mcode area. */ - MCode *mcarea; /* Base of current mcode area. */ - MCode *mctop; /* Top of current mcode area. */ - MCode *mcbot; /* Bottom of current mcode area. */ - size_t szmcarea; /* Size of current mcode area. */ - size_t szallmcarea; /* Total size of all allocated mcode areas. */ - - TValue errinfo; /* Additional info element for trace errors. */ - -#if LJ_HASPROFILE - GCproto *prev_pt; /* Previous prototype. */ - BCLine prev_line; /* Previous line. */ - int prof_mode; /* Profiling mode: 0, 'f', 'l'. */ -#endif -} -#if LJ_TARGET_ARM -LJ_ALIGN(16) /* For DISPATCH-relative addresses in assembler part. */ -#endif -jit_State; - -/* Trivial PRNG e.g. used for penalty randomization. */ -static LJ_AINLINE uint32_t LJ_PRNG_BITS(jit_State *J, int bits) -{ - /* Yes, this LCG is very weak, but that doesn't matter for our use case. */ - J->prngstate = J->prngstate * 1103515245 + 12345; - return J->prngstate >> (32-bits); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_lex.c b/src/3rd party/luajit-2.0-BAK/src/lj_lex.c deleted file mode 100644 index ad3f1306ade..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_lex.c +++ /dev/null @@ -1,481 +0,0 @@ -/* -** Lexical analyzer. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_lex_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#if LJ_HASFFI -#include "lj_tab.h" -#include "lj_ctype.h" -#include "lj_cdata.h" -#include "lualib.h" -#endif -#include "lj_state.h" -#include "lj_lex.h" -#include "lj_parse.h" -#include "lj_char.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" - -/* Lua lexer token names. */ -static const char *const tokennames[] = { -#define TKSTR1(name) #name, -#define TKSTR2(name, sym) #sym, -TKDEF(TKSTR1, TKSTR2) -#undef TKSTR1 -#undef TKSTR2 - NULL -}; - -/* -- Buffer handling ----------------------------------------------------- */ - -#define LEX_EOF (-1) -#define lex_iseol(ls) (ls->c == '\n' || ls->c == '\r') - -/* Get more input from reader. */ -static LJ_NOINLINE LexChar lex_more(LexState *ls) -{ - size_t sz; - const char *p = ls->rfunc(ls->L, ls->rdata, &sz); - if (p == NULL || sz == 0) return LEX_EOF; - ls->pe = p + sz; - ls->p = p + 1; - return (LexChar)(uint8_t)p[0]; -} - -/* Get next character. */ -static LJ_AINLINE LexChar lex_next(LexState *ls) -{ - return (ls->c = ls->p < ls->pe ? (LexChar)(uint8_t)*ls->p++ : lex_more(ls)); -} - -/* Save character. */ -static LJ_AINLINE void lex_save(LexState *ls, LexChar c) -{ - lj_buf_putb(&ls->sb, c); -} - -/* Save previous character and get next character. */ -static LJ_AINLINE LexChar lex_savenext(LexState *ls) -{ - lex_save(ls, ls->c); - return lex_next(ls); -} - -/* Skip line break. Handles "\n", "\r", "\r\n" or "\n\r". */ -static void lex_newline(LexState *ls) -{ - LexChar old = ls->c; - lua_assert(lex_iseol(ls)); - lex_next(ls); /* Skip "\n" or "\r". */ - if (lex_iseol(ls) && ls->c != old) lex_next(ls); /* Skip "\n\r" or "\r\n". */ - if (++ls->linenumber >= LJ_MAX_LINE) - lj_lex_error(ls, ls->tok, LJ_ERR_XLINES); -} - -/* -- Scanner for terminals ----------------------------------------------- */ - -/* Parse a number literal. */ -static void lex_number(LexState *ls, TValue *tv) -{ - StrScanFmt fmt; - LexChar c, xp = 'e'; - lua_assert(lj_char_isdigit(ls->c)); - if ((c = ls->c) == '0' && (lex_savenext(ls) | 0x20) == 'x') - xp = 'p'; - while (lj_char_isident(ls->c) || ls->c == '.' || - ((ls->c == '-' || ls->c == '+') && (c | 0x20) == xp)) { - c = ls->c; - lex_savenext(ls); - } - lex_save(ls, '\0'); - fmt = lj_strscan_scan((const uint8_t *)sbufB(&ls->sb), tv, - (LJ_DUALNUM ? STRSCAN_OPT_TOINT : STRSCAN_OPT_TONUM) | - (LJ_HASFFI ? (STRSCAN_OPT_LL|STRSCAN_OPT_IMAG) : 0)); - if (LJ_DUALNUM && fmt == STRSCAN_INT) { - setitype(tv, LJ_TISNUM); - } else if (fmt == STRSCAN_NUM) { - /* Already in correct format. */ -#if LJ_HASFFI - } else if (fmt != STRSCAN_ERROR) { - lua_State *L = ls->L; - GCcdata *cd; - lua_assert(fmt == STRSCAN_I64 || fmt == STRSCAN_U64 || fmt == STRSCAN_IMAG); - if (!ctype_ctsG(G(L))) { - ptrdiff_t oldtop = savestack(L, L->top); - luaopen_ffi(L); /* Load FFI library on-demand. */ - L->top = restorestack(L, oldtop); - } - if (fmt == STRSCAN_IMAG) { - cd = lj_cdata_new_(L, CTID_COMPLEX_DOUBLE, 2*sizeof(double)); - ((double *)cdataptr(cd))[0] = 0; - ((double *)cdataptr(cd))[1] = numV(tv); - } else { - cd = lj_cdata_new_(L, fmt==STRSCAN_I64 ? CTID_INT64 : CTID_UINT64, 8); - *(uint64_t *)cdataptr(cd) = tv->u64; - } - lj_parse_keepcdata(ls, tv, cd); -#endif - } else { - lua_assert(fmt == STRSCAN_ERROR); - lj_lex_error(ls, TK_number, LJ_ERR_XNUMBER); - } -} - -/* Skip equal signs for "[=...=[" and "]=...=]" and return their count. */ -static int lex_skipeq(LexState *ls) -{ - int count = 0; - LexChar s = ls->c; - lua_assert(s == '[' || s == ']'); - while (lex_savenext(ls) == '=') - count++; - return (ls->c == s) ? count : (-count) - 1; -} - -/* Parse a long string or long comment (tv set to NULL). */ -static void lex_longstring(LexState *ls, TValue *tv, int sep) -{ - lex_savenext(ls); /* Skip second '['. */ - if (lex_iseol(ls)) /* Skip initial newline. */ - lex_newline(ls); - for (;;) { - switch (ls->c) { - case LEX_EOF: - lj_lex_error(ls, TK_eof, tv ? LJ_ERR_XLSTR : LJ_ERR_XLCOM); - break; - case ']': - if (lex_skipeq(ls) == sep) { - lex_savenext(ls); /* Skip second ']'. */ - goto endloop; - } - break; - case '\n': - case '\r': - lex_save(ls, '\n'); - lex_newline(ls); - if (!tv) lj_buf_reset(&ls->sb); /* Don't waste space for comments. */ - break; - default: - lex_savenext(ls); - break; - } - } endloop: - if (tv) { - GCstr *str = lj_parse_keepstr(ls, sbufB(&ls->sb) + (2 + (MSize)sep), - sbuflen(&ls->sb) - 2*(2 + (MSize)sep)); - setstrV(ls->L, tv, str); - } -} - -/* Parse a string. */ -static void lex_string(LexState *ls, TValue *tv) -{ - LexChar delim = ls->c; /* Delimiter is '\'' or '"'. */ - lex_savenext(ls); - while (ls->c != delim) { - switch (ls->c) { - case LEX_EOF: - lj_lex_error(ls, TK_eof, LJ_ERR_XSTR); - continue; - case '\n': - case '\r': - lj_lex_error(ls, TK_string, LJ_ERR_XSTR); - continue; - case '\\': { - LexChar c = lex_next(ls); /* Skip the '\\'. */ - switch (c) { - case 'a': c = '\a'; break; - case 'b': c = '\b'; break; - case 'f': c = '\f'; break; - case 'n': c = '\n'; break; - case 'r': c = '\r'; break; - case 't': c = '\t'; break; - case 'v': c = '\v'; break; - case 'x': /* Hexadecimal escape '\xXX'. */ - c = (lex_next(ls) & 15u) << 4; - if (!lj_char_isdigit(ls->c)) { - if (!lj_char_isxdigit(ls->c)) goto err_xesc; - c += 9 << 4; - } - c += (lex_next(ls) & 15u); - if (!lj_char_isdigit(ls->c)) { - if (!lj_char_isxdigit(ls->c)) goto err_xesc; - c += 9; - } - break; - case 'z': /* Skip whitespace. */ - lex_next(ls); - while (lj_char_isspace(ls->c)) - if (lex_iseol(ls)) lex_newline(ls); else lex_next(ls); - continue; - case '\n': case '\r': lex_save(ls, '\n'); lex_newline(ls); continue; - case '\\': case '\"': case '\'': break; - case LEX_EOF: continue; - default: - if (!lj_char_isdigit(c)) - goto err_xesc; - c -= '0'; /* Decimal escape '\ddd'. */ - if (lj_char_isdigit(lex_next(ls))) { - c = c*10 + (ls->c - '0'); - if (lj_char_isdigit(lex_next(ls))) { - c = c*10 + (ls->c - '0'); - if (c > 255) { - err_xesc: - lj_lex_error(ls, TK_string, LJ_ERR_XESC); - } - lex_next(ls); - } - } - lex_save(ls, c); - continue; - } - lex_save(ls, c); - lex_next(ls); - continue; - } - default: - lex_savenext(ls); - break; - } - } - lex_savenext(ls); /* Skip trailing delimiter. */ - setstrV(ls->L, tv, - lj_parse_keepstr(ls, sbufB(&ls->sb)+1, sbuflen(&ls->sb)-2)); -} - -/* -- Main lexical scanner ------------------------------------------------ */ - -/* Get next lexical token. */ -static LexToken lex_scan(LexState *ls, TValue *tv) -{ - lj_buf_reset(&ls->sb); - for (;;) { - if (lj_char_isident(ls->c)) { - GCstr *s; - if (lj_char_isdigit(ls->c)) { /* Numeric literal. */ - lex_number(ls, tv); - return TK_number; - } - /* Identifier or reserved word. */ - do { - lex_savenext(ls); - } while (lj_char_isident(ls->c)); - s = lj_parse_keepstr(ls, sbufB(&ls->sb), sbuflen(&ls->sb)); - setstrV(ls->L, tv, s); - if (s->reserved > 0) /* Reserved word? */ - return TK_OFS + s->reserved; - return TK_name; - } - switch (ls->c) { - case '\n': - case '\r': - lex_newline(ls); - continue; - case ' ': - case '\t': - case '\v': - case '\f': - lex_next(ls); - continue; - case '-': - lex_next(ls); - if (ls->c != '-') return '-'; - lex_next(ls); - if (ls->c == '[') { /* Long comment "--[=*[...]=*]". */ - int sep = lex_skipeq(ls); - lj_buf_reset(&ls->sb); /* `lex_skipeq' may dirty the buffer */ - if (sep >= 0) { - lex_longstring(ls, NULL, sep); - lj_buf_reset(&ls->sb); - continue; - } - } - /* Short comment "--.*\n". */ - while (!lex_iseol(ls) && ls->c != LEX_EOF) - lex_next(ls); - continue; - case '[': { - int sep = lex_skipeq(ls); - if (sep >= 0) { - lex_longstring(ls, tv, sep); - return TK_string; - } else if (sep == -1) { - return '['; - } else { - lj_lex_error(ls, TK_string, LJ_ERR_XLDELIM); - continue; - } - } - case '=': - lex_next(ls); - if (ls->c != '=') return '='; else { lex_next(ls); return TK_eq; } - case '<': - lex_next(ls); - if (ls->c != '=') return '<'; else { lex_next(ls); return TK_le; } - case '>': - lex_next(ls); - if (ls->c != '=') return '>'; else { lex_next(ls); return TK_ge; } - case '~': - lex_next(ls); - if (ls->c != '=') return '~'; else { lex_next(ls); return TK_ne; } - case ':': - lex_next(ls); - if (ls->c != ':') return ':'; else { lex_next(ls); return TK_label; } - case '"': - case '\'': - lex_string(ls, tv); - return TK_string; - case '.': - if (lex_savenext(ls) == '.') { - lex_next(ls); - if (ls->c == '.') { - lex_next(ls); - return TK_dots; /* ... */ - } - return TK_concat; /* .. */ - } else if (!lj_char_isdigit(ls->c)) { - return '.'; - } else { - lex_number(ls, tv); - return TK_number; - } - case LEX_EOF: - return TK_eof; - default: { - LexChar c = ls->c; - lex_next(ls); - return c; /* Single-char tokens (+ - / ...). */ - } - } - } -} - -/* -- Lexer API ----------------------------------------------------------- */ - -/* Setup lexer state. */ -int lj_lex_setup(lua_State *L, LexState *ls) -{ - int header = 0; - ls->L = L; - ls->fs = NULL; - ls->pe = ls->p = NULL; - ls->vstack = NULL; - ls->sizevstack = 0; - ls->vtop = 0; - ls->bcstack = NULL; - ls->sizebcstack = 0; - ls->lookahead = TK_eof; /* No look-ahead token. */ - ls->linenumber = 1; - ls->lastline = 1; - lex_next(ls); /* Read-ahead first char. */ - if (ls->c == 0xef && ls->p + 2 <= ls->pe && (uint8_t)ls->p[0] == 0xbb && - (uint8_t)ls->p[1] == 0xbf) { /* Skip UTF-8 BOM (if buffered). */ - ls->p += 2; - lex_next(ls); - header = 1; - } - if (ls->c == '#') { /* Skip POSIX #! header line. */ - do { - lex_next(ls); - if (ls->c == LEX_EOF) return 0; - } while (!lex_iseol(ls)); - lex_newline(ls); - header = 1; - } - if (ls->c == LUA_SIGNATURE[0]) { /* Bytecode dump. */ - if (header) { - /* - ** Loading bytecode with an extra header is disabled for security - ** reasons. This may circumvent the usual check for bytecode vs. - ** Lua code by looking at the first char. Since this is a potential - ** security violation no attempt is made to echo the chunkname either. - */ - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_BCBAD)); - lj_err_throw(L, LUA_ERRSYNTAX); - } - return 1; - } - return 0; -} - -/* Cleanup lexer state. */ -void lj_lex_cleanup(lua_State *L, LexState *ls) -{ - global_State *g = G(L); - lj_mem_freevec(g, ls->bcstack, ls->sizebcstack, BCInsLine); - lj_mem_freevec(g, ls->vstack, ls->sizevstack, VarInfo); - lj_buf_free(g, &ls->sb); -} - -/* Return next lexical token. */ -void lj_lex_next(LexState *ls) -{ - ls->lastline = ls->linenumber; - if (LJ_LIKELY(ls->lookahead == TK_eof)) { /* No lookahead token? */ - ls->tok = lex_scan(ls, &ls->tokval); /* Get next token. */ - } else { /* Otherwise return lookahead token. */ - ls->tok = ls->lookahead; - ls->lookahead = TK_eof; - ls->tokval = ls->lookaheadval; - } -} - -/* Look ahead for the next token. */ -LexToken lj_lex_lookahead(LexState *ls) -{ - lua_assert(ls->lookahead == TK_eof); - ls->lookahead = lex_scan(ls, &ls->lookaheadval); - return ls->lookahead; -} - -/* Convert token to string. */ -const char *lj_lex_token2str(LexState *ls, LexToken tok) -{ - if (tok > TK_OFS) - return tokennames[tok-TK_OFS-1]; - else if (!lj_char_iscntrl(tok)) - return lj_strfmt_pushf(ls->L, "%c", tok); - else - return lj_strfmt_pushf(ls->L, "char(%d)", tok); -} - -/* Lexer error. */ -void lj_lex_error(LexState *ls, LexToken tok, ErrMsg em, ...) -{ - const char *tokstr; - va_list argp; - if (tok == 0) { - tokstr = NULL; - } else if (tok == TK_name || tok == TK_string || tok == TK_number) { - lex_save(ls, '\0'); - tokstr = sbufB(&ls->sb); - } else { - tokstr = lj_lex_token2str(ls, tok); - } - va_start(argp, em); - lj_err_lex(ls->L, ls->chunkname, tokstr, ls->linenumber, em, argp); - va_end(argp); -} - -/* Initialize strings for reserved words. */ -void lj_lex_init(lua_State *L) -{ - uint32_t i; - for (i = 0; i < TK_RESERVED; i++) { - GCstr *s = lj_str_newz(L, tokennames[i]); - fixstring(s); /* Reserved words are never collected. */ - s->reserved = (uint8_t)(i+1); - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_lex.h b/src/3rd party/luajit-2.0-BAK/src/lj_lex.h deleted file mode 100644 index acd2285d789..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_lex.h +++ /dev/null @@ -1,86 +0,0 @@ -/* -** Lexical analyzer. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_LEX_H -#define _LJ_LEX_H - -#include - -#include "lj_obj.h" -#include "lj_err.h" - -/* Lua lexer tokens. */ -#define TKDEF(_, __) \ - _(and) _(break) _(do) _(else) _(elseif) _(end) _(false) \ - _(for) _(function) _(goto) _(if) _(in) _(local) _(nil) _(not) _(or) \ - _(repeat) _(return) _(then) _(true) _(until) _(while) \ - __(concat, ..) __(dots, ...) __(eq, ==) __(ge, >=) __(le, <=) __(ne, ~=) \ - __(label, ::) __(number, ) __(name, ) __(string, ) \ - __(eof, ) - -enum { - TK_OFS = 256, -#define TKENUM1(name) TK_##name, -#define TKENUM2(name, sym) TK_##name, -TKDEF(TKENUM1, TKENUM2) -#undef TKENUM1 -#undef TKENUM2 - TK_RESERVED = TK_while - TK_OFS -}; - -typedef int LexChar; /* Lexical character. Unsigned ext. from char. */ -typedef int LexToken; /* Lexical token. */ - -/* Combined bytecode ins/line. Only used during bytecode generation. */ -typedef struct BCInsLine { - BCIns ins; /* Bytecode instruction. */ - BCLine line; /* Line number for this bytecode. */ -} BCInsLine; - -/* Info for local variables. Only used during bytecode generation. */ -typedef struct VarInfo { - GCRef name; /* Local variable name or goto/label name. */ - BCPos startpc; /* First point where the local variable is active. */ - BCPos endpc; /* First point where the local variable is dead. */ - uint8_t slot; /* Variable slot. */ - uint8_t info; /* Variable/goto/label info. */ -} VarInfo; - -/* Lua lexer state. */ -typedef struct LexState { - struct FuncState *fs; /* Current FuncState. Defined in lj_parse.c. */ - struct lua_State *L; /* Lua state. */ - TValue tokval; /* Current token value. */ - TValue lookaheadval; /* Lookahead token value. */ - const char *p; /* Current position in input buffer. */ - const char *pe; /* End of input buffer. */ - LexChar c; /* Current character. */ - LexToken tok; /* Current token. */ - LexToken lookahead; /* Lookahead token. */ - SBuf sb; /* String buffer for tokens. */ - lua_Reader rfunc; /* Reader callback. */ - void *rdata; /* Reader callback data. */ - BCLine linenumber; /* Input line counter. */ - BCLine lastline; /* Line of last token. */ - GCstr *chunkname; /* Current chunk name (interned string). */ - const char *chunkarg; /* Chunk name argument. */ - const char *mode; /* Allow loading bytecode (b) and/or source text (t). */ - VarInfo *vstack; /* Stack for names and extents of local variables. */ - MSize sizevstack; /* Size of variable stack. */ - MSize vtop; /* Top of variable stack. */ - BCInsLine *bcstack; /* Stack for bytecode instructions/line numbers. */ - MSize sizebcstack; /* Size of bytecode stack. */ - uint32_t level; /* Syntactical nesting level. */ -} LexState; - -LJ_FUNC int lj_lex_setup(lua_State *L, LexState *ls); -LJ_FUNC void lj_lex_cleanup(lua_State *L, LexState *ls); -LJ_FUNC void lj_lex_next(LexState *ls); -LJ_FUNC LexToken lj_lex_lookahead(LexState *ls); -LJ_FUNC const char *lj_lex_token2str(LexState *ls, LexToken tok); -LJ_FUNC_NORET void lj_lex_error(LexState *ls, LexToken tok, ErrMsg em, ...); -LJ_FUNC void lj_lex_init(lua_State *L); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_lib.c b/src/3rd party/luajit-2.0-BAK/src/lj_lib.c deleted file mode 100644 index b16d0564fa7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_lib.c +++ /dev/null @@ -1,303 +0,0 @@ -/* -** Library function support. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_lib_c -#define LUA_CORE - -#include "lauxlib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_func.h" -#include "lj_bc.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" -#include "lj_lex.h" -#include "lj_bcdump.h" -#include "lj_lib.h" - -/* -- Library initialization ---------------------------------------------- */ - -static GCtab *lib_create_table(lua_State *L, const char *libname, int hsize) -{ - if (libname) { - luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16); - lua_getfield(L, -1, libname); - if (!tvistab(L->top-1)) { - L->top--; - if (luaL_findtable(L, LUA_GLOBALSINDEX, libname, hsize) != NULL) - lj_err_callerv(L, LJ_ERR_BADMODN, libname); - settabV(L, L->top, tabV(L->top-1)); - L->top++; - lua_setfield(L, -3, libname); /* _LOADED[libname] = new table */ - } - L->top--; - settabV(L, L->top-1, tabV(L->top)); - } else { - lua_createtable(L, 0, hsize); - } - return tabV(L->top-1); -} - -static const uint8_t *lib_read_lfunc(lua_State *L, const uint8_t *p, GCtab *tab) -{ - int len = *p++; - GCstr *name = lj_str_new(L, (const char *)p, len); - LexState ls; - GCproto *pt; - GCfunc *fn; - memset(&ls, 0, sizeof(ls)); - ls.L = L; - ls.p = (const char *)(p+len); - ls.pe = (const char *)~(uintptr_t)0; - ls.c = -1; - ls.level = (BCDUMP_F_STRIP|(LJ_BE*BCDUMP_F_BE)); - ls.chunkname = name; - pt = lj_bcread_proto(&ls); - pt->firstline = ~(BCLine)0; - fn = lj_func_newL_empty(L, pt, tabref(L->env)); - /* NOBARRIER: See below for common barrier. */ - setfuncV(L, lj_tab_setstr(L, tab, name), fn); - return (const uint8_t *)ls.p; -} - -void lj_lib_register(lua_State *L, const char *libname, - const uint8_t *p, const lua_CFunction *cf) -{ - GCtab *env = tabref(L->env); - GCfunc *ofn = NULL; - int ffid = *p++; - BCIns *bcff = &L2GG(L)->bcff[*p++]; - GCtab *tab = lib_create_table(L, libname, *p++); - ptrdiff_t tpos = L->top - L->base; - - /* Avoid barriers further down. */ - lj_gc_anybarriert(L, tab); - tab->nomm = 0; - - for (;;) { - uint32_t tag = *p++; - MSize len = tag & LIBINIT_LENMASK; - tag &= LIBINIT_TAGMASK; - if (tag != LIBINIT_STRING) { - const char *name; - MSize nuv = (MSize)(L->top - L->base - tpos); - GCfunc *fn = lj_func_newC(L, nuv, env); - if (nuv) { - L->top = L->base + tpos; - memcpy(fn->c.upvalue, L->top, sizeof(TValue)*nuv); - } - fn->c.ffid = (uint8_t)(ffid++); - name = (const char *)p; - p += len; - if (tag == LIBINIT_CF) - setmref(fn->c.pc, &G(L)->bc_cfunc_int); - else - setmref(fn->c.pc, bcff++); - if (tag == LIBINIT_ASM_) - fn->c.f = ofn->c.f; /* Copy handler from previous function. */ - else - fn->c.f = *cf++; /* Get cf or handler from C function table. */ - if (len) { - /* NOBARRIER: See above for common barrier. */ - setfuncV(L, lj_tab_setstr(L, tab, lj_str_new(L, name, len)), fn); - } - ofn = fn; - } else { - switch (tag | len) { - case LIBINIT_LUA: - p = lib_read_lfunc(L, p, tab); - break; - case LIBINIT_SET: - L->top -= 2; - if (tvisstr(L->top+1) && strV(L->top+1)->len == 0) - env = tabV(L->top); - else /* NOBARRIER: See above for common barrier. */ - copyTV(L, lj_tab_set(L, tab, L->top+1), L->top); - break; - case LIBINIT_NUMBER: - memcpy(&L->top->n, p, sizeof(double)); - L->top++; - p += sizeof(double); - break; - case LIBINIT_COPY: - copyTV(L, L->top, L->top - *p++); - L->top++; - break; - case LIBINIT_LASTCL: - setfuncV(L, L->top++, ofn); - break; - case LIBINIT_FFID: - ffid++; - break; - case LIBINIT_END: - return; - default: - setstrV(L, L->top++, lj_str_new(L, (const char *)p, len)); - p += len; - break; - } - } - } -} - -/* Push internal function on the stack. */ -GCfunc *lj_lib_pushcc(lua_State *L, lua_CFunction f, int id, int n) -{ - GCfunc *fn; - lua_pushcclosure(L, f, n); - fn = funcV(L->top-1); - fn->c.ffid = (uint8_t)id; - setmref(fn->c.pc, &G(L)->bc_cfunc_int); - return fn; -} - -void lj_lib_prereg(lua_State *L, const char *name, lua_CFunction f, GCtab *env) -{ - luaL_findtable(L, LUA_REGISTRYINDEX, "_PRELOAD", 4); - lua_pushcfunction(L, f); - /* NOBARRIER: The function is new (marked white). */ - setgcref(funcV(L->top-1)->c.env, obj2gco(env)); - lua_setfield(L, -2, name); - L->top--; -} - -int lj_lib_postreg(lua_State *L, lua_CFunction cf, int id, const char *name) -{ - GCfunc *fn = lj_lib_pushcf(L, cf, id); - GCtab *t = tabref(curr_func(L)->c.env); /* Reference to parent table. */ - setfuncV(L, lj_tab_setstr(L, t, lj_str_newz(L, name)), fn); - lj_gc_anybarriert(L, t); - setfuncV(L, L->top++, fn); - return 1; -} - -/* -- Type checks --------------------------------------------------------- */ - -TValue *lj_lib_checkany(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (o >= L->top) - lj_err_arg(L, narg, LJ_ERR_NOVAL); - return o; -} - -GCstr *lj_lib_checkstr(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (o < L->top) { - if (LJ_LIKELY(tvisstr(o))) { - return strV(o); - } else if (tvisnumber(o)) { - GCstr *s = lj_strfmt_number(L, o); - setstrV(L, o, s); - return s; - } - } - lj_err_argt(L, narg, LUA_TSTRING); - return NULL; /* unreachable */ -} - -GCstr *lj_lib_optstr(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - return (o < L->top && !tvisnil(o)) ? lj_lib_checkstr(L, narg) : NULL; -} - -#if LJ_DUALNUM -void lj_lib_checknumber(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && lj_strscan_numberobj(o))) - lj_err_argt(L, narg, LUA_TNUMBER); -} -#endif - -lua_Number lj_lib_checknum(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && - (tvisnumber(o) || (tvisstr(o) && lj_strscan_num(strV(o), o))))) - lj_err_argt(L, narg, LUA_TNUMBER); - if (LJ_UNLIKELY(tvisint(o))) { - lua_Number n = (lua_Number)intV(o); - setnumV(o, n); - return n; - } else { - return numV(o); - } -} - -int32_t lj_lib_checkint(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && lj_strscan_numberobj(o))) - lj_err_argt(L, narg, LUA_TNUMBER); - if (LJ_LIKELY(tvisint(o))) { - return intV(o); - } else { - int32_t i = lj_num2int(numV(o)); - if (LJ_DUALNUM) setintV(o, i); - return i; - } -} - -int32_t lj_lib_optint(lua_State *L, int narg, int32_t def) -{ - TValue *o = L->base + narg-1; - return (o < L->top && !tvisnil(o)) ? lj_lib_checkint(L, narg) : def; -} - -GCfunc *lj_lib_checkfunc(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && tvisfunc(o))) - lj_err_argt(L, narg, LUA_TFUNCTION); - return funcV(o); -} - -GCtab *lj_lib_checktab(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (!(o < L->top && tvistab(o))) - lj_err_argt(L, narg, LUA_TTABLE); - return tabV(o); -} - -GCtab *lj_lib_checktabornil(lua_State *L, int narg) -{ - TValue *o = L->base + narg-1; - if (o < L->top) { - if (tvistab(o)) - return tabV(o); - else if (tvisnil(o)) - return NULL; - } - lj_err_arg(L, narg, LJ_ERR_NOTABN); - return NULL; /* unreachable */ -} - -int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst) -{ - GCstr *s = def >= 0 ? lj_lib_optstr(L, narg) : lj_lib_checkstr(L, narg); - if (s) { - const char *opt = strdata(s); - MSize len = s->len; - int i; - for (i = 0; *(const uint8_t *)lst; i++) { - if (*(const uint8_t *)lst == len && memcmp(opt, lst+1, len) == 0) - return i; - lst += 1+*(const uint8_t *)lst; - } - lj_err_argv(L, narg, LJ_ERR_INVOPTM, opt); - } - return def; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_lib.h b/src/3rd party/luajit-2.0-BAK/src/lj_lib.h deleted file mode 100644 index 3fa7aa17eff..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_lib.h +++ /dev/null @@ -1,115 +0,0 @@ -/* -** Library function support. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_LIB_H -#define _LJ_LIB_H - -#include "lj_obj.h" - -/* -** A fallback handler is called by the assembler VM if the fast path fails: -** -** - too few arguments: unrecoverable. -** - wrong argument type: recoverable, if coercion succeeds. -** - bad argument value: unrecoverable. -** - stack overflow: recoverable, if stack reallocation succeeds. -** - extra handling: recoverable. -** -** The unrecoverable cases throw an error with lj_err_arg(), lj_err_argtype(), -** lj_err_caller() or lj_err_callermsg(). -** The recoverable cases return 0 or the number of results + 1. -** The assembler VM retries the fast path only if 0 is returned. -** This time the fallback must not be called again or it gets stuck in a loop. -*/ - -/* Return values from fallback handler. */ -#define FFH_RETRY 0 -#define FFH_UNREACHABLE FFH_RETRY -#define FFH_RES(n) ((n)+1) -#define FFH_TAILCALL (-1) - -LJ_FUNC TValue *lj_lib_checkany(lua_State *L, int narg); -LJ_FUNC GCstr *lj_lib_checkstr(lua_State *L, int narg); -LJ_FUNC GCstr *lj_lib_optstr(lua_State *L, int narg); -#if LJ_DUALNUM -LJ_FUNC void lj_lib_checknumber(lua_State *L, int narg); -#else -#define lj_lib_checknumber(L, narg) lj_lib_checknum((L), (narg)) -#endif -LJ_FUNC lua_Number lj_lib_checknum(lua_State *L, int narg); -LJ_FUNC int32_t lj_lib_checkint(lua_State *L, int narg); -LJ_FUNC int32_t lj_lib_optint(lua_State *L, int narg, int32_t def); -LJ_FUNC GCfunc *lj_lib_checkfunc(lua_State *L, int narg); -LJ_FUNC GCtab *lj_lib_checktab(lua_State *L, int narg); -LJ_FUNC GCtab *lj_lib_checktabornil(lua_State *L, int narg); -LJ_FUNC int lj_lib_checkopt(lua_State *L, int narg, int def, const char *lst); - -/* Avoid including lj_frame.h. */ -#if LJ_GC64 -#define lj_lib_upvalue(L, n) \ - (&gcval(L->base-2)->fn.c.upvalue[(n)-1]) -#elif LJ_FR2 -#define lj_lib_upvalue(L, n) \ - (&gcref((L->base-2)->gcr)->fn.c.upvalue[(n)-1]) -#else -#define lj_lib_upvalue(L, n) \ - (&gcref((L->base-1)->fr.func)->fn.c.upvalue[(n)-1]) -#endif - -#if LJ_TARGET_WINDOWS -#define lj_lib_checkfpu(L) \ - do { setnumV(L->top++, (lua_Number)1437217655); \ - if (lua_tointeger(L, -1) != 1437217655) lj_err_caller(L, LJ_ERR_BADFPU); \ - L->top--; } while (0) -#else -#define lj_lib_checkfpu(L) UNUSED(L) -#endif - -LJ_FUNC GCfunc *lj_lib_pushcc(lua_State *L, lua_CFunction f, int id, int n); -#define lj_lib_pushcf(L, fn, id) (lj_lib_pushcc(L, (fn), (id), 0)) - -/* Library function declarations. Scanned by buildvm. */ -#define LJLIB_CF(name) static int lj_cf_##name(lua_State *L) -#define LJLIB_ASM(name) static int lj_ffh_##name(lua_State *L) -#define LJLIB_ASM_(name) -#define LJLIB_LUA(name) -#define LJLIB_SET(name) -#define LJLIB_PUSH(arg) -#define LJLIB_REC(handler) -#define LJLIB_NOREGUV -#define LJLIB_NOREG - -#define LJ_LIB_REG(L, regname, name) \ - lj_lib_register(L, regname, lj_lib_init_##name, lj_lib_cf_##name) - -LJ_FUNC void lj_lib_register(lua_State *L, const char *libname, - const uint8_t *init, const lua_CFunction *cf); -LJ_FUNC void lj_lib_prereg(lua_State *L, const char *name, lua_CFunction f, - GCtab *env); -LJ_FUNC int lj_lib_postreg(lua_State *L, lua_CFunction cf, int id, - const char *name); - -/* Library init data tags. */ -#define LIBINIT_LENMASK 0x3f -#define LIBINIT_TAGMASK 0xc0 -#define LIBINIT_CF 0x00 -#define LIBINIT_ASM 0x40 -#define LIBINIT_ASM_ 0x80 -#define LIBINIT_STRING 0xc0 -#define LIBINIT_MAXSTR 0x38 -#define LIBINIT_LUA 0xf9 -#define LIBINIT_SET 0xfa -#define LIBINIT_NUMBER 0xfb -#define LIBINIT_COPY 0xfc -#define LIBINIT_LASTCL 0xfd -#define LIBINIT_FFID 0xfe -#define LIBINIT_END 0xff - -/* Exported library functions. */ - -typedef struct RandomState RandomState; -LJ_FUNC uint64_t LJ_FASTCALL lj_math_random_step(RandomState *rs); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_load.c b/src/3rd party/luajit-2.0-BAK/src/lj_load.c deleted file mode 100644 index 95a6ab0d4de..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_load.c +++ /dev/null @@ -1,168 +0,0 @@ -/* -** Load and dump code. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include -#include - -#define lj_load_c -#define LUA_CORE - -#include "lua.h" -#include "lauxlib.h" - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_func.h" -#include "lj_frame.h" -#include "lj_vm.h" -#include "lj_lex.h" -#include "lj_bcdump.h" -#include "lj_parse.h" - -/* -- Load Lua source code and bytecode ----------------------------------- */ - -static TValue *cpparser(lua_State *L, lua_CFunction dummy, void *ud) -{ - LexState *ls = (LexState *)ud; - GCproto *pt; - GCfunc *fn; - int bc; - UNUSED(dummy); - cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ - bc = lj_lex_setup(L, ls); - if (ls->mode && !strchr(ls->mode, bc ? 'b' : 't')) { - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_XMODE)); - lj_err_throw(L, LUA_ERRSYNTAX); - } - pt = bc ? lj_bcread(ls) : lj_parse(ls); - fn = lj_func_newL_empty(L, pt, tabref(L->env)); - /* Don't combine above/below into one statement. */ - setfuncV(L, L->top++, fn); - return NULL; -} - -LUA_API int lua_loadx(lua_State *L, lua_Reader reader, void *data, - const char *chunkname, const char *mode) -{ - LexState ls; - int status; - ls.rfunc = reader; - ls.rdata = data; - ls.chunkarg = chunkname ? chunkname : "?"; - ls.mode = mode; - lj_buf_init(L, &ls.sb); - status = lj_vm_cpcall(L, NULL, &ls, cpparser); - lj_lex_cleanup(L, &ls); - lj_gc_check(L); - return status; -} - -LUA_API int lua_load(lua_State *L, lua_Reader reader, void *data, - const char *chunkname) -{ - return lua_loadx(L, reader, data, chunkname, NULL); -} - -typedef struct FileReaderCtx { - FILE *fp; - char buf[LUAL_BUFFERSIZE]; -} FileReaderCtx; - -static const char *reader_file(lua_State *L, void *ud, size_t *size) -{ - FileReaderCtx *ctx = (FileReaderCtx *)ud; - UNUSED(L); - if (feof(ctx->fp)) return NULL; - *size = fread(ctx->buf, 1, sizeof(ctx->buf), ctx->fp); - return *size > 0 ? ctx->buf : NULL; -} - -LUALIB_API int luaL_loadfilex(lua_State *L, const char *filename, - const char *mode) -{ - FileReaderCtx ctx; - int status; - const char *chunkname; - if (filename) { - ctx.fp = fopen(filename, "rb"); - if (ctx.fp == NULL) { - lua_pushfstring(L, "cannot open %s: %s", filename, strerror(errno)); - return LUA_ERRFILE; - } - chunkname = lua_pushfstring(L, "@%s", filename); - } else { - ctx.fp = stdin; - chunkname = "=stdin"; - } - status = lua_loadx(L, reader_file, &ctx, chunkname, mode); - if (ferror(ctx.fp)) { - L->top -= filename ? 2 : 1; - lua_pushfstring(L, "cannot read %s: %s", chunkname+1, strerror(errno)); - if (filename) - fclose(ctx.fp); - return LUA_ERRFILE; - } - if (filename) { - L->top--; - copyTV(L, L->top-1, L->top); - fclose(ctx.fp); - } - return status; -} - -LUALIB_API int luaL_loadfile(lua_State *L, const char *filename) -{ - return luaL_loadfilex(L, filename, NULL); -} - -typedef struct StringReaderCtx { - const char *str; - size_t size; -} StringReaderCtx; - -static const char *reader_string(lua_State *L, void *ud, size_t *size) -{ - StringReaderCtx *ctx = (StringReaderCtx *)ud; - UNUSED(L); - if (ctx->size == 0) return NULL; - *size = ctx->size; - ctx->size = 0; - return ctx->str; -} - -LUALIB_API int luaL_loadbufferx(lua_State *L, const char *buf, size_t size, - const char *name, const char *mode) -{ - StringReaderCtx ctx; - ctx.str = buf; - ctx.size = size; - return lua_loadx(L, reader_string, &ctx, name, mode); -} - -LUALIB_API int luaL_loadbuffer(lua_State *L, const char *buf, size_t size, - const char *name) -{ - return luaL_loadbufferx(L, buf, size, name, NULL); -} - -LUALIB_API int luaL_loadstring(lua_State *L, const char *s) -{ - return luaL_loadbuffer(L, s, strlen(s), s); -} - -/* -- Dump bytecode ------------------------------------------------------- */ - -LUA_API int lua_dump(lua_State *L, lua_Writer writer, void *data) -{ - cTValue *o = L->top-1; - api_check(L, L->top > L->base); - if (tvisfunc(o) && isluafunc(funcV(o))) - return lj_bcwrite(L, funcproto(funcV(o)), writer, data, 0); - else - return 1; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_mcode.c b/src/3rd party/luajit-2.0-BAK/src/lj_mcode.c deleted file mode 100644 index f8f8406a424..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_mcode.c +++ /dev/null @@ -1,373 +0,0 @@ -/* -** Machine code management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_mcode_c -#define LUA_CORE - -#include "lj_obj.h" -#if LJ_HASJIT -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_jit.h" -#include "lj_mcode.h" -#include "lj_trace.h" -#include "lj_dispatch.h" -#endif -#if LJ_HASJIT || LJ_HASFFI -#include "lj_vm.h" -#endif - -/* -- OS-specific functions ----------------------------------------------- */ - -#if LJ_HASJIT || LJ_HASFFI - -/* Define this if you want to run LuaJIT with Valgrind. */ -#ifdef LUAJIT_USE_VALGRIND -#include -#endif - -#if LJ_TARGET_IOS -void sys_icache_invalidate(void *start, size_t len); -#endif - -/* Synchronize data/instruction cache. */ -void lj_mcode_sync(void *start, void *end) -{ -#ifdef LUAJIT_USE_VALGRIND - VALGRIND_DISCARD_TRANSLATIONS(start, (char *)end-(char *)start); -#endif -#if LJ_TARGET_X86ORX64 - UNUSED(start); UNUSED(end); -#elif LJ_TARGET_IOS - sys_icache_invalidate(start, (char *)end-(char *)start); -#elif LJ_TARGET_PPC - lj_vm_cachesync(start, end); -#elif defined(__GNUC__) - __clear_cache(start, end); -#else -#error "Missing builtin to flush instruction cache" -#endif -} - -#endif - -#if LJ_HASJIT - -#if LJ_TARGET_WINDOWS - -#define WIN32_LEAN_AND_MEAN -#include - -#define MCPROT_RW PAGE_READWRITE -#define MCPROT_RX PAGE_EXECUTE_READ -#define MCPROT_RWX PAGE_EXECUTE_READWRITE - -static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, DWORD prot) -{ - void *p = VirtualAlloc((void *)hint, sz, - MEM_RESERVE|MEM_COMMIT|MEM_TOP_DOWN, prot); - if (!p && !hint) - lj_trace_err(J, LJ_TRERR_MCODEAL); - return p; -} - -static void mcode_free(jit_State *J, void *p, size_t sz) -{ - UNUSED(J); UNUSED(sz); - VirtualFree(p, 0, MEM_RELEASE); -} - -static int mcode_setprot(void *p, size_t sz, DWORD prot) -{ - DWORD oprot; - return !VirtualProtect(p, sz, prot, &oprot); -} - -#elif LJ_TARGET_POSIX - -#include - -#ifndef MAP_ANONYMOUS -#define MAP_ANONYMOUS MAP_ANON -#endif - -#define MCPROT_RW (PROT_READ|PROT_WRITE) -#define MCPROT_RX (PROT_READ|PROT_EXEC) -#define MCPROT_RWX (PROT_READ|PROT_WRITE|PROT_EXEC) - -static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, int prot) -{ - void *p = mmap((void *)hint, sz, prot, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0); - if (p == MAP_FAILED) { - if (!hint) lj_trace_err(J, LJ_TRERR_MCODEAL); - p = NULL; - } - return p; -} - -static void mcode_free(jit_State *J, void *p, size_t sz) -{ - UNUSED(J); - munmap(p, sz); -} - -static int mcode_setprot(void *p, size_t sz, int prot) -{ - return mprotect(p, sz, prot); -} - -#elif LJ_64 - -#error "Missing OS support for explicit placement of executable memory" - -#else - -/* Fallback allocator. This will fail if memory is not executable by default. */ -#define LUAJIT_UNPROTECT_MCODE -#define MCPROT_RW 0 -#define MCPROT_RX 0 -#define MCPROT_RWX 0 - -static void *mcode_alloc_at(jit_State *J, uintptr_t hint, size_t sz, int prot) -{ - UNUSED(hint); UNUSED(prot); - return lj_mem_new(J->L, sz); -} - -static void mcode_free(jit_State *J, void *p, size_t sz) -{ - lj_mem_free(J2G(J), p, sz); -} - -#endif - -/* -- MCode area protection ----------------------------------------------- */ - -/* Define this ONLY if the page protection twiddling becomes a bottleneck. */ -#ifdef LUAJIT_UNPROTECT_MCODE - -/* It's generally considered to be a potential security risk to have -** pages with simultaneous write *and* execute access in a process. -** -** Do not even think about using this mode for server processes or -** apps handling untrusted external data (such as a browser). -** -** The security risk is not in LuaJIT itself -- but if an adversary finds -** any *other* flaw in your C application logic, then any RWX memory page -** simplifies writing an exploit considerably. -*/ -#define MCPROT_GEN MCPROT_RWX -#define MCPROT_RUN MCPROT_RWX - -static void mcode_protect(jit_State *J, int prot) -{ - UNUSED(J); UNUSED(prot); -} - -#else - -/* This is the default behaviour and much safer: -** -** Most of the time the memory pages holding machine code are executable, -** but NONE of them is writable. -** -** The current memory area is marked read-write (but NOT executable) only -** during the short time window while the assembler generates machine code. -*/ -#define MCPROT_GEN MCPROT_RW -#define MCPROT_RUN MCPROT_RX - -/* Protection twiddling failed. Probably due to kernel security. */ -static LJ_NOINLINE void mcode_protfail(jit_State *J) -{ - lua_CFunction panic = J2G(J)->panic; - if (panic) { - lua_State *L = J->L; - setstrV(L, L->top++, lj_err_str(L, LJ_ERR_JITPROT)); - panic(L); - } -} - -/* Change protection of MCode area. */ -static void mcode_protect(jit_State *J, int prot) -{ - if (J->mcprot != prot) { - if (LJ_UNLIKELY(mcode_setprot(J->mcarea, J->szmcarea, prot))) - mcode_protfail(J); - J->mcprot = prot; - } -} - -#endif - -/* -- MCode area allocation ----------------------------------------------- */ - -#if LJ_TARGET_X64 -#define mcode_validptr(p) ((p) && (uintptr_t)(p) < (uintptr_t)1<<47) -#else -#define mcode_validptr(p) ((p) && (uintptr_t)(p) < 0xffff0000) -#endif - -#ifdef LJ_TARGET_JUMPRANGE - -/* Get memory within relative jump distance of our code in 64 bit mode. */ -static void *mcode_alloc(jit_State *J, size_t sz) -{ - /* Target an address in the static assembler code (64K aligned). - ** Try addresses within a distance of target-range/2+1MB..target+range/2-1MB. - ** Use half the jump range so every address in the range can reach any other. - */ -#if LJ_TARGET_MIPS - /* Use the middle of the 256MB-aligned region. */ - uintptr_t target = ((uintptr_t)(void *)lj_vm_exit_handler & 0xf0000000u) + - 0x08000000u; -#else - uintptr_t target = (uintptr_t)(void *)lj_vm_exit_handler & ~(uintptr_t)0xffff; -#endif - const uintptr_t range = (1u << (LJ_TARGET_JUMPRANGE-1)) - (1u << 21); - /* First try a contiguous area below the last one. */ - uintptr_t hint = J->mcarea ? (uintptr_t)J->mcarea - sz : 0; - int i; - for (i = 0; i < 32; i++) { /* 32 attempts ought to be enough ... */ - if (mcode_validptr(hint)) { - void *p = mcode_alloc_at(J, hint, sz, MCPROT_GEN); - - if (mcode_validptr(p) && - ((uintptr_t)p + sz - target < range || target - (uintptr_t)p < range)) - return p; - if (p) mcode_free(J, p, sz); /* Free badly placed area. */ - } - /* Next try probing pseudo-random addresses. */ - do { - hint = (0x78fb ^ LJ_PRNG_BITS(J, 15)) << 16; /* 64K aligned. */ - } while (!(hint + sz < range)); - hint = target + hint - (range>>1); - } - lj_trace_err(J, LJ_TRERR_MCODEAL); /* Give up. OS probably ignores hints? */ - return NULL; -} - -#else - -/* All memory addresses are reachable by relative jumps. */ -#define mcode_alloc(J, sz) mcode_alloc_at((J), 0, (sz), MCPROT_GEN) - -#endif - -/* -- MCode area management ----------------------------------------------- */ - -/* Linked list of MCode areas. */ -typedef struct MCLink { - MCode *next; /* Next area. */ - size_t size; /* Size of current area. */ -} MCLink; - -/* Allocate a new MCode area. */ -static void mcode_allocarea(jit_State *J) -{ - MCode *oldarea = J->mcarea; - size_t sz = (size_t)J->param[JIT_P_sizemcode] << 10; - sz = (sz + LJ_PAGESIZE-1) & ~(size_t)(LJ_PAGESIZE - 1); - J->mcarea = (MCode *)mcode_alloc(J, sz); - J->szmcarea = sz; - J->mcprot = MCPROT_GEN; - J->mctop = (MCode *)((char *)J->mcarea + J->szmcarea); - J->mcbot = (MCode *)((char *)J->mcarea + sizeof(MCLink)); - ((MCLink *)J->mcarea)->next = oldarea; - ((MCLink *)J->mcarea)->size = sz; - J->szallmcarea += sz; -} - -/* Free all MCode areas. */ -void lj_mcode_free(jit_State *J) -{ - MCode *mc = J->mcarea; - J->mcarea = NULL; - J->szallmcarea = 0; - while (mc) { - MCode *next = ((MCLink *)mc)->next; - mcode_free(J, mc, ((MCLink *)mc)->size); - mc = next; - } -} - -/* -- MCode transactions -------------------------------------------------- */ - -/* Reserve the remainder of the current MCode area. */ -MCode *lj_mcode_reserve(jit_State *J, MCode **lim) -{ - if (!J->mcarea) - mcode_allocarea(J); - else - mcode_protect(J, MCPROT_GEN); - *lim = J->mcbot; - return J->mctop; -} - -/* Commit the top part of the current MCode area. */ -void lj_mcode_commit(jit_State *J, MCode *top) -{ - J->mctop = top; - mcode_protect(J, MCPROT_RUN); -} - -/* Abort the reservation. */ -void lj_mcode_abort(jit_State *J) -{ - if (J->mcarea) - mcode_protect(J, MCPROT_RUN); -} - -/* Set/reset protection to allow patching of MCode areas. */ -MCode *lj_mcode_patch(jit_State *J, MCode *ptr, int finish) -{ -#ifdef LUAJIT_UNPROTECT_MCODE - UNUSED(J); UNUSED(ptr); UNUSED(finish); - return NULL; -#else - if (finish) { - if (J->mcarea == ptr) - mcode_protect(J, MCPROT_RUN); - else if (LJ_UNLIKELY(mcode_setprot(ptr, ((MCLink *)ptr)->size, MCPROT_RUN))) - mcode_protfail(J); - return NULL; - } else { - MCode *mc = J->mcarea; - /* Try current area first to use the protection cache. */ - if (ptr >= mc && ptr < (MCode *)((char *)mc + J->szmcarea)) { - mcode_protect(J, MCPROT_GEN); - return mc; - } - /* Otherwise search through the list of MCode areas. */ - for (;;) { - mc = ((MCLink *)mc)->next; - lua_assert(mc != NULL); - if (ptr >= mc && ptr < (MCode *)((char *)mc + ((MCLink *)mc)->size)) { - if (LJ_UNLIKELY(mcode_setprot(mc, ((MCLink *)mc)->size, MCPROT_GEN))) - mcode_protfail(J); - return mc; - } - } - } -#endif -} - -/* Limit of MCode reservation reached. */ -void lj_mcode_limiterr(jit_State *J, size_t need) -{ - size_t sizemcode, maxmcode; - lj_mcode_abort(J); - sizemcode = (size_t)J->param[JIT_P_sizemcode] << 10; - sizemcode = (sizemcode + LJ_PAGESIZE-1) & ~(size_t)(LJ_PAGESIZE - 1); - maxmcode = (size_t)J->param[JIT_P_maxmcode] << 10; - if ((size_t)need > sizemcode) - lj_trace_err(J, LJ_TRERR_MCODEOV); /* Too long for any area. */ - if (J->szallmcarea + sizemcode > maxmcode) - lj_trace_err(J, LJ_TRERR_MCODEAL); - mcode_allocarea(J); - lj_trace_err(J, LJ_TRERR_MCODELM); /* Retry with new area. */ -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_mcode.h b/src/3rd party/luajit-2.0-BAK/src/lj_mcode.h deleted file mode 100644 index ee604523496..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_mcode.h +++ /dev/null @@ -1,30 +0,0 @@ -/* -** Machine code management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_MCODE_H -#define _LJ_MCODE_H - -#include "lj_obj.h" - -#if LJ_HASJIT || LJ_HASFFI -LJ_FUNC void lj_mcode_sync(void *start, void *end); -#endif - -#if LJ_HASJIT - -#include "lj_jit.h" - -LJ_FUNC void lj_mcode_free(jit_State *J); -LJ_FUNC MCode *lj_mcode_reserve(jit_State *J, MCode **lim); -LJ_FUNC void lj_mcode_commit(jit_State *J, MCode *m); -LJ_FUNC void lj_mcode_abort(jit_State *J); -LJ_FUNC MCode *lj_mcode_patch(jit_State *J, MCode *ptr, int finish); -LJ_FUNC_NORET void lj_mcode_limiterr(jit_State *J, size_t need); - -#define lj_mcode_commitbot(J, m) (J->mcbot = (m)) - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_meta.c b/src/3rd party/luajit-2.0-BAK/src/lj_meta.c deleted file mode 100644 index 104ecf07c3d..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_meta.c +++ /dev/null @@ -1,477 +0,0 @@ -/* -** Metamethod handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_meta_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_frame.h" -#include "lj_bc.h" -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" -#include "lj_lib.h" - -/* -- Metamethod handling ------------------------------------------------- */ - -/* String interning of metamethod names for fast indexing. */ -void lj_meta_init(lua_State *L) -{ -#define MMNAME(name) "__" #name - const char *metanames = MMDEF(MMNAME); -#undef MMNAME - global_State *g = G(L); - const char *p, *q; - uint32_t mm; - for (mm = 0, p = metanames; *p; mm++, p = q) { - GCstr *s; - for (q = p+2; *q && *q != '_'; q++) ; - s = lj_str_new(L, p, (size_t)(q-p)); - /* NOBARRIER: g->gcroot[] is a GC root. */ - setgcref(g->gcroot[GCROOT_MMNAME+mm], obj2gco(s)); - } -} - -/* Negative caching of a few fast metamethods. See the lj_meta_fast() macro. */ -cTValue *lj_meta_cache(GCtab *mt, MMS mm, GCstr *name) -{ - cTValue *mo = lj_tab_getstr(mt, name); - lua_assert(mm <= MM_FAST); - if (!mo || tvisnil(mo)) { /* No metamethod? */ - mt->nomm |= (uint8_t)(1u<metatable); - else if (tvisudata(o)) - mt = tabref(udataV(o)->metatable); - else - mt = tabref(basemt_obj(G(L), o)); - if (mt) { - cTValue *mo = lj_tab_getstr(mt, mmname_str(G(L), mm)); - if (mo) - return mo; - } - return niltv(L); -} - -#if LJ_HASFFI -/* Tailcall from C function. */ -int lj_meta_tailcall(lua_State *L, cTValue *tv) -{ - TValue *base = L->base; - TValue *top = L->top; - const BCIns *pc = frame_pc(base-1); /* Preserve old PC from frame. */ - copyTV(L, base-1-LJ_FR2, tv); /* Replace frame with new object. */ - if (LJ_FR2) - (top++)->u64 = LJ_CONT_TAILCALL; - else - top->u32.lo = LJ_CONT_TAILCALL; - setframe_pc(top++, pc); - if (LJ_FR2) top++; - setframe_gc(top, obj2gco(L), LJ_TTHREAD); /* Dummy frame object. */ - setframe_ftsz(top, ((char *)(top+1) - (char *)base) + FRAME_CONT); - L->base = L->top = top+1; - /* - ** before: [old_mo|PC] [... ...] - ** ^base ^top - ** after: [new_mo|itype] [... ...] [NULL|PC] [dummy|delta] - ** ^base/top - ** tailcall: [new_mo|PC] [... ...] - ** ^base ^top - */ - return 0; -} -#endif - -/* Setup call to metamethod to be run by Assembler VM. */ -static TValue *mmcall(lua_State *L, ASMFunction cont, cTValue *mo, - cTValue *a, cTValue *b) -{ - /* - ** |-- framesize -> top top+1 top+2 top+3 - ** before: [func slots ...] - ** mm setup: [func slots ...] [cont|?] [mo|tmtype] [a] [b] - ** in asm: [func slots ...] [cont|PC] [mo|delta] [a] [b] - ** ^-- func base ^-- mm base - ** after mm: [func slots ...] [result] - ** ^-- copy to base[PC_RA] --/ for lj_cont_ra - ** istruecond + branch for lj_cont_cond* - ** ignore for lj_cont_nop - ** next PC: [func slots ...] - */ - TValue *top = L->top; - if (curr_funcisL(L)) top = curr_topL(L); - setcont(top++, cont); /* Assembler VM stores PC in upper word or FR2. */ - if (LJ_FR2) setnilV(top++); - copyTV(L, top++, mo); /* Store metamethod and two arguments. */ - if (LJ_FR2) setnilV(top++); - copyTV(L, top, a); - copyTV(L, top+1, b); - return top; /* Return new base. */ -} - -/* -- C helpers for some instructions, called from assembler VM ----------- */ - -/* Helper for TGET*. __index chain and metamethod. */ -cTValue *lj_meta_tget(lua_State *L, cTValue *o, cTValue *k) -{ - int loop; - for (loop = 0; loop < LJ_MAX_IDXCHAIN; loop++) { - cTValue *mo; - if (LJ_LIKELY(tvistab(o))) { - GCtab *t = tabV(o); - cTValue *tv = lj_tab_get(L, t, k); - if (!tvisnil(tv) || - !(mo = lj_meta_fast(L, tabref(t->metatable), MM_index))) - return tv; - } else if (tvisnil(mo = lj_meta_lookup(L, o, MM_index))) { - lj_err_optype(L, o, LJ_ERR_OPINDEX); - return NULL; /* unreachable */ - } - if (tvisfunc(mo)) { - L->top = mmcall(L, lj_cont_ra, mo, o, k); - return NULL; /* Trigger metamethod call. */ - } - o = mo; - } - lj_err_msg(L, LJ_ERR_GETLOOP); - return NULL; /* unreachable */ -} - -/* Helper for TSET*. __newindex chain and metamethod. */ -TValue *lj_meta_tset(lua_State *L, cTValue *o, cTValue *k) -{ - TValue tmp; - int loop; - for (loop = 0; loop < LJ_MAX_IDXCHAIN; loop++) { - cTValue *mo; - if (LJ_LIKELY(tvistab(o))) { - GCtab *t = tabV(o); - cTValue *tv = lj_tab_get(L, t, k); - if (LJ_LIKELY(!tvisnil(tv))) { - t->nomm = 0; /* Invalidate negative metamethod cache. */ - lj_gc_anybarriert(L, t); - return (TValue *)tv; - } else if (!(mo = lj_meta_fast(L, tabref(t->metatable), MM_newindex))) { - t->nomm = 0; /* Invalidate negative metamethod cache. */ - lj_gc_anybarriert(L, t); - if (tv != niltv(L)) - return (TValue *)tv; - if (tvisnil(k)) lj_err_msg(L, LJ_ERR_NILIDX); - else if (tvisint(k)) { setnumV(&tmp, (lua_Number)intV(k)); k = &tmp; } - else if (tvisnum(k) && tvisnan(k)) lj_err_msg(L, LJ_ERR_NANIDX); - return lj_tab_newkey(L, t, k); - } - } else if (tvisnil(mo = lj_meta_lookup(L, o, MM_newindex))) { - lj_err_optype(L, o, LJ_ERR_OPINDEX); - return NULL; /* unreachable */ - } - if (tvisfunc(mo)) { - L->top = mmcall(L, lj_cont_nop, mo, o, k); - /* L->top+2 = v filled in by caller. */ - return NULL; /* Trigger metamethod call. */ - } - copyTV(L, &tmp, mo); - o = &tmp; - } - lj_err_msg(L, LJ_ERR_SETLOOP); - return NULL; /* unreachable */ -} - -static cTValue *str2num(cTValue *o, TValue *n) -{ - if (tvisnum(o)) - return o; - else if (tvisint(o)) - return (setnumV(n, (lua_Number)intV(o)), n); - else if (tvisstr(o) && lj_strscan_num(strV(o), n)) - return n; - else - return NULL; -} - -/* Helper for arithmetic instructions. Coercion, metamethod. */ -TValue *lj_meta_arith(lua_State *L, TValue *ra, cTValue *rb, cTValue *rc, - BCReg op) -{ - MMS mm = bcmode_mm(op); - TValue tempb, tempc; - cTValue *b, *c; - if ((b = str2num(rb, &tempb)) != NULL && - (c = str2num(rc, &tempc)) != NULL) { /* Try coercion first. */ - setnumV(ra, lj_vm_foldarith(numV(b), numV(c), (int)mm-MM_add)); - return NULL; - } else { - cTValue *mo = lj_meta_lookup(L, rb, mm); - if (tvisnil(mo)) { - mo = lj_meta_lookup(L, rc, mm); - if (tvisnil(mo)) { - if (str2num(rb, &tempb) == NULL) rc = rb; - lj_err_optype(L, rc, LJ_ERR_OPARITH); - return NULL; /* unreachable */ - } - } - return mmcall(L, lj_cont_ra, mo, rb, rc); - } -} - -/* Helper for CAT. Coercion, iterative concat, __concat metamethod. */ -TValue *lj_meta_cat(lua_State *L, TValue *top, int left) -{ - int fromc = 0; - if (left < 0) { left = -left; fromc = 1; } - do { - if (!(tvisstr(top) || tvisnumber(top)) || - !(tvisstr(top-1) || tvisnumber(top-1))) { - cTValue *mo = lj_meta_lookup(L, top-1, MM_concat); - if (tvisnil(mo)) { - mo = lj_meta_lookup(L, top, MM_concat); - if (tvisnil(mo)) { - if (tvisstr(top-1) || tvisnumber(top-1)) top++; - lj_err_optype(L, top-1, LJ_ERR_OPCAT); - return NULL; /* unreachable */ - } - } - /* One of the top two elements is not a string, call __cat metamethod: - ** - ** before: [...][CAT stack .........................] - ** top-1 top top+1 top+2 - ** pick two: [...][CAT stack ...] [o1] [o2] - ** setup mm: [...][CAT stack ...] [cont|?] [mo|tmtype] [o1] [o2] - ** in asm: [...][CAT stack ...] [cont|PC] [mo|delta] [o1] [o2] - ** ^-- func base ^-- mm base - ** after mm: [...][CAT stack ...] <--push-- [result] - ** next step: [...][CAT stack .............] - */ - copyTV(L, top+2*LJ_FR2+2, top); /* Carefully ordered stack copies! */ - copyTV(L, top+2*LJ_FR2+1, top-1); - copyTV(L, top+LJ_FR2, mo); - setcont(top-1, lj_cont_cat); - if (LJ_FR2) { setnilV(top); setnilV(top+2); top += 2; } - return top+1; /* Trigger metamethod call. */ - } else { - /* Pick as many strings as possible from the top and concatenate them: - ** - ** before: [...][CAT stack ...........................] - ** pick str: [...][CAT stack ...] [...... strings ......] - ** concat: [...][CAT stack ...] [result] - ** next step: [...][CAT stack ............] - */ - TValue *e, *o = top; - uint64_t tlen = tvisstr(o) ? strV(o)->len : STRFMT_MAXBUF_NUM; - char *p, *buf; - do { - o--; tlen += tvisstr(o) ? strV(o)->len : STRFMT_MAXBUF_NUM; - } while (--left > 0 && (tvisstr(o-1) || tvisnumber(o-1))); - if (tlen >= LJ_MAX_STR) lj_err_msg(L, LJ_ERR_STROV); - p = buf = lj_buf_tmp(L, (MSize)tlen); - for (e = top, top = o; o <= e; o++) { - if (tvisstr(o)) { - GCstr *s = strV(o); - MSize len = s->len; - p = lj_buf_wmem(p, strdata(s), len); - } else if (tvisint(o)) { - p = lj_strfmt_wint(p, intV(o)); - } else { - lua_assert(tvisnum(o)); - p = lj_strfmt_wnum(p, o); - } - } - setstrV(L, top, lj_str_new(L, buf, (size_t)(p-buf))); - } - } while (left >= 1); - if (LJ_UNLIKELY(G(L)->gc.total >= G(L)->gc.threshold)) { - if (!fromc) L->top = curr_topL(L); - lj_gc_step(L); - } - return NULL; -} - -/* Helper for LEN. __len metamethod. */ -TValue * LJ_FASTCALL lj_meta_len(lua_State *L, cTValue *o) -{ - cTValue *mo = lj_meta_lookup(L, o, MM_len); - if (tvisnil(mo)) { - if (LJ_52 && tvistab(o)) - tabref(tabV(o)->metatable)->nomm |= (uint8_t)(1u<gch.metatable), MM_eq); - if (mo) { - TValue *top; - uint32_t it; - if (tabref(o1->gch.metatable) != tabref(o2->gch.metatable)) { - cTValue *mo2 = lj_meta_fast(L, tabref(o2->gch.metatable), MM_eq); - if (mo2 == NULL || !lj_obj_equal(mo, mo2)) - return (TValue *)(intptr_t)ne; - } - top = curr_top(L); - setcont(top++, ne ? lj_cont_condf : lj_cont_condt); - if (LJ_FR2) setnilV(top++); - copyTV(L, top++, mo); - if (LJ_FR2) setnilV(top++); - it = ~(uint32_t)o1->gch.gct; - setgcV(L, top, o1, it); - setgcV(L, top+1, o2, it); - return top; /* Trigger metamethod call. */ - } - return (TValue *)(intptr_t)ne; -} - -#if LJ_HASFFI -TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins) -{ - ASMFunction cont = (bc_op(ins) & 1) ? lj_cont_condf : lj_cont_condt; - int op = (int)bc_op(ins) & ~1; - TValue tv; - cTValue *mo, *o2, *o1 = &L->base[bc_a(ins)]; - cTValue *o1mm = o1; - if (op == BC_ISEQV) { - o2 = &L->base[bc_d(ins)]; - if (!tviscdata(o1mm)) o1mm = o2; - } else if (op == BC_ISEQS) { - setstrV(L, &tv, gco2str(proto_kgc(curr_proto(L), ~(ptrdiff_t)bc_d(ins)))); - o2 = &tv; - } else if (op == BC_ISEQN) { - o2 = &mref(curr_proto(L)->k, cTValue)[bc_d(ins)]; - } else { - lua_assert(op == BC_ISEQP); - setpriV(&tv, ~bc_d(ins)); - o2 = &tv; - } - mo = lj_meta_lookup(L, o1mm, MM_eq); - if (LJ_LIKELY(!tvisnil(mo))) - return mmcall(L, cont, mo, o1, o2); - else - return (TValue *)(intptr_t)(bc_op(ins) & 1); -} -#endif - -/* Helper for ordered comparisons. String compare, __lt/__le metamethods. */ -TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op) -{ - if (LJ_HASFFI && (tviscdata(o1) || tviscdata(o2))) { - ASMFunction cont = (op & 1) ? lj_cont_condf : lj_cont_condt; - MMS mm = (op & 2) ? MM_le : MM_lt; - cTValue *mo = lj_meta_lookup(L, tviscdata(o1) ? o1 : o2, mm); - if (LJ_UNLIKELY(tvisnil(mo))) goto err; - return mmcall(L, cont, mo, o1, o2); - } else if (LJ_52 || itype(o1) == itype(o2)) { - /* Never called with two numbers. */ - if (tvisstr(o1) && tvisstr(o2)) { - int32_t res = lj_str_cmp(strV(o1), strV(o2)); - return (TValue *)(intptr_t)(((op&2) ? res <= 0 : res < 0) ^ (op&1)); - } else { - trymt: - while (1) { - ASMFunction cont = (op & 1) ? lj_cont_condf : lj_cont_condt; - MMS mm = (op & 2) ? MM_le : MM_lt; - cTValue *mo = lj_meta_lookup(L, o1, mm); -#if LJ_52 - if (tvisnil(mo) && tvisnil((mo = lj_meta_lookup(L, o2, mm)))) -#else - cTValue *mo2 = lj_meta_lookup(L, o2, mm); - if (tvisnil(mo) || !lj_obj_equal(mo, mo2)) -#endif - { - if (op & 2) { /* MM_le not found: retry with MM_lt. */ - cTValue *ot = o1; o1 = o2; o2 = ot; /* Swap operands. */ - op ^= 3; /* Use LT and flip condition. */ - continue; - } - goto err; - } - return mmcall(L, cont, mo, o1, o2); - } - } - } else if (tvisbool(o1) && tvisbool(o2)) { - goto trymt; - } else { - err: - lj_err_comp(L, o1, o2); - return NULL; - } -} - -/* Helper for ISTYPE and ISNUM. Implicit coercion or error. */ -void lj_meta_istype(lua_State *L, BCReg ra, BCReg tp) -{ - L->top = curr_topL(L); - ra++; tp--; - lua_assert(LJ_DUALNUM || tp != ~LJ_TNUMX); /* ISTYPE -> ISNUM broken. */ - if (LJ_DUALNUM && tp == ~LJ_TNUMX) lj_lib_checkint(L, ra); - else if (tp == ~LJ_TNUMX+1) lj_lib_checknum(L, ra); - else if (tp == ~LJ_TSTR) lj_lib_checkstr(L, ra); - else lj_err_argtype(L, ra, lj_obj_itypename[tp]); -} - -/* Helper for calls. __call metamethod. */ -void lj_meta_call(lua_State *L, TValue *func, TValue *top) -{ - cTValue *mo = lj_meta_lookup(L, func, MM_call); - TValue *p; - if (!tvisfunc(mo)) - lj_err_optype_call(L, func); - for (p = top; p > func+2*LJ_FR2; p--) copyTV(L, p, p-1); - if (LJ_FR2) copyTV(L, func+2, func); - copyTV(L, func, mo); -} - -/* Helper for FORI. Coercion. */ -void LJ_FASTCALL lj_meta_for(lua_State *L, TValue *o) -{ - if (!lj_strscan_numberobj(o)) lj_err_msg(L, LJ_ERR_FORINIT); - if (!lj_strscan_numberobj(o+1)) lj_err_msg(L, LJ_ERR_FORLIM); - if (!lj_strscan_numberobj(o+2)) lj_err_msg(L, LJ_ERR_FORSTEP); - if (LJ_DUALNUM) { - /* Ensure all slots are integers or all slots are numbers. */ - int32_t k[3]; - int nint = 0; - ptrdiff_t i; - for (i = 0; i <= 2; i++) { - if (tvisint(o+i)) { - k[i] = intV(o+i); nint++; - } else { - k[i] = lj_num2int(numV(o+i)); nint += ((lua_Number)k[i] == numV(o+i)); - } - } - if (nint == 3) { /* Narrow to integers. */ - setintV(o, k[0]); - setintV(o+1, k[1]); - setintV(o+2, k[2]); - } else if (nint != 0) { /* Widen to numbers. */ - if (tvisint(o)) setnumV(o, (lua_Number)intV(o)); - if (tvisint(o+1)) setnumV(o+1, (lua_Number)intV(o+1)); - if (tvisint(o+2)) setnumV(o+2, (lua_Number)intV(o+2)); - } - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_meta.h b/src/3rd party/luajit-2.0-BAK/src/lj_meta.h deleted file mode 100644 index 7f71633362b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_meta.h +++ /dev/null @@ -1,38 +0,0 @@ -/* -** Metamethod handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_META_H -#define _LJ_META_H - -#include "lj_obj.h" - -/* Metamethod handling */ -LJ_FUNC void lj_meta_init(lua_State *L); -LJ_FUNC cTValue *lj_meta_cache(GCtab *mt, MMS mm, GCstr *name); -LJ_FUNC cTValue *lj_meta_lookup(lua_State *L, cTValue *o, MMS mm); -#if LJ_HASFFI -LJ_FUNC int lj_meta_tailcall(lua_State *L, cTValue *tv); -#endif - -#define lj_meta_fastg(g, mt, mm) \ - ((mt) == NULL ? NULL : ((mt)->nomm & (1u<<(mm))) ? NULL : \ - lj_meta_cache(mt, mm, mmname_str(g, mm))) -#define lj_meta_fast(L, mt, mm) lj_meta_fastg(G(L), mt, mm) - -/* C helpers for some instructions, called from assembler VM. */ -LJ_FUNCA cTValue *lj_meta_tget(lua_State *L, cTValue *o, cTValue *k); -LJ_FUNCA TValue *lj_meta_tset(lua_State *L, cTValue *o, cTValue *k); -LJ_FUNCA TValue *lj_meta_arith(lua_State *L, TValue *ra, cTValue *rb, - cTValue *rc, BCReg op); -LJ_FUNCA TValue *lj_meta_cat(lua_State *L, TValue *top, int left); -LJ_FUNCA TValue * LJ_FASTCALL lj_meta_len(lua_State *L, cTValue *o); -LJ_FUNCA TValue *lj_meta_equal(lua_State *L, GCobj *o1, GCobj *o2, int ne); -LJ_FUNCA TValue * LJ_FASTCALL lj_meta_equal_cd(lua_State *L, BCIns ins); -LJ_FUNCA TValue *lj_meta_comp(lua_State *L, cTValue *o1, cTValue *o2, int op); -LJ_FUNCA void lj_meta_istype(lua_State *L, BCReg ra, BCReg tp); -LJ_FUNCA void lj_meta_call(lua_State *L, TValue *func, TValue *top); -LJ_FUNCA void LJ_FASTCALL lj_meta_for(lua_State *L, TValue *o); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_obj.c b/src/3rd party/luajit-2.0-BAK/src/lj_obj.c deleted file mode 100644 index b78d2c8d835..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_obj.c +++ /dev/null @@ -1,50 +0,0 @@ -/* -** Miscellaneous object handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_obj_c -#define LUA_CORE - -#include "lj_obj.h" - -/* Object type names. */ -LJ_DATADEF const char *const lj_obj_typename[] = { /* ORDER LUA_T */ - "no value", "nil", "boolean", "userdata", "number", "string", - "table", "function", "userdata", "thread", "proto", "cdata" -}; - -LJ_DATADEF const char *const lj_obj_itypename[] = { /* ORDER LJ_T */ - "nil", "boolean", "boolean", "userdata", "string", "upval", "thread", - "proto", "function", "trace", "cdata", "table", "userdata", "number" -}; - -/* Compare two objects without calling metamethods. */ -int LJ_FASTCALL lj_obj_equal(cTValue *o1, cTValue *o2) -{ - if (itype(o1) == itype(o2)) { - if (tvispri(o1)) - return 1; - if (!tvisnum(o1)) - return gcrefeq(o1->gcr, o2->gcr); - } else if (!tvisnumber(o1) || !tvisnumber(o2)) { - return 0; - } - return numberVnum(o1) == numberVnum(o2); -} - -/* Return pointer to object or its object data. */ -const void * LJ_FASTCALL lj_obj_ptr(cTValue *o) -{ - if (tvisudata(o)) - return uddata(udataV(o)); - else if (tvislightud(o)) - return lightudV(o); - else if (LJ_HASFFI && tviscdata(o)) - return cdataptr(cdataV(o)); - else if (tvisgcv(o)) - return gcV(o); - else - return NULL; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_obj.h b/src/3rd party/luajit-2.0-BAK/src/lj_obj.h deleted file mode 100644 index 74ed59bc726..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_obj.h +++ /dev/null @@ -1,976 +0,0 @@ -/* -** LuaJIT VM tags, values and objects. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#ifndef _LJ_OBJ_H -#define _LJ_OBJ_H - -#include "lua.h" -#include "lj_def.h" -#include "lj_arch.h" - -/* -- Memory references (32 bit address space) ---------------------------- */ - -/* Memory and GC object sizes. */ -typedef uint32_t MSize; -#if LJ_GC64 -typedef uint64_t GCSize; -#else -typedef uint32_t GCSize; -#endif - -/* Memory reference */ -typedef struct MRef { -#if LJ_GC64 - uint64_t ptr64; /* True 64 bit pointer. */ -#else - uint32_t ptr32; /* Pseudo 32 bit pointer. */ -#endif -} MRef; - -#if LJ_GC64 -#define mref(r, t) ((t *)(void *)(r).ptr64) - -#define setmref(r, p) ((r).ptr64 = (uint64_t)(void *)(p)) -#define setmrefr(r, v) ((r).ptr64 = (v).ptr64) -#else -#define mref(r, t) ((t *)(void *)(uintptr_t)(r).ptr32) - -#define setmref(r, p) ((r).ptr32 = (uint32_t)(uintptr_t)(void *)(p)) -#define setmrefr(r, v) ((r).ptr32 = (v).ptr32) -#endif - -/* -- GC object references (32 bit address space) ------------------------- */ - -/* GCobj reference */ -typedef struct GCRef { -#if LJ_GC64 - uint64_t gcptr64; /* True 64 bit pointer. */ -#else - uint32_t gcptr32; /* Pseudo 32 bit pointer. */ -#endif -} GCRef; - -/* Common GC header for all collectable objects. */ -#define GCHeader GCRef nextgc; uint8_t marked; uint8_t gct -/* This occupies 6 bytes, so use the next 2 bytes for non-32 bit fields. */ - -#if LJ_GC64 -#define gcref(r) ((GCobj *)(r).gcptr64) -#define gcrefp(r, t) ((t *)(void *)(r).gcptr64) -#define gcrefu(r) ((r).gcptr64) -#define gcrefeq(r1, r2) ((r1).gcptr64 == (r2).gcptr64) - -#define setgcref(r, gc) ((r).gcptr64 = (uint64_t)&(gc)->gch) -#define setgcreft(r, gc, it) \ - (r).gcptr64 = (uint64_t)&(gc)->gch | (((uint64_t)(it)) << 47) -#define setgcrefp(r, p) ((r).gcptr64 = (uint64_t)(p)) -#define setgcrefnull(r) ((r).gcptr64 = 0) -#define setgcrefr(r, v) ((r).gcptr64 = (v).gcptr64) -#else -#define gcref(r) ((GCobj *)(uintptr_t)(r).gcptr32) -#define gcrefp(r, t) ((t *)(void *)(uintptr_t)(r).gcptr32) -#define gcrefu(r) ((r).gcptr32) -#define gcrefeq(r1, r2) ((r1).gcptr32 == (r2).gcptr32) - -#define setgcref(r, gc) ((r).gcptr32 = (uint32_t)(uintptr_t)&(gc)->gch) -#define setgcrefp(r, p) ((r).gcptr32 = (uint32_t)(uintptr_t)(p)) -#define setgcrefnull(r) ((r).gcptr32 = 0) -#define setgcrefr(r, v) ((r).gcptr32 = (v).gcptr32) -#endif - -#define gcnext(gc) (gcref((gc)->gch.nextgc)) - -/* IMPORTANT NOTE: -** -** All uses of the setgcref* macros MUST be accompanied with a write barrier. -** -** This is to ensure the integrity of the incremental GC. The invariant -** to preserve is that a black object never points to a white object. -** I.e. never store a white object into a field of a black object. -** -** It's ok to LEAVE OUT the write barrier ONLY in the following cases: -** - The source is not a GC object (NULL). -** - The target is a GC root. I.e. everything in global_State. -** - The target is a lua_State field (threads are never black). -** - The target is a stack slot, see setgcV et al. -** - The target is an open upvalue, i.e. pointing to a stack slot. -** - The target is a newly created object (i.e. marked white). But make -** sure nothing invokes the GC inbetween. -** - The target and the source are the same object (self-reference). -** - The target already contains the object (e.g. moving elements around). -** -** The most common case is a store to a stack slot. All other cases where -** a barrier has been omitted are annotated with a NOBARRIER comment. -** -** The same logic applies for stores to table slots (array part or hash -** part). ALL uses of lj_tab_set* require a barrier for the stored value -** *and* the stored key, based on the above rules. In practice this means -** a barrier is needed if *either* of the key or value are a GC object. -** -** It's ok to LEAVE OUT the write barrier in the following special cases: -** - The stored value is nil. The key doesn't matter because it's either -** not resurrected or lj_tab_newkey() will take care of the key barrier. -** - The key doesn't matter if the *previously* stored value is guaranteed -** to be non-nil (because the key is kept alive in the table). -** - The key doesn't matter if it's guaranteed not to be part of the table, -** since lj_tab_newkey() takes care of the key barrier. This applies -** trivially to new tables, but watch out for resurrected keys. Storing -** a nil value leaves the key in the table! -** -** In case of doubt use lj_gc_anybarriert() as it's rather cheap. It's used -** by the interpreter for all table stores. -** -** Note: In contrast to Lua's GC, LuaJIT's GC does *not* specially mark -** dead keys in tables. The reference is left in, but it's guaranteed to -** be never dereferenced as long as the value is nil. It's ok if the key is -** freed or if any object subsequently gets the same address. -** -** Not destroying dead keys helps to keep key hash slots stable. This avoids -** specialization back-off for HREFK when a value flips between nil and -** non-nil and the GC gets in the way. It also allows safely hoisting -** HREF/HREFK across GC steps. Dead keys are only removed if a table is -** resized (i.e. by NEWREF) and xREF must not be CSEd across a resize. -** -** The trade-off is that a write barrier for tables must take the key into -** account, too. Implicitly resurrecting the key by storing a non-nil value -** may invalidate the incremental GC invariant. -*/ - -/* -- Common type definitions --------------------------------------------- */ - -/* Types for handling bytecodes. Need this here, details in lj_bc.h. */ -typedef uint32_t BCIns; /* Bytecode instruction. */ -typedef uint32_t BCPos; /* Bytecode position. */ -typedef uint32_t BCReg; /* Bytecode register. */ -typedef int32_t BCLine; /* Bytecode line number. */ - -/* Internal assembler functions. Never call these directly from C. */ -typedef void (*ASMFunction)(void); - -/* Resizable string buffer. Need this here, details in lj_buf.h. */ -typedef struct SBuf { - MRef p; /* String buffer pointer. */ - MRef e; /* String buffer end pointer. */ - MRef b; /* String buffer base. */ - MRef L; /* lua_State, used for buffer resizing. */ -} SBuf; - -/* -- Tags and values ----------------------------------------------------- */ - -/* Frame link. */ -typedef union { - int32_t ftsz; /* Frame type and size of previous frame. */ - MRef pcr; /* Or PC for Lua frames. */ -} FrameLink; - -/* Tagged value. */ -typedef LJ_ALIGN(8) union TValue { - uint64_t u64; /* 64 bit pattern overlaps number. */ - lua_Number n; /* Number object overlaps split tag/value object. */ -#if LJ_GC64 - GCRef gcr; /* GCobj reference with tag. */ - int64_t it64; - struct { - LJ_ENDIAN_LOHI( - int32_t i; /* Integer value. */ - , uint32_t it; /* Internal object tag. Must overlap MSW of number. */ - ) - }; -#else - struct { - LJ_ENDIAN_LOHI( - union { - GCRef gcr; /* GCobj reference (if any). */ - int32_t i; /* Integer value. */ - }; - , uint32_t it; /* Internal object tag. Must overlap MSW of number. */ - ) - }; -#endif -#if LJ_FR2 - int64_t ftsz; /* Frame type and size of previous frame, or PC. */ -#else - struct { - LJ_ENDIAN_LOHI( - GCRef func; /* Function for next frame (or dummy L). */ - , FrameLink tp; /* Link to previous frame. */ - ) - } fr; -#endif - struct { - LJ_ENDIAN_LOHI( - uint32_t lo; /* Lower 32 bits of number. */ - , uint32_t hi; /* Upper 32 bits of number. */ - ) - } u32; -} TValue; - -typedef const TValue cTValue; - -#define tvref(r) (mref(r, TValue)) - -/* More external and GCobj tags for internal objects. */ -#define LAST_TT LUA_TTHREAD -#define LUA_TPROTO (LAST_TT+1) -#define LUA_TCDATA (LAST_TT+2) - -/* Internal object tags. -** -** Format for 32 bit GC references (!LJ_GC64): -** -** Internal tags overlap the MSW of a number object (must be a double). -** Interpreted as a double these are special NaNs. The FPU only generates -** one type of NaN (0xfff8_0000_0000_0000). So MSWs > 0xfff80000 are available -** for use as internal tags. Small negative numbers are used to shorten the -** encoding of type comparisons (reg/mem against sign-ext. 8 bit immediate). -** -** ---MSW---.---LSW--- -** primitive types | itype | | -** lightuserdata | itype | void * | (32 bit platforms) -** lightuserdata |ffff| void * | (64 bit platforms, 47 bit pointers) -** GC objects | itype | GCRef | -** int (LJ_DUALNUM)| itype | int | -** number -------double------ -** -** Format for 64 bit GC references (LJ_GC64): -** -** The upper 13 bits must be 1 (0xfff8...) for a special NaN. The next -** 4 bits hold the internal tag. The lowest 47 bits either hold a pointer, -** a zero-extended 32 bit integer or all bits set to 1 for primitive types. -** -** ------MSW------.------LSW------ -** primitive types |1..1|itype|1..................1| -** GC objects/lightud |1..1|itype|-------GCRef--------| -** int (LJ_DUALNUM) |1..1|itype|0..0|-----int-------| -** number ------------double------------- -** -** ORDER LJ_T -** Primitive types nil/false/true must be first, lightuserdata next. -** GC objects are at the end, table/userdata must be lowest. -** Also check lj_ir.h for similar ordering constraints. -*/ -#define LJ_TNIL (~0u) -#define LJ_TFALSE (~1u) -#define LJ_TTRUE (~2u) -#define LJ_TLIGHTUD (~3u) -#define LJ_TSTR (~4u) -#define LJ_TUPVAL (~5u) -#define LJ_TTHREAD (~6u) -#define LJ_TPROTO (~7u) -#define LJ_TFUNC (~8u) -#define LJ_TTRACE (~9u) -#define LJ_TCDATA (~10u) -#define LJ_TTAB (~11u) -#define LJ_TUDATA (~12u) -/* This is just the canonical number type used in some places. */ -#define LJ_TNUMX (~13u) - -/* Integers have itype == LJ_TISNUM doubles have itype < LJ_TISNUM */ -#if LJ_64 && !LJ_GC64 -#define LJ_TISNUM 0xfffeffffu -#else -#define LJ_TISNUM LJ_TNUMX -#endif -#define LJ_TISTRUECOND LJ_TFALSE -#define LJ_TISPRI LJ_TTRUE -#define LJ_TISGCV (LJ_TSTR+1) -#define LJ_TISTABUD LJ_TTAB - -#if LJ_GC64 -#define LJ_GCVMASK (((uint64_t)1 << 47) - 1) -#endif - -/* -- String object ------------------------------------------------------- */ - -/* String object header. String payload follows. */ -typedef struct GCstr { - GCHeader; - uint8_t reserved; /* Used by lexer for fast lookup of reserved words. */ - uint8_t unused; - MSize hash; /* Hash of string. */ - MSize len; /* Size of string. */ -} GCstr; - -#define strref(r) (&gcref((r))->str) -#define strdata(s) ((const char *)((s)+1)) -#define strdatawr(s) ((char *)((s)+1)) -#define strVdata(o) strdata(strV(o)) -#define sizestring(s) (sizeof(struct GCstr)+(s)->len+1) - -/* -- Userdata object ----------------------------------------------------- */ - -/* Userdata object. Payload follows. */ -typedef struct GCudata { - GCHeader; - uint8_t udtype; /* Userdata type. */ - uint8_t unused2; - GCRef env; /* Should be at same offset in GCfunc. */ - MSize len; /* Size of payload. */ - GCRef metatable; /* Must be at same offset in GCtab. */ - uint32_t align1; /* To force 8 byte alignment of the payload. */ -} GCudata; - -/* Userdata types. */ -enum { - UDTYPE_USERDATA, /* Regular userdata. */ - UDTYPE_IO_FILE, /* I/O library FILE. */ - UDTYPE_FFI_CLIB, /* FFI C library namespace. */ - UDTYPE__MAX -}; - -#define uddata(u) ((void *)((u)+1)) -#define sizeudata(u) (sizeof(struct GCudata)+(u)->len) - -/* -- C data object ------------------------------------------------------- */ - -/* C data object. Payload follows. */ -typedef struct GCcdata { - GCHeader; - uint16_t ctypeid; /* C type ID. */ -} GCcdata; - -/* Prepended to variable-sized or realigned C data objects. */ -typedef struct GCcdataVar { - uint16_t offset; /* Offset to allocated memory (relative to GCcdata). */ - uint16_t extra; /* Extra space allocated (incl. GCcdata + GCcdatav). */ - MSize len; /* Size of payload. */ -} GCcdataVar; - -#define cdataptr(cd) ((void *)((cd)+1)) -#define cdataisv(cd) ((cd)->marked & 0x80) -#define cdatav(cd) ((GCcdataVar *)((char *)(cd) - sizeof(GCcdataVar))) -#define cdatavlen(cd) check_exp(cdataisv(cd), cdatav(cd)->len) -#define sizecdatav(cd) (cdatavlen(cd) + cdatav(cd)->extra) -#define memcdatav(cd) ((void *)((char *)(cd) - cdatav(cd)->offset)) - -/* -- Prototype object ---------------------------------------------------- */ - -#define SCALE_NUM_GCO ((int32_t)sizeof(lua_Number)/sizeof(GCRef)) -#define round_nkgc(n) (((n) + SCALE_NUM_GCO-1) & ~(SCALE_NUM_GCO-1)) - -typedef struct GCproto { - GCHeader; - uint8_t numparams; /* Number of parameters. */ - uint8_t framesize; /* Fixed frame size. */ - MSize sizebc; /* Number of bytecode instructions. */ -#if LJ_GC64 - uint32_t unused_gc64; -#endif - GCRef gclist; - MRef k; /* Split constant array (points to the middle). */ - MRef uv; /* Upvalue list. local slot|0x8000 or parent uv idx. */ - MSize sizekgc; /* Number of collectable constants. */ - MSize sizekn; /* Number of lua_Number constants. */ - MSize sizept; /* Total size including colocated arrays. */ - uint8_t sizeuv; /* Number of upvalues. */ - uint8_t flags; /* Miscellaneous flags (see below). */ - uint16_t trace; /* Anchor for chain of root traces. */ - /* ------ The following fields are for debugging/tracebacks only ------ */ - GCRef chunkname; /* Name of the chunk this function was defined in. */ - BCLine firstline; /* First line of the function definition. */ - BCLine numline; /* Number of lines for the function definition. */ - MRef lineinfo; /* Compressed map from bytecode ins. to source line. */ - MRef uvinfo; /* Upvalue names. */ - MRef varinfo; /* Names and compressed extents of local variables. */ -} GCproto; - -/* Flags for prototype. */ -#define PROTO_CHILD 0x01 /* Has child prototypes. */ -#define PROTO_VARARG 0x02 /* Vararg function. */ -#define PROTO_FFI 0x04 /* Uses BC_KCDATA for FFI datatypes. */ -#define PROTO_NOJIT 0x08 /* JIT disabled for this function. */ -#define PROTO_ILOOP 0x10 /* Patched bytecode with ILOOP etc. */ -/* Only used during parsing. */ -#define PROTO_HAS_RETURN 0x20 /* Already emitted a return. */ -#define PROTO_FIXUP_RETURN 0x40 /* Need to fixup emitted returns. */ -/* Top bits used for counting created closures. */ -#define PROTO_CLCOUNT 0x20 /* Base of saturating 3 bit counter. */ -#define PROTO_CLC_BITS 3 -#define PROTO_CLC_POLY (3*PROTO_CLCOUNT) /* Polymorphic threshold. */ - -#define PROTO_UV_LOCAL 0x8000 /* Upvalue for local slot. */ -#define PROTO_UV_IMMUTABLE 0x4000 /* Immutable upvalue. */ - -#define proto_kgc(pt, idx) \ - check_exp((uintptr_t)(intptr_t)(idx) >= (uintptr_t)-(intptr_t)(pt)->sizekgc, \ - gcref(mref((pt)->k, GCRef)[(idx)])) -#define proto_knumtv(pt, idx) \ - check_exp((uintptr_t)(idx) < (pt)->sizekn, &mref((pt)->k, TValue)[(idx)]) -#define proto_bc(pt) ((BCIns *)((char *)(pt) + sizeof(GCproto))) -#define proto_bcpos(pt, pc) ((BCPos)((pc) - proto_bc(pt))) -#define proto_uv(pt) (mref((pt)->uv, uint16_t)) - -#define proto_chunkname(pt) (strref((pt)->chunkname)) -#define proto_chunknamestr(pt) (strdata(proto_chunkname((pt)))) -#define proto_lineinfo(pt) (mref((pt)->lineinfo, const void)) -#define proto_uvinfo(pt) (mref((pt)->uvinfo, const uint8_t)) -#define proto_varinfo(pt) (mref((pt)->varinfo, const uint8_t)) - -/* -- Upvalue object ------------------------------------------------------ */ - -typedef struct GCupval { - GCHeader; - uint8_t closed; /* Set if closed (i.e. uv->v == &uv->u.value). */ - uint8_t immutable; /* Immutable value. */ - union { - TValue tv; /* If closed: the value itself. */ - struct { /* If open: double linked list, anchored at thread. */ - GCRef prev; - GCRef next; - }; - }; - MRef v; /* Points to stack slot (open) or above (closed). */ - uint32_t dhash; /* Disambiguation hash: dh1 != dh2 => cannot alias. */ -} GCupval; - -#define uvprev(uv_) (&gcref((uv_)->prev)->uv) -#define uvnext(uv_) (&gcref((uv_)->next)->uv) -#define uvval(uv_) (mref((uv_)->v, TValue)) - -/* -- Function object (closures) ------------------------------------------ */ - -/* Common header for functions. env should be at same offset in GCudata. */ -#define GCfuncHeader \ - GCHeader; uint8_t ffid; uint8_t nupvalues; \ - GCRef env; GCRef gclist; MRef pc - -typedef struct GCfuncC { - GCfuncHeader; - lua_CFunction f; /* C function to be called. */ - TValue upvalue[1]; /* Array of upvalues (TValue). */ -} GCfuncC; - -typedef struct GCfuncL { - GCfuncHeader; - GCRef uvptr[1]; /* Array of _pointers_ to upvalue objects (GCupval). */ -} GCfuncL; - -typedef union GCfunc { - GCfuncC c; - GCfuncL l; -} GCfunc; - -#define FF_LUA 0 -#define FF_C 1 -#define isluafunc(fn) ((fn)->c.ffid == FF_LUA) -#define iscfunc(fn) ((fn)->c.ffid == FF_C) -#define isffunc(fn) ((fn)->c.ffid > FF_C) -#define funcproto(fn) \ - check_exp(isluafunc(fn), (GCproto *)(mref((fn)->l.pc, char)-sizeof(GCproto))) -#define sizeCfunc(n) (sizeof(GCfuncC)-sizeof(TValue)+sizeof(TValue)*(n)) -#define sizeLfunc(n) (sizeof(GCfuncL)-sizeof(GCRef)+sizeof(GCRef)*(n)) - -/* -- Table object -------------------------------------------------------- */ - -/* Hash node. */ -typedef struct Node { - TValue val; /* Value object. Must be first field. */ - TValue key; /* Key object. */ - MRef next; /* Hash chain. */ -#if !LJ_GC64 - MRef freetop; /* Top of free elements (stored in t->node[0]). */ -#endif -} Node; - -LJ_STATIC_ASSERT(offsetof(Node, val) == 0); - -typedef struct GCtab { - GCHeader; - uint8_t nomm; /* Negative cache for fast metamethods. */ - int8_t colo; /* Array colocation. */ - MRef array; /* Array part. */ - GCRef gclist; - GCRef metatable; /* Must be at same offset in GCudata. */ - MRef node; /* Hash part. */ - uint32_t asize; /* Size of array part (keys [0, asize-1]). */ - uint32_t hmask; /* Hash part mask (size of hash part - 1). */ -#if LJ_GC64 - MRef freetop; /* Top of free elements. */ -#endif -} GCtab; - -#define sizetabcolo(n) ((n)*sizeof(TValue) + sizeof(GCtab)) -#define tabref(r) (&gcref((r))->tab) -#define noderef(r) (mref((r), Node)) -#define nextnode(n) (mref((n)->next, Node)) -#if LJ_GC64 -#define getfreetop(t, n) (noderef((t)->freetop)) -#define setfreetop(t, n, v) (setmref((t)->freetop, (v))) -#else -#define getfreetop(t, n) (noderef((n)->freetop)) -#define setfreetop(t, n, v) (setmref((n)->freetop, (v))) -#endif - -/* -- State objects ------------------------------------------------------- */ - -/* VM states. */ -enum { - LJ_VMST_INTERP, /* Interpreter. */ - LJ_VMST_C, /* C function. */ - LJ_VMST_GC, /* Garbage collector. */ - LJ_VMST_EXIT, /* Trace exit handler. */ - LJ_VMST_RECORD, /* Trace recorder. */ - LJ_VMST_OPT, /* Optimizer. */ - LJ_VMST_ASM, /* Assembler. */ - LJ_VMST__MAX -}; - -#define setvmstate(g, st) ((g)->vmstate = ~LJ_VMST_##st) - -/* Metamethods. ORDER MM */ -#ifdef LJ_HASFFI -#define MMDEF_FFI(_) _(new) -#else -#define MMDEF_FFI(_) -#endif - -#if LJ_52 || LJ_HASFFI -#define MMDEF_PAIRS(_) _(pairs) _(ipairs) -#else -#define MMDEF_PAIRS(_) -#define MM_pairs 255 -#define MM_ipairs 255 -#endif - -#define MMDEF(_) \ - _(index) _(newindex) _(gc) _(mode) _(eq) _(len) \ - /* Only the above (fast) metamethods are negative cached (max. 8). */ \ - _(lt) _(le) _(concat) _(call) \ - /* The following must be in ORDER ARITH. */ \ - _(add) _(sub) _(mul) _(div) _(mod) _(pow) _(unm) \ - /* The following are used in the standard libraries. */ \ - _(metatable) _(tostring) MMDEF_FFI(_) MMDEF_PAIRS(_) - -typedef enum { -#define MMENUM(name) MM_##name, -MMDEF(MMENUM) -#undef MMENUM - MM__MAX, - MM____ = MM__MAX, - MM_FAST = MM_len -} MMS; - -/* GC root IDs. */ -typedef enum { - GCROOT_MMNAME, /* Metamethod names. */ - GCROOT_MMNAME_LAST = GCROOT_MMNAME + MM__MAX-1, - GCROOT_BASEMT, /* Metatables for base types. */ - GCROOT_BASEMT_NUM = GCROOT_BASEMT + ~LJ_TNUMX, - GCROOT_IO_INPUT, /* Userdata for default I/O input file. */ - GCROOT_IO_OUTPUT, /* Userdata for default I/O output file. */ - GCROOT_MAX -} GCRootID; - -#define basemt_it(g, it) ((g)->gcroot[GCROOT_BASEMT+~(it)]) -#define basemt_obj(g, o) ((g)->gcroot[GCROOT_BASEMT+itypemap(o)]) -#define mmname_str(g, mm) (strref((g)->gcroot[GCROOT_MMNAME+(mm)])) - -typedef struct GCState { - GCSize total; /* Memory currently allocated. */ - GCSize threshold; /* Memory threshold. */ - uint8_t currentwhite; /* Current white color. */ - uint8_t state; /* GC state. */ - uint8_t nocdatafin; /* No cdata finalizer called. */ - uint8_t unused2; - MSize sweepstr; /* Sweep position in string table. */ - GCRef root; /* List of all collectable objects. */ - MRef sweep; /* Sweep position in root list. */ - GCRef gray; /* List of gray objects. */ - GCRef grayagain; /* List of objects for atomic traversal. */ - GCRef weak; /* List of weak tables (to be cleared). */ - GCRef mmudata; /* List of userdata (to be finalized). */ - GCSize debt; /* Debt (how much GC is behind schedule). */ - GCSize estimate; /* Estimate of memory actually in use. */ - MSize stepmul; /* Incremental GC step granularity. */ - MSize pause; /* Pause between successive GC cycles. */ -} GCState; - -/* Global state, shared by all threads of a Lua universe. */ -typedef struct global_State { - GCRef *strhash; /* String hash table (hash chain anchors). */ - MSize strmask; /* String hash mask (size of hash table - 1). */ - MSize strnum; /* Number of strings in hash table. */ - lua_Alloc allocf; /* Memory allocator. */ - void *allocd; /* Memory allocator data. */ - GCState gc; /* Garbage collector. */ - volatile int32_t vmstate; /* VM state or current JIT code trace number. */ - SBuf tmpbuf; /* Temporary string buffer. */ - GCstr strempty; /* Empty string. */ - uint8_t stremptyz; /* Zero terminator of empty string. */ - uint8_t hookmask; /* Hook mask. */ - uint8_t dispatchmode; /* Dispatch mode. */ - uint8_t vmevmask; /* VM event mask. */ - GCRef mainthref; /* Link to main thread. */ - TValue registrytv; /* Anchor for registry. */ - TValue tmptv, tmptv2; /* Temporary TValues. */ - Node nilnode; /* Fallback 1-element hash part (nil key and value). */ - GCupval uvhead; /* Head of double-linked list of all open upvalues. */ - int32_t hookcount; /* Instruction hook countdown. */ - int32_t hookcstart; /* Start count for instruction hook counter. */ - lua_Hook hookf; /* Hook function. */ - lua_CFunction wrapf; /* Wrapper for C function calls. */ - lua_CFunction panic; /* Called as a last resort for errors. */ - BCIns bc_cfunc_int; /* Bytecode for internal C function calls. */ - BCIns bc_cfunc_ext; /* Bytecode for external C function calls. */ - GCRef cur_L; /* Currently executing lua_State. */ - MRef jit_base; /* Current JIT code L->base or NULL. */ - MRef ctype_state; /* Pointer to C type state. */ - GCRef gcroot[GCROOT_MAX]; /* GC roots. */ -} global_State; - -#define mainthread(g) (&gcref(g->mainthref)->th) -#define niltv(L) \ - check_exp(tvisnil(&G(L)->nilnode.val), &G(L)->nilnode.val) -#define niltvg(g) \ - check_exp(tvisnil(&(g)->nilnode.val), &(g)->nilnode.val) - -/* Hook management. Hook event masks are defined in lua.h. */ -#define HOOK_EVENTMASK 0x0f -#define HOOK_ACTIVE 0x10 -#define HOOK_ACTIVE_SHIFT 4 -#define HOOK_VMEVENT 0x20 -#define HOOK_GC 0x40 -#define HOOK_PROFILE 0x80 -#define hook_active(g) ((g)->hookmask & HOOK_ACTIVE) -#define hook_enter(g) ((g)->hookmask |= HOOK_ACTIVE) -#define hook_entergc(g) ((g)->hookmask |= (HOOK_ACTIVE|HOOK_GC)) -#define hook_vmevent(g) ((g)->hookmask |= (HOOK_ACTIVE|HOOK_VMEVENT)) -#define hook_leave(g) ((g)->hookmask &= ~HOOK_ACTIVE) -#define hook_save(g) ((g)->hookmask & ~HOOK_EVENTMASK) -#define hook_restore(g, h) \ - ((g)->hookmask = ((g)->hookmask & HOOK_EVENTMASK) | (h)) - -/* Per-thread state object. */ -struct lua_State { - GCHeader; - uint8_t dummy_ffid; /* Fake FF_C for curr_funcisL() on dummy frames. */ - uint8_t status; /* Thread status. */ - MRef glref; /* Link to global state. */ - GCRef gclist; /* GC chain. */ - TValue *base; /* Base of currently executing function. */ - TValue *top; /* First free slot in the stack. */ - MRef maxstack; /* Last free slot in the stack. */ - MRef stack; /* Stack base. */ - GCRef openupval; /* List of open upvalues in the stack. */ - GCRef env; /* Thread environment (table of globals). */ - void *cframe; /* End of C stack frame chain. */ - MSize stacksize; /* True stack size (incl. LJ_STACK_EXTRA). */ -}; - -#define G(L) (mref(L->glref, global_State)) -#define registry(L) (&G(L)->registrytv) - -/* Macros to access the currently executing (Lua) function. */ -#if LJ_GC64 -#define curr_func(L) (&gcval(L->base-2)->fn) -#elif LJ_FR2 -#define curr_func(L) (&gcref((L->base-2)->gcr)->fn) -#else -#define curr_func(L) (&gcref((L->base-1)->fr.func)->fn) -#endif -#define curr_funcisL(L) (isluafunc(curr_func(L))) -#define curr_proto(L) (funcproto(curr_func(L))) -#define curr_topL(L) (L->base + curr_proto(L)->framesize) -#define curr_top(L) (curr_funcisL(L) ? curr_topL(L) : L->top) - -/* -- GC object definition and conversions -------------------------------- */ - -/* GC header for generic access to common fields of GC objects. */ -typedef struct GChead { - GCHeader; - uint8_t unused1; - uint8_t unused2; - GCRef env; - GCRef gclist; - GCRef metatable; -} GChead; - -/* The env field SHOULD be at the same offset for all GC objects. */ -LJ_STATIC_ASSERT(offsetof(GChead, env) == offsetof(GCfuncL, env)); -LJ_STATIC_ASSERT(offsetof(GChead, env) == offsetof(GCudata, env)); - -/* The metatable field MUST be at the same offset for all GC objects. */ -LJ_STATIC_ASSERT(offsetof(GChead, metatable) == offsetof(GCtab, metatable)); -LJ_STATIC_ASSERT(offsetof(GChead, metatable) == offsetof(GCudata, metatable)); - -/* The gclist field MUST be at the same offset for all GC objects. */ -LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(lua_State, gclist)); -LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCproto, gclist)); -LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCfuncL, gclist)); -LJ_STATIC_ASSERT(offsetof(GChead, gclist) == offsetof(GCtab, gclist)); - -typedef union GCobj { - GChead gch; - GCstr str; - GCupval uv; - lua_State th; - GCproto pt; - GCfunc fn; - GCcdata cd; - GCtab tab; - GCudata ud; -} GCobj; - -/* Macros to convert a GCobj pointer into a specific value. */ -#define gco2str(o) check_exp((o)->gch.gct == ~LJ_TSTR, &(o)->str) -#define gco2uv(o) check_exp((o)->gch.gct == ~LJ_TUPVAL, &(o)->uv) -#define gco2th(o) check_exp((o)->gch.gct == ~LJ_TTHREAD, &(o)->th) -#define gco2pt(o) check_exp((o)->gch.gct == ~LJ_TPROTO, &(o)->pt) -#define gco2func(o) check_exp((o)->gch.gct == ~LJ_TFUNC, &(o)->fn) -#define gco2cd(o) check_exp((o)->gch.gct == ~LJ_TCDATA, &(o)->cd) -#define gco2tab(o) check_exp((o)->gch.gct == ~LJ_TTAB, &(o)->tab) -#define gco2ud(o) check_exp((o)->gch.gct == ~LJ_TUDATA, &(o)->ud) - -/* Macro to convert any collectable object into a GCobj pointer. */ -#define obj2gco(v) ((GCobj *)(v)) - -/* -- TValue getters/setters ---------------------------------------------- */ - -#ifdef LUA_USE_ASSERT -#include "lj_gc.h" -#endif - -/* Macros to test types. */ -#if LJ_GC64 -#define itype(o) ((uint32_t)((o)->it64 >> 47)) -#define tvisnil(o) ((o)->it64 == -1) -#else -#define itype(o) ((o)->it) -#define tvisnil(o) (itype(o) == LJ_TNIL) -#endif -#define tvisfalse(o) (itype(o) == LJ_TFALSE) -#define tvistrue(o) (itype(o) == LJ_TTRUE) -#define tvisbool(o) (tvisfalse(o) || tvistrue(o)) -#if LJ_64 && !LJ_GC64 -#define tvislightud(o) (((int32_t)itype(o) >> 15) == -2) -#else -#define tvislightud(o) (itype(o) == LJ_TLIGHTUD) -#endif -#define tvisstr(o) (itype(o) == LJ_TSTR) -#define tvisfunc(o) (itype(o) == LJ_TFUNC) -#define tvisthread(o) (itype(o) == LJ_TTHREAD) -#define tvisproto(o) (itype(o) == LJ_TPROTO) -#define tviscdata(o) (itype(o) == LJ_TCDATA) -#define tvistab(o) (itype(o) == LJ_TTAB) -#define tvisudata(o) (itype(o) == LJ_TUDATA) -#define tvisnumber(o) (itype(o) <= LJ_TISNUM) -#define tvisint(o) (LJ_DUALNUM && itype(o) == LJ_TISNUM) -#define tvisnum(o) (itype(o) < LJ_TISNUM) - -#define tvistruecond(o) (itype(o) < LJ_TISTRUECOND) -#define tvispri(o) (itype(o) >= LJ_TISPRI) -#define tvistabud(o) (itype(o) <= LJ_TISTABUD) /* && !tvisnum() */ -#define tvisgcv(o) ((itype(o) - LJ_TISGCV) > (LJ_TNUMX - LJ_TISGCV)) - -/* Special macros to test numbers for NaN, +0, -0, +1 and raw equality. */ -#define tvisnan(o) ((o)->n != (o)->n) -#if LJ_64 -#define tviszero(o) (((o)->u64 << 1) == 0) -#else -#define tviszero(o) (((o)->u32.lo | ((o)->u32.hi << 1)) == 0) -#endif -#define tvispzero(o) ((o)->u64 == 0) -#define tvismzero(o) ((o)->u64 == U64x(80000000,00000000)) -#define tvispone(o) ((o)->u64 == U64x(3ff00000,00000000)) -#define rawnumequal(o1, o2) ((o1)->u64 == (o2)->u64) - -/* Macros to convert type ids. */ -#if LJ_64 && !LJ_GC64 -#define itypemap(o) \ - (tvisnumber(o) ? ~LJ_TNUMX : tvislightud(o) ? ~LJ_TLIGHTUD : ~itype(o)) -#else -#define itypemap(o) (tvisnumber(o) ? ~LJ_TNUMX : ~itype(o)) -#endif - -/* Macros to get tagged values. */ -#if LJ_GC64 -#define gcval(o) ((GCobj *)(gcrefu((o)->gcr) & LJ_GCVMASK)) -#else -#define gcval(o) (gcref((o)->gcr)) -#endif -#define boolV(o) check_exp(tvisbool(o), (LJ_TFALSE - itype(o))) -#if LJ_64 -#define lightudV(o) \ - check_exp(tvislightud(o), (void *)((o)->u64 & U64x(00007fff,ffffffff))) -#else -#define lightudV(o) check_exp(tvislightud(o), gcrefp((o)->gcr, void)) -#endif -#define gcV(o) check_exp(tvisgcv(o), gcval(o)) -#define strV(o) check_exp(tvisstr(o), &gcval(o)->str) -#define funcV(o) check_exp(tvisfunc(o), &gcval(o)->fn) -#define threadV(o) check_exp(tvisthread(o), &gcval(o)->th) -#define protoV(o) check_exp(tvisproto(o), &gcval(o)->pt) -#define cdataV(o) check_exp(tviscdata(o), &gcval(o)->cd) -#define tabV(o) check_exp(tvistab(o), &gcval(o)->tab) -#define udataV(o) check_exp(tvisudata(o), &gcval(o)->ud) -#define numV(o) check_exp(tvisnum(o), (o)->n) -#define intV(o) check_exp(tvisint(o), (int32_t)(o)->i) - -/* Macros to set tagged values. */ -#if LJ_GC64 -#define setitype(o, i) ((o)->it = ((i) << 15)) -#define setnilV(o) ((o)->it64 = -1) -#define setpriV(o, x) ((o)->it64 = (int64_t)~((uint64_t)~(x)<<47)) -#define setboolV(o, x) ((o)->it64 = (int64_t)~((uint64_t)((x)+1)<<47)) -#else -#define setitype(o, i) ((o)->it = (i)) -#define setnilV(o) ((o)->it = LJ_TNIL) -#define setboolV(o, x) ((o)->it = LJ_TFALSE-(uint32_t)(x)) -#define setpriV(o, i) (setitype((o), (i))) -#endif - -static LJ_AINLINE void setlightudV(TValue *o, void *p) -{ -#if LJ_GC64 - o->u64 = (uint64_t)p | (((uint64_t)LJ_TLIGHTUD) << 47); -#elif LJ_64 - o->u64 = (uint64_t)p | (((uint64_t)0xffff) << 48); -#else - setgcrefp(o->gcr, p); setitype(o, LJ_TLIGHTUD); -#endif -} - -#if LJ_64 -#define checklightudptr(L, p) \ - (((uint64_t)(p) >> 47) ? (lj_err_msg(L, LJ_ERR_BADLU), NULL) : (p)) -#else -#define checklightudptr(L, p) (p) -#endif - -#if LJ_FR2 -#define setcont(o, f) ((o)->u64 = (uint64_t)(uintptr_t)(void *)(f)) -#elif LJ_64 -#define setcont(o, f) \ - ((o)->u64 = (uint64_t)(void *)(f) - (uint64_t)lj_vm_asm_begin) -#else -#define setcont(o, f) setlightudV((o), (void *)(f)) -#endif - -#define tvchecklive(L, o) \ - UNUSED(L), lua_assert(!tvisgcv(o) || \ - ((~itype(o) == gcval(o)->gch.gct) && !isdead(G(L), gcval(o)))) - -static LJ_AINLINE void setgcVraw(TValue *o, GCobj *v, uint32_t itype) -{ -#if LJ_GC64 - setgcreft(o->gcr, v, itype); -#else - setgcref(o->gcr, v); setitype(o, itype); -#endif -} - -static LJ_AINLINE void setgcV(lua_State *L, TValue *o, GCobj *v, uint32_t it) -{ - setgcVraw(o, v, it); tvchecklive(L, o); -} - -#define define_setV(name, type, tag) \ -static LJ_AINLINE void name(lua_State *L, TValue *o, type *v) \ -{ \ - setgcV(L, o, obj2gco(v), tag); \ -} -define_setV(setstrV, GCstr, LJ_TSTR) -define_setV(setthreadV, lua_State, LJ_TTHREAD) -define_setV(setprotoV, GCproto, LJ_TPROTO) -define_setV(setfuncV, GCfunc, LJ_TFUNC) -define_setV(setcdataV, GCcdata, LJ_TCDATA) -define_setV(settabV, GCtab, LJ_TTAB) -define_setV(setudataV, GCudata, LJ_TUDATA) - -#define setnumV(o, x) ((o)->n = (x)) -#define setnanV(o) ((o)->u64 = U64x(fff80000,00000000)) -#define setpinfV(o) ((o)->u64 = U64x(7ff00000,00000000)) -#define setminfV(o) ((o)->u64 = U64x(fff00000,00000000)) - -static LJ_AINLINE void setintV(TValue *o, int32_t i) -{ -#if LJ_DUALNUM - o->i = (uint32_t)i; setitype(o, LJ_TISNUM); -#else - o->n = (lua_Number)i; -#endif -} - -static LJ_AINLINE void setint64V(TValue *o, int64_t i) -{ - if (LJ_DUALNUM && LJ_LIKELY(i == (int64_t)(int32_t)i)) - setintV(o, (int32_t)i); - else - setnumV(o, (lua_Number)i); -} - -#if LJ_64 -#define setintptrV(o, i) setint64V((o), (i)) -#else -#define setintptrV(o, i) setintV((o), (i)) -#endif - -/* Copy tagged values. */ -static LJ_AINLINE void copyTV(lua_State *L, TValue *o1, const TValue *o2) -{ - *o1 = *o2; tvchecklive(L, o1); -} - -/* -- Number to integer conversion ---------------------------------------- */ - -#if LJ_SOFTFP -LJ_ASMF int32_t lj_vm_tobit(double x); -#endif - -static LJ_AINLINE int32_t lj_num2bit(lua_Number n) -{ -#if LJ_SOFTFP - return lj_vm_tobit(n); -#else - TValue o; - o.n = n + 6755399441055744.0; /* 2^52 + 2^51 */ - return (int32_t)o.u32.lo; -#endif -} - -#define lj_num2int(n) ((int32_t)(n)) - -static LJ_AINLINE uint64_t lj_num2u64(lua_Number n) -{ -#ifdef _MSC_VER - if (n >= 9223372036854775808.0) /* They think it's a feature. */ - return (uint64_t)(int64_t)(n - 18446744073709551616.0); - else -#endif - return (uint64_t)n; -} - -static LJ_AINLINE int32_t numberVint(cTValue *o) -{ - if (LJ_LIKELY(tvisint(o))) - return intV(o); - else - return lj_num2int(numV(o)); -} - -static LJ_AINLINE lua_Number numberVnum(cTValue *o) -{ - if (LJ_UNLIKELY(tvisint(o))) - return (lua_Number)intV(o); - else - return numV(o); -} - -/* -- Miscellaneous object handling --------------------------------------- */ - -/* Names and maps for internal and external object tags. */ -LJ_DATA const char *const lj_obj_typename[1+LUA_TCDATA+1]; -LJ_DATA const char *const lj_obj_itypename[~LJ_TNUMX+1]; - -#define lj_typename(o) (lj_obj_itypename[itypemap(o)]) - -/* Compare two objects without calling metamethods. */ -LJ_FUNC int LJ_FASTCALL lj_obj_equal(cTValue *o1, cTValue *o2); -LJ_FUNC const void * LJ_FASTCALL lj_obj_ptr(cTValue *o); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c deleted file mode 100644 index 7f1faafe647..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_dce.c +++ /dev/null @@ -1,78 +0,0 @@ -/* -** DCE: Dead Code Elimination. Pre-LOOP only -- ASM already performs DCE. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_dce_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Scan through all snapshots and mark all referenced instructions. */ -static void dce_marksnap(jit_State *J) -{ - SnapNo i, nsnap = J->cur.nsnap; - for (i = 0; i < nsnap; i++) { - SnapShot *snap = &J->cur.snap[i]; - SnapEntry *map = &J->cur.snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - IRRef ref = snap_ref(map[n]); - if (ref >= REF_FIRST) - irt_setmark(IR(ref)->t); - } - } -} - -/* Backwards propagate marks. Replace unused instructions with NOPs. */ -static void dce_propagate(jit_State *J) -{ - IRRef1 *pchain[IR__MAX]; - IRRef ins; - uint32_t i; - for (i = 0; i < IR__MAX; i++) pchain[i] = &J->chain[i]; - for (ins = J->cur.nins-1; ins >= REF_FIRST; ins--) { - IRIns *ir = IR(ins); - if (irt_ismarked(ir->t)) { - irt_clearmark(ir->t); - pchain[ir->o] = &ir->prev; - } else if (!ir_sideeff(ir)) { - *pchain[ir->o] = ir->prev; /* Reroute original instruction chain. */ - ir->t.irt = IRT_NIL; - ir->o = IR_NOP; /* Replace instruction with NOP. */ - ir->op1 = ir->op2 = 0; - ir->prev = 0; - continue; - } - if (ir->op1 >= REF_FIRST) irt_setmark(IR(ir->op1)->t); - if (ir->op2 >= REF_FIRST) irt_setmark(IR(ir->op2)->t); - } -} - -/* Dead Code Elimination. -** -** First backpropagate marks for all used instructions. Then replace -** the unused ones with a NOP. Note that compressing the IR to eliminate -** the NOPs does not pay off. -*/ -void lj_opt_dce(jit_State *J) -{ - if ((J->flags & JIT_F_OPT_DCE)) { - dce_marksnap(J); - dce_propagate(J); - memset(J->bpropcache, 0, sizeof(J->bpropcache)); /* Invalidate cache. */ - } -} - -#undef IR - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c deleted file mode 100644 index 7698b3734dd..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_fold.c +++ /dev/null @@ -1,2483 +0,0 @@ -/* -** FOLD: Constant Folding, Algebraic Simplifications and Reassociation. -** ABCelim: Array Bounds Check Elimination. -** CSE: Common-Subexpression Elimination. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_fold_c -#define LUA_CORE - -#include - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_carith.h" -#endif -#include "lj_vm.h" -#include "lj_strscan.h" -#include "lj_strfmt.h" - -/* Here's a short description how the FOLD engine processes instructions: -** -** The FOLD engine receives a single instruction stored in fins (J->fold.ins). -** The instruction and its operands are used to select matching fold rules. -** These are applied iteratively until a fixed point is reached. -** -** The 8 bit opcode of the instruction itself plus the opcodes of the -** two instructions referenced by its operands form a 24 bit key -** 'ins left right' (unused operands -> 0, literals -> lowest 8 bits). -** -** This key is used for partial matching against the fold rules. The -** left/right operand fields of the key are successively masked with -** the 'any' wildcard, from most specific to least specific: -** -** ins left right -** ins any right -** ins left any -** ins any any -** -** The masked key is used to lookup a matching fold rule in a semi-perfect -** hash table. If a matching rule is found, the related fold function is run. -** Multiple rules can share the same fold function. A fold rule may return -** one of several special values: -** -** - NEXTFOLD means no folding was applied, because an additional test -** inside the fold function failed. Matching continues against less -** specific fold rules. Finally the instruction is passed on to CSE. -** -** - RETRYFOLD means the instruction was modified in-place. Folding is -** retried as if this instruction had just been received. -** -** All other return values are terminal actions -- no further folding is -** applied: -** -** - INTFOLD(i) returns a reference to the integer constant i. -** -** - LEFTFOLD and RIGHTFOLD return the left/right operand reference -** without emitting an instruction. -** -** - CSEFOLD and EMITFOLD pass the instruction directly to CSE or emit -** it without passing through any further optimizations. -** -** - FAILFOLD, DROPFOLD and CONDFOLD only apply to instructions which have -** no result (e.g. guarded assertions): FAILFOLD means the guard would -** always fail, i.e. the current trace is pointless. DROPFOLD means -** the guard is always true and has been eliminated. CONDFOLD is a -** shortcut for FAILFOLD + cond (i.e. drop if true, otherwise fail). -** -** - Any other return value is interpreted as an IRRef or TRef. This -** can be a reference to an existing or a newly created instruction. -** Only the least-significant 16 bits (IRRef1) are used to form a TRef -** which is finally returned to the caller. -** -** The FOLD engine receives instructions both from the trace recorder and -** substituted instructions from LOOP unrolling. This means all types -** of instructions may end up here, even though the recorder bypasses -** FOLD in some cases. Thus all loads, stores and allocations must have -** an any/any rule to avoid being passed on to CSE. -** -** Carefully read the following requirements before adding or modifying -** any fold rules: -** -** Requirement #1: All fold rules must preserve their destination type. -** -** Consistently use INTFOLD() (KINT result) or lj_ir_knum() (KNUM result). -** Never use lj_ir_knumint() which can have either a KINT or KNUM result. -** -** Requirement #2: Fold rules should not create *new* instructions which -** reference operands *across* PHIs. -** -** E.g. a RETRYFOLD with 'fins->op1 = fleft->op1' is invalid if the -** left operand is a PHI. Then fleft->op1 would point across the PHI -** frontier to an invariant instruction. Adding a PHI for this instruction -** would be counterproductive. The solution is to add a barrier which -** prevents folding across PHIs, i.e. 'PHIBARRIER(fleft)' in this case. -** The only exception is for recurrences with high latencies like -** repeated int->num->int conversions. -** -** One could relax this condition a bit if the referenced instruction is -** a PHI, too. But this often leads to worse code due to excessive -** register shuffling. -** -** Note: returning *existing* instructions (e.g. LEFTFOLD) is ok, though. -** Even returning fleft->op1 would be ok, because a new PHI will added, -** if needed. But again, this leads to excessive register shuffling and -** should be avoided. -** -** Requirement #3: The set of all fold rules must be monotonic to guarantee -** termination. -** -** The goal is optimization, so one primarily wants to add strength-reducing -** rules. This means eliminating an instruction or replacing an instruction -** with one or more simpler instructions. Don't add fold rules which point -** into the other direction. -** -** Some rules (like commutativity) do not directly reduce the strength of -** an instruction, but enable other fold rules (e.g. by moving constants -** to the right operand). These rules must be made unidirectional to avoid -** cycles. -** -** Rule of thumb: the trace recorder expands the IR and FOLD shrinks it. -*/ - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) -#define fins (&J->fold.ins) -#define fleft (&J->fold.left) -#define fright (&J->fold.right) -#define knumleft (ir_knum(fleft)->n) -#define knumright (ir_knum(fright)->n) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* Fold function type. Fastcall on x86 significantly reduces their size. */ -typedef IRRef (LJ_FASTCALL *FoldFunc)(jit_State *J); - -/* Macros for the fold specs, so buildvm can recognize them. */ -#define LJFOLD(x) -#define LJFOLDX(x) -#define LJFOLDF(name) static TRef LJ_FASTCALL fold_##name(jit_State *J) -/* Note: They must be at the start of a line or buildvm ignores them! */ - -/* Barrier to prevent using operands across PHIs. */ -#define PHIBARRIER(ir) if (irt_isphi((ir)->t)) return NEXTFOLD - -/* Barrier to prevent folding across a GC step. -** GC steps can only happen at the head of a trace and at LOOP. -** And the GC is only driven forward if there's at least one allocation. -*/ -#define gcstep_barrier(J, ref) \ - ((ref) < J->chain[IR_LOOP] && \ - (J->chain[IR_SNEW] || J->chain[IR_XSNEW] || \ - J->chain[IR_TNEW] || J->chain[IR_TDUP] || \ - J->chain[IR_CNEW] || J->chain[IR_CNEWI] || \ - J->chain[IR_BUFSTR] || J->chain[IR_TOSTR] || J->chain[IR_CALLA])) - -/* -- Constant folding for FP numbers ------------------------------------- */ - -LJFOLD(ADD KNUM KNUM) -LJFOLD(SUB KNUM KNUM) -LJFOLD(MUL KNUM KNUM) -LJFOLD(DIV KNUM KNUM) -LJFOLD(NEG KNUM KNUM) -LJFOLD(ABS KNUM KNUM) -LJFOLD(ATAN2 KNUM KNUM) -LJFOLD(LDEXP KNUM KNUM) -LJFOLD(MIN KNUM KNUM) -LJFOLD(MAX KNUM KNUM) -LJFOLDF(kfold_numarith) -{ - lua_Number a = knumleft; - lua_Number b = knumright; - lua_Number y = lj_vm_foldarith(a, b, fins->o - IR_ADD); - return lj_ir_knum(J, y); -} - -LJFOLD(LDEXP KNUM KINT) -LJFOLDF(kfold_ldexp) -{ -#if LJ_TARGET_X86ORX64 - UNUSED(J); - return NEXTFOLD; -#else - return lj_ir_knum(J, ldexp(knumleft, fright->i)); -#endif -} - -LJFOLD(FPMATH KNUM any) -LJFOLDF(kfold_fpmath) -{ - lua_Number a = knumleft; - lua_Number y = lj_vm_foldfpm(a, fins->op2); - return lj_ir_knum(J, y); -} - -LJFOLD(POW KNUM KINT) -LJFOLDF(kfold_numpow) -{ - lua_Number a = knumleft; - lua_Number b = (lua_Number)fright->i; - lua_Number y = lj_vm_foldarith(a, b, IR_POW - IR_ADD); - return lj_ir_knum(J, y); -} - -/* Must not use kfold_kref for numbers (could be NaN). */ -LJFOLD(EQ KNUM KNUM) -LJFOLD(NE KNUM KNUM) -LJFOLD(LT KNUM KNUM) -LJFOLD(GE KNUM KNUM) -LJFOLD(LE KNUM KNUM) -LJFOLD(GT KNUM KNUM) -LJFOLD(ULT KNUM KNUM) -LJFOLD(UGE KNUM KNUM) -LJFOLD(ULE KNUM KNUM) -LJFOLD(UGT KNUM KNUM) -LJFOLDF(kfold_numcomp) -{ - return CONDFOLD(lj_ir_numcmp(knumleft, knumright, (IROp)fins->o)); -} - -/* -- Constant folding for 32 bit integers -------------------------------- */ - -static int32_t kfold_intop(int32_t k1, int32_t k2, IROp op) -{ - switch (op) { - case IR_ADD: k1 += k2; break; - case IR_SUB: k1 -= k2; break; - case IR_MUL: k1 *= k2; break; - case IR_MOD: k1 = lj_vm_modi(k1, k2); break; - case IR_NEG: k1 = -k1; break; - case IR_BAND: k1 &= k2; break; - case IR_BOR: k1 |= k2; break; - case IR_BXOR: k1 ^= k2; break; - case IR_BSHL: k1 <<= (k2 & 31); break; - case IR_BSHR: k1 = (int32_t)((uint32_t)k1 >> (k2 & 31)); break; - case IR_BSAR: k1 >>= (k2 & 31); break; - case IR_BROL: k1 = (int32_t)lj_rol((uint32_t)k1, (k2 & 31)); break; - case IR_BROR: k1 = (int32_t)lj_ror((uint32_t)k1, (k2 & 31)); break; - case IR_MIN: k1 = k1 < k2 ? k1 : k2; break; - case IR_MAX: k1 = k1 > k2 ? k1 : k2; break; - default: lua_assert(0); break; - } - return k1; -} - -LJFOLD(ADD KINT KINT) -LJFOLD(SUB KINT KINT) -LJFOLD(MUL KINT KINT) -LJFOLD(MOD KINT KINT) -LJFOLD(NEG KINT KINT) -LJFOLD(BAND KINT KINT) -LJFOLD(BOR KINT KINT) -LJFOLD(BXOR KINT KINT) -LJFOLD(BSHL KINT KINT) -LJFOLD(BSHR KINT KINT) -LJFOLD(BSAR KINT KINT) -LJFOLD(BROL KINT KINT) -LJFOLD(BROR KINT KINT) -LJFOLD(MIN KINT KINT) -LJFOLD(MAX KINT KINT) -LJFOLDF(kfold_intarith) -{ - return INTFOLD(kfold_intop(fleft->i, fright->i, (IROp)fins->o)); -} - -LJFOLD(ADDOV KINT KINT) -LJFOLD(SUBOV KINT KINT) -LJFOLD(MULOV KINT KINT) -LJFOLDF(kfold_intovarith) -{ - lua_Number n = lj_vm_foldarith((lua_Number)fleft->i, (lua_Number)fright->i, - fins->o - IR_ADDOV); - int32_t k = lj_num2int(n); - if (n != (lua_Number)k) - return FAILFOLD; - return INTFOLD(k); -} - -LJFOLD(BNOT KINT) -LJFOLDF(kfold_bnot) -{ - return INTFOLD(~fleft->i); -} - -LJFOLD(BSWAP KINT) -LJFOLDF(kfold_bswap) -{ - return INTFOLD((int32_t)lj_bswap((uint32_t)fleft->i)); -} - -LJFOLD(LT KINT KINT) -LJFOLD(GE KINT KINT) -LJFOLD(LE KINT KINT) -LJFOLD(GT KINT KINT) -LJFOLD(ULT KINT KINT) -LJFOLD(UGE KINT KINT) -LJFOLD(ULE KINT KINT) -LJFOLD(UGT KINT KINT) -LJFOLD(ABC KINT KINT) -LJFOLDF(kfold_intcomp) -{ - int32_t a = fleft->i, b = fright->i; - switch ((IROp)fins->o) { - case IR_LT: return CONDFOLD(a < b); - case IR_GE: return CONDFOLD(a >= b); - case IR_LE: return CONDFOLD(a <= b); - case IR_GT: return CONDFOLD(a > b); - case IR_ULT: return CONDFOLD((uint32_t)a < (uint32_t)b); - case IR_UGE: return CONDFOLD((uint32_t)a >= (uint32_t)b); - case IR_ULE: return CONDFOLD((uint32_t)a <= (uint32_t)b); - case IR_ABC: - case IR_UGT: return CONDFOLD((uint32_t)a > (uint32_t)b); - default: lua_assert(0); return FAILFOLD; - } -} - -LJFOLD(UGE any KINT) -LJFOLDF(kfold_intcomp0) -{ - if (fright->i == 0) - return DROPFOLD; - return NEXTFOLD; -} - -/* -- Constant folding for 64 bit integers -------------------------------- */ - -static uint64_t kfold_int64arith(uint64_t k1, uint64_t k2, IROp op) -{ - switch (op) { -#if LJ_HASFFI - case IR_ADD: k1 += k2; break; - case IR_SUB: k1 -= k2; break; - case IR_MUL: k1 *= k2; break; - case IR_BAND: k1 &= k2; break; - case IR_BOR: k1 |= k2; break; - case IR_BXOR: k1 ^= k2; break; -#endif - default: UNUSED(k2); lua_assert(0); break; - } - return k1; -} - -LJFOLD(ADD KINT64 KINT64) -LJFOLD(SUB KINT64 KINT64) -LJFOLD(MUL KINT64 KINT64) -LJFOLD(BAND KINT64 KINT64) -LJFOLD(BOR KINT64 KINT64) -LJFOLD(BXOR KINT64 KINT64) -LJFOLDF(kfold_int64arith) -{ - return INT64FOLD(kfold_int64arith(ir_k64(fleft)->u64, - ir_k64(fright)->u64, (IROp)fins->o)); -} - -LJFOLD(DIV KINT64 KINT64) -LJFOLD(MOD KINT64 KINT64) -LJFOLD(POW KINT64 KINT64) -LJFOLDF(kfold_int64arith2) -{ -#if LJ_HASFFI - uint64_t k1 = ir_k64(fleft)->u64, k2 = ir_k64(fright)->u64; - if (irt_isi64(fins->t)) { - k1 = fins->o == IR_DIV ? lj_carith_divi64((int64_t)k1, (int64_t)k2) : - fins->o == IR_MOD ? lj_carith_modi64((int64_t)k1, (int64_t)k2) : - lj_carith_powi64((int64_t)k1, (int64_t)k2); - } else { - k1 = fins->o == IR_DIV ? lj_carith_divu64(k1, k2) : - fins->o == IR_MOD ? lj_carith_modu64(k1, k2) : - lj_carith_powu64(k1, k2); - } - return INT64FOLD(k1); -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(BSHL KINT64 KINT) -LJFOLD(BSHR KINT64 KINT) -LJFOLD(BSAR KINT64 KINT) -LJFOLD(BROL KINT64 KINT) -LJFOLD(BROR KINT64 KINT) -LJFOLDF(kfold_int64shift) -{ -#if LJ_HASFFI - uint64_t k = ir_k64(fleft)->u64; - int32_t sh = (fright->i & 63); - return INT64FOLD(lj_carith_shift64(k, sh, fins->o - IR_BSHL)); -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(BNOT KINT64) -LJFOLDF(kfold_bnot64) -{ -#if LJ_HASFFI - return INT64FOLD(~ir_k64(fleft)->u64); -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(BSWAP KINT64) -LJFOLDF(kfold_bswap64) -{ -#if LJ_HASFFI - return INT64FOLD(lj_bswap64(ir_k64(fleft)->u64)); -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(LT KINT64 KINT64) -LJFOLD(GE KINT64 KINT64) -LJFOLD(LE KINT64 KINT64) -LJFOLD(GT KINT64 KINT64) -LJFOLD(ULT KINT64 KINT64) -LJFOLD(UGE KINT64 KINT64) -LJFOLD(ULE KINT64 KINT64) -LJFOLD(UGT KINT64 KINT64) -LJFOLDF(kfold_int64comp) -{ -#if LJ_HASFFI - uint64_t a = ir_k64(fleft)->u64, b = ir_k64(fright)->u64; - switch ((IROp)fins->o) { - case IR_LT: return CONDFOLD(a < b); - case IR_GE: return CONDFOLD(a >= b); - case IR_LE: return CONDFOLD(a <= b); - case IR_GT: return CONDFOLD(a > b); - case IR_ULT: return CONDFOLD((uint64_t)a < (uint64_t)b); - case IR_UGE: return CONDFOLD((uint64_t)a >= (uint64_t)b); - case IR_ULE: return CONDFOLD((uint64_t)a <= (uint64_t)b); - case IR_UGT: return CONDFOLD((uint64_t)a > (uint64_t)b); - default: lua_assert(0); return FAILFOLD; - } -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(UGE any KINT64) -LJFOLDF(kfold_int64comp0) -{ -#if LJ_HASFFI - if (ir_k64(fright)->u64 == 0) - return DROPFOLD; - return NEXTFOLD; -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -/* -- Constant folding for strings ---------------------------------------- */ - -LJFOLD(SNEW KKPTR KINT) -LJFOLDF(kfold_snew_kptr) -{ - GCstr *s = lj_str_new(J->L, (const char *)ir_kptr(fleft), (size_t)fright->i); - return lj_ir_kstr(J, s); -} - -LJFOLD(SNEW any KINT) -LJFOLDF(kfold_snew_empty) -{ - if (fright->i == 0) - return lj_ir_kstr(J, &J2G(J)->strempty); - return NEXTFOLD; -} - -LJFOLD(STRREF KGC KINT) -LJFOLDF(kfold_strref) -{ - GCstr *str = ir_kstr(fleft); - lua_assert((MSize)fright->i <= str->len); - return lj_ir_kkptr(J, (char *)strdata(str) + fright->i); -} - -LJFOLD(STRREF SNEW any) -LJFOLDF(kfold_strref_snew) -{ - PHIBARRIER(fleft); - if (irref_isk(fins->op2) && fright->i == 0) { - return fleft->op1; /* strref(snew(ptr, len), 0) ==> ptr */ - } else { - /* Reassociate: strref(snew(strref(str, a), len), b) ==> strref(str, a+b) */ - IRIns *ir = IR(fleft->op1); - if (ir->o == IR_STRREF) { - IRRef1 str = ir->op1; /* IRIns * is not valid across emitir. */ - PHIBARRIER(ir); - fins->op2 = emitir(IRTI(IR_ADD), ir->op2, fins->op2); /* Clobbers fins! */ - fins->op1 = str; - fins->ot = IRT(IR_STRREF, IRT_P32); - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(CALLN CARG IRCALL_lj_str_cmp) -LJFOLDF(kfold_strcmp) -{ - if (irref_isk(fleft->op1) && irref_isk(fleft->op2)) { - GCstr *a = ir_kstr(IR(fleft->op1)); - GCstr *b = ir_kstr(IR(fleft->op2)); - return INTFOLD(lj_str_cmp(a, b)); - } - return NEXTFOLD; -} - -/* -- Constant folding and forwarding for buffers ------------------------- */ - -/* -** Buffer ops perform stores, but their effect is limited to the buffer -** itself. Also, buffer ops are chained: a use of an op implies a use of -** all other ops up the chain. Conversely, if an op is unused, all ops -** up the chain can go unsed. This largely eliminates the need to treat -** them as stores. -** -** Alas, treating them as normal (IRM_N) ops doesn't work, because they -** cannot be CSEd in isolation. CSE for IRM_N is implicitly done in LOOP -** or if FOLD is disabled. -** -** The compromise is to declare them as loads, emit them like stores and -** CSE whole chains manually when the BUFSTR is to be emitted. Any chain -** fragments left over from CSE are eliminated by DCE. -*/ - -/* BUFHDR is emitted like a store, see below. */ - -LJFOLD(BUFPUT BUFHDR BUFSTR) -LJFOLDF(bufput_append) -{ - /* New buffer, no other buffer op inbetween and same buffer? */ - if ((J->flags & JIT_F_OPT_FWD) && - !(fleft->op2 & IRBUFHDR_APPEND) && - fleft->prev == fright->op2 && - fleft->op1 == IR(fright->op2)->op1) { - IRRef ref = fins->op1; - IR(ref)->op2 = (fleft->op2 | IRBUFHDR_APPEND); /* Modify BUFHDR. */ - IR(ref)->op1 = fright->op1; - return ref; - } - return EMITFOLD; /* Always emit, CSE later. */ -} - -LJFOLD(BUFPUT any any) -LJFOLDF(bufput_kgc) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && fright->o == IR_KGC) { - GCstr *s2 = ir_kstr(fright); - if (s2->len == 0) { /* Empty string? */ - return LEFTFOLD; - } else { - if (fleft->o == IR_BUFPUT && irref_isk(fleft->op2) && - !irt_isphi(fleft->t)) { /* Join two constant string puts in a row. */ - GCstr *s1 = ir_kstr(IR(fleft->op2)); - IRRef kref = lj_ir_kstr(J, lj_buf_cat2str(J->L, s1, s2)); - /* lj_ir_kstr() may realloc the IR and invalidates any IRIns *. */ - IR(fins->op1)->op2 = kref; /* Modify previous BUFPUT. */ - return fins->op1; - } - } - } - return EMITFOLD; /* Always emit, CSE later. */ -} - -LJFOLD(BUFSTR any any) -LJFOLDF(bufstr_kfold_cse) -{ - lua_assert(fleft->o == IR_BUFHDR || fleft->o == IR_BUFPUT || - fleft->o == IR_CALLL); - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { - if (fleft->o == IR_BUFHDR) { /* No put operations? */ - if (!(fleft->op2 & IRBUFHDR_APPEND)) /* Empty buffer? */ - return lj_ir_kstr(J, &J2G(J)->strempty); - fins->op1 = fleft->op1; - fins->op2 = fleft->prev; /* Relies on checks in bufput_append. */ - return CSEFOLD; - } else if (fleft->o == IR_BUFPUT) { - IRIns *irb = IR(fleft->op1); - if (irb->o == IR_BUFHDR && !(irb->op2 & IRBUFHDR_APPEND)) - return fleft->op2; /* Shortcut for a single put operation. */ - } - } - /* Try to CSE the whole chain. */ - if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { - IRRef ref = J->chain[IR_BUFSTR]; - while (ref) { - IRIns *irs = IR(ref), *ira = fleft, *irb = IR(irs->op1); - while (ira->o == irb->o && ira->op2 == irb->op2) { - lua_assert(ira->o == IR_BUFHDR || ira->o == IR_BUFPUT || - ira->o == IR_CALLL || ira->o == IR_CARG); - if (ira->o == IR_BUFHDR && !(ira->op2 & IRBUFHDR_APPEND)) - return ref; /* CSE succeeded. */ - if (ira->o == IR_CALLL && ira->op2 == IRCALL_lj_buf_puttab) - break; - ira = IR(ira->op1); - irb = IR(irb->op1); - } - ref = irs->prev; - } - } - return EMITFOLD; /* No CSE possible. */ -} - -LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_reverse) -LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_upper) -LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_lower) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putquoted) -LJFOLDF(bufput_kfold_op) -{ - if (irref_isk(fleft->op2)) { - const CCallInfo *ci = &lj_ir_callinfo[fins->op2]; - SBuf *sb = lj_buf_tmp_(J->L); - sb = ((SBuf * (LJ_FASTCALL *)(SBuf *, GCstr *))ci->func)(sb, - ir_kstr(IR(fleft->op2))); - fins->o = IR_BUFPUT; - fins->op1 = fleft->op1; - fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); - return RETRYFOLD; - } - return EMITFOLD; /* Always emit, CSE later. */ -} - -LJFOLD(CALLL CARG IRCALL_lj_buf_putstr_rep) -LJFOLDF(bufput_kfold_rep) -{ - if (irref_isk(fleft->op2)) { - IRIns *irc = IR(fleft->op1); - if (irref_isk(irc->op2)) { - SBuf *sb = lj_buf_tmp_(J->L); - sb = lj_buf_putstr_rep(sb, ir_kstr(IR(irc->op2)), IR(fleft->op2)->i); - fins->o = IR_BUFPUT; - fins->op1 = irc->op1; - fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); - return RETRYFOLD; - } - } - return EMITFOLD; /* Always emit, CSE later. */ -} - -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfxint) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum_int) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum_uint) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfnum) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfstr) -LJFOLD(CALLL CARG IRCALL_lj_strfmt_putfchar) -LJFOLDF(bufput_kfold_fmt) -{ - IRIns *irc = IR(fleft->op1); - lua_assert(irref_isk(irc->op2)); /* SFormat must be const. */ - if (irref_isk(fleft->op2)) { - SFormat sf = (SFormat)IR(irc->op2)->i; - IRIns *ira = IR(fleft->op2); - SBuf *sb = lj_buf_tmp_(J->L); - switch (fins->op2) { - case IRCALL_lj_strfmt_putfxint: - sb = lj_strfmt_putfxint(sb, sf, ir_k64(ira)->u64); - break; - case IRCALL_lj_strfmt_putfstr: - sb = lj_strfmt_putfstr(sb, sf, ir_kstr(ira)); - break; - case IRCALL_lj_strfmt_putfchar: - sb = lj_strfmt_putfchar(sb, sf, ira->i); - break; - case IRCALL_lj_strfmt_putfnum_int: - case IRCALL_lj_strfmt_putfnum_uint: - case IRCALL_lj_strfmt_putfnum: - default: { - const CCallInfo *ci = &lj_ir_callinfo[fins->op2]; - sb = ((SBuf * (*)(SBuf *, SFormat, lua_Number))ci->func)(sb, sf, - ir_knum(ira)->n); - break; - } - } - fins->o = IR_BUFPUT; - fins->op1 = irc->op1; - fins->op2 = lj_ir_kstr(J, lj_buf_tostr(sb)); - return RETRYFOLD; - } - return EMITFOLD; /* Always emit, CSE later. */ -} - -/* -- Constant folding of pointer arithmetic ------------------------------ */ - -LJFOLD(ADD KGC KINT) -LJFOLD(ADD KGC KINT64) -LJFOLDF(kfold_add_kgc) -{ - GCobj *o = ir_kgc(fleft); -#if LJ_64 - ptrdiff_t ofs = (ptrdiff_t)ir_kint64(fright)->u64; -#else - ptrdiff_t ofs = fright->i; -#endif -#if LJ_HASFFI - if (irt_iscdata(fleft->t)) { - CType *ct = ctype_raw(ctype_ctsG(J2G(J)), gco2cd(o)->ctypeid); - if (ctype_isnum(ct->info) || ctype_isenum(ct->info) || - ctype_isptr(ct->info) || ctype_isfunc(ct->info) || - ctype_iscomplex(ct->info) || ctype_isvector(ct->info)) - return lj_ir_kkptr(J, (char *)o + ofs); - } -#endif - return lj_ir_kptr(J, (char *)o + ofs); -} - -LJFOLD(ADD KPTR KINT) -LJFOLD(ADD KPTR KINT64) -LJFOLD(ADD KKPTR KINT) -LJFOLD(ADD KKPTR KINT64) -LJFOLDF(kfold_add_kptr) -{ - void *p = ir_kptr(fleft); -#if LJ_64 - ptrdiff_t ofs = (ptrdiff_t)ir_kint64(fright)->u64; -#else - ptrdiff_t ofs = fright->i; -#endif - return lj_ir_kptr_(J, fleft->o, (char *)p + ofs); -} - -LJFOLD(ADD any KGC) -LJFOLD(ADD any KPTR) -LJFOLD(ADD any KKPTR) -LJFOLDF(kfold_add_kright) -{ - if (fleft->o == IR_KINT || fleft->o == IR_KINT64) { - IRRef1 tmp = fins->op1; fins->op1 = fins->op2; fins->op2 = tmp; - return RETRYFOLD; - } - return NEXTFOLD; -} - -/* -- Constant folding of conversions ------------------------------------- */ - -LJFOLD(TOBIT KNUM KNUM) -LJFOLDF(kfold_tobit) -{ - return INTFOLD(lj_num2bit(knumleft)); -} - -LJFOLD(CONV KINT IRCONV_NUM_INT) -LJFOLDF(kfold_conv_kint_num) -{ - return lj_ir_knum(J, (lua_Number)fleft->i); -} - -LJFOLD(CONV KINT IRCONV_NUM_U32) -LJFOLDF(kfold_conv_kintu32_num) -{ - return lj_ir_knum(J, (lua_Number)(uint32_t)fleft->i); -} - -LJFOLD(CONV KINT IRCONV_INT_I8) -LJFOLD(CONV KINT IRCONV_INT_U8) -LJFOLD(CONV KINT IRCONV_INT_I16) -LJFOLD(CONV KINT IRCONV_INT_U16) -LJFOLDF(kfold_conv_kint_ext) -{ - int32_t k = fleft->i; - if ((fins->op2 & IRCONV_SRCMASK) == IRT_I8) k = (int8_t)k; - else if ((fins->op2 & IRCONV_SRCMASK) == IRT_U8) k = (uint8_t)k; - else if ((fins->op2 & IRCONV_SRCMASK) == IRT_I16) k = (int16_t)k; - else k = (uint16_t)k; - return INTFOLD(k); -} - -LJFOLD(CONV KINT IRCONV_I64_INT) -LJFOLD(CONV KINT IRCONV_U64_INT) -LJFOLD(CONV KINT IRCONV_I64_U32) -LJFOLD(CONV KINT IRCONV_U64_U32) -LJFOLDF(kfold_conv_kint_i64) -{ - if ((fins->op2 & IRCONV_SEXT)) - return INT64FOLD((uint64_t)(int64_t)fleft->i); - else - return INT64FOLD((uint64_t)(int64_t)(uint32_t)fleft->i); -} - -LJFOLD(CONV KINT64 IRCONV_NUM_I64) -LJFOLDF(kfold_conv_kint64_num_i64) -{ - return lj_ir_knum(J, (lua_Number)(int64_t)ir_kint64(fleft)->u64); -} - -LJFOLD(CONV KINT64 IRCONV_NUM_U64) -LJFOLDF(kfold_conv_kint64_num_u64) -{ - return lj_ir_knum(J, (lua_Number)ir_kint64(fleft)->u64); -} - -LJFOLD(CONV KINT64 IRCONV_INT_I64) -LJFOLD(CONV KINT64 IRCONV_U32_I64) -LJFOLDF(kfold_conv_kint64_int_i64) -{ - return INTFOLD((int32_t)ir_kint64(fleft)->u64); -} - -LJFOLD(CONV KNUM IRCONV_INT_NUM) -LJFOLDF(kfold_conv_knum_int_num) -{ - lua_Number n = knumleft; - int32_t k = lj_num2int(n); - if (irt_isguard(fins->t) && n != (lua_Number)k) { - /* We're about to create a guard which always fails, like CONV +1.5. - ** Some pathological loops cause this during LICM, e.g.: - ** local x,k,t = 0,1.5,{1,[1.5]=2} - ** for i=1,200 do x = x+ t[k]; k = k == 1 and 1.5 or 1 end - ** assert(x == 300) - */ - return FAILFOLD; - } - return INTFOLD(k); -} - -LJFOLD(CONV KNUM IRCONV_U32_NUM) -LJFOLDF(kfold_conv_knum_u32_num) -{ -#ifdef _MSC_VER - { /* Workaround for MSVC bug. */ - volatile uint32_t u = (uint32_t)knumleft; - return INTFOLD((int32_t)u); - } -#else - return INTFOLD((int32_t)(uint32_t)knumleft); -#endif -} - -LJFOLD(CONV KNUM IRCONV_I64_NUM) -LJFOLDF(kfold_conv_knum_i64_num) -{ - return INT64FOLD((uint64_t)(int64_t)knumleft); -} - -LJFOLD(CONV KNUM IRCONV_U64_NUM) -LJFOLDF(kfold_conv_knum_u64_num) -{ - return INT64FOLD(lj_num2u64(knumleft)); -} - -LJFOLD(TOSTR KNUM any) -LJFOLDF(kfold_tostr_knum) -{ - return lj_ir_kstr(J, lj_strfmt_num(J->L, ir_knum(fleft))); -} - -LJFOLD(TOSTR KINT any) -LJFOLDF(kfold_tostr_kint) -{ - return lj_ir_kstr(J, fins->op2 == IRTOSTR_INT ? - lj_strfmt_int(J->L, fleft->i) : - lj_strfmt_char(J->L, fleft->i)); -} - -LJFOLD(STRTO KGC) -LJFOLDF(kfold_strto) -{ - TValue n; - if (lj_strscan_num(ir_kstr(fleft), &n)) - return lj_ir_knum(J, numV(&n)); - return FAILFOLD; -} - -/* -- Constant folding of equality checks --------------------------------- */ - -/* Don't constant-fold away FLOAD checks against KNULL. */ -LJFOLD(EQ FLOAD KNULL) -LJFOLD(NE FLOAD KNULL) -LJFOLDX(lj_opt_cse) - -/* But fold all other KNULL compares, since only KNULL is equal to KNULL. */ -LJFOLD(EQ any KNULL) -LJFOLD(NE any KNULL) -LJFOLD(EQ KNULL any) -LJFOLD(NE KNULL any) -LJFOLD(EQ KINT KINT) /* Constants are unique, so same refs <==> same value. */ -LJFOLD(NE KINT KINT) -LJFOLD(EQ KINT64 KINT64) -LJFOLD(NE KINT64 KINT64) -LJFOLD(EQ KGC KGC) -LJFOLD(NE KGC KGC) -LJFOLDF(kfold_kref) -{ - return CONDFOLD((fins->op1 == fins->op2) ^ (fins->o == IR_NE)); -} - -/* -- Algebraic shortcuts ------------------------------------------------- */ - -LJFOLD(FPMATH FPMATH IRFPM_FLOOR) -LJFOLD(FPMATH FPMATH IRFPM_CEIL) -LJFOLD(FPMATH FPMATH IRFPM_TRUNC) -LJFOLDF(shortcut_round) -{ - IRFPMathOp op = (IRFPMathOp)fleft->op2; - if (op == IRFPM_FLOOR || op == IRFPM_CEIL || op == IRFPM_TRUNC) - return LEFTFOLD; /* round(round_left(x)) = round_left(x) */ - return NEXTFOLD; -} - -LJFOLD(ABS ABS KNUM) -LJFOLDF(shortcut_left) -{ - return LEFTFOLD; /* f(g(x)) ==> g(x) */ -} - -LJFOLD(ABS NEG KNUM) -LJFOLDF(shortcut_dropleft) -{ - PHIBARRIER(fleft); - fins->op1 = fleft->op1; /* abs(neg(x)) ==> abs(x) */ - return RETRYFOLD; -} - -/* Note: no safe shortcuts with STRTO and TOSTR ("1e2" ==> +100 ==> "100"). */ -LJFOLD(NEG NEG any) -LJFOLD(BNOT BNOT) -LJFOLD(BSWAP BSWAP) -LJFOLDF(shortcut_leftleft) -{ - PHIBARRIER(fleft); /* See above. Fold would be ok, but not beneficial. */ - return fleft->op1; /* f(g(x)) ==> x */ -} - -/* -- FP algebraic simplifications ---------------------------------------- */ - -/* FP arithmetic is tricky -- there's not much to simplify. -** Please note the following common pitfalls before sending "improvements": -** x+0 ==> x is INVALID for x=-0 -** 0-x ==> -x is INVALID for x=+0 -** x*0 ==> 0 is INVALID for x=-0, x=+-Inf or x=NaN -*/ - -LJFOLD(ADD NEG any) -LJFOLDF(simplify_numadd_negx) -{ - PHIBARRIER(fleft); - fins->o = IR_SUB; /* (-a) + b ==> b - a */ - fins->op1 = fins->op2; - fins->op2 = fleft->op1; - return RETRYFOLD; -} - -LJFOLD(ADD any NEG) -LJFOLDF(simplify_numadd_xneg) -{ - PHIBARRIER(fright); - fins->o = IR_SUB; /* a + (-b) ==> a - b */ - fins->op2 = fright->op1; - return RETRYFOLD; -} - -LJFOLD(SUB any KNUM) -LJFOLDF(simplify_numsub_k) -{ - lua_Number n = knumright; - if (n == 0.0) /* x - (+-0) ==> x */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(SUB NEG KNUM) -LJFOLDF(simplify_numsub_negk) -{ - PHIBARRIER(fleft); - fins->op2 = fleft->op1; /* (-x) - k ==> (-k) - x */ - fins->op1 = (IRRef1)lj_ir_knum(J, -knumright); - return RETRYFOLD; -} - -LJFOLD(SUB any NEG) -LJFOLDF(simplify_numsub_xneg) -{ - PHIBARRIER(fright); - fins->o = IR_ADD; /* a - (-b) ==> a + b */ - fins->op2 = fright->op1; - return RETRYFOLD; -} - -LJFOLD(MUL any KNUM) -LJFOLD(DIV any KNUM) -LJFOLDF(simplify_nummuldiv_k) -{ - lua_Number n = knumright; - if (n == 1.0) { /* x o 1 ==> x */ - return LEFTFOLD; - } else if (n == -1.0) { /* x o -1 ==> -x */ - fins->o = IR_NEG; - fins->op2 = (IRRef1)lj_ir_knum_neg(J); - return RETRYFOLD; - } else if (fins->o == IR_MUL && n == 2.0) { /* x * 2 ==> x + x */ - fins->o = IR_ADD; - fins->op2 = fins->op1; - return RETRYFOLD; - } else if (fins->o == IR_DIV) { /* x / 2^k ==> x * 2^-k */ - uint64_t u = ir_knum(fright)->u64; - uint32_t ex = ((uint32_t)(u >> 52) & 0x7ff); - if ((u & U64x(000fffff,ffffffff)) == 0 && ex - 1 < 0x7fd) { - u = (u & ((uint64_t)1 << 63)) | ((uint64_t)(0x7fe - ex) << 52); - fins->o = IR_MUL; /* Multiply by exact reciprocal. */ - fins->op2 = lj_ir_knum_u64(J, u); - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(MUL NEG KNUM) -LJFOLD(DIV NEG KNUM) -LJFOLDF(simplify_nummuldiv_negk) -{ - PHIBARRIER(fleft); - fins->op1 = fleft->op1; /* (-a) o k ==> a o (-k) */ - fins->op2 = (IRRef1)lj_ir_knum(J, -knumright); - return RETRYFOLD; -} - -LJFOLD(MUL NEG NEG) -LJFOLD(DIV NEG NEG) -LJFOLDF(simplify_nummuldiv_negneg) -{ - PHIBARRIER(fleft); - PHIBARRIER(fright); - fins->op1 = fleft->op1; /* (-a) o (-b) ==> a o b */ - fins->op2 = fright->op1; - return RETRYFOLD; -} - -LJFOLD(POW any KINT) -LJFOLDF(simplify_numpow_xk) -{ - int32_t k = fright->i; - TRef ref = fins->op1; - if (k == 0) /* x ^ 0 ==> 1 */ - return lj_ir_knum_one(J); /* Result must be a number, not an int. */ - if (k == 1) /* x ^ 1 ==> x */ - return LEFTFOLD; - if ((uint32_t)(k+65536) > 2*65536u) /* Limit code explosion. */ - return NEXTFOLD; - if (k < 0) { /* x ^ (-k) ==> (1/x) ^ k. */ - ref = emitir(IRTN(IR_DIV), lj_ir_knum_one(J), ref); - k = -k; - } - /* Unroll x^k for 1 <= k <= 65536. */ - for (; (k & 1) == 0; k >>= 1) /* Handle leading zeros. */ - ref = emitir(IRTN(IR_MUL), ref, ref); - if ((k >>= 1) != 0) { /* Handle trailing bits. */ - TRef tmp = emitir(IRTN(IR_MUL), ref, ref); - for (; k != 1; k >>= 1) { - if (k & 1) - ref = emitir(IRTN(IR_MUL), ref, tmp); - tmp = emitir(IRTN(IR_MUL), tmp, tmp); - } - ref = emitir(IRTN(IR_MUL), ref, tmp); - } - return ref; -} - -LJFOLD(POW KNUM any) -LJFOLDF(simplify_numpow_kx) -{ - lua_Number n = knumleft; - if (n == 2.0) { /* 2.0 ^ i ==> ldexp(1.0, tonum(i)) */ - fins->o = IR_CONV; -#if LJ_TARGET_X86ORX64 - fins->op1 = fins->op2; - fins->op2 = IRCONV_NUM_INT; - fins->op2 = (IRRef1)lj_opt_fold(J); -#endif - fins->op1 = (IRRef1)lj_ir_knum_one(J); - fins->o = IR_LDEXP; - return RETRYFOLD; - } - return NEXTFOLD; -} - -/* -- Simplify conversions ------------------------------------------------ */ - -LJFOLD(CONV CONV IRCONV_NUM_INT) /* _NUM */ -LJFOLDF(shortcut_conv_num_int) -{ - PHIBARRIER(fleft); - /* Only safe with a guarded conversion to int. */ - if ((fleft->op2 & IRCONV_SRCMASK) == IRT_NUM && irt_isguard(fleft->t)) - return fleft->op1; /* f(g(x)) ==> x */ - return NEXTFOLD; -} - -LJFOLD(CONV CONV IRCONV_INT_NUM) /* _INT */ -LJFOLD(CONV CONV IRCONV_U32_NUM) /* _U32*/ -LJFOLDF(simplify_conv_int_num) -{ - /* Fold even across PHI to avoid expensive num->int conversions in loop. */ - if ((fleft->op2 & IRCONV_SRCMASK) == - ((fins->op2 & IRCONV_DSTMASK) >> IRCONV_DSH)) - return fleft->op1; - return NEXTFOLD; -} - -LJFOLD(CONV CONV IRCONV_I64_NUM) /* _INT or _U32 */ -LJFOLD(CONV CONV IRCONV_U64_NUM) /* _INT or _U32 */ -LJFOLDF(simplify_conv_i64_num) -{ - PHIBARRIER(fleft); - if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT) { - /* Reduce to a sign-extension. */ - fins->op1 = fleft->op1; - fins->op2 = ((IRT_I64<<5)|IRT_INT|IRCONV_SEXT); - return RETRYFOLD; - } else if ((fleft->op2 & IRCONV_SRCMASK) == IRT_U32) { -#if LJ_TARGET_X64 - return fleft->op1; -#else - /* Reduce to a zero-extension. */ - fins->op1 = fleft->op1; - fins->op2 = (IRT_I64<<5)|IRT_U32; - return RETRYFOLD; -#endif - } - return NEXTFOLD; -} - -LJFOLD(CONV CONV IRCONV_INT_I64) /* _INT or _U32 */ -LJFOLD(CONV CONV IRCONV_INT_U64) /* _INT or _U32 */ -LJFOLD(CONV CONV IRCONV_U32_I64) /* _INT or _U32 */ -LJFOLD(CONV CONV IRCONV_U32_U64) /* _INT or _U32 */ -LJFOLDF(simplify_conv_int_i64) -{ - int src; - PHIBARRIER(fleft); - src = (fleft->op2 & IRCONV_SRCMASK); - if (src == IRT_INT || src == IRT_U32) { - if (src == ((fins->op2 & IRCONV_DSTMASK) >> IRCONV_DSH)) { - return fleft->op1; - } else { - fins->op2 = ((fins->op2 & IRCONV_DSTMASK) | src); - fins->op1 = fleft->op1; - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(CONV CONV IRCONV_FLOAT_NUM) /* _FLOAT */ -LJFOLDF(simplify_conv_flt_num) -{ - PHIBARRIER(fleft); - if ((fleft->op2 & IRCONV_SRCMASK) == IRT_FLOAT) - return fleft->op1; - return NEXTFOLD; -} - -/* Shortcut TOBIT + IRT_NUM <- IRT_INT/IRT_U32 conversion. */ -LJFOLD(TOBIT CONV KNUM) -LJFOLDF(simplify_tobit_conv) -{ - if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT || - (fleft->op2 & IRCONV_SRCMASK) == IRT_U32) { - /* Fold even across PHI to avoid expensive num->int conversions in loop. */ - lua_assert(irt_isnum(fleft->t)); - return fleft->op1; - } - return NEXTFOLD; -} - -/* Shortcut floor/ceil/round + IRT_NUM <- IRT_INT/IRT_U32 conversion. */ -LJFOLD(FPMATH CONV IRFPM_FLOOR) -LJFOLD(FPMATH CONV IRFPM_CEIL) -LJFOLD(FPMATH CONV IRFPM_TRUNC) -LJFOLDF(simplify_floor_conv) -{ - if ((fleft->op2 & IRCONV_SRCMASK) == IRT_INT || - (fleft->op2 & IRCONV_SRCMASK) == IRT_U32) - return LEFTFOLD; - return NEXTFOLD; -} - -/* Strength reduction of widening. */ -LJFOLD(CONV any IRCONV_I64_INT) -LJFOLD(CONV any IRCONV_U64_INT) -LJFOLDF(simplify_conv_sext) -{ - IRRef ref = fins->op1; - int64_t ofs = 0; - if (!(fins->op2 & IRCONV_SEXT)) - return NEXTFOLD; - PHIBARRIER(fleft); - if (fleft->o == IR_XLOAD && (irt_isu8(fleft->t) || irt_isu16(fleft->t))) - goto ok_reduce; - if (fleft->o == IR_ADD && irref_isk(fleft->op2)) { - ofs = (int64_t)IR(fleft->op2)->i; - ref = fleft->op1; - } - /* Use scalar evolution analysis results to strength-reduce sign-extension. */ - if (ref == J->scev.idx) { - IRRef lo = J->scev.dir ? J->scev.start : J->scev.stop; - lua_assert(irt_isint(J->scev.t)); - if (lo && IR(lo)->i + ofs >= 0) { - ok_reduce: -#if LJ_TARGET_X64 - /* Eliminate widening. All 32 bit ops do an implicit zero-extension. */ - return LEFTFOLD; -#else - /* Reduce to a (cheaper) zero-extension. */ - fins->op2 &= ~IRCONV_SEXT; - return RETRYFOLD; -#endif - } - } - return NEXTFOLD; -} - -/* Strength reduction of narrowing. */ -LJFOLD(CONV ADD IRCONV_INT_I64) -LJFOLD(CONV SUB IRCONV_INT_I64) -LJFOLD(CONV MUL IRCONV_INT_I64) -LJFOLD(CONV ADD IRCONV_INT_U64) -LJFOLD(CONV SUB IRCONV_INT_U64) -LJFOLD(CONV MUL IRCONV_INT_U64) -LJFOLD(CONV ADD IRCONV_U32_I64) -LJFOLD(CONV SUB IRCONV_U32_I64) -LJFOLD(CONV MUL IRCONV_U32_I64) -LJFOLD(CONV ADD IRCONV_U32_U64) -LJFOLD(CONV SUB IRCONV_U32_U64) -LJFOLD(CONV MUL IRCONV_U32_U64) -LJFOLDF(simplify_conv_narrow) -{ - IROp op = (IROp)fleft->o; - IRType t = irt_type(fins->t); - IRRef op1 = fleft->op1, op2 = fleft->op2, mode = fins->op2; - PHIBARRIER(fleft); - op1 = emitir(IRTI(IR_CONV), op1, mode); - op2 = emitir(IRTI(IR_CONV), op2, mode); - fins->ot = IRT(op, t); - fins->op1 = op1; - fins->op2 = op2; - return RETRYFOLD; -} - -/* Special CSE rule for CONV. */ -LJFOLD(CONV any any) -LJFOLDF(cse_conv) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { - IRRef op1 = fins->op1, op2 = (fins->op2 & IRCONV_MODEMASK); - uint8_t guard = irt_isguard(fins->t); - IRRef ref = J->chain[IR_CONV]; - while (ref > op1) { - IRIns *ir = IR(ref); - /* Commoning with stronger checks is ok. */ - if (ir->op1 == op1 && (ir->op2 & IRCONV_MODEMASK) == op2 && - irt_isguard(ir->t) >= guard) - return ref; - ref = ir->prev; - } - } - return EMITFOLD; /* No fallthrough to regular CSE. */ -} - -/* FP conversion narrowing. */ -LJFOLD(TOBIT ADD KNUM) -LJFOLD(TOBIT SUB KNUM) -LJFOLD(CONV ADD IRCONV_INT_NUM) -LJFOLD(CONV SUB IRCONV_INT_NUM) -LJFOLD(CONV ADD IRCONV_I64_NUM) -LJFOLD(CONV SUB IRCONV_I64_NUM) -LJFOLDF(narrow_convert) -{ - PHIBARRIER(fleft); - /* Narrowing ignores PHIs and repeating it inside the loop is not useful. */ - if (J->chain[IR_LOOP]) - return NEXTFOLD; - lua_assert(fins->o != IR_CONV || (fins->op2&IRCONV_CONVMASK) != IRCONV_TOBIT); - return lj_opt_narrow_convert(J); -} - -/* -- Integer algebraic simplifications ----------------------------------- */ - -LJFOLD(ADD any KINT) -LJFOLD(ADDOV any KINT) -LJFOLD(SUBOV any KINT) -LJFOLDF(simplify_intadd_k) -{ - if (fright->i == 0) /* i o 0 ==> i */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(MULOV any KINT) -LJFOLDF(simplify_intmul_k) -{ - if (fright->i == 0) /* i * 0 ==> 0 */ - return RIGHTFOLD; - if (fright->i == 1) /* i * 1 ==> i */ - return LEFTFOLD; - if (fright->i == 2) { /* i * 2 ==> i + i */ - fins->o = IR_ADDOV; - fins->op2 = fins->op1; - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(SUB any KINT) -LJFOLDF(simplify_intsub_k) -{ - if (fright->i == 0) /* i - 0 ==> i */ - return LEFTFOLD; - fins->o = IR_ADD; /* i - k ==> i + (-k) */ - fins->op2 = (IRRef1)lj_ir_kint(J, -fright->i); /* Overflow for -2^31 ok. */ - return RETRYFOLD; -} - -LJFOLD(SUB KINT any) -LJFOLD(SUB KINT64 any) -LJFOLDF(simplify_intsub_kleft) -{ - if (fleft->o == IR_KINT ? (fleft->i == 0) : (ir_kint64(fleft)->u64 == 0)) { - fins->o = IR_NEG; /* 0 - i ==> -i */ - fins->op1 = fins->op2; - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(ADD any KINT64) -LJFOLDF(simplify_intadd_k64) -{ - if (ir_kint64(fright)->u64 == 0) /* i + 0 ==> i */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(SUB any KINT64) -LJFOLDF(simplify_intsub_k64) -{ - uint64_t k = ir_kint64(fright)->u64; - if (k == 0) /* i - 0 ==> i */ - return LEFTFOLD; - fins->o = IR_ADD; /* i - k ==> i + (-k) */ - fins->op2 = (IRRef1)lj_ir_kint64(J, (uint64_t)-(int64_t)k); - return RETRYFOLD; -} - -static TRef simplify_intmul_k(jit_State *J, int32_t k) -{ - /* Note: many more simplifications are possible, e.g. 2^k1 +- 2^k2. - ** But this is mainly intended for simple address arithmetic. - ** Also it's easier for the backend to optimize the original multiplies. - */ - if (k == 0) { /* i * 0 ==> 0 */ - return RIGHTFOLD; - } else if (k == 1) { /* i * 1 ==> i */ - return LEFTFOLD; - } else if ((k & (k-1)) == 0) { /* i * 2^k ==> i << k */ - fins->o = IR_BSHL; - fins->op2 = lj_ir_kint(J, lj_fls((uint32_t)k)); - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(MUL any KINT) -LJFOLDF(simplify_intmul_k32) -{ - if (fright->i >= 0) - return simplify_intmul_k(J, fright->i); - return NEXTFOLD; -} - -LJFOLD(MUL any KINT64) -LJFOLDF(simplify_intmul_k64) -{ -#if LJ_HASFFI - if (ir_kint64(fright)->u64 < 0x80000000u) - return simplify_intmul_k(J, (int32_t)ir_kint64(fright)->u64); - return NEXTFOLD; -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(MOD any KINT) -LJFOLDF(simplify_intmod_k) -{ - int32_t k = fright->i; - lua_assert(k != 0); - if (k > 0 && (k & (k-1)) == 0) { /* i % (2^k) ==> i & (2^k-1) */ - fins->o = IR_BAND; - fins->op2 = lj_ir_kint(J, k-1); - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(MOD KINT any) -LJFOLDF(simplify_intmod_kleft) -{ - if (fleft->i == 0) - return INTFOLD(0); - return NEXTFOLD; -} - -LJFOLD(SUB any any) -LJFOLD(SUBOV any any) -LJFOLDF(simplify_intsub) -{ - if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) /* i - i ==> 0 */ - return irt_is64(fins->t) ? INT64FOLD(0) : INTFOLD(0); - return NEXTFOLD; -} - -LJFOLD(SUB ADD any) -LJFOLDF(simplify_intsubadd_leftcancel) -{ - if (!irt_isnum(fins->t)) { - PHIBARRIER(fleft); - if (fins->op2 == fleft->op1) /* (i + j) - i ==> j */ - return fleft->op2; - if (fins->op2 == fleft->op2) /* (i + j) - j ==> i */ - return fleft->op1; - } - return NEXTFOLD; -} - -LJFOLD(SUB SUB any) -LJFOLDF(simplify_intsubsub_leftcancel) -{ - if (!irt_isnum(fins->t)) { - PHIBARRIER(fleft); - if (fins->op2 == fleft->op1) { /* (i - j) - i ==> 0 - j */ - fins->op1 = (IRRef1)lj_ir_kint(J, 0); - fins->op2 = fleft->op2; - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(SUB any SUB) -LJFOLDF(simplify_intsubsub_rightcancel) -{ - if (!irt_isnum(fins->t)) { - PHIBARRIER(fright); - if (fins->op1 == fright->op1) /* i - (i - j) ==> j */ - return fright->op2; - } - return NEXTFOLD; -} - -LJFOLD(SUB any ADD) -LJFOLDF(simplify_intsubadd_rightcancel) -{ - if (!irt_isnum(fins->t)) { - PHIBARRIER(fright); - if (fins->op1 == fright->op1) { /* i - (i + j) ==> 0 - j */ - fins->op2 = fright->op2; - fins->op1 = (IRRef1)lj_ir_kint(J, 0); - return RETRYFOLD; - } - if (fins->op1 == fright->op2) { /* i - (j + i) ==> 0 - j */ - fins->op2 = fright->op1; - fins->op1 = (IRRef1)lj_ir_kint(J, 0); - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(SUB ADD ADD) -LJFOLDF(simplify_intsubaddadd_cancel) -{ - if (!irt_isnum(fins->t)) { - PHIBARRIER(fleft); - PHIBARRIER(fright); - if (fleft->op1 == fright->op1) { /* (i + j1) - (i + j2) ==> j1 - j2 */ - fins->op1 = fleft->op2; - fins->op2 = fright->op2; - return RETRYFOLD; - } - if (fleft->op1 == fright->op2) { /* (i + j1) - (j2 + i) ==> j1 - j2 */ - fins->op1 = fleft->op2; - fins->op2 = fright->op1; - return RETRYFOLD; - } - if (fleft->op2 == fright->op1) { /* (j1 + i) - (i + j2) ==> j1 - j2 */ - fins->op1 = fleft->op1; - fins->op2 = fright->op2; - return RETRYFOLD; - } - if (fleft->op2 == fright->op2) { /* (j1 + i) - (j2 + i) ==> j1 - j2 */ - fins->op1 = fleft->op1; - fins->op2 = fright->op1; - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(BAND any KINT) -LJFOLD(BAND any KINT64) -LJFOLDF(simplify_band_k) -{ - int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : - (int64_t)ir_k64(fright)->u64; - if (k == 0) /* i & 0 ==> 0 */ - return RIGHTFOLD; - if (k == -1) /* i & -1 ==> i */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(BOR any KINT) -LJFOLD(BOR any KINT64) -LJFOLDF(simplify_bor_k) -{ - int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : - (int64_t)ir_k64(fright)->u64; - if (k == 0) /* i | 0 ==> i */ - return LEFTFOLD; - if (k == -1) /* i | -1 ==> -1 */ - return RIGHTFOLD; - return NEXTFOLD; -} - -LJFOLD(BXOR any KINT) -LJFOLD(BXOR any KINT64) -LJFOLDF(simplify_bxor_k) -{ - int64_t k = fright->o == IR_KINT ? (int64_t)fright->i : - (int64_t)ir_k64(fright)->u64; - if (k == 0) /* i xor 0 ==> i */ - return LEFTFOLD; - if (k == -1) { /* i xor -1 ==> ~i */ - fins->o = IR_BNOT; - fins->op2 = 0; - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(BSHL any KINT) -LJFOLD(BSHR any KINT) -LJFOLD(BSAR any KINT) -LJFOLD(BROL any KINT) -LJFOLD(BROR any KINT) -LJFOLDF(simplify_shift_ik) -{ - int32_t mask = irt_is64(fins->t) ? 63 : 31; - int32_t k = (fright->i & mask); - if (k == 0) /* i o 0 ==> i */ - return LEFTFOLD; - if (k == 1 && fins->o == IR_BSHL) { /* i << 1 ==> i + i */ - fins->o = IR_ADD; - fins->op2 = fins->op1; - return RETRYFOLD; - } - if (k != fright->i) { /* i o k ==> i o (k & mask) */ - fins->op2 = (IRRef1)lj_ir_kint(J, k); - return RETRYFOLD; - } -#ifndef LJ_TARGET_UNIFYROT - if (fins->o == IR_BROR) { /* bror(i, k) ==> brol(i, (-k)&mask) */ - fins->o = IR_BROL; - fins->op2 = (IRRef1)lj_ir_kint(J, (-k)&mask); - return RETRYFOLD; - } -#endif - return NEXTFOLD; -} - -LJFOLD(BSHL any BAND) -LJFOLD(BSHR any BAND) -LJFOLD(BSAR any BAND) -LJFOLD(BROL any BAND) -LJFOLD(BROR any BAND) -LJFOLDF(simplify_shift_andk) -{ - IRIns *irk = IR(fright->op2); - PHIBARRIER(fright); - if ((fins->o < IR_BROL ? LJ_TARGET_MASKSHIFT : LJ_TARGET_MASKROT) && - irk->o == IR_KINT) { /* i o (j & mask) ==> i o j */ - int32_t mask = irt_is64(fins->t) ? 63 : 31; - int32_t k = irk->i & mask; - if (k == mask) { - fins->op2 = fright->op1; - return RETRYFOLD; - } - } - return NEXTFOLD; -} - -LJFOLD(BSHL KINT any) -LJFOLD(BSHR KINT any) -LJFOLD(BSHL KINT64 any) -LJFOLD(BSHR KINT64 any) -LJFOLDF(simplify_shift1_ki) -{ - int64_t k = fleft->o == IR_KINT ? (int64_t)fleft->i : - (int64_t)ir_k64(fleft)->u64; - if (k == 0) /* 0 o i ==> 0 */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(BSAR KINT any) -LJFOLD(BROL KINT any) -LJFOLD(BROR KINT any) -LJFOLD(BSAR KINT64 any) -LJFOLD(BROL KINT64 any) -LJFOLD(BROR KINT64 any) -LJFOLDF(simplify_shift2_ki) -{ - int64_t k = fleft->o == IR_KINT ? (int64_t)fleft->i : - (int64_t)ir_k64(fleft)->u64; - if (k == 0 || k == -1) /* 0 o i ==> 0; -1 o i ==> -1 */ - return LEFTFOLD; - return NEXTFOLD; -} - -LJFOLD(BSHL BAND KINT) -LJFOLD(BSHR BAND KINT) -LJFOLD(BROL BAND KINT) -LJFOLD(BROR BAND KINT) -LJFOLDF(simplify_shiftk_andk) -{ - IRIns *irk = IR(fleft->op2); - PHIBARRIER(fleft); - if (irk->o == IR_KINT) { /* (i & k1) o k2 ==> (i o k2) & (k1 o k2) */ - int32_t k = kfold_intop(irk->i, fright->i, (IROp)fins->o); - fins->op1 = fleft->op1; - fins->op1 = (IRRef1)lj_opt_fold(J); - fins->op2 = (IRRef1)lj_ir_kint(J, k); - fins->ot = IRTI(IR_BAND); - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(BAND BSHL KINT) -LJFOLD(BAND BSHR KINT) -LJFOLDF(simplify_andk_shiftk) -{ - IRIns *irk = IR(fleft->op2); - if (irk->o == IR_KINT && - kfold_intop(-1, irk->i, (IROp)fleft->o) == fright->i) - return LEFTFOLD; /* (i o k1) & k2 ==> i, if (-1 o k1) == k2 */ - return NEXTFOLD; -} - -/* -- Reassociation ------------------------------------------------------- */ - -LJFOLD(ADD ADD KINT) -LJFOLD(MUL MUL KINT) -LJFOLD(BAND BAND KINT) -LJFOLD(BOR BOR KINT) -LJFOLD(BXOR BXOR KINT) -LJFOLDF(reassoc_intarith_k) -{ - IRIns *irk = IR(fleft->op2); - if (irk->o == IR_KINT) { - int32_t k = kfold_intop(irk->i, fright->i, (IROp)fins->o); - if (k == irk->i) /* (i o k1) o k2 ==> i o k1, if (k1 o k2) == k1. */ - return LEFTFOLD; - PHIBARRIER(fleft); - fins->op1 = fleft->op1; - fins->op2 = (IRRef1)lj_ir_kint(J, k); - return RETRYFOLD; /* (i o k1) o k2 ==> i o (k1 o k2) */ - } - return NEXTFOLD; -} - -LJFOLD(ADD ADD KINT64) -LJFOLD(MUL MUL KINT64) -LJFOLD(BAND BAND KINT64) -LJFOLD(BOR BOR KINT64) -LJFOLD(BXOR BXOR KINT64) -LJFOLDF(reassoc_intarith_k64) -{ -#if LJ_HASFFI - IRIns *irk = IR(fleft->op2); - if (irk->o == IR_KINT64) { - uint64_t k = kfold_int64arith(ir_k64(irk)->u64, - ir_k64(fright)->u64, (IROp)fins->o); - PHIBARRIER(fleft); - fins->op1 = fleft->op1; - fins->op2 = (IRRef1)lj_ir_kint64(J, k); - return RETRYFOLD; /* (i o k1) o k2 ==> i o (k1 o k2) */ - } - return NEXTFOLD; -#else - UNUSED(J); lua_assert(0); return FAILFOLD; -#endif -} - -LJFOLD(MIN MIN any) -LJFOLD(MAX MAX any) -LJFOLD(BAND BAND any) -LJFOLD(BOR BOR any) -LJFOLDF(reassoc_dup) -{ - if (fins->op2 == fleft->op1 || fins->op2 == fleft->op2) - return LEFTFOLD; /* (a o b) o a ==> a o b; (a o b) o b ==> a o b */ - return NEXTFOLD; -} - -LJFOLD(BXOR BXOR any) -LJFOLDF(reassoc_bxor) -{ - PHIBARRIER(fleft); - if (fins->op2 == fleft->op1) /* (a xor b) xor a ==> b */ - return fleft->op2; - if (fins->op2 == fleft->op2) /* (a xor b) xor b ==> a */ - return fleft->op1; - return NEXTFOLD; -} - -LJFOLD(BSHL BSHL KINT) -LJFOLD(BSHR BSHR KINT) -LJFOLD(BSAR BSAR KINT) -LJFOLD(BROL BROL KINT) -LJFOLD(BROR BROR KINT) -LJFOLDF(reassoc_shift) -{ - IRIns *irk = IR(fleft->op2); - PHIBARRIER(fleft); /* The (shift any KINT) rule covers k2 == 0 and more. */ - if (irk->o == IR_KINT) { /* (i o k1) o k2 ==> i o (k1 + k2) */ - int32_t mask = irt_is64(fins->t) ? 63 : 31; - int32_t k = (irk->i & mask) + (fright->i & mask); - if (k > mask) { /* Combined shift too wide? */ - if (fins->o == IR_BSHL || fins->o == IR_BSHR) - return mask == 31 ? INTFOLD(0) : INT64FOLD(0); - else if (fins->o == IR_BSAR) - k = mask; - else - k &= mask; - } - fins->op1 = fleft->op1; - fins->op2 = (IRRef1)lj_ir_kint(J, k); - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(MIN MIN KNUM) -LJFOLD(MAX MAX KNUM) -LJFOLD(MIN MIN KINT) -LJFOLD(MAX MAX KINT) -LJFOLDF(reassoc_minmax_k) -{ - IRIns *irk = IR(fleft->op2); - if (irk->o == IR_KNUM) { - lua_Number a = ir_knum(irk)->n; - lua_Number y = lj_vm_foldarith(a, knumright, fins->o - IR_ADD); - if (a == y) /* (x o k1) o k2 ==> x o k1, if (k1 o k2) == k1. */ - return LEFTFOLD; - PHIBARRIER(fleft); - fins->op1 = fleft->op1; - fins->op2 = (IRRef1)lj_ir_knum(J, y); - return RETRYFOLD; /* (x o k1) o k2 ==> x o (k1 o k2) */ - } else if (irk->o == IR_KINT) { - int32_t a = irk->i; - int32_t y = kfold_intop(a, fright->i, fins->o); - if (a == y) /* (x o k1) o k2 ==> x o k1, if (k1 o k2) == k1. */ - return LEFTFOLD; - PHIBARRIER(fleft); - fins->op1 = fleft->op1; - fins->op2 = (IRRef1)lj_ir_kint(J, y); - return RETRYFOLD; /* (x o k1) o k2 ==> x o (k1 o k2) */ - } - return NEXTFOLD; -} - -LJFOLD(MIN MAX any) -LJFOLD(MAX MIN any) -LJFOLDF(reassoc_minmax_left) -{ - if (fins->op2 == fleft->op1 || fins->op2 == fleft->op2) - return RIGHTFOLD; /* (b o1 a) o2 b ==> b; (a o1 b) o2 b ==> b */ - return NEXTFOLD; -} - -LJFOLD(MIN any MAX) -LJFOLD(MAX any MIN) -LJFOLDF(reassoc_minmax_right) -{ - if (fins->op1 == fright->op1 || fins->op1 == fright->op2) - return LEFTFOLD; /* a o2 (a o1 b) ==> a; a o2 (b o1 a) ==> a */ - return NEXTFOLD; -} - -/* -- Array bounds check elimination -------------------------------------- */ - -/* Eliminate ABC across PHIs to handle t[i-1] forwarding case. -** ABC(asize, (i+k)+(-k)) ==> ABC(asize, i), but only if it already exists. -** Could be generalized to (i+k1)+k2 ==> i+(k1+k2), but needs better disambig. -*/ -LJFOLD(ABC any ADD) -LJFOLDF(abc_fwd) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_ABC)) { - if (irref_isk(fright->op2)) { - IRIns *add2 = IR(fright->op1); - if (add2->o == IR_ADD && irref_isk(add2->op2) && - IR(fright->op2)->i == -IR(add2->op2)->i) { - IRRef ref = J->chain[IR_ABC]; - IRRef lim = add2->op1; - if (fins->op1 > lim) lim = fins->op1; - while (ref > lim) { - IRIns *ir = IR(ref); - if (ir->op1 == fins->op1 && ir->op2 == add2->op1) - return DROPFOLD; - ref = ir->prev; - } - } - } - } - return NEXTFOLD; -} - -/* Eliminate ABC for constants. -** ABC(asize, k1), ABC(asize k2) ==> ABC(asize, max(k1, k2)) -** Drop second ABC if k2 is lower. Otherwise patch first ABC with k2. -*/ -LJFOLD(ABC any KINT) -LJFOLDF(abc_k) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_ABC)) { - IRRef ref = J->chain[IR_ABC]; - IRRef asize = fins->op1; - while (ref > asize) { - IRIns *ir = IR(ref); - if (ir->op1 == asize && irref_isk(ir->op2)) { - int32_t k = IR(ir->op2)->i; - if (fright->i > k) - ir->op2 = fins->op2; - return DROPFOLD; - } - ref = ir->prev; - } - return EMITFOLD; /* Already performed CSE. */ - } - return NEXTFOLD; -} - -/* Eliminate invariant ABC inside loop. */ -LJFOLD(ABC any any) -LJFOLDF(abc_invar) -{ - /* Invariant ABC marked as PTR. Drop if op1 is invariant, too. */ - if (!irt_isint(fins->t) && fins->op1 < J->chain[IR_LOOP] && - !irt_isphi(IR(fins->op1)->t)) - return DROPFOLD; - return NEXTFOLD; -} - -/* -- Commutativity ------------------------------------------------------- */ - -/* The refs of commutative ops are canonicalized. Lower refs go to the right. -** Rationale behind this: -** - It (also) moves constants to the right. -** - It reduces the number of FOLD rules (e.g. (BOR any KINT) suffices). -** - It helps CSE to find more matches. -** - The assembler generates better code with constants at the right. -*/ - -LJFOLD(ADD any any) -LJFOLD(MUL any any) -LJFOLD(ADDOV any any) -LJFOLD(MULOV any any) -LJFOLDF(comm_swap) -{ - if (fins->op1 < fins->op2) { /* Move lower ref to the right. */ - IRRef1 tmp = fins->op1; - fins->op1 = fins->op2; - fins->op2 = tmp; - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(EQ any any) -LJFOLD(NE any any) -LJFOLDF(comm_equal) -{ - /* For non-numbers only: x == x ==> drop; x ~= x ==> fail */ - if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) - return CONDFOLD(fins->o == IR_EQ); - return fold_comm_swap(J); -} - -LJFOLD(LT any any) -LJFOLD(GE any any) -LJFOLD(LE any any) -LJFOLD(GT any any) -LJFOLD(ULT any any) -LJFOLD(UGE any any) -LJFOLD(ULE any any) -LJFOLD(UGT any any) -LJFOLDF(comm_comp) -{ - /* For non-numbers only: x <=> x ==> drop; x <> x ==> fail */ - if (fins->op1 == fins->op2 && !irt_isnum(fins->t)) - return CONDFOLD((fins->o ^ (fins->o >> 1)) & 1); - if (fins->op1 < fins->op2) { /* Move lower ref to the right. */ - IRRef1 tmp = fins->op1; - fins->op1 = fins->op2; - fins->op2 = tmp; - fins->o ^= 3; /* GT <-> LT, GE <-> LE, does not affect U */ - return RETRYFOLD; - } - return NEXTFOLD; -} - -LJFOLD(BAND any any) -LJFOLD(BOR any any) -LJFOLD(MIN any any) -LJFOLD(MAX any any) -LJFOLDF(comm_dup) -{ - if (fins->op1 == fins->op2) /* x o x ==> x */ - return LEFTFOLD; - return fold_comm_swap(J); -} - -LJFOLD(BXOR any any) -LJFOLDF(comm_bxor) -{ - if (fins->op1 == fins->op2) /* i xor i ==> 0 */ - return irt_is64(fins->t) ? INT64FOLD(0) : INTFOLD(0); - return fold_comm_swap(J); -} - -/* -- Simplification of compound expressions ------------------------------ */ - -static TRef kfold_xload(jit_State *J, IRIns *ir, const void *p) -{ - int32_t k; - switch (irt_type(ir->t)) { - case IRT_NUM: return lj_ir_knum_u64(J, *(uint64_t *)p); - case IRT_I8: k = (int32_t)*(int8_t *)p; break; - case IRT_U8: k = (int32_t)*(uint8_t *)p; break; - case IRT_I16: k = (int32_t)(int16_t)lj_getu16(p); break; - case IRT_U16: k = (int32_t)(uint16_t)lj_getu16(p); break; - case IRT_INT: case IRT_U32: k = (int32_t)lj_getu32(p); break; - case IRT_I64: case IRT_U64: return lj_ir_kint64(J, *(uint64_t *)p); - default: return 0; - } - return lj_ir_kint(J, k); -} - -/* Turn: string.sub(str, a, b) == kstr -** into: string.byte(str, a) == string.byte(kstr, 1) etc. -** Note: this creates unaligned XLOADs on x86/x64. -*/ -LJFOLD(EQ SNEW KGC) -LJFOLD(NE SNEW KGC) -LJFOLDF(merge_eqne_snew_kgc) -{ - GCstr *kstr = ir_kstr(fright); - int32_t len = (int32_t)kstr->len; - lua_assert(irt_isstr(fins->t)); - -#if LJ_TARGET_UNALIGNED -#define FOLD_SNEW_MAX_LEN 4 /* Handle string lengths 0, 1, 2, 3, 4. */ -#define FOLD_SNEW_TYPE8 IRT_I8 /* Creates shorter immediates. */ -#else -#define FOLD_SNEW_MAX_LEN 1 /* Handle string lengths 0 or 1. */ -#define FOLD_SNEW_TYPE8 IRT_U8 /* Prefer unsigned loads. */ -#endif - - PHIBARRIER(fleft); - if (len <= FOLD_SNEW_MAX_LEN) { - IROp op = (IROp)fins->o; - IRRef strref = fleft->op1; - if (IR(strref)->o != IR_STRREF) - return NEXTFOLD; - if (op == IR_EQ) { - emitir(IRTGI(IR_EQ), fleft->op2, lj_ir_kint(J, len)); - /* Caveat: fins/fleft/fright is no longer valid after emitir. */ - } else { - /* NE is not expanded since this would need an OR of two conds. */ - if (!irref_isk(fleft->op2)) /* Only handle the constant length case. */ - return NEXTFOLD; - if (IR(fleft->op2)->i != len) - return DROPFOLD; - } - if (len > 0) { - /* A 4 byte load for length 3 is ok -- all strings have an extra NUL. */ - uint16_t ot = (uint16_t)(len == 1 ? IRT(IR_XLOAD, FOLD_SNEW_TYPE8) : - len == 2 ? IRT(IR_XLOAD, IRT_U16) : - IRTI(IR_XLOAD)); - TRef tmp = emitir(ot, strref, - IRXLOAD_READONLY | (len > 1 ? IRXLOAD_UNALIGNED : 0)); - TRef val = kfold_xload(J, IR(tref_ref(tmp)), strdata(kstr)); - if (len == 3) - tmp = emitir(IRTI(IR_BAND), tmp, - lj_ir_kint(J, LJ_ENDIAN_SELECT(0x00ffffff, 0xffffff00))); - fins->op1 = (IRRef1)tmp; - fins->op2 = (IRRef1)val; - fins->ot = (IROpT)IRTGI(op); - return RETRYFOLD; - } else { - return DROPFOLD; - } - } - return NEXTFOLD; -} - -/* -- Loads --------------------------------------------------------------- */ - -/* Loads cannot be folded or passed on to CSE in general. -** Alias analysis is needed to check for forwarding opportunities. -** -** Caveat: *all* loads must be listed here or they end up at CSE! -*/ - -LJFOLD(ALOAD any) -LJFOLDX(lj_opt_fwd_aload) - -/* From HREF fwd (see below). Must eliminate, not supported by fwd/backend. */ -LJFOLD(HLOAD KKPTR) -LJFOLDF(kfold_hload_kkptr) -{ - UNUSED(J); - lua_assert(ir_kptr(fleft) == niltvg(J2G(J))); - return TREF_NIL; -} - -LJFOLD(HLOAD any) -LJFOLDX(lj_opt_fwd_hload) - -LJFOLD(ULOAD any) -LJFOLDX(lj_opt_fwd_uload) - -LJFOLD(CALLL any IRCALL_lj_tab_len) -LJFOLDX(lj_opt_fwd_tab_len) - -/* Upvalue refs are really loads, but there are no corresponding stores. -** So CSE is ok for them, except for UREFO across a GC step (see below). -** If the referenced function is const, its upvalue addresses are const, too. -** This can be used to improve CSE by looking for the same address, -** even if the upvalues originate from a different function. -*/ -LJFOLD(UREFO KGC any) -LJFOLD(UREFC KGC any) -LJFOLDF(cse_uref) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { - IRRef ref = J->chain[fins->o]; - GCfunc *fn = ir_kfunc(fleft); - GCupval *uv = gco2uv(gcref(fn->l.uvptr[(fins->op2 >> 8)])); - while (ref > 0) { - IRIns *ir = IR(ref); - if (irref_isk(ir->op1)) { - GCfunc *fn2 = ir_kfunc(IR(ir->op1)); - if (gco2uv(gcref(fn2->l.uvptr[(ir->op2 >> 8)])) == uv) { - if (fins->o == IR_UREFO && gcstep_barrier(J, ref)) - break; - return ref; - } - } - ref = ir->prev; - } - } - return EMITFOLD; -} - -LJFOLD(HREFK any any) -LJFOLDX(lj_opt_fwd_hrefk) - -LJFOLD(HREF TNEW any) -LJFOLDF(fwd_href_tnew) -{ - if (lj_opt_fwd_href_nokey(J)) - return lj_ir_kkptr(J, niltvg(J2G(J))); - return NEXTFOLD; -} - -LJFOLD(HREF TDUP KPRI) -LJFOLD(HREF TDUP KGC) -LJFOLD(HREF TDUP KNUM) -LJFOLDF(fwd_href_tdup) -{ - TValue keyv; - lj_ir_kvalue(J->L, &keyv, fright); - if (lj_tab_get(J->L, ir_ktab(IR(fleft->op1)), &keyv) == niltvg(J2G(J)) && - lj_opt_fwd_href_nokey(J)) - return lj_ir_kkptr(J, niltvg(J2G(J))); - return NEXTFOLD; -} - -/* We can safely FOLD/CSE array/hash refs and field loads, since there -** are no corresponding stores. But we need to check for any NEWREF with -** an aliased table, as it may invalidate all of the pointers and fields. -** Only HREF needs the NEWREF check -- AREF and HREFK already depend on -** FLOADs. And NEWREF itself is treated like a store (see below). -** LREF is constant (per trace) since coroutine switches are not inlined. -*/ -LJFOLD(FLOAD TNEW IRFL_TAB_ASIZE) -LJFOLDF(fload_tab_tnew_asize) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) - return INTFOLD(fleft->op1); - return NEXTFOLD; -} - -LJFOLD(FLOAD TNEW IRFL_TAB_HMASK) -LJFOLDF(fload_tab_tnew_hmask) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) - return INTFOLD((1 << fleft->op2)-1); - return NEXTFOLD; -} - -LJFOLD(FLOAD TDUP IRFL_TAB_ASIZE) -LJFOLDF(fload_tab_tdup_asize) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) - return INTFOLD((int32_t)ir_ktab(IR(fleft->op1))->asize); - return NEXTFOLD; -} - -LJFOLD(FLOAD TDUP IRFL_TAB_HMASK) -LJFOLDF(fload_tab_tdup_hmask) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && lj_opt_fwd_tptr(J, fins->op1)) - return INTFOLD((int32_t)ir_ktab(IR(fleft->op1))->hmask); - return NEXTFOLD; -} - -LJFOLD(HREF any any) -LJFOLD(FLOAD any IRFL_TAB_ARRAY) -LJFOLD(FLOAD any IRFL_TAB_NODE) -LJFOLD(FLOAD any IRFL_TAB_ASIZE) -LJFOLD(FLOAD any IRFL_TAB_HMASK) -LJFOLDF(fload_tab_ah) -{ - TRef tr = lj_opt_cse(J); - return lj_opt_fwd_tptr(J, tref_ref(tr)) ? tr : EMITFOLD; -} - -/* Strings are immutable, so we can safely FOLD/CSE the related FLOAD. */ -LJFOLD(FLOAD KGC IRFL_STR_LEN) -LJFOLDF(fload_str_len_kgc) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) - return INTFOLD((int32_t)ir_kstr(fleft)->len); - return NEXTFOLD; -} - -LJFOLD(FLOAD SNEW IRFL_STR_LEN) -LJFOLDF(fload_str_len_snew) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { - PHIBARRIER(fleft); - return fleft->op2; - } - return NEXTFOLD; -} - -LJFOLD(FLOAD TOSTR IRFL_STR_LEN) -LJFOLDF(fload_str_len_tostr) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) && fleft->op2 == IRTOSTR_CHAR) - return INTFOLD(1); - return NEXTFOLD; -} - -/* The C type ID of cdata objects is immutable. */ -LJFOLD(FLOAD KGC IRFL_CDATA_CTYPEID) -LJFOLDF(fload_cdata_typeid_kgc) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) - return INTFOLD((int32_t)ir_kcdata(fleft)->ctypeid); - return NEXTFOLD; -} - -/* Get the contents of immutable cdata objects. */ -LJFOLD(FLOAD KGC IRFL_CDATA_PTR) -LJFOLD(FLOAD KGC IRFL_CDATA_INT) -LJFOLD(FLOAD KGC IRFL_CDATA_INT64) -LJFOLDF(fload_cdata_int64_kgc) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) { - void *p = cdataptr(ir_kcdata(fleft)); - if (irt_is64(fins->t)) - return INT64FOLD(*(uint64_t *)p); - else - return INTFOLD(*(int32_t *)p); - } - return NEXTFOLD; -} - -LJFOLD(FLOAD CNEW IRFL_CDATA_CTYPEID) -LJFOLD(FLOAD CNEWI IRFL_CDATA_CTYPEID) -LJFOLDF(fload_cdata_typeid_cnew) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) - return fleft->op1; /* No PHI barrier needed. CNEW/CNEWI op1 is const. */ - return NEXTFOLD; -} - -/* Pointer, int and int64 cdata objects are immutable. */ -LJFOLD(FLOAD CNEWI IRFL_CDATA_PTR) -LJFOLD(FLOAD CNEWI IRFL_CDATA_INT) -LJFOLD(FLOAD CNEWI IRFL_CDATA_INT64) -LJFOLDF(fload_cdata_ptr_int64_cnew) -{ - if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD)) - return fleft->op2; /* Fold even across PHI to avoid allocations. */ - return NEXTFOLD; -} - -LJFOLD(FLOAD any IRFL_STR_LEN) -LJFOLD(FLOAD any IRFL_FUNC_ENV) -LJFOLD(FLOAD any IRFL_THREAD_ENV) -LJFOLD(FLOAD any IRFL_CDATA_CTYPEID) -LJFOLD(FLOAD any IRFL_CDATA_PTR) -LJFOLD(FLOAD any IRFL_CDATA_INT) -LJFOLD(FLOAD any IRFL_CDATA_INT64) -LJFOLD(VLOAD any any) /* Vararg loads have no corresponding stores. */ -LJFOLDX(lj_opt_cse) - -/* All other field loads need alias analysis. */ -LJFOLD(FLOAD any any) -LJFOLDX(lj_opt_fwd_fload) - -/* This is for LOOP only. Recording handles SLOADs internally. */ -LJFOLD(SLOAD any any) -LJFOLDF(fwd_sload) -{ - if ((fins->op2 & IRSLOAD_FRAME)) { - TRef tr = lj_opt_cse(J); - return tref_ref(tr) < J->chain[IR_RETF] ? EMITFOLD : tr; - } else { - lua_assert(J->slot[fins->op1] != 0); - return J->slot[fins->op1]; - } -} - -/* Only fold for KKPTR. The pointer _and_ the contents must be const. */ -LJFOLD(XLOAD KKPTR any) -LJFOLDF(xload_kptr) -{ - TRef tr = kfold_xload(J, fins, ir_kptr(fleft)); - return tr ? tr : NEXTFOLD; -} - -LJFOLD(XLOAD any any) -LJFOLDX(lj_opt_fwd_xload) - -/* -- Write barriers ------------------------------------------------------ */ - -/* Write barriers are amenable to CSE, but not across any incremental -** GC steps. -** -** The same logic applies to open upvalue references, because a stack -** may be resized during a GC step (not the current stack, but maybe that -** of a coroutine). -*/ -LJFOLD(TBAR any) -LJFOLD(OBAR any any) -LJFOLD(UREFO any any) -LJFOLDF(barrier_tab) -{ - TRef tr = lj_opt_cse(J); - if (gcstep_barrier(J, tref_ref(tr))) /* CSE across GC step? */ - return EMITFOLD; /* Raw emit. Assumes fins is left intact by CSE. */ - return tr; -} - -LJFOLD(TBAR TNEW) -LJFOLD(TBAR TDUP) -LJFOLDF(barrier_tnew_tdup) -{ - /* New tables are always white and never need a barrier. */ - if (fins->op1 < J->chain[IR_LOOP]) /* Except across a GC step. */ - return NEXTFOLD; - return DROPFOLD; -} - -/* -- Profiling ----------------------------------------------------------- */ - -LJFOLD(PROF any any) -LJFOLDF(prof) -{ - IRRef ref = J->chain[IR_PROF]; - if (ref+1 == J->cur.nins) /* Drop neighbouring IR_PROF. */ - return ref; - return EMITFOLD; -} - -/* -- Stores and allocations ---------------------------------------------- */ - -/* Stores and allocations cannot be folded or passed on to CSE in general. -** But some stores can be eliminated with dead-store elimination (DSE). -** -** Caveat: *all* stores and allocs must be listed here or they end up at CSE! -*/ - -LJFOLD(ASTORE any any) -LJFOLD(HSTORE any any) -LJFOLDX(lj_opt_dse_ahstore) - -LJFOLD(USTORE any any) -LJFOLDX(lj_opt_dse_ustore) - -LJFOLD(FSTORE any any) -LJFOLDX(lj_opt_dse_fstore) - -LJFOLD(XSTORE any any) -LJFOLDX(lj_opt_dse_xstore) - -LJFOLD(NEWREF any any) /* Treated like a store. */ -LJFOLD(CALLA any any) -LJFOLD(CALLL any any) /* Safeguard fallback. */ -LJFOLD(CALLS any any) -LJFOLD(CALLXS any any) -LJFOLD(XBAR) -LJFOLD(RETF any any) /* Modifies BASE. */ -LJFOLD(TNEW any any) -LJFOLD(TDUP any) -LJFOLD(CNEW any any) -LJFOLD(XSNEW any any) -LJFOLD(BUFHDR any any) -LJFOLDX(lj_ir_emit) - -/* ------------------------------------------------------------------------ */ - -/* Every entry in the generated hash table is a 32 bit pattern: -** -** xxxxxxxx iiiiiii lllllll rrrrrrrrrr -** -** xxxxxxxx = 8 bit index into fold function table -** iiiiiii = 7 bit folded instruction opcode -** lllllll = 7 bit left instruction opcode -** rrrrrrrrrr = 8 bit right instruction opcode or 10 bits from literal field -*/ - -#include "lj_folddef.h" - -/* ------------------------------------------------------------------------ */ - -/* Fold IR instruction. */ -TRef LJ_FASTCALL lj_opt_fold(jit_State *J) -{ - uint32_t key, any; - IRRef ref; - - if (LJ_UNLIKELY((J->flags & JIT_F_OPT_MASK) != JIT_F_OPT_DEFAULT)) { - lua_assert(((JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE|JIT_F_OPT_DSE) | - JIT_F_OPT_DEFAULT) == JIT_F_OPT_DEFAULT); - /* Folding disabled? Chain to CSE, but not for loads/stores/allocs. */ - if (!(J->flags & JIT_F_OPT_FOLD) && irm_kind(lj_ir_mode[fins->o]) == IRM_N) - return lj_opt_cse(J); - - /* No FOLD, forwarding or CSE? Emit raw IR for loads, except for SLOAD. */ - if ((J->flags & (JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE)) != - (JIT_F_OPT_FOLD|JIT_F_OPT_FWD|JIT_F_OPT_CSE) && - irm_kind(lj_ir_mode[fins->o]) == IRM_L && fins->o != IR_SLOAD) - return lj_ir_emit(J); - - /* No FOLD or DSE? Emit raw IR for stores. */ - if ((J->flags & (JIT_F_OPT_FOLD|JIT_F_OPT_DSE)) != - (JIT_F_OPT_FOLD|JIT_F_OPT_DSE) && - irm_kind(lj_ir_mode[fins->o]) == IRM_S) - return lj_ir_emit(J); - } - - /* Fold engine start/retry point. */ -retry: - /* Construct key from opcode and operand opcodes (unless literal/none). */ - key = ((uint32_t)fins->o << 17); - if (fins->op1 >= J->cur.nk) { - key += (uint32_t)IR(fins->op1)->o << 10; - *fleft = *IR(fins->op1); - } - if (fins->op2 >= J->cur.nk) { - key += (uint32_t)IR(fins->op2)->o; - *fright = *IR(fins->op2); - } else { - key += (fins->op2 & 0x3ffu); /* Literal mask. Must include IRCONV_*MASK. */ - } - - /* Check for a match in order from most specific to least specific. */ - any = 0; - for (;;) { - uint32_t k = key | (any & 0x1ffff); - uint32_t h = fold_hashkey(k); - uint32_t fh = fold_hash[h]; /* Lookup key in semi-perfect hash table. */ - if ((fh & 0xffffff) == k || (fh = fold_hash[h+1], (fh & 0xffffff) == k)) { - ref = (IRRef)tref_ref(fold_func[fh >> 24](J)); - if (ref != NEXTFOLD) - break; - } - if (any == 0xfffff) /* Exhausted folding. Pass on to CSE. */ - return lj_opt_cse(J); - any = (any | (any >> 10)) ^ 0xffc00; - } - - /* Return value processing, ordered by frequency. */ - if (LJ_LIKELY(ref >= MAX_FOLD)) - return TREF(ref, irt_t(IR(ref)->t)); - if (ref == RETRYFOLD) - goto retry; - if (ref == KINTFOLD) - return lj_ir_kint(J, fins->i); - if (ref == FAILFOLD) - lj_trace_err(J, LJ_TRERR_GFAIL); - lua_assert(ref == DROPFOLD); - return REF_DROP; -} - -/* -- Common-Subexpression Elimination ------------------------------------ */ - -/* CSE an IR instruction. This is very fast due to the skip-list chains. */ -TRef LJ_FASTCALL lj_opt_cse(jit_State *J) -{ - /* Avoid narrow to wide store-to-load forwarding stall */ - IRRef2 op12 = (IRRef2)fins->op1 + ((IRRef2)fins->op2 << 16); - IROp op = fins->o; - if (LJ_LIKELY(J->flags & JIT_F_OPT_CSE)) { - /* Limited search for same operands in per-opcode chain. */ - IRRef ref = J->chain[op]; - IRRef lim = fins->op1; - if (fins->op2 > lim) lim = fins->op2; /* Relies on lit < REF_BIAS. */ - while (ref > lim) { - if (IR(ref)->op12 == op12) - return TREF(ref, irt_t(IR(ref)->t)); /* Common subexpression found. */ - ref = IR(ref)->prev; - } - } - /* Otherwise emit IR (inlined for speed). */ - { - IRRef ref = lj_ir_nextins(J); - IRIns *ir = IR(ref); - ir->prev = J->chain[op]; - ir->op12 = op12; - J->chain[op] = (IRRef1)ref; - ir->o = fins->o; - J->guardemit.irt |= fins->t.irt; - return TREF(ref, irt_t((ir->t = fins->t))); - } -} - -/* CSE with explicit search limit. */ -TRef LJ_FASTCALL lj_opt_cselim(jit_State *J, IRRef lim) -{ - IRRef ref = J->chain[fins->o]; - IRRef2 op12 = (IRRef2)fins->op1 + ((IRRef2)fins->op2 << 16); - while (ref > lim) { - if (IR(ref)->op12 == op12) - return ref; - ref = IR(ref)->prev; - } - return lj_ir_emit(J); -} - -/* ------------------------------------------------------------------------ */ - -#undef IR -#undef fins -#undef fleft -#undef fright -#undef knumleft -#undef knumright -#undef emitir - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c deleted file mode 100644 index 4b4ab7dc3a3..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_loop.c +++ /dev/null @@ -1,449 +0,0 @@ -/* -** LOOP: Loop Optimizations. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_loop_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_snap.h" -#include "lj_vm.h" - -/* Loop optimization: -** -** Traditional Loop-Invariant Code Motion (LICM) splits the instructions -** of a loop into invariant and variant instructions. The invariant -** instructions are hoisted out of the loop and only the variant -** instructions remain inside the loop body. -** -** Unfortunately LICM is mostly useless for compiling dynamic languages. -** The IR has many guards and most of the subsequent instructions are -** control-dependent on them. The first non-hoistable guard would -** effectively prevent hoisting of all subsequent instructions. -** -** That's why we use a special form of unrolling using copy-substitution, -** combined with redundancy elimination: -** -** The recorded instruction stream is re-emitted to the compiler pipeline -** with substituted operands. The substitution table is filled with the -** refs returned by re-emitting each instruction. This can be done -** on-the-fly, because the IR is in strict SSA form, where every ref is -** defined before its use. -** -** This aproach generates two code sections, separated by the LOOP -** instruction: -** -** 1. The recorded instructions form a kind of pre-roll for the loop. It -** contains a mix of invariant and variant instructions and performs -** exactly one loop iteration (but not necessarily the 1st iteration). -** -** 2. The loop body contains only the variant instructions and performs -** all remaining loop iterations. -** -** On first sight that looks like a waste of space, because the variant -** instructions are present twice. But the key insight is that the -** pre-roll honors the control-dependencies for *both* the pre-roll itself -** *and* the loop body! -** -** It also means one doesn't have to explicitly model control-dependencies -** (which, BTW, wouldn't help LICM much). And it's much easier to -** integrate sparse snapshotting with this approach. -** -** One of the nicest aspects of this approach is that all of the -** optimizations of the compiler pipeline (FOLD, CSE, FWD, etc.) can be -** reused with only minor restrictions (e.g. one should not fold -** instructions across loop-carried dependencies). -** -** But in general all optimizations can be applied which only need to look -** backwards into the generated instruction stream. At any point in time -** during the copy-substitution process this contains both a static loop -** iteration (the pre-roll) and a dynamic one (from the to-be-copied -** instruction up to the end of the partial loop body). -** -** Since control-dependencies are implicitly kept, CSE also applies to all -** kinds of guards. The major advantage is that all invariant guards can -** be hoisted, too. -** -** Load/store forwarding works across loop iterations, too. This is -** important if loop-carried dependencies are kept in upvalues or tables. -** E.g. 'self.idx = self.idx + 1' deep down in some OO-style method may -** become a forwarded loop-recurrence after inlining. -** -** Since the IR is in SSA form, loop-carried dependencies have to be -** modeled with PHI instructions. The potential candidates for PHIs are -** collected on-the-fly during copy-substitution. After eliminating the -** redundant ones, PHI instructions are emitted *below* the loop body. -** -** Note that this departure from traditional SSA form doesn't change the -** semantics of the PHI instructions themselves. But it greatly simplifies -** on-the-fly generation of the IR and the machine code. -*/ - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* Emit raw IR without passing through optimizations. */ -#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) - -/* -- PHI elimination ----------------------------------------------------- */ - -/* Emit or eliminate collected PHIs. */ -static void loop_emit_phi(jit_State *J, IRRef1 *subst, IRRef1 *phi, IRRef nphi, - SnapNo onsnap) -{ - int passx = 0; - IRRef i, j, nslots; - IRRef invar = J->chain[IR_LOOP]; - /* Pass #1: mark redundant and potentially redundant PHIs. */ - for (i = 0, j = 0; i < nphi; i++) { - IRRef lref = phi[i]; - IRRef rref = subst[lref]; - if (lref == rref || rref == REF_DROP) { /* Invariants are redundant. */ - irt_clearphi(IR(lref)->t); - } else { - phi[j++] = (IRRef1)lref; - if (!(IR(rref)->op1 == lref || IR(rref)->op2 == lref)) { - /* Quick check for simple recurrences failed, need pass2. */ - irt_setmark(IR(lref)->t); - passx = 1; - } - } - } - nphi = j; - /* Pass #2: traverse variant part and clear marks of non-redundant PHIs. */ - if (passx) { - SnapNo s; - for (i = J->cur.nins-1; i > invar; i--) { - IRIns *ir = IR(i); - if (!irref_isk(ir->op2)) irt_clearmark(IR(ir->op2)->t); - if (!irref_isk(ir->op1)) { - irt_clearmark(IR(ir->op1)->t); - if (ir->op1 < invar && - ir->o >= IR_CALLN && ir->o <= IR_CARG) { /* ORDER IR */ - ir = IR(ir->op1); - while (ir->o == IR_CARG) { - if (!irref_isk(ir->op2)) irt_clearmark(IR(ir->op2)->t); - if (irref_isk(ir->op1)) break; - ir = IR(ir->op1); - irt_clearmark(ir->t); - } - } - } - } - for (s = J->cur.nsnap-1; s >= onsnap; s--) { - SnapShot *snap = &J->cur.snap[s]; - SnapEntry *map = &J->cur.snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - IRRef ref = snap_ref(map[n]); - if (!irref_isk(ref)) irt_clearmark(IR(ref)->t); - } - } - } - /* Pass #3: add PHIs for variant slots without a corresponding SLOAD. */ - nslots = J->baseslot+J->maxslot; - for (i = 1; i < nslots; i++) { - IRRef ref = tref_ref(J->slot[i]); - while (!irref_isk(ref) && ref != subst[ref]) { - IRIns *ir = IR(ref); - irt_clearmark(ir->t); /* Unmark potential uses, too. */ - if (irt_isphi(ir->t) || irt_ispri(ir->t)) - break; - irt_setphi(ir->t); - if (nphi >= LJ_MAX_PHI) - lj_trace_err(J, LJ_TRERR_PHIOV); - phi[nphi++] = (IRRef1)ref; - ref = subst[ref]; - if (ref > invar) - break; - } - } - /* Pass #4: propagate non-redundant PHIs. */ - while (passx) { - passx = 0; - for (i = 0; i < nphi; i++) { - IRRef lref = phi[i]; - IRIns *ir = IR(lref); - if (!irt_ismarked(ir->t)) { /* Propagate only from unmarked PHIs. */ - IRIns *irr = IR(subst[lref]); - if (irt_ismarked(irr->t)) { /* Right ref points to other PHI? */ - irt_clearmark(irr->t); /* Mark that PHI as non-redundant. */ - passx = 1; /* Retry. */ - } - } - } - } - /* Pass #5: emit PHI instructions or eliminate PHIs. */ - for (i = 0; i < nphi; i++) { - IRRef lref = phi[i]; - IRIns *ir = IR(lref); - if (!irt_ismarked(ir->t)) { /* Emit PHI if not marked. */ - IRRef rref = subst[lref]; - if (rref > invar) - irt_setphi(IR(rref)->t); - emitir_raw(IRT(IR_PHI, irt_type(ir->t)), lref, rref); - } else { /* Otherwise eliminate PHI. */ - irt_clearmark(ir->t); - irt_clearphi(ir->t); - } - } -} - -/* -- Loop unrolling using copy-substitution ------------------------------ */ - -/* Copy-substitute snapshot. */ -static void loop_subst_snap(jit_State *J, SnapShot *osnap, - SnapEntry *loopmap, IRRef1 *subst) -{ - SnapEntry *nmap, *omap = &J->cur.snapmap[osnap->mapofs]; - SnapEntry *nextmap = &J->cur.snapmap[snap_nextofs(&J->cur, osnap)]; - MSize nmapofs; - MSize on, ln, nn, onent = osnap->nent; - BCReg nslots = osnap->nslots; - SnapShot *snap = &J->cur.snap[J->cur.nsnap]; - if (irt_isguard(J->guardemit)) { /* Guard inbetween? */ - nmapofs = J->cur.nsnapmap; - J->cur.nsnap++; /* Add new snapshot. */ - } else { /* Otherwise overwrite previous snapshot. */ - snap--; - nmapofs = snap->mapofs; - } - J->guardemit.irt = 0; - /* Setup new snapshot. */ - snap->mapofs = (uint16_t)nmapofs; - snap->ref = (IRRef1)J->cur.nins; - snap->nslots = nslots; - snap->topslot = osnap->topslot; - snap->count = 0; - nmap = &J->cur.snapmap[nmapofs]; - /* Substitute snapshot slots. */ - on = ln = nn = 0; - while (on < onent) { - SnapEntry osn = omap[on], lsn = loopmap[ln]; - if (snap_slot(lsn) < snap_slot(osn)) { /* Copy slot from loop map. */ - nmap[nn++] = lsn; - ln++; - } else { /* Copy substituted slot from snapshot map. */ - if (snap_slot(lsn) == snap_slot(osn)) ln++; /* Shadowed loop slot. */ - if (!irref_isk(snap_ref(osn))) - osn = snap_setref(osn, subst[snap_ref(osn)]); - nmap[nn++] = osn; - on++; - } - } - while (snap_slot(loopmap[ln]) < nslots) /* Copy remaining loop slots. */ - nmap[nn++] = loopmap[ln++]; - snap->nent = (uint8_t)nn; - omap += onent; - nmap += nn; - while (omap < nextmap) /* Copy PC + frame links. */ - *nmap++ = *omap++; - J->cur.nsnapmap = (uint16_t)(nmap - J->cur.snapmap); -} - -typedef struct LoopState { - jit_State *J; - IRRef1 *subst; - MSize sizesubst; -} LoopState; - -/* Unroll loop. */ -static void loop_unroll(LoopState *lps) -{ - jit_State *J = lps->J; - IRRef1 phi[LJ_MAX_PHI]; - uint32_t nphi = 0; - IRRef1 *subst; - SnapNo onsnap; - SnapShot *osnap, *loopsnap; - SnapEntry *loopmap, *psentinel; - IRRef ins, invar; - - /* Allocate substitution table. - ** Only non-constant refs in [REF_BIAS,invar) are valid indexes. - */ - invar = J->cur.nins; - lps->sizesubst = invar - REF_BIAS; - lps->subst = lj_mem_newvec(J->L, lps->sizesubst, IRRef1); - subst = lps->subst - REF_BIAS; - subst[REF_BASE] = REF_BASE; - - /* LOOP separates the pre-roll from the loop body. */ - emitir_raw(IRTG(IR_LOOP, IRT_NIL), 0, 0); - - /* Grow snapshot buffer and map for copy-substituted snapshots. - ** Need up to twice the number of snapshots minus #0 and loop snapshot. - ** Need up to twice the number of entries plus fallback substitutions - ** from the loop snapshot entries for each new snapshot. - ** Caveat: both calls may reallocate J->cur.snap and J->cur.snapmap! - */ - onsnap = J->cur.nsnap; - lj_snap_grow_buf(J, 2*onsnap-2); - lj_snap_grow_map(J, J->cur.nsnapmap*2+(onsnap-2)*J->cur.snap[onsnap-1].nent); - - /* The loop snapshot is used for fallback substitutions. */ - loopsnap = &J->cur.snap[onsnap-1]; - loopmap = &J->cur.snapmap[loopsnap->mapofs]; - /* The PC of snapshot #0 and the loop snapshot must match. */ - psentinel = &loopmap[loopsnap->nent]; - lua_assert(*psentinel == J->cur.snapmap[J->cur.snap[0].nent]); - *psentinel = SNAP(255, 0, 0); /* Replace PC with temporary sentinel. */ - - /* Start substitution with snapshot #1 (#0 is empty for root traces). */ - osnap = &J->cur.snap[1]; - - /* Copy and substitute all recorded instructions and snapshots. */ - for (ins = REF_FIRST; ins < invar; ins++) { - IRIns *ir; - IRRef op1, op2; - - if (ins >= osnap->ref) /* Instruction belongs to next snapshot? */ - loop_subst_snap(J, osnap++, loopmap, subst); /* Copy-substitute it. */ - - /* Substitute instruction operands. */ - ir = IR(ins); - op1 = ir->op1; - if (!irref_isk(op1)) op1 = subst[op1]; - op2 = ir->op2; - if (!irref_isk(op2)) op2 = subst[op2]; - if (irm_kind(lj_ir_mode[ir->o]) == IRM_N && - op1 == ir->op1 && op2 == ir->op2) { /* Regular invariant ins? */ - subst[ins] = (IRRef1)ins; /* Shortcut. */ - } else { - /* Re-emit substituted instruction to the FOLD/CSE/etc. pipeline. */ - IRType1 t = ir->t; /* Get this first, since emitir may invalidate ir. */ - IRRef ref = tref_ref(emitir(ir->ot & ~IRT_ISPHI, op1, op2)); - subst[ins] = (IRRef1)ref; - if (ref != ins) { - IRIns *irr = IR(ref); - if (ref < invar) { /* Loop-carried dependency? */ - /* Potential PHI? */ - if (!irref_isk(ref) && !irt_isphi(irr->t) && !irt_ispri(irr->t)) { - irt_setphi(irr->t); - if (nphi >= LJ_MAX_PHI) - lj_trace_err(J, LJ_TRERR_PHIOV); - phi[nphi++] = (IRRef1)ref; - } - /* Check all loop-carried dependencies for type instability. */ - if (!irt_sametype(t, irr->t)) { - if (irt_isinteger(t) && irt_isinteger(irr->t)) - continue; - else if (irt_isnum(t) && irt_isinteger(irr->t)) /* Fix int->num. */ - ref = tref_ref(emitir(IRTN(IR_CONV), ref, IRCONV_NUM_INT)); - else if (irt_isnum(irr->t) && irt_isinteger(t)) /* Fix num->int. */ - ref = tref_ref(emitir(IRTGI(IR_CONV), ref, - IRCONV_INT_NUM|IRCONV_CHECK)); - else - lj_trace_err(J, LJ_TRERR_TYPEINS); - subst[ins] = (IRRef1)ref; - irr = IR(ref); - goto phiconv; - } - } else if (ref != REF_DROP && irr->o == IR_CONV && - ref > invar && irr->op1 < invar) { - /* May need an extra PHI for a CONV. */ - ref = irr->op1; - irr = IR(ref); - phiconv: - if (ref < invar && !irref_isk(ref) && !irt_isphi(irr->t)) { - irt_setphi(irr->t); - if (nphi >= LJ_MAX_PHI) - lj_trace_err(J, LJ_TRERR_PHIOV); - phi[nphi++] = (IRRef1)ref; - } - } - } - } - } - if (!irt_isguard(J->guardemit)) /* Drop redundant snapshot. */ - J->cur.nsnapmap = (uint16_t)J->cur.snap[--J->cur.nsnap].mapofs; - lua_assert(J->cur.nsnapmap <= J->sizesnapmap); - *psentinel = J->cur.snapmap[J->cur.snap[0].nent]; /* Restore PC. */ - - loop_emit_phi(J, subst, phi, nphi, onsnap); -} - -/* Undo any partial changes made by the loop optimization. */ -static void loop_undo(jit_State *J, IRRef ins, SnapNo nsnap, MSize nsnapmap) -{ - ptrdiff_t i; - SnapShot *snap = &J->cur.snap[nsnap-1]; - SnapEntry *map = J->cur.snapmap; - map[snap->mapofs + snap->nent] = map[J->cur.snap[0].nent]; /* Restore PC. */ - J->cur.nsnapmap = (uint16_t)nsnapmap; - J->cur.nsnap = nsnap; - J->guardemit.irt = 0; - lj_ir_rollback(J, ins); - for (i = 0; i < BPROP_SLOTS; i++) { /* Remove backprop. cache entries. */ - BPropEntry *bp = &J->bpropcache[i]; - if (bp->val >= ins) - bp->key = 0; - } - for (ins--; ins >= REF_FIRST; ins--) { /* Remove flags. */ - IRIns *ir = IR(ins); - irt_clearphi(ir->t); - irt_clearmark(ir->t); - } -} - -/* Protected callback for loop optimization. */ -static TValue *cploop_opt(lua_State *L, lua_CFunction dummy, void *ud) -{ - UNUSED(L); UNUSED(dummy); - loop_unroll((LoopState *)ud); - return NULL; -} - -/* Loop optimization. */ -int lj_opt_loop(jit_State *J) -{ - IRRef nins = J->cur.nins; - SnapNo nsnap = J->cur.nsnap; - MSize nsnapmap = J->cur.nsnapmap; - LoopState lps; - int errcode; - lps.J = J; - lps.subst = NULL; - lps.sizesubst = 0; - errcode = lj_vm_cpcall(J->L, NULL, &lps, cploop_opt); - lj_mem_freevec(J2G(J), lps.subst, lps.sizesubst, IRRef1); - if (LJ_UNLIKELY(errcode)) { - lua_State *L = J->L; - if (errcode == LUA_ERRRUN && tvisnumber(L->top-1)) { /* Trace error? */ - int32_t e = numberVint(L->top-1); - switch ((TraceError)e) { - case LJ_TRERR_TYPEINS: /* Type instability. */ - case LJ_TRERR_GFAIL: /* Guard would always fail. */ - /* Unrolling via recording fixes many cases, e.g. a flipped boolean. */ - if (--J->instunroll < 0) /* But do not unroll forever. */ - break; - L->top--; /* Remove error object. */ - loop_undo(J, nins, nsnap, nsnapmap); - return 1; /* Loop optimization failed, continue recording. */ - default: - break; - } - } - lj_err_throw(L, errcode); /* Propagate all other errors. */ - } - return 0; /* Loop optimization is ok. */ -} - -#undef IR -#undef emitir -#undef emitir_raw - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c deleted file mode 100644 index 2b6fc884034..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_mem.c +++ /dev/null @@ -1,934 +0,0 @@ -/* -** Memory access optimizations. -** AA: Alias Analysis using high-level semantic disambiguation. -** FWD: Load Forwarding (L2L) + Store Forwarding (S2L). -** DSE: Dead-Store Elimination. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_mem_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_tab.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_ircall.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) -#define fins (&J->fold.ins) -#define fleft (&J->fold.left) -#define fright (&J->fold.right) - -/* -** Caveat #1: return value is not always a TRef -- only use with tref_ref(). -** Caveat #2: FWD relies on active CSE for xREF operands -- see lj_opt_fold(). -*/ - -/* Return values from alias analysis. */ -typedef enum { - ALIAS_NO, /* The two refs CANNOT alias (exact). */ - ALIAS_MAY, /* The two refs MAY alias (inexact). */ - ALIAS_MUST /* The two refs MUST alias (exact). */ -} AliasRet; - -/* -- ALOAD/HLOAD forwarding and ASTORE/HSTORE elimination ---------------- */ - -/* Simplified escape analysis: check for intervening stores. */ -static AliasRet aa_escape(jit_State *J, IRIns *ir, IRIns *stop) -{ - IRRef ref = (IRRef)(ir - J->cur.ir); /* The ref that might be stored. */ - for (ir++; ir < stop; ir++) - if (ir->op2 == ref && - (ir->o == IR_ASTORE || ir->o == IR_HSTORE || - ir->o == IR_USTORE || ir->o == IR_FSTORE)) - return ALIAS_MAY; /* Reference was stored and might alias. */ - return ALIAS_NO; /* Reference was not stored. */ -} - -/* Alias analysis for two different table references. */ -static AliasRet aa_table(jit_State *J, IRRef ta, IRRef tb) -{ - IRIns *taba = IR(ta), *tabb = IR(tb); - int newa, newb; - lua_assert(ta != tb); - lua_assert(irt_istab(taba->t) && irt_istab(tabb->t)); - /* Disambiguate new allocations. */ - newa = (taba->o == IR_TNEW || taba->o == IR_TDUP); - newb = (tabb->o == IR_TNEW || tabb->o == IR_TDUP); - if (newa && newb) - return ALIAS_NO; /* Two different allocations never alias. */ - if (newb) { /* At least one allocation? */ - IRIns *tmp = taba; taba = tabb; tabb = tmp; - } else if (!newa) { - return ALIAS_MAY; /* Anything else: we just don't know. */ - } - return aa_escape(J, taba, tabb); -} - -/* Alias analysis for array and hash access using key-based disambiguation. */ -static AliasRet aa_ahref(jit_State *J, IRIns *refa, IRIns *refb) -{ - IRRef ka = refa->op2; - IRRef kb = refb->op2; - IRIns *keya, *keyb; - IRRef ta, tb; - if (refa == refb) - return ALIAS_MUST; /* Shortcut for same refs. */ - keya = IR(ka); - if (keya->o == IR_KSLOT) { ka = keya->op1; keya = IR(ka); } - keyb = IR(kb); - if (keyb->o == IR_KSLOT) { kb = keyb->op1; keyb = IR(kb); } - ta = (refa->o==IR_HREFK || refa->o==IR_AREF) ? IR(refa->op1)->op1 : refa->op1; - tb = (refb->o==IR_HREFK || refb->o==IR_AREF) ? IR(refb->op1)->op1 : refb->op1; - if (ka == kb) { - /* Same key. Check for same table with different ref (NEWREF vs. HREF). */ - if (ta == tb) - return ALIAS_MUST; /* Same key, same table. */ - else - return aa_table(J, ta, tb); /* Same key, possibly different table. */ - } - if (irref_isk(ka) && irref_isk(kb)) - return ALIAS_NO; /* Different constant keys. */ - if (refa->o == IR_AREF) { - /* Disambiguate array references based on index arithmetic. */ - int32_t ofsa = 0, ofsb = 0; - IRRef basea = ka, baseb = kb; - lua_assert(refb->o == IR_AREF); - /* Gather base and offset from t[base] or t[base+-ofs]. */ - if (keya->o == IR_ADD && irref_isk(keya->op2)) { - basea = keya->op1; - ofsa = IR(keya->op2)->i; - if (basea == kb && ofsa != 0) - return ALIAS_NO; /* t[base+-ofs] vs. t[base]. */ - } - if (keyb->o == IR_ADD && irref_isk(keyb->op2)) { - baseb = keyb->op1; - ofsb = IR(keyb->op2)->i; - if (ka == baseb && ofsb != 0) - return ALIAS_NO; /* t[base] vs. t[base+-ofs]. */ - } - if (basea == baseb && ofsa != ofsb) - return ALIAS_NO; /* t[base+-o1] vs. t[base+-o2] and o1 != o2. */ - } else { - /* Disambiguate hash references based on the type of their keys. */ - lua_assert((refa->o==IR_HREF || refa->o==IR_HREFK || refa->o==IR_NEWREF) && - (refb->o==IR_HREF || refb->o==IR_HREFK || refb->o==IR_NEWREF)); - if (!irt_sametype(keya->t, keyb->t)) - return ALIAS_NO; /* Different key types. */ - } - if (ta == tb) - return ALIAS_MAY; /* Same table, cannot disambiguate keys. */ - else - return aa_table(J, ta, tb); /* Try to disambiguate tables. */ -} - -/* Array and hash load forwarding. */ -static TRef fwd_ahload(jit_State *J, IRRef xref) -{ - IRIns *xr = IR(xref); - IRRef lim = xref; /* Search limit. */ - IRRef ref; - - /* Search for conflicting stores. */ - ref = J->chain[fins->o+IRDELTA_L2S]; - while (ref > xref) { - IRIns *store = IR(ref); - switch (aa_ahref(J, xr, IR(store->op1))) { - case ALIAS_NO: break; /* Continue searching. */ - case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ - case ALIAS_MUST: return store->op2; /* Store forwarding. */ - } - ref = store->prev; - } - - /* No conflicting store (yet): const-fold loads from allocations. */ - { - IRIns *ir = (xr->o == IR_HREFK || xr->o == IR_AREF) ? IR(xr->op1) : xr; - IRRef tab = ir->op1; - ir = IR(tab); - if (ir->o == IR_TNEW || (ir->o == IR_TDUP && irref_isk(xr->op2))) { - /* A NEWREF with a number key may end up pointing to the array part. - ** But it's referenced from HSTORE and not found in the ASTORE chain. - ** For now simply consider this a conflict without forwarding anything. - */ - if (xr->o == IR_AREF) { - IRRef ref2 = J->chain[IR_NEWREF]; - while (ref2 > tab) { - IRIns *newref = IR(ref2); - if (irt_isnum(IR(newref->op2)->t)) - goto cselim; - ref2 = newref->prev; - } - } - /* NEWREF inhibits CSE for HREF, and dependent FLOADs from HREFK/AREF. - ** But the above search for conflicting stores was limited by xref. - ** So continue searching, limited by the TNEW/TDUP. Store forwarding - ** is ok, too. A conflict does NOT limit the search for a matching load. - */ - while (ref > tab) { - IRIns *store = IR(ref); - switch (aa_ahref(J, xr, IR(store->op1))) { - case ALIAS_NO: break; /* Continue searching. */ - case ALIAS_MAY: goto cselim; /* Conflicting store. */ - case ALIAS_MUST: return store->op2; /* Store forwarding. */ - } - ref = store->prev; - } - lua_assert(ir->o != IR_TNEW || irt_isnil(fins->t)); - if (irt_ispri(fins->t)) { - return TREF_PRI(irt_type(fins->t)); - } else if (irt_isnum(fins->t) || (LJ_DUALNUM && irt_isint(fins->t)) || - irt_isstr(fins->t)) { - TValue keyv; - cTValue *tv; - IRIns *key = IR(xr->op2); - if (key->o == IR_KSLOT) key = IR(key->op1); - lj_ir_kvalue(J->L, &keyv, key); - tv = lj_tab_get(J->L, ir_ktab(IR(ir->op1)), &keyv); - lua_assert(itype2irt(tv) == irt_type(fins->t)); - if (irt_isnum(fins->t)) - return lj_ir_knum_u64(J, tv->u64); - else if (LJ_DUALNUM && irt_isint(fins->t)) - return lj_ir_kint(J, intV(tv)); - else - return lj_ir_kstr(J, strV(tv)); - } - /* Othwerwise: don't intern as a constant. */ - } - } - -cselim: - /* Try to find a matching load. Below the conflicting store, if any. */ - ref = J->chain[fins->o]; - while (ref > lim) { - IRIns *load = IR(ref); - if (load->op1 == xref) - return ref; /* Load forwarding. */ - ref = load->prev; - } - return 0; /* Conflict or no match. */ -} - -/* Reassociate ALOAD across PHIs to handle t[i-1] forwarding case. */ -static TRef fwd_aload_reassoc(jit_State *J) -{ - IRIns *irx = IR(fins->op1); - IRIns *key = IR(irx->op2); - if (key->o == IR_ADD && irref_isk(key->op2)) { - IRIns *add2 = IR(key->op1); - if (add2->o == IR_ADD && irref_isk(add2->op2) && - IR(key->op2)->i == -IR(add2->op2)->i) { - IRRef ref = J->chain[IR_AREF]; - IRRef lim = add2->op1; - if (irx->op1 > lim) lim = irx->op1; - while (ref > lim) { - IRIns *ir = IR(ref); - if (ir->op1 == irx->op1 && ir->op2 == add2->op1) - return fwd_ahload(J, ref); - ref = ir->prev; - } - } - } - return 0; -} - -/* ALOAD forwarding. */ -TRef LJ_FASTCALL lj_opt_fwd_aload(jit_State *J) -{ - IRRef ref; - if ((ref = fwd_ahload(J, fins->op1)) || - (ref = fwd_aload_reassoc(J))) - return ref; - return EMITFOLD; -} - -/* HLOAD forwarding. */ -TRef LJ_FASTCALL lj_opt_fwd_hload(jit_State *J) -{ - IRRef ref = fwd_ahload(J, fins->op1); - if (ref) - return ref; - return EMITFOLD; -} - -/* HREFK forwarding. */ -TRef LJ_FASTCALL lj_opt_fwd_hrefk(jit_State *J) -{ - IRRef tab = fleft->op1; - IRRef ref = J->chain[IR_NEWREF]; - while (ref > tab) { - IRIns *newref = IR(ref); - if (tab == newref->op1) { - if (fright->op1 == newref->op2) - return ref; /* Forward from NEWREF. */ - else - goto docse; - } else if (aa_table(J, tab, newref->op1) != ALIAS_NO) { - goto docse; - } - ref = newref->prev; - } - /* No conflicting NEWREF: key location unchanged for HREFK of TDUP. */ - if (IR(tab)->o == IR_TDUP) - fins->t.irt &= ~IRT_GUARD; /* Drop HREFK guard. */ -docse: - return CSEFOLD; -} - -/* Check whether HREF of TNEW/TDUP can be folded to niltv. */ -int LJ_FASTCALL lj_opt_fwd_href_nokey(jit_State *J) -{ - IRRef lim = fins->op1; /* Search limit. */ - IRRef ref; - - /* The key for an ASTORE may end up in the hash part after a NEWREF. */ - if (irt_isnum(fright->t) && J->chain[IR_NEWREF] > lim) { - ref = J->chain[IR_ASTORE]; - while (ref > lim) { - if (ref < J->chain[IR_NEWREF]) - return 0; /* Conflict. */ - ref = IR(ref)->prev; - } - } - - /* Search for conflicting stores. */ - ref = J->chain[IR_HSTORE]; - while (ref > lim) { - IRIns *store = IR(ref); - if (aa_ahref(J, fins, IR(store->op1)) != ALIAS_NO) - return 0; /* Conflict. */ - ref = store->prev; - } - - return 1; /* No conflict. Can fold to niltv. */ -} - -/* Check whether there's no aliasing table.clear. */ -static int fwd_aa_tab_clear(jit_State *J, IRRef lim, IRRef ta) -{ - IRRef ref = J->chain[IR_CALLS]; - while (ref > lim) { - IRIns *calls = IR(ref); - if (calls->op2 == IRCALL_lj_tab_clear && - (ta == calls->op1 || aa_table(J, ta, calls->op1) != ALIAS_NO)) - return 0; /* Conflict. */ - ref = calls->prev; - } - return 1; /* No conflict. Can safely FOLD/CSE. */ -} - -/* Check whether there's no aliasing NEWREF/table.clear for the left operand. */ -int LJ_FASTCALL lj_opt_fwd_tptr(jit_State *J, IRRef lim) -{ - IRRef ta = fins->op1; - IRRef ref = J->chain[IR_NEWREF]; - while (ref > lim) { - IRIns *newref = IR(ref); - if (ta == newref->op1 || aa_table(J, ta, newref->op1) != ALIAS_NO) - return 0; /* Conflict. */ - ref = newref->prev; - } - return fwd_aa_tab_clear(J, lim, ta); -} - -/* ASTORE/HSTORE elimination. */ -TRef LJ_FASTCALL lj_opt_dse_ahstore(jit_State *J) -{ - IRRef xref = fins->op1; /* xREF reference. */ - IRRef val = fins->op2; /* Stored value reference. */ - IRIns *xr = IR(xref); - IRRef1 *refp = &J->chain[fins->o]; - IRRef ref = *refp; - while (ref > xref) { /* Search for redundant or conflicting stores. */ - IRIns *store = IR(ref); - switch (aa_ahref(J, xr, IR(store->op1))) { - case ALIAS_NO: - break; /* Continue searching. */ - case ALIAS_MAY: /* Store to MAYBE the same location. */ - if (store->op2 != val) /* Conflict if the value is different. */ - goto doemit; - break; /* Otherwise continue searching. */ - case ALIAS_MUST: /* Store to the same location. */ - if (store->op2 == val) /* Same value: drop the new store. */ - return DROPFOLD; - /* Different value: try to eliminate the redundant store. */ - if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ - IRIns *ir; - /* Check for any intervening guards (includes conflicting loads). */ - for (ir = IR(J->cur.nins-1); ir > store; ir--) - if (irt_isguard(ir->t) || ir->o == IR_CALLL) - goto doemit; /* No elimination possible. */ - /* Remove redundant store from chain and replace with NOP. */ - *refp = store->prev; - store->o = IR_NOP; - store->t.irt = IRT_NIL; - store->op1 = store->op2 = 0; - store->prev = 0; - /* Now emit the new store instead. */ - } - goto doemit; - } - ref = *(refp = &store->prev); - } -doemit: - return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ -} - -/* -- ULOAD forwarding ---------------------------------------------------- */ - -/* The current alias analysis for upvalues is very simplistic. It only -** disambiguates between the unique upvalues of the same function. -** This is good enough for now, since most upvalues are read-only. -** -** A more precise analysis would be feasible with the help of the parser: -** generate a unique key for every upvalue, even across all prototypes. -** Lacking a realistic use-case, it's unclear whether this is beneficial. -*/ -static AliasRet aa_uref(IRIns *refa, IRIns *refb) -{ - if (refa->o != refb->o) - return ALIAS_NO; /* Different UREFx type. */ - if (refa->op1 == refb->op1) { /* Same function. */ - if (refa->op2 == refb->op2) - return ALIAS_MUST; /* Same function, same upvalue idx. */ - else - return ALIAS_NO; /* Same function, different upvalue idx. */ - } else { /* Different functions, check disambiguation hash values. */ - if (((refa->op2 ^ refb->op2) & 0xff)) - return ALIAS_NO; /* Upvalues with different hash values cannot alias. */ - else - return ALIAS_MAY; /* No conclusion can be drawn for same hash value. */ - } -} - -/* ULOAD forwarding. */ -TRef LJ_FASTCALL lj_opt_fwd_uload(jit_State *J) -{ - IRRef uref = fins->op1; - IRRef lim = REF_BASE; /* Search limit. */ - IRIns *xr = IR(uref); - IRRef ref; - - /* Search for conflicting stores. */ - ref = J->chain[IR_USTORE]; - while (ref > lim) { - IRIns *store = IR(ref); - switch (aa_uref(xr, IR(store->op1))) { - case ALIAS_NO: break; /* Continue searching. */ - case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ - case ALIAS_MUST: return store->op2; /* Store forwarding. */ - } - ref = store->prev; - } - -cselim: - /* Try to find a matching load. Below the conflicting store, if any. */ - - ref = J->chain[IR_ULOAD]; - while (ref > lim) { - IRIns *ir = IR(ref); - if (ir->op1 == uref || - (IR(ir->op1)->op12 == IR(uref)->op12 && IR(ir->op1)->o == IR(uref)->o)) - return ref; /* Match for identical or equal UREFx (non-CSEable UREFO). */ - ref = ir->prev; - } - return lj_ir_emit(J); -} - -/* USTORE elimination. */ -TRef LJ_FASTCALL lj_opt_dse_ustore(jit_State *J) -{ - IRRef xref = fins->op1; /* xREF reference. */ - IRRef val = fins->op2; /* Stored value reference. */ - IRIns *xr = IR(xref); - IRRef1 *refp = &J->chain[IR_USTORE]; - IRRef ref = *refp; - while (ref > xref) { /* Search for redundant or conflicting stores. */ - IRIns *store = IR(ref); - switch (aa_uref(xr, IR(store->op1))) { - case ALIAS_NO: - break; /* Continue searching. */ - case ALIAS_MAY: /* Store to MAYBE the same location. */ - if (store->op2 != val) /* Conflict if the value is different. */ - goto doemit; - break; /* Otherwise continue searching. */ - case ALIAS_MUST: /* Store to the same location. */ - if (store->op2 == val) /* Same value: drop the new store. */ - return DROPFOLD; - /* Different value: try to eliminate the redundant store. */ - if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ - IRIns *ir; - /* Check for any intervening guards (includes conflicting loads). */ - for (ir = IR(J->cur.nins-1); ir > store; ir--) - if (irt_isguard(ir->t)) - goto doemit; /* No elimination possible. */ - /* Remove redundant store from chain and replace with NOP. */ - *refp = store->prev; - store->o = IR_NOP; - store->t.irt = IRT_NIL; - store->op1 = store->op2 = 0; - store->prev = 0; - if (ref+1 < J->cur.nins && - store[1].o == IR_OBAR && store[1].op1 == xref) { - IRRef1 *bp = &J->chain[IR_OBAR]; - IRIns *obar; - for (obar = IR(*bp); *bp > ref+1; obar = IR(*bp)) - bp = &obar->prev; - /* Remove OBAR, too. */ - *bp = obar->prev; - obar->o = IR_NOP; - obar->t.irt = IRT_NIL; - obar->op1 = obar->op2 = 0; - obar->prev = 0; - } - /* Now emit the new store instead. */ - } - goto doemit; - } - ref = *(refp = &store->prev); - } -doemit: - return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ -} - -/* -- FLOAD forwarding and FSTORE elimination ----------------------------- */ - -/* Alias analysis for field access. -** Field loads are cheap and field stores are rare. -** Simple disambiguation based on field types is good enough. -*/ -static AliasRet aa_fref(jit_State *J, IRIns *refa, IRIns *refb) -{ - if (refa->op2 != refb->op2) - return ALIAS_NO; /* Different fields. */ - if (refa->op1 == refb->op1) - return ALIAS_MUST; /* Same field, same object. */ - else if (refa->op2 >= IRFL_TAB_META && refa->op2 <= IRFL_TAB_NOMM) - return aa_table(J, refa->op1, refb->op1); /* Disambiguate tables. */ - else - return ALIAS_MAY; /* Same field, possibly different object. */ -} - -/* Only the loads for mutable fields end up here (see FOLD). */ -TRef LJ_FASTCALL lj_opt_fwd_fload(jit_State *J) -{ - IRRef oref = fins->op1; /* Object reference. */ - IRRef fid = fins->op2; /* Field ID. */ - IRRef lim = oref; /* Search limit. */ - IRRef ref; - - /* Search for conflicting stores. */ - ref = J->chain[IR_FSTORE]; - while (ref > oref) { - IRIns *store = IR(ref); - switch (aa_fref(J, fins, IR(store->op1))) { - case ALIAS_NO: break; /* Continue searching. */ - case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ - case ALIAS_MUST: return store->op2; /* Store forwarding. */ - } - ref = store->prev; - } - - /* No conflicting store: const-fold field loads from allocations. */ - if (fid == IRFL_TAB_META) { - IRIns *ir = IR(oref); - if (ir->o == IR_TNEW || ir->o == IR_TDUP) - return lj_ir_knull(J, IRT_TAB); - } - -cselim: - /* Try to find a matching load. Below the conflicting store, if any. */ - return lj_opt_cselim(J, lim); -} - -/* FSTORE elimination. */ -TRef LJ_FASTCALL lj_opt_dse_fstore(jit_State *J) -{ - IRRef fref = fins->op1; /* FREF reference. */ - IRRef val = fins->op2; /* Stored value reference. */ - IRIns *xr = IR(fref); - IRRef1 *refp = &J->chain[IR_FSTORE]; - IRRef ref = *refp; - while (ref > fref) { /* Search for redundant or conflicting stores. */ - IRIns *store = IR(ref); - switch (aa_fref(J, xr, IR(store->op1))) { - case ALIAS_NO: - break; /* Continue searching. */ - case ALIAS_MAY: - if (store->op2 != val) /* Conflict if the value is different. */ - goto doemit; - break; /* Otherwise continue searching. */ - case ALIAS_MUST: - if (store->op2 == val) /* Same value: drop the new store. */ - return DROPFOLD; - /* Different value: try to eliminate the redundant store. */ - if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ - IRIns *ir; - /* Check for any intervening guards or conflicting loads. */ - for (ir = IR(J->cur.nins-1); ir > store; ir--) - if (irt_isguard(ir->t) || (ir->o == IR_FLOAD && ir->op2 == xr->op2)) - goto doemit; /* No elimination possible. */ - /* Remove redundant store from chain and replace with NOP. */ - *refp = store->prev; - store->o = IR_NOP; - store->t.irt = IRT_NIL; - store->op1 = store->op2 = 0; - store->prev = 0; - /* Now emit the new store instead. */ - } - goto doemit; - } - ref = *(refp = &store->prev); - } -doemit: - return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ -} - -/* -- XLOAD forwarding and XSTORE elimination ----------------------------- */ - -/* Find cdata allocation for a reference (if any). */ -static IRIns *aa_findcnew(jit_State *J, IRIns *ir) -{ - while (ir->o == IR_ADD) { - if (!irref_isk(ir->op1)) { - IRIns *ir1 = aa_findcnew(J, IR(ir->op1)); /* Left-recursion. */ - if (ir1) return ir1; - } - if (irref_isk(ir->op2)) return NULL; - ir = IR(ir->op2); /* Flatten right-recursion. */ - } - return ir->o == IR_CNEW ? ir : NULL; -} - -/* Alias analysis for two cdata allocations. */ -static AliasRet aa_cnew(jit_State *J, IRIns *refa, IRIns *refb) -{ - IRIns *cnewa = aa_findcnew(J, refa); - IRIns *cnewb = aa_findcnew(J, refb); - if (cnewa == cnewb) - return ALIAS_MAY; /* Same allocation or neither is an allocation. */ - if (cnewa && cnewb) - return ALIAS_NO; /* Two different allocations never alias. */ - if (cnewb) { cnewa = cnewb; refb = refa; } - return aa_escape(J, cnewa, refb); -} - -/* Alias analysis for XLOAD/XSTORE. */ -static AliasRet aa_xref(jit_State *J, IRIns *refa, IRIns *xa, IRIns *xb) -{ - ptrdiff_t ofsa = 0, ofsb = 0; - IRIns *refb = IR(xb->op1); - IRIns *basea = refa, *baseb = refb; - if (refa == refb && irt_sametype(xa->t, xb->t)) - return ALIAS_MUST; /* Shortcut for same refs with identical type. */ - /* Offset-based disambiguation. */ - if (refa->o == IR_ADD && irref_isk(refa->op2)) { - IRIns *irk = IR(refa->op2); - basea = IR(refa->op1); - ofsa = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : - (ptrdiff_t)irk->i; - } - if (refb->o == IR_ADD && irref_isk(refb->op2)) { - IRIns *irk = IR(refb->op2); - baseb = IR(refb->op1); - ofsb = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : - (ptrdiff_t)irk->i; - } - /* Treat constified pointers like base vs. base+offset. */ - if (basea->o == IR_KPTR && baseb->o == IR_KPTR) { - ofsb += (char *)ir_kptr(baseb) - (char *)ir_kptr(basea); - baseb = basea; - } - /* This implements (very) strict aliasing rules. - ** Different types do NOT alias, except for differences in signedness. - ** Type punning through unions is allowed (but forces a reload). - */ - if (basea == baseb) { - ptrdiff_t sza = irt_size(xa->t), szb = irt_size(xb->t); - if (ofsa == ofsb) { - if (sza == szb && irt_isfp(xa->t) == irt_isfp(xb->t)) - return ALIAS_MUST; /* Same-sized, same-kind. May need to convert. */ - } else if (ofsa + sza <= ofsb || ofsb + szb <= ofsa) { - return ALIAS_NO; /* Non-overlapping base+-o1 vs. base+-o2. */ - } - /* NYI: extract, extend or reinterpret bits (int <-> fp). */ - return ALIAS_MAY; /* Overlapping or type punning: force reload. */ - } - if (!irt_sametype(xa->t, xb->t) && - !(irt_typerange(xa->t, IRT_I8, IRT_U64) && - ((xa->t.irt - IRT_I8) ^ (xb->t.irt - IRT_I8)) == 1)) - return ALIAS_NO; - /* NYI: structural disambiguation. */ - return aa_cnew(J, basea, baseb); /* Try to disambiguate allocations. */ -} - -/* Return CSEd reference or 0. Caveat: swaps lower ref to the right! */ -static IRRef reassoc_trycse(jit_State *J, IROp op, IRRef op1, IRRef op2) -{ - IRRef ref = J->chain[op]; - IRRef lim = op1; - if (op2 > lim) { lim = op2; op2 = op1; op1 = lim; } - while (ref > lim) { - IRIns *ir = IR(ref); - if (ir->op1 == op1 && ir->op2 == op2) - return ref; - ref = ir->prev; - } - return 0; -} - -/* Reassociate index references. */ -static IRRef reassoc_xref(jit_State *J, IRIns *ir) -{ - ptrdiff_t ofs = 0; - if (ir->o == IR_ADD && irref_isk(ir->op2)) { /* Get constant offset. */ - IRIns *irk = IR(ir->op2); - ofs = (LJ_64 && irk->o == IR_KINT64) ? (ptrdiff_t)ir_k64(irk)->u64 : - (ptrdiff_t)irk->i; - ir = IR(ir->op1); - } - if (ir->o == IR_ADD) { /* Add of base + index. */ - /* Index ref > base ref for loop-carried dependences. Only check op1. */ - IRIns *ir2, *ir1 = IR(ir->op1); - int32_t shift = 0; - IRRef idxref; - /* Determine index shifts. Don't bother with IR_MUL here. */ - if (ir1->o == IR_BSHL && irref_isk(ir1->op2)) - shift = IR(ir1->op2)->i; - else if (ir1->o == IR_ADD && ir1->op1 == ir1->op2) - shift = 1; - else - ir1 = ir; - ir2 = IR(ir1->op1); - /* A non-reassociated add. Must be a loop-carried dependence. */ - if (ir2->o == IR_ADD && irt_isint(ir2->t) && irref_isk(ir2->op2)) - ofs += (ptrdiff_t)IR(ir2->op2)->i << shift; - else - return 0; - idxref = ir2->op1; - /* Try to CSE the reassociated chain. Give up if not found. */ - if (ir1 != ir && - !(idxref = reassoc_trycse(J, ir1->o, idxref, - ir1->o == IR_BSHL ? ir1->op2 : idxref))) - return 0; - if (!(idxref = reassoc_trycse(J, IR_ADD, idxref, ir->op2))) - return 0; - if (ofs != 0) { - IRRef refk = tref_ref(lj_ir_kintp(J, ofs)); - if (!(idxref = reassoc_trycse(J, IR_ADD, idxref, refk))) - return 0; - } - return idxref; /* Success, found a reassociated index reference. Phew. */ - } - return 0; /* Failure. */ -} - -/* XLOAD forwarding. */ -TRef LJ_FASTCALL lj_opt_fwd_xload(jit_State *J) -{ - IRRef xref = fins->op1; - IRIns *xr = IR(xref); - IRRef lim = xref; /* Search limit. */ - IRRef ref; - - if ((fins->op2 & IRXLOAD_READONLY)) - goto cselim; - if ((fins->op2 & IRXLOAD_VOLATILE)) - goto doemit; - - /* Search for conflicting stores. */ - ref = J->chain[IR_XSTORE]; -retry: - if (J->chain[IR_CALLXS] > lim) lim = J->chain[IR_CALLXS]; - if (J->chain[IR_XBAR] > lim) lim = J->chain[IR_XBAR]; - while (ref > lim) { - IRIns *store = IR(ref); - switch (aa_xref(J, xr, fins, store)) { - case ALIAS_NO: break; /* Continue searching. */ - case ALIAS_MAY: lim = ref; goto cselim; /* Limit search for load. */ - case ALIAS_MUST: - /* Emit conversion if the loaded type doesn't match the forwarded type. */ - if (!irt_sametype(fins->t, IR(store->op2)->t)) { - IRType dt = irt_type(fins->t), st = irt_type(IR(store->op2)->t); - if (dt == IRT_I8 || dt == IRT_I16) { /* Trunc + sign-extend. */ - st = dt | IRCONV_SEXT; - dt = IRT_INT; - } else if (dt == IRT_U8 || dt == IRT_U16) { /* Trunc + zero-extend. */ - st = dt; - dt = IRT_INT; - } - fins->ot = IRT(IR_CONV, dt); - fins->op1 = store->op2; - fins->op2 = (dt<<5)|st; - return RETRYFOLD; - } - return store->op2; /* Store forwarding. */ - } - ref = store->prev; - } - -cselim: - /* Try to find a matching load. Below the conflicting store, if any. */ - ref = J->chain[IR_XLOAD]; - while (ref > lim) { - /* CSE for XLOAD depends on the type, but not on the IRXLOAD_* flags. */ - if (IR(ref)->op1 == xref && irt_sametype(IR(ref)->t, fins->t)) - return ref; - ref = IR(ref)->prev; - } - - /* Reassociate XLOAD across PHIs to handle a[i-1] forwarding case. */ - if (!(fins->op2 & IRXLOAD_READONLY) && J->chain[IR_LOOP] && - xref == fins->op1 && (xref = reassoc_xref(J, xr)) != 0) { - ref = J->chain[IR_XSTORE]; - while (ref > lim) /* Skip stores that have already been checked. */ - ref = IR(ref)->prev; - lim = xref; - xr = IR(xref); - goto retry; /* Retry with the reassociated reference. */ - } -doemit: - return EMITFOLD; -} - -/* XSTORE elimination. */ -TRef LJ_FASTCALL lj_opt_dse_xstore(jit_State *J) -{ - IRRef xref = fins->op1; - IRIns *xr = IR(xref); - IRRef lim = xref; /* Search limit. */ - IRRef val = fins->op2; /* Stored value reference. */ - IRRef1 *refp = &J->chain[IR_XSTORE]; - IRRef ref = *refp; - if (J->chain[IR_CALLXS] > lim) lim = J->chain[IR_CALLXS]; - if (J->chain[IR_XBAR] > lim) lim = J->chain[IR_XBAR]; - while (ref > lim) { /* Search for redundant or conflicting stores. */ - IRIns *store = IR(ref); - switch (aa_xref(J, xr, fins, store)) { - case ALIAS_NO: - break; /* Continue searching. */ - case ALIAS_MAY: - if (store->op2 != val) /* Conflict if the value is different. */ - goto doemit; - break; /* Otherwise continue searching. */ - case ALIAS_MUST: - if (store->op2 == val) /* Same value: drop the new store. */ - return DROPFOLD; - /* Different value: try to eliminate the redundant store. */ - if (ref > J->chain[IR_LOOP]) { /* Quick check to avoid crossing LOOP. */ - IRIns *ir; - /* Check for any intervening guards or any XLOADs (no AA performed). */ - for (ir = IR(J->cur.nins-1); ir > store; ir--) - if (irt_isguard(ir->t) || ir->o == IR_XLOAD) - goto doemit; /* No elimination possible. */ - /* Remove redundant store from chain and replace with NOP. */ - *refp = store->prev; - store->o = IR_NOP; - store->t.irt = IRT_NIL; - store->op1 = store->op2 = 0; - store->prev = 0; - /* Now emit the new store instead. */ - } - goto doemit; - } - ref = *(refp = &store->prev); - } -doemit: - return EMITFOLD; /* Otherwise we have a conflict or simply no match. */ -} - -/* -- Forwarding of lj_tab_len -------------------------------------------- */ - -/* This is rather simplistic right now, but better than nothing. */ -TRef LJ_FASTCALL lj_opt_fwd_tab_len(jit_State *J) -{ - IRRef tab = fins->op1; /* Table reference. */ - IRRef lim = tab; /* Search limit. */ - IRRef ref; - - /* Any ASTORE is a conflict and limits the search. */ - if (J->chain[IR_ASTORE] > lim) lim = J->chain[IR_ASTORE]; - - /* Search for conflicting HSTORE with numeric key. */ - ref = J->chain[IR_HSTORE]; - while (ref > lim) { - IRIns *store = IR(ref); - IRIns *href = IR(store->op1); - IRIns *key = IR(href->op2); - if (irt_isnum(key->o == IR_KSLOT ? IR(key->op1)->t : key->t)) { - lim = ref; /* Conflicting store found, limits search for TLEN. */ - break; - } - ref = store->prev; - } - - /* Search for aliasing table.clear. */ - if (!fwd_aa_tab_clear(J, lim, tab)) - return lj_ir_emit(J); - - /* Try to find a matching load. Below the conflicting store, if any. */ - return lj_opt_cselim(J, lim); -} - -/* -- ASTORE/HSTORE previous type analysis -------------------------------- */ - -/* Check whether the previous value for a table store is non-nil. -** This can be derived either from a previous store or from a previous -** load (because all loads from tables perform a type check). -** -** The result of the analysis can be used to avoid the metatable check -** and the guard against HREF returning niltv. Both of these are cheap, -** so let's not spend too much effort on the analysis. -** -** A result of 1 is exact: previous value CANNOT be nil. -** A result of 0 is inexact: previous value MAY be nil. -*/ -int lj_opt_fwd_wasnonnil(jit_State *J, IROpT loadop, IRRef xref) -{ - /* First check stores. */ - IRRef ref = J->chain[loadop+IRDELTA_L2S]; - while (ref > xref) { - IRIns *store = IR(ref); - if (store->op1 == xref) { /* Same xREF. */ - /* A nil store MAY alias, but a non-nil store MUST alias. */ - return !irt_isnil(store->t); - } else if (irt_isnil(store->t)) { /* Must check any nil store. */ - IRRef skref = IR(store->op1)->op2; - IRRef xkref = IR(xref)->op2; - /* Same key type MAY alias. Need ALOAD check due to multiple int types. */ - if (loadop == IR_ALOAD || irt_sametype(IR(skref)->t, IR(xkref)->t)) { - if (skref == xkref || !irref_isk(skref) || !irref_isk(xkref)) - return 0; /* A nil store with same const key or var key MAY alias. */ - /* Different const keys CANNOT alias. */ - } /* Different key types CANNOT alias. */ - } /* Other non-nil stores MAY alias. */ - ref = store->prev; - } - - /* Check loads since nothing could be derived from stores. */ - ref = J->chain[loadop]; - while (ref > xref) { - IRIns *load = IR(ref); - if (load->op1 == xref) { /* Same xREF. */ - /* A nil load MAY alias, but a non-nil load MUST alias. */ - return !irt_isnil(load->t); - } /* Other non-nil loads MAY alias. */ - ref = load->prev; - } - return 0; /* Nothing derived at all, previous value MAY be nil. */ -} - -/* ------------------------------------------------------------------------ */ - -#undef IR -#undef fins -#undef fleft -#undef fright - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c deleted file mode 100644 index d221c30dd4f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_narrow.c +++ /dev/null @@ -1,647 +0,0 @@ -/* -** NARROW: Narrowing of numbers to integers (double to int32_t). -** STRIPOV: Stripping of overflow checks. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_narrow_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_bc.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_vm.h" -#include "lj_strscan.h" - -/* Rationale for narrowing optimizations: -** -** Lua has only a single number type and this is a FP double by default. -** Narrowing doubles to integers does not pay off for the interpreter on a -** current-generation x86/x64 machine. Most FP operations need the same -** amount of execution resources as their integer counterparts, except -** with slightly longer latencies. Longer latencies are a non-issue for -** the interpreter, since they are usually hidden by other overhead. -** -** The total CPU execution bandwidth is the sum of the bandwidth of the FP -** and the integer units, because they execute in parallel. The FP units -** have an equal or higher bandwidth than the integer units. Not using -** them means losing execution bandwidth. Moving work away from them to -** the already quite busy integer units is a losing proposition. -** -** The situation for JIT-compiled code is a bit different: the higher code -** density makes the extra latencies much more visible. Tight loops expose -** the latencies for updating the induction variables. Array indexing -** requires narrowing conversions with high latencies and additional -** guards (to check that the index is really an integer). And many common -** optimizations only work on integers. -** -** One solution would be speculative, eager narrowing of all number loads. -** This causes many problems, like losing -0 or the need to resolve type -** mismatches between traces. It also effectively forces the integer type -** to have overflow-checking semantics. This impedes many basic -** optimizations and requires adding overflow checks to all integer -** arithmetic operations (whereas FP arithmetics can do without). -** -** Always replacing an FP op with an integer op plus an overflow check is -** counter-productive on a current-generation super-scalar CPU. Although -** the overflow check branches are highly predictable, they will clog the -** execution port for the branch unit and tie up reorder buffers. This is -** turning a pure data-flow dependency into a different data-flow -** dependency (with slightly lower latency) *plus* a control dependency. -** In general, you don't want to do this since latencies due to data-flow -** dependencies can be well hidden by out-of-order execution. -** -** A better solution is to keep all numbers as FP values and only narrow -** when it's beneficial to do so. LuaJIT uses predictive narrowing for -** induction variables and demand-driven narrowing for index expressions, -** integer arguments and bit operations. Additionally it can eliminate or -** hoist most of the resulting overflow checks. Regular arithmetic -** computations are never narrowed to integers. -** -** The integer type in the IR has convenient wrap-around semantics and -** ignores overflow. Extra operations have been added for -** overflow-checking arithmetic (ADDOV/SUBOV) instead of an extra type. -** Apart from reducing overall complexity of the compiler, this also -** nicely solves the problem where you want to apply algebraic -** simplifications to ADD, but not to ADDOV. And the x86/x64 assembler can -** use lea instead of an add for integer ADD, but not for ADDOV (lea does -** not affect the flags, but it helps to avoid register moves). -** -** -** All of the above has to be reconsidered for architectures with slow FP -** operations or without a hardware FPU. The dual-number mode of LuaJIT -** addresses this issue. Arithmetic operations are performed on integers -** as far as possible and overflow checks are added as needed. -** -** This implies that narrowing for integer arguments and bit operations -** should also strip overflow checks, e.g. replace ADDOV with ADD. The -** original overflow guards are weak and can be eliminated by DCE, if -** there's no other use. -** -** A slight twist is that it's usually beneficial to use overflow-checked -** integer arithmetics if all inputs are already integers. This is the only -** change that affects the single-number mode, too. -*/ - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) -#define fins (&J->fold.ins) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) - -/* -- Elimination of narrowing type conversions --------------------------- */ - -/* Narrowing of index expressions and bit operations is demand-driven. The -** trace recorder emits a narrowing type conversion (CONV.int.num or TOBIT) -** in all of these cases (e.g. array indexing or string indexing). FOLD -** already takes care of eliminating simple redundant conversions like -** CONV.int.num(CONV.num.int(x)) ==> x. -** -** But the surrounding code is FP-heavy and arithmetic operations are -** performed on FP numbers (for the single-number mode). Consider a common -** example such as 'x=t[i+1]', with 'i' already an integer (due to induction -** variable narrowing). The index expression would be recorded as -** CONV.int.num(ADD(CONV.num.int(i), 1)) -** which is clearly suboptimal. -** -** One can do better by recursively backpropagating the narrowing type -** conversion across FP arithmetic operations. This turns FP ops into -** their corresponding integer counterparts. Depending on the semantics of -** the conversion they also need to check for overflow. Currently only ADD -** and SUB are supported. -** -** The above example can be rewritten as -** ADDOV(CONV.int.num(CONV.num.int(i)), 1) -** and then into ADDOV(i, 1) after folding of the conversions. The original -** FP ops remain in the IR and are eliminated by DCE since all references to -** them are gone. -** -** [In dual-number mode the trace recorder already emits ADDOV etc., but -** this can be further reduced. See below.] -** -** Special care has to be taken to avoid narrowing across an operation -** which is potentially operating on non-integral operands. One obvious -** case is when an expression contains a non-integral constant, but ends -** up as an integer index at runtime (like t[x+1.5] with x=0.5). -** -** Operations with two non-constant operands illustrate a similar problem -** (like t[a+b] with a=1.5 and b=2.5). Backpropagation has to stop there, -** unless it can be proven that either operand is integral (e.g. by CSEing -** a previous conversion). As a not-so-obvious corollary this logic also -** applies for a whole expression tree (e.g. t[(a+1)+(b+1)]). -** -** Correctness of the transformation is guaranteed by avoiding to expand -** the tree by adding more conversions than the one we would need to emit -** if not backpropagating. TOBIT employs a more optimistic rule, because -** the conversion has special semantics, designed to make the life of the -** compiler writer easier. ;-) -** -** Using on-the-fly backpropagation of an expression tree doesn't work -** because it's unknown whether the transform is correct until the end. -** This either requires IR rollback and cache invalidation for every -** subtree or a two-pass algorithm. The former didn't work out too well, -** so the code now combines a recursive collector with a stack-based -** emitter. -** -** [A recursive backpropagation algorithm with backtracking, employing -** skip-list lookup and round-robin caching, emitting stack operations -** on-the-fly for a stack-based interpreter -- and all of that in a meager -** kilobyte? Yep, compilers are a great treasure chest. Throw away your -** textbooks and read the codebase of a compiler today!] -** -** There's another optimization opportunity for array indexing: it's -** always accompanied by an array bounds-check. The outermost overflow -** check may be delegated to the ABC operation. This works because ABC is -** an unsigned comparison and wrap-around due to overflow creates negative -** numbers. -** -** But this optimization is only valid for constants that cannot overflow -** an int32_t into the range of valid array indexes [0..2^27+1). A check -** for +-2^30 is safe since -2^31 - 2^30 wraps to 2^30 and 2^31-1 + 2^30 -** wraps to -2^30-1. -** -** It's also good enough in practice, since e.g. t[i+1] or t[i-10] are -** quite common. So the above example finally ends up as ADD(i, 1)! -** -** Later on, the assembler is able to fuse the whole array reference and -** the ADD into the memory operands of loads and other instructions. This -** is why LuaJIT is able to generate very pretty (and fast) machine code -** for array indexing. And that, my dear, concludes another story about -** one of the hidden secrets of LuaJIT ... -*/ - -/* Maximum backpropagation depth and maximum stack size. */ -#define NARROW_MAX_BACKPROP 100 -#define NARROW_MAX_STACK 256 - -/* The stack machine has a 32 bit instruction format: [IROpT | IRRef1] -** The lower 16 bits hold a reference (or 0). The upper 16 bits hold -** the IR opcode + type or one of the following special opcodes: -*/ -enum { - NARROW_REF, /* Push ref. */ - NARROW_CONV, /* Push conversion of ref. */ - NARROW_SEXT, /* Push sign-extension of ref. */ - NARROW_INT /* Push KINT ref. The next code holds an int32_t. */ -}; - -typedef uint32_t NarrowIns; - -#define NARROWINS(op, ref) (((op) << 16) + (ref)) -#define narrow_op(ins) ((IROpT)((ins) >> 16)) -#define narrow_ref(ins) ((IRRef1)(ins)) - -/* Context used for narrowing of type conversions. */ -typedef struct NarrowConv { - jit_State *J; /* JIT compiler state. */ - NarrowIns *sp; /* Current stack pointer. */ - NarrowIns *maxsp; /* Maximum stack pointer minus redzone. */ - int lim; /* Limit on the number of emitted conversions. */ - IRRef mode; /* Conversion mode (IRCONV_*). */ - IRType t; /* Destination type: IRT_INT or IRT_I64. */ - NarrowIns stack[NARROW_MAX_STACK]; /* Stack holding stack-machine code. */ -} NarrowConv; - -/* Lookup a reference in the backpropagation cache. */ -static BPropEntry *narrow_bpc_get(jit_State *J, IRRef1 key, IRRef mode) -{ - ptrdiff_t i; - for (i = 0; i < BPROP_SLOTS; i++) { - BPropEntry *bp = &J->bpropcache[i]; - /* Stronger checks are ok, too. */ - if (bp->key == key && bp->mode >= mode && - ((bp->mode ^ mode) & IRCONV_MODEMASK) == 0) - return bp; - } - return NULL; -} - -/* Add an entry to the backpropagation cache. */ -static void narrow_bpc_set(jit_State *J, IRRef1 key, IRRef1 val, IRRef mode) -{ - uint32_t slot = J->bpropslot; - BPropEntry *bp = &J->bpropcache[slot]; - J->bpropslot = (slot + 1) & (BPROP_SLOTS-1); - bp->key = key; - bp->val = val; - bp->mode = mode; -} - -/* Backpropagate overflow stripping. */ -static void narrow_stripov_backprop(NarrowConv *nc, IRRef ref, int depth) -{ - jit_State *J = nc->J; - IRIns *ir = IR(ref); - if (ir->o == IR_ADDOV || ir->o == IR_SUBOV || - (ir->o == IR_MULOV && (nc->mode & IRCONV_CONVMASK) == IRCONV_ANY)) { - BPropEntry *bp = narrow_bpc_get(nc->J, ref, IRCONV_TOBIT); - if (bp) { - ref = bp->val; - } else if (++depth < NARROW_MAX_BACKPROP && nc->sp < nc->maxsp) { - narrow_stripov_backprop(nc, ir->op1, depth); - narrow_stripov_backprop(nc, ir->op2, depth); - *nc->sp++ = NARROWINS(IRT(ir->o - IR_ADDOV + IR_ADD, IRT_INT), ref); - return; - } - } - *nc->sp++ = NARROWINS(NARROW_REF, ref); -} - -/* Backpropagate narrowing conversion. Return number of needed conversions. */ -static int narrow_conv_backprop(NarrowConv *nc, IRRef ref, int depth) -{ - jit_State *J = nc->J; - IRIns *ir = IR(ref); - IRRef cref; - - /* Check the easy cases first. */ - if (ir->o == IR_CONV && (ir->op2 & IRCONV_SRCMASK) == IRT_INT) { - if ((nc->mode & IRCONV_CONVMASK) <= IRCONV_ANY) - narrow_stripov_backprop(nc, ir->op1, depth+1); - else - *nc->sp++ = NARROWINS(NARROW_REF, ir->op1); /* Undo conversion. */ - if (nc->t == IRT_I64) - *nc->sp++ = NARROWINS(NARROW_SEXT, 0); /* Sign-extend integer. */ - return 0; - } else if (ir->o == IR_KNUM) { /* Narrow FP constant. */ - lua_Number n = ir_knum(ir)->n; - if ((nc->mode & IRCONV_CONVMASK) == IRCONV_TOBIT) { - /* Allows a wider range of constants. */ - int64_t k64 = (int64_t)n; - if (n == (lua_Number)k64) { /* Only if const doesn't lose precision. */ - *nc->sp++ = NARROWINS(NARROW_INT, 0); - *nc->sp++ = (NarrowIns)k64; /* But always truncate to 32 bits. */ - return 0; - } - } else { - int32_t k = lj_num2int(n); - /* Only if constant is a small integer. */ - if (checki16(k) && n == (lua_Number)k) { - *nc->sp++ = NARROWINS(NARROW_INT, 0); - *nc->sp++ = (NarrowIns)k; - return 0; - } - } - return 10; /* Never narrow other FP constants (this is rare). */ - } - - /* Try to CSE the conversion. Stronger checks are ok, too. */ - cref = J->chain[fins->o]; - while (cref > ref) { - IRIns *cr = IR(cref); - if (cr->op1 == ref && - (fins->o == IR_TOBIT || - ((cr->op2 & IRCONV_MODEMASK) == (nc->mode & IRCONV_MODEMASK) && - irt_isguard(cr->t) >= irt_isguard(fins->t)))) { - *nc->sp++ = NARROWINS(NARROW_REF, cref); - return 0; /* Already there, no additional conversion needed. */ - } - cref = cr->prev; - } - - /* Backpropagate across ADD/SUB. */ - if (ir->o == IR_ADD || ir->o == IR_SUB) { - /* Try cache lookup first. */ - IRRef mode = nc->mode; - BPropEntry *bp; - /* Inner conversions need a stronger check. */ - if ((mode & IRCONV_CONVMASK) == IRCONV_INDEX && depth > 0) - mode += IRCONV_CHECK-IRCONV_INDEX; - bp = narrow_bpc_get(nc->J, (IRRef1)ref, mode); - if (bp) { - *nc->sp++ = NARROWINS(NARROW_REF, bp->val); - return 0; - } else if (nc->t == IRT_I64) { - /* Try sign-extending from an existing (checked) conversion to int. */ - mode = (IRT_INT<<5)|IRT_NUM|IRCONV_INDEX; - bp = narrow_bpc_get(nc->J, (IRRef1)ref, mode); - if (bp) { - *nc->sp++ = NARROWINS(NARROW_REF, bp->val); - *nc->sp++ = NARROWINS(NARROW_SEXT, 0); - return 0; - } - } - if (++depth < NARROW_MAX_BACKPROP && nc->sp < nc->maxsp) { - NarrowIns *savesp = nc->sp; - int count = narrow_conv_backprop(nc, ir->op1, depth); - count += narrow_conv_backprop(nc, ir->op2, depth); - if (count <= nc->lim) { /* Limit total number of conversions. */ - *nc->sp++ = NARROWINS(IRT(ir->o, nc->t), ref); - return count; - } - nc->sp = savesp; /* Too many conversions, need to backtrack. */ - } - } - - /* Otherwise add a conversion. */ - *nc->sp++ = NARROWINS(NARROW_CONV, ref); - return 1; -} - -/* Emit the conversions collected during backpropagation. */ -static IRRef narrow_conv_emit(jit_State *J, NarrowConv *nc) -{ - /* The fins fields must be saved now -- emitir() overwrites them. */ - IROpT guardot = irt_isguard(fins->t) ? IRTG(IR_ADDOV-IR_ADD, 0) : 0; - IROpT convot = fins->ot; - IRRef1 convop2 = fins->op2; - NarrowIns *next = nc->stack; /* List of instructions from backpropagation. */ - NarrowIns *last = nc->sp; - NarrowIns *sp = nc->stack; /* Recycle the stack to store operands. */ - while (next < last) { /* Simple stack machine to process the ins. list. */ - NarrowIns ref = *next++; - IROpT op = narrow_op(ref); - if (op == NARROW_REF) { - *sp++ = ref; - } else if (op == NARROW_CONV) { - *sp++ = emitir_raw(convot, ref, convop2); /* Raw emit avoids a loop. */ - } else if (op == NARROW_SEXT) { - lua_assert(sp >= nc->stack+1); - sp[-1] = emitir(IRT(IR_CONV, IRT_I64), sp[-1], - (IRT_I64<<5)|IRT_INT|IRCONV_SEXT); - } else if (op == NARROW_INT) { - lua_assert(next < last); - *sp++ = nc->t == IRT_I64 ? - lj_ir_kint64(J, (int64_t)(int32_t)*next++) : - lj_ir_kint(J, *next++); - } else { /* Regular IROpT. Pops two operands and pushes one result. */ - IRRef mode = nc->mode; - lua_assert(sp >= nc->stack+2); - sp--; - /* Omit some overflow checks for array indexing. See comments above. */ - if ((mode & IRCONV_CONVMASK) == IRCONV_INDEX) { - if (next == last && irref_isk(narrow_ref(sp[0])) && - (uint32_t)IR(narrow_ref(sp[0]))->i + 0x40000000u < 0x80000000u) - guardot = 0; - else /* Otherwise cache a stronger check. */ - mode += IRCONV_CHECK-IRCONV_INDEX; - } - sp[-1] = emitir(op+guardot, sp[-1], sp[0]); - /* Add to cache. */ - if (narrow_ref(ref)) - narrow_bpc_set(J, narrow_ref(ref), narrow_ref(sp[-1]), mode); - } - } - lua_assert(sp == nc->stack+1); - return nc->stack[0]; -} - -/* Narrow a type conversion of an arithmetic operation. */ -TRef LJ_FASTCALL lj_opt_narrow_convert(jit_State *J) -{ - if ((J->flags & JIT_F_OPT_NARROW)) { - NarrowConv nc; - nc.J = J; - nc.sp = nc.stack; - nc.maxsp = &nc.stack[NARROW_MAX_STACK-4]; - nc.t = irt_type(fins->t); - if (fins->o == IR_TOBIT) { - nc.mode = IRCONV_TOBIT; /* Used only in the backpropagation cache. */ - nc.lim = 2; /* TOBIT can use a more optimistic rule. */ - } else { - nc.mode = fins->op2; - nc.lim = 1; - } - if (narrow_conv_backprop(&nc, fins->op1, 0) <= nc.lim) - return narrow_conv_emit(J, &nc); - } - return NEXTFOLD; -} - -/* -- Narrowing of implicit conversions ----------------------------------- */ - -/* Recursively strip overflow checks. */ -static TRef narrow_stripov(jit_State *J, TRef tr, int lastop, IRRef mode) -{ - IRRef ref = tref_ref(tr); - IRIns *ir = IR(ref); - int op = ir->o; - if (op >= IR_ADDOV && op <= lastop) { - BPropEntry *bp = narrow_bpc_get(J, ref, mode); - if (bp) { - return TREF(bp->val, irt_t(IR(bp->val)->t)); - } else { - IRRef op1 = ir->op1, op2 = ir->op2; /* The IR may be reallocated. */ - op1 = narrow_stripov(J, op1, lastop, mode); - op2 = narrow_stripov(J, op2, lastop, mode); - tr = emitir(IRT(op - IR_ADDOV + IR_ADD, - ((mode & IRCONV_DSTMASK) >> IRCONV_DSH)), op1, op2); - narrow_bpc_set(J, ref, tref_ref(tr), mode); - } - } else if (LJ_64 && (mode & IRCONV_SEXT) && !irt_is64(ir->t)) { - tr = emitir(IRT(IR_CONV, IRT_INTP), tr, mode); - } - return tr; -} - -/* Narrow array index. */ -TRef LJ_FASTCALL lj_opt_narrow_index(jit_State *J, TRef tr) -{ - IRIns *ir; - lua_assert(tref_isnumber(tr)); - if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ - return emitir(IRTGI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_INDEX); - /* Omit some overflow checks for array indexing. See comments above. */ - ir = IR(tref_ref(tr)); - if ((ir->o == IR_ADDOV || ir->o == IR_SUBOV) && irref_isk(ir->op2) && - (uint32_t)IR(ir->op2)->i + 0x40000000u < 0x80000000u) - return emitir(IRTI(ir->o - IR_ADDOV + IR_ADD), ir->op1, ir->op2); - return tr; -} - -/* Narrow conversion to integer operand (overflow undefined). */ -TRef LJ_FASTCALL lj_opt_narrow_toint(jit_State *J, TRef tr) -{ - if (tref_isstr(tr)) - tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); - if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ - return emitir(IRTI(IR_CONV), tr, IRCONV_INT_NUM|IRCONV_ANY); - if (!tref_isinteger(tr)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - /* - ** Undefined overflow semantics allow stripping of ADDOV, SUBOV and MULOV. - ** Use IRCONV_TOBIT for the cache entries, since the semantics are the same. - */ - return narrow_stripov(J, tr, IR_MULOV, (IRT_INT<<5)|IRT_INT|IRCONV_TOBIT); -} - -/* Narrow conversion to bitop operand (overflow wrapped). */ -TRef LJ_FASTCALL lj_opt_narrow_tobit(jit_State *J, TRef tr) -{ - if (tref_isstr(tr)) - tr = emitir(IRTG(IR_STRTO, IRT_NUM), tr, 0); - if (tref_isnum(tr)) /* Conversion may be narrowed, too. See above. */ - return emitir(IRTI(IR_TOBIT), tr, lj_ir_knum_tobit(J)); - if (!tref_isinteger(tr)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - /* - ** Wrapped overflow semantics allow stripping of ADDOV and SUBOV. - ** MULOV cannot be stripped due to precision widening. - */ - return narrow_stripov(J, tr, IR_SUBOV, (IRT_INT<<5)|IRT_INT|IRCONV_TOBIT); -} - -#if LJ_HASFFI -/* Narrow C array index (overflow undefined). */ -TRef LJ_FASTCALL lj_opt_narrow_cindex(jit_State *J, TRef tr) -{ - lua_assert(tref_isnumber(tr)); - if (tref_isnum(tr)) - return emitir(IRT(IR_CONV, IRT_INTP), tr, (IRT_INTP<<5)|IRT_NUM|IRCONV_ANY); - /* Undefined overflow semantics allow stripping of ADDOV, SUBOV and MULOV. */ - return narrow_stripov(J, tr, IR_MULOV, - LJ_64 ? ((IRT_INTP<<5)|IRT_INT|IRCONV_SEXT) : - ((IRT_INTP<<5)|IRT_INT|IRCONV_TOBIT)); -} -#endif - -/* -- Narrowing of arithmetic operators ----------------------------------- */ - -/* Check whether a number fits into an int32_t (-0 is ok, too). */ -static int numisint(lua_Number n) -{ - return (n == (lua_Number)lj_num2int(n)); -} - -/* Narrowing of arithmetic operations. */ -TRef lj_opt_narrow_arith(jit_State *J, TRef rb, TRef rc, - TValue *vb, TValue *vc, IROp op) -{ - if (tref_isstr(rb)) { - rb = emitir(IRTG(IR_STRTO, IRT_NUM), rb, 0); - lj_strscan_num(strV(vb), vb); - } - if (tref_isstr(rc)) { - rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); - lj_strscan_num(strV(vc), vc); - } - /* Must not narrow MUL in non-DUALNUM variant, because it loses -0. */ - if ((op >= IR_ADD && op <= (LJ_DUALNUM ? IR_MUL : IR_SUB)) && - tref_isinteger(rb) && tref_isinteger(rc) && - numisint(lj_vm_foldarith(numberVnum(vb), numberVnum(vc), - (int)op - (int)IR_ADD))) - return emitir(IRTGI((int)op - (int)IR_ADD + (int)IR_ADDOV), rb, rc); - if (!tref_isnum(rb)) rb = emitir(IRTN(IR_CONV), rb, IRCONV_NUM_INT); - if (!tref_isnum(rc)) rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); - return emitir(IRTN(op), rb, rc); -} - -/* Narrowing of unary minus operator. */ -TRef lj_opt_narrow_unm(jit_State *J, TRef rc, TValue *vc) -{ - if (tref_isstr(rc)) { - rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); - lj_strscan_num(strV(vc), vc); - } - if (tref_isinteger(rc)) { - if ((uint32_t)numberVint(vc) != 0x80000000u) - return emitir(IRTGI(IR_SUBOV), lj_ir_kint(J, 0), rc); - rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); - } - return emitir(IRTN(IR_NEG), rc, lj_ir_knum_neg(J)); -} - -/* Narrowing of modulo operator. */ -TRef lj_opt_narrow_mod(jit_State *J, TRef rb, TRef rc, TValue *vc) -{ - TRef tmp; - if (tvisstr(vc) && !lj_strscan_num(strV(vc), vc)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - if ((LJ_DUALNUM || (J->flags & JIT_F_OPT_NARROW)) && - tref_isinteger(rb) && tref_isinteger(rc) && - (tvisint(vc) ? intV(vc) != 0 : !tviszero(vc))) { - emitir(IRTGI(IR_NE), rc, lj_ir_kint(J, 0)); - return emitir(IRTI(IR_MOD), rb, rc); - } - /* b % c ==> b - floor(b/c)*c */ - rb = lj_ir_tonum(J, rb); - rc = lj_ir_tonum(J, rc); - tmp = emitir(IRTN(IR_DIV), rb, rc); - tmp = emitir(IRTN(IR_FPMATH), tmp, IRFPM_FLOOR); - tmp = emitir(IRTN(IR_MUL), tmp, rc); - return emitir(IRTN(IR_SUB), rb, tmp); -} - -/* Narrowing of power operator or math.pow. */ -TRef lj_opt_narrow_pow(jit_State *J, TRef rb, TRef rc, TValue *vc) -{ - if (tvisstr(vc) && !lj_strscan_num(strV(vc), vc)) - lj_trace_err(J, LJ_TRERR_BADTYPE); - /* Narrowing must be unconditional to preserve (-x)^i semantics. */ - if (tvisint(vc) || numisint(numV(vc))) { - int checkrange = 0; - /* Split pow is faster for bigger exponents. But do this only for (+k)^i. */ - if (tref_isk(rb) && (int32_t)ir_knum(IR(tref_ref(rb)))->u32.hi >= 0) { - int32_t k = numberVint(vc); - if (!(k >= -65536 && k <= 65536)) goto split_pow; - checkrange = 1; - } - if (!tref_isinteger(rc)) { - if (tref_isstr(rc)) - rc = emitir(IRTG(IR_STRTO, IRT_NUM), rc, 0); - /* Guarded conversion to integer! */ - rc = emitir(IRTGI(IR_CONV), rc, IRCONV_INT_NUM|IRCONV_CHECK); - } - if (checkrange && !tref_isk(rc)) { /* Range guard: -65536 <= i <= 65536 */ - TRef tmp = emitir(IRTI(IR_ADD), rc, lj_ir_kint(J, 65536)); - emitir(IRTGI(IR_ULE), tmp, lj_ir_kint(J, 2*65536)); - } - return emitir(IRTN(IR_POW), rb, rc); - } -split_pow: - /* FOLD covers most cases, but some are easier to do here. */ - if (tref_isk(rb) && tvispone(ir_knum(IR(tref_ref(rb))))) - return rb; /* 1 ^ x ==> 1 */ - rc = lj_ir_tonum(J, rc); - if (tref_isk(rc) && ir_knum(IR(tref_ref(rc)))->n == 0.5) - return emitir(IRTN(IR_FPMATH), rb, IRFPM_SQRT); /* x ^ 0.5 ==> sqrt(x) */ - /* Split up b^c into exp2(c*log2(b)). Assembler may rejoin later. */ - rb = emitir(IRTN(IR_FPMATH), rb, IRFPM_LOG2); - rc = emitir(IRTN(IR_MUL), rb, rc); - return emitir(IRTN(IR_FPMATH), rc, IRFPM_EXP2); -} - -/* -- Predictive narrowing of induction variables ------------------------- */ - -/* Narrow a single runtime value. */ -static int narrow_forl(jit_State *J, cTValue *o) -{ - if (tvisint(o)) return 1; - if (LJ_DUALNUM || (J->flags & JIT_F_OPT_NARROW)) return numisint(numV(o)); - return 0; -} - -/* Narrow the FORL index type by looking at the runtime values. */ -IRType lj_opt_narrow_forl(jit_State *J, cTValue *tv) -{ - lua_assert(tvisnumber(&tv[FORL_IDX]) && - tvisnumber(&tv[FORL_STOP]) && - tvisnumber(&tv[FORL_STEP])); - /* Narrow only if the runtime values of start/stop/step are all integers. */ - if (narrow_forl(J, &tv[FORL_IDX]) && - narrow_forl(J, &tv[FORL_STOP]) && - narrow_forl(J, &tv[FORL_STEP])) { - /* And if the loop index can't possibly overflow. */ - lua_Number step = numberVnum(&tv[FORL_STEP]); - lua_Number sum = numberVnum(&tv[FORL_STOP]) + step; - if (0 <= step ? (sum <= 2147483647.0) : (sum >= -2147483648.0)) - return IRT_INT; - } - return IRT_NUM; -} - -#undef IR -#undef fins -#undef emitir -#undef emitir_raw - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c deleted file mode 100644 index a98e9dfe3b4..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_sink.c +++ /dev/null @@ -1,245 +0,0 @@ -/* -** SINK: Allocation Sinking and Store Sinking. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_sink_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_target.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Check whether the store ref points to an eligible allocation. */ -static IRIns *sink_checkalloc(jit_State *J, IRIns *irs) -{ - IRIns *ir = IR(irs->op1); - if (!irref_isk(ir->op2)) - return NULL; /* Non-constant key. */ - if (ir->o == IR_HREFK || ir->o == IR_AREF) - ir = IR(ir->op1); - else if (!(ir->o == IR_HREF || ir->o == IR_NEWREF || - ir->o == IR_FREF || ir->o == IR_ADD)) - return NULL; /* Unhandled reference type (for XSTORE). */ - ir = IR(ir->op1); - if (!(ir->o == IR_TNEW || ir->o == IR_TDUP || ir->o == IR_CNEW)) - return NULL; /* Not an allocation. */ - return ir; /* Return allocation. */ -} - -/* Recursively check whether a value depends on a PHI. */ -static int sink_phidep(jit_State *J, IRRef ref) -{ - IRIns *ir = IR(ref); - if (irt_isphi(ir->t)) return 1; - if (ir->op1 >= REF_FIRST && sink_phidep(J, ir->op1)) return 1; - if (ir->op2 >= REF_FIRST && sink_phidep(J, ir->op2)) return 1; - return 0; -} - -/* Check whether a value is a sinkable PHI or loop-invariant. */ -static int sink_checkphi(jit_State *J, IRIns *ira, IRRef ref) -{ - if (ref >= REF_FIRST) { - IRIns *ir = IR(ref); - if (irt_isphi(ir->t) || (ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT && - irt_isphi(IR(ir->op1)->t))) { - ira->prev++; - return 1; /* Sinkable PHI. */ - } - /* Otherwise the value must be loop-invariant. */ - return ref < J->loopref && !sink_phidep(J, ref); - } - return 1; /* Constant (non-PHI). */ -} - -/* Mark non-sinkable allocations using single-pass backward propagation. -** -** Roots for the marking process are: -** - Some PHIs or snapshots (see below). -** - Non-PHI, non-constant values stored to PHI allocations. -** - All guards. -** - Any remaining loads not eliminated by store-to-load forwarding. -** - Stores with non-constant keys. -** - All stored values. -*/ -static void sink_mark_ins(jit_State *J) -{ - IRIns *ir, *irlast = IR(J->cur.nins-1); - for (ir = irlast ; ; ir--) { - switch (ir->o) { - case IR_BASE: - return; /* Finished. */ - case IR_CALLL: /* IRCALL_lj_tab_len */ - case IR_ALOAD: case IR_HLOAD: case IR_XLOAD: case IR_TBAR: - irt_setmark(IR(ir->op1)->t); /* Mark ref for remaining loads. */ - break; - case IR_FLOAD: - if (irt_ismarked(ir->t) || ir->op2 == IRFL_TAB_META) - irt_setmark(IR(ir->op1)->t); /* Mark table for remaining loads. */ - break; - case IR_ASTORE: case IR_HSTORE: case IR_FSTORE: case IR_XSTORE: { - IRIns *ira = sink_checkalloc(J, ir); - if (!ira || (irt_isphi(ira->t) && !sink_checkphi(J, ira, ir->op2))) - irt_setmark(IR(ir->op1)->t); /* Mark ineligible ref. */ - irt_setmark(IR(ir->op2)->t); /* Mark stored value. */ - break; - } -#if LJ_HASFFI - case IR_CNEWI: - if (irt_isphi(ir->t) && - (!sink_checkphi(J, ir, ir->op2) || - (LJ_32 && ir+1 < irlast && (ir+1)->o == IR_HIOP && - !sink_checkphi(J, ir, (ir+1)->op2)))) - irt_setmark(ir->t); /* Mark ineligible allocation. */ - /* fallthrough */ -#endif - case IR_USTORE: - irt_setmark(IR(ir->op2)->t); /* Mark stored value. */ - break; -#if LJ_HASFFI - case IR_CALLXS: -#endif - case IR_CALLS: - irt_setmark(IR(ir->op1)->t); /* Mark (potentially) stored values. */ - break; - case IR_PHI: { - IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); - irl->prev = irr->prev = 0; /* Clear PHI value counts. */ - if (irl->o == irr->o && - (irl->o == IR_TNEW || irl->o == IR_TDUP || - (LJ_HASFFI && (irl->o == IR_CNEW || irl->o == IR_CNEWI)))) - break; - irt_setmark(irl->t); - irt_setmark(irr->t); - break; - } - default: - if (irt_ismarked(ir->t) || irt_isguard(ir->t)) { /* Propagate mark. */ - if (ir->op1 >= REF_FIRST) irt_setmark(IR(ir->op1)->t); - if (ir->op2 >= REF_FIRST) irt_setmark(IR(ir->op2)->t); - } - break; - } - } -} - -/* Mark all instructions referenced by a snapshot. */ -static void sink_mark_snap(jit_State *J, SnapShot *snap) -{ - SnapEntry *map = &J->cur.snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - IRRef ref = snap_ref(map[n]); - if (!irref_isk(ref)) - irt_setmark(IR(ref)->t); - } -} - -/* Iteratively remark PHI refs with differing marks or PHI value counts. */ -static void sink_remark_phi(jit_State *J) -{ - IRIns *ir; - int remark; - do { - remark = 0; - for (ir = IR(J->cur.nins-1); ir->o == IR_PHI; ir--) { - IRIns *irl = IR(ir->op1), *irr = IR(ir->op2); - if (((irl->t.irt ^ irr->t.irt) & IRT_MARK)) - remark = 1; - else if (irl->prev == irr->prev) - continue; - irt_setmark(IR(ir->op1)->t); - irt_setmark(IR(ir->op2)->t); - } - } while (remark); -} - -/* Sweep instructions and tag sunken allocations and stores. */ -static void sink_sweep_ins(jit_State *J) -{ - IRIns *ir, *irfirst = IR(J->cur.nk); - for (ir = IR(J->cur.nins-1) ; ir >= irfirst; ir--) { - switch (ir->o) { - case IR_ASTORE: case IR_HSTORE: case IR_FSTORE: case IR_XSTORE: { - IRIns *ira = sink_checkalloc(J, ir); - if (ira && !irt_ismarked(ira->t)) { - int delta = (int)(ir - ira); - ir->prev = REGSP(RID_SINK, delta > 255 ? 255 : delta); - } else { - ir->prev = REGSP_INIT; - } - break; - } - case IR_NEWREF: - if (!irt_ismarked(IR(ir->op1)->t)) { - ir->prev = REGSP(RID_SINK, 0); - } else { - irt_clearmark(ir->t); - ir->prev = REGSP_INIT; - } - break; -#if LJ_HASFFI - case IR_CNEW: case IR_CNEWI: -#endif - case IR_TNEW: case IR_TDUP: - if (!irt_ismarked(ir->t)) { - ir->t.irt &= ~IRT_GUARD; - ir->prev = REGSP(RID_SINK, 0); - J->cur.sinktags = 1; /* Signal present SINK tags to assembler. */ - } else { - irt_clearmark(ir->t); - ir->prev = REGSP_INIT; - } - break; - case IR_PHI: { - IRIns *ira = IR(ir->op2); - if (!irt_ismarked(ira->t) && - (ira->o == IR_TNEW || ira->o == IR_TDUP || - (LJ_HASFFI && (ira->o == IR_CNEW || ira->o == IR_CNEWI)))) { - ir->prev = REGSP(RID_SINK, 0); - } else { - ir->prev = REGSP_INIT; - } - break; - } - default: - irt_clearmark(ir->t); - ir->prev = REGSP_INIT; - break; - } - } -} - -/* Allocation sinking and store sinking. -** -** 1. Mark all non-sinkable allocations. -** 2. Then sink all remaining allocations and the related stores. -*/ -void lj_opt_sink(jit_State *J) -{ - const uint32_t need = (JIT_F_OPT_SINK|JIT_F_OPT_FWD| - JIT_F_OPT_DCE|JIT_F_OPT_CSE|JIT_F_OPT_FOLD); - if ((J->flags & need) == need && - (J->chain[IR_TNEW] || J->chain[IR_TDUP] || - (LJ_HASFFI && (J->chain[IR_CNEW] || J->chain[IR_CNEWI])))) { - if (!J->loopref) - sink_mark_snap(J, &J->cur.snap[J->cur.nsnap-1]); - sink_mark_ins(J); - if (J->loopref) - sink_remark_phi(J); - sink_sweep_ins(J); - } -} - -#undef IR - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c b/src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c deleted file mode 100644 index 81ded6c0a01..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_opt_split.c +++ /dev/null @@ -1,856 +0,0 @@ -/* -** SPLIT: Split 64 bit IR instructions into 32 bit IR instructions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_opt_split_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT && (LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) - -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_vm.h" - -/* SPLIT pass: -** -** This pass splits up 64 bit IR instructions into multiple 32 bit IR -** instructions. It's only active for soft-float targets or for 32 bit CPUs -** which lack native 64 bit integer operations (the FFI is currently the -** only emitter for 64 bit integer instructions). -** -** Splitting the IR in a separate pass keeps each 32 bit IR assembler -** backend simple. Only a small amount of extra functionality needs to be -** implemented. This is much easier than adding support for allocating -** register pairs to each backend (believe me, I tried). A few simple, but -** important optimizations can be performed by the SPLIT pass, which would -** be tedious to do in the backend. -** -** The basic idea is to replace each 64 bit IR instruction with its 32 bit -** equivalent plus an extra HIOP instruction. The splitted IR is not passed -** through FOLD or any other optimizations, so each HIOP is guaranteed to -** immediately follow it's counterpart. The actual functionality of HIOP is -** inferred from the previous instruction. -** -** The operands of HIOP hold the hiword input references. The output of HIOP -** is the hiword output reference, which is also used to hold the hiword -** register or spill slot information. The register allocator treats this -** instruction independently of any other instruction, which improves code -** quality compared to using fixed register pairs. -** -** It's easier to split up some instructions into two regular 32 bit -** instructions. E.g. XLOAD is split up into two XLOADs with two different -** addresses. Obviously 64 bit constants need to be split up into two 32 bit -** constants, too. Some hiword instructions can be entirely omitted, e.g. -** when zero-extending a 32 bit value to 64 bits. 64 bit arguments for calls -** are split up into two 32 bit arguments each. -** -** On soft-float targets, floating-point instructions are directly converted -** to soft-float calls by the SPLIT pass (except for comparisons and MIN/MAX). -** HIOP for number results has the type IRT_SOFTFP ("sfp" in -jdump). -** -** Here's the IR and x64 machine code for 'x.b = x.a + 1' for a struct with -** two int64_t fields: -** -** 0100 p32 ADD base +8 -** 0101 i64 XLOAD 0100 -** 0102 i64 ADD 0101 +1 -** 0103 p32 ADD base +16 -** 0104 i64 XSTORE 0103 0102 -** -** mov rax, [esi+0x8] -** add rax, +0x01 -** mov [esi+0x10], rax -** -** Here's the transformed IR and the x86 machine code after the SPLIT pass: -** -** 0100 p32 ADD base +8 -** 0101 int XLOAD 0100 -** 0102 p32 ADD base +12 -** 0103 int XLOAD 0102 -** 0104 int ADD 0101 +1 -** 0105 int HIOP 0103 +0 -** 0106 p32 ADD base +16 -** 0107 int XSTORE 0106 0104 -** 0108 int HIOP 0106 0105 -** -** mov eax, [esi+0x8] -** mov ecx, [esi+0xc] -** add eax, +0x01 -** adc ecx, +0x00 -** mov [esi+0x10], eax -** mov [esi+0x14], ecx -** -** You may notice the reassociated hiword address computation, which is -** later fused into the mov operands by the assembler. -*/ - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Directly emit the transformed IR without updating chains etc. */ -static IRRef split_emit(jit_State *J, uint16_t ot, IRRef1 op1, IRRef1 op2) -{ - IRRef nref = lj_ir_nextins(J); - IRIns *ir = IR(nref); - ir->ot = ot; - ir->op1 = op1; - ir->op2 = op2; - return nref; -} - -#if LJ_SOFTFP -/* Emit a (checked) number to integer conversion. */ -static IRRef split_num2int(jit_State *J, IRRef lo, IRRef hi, int check) -{ - IRRef tmp, res; -#if LJ_LE - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), lo, hi); -#else - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hi, lo); -#endif - res = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_softfp_d2i); - if (check) { - tmp = split_emit(J, IRTI(IR_CALLN), res, IRCALL_softfp_i2d); - split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); - split_emit(J, IRTGI(IR_EQ), tmp, lo); - split_emit(J, IRTG(IR_HIOP, IRT_SOFTFP), tmp+1, hi); - } - return res; -} - -/* Emit a CALLN with one split 64 bit argument. */ -static IRRef split_call_l(jit_State *J, IRRef1 *hisubst, IRIns *oir, - IRIns *ir, IRCallID id) -{ - IRRef tmp, op1 = ir->op1; - J->cur.nins--; -#if LJ_LE - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); -#else - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); -#endif - ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); - return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); -} -#endif - -/* Emit a CALLN with one split 64 bit argument and a 32 bit argument. */ -static IRRef split_call_li(jit_State *J, IRRef1 *hisubst, IRIns *oir, - IRIns *ir, IRCallID id) -{ - IRRef tmp, op1 = ir->op1, op2 = ir->op2; - J->cur.nins--; -#if LJ_LE - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); -#else - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); -#endif - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); - ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); - return split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); -} - -/* Emit a CALLN with two split 64 bit arguments. */ -static IRRef split_call_ll(jit_State *J, IRRef1 *hisubst, IRIns *oir, - IRIns *ir, IRCallID id) -{ - IRRef tmp, op1 = ir->op1, op2 = ir->op2; - J->cur.nins--; -#if LJ_LE - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, hisubst[op2]); -#else - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, hisubst[op2]); - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, oir[op2].prev); -#endif - ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, id); - return split_emit(J, - IRT(IR_HIOP, (LJ_SOFTFP && irt_isnum(ir->t)) ? IRT_SOFTFP : IRT_INT), - tmp, tmp); -} - -/* Get a pointer to the other 32 bit word (LE: hiword, BE: loword). */ -static IRRef split_ptr(jit_State *J, IRIns *oir, IRRef ref) -{ - IRRef nref = oir[ref].prev; - IRIns *ir = IR(nref); - int32_t ofs = 4; - if (ir->o == IR_KPTR) - return lj_ir_kptr(J, (char *)ir_kptr(ir) + ofs); - if (ir->o == IR_ADD && irref_isk(ir->op2) && !irt_isphi(oir[ref].t)) { - /* Reassociate address. */ - ofs += IR(ir->op2)->i; - nref = ir->op1; - if (ofs == 0) return nref; - } - return split_emit(J, IRTI(IR_ADD), nref, lj_ir_kint(J, ofs)); -} - -#if LJ_HASFFI -static IRRef split_bitshift(jit_State *J, IRRef1 *hisubst, - IRIns *oir, IRIns *nir, IRIns *ir) -{ - IROp op = ir->o; - IRRef kref = nir->op2; - if (irref_isk(kref)) { /* Optimize constant shifts. */ - int32_t k = (IR(kref)->i & 63); - IRRef lo = nir->op1, hi = hisubst[ir->op1]; - if (op == IR_BROL || op == IR_BROR) { - if (op == IR_BROR) k = (-k & 63); - if (k >= 32) { IRRef t = lo; lo = hi; hi = t; k -= 32; } - if (k == 0) { - passthrough: - J->cur.nins--; - ir->prev = lo; - return hi; - } else { - TRef k1, k2; - IRRef t1, t2, t3, t4; - J->cur.nins--; - k1 = lj_ir_kint(J, k); - k2 = lj_ir_kint(J, (-k & 31)); - t1 = split_emit(J, IRTI(IR_BSHL), lo, k1); - t2 = split_emit(J, IRTI(IR_BSHL), hi, k1); - t3 = split_emit(J, IRTI(IR_BSHR), lo, k2); - t4 = split_emit(J, IRTI(IR_BSHR), hi, k2); - ir->prev = split_emit(J, IRTI(IR_BOR), t1, t4); - return split_emit(J, IRTI(IR_BOR), t2, t3); - } - } else if (k == 0) { - goto passthrough; - } else if (k < 32) { - if (op == IR_BSHL) { - IRRef t1 = split_emit(J, IRTI(IR_BSHL), hi, kref); - IRRef t2 = split_emit(J, IRTI(IR_BSHR), lo, lj_ir_kint(J, (-k&31))); - return split_emit(J, IRTI(IR_BOR), t1, t2); - } else { - IRRef t1 = ir->prev, t2; - lua_assert(op == IR_BSHR || op == IR_BSAR); - nir->o = IR_BSHR; - t2 = split_emit(J, IRTI(IR_BSHL), hi, lj_ir_kint(J, (-k&31))); - ir->prev = split_emit(J, IRTI(IR_BOR), t1, t2); - return split_emit(J, IRTI(op), hi, kref); - } - } else { - if (op == IR_BSHL) { - if (k == 32) - J->cur.nins--; - else - lo = ir->prev; - ir->prev = lj_ir_kint(J, 0); - return lo; - } else { - lua_assert(op == IR_BSHR || op == IR_BSAR); - if (k == 32) { - J->cur.nins--; - ir->prev = hi; - } else { - nir->op1 = hi; - } - if (op == IR_BSHR) - return lj_ir_kint(J, 0); - else - return split_emit(J, IRTI(IR_BSAR), hi, lj_ir_kint(J, 31)); - } - } - } - return split_call_li(J, hisubst, oir, ir, - op - IR_BSHL + IRCALL_lj_carith_shl64); -} - -static IRRef split_bitop(jit_State *J, IRRef1 *hisubst, - IRIns *nir, IRIns *ir) -{ - IROp op = ir->o; - IRRef hi, kref = nir->op2; - if (irref_isk(kref)) { /* Optimize bit operations with lo constant. */ - int32_t k = IR(kref)->i; - if (k == 0 || k == -1) { - if (op == IR_BAND) k = ~k; - if (k == 0) { - J->cur.nins--; - ir->prev = nir->op1; - } else if (op == IR_BXOR) { - nir->o = IR_BNOT; - nir->op2 = 0; - } else { - J->cur.nins--; - ir->prev = kref; - } - } - } - hi = hisubst[ir->op1]; - kref = hisubst[ir->op2]; - if (irref_isk(kref)) { /* Optimize bit operations with hi constant. */ - int32_t k = IR(kref)->i; - if (k == 0 || k == -1) { - if (op == IR_BAND) k = ~k; - if (k == 0) { - return hi; - } else if (op == IR_BXOR) { - return split_emit(J, IRTI(IR_BNOT), hi, 0); - } else { - return kref; - } - } - } - return split_emit(J, IRTI(op), hi, kref); -} -#endif - -/* Substitute references of a snapshot. */ -static void split_subst_snap(jit_State *J, SnapShot *snap, IRIns *oir) -{ - SnapEntry *map = &J->cur.snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - IRIns *ir = &oir[snap_ref(sn)]; - if (!(LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && irref_isk(snap_ref(sn)))) - map[n] = ((sn & 0xffff0000) | ir->prev); - } -} - -/* Transform the old IR to the new IR. */ -static void split_ir(jit_State *J) -{ - IRRef nins = J->cur.nins, nk = J->cur.nk; - MSize irlen = nins - nk; - MSize need = (irlen+1)*(sizeof(IRIns) + sizeof(IRRef1)); - IRIns *oir = (IRIns *)lj_buf_tmp(J->L, need); - IRRef1 *hisubst; - IRRef ref, snref; - SnapShot *snap; - - /* Copy old IR to buffer. */ - memcpy(oir, IR(nk), irlen*sizeof(IRIns)); - /* Bias hiword substitution table and old IR. Loword kept in field prev. */ - hisubst = (IRRef1 *)&oir[irlen] - nk; - oir -= nk; - - /* Remove all IR instructions, but retain IR constants. */ - J->cur.nins = REF_FIRST; - J->loopref = 0; - - /* Process constants and fixed references. */ - for (ref = nk; ref <= REF_BASE; ref++) { - IRIns *ir = &oir[ref]; - if ((LJ_SOFTFP && ir->o == IR_KNUM) || ir->o == IR_KINT64) { - /* Split up 64 bit constant. */ - TValue tv = *ir_k64(ir); - ir->prev = lj_ir_kint(J, (int32_t)tv.u32.lo); - hisubst[ref] = lj_ir_kint(J, (int32_t)tv.u32.hi); - } else { - ir->prev = ref; /* Identity substitution for loword. */ - hisubst[ref] = 0; - } - } - - /* Process old IR instructions. */ - snap = J->cur.snap; - snref = snap->ref; - for (ref = REF_FIRST; ref < nins; ref++) { - IRIns *ir = &oir[ref]; - IRRef nref = lj_ir_nextins(J); - IRIns *nir = IR(nref); - IRRef hi = 0; - - if (ref >= snref) { - snap->ref = nref; - split_subst_snap(J, snap++, oir); - snref = snap < &J->cur.snap[J->cur.nsnap] ? snap->ref : ~(IRRef)0; - } - - /* Copy-substitute old instruction to new instruction. */ - nir->op1 = ir->op1 < nk ? ir->op1 : oir[ir->op1].prev; - nir->op2 = ir->op2 < nk ? ir->op2 : oir[ir->op2].prev; - ir->prev = nref; /* Loword substitution. */ - nir->o = ir->o; - nir->t.irt = ir->t.irt & ~(IRT_MARK|IRT_ISPHI); - hisubst[ref] = 0; - - /* Split 64 bit instructions. */ -#if LJ_SOFTFP - if (irt_isnum(ir->t)) { - nir->t.irt = IRT_INT | (nir->t.irt & IRT_GUARD); /* Turn into INT op. */ - /* Note: hi ref = lo ref + 1! Required for SNAP_SOFTFPNUM logic. */ - switch (ir->o) { - case IR_ADD: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_add); - break; - case IR_SUB: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_sub); - break; - case IR_MUL: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_mul); - break; - case IR_DIV: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_softfp_div); - break; - case IR_POW: - hi = split_call_li(J, hisubst, oir, ir, IRCALL_lj_vm_powi); - break; - case IR_FPMATH: - /* Try to rejoin pow from EXP2, MUL and LOG2. */ - if (nir->op2 == IRFPM_EXP2 && nir->op1 > J->loopref) { - IRIns *irp = IR(nir->op1); - if (irp->o == IR_CALLN && irp->op2 == IRCALL_softfp_mul) { - IRIns *irm4 = IR(irp->op1); - IRIns *irm3 = IR(irm4->op1); - IRIns *irm12 = IR(irm3->op1); - IRIns *irl1 = IR(irm12->op1); - if (irm12->op1 > J->loopref && irl1->o == IR_CALLN && - irl1->op2 == IRCALL_lj_vm_log2) { - IRRef tmp = irl1->op1; /* Recycle first two args from LOG2. */ - IRRef arg3 = irm3->op2, arg4 = irm4->op2; - J->cur.nins--; - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, arg3); - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), tmp, arg4); - ir->prev = tmp = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_pow); - hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), tmp, tmp); - break; - } - } - } - hi = split_call_l(J, hisubst, oir, ir, IRCALL_lj_vm_floor + ir->op2); - break; - case IR_ATAN2: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_atan2); - break; - case IR_LDEXP: - hi = split_call_li(J, hisubst, oir, ir, IRCALL_ldexp); - break; - case IR_NEG: case IR_ABS: - nir->o = IR_CONV; /* Pass through loword. */ - nir->op2 = (IRT_INT << 5) | IRT_INT; - hi = split_emit(J, IRT(ir->o == IR_NEG ? IR_BXOR : IR_BAND, IRT_SOFTFP), - hisubst[ir->op1], hisubst[ir->op2]); - break; - case IR_SLOAD: - if ((nir->op2 & IRSLOAD_CONVERT)) { /* Convert from int to number. */ - nir->op2 &= ~IRSLOAD_CONVERT; - ir->prev = nref = split_emit(J, IRTI(IR_CALLN), nref, - IRCALL_softfp_i2d); - hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); - break; - } - /* fallthrough */ - case IR_ALOAD: case IR_HLOAD: case IR_ULOAD: case IR_VLOAD: - case IR_STRTO: - hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); - break; - case IR_XLOAD: { - IRIns inslo = *nir; /* Save/undo the emit of the lo XLOAD. */ - J->cur.nins--; - hi = split_ptr(J, oir, ir->op1); /* Insert the hiref ADD. */ - nref = lj_ir_nextins(J); - nir = IR(nref); - *nir = inslo; /* Re-emit lo XLOAD immediately before hi XLOAD. */ - hi = split_emit(J, IRT(IR_XLOAD, IRT_SOFTFP), hi, ir->op2); -#if LJ_LE - ir->prev = nref; -#else - ir->prev = hi; hi = nref; -#endif - break; - } - case IR_ASTORE: case IR_HSTORE: case IR_USTORE: case IR_XSTORE: - split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nir->op1, hisubst[ir->op2]); - break; - case IR_CONV: { /* Conversion to number. Others handled below. */ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); - UNUSED(st); -#if LJ_32 && LJ_HASFFI - if (st == IRT_I64 || st == IRT_U64) { - hi = split_call_l(J, hisubst, oir, ir, - st == IRT_I64 ? IRCALL_fp64_l2d : IRCALL_fp64_ul2d); - break; - } -#endif - lua_assert(st == IRT_INT || - (LJ_32 && LJ_HASFFI && (st == IRT_U32 || st == IRT_FLOAT))); - nir->o = IR_CALLN; -#if LJ_32 && LJ_HASFFI - nir->op2 = st == IRT_INT ? IRCALL_softfp_i2d : - st == IRT_FLOAT ? IRCALL_softfp_f2d : - IRCALL_softfp_ui2d; -#else - nir->op2 = IRCALL_softfp_i2d; -#endif - hi = split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); - break; - } - case IR_CALLN: - case IR_CALLL: - case IR_CALLS: - case IR_CALLXS: - goto split_call; - case IR_PHI: - if (nir->op1 == nir->op2) - J->cur.nins--; /* Drop useless PHIs. */ - if (hisubst[ir->op1] != hisubst[ir->op2]) - split_emit(J, IRT(IR_PHI, IRT_SOFTFP), - hisubst[ir->op1], hisubst[ir->op2]); - break; - case IR_HIOP: - J->cur.nins--; /* Drop joining HIOP. */ - ir->prev = nir->op1; - hi = nir->op2; - break; - default: - lua_assert(ir->o <= IR_NE || ir->o == IR_MIN || ir->o == IR_MAX); - hi = split_emit(J, IRTG(IR_HIOP, IRT_SOFTFP), - hisubst[ir->op1], hisubst[ir->op2]); - break; - } - } else -#endif -#if LJ_32 && LJ_HASFFI - if (irt_isint64(ir->t)) { - IRRef hiref = hisubst[ir->op1]; - nir->t.irt = IRT_INT | (nir->t.irt & IRT_GUARD); /* Turn into INT op. */ - switch (ir->o) { - case IR_ADD: - case IR_SUB: - /* Use plain op for hiword if loword cannot produce a carry/borrow. */ - if (irref_isk(nir->op2) && IR(nir->op2)->i == 0) { - ir->prev = nir->op1; /* Pass through loword. */ - nir->op1 = hiref; nir->op2 = hisubst[ir->op2]; - hi = nref; - break; - } - /* fallthrough */ - case IR_NEG: - hi = split_emit(J, IRTI(IR_HIOP), hiref, hisubst[ir->op2]); - break; - case IR_MUL: - hi = split_call_ll(J, hisubst, oir, ir, IRCALL_lj_carith_mul64); - break; - case IR_DIV: - hi = split_call_ll(J, hisubst, oir, ir, - irt_isi64(ir->t) ? IRCALL_lj_carith_divi64 : - IRCALL_lj_carith_divu64); - break; - case IR_MOD: - hi = split_call_ll(J, hisubst, oir, ir, - irt_isi64(ir->t) ? IRCALL_lj_carith_modi64 : - IRCALL_lj_carith_modu64); - break; - case IR_POW: - hi = split_call_ll(J, hisubst, oir, ir, - irt_isi64(ir->t) ? IRCALL_lj_carith_powi64 : - IRCALL_lj_carith_powu64); - break; - case IR_BNOT: - hi = split_emit(J, IRTI(IR_BNOT), hiref, 0); - break; - case IR_BSWAP: - ir->prev = split_emit(J, IRTI(IR_BSWAP), hiref, 0); - hi = nref; - break; - case IR_BAND: case IR_BOR: case IR_BXOR: - hi = split_bitop(J, hisubst, nir, ir); - break; - case IR_BSHL: case IR_BSHR: case IR_BSAR: case IR_BROL: case IR_BROR: - hi = split_bitshift(J, hisubst, oir, nir, ir); - break; - case IR_FLOAD: - lua_assert(ir->op2 == IRFL_CDATA_INT64); - hi = split_emit(J, IRTI(IR_FLOAD), nir->op1, IRFL_CDATA_INT64_4); -#if LJ_BE - ir->prev = hi; hi = nref; -#endif - break; - case IR_XLOAD: - hi = split_emit(J, IRTI(IR_XLOAD), split_ptr(J, oir, ir->op1), ir->op2); -#if LJ_BE - ir->prev = hi; hi = nref; -#endif - break; - case IR_XSTORE: - split_emit(J, IRTI(IR_HIOP), nir->op1, hisubst[ir->op2]); - break; - case IR_CONV: { /* Conversion to 64 bit integer. Others handled below. */ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); -#if LJ_SOFTFP - if (st == IRT_NUM) { /* NUM to 64 bit int conv. */ - hi = split_call_l(J, hisubst, oir, ir, - irt_isi64(ir->t) ? IRCALL_fp64_d2l : IRCALL_fp64_d2ul); - } else if (st == IRT_FLOAT) { /* FLOAT to 64 bit int conv. */ - nir->o = IR_CALLN; - nir->op2 = irt_isi64(ir->t) ? IRCALL_fp64_f2l : IRCALL_fp64_f2ul; - hi = split_emit(J, IRTI(IR_HIOP), nref, nref); - } -#else - if (st == IRT_NUM || st == IRT_FLOAT) { /* FP to 64 bit int conv. */ - hi = split_emit(J, IRTI(IR_HIOP), nir->op1, nref); - } -#endif - else if (st == IRT_I64 || st == IRT_U64) { /* 64/64 bit cast. */ - /* Drop cast, since assembler doesn't care. */ - goto fwdlo; - } else if ((ir->op2 & IRCONV_SEXT)) { /* Sign-extend to 64 bit. */ - IRRef k31 = lj_ir_kint(J, 31); - nir = IR(nref); /* May have been reallocated. */ - ir->prev = nir->op1; /* Pass through loword. */ - nir->o = IR_BSAR; /* hi = bsar(lo, 31). */ - nir->op2 = k31; - hi = nref; - } else { /* Zero-extend to 64 bit. */ - hi = lj_ir_kint(J, 0); - goto fwdlo; - } - break; - } - case IR_CALLXS: - goto split_call; - case IR_PHI: { - IRRef hiref2; - if ((irref_isk(nir->op1) && irref_isk(nir->op2)) || - nir->op1 == nir->op2) - J->cur.nins--; /* Drop useless PHIs. */ - hiref2 = hisubst[ir->op2]; - if (!((irref_isk(hiref) && irref_isk(hiref2)) || hiref == hiref2)) - split_emit(J, IRTI(IR_PHI), hiref, hiref2); - break; - } - case IR_HIOP: - J->cur.nins--; /* Drop joining HIOP. */ - ir->prev = nir->op1; - hi = nir->op2; - break; - default: - lua_assert(ir->o <= IR_NE); /* Comparisons. */ - split_emit(J, IRTGI(IR_HIOP), hiref, hisubst[ir->op2]); - break; - } - } else -#endif -#if LJ_SOFTFP - if (ir->o == IR_SLOAD) { - if ((nir->op2 & IRSLOAD_CONVERT)) { /* Convert from number to int. */ - nir->op2 &= ~IRSLOAD_CONVERT; - if (!(nir->op2 & IRSLOAD_TYPECHECK)) - nir->t.irt = IRT_INT; /* Drop guard. */ - split_emit(J, IRT(IR_HIOP, IRT_SOFTFP), nref, nref); - ir->prev = split_num2int(J, nref, nref+1, irt_isguard(ir->t)); - } - } else if (ir->o == IR_TOBIT) { - IRRef tmp, op1 = ir->op1; - J->cur.nins--; -#if LJ_LE - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), oir[op1].prev, hisubst[op1]); -#else - tmp = split_emit(J, IRT(IR_CARG, IRT_NIL), hisubst[op1], oir[op1].prev); -#endif - ir->prev = split_emit(J, IRTI(IR_CALLN), tmp, IRCALL_lj_vm_tobit); - } else if (ir->o == IR_TOSTR) { - if (hisubst[ir->op1]) { - if (irref_isk(ir->op1)) - nir->op1 = ir->op1; - else - split_emit(J, IRT(IR_HIOP, IRT_NIL), hisubst[ir->op1], nref); - } - } else if (ir->o == IR_HREF || ir->o == IR_NEWREF) { - if (irref_isk(ir->op2) && hisubst[ir->op2]) - nir->op2 = ir->op2; - } else -#endif - if (ir->o == IR_CONV) { /* See above, too. */ - IRType st = (IRType)(ir->op2 & IRCONV_SRCMASK); -#if LJ_32 && LJ_HASFFI - if (st == IRT_I64 || st == IRT_U64) { /* Conversion from 64 bit int. */ -#if LJ_SOFTFP - if (irt_isfloat(ir->t)) { - split_call_l(J, hisubst, oir, ir, - st == IRT_I64 ? IRCALL_fp64_l2f : IRCALL_fp64_ul2f); - J->cur.nins--; /* Drop unused HIOP. */ - } -#else - if (irt_isfp(ir->t)) { /* 64 bit integer to FP conversion. */ - ir->prev = split_emit(J, IRT(IR_HIOP, irt_type(ir->t)), - hisubst[ir->op1], nref); - } -#endif - else { /* Truncate to lower 32 bits. */ - fwdlo: - ir->prev = nir->op1; /* Forward loword. */ - /* Replace with NOP to avoid messing up the snapshot logic. */ - nir->ot = IRT(IR_NOP, IRT_NIL); - nir->op1 = nir->op2 = 0; - } - } -#endif -#if LJ_SOFTFP && LJ_32 && LJ_HASFFI - else if (irt_isfloat(ir->t)) { - if (st == IRT_NUM) { - split_call_l(J, hisubst, oir, ir, IRCALL_softfp_d2f); - J->cur.nins--; /* Drop unused HIOP. */ - } else { - nir->o = IR_CALLN; - nir->op2 = st == IRT_INT ? IRCALL_softfp_i2f : IRCALL_softfp_ui2f; - } - } else if (st == IRT_FLOAT) { - nir->o = IR_CALLN; - nir->op2 = irt_isint(ir->t) ? IRCALL_softfp_f2i : IRCALL_softfp_f2ui; - } else -#endif -#if LJ_SOFTFP - if (st == IRT_NUM || (LJ_32 && LJ_HASFFI && st == IRT_FLOAT)) { - if (irt_isguard(ir->t)) { - lua_assert(st == IRT_NUM && irt_isint(ir->t)); - J->cur.nins--; - ir->prev = split_num2int(J, nir->op1, hisubst[ir->op1], 1); - } else { - split_call_l(J, hisubst, oir, ir, -#if LJ_32 && LJ_HASFFI - st == IRT_NUM ? - (irt_isint(ir->t) ? IRCALL_softfp_d2i : IRCALL_softfp_d2ui) : - (irt_isint(ir->t) ? IRCALL_softfp_f2i : IRCALL_softfp_f2ui) -#else - IRCALL_softfp_d2i -#endif - ); - J->cur.nins--; /* Drop unused HIOP. */ - } - } -#endif - } else if (ir->o == IR_CALLXS) { - IRRef hiref; - split_call: - hiref = hisubst[ir->op1]; - if (hiref) { - IROpT ot = nir->ot; - IRRef op2 = nir->op2; - nir->ot = IRT(IR_CARG, IRT_NIL); -#if LJ_LE - nir->op2 = hiref; -#else - nir->op2 = nir->op1; nir->op1 = hiref; -#endif - ir->prev = nref = split_emit(J, ot, nref, op2); - } - if (LJ_SOFTFP ? irt_is64(ir->t) : irt_isint64(ir->t)) - hi = split_emit(J, - IRT(IR_HIOP, (LJ_SOFTFP && irt_isnum(ir->t)) ? IRT_SOFTFP : IRT_INT), - nref, nref); - } else if (ir->o == IR_CARG) { - IRRef hiref = hisubst[ir->op1]; - if (hiref) { - IRRef op2 = nir->op2; -#if LJ_LE - nir->op2 = hiref; -#else - nir->op2 = nir->op1; nir->op1 = hiref; -#endif - ir->prev = nref = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, op2); - nir = IR(nref); - } - hiref = hisubst[ir->op2]; - if (hiref) { -#if !LJ_TARGET_X86 - int carg = 0; - IRIns *cir; - for (cir = IR(nir->op1); cir->o == IR_CARG; cir = IR(cir->op1)) - carg++; - if ((carg & 1) == 0) { /* Align 64 bit arguments. */ - IRRef op2 = nir->op2; - nir->op2 = REF_NIL; - nref = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, op2); - nir = IR(nref); - } -#endif -#if LJ_BE - { IRRef tmp = nir->op2; nir->op2 = hiref; hiref = tmp; } -#endif - ir->prev = split_emit(J, IRT(IR_CARG, IRT_NIL), nref, hiref); - } - } else if (ir->o == IR_CNEWI) { - if (hisubst[ir->op2]) - split_emit(J, IRT(IR_HIOP, IRT_NIL), nref, hisubst[ir->op2]); - } else if (ir->o == IR_LOOP) { - J->loopref = nref; /* Needed by assembler. */ - } - hisubst[ref] = hi; /* Store hiword substitution. */ - } - if (snref == nins) { /* Substitution for last snapshot. */ - snap->ref = J->cur.nins; - split_subst_snap(J, snap, oir); - } - - /* Add PHI marks. */ - for (ref = J->cur.nins-1; ref >= REF_FIRST; ref--) { - IRIns *ir = IR(ref); - if (ir->o != IR_PHI) break; - if (!irref_isk(ir->op1)) irt_setphi(IR(ir->op1)->t); - if (ir->op2 > J->loopref) irt_setphi(IR(ir->op2)->t); - } -} - -/* Protected callback for split pass. */ -static TValue *cpsplit(lua_State *L, lua_CFunction dummy, void *ud) -{ - jit_State *J = (jit_State *)ud; - split_ir(J); - UNUSED(L); UNUSED(dummy); - return NULL; -} - -#if defined(LUA_USE_ASSERT) || LJ_SOFTFP -/* Slow, but sure way to check whether a SPLIT pass is needed. */ -static int split_needsplit(jit_State *J) -{ - IRIns *ir, *irend; - IRRef ref; - for (ir = IR(REF_FIRST), irend = IR(J->cur.nins); ir < irend; ir++) - if (LJ_SOFTFP ? irt_is64orfp(ir->t) : irt_isint64(ir->t)) - return 1; - if (LJ_SOFTFP) { - for (ref = J->chain[IR_SLOAD]; ref; ref = IR(ref)->prev) - if ((IR(ref)->op2 & IRSLOAD_CONVERT)) - return 1; - if (J->chain[IR_TOBIT]) - return 1; - } - for (ref = J->chain[IR_CONV]; ref; ref = IR(ref)->prev) { - IRType st = (IR(ref)->op2 & IRCONV_SRCMASK); - if ((LJ_SOFTFP && (st == IRT_NUM || st == IRT_FLOAT)) || - st == IRT_I64 || st == IRT_U64) - return 1; - } - return 0; /* Nope. */ -} -#endif - -/* SPLIT pass. */ -void lj_opt_split(jit_State *J) -{ -#if LJ_SOFTFP - if (!J->needsplit) - J->needsplit = split_needsplit(J); -#else - lua_assert(J->needsplit >= split_needsplit(J)); /* Verify flag. */ -#endif - if (J->needsplit) { - int errcode = lj_vm_cpcall(J->L, NULL, J, cpsplit); - if (errcode) { - /* Completely reset the trace to avoid inconsistent dump on abort. */ - J->cur.nins = J->cur.nk = REF_BASE; - J->cur.nsnap = 0; - lj_err_throw(J->L, errcode); /* Propagate errors. */ - } - } -} - -#undef IR - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_parse.c b/src/3rd party/luajit-2.0-BAK/src/lj_parse.c deleted file mode 100644 index d3e7a1c67be..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_parse.c +++ /dev/null @@ -1,2725 +0,0 @@ -/* -** Lua parser (source code -> bytecode). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_parse_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_func.h" -#include "lj_state.h" -#include "lj_bc.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#include "lj_strfmt.h" -#include "lj_lex.h" -#include "lj_parse.h" -#include "lj_vm.h" -#include "lj_vmevent.h" - -/* -- Parser structures and definitions ----------------------------------- */ - -/* Expression kinds. */ -typedef enum { - /* Constant expressions must be first and in this order: */ - VKNIL, - VKFALSE, - VKTRUE, - VKSTR, /* sval = string value */ - VKNUM, /* nval = number value */ - VKLAST = VKNUM, - VKCDATA, /* nval = cdata value, not treated as a constant expression */ - /* Non-constant expressions follow: */ - VLOCAL, /* info = local register, aux = vstack index */ - VUPVAL, /* info = upvalue index, aux = vstack index */ - VGLOBAL, /* sval = string value */ - VINDEXED, /* info = table register, aux = index reg/byte/string const */ - VJMP, /* info = instruction PC */ - VRELOCABLE, /* info = instruction PC */ - VNONRELOC, /* info = result register */ - VCALL, /* info = instruction PC, aux = base */ - VVOID -} ExpKind; - -/* Expression descriptor. */ -typedef struct ExpDesc { - union { - struct { - uint32_t info; /* Primary info. */ - uint32_t aux; /* Secondary info. */ - } s; - TValue nval; /* Number value. */ - GCstr *sval; /* String value. */ - } u; - ExpKind k; - BCPos t; /* True condition jump list. */ - BCPos f; /* False condition jump list. */ -} ExpDesc; - -/* Macros for expressions. */ -#define expr_hasjump(e) ((e)->t != (e)->f) - -#define expr_isk(e) ((e)->k <= VKLAST) -#define expr_isk_nojump(e) (expr_isk(e) && !expr_hasjump(e)) -#define expr_isnumk(e) ((e)->k == VKNUM) -#define expr_isnumk_nojump(e) (expr_isnumk(e) && !expr_hasjump(e)) -#define expr_isstrk(e) ((e)->k == VKSTR) - -#define expr_numtv(e) check_exp(expr_isnumk((e)), &(e)->u.nval) -#define expr_numberV(e) numberVnum(expr_numtv((e))) - -/* Initialize expression. */ -static LJ_AINLINE void expr_init(ExpDesc *e, ExpKind k, uint32_t info) -{ - e->k = k; - e->u.s.info = info; - e->f = e->t = NO_JMP; -} - -/* Check number constant for +-0. */ -static int expr_numiszero(ExpDesc *e) -{ - TValue *o = expr_numtv(e); - return tvisint(o) ? (intV(o) == 0) : tviszero(o); -} - -/* Per-function linked list of scope blocks. */ -typedef struct FuncScope { - struct FuncScope *prev; /* Link to outer scope. */ - MSize vstart; /* Start of block-local variables. */ - uint8_t nactvar; /* Number of active vars outside the scope. */ - uint8_t flags; /* Scope flags. */ -} FuncScope; - -#define FSCOPE_LOOP 0x01 /* Scope is a (breakable) loop. */ -#define FSCOPE_BREAK 0x02 /* Break used in scope. */ -#define FSCOPE_GOLA 0x04 /* Goto or label used in scope. */ -#define FSCOPE_UPVAL 0x08 /* Upvalue in scope. */ -#define FSCOPE_NOCLOSE 0x10 /* Do not close upvalues. */ - -#define NAME_BREAK ((GCstr *)(uintptr_t)1) - -/* Index into variable stack. */ -typedef uint16_t VarIndex; -#define LJ_MAX_VSTACK (65536 - LJ_MAX_UPVAL) - -/* Variable/goto/label info. */ -#define VSTACK_VAR_RW 0x01 /* R/W variable. */ -#define VSTACK_GOTO 0x02 /* Pending goto. */ -#define VSTACK_LABEL 0x04 /* Label. */ - -/* Per-function state. */ -typedef struct FuncState { - GCtab *kt; /* Hash table for constants. */ - LexState *ls; /* Lexer state. */ - lua_State *L; /* Lua state. */ - FuncScope *bl; /* Current scope. */ - struct FuncState *prev; /* Enclosing function. */ - BCPos pc; /* Next bytecode position. */ - BCPos lasttarget; /* Bytecode position of last jump target. */ - BCPos jpc; /* Pending jump list to next bytecode. */ - BCReg freereg; /* First free register. */ - BCReg nactvar; /* Number of active local variables. */ - BCReg nkn, nkgc; /* Number of lua_Number/GCobj constants */ - BCLine linedefined; /* First line of the function definition. */ - BCInsLine *bcbase; /* Base of bytecode stack. */ - BCPos bclim; /* Limit of bytecode stack. */ - MSize vbase; /* Base of variable stack for this function. */ - uint8_t flags; /* Prototype flags. */ - uint8_t numparams; /* Number of parameters. */ - uint8_t framesize; /* Fixed frame size. */ - uint8_t nuv; /* Number of upvalues */ - VarIndex varmap[LJ_MAX_LOCVAR]; /* Map from register to variable idx. */ - VarIndex uvmap[LJ_MAX_UPVAL]; /* Map from upvalue to variable idx. */ - VarIndex uvtmp[LJ_MAX_UPVAL]; /* Temporary upvalue map. */ -} FuncState; - -/* Binary and unary operators. ORDER OPR */ -typedef enum BinOpr { - OPR_ADD, OPR_SUB, OPR_MUL, OPR_DIV, OPR_MOD, OPR_POW, /* ORDER ARITH */ - OPR_CONCAT, - OPR_NE, OPR_EQ, - OPR_LT, OPR_GE, OPR_LE, OPR_GT, - OPR_AND, OPR_OR, - OPR_NOBINOPR -} BinOpr; - -LJ_STATIC_ASSERT((int)BC_ISGE-(int)BC_ISLT == (int)OPR_GE-(int)OPR_LT); -LJ_STATIC_ASSERT((int)BC_ISLE-(int)BC_ISLT == (int)OPR_LE-(int)OPR_LT); -LJ_STATIC_ASSERT((int)BC_ISGT-(int)BC_ISLT == (int)OPR_GT-(int)OPR_LT); -LJ_STATIC_ASSERT((int)BC_SUBVV-(int)BC_ADDVV == (int)OPR_SUB-(int)OPR_ADD); -LJ_STATIC_ASSERT((int)BC_MULVV-(int)BC_ADDVV == (int)OPR_MUL-(int)OPR_ADD); -LJ_STATIC_ASSERT((int)BC_DIVVV-(int)BC_ADDVV == (int)OPR_DIV-(int)OPR_ADD); -LJ_STATIC_ASSERT((int)BC_MODVV-(int)BC_ADDVV == (int)OPR_MOD-(int)OPR_ADD); - -/* -- Error handling ------------------------------------------------------ */ - -LJ_NORET LJ_NOINLINE static void err_syntax(LexState *ls, ErrMsg em) -{ - lj_lex_error(ls, ls->tok, em); -} - -LJ_NORET LJ_NOINLINE static void err_token(LexState *ls, LexToken tok) -{ - lj_lex_error(ls, ls->tok, LJ_ERR_XTOKEN, lj_lex_token2str(ls, tok)); -} - -LJ_NORET static void err_limit(FuncState *fs, uint32_t limit, const char *what) -{ - if (fs->linedefined == 0) - lj_lex_error(fs->ls, 0, LJ_ERR_XLIMM, limit, what); - else - lj_lex_error(fs->ls, 0, LJ_ERR_XLIMF, fs->linedefined, limit, what); -} - -#define checklimit(fs, v, l, m) if ((v) >= (l)) err_limit(fs, l, m) -#define checklimitgt(fs, v, l, m) if ((v) > (l)) err_limit(fs, l, m) -#define checkcond(ls, c, em) { if (!(c)) err_syntax(ls, em); } - -/* -- Management of constants --------------------------------------------- */ - -/* Return bytecode encoding for primitive constant. */ -#define const_pri(e) check_exp((e)->k <= VKTRUE, (e)->k) - -#define tvhaskslot(o) ((o)->u32.hi == 0) -#define tvkslot(o) ((o)->u32.lo) - -/* Add a number constant. */ -static BCReg const_num(FuncState *fs, ExpDesc *e) -{ - lua_State *L = fs->L; - TValue *o; - lua_assert(expr_isnumk(e)); - o = lj_tab_set(L, fs->kt, &e->u.nval); - if (tvhaskslot(o)) - return tvkslot(o); - o->u64 = fs->nkn; - return fs->nkn++; -} - -/* Add a GC object constant. */ -static BCReg const_gc(FuncState *fs, GCobj *gc, uint32_t itype) -{ - lua_State *L = fs->L; - TValue key, *o; - setgcV(L, &key, gc, itype); - /* NOBARRIER: the key is new or kept alive. */ - o = lj_tab_set(L, fs->kt, &key); - if (tvhaskslot(o)) - return tvkslot(o); - o->u64 = fs->nkgc; - return fs->nkgc++; -} - -/* Add a string constant. */ -static BCReg const_str(FuncState *fs, ExpDesc *e) -{ - lua_assert(expr_isstrk(e) || e->k == VGLOBAL); - return const_gc(fs, obj2gco(e->u.sval), LJ_TSTR); -} - -/* Anchor string constant to avoid GC. */ -GCstr *lj_parse_keepstr(LexState *ls, const char *str, size_t len) -{ - /* NOBARRIER: the key is new or kept alive. */ - lua_State *L = ls->L; - GCstr *s = lj_str_new(L, str, len); - TValue *tv = lj_tab_setstr(L, ls->fs->kt, s); - if (tvisnil(tv)) setboolV(tv, 1); - lj_gc_check(L); - return s; -} - -#if LJ_HASFFI -/* Anchor cdata to avoid GC. */ -void lj_parse_keepcdata(LexState *ls, TValue *tv, GCcdata *cd) -{ - /* NOBARRIER: the key is new or kept alive. */ - lua_State *L = ls->L; - setcdataV(L, tv, cd); - setboolV(lj_tab_set(L, ls->fs->kt, tv), 1); -} -#endif - -/* -- Jump list handling -------------------------------------------------- */ - -/* Get next element in jump list. */ -static BCPos jmp_next(FuncState *fs, BCPos pc) -{ - ptrdiff_t delta = bc_j(fs->bcbase[pc].ins); - if ((BCPos)delta == NO_JMP) - return NO_JMP; - else - return (BCPos)(((ptrdiff_t)pc+1)+delta); -} - -/* Check if any of the instructions on the jump list produce no value. */ -static int jmp_novalue(FuncState *fs, BCPos list) -{ - for (; list != NO_JMP; list = jmp_next(fs, list)) { - BCIns p = fs->bcbase[list >= 1 ? list-1 : list].ins; - if (!(bc_op(p) == BC_ISTC || bc_op(p) == BC_ISFC || bc_a(p) == NO_REG)) - return 1; - } - return 0; -} - -/* Patch register of test instructions. */ -static int jmp_patchtestreg(FuncState *fs, BCPos pc, BCReg reg) -{ - BCInsLine *ilp = &fs->bcbase[pc >= 1 ? pc-1 : pc]; - BCOp op = bc_op(ilp->ins); - if (op == BC_ISTC || op == BC_ISFC) { - if (reg != NO_REG && reg != bc_d(ilp->ins)) { - setbc_a(&ilp->ins, reg); - } else { /* Nothing to store or already in the right register. */ - setbc_op(&ilp->ins, op+(BC_IST-BC_ISTC)); - setbc_a(&ilp->ins, 0); - } - } else if (bc_a(ilp->ins) == NO_REG) { - if (reg == NO_REG) { - ilp->ins = BCINS_AJ(BC_JMP, bc_a(fs->bcbase[pc].ins), 0); - } else { - setbc_a(&ilp->ins, reg); - if (reg >= bc_a(ilp[1].ins)) - setbc_a(&ilp[1].ins, reg+1); - } - } else { - return 0; /* Cannot patch other instructions. */ - } - return 1; -} - -/* Drop values for all instructions on jump list. */ -static void jmp_dropval(FuncState *fs, BCPos list) -{ - for (; list != NO_JMP; list = jmp_next(fs, list)) - jmp_patchtestreg(fs, list, NO_REG); -} - -/* Patch jump instruction to target. */ -static void jmp_patchins(FuncState *fs, BCPos pc, BCPos dest) -{ - BCIns *jmp = &fs->bcbase[pc].ins; - BCPos offset = dest-(pc+1)+BCBIAS_J; - lua_assert(dest != NO_JMP); - if (offset > BCMAX_D) - err_syntax(fs->ls, LJ_ERR_XJUMP); - setbc_d(jmp, offset); -} - -/* Append to jump list. */ -static void jmp_append(FuncState *fs, BCPos *l1, BCPos l2) -{ - if (l2 == NO_JMP) { - return; - } else if (*l1 == NO_JMP) { - *l1 = l2; - } else { - BCPos list = *l1; - BCPos next; - while ((next = jmp_next(fs, list)) != NO_JMP) /* Find last element. */ - list = next; - jmp_patchins(fs, list, l2); - } -} - -/* Patch jump list and preserve produced values. */ -static void jmp_patchval(FuncState *fs, BCPos list, BCPos vtarget, - BCReg reg, BCPos dtarget) -{ - while (list != NO_JMP) { - BCPos next = jmp_next(fs, list); - if (jmp_patchtestreg(fs, list, reg)) - jmp_patchins(fs, list, vtarget); /* Jump to target with value. */ - else - jmp_patchins(fs, list, dtarget); /* Jump to default target. */ - list = next; - } -} - -/* Jump to following instruction. Append to list of pending jumps. */ -static void jmp_tohere(FuncState *fs, BCPos list) -{ - fs->lasttarget = fs->pc; - jmp_append(fs, &fs->jpc, list); -} - -/* Patch jump list to target. */ -static void jmp_patch(FuncState *fs, BCPos list, BCPos target) -{ - if (target == fs->pc) { - jmp_tohere(fs, list); - } else { - lua_assert(target < fs->pc); - jmp_patchval(fs, list, target, NO_REG, target); - } -} - -/* -- Bytecode register allocator ----------------------------------------- */ - -/* Bump frame size. */ -static void bcreg_bump(FuncState *fs, BCReg n) -{ - BCReg sz = fs->freereg + n; - if (sz > fs->framesize) { - if (sz >= LJ_MAX_SLOTS) - err_syntax(fs->ls, LJ_ERR_XSLOTS); - fs->framesize = (uint8_t)sz; - } -} - -/* Reserve registers. */ -static void bcreg_reserve(FuncState *fs, BCReg n) -{ - bcreg_bump(fs, n); - fs->freereg += n; -} - -/* Free register. */ -static void bcreg_free(FuncState *fs, BCReg reg) -{ - if (reg >= fs->nactvar) { - fs->freereg--; - lua_assert(reg == fs->freereg); - } -} - -/* Free register for expression. */ -static void expr_free(FuncState *fs, ExpDesc *e) -{ - if (e->k == VNONRELOC) - bcreg_free(fs, e->u.s.info); -} - -/* -- Bytecode emitter ---------------------------------------------------- */ - -/* Emit bytecode instruction. */ -static BCPos bcemit_INS(FuncState *fs, BCIns ins) -{ - BCPos pc = fs->pc; - LexState *ls = fs->ls; - jmp_patchval(fs, fs->jpc, pc, NO_REG, pc); - fs->jpc = NO_JMP; - if (LJ_UNLIKELY(pc >= fs->bclim)) { - ptrdiff_t base = fs->bcbase - ls->bcstack; - checklimit(fs, ls->sizebcstack, LJ_MAX_BCINS, "bytecode instructions"); - lj_mem_growvec(fs->L, ls->bcstack, ls->sizebcstack, LJ_MAX_BCINS,BCInsLine); - fs->bclim = (BCPos)(ls->sizebcstack - base); - fs->bcbase = ls->bcstack + base; - } - fs->bcbase[pc].ins = ins; - fs->bcbase[pc].line = ls->lastline; - fs->pc = pc+1; - return pc; -} - -#define bcemit_ABC(fs, o, a, b, c) bcemit_INS(fs, BCINS_ABC(o, a, b, c)) -#define bcemit_AD(fs, o, a, d) bcemit_INS(fs, BCINS_AD(o, a, d)) -#define bcemit_AJ(fs, o, a, j) bcemit_INS(fs, BCINS_AJ(o, a, j)) - -#define bcptr(fs, e) (&(fs)->bcbase[(e)->u.s.info].ins) - -/* -- Bytecode emitter for expressions ------------------------------------ */ - -/* Discharge non-constant expression to any register. */ -static void expr_discharge(FuncState *fs, ExpDesc *e) -{ - BCIns ins; - if (e->k == VUPVAL) { - ins = BCINS_AD(BC_UGET, 0, e->u.s.info); - } else if (e->k == VGLOBAL) { - ins = BCINS_AD(BC_GGET, 0, const_str(fs, e)); - } else if (e->k == VINDEXED) { - BCReg rc = e->u.s.aux; - if ((int32_t)rc < 0) { - ins = BCINS_ABC(BC_TGETS, 0, e->u.s.info, ~rc); - } else if (rc > BCMAX_C) { - ins = BCINS_ABC(BC_TGETB, 0, e->u.s.info, rc-(BCMAX_C+1)); - } else { - bcreg_free(fs, rc); - ins = BCINS_ABC(BC_TGETV, 0, e->u.s.info, rc); - } - bcreg_free(fs, e->u.s.info); - } else if (e->k == VCALL) { - e->u.s.info = e->u.s.aux; - e->k = VNONRELOC; - return; - } else if (e->k == VLOCAL) { - e->k = VNONRELOC; - return; - } else { - return; - } - e->u.s.info = bcemit_INS(fs, ins); - e->k = VRELOCABLE; -} - -/* Emit bytecode to set a range of registers to nil. */ -static void bcemit_nil(FuncState *fs, BCReg from, BCReg n) -{ - if (fs->pc > fs->lasttarget) { /* No jumps to current position? */ - BCIns *ip = &fs->bcbase[fs->pc-1].ins; - BCReg pto, pfrom = bc_a(*ip); - switch (bc_op(*ip)) { /* Try to merge with the previous instruction. */ - case BC_KPRI: - if (bc_d(*ip) != ~LJ_TNIL) break; - if (from == pfrom) { - if (n == 1) return; - } else if (from == pfrom+1) { - from = pfrom; - n++; - } else { - break; - } - *ip = BCINS_AD(BC_KNIL, from, from+n-1); /* Replace KPRI. */ - return; - case BC_KNIL: - pto = bc_d(*ip); - if (pfrom <= from && from <= pto+1) { /* Can we connect both ranges? */ - if (from+n-1 > pto) - setbc_d(ip, from+n-1); /* Patch previous instruction range. */ - return; - } - break; - default: - break; - } - } - /* Emit new instruction or replace old instruction. */ - bcemit_INS(fs, n == 1 ? BCINS_AD(BC_KPRI, from, VKNIL) : - BCINS_AD(BC_KNIL, from, from+n-1)); -} - -/* Discharge an expression to a specific register. Ignore branches. */ -static void expr_toreg_nobranch(FuncState *fs, ExpDesc *e, BCReg reg) -{ - BCIns ins; - expr_discharge(fs, e); - if (e->k == VKSTR) { - ins = BCINS_AD(BC_KSTR, reg, const_str(fs, e)); - } else if (e->k == VKNUM) { -#if LJ_DUALNUM - cTValue *tv = expr_numtv(e); - if (tvisint(tv) && checki16(intV(tv))) - ins = BCINS_AD(BC_KSHORT, reg, (BCReg)(uint16_t)intV(tv)); - else -#else - lua_Number n = expr_numberV(e); - int32_t k = lj_num2int(n); - if (checki16(k) && n == (lua_Number)k) - ins = BCINS_AD(BC_KSHORT, reg, (BCReg)(uint16_t)k); - else -#endif - ins = BCINS_AD(BC_KNUM, reg, const_num(fs, e)); -#if LJ_HASFFI - } else if (e->k == VKCDATA) { - fs->flags |= PROTO_FFI; - ins = BCINS_AD(BC_KCDATA, reg, - const_gc(fs, obj2gco(cdataV(&e->u.nval)), LJ_TCDATA)); -#endif - } else if (e->k == VRELOCABLE) { - setbc_a(bcptr(fs, e), reg); - goto noins; - } else if (e->k == VNONRELOC) { - if (reg == e->u.s.info) - goto noins; - ins = BCINS_AD(BC_MOV, reg, e->u.s.info); - } else if (e->k == VKNIL) { - bcemit_nil(fs, reg, 1); - goto noins; - } else if (e->k <= VKTRUE) { - ins = BCINS_AD(BC_KPRI, reg, const_pri(e)); - } else { - lua_assert(e->k == VVOID || e->k == VJMP); - return; - } - bcemit_INS(fs, ins); -noins: - e->u.s.info = reg; - e->k = VNONRELOC; -} - -/* Forward declaration. */ -static BCPos bcemit_jmp(FuncState *fs); - -/* Discharge an expression to a specific register. */ -static void expr_toreg(FuncState *fs, ExpDesc *e, BCReg reg) -{ - expr_toreg_nobranch(fs, e, reg); - if (e->k == VJMP) - jmp_append(fs, &e->t, e->u.s.info); /* Add it to the true jump list. */ - if (expr_hasjump(e)) { /* Discharge expression with branches. */ - BCPos jend, jfalse = NO_JMP, jtrue = NO_JMP; - if (jmp_novalue(fs, e->t) || jmp_novalue(fs, e->f)) { - BCPos jval = (e->k == VJMP) ? NO_JMP : bcemit_jmp(fs); - jfalse = bcemit_AD(fs, BC_KPRI, reg, VKFALSE); - bcemit_AJ(fs, BC_JMP, fs->freereg, 1); - jtrue = bcemit_AD(fs, BC_KPRI, reg, VKTRUE); - jmp_tohere(fs, jval); - } - jend = fs->pc; - fs->lasttarget = jend; - jmp_patchval(fs, e->f, jend, reg, jfalse); - jmp_patchval(fs, e->t, jend, reg, jtrue); - } - e->f = e->t = NO_JMP; - e->u.s.info = reg; - e->k = VNONRELOC; -} - -/* Discharge an expression to the next free register. */ -static void expr_tonextreg(FuncState *fs, ExpDesc *e) -{ - expr_discharge(fs, e); - expr_free(fs, e); - bcreg_reserve(fs, 1); - expr_toreg(fs, e, fs->freereg - 1); -} - -/* Discharge an expression to any register. */ -static BCReg expr_toanyreg(FuncState *fs, ExpDesc *e) -{ - expr_discharge(fs, e); - if (e->k == VNONRELOC) { - if (!expr_hasjump(e)) return e->u.s.info; /* Already in a register. */ - if (e->u.s.info >= fs->nactvar) { - expr_toreg(fs, e, e->u.s.info); /* Discharge to temp. register. */ - return e->u.s.info; - } - } - expr_tonextreg(fs, e); /* Discharge to next register. */ - return e->u.s.info; -} - -/* Partially discharge expression to a value. */ -static void expr_toval(FuncState *fs, ExpDesc *e) -{ - if (expr_hasjump(e)) - expr_toanyreg(fs, e); - else - expr_discharge(fs, e); -} - -/* Emit store for LHS expression. */ -static void bcemit_store(FuncState *fs, ExpDesc *var, ExpDesc *e) -{ - BCIns ins; - if (var->k == VLOCAL) { - fs->ls->vstack[var->u.s.aux].info |= VSTACK_VAR_RW; - expr_free(fs, e); - expr_toreg(fs, e, var->u.s.info); - return; - } else if (var->k == VUPVAL) { - fs->ls->vstack[var->u.s.aux].info |= VSTACK_VAR_RW; - expr_toval(fs, e); - if (e->k <= VKTRUE) - ins = BCINS_AD(BC_USETP, var->u.s.info, const_pri(e)); - else if (e->k == VKSTR) - ins = BCINS_AD(BC_USETS, var->u.s.info, const_str(fs, e)); - else if (e->k == VKNUM) - ins = BCINS_AD(BC_USETN, var->u.s.info, const_num(fs, e)); - else - ins = BCINS_AD(BC_USETV, var->u.s.info, expr_toanyreg(fs, e)); - } else if (var->k == VGLOBAL) { - BCReg ra = expr_toanyreg(fs, e); - ins = BCINS_AD(BC_GSET, ra, const_str(fs, var)); - } else { - BCReg ra, rc; - lua_assert(var->k == VINDEXED); - ra = expr_toanyreg(fs, e); - rc = var->u.s.aux; - if ((int32_t)rc < 0) { - ins = BCINS_ABC(BC_TSETS, ra, var->u.s.info, ~rc); - } else if (rc > BCMAX_C) { - ins = BCINS_ABC(BC_TSETB, ra, var->u.s.info, rc-(BCMAX_C+1)); - } else { - /* Free late alloced key reg to avoid assert on free of value reg. */ - /* This can only happen when called from expr_table(). */ - lua_assert(e->k != VNONRELOC || ra < fs->nactvar || - rc < ra || (bcreg_free(fs, rc),1)); - ins = BCINS_ABC(BC_TSETV, ra, var->u.s.info, rc); - } - } - bcemit_INS(fs, ins); - expr_free(fs, e); -} - -/* Emit method lookup expression. */ -static void bcemit_method(FuncState *fs, ExpDesc *e, ExpDesc *key) -{ - BCReg idx, func, obj = expr_toanyreg(fs, e); - expr_free(fs, e); - func = fs->freereg; - bcemit_AD(fs, BC_MOV, func+1+LJ_FR2, obj); /* Copy object to 1st argument. */ - lua_assert(expr_isstrk(key)); - idx = const_str(fs, key); - if (idx <= BCMAX_C) { - bcreg_reserve(fs, 2+LJ_FR2); - bcemit_ABC(fs, BC_TGETS, func, obj, idx); - } else { - bcreg_reserve(fs, 3+LJ_FR2); - bcemit_AD(fs, BC_KSTR, func+2, idx); - bcemit_ABC(fs, BC_TGETV, func, obj, func+2); - fs->freereg--; - } - e->u.s.info = func; - e->k = VNONRELOC; -} - -/* -- Bytecode emitter for branches --------------------------------------- */ - -/* Emit unconditional branch. */ -static BCPos bcemit_jmp(FuncState *fs) -{ - BCPos jpc = fs->jpc; - BCPos j = fs->pc - 1; - BCIns *ip = &fs->bcbase[j].ins; - fs->jpc = NO_JMP; - if ((int32_t)j >= (int32_t)fs->lasttarget && bc_op(*ip) == BC_UCLO) { - setbc_j(ip, NO_JMP); - fs->lasttarget = j+1; - } else { - j = bcemit_AJ(fs, BC_JMP, fs->freereg, NO_JMP); - } - jmp_append(fs, &j, jpc); - return j; -} - -/* Invert branch condition of bytecode instruction. */ -static void invertcond(FuncState *fs, ExpDesc *e) -{ - BCIns *ip = &fs->bcbase[e->u.s.info - 1].ins; - setbc_op(ip, bc_op(*ip)^1); -} - -/* Emit conditional branch. */ -static BCPos bcemit_branch(FuncState *fs, ExpDesc *e, int cond) -{ - BCPos pc; - if (e->k == VRELOCABLE) { - BCIns *ip = bcptr(fs, e); - if (bc_op(*ip) == BC_NOT) { - *ip = BCINS_AD(cond ? BC_ISF : BC_IST, 0, bc_d(*ip)); - return bcemit_jmp(fs); - } - } - if (e->k != VNONRELOC) { - bcreg_reserve(fs, 1); - expr_toreg_nobranch(fs, e, fs->freereg-1); - } - bcemit_AD(fs, cond ? BC_ISTC : BC_ISFC, NO_REG, e->u.s.info); - pc = bcemit_jmp(fs); - expr_free(fs, e); - return pc; -} - -/* Emit branch on true condition. */ -static void bcemit_branch_t(FuncState *fs, ExpDesc *e) -{ - BCPos pc; - expr_discharge(fs, e); - if (e->k == VKSTR || e->k == VKNUM || e->k == VKTRUE) - pc = NO_JMP; /* Never jump. */ - else if (e->k == VJMP) - invertcond(fs, e), pc = e->u.s.info; - else if (e->k == VKFALSE || e->k == VKNIL) - expr_toreg_nobranch(fs, e, NO_REG), pc = bcemit_jmp(fs); - else - pc = bcemit_branch(fs, e, 0); - jmp_append(fs, &e->f, pc); - jmp_tohere(fs, e->t); - e->t = NO_JMP; -} - -/* Emit branch on false condition. */ -static void bcemit_branch_f(FuncState *fs, ExpDesc *e) -{ - BCPos pc; - expr_discharge(fs, e); - if (e->k == VKNIL || e->k == VKFALSE) - pc = NO_JMP; /* Never jump. */ - else if (e->k == VJMP) - pc = e->u.s.info; - else if (e->k == VKSTR || e->k == VKNUM || e->k == VKTRUE) - expr_toreg_nobranch(fs, e, NO_REG), pc = bcemit_jmp(fs); - else - pc = bcemit_branch(fs, e, 1); - jmp_append(fs, &e->t, pc); - jmp_tohere(fs, e->f); - e->f = NO_JMP; -} - -/* -- Bytecode emitter for operators -------------------------------------- */ - -/* Try constant-folding of arithmetic operators. */ -static int foldarith(BinOpr opr, ExpDesc *e1, ExpDesc *e2) -{ - TValue o; - lua_Number n; - if (!expr_isnumk_nojump(e1) || !expr_isnumk_nojump(e2)) return 0; - n = lj_vm_foldarith(expr_numberV(e1), expr_numberV(e2), (int)opr-OPR_ADD); - setnumV(&o, n); - if (tvisnan(&o) || tvismzero(&o)) return 0; /* Avoid NaN and -0 as consts. */ - if (LJ_DUALNUM) { - int32_t k = lj_num2int(n); - if ((lua_Number)k == n) { - setintV(&e1->u.nval, k); - return 1; - } - } - setnumV(&e1->u.nval, n); - return 1; -} - -/* Emit arithmetic operator. */ -static void bcemit_arith(FuncState *fs, BinOpr opr, ExpDesc *e1, ExpDesc *e2) -{ - BCReg rb, rc, t; - uint32_t op; - if (foldarith(opr, e1, e2)) - return; - if (opr == OPR_POW) { - op = BC_POW; - rc = expr_toanyreg(fs, e2); - rb = expr_toanyreg(fs, e1); - } else { - op = opr-OPR_ADD+BC_ADDVV; - /* Must discharge 2nd operand first since VINDEXED might free regs. */ - expr_toval(fs, e2); - if (expr_isnumk(e2) && (rc = const_num(fs, e2)) <= BCMAX_C) - op -= BC_ADDVV-BC_ADDVN; - else - rc = expr_toanyreg(fs, e2); - /* 1st operand discharged by bcemit_binop_left, but need KNUM/KSHORT. */ - lua_assert(expr_isnumk(e1) || e1->k == VNONRELOC); - expr_toval(fs, e1); - /* Avoid two consts to satisfy bytecode constraints. */ - if (expr_isnumk(e1) && !expr_isnumk(e2) && - (t = const_num(fs, e1)) <= BCMAX_B) { - rb = rc; rc = t; op -= BC_ADDVV-BC_ADDNV; - } else { - rb = expr_toanyreg(fs, e1); - } - } - /* Using expr_free might cause asserts if the order is wrong. */ - if (e1->k == VNONRELOC && e1->u.s.info >= fs->nactvar) fs->freereg--; - if (e2->k == VNONRELOC && e2->u.s.info >= fs->nactvar) fs->freereg--; - e1->u.s.info = bcemit_ABC(fs, op, 0, rb, rc); - e1->k = VRELOCABLE; -} - -/* Emit comparison operator. */ -static void bcemit_comp(FuncState *fs, BinOpr opr, ExpDesc *e1, ExpDesc *e2) -{ - ExpDesc *eret = e1; - BCIns ins; - expr_toval(fs, e1); - if (opr == OPR_EQ || opr == OPR_NE) { - BCOp op = opr == OPR_EQ ? BC_ISEQV : BC_ISNEV; - BCReg ra; - if (expr_isk(e1)) { e1 = e2; e2 = eret; } /* Need constant in 2nd arg. */ - ra = expr_toanyreg(fs, e1); /* First arg must be in a reg. */ - expr_toval(fs, e2); - switch (e2->k) { - case VKNIL: case VKFALSE: case VKTRUE: - ins = BCINS_AD(op+(BC_ISEQP-BC_ISEQV), ra, const_pri(e2)); - break; - case VKSTR: - ins = BCINS_AD(op+(BC_ISEQS-BC_ISEQV), ra, const_str(fs, e2)); - break; - case VKNUM: - ins = BCINS_AD(op+(BC_ISEQN-BC_ISEQV), ra, const_num(fs, e2)); - break; - default: - ins = BCINS_AD(op, ra, expr_toanyreg(fs, e2)); - break; - } - } else { - uint32_t op = opr-OPR_LT+BC_ISLT; - BCReg ra, rd; - if ((op-BC_ISLT) & 1) { /* GT -> LT, GE -> LE */ - e1 = e2; e2 = eret; /* Swap operands. */ - op = ((op-BC_ISLT)^3)+BC_ISLT; - expr_toval(fs, e1); - } - rd = expr_toanyreg(fs, e2); - ra = expr_toanyreg(fs, e1); - ins = BCINS_AD(op, ra, rd); - } - /* Using expr_free might cause asserts if the order is wrong. */ - if (e1->k == VNONRELOC && e1->u.s.info >= fs->nactvar) fs->freereg--; - if (e2->k == VNONRELOC && e2->u.s.info >= fs->nactvar) fs->freereg--; - bcemit_INS(fs, ins); - eret->u.s.info = bcemit_jmp(fs); - eret->k = VJMP; -} - -/* Fixup left side of binary operator. */ -static void bcemit_binop_left(FuncState *fs, BinOpr op, ExpDesc *e) -{ - if (op == OPR_AND) { - bcemit_branch_t(fs, e); - } else if (op == OPR_OR) { - bcemit_branch_f(fs, e); - } else if (op == OPR_CONCAT) { - expr_tonextreg(fs, e); - } else if (op == OPR_EQ || op == OPR_NE) { - if (!expr_isk_nojump(e)) expr_toanyreg(fs, e); - } else { - if (!expr_isnumk_nojump(e)) expr_toanyreg(fs, e); - } -} - -/* Emit binary operator. */ -static void bcemit_binop(FuncState *fs, BinOpr op, ExpDesc *e1, ExpDesc *e2) -{ - if (op <= OPR_POW) { - bcemit_arith(fs, op, e1, e2); - } else if (op == OPR_AND) { - lua_assert(e1->t == NO_JMP); /* List must be closed. */ - expr_discharge(fs, e2); - jmp_append(fs, &e2->f, e1->f); - *e1 = *e2; - } else if (op == OPR_OR) { - lua_assert(e1->f == NO_JMP); /* List must be closed. */ - expr_discharge(fs, e2); - jmp_append(fs, &e2->t, e1->t); - *e1 = *e2; - } else if (op == OPR_CONCAT) { - expr_toval(fs, e2); - if (e2->k == VRELOCABLE && bc_op(*bcptr(fs, e2)) == BC_CAT) { - lua_assert(e1->u.s.info == bc_b(*bcptr(fs, e2))-1); - expr_free(fs, e1); - setbc_b(bcptr(fs, e2), e1->u.s.info); - e1->u.s.info = e2->u.s.info; - } else { - expr_tonextreg(fs, e2); - expr_free(fs, e2); - expr_free(fs, e1); - e1->u.s.info = bcemit_ABC(fs, BC_CAT, 0, e1->u.s.info, e2->u.s.info); - } - e1->k = VRELOCABLE; - } else { - lua_assert(op == OPR_NE || op == OPR_EQ || - op == OPR_LT || op == OPR_GE || op == OPR_LE || op == OPR_GT); - bcemit_comp(fs, op, e1, e2); - } -} - -/* Emit unary operator. */ -static void bcemit_unop(FuncState *fs, BCOp op, ExpDesc *e) -{ - if (op == BC_NOT) { - /* Swap true and false lists. */ - { BCPos temp = e->f; e->f = e->t; e->t = temp; } - jmp_dropval(fs, e->f); - jmp_dropval(fs, e->t); - expr_discharge(fs, e); - if (e->k == VKNIL || e->k == VKFALSE) { - e->k = VKTRUE; - return; - } else if (expr_isk(e) || (LJ_HASFFI && e->k == VKCDATA)) { - e->k = VKFALSE; - return; - } else if (e->k == VJMP) { - invertcond(fs, e); - return; - } else if (e->k == VRELOCABLE) { - bcreg_reserve(fs, 1); - setbc_a(bcptr(fs, e), fs->freereg-1); - e->u.s.info = fs->freereg-1; - e->k = VNONRELOC; - } else { - lua_assert(e->k == VNONRELOC); - } - } else { - lua_assert(op == BC_UNM || op == BC_LEN); - if (op == BC_UNM && !expr_hasjump(e)) { /* Constant-fold negations. */ -#if LJ_HASFFI - if (e->k == VKCDATA) { /* Fold in-place since cdata is not interned. */ - GCcdata *cd = cdataV(&e->u.nval); - int64_t *p = (int64_t *)cdataptr(cd); - if (cd->ctypeid == CTID_COMPLEX_DOUBLE) - p[1] ^= (int64_t)U64x(80000000,00000000); - else - *p = -*p; - return; - } else -#endif - if (expr_isnumk(e) && !expr_numiszero(e)) { /* Avoid folding to -0. */ - TValue *o = expr_numtv(e); - if (tvisint(o)) { - int32_t k = intV(o); - if (k == -k) - setnumV(o, -(lua_Number)k); - else - setintV(o, -k); - return; - } else { - o->u64 ^= U64x(80000000,00000000); - return; - } - } - } - expr_toanyreg(fs, e); - } - expr_free(fs, e); - e->u.s.info = bcemit_AD(fs, op, 0, e->u.s.info); - e->k = VRELOCABLE; -} - -/* -- Lexer support ------------------------------------------------------- */ - -/* Check and consume optional token. */ -static int lex_opt(LexState *ls, LexToken tok) -{ - if (ls->tok == tok) { - lj_lex_next(ls); - return 1; - } - return 0; -} - -/* Check and consume token. */ -static void lex_check(LexState *ls, LexToken tok) -{ - if (ls->tok != tok) - err_token(ls, tok); - lj_lex_next(ls); -} - -/* Check for matching token. */ -static void lex_match(LexState *ls, LexToken what, LexToken who, BCLine line) -{ - if (!lex_opt(ls, what)) { - if (line == ls->linenumber) { - err_token(ls, what); - } else { - const char *swhat = lj_lex_token2str(ls, what); - const char *swho = lj_lex_token2str(ls, who); - lj_lex_error(ls, ls->tok, LJ_ERR_XMATCH, swhat, swho, line); - } - } -} - -/* Check for string token. */ -static GCstr *lex_str(LexState *ls) -{ - GCstr *s; - if (ls->tok != TK_name && (LJ_52 || ls->tok != TK_goto)) - err_token(ls, TK_name); - s = strV(&ls->tokval); - lj_lex_next(ls); - return s; -} - -/* -- Variable handling --------------------------------------------------- */ - -#define var_get(ls, fs, i) ((ls)->vstack[(fs)->varmap[(i)]]) - -/* Define a new local variable. */ -static void var_new(LexState *ls, BCReg n, GCstr *name) -{ - FuncState *fs = ls->fs; - MSize vtop = ls->vtop; - checklimit(fs, fs->nactvar+n, LJ_MAX_LOCVAR, "local variables"); - if (LJ_UNLIKELY(vtop >= ls->sizevstack)) { - if (ls->sizevstack >= LJ_MAX_VSTACK) - lj_lex_error(ls, 0, LJ_ERR_XLIMC, LJ_MAX_VSTACK); - lj_mem_growvec(ls->L, ls->vstack, ls->sizevstack, LJ_MAX_VSTACK, VarInfo); - } - lua_assert((uintptr_t)name < VARNAME__MAX || - lj_tab_getstr(fs->kt, name) != NULL); - /* NOBARRIER: name is anchored in fs->kt and ls->vstack is not a GCobj. */ - setgcref(ls->vstack[vtop].name, obj2gco(name)); - fs->varmap[fs->nactvar+n] = (uint16_t)vtop; - ls->vtop = vtop+1; -} - -#define var_new_lit(ls, n, v) \ - var_new(ls, (n), lj_parse_keepstr(ls, "" v, sizeof(v)-1)) - -#define var_new_fixed(ls, n, vn) \ - var_new(ls, (n), (GCstr *)(uintptr_t)(vn)) - -/* Add local variables. */ -static void var_add(LexState *ls, BCReg nvars) -{ - FuncState *fs = ls->fs; - BCReg nactvar = fs->nactvar; - while (nvars--) { - VarInfo *v = &var_get(ls, fs, nactvar); - v->startpc = fs->pc; - v->slot = nactvar++; - v->info = 0; - } - fs->nactvar = nactvar; -} - -/* Remove local variables. */ -static void var_remove(LexState *ls, BCReg tolevel) -{ - FuncState *fs = ls->fs; - while (fs->nactvar > tolevel) - var_get(ls, fs, --fs->nactvar).endpc = fs->pc; -} - -/* Lookup local variable name. */ -static BCReg var_lookup_local(FuncState *fs, GCstr *n) -{ - int i; - for (i = fs->nactvar-1; i >= 0; i--) { - if (n == strref(var_get(fs->ls, fs, i).name)) - return (BCReg)i; - } - return (BCReg)-1; /* Not found. */ -} - -/* Lookup or add upvalue index. */ -static MSize var_lookup_uv(FuncState *fs, MSize vidx, ExpDesc *e) -{ - MSize i, n = fs->nuv; - for (i = 0; i < n; i++) - if (fs->uvmap[i] == vidx) - return i; /* Already exists. */ - /* Otherwise create a new one. */ - checklimit(fs, fs->nuv, LJ_MAX_UPVAL, "upvalues"); - lua_assert(e->k == VLOCAL || e->k == VUPVAL); - fs->uvmap[n] = (uint16_t)vidx; - fs->uvtmp[n] = (uint16_t)(e->k == VLOCAL ? vidx : LJ_MAX_VSTACK+e->u.s.info); - fs->nuv = n+1; - return n; -} - -/* Forward declaration. */ -static void fscope_uvmark(FuncState *fs, BCReg level); - -/* Recursively lookup variables in enclosing functions. */ -static MSize var_lookup_(FuncState *fs, GCstr *name, ExpDesc *e, int first) -{ - if (fs) { - BCReg reg = var_lookup_local(fs, name); - if ((int32_t)reg >= 0) { /* Local in this function? */ - expr_init(e, VLOCAL, reg); - if (!first) - fscope_uvmark(fs, reg); /* Scope now has an upvalue. */ - return (MSize)(e->u.s.aux = (uint32_t)fs->varmap[reg]); - } else { - MSize vidx = var_lookup_(fs->prev, name, e, 0); /* Var in outer func? */ - if ((int32_t)vidx >= 0) { /* Yes, make it an upvalue here. */ - e->u.s.info = (uint8_t)var_lookup_uv(fs, vidx, e); - e->k = VUPVAL; - return vidx; - } - } - } else { /* Not found in any function, must be a global. */ - expr_init(e, VGLOBAL, 0); - e->u.sval = name; - } - return (MSize)-1; /* Global. */ -} - -/* Lookup variable name. */ -#define var_lookup(ls, e) \ - var_lookup_((ls)->fs, lex_str(ls), (e), 1) - -/* -- Goto an label handling ---------------------------------------------- */ - -/* Add a new goto or label. */ -static MSize gola_new(LexState *ls, GCstr *name, uint8_t info, BCPos pc) -{ - FuncState *fs = ls->fs; - MSize vtop = ls->vtop; - if (LJ_UNLIKELY(vtop >= ls->sizevstack)) { - if (ls->sizevstack >= LJ_MAX_VSTACK) - lj_lex_error(ls, 0, LJ_ERR_XLIMC, LJ_MAX_VSTACK); - lj_mem_growvec(ls->L, ls->vstack, ls->sizevstack, LJ_MAX_VSTACK, VarInfo); - } - lua_assert(name == NAME_BREAK || lj_tab_getstr(fs->kt, name) != NULL); - /* NOBARRIER: name is anchored in fs->kt and ls->vstack is not a GCobj. */ - setgcref(ls->vstack[vtop].name, obj2gco(name)); - ls->vstack[vtop].startpc = pc; - ls->vstack[vtop].slot = (uint8_t)fs->nactvar; - ls->vstack[vtop].info = info; - ls->vtop = vtop+1; - return vtop; -} - -#define gola_isgoto(v) ((v)->info & VSTACK_GOTO) -#define gola_islabel(v) ((v)->info & VSTACK_LABEL) -#define gola_isgotolabel(v) ((v)->info & (VSTACK_GOTO|VSTACK_LABEL)) - -/* Patch goto to jump to label. */ -static void gola_patch(LexState *ls, VarInfo *vg, VarInfo *vl) -{ - FuncState *fs = ls->fs; - BCPos pc = vg->startpc; - setgcrefnull(vg->name); /* Invalidate pending goto. */ - setbc_a(&fs->bcbase[pc].ins, vl->slot); - jmp_patch(fs, pc, vl->startpc); -} - -/* Patch goto to close upvalues. */ -static void gola_close(LexState *ls, VarInfo *vg) -{ - FuncState *fs = ls->fs; - BCPos pc = vg->startpc; - BCIns *ip = &fs->bcbase[pc].ins; - lua_assert(gola_isgoto(vg)); - lua_assert(bc_op(*ip) == BC_JMP || bc_op(*ip) == BC_UCLO); - setbc_a(ip, vg->slot); - if (bc_op(*ip) == BC_JMP) { - BCPos next = jmp_next(fs, pc); - if (next != NO_JMP) jmp_patch(fs, next, pc); /* Jump to UCLO. */ - setbc_op(ip, BC_UCLO); /* Turn into UCLO. */ - setbc_j(ip, NO_JMP); - } -} - -/* Resolve pending forward gotos for label. */ -static void gola_resolve(LexState *ls, FuncScope *bl, MSize idx) -{ - VarInfo *vg = ls->vstack + bl->vstart; - VarInfo *vl = ls->vstack + idx; - for (; vg < vl; vg++) - if (gcrefeq(vg->name, vl->name) && gola_isgoto(vg)) { - if (vg->slot < vl->slot) { - GCstr *name = strref(var_get(ls, ls->fs, vg->slot).name); - lua_assert((uintptr_t)name >= VARNAME__MAX); - ls->linenumber = ls->fs->bcbase[vg->startpc].line; - lua_assert(strref(vg->name) != NAME_BREAK); - lj_lex_error(ls, 0, LJ_ERR_XGSCOPE, - strdata(strref(vg->name)), strdata(name)); - } - gola_patch(ls, vg, vl); - } -} - -/* Fixup remaining gotos and labels for scope. */ -static void gola_fixup(LexState *ls, FuncScope *bl) -{ - VarInfo *v = ls->vstack + bl->vstart; - VarInfo *ve = ls->vstack + ls->vtop; - for (; v < ve; v++) { - GCstr *name = strref(v->name); - if (name != NULL) { /* Only consider remaining valid gotos/labels. */ - if (gola_islabel(v)) { - VarInfo *vg; - setgcrefnull(v->name); /* Invalidate label that goes out of scope. */ - for (vg = v+1; vg < ve; vg++) /* Resolve pending backward gotos. */ - if (strref(vg->name) == name && gola_isgoto(vg)) { - if ((bl->flags&FSCOPE_UPVAL) && vg->slot > v->slot) - gola_close(ls, vg); - gola_patch(ls, vg, v); - } - } else if (gola_isgoto(v)) { - if (bl->prev) { /* Propagate goto or break to outer scope. */ - bl->prev->flags |= name == NAME_BREAK ? FSCOPE_BREAK : FSCOPE_GOLA; - v->slot = bl->nactvar; - if ((bl->flags & FSCOPE_UPVAL)) - gola_close(ls, v); - } else { /* No outer scope: undefined goto label or no loop. */ - ls->linenumber = ls->fs->bcbase[v->startpc].line; - if (name == NAME_BREAK) - lj_lex_error(ls, 0, LJ_ERR_XBREAK); - else - lj_lex_error(ls, 0, LJ_ERR_XLUNDEF, strdata(name)); - } - } - } - } -} - -/* Find existing label. */ -static VarInfo *gola_findlabel(LexState *ls, GCstr *name) -{ - VarInfo *v = ls->vstack + ls->fs->bl->vstart; - VarInfo *ve = ls->vstack + ls->vtop; - for (; v < ve; v++) - if (strref(v->name) == name && gola_islabel(v)) - return v; - return NULL; -} - -/* -- Scope handling ------------------------------------------------------ */ - -/* Begin a scope. */ -static void fscope_begin(FuncState *fs, FuncScope *bl, int flags) -{ - bl->nactvar = (uint8_t)fs->nactvar; - bl->flags = flags; - bl->vstart = fs->ls->vtop; - bl->prev = fs->bl; - fs->bl = bl; - lua_assert(fs->freereg == fs->nactvar); -} - -/* End a scope. */ -static void fscope_end(FuncState *fs) -{ - FuncScope *bl = fs->bl; - LexState *ls = fs->ls; - fs->bl = bl->prev; - var_remove(ls, bl->nactvar); - fs->freereg = fs->nactvar; - lua_assert(bl->nactvar == fs->nactvar); - if ((bl->flags & (FSCOPE_UPVAL|FSCOPE_NOCLOSE)) == FSCOPE_UPVAL) - bcemit_AJ(fs, BC_UCLO, bl->nactvar, 0); - if ((bl->flags & FSCOPE_BREAK)) { - if ((bl->flags & FSCOPE_LOOP)) { - MSize idx = gola_new(ls, NAME_BREAK, VSTACK_LABEL, fs->pc); - ls->vtop = idx; /* Drop break label immediately. */ - gola_resolve(ls, bl, idx); - return; - } /* else: need the fixup step to propagate the breaks. */ - } else if (!(bl->flags & FSCOPE_GOLA)) { - return; - } - gola_fixup(ls, bl); -} - -/* Mark scope as having an upvalue. */ -static void fscope_uvmark(FuncState *fs, BCReg level) -{ - FuncScope *bl; - for (bl = fs->bl; bl && bl->nactvar > level; bl = bl->prev) - ; - if (bl) - bl->flags |= FSCOPE_UPVAL; -} - -/* -- Function state management ------------------------------------------- */ - -/* Fixup bytecode for prototype. */ -static void fs_fixup_bc(FuncState *fs, GCproto *pt, BCIns *bc, MSize n) -{ - BCInsLine *base = fs->bcbase; - MSize i; - pt->sizebc = n; - bc[0] = BCINS_AD((fs->flags & PROTO_VARARG) ? BC_FUNCV : BC_FUNCF, - fs->framesize, 0); - for (i = 1; i < n; i++) - bc[i] = base[i].ins; -} - -/* Fixup upvalues for child prototype, step #2. */ -static void fs_fixup_uv2(FuncState *fs, GCproto *pt) -{ - VarInfo *vstack = fs->ls->vstack; - uint16_t *uv = proto_uv(pt); - MSize i, n = pt->sizeuv; - for (i = 0; i < n; i++) { - VarIndex vidx = uv[i]; - if (vidx >= LJ_MAX_VSTACK) - uv[i] = vidx - LJ_MAX_VSTACK; - else if ((vstack[vidx].info & VSTACK_VAR_RW)) - uv[i] = vstack[vidx].slot | PROTO_UV_LOCAL; - else - uv[i] = vstack[vidx].slot | PROTO_UV_LOCAL | PROTO_UV_IMMUTABLE; - } -} - -/* Fixup constants for prototype. */ -static void fs_fixup_k(FuncState *fs, GCproto *pt, void *kptr) -{ - GCtab *kt; - TValue *array; - Node *node; - MSize i, hmask; - checklimitgt(fs, fs->nkn, BCMAX_D+1, "constants"); - checklimitgt(fs, fs->nkgc, BCMAX_D+1, "constants"); - setmref(pt->k, kptr); - pt->sizekn = fs->nkn; - pt->sizekgc = fs->nkgc; - kt = fs->kt; - array = tvref(kt->array); - for (i = 0; i < kt->asize; i++) - if (tvhaskslot(&array[i])) { - TValue *tv = &((TValue *)kptr)[tvkslot(&array[i])]; - if (LJ_DUALNUM) - setintV(tv, (int32_t)i); - else - setnumV(tv, (lua_Number)i); - } - node = noderef(kt->node); - hmask = kt->hmask; - for (i = 0; i <= hmask; i++) { - Node *n = &node[i]; - if (tvhaskslot(&n->val)) { - ptrdiff_t kidx = (ptrdiff_t)tvkslot(&n->val); - lua_assert(!tvisint(&n->key)); - if (tvisnum(&n->key)) { - TValue *tv = &((TValue *)kptr)[kidx]; - if (LJ_DUALNUM) { - lua_Number nn = numV(&n->key); - int32_t k = lj_num2int(nn); - lua_assert(!tvismzero(&n->key)); - if ((lua_Number)k == nn) - setintV(tv, k); - else - *tv = n->key; - } else { - *tv = n->key; - } - } else { - GCobj *o = gcV(&n->key); - setgcref(((GCRef *)kptr)[~kidx], o); - lj_gc_objbarrier(fs->L, pt, o); - if (tvisproto(&n->key)) - fs_fixup_uv2(fs, gco2pt(o)); - } - } - } -} - -/* Fixup upvalues for prototype, step #1. */ -static void fs_fixup_uv1(FuncState *fs, GCproto *pt, uint16_t *uv) -{ - setmref(pt->uv, uv); - pt->sizeuv = fs->nuv; - memcpy(uv, fs->uvtmp, fs->nuv*sizeof(VarIndex)); -} - -#ifndef LUAJIT_DISABLE_DEBUGINFO -/* Prepare lineinfo for prototype. */ -static size_t fs_prep_line(FuncState *fs, BCLine numline) -{ - return (fs->pc-1) << (numline < 256 ? 0 : numline < 65536 ? 1 : 2); -} - -/* Fixup lineinfo for prototype. */ -static void fs_fixup_line(FuncState *fs, GCproto *pt, - void *lineinfo, BCLine numline) -{ - BCInsLine *base = fs->bcbase + 1; - BCLine first = fs->linedefined; - MSize i = 0, n = fs->pc-1; - pt->firstline = fs->linedefined; - pt->numline = numline; - setmref(pt->lineinfo, lineinfo); - if (LJ_LIKELY(numline < 256)) { - uint8_t *li = (uint8_t *)lineinfo; - do { - BCLine delta = base[i].line - first; - lua_assert(delta >= 0 && delta < 256); - li[i] = (uint8_t)delta; - } while (++i < n); - } else if (LJ_LIKELY(numline < 65536)) { - uint16_t *li = (uint16_t *)lineinfo; - do { - BCLine delta = base[i].line - first; - lua_assert(delta >= 0 && delta < 65536); - li[i] = (uint16_t)delta; - } while (++i < n); - } else { - uint32_t *li = (uint32_t *)lineinfo; - do { - BCLine delta = base[i].line - first; - lua_assert(delta >= 0); - li[i] = (uint32_t)delta; - } while (++i < n); - } -} - -/* Prepare variable info for prototype. */ -static size_t fs_prep_var(LexState *ls, FuncState *fs, size_t *ofsvar) -{ - VarInfo *vs =ls->vstack, *ve; - MSize i, n; - BCPos lastpc; - lj_buf_reset(&ls->sb); /* Copy to temp. string buffer. */ - /* Store upvalue names. */ - for (i = 0, n = fs->nuv; i < n; i++) { - GCstr *s = strref(vs[fs->uvmap[i]].name); - MSize len = s->len+1; - char *p = lj_buf_more(&ls->sb, len); - p = lj_buf_wmem(p, strdata(s), len); - setsbufP(&ls->sb, p); - } - *ofsvar = sbuflen(&ls->sb); - lastpc = 0; - /* Store local variable names and compressed ranges. */ - for (ve = vs + ls->vtop, vs += fs->vbase; vs < ve; vs++) { - if (!gola_isgotolabel(vs)) { - GCstr *s = strref(vs->name); - BCPos startpc; - char *p; - if ((uintptr_t)s < VARNAME__MAX) { - p = lj_buf_more(&ls->sb, 1 + 2*5); - *p++ = (char)(uintptr_t)s; - } else { - MSize len = s->len+1; - p = lj_buf_more(&ls->sb, len + 2*5); - p = lj_buf_wmem(p, strdata(s), len); - } - startpc = vs->startpc; - p = lj_strfmt_wuleb128(p, startpc-lastpc); - p = lj_strfmt_wuleb128(p, vs->endpc-startpc); - setsbufP(&ls->sb, p); - lastpc = startpc; - } - } - lj_buf_putb(&ls->sb, '\0'); /* Terminator for varinfo. */ - return sbuflen(&ls->sb); -} - -/* Fixup variable info for prototype. */ -static void fs_fixup_var(LexState *ls, GCproto *pt, uint8_t *p, size_t ofsvar) -{ - setmref(pt->uvinfo, p); - setmref(pt->varinfo, (char *)p + ofsvar); - memcpy(p, sbufB(&ls->sb), sbuflen(&ls->sb)); /* Copy from temp. buffer. */ -} -#else - -/* Initialize with empty debug info, if disabled. */ -#define fs_prep_line(fs, numline) (UNUSED(numline), 0) -#define fs_fixup_line(fs, pt, li, numline) \ - pt->firstline = pt->numline = 0, setmref((pt)->lineinfo, NULL) -#define fs_prep_var(ls, fs, ofsvar) (UNUSED(ofsvar), 0) -#define fs_fixup_var(ls, pt, p, ofsvar) \ - setmref((pt)->uvinfo, NULL), setmref((pt)->varinfo, NULL) - -#endif - -/* Check if bytecode op returns. */ -static int bcopisret(BCOp op) -{ - switch (op) { - case BC_CALLMT: case BC_CALLT: - case BC_RETM: case BC_RET: case BC_RET0: case BC_RET1: - return 1; - default: - return 0; - } -} - -/* Fixup return instruction for prototype. */ -static void fs_fixup_ret(FuncState *fs) -{ - BCPos lastpc = fs->pc; - if (lastpc <= fs->lasttarget || !bcopisret(bc_op(fs->bcbase[lastpc-1].ins))) { - if ((fs->bl->flags & FSCOPE_UPVAL)) - bcemit_AJ(fs, BC_UCLO, 0, 0); - bcemit_AD(fs, BC_RET0, 0, 1); /* Need final return. */ - } - fs->bl->flags |= FSCOPE_NOCLOSE; /* Handled above. */ - fscope_end(fs); - lua_assert(fs->bl == NULL); - /* May need to fixup returns encoded before first function was created. */ - if (fs->flags & PROTO_FIXUP_RETURN) { - BCPos pc; - for (pc = 1; pc < lastpc; pc++) { - BCIns ins = fs->bcbase[pc].ins; - BCPos offset; - switch (bc_op(ins)) { - case BC_CALLMT: case BC_CALLT: - case BC_RETM: case BC_RET: case BC_RET0: case BC_RET1: - offset = bcemit_INS(fs, ins); /* Copy original instruction. */ - fs->bcbase[offset].line = fs->bcbase[pc].line; - offset = offset-(pc+1)+BCBIAS_J; - if (offset > BCMAX_D) - err_syntax(fs->ls, LJ_ERR_XFIXUP); - /* Replace with UCLO plus branch. */ - fs->bcbase[pc].ins = BCINS_AD(BC_UCLO, 0, offset); - break; - case BC_UCLO: - return; /* We're done. */ - default: - break; - } - } - } -} - -/* Finish a FuncState and return the new prototype. */ -static GCproto *fs_finish(LexState *ls, BCLine line) -{ - lua_State *L = ls->L; - FuncState *fs = ls->fs; - BCLine numline = line - fs->linedefined; - size_t sizept, ofsk, ofsuv, ofsli, ofsdbg, ofsvar; - GCproto *pt; - - /* Apply final fixups. */ - fs_fixup_ret(fs); - - /* Calculate total size of prototype including all colocated arrays. */ - sizept = sizeof(GCproto) + fs->pc*sizeof(BCIns) + fs->nkgc*sizeof(GCRef); - sizept = (sizept + sizeof(TValue)-1) & ~(sizeof(TValue)-1); - ofsk = sizept; sizept += fs->nkn*sizeof(TValue); - ofsuv = sizept; sizept += ((fs->nuv+1)&~1)*2; - ofsli = sizept; sizept += fs_prep_line(fs, numline); - ofsdbg = sizept; sizept += fs_prep_var(ls, fs, &ofsvar); - - /* Allocate prototype and initialize its fields. */ - pt = (GCproto *)lj_mem_newgco(L, (MSize)sizept); - pt->gct = ~LJ_TPROTO; - pt->sizept = (MSize)sizept; - pt->trace = 0; - pt->flags = (uint8_t)(fs->flags & ~(PROTO_HAS_RETURN|PROTO_FIXUP_RETURN)); - pt->numparams = fs->numparams; - pt->framesize = fs->framesize; - setgcref(pt->chunkname, obj2gco(ls->chunkname)); - - /* Close potentially uninitialized gap between bc and kgc. */ - *(uint32_t *)((char *)pt + ofsk - sizeof(GCRef)*(fs->nkgc+1)) = 0; - fs_fixup_bc(fs, pt, (BCIns *)((char *)pt + sizeof(GCproto)), fs->pc); - fs_fixup_k(fs, pt, (void *)((char *)pt + ofsk)); - fs_fixup_uv1(fs, pt, (uint16_t *)((char *)pt + ofsuv)); - fs_fixup_line(fs, pt, (void *)((char *)pt + ofsli), numline); - fs_fixup_var(ls, pt, (uint8_t *)((char *)pt + ofsdbg), ofsvar); - - lj_vmevent_send(L, BC, - setprotoV(L, L->top++, pt); - ); - - L->top--; /* Pop table of constants. */ - ls->vtop = fs->vbase; /* Reset variable stack. */ - ls->fs = fs->prev; - lua_assert(ls->fs != NULL || ls->tok == TK_eof); - return pt; -} - -/* Initialize a new FuncState. */ -static void fs_init(LexState *ls, FuncState *fs) -{ - lua_State *L = ls->L; - fs->prev = ls->fs; ls->fs = fs; /* Append to list. */ - fs->ls = ls; - fs->vbase = ls->vtop; - fs->L = L; - fs->pc = 0; - fs->lasttarget = 0; - fs->jpc = NO_JMP; - fs->freereg = 0; - fs->nkgc = 0; - fs->nkn = 0; - fs->nactvar = 0; - fs->nuv = 0; - fs->bl = NULL; - fs->flags = 0; - fs->framesize = 1; /* Minimum frame size. */ - fs->kt = lj_tab_new(L, 0, 0); - /* Anchor table of constants in stack to avoid being collected. */ - settabV(L, L->top, fs->kt); - incr_top(L); -} - -/* -- Expressions --------------------------------------------------------- */ - -/* Forward declaration. */ -static void expr(LexState *ls, ExpDesc *v); - -/* Return string expression. */ -static void expr_str(LexState *ls, ExpDesc *e) -{ - expr_init(e, VKSTR, 0); - e->u.sval = lex_str(ls); -} - -/* Return index expression. */ -static void expr_index(FuncState *fs, ExpDesc *t, ExpDesc *e) -{ - /* Already called: expr_toval(fs, e). */ - t->k = VINDEXED; - if (expr_isnumk(e)) { -#if LJ_DUALNUM - if (tvisint(expr_numtv(e))) { - int32_t k = intV(expr_numtv(e)); - if (checku8(k)) { - t->u.s.aux = BCMAX_C+1+(uint32_t)k; /* 256..511: const byte key */ - return; - } - } -#else - lua_Number n = expr_numberV(e); - int32_t k = lj_num2int(n); - if (checku8(k) && n == (lua_Number)k) { - t->u.s.aux = BCMAX_C+1+(uint32_t)k; /* 256..511: const byte key */ - return; - } -#endif - } else if (expr_isstrk(e)) { - BCReg idx = const_str(fs, e); - if (idx <= BCMAX_C) { - t->u.s.aux = ~idx; /* -256..-1: const string key */ - return; - } - } - t->u.s.aux = expr_toanyreg(fs, e); /* 0..255: register */ -} - -/* Parse index expression with named field. */ -static void expr_field(LexState *ls, ExpDesc *v) -{ - FuncState *fs = ls->fs; - ExpDesc key; - expr_toanyreg(fs, v); - lj_lex_next(ls); /* Skip dot or colon. */ - expr_str(ls, &key); - expr_index(fs, v, &key); -} - -/* Parse index expression with brackets. */ -static void expr_bracket(LexState *ls, ExpDesc *v) -{ - lj_lex_next(ls); /* Skip '['. */ - expr(ls, v); - expr_toval(ls->fs, v); - lex_check(ls, ']'); -} - -/* Get value of constant expression. */ -static void expr_kvalue(TValue *v, ExpDesc *e) -{ - if (e->k <= VKTRUE) { - setpriV(v, ~(uint32_t)e->k); - } else if (e->k == VKSTR) { - setgcVraw(v, obj2gco(e->u.sval), LJ_TSTR); - } else { - lua_assert(tvisnumber(expr_numtv(e))); - *v = *expr_numtv(e); - } -} - -/* Parse table constructor expression. */ -static void expr_table(LexState *ls, ExpDesc *e) -{ - FuncState *fs = ls->fs; - BCLine line = ls->linenumber; - GCtab *t = NULL; - int vcall = 0, needarr = 0, fixt = 0; - uint32_t narr = 1; /* First array index. */ - uint32_t nhash = 0; /* Number of hash entries. */ - BCReg freg = fs->freereg; - BCPos pc = bcemit_AD(fs, BC_TNEW, freg, 0); - expr_init(e, VNONRELOC, freg); - bcreg_reserve(fs, 1); - freg++; - lex_check(ls, '{'); - while (ls->tok != '}') { - ExpDesc key, val; - vcall = 0; - if (ls->tok == '[') { - expr_bracket(ls, &key); /* Already calls expr_toval. */ - if (!expr_isk(&key)) expr_index(fs, e, &key); - if (expr_isnumk(&key) && expr_numiszero(&key)) needarr = 1; else nhash++; - lex_check(ls, '='); - } else if ((ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) && - lj_lex_lookahead(ls) == '=') { - expr_str(ls, &key); - lex_check(ls, '='); - nhash++; - } else { - expr_init(&key, VKNUM, 0); - setintV(&key.u.nval, (int)narr); - narr++; - needarr = vcall = 1; - } - expr(ls, &val); - if (expr_isk(&key) && key.k != VKNIL && - (key.k == VKSTR || expr_isk_nojump(&val))) { - TValue k, *v; - if (!t) { /* Create template table on demand. */ - BCReg kidx; - t = lj_tab_new(fs->L, needarr ? narr : 0, hsize2hbits(nhash)); - kidx = const_gc(fs, obj2gco(t), LJ_TTAB); - fs->bcbase[pc].ins = BCINS_AD(BC_TDUP, freg-1, kidx); - } - vcall = 0; - expr_kvalue(&k, &key); - v = lj_tab_set(fs->L, t, &k); - lj_gc_anybarriert(fs->L, t); - if (expr_isk_nojump(&val)) { /* Add const key/value to template table. */ - expr_kvalue(v, &val); - } else { /* Otherwise create dummy string key (avoids lj_tab_newkey). */ - settabV(fs->L, v, t); /* Preserve key with table itself as value. */ - fixt = 1; /* Fix this later, after all resizes. */ - goto nonconst; - } - } else { - nonconst: - if (val.k != VCALL) { expr_toanyreg(fs, &val); vcall = 0; } - if (expr_isk(&key)) expr_index(fs, e, &key); - bcemit_store(fs, e, &val); - } - fs->freereg = freg; - if (!lex_opt(ls, ',') && !lex_opt(ls, ';')) break; - } - lex_match(ls, '}', '{', line); - if (vcall) { - BCInsLine *ilp = &fs->bcbase[fs->pc-1]; - ExpDesc en; - lua_assert(bc_a(ilp->ins) == freg && - bc_op(ilp->ins) == (narr > 256 ? BC_TSETV : BC_TSETB)); - expr_init(&en, VKNUM, 0); - en.u.nval.u32.lo = narr-1; - en.u.nval.u32.hi = 0x43300000; /* Biased integer to avoid denormals. */ - if (narr > 256) { fs->pc--; ilp--; } - ilp->ins = BCINS_AD(BC_TSETM, freg, const_num(fs, &en)); - setbc_b(&ilp[-1].ins, 0); - } - if (pc == fs->pc-1) { /* Make expr relocable if possible. */ - e->u.s.info = pc; - fs->freereg--; - e->k = VRELOCABLE; - } else { - e->k = VNONRELOC; /* May have been changed by expr_index. */ - } - if (!t) { /* Construct TNEW RD: hhhhhaaaaaaaaaaa. */ - BCIns *ip = &fs->bcbase[pc].ins; - if (!needarr) narr = 0; - else if (narr < 3) narr = 3; - else if (narr > 0x7ff) narr = 0x7ff; - setbc_d(ip, narr|(hsize2hbits(nhash)<<11)); - } else { - if (needarr && t->asize < narr) - lj_tab_reasize(fs->L, t, narr-1); - if (fixt) { /* Fix value for dummy keys in template table. */ - Node *node = noderef(t->node); - uint32_t i, hmask = t->hmask; - for (i = 0; i <= hmask; i++) { - Node *n = &node[i]; - if (tvistab(&n->val)) { - lua_assert(tabV(&n->val) == t); - setnilV(&n->val); /* Turn value into nil. */ - } - } - } - lj_gc_check(fs->L); - } -} - -/* Parse function parameters. */ -static BCReg parse_params(LexState *ls, int needself) -{ - FuncState *fs = ls->fs; - BCReg nparams = 0; - lex_check(ls, '('); - if (needself) - var_new_lit(ls, nparams++, "self"); - if (ls->tok != ')') { - do { - if (ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) { - var_new(ls, nparams++, lex_str(ls)); - } else if (ls->tok == TK_dots) { - lj_lex_next(ls); - fs->flags |= PROTO_VARARG; - break; - } else { - err_syntax(ls, LJ_ERR_XPARAM); - } - } while (lex_opt(ls, ',')); - } - var_add(ls, nparams); - lua_assert(fs->nactvar == nparams); - bcreg_reserve(fs, nparams); - lex_check(ls, ')'); - return nparams; -} - -/* Forward declaration. */ -static void parse_chunk(LexState *ls); - -/* Parse body of a function. */ -static void parse_body(LexState *ls, ExpDesc *e, int needself, BCLine line) -{ - FuncState fs, *pfs = ls->fs; - FuncScope bl; - GCproto *pt; - ptrdiff_t oldbase = pfs->bcbase - ls->bcstack; - fs_init(ls, &fs); - fscope_begin(&fs, &bl, 0); - fs.linedefined = line; - fs.numparams = (uint8_t)parse_params(ls, needself); - fs.bcbase = pfs->bcbase + pfs->pc; - fs.bclim = pfs->bclim - pfs->pc; - bcemit_AD(&fs, BC_FUNCF, 0, 0); /* Placeholder. */ - parse_chunk(ls); - if (ls->tok != TK_end) lex_match(ls, TK_end, TK_function, line); - pt = fs_finish(ls, (ls->lastline = ls->linenumber)); - pfs->bcbase = ls->bcstack + oldbase; /* May have been reallocated. */ - pfs->bclim = (BCPos)(ls->sizebcstack - oldbase); - /* Store new prototype in the constant array of the parent. */ - expr_init(e, VRELOCABLE, - bcemit_AD(pfs, BC_FNEW, 0, const_gc(pfs, obj2gco(pt), LJ_TPROTO))); -#if LJ_HASFFI - pfs->flags |= (fs.flags & PROTO_FFI); -#endif - if (!(pfs->flags & PROTO_CHILD)) { - if (pfs->flags & PROTO_HAS_RETURN) - pfs->flags |= PROTO_FIXUP_RETURN; - pfs->flags |= PROTO_CHILD; - } - lj_lex_next(ls); -} - -/* Parse expression list. Last expression is left open. */ -static BCReg expr_list(LexState *ls, ExpDesc *v) -{ - BCReg n = 1; - expr(ls, v); - while (lex_opt(ls, ',')) { - expr_tonextreg(ls->fs, v); - expr(ls, v); - n++; - } - return n; -} - -/* Parse function argument list. */ -static void parse_args(LexState *ls, ExpDesc *e) -{ - FuncState *fs = ls->fs; - ExpDesc args; - BCIns ins; - BCReg base; - BCLine line = ls->linenumber; - if (ls->tok == '(') { -#if !LJ_52 - if (line != ls->lastline) - err_syntax(ls, LJ_ERR_XAMBIG); -#endif - lj_lex_next(ls); - if (ls->tok == ')') { /* f(). */ - args.k = VVOID; - } else { - expr_list(ls, &args); - if (args.k == VCALL) /* f(a, b, g()) or f(a, b, ...). */ - setbc_b(bcptr(fs, &args), 0); /* Pass on multiple results. */ - } - lex_match(ls, ')', '(', line); - } else if (ls->tok == '{') { - expr_table(ls, &args); - } else if (ls->tok == TK_string) { - expr_init(&args, VKSTR, 0); - args.u.sval = strV(&ls->tokval); - lj_lex_next(ls); - } else { - err_syntax(ls, LJ_ERR_XFUNARG); - return; /* Silence compiler. */ - } - lua_assert(e->k == VNONRELOC); - base = e->u.s.info; /* Base register for call. */ - if (args.k == VCALL) { - ins = BCINS_ABC(BC_CALLM, base, 2, args.u.s.aux - base - 1 - LJ_FR2); - } else { - if (args.k != VVOID) - expr_tonextreg(fs, &args); - ins = BCINS_ABC(BC_CALL, base, 2, fs->freereg - base - LJ_FR2); - } - expr_init(e, VCALL, bcemit_INS(fs, ins)); - e->u.s.aux = base; - fs->bcbase[fs->pc - 1].line = line; - fs->freereg = base+1; /* Leave one result by default. */ -} - -/* Parse primary expression. */ -static void expr_primary(LexState *ls, ExpDesc *v) -{ - FuncState *fs = ls->fs; - /* Parse prefix expression. */ - if (ls->tok == '(') { - BCLine line = ls->linenumber; - lj_lex_next(ls); - expr(ls, v); - lex_match(ls, ')', '(', line); - expr_discharge(ls->fs, v); - } else if (ls->tok == TK_name || (!LJ_52 && ls->tok == TK_goto)) { - var_lookup(ls, v); - } else { - err_syntax(ls, LJ_ERR_XSYMBOL); - } - for (;;) { /* Parse multiple expression suffixes. */ - if (ls->tok == '.') { - expr_field(ls, v); - } else if (ls->tok == '[') { - ExpDesc key; - expr_toanyreg(fs, v); - expr_bracket(ls, &key); - expr_index(fs, v, &key); - } else if (ls->tok == ':') { - ExpDesc key; - lj_lex_next(ls); - expr_str(ls, &key); - bcemit_method(fs, v, &key); - parse_args(ls, v); - } else if (ls->tok == '(' || ls->tok == TK_string || ls->tok == '{') { - expr_tonextreg(fs, v); - if (LJ_FR2) bcreg_reserve(fs, 1); - parse_args(ls, v); - } else { - break; - } - } -} - -/* Parse simple expression. */ -static void expr_simple(LexState *ls, ExpDesc *v) -{ - switch (ls->tok) { - case TK_number: - expr_init(v, (LJ_HASFFI && tviscdata(&ls->tokval)) ? VKCDATA : VKNUM, 0); - copyTV(ls->L, &v->u.nval, &ls->tokval); - break; - case TK_string: - expr_init(v, VKSTR, 0); - v->u.sval = strV(&ls->tokval); - break; - case TK_nil: - expr_init(v, VKNIL, 0); - break; - case TK_true: - expr_init(v, VKTRUE, 0); - break; - case TK_false: - expr_init(v, VKFALSE, 0); - break; - case TK_dots: { /* Vararg. */ - FuncState *fs = ls->fs; - BCReg base; - checkcond(ls, fs->flags & PROTO_VARARG, LJ_ERR_XDOTS); - bcreg_reserve(fs, 1); - base = fs->freereg-1; - expr_init(v, VCALL, bcemit_ABC(fs, BC_VARG, base, 2, fs->numparams)); - v->u.s.aux = base; - break; - } - case '{': /* Table constructor. */ - expr_table(ls, v); - return; - case TK_function: - lj_lex_next(ls); - parse_body(ls, v, 0, ls->linenumber); - return; - default: - expr_primary(ls, v); - return; - } - lj_lex_next(ls); -} - -/* Manage syntactic levels to avoid blowing up the stack. */ -static void synlevel_begin(LexState *ls) -{ - if (++ls->level >= LJ_MAX_XLEVEL) - lj_lex_error(ls, 0, LJ_ERR_XLEVELS); -} - -#define synlevel_end(ls) ((ls)->level--) - -/* Convert token to binary operator. */ -static BinOpr token2binop(LexToken tok) -{ - switch (tok) { - case '+': return OPR_ADD; - case '-': return OPR_SUB; - case '*': return OPR_MUL; - case '/': return OPR_DIV; - case '%': return OPR_MOD; - case '^': return OPR_POW; - case TK_concat: return OPR_CONCAT; - case TK_ne: return OPR_NE; - case TK_eq: return OPR_EQ; - case '<': return OPR_LT; - case TK_le: return OPR_LE; - case '>': return OPR_GT; - case TK_ge: return OPR_GE; - case TK_and: return OPR_AND; - case TK_or: return OPR_OR; - default: return OPR_NOBINOPR; - } -} - -/* Priorities for each binary operator. ORDER OPR. */ -static const struct { - uint8_t left; /* Left priority. */ - uint8_t right; /* Right priority. */ -} priority[] = { - {6,6}, {6,6}, {7,7}, {7,7}, {7,7}, /* ADD SUB MUL DIV MOD */ - {10,9}, {5,4}, /* POW CONCAT (right associative) */ - {3,3}, {3,3}, /* EQ NE */ - {3,3}, {3,3}, {3,3}, {3,3}, /* LT GE GT LE */ - {2,2}, {1,1} /* AND OR */ -}; - -#define UNARY_PRIORITY 8 /* Priority for unary operators. */ - -/* Forward declaration. */ -static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit); - -/* Parse unary expression. */ -static void expr_unop(LexState *ls, ExpDesc *v) -{ - BCOp op; - if (ls->tok == TK_not) { - op = BC_NOT; - } else if (ls->tok == '-') { - op = BC_UNM; - } else if (ls->tok == '#') { - op = BC_LEN; - } else { - expr_simple(ls, v); - return; - } - lj_lex_next(ls); - expr_binop(ls, v, UNARY_PRIORITY); - bcemit_unop(ls->fs, op, v); -} - -/* Parse binary expressions with priority higher than the limit. */ -static BinOpr expr_binop(LexState *ls, ExpDesc *v, uint32_t limit) -{ - BinOpr op; - synlevel_begin(ls); - expr_unop(ls, v); - op = token2binop(ls->tok); - while (op != OPR_NOBINOPR && priority[op].left > limit) { - ExpDesc v2; - BinOpr nextop; - lj_lex_next(ls); - bcemit_binop_left(ls->fs, op, v); - /* Parse binary expression with higher priority. */ - nextop = expr_binop(ls, &v2, priority[op].right); - bcemit_binop(ls->fs, op, v, &v2); - op = nextop; - } - synlevel_end(ls); - return op; /* Return unconsumed binary operator (if any). */ -} - -/* Parse expression. */ -static void expr(LexState *ls, ExpDesc *v) -{ - expr_binop(ls, v, 0); /* Priority 0: parse whole expression. */ -} - -/* Assign expression to the next register. */ -static void expr_next(LexState *ls) -{ - ExpDesc e; - expr(ls, &e); - expr_tonextreg(ls->fs, &e); -} - -/* Parse conditional expression. */ -static BCPos expr_cond(LexState *ls) -{ - ExpDesc v; - expr(ls, &v); - if (v.k == VKNIL) v.k = VKFALSE; - bcemit_branch_t(ls->fs, &v); - return v.f; -} - -/* -- Assignments --------------------------------------------------------- */ - -/* List of LHS variables. */ -typedef struct LHSVarList { - ExpDesc v; /* LHS variable. */ - struct LHSVarList *prev; /* Link to previous LHS variable. */ -} LHSVarList; - -/* Eliminate write-after-read hazards for local variable assignment. */ -static void assign_hazard(LexState *ls, LHSVarList *lh, const ExpDesc *v) -{ - FuncState *fs = ls->fs; - BCReg reg = v->u.s.info; /* Check against this variable. */ - BCReg tmp = fs->freereg; /* Rename to this temp. register (if needed). */ - int hazard = 0; - for (; lh; lh = lh->prev) { - if (lh->v.k == VINDEXED) { - if (lh->v.u.s.info == reg) { /* t[i], t = 1, 2 */ - hazard = 1; - lh->v.u.s.info = tmp; - } - if (lh->v.u.s.aux == reg) { /* t[i], i = 1, 2 */ - hazard = 1; - lh->v.u.s.aux = tmp; - } - } - } - if (hazard) { - bcemit_AD(fs, BC_MOV, tmp, reg); /* Rename conflicting variable. */ - bcreg_reserve(fs, 1); - } -} - -/* Adjust LHS/RHS of an assignment. */ -static void assign_adjust(LexState *ls, BCReg nvars, BCReg nexps, ExpDesc *e) -{ - FuncState *fs = ls->fs; - int32_t extra = (int32_t)nvars - (int32_t)nexps; - if (e->k == VCALL) { - extra++; /* Compensate for the VCALL itself. */ - if (extra < 0) extra = 0; - setbc_b(bcptr(fs, e), extra+1); /* Fixup call results. */ - if (extra > 1) bcreg_reserve(fs, (BCReg)extra-1); - } else { - if (e->k != VVOID) - expr_tonextreg(fs, e); /* Close last expression. */ - if (extra > 0) { /* Leftover LHS are set to nil. */ - BCReg reg = fs->freereg; - bcreg_reserve(fs, (BCReg)extra); - bcemit_nil(fs, reg, (BCReg)extra); - } - } -} - -/* Recursively parse assignment statement. */ -static void parse_assignment(LexState *ls, LHSVarList *lh, BCReg nvars) -{ - ExpDesc e; - checkcond(ls, VLOCAL <= lh->v.k && lh->v.k <= VINDEXED, LJ_ERR_XSYNTAX); - if (lex_opt(ls, ',')) { /* Collect LHS list and recurse upwards. */ - LHSVarList vl; - vl.prev = lh; - expr_primary(ls, &vl.v); - if (vl.v.k == VLOCAL) - assign_hazard(ls, lh, &vl.v); - checklimit(ls->fs, ls->level + nvars, LJ_MAX_XLEVEL, "variable names"); - parse_assignment(ls, &vl, nvars+1); - } else { /* Parse RHS. */ - BCReg nexps; - lex_check(ls, '='); - nexps = expr_list(ls, &e); - if (nexps == nvars) { - if (e.k == VCALL) { - if (bc_op(*bcptr(ls->fs, &e)) == BC_VARG) { /* Vararg assignment. */ - ls->fs->freereg--; - e.k = VRELOCABLE; - } else { /* Multiple call results. */ - e.u.s.info = e.u.s.aux; /* Base of call is not relocatable. */ - e.k = VNONRELOC; - } - } - bcemit_store(ls->fs, &lh->v, &e); - return; - } - assign_adjust(ls, nvars, nexps, &e); - if (nexps > nvars) - ls->fs->freereg -= nexps - nvars; /* Drop leftover regs. */ - } - /* Assign RHS to LHS and recurse downwards. */ - expr_init(&e, VNONRELOC, ls->fs->freereg-1); - bcemit_store(ls->fs, &lh->v, &e); -} - -/* Parse call statement or assignment. */ -static void parse_call_assign(LexState *ls) -{ - FuncState *fs = ls->fs; - LHSVarList vl; - expr_primary(ls, &vl.v); - if (vl.v.k == VCALL) { /* Function call statement. */ - setbc_b(bcptr(fs, &vl.v), 1); /* No results. */ - } else { /* Start of an assignment. */ - vl.prev = NULL; - parse_assignment(ls, &vl, 1); - } -} - -/* Parse 'local' statement. */ -static void parse_local(LexState *ls) -{ - if (lex_opt(ls, TK_function)) { /* Local function declaration. */ - ExpDesc v, b; - FuncState *fs = ls->fs; - var_new(ls, 0, lex_str(ls)); - expr_init(&v, VLOCAL, fs->freereg); - v.u.s.aux = fs->varmap[fs->freereg]; - bcreg_reserve(fs, 1); - var_add(ls, 1); - parse_body(ls, &b, 0, ls->linenumber); - /* bcemit_store(fs, &v, &b) without setting VSTACK_VAR_RW. */ - expr_free(fs, &b); - expr_toreg(fs, &b, v.u.s.info); - /* The upvalue is in scope, but the local is only valid after the store. */ - var_get(ls, fs, fs->nactvar - 1).startpc = fs->pc; - } else { /* Local variable declaration. */ - ExpDesc e; - BCReg nexps, nvars = 0; - do { /* Collect LHS. */ - var_new(ls, nvars++, lex_str(ls)); - } while (lex_opt(ls, ',')); - if (lex_opt(ls, '=')) { /* Optional RHS. */ - nexps = expr_list(ls, &e); - } else { /* Or implicitly set to nil. */ - e.k = VVOID; - nexps = 0; - } - assign_adjust(ls, nvars, nexps, &e); - var_add(ls, nvars); - } -} - -/* Parse 'function' statement. */ -static void parse_func(LexState *ls, BCLine line) -{ - FuncState *fs; - ExpDesc v, b; - int needself = 0; - lj_lex_next(ls); /* Skip 'function'. */ - /* Parse function name. */ - var_lookup(ls, &v); - while (ls->tok == '.') /* Multiple dot-separated fields. */ - expr_field(ls, &v); - if (ls->tok == ':') { /* Optional colon to signify method call. */ - needself = 1; - expr_field(ls, &v); - } - parse_body(ls, &b, needself, line); - fs = ls->fs; - bcemit_store(fs, &v, &b); - fs->bcbase[fs->pc - 1].line = line; /* Set line for the store. */ -} - -/* -- Control transfer statements ----------------------------------------- */ - -/* Check for end of block. */ -static int parse_isend(LexToken tok) -{ - switch (tok) { - case TK_else: case TK_elseif: case TK_end: case TK_until: case TK_eof: - return 1; - default: - return 0; - } -} - -/* Parse 'return' statement. */ -static void parse_return(LexState *ls) -{ - BCIns ins; - FuncState *fs = ls->fs; - lj_lex_next(ls); /* Skip 'return'. */ - fs->flags |= PROTO_HAS_RETURN; - if (parse_isend(ls->tok) || ls->tok == ';') { /* Bare return. */ - ins = BCINS_AD(BC_RET0, 0, 1); - } else { /* Return with one or more values. */ - ExpDesc e; /* Receives the _last_ expression in the list. */ - BCReg nret = expr_list(ls, &e); - if (nret == 1) { /* Return one result. */ - if (e.k == VCALL) { /* Check for tail call. */ - BCIns *ip = bcptr(fs, &e); - /* It doesn't pay off to add BC_VARGT just for 'return ...'. */ - if (bc_op(*ip) == BC_VARG) goto notailcall; - fs->pc--; - ins = BCINS_AD(bc_op(*ip)-BC_CALL+BC_CALLT, bc_a(*ip), bc_c(*ip)); - } else { /* Can return the result from any register. */ - ins = BCINS_AD(BC_RET1, expr_toanyreg(fs, &e), 2); - } - } else { - if (e.k == VCALL) { /* Append all results from a call. */ - notailcall: - setbc_b(bcptr(fs, &e), 0); - ins = BCINS_AD(BC_RETM, fs->nactvar, e.u.s.aux - fs->nactvar); - } else { - expr_tonextreg(fs, &e); /* Force contiguous registers. */ - ins = BCINS_AD(BC_RET, fs->nactvar, nret+1); - } - } - } - if (fs->flags & PROTO_CHILD) - bcemit_AJ(fs, BC_UCLO, 0, 0); /* May need to close upvalues first. */ - bcemit_INS(fs, ins); -} - -/* Parse 'break' statement. */ -static void parse_break(LexState *ls) -{ - ls->fs->bl->flags |= FSCOPE_BREAK; - gola_new(ls, NAME_BREAK, VSTACK_GOTO, bcemit_jmp(ls->fs)); -} - -/* Parse 'goto' statement. */ -static void parse_goto(LexState *ls) -{ - FuncState *fs = ls->fs; - GCstr *name = lex_str(ls); - VarInfo *vl = gola_findlabel(ls, name); - if (vl) /* Treat backwards goto within same scope like a loop. */ - bcemit_AJ(fs, BC_LOOP, vl->slot, -1); /* No BC range check. */ - fs->bl->flags |= FSCOPE_GOLA; - gola_new(ls, name, VSTACK_GOTO, bcemit_jmp(fs)); -} - -/* Parse label. */ -static void parse_label(LexState *ls) -{ - FuncState *fs = ls->fs; - GCstr *name; - MSize idx; - fs->lasttarget = fs->pc; - fs->bl->flags |= FSCOPE_GOLA; - lj_lex_next(ls); /* Skip '::'. */ - name = lex_str(ls); - if (gola_findlabel(ls, name)) - lj_lex_error(ls, 0, LJ_ERR_XLDUP, strdata(name)); - idx = gola_new(ls, name, VSTACK_LABEL, fs->pc); - lex_check(ls, TK_label); - /* Recursively parse trailing statements: labels and ';' (Lua 5.2 only). */ - for (;;) { - if (ls->tok == TK_label) { - synlevel_begin(ls); - parse_label(ls); - synlevel_end(ls); - } else if (LJ_52 && ls->tok == ';') { - lj_lex_next(ls); - } else { - break; - } - } - /* Trailing label is considered to be outside of scope. */ - if (parse_isend(ls->tok) && ls->tok != TK_until) - ls->vstack[idx].slot = fs->bl->nactvar; - gola_resolve(ls, fs->bl, idx); -} - -/* -- Blocks, loops and conditional statements ---------------------------- */ - -/* Parse a block. */ -static void parse_block(LexState *ls) -{ - FuncState *fs = ls->fs; - FuncScope bl; - fscope_begin(fs, &bl, 0); - parse_chunk(ls); - fscope_end(fs); -} - -/* Parse 'while' statement. */ -static void parse_while(LexState *ls, BCLine line) -{ - FuncState *fs = ls->fs; - BCPos start, loop, condexit; - FuncScope bl; - lj_lex_next(ls); /* Skip 'while'. */ - start = fs->lasttarget = fs->pc; - condexit = expr_cond(ls); - fscope_begin(fs, &bl, FSCOPE_LOOP); - lex_check(ls, TK_do); - loop = bcemit_AD(fs, BC_LOOP, fs->nactvar, 0); - parse_block(ls); - jmp_patch(fs, bcemit_jmp(fs), start); - lex_match(ls, TK_end, TK_while, line); - fscope_end(fs); - jmp_tohere(fs, condexit); - jmp_patchins(fs, loop, fs->pc); -} - -/* Parse 'repeat' statement. */ -static void parse_repeat(LexState *ls, BCLine line) -{ - FuncState *fs = ls->fs; - BCPos loop = fs->lasttarget = fs->pc; - BCPos condexit; - FuncScope bl1, bl2; - fscope_begin(fs, &bl1, FSCOPE_LOOP); /* Breakable loop scope. */ - fscope_begin(fs, &bl2, 0); /* Inner scope. */ - lj_lex_next(ls); /* Skip 'repeat'. */ - bcemit_AD(fs, BC_LOOP, fs->nactvar, 0); - parse_chunk(ls); - lex_match(ls, TK_until, TK_repeat, line); - condexit = expr_cond(ls); /* Parse condition (still inside inner scope). */ - if (!(bl2.flags & FSCOPE_UPVAL)) { /* No upvalues? Just end inner scope. */ - fscope_end(fs); - } else { /* Otherwise generate: cond: UCLO+JMP out, !cond: UCLO+JMP loop. */ - parse_break(ls); /* Break from loop and close upvalues. */ - jmp_tohere(fs, condexit); - fscope_end(fs); /* End inner scope and close upvalues. */ - condexit = bcemit_jmp(fs); - } - jmp_patch(fs, condexit, loop); /* Jump backwards if !cond. */ - jmp_patchins(fs, loop, fs->pc); - fscope_end(fs); /* End loop scope. */ -} - -/* Parse numeric 'for'. */ -static void parse_for_num(LexState *ls, GCstr *varname, BCLine line) -{ - FuncState *fs = ls->fs; - BCReg base = fs->freereg; - FuncScope bl; - BCPos loop, loopend; - /* Hidden control variables. */ - var_new_fixed(ls, FORL_IDX, VARNAME_FOR_IDX); - var_new_fixed(ls, FORL_STOP, VARNAME_FOR_STOP); - var_new_fixed(ls, FORL_STEP, VARNAME_FOR_STEP); - /* Visible copy of index variable. */ - var_new(ls, FORL_EXT, varname); - lex_check(ls, '='); - expr_next(ls); - lex_check(ls, ','); - expr_next(ls); - if (lex_opt(ls, ',')) { - expr_next(ls); - } else { - bcemit_AD(fs, BC_KSHORT, fs->freereg, 1); /* Default step is 1. */ - bcreg_reserve(fs, 1); - } - var_add(ls, 3); /* Hidden control variables. */ - lex_check(ls, TK_do); - loop = bcemit_AJ(fs, BC_FORI, base, NO_JMP); - fscope_begin(fs, &bl, 0); /* Scope for visible variables. */ - var_add(ls, 1); - bcreg_reserve(fs, 1); - parse_block(ls); - fscope_end(fs); - /* Perform loop inversion. Loop control instructions are at the end. */ - loopend = bcemit_AJ(fs, BC_FORL, base, NO_JMP); - fs->bcbase[loopend].line = line; /* Fix line for control ins. */ - jmp_patchins(fs, loopend, loop+1); - jmp_patchins(fs, loop, fs->pc); -} - -/* Try to predict whether the iterator is next() and specialize the bytecode. -** Detecting next() and pairs() by name is simplistic, but quite effective. -** The interpreter backs off if the check for the closure fails at runtime. -*/ -static int predict_next(LexState *ls, FuncState *fs, BCPos pc) -{ - BCIns ins = fs->bcbase[pc].ins; - GCstr *name; - cTValue *o; - switch (bc_op(ins)) { - case BC_MOV: - name = gco2str(gcref(var_get(ls, fs, bc_d(ins)).name)); - break; - case BC_UGET: - name = gco2str(gcref(ls->vstack[fs->uvmap[bc_d(ins)]].name)); - break; - case BC_GGET: - /* There's no inverse index (yet), so lookup the strings. */ - o = lj_tab_getstr(fs->kt, lj_str_newlit(ls->L, "pairs")); - if (o && tvhaskslot(o) && tvkslot(o) == bc_d(ins)) - return 1; - o = lj_tab_getstr(fs->kt, lj_str_newlit(ls->L, "next")); - if (o && tvhaskslot(o) && tvkslot(o) == bc_d(ins)) - return 1; - return 0; - default: - return 0; - } - return (name->len == 5 && !strcmp(strdata(name), "pairs")) || - (name->len == 4 && !strcmp(strdata(name), "next")); -} - -/* Parse 'for' iterator. */ -static void parse_for_iter(LexState *ls, GCstr *indexname) -{ - FuncState *fs = ls->fs; - ExpDesc e; - BCReg nvars = 0; - BCLine line; - BCReg base = fs->freereg + 3; - BCPos loop, loopend, exprpc = fs->pc; - FuncScope bl; - int isnext; - /* Hidden control variables. */ - var_new_fixed(ls, nvars++, VARNAME_FOR_GEN); - var_new_fixed(ls, nvars++, VARNAME_FOR_STATE); - var_new_fixed(ls, nvars++, VARNAME_FOR_CTL); - /* Visible variables returned from iterator. */ - var_new(ls, nvars++, indexname); - while (lex_opt(ls, ',')) - var_new(ls, nvars++, lex_str(ls)); - lex_check(ls, TK_in); - line = ls->linenumber; - assign_adjust(ls, 3, expr_list(ls, &e), &e); - /* The iterator needs another 3 [4] slots (func [pc] | state ctl). */ - bcreg_bump(fs, 3+LJ_FR2); - isnext = (nvars <= 5 && predict_next(ls, fs, exprpc)); - var_add(ls, 3); /* Hidden control variables. */ - lex_check(ls, TK_do); - loop = bcemit_AJ(fs, isnext ? BC_ISNEXT : BC_JMP, base, NO_JMP); - fscope_begin(fs, &bl, 0); /* Scope for visible variables. */ - var_add(ls, nvars-3); - bcreg_reserve(fs, nvars-3); - parse_block(ls); - fscope_end(fs); - /* Perform loop inversion. Loop control instructions are at the end. */ - jmp_patchins(fs, loop, fs->pc); - bcemit_ABC(fs, isnext ? BC_ITERN : BC_ITERC, base, nvars-3+1, 2+1); - loopend = bcemit_AJ(fs, BC_ITERL, base, NO_JMP); - fs->bcbase[loopend-1].line = line; /* Fix line for control ins. */ - fs->bcbase[loopend].line = line; - jmp_patchins(fs, loopend, loop+1); -} - -/* Parse 'for' statement. */ -static void parse_for(LexState *ls, BCLine line) -{ - FuncState *fs = ls->fs; - GCstr *varname; - FuncScope bl; - fscope_begin(fs, &bl, FSCOPE_LOOP); - lj_lex_next(ls); /* Skip 'for'. */ - varname = lex_str(ls); /* Get first variable name. */ - if (ls->tok == '=') - parse_for_num(ls, varname, line); - else if (ls->tok == ',' || ls->tok == TK_in) - parse_for_iter(ls, varname); - else - err_syntax(ls, LJ_ERR_XFOR); - lex_match(ls, TK_end, TK_for, line); - fscope_end(fs); /* Resolve break list. */ -} - -/* Parse condition and 'then' block. */ -static BCPos parse_then(LexState *ls) -{ - BCPos condexit; - lj_lex_next(ls); /* Skip 'if' or 'elseif'. */ - condexit = expr_cond(ls); - lex_check(ls, TK_then); - parse_block(ls); - return condexit; -} - -/* Parse 'if' statement. */ -static void parse_if(LexState *ls, BCLine line) -{ - FuncState *fs = ls->fs; - BCPos flist; - BCPos escapelist = NO_JMP; - flist = parse_then(ls); - while (ls->tok == TK_elseif) { /* Parse multiple 'elseif' blocks. */ - jmp_append(fs, &escapelist, bcemit_jmp(fs)); - jmp_tohere(fs, flist); - flist = parse_then(ls); - } - if (ls->tok == TK_else) { /* Parse optional 'else' block. */ - jmp_append(fs, &escapelist, bcemit_jmp(fs)); - jmp_tohere(fs, flist); - lj_lex_next(ls); /* Skip 'else'. */ - parse_block(ls); - } else { - jmp_append(fs, &escapelist, flist); - } - jmp_tohere(fs, escapelist); - lex_match(ls, TK_end, TK_if, line); -} - -/* -- Parse statements ---------------------------------------------------- */ - -/* Parse a statement. Returns 1 if it must be the last one in a chunk. */ -static int parse_stmt(LexState *ls) -{ - BCLine line = ls->linenumber; - switch (ls->tok) { - case TK_if: - parse_if(ls, line); - break; - case TK_while: - parse_while(ls, line); - break; - case TK_do: - lj_lex_next(ls); - parse_block(ls); - lex_match(ls, TK_end, TK_do, line); - break; - case TK_for: - parse_for(ls, line); - break; - case TK_repeat: - parse_repeat(ls, line); - break; - case TK_function: - parse_func(ls, line); - break; - case TK_local: - lj_lex_next(ls); - parse_local(ls); - break; - case TK_return: - parse_return(ls); - return 1; /* Must be last. */ - case TK_break: - lj_lex_next(ls); - parse_break(ls); - return !LJ_52; /* Must be last in Lua 5.1. */ -#if LJ_52 - case ';': - lj_lex_next(ls); - break; -#endif - case TK_label: - parse_label(ls); - break; - case TK_goto: - if (LJ_52 || lj_lex_lookahead(ls) == TK_name) { - lj_lex_next(ls); - parse_goto(ls); - break; - } /* else: fallthrough */ - default: - parse_call_assign(ls); - break; - } - return 0; -} - -/* A chunk is a list of statements optionally separated by semicolons. */ -static void parse_chunk(LexState *ls) -{ - int islast = 0; - synlevel_begin(ls); - while (!islast && !parse_isend(ls->tok)) { - islast = parse_stmt(ls); - lex_opt(ls, ';'); - lua_assert(ls->fs->framesize >= ls->fs->freereg && - ls->fs->freereg >= ls->fs->nactvar); - ls->fs->freereg = ls->fs->nactvar; /* Free registers after each stmt. */ - } - synlevel_end(ls); -} - -/* Entry point of bytecode parser. */ -GCproto *lj_parse(LexState *ls) -{ - FuncState fs; - FuncScope bl; - GCproto *pt; - lua_State *L = ls->L; -#ifdef LUAJIT_DISABLE_DEBUGINFO - ls->chunkname = lj_str_newlit(L, "="); -#else - ls->chunkname = lj_str_newz(L, ls->chunkarg); -#endif - setstrV(L, L->top, ls->chunkname); /* Anchor chunkname string. */ - incr_top(L); - ls->level = 0; - fs_init(ls, &fs); - fs.linedefined = 0; - fs.numparams = 0; - fs.bcbase = NULL; - fs.bclim = 0; - fs.flags |= PROTO_VARARG; /* Main chunk is always a vararg func. */ - fscope_begin(&fs, &bl, 0); - bcemit_AD(&fs, BC_FUNCV, 0, 0); /* Placeholder. */ - lj_lex_next(ls); /* Read-ahead first token. */ - parse_chunk(ls); - if (ls->tok != TK_eof) - err_token(ls, TK_eof); - pt = fs_finish(ls, ls->linenumber); - L->top--; /* Drop chunkname. */ - lua_assert(fs.prev == NULL); - lua_assert(ls->fs == NULL); - lua_assert(pt->sizeuv == 0); - return pt; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_parse.h b/src/3rd party/luajit-2.0-BAK/src/lj_parse.h deleted file mode 100644 index dc4fd405d18..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_parse.h +++ /dev/null @@ -1,18 +0,0 @@ -/* -** Lua parser (source code -> bytecode). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_PARSE_H -#define _LJ_PARSE_H - -#include "lj_obj.h" -#include "lj_lex.h" - -LJ_FUNC GCproto *lj_parse(LexState *ls); -LJ_FUNC GCstr *lj_parse_keepstr(LexState *ls, const char *str, size_t l); -#if LJ_HASFFI -LJ_FUNC void lj_parse_keepcdata(LexState *ls, TValue *tv, GCcdata *cd); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_profile.c b/src/3rd party/luajit-2.0-BAK/src/lj_profile.c deleted file mode 100644 index 01367014122..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_profile.c +++ /dev/null @@ -1,368 +0,0 @@ -/* -** Low-overhead profiling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_profile_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASPROFILE - -#include "lj_buf.h" -#include "lj_frame.h" -#include "lj_debug.h" -#include "lj_dispatch.h" -#if LJ_HASJIT -#include "lj_jit.h" -#include "lj_trace.h" -#endif -#include "lj_profile.h" - -#include "luajit.h" - -#if LJ_PROFILE_SIGPROF - -#include -#include -#define profile_lock(ps) UNUSED(ps) -#define profile_unlock(ps) UNUSED(ps) - -#elif LJ_PROFILE_PTHREAD - -#include -#include -#if LJ_TARGET_PS3 -#include -#endif -#define profile_lock(ps) pthread_mutex_lock(&ps->lock) -#define profile_unlock(ps) pthread_mutex_unlock(&ps->lock) - -#elif LJ_PROFILE_WTHREAD - -#define WIN32_LEAN_AND_MEAN -#if LJ_TARGET_XBOX360 -#include -#include -#else -#include -#endif -typedef unsigned int (WINAPI *WMM_TPFUNC)(unsigned int); -#define profile_lock(ps) EnterCriticalSection(&ps->lock) -#define profile_unlock(ps) LeaveCriticalSection(&ps->lock) - -#endif - -/* Profiler state. */ -typedef struct ProfileState { - global_State *g; /* VM state that started the profiler. */ - luaJIT_profile_callback cb; /* Profiler callback. */ - void *data; /* Profiler callback data. */ - SBuf sb; /* String buffer for stack dumps. */ - int interval; /* Sample interval in milliseconds. */ - int samples; /* Number of samples for next callback. */ - int vmstate; /* VM state when profile timer triggered. */ -#if LJ_PROFILE_SIGPROF - struct sigaction oldsa; /* Previous SIGPROF state. */ -#elif LJ_PROFILE_PTHREAD - pthread_mutex_t lock; /* g->hookmask update lock. */ - pthread_t thread; /* Timer thread. */ - int abort; /* Abort timer thread. */ -#elif LJ_PROFILE_WTHREAD -#if LJ_TARGET_WINDOWS - HINSTANCE wmm; /* WinMM library handle. */ - WMM_TPFUNC wmm_tbp; /* WinMM timeBeginPeriod function. */ - WMM_TPFUNC wmm_tep; /* WinMM timeEndPeriod function. */ -#endif - CRITICAL_SECTION lock; /* g->hookmask update lock. */ - HANDLE thread; /* Timer thread. */ - int abort; /* Abort timer thread. */ -#endif -} ProfileState; - -/* Sadly, we have to use a static profiler state. -** -** The SIGPROF variant needs a static pointer to the global state, anyway. -** And it would be hard to extend for multiple threads. You can still use -** multiple VMs in multiple threads, but only profile one at a time. -*/ -static ProfileState profile_state; - -/* Default sample interval in milliseconds. */ -#define LJ_PROFILE_INTERVAL_DEFAULT 10 - -/* -- Profiler/hook interaction ------------------------------------------- */ - -#if !LJ_PROFILE_SIGPROF -void LJ_FASTCALL lj_profile_hook_enter(global_State *g) -{ - ProfileState *ps = &profile_state; - if (ps->g) { - profile_lock(ps); - hook_enter(g); - profile_unlock(ps); - } else { - hook_enter(g); - } -} - -void LJ_FASTCALL lj_profile_hook_leave(global_State *g) -{ - ProfileState *ps = &profile_state; - if (ps->g) { - profile_lock(ps); - hook_leave(g); - profile_unlock(ps); - } else { - hook_leave(g); - } -} -#endif - -/* -- Profile callbacks --------------------------------------------------- */ - -/* Callback from profile hook (HOOK_PROFILE already cleared). */ -void LJ_FASTCALL lj_profile_interpreter(lua_State *L) -{ - ProfileState *ps = &profile_state; - global_State *g = G(L); - uint8_t mask; - profile_lock(ps); - mask = (g->hookmask & ~HOOK_PROFILE); - if (!(mask & HOOK_VMEVENT)) { - int samples = ps->samples; - ps->samples = 0; - g->hookmask = HOOK_VMEVENT; - lj_dispatch_update(g); - profile_unlock(ps); - ps->cb(ps->data, L, samples, ps->vmstate); /* Invoke user callback. */ - profile_lock(ps); - mask |= (g->hookmask & HOOK_PROFILE); - } - g->hookmask = mask; - lj_dispatch_update(g); - profile_unlock(ps); -} - -/* Trigger profile hook. Asynchronous call from OS-specific profile timer. */ -static void profile_trigger(ProfileState *ps) -{ - global_State *g = ps->g; - uint8_t mask; - profile_lock(ps); - ps->samples++; /* Always increment number of samples. */ - mask = g->hookmask; - if (!(mask & (HOOK_PROFILE|HOOK_VMEVENT))) { /* Set profile hook. */ - int st = g->vmstate; - ps->vmstate = st >= 0 ? 'N' : - st == ~LJ_VMST_INTERP ? 'I' : - st == ~LJ_VMST_C ? 'C' : - st == ~LJ_VMST_GC ? 'G' : 'J'; - g->hookmask = (mask | HOOK_PROFILE); - lj_dispatch_update(g); - } - profile_unlock(ps); -} - -/* -- OS-specific profile timer handling ---------------------------------- */ - -#if LJ_PROFILE_SIGPROF - -/* SIGPROF handler. */ -static void profile_signal(int sig) -{ - UNUSED(sig); - profile_trigger(&profile_state); -} - -/* Start profiling timer. */ -static void profile_timer_start(ProfileState *ps) -{ - int interval = ps->interval; - struct itimerval tm; - struct sigaction sa; - tm.it_value.tv_sec = tm.it_interval.tv_sec = interval / 1000; - tm.it_value.tv_usec = tm.it_interval.tv_usec = (interval % 1000) * 1000; - setitimer(ITIMER_PROF, &tm, NULL); - sa.sa_flags = SA_RESTART; - sa.sa_handler = profile_signal; - sigemptyset(&sa.sa_mask); - sigaction(SIGPROF, &sa, &ps->oldsa); -} - -/* Stop profiling timer. */ -static void profile_timer_stop(ProfileState *ps) -{ - struct itimerval tm; - tm.it_value.tv_sec = tm.it_interval.tv_sec = 0; - tm.it_value.tv_usec = tm.it_interval.tv_usec = 0; - setitimer(ITIMER_PROF, &tm, NULL); - sigaction(SIGPROF, &ps->oldsa, NULL); -} - -#elif LJ_PROFILE_PTHREAD - -/* POSIX timer thread. */ -static void *profile_thread(ProfileState *ps) -{ - int interval = ps->interval; -#if !LJ_TARGET_PS3 - struct timespec ts; - ts.tv_sec = interval / 1000; - ts.tv_nsec = (interval % 1000) * 1000000; -#endif - while (1) { -#if LJ_TARGET_PS3 - sys_timer_usleep(interval * 1000); -#else - nanosleep(&ts, NULL); -#endif - if (ps->abort) break; - profile_trigger(ps); - } - return NULL; -} - -/* Start profiling timer thread. */ -static void profile_timer_start(ProfileState *ps) -{ - pthread_mutex_init(&ps->lock, 0); - ps->abort = 0; - pthread_create(&ps->thread, NULL, (void *(*)(void *))profile_thread, ps); -} - -/* Stop profiling timer thread. */ -static void profile_timer_stop(ProfileState *ps) -{ - ps->abort = 1; - pthread_join(ps->thread, NULL); - pthread_mutex_destroy(&ps->lock); -} - -#elif LJ_PROFILE_WTHREAD - -/* Windows timer thread. */ -static DWORD WINAPI profile_thread(void *psx) -{ - ProfileState *ps = (ProfileState *)psx; - int interval = ps->interval; -#if LJ_TARGET_WINDOWS - ps->wmm_tbp(interval); -#endif - while (1) { - Sleep(interval); - if (ps->abort) break; - profile_trigger(ps); - } -#if LJ_TARGET_WINDOWS - ps->wmm_tep(interval); -#endif - return 0; -} - -/* Start profiling timer thread. */ -static void profile_timer_start(ProfileState *ps) -{ -#if LJ_TARGET_WINDOWS - if (!ps->wmm) { /* Load WinMM library on-demand. */ - ps->wmm = LoadLibraryA("winmm.dll"); - if (ps->wmm) { - ps->wmm_tbp = (WMM_TPFUNC)GetProcAddress(ps->wmm, "timeBeginPeriod"); - ps->wmm_tep = (WMM_TPFUNC)GetProcAddress(ps->wmm, "timeEndPeriod"); - if (!ps->wmm_tbp || !ps->wmm_tep) { - ps->wmm = NULL; - return; - } - } - } -#endif - InitializeCriticalSection(&ps->lock); - ps->abort = 0; - ps->thread = CreateThread(NULL, 0, profile_thread, ps, 0, NULL); -} - -/* Stop profiling timer thread. */ -static void profile_timer_stop(ProfileState *ps) -{ - ps->abort = 1; - WaitForSingleObject(ps->thread, INFINITE); - DeleteCriticalSection(&ps->lock); -} - -#endif - -/* -- Public profiling API ------------------------------------------------ */ - -/* Start profiling. */ -LUA_API void luaJIT_profile_start(lua_State *L, const char *mode, - luaJIT_profile_callback cb, void *data) -{ - ProfileState *ps = &profile_state; - int interval = LJ_PROFILE_INTERVAL_DEFAULT; - while (*mode) { - int m = *mode++; - switch (m) { - case 'i': - interval = 0; - while (*mode >= '0' && *mode <= '9') - interval = interval * 10 + (*mode++ - '0'); - if (interval <= 0) interval = 1; - break; -#if LJ_HASJIT - case 'l': case 'f': - L2J(L)->prof_mode = m; - lj_trace_flushall(L); - break; -#endif - default: /* Ignore unknown mode chars. */ - break; - } - } - if (ps->g) { - luaJIT_profile_stop(L); - if (ps->g) return; /* Profiler in use by another VM. */ - } - ps->g = G(L); - ps->interval = interval; - ps->cb = cb; - ps->data = data; - ps->samples = 0; - lj_buf_init(L, &ps->sb); - profile_timer_start(ps); -} - -/* Stop profiling. */ -LUA_API void luaJIT_profile_stop(lua_State *L) -{ - ProfileState *ps = &profile_state; - global_State *g = ps->g; - if (G(L) == g) { /* Only stop profiler if started by this VM. */ - profile_timer_stop(ps); - g->hookmask &= ~HOOK_PROFILE; - lj_dispatch_update(g); -#if LJ_HASJIT - G2J(g)->prof_mode = 0; - lj_trace_flushall(L); -#endif - lj_buf_free(g, &ps->sb); - setmref(ps->sb.b, NULL); - setmref(ps->sb.e, NULL); - ps->g = NULL; - } -} - -/* Return a compact stack dump. */ -LUA_API const char *luaJIT_profile_dumpstack(lua_State *L, const char *fmt, - int depth, size_t *len) -{ - ProfileState *ps = &profile_state; - SBuf *sb = &ps->sb; - setsbufL(sb, L); - lj_buf_reset(sb); - lj_debug_dumpstack(L, sb, fmt, depth); - *len = (size_t)sbuflen(sb); - return sbufB(sb); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_profile.h b/src/3rd party/luajit-2.0-BAK/src/lj_profile.h deleted file mode 100644 index 26cb9db380c..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_profile.h +++ /dev/null @@ -1,21 +0,0 @@ -/* -** Low-overhead profiling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_PROFILE_H -#define _LJ_PROFILE_H - -#include "lj_obj.h" - -#if LJ_HASPROFILE - -LJ_FUNC void LJ_FASTCALL lj_profile_interpreter(lua_State *L); -#if !LJ_PROFILE_SIGPROF -LJ_FUNC void LJ_FASTCALL lj_profile_hook_enter(global_State *g); -LJ_FUNC void LJ_FASTCALL lj_profile_hook_leave(global_State *g); -#endif - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_record.c b/src/3rd party/luajit-2.0-BAK/src/lj_record.c deleted file mode 100644 index 04a4c73c8f6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_record.c +++ /dev/null @@ -1,2454 +0,0 @@ -/* -** Trace recorder (bytecode -> SSA IR). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_record_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_err.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_meta.h" -#include "lj_frame.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#include "lj_bc.h" -#include "lj_ff.h" -#if LJ_HASPROFILE -#include "lj_debug.h" -#endif -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_ircall.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_record.h" -#include "lj_ffrecord.h" -#include "lj_snap.h" -#include "lj_dispatch.h" -#include "lj_vm.h" - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* Emit raw IR without passing through optimizations. */ -#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) - -/* -- Sanity checks ------------------------------------------------------- */ - -#ifdef LUA_USE_ASSERT -/* Sanity check the whole IR -- sloooow. */ -static void rec_check_ir(jit_State *J) -{ - IRRef i, nins = J->cur.nins, nk = J->cur.nk; - lua_assert(nk <= REF_BIAS && nins >= REF_BIAS && nins < 65536); - for (i = nins-1; i >= nk; i--) { - IRIns *ir = IR(i); - uint32_t mode = lj_ir_mode[ir->o]; - IRRef op1 = ir->op1; - IRRef op2 = ir->op2; - switch (irm_op1(mode)) { - case IRMnone: lua_assert(op1 == 0); break; - case IRMref: lua_assert(op1 >= nk); - lua_assert(i >= REF_BIAS ? op1 < i : op1 > i); break; - case IRMlit: break; - case IRMcst: lua_assert(i < REF_BIAS); continue; - } - switch (irm_op2(mode)) { - case IRMnone: lua_assert(op2 == 0); break; - case IRMref: lua_assert(op2 >= nk); - lua_assert(i >= REF_BIAS ? op2 < i : op2 > i); break; - case IRMlit: break; - case IRMcst: lua_assert(0); break; - } - if (ir->prev) { - lua_assert(ir->prev >= nk); - lua_assert(i >= REF_BIAS ? ir->prev < i : ir->prev > i); - lua_assert(ir->o == IR_NOP || IR(ir->prev)->o == ir->o); - } - } -} - -/* Compare stack slots and frames of the recorder and the VM. */ -static void rec_check_slots(jit_State *J) -{ - BCReg s, nslots = J->baseslot + J->maxslot; - int32_t depth = 0; - cTValue *base = J->L->base - J->baseslot; - lua_assert(J->baseslot >= 1 && J->baseslot < LJ_MAX_JSLOTS); - lua_assert(J->baseslot == 1 || (J->slot[J->baseslot-1] & TREF_FRAME)); - lua_assert(nslots < LJ_MAX_JSLOTS); - for (s = 0; s < nslots; s++) { - TRef tr = J->slot[s]; - if (tr) { - cTValue *tv = &base[s]; - IRRef ref = tref_ref(tr); - IRIns *ir; - lua_assert(ref >= J->cur.nk && ref < J->cur.nins); - ir = IR(ref); - lua_assert(irt_t(ir->t) == tref_t(tr)); - if (s == 0) { - lua_assert(tref_isfunc(tr)); - } else if ((tr & TREF_FRAME)) { - GCfunc *fn = gco2func(frame_gc(tv)); - BCReg delta = (BCReg)(tv - frame_prev(tv)); - lua_assert(tref_isfunc(tr)); - if (tref_isk(tr)) lua_assert(fn == ir_kfunc(ir)); - lua_assert(s > delta ? (J->slot[s-delta] & TREF_FRAME) : (s == delta)); - depth++; - } else if ((tr & TREF_CONT)) { - lua_assert(ir_kptr(ir) == gcrefp(tv->gcr, void)); - lua_assert((J->slot[s+1] & TREF_FRAME)); - depth++; - } else { - if (tvisnumber(tv)) - lua_assert(tref_isnumber(tr)); /* Could be IRT_INT etc., too. */ - else - lua_assert(itype2irt(tv) == tref_type(tr)); - if (tref_isk(tr)) { /* Compare constants. */ - TValue tvk; - lj_ir_kvalue(J->L, &tvk, ir); - if (!(tvisnum(&tvk) && tvisnan(&tvk))) - lua_assert(lj_obj_equal(tv, &tvk)); - else - lua_assert(tvisnum(tv) && tvisnan(tv)); - } - } - } - } - lua_assert(J->framedepth == depth); -} -#endif - -/* -- Type handling and specialization ------------------------------------ */ - -/* Note: these functions return tagged references (TRef). */ - -/* Specialize a slot to a specific type. Note: slot can be negative! */ -static TRef sloadt(jit_State *J, int32_t slot, IRType t, int mode) -{ - /* Caller may set IRT_GUARD in t. */ - TRef ref = emitir_raw(IRT(IR_SLOAD, t), (int32_t)J->baseslot+slot, mode); - J->base[slot] = ref; - return ref; -} - -/* Specialize a slot to the runtime type. Note: slot can be negative! */ -static TRef sload(jit_State *J, int32_t slot) -{ - IRType t = itype2irt(&J->L->base[slot]); - TRef ref = emitir_raw(IRTG(IR_SLOAD, t), (int32_t)J->baseslot+slot, - IRSLOAD_TYPECHECK); - if (irtype_ispri(t)) ref = TREF_PRI(t); /* Canonicalize primitive refs. */ - J->base[slot] = ref; - return ref; -} - -/* Get TRef from slot. Load slot and specialize if not done already. */ -#define getslot(J, s) (J->base[(s)] ? J->base[(s)] : sload(J, (int32_t)(s))) - -/* Get TRef for current function. */ -static TRef getcurrf(jit_State *J) -{ - if (J->base[-1]) - return J->base[-1]; - lua_assert(J->baseslot == 1); - return sloadt(J, -1, IRT_FUNC, IRSLOAD_READONLY); -} - -/* Compare for raw object equality. -** Returns 0 if the objects are the same. -** Returns 1 if they are different, but the same type. -** Returns 2 for two different types. -** Comparisons between primitives always return 1 -- no caller cares about it. -*/ -int lj_record_objcmp(jit_State *J, TRef a, TRef b, cTValue *av, cTValue *bv) -{ - int diff = !lj_obj_equal(av, bv); - if (!tref_isk2(a, b)) { /* Shortcut, also handles primitives. */ - IRType ta = tref_isinteger(a) ? IRT_INT : tref_type(a); - IRType tb = tref_isinteger(b) ? IRT_INT : tref_type(b); - if (ta != tb) { - /* Widen mixed number/int comparisons to number/number comparison. */ - if (ta == IRT_INT && tb == IRT_NUM) { - a = emitir(IRTN(IR_CONV), a, IRCONV_NUM_INT); - ta = IRT_NUM; - } else if (ta == IRT_NUM && tb == IRT_INT) { - b = emitir(IRTN(IR_CONV), b, IRCONV_NUM_INT); - } else { - return 2; /* Two different types are never equal. */ - } - } - emitir(IRTG(diff ? IR_NE : IR_EQ, ta), a, b); - } - return diff; -} - -/* Constify a value. Returns 0 for non-representable object types. */ -TRef lj_record_constify(jit_State *J, cTValue *o) -{ - if (tvisgcv(o)) - return lj_ir_kgc(J, gcV(o), itype2irt(o)); - else if (tvisint(o)) - return lj_ir_kint(J, intV(o)); - else if (tvisnum(o)) - return lj_ir_knumint(J, numV(o)); - else if (tvisbool(o)) - return TREF_PRI(itype2irt(o)); - else - return 0; /* Can't represent lightuserdata (pointless). */ -} - -/* -- Record loop ops ----------------------------------------------------- */ - -/* Loop event. */ -typedef enum { - LOOPEV_LEAVE, /* Loop is left or not entered. */ - LOOPEV_ENTERLO, /* Loop is entered with a low iteration count left. */ - LOOPEV_ENTER /* Loop is entered. */ -} LoopEvent; - -/* Canonicalize slots: convert integers to numbers. */ -static void canonicalize_slots(jit_State *J) -{ - BCReg s; - if (LJ_DUALNUM) return; - for (s = J->baseslot+J->maxslot-1; s >= 1; s--) { - TRef tr = J->slot[s]; - if (tref_isinteger(tr)) { - IRIns *ir = IR(tref_ref(tr)); - if (!(ir->o == IR_SLOAD && (ir->op2 & IRSLOAD_READONLY))) - J->slot[s] = emitir(IRTN(IR_CONV), tr, IRCONV_NUM_INT); - } - } -} - -/* Stop recording. */ -void lj_record_stop(jit_State *J, TraceLink linktype, TraceNo lnk) -{ - lj_trace_end(J); - J->cur.linktype = (uint8_t)linktype; - J->cur.link = (uint16_t)lnk; - /* Looping back at the same stack level? */ - if (lnk == J->cur.traceno && J->framedepth + J->retdepth == 0) { - if ((J->flags & JIT_F_OPT_LOOP)) /* Shall we try to create a loop? */ - goto nocanon; /* Do not canonicalize or we lose the narrowing. */ - if (J->cur.root) /* Otherwise ensure we always link to the root trace. */ - J->cur.link = J->cur.root; - } - canonicalize_slots(J); -nocanon: - /* Note: all loop ops must set J->pc to the following instruction! */ - lj_snap_add(J); /* Add loop snapshot. */ - J->needsnap = 0; - J->mergesnap = 1; /* In case recording continues. */ -} - -/* Search bytecode backwards for a int/num constant slot initializer. */ -static TRef find_kinit(jit_State *J, const BCIns *endpc, BCReg slot, IRType t) -{ - /* This algorithm is rather simplistic and assumes quite a bit about - ** how the bytecode is generated. It works fine for FORI initializers, - ** but it won't necessarily work in other cases (e.g. iterator arguments). - ** It doesn't do anything fancy, either (like backpropagating MOVs). - */ - const BCIns *pc, *startpc = proto_bc(J->pt); - for (pc = endpc-1; pc > startpc; pc--) { - BCIns ins = *pc; - BCOp op = bc_op(ins); - /* First try to find the last instruction that stores to this slot. */ - if (bcmode_a(op) == BCMbase && bc_a(ins) <= slot) { - return 0; /* Multiple results, e.g. from a CALL or KNIL. */ - } else if (bcmode_a(op) == BCMdst && bc_a(ins) == slot) { - if (op == BC_KSHORT || op == BC_KNUM) { /* Found const. initializer. */ - /* Now try to verify there's no forward jump across it. */ - const BCIns *kpc = pc; - for (; pc > startpc; pc--) - if (bc_op(*pc) == BC_JMP) { - const BCIns *target = pc+bc_j(*pc)+1; - if (target > kpc && target <= endpc) - return 0; /* Conditional assignment. */ - } - if (op == BC_KSHORT) { - int32_t k = (int32_t)(int16_t)bc_d(ins); - return t == IRT_INT ? lj_ir_kint(J, k) : lj_ir_knum(J, (lua_Number)k); - } else { - cTValue *tv = proto_knumtv(J->pt, bc_d(ins)); - if (t == IRT_INT) { - int32_t k = numberVint(tv); - if (tvisint(tv) || numV(tv) == (lua_Number)k) /* -0 is ok here. */ - return lj_ir_kint(J, k); - return 0; /* Type mismatch. */ - } else { - return lj_ir_knum(J, numberVnum(tv)); - } - } - } - return 0; /* Non-constant initializer. */ - } - } - return 0; /* No assignment to this slot found? */ -} - -/* Load and optionally convert a FORI argument from a slot. */ -static TRef fori_load(jit_State *J, BCReg slot, IRType t, int mode) -{ - int conv = (tvisint(&J->L->base[slot]) != (t==IRT_INT)) ? IRSLOAD_CONVERT : 0; - return sloadt(J, (int32_t)slot, - t + (((mode & IRSLOAD_TYPECHECK) || - (conv && t == IRT_INT && !(mode >> 16))) ? - IRT_GUARD : 0), - mode + conv); -} - -/* Peek before FORI to find a const initializer. Otherwise load from slot. */ -static TRef fori_arg(jit_State *J, const BCIns *fori, BCReg slot, - IRType t, int mode) -{ - TRef tr = J->base[slot]; - if (!tr) { - tr = find_kinit(J, fori, slot, t); - if (!tr) - tr = fori_load(J, slot, t, mode); - } - return tr; -} - -/* Return the direction of the FOR loop iterator. -** It's important to exactly reproduce the semantics of the interpreter. -*/ -static int rec_for_direction(cTValue *o) -{ - return (tvisint(o) ? intV(o) : (int32_t)o->u32.hi) >= 0; -} - -/* Simulate the runtime behavior of the FOR loop iterator. */ -static LoopEvent rec_for_iter(IROp *op, cTValue *o, int isforl) -{ - lua_Number stopv = numberVnum(&o[FORL_STOP]); - lua_Number idxv = numberVnum(&o[FORL_IDX]); - lua_Number stepv = numberVnum(&o[FORL_STEP]); - if (isforl) - idxv += stepv; - if (rec_for_direction(&o[FORL_STEP])) { - if (idxv <= stopv) { - *op = IR_LE; - return idxv + 2*stepv > stopv ? LOOPEV_ENTERLO : LOOPEV_ENTER; - } - *op = IR_GT; return LOOPEV_LEAVE; - } else { - if (stopv <= idxv) { - *op = IR_GE; - return idxv + 2*stepv < stopv ? LOOPEV_ENTERLO : LOOPEV_ENTER; - } - *op = IR_LT; return LOOPEV_LEAVE; - } -} - -/* Record checks for FOR loop overflow and step direction. */ -static void rec_for_check(jit_State *J, IRType t, int dir, - TRef stop, TRef step, int init) -{ - if (!tref_isk(step)) { - /* Non-constant step: need a guard for the direction. */ - TRef zero = (t == IRT_INT) ? lj_ir_kint(J, 0) : lj_ir_knum_zero(J); - emitir(IRTG(dir ? IR_GE : IR_LT, t), step, zero); - /* Add hoistable overflow checks for a narrowed FORL index. */ - if (init && t == IRT_INT) { - if (tref_isk(stop)) { - /* Constant stop: optimize check away or to a range check for step. */ - int32_t k = IR(tref_ref(stop))->i; - if (dir) { - if (k > 0) - emitir(IRTGI(IR_LE), step, lj_ir_kint(J, (int32_t)0x7fffffff-k)); - } else { - if (k < 0) - emitir(IRTGI(IR_GE), step, lj_ir_kint(J, (int32_t)0x80000000-k)); - } - } else { - /* Stop+step variable: need full overflow check. */ - TRef tr = emitir(IRTGI(IR_ADDOV), step, stop); - emitir(IRTI(IR_USE), tr, 0); /* ADDOV is weak. Avoid dead result. */ - } - } - } else if (init && t == IRT_INT && !tref_isk(stop)) { - /* Constant step: optimize overflow check to a range check for stop. */ - int32_t k = IR(tref_ref(step))->i; - k = (int32_t)(dir ? 0x7fffffff : 0x80000000) - k; - emitir(IRTGI(dir ? IR_LE : IR_GE), stop, lj_ir_kint(J, k)); - } -} - -/* Record a FORL instruction. */ -static void rec_for_loop(jit_State *J, const BCIns *fori, ScEvEntry *scev, - int init) -{ - BCReg ra = bc_a(*fori); - cTValue *tv = &J->L->base[ra]; - TRef idx = J->base[ra+FORL_IDX]; - IRType t = idx ? tref_type(idx) : - (init || LJ_DUALNUM) ? lj_opt_narrow_forl(J, tv) : IRT_NUM; - int mode = IRSLOAD_INHERIT + - ((!LJ_DUALNUM || tvisint(tv) == (t == IRT_INT)) ? IRSLOAD_READONLY : 0); - TRef stop = fori_arg(J, fori, ra+FORL_STOP, t, mode); - TRef step = fori_arg(J, fori, ra+FORL_STEP, t, mode); - int tc, dir = rec_for_direction(&tv[FORL_STEP]); - lua_assert(bc_op(*fori) == BC_FORI || bc_op(*fori) == BC_JFORI); - scev->t.irt = t; - scev->dir = dir; - scev->stop = tref_ref(stop); - scev->step = tref_ref(step); - rec_for_check(J, t, dir, stop, step, init); - scev->start = tref_ref(find_kinit(J, fori, ra+FORL_IDX, IRT_INT)); - tc = (LJ_DUALNUM && - !(scev->start && irref_isk(scev->stop) && irref_isk(scev->step) && - tvisint(&tv[FORL_IDX]) == (t == IRT_INT))) ? - IRSLOAD_TYPECHECK : 0; - if (tc) { - J->base[ra+FORL_STOP] = stop; - J->base[ra+FORL_STEP] = step; - } - if (!idx) - idx = fori_load(J, ra+FORL_IDX, t, - IRSLOAD_INHERIT + tc + (J->scev.start << 16)); - if (!init) - J->base[ra+FORL_IDX] = idx = emitir(IRT(IR_ADD, t), idx, step); - J->base[ra+FORL_EXT] = idx; - scev->idx = tref_ref(idx); - setmref(scev->pc, fori); - J->maxslot = ra+FORL_EXT+1; -} - -/* Record FORL/JFORL or FORI/JFORI. */ -static LoopEvent rec_for(jit_State *J, const BCIns *fori, int isforl) -{ - BCReg ra = bc_a(*fori); - TValue *tv = &J->L->base[ra]; - TRef *tr = &J->base[ra]; - IROp op; - LoopEvent ev; - TRef stop; - IRType t; - if (isforl) { /* Handle FORL/JFORL opcodes. */ - TRef idx = tr[FORL_IDX]; - if (mref(J->scev.pc, const BCIns) == fori && tref_ref(idx) == J->scev.idx) { - t = J->scev.t.irt; - stop = J->scev.stop; - idx = emitir(IRT(IR_ADD, t), idx, J->scev.step); - tr[FORL_EXT] = tr[FORL_IDX] = idx; - } else { - ScEvEntry scev; - rec_for_loop(J, fori, &scev, 0); - t = scev.t.irt; - stop = scev.stop; - } - } else { /* Handle FORI/JFORI opcodes. */ - BCReg i; - lj_meta_for(J->L, tv); - t = (LJ_DUALNUM || tref_isint(tr[FORL_IDX])) ? lj_opt_narrow_forl(J, tv) : - IRT_NUM; - for (i = FORL_IDX; i <= FORL_STEP; i++) { - if (!tr[i]) sload(J, ra+i); - lua_assert(tref_isnumber_str(tr[i])); - if (tref_isstr(tr[i])) - tr[i] = emitir(IRTG(IR_STRTO, IRT_NUM), tr[i], 0); - if (t == IRT_INT) { - if (!tref_isinteger(tr[i])) - tr[i] = emitir(IRTGI(IR_CONV), tr[i], IRCONV_INT_NUM|IRCONV_CHECK); - } else { - if (!tref_isnum(tr[i])) - tr[i] = emitir(IRTN(IR_CONV), tr[i], IRCONV_NUM_INT); - } - } - tr[FORL_EXT] = tr[FORL_IDX]; - stop = tr[FORL_STOP]; - rec_for_check(J, t, rec_for_direction(&tv[FORL_STEP]), - stop, tr[FORL_STEP], 1); - } - - ev = rec_for_iter(&op, tv, isforl); - if (ev == LOOPEV_LEAVE) { - J->maxslot = ra+FORL_EXT+1; - J->pc = fori+1; - } else { - J->maxslot = ra; - J->pc = fori+bc_j(*fori)+1; - } - lj_snap_add(J); - - emitir(IRTG(op, t), tr[FORL_IDX], stop); - - if (ev == LOOPEV_LEAVE) { - J->maxslot = ra; - J->pc = fori+bc_j(*fori)+1; - } else { - J->maxslot = ra+FORL_EXT+1; - J->pc = fori+1; - } - J->needsnap = 1; - return ev; -} - -/* Record ITERL/JITERL. */ -static LoopEvent rec_iterl(jit_State *J, const BCIns iterins) -{ - BCReg ra = bc_a(iterins); - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - if (!tref_isnil(getslot(J, ra))) { /* Looping back? */ - J->base[ra-1] = J->base[ra]; /* Copy result of ITERC to control var. */ - J->maxslot = ra-1+bc_b(J->pc[-1]); - J->pc += bc_j(iterins)+1; - return LOOPEV_ENTER; - } else { - J->maxslot = ra-3; - J->pc++; - return LOOPEV_LEAVE; - } -} - -/* Record LOOP/JLOOP. Now, that was easy. */ -static LoopEvent rec_loop(jit_State *J, BCReg ra) -{ - if (ra < J->maxslot) J->maxslot = ra; - J->pc++; - return LOOPEV_ENTER; -} - -/* Check if a loop repeatedly failed to trace because it didn't loop back. */ -static int innerloopleft(jit_State *J, const BCIns *pc) -{ - ptrdiff_t i; - for (i = 0; i < PENALTY_SLOTS; i++) - if (mref(J->penalty[i].pc, const BCIns) == pc) { - if ((J->penalty[i].reason == LJ_TRERR_LLEAVE || - J->penalty[i].reason == LJ_TRERR_LINNER) && - J->penalty[i].val >= 2*PENALTY_MIN) - return 1; - break; - } - return 0; -} - -/* Handle the case when an interpreted loop op is hit. */ -static void rec_loop_interp(jit_State *J, const BCIns *pc, LoopEvent ev) -{ - if (J->parent == 0 && J->exitno == 0) { - if (pc == J->startpc && J->framedepth + J->retdepth == 0) { - /* Same loop? */ - if (ev == LOOPEV_LEAVE) /* Must loop back to form a root trace. */ - lj_trace_err(J, LJ_TRERR_LLEAVE); - lj_record_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Looping trace. */ - } else if (ev != LOOPEV_LEAVE) { /* Entering inner loop? */ - /* It's usually better to abort here and wait until the inner loop - ** is traced. But if the inner loop repeatedly didn't loop back, - ** this indicates a low trip count. In this case try unrolling - ** an inner loop even in a root trace. But it's better to be a bit - ** more conservative here and only do it for very short loops. - */ - if (bc_j(*pc) != -1 && !innerloopleft(J, pc)) - lj_trace_err(J, LJ_TRERR_LINNER); /* Root trace hit an inner loop. */ - if ((ev != LOOPEV_ENTERLO && - J->loopref && J->cur.nins - J->loopref > 24) || --J->loopunroll < 0) - lj_trace_err(J, LJ_TRERR_LUNROLL); /* Limit loop unrolling. */ - J->loopref = J->cur.nins; - } - } else if (ev != LOOPEV_LEAVE) { /* Side trace enters an inner loop. */ - J->loopref = J->cur.nins; - if (--J->loopunroll < 0) - lj_trace_err(J, LJ_TRERR_LUNROLL); /* Limit loop unrolling. */ - } /* Side trace continues across a loop that's left or not entered. */ -} - -/* Handle the case when an already compiled loop op is hit. */ -static void rec_loop_jit(jit_State *J, TraceNo lnk, LoopEvent ev) -{ - if (J->parent == 0 && J->exitno == 0) { /* Root trace hit an inner loop. */ - /* Better let the inner loop spawn a side trace back here. */ - lj_trace_err(J, LJ_TRERR_LINNER); - } else if (ev != LOOPEV_LEAVE) { /* Side trace enters a compiled loop. */ - J->instunroll = 0; /* Cannot continue across a compiled loop op. */ - if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) - lj_record_stop(J, LJ_TRLINK_LOOP, J->cur.traceno); /* Form extra loop. */ - else - lj_record_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the loop. */ - } /* Side trace continues across a loop that's left or not entered. */ -} - -/* -- Record profiler hook checks ----------------------------------------- */ - -#if LJ_HASPROFILE - -/* Need to insert profiler hook check? */ -static int rec_profile_need(jit_State *J, GCproto *pt, const BCIns *pc) -{ - GCproto *ppt; - lua_assert(J->prof_mode == 'f' || J->prof_mode == 'l'); - if (!pt) - return 0; - ppt = J->prev_pt; - J->prev_pt = pt; - if (pt != ppt && ppt) { - J->prev_line = -1; - return 1; - } - if (J->prof_mode == 'l') { - BCLine line = lj_debug_line(pt, proto_bcpos(pt, pc)); - BCLine pline = J->prev_line; - J->prev_line = line; - if (pline != line) - return 1; - } - return 0; -} - -static void rec_profile_ins(jit_State *J, const BCIns *pc) -{ - if (J->prof_mode && rec_profile_need(J, J->pt, pc)) { - emitir(IRTG(IR_PROF, IRT_NIL), 0, 0); - lj_snap_add(J); - } -} - -static void rec_profile_ret(jit_State *J) -{ - if (J->prof_mode == 'f') { - emitir(IRTG(IR_PROF, IRT_NIL), 0, 0); - J->prev_pt = NULL; - lj_snap_add(J); - } -} - -#endif - -/* -- Record calls and returns -------------------------------------------- */ - -/* Specialize to the runtime value of the called function or its prototype. */ -static TRef rec_call_specialize(jit_State *J, GCfunc *fn, TRef tr) -{ - TRef kfunc; - if (isluafunc(fn)) { - GCproto *pt = funcproto(fn); - /* Too many closures created? Probably not a monomorphic function. */ - if (pt->flags >= PROTO_CLC_POLY) { /* Specialize to prototype instead. */ - TRef trpt = emitir(IRT(IR_FLOAD, IRT_P32), tr, IRFL_FUNC_PC); - emitir(IRTG(IR_EQ, IRT_P32), trpt, lj_ir_kptr(J, proto_bc(pt))); - (void)lj_ir_kgc(J, obj2gco(pt), IRT_PROTO); /* Prevent GC of proto. */ - return tr; - } - } else { - /* Don't specialize to non-monomorphic builtins. */ - switch (fn->c.ffid) { - case FF_coroutine_wrap_aux: - case FF_string_gmatch_aux: - /* NYI: io_file_iter doesn't have an ffid, yet. */ - { /* Specialize to the ffid. */ - TRef trid = emitir(IRT(IR_FLOAD, IRT_U8), tr, IRFL_FUNC_FFID); - emitir(IRTG(IR_EQ, IRT_INT), trid, lj_ir_kint(J, fn->c.ffid)); - } - return tr; - default: - /* NYI: don't specialize to non-monomorphic C functions. */ - break; - } - } - /* Otherwise specialize to the function (closure) value itself. */ - kfunc = lj_ir_kfunc(J, fn); - emitir(IRTG(IR_EQ, IRT_FUNC), tr, kfunc); - return kfunc; -} - -/* Record call setup. */ -static void rec_call_setup(jit_State *J, BCReg func, ptrdiff_t nargs) -{ - RecordIndex ix; - TValue *functv = &J->L->base[func]; - TRef *fbase = &J->base[func]; - ptrdiff_t i; - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - for (i = 0; i <= nargs; i++) - (void)getslot(J, func+i); /* Ensure func and all args have a reference. */ - if (!tref_isfunc(fbase[0])) { /* Resolve __call metamethod. */ - ix.tab = fbase[0]; - copyTV(J->L, &ix.tabv, functv); - if (!lj_record_mm_lookup(J, &ix, MM_call) || !tref_isfunc(ix.mobj)) - lj_trace_err(J, LJ_TRERR_NOMM); - for (i = ++nargs; i > 0; i--) /* Shift arguments up. */ - fbase[i] = fbase[i-1]; - fbase[0] = ix.mobj; /* Replace function. */ - functv = &ix.mobjv; - } - fbase[0] = TREF_FRAME | rec_call_specialize(J, funcV(functv), fbase[0]); - J->maxslot = (BCReg)nargs; -} - -/* Record call. */ -void lj_record_call(jit_State *J, BCReg func, ptrdiff_t nargs) -{ - rec_call_setup(J, func, nargs); - /* Bump frame. */ - J->framedepth++; - J->base += func+1; - J->baseslot += func+1; -} - -/* Record tail call. */ -void lj_record_tailcall(jit_State *J, BCReg func, ptrdiff_t nargs) -{ - rec_call_setup(J, func, nargs); - if (frame_isvarg(J->L->base - 1)) { - BCReg cbase = (BCReg)frame_delta(J->L->base - 1); - if (--J->framedepth < 0) - lj_trace_err(J, LJ_TRERR_NYIRETL); - J->baseslot -= (BCReg)cbase; - J->base -= cbase; - func += cbase; - } - /* Move func + args down. */ - memmove(&J->base[-1], &J->base[func], sizeof(TRef)*(J->maxslot+1)); - /* Note: the new TREF_FRAME is now at J->base[-1] (even for slot #0). */ - /* Tailcalls can form a loop, so count towards the loop unroll limit. */ - if (++J->tailcalled > J->loopunroll) - lj_trace_err(J, LJ_TRERR_LUNROLL); -} - -/* Check unroll limits for down-recursion. */ -static int check_downrec_unroll(jit_State *J, GCproto *pt) -{ - IRRef ptref; - for (ptref = J->chain[IR_KGC]; ptref; ptref = IR(ptref)->prev) - if (ir_kgc(IR(ptref)) == obj2gco(pt)) { - int count = 0; - IRRef ref; - for (ref = J->chain[IR_RETF]; ref; ref = IR(ref)->prev) - if (IR(ref)->op1 == ptref) - count++; - if (count) { - if (J->pc == J->startpc) { - if (count + J->tailcalled > J->param[JIT_P_recunroll]) - return 1; - } else { - lj_trace_err(J, LJ_TRERR_DOWNREC); - } - } - } - return 0; -} - -static TRef rec_cat(jit_State *J, BCReg baseslot, BCReg topslot); - -/* Record return. */ -void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults) -{ - TValue *frame = J->L->base - 1; - ptrdiff_t i; - for (i = 0; i < gotresults; i++) - (void)getslot(J, rbase+i); /* Ensure all results have a reference. */ - while (frame_ispcall(frame)) { /* Immediately resolve pcall() returns. */ - BCReg cbase = (BCReg)frame_delta(frame); - if (--J->framedepth < 0) - lj_trace_err(J, LJ_TRERR_NYIRETL); - lua_assert(J->baseslot > 1); - gotresults++; - rbase += cbase; - J->baseslot -= (BCReg)cbase; - J->base -= cbase; - J->base[--rbase] = TREF_TRUE; /* Prepend true to results. */ - frame = frame_prevd(frame); - } - /* Return to lower frame via interpreter for unhandled cases. */ - if (J->framedepth == 0 && J->pt && bc_isret(bc_op(*J->pc)) && - (!frame_islua(frame) || - (J->parent == 0 && J->exitno == 0 && - !bc_isret(bc_op(J->cur.startins))))) { - /* NYI: specialize to frame type and return directly, not via RET*. */ - for (i = 0; i < (ptrdiff_t)rbase; i++) - J->base[i] = 0; /* Purge dead slots. */ - J->maxslot = rbase + (BCReg)gotresults; - lj_record_stop(J, LJ_TRLINK_RETURN, 0); /* Return to interpreter. */ - return; - } - if (frame_isvarg(frame)) { - BCReg cbase = (BCReg)frame_delta(frame); - if (--J->framedepth < 0) /* NYI: return of vararg func to lower frame. */ - lj_trace_err(J, LJ_TRERR_NYIRETL); - lua_assert(J->baseslot > 1); - rbase += cbase; - J->baseslot -= (BCReg)cbase; - J->base -= cbase; - frame = frame_prevd(frame); - } - if (frame_islua(frame)) { /* Return to Lua frame. */ - BCIns callins = *(frame_pc(frame)-1); - ptrdiff_t nresults = bc_b(callins) ? (ptrdiff_t)bc_b(callins)-1 :gotresults; - BCReg cbase = bc_a(callins); - GCproto *pt = funcproto(frame_func(frame - (cbase+1-LJ_FR2))); - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame teardown. */ - if ((pt->flags & PROTO_NOJIT)) - lj_trace_err(J, LJ_TRERR_CJITOFF); - if (J->framedepth == 0 && J->pt && frame == J->L->base - 1) { - if (check_downrec_unroll(J, pt)) { - J->maxslot = (BCReg)(rbase + gotresults); - lj_snap_purge(J); - lj_record_stop(J, LJ_TRLINK_DOWNREC, J->cur.traceno); /* Down-rec. */ - return; - } - lj_snap_add(J); - } - for (i = 0; i < nresults; i++) /* Adjust results. */ - J->base[i-1] = i < gotresults ? J->base[rbase+i] : TREF_NIL; - J->maxslot = cbase+(BCReg)nresults; - if (J->framedepth > 0) { /* Return to a frame that is part of the trace. */ - J->framedepth--; - lua_assert(J->baseslot > cbase+1); - J->baseslot -= cbase+1; - J->base -= cbase+1; - } else if (J->parent == 0 && J->exitno == 0 && - !bc_isret(bc_op(J->cur.startins))) { - /* Return to lower frame would leave the loop in a root trace. */ - lj_trace_err(J, LJ_TRERR_LLEAVE); - } else { /* Return to lower frame. Guard for the target we return to. */ - TRef trpt = lj_ir_kgc(J, obj2gco(pt), IRT_PROTO); - TRef trpc = lj_ir_kptr(J, (void *)frame_pc(frame)); - emitir(IRTG(IR_RETF, IRT_P32), trpt, trpc); - J->retdepth++; - J->needsnap = 1; - lua_assert(J->baseslot == 1); - /* Shift result slots up and clear the slots of the new frame below. */ - memmove(J->base + cbase, J->base-1, sizeof(TRef)*nresults); - memset(J->base-1, 0, sizeof(TRef)*(cbase+1)); - } - } else if (frame_iscont(frame)) { /* Return to continuation frame. */ - ASMFunction cont = frame_contf(frame); - BCReg cbase = (BCReg)frame_delta(frame); - if ((J->framedepth -= 2) < 0) - lj_trace_err(J, LJ_TRERR_NYIRETL); - J->baseslot -= (BCReg)cbase; - J->base -= cbase; - J->maxslot = cbase-2; - if (cont == lj_cont_ra) { - /* Copy result to destination slot. */ - BCReg dst = bc_a(*(frame_contpc(frame)-1)); - J->base[dst] = gotresults ? J->base[cbase+rbase] : TREF_NIL; - if (dst >= J->maxslot) J->maxslot = dst+1; - } else if (cont == lj_cont_nop) { - /* Nothing to do here. */ - } else if (cont == lj_cont_cat) { - BCReg bslot = bc_b(*(frame_contpc(frame)-1)); - TRef tr = gotresults ? J->base[cbase+rbase] : TREF_NIL; - if (bslot != cbase-2) { /* Concatenate the remainder. */ - TValue *b = J->L->base, save; /* Simulate lower frame and result. */ - J->base[cbase-2] = tr; - copyTV(J->L, &save, b-2); - if (gotresults) copyTV(J->L, b-2, b+rbase); else setnilV(b-2); - J->L->base = b - cbase; - tr = rec_cat(J, bslot, cbase-2); - b = J->L->base + cbase; /* Undo. */ - J->L->base = b; - copyTV(J->L, b-2, &save); - } - if (tr) { /* Store final result. */ - BCReg dst = bc_a(*(frame_contpc(frame)-1)); - J->base[dst] = tr; - if (dst >= J->maxslot) J->maxslot = dst+1; - } /* Otherwise continue with another __concat call. */ - } else { - /* Result type already specialized. */ - lua_assert(cont == lj_cont_condf || cont == lj_cont_condt); - } - } else { - lj_trace_err(J, LJ_TRERR_NYIRETL); /* NYI: handle return to C frame. */ - } - lua_assert(J->baseslot >= 1); -} - -/* -- Metamethod handling ------------------------------------------------- */ - -/* Prepare to record call to metamethod. */ -static BCReg rec_mm_prep(jit_State *J, ASMFunction cont) -{ - BCReg s, top = cont == lj_cont_cat ? J->maxslot : curr_proto(J->L)->framesize; -#if LJ_64 - TRef trcont = lj_ir_kptr(J, (void *)((int64_t)cont-(int64_t)lj_vm_asm_begin)); -#else - TRef trcont = lj_ir_kptr(J, (void *)cont); -#endif - J->base[top] = trcont | TREF_CONT; - J->framedepth++; - for (s = J->maxslot; s < top; s++) - J->base[s] = 0; /* Clear frame gap to avoid resurrecting previous refs. */ - return top+1; -} - -/* Record metamethod lookup. */ -int lj_record_mm_lookup(jit_State *J, RecordIndex *ix, MMS mm) -{ - RecordIndex mix; - GCtab *mt; - if (tref_istab(ix->tab)) { - mt = tabref(tabV(&ix->tabv)->metatable); - mix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_TAB_META); - } else if (tref_isudata(ix->tab)) { - int udtype = udataV(&ix->tabv)->udtype; - mt = tabref(udataV(&ix->tabv)->metatable); - /* The metatables of special userdata objects are treated as immutable. */ - if (udtype != UDTYPE_USERDATA) { - cTValue *mo; - if (LJ_HASFFI && udtype == UDTYPE_FFI_CLIB) { - /* Specialize to the C library namespace object. */ - emitir(IRTG(IR_EQ, IRT_P32), ix->tab, lj_ir_kptr(J, udataV(&ix->tabv))); - } else { - /* Specialize to the type of userdata. */ - TRef tr = emitir(IRT(IR_FLOAD, IRT_U8), ix->tab, IRFL_UDATA_UDTYPE); - emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, udtype)); - } - immutable_mt: - mo = lj_tab_getstr(mt, mmname_str(J2G(J), mm)); - if (!mo || tvisnil(mo)) - return 0; /* No metamethod. */ - /* Treat metamethod or index table as immutable, too. */ - if (!(tvisfunc(mo) || tvistab(mo))) - lj_trace_err(J, LJ_TRERR_BADTYPE); - copyTV(J->L, &ix->mobjv, mo); - ix->mobj = lj_ir_kgc(J, gcV(mo), tvisfunc(mo) ? IRT_FUNC : IRT_TAB); - ix->mtv = mt; - ix->mt = TREF_NIL; /* Dummy value for comparison semantics. */ - return 1; /* Got metamethod or index table. */ - } - mix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_UDATA_META); - } else { - /* Specialize to base metatable. Must flush mcode in lua_setmetatable(). */ - mt = tabref(basemt_obj(J2G(J), &ix->tabv)); - if (mt == NULL) { - ix->mt = TREF_NIL; - return 0; /* No metamethod. */ - } - /* The cdata metatable is treated as immutable. */ - if (LJ_HASFFI && tref_iscdata(ix->tab)) goto immutable_mt; - ix->mt = mix.tab = lj_ir_ktab(J, mt); - goto nocheck; - } - ix->mt = mt ? mix.tab : TREF_NIL; - emitir(IRTG(mt ? IR_NE : IR_EQ, IRT_TAB), mix.tab, lj_ir_knull(J, IRT_TAB)); -nocheck: - if (mt) { - GCstr *mmstr = mmname_str(J2G(J), mm); - cTValue *mo = lj_tab_getstr(mt, mmstr); - if (mo && !tvisnil(mo)) - copyTV(J->L, &ix->mobjv, mo); - ix->mtv = mt; - settabV(J->L, &mix.tabv, mt); - setstrV(J->L, &mix.keyv, mmstr); - mix.key = lj_ir_kstr(J, mmstr); - mix.val = 0; - mix.idxchain = 0; - ix->mobj = lj_record_idx(J, &mix); - return !tref_isnil(ix->mobj); /* 1 if metamethod found, 0 if not. */ - } - return 0; /* No metamethod. */ -} - -/* Record call to arithmetic metamethod. */ -static TRef rec_mm_arith(jit_State *J, RecordIndex *ix, MMS mm) -{ - /* Set up metamethod call first to save ix->tab and ix->tabv. */ - BCReg func = rec_mm_prep(J, mm == MM_concat ? lj_cont_cat : lj_cont_ra); - TRef *base = J->base + func; - TValue *basev = J->L->base + func; - base[1] = ix->tab; base[2] = ix->key; - copyTV(J->L, basev+1, &ix->tabv); - copyTV(J->L, basev+2, &ix->keyv); - if (!lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ - if (mm != MM_unm) { - ix->tab = ix->key; - copyTV(J->L, &ix->tabv, &ix->keyv); - if (lj_record_mm_lookup(J, ix, mm)) /* Lookup mm on 2nd operand. */ - goto ok; - } - lj_trace_err(J, LJ_TRERR_NOMM); - } -ok: - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - base[0] = ix->mobj; - copyTV(J->L, basev+0, &ix->mobjv); - lj_record_call(J, func, 2); - return 0; /* No result yet. */ -} - -/* Record call to __len metamethod. */ -static TRef rec_mm_len(jit_State *J, TRef tr, TValue *tv) -{ - RecordIndex ix; - ix.tab = tr; - copyTV(J->L, &ix.tabv, tv); - if (lj_record_mm_lookup(J, &ix, MM_len)) { - BCReg func = rec_mm_prep(J, lj_cont_ra); - TRef *base = J->base + func; - TValue *basev = J->L->base + func; - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - base[0] = ix.mobj; copyTV(J->L, basev+0, &ix.mobjv); - base[1] = tr; copyTV(J->L, basev+1, tv); -#if LJ_52 - base[2] = tr; copyTV(J->L, basev+2, tv); -#else - base[2] = TREF_NIL; setnilV(basev+2); -#endif - lj_record_call(J, func, 2); - } else { - if (LJ_52 && tref_istab(tr)) - return lj_ir_call(J, IRCALL_lj_tab_len, tr); - lj_trace_err(J, LJ_TRERR_NOMM); - } - return 0; /* No result yet. */ -} - -/* Call a comparison metamethod. */ -static void rec_mm_callcomp(jit_State *J, RecordIndex *ix, int op) -{ - BCReg func = rec_mm_prep(J, (op&1) ? lj_cont_condf : lj_cont_condt); - TRef *base = J->base + func; - TValue *tv = J->L->base + func; - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - base[0] = ix->mobj; base[1] = ix->val; base[2] = ix->key; - copyTV(J->L, tv+0, &ix->mobjv); - copyTV(J->L, tv+1, &ix->valv); - copyTV(J->L, tv+2, &ix->keyv); - lj_record_call(J, func, 2); -} - -/* Record call to equality comparison metamethod (for tab and udata only). */ -static void rec_mm_equal(jit_State *J, RecordIndex *ix, int op) -{ - ix->tab = ix->val; - copyTV(J->L, &ix->tabv, &ix->valv); - if (lj_record_mm_lookup(J, ix, MM_eq)) { /* Lookup mm on 1st operand. */ - cTValue *bv; - TRef mo1 = ix->mobj; - TValue mo1v; - copyTV(J->L, &mo1v, &ix->mobjv); - /* Avoid the 2nd lookup and the objcmp if the metatables are equal. */ - bv = &ix->keyv; - if (tvistab(bv) && tabref(tabV(bv)->metatable) == ix->mtv) { - TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_TAB_META); - emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); - } else if (tvisudata(bv) && tabref(udataV(bv)->metatable) == ix->mtv) { - TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_UDATA_META); - emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); - } else { /* Lookup metamethod on 2nd operand and compare both. */ - ix->tab = ix->key; - copyTV(J->L, &ix->tabv, bv); - if (!lj_record_mm_lookup(J, ix, MM_eq) || - lj_record_objcmp(J, mo1, ix->mobj, &mo1v, &ix->mobjv)) - return; - } - rec_mm_callcomp(J, ix, op); - } -} - -/* Record call to ordered comparison metamethods (for arbitrary objects). */ -static void rec_mm_comp(jit_State *J, RecordIndex *ix, int op) -{ - ix->tab = ix->val; - copyTV(J->L, &ix->tabv, &ix->valv); - while (1) { - MMS mm = (op & 2) ? MM_le : MM_lt; /* Try __le + __lt or only __lt. */ -#if LJ_52 - if (!lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ - ix->tab = ix->key; - copyTV(J->L, &ix->tabv, &ix->keyv); - if (!lj_record_mm_lookup(J, ix, mm)) /* Lookup mm on 2nd operand. */ - goto nomatch; - } - rec_mm_callcomp(J, ix, op); - return; -#else - if (lj_record_mm_lookup(J, ix, mm)) { /* Lookup mm on 1st operand. */ - cTValue *bv; - TRef mo1 = ix->mobj; - TValue mo1v; - copyTV(J->L, &mo1v, &ix->mobjv); - /* Avoid the 2nd lookup and the objcmp if the metatables are equal. */ - bv = &ix->keyv; - if (tvistab(bv) && tabref(tabV(bv)->metatable) == ix->mtv) { - TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_TAB_META); - emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); - } else if (tvisudata(bv) && tabref(udataV(bv)->metatable) == ix->mtv) { - TRef mt2 = emitir(IRT(IR_FLOAD, IRT_TAB), ix->key, IRFL_UDATA_META); - emitir(IRTG(IR_EQ, IRT_TAB), mt2, ix->mt); - } else { /* Lookup metamethod on 2nd operand and compare both. */ - ix->tab = ix->key; - copyTV(J->L, &ix->tabv, bv); - if (!lj_record_mm_lookup(J, ix, mm) || - lj_record_objcmp(J, mo1, ix->mobj, &mo1v, &ix->mobjv)) - goto nomatch; - } - rec_mm_callcomp(J, ix, op); - return; - } -#endif - nomatch: - /* Lookup failed. Retry with __lt and swapped operands. */ - if (!(op & 2)) break; /* Already at __lt. Interpreter will throw. */ - ix->tab = ix->key; ix->key = ix->val; ix->val = ix->tab; - copyTV(J->L, &ix->tabv, &ix->keyv); - copyTV(J->L, &ix->keyv, &ix->valv); - copyTV(J->L, &ix->valv, &ix->tabv); - op ^= 3; - } -} - -#if LJ_HASFFI -/* Setup call to cdata comparison metamethod. */ -static void rec_mm_comp_cdata(jit_State *J, RecordIndex *ix, int op, MMS mm) -{ - lj_snap_add(J); - if (tref_iscdata(ix->val)) { - ix->tab = ix->val; - copyTV(J->L, &ix->tabv, &ix->valv); - } else { - lua_assert(tref_iscdata(ix->key)); - ix->tab = ix->key; - copyTV(J->L, &ix->tabv, &ix->keyv); - } - lj_record_mm_lookup(J, ix, mm); - rec_mm_callcomp(J, ix, op); -} -#endif - -/* -- Indexed access ------------------------------------------------------ */ - -/* Record bounds-check. */ -static void rec_idx_abc(jit_State *J, TRef asizeref, TRef ikey, uint32_t asize) -{ - /* Try to emit invariant bounds checks. */ - if ((J->flags & (JIT_F_OPT_LOOP|JIT_F_OPT_ABC)) == - (JIT_F_OPT_LOOP|JIT_F_OPT_ABC)) { - IRRef ref = tref_ref(ikey); - IRIns *ir = IR(ref); - int32_t ofs = 0; - IRRef ofsref = 0; - /* Handle constant offsets. */ - if (ir->o == IR_ADD && irref_isk(ir->op2)) { - ofsref = ir->op2; - ofs = IR(ofsref)->i; - ref = ir->op1; - ir = IR(ref); - } - /* Got scalar evolution analysis results for this reference? */ - if (ref == J->scev.idx) { - int32_t stop; - lua_assert(irt_isint(J->scev.t) && ir->o == IR_SLOAD); - stop = numberVint(&(J->L->base - J->baseslot)[ir->op1 + FORL_STOP]); - /* Runtime value for stop of loop is within bounds? */ - if ((uint64_t)stop + ofs < (uint64_t)asize) { - /* Emit invariant bounds check for stop. */ - emitir(IRTG(IR_ABC, IRT_P32), asizeref, ofs == 0 ? J->scev.stop : - emitir(IRTI(IR_ADD), J->scev.stop, ofsref)); - /* Emit invariant bounds check for start, if not const or negative. */ - if (!(J->scev.dir && J->scev.start && - (int64_t)IR(J->scev.start)->i + ofs >= 0)) - emitir(IRTG(IR_ABC, IRT_P32), asizeref, ikey); - return; - } - } - } - emitir(IRTGI(IR_ABC), asizeref, ikey); /* Emit regular bounds check. */ -} - -/* Record indexed key lookup. */ -static TRef rec_idx_key(jit_State *J, RecordIndex *ix, IRRef *rbref) -{ - TRef key; - GCtab *t = tabV(&ix->tabv); - ix->oldv = lj_tab_get(J->L, t, &ix->keyv); /* Lookup previous value. */ - *rbref = 0; - - /* Integer keys are looked up in the array part first. */ - key = ix->key; - if (tref_isnumber(key)) { - int32_t k = numberVint(&ix->keyv); - if (!tvisint(&ix->keyv) && numV(&ix->keyv) != (lua_Number)k) - k = LJ_MAX_ASIZE; - if ((MSize)k < LJ_MAX_ASIZE) { /* Potential array key? */ - TRef ikey = lj_opt_narrow_index(J, key); - TRef asizeref = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_ASIZE); - if ((MSize)k < t->asize) { /* Currently an array key? */ - TRef arrayref; - rec_idx_abc(J, asizeref, ikey, t->asize); - arrayref = emitir(IRT(IR_FLOAD, IRT_P32), ix->tab, IRFL_TAB_ARRAY); - return emitir(IRT(IR_AREF, IRT_P32), arrayref, ikey); - } else { /* Currently not in array (may be an array extension)? */ - emitir(IRTGI(IR_ULE), asizeref, ikey); /* Inv. bounds check. */ - if (k == 0 && tref_isk(key)) - key = lj_ir_knum_zero(J); /* Canonicalize 0 or +-0.0 to +0.0. */ - /* And continue with the hash lookup. */ - } - } else if (!tref_isk(key)) { - /* We can rule out const numbers which failed the integerness test - ** above. But all other numbers are potential array keys. - */ - if (t->asize == 0) { /* True sparse tables have an empty array part. */ - /* Guard that the array part stays empty. */ - TRef tmp = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_ASIZE); - emitir(IRTGI(IR_EQ), tmp, lj_ir_kint(J, 0)); - } else { - lj_trace_err(J, LJ_TRERR_NYITMIX); - } - } - } - - /* Otherwise the key is located in the hash part. */ - if (t->hmask == 0) { /* Shortcut for empty hash part. */ - /* Guard that the hash part stays empty. */ - TRef tmp = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); - emitir(IRTGI(IR_EQ), tmp, lj_ir_kint(J, 0)); - return lj_ir_kkptr(J, niltvg(J2G(J))); - } - if (tref_isinteger(key)) /* Hash keys are based on numbers, not ints. */ - key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); - if (tref_isk(key)) { - /* Optimize lookup of constant hash keys. */ - MSize hslot = (MSize)((char *)ix->oldv - (char *)&noderef(t->node)[0].val); - if (t->hmask > 0 && hslot <= t->hmask*(MSize)sizeof(Node) && - hslot <= 65535*(MSize)sizeof(Node)) { - TRef node, kslot, hm; - *rbref = J->cur.nins; /* Mark possible rollback point. */ - hm = emitir(IRTI(IR_FLOAD), ix->tab, IRFL_TAB_HMASK); - emitir(IRTGI(IR_EQ), hm, lj_ir_kint(J, (int32_t)t->hmask)); - node = emitir(IRT(IR_FLOAD, IRT_P32), ix->tab, IRFL_TAB_NODE); - kslot = lj_ir_kslot(J, key, hslot / sizeof(Node)); - return emitir(IRTG(IR_HREFK, IRT_P32), node, kslot); - } - } - /* Fall back to a regular hash lookup. */ - return emitir(IRT(IR_HREF, IRT_P32), ix->tab, key); -} - -/* Determine whether a key is NOT one of the fast metamethod names. */ -static int nommstr(jit_State *J, TRef key) -{ - if (tref_isstr(key)) { - if (tref_isk(key)) { - GCstr *str = ir_kstr(IR(tref_ref(key))); - uint32_t mm; - for (mm = 0; mm <= MM_FAST; mm++) - if (mmname_str(J2G(J), mm) == str) - return 0; /* MUST be one the fast metamethod names. */ - } else { - return 0; /* Variable string key MAY be a metamethod name. */ - } - } - return 1; /* CANNOT be a metamethod name. */ -} - -/* Record indexed load/store. */ -TRef lj_record_idx(jit_State *J, RecordIndex *ix) -{ - TRef xref; - IROp xrefop, loadop; - IRRef rbref; - cTValue *oldv; - - while (!tref_istab(ix->tab)) { /* Handle non-table lookup. */ - /* Never call raw lj_record_idx() on non-table. */ - lua_assert(ix->idxchain != 0); - if (!lj_record_mm_lookup(J, ix, ix->val ? MM_newindex : MM_index)) - lj_trace_err(J, LJ_TRERR_NOMM); - handlemm: - if (tref_isfunc(ix->mobj)) { /* Handle metamethod call. */ - BCReg func = rec_mm_prep(J, ix->val ? lj_cont_nop : lj_cont_ra); - TRef *base = J->base + func; - TValue *tv = J->L->base + func; - lua_assert(!LJ_FR2); /* TODO_FR2: handle different frame setup. */ - base[0] = ix->mobj; base[1] = ix->tab; base[2] = ix->key; - setfuncV(J->L, tv+0, funcV(&ix->mobjv)); - copyTV(J->L, tv+1, &ix->tabv); - copyTV(J->L, tv+2, &ix->keyv); - if (ix->val) { - base[3] = ix->val; - copyTV(J->L, tv+3, &ix->valv); - lj_record_call(J, func, 3); /* mobj(tab, key, val) */ - return 0; - } else { - lj_record_call(J, func, 2); /* res = mobj(tab, key) */ - return 0; /* No result yet. */ - } - } - /* Otherwise retry lookup with metaobject. */ - ix->tab = ix->mobj; - copyTV(J->L, &ix->tabv, &ix->mobjv); - if (--ix->idxchain == 0) - lj_trace_err(J, LJ_TRERR_IDXLOOP); - } - - /* First catch nil and NaN keys for tables. */ - if (tvisnil(&ix->keyv) || (tvisnum(&ix->keyv) && tvisnan(&ix->keyv))) { - if (ix->val) /* Better fail early. */ - lj_trace_err(J, LJ_TRERR_STORENN); - if (tref_isk(ix->key)) { - if (ix->idxchain && lj_record_mm_lookup(J, ix, MM_index)) - goto handlemm; - return TREF_NIL; - } - } - - /* Record the key lookup. */ - xref = rec_idx_key(J, ix, &rbref); - xrefop = IR(tref_ref(xref))->o; - loadop = xrefop == IR_AREF ? IR_ALOAD : IR_HLOAD; - /* The lj_meta_tset() inconsistency is gone, but better play safe. */ - oldv = xrefop == IR_KKPTR ? (cTValue *)ir_kptr(IR(tref_ref(xref))) : ix->oldv; - - if (ix->val == 0) { /* Indexed load */ - IRType t = itype2irt(oldv); - TRef res; - if (oldv == niltvg(J2G(J))) { - emitir(IRTG(IR_EQ, IRT_P32), xref, lj_ir_kkptr(J, niltvg(J2G(J)))); - res = TREF_NIL; - } else { - res = emitir(IRTG(loadop, t), xref, 0); - } - if (tref_ref(res) < rbref) /* HREFK + load forwarded? */ - lj_ir_rollback(J, rbref); /* Rollback to eliminate hmask guard. */ - if (t == IRT_NIL && ix->idxchain && lj_record_mm_lookup(J, ix, MM_index)) - goto handlemm; - if (irtype_ispri(t)) res = TREF_PRI(t); /* Canonicalize primitives. */ - return res; - } else { /* Indexed store. */ - GCtab *mt = tabref(tabV(&ix->tabv)->metatable); - int keybarrier = tref_isgcv(ix->key) && !tref_isnil(ix->val); - if (tref_ref(xref) < rbref) /* HREFK forwarded? */ - lj_ir_rollback(J, rbref); /* Rollback to eliminate hmask guard. */ - if (tvisnil(oldv)) { /* Previous value was nil? */ - /* Need to duplicate the hasmm check for the early guards. */ - int hasmm = 0; - if (ix->idxchain && mt) { - cTValue *mo = lj_tab_getstr(mt, mmname_str(J2G(J), MM_newindex)); - hasmm = mo && !tvisnil(mo); - } - if (hasmm) - emitir(IRTG(loadop, IRT_NIL), xref, 0); /* Guard for nil value. */ - else if (xrefop == IR_HREF) - emitir(IRTG(oldv == niltvg(J2G(J)) ? IR_EQ : IR_NE, IRT_P32), - xref, lj_ir_kkptr(J, niltvg(J2G(J)))); - if (ix->idxchain && lj_record_mm_lookup(J, ix, MM_newindex)) { - lua_assert(hasmm); - goto handlemm; - } - lua_assert(!hasmm); - if (oldv == niltvg(J2G(J))) { /* Need to insert a new key. */ - TRef key = ix->key; - if (tref_isinteger(key)) /* NEWREF needs a TValue as a key. */ - key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); - xref = emitir(IRT(IR_NEWREF, IRT_P32), ix->tab, key); - keybarrier = 0; /* NEWREF already takes care of the key barrier. */ - } - } else if (!lj_opt_fwd_wasnonnil(J, loadop, tref_ref(xref))) { - /* Cannot derive that the previous value was non-nil, must do checks. */ - if (xrefop == IR_HREF) /* Guard against store to niltv. */ - emitir(IRTG(IR_NE, IRT_P32), xref, lj_ir_kkptr(J, niltvg(J2G(J)))); - if (ix->idxchain) { /* Metamethod lookup required? */ - /* A check for NULL metatable is cheaper (hoistable) than a load. */ - if (!mt) { - TRef mtref = emitir(IRT(IR_FLOAD, IRT_TAB), ix->tab, IRFL_TAB_META); - emitir(IRTG(IR_EQ, IRT_TAB), mtref, lj_ir_knull(J, IRT_TAB)); - } else { - IRType t = itype2irt(oldv); - emitir(IRTG(loadop, t), xref, 0); /* Guard for non-nil value. */ - } - } - } else { - keybarrier = 0; /* Previous non-nil value kept the key alive. */ - } - /* Convert int to number before storing. */ - if (!LJ_DUALNUM && tref_isinteger(ix->val)) - ix->val = emitir(IRTN(IR_CONV), ix->val, IRCONV_NUM_INT); - emitir(IRT(loadop+IRDELTA_L2S, tref_type(ix->val)), xref, ix->val); - if (keybarrier || tref_isgcv(ix->val)) - emitir(IRT(IR_TBAR, IRT_NIL), ix->tab, 0); - /* Invalidate neg. metamethod cache for stores with certain string keys. */ - if (!nommstr(J, ix->key)) { - TRef fref = emitir(IRT(IR_FREF, IRT_P32), ix->tab, IRFL_TAB_NOMM); - emitir(IRT(IR_FSTORE, IRT_U8), fref, lj_ir_kint(J, 0)); - } - J->needsnap = 1; - return 0; - } -} - -static void rec_tsetm(jit_State *J, BCReg ra, BCReg rn, int32_t i) -{ - RecordIndex ix; - cTValue *basev = J->L->base; - copyTV(J->L, &ix.tabv, &basev[ra-1]); - ix.tab = getslot(J, ra-1); - ix.idxchain = 0; - for (; ra < rn; i++, ra++) { - setintV(&ix.keyv, i); - ix.key = lj_ir_kint(J, i); - copyTV(J->L, &ix.valv, &basev[ra]); - ix.val = getslot(J, ra); - lj_record_idx(J, &ix); - } -} - -/* -- Upvalue access ------------------------------------------------------ */ - -/* Check whether upvalue is immutable and ok to constify. */ -static int rec_upvalue_constify(jit_State *J, GCupval *uvp) -{ - if (uvp->immutable) { - cTValue *o = uvval(uvp); - /* Don't constify objects that may retain large amounts of memory. */ -#if LJ_HASFFI - if (tviscdata(o)) { - GCcdata *cd = cdataV(o); - if (!cdataisv(cd) && !(cd->marked & LJ_GC_CDATA_FIN)) { - CType *ct = ctype_raw(ctype_ctsG(J2G(J)), cd->ctypeid); - if (!ctype_hassize(ct->info) || ct->size <= 16) - return 1; - } - return 0; - } -#else - UNUSED(J); -#endif - if (!(tvistab(o) || tvisudata(o) || tvisthread(o))) - return 1; - } - return 0; -} - -/* Record upvalue load/store. */ -static TRef rec_upvalue(jit_State *J, uint32_t uv, TRef val) -{ - GCupval *uvp = &gcref(J->fn->l.uvptr[uv])->uv; - TRef fn = getcurrf(J); - IRRef uref; - int needbarrier = 0; - if (rec_upvalue_constify(J, uvp)) { /* Try to constify immutable upvalue. */ - TRef tr, kfunc; - lua_assert(val == 0); - if (!tref_isk(fn)) { /* Late specialization of current function. */ - if (J->pt->flags >= PROTO_CLC_POLY) - goto noconstify; - kfunc = lj_ir_kfunc(J, J->fn); - emitir(IRTG(IR_EQ, IRT_FUNC), fn, kfunc); - J->base[-1] = TREF_FRAME | kfunc; - fn = kfunc; - } - tr = lj_record_constify(J, uvval(uvp)); - if (tr) - return tr; - } -noconstify: - /* Note: this effectively limits LJ_MAX_UPVAL to 127. */ - uv = (uv << 8) | (hashrot(uvp->dhash, uvp->dhash + HASH_BIAS) & 0xff); - if (!uvp->closed) { - /* In current stack? */ - if (uvval(uvp) >= tvref(J->L->stack) && - uvval(uvp) < tvref(J->L->maxstack)) { - int32_t slot = (int32_t)(uvval(uvp) - (J->L->base - J->baseslot)); - if (slot >= 0) { /* Aliases an SSA slot? */ - slot -= (int32_t)J->baseslot; /* Note: slot number may be negative! */ - /* NYI: add IR to guard that it's still aliasing the same slot. */ - if (val == 0) { - return getslot(J, slot); - } else { - J->base[slot] = val; - if (slot >= (int32_t)J->maxslot) J->maxslot = (BCReg)(slot+1); - return 0; - } - } - } - uref = tref_ref(emitir(IRTG(IR_UREFO, IRT_P32), fn, uv)); - } else { - needbarrier = 1; - uref = tref_ref(emitir(IRTG(IR_UREFC, IRT_P32), fn, uv)); - } - if (val == 0) { /* Upvalue load */ - IRType t = itype2irt(uvval(uvp)); - TRef res = emitir(IRTG(IR_ULOAD, t), uref, 0); - if (irtype_ispri(t)) res = TREF_PRI(t); /* Canonicalize primitive refs. */ - return res; - } else { /* Upvalue store. */ - /* Convert int to number before storing. */ - if (!LJ_DUALNUM && tref_isinteger(val)) - val = emitir(IRTN(IR_CONV), val, IRCONV_NUM_INT); - emitir(IRT(IR_USTORE, tref_type(val)), uref, val); - if (needbarrier && tref_isgcv(val)) - emitir(IRT(IR_OBAR, IRT_NIL), uref, val); - J->needsnap = 1; - return 0; - } -} - -/* -- Record calls to Lua functions --------------------------------------- */ - -/* Check unroll limits for calls. */ -static void check_call_unroll(jit_State *J, TraceNo lnk) -{ - cTValue *frame = J->L->base - 1; - void *pc = mref(frame_func(frame)->l.pc, void); - int32_t depth = J->framedepth; - int32_t count = 0; - if ((J->pt->flags & PROTO_VARARG)) depth--; /* Vararg frame still missing. */ - for (; depth > 0; depth--) { /* Count frames with same prototype. */ - if (frame_iscont(frame)) depth--; - frame = frame_prev(frame); - if (mref(frame_func(frame)->l.pc, void) == pc) - count++; - } - if (J->pc == J->startpc) { - if (count + J->tailcalled > J->param[JIT_P_recunroll]) { - J->pc++; - if (J->framedepth + J->retdepth == 0) - lj_record_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Tail-rec. */ - else - lj_record_stop(J, LJ_TRLINK_UPREC, J->cur.traceno); /* Up-recursion. */ - } - } else { - if (count > J->param[JIT_P_callunroll]) { - if (lnk) { /* Possible tail- or up-recursion. */ - lj_trace_flush(J, lnk); /* Flush trace that only returns. */ - /* Set a small, pseudo-random hotcount for a quick retry of JFUNC*. */ - hotcount_set(J2GG(J), J->pc+1, LJ_PRNG_BITS(J, 4)); - } - lj_trace_err(J, LJ_TRERR_CUNROLL); - } - } -} - -/* Record Lua function setup. */ -static void rec_func_setup(jit_State *J) -{ - GCproto *pt = J->pt; - BCReg s, numparams = pt->numparams; - if ((pt->flags & PROTO_NOJIT)) - lj_trace_err(J, LJ_TRERR_CJITOFF); - if (J->baseslot + pt->framesize >= LJ_MAX_JSLOTS) - lj_trace_err(J, LJ_TRERR_STACKOV); - /* Fill up missing parameters with nil. */ - for (s = J->maxslot; s < numparams; s++) - J->base[s] = TREF_NIL; - /* The remaining slots should never be read before they are written. */ - J->maxslot = numparams; -} - -/* Record Lua vararg function setup. */ -static void rec_func_vararg(jit_State *J) -{ - GCproto *pt = J->pt; - BCReg s, fixargs, vframe = J->maxslot+1; - lua_assert((pt->flags & PROTO_VARARG)); - if (J->baseslot + vframe + pt->framesize >= LJ_MAX_JSLOTS) - lj_trace_err(J, LJ_TRERR_STACKOV); - J->base[vframe-1] = J->base[-1]; /* Copy function up. */ - /* Copy fixarg slots up and set their original slots to nil. */ - fixargs = pt->numparams < J->maxslot ? pt->numparams : J->maxslot; - for (s = 0; s < fixargs; s++) { - J->base[vframe+s] = J->base[s]; - J->base[s] = TREF_NIL; - } - J->maxslot = fixargs; - J->framedepth++; - J->base += vframe; - J->baseslot += vframe; -} - -/* Record entry to a Lua function. */ -static void rec_func_lua(jit_State *J) -{ - rec_func_setup(J); - check_call_unroll(J, 0); -} - -/* Record entry to an already compiled function. */ -static void rec_func_jit(jit_State *J, TraceNo lnk) -{ - GCtrace *T; - rec_func_setup(J); - T = traceref(J, lnk); - if (T->linktype == LJ_TRLINK_RETURN) { /* Trace returns to interpreter? */ - check_call_unroll(J, lnk); - /* Temporarily unpatch JFUNC* to continue recording across function. */ - J->patchins = *J->pc; - J->patchpc = (BCIns *)J->pc; - *J->patchpc = T->startins; - return; - } - J->instunroll = 0; /* Cannot continue across a compiled function. */ - if (J->pc == J->startpc && J->framedepth + J->retdepth == 0) - lj_record_stop(J, LJ_TRLINK_TAILREC, J->cur.traceno); /* Extra tail-rec. */ - else - lj_record_stop(J, LJ_TRLINK_ROOT, lnk); /* Link to the function. */ -} - -/* -- Vararg handling ----------------------------------------------------- */ - -/* Detect y = select(x, ...) idiom. */ -static int select_detect(jit_State *J) -{ - BCIns ins = J->pc[1]; - if (bc_op(ins) == BC_CALLM && bc_b(ins) == 2 && bc_c(ins) == 1) { - cTValue *func = &J->L->base[bc_a(ins)]; - if (tvisfunc(func) && funcV(func)->c.ffid == FF_select) - return 1; - } - return 0; -} - -/* Record vararg instruction. */ -static void rec_varg(jit_State *J, BCReg dst, ptrdiff_t nresults) -{ - int32_t numparams = J->pt->numparams; - ptrdiff_t nvararg = frame_delta(J->L->base-1) - numparams - 1; - lua_assert(frame_isvarg(J->L->base-1)); - if (J->framedepth > 0) { /* Simple case: varargs defined on-trace. */ - ptrdiff_t i; - if (nvararg < 0) nvararg = 0; - if (nresults == -1) { - nresults = nvararg; - J->maxslot = dst + (BCReg)nvararg; - } else if (dst + nresults > J->maxslot) { - J->maxslot = dst + (BCReg)nresults; - } - for (i = 0; i < nresults; i++) - J->base[dst+i] = i < nvararg ? getslot(J, i - nvararg - 1) : TREF_NIL; - } else { /* Unknown number of varargs passed to trace. */ - TRef fr = emitir(IRTI(IR_SLOAD), 0, IRSLOAD_READONLY|IRSLOAD_FRAME); - int32_t frofs = 8*(1+numparams)+FRAME_VARG; - if (nresults >= 0) { /* Known fixed number of results. */ - ptrdiff_t i; - if (nvararg > 0) { - ptrdiff_t nload = nvararg >= nresults ? nresults : nvararg; - TRef vbase; - if (nvararg >= nresults) - emitir(IRTGI(IR_GE), fr, lj_ir_kint(J, frofs+8*(int32_t)nresults)); - else - emitir(IRTGI(IR_EQ), fr, - lj_ir_kint(J, (int32_t)frame_ftsz(J->L->base-1))); - vbase = emitir(IRTI(IR_SUB), REF_BASE, fr); - vbase = emitir(IRT(IR_ADD, IRT_P32), vbase, lj_ir_kint(J, frofs-8)); - for (i = 0; i < nload; i++) { - IRType t = itype2irt(&J->L->base[i-1-nvararg]); - TRef aref = emitir(IRT(IR_AREF, IRT_P32), - vbase, lj_ir_kint(J, (int32_t)i)); - TRef tr = emitir(IRTG(IR_VLOAD, t), aref, 0); - if (irtype_ispri(t)) tr = TREF_PRI(t); /* Canonicalize primitives. */ - J->base[dst+i] = tr; - } - } else { - emitir(IRTGI(IR_LE), fr, lj_ir_kint(J, frofs)); - nvararg = 0; - } - for (i = nvararg; i < nresults; i++) - J->base[dst+i] = TREF_NIL; - if (dst + (BCReg)nresults > J->maxslot) - J->maxslot = dst + (BCReg)nresults; - } else if (select_detect(J)) { /* y = select(x, ...) */ - TRef tridx = J->base[dst-1]; - TRef tr = TREF_NIL; - ptrdiff_t idx = lj_ffrecord_select_mode(J, tridx, &J->L->base[dst-1]); - if (idx < 0) goto nyivarg; - if (idx != 0 && !tref_isinteger(tridx)) - tridx = emitir(IRTGI(IR_CONV), tridx, IRCONV_INT_NUM|IRCONV_INDEX); - if (idx != 0 && tref_isk(tridx)) { - emitir(IRTGI(idx <= nvararg ? IR_GE : IR_LT), - fr, lj_ir_kint(J, frofs+8*(int32_t)idx)); - frofs -= 8; /* Bias for 1-based index. */ - } else if (idx <= nvararg) { /* Compute size. */ - TRef tmp = emitir(IRTI(IR_ADD), fr, lj_ir_kint(J, -frofs)); - if (numparams) - emitir(IRTGI(IR_GE), tmp, lj_ir_kint(J, 0)); - tr = emitir(IRTI(IR_BSHR), tmp, lj_ir_kint(J, 3)); - if (idx != 0) { - tridx = emitir(IRTI(IR_ADD), tridx, lj_ir_kint(J, -1)); - rec_idx_abc(J, tr, tridx, (uint32_t)nvararg); - } - } else { - TRef tmp = lj_ir_kint(J, frofs); - if (idx != 0) { - TRef tmp2 = emitir(IRTI(IR_BSHL), tridx, lj_ir_kint(J, 3)); - tmp = emitir(IRTI(IR_ADD), tmp2, tmp); - } else { - tr = lj_ir_kint(J, 0); - } - emitir(IRTGI(IR_LT), fr, tmp); - } - if (idx != 0 && idx <= nvararg) { - IRType t; - TRef aref, vbase = emitir(IRTI(IR_SUB), REF_BASE, fr); - vbase = emitir(IRT(IR_ADD, IRT_P32), vbase, lj_ir_kint(J, frofs-8)); - t = itype2irt(&J->L->base[idx-2-nvararg]); - aref = emitir(IRT(IR_AREF, IRT_P32), vbase, tridx); - tr = emitir(IRTG(IR_VLOAD, t), aref, 0); - if (irtype_ispri(t)) tr = TREF_PRI(t); /* Canonicalize primitives. */ - } - J->base[dst-2] = tr; - J->maxslot = dst-1; - J->bcskip = 2; /* Skip CALLM + select. */ - } else { - nyivarg: - setintV(&J->errinfo, BC_VARG); - lj_trace_err_info(J, LJ_TRERR_NYIBC); - } - } -} - -/* -- Record allocations -------------------------------------------------- */ - -static TRef rec_tnew(jit_State *J, uint32_t ah) -{ - uint32_t asize = ah & 0x7ff; - uint32_t hbits = ah >> 11; - if (asize == 0x7ff) asize = 0x801; - return emitir(IRTG(IR_TNEW, IRT_TAB), asize, hbits); -} - -/* -- Concatenation ------------------------------------------------------- */ - -static TRef rec_cat(jit_State *J, BCReg baseslot, BCReg topslot) -{ - TRef *top = &J->base[topslot]; - TValue savetv[5]; - BCReg s; - RecordIndex ix; - lua_assert(baseslot < topslot); - for (s = baseslot; s <= topslot; s++) - (void)getslot(J, s); /* Ensure all arguments have a reference. */ - if (tref_isnumber_str(top[0]) && tref_isnumber_str(top[-1])) { - TRef tr, hdr, *trp, *xbase, *base = &J->base[baseslot]; - /* First convert numbers to strings. */ - for (trp = top; trp >= base; trp--) { - if (tref_isnumber(*trp)) - *trp = emitir(IRT(IR_TOSTR, IRT_STR), *trp, - tref_isnum(*trp) ? IRTOSTR_NUM : IRTOSTR_INT); - else if (!tref_isstr(*trp)) - break; - } - xbase = ++trp; - tr = hdr = emitir(IRT(IR_BUFHDR, IRT_P32), - lj_ir_kptr(J, &J2G(J)->tmpbuf), IRBUFHDR_RESET); - do { - tr = emitir(IRT(IR_BUFPUT, IRT_P32), tr, *trp++); - } while (trp <= top); - tr = emitir(IRT(IR_BUFSTR, IRT_STR), tr, hdr); - J->maxslot = (BCReg)(xbase - J->base); - if (xbase == base) return tr; /* Return simple concatenation result. */ - /* Pass partial result. */ - topslot = J->maxslot--; - *xbase = tr; - top = xbase; - setstrV(J->L, &ix.keyv, &J2G(J)->strempty); /* Simulate string result. */ - } else { - J->maxslot = topslot-1; - copyTV(J->L, &ix.keyv, &J->L->base[topslot]); - } - copyTV(J->L, &ix.tabv, &J->L->base[topslot-1]); - ix.tab = top[-1]; - ix.key = top[0]; - memcpy(savetv, &J->L->base[topslot-1], sizeof(savetv)); /* Save slots. */ - rec_mm_arith(J, &ix, MM_concat); /* Call __concat metamethod. */ - memcpy(&J->L->base[topslot-1], savetv, sizeof(savetv)); /* Restore slots. */ - return 0; /* No result yet. */ -} - -/* -- Record bytecode ops ------------------------------------------------- */ - -/* Prepare for comparison. */ -static void rec_comp_prep(jit_State *J) -{ - /* Prevent merging with snapshot #0 (GC exit) since we fixup the PC. */ - if (J->cur.nsnap == 1 && J->cur.snap[0].ref == J->cur.nins) - emitir_raw(IRT(IR_NOP, IRT_NIL), 0, 0); - lj_snap_add(J); -} - -/* Fixup comparison. */ -static void rec_comp_fixup(jit_State *J, const BCIns *pc, int cond) -{ - BCIns jmpins = pc[1]; - const BCIns *npc = pc + 2 + (cond ? bc_j(jmpins) : 0); - SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; - /* Set PC to opposite target to avoid re-recording the comp. in side trace. */ - J->cur.snapmap[snap->mapofs + snap->nent] = SNAP_MKPC(npc); - J->needsnap = 1; - if (bc_a(jmpins) < J->maxslot) J->maxslot = bc_a(jmpins); - lj_snap_shrink(J); /* Shrink last snapshot if possible. */ -} - -/* Record the next bytecode instruction (_before_ it's executed). */ -void lj_record_ins(jit_State *J) -{ - cTValue *lbase; - RecordIndex ix; - const BCIns *pc; - BCIns ins; - BCOp op; - TRef ra, rb, rc; - - /* Perform post-processing action before recording the next instruction. */ - if (LJ_UNLIKELY(J->postproc != LJ_POST_NONE)) { - switch (J->postproc) { - case LJ_POST_FIXCOMP: /* Fixup comparison. */ - pc = (const BCIns *)(uintptr_t)J2G(J)->tmptv.u64; - rec_comp_fixup(J, pc, (!tvistruecond(&J2G(J)->tmptv2) ^ (bc_op(*pc)&1))); - /* fallthrough */ - case LJ_POST_FIXGUARD: /* Fixup and emit pending guard. */ - case LJ_POST_FIXGUARDSNAP: /* Fixup and emit pending guard and snapshot. */ - if (!tvistruecond(&J2G(J)->tmptv2)) { - J->fold.ins.o ^= 1; /* Flip guard to opposite. */ - if (J->postproc == LJ_POST_FIXGUARDSNAP) { - SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; - J->cur.snapmap[snap->mapofs+snap->nent-1]--; /* False -> true. */ - } - } - lj_opt_fold(J); /* Emit pending guard. */ - /* fallthrough */ - case LJ_POST_FIXBOOL: - if (!tvistruecond(&J2G(J)->tmptv2)) { - BCReg s; - TValue *tv = J->L->base; - for (s = 0; s < J->maxslot; s++) /* Fixup stack slot (if any). */ - if (J->base[s] == TREF_TRUE && tvisfalse(&tv[s])) { - J->base[s] = TREF_FALSE; - break; - } - } - break; - case LJ_POST_FIXCONST: - { - BCReg s; - TValue *tv = J->L->base; - for (s = 0; s < J->maxslot; s++) /* Constify stack slots (if any). */ - if (J->base[s] == TREF_NIL && !tvisnil(&tv[s])) - J->base[s] = lj_record_constify(J, &tv[s]); - } - break; - case LJ_POST_FFRETRY: /* Suppress recording of retried fast function. */ - if (bc_op(*J->pc) >= BC__MAX) - return; - break; - default: lua_assert(0); break; - } - J->postproc = LJ_POST_NONE; - } - - /* Need snapshot before recording next bytecode (e.g. after a store). */ - if (J->needsnap) { - J->needsnap = 0; - lj_snap_purge(J); - lj_snap_add(J); - J->mergesnap = 1; - } - - /* Skip some bytecodes. */ - if (LJ_UNLIKELY(J->bcskip > 0)) { - J->bcskip--; - return; - } - - /* Record only closed loops for root traces. */ - pc = J->pc; - if (J->framedepth == 0 && - (MSize)((char *)pc - (char *)J->bc_min) >= J->bc_extent) - lj_trace_err(J, LJ_TRERR_LLEAVE); - -#ifdef LUA_USE_ASSERT - rec_check_slots(J); - rec_check_ir(J); -#endif - -#if LJ_HASPROFILE - rec_profile_ins(J, pc); -#endif - - /* Keep a copy of the runtime values of var/num/str operands. */ -#define rav (&ix.valv) -#define rbv (&ix.tabv) -#define rcv (&ix.keyv) - - lbase = J->L->base; - ins = *pc; - op = bc_op(ins); - ra = bc_a(ins); - ix.val = 0; - switch (bcmode_a(op)) { - case BCMvar: - copyTV(J->L, rav, &lbase[ra]); ix.val = ra = getslot(J, ra); break; - default: break; /* Handled later. */ - } - rb = bc_b(ins); - rc = bc_c(ins); - switch (bcmode_b(op)) { - case BCMnone: rb = 0; rc = bc_d(ins); break; /* Upgrade rc to 'rd'. */ - case BCMvar: - copyTV(J->L, rbv, &lbase[rb]); ix.tab = rb = getslot(J, rb); break; - default: break; /* Handled later. */ - } - switch (bcmode_c(op)) { - case BCMvar: - copyTV(J->L, rcv, &lbase[rc]); ix.key = rc = getslot(J, rc); break; - case BCMpri: setpriV(rcv, ~rc); ix.key = rc = TREF_PRI(IRT_NIL+rc); break; - case BCMnum: { cTValue *tv = proto_knumtv(J->pt, rc); - copyTV(J->L, rcv, tv); ix.key = rc = tvisint(tv) ? lj_ir_kint(J, intV(tv)) : - lj_ir_knumint(J, numV(tv)); } break; - case BCMstr: { GCstr *s = gco2str(proto_kgc(J->pt, ~(ptrdiff_t)rc)); - setstrV(J->L, rcv, s); ix.key = rc = lj_ir_kstr(J, s); } break; - default: break; /* Handled later. */ - } - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: -#if LJ_HASFFI - if (tref_iscdata(ra) || tref_iscdata(rc)) { - rec_mm_comp_cdata(J, &ix, op, ((int)op & 2) ? MM_le : MM_lt); - break; - } -#endif - /* Emit nothing for two numeric or string consts. */ - if (!(tref_isk2(ra,rc) && tref_isnumber_str(ra) && tref_isnumber_str(rc))) { - IRType ta = tref_isinteger(ra) ? IRT_INT : tref_type(ra); - IRType tc = tref_isinteger(rc) ? IRT_INT : tref_type(rc); - int irop; - if (ta != tc) { - /* Widen mixed number/int comparisons to number/number comparison. */ - if (ta == IRT_INT && tc == IRT_NUM) { - ra = emitir(IRTN(IR_CONV), ra, IRCONV_NUM_INT); - ta = IRT_NUM; - } else if (ta == IRT_NUM && tc == IRT_INT) { - rc = emitir(IRTN(IR_CONV), rc, IRCONV_NUM_INT); - } else if (LJ_52) { - ta = IRT_NIL; /* Force metamethod for different types. */ - } else if (!((ta == IRT_FALSE || ta == IRT_TRUE) && - (tc == IRT_FALSE || tc == IRT_TRUE))) { - break; /* Interpreter will throw for two different types. */ - } - } - rec_comp_prep(J); - irop = (int)op - (int)BC_ISLT + (int)IR_LT; - if (ta == IRT_NUM) { - if ((irop & 1)) irop ^= 4; /* ISGE/ISGT are unordered. */ - if (!lj_ir_numcmp(numberVnum(rav), numberVnum(rcv), (IROp)irop)) - irop ^= 5; - } else if (ta == IRT_INT) { - if (!lj_ir_numcmp(numberVnum(rav), numberVnum(rcv), (IROp)irop)) - irop ^= 1; - } else if (ta == IRT_STR) { - if (!lj_ir_strcmp(strV(rav), strV(rcv), (IROp)irop)) irop ^= 1; - ra = lj_ir_call(J, IRCALL_lj_str_cmp, ra, rc); - rc = lj_ir_kint(J, 0); - ta = IRT_INT; - } else { - rec_mm_comp(J, &ix, (int)op); - break; - } - emitir(IRTG(irop, ta), ra, rc); - rec_comp_fixup(J, J->pc, ((int)op ^ irop) & 1); - } - break; - - case BC_ISEQV: case BC_ISNEV: - case BC_ISEQS: case BC_ISNES: - case BC_ISEQN: case BC_ISNEN: - case BC_ISEQP: case BC_ISNEP: -#if LJ_HASFFI - if (tref_iscdata(ra) || tref_iscdata(rc)) { - rec_mm_comp_cdata(J, &ix, op, MM_eq); - break; - } -#endif - /* Emit nothing for two non-table, non-udata consts. */ - if (!(tref_isk2(ra, rc) && !(tref_istab(ra) || tref_isudata(ra)))) { - int diff; - rec_comp_prep(J); - diff = lj_record_objcmp(J, ra, rc, rav, rcv); - if (diff == 2 || !(tref_istab(ra) || tref_isudata(ra))) - rec_comp_fixup(J, J->pc, ((int)op & 1) == !diff); - else if (diff == 1) /* Only check __eq if different, but same type. */ - rec_mm_equal(J, &ix, (int)op); - } - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: - if ((op & 1) == tref_istruecond(rc)) - rc = 0; /* Don't store if condition is not true. */ - /* fallthrough */ - case BC_IST: case BC_ISF: /* Type specialization suffices. */ - if (bc_a(pc[1]) < J->maxslot) - J->maxslot = bc_a(pc[1]); /* Shrink used slots. */ - break; - - case BC_ISTYPE: case BC_ISNUM: - /* These coercions need to correspond with lj_meta_istype(). */ - if (LJ_DUALNUM && rc == ~LJ_TNUMX+1) - ra = lj_opt_narrow_toint(J, ra); - else if (rc == ~LJ_TNUMX+2) - ra = lj_ir_tonum(J, ra); - else if (rc == ~LJ_TSTR+1) - ra = lj_ir_tostr(J, ra); - /* else: type specialization suffices. */ - J->base[bc_a(ins)] = ra; - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_NOT: - /* Type specialization already forces const result. */ - rc = tref_istruecond(rc) ? TREF_FALSE : TREF_TRUE; - break; - - case BC_LEN: - if (tref_isstr(rc)) - rc = emitir(IRTI(IR_FLOAD), rc, IRFL_STR_LEN); - else if (!LJ_52 && tref_istab(rc)) - rc = lj_ir_call(J, IRCALL_lj_tab_len, rc); - else - rc = rec_mm_len(J, rc, rcv); - break; - - /* -- Arithmetic ops ---------------------------------------------------- */ - - case BC_UNM: - if (tref_isnumber_str(rc)) { - rc = lj_opt_narrow_unm(J, rc, rcv); - } else { - ix.tab = rc; - copyTV(J->L, &ix.tabv, rcv); - rc = rec_mm_arith(J, &ix, MM_unm); - } - break; - - case BC_ADDNV: case BC_SUBNV: case BC_MULNV: case BC_DIVNV: case BC_MODNV: - /* Swap rb/rc and rbv/rcv. rav is temp. */ - ix.tab = rc; ix.key = rc = rb; rb = ix.tab; - copyTV(J->L, rav, rbv); - copyTV(J->L, rbv, rcv); - copyTV(J->L, rcv, rav); - if (op == BC_MODNV) - goto recmod; - /* fallthrough */ - case BC_ADDVN: case BC_SUBVN: case BC_MULVN: case BC_DIVVN: - case BC_ADDVV: case BC_SUBVV: case BC_MULVV: case BC_DIVVV: { - MMS mm = bcmode_mm(op); - if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) - rc = lj_opt_narrow_arith(J, rb, rc, rbv, rcv, - (int)mm - (int)MM_add + (int)IR_ADD); - else - rc = rec_mm_arith(J, &ix, mm); - break; - } - - case BC_MODVN: case BC_MODVV: - recmod: - if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) - rc = lj_opt_narrow_mod(J, rb, rc, rcv); - else - rc = rec_mm_arith(J, &ix, MM_mod); - break; - - case BC_POW: - if (tref_isnumber_str(rb) && tref_isnumber_str(rc)) - rc = lj_opt_narrow_pow(J, lj_ir_tonum(J, rb), rc, rcv); - else - rc = rec_mm_arith(J, &ix, MM_pow); - break; - - /* -- Miscellaneous ops ------------------------------------------------- */ - - case BC_CAT: - rc = rec_cat(J, rb, rc); - break; - - /* -- Constant and move ops --------------------------------------------- */ - - case BC_MOV: - /* Clear gap of method call to avoid resurrecting previous refs. */ - if (ra > J->maxslot) J->base[ra-1] = 0; - break; - case BC_KSTR: case BC_KNUM: case BC_KPRI: - break; - case BC_KSHORT: - rc = lj_ir_kint(J, (int32_t)(int16_t)rc); - break; - case BC_KNIL: - while (ra <= rc) - J->base[ra++] = TREF_NIL; - if (rc >= J->maxslot) J->maxslot = rc+1; - break; -#if LJ_HASFFI - case BC_KCDATA: - rc = lj_ir_kgc(J, proto_kgc(J->pt, ~(ptrdiff_t)rc), IRT_CDATA); - break; -#endif - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - rc = rec_upvalue(J, rc, 0); - break; - case BC_USETV: case BC_USETS: case BC_USETN: case BC_USETP: - rec_upvalue(J, ra, rc); - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_GGET: case BC_GSET: - settabV(J->L, &ix.tabv, tabref(J->fn->l.env)); - ix.tab = emitir(IRT(IR_FLOAD, IRT_TAB), getcurrf(J), IRFL_FUNC_ENV); - ix.idxchain = LJ_MAX_IDXCHAIN; - rc = lj_record_idx(J, &ix); - break; - - case BC_TGETB: case BC_TSETB: - setintV(&ix.keyv, (int32_t)rc); - ix.key = lj_ir_kint(J, (int32_t)rc); - /* fallthrough */ - case BC_TGETV: case BC_TGETS: case BC_TSETV: case BC_TSETS: - ix.idxchain = LJ_MAX_IDXCHAIN; - rc = lj_record_idx(J, &ix); - break; - case BC_TGETR: case BC_TSETR: - ix.idxchain = 0; - rc = lj_record_idx(J, &ix); - break; - - case BC_TSETM: - rec_tsetm(J, ra, (BCReg)(J->L->top - J->L->base), (int32_t)rcv->u32.lo); - break; - - case BC_TNEW: - rc = rec_tnew(J, rc); - break; - case BC_TDUP: - rc = emitir(IRTG(IR_TDUP, IRT_TAB), - lj_ir_ktab(J, gco2tab(proto_kgc(J->pt, ~(ptrdiff_t)rc))), 0); - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_ITERC: - J->base[ra] = getslot(J, ra-3-LJ_FR2); - J->base[ra+1] = getslot(J, ra-2-LJ_FR2); - J->base[ra+2] = getslot(J, ra-1-LJ_FR2); - { /* Do the actual copy now because lj_record_call needs the values. */ - TValue *b = &J->L->base[ra]; - copyTV(J->L, b, b-3-LJ_FR2); - copyTV(J->L, b+1, b-2-LJ_FR2); - copyTV(J->L, b+2, b-1-LJ_FR2); - } - lj_record_call(J, ra, (ptrdiff_t)rc-1); - break; - - /* L->top is set to L->base+ra+rc+NARGS-1+1. See lj_dispatch_ins(). */ - case BC_CALLM: - rc = (BCReg)(J->L->top - J->L->base) - ra - LJ_FR2; - /* fallthrough */ - case BC_CALL: - lj_record_call(J, ra, (ptrdiff_t)rc-1); - break; - - case BC_CALLMT: - rc = (BCReg)(J->L->top - J->L->base) - ra - LJ_FR2; - /* fallthrough */ - case BC_CALLT: - lj_record_tailcall(J, ra, (ptrdiff_t)rc-1); - break; - - case BC_VARG: - rec_varg(J, ra, (ptrdiff_t)rb-1); - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - /* L->top is set to L->base+ra+rc+NRESULTS-1, see lj_dispatch_ins(). */ - rc = (BCReg)(J->L->top - J->L->base) - ra + 1; - /* fallthrough */ - case BC_RET: case BC_RET0: case BC_RET1: -#if LJ_HASPROFILE - rec_profile_ret(J); -#endif - lj_record_ret(J, ra, (ptrdiff_t)rc-1); - break; - - /* -- Loops and branches ------------------------------------------------ */ - - case BC_FORI: - if (rec_for(J, pc, 0) != LOOPEV_LEAVE) - J->loopref = J->cur.nins; - break; - case BC_JFORI: - lua_assert(bc_op(pc[(ptrdiff_t)rc-BCBIAS_J]) == BC_JFORL); - if (rec_for(J, pc, 0) != LOOPEV_LEAVE) /* Link to existing loop. */ - lj_record_stop(J, LJ_TRLINK_ROOT, bc_d(pc[(ptrdiff_t)rc-BCBIAS_J])); - /* Continue tracing if the loop is not entered. */ - break; - - case BC_FORL: - rec_loop_interp(J, pc, rec_for(J, pc+((ptrdiff_t)rc-BCBIAS_J), 1)); - break; - case BC_ITERL: - rec_loop_interp(J, pc, rec_iterl(J, *pc)); - break; - case BC_LOOP: - rec_loop_interp(J, pc, rec_loop(J, ra)); - break; - - case BC_JFORL: - rec_loop_jit(J, rc, rec_for(J, pc+bc_j(traceref(J, rc)->startins), 1)); - break; - case BC_JITERL: - rec_loop_jit(J, rc, rec_iterl(J, traceref(J, rc)->startins)); - break; - case BC_JLOOP: - rec_loop_jit(J, rc, rec_loop(J, ra)); - break; - - case BC_IFORL: - case BC_IITERL: - case BC_ILOOP: - case BC_IFUNCF: - case BC_IFUNCV: - lj_trace_err(J, LJ_TRERR_BLACKL); - break; - - case BC_JMP: - if (ra < J->maxslot) - J->maxslot = ra; /* Shrink used slots. */ - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - rec_func_lua(J); - break; - case BC_JFUNCF: - rec_func_jit(J, rc); - break; - - case BC_FUNCV: - rec_func_vararg(J); - rec_func_lua(J); - break; - case BC_JFUNCV: - lua_assert(0); /* Cannot happen. No hotcall counting for varag funcs. */ - break; - - case BC_FUNCC: - case BC_FUNCCW: - lj_ffrecord_func(J); - break; - - default: - if (op >= BC__MAX) { - lj_ffrecord_func(J); - break; - } - /* fallthrough */ - case BC_ITERN: - case BC_ISNEXT: - case BC_UCLO: - case BC_FNEW: - setintV(&J->errinfo, (int32_t)op); - lj_trace_err_info(J, LJ_TRERR_NYIBC); - break; - } - - /* rc == 0 if we have no result yet, e.g. pending __index metamethod call. */ - if (bcmode_a(op) == BCMdst && rc) { - J->base[ra] = rc; - if (ra >= J->maxslot) J->maxslot = ra+1; - } - -#undef rav -#undef rbv -#undef rcv - - /* Limit the number of recorded IR instructions. */ - if (J->cur.nins > REF_FIRST+(IRRef)J->param[JIT_P_maxrecord]) - lj_trace_err(J, LJ_TRERR_TRACEOV); -} - -/* -- Recording setup ----------------------------------------------------- */ - -/* Setup recording for a root trace started by a hot loop. */ -static const BCIns *rec_setup_root(jit_State *J) -{ - /* Determine the next PC and the bytecode range for the loop. */ - const BCIns *pcj, *pc = J->pc; - BCIns ins = *pc; - BCReg ra = bc_a(ins); - switch (bc_op(ins)) { - case BC_FORL: - J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); - pc += 1+bc_j(ins); - J->bc_min = pc; - break; - case BC_ITERL: - lua_assert(bc_op(pc[-1]) == BC_ITERC); - J->maxslot = ra + bc_b(pc[-1]) - 1; - J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); - pc += 1+bc_j(ins); - lua_assert(bc_op(pc[-1]) == BC_JMP); - J->bc_min = pc; - break; - case BC_LOOP: - /* Only check BC range for real loops, but not for "repeat until true". */ - pcj = pc + bc_j(ins); - ins = *pcj; - if (bc_op(ins) == BC_JMP && bc_j(ins) < 0) { - J->bc_min = pcj+1 + bc_j(ins); - J->bc_extent = (MSize)(-bc_j(ins))*sizeof(BCIns); - } - J->maxslot = ra; - pc++; - break; - case BC_RET: - case BC_RET0: - case BC_RET1: - /* No bytecode range check for down-recursive root traces. */ - J->maxslot = ra + bc_d(ins) - 1; - break; - case BC_FUNCF: - /* No bytecode range check for root traces started by a hot call. */ - J->maxslot = J->pt->numparams; - pc++; - break; - case BC_CALLM: - case BC_CALL: - case BC_ITERC: - /* No bytecode range check for stitched traces. */ - pc++; - break; - default: - lua_assert(0); - break; - } - return pc; -} - -/* Setup for recording a new trace. */ -void lj_record_setup(jit_State *J) -{ - uint32_t i; - - /* Initialize state related to current trace. */ - memset(J->slot, 0, sizeof(J->slot)); - memset(J->chain, 0, sizeof(J->chain)); - memset(J->bpropcache, 0, sizeof(J->bpropcache)); - J->scev.idx = REF_NIL; - setmref(J->scev.pc, NULL); - - J->baseslot = 1; /* Invoking function is at base[-1]. */ - J->base = J->slot + J->baseslot; - J->maxslot = 0; - J->framedepth = 0; - J->retdepth = 0; - - J->instunroll = J->param[JIT_P_instunroll]; - J->loopunroll = J->param[JIT_P_loopunroll]; - J->tailcalled = 0; - J->loopref = 0; - - J->bc_min = NULL; /* Means no limit. */ - J->bc_extent = ~(MSize)0; - - /* Emit instructions for fixed references. Also triggers initial IR alloc. */ - emitir_raw(IRT(IR_BASE, IRT_P32), J->parent, J->exitno); - for (i = 0; i <= 2; i++) { - IRIns *ir = IR(REF_NIL-i); - ir->i = 0; - ir->t.irt = (uint8_t)(IRT_NIL+i); - ir->o = IR_KPRI; - ir->prev = 0; - } - J->cur.nk = REF_TRUE; - - J->startpc = J->pc; - setmref(J->cur.startpc, J->pc); - if (J->parent) { /* Side trace. */ - GCtrace *T = traceref(J, J->parent); - TraceNo root = T->root ? T->root : J->parent; - J->cur.root = (uint16_t)root; - J->cur.startins = BCINS_AD(BC_JMP, 0, 0); - /* Check whether we could at least potentially form an extra loop. */ - if (J->exitno == 0 && T->snap[0].nent == 0) { - /* We can narrow a FORL for some side traces, too. */ - if (J->pc > proto_bc(J->pt) && bc_op(J->pc[-1]) == BC_JFORI && - bc_d(J->pc[bc_j(J->pc[-1])-1]) == root) { - lj_snap_add(J); - rec_for_loop(J, J->pc-1, &J->scev, 1); - goto sidecheck; - } - } else { - J->startpc = NULL; /* Prevent forming an extra loop. */ - } - lj_snap_replay(J, T); - sidecheck: - if (traceref(J, J->cur.root)->nchild >= J->param[JIT_P_maxside] || - T->snap[J->exitno].count >= J->param[JIT_P_hotexit] + - J->param[JIT_P_tryside]) { - lj_record_stop(J, LJ_TRLINK_INTERP, 0); - } - } else { /* Root trace. */ - J->cur.root = 0; - J->cur.startins = *J->pc; - J->pc = rec_setup_root(J); - /* Note: the loop instruction itself is recorded at the end and not - ** at the start! So snapshot #0 needs to point to the *next* instruction. - */ - lj_snap_add(J); - if (bc_op(J->cur.startins) == BC_FORL) - rec_for_loop(J, J->pc-1, &J->scev, 1); - else if (bc_op(J->cur.startins) == BC_ITERC) - J->startpc = NULL; - if (1 + J->pt->framesize >= LJ_MAX_JSLOTS) - lj_trace_err(J, LJ_TRERR_STACKOV); - } -#if LJ_HASPROFILE - J->prev_pt = NULL; - J->prev_line = -1; -#endif -#ifdef LUAJIT_ENABLE_CHECKHOOK - /* Regularly check for instruction/line hooks from compiled code and - ** exit to the interpreter if the hooks are set. - ** - ** This is a compile-time option and disabled by default, since the - ** hook checks may be quite expensive in tight loops. - ** - ** Note this is only useful if hooks are *not* set most of the time. - ** Use this only if you want to *asynchronously* interrupt the execution. - ** - ** You can set the instruction hook via lua_sethook() with a count of 1 - ** from a signal handler or another native thread. Please have a look - ** at the first few functions in luajit.c for an example (Ctrl-C handler). - */ - { - TRef tr = emitir(IRT(IR_XLOAD, IRT_U8), - lj_ir_kptr(J, &J2G(J)->hookmask), IRXLOAD_VOLATILE); - tr = emitir(IRTI(IR_BAND), tr, lj_ir_kint(J, (LUA_MASKLINE|LUA_MASKCOUNT))); - emitir(IRTGI(IR_EQ), tr, lj_ir_kint(J, 0)); - } -#endif -} - -#undef IR -#undef emitir_raw -#undef emitir - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_record.h b/src/3rd party/luajit-2.0-BAK/src/lj_record.h deleted file mode 100644 index 732adb47ce2..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_record.h +++ /dev/null @@ -1,45 +0,0 @@ -/* -** Trace recorder (bytecode -> SSA IR). -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_RECORD_H -#define _LJ_RECORD_H - -#include "lj_obj.h" -#include "lj_jit.h" - -#if LJ_HASJIT -/* Context for recording an indexed load/store. */ -typedef struct RecordIndex { - TValue tabv; /* Runtime value of table (or indexed object). */ - TValue keyv; /* Runtime value of key. */ - TValue valv; /* Runtime value of stored value. */ - TValue mobjv; /* Runtime value of metamethod object. */ - GCtab *mtv; /* Runtime value of metatable object. */ - cTValue *oldv; /* Runtime value of previously stored value. */ - TRef tab; /* Table (or indexed object) reference. */ - TRef key; /* Key reference. */ - TRef val; /* Value reference for a store or 0 for a load. */ - TRef mt; /* Metatable reference. */ - TRef mobj; /* Metamethod object reference. */ - int idxchain; /* Index indirections left or 0 for raw lookup. */ -} RecordIndex; - -LJ_FUNC int lj_record_objcmp(jit_State *J, TRef a, TRef b, - cTValue *av, cTValue *bv); -LJ_FUNC void lj_record_stop(jit_State *J, TraceLink linktype, TraceNo lnk); -LJ_FUNC TRef lj_record_constify(jit_State *J, cTValue *o); - -LJ_FUNC void lj_record_call(jit_State *J, BCReg func, ptrdiff_t nargs); -LJ_FUNC void lj_record_tailcall(jit_State *J, BCReg func, ptrdiff_t nargs); -LJ_FUNC void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults); - -LJ_FUNC int lj_record_mm_lookup(jit_State *J, RecordIndex *ix, MMS mm); -LJ_FUNC TRef lj_record_idx(jit_State *J, RecordIndex *ix); - -LJ_FUNC void lj_record_ins(jit_State *J); -LJ_FUNC void lj_record_setup(jit_State *J); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_snap.c b/src/3rd party/luajit-2.0-BAK/src/lj_snap.c deleted file mode 100644 index d8e7987c5c2..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_snap.c +++ /dev/null @@ -1,870 +0,0 @@ -/* -** Snapshot handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_snap_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_gc.h" -#include "lj_tab.h" -#include "lj_state.h" -#include "lj_frame.h" -#include "lj_bc.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_trace.h" -#include "lj_snap.h" -#include "lj_target.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#include "lj_cdata.h" -#endif - -/* Some local macros to save typing. Undef'd at the end. */ -#define IR(ref) (&J->cur.ir[(ref)]) - -/* Pass IR on to next optimization in chain (FOLD). */ -#define emitir(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_opt_fold(J)) - -/* Emit raw IR without passing through optimizations. */ -#define emitir_raw(ot, a, b) (lj_ir_set(J, (ot), (a), (b)), lj_ir_emit(J)) - -/* -- Snapshot buffer allocation ------------------------------------------ */ - -/* Grow snapshot buffer. */ -void lj_snap_grow_buf_(jit_State *J, MSize need) -{ - MSize maxsnap = (MSize)J->param[JIT_P_maxsnap]; - if (need > maxsnap) - lj_trace_err(J, LJ_TRERR_SNAPOV); - lj_mem_growvec(J->L, J->snapbuf, J->sizesnap, maxsnap, SnapShot); - J->cur.snap = J->snapbuf; -} - -/* Grow snapshot map buffer. */ -void lj_snap_grow_map_(jit_State *J, MSize need) -{ - if (need < 2*J->sizesnapmap) - need = 2*J->sizesnapmap; - else if (need < 64) - need = 64; - J->snapmapbuf = (SnapEntry *)lj_mem_realloc(J->L, J->snapmapbuf, - J->sizesnapmap*sizeof(SnapEntry), need*sizeof(SnapEntry)); - J->cur.snapmap = J->snapmapbuf; - J->sizesnapmap = need; -} - -/* -- Snapshot generation ------------------------------------------------- */ - -/* Add all modified slots to the snapshot. */ -static MSize snapshot_slots(jit_State *J, SnapEntry *map, BCReg nslots) -{ - IRRef retf = J->chain[IR_RETF]; /* Limits SLOAD restore elimination. */ - BCReg s; - MSize n = 0; - for (s = 0; s < nslots; s++) { - TRef tr = J->slot[s]; - IRRef ref = tref_ref(tr); - if (ref) { - SnapEntry sn = SNAP_TR(s, tr); - IRIns *ir = IR(ref); - if (!(sn & (SNAP_CONT|SNAP_FRAME)) && - ir->o == IR_SLOAD && ir->op1 == s && ref > retf) { - /* No need to snapshot unmodified non-inherited slots. */ - if (!(ir->op2 & IRSLOAD_INHERIT)) - continue; - /* No need to restore readonly slots and unmodified non-parent slots. */ - if (!(LJ_DUALNUM && (ir->op2 & IRSLOAD_CONVERT)) && - (ir->op2 & (IRSLOAD_READONLY|IRSLOAD_PARENT)) != IRSLOAD_PARENT) - sn |= SNAP_NORESTORE; - } - if (LJ_SOFTFP && irt_isnum(ir->t)) - sn |= SNAP_SOFTFPNUM; - map[n++] = sn; - } - } - return n; -} - -/* Add frame links at the end of the snapshot. */ -static BCReg snapshot_framelinks(jit_State *J, SnapEntry *map) -{ - cTValue *frame = J->L->base - 1; - cTValue *lim = J->L->base - J->baseslot; - GCfunc *fn = frame_func(frame); - cTValue *ftop = isluafunc(fn) ? (frame+funcproto(fn)->framesize) : J->L->top; - MSize f = 0; - lua_assert(!LJ_FR2); /* TODO_FR2: store 64 bit PCs. */ - map[f++] = SNAP_MKPC(J->pc); /* The current PC is always the first entry. */ - while (frame > lim) { /* Backwards traversal of all frames above base. */ - if (frame_islua(frame)) { - map[f++] = SNAP_MKPC(frame_pc(frame)); - frame = frame_prevl(frame); - } else if (frame_iscont(frame)) { - map[f++] = SNAP_MKFTSZ(frame_ftsz(frame)); - map[f++] = SNAP_MKPC(frame_contpc(frame)); - frame = frame_prevd(frame); - } else { - lua_assert(!frame_isc(frame)); - map[f++] = SNAP_MKFTSZ(frame_ftsz(frame)); - frame = frame_prevd(frame); - continue; - } - if (frame + funcproto(frame_func(frame))->framesize > ftop) - ftop = frame + funcproto(frame_func(frame))->framesize; - } - lua_assert(f == (MSize)(1 + J->framedepth)); - return (BCReg)(ftop - lim); -} - -/* Take a snapshot of the current stack. */ -static void snapshot_stack(jit_State *J, SnapShot *snap, MSize nsnapmap) -{ - BCReg nslots = J->baseslot + J->maxslot; - MSize nent; - SnapEntry *p; - /* Conservative estimate. */ - lj_snap_grow_map(J, nsnapmap + nslots + (MSize)J->framedepth+1); - p = &J->cur.snapmap[nsnapmap]; - nent = snapshot_slots(J, p, nslots); - snap->topslot = (uint8_t)snapshot_framelinks(J, p + nent); - snap->mapofs = (uint16_t)nsnapmap; - snap->ref = (IRRef1)J->cur.nins; - snap->nent = (uint8_t)nent; - snap->nslots = (uint8_t)nslots; - snap->count = 0; - J->cur.nsnapmap = (uint16_t)(nsnapmap + nent + 1 + J->framedepth); -} - -/* Add or merge a snapshot. */ -void lj_snap_add(jit_State *J) -{ - MSize nsnap = J->cur.nsnap; - MSize nsnapmap = J->cur.nsnapmap; - /* Merge if no ins. inbetween or if requested and no guard inbetween. */ - if (J->mergesnap ? !irt_isguard(J->guardemit) : - (nsnap > 0 && J->cur.snap[nsnap-1].ref == J->cur.nins)) { - if (nsnap == 1) { /* But preserve snap #0 PC. */ - emitir_raw(IRT(IR_NOP, IRT_NIL), 0, 0); - goto nomerge; - } - nsnapmap = J->cur.snap[--nsnap].mapofs; - } else { - nomerge: - lj_snap_grow_buf(J, nsnap+1); - J->cur.nsnap = (uint16_t)(nsnap+1); - } - J->mergesnap = 0; - J->guardemit.irt = 0; - snapshot_stack(J, &J->cur.snap[nsnap], nsnapmap); -} - -/* -- Snapshot modification ----------------------------------------------- */ - -#define SNAP_USEDEF_SLOTS (LJ_MAX_JSLOTS+LJ_STACK_EXTRA) - -/* Find unused slots with reaching-definitions bytecode data-flow analysis. */ -static BCReg snap_usedef(jit_State *J, uint8_t *udf, - const BCIns *pc, BCReg maxslot) -{ - BCReg s; - GCobj *o; - - if (maxslot == 0) return 0; -#ifdef LUAJIT_USE_VALGRIND - /* Avoid errors for harmless reads beyond maxslot. */ - memset(udf, 1, SNAP_USEDEF_SLOTS); -#else - memset(udf, 1, maxslot); -#endif - - /* Treat open upvalues as used. */ - o = gcref(J->L->openupval); - while (o) { - if (uvval(gco2uv(o)) < J->L->base) break; - udf[uvval(gco2uv(o)) - J->L->base] = 0; - o = gcref(o->gch.nextgc); - } - -#define USE_SLOT(s) udf[(s)] &= ~1 -#define DEF_SLOT(s) udf[(s)] *= 3 - - /* Scan through following bytecode and check for uses/defs. */ - lua_assert(pc >= proto_bc(J->pt) && pc < proto_bc(J->pt) + J->pt->sizebc); - for (;;) { - BCIns ins = *pc++; - BCOp op = bc_op(ins); - switch (bcmode_b(op)) { - case BCMvar: USE_SLOT(bc_b(ins)); break; - default: break; - } - switch (bcmode_c(op)) { - case BCMvar: USE_SLOT(bc_c(ins)); break; - case BCMrbase: - lua_assert(op == BC_CAT); - for (s = bc_b(ins); s <= bc_c(ins); s++) USE_SLOT(s); - for (; s < maxslot; s++) DEF_SLOT(s); - break; - case BCMjump: - handle_jump: { - BCReg minslot = bc_a(ins); - if (op >= BC_FORI && op <= BC_JFORL) minslot += FORL_EXT; - else if (op >= BC_ITERL && op <= BC_JITERL) minslot += bc_b(pc[-2])-1; - else if (op == BC_UCLO) { pc += bc_j(ins); break; } - for (s = minslot; s < maxslot; s++) DEF_SLOT(s); - return minslot < maxslot ? minslot : maxslot; - } - case BCMlit: - if (op == BC_JFORL || op == BC_JITERL || op == BC_JLOOP) { - goto handle_jump; - } else if (bc_isret(op)) { - BCReg top = op == BC_RETM ? maxslot : (bc_a(ins) + bc_d(ins)-1); - for (s = 0; s < bc_a(ins); s++) DEF_SLOT(s); - for (; s < top; s++) USE_SLOT(s); - for (; s < maxslot; s++) DEF_SLOT(s); - return 0; - } - break; - case BCMfunc: return maxslot; /* NYI: will abort, anyway. */ - default: break; - } - switch (bcmode_a(op)) { - case BCMvar: USE_SLOT(bc_a(ins)); break; - case BCMdst: - if (!(op == BC_ISTC || op == BC_ISFC)) DEF_SLOT(bc_a(ins)); - break; - case BCMbase: - if (op >= BC_CALLM && op <= BC_VARG) { - BCReg top = (op == BC_CALLM || op == BC_CALLMT || bc_c(ins) == 0) ? - maxslot : (bc_a(ins) + bc_c(ins)+LJ_FR2); - if (LJ_FR2) DEF_SLOT(bc_a(ins)+1); - s = bc_a(ins) - ((op == BC_ITERC || op == BC_ITERN) ? 3 : 0); - for (; s < top; s++) USE_SLOT(s); - for (; s < maxslot; s++) DEF_SLOT(s); - if (op == BC_CALLT || op == BC_CALLMT) { - for (s = 0; s < bc_a(ins); s++) DEF_SLOT(s); - return 0; - } - } else if (op == BC_KNIL) { - for (s = bc_a(ins); s <= bc_d(ins); s++) DEF_SLOT(s); - } else if (op == BC_TSETM) { - for (s = bc_a(ins)-1; s < maxslot; s++) USE_SLOT(s); - } - break; - default: break; - } - lua_assert(pc >= proto_bc(J->pt) && pc < proto_bc(J->pt) + J->pt->sizebc); - } - -#undef USE_SLOT -#undef DEF_SLOT - - return 0; /* unreachable */ -} - -/* Purge dead slots before the next snapshot. */ -void lj_snap_purge(jit_State *J) -{ - uint8_t udf[SNAP_USEDEF_SLOTS]; - BCReg maxslot = J->maxslot; - BCReg s = snap_usedef(J, udf, J->pc, maxslot); - for (; s < maxslot; s++) - if (udf[s] != 0) - J->base[s] = 0; /* Purge dead slots. */ -} - -/* Shrink last snapshot. */ -void lj_snap_shrink(jit_State *J) -{ - SnapShot *snap = &J->cur.snap[J->cur.nsnap-1]; - SnapEntry *map = &J->cur.snapmap[snap->mapofs]; - MSize n, m, nlim, nent = snap->nent; - uint8_t udf[SNAP_USEDEF_SLOTS]; - BCReg maxslot = J->maxslot; - BCReg minslot = snap_usedef(J, udf, snap_pc(map[nent]), maxslot); - BCReg baseslot = J->baseslot; - maxslot += baseslot; - minslot += baseslot; - snap->nslots = (uint8_t)maxslot; - for (n = m = 0; n < nent; n++) { /* Remove unused slots from snapshot. */ - BCReg s = snap_slot(map[n]); - if (s < minslot || (s < maxslot && udf[s-baseslot] == 0)) - map[m++] = map[n]; /* Only copy used slots. */ - } - snap->nent = (uint8_t)m; - nlim = J->cur.nsnapmap - snap->mapofs - 1; - while (n <= nlim) map[m++] = map[n++]; /* Move PC + frame links down. */ - J->cur.nsnapmap = (uint16_t)(snap->mapofs + m); /* Free up space in map. */ -} - -/* -- Snapshot access ----------------------------------------------------- */ - -/* Initialize a Bloom Filter with all renamed refs. -** There are very few renames (often none), so the filter has -** very few bits set. This makes it suitable for negative filtering. -*/ -static BloomFilter snap_renamefilter(GCtrace *T, SnapNo lim) -{ - BloomFilter rfilt = 0; - IRIns *ir; - for (ir = &T->ir[T->nins-1]; ir->o == IR_RENAME; ir--) - if (ir->op2 <= lim) - bloomset(rfilt, ir->op1); - return rfilt; -} - -/* Process matching renames to find the original RegSP. */ -static RegSP snap_renameref(GCtrace *T, SnapNo lim, IRRef ref, RegSP rs) -{ - IRIns *ir; - for (ir = &T->ir[T->nins-1]; ir->o == IR_RENAME; ir--) - if (ir->op1 == ref && ir->op2 <= lim) - rs = ir->prev; - return rs; -} - -/* Copy RegSP from parent snapshot to the parent links of the IR. */ -IRIns *lj_snap_regspmap(GCtrace *T, SnapNo snapno, IRIns *ir) -{ - SnapShot *snap = &T->snap[snapno]; - SnapEntry *map = &T->snapmap[snap->mapofs]; - BloomFilter rfilt = snap_renamefilter(T, snapno); - MSize n = 0; - IRRef ref = 0; - for ( ; ; ir++) { - uint32_t rs; - if (ir->o == IR_SLOAD) { - if (!(ir->op2 & IRSLOAD_PARENT)) break; - for ( ; ; n++) { - lua_assert(n < snap->nent); - if (snap_slot(map[n]) == ir->op1) { - ref = snap_ref(map[n++]); - break; - } - } - } else if (LJ_SOFTFP && ir->o == IR_HIOP) { - ref++; - } else if (ir->o == IR_PVAL) { - ref = ir->op1 + REF_BIAS; - } else { - break; - } - rs = T->ir[ref].prev; - if (bloomtest(rfilt, ref)) - rs = snap_renameref(T, snapno, ref, rs); - ir->prev = (uint16_t)rs; - lua_assert(regsp_used(rs)); - } - return ir; -} - -/* -- Snapshot replay ----------------------------------------------------- */ - -/* Replay constant from parent trace. */ -static TRef snap_replay_const(jit_State *J, IRIns *ir) -{ - /* Only have to deal with constants that can occur in stack slots. */ - switch ((IROp)ir->o) { - case IR_KPRI: return TREF_PRI(irt_type(ir->t)); - case IR_KINT: return lj_ir_kint(J, ir->i); - case IR_KGC: return lj_ir_kgc(J, ir_kgc(ir), irt_t(ir->t)); - case IR_KNUM: return lj_ir_k64(J, IR_KNUM, ir_knum(ir)); - case IR_KINT64: return lj_ir_k64(J, IR_KINT64, ir_kint64(ir)); - case IR_KPTR: return lj_ir_kptr(J, ir_kptr(ir)); /* Continuation. */ - default: lua_assert(0); return TREF_NIL; break; - } -} - -/* De-duplicate parent reference. */ -static TRef snap_dedup(jit_State *J, SnapEntry *map, MSize nmax, IRRef ref) -{ - MSize j; - for (j = 0; j < nmax; j++) - if (snap_ref(map[j]) == ref) - return J->slot[snap_slot(map[j])] & ~(SNAP_CONT|SNAP_FRAME); - return 0; -} - -/* Emit parent reference with de-duplication. */ -static TRef snap_pref(jit_State *J, GCtrace *T, SnapEntry *map, MSize nmax, - BloomFilter seen, IRRef ref) -{ - IRIns *ir = &T->ir[ref]; - TRef tr; - if (irref_isk(ref)) - tr = snap_replay_const(J, ir); - else if (!regsp_used(ir->prev)) - tr = 0; - else if (!bloomtest(seen, ref) || (tr = snap_dedup(J, map, nmax, ref)) == 0) - tr = emitir(IRT(IR_PVAL, irt_type(ir->t)), ref - REF_BIAS, 0); - return tr; -} - -/* Check whether a sunk store corresponds to an allocation. Slow path. */ -static int snap_sunk_store2(jit_State *J, IRIns *ira, IRIns *irs) -{ - if (irs->o == IR_ASTORE || irs->o == IR_HSTORE || - irs->o == IR_FSTORE || irs->o == IR_XSTORE) { - IRIns *irk = IR(irs->op1); - if (irk->o == IR_AREF || irk->o == IR_HREFK) - irk = IR(irk->op1); - return (IR(irk->op1) == ira); - } - return 0; -} - -/* Check whether a sunk store corresponds to an allocation. Fast path. */ -static LJ_AINLINE int snap_sunk_store(jit_State *J, IRIns *ira, IRIns *irs) -{ - if (irs->s != 255) - return (ira + irs->s == irs); /* Fast check. */ - return snap_sunk_store2(J, ira, irs); -} - -/* Replay snapshot state to setup side trace. */ -void lj_snap_replay(jit_State *J, GCtrace *T) -{ - SnapShot *snap = &T->snap[J->exitno]; - SnapEntry *map = &T->snapmap[snap->mapofs]; - MSize n, nent = snap->nent; - BloomFilter seen = 0; - int pass23 = 0; - J->framedepth = 0; - /* Emit IR for slots inherited from parent snapshot. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - BCReg s = snap_slot(sn); - IRRef ref = snap_ref(sn); - IRIns *ir = &T->ir[ref]; - TRef tr; - /* The bloom filter avoids O(nent^2) overhead for de-duping slots. */ - if (bloomtest(seen, ref) && (tr = snap_dedup(J, map, n, ref)) != 0) - goto setslot; - bloomset(seen, ref); - if (irref_isk(ref)) { - tr = snap_replay_const(J, ir); - } else if (!regsp_used(ir->prev)) { - pass23 = 1; - lua_assert(s != 0); - tr = s; - } else { - IRType t = irt_type(ir->t); - uint32_t mode = IRSLOAD_INHERIT|IRSLOAD_PARENT; - if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM)) t = IRT_NUM; - if (ir->o == IR_SLOAD) mode |= (ir->op2 & IRSLOAD_READONLY); - tr = emitir_raw(IRT(IR_SLOAD, t), s, mode); - } - setslot: - J->slot[s] = tr | (sn&(SNAP_CONT|SNAP_FRAME)); /* Same as TREF_* flags. */ - J->framedepth += ((sn & (SNAP_CONT|SNAP_FRAME)) && s); - if ((sn & SNAP_FRAME)) - J->baseslot = s+1; - } - if (pass23) { - IRIns *irlast = &T->ir[snap->ref]; - pass23 = 0; - /* Emit dependent PVALs. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - IRRef refp = snap_ref(sn); - IRIns *ir = &T->ir[refp]; - if (regsp_reg(ir->r) == RID_SUNK) { - if (J->slot[snap_slot(sn)] != snap_slot(sn)) continue; - pass23 = 1; - lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || - ir->o == IR_CNEW || ir->o == IR_CNEWI); - if (ir->op1 >= T->nk) snap_pref(J, T, map, nent, seen, ir->op1); - if (ir->op2 >= T->nk) snap_pref(J, T, map, nent, seen, ir->op2); - if (LJ_HASFFI && ir->o == IR_CNEWI) { - if (LJ_32 && refp+1 < T->nins && (ir+1)->o == IR_HIOP) - snap_pref(J, T, map, nent, seen, (ir+1)->op2); - } else { - IRIns *irs; - for (irs = ir+1; irs < irlast; irs++) - if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { - if (snap_pref(J, T, map, nent, seen, irs->op2) == 0) - snap_pref(J, T, map, nent, seen, T->ir[irs->op2].op1); - else if ((LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) && - irs+1 < irlast && (irs+1)->o == IR_HIOP) - snap_pref(J, T, map, nent, seen, (irs+1)->op2); - } - } - } else if (!irref_isk(refp) && !regsp_used(ir->prev)) { - lua_assert(ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); - J->slot[snap_slot(sn)] = snap_pref(J, T, map, nent, seen, ir->op1); - } - } - /* Replay sunk instructions. */ - for (n = 0; pass23 && n < nent; n++) { - SnapEntry sn = map[n]; - IRRef refp = snap_ref(sn); - IRIns *ir = &T->ir[refp]; - if (regsp_reg(ir->r) == RID_SUNK) { - TRef op1, op2; - if (J->slot[snap_slot(sn)] != snap_slot(sn)) { /* De-dup allocs. */ - J->slot[snap_slot(sn)] = J->slot[J->slot[snap_slot(sn)]]; - continue; - } - op1 = ir->op1; - if (op1 >= T->nk) op1 = snap_pref(J, T, map, nent, seen, op1); - op2 = ir->op2; - if (op2 >= T->nk) op2 = snap_pref(J, T, map, nent, seen, op2); - if (LJ_HASFFI && ir->o == IR_CNEWI) { - if (LJ_32 && refp+1 < T->nins && (ir+1)->o == IR_HIOP) { - lj_needsplit(J); /* Emit joining HIOP. */ - op2 = emitir_raw(IRT(IR_HIOP, IRT_I64), op2, - snap_pref(J, T, map, nent, seen, (ir+1)->op2)); - } - J->slot[snap_slot(sn)] = emitir(ir->ot, op1, op2); - } else { - IRIns *irs; - TRef tr = emitir(ir->ot, op1, op2); - J->slot[snap_slot(sn)] = tr; - for (irs = ir+1; irs < irlast; irs++) - if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { - IRIns *irr = &T->ir[irs->op1]; - TRef val, key = irr->op2, tmp = tr; - if (irr->o != IR_FREF) { - IRIns *irk = &T->ir[key]; - if (irr->o == IR_HREFK) - key = lj_ir_kslot(J, snap_replay_const(J, &T->ir[irk->op1]), - irk->op2); - else - key = snap_replay_const(J, irk); - if (irr->o == IR_HREFK || irr->o == IR_AREF) { - IRIns *irf = &T->ir[irr->op1]; - tmp = emitir(irf->ot, tmp, irf->op2); - } - } - tmp = emitir(irr->ot, tmp, key); - val = snap_pref(J, T, map, nent, seen, irs->op2); - if (val == 0) { - IRIns *irc = &T->ir[irs->op2]; - lua_assert(irc->o == IR_CONV && irc->op2 == IRCONV_NUM_INT); - val = snap_pref(J, T, map, nent, seen, irc->op1); - val = emitir(IRTN(IR_CONV), val, IRCONV_NUM_INT); - } else if ((LJ_SOFTFP || (LJ_32 && LJ_HASFFI)) && - irs+1 < irlast && (irs+1)->o == IR_HIOP) { - IRType t = IRT_I64; - if (LJ_SOFTFP && irt_type((irs+1)->t) == IRT_SOFTFP) - t = IRT_NUM; - lj_needsplit(J); - if (irref_isk(irs->op2) && irref_isk((irs+1)->op2)) { - uint64_t k = (uint32_t)T->ir[irs->op2].i + - ((uint64_t)T->ir[(irs+1)->op2].i << 32); - val = lj_ir_k64(J, t == IRT_I64 ? IR_KINT64 : IR_KNUM, - lj_ir_k64_find(J, k)); - } else { - val = emitir_raw(IRT(IR_HIOP, t), val, - snap_pref(J, T, map, nent, seen, (irs+1)->op2)); - } - tmp = emitir(IRT(irs->o, t), tmp, val); - continue; - } - tmp = emitir(irs->ot, tmp, val); - } else if (LJ_HASFFI && irs->o == IR_XBAR && ir->o == IR_CNEW) { - emitir(IRT(IR_XBAR, IRT_NIL), 0, 0); - } - } - } - } - } - J->base = J->slot + J->baseslot; - J->maxslot = snap->nslots - J->baseslot; - lj_snap_add(J); - if (pass23) /* Need explicit GC step _after_ initial snapshot. */ - emitir_raw(IRTG(IR_GCSTEP, IRT_NIL), 0, 0); -} - -/* -- Snapshot restore ---------------------------------------------------- */ - -static void snap_unsink(jit_State *J, GCtrace *T, ExitState *ex, - SnapNo snapno, BloomFilter rfilt, - IRIns *ir, TValue *o); - -/* Restore a value from the trace exit state. */ -static void snap_restoreval(jit_State *J, GCtrace *T, ExitState *ex, - SnapNo snapno, BloomFilter rfilt, - IRRef ref, TValue *o) -{ - IRIns *ir = &T->ir[ref]; - IRType1 t = ir->t; - RegSP rs = ir->prev; - if (irref_isk(ref)) { /* Restore constant slot. */ - lj_ir_kvalue(J->L, o, ir); - return; - } - if (LJ_UNLIKELY(bloomtest(rfilt, ref))) - rs = snap_renameref(T, snapno, ref, rs); - lua_assert(!LJ_GC64); /* TODO_GC64: handle 64 bit references. */ - if (ra_hasspill(regsp_spill(rs))) { /* Restore from spill slot. */ - int32_t *sps = &ex->spill[regsp_spill(rs)]; - if (irt_isinteger(t)) { - setintV(o, *sps); -#if !LJ_SOFTFP - } else if (irt_isnum(t)) { - o->u64 = *(uint64_t *)sps; -#endif - } else if (LJ_64 && irt_islightud(t)) { - /* 64 bit lightuserdata which may escape already has the tag bits. */ - o->u64 = *(uint64_t *)sps; - } else { - lua_assert(!irt_ispri(t)); /* PRI refs never have a spill slot. */ - setgcV(J->L, o, (GCobj *)(uintptr_t)*(GCSize *)sps, irt_toitype(t)); - } - } else { /* Restore from register. */ - Reg r = regsp_reg(rs); - if (ra_noreg(r)) { - lua_assert(ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); - snap_restoreval(J, T, ex, snapno, rfilt, ir->op1, o); - if (LJ_DUALNUM) setnumV(o, (lua_Number)intV(o)); - return; - } else if (irt_isinteger(t)) { - setintV(o, (int32_t)ex->gpr[r-RID_MIN_GPR]); -#if !LJ_SOFTFP - } else if (irt_isnum(t)) { - setnumV(o, ex->fpr[r-RID_MIN_FPR]); -#endif - } else if (LJ_64 && irt_islightud(t)) { - /* 64 bit lightuserdata which may escape already has the tag bits. */ - o->u64 = ex->gpr[r-RID_MIN_GPR]; - } else if (irt_ispri(t)) { - setpriV(o, irt_toitype(t)); - } else { - setgcV(J->L, o, (GCobj *)ex->gpr[r-RID_MIN_GPR], irt_toitype(t)); - } - } -} - -#if LJ_HASFFI -/* Restore raw data from the trace exit state. */ -static void snap_restoredata(GCtrace *T, ExitState *ex, - SnapNo snapno, BloomFilter rfilt, - IRRef ref, void *dst, CTSize sz) -{ - IRIns *ir = &T->ir[ref]; - RegSP rs = ir->prev; - int32_t *src; - uint64_t tmp; - if (irref_isk(ref)) { - if (ir->o == IR_KNUM || ir->o == IR_KINT64) { - src = mref(ir->ptr, int32_t); - } else if (sz == 8) { - tmp = (uint64_t)(uint32_t)ir->i; - src = (int32_t *)&tmp; - } else { - src = &ir->i; - } - } else { - if (LJ_UNLIKELY(bloomtest(rfilt, ref))) - rs = snap_renameref(T, snapno, ref, rs); - if (ra_hasspill(regsp_spill(rs))) { - src = &ex->spill[regsp_spill(rs)]; - if (sz == 8 && !irt_is64(ir->t)) { - tmp = (uint64_t)(uint32_t)*src; - src = (int32_t *)&tmp; - } - } else { - Reg r = regsp_reg(rs); - if (ra_noreg(r)) { - /* Note: this assumes CNEWI is never used for SOFTFP split numbers. */ - lua_assert(sz == 8 && ir->o == IR_CONV && ir->op2 == IRCONV_NUM_INT); - snap_restoredata(T, ex, snapno, rfilt, ir->op1, dst, 4); - *(lua_Number *)dst = (lua_Number)*(int32_t *)dst; - return; - } - src = (int32_t *)&ex->gpr[r-RID_MIN_GPR]; -#if !LJ_SOFTFP - if (r >= RID_MAX_GPR) { - src = (int32_t *)&ex->fpr[r-RID_MIN_FPR]; -#if LJ_TARGET_PPC - if (sz == 4) { /* PPC FPRs are always doubles. */ - *(float *)dst = (float)*(double *)src; - return; - } -#else - if (LJ_BE && sz == 4) src++; -#endif - } -#endif - } - } - lua_assert(sz == 1 || sz == 2 || sz == 4 || sz == 8); - if (sz == 4) *(int32_t *)dst = *src; - else if (sz == 8) *(int64_t *)dst = *(int64_t *)src; - else if (sz == 1) *(int8_t *)dst = (int8_t)*src; - else *(int16_t *)dst = (int16_t)*src; -} -#endif - -/* Unsink allocation from the trace exit state. Unsink sunk stores. */ -static void snap_unsink(jit_State *J, GCtrace *T, ExitState *ex, - SnapNo snapno, BloomFilter rfilt, - IRIns *ir, TValue *o) -{ - lua_assert(ir->o == IR_TNEW || ir->o == IR_TDUP || - ir->o == IR_CNEW || ir->o == IR_CNEWI); -#if LJ_HASFFI - if (ir->o == IR_CNEW || ir->o == IR_CNEWI) { - CTState *cts = ctype_cts(J->L); - CTypeID id = (CTypeID)T->ir[ir->op1].i; - CTSize sz = lj_ctype_size(cts, id); - GCcdata *cd = lj_cdata_new(cts, id, sz); - setcdataV(J->L, o, cd); - if (ir->o == IR_CNEWI) { - uint8_t *p = (uint8_t *)cdataptr(cd); - lua_assert(sz == 4 || sz == 8); - if (LJ_32 && sz == 8 && ir+1 < T->ir + T->nins && (ir+1)->o == IR_HIOP) { - snap_restoredata(T, ex, snapno, rfilt, (ir+1)->op2, LJ_LE?p+4:p, 4); - if (LJ_BE) p += 4; - sz = 4; - } - snap_restoredata(T, ex, snapno, rfilt, ir->op2, p, sz); - } else { - IRIns *irs, *irlast = &T->ir[T->snap[snapno].ref]; - for (irs = ir+1; irs < irlast; irs++) - if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { - IRIns *iro = &T->ir[T->ir[irs->op1].op2]; - uint8_t *p = (uint8_t *)cd; - CTSize szs; - lua_assert(irs->o == IR_XSTORE && T->ir[irs->op1].o == IR_ADD); - lua_assert(iro->o == IR_KINT || iro->o == IR_KINT64); - if (irt_is64(irs->t)) szs = 8; - else if (irt_isi8(irs->t) || irt_isu8(irs->t)) szs = 1; - else if (irt_isi16(irs->t) || irt_isu16(irs->t)) szs = 2; - else szs = 4; - if (LJ_64 && iro->o == IR_KINT64) - p += (int64_t)ir_k64(iro)->u64; - else - p += iro->i; - lua_assert(p >= (uint8_t *)cdataptr(cd) && - p + szs <= (uint8_t *)cdataptr(cd) + sz); - if (LJ_32 && irs+1 < T->ir + T->nins && (irs+1)->o == IR_HIOP) { - lua_assert(szs == 4); - snap_restoredata(T, ex, snapno, rfilt, (irs+1)->op2, LJ_LE?p+4:p,4); - if (LJ_BE) p += 4; - } - snap_restoredata(T, ex, snapno, rfilt, irs->op2, p, szs); - } - } - } else -#endif - { - IRIns *irs, *irlast; - GCtab *t = ir->o == IR_TNEW ? lj_tab_new(J->L, ir->op1, ir->op2) : - lj_tab_dup(J->L, ir_ktab(&T->ir[ir->op1])); - settabV(J->L, o, t); - irlast = &T->ir[T->snap[snapno].ref]; - for (irs = ir+1; irs < irlast; irs++) - if (irs->r == RID_SINK && snap_sunk_store(J, ir, irs)) { - IRIns *irk = &T->ir[irs->op1]; - TValue tmp, *val; - lua_assert(irs->o == IR_ASTORE || irs->o == IR_HSTORE || - irs->o == IR_FSTORE); - if (irk->o == IR_FREF) { - lua_assert(irk->op2 == IRFL_TAB_META); - snap_restoreval(J, T, ex, snapno, rfilt, irs->op2, &tmp); - /* NOBARRIER: The table is new (marked white). */ - setgcref(t->metatable, obj2gco(tabV(&tmp))); - } else { - irk = &T->ir[irk->op2]; - if (irk->o == IR_KSLOT) irk = &T->ir[irk->op1]; - lj_ir_kvalue(J->L, &tmp, irk); - val = lj_tab_set(J->L, t, &tmp); - /* NOBARRIER: The table is new (marked white). */ - snap_restoreval(J, T, ex, snapno, rfilt, irs->op2, val); - if (LJ_SOFTFP && irs+1 < T->ir + T->nins && (irs+1)->o == IR_HIOP) { - snap_restoreval(J, T, ex, snapno, rfilt, (irs+1)->op2, &tmp); - val->u32.hi = tmp.u32.lo; - } - } - } - } -} - -/* Restore interpreter state from exit state with the help of a snapshot. */ -const BCIns *lj_snap_restore(jit_State *J, void *exptr) -{ - ExitState *ex = (ExitState *)exptr; - SnapNo snapno = J->exitno; /* For now, snapno == exitno. */ - GCtrace *T = traceref(J, J->parent); - SnapShot *snap = &T->snap[snapno]; - MSize n, nent = snap->nent; - SnapEntry *map = &T->snapmap[snap->mapofs]; - SnapEntry *flinks = &T->snapmap[snap_nextofs(T, snap)-1]; - ptrdiff_t ftsz0; - TValue *frame; - BloomFilter rfilt = snap_renamefilter(T, snapno); - const BCIns *pc = snap_pc(map[nent]); - lua_State *L = J->L; - - /* Set interpreter PC to the next PC to get correct error messages. */ - setcframe_pc(cframe_raw(L->cframe), pc+1); - - /* Make sure the stack is big enough for the slots from the snapshot. */ - if (LJ_UNLIKELY(L->base + snap->topslot >= tvref(L->maxstack))) { - L->top = curr_topL(L); - lj_state_growstack(L, snap->topslot - curr_proto(L)->framesize); - } - - /* Fill stack slots with data from the registers and spill slots. */ - frame = L->base-1; - ftsz0 = frame_ftsz(frame); /* Preserve link to previous frame in slot #0. */ - for (n = 0; n < nent; n++) { - SnapEntry sn = map[n]; - if (!(sn & SNAP_NORESTORE)) { - TValue *o = &frame[snap_slot(sn)]; - IRRef ref = snap_ref(sn); - IRIns *ir = &T->ir[ref]; - if (ir->r == RID_SUNK) { - MSize j; - for (j = 0; j < n; j++) - if (snap_ref(map[j]) == ref) { /* De-duplicate sunk allocations. */ - copyTV(L, o, &frame[snap_slot(map[j])]); - goto dupslot; - } - snap_unsink(J, T, ex, snapno, rfilt, ir, o); - dupslot: - continue; - } - snap_restoreval(J, T, ex, snapno, rfilt, ref, o); - if (LJ_SOFTFP && (sn & SNAP_SOFTFPNUM) && tvisint(o)) { - TValue tmp; - snap_restoreval(J, T, ex, snapno, rfilt, ref+1, &tmp); - o->u32.hi = tmp.u32.lo; - } else if ((sn & (SNAP_CONT|SNAP_FRAME))) { - lua_assert(!LJ_FR2); /* TODO_FR2: store 64 bit PCs. */ - /* Overwrite tag with frame link. */ - setframe_ftsz(o, snap_slot(sn) != 0 ? (int32_t)*flinks-- : ftsz0); - L->base = o+1; - } - } - } - lua_assert(map + nent == flinks); - - /* Compute current stack top. */ - switch (bc_op(*pc)) { - default: - if (bc_op(*pc) < BC_FUNCF) { - L->top = curr_topL(L); - break; - } - /* fallthrough */ - case BC_CALLM: case BC_CALLMT: case BC_RETM: case BC_TSETM: - L->top = frame + snap->nslots; - break; - } - return pc; -} - -#undef IR -#undef emitir_raw -#undef emitir - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_snap.h b/src/3rd party/luajit-2.0-BAK/src/lj_snap.h deleted file mode 100644 index 9a125be7fb9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_snap.h +++ /dev/null @@ -1,34 +0,0 @@ -/* -** Snapshot handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_SNAP_H -#define _LJ_SNAP_H - -#include "lj_obj.h" -#include "lj_jit.h" - -#if LJ_HASJIT -LJ_FUNC void lj_snap_add(jit_State *J); -LJ_FUNC void lj_snap_purge(jit_State *J); -LJ_FUNC void lj_snap_shrink(jit_State *J); -LJ_FUNC IRIns *lj_snap_regspmap(GCtrace *T, SnapNo snapno, IRIns *ir); -LJ_FUNC void lj_snap_replay(jit_State *J, GCtrace *T); -LJ_FUNC const BCIns *lj_snap_restore(jit_State *J, void *exptr); -LJ_FUNC void lj_snap_grow_buf_(jit_State *J, MSize need); -LJ_FUNC void lj_snap_grow_map_(jit_State *J, MSize need); - -static LJ_AINLINE void lj_snap_grow_buf(jit_State *J, MSize need) -{ - if (LJ_UNLIKELY(need > J->sizesnap)) lj_snap_grow_buf_(J, need); -} - -static LJ_AINLINE void lj_snap_grow_map(jit_State *J, MSize need) -{ - if (LJ_UNLIKELY(need > J->sizesnapmap)) lj_snap_grow_map_(J, need); -} - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_state.c b/src/3rd party/luajit-2.0-BAK/src/lj_state.c deleted file mode 100644 index 84b4d113a2b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_state.c +++ /dev/null @@ -1,300 +0,0 @@ -/* -** State and stack handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_state_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_func.h" -#include "lj_meta.h" -#include "lj_state.h" -#include "lj_frame.h" -#if LJ_HASFFI -#include "lj_ctype.h" -#endif -#include "lj_trace.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_lex.h" -#include "lj_alloc.h" -#include "luajit.h" - -/* -- Stack handling ------------------------------------------------------ */ - -/* Stack sizes. */ -#define LJ_STACK_MIN LUA_MINSTACK /* Min. stack size. */ -#define LJ_STACK_MAX LUAI_MAXSTACK /* Max. stack size. */ -#define LJ_STACK_START (2*LJ_STACK_MIN) /* Starting stack size. */ -#define LJ_STACK_MAXEX (LJ_STACK_MAX + 1 + LJ_STACK_EXTRA) - -/* Explanation of LJ_STACK_EXTRA: -** -** Calls to metamethods store their arguments beyond the current top -** without checking for the stack limit. This avoids stack resizes which -** would invalidate passed TValue pointers. The stack check is performed -** later by the function header. This can safely resize the stack or raise -** an error. Thus we need some extra slots beyond the current stack limit. -** -** Most metamethods need 4 slots above top (cont, mobj, arg1, arg2) plus -** one extra slot if mobj is not a function. Only lj_meta_tset needs 5 -** slots above top, but then mobj is always a function. So we can get by -** with 5 extra slots. -** LJ_FR2: We need 2 more slots for the frame PC and the continuation PC. -*/ - -/* Resize stack slots and adjust pointers in state. */ -static void resizestack(lua_State *L, MSize n) -{ - TValue *st, *oldst = tvref(L->stack); - ptrdiff_t delta; - MSize oldsize = L->stacksize; - MSize realsize = n + 1 + LJ_STACK_EXTRA; - GCobj *up; - lua_assert((MSize)(tvref(L->maxstack)-oldst)==L->stacksize-LJ_STACK_EXTRA-1); - st = (TValue *)lj_mem_realloc(L, tvref(L->stack), - (MSize)(oldsize*sizeof(TValue)), - (MSize)(realsize*sizeof(TValue))); - setmref(L->stack, st); - delta = (char *)st - (char *)oldst; - setmref(L->maxstack, st + n); - while (oldsize < realsize) /* Clear new slots. */ - setnilV(st + oldsize++); - L->stacksize = realsize; - if ((size_t)(mref(G(L)->jit_base, char) - (char *)oldst) < oldsize) - setmref(G(L)->jit_base, mref(G(L)->jit_base, char) + delta); - L->base = (TValue *)((char *)L->base + delta); - L->top = (TValue *)((char *)L->top + delta); - for (up = gcref(L->openupval); up != NULL; up = gcnext(up)) - setmref(gco2uv(up)->v, (TValue *)((char *)uvval(gco2uv(up)) + delta)); -} - -/* Relimit stack after error, in case the limit was overdrawn. */ -void lj_state_relimitstack(lua_State *L) -{ - if (L->stacksize > LJ_STACK_MAXEX && L->top-tvref(L->stack) < LJ_STACK_MAX-1) - resizestack(L, LJ_STACK_MAX); -} - -/* Try to shrink the stack (called from GC). */ -void lj_state_shrinkstack(lua_State *L, MSize used) -{ - if (L->stacksize > LJ_STACK_MAXEX) - return; /* Avoid stack shrinking while handling stack overflow. */ - if (4*used < L->stacksize && - 2*(LJ_STACK_START+LJ_STACK_EXTRA) < L->stacksize && - /* Don't shrink stack of live trace. */ - (tvref(G(L)->jit_base) == NULL || obj2gco(L) != gcref(G(L)->cur_L))) - resizestack(L, L->stacksize >> 1); -} - -/* Try to grow stack. */ -void LJ_FASTCALL lj_state_growstack(lua_State *L, MSize need) -{ - MSize n; - if (L->stacksize > LJ_STACK_MAXEX) /* Overflow while handling overflow? */ - lj_err_throw(L, LUA_ERRERR); - n = L->stacksize + need; - if (n > LJ_STACK_MAX) { - n += 2*LUA_MINSTACK; - } else if (n < 2*L->stacksize) { - n = 2*L->stacksize; - if (n >= LJ_STACK_MAX) - n = LJ_STACK_MAX; - } - resizestack(L, n); - if (L->stacksize > LJ_STACK_MAXEX) - lj_err_msg(L, LJ_ERR_STKOV); -} - -void LJ_FASTCALL lj_state_growstack1(lua_State *L) -{ - lj_state_growstack(L, 1); -} - -/* Allocate basic stack for new state. */ -static void stack_init(lua_State *L1, lua_State *L) -{ - TValue *stend, *st = lj_mem_newvec(L, LJ_STACK_START+LJ_STACK_EXTRA, TValue); - setmref(L1->stack, st); - L1->stacksize = LJ_STACK_START + LJ_STACK_EXTRA; - stend = st + L1->stacksize; - setmref(L1->maxstack, stend - LJ_STACK_EXTRA - 1); - setthreadV(L1, st++, L1); /* Needed for curr_funcisL() on empty stack. */ - if (LJ_FR2) setnilV(st++); - L1->base = L1->top = st; - while (st < stend) /* Clear new slots. */ - setnilV(st++); -} - -/* -- State handling ------------------------------------------------------ */ - -/* Open parts that may cause memory-allocation errors. */ -static TValue *cpluaopen(lua_State *L, lua_CFunction dummy, void *ud) -{ - global_State *g = G(L); - UNUSED(dummy); - UNUSED(ud); - stack_init(L, L); - /* NOBARRIER: State initialization, all objects are white. */ - setgcref(L->env, obj2gco(lj_tab_new(L, 0, LJ_MIN_GLOBAL))); - settabV(L, registry(L), lj_tab_new(L, 0, LJ_MIN_REGISTRY)); - lj_str_resize(L, LJ_MIN_STRTAB-1); - lj_meta_init(L); - lj_lex_init(L); - fixstring(lj_err_str(L, LJ_ERR_ERRMEM)); /* Preallocate memory error msg. */ - g->gc.threshold = 4*g->gc.total; - lj_trace_initstate(g); - return NULL; -} - -static void close_state(lua_State *L) -{ - global_State *g = G(L); - lj_func_closeuv(L, tvref(L->stack)); - lj_gc_freeall(g); - lua_assert(gcref(g->gc.root) == obj2gco(L)); - lua_assert(g->strnum == 0); - lj_trace_freestate(g); -#if LJ_HASFFI - lj_ctype_freestate(g); -#endif - lj_mem_freevec(g, g->strhash, g->strmask+1, GCRef); - lj_buf_free(g, &g->tmpbuf); - lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); - lua_assert(g->gc.total == sizeof(GG_State)); -#ifndef LUAJIT_USE_SYSMALLOC - if (g->allocf == lj_alloc_f) - lj_alloc_destroy(g->allocd); - else -#endif - g->allocf(g->allocd, G2GG(g), sizeof(GG_State), 0); -} - -#if LJ_64 && !(defined(LUAJIT_USE_VALGRIND) && defined(LUAJIT_USE_SYSMALLOC)) -lua_State *lj_state_newstate(lua_Alloc f, void *ud) -#else -LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) -#endif -{ - GG_State *GG = (GG_State *)f(ud, NULL, 0, sizeof(GG_State)); - lua_State *L = &GG->L; - global_State *g = &GG->g; - if (GG == NULL || !checkptrGC(GG)) return NULL; - memset(GG, 0, sizeof(GG_State)); - L->gct = ~LJ_TTHREAD; - L->marked = LJ_GC_WHITE0 | LJ_GC_FIXED | LJ_GC_SFIXED; /* Prevent free. */ - L->dummy_ffid = FF_C; - setmref(L->glref, g); - g->gc.currentwhite = LJ_GC_WHITE0 | LJ_GC_FIXED; - g->strempty.marked = LJ_GC_WHITE0; - g->strempty.gct = ~LJ_TSTR; - g->allocf = f; - g->allocd = ud; - setgcref(g->mainthref, obj2gco(L)); - setgcref(g->uvhead.prev, obj2gco(&g->uvhead)); - setgcref(g->uvhead.next, obj2gco(&g->uvhead)); - g->strmask = ~(MSize)0; - setnilV(registry(L)); - setnilV(&g->nilnode.val); - setnilV(&g->nilnode.key); -#if !LJ_GC64 - setmref(g->nilnode.freetop, &g->nilnode); -#endif - lj_buf_init(NULL, &g->tmpbuf); - g->gc.state = GCSpause; - setgcref(g->gc.root, obj2gco(L)); - setmref(g->gc.sweep, &g->gc.root); - g->gc.total = sizeof(GG_State); - g->gc.pause = LUAI_GCPAUSE; - g->gc.stepmul = LUAI_GCMUL; - lj_dispatch_init((GG_State *)L); - L->status = LUA_ERRERR+1; /* Avoid touching the stack upon memory error. */ - if (lj_vm_cpcall(L, NULL, NULL, cpluaopen) != 0) { - /* Memory allocation error: free partial state. */ - close_state(L); - return NULL; - } - L->status = 0; - return L; -} - -static TValue *cpfinalize(lua_State *L, lua_CFunction dummy, void *ud) -{ - UNUSED(dummy); - UNUSED(ud); - lj_gc_finalize_cdata(L); - lj_gc_finalize_udata(L); - /* Frame pop omitted. */ - return NULL; -} - -LUA_API void lua_close(lua_State *L) -{ - global_State *g = G(L); - int i; - L = mainthread(g); /* Only the main thread can be closed. */ -#if LJ_HASPROFILE - luaJIT_profile_stop(L); -#endif - setgcrefnull(g->cur_L); - lj_func_closeuv(L, tvref(L->stack)); - lj_gc_separateudata(g, 1); /* Separate udata which have GC metamethods. */ -#if LJ_HASJIT - G2J(g)->flags &= ~JIT_F_ON; - G2J(g)->state = LJ_TRACE_IDLE; - lj_dispatch_update(g); -#endif - for (i = 0;;) { - hook_enter(g); - L->status = 0; - L->base = L->top = tvref(L->stack) + 1 + LJ_FR2; - L->cframe = NULL; - if (lj_vm_cpcall(L, NULL, NULL, cpfinalize) == 0) { - if (++i >= 10) break; - lj_gc_separateudata(g, 1); /* Separate udata again. */ - if (gcref(g->gc.mmudata) == NULL) /* Until nothing is left to do. */ - break; - } - } - close_state(L); -} - -lua_State *lj_state_new(lua_State *L) -{ - lua_State *L1 = lj_mem_newobj(L, lua_State); - L1->gct = ~LJ_TTHREAD; - L1->dummy_ffid = FF_C; - L1->status = 0; - L1->stacksize = 0; - setmref(L1->stack, NULL); - L1->cframe = NULL; - /* NOBARRIER: The lua_State is new (marked white). */ - setgcrefnull(L1->openupval); - setmrefr(L1->glref, L->glref); - setgcrefr(L1->env, L->env); - stack_init(L1, L); /* init stack */ - lua_assert(iswhite(obj2gco(L1))); - return L1; -} - -void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L) -{ - lua_assert(L != mainthread(g)); - if (obj2gco(L) == gcref(g->cur_L)) - setgcrefnull(g->cur_L); - lj_func_closeuv(L, tvref(L->stack)); - lua_assert(gcref(L->openupval) == NULL); - lj_mem_freevec(g, tvref(L->stack), L->stacksize, TValue); - lj_mem_freet(g, L); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_state.h b/src/3rd party/luajit-2.0-BAK/src/lj_state.h deleted file mode 100644 index 687889a2613..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_state.h +++ /dev/null @@ -1,35 +0,0 @@ -/* -** State and stack handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_STATE_H -#define _LJ_STATE_H - -#include "lj_obj.h" - -#define incr_top(L) \ - (++L->top >= tvref(L->maxstack) && (lj_state_growstack1(L), 0)) - -#define savestack(L, p) ((char *)(p) - mref(L->stack, char)) -#define restorestack(L, n) ((TValue *)(mref(L->stack, char) + (n))) - -LJ_FUNC void lj_state_relimitstack(lua_State *L); -LJ_FUNC void lj_state_shrinkstack(lua_State *L, MSize used); -LJ_FUNCA void LJ_FASTCALL lj_state_growstack(lua_State *L, MSize need); -LJ_FUNC void LJ_FASTCALL lj_state_growstack1(lua_State *L); - -static LJ_AINLINE void lj_state_checkstack(lua_State *L, MSize need) -{ - if ((mref(L->maxstack, char) - (char *)L->top) <= - (ptrdiff_t)need*(ptrdiff_t)sizeof(TValue)) - lj_state_growstack(L, need); -} - -LJ_FUNC lua_State *lj_state_new(lua_State *L); -LJ_FUNC void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L); -#if LJ_64 -LJ_FUNC lua_State *lj_state_newstate(lua_Alloc f, void *ud); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_str.c b/src/3rd party/luajit-2.0-BAK/src/lj_str.c deleted file mode 100644 index dd324500c18..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_str.c +++ /dev/null @@ -1,197 +0,0 @@ -/* -** String handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_str_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_str.h" -#include "lj_char.h" - -/* -- String helpers ------------------------------------------------------ */ - -/* Ordered compare of strings. Assumes string data is 4-byte aligned. */ -int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b) -{ - MSize i, n = a->len > b->len ? b->len : a->len; - for (i = 0; i < n; i += 4) { - /* Note: innocuous access up to end of string + 3. */ - uint32_t va = *(const uint32_t *)(strdata(a)+i); - uint32_t vb = *(const uint32_t *)(strdata(b)+i); - if (va != vb) { -#if LJ_LE - va = lj_bswap(va); vb = lj_bswap(vb); -#endif - i -= n; - if ((int32_t)i >= -3) { - va >>= 32+(i<<3); vb >>= 32+(i<<3); - if (va == vb) break; - } - return va < vb ? -1 : 1; - } - } - return (int32_t)(a->len - b->len); -} - -/* Fast string data comparison. Caveat: unaligned access to 1st string! */ -static LJ_AINLINE int str_fastcmp(const char *a, const char *b, MSize len) -{ - MSize i = 0; - lua_assert(len > 0); - lua_assert((((uintptr_t)a+len-1) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4); - do { /* Note: innocuous access up to end of string + 3. */ - uint32_t v = lj_getu32(a+i) ^ *(const uint32_t *)(b+i); - if (v) { - i -= len; -#if LJ_LE - return (int32_t)i >= -3 ? (v << (32+(i<<3))) : 1; -#else - return (int32_t)i >= -3 ? (v >> (32+(i<<3))) : 1; -#endif - } - i += 4; - } while (i < len); - return 0; -} - -/* Find fixed string p inside string s. */ -const char *lj_str_find(const char *s, const char *p, MSize slen, MSize plen) -{ - if (plen <= slen) { - if (plen == 0) { - return s; - } else { - int c = *(const uint8_t *)p++; - plen--; slen -= plen; - while (slen) { - const char *q = (const char *)memchr(s, c, slen); - if (!q) break; - if (memcmp(q+1, p, plen) == 0) return q; - q++; slen -= (MSize)(q-s); s = q; - } - } - } - return NULL; -} - -/* Check whether a string has a pattern matching character. */ -int lj_str_haspattern(GCstr *s) -{ - const char *p = strdata(s), *q = p + s->len; - while (p < q) { - int c = *(const uint8_t *)p++; - if (lj_char_ispunct(c) && strchr("^$*+?.([%-", c)) - return 1; /* Found a pattern matching char. */ - } - return 0; /* No pattern matching chars found. */ -} - -/* -- String interning ---------------------------------------------------- */ - -/* Resize the string hash table (grow and shrink). */ -void lj_str_resize(lua_State *L, MSize newmask) -{ - global_State *g = G(L); - GCRef *newhash; - MSize i; - if (g->gc.state == GCSsweepstring || newmask >= LJ_MAX_STRTAB-1) - return; /* No resizing during GC traversal or if already too big. */ - newhash = lj_mem_newvec(L, newmask+1, GCRef); - memset(newhash, 0, (newmask+1)*sizeof(GCRef)); - for (i = g->strmask; i != ~(MSize)0; i--) { /* Rehash old table. */ - GCobj *p = gcref(g->strhash[i]); - while (p) { /* Follow each hash chain and reinsert all strings. */ - MSize h = gco2str(p)->hash & newmask; - GCobj *next = gcnext(p); - /* NOBARRIER: The string table is a GC root. */ - setgcrefr(p->gch.nextgc, newhash[h]); - setgcref(newhash[h], p); - p = next; - } - } - lj_mem_freevec(g, g->strhash, g->strmask+1, GCRef); - g->strmask = newmask; - g->strhash = newhash; -} - -/* Intern a string and return string object. */ -GCstr *lj_str_new(lua_State *L, const char *str, size_t lenx) -{ - global_State *g; - GCstr *s; - GCobj *o; - MSize len = (MSize)lenx; - MSize a, b, h = len; - if (lenx >= LJ_MAX_STR) - lj_err_msg(L, LJ_ERR_STROV); - g = G(L); - /* Compute string hash. Constants taken from lookup3 hash by Bob Jenkins. */ - if (len >= 4) { /* Caveat: unaligned access! */ - a = lj_getu32(str); - h ^= lj_getu32(str+len-4); - b = lj_getu32(str+(len>>1)-2); - h ^= b; h -= lj_rol(b, 14); - b += lj_getu32(str+(len>>2)-1); - } else if (len > 0) { - a = *(const uint8_t *)str; - h ^= *(const uint8_t *)(str+len-1); - b = *(const uint8_t *)(str+(len>>1)); - h ^= b; h -= lj_rol(b, 14); - } else { - return &g->strempty; - } - a ^= h; a -= lj_rol(h, 11); - b ^= a; b -= lj_rol(a, 25); - h ^= b; h -= lj_rol(b, 16); - /* Check if the string has already been interned. */ - o = gcref(g->strhash[h & g->strmask]); - if (LJ_LIKELY((((uintptr_t)str+len-1) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4)) { - while (o != NULL) { - GCstr *sx = gco2str(o); - if (sx->len == len && str_fastcmp(str, strdata(sx), len) == 0) { - /* Resurrect if dead. Can only happen with fixstring() (keywords). */ - if (isdead(g, o)) flipwhite(o); - return sx; /* Return existing string. */ - } - o = gcnext(o); - } - } else { /* Slow path: end of string is too close to a page boundary. */ - while (o != NULL) { - GCstr *sx = gco2str(o); - if (sx->len == len && memcmp(str, strdata(sx), len) == 0) { - /* Resurrect if dead. Can only happen with fixstring() (keywords). */ - if (isdead(g, o)) flipwhite(o); - return sx; /* Return existing string. */ - } - o = gcnext(o); - } - } - /* Nope, create a new string. */ - s = lj_mem_newt(L, sizeof(GCstr)+len+1, GCstr); - newwhite(g, s); - s->gct = ~LJ_TSTR; - s->len = len; - s->hash = h; - s->reserved = 0; - memcpy(strdatawr(s), str, len); - strdatawr(s)[len] = '\0'; /* Zero-terminate string. */ - /* Add it to string hash table. */ - h &= g->strmask; - s->nextgc = g->strhash[h]; - /* NOBARRIER: The string table is a GC root. */ - setgcref(g->strhash[h], obj2gco(s)); - if (g->strnum++ > g->strmask) /* Allow a 100% load factor. */ - lj_str_resize(L, (g->strmask<<1)+1); /* Grow string table. */ - return s; /* Return newly interned string. */ -} - -void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s) -{ - g->strnum--; - lj_mem_free(g, s, sizestring(s)); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_str.h b/src/3rd party/luajit-2.0-BAK/src/lj_str.h deleted file mode 100644 index d8465de663b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_str.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** String handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_STR_H -#define _LJ_STR_H - -#include - -#include "lj_obj.h" - -/* String helpers. */ -LJ_FUNC int32_t LJ_FASTCALL lj_str_cmp(GCstr *a, GCstr *b); -LJ_FUNC const char *lj_str_find(const char *s, const char *f, - MSize slen, MSize flen); -LJ_FUNC int lj_str_haspattern(GCstr *s); - -/* String interning. */ -LJ_FUNC void lj_str_resize(lua_State *L, MSize newmask); -LJ_FUNCA GCstr *lj_str_new(lua_State *L, const char *str, size_t len); -LJ_FUNC void LJ_FASTCALL lj_str_free(global_State *g, GCstr *s); - -#define lj_str_newz(L, s) (lj_str_new(L, s, strlen(s))) -#define lj_str_newlit(L, s) (lj_str_new(L, "" s, sizeof(s)-1)) - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c b/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c deleted file mode 100644 index d54e796ae2a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.c +++ /dev/null @@ -1,554 +0,0 @@ -/* -** String formatting. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include - -#define lj_strfmt_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_buf.h" -#include "lj_str.h" -#include "lj_state.h" -#include "lj_char.h" -#include "lj_strfmt.h" - -/* -- Format parser ------------------------------------------------------- */ - -static const uint8_t strfmt_map[('x'-'A')+1] = { - STRFMT_A,0,0,0,STRFMT_E,0,STRFMT_G,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,STRFMT_X,0,0, - 0,0,0,0,0,0, - STRFMT_A,0,STRFMT_C,STRFMT_D,STRFMT_E,STRFMT_F,STRFMT_G,0,STRFMT_I,0,0,0,0, - 0,STRFMT_O,STRFMT_P,STRFMT_Q,0,STRFMT_S,0,STRFMT_U,0,0,STRFMT_X -}; - -SFormat LJ_FASTCALL lj_strfmt_parse(FormatState *fs) -{ - const uint8_t *p = fs->p, *e = fs->e; - fs->str = (const char *)p; - for (; p < e; p++) { - if (*p == '%') { /* Escape char? */ - if (p[1] == '%') { /* '%%'? */ - fs->p = ++p+1; - goto retlit; - } else { - SFormat sf = 0; - uint32_t c; - if (p != (const uint8_t *)fs->str) - break; - for (p++; (uint32_t)*p - ' ' <= (uint32_t)('0' - ' '); p++) { - /* Parse flags. */ - if (*p == '-') sf |= STRFMT_F_LEFT; - else if (*p == '+') sf |= STRFMT_F_PLUS; - else if (*p == '0') sf |= STRFMT_F_ZERO; - else if (*p == ' ') sf |= STRFMT_F_SPACE; - else if (*p == '#') sf |= STRFMT_F_ALT; - else break; - } - if ((uint32_t)*p - '0' < 10) { /* Parse width. */ - uint32_t width = (uint32_t)*p++ - '0'; - if ((uint32_t)*p - '0' < 10) - width = (uint32_t)*p++ - '0' + width*10; - sf |= (width << STRFMT_SH_WIDTH); - } - if (*p == '.') { /* Parse precision. */ - uint32_t prec = 0; - p++; - if ((uint32_t)*p - '0' < 10) { - prec = (uint32_t)*p++ - '0'; - if ((uint32_t)*p - '0' < 10) - prec = (uint32_t)*p++ - '0' + prec*10; - } - sf |= ((prec+1) << STRFMT_SH_PREC); - } - /* Parse conversion. */ - c = (uint32_t)*p - 'A'; - if (LJ_LIKELY(c <= (uint32_t)('x' - 'A'))) { - uint32_t sx = strfmt_map[c]; - if (sx) { - fs->p = p+1; - return (sf | sx | ((c & 0x20) ? 0 : STRFMT_F_UPPER)); - } - } - /* Return error location. */ - if (*p >= 32) p++; - fs->len = (MSize)(p - (const uint8_t *)fs->str); - fs->p = fs->e; - return STRFMT_ERR; - } - } - } - fs->p = p; -retlit: - fs->len = (MSize)(p - (const uint8_t *)fs->str); - return fs->len ? STRFMT_LIT : STRFMT_EOF; -} - -/* -- Raw conversions ----------------------------------------------------- */ - -/* Write number to bufer. */ -char * LJ_FASTCALL lj_strfmt_wnum(char *p, cTValue *o) -{ - if (LJ_LIKELY((o->u32.hi << 1) < 0xffe00000)) { /* Finite? */ -#if __BIONIC__ - if (tvismzero(o)) { *p++ = '-'; *p++ = '0'; return p; } -#endif - return p + lua_number2str(p, o->n); - } else if (((o->u32.hi & 0x000fffff) | o->u32.lo) != 0) { - *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; - } else if ((o->u32.hi & 0x80000000) == 0) { - *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; - } else { - *p++ = '-'; *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; - } - return p; -} - -#define WINT_R(x, sh, sc) \ - { uint32_t d = (x*(((1<>sh; x -= d*sc; *p++ = (char)('0'+d); } - -/* Write integer to buffer. */ -char * LJ_FASTCALL lj_strfmt_wint(char *p, int32_t k) -{ - uint32_t u = (uint32_t)k; - if (k < 0) { u = (uint32_t)-k; *p++ = '-'; } - if (u < 10000) { - if (u < 10) goto dig1; if (u < 100) goto dig2; if (u < 1000) goto dig3; - } else { - uint32_t v = u / 10000; u -= v * 10000; - if (v < 10000) { - if (v < 10) goto dig5; if (v < 100) goto dig6; if (v < 1000) goto dig7; - } else { - uint32_t w = v / 10000; v -= w * 10000; - if (w >= 10) WINT_R(w, 10, 10) - *p++ = (char)('0'+w); - } - WINT_R(v, 23, 1000) - dig7: WINT_R(v, 12, 100) - dig6: WINT_R(v, 10, 10) - dig5: *p++ = (char)('0'+v); - } - WINT_R(u, 23, 1000) - dig3: WINT_R(u, 12, 100) - dig2: WINT_R(u, 10, 10) - dig1: *p++ = (char)('0'+u); - return p; -} -#undef WINT_R - -/* Write pointer to buffer. */ -char * LJ_FASTCALL lj_strfmt_wptr(char *p, const void *v) -{ - ptrdiff_t x = (ptrdiff_t)v; - MSize i, n = STRFMT_MAXBUF_PTR; - if (x == 0) { - *p++ = 'N'; *p++ = 'U'; *p++ = 'L'; *p++ = 'L'; - return p; - } -#if LJ_64 - /* Shorten output for 64 bit pointers. */ - n = 2+2*4+((x >> 32) ? 2+2*(lj_fls((uint32_t)(x >> 32))>>3) : 0); -#endif - p[0] = '0'; - p[1] = 'x'; - for (i = n-1; i >= 2; i--, x >>= 4) - p[i] = "0123456789abcdef"[(x & 15)]; - return p+n; -} - -/* Write ULEB128 to buffer. */ -char * LJ_FASTCALL lj_strfmt_wuleb128(char *p, uint32_t v) -{ - for (; v >= 0x80; v >>= 7) - *p++ = (char)((v & 0x7f) | 0x80); - *p++ = (char)v; - return p; -} - -/* Return string or write number to buffer and return pointer to start. */ -const char *lj_strfmt_wstrnum(char *buf, cTValue *o, MSize *lenp) -{ - if (tvisstr(o)) { - *lenp = strV(o)->len; - return strVdata(o); - } else if (tvisint(o)) { - *lenp = (MSize)(lj_strfmt_wint(buf, intV(o)) - buf); - return buf; - } else if (tvisnum(o)) { - *lenp = (MSize)(lj_strfmt_wnum(buf, o) - buf); - return buf; - } else { - return NULL; - } -} - -/* -- Unformatted conversions to buffer ----------------------------------- */ - -/* Add integer to buffer. */ -SBuf * LJ_FASTCALL lj_strfmt_putint(SBuf *sb, int32_t k) -{ - setsbufP(sb, lj_strfmt_wint(lj_buf_more(sb, STRFMT_MAXBUF_INT), k)); - return sb; -} - -#if LJ_HASJIT -/* Add number to buffer. */ -SBuf * LJ_FASTCALL lj_strfmt_putnum(SBuf *sb, cTValue *o) -{ - setsbufP(sb, lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM), o)); - return sb; -} -#endif - -SBuf * LJ_FASTCALL lj_strfmt_putptr(SBuf *sb, const void *v) -{ - setsbufP(sb, lj_strfmt_wptr(lj_buf_more(sb, STRFMT_MAXBUF_PTR), v)); - return sb; -} - -/* Add quoted string to buffer. */ -SBuf * LJ_FASTCALL lj_strfmt_putquoted(SBuf *sb, GCstr *str) -{ - const char *s = strdata(str); - MSize len = str->len; - lj_buf_putb(sb, '"'); - while (len--) { - uint32_t c = (uint32_t)(uint8_t)*s++; - char *p = lj_buf_more(sb, 4); - if (c == '"' || c == '\\' || c == '\n') { - *p++ = '\\'; - } else if (lj_char_iscntrl(c)) { /* This can only be 0-31 or 127. */ - uint32_t d; - *p++ = '\\'; - if (c >= 100 || lj_char_isdigit((uint8_t)*s)) { - *p++ = (char)('0'+(c >= 100)); if (c >= 100) c -= 100; - goto tens; - } else if (c >= 10) { - tens: - d = (c * 205) >> 11; c -= d * 10; *p++ = (char)('0'+d); - } - c += '0'; - } - *p++ = (char)c; - setsbufP(sb, p); - } - lj_buf_putb(sb, '"'); - return sb; -} - -/* -- Formatted conversions to buffer ------------------------------------- */ - -/* Add formatted char to buffer. */ -SBuf *lj_strfmt_putfchar(SBuf *sb, SFormat sf, int32_t c) -{ - MSize width = STRFMT_WIDTH(sf); - char *p = lj_buf_more(sb, width > 1 ? width : 1); - if ((sf & STRFMT_F_LEFT)) *p++ = (char)c; - while (width-- > 1) *p++ = ' '; - if (!(sf & STRFMT_F_LEFT)) *p++ = (char)c; - setsbufP(sb, p); - return sb; -} - -/* Add formatted string to buffer. */ -SBuf *lj_strfmt_putfstr(SBuf *sb, SFormat sf, GCstr *str) -{ - MSize len = str->len <= STRFMT_PREC(sf) ? str->len : STRFMT_PREC(sf); - MSize width = STRFMT_WIDTH(sf); - char *p = lj_buf_more(sb, width > len ? width : len); - if ((sf & STRFMT_F_LEFT)) p = lj_buf_wmem(p, strdata(str), len); - while (width-- > len) *p++ = ' '; - if (!(sf & STRFMT_F_LEFT)) p = lj_buf_wmem(p, strdata(str), len); - setsbufP(sb, p); - return sb; -} - -/* Add formatted signed/unsigned integer to buffer. */ -SBuf *lj_strfmt_putfxint(SBuf *sb, SFormat sf, uint64_t k) -{ - char buf[STRFMT_MAXBUF_XINT], *q = buf + sizeof(buf), *p; -#ifdef LUA_USE_ASSERT - char *ps; -#endif - MSize prefix = 0, len, prec, pprec, width, need; - - /* Figure out signed prefixes. */ - if (STRFMT_TYPE(sf) == STRFMT_INT) { - if ((int64_t)k < 0) { - k = (uint64_t)-(int64_t)k; - prefix = 256 + '-'; - } else if ((sf & STRFMT_F_PLUS)) { - prefix = 256 + '+'; - } else if ((sf & STRFMT_F_SPACE)) { - prefix = 256 + ' '; - } - } - - /* Convert number and store to fixed-size buffer in reverse order. */ - prec = STRFMT_PREC(sf); - if ((int32_t)prec >= 0) sf &= ~STRFMT_F_ZERO; - if (k == 0) { /* Special-case zero argument. */ - if (prec != 0 || - (sf & (STRFMT_T_OCT|STRFMT_F_ALT)) == (STRFMT_T_OCT|STRFMT_F_ALT)) - *--q = '0'; - } else if (!(sf & (STRFMT_T_HEX|STRFMT_T_OCT))) { /* Decimal. */ - uint32_t k2; - while ((k >> 32)) { *--q = (char)('0' + k % 10); k /= 10; } - k2 = (uint32_t)k; - do { *--q = (char)('0' + k2 % 10); k2 /= 10; } while (k2); - } else if ((sf & STRFMT_T_HEX)) { /* Hex. */ - const char *hexdig = (sf & STRFMT_F_UPPER) ? "0123456789ABCDEF" : - "0123456789abcdef"; - do { *--q = hexdig[(k & 15)]; k >>= 4; } while (k); - if ((sf & STRFMT_F_ALT)) prefix = 512 + ((sf & STRFMT_F_UPPER) ? 'X' : 'x'); - } else { /* Octal. */ - do { *--q = (char)('0' + (uint32_t)(k & 7)); k >>= 3; } while (k); - if ((sf & STRFMT_F_ALT)) *--q = '0'; - } - - /* Calculate sizes. */ - len = (MSize)(buf + sizeof(buf) - q); - if ((int32_t)len >= (int32_t)prec) prec = len; - width = STRFMT_WIDTH(sf); - pprec = prec + (prefix >> 8); - need = width > pprec ? width : pprec; - p = lj_buf_more(sb, need); -#ifdef LUA_USE_ASSERT - ps = p; -#endif - - /* Format number with leading/trailing whitespace and zeros. */ - if ((sf & (STRFMT_F_LEFT|STRFMT_F_ZERO)) == 0) - while (width-- > pprec) *p++ = ' '; - if (prefix) { - if ((char)prefix >= 'X') *p++ = '0'; - *p++ = (char)prefix; - } - if ((sf & (STRFMT_F_LEFT|STRFMT_F_ZERO)) == STRFMT_F_ZERO) - while (width-- > pprec) *p++ = '0'; - while (prec-- > len) *p++ = '0'; - while (q < buf + sizeof(buf)) *p++ = *q++; /* Add number itself. */ - if ((sf & STRFMT_F_LEFT)) - while (width-- > pprec) *p++ = ' '; - - lua_assert(need == (MSize)(p - ps)); - setsbufP(sb, p); - return sb; -} - -/* Add number formatted as signed integer to buffer. */ -SBuf *lj_strfmt_putfnum_int(SBuf *sb, SFormat sf, lua_Number n) -{ - int64_t k = (int64_t)n; - if (checki32(k) && sf == STRFMT_INT) - return lj_strfmt_putint(sb, (int32_t)k); /* Shortcut for plain %d. */ - else - return lj_strfmt_putfxint(sb, sf, (uint64_t)k); -} - -/* Add number formatted as unsigned integer to buffer. */ -SBuf *lj_strfmt_putfnum_uint(SBuf *sb, SFormat sf, lua_Number n) -{ - int64_t k; - if (n >= 9223372036854775808.0) - k = (int64_t)(n - 18446744073709551616.0); - else - k = (int64_t)n; - return lj_strfmt_putfxint(sb, sf, (uint64_t)k); -} - -/* Max. sprintf buffer size needed. At least #string.format("%.99f", -1e308). */ -#define STRFMT_FMTNUMBUF 512 - -/* Add formatted floating-point number to buffer. */ -SBuf *lj_strfmt_putfnum(SBuf *sb, SFormat sf, lua_Number n) -{ - TValue tv; - tv.n = n; - if (LJ_UNLIKELY((tv.u32.hi << 1) >= 0xffe00000)) { - /* Canonicalize output of non-finite values. */ - MSize width = STRFMT_WIDTH(sf), len = 3; - int prefix = 0, ch = (sf & STRFMT_F_UPPER) ? 0x202020 : 0; - char *p; - if (((tv.u32.hi & 0x000fffff) | tv.u32.lo) != 0) { - ch ^= ('n' << 16) | ('a' << 8) | 'n'; - if ((sf & STRFMT_F_SPACE)) prefix = ' '; - } else { - ch ^= ('i' << 16) | ('n' << 8) | 'f'; - if ((tv.u32.hi & 0x80000000)) prefix = '-'; - else if ((sf & STRFMT_F_PLUS)) prefix = '+'; - else if ((sf & STRFMT_F_SPACE)) prefix = ' '; - } - if (prefix) len = 4; - p = lj_buf_more(sb, width > len ? width : len); - if (!(sf & STRFMT_F_LEFT)) while (width-- > len) *p++ = ' '; - if (prefix) *p++ = prefix; - *p++ = (char)(ch >> 16); *p++ = (char)(ch >> 8); *p++ = (char)ch; - if ((sf & STRFMT_F_LEFT)) while (width-- > len) *p++ = ' '; - setsbufP(sb, p); - } else { /* Delegate to sprintf() for now. */ - uint8_t width = (uint8_t)STRFMT_WIDTH(sf), prec = (uint8_t)STRFMT_PREC(sf); - char fmt[1+5+2+3+1+1], *p = fmt; - *p++ = '%'; - if ((sf & STRFMT_F_LEFT)) *p++ = '-'; - if ((sf & STRFMT_F_PLUS)) *p++ = '+'; - if ((sf & STRFMT_F_ZERO)) *p++ = '0'; - if ((sf & STRFMT_F_SPACE)) *p++ = ' '; - if ((sf & STRFMT_F_ALT)) *p++ = '#'; - if (width) { - uint8_t x = width / 10, y = width % 10; - if (x) *p++ = '0' + x; - *p++ = '0' + y; - } - if (prec != 255) { - uint8_t x = prec / 10, y = prec % 10; - *p++ = '.'; - if (x) *p++ = '0' + x; - *p++ = '0' + y; - } - *p++ = (0x67666561 >> (STRFMT_FP(sf)<<3)) ^ ((sf & STRFMT_F_UPPER)?0x20:0); - *p = '\0'; - p = lj_buf_more(sb, STRFMT_FMTNUMBUF); - setsbufP(sb, p + sprintf(p, fmt, n)); - } - return sb; -} - -/* -- Conversions to strings ---------------------------------------------- */ - -/* Convert integer to string. */ -GCstr * LJ_FASTCALL lj_strfmt_int(lua_State *L, int32_t k) -{ - char buf[STRFMT_MAXBUF_INT]; - MSize len = (MSize)(lj_strfmt_wint(buf, k) - buf); - return lj_str_new(L, buf, len); -} - -/* Convert number to string. */ -GCstr * LJ_FASTCALL lj_strfmt_num(lua_State *L, cTValue *o) -{ - char buf[STRFMT_MAXBUF_NUM]; - MSize len = (MSize)(lj_strfmt_wnum(buf, o) - buf); - return lj_str_new(L, buf, len); -} - -/* Convert integer or number to string. */ -GCstr * LJ_FASTCALL lj_strfmt_number(lua_State *L, cTValue *o) -{ - return tvisint(o) ? lj_strfmt_int(L, intV(o)) : lj_strfmt_num(L, o); -} - -#if LJ_HASJIT -/* Convert char value to string. */ -GCstr * LJ_FASTCALL lj_strfmt_char(lua_State *L, int c) -{ - char buf[1]; - buf[0] = c; - return lj_str_new(L, buf, 1); -} -#endif - -/* Raw conversion of object to string. */ -GCstr * LJ_FASTCALL lj_strfmt_obj(lua_State *L, cTValue *o) -{ - if (tvisstr(o)) { - return strV(o); - } else if (tvisnumber(o)) { - return lj_strfmt_number(L, o); - } else if (tvisnil(o)) { - return lj_str_newlit(L, "nil"); - } else if (tvisfalse(o)) { - return lj_str_newlit(L, "false"); - } else if (tvistrue(o)) { - return lj_str_newlit(L, "true"); - } else { - char buf[8+2+2+16], *p = buf; - p = lj_buf_wmem(p, lj_typename(o), (MSize)strlen(lj_typename(o))); - *p++ = ':'; *p++ = ' '; - if (tvisfunc(o) && isffunc(funcV(o))) { - p = lj_buf_wmem(p, "builtin#", 8); - p = lj_strfmt_wint(p, funcV(o)->c.ffid); - } else { - p = lj_strfmt_wptr(p, lj_obj_ptr(o)); - } - return lj_str_new(L, buf, (size_t)(p - buf)); - } -} - -/* -- Internal string formatting ------------------------------------------ */ - -/* -** These functions are only used for lua_pushfstring(), lua_pushvfstring() -** and for internal string formatting (e.g. error messages). Caveat: unlike -** string.format(), only a limited subset of formats and flags are supported! -** -** LuaJIT has support for a couple more formats than Lua 5.1/5.2: -** - %d %u %o %x with full formatting, 32 bit integers only. -** - %f and other FP formats are really %.14g. -** - %s %c %p without formatting. -*/ - -/* Push formatted message as a string object to Lua stack. va_list variant. */ -const char *lj_strfmt_pushvf(lua_State *L, const char *fmt, va_list argp) -{ - SBuf *sb = lj_buf_tmp_(L); - FormatState fs; - SFormat sf; - GCstr *str; - lj_strfmt_init(&fs, fmt, (MSize)strlen(fmt)); - while ((sf = lj_strfmt_parse(&fs)) != STRFMT_EOF) { - switch (STRFMT_TYPE(sf)) { - case STRFMT_LIT: - lj_buf_putmem(sb, fs.str, fs.len); - break; - case STRFMT_INT: - lj_strfmt_putfxint(sb, sf, va_arg(argp, int32_t)); - break; - case STRFMT_UINT: - lj_strfmt_putfxint(sb, sf, va_arg(argp, uint32_t)); - break; - case STRFMT_NUM: { - TValue tv; - tv.n = va_arg(argp, lua_Number); - setsbufP(sb, lj_strfmt_wnum(lj_buf_more(sb, STRFMT_MAXBUF_NUM), &tv)); - break; - } - case STRFMT_STR: { - const char *s = va_arg(argp, char *); - if (s == NULL) s = "(null)"; - lj_buf_putmem(sb, s, (MSize)strlen(s)); - break; - } - case STRFMT_CHAR: - lj_buf_putb(sb, va_arg(argp, int)); - break; - case STRFMT_PTR: - lj_strfmt_putptr(sb, va_arg(argp, void *)); - break; - case STRFMT_ERR: - default: - lj_buf_putb(sb, '?'); - lua_assert(0); - break; - } - } - str = lj_buf_str(L, sb); - setstrV(L, L->top, str); - incr_top(L); - return strdata(str); -} - -/* Push formatted message as a string object to Lua stack. Vararg variant. */ -const char *lj_strfmt_pushf(lua_State *L, const char *fmt, ...) -{ - const char *msg; - va_list argp; - va_start(argp, fmt); - msg = lj_strfmt_pushvf(L, fmt, argp); - va_end(argp); - return msg; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h b/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h deleted file mode 100644 index dcfaf2e393b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_strfmt.h +++ /dev/null @@ -1,125 +0,0 @@ -/* -** String formatting. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_STRFMT_H -#define _LJ_STRFMT_H - -#include "lj_obj.h" - -typedef uint32_t SFormat; /* Format indicator. */ - -/* Format parser state. */ -typedef struct FormatState { - const uint8_t *p; /* Current format string pointer. */ - const uint8_t *e; /* End of format string. */ - const char *str; /* Returned literal string. */ - MSize len; /* Size of literal string. */ -} FormatState; - -/* Format types (max. 16). */ -typedef enum FormatType { - STRFMT_EOF, STRFMT_ERR, STRFMT_LIT, - STRFMT_INT, STRFMT_UINT, STRFMT_NUM, STRFMT_STR, STRFMT_CHAR, STRFMT_PTR -} FormatType; - -/* Format subtypes (bits are reused). */ -#define STRFMT_T_HEX 0x0010 /* STRFMT_UINT */ -#define STRFMT_T_OCT 0x0020 /* STRFMT_UINT */ -#define STRFMT_T_FP_A 0x0000 /* STRFMT_NUM */ -#define STRFMT_T_FP_E 0x0010 /* STRFMT_NUM */ -#define STRFMT_T_FP_F 0x0020 /* STRFMT_NUM */ -#define STRFMT_T_FP_G 0x0030 /* STRFMT_NUM */ -#define STRFMT_T_QUOTED 0x0010 /* STRFMT_STR */ - -/* Format flags. */ -#define STRFMT_F_LEFT 0x0100 -#define STRFMT_F_PLUS 0x0200 -#define STRFMT_F_ZERO 0x0400 -#define STRFMT_F_SPACE 0x0800 -#define STRFMT_F_ALT 0x1000 -#define STRFMT_F_UPPER 0x2000 - -/* Format indicator fields. */ -#define STRFMT_SH_WIDTH 16 -#define STRFMT_SH_PREC 24 - -#define STRFMT_TYPE(sf) ((FormatType)((sf) & 15)) -#define STRFMT_WIDTH(sf) (((sf) >> STRFMT_SH_WIDTH) & 255u) -#define STRFMT_PREC(sf) ((((sf) >> STRFMT_SH_PREC) & 255u) - 1u) -#define STRFMT_FP(sf) (((sf) >> 4) & 3) - -/* Formats for conversion characters. */ -#define STRFMT_A (STRFMT_NUM|STRFMT_T_FP_A) -#define STRFMT_C (STRFMT_CHAR) -#define STRFMT_D (STRFMT_INT) -#define STRFMT_E (STRFMT_NUM|STRFMT_T_FP_E) -#define STRFMT_F (STRFMT_NUM|STRFMT_T_FP_F) -#define STRFMT_G (STRFMT_NUM|STRFMT_T_FP_G) -#define STRFMT_I STRFMT_D -#define STRFMT_O (STRFMT_UINT|STRFMT_T_OCT) -#define STRFMT_P (STRFMT_PTR) -#define STRFMT_Q (STRFMT_STR|STRFMT_T_QUOTED) -#define STRFMT_S (STRFMT_STR) -#define STRFMT_U (STRFMT_UINT) -#define STRFMT_X (STRFMT_UINT|STRFMT_T_HEX) - -/* Maximum buffer sizes for conversions. */ -#define STRFMT_MAXBUF_XINT (1+22) /* '0' prefix + uint64_t in octal. */ -#define STRFMT_MAXBUF_INT (1+10) /* Sign + int32_t in decimal. */ -#define STRFMT_MAXBUF_NUM LUAI_MAXNUMBER2STR -#define STRFMT_MAXBUF_PTR (2+2*sizeof(ptrdiff_t)) /* "0x" + hex ptr. */ - -/* Format parser. */ -LJ_FUNC SFormat LJ_FASTCALL lj_strfmt_parse(FormatState *fs); - -static LJ_AINLINE void lj_strfmt_init(FormatState *fs, const char *p, MSize len) -{ - fs->p = (const uint8_t *)p; - fs->e = (const uint8_t *)p + len; - lua_assert(*fs->e == 0); /* Must be NUL-terminated (may have NULs inside). */ -} - -/* Raw conversions. */ -LJ_FUNC char * LJ_FASTCALL lj_strfmt_wint(char *p, int32_t k); -LJ_FUNC char * LJ_FASTCALL lj_strfmt_wnum(char *p, cTValue *o); -LJ_FUNC char * LJ_FASTCALL lj_strfmt_wptr(char *p, const void *v); -LJ_FUNC char * LJ_FASTCALL lj_strfmt_wuleb128(char *p, uint32_t v); -LJ_FUNC const char *lj_strfmt_wstrnum(char *buf, cTValue *o, MSize *lenp); - -/* Unformatted conversions to buffer. */ -LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putint(SBuf *sb, int32_t k); -#if LJ_HASJIT -LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putnum(SBuf *sb, cTValue *o); -#endif -LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putptr(SBuf *sb, const void *v); -LJ_FUNC SBuf * LJ_FASTCALL lj_strfmt_putquoted(SBuf *sb, GCstr *str); - -/* Formatted conversions to buffer. */ -LJ_FUNC SBuf *lj_strfmt_putfxint(SBuf *sb, SFormat sf, uint64_t k); -LJ_FUNC SBuf *lj_strfmt_putfnum_int(SBuf *sb, SFormat sf, lua_Number n); -LJ_FUNC SBuf *lj_strfmt_putfnum_uint(SBuf *sb, SFormat sf, lua_Number n); -LJ_FUNC SBuf *lj_strfmt_putfnum(SBuf *sb, SFormat, lua_Number n); -LJ_FUNC SBuf *lj_strfmt_putfchar(SBuf *sb, SFormat, int32_t c); -LJ_FUNC SBuf *lj_strfmt_putfstr(SBuf *sb, SFormat, GCstr *str); - -/* Conversions to strings. */ -LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_int(lua_State *L, int32_t k); -LJ_FUNCA GCstr * LJ_FASTCALL lj_strfmt_num(lua_State *L, cTValue *o); -LJ_FUNCA GCstr * LJ_FASTCALL lj_strfmt_number(lua_State *L, cTValue *o); -#if LJ_HASJIT -LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_char(lua_State *L, int c); -#endif -LJ_FUNC GCstr * LJ_FASTCALL lj_strfmt_obj(lua_State *L, cTValue *o); - -/* Internal string formatting. */ -LJ_FUNC const char *lj_strfmt_pushvf(lua_State *L, const char *fmt, - va_list argp); -LJ_FUNC const char *lj_strfmt_pushf(lua_State *L, const char *fmt, ...) -#ifdef __GNUC__ - __attribute__ ((format (printf, 2, 3))) -#endif - ; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_strscan.c b/src/3rd party/luajit-2.0-BAK/src/lj_strscan.c deleted file mode 100644 index e2cf76f42a0..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_strscan.c +++ /dev/null @@ -1,498 +0,0 @@ -/* -** String scanning. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include - -#define lj_strscan_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_char.h" -#include "lj_strscan.h" - -/* -- Scanning numbers ---------------------------------------------------- */ - -/* -** Rationale for the builtin string to number conversion library: -** -** It removes a dependency on libc's strtod(), which is a true portability -** nightmare. Mainly due to the plethora of supported OS and toolchain -** combinations. Sadly, the various implementations -** a) are often buggy, incomplete (no hex floats) and/or imprecise, -** b) sometimes crash or hang on certain inputs, -** c) return non-standard NaNs that need to be filtered out, and -** d) fail if the locale-specific decimal separator is not a dot, -** which can only be fixed with atrocious workarounds. -** -** Also, most of the strtod() implementations are hopelessly bloated, -** which is not just an I-cache hog, but a problem for static linkage -** on embedded systems, too. -** -** OTOH the builtin conversion function is very compact. Even though it -** does a lot more, like parsing long longs, octal or imaginary numbers -** and returning the result in different formats: -** a) It needs less than 3 KB (!) of machine code (on x64 with -Os), -** b) it doesn't perform any dynamic allocation and, -** c) it needs only around 600 bytes of stack space. -** -** The builtin function is faster than strtod() for typical inputs, e.g. -** "123", "1.5" or "1e6". Arguably, it's slower for very large exponents, -** which are not very common (this could be fixed, if needed). -** -** And most importantly, the builtin function is equally precise on all -** platforms. It correctly converts and rounds any input to a double. -** If this is not the case, please send a bug report -- but PLEASE verify -** that the implementation you're comparing to is not the culprit! -** -** The implementation quickly pre-scans the entire string first and -** handles simple integers on-the-fly. Otherwise, it dispatches to the -** base-specific parser. Hex and octal is straightforward. -** -** Decimal to binary conversion uses a fixed-length circular buffer in -** base 100. Some simple cases are handled directly. For other cases, the -** number in the buffer is up-scaled or down-scaled until the integer part -** is in the proper range. Then the integer part is rounded and converted -** to a double which is finally rescaled to the result. Denormals need -** special treatment to prevent incorrect 'double rounding'. -*/ - -/* Definitions for circular decimal digit buffer (base 100 = 2 digits/byte). */ -#define STRSCAN_DIG 1024 -#define STRSCAN_MAXDIG 800 /* 772 + extra are sufficient. */ -#define STRSCAN_DDIG (STRSCAN_DIG/2) -#define STRSCAN_DMASK (STRSCAN_DDIG-1) - -/* Helpers for circular buffer. */ -#define DNEXT(a) (((a)+1) & STRSCAN_DMASK) -#define DPREV(a) (((a)-1) & STRSCAN_DMASK) -#define DLEN(lo, hi) ((int32_t)(((lo)-(hi)) & STRSCAN_DMASK)) - -#define casecmp(c, k) (((c) | 0x20) == k) - -/* Final conversion to double. */ -static void strscan_double(uint64_t x, TValue *o, int32_t ex2, int32_t neg) -{ - double n; - - /* Avoid double rounding for denormals. */ - if (LJ_UNLIKELY(ex2 <= -1075 && x != 0)) { - /* NYI: all of this generates way too much code on 32 bit CPUs. */ -#if defined(__GNUC__) && LJ_64 - int32_t b = (int32_t)(__builtin_clzll(x)^63); -#else - int32_t b = (x>>32) ? 32+(int32_t)lj_fls((uint32_t)(x>>32)) : - (int32_t)lj_fls((uint32_t)x); -#endif - if ((int32_t)b + ex2 <= -1023 && (int32_t)b + ex2 >= -1075) { - uint64_t rb = (uint64_t)1 << (-1075-ex2); - if ((x & rb) && ((x & (rb+rb+rb-1)))) x += rb+rb; - x = (x & ~(rb+rb-1)); - } - } - - /* Convert to double using a signed int64_t conversion, then rescale. */ - lua_assert((int64_t)x >= 0); - n = (double)(int64_t)x; - if (neg) n = -n; - if (ex2) n = ldexp(n, ex2); - o->n = n; -} - -/* Parse hexadecimal number. */ -static StrScanFmt strscan_hex(const uint8_t *p, TValue *o, - StrScanFmt fmt, uint32_t opt, - int32_t ex2, int32_t neg, uint32_t dig) -{ - uint64_t x = 0; - uint32_t i; - - /* Scan hex digits. */ - for (i = dig > 16 ? 16 : dig ; i; i--, p++) { - uint32_t d = (*p != '.' ? *p : *++p); if (d > '9') d += 9; - x = (x << 4) + (d & 15); - } - - /* Summarize rounding-effect of excess digits. */ - for (i = 16; i < dig; i++, p++) - x |= ((*p != '.' ? *p : *++p) != '0'), ex2 += 4; - - /* Format-specific handling. */ - switch (fmt) { - case STRSCAN_INT: - if (!(opt & STRSCAN_OPT_TONUM) && x < 0x80000000u+neg) { - o->i = neg ? -(int32_t)x : (int32_t)x; - return STRSCAN_INT; /* Fast path for 32 bit integers. */ - } - if (!(opt & STRSCAN_OPT_C)) { fmt = STRSCAN_NUM; break; } - /* fallthrough */ - case STRSCAN_U32: - if (dig > 8) return STRSCAN_ERROR; - o->i = neg ? -(int32_t)x : (int32_t)x; - return STRSCAN_U32; - case STRSCAN_I64: - case STRSCAN_U64: - if (dig > 16) return STRSCAN_ERROR; - o->u64 = neg ? (uint64_t)-(int64_t)x : x; - return fmt; - default: - break; - } - - /* Reduce range then convert to double. */ - if ((x & U64x(c0000000,0000000))) { x = (x >> 2) | (x & 3); ex2 += 2; } - strscan_double(x, o, ex2, neg); - return fmt; -} - -/* Parse octal number. */ -static StrScanFmt strscan_oct(const uint8_t *p, TValue *o, - StrScanFmt fmt, int32_t neg, uint32_t dig) -{ - uint64_t x = 0; - - /* Scan octal digits. */ - if (dig > 22 || (dig == 22 && *p > '1')) return STRSCAN_ERROR; - while (dig-- > 0) { - if (!(*p >= '0' && *p <= '7')) return STRSCAN_ERROR; - x = (x << 3) + (*p++ & 7); - } - - /* Format-specific handling. */ - switch (fmt) { - case STRSCAN_INT: - if (x >= 0x80000000u+neg) fmt = STRSCAN_U32; - /* fallthrough */ - case STRSCAN_U32: - if ((x >> 32)) return STRSCAN_ERROR; - o->i = neg ? -(int32_t)x : (int32_t)x; - break; - default: - case STRSCAN_I64: - case STRSCAN_U64: - o->u64 = neg ? (uint64_t)-(int64_t)x : x; - break; - } - return fmt; -} - -/* Parse decimal number. */ -static StrScanFmt strscan_dec(const uint8_t *p, TValue *o, - StrScanFmt fmt, uint32_t opt, - int32_t ex10, int32_t neg, uint32_t dig) -{ - uint8_t xi[STRSCAN_DDIG], *xip = xi; - - if (dig) { - uint32_t i = dig; - if (i > STRSCAN_MAXDIG) { - ex10 += (int32_t)(i - STRSCAN_MAXDIG); - i = STRSCAN_MAXDIG; - } - /* Scan unaligned leading digit. */ - if (((ex10^i) & 1)) - *xip++ = ((*p != '.' ? *p : *++p) & 15), i--, p++; - /* Scan aligned double-digits. */ - for ( ; i > 1; i -= 2) { - uint32_t d = 10 * ((*p != '.' ? *p : *++p) & 15); p++; - *xip++ = d + ((*p != '.' ? *p : *++p) & 15); p++; - } - /* Scan and realign trailing digit. */ - if (i) *xip++ = 10 * ((*p != '.' ? *p : *++p) & 15), ex10--, p++; - - /* Summarize rounding-effect of excess digits. */ - if (dig > STRSCAN_MAXDIG) { - do { - if ((*p != '.' ? *p : *++p) != '0') { xip[-1] |= 1; break; } - p++; - } while (--dig > STRSCAN_MAXDIG); - dig = STRSCAN_MAXDIG; - } else { /* Simplify exponent. */ - while (ex10 > 0 && dig <= 18) *xip++ = 0, ex10 -= 2, dig += 2; - } - } else { /* Only got zeros. */ - ex10 = 0; - xi[0] = 0; - } - - /* Fast path for numbers in integer format (but handles e.g. 1e6, too). */ - if (dig <= 20 && ex10 == 0) { - uint8_t *xis; - uint64_t x = xi[0]; - double n; - for (xis = xi+1; xis < xip; xis++) x = x * 100 + *xis; - if (!(dig == 20 && (xi[0] > 18 || (int64_t)x >= 0))) { /* No overflow? */ - /* Format-specific handling. */ - switch (fmt) { - case STRSCAN_INT: - if (!(opt & STRSCAN_OPT_TONUM) && x < 0x80000000u+neg) { - o->i = neg ? -(int32_t)x : (int32_t)x; - return STRSCAN_INT; /* Fast path for 32 bit integers. */ - } - if (!(opt & STRSCAN_OPT_C)) { fmt = STRSCAN_NUM; goto plainnumber; } - /* fallthrough */ - case STRSCAN_U32: - if ((x >> 32) != 0) return STRSCAN_ERROR; - o->i = neg ? -(int32_t)x : (int32_t)x; - return STRSCAN_U32; - case STRSCAN_I64: - case STRSCAN_U64: - o->u64 = neg ? (uint64_t)-(int64_t)x : x; - return fmt; - default: - plainnumber: /* Fast path for plain numbers < 2^63. */ - if ((int64_t)x < 0) break; - n = (double)(int64_t)x; - if (neg) n = -n; - o->n = n; - return fmt; - } - } - } - - /* Slow non-integer path. */ - if (fmt == STRSCAN_INT) { - if ((opt & STRSCAN_OPT_C)) return STRSCAN_ERROR; - fmt = STRSCAN_NUM; - } else if (fmt > STRSCAN_INT) { - return STRSCAN_ERROR; - } - { - uint32_t hi = 0, lo = (uint32_t)(xip-xi); - int32_t ex2 = 0, idig = (int32_t)lo + (ex10 >> 1); - - lua_assert(lo > 0 && (ex10 & 1) == 0); - - /* Handle simple overflow/underflow. */ - if (idig > 310/2) { if (neg) setminfV(o); else setpinfV(o); return fmt; } - else if (idig < -326/2) { o->n = neg ? -0.0 : 0.0; return fmt; } - - /* Scale up until we have at least 17 or 18 integer part digits. */ - while (idig < 9 && idig < DLEN(lo, hi)) { - uint32_t i, cy = 0; - ex2 -= 6; - for (i = DPREV(lo); ; i = DPREV(i)) { - uint32_t d = (xi[i] << 6) + cy; - cy = (((d >> 2) * 5243) >> 17); d = d - cy * 100; /* Div/mod 100. */ - xi[i] = (uint8_t)d; - if (i == hi) break; - if (d == 0 && i == DPREV(lo)) lo = i; - } - if (cy) { - hi = DPREV(hi); - if (xi[DPREV(lo)] == 0) lo = DPREV(lo); - else if (hi == lo) { lo = DPREV(lo); xi[DPREV(lo)] |= xi[lo]; } - xi[hi] = (uint8_t)cy; idig++; - } - } - - /* Scale down until no more than 17 or 18 integer part digits remain. */ - while (idig > 9) { - uint32_t i = hi, cy = 0; - ex2 += 6; - do { - cy += xi[i]; - xi[i] = (cy >> 6); - cy = 100 * (cy & 0x3f); - if (xi[i] == 0 && i == hi) hi = DNEXT(hi), idig--; - i = DNEXT(i); - } while (i != lo); - while (cy) { - if (hi == lo) { xi[DPREV(lo)] |= 1; break; } - xi[lo] = (cy >> 6); lo = DNEXT(lo); - cy = 100 * (cy & 0x3f); - } - } - - /* Collect integer part digits and convert to rescaled double. */ - { - uint64_t x = xi[hi]; - uint32_t i; - for (i = DNEXT(hi); --idig > 0 && i != lo; i = DNEXT(i)) - x = x * 100 + xi[i]; - if (i == lo) { - while (--idig >= 0) x = x * 100; - } else { /* Gather round bit from remaining digits. */ - x <<= 1; ex2--; - do { - if (xi[i]) { x |= 1; break; } - i = DNEXT(i); - } while (i != lo); - } - strscan_double(x, o, ex2, neg); - } - } - return fmt; -} - -/* Scan string containing a number. Returns format. Returns value in o. */ -StrScanFmt lj_strscan_scan(const uint8_t *p, TValue *o, uint32_t opt) -{ - int32_t neg = 0; - - /* Remove leading space, parse sign and non-numbers. */ - if (LJ_UNLIKELY(!lj_char_isdigit(*p))) { - while (lj_char_isspace(*p)) p++; - if (*p == '+' || *p == '-') neg = (*p++ == '-'); - if (LJ_UNLIKELY(*p >= 'A')) { /* Parse "inf", "infinity" or "nan". */ - TValue tmp; - setnanV(&tmp); - if (casecmp(p[0],'i') && casecmp(p[1],'n') && casecmp(p[2],'f')) { - if (neg) setminfV(&tmp); else setpinfV(&tmp); - p += 3; - if (casecmp(p[0],'i') && casecmp(p[1],'n') && casecmp(p[2],'i') && - casecmp(p[3],'t') && casecmp(p[4],'y')) p += 5; - } else if (casecmp(p[0],'n') && casecmp(p[1],'a') && casecmp(p[2],'n')) { - p += 3; - } - while (lj_char_isspace(*p)) p++; - if (*p) return STRSCAN_ERROR; - o->u64 = tmp.u64; - return STRSCAN_NUM; - } - } - - /* Parse regular number. */ - { - StrScanFmt fmt = STRSCAN_INT; - int cmask = LJ_CHAR_DIGIT; - int base = (opt & STRSCAN_OPT_C) && *p == '0' ? 0 : 10; - const uint8_t *sp, *dp = NULL; - uint32_t dig = 0, hasdig = 0, x = 0; - int32_t ex = 0; - - /* Determine base and skip leading zeros. */ - if (LJ_UNLIKELY(*p <= '0')) { - if (*p == '0' && casecmp(p[1], 'x')) - base = 16, cmask = LJ_CHAR_XDIGIT, p += 2; - for ( ; ; p++) { - if (*p == '0') { - hasdig = 1; - } else if (*p == '.') { - if (dp) return STRSCAN_ERROR; - dp = p; - } else { - break; - } - } - } - - /* Preliminary digit and decimal point scan. */ - for (sp = p; ; p++) { - if (LJ_LIKELY(lj_char_isa(*p, cmask))) { - x = x * 10 + (*p & 15); /* For fast path below. */ - dig++; - } else if (*p == '.') { - if (dp) return STRSCAN_ERROR; - dp = p; - } else { - break; - } - } - if (!(hasdig | dig)) return STRSCAN_ERROR; - - /* Handle decimal point. */ - if (dp) { - fmt = STRSCAN_NUM; - if (dig) { - ex = (int32_t)(dp-(p-1)); dp = p-1; - while (ex < 0 && *dp-- == '0') ex++, dig--; /* Skip trailing zeros. */ - if (base == 16) ex *= 4; - } - } - - /* Parse exponent. */ - if (casecmp(*p, (uint32_t)(base == 16 ? 'p' : 'e'))) { - uint32_t xx; - int negx = 0; - fmt = STRSCAN_NUM; p++; - if (*p == '+' || *p == '-') negx = (*p++ == '-'); - if (!lj_char_isdigit(*p)) return STRSCAN_ERROR; - xx = (*p++ & 15); - while (lj_char_isdigit(*p)) { - if (xx < 65536) xx = xx * 10 + (*p & 15); - p++; - } - ex += negx ? -(int32_t)xx : (int32_t)xx; - } - - /* Parse suffix. */ - if (*p) { - /* I (IMAG), U (U32), LL (I64), ULL/LLU (U64), L (long), UL/LU (ulong). */ - /* NYI: f (float). Not needed until cp_number() handles non-integers. */ - if (casecmp(*p, 'i')) { - if (!(opt & STRSCAN_OPT_IMAG)) return STRSCAN_ERROR; - p++; fmt = STRSCAN_IMAG; - } else if (fmt == STRSCAN_INT) { - if (casecmp(*p, 'u')) p++, fmt = STRSCAN_U32; - if (casecmp(*p, 'l')) { - p++; - if (casecmp(*p, 'l')) p++, fmt += STRSCAN_I64 - STRSCAN_INT; - else if (!(opt & STRSCAN_OPT_C)) return STRSCAN_ERROR; - else if (sizeof(long) == 8) fmt += STRSCAN_I64 - STRSCAN_INT; - } - if (casecmp(*p, 'u') && (fmt == STRSCAN_INT || fmt == STRSCAN_I64)) - p++, fmt += STRSCAN_U32 - STRSCAN_INT; - if ((fmt == STRSCAN_U32 && !(opt & STRSCAN_OPT_C)) || - (fmt >= STRSCAN_I64 && !(opt & STRSCAN_OPT_LL))) - return STRSCAN_ERROR; - } - while (lj_char_isspace(*p)) p++; - if (*p) return STRSCAN_ERROR; - } - - /* Fast path for decimal 32 bit integers. */ - if (fmt == STRSCAN_INT && base == 10 && - (dig < 10 || (dig == 10 && *sp <= '2' && x < 0x80000000u+neg))) { - int32_t y = neg ? -(int32_t)x : (int32_t)x; - if ((opt & STRSCAN_OPT_TONUM)) { - o->n = (double)y; - return STRSCAN_NUM; - } else { - o->i = y; - return STRSCAN_INT; - } - } - - /* Dispatch to base-specific parser. */ - if (base == 0 && !(fmt == STRSCAN_NUM || fmt == STRSCAN_IMAG)) - return strscan_oct(sp, o, fmt, neg, dig); - if (base == 16) - fmt = strscan_hex(sp, o, fmt, opt, ex, neg, dig); - else - fmt = strscan_dec(sp, o, fmt, opt, ex, neg, dig); - - /* Try to convert number to integer, if requested. */ - if (fmt == STRSCAN_NUM && (opt & STRSCAN_OPT_TOINT)) { - double n = o->n; - int32_t i = lj_num2int(n); - if (n == (lua_Number)i) { o->i = i; return STRSCAN_INT; } - } - return fmt; - } -} - -int LJ_FASTCALL lj_strscan_num(GCstr *str, TValue *o) -{ - StrScanFmt fmt = lj_strscan_scan((const uint8_t *)strdata(str), o, - STRSCAN_OPT_TONUM); - lua_assert(fmt == STRSCAN_ERROR || fmt == STRSCAN_NUM); - return (fmt != STRSCAN_ERROR); -} - -#if LJ_DUALNUM -int LJ_FASTCALL lj_strscan_number(GCstr *str, TValue *o) -{ - StrScanFmt fmt = lj_strscan_scan((const uint8_t *)strdata(str), o, - STRSCAN_OPT_TOINT); - lua_assert(fmt == STRSCAN_ERROR || fmt == STRSCAN_NUM || fmt == STRSCAN_INT); - if (fmt == STRSCAN_INT) setitype(o, LJ_TISNUM); - return (fmt != STRSCAN_ERROR); -} -#endif - -#undef DNEXT -#undef DPREV -#undef DLEN - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_strscan.h b/src/3rd party/luajit-2.0-BAK/src/lj_strscan.h deleted file mode 100644 index 77606893640..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_strscan.h +++ /dev/null @@ -1,39 +0,0 @@ -/* -** String scanning. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_STRSCAN_H -#define _LJ_STRSCAN_H - -#include "lj_obj.h" - -/* Options for accepted/returned formats. */ -#define STRSCAN_OPT_TOINT 0x01 /* Convert to int32_t, if possible. */ -#define STRSCAN_OPT_TONUM 0x02 /* Always convert to double. */ -#define STRSCAN_OPT_IMAG 0x04 -#define STRSCAN_OPT_LL 0x08 -#define STRSCAN_OPT_C 0x10 - -/* Returned format. */ -typedef enum { - STRSCAN_ERROR, - STRSCAN_NUM, STRSCAN_IMAG, - STRSCAN_INT, STRSCAN_U32, STRSCAN_I64, STRSCAN_U64, -} StrScanFmt; - -LJ_FUNC StrScanFmt lj_strscan_scan(const uint8_t *p, TValue *o, uint32_t opt); -LJ_FUNC int LJ_FASTCALL lj_strscan_num(GCstr *str, TValue *o); -#if LJ_DUALNUM -LJ_FUNC int LJ_FASTCALL lj_strscan_number(GCstr *str, TValue *o); -#else -#define lj_strscan_number(s, o) lj_strscan_num((s), (o)) -#endif - -/* Check for number or convert string to number/int in-place (!). */ -static LJ_AINLINE int lj_strscan_numberobj(TValue *o) -{ - return tvisnumber(o) || (tvisstr(o) && lj_strscan_number(strV(o), o)); -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_tab.c b/src/3rd party/luajit-2.0-BAK/src/lj_tab.c deleted file mode 100644 index a9f43835c17..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_tab.c +++ /dev/null @@ -1,666 +0,0 @@ -/* -** Table handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#define lj_tab_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_tab.h" - -/* -- Object hashing ------------------------------------------------------ */ - -/* Hash values are masked with the table hash mask and used as an index. */ -static LJ_AINLINE Node *hashmask(const GCtab *t, uint32_t hash) -{ - Node *n = noderef(t->node); - return &n[hash & t->hmask]; -} - -/* String hashes are precomputed when they are interned. */ -#define hashstr(t, s) hashmask(t, (s)->hash) - -#define hashlohi(t, lo, hi) hashmask((t), hashrot((lo), (hi))) -#define hashnum(t, o) hashlohi((t), (o)->u32.lo, ((o)->u32.hi << 1)) -#define hashptr(t, p) hashlohi((t), u32ptr(p), u32ptr(p) + HASH_BIAS) -#if LJ_GC64 -#define hashgcref(t, r) \ - hashlohi((t), (uint32_t)gcrefu(r), (uint32_t)(gcrefu(r) >> 32)) -#else -#define hashgcref(t, r) hashlohi((t), gcrefu(r), gcrefu(r) + HASH_BIAS) -#endif - -/* Hash an arbitrary key and return its anchor position in the hash table. */ -static Node *hashkey(const GCtab *t, cTValue *key) -{ - lua_assert(!tvisint(key)); - if (tvisstr(key)) - return hashstr(t, strV(key)); - else if (tvisnum(key)) - return hashnum(t, key); - else if (tvisbool(key)) - return hashmask(t, boolV(key)); - else - return hashgcref(t, key->gcr); - /* Only hash 32 bits of lightuserdata on a 64 bit CPU. Good enough? */ -} - -/* -- Table creation and destruction -------------------------------------- */ - -/* Create new hash part for table. */ -static LJ_AINLINE void newhpart(lua_State *L, GCtab *t, uint32_t hbits) -{ - uint32_t hsize; - Node *node; - lua_assert(hbits != 0); - if (hbits > LJ_MAX_HBITS) - lj_err_msg(L, LJ_ERR_TABOV); - hsize = 1u << hbits; - node = lj_mem_newvec(L, hsize, Node); - setmref(t->node, node); - setfreetop(t, node, &node[hsize]); - t->hmask = hsize-1; -} - -/* -** Q: Why all of these copies of t->hmask, t->node etc. to local variables? -** A: Because alias analysis for C is _really_ tough. -** Even state-of-the-art C compilers won't produce good code without this. -*/ - -/* Clear hash part of table. */ -static LJ_AINLINE void clearhpart(GCtab *t) -{ - uint32_t i, hmask = t->hmask; - Node *node = noderef(t->node); - lua_assert(t->hmask != 0); - for (i = 0; i <= hmask; i++) { - Node *n = &node[i]; - setmref(n->next, NULL); - setnilV(&n->key); - setnilV(&n->val); - } -} - -/* Clear array part of table. */ -static LJ_AINLINE void clearapart(GCtab *t) -{ - uint32_t i, asize = t->asize; - TValue *array = tvref(t->array); - for (i = 0; i < asize; i++) - setnilV(&array[i]); -} - -/* Create a new table. Note: the slots are not initialized (yet). */ -static GCtab *newtab(lua_State *L, uint32_t asize, uint32_t hbits) -{ - GCtab *t; - /* First try to colocate the array part. */ - if (LJ_MAX_COLOSIZE != 0 && asize > 0 && asize <= LJ_MAX_COLOSIZE) { - Node *nilnode; - lua_assert((sizeof(GCtab) & 7) == 0); - t = (GCtab *)lj_mem_newgco(L, sizetabcolo(asize)); - t->gct = ~LJ_TTAB; - t->nomm = (uint8_t)~0; - t->colo = (int8_t)asize; - setmref(t->array, (TValue *)((char *)t + sizeof(GCtab))); - setgcrefnull(t->metatable); - t->asize = asize; - t->hmask = 0; - nilnode = &G(L)->nilnode; - setmref(t->node, nilnode); -#if LJ_GC64 - setmref(t->freetop, nilnode); -#endif - } else { /* Otherwise separately allocate the array part. */ - Node *nilnode; - t = lj_mem_newobj(L, GCtab); - t->gct = ~LJ_TTAB; - t->nomm = (uint8_t)~0; - t->colo = 0; - setmref(t->array, NULL); - setgcrefnull(t->metatable); - t->asize = 0; /* In case the array allocation fails. */ - t->hmask = 0; - nilnode = &G(L)->nilnode; - setmref(t->node, nilnode); -#if LJ_GC64 - setmref(t->freetop, nilnode); -#endif - if (asize > 0) { - if (asize > LJ_MAX_ASIZE) - lj_err_msg(L, LJ_ERR_TABOV); - setmref(t->array, lj_mem_newvec(L, asize, TValue)); - t->asize = asize; - } - } - if (hbits) - newhpart(L, t, hbits); - return t; -} - -/* Create a new table. -** -** IMPORTANT NOTE: The API differs from lua_createtable()! -** -** The array size is non-inclusive. E.g. asize=128 creates array slots -** for 0..127, but not for 128. If you need slots 1..128, pass asize=129 -** (slot 0 is wasted in this case). -** -** The hash size is given in hash bits. hbits=0 means no hash part. -** hbits=1 creates 2 hash slots, hbits=2 creates 4 hash slots and so on. -*/ -GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits) -{ - GCtab *t = newtab(L, asize, hbits); - clearapart(t); - if (t->hmask > 0) clearhpart(t); - return t; -} - -/* The API of this function conforms to lua_createtable(). */ -GCtab *lj_tab_new_ah(lua_State *L, int32_t a, int32_t h) -{ - return lj_tab_new(L, (uint32_t)(a > 0 ? a+1 : 0), hsize2hbits(h)); -} - -#if LJ_HASJIT -GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize) -{ - GCtab *t = newtab(L, ahsize & 0xffffff, ahsize >> 24); - clearapart(t); - if (t->hmask > 0) clearhpart(t); - return t; -} -#endif - -/* Duplicate a table. */ -GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt) -{ - GCtab *t; - uint32_t asize, hmask; - t = newtab(L, kt->asize, kt->hmask > 0 ? lj_fls(kt->hmask)+1 : 0); - lua_assert(kt->asize == t->asize && kt->hmask == t->hmask); - t->nomm = 0; /* Keys with metamethod names may be present. */ - asize = kt->asize; - if (asize > 0) { - TValue *array = tvref(t->array); - TValue *karray = tvref(kt->array); - if (asize < 64) { /* An inlined loop beats memcpy for < 512 bytes. */ - uint32_t i; - for (i = 0; i < asize; i++) - copyTV(L, &array[i], &karray[i]); - } else { - memcpy(array, karray, asize*sizeof(TValue)); - } - } - hmask = kt->hmask; - if (hmask > 0) { - uint32_t i; - Node *node = noderef(t->node); - Node *knode = noderef(kt->node); - ptrdiff_t d = (char *)node - (char *)knode; - setfreetop(t, node, (Node *)((char *)getfreetop(kt, knode) + d)); - for (i = 0; i <= hmask; i++) { - Node *kn = &knode[i]; - Node *n = &node[i]; - Node *next = nextnode(kn); - /* Don't use copyTV here, since it asserts on a copy of a dead key. */ - n->val = kn->val; n->key = kn->key; - setmref(n->next, next == NULL? next : (Node *)((char *)next + d)); - } - } - return t; -} - -/* Clear a table. */ -void LJ_FASTCALL lj_tab_clear(GCtab *t) -{ - clearapart(t); - if (t->hmask > 0) { - Node *node = noderef(t->node); - setfreetop(t, node, &node[t->hmask+1]); - clearhpart(t); - } -} - -/* Free a table. */ -void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t) -{ - if (t->hmask > 0) - lj_mem_freevec(g, noderef(t->node), t->hmask+1, Node); - if (t->asize > 0 && LJ_MAX_COLOSIZE != 0 && t->colo <= 0) - lj_mem_freevec(g, tvref(t->array), t->asize, TValue); - if (LJ_MAX_COLOSIZE != 0 && t->colo) - lj_mem_free(g, t, sizetabcolo((uint32_t)t->colo & 0x7f)); - else - lj_mem_freet(g, t); -} - -/* -- Table resizing ------------------------------------------------------ */ - -/* Resize a table to fit the new array/hash part sizes. */ -static void resizetab(lua_State *L, GCtab *t, uint32_t asize, uint32_t hbits) -{ - Node *oldnode = noderef(t->node); - uint32_t oldasize = t->asize; - uint32_t oldhmask = t->hmask; - if (asize > oldasize) { /* Array part grows? */ - TValue *array; - uint32_t i; - if (asize > LJ_MAX_ASIZE) - lj_err_msg(L, LJ_ERR_TABOV); - if (LJ_MAX_COLOSIZE != 0 && t->colo > 0) { - /* A colocated array must be separated and copied. */ - TValue *oarray = tvref(t->array); - array = lj_mem_newvec(L, asize, TValue); - t->colo = (int8_t)(t->colo | 0x80); /* Mark as separated (colo < 0). */ - for (i = 0; i < oldasize; i++) - copyTV(L, &array[i], &oarray[i]); - } else { - array = (TValue *)lj_mem_realloc(L, tvref(t->array), - oldasize*sizeof(TValue), asize*sizeof(TValue)); - } - setmref(t->array, array); - t->asize = asize; - for (i = oldasize; i < asize; i++) /* Clear newly allocated slots. */ - setnilV(&array[i]); - } - /* Create new (empty) hash part. */ - if (hbits) { - newhpart(L, t, hbits); - clearhpart(t); - } else { - global_State *g = G(L); - setmref(t->node, &g->nilnode); -#if LJ_GC64 - setmref(t->freetop, &g->nilnode); -#endif - t->hmask = 0; - } - if (asize < oldasize) { /* Array part shrinks? */ - TValue *array = tvref(t->array); - uint32_t i; - t->asize = asize; /* Note: This 'shrinks' even colocated arrays. */ - for (i = asize; i < oldasize; i++) /* Reinsert old array values. */ - if (!tvisnil(&array[i])) - copyTV(L, lj_tab_setinth(L, t, (int32_t)i), &array[i]); - /* Physically shrink only separated arrays. */ - if (LJ_MAX_COLOSIZE != 0 && t->colo <= 0) - setmref(t->array, lj_mem_realloc(L, array, - oldasize*sizeof(TValue), asize*sizeof(TValue))); - } - if (oldhmask > 0) { /* Reinsert pairs from old hash part. */ - global_State *g; - uint32_t i; - for (i = 0; i <= oldhmask; i++) { - Node *n = &oldnode[i]; - if (!tvisnil(&n->val)) - copyTV(L, lj_tab_set(L, t, &n->key), &n->val); - } - g = G(L); - lj_mem_freevec(g, oldnode, oldhmask+1, Node); - } -} - -static uint32_t countint(cTValue *key, uint32_t *bins) -{ - lua_assert(!tvisint(key)); - if (tvisnum(key)) { - lua_Number nk = numV(key); - int32_t k = lj_num2int(nk); - if ((uint32_t)k < LJ_MAX_ASIZE && nk == (lua_Number)k) { - bins[(k > 2 ? lj_fls((uint32_t)(k-1)) : 0)]++; - return 1; - } - } - return 0; -} - -static uint32_t countarray(const GCtab *t, uint32_t *bins) -{ - uint32_t na, b, i; - if (t->asize == 0) return 0; - for (na = i = b = 0; b < LJ_MAX_ABITS; b++) { - uint32_t n, top = 2u << b; - TValue *array; - if (top >= t->asize) { - top = t->asize-1; - if (i > top) - break; - } - array = tvref(t->array); - for (n = 0; i <= top; i++) - if (!tvisnil(&array[i])) - n++; - bins[b] += n; - na += n; - } - return na; -} - -static uint32_t counthash(const GCtab *t, uint32_t *bins, uint32_t *narray) -{ - uint32_t total, na, i, hmask = t->hmask; - Node *node = noderef(t->node); - for (total = na = 0, i = 0; i <= hmask; i++) { - Node *n = &node[i]; - if (!tvisnil(&n->val)) { - na += countint(&n->key, bins); - total++; - } - } - *narray += na; - return total; -} - -static uint32_t bestasize(uint32_t bins[], uint32_t *narray) -{ - uint32_t b, sum, na = 0, sz = 0, nn = *narray; - for (b = 0, sum = 0; 2*nn > (1u< 0 && 2*(sum += bins[b]) > (1u<hmask > 0 ? lj_fls(t->hmask)+1 : 0); -} - -/* -- Table getters ------------------------------------------------------- */ - -cTValue * LJ_FASTCALL lj_tab_getinth(GCtab *t, int32_t key) -{ - TValue k; - Node *n; - k.n = (lua_Number)key; - n = hashnum(t, &k); - do { - if (tvisnum(&n->key) && n->key.n == k.n) - return &n->val; - } while ((n = nextnode(n))); - return NULL; -} - -cTValue *lj_tab_getstr(GCtab *t, GCstr *key) -{ - Node *n = hashstr(t, key); - do { - if (tvisstr(&n->key) && strV(&n->key) == key) - return &n->val; - } while ((n = nextnode(n))); - return NULL; -} - -cTValue *lj_tab_get(lua_State *L, GCtab *t, cTValue *key) -{ - if (tvisstr(key)) { - cTValue *tv = lj_tab_getstr(t, strV(key)); - if (tv) - return tv; - } else if (tvisint(key)) { - cTValue *tv = lj_tab_getint(t, intV(key)); - if (tv) - return tv; - } else if (tvisnum(key)) { - lua_Number nk = numV(key); - int32_t k = lj_num2int(nk); - if (nk == (lua_Number)k) { - cTValue *tv = lj_tab_getint(t, k); - if (tv) - return tv; - } else { - goto genlookup; /* Else use the generic lookup. */ - } - } else if (!tvisnil(key)) { - Node *n; - genlookup: - n = hashkey(t, key); - do { - if (lj_obj_equal(&n->key, key)) - return &n->val; - } while ((n = nextnode(n))); - } - return niltv(L); -} - -/* -- Table setters ------------------------------------------------------- */ - -/* Insert new key. Use Brent's variation to optimize the chain length. */ -TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key) -{ - Node *n = hashkey(t, key); - if (!tvisnil(&n->val) || t->hmask == 0) { - Node *nodebase = noderef(t->node); - Node *collide, *freenode = getfreetop(t, nodebase); - lua_assert(freenode >= nodebase && freenode <= nodebase+t->hmask+1); - do { - if (freenode == nodebase) { /* No free node found? */ - rehashtab(L, t, key); /* Rehash table. */ - return lj_tab_set(L, t, key); /* Retry key insertion. */ - } - } while (!tvisnil(&(--freenode)->key)); - setfreetop(t, nodebase, freenode); - lua_assert(freenode != &G(L)->nilnode); - collide = hashkey(t, &n->key); - if (collide != n) { /* Colliding node not the main node? */ - while (noderef(collide->next) != n) /* Find predecessor. */ - collide = nextnode(collide); - setmref(collide->next, freenode); /* Relink chain. */ - /* Copy colliding node into free node and free main node. */ - freenode->val = n->val; - freenode->key = n->key; - freenode->next = n->next; - setmref(n->next, NULL); - setnilV(&n->val); - /* Rechain pseudo-resurrected string keys with colliding hashes. */ - while (nextnode(freenode)) { - Node *nn = nextnode(freenode); - if (tvisstr(&nn->key) && !tvisnil(&nn->val) && - hashstr(t, strV(&nn->key)) == n) { - freenode->next = nn->next; - nn->next = n->next; - setmref(n->next, nn); - } else { - freenode = nn; - } - } - } else { /* Otherwise use free node. */ - setmrefr(freenode->next, n->next); /* Insert into chain. */ - setmref(n->next, freenode); - n = freenode; - } - } - n->key.u64 = key->u64; - if (LJ_UNLIKELY(tvismzero(&n->key))) - n->key.u64 = 0; - lj_gc_anybarriert(L, t); - lua_assert(tvisnil(&n->val)); - return &n->val; -} - -TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key) -{ - TValue k; - Node *n; - k.n = (lua_Number)key; - n = hashnum(t, &k); - do { - if (tvisnum(&n->key) && n->key.n == k.n) - return &n->val; - } while ((n = nextnode(n))); - return lj_tab_newkey(L, t, &k); -} - -TValue *lj_tab_setstr(lua_State *L, GCtab *t, GCstr *key) -{ - TValue k; - Node *n = hashstr(t, key); - do { - if (tvisstr(&n->key) && strV(&n->key) == key) - return &n->val; - } while ((n = nextnode(n))); - setstrV(L, &k, key); - return lj_tab_newkey(L, t, &k); -} - -TValue *lj_tab_set(lua_State *L, GCtab *t, cTValue *key) -{ - Node *n; - t->nomm = 0; /* Invalidate negative metamethod cache. */ - if (tvisstr(key)) { - return lj_tab_setstr(L, t, strV(key)); - } else if (tvisint(key)) { - return lj_tab_setint(L, t, intV(key)); - } else if (tvisnum(key)) { - lua_Number nk = numV(key); - int32_t k = lj_num2int(nk); - if (nk == (lua_Number)k) - return lj_tab_setint(L, t, k); - if (tvisnan(key)) - lj_err_msg(L, LJ_ERR_NANIDX); - /* Else use the generic lookup. */ - } else if (tvisnil(key)) { - lj_err_msg(L, LJ_ERR_NILIDX); - } - n = hashkey(t, key); - do { - if (lj_obj_equal(&n->key, key)) - return &n->val; - } while ((n = nextnode(n))); - return lj_tab_newkey(L, t, key); -} - -/* -- Table traversal ----------------------------------------------------- */ - -/* Get the traversal index of a key. */ -static uint32_t keyindex(lua_State *L, GCtab *t, cTValue *key) -{ - TValue tmp; - if (tvisint(key)) { - int32_t k = intV(key); - if ((uint32_t)k < t->asize) - return (uint32_t)k; /* Array key indexes: [0..t->asize-1] */ - setnumV(&tmp, (lua_Number)k); - key = &tmp; - } else if (tvisnum(key)) { - lua_Number nk = numV(key); - int32_t k = lj_num2int(nk); - if ((uint32_t)k < t->asize && nk == (lua_Number)k) - return (uint32_t)k; /* Array key indexes: [0..t->asize-1] */ - } - if (!tvisnil(key)) { - Node *n = hashkey(t, key); - do { - if (lj_obj_equal(&n->key, key)) - return t->asize + (uint32_t)(n - noderef(t->node)); - /* Hash key indexes: [t->asize..t->asize+t->nmask] */ - } while ((n = nextnode(n))); - if (key->u32.hi == 0xfffe7fff) /* ITERN was despecialized while running. */ - return key->u32.lo - 1; - lj_err_msg(L, LJ_ERR_NEXTIDX); - return 0; /* unreachable */ - } - return ~0u; /* A nil key starts the traversal. */ -} - -/* Advance to the next step in a table traversal. */ -int lj_tab_next(lua_State *L, GCtab *t, TValue *key) -{ - uint32_t i = keyindex(L, t, key); /* Find predecessor key index. */ - for (i++; i < t->asize; i++) /* First traverse the array keys. */ - if (!tvisnil(arrayslot(t, i))) { - setintV(key, i); - copyTV(L, key+1, arrayslot(t, i)); - return 1; - } - for (i -= t->asize; i <= t->hmask; i++) { /* Then traverse the hash keys. */ - Node *n = &noderef(t->node)[i]; - if (!tvisnil(&n->val)) { - copyTV(L, key, &n->key); - copyTV(L, key+1, &n->val); - return 1; - } - } - return 0; /* End of traversal. */ -} - -/* -- Table length calculation -------------------------------------------- */ - -static MSize unbound_search(GCtab *t, MSize j) -{ - cTValue *tv; - MSize i = j; /* i is zero or a present index */ - j++; - /* find `i' and `j' such that i is present and j is not */ - while ((tv = lj_tab_getint(t, (int32_t)j)) && !tvisnil(tv)) { - i = j; - j *= 2; - if (j > (MSize)(INT_MAX-2)) { /* overflow? */ - /* table was built with bad purposes: resort to linear search */ - i = 1; - while ((tv = lj_tab_getint(t, (int32_t)i)) && !tvisnil(tv)) i++; - return i - 1; - } - } - /* now do a binary search between them */ - while (j - i > 1) { - MSize m = (i+j)/2; - cTValue *tvb = lj_tab_getint(t, (int32_t)m); - if (tvb && !tvisnil(tvb)) i = m; else j = m; - } - return i; -} - -/* -** Try to find a boundary in table `t'. A `boundary' is an integer index -** such that t[i] is non-nil and t[i+1] is nil (and 0 if t[1] is nil). -*/ -MSize LJ_FASTCALL lj_tab_len(GCtab *t) -{ - MSize j = (MSize)t->asize; - if (j > 1 && tvisnil(arrayslot(t, j-1))) { - MSize i = 1; - while (j - i > 1) { - MSize m = (i+j)/2; - if (tvisnil(arrayslot(t, m-1))) j = m; else i = m; - } - return i-1; - } - if (j) j--; - if (t->hmask <= 0) - return j; - return unbound_search(t, j); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_tab.h b/src/3rd party/luajit-2.0-BAK/src/lj_tab.h deleted file mode 100644 index 1da28bd97f6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_tab.h +++ /dev/null @@ -1,72 +0,0 @@ -/* -** Table handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TAB_H -#define _LJ_TAB_H - -#include "lj_obj.h" - -/* Hash constants. Tuned using a brute force search. */ -#define HASH_BIAS (-0x04c11db7) -#define HASH_ROT1 14 -#define HASH_ROT2 5 -#define HASH_ROT3 13 - -/* Scramble the bits of numbers and pointers. */ -static LJ_AINLINE uint32_t hashrot(uint32_t lo, uint32_t hi) -{ -#if LJ_TARGET_X86ORX64 - /* Prefer variant that compiles well for a 2-operand CPU. */ - lo ^= hi; hi = lj_rol(hi, HASH_ROT1); - lo -= hi; hi = lj_rol(hi, HASH_ROT2); - hi ^= lo; hi -= lj_rol(lo, HASH_ROT3); -#else - lo ^= hi; - lo = lo - lj_rol(hi, HASH_ROT1); - hi = lo ^ lj_rol(hi, HASH_ROT1 + HASH_ROT2); - hi = hi - lj_rol(lo, HASH_ROT3); -#endif - return hi; -} - -#define hsize2hbits(s) ((s) ? ((s)==1 ? 1 : 1+lj_fls((uint32_t)((s)-1))) : 0) - -LJ_FUNCA GCtab *lj_tab_new(lua_State *L, uint32_t asize, uint32_t hbits); -LJ_FUNC GCtab *lj_tab_new_ah(lua_State *L, int32_t a, int32_t h); -#if LJ_HASJIT -LJ_FUNC GCtab * LJ_FASTCALL lj_tab_new1(lua_State *L, uint32_t ahsize); -#endif -LJ_FUNCA GCtab * LJ_FASTCALL lj_tab_dup(lua_State *L, const GCtab *kt); -LJ_FUNC void LJ_FASTCALL lj_tab_clear(GCtab *t); -LJ_FUNC void LJ_FASTCALL lj_tab_free(global_State *g, GCtab *t); -#if LJ_HASFFI -LJ_FUNC void lj_tab_rehash(lua_State *L, GCtab *t); -#endif -LJ_FUNCA void lj_tab_reasize(lua_State *L, GCtab *t, uint32_t nasize); - -/* Caveat: all getters except lj_tab_get() can return NULL! */ - -LJ_FUNCA cTValue * LJ_FASTCALL lj_tab_getinth(GCtab *t, int32_t key); -LJ_FUNC cTValue *lj_tab_getstr(GCtab *t, GCstr *key); -LJ_FUNCA cTValue *lj_tab_get(lua_State *L, GCtab *t, cTValue *key); - -/* Caveat: all setters require a write barrier for the stored value. */ - -LJ_FUNCA TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key); -LJ_FUNCA TValue *lj_tab_setinth(lua_State *L, GCtab *t, int32_t key); -LJ_FUNC TValue *lj_tab_setstr(lua_State *L, GCtab *t, GCstr *key); -LJ_FUNC TValue *lj_tab_set(lua_State *L, GCtab *t, cTValue *key); - -#define inarray(t, key) ((MSize)(key) < (MSize)(t)->asize) -#define arrayslot(t, i) (&tvref((t)->array)[(i)]) -#define lj_tab_getint(t, key) \ - (inarray((t), (key)) ? arrayslot((t), (key)) : lj_tab_getinth((t), (key))) -#define lj_tab_setint(L, t, key) \ - (inarray((t), (key)) ? arrayslot((t), (key)) : lj_tab_setinth(L, (t), (key))) - -LJ_FUNCA int lj_tab_next(lua_State *L, GCtab *t, TValue *key); -LJ_FUNCA MSize LJ_FASTCALL lj_tab_len(GCtab *t); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target.h b/src/3rd party/luajit-2.0-BAK/src/lj_target.h deleted file mode 100644 index 0daecb11c86..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target.h +++ /dev/null @@ -1,164 +0,0 @@ -/* -** Definitions for target CPU. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_H -#define _LJ_TARGET_H - -#include "lj_def.h" -#include "lj_arch.h" - -/* -- Registers and spill slots ------------------------------------------- */ - -/* Register type (uint8_t in ir->r). */ -typedef uint32_t Reg; - -/* The hi-bit is NOT set for an allocated register. This means the value -** can be directly used without masking. The hi-bit is set for a register -** allocation hint or for RID_INIT, RID_SINK or RID_SUNK. -*/ -#define RID_NONE 0x80 -#define RID_MASK 0x7f -#define RID_INIT (RID_NONE|RID_MASK) -#define RID_SINK (RID_INIT-1) -#define RID_SUNK (RID_INIT-2) - -#define ra_noreg(r) ((r) & RID_NONE) -#define ra_hasreg(r) (!((r) & RID_NONE)) - -/* The ra_hashint() macro assumes a previous test for ra_noreg(). */ -#define ra_hashint(r) ((r) < RID_SUNK) -#define ra_gethint(r) ((Reg)((r) & RID_MASK)) -#define ra_sethint(rr, r) rr = (uint8_t)((r)|RID_NONE) -#define ra_samehint(r1, r2) (ra_gethint((r1)^(r2)) == 0) - -/* Spill slot 0 means no spill slot has been allocated. */ -#define SPS_NONE 0 - -#define ra_hasspill(s) ((s) != SPS_NONE) - -/* Combined register and spill slot (uint16_t in ir->prev). */ -typedef uint32_t RegSP; - -#define REGSP(r, s) ((r) + ((s) << 8)) -#define REGSP_HINT(r) ((r)|RID_NONE) -#define REGSP_INIT REGSP(RID_INIT, 0) - -#define regsp_reg(rs) ((rs) & 255) -#define regsp_spill(rs) ((rs) >> 8) -#define regsp_used(rs) \ - (((rs) & ~REGSP(RID_MASK, 0)) != REGSP(RID_NONE, 0)) - -/* -- Register sets ------------------------------------------------------- */ - -/* Bitset for registers. 32 registers suffice for most architectures. -** Note that one set holds bits for both GPRs and FPRs. -*/ -#if LJ_TARGET_PPC || LJ_TARGET_MIPS -typedef uint64_t RegSet; -#else -typedef uint32_t RegSet; -#endif - -#define RID2RSET(r) (((RegSet)1) << (r)) -#define RSET_EMPTY ((RegSet)0) -#define RSET_RANGE(lo, hi) ((RID2RSET((hi)-(lo))-1) << (lo)) - -#define rset_test(rs, r) ((int)((rs) >> (r)) & 1) -#define rset_set(rs, r) (rs |= RID2RSET(r)) -#define rset_clear(rs, r) (rs &= ~RID2RSET(r)) -#define rset_exclude(rs, r) (rs & ~RID2RSET(r)) -#if LJ_TARGET_PPC || LJ_TARGET_MIPS -#define rset_picktop(rs) ((Reg)(__builtin_clzll(rs)^63)) -#define rset_pickbot(rs) ((Reg)__builtin_ctzll(rs)) -#else -#define rset_picktop(rs) ((Reg)lj_fls(rs)) -#define rset_pickbot(rs) ((Reg)lj_ffs(rs)) -#endif - -/* -- Register allocation cost -------------------------------------------- */ - -/* The register allocation heuristic keeps track of the cost for allocating -** a specific register: -** -** A free register (obviously) has a cost of 0 and a 1-bit in the free mask. -** -** An already allocated register has the (non-zero) IR reference in the lowest -** bits and the result of a blended cost-model in the higher bits. -** -** The allocator first checks the free mask for a hit. Otherwise an (unrolled) -** linear search for the minimum cost is used. The search doesn't need to -** keep track of the position of the minimum, which makes it very fast. -** The lowest bits of the minimum cost show the desired IR reference whose -** register is the one to evict. -** -** Without the cost-model this degenerates to the standard heuristics for -** (reverse) linear-scan register allocation. Since code generation is done -** in reverse, a live interval extends from the last use to the first def. -** For an SSA IR the IR reference is the first (and only) def and thus -** trivially marks the end of the interval. The LSRA heuristics says to pick -** the register whose live interval has the furthest extent, i.e. the lowest -** IR reference in our case. -** -** A cost-model should take into account other factors, like spill-cost and -** restore- or rematerialization-cost, which depend on the kind of instruction. -** E.g. constants have zero spill costs, variant instructions have higher -** costs than invariants and PHIs should preferably never be spilled. -** -** Here's a first cut at simple, but effective blended cost-model for R-LSRA: -** - Due to careful design of the IR, constants already have lower IR -** references than invariants and invariants have lower IR references -** than variants. -** - The cost in the upper 16 bits is the sum of the IR reference and a -** weighted score. The score currently only takes into account whether -** the IRT_ISPHI bit is set in the instruction type. -** - The PHI weight is the minimum distance (in IR instructions) a PHI -** reference has to be further apart from a non-PHI reference to be spilled. -** - It should be a power of two (for speed) and must be between 2 and 32768. -** Good values for the PHI weight seem to be between 40 and 150. -** - Further study is required. -*/ -#define REGCOST_PHI_WEIGHT 64 - -/* Cost for allocating a specific register. */ -typedef uint32_t RegCost; - -/* Note: assumes 16 bit IRRef1. */ -#define REGCOST(cost, ref) ((RegCost)(ref) + ((RegCost)(cost) << 16)) -#define regcost_ref(rc) ((IRRef1)(rc)) - -#define REGCOST_T(t) \ - ((RegCost)((t)&IRT_ISPHI) * (((RegCost)(REGCOST_PHI_WEIGHT)<<16)/IRT_ISPHI)) -#define REGCOST_REF_T(ref, t) (REGCOST((ref), (ref)) + REGCOST_T((t))) - -/* -- Target-specific definitions ----------------------------------------- */ - -#if LJ_TARGET_X86ORX64 -#include "lj_target_x86.h" -#elif LJ_TARGET_ARM -#include "lj_target_arm.h" -#elif LJ_TARGET_ARM64 -#include "lj_target_arm64.h" -#elif LJ_TARGET_PPC -#include "lj_target_ppc.h" -#elif LJ_TARGET_MIPS -#include "lj_target_mips.h" -#else -#error "Missing include for target CPU" -#endif - -#ifdef EXITSTUBS_PER_GROUP -/* Return the address of an exit stub. */ -static LJ_AINLINE char *exitstub_addr_(char **group, uint32_t exitno) -{ - lua_assert(group[exitno / EXITSTUBS_PER_GROUP] != NULL); - return (char *)group[exitno / EXITSTUBS_PER_GROUP] + - EXITSTUB_SPACING*(exitno % EXITSTUBS_PER_GROUP); -} -/* Avoid dependence on lj_jit.h if only including lj_target.h. */ -#define exitstub_addr(J, exitno) \ - ((MCode *)exitstub_addr_((char **)((J)->exitstubgroup), (exitno))) -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h deleted file mode 100644 index 0a243b3740b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target_arm.h +++ /dev/null @@ -1,270 +0,0 @@ -/* -** Definitions for ARM CPUs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_ARM_H -#define _LJ_TARGET_ARM_H - -/* -- Registers IDs ------------------------------------------------------- */ - -#define GPRDEF(_) \ - _(R0) _(R1) _(R2) _(R3) _(R4) _(R5) _(R6) _(R7) \ - _(R8) _(R9) _(R10) _(R11) _(R12) _(SP) _(LR) _(PC) -#if LJ_SOFTFP -#define FPRDEF(_) -#else -#define FPRDEF(_) \ - _(D0) _(D1) _(D2) _(D3) _(D4) _(D5) _(D6) _(D7) \ - _(D8) _(D9) _(D10) _(D11) _(D12) _(D13) _(D14) _(D15) -#endif -#define VRIDDEF(_) - -#define RIDENUM(name) RID_##name, - -enum { - GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ - FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ - RID_MAX, - RID_TMP = RID_LR, - - /* Calling conventions. */ - RID_RET = RID_R0, - RID_RETLO = RID_R0, - RID_RETHI = RID_R1, -#if LJ_SOFTFP - RID_FPRET = RID_R0, -#else - RID_FPRET = RID_D0, -#endif - - /* These definitions must match with the *.dasc file(s): */ - RID_BASE = RID_R9, /* Interpreter BASE. */ - RID_LPC = RID_R6, /* Interpreter PC. */ - RID_DISPATCH = RID_R7, /* Interpreter DISPATCH table. */ - RID_LREG = RID_R8, /* Interpreter L. */ - - /* Register ranges [min, max) and number of registers. */ - RID_MIN_GPR = RID_R0, - RID_MAX_GPR = RID_PC+1, - RID_MIN_FPR = RID_MAX_GPR, -#if LJ_SOFTFP - RID_MAX_FPR = RID_MIN_FPR, -#else - RID_MAX_FPR = RID_D15+1, -#endif - RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, - RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR -}; - -#define RID_NUM_KREF RID_NUM_GPR -#define RID_MIN_KREF RID_R0 - -/* -- Register sets ------------------------------------------------------- */ - -/* Make use of all registers, except sp, lr and pc. */ -#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_R12+1)) -#define RSET_GPREVEN \ - (RID2RSET(RID_R0)|RID2RSET(RID_R2)|RID2RSET(RID_R4)|RID2RSET(RID_R6)| \ - RID2RSET(RID_R8)|RID2RSET(RID_R10)) -#define RSET_GPRODD \ - (RID2RSET(RID_R1)|RID2RSET(RID_R3)|RID2RSET(RID_R5)|RID2RSET(RID_R7)| \ - RID2RSET(RID_R9)|RID2RSET(RID_R11)) -#if LJ_SOFTFP -#define RSET_FPR 0 -#else -#define RSET_FPR (RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR)) -#endif -#define RSET_ALL (RSET_GPR|RSET_FPR) -#define RSET_INIT RSET_ALL - -/* ABI-specific register sets. lr is an implicit scratch register. */ -#define RSET_SCRATCH_GPR_ (RSET_RANGE(RID_R0, RID_R3+1)|RID2RSET(RID_R12)) -#ifdef __APPLE__ -#define RSET_SCRATCH_GPR (RSET_SCRATCH_GPR_|RID2RSET(RID_R9)) -#else -#define RSET_SCRATCH_GPR RSET_SCRATCH_GPR_ -#endif -#if LJ_SOFTFP -#define RSET_SCRATCH_FPR 0 -#else -#define RSET_SCRATCH_FPR (RSET_RANGE(RID_D0, RID_D7+1)) -#endif -#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) -#define REGARG_FIRSTGPR RID_R0 -#define REGARG_LASTGPR RID_R3 -#define REGARG_NUMGPR 4 -#if LJ_ABI_SOFTFP -#define REGARG_FIRSTFPR 0 -#define REGARG_LASTFPR 0 -#define REGARG_NUMFPR 0 -#else -#define REGARG_FIRSTFPR RID_D0 -#define REGARG_LASTFPR RID_D7 -#define REGARG_NUMFPR 8 -#endif - -/* -- Spill slots --------------------------------------------------------- */ - -/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. -** -** SPS_FIXED: Available fixed spill slots in interpreter frame. -** This definition must match with the *.dasc file(s). -** -** SPS_FIRST: First spill slot for general use. Reserve min. two 32 bit slots. -*/ -#define SPS_FIXED 2 -#define SPS_FIRST 2 - -#define SPOFS_TMP 0 - -#define sps_scale(slot) (4 * (int32_t)(slot)) -#define sps_align(slot) (((slot) - SPS_FIXED + 1) & ~1) - -/* -- Exit state ---------------------------------------------------------- */ - -/* This definition must match with the *.dasc file(s). */ -typedef struct { -#if !LJ_SOFTFP - lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ -#endif - int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ - int32_t spill[256]; /* Spill slots. */ -} ExitState; - -/* PC after instruction that caused an exit. Used to find the trace number. */ -#define EXITSTATE_PCREG RID_PC -/* Highest exit + 1 indicates stack check. */ -#define EXITSTATE_CHECKEXIT 1 - -#define EXITSTUB_SPACING 4 -#define EXITSTUBS_PER_GROUP 32 - -/* -- Instructions -------------------------------------------------------- */ - -/* Instruction fields. */ -#define ARMF_CC(ai, cc) (((ai) ^ ARMI_CCAL) | ((cc) << 28)) -#define ARMF_N(r) ((r) << 16) -#define ARMF_D(r) ((r) << 12) -#define ARMF_S(r) ((r) << 8) -#define ARMF_M(r) (r) -#define ARMF_SH(sh, n) (((sh) << 5) | ((n) << 7)) -#define ARMF_RSH(sh, r) (0x10 | ((sh) << 5) | ARMF_S(r)) - -typedef enum ARMIns { - ARMI_CCAL = 0xe0000000, - ARMI_S = 0x000100000, - ARMI_K12 = 0x02000000, - ARMI_KNEG = 0x00200000, - ARMI_LS_W = 0x00200000, - ARMI_LS_U = 0x00800000, - ARMI_LS_P = 0x01000000, - ARMI_LS_R = 0x02000000, - ARMI_LSX_I = 0x00400000, - - ARMI_AND = 0xe0000000, - ARMI_EOR = 0xe0200000, - ARMI_SUB = 0xe0400000, - ARMI_RSB = 0xe0600000, - ARMI_ADD = 0xe0800000, - ARMI_ADC = 0xe0a00000, - ARMI_SBC = 0xe0c00000, - ARMI_RSC = 0xe0e00000, - ARMI_TST = 0xe1100000, - ARMI_TEQ = 0xe1300000, - ARMI_CMP = 0xe1500000, - ARMI_CMN = 0xe1700000, - ARMI_ORR = 0xe1800000, - ARMI_MOV = 0xe1a00000, - ARMI_BIC = 0xe1c00000, - ARMI_MVN = 0xe1e00000, - - ARMI_NOP = 0xe1a00000, - - ARMI_MUL = 0xe0000090, - ARMI_SMULL = 0xe0c00090, - - ARMI_LDR = 0xe4100000, - ARMI_LDRB = 0xe4500000, - ARMI_LDRH = 0xe01000b0, - ARMI_LDRSB = 0xe01000d0, - ARMI_LDRSH = 0xe01000f0, - ARMI_LDRD = 0xe00000d0, - ARMI_STR = 0xe4000000, - ARMI_STRB = 0xe4400000, - ARMI_STRH = 0xe00000b0, - ARMI_STRD = 0xe00000f0, - ARMI_PUSH = 0xe92d0000, - - ARMI_B = 0xea000000, - ARMI_BL = 0xeb000000, - ARMI_BLX = 0xfa000000, - ARMI_BLXr = 0xe12fff30, - - /* ARMv6 */ - ARMI_REV = 0xe6bf0f30, - ARMI_SXTB = 0xe6af0070, - ARMI_SXTH = 0xe6bf0070, - ARMI_UXTB = 0xe6ef0070, - ARMI_UXTH = 0xe6ff0070, - - /* ARMv6T2 */ - ARMI_MOVW = 0xe3000000, - ARMI_MOVT = 0xe3400000, - - /* VFP */ - ARMI_VMOV_D = 0xeeb00b40, - ARMI_VMOV_S = 0xeeb00a40, - ARMI_VMOVI_D = 0xeeb00b00, - - ARMI_VMOV_R_S = 0xee100a10, - ARMI_VMOV_S_R = 0xee000a10, - ARMI_VMOV_RR_D = 0xec500b10, - ARMI_VMOV_D_RR = 0xec400b10, - - ARMI_VADD_D = 0xee300b00, - ARMI_VSUB_D = 0xee300b40, - ARMI_VMUL_D = 0xee200b00, - ARMI_VMLA_D = 0xee000b00, - ARMI_VMLS_D = 0xee000b40, - ARMI_VNMLS_D = 0xee100b00, - ARMI_VDIV_D = 0xee800b00, - - ARMI_VABS_D = 0xeeb00bc0, - ARMI_VNEG_D = 0xeeb10b40, - ARMI_VSQRT_D = 0xeeb10bc0, - - ARMI_VCMP_D = 0xeeb40b40, - ARMI_VCMPZ_D = 0xeeb50b40, - - ARMI_VMRS = 0xeef1fa10, - - ARMI_VCVT_S32_F32 = 0xeebd0ac0, - ARMI_VCVT_S32_F64 = 0xeebd0bc0, - ARMI_VCVT_U32_F32 = 0xeebc0ac0, - ARMI_VCVT_U32_F64 = 0xeebc0bc0, - ARMI_VCVT_F32_S32 = 0xeeb80ac0, - ARMI_VCVT_F64_S32 = 0xeeb80bc0, - ARMI_VCVT_F32_U32 = 0xeeb80a40, - ARMI_VCVT_F64_U32 = 0xeeb80b40, - ARMI_VCVT_F32_F64 = 0xeeb70bc0, - ARMI_VCVT_F64_F32 = 0xeeb70ac0, - - ARMI_VLDR_S = 0xed100a00, - ARMI_VLDR_D = 0xed100b00, - ARMI_VSTR_S = 0xed000a00, - ARMI_VSTR_D = 0xed000b00, -} ARMIns; - -typedef enum ARMShift { - ARMSH_LSL, ARMSH_LSR, ARMSH_ASR, ARMSH_ROR -} ARMShift; - -/* ARM condition codes. */ -typedef enum ARMCC { - CC_EQ, CC_NE, CC_CS, CC_CC, CC_MI, CC_PL, CC_VS, CC_VC, - CC_HI, CC_LS, CC_GE, CC_LT, CC_GT, CC_LE, CC_AL, - CC_HS = CC_CS, CC_LO = CC_CC -} ARMCC; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h deleted file mode 100644 index 99e0adc9d66..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target_arm64.h +++ /dev/null @@ -1,97 +0,0 @@ -/* -** Definitions for ARM64 CPUs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_ARM64_H -#define _LJ_TARGET_ARM64_H - -/* -- Registers IDs ------------------------------------------------------- */ - -#define GPRDEF(_) \ - _(X0) _(X1) _(X2) _(X3) _(X4) _(X5) _(X6) _(X7) \ - _(X8) _(X9) _(X10) _(X11) _(X12) _(X13) _(X14) _(X15) \ - _(X16) _(X17) _(X18) _(X19) _(X20) _(X21) _(X22) _(X23) \ - _(X24) _(X25) _(X26) _(X27) _(X28) _(FP) _(LR) _(SP) -#define FPRDEF(_) \ - _(D0) _(D1) _(D2) _(D3) _(D4) _(D5) _(D6) _(D7) \ - _(D8) _(D9) _(D10) _(D11) _(D12) _(D13) _(D14) _(D15) \ - _(D16) _(D17) _(D18) _(D19) _(D20) _(D21) _(D22) _(D23) \ - _(D24) _(D25) _(D26) _(D27) _(D28) _(D29) _(D30) _(D31) -#define VRIDDEF(_) - -#define RIDENUM(name) RID_##name, - -enum { - GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ - FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ - RID_MAX, - RID_TMP = RID_LR, - RID_ZERO = RID_SP, - - /* Calling conventions. */ - RID_RET = RID_X0, - RID_FPRET = RID_D0, - - /* These definitions must match with the *.dasc file(s): */ - RID_BASE = RID_X19, /* Interpreter BASE. */ - RID_LPC = RID_X21, /* Interpreter PC. */ - RID_GL = RID_X22, /* Interpreter GL. */ - RID_LREG = RID_X23, /* Interpreter L. */ - - /* Register ranges [min, max) and number of registers. */ - RID_MIN_GPR = RID_X0, - RID_MAX_GPR = RID_SP+1, - RID_MIN_FPR = RID_MAX_GPR, - RID_MAX_FPR = RID_D31+1, - RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, - RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR -}; - -#define RID_NUM_KREF RID_NUM_GPR -#define RID_MIN_KREF RID_X0 - -/* -- Register sets ------------------------------------------------------- */ - -/* Make use of all registers, except for x18, fp, lr and sp. */ -#define RSET_FIXED \ - (RID2RSET(RID_X18)|RID2RSET(RID_FP)|RID2RSET(RID_LR)|RID2RSET(RID_SP)) -#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) -#define RSET_FPR RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR) -#define RSET_ALL (RSET_GPR|RSET_FPR) -#define RSET_INIT RSET_ALL - -/* lr is an implicit scratch register. */ -#define RSET_SCRATCH_GPR (RSET_RANGE(RID_X0, RID_X17+1)) -#define RSET_SCRATCH_FPR \ - (RSET_RANGE(RID_D0, RID_D7+1)|RSET_RANGE(RID_D16, RID_D31+1)) -#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) -#define REGARG_FIRSTGPR RID_X0 -#define REGARG_LASTGPR RID_X7 -#define REGARG_NUMGPR 8 -#define REGARG_FIRSTFPR RID_D0 -#define REGARG_LASTFPR RID_D7 -#define REGARG_NUMFPR 8 - -/* -- Instructions -------------------------------------------------------- */ - -/* Instruction fields. */ -#define A64F_D(r) (r) -#define A64F_N(r) ((r) << 5) -#define A64F_A(r) ((r) << 10) -#define A64F_M(r) ((r) << 16) -#define A64F_U16(x) ((x) << 5) -#define A64F_S26(x) (x) -#define A64F_S19(x) ((x) << 5) - -typedef enum A64Ins { - A64I_MOVZw = 0x52800000, - A64I_MOVZx = 0xd2800000, - A64I_LDRLw = 0x18000000, - A64I_LDRLx = 0x58000000, - A64I_NOP = 0xd503201f, - A64I_B = 0x14000000, - A64I_BR = 0xd61f0000, -} A64Ins; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h deleted file mode 100644 index 76645bcac5e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target_mips.h +++ /dev/null @@ -1,260 +0,0 @@ -/* -** Definitions for MIPS CPUs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_MIPS_H -#define _LJ_TARGET_MIPS_H - -/* -- Registers IDs ------------------------------------------------------- */ - -#define GPRDEF(_) \ - _(R0) _(R1) _(R2) _(R3) _(R4) _(R5) _(R6) _(R7) \ - _(R8) _(R9) _(R10) _(R11) _(R12) _(R13) _(R14) _(R15) \ - _(R16) _(R17) _(R18) _(R19) _(R20) _(R21) _(R22) _(R23) \ - _(R24) _(R25) _(SYS1) _(SYS2) _(R28) _(SP) _(R30) _(RA) -#define FPRDEF(_) \ - _(F0) _(F1) _(F2) _(F3) _(F4) _(F5) _(F6) _(F7) \ - _(F8) _(F9) _(F10) _(F11) _(F12) _(F13) _(F14) _(F15) \ - _(F16) _(F17) _(F18) _(F19) _(F20) _(F21) _(F22) _(F23) \ - _(F24) _(F25) _(F26) _(F27) _(F28) _(F29) _(F30) _(F31) -#define VRIDDEF(_) - -#define RIDENUM(name) RID_##name, - -enum { - GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ - FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ - RID_MAX, - RID_ZERO = RID_R0, - RID_TMP = RID_RA, - - /* Calling conventions. */ - RID_RET = RID_R2, -#if LJ_LE - RID_RETHI = RID_R3, - RID_RETLO = RID_R2, -#else - RID_RETHI = RID_R2, - RID_RETLO = RID_R3, -#endif - RID_FPRET = RID_F0, - RID_CFUNCADDR = RID_R25, - - /* These definitions must match with the *.dasc file(s): */ - RID_BASE = RID_R16, /* Interpreter BASE. */ - RID_LPC = RID_R18, /* Interpreter PC. */ - RID_DISPATCH = RID_R19, /* Interpreter DISPATCH table. */ - RID_LREG = RID_R20, /* Interpreter L. */ - RID_JGL = RID_R30, /* On-trace: global_State + 32768. */ - - /* Register ranges [min, max) and number of registers. */ - RID_MIN_GPR = RID_R0, - RID_MAX_GPR = RID_RA+1, - RID_MIN_FPR = RID_F0, - RID_MAX_FPR = RID_F31+1, - RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, - RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR /* Only even regs are used. */ -}; - -#define RID_NUM_KREF RID_NUM_GPR -#define RID_MIN_KREF RID_R0 - -/* -- Register sets ------------------------------------------------------- */ - -/* Make use of all registers, except ZERO, TMP, SP, SYS1, SYS2 and JGL. */ -#define RSET_FIXED \ - (RID2RSET(RID_ZERO)|RID2RSET(RID_TMP)|RID2RSET(RID_SP)|\ - RID2RSET(RID_SYS1)|RID2RSET(RID_SYS2)|RID2RSET(RID_JGL)) -#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) -#define RSET_FPR \ - (RID2RSET(RID_F0)|RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(RID_F6)|\ - RID2RSET(RID_F8)|RID2RSET(RID_F10)|RID2RSET(RID_F12)|RID2RSET(RID_F14)|\ - RID2RSET(RID_F16)|RID2RSET(RID_F18)|RID2RSET(RID_F20)|RID2RSET(RID_F22)|\ - RID2RSET(RID_F24)|RID2RSET(RID_F26)|RID2RSET(RID_F28)|RID2RSET(RID_F30)) -#define RSET_ALL (RSET_GPR|RSET_FPR) -#define RSET_INIT RSET_ALL - -#define RSET_SCRATCH_GPR \ - (RSET_RANGE(RID_R1, RID_R15+1)|\ - RID2RSET(RID_R24)|RID2RSET(RID_R25)|RID2RSET(RID_R28)) -#define RSET_SCRATCH_FPR \ - (RID2RSET(RID_F0)|RID2RSET(RID_F2)|RID2RSET(RID_F4)|RID2RSET(RID_F6)|\ - RID2RSET(RID_F8)|RID2RSET(RID_F10)|RID2RSET(RID_F12)|RID2RSET(RID_F14)|\ - RID2RSET(RID_F16)|RID2RSET(RID_F18)) -#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) -#define REGARG_FIRSTGPR RID_R4 -#define REGARG_LASTGPR RID_R7 -#define REGARG_NUMGPR 4 -#define REGARG_FIRSTFPR RID_F12 -#define REGARG_LASTFPR RID_F14 -#define REGARG_NUMFPR 2 - -/* -- Spill slots --------------------------------------------------------- */ - -/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. -** -** SPS_FIXED: Available fixed spill slots in interpreter frame. -** This definition must match with the *.dasc file(s). -** -** SPS_FIRST: First spill slot for general use. -*/ -#define SPS_FIXED 5 -#define SPS_FIRST 4 - -#define SPOFS_TMP 0 - -#define sps_scale(slot) (4 * (int32_t)(slot)) -#define sps_align(slot) (((slot) - SPS_FIXED + 1) & ~1) - -/* -- Exit state ---------------------------------------------------------- */ - -/* This definition must match with the *.dasc file(s). */ -typedef struct { - lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ - int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ - int32_t spill[256]; /* Spill slots. */ -} ExitState; - -/* Highest exit + 1 indicates stack check. */ -#define EXITSTATE_CHECKEXIT 1 - -/* Return the address of a per-trace exit stub. */ -static LJ_AINLINE uint32_t *exitstub_trace_addr_(uint32_t *p) -{ - while (*p == 0x00000000) p++; /* Skip MIPSI_NOP. */ - return p; -} -/* Avoid dependence on lj_jit.h if only including lj_target.h. */ -#define exitstub_trace_addr(T, exitno) \ - exitstub_trace_addr_((MCode *)((char *)(T)->mcode + (T)->szmcode)) - -/* -- Instructions -------------------------------------------------------- */ - -/* Instruction fields. */ -#define MIPSF_S(r) ((r) << 21) -#define MIPSF_T(r) ((r) << 16) -#define MIPSF_D(r) ((r) << 11) -#define MIPSF_R(r) ((r) << 21) -#define MIPSF_H(r) ((r) << 16) -#define MIPSF_G(r) ((r) << 11) -#define MIPSF_F(r) ((r) << 6) -#define MIPSF_A(n) ((n) << 6) -#define MIPSF_M(n) ((n) << 11) - -typedef enum MIPSIns { - /* Integer instructions. */ - MIPSI_MOVE = 0x00000021, - MIPSI_NOP = 0x00000000, - - MIPSI_LI = 0x24000000, - MIPSI_LU = 0x34000000, - MIPSI_LUI = 0x3c000000, - - MIPSI_ADDIU = 0x24000000, - MIPSI_ANDI = 0x30000000, - MIPSI_ORI = 0x34000000, - MIPSI_XORI = 0x38000000, - MIPSI_SLTI = 0x28000000, - MIPSI_SLTIU = 0x2c000000, - - MIPSI_ADDU = 0x00000021, - MIPSI_SUBU = 0x00000023, - MIPSI_MUL = 0x70000002, - MIPSI_AND = 0x00000024, - MIPSI_OR = 0x00000025, - MIPSI_XOR = 0x00000026, - MIPSI_NOR = 0x00000027, - MIPSI_SLT = 0x0000002a, - MIPSI_SLTU = 0x0000002b, - MIPSI_MOVZ = 0x0000000a, - MIPSI_MOVN = 0x0000000b, - MIPSI_MFHI = 0x00000010, - MIPSI_MFLO = 0x00000012, - MIPSI_MULT = 0x00000018, - - MIPSI_SLL = 0x00000000, - MIPSI_SRL = 0x00000002, - MIPSI_SRA = 0x00000003, - MIPSI_ROTR = 0x00200002, /* MIPS32R2 */ - MIPSI_SLLV = 0x00000004, - MIPSI_SRLV = 0x00000006, - MIPSI_SRAV = 0x00000007, - MIPSI_ROTRV = 0x00000046, /* MIPS32R2 */ - - MIPSI_SEB = 0x7c000420, /* MIPS32R2 */ - MIPSI_SEH = 0x7c000620, /* MIPS32R2 */ - MIPSI_WSBH = 0x7c0000a0, /* MIPS32R2 */ - - MIPSI_B = 0x10000000, - MIPSI_J = 0x08000000, - MIPSI_JAL = 0x0c000000, - MIPSI_JR = 0x00000008, - MIPSI_JALR = 0x0000f809, - - MIPSI_BEQ = 0x10000000, - MIPSI_BNE = 0x14000000, - MIPSI_BLEZ = 0x18000000, - MIPSI_BGTZ = 0x1c000000, - MIPSI_BLTZ = 0x04000000, - MIPSI_BGEZ = 0x04010000, - - /* Load/store instructions. */ - MIPSI_LW = 0x8c000000, - MIPSI_SW = 0xac000000, - MIPSI_LB = 0x80000000, - MIPSI_SB = 0xa0000000, - MIPSI_LH = 0x84000000, - MIPSI_SH = 0xa4000000, - MIPSI_LBU = 0x90000000, - MIPSI_LHU = 0x94000000, - MIPSI_LWC1 = 0xc4000000, - MIPSI_SWC1 = 0xe4000000, - MIPSI_LDC1 = 0xd4000000, - MIPSI_SDC1 = 0xf4000000, - - /* FP instructions. */ - MIPSI_MOV_S = 0x46000006, - MIPSI_MOV_D = 0x46200006, - MIPSI_MOVT_D = 0x46210011, - MIPSI_MOVF_D = 0x46200011, - - MIPSI_ABS_D = 0x46200005, - MIPSI_NEG_D = 0x46200007, - - MIPSI_ADD_D = 0x46200000, - MIPSI_SUB_D = 0x46200001, - MIPSI_MUL_D = 0x46200002, - MIPSI_DIV_D = 0x46200003, - MIPSI_SQRT_D = 0x46200004, - - MIPSI_ADD_S = 0x46000000, - MIPSI_SUB_S = 0x46000001, - - MIPSI_CVT_D_S = 0x46000021, - MIPSI_CVT_W_S = 0x46000024, - MIPSI_CVT_S_D = 0x46200020, - MIPSI_CVT_W_D = 0x46200024, - MIPSI_CVT_S_W = 0x46800020, - MIPSI_CVT_D_W = 0x46800021, - - MIPSI_TRUNC_W_S = 0x4600000d, - MIPSI_TRUNC_W_D = 0x4620000d, - MIPSI_FLOOR_W_S = 0x4600000f, - MIPSI_FLOOR_W_D = 0x4620000f, - - MIPSI_MFC1 = 0x44000000, - MIPSI_MTC1 = 0x44800000, - - MIPSI_BC1F = 0x45000000, - MIPSI_BC1T = 0x45010000, - - MIPSI_C_EQ_D = 0x46200032, - MIPSI_C_OLT_D = 0x46200034, - MIPSI_C_ULT_D = 0x46200035, - MIPSI_C_OLE_D = 0x46200036, - MIPSI_C_ULE_D = 0x46200037, - -} MIPSIns; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h deleted file mode 100644 index 2caeeb044c7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target_ppc.h +++ /dev/null @@ -1,280 +0,0 @@ -/* -** Definitions for PPC CPUs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_PPC_H -#define _LJ_TARGET_PPC_H - -/* -- Registers IDs ------------------------------------------------------- */ - -#define GPRDEF(_) \ - _(R0) _(SP) _(SYS1) _(R3) _(R4) _(R5) _(R6) _(R7) \ - _(R8) _(R9) _(R10) _(R11) _(R12) _(SYS2) _(R14) _(R15) \ - _(R16) _(R17) _(R18) _(R19) _(R20) _(R21) _(R22) _(R23) \ - _(R24) _(R25) _(R26) _(R27) _(R28) _(R29) _(R30) _(R31) -#define FPRDEF(_) \ - _(F0) _(F1) _(F2) _(F3) _(F4) _(F5) _(F6) _(F7) \ - _(F8) _(F9) _(F10) _(F11) _(F12) _(F13) _(F14) _(F15) \ - _(F16) _(F17) _(F18) _(F19) _(F20) _(F21) _(F22) _(F23) \ - _(F24) _(F25) _(F26) _(F27) _(F28) _(F29) _(F30) _(F31) -#define VRIDDEF(_) - -#define RIDENUM(name) RID_##name, - -enum { - GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ - FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ - RID_MAX, - RID_TMP = RID_R0, - - /* Calling conventions. */ - RID_RET = RID_R3, - RID_RETHI = RID_R3, - RID_RETLO = RID_R4, - RID_FPRET = RID_F1, - - /* These definitions must match with the *.dasc file(s): */ - RID_BASE = RID_R14, /* Interpreter BASE. */ - RID_LPC = RID_R16, /* Interpreter PC. */ - RID_DISPATCH = RID_R17, /* Interpreter DISPATCH table. */ - RID_LREG = RID_R18, /* Interpreter L. */ - RID_JGL = RID_R31, /* On-trace: global_State + 32768. */ - - /* Register ranges [min, max) and number of registers. */ - RID_MIN_GPR = RID_R0, - RID_MAX_GPR = RID_R31+1, - RID_MIN_FPR = RID_F0, - RID_MAX_FPR = RID_F31+1, - RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, - RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR -}; - -#define RID_NUM_KREF RID_NUM_GPR -#define RID_MIN_KREF RID_R0 - -/* -- Register sets ------------------------------------------------------- */ - -/* Make use of all registers, except TMP, SP, SYS1, SYS2 and JGL. */ -#define RSET_FIXED \ - (RID2RSET(RID_TMP)|RID2RSET(RID_SP)|RID2RSET(RID_SYS1)|\ - RID2RSET(RID_SYS2)|RID2RSET(RID_JGL)) -#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR) - RSET_FIXED) -#define RSET_FPR RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR) -#define RSET_ALL (RSET_GPR|RSET_FPR) -#define RSET_INIT RSET_ALL - -#define RSET_SCRATCH_GPR (RSET_RANGE(RID_R3, RID_R12+1)) -#define RSET_SCRATCH_FPR (RSET_RANGE(RID_F0, RID_F13+1)) -#define RSET_SCRATCH (RSET_SCRATCH_GPR|RSET_SCRATCH_FPR) -#define REGARG_FIRSTGPR RID_R3 -#define REGARG_LASTGPR RID_R10 -#define REGARG_NUMGPR 8 -#define REGARG_FIRSTFPR RID_F1 -#define REGARG_LASTFPR RID_F8 -#define REGARG_NUMFPR 8 - -/* -- Spill slots --------------------------------------------------------- */ - -/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. -** -** SPS_FIXED: Available fixed spill slots in interpreter frame. -** This definition must match with the *.dasc file(s). -** -** SPS_FIRST: First spill slot for general use. -** [sp+12] tmplo word \ -** [sp+ 8] tmphi word / tmp dword, parameter area for callee -** [sp+ 4] tmpw, LR of callee -** [sp+ 0] stack chain -*/ -#define SPS_FIXED 7 -#define SPS_FIRST 4 - -/* Stack offsets for temporary slots. Used for FP<->int conversions etc. */ -#define SPOFS_TMPW 4 -#define SPOFS_TMP 8 -#define SPOFS_TMPHI 8 -#define SPOFS_TMPLO 12 - -#define sps_scale(slot) (4 * (int32_t)(slot)) -#define sps_align(slot) (((slot) - SPS_FIXED + 3) & ~3) - -/* -- Exit state ---------------------------------------------------------- */ - -/* This definition must match with the *.dasc file(s). */ -typedef struct { - lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ - int32_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ - int32_t spill[256]; /* Spill slots. */ -} ExitState; - -/* Highest exit + 1 indicates stack check. */ -#define EXITSTATE_CHECKEXIT 1 - -/* Return the address of a per-trace exit stub. */ -static LJ_AINLINE uint32_t *exitstub_trace_addr_(uint32_t *p, uint32_t exitno) -{ - while (*p == 0x60000000) p++; /* Skip PPCI_NOP. */ - return p + 3 + exitno; -} -/* Avoid dependence on lj_jit.h if only including lj_target.h. */ -#define exitstub_trace_addr(T, exitno) \ - exitstub_trace_addr_((MCode *)((char *)(T)->mcode + (T)->szmcode), (exitno)) - -/* -- Instructions -------------------------------------------------------- */ - -/* Instruction fields. */ -#define PPCF_CC(cc) ((((cc) & 3) << 16) | (((cc) & 4) << 22)) -#define PPCF_T(r) ((r) << 21) -#define PPCF_A(r) ((r) << 16) -#define PPCF_B(r) ((r) << 11) -#define PPCF_C(r) ((r) << 6) -#define PPCF_MB(n) ((n) << 6) -#define PPCF_ME(n) ((n) << 1) -#define PPCF_Y 0x00200000 -#define PPCF_DOT 0x00000001 - -typedef enum PPCIns { - /* Integer instructions. */ - PPCI_MR = 0x7c000378, - PPCI_NOP = 0x60000000, - - PPCI_LI = 0x38000000, - PPCI_LIS = 0x3c000000, - - PPCI_ADD = 0x7c000214, - PPCI_ADDC = 0x7c000014, - PPCI_ADDO = 0x7c000614, - PPCI_ADDE = 0x7c000114, - PPCI_ADDZE = 0x7c000194, - PPCI_ADDME = 0x7c0001d4, - PPCI_ADDI = 0x38000000, - PPCI_ADDIS = 0x3c000000, - PPCI_ADDIC = 0x30000000, - PPCI_ADDICDOT = 0x34000000, - - PPCI_SUBF = 0x7c000050, - PPCI_SUBFC = 0x7c000010, - PPCI_SUBFO = 0x7c000450, - PPCI_SUBFE = 0x7c000110, - PPCI_SUBFZE = 0x7c000190, - PPCI_SUBFME = 0x7c0001d0, - PPCI_SUBFIC = 0x20000000, - - PPCI_NEG = 0x7c0000d0, - - PPCI_AND = 0x7c000038, - PPCI_ANDC = 0x7c000078, - PPCI_NAND = 0x7c0003b8, - PPCI_ANDIDOT = 0x70000000, - PPCI_ANDISDOT = 0x74000000, - - PPCI_OR = 0x7c000378, - PPCI_NOR = 0x7c0000f8, - PPCI_ORI = 0x60000000, - PPCI_ORIS = 0x64000000, - - PPCI_XOR = 0x7c000278, - PPCI_EQV = 0x7c000238, - PPCI_XORI = 0x68000000, - PPCI_XORIS = 0x6c000000, - - PPCI_CMPW = 0x7c000000, - PPCI_CMPLW = 0x7c000040, - PPCI_CMPWI = 0x2c000000, - PPCI_CMPLWI = 0x28000000, - - PPCI_MULLW = 0x7c0001d6, - PPCI_MULLI = 0x1c000000, - PPCI_MULLWO = 0x7c0005d6, - - PPCI_EXTSB = 0x7c000774, - PPCI_EXTSH = 0x7c000734, - - PPCI_SLW = 0x7c000030, - PPCI_SRW = 0x7c000430, - PPCI_SRAW = 0x7c000630, - PPCI_SRAWI = 0x7c000670, - - PPCI_RLWNM = 0x5c000000, - PPCI_RLWINM = 0x54000000, - PPCI_RLWIMI = 0x50000000, - - PPCI_B = 0x48000000, - PPCI_BL = 0x48000001, - PPCI_BC = 0x40800000, - PPCI_BCL = 0x40800001, - PPCI_BCTR = 0x4e800420, - PPCI_BCTRL = 0x4e800421, - - PPCI_CRANDC = 0x4c000102, - PPCI_CRXOR = 0x4c000182, - PPCI_CRAND = 0x4c000202, - PPCI_CREQV = 0x4c000242, - PPCI_CRORC = 0x4c000342, - PPCI_CROR = 0x4c000382, - - PPCI_MFLR = 0x7c0802a6, - PPCI_MTCTR = 0x7c0903a6, - - PPCI_MCRXR = 0x7c000400, - - /* Load/store instructions. */ - PPCI_LWZ = 0x80000000, - PPCI_LBZ = 0x88000000, - PPCI_STW = 0x90000000, - PPCI_STB = 0x98000000, - PPCI_LHZ = 0xa0000000, - PPCI_LHA = 0xa8000000, - PPCI_STH = 0xb0000000, - - PPCI_STWU = 0x94000000, - - PPCI_LFS = 0xc0000000, - PPCI_LFD = 0xc8000000, - PPCI_STFS = 0xd0000000, - PPCI_STFD = 0xd8000000, - - PPCI_LWZX = 0x7c00002e, - PPCI_LBZX = 0x7c0000ae, - PPCI_STWX = 0x7c00012e, - PPCI_STBX = 0x7c0001ae, - PPCI_LHZX = 0x7c00022e, - PPCI_LHAX = 0x7c0002ae, - PPCI_STHX = 0x7c00032e, - - PPCI_LWBRX = 0x7c00042c, - PPCI_STWBRX = 0x7c00052c, - - PPCI_LFSX = 0x7c00042e, - PPCI_LFDX = 0x7c0004ae, - PPCI_STFSX = 0x7c00052e, - PPCI_STFDX = 0x7c0005ae, - - /* FP instructions. */ - PPCI_FMR = 0xfc000090, - PPCI_FNEG = 0xfc000050, - PPCI_FABS = 0xfc000210, - - PPCI_FRSP = 0xfc000018, - PPCI_FCTIWZ = 0xfc00001e, - - PPCI_FADD = 0xfc00002a, - PPCI_FSUB = 0xfc000028, - PPCI_FMUL = 0xfc000032, - PPCI_FDIV = 0xfc000024, - PPCI_FSQRT = 0xfc00002c, - - PPCI_FMADD = 0xfc00003a, - PPCI_FMSUB = 0xfc000038, - PPCI_FNMSUB = 0xfc00003c, - - PPCI_FCMPU = 0xfc000000, - PPCI_FSEL = 0xfc00002e, -} PPCIns; - -typedef enum PPCCC { - CC_GE, CC_LE, CC_NE, CC_NS, CC_LT, CC_GT, CC_EQ, CC_SO -} PPCCC; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h b/src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h deleted file mode 100644 index 65e438fdfcf..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_target_x86.h +++ /dev/null @@ -1,341 +0,0 @@ -/* -** Definitions for x86 and x64 CPUs. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TARGET_X86_H -#define _LJ_TARGET_X86_H - -/* -- Registers IDs ------------------------------------------------------- */ - -#if LJ_64 -#define GPRDEF(_) \ - _(EAX) _(ECX) _(EDX) _(EBX) _(ESP) _(EBP) _(ESI) _(EDI) \ - _(R8D) _(R9D) _(R10D) _(R11D) _(R12D) _(R13D) _(R14D) _(R15D) -#define FPRDEF(_) \ - _(XMM0) _(XMM1) _(XMM2) _(XMM3) _(XMM4) _(XMM5) _(XMM6) _(XMM7) \ - _(XMM8) _(XMM9) _(XMM10) _(XMM11) _(XMM12) _(XMM13) _(XMM14) _(XMM15) -#else -#define GPRDEF(_) \ - _(EAX) _(ECX) _(EDX) _(EBX) _(ESP) _(EBP) _(ESI) _(EDI) -#define FPRDEF(_) \ - _(XMM0) _(XMM1) _(XMM2) _(XMM3) _(XMM4) _(XMM5) _(XMM6) _(XMM7) -#endif -#define VRIDDEF(_) \ - _(MRM) - -#define RIDENUM(name) RID_##name, - -enum { - GPRDEF(RIDENUM) /* General-purpose registers (GPRs). */ - FPRDEF(RIDENUM) /* Floating-point registers (FPRs). */ - RID_MAX, - RID_MRM = RID_MAX, /* Pseudo-id for ModRM operand. */ - - /* Calling conventions. */ - RID_SP = RID_ESP, - RID_RET = RID_EAX, -#if LJ_64 - RID_FPRET = RID_XMM0, -#else - RID_RETLO = RID_EAX, - RID_RETHI = RID_EDX, -#endif - - /* These definitions must match with the *.dasc file(s): */ - RID_BASE = RID_EDX, /* Interpreter BASE. */ -#if LJ_64 && !LJ_ABI_WIN - RID_LPC = RID_EBX, /* Interpreter PC. */ - RID_DISPATCH = RID_R14D, /* Interpreter DISPATCH table. */ -#else - RID_LPC = RID_ESI, /* Interpreter PC. */ - RID_DISPATCH = RID_EBX, /* Interpreter DISPATCH table. */ -#endif - - /* Register ranges [min, max) and number of registers. */ - RID_MIN_GPR = RID_EAX, - RID_MIN_FPR = RID_XMM0, - RID_MAX_GPR = RID_MIN_FPR, - RID_MAX_FPR = RID_MAX, - RID_NUM_GPR = RID_MAX_GPR - RID_MIN_GPR, - RID_NUM_FPR = RID_MAX_FPR - RID_MIN_FPR, -}; - -/* -- Register sets ------------------------------------------------------- */ - -/* Make use of all registers, except the stack pointer. */ -#define RSET_GPR (RSET_RANGE(RID_MIN_GPR, RID_MAX_GPR)-RID2RSET(RID_ESP)) -#define RSET_FPR (RSET_RANGE(RID_MIN_FPR, RID_MAX_FPR)) -#define RSET_ALL (RSET_GPR|RSET_FPR) -#define RSET_INIT RSET_ALL - -#if LJ_64 -/* Note: this requires the use of FORCE_REX! */ -#define RSET_GPR8 RSET_GPR -#else -#define RSET_GPR8 (RSET_RANGE(RID_EAX, RID_EBX+1)) -#endif - -/* ABI-specific register sets. */ -#define RSET_ACD (RID2RSET(RID_EAX)|RID2RSET(RID_ECX)|RID2RSET(RID_EDX)) -#if LJ_64 -#if LJ_ABI_WIN -/* Windows x64 ABI. */ -#define RSET_SCRATCH \ - (RSET_ACD|RSET_RANGE(RID_R8D, RID_R11D+1)|RSET_RANGE(RID_XMM0, RID_XMM5+1)) -#define REGARG_GPRS \ - (RID_ECX|((RID_EDX|((RID_R8D|(RID_R9D<<5))<<5))<<5)) -#define REGARG_NUMGPR 4 -#define REGARG_NUMFPR 4 -#define REGARG_FIRSTFPR RID_XMM0 -#define REGARG_LASTFPR RID_XMM3 -#define STACKARG_OFS (4*8) -#else -/* The rest of the civilized x64 world has a common ABI. */ -#define RSET_SCRATCH \ - (RSET_ACD|RSET_RANGE(RID_ESI, RID_R11D+1)|RSET_FPR) -#define REGARG_GPRS \ - (RID_EDI|((RID_ESI|((RID_EDX|((RID_ECX|((RID_R8D|(RID_R9D \ - <<5))<<5))<<5))<<5))<<5)) -#define REGARG_NUMGPR 6 -#define REGARG_NUMFPR 8 -#define REGARG_FIRSTFPR RID_XMM0 -#define REGARG_LASTFPR RID_XMM7 -#define STACKARG_OFS 0 -#endif -#else -/* Common x86 ABI. */ -#define RSET_SCRATCH (RSET_ACD|RSET_FPR) -#define REGARG_GPRS (RID_ECX|(RID_EDX<<5)) /* Fastcall only. */ -#define REGARG_NUMGPR 2 /* Fastcall only. */ -#define REGARG_NUMFPR 0 -#define STACKARG_OFS 0 -#endif - -#if LJ_64 -/* Prefer the low 8 regs of each type to reduce REX prefixes. */ -#undef rset_picktop -#define rset_picktop(rs) (lj_fls(lj_bswap(rs)) ^ 0x18) -#endif - -/* -- Spill slots --------------------------------------------------------- */ - -/* Spill slots are 32 bit wide. An even/odd pair is used for FPRs. -** -** SPS_FIXED: Available fixed spill slots in interpreter frame. -** This definition must match with the *.dasc file(s). -** -** SPS_FIRST: First spill slot for general use. Reserve min. two 32 bit slots. -*/ -#if LJ_64 -#if LJ_ABI_WIN -#define SPS_FIXED (4*2) -#define SPS_FIRST (4*2) /* Don't use callee register save area. */ -#else -#define SPS_FIXED 4 -#define SPS_FIRST 2 -#endif -#else -#define SPS_FIXED 6 -#define SPS_FIRST 2 -#endif - -#define SPOFS_TMP 0 - -#define sps_scale(slot) (4 * (int32_t)(slot)) -#define sps_align(slot) (((slot) - SPS_FIXED + 3) & ~3) - -/* -- Exit state ---------------------------------------------------------- */ - -/* This definition must match with the *.dasc file(s). */ -typedef struct { - lua_Number fpr[RID_NUM_FPR]; /* Floating-point registers. */ - intptr_t gpr[RID_NUM_GPR]; /* General-purpose registers. */ - int32_t spill[256]; /* Spill slots. */ -} ExitState; - -/* Limited by the range of a short fwd jump (127): (2+2)*(32-1)-2 = 122. */ -#define EXITSTUB_SPACING (2+2) -#define EXITSTUBS_PER_GROUP 32 - -/* -- x86 ModRM operand encoding ------------------------------------------ */ - -typedef enum { - XM_OFS0 = 0x00, XM_OFS8 = 0x40, XM_OFS32 = 0x80, XM_REG = 0xc0, - XM_SCALE1 = 0x00, XM_SCALE2 = 0x40, XM_SCALE4 = 0x80, XM_SCALE8 = 0xc0, - XM_MASK = 0xc0 -} x86Mode; - -/* Structure to hold variable ModRM operand. */ -typedef struct { - int32_t ofs; /* Offset. */ - uint8_t base; /* Base register or RID_NONE. */ - uint8_t idx; /* Index register or RID_NONE. */ - uint8_t scale; /* Index scale (XM_SCALE1 .. XM_SCALE8). */ -} x86ModRM; - -/* -- Opcodes ------------------------------------------------------------- */ - -/* Macros to construct variable-length x86 opcodes. -(len+1) is in LSB. */ -#define XO_(o) ((uint32_t)(0x0000fe + (0x##o<<24))) -#define XO_FPU(a,b) ((uint32_t)(0x00fd + (0x##a<<16)+(0x##b<<24))) -#define XO_0f(o) ((uint32_t)(0x0f00fd + (0x##o<<24))) -#define XO_66(o) ((uint32_t)(0x6600fd + (0x##o<<24))) -#define XO_660f(o) ((uint32_t)(0x0f66fc + (0x##o<<24))) -#define XO_f20f(o) ((uint32_t)(0x0ff2fc + (0x##o<<24))) -#define XO_f30f(o) ((uint32_t)(0x0ff3fc + (0x##o<<24))) - -/* This list of x86 opcodes is not intended to be complete. Opcodes are only -** included when needed. Take a look at DynASM or jit.dis_x86 to see the -** whole mess. -*/ -typedef enum { - /* Fixed length opcodes. XI_* prefix. */ - XI_NOP = 0x90, - XI_XCHGa = 0x90, - XI_CALL = 0xe8, - XI_JMP = 0xe9, - XI_JMPs = 0xeb, - XI_PUSH = 0x50, /* Really 50+r. */ - XI_JCCs = 0x70, /* Really 7x. */ - XI_JCCn = 0x80, /* Really 0f8x. */ - XI_LEA = 0x8d, - XI_MOVrib = 0xb0, /* Really b0+r. */ - XI_MOVri = 0xb8, /* Really b8+r. */ - XI_ARITHib = 0x80, - XI_ARITHi = 0x81, - XI_ARITHi8 = 0x83, - XI_PUSHi8 = 0x6a, - XI_TESTb = 0x84, - XI_TEST = 0x85, - XI_MOVmi = 0xc7, - XI_GROUP5 = 0xff, - - /* Note: little-endian byte-order! */ - XI_FLDZ = 0xeed9, - XI_FLD1 = 0xe8d9, - XI_FLDLG2 = 0xecd9, - XI_FLDLN2 = 0xedd9, - XI_FDUP = 0xc0d9, /* Really fld st0. */ - XI_FPOP = 0xd8dd, /* Really fstp st0. */ - XI_FPOP1 = 0xd9dd, /* Really fstp st1. */ - XI_FRNDINT = 0xfcd9, - XI_FSIN = 0xfed9, - XI_FCOS = 0xffd9, - XI_FPTAN = 0xf2d9, - XI_FPATAN = 0xf3d9, - XI_FSCALE = 0xfdd9, - XI_FYL2X = 0xf1d9, - - /* Variable-length opcodes. XO_* prefix. */ - XO_MOV = XO_(8b), - XO_MOVto = XO_(89), - XO_MOVtow = XO_66(89), - XO_MOVtob = XO_(88), - XO_MOVmi = XO_(c7), - XO_MOVmib = XO_(c6), - XO_LEA = XO_(8d), - XO_ARITHib = XO_(80), - XO_ARITHi = XO_(81), - XO_ARITHi8 = XO_(83), - XO_ARITHiw8 = XO_66(83), - XO_SHIFTi = XO_(c1), - XO_SHIFT1 = XO_(d1), - XO_SHIFTcl = XO_(d3), - XO_IMUL = XO_0f(af), - XO_IMULi = XO_(69), - XO_IMULi8 = XO_(6b), - XO_CMP = XO_(3b), - XO_TESTb = XO_(84), - XO_TEST = XO_(85), - XO_GROUP3b = XO_(f6), - XO_GROUP3 = XO_(f7), - XO_GROUP5b = XO_(fe), - XO_GROUP5 = XO_(ff), - XO_MOVZXb = XO_0f(b6), - XO_MOVZXw = XO_0f(b7), - XO_MOVSXb = XO_0f(be), - XO_MOVSXw = XO_0f(bf), - XO_MOVSXd = XO_(63), - XO_BSWAP = XO_0f(c8), - XO_CMOV = XO_0f(40), - - XO_MOVSD = XO_f20f(10), - XO_MOVSDto = XO_f20f(11), - XO_MOVSS = XO_f30f(10), - XO_MOVSSto = XO_f30f(11), - XO_MOVLPD = XO_660f(12), - XO_MOVAPS = XO_0f(28), - XO_XORPS = XO_0f(57), - XO_ANDPS = XO_0f(54), - XO_ADDSD = XO_f20f(58), - XO_SUBSD = XO_f20f(5c), - XO_MULSD = XO_f20f(59), - XO_DIVSD = XO_f20f(5e), - XO_SQRTSD = XO_f20f(51), - XO_MINSD = XO_f20f(5d), - XO_MAXSD = XO_f20f(5f), - XO_ROUNDSD = 0x0b3a0ffc, /* Really 66 0f 3a 0b. See asm_fpmath. */ - XO_UCOMISD = XO_660f(2e), - XO_CVTSI2SD = XO_f20f(2a), - XO_CVTTSD2SI= XO_f20f(2c), - XO_CVTSI2SS = XO_f30f(2a), - XO_CVTTSS2SI= XO_f30f(2c), - XO_CVTSS2SD = XO_f30f(5a), - XO_CVTSD2SS = XO_f20f(5a), - XO_ADDSS = XO_f30f(58), - XO_MOVD = XO_660f(6e), - XO_MOVDto = XO_660f(7e), - - XO_FLDd = XO_(d9), XOg_FLDd = 0, - XO_FLDq = XO_(dd), XOg_FLDq = 0, - XO_FILDd = XO_(db), XOg_FILDd = 0, - XO_FILDq = XO_(df), XOg_FILDq = 5, - XO_FSTPd = XO_(d9), XOg_FSTPd = 3, - XO_FSTPq = XO_(dd), XOg_FSTPq = 3, - XO_FISTPq = XO_(df), XOg_FISTPq = 7, - XO_FISTTPq = XO_(dd), XOg_FISTTPq = 1, - XO_FADDq = XO_(dc), XOg_FADDq = 0, - XO_FLDCW = XO_(d9), XOg_FLDCW = 5, - XO_FNSTCW = XO_(d9), XOg_FNSTCW = 7 -} x86Op; - -/* x86 opcode groups. */ -typedef uint32_t x86Group; - -#define XG_(i8, i, g) ((x86Group)(((i8) << 16) + ((i) << 8) + (g))) -#define XG_ARITHi(g) XG_(XI_ARITHi8, XI_ARITHi, g) -#define XG_TOXOi(xg) ((x86Op)(0x000000fe + (((xg)<<16) & 0xff000000))) -#define XG_TOXOi8(xg) ((x86Op)(0x000000fe + (((xg)<<8) & 0xff000000))) - -#define XO_ARITH(a) ((x86Op)(0x030000fe + ((a)<<27))) -#define XO_ARITHw(a) ((x86Op)(0x036600fd + ((a)<<27))) - -typedef enum { - XOg_ADD, XOg_OR, XOg_ADC, XOg_SBB, XOg_AND, XOg_SUB, XOg_XOR, XOg_CMP, - XOg_X_IMUL -} x86Arith; - -typedef enum { - XOg_ROL, XOg_ROR, XOg_RCL, XOg_RCR, XOg_SHL, XOg_SHR, XOg_SAL, XOg_SAR -} x86Shift; - -typedef enum { - XOg_TEST, XOg_TEST_, XOg_NOT, XOg_NEG, XOg_MUL, XOg_IMUL, XOg_DIV, XOg_IDIV -} x86Group3; - -typedef enum { - XOg_INC, XOg_DEC, XOg_CALL, XOg_CALLfar, XOg_JMP, XOg_JMPfar, XOg_PUSH -} x86Group5; - -/* x86 condition codes. */ -typedef enum { - CC_O, CC_NO, CC_B, CC_NB, CC_E, CC_NE, CC_BE, CC_NBE, - CC_S, CC_NS, CC_P, CC_NP, CC_L, CC_NL, CC_LE, CC_NLE, - CC_C = CC_B, CC_NAE = CC_C, CC_NC = CC_NB, CC_AE = CC_NB, - CC_Z = CC_E, CC_NZ = CC_NE, CC_NA = CC_BE, CC_A = CC_NBE, - CC_PE = CC_P, CC_PO = CC_NP, CC_NGE = CC_L, CC_GE = CC_NL, - CC_NG = CC_LE, CC_G = CC_NLE -} x86CC; - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_trace.c b/src/3rd party/luajit-2.0-BAK/src/lj_trace.c deleted file mode 100644 index 39ff0461601..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_trace.c +++ /dev/null @@ -1,845 +0,0 @@ -/* -** Trace management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_trace_c -#define LUA_CORE - -#include "lj_obj.h" - -#if LJ_HASJIT - -#include "lj_gc.h" -#include "lj_err.h" -#include "lj_debug.h" -#include "lj_str.h" -#include "lj_frame.h" -#include "lj_state.h" -#include "lj_bc.h" -#include "lj_ir.h" -#include "lj_jit.h" -#include "lj_iropt.h" -#include "lj_mcode.h" -#include "lj_trace.h" -#include "lj_snap.h" -#include "lj_gdbjit.h" -#include "lj_record.h" -#include "lj_asm.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_vmevent.h" -#include "lj_target.h" - -/* -- Error handling ------------------------------------------------------ */ - -/* Synchronous abort with error message. */ -void lj_trace_err(jit_State *J, TraceError e) -{ - setnilV(&J->errinfo); /* No error info. */ - setintV(J->L->top++, (int32_t)e); - lj_err_throw(J->L, LUA_ERRRUN); -} - -/* Synchronous abort with error message and error info. */ -void lj_trace_err_info(jit_State *J, TraceError e) -{ - setintV(J->L->top++, (int32_t)e); - lj_err_throw(J->L, LUA_ERRRUN); -} - -/* -- Trace management ---------------------------------------------------- */ - -/* The current trace is first assembled in J->cur. The variable length -** arrays point to shared, growable buffers (J->irbuf etc.). When trace -** recording ends successfully, the current trace and its data structures -** are copied to a new (compact) GCtrace object. -*/ - -/* Find a free trace number. */ -static TraceNo trace_findfree(jit_State *J) -{ - MSize osz, lim; - if (J->freetrace == 0) - J->freetrace = 1; - for (; J->freetrace < J->sizetrace; J->freetrace++) - if (traceref(J, J->freetrace) == NULL) - return J->freetrace++; - /* Need to grow trace array. */ - lim = (MSize)J->param[JIT_P_maxtrace] + 1; - if (lim < 2) lim = 2; else if (lim > 65535) lim = 65535; - osz = J->sizetrace; - if (osz >= lim) - return 0; /* Too many traces. */ - lj_mem_growvec(J->L, J->trace, J->sizetrace, lim, GCRef); - for (; osz < J->sizetrace; osz++) - setgcrefnull(J->trace[osz]); - return J->freetrace; -} - -#define TRACE_APPENDVEC(field, szfield, tp) \ - T->field = (tp *)p; \ - memcpy(p, J->cur.field, J->cur.szfield*sizeof(tp)); \ - p += J->cur.szfield*sizeof(tp); - -#ifdef LUAJIT_USE_PERFTOOLS -/* -** Create symbol table of JIT-compiled code. For use with Linux perf tools. -** Example usage: -** perf record -f -e cycles luajit test.lua -** perf report -s symbol -** rm perf.data /tmp/perf-*.map -*/ -#include -#include - -static void perftools_addtrace(GCtrace *T) -{ - static FILE *fp; - GCproto *pt = &gcref(T->startpt)->pt; - const BCIns *startpc = mref(T->startpc, const BCIns); - const char *name = proto_chunknamestr(pt); - BCLine lineno; - if (name[0] == '@' || name[0] == '=') - name++; - else - name = "(string)"; - lua_assert(startpc >= proto_bc(pt) && startpc < proto_bc(pt) + pt->sizebc); - lineno = lj_debug_line(pt, proto_bcpos(pt, startpc)); - if (!fp) { - char fname[40]; - sprintf(fname, "/tmp/perf-%d.map", getpid()); - if (!(fp = fopen(fname, "w"))) return; - setlinebuf(fp); - } - fprintf(fp, "%lx %x TRACE_%d::%s:%u\n", - (long)T->mcode, T->szmcode, T->traceno, name, lineno); -} -#endif - -/* Save current trace by copying and compacting it. */ -static void trace_save(jit_State *J) -{ - size_t sztr = ((sizeof(GCtrace)+7)&~7); - size_t szins = (J->cur.nins-J->cur.nk)*sizeof(IRIns); - size_t sz = sztr + szins + - J->cur.nsnap*sizeof(SnapShot) + - J->cur.nsnapmap*sizeof(SnapEntry); - GCtrace *T = lj_mem_newt(J->L, (MSize)sz, GCtrace); - char *p = (char *)T + sztr; - memcpy(T, &J->cur, sizeof(GCtrace)); - setgcrefr(T->nextgc, J2G(J)->gc.root); - setgcrefp(J2G(J)->gc.root, T); - newwhite(J2G(J), T); - T->gct = ~LJ_TTRACE; - T->ir = (IRIns *)p - J->cur.nk; - memcpy(p, J->cur.ir+J->cur.nk, szins); - p += szins; - TRACE_APPENDVEC(snap, nsnap, SnapShot) - TRACE_APPENDVEC(snapmap, nsnapmap, SnapEntry) - J->cur.traceno = 0; - setgcrefp(J->trace[T->traceno], T); - lj_gc_barriertrace(J2G(J), T->traceno); - lj_gdbjit_addtrace(J, T); -#ifdef LUAJIT_USE_PERFTOOLS - perftools_addtrace(T); -#endif -} - -void LJ_FASTCALL lj_trace_free(global_State *g, GCtrace *T) -{ - jit_State *J = G2J(g); - if (T->traceno) { - lj_gdbjit_deltrace(J, T); - if (T->traceno < J->freetrace) - J->freetrace = T->traceno; - setgcrefnull(J->trace[T->traceno]); - } - lj_mem_free(g, T, - ((sizeof(GCtrace)+7)&~7) + (T->nins-T->nk)*sizeof(IRIns) + - T->nsnap*sizeof(SnapShot) + T->nsnapmap*sizeof(SnapEntry)); -} - -/* Re-enable compiling a prototype by unpatching any modified bytecode. */ -void lj_trace_reenableproto(GCproto *pt) -{ - if ((pt->flags & PROTO_ILOOP)) { - BCIns *bc = proto_bc(pt); - BCPos i, sizebc = pt->sizebc;; - pt->flags &= ~PROTO_ILOOP; - if (bc_op(bc[0]) == BC_IFUNCF) - setbc_op(&bc[0], BC_FUNCF); - for (i = 1; i < sizebc; i++) { - BCOp op = bc_op(bc[i]); - if (op == BC_IFORL || op == BC_IITERL || op == BC_ILOOP) - setbc_op(&bc[i], (int)op+(int)BC_LOOP-(int)BC_ILOOP); - } - } -} - -/* Unpatch the bytecode modified by a root trace. */ -static void trace_unpatch(jit_State *J, GCtrace *T) -{ - BCOp op = bc_op(T->startins); - BCIns *pc = mref(T->startpc, BCIns); - UNUSED(J); - if (op == BC_JMP) - return; /* No need to unpatch branches in parent traces (yet). */ - switch (bc_op(*pc)) { - case BC_JFORL: - lua_assert(traceref(J, bc_d(*pc)) == T); - *pc = T->startins; - pc += bc_j(T->startins); - lua_assert(bc_op(*pc) == BC_JFORI); - setbc_op(pc, BC_FORI); - break; - case BC_JITERL: - case BC_JLOOP: - lua_assert(op == BC_ITERL || op == BC_LOOP || bc_isret(op)); - *pc = T->startins; - break; - case BC_JMP: - lua_assert(op == BC_ITERL); - pc += bc_j(*pc)+2; - if (bc_op(*pc) == BC_JITERL) { - lua_assert(traceref(J, bc_d(*pc)) == T); - *pc = T->startins; - } - break; - case BC_JFUNCF: - lua_assert(op == BC_FUNCF); - *pc = T->startins; - break; - default: /* Already unpatched. */ - break; - } -} - -/* Flush a root trace. */ -static void trace_flushroot(jit_State *J, GCtrace *T) -{ - GCproto *pt = &gcref(T->startpt)->pt; - lua_assert(T->root == 0 && pt != NULL); - /* First unpatch any modified bytecode. */ - trace_unpatch(J, T); - /* Unlink root trace from chain anchored in prototype. */ - if (pt->trace == T->traceno) { /* Trace is first in chain. Easy. */ - pt->trace = T->nextroot; - } else if (pt->trace) { /* Otherwise search in chain of root traces. */ - GCtrace *T2 = traceref(J, pt->trace); - if (T2) { - for (; T2->nextroot; T2 = traceref(J, T2->nextroot)) - if (T2->nextroot == T->traceno) { - T2->nextroot = T->nextroot; /* Unlink from chain. */ - break; - } - } - } -} - -/* Flush a trace. Only root traces are considered. */ -void lj_trace_flush(jit_State *J, TraceNo traceno) -{ - if (traceno > 0 && traceno < J->sizetrace) { - GCtrace *T = traceref(J, traceno); - if (T && T->root == 0) - trace_flushroot(J, T); - } -} - -/* Flush all traces associated with a prototype. */ -void lj_trace_flushproto(global_State *g, GCproto *pt) -{ - while (pt->trace != 0) - trace_flushroot(G2J(g), traceref(G2J(g), pt->trace)); -} - -/* Flush all traces. */ -int lj_trace_flushall(lua_State *L) -{ - jit_State *J = L2J(L); - ptrdiff_t i; - if ((J2G(J)->hookmask & HOOK_GC)) - return 1; - for (i = (ptrdiff_t)J->sizetrace-1; i > 0; i--) { - GCtrace *T = traceref(J, i); - if (T) { - if (T->root == 0) - trace_flushroot(J, T); - lj_gdbjit_deltrace(J, T); - T->traceno = 0; - setgcrefnull(J->trace[i]); - } - } - J->cur.traceno = 0; - J->freetrace = 0; - /* Clear penalty cache. */ - memset(J->penalty, 0, sizeof(J->penalty)); - /* Free the whole machine code and invalidate all exit stub groups. */ - lj_mcode_free(J); - memset(J->exitstubgroup, 0, sizeof(J->exitstubgroup)); - lj_vmevent_send(L, TRACE, - setstrV(L, L->top++, lj_str_newlit(L, "flush")); - ); - return 0; -} - -/* Initialize JIT compiler state. */ -void lj_trace_initstate(global_State *g) -{ - jit_State *J = G2J(g); - TValue *tv; - /* Initialize SIMD constants. */ - tv = LJ_KSIMD(J, LJ_KSIMD_ABS); - tv[0].u64 = U64x(7fffffff,ffffffff); - tv[1].u64 = U64x(7fffffff,ffffffff); - tv = LJ_KSIMD(J, LJ_KSIMD_NEG); - tv[0].u64 = U64x(80000000,00000000); - tv[1].u64 = U64x(80000000,00000000); -} - -/* Free everything associated with the JIT compiler state. */ -void lj_trace_freestate(global_State *g) -{ - jit_State *J = G2J(g); -#ifdef LUA_USE_ASSERT - { /* This assumes all traces have already been freed. */ - ptrdiff_t i; - for (i = 1; i < (ptrdiff_t)J->sizetrace; i++) - lua_assert(i == (ptrdiff_t)J->cur.traceno || traceref(J, i) == NULL); - } -#endif - lj_mcode_free(J); - lj_ir_k64_freeall(J); - lj_mem_freevec(g, J->snapmapbuf, J->sizesnapmap, SnapEntry); - lj_mem_freevec(g, J->snapbuf, J->sizesnap, SnapShot); - lj_mem_freevec(g, J->irbuf + J->irbotlim, J->irtoplim - J->irbotlim, IRIns); - lj_mem_freevec(g, J->trace, J->sizetrace, GCRef); -} - -/* -- Penalties and blacklisting ------------------------------------------ */ - -/* Blacklist a bytecode instruction. */ -static void blacklist_pc(GCproto *pt, BCIns *pc) -{ - setbc_op(pc, (int)bc_op(*pc)+(int)BC_ILOOP-(int)BC_LOOP); - pt->flags |= PROTO_ILOOP; -} - -/* Penalize a bytecode instruction. */ -static void penalty_pc(jit_State *J, GCproto *pt, BCIns *pc, TraceError e) -{ - uint32_t i, val = PENALTY_MIN; - for (i = 0; i < PENALTY_SLOTS; i++) - if (mref(J->penalty[i].pc, const BCIns) == pc) { /* Cache slot found? */ - /* First try to bump its hotcount several times. */ - val = ((uint32_t)J->penalty[i].val << 1) + - LJ_PRNG_BITS(J, PENALTY_RNDBITS); - if (val > PENALTY_MAX) { - blacklist_pc(pt, pc); /* Blacklist it, if that didn't help. */ - return; - } - goto setpenalty; - } - /* Assign a new penalty cache slot. */ - i = J->penaltyslot; - J->penaltyslot = (J->penaltyslot + 1) & (PENALTY_SLOTS-1); - setmref(J->penalty[i].pc, pc); -setpenalty: - J->penalty[i].val = (uint16_t)val; - J->penalty[i].reason = e; - hotcount_set(J2GG(J), pc+1, val); -} - -/* -- Trace compiler state machine ---------------------------------------- */ - -/* Start tracing. */ -static void trace_start(jit_State *J) -{ - lua_State *L; - TraceNo traceno; - - if ((J->pt->flags & PROTO_NOJIT)) { /* JIT disabled for this proto? */ - if (J->parent == 0 && J->exitno == 0) { - /* Lazy bytecode patching to disable hotcount events. */ - lua_assert(bc_op(*J->pc) == BC_FORL || bc_op(*J->pc) == BC_ITERL || - bc_op(*J->pc) == BC_LOOP || bc_op(*J->pc) == BC_FUNCF); - setbc_op(J->pc, (int)bc_op(*J->pc)+(int)BC_ILOOP-(int)BC_LOOP); - J->pt->flags |= PROTO_ILOOP; - } - J->state = LJ_TRACE_IDLE; /* Silently ignored. */ - return; - } - - /* Get a new trace number. */ - traceno = trace_findfree(J); - if (LJ_UNLIKELY(traceno == 0)) { /* No free trace? */ - lua_assert((J2G(J)->hookmask & HOOK_GC) == 0); - lj_trace_flushall(J->L); - J->state = LJ_TRACE_IDLE; /* Silently ignored. */ - return; - } - setgcrefp(J->trace[traceno], &J->cur); - - /* Setup enough of the current trace to be able to send the vmevent. */ - memset(&J->cur, 0, sizeof(GCtrace)); - J->cur.traceno = traceno; - J->cur.nins = J->cur.nk = REF_BASE; - J->cur.ir = J->irbuf; - J->cur.snap = J->snapbuf; - J->cur.snapmap = J->snapmapbuf; - J->mergesnap = 0; - J->needsnap = 0; - J->bcskip = 0; - J->guardemit.irt = 0; - J->postproc = LJ_POST_NONE; - lj_resetsplit(J); - setgcref(J->cur.startpt, obj2gco(J->pt)); - - L = J->L; - lj_vmevent_send(L, TRACE, - setstrV(L, L->top++, lj_str_newlit(L, "start")); - setintV(L->top++, traceno); - setfuncV(L, L->top++, J->fn); - setintV(L->top++, proto_bcpos(J->pt, J->pc)); - if (J->parent) { - setintV(L->top++, J->parent); - setintV(L->top++, J->exitno); - } - ); - lj_record_setup(J); -} - -/* Stop tracing. */ -static void trace_stop(jit_State *J) -{ - BCIns *pc = mref(J->cur.startpc, BCIns); - BCOp op = bc_op(J->cur.startins); - GCproto *pt = &gcref(J->cur.startpt)->pt; - TraceNo traceno = J->cur.traceno; - lua_State *L; - - switch (op) { - case BC_FORL: - setbc_op(pc+bc_j(J->cur.startins), BC_JFORI); /* Patch FORI, too. */ - /* fallthrough */ - case BC_LOOP: - case BC_ITERL: - case BC_FUNCF: - /* Patch bytecode of starting instruction in root trace. */ - setbc_op(pc, (int)op+(int)BC_JLOOP-(int)BC_LOOP); - setbc_d(pc, traceno); - addroot: - /* Add to root trace chain in prototype. */ - J->cur.nextroot = pt->trace; - pt->trace = (TraceNo1)traceno; - break; - case BC_RET: - case BC_RET0: - case BC_RET1: - *pc = BCINS_AD(BC_JLOOP, J->cur.snap[0].nslots, traceno); - goto addroot; - case BC_JMP: - /* Patch exit branch in parent to side trace entry. */ - lua_assert(J->parent != 0 && J->cur.root != 0); - lj_asm_patchexit(J, traceref(J, J->parent), J->exitno, J->cur.mcode); - /* Avoid compiling a side trace twice (stack resizing uses parent exit). */ - traceref(J, J->parent)->snap[J->exitno].count = SNAPCOUNT_DONE; - /* Add to side trace chain in root trace. */ - { - GCtrace *root = traceref(J, J->cur.root); - root->nchild++; - J->cur.nextside = root->nextside; - root->nextside = (TraceNo1)traceno; - } - break; - case BC_CALLM: - case BC_CALL: - case BC_ITERC: - /* Trace stitching: patch link of previous trace. */ - traceref(J, J->exitno)->link = traceno; - break; - default: - lua_assert(0); - break; - } - - /* Commit new mcode only after all patching is done. */ - lj_mcode_commit(J, J->cur.mcode); - J->postproc = LJ_POST_NONE; - trace_save(J); - - L = J->L; - lj_vmevent_send(L, TRACE, - setstrV(L, L->top++, lj_str_newlit(L, "stop")); - setintV(L->top++, traceno); - setfuncV(L, L->top++, J->fn); - ); -} - -/* Start a new root trace for down-recursion. */ -static int trace_downrec(jit_State *J) -{ - /* Restart recording at the return instruction. */ - lua_assert(J->pt != NULL); - lua_assert(bc_isret(bc_op(*J->pc))); - if (bc_op(*J->pc) == BC_RETM) - return 0; /* NYI: down-recursion with RETM. */ - J->parent = 0; - J->exitno = 0; - J->state = LJ_TRACE_RECORD; - trace_start(J); - return 1; -} - -/* Abort tracing. */ -static int trace_abort(jit_State *J) -{ - lua_State *L = J->L; - TraceError e = LJ_TRERR_RECERR; - TraceNo traceno; - - J->postproc = LJ_POST_NONE; - lj_mcode_abort(J); - if (tvisnumber(L->top-1)) - e = (TraceError)numberVint(L->top-1); - if (e == LJ_TRERR_MCODELM) { - L->top--; /* Remove error object */ - J->state = LJ_TRACE_ASM; - return 1; /* Retry ASM with new MCode area. */ - } - /* Penalize or blacklist starting bytecode instruction. */ - if (J->parent == 0 && !bc_isret(bc_op(J->cur.startins))) { - if (J->exitno == 0) - penalty_pc(J, &gcref(J->cur.startpt)->pt, mref(J->cur.startpc, BCIns), e); - else - traceref(J, J->exitno)->link = J->exitno; /* Self-link is blacklisted. */ - } - - /* Is there anything to abort? */ - traceno = J->cur.traceno; - if (traceno) { - ptrdiff_t errobj = savestack(L, L->top-1); /* Stack may be resized. */ - J->cur.link = 0; - J->cur.linktype = LJ_TRLINK_NONE; - lj_vmevent_send(L, TRACE, - TValue *frame; - const BCIns *pc; - GCfunc *fn; - setstrV(L, L->top++, lj_str_newlit(L, "abort")); - setintV(L->top++, traceno); - /* Find original Lua function call to generate a better error message. */ - frame = J->L->base-1; - pc = J->pc; - while (!isluafunc(frame_func(frame))) { - pc = (frame_iscont(frame) ? frame_contpc(frame) : frame_pc(frame)) - 1; - frame = frame_prev(frame); - } - fn = frame_func(frame); - setfuncV(L, L->top++, fn); - setintV(L->top++, proto_bcpos(funcproto(fn), pc)); - copyTV(L, L->top++, restorestack(L, errobj)); - copyTV(L, L->top++, &J->errinfo); - ); - /* Drop aborted trace after the vmevent (which may still access it). */ - setgcrefnull(J->trace[traceno]); - if (traceno < J->freetrace) - J->freetrace = traceno; - J->cur.traceno = 0; - } - L->top--; /* Remove error object */ - if (e == LJ_TRERR_DOWNREC) - return trace_downrec(J); - else if (e == LJ_TRERR_MCODEAL) - lj_trace_flushall(L); - return 0; -} - -/* Perform pending re-patch of a bytecode instruction. */ -static LJ_AINLINE void trace_pendpatch(jit_State *J, int force) -{ - if (LJ_UNLIKELY(J->patchpc)) { - if (force || J->bcskip == 0) { - *J->patchpc = J->patchins; - J->patchpc = NULL; - } else { - J->bcskip = 0; - } - } -} - -/* State machine for the trace compiler. Protected callback. */ -static TValue *trace_state(lua_State *L, lua_CFunction dummy, void *ud) -{ - jit_State *J = (jit_State *)ud; - UNUSED(dummy); - do { - retry: - switch (J->state) { - case LJ_TRACE_START: - J->state = LJ_TRACE_RECORD; /* trace_start() may change state. */ - trace_start(J); - lj_dispatch_update(J2G(J)); - break; - - case LJ_TRACE_RECORD: - trace_pendpatch(J, 0); - setvmstate(J2G(J), RECORD); - lj_vmevent_send_(L, RECORD, - /* Save/restore tmptv state for trace recorder. */ - TValue savetv = J2G(J)->tmptv; - TValue savetv2 = J2G(J)->tmptv2; - setintV(L->top++, J->cur.traceno); - setfuncV(L, L->top++, J->fn); - setintV(L->top++, J->pt ? (int32_t)proto_bcpos(J->pt, J->pc) : -1); - setintV(L->top++, J->framedepth); - , - J2G(J)->tmptv = savetv; - J2G(J)->tmptv2 = savetv2; - ); - lj_record_ins(J); - break; - - case LJ_TRACE_END: - trace_pendpatch(J, 1); - J->loopref = 0; - if ((J->flags & JIT_F_OPT_LOOP) && - J->cur.link == J->cur.traceno && J->framedepth + J->retdepth == 0) { - setvmstate(J2G(J), OPT); - lj_opt_dce(J); - if (lj_opt_loop(J)) { /* Loop optimization failed? */ - J->cur.link = 0; - J->cur.linktype = LJ_TRLINK_NONE; - J->loopref = J->cur.nins; - J->state = LJ_TRACE_RECORD; /* Try to continue recording. */ - break; - } - J->loopref = J->chain[IR_LOOP]; /* Needed by assembler. */ - } - lj_opt_split(J); - lj_opt_sink(J); - if (!J->loopref) J->cur.snap[J->cur.nsnap-1].count = SNAPCOUNT_DONE; - J->state = LJ_TRACE_ASM; - break; - - case LJ_TRACE_ASM: - setvmstate(J2G(J), ASM); - lj_asm_trace(J, &J->cur); - trace_stop(J); - setvmstate(J2G(J), INTERP); - J->state = LJ_TRACE_IDLE; - lj_dispatch_update(J2G(J)); - return NULL; - - default: /* Trace aborted asynchronously. */ - setintV(L->top++, (int32_t)LJ_TRERR_RECERR); - /* fallthrough */ - case LJ_TRACE_ERR: - trace_pendpatch(J, 1); - if (trace_abort(J)) - goto retry; - setvmstate(J2G(J), INTERP); - J->state = LJ_TRACE_IDLE; - lj_dispatch_update(J2G(J)); - return NULL; - } - } while (J->state > LJ_TRACE_RECORD); - return NULL; -} - -/* -- Event handling ------------------------------------------------------ */ - -/* A bytecode instruction is about to be executed. Record it. */ -void lj_trace_ins(jit_State *J, const BCIns *pc) -{ - /* Note: J->L must already be set. pc is the true bytecode PC here. */ - J->pc = pc; - J->fn = curr_func(J->L); - J->pt = isluafunc(J->fn) ? funcproto(J->fn) : NULL; - while (lj_vm_cpcall(J->L, NULL, (void *)J, trace_state) != 0) - J->state = LJ_TRACE_ERR; -} - -/* A hotcount triggered. Start recording a root trace. */ -void LJ_FASTCALL lj_trace_hot(jit_State *J, const BCIns *pc) -{ - /* Note: pc is the interpreter bytecode PC here. It's offset by 1. */ - ERRNO_SAVE - /* Reset hotcount. */ - hotcount_set(J2GG(J), pc, J->param[JIT_P_hotloop]*HOTCOUNT_LOOP); - /* Only start a new trace if not recording or inside __gc call or vmevent. */ - if (J->state == LJ_TRACE_IDLE && - !(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT))) { - J->parent = 0; /* Root trace. */ - J->exitno = 0; - J->state = LJ_TRACE_START; - lj_trace_ins(J, pc-1); - } - ERRNO_RESTORE -} - -/* Check for a hot side exit. If yes, start recording a side trace. */ -static void trace_hotside(jit_State *J, const BCIns *pc) -{ - SnapShot *snap = &traceref(J, J->parent)->snap[J->exitno]; - if (!(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT)) && - isluafunc(curr_func(J->L)) && - snap->count != SNAPCOUNT_DONE && - ++snap->count >= J->param[JIT_P_hotexit]) { - lua_assert(J->state == LJ_TRACE_IDLE); - /* J->parent is non-zero for a side trace. */ - J->state = LJ_TRACE_START; - lj_trace_ins(J, pc); - } -} - -/* Stitch a new trace to the previous trace. */ -void LJ_FASTCALL lj_trace_stitch(jit_State *J, const BCIns *pc) -{ - /* Only start a new trace if not recording or inside __gc call or vmevent. */ - if (J->state == LJ_TRACE_IDLE && - !(J2G(J)->hookmask & (HOOK_GC|HOOK_VMEVENT))) { - J->parent = 0; /* Have to treat it like a root trace. */ - /* J->exitno is set to the invoking trace. */ - J->state = LJ_TRACE_START; - lj_trace_ins(J, pc); - } -} - - -/* Tiny struct to pass data to protected call. */ -typedef struct ExitDataCP { - jit_State *J; - void *exptr; /* Pointer to exit state. */ - const BCIns *pc; /* Restart interpreter at this PC. */ -} ExitDataCP; - -/* Need to protect lj_snap_restore because it may throw. */ -static TValue *trace_exit_cp(lua_State *L, lua_CFunction dummy, void *ud) -{ - ExitDataCP *exd = (ExitDataCP *)ud; - cframe_errfunc(L->cframe) = -1; /* Inherit error function. */ - exd->pc = lj_snap_restore(exd->J, exd->exptr); - UNUSED(dummy); - return NULL; -} - -#ifndef LUAJIT_DISABLE_VMEVENT -/* Push all registers from exit state. */ -static void trace_exit_regs(lua_State *L, ExitState *ex) -{ - int32_t i; - setintV(L->top++, RID_NUM_GPR); - setintV(L->top++, RID_NUM_FPR); - for (i = 0; i < RID_NUM_GPR; i++) { - if (sizeof(ex->gpr[i]) == sizeof(int32_t)) - setintV(L->top++, (int32_t)ex->gpr[i]); - else - setnumV(L->top++, (lua_Number)ex->gpr[i]); - } -#if !LJ_SOFTFP - for (i = 0; i < RID_NUM_FPR; i++) { - setnumV(L->top, ex->fpr[i]); - if (LJ_UNLIKELY(tvisnan(L->top))) - setnanV(L->top); - L->top++; - } -#endif -} -#endif - -#ifdef EXITSTATE_PCREG -/* Determine trace number from pc of exit instruction. */ -static TraceNo trace_exit_find(jit_State *J, MCode *pc) -{ - TraceNo traceno; - for (traceno = 1; traceno < J->sizetrace; traceno++) { - GCtrace *T = traceref(J, traceno); - if (T && pc >= T->mcode && pc < (MCode *)((char *)T->mcode + T->szmcode)) - return traceno; - } - lua_assert(0); - return 0; -} -#endif - -/* A trace exited. Restore interpreter state. */ -int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr) -{ - ERRNO_SAVE - lua_State *L = J->L; - ExitState *ex = (ExitState *)exptr; - ExitDataCP exd; - int errcode; - const BCIns *pc; - void *cf; - GCtrace *T; -#ifdef EXITSTATE_PCREG - J->parent = trace_exit_find(J, (MCode *)(intptr_t)ex->gpr[EXITSTATE_PCREG]); -#endif - T = traceref(J, J->parent); UNUSED(T); -#ifdef EXITSTATE_CHECKEXIT - if (J->exitno == T->nsnap) { /* Treat stack check like a parent exit. */ - lua_assert(T->root != 0); - J->exitno = T->ir[REF_BASE].op2; - J->parent = T->ir[REF_BASE].op1; - T = traceref(J, J->parent); - } -#endif - lua_assert(T != NULL && J->exitno < T->nsnap); - exd.J = J; - exd.exptr = exptr; - errcode = lj_vm_cpcall(L, NULL, &exd, trace_exit_cp); - if (errcode) - return -errcode; /* Return negated error code. */ - - if (!(LJ_HASPROFILE && (G(L)->hookmask & HOOK_PROFILE))) - lj_vmevent_send(L, TEXIT, - lj_state_checkstack(L, 4+RID_NUM_GPR+RID_NUM_FPR+LUA_MINSTACK); - setintV(L->top++, J->parent); - setintV(L->top++, J->exitno); - trace_exit_regs(L, ex); - ); - - pc = exd.pc; - cf = cframe_raw(L->cframe); - setcframe_pc(cf, pc); - if (LJ_HASPROFILE && (G(L)->hookmask & HOOK_PROFILE)) { - /* Just exit to interpreter. */ - } else if (G(L)->gc.state == GCSatomic || G(L)->gc.state == GCSfinalize) { - if (!(G(L)->hookmask & HOOK_GC)) - lj_gc_step(L); /* Exited because of GC: drive GC forward. */ - } else { - trace_hotside(J, pc); - } - if (bc_op(*pc) == BC_JLOOP) { - BCIns *retpc = &traceref(J, bc_d(*pc))->startins; - if (bc_isret(bc_op(*retpc))) { - if (J->state == LJ_TRACE_RECORD) { - J->patchins = *pc; - J->patchpc = (BCIns *)pc; - *J->patchpc = *retpc; - J->bcskip = 1; - } else { - pc = retpc; - setcframe_pc(cf, pc); - } - } - } - /* Return MULTRES or 0. */ - ERRNO_RESTORE - switch (bc_op(*pc)) { - case BC_CALLM: case BC_CALLMT: - return (int)((BCReg)(L->top - L->base) - bc_a(*pc) - bc_c(*pc) + LJ_FR2); - case BC_RETM: - return (int)((BCReg)(L->top - L->base) + 1 - bc_a(*pc) - bc_d(*pc)); - case BC_TSETM: - return (int)((BCReg)(L->top - L->base) + 1 - bc_a(*pc)); - default: - if (bc_op(*pc) >= BC_FUNCF) - return (int)((BCReg)(L->top - L->base) + 1); - return 0; - } -} - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_trace.h b/src/3rd party/luajit-2.0-BAK/src/lj_trace.h deleted file mode 100644 index 9eaf91b0e33..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_trace.h +++ /dev/null @@ -1,54 +0,0 @@ -/* -** Trace management. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_TRACE_H -#define _LJ_TRACE_H - -#include "lj_obj.h" - -#if LJ_HASJIT -#include "lj_jit.h" -#include "lj_dispatch.h" - -/* Trace errors. */ -typedef enum { -#define TREDEF(name, msg) LJ_TRERR_##name, -#include "lj_traceerr.h" - LJ_TRERR__MAX -} TraceError; - -LJ_FUNC_NORET void lj_trace_err(jit_State *J, TraceError e); -LJ_FUNC_NORET void lj_trace_err_info(jit_State *J, TraceError e); - -/* Trace management. */ -LJ_FUNC void LJ_FASTCALL lj_trace_free(global_State *g, GCtrace *T); -LJ_FUNC void lj_trace_reenableproto(GCproto *pt); -LJ_FUNC void lj_trace_flushproto(global_State *g, GCproto *pt); -LJ_FUNC void lj_trace_flush(jit_State *J, TraceNo traceno); -LJ_FUNC int lj_trace_flushall(lua_State *L); -LJ_FUNC void lj_trace_initstate(global_State *g); -LJ_FUNC void lj_trace_freestate(global_State *g); - -/* Event handling. */ -LJ_FUNC void lj_trace_ins(jit_State *J, const BCIns *pc); -LJ_FUNCA void LJ_FASTCALL lj_trace_hot(jit_State *J, const BCIns *pc); -LJ_FUNCA void LJ_FASTCALL lj_trace_stitch(jit_State *J, const BCIns *pc); -LJ_FUNCA int LJ_FASTCALL lj_trace_exit(jit_State *J, void *exptr); - -/* Signal asynchronous abort of trace or end of trace. */ -#define lj_trace_abort(g) (G2J(g)->state &= ~LJ_TRACE_ACTIVE) -#define lj_trace_end(J) (J->state = LJ_TRACE_END) - -#else - -#define lj_trace_flushall(L) (UNUSED(L), 0) -#define lj_trace_initstate(g) UNUSED(g) -#define lj_trace_freestate(g) UNUSED(g) -#define lj_trace_abort(g) UNUSED(g) -#define lj_trace_end(J) UNUSED(J) - -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h b/src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h deleted file mode 100644 index 6b377cb0b37..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_traceerr.h +++ /dev/null @@ -1,60 +0,0 @@ -/* -** Trace compiler error messages. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* This file may be included multiple times with different TREDEF macros. */ - -/* Recording. */ -TREDEF(RECERR, "error thrown or hook called during recording") -TREDEF(TRACEUV, "trace too short") -TREDEF(TRACEOV, "trace too long") -TREDEF(STACKOV, "trace too deep") -TREDEF(SNAPOV, "too many snapshots") -TREDEF(BLACKL, "blacklisted") -TREDEF(NYIBC, "NYI: bytecode %d") - -/* Recording loop ops. */ -TREDEF(LLEAVE, "leaving loop in root trace") -TREDEF(LINNER, "inner loop in root trace") -TREDEF(LUNROLL, "loop unroll limit reached") - -/* Recording calls/returns. */ -TREDEF(BADTYPE, "bad argument type") -TREDEF(CJITOFF, "JIT compilation disabled for function") -TREDEF(CUNROLL, "call unroll limit reached") -TREDEF(DOWNREC, "down-recursion, restarting") -TREDEF(NYIFFU, "NYI: unsupported variant of FastFunc %s") -TREDEF(NYIRETL, "NYI: return to lower frame") - -/* Recording indexed load/store. */ -TREDEF(STORENN, "store with nil or NaN key") -TREDEF(NOMM, "missing metamethod") -TREDEF(IDXLOOP, "looping index lookup") -TREDEF(NYITMIX, "NYI: mixed sparse/dense table") - -/* Recording C data operations. */ -TREDEF(NOCACHE, "symbol not in cache") -TREDEF(NYICONV, "NYI: unsupported C type conversion") -TREDEF(NYICALL, "NYI: unsupported C function type") - -/* Optimizations. */ -TREDEF(GFAIL, "guard would always fail") -TREDEF(PHIOV, "too many PHIs") -TREDEF(TYPEINS, "persistent type instability") - -/* Assembler. */ -TREDEF(MCODEAL, "failed to allocate mcode memory") -TREDEF(MCODEOV, "machine code too long") -TREDEF(MCODELM, "hit mcode limit (retrying)") -TREDEF(SPILLOV, "too many spill slots") -TREDEF(BADRA, "inconsistent register allocation") -TREDEF(NYIIR, "NYI: cannot assemble IR instruction %d") -TREDEF(NYIPHI, "NYI: PHI shuffling too complex") -TREDEF(NYICOAL, "NYI: register coalescing too complex") - -#undef TREDEF - -/* Detecting unused error messages: - awk -F, '/^TREDEF/ { gsub(/TREDEF./, ""); printf "grep -q LJ_TRERR_%s *.[ch] || echo %s\n", $1, $1}' lj_traceerr.h | sh -*/ diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_udata.c b/src/3rd party/luajit-2.0-BAK/src/lj_udata.c deleted file mode 100644 index d401a3d8e85..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_udata.c +++ /dev/null @@ -1,34 +0,0 @@ -/* -** Userdata handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_udata_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_gc.h" -#include "lj_udata.h" - -GCudata *lj_udata_new(lua_State *L, MSize sz, GCtab *env) -{ - GCudata *ud = lj_mem_newt(L, sizeof(GCudata) + sz, GCudata); - global_State *g = G(L); - newwhite(g, ud); /* Not finalized. */ - ud->gct = ~LJ_TUDATA; - ud->udtype = UDTYPE_USERDATA; - ud->len = sz; - /* NOBARRIER: The GCudata is new (marked white). */ - setgcrefnull(ud->metatable); - setgcref(ud->env, obj2gco(env)); - /* Chain to userdata list (after main thread). */ - setgcrefr(ud->nextgc, mainthread(g)->nextgc); - setgcref(mainthread(g)->nextgc, obj2gco(ud)); - return ud; -} - -void LJ_FASTCALL lj_udata_free(global_State *g, GCudata *ud) -{ - lj_mem_free(g, ud, sizeudata(ud)); -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_udata.h b/src/3rd party/luajit-2.0-BAK/src/lj_udata.h deleted file mode 100644 index 676e970f488..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_udata.h +++ /dev/null @@ -1,14 +0,0 @@ -/* -** Userdata handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_UDATA_H -#define _LJ_UDATA_H - -#include "lj_obj.h" - -LJ_FUNC GCudata *lj_udata_new(lua_State *L, MSize sz, GCtab *env); -LJ_FUNC void LJ_FASTCALL lj_udata_free(global_State *g, GCudata *ud); - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_vm.h b/src/3rd party/luajit-2.0-BAK/src/lj_vm.h deleted file mode 100644 index b31e22f70f7..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_vm.h +++ /dev/null @@ -1,114 +0,0 @@ -/* -** Assembler VM interface definitions. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_VM_H -#define _LJ_VM_H - -#include "lj_obj.h" - -/* Entry points for ASM parts of VM. */ -LJ_ASMF void lj_vm_call(lua_State *L, TValue *base, int nres1); -LJ_ASMF int lj_vm_pcall(lua_State *L, TValue *base, int nres1, ptrdiff_t ef); -typedef TValue *(*lua_CPFunction)(lua_State *L, lua_CFunction func, void *ud); -LJ_ASMF int lj_vm_cpcall(lua_State *L, lua_CFunction func, void *ud, - lua_CPFunction cp); -LJ_ASMF int lj_vm_resume(lua_State *L, TValue *base, int nres1, ptrdiff_t ef); -LJ_ASMF_NORET void LJ_FASTCALL lj_vm_unwind_c(void *cframe, int errcode); -LJ_ASMF_NORET void LJ_FASTCALL lj_vm_unwind_ff(void *cframe); -LJ_ASMF void lj_vm_unwind_c_eh(void); -LJ_ASMF void lj_vm_unwind_ff_eh(void); -#if LJ_TARGET_X86ORX64 -LJ_ASMF void lj_vm_unwind_rethrow(void); -#endif - -/* Miscellaneous functions. */ -#if LJ_TARGET_X86ORX64 -LJ_ASMF int lj_vm_cpuid(uint32_t f, uint32_t res[4]); -#endif -#if LJ_TARGET_PPC -void lj_vm_cachesync(void *start, void *end); -#endif -LJ_ASMF double lj_vm_foldarith(double x, double y, int op); -#if LJ_HASJIT -LJ_ASMF double lj_vm_foldfpm(double x, int op); -#endif -#if !LJ_ARCH_HASFPU -/* Declared in lj_obj.h: LJ_ASMF int32_t lj_vm_tobit(double x); */ -#endif - -/* Dispatch targets for recording and hooks. */ -LJ_ASMF void lj_vm_record(void); -LJ_ASMF void lj_vm_inshook(void); -LJ_ASMF void lj_vm_rethook(void); -LJ_ASMF void lj_vm_callhook(void); -LJ_ASMF void lj_vm_profhook(void); - -/* Trace exit handling. */ -LJ_ASMF void lj_vm_exit_handler(void); -LJ_ASMF void lj_vm_exit_interp(void); - -/* Internal math helper functions. */ -#if LJ_TARGET_PPC || LJ_TARGET_ARM64 -#define lj_vm_floor floor -#define lj_vm_ceil ceil -#else -LJ_ASMF double lj_vm_floor(double); -LJ_ASMF double lj_vm_ceil(double); -#if LJ_TARGET_ARM -LJ_ASMF double lj_vm_floor_sf(double); -LJ_ASMF double lj_vm_ceil_sf(double); -#endif -#endif -#ifdef LUAJIT_NO_LOG2 -LJ_ASMF double lj_vm_log2(double); -#else -#define lj_vm_log2 log2 -#endif - -#if LJ_HASJIT -#if LJ_TARGET_X86ORX64 -LJ_ASMF void lj_vm_floor_sse(void); -LJ_ASMF void lj_vm_ceil_sse(void); -LJ_ASMF void lj_vm_trunc_sse(void); -LJ_ASMF void lj_vm_powi_sse(void); -#define lj_vm_powi NULL -#else -LJ_ASMF double lj_vm_powi(double, int32_t); -#endif -#if LJ_TARGET_PPC || LJ_TARGET_ARM64 -#define lj_vm_trunc trunc -#else -LJ_ASMF double lj_vm_trunc(double); -#if LJ_TARGET_ARM -LJ_ASMF double lj_vm_trunc_sf(double); -#endif -#endif -#ifdef LUAJIT_NO_EXP2 -LJ_ASMF double lj_vm_exp2(double); -#else -#define lj_vm_exp2 exp2 -#endif -LJ_ASMF int32_t LJ_FASTCALL lj_vm_modi(int32_t, int32_t); -#if LJ_HASFFI -LJ_ASMF int lj_vm_errno(void); -#endif -#endif - -/* Continuations for metamethods. */ -LJ_ASMF void lj_cont_cat(void); /* Continue with concatenation. */ -LJ_ASMF void lj_cont_ra(void); /* Store result in RA from instruction. */ -LJ_ASMF void lj_cont_nop(void); /* Do nothing, just continue execution. */ -LJ_ASMF void lj_cont_condt(void); /* Branch if result is true. */ -LJ_ASMF void lj_cont_condf(void); /* Branch if result is false. */ -LJ_ASMF void lj_cont_hook(void); /* Continue from hook yield. */ -LJ_ASMF void lj_cont_stitch(void); /* Trace stitching. */ - -/* Start of the ASM code. */ -LJ_ASMF char lj_vm_asm_begin[]; - -/* Bytecode offsets are relative to lj_vm_asm_begin. */ -#define makeasmfunc(ofs) ((ASMFunction)(lj_vm_asm_begin + (ofs))) - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c b/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c deleted file mode 100644 index 87ebcfbd286..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.c +++ /dev/null @@ -1,58 +0,0 @@ -/* -** VM event handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#include - -#define lj_vmevent_c -#define LUA_CORE - -#include "lj_obj.h" -#include "lj_str.h" -#include "lj_tab.h" -#include "lj_state.h" -#include "lj_dispatch.h" -#include "lj_vm.h" -#include "lj_vmevent.h" - -ptrdiff_t lj_vmevent_prepare(lua_State *L, VMEvent ev) -{ - global_State *g = G(L); - GCstr *s = lj_str_newlit(L, LJ_VMEVENTS_REGKEY); - cTValue *tv = lj_tab_getstr(tabV(registry(L)), s); - if (tvistab(tv)) { - int hash = VMEVENT_HASH(ev); - tv = lj_tab_getint(tabV(tv), hash); - if (tv && tvisfunc(tv)) { - lj_state_checkstack(L, LUA_MINSTACK); - setfuncV(L, L->top++, funcV(tv)); - if (LJ_FR2) setnilV(L->top++); - return savestack(L, L->top); - } - } - g->vmevmask &= ~VMEVENT_MASK(ev); /* No handler: cache this fact. */ - return 0; -} - -void lj_vmevent_call(lua_State *L, ptrdiff_t argbase) -{ - global_State *g = G(L); - uint8_t oldmask = g->vmevmask; - uint8_t oldh = hook_save(g); - int status; - g->vmevmask = 0; /* Disable all events. */ - hook_vmevent(g); - status = lj_vm_pcall(L, restorestack(L, argbase), 0+1, 0); - if (LJ_UNLIKELY(status)) { - /* Really shouldn't use stderr here, but where else to complain? */ - L->top--; - fputs("VM handler failed: ", stderr); - fputs(tvisstr(L->top) ? strVdata(L->top) : "?", stderr); - fputc('\n', stderr); - } - hook_restore(g, oldh); - if (g->vmevmask != VMEVENT_NOCACHE) - g->vmevmask = oldmask; /* Restore event mask, but not if not modified. */ -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h b/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h deleted file mode 100644 index 231e00ecdf9..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_vmevent.h +++ /dev/null @@ -1,59 +0,0 @@ -/* -** VM event handling. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef _LJ_VMEVENT_H -#define _LJ_VMEVENT_H - -#include "lj_obj.h" - -/* Registry key for VM event handler table. */ -#define LJ_VMEVENTS_REGKEY "_VMEVENTS" -#define LJ_VMEVENTS_HSIZE 4 - -#define VMEVENT_MASK(ev) ((uint8_t)1 << ((int)(ev) & 7)) -#define VMEVENT_HASH(ev) ((int)(ev) & ~7) -#define VMEVENT_HASHIDX(h) ((int)(h) << 3) -#define VMEVENT_NOCACHE 255 - -#define VMEVENT_DEF(name, hash) \ - LJ_VMEVENT_##name##_, \ - LJ_VMEVENT_##name = ((LJ_VMEVENT_##name##_) & 7)|((hash) << 3) - -/* VM event IDs. */ -typedef enum { - VMEVENT_DEF(BC, 0x00003883), - VMEVENT_DEF(TRACE, 0xb2d91467), - VMEVENT_DEF(RECORD, 0x9284bf4f), - VMEVENT_DEF(TEXIT, 0xb29df2b0), - LJ_VMEVENT__MAX -} VMEvent; - -#ifdef LUAJIT_DISABLE_VMEVENT -#define lj_vmevent_send(L, ev, args) UNUSED(L) -#define lj_vmevent_send_(L, ev, args, post) UNUSED(L) -#else -#define lj_vmevent_send(L, ev, args) \ - if (G(L)->vmevmask & VMEVENT_MASK(LJ_VMEVENT_##ev)) { \ - ptrdiff_t argbase = lj_vmevent_prepare(L, LJ_VMEVENT_##ev); \ - if (argbase) { \ - args \ - lj_vmevent_call(L, argbase); \ - } \ - } -#define lj_vmevent_send_(L, ev, args, post) \ - if (G(L)->vmevmask & VMEVENT_MASK(LJ_VMEVENT_##ev)) { \ - ptrdiff_t argbase = lj_vmevent_prepare(L, LJ_VMEVENT_##ev); \ - if (argbase) { \ - args \ - lj_vmevent_call(L, argbase); \ - post \ - } \ - } - -LJ_FUNC ptrdiff_t lj_vmevent_prepare(lua_State *L, VMEvent ev); -LJ_FUNC void lj_vmevent_call(lua_State *L, ptrdiff_t argbase); -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c b/src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c deleted file mode 100644 index ecad2950d93..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lj_vmmath.c +++ /dev/null @@ -1,152 +0,0 @@ -/* -** Math helper functions for assembler VM. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#define lj_vmmath_c -#define LUA_CORE - -#include -#include - -#include "lj_obj.h" -#include "lj_ir.h" -#include "lj_vm.h" - -/* -- Wrapper functions --------------------------------------------------- */ - -#if LJ_TARGET_X86 && __ELF__ && __PIC__ -/* Wrapper functions to deal with the ELF/x86 PIC disaster. */ -LJ_FUNCA double lj_wrap_log(double x) { return log(x); } -LJ_FUNCA double lj_wrap_log10(double x) { return log10(x); } -LJ_FUNCA double lj_wrap_exp(double x) { return exp(x); } -LJ_FUNCA double lj_wrap_sin(double x) { return sin(x); } -LJ_FUNCA double lj_wrap_cos(double x) { return cos(x); } -LJ_FUNCA double lj_wrap_tan(double x) { return tan(x); } -LJ_FUNCA double lj_wrap_asin(double x) { return asin(x); } -LJ_FUNCA double lj_wrap_acos(double x) { return acos(x); } -LJ_FUNCA double lj_wrap_atan(double x) { return atan(x); } -LJ_FUNCA double lj_wrap_sinh(double x) { return sinh(x); } -LJ_FUNCA double lj_wrap_cosh(double x) { return cosh(x); } -LJ_FUNCA double lj_wrap_tanh(double x) { return tanh(x); } -LJ_FUNCA double lj_wrap_atan2(double x, double y) { return atan2(x, y); } -LJ_FUNCA double lj_wrap_pow(double x, double y) { return pow(x, y); } -LJ_FUNCA double lj_wrap_fmod(double x, double y) { return fmod(x, y); } -#endif - -/* -- Helper functions for generated machine code ------------------------- */ - -double lj_vm_foldarith(double x, double y, int op) -{ - switch (op) { - case IR_ADD - IR_ADD: return x+y; break; - case IR_SUB - IR_ADD: return x-y; break; - case IR_MUL - IR_ADD: return x*y; break; - case IR_DIV - IR_ADD: return x/y; break; - case IR_MOD - IR_ADD: return x-lj_vm_floor(x/y)*y; break; - case IR_POW - IR_ADD: return pow(x, y); break; - case IR_NEG - IR_ADD: return -x; break; - case IR_ABS - IR_ADD: return fabs(x); break; -#if LJ_HASJIT - case IR_ATAN2 - IR_ADD: return atan2(x, y); break; - case IR_LDEXP - IR_ADD: return ldexp(x, (int)y); break; - case IR_MIN - IR_ADD: return x > y ? y : x; break; - case IR_MAX - IR_ADD: return x < y ? y : x; break; -#endif - default: return x; - } -} - -#if LJ_HASJIT - -#ifdef LUAJIT_NO_LOG2 -double lj_vm_log2(double a) -{ - return log(a) * 1.4426950408889634074; -} -#endif - -#ifdef LUAJIT_NO_EXP2 -double lj_vm_exp2(double a) -{ - return exp(a * 0.6931471805599453); -} -#endif - -#if !(LJ_TARGET_ARM || LJ_TARGET_ARM64 || LJ_TARGET_PPC) -int32_t LJ_FASTCALL lj_vm_modi(int32_t a, int32_t b) -{ - uint32_t y, ua, ub; - lua_assert(b != 0); /* This must be checked before using this function. */ - ua = a < 0 ? (uint32_t)-a : (uint32_t)a; - ub = b < 0 ? (uint32_t)-b : (uint32_t)b; - y = ua % ub; - if (y != 0 && (a^b) < 0) y = y - ub; - if (((int32_t)y^b) < 0) y = (uint32_t)-(int32_t)y; - return (int32_t)y; -} -#endif - -#if !LJ_TARGET_X86ORX64 -/* Unsigned x^k. */ -static double lj_vm_powui(double x, uint32_t k) -{ - double y; - lua_assert(k != 0); - for (; (k & 1) == 0; k >>= 1) x *= x; - y = x; - if ((k >>= 1) != 0) { - for (;;) { - x *= x; - if (k == 1) break; - if (k & 1) y *= x; - k >>= 1; - } - y *= x; - } - return y; -} - -/* Signed x^k. */ -double lj_vm_powi(double x, int32_t k) -{ - if (k > 1) - return lj_vm_powui(x, (uint32_t)k); - else if (k == 1) - return x; - else if (k == 0) - return 1.0; - else - return 1.0 / lj_vm_powui(x, (uint32_t)-k); -} -#endif - -/* Computes fpm(x) for extended math functions. */ -double lj_vm_foldfpm(double x, int fpm) -{ - switch (fpm) { - case IRFPM_FLOOR: return lj_vm_floor(x); - case IRFPM_CEIL: return lj_vm_ceil(x); - case IRFPM_TRUNC: return lj_vm_trunc(x); - case IRFPM_SQRT: return sqrt(x); - case IRFPM_EXP: return exp(x); - case IRFPM_EXP2: return lj_vm_exp2(x); - case IRFPM_LOG: return log(x); - case IRFPM_LOG2: return lj_vm_log2(x); - case IRFPM_LOG10: return log10(x); - case IRFPM_SIN: return sin(x); - case IRFPM_COS: return cos(x); - case IRFPM_TAN: return tan(x); - default: lua_assert(0); - } - return 0; -} - -#if LJ_HASFFI -int lj_vm_errno(void) -{ - return errno; -} -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/ljamalg.c b/src/3rd party/luajit-2.0-BAK/src/ljamalg.c deleted file mode 100644 index be0c52d743e..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/ljamalg.c +++ /dev/null @@ -1,96 +0,0 @@ -/* -** LuaJIT core and libraries amalgamation. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -/* -+--------------------------------------------------------------------------+ -| WARNING: Compiling the amalgamation needs a lot of virtual memory | -| (around 300 MB with GCC 4.x)! If you don't have enough physical memory | -| your machine will start swapping to disk and the compile will not finish | -| within a reasonable amount of time. | -| So either compile on a bigger machine or use the non-amalgamated build. | -+--------------------------------------------------------------------------+ -*/ - -#define ljamalg_c -#define LUA_CORE - -/* To get the mremap prototype. Must be defined before any system includes. */ -#if defined(__linux__) && !defined(_GNU_SOURCE) -#define _GNU_SOURCE -#endif - -#ifndef WINVER -#define WINVER 0x0501 -#endif - -#include "lua.h" -#include "lauxlib.h" - -#include "lj_gc.c" -#include "lj_err.c" -#include "lj_char.c" -#include "lj_bc.c" -#include "lj_obj.c" -#include "lj_buf.c" -#include "lj_str.c" -#include "lj_tab.c" -#include "lj_func.c" -#include "lj_udata.c" -#include "lj_meta.c" -#include "lj_debug.c" -#include "lj_state.c" -#include "lj_dispatch.c" -#include "lj_vmevent.c" -#include "lj_vmmath.c" -#include "lj_strscan.c" -#include "lj_strfmt.c" -#include "lj_api.c" -#include "lj_profile.c" -#include "lj_lex.c" -#include "lj_parse.c" -#include "lj_bcread.c" -#include "lj_bcwrite.c" -#include "lj_load.c" -#include "lj_ctype.c" -#include "lj_cdata.c" -#include "lj_cconv.c" -#include "lj_ccall.c" -#include "lj_ccallback.c" -#include "lj_carith.c" -#include "lj_clib.c" -#include "lj_cparse.c" -#include "lj_lib.c" -#include "lj_ir.c" -#include "lj_opt_mem.c" -#include "lj_opt_fold.c" -#include "lj_opt_narrow.c" -#include "lj_opt_dce.c" -#include "lj_opt_loop.c" -#include "lj_opt_split.c" -#include "lj_opt_sink.c" -#include "lj_mcode.c" -#include "lj_snap.c" -#include "lj_record.c" -#include "lj_crecord.c" -#include "lj_ffrecord.c" -#include "lj_asm.c" -#include "lj_trace.c" -#include "lj_gdbjit.c" -#include "lj_alloc.c" - -#include "lib_aux.c" -#include "lib_base.c" -#include "lib_math.c" -#include "lib_string.c" -#include "lib_table.c" -#include "lib_io.c" -#include "lib_os.c" -#include "lib_package.c" -#include "lib_debug.c" -#include "lib_bit.c" -#include "lib_jit.c" -#include "lib_ffi.c" -#include "lib_init.c" - diff --git a/src/3rd party/luajit-2.0-BAK/src/lua.h b/src/3rd party/luajit-2.0-BAK/src/lua.h deleted file mode 100644 index c83fd3bbe7f..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lua.h +++ /dev/null @@ -1,393 +0,0 @@ -/* -** $Id: lua.h,v 1.218.1.5 2008/08/06 13:30:12 roberto Exp $ -** Lua - An Extensible Extension Language -** Lua.org, PUC-Rio, Brazil (http://www.lua.org) -** See Copyright Notice at the end of this file -*/ - - -#ifndef lua_h -#define lua_h - -#include -#include - - -#include "luaconf.h" - - -#define LUA_VERSION "Lua 5.1" -#define LUA_RELEASE "Lua 5.1.4" -#define LUA_VERSION_NUM 501 -#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" -#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" - - -/* mark for precompiled code (`Lua') */ -#define LUA_SIGNATURE "\033Lua" - -/* option for multiple returns in `lua_pcall' and `lua_call' */ -#define LUA_MULTRET (-1) - - -/* -** pseudo-indices -*/ -#define LUA_REGISTRYINDEX (-10000) -#define LUA_ENVIRONINDEX (-10001) -#define LUA_GLOBALSINDEX (-10002) -#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i)) - - -/* thread status; 0 is OK */ -#define LUA_YIELD 1 -#define LUA_ERRRUN 2 -#define LUA_ERRSYNTAX 3 -#define LUA_ERRMEM 4 -#define LUA_ERRERR 5 - - -typedef struct lua_State lua_State; - -typedef int (*lua_CFunction) (lua_State *L); - - -/* -** functions that read/write blocks when loading/dumping Lua chunks -*/ -typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); - -typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud); - - -/* -** prototype for memory-allocation functions -*/ -typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); - - -/* -** basic types -*/ -#define LUA_TNONE (-1) - -#define LUA_TNIL 0 -#define LUA_TBOOLEAN 1 -#define LUA_TLIGHTUSERDATA 2 -#define LUA_TNUMBER 3 -#define LUA_TSTRING 4 -#define LUA_TTABLE 5 -#define LUA_TFUNCTION 6 -#define LUA_TUSERDATA 7 -#define LUA_TTHREAD 8 - - - -/* minimum Lua stack available to a C function */ -#define LUA_MINSTACK 20 - - -/* -** generic extra include file -*/ -#if defined(LUA_USER_H) -#include LUA_USER_H -#endif - - -/* type of numbers in Lua */ -typedef LUA_NUMBER lua_Number; - - -/* type for integer functions */ -typedef LUA_INTEGER lua_Integer; - - - -/* -** state manipulation -*/ -LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud); -LUA_API void (lua_close) (lua_State *L); -LUA_API lua_State *(lua_newthread) (lua_State *L); - -LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); - - -/* -** basic stack manipulation -*/ -LUA_API int (lua_gettop) (lua_State *L); -LUA_API void (lua_settop) (lua_State *L, int idx); -LUA_API void (lua_pushvalue) (lua_State *L, int idx); -LUA_API void (lua_remove) (lua_State *L, int idx); -LUA_API void (lua_insert) (lua_State *L, int idx); -LUA_API void (lua_replace) (lua_State *L, int idx); -LUA_API int (lua_checkstack) (lua_State *L, int sz); - -LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); - - -/* -** access functions (stack -> C) -*/ - -LUA_API int (lua_isnumber) (lua_State *L, int idx); -LUA_API int (lua_isstring) (lua_State *L, int idx); -LUA_API int (lua_iscfunction) (lua_State *L, int idx); -LUA_API int (lua_isuserdata) (lua_State *L, int idx); -LUA_API int (lua_type) (lua_State *L, int idx); -LUA_API const char *(lua_typename) (lua_State *L, int tp); - -LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2); -LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); -LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2); - -LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx); -LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx); -LUA_API int (lua_toboolean) (lua_State *L, int idx); -LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); -LUA_API size_t (lua_objlen) (lua_State *L, int idx); -LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); -LUA_API void *(lua_touserdata) (lua_State *L, int idx); -LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); -LUA_API const void *(lua_topointer) (lua_State *L, int idx); - - -/* -** push functions (C -> stack) -*/ -LUA_API void (lua_pushnil) (lua_State *L); -LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); -LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); -LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l); -LUA_API void (lua_pushstring) (lua_State *L, const char *s); -LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, - va_list argp); -LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); -LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); -LUA_API void (lua_pushboolean) (lua_State *L, int b); -LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); -LUA_API int (lua_pushthread) (lua_State *L); - - -/* -** get functions (Lua -> stack) -*/ -LUA_API void (lua_gettable) (lua_State *L, int idx); -LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k); -LUA_API void (lua_rawget) (lua_State *L, int idx); -LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n); -LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec); -LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz); -LUA_API int (lua_getmetatable) (lua_State *L, int objindex); -LUA_API void (lua_getfenv) (lua_State *L, int idx); - - -/* -** set functions (stack -> Lua) -*/ -LUA_API void (lua_settable) (lua_State *L, int idx); -LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); -LUA_API void (lua_rawset) (lua_State *L, int idx); -LUA_API void (lua_rawseti) (lua_State *L, int idx, int n); -LUA_API int (lua_setmetatable) (lua_State *L, int objindex); -LUA_API int (lua_setfenv) (lua_State *L, int idx); - - -/* -** `load' and `call' functions (load and run Lua code) -*/ -LUA_API void (lua_call) (lua_State *L, int nargs, int nresults); -LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); -LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud); -LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, - const char *chunkname); - -LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data); - - -/* -** coroutine functions -*/ -LUA_API int (lua_yield) (lua_State *L, int nresults); -LUA_API int (lua_resume) (lua_State *L, int narg); -LUA_API int (lua_status) (lua_State *L); - -/* -** garbage-collection function and options -*/ - -#define LUA_GCSTOP 0 -#define LUA_GCRESTART 1 -#define LUA_GCCOLLECT 2 -#define LUA_GCCOUNT 3 -#define LUA_GCCOUNTB 4 -#define LUA_GCSTEP 5 -#define LUA_GCSETPAUSE 6 -#define LUA_GCSETSTEPMUL 7 - -LUA_API int (lua_gc) (lua_State *L, int what, int data); - - -/* -** miscellaneous functions -*/ - -LUA_API int (lua_error) (lua_State *L); - -LUA_API int (lua_next) (lua_State *L, int idx); - -LUA_API void (lua_concat) (lua_State *L, int n); - -LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); -LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud); - - - -/* -** =============================================================== -** some useful macros -** =============================================================== -*/ - -#define lua_pop(L,n) lua_settop(L, -(n)-1) - -#define lua_newtable(L) lua_createtable(L, 0, 0) - -#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) - -#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) - -#define lua_strlen(L,i) lua_objlen(L, (i)) - -#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) -#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) -#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) -#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) -#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) -#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) -#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) -#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) - -#define lua_pushliteral(L, s) \ - lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1) - -#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s)) -#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s)) - -#define lua_tostring(L,i) lua_tolstring(L, (i), NULL) - - - -/* -** compatibility macros and functions -*/ - -#define lua_open() luaL_newstate() - -#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX) - -#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0) - -#define lua_Chunkreader lua_Reader -#define lua_Chunkwriter lua_Writer - - -/* hack */ -LUA_API void lua_setlevel (lua_State *from, lua_State *to); - - -/* -** {====================================================================== -** Debug API -** ======================================================================= -*/ - - -/* -** Event codes -*/ -#define LUA_HOOKCALL 0 -#define LUA_HOOKRET 1 -#define LUA_HOOKLINE 2 -#define LUA_HOOKCOUNT 3 -#define LUA_HOOKTAILRET 4 - - -/* -** Event masks -*/ -#define LUA_MASKCALL (1 << LUA_HOOKCALL) -#define LUA_MASKRET (1 << LUA_HOOKRET) -#define LUA_MASKLINE (1 << LUA_HOOKLINE) -#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) - -typedef struct lua_Debug lua_Debug; /* activation record */ - - -/* Functions to be called by the debuger in specific events */ -typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); - - -LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar); -LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); -LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); -LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); -LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n); -LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n); -LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count); -LUA_API lua_Hook lua_gethook (lua_State *L); -LUA_API int lua_gethookmask (lua_State *L); -LUA_API int lua_gethookcount (lua_State *L); - -/* From Lua 5.2. */ -LUA_API void *lua_upvalueid (lua_State *L, int idx, int n); -LUA_API void lua_upvaluejoin (lua_State *L, int idx1, int n1, int idx2, int n2); -LUA_API int lua_loadx (lua_State *L, lua_Reader reader, void *dt, - const char *chunkname, const char *mode); - - -struct lua_Debug { - int event; - const char *name; /* (n) */ - const char *namewhat; /* (n) `global', `local', `field', `method' */ - const char *what; /* (S) `Lua', `C', `main', `tail' */ - const char *source; /* (S) */ - int currentline; /* (l) */ - int nups; /* (u) number of upvalues */ - int linedefined; /* (S) */ - int lastlinedefined; /* (S) */ - char short_src[LUA_IDSIZE]; /* (S) */ - /* private part */ - int i_ci; /* active function */ -}; - -/* }====================================================================== */ - - -/****************************************************************************** -* Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. -* -* Permission is hereby granted, free of charge, to any person obtaining -* a copy of this software and associated documentation files (the -* "Software"), to deal in the Software without restriction, including -* without limitation the rights to use, copy, modify, merge, publish, -* distribute, sublicense, and/or sell copies of the Software, and to -* permit persons to whom the Software is furnished to do so, subject to -* the following conditions: -* -* The above copyright notice and this permission notice shall be -* included in all copies or substantial portions of the Software. -* -* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -******************************************************************************/ - - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/lua.hpp b/src/3rd party/luajit-2.0-BAK/src/lua.hpp deleted file mode 100644 index 07e9002dc5a..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/lua.hpp +++ /dev/null @@ -1,9 +0,0 @@ -// C++ wrapper for LuaJIT header files. - -extern "C" { -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" -#include "luajit.h" -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/lua51.dll b/src/3rd party/luajit-2.0-BAK/src/lua51.dll deleted file mode 100644 index 16457c0f3e1f8476dcc080785ad3f86defa9e134..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 368128 zcmeFadwf*Yxj#IYon#;bdys*SHA>J?futG)TjHd35^@6}B!tX>K!Q~{5b;7XLjVC2 zcLMAzx9w?ddpz}=YTMJJ)zf2p6i_Q>63B#rT#pJ`l}ptn4_gQ<-WO6}0 z@9(^y_n$YPPcnPC8{h{bd#y=m{zpvw;^H<)zf^f%1Qd(dz%rOdvwbk1e#O@t8m?owgtpL(eHsqpIWZ4ECWG6^8xbru;Gfz@*QO-H6{7(9 zSdt-!9$)U~#Uz8(ak+>6_ie!E?*Gc^>_YFC`?<+??^+)o{`fokxM-|8-LW?52E($O zYVNtqcNfNTFYeOVm*X=Hp9w#1h{sJDm|+P$dK!Pg8^fbR;972~xp&orcN?@ZVQhx) z0UPR)GjO+ZxTA!q>9@MFDWlU zGcHA0vbb%ZxJ|{wfNG06pVtxerNt3^fy)61>b?zv*ZL8>I2b|Aw?VMJAHjoz5!8My z0=BAEz<8vKXKSbO;nYqc`a5a#t?NhmzqYY-@hh=W=6!bxxZH%x>{XqD|1Ig_#oFD> z+R230?11kz>Ef4l0k+cCbjJ5;cR{kv|I*Ymp-e!3efK8cH+Mg>zx(J_diR~w{lR$m z?bQ7?t^5Dv-9Ps_nTyaL(V*ub1I3&L7yM4Naap%~Ah4t zP6nGTp_sY-c?_7j`Jhmwe!2KS$8zzZJ!PUda8?{M3|7K_ z@^D{@O%f4qZI$0r|C}M9qbV)&X>nW0#qb_++o$5T7HPw2vVsx#V4~vmS#hBd93JC< z2EqOYOTJZuU-max^sO4)+uxw_TQ!*8-@s-Ks(-nOhBO=t2Mollx5A(o((u2r!Qt;{ ztU`k&->Shg{S6jmtp4Q}smV6&bM8KcqYfHB^T=eoOd>Y#k0TffC{&yA0_ zRdJ~c$r9n)wB6p{_J#hoi@sIchx^+;)Ze!9TeZEtzwPw?wl-^P=;MonSYz)89Wek@ zev6pn#Gg4%i`p$D8Axs9)9vhW&w&9AZIWu!Su_JiLGz9nQqW0lvBnfcQoW z>HP5XOmle|UGF(aGz}q0nbT=i@>_-1(Opzt8IdPT0ZVpZP0tWWRvlrhn(XX;8!Hgl z{f5g8k;5tW`i;p3g0;3XpqJ+wEJq#z-2 zak_pfZ^k83=p+g0!GsLK!dq9^82dZ;<6pkgO&kN4ufOcNi@OLzo7UvdqLog7C9o1jeZKM?L9%R@iF4$Lw1Gy5zcVg&UB6 z!E930&~q@nOXKhT7BD2V6K*o``#NM|{l*R+@0&{I!ij4}|5{HQQqzvKx z+%bzyKI&d*4PU7d1yY4AK9&E}?ES8Ta&kHb9IF0Hd(@ZXl5Yw_PItpg3; z7q=B&WRuw}(9tT-L3}YdY#@LjbcA<$g3You?eV_?vYPhz{!XO%KM1`vdJs$Y;RZV9 zgKoj~|IR*))&>dOV6o83JNR3?gRkZ1fH_OmIHS$kiecvLG>~%aC*s)ooL$G2 zx{xAk#PRY9LADIx7@xU!w3#!Bjlab;y}|{?46vp0^Zf5zD@}3u znW0m8HML2Y%Jza}Lu@+BX*x^zbY>8FV$;tdvwULpfN`ZD4>cm3%mdIzTb$JGsGu<1 z2=CD5`DtyQM`E5akSFmJ3Tq4IJMG*-ta8FQJ8kkRr@%EIZisYRcR^p=z*P@Vta2c9 zH{^$pS4tRffi+Zt`vazC3DKa-PARSvWJhEE_x~r%9}Ntgr@Jo4>_5vJz=52gf=qH{ zgir5sh7n4t(dRTqAOv-{OpXLTF`GA9*kt);wo-r(k{=YLpan4gFr)T^wIXD zBj5mMr(<~j!Fd7z4$)XQW(XxZnonpFdk(P;oe}nkjXiQO{Fd~Yxu+eD#NZz>`7HXc z=?ni{YBz@;CwkaQmF0daPbTlUvWw+@DX+B1xmLFFILrMz1roV%={-A$M6u}%SSxo9 z#|M%Pd5O~wmUppy^u5#p2C(3uqPuvI|;Ntcyn2JvB$T8umbf?yCyY6t+Jst6{4K6z7K_vd}UQAlKoEYm8>WN3sBStnFU8Eh6>eQk^N51C&659 z*!i8Bv%?Zc>Q1E$`QYTpn)l`1fiq@lw-Evkt~j%d9i$=O8QQ@+HR14ok}a5PC(k_j z9ku{caM}o0yXA8;Iea$PZhR-a8xr|xkKYXztGN8~OL(RYoqbXNO^^t|KS?i)!S6*t zgaMy@(MN_Ul(iT3E!1J#lMBKhl4J%>m?0JRiwZ;^5Di2)j*-hdoHob(x@8r|QQ25b-z27>c zF#7FK=eJS_6eYxa6A&-vh{Mkf8CM=#HBykP`&i~k=-dBoH(x?6IQ{<&NrGQNzJBdU zWM%7+`b!R6v6ZOJ;M$67I8O+>ZI)%jbqIGlAosbB+LX(cGbthpzZXZlcSH2V@O={FF9;VJuI5M`gCw#6w!aWv`^V@xy3EBoZ!$PgU;pd$eR zW4baDzI6!Hpgx+>#}F9CN)f;_p@F%lbJzXz7kLztNqODz7#%~LS^{5<;-kw6^QL{& z9+bJ}I>ar=I?3I(W_PR^nnodt)HJ5Wi05B~KN!^b!T!c0XpTc35Hq;Z$4cgIvf7H! z3e}WX^vP?X$3#H~r{H=Zkq^nOP~=uvz=>qp4%Obo)vHtuiAp8c*={@bV@FX_=1+0)hj!ZtQ z%$XWNpTYc*0?H9&Rm8?W0HohAijAkv<3YDkx08SE9|>W2yXOPlY?67=ZH?5bn@w9j?zpl{RVxs#^0NW0P&S5_@;tFgN(9ChCf=4sqVd)T)FNF)wS z4#3ogJJ5(|f-erKKMs+Tu!sNsMPpcy56WE5*!`AZ!5m_6_>aBXm`@W+te0igVV@jbYMUZ{7#oQPMT4W;`0p_ime4HVz zlRLCdCLbE$HN?i^-e@$m3?tEdK0X*_y60p%J#7D^mzzHgv?ZPV8sG6$a4j`z(BEiXy2#kHX)gz zM5caI-}n7DDXbJqCQn9aL{3bWm*CA+*PsR zhOFl(MSP$S+{VlT+DhWi;WfdEWt=zvGpA6B7{x80pa*4*@b&93v?RAyxK#6A`0w>cbMF@t+ z;t#~;7vWJDmApHgOoPijt&LAB=H@$54Jhp6$^(gm0>#GJ^MpPVV&kJEAc4sTNpc=C zX+o0)wb3b5?5z+VqOewL6F$tdwK*`dz$t|+iV)zi#L0pA`@~=JUNA#;*mfIP2srL{ z#Ks9{(dV$~lHMyBP~Pb#u!W3UVV}0DO-tIpe|`n|r3eDESFwSERU`I6IQJ*I)?#&v zW2eB+NUF&9G_@L<9mqQkJ#S^JV$p7LuKBwinh)T$ zio8hZhFF65T4{#Kudo;!Nrz*PYkLO#rYBuAwEN=;E_#Ws=WA zd#MQu0~e!W;~R8s#2{q!`4@bVE}rxK8u4;n((B+{wC64M!t=InxG*L~%;KXjp%x{r zr+VEVsVX&v>M~-}zw*0Q+HMsA}S5|#tu_M2>poqB+PflF_#h!6Q3Tv zu=^I=x4Zx=4S$4Pkx%o|8Sx+4dR|}X0u+>Z+w>g`1!DbCxI*Y_3caI0d-MX;q`<@V zSRWk2Okh@w(|;w9^~f8xyaO2NwS0^gW9p;^&-2>w^HdwINm2`lFw$md6S>}y`o}PL zyx|x5-2MtpdWz1xi6L|VZj~H*vQl`VW0=eK`p5=9eq3d?6y1vO*U6F@i*_DdLWAY+w3R3CXs}c%cH)s`2 zB05xvUZss`s0r&1;lwDKxTY5WfA63WAT)=Q0JXZCy3=X*()Cc<`BLtfJc~yB6|t6+ z0j$UMvy)-8b1rYgOT$=8UZJ*x1!k7gVG69Sgy7P^RzXADXhjK zS6k#;l-V|D@J=jp8Nx5~$?POxJm)r(rft2@i)z^G=^4D8_eSUB!OH{z&y^fIz+k}%kHO`H_oyud;`lO zoMrRzrJrRQzq-CPzZ{fud@aA`U6x-zx-7qpF-A?@6XVjd&%mX%aQ1xorg_lger}Y% zALB;&ABmctf=MLxVxu252nYgC%L?pMTjYXCFB%b4hc*Kf*!BLMk?_r2{O$lGL=Fm> ztJN(`%f-+4EEm_{xAu@xToB+&3Qgq61kIwJ4rNkB<+~KY^&Fy_(2#sFp{kK-lFsVzSHQ}eUn{UK!zDzf_aQdFdJ?-f;{ArmfbRQ`_+2NnWpEc<%sle#O zHjDO;$qa<9&>Da~hkA;?SQ24C>#BCl50_1me z&AmI1p$>i2aM55m9<9A?gzEeLj!SS>bR*qRb5r2VxXHVbm?7TlYxoFRLVd%V0KFZ- z7g(Z)!_(0R{9X7A%?R9Y>C6Q8yNGr@!Sz=6?U)Wne(0m{^ISeAaDvHJjKdYR1a%-P zMvQN|IO({0FSjF0j&mINb1lp31Kd<~?MN-i*nx_t+Gs`jt{vW7+;%_8pi_2-Oh7a!H2WhpB-=Aq!vMlY;0oc&l!lAg%5D(1 z^nzu`m+VOUEo6<68OI#69+~lwtd2Yx(g0qOK}Qrlh5iWzr$If=0D4+&0E8xgPXhm% zvC?|fTqOn9=)0Ph8|~VF*5ek!5IlScSI8MCb-N$mGiO^UMabS=b4}BpO*g<_SSNRE zxJg+xN<dOZ4-Q)& z=RFfsyCII`j}(?pRRfIj3YKe;S6XEwANyjn(I5xZ-wQ@VC=#<%0ctcb5YCBX{QWmz ze9pu%&L@n2h+%wiD8|#crSWP0H(*TBXfzPU1u=|QYt6yjvAEK8XGWs#EDS6cH|-8R z0CsUcg(29`uLKxP%8%eawWna0T99LfyY9+9C~lrgjn|T%W#I}?_~lT6iEmPc?mdqA zA1{NM_F`NP^E;$v9P`__O2j-O0rL+ogL%T&VBQ$VykQXLsR@|hr;%~vcSIW**`5U6 z#JC~8sfQ;o#2ftfYa8@nqZl-n7x2N!kdN9?x_4h3!Cm}{6vL~d!uV%X?!gIo3%SSP zG7x}`Dhsg%13YI!i(?9Wlvu@?u%BNMNxL+rK^(rB zq>CY243!c`CB;##`yZg%9oo%B+gwvf6xF)Pa@5|YiO)Av@@8l=nscijPST3a6cg*= zxE6nEYXYbuv%Cma2I>~dna*gb9i|T@yPwcn00Q*MhftAhYEg2Hi0F|w`v)z(%ZK!! z6ASWKQhZCXpAJ=?hH3dq`Y1B_bZ9=Vc?laS!jBGf!wO6FhovxnHZnv!J<#Lf5NJ{5 z8Cnqr73NqO8=w_!;x>u0yJyq=^PaW&r$1};WkuOfaVI<}_6WDbSM`6n5ir+jFh1c~ z!S@~BA2N4JSN`&qk&HYA$yBVPT3D>sgBA0+v{BI>KEbmX02KsL@QO7@+5If4uE@*e z=bxg#RIr+VgT34SLP|(nu}?dukzQA77$`ENC5et^&=d?1;T> z+RE8;RJ#_!aG~4Xd8j!xMldf_nSJK(Gz>SyHb&}zv8m17oKK++!1u4dhkqT1#;D%b zc!^45=ox@jC~#mE<@3u*!MMKWdn5A3KG~1W2nNPz!AV=-K$sJiCF)paIixk8mLeqC zcocv92l3~ATARJM1%HcHuptrX4`-%*EW2--*Xg|k5+Z%B_o-0RDM+CwYVIE%lGlyhIH;Q(mDLr z9yad4`6}{OM`7&VD-$PmEEgBhk&|O7>Dllhm_fCH(T& zu1Q$TSt)1#dzGxpHiG_>6N_@vPDlD5ao`XLz z_>sLVYB{8azc{4&zJn>!zWOY+-P9o5g};F|-^H4%dycA|5b0QNpdLpSKsTSC*xeS~ zZ7FMe>Q4Dk!&yoY=Ksr6cTR1|KIFR+(j|Dy#oy8f7db_)66ARn*=t=~)wWOi)TS-s zDgVNk4PX8{C=<80$eW+Q1tMCvT(V5|+#_$U$9Gi2bFk_)1J*1P<Np5eyP|uBp zA>zxwpfk!!ZOjcT1ao(pl|vxPV*m9L^hz$V(xS&oyZi;DI|F-dNS9dQGUmBQ+O)!0 zGt!szeqnmpe5^1X{zKe8D;d3K>5Hn1%uc7Y%U0G_A%9dZ@6EVdkna}6ZFg9tka4Y* z<-@!QkKuaVm+X#oR_=_Bm1m~Q<<9ztM{1ZC+kknoZSvg$TiUm$ZQsD3a@ajfg~!Wg z+LfO_i%Da*xY}z*u-SrnzbjCa!sc6=4*O3d=`l}HDvq&E=|qYzspl9zP~b^Za>jsL z4yD-U>Sdi`UPNj?-Vb3ul<|dJZfE=DTC23jD9;vx`L_t^#CESGIMYFM7%URT;>I~~ zlSJJw7vDB9_9Cui#Q1YiYx_BUQM`7U(Q~Cnz}+;NQ8X1aAy+lHzN)<{oTB{RiED#0 zQW+1cOZNfl`l{wLR|G2>0M3Z810X`WCq=j41M+>H#@bMqR$pS|vYZsaz_TS{Jub@iWg-g_{ZYfXaeZ?&}+{kc)&S<&_D* z6&^3XzK6ZTzQANUl#-Mqr=^od#abg5rzy`*LT@{%$Do^5tMP#)3-rHAF|cys$j41@ z`^TrgEtd;bSkJ7KS2&i+ZmaCJfPe~v)H}g1OnWap;!x-{oW?O^9AkS~&ykNYX|UU_ z1K4=H-`pJtO;FOB*&Vcz_eORo_RxQd&8D4lG_qpsWXB|c*QM5~%B73jsw(A~HVo7e z>un#&hqd7XolmV9Q?6p0xIx+_kRSX4?JAV#)A6L?BRbmX@w&p|=C^P=I&M`~lC4@; zVaNhZwSh&V>d>(F@*ojOvY-VywvNF zZ&R;9EgH(F^JZELSTs<5U|pQBJ()p)OP^PYw1^T(8w^n2Y45MbmD3d&=UCW$R%17s<}|(ME2&O{O-n2FM8_=wr?E_OPd1_}eENkNV}YE z)Amej>Hn6%Q!?b`%0FF0Qgw=?%5`+jy&i9ZMA;1G!%5U0NK}fr~pr)f7T;?Oay;`kMb3? z;G5uBMuA)GwRD$k-gcQ!Uv z+|dVvAO#}ky&1hM&=5Qhnd=`~Mnth&*a7)rD~z;epIKWl|2Az@nt5JaRoPZGtwkFg z<_Vi&$Rs!$+K2?-rV92w5*&|Lx4&!}dstwLEpeI5YKr=1bD6X!$mH#iMw>qyf9?Kh zkjZo|lasSIIMeE`i_7F&klt~S$FvOG_rD6+$kOGp={^51NGsta2Wli>AoKn)*j#I& zUo`_ffnv4M43@%_jN*4c612Nz_-0jms2I4*N|>Zi)5|MJ2&Q{sp&I`ca9G`z+9Oct z>FlUZnGn92UZR8m~#1Npxe8E@EzDJtKt|mrt zPB_2`j7@C39q5S%V$-eKl|yX8sY(Ml;v|lUO|*&$uB3}ws7e**%n@ph*Dx5sopf*~ z-Twy~xy~JM2GT6;N^i^f!hFnChb6Yzm@POw@^(H}Xo1aiwfcX|7Z#5k?>RUzh0PVZ z11JWrhY@r=2#WI1!dPWx^Q=%Nh<%+MG7nt-(ZM3_tb#?Tmjig7L)^RuF@3ectDd1< zX1grYTC~YYZ-ZxnrwKp9O03M|KtyG8?f0dE0=d{K=UT!=3KrqOI5vXjMk%qyzWBZe zj?efhE3+%Pc7z}!S(#1AwZRc2vk2=9e@u!QBo!uGJH6?!*qBX$Sz(&%r7e>{yMKcG z7{37G$*d%;f2>79Xf!~xYi#}`c{ai$c{VrHy(j?4We!$IRx=sfS>$4Tu@kF5phvlO z+z1`PB`Xl5nv+pBY?SSb_qZWa4GOl0pi1^nMl4ah0eT4V%e zwTRLxEpYxiSJ|CFiw9MBGVnoLK()X`2-Eh2oj)8Du(dFpQ-n0ODYH|KsM2u+Y^8EZ zno>5K_Z=+MqP0S<0E+!r>_Oqk@uuDWD^hpM*tma-3>jZzmDgCpi`W%foYq2d+72G4 z1y~0QvpmR7-;s}8ZN3RC%66O21k?$N^-%`lZt>m54r&0dHbiQO(H^qW=%6niYp{?9 zYteaW{t;fah8r!RU)SZ;w*Kzl)qSdF%j|chD|FI~#%CN3zZ%AN9O7@#a{!fs zzEixArk|tw6|iL(2lX z;l&UsP$wv9&Xt_K%xiU>t-TfzCkF4O09X;G60Rb9l@|ZXt2r)^G#UF8KoX~W9|?v{ zini2{*=oaZt>qrJuumzDuyfMKedhgA6oNt_5+3wsvqd&DfH)7mD zZp5F&x2j}xxq8IBOWv|_HS-NrqVk>2(hBt-umM=wWoKb^%mgVU-Ikp;vIp zW?Nac19j$fS0~&GC5YTd7b>&Kt)%HbdN#Qg{>7IG>eFy!f?V_&=;cc8qR(&_{U%&A zP{m!e1H1J-EHBOV#4s*p_F$J%K`v!3`R2Ls&2T9z9V{==rQ{{J6!QY7(~O{0`mq4_ z!S;fK7&u%pd<=QjlHq*E)#N+CLmTWXShzI7gAh0Gq{+I>vv2kw@N)k{4{|m4Ak^nl z`4-Sq6}RPla));&7j$Rx37pBbVY4#Jz=GyzqCdHLkUv?9T88dX(3eGbDd>+pCykpE zu-Z0+0^OfTpUx;J1CT%MJ=Vl4GYTaF(+(p;BnwS@qcBZk<7C8<9`8@tLLraMU~bB6 z?JNkWGz5Xp1g)4pgB1$wpmeg2>TM*!oj|C}J8s@f8E*jFNbwy?ILC#6ZETP>cOu)# zPb9a9Egx_Uj4N+PEkLP+==eur^O91@t02Um;o`}odOSHNNTq25@|!d+tQ1Q= z%412yKl}ptt{o6d=286PA4XV*1d*}$N6QZ+D2{=tdTNwaiVRmz*DDe3XZjc7ZP z5`i3^8Wm?Ran7jA(-QzdQ!)YflVwI=mw{*gZ53Loju}ixoPmTLDv<`h(Te>XO5o*E zOL!w5Ok&?Gz<@~*V8Xy%K4PJPF%a7*D8C>U9XYPpo123ES*by}ATbi+Zj`711*{cw z>}Wa+K|w&_bc#)XgI}nse1$Ss*5*1S7In&V()A95d`Jt8aU+6a#O)nsn z?0IL}nIgKb}n~r3rLKJ65c{VS&A|}W7tHcP)k%0&he~|Co234JPMtm{W>MJ#g)_v zjy(kUbe^b4#6x^@`X|vn`LXy7^l?KhX@S(G^Mn_QJ7aL-a@{bA3pD_<;Rq>t2@CXH zirQ+^6k!5+@B#sKNokHlFe(K+rlLXuDvvCP%F0qoWOP@Q^CRwxh&ClpFEXl~fRv=CwpCF)3Tpaun;2DbpG2c3Db?goMzh&A zrJB%9=K8UY2R~5+KkIn#6GiZ&vI7WyKvb}R{0Xi1Xb$E7mFNeNaP4;$;Tn?0JV@hs zO&YOE0WQL$&q06>d2E;Om9!68xTynaQ3p?p z?&I?-&%_Z0tGvP@FQfq2Cf8YHWK^+k^!R{msRb1j=8n{_O|tltU_rt3LT4$8%ML#9EMRW7z;cQjDxTgy=>!k&9t=9XG^)%TzPi!(SIUF=UI||iqE!&-mat3=%!R)7ck=h!>!M7%l{o<5U_)b&2ma= zJ%5)E@}a2S!mqbLM7Xw%`tYI?wl>nx`#Ckn#t*9GpkY;iOL1FKif1Pw&-lXC^~eb9 z6|Y3bifjrgFeeAAkg*>x3XV32hLt|O>gxzNzzs;G%fssI{H9VELE5I$hTm!vv&f_A zB{GG0y`Tlj0Unlm)e}LU5b;T?tU~EJ-h&4yte69SI6x45Ti-XKS&&hc<9!wy=+uwn@Dg z{8urHVt1;Zy=El#zEOBgZ@AK)SDSSl3lsX`zLpf$icIw81mqX|I64=;6}{BW1dCa& z-IeQr13sWW2cZG5NeAv?Z{y}Yub2&TaVPCl}f_XQ_CiI1sKN3E@&Lcvi2ufY0P0=k3|{ea!k zKccGweNzk4RZ-YXbYhr!=ac1AqFoZdO1{E@TIqZMTi_f4A|l z?~3M9<85U||7fYjBn3>3hy8z_))G#-ss(Nbpb+Mlg+c@{`@*&=)(&$3zM$jaaihVz zg3kFs5Yo%lqJBPsl@xmj4d>m6V;;E~^N^8i!wQ1A^@se<)lG*tIXu`Dq6oCqXUJG> zcXd@hk`(&cf0zwzBz@I&W$Nx2#sqn!GuepqAxtO>VVYC4%~sz-F_>$K>!3eL>WGHZ zdJajw7L4IU%Jn0IeZLBvFeN45nPQ-NoCw-%C;>r`sdNt^zVP9IIp(!{D`^=P^bXLb z*9|=L$4{@Zcf=73UWY&PaLw)lH9I?J$x`09U|4W*zV`p{bSM<1G@j^rThXz(SB zJzf%I^QTl*Dg}KysHCc^F8W3tt)%1>vb`E@*&pWW6G>)-vd|;^iKz~9Nb29`>unX zxQcaRW|Uu(_{KPQfVEc1qbsp6DUYsVt(CBDLkv;+7;cEx>Ah%%=)IQ`)E1o}yBTVT zJlHI%S=hn+$xI;mY`^^hXWsAUjBbm%@L~jTW{53{{4Iuk-#$1z3#bsH`S7p!RIIyc zm^d1jLE*h6^oKw+8Z-9zBze+xolbmXx(Dg|wU^O%^|#o^rOD{DmVW=n1yj0Y+OUjI zN(pQ4Iad~u)W@lK1fT8k7(5x3ADfT*+S_Z|5*A1UU z5h&?jsVwiotA9qiI_r{IYepb!!b(q}!*#Hx_@{8B>qeQNCXbBPSYCTZYxV|(k}-tE z7=}YGERKE8*S_a#-?2MIyFk6jhA~}@-(viF@q0IZYw-ILes|%QOJQl%TT8azwhk7KN7=DLY(HN1jdCWf#H?+SzKdu*$lDkpnTG{GJP5El>22lfBN z?{#Yxmt>8Og#MqQ^Mw51CTYkKdLt&H6{>Lz9{G>|+COrrdaH#d(F8XbLGlY@l`zHu zHWl~FNO|b3dO}4hWGAh-lr+9vb)s|3PO17{EA|JfP(M^4r)X}TJ#1&=31L&Gb;qhMe)!)J3?50eQMno3T<3)xv5mISYR!5cfNLp;l^e&d-YOlKr`_~%U zDH{k|DF~N>c9x<{?{KxRxl$>Op#C*dnIFMB4`(Ag6JWH_=2IqCVP2ET5ElxA_y_8> zeHM4qdB|P#;>#Wio9fr%^{2^0{X2DnVzY^fj5qzI-IQT^ST#qI+TV$Vo zxaP@~O;4_ReG6e@7hvJAtc@eM?m4RjDAYeO&D@w%envUzW58TqStk5=9zWO#6oY3NZYa-hrVc^>te zclsk0ZB7#To8A>yz-X37{o*a4$7t-xfE)<}v0)&)pVkM0`;h_T!30rmZB-BBOg4ib zgX<-cfDuWqB+D#CzC>a*x-#^|enjArbG}a?D|J`$P~vUX`g}q-$KeyBZyqnv22>j& z@EQxk21E^-^$AbhG(NE)Q8QZE%=Ii8u@~wO8F^`_A(75I-25+I1CY^CHeXHIL4td^ zm;-&mv}NZzEw3W~jbi&;#z9Oy)^z)$98uc#8{}S`p~KAQ%4E#vFcldJ(Cm~b%nm=I9e27g2$OMU6{&y9QL zgr2YEJ=1g80isYF3kbz`oJ_x|g$Hq?f~d#PdKR+rNJ8i;N+AVYviZ-fYc zO-T3Auk}gMGkpvT^^7Ra3L!F_eSF0v?T9pO<_7%9WyGpGSON?bT?VI$>KRBq%u zuzeN=wR=rEGk3f3!gR-FD+W}yO~{>yW#}#zpCJ5TUb|9fr;RyU9k;b+JSgDRAjBuI z;!-<8A4TZIa<{~qp3d3jYibQo7rgEr=p>~md%Rr z_r+hyW>U=@T?oEWWu?(ti#k<9zF5P);zndZW$ND!4D_H}U!+Zw4F2nz3sZ88b=SaN zH@3heTC3@G!WkV%_&n($Lb)@b~pG4S91}Y}_ zKrFCgS`fgBn2jtiwtdC5SGOO!K9;Ir1R~=Ib|908p_nuVFXe?N7UeQacs!ghu2X1P zdZZNT^=Hzx6Z|#9>!fI`n2)Xb7WD>HULcC(?0G;3gHeT=)j-$GH8K`oCgwk%fQ)a- zf8er)%YUvehgpSNq^i!9FpG$YsqPimVJ)S>AghgK9+s;TPw-k|h+Ho6OS?MbMdCXV z-lc)kaut->0gLYNsy7j7nuRU-(tS?Yg`SB*p4^Q@dfa#Q!^zB_n_XAO5AFNs3(ZxunQN-}fnI`YwMXm;6!_?CcUykB z7@+dY`S?qn=#z=M^oj?}u(#wT}e*Z2XvulN7R1ekPR>y;`Xj+=Uod(!mxz zbD<*TWv1lc{=_2|O0gi+B*8e|xHwi(&C$wbl{O$$tS(pQnrv5zqsEbOgzXQUH)mjD zqWbJF&9oVg*AM$WGBk?|-TtU}%U5_D9Lf@dN5i;&gwuv$t9$AEepD?tGk=b7$684M z2yRuzW62=Vq~6C z#cd;`-YP0=EW=uk+m5`YZAd*hM{72GJvhFel>FymYQS0|I6yk|^BVE`?LJ=SQ^XoEPW($;=?NI8fB? z^P2(LU$ITluV>I===uz~i~;L2D8kbE3{ul!7ieOFqEk%z#e}BcmnYfylQ@0Tbo#g} zsb80j9iS|~!PbVAEWENXj)hxGS};XCX+RUSPxrDc^~)0=mNt^1KuRdmsIi>?OB;96 zV__%ZM{&#omMt`r3%wR(^4cZIi_P_+?+#Yv$SAV&HKQ~oliuTEaP59%1Ycon{TYI* znRerY_7a3CYrm`OdvOE>5^@70OTb&~a9;N*_Tt)?R%wBb9=BbZ^2x+WMi!(6qR=LyXL=Y*Wme)|f%zh)u#@9M;B`Py|A z&rz&Bg)6Y%*WjPRHn#x1tI+M6Aa2{U!{Ae#^FSVjwRR~b<{i-`S z7OY}(iQ)a#KazY&Y^2vzAhaxZP9Ub*(0jSKeV&OG7K_`KbR;*vw{FY|12&E!y!k$C zG1;}FY%d?&k&``#Cwi8N+f!D24r1UgUb-F!RBYu${uqy%`~<fdDp|)=Xd}ZkXn3TeX4qDHpo?2q5TD@5kvrh_qB#3adO1hZEi4 z9f9>6;t+B%hxVxX8lb)lIc^@b^P1l7naTCOYw90PG2o4Q+s%+VtHubg`aHx8bcN?3 zRd|)yM-ORkUm@Z>Vt!{?xmW!+j8NR3%DQ;7GOy~RW|u70wyRpMH;wLE?@0nDv1+5f z_A|masZuH`#fb`W+e{kaXz>>T#X1+VWI)@aw_55Q6XNJYJWy7Wk?!GBZpyanR60QSJ%%8K0e zr&8)qq_mte*N5DuV_O$SgYFCHib*Y(EbO=woAgT4{H?e}ohgiv3+Mr{t9bryZ;{Xe8~5+pjVnSRh}c zElLn02rxE3T9IU7N2VPmwt6sHqIaM0K|&#>APu3pe^u8Ugr!cL9Yzp&(ik|IBy~=> zZY(PKA%obs4PDJb&uPBzMN8ZmHRPq`gn6s28Dh&kZf8oS+tjgjc2vo`6wD(o1VWFX z4IUATPMDo3#H0ZbheAsMQL*9-NCGuaVOtG5$WKgw1gt2gx!w|++VPMTF1((A#3mVk zr9DyUM^Q0vbashF%qy{Emss&(%`UOy!=7E@z=tEdBn=< zMYw!7gGbGCI+Bl^?rt^uuNME>hNO!2WTBCDGgPndw=`uI>_4RKX=(HncR!Bb9U;En zLg3i*)k)OS`H~TZOPX7uabU-ct+`Pp_fjyIi-cSVp0Pn;HmMtX&;~|c^0M>_RKpII5 z(e3sWUikN@_x*-Kklh;sExoG)bMZq~*2!{Y`{I2uCcXx9&vJRGR+ z6L;=02jrO?p{HEEnqxz`HI{Z`e;hWC*tI=!9Akx74eEnD*j->U5|_lrM`$Lu@#@rw9xMX#m~dD zPS$?pIGeYy=iv2Zkgn_SUjZw#o5Ya2dkdxplg#(HlD$9j@rb%5(gjPcAGU?Y(s+1n z1|3OBks?XHkud5upuuv-EV^{#vK?n&BZ7aztahU_d?nNw5BPs*j={qD;ivu{XIe^g zn=?fd7P;lP*#toR+B6}8H3{DUi~dUAIdM$2VZL+1tK?mBMwgQj^{Rho&DO^@+m2-3eqGmr>r0t=x#Wi}m!1e>tk zF?^riyUjUaCz)f|-TeJfE!+Q1S9%{Xgf{9#&b=V+Y%vG6E{bBn;`RbV>3pyHGR`bx z0<|56{oaSp&)T2)=`%^TX}h3>Hd0Ze2_-_=q&otqM zBYrCfeSH#v-LSl=<@I!2y-Kabg45wKIVFC)SYxK?^%b}SgfJ)5sM`w6)3IuZHa5+d zLNl(;pm8}GE>XwWFXS!eDXO@w`Ln1Qd)!A9EgVs_gm}~bDBZzp?4tfraIvL8)FMI7 zEOd24GiMKmpH3{Awommn3qWk=$B=o9xZ+u&ZM(57y7~7QlLtgO)Dn#pM=5{mQ6Hbe z$%z$Tz-a8uL+|vj7i>6Zv|F9ak$7n{6yLfkZqKEcCfilBh6*kkkDO}0hN%j+Gwz#c z-Wooo*Av91tkG%3H<*kUoawlj_8#oUU!6`|f;Z3LgLQ#Z&Qf9**oU)OUiDRhvoDjb zA74rII(ym;Suo}ffTaeNY=n96Qsz*>WUS6JL{}pmvpxucEiZO{gCWN zt-wZLO`n_uoy%={8vGHr&8D}a*c$h&8@EEm4WM+xebXiedhM?k)bc>gyR7Fu--4bZ z9*_F4(Znt8Y;zs;kDRr`jfPvVM71d-?5M}Jd}VuX)G0W(=3Y{AF9vhZ!$m5j*JH}* z?G+6YN)nx0XiOx^Hi|Azz-4A_E!Lw7Zq5O}09}^;uXX9wx=dtWBjSJdn3J|>>v{*F zny^(cH0+`YjL#{_mi3h=q<7k39!kL?FGu0~dKh+Ydh0g?lI})^3yIqed9ho* zvjD<-y-fUu|7LM}e!#@60ai38a6(}9_aOZ;TbPk`;C&|uZ_S2=6Et6`_%5U#!aKEu zz;RnuDt1rBO#;r-$Ak;Qz=NSoqH8)UoFi@**-r^6oIVpe6mYn#bUvgvUA^@&qd`*) zc63D-GzFo^)PLa0Q2$6$x!9D9LBB@E5vI~g@__R(HoxUHys*O{1uYfIgCu2!SBO50 zzjiT2+y{9_2lbE}ckmj4F?c%#H?Bcg^$?YSHEFTOqy@Kifbgb%xk*89K$19^Sild8w>F8TUFT&8CABku`2D zqre5B1AK{Zl@u1FGnUYmU>=2(J7~g}W6#e5G9w5s@ImJf!Ah=vE1oUII~u^MEV66r z4{m@kc{I}&2;*&SG3!>i5V4YUO4N;8dFWN}V=1Ca_+ES9q^+UVFcKXF-It05rTAjd zO$sB6J6q)vH@0s=!|+|&I!4nlTsO#L;6R{cd&r4&fC2}RiqABnWO*?6(h0MscM>Gx zd-q^k<=kE+x4S(zGAfw+P1i_=OgXqPmA4IxNH!Nft76)jJ`l&_$&vCk? zT@(~SXTptSh|^;d3Q$zj5c=V*E37r3j>fruaa*T3fCwM7Ab?0Fg7J?eiopYG`D^@J z#JI*uQf&JvGzKbjgZl7&h?%L}o!)4t}uNgm8C2q&9w#9x+5Qnv?h%P55=msf? z^eGl{(ElVa)F(;YK3d$KR*-p1lC8NAiPYA7rwFIs1WqD4+hpo#Gq^z%4xBceD_w?> z9l)+0H0JV`-;s<7&una2H#U|RU-K9jLb}a55;Nn5la%_+hgOAgrkr#m0wbD9r|kuB z?FLvIcq??5j_y|C6G4=JRP{)Yn#vzp!VAc`xgP&3D8pOX3*A#X+TEAd!!T+AZg{%1 za~GZ&f`zLPIvRZA(MfY)N}xR#P&^37w1!7V*SHDm?ngPH^@t38~1U2iZ8dh`kO52$VA$$JU9yrYCR%57Wqt zF^H4a7ou&tMrY6ia<06WiDDDI=~F4d(d|}OyV$fG-@5ZpC)bOOi*Y$)&gm4fsSH=J z%co7SmT6_BUSPUq22 zV`>;iU?-ebGFzJql5+BVj+~i3drrR3mQ&!f<`nuYIYmApr`SIp@n&-egfgrC#Dw}@ z(RXcquMKaT!bqa?))ETp>`8cfvV2|9qP5{$ASMpyIqTT11%d|C$+Hl^tp*%GSQnD2 z95es~j$$t1{`BQMsH}&Kb-_dIz(K5&G7F4oX~ubkN@O^`tvq_DwQ2N z#KxUySbtvhCDorFgPS|~&FA>dD=6^9cmJs6xDOjGHqy3``VG#pwjIQKF&{ls@O0NW z3|bFo(lC~1oP5$y; zQS&n0EOO5ey8EE*2C2y1r!l0*tC}0Qdd1lR-O|%Ts8vYdQ-)7H*4cS+|W!CO0phgFtfP9q?thAer7YlTDgWN7)Wjp!9-q+?(i?8^(Wy;~ zN-;n^fi5uBj-@!pi;7|{Iwrk38up9Z=c4`+FG`N#GY7kUlSV$}#d^@eBaVhoxS%2G zCOo}YU`BO0!>f(;xntj|eL)1&Qgbkb(?njKK4? zkne&BA%2<=NAS{voNy5+L<3N$c_m`9=mmw3H6<`Oj(lR_vg?ASz;hmG77-dC(K>T$ z(}DWF(-u&LQcrMm3;0Gq!Oi4-=m((F)zuTxjy(S^3wkR91?NElWH*ahJFrPB3lB5N z*86UN68R>=Awj+%XD6wSLlPFR3^kE&nxIRNM@@McCUR7%mrt}u?a%}Ym~qHMIw4BE zNxtuDK~mb3gK&fXt)=7!34j8&Ui=>)iY+V{+`e=Wxj@?_LKdx%_JTR(!Ugznfb2U# zHkG&$55s~_uRl4m{=CVTDP6GnZX|+Fp(KGC00?f=2(HqCQ=*t3nsl_4mUF@PsHN+P z*YKcpYLee4LG`E>jsDpEc&x6)BNi^N4v$ydzR@IoGC_)t_KlFDqkObBoy0vz^IU;y zMYJYB=gJYGH2x4yK4+BJcq=}ex)GD0rbJ!~`Pu{?jbOVJ;QqRY~z znH|LU+~Je%;ehSvS5VN%+=0?crkEckS~o11Tj5wKv1?Old`uxHT`@9H1_onN*U+ zg`++1(mGRMYu-gA5C6Ha7jw~sT^Me41bRn>M7@g<(P=TZU_|poFbqwz2oLxNF-!p9 zd{c_PsPIU5JNTC0fjsq$#siIqqCe$z#Lqj!H{igs-%8ip-T+ENc$^d+LtnSU6pL?g zgCypwUUW(SY@Mg+Byl--edS)Q6gw56;)_(!f+u2KWcD&)3rjF~oTk7~m{-lk7pw%t z=_jHwtbb0FLQ9)E8zh!P6KY_#6Qlr@+%!J9IG=W7|0tTeeYyNLu-VJi9};<8m?)wk zYX@ZHPAb3MDdu*_hI2gNuar@+19B~-iYn$+3rdq??iq`5^M7L(f?&}zS!OqA9!nHPutng*GqIeP?6s{`$90U2i*6Tqn+wso3P4Ju6jmk6Q4t|@B{b` zc}-v~pLvZTnFQHfAW-RX3h~4_ffzD{N`Y9(QPa>;X9>GwsJ%nY;{p)@8e;P{z#L$I z0y(aP^$Rg((#cwl<&?mzzs!9f>8^uy(2EL5HQAB)I@~<`7f#I+U~|&Cak@7}!wvC< zcGhv^RL_x#mCM9!Ui|mPs^q{)6PC|bv%R{Xpn=&&@EjHEg3bvQIip|4ux(=gn+Qs< z5yHI`oAveFx>d_Z-5@2FkJjT_9s?6fMW0!;LewUhj$+QRm8rkTS?C7xS0K{wJ10;i zb&Obf49LF)?pZ<_ipq#m#GUWKJe!ZnmB4l$A=-HVJP2PG2_G!T@(6^l#7(X(w@)cM z-=2FRY0A67+#dAzH^`2IEXbX(AY?PR0Wk%1lcCuU*bQ;$v>1@ zE>_V!r?9p7BEW1w7<7}(kpbQAz5rM}Iv;d*(>D)f^2BI`sgN1@=>lnv;wNkjgSUWpg~Kd_uwhC8<1&yy&##^3w+p|Mhhp$ z&4NI4kXUwOAfUT&MY?}J1_l<;GK)3>rL?czeQ}jW{;}r3@?ajuRUb+xJoy@1WZkSH z&^?CRif5^f+^ zhkRfP5^kj8M$p}7K(%da=>_2FrJ;WX{-A9{QDBx%naxL$|EJUI z!<6+V-0!7A1veLBeq>rVUN+{Y=sS(gc^RjKPz5Ce?WQG03MlG(M^2_^TbiPq%=5y=yh7Kxns$WqtTncprqP3U!2A$zUB$YsK+dIQLO@Nbn05xTj;vd3 zJPko3qv@Eo#|zm?f5VF6Pr34Yq;n*JbEKRUESkPRUpBvpzv8w-C?wFTgk9MR&tq^s z{u14m=x@8Bnw!(DrAF+GVbSIz?S^p6Nz?y!Qxxs>mXla)@ zRZ@#vF3bnHvNeV96-a?}DJWn-PS+}APmkV$)DLfmT?!+{-x^gdL?4=?F2T+%kGeeD zpl?|MuONJO#5dqb+G|vGLQ#xrWyCHx31X3*Co2dgk(90KNM^gQugA~h5`kKoT2W4p)T16>jr`1q1M;X(HPAC%FbD5SogTqf75blohikCV|Ol~ zCf2V5)K%j4JQGqOV=4BiJx=nqOM4Y4?Rg!#;g#$)LMMHJmzKD|wloBU{^?rSjrA?W z7TR78;vbUSh=7>ELvby>TzH7OK-9)#ar$pOKiLiDcNeX2`{u+@{Bkggmw`g7vtV|o zmwM`3N37@*Z%g%V9iu*{VWh{{Z&BH9Sk6&5-+|*`h&~(ltQ{Rs{H~`v$o~rv16Ny6 zI9Q^EaI|O&f1C2k{WA?VEXAKUzEYHLu(rOFV?;tps z!}w^D{8s>}S9^5?5~`_~_B3Vs?iurF-ONm$44*SiI}XhwuNFL@9za1&Z$ zg)H8RSQ_K;sBDxv z+J1tBfN}4dgh-Qhm8fe2Hc>6N1QxV*s$bZP+}!0OyU#cA)=CBzs4&H6iDS*oeY53};c2q-Oh87W=*@ zse=DuEPTYVJ-`I~2b_84Dwe<1jzZD$VBv!Ldf-Rju3r+BYwp0L(P9bcd>M3ZEnEQ6 z(YKhPbf4d0YA>v)R|Gfq(GO^N1vSLv+zu?7v{6_8hrM?JkE%Ks{wFh&WC8QKATYc}=(Dn0fH6(BdH-NOhPj8-c2w1&08{0x2?arRN$=4Bmnv{; zd!jzn9|{pN#zu37(y<{FQGHk&#R5{4d3@`FM7jn$2luJyTluw2`?oaz2S(B=4iYBnO5+{m3;B4@h|=@cO}t+N*jlJfOJoR z13CF8Q4?%HO>kXFC{hfZoT@goEsiZ4sA&~7y`$Cwng1(jVIBCO(*@?tgo-Lf)2yCp zc<)VmrtRt41cQ}bO;z7bR~0!ZM7%w;E>cWliYQ8-%Vl|w?qv0J1-|t)TG%?Tp}sG) z)@iKTAz#C1Lt*~-N2S6H)k|f=lGX;|AH}5eD6|v4(VCcQmYIXfbU~$6Entx8Dyn57 zG=NFqCV_|eQ1aqQs5wn$>{nIWAqP5BK+yt_a{kLQ>(uO0)4e(HcQHVy*p;oDElqHY>>)&1cD~H-2=9YCQw^32m=f|3$YO znHMKY46Xe!idi4f+V-lqrN;j=R*y)$cteIn+dD_w`vusm1D&OrCH}BhaxuPsjLP%W z%H8z3REJwcFtS?lTgy~YLB3n`2*q+60QnbKJQ-ue9$@jvbAWjMF*r@0(i8^AP=nKeP^?`o zvmk_sJQxzB9>Pl#szZnfs2k-%NTelxQQF`V1hFO4l+p<8iI5+v_6V;sY*jaiE#6YK z*hg}>{cVEpB&T2j0*5t=Q4qE@rwB3jtC3442Ke2f>iC#u~gv=+#@0(>% zMD>cXtlZrrcMqO=_ffg~(5ZL#%H8izx+_8&xqHv#yGV27?yZyV${t(p{>}K^MYQgG zj{QHjc@A?7bGW${_((j?I^nHm20mE3q?KCcUOX`7>ap5**3?UKX9a zk{RKGl9}O)fb7*J)57yGGw`G_b7sDUnOgfUDnotcr`RltX{fQBB_dIUMYJU|AC{r8 z_=dD;`m{QPAm6@ORUzsay;m(svSuH8Lw|haxkCmd0Gs$ZdXF-6R8o~(#qU9|c;#ll zcTBi4^4$Elm_;k=B4>%wOsEonNhZ&u5P8Nk3GNFMv%n;u6!b)#VnW{biq_Fi6VtR= z4f@vk40y-C!b}6|j^sI_jf*E|i7a(S(k&AA86-gDSsX)YYJK@8Ah}X>v7P`np&itx z)<;AUhYlm8899JNf`t-6CjyF7Ev}I&;cG-Adllq?Tw#ePjKP8kufRD|AK5=<*M2i! z<4ft6Fl#=gXkUGY%Lq*_MVyucKec(D;CRS7dia$?_D3?*-i_G|67p@RA~kNxG!+5Y zWUEV={$h{9Z|+Hc5q5N$R=e#nWv^@6pBz^9Cr4qJ$L&x4x0nI4k;KYajAzmoDA=+@ zK{r`v&i>TI@}0w`A)!@Tu2QKz-vg>3%)6gd%>lGPr!w}~LSaZ`L0Kzt9@u>UU>sWGrGF#6bPa|yWfEU^3k6xj2sH=1C-lM2&dk3E*F?fDas|NP2b z?+EB4A$`X-`V-wgn(0Y+N3jIF`+l01sK^MEx>~cMw@vee&lgj8rBgfXNUZ2WQV-%6 ziKPA{LV94A6x$X`#5WQX|9GPOfsPDpozm?<5+MzdL7a#JYEbnb3nU1-? zb^%pLmYAj4HUI18Xr*IB2STf#lFnslj~C%9%guxyXWt?iKp6|IlFxy>W+H<=jKt<*VtQ z%msU;CuAJ7nT^z9vQUE~`cj$r;xNPohJ@!Ab%`L|=`?NVuwgv;kdvZVv&yF~pjy++ z@Iup^(dq0sJJzd&@8fS+g-7{Z%rcC1I^%z`+yTmwr&PA2o-rK|efih_r64G`$BfNr zrP_}wo5$yp^HgJC-#yq0?hDdT%NloIl=Jx6ex;gG`T?_faeEKVHT4A2p|yN_xYwz* zeV_8XQZ`=GVqfPRzzBFIL+3Ae${wPo6$3tjP2-WOyPeG+^Bi|`b(8(~d`2;4nCE!P#^Oa4sRjQ&-T z$Kbnxbo-5YdSkGAC{u6i5W%-B^9k?0fp7hS5|Jwl4)up*nX<*+%8b3A5wFeA4_TIi z;$Y7N(=Hh_-DINOn>*OKp_al0RUQ-^hz>>L)gPhWiFF<8vuWl-vmw_1N|u1UR+@8{ zkb9ihwY`7yI13|viF$JU7w=A>rDSc(iti0@GqU=O}nKCOkslGH> zFZFi@vpY(&dTT5zbM$4`NmD&$p$R2ae^_oXbj`9kMR>Zzl1{*H=%Mw>uQF%&PA3oZ z!r6UyN~u)rs6EV{L&%lrc7_&@8LTTeINFfj@y6a>GH#z8G{y95i{2r)pBO`8%af)Krhc_nf8n{Yk}_jM=$a>w#_LfF}Ef$sT;WjZUe+PbzCX?q67B{GVehwZpb zLX;JDs1a-ciunm^k9iq_V{3pw>nU9n8_ z;0!~AAl&I&mq1WX@eHsC%Q+JW%Q?(wp)E42QP(QUq6@ovqGS2VPxC z+G2mwv?@=YW!_d?)!1#}b5ygA@_AZAOWL>6GT|EUlv_{ldR+vp;RWov56q`PzuIqW zZO?F*=1OD1ZV&k{s%2BSz!hhmSeieai}?0qVqEglmnH^-LKGDR2>WOtUw%-D?e4+HrWZidRG^Z8Pyr2>U(vrdJ8SeUE=b-FkAuI z=k3Eng}r3jUp{6EK18wv7NSY-`4pnUs%?B_lY<8R+d0x8zcdKjS|p;`n^0LBKT>>* zC}4Z4uWw3)Ox4(C?YtD8v;Jr!0&Pt|Ua1fVEj5Q6I#FRsSix(G(m9q#Pf+<_)8Mg^3=f4m*ZV8|*>=Xa zW4(V#*G>K<;*O1N*0|NSPQ(1ridf1OnIWBOl8C;r5(11_P)$>u7B-g?3JN%t_d-yd ztVAD2@AGZMg@MV{9jOJIT&5EN{P`+|KnX1uF?{(-E*BZAh_aiVo7{Dl;q_G%Mu|Su zOS_?je8z7&KCu?(neYG>h=$Hd!(pMo0Y~tXQ~c8NV4nrO7xH6ygHxLi-}Jm}zZlX1 zgFKFf3J%z)9T(>*y6RUgY*j6kC6X^M?6ZA9Yh+=3fZFgiFM7`OHqUT#Em-N#b}pK1 z2_NHKs$0~_4>Lg-sp&g{fgMYNT+0p~{DE2(?62pcOg;lo5B7(TmmrGI9h%_jso?P~m42y(Kv&*m^Os{ymI8NQMy^0j#VhcDLnhRo>(7u4jX=$eRA7JE3{tS9 zNdgCqK@GR3pfggqNn(uU)(Jk$uQxiFE}L>|)uoPqr#X8}sY79J`UwS_%t^~WnT**#q&ZCzRxzT6JvxR_LNA^Cs2v*&L=5^wxV;bztViUNF;b7aJSyf z6u4JgF5cb1eQXd4(nW|aKe>qXYrh<>;b7Uk14e$3WMFhb13F&nqsc9 z9}=8Tnr=rh7+cp!-FPOUhE?_-rooDsdYcyFEJ|OhQDvypQfmSt+l1l2_JMs~}1V{DW4go+Rf72E!6ai6Az=fx%>$Rb&kC&B8&T zjGo814n_<(<*^DNnNr+isgfB-D)fxh0uqej*(0uE^~R10MgU*dLFL4g4%Q+xO}9be z6HDD=MQbSvjTdj#@Wm%TUGYjoX=e z);NibW=!5Lf}p&jcP!&cF<0{_zYUrz90A*?Tw!F2@9JV`B5sUD<3E;DfFN5j;cxWb zG_CSS&M`S*mBCpbHTNEfxuqJ>WPiUJKoE5>ZCdHWwDPs&y5gJt{_q-B3JLAt72e=& zcvOnPMPCJ)<4d#RD!CyBms5b7q*C+XeUp|Muql8Ukr!JPZ!ICaXf-AC3EYMYn&hat zpFp}YSb#k?>I#1h44GEjeRys|CLnTDC+F5RWJ+uX*v(5rf`=5iu(n|%8^fPq4`*Tw zt&yMsZdfPUmlk1;8N$^YAH1TNgFK#UkL=e60|z4?Ge@QtD@HL+{w#dpuhcMGK2#nN zM9P!T)Hc*0h!nv@z474WB9p|C*8DQ_Z>x`^mak+<()QNd<;#1g%PiA}b{!LTlE@ct z=?4jkqTH+)G_0FmxfSbWiVzmZiisluSe8_&egQsV?w*8}`IrTV-bC?$^Xte9AKQ9k z_hDZqAQ5|V#J`X@HuCmEj&33eh+|Uj7=;T!;TkZaG+wJ816Eo-xa;jUkSHx8Z1dAd zTdn>L|GoT5Y!La?_N*Z2gR6P^tbWeF^b)sBy zww0+25AKPdZyJA@_Pu`YX`f#_USJb8s>b4Jp!+^fp8xmLS~7D&S#iPbA#{22?oAn- z?v>NnrYuf>#OY839%+-5Y5X^?J}p<7Tvf}}b#j%>Rhe9^kShWILbQF@|~X@ImFsZ=V zmz`F_mE#4>T|NHmtdkoh7zb19BE^3YL2#VLILF_h)o)77-^s+|H^H&~Q{XF>Y-d6Z zJ(CLj_WaWt^_@ut%Ky)4pNLK>u!i;Klr}U?DsT(-7^f6iJgI=~%F_y*JE_1upE#|+ zN7qj5=I2$eiAi|y%A^8Mt2p743hbLyAou5|_2TQ33d}v7GHshw;Oe5&8rd+Zz%nJl zn$(6XCl%OsdN z@GQ*n6^{Eje#r44M?c5&9KYdspCiSQchKf3<@gjwE60~P{+;6mj^A_qkz@9AHqTWY z>o{)Z*v;`3j(_BMisLbkcQ~dWvUx7!sOGqZ;~zO5yz;~anFD2LIwi38}Vzl;o<-BDWV%*@JmmFASD|E5fJ zPn)iJX3U)BJ!|$H-`VHP%{}+Ld3hf@f4={M3opvgzxa}Z!otE!Fa3DoWtUyHV8P{= zUs1Gh;U})VYEiM{>Ojdgi?3b0IOu>CbJb(S5`|d{zo`^C*&FIGF7l?`8+c1$!@P}$J}1gjfl|huW~?z2NVUD z5~GVhHjI5tk`3gq~zyE#sKT?M72SF-sO_z@ zhjCr&YA*h=dK#I^enT>1%9G~6!PY5+-={_~VpeWY{0cWef0Qj(XE~9R4XB!Ia(^6QSxmi+7>s9wI)#1TMf;{ zgb~qH6F^V4^g+AQ(sEX5#hRdX0zGQ`p{i{XXr!THw0tj6+vHKfci4vaTrDG4f!MTmhwlD^Lpct zupNjUiJyTWjrdgD1p8=Z{H_N$5A=tp7mUWYeT02npKS;ifeF9s<9WP^ALeWd9xv$ z8|yxvxXr0NveXN+VqIB@+en5noOBg*CvFo1yhLdI(P3Tw|V_NwcEk-Qt}_|l71DG1~WzVRGqqI zrE%69RsiqQ>f2zxe^a_X&AeV~)hGUKSnO=H;ol}t2<{?bI@zeIxRM^@hjY}zhJTwB zp+ufxyeMrmL#mzjz3a^S|M0lgewTUeCp(w)N4ZW~dN-nr!*@4`*3)D3nlCh=@k8?A zQOGX)`Jfs>eX#RMw87D#e5Jp#1ZyM6KZO#Z^zkYw09hu-GGm)CHfxiwnpLtqKX@%w zu0;?%h+851XZFix<(65WDI**aeV7D5&8lX>{&%(KSL(R&v6D08HR;VVP?M(nly$mT zpoedyaT^b)Xokr2y~4f9?w@lN4bNCTTfx>_tqRo}_b^}5rlx0(bf>5-Vv41TXZ8bq zBz$lWnO8c6{Pxlw?4P9tK4pp9V7yXJZ&B#cSH7Jm?GQ6a`XxZc;(Gd`e}2i6QeStSC27M2anOCdGT^V|qgnpNR_7 zfkqM^C(4fXmEjp*CLa95$t`udVa6?!de`DZ@!YLGv~fxvg4kO^XI-fj<0{zVp*Pd= zj}1iIMQ}~D-4drMlFyhZxZY=pexFY1Q+o4j#-vz40bi$&o|z z2Sv%(E0`oh1um(Tv%)T`WTLP;yhGfKwf6rl{kcQVgrAgtC@;0}O~XsGqP4hvnJcti zZPX;3l&{`+p6P=47OT!`T4a0`eN*f)Uq_Q^2W#3k-_)#UH^dy9>YSS>b1- zriaCt@=@V{hI=!#wj1qK8(LTNiYN_~2}oE=TdU;Cz2t0RX!?UEomLnJ-4yogkEj-f zDp!js`K(0AsMh{XKC9xViacCv+s>usnBg7hT%HZX(k4dw)~K4Hki?|7RtoNU0<*#x zA)%Gc&lBm0B@!g=jK+k*)QQcH3Rq&={KN_Wq>Kxb*LMYJK3Zh=F2fp`2`Dr6+3vgo@shZl^eL zBewSbbqwh;>de4u%WRz$tA#~g+5HrwfQ-H8!s}&LBuDf@LmLs%$cY+zh8*<8L?zNl z2>EZp-odF0@aHkwK-TQLif*w^!d*af;*5LpQsndc^R!QzEIm>VGJtm(FJWV5zK1jw z^;XSs;jKZr;aRlvn2*!6_J;o-UDI}S z|6S0Ks`f!CoLHK3004PsO z=lyx%CH~ihJa?2j!^IelXnXILRi`<=G29%l-pu~6h2SE_u+C4j9O**Jc>dETt#z+(! z-X+hQi?K46qZtj0E z)9)QmBr%=s?RHa!st=@-NMIR-2GXyLL;GvArK4cGWe56GldHsoR|-(2BIDPN95N%( z=)G8zMyAu|izZgu#n|{UjDCLpdsKH~yt+?XOsZuZdIjwqx|_v|$u?C?is$cGZ+=2+ zy9G2b^G#t}EcHqD6I1H6RfFAcHihg%7gA0pCE8t>!2xhDgcsN;GtZ+VtV z`qJ5b=y&cY7>F4v2$%DDW$tN)FUtA+e;dASfQ$K`MYolNECpJY+$D{9lHo*bnZF{q zG(HZd@4NUvo*DjcD%pqYe*pe5+W7w=_}|TljKTl&H(>{|70-L^;m6g21KOuoo98KL za~u`kCA>8HY3FMS?U%R^&)rHKCu?Y{p~#o0t#CT@O08vO!d~R^fJ_#Pvb4+@qwP=> zBN8`PL~(NZ!MkYC&XrxtJhm%6cm{lN#e^nlF$0 zC=AOoZLMdfyjL~;YgslYWRH9n@6or7wx~$9ZvMEeCt?=C0+u$=ena+uW>}Y?o#+ox z1h=-Q`b62qU%ii4Z$(rlzw#H2D+}(Cm#y~P$GvXl4l04|giFlqC_Rq*r|CHyr)i`% zy~HxSSyLOHkv6mW;38>>H#yz1#Od+NwMY7%y`R|v_fF@{-Gv4u_Q9*hfJKLkg)O8m zcUf-Tv}J6|Jhm7A=rkj;uKouin+IjP8#{}vG8i}ZbozZGk8l4#&1Jr!0b%XEJJ;{$if+i@sm1-pzv zwh_@q-iSL999_XlcqHEF((n0^eC^vE>i;(WM-bv88Op9c7j?#Wi^R0QV!JIWrTEVl zZ`y`)Yzs=D`qWRwIiSY4Dhq#OY#QDA{sMABjqW-M4+YNN z+XEl8E*$f(;%ixnW%lNH>B%36>r;e;2Ro<9cbem&tfaF!{`ss}pDXY|%ky-i=s7l% zp8kr>kV*354F>+G#jXS51@9&rovYNoxceQ4lIkoq*DH34UNXOQmfK4(g+Gt7B_|>| zedYF(Lo>L*9wH;wbtE>rM%&#=rI^64{DZO}cTD@MP10-8e>75+c=;c+{C(1vf))&92zOq2R_*wOZ+`s$vbvct3|HFL0jS~?;UHZYk`%17p+8e4hbsmEIotLMFXx!SM#`x6!OhYg;S@0iLqD72pv+ZtHxB9T&O!0YPyS2wK}& z6a>l=?QJMWUK-7eOl}=5%eKZrwMRAN*MLN-MNrr>q@;xC+OkfxyxK=F*9Z#(ns3>}l3{mvAS|vC-+_`}u!b_`4{APPTr7T0fFnzocr__L6fBKlW?T zY~fIRJ1uOEudoj_QeS_C;?_~mig%za6UbM;pC{^MAw|77-JpuS=|+dG`2(A0)%)m7 zKeTz?<@`;KmpGs<~Y`Q>XDa9s4t}uTzPfkO4mcnXv7X(U0z&=1FWm zMhrUb%e^BQQh_1b(gXOHx=hLH`~z%Nrgg5K&aJFNZ;re${{_UxUKZG|qZ{Wvh(8Vs z#mXSGC@sEJQiJaU7O7I^cl+14U^!4>SDVu6LJ?xA}ACm znpKy`4Q0MZh&2fd{E`_JxP^p!2th@qFu+dCzQhDSZ21SDn(LI+5F$Vw||?Ssv?grsaKqGD5L>(`!n62=A^$Qsz!yfTqHx z{%1oIBSXUlpB42w5m_lXpQ^tQd8|@dXnPw7)R`?I?r~Dwl_*p(#b^QB?mQ^5XSl}| z-U|QK3Xz=^`3&e`M)0mT?!x4YIGPM#;aQwj5y}MZ>DSN1@Z5fZ8ex4~JNPI;(5P z434KzSu7pebaHYyP@~2~25-?j`rqF#K)Od56upcfnge=So+K>VQ=cW!AWJIWcFUsj zHbow>MJd-)o1B*T9sn8J&+hg9z!aZocRs{j7^+UJ#S^&)+q$&)ceo=CU0VC!b5?Rf zYr98&PipPoQcp5#`^vLUMA#RU+gX=aGv<(s=+Mff7s?VvjHFomQ#=?eE^@45mXZtXEU z1%!n_EDadiorM5bB6nTai@Cw|k);nDqLSv~a(m=zynu>ZDjHMBJ8>GTxpIH=_OvRN%vN z83h}RJ!I21=>UkU0?HB*sJt?<@IZR3zR%Yh9+l2@hS+my@h@>BxpN?vnRDN_9?z21}FMMYUIl+SEH*5 zoZONWm05%g2ILO_YOE*bpkt^~YfQBo$9gD(UNMDxBP{ze=mr5Lh|E?a@~EJFb8$(m#cK`is4O{z7{ zKP+QnDsMf1Zt^8^JBqsCg=Wb5jG!nMcqTkG80cyF5LGZnC`A4IF4WRBt3OPaccgp_2*yt`43N z?NfPA>*`9PH49(KsF_$3VysLb%otZSl0wguR@)o*4XbSd7BNzqc+q>*wm2Wnsp#N$ z&9-##6Ia+8S-fZ)+-5Kf4`ta{DIP7CPq`WpfK1hX@wlu3C}!;hSzj1%?~QYH2V zsn9D{>RW?WaFvAf-h#e(=%c>S@jGLE$NI9g_*U^NoQDc2l=7oO3QbTUg-#|yqQoZ3 z8}rzVSf!Gg=AzSXOn4vXCgFlCzJxXBluUk|hooJo$`fUyrZO%aS4KhwxXH9naE($^_t(&sUFbG5hY5r$JtRmLEFb8qSQ$OW))9RP#{-$Aiw3Q zkE*@NrEg-nTkcCZ+o|8?kU{dwLI}YcjARkE`Ky2UeO=F)+(sMr7H}}8z zImSIc_Bjc)mRyPx)e;d}WixbG7g_51x&38JBKa2UOZjzqrp<^ zTE@~oUNb?ZBPRJgZ7k~1zW|*v5R+y~xeZo`K#L_Xb(l_I0Crf~c6P7CW`n-{Y z<5DiE_Aj^CY^v36T1-9YI#lo_pOA+jxZsiCORu3K5FVWs3%TSBY}B73^VoL3Td|vB zokjfib0)^~9&9kK{sDX73PM@?N}>@@YO9zleHC9nDk0H5R*He%$lU18x@hDqd8nj& z4aRS=o{eFzDG@(S31EY9cxL+EI0X}XjY;-II=uNNXM^z}cHb}+%$!1qqzdcDOq&=* zQ5jDO1wmGmi}{!`GWrn)=V>FO*yN~wD%G-OX#|rgeogHC{)&wpbV0UIrs~t&KPAKn z_JkP0GSkPcZ^-9xs=eKM(>`smSa~7i4d8g{O|5A>I(2>GEOieLOopx z_W<|y%bjs()4sKSr>Ovi)>INA{PXO|&eKmM+=F6>Le9|PsHY~=Wqllup8xeQeY}0JG$`FvKU?5r3pgnRt@LGiY%Z|h?$2!hS zW+rYKiJv!8X69->w=VEnU+6^Q;UM+M0`@>uDqQlo)4w6ooooW# zJfw)4p_i@Hqw+P~`BOc(kcIVkWmdp^Wwv>zw5+o61|&YNKHI&O7@m#BRdXjnTj+n< z9!XMbLRG0!F)iBOZ9X`b)e^6U(1Qwxv6Oo14hgHfDid6Z-+iBy9)#Q|Wpfn~slH2- zB*s@%Wc&AG-e)c-lx~jQRtEFDpI4OG@19jz4%t!ZB^^4^HX9@>tz+cW8S` zafbxqVx!9?o9PP4X1X%sNZd;Bhn1O<+M{}tqu%%ze8d_yWz`$s;Y8b0=Y$gITEQXx zrCq;a=U_{ecgIGjY`qfE>#wpiB>Kox{16t(9(y8HFu+Mh!GPnSM3b(_paG77f`gJH znA_w=De8(HzfN0uV2wCxUdtDhEd!Ehz>=Jg7)LyEMG^O8oSd-9InyMSi7^tNoUvw;-BL>wxD}CNC`wr;g=>H0NAiKl`C_z0 zkTR704a(e$1PSRtI$Pk}*gTuGRjeTX9e=TVjjRmM0LLpFM>uSb4F1WVeGKJgKI)y1 z@c~`o6kPKaqyXIEv39wY%RsO8Cw7j+ZoAp`pm2Bfk7V+HT$R?AK2y-$m~_O5Ou0`c zBWBL=JAWb1%Ywc7@{PM*7bNaix8(7zC)Dg2!lqbCnE7W+9TGbvCF{VkSAv$PB>~lN zfme}weXzldc=Du#`A0Rb#19G%^9LfL32(uW7jWqZ(wcCu#4QgJ=j`|TK+cZ!`f*u? zcKtp|GbCUK>LX@^H^?OcJ21#{pCMoeAE)^$o`l#hNdSeoX;N$NAs#8Q2asziJ`EJ9 zrmLXHM8%YaCowagtyLgVdX!+L`k^!*C;GPI;7ofea+YdWi8Fy|=AX9iBnq5rN|dHd zuWRe~>w`>wYMs3-M z?$Ie(cqN_$6Nr9Xq9(80l`zHZ;+WORpnbjHr)cw0N{I!3$8{eew;tt%!ZXYViQnXv zEtXf7ShsAa%?TkcII*J{5slj(F-m{b17b^bb4PRg6VlN~UEFxU$A1{=h_%qUzgM%y zC*s*p{Ih1#2g8gu>q`dt}K?l_)&Wxzr35@i}uV)H;i3 z!NPdg8)eD^*iD>%roivm5CK_H%DPzEFuFB&(H%4P1^EUM{Dz$I8T+D~1A1Vt7*xrF zm*!8&_IA3jOWY>3~VCe&(!wDM9}7iHo+ z3Eh<;yTMG5p!hX(1LUiP1<5r@68WcvGZ|ExRhez*Y$vqB{?m z34%O?S4WbP2p#KaJl-D?$%IG@(ky~ru}&?XT6+h*7y5K9Zow#rd!OGJQC#i5 z7}@YlAbKHS;dM#8Ip#DGy(4q6*8Tu})IXp;&#pJ4oJY=4QI}lH67_^zVfhD#CrD*f z6saO&0D*7gYhnT^kQI}~{_>_w7Dp9iVn5TA++fltwu{o_m-}oPZ0_2JBl9hHjRZ@4 zMpneHRC0^#gXrR{6+HRbv6w@ci!cSpzZWHT)nIZ3ULRxO#qxp__|xIV@^}ij0-YSM zMW@YvY)>F+d1DS6I7T=S=m>Ws(eQk0RK%VJ;~9mFV|*lpT=tVn2HF4t>Rhs4at2+m zyZ7tGhS}pkCOYfpe9@B>Q!pY2Kw%d+eYdtn5J?4!jgbbwZ%rx^_zDoRK zp{%_n*GH-?mBW(#_Q;Z9a+*iO*Wfxq48$u5M7rM;NC)~`@-0`wJRV5+o^<_u z%Ol^o7)2OV(EJ8A>qQ=-s={xOqn!{<Viq!=~GV$u6p#WsUc_NVorrwb*F3QBP{)9l4GJ+n~8!2>(sc?No7z*Po0_Z zTRu{~8-+(_*(YqQW$`AkAc#-v3D1+^eW;7k6iB#PB*_hLsvD6xt=)Aj%A*K@*s58fZ^|A(Zicroubl|;iugsoCMmpxRU4%1Hj zJ+aVp;)zpwQbsKf-aOJ(nYMs4ec2*T3BD$fIaetc*pRD#OqDJV9Jl=K44<2 z#hE#1$_kJx99Bmt&+5)AvcVi<&IA;!+gAgiTre|7?^Qh{KjoicZP+7@ZN+kkA)esi-KZ2%jlZX&$&i$h2<~B4b4WDeLU4ad!5AG*0p{ zWuP?bEtwuUmopDB{2g8TKzG;lqWuN@WEORIcTX$mCSccAmjq)yJg>4>pOLsz!ls?6 z9Qtnoh+7%a)HiIh>5+wOiW>fzSgGdvseg{h;HGK@4EH2Rm;6Ot;@&$>?&^ICRaCWCx4P)I)YhAC=|A zi7?fdNu2%Aa$bE^hC{Dhs0SA~x}l2ycu|IJQwGy6mm}Y3`=<<8f5Hm*V~67 z(c|`(zv4>bKfTQ_eDcrzM>t^?xB`#-3iNKt)}JvJ-72AEJ@Fl`z9plXZoM3*zPDiw z0MI(NWc=U<{acv~VgLI0H~hkF#M}HLw&`#4|B@g1gIH{rUnDG3^}9^jUI!|%E{cl8 zB+=&Y;)kW|e%g+C)&N(!5$g`df8>9PbKt!mF`bV`QV^?^b=ux#zM5*|st(yHcm%$B zoBuI+xWr$rm%FICgDc+hR2ws}10FFOfr%M^RP z#&O;7k^|(yTzDW{AS(FC1tJI5_H>9KSaN(#+evHZ55$h%c*hiauuW7+k!yxS1X#1a zRQHB7K=`<7Lf5X9&tuB~sjaUzawHhZFZ^HTTeQ(?%!F3#zKz;xx*900eIH1ku1C95 zhLvYO=f}3AP;XO%t2Dhq`y}Wd!sI{!&A1L$gAbV?kf}q%cHwxCPc59g^sosVfAQ74uIIsnkP-E}%+J?XjTdt5@O2T~*s^W`v+wVoH>p)}bXAvQW za_PxHACV+57wHSnST4pPFKm6a=>{dSA^q8K%N(^KVdQj}830w-s~%#*Q@ouO&? z(QV0E(x&LDl8N#hs=#lN+dAmT@PgFKeAFgtVS zx6~$!-PP6{rsC6xIFeTde*6tS-8xq^43V>lG>(aV57vdI;6*gsbF_y=1|z2;(0CJ& zO0;E{{vBFIQ8SJKgk+X2Bn;~YE5=DS~ZK@I%kDU=;EM*VRiXFFy z#q!9-Q!750G@dPu)hm)vnBicOS;{usccuh_h!+T$~QwqmrGtnVR3<`M9-uW$=On724#?R+>Yp+Heux8LC`U6lWh$*o4Lu2 z&ZSygSGWw$LECfSuhZ2{v~@H^A>xwIxitGfRgsumB19RlNG9&Y<;=|QsXu9AjTJLR z0#4uq|F39URZy6~li{UE&_qUnWG|^w66C^(SU{POl0Zdbg~L?O6o)w}FM(JNO+*gP z0i6r!fts=+;DO|}UO(KE5zdM&MxZc#xW^vOF0MkVQ02s~QO*%9RJp{~l5^w>Rc^9= z$T>oWD(`SlP|lGwRDmX1yp569L%9e$?!d?GR`Q$hg|I6vP30QgkT;Z6l}o32sido1 zvP{cUC1vH3t+8AxX)Bj`=B1Llav3x)mGqU%sCj8gVUL>WnOZKa)f;cD)06Yxk_0~p zI!3b&CGp6QScWc;yOO&$+`y#D!#Y_J+X+B3b)UqiHIr_Lco<(#I%(-!@Xu1V6Jq%E zV^g@I#bP{H^laLRR zlG$vDxcZ*dhSU^pom^i%>FfmQ)M}EQAn8^$T}Dkpa7}%_X(wf7ub)rMfEt#~bnXzU z3>RDeWu|YfkkV@egsn4~{Ot@2)c_5#4DgPTH02-rq{8ZY!?rJNwKtArVqfI86vhHH z2p67(1b8(eCn;S`mo~sY$)#`>U*vQD11@b_z_|a1T-yHIlA*vlq%&T~u$ZH+-TAkG zc+90umN@0xIcf%kAU}%ub0Q6#1pKc8qW>A-9|hC?9|FFQEgZ|tL>rkuljUY&CK}%< z?!yGdRO*_fWSOv?6Um3<09Qd};ChHFvvb!8 zH3gTL$-XbpH9cc0p6xj!p>;|#RUpN5mrI&qWbB zVbx^4l3ju%QC$wC)^}$m7Iu%3qnxsJIc4iRLz#UcMNns?uB=^S+^;g9xZ%0 zfQNS?f51lL())l!<0(4dF=s>_354FuJG0pwQ}}xn#z09VMr({B6)?)9Dpg|>^V`~91F?9=dLv5!tV<1&}I ztvPIPT|+m3?PH51DyxzKR?>PQ^RUCZ(fOq6R`iJ|^rd5U7GNN3faLp8y!?!u`t@}Z z3b@`_qu?nL02zZcL}l#xrn|lYhtq7>Y&U$JL>Z_=aC(X@R@DPRTHi4nY1g~X2cn$E zXTutaA&)3W$ycSUQRDUj>`*(ZOj|68T=58Ez#0B|wI$OZl9)Z(l3)LaDz7qYw-1PG zOJBV4ct=(0hO|63EsqyQzdLdcqU~FSgB<`I)?8y6>D`UJrt;S{DNzcy(}1vk72~Mw zsmdn24!-tPrmwx?>Rz9xHbt5Gaxti0ZW>gVg#m+vdRVRus>_r?b=l@!x1|lLtFjZ$ zgp@(>er~E|rE$(B6Ah{b{`=PRSfTWT*Kt-i9K67u*a(juR6;Uzq5BcKC%oSj@7bvX z4e?dB#2wf%_}0`kB%CwiA)oQukV9z1Fu51QpH=-13~u>UqBcb~)0S&v*Lc61>9KFW z64AN-WWoLqwJ&7j(wf+r*Q_nFWgcFrd|@jNbHC!qq+3TYs5%(vZJje_&$_bRrlIL- zw*>>eE$@#bt_45AB}Id+ecSB|YxH{G8rnHU+IiJ@JGC~EKu z8PdIFle$+b-7B5cz0xCrKDyV_I!$-)rdRIWmRbFz`N4j_vRdEl?93>c8_9m~DWH|i zDGB1>aZMzn^gGe-WO^JhWz{ts2YH15+=!jA@az-+9HeEpot0s09K$k&Nmf2)wg;)y zPHp#8A@Do$fB}(BZFQJ{Hs&(A`i_MKFNLqwLxlzXVJ+}%xS*DdVQ2m7a=w4A9$HY) zkLY1aqN>o?i`j)fTASM9BXaof6(%H{f%pzzJcRjjARa1I;*8XmpdKnoZE>c=w-`3X ziwtEmBZk#-cq9APGHP|a6hJeEmUjoc0JL}NE7RpGHS!fvuZ+qf=}T=XG&b@v^Gi}; zs4$6&)rYu~_xQBVc~2metL-iTahq<~pp0EG+w$8Y8khZ{JnpB|-Hn4&#e^;awX;s| zb*g&y++Nz7CYY6J;NF603bi5k@Vn!k}w>_01#QM`#FPzj!#@?b6x>HS34FNxW32 zf5E9Qb;Ta|Ew^luxq8G~5Xr4GdfV{PUP|gACou6smX>-q40qeHM{B6o_a|=2FzvrP zGfLaKB1a3JsacaOkncVuP+aZPk2szQtj^uy-jspU@tbT-r8}#A^)(6S<+L@m)oIw0 zf=KRo#Y#1!i7(vSBo?4!$iztvuomT&TWl@Z&CxmcSL8?E<|#NT&RVZ?VXc>m&-(PI zjbdrRk=V)1mOLG!p1$MtHK|soe0HhL_~KjUH?xQC<-OR+jL5WF)DJknj~f7dz?HzTBfPb0)mcv)#1CdR)d?t5^e{ z2IV|`!OSVm@pW18Y~!c2S8SblQ0_9m%T>JG&D+?PK5cwS9`e9r#MJ{y2_x3ixv_p{ zP*`l_nt7&w7BYaQ>w5JSPQ5hOQC_Lnc$pY(oEYMzUNQz}CkGTt)f$&UKqmr^bD_Vc z4=ou`@y^&nAKbBSUp<&XR)>^ctnIlX_=`$CPDZ&5AJHopIRy9@}^*WDD)=r46j+Z%gh zM;(|#JZsG6&89|aJzsNKJ+SfEsUDAr^$9@Mp9KhSaRJZmL~RP#Mh-SL#w(p;Z4&b3 zK`gkOhwg;;T4np?(bsv`K;dg@t>ruKjq&CCJXW_<*k{Q)%t3`U08C_%xe=gRQ z8R%9tHM7C^BnbrsS)MWGNdF9GLzO<=@w7#z2*Y`;RpQD9L)e~#`{R57GZ?Cl)axs} z3XUcC%Ykv=2eE!~w1e2|TExRP_w%$UykaQV&l#5NJ|`Xl)~FpknVp8A+g zKDi#^+I%6`c-4HCCrFxbUzR9LRL~$WEg1XVXrknCX`Y}7)G-)4eA00ukz0W=`67o9 zw?oFe6_CjzkaSW1=IhU_sqYA7ak{W01RMGBc*v7*E(W7Y;vvbYlPilXE$IkJ`9<-@ zJcwjvN9cm0E~0&0*cZyoj@P^TLkc>2`O0`GKjC~BL6EIrptj$6v9!jxjR0|Kb6aby zW*HJM%712@xwQxmf~%K6B&uH-du#zMgQqCuiuHW~3|d3c6N-J?o}<_{?VH`DG;h(G zdN6x&JhYIK3n~vCcJw*=u(zo{ zv`|{7_w|Ps$w_~xM1HKt<1>D2CwRLnQNCn#V&TJ5tX`-{p7F%5&1qGBfhSRz70JeQ z@IqVoHX7yCgKmADi-~r#(7jlnBQ0;-6FLzatqw1bjn;;j#zyPIxOrBEp=vc^l)qMt z@*5(kOlB9_*&d|2-*7n&>UtCbkB%mISz$-$gx=k4c)EuemQ=^|Wah~M?#23?t0Uiq zZaqF(V9nM}DL3>AkG_>)^ZEKZcVeSQuW%OhC2FUzkmW#+UO;lHAL-AUyK=dmlAVGIp{107XPQ3dbJC6ybj+cU-=(cjkARU7@Un%v+*hhE_-IFj1x12kLV zo4mpUvJK6fu=WU4Yrs{)8rS&rTRhl@K`s?HQE-G+2!(*w_7>nZ7t98wUtO&BpCV6j zqTgD!j zRM#0FSB#1~xe#XdQoVuAo{@x!qFJ21F6`8CS%4ZmTt25BU>s)*a0c(g5XmY-M{~7y z$ybfbVB;iZIq(5@Tw*PN5!hy=OWShOtxk9!bv$P^eFTpHVyTi(x6Ntv``dwU4?ni#wu|-Ngm*4hRkrBV14gMdh!}6TuIMaHbswKAdCz=P#P2a#tY;;> zHmhKnF-J-`@$wFOOdFvl3ou62jq2H1# zd>v0ofVOHrIdIM9^$6Bce)W=dC?*yZg<1a z#deM|Y_eby*GHdT&<)PEPB-!M8RI-?C!frYjUJCQ=oKI7vt=QGmhh9Gs3fnTv!I7{ z#~&EjqLJw98RKnsfpo;5wCg?G7%*-avWsa{J~y$R@qohl2ERc98LA{=|-N}tySTvv7|5do^R+{L0Uy3-Dw8InySal?#uKI?!@hxfzd5f^%v>Ig=X0ojc>y7)h1R+vu}RMBrR?S z?00-R%o7b?!S0UuQ27$d0+c@p%J)n{`RRQbj#8tZYMSC%#N3yD&M`t<>kWdnC2}^P z>Qh}+XXE7F^iOc75jm`5&bz0=pKw;{t6YiT$%J?5MKa<`F(|O6@J&L{2Pk!cKf9w8{Mq^o#jTD)8Y-ek<0Ye3)x*~>rHtDFF9U=I1d=> zcm|e2hYGn`u3lQeS&%cKV)-n;+Mca`$8ddWD|QU_L5I!J*H9<>v-K>-4RuBYeiiou zYPmQ~fDrghrTV80taE63ZEEYn8l(S3lTh{weY+#i#vpHS>37%)j>q21l(?@i3IdC; zWMNnLyIBRlj`e23ua9&h+~#tz^wj0TvM&VfL#}H?*VyXbCqLlK z`81>6$Q4#%3sRACbH^@njtIf`R3!R7=mJJc)u}D$)T|XLlsCx;BKCHE+Bj*6;))hA zn!<-H6wF>Ac@l-$TEeeH4s&hHyC%bfVXN%l@}Xtotg09YsFk1dNsJ=bGKXx&>u;YF zEXmbJsS8^T>d(`bz{nKr$0lsEt7gr`RbINGSGiLMDF`o=r}wK!{I|a#5Y8W;Z}00_ z0K=5+Y@OrixkiLMTg4+wF$oe^sj-(H8{a{&5B%P@ib}NEM!~v}Yplo)DKhDg{lokE z%VYC71KI?f1>ScGrVkL+q2ug$7L1fBCos#S22oR6zui4Hr`M?R4T*9O)?(j&-o%rB zd3B;%Tk$7H$y!+9)UPV&gD!w)IZ)tP^7@g4^Sq)b^ueO%3Vt0pqE);ELL!k_a)~EV z`DpCu*;^g4uDp({vQXeqixIy{KsK5EVLrqENc~%#dUnAPssGnovZ?>yz?X#ES2Ucc z(~914;NDm;h|hGzt9)Ww=aj^nREG;a?1wEM#c*j;i*WR`|~tz3L;tYMjpr$q=7-g%Y9zK{(_hF z_X7i3*%8p+8#vOM+bL*wBv|wM3{-Tj3t(A}E*2TI!OpSSm9I`6PZf1epVY5?h zOyQ<%M@Cn*I`xbYy~|m^HW*XpEfe(V+UfX3=Gg7 zDfe{PtIFDkcaFkx)!7uwAM5uxj>BIt-8x;tjwxmA<%g>%^DZT5y^gHCedzz7TRbe>e}}!C7PDTVq_Ct|&jQ4XuK7#5HTu#;+>snm`qZ z*8+X@)U0f=xRzCTUvh>Sk zUF$yVWQ*W24gYON7(E!~$T`~Ho-;lPze(9u5}OipURU?cemFFC{dSfTZ{!MH^l@IZ zuBfUjnir}1({&}Uke9O}1%Sb)=O9u6Krnvn4QzRvoW!7pEinpTq}^A-oSvyg)e!x`i$;3osJLm>3X;9H;%Bc2WBWQ-#^3su+dMYln~g1 zGmIL-T0Z4`NY5I3y*kpoNepQ7s&THXXF@JA9!L5p&U9X60H4zB`hd7*SR?e)NVPeP zUBEf* zptRk0%Xy<)4~+Di55?(4zrl%?UfX>O=kik2hUDNF3FM>@7jB+LvL8jhWJ_i~D%)S7 zpZN*)Jh-u6slQg!{Trua1N!kgqjJ7%Uwoj`0#A4jkC9?3Xl{Wt7?+q&nHUSO;WwOG z+Y`VfW{|1k%bZkdZJ*>vU*+B>Lu2TlK*R)UqXFn0MnZ%zen*zR${W80-;R$&78E<4 zrR|>1J1PG+yDBqeKKj_2h?XIDmY`sjYe-Eu?iKKi``)=CjN<+;`Ginh>+tjIH;iW- zq^Wkr>)k3t8u!E|ee8&(rbcEN4(0_zWtF=}nz~@(t>n&$@5s5l=P_0w8X0>pdA*@e zx?X+lF+g zEDOcF(xNHQzucW0wg;0gIon#>a;0D*=f15KN{^E)le)*tUcTLHmA$A%<zdxvZRE0x4}T8dYMbpNC1_X>ZUO=GrfBVVgBnPc+wT&z z`V4U4g|WGw7oIusC9VBNDRrG7Y%Xgl>lRUW_3X@hsTk@0=kjDAd_y{yvaZEWP9*@w zNhh+llUdA|li86=^-|eh=R%t&d`4?~jaMdps_kj+#7<5L=TM8*{(Gsi)Gd2|nX!X% ziIFbT=N2c^%wJPI-i$Zrsb=tA#5qFp4&}w&V5FYs9kC>c9YrYcRjGl7Xg}%RH= zX?K2~cZ_c$!D2O3BS~bpTb-f~%OP;gYs5uKhBvvu=RC>o?Kftgr*N3e?CHob()?>x z(*^5|(sb+Df4)i&!h;2`>AhbcIof0?Hi&!uW*4}FA}TnV_`kHh3w%`7x%WTG49O%J z*aHNO5@nE4gQOY_RWN|z79t`fL?%>`*w$i9ZHq8lydWe_B8=O#_Vj*wdU`wUX;1sM zR;{3IH6cm>tDu}(wKvpicNi~tg8)kY-{0CZlLWEnyzl4p=fh;*)_pzed7ky$R?R{2 z<_xm)jDx4+9N-frf)Rn!M6JHnw` zySiTt_@8n{4}k(hmrnFP?hZ?5=x91!4xrllzRLC4qZ79Tf_9NJKiumxn0OSoiD^DN zuh(ZJlFLF4(ba>PFCh4a8ZDK0wA7yiYjpo<^bPt8^nxzZ8YziUra(HMb)zq_$482W zAOuTpA_R;$fN?<6O2%58v3_W-TKsIS8{Lzk+G&!b_2@`}9xmDzKZg~EXUAAvAVg$a z@zUy^#J*u59!8giKvq9@=T5&5lL#rcTXkMwHou+cy&IDD>L*B>uF6~ziiZO|h!`<+ zDU+ADIq;s{>=4Odxl|9tY-Qk`iVqF_X(rz0iRXp!r>TQT!6tCp^IG4_@bErmw*Z$I zjdq-)H+U(CsSQ>wDPC(QZVtU?e*xbvd|RnrRez{rc#)5o^Aprb2bML|xj%X;U1xj@ zD|OTD+RzxU4=z24T?0igBt8frtN|||c*Gl%FuZ_0a&lDJQ+5IM$j{;CH{Z=Dch3Jn zT8dzg=xF6Zm=3r`7Fm@>Z~Xy=?|esK<}puo8pIZ#HSbw~Ju)TOeK>%Vcbq|BmI0p- zd{gQSvO4n)h(*UbiUqSSe=EqvXhxkt$DW1};pDsr!imQNHE7${f63{o1P*fIQZtvK z;k5I&z6}JY&ck%eK6PuDys1e8@vj0Q|5n`mET1^+%levI&a@MFd(1JV*AK17n8>Lc$kXD~tryyA-*_!L&?hzmXc1wgJi`!3fg zGo?k3I*W0*WqO_2{mDBvGwjan_mg*Msy#$3Qku=Ti>)3nU@Z-W9lG8;i!+9#jND-*Dhp^1I{+>Eki}y35>O4;9=luBhu0%Id&l~@p;a+%4b&gOnNqPgm5>B7jqIj zVHJzEeQRZpshq1udF9YyhQ$&4qJgVVZ(E^kPA@eSHJMywz#^ho+ofVG7ZN)Rds%9q zwya?p{*90Oeb&zpViKN9LZB8gyEZG@-Ug8P&vts# zImRumr??=gfWrudDeZGh>zAse`lsJ;Uw`cQ0($84qbA$ad^0WhgVUoEq0HW%#S)^F zU}E1T#zt1Q3xPw=H!MrMc!~QZz>A6q;9`=Q>fDO~kfJ{nQG~|hpXRqn`r-T(IwZg5 zlPalB&FFidz72&>zJ;-3Sht$ET3=mCcr7M2^K&mn`%c*Hpvul`z>~A`xQtsh&&=Wn>y1BladDFquO5O z+TVs@v2Pjy)NU0sPj9M=i7bpnr@q0RKT#_Psy*DAO8PKkWW+fmhAdW)$q1U^KoLx@ zvYwqE;Z`Sx%nxs#U+7%uY)9Ff*ym>t3YG=W*2Yh+<#1zocs-`Z=#EXGFBR0C8IUX3 zsy*e5G5#T24tM_};6H*;W{_UCLO;z@zdAI{YJXHaO7q4WjrgP?`{i(aoawiHV`5_< zfL`rb7cEPDS~ekw)2uBAI~#&dZOFX`mtf$d9I{ouD!DqZb9GSGSlCN-E(|6wFXsKU zWNz=AfOdgS{@|QxC;JTwEx>8Zi!Gb9%NPbla+nHJO&y;IB9}b_Rn-&zolam^HZMGj zwPnRFz8d|W3<6C2NHY%25VT+wMAS-j@}7kt#VvnpWI{ ze#jMTlx{9iVdRJ>pFlKWXZVv7%PnBio_00_y7$ZZovkEW^(!e)2+Zv91MwOIQ>nSb zXM)``o_C;bQkDoc67-h8W;)(A0;Z|ZViNgM1&;=}(Baa~CI0TdT&Pck@JH*$V~uFG zgJT%FX^GxQ=ZtUopU#$5j7?CYKVog#rQD06(>iZ0)L3`Uc!;thSORk*uB0f{?vhhU zF$y>~O@7xt*D%|GwP&Rz4ulfSvC&=Sr#KWgKQ+>Od?cSZwvXl~^9LwS%nK8!i8K>& z$8D06Gf7N9Zt8s1&l5r2f*47uKa_D3Rwy0fj}!Y2B)V9DNP`uc5>~jU`P(oSb?%5a z30tOH+F9WqdV{Bjv8ggoeLQ7R4i&H?(iUM|-d0jzWF>K)kfwuWByA%;b8VhuX7M8D zB#-+S|L&`>*{5xzj$A@8j^KqhVSnxsP=FD7(!1E4_*semy!b@3ReaZMWdj_Fvmp?$ zgH5JJ9B(B#Z`yDvr?f)R2w-qx=U(Z&*{${)5?S~Gu zy{27GMsel&yrXJ#mPsH!JIGwiI*HhiegMB#|Bt zlP+S9N4{)r`G};0;<#(9j@PM{X+?7#r1prBCJCfU>)oTW_UUJXTtNa1b;46BdRxCr zdT_#k+xR+)GTxbEc{2x@2RSdz%mlSgRL1H^4^vn8O&hp#OAM zBK-;zC;fD&Tk9=(K3uCW4JZ1Dz=PtY&8aC%bk9rHmMq0!co|@)7wjHtiVq}LLKCNA z-POBE)1rSF%Eo{Mm!UIYU!BFt5vxO1Jo-fE*-jY}gn{IcG+7d4U<;7BPdT0zKLCO+ zeq!h@JigzowV1VKT@c_=fJ{Wy_*xC|*CkSi#qm>%j zt9vk(uI$1@)cn<5dWk~c4Pi%#AiP(3(D|B%%;{+5FKZ#{G!>&Nj>rnA>TB8pti8-J zF~M-)tYgY&I+q*0!hEHsT3t%2>Pyy+WtyDOo=yUe0gM8~)Oh!Uml68wQM_A8s*ug) zZee=N7v}~#=LUQIA{EKYf>YQ!b`{G0xhI@#;y;pc?>K1#2_YcCSpWb8006Asrz|L* z`8{%O3_o1V1rxD%e(lvnobp`f3*tzyW-O_VkFAa8(V1eyh!kfT5gly=vbYk$Y_;F7 zBGyOC!5_|fqPl-^#txgE+tX~|lf%R+f|2@wlatuy7i_)Ty+7Auz#>q{b>k&f=$tQ7 zSG;ai=ll}?{?5QA8Wl;6=95%?SYZ6bzn@p7yeO$#25Z*n{@2M`AjSRzkS2A(9M1`m zUZtjXtPmm*!D0}TUno8}C)Xbzsm(KTneG?I6x65JQk-hL_TA)V0?}bRa>9* zObHPwt!^YQ?n-wEDKZdZ76rQ|?7OPN&RA>9>UU4XT+p5q^A){wn;8nI@{qMu9lzD% z4;njfyTO^e^_v z59a&Am4BLYK#M@Ju$(8h`|eG=IAQbhoYun=;*qwa-vz^P&fDJY)w!wGmnQt`)~=Uw z&)K!P)(^!`ow2I7I(OLv$Y=U6t0~%C8-S7gUGnCIWdrNN$zLj|dkp5LvqQ-+vuWEW zKnp|sitAb;CiAj^am$sL7PRCxtENuVwmPh7Lhd!l{L|;-JU8Vj?~FhH⁣KS^(Gm z)C1bRL{=rs*LE(>Nq))n3|k8JrOo#U-YDUXS7>GC;YA*_-wHUbY8<#_lnEr=LJYcb z*U${%EK%ieL1|V{|pUBDo-xyanx1w>#pqT}4fPb6`hj;G3MG zG0Yf;_Ncu^n$bArUbUJ{7NfbgVr#?mf3=-shhFX8pLhK>iSxT(8Zo86`^{YTHoFO+ z^x2(7ouP-So?cnhfyP-(raewraZ-$dP;Tg;G5wrnNWOsCxJ>C5BcAi19ig7oG~${hzRZ< z(f-c{AT|pyiWS{Zd#jeGHTD5Q(;CCD-G4Dc<8u(f(*COV)_#FYSsjVX{M${R%G|2} zB|n{`PjgdS*;e`Irhb+9U;x5|D~;*Xduz`pOQfNWOzz{q%5>?yH3k797vkfTHO3cCh;h&!*?KdvSY4+!P*9k9QRMm0 zPSD^we?g(~t)wpb76ZUU*P4>o-5-#(mun-LroCcdI&Tgi?8(K74?uMaC>Yv4%COZ4 zKK}#3XQ~3>b^wUNJHwi{E%R0qgpw(FExt^d6DgDO5T`bFr-F4x>d7vq0Kd49JMSe{ zAlJ~#!!f?vr{)ERw(gH8#|0s3U7c+86NeGVJ_Iu=f$Y=dDRx4g63Q+m@O`~kQ&+se zbnS%~y_$YNjb^=kxcqgL@3pk9c?(hlHEb=(aT83-^Oy*+(ng}7NbDo-g^z{o8Du5k z_RQae9V*=A8k@(W)6o*FVJr5D9=$Gh+gR|wuQwQ;qBMZuAOb@2vDAIwm&V|x%oNC* za{W|rxjUV?r#M`yy!9SjW^HK>3Y%Jd@q|NIE%{$}ir?&<`X)yf5E{~G3=85{5PCko z#PALS;vD_0R>xCRoHk?VJ>D22{wh_LIg17FWhj}YFfOa-h^BTL52^0!P~SF$G#zF5 zVzsyNT*W5AN=Vq&xgdwQb3=DQ_t-O>@o8@5i4Sor0KO!mSR(}b3F{odZ!=nlI4F5f)Zs(Qy>)3th`HmS(jGA24fJpn#^Wc3EO-yf7<* z%r1+Gzq&~5?e@;{?I`NB`9iCi9=m#t-J;=Rhr}i`b{{fiF=JQmT&}Szm+f#vJsaTL z(gUY0UgCBJ4&>ofI2_jcN8WTCym?{OTHzfm%!)lrp(otN=iwdqfJgHZw+066BKYVr z#;rcJSL2RVcQPk+j$$wTkTO(auh|a5LN&PiL0Xx($m^6pexqaKxIvdo#1@(j#65PE zbBQPKdP+K--NS@}Fp}znGv7>z@G)^c8{O3f-mHxEK17xx_(=PMX*x>N(=i4PQQ~jL zQfldcWnxxd-IO*JGxH$@cZKFa+Ft`+Lbgta_AZ8&7^SA-ej1jXWy)v z6kb)dcUAV~!Dr407w+AR`a#BU%|A>t7GL{I8m*alh9ww`5rN0*=%;>=o6N;ZJ%7|H z00B%Ra~zq&M%6+?St6CMixGE=%>EzjWZ@vTcK?l(@@c9ZTjj6hVcfbn?2HyeNlzA>GS#` z!u57{->KbioXSxViB~O@aO0oB8NKbL@&jE(-7n_0ZF_Iv!gu%XPrQV21K~juujZd= zKE0YdLSLMx_PU9E7JJ7;|0UL@5=!Oxj^Ju@e8jHL7Ar7)(&zpUs)bIt*;HBRc4;B_ro?W$LO+Nvu zzSc#?_%4ni8lIH+8a5sQ;raN4o;xDU>Dwv91Ocm~oVwo8dtUdWB9~*#ZGn4pQn?qX zDErrg4WLSKe~~mBf<+k5)q%b{av2t!M9zCwYsIxrKAo@{N=dS*VVVy`NmC%|+_M}5VkSfO-E`FV?EM#HP z?M^`dA9y_caXS482EyvNi1uXDE|c4no$s!O#;2yc&q0|}7i7L-qtKtr(L#^T_oc>J zkMI|vu3l{6HlQiVRD+P-4q;x9ogsXktd1uco42hiX~^J*|Djvo`p;~)s(P&UHI$&) z%Qv%^qCFI=m`~oUUCAs3hES!$8SlVmuZ6rhoO!#K=!Ibc|P`o_DW5Zy&N&bK-_5i z%Slxht9P%?lwhBZQyW9BoWz_wKb>*1(p9}>pQ-sR{L%3FB`HJAUz3r99Pyy8xZgnS z4{vq2B`18!XLG{y_-*-IPWY_P=Y;R({wMq%;Wz1qobVBTFLM6@zyIcb6M1Hn_KW;} z#%~09p5%9w-x(m@75u);&zF;XlKyc{_lT47@=po|3kuDPqR>cl9W`o{rJL~RlTI2l zcC2}KQn7bA>7;QP5+ru8lwI3c8Xj)oPpLckKTJ2-Rf?*LE)jSD`)*;sD3si-1zP~% z$Wq7E$@Z&^cULf5uo;?!9_Xm-_5AiJ4d!z?$@htA!NM|0r1=^C^(%~7=Bvu%(W8&S zhoso>2xKW}605HD;92>Iy}fpH0{vmG^QJl4xNn6)4XA4*o^cdC2#w70yw2vJbBWUf zqZ{fqVz7)ISDy1ZxY_4Dv!30a@e)YRMBGWM&cvnjnQ4#IX^5<=5lx7`$Luj7E6zZAClbH%tjw}e)Q{IyFLpD z6O_rsEGzeVv&=--GT?%=2rU-1!7_>)9+vLOw*(bK(jAL8OWXBn*_2zRI=Dt8KJ0`) zndpB9cjNrdI->|}y*V$(zMMlC`JTda`h7cyie3-X68(qlH3Ju^DN*+vFM1e!LlcW# zULDCCkbAJ_-eW*p**Tnm4!rv|i?}mu&c)t-;dG~G$Yddkc*m&3)Byo~d3|iDJHeRw zq|tUz(u{JWDJ^ryu@=k{G@^)%bkZ-iG=HPa)Oy|nVS5t# zNqWs8O4WIqn~;0G0X>c^j(dvVVL~$i!8>q$nsZ2dgjY8@+iT;e)y79-q0ONz&v2H4 zcBSEzm`zxlF#gcGc`)q!Exm(4n&G^u-NnlrJ3~|0PuRxNJZRT%jWAMEdYm0oo@8&a zgN&t~eYrhu?-52e<9>M+d;u02J$v^LdD*>x0`Hdx{vgIAoj@fJ(Q?1Berrm+l(TZm zuB(Y>A!`o46?+>Fyi}qXyJ|p%9756@u{c3caZl`R>=uIY3ye7XeO!kzOj!3>rW-K} zV`gMbPEO;9eKa3i%In@WxCloORiY3w8v~dcO$(=Tr)yY>@c{PBPp*pAnzD)e}PDbt-xL!Gf;_dvk?a-K1NC=nP&yf8F3=OuGwdV+3SHV^JM z|J^Jzv&UH3Bmk0ukD42H{{^O;Vk2OgWR6LZ&Na-%3-`Rc76uM>hvQ{;)!?GvAN3b@ zhk~2u5U*<*3%kh4N#-U;Cu7rA_9VxcOZ!f1bAo~JVy1HhZC-;cE=&AR$RN8n3-x%e zI0M#}-C7S%4F3Xt%rWVjt}@7M-Ko;4cLgWcAnQQT5n77#qH*EGs!Z(fM|`95BmRZ& zqeJS);c?0yaw6IulG((!bqdXNC-CN9thwOm8+3xcLxCOQedA}bcsjannUG;jhw{H9 z7mq4f-Y9wPeWA+rn z0Q{GZqb;awPHZwN;t^@AU*=9lL!Cx^8C9Xd7xG5}Bu!IF(Qsllvpfjqfo1o<#WoA- z=!u^)4H_l!lXUQW4Ex_=c}x{T$@(h|?t)wGs58*I0RgJ~#tZV<$qA*=(;;c%e+A~s zJqwAoBjN6}>nZlcVltHYnE)rpxf;4!o998si7li*EDRf(ZqP#d30c{QF8x5n=!$4L z4zRgeBS-*B>*_lb(rchSx!>b1yteKW)S*`XJb4uRdYSte@18Xt-BUN4*bbmqr~dmzF9!p$Vi8Kd1)%>Y7qC}}eoGtNvF2=vFy&ZVx?%__C8E#D+p`Xf z!e*roQX}J5*lU#QrO1b$qT=WfMyJ&-Gx{{6;PDsLf#kPK`q`_rL(|3o;slF!HLWxg zo@+yIXi(`gMEJilJB(sl)I42c%C+b}p%C7@W&URTM}kZPfyeMjzT@wjgxcc7En#20 z{w^eRb_iKk5WX`cBK;E#JflZ9^L|bRwx7v`Qi=p6FTQsdlIY9BBG6dmlrRj!Tc^Dzd--GCmJW3rS8qorbL0(tbI zuOAp!%Qr>fiO@3Iz(EI%4eqypB(-ap{!gT{Xb3Vr^{$#) z@v~-}8$aW&*(O-vYX+W|Hb*a1G|9_Mc{20qmrdI+;zW^5C%kZVa25P?#BhKCQ30I5 zS>Z+n6KJ*b@qzY`(XxqNUT{^OZfrZcO5n?(1k}BR%cwDRPH0^@mITJ z6saFu#C;6cfAl4RU;l&vn<9F!mn}psTzA_*^w$-wIbntz#l5d3ciDAa!H}D6ipJO{t8rnd- zFY>HAt^*8Nu_&^Q0XOP;HMpsV_I`U~PWb2iy7>Kp-=F!t%r7(K>c8o{eG$Vv^9u4k zA}wE*Ke$uvXEI0D^_pA0`3C+-Y@)=mk~J@)IpeH$YeTa)N5Kf5r>W zGlGI|%+j5E*{;rqS%7uSFpiTw#_^0HjAK()a_Ve{N6bqT0*`kzQ4~p$eciBhnVW)f zq?H8SN73i4Uom;*G$!J15IK{*1QHk_-!N>*;I{G_t3y71-JA~hvR_AH6eN!Nt&Tf* z2Z#6!1#80>dFW=~h0j}8bLFrg^g%!VK8t=qalgLLb4${-M9@Ch@}^{9Tr;yJ7hFxX z8$7~zpkDU&AhmhP<(_S!uv=4>1}ZQ|a}$WO(QSMT7=Q>hw^AeWAbjpK@Z`y9N*WW} z!(L}0X2p(+MCV^fMNa`0ttuDz7S5O)69{ZhdHY;ull zIEs^VrYUyaoEe=90{*Vvz;@;5WJPorJDISjX01vtoaH?w*FQC@b4iW~5Y+s~AR}~B z*qw<}9=lXn~=plO1wdsVWJ%nPk9?VJR5j=(XwN755e}!ET zb61xOj1dH!W22%zVUo);NzRK;P0Ttc{v1|ZhYMkQ4v&OUijgN*T3v$1jl?s!JD#UV zv^6CIH8Vhun?dM<#U^I0;EU?*pJM7Y!}ibGx5rDT3J6U%l3Hf@?7c%r`}eiDG8j70y{ z@povojvU%Mi42mWJ{IJl5;mr5o=;7Rxr@lwD1=bv-e_RdbL0y4v|P>k$+#XE9y8{? zJKh5%GycGHdY(7X$@MWe&wFg!5RjV4{sbp+gk$ajZ$4(4cQZYHpL5cnymg%mSj;Of zg3jDj?%w4vho~E_E!Cf76)(IxhH)}zgsVPr(zv$yR za){ILHUw^aw9uDZXLZcwbIiSAvcAZMQma`qV!70m6mT{356H3?B3=dizNrEcY-_BJ zQ%v3pFE3@zw5P}1i9DuJz?~6OAJ+LL2xzzz`_`X~KZ$O(7O46~{h4aWLZFYED%=;p zLOqM2DGXAHzl;53$x^3aRq~4NVC!Xp2o$hfVS(5?lAv7f7rxxKKK|ChzVn7J5lQ>F z@EDy<*UOE3y%n8xlo}oaG2vI+4QVfTdpgy`Vj5qr1#@kg83!J3w>t76th%$y;iviF z)KoZ6GD?zKC1>o=Bcrs#__x5a5~7pA?P<9^=FWt*F@%_5GP}R^ylB=4GCtgbUpIpW z2k~n=PfmOE9xfuy4@AGoUFDxJu3!)v;Ymtp$Yk**o)VF#b3G2J8Iu%^cNFCHb;v%q z@|2oJej#N4IP+>Mx02vF{orCXJT3P+PQ1ff_>U+VSr10=b=>E;E44pDGS8|$V70$W zT94OH`_|wwG~Bl)Rh&4SXP?%F@u?L10*)OStM4l z)zflr%>6a9uj~KO71aMDU4hT-Wrk$C2u_pOoZ=EfUl9(<#{&}#oc3BGa4{lpJx;B%up7c569+8^A(3y)U_ zgV-zQM$SAy>htGD`h@akezWNPlK7ID-@okfiB`u+ym976&m0&yHZU>=NKDR+_RUtZ zBXwV%yY963^qB>By*oKxH1n?uQgf`1S1BoRStPgbG^Kg{XP;VZbr5?fUB>$ZqFa<8 z4x!QgB?zT^-x!)zNflTT`M9Q2{Dl-VN5?ijx^AA;J`;p8^S<*x{l#??x@A%H{fpjK-+R-W>&}RuJoC2e zV}GTPGakHozg^XK8H`S~FSW+pUH5b1d^e^u6t-q?DO#0|V2u`OEEbjV7K@Ha~Wb;*ylIywSC? zDJR=!Ho89VQ4z^o%7`xj=cj9du9F+xob>fD!jdeECSEJ{wk&0pJCOqj4T*3to&$uB zz0`*@Z0CZh)|T}Zg+!Wzln`YJx{YaisjQR|{rT|Xs0OVqDNYA~%7MeHLEla}+OHiV z7TR`}^quWzQ2O&c>r&io2#2|gUl;v@9~!@^ixgXtU##7Mu=nqI4YkCqIS zi9lKr$t!l#pm|SC1$sQoN8ewN;JUMpNT+Iv}D$MVSLYBSeL~BW)~GwiHQ1g?llra9rmp zT9P)3^fXeO8nNJjCK}%*t7 zEuQd0HnRUT*qZ_>r`0xAdyt|v`kG5KxS1~oE)d9hS*m@KF zx4r~VvdGxL*hf$$1bqZG)1+idZGTkdJSkWT?-5rM#=h@6dWT5Zgd38c1?5S+#MyS} zMTQz}$hsSyJ!=$NlycU7#(B~)8W2nUu&^_|DX3;17$|za?G=*vi~hp!NZ?!MPc2=> z@`-5tAKpy4f&%qa>rZyQ9SAqzOpVaJxW}-d%iIHSA)d&cld@JaPAp8=%x&S;i<|6%)?0I$Y=2@~ZtKM{d!qHo zLj1{c6MYqT<<6*BKYGUWjUzilN$ZiW&P&}nouOLmk=!{6cV41DyzVn>W@^7`HZ$d1 zj6gm$aVxOxOPy+fDm8X%P*0()VO>TTefeEuT8~^BAJKZG#-7BChc?fd2q=|UzuW-}*oSga% zAyd)nctM&@>zom-dT6y-_H!eKOhz(oZC}oMF@=spAH%kq>`k~6X~_D-N;70Ha)o~u z$2`bCOD=%`-~q!5nc#kKew^wXFrBd4S24TG8Wa6hc5%!l-n|OOr3Rj^ugc)YN%n=# zh8Z#U)84l<|5C#@w&HC!2m2p*6}9PwJTt<-I70;l``{zs>RUO?h~)~0&Cw&^D6JAj zud0gYo7(MpfJ@yFiTG-wLc)S0EH_HF-9tXLrk!GCX=BU=F-h_`euMmDZe@Yt=f&;2 z9Bz?#jB}M>mn&eVw7uYV8XL3sn9oCx`&!{JCuN!I&3Do|&_pL z?|GPq8`96<5h5&CxJQv!Fz~=mxm^=;{|z}5IdK$HbngffI{!}AXsM)x^L~FNh0o)0 z2G?4y)lkj~#zA}Dsk-)kk$r+V{tN^Wz~)c(86Lz4ie|;!=~O}SnG{%d!SXa+4LdIO zd!@MXudf$3E=cWZeiJ5<2#hiJMs8ZFh-bw$%isL3O%^ICg*=b4GelVz(>jkRL)MsqxODemJ z;?(%F6&vS)aB>|hwH9we+?#QuZYoJOMUqX?Q+AatDx@U8;CiV0drSfb58SsMk;l!( zmGPRyk!ZXEQp=;&v58M=+|Uq&tL-@UATPK_PB!4vcLo@bFreVK^o!BFXeMKrKEFpX zOn~!TpZtc}_LuP-FJ5S$&$m;|nW8M>zQ6H}9IeXHlg+VHAWXZBu2#`Wlvl@YA+gf2 zTNaXii|s|*1l1Ajlc*G9-1tOifv~gBKY~BiEd%H&Hn_qxoG2FPJESf>-S(1?O-c7l zBXxAyltbO`-EshKU^FGP?IMBVoidnqo}OBL9k1If%siw%Aq%I`50eC2r%1f!cZST) z<-|1m;`W`lw=tedY+7)HsS8Nd*A7{d(VjsXby>mcU{@ zZg_0JbAb7ebiW$L>f&VoTZtprTE_gOvJ1h5yogpMXU`xeEW)K5rzWqT)*FyeLc1S- z*D7aTFWQ3Hv%II|6}_`0d(X#yy6w6MQ}e!JUxTNTOM++mS}n9$k>rvxXGt`} zYyKECin#1|(niDW$N+%I48G<|_+YTWXZ2*%59`A2BMfyG6_}g0*Zz$JgY-?}Ag4Y0 zA6#U5Fz`ThtKR%J`T&ISC@bi6A-0Y6=>d!C)g8sf;|fuvR(2RTg4jAev$uGdLM<2+ZEAkjX6;(FS7>0ehzej zDKh?Q#B&@Vex3#fx>d`{{a2DggYBTqZ80b)5FPf!8MKcQOWXM1Z^igT8gs9%Fqn5y z^a^?uHe$(E#E^X*s+2dCJ9$doN`z?yn#PmtUC#cd!vqp4oPI^L))U2IvemuMZvy#9 z&g!|G$qveg%CKsWwdr*3sm1uMwRQXMVHv(C3#U>~@TCTL($8AB(_vz=1(K$Te2N$J zAvQ&&iCL(A(-Pt2RYxSQw;2U^f^PbBw zR*}R}(28OvgI2tNlLoEK6TIS5PI` zEH4=g^c9#Y%j}j$_w&?6pAWra(EP!gP%a*Z2yd)*hsHO$qxeoEu%y_4zZ)t45442^ zY0?b z-3X)}Q48#?eRq>0(O)L%((k=bRK3m6qG0M4nCI$iK1@OOL0xC58aA{ zHoDj7RwiYQ?g(xTgu#Y-Hp(IQ%X&uxGXC3ey;E|GvpGjAJaC(-Ub?;JS5SIL3?iXz;25Fi8T7ir{fzgX6saE!vzjvd zW3%EteJY&Mx0o@^U1Dy8VM#pZseFpy$Jv4d+^IifB$LJ#;#WOe7Vw*vvG5!%A>q+N zYtuDMyDA`pE=vNb@50*$m?(RG%pmlc;+ zZ0dbBL4tZ01b_iwGQUrR+A})OzN+UHr5QX!X=_xPKV90H+0x>tn$qH9kIOxl+(Rqy zt9u&)>+Oly1E?s4>{i2GC^Y@T-8Wp2-#130fDM6_N~ZAFEhEy&?jKBcetsVZlquO+ zO7^_wD=(ew?!jae^ZSJ5weQN)h@8iMTuJlONk6Hi`3Q<03#Z3{P(mT=tKA$Su?)O5 zGe4c{=ApT!oH*Cllxu=GY3=A|Xl`dKn`E)-<-3fthJRzAfGB+sm;(D0Rjw-2wOjwD zGDIJp{2{LuDw_%F5qa#NrGi}sKU?s({}%;+R|Vgpf~l=4KV4tC;1=G`)LzJL;C$qv zMOXhXivD*MefEcouBORhmCOl4rsT?@CBMoV`JYDPJ1Y4}_{`%*LnS|`*UW373I_z9 zWl~xS(nFmTUWd=2g1u+=IV7E_6R>U6TfZ2Z?vsP*%(Ue1y`=AIQtv&lFXok>=$~Sr z9&>M2uEKQbQ8K3zirKs&IQRADFI`X!$^fM_1BrV9eroxj8AO1rCH%lNAQJgcLP)xnN;473h8+6U1v7A2)TeA;-z8sZgycEAou_BCNGQ!JU9W0?(bItD^~ zQbss-Y)vLX{+U#eal1IcJ=peYFR&x>U#jh$&r4G~p+A%J1AU(og6}^U&1i^OwmR|rd={_1j*A#L`X}lJP6Oiq0*n{f-fP2O@xbHKk%nmF}F8l=* zVH+u&b6SJ@BA;L`iisifDoYHr!pB08iadg$CHgnuj_W=;nBp-~96E^<=IccJ><0Jy zgI{q+XLo{40V`OQOwZ#u2vbr^S%do=Xp8AXZgyFNE6#-B;^8c;(LeYjLo~U;>383G zmeGk5=fA;SPHFH>$qfVxy2?1YHMn183`pqyo@A_8-nX37;BLs4JcGPp@|Kbpo^)Vs zg?r;_6+>vl;eaCbzGwHT;E0@yO;KkxxRu$W&Q2Hgv`73+?ABaNhA8rM7O+}oay6er zNe%81`t0>?3~@FY&jwe7-y5ptDJG5ZYbK4clx=Wd_C|`@oy!6!*hpu8UZ+my8aLu1 z`*h}3ex7D-i`7=9_hV)f)n?A8O(&Tf8kVGRNRm9xDo`ouBnCqEo6%JfZHJ8|;38)( zJSfn($NS>h2d3k(=$oH!1dpQ!0grp%uR@8s!vS(So4lB=^uQXg#$MZqpNUxXF86}j zw%67Jk%RIj35caWk*r!?40j7&jXG{KrC|R^J=o7`$sRVs*I?V>$&Ag0)6-)#T5?X` znItv~c(v5NQM=NtUm>xhefZk5D}#}aGJ!HpYDSB|D=AJ++b8hh6!Ji-kQF-1ICchU zz+@W>ncZZdX7gz;d6_cuVWPawpub3qUZI&x{MM*{WH!fVJOv1hzcEl8AD#Mmcb}){ zBhbp;eGuNejU_7_6X1on1+swp zBvQoJTZ7>+R>(Ta2D{#Xle@B~CaIT$*2RTYJFq4uGSi$AXJN^}oEfrU&egVz7Z@F{ zu%B3ogeuVYUsRcCo#M^XMVuCEBFJ(n>jo5rg@zkSjKGQh3&Uo#~!8z4MVAu-$W?XZUbH` zwX5G_ZRx%$K4PoZr*>^>9w(O1;E^-GtNH8OUemyD5xBivA#Q6>?CD#?yF_&v($GOO zYQ;ySnK96&m(*xR+=V>wI=x2(zygG?OD~2|-eTC8XEsYLV1qVB%R+bPl6a8_n}?&I z;2y8N*av%s3ULkYJvHj4KTb_lqnVc;F{|UdBv0E1Go$ORO$rEOJ=hj}&}g&w{F;NB z{+aRkhxw)L!!F6=j6x~zb#T7$*!azriN`$xEwonKk1h(%qjB6*GRHd^%qS9IEblT5R>8yWN>6lEVvzUXA9iMWr!}~$PjL23orh>XckBCsb z1bSv5@h1WM%|;x$xFqen@qm}h#2R(;y{bq%@NJgX*YC>--@-5SKu-A7`*Xtg@NNy) zxm-zld0R-rS*GA|1o>Dh443GE%vWy`G6%zjHs}0Pgucn_MY0I}XBp}+ zoHk4}#Zl09ED&oHJTKfLYu~8bxX#G?WbkxKZ%s%{s&>Sj<+oKrNzdhyxKW5yhQ21L zsJ3y)JXlj3v3E81gHoE6C+3d9p%wp~Md0Vz0pu;j536@O)4)Iqoq3hUze5(vP_Vw2 zy(N&7#=6epsb2iTM1K^2a0<|_dXw53E3aBuymq5p<7%cFU;CpRpa}&;on1jIN#ny( zyr$TYDRa{Kx^eQwPj@!cQGIz2@oJ8o@e_x~*&`KTzb3R*L<;EZ9=xBjFx-9E-@FLv z=j{5W?#Dan_cy30=H3c})m)A=26k!`%C^kRdsjnGVr~aBmSN+(jn^}3qp@)L?zg`E z56`_lmX5cCI70?mFOVeWF7zfly<@YnP9}JKaORAE`QlppWE`IHrKG{`oJ4v$}hL)#N0Q$N6OY5vW=|K zt|aXU#JT8l1hO6^wQW47=`bP9$;PVelV;#o}KONy zCi$)QUvg1(Ijw!tNtloz8Pm^vr{~a~i8Yv&_L6%8gu9{bA8I<>_dS&5?WVM8#xGn+ zt{Rr)bJ-;RE~A|EOwpBG7HEsjXLW8B$5&(w)%7*gx}x3&3Oy^EPMR)s>!!lbJe(6Q zp?goHuX;X`zW)kW%}9Ez8d<{5xfv(CLFE6s*+2xQ<0J7kb$!4&9SwH-RMCK=D~Rl= zg4*V33|`uN>OPd2EoWmN#MK#i3aEHiOYyfk;UDvh^V`60Grxb~_iy~}0HqkqBW)vU2mnVB611M` zLXAc3(L{%h7iSH}yKf4j#WyJs;FHaoZ7+*i^43vB98!)XZImmeD5Qh^Lq0b(J@!58NPt`W6dEEcrp*@ohRJ~w_ zJKj*dxo)wstCRVu8J!CUh=0#nrh6xC=KxXv9uqaZjGnd@b@v&Itnc}^A-~}CF#n_- z(hP?E?>R3V`opC6%sUDGnJ|r3E2l*(p5jerDpPs>cjy?wS~hZcx7BgJ7ADi%N$3p4 z8tUHr5{9`8{f~QDQ9aIo$N%=BXS(0;cklO4dONvJr!^s!FHMJ2A(pJ02gw^k9~;>- z&pRW+rtdVQ6B1p-+#fzpJ%%vxO(uqk{@Z{DI-EAK?cvth5JI4P3g;;TaUmzCl9~J| zJvb1r@B0Pc;qvf1+{zt56f&~p-&|!tsMzUOFB+4Df*FKf)Qgp%iK^MU5cjZp9kW*= zX~Of%wC$uxt;TvakUBeC*ymLkrg9X&uS@@E^m zXDn55&g@BZ4)gX=y@{Gp*PQYFYt=i?pSO7>I9g)l8}zPPQ8fnBE$5v#nqGVkPxT*6 ztNwdDel$mJ89{rr(f$vtE_XlmNkbEQJUakh)Tdu$iZWL+ne!Lm|EtS-t7oWRZm+Q* z3^2Mmv3S1wlV{l7k8p4N15H~z6{L>=Q4r}#Rc$dA16}md<21v68*FE$5^sOe_S*MY zdD>z;w2H}U?1cMjzGoX!iJL0k`4O*Ugn2>M^V92&K~&^%Lv%{c(Zu|i(N8W6JXB3K zXG2Bj1JR#w*Vg+@{+gU}cwQVOs8k(IV#`uDc}}r2CsaSMh5%*Wtfiy1m?kwiFA!3# z5q-oX*V0uTOH16nM)%!MQ2rif__)L4O(3g13Mp{1Q;2aPV$Aq>kIhRToj1~{S%KV} z2<98vLzpD*+NB7B*`TZ|#!!q*tv(KTv)a1vAwR+QxZB6wKqXlRP%zZvUs^@|i&p@L zoC=$hJ>JCF8z^qZVQ_G<4t!YQd`S&wJ%p!MSnbOh*UHx`|CEjQk(*dw!iljfoB(!j zbgkY!g|4Y%!y``Cq2Hs7bl{#GPwL)k+>mH(5fB~RD!u_(n%DxRtvUd1F1F?zpcRS7 z1BsqsVn&(Iz8izS61nO8UVXa2d84zY5Kh%UnRB(eUknyu9I}GuM$}WHu-0Msc-;>uLvk%>`@R!den(@5+{ zBdRl6Mjp*6bmricG(a2uoaTeMc!BDiUurg{SH!QEW7#&5o(Up7h4yk_>~fzXoh@za zzL!@qLJHkJot_+^AI`Jg`%9c%9FddgBffXwrb&sHCag-XTfKEGG_Y;gHE^V+aq(5j z#x?FZHBjT8TpbvwT;`5IVkLA$x8?CDxB{9q(z0W{+-IN)`z%%WS-dMX*2RS3x17cm z&TeOEz-?GzN(A%c^7{&w_3PGj&Mho*Suzar7pQi@YWLqUHRL3b-JCr>iP^Qb?AWS7 z%nm-O)~#`GR;uGhFQ}MXX7qx?1elnpUcdomo6O>?puKI|H8yH5BJq{bffEnUc~vBQ}*$tn;>Wc;G^Brk1(8*gU6Ww#3)+nmII9df7pH{vvuvl&#Lo z3RgjE8N5|RPir`2^4J(pLtR2udP5ULmHrV!b9JU+S-?tI3bb}{h zd{|tNF4&3HdCpkYDhALW4m&sK-+kh9s8H3tcy4;&(qUn9iOAmrsH`68o6i?5#`so? z=9yLbX`NMn5{%p~adDY=Vd*e=g1RDOAC*2|@U3*z!>nyC_1#E)!duVveUU;FN5@(1 z=Y#DMM^CcaW$&IiI@W4`!Fbl;vh-RsAI;a%lkCFYP4Dxa_WOuCT%*zYf`P223}j6s(P~Uoz z6G&!4eak86r=DVTJlLV0%C_xczV=wr%wdl|j!i~JnQhul%7=TUy7lu>}&i$9p%i+U? z;6wH(24>t)FQvPwg$klSxwCE*wC3>kj|85@6hP|I&igc$sbVu)qvApDnPU|-o1g&t zqwx~bPR2uJ$s0ly36ARH3x0~$9s7|#i?qR~mJQrwLTOHehv_PzEjtpAg_**Oc+cl@ zh1t}%z-fcu#>aH{c!fU6K>w8S-X}$bybN@RkJh983~H`D(^;^{sSR^_c{G1Uu6^#o z1)nF5pL6NEi9U`B$icc|zLL?q5>uD)$bnQ*Ko;_?r z_AR2H9PVv!+<-0O%^8GnLXGZeVV25cA@*otcGe8`@;p|Ky%6%^EDy>*KxCf<9`=o$ z?+$#7;q-8DI~yC};IA-uB=QKm$kS@~c~Yssu@smZE3A0-1XGJVmXo|>D7D|)7jQ28 zzx4Rcs2;WSBJ9`Vxtu8`m9OHel)4)ir|XG-41Vg6eMw7Do!ks|F&t0`d<5?@`~BYe z8osP8O5)g9d#obXf6*HbZ-a#=6(c$2&h$un3`s_QKNTZhQC7%EG`SuJHpp7gIIGq- z0yj~{IO0A!ii-CzzFG1jCwLIonmngO@chm&yw+-;a!(qQ9QOg=iQz#!KVxuEt5p20 z5qVq~D)Ql6?8UNEC>-t1D9`b=m<7uel`)Jy9Xb>f-*SawBOC8~mV-J_Y?8F{iOwzO z_%;suITw!(0qXC_@ZzT>Rs-4C? zRwVL&7upIN0&2+TXtHU5QY+vIkN*fTcpon@REnN{aocgIW;kd3H!NN#KZ?_dAv6mh zVN2q;C5Tq9al818H5CE1fROM_=NZ;hwW}#0Ia)tbe5gtM6_xeeAgzEeVcZR^3&bZI zt8W_gK{pK=JJH}z)n%xaM>v<70u;@cwGm-xrnzsjKAgrd<8^4kHD)PLrM0DpkLB@8 z3H!J$S1nsr1wLOp{jNpZMzkKDOaRWq7vgSx_#)y*vaG?>PGFl1C!>0oHyJ=l1#_I6JnA;+qPEWjs(#BNF$kN}&^)v>ydu_1%yoNrj+z1#ga{{-TPswNLrEggCb0NClLsD^Uj5P5Tf*0?D!T~j(9^Co zChR%4NKD`HqPimzIrN0KhiQZO_|`9(yK+-45v*>4W#$;7}1$|-S% ze$ZzIz{C5=oJ^^^-Cd8Ex7k-v;R?>O+U@>|55t(yEb=r9GWTr3ETf|nZTYKKIXc9^ zk$a;;erM3}Sz6PEYWjR5YTTV?iHkX1Q0%;ufk)*TiqZ%1-HG=DD2^Ui^RwWV(J7l^0#T;eeeX^EC}Z9u$Z8>LHTeT!BFMyOW1+!77vh$+_n z-G%`Xab2+DVULBZ#!J~-WR2c_dhwae86hHuM7+PA&3G2D=#dxvJ}(o)^rHbwftt<1 z2aWD^kbw^a){Vb4Z?m(31)`_0HvEpCiU6Llb0LhCga(;N_~|WJmfm?jWyi0l26hO7 zJ=am)FrC^0l?Wo@rwi#7>&O1{f^^FUf#P^*FetLo{WQcM%$0$L!hy<0x2Y@BFC!Gw zGHjvHvfBs21YsURG|!sKfI+~X@8mKm75MXz9iC8atI13WXm9Zv=c!f67&B6{+WqY$ zW~63C@15dW1+6Q4eIIP}<-%*l+(*|BR+N?hD1M&!S0nw&%Hr6auMRjIYso3w+LH=k zq(a9hd5k&rFAI^(iexo8OYzo{%old&IXH46+2wwrwX;6;^e20_f z31@Tsu#NX77RdFSaP5TKwrTf8vWQ7W;9~JdyOI6{V3d6@%HWID?lWx3(qtNO&J_=v zvDrEnl9vI}1s=crQxeiFfmiQbvw*o}Z{JVFl=C92qH~48AhpDWm3VO2@~*`=a74IfM^@v zq`webo7t_-lOg_xSGU(mWO_*!1$|dDodwqub0E#GWYRI zXaPK{#Woqa9hRm%4He$k-`82f*WVtt8bh5lfllED@^Du+?)e1uF zeR?`M*5zJWlWs2Q82wZM6l=HpwXMh#kDH>>M)zC~rLJt!6nW=8H?lyENX~qbmW2H1 z&HRKoX&p9YoKCAmLOF0g@#bKS481e3-*bzZH$Z)8{?~`*A13ZRD_v5|-KjJ+z(8nl zRW*65igTKKbB=BF0UPP{WR}v~q6-&lYt%_z!k)WdgF^-Z5B0qBGSsvBXweJUL9B3o zVWf!Dq=nohkf;mDE891Lvx|qwUbQ-mjNKPCEAMh&V_SE6bukAB-~Ta*%=k%Y2EwT` z%oH|`Kscgx5Oa5!&y6it5+9FoPdpZRD6mA!W&^Ct;<&I$%^G(NhpjQRLbp0fGu=Od zy0&88Rw6ALUJx6&0EX;)R3PNEhY5X*2oevEQzv$_Iv?ceBP5DNs%FWGl}$#}c}2^p z#^ff2a7k+aiW)K)x0}!uu-N62UlSWrfVfv#uQFx_*h=foQ2XJtj^%(a+Gh(eD`kz>9e*p zq`gX5ktZTh znNq8r`7u(2I*_2%9#;-n7ptR1SwI3T*!dw(UnkBL3<;uOJSGSwh#bNxDo|NxH812v zQsMOTcbdDN7nn9B9xI>H>+Eq~zt22A{FP|}zOGftdT8v8K;G;%?re^tasG%_hi>k6 zdq`;nSQmbXAeSiNk`*YiX*I`oo=HmWJ^j9$bn5MHcav&4px!Y;(XDqaHATSkL-h z+e$=G=Da)O`9ef{WH{cag){P^<2DoQzZT1Dt%ABst;Q}Ry@l2*Agz>)oboxAuMoci z6OQjYsz4xF4DrUm;*Ps{fx{A;4ysZQqT&n&c-x8IcemT|tADyzdiE4Eg5(p5k2s+= zc3CIWfDl3Sor2C#cQp^PdyS+jX+iuPPl#`iHPrTON~bZ#E;eP3zfPvBdpnbDXAwMGq7uEt_+T5R1>51#G2j5cFZgtCU7SX*S!XtgVR7@aF+Tdu2d zEl=C?!w~tqoY9@3ZPpg-N!8>6=dJEH)R^+bu>z~(B{FqVHRB2hlxZ3{!+_y5v6zik zHZ70)(5!GC3Z9(^MycCQ}&LYs{qcFB7hFI-Zl;mh_={RD- zm^Hd}rDhOL0AVR|C7D)vnOZfzue<{PB!x{mTakN zdKK2z7?cP`8OOTHXADG61+>ngXie=@(mkSdcQW1#a)fb0s>}L8H=Aw9`@i_74Y{0# zXyV$AX{@m4y@EaLZg)GmKm>@nwu(Y}=0-ZQafi`H@7-7VOdZL-OEPn4_B7(%Mu4No z2$7+6Tf(6wb~srq+NUj~?bO*FSKYW0>jY=w6WF~klZAqPMPJS2^3c4QyOH;Q|wKKzOm|dysqg+8p z?qb62f@#Dfnavz~{;Sw*XNU{edO5!q!$KQ(S+r=M7evkvWF94n@~C~uV6{3->w>md zk$Cvbk@G?JNb>{W@aHAuY4ynr&1%1kk(F74)zQk`Z%*P5KpPhR5i9S!EfA)7-<16r z5c{RyBHn%b5#Hc6WwpO$ZqP!GW4;spCt2-sA#eicQc+KLU+55VOGhC1Wf5cZ(399X zcBJo00sPa}mQfximT0wcO&>}o;ofNBZ^ZGb5k*|BP8$T_bQk4{njyPb#be^u0Cy|& zVSa$t^RR@6N@I&ccbBN?579^JnG;x5)x9<>Gk|bn#tz@@7o~}S0R~i*4-gJ z-Vlve{%N{~N0GnArW(9A>|VX+xz?7GoF|YU(-E3Z^O;YcsgLkNBZ_u-%h$Dwf$O}) z_P_v!9_S!tL`K<(4+?L;inwC-h|Xn!)TxzS4{LlAALLo{_9TuLdm2$)6Z1&9#}xnieVk_DFWHJTE$`5)c1c#UfD&-8IaU=1BH$lJ)F`IG-z2> zY2Gbp<$Jb`p3%MTJ-WLBbS!SGInNo7^&%3LV1Zd%mIN>@ugQRiq&bV%c>7I(hm3RChi%nf6Mtd$5AQ(Qm{jzS z!ntW5drfO;mIn`;!)Bwn_haxWsusW6cyNP8FXsH$_}e94^hch`AHilt#N&p-oN~v(G2$M zEaNZJ)Y>oW-8qv3A6LGo#8vr8Yp*lTq*LV?oJ8|Fh;Iwitcl}pu}ad5D`=~P>a11P ztnNmP#dtCWtdRIKzpzTkK0hHxGonLkhPozIL2mEP8b@T&G;G6+XOo7gilvj9!FzT> z`rZfya6@^p*x1y`lm@h*P%X&SYe65HAE2#KR$bJg*EH){Bp~j-H@v90&ZdR#MXMy6 zxL@5PVrqoDT-g*{7FiH$I}oZdpZD&pqB-a82?$U$jg#JJVy*s-D!fk}fWH<-PuT4Y zn$^R*WO#ViX)@kyJ!N>d?Vp%l2w<%%>g6U{?)&=g-iW_OczNt7-f?f*-^Szr3&qnz z8lp@Vg#uD;*55xuOH3VlNG@+nh9qTOMfIq9|G7QmBr}1v)jB9{vsnCj*lFCMWNq`; zwM+IR?GF`~zh~(4-q2DJYr;}gZ%xVih
    F0TLm9KSg#U%;H!ki~o98V--Nl`c` zBsC^d3uh=FsP55c8Ose`g!2|}24P2~F6ROXaQH`|HXPBRedhtQzMt_MfA%S|7P)kq zMUhBL3~%>?V`Nd3H}8>so7zW?*V?{?!wsL?oQzY4G=7h_#sFN_oB9DR>qQ? z(vwztb-Z)UmKi#qKe)jd@DgTqV4Q^g@JYYNd)r>&rKVkRGNY+iT>p(*De%MM<=oz! zQv{^3i$wl;k@OKP(%23mz!pWj^`90I-U|KSPi!J)QJj&sspe{b&bwR<_&{*%zJNLV(AKgaiEjSx($z|3o!}aJISVN;*Gy~bziJS8c zHRsNr0s;VH?8tMCGXbx0h95K|8oMmvaoCWds1UF&LH{`|ONJDTUL_%FmLr(7rY%}))cu(Fh*;+mP9yy5U{^DeISRv;q@aX60&|oF13rPWE1{F7IF-|a6~RvpMT72yiF(Z^ziOH z5Z^CMSFgTqO5iU?3ei(vPjQELn=Hi|++J3hlg+)Bj$>%K6oBTL^DRxbzdXb(P`#jMA{ek16?=Jpm5tcY&XH_Z# zTr~FimV*YD5LGyfO!k-94F+H_Zl?r@E!%=4m>Zo^&3lYEB%6FSF0EB}0b#O8sG(+Z z-=b9|O{zSZIk=yTob@@5soXkErcxk#4tt~hA2?bC@;YktomUpFR>gzQ{QfF6_qxBKvKoHdq|h_ zbICz{rI4je?epU=46h$VnfbnV z=Uq@r=osr0)6y}aZ;H$?c;`Qp7Yc`xsg6mFaU5H0obj!hFQlPF4mK&co*6y95wvJ# zXsTqvciUBhJ_%9atCd0qZLS_0OsEzE^+%D3jCu&>B`i3`85Jkjsh_8s}ih$iH}*nC(T>-=0} z0zc6&jlRiVEE_l+=rgi@r|Ev^2CZv!;hk25tBA(e#eOGAFE~vhv%llN3ob(7d zl-QEr`Tk_+x=?WA9cSWR@+D9tN%D;{q#CcQ^96rLow^zvaM%Fi3nR{tgZD6saI3X3 zZ49GIzypy1GI%@XDiZYd)sl#APWl2D=wf)b1vCjF(G6(Zvs~}CO1Re%MpC5QASub_ z$DL}5`0@UI3itTXvGZRr-b(3wD`C?+Gx|Hy;5+yJBX-TFN8dNz;VkPuzr%PpWxBlS zd^aIU-k1lED#}M(hq-N&JH8k;cdZn}baa}*v-p8&76(hS=Xr(LEqDpMUGPE}!5~X* z65;8E$9(Ju>=Kt)x6O9_i08@3YPGC80Agmzhj`zEi2)X$}%{ZPiX z6T4agsQ0@f#jfWRTA#MR9!Zv2D#B=OvRK|khqxgLBgr2kX4Wo57ty$RxKG@aAUPt` z?jCEKRR*oHmWK#szAj}BM^nt244qZu0E6qNtjG_xyeAL$X8ByZCrD3rc6f_Bg+qns zH#>)AK>+FH0YoObo(wn-mFtQT z*y$?ushc{j0b8euCiQ!Vbh_^q*+6b$e2`UXLly*kiFZq$^!YRom&*ePUo)GQy~e-L zEbH#?2zy{lPQE1FMHY*YMjD_GnQ~VHLxXRT!4~hWPwSV3ngoNK*00r5*H~>Yr|mU! zq=-9oz1{mx3q-~6bHFA(1ZGU2GI|94F?w>iZ!)zQrzd#Z(qt%1!69`*Y~>F3ea4>l z|222N(v?J8WP>md9eH0}j$mt)YGI*Y4rDfWe=pfZq1CU^&<6_ImQP0?k%@&$3i)u4 z)pR|s>R>vtOE046Nyr#LaS;sD#+5j@_sRY%xFW%l@(+5q%#qG(EYX0L@!L>L>*hzZ zI(}9UU(2N87`H(RF`IhgR`Wxbg_yL0CBVZ&tOP?6(wh)1%9z z()fav3x3T|2D@#kJMUR;b1Y-x!*iQW%CBRfO-<@%seugwz37qmp*aEd(swm*_J|^g za`F6?R{m_szmU}RLGzU0j_l10&}Y>nev5M6&&=PC_`B4Ng$1}u%lZJ;)P#2I-6XR& z?PI$G&FbaPbcND1{bpUqE7r)jTi)7L@;ZRbiA~rH$v#gfEQ+9c!)6tcym8F%F^W-` zA>t?YYr6V1yUuv=5d>vEukt#qLpIHN^x}F6B(U)QmR)|v0Sy4IRCO+nd!*vSgyo8t z1kD`rBICcX$SZ@oNTOhv#x6NYo*I3UEcIhk;5PSK-LfDckdOBt7sQ9CW~kpGylH}2 z$SMGaNd1x?79|;XI}x8=N2-A5v+5GN&XyW(lbGkY2SPvjl+*XK)5K-v`x!p-c&;CG z`p)CC>5S9&OFmEWe4M=LeCG1$<|DryPN!G?C2*&&Hz~=RoSfp;31h~j>hCoE$%ALC zS2kLm=1sT0yxw$S;l=+1mcl1CeDG?x+!)%3=w;k7pB^W(@Xj>w#1|<(F0M^Uk7gs1mYp6{nW0f(F898sxlg`w{1bV->o5-xxbs#ThA`P@ zo(0Y3f%3y+MyAtUu?n+GU9R=dzuH>n>;>S3z~c0XzU9-7~iL8WR86%H?h1?Y#Q zGAeCWE55L3VZ7&v(OfngKbq&VP5gi`29C2hZ)8-~iTF35UPo=$=&BRft^#%Azv}+Z zHTDH$M3zh&@ej+AfKNbk+IJY_yC7xdoNQy899c?c#E8i71K2yzRNAvEy z7RivX+P!*qhUR7q%Tn`egW6~}*Aflxk@LEFK%IT?pMs)VdUE(_*`&{%?_8;q*N(){ zcs;#fj)e)6c*C$~5P3E6HMluC1PXX}RwhgMAMGe`a+FN9b;$SToOHA~g0G?*l0jPh zxrW1Sp-bf!9r25lD=Zv=B{k|@CN}OEDM4lF8JFJG)~Gl1;&wyrk&BG6>pe z=TGQxsgR-SCXELm7I;uQK#ob^xIk2#q+3Oro_#$JXba_-%xdwO-*lL>ZU2XpqipAn=ROoOyfzBTyTDm7o!T-rIDZbcUwF=U5NkkyDGJA6z(Ob9j@F@Nx@mbJhERma3j zhtI{@Y71+hKvHDQy=4XBZEM%nu=Q=?A-=~g(EHLo8s8aXGo_+mL53L`V;`SFx)BQ? zwkM~R+is^&N(c?fw(|)6VeRM|?L3*}=`kR^a7gi9X&jNgY?cn)6bDKw0hz?sH9@-! z2WqsnX)SSHdv$mmj43SzLSt&R`rBe#B)I7VS%Jgy3~5Gmo`2A%^CumxmLwxUa((_8 zuOX1tl8i%0Fhp?i3<<_Sp?BN2d1!Qra3G^nm6Bgyc!$06I>N?^_<-_qm}|xj)(5|H z5Sc(z!h~DJj8c911o;Q##Y`Q+$T%~8kCT7qK{Unc7ZH|~D3i3%%Q_f~?Iq{t!GB0W zx%WuAD2>-3ny95O(aDl(3nZld#$~nY4SH$p^V{MGJfXyP6aRmy<$f&*5hx*%_%vN4 z5(1l{qo`~j&*{wr)zR&un#~;24QC9+Uzm*e;pF``8IUgOlRSb7zMFWrfTrT7d@+)= z%tsl_UCruCywj)r-O>x)uvS$1@?Ox}RVLBS^wBpne)Ns~|2_EX^R=$rheujOj;>64}uD2c>iYeRpl$$)ekYsF>>! zOYV)#>+ zZrW9;{8qvVq_js$X#lsTjdXXh6rOn>ffi2!{DX$=v9I%e*NoaO6YPzfJd5 zbCa=+?Mq~|Y5{GSXEhIkxF)Y7zMHNY$uC?YnFKRlG>@rY>S}te!y*J;&Xi_lbK9W(DL0#pbxPfFghQE*~Rakp|zxpb*2q&nk5m|z+$vUS>P3xM}Z|x#<-v>*? zArMZ@S0BEm*?h&a+%0NSCYd5N!~|30sPSA5!sdJHt(qunvBM?M_chIGu_O}|O8f)N zl8P_}wrt}%VEyKcu&Mc$m-iwzMlyeiXfCog9kkBVB|t|8w}zgAEXh)laC8B<)B|eU zR%To{U@>c2!34AEETDv*TRpQc{v9I4^#UK3pM%ewhkz13Io1XfyUJ4W%ks=rkNp|E z7Lgg6#;1gHwX6oU!eR?Q*={pM{KTW95)(wU<^?xsD`6}wfVCr-t@|ivM7KHK_JHw^ z@M`&{4#ww?it`iV7WEXib>>k`8xE=8LJD?^YDRDSLyFP3=*7vHqUm|BX=AlW<{M1n7Y_AO_6xn;56Osb z{!lnWEAq~G^(tx)fO^J#U!GmPKARnV$2>G&Jq1|L^`Evy3gf8-MWqBkIGQjCwh0l^ z*$?0jhvJD;vRn?SyQxA9@- zeVI(QD8P_1zzn^YBrXBIu4*&3>v`zlypyX?v%a6$zPID8gh-|k)~tlrF7I;XZg-lZ z`prU`@ZwU@_qIEWw#!{jS>q8V!MBfPQE>&cl7K)YiI8EbaOwa>Nl5$ zuMO8>2y5+#2;c;7oYF3O!(g#_U8MNJrzI`FXYClf2hkkkZh{QD7I&uva?bV?Yn9oP zZ_Q5f<@`Ca*xf!SEf$#<+wNQx`ZRnURZ6!Lf^(#<3*-(@sVi;e3cEHggZP5lKCo*` z8eJQfiSfN#KqNC_!5~s}USf}V?Pw?%8>O3zx|0Jr$9u|kH{m`e>n%9qPtSR?ea?hf zWJzp$!o1L@Kq3x?p-G^Aw{TplHshmSq+=Y5M z^@6T}TGga;gRCP4JWQX2C(Zj1<$fJXIRYuW6Wyq%MXWfRK)AO^AY7!<-fiL(KpfmT zlM{S;=ZcA|1j@CxcX>gvw5WIIA*zvD65Y{G*XPW6Upw8g|T^%XX1G*%dZT6%+ z0|*WgSYBsiOe1r;?VOiWy4^Qr;P7V!^AuJI9%e+(ary3x7m{ z_>G69=sJ0vk^K$VcLo)mk=Mbmm+fB{2yB?_NmQLby3!l12J@d`QZw1Je9e;?yaibs zBNE+xw=<*Nj^(@|yY-UP1*B@G2KmqJ!ZQH*%snCr%kN~#+4#hj@q)|qx}AZX{Wg%` z7X44%dtH(*aevO8s5Iv}+UHzmExq}nPldRLlZhfN{Wq_Slp!y3@4;l>k^juvX>>yR zDg8aSn|tKK0BJ30VRxw`V0?JK-QJU}w3YKlWa0Vo^WD(ml=i66sx5q_RILq9`o2kJ z!*e=Qm*VLl^kThyw5GnC3&>Z5-PW z(0MkD$g_8J9)_}JzI1a;V`4)txuYrcccv~@ZWXhd41T52-B6&@zciw{HKVI*OlX*^ z^Q4g{;(CK=k^`&6N4M**RsFh1z^*o}kt^Ar(s9h)8ZsA-uF3|NKYlVi>Og6_mX&a3v^KUG0ra-xw1u2Jg^oR^lu7pOmuuEOflo@JEUbrXLu z2&=4NKlqXE5}U6jiGoKAOblfJr&W5a)AVak{B^^fq)M@`k1qDAKf(9zqy*nX;}U$1 z@d>`Wc^(V7e|JKH?`ypKCh74FjRoo^9B5?wymxLmlh@hVnV!R+q`cnFjzGr3`|UpUxLX5Z!UZuz0SwG7tm*vg^XG1SkCi6HQEm(Yc>9&BBg z;0z_Et%DkC$N10X3BJJrH%r19Wz`59nWetL{;W;d;GQz18{)MleQWy`ZP^~|(+0;ox)DYaLN_=E z;x8TVLmW5cn|xXxQjN8tyH?`79x<<$h{-S$Nw_wk=g!sf8{z@--D$T1yO*N>3s;fQ z8cHWxbZ88gF9b<0OgkoT_E<@B)wtJ@cFa5|o=F7wd7D46v{yEv#dO@Zg6>za8+9%1 zaS8(@pz@jXT|f#WnBg7{$s07vi0MPM`u_s_Y)>xJyx_;RmV#&LS&l~)TF+6Gc(8S@D-d~5P=&3Z0Jfcb z)AM?B_J>nC_a@~X>FgYvbHsQ@ny4Akgnll;3duOL(z{vsOA8w$#>5k{kj-a?JoJS# z_Tlf*nJxldpZQE)*GO!n|3+tpoH=|E*J2zJINXRmYrvdr<6~!H$Ltww3?R8;r zN6e~J)`_Z>168?O?5gr}n=h3~cRHHg(OXt(!=pxDgCtZEm7&F>>Vo=|7Ea;*t;7=& zsyih-qn|&^`f5(uErC!rG$paaboIzl+SVHRxoXbn zxQ&>O8S0vBv6Xj6J?4UplW&?YshW!kp>r5x(QMobJ`G)DE|5cFM(hupl=Sjy<+4g} z!bnC28Vhkjqdw_a^fm%#wZWA?t9hEpmYf)c3<2z#*jkUeWQ_%|WI>}yIXA1g%$Hfb zc^!$9!sEil?r^aOK}!#eGPqtWn;!S2SP-Ik&*ei9qE|?mMI7J}!t(jJA9mE_cmPv@ z&)(?&4joZ8eIN!9@gwz?ENy*pe-@*2MEJ#;1Y=xbSC*($vPc!Cu~m?ebdSgiS+0^z z?0ED+3heU7R(m2vKGCIkD%BV*Bk_nbLuzG%s8oN`X>K;q3tKvhLlXaVMpAYX2kA&+EjYA0Suxwj+ zDs)FDBCK|JZ?(*>eEcYM@hgJ(M(1)POvq4^TnS>@A~dGe><#kDN6(ODcW61btJ|4V zL=m_8FfqZgXCB#he?#)Fi{0*BxPQB@B&V~m((Hui!9+kPLX$m)TmJ!S5edjbaqce| z?z!wvgwtgqXV=!{#p(g+B^4EsVAdtG35gi|Do@k9=VVQ#9I3AW^w~Mxm8d~?oYGwqeY`L$Kz84! zvH~)@+FscB6RG`PSKDiAesc1)2``JCy5r=l(eLUGGeiGZd<(^Iko`O+zH8r%*}p<7 ziz{0Qn&av+dSmgqlm_hcGA2nP(bJ-@e(lPv@4WYgzKN%k8>@%)E_OWD=X8$MnZ&(( z!SuW|!inuc@j%3L?53B9XcT&zUT5kk$xF@L&jpHt=zVdFsHk<|5_t_cj)p(ijFA@y z0RO=eMXB`ea z=DL~rM_Lv#QS)lerWyH1uw~(roNn$`)Iy&mwtgN9bM@T<_oZ@q!{nHLtz`ow?3`0~ z*2+KUdxQD`f&^g2;?)O?v~!M6O=T{bbgqyLrgIT29#(yYEBad4V(6U^1rXKUx;~kM zt4xgEU6_cr*Fphc;3vku@z!9_W6sUUpPTD#`?*xtYk5VYeml|0?L6q%9IbDswBl6n zHWv)`ZRR%^?I)auS(1^_z8l*vrpF zS|B0DF)Q%ySn}C!cyw-&NX*%vcsv?FAr*wS*)4gD4QP~-tvZZ%268?|g7-sko8G}c z&6SmvfnoC!pYeWS&R#>Mh%ABKSCuXPxiJ=tZ?E&*_&hd!rrTiWs0sBDLdz}3c#UUeKsUr|6 ziB(ch6+Nv~C>eyXWHX^*C*z&01LA(L6>DVq<)_d9|Yb00|Cv+FX=Si9@0 zf-eQf6f6rS&0GI*G?n=(%jrx!oOpbRpsru#oKp$(NA&xJ1?)e*I`-f50di*Ehw*q> zJBVb07wVccc#S7%omm+zuSlZ0S`wa_%}QUB zYIZH4<}q?!A#e0Qq{8ukdK_3T3Z}Mu%eOomI<+Wt!qSC|Bwx_4!eM$|Kt@ATK7elfV=byu zeG8tsx`v-wl?}J)`MMr%)7U2m7Kxx!03ko~cOm43UDXYD>Kx}={OHXzA-Tx$ik(B# zbK?V1am>nl7WV|U8!;FVUn%hm6xR?5CyJBM`pJaZ<}FJlcJf8$NU{LNf_&xOBF=s? zyjj)Uzo$D_!_3W5KPFvA>qU4tQ^M3-EeZH2!XXf{WWQ7$byKa@zwlxX3-mhi@A2+9 zPXZObOb2A@aw8>sxTq5o4HB@s{(g1>7gx1y;fvCm>F9fySF}BYP+-#b&uEGfGl_Q? zXUal_8r;`OTme-m$RE5?kc-Xv1E3F*3(nhk?uk@C3HFyv9>VhL!pV@28Rp)|I%m7P zP$oa8rxMZc1F{nC)qeARINm$j%ab_^1kG=0{5L))Jqe55Af{e+2Q*9Kj(-f>wN+#i5l?tvoFm!H6}F8yQAD`oGuL|8Y&S)#5}QDRiWrXOSW<;*EXJ-ghHXr z&9iy`b~*Ae7P&J%?A|pK6zd|=7G2f+nxE;-%yqV90nD!%@91XmMIgbmT#ddgN&iq;z-E{ZEZI)x zd7N$*`h@ZvrrJz%{il+(jSS}MezWKUCN+RGfo|NFqB(=;c#J5tc)|OqxQ;T-4)Ytm zPxB>b%oz)V3t0Z4WbY2w4N-CF=5eR11%m0?N#_HJz4`Mq)*vKxM_j#8Z`G1&wT%-Z zfDy*1j3EFf8P<&ae>DG5hUFs-qsv${m0vu|oSrkpn!o7)2)ct9Aoy*!E_sSm4(pp{ z?C5=%k(=e&=FOf+lTS?-JJXFYS%*WDY8#rE4_RgE+b3kZW+PrIEK^}<9{gMx(7wFg zliPagOTlTarfy%j?!+ijdlI5hT|`{5J;KGphVZ<*f=6%Z5%bSEuePT~meA+~-Kfzs zW|k*8c=7HlK(PGd-tyzM+{&&;lX#Z#^rT#Q<(2prCq^fjFXtQ{)nPIqv54)ynYwo^ z(+%|IoN9MQ<~g^|@y6KvKN0dd1U=i{QWHf4Sd=w;a=PI`sySxBeOxJlcWisXHcUGm zk-G|wk6ihmt-abzG5ftc4tM_Dz3E+{;Ps|O!Ry&)>Lp^?~e(J<)t&UC;yYs4sNYAI{$8*y0qo5-W}op%@wXG(!m$Y#?J)X`DyIr;g!T=5SG)kiFM_(_60v#WS8?xWJ8~|?VNl;0yp^o zMb@dY*B2hg$a2kSc@3 z4|*#b_AxBtl@`fWb{^!Gz54fm^BY6xCn!iVtahNXu0}n@e#cLsJ~gK_Q>M9dAQ7QE z?Aw;CE#$RGyce{mgq@bxQ7-K8f3gQ)lKt)9kd68>DkCdXt7}x_P?a04D$%dSD{XjP z`a(6bo2md^(j93$QKRy7F^NBXDaD=yf*S=H<0WORcJq;SC;AF_zl#zvosquz?U#~I zGH@7-z^D?*HQSeRTR;M>)>UX|ET`YQKK}l#rY>mHRhED#5U1T!V6w-P{Wy4JUqEf#= z_22k(&2%3P3zRVb&+d)|`s z=e=%zxU#5&&}1V1Vrg(5cgguELxPjt&1H^4IVmP` z6;v0sgv}2pz!rzOq_7Ouq|BdRCalRp_2?U%b)bYgv>Gxr!ru&@49zg-4(PRaF|GOL z8v9%@7W#-Q&6-7WDkR0#_oI&pP1i9TJ&pcJhkQVdo2&25!j7m;J&QYnKG#xN2220^ zoI1gLcjsx1`A1fUD{s?iPcL%VF2hZ?iIBvqRo5rW#~L8#SFOmZWVD&J>f2(7J0K&S z163h_g^YFn08uIC4~k=YnSUT&k-g}}J{bWWtd`F_9-H_adonk(gU_*vcjoepjPEWv zt7XJi4@4eqWy#g524RW^!fPsI0L&a$d5<^VI*Z-wVRHJ^6H^l$(G|v%GO>=}gcGH! zZwrkzItFpYn0k>`l#t{M7PQ4SOn~Vr8{(mui+Q1s8d)B-Y7LEm!{qUkV=?mpQD=R? z3%A8KesH4XHnCZQ?`<9=){Wg(nsN3P2_m+PW0XA@*05kg*d3eLz<^-=Lf_BRG(QQ` z9-p>!9zg(&4>Gih_Oy8%4%asVA^{sB+@ZQcAd&@O&2IpqY!2$i+k>&yezPc}u7+2E z@cIn3#2P@v^NdE4GNEal;UcC0kx>}CE%>0n84Rzk;G#;$g%)s1R%7jKJlP@TLKmCH zKE44;Vr|%vGV#r#n;N(U(A;?QJ3Blg+m`~KUfdvwmry?|#9y)84+`dM~hJddf)8oLGC2s7?7+$@WKcYzLxliC6c*ilY zPVTPTm~Ff_2*6`4ezPS5rU1Efcx6U)mBPw>=$5txC@DM50~`$1O&oc`nW^&?#71t<*ymtskm6(S`X$c=KFek8!`X!{;a7G7)A(aw<6p4%b zq&Y?Y>mMg!W2$zVS1IJNT_lVT8ix1(Rn%E@85UBa#}p%bYX;9Galkk$QvIFqfVO}Pvjj1=33b$7lanENlMp` zsO(#O!hC+i$C2pdzx+!WK|SEtwQ(vAOOc(or7@O+-kqC;-bCgR0XQMjDl~@+&%&El z0lrPAe@};+UyuB&cwp?7A7Y0i*_XI9c``Z^!o@^Vlw&vXf3_C#9r@l2?Bv5+3wSoS zR`55xb*_HCSwG*TpXJCO-YWH)TZ8(!iN8dm*(NgDl}J5%wz=&mz#N%-dtsPk4xTl$ zn?D}LLD{w3y94yB-rUxJwcMtj-=^{-v7;WFp$>TUcYJAkKlzpDisT>qH?4s5w=Z1X z{z`jIbL(GPw_`JN;d3TO2;7dcwyYtJ%JQFGr z2zz&4KVN=y%a2Vx8t4!(k}FA$Ud}@W59a14Akx-*v;7aUt^K}(ze0(~vV<({XTqC* zO48Ms^AASyV#x%pxJti4n> ze_uaKk5BYCgT-R%lN0&<5c)nC$KSQX_**uFztQoLJvwU<1KL$sKMwgeuj58?v#_rFk+T(p|hF zduWRBb3xd%wJI4A(Wo5eR(bP;&%UX(*I66ZDe84C&L2@1yEaT9+k8Aiq1P7E`hZbR zZ}egWwK=^;pF4WqhBR1BG+#(LqseBGKjJy8Pli5ow$@L$QU9>#Mt4@Qf8vy!|h6XttkwZkTdei9*1!doo*P`{L!$Z(*v2e*^Q? z1nB9q-s59nyzP}6)h#v}TX8OWf0l4`Khek&-Ym885~P)S!katz+g`jnt3S1K$@b#a z>K|G!V@>m@E>XzyOTnJtc&WUy^|t9JRm)_JV2CaNz9ffSt#hYyT`b%`{xTZ;b}jPu zMB#L2@auKvx{Q;5UcW-H+pmqcYCGRcFq?el%xhaWB&CE3EHn*zTkEHvtX1Q!Mxv7} z#HNWw)7{u|+-=og&EsP*NHl;SpNE)r>;9X0iqrKth|MC@4IkGUk840QI(k~)V(9X( zs=Fw~p+rurTc#rNN z1E#)6yZ2Hk^{I6Jws;Ua6kAe<#3OQGZ(Wzz5V~-F=mG%d|8eV&wY1co^ela$np@u1 zV#(;#(Qn`5Ey3^Ab^5jF@`UuSIH!NY0J-H9R5YMju(7aUAWIKS9Sj}3i?32Q2m>Kb zB4eqH+>H(vtQCHdl z-7IH={MyX53$TgQYJOuNrR6%bmaFEVu-Y;2vt8Pn;q63Gc1JHX?ncBt$y_=!I*th> zn2BW?D}wJkFb>E$f(6F+wC>!yMOL8+ht`2#O18{gWi2WX^%V##DjQ=Ti{&t>05-W+ z>~mdQ@G8Nx$y~B7{$amyO`at?Tb=$7OUMKq21kY5yMXRk}y+Z zci@*+g=QB5ZtPr^c9oVS_?Gjjr zV{bx|`Szf(ewO3D3o$X7I|~~V?sqG2+_w}f5i%?u%5d+WZ9@}$#Zy|YMMzpuDwA}M z$;lLLVPqnQcF<)@#Jd;AXbt88p6Y zQ3a}Ek&HxK1JN-oNxq@)`DOk!7h-m041C;@uEVpLuC~Ke7DcKXe@y!EZkuqg_SLk{|x`LV70%;}Hjo1OYb=R8?A=Eo5C7owM%1a$@K?S;t&KWRR%;CC$( z&BfUO9yAD-`@(g8vv@FEl%efPGV0WlH?=6LPK6nr9*cB9pJw8nw1%JtUe{V1i<~co z#@b_%FXjWJ)9_5u@Qfw^NWX@u%oQQ-jZ+`Dr0kZF^6rS~i3q%RT><&3t;#?0^a7z{ z-Z|Y;yd-7si#K4seId{i>TWK_kM+IzvyHi&4cm7jB@+k)wO= zIR-8FX}VQ4JFdX_%UkmR{!8fi^UAiygB1US7Pv*|JyVZy|F5cSlHbl2Z<%&Vqdt}ul+$9#F&M) zeM^*k1WH-!m-y#E4AM;x=d-7n8~lmALfoxwTXT&!v~EaA3eM^-OGz@z2f`^PVkj)H zo#FBUM5B!f;qpNYxbbd5Zt>%{*u?jFba-Q=q$g48Hjb}V)98~-Q~AK2Bp!Rp2lYH1 zR4KUSIJ{>PHAJ zC~d7Qr_j0hD_#CebZ4lf^-vXYWl46QeAErBVU~u6I@o?D!&p~UHi&A3x7eS(DlqhS zxLy7Z@qAR|QeQ{-ZTCaZk9km2So38y6-#WmnMlz< z{=k}XFd57P(t&bqJ74CnRm)&vm`64RyZ_a-dqj$19#{WTE@cT5jg-Yb`#kTKk4eW2 ztIn)lhPjRZaus`-91;fhJ8Y5Gb$vPvEPnY!2I&t?!uRU1%UzR$~9Jr$VO+xFIEw9LqS2RBXk66 z<=f?|mENx)z5$sjM5LG`s{j}2EMGBv*&ra&@&_$X{8${$$178y#M2?9h)Z1R1J;q; z^>vK3?9(k(xvfhRtr)}*nOmg9H2~FbE+RVJ$7_l3ea72%AL|YG(MT=&HMl%su^LJG z*gIpb<@8F?v!x=z>D}`kYL;*Xi<^zJ&ie35T=u<>br>B9_1w`y1ZxRwr;7dy@SSyT zSRdJDgS1XvUoiwyadhXtVn9mN=85DL=l5L#LtIV(Te$@E_47^q>;FXTV7(a*S@*4G z^=C=9pf{Y(r7%6DGd^GB0cn^pYjtYh0^M__lU~zZyK(ghS>eBYv>seA)VdD-$V|}2 zJ!FtsGWJ8D1!(Hj99`Atu2$ue?M0ILnDo24rm~UH>JrM6td4=OpbnIpBU}=&FAw= z#PXAw4mGu8*p#VMa2dE0%RT2;bYrS)(!0LH$$~WSjG34~x@i?POSyQAi)i%ZgmU9XH=e@q?MMo8}FkNb6RKMYsWu^T* zm#|({q}R@$tSgci(wGIGP?Oq9M(_%k!slgp@pN5DqxDYKEry58^ioWuKoa^L=-MTh z7m+QfN+esUtSsxYQ$iJDYENJAKaF^w%V) zq@xvv%lvqDk-Pa0WB20}bObBRq6$vyL|4N2@kZ|s!n73yuQdirf>(?F>IyQ(1(Z-hQ% ziFvu)(925Al&yHYN&%91pD7a+tX}8S>~+3b7SEyz7=eB4^Q`l7&FO}xH4=zz3I~Wvayepk9FIY_#NAYH+`_E7sDG z4X7Z1lhc54CV@jyEIJkjz$|bYoi0h`-hhK@%8gWrsuu|vT4TS_c~&ANZM%o!oO~at zN$}|_;b*e`XG*BC_GdKAIR8Bey6bHU%=`R!uBM}X=TnR9%t-nj+P2%eo~|c;mjg;i zS4)F1E9ODtOk!w;<~v-=)Tcimt~(x8&IZ&gyz1Lah2%Y&I_Xx`OM>u#88vb-)_%s* zvvrX7wC(8oSII~Z#`3M*82;micy6I=(KS{C3+t|RZ`&5K8E2A1Q|!I*t|2aEL$g{* zL(v6wBFRp#X&h6lR?wEQ&lkORNljxqVKu}I`__X}LrQ2o-4jmC3dz?eZku)|y|rq( zF6fsj!{4=BBMY)4u^Y(fTP*vX99<5o5B0fPmQPlf%{OT%5VDP>7|_htvp*B08`@a2 z^z~r>i<$pls}p<|-<06Hg3r(R?Bz3-`HZhM`8JDIVKp(t-acn02(oj%=6E58jpOwFV;+ug{1lrB^n&W1 zZ-AisGPSl2hET{ZiQfQqSw3)a|Gf$XYsdAa*lunTwmi9}fwR8r=@J)&!Av;JGdf<^ zwETgfPcZ%mq+wjzCh8Tk7MiJa!AaW~`brl9bRm;23^dRM9vOpXbdwxOH)=+A<4-jo zg+W4STw_|TS}9{a2CqVH|L!z+Ims4B#}&Of>8fV(M%EfV4!gU{ zScaCa8t5geW)-+DmeCE*d1 zRm8UfTVmVrCE`mrmm>F8F}}si=y&{L%HbK0w?C)aeAPTcCyK2u%(A<%&IMypAfCm{ zjop*^3{k97i_J9J1qyaAw711@FEXrN0BoNC8-)g6a`UsVa*3KrpXiVch2j3lG~2hI zBeLW6;^5`9c8Qr5DdN(sY;M zY(45l9=K+0)UUIscLlTvl?vSfLLXf)RR|>4W3mUS8{i zW4|!;|IN=z&J^5l%wY9$@exxYelCw=r~q5e2B1+cu^R%hYiq03%V^sfEJmMxvwD?z zV7_|sTHUs+x20Wn%*o?xt~b}LLJNQ!b~Gu!+q<|sr=MtH2=VVdmiI#2i48AA3fe$9 z>2+iybkI8(cKu6n{!91%U8)fz;JdF6bHaFcp0mj;x13C;pf&fQ$yJS+wYFQh+7G#) zb3$`Q&}WR&hZfo_=sSxn&z{K~^@|=hTSqJ8jX;^q7osJ(a5WW&O5qS1=zxug*a+LV zFkyM0wDy{jn`cnsA3IWU>y$!Y{rYgBMa%xA?_|T%MH9i1r9yeE^_w7JW0da&=+;4? znrcy5OJH)l?{PLKNufavHwmBt;Yh6yFF{wwbp!r z(HL^jw@a^~5@q`@BGSlI6D37tFSA$5D#`FZ+!ZN!l;Jpx0F|}&Sd)5QP-muPW6Qh@%HbIJfL`iy&$uoY^1| zDeGwzqFaJsAae*VDL8t32&oSBxrahCbfroRE= zX`4RduPayqQqFB052su|A-=$7N#M~8LPRNzT|AfQOn@bCbg9)(BLJ^eud+TY281k#BIxl!^C-FdS~29TA`)t| zT%hPNC63r< z87!Iwmk|b~@%^e$vpc5+z2utm+~L*jm9we7o|kLTxBZl7j^;(~LfJ-S3$cP3n1q%V zip?gY83VpYvkj2EjxPH+NXD7WYJd*2*zH}6$p#BKib@Pp&BHX|t|Tjs)UXqf$Wpp< zp3T0w+r8?PI9D` zMkij+I6Y=U=&SMMG?E1?>G!dJW2;E3C6wyZEJD3e5Ee%|-WC(N;vQ1~c92lQ2-=4v zbY(&H7zOEbTWsZSp-0}*1DMW3Xg{Z~nX|Qnr7*cMjS>F`O9XmKuy>h2ouBZ@QXT>n zKG#6S8sBMwOonyYu1%vWg@=~AIBV6-7O|mH9i>@rbRy1kFjHfZc@=$>w!(AWa4Crl zg?73~&~1)R)%-i>WVV!M|J+JqH>tF8eLNdF(#8RAe?uRQ^{W!X{w&xaSMvt?yLwq& zLw^w4x*PD`#I?0(S$G{WD>1JzyT$qNJafHt6c$sT|Am{%z^3?Scev6cbc<$VO%>{? z-p}OJg0X?HeuFDnQHEV9d-SD~8!EZf`{>~9l7 zB{tFQT{D}V$-DDexeYvYg?$ZMa*>U%9p9H}2ZdZ3SCCx)m!vFOwj%88G7qlkdkk~# zbKo(|A3T)H`TKi+64dE8-sxY`m|3T;v{nc+wJV+1A^?tyN{LolDYc74lj`Hu>iRx5 zVeG|L(cUZNl)Lsa@6NSuHG^t)r(4uHE*uqEE>c{lRh^Koq3WI^a#k}AsHZI9_us$t zPfK@w@AI9ZQ}8c!X0-?{eot9>8sMTQ2cq2b5iNc&EJJP=_L5R6EW4+Wgl*SeZ z&-FFZ8VHqhBk`JG(7I>Z>khcg5V%NmUW*APEbuHc?@rH=bcr8qhYW630jYSwvK7nW zvoIL48r4lETW?k_9RW!TqQmp^@s*Sw=HLFp&)w-P7E5|=-*eThp8Qv`4NuB&`QMK& z|L?l|)t@VW&*<{nc>I)UDiO>X6UB_Fa2?dhfFM zTf29MuaH@(b?;7JA+6ah(Pmw<`f0q_IS|JD7*p*pz}J?^c`vB5Os)WvmETjMg?>xB z@E4#R#G&PgH$WPFNsyXj)gN}+L$$^JG>$&wQtRc4QT15!Ys2?d3%}E)=9Xnh)+Ex0 zwecH$=?J9OT2Y-Wj@K1B-%NzIS1zd`eqD#|BV@Hp~HE#$22J}T=#9y|SbH{NJT3r@rOpHFS zamux}SQ23YAwNf*>4Y<0(WJigFr~$>ZUh||l?P5SP4W!vNf){!EguwZl2)T>=1WDt z<8YKxN!hZ9=Re5=Ln^^vZ{=7i|*>a)6OS|j^XzA0mKI>PXtLX<{R1`GPixCzEBa5#giHWV&Dx`huVuNXywABWU{Re};H4JY zWNCyG-5x61W{TRny+i6Bmy#tUGLd2BUUC#gGA#LCcr>|^{3UhhcQ~me!+MFT&bZI* z*ew%5A%C?U+A;+HiLOs{(4v2PK#E#A=m}kx{_S3pMEB;lptnTJPF0e?Z?UlAnWFSN zWF6f@<2miATcmIO#(`Mhi?Re?-O118q~Odx+|m`&68<#RKK0AJR!dW?mX`YZen2_4 zfRlwH6q^>BjJwPc0D^gq8oY#85`-Z$S^@w@_5N+G?a&(Z8oSPeB+>g7!@ZYE%B4%a zy7T2o*TBf^Vd>LUsL3Ugq2DZZ7=-4AK2ZzeD)U%0!8}g9q&s#&ChU#AoC_@>lmWf5 z9Q-!r0PjzRs#-3_E+S{vPHH@7RkB5WFPT?L z&W>}C_a72bnzaVL)$HB!I77p;)VJ=NTJ=a9L3JWR0WlBw4hUpr)jhCAeT=tS=pY16 z@@t4>%b?W%@NTzj(P%lG$a0l*YomY9w0zTb$(q{vKHkB0csD zXO{jUVgL3H`a0apN~!ZGjrXe;vot-kWe20U3zbIj{txtC54sZ z`W;tn-}~>3!5%I+rD6MTl7aR)g3uF3JcDozj}hfTzQ1RGKVW}vlkdbj^(Ve9wq@wA z*#B^!ju@z|9WP4!352hGNtF^)gA-&jYatnBqjjB5;pdB^Ulhq4x+{){VyXD-8p67C zcz0%&&RT#KW&&Yc7p;=eg5DinEFg@jD>&MFG=V1`U7?({+z{&?*LE2Vq72ughbu66 zI?Nc6P_CP1JUt+92>h{C9zaEy0Ib;_!lR8z7E$R4A2l&5^w6c#);>0!oHD6|O z>pI`X-nPeiHr9EZI0P_w?#QZDZP1`EP;J`gK$n^rOG_*QZ6?Jr_mKMOMfRkQnD3R= ze4lEkDcSpn=JY*M_FODI5M28PMgPe)=TDPS>~7_}JUk_n^_2V`evc_hl__ECd=1IC zObhhzFEZ=;@kcxkO|5RH(*?M2nTZX4hb4yL?dg=SI=n`S5 zN1p$=({PjSKiRE&46&Z^$*^Q5^{^hg@SiTB_rm0Xra+VB?sw}ZLn=5#dSeoHFY1rb zIeoX2+m@KO3>`sW{(nKfmD-eAuzUAABL+D_{uJVzc^~%-gJa8x(JK4aOs#G5Sn9L5 z257Jgj)^gFC#Ak0>04^AusTXf`Yh=;Uc$`FY=fRMO-k$9K%Z_ zTx5M#m@ zKBLetp4+&aBPXMxHhEJSDH`PCs*D|NkP?mOfqI2%g6ve-gpAc!7h=qGZ&rmlZ&_W~ zscwePgruPzao6E%Xp}E=8|4iNv2Bl2ox1gABy#0L-K@d&l6s)ub7@+96Zw+R(R8Sv z4)ve2-o=2}50|>?yHFA?%B)-ylZMvq4FNl)~tFLvsuhLV>($j}1 zS5H^7&HkZn)*7uoFt3qn7qDooZp5hqonbkwGE_okBgP_+=ADCeRF8ksu$>BFiV9eF3L3CNj!OE%aP!f+C^nNN;hJH zhUaUe)VZGUd=HNQ3UtUAiqy{fiDp{)@ctN)Q{6F9^HS1a=pm6L#z$g(x86;>rX9s8 zp(&szY7)m~Mc8fQ`0QB{Tdl*n`?^>G8DIPc`D1b53rY;PA@wt26lKLY8Z{FI3nPAs zV823EPr1jyI$TDwB-UcJc8-G*6XY`P4meo9jqXTuK-PsHU#n!IqvRiI9uutMk~_0M z^!LULs&On)3#Q&Y~>^gbGyW=QR!9*mtev-KTW|!~^=fF?zmlhLnFyenh;H2gz zIUL(>PO0xHOmaJ6?>BWGBRNbs7ciM?*$_Do0jP>J+rze&C}3F;zn%rFU;RWvco{}WDqq_v{%Z`Q9jZWxMr%KEUT;40iw=bN|f|IBx^XnqS8$Cv; z4C`9k-$Q)RGDhZ7MPX8slm7G+dN`=W%!TNlJgdt(-_FQ;K0Mctr8v=6pMet)>Xo^2 z#rBdEv&#xGZpW8k76Ni2LVDk5_P0iWs zEGe+g=j#Dn`BYS0-fc_a4e$^vya(4ORRRITfUU2LL?Vefg6Z(9ldZIwq;;21P3XH! zUjFGVu+0%n)vfepkW^Kt2l4->IybkO2u4!%2s*_(W1lN3>?Kruh2)e7vl2}pFiIB7fgQAQSOus?8s~&KNbqxy|>@?Qii* z$b}AF5qE7Y@te==7OYz+2BvJf4wDdhWfJ-Vc5hBknT47Kt(XTV#=LV*nTxnPYHd?#dZx-2l9vW)0>3m)}_ z8Wy#4!?p2z1oQwf?S)g9vcw2!6eQ;5EnON!T1#s0m(@bt*)WH0Cc!ww2T?fBEX#7P z@Q0o4WrWsTl$DjZVmnMIS9R2>+YbOBn|H5MYapoDr>8J->^OnGSw1sdKBK36Ccto< zC~+kQQ>*LL>()AnY}3Bdb?P~f6sv`})hVA8F3)9&P%Kx9sm}lmZcggO@nnDx|4?Uq zkJMPp%*1~66qzt%iPTkMj}z!R8*6RJOl&XD+z!K5p2cF(>k71u@64bg0em1vJ}3xV zokU@2FJEnk=V(7hv=mR}_VU%Oe?b7BAv0>$j0}IYSCh9THQpU_lft-{;oKSK7LHQC zdhFMq#oFsu1Gm<9yo6FoJ-WSaH3y+2;1Az)7z_4~x<02LlTNrLV&i^BQeFGtiE@`O zSZc1!$a@xh#exSBV4A^RSH#~-5K6ggHw(ABvu8rdt+%-bqm$bUT^Q?*G0uJxN_)Z` zOuSSd*>II-pe6GRLNmx+odwzWAa zwHTAxBqHG8a7(tMoMUTkkJa8k+n!_Z1iWA-ktE^`wDsCnw8y&BctNU=fHL22y?f6k zfTw-F|MTZzXZGd2zw2FVz3W{U@jm9>UhS$$;+GT<`o5~O9dLSLU$jUx za6O4_4*7yLadu$lah5f6WbJwkWIIR{`RSNLbyQt2OwHpE$9ky;GC%uBS++}`8Sgqo zTUR@4%;^gS;@J6zCfFtZEWJdq~zw4H&haH9*~KOX&alozgcNrCtzm!*Ip=zt6z z>twC_NPt(%(lUgegFwNVW3)?zWH+{O~+-KCQ2d?lJi>rpjpo!dJ(U3K#z4w{i!Enic-C>*G%5o#xIpD!kz* zU9fa%4aUCQZg2$_^)$E!xx{$u)zAWIZ;`S1wCxR=e*^K;Rbf^`XNDKMTtk!7nj0vB zN$dy~!6{s!ZMl{r6RTCus{sHU>dZ4VxKs3S=MlB06K~hs zQ$E=Uv?ss*(E1uQXRFq^`T}R6fM$=+J;GW?_Xs=ge<^e!GdqR|0-rV=b#_I|JpPyT z7e<{q2)`{0_106^Br_sxQl6S{h=@#);*-YLnQaqfO#pK9 zr|dlegfuqEN_=`g>3tZM|BX+Q3R7%SOj4i1CY7hNNj{rR^1vo7H?O}p#Up8HJd)jy z1Rq2Dg>#bb!c1Lg^GVv40)}F_Ii0hJQ8xg#AB!By+|tjkqB1Z1#&AKV@gAFsY8M``vpW_#{H+C; zgJpMA7HB&+W+5Se$|!m4cUL0UeNngqY9*Y(-LhYSb|*KJ+`xXR&4)NZ@QDM2ro71e zZvRKx)|cqNwBBc&Ve|>6)5n2EEe5gA->+2-cUC~GwapO{YC9Ka6@0uM!|M^D4vW1W z7Y{I8ULnDuaX{y9u!d$3Q|N2C`GEBb^fmJ7*mk+uZY3LqZAXMSj0kb4RM>X8IKPK= z0GBRG_lr9Hd*&RSEGsQuah3T`>sxUggKEdxtE0GFblO;Mx%sH|QJ}Lb(&O?E zx4bFK(N0_xg|TJO5)?6&Z}X^pZt`(n%+#gmG4|@hGa13$qp#jFGxny_+7IHG!<8ro zds3?yYHoiEz&*baAj7oJ*cO(R;Mv|;&Y*=RFm-UjkXe+rmI|3of`~?M)ox%!xf`e^0gD$FE?B5!#`TA0B65bhsN0avCTkBsry^dGfPqDbFDIP#xV@ahkrZA5L6B)nT{b8yfsEPmZ9~s zm$}8EsNx1U9YbN)(R#ixg6sEZ<#LYY+HZHc&g@feTHO^^s+Ly)y^4Pc^hg-^R}(J! zmlCq!OE&8wt6Ayr4L)#nE;3ays@)FWInD^Cvn~uz^Zpzi)+)U#Z{pe*W#j4xmA8EenTBdGs<=%Lp%Vu(2GR| z*;kQ`VnsoRvm;mlZ+Ij&M!&2xAeH&p{d(EMDpD{m)&R1_ZA^s+E*B7l(Uq;$WMho# zdXB^znQYOL^uEg?Pn_rA2SeDT%Vo3S!Kjj{W})7U2V5NE7&W+P_3{eirS|KhuG^w5 zu4qZ0S|4AGhZaUQxRFv3kRe85BP2X(oJVf!b*?Q>W1Xi3-CnFIwOAiT5ahT<1N8RjJz1wmD zqhk+*k`E$SMP3uFEa0X?zA*(m0J17N;?TSsatjXap=q!?i^*8vBil;V~Xi z3=J(RmnQl5X^Uf9>Ayv*bqp?|S=fBYBt(b29=gw{&galzV@lGABb0pe zLXf6nAU*zoNIC;ZI`L}VpAje)W!8 zLZnGc{={u~qY`K)AbX|RgOJSXB)d2zE*<{Yvu>DxjiE22Za;QATY>s()8&}G$H{H|=cLPXgEB0^t75CLO01}_r1j?nT4-TG3920*w# zi6Xuj|7~J*>|mlTo?$lo0JZ~eBr%z$fSqy0JVI|ClR#P6h<>=>{Yb=_5%9g0!-V^mk zj>&%LV(8rI_CxiFqdBB2$7DbB5DBgQki3!oP`TO<-E8fL8U)Lv?}zGp%^}{MvLB*; zdqZ>*c@zD7aUbm8BSPnvEOQAzZ1!{&v=o7XH|isN&*o~;P$Bqqc4Nn*>VErT0*#98 ztdk#3Vk?}Tfsi|}2119vOYC57CSKa9OqGAnK}t20dr3o81j|==45hJtVw%=OU1IU$ zsHqie^lJfm<4#E*_1w~Nr?hJ5ye2XI7KyQ>xP%n_TP4LX98UjMNs=3;e5G`tKEw_Z zi=?6Bo|pNAOS?378Tql8&1qd*FQG^*wt#c*{Jfs1rzdo!)>WR(>>px4e13&~+OP@# zI|*6C48_upjlPb&;l}<2!>-9VBN}crR52V~XGcW_k0#_EDOX^o9{IFmayqM~h$hAz zmSwK8#hnm3ceGVO+Zp}kw!U#~v-$YHNw`E)=7eN} zrBV5bLR0L5T7RC0#o7jfDe+QVe}0E;FriE=ubUZ{gGZEo319PMpGUZpwR2WR`ah0- zE&hn(D{{z>`z6dP(R8gxRWC?O(5}6^QO4>@Vu2FX;X1>kirw@ElMvrD!rw3HP=jw| zG*aPvRA@ZgKz0CEY~q5=m}M@b0HJ@vK6{P34wA>%CJ`Qiu-I1v`jv9ib$MYFdZlmb<^>3aFU(ip1g()DRqO0i!#VJh!W)F6xsg1wLb`a5LWdMMS&&AXKh( zHD`lO4jV)m6TM$gTC=HBv-D_tGA*jXuhlLqffUTSQW9H5#D>x_AuwtkcDx5G88 zcBqPL;yZW9fNZ^kzv9r-YxLu>;ExJ_N?*Nc=SNys7y8@C9c7d!(LZaPD^4Bfv32G} zO75!0I5oa~3l3%FHX3(HG4>#2C8{yGm|jswcUUECmpFT7=prNLi3;^(IM?veMSJ zw2Jn4ut_^4ze;cr`x_J2opVU*+P27^Jt2`Lqe7zG%5XnAZ6lKB_Zv0E$TD z>E8^D$kM-gu#D9%B8~R#ZacO8#-rVBze%M@yx{;vz-3ePP|E#OfGaY zcihLkJjB(_^*q=Aa2?@t)6Z#KH*g>3N~{2d4=oZKaQpk$PUFmRk+yS14B%Z71L5DH z;ML#X_O}Lf%SHo-z$@Y(Cc$OSycIRc0R;}jnQa#UBL72m#ohS*xL2CS?|1Cq`|aNc zRFjSP<0S0odXDQQu0-49R}@Pv;qn}#x~MQ_)ZU z$G*A9)LD{LiPFrL24GucxPhX<73%hM1!SG3@>V?KtBUFP;F)B_pMkW1y_rj1iBu_Q z%9#=`FdwPThpb)*eZvH&DC(MCI1sIL7FL&J21+7>F7eL&+(E@VL3#TZDjOU{UAMfu zd+b=&L_U8AvryA?4vi0*Z*nMT#DByH?*E?Cdpp-e?j0%yi26e~5Gx``>ec_(JEs*t zO2vCZce4y7n)q5592ZpF150wIfGP~_MD(6=IC`s)f^<&g)sq~@zIs{MVA(t+Wi7@g3`8UNYvmeB-*+Dss#L3 z0snR8-(eE0Rxi!p)hx69BMJ7y z`To6nwaCfEG{Q#M+5HsUJB-um81Cp*j44Ca65Egow-_gDFt&p-;v&pR5<}v z4hub(ZmgcrhnZJZQ4kd$bA1%FVlsP?PcpR4Kc)GsiOoNf!D(<|@fO)FqDTh@tF6Am z*1YBBFDAl#BglIKuP{;|!HtZk2;!j6i>^Gw9RHd$Myu=ICB&sR*jJtfXIqXP$;5If zk2kwc?!4yjVcn@z!M8<+Ucim5F+fOzPqJ#2=YyO?UgRyP;0JJv&T)`=Yg*2xVJ5oi zY?ecv`2sXd@R{N>I4hF{jVR$rSPj0m#YZam4PKQ+hHulh&4kef5#|3Mg^1qysUV^T z#WT4EWoKZ6T>2W1@fv?lkksTFe<+nQ9VfnMGj$eDyinWn=;_lvG%DRH9hWFMFbPI= z3FF&QU4;FMxF-mjE8#fk6GKL~hWwF@`QvQ*>`D9Ic~iQ1oBEm6mOneE5{&?RXjrt0#*8;^~W@mR9^8n{kv*?~)InQv5w> z=@P|nJbm$bX~j3BW!ohmKBf4J)6zvoE>UBD$?1zfE3J4(TDD#CL5jEGMG<><5(E-t z_!M^H(R))E?X>K~e=1d-c^Z&GB7jpZrs*@( zP1BcQ7@A~J2F>4R6T4DrOEYiTcy#RqU=t zvzKpw>z~YRpOTYXb^4#uHfMqyVT^s~+t{q}b=o#L5P~Aj`7cG0^7%=Der|%>UT>H5 zG7NQx@anf}+kVOvYdg0;p)y8y@bkzRpg7Uw(QWmgrmb3Jm8#ofqp#uq5eTbe=rI*v zcWCD$qBKAB%SYg*977L20$4eQe(;EF8i&4{YNN_6JA#+hv9>IWSAgYCwZI~O)nb2j zao93Jf>4F1VpH!93P@%5Cc5|?JNtfPUq>*%^LAOEICsr_7|Y-v6gM)OQiOG?;%x_1zu% zDm{$m{bzKQ8O^)q*@BevbS9U-wr| zBOam-|IeM?*QoDBuBktBde7!MkE@8QnClX*a;_)1){r)ZqdgfO`G4v^g}6_Hy-!Vf z@*9;Y)5YrqZqMd^jK}R6>lx?CVUNT4AVO2Zf4MPnsBSU>H*hpCdnwM=IbxK9#{J^4 zCU8~k4Hs__*QdRQx`D-KS1FslDo?F_C^<*Tf&~FnzNL>M$CSn0LswiX#4R-KQkkUC zV~{9P$%CQ+iOp53VA#!Je45lpeaE7uBd`dCx=RH#^+`mbA^kat^ab_39RZkq z>{Qqn`G`&>$3e`@@B1!KLr>tot#eF@kx~a;Lwi?X%(ekLa_*w`4r7&x9@KFerV? z^H)y)*%qh;j`IK}V`KhI9iy64xVPPDDI+6saB)Iv^nB3#ll3uC!gM`{qk-|9&RR^H z7~!)MZF(8vvs{An5L$Qkcco@`(s79u@8>D=jeqA1Tj1wXVT=eo;M(#{PQrSvEn!BD ze9|X26ta2f(EfxgsTG~ z$0Z23c^H3mv`1oOlcGVa(}(-ZKbG&5U2l{PE8bgnhZpR&>+|qd1R#Hg{u9sqo>R=_u+gXg5HTIVk zNs9Q*1%#Xa^i$fhb-9wy{j`((D$U3B>?ql8 z%@4?zMV@GlS3skCe`^=m$so zT)b(0KQi)hXhEm*l5G8g$jB$5`JELRmjp71bvkk)RMc7Fyd>Zxm^)}>MrTFlC4tP) zRHk2yWeeieTa|fSs?_ftngPh5++yi{S-d_-qZjYeE6p}A#j>WC5NrT`vsRi%1#?*c z67a$L^hR6aGTS%%T4$z4Obmk#w@t!l%D=Npl1KBFwC7WA8oHxdh>pf35Ki*S$C?tG~RQU}7>kA($9X}- znWnE7><((jxH66UBOfQJPxvW*y+QNcM-rI56Z3C+1W%zX@>Mq%jZ*bd;}v-)SEhWH zCFU;Dc3zR8?JUO1uf)LkkC9UA5w;AIlI>X^bB4f6Wb~Cz5$2WDnbVP$7)yP|{=%hR z$WLq}Gt!$WiVi5zg58T4C*lywI8~@|!m_M(4p2~paxnhJw4IrihIw8$vk-afGRiIx zKV_H7Ga)_rYuw~3yva*ld9hD23kUHob<5*Izdgnwjz`V~qe@{!K8w2ECAp(xsjsG1 zJOG-nUF#GA%@CI0wFyB;<}2F+*=5vG!n*=RN~>%DVD@jsXFd+O_PS`mJZ6w%i5ayp zX`NpJ2B^QF&iv)STVOE91_P-XoW?i^z8ajvJX1_=#~QCyOzx#&TBQG&>X-}P(9ev$ z>n1l+599TROhS7ltlr+~oF z;8~KW&9`!SA~Is>^|XvwAJR4o%=~i_14;`A-&I02LAtrUJFeN~^tN#gaJ|Jffl->x z^%X7)JKFMlrP42~NEIAHDPtQq3uIHSLRkb>Km^Zz_{)s+me+QN_#u`8dx|L^&OuHf z_F19%L2P@+nBDCs;zL>H>?eeOaK+mSFe+H`80FN78f-;n?xpS~aNL8dXRLqHVoqmi?u<0E)HKjN^ae9g>(|;A@aT7Ftr+({< zN7XNSD$AM;&b@Gu+{{d{)c3B=DS_Ol=^ldPIL@* z@h8|ctUmlfeemErN{dg~PF8y6edJ@lt(2IZxy0;bDC$hn!jZ*inDHs=Rh8oG<8scg zk8tW!cJyUHG^5IQQuPSCYMNYx8LczFZnc1>kEa}Oe9C53ic2+V=mOrK!&->MhM8Q& zGmG^?IYu*SX^p+Gm4ul_5`5jN;-}4TU*&XcdO`+HB0h;JwG|u^d1G>a2S#w=pGCSw ze>};l%{RZM=D}Cb==ECsXSol)|0pIfWtQiI>G(NQ6GtHFGHD6iZsw*FGLn|7fYcnS zWC9w=%M@{&q*MT4>F;cMC(O&lEH5Znj}iTr=i&13Q57_F@!GLum&C4yn|Esqdw9N{ zR(qRvu+%tEssoc>%YqJ}?S56i9TSD$8cLN&Ei2^L{KYpuiIY>Jr{%MBCLWTt?`A1u zbmI?NZd0CqgqL?%8wiF4W6P(_MRh5@TsTlq{NnhOur*Cgwivhe2ICh;+gweuD_ETY z_=Wfk0zqWs?Z_y8(myc0duCsKLoW*jw?X1kD--n#Qg}d3mXaFmxqY5&Y;`b56kQV8 z^D(P8KUB!x-d(#oKfcq$7m&kMKrwKQIBy-YSI_|=mLw(p97TVnK1I{*k~+4!C?GV4 zF>u!;%8T!m`qB$M@6!sU#V%u$B=1*$WnlX^d3lz9H2GZ6+@;skI@=y%PLm@n%6T>M zmyABN#R#R5f{y=}{&q6Nqxx&y>0C*@a~pee+jBoMd#i&nkI5e(f3_7_y>G47PU`v>%SiK)3# z05Lg~wdteyx>a;)YJ@LjCcQF~&3GJ3o5tT-X(a_~*3#uNx>RK^w&WRi$-HMi>p##+ z_^p-PQIct+Fsg8#)9Jlu1DjcM8kG>0=*7s4OFFaaiY=5niiaXa^^-d+%)Mgyr`4GO_+_gVYHcX_$9&a0Iw#n$&g$E#3j_Bf(!maun8CN~t&In2 zAnFk5S;lQkf=$N}SJXjz?P$waZATE0B)RbyB6xYkwXSMF!amH$L4OZ{0}e`jEbp%S zFLZ$GMt1*)6ULzV2D2dN9v*xy$3uCtnUalqOI>>T% zvK*_ll>J_=u`m}()`ko-dM3?n1FkS9CdH>?5_h(xzZfTWv+-SFTrfP@YFtkc+ z@+S!VfR~hgy053-DMJXGiC#qj>UOaOHVX?M@CxO^qYvxnd}d}AXg9argx}2;fFpo8xZ_tD&mVLLvIQ-w zDUtQ+sUy~(uoUJAQ7&Q6>51Hifa?Mp=<~n0b`l<%*b)#;p6x)-u>Zxj_lz;(wS|TR zu;Wy9n$N5H@z=!hCyPYzg?Mek`{B5wukpf5L*-C24~oz1i?}E>mg&>BiRz7U<;R4Y zSbl~=HDC^;Tau+|j1CxIw2gf;%%|@4hC~KFz&)gq5;J5;_Yr;R` z@8x*t6@mOepz^rw1&V6%Y&s^&Us`0Z6#SgowGQ#(eq*n!O%4%ZUyS$shuZw`bE@!M z3UBw|tGNzFY;(2RRz^KzhQ=b97`hgK8Hn_`{TN%V-OmuI4i)Z`y<;_0fzeAT=t&sr zs3voobS8I>3Qvsvah-U+0t_q{1wHJlXxe?h5iNu3kYiuntH$I*8G~WG0S=uP8Tm)@ zA(w$_8?#%TxZ(zh{kn0-_A$=ML_bfv4lf8p?&LKefqk7Y54TfWF%chfKFPITcgNc71trULWo%wO}HkZ0yv z@{D{IM`Yw9ZSxmoqAP(h?mxpl3`T{7GQHX#(^nEONi+Ykl!oueHUdfUgU-;ThAq$6 zYxl<>7}piYlnXTV=HB!-B2xrHKhd_FN12gfc^c+PG(}W7LTvIM79z7-C=MG>bm!i3 z!cF^t=Vv_!-Xr`HyBqUcVBFwxZs(9=mbsNj7UC>;XC)UK4|G1O{BgmPP8E&2-!W@O zzi}Lohg1m;YE$CO`5%YkIflbVEm)C(YLj^_VaZrdN zW|ky%xz*pj8*GA-^!>HLEB=H;Om(Cx+bc)|YxGLsc9>Un<~I>$+i(l|5^&89FU|HA zA7LN3`F>*Sf1e^nSaMWPpq%!O1fsWN)&~wK+@k1*EDcchC zeNYz>bm-ol%hnV=zS14tWzxFNa%c2rCyF`aca%1S+?|1p05ZrAjXqK2!QVfiiQh(s zwjZmm@E0BWv%+X8d=0+A2eHj(*xv61uXj}VE~ip=S!85_KAwP-y>G|ke-?oVLBd=* zCiQ0RppsSe#!I66X%BB6UzZ^B3G$pePZh^xAcrx;r>gM|6$tLJ?@vYz95Q~>LOsui zro)8L3~&5*o1~-5%%>3)D^{kj1fO(^&7&xNtRI4!A=m z(XFpwmT|`ij#2}ZDTwss0ZPZsXC%w7HGf4@5@Um4QXyt>qt+(JOQ8uwMTvZJgLcP! zu;9>D2504n=&FaqwZ*eDj51FzG~GlGw<5wN*YC7N43p+q=pP(89~Ry zd3Et4GB{6J2dACIXs3<^(#74h29&R6)IWgvCT7=)vAmLn z3sIu(UsDWpv2_ysX$Gb*-In3YPk1c{5jxFg0Ih7CKJ-oswHg`E* zxJ$w>?kodBU@rf5DsySzrPczFF#rheJ5BHHNgj`xN?X~|ZHE^@xsGQ}8M-0dGnltgvhCQx^{ZGt_vP8r)< zpGQ8#`LB%sKlE%P16zI4e$2622EQL!ufUewBskLcca<7>vl37hzovDeP*2OD8<$}c zQ z#a9ex>pXWmqRa9dwG%y&n42H$n@+^IdjFx_RBlkBFC=Z@PM)6J}<^nVjVlK z_{n~X1~dt8LbYNuJM@zTE|Xs+pEw%0UIZG**33K(EQ01*{x;DoM|A57w&0wzDAwOstFib;gmZ^<`Su(iUy!O&bJ6gs`A8Ej+xC-(8ch5#za~ zNmue!?Lpsz**o=z6WIz6H+%oBkTtIQZz=*jy0Sy6)*_47V>RnCyRP?H7$T-l4GxZKZhB zBSCc>na^ll8UB7f7duPmd6L)PtLNYls33d^`C8A=x@xoiFSYF_n5a4rne81Z2g#gqTYm z%TV{t+(#?oTYB`fwa4%j!4fh8|AJPOTx?UwnQ{kJiMu?ALu{I>)?wRB~yL zn)=8s?GAl>e|a;FaO{$mJ9zqoU8s54eDqjW-ubL%H}Im)hgVEX!k z`Cvw9f>^6BGwXZQAoliGd|G)4euiU^5Af~@g>YN*!yQV}0X<^Qu1S*9hOEvc z;x`el^_7?mTCUZZMElP^vS~AuQKnB(YtFBhC4P&#Hr+mIj?&tH^^vVsmKs@iT9<+{ zB5vz5@Czcj2#h0vcU#PD913w`EwFlqM19tCCB&^HG8;!HNB|2%o!-CISxgj^&01f9 zb}L%2S30^t*)cPB>rvYsJ$HZamhL9zPW3lf2TZlA8EZ-O`)f>HyVj+ax6GbQB~wsN z$J7usB=Jyvuh#Wz>0hJ2Pxmog>*Sl&IUJL;$oE^;HTsX~-t-SQ^P$myBJ{k3eo3N1 zZD+Y&V0TQv(or!spPLAC{`P*g%uQNK9co;6kf zoD9>$g7^%D`u-kyGb8q9R%G9dnLWTL^ii#a(_#t>Pla#UFcpXz1t~d)>rYF&BnN4a z?iXm5u>neX)&|m^PgkBmUMNSwj2z|){0rQv1_*o`we3OU*I^38)S|5ceVC_T6H|5n zi}l)l#I(+2s^tEAY4`W1-9Mo2Nin_q=*yB^-NLx{`VaFid1HOF23leftfrQ=T(@)G z$@N{XpKv|I)y36gUvh7a*3(bJ>RJ3<-8xa`^z7G{hHqgeE+>kGjsx;8=|=o>=8w-| z{ToZ$6$vMF8+@JVox$|Is5rXk%)56AFjlqfnk*>^YNxmhPO#;)J5ihPrymgFb{(@W zZYpuAv|pbAz;39Ce{OZ${33a&!LMdHu`EWdNAh!|l2$2NxN_|4xxd@{FV_oBG_VL3UNujq}opeJo;Eck(-LPFa^V}+0^PE(*One1OAyU78U z^#<9shm4hG$q&_PTX*tmvvE^$&F!1nlR4nuw{c=;Krbx_eWvuh(D|k3b5OWXjpPA) zEbskY+E{{2_YED49Gjtg`U8qfiB|j-?MC>Qpm{$Si-}3Yu`=F*uhNG%&~A-y^Vvw) zQ2cLFx$@Nt6MtSHF~vQVPSwk$B}T~yHf9K###xEgb~y9{RVWLgs$E6mYBo1;+@r99Y?Z8v6OrJo zaj@dWR<;{=t1i8HnK933#-&^(-7UaRD)#-1;xb%pez{BLgJ?$S;)SPK9M*bqtM!5| zTXLzW3c%-v_vrHmdanCx&@IkWrKFU`WN|fG++Qe%o7-t;D6JHgpWNEMW!eCzWq$(A zF(}DOj00#S9Id#XEruhsTI+gP3fRp9+|o$v)kX{Qf!ldyra z+w=pE)`#0%ynDx*aOe(f$8g)9Ti)kD^rcZRTL#)*<=j*}STd`Ll)r7+>wmHJztdhO z%7!+5^oG+rma5O@D&|_mmHwPq6)bPH*Jm_W;kC~imFni@bwsntH#T}7k)e(H`n4`6 zoHv7Vjk9Hv)>V=1kF}W%tJu8{p7~4hh`88kVF$nKxs7hnmGW8Guu6?r8vZd3bXLgr zWO8T*r2q=I%dWn45`vow?~w%qt};Da<$;dLqzk;T;Q{7)S|=n~Wbw~uCE!~#{*`Vf z!HfE|#BO6kad-F@-CfTHT`AD*o;*D|1=TYvKh@s1WD+?j_BzE#? zQ2jnSN>HxSOMzmtgY!|1How zU`OV~d!gDXSGU-WxMK>kNZqlhL>Qf(;$k;ceChIG=LNkvM$ZQ?Ut>-uA@sN8rC zAlVtoRZJUQ^G4#C`h~DQaRS+zoBqpcxy2CLEynxenr8DwABCAB4~+fQEpIkGCGjTl zb6Fo+rN&fY7DkA^SWDIx!ZDl*yD~QcqzpYH7AiQzIN*z~tfps>O zh_%jB{Nr3uP5@=SW$}^$S!uUlEv$%`cA5&I1)F(d&>K4z9B@jb(Bz}?!nDfipD0t+ zT`%FqX+f~FYD4J?ea?}pbs4%ZEk^V`lt^g}z0(SlTYK z>-7U!EA;VTLT837ma26Py@+I`0>rV6TGs=D@6lvi1>+K}YL6DZV(izt7CNFOvChR= zmsDrzelP+A4?CsLg-2EpM=C>~$f05{L7c)P*Arl1cxq@Wxk2esUrg)DPG$}5)w-_B z9{K?iS>w5e!Lpyl;UL@}F5y~57_8zjKWh2ggJHaJhYyp*&l~k# zHSh`ht1j2^sPDKy5=eG&rs3+Hf8%yvXu3*7tl4brFJDbbg&%zoSI+ATCSR(56`&DX z;U8|jrZKYTL4jEPMecsC?w;oEztmk1cMqw%UEKXj-95zJZ`9q7xl<%l|1Nh#Z=sYO z-0f3$TP;hilmwdjwXs;$y4DqV0fpEQjdhVb605;Ikb!DrhRl*^-}rhA*GHxV9oa8i zHx+VwU^QoL`bzV6!4nc=APRN?5Rxn!`?ZF_m;cWwcs6s-Q~CtH=vFx)1j`1^^DF>L zBcwLMORmqx`PJ)Mfsdfz)yDZt_B*4c`&(BMvySLsk)9e3=LkK*(OfkXA6OSJVdkrx z{47I%T0uUNkClyv2F7hRXttRlO%9r`f>uNd!b!^HCD@aO4p!g5Uq2;UFQ|3E>BJC^4y11y^0YAy~@!ceHQ3b z69Pi2UI*$BB;M#B&>}ylZVrOpcf#TtzJBTWNwXAaiJ0R;fr#k}&0Rzo5ZCKUiiw;S zi6&gRt6*8J;o57>;LwHflGkBiZ@omFoDQ91J>Ky}>v0mf)vk#o^DdKjATetMUGJ}U zfm55!?iFePzw?XH1E`{+DhMC^%TH1>Z%t?#J_98Lo6V=rS0e)>8fZ`8*fcOmOAlry z{eN2Nr*u}YQ(*qW!9}OZW@=vuXwBZ^s%5p!w1ceSd1M7|Y_JSG4 zLjnM$9503S>F}vq*FL_U{3&D_Vg$} zuvFzFL=c-LZle<6zc-Xl4UH*1%Q{x$YzpoXUdle7f)i{>R7R1B@=!EDdR>-%a)T4= zp96O}{9reHRo0=BEYXW~6&S99M0$Jq!mp~$8^p3?G_Ojq`!n%}Fl=?$g>PJx4Of8K6)D);!&xu1R-aeNE%#>U9O8I6%)P4{Sfh%Rc2GkN3X&CXG8CTfrOgfg|R z)JtootiOrzm6>cmwR_3&KXs<9{H*^Yffi@z4D)sbz?^)X%XGI+76iTN2eSGC&Bo@f zf8eFXBkyv!Nw%fDB_uQYon=7SEg*762$50z=Jr~1wf$(7&#P#8GpQn&Zc3{3#&e$- zPj&tUPhaaY#+pY8ouUp6?=8{|xq@b|Rcr!}CyJr{<^Xd`%hg8k%aCG=wAXNFk@f(0 z7HKc#&LZt|xwA<7Ebc7Qel~X&X$Sgk(mswmMcUDtVNAa9ecWxN_u;hd|H)@gZGYzJ z+b{b$#2C_cB*h0M08)DK>|ZyD?r5|o!(WR#p?4pM$47l<5(uJ_0HCLzK2jbETT2O9 zQqh4>E*0hCy=} zk`3KBS4rk<4gC}#USc;*FoGqEN#F)4u+gY(W=H0)Z9#TW{5(>GvD!C#ihD$iAm0Vy zQucTh2|{k6NtvJ|0RnqgE%q4V304g@i(bbXJ@&RY^O&Ntu<%gX&1*y{hS)Gw2QYP- z42L|wv^VPM4P8w^*?2xVWYoL;_lx^@LWMtT=H5@FRNQZ&)x_bA_|KSv%aUGvrxUUKx=e!oN>8kRX-!uzgsj+v0R$<4 zNmJ7{0LkxUY^R*`XGA_CtWo)rDixnetBe}#<50VbO<@Wr*QcfCd`Kk`_(Z6h<;Ac= z304IiDuG2}{$=i!;9-o-E2<5poaia0)GDAZtEN$*_)(Z?HuM>I7nV(Rb`*;GC+(d* zx_8!o*HE$!svIM2oMnj7=^49sp{Q^g#owVgOeR2~F=4H#VSF!350k)V;Y!=PXXhgU# zSVyO0EpAQ3y$=Q@7pW|AU~(3Dc26i$5*pRUg!Bn{Q;T^QB-R){`r57uh3K62X6Wbc zP+}p3EFz5}#WzTC;J7iIND+Gd!12)9l_#aDl5$KM6)K~Y&@`1=%1ESJgZxL;Wq({GBRysMq|WknqJ*N4-TeG5>Aa2bPmM7%Yi{|v2WO~L;?Z1> zVrwfz>A_~PChJpqvQW`)$E9HlG{S~`X&-+lTtotuBsr-x{8YORr}dFzlW~W9%%{Jj zq{c=cZGo5bE2V&PB$HCvroSCzjB^ePK10}REkmn|s(llz-i<#^`_o&_nIcV0Pzb@6 zihoS@Z1i`Fg4p^2b=`H1+GNlaK&>dr(SBjvbhj+T2V>AGQSSpSS*rk{N(2!h7E0 z&Jh}muFYS#8vbY!jf*K|2azaIHv3mxueOA7jddN*3^gB($s*UM$f?$muxNH(kF~&4s|Fi} zF`Sa!V~(JJ90xvpmLtCE=~Rgdt}iXq$A^zq!77rtf~sV5Ing1T%ZZMVcrDSBN$n!@ zNL9BosO|i^{`diahV5=M_8zgfCR+B@{(UXej7q5X0QGnEw)G2y2huj5MX8Yyr+%ifyxDk4RE`HH({XNOq}=$jh>T>0@_6PPQ@OFN z^zuM3k^z^*s)FTMJ$1QxQ(eNWH!*#p-;LhU>!P^Pg5t)#pQw-yuFM4mqSWo4jLNbY zzqktR7t`eh%$zsC8kvd6C15ob(sPyeL*L_$t|YcdVk~8@V=c z-Fcd8ChtnP7IGyU&keaT?0Y>J8J?_d1M0*Z%R49NM5w@>$;L;_x#hkv?Ovj*Ss&n8 zk@35g{jG7xN_q4zi99nC$;h9Rc3+&h7u#*V$yv|eRHn2S@16YOgnA)0f>tDa$3ElG z(N`qzd&a&O4(1&C)bD@eyJ>%?>iJZuE#Z&Kka)2)^+J6>wlj-yDB&vOTEcZ5*BY+d zxE|m#8Osm39NfRbHQxR`+y0ezay`zqpG(GF8jl%*3!EM4J{%c#Yuj#TjWFteiYw6Z zD5;#V`)18|6r&-4A;av__IL-c#UEPod8c=9N&55S-oeuJ=PvJHQQEWN9X!i^OjY8) z*Q$hVKs_x8ac$=MCfAR-erI33{K};oCi0@l6R0xvqW|rYErZx?H?hRM7%BU}-P70s zAlVcXfdVByWpln(Jl!EDRUR{D$*+0KXK>eqUps_PD!NhTle6!X=tnrcq@p4#@R5W( z%10Dm#RiKrDE)FgX5la7a9bHW%(CH#IW^=e?APbU@BAiZwtt44`H^zp@Je{7XI#=! zuf<|2MQsnRtSwb^Pp|Qk`A%7yaEtj#^{2QSkC1Xmg_EYPhh&2+o|)z^C@5On0^ylu z;YYOjmop#iid>5@ZSh|!_#;%pVb876yuH#%^vkRGS_o3R0QqjAQ!?{#c6iA%u6)%p zsby#q6e@hffa~!gm!zOjZ-swFK~c+nkh*+v6!)Q&R`0&T|7UHhbX6TWh*?Y5f>%XD zpd~AOLyzlqDtlF)zOJaI6v->ktNv$NS9C6THLJ9~Wl8B*+7?N59M*g#>KoAgk2%6H zm)K8OXD^l|g4G@}Q~2H%iwLXY$P!+c^_9@`(lXTwY16iw!LsPv=U#zj$DEeS?ReHn z%a8z;A*-`-qeaM5MiK8-GYr!EwquP@0z*GWqnFW3t0hFhg{RIoX0U&)I7S!wZ?`--!ubcEJPNNmuEAz2#@ZlSD*@ zhW>L$O&XPpyyJre{dN@dkcz!iAQ}HoBf?EX<4M4G>HXKi|1nNpR@5aM}<8 zL&uSYYr<9{X1+o~2&1QtS2V^cG@com77cJrx{#CcS4?_^;Uu=F_dsu@lS=*S2}VlMyDmJbTA%x{Q|I5{r9a+=JE?Z-%Hhx}9a zvrGb}c|;X4S{d0D!zZ+zix~C=!^4^T4cDC=u6sbp?5`P=;Bv-rT4TqpxqX#u9On1n zdf;lKhM4uJKq4@xPRy~gn%Jy9wJSSx<0w;TsOQ9s zi(ZbFh{?Lo_@j;XT&(39(5BOP3Pzo>T6p6j=2ajo!Tg`;|D!&||CBxvFqD{=SVQI2 z54M6Qh|T-R!x*rY>E|o!66e~pX|Ff@WZ8D!M~1<`ah#-5Ow}5Sd6E z7_!0!hR&5O0W`QZy#8?3HTWOlz5k=NH!!G&p@G*%ef#+Nygk+zf_6#aWiy)VDFf?9 zKB0pWQw?Le8%q`{@MXk@Jc+TF)Rh2p9vC7YwJcyj;A7B5wHO;5JW{nLtmmqIL}Nx3 z24qX|Kf&<3XlT_mZsAX6t&|lDuo_xEo8=wKKeL>4O2)iIh z4F6=IfuQS5b1@?3GwaNQ{90Hc^%wmHW037>*UIMT_hd(kU2D{JK<3HXvX)jx^D6zv zw5|71oX}s_NVH@m>WYaI1K&#XHILNnSrnSKNS_HOhw8|cEu3-}(iWvzgLzxpYec>q zv!nHb^qc*|YZp`9&@Z&EEy6GHjFSsDuNG0hzi;gnBaWU_ST8`G`1;V<5!3DOYkL>C z#Z(bFbbo*~B$kRi29R#aju|#{uzg#KM^pS6J&blr-|D1KddBR-$CS}> zvHcQM;T;;2(%+E&Hu_h@oHR=GyoO4d0+?1xL5X@F8c)&;aSJZuX#^MeB0auziMMTPQk=i=2tUd;6aZo@dZcxhe3l{DZu*G8p}Z`19Ag*biSJ zPKP!)L@FYqCsyE{3l3z7N{kI3K87sD5}$lYAPeCFa8mr_(4~UK2$vgc!~^kJ*297r zChDTPqlQotY6}L2CU*v$azA&$2hQD$oJ0F&?DA0F<@#*lHkAw^rkA7*o10-ve9*QC zx)8;h=<00$32p0-WbCi-4t`m2n-L4pw5@l@>q<9Y)VTGmouv3rHE^v0X+3TKz;rGf z&&lu{P?mlSS{1Z8IXlkwx4K)Ggx8I~N_4F%+^~B-y;SRpJj!T9@0P#Dtw=%ofnrn{ z2%lLCW#_5wFcLH1Rh(j$+XYfVIpBL8vIPjy;O@<7Gk|K+`3q&keemL<@PRK91tAQs#&=~IH{ zM_AOdw0Tg+n)i^yl20bjpPIFyfv)jzx=(HTtjZVg2@~_4@^m zt4Pin>_BqyMviB-Oo<#H*M{#%{1+p5r2rPBy?7TQN+dtCwf21B(I$D$g z6zT`EN^3%{(pr7`Y67%WbttZhDdi-pYoSx!pkamuw^;uUzCD!eaH_x0t9gpILjh)^)df zyHC4)hXQthWywIc|CzRTD33hfCt(N@=i!-!pz_U zm;obyA8J;8{+G1P6=Vso{|iA`eSZ-iej2~w_0RHL^sJc0T%rQo=H)%v!IubtioXq?UOF6({MHrzcv}Bf}+{xw3(emcAM-*#~^OOKXAu zCx^0jQv|G_z^wJI+Xi#-9>Qs_cW9Z&4@6}apGhY$#sbqAFBR6Hf$5GN%k=lPUYM+J zkrNs?wR2Hcc;xcXSHdHUL-pa2D?(R?N0x+ENRaHlmRF_E3?q_lZQC{AVO1W)5H}m) z^)F}D>KBE-9JR)g(SM~=SHTPgHOU7O8v9hzTS=NmuUITd zr@Ou`@GT3$_=puDfDV{f9r8cBw$fPcts8RN&EEmo?TeP~V>8s_46pA2d|f>pfp;-- zJ+7h5&N7#9o*@idmS+2(Z39Y-4;oemmnY`ecuE$mENbU%wE0E3bDOCq!GCa&Cvzs4 z>ad_?QNd@G$*g(m{C(QipUOC2?N#(AS|k{Q;|Xo^4|yFeeIZ)XD{CS#RsX{Dd4?*P z#72ASUSiG)U$AEF0{S~@zRG33N@cz-mid~SnlG=+mr!9^xUEsuDX8)X4gI1*~{JF*uPs z8PFbC)4d20K)BA%6$7r$uY@|EnA`K7&U<@F)FN)f?H@|uc$ef|-)^{;AM zUZ-=bpck?VR2w$MM^i-+bwU;M=WAO;@GE2u*_VhaypmA=tkASZ=#jT|rl1=knDWXf z62h3Tdl9yJr~&gW>0}Mk^Y(9X-xvslG6;t0!z~r$sMN`Tg+z2}Jk{Cym7@J7BsG5vku9kms=A2}b z8hlt->$Q;QXDoU5DEv81@aGi4pI*VAIX3*0(`(25Z|0{!me0DmKa~@ zS}iD8IiSm3Xo%N)*_p#bZvSCz3qnD0 zEScZA2$Rp4w)5V04##;>&{@Na9&P8ZYr zgfweR+l$)Hr=nFKAoD67;0#*tTPFS>^Ua)3>|qyYbDRfqt_LRpPw^}@)G=ncYj1^l zfL7!we^!z8z0N#%1|9Q8(0!;WS~?WkMn9&*@6Nx!>!8a=_}QurbN zp|x|PuA?&5pu(uDUuh4rd*E2nzN-m$)J1Mo)uaDf`S}S=5qE8ON|~O zQbV;O)3I!Vsm+J~J#xeU-=R!)IQ{Ug%`;G6?s7dB^*slhvzeedpx?#W@~!Rdggax9 zFAcGp#NvF3J2025ooQ_N9;8r@I@1z43$4;3XHpEFHh)!U;1cO>1-qz;6oBO6760M2^A$fx>yAcCj><>~;;S{kK4J}qwz-g;i$WJ$ znb(pzLoy#~dzzkhR$H!qoNea-_(0j$x=HQG66+>wNMzYrcd)naQkS;nFCvhnGcs)9 z_5H#M_sh;sO#|}AJc;3F{(=)L9tvtmS|XS~Y3K5#^D`XO8+jtvT1fg#b!trf>UA~< zi{h#A!JsY`*)IKX3_mAmHr|q!Vid+y2T6d95_&9bj^_Pe=FUAns_I(&lguO;$Rsns z0HX$pI%sI3rVK}bAA7>?8S_F>!m>+9C`ciUfY zANTfN9=0kWNP<*E+bUlB&}w^69Bols2&l~OyY@MgOwjh%KYx6f%$a@mbM3X)UTf{O z);=Ka&BCeA)o%0d*>V64QLjh{r+bzIs{`sys^);!Xi?39o)AuZ;s$+2B*N=)fi_Ng z_oTKmN5&wNu7m=-pv#_2xt!l&eq0$xnKt#$h!eLm}1!uQTcQtfT#S2tjZM%k%=1(ESe*YDW;eN zJTb@U2bCz2?T0P>LY*jm)s9hSoC^JJW1;c3@jK%z?$>jSJA9wD;{N8uwYSTIl((CiJ$rLH0 z1qU+PbAY6G%Yb;q175)Wz(T{o*B9Gp8APE)kTyGAM|@ zJfE7LS>DERC>!zt!CFFW`XG_aT_nG?t!r-F{JtcgkmQqzN_9s4D?*q2fwOJ)uhy7k zQTGSgS=_7S#)DgL#ygP>n{WFoi}aSm&}_`L9HrXyp}Ounr%t~dj=Pgu<~QxoatonKM}()`{)usC6#zUrPn;3D3 z7xxd4FyLa=a6}Es}Z@(r^@de3-z78det!-FAMAek`~>Av&g&jXT+ z1thTzYeq(nXEH24IpjVNPt{sNua$VAc+!G*@UUHzW2O^%?|tyf?F_zhk3Ua+$0ndyK;Q|Ai6w4q zgF>`5BVUqyT&;2=(X3gHhqeL!6TbxX*;}CP7|vT&JrTR0IRH+^4WgA65qL zb5e^+K$a5GlL?+!7R^YSYr1VcR*UpDXYLbz1p+y>RM>HaydO0N$FQe#LJr33QR5|u zrT!Gr3+_y$|2cPcDElzisqi{$aVvHgew=Pk!q(~iJ?`YqjpAtY{#Q$R)rRv(72!?C z#(7MQ^Qw9K@fUj%hnVT&kkBo0VGBC3%O_fePS0c zztAM8c6++bRd$>ENGFaNt}W+DNl2aT0^r?on2bvJQ>W7t z7RJU<4j#HRE>lo;6hg<=ZZNkakFxG0O-|KS+6I-TddTLtq9gR*-K~#EV{Cx0b^)Gg zbM0AKmXKrkwZJLbZ7!e~*|@{%Y2$?XQ_1-G!U-8SSs8s~+*^8ufcP#_*4kzYkl-~V ze|eUvWxN-TjaQ%V(0qOOu%Vo|K`UBoJV7?m6_?SQ=V-(@VebGZdahAi#&d?}89fIKh~7_*Yt)W}pj zjiYKyOUxnk;GEN``#^Dd{^UN^M!%amNMgW94Evi z%ja-xnn{a+a4U@IU%5)h^Z;!7oGv9KH{1SS9Z9zyb-DCy{^?xc5_O5)3W149QjFJN zd+&Qh!ulMkr=mWo)kyqREj(>uhqq$D+RJBP2@PJf{ zyZ|pe$ZQ<;K0bh&;7XS3gxH0jnnmVS(vk6^s*?hSTZJ*)%MRC|K5J(3Mx+0Z7yd7&dl~venvgQ+~cu(YAMO%I{c{+3$8#nVQ zv59+kC4pM{n6cxRkPU1l!um_zr25g3{HGXca%|9%{EASO zpegSRn&-Y=nJ<<=(tuV5A_m=xyjYoMbU3U+u)iE4TOw z)BAJs8VVl%BX#=A-lY0LGXP?j0HPy#zknwB9|8{st7QD~(PIBOPEZ5J3}TL@sz!G$ zDyY3CaY601iJ7(Yz5RU*6)ny=g)x$Xgq9jgRIeib>DR2nno7CX#J?2HL+ul%ZdFK!U&_K1^l@>a z3tybagQf>8reZ-|e$NG>P`?hCE=WwP4Pot2o0w92L!zV>N~@fv^T-Zn@Ha>GUb|fT zy)iI0V&)dxhP++ceMV!v&>+FJOC?lIjiuE*DE5J{id`*G4+@>kGX7GbH;t z8NQoZbCyd|exmjh>7*E|g%iZVDs6*Uy_4N%WOT*Znt7Rhq>+)^KrGq`Cs42!rtUo3 z$~D)bpRqQm*>Y1v&#d0f1wNU3uHNSL!`auGtG6Y;{G19UI*(!sBWKY)Nu{0vv2Yes zt@=VVLf6$5Xg*ZFQEVt0YL_Q&sBKS#dKbIOdvA1=OP7vPKVAA}LTvla6233@at10q zCq;_tB9;KJw#D=mHfAFq4zzDh{knQ)Sj|92Y2m3*9z6o^Tz<|JZijvJg~p z(dV6P9B_p>y-AE6!7=c5W#ugAS7LDuMPruaSc{plju$)Xz(^@S5kvQXUWA7qd2d29)LRYn@>otm$pG10chta}hEH324 zuEhl&wC2-ub&ljw_)!t}>gp7d%9Z6$7GxwZt2O<{T|Cf#^-c!S&I=gtV>w-)E6 zuMPf=$8;5o4^~YDnk?5YwC&V9;IJDUcGb3PlT{_|-VWFAP%jjMmJCh5hUvIfAn@63 z^m-YeQa&Hy^RIjyu7B`fUT(hpd>8*+PX6W0sS<|&Rhg71|1d@Gx!4tmI1)2E%dY`w z$`{PM?=SCyB67)aK5=ml4@LZrUfBR4?Z@!+8j85(x4EQvf=nXxR2YYLblo@SE4hRt zs81Exc4XJH@foh;%m!iNGQ=dvT%_fnIz}U&ObcN>G0m(mSZqT^X9s1!|NQ{D2&?f>SE>cl3;35b9$E`n&iqbXGk=!yu{H@g^ za-4(EJ8{Jj#Frkz&$5q#4Q=^~CEI;xfwic;`qgZB>XM!ycw&?t;|xlFh26ZAm0e-+ zZ=NPGThiaV%)5OZsHwkK;oZKRhyEA6+wYKscgnq~A2MP3dqJ(484a{`P75OYnOk8F zPrb;Jcr_1H&U8X?54^5gv zOPrh0xmcmqHAw&}=0@s0^&1{@4+{0RC?NcWTiC$5@99k-X{~q z%;UXqTy8yM09D832UO8byMfSWRLNpm>6MZs$p}()Qu>jx(wOS7%qU$34|~(FUAj7_ zbiGx&nv##m%u`&oYn7~_UAyF6?$D3Mdh4MSSidi~M6)S9r9_!YPtAPB85$qof5%ny zn0 z=TOXo$%HD@d{afOJ>Og1IgNfnN<Q{*H$R3^wZl%a>sWQAVT}sk@Syd!2@v~1CL)Vi*XP=Of@WtiBMJ` z@>87UKvx7-3_YNnm1~=FhW)X>S=vUrEz~dp!1JWU-vcl+^FaW9=Ozol)BY}i$2I|h zD)$afXnHSI$Yx@-&JA~`F|8CVU(Cz`VD15v?*O{O#q6~?yS3Oe&X+2~ak;3Hd$s+Q zqcSIKz)VY3DxR0}f6nuC6QG=H^254Ef-u<7#$B8l+r}tbW|?f}aPZ6`pC7mRj}w zC-l+f-W>xlFmTzyCdFm{Iw~S*eby>upvMY(tk(`ZH0*|C8AHaSh;rta=zNfWD(jV+1kg1?VthAG48NPZW+!W@lj#d z8j-OZMKu(TnUjAD@(oo|u)C<$V$#~(&JnD!qXIQl{^K*X@5ss*^BeNux!eM1N#)vol zRbI)63#HKrs*~$-x-V2bDD6tu>85m@UJnryda7gEA{OQF$YF&JQDp=OT8J?e6<;W` z)#8S1c=re$%AKcYm*vb;?e&-A!Li??(=|RO4RlYiLxkC zZp&u#-)Wi2RV~v4CYjnuSXL->Se>X_#8wO+-;X_?m3kp1e*=50;rNFw?5U99eAL@7 zTl&P|pl4sqY_p>rKC3II`?5@Ba_x1BQoy_YVH$pa?LWsK zf!v;dq;>&JdM!$kr3xMGt)YV%Sqxt0;G_hp?2(FDI~EtEutUwa#hHVYHrtslt(~Gx zmYm6lUX?Dg?x2krAqCwcEV9vusXEC1$r;9@r&O)wB>Uk3%CsgNc0o8abDt7bBtB|m zTmZL0C+6at<$1{3k8^i?Qhc)OKU5!jzWX<_lmX3+wqm*NaarPae2^G^3s0gxLpk7j zvLiIqO+=6bt}ym}Pv(bIk2eZ2?rlEi3fmR*;HRY@oImJqbozeO;Pl1ooW8H~`8}Ue zK8di?SHSm0eCF|4#OFUrn^y1iHS_sCpZEA&y2$Cfj5-`srsPc-|CjGXZB!ut3JZ(e zlO`9Bzsh;?lvqDXbJC`G?H}VIs{ptA5lFExp+p`+b(fVhHWy+tW^<^{r$i%vo;Kac za~^2zB6{|>*^k&(lzO&yu0W?QA6_V65l0?+&O6zF-hG;J(-YwP0{wuC``w8^hyn)e z_`{9Nql7dvbA*I2i6R?`S;V+(Bx2F}7g!*+Y&4PIrrR!cTvfSR>;$U$9gsNhr%SX2 z4VH6s(+gZy6{$(J=k2^{*vWC?)|-u%aXR+y5+3q2 z9&Mb1JbjS}tZoi^FEe7QM9Oo1PKk>s(Y`!JA#?jA$?BnS=l6KbY;>9bj*ZXQk8krs z1O@3Y=l_I1=gDtuDyMJIO4iV=ia*xxaZl0$3*1`KBM=NnvU)+2OLJS#8(f55NA>n1 zjvH6Xaqdz6=!d5g7vpM~!DZ!i7Rps$m(#~dJD1fbmz85cVD)8_%M93kk^YRGe{J;} zce>)8qOOf+HWGI9{;Om}{-KECZ$n$>cVBO;sYxyBG?w08`NF_E&OYJ9T|GB;xjW^d zwT(F4=2sVS*1G6+3L1+#D+iO2`NpE#Q?BF5NR1Jz!CoG6o%EcM=cTC4&bU&`^44+> zx8OzRm$5QYb;ZmYPLQR4ND%j}p*)j7NB`^yaab&6h}uTi@*Fl5YZ9RasuevR^Hfv2QBS-%2jvnzB8)uB!=hH-zZ2+kvgjaNE=L_zRm4{%oT+q!EX42 za;lKu&g^fQP9op?il4&0`s3;>#+@u0in?jRA*yCuB>=JzX1HM6B>LqZ5tDQ@@NiCe z(Q@P{WR0$0#smYb@>GK_v&omf5cZ0&M&s{`#@>4}o8*R*hpuoq-uB+*WZJmSyXbB2 z)&`8%o{M5U$!Zua^!9&^ZV3FP1;$ozu?5C$?qZ}#FUza9cKA}Qf<^*#Ai`;=F%!5L zEj7EGI~$*I8bxc@B%MPIYCNk3siOPBY!wp#BQ=~09K$JxzeNKt`SjsS>2B0AHXo}` zddWwDUW-d?_du)vGhFUC)kcP&{g@%QT8i8QG>OMC9<}#3#?GCs?FX|Bk6AKBHsJV>7 z^tJk^GZ7%{3vPczp)T#pBY#HWktcn=TGk|N1?F*6{NiL)IQ8L7YbxU5eCdmrC7^-e z{3aOp#p9r|N1(Ng!eF>5eBYs@aKPvr^*4w1@W@$Ytz4C(;hL=E> zyXr=3@^;pZ8b#?3OP{CGdG1rD{MrfqBjLBRgclA>=wH;wjQ_QgmX;CG%%6+|QW5$W zGhZf6`WN-&^v~8Osw206@pgMWnFt2V7*oT%V5!Q^;7%;&GPcB`RGs+Ilyk|zc_3X- zKjB2r|0j|v%uB7MOXRrq!61jD8!u3Y04K~(@&M?J;ekK8N1UJ<*EpSagFD1|7pfo? zZgWd@#-FUx9OZtQ$&{95$(I=oo=}4?aUn}T8tg7<<^8a#)RUgf^J?|%Hs;alH<>M5 zR#c~5n^tjooUhF(>dLlmZ@ryJ2K0j}_Ogr=$zWks|KK0%lSd&_Fp2l8PTycQGW z)xSYjSO%bkKGI!$0Nz2q0U%%c@B%tAEKE4ui$JRo?IctQ+Zu6R(g&P5tjFzA59CWf zlt1u$pK-{p>VQ6c8MWMR)lx>)eySe$qp$doK0Kc{o$^NWu+G348uF|iYeuy)#>gx~ zTQc^eo*(d6;%;dZ&6qzF6YswWSBq>pb~;sd%xE8#5LsqrqOwW*$iQnpB9*KHDxu*` zH_=llOU5~XGujrY`da59@r6FKYEUlQ%4D>wLQjLuf;|wiThgUSHkdD#Ns94wxXC#n zaFRc3_2H^D$%aulT`RYS*&U2pC0oFQCl!_nvA0Vw;k>Kj-G=dZV<@k9TjKDr32WED zN)V98rlcf~0sHiO!Mw>vUZ`I1XmNRF9vbBCnF{Mx4a(_(VxD~ZXpy%+ zDY$^WpVYI0TH>l2a~?}NOKkGD`D9%etDb#$_T*D!K_J(%PjT1md~Un9-qss?eu- z^=_Y|uUlM~dIb-S#creCbLxe)`Y}gxvHR5VHQWs*Y@bV;iP@QQB`DRearA8zI${-J z?2Php#mW3_!uMy|$PzwXJzIGvTf|Ye1fvixsd$i8-~F~le}$q5(<@z5_BSqLak-Oa zjZ(iphq@H)TwI@ATyFDB-7d3EIKM1?_OOLPqJ^BhA)0)7AeHXc%rzpV{P6_9Wvlck zQdwl=DY{}ra;RmbD%F&iY^j=X8-cz5pj`D>6@6_&MJ_60SE(4MxseK0OU2kJ(YgJD zntR5mxjUze4HIhqhr0;Hk&BMhB|An_H6guAJ7sHc!`IZjk~6io&gpEmn2hjyHowOx zjrCxccV{*PTg?n-LFc>|r)vo^%?&;m#npthcJ@+#W@8X}nfz-e7RZjb9FFWhcP6^N zZ`=A|X4k7Loth?WZGg3(*%UOx4fd?arcMM4@Ammjsdu+)={*RBFeKgwE+Zjs#_2a5 z^}(JSH;C{fwS0utJhGpvMcR>s0Tk{dKT-*WS`!IkBg}eI`*bb}TKi#L?k@N|#n`=s zxnEW;aRh@?EmZy(HR3uv(c*O2@b>B8S(4-Qi- zyGm|V&%(jsZs=NcFXI;PL4RvTbDKYgUB(9iwO1=q#gzMdrrLb%O__!=j?_F@R%E<@ zc|>geGRxLyorpW1heLtmHm~52ZEVAwLMFveS@MM<6GdzzrEnnn;mgwrq0D{;&?GkH z!dR*o*Q8hJqmzgO86niuz0k2!oaG3ih1ybXLApi>(i>+OGYW(X=f1oyJyW0EdO}fO;!**$;SDtfyQj3pTg~fz)>Mdb4-BJu6gieMG4l`08At^A!6iyA$ewcg z?q}rWT>U=<_W{r1>;-Y(b5=|En%i(O%9cpLnu1ut#Mv>aj zqCtJMLR)M^8^!6vXGZ04Q1jq23%n@_Ug_I{xPHgYDqh7h*P4FSNl$vYU^Y(Ip=hIb zdl~G)i2SjT_I!o3-u~*b6n6+6TNOVs1|mKxXKGz}8Hg(tK70eI!le5R>CP331SAKIj`vUl|M5!_YBV67}gB1zS!gBg0=A4_g^Q_r1VF<`+>94rr zfSeXtGD{IT%>@F-3gOMKCyN1Yu za=gwxRHu|bLv>0=g)RykmMFJqy3BbTHv-bN@VAtXTP4slDBAu0Ql@h}Ke!Pe3bSQG z-Q|yCC~UP7R;{S<+Ev?GSs@>s^#_1vVpi$-2iAK3c-Gk`8;G{M{nKQPb>+32r{H8% zX!3@-77;QJ@uwt;qaF@4A%f{KLeR&TyxX-V&JZCej){Ot=9!m_RnPSK;^s6uq91ev zpSW4XyUeCWm_iij(EoCI<>!@^^&V^W^1Cw+Jdc~t!)igBdzhM$+nhd~@6Yr77#}~+ zbNK!!pRe=maR2}FFVCGXopGujx%gY4o(kPX<0xs-+rHO(1@^*1u&-N~!1hg=gV^hl zMyRgbolvF{qUHPyFeUnM4T%+!*ec}$YOd{a=I8#%M2R(#(lG^*Prxxzog{q|@ypiF zOyEcF!;k}hR8DgAt-;M=l;Z8zNQ{|_7gMidP4vz(m2Ad_LcY7Z%`Be_a zg~y0uBLvWeb`h$Z{;0f#D27SyGCSL-seO@ab=+4 zKy;zEzgE@vZj)NDBaboA39Q`RF>}B5P9I&UeH4fTkuJtIw0S!--RbSWOManm z>VMYTFDStqac-T8EngoWMTs?Jc#y^H8btEeJ7ehXUjgHNNH#muz= z70?bk<2FD3GW8))1Z+*^q;oWt%c?|ei>8t_L?41pO1wZD!nc0-YOx+`4mL^eWat8W zE~DD!KJ^SZT%!VwhiSQ5G**+zQ3L(T5c`nMkX%EDs#}*!KYsTT{owdcF>Ss=$qtY_|B=dFN420|CbI>aIKP~zR*&m(fQsk2tkIu9x% zyV1lgJgtQ3?y0x)U6Y$nMk8-6G3x__TjB2@CeRY(TUq_9X{rHK7D!nAv4QH^Hig&r zg8C<=pb<67N^6C!OH1#hIUI<~g$9jQ31bnGh}1vfAb6ZC_1__T$kyO}-u`bh)R_4N zUdx&#{*lAGT{MJDr_b0_V=VLQheiR3L@E%x-vX2}uy;e-gT184FJ^H=s^%y!6Anjp z1Fjm>xp5Ms!9OR74-)TfrTDvG;<%=V%ZLTlauhVnDio?!2!?TRrx5IhWa**EJ80kh z;6bn{bOKtfl_slES3$BxHMYWfZ$jQD1b%CC#O`N`i z&_DbQqlHUlR>)D|NL<9-PR5O8oKDqQ_AL7Rzi5R+3X1yvz>V6U!FQt#1)x7vAL#y; zxurDA{84vR*L|^2q%mw)hek z39fTU7&kfevBXdG0sKUmS3eOwv*L30{0LbMSu*n{tG;v2=08Aen>jAFQ4Y&RVVaK=^fG~?dI=ZRf~${QEvQ|6H4PyNhM2z z#-{%k*e{V&!M?*Q9eKTE3F5DP_BY&Vc(js;4^;goKa3@QreuC{Ng%bPtgT(hrFk!s zvwl#nQ0IOe|B6_$CxBH!yLlV%B{8@nh7m!#xm@W^Dw0>)2eLy^#VupPV4V+HUJY4! z);*@5iJA9+9iXAiEOhfWOUPvni?){G`Gty#*0vhm`1o3$W=xVryHpMe^uw2pECI+9 zG`KCYi;QJSMye#&9GMDs!T#+)8}*2HJP^gD?^BQXy?YLiRiGc9JMupiid&lBhyVL; zcjiNieVCvKZV@^&R#!4op&$Ox$d?6=P8Vnw^|pjvU4PA78#8N1fCXElXDqLNxFX%H zpDyN9R_rVY^rub&o=kejK&y`4PJ7^Syu1!QlW3OGqLjlrD19{qs$ArDU(Eas7{Wyx z)c?NX`P(keX;aRsUV2e25AvUrd7NFg^oO=Ye}mWs$U6O3wJ})hbe8>cs-^QUm38{O zrHrsvX_uulkRM=^$Lz8S+e>y#K3wQ!=Cq=pO8lfWT*&2GL2Bjyq&eESM7u1t@~ya8 zcLT&nZkXpvmwv#=Q+Yd@iUlyLF+<$D<0NHbP>eED&rMWfqsw>L|5#$GN=eqv!TXrLWcAK zANt>$Kr1)Jb~u;G!;x3M=nwHVR3xLIq8`}<7}MHh(G1& zM+W3~h5oW~GQlSstG0$PTo94TaMZ5jN-tb|2$BfwwoK-m2k+Mg>ae3|`o&AmV=S^@ zYixyN;!|Z_0T0anA?NaVq98ZpVRyvbTMW{S%3i}ZFJ9l#OAkd0ioCm9!o4qlW9PCt zJk{;Q4*Tg{k@}s{B4bf=GFm}DQ?7p5#4Cp>>mPE_2_jG5ton>Km~e-_y{q||jJr=p zka!mji&dUTxWmfFIk_y1s%IAGm%cIojpipD$>ts5Fb?Ez^Fnw;zjH|JZ~k2>MiR!` zWto3hq+w??DB$2~tkeU|usnzofrs;iWHnJ}zE$W!I>mM^Db3F3od=Tf`N?Rlv9!im zR8=|9$~o$*L}-@-*n>4E!##P4D>?%Q^BlytKP6OA3~|c1-?g-3t~6Hdg6dj&kBZTj-aeLg@^cvx!LNdct=#;e1_3 z1rwie)P)uYx_@bO`;GcC{g7K&WdCRNt?xRtl>{Jr%V-(x@fw9mg8!ju=gY-KKG(z9 zZb>;#MqN%!8o;ZQbuJe%*c#k%PL$l{Q!_ygwj0^qwz@{OQg*u+04b1>iO~-Qnxq-+ z%gXSx^XHa`s{?i72&T0t+jJ6u%=4$-_Yx8co62jl2OaPNNS0(SL zPTpJ7_nzSOeg0jOQ_I~SIpwv$IJU>;v&Gyj!MFmd7|=KqJN?jlGMs0 zNzab)B8sY6wgbi*e`rmBi@L;gpz-*qzW-6qJT{f0mP#a)T53IC5Q>xGN$x~xC#I6U zG4sdIDSFwtgqCCGx2#`eiuE>4@|pFD!FGY@;l#({kIP~poaikpgr<8iOBm4iAJs?C z-&9W{4_b}%@&z4UNljufX$n*^nM^jn=GrF~E|pI^NBYo*W41VhY6kw`)1SI3Sv49B zz0>_&<)7Z!Axb(F%0USK%RNrt&-eft{?R`1OKzcwi}4P^*vKDd z6@MIvQ`lwPvyxxLhiMHO8~oU$E^1%#(}Q$I_H4&~hvQL4FPgkPt`-SyfIm`gI^f)Y zvT>*+51-)KE z$GrXPc@F20EU+i?lZ6=?(;i`;6}yw5QChi7bWUne%2>YKxNF_OA6(9~5w0D0$>luG zMWVX!8L4lpOeY&k3bieU6Mc^?+tH$)i|9b*0JaA`rH_bgLm$30WcQ(bXI@?Uim^_n z;*+7rlgOcs<*@=3G#6myP$VTVH5AYfHf;)qoUZrHfSQJbyD&N&GDHy1AYcr&z zXj5ecx2`bXcvdZ8UVk?~F$dGYIT_90>!@Y;; zI_uL)la*rqll4Mpg&O*dyK9VA*RHT9Rr@P)JDjI>M)G>EU#YDz>TuU+oS%QWqnBC; zg%l1u56Jg?<6eL0d9A!PRach0Hvl@MRok9Jg;(vhjNBwl_26=4;klgmM_kemzj{d~ z9QEaWwmX(RwNJq?&P)ybkIPuG&RDe4IXdur7rvG^sY}cBKheFI;Hxo{Bp*tk?c$BO zD_Zhhmv{T;cw|6<)F$5$k}ZVngjfH8BxV-O(C$1LDalWCo@{_LPTdvpTo?6hoE%$W zz9}aVP%t8Et#J*Z)RX!=#^RctjW3|J$IQdey?E2wQ}t!Z#evr4CSr-;RC-FQ8eMDq za`O#EMCGD-%kD}9?L)rMiS8ZgYG$m;C?n81LaPN$IREH+V zSD2kvNAw{dS9S%w_lumh2BRMWRIxahVOmvV5J4olsF8}alFk;E1+gg16Z1q7;cM+& zYbX4UgfYlk5A7?IajX$tom#fqSi8=+lDjL*7YbSIiFNrpddEd%`Kf0XS%FwBv+uC8wi?rox(weR5>TdnVCutQR zK4+4e)V#6zbBjs$zo>A3Fk&oMs9$rmQLyc>f!7j5Jeq~Hz?G9@C|+mMhHl?gKo{Q3 zqo2tnmH;2Ofq~nu<@MwfLxsk6d!ExzdlFo)Qj$2o zcgu4KRToN(Gm-2>uy*t&J zOKFeG;xmb6=GzU0NHy6F4jZ1MT-Wk@I_?ky^l3U5ER zd|vEPF_>kXu2ZT3IpyEkd`fooQ+Z1!pH|gYa6v9l&Q~AEXMcQ57RzksBt20zQwbC&_~?2@src9 zUwN*2(N>O2mp~PVP%jdMWU@>Hr(}IcqjCnK1LK!2!O>Ro?99HCLDC~kS&a4@0il6lS3Go~uqF#OunDz6kJ$LxT&-!@$uC1TbHNO2|4q)QGb_-Sl)-bj^*K zpJfPOOu9+V>V0;>Rj;Um>3QlL-`hVxt(b1bn3^&+N0}m}59C|v5oK!3ORc`3;-Hy; zagEqh%><18%A+@m(nsuU`wrJ}qMWV}U+hxV81_D|sm3^wG!9iBW$k0)Rg6DNJvp(| zdi*eOU+R$wgiI&%IDr1Z<7XlBAmmNM@1`Q0>y+C@Pv1f|iJ7~eM-cpldfdk2IrJ(E z?=TeqK9r>p=R)s;Z9o`-%=?)p9ypq@&K|Ut=+7=!<`z|OnvH<@(O=5|L>XRPsCgMx zg=h*k4XacmvK}3eb70{xaP#V~@E4v_4n)vNo7^ucMMu6!GDm*i{$KJCGheJy4PfqM zhS85HU7Z-1f&rLV-Dpi{71q7XC%jE>?Lbs3!6uve2nc(f76%Tc`j8Y6KrC2it}%Uz z`9!TOx}X%S&2n*bIe$oijLJ^#1@nZS*;r&0Rz8{6R1ON)VGeB9!aQ3j5^p1^g3gNy zna-k%*z=4UiVgOcLg!6nJ^M||<{rA(tZC^J1QTjF(bv;|h+1$*v&Z`OSFy>60koXWk*FEQ8^8&MgE zaV_F(W%TxeQKwxw9#-ZF2nKYj8BM0K)K6b30A)4(nG0o9y^(}kO33vJLB4C5mUU(T zojJMhHt-sW)O6iUAP?Sk8j<;x_!Bh-*OR-Z)qL}ixTc628Q#8cTdaRjwh{SbL>n>wjy9P~Q2ZOqZf9=9$k>{K%r#s=2lUHC6NKhE*#iD|Rz8_*nQwmL zAcaxzX1z4zKq}YnSZS?MRx4x5c}V}a&@H9_pB0Q-*k*(4g0jj4mnIr{xFg|RkuaC# zm3+56QNZQfkuZ8?B$tX0QNx45698GZD!EN!&Sz0-fn{dZFTsy^C9}^>0f6y@xtJe- zS3ihdQ_fcPHYf#B$bRfL3XQM_rA9s&^ogHmGObLx+nf>-O z#aXKb?+OP#I!h^3TKknkrHL=rtFnJ}8KaQRkVd@G^>YQ25D|^KV6v_pm+r?iE$fkJ zY@1f#L&uEFJc^g_0V<-e82^|16aNtKS@Di=64zP??FWIT=Zzt>XmyxKIp*{TLZ_vA zWt}y_9H0w1^e$|#em?e^{htHSg<1(BfcYyWr+Cscrp|>oFjYTLAPi>WX;$Zx3)16NMB&vQ{4}B=v=_GWB<&fimz^d4e)e|1AxrjXBDg_ zau~Ijjjv@{(^-1js?J}KY}pB8tdcTliN0S}TaY6|zN*X*c!RcV|A{wM7URX*slz?LS%d1Gdms!5C`q;pJ5xD~2+5E=!*TBRqW1GI&^D^=LGGnOCH zm`_t76>;DVZT1vwI$szv8oi&B1Yk}7mGK1Zp?8np$np3v3&7<$nm$)2dhw4fk%e3c7EvHkyWNVNCi8qJ0-{5b| z{K}`jG?bpu1{URLE}ap~m1ssE$o`=NnkL zS+)!{NrY&s(}&(;R6i3x8D$RUw+(EZ&*z#;irE(yHrPrU*T<}?!&F^2UUjWi^?V?W zD%@jU$N5a$+|E%cOFs}ZKP69*8bBv7C+wL)kgFkebJjxPsJ%OW#)u?1*S!7o1S8(F z!ZnB>ahQni;xV`YI4hsYMU0g5Kbb$k#mGyRTh4eNlcW|J5jUHlee-E@%j9=Si}6aLups07R3d{GJ~|KgtwKS<#h;xvg;_QPR+cm&;t34*VD_N_di4=yJ+}d7UQ^PT}cG zJhNh0B5)IkhqRr7M~j(X`h`MfSv%hTC)A6Cda-rJu0lKSM5a^u1kafRDPdocBh#?<;1U^G`ze=^@_z)4Mz z8dR1^zR))xR#K{W&t0NstcK=g;ATt4DiH9$LvcZEPU7VPjeq`8q(Ovo4!+iD4ZkH=G-55@*~TMS>IXuJzw!kVr3{>p2KXsn4#osQ(1cZATO1X@FisE z%41Rj*au&0zN$7_KW5@rXd=4d%4Y5d!$BWOOT5nC>$Dm2hBjmY$?Xwew{pOV^P)n` zBf)JEXXYS6Duej>!aj4RXf_Oy(gGV%2C*R0*Sj|NDOMrGGd^Mu%sy{Hj=FHd{(6_h zC8VMuSl=VzRf}I8iBTd1qh`!l_}3-gdL;sMplL>7eII4P@$9xEemX!rW}+@#(a~b z0qn@5Y8@*-`^1jYtcBrAGX+| zT56~j_Na`B=YB#{`dpFrt{}aNiWX6ktox{#lT=s@kbH%eOm~E()}|2upSA#`rQr7u zLf5Ml^V1&M+^7|pDI`pDF9L06F$LOTa=yc=4nB$gZ4;^r}MfoAg=4 z3~&E&21`7QSvHJ7b_B`bL{_nZoQeo^k}WQ6eFGH=lp6B{AMC2EkW?!oQQZWGkeL+A zayWl$hXG3ivca*-po&s1Js*Vw2m7RMn6q-rlZV?@EHg?Wa}+8AhtEg1rzkB>z;ehG ztq051Arn|EGL_IvhG)mS%#OgWq!r~Cn~M7`wIiC701ktyk`c}1Hvn4 zGh*h)NKozLFZ86mBbos1l#5Pj-hS+@14Qf~9?fp*jhTCx8~tD)hvGty5hKU!^=9zH znjbs<&%76DslvFz+b>3}RPmP!R1X%Q)J(LZHS2P99!GBwH;+8P92_?a+cVX1+EWev z9pzcoAJ1mmW$s=9CUjc`nWwF}iB>Bf=sEDYRKaH>t;dNY^Fvk0*C4RbX2;AmRg>H6rtDe)ELPkq==~ z*0Z<&WtlqjI`S&pZ=vw_(RD~-cpn+$Ub#lO7&J`V^RbULuY5!*2%KyTp6AxQtgqjz z+_i#w*BeDyA^%$QfuGqze%!nOI}OIjf@rovvCy6PA7vA`jnXl56XhM%J|^K!PaR{{ z>)F=LTjkGAAkaBQ@~~fQ<_ADRXwB{z;<7Y{Ge0$zS$@jW=f;fd%`?2}T^0t3ToBGw zU#_m=+YhPD7`ax+~!tusPUK+ zc30gkUwHzQkjNP)^rJVXh2<7LE+FN>9%?W)1;f-LKK5i;%+2OvoN_W6&aPMcObUDQmM<$XHuD9k z`3fuq9gw@OgnW{6nbK5^rNCccW<-39G+3_~XvHGL%)1mm1#(Kx`qQ~}t$O#|lzofDVVe@mkL42Y2B*A4LQc2gapPV5bIi=Vb>zXX9(=qcGr&R9oT0citimN?M zn~6P;D(d;`gjS5}nKL)&+#k`BUA_&sSvCYeB>2U3W zy)ZIA_>$8X7xGX<#E;@hl2lwg zIXkD>`K++y4fEI2ZR#Ql+1Vm;!b(n{F4c^vLa56#|0P2TK%PYDpe=&mq_A;q++r;M zA0%&($&Q&Nzf~|jCiXDI$pQkJmlu{WcUWl>m{}@1e#EDfCqDb_3{Q<(s%yAHBxgKb30PPkdbkohM*J z%)2>ywa!{Hnw{7Oo6swpL8h|@rk|6 zF5h)iwDY$=i{(pe-gRwxS}C-h5KG&i)n1*qKV5LaetkGk!m+M}P1iFnEwoR%CZ##N z#Ukb(EkB#`*5P_~sj6@K=hFATxDe}9$EJ@#Ydv36wD#v;CD!PE%P3$_0>C*2)#aUo zdqsIWxR(Q3{)$n~;9fE58I+(_{GFu!!cX!nTB(+Uwj$%&s6e$Ifj}t!+$|wF`c6=T~YKR~9K{ z-O^lTU5ob0D&!fs*>P*Hto$19Kk426Q>F=y=0?_${~ok5u2ifs^1dd9AW8;qijT)?q58CfT7|CqMbDK7jX&F30{As=A( zVqulOaR0v)_|R0pnJDZ03y+!Uwbcb&?RB@${yCqYYX&7j4(|R|{*Jr-ZUT#Lnwt6!qsp#u5K#5v-JqIZ{@ul%zN*OgOg=IU3; zAxe-p3QPmA$@YPxm;&p<`De=yj#{ zvEhh*x+77lpS}YZY|{19>)DAK-0jJo-zA?}^AlMyF3GMvV*@!cwcV7BhIBiHpj{2_ zhh@fO`X83z^HA0)DanPu=I_G-m~mJpXURB*3Z&cAC;rkqLxHz) zU~a?@XNIIp;9y_o7~IZKLAKAixV_x z))?2Xuuw1)Dc=>p`{aRdYK_LSW(ZT!-WF;}2gQc4AXT?GeZGGBtUN8^?%C7t?On{< zeNp}(CHFqrn~VhGJL7ko*L_(bDz(Z=$!Re0g|)XDk!pIehD(hPxKzMa0Tdea3i#bl z$H!&4HBt(982FQUogPwJGt-+%>MWDDo6wC`Sqb{KD(+*dP7qZ|n=}-ypd*g8gQ;i@ z1;P~Q67$Z^>W7``X(-w%88Xu=RQ1hbODO+rf2p;%FLAEzB-V9z>xx)vk0O3GUuTcT zFy+92iF?p&olAH}U7I*Bfz5fccgt`=R4d}%WI(Awj)MMYv|J^ zRA0N%ctBQ+b1?LPgS};IFja?7K&$byW64u-c~Du|EdAPOGtEWIn| zcj)Wy!t-o>MHU)!b1ec@>yIS6`;Jey($ptg4%PJyEU0GxQojdAKsgSAT>~a}Cfv}G zd@xcCbJT^x^t-45a^Ru19`Bw#a#Y6dz0O#xR%@b1}hG4JOcrtPaz zelAgy%c}F_n!G{~;0?@}FEFC5p&e@2mm53Oum?grWZ2up6+GbGqZRg_)PBJ5z&}xA zW!c@5xaqh1l$GCnNC=o}A;pDP>I3g8dFGyQ=;@6SV+tWLg?M)uHH+3=Rp9H;|5((a zpUo%Y7O3K$!|vxG_}a!Y67$YUOnCJXSLo?YkBmv7&{_TLT-?CVen@)_5ywLtml%1q zE43K|rmrBc7e%J4j~D}~4IJUpMF@Bt~Dy`9{s2vDfv?JFJgRdjuSD#Jr79B1rk;CkbyqojEJvjpnuj zh9+F|PNHz>C7)1Fr`#CgD{(+!)cwvzw6nu`h{p{n*JO3)bGP~15w@abtJfx7|885+ zSoSuN)kgST(BeXFJLu$IWP(5v!_ghZx_^WDJt@?(I$8HFW#|oh6ICkp>1J?c!IVUa zT-l_LhPS*ecEQLrhnDj~Vjy$xqFZ}y-)HG!$ASkBwUXTZqQWA(dCT5MPWeQgC$<`! zQ9oqVLgRWWksb0Ps{ua2Q1c?4xt<2rije*oi(M>Jee@)rYNy}onZB=-Vr`kLWKTAY zKdH$ZJoQXAsp;I@u%%KOf7xJe#fk)$lhHA_aBoy;3j_?_cgqB|qw>P3eBRD1z z18u)P`c_Yb{xrD7yHor+H(#r7u10QLORkOuOR9P<(>K>T5^QT!^{hJWS5;j^RkA$A z?3g3sz#w{ofHZgKJgUFTXPofvIRsYWl?#fn7K7g1H$73HpIIQDnd;)BdX`ePe&&3w z&{+QjM+?R$f<}9_1n2lKMqy|!{p?#k1*z`RbpEO5Qai-;I%I0|t*6$m^RYh$to!=G zTCQi|CXWQI!5DFGh<)RDx4FMHlX+D7n7$Mvjd}Zvxqv&`-FLW`7No>@cJqs5HB5^N zJrx@6nT&SgpVUHeBWm>D3Ta!=Q|sM+GY>Ha`UG}07F@SSNE#7mUYwA^GFUm~zfx^T z;D{TS5_o1_J7g6(X6IPt0JH_brbq6{4bm9>nJ+rC`?!6(zZ4iN=r5*Mx&?a^(JMQJ>(+*`ZN|AO~PFB3^7q&4OM@dt05 z&CEN@HSAVeM{?5!h9!5khs?eG^jA%my94-j$Zh2S?P;@<%A`%{o_D((7ZcPeZvOkU zF_^qbNn^=;V_*y~-HB^6OKOdVK+Kx9*Z#+E|?H=PoE^eVq$Gm%%RO~IN zRS3C3QO$%v-*m}aQ&0y`I+UY6YpN9u*{AMSy^$q7z$uGh|Ts~i@d?!5-9 z4IJps_H)w)b2a(WjmA=!P`4sQ30bkv*eJQ)3c5Yek-TezLQJcqjg;k5RxJ-1qbfoH zR?oa~cJ4g7R-FSlx;D}b`_@pst6`pZPkVK6Hd1>k!et5;hTg?6tpNkY$H)qR{0_}K zR;^l;GsZ?t%iI=AwVxwzrl%@yo_C?WzBI1Yv*9w?Q2>iXuJz=S%V7b`n;by{n7zK{ z_dz8>u0zpJDqXjYGE<1B`W;rvRN~vow=Zsn`OflL+3zfWvrg%MjR!{QpQzU^1f{T> zFYxY=K%Csg-t-s_yAL_&v;LTezh^HvY~h*Qp;-n zfJ^ipeGA^(=E&Cy^y|*5ec8q3f?O(Ornz=|^^mLY>^4VU`WC8~mob{es=R!`*4sDU zm@Z0vn;uH#tNUuzMxvch^dz<=4CuZD|13>lA?(@*T`P~W;Y-=j*4w+EN*BYpdUvBu zz3skvLkdDtQ}5PKV%{7(6#1mX+`ULt+2KYtk%uDd^L9n7Jjh?K-h@U_f2@LKdOkI3dvQ?Bx!vVNYej^Au z227`S_Zj^qZ=z8r9_o#hq24E{ufk}2QtGYB)|>FCnxtfFx|}vXBW(LsvOcQ z;ng@JZK?W;s9fLwo&;mxAyz{m=Q=@7=F4!MrgXK@cv>2&Q4Q^70C&N7T}9>0FcH>< z?f`!?j#I}ZPv4N*v6mrfi7#@K&#D6;s5)wet39pQC*&axa4 z>`cbc9Dd9u)o-VURO%y+UbwA+4s5n+Vb*LBw3H>fQNm)BQ^=)VYz*bT@jmcVvvRmf7SMk`J5~QCVyrRbjWAJGVZk41U*E4@@#KwACUh)ur+#Ld zHWv>UZ~tx7#kJHMjH6(tY%=CRR2kgL5t~mq)O1)sQ>x8|qxbgDla{kNJCa*Bn4c%N zF`6#JjgHIn&g6Uhz2xE8SFY0IS02A&=F)P?G4X=sg4Kd~eyMgbzQslQn{thvpDAL} z+j3%x@Vi;fnOXHeiqGL>iW3fM@_YO7UUKLs3S@*MpXRw$26e5fq~-(bFqw9+%c?_@ z;9&v%M4psSx9MkKD;}U0nCluoVRN#nPynp6E<3PtQr;796GM*w^E-Jj0QNxGkDBLm z36U|nPi92=$G*ZWC%1M>37feRD6{Mn|ChD5kB_Rl6aObOlVnT=?jR#Z9c7fE1`{ip1__vly+?WQJhnVZu!ylj~6WZM$1{yIs56Z)@#-x81hOQ>)D+ zngOglu7X-yw6?u*tl~pS0?2&dpL1uDK<)RpfBblHbMM@H9zW-EKId~jPsdyn0%#;E zmnNLbsY|bC+r3w|i#;cca5nOizZ^SP?$6X?s28c@QNIQRXtJRJ75s$OeKPD4O`&xofrf=p1 zj}pq%0>GYYtz-vD*5b@|vRY;K4E~h2MshDL%uzEdxE~$Tn>j-#%MTDztY(C!Vp33* zD}V@wnlybo8DgQP!7bd02hIr-s%F6X@;qPEFhla*v*5?uAM*BM+OU51_-eu>j7S+c36WMu zA(v7{aSMhS5VFTRUJ^~;oxS@0;aS&E)m|8F-`9V z1aQfj8aVcmcj9X#hcC8~^=WU{gI+kWyhL7CvC+_aB4-d9H|V#P}|CXDj|6)jIv6TCZ#o-#@9g zZ$=how@bA$^Q5-Bz96-EsO_5nKWY=7JgM#O(b}GKTD2KR>l(n?;HwwXeE(>)+VAjP zIw_6WY;D(R%ns|VJGi7t+twvNLaUQC-RA)`yLf(UzmVt}UwB1`)!_Zv)Q8)NsRiHF zEsJOsqN?{{nY67nd{+loHVw{JWyy+Jz>1lkxu@PdIf|@Bd_*c+Z+6|51y*jRXldRf z*4x4N9nzk=>y1h_Q7Uq588#?sbE>jdakB4FlO#uNCg6_ls8TDDjB_!oQBxD000w36 z3Fuw4|49l&q?I&Ih)~N=0e%8y=9f=ikl2WKrv|b)rTgSOqbib|a)>R5kwc`)@bf9D zQn8hBv#X=IJ2MnVBGo`~av)~YC30cny}~=?E>s=a_+Fz z0_ulQ9Ab+O`id@V2mH5I7LWV|pxf?G| zQ1ca7$kj&8P7#q!B7`74c3zqUAJIj^9n~B)MX6SE^c}*2;Jb75w1fxY{tfDNfbVD~kwX%ZBJ+A*=Jh*J z$-kI)9!#QCkd#DYd2h+Q{*k;EQp6`hJ#rpe2DAPlQ|M@85H!|eKUymIo33M+z4fLk z)Q#n`#VQ=}6eWCkrK$-|RYX*s%T+qtr6mVGR@+^93vy*f{%Wa_DY@0EF4dk%@7$AKhet;0 z2J7?RsL$TiDyy!$r7m(U%Dk4y2SQBRDq>5TQg>iK%OagBCdJb}X{ReS75i-7;XlM* zc`;Ex`}vKl>&*xLQ?OpV)WzG{+Mwhh9Zq9$&B9yJO|h+ccpAq-O~$tW22!~>QRHQu zW4mqV2eQR)$*(t8pkr^zh2F{?N20mhvr_Dqyn499ZAEOh%m;aoUgZlvba=j;xdymT z`H{o(w_F83c6h#d$yLtp1zc@hySb|Vi?e2TIXu-|ja-ZNavm-BlHCr^e{(;|ec2v| zr-%D5xPO}OuReqA2KNWJzQonX^%B?3Y!1G$&*3@5HOTL4xzFKh;0km7_-78!39fg! zCjT6p5AHW{pUZVO*E+6$DD^Lb)>Iqv5V)sp)bopfddA(Omx$?@QqN}dvy5?%%wbxDcd$0H2Fm2kj z!1PbuSUls#n@Vmhz4?|KZ!NoV;%&EO1P)nw!+hiooGr4XxZ@3Ko=QLtVP<@I#uDLF zi8V1^2o)p15)skh(|lHG;4TMlY$5X-=SbhphP}yo5zwyotXnk7RoAemq(9Ta+j};E25Sn zkVYMnbP@O9cQd8X+(MeGq)zM1AMq8g$i<#kNgQBuW+6{R%*AQ0=GGHgIhTm1mbT8O z3;RSyW*k<&eF#BC#6*BwDq|vWnmUbMO__tek}8B?>4WxsWl4kx?1%uaW_vH|7oysT zmJH35H94zSQot*StjEST0vo=I0Lt0H=okW1R>}6KX5Rzn>uC7?fuM{Ae`Yqu{OCdtkH(pY! z84a8zr`cjuAW^jMr6n}V=v0lWTgGRv`DvOZjp_|gQX=O<10V1r{FbOcQwiyWvvjvO zRjhcwFa*2{u-+G|t#~Wd@nSwpIc^8MzMFPSc!&GtZch6H>7~`)>HM5Jbn=?sMvm?h z6+U{cv1iD)c9Q4LTjO4BO}q@m>RFLejY;j=ncLSuHsCz$aNf-9C>)$?zny(num1y zXKE9DgMMyeq)z9g)w{+ed3c?*@-*x}O6WyM^YMnT}{f6-ScRWe!weIgbZMGRp)*6ZQJkQX{#3}m%RCA6I zDoZ-|$mWbw1NBqGB@*OIbaF;Q6&U`xu}umP0r^|pXNOj4ov-nbl^QOPBV`w2+cJEY zOshrK8TMzY2_W?u{n>Y*DyYB&qWZI^tsnm^uXYiqba;W*xl_IjFVs4>tB1R^PE0U) zvnc#1d*bxw3^VzTUji`<7PPLP3i+-&&q1AoMNl2b0+ewCAE!dF7`lI!8dPyD%WyO1ih2a*xlXdt0Z-B z|HjuK5MD=u8nT$M`BU>_3MsIuD@mZ(jXTv$k)w{%CHsL)Rw%57KQcWt^hBhxhW*b_ zMot-O$%kg+XY-9CvI(PdFNe^{Ve$>EPUBh<6^*HPKp}dohst)os|&TKZ@#idO3;feq@+TNg`E!i*o3Wp<)9%k5e z)x`@8mk5`OwC*kPseW~)v&^NEBSs&y#VxZi#xA8w5@Vv*M0)~viheC}i@wQ2dFQoV zbsvW($DOkk-{m?>co2wsmlMZ!Do7jaP8*dU zpiFM(y%^YFe^Le@^h* zV=VJHPQ;eUj-)8I@U(O~w(ui?6Bz50{)h|&m@pd1je_;U@^buas426e;%>AKZlMKl zx3zMI<-K3-ykEsVOV2a*lxxp3W$HBO^LnO#rCPHlIsB8!Bu%gj<1)0$+cR8%O~#?|_w8}e+CpePV}D>(!) z2z9Gi5}Ap)4*R^03+a#3xFJl(KMp|@ivr4P<`+9Hk&?rIq`b*(Vx=Vi*dHBa?+Ndt z?XIuMwBaB-clKu$!EL_+W}9$g@)I)u*KpKokC&0EK|clZl2T8^q{l=wsU^Msl! zy6?Y;?q8mz`)oz8vJ+PEAIg~|CcPL-T_gMcRbR22=KV8xM+1~v_u{0smyR4;-HDgpgW-*dOxL*HE)p=bS_By~ng_t>J$5sXG=2)Q7{zESPLo1*+c ze5>&Fv&+JsD(vhCjKBWFj4hJbEm`Gd_g|}wmB192pSb%aiY00T^e%+r6-y~Xdd1ye zm$&7_ehm~kM)>N1wUQv`-q|Z*tz-&k{7+%_a%_>clKC$(d&Z$l*uB1H$2`nF#`AhN zJom}Go~V6<2HJ_-NA-%;tJV{&z))w}6{I~oB6OVf&1Y!iB*d<;gv^)^2#Z=SGeluS zY#vbzild*zSa<}VWrhNZdoM+=GWw>|EoIi^LUB3IQyF7pvL9}MoyM2X$DChY&~;#o z5b0I1EAbhg#R>J4&FSH{;eSL{$^yBGxl0Il&lstmRBt}tl^Iah6&E(2J@fM#IuAtt z786hXkCo9))9-Kn8_cY{#tYJmyABn$&a~P{CoRev>(o;pF+`)tEI~Z?|f#zhq zmUaC^OQ9pj128|YHy%BINrGF(CkXqIu!0G(ES$~0^(NG2MeQqyT+(3t2s_ik0ruV$!iwr^kVN;MwZZjEf0 zRJNN$DgmW?*8gg+v))?NK^5OP-c;gk0Z>1@?9r0?)rqtASbY=RnLCnaF*z2X;@eKq zIKcz1`Fmt@ADhkNq719WqmZt(!Vb1vMeAomi0VJo9;ul%Y}`F-7(!9=p|+(n@Eyj7 zAB)r{LN3la&#y|ZI%C;+<1&>-2pexoKh!qY%p%-n6FVW) zELqKLx67=@Y{atZG?p|454T;Fa%HxdI~hx~BV>`yS?l|W?HFPNDAXxU5~A^GOFoXwr;HB|0gbiX=X0;* zzKFXVAy&z>N8gi8t93p~lK_4(X*RUjIrdRb*vjYc{rC?-CuYKm9LA;h6Kqwi@bPkjH5YfeQ(w`7v*q>aR`HwN_#NGG0hnR8ykvVh38*;<^l#b5BpUa z*~OD`h+jpMi*1(OeyP~1&xEVjb~WTMoP^cz#7mC|?RW?+wr^*6i%~fHSz(qVi<^Tx zgm;eAXuF<$iwAA@f1KjhY;1dz8+cpRao7g)#0){-PXS)GbI?yX+vZO(Qz$X!An?;* z5i~+YD8Pppei6=I!WtsVk_l3Vft8Bg=vDhA<0bPRY%UGQ=+ZVhT=S;+YSOdL16l)GcBDz z(?6aZxt8Yq%rRFh#MC;N8dAH7LH)$2c8jW7@rUF;f2(vo&l(~@^tDhejaZPj!Q>1 z*>taHf1i+*VHO+C>jYpi%m;SY+B=d?)GBf3c4H)UP5B=wMkW*%MF9_d8HsqB$&+H2 z3xTh;+W|Y8_?^o*RLH0ZJUd>DQV|J3f`=_6_SS^DXURmKQ+kfvHIZ7v&X0SvU6eu9t~IzWq8VAZL65qss*1JDbmS8Wuy}M8J15I z#D%8bT)?6U%`-61-Mmir082!6U9?X%_z<#dOK{z!9EaRi*cyri243L;V*jkewCq;s;!lz zQ6|Wmdk5!I3wdJyNAhq*Ri0IaGl{tocC;2=aV|DY2<;)hec++15myr95?VWt^ zwv?@i&&y%H-+M^%3MCP?JHFU%c)Ou&oKF(Db;U9(_aA;qZftp!sFe>>RBk)DuO;{B z7uE^ry<`Ds-sQ77N)IFadYQA$u`jxKS+=6S`yO|974f{56`1R=&Tg5!k_<$*)};90X1@M|a~!8r6@e;pt)|ATJO4E$>q2&T(?>3Bhis0`&A=8d2UqdZ;W zpb=>i_2EO`Y*Ecdh+ky(zqdwH>!qlOCg@JGv!5 zKQaw?-*J%Am(WxfyNqqaLd|!4#9yPfv@w>mrl0L^Qb|211cOi6@xmr5xrpU+6`5>_ zCE52DT6+>Ugv&%ZeEzib5Erb>gatTGb$*^YY}jr7{DAtNoz9}KfP1bMuQBvv>+&ME z%f{MKy;g0l+e(dvO~FHLMPv4`)nnEhhg#o{wKlO6EnIGT;SaD&H{IOFEuX&xVosLp zb*qe3O*jWH$#=|O>v+M65!ANYs9TK_VTH)AZN|d$u|-!R*ISZjtZfRus8tV^pXvG| z;@G;?@hwin{bTuT%%}eU6irnq_@~ylGI?`0tj<}rHXVJEavEc6o9<%~Z*kO_n>SqC z8d;BBDssH#pW-uW?`N6n72Bv@r0QbDY}9(n&uF`km;W)k@ks6rVm2Vf^F@la-S^m& z;ET1Jmc18lE^U*v-4EEc-II)&rX(XZo@TOaV=LBmSh_W!?Y<3PfRgsLPpC<`$t+u!v{?;)O)4n zTYnu06%P2H=_;T`jOiZ%l`{tQpW|Ef7r&zjTlhu_lPMu$`)jaEgEw^UAJ>R2H5+k< zZ2OE9AjL=#jjfhjfosr1NqfFZ4e~PE2#orq3E4F7Tq_hxY|32<$E@>XylT}b;&iq6 zJow6V`yv6B`HN;Se;#&{GO_&1R?rf?8TXYM{p0sc+V)@3ep#7Wqe~A6SwlIm&fXex zF_TDS9V7g4X}U6wI4<-R132LBLrc1Qp6G{N$}|quXcbL0mK4pVthRYVua~W0r~4X2 zMN$fx5Pyg~wXr7otHl4UUN>2D6c+WOCMu~e}L0F72L3XGX!RqXxAU#wyxslYSO;1Xf8Mn_0FwvKln zXC6Q>-({n~b+nH?i$`buKj$_@dl z>$i@W&yL+FM7pGO;h%wtvD|0o{^d4*j-;dg&CiZzjTCTt&kvq{`styjfG_d3b2%d#A=)3dd7P* zR$HgEud?*(wRO&T=wm*Ms{W$AiqKu5x4_L6oG<&D`AvFdozn_GVo_zaK8@_ex79kbrXRfa*uq2F?yAuQ}WHw!rUNUq;_Q`t?+i=q&ynuZ9*E z>#N+6e10=?{~CAIf22YBUQ0`MnZ8#kNI7Cfc8#2AQ&pGjkR7}H3wEe=^+uyZ@Xpck zB!6Y2QdJ4L5TkULu=rrAbMSkEpnEvrYROq<{u9qk*!~vRGIMICQVX=|uR1QvyH{ij z_4>yy){CP=@VM@rgGL}aYLY0P`=Fe3k5m{Cd ze;>^7sm(hP^Bl}W+EGNhxx{B?Jk#5sq%m>le>u73)S{npbACil?OMyTtiJ^xq0%pA zG2QC)8DN#O_xm^7uy|mP<=*ox9_tQ{2mg@TO5i{L9)B85|{e2aYry<8ce`3h|* zHL7OCoO2A${H~efG^$Fuxs0kJ+RyP@1n0w8C&UXhfNrA-jUfAFcP!*Jn`J<{RBLOU zIrC_#mrxx!^Kgho{y1(pM&qx0Ec>BQnF5hVAVjH7?={qm5AwFx z)F2CqQnLcc5kCr)Fsx96Lc(AL^pTJ7&!&Zyo?ytYbqXTsBOhM$P8vBnGU~jAJR@O^ zjXzsU`1*LLNUTpe&3*kWFwNUw{^a${=vv2rDGb&+1$ncj(UnrclTewUg$%iLhy(j* zkaW%s;s7xaCq%p|kA9l7+dPAqq{ykzOytsxu~bUgMp?hdStH#*{4^Y~X6_sBRhKb^ z%Hx}yZ`)v=hXR5pmi!ICtA*a(U^Zzql#U4ZyQFNKki8%>LE5O`zoeMDvskNoK;Mh# z1qC}^r3$7AkKa&rpjKvNv-*h4cy4mxSaZ>!TA+RYmC*qdg{7dr8bD@{C}e@k=m6G@ z4q#-SKt(ORxym${Ro_Qkt-k~X8{aG_oH;)Z3W5QjSf~J3v1>{1UoP|qe6tGu_V_|a z!PMdeP#FaJjZ#p_S&4>QP6R=a4tz?L_JjH7 z#KRQJS}?yQm+jia*$OokFKn%7 znK9=Gw^=cKrKl`cL*#EXCN_S% z7?OUXkT%p5OtyI~{gv_>lwMZiM)*EW8Qp3rkV<{*kHtw|Rck0!Xl#clM1%XoS1?wS z#+0HNb(`hK_YiwLSelZf`rDPrw#{$PqB%Q6e;QL-R1}xEOJ_HBnE}kK=f$LIj@)>u z+us`EztxXvW6eW_!g@Hzm0`g~wA+)6vq(*eO<_q*_1<5wLTlRvb-hEiaG%d3l7M&damsnZnPE2T)IJe+c=sT@sbs=SjMZD8W#Y~A z)>cZd<|!k&twGX{Qu}N?8n0q;jM}@6hkiu(#?{8E^Ifk+{LRGNU>iA~g~p1W0YQCG z>gTA&ld*fwuM{&&%)3#LIAOM^g+BgGcF)i{&!}A$-7x+BwmOa(Z@;_2Jp2Rlo)#Gy zOAbtWt5QPBMzuCiU?QuDgK&;U%4jz7G zPZ#2c)C6Fm;xO##`V1{poszC9cl)nTq;qUh5qQep7vR)4r%&? zFX7)CxI6=d(`!`Hx^@X+=~;g{)EfKc@UTAoVfaIRcqII;qRcc7`6_}#CG!RwwOwoT zKnPLR$nvr3e0gu;oTKFRyEvA_Gh4CG+788|p(*Qn4YUYo^G`Bju!?E?J70)9C(AGN zea?blZPR*(V8NNL1Dii*q!Mr1hhAs)`7r`a{LWq?2No9vKio7;Ce)(h^DHaZ0)ZmO z02_&~$wmTwJVejauAmn*Z=`*bjb{ zZ>h;LJ?cEh^7H0a^%CI{GWV?PBO`)3QHbDZ@=byY?HR$5HOZwR`}jyt{KjFuZx{*3 z9LfRB_vFq{$TdEg!?KmziM>1=qhF-^hH1Rt}`D-*2nSmmY;o|cWq$U4Z zCFdqg3qk%4o3H&VZ5J_4wwX*PnKo*|VgD$t0n2OG5r<{IC6XVN<7o16zZDDQkfNLF zWJ_uNT!61X?-~btB!t@Ics$Cy^$37dpE8cnfX_(-L?@ALKt|5SMEzj_a-P?MuW!0Z zb?c?LyO4gB9KY!N&DHS*&SXu_d0~+jM&1J>0*>dwC2iZ}3y8XEG58blo4dck)X++? z+{-rR*HlOopOsvKmWBjV0F%W&0cC;nh~7Ia(L4TqGbGj|yP(1M$rOH+8n9}y4AS*M zO&@WtpQ3Q-;Tyh6z%qt#=rSc^^Nea|=2-(8_r7gD_-!?u`&jyweq(8CFoi7cTN$lS zA1P5;;j$o+&;EmgbhLG@!KGlARY)+UeYua!L$8`sDNEAt6-nqg@HIdr0pB{wEn+s~ zbT}aLGV|RhGoma?W01$=(p(bn6RjP|k|f(Z8A0&4GBc>_Bbjj;V04PHs(vs{@^55H zwdAqLVgb-->BRqVaXLsH`w%9R`S>7h!WRs%+ssBX3hEk%k!#ng+ReMNg$1OEe^%Hx zDNJ=&04=jWJGJObV4*;0?;3GS2NODXGUiu zWyol>nnZBS%u0yF@?rBk|MC}Sl>yr9~Nlh1ztZdeLZz4CaWA zz0eR_d*^=aH$9O&YlUFt$Z(F0oLJuQU8it=de2vf}gauZ3 zz*B239i8lXhufrqvugtG_D^Al5?8IS8>{ep|9EkQsG#sW_=*$<0ux#vO{?4Z@<-C= znU@6zTHX69c{WZ5`?Ts05ODEB3@zj8p5A?$J30yT7ph!OY`5f$ZI{>T^wd#k|MHg| z@5sSEV<%~XDFl1{sXDOgesauaMq)*g8&$ZgjeA$UQIGJig5tk#dxv zIv~=C>Z#*7DSKRH46?)+VN)n*h3!QHb}Y+RXuF9cKGz>F?S>KYnO9AqYv?m!1t2b- z@?$+qbE6}*k>WG8_8hHKcIQ}KVPo-iM=%jCkca$gPJTzp75=)dIyEthKT$;6eMiTD zElN=c7!SeXX}edSwvhbzDQ2CgD-jk0Aswv`a1!UBbLd&w5-9H z=YuO|(?+wD1v9_Yej#45-Fqqyn<|fW7T_6P-gy8h4(Ar9&PGuMOi94vOnc_%;L1#Mu+< z59f<@)`uw+?lnCQy)^m!tqDTyJO6+Nb`%P64ZoPf5?4O$eq1ua~ud$1+S z(@#b3ci$Rni#s+(ElehJ1 zF~Ao%7D;a&kYvMrmQtWQE3~c{<0g!cDF7keWFTF|Gz;@rph{R%UU4Wu=>LMMpjxjzl*GD(1x9eUa-$@mHtq#zwUd z;&wA&gShde!!oeerwY&oUTM9h0Kui`$Q)+K$n40i&~Jt2ckj33vAjP6NWhAbO$cDt zx0>JlSh36jURE>{%=lt*Cj`)ZlqA@A+QGD0VsIn^{u+feAj4{*Sr{$})eo?Pu23nh zxivZm8c0}9LXuruGF_08n}Y}2Zeg+& zNZhUI#wP45l24Q$b9fKyM{E+=!bf!Lx|VB!&p!x!ic)t->Wf+;ex+H|lkSp=k;o8u z)#Dq#D$OEdV6L(d)AwJ&YuScWkX~7FV_^B$=Sc)Ur37|DDes9~7u}M(JOZUw_G`9# z6ymNkXGu!Z=>39kTc1GPlEqzKXE1j%+Jk$IC2K90u==>O8xJl%mtimDEJ?(0mt6NJ z+3Pr2Equ1d@Ksr1v?haT99naq{#;=2q5pLut)4O~zW$CPG;lUMMOSNdi|W>h%DiMX zFGHHfXwEX``;2vd=;6_L#Zhc$^PnuC<~Hh|MKYOc#dt9D7Mf651VZE1Ss-8e$-#d_ zdj=uO;>1A-2P)#uZ4??XPYK=PTrG=nLfT3}>%}r9U^usvf@mnk`WxrtbM(e^P0xAY=V4{t6YlhmyDjutti-i*gJg2j+ZzR(DRwf=UG#CqZMKBJ=e|?j`i$ zneY`1H~n{S4;~D&AP%&C2;P*cDM7c3rR!X)xFjCUYSXW#r7!g`eqq~XEuKjyOC_kE zU4`^R0evF15>Ee;n|#Zp(JASDzjh6$nd<=2$3j|;@g964#3sdc~Q z{PUYnTa1f@{Yt|A8_U-^`Wy$lQNto>DnCF&j_6?F(W=h;e*EDV0oetF5u@rs{R8~K>X#ZcHSjC|B= z%#&r(D^Bu{2gE@{w#enbY>ri5ZGMw;+B%+-K3fxzgqTRzH{jE!(1&q=?{IGm9u5~& za=hz@jVgxqu0`8qeHJ}$XSc9$*j%4aQv@%Se$7XqbKDV5cU(}6u16hIYl=M`vkN^9 zi^v!QlB)_e4k->4?)La8wZG}2xG}Mwg>y$ zHEnmnvozKwt@(Z71*R)3w>Nxh&ApgFXUdX2x0Gkhm%PZ*IZjy{nM(6T&z&=q}@;@)aB`p{W1_}L=CR&;Jvxq9#01gLC(2xRx>I>BsW zYn+<;KraxmWd!w;Nb4NDW(TVsUkRlFkciI>L1mroPv6$!Q!j4%%IJ%0)r+gfURQx|sdJC5@_sd@ z=2L_V{9jVG{eRXJ&c*8NeRL+HS_X5Ed_mS|iP)&FmF9=S$!QPg>CgE@o7afUDNjkF zT>bRZA754(_iiP=Hg4F-vF$-fNw&J^E?H0)MI4w(o<;UYY1+>2-_D8(>O6M4>h4eve3~ z(1q_KEN;JsWIkR4t(tFC^209xyBC1j`U6udCPuEzBtU{!bFx^se8x(b4EGM>1-eOB?)tErBVpV#j)b_3WC9@hHTBRzK+)}B*#~9G%E&_8w zKu&ZRI(DBbaSY?L`rsn;!M=u`P;SL?t+NYYR;0DIb7qP;p5EE9~CEs&cp3asr?x5eRcdNJouwDM-L-`FG@EiXR)1il@spK8G%(^4TxDw%27orz39j|5yn!y}^aET@c~VFu)@iAm=mh zw8sA?9W4}O^(MKb??IR4pP;Bx{_HT*sGigQ6ioUk*R+AfLB>}H)* zwDmZIHJtwon08z0rs$hfqi417wb8Sla8dN^q_8`B_Hw>T_fzg)uxYiWa@AQ!0#P^* z&;~`S%edUZvI1X(4MZXy66nr|Zf1)$4bWCQ1ufVjWl>Jx7Qxey0*V2y;A6w`i$B-P z=S@Tb7L4?aVa~Ion3J91Y8~tPW5ikB%Xy<}4PPmK6iqPavU_3@8?~r7{V+&Vg+J%V zLQ$FFWvi9!#{^)&d7Dk0ruNnf`7V|KSEGN`cAcX`z8>c$iJ%?WP*D`QOzGOAfii-c zTdxt)XMx7si?QWq5f!i<0aoj_} zm)gAi?s4DVldvDKC%T=tR|j8eeNP&ct&T_p^EsCeeuaB*BQwp9cS?rM=3V{ zw0}^HPU5u~B;{$_|CM&?>8db=&Bcj94xh9t2v3xp*7-S({V6*EwbJv5pp*_FraMM7 z9w?|P+)7f?2bx_bu&oRxT8DzqTk!Li^&GSxvmfksmsJLzZ+%Zs*GL(2wJwo=0Vz?T z*(`9azkKJ#@IK!99;~OJlAbP&lrmr`2Fztylmw4!+h2#CU6N(}dxJ@#a_P@%U41-^ z4#r)<*ERh|ypd6v8+^TWXz*WELbui_dvrZLLF?Q(K1YwcJUjU1gX{TXe0)iRCtXrG z_>lw8<>m#AoqKOj|MB;c%$< z+~JZ}3>b3Ed)(PwWW|2MN^S8%0KCS+y4b{E|N16vi;FnXp}yY3t>{n)~09)zD?s`d7qfKE>*c#TLwG-2E+9`W4^`v- zklZGB`DZlX0c76tH^L5-5)cPen6X46vtn_LHK;p%gg<)7djz+fGC7D-4#@M5ZX>hB zb3PM3`K28rZ$d8HKaCmJoxkE~J^Q!f)a8x?kQAb$@0E8%_?w$R5c)Y*KYHDQZ7JWl`K(*9b@R)OM#Pq4iyw&92Fwrb zYM5lIk9G#EVzN0q9#yEZ{yG&Q+DFX5J5OH7w{4oZR`6(4WivGP*lyadVx!ps%p0U8B*{utF90%5W&vjx%#<+O_QYXDk+@frMAqnMTq*nT$VV& zlniCGrl7K~P@X3B4GMq6jc!HyC5cPpiEl2GgLhx1O_^`?=09CPlDyd!SBA{Z$&mB& zc>|%moY?jskt(+Rr~DnL^+T0S?dI4(zpiHCo4C~V|@EgmEk-5 zjn@W}+rP$xd`POJ0@YLPYTkhhb=K`}>xK!W)N!pXR>rxM$y%?VeX@4`eqJYQYvg9m z3tULA?Nu-XSQ3WIyw)o)l9RPO_2xWfyALp|qXz}3&|-GlmgBc&e;a=|4|_hT&1fuz z;MFnaMRE7*@@5$uwNsCRy+>lTz7puUfXjV4wzMetdK&`slg5iBFAxF1@k&zlDqiVY z5cvq=8+)YG_|H>P=0FKVIoRKJS=>1#)*-KQ8az21o?Z)`yzgEbT4GBT7w zv--6X?M()W30-8~CrzMLQu~kOORU-#UveZ_U3xR+#TFLDJnVucj0mU`tMoCfKFGr?e zLrxD--2buUp@0N(>5`$a#^IR5tWcY`m7Uk$$8cunsb{nUl~ zDo2mGO)qd6)o#6a(u^ua0ju20(_d7Jg(cEkCM%a9sh1|9@7?}11p*IIM&Q9B6^giG zK5KeF+chyH%|&?ZD>;dU8A(}yi&iXaNMEs$b4D|Uc;N@25&_)p$>hgwd(hcB$*>3W zA|Cb`@Fcuwdru!ZA70R7pOY84QBLXmOiy*roKOyj7IALhZ9UcYIU##w0#>NuKu@(} zPRJ4Vl_0H_wm5!6rG8oUBV87P-GeB^0*;b*D*E7#uk$!A1c%ygHm?1Mw#B~_pt%Uy z@nZEV^wE>y<@{n`gE<6I8Z`YHC3~P z`}K3q)>0+yMvPW+KJG0!YT`C*Y%IP|e%MHszmVviSh8OjeY<00aXM9knQG??Ad-~_ zO-4ytWzu#g4~Y7wJx0tEoCI(Va>Qot zG4661D>wx*2iHO3P+_365*Vq-@IF(l8yF%hTGu`Oa%k3i=9IGEk^U_;K8!bb*gm~0 zh?WzygJ?`0aP3_|v?^K7hK_uX^xYRmcEMC-2!hjsu0V z$|&Xq++Z9A!OVkWl!uZ;ogqBsF7h#9MLMyj{Fi2u@TOENbzwg>mY<-^nf&;rkI%o} z%8$8-%D-LZ5Bz!l6~?P8jX^L;KYK1R*>K!2KQC7=8EkN57OaJ>JT6GhQaVYc@eFe_WFC-e7|(lIWQtvux0>k9gV_ zM9A}ieAyBGY(X2;ZcR=oeix2J1#Ja!_x}pTmzi1 zNph7+Zyf!k97QTBPEKK8&qQq(4scca**n@aCbpVQ2n(P9allHO=d(jp{VGH1kzO~M~BKag~ zospW%d+n>e&a!U1Bx!Z%sip^B5XD_$u<*genP{S{yTEa>TJJAQIi;NLt0f|_w5sbt zDD}Oc)Pcu+0%clHA1ok`4y6Ksir?}o5a@dC(Y&G82J&tWb)56uh;8LGTBU8x0}#@# zt?$r|j&mmSQ`>r&=fR)wXU{!X?mjy7+r--w9_TxbFDneP+i|kvtSSImKLu1vn8OMcV#d1!024zG z9DLp{Ai45^L=hBGy>uK2J$P_NV$l6y;+tbH#uq}0XkS_Pl+Xh&d_wkMVv}4XrEKIVV|JAl3!hd`UML)k^|JQDzLW69cQDYY`wgvFY$K1JKCL7WxZ*8 zw|f#;A}2e$MUCW^%M?!^=xlcK(_c$}hXzD{$B!PsI7loaLIc({#2>}T74J?w=X-Lh z)PitW?U$UBSk1(S%x5;DoiT=mKQcfoES}@b&g+R`l1TtYw`zY<3Ggo{(R4AXP~f{h zg%Cd+kn^)ShUX^c7i}86S&HC90OgwHf}wh1IpO#y$7i;)JOk`OIXYF?tON{(+8BVI z>D!6fSD#5RNdFkEDzYP2kh4ss9YWfqO(-~7(GcX05v@C~Qqu`_mT5<(q7ELh8bKwJ zr>j>=*ms0c*XA7|ivFWHqu`KpS|4IQ()v{EST5?I?(r3K3gZ|FI#{IWB&oV{QlGZE zqY@vI`i#rX13)!(!zWGtFRQErIiFS3ONPPx6|z<~j2xxKjB+y+T|FWwTtZX~G_S0& zhz_5^MZ{nqiU`0RyFFR$WW`PEwO$u5gAGNk`AGh1-a%&wFRhLvK!&_F;PhP~ zvIQH5%Bn?Kee|p`E^j6nG0&q0-%n+MdNsGzZ>(}QiB+6W&2(++{}voviNTNY0SN9P zbt%WO(vvrAe#oVYRg+|+3gNR2y>iU~HSs&%puM(2F~FGK@&3b~e^_wS&1vCq3gIvA zm1TrH9tw~TMXA5(c)$7K2gIISL}O7&9G*OyOzra}Sp_Aql8*aSk}cu-OyS-=QmD!* z%~hr6?v=(FR|elV1nIq6?Ev49-#JVAX7jLK45o1=G^?jD5>$l5gDp9p+@ph19Qkzc z{q?sQhm5l&Bv9i)*<)iu30}s9QK3M`ktOpZ=NX^kCHzEY6?U-T2{sa0ci7Wymm4zb zobHAAT{@&qY!q)KZBg*_`l%(SVLvVz^Gx}UmsJhEn8+eH&=A(};}m_912Z@*B^;Px zBnANcbetB9qZjt$`%YJULkU5y@MV0OaWkoI;)MXxIgnQp;+X-F=Q4SgA>!FD&oFcH zJT1g%xrIsTJQltNfBz?j@Rs59;apboyb$g7St}3L1$^#Rp9k`8foaYpu|6jToqIn2 zx6OYCpb(}XAEwD@0HbgCZ%=gNBugwwG^lr!4BRP=YxC}t8^iJg@5gB|^Z?waSd*10WXZvhY}}4=@>g+k%P0f0dQ^B5m*Ua@aWdL{QAI-HhnL$n81@2;VFc zTj=_qGkmvEvtr=(aN4@?7Hb;&mo>=Z;WhsRIHRcC3rkx7W zGP56*%Y4qtAhtddZP$$$itvg?rTZ==oDBBYYoU`^zoz7zMLZ507cL?oAAI;U z2AISbyN>pdHQ~YP`k$<bCmgnUuOXKu+D#j>@nBrEJ%h48#WJ9e& z5^*juI93bd6=BbKN*r!f7<|e01p5)O74Z1t$yl zlw@9~F6R~KxW~^6ZJy}-#30OTjNo>#bVC6;T*x+Wy+(gwUnBrAyd2KM57yo(f3&XO z0&&xOrk9Ex$@q^zHlkK{DS2xmY9p+`;7fP2@3M{p0eBbm-pHa-1G{} zP+?#9b#%%X`R_e1()%UC20D8BNECN_GHFQhD!%o50#$d_I!4r@ZpSJj{aU}6arAhvsXf-$qWFwTD5f8qt z4onGXwa-(BP(fpAN&iK3aLy!!VqT2p5c`5=>`#GCapd;k+v{&OUNp{?9Q<<f;D9lJpaf>NW z3^PiDee0){^sy%Hr}3r6(LIuL+`9OxB>eE{^4|EyKrO~eLt5<-Bxe&!KJ0N`S4HK) zgROsJo$)GyIE^L-f`iPGL5h6w&zITP6}c5-`uWU;Sdr|-AOF3~uZq$6K#d4^iK}rg zf{fLeFXm@ron>b_BE$Qj4MVUnNe-DmMyW(mo{|9!_h5A`B~^=kdA!O~XL=bX=B*qP zHgs~dbS0mmisE`~QhRX4OE8du9wk403bVxt%#Ek)Vc(d%8x46*wYBlGM?L@>%6jY- zC1Gd9&5FCG(gvFE@2{bmZa4 z6;|rcW2z`6&q+k2AZ?dD)9mn7Q zLKb}7-elQ=fT+n7p1?0ZKWx#Fvam~j$ck2e23fj9GH`JfaryY%UK8F@}3`;tSFhWfAAn(1s65Qq0sZlaCO6zb8_d_`O|zfdOZNY=RGB1^H>kVJ7Pb$)q7)79_t-mowa$N{ zFokErfX;f#8D3s(*@iXhX-DL96_H3@wXzxOvC9M_=|ho;(r)#1eYKvn_Xr9{B5pE> zDN=64UQPUOENr_Dq^`ux=QmrJ{JDcD4j>R(l4qqE%Q{q*2YaWQsjL9vq zeDw_Z@z4m&42zYk%GkIDCd!&O((A^UXOGMpD=#fa9diqw-CE~8vNa-5dM82L)2h8< zz+1@`Fn2PA^yj>d7T|_)+bhW?y0lZzGZ6;~GS87836(s{PjtK!V7<$-6rBM-zl_d6 zDL3{{KM&03fknKS$>9cPVU@McuglcbFRJiMtVr{b1yE?jDgKUFzZ0gb|EVEQcQ6a?l=4U(@)xuOKvr>_5;-h1Jw zS;Fekvf$Pspud?&n;*tZpX-~stNcoXHsxQ50+Ab+?y4biZl-hcm z0zNz0efC~yJ%vb~s!U&3XYldT{Q7WNWX{q|s`fX4;4A>ZR7G_Giq`StOlN@O6KxFF zegLVqs#M?`oWslLl5|e$VArwDGcx7t>C4+E4&>SNx9uV35ggnfW7eohqohT8+S~pO zA{l)xRal-L0FqLhA4g|At~Lf{JOK;c2Y)g{`b{2}@p8$D@-!YzE*M)$A&tw7w0vj5 zo@<;fKV$jV!lyN%`1s$aWK!^1oYN2_+n#Xjml2!X2NCs!q-?Z@$CyUmOi?r|axHF$ z#g}W_&maQ8v-`{Ma^EPYg6eOHP+$x;@rIA}vyS$^O9#IG^Eplr$R!Xu(`S!_NL9mg zT;!tBuHN=rTAldp6|-ftsFYhxoW|J1H6WW{FHFMU{hH13bAs6YqeXclE3*{aM_V5M z0xj4gZP|*A5u#u7i^5r0m0^t0tTp7;adH4XawGj^w&sniAaAS!*jYLszDfw#SPOoK z5`nzuhRz+E74|oxo)@M9FPE{l&loE@^L@)j-!B{c z-Z63?(`8eArr7Wd1+G5GWbR3L?@PgU7z3B=xX>-Fp%?#}OF;XBu{8R~Wm-H}h|NGr za(bEvq7KJJrbf(}Kwi8)jiDxQQ6hVb6K@b^5iRory^q1mB}@s(R`g)+Hy!)C`5HVC zp0D(!tThwjAymau+7YehgM}BD;SdSL|ErwHGqQv*Ng60-sVaw!BBkL1R?I1zG7d|S z%=)2?D?y$ zeqvYgOZ;zc3!?nJDAUa1kkx9b3n=|MH43NbB4=@qG%M2@?aQKmhQd@7FHkYk2_T{X z0euj^OObkrpwmyBtfj$$@CuSTi(70@v^249AxA*M0@bK9monB;uH!VnU6apNE`Szs z`hw&YQj#rH70A(CKVeyrP1Hc-_5~^pgSDZNSN_p6U!{7XS<9B2@4sfVEu|@h8++7D zRcPNik>fZf6#x#QgdSN>tWk4US_m-^d5?4J4(3QINkQX^Xc|W z27@^xbc!`t`lI54yz|N^itqf>Um>sjw9|7sbIF>!j3Si-p7K5Ob);Wp7p;ByzooQ9 z;egh8P@V?#{Wd}wJR_nqm)`5g^7fg8JUfzi5=n{-|3D>ib?{DpUwV-$kY|R3+}d}}<~TTDDm`>UN;%A! z_=b*6`@neFyy^`g#1M@mst|8q1HvRFNJ?L^lfy}0XQ!`ZIm&{cscUgaf2NNo7xlUK z$VNcPdP|`qL99_S%&$*#|*h2i*OPL+OP_Iigta2eR(ga;-b z+?!6v%afB;#_(N{V+>;{v6=_6Cx3jst?WMVXU+xiL0!bry| z88UP;!=#qj9>;=;vevgM?r1+1$k)Cz#CEhd@q5P;L<>AU`RrWi(d#K!HZjBOH~MHT zES)3lpC7)RqVk7+ZFPc~$cZ0~u`(7dtCbxVlv@kiox#(sxk{1BvYphr)Isb`Y>|fX(5ST?j=R`RviBoWG3Gjz@k$5YHsZjHWBC$%j@(s3 zU(^B%`%+nytTd@Dovb`1w*`^kDTNv5Ex>1=#lo4Q3bbd0kM&ealozaQicsN|re7HOW9ss_Q$%jIy82~i z6;JweZllr1lvrXc^%^U^#s}o9@;V0QVzw8r${Os6Vd?zgSb^Baa|AX4^2)G)k1Z;5 zB6yJKDUP`NGqHu7&{CxL72Opf(0<19%-T_4fg&3Axze5MDzV^+&#W}&61~$gqumQ8 zWekn==g{ojCFet57kw<>wuJ+~Tw>yVu{koSh?>!2Lz3;+p6%67ZQ;;pKb;aIXAG8C zC}U<)HR4oQ>qdois>MJ4Wmca^R7iGS2idY6K%olR$w-0YUK`HbeG|(e9^*rbGKSOY ziT1u62QvLp_Xlknw5bZF@Rr2CoO!P1v5EKzfRk?t&nMFVgt`d?jAcdj`q`ZIcNkxE z=^I}rn(57ZW#VF~1B`MP-V})$=v5w?uyl!qr3q&;M{o?B5G-Bd1I)yv z^$Je@Kk!lMe=Yyi^4Ab}^_HJ87IR2e+q;^_OCvl+o!409Lmz52VXn0w(&wbZEA=nAK4@DA zN-T8#U)tUUJj&`?_@5+`WPpJganMmC#u5}8w9(KC1T+vxq99C+nZbi3wzYJO97QuD zs0hI!!0#tervt&OeUbG?el;B zXp))t-Pg6(UVE*z*G00M*f~tvCV^suGMrqGWoQ2KQ4G=E*Manm4qN8$<=`3k!e%e% zBfCA@>29S%JuP`>I!b>%(ro?aF{0lT-H3Y(;WespWj~KlPO9WQHRZ)oy0WXQi>u|X zuENUg5*b${w8P6DihTvk#@Lr}t6rH+UR6V|jYJ59jor~(XqLd7K@T@+-E{1JQQ-uP_@~)3*E#TAbog3yb4Q*oDtMzjQ=0Or|yx3Kq}r9bRu^x>rvy0D*wLe1vFL#kJbA>q-`z zfEt;vEqu*c8~G^rSYFwGq#z>E?LnAbi4BF9fjb=^nz%ud?sPLC&J=5Lz)It2yGpKD z5+4Q=%Q5QwD7iR5^sP{%*-TX`5+`ZZ8VXEW>QB}CiRqVTe~Rx(F7{i++$+|RaKSBk zYskY;hpdeQDLEPZJ$1rkV)1VqurDWE$^}-M;4q2n!H?4u*SqD`m~`k6 z5LG=~L`;_kq!~U${80Ii6V#7y#+^*tPI3$$!i<&FpNSP7%u(HB|BR2CN`LL~5j}OH zHm7H={8`uN-m}>qI|fJx+W)d260o+Bz#$c+7fD`RVH+%qje4M|F>DT^dXv9nIdc+Q z)POzbG9v?D+cF}ek-E%e0dX4^{@zq5uj-Yy<2j09biiEUUlJ43@vlr5^Zi$@`K0_6 ztF5H!l_f!I7E|SL>{_3=j&-Sozy_;cx%Ok*dOV}#g;v>T5 z;KrErAY6eFTbs=?=ye7y1cyj20*akzqn4*S1SI^`AyJ0<%@oiR27ud~L665ekJVp? zu5|0lZLqh&yrv?XV|1kWrqaT;8W=2_E{sf{EwBlgGZc(o*bCY7Gc&a92(ork)vRFK z5CGRQUr2I;U3)RB2Uw{MH{`f#MtoUFd&Liz0dzgqYIaSqLMR%f?j zvA0<`94^4;cSj|#l}`Ok63<6P(XZde@C~44>`mZRt|UW5lUH~i7Q!ovJGUGYLhviy zWrNO%>47olgTm*10lRa8!|tTG_PM`6iO>`c9Jw>aZe9NG{iD(KIJ#C%kov34g?=;8y}9na ze8pMV^zIbwNX;r;TT`5@2`=oZDIAtg&hqrs*t@x=gtBZn8zV@|(|h?tPW8W^Db?*7 z+iGwXtFgCXre;uT_8ifG^apx=X)3tlSu&s8Sn40pWKOQ7Jwz(d6RZ9tNp0bqV45lu z`;K37PB`+o@P#k_Ej3{U+%cSTtEHzCBO&2EA)4@ z{toHyOZE3+ey=KPr?_d}qk*G?sl{RyuPJcKAhkU_MhQ~T2bKP~?Yzu3`8W8YRY4^T zHeZzaBB3s2G5N7$QJ7|pSmr73iyb4eRxnxY^`VAy*egeDV&gV8X})&!Gcrp6DiSM- z;W^vo+p+<4&F&XW@5wtL`6KEAh*=y_FbO4smm-j1Gq(DET3UHX7TLF^9TGxzNZ0a9 z3s>5x9u3nHBn$Y-Q`baB~ z<~4?XB+5yHOKA{mAjXRL>fqg6;xPy;l5(&>-bob$yzpT z)!%&y)pFH&QURS8Kq)EM%=ksRP$0^Avy@}?28h?Q4&f4=1j^1VPHn7K;2 z0^9Yxy55o2rVmJK$6FWrxgdELL?WZI%=o)l6hU2x@6OsGX<`ttMu{hm5qif9PGHGPmbbGIIc7Y<0fN#qwj61npR(Uh`H_H#8>m|y? z9Jm=VP?&QdS?`wa6WfCIQX&2luxoYMEIzcdI?-7GF~M(5&aD!T%8cV0Y#}69Nq~&w zw0#aekS`^C$)yOH^FWRQJ4MQ8)9su}UX_okcEG0!AGxFVLZGf9vdYJTgCK)*UNFHy zP)9zV^S>Mz#m<4j^@^sz5-!2FO7z$CZGBeo!phIkC9Sx2r7a-#6OG{i*HI7=f)T_D zruW{7Aa27Cxf?}ko=;QQq$V8u{D-7p@U{)JF&JOV-ljol_`d^WW{wE)`8tCEm=KXe zM&q^)!5O|{Jz4&oTs5y*3bqM5H|RV~?ABbt?^~~>M?H<6RFW@YWISq-xEr?3=8MqB zK-6`K+Yj{#w)BrqEuT~fAy*-mX29hec}|X)u$B3 zyzoWeA1-A*z1}@t)fm`5YdohypN?(+EE2!KN{HzYHn6+=gqrkis2`u`9G}>C9=f@G z66s{0L^|0wJ6@J}cs(OODt=7zJDRWeVa?a;N)~Ucxhk)>kPLD&gAPOy*Vtfzq$fQp zDo{OE(vyfx;lwq(lsGTJMz_Q@^zaAKsJxaa5p(mq`U}d5uQQjFQVYtv90)rv^LW|9 zmU-XbT)r89R2%%6mo2<)F7I-l6De`oNW0mVX5KiDX;n420g0jU^o4H!?fm?PpLh9j z73A@s{L9bX?oSi2s2UZQB#b?&YV|74skWk|{v|eIwY6GKt{(SVW=9-~^MmE*2MW$7 zx!m;QC4fMEqEo!;Ppd_{R*R#o9aX{asGhVRmR%H9k$7Mxa@dp{DhQ}?X2dl`LUL(j@gCp|0Wtv1|^q;z;?W(a1_ zurFvlg2UFF**&XE7(IJ4Z8ZcmB4z-T&wmI&5;0)5IsSu#>E`Sj99chGi^AE8=H1

    (ne`?PRE|*RT}STjkaBKKbqjOg^3$zdnk!ie=Z9ofg6a;SZ!&U9{2ss zP-?Dtl6a+27ZVN zCO1qN?sU!i+kcGB%tI40ds42IvpV!CSLz41gv1C*f`DH zt!G3GnJ*E;W}X6u`&J1+Mw{?Hm?N1Ve!-I?B!;(MJPrdn4a@r}r zjge}C2FHhz5u%n1=BM;dmQD9nYlCbt%e|T}0C;Jw3(0k3eJzoOV_wUBi#|d>?;%nO z_3CSdX~;~dV=8DSeyH7-GolUMLF}~&P;c9p5mbc{Xce$OVg`NB^f1dC;r$z9fM~1_y zIukDB7Qrn$ZTgX&B(`9-nS-i2Zt&fmT6r!YO1#x)v#PL^%z8ynwZxT0;Y6aN^orEV zxtTKb?_8s_Q^x)#nvr&C8!pAp7s&2P)`rMHN|L~2?L~Njy2xZm8W5vmLA3K5Za+d+ zL$Y?Bx#oq;*?6-3yl1u0g;D$v_kau;4VeP*KOZ&&`g5%L_grm*kOw&?Qw z57pDNC?W9lNZl&?YSNjpS!l66+~5)wc+G64ovP0hih8SjPX3`sN-YGMggU>YCnR5z zH}_n~Ut-%~29bE{Twc@(;bjpn|6Yh%|2b#dw3VADRZw5Q`!?RJHM`y~Nd?Yd`PrrK zW5o5}>xvF_Vj&IXZfS0>ADip!47{QLjZHGtVC4r9t7UfbH~oy=jJgbztC8%XiKPcV zUQ&hzINDE&qQt?H_^~3*&it!Q)B}`mv2PC(k1JV@*OLrle4_un7^;!;W0Mp8vtnOO z^v{k}Shvc7z&*>zru33==_O?mBk|bbYI*}Ujk3IJ2`?n2*n!iD*0-dZJL(b%Dl%U% zvnEhpQ$jWiIfpd4+Vr(`#i(h7DEU@N{&6Ktjb^KT$wE02aFRKJQCe+6p86qAjY6Jg z1x(*#8bXxITVdfdR0>^~oD{2vwx1>ncEBEWxIpxAGN*duZMoDg24uLGq}cX>O#KG|wCD zN9EV}yAI`Z@JNh=V21Ou8Uxm>5;?EXl)BH95YcD4B}Xx;I~}T}DR;1iUL)rl0X2;u z#)~G(I0yzE0aY7?;KN7gUxj0Jq9)MaoH#ft%Sn)CHqbHh*dqVr+SJ|i1fAY^w&(=&!mzlZMlRS zpfYlf`oA5^XG})I~>@ns;QWOERTUl@x(9gl+_N{CVgJJ5^6Oya$Lw_NKx9^rsWk z@r|1EORry7b>FJ?`HsEiOj?`nV^mG3`GGpqIHXMORJ?!V#-PvSK3MaLN3`|*6JOgbakRXzb&AblD)@5 zqsgc$rO|Ld$Th7*6|3v2>c6JQR*kp1LyhST(x@CWx1w=`ze%o^2US&V+-KN_X%B&r z`Bzs}bHN{ekj~%EiW_kA%1W!r?3}%8^g+yco$l=uoiWvNF`xPCRq>b zJiKdQHODVZTnAG!);XUxPJ=bsOe{w48hsJ}Kx=6W(`qx_X1Ap5uRS*@Yi+HQ{hno3 zt#v|&t!mT)+vAf+#>L^wS*%p-%j>2|@Y^w*EYk=g*jaVcZa}x}=$@P8+!cNt9gut1 zS0IA}TUqR#jM+-95KRvbzb=#cB>oe@-) z1*tan=T$TPe6HcwRWnQF6ThySSs|bJwR~nZ(IMb?XVxcc>aC7@IbMpIAVkuEDp z{#d@RtwGJWt)_4Y$~1T-Tz6~y67zMYMEk|#>s=hx3-%@nuds1uP_)14cuCki%Tsxf z@@`AcDwSa)Sn;Z~!Tg?ALPTd)TOG12j=HWHSKlUF~K(icfX zs|l6mYKLfXeWiaE@fKN57zFv(v*v*Pfx2bcLs%~JoI|*}SbEXJS`Oh~@g{7a!Y1bw zZrv!}fQ-hG5;)MH*jt67Hsi{ZJ%lexPV@9k^Ezi`s=<@wM63&y*Uf_^?CO^Tvok}6 z9XQ6ur_Ps?9-_}%J#(NX`d{+1)a5A2ZI;FMBLy zH4~j5CHmbe}T(Ru; zL(TZYrxI(m@cXhZsAa9y!u2O3Qf536g4vc=cEY?U`0H%8s`jE}KF;F0pmXK{91_!q zu$|G>>@DElpFUU=G4;`v6>O*rNOnOE)+<-v%~+hZo8~cNI9XvXxcBrxe`SDTIHsfH zQ)yC1$EWd09a`A@?tER}#A6Cc->sFvIs@M<>^^6`_SRm?DFN8trGNPsn+|=RzObsc zIzG`_eJ@W6bZqf2vrMvr+zY17i;F~*8?LGPBsy2MZ{upYj!bGhVRQ8J^8Uo9gid%8 zk7?tQ#9)r(@!K|IJCc;HxiH+j*0AQJcgZ3F8D6HZtu00aXE&Fbhcf{9G1~t6?+@^M z7WHj(89=X)-4btHrs@^JG`MRU(^|jj_Sf?Bi_6^pE5YnNh+R3`f%u~;u?95a-8hSw zF&nR{_HB47HH~P&q%RkTG6eI>zO91!Z2l0EciSp1JrAYlw0Gq%Ot$8)Mdq$Og#(U5 z?#fek-9Z)ZYETBct*u>ed4_H8dfStDB9a_btaou5Gof4c$Wj_d8bNkcdcxX>S@PQh zY5Ns3aU=`(T3h_!Km(e^Y5OtJSZAovF|B@KdK&3_>gpFJFRv%BuF5Lex(k!h>GT&d zvm*qo9H4<_yxak_%obv5iy^Vg9O^e+ff;}*iYw59^kc7 zK16}frF>=zCu8VYL(__h?T(jn)EA7jP>*sbh z51Y$%wO6lO-nMS1w_;mun`>?D)$Q-}fqDgy4&vqhxGSSpXv7q;zsWj%EgJju%ZbkF zP_zVzBt7a5Q82GSP8Nff{b;w(P4xJQvHqjUnSz88ltOl`)}iT9H`4}axq!aQd_%k2 zm$#+qn4kvB+m7JQB)+doOOe(gQ9nIeS9-!`;{C7`?Dh2GrRI^>!M{s1Y%f=BpT-wh z9_z)#U;48KOH+3A7MpFaP>Mh*gcDyu64i;^+LYG@rrr(6xDybPf?7WBR}{)9{;{Ny zko-!VML{kJB(R!zr}+Ln>!}ysYT2`+bY>fp+Tr{R@n)=T-;WR)psVt;^3T3sxw(9E zrUiBdde5Ub z`JoULT=JhJ`iJ?}e2u-pfxG?+x1YD(H{=!SWBq(t&S$Rav(M#5k22bgmxey}HM7`s z;Vv^9ckWNWf!#0#-asokP>#~HVcz|n4#r*frdwp{Y^(y?vq;-G?9D}m)yyLIjSP+- z8N{w@wY~9tvxgJX@h}qGgdUnQ(2G3;;v#fi>!m&Kz!)f>+pDyNT0L7b=j}i(8HKcM zr6a9w|2O%$ik}oc8(e&52*| zyilKCTsYBQEczPU-=FXQ{BgYY11GYXM+C7@hH2I3@bO5Nh+taR)rie_O3{H5}33FD2O5K1j4 zna8yr6EDO6LjgxaesEtZ1C%dQ7JTZdFA8S2_`l+P+$(3C)SoUVs-g)MyaGYa=lR{`uO{C2#!kF2wZt37)WiJN%^ZmAeW)>cwpo=H zSOxeVG2FHAS)kP|_HAksjIfi!m`-Rg)Op~B$UeR#Z02lLht=Z28y|wo9gZ;FTWssz z(*#oYz-@%U=dhVXztDAt40q8Z9J46FY6F|NF+-WmZq4g<$gresuE0u!pv$(EBte|g zqn2`hg`$h93jGmtiD1H98uQcGwoGG4ICW$hlco}POIYfUv~kt~Pa!fdi>VYgj*?+V z#;F*Rm=^GKV@P4&1d3{pV<`~H^vn$Go@pWI3dKYcD2eWzATxS3UxC~^LI)K#J^J0x zBr`K?v8Tu(`FVrNAR~V>=c^!a*jy=~;>I0BPu*K4fNwpcF+ED+?K;<77=w0WSD8Vh z&8aCt>!b2svC({y5xf2 z{IP$3TB_gfRDT}`w;l+avnZd~Qqk*|wmP&ej=jS8Xld-P><1ZSOCC-7R)qm72Q=5q z-K_`1CZbh6wqwuW4MDy=mM3FUwyG?^H+*Wvw^oeHO8F~>W#Z+{QI7S2SG>mMD;k}^ zK=jTF*&*Y^I3ZI0cMTDeIXSZT; z_QpNp4=6CS;cBX|%V3G~xUE`7sYh3oSO_8WDS8*=D%;3+^1ZkBRYj+AzTxobU@{69tFP^c+YFGh7yleyElD zSf9j}AaZ_(7^O;`1pqE0DD{#eTtMnwE{DYSboo}4WsiO)WXzwaa>ZtCk~5=R;@|{2 zK3ION^`>=j@9QA;akK$M=Egr^5+zOPHgd&x9Aeoj86g4su9K#_xmyl`PbD-J@60rR zOR-kvf~mPX`g7=2*zAA)U^)_g6V+1K-1@>`<0$sCOvqyuV+sTcK%Xhf6RY^C%|HW zMmXp5((`PwLnpR6XJQfaAJD5>nOGmxD`LtS7Kf&JQT|5EqJy%F_}#Hh1A%V4? z<`fAbRoR6@$XY60RfzgRJGS>338fmVuxQ8+n}^R44U5=O4JD)yDE#DenA^Rrxb;&$ z+F;85Zp{N$9`nFd)yw20!f;Bo%DLn*Keuh1x}SE+cTm1na^CvQWICopr)ujcEg#R6 zcjR43dDWnG!dAaoBAh(aEyo{WxR^)2;jr$JvHuvSdgIS1aCPCH?gw) z66+iv0{k7WtFUVQ$))`*%{|ozB=LscWngXmiO%uiX9vwu;X{S0+CWjyf(5UCS-e^j{Y*}&5l*Sf5lj+o+ zuPnqjrXbYIIWegB@lw2avO=4#Q98zplFel-CWGfG+w@J8hsPaY|)cn=%hB;aDpwSXiuzHLu~1D`QiqPAs+sw-*ND(cOq+7z<%a0rl(8?R?B>gZIRegssPIJn$m&tb6!cm@jI!QAF=w(eNq(; z7Ykr>N%&AY8eMGYG~^{A8-;2HK8JECpGI zw-!XqFSG|wZ!uQ($M>lIHc-{KyjU)^77#6eo1Tsxoy)(08f3^vN>l*&MUCsL;^GK3 z(~~Oc!};YE>bGv=0G13$qX_pY`gYt=3%H)Hk=yCs5pa_kmQEsqK3iLb(q`Evj$l7T zi_W6Q0{4g+!xCiS0f$MP+&X`GU)P}mEW?+b0&4D$mkQ?j$Har!h{Nf1DkOvlRn~J_ zf44y4$+HD|9KhGP3%2zZR&Ddm-G*K0vf}bSb-Ie)q(~Vt&p%0z4T_NdNb69+$#WF( zyw*;ZO~M&>VD{uPL0VMyPu)o{9beB=iBLA&^5NW;{JnUC#h0U6`G>Egn6m-4)4J#6E4Gb2oe~c+q?eaZu5Uw>(s16 zbe&pC66Y^1S=I;PvNu|!t><=`SF~g zPeTsm%|)DgQfKyVDS@ak20E%jTV^LJxyaD}zfO?NY|{%SHbDP#=>3_}eZF*ms(dPt zGyli%MM7m?j}@k7;b^95R0>md^08B>-_4L^rGD|VnP%d;z^BB>$3y)*wUes%?3u>N zaP*#PA%l`z%VUlot~IhLKq#%NA|%>gmE0L*#>Z4|1MTfmt#LL0wz7IqT);Yj|6>32 z@seuI*Er*A6vnc{m_I71^P_Am6kRA$@j70&wnlt2(K7qFG4-Zq%CY-R$Uh6bp!XaB z?_arnX)O$!AAe3|+UZ88`tW_N2%s=a(H*NX{W9OsgB;zu1BsFhB!Xfw_IZ%-d;d8k zcI}6YwU<(VXX$%_391y$C8Wy60{$++Rj`HhW4c1j>nRAYlAqX+usQUUB1x;}y1H%G zei9mq99~}Q$1J#B4gwX7Gj^yrw&4fdWk_+5L)_R>`Pn71@i%%uupr?Ukh?)3Cp!u} zTA`>Wk*VTeg$A|In6#wZ)DUKTo_nioQk6MSuwJ36NhfL<0!VW=0kO^bWQ1Uh64dRu z%*g}F;N76)RwNaIh|?_1DD4&bCFfNR@c5|wwUFg*ltZwu=HWisYJ68#RfLUIcS6$S z(cOyt2)TLj$xMmDj{&k)Qlq^B=Pe~hvp=IBAgn~p(THnEGn{s2C#*Ig*DZ)MJp61wz()c}gC24W>pcbRQLEMuPKi!gHW3rP> z?4FPjrt!G4wFxsK>=UawP`A(&0mSMb!pKtN`?+i#qtY?I$`HO+|60y)p)0TBQOf~MJ%8^^MuAhS@PnwM zESy@W2{#qCruAcHHVyYCH`w4eo8H?m(sfBl5VAGeDvKA}4r z;Uo#0-tIwbV(%yaq=tZRHKMu;x88le4hc49jjVb;K5CO;=MVtxrN0m0O!vC!#Z&Tl z*Jr=ml>3fY6{9vCuwVQ%_XQ5yVe1-ZLQdpskJ;pAH#O7n4Y_3|T@%o{k;kQJWSABy zGB3AC^lOS-4Q4vYM;&=GY<{jqFbTkrr#8z#vGo+mb2vz)2M$?2UHJF-sqoJq$mHBa zJP>}Yo)9KP=Wr$SwX$>N-c9B{$j9!kLEw8jdJa;8iYT}1c;M6ABrl#+AGkJvm&?BR z2qefeL*^pUP7vwe8Ggtl?1pm3Q?KKh9yUwBRj_DG^zII~#9;_$hb5zO24t=lch5QK z0Rk(#CX)0iS?_mdYY%mr^nmGHKVT1Fg>MzHUkHRxGzC@c)r?;lY-exQ_V?5tkQ=kOuce2Smi*fUj=Gw=F$U335LM)Bm$=pMypvt!SLGK5Vs7~jk;RO54xoS*~${AiH<62V@; zw0?)%OqSqwoCR8oqb2e@S%J(T42oF>Do4!MfMRq#T7hW4{L;E+CH7&_8SJa*CGx9G zDw;(+#86#1P;?^M``$b`P9A>@GDo6+t%_ z(|iq~*Z6d^C`u}l6)lWRp@x6?-uarc+7rE*0SI^a;hPY@F!6%?pgS>QM9q#jd_K95ON)~8Jjtk6^13s4NOle* zF8SS&RCtJ@+KB}A#r=J}`3w6ymi~NC`JU1KNJTd9U+<6mGQD{c2obKNHLnR61qDX@ zwI_O=bWBV;`$)@gGEpALl8GWV7A6fzqjg?CX5K}KUDF$cWjgx_YM{I3{IdRNJ!6BV z-z@&*U|N&gFU=0|0ug!-1Bv=P2`O=r;6?Z!oP{P3!|Q$ZkS$7cCI@{6enWkooW zSzJ`X3j#P9!)655GiZNZDAHtp-^HM}K~23?pIoy`oA<4HUe*hb-u3VD0m-g3+3FSd zWKR38x7`Ipt=fK0eoSwwixNh>Sc6NCwnKkmIK|>upurvATa&dHaf5#T_0VJ z4-ud5sJ{UPK0`$jzK4$Ca$pScLVE-8p~Lt*Og?)m`BW(pl;xhCOwEj;>L1rUNLv$a zunD?9W4`*a13Iv2slB=vd>%F>B-pOwSLftU!=FL+K#*Y##$e!8%CuePu1*FjgwQJt z{6(0qnW{N~YerVSKujaQ@6OGsz{?&A5_4-tSs)}E`&(3@JSv&xo`=O=BGD5f)s^Ju z^mV*&9TC?a4wM30BzX--oHv#->0vt)pZRYbpK=R_OQ^@n7kvNSrNR83uY6L1`GIo2 zn&%T;8me#Cn9X`0Q4(r`;JouwXcggsT#{oYY-ZfT*D&l}NpgCB&vX@P#Uy5WplZ4; z1OM)WgK`I?N9O!2%0wqZ$f6p^^6Cnnf&!1latO;}>UW*DWyAzRgkerL-s9W7_PbpVXqMBPkRI((K| zA|T9OBll75JQa0I%56~O`VtqyQwsCt>yUWQk?0l%5;k}Ll`-Icg8bnXxdKNL%gw> z*srPmu)OvTXvpIr6JJ5pJNdf)IF|T>6gDgTU381v|2jVwKco5X zD$;*>_MhC}`TC`x$ZbC?9N<0VQ(|{?VDnvOlk%k^Ps;^`51if?A7V{ZVD-95czq~U zlMgPvOz+L}jnt9e*DMo1p$Ym9;)*`;rJo&y%QSDYa-2`Si@`yEO^DmcA5s%) ziJrURUT4e2TAP&clW&_^8M(L;SVzoms1&vCq#aq1so)4S*VV<#BRUxYb6qb@iF#~i@OVw zvwk|71rbG1a@mi9dWm&qxXFyrp65!>9(u-qzc8^aAE%h)j34<)VOF%P3yw(x(^^9b zIxN$2wQKOuK6=wAF zeBp(lWd4hM{wCz4+A>s~Qt>^vzcOtb+jMlQ4y*MVUf26(5}QCwaM1d&qy>rR@>>`2 zq9pTF^n5(U2WB~cJkh&hbi!sNd;x>|;ad=1+bH5K5TQw8^;LvT;MW48akf?|Cn_;v zt_J82_Hn{Vk_GC&4`QmZ)BF#ASsMB~ZmNtoHnMeiGz8@gn-~A2bhGz3r~B{l-RXBb zLjaX3JNIJiNe$_fLd)a;|!%x4M ze$_gCJ1`bHP!j!2kOGrs;pBa*Uf^3MUgxGo6z3{7lYe~OQIq}gw$dg7=G@|tyG6@c&F`6nDLms_g{!*E8r7({EP>AVneqEsk ztWQZ3BAp9=wMeN_WW#2MA*->#S{*;|6&7UyXPomqGcToV12cm9_&UDEriHwTiA`3o zn7>>&DS=)tk87VmXetJuKtX#$xRJet*QQ2n{0RK!$6J{6@RCJru$V*Ec9 z8bPvO#^(sG`mLh$gpPaJ01@+diYr6yY3}G;dK{GSIRz<4qR`EJ_9B>r35@x+(q)of z%JcVkIM0>xMmLG*&@aDk7C?*q;DJg3Z=33UK7Gc4!(-hqQf4@kT<+C)F|2-&jjqDB zTxG3Xc`!{x1`QcR+7Gy4YrD4j;$JuxTAGoCHMa_aFju=yKdgs<1or{yK`&VwBX|Rt zMk3NMe8~5MCvXfjauZeBp)j>PIrpt(>EHmf!%{6{<2Wss|woc0PI4MeqF%Ess+p>uRD4wbYBkR7oaL?|7gRL6O>Nx(@t;n znzA706KZ@qE1OGVOKxYxgYr-o~#ub2_JvDANG_1>jr2CxN z{-+#CH-i`sexTp6_W@V%HUzIGW}$G8zQiLed=`j)0iw`E6vYu4QLRS?lv77E`%;bj z2C4xyfxTC%*^@P;Qcd&-XvPU4NW+4mmB=hz*c|(RIKOor5u}G^zhHH8@K*z@heE{G2Oc&MomNLK zG;~@HG|rQed;v7tTC$KJrcf3OkC7@wQpH5_iPUtR<v=gY>qW85RtKl?hl!4Km~KlU!l5=zMIujo3)Cq~qzoQV!CI zzK(YOSX=k*6lLL;xoZQn;j7Z|rR)O&RXNJ;FSO^H<$cIY3+ALhA51^U?sJKHl~^-H z$*2dVkgX9C?do8S(A}@+?vv==VY2bDPe!%i7=!)KeTSioZO@q5Fu$ZL#)(zSkNE^2 zJ1!#1Fi!x0V1FUx!Ac6nuqGw1##ixzBGDo~2W%7;eRlj?oV=g>oaZrPiF{H1XTe5LOK#f4YMm`B5l7H|XC~xfLfG#xwb6VUd?01< z=VzlB^bQ#@YLa>n3cogZTkoN^f$LJPaT+d6FUG@a&pV>-%UnO@wrKAs*a45VNogfY zK(1J3*sQP9aH{|Ps{1@`edtpPmB4YAhlSTv9_C1u&iycMq8qi_ZQL+=zZC>0h z+g=WA z_m6n9uwFuk;QFR{Lg_OjX2DLNZPVsGU3szNNsQ@ok=dd(Pf+)#@b@}awD)#QT$qX< zyrI)li%T~1BqFaMZ!#czXx7g&LsKxSJfuf>nSF%oiPIEGa^|e3Dw&-msY;e)ebG(;t@7h<;5aPI$v!aC2eEKX4hZlWN_KZ5|!ZFSfbW?lUG-?&q5=_*)3qlMPmtI@i8#mLS%;kPpfn_!9Ip5cTu?+8@t_dFm#Mwq+q>(&X@b3&q?I*fE3x89*$hrIyVhL9YW zrWMqs@dDq*eJWa(n025YzyWqXnA}CEq3NV$0T!%@gF|8?!e$>Rl#uW^JW_-1P1kD; zxwMY1#xNNBaOQ1qpV?Rq=0bqY33%nkSuSZ#zndYzz!=P!Gfofi@k@z zC_~R&&-lJ-Y*kB7rZRN9GzwQs=a8k z1mHOme;FJocsZEz&V322T`=FKy{sxXwfW?uJoleX%HEH$5xGo3{HF4!T1R&6a|=UM zVlG9d=xN8kd{pMUo_}l)ph)PN zM4pWfpZGfV$^!e_uP@5?b@cK%lDa;a3VEuY_a#K$m$=>}G~`obQ~E4uf92~C7|u^G zmJu)n-<9g{0N>Z+ze@JtP}yb$o!0msYio9EbjGiO9rkVfz|aS72#9DX2f!VP4>eCJ5SGBjZ2FPIMka9`dcmaxp3%coYi@Gb{_ z!p^_yB8ROJL@PB{a90f!xmM;TI(uIKT)?6Ldi}>406otq@wXQHpQ`#m+wsig z6XJ;EVP%$2>etR-$SeRWpk)Jo5$a#!F?SYb@KKClJ*IFddJaDM%?v59UJujoI zno)LIR6-?EGGMr`?QHRlL?Cn3eAv%iS?2Le0JFszE!JO#;%@6(=M~_cxNZY zaZEt9oHY`@Z3o0;cG*0nDOB`FFOm_?>sBlKQ@)?sRt@3+;}s=C4SEtsh0!QM=#tG| z^C3N0=g865N5?^7L-roQps=3Gpvap+3`%Q$qj}oH#0*07)A#7?9sah3z!m~* zxfT4#&GhHuId01%=vq>2y}=U6Vh@q(awL*LosZDY?Y?cnU0FeN9FDdKUD07Inet;t zvxOV8qWd8I2bq@`vWU&tIj$0FRMqVECCC-%Y67EOUGKOHMn_ESag<@OAeFeqb_(&2 z_D9S|b}}u?HDSbD?i9U^qO_{EPma=KK@Q9G0+#4mA~#>} zMzXq`q90`NSL|D47X>)ivNAv6Rm?S(bg5o(GsZKV{--{0V_BI;R}QfD75Bz z2x#~kfcewa2XX2G)l1Ebd=!aK!e;xcy5mFCW1N8fwbs#u50=ds==z`pbgp_PekIpS zRWmQXLliM==_<_BDI$=+3@8bxM@rM!z^WzU>&*CEvlSxPh+L3QY zU+?YusrTj#KY1ju-1)!+&R&iNff75?#T83?tk9}H&>KTO+q~EYh==*BM~8ohcy##v z@oJ$vDi=etY*K~BrR|EWM3IZYuVYpPo|R$pQQan#tF-qhP&Q1xS3PG5rSPnVTi%kPDWDHpq9 z*IG9Qt6IdjhoxQ`vfie99Rh2-rC9~W(Rg{Q*rL8EL0+@3g-$;*pU4<$J9DgHH zt9EDyN$)(XV?A9}?etCWPU=Srip^p)q2lTnxXjW=)WTNj46LlP83jGKCFN%^`IWdL@_n>(R2*ZZ12T*bsr{ z`Luiyr_znzvQH&Nxe${kIr24C79_^rn*p?6*}@^Gu+>HFOY}NuYUYvnj)iVVl=>c= zpq!}h+{u@lp-%GUnCvX6=|-GGX^MrnD(sVUya*WNpCH_8)wDp{$z6Z(Txe?vtRh?O zjDIoKWegl+zyLrL1s=KU+UX)!R*}z6JOwd_jF@xp6jiR+U*<($5<>Yo_LuW7A7pw9F=s%|r(BvbGx%!9d#l^Y8r zVR6A14m3}aA&~*e&6mV358~!Gj<@-FmHN2x*}O>k6r8dIkLtaNefwjlCHDOzj{gd* zhkA{L&5!I-AXV?U#J-Q09RDB!qKmv7^`1nRzabLsQGu}o(C>ZTa;J7Qa)%d*9?+*( z9l0QSI6#y#s(#7nV@rzn**FX_5U!Q;fEbO8VqTH;)aP;Sqcia)zd*NlgnaxO*EYcj znOrV!br>`ikY^odgJpg*c^4Vhs!c`)f*{r^b`d{f;aCv)9z9X_>JRS7?A40z9EoqX zze%zB!bi-AZ-YIe-5^rZ?O5^(m(UqIpQZgYJ_C9e=8lI$d#9f8ZzFgKstx%bSUQKh z`Culk$GVyv^#V0fb|_R1%IhnyT;8cgCDrqWscudU1cF8TkzUf}DLAo{L; z@$e;jmvn6SC9NMr>y7y52n4Hj3vl2l19#7Es_3B-dED?3@Qzc7`e%>9!<-#9S4hiB zfo}VQuwdTQ3NBhop?pdO20|8G^GG^<&y2-#&F_D_n!hx4@_KD6qHT%2%>`Qr+Q4`& z{+2w9_Q;K;Sd2LS6B(3VX`}Qf@f*}-IWOMUXw4JHluIMg`>tkc>e4sq5R_5wcf{GP z-%NH1LY83Pd~70}7cYLinpVgnoz8y{_SfZ`v5zsqFyOdi)F{EfcjpOQPlt{FVLh%| zL^tgta(CFwxs9eTk)9yB_h3?`@>E!2N!JI+5Ih-S`jhws>nu!6^5WwY%Y&}i3FS|U zaxWTsgbX0&l1KG6R$=Zm8!~%o$!RuZ&X;Dh|CF9{4+Y^K51N01uciq3dGXQYqfAV8 z;Y>N*T~r_oA7>r7Urf#On`6?l>;0)HNDwc4^d;H~w-S?c z`9mx}4jFw-jaEbdw&_KA;+t_^KZdI0uRlUKK6gAXZ~B7q*z%Fg z{iaM`EZ9Gv{BAl+7BO)ra|HSi^{89qbd<5H&B2$T;>!eQtBjY7zyuZ<(R-}02JOp) zS48A*FhhVZW3X|&!L;6zMaBm6XlfAlIR1@Ne<}5?YB6{n&i-jIi9%@w2cq$;T7xO0 z6B!+{2UR$c4l9+D36H?|vy3U0NQ!6|sn zrA`-FWZ*+|r@SAl@2fxOz0-eSQmsEe%wasmMN;mCB`MGt?Erft8)%de>=eH^xONIz zuHGSX>?wRu@)N!{jV+w!q`^ltq-22m6c(S^J7gedfZD%Mm$rUEQID?S6lV=5B$h%@ zjz!XZLw1n)3fpI(mDXX=clB{_&|~^`=ApgGWHQJi>ocGaI$i0(sSZ6j$)*RxTk{%1 z<`;;Xx>!O6L#FQLEQ*B853F1i`PbSjDjw9{UYf`flk*3)=d6cbK~Gg+ob3SPD>gQL zE^>q)$RLMJx4%2kLD=kCmownQ_3IKUSGw_ayv!%ND__SGe727o-zwp&BGJ19jnwP> z$-S_ma2NiJV}+Na<|sL8@_UD>`D0bTZwBbW8Lra^lFSU&uWcBygIwmb7EYt#+%j=( z!~G)g^F}Tt2>Ga&Z1Tbe!#GB4p;rFErYW}mm=Zg+gxlI~n!e6hks9YaUO+;ivRfMa zW@g-4AW_j1kX>L>x$hV&e<=-CanCd`XmBfE+Oh=Q);}d6HXOX zTUSWr07A2+n^H9x;9nasyCRBac~=G&pvQ!H`4dIcXInedqn7Ek#k@nbaD zh#xt1uQEm)qrw#teN=Kg+K6-kAZv|=%}oBvhOh1uPL}*+=aDli3F@X8I{_8>X zh3cQ^kDzZ{pi;5*N|W`JDbDoPFXqzDkjPeGnj)FpC@)>iImCT(3G9?ABM0emYiS!p z#;ptHpU~N|cPHDHtsG8|dIOBH`X#7epL{|^E%=gkL#`$f@um1$N`pxPS`fyt#djxa z7$qh8OU{36auj-!k>-`kw3*lLKyYUmDkfH{w8|nzxKB*Et8$~s74#4L2y$B7zN{)e zGe zpy)>V6Bg&I?dGeSM5}HAkes>5gg7r!WZ8|jvsc*6br5qWi7!+nH!n6Sk9qqAg^dF8=iy z`(4}GgY6Rzne~elhk)ey!0beZC&8@P>uUPz=kCFe_#t62`LVwyggOuq3L5q_TlI4L;Yr?nlc)-mOObdmj=SxQGO`S>S}CuRS&w&N zs}z1z%-m;94M(Dj7b72c@=MbE z?t%7@Lqbcdg>F-BjD(pSUUzIjroKb!_`!teJU%s<$EBJEKuf>aieGA<`SJgS@Y7Hq zg<20aS=aS%t3${kJ;iw@iJnOWc{%^g4BFF#Y}Lt4!dhzssimc6zSBa#)56vL+iJ5d z%<(5DW?IO%TS(q7oV{IrakVLNs=KbS2jECq_5jY$89?^~avG0Q=nD!scrWl3o4RPA zJjzALQcu^x0y~u*87hvo>MkA2N_>KLDqWDQyOfHeFjIG)s@`RNRvKO1zK@iXO)d7X zE1FWVtZB-m6%Fmn^IY*+Qz{6*S$ApW6Ex!L8`eb&y%$b7lRL?}OF2`DT{+JuPdST6 z>4Hrz*S8Vcx7%H3YLUU!oT-*q*nh-F@a@ISx7f&0hL$`P-qw?an&zOQTe*Tu|kgmT;lD=t(9Et?(B4sjcij31D5sJvsVwd_N z;~}}?${mWr8{ATRWn8~LLd`X)E^sYoe0YTwTjLasQZ<;WnFj!OYF570$3@M9y?n-R z0(+@iKel17{SkHz*FcJm2HOE$4if7nBX2!sx{VNr(R1g1du--qhMvg<&&dqr<0U7E zG&YkyqlN5LID_k!2tIS;j_fH+LD>9F?dVjjvgP|ta`zSOZ)4B-2}^H9{G`sXZh1>s znYZ&uQA3;n3B|iXo2X-muRw9Nv>nxI_ner=vxOmV^(Ref} z38NxM7au=i(xmvY7}tl=SNCE6(yphIQ(1a&W$MPCu(L0L5gB~2alyCx9RRHIQa{ZjmDD8M99I;yjW^$MN?sH(o1BuwrO?7d zqcd1LE$rLSR&1h9QS#xXavLp*hH}aknd*Vgzm;2VNOWGNoYm$r#|`v+4#ns-J4{dX zvVoF8^U+*;Hgp`wZLm1Hc%WE`+3pl$(jTnInY1U`xo}_}W#(?D98=!vlyjymaH+b& z({`5iGVEu41W*rCpIjk{mk*5MmTa|w%k>R4V-uuWikOq{;|R6AZX;&KZ}#J(C$D6? z7s;!ojG4$z<}_ZRBy?PkBen~KRWoiNc2Y4V#K(TcH)Lm4M^`yDKLUke%Ld4S6%-Q! z;*b24CS_}Ru^U)dQ#2(nb}Acatw71Qq0jtc4uIso{MqG47zfySKh{f0v%)F%OQ)D( z!(b>DoBwbM-9#a7yfSMiXKa>5)Zjh%Q)26;RB_;!(j)O!64#?EvpZp8@6qf8R0ejy z%qDAvKk-qu7)1T>Jw0u!>O5_et=Vg;MJ+&|T{1T5&$pq=x6wWG(z6Qf;1u=+G;gXs zwy!1;pd6=4J50|HFr~{Gk5FszVG&AwV|F|h_IMUq73y4hnRTr{@nLnNY{a1qNUw@J zUSE20RddOW)0mCi8hUriE!>Qq?)fbQ0n|lm?%unjsy2AzXer{oizS-h;@i+rxc3E| zGn1iAA=_F)h8HpWm*x&H6TjDn*Rt&R9C%&f!0Vefycl2DwEmUgBOAy=yAwKA^;+9B z5b2c5Y?dV_Fu2?#`RvD>0UfhBr!@vUgC{g0WSnGx2SgBR?j9Ik*jzGrc(y!AguO=d z@w>nUiv$mrNs@>CG}@?IyA}fGOPt7OtG!)F+xWHO_br}nMB3#ZvC&-jBaoNdq_~8H zzY9dPmiDjwFs~gImHA*6hzmbIYMG6=kGXiPXqg|qo1%?^0_AbyF**fz-;hH9+|he8 zWqcds)6GvQ#EzE+x8#;9jQ%>OT+l3W8vChJC^2An-ZZW3Ka)pCz7aX%kG zWBHCP&4w9=3Vj>y@;3nPnSnjs1?(w}mnl1^&$n^LAvaHm^^);1BfMLahTWJM(0*W9 z*>{J^yY_T@wN3RQb9QC^=aijsD8IZ*+RT=@Kr@5RBpdOJL*y%5ATKwecF$zZ5+}5Q zOw9J4wfPa*C^!8j1D?A74LlKZF$DonVFo(?mmb8!=%#!5Fjb+H_&y)e(KR-uO1cuy zq}y*O933C(+lblp75O~k`-$-}@RbR5s&FAGED4k^DT$b0|AmcHhq8xYu3|!77idfv z;a4l4JecNQ7Lr_c5*&&Gvu*&G$Zl~@YG#30Id*dz@LnC_aNbjoI26<_Ua=ZLL0B_~ zWa0lS!gQbs%}AqJ{&ofi?71&Skw()*LBS*==rNYfCyBeNcKH&=$<7RyShb~G8TvMQ z-}h};_I?pQ2!SNm;VJi86$bE>Zd5VhnY(na%0aWZU#lK>;4-r;v8G1ewTQ{+S)`H#hj=)r(uUc)1naWJk^1Xst@Ls5-j%v)1p1V! z<-s<|BUZ4r*B7DsGOAOApgs~jDlf5BJscBV?z%Ku5^P#DZD@QuWr8hLbHsqB7LCXD z-eC>YKF97{g5KX9CqACIAld>u5o)~MPT-ya?`7xymhFju_*)rzS1Yaxtv0P|`-ZbU zr>tf4O;+6mSjjo*B^40a(z*T~cx&r=yr z8@^Yp@KoX8+en|~v37L5Uzm97BcAA_f~TOq{2R3zp%DlKhS=TD~9=kpeY7+sP`mD$QbKJQf7IQ?Dq{th&p+QIwNWo zW0J+hte3OK_gGQE>$L@aG!TDMZKV>s%LepGr7A5{sMuEddZXEVb%t5Lj%Oa!lIAzr zN0O}CZ@nf`B{E7^@6lc6_{2MTFl1ft6cNyP*v_uE3wc{Q?6s*^#=f-(yB69Q+viLB zrgjz~&W~OB6w-^U_r$5+oOZ#C_%Zt05_!txk7<&}*FG)`9q;CecR3hILM98a5NJ7B@b2TDN(Z$^w#0)G6#zqW@UYb4Ji72=C<&&KUaLGB*97H~p z9U{Ru9!K@zU+>#+HoE(82u1urmqqPU&X^kW*VPmpO6>P7d)-k>rJC|8pD1``T|Qc< z(N6vmlu<_$^C;y_PEVa@Qr>!bd*d#Niv0vb3nXv8OHeDZzbHPUupO~JWFAy5kf_`l z3k2t=(LYLG&=(MG$1%nUo3$*EV~j&QA-+Uc%@MVMU!ISQMs+WIQ=YejR?)lUR}_UJ z`D>J@R1;}7djG3#e{`7^6@O`Yv_l@P)khETDC&`lUio#0KCF=1wE`b}Zz z2Rs?<0=kpY+Y8C=q!5Azr8r*S#7#hyJ}MLZf;T+o8L8_eft~r?3`rU0A6|ikOpdwj z`dBizalc{iv|ozprEJ-Yw+q3qw*!^~J2^4rkBq<>-%L8N)@>eyws( zEh@}X86T!!3}k1@-G}A;H71w0k@i%d*Gbf37AEcyL6IQB<^5f02~>=6RH8eWxS^DE zv0PkmLCv__WsPPvhaQkccHhmOg;ObogW<-4sdD~bQfSYTG=1X;n|{5(>W-ZN^rEtA z8!Dx8y?wG>o`#w7jIs)C+f2WlqY)#% zEbke}IJy$ym1b=gLoFBPAErU%&~n4tfrJ{hb#XAUEolDsDt(p^yz3_rGv=9dVl!G* zG3_I=+cNHu&bIz!Mcmf2)@I+mJ4f>S*IgsJ-Wgf>T9+B_yZ7UfE8j_{i(QpFyWSgF z`KQYFt%%opQZ#zok|+6oy?t2nDz|kAYhdC;`tIG2wfrz@{;j04pHkZr?-WpGG|lj! zYu9L@C%k^Ir1FoIhbnu|Bt)dOm>~CDs3n(rXlI_++6?mheZTGr`tIFcjHBDz#g+RA zszDpYEB_`5%ZWPJ-}PRxwsolT$;v-h?y?pKtx!pFsb4|^ACfurjI^Gm0WzhLYE>H0 z%4x_SBV!aa=jnRSL-j++dTItMpQ+rx@@*Ijm({ZpYlpsbA#c|6191lh*W{ngKaC5U z?mM7Y_d#c(+vV4#La%zNOF<`>+4x7c=Ka?~Lx^_Mx}JiYRM#XB`4rZ;1Kj-_v-H= z{D?2A6U$xPv=$Nimx*;pXQOo5e8gj%*6H#-+o!}QfQp#YH5)SSUeplhe$uEAgpQ~ILn3AxQG{Ta z0D$mIEzNfO!hfbm^;aCGF1xs}bIB3m_Nk%%@S-CtC9%Qyv%z|LjjRO_20$klm5nn= zl#fh=U|U$urAPT~xRDnQW!VB|4YpK7Bqnr>=p}ffr65@%?)OAFN zr;h#LZtD>E&SLN~T^TVg-(f4yqY+Wd-u`_awvq1eJb8MF^K_X$O9MHOr)dB zoL7fb+%AzGZArfO%2kp4%vKvr}RVCBRFY3AMqs?gG~;^m4zH z9o*uvUJh68d2}>i+V_p+@?_mmE$f@HwV;m-lrTQwJ1SIjHlN(_0g^-5}1 z$V^^rTaemdsHr-s@C+g`wHqEs~0Yl&RHs^dm!P-HB$bQ}==&I(6fP ziD%Qj!==~rsLWDXeKN`M)Q4z@n{5R|*{j6GYi%F1Spt&}iY#i?ReKs9`{3t5)A`RIRnGZ%Zp$wN?Wt;8KlC6_?idf2|!FTVq{7jm-adpXYgI zCW!BQz1MeL-}g;&KWE?WbD#Tc_c;e{{bZ4F>%v2-DBea`Hus6K$)XTqnBNk!pw%!x zhdD`PvZ^5i&x%SjDLFO!Im8qDJ?XP3$I;h+$2{AyxF3rOgdgKWHI;2QW4NWU$8VJk zo0~YMT!NW`>Oa-`((gLem>trwa|TBwT)ekS<4%`RXn}g&N5uUy)GkN&RFPxMP?z|3 zkC9{l8EPf9+Z{P+MK9fUcXs5Y4ZSQaaue{g+&I7+pOs{}I#w|xQd6i0UhXr6GPAB!k*#2w#bTli0RFlaI#7o?PsUzBUn%z$wIQY~n-gw% zO7Q|@u}Xz`@D4|q7inf7dO>xz$;8@_?YWrF;v(*sCB7#Wjha_wBGj>*M;eDNAUv2T z;eKM;2BFn@A@>2_B2-urdz9|#v5rkl;NzA@A4Qeh|0`nG;w&su@WJR%F1x@ss**6P zCm}at7Sb5sc#jbc?+L{g?2t(0Fp&2yu|g(wTEa?d>g_G6y73?d_>*Dcyqn6Z2t1hA zJy*oG!)7GI8Dv;UM3z1KF5j5*RXw)t#O58dnY#Jt7(yWIlK)8`0x?W|NCqn>rCr9u zLv&B?kim-BRds3>s!E{pT*)z}<>W?u^IC6c8dKGuy=oHQXp$njdZLrzm{GCI4WqYL z#hI?+43?B9Z0U zv}WmmIzmR4f2#&qi7ek^7>z71RndMU%SQWCmE|V8(UWV(L8AKgp43)Y#1@t!0!fN3 zit%Ns66sjF#7Lte_B4w}LgeydO_7MCalS^@T~r3oqk)F{VRbIU0a)GAO79G?!u$^I zkC((TYV-aF1M9b52mV$i@pm%z7wNUA9=oa!8oNC-&|9zK3e>17c=d%{b0zhy^h0ta9((f7;+y@uB6ad4?{Kr@CFHr%-mKSBuBD)8d|0j7}=fS?Rr5 z<^4{&2XJTNffY1GSlkDZT0bqD$&Y#;EnNmjDbLFuz5!k%t?!R$1OcC^ft9Sqj}_zn zO!mP0%%ku%=g!S=$4c*mD&-l~irQ3i)U@|l0^6}`jkxYsfnlbC>n;^4U4?SU<6k1T z#C`mF0hGkgQfbonK`WB-Dm^fSbXK|8XE93TJf!V93H4N!B%TLp{aN})_0Hv2!a@mn zfeNUui5V?snNO$zO=zGLblEm#oYQ@q#QM4F{2X(-BVH*Y?HP`u5b_{3NBrSL{68?_ zKSV~D$zBbLvXsvoR2}R34X`vxv{`w|R(K2N2}2umlkV~w5vpMGRWLS`csE#oN|=DM z=Ap!E{>T_r5HC*%b43ToOw4OhjOTNoxGJ@`O{~x9{O;C`TsMn+&_-$^rMjWn*lR7M z552yCDmndBRd|t9QjuWfefl2Jb`aj!@O*7Ikh47+l|P6 zt|AjrA+Xagc9-fW9o^2@E$F~zj?Q`{$O|Bv_e5F7+cQUQ$=O0PgRSbK_vX968}Mp3TD)>|(brj#$L&P$1M86B34 zSF$S9#m>cl-7->UaxRwQ3M4LuSHnex*;U5A2eX?C@fClv?OpTmBylX2i#xKVOV|6D z*g8fwI@|5o3g$nP@@D?@acg37w zKz6*dqH;1UgOSNHcn1gP(-XZQiy$H&&t0GF_vp;zP=(2du#_uUxO`W!qG%6q16>F+ za(sgs$v{TpV7e(xi}~|mJqcqy7&K*5v2wmb$x)nXsB#-DJ~32b(O$4dxZIXYFX9zt zD$1odQN8ZfIqr}xdZgRw{UJpr_ICXgQhCZ4W@SZex*o0aA1+a>7r*uR#bZpKN}{Ie z>Ids&K>u=%&PpNRZO;qp)qzhAyy&Mr)F{Fj-29q;0QBlPQWPRHxGZv=<=rBgisg}K z;||~7!ct^B{tHF!GKW#a^R+tlSAlj2Xg3tMmPvCf9D*BHr84#4`eDb|3?W|py++?b zQj?8j9+nOX>mSko8_E42)ti=35vhlkjq#Q=t@l)csa%Lr=LattHb$4;LbIabBxuDP zv!$wf|Dp0p``$nvxTW-9MO#QJE7RL&RHlj;3Xd6^;{{UlmR-ytr2o{Rq+Su?M8z3zNmp}iDgq1Toq zaP^w_kfD)8a0DL)dz?Yq-VdopIdS$Aq>;t_4Gqc!gU0ofL6_QN#jrNR0Wk?0?X5 z^d5(t4ZvOvILD~!ErLFTWmrn|5$8bhyTXX$Jyn^xW=eV~c6`_h&oY-lTJu{l$pbOF zQ5nZJ!R#2Mh%K+Zlyb8sV^b_NZvBW4orfz`E#o)2-MyUD=&add-JLHX#_d&GX!HbHIfa-lO1VDe{&=7)xWX9i@8fwM@)@MCul48x}ltk*yWd+)+}am9*s$bAcdzKz4^++)aByAAuZ)=>FrTJ zqZx_%BjH{;HPG=(U9aQlqC6#HG@>0JifCW5z8#pPVzW^t6J9$Sh>l$Wo!G9KDK;T_ zrOUQ<6)4duU-C2iupXw|TMss+5-MWvsK$?Af9w@#Lb7z7qS9O;Qb~*~9b;8<$J3Gz zmgNfx%KF!n>}sk9%f0Hp(b$t%M2{_%C(0iZ zEn^k;&d)bn=UPA8`Sxb(9P3|pzOA^5bJ4Nl&zy@tEB>qV*2f^g`J+GCaY{~kI&a#C zF}fJhs?X49qZelvAKjkGOXV-c+Vmst?TV4jX6+ge_p5hm`o`Z)$-%Mdv@rzsjhLDcX zAGfeQpq9$cTikbW4(8N)n4Bl9j9#BT`g)ga)V>j$dwFkMzke%Md}_RA|x;Lt*qwmu$Ua20$) zcASwvAY$&xVBKZJABAj1SP3a7g)AkfB)ibbDmLZurFx5qf>lPgF*xTEnwAOrHb>-$dKeBtEX3$I!Y#6Aa`J$Sp61AXJzZH0VG!kKeXP{D z&yq{g7CWLD`a^G5yUD$5<{@En=7-*%-7ck3&4B9L1?BL5_5y=)jPm>qF&i?sB3kUvR3&XuCE92Fx8uXf z3_6nhs0b4>HxK5Qpn>OP>yIq550w`yYJ|zLS}6zJ^3ih-lyy0~Qj=r%)2*|TJR^E? z)|G2*%VQrj3C|ou50%?eygHmU$9!Tfn|0cMPI{Xcu0um2aa(9$B%U71jF9YyM=kP|>~+s4SJc0UZdB^5`IR=qAqmX~@etZ@G(twSyhmG*id0q@)!ht~FJ3 zvG>5N^k>phxhpG(cLwp!k*l!Al*eABd~}b+r#9H4C%R`!I>kM~%iw~NI-Ugq#YY1< zXjOh*PZ5aG_GH<Vo<(%fx0B6965L0<< zKC#GzFF$6H+1&2@6)GdSs#P1k*>}zo1}zmM6DF6pohB|k_1(+A!CzA3LF9lJg)fxC zvn4oM9U=ld5p zNw~lvc_5_YYnB_FH_>Zp@%){4ea)PrGB)}VCA%RgDT=KgtHvzH@5Kvl&Q!O147Zzf zw@)5U33uT|DqMFnu@n;UP6QC8;(5eSFha((?j=Yfh6X^T`O(hUXBWid-6dSRKz3uB zRLoi3MTA^Hw90yNY}P1=G`ssO?x=|zIJqb5hZqD`vFn6=37&QyWA2G- zVf4T(uw2NFgR@mc$b=wL_}w(=#)RLcatJQjPTsEl^XrowLgZfzoO6EX>vJSeQd{NT zAF?>g{th(3IBiici;2LEz)yg`0G|Tv!c;==j&d@=RatSrBlZ|$7G4%-^hiw8wy<4u z<9-k%Jr&mnH1P-?qa?REUYwCp5ITR)jaiW3wDbTk;a#;sm5BV?q62r?GH3?r-SxW` zWLPfatjXssBc|A0j&L#vn-(JpBHl?d8Dv7s7jhi*nbC*j8MpforX)Mv=PY+Vc>odd z32N#P8^Ag?;r*&6B>ZJOFpg-thjvEKTcvnpviG9Dl@f5icdZriDCP^yJZM6N&>qDT zPQrfA#zm0drnt>jDfRE>JuNB;ULdXSko1%znfJ;~XCJW>qo${K!tG$6-9sx`!dxEP zh`fjR`%SZ0=gPQiKl6BEm%*(Jy6#|VI{GVFGrK+{4stL%H&&$zDUyVwL!j|~Gf19L^^lC6O-*Liv#|t`48uGIe#> zQnJg@`fTXzl9n$D!s#tjwUDKxW$HEI<0XeMgumz>L^zxGY!VQPSTmO-#Ns3@Q!Fa5 z&{I(TO>}P7yiFzg(`k`u@sNWX@#by*ta~iIJMvMZ7aY!(b&~8oGY+>c&RxR#o^TA+ z{*YYGrLO4k4tcvIb_8!vA}wj=f5(Tp_)YddG7g3*=Ap<|*(}Z=drwBoa-&<_(Qskp zh>Mn$%M}|U48aouC0W)(P;z#0&&Kg;Jwb>)n>L>hMeCh`;)k)_vDx#4C`%G|zdeeh#%c0XDXWjh_%c4nwc~o%QQV!kPM6^z4LDmy>DjcVboIFB zOXB!QOSX+wi~OCvR=aE0BFnA=Gisf!yKtJ(5V|PYdY!F%v6Ev!TZzr+L!GVD$pO#V zb^nS_%OzJkcfO4U<2jBz3GMR=Z*kZ*@!4+cuEp^^W$|(%1aXh6{taHN-&w9ZWZ>}A zghQ)ZNBrzK2MObQ=5khWX)GJZM8XHiP2{lc_;}pqB)NVm4=JBQ7+X*IdRy>{T?3tu z-FQaEeo0IaCUG3)kV5h;5$BU- zT$lAaZw_pn1m2eEcq>7{+gb7stXv_&`3l84ROuq*a!=TDybUWn4Y(}&+3~IDi?6qZ z*qx5gcSVm}Bb7%HMlp2=pS|{!QQG@y88mq)VZKXwS*uQU-FmvUoC*LrYgDnblHQqK zERD@l1#?L{Csib5;^yTQdOq`Y$J2tGYokTV)WQtnT_`MpL#WGUv)1>dG*}FmVW5wh z4%O^Pv%8+-;iXda+khx$&Hg|CENOPT)fSE4Ntg$LXMr?eB%oPrX|~gUR=s@*hlw0~ ziEhwSqg!6iWuYq6gdnmsKiB9(6~#vamC*$+XGc%)TFAd_fk9DAaavfW zagl>IEP@|JPW6Vy?y^iz3y+JO`Z{#}u347pvk_{IoH`X6x@%V2^x0_$&2nY5W7jO} z^w|gntlncgj|(C>r_fP#$Xg?bxz-UYo|R-?WRZ+Hq6hLjW|V{%L=SMB#Q8|OgO<*{ zMI!%cgLb4tyrA>*1MYCi1hAWP4k9-t3uAppC59EM^AcIkaHmVGC~<&T^CND^vce7_u$A^SAjRQyzAYaG3k}!cb&H% z1iKT+nCh`t9wK{V!)F(N798e$1UaZQ*i-RK+g%unzu0!HJHz?Nv&AokUMiVOE^nxj z&Pbs>YxOnYx9@QS){B%Zsf;4BE23B0CVh@LURGuCKb(=rrF^CN?xoSc$S7%-b~C3m zIN|`mxoE~XXREY-o#z~-_Ff|H?sfPtoF^xX_v?J3d%5$G<(B9{MKH6Y2Nl7zD17iH zrHPLNpC8om(INPNbw$1ud~_&$d@1-q%f&n3qoeo@5|UZAEKuztM|0*DzvaB4o??f=iEiyLx< z|J-DTcJ6#ikiz89yq^YU=ZrjnCDL@9)ll5{0=V%eFq26|kl`1*>jjOVh4nJkb!7cd zXt_m^$+x2AbI8O%%jYIqUI#6p#7*hkm+hIQ_~uJUSgBGwTV;Jwjl)#AlUr{3c@ybC z8F{QmIw737^PeHR+Nkz+(6E=v2xbf~y==vRG6mlErX^B%Ao@ibw@-OG;S0n#m#Te;P za;~nxK>Tzq^7VtbkyXUd)yti_a49*+D;Jj-Pq_)%!(zLgOC)2A;+{9gBD>Wz+Zao4 zaL8C%YWB45OYWc4U**l(llP32M2@iR*>uwSRb;#ED_&{NkP#A_ySZth`n7}E|GAEZ zWJy%6^IpQrniBiaW#f6Zz<3BdaUe9B!R?!u*?5UM_8yH?Uy0-FQsf_wwujn2!x zJX-G9bk3ga=VY`oos-KXcR3Rz!S1uj^5Z9uQy)8@-86oW?eaagXAmdTtOprWMK-}E zvLjRfz0rw0NJ(#lbNqn~9P%wZ8j0mzzPSrI5#w-?P|G3K-<7}u5|B${UH9v&Hz!#e z&t`zRhh4Zi*`s;xkx)uMClezk3mLi0C?S0BSq?T3Ov#o0Ro@VBi#T$(~`}2Cb z2goRLezB_K=&@p7E@$aQu=pg0k+|jb&m=Q*qI!cY3(WVIC&=g6x-)p=Q)o??&>}LI zyRf)t`vccRdlFF-y1zu-GhL5*X?FCAlibaHMK2ew%Mk60&o{W$^9PgPB0^kLc}RALa&y6RU_MTMXoIT z^15YSoc($>rmwnJp`|;6CF&O^P>yZP1>|na+{h80_O0aU4Y1Ib5!*4zT<;wpy|nmx z!P^{;N}mKZZxHr;!qVX^QfCtWy)olaBsI0}StmMKT%6~Ka%Ck~)W>G@BZdEVdH9!& zsf*o{Ix4vF=bYua z^1Rq$vZvyhYvl9PdWk~vd8y>{Qpp#QeaBG8C-V8TNk(u(8%uMc+8HKu8iOigBX66)0sWd-Blfd0ceE`6X=+4%ouoZ@edILI7 zaz-VLBLs%`e}%N3La%*rw^(?{3{wpRcKG z#u|+D&+VIjm62|xsMPb~MEcJx*VF%+xb*b@%PR>=`pWC4tCH#Gu(t1Z-tse}A|F#e z9o?vIK^!f;gQCE(!+c8uHtCy4=k0ZbZEx;Fos!6eyk6(dSdg?u~QJ!s3ZnhYT?Ob z5Q^V;V+@47C*?Dh)h^^`;VJY~yi4HqXJcExRcu{J+j6n>E88!BDp@g)1bSCtxpuX8 z-w+n2XhN}K<(zn5%)3I|ukm)8?&p~9@q!q_0r7$^zKP-K3&jK4e`^(L{JSt< z*&Zp#zK1o2$cK4LC%ru+_Uxl z$ct%h8EsXzw#AM%&ViP_A6?kfR`%(Rj~kmkmq*J!oFdmEv?=fXk4DR4Q!eu~hx>DJ z@>SCCeE^st`&wiP_<$z23oqD01H zzu>5%#`B3Ur5O=$d8<4P%e$ZpBQM&H*roJ%(e%=&S7RNaiAr^aE{eS9(7nK94KEM4 z*}!|zty@EGhPCRYQ;+P*cu%GXAc%q$BFvX(N&as1_Z;^E{WG%RbSRvvox-&KiKMI?(R^(}>yiZ}}AOP1^S%WtcSc$SLz zL{&tts)+1FMM%-4BC?E%Se;smr9>>4lzLZ)GBD}TG1*GZbzb=8zR3w1vjvSV zqtdesG&&R-U7#-;G&)eT%*szxy()PM{=m;az|W*t1U)eWe~-a#m}a@gJ_=v!&U;K6 zoftdBIN&j9V5Vz>b6bbpgR*@lXArkLBf_aZabDHIQ-k4LJPkcY80HHHH}rd4=9jUV zc)-k3+z52|n6gjzaoBl-Q@Qz$HaLSHTlleA)LIlr+&M*JL zn=|qoqPF~oU%0dt;lYnfK4b6jnbaZcU@eF6`#FAJbhgU6AMp%tCmz&-yHtG5V|$e9 z>-o3y;K$_4_i}^t?N=L|-LFaVld*WO!THtSP~U2Be)0|~`meC_ec9lAm5ETppBkLC z&l2d(2Ispk5%Bp2=STm<&vEQt#O^cfJ_bu&k(1iC3y6e3AH9J^Cn>zeBx>6${SSr= znIa#$rQF=xl^^-i5puNN@GfNt7rr@G+h%vQWs8&n zE9O#MIdrbRvTdFl8$mR3|AhO{=@l&g!HQYI!Yaim)lX5SKHik<95rjYhnlXX)~Oz6 z>mbGvhA*Sm2s`ws3OoL}4dZ!EFEmUo^u|gEqm#kK=(@9YJ)M1AcSkHGE`iP34vsWy z+u2$~GI|YvDLO?=J?M_-=;VfX3TKIpvR28kPqoj8jZL;vl(=)i&F=iwvkPc3-i*!_V+%$o~ND*w%6 zdv$fnr@DFox96aY1CP4FrSp%^saw;i@=sWW@f{;8pG@NODjy#d6YLzorw5vEfW~Uy zhJJ|Mq^+-r?W=#|;d2P`wZpvNdf?=F#RtQ7$<-m2fA*}@@iucWsh@b0w{>}my9_&L z#gRiV#0!q9G04;E+o8TssPCidyI+0xsqcg8`+)l1r@njD_lN3xm-^nWzU}I}TYX!R z0*n{jtiHR|w_SbjQr{n{?_Tx2PkkRy-v`xqpZe}s-$(fhgNn>lqoL4P85w=(;I1PM zUH;oS#+Lu=A=7P8M0gZI5)y6Xw|qZ6Flj$}1yVvv`uMk~?H!hCj_?$io2emZ2Et{b8QODpr%?^*_xe z`)yl$qvf`4Tk*lrK(>mX>v8@T8Mkl`>m6mi1koZh7Z4_mMTGNW<7nk8kKcfGe2V0c zI~m9-a&KXB>1>rJ58_iK&xXS>o@Q*j#t|XwA+mGIIrC7$ti}?mP9k1^=MEH(Tm`(bMxhj>Ad{$`ka>{U23)FgHG{-n3tuIY_#&1##um#IKoSud;mS<_}p?9Nt^ zBq%<~ofGl2@YJ8$2unr=ni=U-5lE%~7Jr6qY%9Dj;UIErro(GwOF75|JL4$rMYt@L zEIzJhSm`ezxS3L>;UV713JIC8hUc4+<={;&@wh_N8dAk-$4X%%}d==EVBrALQBBrmg(b zsC(V_g6jc!@*SEh-{INvo#K-3%q+eQyN6Cy%78IS8SYSu-KLZRO(|o0siq&^YA?dX zE6n%iE7f*yA?lto$Gwxqyi?xoJ7V|a)xuR~KNZJ&$6z{Qck`7DAF<~vSGbA2$k45| ztytHg9ch`2Sw=*Mzo?esHzm7kHxufmcQ`QA`-!CUrbc(R_`0M2{ zAr|;e^km!CcjDpq!NQO@0nVx4uJaooH987DxNy5@H(o%5yqS z9Gj_e2uGRFisGSL)Yvn`w&lA;%Q;ep0eIa3qPE+uy@i?Lf5Bge)Y`*Ka$h`|Nfr5-L5?Vd>7aR)C0?aQlJpX22Op? zuKf%60O$lB1@;0r15Lmx;0jPf)H{?lOKTwok99Vi7B0V{x7pb6Lj+yMLsa6j-Ua2R+Icn639p95Kx@j~Dd zU@lM&tOlBZ4Zwc@Zqm;M1_J3o?=9dL_yG7T@EY(O@HFrQ@Cfj0;6C8Tz+FH)unTAf zwg4euEl>?q0E>W9U^?&tQ10?P|ZCpQF6k5w+YOG0DCY=6maPro>QP5NEw&!!(w zFUY9L_)*5288%0S#C{e1HuQU--@p1*^?#)Q;r_4p zUzc?}t9-z&0T&M}aNg^j;M(Q-y{pUhzAH57sX=Q7UohmlA=`$;hg4)gl|5`|c<9YT z|1{J&?EGO1hXse-IPCkw9v=3mVO_(9=PcpxNY2rmvvYILt2(cE#6u%K9N{~^{k(JC zo7{hJzv2GH`7fWpyufk675O(6d|fd3!jTuQzwrAP9=Ndk!l5HC9oabYdn5li^6w)D z6<#pvp;2=#ysogg@Ug;^g+nfychSRRE*$sS*fryRGw#cAW#ik&|9#A?u|F8Q^`Zwa zI(PI_qX&(t8&g=@*jy9XJW6V)AUNG!5M)z6&7x(b+im^(WjdS#2gp7>zo~O{)%Ws#EPjjfTq0tk#M45x3Kx6Y7UEjz?&l=rfhR4?+mRq>E;=&8LAD_k95x@-K5>aQM z;$bXMPzMgYHG#r{dV|K?HK2ptBexVu3vKp$-2R$C&3aGB179o%3I#F}Cr=w{s+t;u zA+4&aHr&`0YHY4b+N@~~*CmYpP@ulCp`j|I1skvPplp;RQOWdFU72vPu1=b$s~1m3 z4IA#FDi5MjK18Fupc1>`SJ!RuHP&lYvwglMtyVsgmZU^J`A*f92^Z_?q=~wE@no$5 zA_!^qzHn`mM{DvmuhD{DUw~k9eCz#9o=sYvp;lFWLswNr(bhD3NVw`W4Nl=^!>-QP ztnk%G#lr?)Q%$ImWUH#qpv42UL|xZO8P1@^Lu0elnJP;k4Ng*p^_~XJvxypP)`B6D zs?&Jr(nqvws6gtqs!CkRrmvY0RaG@1lB*4eB*ugumzv;uu`$2OZ@s6kDd_jq;ZP@f z)R4C^SXV>)s;X+J35E=9FjQ~os3?VaR1i~(${h;$npB%Dyl4XrG_Xbtg%^c9>-|2AdY{qc1LfGSY4X*I zhGy*bQ6iW~lN2oM-%!&O_K3YSapiWk(VVB_ezneH+~=de1~{J&{ZK)@-W8z-_j>D} zE_&sLzXCsg#D78Xe9T*e~{CC;6c6!_Dh3 z!|e+Ex_!d$3{?unS0xSUAUw^!@EWgsy=T2Iuvzm20;&q#y2e}6Tu-Z8qs@{HLSDCTgC_us*{Hga`kGM9HyrfxCj9j^x(f?}qqI;B%qba_Zd9b? zZVb8?)hsf6B&?bno8S%9abvxEooBN<ITRrZgLaxm9Sx-!(1<31<_0?ZCaEU9IM75boqo{M)S%;5 zOthl#dOBJ61qJmASE}HGc?#j#1eXhW>c_a(KoOM2M68ZA^-Xvp8v$RKPSKOJqB7jj zjb3YJY|=E6WSX!|5F-JaJR3Ys$!K)C8gKd-e_DLf>3M3JB_)5rw`p@S;7G7F66`jH z8f%*Lx^}M*2Se^!4^;@`t@Q*n-IHQT-{vSh>YHxOIw1*yJKdgVa~BeiyL3|NoF!$mmX%fESXI8HY-!n&iZY!ZOB?YUS^+T!Nl|f$ zh8m);A7Ks)=^&cd2yQ@RNY%YcQm4$2&j%}M-t4AF4mX8@LNDQFKb(qwwWi(^NY<)C za=;S`2bzgYuRm>M$fxT@>bN}3U6G$34nkYin=|C(_BFTzk|%IN>H65{RMN-FBv9p) zAXlHxo=ivGs53~@PMQ^ip^>z@1}bwTEJBTw4TPlBujFV=;|34(R=XAynWz(_toOJB z;pS$ch(v2R&AlE>eXC=$uX$`R%-DjyGS$~cXlso@uadsmYE>1CY;2a=6r|~FPj8pP zKHV^T9hJ0hXh?53(i@M|nMN{@FVLp~#ZQpIAVot|Q^^L)x;Ei0;6g+xXQ(~zPulE~xH~E0s z-vpZ)>j(gKszIz7)5xnwx@#I}P9)GET!3LcT>v9O6H$hly7oh>ylAuW>k_tbI@dFz(|<9F*ec??aQzZ5?uq#E9fOU zGmmD_6e3m)M=D?fkeV(9OMiarXpD|jw~W zL`t=;*|$;g>me{pJH#YJhQeu%nq1W z20f5J)RCaTlvv&M9@Pg)k0hONqGL2hzLGez2Iw?N>Sjxjt`GlIj_L?fNiB&D266<2 z!86gNrO+ACBL*6!x}@l|k3@8WyguFwf?C2cIbBvrKHXoR%)1L^v?c69Z{^9bqmmIy zb`>Io7>!P$p>b2#ugwr*y+lekl2LF9PHNWIHm(W#!a)`rR1Fp;vZp%PP0+(eFa{@) znn_74$vP7V4l_Q~2Rg>mg~_so+vy3@$pl%9fQ9KZj|8eTBYib4)<(`8sWRKxoRU|D z32KlBCTi&?*FpcxPN7I@p{AB`j-uN7u%8AgoG-<42IDRnEMDSX3;PSgCoqP*5K^5F za-t{D>rtosl$D*vW;NOjHOlC@b~9bMG?PASKM7u!a5jl`j$6(3Wd0^e=tg1fDGgWE z8Mu^wnK31Ewi?C_bxn*cG?^1KKT|DP=E-USCrQszeDOf}sn|xA8XD^w8J3@+$>T?1 zN=MP@y>n6BCn=PLH5dxup!#`;4H!;i`9=YOJltK=1br zPiGvaf4g^cVjwxuS)0m}GJkR)emJbfC0rXrB03f$#EPfLfQZQZ;&?FGT1uAF~l|`b4b4-{fCUp9-m#5 zojR*&qG@xi;k+aBEq(^U=s7*{HG)bGJO~y3ksf#--$~x~@ud?Y$bi z)oHF4{O$uf@Z+jWb5#Rf_1Jr`1NMp?=8^{VsC!Y{*QB|6ylF0XBWbKnbNNxrQTG8Q z^YOm`^CH3nUF55sH2o_HOS*p2ZC^z`NxP^Te=k~GuA>&0_9u(0=+EfiwzztLeQ#M@ z{&y^{&SMr=3FeMB@bjj{RgUV%tt8jxa&I91K{l6$+7Twcr8Za52Ety7o!92-%(1!B z@`tRh#xDfBy5%gJ%WARJRFA{nJ!JLXJk$}k)m?_#VyHdmiMzep?bg)}Lv@WNe2Klf zV-%`}`$f9iaiOl38|EUzymyvG{MB?^Vo~w68*25Xx>+;SeTLel`>$@9ZE@L&e_x5k zWpUf8_m&aArGJ%cmgKj8P1hy5+Jb6vYc)N}-Cnb=M9f2~Tdq&TpH|bg2^IJ1En>#~ zE!@u^Sku)g;m7eM%j+x@VDYE?F$Y zenZ`7sDe-VnY(T6?JZrm?%eZH*GC_Az5mgzx9Gpt-MiaykzYH1`mepc)up*wS~|K) zOIurBLhkA5r=NMDOMWeT3&yy$r#tq3*!7XErFD1feNVsN)gtN0-k$n7|0+a#^fO23JP!D*4tYW*X3DpmTfK5OPa5K;j+y(3f9snK$ zWdBU|&1C;FR7NG2h+loE&mP2r#j{GwN;O%!60NueYT0klN4E@nnZFqO!X->gX0pj5 z`7+#PAu8c6`(I3~tE!j`7`ioeRaG)&WdG;dsw!5h`GiCxdt9=Nipscw9gX^WcDBN` zcn@Q&Z`_~)R#o|Z8>_0q&Fe9;7^hZL*#9wBwp3F1sc8%ZNnNR$=2)iJYc^^gPzcD4 zRB}#FXh7^rfO%pDga*W~>0kV=01|$1uf{BXB@Q!A#(8S0FE}$6MH7qfVrR^1HDhwB z>C1XjZ-O>WlSMzN>^fPDL{)nwsA@+7HT8!GoSa`%gD1JQHWfPmOyBrA{U^}=27Tl) z`o}lvTi*iSre6li0smj<) z(f@-!x*PL{`2QF20G&YjN9chLQG2ih+CL`kf8!6R2HJsrKo8*hgfKuCuovh6+CN1P zbO4=z_8EOLP!8+^x`2+)iSGn{Q3v{R9KgYky zDt@wdAISSQzyF=R<+Zh(@IUQWHLogRQ?;NvsV}e2xo=6`@ZEFk<5kNRChUWcjxqIl z{xqAbde@C&&hw|M+Z=R#zZCsITSjkmhi*SOVJ~L$H$0@d@}8*R0tvwhcNH4H;UR}B z$NR&`GjK}Y|E$Qd(?=}B&|K(!N z=^fgX^Fo6+6I}aN@4q0=`}KD@X8Ak$x} z`s=`cIUktvD@(~+igk+i#lZg2Ijb7%Ik(T|l;U!^Moay|zutdY&Z_40xNmS#&h1z9 z!H;;D+`DG2^7yLPBWifR%7I`gq-z%}V970o+{+ zzVAE(zD+-;t9KG6XH{CJX`izyJw@LyML#fe_=6Sj3esOSSn*6V%zvlmP8}39-E(%& zt;_Q-)57=b^pIQaD$4V(Kr&eRiP`;4f5Ss_6MC_`!|-pqTfq15&=TcG^G92Uhbj{O zhlj4p$~yz^mautGRC9w;@~2flJ}znc-|4iLlF1Sx0KUHwvg(Q|ZEBSJEBRIFeOam> zt$NoDspdStW{X!{wKV7EQt)F-^t*X}M~XhnHgI0_rdO}oKO)cXO4z5yBl^52mQ8h( zMz;?SrO{8XDBb|>hKJHq`ssct`hh9>WS!o58ouKj=T#-r*{F{@M)c07pDs80>BZ<% z#vOS6b>qWx%rL|6TcYU3G^eULy*|}Xr`nnNb9x6UI?HLDT^A3oO*8FHHK+B8nxuXa zee?3~oZEX~Q(o^%ZlOBU?~u-CZk^j8u6ag(nUm5-AiZ%tArE1{Io5XC>qgC`gh3g181k2PuDlEeYoUw zJJYOr*OkTNzfyNCn|7k!LKtmTi6hnSoBF2`JU0IGWy^oP_TgEneukUllW3{pO?mW{ z;yy6J+v4#TQ^E}IUA{Oqd|!QZS7xG|w?<93oZkNZ;_>ep{qy&~YuZohZKU7$!R`AM z?tYTYr{N*DcjJfl69zc$i2D+S+q{zu%W`ybW2 ze1&N@{)vhirk(dL5jXSMZe6Rrf_bC`roTL4_4G^ zy*opCNGtvE>{_k2ZDTy1;TOBGnxFModfkuH?@Hi&NJ>AQb4UCoufo+G5~k|WvEzG} z%DoHp&9z#8V;pu)_8|J^2KweJjJ|nMO5c24qHlia)WdW0I;tmX#yn$KN*^_e|_&MGbQqTc0|+U`FN%UNa1%<6YiONa%B`^}b=?g6K`dL#6%m{Hqgg;$L6K=@HRf z`IV@z*7KCECcZ6(&QQDX-$CeiXX*A`2h#avs9(QKyG@;~Fg|H%7S@E!onRhe z|3sMnbm0R-CRdy^bGuLsBC05MrkH}-zQn;;R?|eTQ`}kHTfg2ov>?(evyt*{F82f) z5&RW%S#!N%65qzJimmFUplVvYS}}x<7ud-jw+hoMa?!1b}hp?v|x%_ z2h+5C$1p9O%|tD`VBCbsYw%PwVdA98Q!f6_)M+)fNQN*jSK=~ciZ2j- zVRN`imvk1B*3!@v4$667_E8bf7uDw%hniXu*EfIe5?$vmsj665R#CQS*-|Vj79ypA zv@V;!x(v^BxAxJrFHg-L_ray7ZW!&kZ0Lzgg(moIS6@`mrbZQQ`K(2k&za7)e^MGS zAqXt1q_Vv$!kn|pFLxKJ#5?}7d+ncR`8U{H`+!cM3(z*&TrQv;&^F-)bONr;Hdi^| zz799QwZ-OY0lENftIf4nU>p7c*LIt$1n2=eTX5%>rsd7mMHvsVEPcdS^6a%7H3cdU z>noklC;~gIFLOSlRymKFJHpSX#m#5blIJsOL9{pXu)a{*Dgp+jLS$c;DUvJsdak~t zyBi^a#Om(?WCjz43|vHjFvAceoExawh*dfYHVza-fNGl3b-BrOC>#;Oc_E*kA{sr% zc7^9MzhL>sO-gZy{F8{>*+kP%KDyuZdY@RQuc>QnZtxAP^EFAFYia_uh-CDpIavIr z$eT7FO+>DQEPJg-t18NtEWLd3qA%eH)i+QN5$Xfj3+w~BfO7|=r;8j-IGACGHm29H zS{(9}DdE<+y4d3>+r~hRpJyGz*13HrhTgyZzHDOJHhoe|a$m(q|f3Q1h1d84;R zA-FCa2q5L9l4%b6h14|Uk~zbL$a+wh*iv>Pb1H7AX4o3UtPwU>0)oO5#9fXC1)7nM zlTu-B3fEMrvR&eq{wc&uGtjcKaf|F9b+2Sf#9rB=%Fp!xb-R~3L*4re=F4r+gy)L%dtrxVx>vj>Oe-i za427cLlmjcbPhM6O&8HEUqgm*n8@L4XrQWm4Z>BLeKcn|reQ;bY_ko{(PXWuZR~Y) zeCbg1LipZ{jxW>J)b-jszEsSn*LGmem%Y}5zTlU=X;0S#>bzgZ_fNBC82fAek{fI` zky4L$knifBP`-Q50Qa21F2!Fp`f|!#4cs$r$eGjdTx(aGcO=&ol8?t>?%$>B8+f?0 zgU6RGJif3GzHH)&-Y52K~EvM?>mb zB^#H%jX`bG)QdHFrd_)c{P^uI_M+9^pO($uAm)yPHrFat*WaKa_5@uP_6RZeylr#s zUJt*4-tJn*-ZK2gEB@Zl`%p>mn2-2=mo$r96@7=+NUnUeCM4s9g=uRIe%Ahbo2%n7 zX!mjI3Fr`YKj9xn1@-~1N1$P#2*2XL2XH@1-hp;tAJ8dg;;EX}&#r_-ZL$w(SE6Hf zHR!PgJ)U*KXExM^8|KfpNuM3FYT90>rhUqoT{0@F{N%|# z;b}Gl@S?`KvhQ00s10D0y~N)EbONp;@GL-_Z<&^v=4-aXe)QTj1`_Fr3D(qkd+my$ z*mQ={YkeNEOm!ZUu@HRbh+(A7{V-^E-3L4f><69(UIX3-L_VSiwfrcw_dIk4w7&q| z{fR#PMQHFPpcC4A1zZ5yt2Wp7ruBCSuU9NnG_`ehQP%a7Z+L_B4|+EyJ~C8?))+`v z>N?#a*j(e+9oE+kP!2L^4u-#S4Yjd`dJul4=v>M!b{vG!{nLp;_0pBfoK0~NF-sE@JIDH(O$vvZ zXut_)QTm|+ks>>qfmVdCl?vK3*UNNLFp%N(F=}Bbi7L@jA)Cc#Kk*Q5W^C5PIN9en zv{Eg)Hd7F<+%u)CTrbkmk_n}e=O~x!0=z4cC$;uX!v$`|(XbzTf)J^S`^n_JuXTAiA&XC!gN_v+To9 z9_h7~N%RvVbeOFT#8=jYNR59El@I}AU*(Q1UG~+8%#wrt#xK9pOWL#jX>WLqhc?W# zhu&*_Z(2WH12?ayQAjl6)ljs?%Is*rr|czWTqS=2AHY7K2Ppq5W}pjjy$i2-kM{gN zc7VhaoYp_XvxzDVdC~(MSlu9sG-6@b% z3b_|5*SQe&BG4ysjR1n1nToA9&HxwGOV^-@jMjq7XRFiEN_Go_*jE9Fd&$^YI$*Af zPP9SiiQhDN2C8cfc?NWZLS0huU|M4rrtVUd~{Q;y2Wznu9r zb8Yy(T4GaYzJ(vjxd$9JG|B;%Z!LgcfAopTv?V84oGI203P`PN>t~1dqCh zksJolj}yq;TrgClmT;uwQ^NUG^c_`;W-TluOjY@;IrC>-CR*myN`g)+wiIi{$ZE?F zK?eKcwqW_Jszr;-7FD1hx9ZYy)OqoURebyES4ll9M>Mt0x04+c#(EgR)e&$aa_=Oc2LB$$1D{ty)axtke&r(_2ES38d<}kys zA_;jJ6-wQB;MN;Gft?(9^8{=%%wmq!TyJL#UFSWOzDB9GH3UjW)DjcSCNXxb(+?sF zo$4M@CA8#Seghcq0PO<-CwJdXb9~_-77wGTMlCH9A5IsC7F?E0Z4`Ir3}sw53PIb2 zX^xh`=@xBphFvRm*tOZ|*0g@+&-Tg{UXDNOiPot?K0yUO}{Z% z#YGr4C2bb-a%X$Y1&-7)w;xfLXXb|-%VmKD}g;5Jx6moy)*}L zzA#v}N;B6mQ1-lQ#C5x>VN%}+w%Ne z?5nbfJ5~xJl!RQX}FL%T!}Re~JZUF?1TLY5shKE{A*o_0NE5e=Nn{DDE$t zVccP6y1$U(F7d7{(Bl#PrnQeO6Lm|gUGbt_=mm1O+qIG%cFh~%9yMMw-3RQw$Ex`+ zNzvcA&cHX^Vh% z>2aBS76C25KA;O|C+>Yf2Wk5Kqz{x_i#^Z-R5RLX2i!2Ha-ap+2Wa%%ZlD_I1Y9iU zl>;q6hb-)|9$O9U1Bz%o?Lf;W;sjiboZ5lCA{a6Paa_!01*z!Sg=z#G8dffGRbjocFm zoDWO{<^Wd$)qo$k0cZz)1pEs41MocX7Vr#U^CDL+zH$Z{0?{uI10Q1 zybJsj_!>xWBags2z-V9wumD&E1b`cWTYw({4+4Jxo(0|l{to;bI0a&NvTAerOnpn zXr)@2Hdnh$o2Ol_UBOD>0&StTNL#FxYgcMZw58fIZMjyVRcb4=mD*L>)r_OB;qXwE zR;|@&wOSpljjI>5HQX-TsIAr3!A90=%`gSOb}j2p9HiC4G~12ZCT+8Jop!ypMcYcV z+pe`}JG2|Lh}Np@)Na&n(r(t;WPCqmf*PlxlhM5~8LmpKFo~B`2emr&O-q(V43Esi z7_4$7nI6tu7MfT!p{j@rvSiwg(*jxGZ8GKoruj6Zei}k|Vx$LUHIZ=@vkv7} z$52z&z73Pt!}4eI<`k1Gz7Racrcc6k5<=g>OYx%L(2!!GmRM5EYWYLYfJ6{hr!JH^ zC8sj4l|8m5Bd;1%GT*XJK9Bm*ufiGJIaZo^PhPgI7p)%r8uY!DIYJZL)Y6l6e<{-YmtFvGb=Q(TDE3HdvRKJW67X!DQWG zNRkW&b6;Ks`*n&4C_ zu??xYF=Yl+#JV^^inh_z!!=X1hP7G@)2;RUU<|!nRiw0pN+CT=3DWz&?OlCXR#mn? zz$;*4VKGWZhDJ)Iw$DC$pYIP){7NcPG;etY6%-Saf|SaNijs;kY^<=sWRl88Dr%^x zu%U*M9A=`46mQm0F-bE{QbQxtVBOz7FRx%z_s(;l=l(VGK5oz6=X0OE*T-+IwOL2h z{hWE?eb6{TdZ-Uk6B;K|6Lt&{kZ24N5URroNX+c@zBoYiZTRFAgAGEy2=U}%KPA?n z@I`Bwpg?Qb7~?^M*|UO|4IAKM_*sG(w)}Sv$=xhb5$-{M?}-ri@RkU3`|T3pRrG8A zvIkM~-C80m)leg-Q2YbIIB@7R5y=bH5mgISML;c7_k(Pq2BL1EYA6^NY7fzo|D51p zOHyNnz$d|9#TMiNC$NKt?duacyRq;4e*exN{;!ok{L@IJ16f%J%j=J#2G&FjP}F=P zzcex!qIontOE~It@wd5AAi8VB1?$7JphQLR^0N_sSU{Q%w~1JsHcf1$%W!R>v@g<+ zSV(V)tuzpc(1E0jdkEPqO^yRfx{6lp4d}i(I!NONa@4sycF2P$f&*k*l!i0W0aS^);+?16*vv#e7>Nq9M>P z7l}Ts%!3unMQ!k`Zhthy-YHQ<{?e#bQuhcEU6G^@M~DCmM#q0!cpV~xv5Q;$z7$Dw z!m?)03l4;IX9ThXuPDeuZas=WCN2UJ7Mb}les>K&f&m&jvT67cf6#`Gm4D~h(2=`` z9}$0#eBw#>3_pT57&>zANkI&r9C_z_IPi39NMVU+L>G9yY1y~ry(U+jZG&6n0j zt`g8enh@!G!Z4bWv?+2GGF@GRS$F}|BZBv9kni?Y)bUl$d{N&bVlkMvlmIle2&PME zsQJ?*og0eu!!tP;u$OY8u1EGiafKzGe9g*&LMahXL<~pL#2!C(13zgvmUjdLIe5zP z@T}DZBB+D<{dhl-?P{ zL@Rw3>u5^wr?6un%vE=!DC5vu4e)=x>&jiL9?8eD|RL@H^- zztH5))-wiu+Hq1NTs=OUG+^s`VK zFD3F;;`}giV)~jDA~Ud*E1q_VAJm$QkYs-Dtddko+Aj8rVMs;5S`3A>Eo`>$l)nTm ztboBek42;dkq+Jm?Ku(iFdaxIin#Gip7tb2KfK_lSb7zV*oS^Je#M5U6m*ovUabAve>ae}R-eae5g45q&Q48ojdxt)P8Ch3O+e=8cOUK z6tNvSSf41hkHNk%*q)B_;!qG^JE@FCJ5v5r{1R-e^x4Onmt zA}R-bV$>U^xx~EH+-oK|InEPqfhSc4uUSOqs8UVv znips`znZV(FY_D#Rj!h&pQxHkx;si>(4{zI}^Z?$&wrUW3=@HF?cmi`VM4 zdF@^YM&OXw<#l^K-Vv|Y>+|}(0Z%FngZ~>p5+L1dz9zW|?oFVItG)H!9o|FUbKYKW zzxM&I`pT0^!vxt%BamZm3L%6Mo!BIWq>(Ig9l4ooBX`QpavV*dbLeLJ6m6mJ&@+|2 zEM0w9{V(;qGdIPQDueG>qdcLUJo>A-rq8jZnlSj}VVlsaXbxRVFHmMG%ay+8x_VAu2di9FFrV1zKmW&ucx2WZ)iL3;GO&s@8aFOhacg+ybshr z00)0S{ak%R%hH#dwv}R~S#zy)E5pjPmRP^GerNs8{>TnJaacHrsx>PEU`q-$?yH+LO!H~`(Jq+qULkxN_rdZps7lulEd;?J}YF!tb}c3rR-B? z^Aw)O=kj!(!87?1zMO9Yh5a6LaD@;680l1NX z65>dy<~6*Q@8Wg5o?}NgV%FH~m9O-+it#H%OdOjq`db>KxXManIBnuUX}B+s?x8)( z5v5n@Q~H$wC7-|NtaOKSx>Si6G)^yK`xy9|SDD0OmTnEvdbUMuX6v?Xr`T!sTss}3 zm}$RaciTPo5xdvk;N0RgyDe_3+a|`T261(4a>>UCl10(K(nuu&QvQdf_x<`d{nz^M z^c-WS@dx7~v(VgOwwsA|lAUZ%wJYtdc9mUi*Vwi8F3eTE-C#G`O?I=bxStDIQ;)bj zo)=EeAgSaynX4|=Pv-ew8(HQS^MDy{jkLyFldSWt8P+0enRT_b(b{JH%-U_eZhdZ< z_8$9v`>4IfDF-Jz?poA!-K<|{J%nCgY3JK_*ylJ^PBnO~ z*4gFMIrUD1)95rg%}%#-#O-za+RM1-j8Kew!cUhxrpa4v+|6KkS!3kcGx43R84&ZigYoi2xrsJIm$cG0+77<#q=zW3D~#~Rd6_Tep9QauWoP@mTFS~;IU6Tv zwlu=m!$tHs4d)|$u3ZkiQ{rs|K8okTWyUT){vZFaleVRzbx?5-2M(r5SE0|*lboM>l{C)GqqRd~EXR*(Wx zL^hJ!$^B$I*-7fibL36(F8Krb6A6=}u~Mh}LOG;-tbDF~ zrF^YKvdKU+sq8-W3dqJag6`@g1T2(fIg-}VU(mU3x|`uh zxEtM4w+uLatqTjSQcyWBdr-feIj-6l6A8QR?raMU5U%k6f1+<%rbZ7;=3 z0}lr2ZI0HYeE|xov(dTsAbpOaGt{e9w7VjFdAAz8v>4j|QkHh872sVMU*cBJ$S=tK@_;;!?qqR1o+t1`p2U;+R8Dx2eUH7ve%$_>J?SKb zBq2koz(ebmJW$1x`YdCyk!93krjwj|f!PiK1;n|wTQ9~lG5DMva42?04 zN2@VvtQx1rs|jkNx=-D1TwpRY&eCnie$ai!zh1KzPi5&+Lj3HZFqe7*@jI|dY#EH4Az*#yiLt;8s?N}N)y>{3RuGucOc znVNe7ThG&%>!qea2RJ!D_UcAQ`jm?RLDA;3PUpPO>u< z77%lE$97VjG-riV;B5m&ec9J}SjUC_oI$1&k6cEcC!6Gtt}n$}BWyaz*K!1SW;*oucKQN6NWY~0^c!WQI#IRM z6m^!Gp)OLdRPTmWvR}Q{S`Q2D3H#6Xdgo*3GvK>ecZ!<|ZrI>H2s+>Ae(D}~m!g+# zC!uFNs502!B$6bLXOmzvT*`7-Ei~=B>=U+{-v%UgKdNRmvlp+g>^KT^g+>T+eilA&x- z9#NiDo>txgpP$CgVN=-M>^JN$>;ir<-^SnNpYh|It83La)W55F+5zoqeG9PDm%40h zFg6=s8yB0K%-v?cc_nmYgY}X1wKWA=cd?V}6u^e5bK0Dn-EeQZ_ki~ytOTh!IIc6u zPe?xrm(%28xt_iSWb&bqs7jP_hB8H216unLPxasVJz(nu?P9G$drm*7M;gKkMXy7ym}MR=>+XUZKigqwh%Vp8tod`eYfFxTeJuLF@8teul4Htjd7-7eglae zZI8F7*p~nwW&-(j0LPyKS@)iM*!|i)+neEC4=d*>?@LeW3P`Q!LNu8`G|=E$au<07 z$W@bDzEB4vkiSUILdvBhjV`-+X>WBFOU7<_b)f5ekPY0s$#VBP)^ z8l7k>v`y&U!`cq*6Kxz2eTn`kY`w4afHBe-YsiLU%r_PqD=zw+PZZ0JC7QBb&E%#pV4tswUywDr) zZSgQ<06&AcB##u6+n{-#BrlOy$v*Nn=^+DTqN(FycinngFza%h{q^!J$Usmc|~`^p$t$QEqlb*zDXz`kK~;7_=nKM3s~29$Te zNVYGwhohEB?pv_2OP|WOZW`$wuM)iO_W#EceUV5_T=HdIh_mJ&HcQ z&JF_op216ep4`b_=LaxHU-N)EMmCOUY32ek1*hPh~FE%>217~gqr9BMf z_Bc4|IiR-Joe!NN_h$EYcayu_eG-zT)BV7W@g~9Yv%FOADsMGBFgIe9%3-rNdvAFA zytlpgJSh?1F~&Pa!P+(<8E29IAj`-0oK& zg7x-W^-OJoHXVK&6JDFy@YyT?w=NTSlVDvTHUqFC0`!MHL^<3d0X6M{CTRp(YIWN& z>s`P|y+G~~d;qbq{}Vw0#9QKJ1Cgiye>=5e$7xu6tte5qHmIkoEGQgvG43FjC z#bu1^{JS>xQl8CocplH^g^;r)d?PRAWxSkM@JjeUs-S6yEb0)N30WmS?EN_zr6sA! z>Qt2gW$3C6tdOS81yyILnd%aCDR4&){H6J7p<1k#z(-N~fADl-KC`ht78~JLsnVxdUU3$0PqaV?G^)z#?nQms7neg)J!)*AI5m&R-VzvH& zUHZ?`_dkR8g}=DxBp+gsPl0Li4T>0icOs6&lLV4Tl7M2S`kulRcnJ%ki%MV(mBNB9 zCl#RRt)S^@P<1Wnx(<}x0NQRM(V)fzn&?~2<+OrU(k|LfdmyuVX&(^X02b*6ln~a9 zR}xP6qk~?RAsT4^UQct|pa)lA+mL-4vQ3k%sTTQ;rzGQqH$ED^KVdTozOM6qBR#%v T1mCR3yp|%${O{kt-U$3RP_A;W diff --git a/src/3rd party/luajit-2.0-BAK/src/lua51.exp b/src/3rd party/luajit-2.0-BAK/src/lua51.exp deleted file mode 100644 index 854424470e61a00289bcf897869bd78273fb203d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 16746 zcmeI3e|%KcnZ{ob9Ynwc5J6FcMhyx$Gnph4jT#Y^9}%NOMU4)VnMpD*nHgs$kXW>+ zsHoIsEn2#z6}Q^8t+uqfF5T)@EA3jvt##cNExTH^)wOoDt5&ztb)WY=_uPB#IsCbQ zdOv!2-tT+vJ?EZt?wvXBo9P-emPS@R+Oy?&q9eu-A7kd{vguk{v=mb&5oMv);9ovw zpk62bo1e|~4G%Of7l>j${QWburT*=tx&^Gb4ejA(Zu9=v?6ZGA8-dS8;Ik3<{~dub zG?osaadaRZL=hTK2h#*PgeKA?noNgM9o5qmno85?Fq%$>(+rwPN6?Wpi;kkB=@@FD z*>o%&M~!qmoj@m26V0KM=wzBp^JqSuLQ#rQoSG>?E!0YFl%#e#l}@7$I-Sm-Gx3f* zix$w?w2;oBbLl)6LQjLab4XvdS8l`LKbF_}GrR(VPw4Sb~ z8|X&bKsV9NbPH{yTd6RdZi&s$77DDEEbd8_E2aK?A(zSy50$I6bOx6XI{+&+7naJJ zRdcnWQZ}c}HMvSPUn-{JsaPtSN*Bt5X?As`(%EdGTC3!X1HNsUYtn^bxeh8<26B~3 zsiLa(4fprwi+SlrS1OY(6ozv6gp$i<26LI!>Efti<%_i(PB%!XVL78XJk%GeQYzQb zZQ~q&G|(cqQ5!9LofC6dJ|v|JMo)7ixlAQj9WHo%<*^Oh#cVCzSMaVhfU(1!^yhPh ztZI6oI^3sJp_I<@jq6?p_DE2HuOGGyr#ZaE+*)qQXd48#So2OVm2<^H-fP-3s_M!- zGUkZF4vi;lb2Q79T-oe*dAK@g4nZZ?udZ9k4dkmeeS5V^I+N@37GPJ3M>|*m!$tqB zwSyQ?zCbEnE2oS3jA&jHO7K+qQx=mQz~ZCGApS}IjCOAVF>(Dk;g!;le>C2 zt*+>IBQ>Df!la?KQbukg1*<<-Tq7s3)>Fxj!BR<{C#^H3;iBq-=Nw8`{R;VFe@R~j zSNB>+#n8O*rGndo5%ir6^;mMH;j;fYrSipUPCdk_d^OWQT+HaT4m+4T7{QW(F^seH zDo+)1a1N&B2}$upHS=u*Yph#G}b->O1RT``yvUN3#6QX%KH z#de10aoC%82K`1y*)|qvitR#vV6YZyRH$`UF|VeWea0}bY1K6DhP}biie>hul3p9E z9T=Dj87U?6TH~#0NDt?RN^8_=#WPgE^PsBWeKMpZ&N7xBEPv^-_Lm+Ef9XL7s|iMU zH30+*hz)N6L7EGQUlhagI!M(@=H%4y7?{hcRx)RzRx(}`IMWzoG$d8!Ee)43z_n6n z;`Do0UJ1ptHxgd&@@g4+)+$_5hHS(i$Wc8g{7y^trPbR&8R`Q?v}|SgRI%`BQ)s5;0iJFV@uSNBMMMOnW-YIGY*mzM1lwTCp3wE%mB+4zKR)S3s)q(OZQCYA< zM0KLPTht&J_cnrWF+^VyRRH6yUPGoDqDH{#MDcd; zE27qc)r(qza+|32U{gf(qWr3;4PaA6twi}XQ5(UgiOQn9N7N>;!$b|D+%9S}*mO|^ zl=q6-0(Q8lGRnUdwH1uFun~N#BKo?hZD2D+ji9_w)ON5VM6E-4zo`4bjuf>XOruhL~TU*fT$f{M~m8o@|&U_0Xs(2W|ZF&wG*sC6wl+gMLh;KTNKa5 zgQA`QJ605r=R=})fgLAmJIe2fdK#=z6yMi(MePPdH~?e7ecK`Gd9V{i@%6ta>P4^< zMRA?)i`oO$BM>l*}XaD%eS)9z*%}qTT>IS=19K9~Jc$*j!P&Q2v9c zcfjU}dKx8PGeYly%@?&BMNI>16ZIa-AB&m+ zmK5~?%BMul0&5rbF-jf>ye+^^6}1oLPee6>ohFLL5dBnC6Ih3+abW)}YA)F6qQ-;q z7)B@xc7~{lU_TR;06SAu9oRFXl3<;prhz>xssrpSQ5+fK@sCg^*aA_rz@8Je5bSJG z4PgHwY7y8%QH@|f7u5xJj;JOup1TNjgPkjCF4!+b^?;oxDhl?3s1;y~L?yufRa7t7 zVo^yjp7#i?1Y07i1MJ^KWxID0xs6ntUQ47I-C8_{+zNkfDyk;U)23sbo3+yFP zHLwdrb%VVuY6PrXR1es%MXdw7P}B-AUT+av4|b8LUa)@`wE=9osFh&{U^l!7dS10Q-%oEnt_5DucZyYAe_ZQ8lpFMQsDSOwQ-{!Tw9s(_mRq_kq1DYByL;)B|Ar zY)0sLuzpbwg8fm{i(mtyc7Xl2s6AkVq8(Z@4s4CE zcVLeZHVtg8u=ik(6*dEGMA!$g4-hsBY*g6Cu*V5&0J}!mKG+8eYXtk8FdB<*OTwDK z)(IO277;cV>{?;t!Nv=Vf?X$UBG|#g5@4SfRtGjgSQ2c#uxVh22jJw;SQA*Cux_xMh0O)47uExIi?Arz6k#jC zHVR9CO%>J)cB`-?*fe1)!EO`Q0d|Dw38wA@VY$4d;!U|wt5ViJjn23L`#gw0)&s0j) zQh%+X>7qFeU5l43MF&r>r_9Kx?N2}R!cqCD1oQE_5b$JxDE}wyj>-G z>cSo`rpKefYtHC^3Zd|5ObI(=x5+0=4RaOln*zr)-=QKyT=}qo1pz>IO!pl|B#@gu z+;HfSAm8>3pCfR4xj^>ED$TpT3i%OByRAUcTsOS1mR{WwNsCT4{^5rIH2DsWI&vrH7{m)&a+4?dIEY?y^^*gx z!Z?U2^MDp9C>aUMDf1OYoChiTg-JL76rC zOvT=KND@9X;-cJoi*|6H0K4^MeXAxa+Qq2NM-sW643yMpAR`0W?%RGOi|_bU14~GY z*UM=plrRog?J%eWxp=vsZb21j#iE+rWMYxTy;R2ZF;q z1{Z1KMTxoj<(dUcw#P?!h;?X^XYFFs;Rlep6PK7C9lK@6rKUrF7##)23eypeE%SMo zh1}k7^CG+4ba1qp=irJERCy@oy(Ty2>`Ie+W648&mC4oTHQ#qCg!S$5B(KySKSs^t zoHi&2tGVBOVV0K($run{Mx+{x%zqKGhu9qWY-d%ZEe**G7@&?Pp-iv@M^A^jaI^@okd6(s3 zZ%y$U#FuVOLysr#wN!1+g7W#i)AEUg<+(B5YY7eF^L&H6-7>KR>iL1@J(oCC#GVmv zxdf@uJ-4;qLlQ!l7(OqF>q8W=dG5dsCR9;ba)Rp_xCoFtA*B?DGin9=d;(2?xjyZ<$aO)7g=L) z!U0shW*KKfXw!kR!3L=elzILo`l{+w22`!?u|b`+7gX@bj*Qc!aaj~cjPCZYqez^- zYmsK!WswB!u}BNOX^~bMdr-KoHkx9QB+a%+JDn0Hu_&Exkr*wtNSrRSNHYysBtfGV zX`$OK(n{Mb(nb$iBuS53q@8w$Njyq>EfS+QEfS}XEYeJoNNB|337T$^7HYCcE5$9+ zMhh&Gq~#WAr*xP!N2zR)7_GNRobI$pGi|p>f*!I+3;oa{t@Nx#+UVC7Nz&UEX{SGj zNg_%U#)n2M5u>RViPLP0G*i?f2|B|fEwtDot<+~wA1gxq%}(KTO>xGS|m<&2Z!dOwV4_$ zlAyU3X`yzDw9*obw9%y&NmAA#?NkbrwkTa^kr>@-kvM(XBF*#-izMh_i?q;>Ez(Lq zw@4f9u}G3$vq(F=8z#vp{ly|NnlvFas>wJ_w@5S1wn&0bwnz(|W|3CvvPc{CS|mvY zi?q`XVbUI@J1r8UuURBc4_Ty{9h33|>VE%dTQ zTIshIX`>GINzWTMNW1|heNs?a-~D^4!Oo5w>#u3 z4*8Ble&CR29KyLbeW?5Ty+b~62xqYLq2w_RnePzJ1L;G_r4H$J$dE&>b;unKxyK>j zbjVJJJnfKQIplSRyz7vC4ms!medl_GPj|>{hs<+GyF->Zq{ktt5Rt7fqNVy!om~~G z!@g06-0YAo4!PGM4?AR+Lw@0qR~+(3hkWXgNyckS-PcTq%yCGIL(X*w=R)qLIAo4PIvsMML#}d2(IMA4 z!i{xz`~(9P*??o_EMA4*7#a_Bmt%_T2hVeLlh=jSk_Mgg(?+ zXF22|hg|89L5Hky$c+x+D1|;$>-RY1+YZ_3ke@o_1&6%ukoQAmEcVI#X5ar`3D_R> z*8wg?#92fA*8tky-(LZ+FO>cFffs=EZIwOnOr7Odrk~wcrk~aKO#SN{!_<*#1L-KW zfxHN{LA-3eK~zf30Fs?IY?YN)KxN}S9c1AZFtYC&=&ZZ4L)mr@ah6?4BfD;c5u=J^ z(}N0Zn(ol3hqC7C96y1kOr0eUSyit&9xU%iIoj|4D#r(*F*dT_ssjIX!OMCpz}arC zyezjegY33v>#VjiRW@5`mBnW5XRpPOthG`>wp!VerB+g9r(M`C+fU!{#~uLq224SurY`TVSn*nT!wS)9f7m0Fp>?{>t2CFo^?v>Cpj{B%cL zURGALF;%>%bQV_m0Q~H$Pjp(+2j*hl&o6lVdghx%>Ty=p_nITaJu#j*schbx{BlQr zap<4ECe$rIODcZvr#yzvt9IewY^ZiXYlq5yDu?%b9?y_$r|2Ndsm)-e!l(ZFN4tWR z3YW3+U|A~<#8_)=>9qzOT5DLK{L>z3BFIX5W{{2aKxmqRpZ9oPbNGWF_;^lp?2VuJ zC@*IfeI?mMv4Sk3X-f7`fXW(*RM|q7L6$JEkjV25l@;_&&IbAhvVgwk?4NH)*3Y+) S?en$H^7+76bkY?y5&s7kszR6m diff --git a/src/3rd party/luajit-2.0-BAK/src/lua51.lib b/src/3rd party/luajit-2.0-BAK/src/lua51.lib deleted file mode 100644 index cf5918c69b6c75334156b14fee7905e3a20bfafe..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 28130 zcmeHPTa27Xu`WBrNsI}`xhGEI7?T^p@nwC##P{p?5_|2$j^pv{?CkE?voo97S!WH2 z!zGvyf)pWy5JC~+AjEToau5#@LJ0npnQdv+Gx{^~nnh ziRRrww5m?D=5?aA?+~3TI6D3(B11z>N6%a%GIaieqbGk#Wa#{F936Oz$k5pL9i5ma zvh*&lh88(Gd4R~!$cK(b&k`9ryxh^bb3}$tzUioPg2>SDRY&EY5g8i(tE1DXlcC`y zjz(TXxrSCas{9i7gU+B1hRy=p(9_>@bfyJ4=q&IIJ@bL1ryoT==&83op$<=h&dhi8 z%u?uqj-&4k9YOsKokJfQdKUK@I)r-+okHIjI`#uc1=PvV&_YKSMu-eO`yEdo;R-6f z;i&jeB0~pImZ8({J35G~p)uqcDz0=?-i3Yw9sawc)2N%FgXk+mh2xHj--SNt$*qot z{*3y7Mt|*S>@k!J+VY;Gtw)IrZ9*FjZ9)AF?b+;TGw==V9&)t#hu}fGfA46^W$1%; z{=(7r-w_$w3f|DBvyP50K)-^H{?^g4HRv}`X}zO;hlmVaK)HsFyz1!adFX?V{KL`u z5h6=}z!kLrZ;lSXf_?#QL|+)%_j5=4Uq(J?+X_d6cM};p^tPkHtKdO9rX4-;BO*gP z3yyZ6pDZoH6|@dzTlx@JLrWYD{srZL4lZ-F>vbYSdtsxNUceQ!|2{{%9z;IqiOr6- zqkj!;Lz$M){%xR*A2{0c6O0FF!#+=M;tJZh)Y0C>C?8ZE_JlF0f-VktdIML`u8$mD zT0mr}hO41JI;w3Yvh-tILE|@jLjR0U7mEjv96xqqu()UM$=xRo9v?h*qF9?Mty@jS z;?YxuLVGs7Wb<9_;DJ*|4;T0B9NY>0>i9&_++3_zo^OpcE2Uw|vZ6CuX|);?P9dZv zcT(kswB$}qO^#hI)ut-$cEyTLvohYe>=i;pO0(r|4{6D5RwintGT-bO$uEyp z%9kcvrSc_Lg62hQS}Nd^l2@IqPmK>%n!X0iX^qKNvsxbw8iCUq<&mj+xm9h{gOUxJX0w4K(ul z24Zf!P0Ri0El8wq93%PQGi`|_k*2f-O4+uQOEo_|T}tkpkSw2+yt2v+Y014JX5o{P z*Q`uVg%v%dB^Qr2n6m4Yke1xhvL6y$MOv>+`+jsO$tgGL<&w_}Y01UFqU~5Td7J|) zI_R(swrM+*%t6ZFKu9v(nSd@4n?v+>De;* zp&(_lNa>I3~)+yb6vP6g(#yuzsZ>9BUMcttK4d zq2TF8JZqT=Io4=+XP6nu2e#xh)0RJ8n)GFO9VckhD>tUqf zlQZHYt;?0>Bj zCY;rfuUVyICcn}VR_Q!HR`Fg;q3F{pSKpqkL$THfFK8~s_Z5ey#{HX_OG%E=oOTxH zlblzu1&&m`v!dCI&d}7zi1*Z;RuE+Ll+)+*f*_-3FkPht6nsX@foMIJu%;RHiDttT zSj6n}Z-_b44tMw$+V}<|%+)uYD|1}mq;mL9vqG7NvG)aq6Ak0k`fQ)%yh5=tQK{Fe zLw?C&PH8kNqt(e4kBqR9j(boSip>gADrc&0C3b=KX_YJ0wF<&2ozcmuP(7Dac_Y>O zuy}igqT(a18m7bKRLw09Mok1tuQFYM8>{rRK6q7=sFhm4dd3opLnUuGipyyDUT_MAiSvgm zLsKqTVKqD(>!34jA6X5{a6a3ob2~N5I`+1zd*E?8&b_E>X_+{Gywn<#DmX6IXt)a4 z@=ZFYv3`YNK=*ATt4mZ)%w z=ugLqnutSQdj@gX^F%*=lISo+fG`{U*{M0P|7sZ$E`HK=UDA z3RxX>T7Cp|Jcs;ek#`97L0x}v3}qFF7NWi*7l^)typKR{l!*RWgdXbrKCs_E2p)A` z3E3{x>F=oPa>%biejN9I7xJxW=bur|uhEvrp!?ny#GMffePco8&~Bn1 z;`)1BFGK!|okYLejw^J}LU#e``rD(}e?i^WqaKI$K^Jv<74<(4`9E+SSx@u_(BJkG zy@I-2+eq|t=)DYn#Wte52hj&;<5gUzcM$#P35*SJ-a~p3=-N8;J7@{$FVIpsk1x{}^=hIO+qsV;=UIXg*C)of>qWigcA;qA$}By+DI>kP38^4$*PiPY38E zRp?9fMY=*KXqqn4I8~`em*`1)o+jxU9id}%m|mo>&=j@k43+6J4buhMNS~x8?V!!H zl1AwkD$#b@NvrAe^b9>q=jb#&MXTr(JxbTpZn}v+O`oEhX))bKBQ!?O(I@C}dV=nz zP4o~wNS~tz=wVt;_tP@^EImRu&vEi=BGw zR&{Ih49$B;@V}Ivh}&NUOik32J@wX*Gyd>hP1XFvTS4YJwdTog-EO7mW!k$i4v$1m zB3%i7#NwQB?%;an`hD#le6GW<0ssm=_g%Ez>(9QC$~!ZcRW$QK4Mr3%Q(ErTMhSdW zQAyh4qdImiirJUiwmqw?Nf%AXQ|^atqRuvC840sNUFfw1oPEF|Q=Ey8WMdd60%YVl zL6FXoo~S-~R;uDkk#5$Sjh@|~jkGv+D$@4d)9PgIhL>!4s++O%=QcUDO!g5(nzt=z zrnv6NY(zr6F-t+1r0v@*5axkqBiZe{eQhRZrdo#`qE0(Z9k!_27k<0pmfTQke~8(8 z?B1VrfvIEL;$aorN5km0_m`1o-#2XmdHZsCd%lT%D5g4|&nJ9i3p z*cQ*Rn*2TXoUP^jE$O_;l<_BuhR+@(`1qX`X?WY2itHwreW!MT4Zh3CIz}&Iy*NT) zZ#B_}SgB)>Ay!L-5@N-+DQI!M!62NV{a+O(%;b2lxlL+p%nM;)QG7htM}}_f9S1?E zX5gb>R2-Pu#Ji+EMX!E9T~}N4*~Vq4pl}KrL%br!C~`;#;x5 z>9xhv41%bSwRdS1%wr%5FiHeid`YXRyhz8#TN^rdEIS(FE#e;UC)!l@_>~HK>%C^Z zJFY!JQ-<>aO-h|k5(BUvpUK6j24By!vX75E*%b`#njPN2wC_|!dtA}>o!W`>rX-Wz zlqaTaxHwOrq~oWCsc-PkY+CzePN0UjSY=<#<;fauc=5k1XFacwau%w*Et8@AEYHRT z%6Wm{RT(ukWX8DIld^dbhz}Jc>^%j6UOe(Vrl6-+6!DTmuI?FA6E*X!a`1_QzN~*4 zKgcME2jn>nptBR_2Sq1LI0FlG$cWA|MrRY{7zfm~rGgbpHH@4F0VmtBV3g&7Q$CBS zEhNg;4CkLAk%wY6)u|EXm6)uYLvhhCsdIKtU3WhK!;vvE8(dgen0FmbUwmuu2E>7HB>S7U(zb2|qW|uP&@Ssz;ktuX{mSbhO74COars|R&@<8&ab1k~ule1? zje3Y~S$qQ|rZn?g1bXqxk|Wh}voYBiX)SyB#3RcJ2ag`MxtTvk+1zLfAOw<4YBBy^ zZ&QpxJIamm3Don&EB{UZ`d0um`sQaUHlIRscM#dCjs=Nrm_fNNNCu1!1PEXIyVi-s z$nP_M{Lhq*1K^%Bm-z^~?g>U0S_-l@((y1Li!ej^X_&J}1H`z2mLUZ{z*Io1cq^2e82PJgWyf^y%HeyH4R5 zSHPT~5-3h}+mm7W$c)~DK>CD2%6s!-IsXI291(=nEhFEPTb zu1$+$Ecd!EP`%IN#5(_(7|Xsi2^6Qg?ZL!~yCg<(;Wh@C!Ro}{Ovg{>+hG~EFqRAC z2n?rYp+&a}io^&RUU?ptgc7+wrS_%}Wy6wTl>U0Mq`9PP8O)$g^ z`mlo!bsMbWPC+x_*nUtFBXt*}NMN@wti-BxcMjIH0^=rjJ64G&{yhZ?tOvAQ=xYIDtcUuhGzejj5+;rf31Ffm&9YcxDTa9F$_r0^=6@j36rtXjrM zVUt0CI5i9Q_dphBvac2;tYW!B;*&Vslo{B10_(FHYc~9)#JpOevHJIx60Q0iBdMLD zIqJa&1xq%e`oRkSd?jP+CRX(jW10Oe0pZjv*!jZ>!+(Xr#m~U@687*2Bgv+mKyhjo z+VrR(h3!5regTa@k@N-J-0`e|NhB*7gOD!n>aW z)BBStVbv=Gjy-@UAe`#9EeTtDoH1m}mdo$G*AiadDn_!K!2;5IpCv3{HKVwFW`W^U zx4o7?S;Hu9JCw`ry~h%(^;$+zd*cGtd%q=YZ6ILTZFd3TRJXmBumE%F-^6D9hCUZP zgOw(MvYt`wmzjN_tnJ|8FTonHA)w&ksX%b5+ulleiW?b$w~e{@8T43UJ=>&^?2dFl zI0=t*v&ONT-2%j^ZhJ1#o-GQ;ZliPIGw8PtHeljhTQfNBEQx?|s@pat)`D#rEPG0Y z0cOyyME`A9SoQ!+KR5|{ctYX06Al8zsc!o&F-|)aj+~uf1ew3xVkO$NQ(%JN?0>_uihwlWw=hiMF*EuiMrnypTN#C7h1p@@KU@djpa`chv_2|gF{??@3xR=(V>9EN9X#$N%&TW8OI#T z>jNX<^%OLQ4$IA|tsMy{e2le^)+BtNqYB5LB@>|DTa=io#}rbIx%G~fu!G}*h5y7P z4dPU{vnR1$KN&FmnN2QR@VZ4wSlfw!l70Q@y}uG;bCOZiK~rf^?^p>RVNhf78CC(~ zRJXmCXxAx?6;8)8zzlr31lDPdH4D4U>pJ+255OOON@K-eLCsO?o{kXP9!tGjNQc&$ zsLvUVWxm(yr%ef8=xl`J{>P(0ajIK8Odvg@k=iK2ygoN+i6eRiByC1B? zN;fH3v*6_qB#>HyG#lq45^KYhAoU;FO0?**;Dqnk`WdA}i=G#x{=MLYXFn}CIYA9> zT(`3+5!1NBNH{u(+>i z9QUniKS+rdeN`iw&tUt(N%-|&(>VCTR$w?a3*+;$Mls*+a^W)=pM<@AUE|o#f(3|E z-L@yuYu7XmJ~-yGCDkoTV%7PEMhTxX3smnbT;d7zipJ_cwv?Dd-_%H1cYERg0sFmW A=>Px# diff --git a/src/3rd party/luajit-2.0-BAK/src/luaconf.h b/src/3rd party/luajit-2.0-BAK/src/luaconf.h deleted file mode 100644 index 043590b2726..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/luaconf.h +++ /dev/null @@ -1,156 +0,0 @@ -/* -** Configuration header. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -*/ - -#ifndef luaconf_h -#define luaconf_h - -#ifndef WINVER -#define WINVER 0x0501 -#endif -#include -#include - -/* Default path for loading Lua and C modules with require(). */ -#if defined(_WIN32) -/* -** In Windows, any exclamation mark ('!') in the path is replaced by the -** path of the directory of the executable file of the current process. -*/ -#define LUA_LDIR "!\\lua\\" -#define LUA_CDIR "!\\" -#define LUA_PATH_DEFAULT \ - ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" -#define LUA_CPATH_DEFAULT \ - ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" -#else -/* -** Note to distribution maintainers: do NOT patch the following lines! -** Please read ../doc/install.html#distro and pass PREFIX=/usr instead. -*/ -#ifndef LUA_MULTILIB -#define LUA_MULTILIB "lib" -#endif -#ifndef LUA_LMULTILIB -#define LUA_LMULTILIB "lib" -#endif -#define LUA_LROOT "/usr/local" -#define LUA_LUADIR "/lua/5.1/" -#define LUA_LJDIR "/luajit-2.1.0-alpha/" - -#ifdef LUA_ROOT -#define LUA_JROOT LUA_ROOT -#define LUA_RLDIR LUA_ROOT "/share" LUA_LUADIR -#define LUA_RCDIR LUA_ROOT "/" LUA_MULTILIB LUA_LUADIR -#define LUA_RLPATH ";" LUA_RLDIR "?.lua;" LUA_RLDIR "?/init.lua" -#define LUA_RCPATH ";" LUA_RCDIR "?.so" -#else -#define LUA_JROOT LUA_LROOT -#define LUA_RLPATH -#define LUA_RCPATH -#endif - -#define LUA_JPATH ";" LUA_JROOT "/share" LUA_LJDIR "?.lua" -#define LUA_LLDIR LUA_LROOT "/share" LUA_LUADIR -#define LUA_LCDIR LUA_LROOT "/" LUA_LMULTILIB LUA_LUADIR -#define LUA_LLPATH ";" LUA_LLDIR "?.lua;" LUA_LLDIR "?/init.lua" -#define LUA_LCPATH1 ";" LUA_LCDIR "?.so" -#define LUA_LCPATH2 ";" LUA_LCDIR "loadall.so" - -#define LUA_PATH_DEFAULT "./?.lua" LUA_JPATH LUA_LLPATH LUA_RLPATH -#define LUA_CPATH_DEFAULT "./?.so" LUA_LCPATH1 LUA_RCPATH LUA_LCPATH2 -#endif - -/* Environment variable names for path overrides and initialization code. */ -#define LUA_PATH "LUA_PATH" -#define LUA_CPATH "LUA_CPATH" -#define LUA_INIT "LUA_INIT" - -/* Special file system characters. */ -#if defined(_WIN32) -#define LUA_DIRSEP "\\" -#else -#define LUA_DIRSEP "/" -#endif -#define LUA_PATHSEP ";" -#define LUA_PATH_MARK "?" -#define LUA_EXECDIR "!" -#define LUA_IGMARK "-" -#define LUA_PATH_CONFIG \ - LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" \ - LUA_EXECDIR "\n" LUA_IGMARK - -/* Quoting in error messages. */ -#define LUA_QL(x) "'" x "'" -#define LUA_QS LUA_QL("%s") - -/* Various tunables. */ -#define LUAI_MAXSTACK 65500 /* Max. # of stack slots for a thread (<64K). */ -#define LUAI_MAXCSTACK 8000 /* Max. # of stack slots for a C func (<10K). */ -#define LUAI_GCPAUSE 200 /* Pause GC until memory is at 200%. */ -#define LUAI_GCMUL 200 /* Run GC at 200% of allocation speed. */ -#define LUA_MAXCAPTURES 32 /* Max. pattern captures. */ - -/* Compatibility with older library function names. */ -#define LUA_COMPAT_MOD /* OLD: math.mod, NEW: math.fmod */ -#define LUA_COMPAT_GFIND /* OLD: string.gfind, NEW: string.gmatch */ - -/* Configuration for the frontend (the luajit executable). */ -#if defined(luajit_c) -#define LUA_PROGNAME "luajit" /* Fallback frontend name. */ -#define LUA_PROMPT "> " /* Interactive prompt. */ -#define LUA_PROMPT2 ">> " /* Continuation prompt. */ -#define LUA_MAXINPUT 512 /* Max. input line length. */ -#endif - -/* Note: changing the following defines breaks the Lua 5.1 ABI. */ -#define LUA_INTEGER ptrdiff_t -#define LUA_IDSIZE 60 /* Size of lua_Debug.short_src. */ -/* -** Size of lauxlib and io.* on-stack buffers. Weird workaround to avoid using -** unreasonable amounts of stack space, but still retain ABI compatibility. -** Blame Lua for depending on BUFSIZ in the ABI, blame **** for wrecking it. -*/ -#define LUAL_BUFFERSIZE (BUFSIZ > 16384 ? 8192 : BUFSIZ) - -/* The following defines are here only for compatibility with luaconf.h -** from the standard Lua distribution. They must not be changed for LuaJIT. -*/ -#define LUA_NUMBER_DOUBLE -#define LUA_NUMBER double -#define LUAI_UACNUMBER double -#define LUA_NUMBER_SCAN "%lf" -#define LUA_NUMBER_FMT "%.14g" -#define lua_number2str(s, n) sprintf((s), LUA_NUMBER_FMT, (n)) -#define LUAI_MAXNUMBER2STR 32 -#define LUA_INTFRMLEN "l" -#define LUA_INTFRM_T long - -/* Linkage of public API functions. */ -#if defined(LUA_BUILD_AS_DLL) -#if defined(LUA_CORE) || defined(LUA_LIB) -#define LUA_API __declspec(dllexport) -#else -#define LUA_API __declspec(dllimport) -#endif -#else -#define LUA_API extern -#endif - -#define LUALIB_API LUA_API - -/* Support for internal assertions. */ -#if defined(LUA_USE_ASSERT) || defined(LUA_USE_APICHECK) -#include -#endif -#ifdef LUA_USE_ASSERT -#define lua_assert(x) assert(x) -#endif -#ifdef LUA_USE_APICHECK -#define luai_apicheck(L, o) { (void)L; assert(o); } -#else -#define luai_apicheck(L, o) { (void)L; } -#endif - -#endif diff --git a/src/3rd party/luajit-2.0-BAK/src/luajit.c b/src/3rd party/luajit-2.0-BAK/src/luajit.c deleted file mode 100644 index 0ebc73005f8..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/luajit.c +++ /dev/null @@ -1,570 +0,0 @@ -/* -** LuaJIT frontend. Runs commands, scripts, read-eval-print (REPL) etc. -** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -** -** Major portions taken verbatim or adapted from the Lua interpreter. -** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h -*/ - -#include -#include -#include - -#define luajit_c - -#include "lua.h" -#include "lauxlib.h" -#include "lualib.h" -#include "luajit.h" - -#include "lj_arch.h" - -#if LJ_TARGET_POSIX -#include -#define lua_stdin_is_tty() isatty(0) -#elif LJ_TARGET_WINDOWS -#include -#ifdef __BORLANDC__ -#define lua_stdin_is_tty() isatty(_fileno(stdin)) -#else -#define lua_stdin_is_tty() _isatty(_fileno(stdin)) -#endif -#else -#define lua_stdin_is_tty() 1 -#endif - -#if !LJ_TARGET_CONSOLE -#include -#endif - -static lua_State *globalL = NULL; -static const char *progname = LUA_PROGNAME; - -#if !LJ_TARGET_CONSOLE -static void lstop(lua_State *L, lua_Debug *ar) -{ - (void)ar; /* unused arg. */ - lua_sethook(L, NULL, 0, 0); - /* Avoid luaL_error -- a C hook doesn't add an extra frame. */ - luaL_where(L, 0); - lua_pushfstring(L, "%sinterrupted!", lua_tostring(L, -1)); - lua_error(L); -} - -static void laction(int i) -{ - signal(i, SIG_DFL); /* if another SIGINT happens before lstop, - terminate process (default action) */ - lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1); -} -#endif - -static void print_usage(void) -{ - fputs("usage: ", stderr); - fputs(progname, stderr); - fputs(" [options]... [script [args]...].\n" - "Available options are:\n" - " -e chunk Execute string " LUA_QL("chunk") ".\n" - " -l name Require library " LUA_QL("name") ".\n" - " -b ... Save or list bytecode.\n" - " -j cmd Perform LuaJIT control command.\n" - " -O[opt] Control LuaJIT optimizations.\n" - " -i Enter interactive mode after executing " LUA_QL("script") ".\n" - " -v Show version information.\n" - " -E Ignore environment variables.\n" - " -- Stop handling options.\n" - " - Execute stdin and stop handling options.\n", stderr); - fflush(stderr); -} - -static void l_message(const char *pname, const char *msg) -{ - if (pname) { fputs(pname, stderr); fputc(':', stderr); fputc(' ', stderr); } - fputs(msg, stderr); fputc('\n', stderr); - fflush(stderr); -} - -static int report(lua_State *L, int status) -{ - if (status && !lua_isnil(L, -1)) { - const char *msg = lua_tostring(L, -1); - if (msg == NULL) msg = "(error object is not a string)"; - l_message(progname, msg); - lua_pop(L, 1); - } - return status; -} - -static int traceback(lua_State *L) -{ - if (!lua_isstring(L, 1)) { /* Non-string error object? Try metamethod. */ - if (lua_isnoneornil(L, 1) || - !luaL_callmeta(L, 1, "__tostring") || - !lua_isstring(L, -1)) - return 1; /* Return non-string error object. */ - lua_remove(L, 1); /* Replace object by result of __tostring metamethod. */ - } - luaL_traceback(L, L, lua_tostring(L, 1), 1); - return 1; -} - -static int docall(lua_State *L, int narg, int clear) -{ - int status; - int base = lua_gettop(L) - narg; /* function index */ - lua_pushcfunction(L, traceback); /* push traceback function */ - lua_insert(L, base); /* put it under chunk and args */ -#if !LJ_TARGET_CONSOLE - signal(SIGINT, laction); -#endif - status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base); -#if !LJ_TARGET_CONSOLE - signal(SIGINT, SIG_DFL); -#endif - lua_remove(L, base); /* remove traceback function */ - /* force a complete garbage collection in case of errors */ - if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); - return status; -} - -static void print_version(void) -{ - fputs(LUAJIT_VERSION " -- " LUAJIT_COPYRIGHT ". " LUAJIT_URL "\n", stdout); -} - -static void print_jit_status(lua_State *L) -{ - int n; - const char *s; - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); - lua_getfield(L, -1, "jit"); /* Get jit.* module table. */ - lua_remove(L, -2); - lua_getfield(L, -1, "status"); - lua_remove(L, -2); - n = lua_gettop(L); - lua_call(L, 0, LUA_MULTRET); - fputs(lua_toboolean(L, n) ? "JIT: ON" : "JIT: OFF", stdout); - for (n++; (s = lua_tostring(L, n)); n++) { - putc(' ', stdout); - fputs(s, stdout); - } - putc('\n', stdout); -} - -static int getargs(lua_State *L, char **argv, int n) -{ - int narg; - int i; - int argc = 0; - while (argv[argc]) argc++; /* count total number of arguments */ - narg = argc - (n + 1); /* number of arguments to the script */ - luaL_checkstack(L, narg + 3, "too many arguments to script"); - for (i = n+1; i < argc; i++) - lua_pushstring(L, argv[i]); - lua_createtable(L, narg, n + 1); - for (i = 0; i < argc; i++) { - lua_pushstring(L, argv[i]); - lua_rawseti(L, -2, i - n); - } - return narg; -} - -static int dofile(lua_State *L, const char *name) -{ - int status = luaL_loadfile(L, name) || docall(L, 0, 1); - return report(L, status); -} - -static int dostring(lua_State *L, const char *s, const char *name) -{ - int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1); - return report(L, status); -} - -static int dolibrary(lua_State *L, const char *name) -{ - lua_getglobal(L, "require"); - lua_pushstring(L, name); - return report(L, docall(L, 1, 1)); -} - -static void write_prompt(lua_State *L, int firstline) -{ - const char *p; - lua_getfield(L, LUA_GLOBALSINDEX, firstline ? "_PROMPT" : "_PROMPT2"); - p = lua_tostring(L, -1); - if (p == NULL) p = firstline ? LUA_PROMPT : LUA_PROMPT2; - fputs(p, stdout); - fflush(stdout); - lua_pop(L, 1); /* remove global */ -} - -static int incomplete(lua_State *L, int status) -{ - if (status == LUA_ERRSYNTAX) { - size_t lmsg; - const char *msg = lua_tolstring(L, -1, &lmsg); - const char *tp = msg + lmsg - (sizeof(LUA_QL("")) - 1); - if (strstr(msg, LUA_QL("")) == tp) { - lua_pop(L, 1); - return 1; - } - } - return 0; /* else... */ -} - -static int pushline(lua_State *L, int firstline) -{ - char buf[LUA_MAXINPUT]; - write_prompt(L, firstline); - if (fgets(buf, LUA_MAXINPUT, stdin)) { - size_t len = strlen(buf); - if (len > 0 && buf[len-1] == '\n') - buf[len-1] = '\0'; - if (firstline && buf[0] == '=') - lua_pushfstring(L, "return %s", buf+1); - else - lua_pushstring(L, buf); - return 1; - } - return 0; -} - -static int loadline(lua_State *L) -{ - int status; - lua_settop(L, 0); - if (!pushline(L, 1)) - return -1; /* no input */ - for (;;) { /* repeat until gets a complete line */ - status = luaL_loadbuffer(L, lua_tostring(L, 1), lua_strlen(L, 1), "=stdin"); - if (!incomplete(L, status)) break; /* cannot try to add lines? */ - if (!pushline(L, 0)) /* no more input? */ - return -1; - lua_pushliteral(L, "\n"); /* add a new line... */ - lua_insert(L, -2); /* ...between the two lines */ - lua_concat(L, 3); /* join them */ - } - lua_remove(L, 1); /* remove line */ - return status; -} - -static void dotty(lua_State *L) -{ - int status; - const char *oldprogname = progname; - progname = NULL; - while ((status = loadline(L)) != -1) { - if (status == 0) status = docall(L, 0, 0); - report(L, status); - if (status == 0 && lua_gettop(L) > 0) { /* any result to print? */ - lua_getglobal(L, "print"); - lua_insert(L, 1); - if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) - l_message(progname, - lua_pushfstring(L, "error calling " LUA_QL("print") " (%s)", - lua_tostring(L, -1))); - } - } - lua_settop(L, 0); /* clear stack */ - fputs("\n", stdout); - fflush(stdout); - progname = oldprogname; -} - -static int handle_script(lua_State *L, char **argv, int n) -{ - int status; - const char *fname; - int narg = getargs(L, argv, n); /* collect arguments */ - lua_setglobal(L, "arg"); - fname = argv[n]; - if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0) - fname = NULL; /* stdin */ - status = luaL_loadfile(L, fname); - lua_insert(L, -(narg+1)); - if (status == 0) - status = docall(L, narg, 0); - else - lua_pop(L, narg); - return report(L, status); -} - -/* Load add-on module. */ -static int loadjitmodule(lua_State *L) -{ - lua_getglobal(L, "require"); - lua_pushliteral(L, "jit."); - lua_pushvalue(L, -3); - lua_concat(L, 2); - if (lua_pcall(L, 1, 1, 0)) { - const char *msg = lua_tostring(L, -1); - if (msg && !strncmp(msg, "module ", 7)) - goto nomodule; - return report(L, 1); - } - lua_getfield(L, -1, "start"); - if (lua_isnil(L, -1)) { - nomodule: - l_message(progname, - "unknown luaJIT command or jit.* modules not installed"); - return 1; - } - lua_remove(L, -2); /* Drop module table. */ - return 0; -} - -/* Run command with options. */ -static int runcmdopt(lua_State *L, const char *opt) -{ - int narg = 0; - if (opt && *opt) { - for (;;) { /* Split arguments. */ - const char *p = strchr(opt, ','); - narg++; - if (!p) break; - if (p == opt) - lua_pushnil(L); - else - lua_pushlstring(L, opt, (size_t)(p - opt)); - opt = p + 1; - } - if (*opt) - lua_pushstring(L, opt); - else - lua_pushnil(L); - } - return report(L, lua_pcall(L, narg, 0, 0)); -} - -/* JIT engine control command: try jit library first or load add-on module. */ -static int dojitcmd(lua_State *L, const char *cmd) -{ - const char *opt = strchr(cmd, '='); - lua_pushlstring(L, cmd, opt ? (size_t)(opt - cmd) : strlen(cmd)); - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); - lua_getfield(L, -1, "jit"); /* Get jit.* module table. */ - lua_remove(L, -2); - lua_pushvalue(L, -2); - lua_gettable(L, -2); /* Lookup library function. */ - if (!lua_isfunction(L, -1)) { - lua_pop(L, 2); /* Drop non-function and jit.* table, keep module name. */ - if (loadjitmodule(L)) - return 1; - } else { - lua_remove(L, -2); /* Drop jit.* table. */ - } - lua_remove(L, -2); /* Drop module name. */ - return runcmdopt(L, opt ? opt+1 : opt); -} - -/* Optimization flags. */ -static int dojitopt(lua_State *L, const char *opt) -{ - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); - lua_getfield(L, -1, "jit.opt"); /* Get jit.opt.* module table. */ - lua_remove(L, -2); - lua_getfield(L, -1, "start"); - lua_remove(L, -2); - return runcmdopt(L, opt); -} - -/* Save or list bytecode. */ -static int dobytecode(lua_State *L, char **argv) -{ - int narg = 0; - lua_pushliteral(L, "bcsave"); - if (loadjitmodule(L)) - return 1; - if (argv[0][2]) { - narg++; - argv[0][1] = '-'; - lua_pushstring(L, argv[0]+1); - } - for (argv++; *argv != NULL; narg++, argv++) - lua_pushstring(L, *argv); - return report(L, lua_pcall(L, narg, 0, 0)); -} - -/* check that argument has no extra characters at the end */ -#define notail(x) {if ((x)[2] != '\0') return -1;} - -#define FLAGS_INTERACTIVE 1 -#define FLAGS_VERSION 2 -#define FLAGS_EXEC 4 -#define FLAGS_OPTION 8 -#define FLAGS_NOENV 16 - -static int collectargs(char **argv, int *flags) -{ - int i; - for (i = 1; argv[i] != NULL; i++) { - if (argv[i][0] != '-') /* Not an option? */ - return i; - switch (argv[i][1]) { /* Check option. */ - case '-': - notail(argv[i]); - return (argv[i+1] != NULL ? i+1 : 0); - case '\0': - return i; - case 'i': - notail(argv[i]); - *flags |= FLAGS_INTERACTIVE; - /* fallthrough */ - case 'v': - notail(argv[i]); - *flags |= FLAGS_VERSION; - break; - case 'e': - *flags |= FLAGS_EXEC; - case 'j': /* LuaJIT extension */ - case 'l': - *flags |= FLAGS_OPTION; - if (argv[i][2] == '\0') { - i++; - if (argv[i] == NULL) return -1; - } - break; - case 'O': break; /* LuaJIT extension */ - case 'b': /* LuaJIT extension */ - if (*flags) return -1; - *flags |= FLAGS_EXEC; - return 0; - case 'E': - *flags |= FLAGS_NOENV; - break; - default: return -1; /* invalid option */ - } - } - return 0; -} - -static int runargs(lua_State *L, char **argv, int n) -{ - int i; - for (i = 1; i < n; i++) { - if (argv[i] == NULL) continue; - lua_assert(argv[i][0] == '-'); - switch (argv[i][1]) { /* option */ - case 'e': { - const char *chunk = argv[i] + 2; - if (*chunk == '\0') chunk = argv[++i]; - lua_assert(chunk != NULL); - if (dostring(L, chunk, "=(command line)") != 0) - return 1; - break; - } - case 'l': { - const char *filename = argv[i] + 2; - if (*filename == '\0') filename = argv[++i]; - lua_assert(filename != NULL); - if (dolibrary(L, filename)) - return 1; /* stop if file fails */ - break; - } - case 'j': { /* LuaJIT extension */ - const char *cmd = argv[i] + 2; - if (*cmd == '\0') cmd = argv[++i]; - lua_assert(cmd != NULL); - if (dojitcmd(L, cmd)) - return 1; - break; - } - case 'O': /* LuaJIT extension */ - if (dojitopt(L, argv[i] + 2)) - return 1; - break; - case 'b': /* LuaJIT extension */ - return dobytecode(L, argv+i); - default: break; - } - } - return 0; -} - -static int handle_luainit(lua_State *L) -{ -#if LJ_TARGET_CONSOLE - const char *init = NULL; -#else - const char *init = getenv(LUA_INIT); -#endif - if (init == NULL) - return 0; /* status OK */ - else if (init[0] == '@') - return dofile(L, init+1); - else - return dostring(L, init, "=" LUA_INIT); -} - -static struct Smain { - char **argv; - int argc; - int status; -} smain; - -static int pmain(lua_State *L) -{ - struct Smain *s = &smain; - char **argv = s->argv; - int script; - int flags = 0; - globalL = L; - if (argv[0] && argv[0][0]) progname = argv[0]; - LUAJIT_VERSION_SYM(); /* linker-enforced version check */ - script = collectargs(argv, &flags); - if (script < 0) { /* invalid args? */ - print_usage(); - s->status = 1; - return 0; - } - if ((flags & FLAGS_NOENV)) { - lua_pushboolean(L, 1); - lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); - } - lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ - luaL_openlibs(L); /* open libraries */ - lua_gc(L, LUA_GCRESTART, -1); - if (!(flags & FLAGS_NOENV)) { - s->status = handle_luainit(L); - if (s->status != 0) return 0; - } - if ((flags & FLAGS_VERSION)) print_version(); - s->status = runargs(L, argv, (script > 0) ? script : s->argc); - if (s->status != 0) return 0; - if (script) { - s->status = handle_script(L, argv, script); - if (s->status != 0) return 0; - } - if ((flags & FLAGS_INTERACTIVE)) { - print_jit_status(L); - dotty(L); - } else if (script == 0 && !(flags & (FLAGS_EXEC|FLAGS_VERSION))) { - if (lua_stdin_is_tty()) { - print_version(); - print_jit_status(L); - dotty(L); - } else { - dofile(L, NULL); /* executes stdin as a file */ - } - } - return 0; -} - -int main(int argc, char **argv) -{ - int status; - lua_State *L = lua_open(); /* create state */ - if (L == NULL) { - l_message(argv[0], "cannot create state: not enough memory"); - return EXIT_FAILURE; - } - smain.argc = argc; - smain.argv = argv; - status = lua_cpcall(L, pmain, NULL); - report(L, status); - lua_close(L); - return (status || smain.status) ? EXIT_FAILURE : EXIT_SUCCESS; -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/luajit.exe b/src/3rd party/luajit-2.0-BAK/src/luajit.exe deleted file mode 100644 index 08219a42f7cb8dd8aa7a6ad35e49ef80280cf53f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 86016 zcmeFae|%KM)jxjsN0Lq0%!@U73 zfrOjYY%bf<7W&wy_Ng@5;$wf5m0z`o=I59zy8Ie!6f8}{~|69 zynK%7;y&sZgeOpyfA#Mg>F#wBBDcPU2i1$(N}V3}FIy1qxTbd1cckwK!k?EQ0yqUP ze(&NJ_sgIhjfeLg8%RH z{~`s-)s;E67pOm!hpd9nA9=_seOFzalOB134^j1oh8wRILk}Z?xTnaZ4Argmi#r>7 z9d1F(3GK$KVS`zaZ&H#?YEr{Ge9l*r&C$t9vQD>Bs=(bWZ_Tc zC#tKQZ7Vud>rW}4lvG`%bZaX*l=VNg3etzwRgpy|gz^OWqw1-Kp-(GIcXGT zI~4m@?pN36*qtYWiGlTBx&=S`?l=L@yKNx&en+THO016Dgm(H=DJNY`oWI;GP3Ux+ zu6~iaL``&i{mg|N%6^+#WK}w?$dLiq<$wVYsk0*Hrcj$44GKY_+|O>Ih<-vnAT0=L ze)iT_o*VgckpzG@00^}`&%SUAqNlq|nQhVyp{ch%21+oN$_hQTZpia z)uEosemj~ozM5CEs)LZ^^29d!%+^0qx3prvkIhV@47Td34yT6TgwY_?(H37j7cvGU zuojhm4FZJi7-o>bTmv}C0KN<$deiM=U8#h9VHK!U?jr_u1fHSxev0<`S)ZOR+t1qZ zbj@!YkI(-su3L6HR`00ALV6?V&zpH&BG1E#g2&=!8^AU_bjK z0K|+g9+4jFXFt0hfN%Em&oKIlJ3r-g$bt;$FuGX1J;$aVEcZnoFhwnqn+2mc(av;m ztt0nv*=^8|Mx;I*Yf@$IQHzb^vZ9CVPa(kG2sb3xIF7@dIc}#ET1f@+?&Bdp>qK z4?v1-SQ$7QV>yfufP*HC0v?@?`e4wUhen3>m3Vzj;&2j|GZBY6hyZv4!@%HU)9Kp~ zW8X)i%KmI0I|~Yrk|*@hh^AE&&ffzkA0`xDKqE}U3 z5F|#olrQ50Cet~PcY~CyYDLPzU4nd0y*CFkGxwE}aA8iS(q;*40ctO}FpGVFA|oCX zhQHe5dbfU}HuqP6XR=j*--I#ldUyS4#Ph^F!~MM7m@`5H8)gi?6H7lA;AO!PB*|gR z^}OjGWPVRYk=3!P^7(ujmt-`sv;4ktR-$QIAQRGn5Abr8v2n;BS-3~ppQ+yPLKb2m z3HABD#k9aIPi|_H#e4#~gg&gPL%ClfG@C-0t2B8A|GHRY2fnl^8ratdfT1y*x>rX!tGw-=u37h9ilFX*{_; zZC7=SPFMke3ENa2jmbft99W3rj4>WYZj76_dGtfBP1&4nRULd1x6@GH2OzcM2bep! zswF2vzpSe0DE9{#MkmD`)-!sk%|7-557{Aa+$fo(heJ7Uk?)BV=GeVdp`RlG232O@ z4dhq4&Ur0E>_j@DPj_|6H&K%oQ>iH38Y@-G37WW|0d**jBqH9Byu0v%($aSyhG+E( zy>3*E3=X%c9n~vP+fh!_KX`wly1bBw2q6j!@i*0Q5NaIc+8OHHWI%oFR*r2h&Gq!p z&w>D`Ll|zS9GDWVr=@>waRhPf>*0k4b$x zn&@Xs5riBG4OGedl>9?TA;`}=+p3N7l+(6y^%BZx$fPl0Ov_y;nP#yt=iJZ%$+4X# zwuU^Yr0uO-A^jiV<%BP1%fHYdFwo^8?ZHg803sd>f&?lGvmPx95Y<6C>M}K|{LLXv zAu3Kp{=o0hI75q@#_MTJEwd3of8ZI^C~-EA%nE%X7X`K=4?95f!G6qBa#AZ56uqWl zzFSUpgEu}t%PAEV1CJvm01pllz|PY_%!Qsnr3N~n$Fo<6foY=2q>1M5d>XZFC!&Tl z%oyq7(k|~ZADfT4>H-4!yO2`pe!ypc6^~e6I?!Q~FGI%_4Rj>R1&qd)m)#2q;bpry z7t+9+%DxAx_?Q#5@UfS9-7qpLtE)Jfh+SssEda=%oz5Ek$>$HB|AK~D&fbEiVd%f* z><|K^xvVCjM8gQ;be92Kfpa8UIv9Cq__?#sK3)ei0fE`ku{jjo&eLZ)kfIQeuk#&IRqm|7N~QWEs5nwVYSEs z?m*)Weq?iaq}v-1K1ZLF0|lFEfDHNaErO-QlG!NPRRp53MIxTnbGekoF|zkLG}gx! zBqVMerD)@6EBJN$mPG}EbAPxghiphb?b#d$-m3ocvHt)Aut$N&3yyaLD2f4Bu7B%^73VLhPQcR{?!;+_JN()K51=#sVHgZbj|=@5E3p=P|GszB_>3F_iq z)}lZYhIH97_8UkXP$`;sQ7j@}`&`qa+5ZUrk28R#L<-E_Wo!jfkf>^t9YwA$#LW+p zbg!z^O&67hq93vDLek#Pcv7xZ+={By;b+2c9)8pCTZx~L@Qr__gak7IEeTev-_U-W zuJ1WN0iD0!aHAjv{K2by?8o4JE;e5#;$SRY4|=#p&5EqRHj#7dir(hMo5+)s(cv2kw?5xNM30G~l=Deqn`6NZB>@|WA;4-mj8@rmX)Yv7C+`U?8W6ij z4??-&iC^PEO!huj#q&7~h2mlcgMMcdo^PYE!#Q~OZZ5Cdy~bksC7=O9@b!9p5fLyI z%HxpDA?!JXw7ZY+4E=1k1=S%D$lir)VNV%Bb}dE=F*?*gR5u+{#?bMckt&*{#?$VxAUi$KNs_734a#y zr<*?)^5=a1oXelH`SU9NoW-9x{F%+4S^SyFpXvPR;7>b$+VEVap4Kwf_fyBUp1vJw z#SmsNO}4SeGeL%Y0tporvMp$0?;@rmkZcv&*nNnssO&)I#?v_p zSg-LFv@XA=P3USkg)n3rlyM5HsWe4|7bgrM+}?}uRwEqfg-l|Hp!BML<4q6R809m_ zkfoF1r4F48YN_r2HW^NV4F7wLMY%4G{F0l&@$c8DQDBG)LG=a^lcz3BDn=+JMKY=Ix9+Ija zdqrajPhQ!900{^^LoB^sT6^uZd|p^);~jQwqo!RbaWiIKj0rtwGm6r4mf8s2x%B$+ zMvh1Us#pC_6H}`owUS|T0b^A}ul2F3=!3=;)+NztgGF}14GN|E*f6@q%Qj>EIoMNC zF{LeP1|4~k<%Gt0LM^iASQeV)MaX0Wb)`JNdSmVeDDNAt@oRN9AA24sD!gnC*6o;N zv2qfTr>X5hQR)3UTx5?XDNF3x%Bxznx&*5rrN%0R)2dcfc0d-aplWpl?SZyA=%b}G zp?+xL`cp>zVNc}s&+#!Y#!E%Ge%QydFacMnLrB%-83t4%gP)*wF&}bwAg5Y?%Ex|0 z={thyfnGv9kYga8UVjp$?j;E{y?)p^pjO(#a<7Z?oEV{95zb7i^%>Bra=>j@BtInl zSi)9;^3eX#6g+mea^575^RkC2g)*c`(~42E=p>lOGLXP5iCzXH508^A$)1zS-NORI zd@K}2Lns}URpnk@s5bYRSVCXm-u$JAy)il8=Co!vrUz;zaVa-(CbRQ zU69@aRebCOBtZpLc%aDcmRI}O>&RK59#Ov1q)EzGBT~A0u>D+u(mSoaH_>8^JdR-( zP1rr#Qy>hub2iFX#3kHEBkF@`?H?ps(nET}7kI)&ISo<|9P3wSx|AlrIp&H z8?+_Xbt!71xYOniCq}{6e@2oDwL4sTQaPu|c2}iM9>*Ccn$|q#rf_9X!?_fBKdiDb zIvOnEoI&*CB*$`*T1P?vR0Fv(*q=ZigHjVv07eSNu-gGfwFhPqiT`-1Q8S_#v|vs# zIg_oskntTbAu{&u1f_iJKhL8Ga4o0b1K>)|yZ`6uH-UYL3LAC*HdWzu8b;9eW)SVt z)I^BrW}CS4oR%0(_0hb1=n9bVpN^w6v=ZaU&c{(PwV)&D2$T>3{xBV=?>@!3#};e- z4=xn_9(a&izmId6T5k_&I#<0tPz(;L_Ol3$h5vO9`t|=J2Z(o9nHK_3?e~`lO_XTrm9SNKPQf^y1UQx>F+RbFqQ+I861TRMFe{o1cCo93 zEuXLvyD0gA>H_qxI!^+>%T}0C@A5<3PRX0M4gjf~odZ&E)Gc}nXz^~P-X=&3sOT}M zAIKiPyo?F->FTPRq$V~joS!d`^&^3o9lM&UL~5^y4MH_7bU;210}O;R_75#x(J#S{ z0qTwH>{xGbd8zkDI{O%%V6ehc@H?uvaIdxz%PAl8pkfs$a!T7^kMw3Ri9H81B&U#% zUCMd0KP->RRoGhvwUdp&Yzlrjh2;GXB)@3MrsVJNLnErK7Izk6=jKRzuWihc8u7lj zKNnY@5X1>5u%Tmp9;Fap%s6))ArUO!$4wR!~ zdi-if`-cwSm>xA{uQoEWL2XwDov&K@E$5Uon$oX1Uw3vY`>c)c3no*eJbfm;q~r85 z$+pIifVx56k1bPYTSsJ(hE457!wWj3>tRR#c)^F#4P1_wNhE`L8CpH;!bM{EcPWZ6BPC= zQlh51xdZzwGK*MKW@;c~{xBYE-%_n9F0*`0iCXK@BhR3PBWTUwkr|y&HQ=9g6mvL= z$Nmww?~htb4jn@2Hdp|y{&Jtub>gPOCYT!@`5KKDcaBxxZvVhG=D66@hj4sHqRZOU zGY~A|&PhtU3A;y^4AO?8Ab(mT-ai&SiGKg<+nD$g_7a$S??tNejGo5x{Z#AA(et){ z==p=l^A^-6pgShMbV6YcONY2K6TzU;W?FDuen~wNSz_XdLa)ntGu}3kU8}PZFBnLu zaH-p1C8~rCe5ABHqOSm}<+$Zl)EY<~3nq)9J3(`B4H^;sZAsONYA_c)VK$Hk)pL5C z-!h6xL@}o5r7u#8#GP}Hr$$_m-6__HYkEw#O34`9pGH4IRngpi7d5xep||7L3yw?J zLNZ0)M>CQ6E_c6u?f? zQ(F@CKnga3zCi22=sKuV?u%^DTE1fjL(d|RdBJ{pPfLLXxiVX7G}uZO?3dn)KFx{N zvac_IX*5!-5e3yQdeV$qYE#aQ$f>L=)k%hSE?7Xb4`}ouDm}D8bSN} ziK>;W1LB@Sn^oy`S9Y)~Ml-P=P9*_W*`duF#tKr)*aCgnn6g{X0@6A}4~lCQmK8u% z#!S^sve62K);R!S#ub^vu)S4;<>5TpCQt10*eI(uk3TuepgEcWFd@_C@uv>X;JVZb z%qGx9#wwZ#b`vdQGb%w#9#d@AfK-G%Mox#Q&4Nw|{h|`uQwQW{MF(ZFmTP~laJISG zUnUE}KC2MS3GARsRwJm~{RVzV1m_8qLOM(jgt;;@W}{ciP&=^-&TW@2#m|OcRc^an z!dm7)EJOe8L6H+^w!IVMx65;inzNlA(JF22N*^l&7}H;y4Ktl8M15+f!bItMg(XTe zN~CdYA82dL6PI6t4tf?ih?3js5uJ<>QDQqiqIQIcz}xBJJOLG}7wa18jWAT&A(Pm2 zf@pwsUeLmdQt^30vIPaU3|-IX7iGjIrJz|@fQ(q>EVcNKu;&fsyLSkPkiVrCuL^sP zbQQ1K3@ik>T1{;}2Pz*8FFUk-GrlbCt|Rq1_Z+mV#VeInHk+^rF?yotyVyiCI_1=b zPQiMQqsrFSuJUQiPF6%G)8e4AR|Vzt+D#|6=-`nT*Ke%qc_UnW2h}7|^&ANouX47r z0bu03x6H1lHlR+lKFX`LN~!m>+m(HGi^uLdQv2yW2ke$oyX)whWW>oYuG(aDkS#0X2HfR}Q(_a2DL2M$uQqdB{ zrr+}qQEYmGf7qlnMYBrDiZ(_J?L>Zd*R^01Oy{JhHjyh~RWa?_v7InK3-x04hIyL-lYveZj zJ)9(VEK)5cDriZER%qmqXELoaMoIR#Q@~ZO5 zz8@kcekc~1XTI$Ye)B%8nJ=zH!o%&+MI#^oR4utXf52dukGzm4fQFF_F8f@F1`h&s0~ z#AoAf0(d>3e)M@V$JXREX96O><2<44mhhEUmz?(~!-u%7BV2ik-9MX;aa%BpG0?Yy zO~1wfIM`n~K)xPTqZRJ+lPTswTW|_{nPRkz$IyMPwmUEawjfcf4WwmGju5GAtlUNj z%dRuBC9_2YKocZ-Lm5u;vTNycJ89jmTk(LC$h~-J^8$FX&p#mRyPb%C67zqekF{cW zv&)btdW~9oS~aNm^aI&c6y^z?ZP+Fj zf7M3DJ|A}BVc66%4gsS&?+87I0@eZSGiz_^XaWujwGu@}L75yxWEchIa1b?p6f~QI zsJWw{#T-QK8wIW8psn$s)g1I_JgAw29*YM(&OwjIgP!G}C*nbGaL|r;&}k0(T|CG- zNNs#39+b&J&&GjTcOwwEir}NQFX5?Pic1v;a8O%3sELF2$Ag~Wpze6kZVoyW4|;=x zj>Ll)2ld2*hB)Yrc#sYAfxq=+JSdZcdgDQ}IOtS7sE~tLJZL!wosI_uIH*4!w4Q^A z0b|5z9YP?mncy){;CDRLa9pbDRsqAVipDE(dBzj5VZcMrToig1A!snWV?a_NC_PX5 zIEO-&v^gPIo`-tJjY|+lA(CaV90n~_qjtmk@;IAeA-4*`GW*1JNJ$1kD;Wfpk@WRf z#FFWz-8WE3%Oh7oRN-DqN^K}Ukk=taR4Hi^`Z zaOH3;Lnb^RQHqbvfK3XLK0KEriYEEk_o?YIlF@2|l(E~c7 z12TQAX8Z-6#mnwNs3M%Go7H`O=K!*BNz8t69n!%y0){eqW?sS_n8@lb@v#!@pfq+e z>O|K(4z$3@P8reUSGdy}bw7Ff=2M(=0F_`*V=7g9DlqfSz*=P*JeFt|h9`(&8mx<9 zIm|t7xzMNT7?t^oPz*uS)8s43b{tosU0CGB&|F+0Ec(baMf}Jy8FLI<&Q~dV%Ye-h zkL`Q^65HNUY-JJ8us6_+K~6)nms3`n80ZB+lZUkonqZ(6B+!68V(g?59omU&2$*pa zDGs4t>>XJ9DC#=0x9R-Y3Z6JbesR#eN{R3H+p!%%+uw}zS_&ekl0OT(2ZA&yKyTKD zCXptR!qF3`g1zGei|@w|K;8?_mMIZluub+I} zf6l*8;fW3Gs=jJCUjP@Bb7NB{w-ZjS?aZ7f+x=6t!N1NJs&lA`Xqy=`e5ds$*L$`7 zaI(?+6>&An6`PU9hZB{ohkQoYwwfoQ1^#3yVpr^|P+|;6JE!DpFaw z{biugg4tk}pS9&73RB~0KEP-o(ZY+bX<+QiWPa?WglDrRy!3iNGQ}BE%G&y?#GM<(%zk#48drdPn^mYWu1VUSX%E*X3k$skmaxz)gXhy!Lg2im} ze^7hp>FrgixOdynC#WOJ->0?z9gY3v<6tJ3ljc)nfxf2_>u%o8uIMb(mv5Bx6Gb~%o?h#k3%Os# zD4^z&dnonw?*7Swz|LY;(!I!D344Z>Cky|E)0(t>S8Dg6!$b2C_CxE4%*IFfIX9kp zvO`Y7_FXCvVNYNhdkut~KAU}om$5Re*30Vq7)uiMh}zx$RRY=B-cJl~n*|KzYWg-J zPB@Z-P|M1(Ipz~b&NpCHoX~)6%v{yu7(BAWBxi9yJD~p61=Loc?rSEzylw-9W3Abe zNa898b3rwF8Sb^(b5w8kRTMl=_5v?vFf~L)tGvijUNc!6#HQ;I%bp+$-vQNqZ(j2b zkUtX2L~5^|N!;2Vjx7Ag+}d1|mNCS+Q*8PaibdXYlt!{O!5aE5!dk{z;@E9OI_H7u z5vo%-{%xMpwK#@W7ZIKXF*vr1l>1&5RDK?RAr`Or7g{aEW%P>Ve zM~#RjpC6a}O;E&W;sGN=Sy?b4%v((r3Yv^;W!iH@BrSu1e0pQ36So0DP>66cmgyw$ zQof7Y&O4>w=#<5%yvli2jSyp7&ggW=j5rY}>kn#9e6C`$`bDMc#p-99o3ft`t`&9YP6Wpf^@aYd+C_3jt9?!%FW@HWm^ zyw7nSLMMmL0;8F4En|r^taZdSu69|5Jv@)|g>-2!b-6dp`-k;XXI@CPv`DX!%CYOj zcP(>>o1VfP(B~oQ{E`MmQHxpKMnh4xbD`B-m@?OpOkIWM`A8@9O{DheB6z4Tg|deD zc(QYrQ$v(}0H$+{Cz%*S=Xx#tGBFM@ZyM#PbcDAN!Dz!Ef@IDEk(bY6l&bsm0hY^| z(ABY~uq9=YyE!rqX|ac{XHxkXl*j0e>P$*4E@;_CDVir1s~l~Cj-~OOHeL{FcgOma zO2{3GgtCzqed~{e2=Z@wc09Px@*E}4dzqf=C+PUqeX$CPn`pm7<*n113o}CKOE45> z!lvI5t0t^)ofkuo;*-4xd1VOk$MG4??CS(rJqXSaLmz{@kg4Ls>jAqk?3E{pF@?x4 zIeprLsk!^qZ3L=vc^qrNPkH)*m>Sp1#8a|E;oN7g2|JYzI$Bc`cHxQd#;-<*9Nl`e z<0V-xPSfdR@s|Hvq8OuyHMp$yp$GAF3;Ex(3wh zJ5I4+0X~F@1zNxp-)wQH1h`Z_uyPOTZFar7#wG5$0h>NbmpRO%YFy9pc8?3DR@a2* zgBW@i-tyVh@;0=52Lx+vyK^8Cc?=G;K3`xNX2h~cgo?;*|9S4dqeEV`-RleVVc$`g zIPq=0AbkY1*m)ovaU)|;$Zd~oqZZ%hjf4m>cF?#?{+B!@O;veTON6rNVn|2kYTx+B z=wxGP@igj?5zomD1NM*p6NRgsYU&w-te@+Ihb!=={UB@KS|mYd>a`+8;yDuM+Fa;O zF>#m=tytw;?bP~;k>1Z{!Wdf-U8v(UM)W_*4Q*fSLI^sj2Ad>v|O|Ee(h4|T4_ssLq_#R{QS(&@}{>|*%* zogSz#57{DX9L{_)cy@Wtg3kmsNf{cEQq`qa%VDQ|HoJwYS!`36+V$`P3VUn=ZflJg zdL0?U9tKS$?7=ZQ7QSg%y~&Q+0EgH_l0RZ~N8DC*@gvrV^$|5Q?CHmn)UpL7EnzH#<9n6c##uoyON!S_XmPUaT%7 z9gO`3$go^emks54?UExv?eVGI?6*2RyxgugOODpGlxpG1Avm_39}z=U=zF*#6i26{ z^{9go%~T$;k4V=W7+!q=OrxdiLx=5<)tqE8x6&w`YXQ!wjonqNw$bx1YHU7)W-N+FF~RUG)~)>SfQuq(J>x3>Fug zHd9{G9Tj}Q6>F1R=4WO~Nfyf4el~!U;`knsa&Qo=4*~c}wT~pQckv1Lz6$Q&_Z+Pq zDyj?*zZSPOXVbz>a#G_`yO53T#f_Qd;ww)8ew*YNEVc^}RB}>RaVA|7qKev5tGLrt z5Ei59gFWy|>2<&%BDvVEeAi0CtQtEge;h}YloNMf1s6iNz;Y{$kDUUAu;E@7wlNe$ z7DEPch*c=e5A2~>o>_Vx8!fVs+S%r^ze09O>2kL+bam~SNWmw{(Ac#J(Az3IB8`PW z8ceHjbx&!V(T-hmxK~+U*^l&CeXk1aphf9km;{4k*p`n$99oyuCO(HC#RvM zASY*Ib3qQ^GgDH+74w@b<|^%OI5%#m+|ka6XEWC0-TiK%MycN;h)vg`|5Z;L^=uA( z+F-O$+N>~XSlY4f->sLlK7l+WPdNvQ!t#+k?s!q39d!HIS}^2j^~KOukW%H*WcxTD zu74vqvO@LrsLOg?=fub>6n!0RkJ1X)7m~k4*kO{&cG%=JctQwg+yat;`4@7dgF2{u zG_C!kM9W-#K_s74&0*}I_p}JjMOHeb59>vw$c_agCQ0z8Rs@0DtCpUEk^Bv$bE6H) zK5KYcZ&V4}Im4Ma^;9bl#E3}5x`>G1Bwq9owHv7Wa1j!YrK}(u{u|g^6(hT-NrP0+ zdAxtH1$d(-jmw)VrQuQ(tGxl0?V~Z%S!8X*a7_pfEQj-VvBvqf?Mw8=FnR+U_%wVL zqxmHO5i#(Yk0QfqGihs388XW@j?o<*qYPQ(WFD~n11-wI-#RU#ll9a{5T44n1Aq`F zjosnpj^e(2v;$1Yz(=qSvKkomI>4SQNT3tbV?)3WC%-HI2Vr#y%oqdhn_x(J8=}#$ z)Q}%GIFt6}2io0ID%->3E(OBq2j$Ka1MRSegsZFr?GCA4EwU-^kAxG$KviT{dOt&i z(rt!Ew=RILWX~Nz#oMx7{gRzM#lPLIetC?aojZXlU?9UZe*~&WMa*^l2ddAersW3#tQ^QjxzT`vHR2RlzN86im-;&S5OaHm z#m*Tln(#dLAufO|A{}SMabe0^m&4<1ALK1{%}jWlw|H#LrsxFh2zbLDJ5GDxx|N4x z1-UBi@R`ub5(T5eMYe5)Vb3lrgCYPe3F^gEXwS4`qRQ#mtC++df%(pm-lxw&KZSQD zX+<4;PvCu!*m-R5jH_quo9a37kLS^PlGy5dQi8f96Llte7%m;A70YpuUiH}Ra+Ip ziG4VDq8G^W5_*L2mJX{OsC_EcM(xPm2h>rEfec5kjw7v?{Q$xY_=sF+@Q`}c)xOrO z9x*Mm<-YA|uLU~~!^-8c`NTcY61HJNhEov|&(b`$ThShB$bpTC&I1MXg$3u;B&|J; zK8D$kNSk}!c}(pZl*1>k@DuR^LLN0l5Gh3nq0UlWj~cu7DRnd)W->7(ifqQ72h4vyw)-e4A6A-A ziTK4fB4%20oJ?{TxIFgSvs{-VM*?z%CIe>uaP&?;{slF!-)}7R za9UlulP;I}1d!?Z_&bPtZrs~?u&#xTs* zA~$*0lb1C1F62kCtA#;GQ7b75<1l)f%f&OOWhZ(R&93pYIk4_w4`G8%_1_zwpe_xB zmsnjH3rnFYjNLwjSEzWkoWwqbn+l02YqcxkQ{N?Jb8^=!L45krZhWMyktv{=5vk}XI$Sy=-2_ZC`@f}$`E7|NL7I_&N1|Dfvhr8cD_*%n15gf&;j*llh)4*Cc#Q3pIVNx64g$<`r+l)a0wQOLt!r} z&YmKTS4vf0Hya2r<_6p8Qaq_tIc)7ppw=S^PApR6DN3+O*YUSQx>7l8)02?=)06DT zmc}cGvvn|6a(PaEw4Vs?rvtPONUU@minhbpbJWu58mY6nhQv()pb=k~Nlh}XN&4c6 zzKH-do@)Sd-N{?+a&|ri4NQ>JkdA6(5;wgKE#1h4{iENa+XlO+K4ORt&<^4d4SoLy zzQq^*ZeEkBCMtb&QCT=Cve62VWzEC#-FPbeH(TM;1}} zGrr*>zT|AA?kwI_4yA84-bLAX+&4Q?H(NPJ;p1>{7T>bhh#RLN)Jvg#6e@=2^Zl<; z@H7SQ&yH-IUB4?*XYc!?fp{oVH-xj$NcQh>qk3_;DHMmBf}^-?Q6I1^8IIHqtJ?oB zUKlRo@KPuaF9k>OT9tE-_2c2w4SG2ub!gc}(902J;tTJ8leX{wGuo=wNalCkg4U~d zlbq4sXI4J2DCcaoSAOxNma~mwx2Rn&P{*OGYN5JWEZsOBf7KnxmJ^vp@p%6Z!7U5% z2;jFFzZpkc5}T7+icHPLrj{Zz@HQ8ll}?M&#jzh6#SU7Jrsb(jFpI-LNOkzlXsRuG z8u*!04ZBPf+dLWz93m<*jB?N7cN)J__?^V>4g3z_rxyP3RJia*r|@QYGrUjZeH!n6 zy!-J!i}zW)hwvW4dl>KGh!rvj*LU_?h75A38Z~-0ehcyQ;s;xpy{fun3$-}@TW`Gq zK^-rm2*?pj86+RC`B853zS}kPvDC6$vM4Ga;Z;t zqb^86iMMp)`!s&(2(%PgW*luUwkV%+>V3wk_vbj&R5v5dg}(aKtbE3Mp*b$)mbi3i z0a|GE*{2reGwNA!lMk~1g zq|sp)_nm(Kl^ML+L&pRG{^ZL08{0ollI}Lt$t@V$i8Rtl#`s7eRn5kjOu}y| z4NgBm8><1jzs8NneO^53?!aTiYD9b&u#NWvws9?B8#k_w>})_Ok-hZ1MQ+8sy;MEg z{;?HW*Tl##02GiFa4rwdWr7}D$b$>nnYVdjHxIhm z2YRrO2MgJ8Jy^nnC2T(h4M%h;YbEs8PdUHM$2OK;TNq}kb(Z^0PlXH#<# z7ej)*XSmN?OL*BtPy>1z2!h%q5r_^GqloiVvko7>(1H7^*@6!C1Q7ws5d6yYEd*^| z1LjlQ&R6&bsM=qFbz*VgB?~HPVu`>85MYwirzd0!k&NrTnRJEEOjM)-PSWdOR#28$ zHT{_D&!}YQ07}>aIKMIleb-NYmqS)y+16FWefpIe8(b8N!yD4W8&(HzT3!==csDTO zMHi`b6$OZd%5Uh(3IVO#`&Z!QZV*KQ^>vWh79+@wl)%pZixNPyCev%ty--GN+liR? z*6QwMMOVa;FatT*3D}@rWh7IxBvj!4A56~Y$vR=PEGT& zpP&>al>k~r-@u#P7s|&L0R#1?*hI!y)wfbTNaoqRJScSS_Q<9!z~t(#{Vevi#)>F2 zuD&}UHaRFqnJsh-+wu5RzDkho%6HHSZSKAS9VJuJuW8Y<_vd&?Vr>XAr z{Op9EPLihNPp4OU{-yLv%@^E1H%W=`b;HnOf3(BE9%u}JG3L|o0GntT5?J4Ppp`r< zA;!10tLt^_$ThSAHcO#wigulG`l9!f~J%2T_tMlmGK{$Us z)}$DN*7;LqvpN{@40*}PupD={Rib@rW5%>}mb0&bDTdM8~IoW~Y94@AvH1r0Z@l+IB#oiG~8)0Fy5 z$k<4csbT)5IP}yXO?9?8kL7tX$yLUad9*J&=4O;`?Mzx(jCvlB&$J|>f(3b{nX(Oq z&tHfGJeVf06!)M>cai`{^6^9%-rge3!r##(fGh}UmZHA<(N#K90Z99};c1y26bB-U zaw$3mHHKAglv8@K^2b7y&Yr+F0TDfs#^}$`)`j_!sThvLpTH}l!qQKblcSMh6J1hL zOcH%4oKFW&Ab>RKppK%P?q<3X_q`!g!;SeBk>w_Mg_z3O1Y`&&aarZ|m3!HPFdf0f z2Ju&-bXhG#VYyq!;bVV-SW{+FmB{)x3Rog>@{x*VDo;h9v{w?v-JSY2 zR6XqIhj8XD+l=(^9Fj5+7*7F|HciQI!yqup69U7)$6!J+{IM@5^xS9+4&gf`Th3ty zPr**f#M(3DdWy}EtpITYMdN9@_~OEDB4=UTzy$L15g|4`i1>1p{Byji8e)@(F94be zfU2Y#Rl(sl6x}#N^}*Ry#0F+t;M<>$sVUHn$})B(nz)~?ONG)lhZ4}Z4t#~U@|srj z3L4b+Vo>j)o5X;5N?;Wb_;>>Lw4Rx=QaL*Ca{%3_)xx@YI^cZ(f|kHm0YfeZ7xw?LCrLJfa{9;a`VgGK#g46&xPbR0M02QZ-E?eB zY)GXIiHT||9c+q@(ci5UP}{Mq_9P5wh8ZaZh`@7(sVZH$`z(%l4e9LQ^Y2~qk^99x zm>o1%my{anl#&OJw9;Ki(He3R(=zTL0qhxadd|Yqr)xNHInXjz0gjJ|=QI)pC{bxY z#IdvVv=ckE-LBW=r016cchnI&jLRt6Q^ytyLVK@cOm~V^V+ev*lVqPdSOafj2iCSVd5Q9n@$N6j z$jcq{9vvz2`Msz+Lmo5@a_I&yy9)+*?uIX2NkbI2NX$&JRNz+Jwbu4JO>HMo+Hxwb zBbsb{;!e4$YQwsw&l0bbj7n#j=mDcM>fhJ2FYddqBV9bN69=Kvmuy32z06?qABAvbYOjr|@vAjzDkqDkx>R2g2xZ}JyfydsJ_k2X^Rwhyq_ffL=D zPv(EPxyg1`NsWN7J-_Bf#?d(&OU5<;G?Hj(d2}{<#Z*MssKBIaoc-`pU2w2it}-g( z#`U{;MWjp6%(_>7ES;BoOI*1tP%z5_Aa=mj%Wgynhee_vu;~}UFVo@RmxEwdsu`cc zpbhsrk1Zb@An!DhebRfOQPG9sA7ux04jcBaz<7(n7w8$>{O2Iajq9EO&v1>b8Jjy8 zu};Im0$j-D;KB;`v0uD*aG?}CN_ix{lrofpL&l(p^8oc{h7W3@K^5LZ-I(sLRPw2N z_?1(skoD9*N3ctTQS(ytS^XnX?+vvbM2T$^=>p7o45LUbS!n4NcNL_IyDAcuwoFSq zsy~IUXIX7`jnpQqB{s`p*SXr1MM~Q&*YR3h2nJQ)0xFIY_<|#W`QUinGip0{Q}EKQ zwxjM)LvV*0^?eH8&9FA2L;*}90>2ed_Zzw$vJ{#Z%t?C8ZJ?=sJ>de?ozu>y4IY92 zxv{W{_n^|Z3Ss9~q1QIfhmp4pj?PePaUj)5jv*N5a;0a`DWcQk`O}}7sTKl>0n9M3=%YYOSsFvZtV!sQr;*YlW+SO|kCC(7(nE^Lynm z4Befzsoru{#2W(!N{kODQr(H99BU!tRQ{L22R9z26ZncIjWkw8D2VJOd zlkweK)SFs)4l^z8LZdr!N*AJXwe02cUAYFsoz37P-bQUEs+p@L-M$;1PW3qT8104FnX0T^!3Hy zLIP(fL&G>nkZ9`MPxHmCn4?ys#c3Nuh~>^i#*6>0vgkJIvYdpf>O&* zMnyvGEBI%6wK}Vou@Lojp4dydp$c-pEVZM#DS>XCbGy1~&$fgYl{cZW3a-ffdhLMYWqA4Hz-pg4Z^hYBKyX^ka zIKQ@&+F8z8W|44qBMaO%DCLDT{F32Vx;uHg9Q9RkS5qk!1DBn&hQ(=<94$?$!@wPN zz_BcYAlU=~w&tcZB2_f0`7!=c;Cj8bJz5d`Rpe&`S6^KY_kmC^a9NI8@O27bN?W!v zG-+)L#~dlhhNkf{!6&Uvi&)bdN+xAT3VNH(QFHTTm1os)5$YGnXSK@t+6uOCFUAa% zRtTO)X&~JS?-hRHiM7Bn0WP_zd`EWaYAGvk?Y(fpSQ~)MvO%Uz?}ki+@To$M4p_DN z_S3|PGfis)kWj99e9v|+lm^3=mtF;^!NZ>J>T;(*H2A``|MtYNrgg8D?` zo3zm%)BOyo?8{e>fsQNfrdmFU6&|!D_7PmE_-$isAx)`k0wh3=fu0p%kIhwtOFaUh zUVv6-tb~dr6+vuT2H^9}B>iyyYIQ(8|HYGNv$LFX7a$Iz8W+64Q&0>g5%rO(B%mB5 zi|AN61K);GG^LEyQoWEMygZ=S9v21n4!Bpt!TmE7FpxmxGl`)O5I{5bcTn9xq?@d* zRt#A6CR?kG-U_i;YbJdjCU>%P3H6Q|weVJZP1ss$2e=^0cueCt8gKQfErpXZn;V~j zG(-$&*Em80r5-Fcl{lvP;oU_AILZ7sPGsc()!inK=b?PP7rg8_-es3iHyD+_i1c${ zjzgV)K&d*SGZc8+Pi;J}XD(;!2+W3Is?^m}NOICnmtv(%Voo`o9Y451TBuCydMK9q zG1)ZS(~SUBy1u7SUno=R>uML8p7&@k>LWHWP^>^{n+;HYKfY@}YCO;2tu8ioBGh=E zJlDmh7w|3a>VP&{0&zidVh14bT=wE%HAxTxZ32i3vPe-Td>I}|f*6A{6|Hi^dx-Ei zl^p+A6oQNljJCEYd!)PK6Fl&M9VBG+G>l@|^@_Uh@$@tKTP<-RW^9~Y{1e!vVjC+-%CiGmro*E8slUCg|vM4l*}LheR1VJ zhUY$Nc8}-OZ1@sJ8v1FBcut{MwOg8pzaj#&O)f49BN;cb@hj@|HRD?z=|M7E;e<(x z#GM5u*O9uv8JB7w#;$xZ+$+ghPP5kTE=R+=ipbkZVE3Pkt1{R&vcw)tjBGgtRMj=A zIdU7$QkWt)o0rOGeC%e_8J$%P$-xDOs-jE6zY+8crVOD+|*!>4un@ zW}5Q=Zh3N)NVXDrd|B{p)K(V!GHNLc4rm$kQKAZWAmml-iSR_i8ASn-&p6)FP68>L z`_bxa8Q68`3a$+HTRnyy$6HSvU4*N+E;Fv;n)=PFxac?$j!&sp_{6e+k$vlEc6N@; z>4rf7#bEO)=9UM$xpBnL(he#$qt1refR2U3$%TFYBzlS5?BLkZuQrhRMBHU9nJF}Y znd3c83?+bkW^C+v2v@pd1$UheQD0w1>sUH=+Joy`Kz=$Jo5@}#8(Fr%`ta6U+V?W> z(-GNU;vG983)6Y*i0r9v9+Azo(h=F!e)a_BNqv(94k}jO`vZlUAj}1)aQyW*;Ns3S z>f6x_wtBQ+Hb<|E`YzS6@??ywV5t_=ZZVuVJcDmtk%;=ns{T6eFzfq)gojax7Ud)6s`q zIXzGlhLF)$DCEFIeH?z9`nX@&O_ET+e8oMOaD8hchBJ1F`kDYHPa{CQ>>Z*rX}a)K z>Q^>OrVW?7s-^Wa$-j*580DUiYb9SW8SYA2#wi*H_5INP#~@klH4Pg~f;3CrC`ISQ zayT{0gBsv3uOZiJBNwuyvDZLTP_9d$@qIDFbyfGx1)qV=@s3(UL~6rPt8BZlgf^8% zaH{yH*-#$!poZJ6>2Iw@u`xxLgD1$%*o8Sb96V z*#plJ^#YmNYP+`Dp{-75H-erJtCc(rnh`ehElBV(T|;?=_CS{QK&JMM;)kA0k+fM2(W$e z-_c4+*Z5Tfn!P^Gcj|A`pg5@Kl&`F{a|Yj{{d#-u(dHy_cIh+812}-)Yr_#Wyy&jS zgK*QKeg4ERo^%H4`2M%&;ZxbqXhokba0hqrt+o-CqbY4}Ocf+&NPzCZ+t8_GAN$2nOc3fv z>;KK6`TKdsWYmGp)^X`3#hCa@q1weAntu@r0A!yPY0zKVt;VtC{{XkUkHKN)Eo&Zd@UY zE35g%2;tJRkj-j(gl5&2!pYVh*ti%0Z#RNnw2gHWSx`qzuDm)y`pzJl_Kc6?y#q@2 zt9a+t+vQ|-BN9!YA3X*{Ip($_L(QJ?*vu-CCX~oy)J{5BFP%_68lgRPPk(fk0qQ>b zDQ-kuV+mTT;0Evl+Tnro0Jb&QrMytAcm?($$k9coI)py@)06s5B{VVq9RyTM&(aiR z=dB1AP6DO+!?#bm3UH%o_=5U1fCl2uyb!Ro+&(!0$JnLy5bNuj9avs_O~r65BRVW; zs2?wcm!0Y?%uGm;zHLBT3NvReOp$IyhT>-PqPVmscqK18RgL5`Q*ecVjs(dsL-H(| zHiDM84AsGu3M6k{oOv15|H#wi6@XK2719H$-I!!2SsSFgBA#BaHg}SK(jST_CWytT znOQD^koBBC`l%PWV1kX!&Dz{dEh9&t>hQG{UtYF{tU|bX9u(=@ZAS0oOragF_ot)t zk=vNnBc%}dWrT|3n8k63O?zOh#kFzRf^Gf_K3#{!N1i6ova^fCKQ%S^R4wTWRr zP*dH+rtjkm-Ya&P?;7$_WUJj8HRqgfE}Uvb6<|4oj%%Nf1qI!XNC&fnsaWZ?BrTjQ zHhqYGS<2ULQc^s0e)Jq)SnilI#l0CM#@ZyGy_Bzh~DQG?SqI`i9bO$L52qn;QyOs7^frxity z0&0AA#*i0IvhHxpHoF;RSfdFoNkB|A8p$03DY0Np0D0(y1XfwX655YlmsrHtELeD8 z7rJ5hky{F&U0kA8_Cx+|9OwF?Hf;%3ABjec)CUa~)9}ed_P~2x52mgj=qtH{M;V|vC5ux~`k800$-os}Y$`=vfYf=wH3A0*i)JupcyZ=zB1t8K zYdzh6_%J5e3LG<)%<6fytM5KA8{H%+J*dk4YS+&}yM5~6qeGGOV%Jw|mIYJ0JdVkr zUbVQ(R0AO|Icu;-H>M^`xB6mv7QF=bRO3Y21bm~%YVx4;)1?MD)=eo~2Wva=7llU0 zNyFkytJ&xxN_!V9K{^^2VZ<{|U$UaE|XKj;FsG1U@jTr4EU^lBix{ z(`AUj^$Jn~N{(KRm7vl#0@k0!@%qh#I1M$#<~b7d{S9rZ38zsby3BoWe4*J~@lOUqT5KSQAsRk37{sRS_yX>W2E=VBCzx83=NXc1Ivt`;_)`%K3Z`)G zh>eqT2+cIGRFG)nBcxZ{G=)aUy)=HtastO8#owX8xWSEHHg@URxN$=zOM8JpZ(($o zK6Z@IQ?WW+JbaRC)Fh*h`Vi{t0!!&l4klE&Ix$BchxtjL9NAWUhG+MEh!wRm^nEdO z93RdTeQ(mMEjpP=6hEJBzmOvlRwm5H(5sAffqs0&w}+HfxJ~>8j0rVATtKUWWaVbN zE&M=cbSyrsk%Dx9y9zSFt%6!$Q@(@0|6wvV+)mqRD;ZNe7R*pUuH_|8Kti?^)*X}> zmCDsjA2xbc2J_2VWFk;t|KTj(47}O(uH;d26SYoS%INuEN?I z=Sy_o4Qv$NhpAe+EH9s5)IXJZF~y?7OW01dPoLmXCN8n2RziIUZ6=PjvdEv|rpDbr zkop}Z8&_Eo2CRb+xtby=NQ;;@MCw(-7V=;4mt;DyIq?Ejg!})k^TQ2Mx=owAi#`7* zG!QG^3VA{}YZonIFBkeAAsQ9#vWBg@^uI*=Iafu#wdOwjX&l29Ve5;;8$7DT& zYDE8=!t{4Qf@GIo4qX)YNSnPZA9Xg|^58bbz7>n`v7ce4<@n^g)Wf;2T1wBt+78mw ziAgMVaMOd9k*&|pqEb4fu|o8(E{c8Z56@5mwE9meXWJ1#9bnTO>Z^qwR?dC|2r5(o zD2#PgfW^FDHty4X9B5gLON2V1ZY;@5lag^kK!E}~*mQ?C|pL)j6bIiu3BlZX|bT1=4 zm3#K!TttgC32sE$u#aWMjwHRM@|?M6+DFhSI_o3NlFf}ZfJ4>wU6_>-~uv#|1&;Il}(Tg&q@ z<=fSV8}zt|2#xo$zCVDEc2auwD2NFYcF}sIHDX`A5L*YAQFw0Ftz$bc0H4MuvOLV& zgj9KPqF?{Q?5pH<zHv7nitj3Kx2`^E}*DRg*2!F&Uh0r^h zh3A04QZ|C76Yy7)k;YDGFh76vd*Ug?by$@yM+wl$f5r(|g2pI|?k1;E@~6aKU^uM7 zKb?2`E$c9q;+PQvCbgvj(Q)Bh*2e`}IEh9RquXymw?7!`_B`IlgeOUPkazoodbjJK zcHZqR)cVGDqu=K&A-VqlvG*>3QB~*O_fBR4fdnUN#Hc8vfKnkE30fei6Ow^|1Og#k z!~lUzNJ4HVGh8fzV8CV=V`-}%+R_#kTWo1dPpwc(H314iDTYfm0=4l{yW`Lrl|ryc zzTdOf?A*Xp-=6pVPQUN%z{-E!_PRdn{;X&1R%bAyWbwJ5tyOjS+ndd(Kx^m-W=fg& zrs`EiT&XfYJc4~$QRpCMqm&8TRKMplVf$Ucq+acuwcjaR!?oj!GRzx^P!6EGoE^)y zLU5Oyu0)&vv5ik;p$7*pvM|}OQ2R?GX9g0I&LWkL(MZV_g#53YX+AHj`FrR&InYte z-P|)C&ww|F2ME-8uC?jNZWMb1aoAAwM4CVr8@4_J^!*b0+`plWZkRF zN5}eD?$tfs>3;4vjOyu3>H^>2LO}3*Tv_XDohg^=)-ZMn<+TRmk;c$*xsJ^)*Z>bR z0;+p;JdEJ(2##m&FLBAv8fU9d4eva~pilzo12S1fu!y9IBK(9)^RcY$5Ej4_G^=i! znPJ{XER=NmNh+?=$tzvg%$jE2r7hbSk}tGZ{+Vu69xUZRW##FBd$4RYG*L8B%)9~! z-mv@KgDGis{`4d{Ogc-K89uw^B;y$G8OX7MtK~H@TnJlbFSG^Ut4%j$!%LrccsG-j zVbzspc=@{=XN=1JtM>%etPeE~ukSx5rrbW}@Y0_!q>PI5nZcJxchavCZM})if z{)F-#Ip(nAk%y=Y{mFYRUqKJwE^9V6_v3H*UGv3!1g~59c-w*6 zSHiA$8`J9R)(ybRB`S zQf{8fagJ!W3cE(n`>2wIqFK1`zKWSU zuB#P=gnmV}iM$@koAjm|x6-1m2q4o2;FjaE)&uoW@x(tVEdn zT1N_HgWNH}@W5_@waIdk*~Pq$YpmRr(ec6@BL@tyG&~{H724-z&s7dzy;mXtfSwmA zKr!5bzBaKg&)?e&(97vN(;smx5!feuQg8~2q-0qnO!S@RlVig^cI@Ev%HCfNu_O%> zeSZ~xZeOE>F+sw(Dfl9VCnGJDcco^wX5&EaW?v&w^)j6uQ9YufA|`b`Th?=ayMvQ4 z74#$tT5f6oQ9cU3sKP#=DlRfF5J{WKllmIwjy&9^Yb=lzOZPXEPx|4~Z*+RJ?`CHH ziKP4nN|*FrjT_7>Y}g0iSFgkAG=-UuO7QB+_{VG>stHYI;LTYGG5(b2NQS-T*ugHp zJ+XGFO52dBzP|>Y!#?7S=Y~ALt#+=m?KM>{mIsLf?iQ@q@m{)P-B+Xr2!thPbmEc1 zj6DC0&rTc5~-(q`sw=q(I4llf9TpMJAmE>*Y9a;z()Z$oBTcOQJ+D+{CD!akm?3$F_(5`mRBw(V9g1*Nc&r|J2cUOHAGggx!9pXek)V ziR;sDld8X+u!prD=I^z&=_jWZ%7Gn+85!+aCU(8fxOtT$ifapNUNa1*5lnbWaz?m= z2@em~BZpZyo3DCGa)*7iwvU)84ty6%o%oHWr)s7T#YqP24sMX!zN>p3w!vr1Oyq7B zmfg3(n|4s2ab^U>7uxE5n%+yc!K*>N4PNn;|8fhQ!y5vrCJXoTqPnnEs=H8Kcegns zpCNr?pe=Zr`7M0wxc=+i?7zS%%Wn2vI)#fmzA_uww~^iK=UH?~hpGCPS>{afFISW@ zo>IrU?P0z?XR2fdO*!-ai*LXgS8ABIKa!+|;k7Ufxkoq2H*=Eqc?Zlg`->i0h*P9! z?e#JD2L*j5B2KF};%};kfZoV-G;nAl%p%@Mmkc^E{>XE>X-WHP z%feQM(+{K%=H?B9j!b4{uE`9E87POnLqz}x<9sZKzP0w>(ytmBFl(x9Qf78-e8h;< z@*obMJCSPZF_HQV2GyREyEPmEUp%>MlZjLtw@yxYzpdtXvE3$8A@)CCn@XgfOGTSW zOa?`Kf1K>%(kmKg-7zw)^m6#(lv&@eu|tT~*M0#CJYY<&CuJo&+*rmQaXOmU2)BGufU5BAoX^9m3qP z>OS7mW8JollDw{?B(uAg5csN5{x12!KJ+b2^383yQ9GBOHn{LiN#T=_LaWjujT<@U*O?=8z8@3F7&<+WF?hPkHV^%4zwmPi zFKh}cIfL_Et@#vEe-UX;B=-uK!3{v$E)92T_5c2MPR^cUW8no93y|6@<*(aUGhid z1tc$!KV`N4DpGi#uaRE%%e=f9w0j*4QXdD_xa9LzvJ)@!0Cfk&=y?q z{kU73k-gVYyVFZ9$J!4ldnDT>MU0faO;(&Ye_NU>cM2j#g=}KAO>9!c*pN-QwuwuM zaD{AIzoot!kQ9*`vUy9}IFlmMLN*7r&ETYn$swB;wauuchy@{=t=eX6QbcaZ=1Fbi zN{Yx2*{szzsYww@w7P48OZ6+s0ctbW*#72+WI`3X~zLO%qJHuG}3r(VJRoauH{gcu*i}twE%B0tP zO=(Th?p4}G(f&$lPl@)YO4};hXO#A|Xg4Ztn`mp5_Pl5xR$AdYHkT=_+zvL2(5fU0 zW3f3;IYf&#Q)xw9gPEqZv7)_OY2!pYLTLwx_7XWpWNc(E`w=P3$ zH}hSDyTv3OVvl<}J8q%g`KlkPJ?>5}PRBHaYraKj3<&hjBZmE*r>Y0a4nc-`ISgH( z)$xK2qp<(8m6p<;9>X3omo^a)dSqDZMcuKI86kZ#EZoawwLg`W=1a1nKUy6ecyHxo z;L2~(si>Q!`Ervh8iz=3*-xfs9?VW@b_#Q3t%~Y|U{Tu_O5x_rKs2c}q95zgaLkTWmyDABSg|0GZdR{=2R2r25Xj+c5``(2Tp;fkSR)++i@4eF zC^L`0p{nw<5m+N#gyV(iI4Y9*T2S^`puXh@cH%0P+ggp}zQCTAm#{-B# z91lZ6$qWu~ypYv~)j4^Fys>*0cF*rP7P&i>bu*{@Y-83Yzbw~~Y}NHnxw@`7#-Cu? zEF9x%E~1K?`MUWba~4XwHYMzC=|PsU)o6C?7|#xtTvRA7){5N)=129YMhyJaF)1d9wa?zC!>6hRC{&`~|?v~q{leSVNTx?BEK<}_Ps z$KRPU{f?^h4P|mFT)^y%BFnW2T_o5V*mE`)`v#Z^LEGWr1oRJJBW$hsIoxvi#NiJP zH$@%roj&_XpcP-S_+WB=_I=yo^2?I&w=A;Uk%Zr+eWnb<;kp@vV-ruHi$oWF_W0SR z>f=0_5jYxnQ{tJoJ4R$#_B@xWO+Tji#3AY!b`|xhl)0KYUak8W4B4~z%@n#|jgw)1 zI~q!C;w(UKXtMG){gLfH1pea~#R0{fIcN63VI=}Bu4GLN`;0vpeP&OX@9dd9;a*#z zZGM$7K0(|k6>%f!mfP%dpX^i(Rcx(Jhj!nhU_-M>63EVo`5uRqweF_G6EHGxlGKs3 zcGlSH>48=*>ZrF<8mjlgQh92tq~{zDCRU#d_c=&UUtUUT;~pKUnOnsZvXYu+D>Zv` zYUXvOrYlpqJSA2whYbg%lB8;*8f5k1>x0>T_HD{I^X%K9YNpC;y29VK9i6L--*nK- z)Gkwm`OWJM1M?c!Or8g67Yy~=`5E~@g%8h;B8io*tUdz9{RbZNiC%SPp8 z6My^d5igt3tx;aKplcx%1W}?phMm5Wt*Sn?vsh_=3@_Zu?u#f3u3|T;n;ibiI=_3@ zns?e)Q_so0)_l-@uas(QAUPaCpX@fl5be)uMjr8+Ps6y9;~NtAB(P`n1M83;?Lsca z%F`{sVjG3qOO>tMUMdWq+wud#Kh_Y&B?=%XyOuK;D^}2J=)CUo$FGcXw^?=2lgLrKHDhf zpndcMPqg~_j!Sxd<=bl zQ#go8dTZq$1Ma;H74^;Gi6;ufhpFJ)dl9|AG79liu;dYuUHk=?|JIU%BxfW#o8^e9P9`79Q`xpo!xx)4LDlo40{!_ z7wZ}8S_7|2p;KIg_EYly8I)xDNg>E)=+%Y4qnLAqb(_oAmji77G9>8+c?!nq3-^DS zJwmw7)Ic`q;VuK&|5%UPKx+Tp8dR!@~fA_e)fB7EwAocXG)#KKYBCE%h z)cx!9xW`D1^th5jtH%|)ERRcX1n$898uU!=$V`O1zScg?9Py6Y~}TsI5l zDp*VW?v06c2)uW}WAeC6TK(A@kZIrS&wk#Yz1g3=#h<;&pS^9gdoV2b3)n9U?Wg>f z-5HLjB3awOO%&h-lpCjX4N_Os_3eg+^Tb7j<0?Ri^5(l6khwJ!l)K6sKRtSlA)IT-BRjU zI~_|xbF5t?u36h#K42xTlY;fiTLbRr13qFNz4~gF^%Z@pS`u6}jtRlA@stZbnEU&- z1wQfPt$QIj)=pGG4|A-QG>~k^+9haO-2BlI_}yCwp7r?E1jNN;_qO$Y(chFC2>7()} zVUYxC-0{_Lz9_V}+>SH1aQyD=x_)~X_G!5eyHHi$L{-M9syu>aVPs2xf!>^|Qy?$1hF8Iv6SbBSXda$t0=X^o{<@1L>RPfcy;(2&&uS zmR_^oeRgcb%7_bfHSV*4^leiMgL{# zwTG}?(h$82ckWSv~IFT9S@t~}A>TKR-M0=`=Piu@^1ZnjqRE3yOGYuPYsg2{#M+}3)= zeJsoymcrsBu)Dr_AeD8vczYlB_JDhP{o4Z%e|Y$VsB`VmY}QF)A$Z@RLYTgZV6OLy zJgTyNLSEEfd107)Tv>084@M(z-tT@ZXs68`XE_q=jplVJuB>f}EU5hQfe6CNZs5ik z1J7Q^<8_G9pl^;as;G1K!QdFeem%;!nSfZ-H~HQB{OPac`F)3iPAGt{F8YMf2#F{H zzUOHS>#n5fvyyb|NXK$t!1qeM8510Vq?}g+dl>wV*3J(L4pPaHz2&OH@L-JPgpf_V z6xuN#og1jEigItr^H1O$InOT_X8p^0buj&n_UUo=_^(~Y@LewB5!4P;+;3dQcTmrx zu71g7oCD{8Q&59Y>_y3@S~rG?&V%RyYV((k$m%wacYbx7+k1a?Tb}P4#hii+57;%- zvGqF~A5`y+MQ~bMj`xP@wq&pNqJy=3RWfh~6S^?ASPnOk@!-{$aA>qkxN)H^=;7>= z6(-CkwSk8H?zVP%8J^2ZJi)%HIfrRNpfYw{`wF?&sbp=il_-3`ea!2>Mo-*77*jhT zs^*5IhGns4l-S%fpBoVm)-t%gMZ+OP|1ac z!OiyNHRHp$R#xcAFwa~rTeP%i9@<29;e`WLZ#P%fm(@h>bJ-Bq)-sil5J>p05Jl7; zq&^d%NQg%Kb@w38o*>Y`B>QzIs^4v1^ETIzR#)%2C9y7w{exEDE#i5+JV6o|XAkrp zLVs;UH3*-Nykr(bIbNU~gT42S55Ge^9U9M#e(rZg>(f)BAUVNRY6 zPPn@2w$V$&Z9I$%Z+N7-xg6`*)<6Zs5>9=K9m#rA2@Y|GaA>c1jz7z1eNMQqFi7TA zw?!_!t1zK448Q`863}*?6|bxhg@(@;`AU^97g+kSM3>76Bq1rp}qzYPZwMW zz+Qz+goN1{h=2W!Y%53G&a$r{VxnNTlT!crND^t)Vp&Zul@N0}@v=Q}oO*g&NM%sd zu=KX;nwC3O+Yw08XW#g+Vf50$erV#+oPG1krn4vZ^-2g_NNQS{{Gv(8>AX-|o(YH7XK)6)JZ)Le-uU1uOY4nE5xj_=oH zB-T}rj;CyGdos*-BBUwCz`f!|%KInPqvCzN_SxcVE5g6i%}agzZ0_j%;fN}xQpbKnRVq`MrL|MSM_0yrZTot;16gr_anV(y z61?$H>!cOE&K{SFD$Jdmbd*i0-QPOIC?&|nc-1TV34%`Q7<3g^v+uj4^o%g}@pYd%Tt3;WN7@%;Q(A%$;23UWQNGGfn zY@f!KgC^*w3x$j)2+~C_aEtX}--Z)s8 zNs9-dDp0-n&zG;i;o{!G408_gG+>XB`_a#)f(w(@4g z_w`+GOF`P_xtbJi`9qP7a+ShIOEIezLB<7{Xmr?17lzYBxa@_C!^-~kMIG7K2iwdl z7)K>+*x>hn|tT)Cqczcf%OW)tthmV7eZe*~}SdTYq ztXu5it3$S4;NwYEV-mcdhQ5kiA3i3`7dB~quW{pR#K)O=(lN}ZYvSoq;V;nVt6fht z>H4HjRl0ba1GZ(&BI~_I&cn?ThEW+T-EICb8EKR4!OP_-R`XrUA<`d42h=5Gznqk6~ zQER`4%a^sJfMS@(W7aeCSqX~N=rAMk46m)ij4JEXI$t=_=;deDS6f}`0J_ka#3MVW zxFArjF`f5c>Cd$LGb2Z5MLQl5CL(r>vSLJD5hpoWr#S#+`dyEZY1W?DS!6fJi z3Bqq@nvRSk3|MA+^J;XPB+DJ0h7AwWV&DlCk=!6}&8qU`ZeV7l@3uguJrEW6m_mCe zhE+^dWBp%aWUlshOhjutlkq4@9bTmqQtlOzfy~IWyNxO)&?5s$feJg4^$tmC>jLIG z+mWcl5wdKvv5#_I`}Mx*Pm;`KM$Vs?=TGU|+40I^0s1vdAr)bC5e}cLgxLXk3`|&N z{XrT%mn>O6`Gv)Yl5*^bPOg625{w*bclB0R9%6rC7bWtkMp&WX2}-MOwp-jUbZv_J z<>0}8zZco@_TvA&??t8^h0*_W--{I2OTHKRz!5$hTsvFb!IKy_6!B*xY8R^G4aooM zy+{ci-nkCHp|=Nnycem`@VW0rhQhd)poXIcqXwX2QPC(n>OAS;jluVLWAMNEUZg}8 zXqQYcKoy~?#3uFs^m~!-9g}#~dy$W$rOYn%UZhD{s0;DDp$+{2G^r@-jmJyA7b(7l zfAJr`7pcPS;_n~77a0nBBT;NdZAEQI?L^g~8c-)t)Xo2f_aY^-K>KO_o<~Lh-eovZ z9d+~X_ags~ycgNQj2PmNt-gD!JTdHe_%j)*DkGOIgJ(0Ey;I@X)Pl=188ydl>a(n_>U14i@c@_vcRdzIq_2P{sh1mks1 z(3ZX+N!m?#ydb=2LaVEGvZK{8uHN?-0@x{xBZKzK%^uQYgwiWl+1ii3L*#9PKJ~?h zTwO8Mb%gN-65G6|9J}7I?GFBi%(JvP(EjmHdAS||pdW^K$F#*!!SQT<=9s(&Xc>f`#iqoO$Di)Oz@ zrc_bu&Mdzf`At{a&IDdrvtK4&GOhin)_#TGwgOS0(M*5kc(%eG)t1LBuycQ?`c$`7 zqrAZv!{O~omLKedx*Ic0hng+PK@!*EF0VcnT??z=`DdTad)9nTrry4j{uJh`?sxn) z$II?!?uXSPRD)IPO!NB`pJsCIFUj9C-(L}(_`7*?P0u{)lx322Tk7}AG=KT5nOTYL ziGQKXf~&XkstIm5bz{ypojqRNWFW*h)~|*A4!|*X0&a1gZUbd)-o8T#pBM@HY9UOBwc=%1l3VZ@qU|5Io#a=WnaUHC{u_0FA7|jYC z2Ltc`#R{yLg40*@zK9!ms?V~^o;M%X)Pq&$TooLGIxBiPe$sgKgFS)WiASp59(dHG zBodDZJ2u2kML{<0XWIwWOOtr6`F!hn?_g%%{p4Pv`E%}5&*7rE>0E9#kw=zF6A50+ z3Y^yC?PJ#B2U&p;=33<$5!7nwx#m<2q}sVl;Ml>=-T|td2VqvTwt7iu*Ps39px5`i z8>L@!?C`}T4{F`-J|?F9?xuqW|9-DOtBT{TS#tNe*S?hS_@JG?P8NNf9{I+w<-Kk{ zv5c;abgX*`O=4ZmeKy2csKY-wt9wE=%=_7$H7Vf%HiA;@2}aAwNOeSqNIAZs0A2*D z^88WE;6(~09oA*fVde7m&L1gnlugL1uB64*l>x1mlhQsTgZh z?1lX^%&S+a6@)B&enUk2Qfv{yf%%g=J)EiR@UTgHVDGVI0$Rt8*8{KBx5UwZo5=j~ zSHAzUIu8AC0Y^n2?00XKrG2eEZNGcNXD`bkXL`Zzm~?~N7u)36F(UdeyH42<0UyH! zaoV=u{f;_bY<9d{f40fb*{6G#oZreh>k7x&rkCYpwfe&aA?rBV^YS$ZvN+YRtFPR} zW8*XYm5-}4)l)2{JI+*J^QUj@I8)ur(Jy9}zU}Gzhr<9zyQPX$0w+s=y z(YJ+jZrgr;<>o1l9dr@f^O88o;@oU4Ck*~<1OUVB`MjfgHj({GzQ`M$zL^thNA-AY z@{%eyIKDbo>$b`Hs@dWe6FnINjN7E^Sk3poE9u^Nb1-za`aw&)c&e`4Z20<5uufO; z)^WP}f<9e6JR7$^L`?S9{8jyTI}ea*G@@wE>|`qx4IIPe-9>8W$<7zN+7<7aJw zapyT~MW|*HXRVt9^(>nAvuHk$EJx)v{&D9aB{^mdsPFj_`7hNi;X1e}{&WNcto~0j z81QWmsJP|mbxKDvIQIM6gG3ytgukL~&HnH@sURfR*5$EJnZ!W`C$OgxOW(j5taSo= z2CnXayUteU_q9gVtK&@DIX>Z-hOguVwte-3`UF-iR(Jy0b%Fh7n-Y)E@565E-cA{g z3skOMo7KuYoFch+k2;C1J6v4X$6ZI*auWO3!@;PJ+S9j7oxwSYSk2c8Y0Y)(B(-zB zj=aFWyr|tAceavZbrRdE*j_kS|@TiE^Vc0g;&3928TiuMDQkHab|4fxD?NQra$f22-@UFf}LU= z2n$rg*RcUXuhnKapH3kJsQEXX{|DS#5m+%UO^*HDTiIv-rVy|%M8MFT)1-Y1uARKxLe^LxmEER`=Mc2MIMc~MEf^@nN^{!5$_WOjQp-4s4*D0djbxEQ= zljz ztZZ|t@7+Kp40*eBBclrGeZGA5j|>u22e;s|cLiQK{8xILw+B+7Q6Diw3Pv?fJ6 zy>Ig^gQ9MtKFN{`PO;imcA^h3CP8YB#~KKWemn3=ZRK8)@T_dg!UYbiI9rD8QH?b0 z+L0{hqdvkS@Ct7iACcK>Ba>P8UM8_35_~7GV#)UBbzJfYyeb>Bav?;n6s$WCXrw>z zhK&!n8>D%BipRE!u<$Wt~O)hARNc=MyiCgZG9-r)0Zd#w*&S)|A&Xw+9pQ_QLeUbaZ5+)|S zR`ChSo}Aa->jE42kKWo))ncnjvpHTmQ1d_-3mumnSSY^rC7A@p%va7ABjn37sDqHh zKdkxQ2`%9lAl4IdBP-Ka)OugM3 z(a*4pMY!mg((od+=wb}xC3fG9v-JkHc-|K{{A>2)jX_7f1Cw6&_D_1l8|)sd5QW!qN@U2dPFz$}^T5~|smN^q{uU{LSD+ONH zxg&`;)2WaxV*XSz<&7q(SKyxv1p7w47L;$v-J18s2G_H`%Oo^dA5^H}%w`YxLPl%SM~<~WAbY&pN{Qm1XUp2&EN&wkOqJRa&*)stQ@J># zb8$%L;!wEC#UY)GLy`-G2?bsm^s4t(ib@hb0MrS8)z^Q`A(imUK%ydvhg9OI%-^%(64UDo>!kNPFse;#Oyv^joCXDE`>*Ve6&;(ktoQ6>JIN`e&n zb1D&1?i7TS`*RYrRrG(6dA}-`w@b^_Lqi%INQM-0cNniHM2>}oH^tp znnl4E%*S(5E|<#6%PK2xTp}xPd|p;mM!r}+>Z1-N?t6}64;3C;0&Gu+1Vrnkqob*Y zxukj8svGRmKEX(7onVZ#P0$%?lxV|e1`fX@WDuhK*S&+N38^C8Kwp;zO4E=A3OPvw zg}MTV*SsSKY+jya5t{M!;#p*x`22YivfT)E0P1r2M!8)6aV{$$O+hQ?(gwD=ypyW$ z-Z?Fqh?3=kx#OoL6+tYCCER>f5Lq)KXMF>H*X^)KJuAs5TBH-$FH@{u8wswI00i<^@Y7}ZRYBnklwFJaKUO76p7K*bW@ zt*CoYlTi1gicl+2@@pV1J5fJCJ&9V2@}gKm8Z%I-sJl=@Q3Fs{pzNqNgg2Z*y@fi2 z+J)MN+JstX^Llb`qzkRcS?n3( zG@Nrw%e)1pB^BAX-FBOEZpEVVf-~T7s(>)LR3d%jsqJo9x zIpr&yw}`#=v(PDV^UKUxN-X90sqi`%uJC#mmF9X>Fon)V#kt}o!&9DDT3+m&?8})n zafWkIX^FSIvzSLz1WBP*J!oUlSLXl#+c<$CWaV)^J&;JF1QPP|g|m;A^WN}W@p zr3(u^i@eT)3TH{F*O?QlsV^DE{Q2HeU2U3jLS;4LwmWW1h|ei1%g=Gf$5WDJE6NKN z=X;$)Q@-RJk&tj_{D_1*?sTRXEb%xqa*B#>bLM-!Wn*r?UDMlbrR9rnXTy!~Cr?dI zb*CCagcaT#udl)|sJJoCsZ&BYe!TeemXwh0|N=)a5Pi<(hnq`5Duv zrf1BsaD=$s<3#c2ma(4FynAlJuh&;z;v7O$#@!WOipVe|F=bFEO~KGbvWR4>N>$dk zIEN0Ypgf4)h{sPne@OFfXbot=2l-3-%jJ7$zNBlq7r8M1GpEzWlqdx}fTR~SYke?&U^` zN{o9cwdP(vi$_Y8Inz^|Q#~B+LpUrKq&R)5BHrrqk2uAmNC8w>UzUJ;G47r0Hx(qe8me@ z9&wvox>(Ax!);<`_hF?wb4BsO(xQSzlM70g%#t*xdh&97Mc&k+qEtH6Mc&f#0*^|I zyTn(VxuU}BDV|(Ppq>h;o6_Pk`s+;9Gh-&sRA`1`q?6KS?O9^hW~qX%?pYO{@=%=G z>lAu!$@|0#=%gUGo8{z`^qjJe*t+GPI%3S3m@8?RQLt!9N~y2Jd)G+iXM91Cr%T?) ztw@vpPm_-1`E%T78O270vB)Te#y$M&r0$f`a`*BAtI*kgW_}hWiRLGBHM`atPj=DQ zqG#f$evft0f31stLl^zmyXe2sMgPq%`sc$t!~A6zJ@Zt9uw*)G^g*#`Fw#DC$;8#z z3W}ZacbDq7W`j)Rjm_ZYU>kS^IQzWIxKixFII#z>0rNj|8P|e4!Rx@G7dZb1H-a~S z?|}owzTIUw!B&tdfic@iHf{pb!jp~V;C65Y*a$uZo&wKNWU z@DO4tp)H1YPQooC&P9ALDUi^en9FhXK_lXq@uy43R=A`8iEt&frR1obcuG1#m;4){ z^00e0zyQ+CvUy z=|o9gaDAk~Lw%R=cM(1%6;5*HBTZ6=-9wXlTEwX0#9z58f$~tuUF+)( zqqDv)9ezIF=Md*V3a7JvBpfNrBEEEzs#5-zs#NPTl)9+EM!O3oNgWAA=$h%8z7fXA zj{JY|a-C1;x~!yBZdc_hB_}3Hk(Ihj#dl{%d}WlZ)Q&SmLte~M|3bHtN2!AX6;mf= zbcU$wZ^S=E7Zrq@tHO5jw?w78K*e1^`_?U1a@ZN0Mb9IQPI~#`k1kG6SB>sc)@{uD6E#1g8 zCK{8`$tW(ZR@#B|ti|Z0lyrGWpDAAys~%tlZn-Mwk{T%w=^LcoEL9j2u1o;p(p*f^UGAiFQT?`h_?h7;0p3Pr}YJW}X1W@0B)qeqPt zV;KLO^laU8Fd1J9ReH+RERM}id$JLO8h{##DkOw>V-jgM=>PN4r%;CQQV>(TaUUUC z_A?BYbw;MI#7HkKF=ntfoW+WEM!t{rPl1t{;}y5u943pnE5uKQXz*8}b%yvaSC)ju zcgi2%`pT7#eSw@3W4vdfk)Bg-B$t(gD~w6RImuUKB>NV#4k$CGF7g^vN|zd`o<-uH zb>s^9rd(+Vmv0y4gM42gt6aWUYZbzfsjP(Kt6=p;*_q z?*qqELj_vV{hiF&R5YRQJIy+r3c}Dnba*l=>9o^fmv^zT;<3K6;*+tX({2)B zN?OMg+CorTyR5~N6&-7{q-s(qZ-P?ByrM}TEMa=^iTDN8kMJ5Vd0&b-6?@ra(BTW+ zYKqkHNXxTqtT-1@I##^W&slM*s#NhyKPo>Rw~QugNgqms9-n1~E$P?kDJ4(Ztkb2( z5^ZCpvAbO|B_O|y5T=8-Q(n3JT@i|3O!99yEl}L$pNvh~Mto_XX+|2oLb2)_WF(WH z^o#LE7HKxrUpFmI@6n{vV@+0m(%Exh)jY10jTP3-$!d3URzXQ_=`t}-&Z!95Wt5ir zD17W>y*^d#_jOrOOZ&ym+Qm=-uoWXaI4Yhn{$}*&X%%obDC^P%psbVgLDtX4a*#{# zMimI>rcndRdUXRR>(z~*^jw=kS!-_vqrvT9KX4~_8CVAj8*T$A>)J+8*0oKbtZSP= zS=X9iEZ7QisoH1*`-8^S$!fhD30{LS29)(~94PBuCn)RPp&)C0BLS3k?j&X9~=Uffj5K8!CSy8@JnC~cq_O890qO#hl88JcyKFtJGdRZ z3)~5Q8LR_Gfeqkjuo09Ipb5MeYzAGR2_}QBU<%j|U8Z|DK6!yFAB1p9$a;AP-@paX0LW5Dy^<)DmLSAa5JT?s~B z13iGT;8ma#><(3wRT_ z9UKJi0tbT);1KW_cr(}x-U6NizXY~{w}SR-p$9Mq91acu

    O?Vt-B0Zs--g0sOp z!Cdezunhb%xDp%%)_|kI$H6h+W-tld2Hpei1n&j+f-bNTOa@PaDWD0ag2r{ph8v6q z$AfX;1aL4o5ljFlfn&k@z%+0&I0KvlE&!*3MPLTF9GniW1!saAz**oX@P2R`=mB?u zOTdF*5qJ_@1DaqM9mr|W4$9o5w{$22pc^n6>evToB>`7 zEwmxIH>wO|ss3A_i~3Z{V1gG<1JU>F_MNze|OU~lj=*atMOCmmok7!AgO*Mft= zBycRa1WW_N=+I_^b}$$04VHm@z?EQMum+3<9|x}mH-kywHZY71Zx?6>8^GS+F|ZHV z4E6<2fzeF;L!@)k_D6lV>3Pyt&;I-fbU=rvB!{{j2f_=aZU|(<( zcrCaUOakk`Feh{c_5n|VeL+*)!PDYCm~;%p9gG3{f&;)La3~lyl=O%@m@4jIhS(1$ zJz@{$i#_NS`vlsj*n^LXJ-AWqN76pU9^5YW;4ZNrMR|!CJSOI`l$V&nQ(|^eUSbCA zPB4{p3Z{`x!O5gkFoSjq+E>y}!E3<`Q2N4ghVH{jqA?r02f+-+B>ClHZUW1|M=b z8$cOzWK0^2`8(iPa0$2odl}pbqoX;6d=~U=t`~(|h1Az*g|bpo}q6a_2Dzzzu}g z8;rh5k6{}zM`Dh{{0ul4{2iD8ZUe`H2f#G&8{iD^MQ{Q5Td)Xx9$XH-4z2|o!42Sj z;3lvR+zK8AHxpkU@OjLK!8-5{;6d;WunBwxd=C`PoK~>* zU=8M*!R?sy#hv{01$SYd49Z;NHbKl4;C9@jz+;#n2b;lX!BgN*!8R}*v=2@;UI1gj zU7*YvWUev*bB)+zmO0H(%ra-#Nx0GANX#<#khzV_fn1oqU>s(;9%C}*pMkSMnS0dn zT|Y1v^Hgvn{)U2Om(( zl<%(vn=n5BO5gr2_#Won;Cb*jVC*f)#t*>Z;J3g8zPk=g#r$nB1Iz|nu}=ga!2A#> zb7&Wsk9j>9hj|pZ9CH=u#5@{Yi+K$=ith)28!*oUH-ROf3;XNAt(fP72H)KYJdb%L zI2(5-SciEbn1=ZV@F3;|U>oLu1}1>-fG%(Y zI2n8joDKdbm<#?0ECa`bE5R~Q?-UrMWicj$u|`^{wSSbt7$L1i>?;(?u7mt!$5(#B zpP*54FJ|p8Po>gOd%|Kb`{^2m+6`Q_KiT7zpX_PLPxi3nR}uF6f3kxjzXC;#@P>rGlf4G{RdnP_$5*7N8~P2U zH!qZ4IjfRierR7IM^TfMgHBg*DBK*?i%9--K4m9ff2Y5f^Kkhs3He_V3a>)-5|Tcl zQc1r~kDQvyPtHl@C#P5%b^2wGQhvo9<)Yn-L-vb9`IGWqg1-vllM<1$3teKGHsY!O zWbB1L;+aWJKrb{B&nzQT=_}BusIfq3Bc9pGeJUJ}(!0?Mjl}cibo4?O@lfDIr7u@{ zu^0M?$9A&P`_QMU{!r*d>?JOt717T?FZ2=5NG1MDNS)}Xq8B=eXJiq3Ip>iyOZY-B z@#w^l(2VG_&{H*b^pgJj6kQ3ei(bMPdY5wR znHQmdtL_%6^y_$~Jy>awHeu5|htyf5tw#4mLw4l#5(iENQJnMOo&a<8? z={)OxNas04(Q<_fN9Unyd^&wP4_4e6s+6q0ZnCN=9e1WmhmL!)>ML~IIu0H8giza* zbn7zK{mHmcI*J+BtQKI!k*exc$C0jT-ikx_1wv=K-gO*u25r@;PRBx3*Ahq1I@0m! z8nEI^S835{pQv)H!_83ky4=!L4d`;abhy%rG__da&QNu$!__pa!<7?1p#@EYlE&_J zP^?;2_cY2Gp+(P=LVBU+nJT>%^eSS~HD|>?CzKZ{uN2i5t@6_G>lWMn8{HChn#ZYn zu*yQ(il)CwD*f8e3{}6{k6wppKa)f8N!<6VdA0VVDOvluFJv!%GD7WDa*?9O6zxZ^ z)%CYoiuSbqxGw%Py4X(()un`^dky_!qlicp$m?9jc`qAvZDw$Xo!aJR-sne)YyG6_@9 zbM$Ojk1ujAF7{G}3;8OZ9>4QjJr|M^)^lVz=a-q9#2ZiP$Q)nKi*gxrto~cRxAgkV zO!oou*RmJRgHFB7^7Py+p7PN%G(E49vumsEkCxe zT3@K@K*>xHMp3SZBlwY~7rb=r5vTc&72`;igQ^5g4b zFPtl4FJq{128v$hAM%woZxfzF(aStZuZ;BkNv{HQAFNj%TCeNN(o5UZdiiVVi&R}} z`(o%#)&epY(edgzkfvQdx7O#edah>KOCK#XZOw!ADoRecQ%2v__}gwzxMM`($UE=)@~F{clE&VB&%LhXaVe?p z@e|S}PP%V$`jn{|)23(6$eKB8_MH3YK9D_c{(_u^i*h}Ai}MQ#mlPG3l$JeMUg7mE zUABD1Ltj~0xoR~j_`mz-G?2B6e!i+EW zuWJYovu|(x3pc*lKkIwv|J{|Za({8HTJ=BlBHFmvuagyrRhpN^p0zLL?mpLqb^Z(c zg1@dIJRH{fFFfpv{j>_*Q#tQk1;up+t$Xkrj-TxQMZKtmoqf@VSVPQfB zRcjuuUc2s*uh#h22Oh0`>}wmo{*7-w{=}32vGH5q{?4ZFe((F6pL+V4Ezkbohg+Zf z(T}(NVaLv2z4+^0zj^89y87LF_WpL?{)Pjuyn66=hhA$ueB|h{ z-@pDw)0@XnoczOEe{6pHop;~+)BArmTRsS$`paKGZ2jotPfq{s%-ObcpZ@*)XBXQ4 z+XKPpcl2LqAo!oo|NnIS|LyYsM+5QayQ_ite>(rkv;jGa7&J}UqgDGYg8$5K!#H?F?$GCOWyG`KVb0;6zH~^)ziAhjV4-Q9b}|De0O`^p~Sw`O&B@0q@2PiNhxchUFs_m#X(f9t#Gd)C*t z%RWE8=PF#rE|mPN^6dHjSG?WbyQX7<&t*K0lHccjpShyDd(ZMZ^iX&AuHj3#-pcOo zJ?Z_2tGm1R4F3mfySw+y-_O6%-M#1c-tTmG@0q>}Kl*(4_2&+ibrV2~O#|mZkt|-IjgIZs@5V;GU9J&1@ z;do1nLY}87GonL^JS_9)D3iom!p)l59VW~7+zuNnuB;B5ypYw54x2@iO6DZZc*E4Ur6r4UD9u7;BGCNO(k1ZM;Wk+XTuefk z_iJ;$2Wb={=7QS*%4S))0cDS9k=C@@x``@ z6{((uzQv0@84-l?xz17I+9l33+viF#NiNCFEGsBcA}NgN z5t&6E?wa+HGL&dsID*ocb=OZ60aycZRJqAksnQ>KD8 zriFDCe392PTqTX=uq_=4A_e0Ru{5J}Rza>OB|oR!_+5mhol)B1ZhRw5$v+VZ9365` z-i}amP{htSscTHvWQJk@l`T`6Z`Nl8;E-Q{CyJ|Ai{m3?UZdCZX$0Z%284CT&Sl9BO=saWR^8 z4TW0REaNBk>E5EOl4V@{;_k+D1o6lR+|g6|4sXU^B&;r(ni-N&m27-!o9gqH`4B%t zFQSWqQdq5}?u4p#l*(-;Qi2S)p1aAO!S9o{$(_<+F#lGSx++ki1Z;MPWc5heW*PUn zr%!QDP8^{+u#09i|F-z=lz{n>OMUKKKqKNOsCRyp5r*9mc7bs8dKT5ivWr&SMg9Bt z?-KZ5ErBWTyMF!iYhF%enXA^>^1VfC7FuCiW(z;h{`1`bSN&VzSZIC!KZ%l-{wS-> z3GcS(?Wj0Z1gamZ7pf1cH!2zx8A7oWv)mC8wgUq{RM4 zl-S>i5_59MoDwoKbg6HqhwL*$NN2CYp94zVOwCm|#h?>ah7!JbCV49Tk`GBw6-v^) zCWH@zl9y_fxUWS?dcKbO5=waA#rzaX(zgXA@%<1b_B&9Lr$Z=le*-1%aTJP_k5y(u zmsJw+Kluym@tuVC-Ayjzi>Mx-{*%U-&;98DouB*rCnNmV{Ot431$25pe_#4vGe7^^ zQuVpy5t<2nE_pcrwau!#9S?^ap>`nx~%CxaRxK z=SAmQRi$t%{_CGP{)|&QU-Wm)1#RUD;V-|S|KyPW7x4eu)9*cft?{R)&8O#ne)y}N zQeRAC0GoDv-f^cf|9Ii?5f}SE+VocQInG{ISt+~7%m1e=x}V}+Yzpu3vxRcA|En z>QH-82T@I^W|a6hQLU&plo7!_P*g0+i5iYdK#fGXP%}{0n79CaKB^40994y?L2W>7 zL~TXwL^YsJqFPZ#FTzF*Kn+F>M~y^{MWv!9qh_EUK;@!}P+rtp)JD`6l=$C{+J$OB zHK9(S&ZA;_6E12vY9uNRRfZB-7A_vrwbE{t|E2KQeWbI?@4sV~_AS7e@JowHbO&WLYbW9bDY?AyS>;Mn>9Sgj8ImgC=r|Ibqr=78bc z0VciIg4WNsk$p5&_h0L3nb3xvZ*Q0RrOeA*sCN32DsT;RD4FZZyw!7Bb?x<>2mFCVz>v5}&G>MsWmUAOz_ z6qmF0d%r9jw)H2!{ceG)G5fP2f4cUusn-OnT@OC_#uF)*Mbv)jXWw(3dwFx}U)Egl zwKWg_%JuTt-~ZsX_K5?R?>_1(-PinROVxo1FMe}t@~(ADvThk&d$z23<+xpccS$Q_Mbbk_(xB)eR9joPd8-$p{iu^f$#i>bA9;q z1$&41$glCcgTIpp@c8}x-UsjQ`^Gb6@~7?I`*V~2IQ9SO?(Czos}e7xrvE|LJk^N$xDVt zN{S;fl%!~;G-5-FbvLwD>#n=*KllDQ&p*#vu%74HzrFY8``!C2c+UFG3wy4*@4e|o>^VFy<-mhSoi*QjM3;?O`pp+PADzGI9lwA7 z%*>2{7pnF(dZVJJe>I`vSk4<)KJhkHOqNR`PX`{`cEGEjdnAXC-QWM;hW>L|G@XGJyt&Lue)E_v+EH4I{E#8y_4RK zj4$yIA2PmigiW8G{N9=QLpH?w=9kwWUvaPLWdFCWX8vK?M)gt5s)4~1pPD`E{;CZJ zy5y_~XdF@h_L;MlzF+RC{ol5WbpOa-xleEZ$M65C0qr&Ue?4HTtArOi$e>bGhRRU| zszg<&8r7g$REOqUKU$sfXgmcUz#rmZ5=IV_ljIWdqr<63H`AT;F73|dvgcVoD`Iu5 znLTAsv6tCL?Nj!BySEePTyr|R+I`*K>vreCyqurpS9mMuVva}^S)xF^Cw>sNoFl)G z52*fXm>Qv;R&!LkTBmZ<5mm2x>OorRr}P}XNN4GM9c;pkHcQRR=C0}PJ?8z+o9kWo z+QE;2q`Zo9&=2T7>S1MCSyr}{V{Nf=t%W!ZSKy(Uc&G26(U3I5&K1)JSr>X75SZvS0Aa9 zs!82av-JYKQg6^#^`8th0Q6KHGzwySOtMO2P>ynmj?qlO)L7 zJ>mnkkE9dmBs!fY(gpMst)aK*k2IO>VEyf(5d9eFf%ok)`?y_YU$VPHv_qWX4t88; zyfe|6>LfS|oIg2BopfiT^QLnfdL+ah=8kYZcf32v-R8dS{=0kGZE|n9ciecsmT%;n z`Cfj2AL14K46osr`FH#_e^B%gK>~>gF<$&$%oEGSDv( zh|k4&Q70P3HE~P)L$rxb@?qIS2FZSMpbV2pGAZQ~GD=RAQ{{9yQ_hnMYyrtid3jm>a4n;>eM&tx@uOf>L=Ar_t9Z` z6!iXBJyAcW|4r}E@9G2ksQ$a|VS>y6!%UR= z+u$AZ&Uv@IcC##k68od4Q4-pL-bbII3#b8ILtU+>t!dV?))H%}^{VxzwcXld6n?UzxaZtD_d}@K1^zAH5A`@MKb0lw0sXMX!1D-P8dKK>W}IdA6cM4tFm2sv6#gQ}*erI7nv^{GOd>(P3;UJ3+k)$i*v{fR!OJDbN1 zH{Z0!kOit-+APHz0o{R+&|9 zRaoCxJwQ35a5Rp=u{aJV;6$8+-^0bY6qn(0JdEyzxVy1HwglqNXCJW(>@xd1>t)B= z?*i@T;T#V;eVr5TS@)s~cbVZ`c>wRl`|+3g8vdvpA`@gX^kgZpeNNU(f5la_N>JO? z2kNN0s2bE2)uQgI9y(NqYodjoqG#y!I#1uyj~Z-*@yvX)#%wY>&AX<=T!9X{XMDWA zUa04Ji@dGgey_AW7pd_55%5G&2|ACyLv3i0^`f;JPFZ8E!yE8+P}avmAEuM%$PzM; z4gf@aaz>2}%`bg(xY0=+SnC9qj+5!=o7fm0k|<)D7ISR3=TgKW=!64Wl%P65?e zZEv!3?Lzx!+j63vGU%VKJd}?FRhz}H@tz`FP~nNG;2y7u*TqiIw?pEx=q|^~W%AFm zKk)V<@N`E7Ky~NpKZ9eG=!?2RhnonKVb+_kOh4$f`1W(9!}n~!(<7)K)b=aX%bH;= zwAMr2zPH+NBy{-+=$LzD9!av!5&M0S$Gtc?i@pF5+ zL)~$1zWc5FAP?e-$Mfg-K3>VE2|pPi`$|X7kk82#^0Mr%o>jM%uMXD3Aj)|Jz_m+-L)d{RLJ%BxQ48xt#lE~Vh`C(?myf<{Bdq^ z%_s25kfC|}Mg9_B&DZnS`BuIYG;=>_<}v;;Kh4kcChjA;bZF)PF()K! z^B~*@hvSWS2M!{mh)Wn7$Ku(1wt{V7JJ|>9W9aQ`;B&vV!y$_?_AGm`T`G=?N>Jq{ zaZRNdf3K~*CLmPF@YD%)L0wS*3POF+05k;s3mVx$ph06$6pBWZ&{Q-R)x!-3{BRK& zLnqQY+DMz}&-696i(O9hec6(gazw8ODj>r}HqEHlz zGEpI_L`{do-w-X}@4m8|43r^qund<}Dj6xGWi04rl1%CF^$eK>uAVFNK|hOS8DzUk z*2p^92sv+&ZPK^H%|p~+@N%k@iUehi1#L}IDQdA=t};{>%%`~>9$u`v5As9)C>VvJFz`SZMF4#c(OSqi>c z3H@7ZHCRnnv(;*~^X-p=aVQSM2)j4}{4@r9gcRKqUN zK$?KnR-nL-`qN<80>UVQ9Uy{6!3GcqQ*Sa&1%}gs-)y>t=FtLLL`!Kot)$homNo#( z&7jjh%nuwen1!-1hM3DDSQKmmaj*#_vs9MG(pe_UW?NVuD*#t41y`(O)vT5^z-G|Q zTA7dS2YW%V9cqW!$ad`r*b96R++z<)6V|ca)IyegAwLn2lXS>KIh?%>&K(M8O@#C1 z!I>IBdHi6TK{OhoPwh~gB8an@`a@JP5J@&GgwKaJg(WKR*ScpwbXoAb9EdO%V$6pq z>v%12(g3710V~ZwODpgK7aElxFyjw1aIgwdp+HU;u!Dde7x;+)f}((-7@#N)I7$SP zl7XdEpeYS_N(Y{@fv7FOR31=O0JCwCDpsYyRyojB34B!pVYR?m15nlkoHYY!t-zX( z_SJsCn?Dd249tZBbz#6A0`gp7FA0dt0NV0_vTC5L7B~xqEi&97V9N!%B7mins_next -| .endmacro -| .macro ins_next1 -| .endmacro -| .macro ins_next2 -| .endmacro -| .macro ins_next3 -| b ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Avoid register name substitution for field name. -#define field_pc pc -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC -| ldr PC, LFUNC:CARG3->field_pc -| ldrb OP, [PC] // STALL: load PC. early PC. -| ldr INS, [PC], #4 -| ldr OP, [DISPATCH, OP, lsl #2] // STALL: load OP. early OP. -| decode_RA8 RA, INS -| add RA, RA, BASE -| bx OP -|.endmacro -| -|.macro ins_call -| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, PC = caller PC -| str PC, [BASE, FRAME_PC] -| ins_callt // STALL: locked PC. -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Macros to test operand types. -|.macro checktp, reg, tp; cmn reg, #-tp; .endmacro -|.macro checktpeq, reg, tp; cmneq reg, #-tp; .endmacro -|.macro checktpne, reg, tp; cmnne reg, #-tp; .endmacro -|.macro checkstr, reg, target; checktp reg, LJ_TSTR; bne target; .endmacro -|.macro checktab, reg, target; checktp reg, LJ_TTAB; bne target; .endmacro -|.macro checkfunc, reg, target; checktp reg, LJ_TFUNC; bne target; .endmacro -| -|// Assumes DISPATCH is relative to GL. -#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) -#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|.macro hotcheck, delta -| lsr CARG1, PC, #1 -| and CARG1, CARG1, #126 -| sub CARG1, CARG1, #-GG_DISP2HOT -| ldrh CARG2, [DISPATCH, CARG1] -| subs CARG2, CARG2, #delta -| strh CARG2, [DISPATCH, CARG1] -|.endmacro -| -|.macro hotloop -| hotcheck HOTCOUNT_LOOP -| blo ->vm_hotloop -|.endmacro -| -|.macro hotcall -| hotcheck HOTCOUNT_CALL -| blo ->vm_hotcall -|.endmacro -| -|// Set current VM state. -|.macro mv_vmstate, reg, st; mvn reg, #LJ_VMST_..st; .endmacro -|.macro st_vmstate, reg; str reg, [DISPATCH, #DISPATCH_GL(vmstate)]; .endmacro -| -|// Move table write barrier back. Overwrites mark and tmp. -|.macro barrierback, tab, mark, tmp -| ldr tmp, [DISPATCH, #DISPATCH_GL(gc.grayagain)] -| bic mark, mark, #LJ_GC_BLACK // black2gray(tab) -| str tab, [DISPATCH, #DISPATCH_GL(gc.grayagain)] -| strb mark, tab->marked -| str tmp, tab->gclist -|.endmacro -| -|.macro .IOS, a, b -|.if IOS -| a, b -|.endif -|.endmacro -| -|//----------------------------------------------------------------------- - -#if !LJ_DUALNUM -#error "Only dual-number mode supported for ARM target" -#endif - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | // See vm_return. Also: RB = previous base. - | tst PC, #FRAME_P - | beq ->cont_dispatch - | - | // Return from pcall or xpcall fast func. - | ldr PC, [RB, FRAME_PC] // Fetch PC of previous frame. - | mvn CARG2, #~LJ_TTRUE - | mov BASE, RB - | // Prepending may overwrite the pcall frame, so do it at the end. - | str CARG2, [RA, FRAME_PC] // Prepend true to results. - | sub RA, RA, #8 - | - |->vm_returnc: - | adds RC, RC, #8 // RC = (nresults+1)*8. - | mov CRET1, #LUA_YIELD - | beq ->vm_unwind_c_eh - | str RC, SAVE_MULTRES - | ands CARG1, PC, #FRAME_TYPE - | beq ->BC_RET_Z // Handle regular return to Lua. - | - |->vm_return: - | // BASE = base, RA = resultptr, RC/MULTRES = (nresults+1)*8, PC = return - | // CARG1 = PC & FRAME_TYPE - | bic RB, PC, #FRAME_TYPEP - | cmp CARG1, #FRAME_C - | sub RB, BASE, RB // RB = previous base. - | bne ->vm_returnp - | - | str RB, L->base - | ldr KBASE, SAVE_NRES - | mv_vmstate CARG4, C - | sub BASE, BASE, #8 - | subs CARG3, RC, #8 - | lsl KBASE, KBASE, #3 // KBASE = (nresults_wanted+1)*8 - | st_vmstate CARG4 - | beq >2 - |1: - | subs CARG3, CARG3, #8 - | ldrd CARG12, [RA], #8 - | strd CARG12, [BASE], #8 - | bne <1 - |2: - | cmp KBASE, RC // More/less results wanted? - | bne >6 - |3: - | str BASE, L->top // Store new top. - | - |->vm_leave_cp: - | ldr RC, SAVE_CFRAME // Restore previous C frame. - | mov CRET1, #0 // Ok return status for vm_pcall. - | str RC, L->cframe - | - |->vm_leave_unw: - | restoreregs_ret - | - |6: - | blt >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - | ldr CARG3, L->maxstack - | mvn CARG2, #~LJ_TNIL - | cmp BASE, CARG3 - | bhs >8 - | str CARG2, [BASE, #4] - | add RC, RC, #8 - | add BASE, BASE, #8 - | b <2 - | - |7: // Less results wanted. - | sub CARG1, RC, KBASE - | cmp KBASE, #0 // LUA_MULTRET+1 case? - | subne BASE, BASE, CARG1 // Either keep top or shrink it. - | b <3 - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | str BASE, L->top // Save current top held in BASE (yes). - | lsr CARG2, KBASE, #3 - | mov CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->top // Need the (realloced) L->top in BASE. - | b <2 - | - |->vm_unwind_c: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - | mov sp, CARG1 - | mov CRET1, CARG2 - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | ldr L, SAVE_L - | mv_vmstate CARG4, C - | ldr GL:CARG3, L->glref - | str CARG4, GL:CARG3->vmstate - | b ->vm_leave_unw - | - |->vm_unwind_ff: // Unwind C stack, return from ff pcall. - | // (void *cframe) - | bic CARG1, CARG1, #~CFRAME_RAWMASK // Use two steps: bic sp is deprecated. - | mov sp, CARG1 - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | ldr L, SAVE_L - | mov MASKR8, #255 - | mov RC, #16 // 2 results: false + error message. - | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. - | ldr BASE, L->base - | ldr DISPATCH, L->glref // Setup pointer to dispatch table. - | mvn CARG1, #~LJ_TFALSE - | sub RA, BASE, #8 // Results start at BASE-8. - | ldr PC, [BASE, FRAME_PC] // Fetch PC of previous frame. - | add DISPATCH, DISPATCH, #GG_G2DISP - | mv_vmstate CARG2, INTERP - | str CARG1, [BASE, #-4] // Prepend false to error message. - | st_vmstate CARG2 - | b ->vm_returnc - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | // CARG1 = L - | mov CARG2, #LUA_MINSTACK - | b >2 - | - |->vm_growstack_l: // Grow stack for Lua function. - | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC - | add RC, BASE, RC - | sub RA, RA, BASE - | mov CARG1, L - | str BASE, L->base - | add PC, PC, #4 // Must point after first instruction. - | str RC, L->top - | lsr CARG2, RA, #3 - |2: - | // L->base = new base, L->top = top - | str PC, SAVE_PC - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->base - | ldr RC, L->top - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | sub NARGS8:RC, RC, BASE - | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - | mov L, CARG1 - | ldr DISPATCH, L:CARG1->glref // Setup pointer to dispatch table. - | mov BASE, CARG2 - | add DISPATCH, DISPATCH, #GG_G2DISP - | str L, SAVE_L - | mov PC, #FRAME_CP - | str CARG3, SAVE_NRES - | add CARG2, sp, #CFRAME_RESUME - | ldrb CARG1, L->status - | str CARG3, SAVE_ERRF - | str L, SAVE_PC // Any value outside of bytecode is ok. - | str CARG3, SAVE_CFRAME - | cmp CARG1, #0 - | str CARG2, L->cframe - | beq >3 - | - | // Resume after yield (like a return). - | str L, [DISPATCH, #DISPATCH_GL(cur_L)] - | mov RA, BASE - | ldr BASE, L->base - | ldr CARG1, L->top - | mov MASKR8, #255 - | strb CARG3, L->status - | sub RC, CARG1, BASE - | ldr PC, [BASE, FRAME_PC] - | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. - | mv_vmstate CARG2, INTERP - | add RC, RC, #8 - | ands CARG1, PC, #FRAME_TYPE - | st_vmstate CARG2 - | str RC, SAVE_MULTRES - | beq ->BC_RET_Z - | b ->vm_return - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | mov PC, #FRAME_CP - | str CARG4, SAVE_ERRF - | b >1 - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | mov PC, #FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - | ldr RC, L:CARG1->cframe - | str CARG3, SAVE_NRES - | mov L, CARG1 - | str CARG1, SAVE_L - | ldr DISPATCH, L->glref // Setup pointer to dispatch table. - | mov BASE, CARG2 - | str CARG1, SAVE_PC // Any value outside of bytecode is ok. - | str RC, SAVE_CFRAME - | add DISPATCH, DISPATCH, #GG_G2DISP - | str sp, L->cframe // Add our C frame to cframe chain. - | - |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). - | str L, [DISPATCH, #DISPATCH_GL(cur_L)] - | ldr RB, L->base // RB = old base (for vmeta_call). - | ldr CARG1, L->top - | mov MASKR8, #255 - | add PC, PC, BASE - | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. - | sub PC, PC, RB // PC = frame delta + frame type - | mv_vmstate CARG2, INTERP - | sub NARGS8:RC, CARG1, BASE - | st_vmstate CARG2 - | - |->vm_call_dispatch: - | // RB = old base, BASE = new base, RC = nargs*8, PC = caller PC - | ldrd CARG34, [BASE, FRAME_FUNC] - | checkfunc CARG4, ->vmeta_call - | - |->vm_call_dispatch_f: - | ins_call - | // BASE = new base, CARG3 = func, RC = nargs*8, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - | mov L, CARG1 - | ldr RA, L:CARG1->stack - | str CARG1, SAVE_L - | ldr DISPATCH, L->glref // Setup pointer to dispatch table. - | ldr RB, L->top - | str CARG1, SAVE_PC // Any value outside of bytecode is ok. - | ldr RC, L->cframe - | add DISPATCH, DISPATCH, #GG_G2DISP - | sub RA, RA, RB // Compute -savestack(L, L->top). - | mov RB, #0 - | str RA, SAVE_NRES // Neg. delta means cframe w/o frame. - | str RB, SAVE_ERRF // No error function. - | str RC, SAVE_CFRAME - | str sp, L->cframe // Add our C frame to cframe chain. - | str L, [DISPATCH, #DISPATCH_GL(cur_L)] - | blx CARG4 // (lua_State *L, lua_CFunction func, void *ud) - | movs BASE, CRET1 - | mov PC, #FRAME_CP - | bne <3 // Else continue with the call. - | b ->vm_leave_cp // No base? Just remove C frame. - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultptr, RC = (nresults+1)*8 - | ldr LFUNC:CARG3, [RB, FRAME_FUNC] - | ldr CARG1, [BASE, #-16] // Get continuation. - | mov CARG4, BASE - | mov BASE, RB // Restore caller BASE. - |.if FFI - | cmp CARG1, #1 - |.endif - | ldr PC, [CARG4, #-12] // Restore PC from [cont|PC]. - | ldr CARG3, LFUNC:CARG3->field_pc - | mvn INS, #~LJ_TNIL - | add CARG2, RA, RC - | str INS, [CARG2, #-4] // Ensure one valid arg. - |.if FFI - | bls >1 - |.endif - | ldr KBASE, [CARG3, #PC2PROTO(k)] - | // BASE = base, RA = resultptr, CARG4 = meta base - | bx CARG1 - | - |.if FFI - |1: - | beq ->cont_ffi_callback // cont = 1: return from FFI callback. - | // cont = 0: tailcall from C function. - | sub CARG4, CARG4, #16 - | sub RC, CARG4, BASE - | b ->vm_call_tail - |.endif - | - |->cont_cat: // RA = resultptr, CARG4 = meta base - | ldr INS, [PC, #-4] - | sub CARG2, CARG4, #16 - | ldrd CARG34, [RA] - | str BASE, L->base - | decode_RB8 RC, INS - | decode_RA8 RA, INS - | add CARG1, BASE, RC - | subs CARG1, CARG2, CARG1 - | strdne CARG34, [CARG2] - | movne CARG3, CARG1 - | bne ->BC_CAT_Z - | strd CARG34, [BASE, RA] - | b ->cont_nop - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets1: - | add CARG2, BASE, RB - | b >2 - | - |->vmeta_tgets: - | sub CARG2, DISPATCH, #-DISPATCH_GL(tmptv) - | mvn CARG4, #~LJ_TTAB - | str TAB:RB, [CARG2] - | str CARG4, [CARG2, #4] - |2: - | mvn CARG4, #~LJ_TSTR - | str STR:RC, TMPDlo - | str CARG4, TMPDhi - | mov CARG3, TMPDp - | b >1 - | - |->vmeta_tgetb: // RC = index - | decode_RB8 RB, INS - | str RC, TMPDlo - | mvn CARG4, #~LJ_TISNUM - | add CARG2, BASE, RB - | str CARG4, TMPDhi - | mov CARG3, TMPDp - | b >1 - | - |->vmeta_tgetv: - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | .IOS ldr BASE, L->base - | cmp CRET1, #0 - | beq >3 - | ldrd CARG34, [CRET1] - | ins_next1 - | ins_next2 - | strd CARG34, [BASE, RA] - | ins_next3 - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | rsb CARG1, BASE, #FRAME_CONT - | ldr BASE, L->top - | mov NARGS8:RC, #16 // 2 args for func(t, k). - | str PC, [BASE, #-12] // [cont|PC] - | add PC, CARG1, BASE - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | b ->vm_call_dispatch_f - | - |->vmeta_tgetr: - | .IOS mov RC, BASE - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | .IOS mov BASE, RC - | cmp CRET1, #0 - | ldrdne CARG12, [CRET1] - | mvneq CARG2, #~LJ_TNIL - | b ->BC_TGETR_Z - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets1: - | add CARG2, BASE, RB - | b >2 - | - |->vmeta_tsets: - | sub CARG2, DISPATCH, #-DISPATCH_GL(tmptv) - | mvn CARG4, #~LJ_TTAB - | str TAB:RB, [CARG2] - | str CARG4, [CARG2, #4] - |2: - | mvn CARG4, #~LJ_TSTR - | str STR:RC, TMPDlo - | str CARG4, TMPDhi - | mov CARG3, TMPDp - | b >1 - | - |->vmeta_tsetb: // RC = index - | decode_RB8 RB, INS - | str RC, TMPDlo - | mvn CARG4, #~LJ_TISNUM - | add CARG2, BASE, RB - | str CARG4, TMPDhi - | mov CARG3, TMPDp - | b >1 - | - |->vmeta_tsetv: - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | .IOS ldr BASE, L->base - | cmp CRET1, #0 - | ldrd CARG34, [BASE, RA] - | beq >3 - | ins_next1 - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | strd CARG34, [CRET1] - | ins_next2 - | ins_next3 - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | rsb CARG1, BASE, #FRAME_CONT - | ldr BASE, L->top - | mov NARGS8:RC, #24 // 3 args for func(t, k, v). - | strd CARG34, [BASE, #16] // Copy value to third argument. - | str PC, [BASE, #-12] // [cont|PC] - | add PC, CARG1, BASE - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | b ->vm_call_dispatch_f - | - |->vmeta_tsetr: - | str BASE, L->base - | .IOS mov RC, BASE - | str PC, SAVE_PC - | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) - | // Returns TValue *. - | .IOS mov BASE, RC - | b ->BC_TSETR_Z - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - | mov CARG1, L - | sub PC, PC, #4 - | mov CARG2, RA - | str BASE, L->base - | mov CARG3, RC - | str PC, SAVE_PC - | decode_OP CARG4, INS - | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - | // Returns 0/1 or TValue * (metamethod). - |3: - | .IOS ldr BASE, L->base - | cmp CRET1, #1 - | bhi ->vmeta_binop - |4: - | ldrh RB, [PC, #2] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | subhs PC, RB, #0x20000 - |->cont_nop: - | ins_next - | - |->cont_ra: // RA = resultptr - | ldr INS, [PC, #-4] - | ldrd CARG12, [RA] - | decode_RA8 CARG3, INS - | strd CARG12, [BASE, CARG3] - | b ->cont_nop - | - |->cont_condt: // RA = resultptr - | ldr CARG2, [RA, #4] - | mvn CARG1, #~LJ_TTRUE - | cmp CARG1, CARG2 // Branch if result is true. - | b <4 - | - |->cont_condf: // RA = resultptr - | ldr CARG2, [RA, #4] - | checktp CARG2, LJ_TFALSE // Branch if result is false. - | b <4 - | - |->vmeta_equal: - | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - | - |->vmeta_equal_cd: - |.if FFI - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | mov CARG2, INS - | str PC, SAVE_PC - | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - |.endif - | - |->vmeta_istype: - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | lsr CARG2, RA, #3 - | mov CARG3, RC - | str PC, SAVE_PC - | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) - | .IOS ldr BASE, L->base - | b ->cont_nop - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_arith_vn: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG3, BASE, RB - | add CARG4, KBASE, RC - | b >1 - | - |->vmeta_arith_nv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG4, BASE, RB - | add CARG3, KBASE, RC - | b >1 - | - |->vmeta_unm: - | ldr INS, [PC, #-8] - | sub PC, PC, #4 - | add CARG3, BASE, RC - | add CARG4, BASE, RC - | b >1 - | - |->vmeta_arith_vv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG3, BASE, RB - | add CARG4, BASE, RC - |1: - | decode_OP OP, INS - | add CARG2, BASE, RA - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | str OP, ARG5 - | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - | // Returns NULL (finished) or TValue * (metamethod). - | .IOS ldr BASE, L->base - | cmp CRET1, #0 - | beq ->cont_nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 - | sub CARG2, CRET1, BASE - | str PC, [CRET1, #-12] // [cont|PC] - | add PC, CARG2, #FRAME_CONT - | mov BASE, CRET1 - | mov NARGS8:RC, #16 // 2 args for func(o1, o2). - | b ->vm_call_dispatch - | - |->vmeta_len: - | add CARG2, BASE, RC - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_len // (lua_State *L, TValue *o) - | // Returns NULL (retry) or TValue * (metamethod base). - | .IOS ldr BASE, L->base -#if LJ_52 - | cmp CRET1, #0 - | bne ->vmeta_binop // Binop call for compatibility. - | ldr TAB:CARG1, [BASE, RC] - | b ->BC_LEN_Z -#else - | b ->vmeta_binop // Binop call for compatibility. -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call: // Resolve and call __call metamethod. - | // RB = old base, BASE = new base, RC = nargs*8 - | mov CARG1, L - | str RB, L->base // This is the callers base! - | sub CARG2, BASE, #8 - | str PC, SAVE_PC - | add CARG3, BASE, NARGS8:RC - | .IOS mov RA, BASE - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | .IOS mov BASE, RA - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. - | ins_call - | - |->vmeta_callt: // Resolve __call for BC_CALLT. - | // BASE = old base, RA = new base, RC = nargs*8 - | mov CARG1, L - | str BASE, L->base - | sub CARG2, RA, #8 - | str PC, SAVE_PC - | add CARG3, RA, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | .IOS ldr BASE, L->base - | ldr LFUNC:CARG3, [RA, FRAME_FUNC] // Guaranteed to be a function here. - | ldr PC, [BASE, FRAME_PC] - | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. - | b ->BC_CALLT2_Z - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | mov CARG1, L - | str BASE, L->base - | mov CARG2, RA - | str PC, SAVE_PC - | bl extern lj_meta_for // (lua_State *L, TValue *base) - | .IOS ldr BASE, L->base - |.if JIT - | ldrb OP, [PC, #-4] - |.endif - | ldr INS, [PC, #-4] - |.if JIT - | cmp OP, #BC_JFORI - |.endif - | decode_RA8 RA, INS - | decode_RD RC, INS - |.if JIT - | beq =>BC_JFORI - |.endif - | b =>BC_FORI - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | ldrd CARG12, [BASE] - | cmp NARGS8:RC, #8 - | blo ->fff_fallback - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | ldrd CARG12, [BASE] - | ldrd CARG34, [BASE, #8] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - |.endmacro - | - |.macro .ffunc_n, name - | .ffunc_1 name - | checktp CARG2, LJ_TISNUM - | bhs ->fff_fallback - |.endmacro - | - |.macro .ffunc_nn, name - | .ffunc_2 name - | checktp CARG2, LJ_TISNUM - | cmnlo CARG4, #-LJ_TISNUM - | bhs ->fff_fallback - |.endmacro - | - |.macro .ffunc_d, name - | .ffunc name - | ldr CARG2, [BASE, #4] - | cmp NARGS8:RC, #8 - | vldr d0, [BASE] - | blo ->fff_fallback - | checktp CARG2, LJ_TISNUM - | bhs ->fff_fallback - |.endmacro - | - |.macro .ffunc_dd, name - | .ffunc name - | ldr CARG2, [BASE, #4] - | ldr CARG4, [BASE, #12] - | cmp NARGS8:RC, #16 - | vldr d0, [BASE] - | vldr d1, [BASE, #8] - | blo ->fff_fallback - | checktp CARG2, LJ_TISNUM - | cmnlo CARG4, #-LJ_TISNUM - | bhs ->fff_fallback - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses CARG1 and CARG2. - |.macro ffgccheck - | ldr CARG1, [DISPATCH, #DISPATCH_GL(gc.total)] - | ldr CARG2, [DISPATCH, #DISPATCH_GL(gc.threshold)] - | cmp CARG1, CARG2 - | blge ->fff_gcstep - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc_1 assert - | checktp CARG2, LJ_TTRUE - | bhi ->fff_fallback - | ldr PC, [BASE, FRAME_PC] - | strd CARG12, [BASE, #-8] - | mov RB, BASE - | subs RA, NARGS8:RC, #8 - | add RC, NARGS8:RC, #8 // Compute (nresults+1)*8. - | beq ->fff_res // Done if exactly 1 argument. - |1: - | ldrd CARG12, [RB, #8] - | subs RA, RA, #8 - | strd CARG12, [RB], #8 - | bne <1 - | b ->fff_res - | - |.ffunc type - | ldr CARG2, [BASE, #4] - | cmp NARGS8:RC, #8 - | blo ->fff_fallback - | checktp CARG2, LJ_TISNUM - | mvnlo CARG2, #~LJ_TISNUM - | rsb CARG4, CARG2, #(int)(offsetof(GCfuncC, upvalue)>>3)-1 - | lsl CARG4, CARG4, #3 - | ldrd CARG12, [CFUNC:CARG3, CARG4] - | b ->fff_restv - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | checktp CARG2, LJ_TTAB - | cmnne CARG2, #-LJ_TUDATA - | bne >6 - |1: // Field metatable must be at same offset for GCtab and GCudata! - | ldr TAB:RB, TAB:CARG1->metatable - |2: - | mvn CARG2, #~LJ_TNIL - | ldr STR:RC, [DISPATCH, #DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])] - | cmp TAB:RB, #0 - | beq ->fff_restv - | ldr CARG3, TAB:RB->hmask - | ldr CARG4, STR:RC->hash - | ldr NODE:INS, TAB:RB->node - | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask - | add CARG3, CARG3, CARG3, lsl #1 - | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 - |3: // Rearranged logic, because we expect _not_ to find the key. - | ldrd CARG34, NODE:INS->key // STALL: early NODE:INS. - | ldrd CARG12, NODE:INS->val - | ldr NODE:INS, NODE:INS->next - | checktp CARG4, LJ_TSTR - | cmpeq CARG3, STR:RC - | beq >5 - | cmp NODE:INS, #0 - | bne <3 - |4: - | mov CARG1, RB // Use metatable as default result. - | mvn CARG2, #~LJ_TTAB - | b ->fff_restv - |5: - | checktp CARG2, LJ_TNIL - | bne ->fff_restv - | b <4 - | - |6: - | checktp CARG2, LJ_TISNUM - | mvnhs CARG2, CARG2 - | movlo CARG2, #~LJ_TISNUM - | add CARG4, DISPATCH, CARG2, lsl #2 - | ldr TAB:RB, [CARG4, #DISPATCH_GL(gcroot[GCROOT_BASEMT])] - | b <2 - | - |.ffunc_2 setmetatable - | // Fast path: no mt for table yet and not clearing the mt. - | checktp CARG2, LJ_TTAB - | ldreq TAB:RB, TAB:CARG1->metatable - | checktpeq CARG4, LJ_TTAB - | ldrbeq CARG4, TAB:CARG1->marked - | cmpeq TAB:RB, #0 - | bne ->fff_fallback - | tst CARG4, #LJ_GC_BLACK // isblack(table) - | str TAB:CARG3, TAB:CARG1->metatable - | beq ->fff_restv - | barrierback TAB:CARG1, CARG4, CARG3 - | b ->fff_restv - | - |.ffunc rawget - | ldrd CARG34, [BASE] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - | mov CARG2, CARG3 - | checktab CARG4, ->fff_fallback - | mov CARG1, L - | add CARG3, BASE, #8 - | .IOS mov RA, BASE - | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - | // Returns cTValue *. - | .IOS mov BASE, RA - | ldrd CARG12, [CRET1] - | b ->fff_restv - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | ldrd CARG12, [BASE] - | cmp NARGS8:RC, #8 - | bne ->fff_fallback - | checktp CARG2, LJ_TISNUM - | bls ->fff_restv - | b ->fff_fallback - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | checktp CARG2, LJ_TSTR - | // A __tostring method in the string base metatable is ignored. - | beq ->fff_restv - | // Handle numbers inline, unless a number base metatable is present. - | ldr CARG4, [DISPATCH, #DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])] - | str BASE, L->base - | checktp CARG2, LJ_TISNUM - | cmpls CARG4, #0 - | str PC, SAVE_PC // Redundant (but a defined value). - | bhi ->fff_fallback - | ffgccheck - | mov CARG1, L - | mov CARG2, BASE - | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) - | // Returns GCstr *. - | ldr BASE, L->base - | mvn CARG2, #~LJ_TSTR - | b ->fff_restv - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc_1 next - | mvn CARG4, #~LJ_TNIL - | checktab CARG2, ->fff_fallback - | strd CARG34, [BASE, NARGS8:RC] // Set missing 2nd arg to nil. - | ldr PC, [BASE, FRAME_PC] - | mov CARG2, CARG1 - | str BASE, L->base // Add frame since C call can throw. - | mov CARG1, L - | str BASE, L->top // Dummy frame length is ok. - | add CARG3, BASE, #8 - | str PC, SAVE_PC - | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - | // Returns 0 at end of traversal. - | .IOS ldr BASE, L->base - | cmp CRET1, #0 - | mvneq CRET2, #~LJ_TNIL - | beq ->fff_restv // End of traversal: return nil. - | ldrd CARG12, [BASE, #8] // Copy key and value to results. - | ldrd CARG34, [BASE, #16] - | mov RC, #(2+1)*8 - | strd CARG12, [BASE, #-8] - | strd CARG34, [BASE] - | b ->fff_res - | - |.ffunc_1 pairs - | checktab CARG2, ->fff_fallback -#if LJ_52 - | ldr TAB:RB, TAB:CARG1->metatable -#endif - | ldrd CFUNC:CARG34, CFUNC:CARG3->upvalue[0] - | ldr PC, [BASE, FRAME_PC] -#if LJ_52 - | cmp TAB:RB, #0 - | bne ->fff_fallback -#endif - | mvn CARG2, #~LJ_TNIL - | mov RC, #(3+1)*8 - | strd CFUNC:CARG34, [BASE, #-8] - | str CARG2, [BASE, #12] - | b ->fff_res - | - |.ffunc_2 ipairs_aux - | checktp CARG2, LJ_TTAB - | checktpeq CARG4, LJ_TISNUM - | bne ->fff_fallback - | ldr RB, TAB:CARG1->asize - | ldr RC, TAB:CARG1->array - | add CARG3, CARG3, #1 - | ldr PC, [BASE, FRAME_PC] - | cmp CARG3, RB - | add RC, RC, CARG3, lsl #3 - | strd CARG34, [BASE, #-8] - | ldrdlo CARG12, [RC] - | mov RC, #(0+1)*8 - | bhs >2 // Not in array part? - |1: - | checktp CARG2, LJ_TNIL - | movne RC, #(2+1)*8 - | strdne CARG12, [BASE] - | b ->fff_res - |2: // Check for empty hash part first. Otherwise call C function. - | ldr RB, TAB:CARG1->hmask - | mov CARG2, CARG3 - | cmp RB, #0 - | beq ->fff_res - | .IOS mov RA, BASE - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | .IOS mov BASE, RA - | cmp CRET1, #0 - | beq ->fff_res - | ldrd CARG12, [CRET1] - | b <1 - | - |.ffunc_1 ipairs - | checktab CARG2, ->fff_fallback -#if LJ_52 - | ldr TAB:RB, TAB:CARG1->metatable -#endif - | ldrd CFUNC:CARG34, CFUNC:CARG3->upvalue[0] - | ldr PC, [BASE, FRAME_PC] -#if LJ_52 - | cmp TAB:RB, #0 - | bne ->fff_fallback -#endif - | mov CARG1, #0 - | mvn CARG2, #~LJ_TISNUM - | mov RC, #(3+1)*8 - | strd CFUNC:CARG34, [BASE, #-8] - | strd CARG12, [BASE, #8] - | b ->fff_res - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc pcall - | ldrb RA, [DISPATCH, #DISPATCH_GL(hookmask)] - | cmp NARGS8:RC, #8 - | blo ->fff_fallback - | tst RA, #HOOK_ACTIVE // Remember active hook before pcall. - | mov RB, BASE - | add BASE, BASE, #8 - | moveq PC, #8+FRAME_PCALL - | movne PC, #8+FRAME_PCALLH - | sub NARGS8:RC, NARGS8:RC, #8 - | b ->vm_call_dispatch - | - |.ffunc_2 xpcall - | ldrb RA, [DISPATCH, #DISPATCH_GL(hookmask)] - | checkfunc CARG4, ->fff_fallback // Traceback must be a function. - | mov RB, BASE - | strd CARG12, [BASE, #8] // Swap function and traceback. - | strd CARG34, [BASE] - | tst RA, #HOOK_ACTIVE // Remember active hook before pcall. - | add BASE, BASE, #16 - | moveq PC, #16+FRAME_PCALL - | movne PC, #16+FRAME_PCALLH - | sub NARGS8:RC, NARGS8:RC, #16 - | b ->vm_call_dispatch - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | checktp CARG2, LJ_TTHREAD - | bne ->fff_fallback - |.else - |.ffunc coroutine_wrap_aux - | ldr L:CARG1, CFUNC:CARG3->upvalue[0].gcr - |.endif - | ldr PC, [BASE, FRAME_PC] - | str BASE, L->base - | ldr CARG2, L:CARG1->top - | ldrb RA, L:CARG1->status - | ldr RB, L:CARG1->base - | add CARG3, CARG2, NARGS8:RC - | add CARG4, CARG2, RA - | str PC, SAVE_PC - | cmp CARG4, RB - | beq ->fff_fallback - | ldr CARG4, L:CARG1->maxstack - | ldr RB, L:CARG1->cframe - | cmp RA, #LUA_YIELD - | cmpls CARG3, CARG4 - | cmpls RB, #0 - | bhi ->fff_fallback - |1: - |.if resume - | sub CARG3, CARG3, #8 // Keep resumed thread in stack for GC. - | add BASE, BASE, #8 - | sub NARGS8:RC, NARGS8:RC, #8 - |.endif - | str CARG3, L:CARG1->top - | str BASE, L->top - |2: // Move args to coroutine. - | ldrd CARG34, [BASE, RB] - | cmp RB, NARGS8:RC - | strdne CARG34, [CARG2, RB] - | add RB, RB, #8 - | bne <2 - | - | mov CARG3, #0 - | mov L:RA, L:CARG1 - | mov CARG4, #0 - | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | // Returns thread status. - |4: - | ldr CARG3, L:RA->base - | mv_vmstate CARG2, INTERP - | ldr CARG4, L:RA->top - | cmp CRET1, #LUA_YIELD - | ldr BASE, L->base - | str L, [DISPATCH, #DISPATCH_GL(cur_L)] - | st_vmstate CARG2 - | bhi >8 - | subs RC, CARG4, CARG3 - | ldr CARG1, L->maxstack - | add CARG2, BASE, RC - | beq >6 // No results? - | cmp CARG2, CARG1 - | mov RB, #0 - | bhi >9 // Need to grow stack? - | - | sub CARG4, RC, #8 - | str CARG3, L:RA->top // Clear coroutine stack. - |5: // Move results from coroutine. - | ldrd CARG12, [CARG3, RB] - | cmp RB, CARG4 - | strd CARG12, [BASE, RB] - | add RB, RB, #8 - | bne <5 - |6: - |.if resume - | mvn CARG3, #~LJ_TTRUE - | add RC, RC, #16 - |7: - | str CARG3, [BASE, #-4] // Prepend true/false to results. - | sub RA, BASE, #8 - |.else - | mov RA, BASE - | add RC, RC, #8 - |.endif - | ands CARG1, PC, #FRAME_TYPE - | str PC, SAVE_PC - | str RC, SAVE_MULTRES - | beq ->BC_RET_Z - | b ->vm_return - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | ldrd CARG12, [CARG4, #-8]! - | mvn CARG3, #~LJ_TFALSE - | mov RC, #(2+1)*8 - | str CARG4, L:RA->top // Remove error from coroutine stack. - | strd CARG12, [BASE] // Copy error message. - | b <7 - |.else - | mov CARG1, L - | mov CARG2, L:RA - | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) - | // Never returns. - |.endif - | - |9: // Handle stack expansion on return from yield. - | mov CARG1, L - | lsr CARG2, RC, #3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | mov CRET1, #0 - | b <4 - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | ldr CARG1, L->cframe - | add CARG2, BASE, NARGS8:RC - | str BASE, L->base - | tst CARG1, #CFRAME_RESUME - | str CARG2, L->top - | mov CRET1, #LUA_YIELD - | mov CARG3, #0 - | beq ->fff_fallback - | str CARG3, L->cframe - | strb CRET1, L->status - | b ->vm_leave_unw - | - |//-- Math library ------------------------------------------------------- - | - |.macro math_round, func - | .ffunc_1 math_ .. func - | checktp CARG2, LJ_TISNUM - | beq ->fff_restv - | bhi ->fff_fallback - | // Round FP value and normalize result. - | lsl CARG3, CARG2, #1 - | adds RB, CARG3, #0x00200000 - | bpl >2 // |x| < 1? - | mvn CARG4, #0x3e0 - | subs RB, CARG4, RB, asr #21 - | lsl CARG4, CARG2, #11 - | lsl CARG3, CARG1, #11 - | orr CARG4, CARG4, #0x80000000 - | rsb INS, RB, #32 - | orr CARG4, CARG4, CARG1, lsr #21 - | bls >3 // |x| >= 2^31? - | orr CARG3, CARG3, CARG4, lsl INS - | lsr CARG1, CARG4, RB - |.if "func" == "floor" - | tst CARG3, CARG2, asr #31 - | addne CARG1, CARG1, #1 - |.else - | bics CARG3, CARG3, CARG2, asr #31 - | addsne CARG1, CARG1, #1 - | ldrdvs CARG12, >9 - | bvs ->fff_restv - |.endif - | cmp CARG2, #0 - | rsblt CARG1, CARG1, #0 - |1: - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - | - |2: // |x| < 1 - | bcs ->fff_restv // |x| is not finite. - | orr CARG3, CARG3, CARG1 // ztest = abs(hi) | lo - |.if "func" == "floor" - | tst CARG3, CARG2, asr #31 // return (ztest & sign) == 0 ? 0 : -1 - | moveq CARG1, #0 - | mvnne CARG1, #0 - |.else - | bics CARG3, CARG3, CARG2, asr #31 // return (ztest & ~sign) == 0 ? 0 : 1 - | moveq CARG1, #0 - | movne CARG1, #1 - |.endif - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - | - |3: // |x| >= 2^31. Check for x == -(2^31). - | cmpeq CARG4, #0x80000000 - |.if "func" == "floor" - | cmpeq CARG3, #0 - |.endif - | bne >4 - | cmp CARG2, #0 - | movmi CARG1, #0x80000000 - | bmi <1 - |4: - | bl ->vm_..func.._sf - | b ->fff_restv - |.endmacro - | - | math_round floor - | math_round ceil - | - |.align 8 - |9: - | .long 0x00000000, 0x41e00000 // 2^31. - | - |.ffunc_1 math_abs - | checktp CARG2, LJ_TISNUM - | bhi ->fff_fallback - | bicne CARG2, CARG2, #0x80000000 - | bne ->fff_restv - | cmp CARG1, #0 - | rsbslt CARG1, CARG1, #0 - | ldrdvs CARG12, <9 - | // Fallthrough. - | - |->fff_restv: - | // CARG12 = TValue result. - | ldr PC, [BASE, FRAME_PC] - | strd CARG12, [BASE, #-8] - |->fff_res1: - | // PC = return. - | mov RC, #(1+1)*8 - |->fff_res: - | // RC = (nresults+1)*8, PC = return. - | ands CARG1, PC, #FRAME_TYPE - | ldreq INS, [PC, #-4] - | str RC, SAVE_MULTRES - | sub RA, BASE, #8 - | bne ->vm_return - | decode_RB8 RB, INS - |5: - | cmp RB, RC // More results expected? - | bhi >6 - | decode_RA8 CARG1, INS - | ins_next1 - | ins_next2 - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | sub BASE, RA, CARG1 - | ins_next3 - | - |6: // Fill up results with nil. - | add CARG2, RA, RC - | mvn CARG1, #~LJ_TNIL - | add RC, RC, #8 - | str CARG1, [CARG2, #-4] - | b <5 - | - |.macro math_extern, func - |.if HFABI - | .ffunc_d math_ .. func - |.else - | .ffunc_n math_ .. func - |.endif - | .IOS mov RA, BASE - | bl extern func - | .IOS mov BASE, RA - |.if HFABI - | b ->fff_resd - |.else - | b ->fff_restv - |.endif - |.endmacro - | - |.macro math_extern2, func - |.if HFABI - | .ffunc_dd math_ .. func - |.else - | .ffunc_nn math_ .. func - |.endif - | .IOS mov RA, BASE - | bl extern func - | .IOS mov BASE, RA - |.if HFABI - | b ->fff_resd - |.else - | b ->fff_restv - |.endif - |.endmacro - | - |.if FPU - | .ffunc_d math_sqrt - | vsqrt.f64 d0, d0 - |->fff_resd: - | ldr PC, [BASE, FRAME_PC] - | vstr d0, [BASE, #-8] - | b ->fff_res1 - |.else - | math_extern sqrt - |.endif - | - |.ffunc math_log - |.if HFABI - | ldr CARG2, [BASE, #4] - | cmp NARGS8:RC, #8 // Need exactly 1 argument. - | vldr d0, [BASE] - | bne ->fff_fallback - |.else - | ldrd CARG12, [BASE] - | cmp NARGS8:RC, #8 // Need exactly 1 argument. - | bne ->fff_fallback - |.endif - | checktp CARG2, LJ_TISNUM - | bhs ->fff_fallback - | .IOS mov RA, BASE - | bl extern log - | .IOS mov BASE, RA - |.if HFABI - | b ->fff_resd - |.else - | b ->fff_restv - |.endif - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |.if HFABI - | .ffunc math_ldexp - | ldr CARG4, [BASE, #4] - | ldrd CARG12, [BASE, #8] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - | vldr d0, [BASE] - | checktp CARG4, LJ_TISNUM - | bhs ->fff_fallback - | checktp CARG2, LJ_TISNUM - | bne ->fff_fallback - | .IOS mov RA, BASE - | bl extern ldexp // (double x, int exp) - | .IOS mov BASE, RA - | b ->fff_resd - |.else - |.ffunc_2 math_ldexp - | checktp CARG2, LJ_TISNUM - | bhs ->fff_fallback - | checktp CARG4, LJ_TISNUM - | bne ->fff_fallback - | .IOS mov RA, BASE - | bl extern ldexp // (double x, int exp) - | .IOS mov BASE, RA - | b ->fff_restv - |.endif - | - |.if HFABI - |.ffunc_d math_frexp - | mov CARG1, sp - | .IOS mov RA, BASE - | bl extern frexp - | .IOS mov BASE, RA - | ldr CARG3, [sp] - | mvn CARG4, #~LJ_TISNUM - | ldr PC, [BASE, FRAME_PC] - | vstr d0, [BASE, #-8] - | mov RC, #(2+1)*8 - | strd CARG34, [BASE] - | b ->fff_res - |.else - |.ffunc_n math_frexp - | mov CARG3, sp - | .IOS mov RA, BASE - | bl extern frexp - | .IOS mov BASE, RA - | ldr CARG3, [sp] - | mvn CARG4, #~LJ_TISNUM - | ldr PC, [BASE, FRAME_PC] - | strd CARG12, [BASE, #-8] - | mov RC, #(2+1)*8 - | strd CARG34, [BASE] - | b ->fff_res - |.endif - | - |.if HFABI - |.ffunc_d math_modf - | sub CARG1, BASE, #8 - | ldr PC, [BASE, FRAME_PC] - | .IOS mov RA, BASE - | bl extern modf - | .IOS mov BASE, RA - | mov RC, #(2+1)*8 - | vstr d0, [BASE] - | b ->fff_res - |.else - |.ffunc_n math_modf - | sub CARG3, BASE, #8 - | ldr PC, [BASE, FRAME_PC] - | .IOS mov RA, BASE - | bl extern modf - | .IOS mov BASE, RA - | mov RC, #(2+1)*8 - | strd CARG12, [BASE] - | b ->fff_res - |.endif - | - |.macro math_minmax, name, cond, fcond - |.if FPU - | .ffunc_1 name - | add RB, BASE, RC - | checktp CARG2, LJ_TISNUM - | add RA, BASE, #8 - | bne >4 - |1: // Handle integers. - | ldrd CARG34, [RA] - | cmp RA, RB - | bhs ->fff_restv - | checktp CARG4, LJ_TISNUM - | bne >3 - | cmp CARG1, CARG3 - | add RA, RA, #8 - | mov..cond CARG1, CARG3 - | b <1 - |3: // Convert intermediate result to number and continue below. - | vmov s4, CARG1 - | bhi ->fff_fallback - | vldr d1, [RA] - | vcvt.f64.s32 d0, s4 - | b >6 - | - |4: - | vldr d0, [BASE] - | bhi ->fff_fallback - |5: // Handle numbers. - | ldrd CARG34, [RA] - | vldr d1, [RA] - | cmp RA, RB - | bhs ->fff_resd - | checktp CARG4, LJ_TISNUM - | bhs >7 - |6: - | vcmp.f64 d0, d1 - | vmrs - | add RA, RA, #8 - | vmov..fcond.f64 d0, d1 - | b <5 - |7: // Convert integer to number and continue above. - | vmov s4, CARG3 - | bhi ->fff_fallback - | vcvt.f64.s32 d1, s4 - | b <6 - | - |.else - | - | .ffunc_1 name - | checktp CARG2, LJ_TISNUM - | mov RA, #8 - | bne >4 - |1: // Handle integers. - | ldrd CARG34, [BASE, RA] - | cmp RA, RC - | bhs ->fff_restv - | checktp CARG4, LJ_TISNUM - | bne >3 - | cmp CARG1, CARG3 - | add RA, RA, #8 - | mov..cond CARG1, CARG3 - | b <1 - |3: // Convert intermediate result to number and continue below. - | bhi ->fff_fallback - | bl extern __aeabi_i2d - | ldrd CARG34, [BASE, RA] - | b >6 - | - |4: - | bhi ->fff_fallback - |5: // Handle numbers. - | ldrd CARG34, [BASE, RA] - | cmp RA, RC - | bhs ->fff_restv - | checktp CARG4, LJ_TISNUM - | bhs >7 - |6: - | bl extern __aeabi_cdcmple - | add RA, RA, #8 - | mov..fcond CARG1, CARG3 - | mov..fcond CARG2, CARG4 - | b <5 - |7: // Convert integer to number and continue above. - | bhi ->fff_fallback - | strd CARG12, TMPD - | mov CARG1, CARG3 - | bl extern __aeabi_i2d - | ldrd CARG34, TMPD - | b <6 - |.endif - |.endmacro - | - | math_minmax math_min, gt, hi - | math_minmax math_max, lt, lo - | - |//-- String library ----------------------------------------------------- - | - |.ffunc string_byte // Only handle the 1-arg case here. - | ldrd CARG12, [BASE] - | ldr PC, [BASE, FRAME_PC] - | cmp NARGS8:RC, #8 - | checktpeq CARG2, LJ_TSTR // Need exactly 1 argument. - | bne ->fff_fallback - | ldr CARG3, STR:CARG1->len - | ldrb CARG1, STR:CARG1[1] // Access is always ok (NUL at end). - | mvn CARG2, #~LJ_TISNUM - | cmp CARG3, #0 - | moveq RC, #(0+1)*8 - | movne RC, #(1+1)*8 - | strd CARG12, [BASE, #-8] - | b ->fff_res - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | ldrd CARG12, [BASE] - | ldr PC, [BASE, FRAME_PC] - | cmp NARGS8:RC, #8 // Need exactly 1 argument. - | checktpeq CARG2, LJ_TISNUM - | bicseq CARG4, CARG1, #255 - | mov CARG3, #1 - | bne ->fff_fallback - | str CARG1, TMPD - | mov CARG2, TMPDp // Points to stack. Little-endian. - |->fff_newstr: - | // CARG2 = str, CARG3 = len. - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_str_new // (lua_State *L, char *str, size_t l) - |->fff_resstr: - | // Returns GCstr *. - | ldr BASE, L->base - | mvn CARG2, #~LJ_TSTR - | b ->fff_restv - | - |.ffunc string_sub - | ffgccheck - | ldrd CARG12, [BASE] - | ldrd CARG34, [BASE, #16] - | cmp NARGS8:RC, #16 - | mvn RB, #0 - | beq >1 - | blo ->fff_fallback - | checktp CARG4, LJ_TISNUM - | mov RB, CARG3 - | bne ->fff_fallback - |1: - | ldrd CARG34, [BASE, #8] - | checktp CARG2, LJ_TSTR - | ldreq CARG2, STR:CARG1->len - | checktpeq CARG4, LJ_TISNUM - | bne ->fff_fallback - | // CARG1 = str, CARG2 = str->len, CARG3 = start, RB = end - | add CARG4, CARG2, #1 - | cmp CARG3, #0 // if (start < 0) start += len+1 - | addlt CARG3, CARG3, CARG4 - | cmp CARG3, #1 // if (start < 1) start = 1 - | movlt CARG3, #1 - | cmp RB, #0 // if (end < 0) end += len+1 - | addlt RB, RB, CARG4 - | bic RB, RB, RB, asr #31 // if (end < 0) end = 0 - | cmp RB, CARG2 // if (end > len) end = len - | add CARG1, STR:CARG1, #sizeof(GCstr)-1 - | movgt RB, CARG2 - | add CARG2, CARG1, CARG3 - | subs CARG3, RB, CARG3 // len = end - start - | add CARG3, CARG3, #1 // len += 1 - | bge ->fff_newstr - |->fff_emptystr: - | sub STR:CARG1, DISPATCH, #-DISPATCH_GL(strempty) - | mvn CARG2, #~LJ_TSTR - | b ->fff_restv - | - |.macro ffstring_op, name - | .ffunc string_ .. name - | ffgccheck - | ldr CARG3, [BASE, #4] - | cmp NARGS8:RC, #8 - | ldr STR:CARG2, [BASE] - | blo ->fff_fallback - | sub SBUF:CARG1, DISPATCH, #-DISPATCH_GL(tmpbuf) - | checkstr CARG3, ->fff_fallback - | ldr CARG4, SBUF:CARG1->b - | str BASE, L->base - | str PC, SAVE_PC - | str L, SBUF:CARG1->L - | str CARG4, SBUF:CARG1->p - | bl extern lj_buf_putstr_ .. name - | bl extern lj_buf_tostr - | b ->fff_resstr - |.endmacro - | - |ffstring_op reverse - |ffstring_op lower - |ffstring_op upper - | - |//-- Bit library -------------------------------------------------------- - | - |// FP number to bit conversion for soft-float. Clobbers r0-r3. - |->vm_tobit_fb: - | bhi ->fff_fallback - |->vm_tobit: - | lsl RB, CARG2, #1 - | adds RB, RB, #0x00200000 - | movpl CARG1, #0 // |x| < 1? - | bxpl lr - | mvn CARG4, #0x3e0 - | subs RB, CARG4, RB, asr #21 - | bmi >1 // |x| >= 2^32? - | lsl CARG4, CARG2, #11 - | orr CARG4, CARG4, #0x80000000 - | orr CARG4, CARG4, CARG1, lsr #21 - | cmp CARG2, #0 - | lsr CARG1, CARG4, RB - | rsblt CARG1, CARG1, #0 - | bx lr - |1: - | add RB, RB, #21 - | lsr CARG4, CARG1, RB - | rsb RB, RB, #20 - | lsl CARG1, CARG2, #12 - | cmp CARG2, #0 - | orr CARG1, CARG4, CARG1, lsl RB - | rsblt CARG1, CARG1, #0 - | bx lr - | - |.macro .ffunc_bit, name - | .ffunc_1 bit_..name - | checktp CARG2, LJ_TISNUM - | blne ->vm_tobit_fb - |.endmacro - | - |.ffunc_bit tobit - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name - | mov CARG3, CARG1 - | mov RA, #8 - |1: - | ldrd CARG12, [BASE, RA] - | cmp RA, NARGS8:RC - | add RA, RA, #8 - | bge >2 - | checktp CARG2, LJ_TISNUM - | blne ->vm_tobit_fb - | ins CARG3, CARG3, CARG1 - | b <1 - |.endmacro - | - |.ffunc_bit_op band, and - |.ffunc_bit_op bor, orr - |.ffunc_bit_op bxor, eor - | - |2: - | mvn CARG4, #~LJ_TISNUM - | ldr PC, [BASE, FRAME_PC] - | strd CARG34, [BASE, #-8] - | b ->fff_res1 - | - |.ffunc_bit bswap - | eor CARG3, CARG1, CARG1, ror #16 - | bic CARG3, CARG3, #0x00ff0000 - | ror CARG1, CARG1, #8 - | mvn CARG2, #~LJ_TISNUM - | eor CARG1, CARG1, CARG3, lsr #8 - | b ->fff_restv - | - |.ffunc_bit bnot - | mvn CARG1, CARG1 - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - | - |.macro .ffunc_bit_sh, name, ins, shmod - | .ffunc bit_..name - | ldrd CARG12, [BASE, #8] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - | checktp CARG2, LJ_TISNUM - | blne ->vm_tobit_fb - |.if shmod == 0 - | and RA, CARG1, #31 - |.else - | rsb RA, CARG1, #0 - |.endif - | ldrd CARG12, [BASE] - | checktp CARG2, LJ_TISNUM - | blne ->vm_tobit_fb - | ins CARG1, CARG1, RA - | mvn CARG2, #~LJ_TISNUM - | b ->fff_restv - |.endmacro - | - |.ffunc_bit_sh lshift, lsl, 0 - |.ffunc_bit_sh rshift, lsr, 0 - |.ffunc_bit_sh arshift, asr, 0 - |.ffunc_bit_sh rol, ror, 1 - |.ffunc_bit_sh ror, ror, 0 - | - |//----------------------------------------------------------------------- - | - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RC = nargs*8 - | ldr CARG3, [BASE, FRAME_FUNC] - | ldr CARG2, L->maxstack - | add CARG1, BASE, NARGS8:RC - | ldr PC, [BASE, FRAME_PC] // Fallback may overwrite PC. - | str CARG1, L->top - | ldr CARG3, CFUNC:CARG3->f - | str BASE, L->base - | add CARG1, CARG1, #8*LUA_MINSTACK - | str PC, SAVE_PC // Redundant (but a defined value). - | cmp CARG1, CARG2 - | mov CARG1, L - | bhi >5 // Need to grow stack. - | blx CARG3 // (lua_State *L) - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | ldr BASE, L->base - | cmp CRET1, #0 - | lsl RC, CRET1, #3 - | sub RA, BASE, #8 - | bgt ->fff_res // Returned nresults+1? - |1: // Returned 0 or -1: retry fast path. - | ldr CARG1, L->top - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | sub NARGS8:RC, CARG1, BASE - | bne ->vm_call_tail // Returned -1? - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | ands CARG1, PC, #FRAME_TYPE - | bic CARG2, PC, #FRAME_TYPEP - | ldreq INS, [PC, #-4] - | andeq CARG2, MASKR8, INS, lsr #5 // Conditional decode_RA8. - | addeq CARG2, CARG2, #8 - | sub RB, BASE, CARG2 - | b ->vm_call_dispatch // Resolve again for tailcall. - | - |5: // Grow stack for fallback handler. - | mov CARG2, #LUA_MINSTACK - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->base - | cmp CARG1, CARG1 // Set zero-flag to force retry. - | b <1 - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RC = nargs*8 - | mov RA, lr - | str BASE, L->base - | add CARG2, BASE, NARGS8:RC - | str PC, SAVE_PC // Redundant (but a defined value). - | str CARG2, L->top - | mov CARG1, L - | bl extern lj_gc_step // (lua_State *L) - | ldr BASE, L->base - | mov lr, RA // Help return address predictor. - | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] - | bx lr - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - |.if JIT - | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] - | tst CARG1, #HOOK_VMEVENT // No recording while in vmevent. - | bne >5 - | // Decrement the hookcount for consistency, but always do the call. - | ldr CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] - | tst CARG1, #HOOK_ACTIVE - | bne >1 - | sub CARG2, CARG2, #1 - | tst CARG1, #LUA_MASKLINE|LUA_MASKCOUNT - | strne CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] - | b >1 - |.endif - | - |->vm_rethook: // Dispatch target for return hooks. - | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] - | tst CARG1, #HOOK_ACTIVE // Hook already active? - | beq >1 - |5: // Re-dispatch to static ins. - | decode_OP OP, INS - | add OP, DISPATCH, OP, lsl #2 - | ldr pc, [OP, #GG_DISP2STATIC] - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | ldrb CARG1, [DISPATCH, #DISPATCH_GL(hookmask)] - | ldr CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] - | tst CARG1, #HOOK_ACTIVE // Hook already active? - | bne <5 - | tst CARG1, #LUA_MASKLINE|LUA_MASKCOUNT - | beq <5 - | subs CARG2, CARG2, #1 - | str CARG2, [DISPATCH, #DISPATCH_GL(hookcount)] - | beq >1 - | tst CARG1, #LUA_MASKLINE - | beq <5 - |1: - | mov CARG1, L - | str BASE, L->base - | mov CARG2, PC - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) - |3: - | ldr BASE, L->base - |4: // Re-dispatch to static ins. - | ldrb OP, [PC, #-4] - | ldr INS, [PC, #-4] - | add OP, DISPATCH, OP, lsl #2 - | ldr OP, [OP, #GG_DISP2STATIC] - | decode_RA8 RA, INS - | decode_RD RC, INS - | bx OP - | - |->cont_hook: // Continue from hook yield. - | ldr CARG1, [CARG4, #-24] - | add PC, PC, #4 - | str CARG1, SAVE_MULTRES // Restore MULTRES for *M ins. - | b <4 - | - |->vm_hotloop: // Hot loop counter underflow. - |.if JIT - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Same as curr_topL(L). - | sub CARG1, DISPATCH, #-GG_DISP2J - | str PC, SAVE_PC - | ldr CARG3, LFUNC:CARG3->field_pc - | mov CARG2, PC - | str L, [DISPATCH, #DISPATCH_J(L)] - | ldrb CARG3, [CARG3, #PC2PROTO(framesize)] - | str BASE, L->base - | add CARG3, BASE, CARG3, lsl #3 - | str CARG3, L->top - | bl extern lj_trace_hot // (jit_State *J, const BCIns *pc) - | b <3 - |.endif - | - |->vm_callhook: // Dispatch target for call hooks. - | mov CARG2, PC - |.if JIT - | b >1 - |.endif - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | orr CARG2, PC, #1 - |1: - |.endif - | add CARG4, BASE, RC - | str PC, SAVE_PC - | mov CARG1, L - | str BASE, L->base - | sub RA, RA, BASE - | str CARG4, L->top - | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) - | // Returns ASMFunction. - | ldr BASE, L->base - | ldr CARG4, L->top - | mov CARG2, #0 - | add RA, BASE, RA - | sub NARGS8:RC, CARG4, BASE - | str CARG2, SAVE_PC // Invalidate for subsequent line hook. - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | ldr INS, [PC, #-4] - | bx CRET1 - | - |->cont_stitch: // Trace stitching. - |.if JIT - | // RA = resultptr, CARG4 = meta base - | ldr RB, SAVE_MULTRES - | ldr INS, [PC, #-4] - | ldr CARG3, [CARG4, #-24] // Save previous trace number. - | subs RB, RB, #8 - | decode_RA8 RC, INS // Call base. - | beq >2 - |1: // Move results down. - | ldrd CARG12, [RA] - | add RA, RA, #8 - | subs RB, RB, #8 - | strd CARG12, [BASE, RC] - | add RC, RC, #8 - | bne <1 - |2: - | decode_RA8 RA, INS - | decode_RB8 RB, INS - | add RA, RA, RB - | ldr CARG1, [DISPATCH, #DISPATCH_J(trace)] - |3: - | cmp RA, RC - | mvn CARG2, #~LJ_TNIL - | bhi >9 // More results wanted? - | - | ldr TRACE:RA, [CARG1, CARG3, lsl #2] - | cmp TRACE:RA, #0 - | beq ->cont_nop - | ldrh RC, TRACE:RA->link - | cmp RC, CARG3 - | beq ->cont_nop // Blacklisted. - | cmp RC, #0 - | bne =>BC_JLOOP // Jump to stitched trace. - | - | // Stitch a new trace to the previous trace. - | str CARG3, [DISPATCH, #DISPATCH_J(exitno)] - | str L, [DISPATCH, #DISPATCH_J(L)] - | str BASE, L->base - | sub CARG1, DISPATCH, #-GG_DISP2J - | mov CARG2, PC - | bl extern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) - | ldr BASE, L->base - | b ->cont_nop - | - |9: // Fill up results with nil. - | strd CARG12, [BASE, RC] - | add RC, RC, #8 - | b <3 - |.endif - | - |->vm_profhook: // Dispatch target for profiler hook. -#if LJ_HASPROFILE - | mov CARG1, L - | str BASE, L->base - | mov CARG2, PC - | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) - | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. - | ldr BASE, L->base - | sub PC, PC, #4 - | b ->cont_nop -#endif - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_exit_handler: - |.if JIT - | sub sp, sp, #12 - | push {r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12} - | ldr CARG1, [sp, #64] // Load original value of lr. - | ldr DISPATCH, [lr] // Load DISPATCH. - | add CARG3, sp, #64 // Recompute original value of sp. - | mv_vmstate CARG4, EXIT - | str CARG3, [sp, #52] // Store sp in RID_SP - | st_vmstate CARG4 - | ldr CARG2, [CARG1, #-4]! // Get exit instruction. - | str CARG1, [sp, #56] // Store exit pc in RID_LR and RID_PC. - | str CARG1, [sp, #60] - |.if FPU - | vpush {d0-d15} - |.endif - | lsl CARG2, CARG2, #8 - | add CARG1, CARG1, CARG2, asr #6 - | ldr CARG2, [lr, #4] // Load exit stub group offset. - | sub CARG1, CARG1, lr - | ldr L, [DISPATCH, #DISPATCH_GL(cur_L)] - | add CARG1, CARG2, CARG1, lsr #2 // Compute exit number. - | ldr BASE, [DISPATCH, #DISPATCH_GL(jit_base)] - | str CARG1, [DISPATCH, #DISPATCH_J(exitno)] - | mov CARG4, #0 - | str BASE, L->base - | str L, [DISPATCH, #DISPATCH_J(L)] - | str CARG4, [DISPATCH, #DISPATCH_GL(jit_base)] - | sub CARG1, DISPATCH, #-GG_DISP2J - | mov CARG2, sp - | bl extern lj_trace_exit // (jit_State *J, ExitState *ex) - | // Returns MULTRES (unscaled) or negated error code. - | ldr CARG2, L->cframe - | ldr BASE, L->base - | bic CARG2, CARG2, #~CFRAME_RAWMASK // Use two steps: bic sp is deprecated. - | mov sp, CARG2 - | ldr PC, SAVE_PC // Get SAVE_PC. - | str L, SAVE_L // Set SAVE_L (on-trace resume/yield). - | b >1 - |.endif - |->vm_exit_interp: - | // CARG1 = MULTRES or negated error code, BASE, PC and DISPATCH set. - |.if JIT - | ldr L, SAVE_L - |1: - | cmp CARG1, #0 - | blt >9 // Check for error from exit. - | lsl RC, CARG1, #3 - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | str RC, SAVE_MULTRES - | mov CARG3, #0 - | str BASE, L->base - | ldr CARG2, LFUNC:CARG2->field_pc - | str CARG3, [DISPATCH, #DISPATCH_GL(jit_base)] - | mv_vmstate CARG4, INTERP - | ldr KBASE, [CARG2, #PC2PROTO(k)] - | // Modified copy of ins_next which handles function header dispatch, too. - | ldrb OP, [PC] - | mov MASKR8, #255 - | ldr INS, [PC], #4 - | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. - | st_vmstate CARG4 - | cmp OP, #BC_FUNCC+2 // Fast function? - | bhs >4 - |2: - | cmp OP, #BC_FUNCF // Function header? - | ldr OP, [DISPATCH, OP, lsl #2] - | decode_RA8 RA, INS - | lsrlo RC, INS, #16 // No: Decode operands A*8 and D. - | subhs RC, RC, #8 - | addhs RA, RA, BASE // Yes: RA = BASE+framesize*8, RC = nargs*8 - | ldrhs CARG3, [BASE, FRAME_FUNC] - | bx OP - | - |4: // Check frame below fast function. - | ldr CARG1, [BASE, FRAME_PC] - | ands CARG2, CARG1, #FRAME_TYPE - | bne <2 // Trace stitching continuation? - | // Otherwise set KBASE for Lua function below fast function. - | ldr CARG3, [CARG1, #-4] - | decode_RA8 CARG1, CARG3 - | sub CARG2, BASE, CARG1 - | ldr LFUNC:CARG3, [CARG2, #-16] - | ldr CARG3, LFUNC:CARG3->field_pc - | ldr KBASE, [CARG3, #PC2PROTO(k)] - | b <2 - | - |9: // Rethrow error from the right C frame. - | rsb CARG2, CARG1, #0 - | mov CARG1, L - | bl extern lj_err_throw // (lua_State *L, int errcode) - |.endif - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - |// FP value rounding. Called from JIT code. - |// - |// double lj_vm_floor/ceil/trunc(double x); - |.macro vm_round, func, hf - |.if hf == 1 - | vmov CARG1, CARG2, d0 - |.endif - | lsl CARG3, CARG2, #1 - | adds RB, CARG3, #0x00200000 - | bpl >2 // |x| < 1? - | mvn CARG4, #0x3cc - | subs RB, CARG4, RB, asr #21 // 2^0: RB = 51, 2^51: RB = 0. - | bxlo lr // |x| >= 2^52: done. - | mvn CARG4, #1 - | bic CARG3, CARG1, CARG4, lsl RB // ztest = lo & ~lomask - | and CARG1, CARG1, CARG4, lsl RB // lo &= lomask - | subs RB, RB, #32 - | bicpl CARG4, CARG2, CARG4, lsl RB // |x| <= 2^20: ztest |= hi & ~himask - | orrpl CARG3, CARG3, CARG4 - | mvnpl CARG4, #1 - | andpl CARG2, CARG2, CARG4, lsl RB // |x| <= 2^20: hi &= himask - |.if "func" == "floor" - | tst CARG3, CARG2, asr #31 // iszero = ((ztest & signmask) == 0) - |.else - | bics CARG3, CARG3, CARG2, asr #31 // iszero = ((ztest & ~signmask) == 0) - |.endif - |.if hf == 1 - | vmoveq d0, CARG1, CARG2 - |.endif - | bxeq lr // iszero: done. - | mvn CARG4, #1 - | cmp RB, #0 - | lslpl CARG3, CARG4, RB - | mvnmi CARG3, #0 - | add RB, RB, #32 - | subs CARG1, CARG1, CARG4, lsl RB // lo = lo-lomask - | sbc CARG2, CARG2, CARG3 // hi = hi-himask+carry - |.if hf == 1 - | vmov d0, CARG1, CARG2 - |.endif - | bx lr - | - |2: // |x| < 1: - | bxcs lr // |x| is not finite. - | orr CARG3, CARG3, CARG1 // ztest = (2*hi) | lo - |.if "func" == "floor" - | tst CARG3, CARG2, asr #31 // iszero = ((ztest & signmask) == 0) - |.else - | bics CARG3, CARG3, CARG2, asr #31 // iszero = ((ztest & ~signmask) == 0) - |.endif - | mov CARG1, #0 // lo = 0 - | and CARG2, CARG2, #0x80000000 - | ldrne CARG4, <9 // hi = sign(x) | (iszero ? 0.0 : 1.0) - | orrne CARG2, CARG2, CARG4 - |.if hf == 1 - | vmov d0, CARG1, CARG2 - |.endif - | bx lr - |.endmacro - | - |9: - | .long 0x3ff00000 // hiword(+1.0) - | - |->vm_floor: - |.if HFABI - | vm_round floor, 1 - |.endif - |->vm_floor_sf: - | vm_round floor, 0 - | - |->vm_ceil: - |.if HFABI - | vm_round ceil, 1 - |.endif - |->vm_ceil_sf: - | vm_round ceil, 0 - | - |.macro vm_trunc, hf - |.if JIT - |.if hf == 1 - | vmov CARG1, CARG2, d0 - |.endif - | lsl CARG3, CARG2, #1 - | adds RB, CARG3, #0x00200000 - | andpl CARG2, CARG2, #0x80000000 // |x| < 1? hi = sign(x), lo = 0. - | movpl CARG1, #0 - |.if hf == 1 - | vmovpl d0, CARG1, CARG2 - |.endif - | bxpl lr - | mvn CARG4, #0x3cc - | subs RB, CARG4, RB, asr #21 // 2^0: RB = 51, 2^51: RB = 0. - | bxlo lr // |x| >= 2^52: already done. - | mvn CARG4, #1 - | and CARG1, CARG1, CARG4, lsl RB // lo &= lomask - | subs RB, RB, #32 - | andpl CARG2, CARG2, CARG4, lsl RB // |x| <= 2^20: hi &= himask - |.if hf == 1 - | vmov d0, CARG1, CARG2 - |.endif - | bx lr - |.endif - |.endmacro - | - |->vm_trunc: - |.if HFABI - | vm_trunc 1 - |.endif - |->vm_trunc_sf: - | vm_trunc 0 - | - | // double lj_vm_mod(double dividend, double divisor); - |->vm_mod: - |.if FPU - | // Special calling convention. Also, RC (r11) is not preserved. - | vdiv.f64 d0, d6, d7 - | mov RC, lr - | vmov CARG1, CARG2, d0 - | bl ->vm_floor_sf - | vmov d0, CARG1, CARG2 - | vmul.f64 d0, d0, d7 - | mov lr, RC - | vsub.f64 d6, d6, d0 - | bx lr - |.else - | push {r0, r1, r2, r3, r4, lr} - | bl extern __aeabi_ddiv - | bl ->vm_floor_sf - | ldrd CARG34, [sp, #8] - | bl extern __aeabi_dmul - | ldrd CARG34, [sp] - | eor CARG2, CARG2, #0x80000000 - | bl extern __aeabi_dadd - | add sp, sp, #20 - | pop {pc} - |.endif - | - | // int lj_vm_modi(int dividend, int divisor); - |->vm_modi: - | ands RB, CARG1, #0x80000000 - | rsbmi CARG1, CARG1, #0 // a = |dividend| - | eor RB, RB, CARG2, asr #1 // Keep signdiff and sign(divisor). - | cmp CARG2, #0 - | rsbmi CARG2, CARG2, #0 // b = |divisor| - | subs CARG4, CARG2, #1 - | cmpne CARG1, CARG2 - | moveq CARG1, #0 // if (b == 1 || a == b) a = 0 - | tsthi CARG2, CARG4 - | andeq CARG1, CARG1, CARG4 // else if ((b & (b-1)) == 0) a &= b-1 - | bls >1 - | // Use repeated subtraction to get the remainder. - | clz CARG3, CARG1 - | clz CARG4, CARG2 - | sub CARG4, CARG4, CARG3 - | rsbs CARG3, CARG4, #31 // entry = (31-(clz(b)-clz(a)))*8 - | addne pc, pc, CARG3, lsl #3 // Duff's device. - | nop - { - int i; - for (i = 31; i >= 0; i--) { - | cmp CARG1, CARG2, lsl #i - | subhs CARG1, CARG1, CARG2, lsl #i - } - } - |1: - | cmp CARG1, #0 - | cmpne RB, #0 - | submi CARG1, CARG1, CARG2 // if (y != 0 && signdiff) y = y - b - | eors CARG2, CARG1, RB, lsl #1 - | rsbmi CARG1, CARG1, #0 // if (sign(divisor) != sign(y)) y = -y - | bx lr - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Handler for callback functions. - |// Saveregs already performed. Callback slot number in [sp], g in r12. - |->vm_ffi_callback: - |.if FFI - |.type CTSTATE, CTState, PC - | ldr CTSTATE, GL:r12->ctype_state - | add DISPATCH, r12, #GG_G2DISP - |.if FPU - | str r4, SAVE_R4 - | add r4, sp, CFRAME_SPACE+4+8*8 - | vstmdb r4!, {d8-d15} - |.endif - |.if HFABI - | add r12, CTSTATE, #offsetof(CTState, cb.fpr[8]) - |.endif - | strd CARG34, CTSTATE->cb.gpr[2] - | strd CARG12, CTSTATE->cb.gpr[0] - |.if HFABI - | vstmdb r12!, {d0-d7} - |.endif - | ldr CARG4, [sp] - | add CARG3, sp, #CFRAME_SIZE - | mov CARG1, CTSTATE - | lsr CARG4, CARG4, #3 - | str CARG3, CTSTATE->cb.stack - | mov CARG2, sp - | str CARG4, CTSTATE->cb.slot - | str CTSTATE, SAVE_PC // Any value outside of bytecode is ok. - | bl extern lj_ccallback_enter // (CTState *cts, void *cf) - | // Returns lua_State *. - | ldr BASE, L:CRET1->base - | mv_vmstate CARG2, INTERP - | ldr RC, L:CRET1->top - | mov MASKR8, #255 - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | mov L, CRET1 - | sub RC, RC, BASE - | lsl MASKR8, MASKR8, #3 // MASKR8 = 255*8. - | st_vmstate CARG2 - | ins_callt - |.endif - | - |->cont_ffi_callback: // Return from FFI callback. - |.if FFI - | ldr CTSTATE, [DISPATCH, #DISPATCH_GL(ctype_state)] - | str BASE, L->base - | str CARG4, L->top - | str L, CTSTATE->L - | mov CARG1, CTSTATE - | mov CARG2, RA - | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) - | ldrd CARG12, CTSTATE->cb.gpr[0] - |.if HFABI - | vldr d0, CTSTATE->cb.fpr[0] - |.endif - | b ->vm_leave_unw - |.endif - | - |->vm_ffi_call: // Call C function via FFI. - | // Caveat: needs special frame unwinding, see below. - |.if FFI - | .type CCSTATE, CCallState, r4 - | push {CCSTATE, r5, r11, lr} - | mov CCSTATE, CARG1 - | ldr CARG1, CCSTATE:CARG1->spadj - | ldrb CARG2, CCSTATE->nsp - | add CARG3, CCSTATE, #offsetof(CCallState, stack) - |.if HFABI - | add RB, CCSTATE, #offsetof(CCallState, fpr[0]) - |.endif - | mov r11, sp - | sub sp, sp, CARG1 // Readjust stack. - | subs CARG2, CARG2, #1 - |.if HFABI - | vldm RB, {d0-d7} - |.endif - | ldr RB, CCSTATE->func - | bmi >2 - |1: // Copy stack slots. - | ldr CARG4, [CARG3, CARG2, lsl #2] - | str CARG4, [sp, CARG2, lsl #2] - | subs CARG2, CARG2, #1 - | bpl <1 - |2: - | ldrd CARG12, CCSTATE->gpr[0] - | ldrd CARG34, CCSTATE->gpr[2] - | blx RB - | mov sp, r11 - |.if HFABI - | add r12, CCSTATE, #offsetof(CCallState, fpr[4]) - |.endif - | strd CRET1, CCSTATE->gpr[0] - |.if HFABI - | vstmdb r12!, {d0-d3} - |.endif - | pop {CCSTATE, r5, r11, pc} - |.endif - |// Note: vm_ffi_call must be the last function in this object file! - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1*8, RC = src2, JMP with RC = target - | lsl RC, RC, #3 - | ldrd CARG12, [RA, BASE]! - | ldrh RB, [PC, #2] - | ldrd CARG34, [RC, BASE]! - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | checktp CARG2, LJ_TISNUM - | bne >3 - | checktp CARG4, LJ_TISNUM - | bne >4 - | cmp CARG1, CARG3 - if (op == BC_ISLT) { - | sublt PC, RB, #0x20000 - } else if (op == BC_ISGE) { - | subge PC, RB, #0x20000 - } else if (op == BC_ISLE) { - | suble PC, RB, #0x20000 - } else { - | subgt PC, RB, #0x20000 - } - |1: - | ins_next - | - |3: // CARG12 is not an integer. - |.if FPU - | vldr d0, [RA] - | bhi ->vmeta_comp - | // d0 is a number. - | checktp CARG4, LJ_TISNUM - | vldr d1, [RC] - | blo >5 - | bhi ->vmeta_comp - | // d0 is a number, CARG3 is an integer. - | vmov s4, CARG3 - | vcvt.f64.s32 d1, s4 - | b >5 - |4: // CARG1 is an integer, CARG34 is not an integer. - | vldr d1, [RC] - | bhi ->vmeta_comp - | // CARG1 is an integer, d1 is a number. - | vmov s4, CARG1 - | vcvt.f64.s32 d0, s4 - |5: // d0 and d1 are numbers. - | vcmp.f64 d0, d1 - | vmrs - | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. - if (op == BC_ISLT) { - | sublo PC, RB, #0x20000 - } else if (op == BC_ISGE) { - | subhs PC, RB, #0x20000 - } else if (op == BC_ISLE) { - | subls PC, RB, #0x20000 - } else { - | subhi PC, RB, #0x20000 - } - | b <1 - |.else - | bhi ->vmeta_comp - | // CARG12 is a number. - | checktp CARG4, LJ_TISNUM - | movlo RA, RB // Save RB. - | blo >5 - | bhi ->vmeta_comp - | // CARG12 is a number, CARG3 is an integer. - | mov CARG1, CARG3 - | mov RC, RA - | mov RA, RB // Save RB. - | bl extern __aeabi_i2d - | mov CARG3, CARG1 - | mov CARG4, CARG2 - | ldrd CARG12, [RC] // Restore first operand. - | b >5 - |4: // CARG1 is an integer, CARG34 is not an integer. - | bhi ->vmeta_comp - | // CARG1 is an integer, CARG34 is a number. - | mov RA, RB // Save RB. - | bl extern __aeabi_i2d - | ldrd CARG34, [RC] // Restore second operand. - |5: // CARG12 and CARG34 are numbers. - | bl extern __aeabi_cdcmple - | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. - if (op == BC_ISLT) { - | sublo PC, RA, #0x20000 - } else if (op == BC_ISGE) { - | subhs PC, RA, #0x20000 - } else if (op == BC_ISLE) { - | subls PC, RA, #0x20000 - } else { - | subhi PC, RA, #0x20000 - } - | b <1 - |.endif - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | // RA = src1*8, RC = src2, JMP with RC = target - | lsl RC, RC, #3 - | ldrd CARG12, [RA, BASE]! - | ldrh RB, [PC, #2] - | ldrd CARG34, [RC, BASE]! - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | checktp CARG2, LJ_TISNUM - | cmnls CARG4, #-LJ_TISNUM - if (vk) { - | bls ->BC_ISEQN_Z - } else { - | bls ->BC_ISNEN_Z - } - | // Either or both types are not numbers. - |.if FFI - | checktp CARG2, LJ_TCDATA - | checktpne CARG4, LJ_TCDATA - | beq ->vmeta_equal_cd - |.endif - | cmp CARG2, CARG4 // Compare types. - | bne >2 // Not the same type? - | checktp CARG2, LJ_TISPRI - | bhs >1 // Same type and primitive type? - | - | // Same types and not a primitive type. Compare GCobj or pvalue. - | cmp CARG1, CARG3 - if (vk) { - | bne >3 // Different GCobjs or pvalues? - |1: // Branch if same. - | sub PC, RB, #0x20000 - |2: // Different. - | ins_next - |3: - | checktp CARG2, LJ_TISTABUD - | bhi <2 // Different objects and not table/ud? - } else { - | beq >1 // Same GCobjs or pvalues? - | checktp CARG2, LJ_TISTABUD - | bhi >2 // Different objects and not table/ud? - } - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | ldr TAB:RA, TAB:CARG1->metatable - | cmp TAB:RA, #0 - if (vk) { - | beq <2 // No metatable? - } else { - | beq >2 // No metatable? - } - | ldrb RA, TAB:RA->nomm - | mov CARG4, #1-vk // ne = 0 or 1. - | mov CARG2, CARG1 - | tst RA, #1<vmeta_equal // 'no __eq' flag not set? - if (vk) { - | b <2 - } else { - |2: // Branch if different. - | sub PC, RB, #0x20000 - |1: // Same. - | ins_next - } - break; - - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | // RA = src*8, RC = str_const (~), JMP with RC = target - | mvn RC, RC - | ldrd CARG12, [BASE, RA] - | ldrh RB, [PC, #2] - | ldr STR:CARG3, [KBASE, RC, lsl #2] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | checktp CARG2, LJ_TSTR - |.if FFI - | bne >7 - | cmp CARG1, CARG3 - |.else - | cmpeq CARG1, CARG3 - |.endif - if (vk) { - | subeq PC, RB, #0x20000 - |1: - } else { - |1: - | subne PC, RB, #0x20000 - } - | ins_next - | - |.if FFI - |7: - | checktp CARG2, LJ_TCDATA - | bne <1 - | b ->vmeta_equal_cd - |.endif - break; - - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | // RA = src*8, RC = num_const (~), JMP with RC = target - | lsl RC, RC, #3 - | ldrd CARG12, [RA, BASE]! - | ldrh RB, [PC, #2] - | ldrd CARG34, [RC, KBASE]! - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - if (vk) { - |->BC_ISEQN_Z: - } else { - |->BC_ISNEN_Z: - } - | checktp CARG2, LJ_TISNUM - | bne >3 - | checktp CARG4, LJ_TISNUM - | bne >4 - | cmp CARG1, CARG3 - if (vk) { - | subeq PC, RB, #0x20000 - |1: - } else { - |1: - | subne PC, RB, #0x20000 - } - |2: - | ins_next - | - |3: // CARG12 is not an integer. - |.if FFI - | bhi >7 - |.else - if (!vk) { - | subhi PC, RB, #0x20000 - } - | bhi <2 - |.endif - |.if FPU - | checktp CARG4, LJ_TISNUM - | vmov s4, CARG3 - | vldr d0, [RA] - | vldrlo d1, [RC] - | vcvths.f64.s32 d1, s4 - | b >5 - |4: // CARG1 is an integer, d1 is a number. - | vmov s4, CARG1 - | vldr d1, [RC] - | vcvt.f64.s32 d0, s4 - |5: // d0 and d1 are numbers. - | vcmp.f64 d0, d1 - | vmrs - if (vk) { - | subeq PC, RB, #0x20000 - } else { - | subne PC, RB, #0x20000 - } - | b <2 - |.else - | // CARG12 is a number. - | checktp CARG4, LJ_TISNUM - | movlo RA, RB // Save RB. - | blo >5 - | // CARG12 is a number, CARG3 is an integer. - | mov CARG1, CARG3 - | mov RC, RA - |4: // CARG1 is an integer, CARG34 is a number. - | mov RA, RB // Save RB. - | bl extern __aeabi_i2d - | ldrd CARG34, [RC] // Restore other operand. - |5: // CARG12 and CARG34 are numbers. - | bl extern __aeabi_cdcmpeq - if (vk) { - | subeq PC, RA, #0x20000 - } else { - | subne PC, RA, #0x20000 - } - | b <2 - |.endif - | - |.if FFI - |7: - | checktp CARG2, LJ_TCDATA - | bne <1 - | b ->vmeta_equal_cd - |.endif - break; - - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | // RA = src*8, RC = primitive_type (~), JMP with RC = target - | ldrd CARG12, [BASE, RA] - | ldrh RB, [PC, #2] - | add PC, PC, #4 - | mvn RC, RC - | add RB, PC, RB, lsl #2 - |.if FFI - | checktp CARG2, LJ_TCDATA - | beq ->vmeta_equal_cd - |.endif - | cmp CARG2, RC - if (vk) { - | subeq PC, RB, #0x20000 - } else { - | subne PC, RB, #0x20000 - } - | ins_next - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | // RA = dst*8 or unused, RC = src, JMP with RC = target - | add RC, BASE, RC, lsl #3 - | ldrh RB, [PC, #2] - | ldrd CARG12, [RC] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | checktp CARG2, LJ_TTRUE - if (op == BC_ISTC || op == BC_IST) { - | subls PC, RB, #0x20000 - if (op == BC_ISTC) { - | strdls CARG12, [BASE, RA] - } - } else { - | subhi PC, RB, #0x20000 - if (op == BC_ISFC) { - | strdhi CARG12, [BASE, RA] - } - } - | ins_next - break; - - case BC_ISTYPE: - | // RA = src*8, RC = -type - | ldrd CARG12, [BASE, RA] - | ins_next1 - | cmn CARG2, RC - | ins_next2 - | bne ->vmeta_istype - | ins_next3 - break; - case BC_ISNUM: - | // RA = src*8, RC = -(TISNUM-1) - | ldrd CARG12, [BASE, RA] - | ins_next1 - | checktp CARG2, LJ_TISNUM - | ins_next2 - | bhs ->vmeta_istype - | ins_next3 - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | // RA = dst*8, RC = src - | lsl RC, RC, #3 - | ins_next1 - | ldrd CARG12, [BASE, RC] - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - case BC_NOT: - | // RA = dst*8, RC = src - | add RC, BASE, RC, lsl #3 - | ins_next1 - | ldr CARG1, [RC, #4] - | add RA, BASE, RA - | ins_next2 - | checktp CARG1, LJ_TTRUE - | mvnls CARG2, #~LJ_TFALSE - | mvnhi CARG2, #~LJ_TTRUE - | str CARG2, [RA, #4] - | ins_next3 - break; - case BC_UNM: - | // RA = dst*8, RC = src - | lsl RC, RC, #3 - | ldrd CARG12, [BASE, RC] - | ins_next1 - | ins_next2 - | checktp CARG2, LJ_TISNUM - | bhi ->vmeta_unm - | eorne CARG2, CARG2, #0x80000000 - | bne >5 - | rsbseq CARG1, CARG1, #0 - | ldrdvs CARG12, >9 - |5: - | strd CARG12, [BASE, RA] - | ins_next3 - | - |.align 8 - |9: - | .long 0x00000000, 0x41e00000 // 2^31. - break; - case BC_LEN: - | // RA = dst*8, RC = src - | lsl RC, RC, #3 - | ldrd CARG12, [BASE, RC] - | checkstr CARG2, >2 - | ldr CARG1, STR:CARG1->len - |1: - | mvn CARG2, #~LJ_TISNUM - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - |2: - | checktab CARG2, ->vmeta_len -#if LJ_52 - | ldr TAB:CARG3, TAB:CARG1->metatable - | cmp TAB:CARG3, #0 - | bne >9 - |3: -#endif - |->BC_LEN_Z: - | .IOS mov RC, BASE - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | .IOS mov BASE, RC - | b <1 -#if LJ_52 - |9: - | ldrb CARG4, TAB:CARG3->nomm - | tst CARG4, #1<vmeta_len -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithcheck, cond, ncond, target - ||if (vk == 1) { - | cmn CARG4, #-LJ_TISNUM - | cmn..cond CARG2, #-LJ_TISNUM - ||} else { - | cmn CARG2, #-LJ_TISNUM - | cmn..cond CARG4, #-LJ_TISNUM - ||} - | b..ncond target - |.endmacro - |.macro ins_arithcheck_int, target - | ins_arithcheck eq, ne, target - |.endmacro - |.macro ins_arithcheck_num, target - | ins_arithcheck lo, hs, target - |.endmacro - | - |.macro ins_arithpre - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | .if FPU - | ldrd CARG12, [RB, BASE]! - | ldrd CARG34, [RC, KBASE]! - | .else - | ldrd CARG12, [BASE, RB] - | ldrd CARG34, [KBASE, RC] - | .endif - || break; - ||case 1: - | .if FPU - | ldrd CARG34, [RB, BASE]! - | ldrd CARG12, [RC, KBASE]! - | .else - | ldrd CARG34, [BASE, RB] - | ldrd CARG12, [KBASE, RC] - | .endif - || break; - ||default: - | .if FPU - | ldrd CARG12, [RB, BASE]! - | ldrd CARG34, [RC, BASE]! - | .else - | ldrd CARG12, [BASE, RB] - | ldrd CARG34, [BASE, RC] - | .endif - || break; - ||} - |.endmacro - | - |.macro ins_arithpre_fpu, reg1, reg2 - |.if FPU - ||if (vk == 1) { - | vldr reg2, [RB] - | vldr reg1, [RC] - ||} else { - | vldr reg1, [RB] - | vldr reg2, [RC] - ||} - |.endif - |.endmacro - | - |.macro ins_arithpost_fpu, reg - | ins_next1 - | add RA, BASE, RA - | ins_next2 - | vstr reg, [RA] - | ins_next3 - |.endmacro - | - |.macro ins_arithfallback, ins - ||switch (vk) { - ||case 0: - | ins ->vmeta_arith_vn - || break; - ||case 1: - | ins ->vmeta_arith_nv - || break; - ||default: - | ins ->vmeta_arith_vv - || break; - ||} - |.endmacro - | - |.macro ins_arithdn, intins, fpins, fpcall - | ins_arithpre - |.if "intins" ~= "vm_modi" and not FPU - | ins_next1 - |.endif - | ins_arithcheck_int >5 - |.if "intins" == "smull" - | smull CARG1, RC, CARG3, CARG1 - | cmp RC, CARG1, asr #31 - | ins_arithfallback bne - |.elif "intins" == "vm_modi" - | movs CARG2, CARG3 - | ins_arithfallback beq - | bl ->vm_modi - | mvn CARG2, #~LJ_TISNUM - |.else - | intins CARG1, CARG1, CARG3 - | ins_arithfallback bvs - |.endif - |4: - |.if "intins" == "vm_modi" or FPU - | ins_next1 - |.endif - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - |5: // FP variant. - | ins_arithpre_fpu d6, d7 - | ins_arithfallback ins_arithcheck_num - |.if FPU - |.if "intins" == "vm_modi" - | bl fpcall - |.else - | fpins d6, d6, d7 - |.endif - | ins_arithpost_fpu d6 - |.else - | bl fpcall - |.if "intins" ~= "vm_modi" - | ins_next1 - |.endif - | b <4 - |.endif - |.endmacro - | - |.macro ins_arithfp, fpins, fpcall - | ins_arithpre - |.if "fpins" ~= "extern" or HFABI - | ins_arithpre_fpu d0, d1 - |.endif - | ins_arithfallback ins_arithcheck_num - |.if "fpins" == "extern" - | .IOS mov RC, BASE - | bl fpcall - | .IOS mov BASE, RC - |.elif FPU - | fpins d0, d0, d1 - |.else - | bl fpcall - |.endif - |.if ("fpins" ~= "extern" or HFABI) and FPU - | ins_arithpost_fpu d0 - |.else - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - |.endif - |.endmacro - - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arithdn adds, vadd.f64, extern __aeabi_dadd - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arithdn subs, vsub.f64, extern __aeabi_dsub - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arithdn smull, vmul.f64, extern __aeabi_dmul - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arithfp vdiv.f64, extern __aeabi_ddiv - break; - case BC_MODVN: case BC_MODNV: case BC_MODVV: - | ins_arithdn vm_modi, vm_mod, ->vm_mod - break; - case BC_POW: - | // NYI: (partial) integer arithmetic. - | ins_arithfp extern, extern pow - break; - - case BC_CAT: - | decode_RB8 RC, INS - | decode_RC8 RB, INS - | // RA = dst*8, RC = src_start*8, RB = src_end*8 (note: RB/RC swapped!) - | sub CARG3, RB, RC - | str BASE, L->base - | add CARG2, BASE, RB - |->BC_CAT_Z: - | // RA = dst*8, RC = src_start*8, CARG2 = top-1 - | mov CARG1, L - | str PC, SAVE_PC - | lsr CARG3, CARG3, #3 - | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) - | // Returns NULL (finished) or TValue * (metamethod). - | ldr BASE, L->base - | cmp CRET1, #0 - | bne ->vmeta_binop - | ldrd CARG34, [BASE, RC] - | ins_next1 - | ins_next2 - | strd CARG34, [BASE, RA] // Copy result to RA. - | ins_next3 - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | // RA = dst*8, RC = str_const (~) - | mvn RC, RC - | ins_next1 - | ldr CARG1, [KBASE, RC, lsl #2] - | mvn CARG2, #~LJ_TSTR - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - case BC_KCDATA: - |.if FFI - | // RA = dst*8, RC = cdata_const (~) - | mvn RC, RC - | ins_next1 - | ldr CARG1, [KBASE, RC, lsl #2] - | mvn CARG2, #~LJ_TCDATA - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - |.endif - break; - case BC_KSHORT: - | // RA = dst*8, (RC = int16_literal) - | mov CARG1, INS, asr #16 // Refetch sign-extended reg. - | mvn CARG2, #~LJ_TISNUM - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - case BC_KNUM: - | // RA = dst*8, RC = num_const - | lsl RC, RC, #3 - | ins_next1 - | ldrd CARG12, [KBASE, RC] - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - case BC_KPRI: - | // RA = dst*8, RC = primitive_type (~) - | add RA, BASE, RA - | mvn RC, RC - | ins_next1 - | ins_next2 - | str RC, [RA, #4] - | ins_next3 - break; - case BC_KNIL: - | // RA = base*8, RC = end - | add RA, BASE, RA - | add RC, BASE, RC, lsl #3 - | mvn CARG1, #~LJ_TNIL - | str CARG1, [RA, #4] - | add RA, RA, #8 - |1: - | str CARG1, [RA, #4] - | cmp RA, RC - | add RA, RA, #8 - | blt <1 - | ins_next_ - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | // RA = dst*8, RC = uvnum - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | lsl RC, RC, #2 - | add RC, RC, #offsetof(GCfuncL, uvptr) - | ldr UPVAL:CARG2, [LFUNC:CARG2, RC] - | ldr CARG2, UPVAL:CARG2->v - | ldrd CARG34, [CARG2] - | ins_next1 - | ins_next2 - | strd CARG34, [BASE, RA] - | ins_next3 - break; - case BC_USETV: - | // RA = uvnum*8, RC = src - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | lsr RA, RA, #1 - | add RA, RA, #offsetof(GCfuncL, uvptr) - | lsl RC, RC, #3 - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] - | ldrd CARG34, [BASE, RC] - | ldrb RB, UPVAL:CARG2->marked - | ldrb RC, UPVAL:CARG2->closed - | ldr CARG2, UPVAL:CARG2->v - | tst RB, #LJ_GC_BLACK // isblack(uv) - | add RB, CARG4, #-LJ_TISGCV - | cmpne RC, #0 - | strd CARG34, [CARG2] - | bne >2 // Upvalue is closed and black? - |1: - | ins_next - | - |2: // Check if new value is collectable. - | cmn RB, #-(LJ_TNUMX - LJ_TISGCV) - | ldrbhi RC, GCOBJ:CARG3->gch.marked - | bls <1 // tvisgcv(v) - | sub CARG1, DISPATCH, #-GG_DISP2G - | tst RC, #LJ_GC_WHITES - | // Crossed a write barrier. Move the barrier forward. - |.if IOS - | beq <1 - | mov RC, BASE - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | mov BASE, RC - |.else - | blne extern lj_gc_barrieruv // (global_State *g, TValue *tv) - |.endif - | b <1 - break; - case BC_USETS: - | // RA = uvnum*8, RC = str_const (~) - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | lsr RA, RA, #1 - | add RA, RA, #offsetof(GCfuncL, uvptr) - | mvn RC, RC - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] - | ldr STR:CARG3, [KBASE, RC, lsl #2] - | ldrb RB, UPVAL:CARG2->marked - | ldrb RC, UPVAL:CARG2->closed - | ldr CARG2, UPVAL:CARG2->v - | mvn CARG4, #~LJ_TSTR - | tst RB, #LJ_GC_BLACK // isblack(uv) - | ldrb RB, STR:CARG3->marked - | strd CARG34, [CARG2] - | bne >2 - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | tst RB, #LJ_GC_WHITES // iswhite(str) - | cmpne RC, #0 - | sub CARG1, DISPATCH, #-GG_DISP2G - | // Crossed a write barrier. Move the barrier forward. - |.if IOS - | beq <1 - | mov RC, BASE - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | mov BASE, RC - |.else - | blne extern lj_gc_barrieruv // (global_State *g, TValue *tv) - |.endif - | b <1 - break; - case BC_USETN: - | // RA = uvnum*8, RC = num_const - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | lsr RA, RA, #1 - | add RA, RA, #offsetof(GCfuncL, uvptr) - | lsl RC, RC, #3 - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] - | ldrd CARG34, [KBASE, RC] - | ldr CARG2, UPVAL:CARG2->v - | ins_next1 - | ins_next2 - | strd CARG34, [CARG2] - | ins_next3 - break; - case BC_USETP: - | // RA = uvnum*8, RC = primitive_type (~) - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | lsr RA, RA, #1 - | add RA, RA, #offsetof(GCfuncL, uvptr) - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA] - | mvn RC, RC - | ldr CARG2, UPVAL:CARG2->v - | ins_next1 - | ins_next2 - | str RC, [CARG2, #4] - | ins_next3 - break; - - case BC_UCLO: - | // RA = level*8, RC = target - | ldr CARG3, L->openupval - | add RC, PC, RC, lsl #2 - | str BASE, L->base - | cmp CARG3, #0 - | sub PC, RC, #0x20000 - | beq >1 - | mov CARG1, L - | add CARG2, BASE, RA - | bl extern lj_func_closeuv // (lua_State *L, TValue *level) - | ldr BASE, L->base - |1: - | ins_next - break; - - case BC_FNEW: - | // RA = dst*8, RC = proto_const (~) (holding function prototype) - | mvn RC, RC - | str BASE, L->base - | ldr CARG2, [KBASE, RC, lsl #2] - | str PC, SAVE_PC - | ldr CARG3, [BASE, FRAME_FUNC] - | mov CARG1, L - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | bl extern lj_func_newL_gc - | // Returns GCfuncL *. - | ldr BASE, L->base - | mvn CARG2, #~LJ_TFUNC - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - case BC_TDUP: - | // RA = dst*8, RC = (hbits|asize) | tab_const (~) - if (op == BC_TDUP) { - | mvn RC, RC - } - | ldr CARG3, [DISPATCH, #DISPATCH_GL(gc.total)] - | ldr CARG4, [DISPATCH, #DISPATCH_GL(gc.threshold)] - | str BASE, L->base - | str PC, SAVE_PC - | cmp CARG3, CARG4 - | mov CARG1, L - | bhs >5 - |1: - if (op == BC_TNEW) { - | lsl CARG2, RC, #21 - | lsr CARG3, RC, #11 - | asr RC, CARG2, #21 - | lsr CARG2, CARG2, #21 - | cmn RC, #1 - | addeq CARG2, CARG2, #2 - | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) - | // Returns GCtab *. - } else { - | ldr CARG2, [KBASE, RC, lsl #2] - | bl extern lj_tab_dup // (lua_State *L, Table *kt) - | // Returns GCtab *. - } - | ldr BASE, L->base - | mvn CARG2, #~LJ_TTAB - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - |5: - | bl extern lj_gc_step_fixtop // (lua_State *L) - | mov CARG1, L - | b <1 - break; - - case BC_GGET: - | // RA = dst*8, RC = str_const (~) - case BC_GSET: - | // RA = dst*8, RC = str_const (~) - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | mvn RC, RC - | ldr TAB:CARG1, LFUNC:CARG2->env - | ldr STR:RC, [KBASE, RC, lsl #2] - if (op == BC_GGET) { - | b ->BC_TGETS_Z - } else { - | b ->BC_TSETS_Z - } - break; - - case BC_TGETV: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = dst*8, RB = table*8, RC = key*8 - | ldrd TAB:CARG12, [BASE, RB] - | ldrd CARG34, [BASE, RC] - | checktab CARG2, ->vmeta_tgetv // STALL: load CARG12. - | checktp CARG4, LJ_TISNUM // Integer key? - | ldreq CARG4, TAB:CARG1->array - | ldreq CARG2, TAB:CARG1->asize - | bne >9 - | - | add CARG4, CARG4, CARG3, lsl #3 - | cmp CARG3, CARG2 // In array part? - | ldrdlo CARG34, [CARG4] - | bhs ->vmeta_tgetv - | ins_next1 // Overwrites RB! - | checktp CARG4, LJ_TNIL - | beq >5 - |1: - | ins_next2 - | strd CARG34, [BASE, RA] - | ins_next3 - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG2, TAB:CARG1->metatable - | cmp TAB:CARG2, #0 - | beq <1 // No metatable: done. - | ldrb CARG2, TAB:CARG2->nomm - | tst CARG2, #1<vmeta_tgetv - | - |9: - | checktp CARG4, LJ_TSTR // String key? - | moveq STR:RC, CARG3 - | beq ->BC_TGETS_Z - | b ->vmeta_tgetv - break; - case BC_TGETS: - | decode_RB8 RB, INS - | and RC, RC, #255 - | // RA = dst*8, RB = table*8, RC = str_const (~) - | ldrd CARG12, [BASE, RB] - | mvn RC, RC - | ldr STR:RC, [KBASE, RC, lsl #2] // STALL: early RC. - | checktab CARG2, ->vmeta_tgets1 - |->BC_TGETS_Z: - | // (TAB:RB =) TAB:CARG1 = GCtab *, STR:RC = GCstr *, RA = dst*8 - | ldr CARG3, TAB:CARG1->hmask - | ldr CARG4, STR:RC->hash - | ldr NODE:INS, TAB:CARG1->node - | mov TAB:RB, TAB:CARG1 - | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask - | add CARG3, CARG3, CARG3, lsl #1 - | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 - |1: - | ldrd CARG12, NODE:INS->key // STALL: early NODE:INS. - | ldrd CARG34, NODE:INS->val - | ldr NODE:INS, NODE:INS->next - | checktp CARG2, LJ_TSTR - | cmpeq CARG1, STR:RC - | bne >4 - | checktp CARG4, LJ_TNIL - | beq >5 - |3: - | ins_next1 - | ins_next2 - | strd CARG34, [BASE, RA] - | ins_next3 - | - |4: // Follow hash chain. - | cmp NODE:INS, #0 - | bne <1 - | // End of hash chain: key not found, nil result. - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG1, TAB:RB->metatable - | mov CARG3, #0 // Optional clear of undef. value (during load stall). - | mvn CARG4, #~LJ_TNIL - | cmp TAB:CARG1, #0 - | beq <3 // No metatable: done. - | ldrb CARG2, TAB:CARG1->nomm - | tst CARG2, #1<vmeta_tgets - break; - case BC_TGETB: - | decode_RB8 RB, INS - | and RC, RC, #255 - | // RA = dst*8, RB = table*8, RC = index - | ldrd CARG12, [BASE, RB] - | checktab CARG2, ->vmeta_tgetb // STALL: load CARG12. - | ldr CARG3, TAB:CARG1->asize - | ldr CARG4, TAB:CARG1->array - | lsl CARG2, RC, #3 - | cmp RC, CARG3 - | ldrdlo CARG34, [CARG4, CARG2] - | bhs ->vmeta_tgetb - | ins_next1 // Overwrites RB! - | checktp CARG4, LJ_TNIL - | beq >5 - |1: - | ins_next2 - | strd CARG34, [BASE, RA] - | ins_next3 - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG2, TAB:CARG1->metatable - | cmp TAB:CARG2, #0 - | beq <1 // No metatable: done. - | ldrb CARG2, TAB:CARG2->nomm - | tst CARG2, #1<vmeta_tgetb - break; - case BC_TGETR: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = dst*8, RB = table*8, RC = key*8 - | ldr TAB:CARG1, [BASE, RB] - | ldr CARG2, [BASE, RC] - | ldr CARG4, TAB:CARG1->array - | ldr CARG3, TAB:CARG1->asize - | add CARG4, CARG4, CARG2, lsl #3 - | cmp CARG2, CARG3 // In array part? - | bhs ->vmeta_tgetr - | ldrd CARG12, [CARG4] - |->BC_TGETR_Z: - | ins_next1 - | ins_next2 - | strd CARG12, [BASE, RA] - | ins_next3 - break; - - case BC_TSETV: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = src*8, RB = table*8, RC = key*8 - | ldrd TAB:CARG12, [BASE, RB] - | ldrd CARG34, [BASE, RC] - | checktab CARG2, ->vmeta_tsetv // STALL: load CARG12. - | checktp CARG4, LJ_TISNUM // Integer key? - | ldreq CARG2, TAB:CARG1->array - | ldreq CARG4, TAB:CARG1->asize - | bne >9 - | - | add CARG2, CARG2, CARG3, lsl #3 - | cmp CARG3, CARG4 // In array part? - | ldrlo INS, [CARG2, #4] - | bhs ->vmeta_tsetv - | ins_next1 // Overwrites RB! - | checktp INS, LJ_TNIL - | ldrb INS, TAB:CARG1->marked - | ldrd CARG34, [BASE, RA] - | beq >5 - |1: - | tst INS, #LJ_GC_BLACK // isblack(table) - | strd CARG34, [CARG2] - | bne >7 - |2: - | ins_next2 - | ins_next3 - | - |5: // Check for __newindex if previous value is nil. - | ldr TAB:RA, TAB:CARG1->metatable - | cmp TAB:RA, #0 - | beq <1 // No metatable: done. - | ldrb RA, TAB:RA->nomm - | tst RA, #1<vmeta_tsetv - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG1, INS, CARG3 - | b <2 - | - |9: - | checktp CARG4, LJ_TSTR // String key? - | moveq STR:RC, CARG3 - | beq ->BC_TSETS_Z - | b ->vmeta_tsetv - break; - case BC_TSETS: - | decode_RB8 RB, INS - | and RC, RC, #255 - | // RA = src*8, RB = table*8, RC = str_const (~) - | ldrd CARG12, [BASE, RB] - | mvn RC, RC - | ldr STR:RC, [KBASE, RC, lsl #2] // STALL: early RC. - | checktab CARG2, ->vmeta_tsets1 - |->BC_TSETS_Z: - | // (TAB:RB =) TAB:CARG1 = GCtab *, STR:RC = GCstr *, RA = dst*8 - | ldr CARG3, TAB:CARG1->hmask - | ldr CARG4, STR:RC->hash - | ldr NODE:INS, TAB:CARG1->node - | mov TAB:RB, TAB:CARG1 - | and CARG3, CARG3, CARG4 // idx = str->hash & tab->hmask - | add CARG3, CARG3, CARG3, lsl #1 - | mov CARG4, #0 - | add NODE:INS, NODE:INS, CARG3, lsl #3 // node = tab->node + idx*3*8 - | strb CARG4, TAB:RB->nomm // Clear metamethod cache. - |1: - | ldrd CARG12, NODE:INS->key - | ldr CARG4, NODE:INS->val.it - | ldr NODE:CARG3, NODE:INS->next - | checktp CARG2, LJ_TSTR - | cmpeq CARG1, STR:RC - | bne >5 - | ldrb CARG2, TAB:RB->marked - | checktp CARG4, LJ_TNIL // Key found, but nil value? - | ldrd CARG34, [BASE, RA] - | beq >4 - |2: - | tst CARG2, #LJ_GC_BLACK // isblack(table) - | strd CARG34, NODE:INS->val - | bne >7 - |3: - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | ldr TAB:CARG1, TAB:RB->metatable - | cmp TAB:CARG1, #0 - | beq <2 // No metatable: done. - | ldrb CARG1, TAB:CARG1->nomm - | tst CARG1, #1<vmeta_tsets - | - |5: // Follow hash chain. - | movs NODE:INS, NODE:CARG3 - | bne <1 - | // End of hash chain: key not found, add a new one. - | - | // But check for __newindex first. - | ldr TAB:CARG1, TAB:RB->metatable - | mov CARG3, TMPDp - | str PC, SAVE_PC - | cmp TAB:CARG1, #0 // No metatable: continue. - | str BASE, L->base - | ldrbne CARG2, TAB:CARG1->nomm - | mov CARG1, L - | beq >6 - | tst CARG2, #1<vmeta_tsets // 'no __newindex' flag NOT set: check. - |6: - | mvn CARG4, #~LJ_TSTR - | str STR:RC, TMPDlo - | mov CARG2, TAB:RB - | str CARG4, TMPDhi - | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) - | // Returns TValue *. - | ldr BASE, L->base - | ldrd CARG34, [BASE, RA] - | strd CARG34, [CRET1] - | b <3 // No 2nd write barrier needed. - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, CARG2, CARG3 - | b <3 - break; - case BC_TSETB: - | decode_RB8 RB, INS - | and RC, RC, #255 - | // RA = src*8, RB = table*8, RC = index - | ldrd CARG12, [BASE, RB] - | checktab CARG2, ->vmeta_tsetb // STALL: load CARG12. - | ldr CARG3, TAB:CARG1->asize - | ldr RB, TAB:CARG1->array - | lsl CARG2, RC, #3 - | cmp RC, CARG3 - | ldrdlo CARG34, [CARG2, RB]! - | bhs ->vmeta_tsetb - | ins_next1 // Overwrites RB! - | checktp CARG4, LJ_TNIL - | ldrb INS, TAB:CARG1->marked - | ldrd CARG34, [BASE, RA] - | beq >5 - |1: - | tst INS, #LJ_GC_BLACK // isblack(table) - | strd CARG34, [CARG2] - | bne >7 - |2: - | ins_next2 - | ins_next3 - | - |5: // Check for __newindex if previous value is nil. - | ldr TAB:RA, TAB:CARG1->metatable - | cmp TAB:RA, #0 - | beq <1 // No metatable: done. - | ldrb RA, TAB:RA->nomm - | tst RA, #1<vmeta_tsetb - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG1, INS, CARG3 - | b <2 - break; - case BC_TSETR: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = src*8, RB = table*8, RC = key*8 - | ldr TAB:CARG2, [BASE, RB] - | ldr CARG3, [BASE, RC] - | ldrb INS, TAB:CARG2->marked - | ldr CARG1, TAB:CARG2->array - | ldr CARG4, TAB:CARG2->asize - | tst INS, #LJ_GC_BLACK // isblack(table) - | add CARG1, CARG1, CARG3, lsl #3 - | bne >7 - |2: - | cmp CARG3, CARG4 // In array part? - | bhs ->vmeta_tsetr - |->BC_TSETR_Z: - | ldrd CARG34, [BASE, RA] - | ins_next1 - | ins_next2 - | strd CARG34, [CARG1] - | ins_next3 - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, INS, RB - | b <2 - break; - - case BC_TSETM: - | // RA = base*8 (table at base-1), RC = num_const (start index) - | add RA, BASE, RA - |1: - | ldr RB, SAVE_MULTRES - | ldr TAB:CARG2, [RA, #-8] // Guaranteed to be a table. - | ldr CARG1, [KBASE, RC, lsl #3] // Integer constant is in lo-word. - | subs RB, RB, #8 - | ldr CARG4, TAB:CARG2->asize - | beq >4 // Nothing to copy? - | add CARG3, CARG1, RB, lsr #3 - | cmp CARG3, CARG4 - | ldr CARG4, TAB:CARG2->array - | add RB, RA, RB - | bhi >5 - | add INS, CARG4, CARG1, lsl #3 - | ldrb CARG1, TAB:CARG2->marked - |3: // Copy result slots to table. - | ldrd CARG34, [RA], #8 - | strd CARG34, [INS], #8 - | cmp RA, RB - | blo <3 - | tst CARG1, #LJ_GC_BLACK // isblack(table) - | bne >7 - |4: - | ins_next - | - |5: // Need to resize array part. - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - | // Must not reallocate the stack. - | .IOS ldr BASE, L->base - | b <1 - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:CARG2, CARG1, CARG3 - | b <4 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALLM: - | // RA = base*8, (RB = nresults+1,) RC = extra_nargs - | ldr CARG1, SAVE_MULTRES - | decode_RC8 NARGS8:RC, INS - | add NARGS8:RC, NARGS8:RC, CARG1 - | b ->BC_CALL_Z - break; - case BC_CALL: - | decode_RC8 NARGS8:RC, INS - | // RA = base*8, (RB = nresults+1,) RC = (nargs+1)*8 - |->BC_CALL_Z: - | mov RB, BASE // Save old BASE for vmeta_call. - | ldrd CARG34, [BASE, RA]! - | sub NARGS8:RC, NARGS8:RC, #8 - | add BASE, BASE, #8 - | checkfunc CARG4, ->vmeta_call - | ins_call - break; - - case BC_CALLMT: - | // RA = base*8, (RB = 0,) RC = extra_nargs - | ldr CARG1, SAVE_MULTRES - | add NARGS8:RC, CARG1, RC, lsl #3 - | b ->BC_CALLT1_Z - break; - case BC_CALLT: - | lsl NARGS8:RC, RC, #3 - | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 - |->BC_CALLT1_Z: - | ldrd LFUNC:CARG34, [RA, BASE]! - | sub NARGS8:RC, NARGS8:RC, #8 - | add RA, RA, #8 - | checkfunc CARG4, ->vmeta_callt - | ldr PC, [BASE, FRAME_PC] - |->BC_CALLT2_Z: - | mov RB, #0 - | ldrb CARG4, LFUNC:CARG3->ffid - | tst PC, #FRAME_TYPE - | bne >7 - |1: - | str LFUNC:CARG3, [BASE, FRAME_FUNC] // Copy function down, but keep PC. - | cmp NARGS8:RC, #0 - | beq >3 - |2: - | ldrd CARG12, [RA, RB] - | add INS, RB, #8 - | cmp INS, NARGS8:RC - | strd CARG12, [BASE, RB] - | mov RB, INS - | bne <2 - |3: - | cmp CARG4, #1 // (> FF_C) Calling a fast function? - | bhi >5 - |4: - | ins_callt - | - |5: // Tailcall to a fast function with a Lua frame below. - | ldr INS, [PC, #-4] - | decode_RA8 RA, INS - | sub CARG1, BASE, RA - | ldr LFUNC:CARG1, [CARG1, #-16] - | ldr CARG1, LFUNC:CARG1->field_pc - | ldr KBASE, [CARG1, #PC2PROTO(k)] - | b <4 - | - |7: // Tailcall from a vararg function. - | eor PC, PC, #FRAME_VARG - | tst PC, #FRAME_TYPEP // Vararg frame below? - | movne CARG4, #0 // Clear ffid if no Lua function below. - | bne <1 - | sub BASE, BASE, PC - | ldr PC, [BASE, FRAME_PC] - | tst PC, #FRAME_TYPE - | movne CARG4, #0 // Clear ffid if no Lua function below. - | b <1 - break; - - case BC_ITERC: - | // RA = base*8, (RB = nresults+1, RC = nargs+1 (2+1)) - | add RA, BASE, RA - | mov RB, BASE // Save old BASE for vmeta_call. - | ldrd CARG34, [RA, #-16] - | ldrd CARG12, [RA, #-8] - | add BASE, RA, #8 - | strd CARG34, [RA, #8] // Copy state. - | strd CARG12, [RA, #16] // Copy control var. - | // STALL: locked CARG34. - | ldrd LFUNC:CARG34, [RA, #-24] - | mov NARGS8:RC, #16 // Iterators get 2 arguments. - | // STALL: load CARG34. - | strd LFUNC:CARG34, [RA] // Copy callable. - | checkfunc CARG4, ->vmeta_call - | ins_call - break; - - case BC_ITERN: - | // RA = base*8, (RB = nresults+1, RC = nargs+1 (2+1)) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | add RA, BASE, RA - | ldr TAB:RB, [RA, #-16] - | ldr CARG1, [RA, #-8] // Get index from control var. - | ldr INS, TAB:RB->asize - | ldr CARG2, TAB:RB->array - | add PC, PC, #4 - |1: // Traverse array part. - | subs RC, CARG1, INS - | add CARG3, CARG2, CARG1, lsl #3 - | bhs >5 // Index points after array part? - | ldrd CARG34, [CARG3] - | checktp CARG4, LJ_TNIL - | addeq CARG1, CARG1, #1 // Skip holes in array part. - | beq <1 - | ldrh RC, [PC, #-2] - | mvn CARG2, #~LJ_TISNUM - | strd CARG34, [RA, #8] - | add RC, PC, RC, lsl #2 - | add RB, CARG1, #1 - | strd CARG12, [RA] - | sub PC, RC, #0x20000 - | str RB, [RA, #-8] // Update control var. - |3: - | ins_next - | - |5: // Traverse hash part. - | ldr CARG4, TAB:RB->hmask - | ldr NODE:RB, TAB:RB->node - |6: - | add CARG1, RC, RC, lsl #1 - | cmp RC, CARG4 // End of iteration? Branch to ITERL+1. - | add NODE:CARG3, NODE:RB, CARG1, lsl #3 // node = tab->node + idx*3*8 - | bhi <3 - | ldrd CARG12, NODE:CARG3->val - | checktp CARG2, LJ_TNIL - | add RC, RC, #1 - | beq <6 // Skip holes in hash part. - | ldrh RB, [PC, #-2] - | add RC, RC, INS - | ldrd CARG34, NODE:CARG3->key - | str RC, [RA, #-8] // Update control var. - | strd CARG12, [RA, #8] - | add RC, PC, RB, lsl #2 - | sub PC, RC, #0x20000 - | strd CARG34, [RA] - | b <3 - break; - - case BC_ISNEXT: - | // RA = base*8, RC = target (points to ITERN) - | add RA, BASE, RA - | add RC, PC, RC, lsl #2 - | ldrd CFUNC:CARG12, [RA, #-24] - | ldr CARG3, [RA, #-12] - | ldr CARG4, [RA, #-4] - | checktp CARG2, LJ_TFUNC - | ldrbeq CARG1, CFUNC:CARG1->ffid - | checktpeq CARG3, LJ_TTAB - | checktpeq CARG4, LJ_TNIL - | cmpeq CARG1, #FF_next_N - | subeq PC, RC, #0x20000 - | bne >5 - | ins_next1 - | ins_next2 - | mov CARG1, #0 - | mvn CARG2, #0x00018000 - | strd CARG1, [RA, #-8] // Initialize control var. - |1: - | ins_next3 - |5: // Despecialize bytecode if any of the checks fail. - | mov CARG1, #BC_JMP - | mov OP, #BC_ITERC - | strb CARG1, [PC, #-4] - | sub PC, RC, #0x20000 - | strb OP, [PC] // Subsumes ins_next1. - | ins_next2 - | b <1 - break; - - case BC_VARG: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 - | ldr CARG1, [BASE, FRAME_PC] - | add RC, BASE, RC - | add RA, BASE, RA - | add RC, RC, #FRAME_VARG - | add CARG4, RA, RB - | sub CARG3, BASE, #8 // CARG3 = vtop - | sub RC, RC, CARG1 // RC = vbase - | // Note: RC may now be even _above_ BASE if nargs was < numparams. - | cmp RB, #0 - | sub CARG1, CARG3, RC - | beq >5 // Copy all varargs? - | sub CARG4, CARG4, #16 - |1: // Copy vararg slots to destination slots. - | cmp RC, CARG3 - | ldrdlo CARG12, [RC], #8 - | mvnhs CARG2, #~LJ_TNIL - | cmp RA, CARG4 - | strd CARG12, [RA], #8 - | blo <1 - |2: - | ins_next - | - |5: // Copy all varargs. - | ldr CARG4, L->maxstack - | cmp CARG1, #0 - | movle RB, #8 // MULTRES = (0+1)*8 - | addgt RB, CARG1, #8 - | add CARG2, RA, CARG1 - | str RB, SAVE_MULTRES - | ble <2 - | cmp CARG2, CARG4 - | bhi >7 - |6: - | ldrd CARG12, [RC], #8 - | strd CARG12, [RA], #8 - | cmp RC, CARG3 - | blo <6 - | b <2 - | - |7: // Grow stack for varargs. - | lsr CARG2, CARG1, #3 - | str RA, L->top - | mov CARG1, L - | str BASE, L->base - | sub RC, RC, BASE // Need delta, because BASE may change. - | str PC, SAVE_PC - | sub RA, RA, BASE - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->base - | add RA, BASE, RA - | add RC, BASE, RC - | sub CARG3, BASE, #8 - | b <6 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | // RA = results*8, RC = extra results - | ldr CARG1, SAVE_MULTRES - | ldr PC, [BASE, FRAME_PC] - | add RA, BASE, RA - | add RC, CARG1, RC, lsl #3 - | b ->BC_RETM_Z - break; - - case BC_RET: - | // RA = results*8, RC = nresults+1 - | ldr PC, [BASE, FRAME_PC] - | lsl RC, RC, #3 - | add RA, BASE, RA - |->BC_RETM_Z: - | str RC, SAVE_MULTRES - |1: - | ands CARG1, PC, #FRAME_TYPE - | eor CARG2, PC, #FRAME_VARG - | bne ->BC_RETV2_Z - | - |->BC_RET_Z: - | // BASE = base, RA = resultptr, RC = (nresults+1)*8, PC = return - | ldr INS, [PC, #-4] - | subs CARG4, RC, #8 - | sub CARG3, BASE, #8 - | beq >3 - |2: - | ldrd CARG12, [RA], #8 - | add BASE, BASE, #8 - | subs CARG4, CARG4, #8 - | strd CARG12, [BASE, #-16] - | bne <2 - |3: - | decode_RA8 RA, INS - | sub CARG4, CARG3, RA - | decode_RB8 RB, INS - | ldr LFUNC:CARG1, [CARG4, FRAME_FUNC] - |5: - | cmp RB, RC // More results expected? - | bhi >6 - | mov BASE, CARG4 - | ldr CARG2, LFUNC:CARG1->field_pc - | ins_next1 - | ins_next2 - | ldr KBASE, [CARG2, #PC2PROTO(k)] - | ins_next3 - | - |6: // Fill up results with nil. - | mvn CARG2, #~LJ_TNIL - | add BASE, BASE, #8 - | add RC, RC, #8 - | str CARG2, [BASE, #-12] - | b <5 - | - |->BC_RETV1_Z: // Non-standard return case. - | add RA, BASE, RA - |->BC_RETV2_Z: - | tst CARG2, #FRAME_TYPEP - | bne ->vm_return - | // Return from vararg function: relocate BASE down. - | sub BASE, BASE, CARG2 - | ldr PC, [BASE, FRAME_PC] - | b <1 - break; - - case BC_RET0: case BC_RET1: - | // RA = results*8, RC = nresults+1 - | ldr PC, [BASE, FRAME_PC] - | lsl RC, RC, #3 - | str RC, SAVE_MULTRES - | ands CARG1, PC, #FRAME_TYPE - | eor CARG2, PC, #FRAME_VARG - | ldreq INS, [PC, #-4] - | bne ->BC_RETV1_Z - if (op == BC_RET1) { - | ldrd CARG12, [BASE, RA] - } - | sub CARG4, BASE, #8 - | decode_RA8 RA, INS - if (op == BC_RET1) { - | strd CARG12, [CARG4] - } - | sub BASE, CARG4, RA - | decode_RB8 RB, INS - | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] - |5: - | cmp RB, RC - | bhi >6 - | ldr CARG2, LFUNC:CARG1->field_pc - | ins_next1 - | ins_next2 - | ldr KBASE, [CARG2, #PC2PROTO(k)] - | ins_next3 - | - |6: // Fill up results with nil. - | sub CARG2, CARG4, #4 - | mvn CARG3, #~LJ_TNIL - | str CARG3, [CARG2, RC] - | add RC, RC, #8 - | b <5 - break; - - /* -- Loops and branches ------------------------------------------------ */ - - |.define FOR_IDX, [RA]; .define FOR_TIDX, [RA, #4] - |.define FOR_STOP, [RA, #8]; .define FOR_TSTOP, [RA, #12] - |.define FOR_STEP, [RA, #16]; .define FOR_TSTEP, [RA, #20] - |.define FOR_EXT, [RA, #24]; .define FOR_TEXT, [RA, #28] - - case BC_FORL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IFORL follows. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - | // RA = base*8, RC = target (after end of loop or start of loop) - vk = (op == BC_IFORL || op == BC_JFORL); - | ldrd CARG12, [RA, BASE]! - if (op != BC_JFORL) { - | add RC, PC, RC, lsl #2 - } - if (!vk) { - | ldrd CARG34, FOR_STOP - | checktp CARG2, LJ_TISNUM - | ldr RB, FOR_TSTEP - | bne >5 - | checktp CARG4, LJ_TISNUM - | ldr CARG4, FOR_STEP - | checktpeq RB, LJ_TISNUM - | bne ->vmeta_for - | cmp CARG4, #0 - | blt >4 - | cmp CARG1, CARG3 - } else { - | ldrd CARG34, FOR_STEP - | checktp CARG2, LJ_TISNUM - | bne >5 - | adds CARG1, CARG1, CARG3 - | ldr CARG4, FOR_STOP - if (op == BC_IFORL) { - | addvs RC, PC, #0x20000 // Overflow: prevent branch. - } else { - | bvs >2 // Overflow: do not enter mcode. - } - | cmp CARG3, #0 - | blt >4 - | cmp CARG1, CARG4 - } - |1: - if (op == BC_FORI) { - | subgt PC, RC, #0x20000 - } else if (op == BC_JFORI) { - | sub PC, RC, #0x20000 - | ldrhle RC, [PC, #-2] - } else if (op == BC_IFORL) { - | suble PC, RC, #0x20000 - } - if (vk) { - | strd CARG12, FOR_IDX - } - |2: - | ins_next1 - | ins_next2 - | strd CARG12, FOR_EXT - if (op == BC_JFORI || op == BC_JFORL) { - | ble =>BC_JLOOP - } - |3: - | ins_next3 - | - |4: // Invert check for negative step. - if (!vk) { - | cmp CARG3, CARG1 - } else { - | cmp CARG4, CARG1 - } - | b <1 - | - |5: // FP loop. - if (!vk) { - | cmnlo CARG4, #-LJ_TISNUM - | cmnlo RB, #-LJ_TISNUM - | bhs ->vmeta_for - |.if FPU - | vldr d0, FOR_IDX - | vldr d1, FOR_STOP - | cmp RB, #0 - | vstr d0, FOR_EXT - |.else - | cmp RB, #0 - | strd CARG12, FOR_EXT - | blt >8 - |.endif - } else { - |.if FPU - | vldr d0, FOR_IDX - | vldr d2, FOR_STEP - | vldr d1, FOR_STOP - | cmp CARG4, #0 - | vadd.f64 d0, d0, d2 - |.else - | cmp CARG4, #0 - | blt >8 - | bl extern __aeabi_dadd - | strd CARG12, FOR_IDX - | ldrd CARG34, FOR_STOP - | strd CARG12, FOR_EXT - |.endif - } - |6: - |.if FPU - | vcmpge.f64 d0, d1 - | vcmplt.f64 d1, d0 - | vmrs - |.else - | bl extern __aeabi_cdcmple - |.endif - if (vk) { - |.if FPU - | vstr d0, FOR_IDX - | vstr d0, FOR_EXT - |.endif - } - if (op == BC_FORI) { - | subhi PC, RC, #0x20000 - } else if (op == BC_JFORI) { - | sub PC, RC, #0x20000 - | ldrhls RC, [PC, #-2] - | bls =>BC_JLOOP - } else if (op == BC_IFORL) { - | subls PC, RC, #0x20000 - } else { - | bls =>BC_JLOOP - } - | ins_next1 - | ins_next2 - | b <3 - | - |.if not FPU - |8: // Invert check for negative step. - if (vk) { - | bl extern __aeabi_dadd - | strd CARG12, FOR_IDX - | strd CARG12, FOR_EXT - } - | mov CARG3, CARG1 - | mov CARG4, CARG2 - | ldrd CARG12, FOR_STOP - | b <6 - |.endif - break; - - case BC_ITERL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IITERL follows. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | // RA = base*8, RC = target - | ldrd CARG12, [RA, BASE]! - if (op == BC_JITERL) { - | cmn CARG2, #-LJ_TNIL // Stop if iterator returned nil. - | strdne CARG12, [RA, #-8] - | bne =>BC_JLOOP - } else { - | add RC, PC, RC, lsl #2 - | // STALL: load CARG12. - | cmn CARG2, #-LJ_TNIL // Stop if iterator returned nil. - | subne PC, RC, #0x20000 // Otherwise save control var + branch. - | strdne CARG12, [RA, #-8] - } - | ins_next - break; - - case BC_LOOP: - | // RA = base*8, RC = target (loop extent) - | // Note: RA/RC is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_ILOOP follows. - break; - - case BC_ILOOP: - | // RA = base*8, RC = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | // RA = base (ignored), RC = traceno - | ldr CARG1, [DISPATCH, #DISPATCH_J(trace)] - | mov CARG2, #0 // Traces on ARM don't store the trace number, so use 0. - | ldr TRACE:RC, [CARG1, RC, lsl #2] - | st_vmstate CARG2 - | ldr RA, TRACE:RC->mcode - | str BASE, [DISPATCH, #DISPATCH_GL(jit_base)] - | str L, [DISPATCH, #DISPATCH_GL(tmpbuf.L)] - | bx RA - |.endif - break; - - case BC_JMP: - | // RA = base*8 (only used by trace recorder), RC = target - | add RC, PC, RC, lsl #2 - | sub PC, RC, #0x20000 - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - |.if JIT - | hotcall - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 - | ldr CARG1, L->maxstack - | ldrb CARG2, [PC, #-4+PC2PROTO(numparams)] - | ldr KBASE, [PC, #-4+PC2PROTO(k)] - | cmp RA, CARG1 - | bhi ->vm_growstack_l - if (op != BC_JFUNCF) { - | ins_next1 - | ins_next2 - } - |2: - | cmp NARGS8:RC, CARG2, lsl #3 // Check for missing parameters. - | mvn CARG4, #~LJ_TNIL - | blo >3 - if (op == BC_JFUNCF) { - | decode_RD RC, INS - | b =>BC_JLOOP - } else { - | ins_next3 - } - | - |3: // Clear missing parameters. - | strd CARG34, [BASE, NARGS8:RC] - | add NARGS8:RC, NARGS8:RC, #8 - | b <2 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | NYI // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 - | ldr CARG1, L->maxstack - | add CARG4, BASE, RC - | add RA, RA, RC - | str LFUNC:CARG3, [CARG4] // Store copy of LFUNC. - | add CARG2, RC, #8+FRAME_VARG - | ldr KBASE, [PC, #-4+PC2PROTO(k)] - | cmp RA, CARG1 - | str CARG2, [CARG4, #4] // Store delta + FRAME_VARG. - | bhs ->vm_growstack_l - | ldrb RB, [PC, #-4+PC2PROTO(numparams)] - | mov RA, BASE - | mov RC, CARG4 - | cmp RB, #0 - | add BASE, CARG4, #8 - | beq >3 - | mvn CARG3, #~LJ_TNIL - |1: - | cmp RA, RC // Less args than parameters? - | ldrdlo CARG12, [RA], #8 - | movhs CARG2, CARG3 - | strlo CARG3, [RA, #-4] // Clear old fixarg slot (help the GC). - |2: - | subs RB, RB, #1 - | strd CARG12, [CARG4, #8]! - | bne <1 - |3: - | ins_next - break; - - case BC_FUNCC: - case BC_FUNCCW: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = CFUNC, RC = nargs*8 - if (op == BC_FUNCC) { - | ldr CARG4, CFUNC:CARG3->f - } else { - | ldr CARG4, [DISPATCH, #DISPATCH_GL(wrapf)] - } - | add CARG2, RA, NARGS8:RC - | ldr CARG1, L->maxstack - | add RC, BASE, NARGS8:RC - | str BASE, L->base - | cmp CARG2, CARG1 - | str RC, L->top - if (op == BC_FUNCCW) { - | ldr CARG2, CFUNC:CARG3->f - } - | mv_vmstate CARG3, C - | mov CARG1, L - | bhi ->vm_growstack_c // Need to grow stack. - | st_vmstate CARG3 - | blx CARG4 // (lua_State *L [, lua_CFunction f]) - | // Returns nresults. - | ldr BASE, L->base - | mv_vmstate CARG3, INTERP - | ldr CRET2, L->top - | str L, [DISPATCH, #DISPATCH_GL(cur_L)] - | lsl RC, CRET1, #3 - | st_vmstate CARG3 - | ldr PC, [BASE, FRAME_PC] - | sub RA, CRET2, RC // RA = L->top - nresults*8 - | b ->vm_returnc - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - - dasm_growpc(Dst, BC__MAX); - - build_subroutines(ctx); - - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); - int i; - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",%%progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.long .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.long 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 0xe\n" /* Return address is in lr. */ - "\t.byte 0xc\n\t.uleb128 0xd\n\t.uleb128 0\n" /* def_cfa sp */ - "\t.align 2\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.long .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.long .Lframe0\n" - "\t.long .Lbegin\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ - "\t.byte 0x8e\n\t.uleb128 1\n", /* offset lr */ - fcofs, CFRAME_SIZE); - for (i = 11; i >= (LJ_ARCH_HASFPU ? 5 : 4); i--) /* offset r4-r11 */ - fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 2+(11-i)); -#if LJ_ARCH_HASFPU - for (i = 15; i >= 8; i--) /* offset d8-d15 */ - fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 %d, %d\n", - 64+2*i, 10+2*(15-i)); - fprintf(ctx->fp, "\t.byte 0x84\n\t.uleb128 %d\n", 25); /* offset r4 */ -#endif - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE0:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.long .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.long .Lframe0\n" - "\t.long lj_vm_ffi_call\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ - "\t.byte 0x8e\n\t.uleb128 1\n" /* offset lr */ - "\t.byte 0x8b\n\t.uleb128 2\n" /* offset r11 */ - "\t.byte 0x85\n\t.uleb128 3\n" /* offset r5 */ - "\t.byte 0x84\n\t.uleb128 4\n" /* offset r4 */ - "\t.byte 0xd\n\t.uleb128 0xb\n" /* def_cfa_register r11 */ - "\t.align 2\n" - ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); -#endif - break; - default: - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc deleted file mode 100644 index a31cbb3a363..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/vm_arm64.dasc +++ /dev/null @@ -1,3763 +0,0 @@ -|// Low-level VM code for ARM64 CPUs. -|// Bytecode interpreter, fast functions and helper functions. -|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -| -|.arch arm64 -|.section code_op, code_sub -| -|.actionlist build_actionlist -|.globals GLOB_ -|.globalnames globnames -|.externnames extnames -| -|// Note: The ragged indentation of the instructions is intentional. -|// The starting columns indicate data dependencies. -| -|//----------------------------------------------------------------------- -| -|// ARM64 registers and the AAPCS64 ABI 1.0 at a glance: -|// -|// x0-x17 temp, x19-x28 callee-saved, x29 fp, x30 lr -|// x18 is reserved on most platforms. Don't use it, save it or restore it. -|// x31 doesn't exist. Register number 31 either means xzr/wzr (zero) or sp, -|// depending on the instruction. -|// v0-v7 temp, v8-v15 callee-saved (only d8-d15 preserved), v16-v31 temp -|// -|// x0-x7/v0-v7 hold parameters and results. -| -|// Fixed register assignments for the interpreter. -| -|// The following must be C callee-save. -|.define BASE, x19 // Base of current Lua stack frame. -|.define KBASE, x20 // Constants of current Lua function. -|.define PC, x21 // Next PC. -|.define GLREG, x22 // Global state. -|.define LREG, x23 // Register holding lua_State (also in SAVE_L). -|.define TISNUM, x24 // Constant LJ_TISNUM << 47. -|.define TISNUMhi, x25 // Constant LJ_TISNUM << 15. -|.define TISNIL, x26 // Constant -1LL. -|.define fp, x29 // Yes, we have to maintain a frame pointer. -| -|.define ST_INTERP, w26 // Constant -1. -| -|// The following temporaries are not saved across C calls, except for RA/RC. -|.define RA, x27 -|.define RC, x28 -|.define RB, x17 -|.define RAw, w27 -|.define RCw, w28 -|.define RBw, w17 -|.define INS, x16 -|.define INSw, w16 -|.define ITYPE, x15 -|.define TMP0, x8 -|.define TMP1, x9 -|.define TMP2, x10 -|.define TMP3, x11 -|.define TMP0w, w8 -|.define TMP1w, w9 -|.define TMP2w, w10 -|.define TMP3w, w11 -| -|// Calling conventions. Also used as temporaries. -|.define CARG1, x0 -|.define CARG2, x1 -|.define CARG3, x2 -|.define CARG4, x3 -|.define CARG5, x4 -|.define CARG1w, w0 -|.define CARG2w, w1 -|.define CARG3w, w2 -|.define CARG4w, w3 -|.define CARG5w, w4 -| -|.define FARG1, d0 -|.define FARG2, d1 -| -|.define CRET1, x0 -|.define CRET1w, w0 -| -|// Stack layout while in interpreter. Must match with lj_frame.h. -| -|.define CFRAME_SPACE, 208 -|//----- 16 byte aligned, <-- sp entering interpreter -|// Unused [sp, #204] // 32 bit values -|.define SAVE_NRES, [sp, #200] -|.define SAVE_ERRF, [sp, #196] -|.define SAVE_MULTRES, [sp, #192] -|.define TMPD, [sp, #184] // 64 bit values -|.define SAVE_L, [sp, #176] -|.define SAVE_PC, [sp, #168] -|.define SAVE_CFRAME, [sp, #160] -|.define SAVE_FPR_, 96 // 96+8*8: 64 bit FPR saves -|.define SAVE_GPR_, 16 // 16+10*8: 64 bit GPR saves -|.define SAVE_LR, [sp, #8] -|.define SAVE_FP, [sp] -|//----- 16 byte aligned, <-- sp while in interpreter. -| -|.define TMPDofs, #184 -| -|.macro save_, gpr1, gpr2, fpr1, fpr2 -| stp d..fpr1, d..fpr2, [sp, # SAVE_FPR_+(fpr1-8)*8] -| stp x..gpr1, x..gpr2, [sp, # SAVE_GPR_+(gpr1-19)*8] -|.endmacro -|.macro rest_, gpr1, gpr2, fpr1, fpr2 -| ldp d..fpr1, d..fpr2, [sp, # SAVE_FPR_+(fpr1-8)*8] -| ldp x..gpr1, x..gpr2, [sp, # SAVE_GPR_+(gpr1-19)*8] -|.endmacro -| -|.macro saveregs -| stp fp, lr, [sp, #-CFRAME_SPACE]! -| add fp, sp, #0 -| stp x19, x20, [sp, # SAVE_GPR_] -| save_ 21, 22, 8, 9 -| save_ 23, 24, 10, 11 -| save_ 25, 26, 12, 13 -| save_ 27, 28, 14, 15 -|.endmacro -|.macro restoreregs -| ldp x19, x20, [sp, # SAVE_GPR_] -| rest_ 21, 22, 8, 9 -| rest_ 23, 24, 10, 11 -| rest_ 25, 26, 12, 13 -| rest_ 27, 28, 14, 15 -| ldp fp, lr, [sp], # CFRAME_SPACE -|.endmacro -| -|// Type definitions. Some of these are only used for documentation. -|.type L, lua_State, LREG -|.type GL, global_State, GLREG -|.type TVALUE, TValue -|.type GCOBJ, GCobj -|.type STR, GCstr -|.type TAB, GCtab -|.type LFUNC, GCfuncL -|.type CFUNC, GCfuncC -|.type PROTO, GCproto -|.type UPVAL, GCupval -|.type NODE, Node -|.type NARGS8, int -|.type TRACE, GCtrace -|.type SBUF, SBuf -| -|//----------------------------------------------------------------------- -| -|// Trap for not-yet-implemented parts. -|.macro NYI; brk; .endmacro -| -|//----------------------------------------------------------------------- -| -|// Access to frame relative to BASE. -|.define FRAME_FUNC, #-16 -|.define FRAME_PC, #-8 -| -|.macro decode_RA, dst, ins; ubfx dst, ins, #8, #8; .endmacro -|.macro decode_RB, dst, ins; ubfx dst, ins, #24, #8; .endmacro -|.macro decode_RC, dst, ins; ubfx dst, ins, #16, #8; .endmacro -|.macro decode_RD, dst, ins; ubfx dst, ins, #16, #16; .endmacro -|.macro decode_RC8RD, dst, src; ubfiz dst, src, #3, #8; .endmacro -| -|// Instruction decode+dispatch. -|.macro ins_NEXT -| ldr INSw, [PC], #4 -| add TMP1, GL, INS, uxtb #3 -| decode_RA RA, INS -| ldr TMP0, [TMP1, #GG_G2DISP] -| decode_RD RC, INS -| br TMP0 -|.endmacro -| -|// Instruction footer. -|.if 1 -| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. -| .define ins_next, ins_NEXT -| .define ins_next_, ins_NEXT -|.else -| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. -| // Affects only certain kinds of benchmarks (and only with -j off). -| .macro ins_next -| b ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC -| ldr PC, LFUNC:CARG3->pc -| ldr INSw, [PC], #4 -| add TMP1, GL, INS, uxtb #3 -| decode_RA RA, INS -| ldr TMP0, [TMP1, #GG_G2DISP] -| add RA, BASE, RA, lsl #3 -| br TMP0 -|.endmacro -| -|.macro ins_call -| // BASE = new base, CARG3 = LFUNC/CFUNC, RC = nargs*8, PC = caller PC -| str PC, [BASE, FRAME_PC] -| ins_callt -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Macros to check the TValue type and extract the GCobj. Branch on failure. -|.macro checktp, reg, tp, target -| asr ITYPE, reg, #47 -| cmn ITYPE, #-tp -| and reg, reg, #LJ_GCVMASK -| bne target -|.endmacro -|.macro checktp, dst, reg, tp, target -| asr ITYPE, reg, #47 -| cmn ITYPE, #-tp -| and dst, reg, #LJ_GCVMASK -| bne target -|.endmacro -|.macro checkstr, reg, target; checktp reg, LJ_TSTR, target; .endmacro -|.macro checktab, reg, target; checktp reg, LJ_TTAB, target; .endmacro -|.macro checkfunc, reg, target; checktp reg, LJ_TFUNC, target; .endmacro -|.macro checkint, reg, target -| cmp TISNUMhi, reg, lsr #32 -| bne target -|.endmacro -|.macro checknum, reg, target -| cmp TISNUMhi, reg, lsr #32 -| bls target -|.endmacro -|.macro checknumber, reg, target -| cmp TISNUMhi, reg, lsr #32 -| blo target -|.endmacro -| -|.macro mov_false, reg; movn reg, #0x8000, lsl #32; .endmacro -|.macro mov_true, reg; movn reg, #0x0001, lsl #48; .endmacro -| -#define GL_J(field) (GG_OFS(J) + (int)offsetof(jit_State, field)) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|.macro hotcheck, delta -| NYI -|.endmacro -| -|.macro hotloop -| hotcheck HOTCOUNT_LOOP -| blo ->vm_hotloop -|.endmacro -| -|.macro hotcall -| hotcheck HOTCOUNT_CALL -| blo ->vm_hotcall -|.endmacro -| -|// Set current VM state. -|.macro mv_vmstate, reg, st; movn reg, #LJ_VMST_..st; .endmacro -|.macro st_vmstate, reg; str reg, GL->vmstate; .endmacro -| -|// Move table write barrier back. Overwrites mark and tmp. -|.macro barrierback, tab, mark, tmp -| ldr tmp, GL->gc.grayagain -| and mark, mark, #~LJ_GC_BLACK // black2gray(tab) -| str tab, GL->gc.grayagain -| strb mark, tab->marked -| str tmp, tab->gclist -|.endmacro -| -|//----------------------------------------------------------------------- - -#if !LJ_DUALNUM -#error "Only dual-number mode supported for ARM64 target" -#endif - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | // See vm_return. Also: RB = previous base. - | tbz PC, #2, ->cont_dispatch // (PC & FRAME_P) == 0? - | - | // Return from pcall or xpcall fast func. - | ldr PC, [RB, FRAME_PC] // Fetch PC of previous frame. - | mov_true TMP0 - | mov BASE, RB - | // Prepending may overwrite the pcall frame, so do it at the end. - | str TMP0, [RA, #-8]! // Prepend true to results. - | - |->vm_returnc: - | adds RC, RC, #8 // RC = (nresults+1)*8. - | mov CRET1, #LUA_YIELD - | beq ->vm_unwind_c_eh - | str RCw, SAVE_MULTRES - | ands CARG1, PC, #FRAME_TYPE - | beq ->BC_RET_Z // Handle regular return to Lua. - | - |->vm_return: - | // BASE = base, RA = resultptr, RC/MULTRES = (nresults+1)*8, PC = return - | // CARG1 = PC & FRAME_TYPE - | and RB, PC, #~FRAME_TYPEP - | cmp CARG1, #FRAME_C - | sub RB, BASE, RB // RB = previous base. - | bne ->vm_returnp - | - | str RB, L->base - | ldrsw CARG2, SAVE_NRES // CARG2 = nresults+1. - | mv_vmstate TMP0w, C - | sub BASE, BASE, #16 - | subs TMP2, RC, #8 - | st_vmstate TMP0w - | beq >2 - |1: - | subs TMP2, TMP2, #8 - | ldr TMP0, [RA], #8 - | str TMP0, [BASE], #8 - | bne <1 - |2: - | cmp RC, CARG2, lsl #3 // More/less results wanted? - | bne >6 - |3: - | str BASE, L->top // Store new top. - | - |->vm_leave_cp: - | ldr RC, SAVE_CFRAME // Restore previous C frame. - | mov CRET1, #0 // Ok return status for vm_pcall. - | str RC, L->cframe - | - |->vm_leave_unw: - | restoreregs - | ret - | - |6: - | bgt >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - | ldr CARG3, L->maxstack - | cmp BASE, CARG3 - | bhs >8 - | str TISNIL, [BASE], #8 - | add RC, RC, #8 - | b <2 - | - |7: // Less results wanted. - | cbz CARG2, <3 // LUA_MULTRET+1 case? - | sub CARG1, RC, CARG2, lsl #3 - | sub BASE, BASE, CARG1 // Shrink top. - | b <3 - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | str BASE, L->top // Save current top held in BASE (yes). - | mov CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->top // Need the (realloced) L->top in BASE. - | ldrsw CARG2, SAVE_NRES - | b <2 - | - |->vm_unwind_c: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - | mov sp, CARG1 - | mov CRET1, CARG2 - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | ldr L, SAVE_L - | mv_vmstate TMP0w, C - | ldr GL, L->glref - | st_vmstate TMP0w - | b ->vm_leave_unw - | - |->vm_unwind_ff: // Unwind C stack, return from ff pcall. - | // (void *cframe) - | and sp, CARG1, #CFRAME_RAWMASK - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | ldr L, SAVE_L - | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 - | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 - | movn TISNIL, #0 - | mov RC, #16 // 2 results: false + error message. - | ldr BASE, L->base - | ldr GL, L->glref // Setup pointer to global state. - | mov_false TMP0 - | sub RA, BASE, #8 // Results start at BASE-8. - | ldr PC, [BASE, FRAME_PC] // Fetch PC of previous frame. - | str TMP0, [BASE, #-8] // Prepend false to error message. - | st_vmstate ST_INTERP - | b ->vm_returnc - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | // CARG1 = L - | mov CARG2, #LUA_MINSTACK - | b >2 - | - |->vm_growstack_l: // Grow stack for Lua function. - | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC - | add RC, BASE, RC - | sub RA, RA, BASE - | mov CARG1, L - | stp BASE, RC, L->base - | add PC, PC, #4 // Must point after first instruction. - | lsr CARG2, RA, #3 - |2: - | // L->base = new base, L->top = top - | str PC, SAVE_PC - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldp BASE, RC, L->base - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | sub NARGS8:RC, RC, BASE - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - | mov L, CARG1 - | ldr GL, L->glref // Setup pointer to global state. - | mov BASE, CARG2 - | str L, SAVE_L - | mov PC, #FRAME_CP - | str wzr, SAVE_NRES - | add TMP0, sp, #CFRAME_RESUME - | ldrb TMP1w, L->status - | str wzr, SAVE_ERRF - | str L, SAVE_PC // Any value outside of bytecode is ok. - | str xzr, SAVE_CFRAME - | str TMP0, L->cframe - | cbz TMP1w, >3 - | - | // Resume after yield (like a return). - | str L, GL->cur_L - | mov RA, BASE - | ldp BASE, CARG1, L->base - | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 - | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 - | ldr PC, [BASE, FRAME_PC] - | strb wzr, L->status - | movn TISNIL, #0 - | sub RC, CARG1, BASE - | ands CARG1, PC, #FRAME_TYPE - | add RC, RC, #8 - | st_vmstate ST_INTERP - | str RCw, SAVE_MULTRES - | beq ->BC_RET_Z - | b ->vm_return - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | mov PC, #FRAME_CP - | str CARG4w, SAVE_ERRF - | b >1 - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | mov PC, #FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - | ldr RC, L:CARG1->cframe - | str CARG3w, SAVE_NRES - | mov L, CARG1 - | str CARG1, SAVE_L - | ldr GL, L->glref // Setup pointer to global state. - | mov BASE, CARG2 - | str CARG1, SAVE_PC // Any value outside of bytecode is ok. - | str RC, SAVE_CFRAME - | str fp, L->cframe // Add our C frame to cframe chain. - | - |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). - | str L, GL->cur_L - | ldp RB, CARG1, L->base // RB = old base (for vmeta_call). - | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 - | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 - | add PC, PC, BASE - | movn TISNIL, #0 - | sub PC, PC, RB // PC = frame delta + frame type - | sub NARGS8:RC, CARG1, BASE - | st_vmstate ST_INTERP - | - |->vm_call_dispatch: - | // RB = old base, BASE = new base, RC = nargs*8, PC = caller PC - | ldr CARG3, [BASE, FRAME_FUNC] - | checkfunc CARG3, ->vmeta_call - | - |->vm_call_dispatch_f: - | ins_call - | // BASE = new base, CARG3 = func, RC = nargs*8, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - | mov L, CARG1 - | ldr RA, L:CARG1->stack - | str CARG1, SAVE_L - | ldr GL, L->glref // Setup pointer to global state. - | ldr RB, L->top - | str CARG1, SAVE_PC // Any value outside of bytecode is ok. - | ldr RC, L->cframe - | sub RA, RA, RB // Compute -savestack(L, L->top). - | str RAw, SAVE_NRES // Neg. delta means cframe w/o frame. - | str wzr, SAVE_ERRF // No error function. - | str RC, SAVE_CFRAME - | str fp, L->cframe // Add our C frame to cframe chain. - | str L, GL->cur_L - | blr CARG4 // (lua_State *L, lua_CFunction func, void *ud) - | mov BASE, CRET1 - | mov PC, #FRAME_CP - | cbnz BASE, <3 // Else continue with the call. - | b ->vm_leave_cp // No base? Just remove C frame. - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultptr, RC = (nresults+1)*8 - | ldr LFUNC:CARG3, [RB, FRAME_FUNC] - | ldr CARG1, [BASE, #-32] // Get continuation. - | mov CARG4, BASE - | mov BASE, RB // Restore caller BASE. - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - |.if FFI - | cmp CARG1, #1 - |.endif - | ldr PC, [CARG4, #-24] // Restore PC from [cont|PC]. - | ldr CARG3, LFUNC:CARG3->pc - | add TMP0, RA, RC - | str TISNIL, [TMP0, #-8] // Ensure one valid arg. - |.if FFI - | bls >1 - |.endif - | ldr KBASE, [CARG3, #PC2PROTO(k)] - | // BASE = base, RA = resultptr, CARG4 = meta base - | br CARG1 - | - |.if FFI - |1: - | beq ->cont_ffi_callback // cont = 1: return from FFI callback. - | // cont = 0: tailcall from C function. - | sub CARG4, CARG4, #32 - | sub RC, CARG4, BASE - | b ->vm_call_tail - |.endif - | - |->cont_cat: // RA = resultptr, CARG4 = meta base - | ldr INSw, [PC, #-4] - | sub CARG2, CARG4, #32 - | ldr TMP0, [RA] - | str BASE, L->base - | decode_RB RB, INS - | decode_RA RA, INS - | add TMP1, BASE, RB, lsl #3 - | subs TMP1, CARG2, TMP1 - | beq >1 - | str TMP0, [CARG2] - | lsr CARG3, TMP1, #3 - | b ->BC_CAT_Z - | - |1: - | str TMP0, [BASE, RA, lsl #3] - | b ->cont_nop - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets1: - | movn CARG4, #~LJ_TSTR - | add CARG2, BASE, RB, lsl #3 - | add CARG4, STR:RC, CARG4, lsl #47 - | b >2 - | - |->vmeta_tgets: - | movk CARG2, #(LJ_TTAB>>1)&0xffff, lsl #48 - | str CARG2, GL->tmptv - | add CARG2, GL, #offsetof(global_State, tmptv) - |2: - | add CARG3, sp, TMPDofs - | str CARG4, TMPD - | b >1 - | - |->vmeta_tgetb: // RB = table, RC = index - | add RC, RC, TISNUM - | add CARG2, BASE, RB, lsl #3 - | add CARG3, sp, TMPDofs - | str RC, TMPD - | b >1 - | - |->vmeta_tgetv: // RB = table, RC = key - | add CARG2, BASE, RB, lsl #3 - | add CARG3, BASE, RC, lsl #3 - |1: - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | cbz CRET1, >3 - | ldr TMP0, [CRET1] - | str TMP0, [BASE, RA, lsl #3] - | ins_next - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | sub TMP1, BASE, #FRAME_CONT - | ldr BASE, L->top - | mov NARGS8:RC, #16 // 2 args for func(t, k). - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | str PC, [BASE, #-24] // [cont|PC] - | sub PC, BASE, TMP1 - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | b ->vm_call_dispatch_f - | - |->vmeta_tgetr: - | sxtw CARG2, TMP1w - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | mov TMP0, TISNIL - | cbz CRET1, ->BC_TGETR_Z - | ldr TMP0, [CRET1] - | b ->BC_TGETR_Z - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets1: - | movn CARG4, #~LJ_TSTR - | add CARG2, BASE, RB, lsl #3 - | add CARG4, STR:RC, CARG4, lsl #47 - | b >2 - | - |->vmeta_tsets: - | movk CARG2, #(LJ_TTAB>>1)&0xffff, lsl #48 - | str CARG2, GL->tmptv - | add CARG2, GL, #offsetof(global_State, tmptv) - |2: - | add CARG3, sp, TMPDofs - | str CARG4, TMPD - | b >1 - | - |->vmeta_tsetb: // RB = table, RC = index - | add RC, RC, TISNUM - | add CARG2, BASE, RB, lsl #3 - | add CARG3, sp, TMPDofs - | str RC, TMPD - | b >1 - | - |->vmeta_tsetv: - | add CARG2, BASE, RB, lsl #3 - | add CARG3, BASE, RC, lsl #3 - |1: - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | ldr TMP0, [BASE, RA, lsl #3] - | cbz CRET1, >3 - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | str TMP0, [CRET1] - | ins_next - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | sub TMP1, BASE, #FRAME_CONT - | ldr BASE, L->top - | mov NARGS8:RC, #24 // 3 args for func(t, k, v). - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | str TMP0, [BASE, #16] // Copy value to third argument. - | str PC, [BASE, #-24] // [cont|PC] - | sub PC, BASE, TMP1 - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | b ->vm_call_dispatch_f - | - |->vmeta_tsetr: - | sxtw CARG3, TMP1w - | str BASE, L->base - | str PC, SAVE_PC - | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) - | // Returns TValue *. - | b ->BC_TSETR_Z - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - | add CARG2, BASE, RA, lsl #3 - | sub PC, PC, #4 - | add CARG3, BASE, RC, lsl #3 - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | uxtb CARG4w, INSw - | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - | // Returns 0/1 or TValue * (metamethod). - |3: - | cmp CRET1, #1 - | bhi ->vmeta_binop - |4: - | ldrh RBw, [PC, #2] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | sub RB, RB, #0x20000 - | csel PC, PC, RB, lo - |->cont_nop: - | ins_next - | - |->cont_ra: // RA = resultptr - | ldr INSw, [PC, #-4] - | ldr TMP0, [RA] - | decode_RA TMP1, INS - | str TMP0, [BASE, TMP1, lsl #3] - | b ->cont_nop - | - |->cont_condt: // RA = resultptr - | ldr TMP0, [RA] - | mov_true TMP1 - | cmp TMP1, TMP0 // Branch if result is true. - | b <4 - | - |->cont_condf: // RA = resultptr - | ldr TMP0, [RA] - | mov_false TMP1 - | cmp TMP0, TMP1 // Branch if result is false. - | b <4 - | - |->vmeta_equal: - | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. - | and TAB:CARG3, CARG3, #LJ_GCVMASK - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - | - |->vmeta_equal_cd: - |.if FFI - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | mov CARG2, INS - | str PC, SAVE_PC - | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - |.endif - | - |->vmeta_istype: - | sub PC, PC, #4 - | str BASE, L->base - | mov CARG1, L - | mov CARG2, RA - | mov CARG3, RC - | str PC, SAVE_PC - | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) - | b ->cont_nop - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_arith_vn: - | add CARG3, BASE, RB, lsl #3 - | add CARG4, KBASE, RC, lsl #3 - | b >1 - | - |->vmeta_arith_nv: - | add CARG4, BASE, RB, lsl #3 - | add CARG3, KBASE, RC, lsl #3 - | b >1 - | - |->vmeta_unm: - | add CARG3, BASE, RC, lsl #3 - | mov CARG4, CARG3 - | b >1 - | - |->vmeta_arith_vv: - | add CARG3, BASE, RB, lsl #3 - | add CARG4, BASE, RC, lsl #3 - |1: - | uxtb CARG5w, INSw - | add CARG2, BASE, RA, lsl #3 - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - | // Returns NULL (finished) or TValue * (metamethod). - | cbz CRET1, ->cont_nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 - | sub TMP1, CRET1, BASE - | str PC, [CRET1, #-24] // [cont|PC] - | add PC, TMP1, #FRAME_CONT - | mov BASE, CRET1 - | mov NARGS8:RC, #16 // 2 args for func(o1, o2). - | b ->vm_call_dispatch - | - |->vmeta_len: - | add CARG2, BASE, RC, lsl #3 -#if LJ_52 - | mov TAB:RC, TAB:CARG1 // Save table (ignored for other types). -#endif - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_len // (lua_State *L, TValue *o) - | // Returns NULL (retry) or TValue * (metamethod base). -#if LJ_52 - | cbnz CRET1, ->vmeta_binop // Binop call for compatibility. - | mov TAB:CARG1, TAB:RC - | b ->BC_LEN_Z -#else - | b ->vmeta_binop // Binop call for compatibility. -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call: // Resolve and call __call metamethod. - | // RB = old base, BASE = new base, RC = nargs*8 - | mov CARG1, L - | str RB, L->base // This is the callers base! - | sub CARG2, BASE, #16 - | str PC, SAVE_PC - | add CARG3, BASE, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] // Guaranteed to be a function here. - | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | ins_call - | - |->vmeta_callt: // Resolve __call for BC_CALLT. - | // BASE = old base, RA = new base, RC = nargs*8 - | mov CARG1, L - | str BASE, L->base - | sub CARG2, RA, #16 - | str PC, SAVE_PC - | add CARG3, RA, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | ldr LFUNC:CARG3, [RA, FRAME_FUNC] // Guaranteed to be a function here. - | ldr PC, [BASE, FRAME_PC] - | add NARGS8:RC, NARGS8:RC, #8 // Got one more argument now. - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | b ->BC_CALLT2_Z - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | mov CARG1, L - | str BASE, L->base - | mov CARG2, RA - | str PC, SAVE_PC - | bl extern lj_meta_for // (lua_State *L, TValue *base) - | ldr INSw, [PC, #-4] - |.if JIT - | uxtb TMP0, INS - |.endif - | decode_RA RA, INS - | decode_RD RC, INS - |.if JIT - | cmp TMP0, #BC_JFORI - | beq =>BC_JFORI - |.endif - | b =>BC_FORI - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | ldr CARG1, [BASE] - | cmp NARGS8:RC, #8 - | blo ->fff_fallback - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | ldp CARG1, CARG2, [BASE] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - |.endmacro - | - |.macro .ffunc_n, name - | .ffunc name - | ldr CARG1, [BASE] - | cmp NARGS8:RC, #8 - | ldr FARG1, [BASE] - | blo ->fff_fallback - | checknum CARG1, ->fff_fallback - |.endmacro - | - |.macro .ffunc_nn, name - | .ffunc name - | ldp CARG1, CARG2, [BASE] - | cmp NARGS8:RC, #16 - | ldp FARG1, FARG2, [BASE] - | blo ->fff_fallback - | checknum CARG1, ->fff_fallback - | checknum CARG2, ->fff_fallback - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses CARG1 and CARG2. - |.macro ffgccheck - | ldp CARG1, CARG2, GL->gc.total // Assumes threshold follows total. - | cmp CARG1, CARG2 - | blt >1 - | bl ->fff_gcstep - |1: - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc_1 assert - | ldr PC, [BASE, FRAME_PC] - | mov_false TMP1 - | cmp CARG1, TMP1 - | bhs ->fff_fallback - | str CARG1, [BASE, #-16] - | sub RB, BASE, #8 - | subs RA, NARGS8:RC, #8 - | add RC, NARGS8:RC, #8 // Compute (nresults+1)*8. - | cbz RA, ->fff_res // Done if exactly 1 argument. - |1: - | ldr CARG1, [RB, #16] - | sub RA, RA, #8 - | str CARG1, [RB], #8 - | cbnz RA, <1 - | b ->fff_res - | - |.ffunc_1 type - | mov TMP0, #~LJ_TISNUM - | asr ITYPE, CARG1, #47 - | cmn ITYPE, #~LJ_TISNUM - | csinv TMP1, TMP0, ITYPE, lo - | add TMP1, TMP1, #offsetof(GCfuncC, upvalue)/8 - | ldr CARG1, [CFUNC:CARG3, TMP1, lsl #3] - | b ->fff_restv - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | asr ITYPE, CARG1, #47 - | cmn ITYPE, #-LJ_TTAB - | ccmn ITYPE, #-LJ_TUDATA, #4, ne - | and TAB:CARG1, CARG1, #LJ_GCVMASK - | bne >6 - |1: // Field metatable must be at same offset for GCtab and GCudata! - | ldr TAB:RB, TAB:CARG1->metatable - |2: - | mov CARG1, TISNIL - | ldr STR:RC, GL->gcroot[GCROOT_MMNAME+MM_metatable] - | cbz TAB:RB, ->fff_restv - | ldr TMP1w, TAB:RB->hmask - | ldr TMP2w, STR:RC->hash - | ldr NODE:CARG3, TAB:RB->node - | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask - | add TMP1, TMP1, TMP1, lsl #1 - | movn CARG4, #~LJ_TSTR - | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 - | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. - |3: // Rearranged logic, because we expect _not_ to find the key. - | ldp CARG1, TMP0, NODE:CARG3->val - | ldr NODE:CARG3, NODE:CARG3->next - | cmp TMP0, CARG4 - | beq >5 - | cbnz NODE:CARG3, <3 - |4: - | mov CARG1, RB // Use metatable as default result. - | movk CARG1, #(LJ_TTAB>>1)&0xffff, lsl #48 - | b ->fff_restv - |5: - | cmp TMP0, TISNIL - | bne ->fff_restv - | b <4 - | - |6: - | movn TMP0, #~LJ_TISNUM - | cmp ITYPE, TMP0 - | csel ITYPE, ITYPE, TMP0, hs - | sub TMP1, GL, ITYPE, lsl #3 - | ldr TAB:RB, [TMP1, #offsetof(global_State, gcroot[GCROOT_BASEMT])-8] - | b <2 - | - |.ffunc_2 setmetatable - | // Fast path: no mt for table yet and not clearing the mt. - | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback - | ldr TAB:TMP0, TAB:TMP1->metatable - | asr ITYPE, CARG2, #47 - | ldrb TMP2w, TAB:TMP1->marked - | cmn ITYPE, #-LJ_TTAB - | and TAB:CARG2, CARG2, #LJ_GCVMASK - | ccmp TAB:TMP0, #0, #0, eq - | bne ->fff_fallback - | str TAB:CARG2, TAB:TMP1->metatable - | tbz TMP2w, #2, ->fff_restv // isblack(table) - | barrierback TAB:TMP1, TMP2w, TMP0 - | b ->fff_restv - | - |.ffunc rawget - | ldr CARG2, [BASE] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - | checktab CARG2, ->fff_fallback - | mov CARG1, L - | add CARG3, BASE, #8 - | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - | // Returns cTValue *. - | ldr CARG1, [CRET1] - | b ->fff_restv - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | ldr CARG1, [BASE] - | cmp NARGS8:RC, #8 - | bne ->fff_fallback - | checknumber CARG1, ->fff_fallback - | b ->fff_restv - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | asr ITYPE, CARG1, #47 - | cmn ITYPE, #-LJ_TSTR - | // A __tostring method in the string base metatable is ignored. - | beq ->fff_restv - | // Handle numbers inline, unless a number base metatable is present. - | ldr TMP1, GL->gcroot[GCROOT_BASEMT_NUM] - | str BASE, L->base - | cmn ITYPE, #-LJ_TISNUM - | ccmp TMP1, #0, #0, ls - | str PC, SAVE_PC // Redundant (but a defined value). - | bne ->fff_fallback - | ffgccheck - | mov CARG1, L - | mov CARG2, BASE - | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) - | // Returns GCstr *. - | movn TMP1, #~LJ_TSTR - | ldr BASE, L->base - | add CARG1, CARG1, TMP1, lsl #47 - | b ->fff_restv - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc_1 next - | checktp CARG2, CARG1, LJ_TTAB, ->fff_fallback - | str TISNIL, [BASE, NARGS8:RC] // Set missing 2nd arg to nil. - | ldr PC, [BASE, FRAME_PC] - | stp BASE, BASE, L->base // Add frame since C call can throw. - | mov CARG1, L - | add CARG3, BASE, #8 - | str PC, SAVE_PC - | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - | // Returns 0 at end of traversal. - | str TISNIL, [BASE, #-16] - | cbz CRET1, ->fff_res1 // End of traversal: return nil. - | ldp CARG1, CARG2, [BASE, #8] // Copy key and value to results. - | mov RC, #(2+1)*8 - | stp CARG1, CARG2, [BASE, #-16] - | b ->fff_res - | - |.ffunc_1 pairs - | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback -#if LJ_52 - | ldr TAB:CARG2, TAB:TMP1->metatable -#endif - | ldr CFUNC:CARG4, CFUNC:CARG3->upvalue[0] - | ldr PC, [BASE, FRAME_PC] -#if LJ_52 - | cbnz TAB:CARG2, ->fff_fallback -#endif - | mov RC, #(3+1)*8 - | stp CARG1, TISNIL, [BASE, #-8] - | str CFUNC:CARG4, [BASE, #-16] - | b ->fff_res - | - |.ffunc_2 ipairs_aux - | checktab CARG1, ->fff_fallback - | checkint CARG2, ->fff_fallback - | ldr TMP1w, TAB:CARG1->asize - | ldr CARG3, TAB:CARG1->array - | ldr TMP0w, TAB:CARG1->hmask - | add CARG2w, CARG2w, #1 - | cmp CARG2w, TMP1w - | ldr PC, [BASE, FRAME_PC] - | add TMP2, CARG2, TISNUM - | mov RC, #(0+1)*8 - | str TMP2, [BASE, #-16] - | bhs >2 // Not in array part? - | ldr TMP0, [CARG3, CARG2, lsl #3] - |1: - | mov TMP1, #(2+1)*8 - | cmp TMP0, TISNIL - | str TMP0, [BASE, #-8] - | csel RC, RC, TMP1, eq - | b ->fff_res - |2: // Check for empty hash part first. Otherwise call C function. - | cbz TMP0w, ->fff_res - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | cbz CRET1, ->fff_res - | ldr TMP0, [CRET1] - | b <1 - | - |.ffunc_1 ipairs - | checktp TMP1, CARG1, LJ_TTAB, ->fff_fallback -#if LJ_52 - | ldr TAB:CARG2, TAB:TMP1->metatable -#endif - | ldr CFUNC:CARG4, CFUNC:CARG3->upvalue[0] - | ldr PC, [BASE, FRAME_PC] -#if LJ_52 - | cbnz TAB:CARG2, ->fff_fallback -#endif - | mov RC, #(3+1)*8 - | stp CARG1, TISNUM, [BASE, #-8] - | str CFUNC:CARG4, [BASE, #-16] - | b ->fff_res - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc pcall - | ldrb TMP0w, GL->hookmask - | subs NARGS8:RC, NARGS8:RC, #8 - | blo ->fff_fallback - | mov RB, BASE - | add BASE, BASE, #16 - | ubfx TMP0w, TMP0w, #HOOK_ACTIVE_SHIFT, #1 - | add PC, TMP0, #16+FRAME_PCALL - | beq ->vm_call_dispatch - |1: - | add TMP2, BASE, NARGS8:RC - |2: - | ldr TMP0, [TMP2, #-16] - | str TMP0, [TMP2, #-8]! - | cmp TMP2, BASE - | bne <2 - | b ->vm_call_dispatch - | - |.ffunc xpcall - | ldp CARG1, CARG2, [BASE] - | ldrb TMP0w, GL->hookmask - | subs NARGS8:RC, NARGS8:RC, #16 - | blo ->fff_fallback - | mov RB, BASE - | add BASE, BASE, #24 - | asr ITYPE, CARG2, #47 - | ubfx TMP0w, TMP0w, #HOOK_ACTIVE_SHIFT, #1 - | cmn ITYPE, #-LJ_TFUNC - | add PC, TMP0, #24+FRAME_PCALL - | bne ->fff_fallback // Traceback must be a function. - | stp CARG2, CARG1, [RB] // Swap function and traceback. - | cbz NARGS8:RC, ->vm_call_dispatch - | b <1 - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | checktp CARG1, LJ_TTHREAD, ->fff_fallback - |.else - |.ffunc coroutine_wrap_aux - | ldr L:CARG1, CFUNC:CARG3->upvalue[0].gcr - | and L:CARG1, CARG1, #LJ_GCVMASK - |.endif - | ldr PC, [BASE, FRAME_PC] - | str BASE, L->base - | ldp RB, CARG2, L:CARG1->base - | ldrb TMP1w, L:CARG1->status - | add TMP0, CARG2, TMP1 - | str PC, SAVE_PC - | cmp TMP0, RB - | beq ->fff_fallback - | cmp TMP1, #LUA_YIELD - | add TMP0, CARG2, #8 - | csel CARG2, CARG2, TMP0, hs - | ldr CARG4, L:CARG1->maxstack - | add CARG3, CARG2, NARGS8:RC - | ldr RB, L:CARG1->cframe - | ccmp CARG3, CARG4, #2, ls - | ccmp RB, #0, #2, ls - | bhi ->fff_fallback - |.if resume - | sub CARG3, CARG3, #8 // Keep resumed thread in stack for GC. - | add BASE, BASE, #8 - | sub NARGS8:RC, NARGS8:RC, #8 - |.endif - | str CARG3, L:CARG1->top - | str BASE, L->top - | cbz NARGS8:RC, >3 - |2: // Move args to coroutine. - | ldr TMP0, [BASE, RB] - | cmp RB, NARGS8:RC - | str TMP0, [CARG2, RB] - | add RB, RB, #8 - | bne <2 - |3: - | mov CARG3, #0 - | mov L:RA, L:CARG1 - | mov CARG4, #0 - | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | // Returns thread status. - |4: - | ldp CARG3, CARG4, L:RA->base - | cmp CRET1, #LUA_YIELD - | ldr BASE, L->base - | str L, GL->cur_L - | st_vmstate ST_INTERP - | bhi >8 - | sub RC, CARG4, CARG3 - | ldr CARG1, L->maxstack - | add CARG2, BASE, RC - | cbz RC, >6 // No results? - | cmp CARG2, CARG1 - | mov RB, #0 - | bhi >9 // Need to grow stack? - | - | sub CARG4, RC, #8 - | str CARG3, L:RA->top // Clear coroutine stack. - |5: // Move results from coroutine. - | ldr TMP0, [CARG3, RB] - | cmp RB, CARG4 - | str TMP0, [BASE, RB] - | add RB, RB, #8 - | bne <5 - |6: - |.if resume - | mov_true TMP1 - | add RC, RC, #16 - |7: - | str TMP1, [BASE, #-8] // Prepend true/false to results. - | sub RA, BASE, #8 - |.else - | mov RA, BASE - | add RC, RC, #8 - |.endif - | ands CARG1, PC, #FRAME_TYPE - | str PC, SAVE_PC - | str RCw, SAVE_MULTRES - | beq ->BC_RET_Z - | b ->vm_return - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | ldr TMP0, [CARG4, #-8]! - | mov_false TMP1 - | mov RC, #(2+1)*8 - | str CARG4, L:RA->top // Remove error from coroutine stack. - | str TMP0, [BASE] // Copy error message. - | b <7 - |.else - | mov CARG1, L - | mov CARG2, L:RA - | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) - | // Never returns. - |.endif - | - |9: // Handle stack expansion on return from yield. - | mov CARG1, L - | lsr CARG2, RC, #3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | mov CRET1, #0 - | b <4 - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | ldr TMP0, L->cframe - | add TMP1, BASE, NARGS8:RC - | mov CRET1, #LUA_YIELD - | stp BASE, TMP1, L->base - | tbz TMP0, #0, ->fff_fallback - | str xzr, L->cframe - | strb CRET1w, L->status - | b ->vm_leave_unw - | - |//-- Math library ------------------------------------------------------- - | - |.macro math_round, func, round - | .ffunc math_ .. func - | ldr CARG1, [BASE] - | cmp NARGS8:RC, #8 - | ldr d0, [BASE] - | blo ->fff_fallback - | cmp TISNUMhi, CARG1, lsr #32 - | beq ->fff_restv - | round d0, d0 - | b ->fff_resn - |.endmacro - | - | math_round floor, frintm - | math_round ceil, frintp - | - |.ffunc_1 math_abs - | checknumber CARG1, ->fff_fallback - | and CARG1, CARG1, #U64x(7fffffff,ffffffff) - | bne ->fff_restv - | eor CARG2w, CARG1w, CARG1w, asr #31 - | movz CARG3, #0x41e0, lsl #48 // 2^31. - | subs CARG1w, CARG2w, CARG1w, asr #31 - | add CARG1, CARG1, TISNUM - | csel CARG1, CARG1, CARG3, pl - | // Fallthrough. - | - |->fff_restv: - | // CARG1 = TValue result. - | ldr PC, [BASE, FRAME_PC] - | str CARG1, [BASE, #-16] - |->fff_res1: - | // PC = return. - | mov RC, #(1+1)*8 - |->fff_res: - | // RC = (nresults+1)*8, PC = return. - | ands CARG1, PC, #FRAME_TYPE - | str RCw, SAVE_MULTRES - | sub RA, BASE, #16 - | bne ->vm_return - | ldr INSw, [PC, #-4] - | decode_RB RB, INS - |5: - | cmp RC, RB, lsl #3 // More results expected? - | blo >6 - | decode_RA TMP1, INS - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | sub BASE, RA, TMP1, lsl #3 - | ins_next - | - |6: // Fill up results with nil. - | add TMP1, RA, RC - | add RC, RC, #8 - | str TISNIL, [TMP1, #-8] - | b <5 - | - |.macro math_extern, func - | .ffunc_n math_ .. func - | bl extern func - | b ->fff_resn - |.endmacro - | - |.macro math_extern2, func - | .ffunc_nn math_ .. func - | bl extern func - | b ->fff_resn - |.endmacro - | - |.ffunc_n math_sqrt - | fsqrt d0, d0 - |->fff_resn: - | ldr PC, [BASE, FRAME_PC] - | str d0, [BASE, #-16] - | b ->fff_res1 - | - |.ffunc math_log - | ldr CARG1, [BASE] - | cmp NARGS8:RC, #8 - | ldr FARG1, [BASE] - | bne ->fff_fallback // Need exactly 1 argument. - | checknum CARG1, ->fff_fallback - | bl extern log - | b ->fff_resn - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |.ffunc_2 math_ldexp - | ldr FARG1, [BASE] - | checknum CARG1, ->fff_fallback - | checkint CARG2, ->fff_fallback - | sxtw CARG1, CARG2w - | bl extern ldexp // (double x, int exp) - | b ->fff_resn - | - |.ffunc_n math_frexp - | add CARG1, sp, TMPDofs - | bl extern frexp - | ldr CARG2w, TMPD - | ldr PC, [BASE, FRAME_PC] - | str d0, [BASE, #-16] - | mov RC, #(2+1)*8 - | add CARG2, CARG2, TISNUM - | str CARG2, [BASE, #-8] - | b ->fff_res - | - |.ffunc_n math_modf - | sub CARG1, BASE, #16 - | ldr PC, [BASE, FRAME_PC] - | bl extern modf - | mov RC, #(2+1)*8 - | str d0, [BASE, #-8] - | b ->fff_res - | - |.macro math_minmax, name, cond, fcond - | .ffunc_1 name - | add RB, BASE, RC - | add RA, BASE, #8 - | checkint CARG1, >4 - |1: // Handle integers. - | ldr CARG2, [RA] - | cmp RA, RB - | bhs ->fff_restv - | checkint CARG2, >3 - | cmp CARG1w, CARG2w - | add RA, RA, #8 - | csel CARG1, CARG2, CARG1, cond - | b <1 - |3: // Convert intermediate result to number and continue below. - | scvtf d0, CARG1w - | blo ->fff_fallback - | ldr d1, [RA] - | b >6 - | - |4: - | ldr d0, [BASE] - | blo ->fff_fallback - |5: // Handle numbers. - | ldr CARG2, [RA] - | ldr d1, [RA] - | cmp RA, RB - | bhs ->fff_resn - | checknum CARG2, >7 - |6: - | fcmp d0, d1 - | add RA, RA, #8 - | fcsel d0, d1, d0, fcond - | b <5 - |7: // Convert integer to number and continue above. - | scvtf d1, CARG2w - | blo ->fff_fallback - | b <6 - |.endmacro - | - | math_minmax math_min, gt, hi - | math_minmax math_max, lt, lo - | - |//-- String library ----------------------------------------------------- - | - |.ffunc string_byte // Only handle the 1-arg case here. - | ldp PC, CARG1, [BASE, FRAME_PC] - | cmp NARGS8:RC, #8 - | asr ITYPE, CARG1, #47 - | ccmn ITYPE, #-LJ_TSTR, #0, eq - | and STR:CARG1, CARG1, #LJ_GCVMASK - | bne ->fff_fallback - | ldrb TMP0w, STR:CARG1[1] // Access is always ok (NUL at end). - | ldr CARG3w, STR:CARG1->len - | add TMP0, TMP0, TISNUM - | str TMP0, [BASE, #-16] - | mov RC, #(0+1)*8 - | cbz CARG3, ->fff_res - | b ->fff_res1 - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | ldp PC, CARG1, [BASE, FRAME_PC] - | cmp CARG1w, #255 - | ccmp NARGS8:RC, #8, #0, ls // Need exactly 1 argument. - | bne ->fff_fallback - | checkint CARG1, ->fff_fallback - | mov CARG3, #1 - | mov CARG2, BASE // Points to stack. Little-endian. - |->fff_newstr: - | // CARG2 = str, CARG3 = len. - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_str_new // (lua_State *L, char *str, size_t l) - |->fff_resstr: - | // Returns GCstr *. - | ldr BASE, L->base - | movn TMP1, #~LJ_TSTR - | add CARG1, CARG1, TMP1, lsl #47 - | b ->fff_restv - | - |.ffunc string_sub - | ffgccheck - | ldr CARG1, [BASE] - | ldr CARG3, [BASE, #16] - | cmp NARGS8:RC, #16 - | movn RB, #0 - | beq >1 - | blo ->fff_fallback - | checkint CARG3, ->fff_fallback - | sxtw RB, CARG3w - |1: - | ldr CARG2, [BASE, #8] - | checkstr CARG1, ->fff_fallback - | ldr TMP1w, STR:CARG1->len - | checkint CARG2, ->fff_fallback - | sxtw CARG2, CARG2w - | // CARG1 = str, TMP1 = str->len, CARG2 = start, RB = end - | add TMP2, RB, TMP1 - | cmp RB, #0 - | add TMP0, CARG2, TMP1 - | csinc RB, RB, TMP2, ge // if (end < 0) end += len+1 - | cmp CARG2, #0 - | csinc CARG2, CARG2, TMP0, ge // if (start < 0) start += len+1 - | cmp RB, #0 - | csel RB, RB, xzr, ge // if (end < 0) end = 0 - | cmp CARG2, #1 - | csinc CARG2, CARG2, xzr, ge // if (start < 1) start = 1 - | cmp RB, TMP1 - | csel RB, RB, TMP1, le // if (end > len) end = len - | add CARG1, STR:CARG1, #sizeof(GCstr)-1 - | subs CARG3, RB, CARG2 // len = end - start - | add CARG2, CARG1, CARG2 - | add CARG3, CARG3, #1 // len += 1 - | bge ->fff_newstr - | add STR:CARG1, GL, #offsetof(global_State, strempty) - | movn TMP1, #~LJ_TSTR - | add CARG1, CARG1, TMP1, lsl #47 - | b ->fff_restv - | - |.macro ffstring_op, name - | .ffunc string_ .. name - | ffgccheck - | ldr CARG2, [BASE] - | cmp NARGS8:RC, #8 - | asr ITYPE, CARG2, #47 - | ccmn ITYPE, #-LJ_TSTR, #0, hs - | and STR:CARG2, CARG2, #LJ_GCVMASK - | bne ->fff_fallback - | ldr TMP0, GL->tmpbuf.b - | add SBUF:CARG1, GL, #offsetof(global_State, tmpbuf) - | str BASE, L->base - | str PC, SAVE_PC - | str L, GL->tmpbuf.L - | str TMP0, GL->tmpbuf.p - | bl extern lj_buf_putstr_ .. name - | bl extern lj_buf_tostr - | b ->fff_resstr - |.endmacro - | - |ffstring_op reverse - |ffstring_op lower - |ffstring_op upper - | - |//-- Bit library -------------------------------------------------------- - | - |// FP number to bit conversion for soft-float. Clobbers CARG1-CARG3 - |->vm_tobit_fb: - | bls ->fff_fallback - | add CARG2, CARG1, CARG1 - | mov CARG3, #1076 - | sub CARG3, CARG3, CARG2, lsr #53 - | cmp CARG3, #53 - | bhi >1 - | and CARG2, CARG2, #U64x(001fffff,ffffffff) - | orr CARG2, CARG2, #U64x(00200000,00000000) - | cmp CARG1, #0 - | lsr CARG2, CARG2, CARG3 - | cneg CARG1w, CARG2w, mi - | br lr - |1: - | mov CARG1w, #0 - | br lr - | - |.macro .ffunc_bit, name - | .ffunc_1 bit_..name - | adr lr, >1 - | checkint CARG1, ->vm_tobit_fb - |1: - |.endmacro - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name - | mov RA, #8 - | mov TMP0w, CARG1w - | adr lr, >2 - |1: - | ldr CARG1, [BASE, RA] - | cmp RA, NARGS8:RC - | add RA, RA, #8 - | bge >9 - | checkint CARG1, ->vm_tobit_fb - |2: - | ins TMP0w, TMP0w, CARG1w - | b <1 - |.endmacro - | - |.ffunc_bit_op band, and - |.ffunc_bit_op bor, orr - |.ffunc_bit_op bxor, eor - | - |.ffunc_bit tobit - | mov TMP0w, CARG1w - |9: // Label reused by .ffunc_bit_op users. - | add CARG1, TMP0, TISNUM - | b ->fff_restv - | - |.ffunc_bit bswap - | rev TMP0w, CARG1w - | add CARG1, TMP0, TISNUM - | b ->fff_restv - | - |.ffunc_bit bnot - | mvn TMP0w, CARG1w - | add CARG1, TMP0, TISNUM - | b ->fff_restv - | - |.macro .ffunc_bit_sh, name, ins, shmod - | .ffunc bit_..name - | ldp TMP0, CARG1, [BASE] - | cmp NARGS8:RC, #16 - | blo ->fff_fallback - | adr lr, >1 - | checkint CARG1, ->vm_tobit_fb - |1: - |.if shmod == 0 - | mov TMP1, CARG1 - |.else - | neg TMP1, CARG1 - |.endif - | mov CARG1, TMP0 - | adr lr, >2 - | checkint CARG1, ->vm_tobit_fb - |2: - | ins TMP0w, CARG1w, TMP1w - | add CARG1, TMP0, TISNUM - | b ->fff_restv - |.endmacro - | - |.ffunc_bit_sh lshift, lsl, 0 - |.ffunc_bit_sh rshift, lsr, 0 - |.ffunc_bit_sh arshift, asr, 0 - |.ffunc_bit_sh rol, ror, 1 - |.ffunc_bit_sh ror, ror, 0 - | - |//----------------------------------------------------------------------- - | - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RC = nargs*8 - | ldp CFUNC:CARG3, PC, [BASE, FRAME_FUNC] // Fallback may overwrite PC. - | ldr TMP2, L->maxstack - | add TMP1, BASE, NARGS8:RC - | stp BASE, TMP1, L->base - | and CFUNC:CARG3, CARG3, #LJ_GCVMASK - | add TMP1, TMP1, #8*LUA_MINSTACK - | ldr CARG3, CFUNC:CARG3->f - | str PC, SAVE_PC // Redundant (but a defined value). - | cmp TMP1, TMP2 - | mov CARG1, L - | bhi >5 // Need to grow stack. - | blr CARG3 // (lua_State *L) - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | ldr BASE, L->base - | cmp CRET1w, #0 - | lsl RC, CRET1, #3 - | sub RA, BASE, #16 - | bgt ->fff_res // Returned nresults+1? - |1: // Returned 0 or -1: retry fast path. - | ldr CARG1, L->top - | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] - | sub NARGS8:RC, CARG1, BASE - | bne ->vm_call_tail // Returned -1? - | and CFUNC:CARG3, CARG3, #LJ_GCVMASK - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | ands TMP0, PC, #FRAME_TYPE - | and TMP1, PC, #~FRAME_TYPEP - | bne >3 - | ldrb RAw, [PC, #-3] - | lsl RA, RA, #3 - | add TMP1, RA, #16 - |3: - | sub RB, BASE, TMP1 - | b ->vm_call_dispatch // Resolve again for tailcall. - | - |5: // Grow stack for fallback handler. - | mov CARG2, #LUA_MINSTACK - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldr BASE, L->base - | cmp CARG1, CARG1 // Set zero-flag to force retry. - | b <1 - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RC = nargs*8 - | add CARG2, BASE, NARGS8:RC // Calculate L->top. - | mov RA, lr - | stp BASE, CARG2, L->base - | str PC, SAVE_PC // Redundant (but a defined value). - | mov CARG1, L - | bl extern lj_gc_step // (lua_State *L) - | ldp BASE, CARG2, L->base - | ldr CFUNC:CARG3, [BASE, FRAME_FUNC] - | mov lr, RA // Help return address predictor. - | sub NARGS8:RC, CARG2, BASE // Calculate nargs*8. - | and CFUNC:CARG3, CARG3, #LJ_GCVMASK - | ret - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - | NYI - | - |->vm_rethook: // Dispatch target for return hooks. - | ldrb TMP2w, GL->hookmask - | tbz TMP2w, #HOOK_ACTIVE_SHIFT, >1 // Hook already active? - |5: // Re-dispatch to static ins. - | ldr TMP0, [TMP1, #GG_G2DISP+GG_DISP2STATIC] - | br TMP0 - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | ldrb TMP2w, GL->hookmask - | ldr TMP3w, GL->hookcount - | tbnz TMP2w, #HOOK_ACTIVE_SHIFT, <5 // Hook already active? - | tst TMP2w, #LUA_MASKLINE|LUA_MASKCOUNT - | beq <5 - | sub TMP3w, TMP3w, #1 - | str TMP3w, GL->hookcount - | cbz TMP3w, >1 - | tbz TMP2w, #LUA_HOOKLINE, <5 - |1: - | mov CARG1, L - | str BASE, L->base - | mov CARG2, PC - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) - |3: - | ldr BASE, L->base - |4: // Re-dispatch to static ins. - | ldr INSw, [PC, #-4] - | add TMP1, GL, INS, uxtb #3 - | decode_RA RA, INS - | ldr TMP0, [TMP1, #GG_G2DISP+GG_DISP2STATIC] - | decode_RD RC, INS - | br TMP0 - | - |->cont_hook: // Continue from hook yield. - | ldr CARG1, [CARG4, #-40] - | add PC, PC, #4 - | str CARG1w, SAVE_MULTRES // Restore MULTRES for *M ins. - | b <4 - | - |->vm_hotloop: // Hot loop counter underflow. - | NYI - | - |->vm_callhook: // Dispatch target for call hooks. - | mov CARG2, PC - |.if JIT - | b >1 - |.endif - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | orr CARG2, PC, #1 - |1: - |.endif - | add TMP1, BASE, NARGS8:RC - | str PC, SAVE_PC - | mov CARG1, L - | sub RA, RA, BASE - | stp BASE, TMP1, L->base - | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) - | // Returns ASMFunction. - | ldp BASE, TMP1, L->base - | str xzr, SAVE_PC // Invalidate for subsequent line hook. - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | add RA, BASE, RA - | sub NARGS8:RC, TMP1, BASE - | ldr INSw, [PC, #-4] - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | br CRET1 - | - |->cont_stitch: // Trace stitching. - | NYI - | - |->vm_profhook: // Dispatch target for profiler hook. -#if LJ_HASPROFILE - | mov CARG1, L - | str BASE, L->base - | mov CARG2, PC - | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) - | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. - | ldr BASE, L->base - | sub PC, PC, #4 - | b ->cont_nop -#endif - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_exit_handler: - | NYI - |->vm_exit_interp: - | NYI - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - | // int lj_vm_modi(int dividend, int divisor); - |->vm_modi: - | eor CARG4w, CARG1w, CARG2w - | cmp CARG4w, #0 - | eor CARG3w, CARG1w, CARG1w, asr #31 - | eor CARG4w, CARG2w, CARG2w, asr #31 - | sub CARG3w, CARG3w, CARG1w, asr #31 - | sub CARG4w, CARG4w, CARG2w, asr #31 - | udiv CARG1w, CARG3w, CARG4w - | msub CARG1w, CARG1w, CARG4w, CARG3w - | ccmp CARG1w, #0, #4, mi - | sub CARG3w, CARG1w, CARG4w - | csel CARG1w, CARG1w, CARG3w, eq - | eor CARG3w, CARG1w, CARG2w - | cmp CARG3w, #0 - | cneg CARG1w, CARG1w, mi - | ret - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Handler for callback functions. - |// Saveregs already performed. Callback slot number in [sp], g in r12. - |->vm_ffi_callback: - |.if FFI - |.type CTSTATE, CTState, PC - | saveregs - | ldr CTSTATE, GL:x10->ctype_state - | mov GL, x10 - | add x10, sp, # CFRAME_SPACE - | str w9, CTSTATE->cb.slot - | stp x0, x1, CTSTATE->cb.gpr[0] - | stp d0, d1, CTSTATE->cb.fpr[0] - | stp x2, x3, CTSTATE->cb.gpr[2] - | stp d2, d3, CTSTATE->cb.fpr[2] - | stp x4, x5, CTSTATE->cb.gpr[4] - | stp d4, d5, CTSTATE->cb.fpr[4] - | stp x6, x7, CTSTATE->cb.gpr[6] - | stp d6, d7, CTSTATE->cb.fpr[6] - | str x10, CTSTATE->cb.stack - | mov CARG1, CTSTATE - | str CTSTATE, SAVE_PC // Any value outside of bytecode is ok. - | mov CARG2, sp - | bl extern lj_ccallback_enter // (CTState *cts, void *cf) - | // Returns lua_State *. - | ldp BASE, RC, L:CRET1->base - | movz TISNUM, #(LJ_TISNUM>>1)&0xffff, lsl #48 - | movz TISNUMhi, #(LJ_TISNUM>>1)&0xffff, lsl #16 - | movn TISNIL, #0 - | mov L, CRET1 - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | sub RC, RC, BASE - | st_vmstate ST_INTERP - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | ins_callt - |.endif - | - |->cont_ffi_callback: // Return from FFI callback. - |.if FFI - | ldr CTSTATE, GL->ctype_state - | stp BASE, CARG4, L->base - | str L, CTSTATE->L - | mov CARG1, CTSTATE - | mov CARG2, RA - | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) - | ldp x0, x1, CTSTATE->cb.gpr[0] - | ldp d0, d1, CTSTATE->cb.fpr[0] - | b ->vm_leave_unw - |.endif - | - |->vm_ffi_call: // Call C function via FFI. - | // Caveat: needs special frame unwinding, see below. - |.if FFI - | .type CCSTATE, CCallState, x19 - | stp fp, lr, [sp, #-32]! - | add fp, sp, #0 - | str CCSTATE, [sp, #16] - | mov CCSTATE, x0 - | ldr TMP0w, CCSTATE:x0->spadj - | ldrb TMP1w, CCSTATE->nsp - | add TMP2, CCSTATE, #offsetof(CCallState, stack) - | subs TMP1, TMP1, #1 - | ldr TMP3, CCSTATE->func - | sub sp, fp, TMP0 - | bmi >2 - |1: // Copy stack slots - | ldr TMP0, [TMP2, TMP1, lsl #3] - | str TMP0, [sp, TMP1, lsl #3] - | subs TMP1, TMP1, #1 - | bpl <1 - |2: - | ldp x0, x1, CCSTATE->gpr[0] - | ldp d0, d1, CCSTATE->fpr[0] - | ldp x2, x3, CCSTATE->gpr[2] - | ldp d2, d3, CCSTATE->fpr[2] - | ldp x4, x5, CCSTATE->gpr[4] - | ldp d4, d5, CCSTATE->fpr[4] - | ldp x6, x7, CCSTATE->gpr[6] - | ldp d6, d7, CCSTATE->fpr[6] - | ldr x8, CCSTATE->retp - | blr TMP3 - | mov sp, fp - | stp x0, x1, CCSTATE->gpr[0] - | stp d0, d1, CCSTATE->fpr[0] - | stp d2, d3, CCSTATE->fpr[2] - | ldr CCSTATE, [sp, #16] - | ldp fp, lr, [sp], #32 - | ret - |.endif - |// Note: vm_ffi_call must be the last function in this object file! - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1, RC = src2, JMP with RC = target - | ldr CARG1, [BASE, RA, lsl #3] - | ldrh RBw, [PC, #2] - | ldr CARG2, [BASE, RC, lsl #3] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | sub RB, RB, #0x20000 - | checkint CARG1, >3 - | checkint CARG2, >4 - | cmp CARG1w, CARG2w - if (op == BC_ISLT) { - | csel PC, RB, PC, lt - } else if (op == BC_ISGE) { - | csel PC, RB, PC, ge - } else if (op == BC_ISLE) { - | csel PC, RB, PC, le - } else { - | csel PC, RB, PC, gt - } - |1: - | ins_next - | - |3: // RA not int. - | ldr FARG1, [BASE, RA, lsl #3] - | blo ->vmeta_comp - | ldr FARG2, [BASE, RC, lsl #3] - | cmp TISNUMhi, CARG2, lsr #32 - | bhi >5 - | bne ->vmeta_comp - | // RA number, RC int. - | scvtf FARG2, CARG2w - | b >5 - | - |4: // RA int, RC not int - | ldr FARG2, [BASE, RC, lsl #3] - | blo ->vmeta_comp - | // RA int, RC number. - | scvtf FARG1, CARG1w - | - |5: // RA number, RC number - | fcmp FARG1, FARG2 - | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. - if (op == BC_ISLT) { - | csel PC, RB, PC, lo - } else if (op == BC_ISGE) { - | csel PC, RB, PC, hs - } else if (op == BC_ISLE) { - | csel PC, RB, PC, ls - } else { - | csel PC, RB, PC, hi - } - | b <1 - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | // RA = src1, RC = src2, JMP with RC = target - | ldr CARG1, [BASE, RA, lsl #3] - | add RC, BASE, RC, lsl #3 - | ldrh RBw, [PC, #2] - | ldr CARG3, [RC] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | sub RB, RB, #0x20000 - | asr ITYPE, CARG3, #47 - | cmn ITYPE, #-LJ_TISNUM - if (vk) { - | bls ->BC_ISEQN_Z - } else { - | bls ->BC_ISNEN_Z - } - | // RC is not a number. - | asr TMP0, CARG1, #47 - |.if FFI - | // Check if RC or RA is a cdata. - | cmn ITYPE, #-LJ_TCDATA - | ccmn TMP0, #-LJ_TCDATA, #4, ne - | beq ->vmeta_equal_cd - |.endif - | cmp CARG1, CARG3 - | bne >2 - | // Tag and value are equal. - if (vk) { - |->BC_ISEQV_Z: - | mov PC, RB // Perform branch. - } - |1: - | ins_next - | - |2: // Check if the tags are the same and it's a table or userdata. - | cmp ITYPE, TMP0 - | ccmn ITYPE, #-LJ_TISTABUD, #2, eq - if (vk) { - | bhi <1 - } else { - | bhi ->BC_ISEQV_Z // Reuse code from opposite instruction. - } - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | and TAB:CARG2, CARG1, #LJ_GCVMASK - | ldr TAB:TMP2, TAB:CARG2->metatable - if (vk) { - | cbz TAB:TMP2, <1 // No metatable? - | ldrb TMP1w, TAB:TMP2->nomm - | mov CARG4, #0 // ne = 0 - | tbnz TMP1w, #MM_eq, <1 // 'no __eq' flag set: done. - } else { - | cbz TAB:TMP2, ->BC_ISEQV_Z // No metatable? - | ldrb TMP1w, TAB:TMP2->nomm - | mov CARG4, #1 // ne = 1. - | tbnz TMP1w, #MM_eq, ->BC_ISEQV_Z // 'no __eq' flag set: done. - } - | b ->vmeta_equal - break; - - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | // RA = src, RC = str_const (~), JMP with RC = target - | ldr CARG1, [BASE, RA, lsl #3] - | mvn RC, RC - | ldrh RBw, [PC, #2] - | ldr CARG2, [KBASE, RC, lsl #3] - | add PC, PC, #4 - | movn TMP0, #~LJ_TSTR - |.if FFI - | asr ITYPE, CARG1, #47 - |.endif - | add RB, PC, RB, lsl #2 - | add CARG2, CARG2, TMP0, lsl #47 - | sub RB, RB, #0x20000 - |.if FFI - | cmn ITYPE, #-LJ_TCDATA - | beq ->vmeta_equal_cd - |.endif - | cmp CARG1, CARG2 - if (vk) { - | csel PC, RB, PC, eq - } else { - | csel PC, RB, PC, ne - } - | ins_next - break; - - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | // RA = src, RC = num_const (~), JMP with RC = target - | ldr CARG1, [BASE, RA, lsl #3] - | add RC, KBASE, RC, lsl #3 - | ldrh RBw, [PC, #2] - | ldr CARG3, [RC] - | add PC, PC, #4 - | add RB, PC, RB, lsl #2 - | sub RB, RB, #0x20000 - if (vk) { - |->BC_ISEQN_Z: - } else { - |->BC_ISNEN_Z: - } - | checkint CARG1, >4 - | checkint CARG3, >6 - | cmp CARG1w, CARG3w - |1: - if (vk) { - | csel PC, RB, PC, eq - |2: - } else { - |2: - | csel PC, RB, PC, ne - } - |3: - | ins_next - | - |4: // RA not int. - |.if FFI - | blo >7 - |.else - | blo <2 - |.endif - | ldr FARG1, [BASE, RA, lsl #3] - | ldr FARG2, [RC] - | cmp TISNUMhi, CARG3, lsr #32 - | bne >5 - | // RA number, RC int. - | scvtf FARG2, CARG3w - |5: - | // RA number, RC number. - | fcmp FARG1, FARG2 - | b <1 - | - |6: // RA int, RC number - | ldr FARG2, [RC] - | scvtf FARG1, CARG1w - | fcmp FARG1, FARG2 - | b <1 - | - |.if FFI - |7: - | asr ITYPE, CARG1, #47 - | cmn ITYPE, #-LJ_TCDATA - | bne <2 - | b ->vmeta_equal_cd - |.endif - break; - - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | // RA = src, RC = primitive_type (~), JMP with RC = target - | ldr TMP0, [BASE, RA, lsl #3] - | ldrh RBw, [PC, #2] - | add PC, PC, #4 - | add RC, RC, #1 - | add RB, PC, RB, lsl #2 - |.if FFI - | asr ITYPE, TMP0, #47 - | cmn ITYPE, #-LJ_TCDATA - | beq ->vmeta_equal_cd - | cmn RC, ITYPE - |.else - | cmn RC, TMP0, asr #47 - |.endif - | sub RB, RB, #0x20000 - if (vk) { - | csel PC, RB, PC, eq - } else { - | csel PC, RB, PC, ne - } - | ins_next - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | // RA = dst or unused, RC = src, JMP with RC = target - | ldrh RBw, [PC, #2] - | ldr TMP0, [BASE, RC, lsl #3] - | add PC, PC, #4 - | mov_false TMP1 - | add RB, PC, RB, lsl #2 - | cmp TMP0, TMP1 - | sub RB, RB, #0x20000 - if (op == BC_ISTC || op == BC_IST) { - if (op == BC_ISTC) { - | csel RA, RA, RC, lo - } - | csel PC, RB, PC, lo - } else { - if (op == BC_ISFC) { - | csel RA, RA, RC, hs - } - | csel PC, RB, PC, hs - } - if (op == BC_ISTC || op == BC_ISFC) { - | str TMP0, [BASE, RA, lsl #3] - } - | ins_next - break; - - case BC_ISTYPE: - | // RA = src, RC = -type - | ldr TMP0, [BASE, RA, lsl #3] - | cmn RC, TMP0, asr #47 - | bne ->vmeta_istype - | ins_next - break; - case BC_ISNUM: - | // RA = src, RC = -(TISNUM-1) - | ldr TMP0, [BASE, RA] - | checknum TMP0, ->vmeta_istype - | ins_next - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | // RA = dst, RC = src - | ldr TMP0, [BASE, RC, lsl #3] - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_NOT: - | // RA = dst, RC = src - | ldr TMP0, [BASE, RC, lsl #3] - | mov_false TMP1 - | mov_true TMP2 - | cmp TMP0, TMP1 - | csel TMP0, TMP1, TMP2, lo - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_UNM: - | // RA = dst, RC = src - | ldr TMP0, [BASE, RC, lsl #3] - | asr ITYPE, TMP0, #47 - | cmn ITYPE, #-LJ_TISNUM - | bhi ->vmeta_unm - | eor TMP0, TMP0, #U64x(80000000,00000000) - | bne >5 - | negs TMP0w, TMP0w - | movz CARG3, #0x41e0, lsl #48 // 2^31. - | add TMP0, TMP0, TISNUM - | csel TMP0, TMP0, CARG3, vc - |5: - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_LEN: - | // RA = dst, RC = src - | ldr CARG1, [BASE, RC, lsl #3] - | asr ITYPE, CARG1, #47 - | cmn ITYPE, #-LJ_TSTR - | and CARG1, CARG1, #LJ_GCVMASK - | bne >2 - | ldr CARG1w, STR:CARG1->len - |1: - | add CARG1, CARG1, TISNUM - | str CARG1, [BASE, RA, lsl #3] - | ins_next - | - |2: - | cmn ITYPE, #-LJ_TTAB - | bne ->vmeta_len -#if LJ_52 - | ldr TAB:CARG2, TAB:CARG1->metatable - | cbnz TAB:CARG2, >9 - |3: -#endif - |->BC_LEN_Z: - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | b <1 - | -#if LJ_52 - |9: - | ldrb TMP1w, TAB:CARG2->nomm - | tbnz TMP1w, #MM_len, <3 // 'no __len' flag set: done. - | b ->vmeta_len -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithcheck_int, target - | checkint CARG1, target - | checkint CARG2, target - |.endmacro - | - |.macro ins_arithcheck_num, target - | checknum CARG1, target - | checknum CARG2, target - |.endmacro - | - |.macro ins_arithcheck_nzdiv, target - | cbz CARG2w, target - |.endmacro - | - |.macro ins_arithhead - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||if (vk == 1) { - | and RC, RC, #255 - | decode_RB RB, INS - ||} else { - | decode_RB RB, INS - | and RC, RC, #255 - ||} - |.endmacro - | - |.macro ins_arithload, reg1, reg2 - | // RA = dst, RB = src1, RC = src2 | num_const - ||switch (vk) { - ||case 0: - | ldr reg1, [BASE, RB, lsl #3] - | ldr reg2, [KBASE, RC, lsl #3] - || break; - ||case 1: - | ldr reg1, [KBASE, RC, lsl #3] - | ldr reg2, [BASE, RB, lsl #3] - || break; - ||default: - | ldr reg1, [BASE, RB, lsl #3] - | ldr reg2, [BASE, RC, lsl #3] - || break; - ||} - |.endmacro - | - |.macro ins_arithfallback, ins - ||switch (vk) { - ||case 0: - | ins ->vmeta_arith_vn - || break; - ||case 1: - | ins ->vmeta_arith_nv - || break; - ||default: - | ins ->vmeta_arith_vv - || break; - ||} - |.endmacro - | - |.macro ins_arithmod, res, reg1, reg2 - | fdiv d2, reg1, reg2 - | frintm d2, d2 - | fmsub res, d2, reg2, reg1 - |.endmacro - | - |.macro ins_arithdn, intins, fpins - | ins_arithhead - | ins_arithload CARG1, CARG2 - | ins_arithcheck_int >5 - |.if "intins" == "smull" - | smull CARG1, CARG1w, CARG2w - | cmp CARG1, CARG1, sxtw - | mov CARG1w, CARG1w - | ins_arithfallback bne - |.elif "intins" == "ins_arithmodi" - | ins_arithfallback ins_arithcheck_nzdiv - | bl ->vm_modi - |.else - | intins CARG1w, CARG1w, CARG2w - | ins_arithfallback bvs - |.endif - | add CARG1, CARG1, TISNUM - | str CARG1, [BASE, RA, lsl #3] - |4: - | ins_next - | - |5: // FP variant. - | ins_arithload FARG1, FARG2 - | ins_arithfallback ins_arithcheck_num - | fpins FARG1, FARG1, FARG2 - | str FARG1, [BASE, RA, lsl #3] - | b <4 - |.endmacro - | - |.macro ins_arithfp, fpins - | ins_arithhead - | ins_arithload CARG1, CARG2 - | ins_arithload FARG1, FARG2 - | ins_arithfallback ins_arithcheck_num - |.if "fpins" == "fpow" - | bl extern pow - |.else - | fpins FARG1, FARG1, FARG2 - |.endif - | str FARG1, [BASE, RA, lsl #3] - | ins_next - |.endmacro - - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arithdn adds, fadd - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arithdn subs, fsub - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arithdn smull, fmul - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arithfp fdiv - break; - case BC_MODVN: case BC_MODNV: case BC_MODVV: - | ins_arithdn ins_arithmodi, ins_arithmod - break; - case BC_POW: - | // NYI: (partial) integer arithmetic. - | ins_arithfp fpow - break; - - case BC_CAT: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = src_start, RC = src_end - | str BASE, L->base - | sub CARG3, RC, RB - | add CARG2, BASE, RC, lsl #3 - |->BC_CAT_Z: - | // RA = dst, CARG2 = top-1, CARG3 = left - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) - | // Returns NULL (finished) or TValue * (metamethod). - | ldrb RBw, [PC, #-1] - | ldr BASE, L->base - | cbnz CRET1, ->vmeta_binop - | ldr TMP0, [BASE, RB, lsl #3] - | str TMP0, [BASE, RA, lsl #3] // Copy result to RA. - | ins_next - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | // RA = dst, RC = str_const (~) - | mvn RC, RC - | ldr TMP0, [KBASE, RC, lsl #3] - | movn TMP1, #~LJ_TSTR - | add TMP0, TMP0, TMP1, lsl #47 - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_KCDATA: - |.if FFI - | // RA = dst, RC = cdata_const (~) - | mvn RC, RC - | ldr TMP0, [KBASE, RC, lsl #3] - | movn TMP1, #~LJ_TCDATA - | add TMP0, TMP0, TMP1, lsl #47 - | str TMP0, [BASE, RA, lsl #3] - | ins_next - |.endif - break; - case BC_KSHORT: - | // RA = dst, RC = int16_literal - | sxth RCw, RCw - | add TMP0, RC, TISNUM - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_KNUM: - | // RA = dst, RC = num_const - | ldr TMP0, [KBASE, RC, lsl #3] - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_KPRI: - | // RA = dst, RC = primitive_type (~) - | mvn TMP0, RC, lsl #47 - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_KNIL: - | // RA = base, RC = end - | add RA, BASE, RA, lsl #3 - | add RC, BASE, RC, lsl #3 - | str TISNIL, [RA], #8 - |1: - | cmp RA, RC - | str TISNIL, [RA], #8 - | blt <1 - | ins_next_ - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | // RA = dst, RC = uvnum - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | add RC, RC, #offsetof(GCfuncL, uvptr)/8 - | and LFUNC:CARG2, CARG2, #LJ_GCVMASK - | ldr UPVAL:CARG2, [LFUNC:CARG2, RC, lsl #3] - | ldr CARG2, UPVAL:CARG2->v - | ldr TMP0, [CARG2] - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - case BC_USETV: - | // RA = uvnum, RC = src - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | add RA, RA, #offsetof(GCfuncL, uvptr)/8 - | and LFUNC:CARG2, CARG2, #LJ_GCVMASK - | ldr UPVAL:CARG1, [LFUNC:CARG2, RA, lsl #3] - | ldr CARG3, [BASE, RC, lsl #3] - | ldr CARG2, UPVAL:CARG1->v - | ldrb TMP2w, UPVAL:CARG1->marked - | ldrb TMP0w, UPVAL:CARG1->closed - | asr ITYPE, CARG3, #47 - | str CARG3, [CARG2] - | add ITYPE, ITYPE, #-LJ_TISGCV - | tst TMP2w, #LJ_GC_BLACK // isblack(uv) - | ccmp TMP0w, #0, #4, ne // && uv->closed - | ccmn ITYPE, #-(LJ_TNUMX - LJ_TISGCV), #0, ne // && tvisgcv(v) - | bhi >2 - |1: - | ins_next - | - |2: // Check if new value is white. - | and GCOBJ:CARG3, CARG3, #LJ_GCVMASK - | ldrb TMP1w, GCOBJ:CARG3->gch.marked - | tst TMP1w, #LJ_GC_WHITES // iswhite(str) - | beq <1 - | // Crossed a write barrier. Move the barrier forward. - | mov CARG1, GL - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETS: - | // RA = uvnum, RC = str_const (~) - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | add RA, RA, #offsetof(GCfuncL, uvptr)/8 - | mvn RC, RC - | and LFUNC:CARG2, CARG2, #LJ_GCVMASK - | ldr UPVAL:CARG1, [LFUNC:CARG2, RA, lsl #3] - | ldr STR:CARG3, [KBASE, RC, lsl #3] - | movn TMP0, #~LJ_TSTR - | ldr CARG2, UPVAL:CARG1->v - | ldrb TMP2w, UPVAL:CARG1->marked - | add TMP0, STR:CARG3, TMP0, lsl #47 - | ldrb TMP1w, STR:CARG3->marked - | str TMP0, [CARG2] - | tbnz TMP2w, #2, >2 // isblack(uv) - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | ldrb TMP0w, UPVAL:CARG1->closed - | tst TMP1w, #LJ_GC_WHITES // iswhite(str) - | ccmp TMP0w, #0, #0, ne - | beq <1 - | // Crossed a write barrier. Move the barrier forward. - | mov CARG1, GL - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETN: - | // RA = uvnum, RC = num_const - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | add RA, RA, #offsetof(GCfuncL, uvptr)/8 - | and LFUNC:CARG2, CARG2, #LJ_GCVMASK - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA, lsl #3] - | ldr TMP0, [KBASE, RC, lsl #3] - | ldr CARG2, UPVAL:CARG2->v - | str TMP0, [CARG2] - | ins_next - break; - case BC_USETP: - | // RA = uvnum, RC = primitive_type (~) - | ldr LFUNC:CARG2, [BASE, FRAME_FUNC] - | add RA, RA, #offsetof(GCfuncL, uvptr)/8 - | and LFUNC:CARG2, CARG2, #LJ_GCVMASK - | ldr UPVAL:CARG2, [LFUNC:CARG2, RA, lsl #3] - | mvn TMP0, RC, lsl #47 - | ldr CARG2, UPVAL:CARG2->v - | str TMP0, [CARG2] - | ins_next - break; - - case BC_UCLO: - | // RA = level, RC = target - | ldr CARG3, L->openupval - | add RC, PC, RC, lsl #2 - | str BASE, L->base - | sub PC, RC, #0x20000 - | cbz CARG3, >1 - | mov CARG1, L - | add CARG2, BASE, RA, lsl #3 - | bl extern lj_func_closeuv // (lua_State *L, TValue *level) - | ldr BASE, L->base - |1: - | ins_next - break; - - case BC_FNEW: - | // RA = dst, RC = proto_const (~) (holding function prototype) - | mvn RC, RC - | str BASE, L->base - | ldr LFUNC:CARG3, [BASE, FRAME_FUNC] - | str PC, SAVE_PC - | ldr CARG2, [KBASE, RC, lsl #3] - | mov CARG1, L - | and LFUNC:CARG3, CARG3, #LJ_GCVMASK - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | bl extern lj_func_newL_gc - | // Returns GCfuncL *. - | ldr BASE, L->base - | movn TMP0, #~LJ_TFUNC - | add CRET1, CRET1, TMP0, lsl #47 - | str CRET1, [BASE, RA, lsl #3] - | ins_next - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - case BC_TDUP: - | // RA = dst, RC = (hbits|asize) | tab_const (~) - | ldp CARG3, CARG4, GL->gc.total // Assumes threshold follows total. - | str BASE, L->base - | str PC, SAVE_PC - | mov CARG1, L - | cmp CARG3, CARG4 - | bhs >5 - |1: - if (op == BC_TNEW) { - | and CARG2, RC, #0x7ff - | lsr CARG3, RC, #11 - | cmp CARG2, #0x7ff - | mov TMP0, #0x801 - | csel CARG2, CARG2, TMP0, ne - | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) - | // Returns GCtab *. - } else { - | mvn RC, RC - | ldr CARG2, [KBASE, RC, lsl #3] - | bl extern lj_tab_dup // (lua_State *L, Table *kt) - | // Returns GCtab *. - } - | ldr BASE, L->base - | movk CRET1, #(LJ_TTAB>>1)&0xffff, lsl #48 - | str CRET1, [BASE, RA, lsl #3] - | ins_next - | - |5: - | bl extern lj_gc_step_fixtop // (lua_State *L) - | mov CARG1, L - | b <1 - break; - - case BC_GGET: - | // RA = dst, RC = str_const (~) - case BC_GSET: - | // RA = dst, RC = str_const (~) - | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] - | mvn RC, RC - | and LFUNC:CARG1, CARG1, #LJ_GCVMASK - | ldr TAB:CARG2, LFUNC:CARG1->env - | ldr STR:RC, [KBASE, RC, lsl #3] - if (op == BC_GGET) { - | b ->BC_TGETS_Z - } else { - | b ->BC_TSETS_Z - } - break; - - case BC_TGETV: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = table, RC = key - | ldr CARG2, [BASE, RB, lsl #3] - | ldr TMP1, [BASE, RC, lsl #3] - | checktab CARG2, ->vmeta_tgetv - | checkint TMP1, >9 // Integer key? - | ldr CARG3, TAB:CARG2->array - | ldr CARG1w, TAB:CARG2->asize - | add CARG3, CARG3, TMP1, uxtw #3 - | cmp TMP1w, CARG1w // In array part? - | bhs ->vmeta_tgetv - | ldr TMP0, [CARG3] - | cmp TMP0, TISNIL - | beq >5 - |1: - | str TMP0, [BASE, RA, lsl #3] - | ins_next - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <1 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_index, <1 // 'no __index' flag set: done. - | b ->vmeta_tgetv - | - |9: - | asr ITYPE, TMP1, #47 - | cmn ITYPE, #-LJ_TSTR // String key? - | bne ->vmeta_tgetv - | and STR:RC, TMP1, #LJ_GCVMASK - | b ->BC_TGETS_Z - break; - case BC_TGETS: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = table, RC = str_const (~) - | ldr CARG2, [BASE, RB, lsl #3] - | mvn RC, RC - | ldr STR:RC, [KBASE, RC, lsl #3] - | checktab CARG2, ->vmeta_tgets1 - |->BC_TGETS_Z: - | // TAB:CARG2 = GCtab *, STR:RC = GCstr *, RA = dst - | ldr TMP1w, TAB:CARG2->hmask - | ldr TMP2w, STR:RC->hash - | ldr NODE:CARG3, TAB:CARG2->node - | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask - | add TMP1, TMP1, TMP1, lsl #1 - | movn CARG4, #~LJ_TSTR - | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 - | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. - |1: - | ldp TMP0, CARG1, NODE:CARG3->val - | ldr NODE:CARG3, NODE:CARG3->next - | cmp CARG1, CARG4 - | bne >4 - | cmp TMP0, TISNIL - | beq >5 - |3: - | str TMP0, [BASE, RA, lsl #3] - | ins_next - | - |4: // Follow hash chain. - | cbnz NODE:CARG3, <1 - | // End of hash chain: key not found, nil result. - | mov TMP0, TISNIL - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <3 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_index, <3 // 'no __index' flag set: done. - | b ->vmeta_tgets - break; - case BC_TGETB: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = table, RC = index - | ldr CARG2, [BASE, RB, lsl #3] - | checktab CARG2, ->vmeta_tgetb - | ldr CARG3, TAB:CARG2->array - | ldr CARG1w, TAB:CARG2->asize - | add CARG3, CARG3, RC, lsl #3 - | cmp RCw, CARG1w // In array part? - | bhs ->vmeta_tgetb - | ldr TMP0, [CARG3] - | cmp TMP0, TISNIL - | beq >5 - |1: - | str TMP0, [BASE, RA, lsl #3] - | ins_next - | - |5: // Check for __index if table value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <1 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_index, <1 // 'no __index' flag set: done. - | b ->vmeta_tgetb - break; - case BC_TGETR: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = table, RC = key - | ldr CARG1, [BASE, RB, lsl #3] - | ldr TMP1, [BASE, RC, lsl #3] - | and TAB:CARG1, CARG1, #LJ_GCVMASK - | ldr CARG3, TAB:CARG1->array - | ldr TMP2w, TAB:CARG1->asize - | add CARG3, CARG3, TMP1w, uxtw #3 - | cmp TMP1w, TMP2w // In array part? - | bhs ->vmeta_tgetr - | ldr TMP0, [CARG3] - |->BC_TGETR_Z: - | str TMP0, [BASE, RA, lsl #3] - | ins_next - break; - - case BC_TSETV: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = src, RB = table, RC = key - | ldr CARG2, [BASE, RB, lsl #3] - | ldr TMP1, [BASE, RC, lsl #3] - | checktab CARG2, ->vmeta_tsetv - | checkint TMP1, >9 // Integer key? - | ldr CARG3, TAB:CARG2->array - | ldr CARG1w, TAB:CARG2->asize - | add CARG3, CARG3, TMP1, uxtw #3 - | cmp TMP1w, CARG1w // In array part? - | bhs ->vmeta_tsetv - | ldr TMP1, [CARG3] - | ldr TMP0, [BASE, RA, lsl #3] - | ldrb TMP2w, TAB:CARG2->marked - | cmp TMP1, TISNIL // Previous value is nil? - | beq >5 - |1: - | str TMP0, [CARG3] - | tbnz TMP2w, #2, >7 // isblack(table) - |2: - | ins_next - | - |5: // Check for __newindex if previous value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <1 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_newindex, <1 // 'no __newindex' flag set: done. - | b ->vmeta_tsetv - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP2w, TMP1 - | b <2 - | - |9: - | asr ITYPE, TMP1, #47 - | cmn ITYPE, #-LJ_TSTR // String key? - | bne ->vmeta_tsetv - | and STR:RC, TMP1, #LJ_GCVMASK - | b ->BC_TSETS_Z - break; - case BC_TSETS: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = dst, RB = table, RC = str_const (~) - | ldr CARG2, [BASE, RB, lsl #3] - | mvn RC, RC - | ldr STR:RC, [KBASE, RC, lsl #3] - | checktab CARG2, ->vmeta_tsets1 - |->BC_TSETS_Z: - | // TAB:CARG2 = GCtab *, STR:RC = GCstr *, RA = src - | ldr TMP1w, TAB:CARG2->hmask - | ldr TMP2w, STR:RC->hash - | ldr NODE:CARG3, TAB:CARG2->node - | and TMP1w, TMP1w, TMP2w // idx = str->hash & tab->hmask - | add TMP1, TMP1, TMP1, lsl #1 - | movn CARG4, #~LJ_TSTR - | add NODE:CARG3, NODE:CARG3, TMP1, lsl #3 // node = tab->node + idx*3*8 - | add CARG4, STR:RC, CARG4, lsl #47 // Tagged key to look for. - | strb wzr, TAB:CARG2->nomm // Clear metamethod cache. - |1: - | ldp TMP1, CARG1, NODE:CARG3->val - | ldr NODE:TMP3, NODE:CARG3->next - | ldrb TMP2w, TAB:CARG2->marked - | cmp CARG1, CARG4 - | bne >5 - | ldr TMP0, [BASE, RA, lsl #3] - | cmp TMP1, TISNIL // Previous value is nil? - | beq >4 - |2: - | str TMP0, NODE:CARG3->val - | tbnz TMP2w, #2, >7 // isblack(table) - |3: - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <2 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_newindex, <2 // 'no __newindex' flag set: done. - | b ->vmeta_tsets - | - |5: // Follow hash chain. - | mov NODE:CARG3, NODE:TMP3 - | cbnz NODE:TMP3, <1 - | // End of hash chain: key not found, add a new one. - | - | // But check for __newindex first. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, >6 // No metatable: continue. - | ldrb TMP1w, TAB:CARG1->nomm - | // 'no __newindex' flag NOT set: check. - | tbz TMP1w, #MM_newindex, ->vmeta_tsets - |6: - | movn TMP1, #~LJ_TSTR - | str PC, SAVE_PC - | add TMP0, STR:RC, TMP1, lsl #47 - | str BASE, L->base - | mov CARG1, L - | str TMP0, TMPD - | add CARG3, sp, TMPDofs - | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) - | // Returns TValue *. - | ldr BASE, L->base - | ldr TMP0, [BASE, RA, lsl #3] - | str TMP0, [CRET1] - | b <3 // No 2nd write barrier needed. - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP2w, TMP1 - | b <3 - break; - case BC_TSETB: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = src, RB = table, RC = index - | ldr CARG2, [BASE, RB, lsl #3] - | checktab CARG2, ->vmeta_tsetb - | ldr CARG3, TAB:CARG2->array - | ldr CARG1w, TAB:CARG2->asize - | add CARG3, CARG3, RC, lsl #3 - | cmp RCw, CARG1w // In array part? - | bhs ->vmeta_tsetb - | ldr TMP1, [CARG3] - | ldr TMP0, [BASE, RA, lsl #3] - | ldrb TMP2w, TAB:CARG2->marked - | cmp TMP1, TISNIL // Previous value is nil? - | beq >5 - |1: - | str TMP0, [CARG3] - | tbnz TMP2w, #2, >7 // isblack(table) - |2: - | ins_next - | - |5: // Check for __newindex if previous value is nil. - | ldr TAB:CARG1, TAB:CARG2->metatable - | cbz TAB:CARG1, <1 // No metatable: done. - | ldrb TMP1w, TAB:CARG1->nomm - | tbnz TMP1w, #MM_newindex, <1 // 'no __newindex' flag set: done. - | b ->vmeta_tsetb - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP2w, TMP1 - | b <2 - break; - case BC_TSETR: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = src, RB = table, RC = key - | ldr CARG2, [BASE, RB, lsl #3] - | ldr TMP1, [BASE, RC, lsl #3] - | and TAB:CARG2, CARG2, #LJ_GCVMASK - | ldr CARG1, TAB:CARG2->array - | ldrb TMP2w, TAB:CARG2->marked - | ldr CARG4w, TAB:CARG2->asize - | add CARG1, CARG1, TMP1, uxtw #3 - | tbnz TMP2w, #2, >7 // isblack(table) - |2: - | cmp TMP1w, CARG4w // In array part? - | bhs ->vmeta_tsetr - |->BC_TSETR_Z: - | ldr TMP0, [BASE, RA, lsl #3] - | str TMP0, [CARG1] - | ins_next - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP2w, TMP0 - | b <2 - break; - - case BC_TSETM: - | // RA = base (table at base-1), RC = num_const (start index) - | add RA, BASE, RA, lsl #3 - |1: - | ldr RBw, SAVE_MULTRES - | ldr TAB:CARG2, [RA, #-8] // Guaranteed to be a table. - | ldr TMP1, [KBASE, RC, lsl #3] // Integer constant is in lo-word. - | sub RB, RB, #8 - | cbz RB, >4 // Nothing to copy? - | and TAB:CARG2, CARG2, #LJ_GCVMASK - | ldr CARG1w, TAB:CARG2->asize - | add CARG3w, TMP1w, RBw, lsr #3 - | ldr CARG4, TAB:CARG2->array - | cmp CARG3, CARG1 - | add RB, RA, RB - | bhi >5 - | add TMP1, CARG4, TMP1w, uxtw #3 - | ldrb TMP2w, TAB:CARG2->marked - |3: // Copy result slots to table. - | ldr TMP0, [RA], #8 - | str TMP0, [TMP1], #8 - | cmp RA, RB - | blo <3 - | tbnz TMP2w, #2, >7 // isblack(table) - |4: - | ins_next - | - |5: // Need to resize array part. - | str BASE, L->base - | mov CARG1, L - | str PC, SAVE_PC - | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - | // Must not reallocate the stack. - | b <1 - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP2w, TMP1 - | b <4 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALLM: - | // RA = base, (RB = nresults+1,) RC = extra_nargs - | ldr TMP0w, SAVE_MULTRES - | decode_RC8RD NARGS8:RC, RC - | add NARGS8:RC, NARGS8:RC, TMP0 - | b ->BC_CALL_Z - break; - case BC_CALL: - | decode_RC8RD NARGS8:RC, RC - | // RA = base, (RB = nresults+1,) RC = (nargs+1)*8 - |->BC_CALL_Z: - | mov RB, BASE // Save old BASE for vmeta_call. - | add BASE, BASE, RA, lsl #3 - | ldr CARG3, [BASE] - | sub NARGS8:RC, NARGS8:RC, #8 - | add BASE, BASE, #16 - | checkfunc CARG3, ->vmeta_call - | ins_call - break; - - case BC_CALLMT: - | // RA = base, (RB = 0,) RC = extra_nargs - | ldr TMP0w, SAVE_MULTRES - | add NARGS8:RC, TMP0, RC, lsl #3 - | b ->BC_CALLT1_Z - break; - case BC_CALLT: - | lsl NARGS8:RC, RC, #3 - | // RA = base, (RB = 0,) RC = (nargs+1)*8 - |->BC_CALLT1_Z: - | add RA, BASE, RA, lsl #3 - | ldr TMP1, [RA] - | sub NARGS8:RC, NARGS8:RC, #8 - | add RA, RA, #16 - | checktp CARG3, TMP1, LJ_TFUNC, ->vmeta_callt - | ldr PC, [BASE, FRAME_PC] - |->BC_CALLT2_Z: - | mov RB, #0 - | ldrb TMP2w, LFUNC:CARG3->ffid - | tst PC, #FRAME_TYPE - | bne >7 - |1: - | str TMP1, [BASE, FRAME_FUNC] // Copy function down, but keep PC. - | cbz NARGS8:RC, >3 - |2: - | ldr TMP0, [RA, RB] - | add TMP1, RB, #8 - | cmp TMP1, NARGS8:RC - | str TMP0, [BASE, RB] - | mov RB, TMP1 - | bne <2 - |3: - | cmp TMP2, #1 // (> FF_C) Calling a fast function? - | bhi >5 - |4: - | ins_callt - | - |5: // Tailcall to a fast function with a Lua frame below. - | ldrb RAw, [PC, #-3] - | sub CARG1, BASE, RA, lsl #3 - | ldr LFUNC:CARG1, [CARG1, #-32] - | and LFUNC:CARG1, CARG1, #LJ_GCVMASK - | ldr CARG1, LFUNC:CARG1->pc - | ldr KBASE, [CARG1, #PC2PROTO(k)] - | b <4 - | - |7: // Tailcall from a vararg function. - | eor PC, PC, #FRAME_VARG - | tst PC, #FRAME_TYPEP // Vararg frame below? - | csel TMP2, RB, TMP2, ne // Clear ffid if no Lua function below. - | bne <1 - | sub BASE, BASE, PC - | ldr PC, [BASE, FRAME_PC] - | tst PC, #FRAME_TYPE - | csel TMP2, RB, TMP2, ne // Clear ffid if no Lua function below. - | b <1 - break; - - case BC_ITERC: - | // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) - | add RA, BASE, RA, lsl #3 - | ldr CARG3, [RA, #-24] - | mov RB, BASE // Save old BASE for vmeta_call. - | ldp CARG1, CARG2, [RA, #-16] - | add BASE, RA, #16 - | mov NARGS8:RC, #16 // Iterators get 2 arguments. - | str CARG3, [RA] // Copy callable. - | stp CARG1, CARG2, [RA, #16] // Copy state and control var. - | checkfunc CARG3, ->vmeta_call - | ins_call - break; - - case BC_ITERN: - | // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | add RA, BASE, RA, lsl #3 - | ldr TAB:RB, [RA, #-16] - | ldrh TMP3w, [PC, #2] - | ldr CARG1w, [RA, #-8] // Get index from control var. - | add PC, PC, #4 - | add TMP3, PC, TMP3, lsl #2 - | and TAB:RB, RB, #LJ_GCVMASK - | sub TMP3, TMP3, #0x20000 - | ldr TMP1w, TAB:RB->asize - | ldr CARG2, TAB:RB->array - |1: // Traverse array part. - | subs RC, CARG1, TMP1 - | add CARG3, CARG2, CARG1, lsl #3 - | bhs >5 // Index points after array part? - | ldr TMP0, [CARG3] - | cmp TMP0, TISNIL - | cinc CARG1, CARG1, eq // Skip holes in array part. - | beq <1 - | add CARG1, CARG1, TISNUM - | stp CARG1, TMP0, [RA] - | add CARG1, CARG1, #1 - |3: - | str CARG1w, [RA, #-8] // Update control var. - | mov PC, TMP3 - |4: - | ins_next - | - |5: // Traverse hash part. - | ldr TMP2w, TAB:RB->hmask - | ldr NODE:RB, TAB:RB->node - |6: - | add CARG1, RC, RC, lsl #1 - | cmp RC, TMP2 // End of iteration? Branch to ITERN+1. - | add NODE:CARG3, NODE:RB, CARG1, lsl #3 // node = tab->node + idx*3*8 - | bhi <4 - | ldp TMP0, CARG1, NODE:CARG3->val - | cmp TMP0, TISNIL - | add RC, RC, #1 - | beq <6 // Skip holes in hash part. - | stp CARG1, TMP0, [RA] - | add CARG1, RC, TMP1 - | b <3 - break; - - case BC_ISNEXT: - | // RA = base, RC = target (points to ITERN) - | add RA, BASE, RA, lsl #3 - | ldr CFUNC:CARG1, [RA, #-24] - | add RC, PC, RC, lsl #2 - | ldp TAB:CARG3, CARG4, [RA, #-16] - | sub RC, RC, #0x20000 - | checkfunc CFUNC:CARG1, >5 - | asr TMP0, TAB:CARG3, #47 - | ldrb TMP1w, CFUNC:CARG1->ffid - | cmn TMP0, #-LJ_TTAB - | ccmp CARG4, TISNIL, #0, eq - | ccmp TMP1w, #FF_next_N, #0, eq - | bne >5 - | mov TMP0w, #0xfffe7fff - | lsl TMP0, TMP0, #32 - | str TMP0, [RA, #-8] // Initialize control var. - |1: - | mov PC, RC - | ins_next - | - |5: // Despecialize bytecode if any of the checks fail. - | mov TMP0, #BC_JMP - | mov TMP1, #BC_ITERC - | strb TMP0w, [PC, #-4] - | strb TMP1w, [RC] - | b <1 - break; - - case BC_VARG: - | decode_RB RB, INS - | and RC, RC, #255 - | // RA = base, RB = (nresults+1), RC = numparams - | ldr TMP1, [BASE, FRAME_PC] - | add RC, BASE, RC, lsl #3 - | add RA, BASE, RA, lsl #3 - | add RC, RC, #FRAME_VARG - | add TMP2, RA, RB, lsl #3 - | sub RC, RC, TMP1 // RC = vbase - | // Note: RC may now be even _above_ BASE if nargs was < numparams. - | sub TMP3, BASE, #16 // TMP3 = vtop - | cbz RB, >5 - | sub TMP2, TMP2, #16 - |1: // Copy vararg slots to destination slots. - | cmp RC, TMP3 - | ldr TMP0, [RC], #8 - | csel TMP0, TMP0, TISNIL, lo - | cmp RA, TMP2 - | str TMP0, [RA], #8 - | blo <1 - |2: - | ins_next - | - |5: // Copy all varargs. - | ldr TMP0, L->maxstack - | subs TMP2, TMP3, RC - | csel RB, xzr, TMP2, le // MULTRES = (max(vtop-vbase,0)+1)*8 - | add RB, RB, #8 - | add TMP1, RA, TMP2 - | str RBw, SAVE_MULTRES - | ble <2 // Nothing to copy. - | cmp TMP1, TMP0 - | bhi >7 - |6: - | ldr TMP0, [RC], #8 - | str TMP0, [RA], #8 - | cmp RC, TMP3 - | blo <6 - | b <2 - | - |7: // Grow stack for varargs. - | lsr CARG2, TMP2, #3 - | stp BASE, RA, L->base - | mov CARG1, L - | sub RC, RC, BASE // Need delta, because BASE may change. - | str PC, SAVE_PC - | bl extern lj_state_growstack // (lua_State *L, int n) - | ldp BASE, RA, L->base - | add RC, BASE, RC - | sub TMP3, BASE, #16 - | b <6 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | // RA = results, RC = extra results - | ldr TMP0w, SAVE_MULTRES - | ldr PC, [BASE, FRAME_PC] - | add RA, BASE, RA, lsl #3 - | add RC, TMP0, RC, lsl #3 - | b ->BC_RETM_Z - break; - - case BC_RET: - | // RA = results, RC = nresults+1 - | ldr PC, [BASE, FRAME_PC] - | lsl RC, RC, #3 - | add RA, BASE, RA, lsl #3 - |->BC_RETM_Z: - | str RCw, SAVE_MULTRES - |1: - | ands CARG1, PC, #FRAME_TYPE - | eor CARG2, PC, #FRAME_VARG - | bne ->BC_RETV2_Z - | - |->BC_RET_Z: - | // BASE = base, RA = resultptr, RC = (nresults+1)*8, PC = return - | ldr INSw, [PC, #-4] - | subs TMP1, RC, #8 - | sub CARG3, BASE, #16 - | beq >3 - |2: - | ldr TMP0, [RA], #8 - | add BASE, BASE, #8 - | sub TMP1, TMP1, #8 - | str TMP0, [BASE, #-24] - | cbnz TMP1, <2 - |3: - | decode_RA RA, INS - | sub CARG4, CARG3, RA, lsl #3 - | decode_RB RB, INS - | ldr LFUNC:CARG1, [CARG4, FRAME_FUNC] - |5: - | cmp RC, RB, lsl #3 // More results expected? - | blo >6 - | and LFUNC:CARG1, CARG1, #LJ_GCVMASK - | mov BASE, CARG4 - | ldr CARG2, LFUNC:CARG1->pc - | ldr KBASE, [CARG2, #PC2PROTO(k)] - | ins_next - | - |6: // Fill up results with nil. - | add BASE, BASE, #8 - | add RC, RC, #8 - | str TISNIL, [BASE, #-24] - | b <5 - | - |->BC_RETV1_Z: // Non-standard return case. - | add RA, BASE, RA, lsl #3 - |->BC_RETV2_Z: - | tst CARG2, #FRAME_TYPEP - | bne ->vm_return - | // Return from vararg function: relocate BASE down. - | sub BASE, BASE, CARG2 - | ldr PC, [BASE, FRAME_PC] - | b <1 - break; - - case BC_RET0: case BC_RET1: - | // RA = results, RC = nresults+1 - | ldr PC, [BASE, FRAME_PC] - | lsl RC, RC, #3 - | str RCw, SAVE_MULTRES - | ands CARG1, PC, #FRAME_TYPE - | eor CARG2, PC, #FRAME_VARG - | bne ->BC_RETV1_Z - | ldr INSw, [PC, #-4] - if (op == BC_RET1) { - | ldr TMP0, [BASE, RA, lsl #3] - } - | sub CARG4, BASE, #16 - | decode_RA RA, INS - | sub BASE, CARG4, RA, lsl #3 - if (op == BC_RET1) { - | str TMP0, [CARG4], #8 - } - | decode_RB RB, INS - | ldr LFUNC:CARG1, [BASE, FRAME_FUNC] - |5: - | cmp RC, RB, lsl #3 - | blo >6 - | and LFUNC:CARG1, CARG1, #LJ_GCVMASK - | ldr CARG2, LFUNC:CARG1->pc - | ldr KBASE, [CARG2, #PC2PROTO(k)] - | ins_next - | - |6: // Fill up results with nil. - | add RC, RC, #8 - | str TISNIL, [CARG4], #8 - | b <5 - break; - - /* -- Loops and branches ------------------------------------------------ */ - - |.define FOR_IDX, [RA]; .define FOR_TIDX, [RA, #4] - |.define FOR_STOP, [RA, #8]; .define FOR_TSTOP, [RA, #12] - |.define FOR_STEP, [RA, #16]; .define FOR_TSTEP, [RA, #20] - |.define FOR_EXT, [RA, #24]; .define FOR_TEXT, [RA, #28] - - case BC_FORL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IFORL follows. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - | // RA = base, RC = target (after end of loop or start of loop) - vk = (op == BC_IFORL || op == BC_JFORL); - | add RA, BASE, RA, lsl #3 - | ldp CARG1, CARG2, FOR_IDX // CARG1 = IDX, CARG2 = STOP - | ldr CARG3, FOR_STEP // CARG3 = STEP - if (op != BC_JFORL) { - | add RC, PC, RC, lsl #2 - | sub RC, RC, #0x20000 - } - | checkint CARG1, >5 - if (!vk) { - | checkint CARG2, ->vmeta_for - | checkint CARG3, ->vmeta_for - | tbnz CARG3w, #31, >4 - | cmp CARG1w, CARG2w - } else { - | adds CARG1w, CARG1w, CARG3w - | bvs >2 - | add TMP0, CARG1, TISNUM - | tbnz CARG3w, #31, >4 - | cmp CARG1w, CARG2w - } - |1: - if (op == BC_FORI) { - | csel PC, RC, PC, gt - } else if (op == BC_JFORI) { - | ldrh RCw, [RC, #-2] - } else if (op == BC_IFORL) { - | csel PC, RC, PC, le - } - if (vk) { - | str TMP0, FOR_IDX - | str TMP0, FOR_EXT - } else { - | str CARG1, FOR_EXT - } - if (op == BC_JFORI || op == BC_JFORL) { - | ble =>BC_JLOOP - } - |2: - | ins_next - | - |4: // Invert check for negative step. - | cmp CARG2w, CARG1w - | b <1 - | - |5: // FP loop. - | ldp d0, d1, FOR_IDX - | blo ->vmeta_for - if (!vk) { - | checknum CARG2, ->vmeta_for - | checknum CARG3, ->vmeta_for - | str d0, FOR_EXT - } else { - | ldr d2, FOR_STEP - | fadd d0, d0, d2 - } - | tbnz CARG3, #63, >7 - | fcmp d0, d1 - |6: - if (vk) { - | str d0, FOR_IDX - | str d0, FOR_EXT - } - if (op == BC_FORI) { - | csel PC, RC, PC, hi - } else if (op == BC_JFORI) { - | ldrh RCw, [RC, #-2] - | bls =>BC_JLOOP - } else if (op == BC_IFORL) { - | csel PC, RC, PC, ls - } else { - | bls =>BC_JLOOP - } - | b <2 - | - |7: // Invert check for negative step. - | fcmp d1, d0 - | b <6 - break; - - case BC_ITERL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IITERL follows. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | // RA = base, RC = target - | ldr CARG1, [BASE, RA, lsl #3] - | add TMP1, BASE, RA, lsl #3 - | cmp CARG1, TISNIL - | beq >1 // Stop if iterator returned nil. - if (op == BC_JITERL) { - | str CARG1, [TMP1, #-8] - | b =>BC_JLOOP - } else { - | add TMP0, PC, RC, lsl #2 // Otherwise save control var + branch. - | sub PC, TMP0, #0x20000 - | str CARG1, [TMP1, #-8] - } - |1: - | ins_next - break; - - case BC_LOOP: - | // RA = base, RC = target (loop extent) - | // Note: RA/RC is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_ILOOP follows. - break; - - case BC_ILOOP: - | // RA = base, RC = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | NYI - |.endif - break; - - case BC_JMP: - | // RA = base (only used by trace recorder), RC = target - | add RC, PC, RC, lsl #2 - | sub PC, RC, #0x20000 - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - |.if JIT - | hotcall - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 - | ldr CARG1, L->maxstack - | ldrb TMP1w, [PC, #-4+PC2PROTO(numparams)] - | ldr KBASE, [PC, #-4+PC2PROTO(k)] - | cmp RA, CARG1 - | bhi ->vm_growstack_l - |2: - | cmp NARGS8:RC, TMP1, lsl #3 // Check for missing parameters. - | blo >3 - if (op == BC_JFUNCF) { - | decode_RD RC, INS - | b =>BC_JLOOP - } else { - | ins_next - } - | - |3: // Clear missing parameters. - | str TISNIL, [BASE, NARGS8:RC] - | add NARGS8:RC, NARGS8:RC, #8 - | b <2 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | NYI // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = LFUNC, RC = nargs*8 - | ldr CARG1, L->maxstack - | add TMP2, BASE, RC - | add RA, RA, RC - | add TMP0, RC, #16+FRAME_VARG - | str LFUNC:CARG3, [TMP2], #8 // Store (untagged) copy of LFUNC. - | ldr KBASE, [PC, #-4+PC2PROTO(k)] - | cmp RA, CARG1 - | str TMP0, [TMP2], #8 // Store delta + FRAME_VARG. - | bhs ->vm_growstack_l - | sub RC, TMP2, #16 - | ldrb TMP1w, [PC, #-4+PC2PROTO(numparams)] - | mov RA, BASE - | mov BASE, TMP2 - | cbz TMP1, >2 - |1: - | cmp RA, RC // Less args than parameters? - | bhs >3 - | ldr TMP0, [RA] - | sub TMP1, TMP1, #1 - | str TISNIL, [RA], #8 // Clear old fixarg slot (help the GC). - | str TMP0, [TMP2], #8 - | cbnz TMP1, <1 - |2: - | ins_next - | - |3: - | sub TMP1, TMP1, #1 - | str TISNIL, [TMP2], #8 - | cbz TMP1, <2 - | b <3 - break; - - case BC_FUNCC: - case BC_FUNCCW: - | // BASE = new base, RA = BASE+framesize*8, CARG3 = CFUNC, RC = nargs*8 - if (op == BC_FUNCC) { - | ldr CARG4, CFUNC:CARG3->f - } else { - | ldr CARG4, GL->wrapf - } - | add CARG2, RA, NARGS8:RC - | ldr CARG1, L->maxstack - | add RC, BASE, NARGS8:RC - | cmp CARG2, CARG1 - | stp BASE, RC, L->base - if (op == BC_FUNCCW) { - | ldr CARG2, CFUNC:CARG3->f - } - | mv_vmstate TMP0w, C - | mov CARG1, L - | bhi ->vm_growstack_c // Need to grow stack. - | st_vmstate TMP0w - | blr CARG4 // (lua_State *L [, lua_CFunction f]) - | // Returns nresults. - | ldp BASE, TMP1, L->base - | str L, GL->cur_L - | sbfiz RC, CRET1, #3, #32 - | st_vmstate ST_INTERP - | ldr PC, [BASE, FRAME_PC] - | sub RA, TMP1, RC // RA = L->top - nresults*8 - | b ->vm_returnc - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - - dasm_growpc(Dst, BC__MAX); - - build_subroutines(ctx); - - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); - int i, cf = CFRAME_SIZE >> 3; - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",%%progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.long .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.long 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -8\n" - "\t.byte 30\n" /* Return address is in lr. */ - "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ - "\t.align 3\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.long .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.long .Lframe0\n" - "\t.quad .Lbegin\n" - "\t.quad %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ - "\t.byte 0x9d\n\t.uleb128 %d\n" /* offset fp */ - "\t.byte 0x9e\n\t.uleb128 %d\n", /* offset lr */ - fcofs, CFRAME_SIZE, cf, cf-1); - for (i = 19; i <= 28; i++) /* offset x19-x28 */ - fprintf(ctx->fp, "\t.byte 0x%x\n\t.uleb128 %d\n", 0x80+i, cf-i+17); - for (i = 8; i <= 15; i++) /* offset d8-d15 */ - fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 0x%x\n\t.uleb128 %d\n", - 64+i, cf-i-4); - fprintf(ctx->fp, - "\t.align 3\n" - ".LEFDE0:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.long .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.long .Lframe0\n" - "\t.quad lj_vm_ffi_call\n" - "\t.quad %d\n" - "\t.byte 0xe\n\t.uleb128 32\n" /* def_cfa_offset */ - "\t.byte 0x9d\n\t.uleb128 4\n" /* offset fp */ - "\t.byte 0x9e\n\t.uleb128 3\n" /* offset lr */ - "\t.byte 0x93\n\t.uleb128 2\n" /* offset x19 */ - "\t.align 3\n" - ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); -#endif - fprintf(ctx->fp, "\t.section .eh_frame,\"a\",%%progbits\n"); - fprintf(ctx->fp, - ".Lframe1:\n" - "\t.long .LECIE1-.LSCIE1\n" - ".LSCIE1:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zPR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -8\n" - "\t.byte 30\n" /* Return address is in lr. */ - "\t.uleb128 6\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.long lj_err_unwind_dwarf-.\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ - "\t.align 3\n" - ".LECIE1:\n\n"); - fprintf(ctx->fp, - ".LSFDE2:\n" - "\t.long .LEFDE2-.LASFDE2\n" - ".LASFDE2:\n" - "\t.long .LASFDE2-.Lframe1\n" - "\t.long .Lbegin-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ - "\t.byte 0x9d\n\t.uleb128 %d\n" /* offset fp */ - "\t.byte 0x9e\n\t.uleb128 %d\n", /* offset lr */ - fcofs, CFRAME_SIZE, cf, cf-1); - for (i = 19; i <= 28; i++) /* offset x19-x28 */ - fprintf(ctx->fp, "\t.byte 0x%x\n\t.uleb128 %d\n", 0x80+i, cf-i+17); - for (i = 8; i <= 15; i++) /* offset d8-d15 */ - fprintf(ctx->fp, "\t.byte 5\n\t.uleb128 0x%x\n\t.uleb128 %d\n", - 64+i, cf-i-4); - fprintf(ctx->fp, - "\t.align 3\n" - ".LEFDE2:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".Lframe2:\n" - "\t.long .LECIE2-.LSCIE2\n" - ".LSCIE2:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -8\n" - "\t.byte 30\n" /* Return address is in lr. */ - "\t.uleb128 1\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 31\n\t.uleb128 0\n" /* def_cfa sp */ - "\t.align 3\n" - ".LECIE2:\n\n"); - fprintf(ctx->fp, - ".LSFDE3:\n" - "\t.long .LEFDE3-.LASFDE3\n" - ".LASFDE3:\n" - "\t.long .LASFDE3-.Lframe2\n" - "\t.long lj_vm_ffi_call-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 32\n" /* def_cfa_offset */ - "\t.byte 0x9d\n\t.uleb128 4\n" /* offset fp */ - "\t.byte 0x9e\n\t.uleb128 3\n" /* offset lr */ - "\t.byte 0x93\n\t.uleb128 2\n" /* offset x19 */ - "\t.align 3\n" - ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); -#endif - break; - default: - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc deleted file mode 100644 index 7cfdf4b18b5..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/vm_mips.dasc +++ /dev/null @@ -1,4355 +0,0 @@ -|// Low-level VM code for MIPS CPUs. -|// Bytecode interpreter, fast functions and helper functions. -|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -| -|.arch mips -|.section code_op, code_sub -| -|.actionlist build_actionlist -|.globals GLOB_ -|.globalnames globnames -|.externnames extnames -| -|// Note: The ragged indentation of the instructions is intentional. -|// The starting columns indicate data dependencies. -| -|//----------------------------------------------------------------------- -| -|// Fixed register assignments for the interpreter. -|// Don't use: r0 = 0, r26/r27 = reserved, r28 = gp, r29 = sp, r31 = ra -| -|// The following must be C callee-save (but BASE is often refetched). -|.define BASE, r16 // Base of current Lua stack frame. -|.define KBASE, r17 // Constants of current Lua function. -|.define PC, r18 // Next PC. -|.define DISPATCH, r19 // Opcode dispatch table. -|.define LREG, r20 // Register holding lua_State (also in SAVE_L). -|.define MULTRES, r21 // Size of multi-result: (nresults+1)*8. -|// NYI: r22 currently unused. -| -|.define JGL, r30 // On-trace: global_State + 32768. -| -|// Constants for type-comparisons, stores and conversions. C callee-save. -|.define TISNIL, r30 -|.define TOBIT, f30 // 2^52 + 2^51. -| -|// The following temporaries are not saved across C calls, except for RA. -|.define RA, r23 // Callee-save. -|.define RB, r8 -|.define RC, r9 -|.define RD, r10 -|.define INS, r11 -| -|.define AT, r1 // Assembler temporary. -|.define TMP0, r12 -|.define TMP1, r13 -|.define TMP2, r14 -|.define TMP3, r15 -| -|// Calling conventions. -|.define CFUNCADDR, r25 -|.define CARG1, r4 -|.define CARG2, r5 -|.define CARG3, r6 -|.define CARG4, r7 -| -|.define CRET1, r2 -|.define CRET2, r3 -| -|.define FARG1, f12 -|.define FARG2, f14 -| -|.define FRET1, f0 -|.define FRET2, f2 -| -|// Stack layout while in interpreter. Must match with lj_frame.h. -|.define CFRAME_SPACE, 112 // Delta for sp. -| -|.define SAVE_ERRF, 124(sp) // 32 bit C frame info. -|.define SAVE_NRES, 120(sp) -|.define SAVE_CFRAME, 116(sp) -|.define SAVE_L, 112(sp) -|//----- 8 byte aligned, ^^^^ 16 byte register save area, owned by interpreter. -|.define SAVE_GPR_, 72 // .. 72+10*4: 32 bit GPR saves. -|.define SAVE_FPR_, 24 // .. 24+6*8: 64 bit FPR saves. -|.define SAVE_PC, 20(sp) -|.define ARG5, 16(sp) -|.define CSAVE_4, 12(sp) -|.define CSAVE_3, 8(sp) -|.define CSAVE_2, 4(sp) -|.define CSAVE_1, 0(sp) -|//----- 8 byte aligned, ^^^^ 16 byte register save area, owned by callee. -| -|.define ARG5_OFS, 16 -|.define SAVE_MULTRES, ARG5 -| -|.macro saveregs -| addiu sp, sp, -CFRAME_SPACE -| sw ra, SAVE_GPR_+9*4(sp) -| sw r30, SAVE_GPR_+8*4(sp) -| sdc1 f30, SAVE_FPR_+5*8(sp) -| sw r23, SAVE_GPR_+7*4(sp) -| sw r22, SAVE_GPR_+6*4(sp) -| sdc1 f28, SAVE_FPR_+4*8(sp) -| sw r21, SAVE_GPR_+5*4(sp) -| sw r20, SAVE_GPR_+4*4(sp) -| sdc1 f26, SAVE_FPR_+3*8(sp) -| sw r19, SAVE_GPR_+3*4(sp) -| sw r18, SAVE_GPR_+2*4(sp) -| sdc1 f24, SAVE_FPR_+2*8(sp) -| sw r17, SAVE_GPR_+1*4(sp) -| sw r16, SAVE_GPR_+0*4(sp) -| sdc1 f22, SAVE_FPR_+1*8(sp) -| sdc1 f20, SAVE_FPR_+0*8(sp) -|.endmacro -| -|.macro restoreregs_ret -| lw ra, SAVE_GPR_+9*4(sp) -| lw r30, SAVE_GPR_+8*4(sp) -| ldc1 f30, SAVE_FPR_+5*8(sp) -| lw r23, SAVE_GPR_+7*4(sp) -| lw r22, SAVE_GPR_+6*4(sp) -| ldc1 f28, SAVE_FPR_+4*8(sp) -| lw r21, SAVE_GPR_+5*4(sp) -| lw r20, SAVE_GPR_+4*4(sp) -| ldc1 f26, SAVE_FPR_+3*8(sp) -| lw r19, SAVE_GPR_+3*4(sp) -| lw r18, SAVE_GPR_+2*4(sp) -| ldc1 f24, SAVE_FPR_+2*8(sp) -| lw r17, SAVE_GPR_+1*4(sp) -| lw r16, SAVE_GPR_+0*4(sp) -| ldc1 f22, SAVE_FPR_+1*8(sp) -| ldc1 f20, SAVE_FPR_+0*8(sp) -| jr ra -| addiu sp, sp, CFRAME_SPACE -|.endmacro -| -|// Type definitions. Some of these are only used for documentation. -|.type L, lua_State, LREG -|.type GL, global_State -|.type TVALUE, TValue -|.type GCOBJ, GCobj -|.type STR, GCstr -|.type TAB, GCtab -|.type LFUNC, GCfuncL -|.type CFUNC, GCfuncC -|.type PROTO, GCproto -|.type UPVAL, GCupval -|.type NODE, Node -|.type NARGS8, int -|.type TRACE, GCtrace -|.type SBUF, SBuf -| -|//----------------------------------------------------------------------- -| -|// Trap for not-yet-implemented parts. -|.macro NYI; .long 0xf0f0f0f0; .endmacro -| -|// Macros to mark delay slots. -|.macro ., a; a; .endmacro -|.macro ., a,b; a,b; .endmacro -|.macro ., a,b,c; a,b,c; .endmacro -| -|//----------------------------------------------------------------------- -| -|// Endian-specific defines. -|.define FRAME_PC, LJ_ENDIAN_SELECT(-4,-8) -|.define FRAME_FUNC, LJ_ENDIAN_SELECT(-8,-4) -|.define HI, LJ_ENDIAN_SELECT(4,0) -|.define LO, LJ_ENDIAN_SELECT(0,4) -|.define OFS_RD, LJ_ENDIAN_SELECT(2,0) -|.define OFS_RA, LJ_ENDIAN_SELECT(1,2) -|.define OFS_OP, LJ_ENDIAN_SELECT(0,3) -| -|// Instruction decode. -|.macro decode_OP1, dst, ins; andi dst, ins, 0xff; .endmacro -|.macro decode_OP4a, dst, ins; andi dst, ins, 0xff; .endmacro -|.macro decode_OP4b, dst; sll dst, dst, 2; .endmacro -|.macro decode_RC4a, dst, ins; srl dst, ins, 14; .endmacro -|.macro decode_RC4b, dst; andi dst, dst, 0x3fc; .endmacro -|.macro decode_RD4b, dst; sll dst, dst, 2; .endmacro -|.macro decode_RA8a, dst, ins; srl dst, ins, 5; .endmacro -|.macro decode_RA8b, dst; andi dst, dst, 0x7f8; .endmacro -|.macro decode_RB8a, dst, ins; srl dst, ins, 21; .endmacro -|.macro decode_RB8b, dst; andi dst, dst, 0x7f8; .endmacro -|.macro decode_RD8a, dst, ins; srl dst, ins, 16; .endmacro -|.macro decode_RD8b, dst; sll dst, dst, 3; .endmacro -|.macro decode_RDtoRC8, dst, src; andi dst, src, 0x7f8; .endmacro -| -|// Instruction fetch. -|.macro ins_NEXT1 -| lw INS, 0(PC) -| addiu PC, PC, 4 -|.endmacro -|// Instruction decode+dispatch. -|.macro ins_NEXT2 -| decode_OP4a TMP1, INS -| decode_OP4b TMP1 -| addu TMP0, DISPATCH, TMP1 -| decode_RD8a RD, INS -| lw AT, 0(TMP0) -| decode_RA8a RA, INS -| decode_RD8b RD -| jr AT -| decode_RA8b RA -|.endmacro -|.macro ins_NEXT -| ins_NEXT1 -| ins_NEXT2 -|.endmacro -| -|// Instruction footer. -|.if 1 -| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. -| .define ins_next, ins_NEXT -| .define ins_next_, ins_NEXT -| .define ins_next1, ins_NEXT1 -| .define ins_next2, ins_NEXT2 -|.else -| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. -| // Affects only certain kinds of benchmarks (and only with -j off). -| .macro ins_next -| b ->ins_next -| .endmacro -| .macro ins_next1 -| .endmacro -| .macro ins_next2 -| b ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC -| lw PC, LFUNC:RB->pc -| lw INS, 0(PC) -| addiu PC, PC, 4 -| decode_OP4a TMP1, INS -| decode_RA8a RA, INS -| decode_OP4b TMP1 -| decode_RA8b RA -| addu TMP0, DISPATCH, TMP1 -| lw TMP0, 0(TMP0) -| jr TMP0 -| addu RA, RA, BASE -|.endmacro -| -|.macro ins_call -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC -| sw PC, FRAME_PC(BASE) -| ins_callt -|.endmacro -| -|//----------------------------------------------------------------------- -| -|.macro branch_RD -| srl TMP0, RD, 1 -| lui AT, (-(BCBIAS_J*4 >> 16) & 65535) -| addu TMP0, TMP0, AT -| addu PC, PC, TMP0 -|.endmacro -| -|// Assumes DISPATCH is relative to GL. -#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) -#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) -#define GG_DISP2GOT (GG_OFS(got) - GG_OFS(dispatch)) -#define DISPATCH_GOT(name) (GG_DISP2GOT + 4*LJ_GOT_##name) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|.macro load_got, func -| lw CFUNCADDR, DISPATCH_GOT(func)(DISPATCH) -|.endmacro -|// Much faster. Sadly, there's no easy way to force the required code layout. -|// .macro call_intern, func; bal extern func; .endmacro -|.macro call_intern, func; jalr CFUNCADDR; .endmacro -|.macro call_extern; jalr CFUNCADDR; .endmacro -|.macro jmp_extern; jr CFUNCADDR; .endmacro -| -|.macro hotcheck, delta, target -| srl TMP1, PC, 1 -| andi TMP1, TMP1, 126 -| addu TMP1, TMP1, DISPATCH -| lhu TMP2, GG_DISP2HOT(TMP1) -| addiu TMP2, TMP2, -delta -| bltz TMP2, target -|. sh TMP2, GG_DISP2HOT(TMP1) -|.endmacro -| -|.macro hotloop -| hotcheck HOTCOUNT_LOOP, ->vm_hotloop -|.endmacro -| -|.macro hotcall -| hotcheck HOTCOUNT_CALL, ->vm_hotcall -|.endmacro -| -|// Set current VM state. Uses TMP0. -|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro -|.macro st_vmstate; sw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro -| -|// Move table write barrier back. Overwrites mark and tmp. -|.macro barrierback, tab, mark, tmp, target -| lw tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) -| andi mark, mark, ~LJ_GC_BLACK & 255 // black2gray(tab) -| sw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) -| sb mark, tab->marked -| b target -|. sw tmp, tab->gclist -|.endmacro -| -|//----------------------------------------------------------------------- - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | // See vm_return. Also: TMP2 = previous base. - | andi AT, PC, FRAME_P - | beqz AT, ->cont_dispatch - |. li TMP1, LJ_TTRUE - | - | // Return from pcall or xpcall fast func. - | lw PC, FRAME_PC(TMP2) // Fetch PC of previous frame. - | move BASE, TMP2 // Restore caller base. - | // Prepending may overwrite the pcall frame, so do it at the end. - | sw TMP1, FRAME_PC(RA) // Prepend true to results. - | addiu RA, RA, -8 - | - |->vm_returnc: - | addiu RD, RD, 8 // RD = (nresults+1)*8. - | andi TMP0, PC, FRAME_TYPE - | beqz RD, ->vm_unwind_c_eh - |. li CRET1, LUA_YIELD - | beqz TMP0, ->BC_RET_Z // Handle regular return to Lua. - |. move MULTRES, RD - | - |->vm_return: - | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return - | // TMP0 = PC & FRAME_TYPE - | li TMP2, -8 - | xori AT, TMP0, FRAME_C - | and TMP2, PC, TMP2 - | bnez AT, ->vm_returnp - | subu TMP2, BASE, TMP2 // TMP2 = previous base. - | - | addiu TMP1, RD, -8 - | sw TMP2, L->base - | li_vmstate C - | lw TMP2, SAVE_NRES - | addiu BASE, BASE, -8 - | st_vmstate - | beqz TMP1, >2 - |. sll TMP2, TMP2, 3 - |1: - | addiu TMP1, TMP1, -8 - | ldc1 f0, 0(RA) - | addiu RA, RA, 8 - | sdc1 f0, 0(BASE) - | bnez TMP1, <1 - |. addiu BASE, BASE, 8 - | - |2: - | bne TMP2, RD, >6 - |3: - |. sw BASE, L->top // Store new top. - | - |->vm_leave_cp: - | lw TMP0, SAVE_CFRAME // Restore previous C frame. - | move CRET1, r0 // Ok return status for vm_pcall. - | sw TMP0, L->cframe - | - |->vm_leave_unw: - | restoreregs_ret - | - |6: - | lw TMP1, L->maxstack - | slt AT, TMP2, RD - | bnez AT, >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - |. slt AT, BASE, TMP1 - | beqz AT, >8 - |. nop - | sw TISNIL, HI(BASE) - | addiu RD, RD, 8 - | b <2 - |. addiu BASE, BASE, 8 - | - |7: // Less results wanted. - | subu TMP0, RD, TMP2 - | subu TMP0, BASE, TMP0 // Either keep top or shrink it. - | b <3 - |. movn BASE, TMP0, TMP2 // LUA_MULTRET+1 case? - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | load_got lj_state_growstack - | move MULTRES, RD - | srl CARG2, TMP2, 3 - | call_intern lj_state_growstack // (lua_State *L, int n) - |. move CARG1, L - | lw TMP2, SAVE_NRES - | lw BASE, L->top // Need the (realloced) L->top in BASE. - | move RD, MULTRES - | b <2 - |. sll TMP2, TMP2, 3 - | - |->vm_unwind_c: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - | move sp, CARG1 - | move CRET1, CARG2 - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | lw L, SAVE_L - | li TMP0, ~LJ_VMST_C - | lw GL:TMP1, L->glref - | b ->vm_leave_unw - |. sw TMP0, GL:TMP1->vmstate - | - |->vm_unwind_ff: // Unwind C stack, return from ff pcall. - | // (void *cframe) - | li AT, -4 - | and sp, CARG1, AT - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | lw L, SAVE_L - | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | li TISNIL, LJ_TNIL - | lw BASE, L->base - | lw DISPATCH, L->glref // Setup pointer to dispatch table. - | mtc1 TMP3, TOBIT - | li TMP1, LJ_TFALSE - | li_vmstate INTERP - | lw PC, FRAME_PC(BASE) // Fetch PC of previous frame. - | cvt.d.s TOBIT, TOBIT - | addiu RA, BASE, -8 // Results start at BASE-8. - | addiu DISPATCH, DISPATCH, GG_G2DISP - | sw TMP1, HI(RA) // Prepend false to error message. - | st_vmstate - | b ->vm_returnc - |. li RD, 16 // 2 results: false + error message. - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | b >2 - |. li CARG2, LUA_MINSTACK - | - |->vm_growstack_l: // Grow stack for Lua function. - | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC - | addu RC, BASE, RC - | subu RA, RA, BASE - | sw BASE, L->base - | addiu PC, PC, 4 // Must point after first instruction. - | sw RC, L->top - | srl CARG2, RA, 3 - |2: - | // L->base = new base, L->top = top - | load_got lj_state_growstack - | sw PC, SAVE_PC - | call_intern lj_state_growstack // (lua_State *L, int n) - |. move CARG1, L - | lw BASE, L->base - | lw RC, L->top - | lw LFUNC:RB, FRAME_FUNC(BASE) - | subu RC, RC, BASE - | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - | move L, CARG1 - | lw DISPATCH, L->glref // Setup pointer to dispatch table. - | move BASE, CARG2 - | lbu TMP1, L->status - | sw L, SAVE_L - | li PC, FRAME_CP - | addiu TMP0, sp, CFRAME_RESUME - | addiu DISPATCH, DISPATCH, GG_G2DISP - | sw r0, SAVE_NRES - | sw r0, SAVE_ERRF - | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | sw r0, SAVE_CFRAME - | beqz TMP1, >3 - |. sw TMP0, L->cframe - | - | // Resume after yield (like a return). - | sw L, DISPATCH_GL(cur_L)(DISPATCH) - | move RA, BASE - | lw BASE, L->base - | lw TMP1, L->top - | lw PC, FRAME_PC(BASE) - | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | subu RD, TMP1, BASE - | mtc1 TMP3, TOBIT - | sb r0, L->status - | cvt.d.s TOBIT, TOBIT - | li_vmstate INTERP - | addiu RD, RD, 8 - | st_vmstate - | move MULTRES, RD - | andi TMP0, PC, FRAME_TYPE - | beqz TMP0, ->BC_RET_Z - |. li TISNIL, LJ_TNIL - | b ->vm_return - |. nop - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | sw CARG4, SAVE_ERRF - | b >1 - |. li PC, FRAME_CP - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | li PC, FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - | lw TMP1, L:CARG1->cframe - | move L, CARG1 - | sw CARG3, SAVE_NRES - | lw DISPATCH, L->glref // Setup pointer to dispatch table. - | sw CARG1, SAVE_L - | move BASE, CARG2 - | addiu DISPATCH, DISPATCH, GG_G2DISP - | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | sw TMP1, SAVE_CFRAME - | sw sp, L->cframe // Add our C frame to cframe chain. - | - |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). - | sw L, DISPATCH_GL(cur_L)(DISPATCH) - | lw TMP2, L->base // TMP2 = old base (used in vmeta_call). - | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | lw TMP1, L->top - | mtc1 TMP3, TOBIT - | addu PC, PC, BASE - | subu NARGS8:RC, TMP1, BASE - | subu PC, PC, TMP2 // PC = frame delta + frame type - | cvt.d.s TOBIT, TOBIT - | li_vmstate INTERP - | li TISNIL, LJ_TNIL - | st_vmstate - | - |->vm_call_dispatch: - | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC - | lw TMP0, FRAME_PC(BASE) - | li AT, LJ_TFUNC - | bne TMP0, AT, ->vmeta_call - |. lw LFUNC:RB, FRAME_FUNC(BASE) - | - |->vm_call_dispatch_f: - | ins_call - | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - | move L, CARG1 - | lw TMP0, L:CARG1->stack - | sw CARG1, SAVE_L - | lw TMP1, L->top - | lw DISPATCH, L->glref // Setup pointer to dispatch table. - | sw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | subu TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). - | lw TMP1, L->cframe - | addiu DISPATCH, DISPATCH, GG_G2DISP - | sw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. - | sw r0, SAVE_ERRF // No error function. - | sw TMP1, SAVE_CFRAME - | sw sp, L->cframe // Add our C frame to cframe chain. - | sw L, DISPATCH_GL(cur_L)(DISPATCH) - | jalr CARG4 // (lua_State *L, lua_CFunction func, void *ud) - |. move CFUNCADDR, CARG4 - | move BASE, CRET1 - | bnez CRET1, <3 // Else continue with the call. - |. li PC, FRAME_CP - | b ->vm_leave_cp // No base? Just remove C frame. - |. nop - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the - |// stack, so BASE doesn't need to be reloaded across these calls. - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 - | lw TMP0, -16+LO(BASE) // Continuation. - | move RB, BASE - | move BASE, TMP2 // Restore caller BASE. - | lw LFUNC:TMP1, FRAME_FUNC(TMP2) - |.if FFI - | sltiu AT, TMP0, 2 - |.endif - | lw PC, -16+HI(RB) // Restore PC from [cont|PC]. - | addu TMP2, RA, RD - | lw TMP1, LFUNC:TMP1->pc - |.if FFI - | bnez AT, >1 - |.endif - |. sw TISNIL, -8+HI(TMP2) // Ensure one valid arg. - | // BASE = base, RA = resultptr, RB = meta base - | jr TMP0 // Jump to continuation. - |. lw KBASE, PC2PROTO(k)(TMP1) - | - |.if FFI - |1: - | bnez TMP0, ->cont_ffi_callback // cont = 1: return from FFI callback. - | // cont = 0: tailcall from C function. - |. addiu TMP1, RB, -16 - | b ->vm_call_tail - |. subu RC, TMP1, BASE - |.endif - | - |->cont_cat: // RA = resultptr, RB = meta base - | lw INS, -4(PC) - | addiu CARG2, RB, -16 - | ldc1 f0, 0(RA) - | decode_RB8a MULTRES, INS - | decode_RA8a RA, INS - | decode_RB8b MULTRES - | decode_RA8b RA - | addu TMP1, BASE, MULTRES - | sw BASE, L->base - | subu CARG3, CARG2, TMP1 - | bne TMP1, CARG2, ->BC_CAT_Z - |. sdc1 f0, 0(CARG2) - | addu RA, BASE, RA - | b ->cont_nop - |. sdc1 f0, 0(RA) - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets1: - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | li TMP0, LJ_TSTR - | sw STR:RC, LO(CARG3) - | b >1 - |. sw TMP0, HI(CARG3) - | - |->vmeta_tgets: - | addiu CARG2, DISPATCH, DISPATCH_GL(tmptv) - | li TMP0, LJ_TTAB - | sw TAB:RB, LO(CARG2) - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv2) - | sw TMP0, HI(CARG2) - | li TMP1, LJ_TSTR - | sw STR:RC, LO(CARG3) - | b >1 - |. sw TMP1, HI(CARG3) - | - |->vmeta_tgetb: // TMP0 = index - | mtc1 TMP0, f0 - | cvt.d.w f0, f0 - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | sdc1 f0, 0(CARG3) - | - |->vmeta_tgetv: - |1: - | load_got lj_meta_tget - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - |. move CARG1, L - | // Returns TValue * (finished) or NULL (metamethod). - | beqz CRET1, >3 - |. addiu TMP1, BASE, -FRAME_CONT - | ldc1 f0, 0(CRET1) - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | lw BASE, L->top - | sw PC, -16+HI(BASE) // [cont|PC] - | subu PC, BASE, TMP1 - | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | b ->vm_call_dispatch_f - |. li NARGS8:RC, 16 // 2 args for func(t, k). - | - |->vmeta_tgetr: - | load_got lj_tab_getinth - | call_intern lj_tab_getinth // (GCtab *t, int32_t key) - |. nop - | // Returns cTValue * or NULL. - | beqz CRET1, >1 - |. nop - | b ->BC_TGETR_Z - |. ldc1 f0, 0(CRET1) - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets1: - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | li TMP0, LJ_TSTR - | sw STR:RC, LO(CARG3) - | b >1 - |. sw TMP0, HI(CARG3) - | - |->vmeta_tsets: - | addiu CARG2, DISPATCH, DISPATCH_GL(tmptv) - | li TMP0, LJ_TTAB - | sw TAB:RB, LO(CARG2) - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv2) - | sw TMP0, HI(CARG2) - | li TMP1, LJ_TSTR - | sw STR:RC, LO(CARG3) - | b >1 - |. sw TMP1, HI(CARG3) - | - |->vmeta_tsetb: // TMP0 = index - | mtc1 TMP0, f0 - | cvt.d.w f0, f0 - | addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | sdc1 f0, 0(CARG3) - | - |->vmeta_tsetv: - |1: - | load_got lj_meta_tset - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - |. move CARG1, L - | // Returns TValue * (finished) or NULL (metamethod). - | beqz CRET1, >3 - |. ldc1 f0, 0(RA) - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | ins_next1 - | sdc1 f0, 0(CRET1) - | ins_next2 - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | addiu TMP1, BASE, -FRAME_CONT - | lw BASE, L->top - | sw PC, -16+HI(BASE) // [cont|PC] - | subu PC, BASE, TMP1 - | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | sdc1 f0, 16(BASE) // Copy value to third argument. - | b ->vm_call_dispatch_f - |. li NARGS8:RC, 24 // 3 args for func(t, k, v) - | - |->vmeta_tsetr: - | load_got lj_tab_setinth - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) - |. move CARG1, L - | // Returns TValue *. - | b ->BC_TSETR_Z - |. nop - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - | // CARG2, CARG3 are already set by BC_ISLT/BC_ISGE/BC_ISLE/BC_ISGT. - | load_got lj_meta_comp - | addiu PC, PC, -4 - | sw BASE, L->base - | sw PC, SAVE_PC - | decode_OP1 CARG4, INS - | call_intern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - |. move CARG1, L - | // Returns 0/1 or TValue * (metamethod). - |3: - | sltiu AT, CRET1, 2 - | beqz AT, ->vmeta_binop - | negu TMP2, CRET1 - |4: - | lhu RD, OFS_RD(PC) - | addiu PC, PC, 4 - | lui TMP1, (-(BCBIAS_J*4 >> 16) & 65535) - | sll RD, RD, 2 - | addu RD, RD, TMP1 - | and RD, RD, TMP2 - | addu PC, PC, RD - |->cont_nop: - | ins_next - | - |->cont_ra: // RA = resultptr - | lbu TMP1, -4+OFS_RA(PC) - | ldc1 f0, 0(RA) - | sll TMP1, TMP1, 3 - | addu TMP1, BASE, TMP1 - | b ->cont_nop - |. sdc1 f0, 0(TMP1) - | - |->cont_condt: // RA = resultptr - | lw TMP0, HI(RA) - | sltiu AT, TMP0, LJ_TISTRUECOND - | b <4 - |. negu TMP2, AT // Branch if result is true. - | - |->cont_condf: // RA = resultptr - | lw TMP0, HI(RA) - | sltiu AT, TMP0, LJ_TISTRUECOND - | b <4 - |. addiu TMP2, AT, -1 // Branch if result is false. - | - |->vmeta_equal: - | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. - | load_got lj_meta_equal - | addiu PC, PC, -4 - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - |. move CARG1, L - | // Returns 0/1 or TValue * (metamethod). - | b <3 - |. nop - | - |->vmeta_equal_cd: - |.if FFI - | load_got lj_meta_equal_cd - | move CARG2, INS - | addiu PC, PC, -4 - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_meta_equal_cd // (lua_State *L, BCIns op) - |. move CARG1, L - | // Returns 0/1 or TValue * (metamethod). - | b <3 - |. nop - |.endif - | - |->vmeta_istype: - | load_got lj_meta_istype - | addiu PC, PC, -4 - | sw BASE, L->base - | srl CARG2, RA, 3 - | srl CARG3, RD, 3 - | sw PC, SAVE_PC - | call_intern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) - |. move CARG1, L - | b ->cont_nop - |. nop - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_unm: - | move CARG4, CARG3 - | - |->vmeta_arith: - | load_got lj_meta_arith - | decode_OP1 TMP0, INS - | sw BASE, L->base - | sw PC, SAVE_PC - | move CARG2, RA - | sw TMP0, ARG5 - | call_intern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - |. move CARG1, L - | // Returns NULL (finished) or TValue * (metamethod). - | beqz CRET1, ->cont_nop - |. nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 - | subu TMP1, CRET1, BASE - | sw PC, -16+HI(CRET1) // [cont|PC] - | move TMP2, BASE - | addiu PC, TMP1, FRAME_CONT - | move BASE, CRET1 - | b ->vm_call_dispatch - |. li NARGS8:RC, 16 // 2 args for func(o1, o2). - | - |->vmeta_len: - | // CARG2 already set by BC_LEN. -#if LJ_52 - | move MULTRES, CARG1 -#endif - | load_got lj_meta_len - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_meta_len // (lua_State *L, TValue *o) - |. move CARG1, L - | // Returns NULL (retry) or TValue * (metamethod base). -#if LJ_52 - | bnez CRET1, ->vmeta_binop // Binop call for compatibility. - |. nop - | b ->BC_LEN_Z - |. move CARG1, MULTRES -#else - | b ->vmeta_binop // Binop call for compatibility. - |. nop -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call: // Resolve and call __call metamethod. - | // TMP2 = old base, BASE = new base, RC = nargs*8 - | load_got lj_meta_call - | sw TMP2, L->base // This is the callers base! - | addiu CARG2, BASE, -8 - | sw PC, SAVE_PC - | addu CARG3, BASE, RC - | move MULTRES, NARGS8:RC - | call_intern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - |. move CARG1, L - | lw LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | addiu NARGS8:RC, MULTRES, 8 // Got one more argument now. - | ins_call - | - |->vmeta_callt: // Resolve __call for BC_CALLT. - | // BASE = old base, RA = new base, RC = nargs*8 - | load_got lj_meta_call - | sw BASE, L->base - | addiu CARG2, RA, -8 - | sw PC, SAVE_PC - | addu CARG3, RA, RC - | move MULTRES, NARGS8:RC - | call_intern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - |. move CARG1, L - | lw TMP1, FRAME_PC(BASE) - | lw LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. - | b ->BC_CALLT_Z - |. addiu NARGS8:RC, MULTRES, 8 // Got one more argument now. - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | load_got lj_meta_for - | sw BASE, L->base - | move CARG2, RA - | sw PC, SAVE_PC - | move MULTRES, INS - | call_intern lj_meta_for // (lua_State *L, TValue *base) - |. move CARG1, L - |.if JIT - | decode_OP1 TMP0, MULTRES - | li AT, BC_JFORI - |.endif - | decode_RA8a RA, MULTRES - | decode_RD8a RD, MULTRES - | decode_RA8b RA - |.if JIT - | beq TMP0, AT, =>BC_JFORI - |. decode_RD8b RD - | b =>BC_FORI - |. nop - |.else - | b =>BC_FORI - |. decode_RD8b RD - |.endif - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | beqz NARGS8:RC, ->fff_fallback - |. lw CARG3, HI(BASE) - | lw CARG1, LO(BASE) - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | sltiu AT, NARGS8:RC, 16 - | lw CARG3, HI(BASE) - | bnez AT, ->fff_fallback - |. lw CARG4, 8+HI(BASE) - | lw CARG1, LO(BASE) - | lw CARG2, 8+LO(BASE) - |.endmacro - | - |.macro .ffunc_n, name // Caveat: has delay slot! - |->ff_ .. name: - | lw CARG3, HI(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. ldc1 FARG1, 0(BASE) - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |.endmacro - | - |.macro .ffunc_nn, name // Caveat: has delay slot! - |->ff_ .. name: - | sltiu AT, NARGS8:RC, 16 - | lw CARG3, HI(BASE) - | bnez AT, ->fff_fallback - |. lw CARG4, 8+HI(BASE) - | ldc1 FARG1, 0(BASE) - | ldc1 FARG2, 8(BASE) - | sltiu TMP0, CARG3, LJ_TISNUM - | sltiu TMP1, CARG4, LJ_TISNUM - | and TMP0, TMP0, TMP1 - | beqz TMP0, ->fff_fallback - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1 and has delay slot! - |.macro ffgccheck - | lw TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | lw TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | subu AT, TMP0, TMP1 - | bgezal AT, ->fff_gcstep - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc_1 assert - | sltiu AT, CARG3, LJ_TISTRUECOND - | beqz AT, ->fff_fallback - |. addiu RA, BASE, -8 - | lw PC, FRAME_PC(BASE) - | addiu RD, NARGS8:RC, 8 // Compute (nresults+1)*8. - | addu TMP2, RA, NARGS8:RC - | sw CARG3, HI(RA) - | addiu TMP1, BASE, 8 - | beq BASE, TMP2, ->fff_res // Done if exactly 1 argument. - |. sw CARG1, LO(RA) - |1: - | ldc1 f0, 0(TMP1) - | sdc1 f0, -8(TMP1) - | bne TMP1, TMP2, <1 - |. addiu TMP1, TMP1, 8 - | b ->fff_res - |. nop - | - |.ffunc type - | lw CARG3, HI(BASE) - | li TMP1, LJ_TISNUM - | beqz NARGS8:RC, ->fff_fallback - |. sltiu TMP0, CARG3, LJ_TISNUM - | movz TMP1, CARG3, TMP0 - | not TMP1, TMP1 - | sll TMP1, TMP1, 3 - | addu TMP1, CFUNC:RB, TMP1 - | b ->fff_resn - |. ldc1 FRET1, CFUNC:TMP1->upvalue - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | li AT, LJ_TTAB - | bne CARG3, AT, >6 - |. li AT, LJ_TUDATA - |1: // Field metatable must be at same offset for GCtab and GCudata! - | lw TAB:CARG1, TAB:CARG1->metatable - |2: - | lw STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) - | beqz TAB:CARG1, ->fff_restv - |. li CARG3, LJ_TNIL - | lw TMP0, TAB:CARG1->hmask - | li CARG3, LJ_TTAB // Use metatable as default result. - | lw TMP1, STR:RC->hash - | lw NODE:TMP2, TAB:CARG1->node - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | sll TMP0, TMP1, 5 - | sll TMP1, TMP1, 3 - | subu TMP1, TMP0, TMP1 - | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - | li AT, LJ_TSTR - |3: // Rearranged logic, because we expect _not_ to find the key. - | lw CARG4, offsetof(Node, key)+HI(NODE:TMP2) - | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) - | lw NODE:TMP3, NODE:TMP2->next - | bne CARG4, AT, >4 - |. lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) - | beq TMP0, STR:RC, >5 - |. lw TMP1, offsetof(Node, val)+LO(NODE:TMP2) - |4: - | beqz NODE:TMP3, ->fff_restv // Not found, keep default result. - |. move NODE:TMP2, NODE:TMP3 - | b <3 - |. nop - |5: - | beq CARG2, TISNIL, ->fff_restv // Ditto for nil value. - |. nop - | move CARG3, CARG2 // Return value of mt.__metatable. - | b ->fff_restv - |. move CARG1, TMP1 - | - |6: - | beq CARG3, AT, <1 - |. sltiu TMP0, CARG3, LJ_TISNUM - | li TMP1, LJ_TISNUM - | movz TMP1, CARG3, TMP0 - | not TMP1, TMP1 - | sll TMP1, TMP1, 2 - | addu TMP1, DISPATCH, TMP1 - | b <2 - |. lw TAB:CARG1, DISPATCH_GL(gcroot[GCROOT_BASEMT])(TMP1) - | - |.ffunc_2 setmetatable - | // Fast path: no mt for table yet and not clearing the mt. - | li AT, LJ_TTAB - | bne CARG3, AT, ->fff_fallback - |. addiu CARG4, CARG4, -LJ_TTAB - | lw TAB:TMP1, TAB:CARG1->metatable - | lbu TMP3, TAB:CARG1->marked - | or AT, CARG4, TAB:TMP1 - | bnez AT, ->fff_fallback - |. andi AT, TMP3, LJ_GC_BLACK // isblack(table) - | beqz AT, ->fff_restv - |. sw TAB:CARG2, TAB:CARG1->metatable - | barrierback TAB:CARG1, TMP3, TMP0, ->fff_restv - | - |.ffunc rawget - | lw CARG4, HI(BASE) - | sltiu AT, NARGS8:RC, 16 - | lw TAB:CARG2, LO(BASE) - | load_got lj_tab_get - | addiu CARG4, CARG4, -LJ_TTAB - | or AT, AT, CARG4 - | bnez AT, ->fff_fallback - | addiu CARG3, BASE, 8 - | call_intern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - |. move CARG1, L - | // Returns cTValue *. - | b ->fff_resn - |. ldc1 FRET1, 0(CRET1) - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | lw CARG1, HI(BASE) - | xori AT, NARGS8:RC, 8 - | sltiu CARG1, CARG1, LJ_TISNUM - | movn CARG1, r0, AT - | beqz CARG1, ->fff_fallback // Exactly one number argument. - |. ldc1 FRET1, 0(BASE) - | b ->fff_resn - |. nop - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | li AT, LJ_TSTR - | // A __tostring method in the string base metatable is ignored. - | beq CARG3, AT, ->fff_restv // String key? - | // Handle numbers inline, unless a number base metatable is present. - |. lw TMP1, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) - | sltiu TMP0, CARG3, LJ_TISNUM - | sltiu TMP1, TMP1, 1 - | and TMP0, TMP0, TMP1 - | beqz TMP0, ->fff_fallback - |. sw BASE, L->base // Add frame since C call can throw. - | ffgccheck - |. sw PC, SAVE_PC // Redundant (but a defined value). - | load_got lj_strfmt_num - | move CARG1, L - | call_intern lj_strfmt_num // (lua_State *L, lua_Number *np) - |. move CARG2, BASE - | // Returns GCstr *. - | li CARG3, LJ_TSTR - | b ->fff_restv - |. move CARG1, CRET1 - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc next - | lw CARG1, HI(BASE) - | lw TAB:CARG2, LO(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. addu TMP2, BASE, NARGS8:RC - | li AT, LJ_TTAB - | sw TISNIL, HI(TMP2) // Set missing 2nd arg to nil. - | bne CARG1, AT, ->fff_fallback - |. lw PC, FRAME_PC(BASE) - | load_got lj_tab_next - | sw BASE, L->base // Add frame since C call can throw. - | sw BASE, L->top // Dummy frame length is ok. - | addiu CARG3, BASE, 8 - | sw PC, SAVE_PC - | call_intern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - |. move CARG1, L - | // Returns 0 at end of traversal. - | beqz CRET1, ->fff_restv // End of traversal: return nil. - |. li CARG3, LJ_TNIL - | ldc1 f0, 8(BASE) // Copy key and value to results. - | addiu RA, BASE, -8 - | ldc1 f2, 16(BASE) - | li RD, (2+1)*8 - | sdc1 f0, 0(RA) - | b ->fff_res - |. sdc1 f2, 8(RA) - | - |.ffunc_1 pairs - | li AT, LJ_TTAB - | bne CARG3, AT, ->fff_fallback - |. lw PC, FRAME_PC(BASE) -#if LJ_52 - | lw TAB:TMP2, TAB:CARG1->metatable - | ldc1 f0, CFUNC:RB->upvalue[0] - | bnez TAB:TMP2, ->fff_fallback -#else - | ldc1 f0, CFUNC:RB->upvalue[0] -#endif - |. addiu RA, BASE, -8 - | sw TISNIL, 8+HI(BASE) - | li RD, (3+1)*8 - | b ->fff_res - |. sdc1 f0, 0(RA) - | - |.ffunc ipairs_aux - | sltiu AT, NARGS8:RC, 16 - | lw CARG3, HI(BASE) - | lw TAB:CARG1, LO(BASE) - | lw CARG4, 8+HI(BASE) - | bnez AT, ->fff_fallback - |. ldc1 FARG2, 8(BASE) - | addiu CARG3, CARG3, -LJ_TTAB - | sltiu AT, CARG4, LJ_TISNUM - | li TMP0, 1 - | movn AT, r0, CARG3 - | mtc1 TMP0, FARG1 - | beqz AT, ->fff_fallback - |. lw PC, FRAME_PC(BASE) - | trunc.w.d FRET1, FARG2 - | cvt.d.w FARG1, FARG1 - | lw TMP0, TAB:CARG1->asize - | lw TMP1, TAB:CARG1->array - | mfc1 TMP2, FRET1 - | addiu RA, BASE, -8 - | add.d FARG2, FARG2, FARG1 - | addiu TMP2, TMP2, 1 - | sltu AT, TMP2, TMP0 - | sll TMP3, TMP2, 3 - | addu TMP3, TMP1, TMP3 - | beqz AT, >2 // Not in array part? - |. sdc1 FARG2, 0(RA) - | lw TMP2, HI(TMP3) - | ldc1 f0, 0(TMP3) - |1: - | beq TMP2, TISNIL, ->fff_res // End of iteration, return 0 results. - |. li RD, (0+1)*8 - | li RD, (2+1)*8 - | b ->fff_res - |. sdc1 f0, 8(RA) - |2: // Check for empty hash part first. Otherwise call C function. - | lw TMP0, TAB:CARG1->hmask - | load_got lj_tab_getinth - | beqz TMP0, ->fff_res - |. li RD, (0+1)*8 - | call_intern lj_tab_getinth // (GCtab *t, int32_t key) - |. move CARG2, TMP2 - | // Returns cTValue * or NULL. - | beqz CRET1, ->fff_res - |. li RD, (0+1)*8 - | lw TMP2, HI(CRET1) - | b <1 - |. ldc1 f0, 0(CRET1) - | - |.ffunc_1 ipairs - | li AT, LJ_TTAB - | bne CARG3, AT, ->fff_fallback - |. lw PC, FRAME_PC(BASE) -#if LJ_52 - | lw TAB:TMP2, TAB:CARG1->metatable - | ldc1 f0, CFUNC:RB->upvalue[0] - | bnez TAB:TMP2, ->fff_fallback -#else - | ldc1 f0, CFUNC:RB->upvalue[0] -#endif - |. addiu RA, BASE, -8 - | sw r0, 8+HI(BASE) - | sw r0, 8+LO(BASE) - | li RD, (3+1)*8 - | b ->fff_res - |. sdc1 f0, 0(RA) - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc pcall - | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | beqz NARGS8:RC, ->fff_fallback - | move TMP2, BASE - | addiu BASE, BASE, 8 - | // Remember active hook before pcall. - | srl TMP3, TMP3, HOOK_ACTIVE_SHIFT - | andi TMP3, TMP3, 1 - | addiu PC, TMP3, 8+FRAME_PCALL - | b ->vm_call_dispatch - |. addiu NARGS8:RC, NARGS8:RC, -8 - | - |.ffunc xpcall - | sltiu AT, NARGS8:RC, 16 - | lw CARG4, 8+HI(BASE) - | bnez AT, ->fff_fallback - |. ldc1 FARG2, 8(BASE) - | ldc1 FARG1, 0(BASE) - | lbu TMP1, DISPATCH_GL(hookmask)(DISPATCH) - | li AT, LJ_TFUNC - | move TMP2, BASE - | bne CARG4, AT, ->fff_fallback // Traceback must be a function. - | addiu BASE, BASE, 16 - | // Remember active hook before pcall. - | srl TMP3, TMP3, HOOK_ACTIVE_SHIFT - | sdc1 FARG2, 0(TMP2) // Swap function and traceback. - | andi TMP3, TMP3, 1 - | sdc1 FARG1, 8(TMP2) - | addiu PC, TMP3, 16+FRAME_PCALL - | b ->vm_call_dispatch - |. addiu NARGS8:RC, NARGS8:RC, -16 - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | li AT, LJ_TTHREAD - | bne CARG3, AT, ->fff_fallback - |.else - |.ffunc coroutine_wrap_aux - | lw L:CARG1, CFUNC:RB->upvalue[0].gcr - |.endif - | lbu TMP0, L:CARG1->status - | lw TMP1, L:CARG1->cframe - | lw CARG2, L:CARG1->top - | lw TMP2, L:CARG1->base - | addiu TMP3, TMP0, -LUA_YIELD - | bgtz TMP3, ->fff_fallback // st > LUA_YIELD? - |. xor TMP2, TMP2, CARG2 - | bnez TMP1, ->fff_fallback // cframe != 0? - |. or AT, TMP2, TMP0 - | lw TMP0, L:CARG1->maxstack - | beqz AT, ->fff_fallback // base == top && st == 0? - |. lw PC, FRAME_PC(BASE) - | addu TMP2, CARG2, NARGS8:RC - | sltu AT, TMP0, TMP2 - | bnez AT, ->fff_fallback // Stack overflow? - |. sw PC, SAVE_PC - | sw BASE, L->base - |1: - |.if resume - | addiu BASE, BASE, 8 // Keep resumed thread in stack for GC. - | addiu NARGS8:RC, NARGS8:RC, -8 - | addiu TMP2, TMP2, -8 - |.endif - | sw TMP2, L:CARG1->top - | addu TMP1, BASE, NARGS8:RC - | move CARG3, CARG2 - | sw BASE, L->top - |2: // Move args to coroutine. - | ldc1 f0, 0(BASE) - | sltu AT, BASE, TMP1 - | beqz AT, >3 - |. addiu BASE, BASE, 8 - | sdc1 f0, 0(CARG3) - | b <2 - |. addiu CARG3, CARG3, 8 - |3: - | bal ->vm_resume // (lua_State *L, TValue *base, 0, 0) - |. move L:RA, L:CARG1 - | // Returns thread status. - |4: - | lw TMP2, L:RA->base - | sltiu AT, CRET1, LUA_YIELD+1 - | lw TMP3, L:RA->top - | li_vmstate INTERP - | lw BASE, L->base - | sw L, DISPATCH_GL(cur_L)(DISPATCH) - | st_vmstate - | beqz AT, >8 - |. subu RD, TMP3, TMP2 - | lw TMP0, L->maxstack - | beqz RD, >6 // No results? - |. addu TMP1, BASE, RD - | sltu AT, TMP0, TMP1 - | bnez AT, >9 // Need to grow stack? - |. addu TMP3, TMP2, RD - | sw TMP2, L:RA->top // Clear coroutine stack. - | move TMP1, BASE - |5: // Move results from coroutine. - | ldc1 f0, 0(TMP2) - | addiu TMP2, TMP2, 8 - | sltu AT, TMP2, TMP3 - | sdc1 f0, 0(TMP1) - | bnez AT, <5 - |. addiu TMP1, TMP1, 8 - |6: - | andi TMP0, PC, FRAME_TYPE - |.if resume - | li TMP1, LJ_TTRUE - | addiu RA, BASE, -8 - | sw TMP1, -8+HI(BASE) // Prepend true to results. - | addiu RD, RD, 16 - |.else - | move RA, BASE - | addiu RD, RD, 8 - |.endif - |7: - | sw PC, SAVE_PC - | beqz TMP0, ->BC_RET_Z - |. move MULTRES, RD - | b ->vm_return - |. nop - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | addiu TMP3, TMP3, -8 - | li TMP1, LJ_TFALSE - | ldc1 f0, 0(TMP3) - | sw TMP3, L:RA->top // Remove error from coroutine stack. - | li RD, (2+1)*8 - | sw TMP1, -8+HI(BASE) // Prepend false to results. - | addiu RA, BASE, -8 - | sdc1 f0, 0(BASE) // Copy error message. - | b <7 - |. andi TMP0, PC, FRAME_TYPE - |.else - | load_got lj_ffh_coroutine_wrap_err - | move CARG2, L:RA - | call_intern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) - |. move CARG1, L - |.endif - | - |9: // Handle stack expansion on return from yield. - | load_got lj_state_growstack - | srl CARG2, RD, 3 - | call_intern lj_state_growstack // (lua_State *L, int n) - |. move CARG1, L - | b <4 - |. li CRET1, 0 - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | lw TMP0, L->cframe - | addu TMP1, BASE, NARGS8:RC - | sw BASE, L->base - | andi TMP0, TMP0, CFRAME_RESUME - | sw TMP1, L->top - | beqz TMP0, ->fff_fallback - |. li CRET1, LUA_YIELD - | sw r0, L->cframe - | b ->vm_leave_unw - |. sb CRET1, L->status - | - |//-- Math library ------------------------------------------------------- - | - |.ffunc_n math_abs - |. abs.d FRET1, FARG1 - |->fff_resn: - | lw PC, FRAME_PC(BASE) - | addiu RA, BASE, -8 - | b ->fff_res1 - |. sdc1 FRET1, -8(BASE) - | - |->fff_restv: - | // CARG3/CARG1 = TValue result. - | lw PC, FRAME_PC(BASE) - | sw CARG3, -8+HI(BASE) - | addiu RA, BASE, -8 - | sw CARG1, -8+LO(BASE) - |->fff_res1: - | // RA = results, PC = return. - | li RD, (1+1)*8 - |->fff_res: - | // RA = results, RD = (nresults+1)*8, PC = return. - | andi TMP0, PC, FRAME_TYPE - | bnez TMP0, ->vm_return - |. move MULTRES, RD - | lw INS, -4(PC) - | decode_RB8a RB, INS - | decode_RB8b RB - |5: - | sltu AT, RD, RB - | bnez AT, >6 // More results expected? - |. decode_RA8a TMP0, INS - | decode_RA8b TMP0 - | ins_next1 - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | subu BASE, RA, TMP0 - | ins_next2 - | - |6: // Fill up results with nil. - | addu TMP1, RA, RD - | addiu RD, RD, 8 - | b <5 - |. sw TISNIL, -8+HI(TMP1) - | - |.macro math_extern, func - |->ff_math_ .. func: - | lw CARG3, HI(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. load_got func - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |. nop - | call_extern - |. ldc1 FARG1, 0(BASE) - | b ->fff_resn - |. nop - |.endmacro - | - |.macro math_extern2, func - | .ffunc_nn math_ .. func - |. load_got func - | call_extern - |. nop - | b ->fff_resn - |. nop - |.endmacro - | - |.macro math_round, func - | .ffunc_n math_ .. func - |. nop - | bal ->vm_ .. func - |. nop - | b ->fff_resn - |. nop - |.endmacro - | - | math_round floor - | math_round ceil - | - |.ffunc math_log - | lw CARG3, HI(BASE) - | li AT, 8 - | bne NARGS8:RC, AT, ->fff_fallback // Exactly 1 argument. - |. load_got log - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |. nop - | call_extern - |. ldc1 FARG1, 0(BASE) - | b ->fff_resn - |. nop - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |.ffunc_n math_sqrt - |. sqrt.d FRET1, FARG1 - | b ->fff_resn - |. nop - | - |.ffunc_nn math_ldexp - | trunc.w.d FARG2, FARG2 - | load_got ldexp - | mfc1 CARG3, FARG2 - | call_extern - |. nop - | b ->fff_resn - |. nop - | - |.ffunc_n math_frexp - | load_got frexp - | lw PC, FRAME_PC(BASE) - | call_extern - |. addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | lw TMP1, DISPATCH_GL(tmptv)(DISPATCH) - | addiu RA, BASE, -8 - | mtc1 TMP1, FARG2 - | sdc1 FRET1, 0(RA) - | cvt.d.w FARG2, FARG2 - | sdc1 FARG2, 8(RA) - | b ->fff_res - |. li RD, (2+1)*8 - | - |.ffunc_n math_modf - | load_got modf - | lw PC, FRAME_PC(BASE) - | call_extern - |. addiu CARG3, BASE, -8 - | addiu RA, BASE, -8 - | sdc1 FRET1, 0(BASE) - | b ->fff_res - |. li RD, (2+1)*8 - | - |.macro math_minmax, name, ismax - |->ff_ .. name: - | lw CARG3, HI(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. ldc1 FRET1, 0(BASE) - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |. addu TMP2, BASE, NARGS8:RC - | addiu TMP1, BASE, 8 - | beq TMP1, TMP2, ->fff_resn - |1: - |. lw CARG3, HI(TMP1) - | ldc1 FARG1, 0(TMP1) - | addiu TMP1, TMP1, 8 - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |.if ismax - |. c.olt.d FARG1, FRET1 - |.else - |. c.olt.d FRET1, FARG1 - |.endif - | bne TMP1, TMP2, <1 - |. movf.d FRET1, FARG1 - | b ->fff_resn - |. nop - |.endmacro - | - | math_minmax math_min, 0 - | math_minmax math_max, 1 - | - |//-- String library ----------------------------------------------------- - | - |.ffunc string_byte // Only handle the 1-arg case here. - | lw CARG3, HI(BASE) - | lw STR:CARG1, LO(BASE) - | xori AT, NARGS8:RC, 8 - | addiu CARG3, CARG3, -LJ_TSTR - | or AT, AT, CARG3 - | bnez AT, ->fff_fallback // Need exactly 1 string argument. - |. nop - | lw TMP0, STR:CARG1->len - | lbu TMP1, STR:CARG1[1] // Access is always ok (NUL at end). - | addiu RA, BASE, -8 - | sltu RD, r0, TMP0 - | mtc1 TMP1, f0 - | addiu RD, RD, 1 - | cvt.d.w f0, f0 - | lw PC, FRAME_PC(BASE) - | sll RD, RD, 3 // RD = ((str->len != 0)+1)*8 - | b ->fff_res - |. sdc1 f0, 0(RA) - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | lw CARG3, HI(BASE) - | ldc1 FARG1, 0(BASE) - | li AT, 8 - | bne NARGS8:RC, AT, ->fff_fallback // Exactly 1 argument. - |. sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |. li CARG3, 1 - | trunc.w.d FARG1, FARG1 - | addiu CARG2, sp, ARG5_OFS - | sltiu AT, TMP0, 256 - | mfc1 TMP0, FARG1 - | beqz AT, ->fff_fallback - |. sw TMP0, ARG5 - |->fff_newstr: - | load_got lj_str_new - | sw BASE, L->base - | sw PC, SAVE_PC - | call_intern lj_str_new // (lua_State *L, char *str, size_t l) - |. move CARG1, L - | // Returns GCstr *. - | lw BASE, L->base - |->fff_resstr: - | move CARG1, CRET1 - | b ->fff_restv - |. li CARG3, LJ_TSTR - | - |.ffunc string_sub - | ffgccheck - | addiu AT, NARGS8:RC, -16 - | lw CARG3, 16+HI(BASE) - | ldc1 f0, 16(BASE) - | lw TMP0, HI(BASE) - | lw STR:CARG1, LO(BASE) - | bltz AT, ->fff_fallback - | lw CARG2, 8+HI(BASE) - | ldc1 f2, 8(BASE) - | beqz AT, >1 - |. li CARG4, -1 - | trunc.w.d f0, f0 - | sltiu AT, CARG3, LJ_TISNUM - | beqz AT, ->fff_fallback - |. mfc1 CARG4, f0 - |1: - | sltiu AT, CARG2, LJ_TISNUM - | beqz AT, ->fff_fallback - |. li AT, LJ_TSTR - | trunc.w.d f2, f2 - | bne TMP0, AT, ->fff_fallback - |. lw CARG2, STR:CARG1->len - | mfc1 CARG3, f2 - | // STR:CARG1 = str, CARG2 = str->len, CARG3 = start, CARG4 = end - | slt AT, CARG4, r0 - | addiu TMP0, CARG2, 1 - | addu TMP1, CARG4, TMP0 - | slt TMP3, CARG3, r0 - | movn CARG4, TMP1, AT // if (end < 0) end += len+1 - | addu TMP1, CARG3, TMP0 - | movn CARG3, TMP1, TMP3 // if (start < 0) start += len+1 - | li TMP2, 1 - | slt AT, CARG4, r0 - | slt TMP3, r0, CARG3 - | movn CARG4, r0, AT // if (end < 0) end = 0 - | movz CARG3, TMP2, TMP3 // if (start < 1) start = 1 - | slt AT, CARG2, CARG4 - | movn CARG4, CARG2, AT // if (end > len) end = len - | addu CARG2, STR:CARG1, CARG3 - | subu CARG3, CARG4, CARG3 // len = end - start - | addiu CARG2, CARG2, sizeof(GCstr)-1 - | bgez CARG3, ->fff_newstr - |. addiu CARG3, CARG3, 1 // len++ - |->fff_emptystr: // Return empty string. - | addiu STR:CARG1, DISPATCH, DISPATCH_GL(strempty) - | b ->fff_restv - |. li CARG3, LJ_TSTR - | - |.macro ffstring_op, name - | .ffunc string_ .. name - | ffgccheck - | lw CARG3, HI(BASE) - | lw STR:CARG2, LO(BASE) - | beqz NARGS8:RC, ->fff_fallback - |. li AT, LJ_TSTR - | bne CARG3, AT, ->fff_fallback - |. addiu SBUF:CARG1, DISPATCH, DISPATCH_GL(tmpbuf) - | load_got lj_buf_putstr_ .. name - | lw TMP0, SBUF:CARG1->b - | sw L, SBUF:CARG1->L - | sw BASE, L->base - | sw TMP0, SBUF:CARG1->p - | call_intern extern lj_buf_putstr_ .. name - |. sw PC, SAVE_PC - | load_got lj_buf_tostr - | call_intern lj_buf_tostr - |. move SBUF:CARG1, SBUF:CRET1 - | b ->fff_resstr - |. lw BASE, L->base - |.endmacro - | - |ffstring_op reverse - |ffstring_op lower - |ffstring_op upper - | - |//-- Bit library -------------------------------------------------------- - | - |.macro .ffunc_bit, name - | .ffunc_n bit_..name - |. add.d FARG1, FARG1, TOBIT - | mfc1 CRET1, FARG1 - |.endmacro - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name - | addiu TMP1, BASE, 8 - | addu TMP2, BASE, NARGS8:RC - |1: - | lw CARG4, HI(TMP1) - | beq TMP1, TMP2, ->fff_resi - |. ldc1 FARG1, 0(TMP1) - | sltiu AT, CARG4, LJ_TISNUM - | beqz AT, ->fff_fallback - | add.d FARG1, FARG1, TOBIT - | mfc1 CARG2, FARG1 - | ins CRET1, CRET1, CARG2 - | b <1 - |. addiu TMP1, TMP1, 8 - |.endmacro - | - |.ffunc_bit_op band, and - |.ffunc_bit_op bor, or - |.ffunc_bit_op bxor, xor - | - |.ffunc_bit bswap - | srl TMP0, CRET1, 24 - | srl TMP2, CRET1, 8 - | sll TMP1, CRET1, 24 - | andi TMP2, TMP2, 0xff00 - | or TMP0, TMP0, TMP1 - | andi CRET1, CRET1, 0xff00 - | or TMP0, TMP0, TMP2 - | sll CRET1, CRET1, 8 - | b ->fff_resi - |. or CRET1, TMP0, CRET1 - | - |.ffunc_bit bnot - | b ->fff_resi - |. not CRET1, CRET1 - | - |.macro .ffunc_bit_sh, name, ins, shmod - | .ffunc_nn bit_..name - |. add.d FARG1, FARG1, TOBIT - | add.d FARG2, FARG2, TOBIT - | mfc1 CARG1, FARG1 - | mfc1 CARG2, FARG2 - |.if shmod == 1 - | li AT, 32 - | subu TMP0, AT, CARG2 - | sllv CARG2, CARG1, CARG2 - | srlv CARG1, CARG1, TMP0 - |.elif shmod == 2 - | li AT, 32 - | subu TMP0, AT, CARG2 - | srlv CARG2, CARG1, CARG2 - | sllv CARG1, CARG1, TMP0 - |.endif - | b ->fff_resi - |. ins CRET1, CARG1, CARG2 - |.endmacro - | - |.ffunc_bit_sh lshift, sllv, 0 - |.ffunc_bit_sh rshift, srlv, 0 - |.ffunc_bit_sh arshift, srav, 0 - |// Can't use rotrv, since it's only in MIPS32R2. - |.ffunc_bit_sh rol, or, 1 - |.ffunc_bit_sh ror, or, 2 - | - |.ffunc_bit tobit - |->fff_resi: - | mtc1 CRET1, FRET1 - | b ->fff_resn - |. cvt.d.w FRET1, FRET1 - | - |//----------------------------------------------------------------------- - | - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RB = CFUNC, RC = nargs*8 - | lw TMP3, CFUNC:RB->f - | addu TMP1, BASE, NARGS8:RC - | lw PC, FRAME_PC(BASE) // Fallback may overwrite PC. - | addiu TMP0, TMP1, 8*LUA_MINSTACK - | lw TMP2, L->maxstack - | sw PC, SAVE_PC // Redundant (but a defined value). - | sltu AT, TMP2, TMP0 - | sw BASE, L->base - | sw TMP1, L->top - | bnez AT, >5 // Need to grow stack. - |. move CFUNCADDR, TMP3 - | jalr TMP3 // (lua_State *L) - |. move CARG1, L - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | lw BASE, L->base - | sll RD, CRET1, 3 - | bgtz CRET1, ->fff_res // Returned nresults+1? - |. addiu RA, BASE, -8 - |1: // Returned 0 or -1: retry fast path. - | lw TMP0, L->top - | lw LFUNC:RB, FRAME_FUNC(BASE) - | bnez CRET1, ->vm_call_tail // Returned -1? - |. subu NARGS8:RC, TMP0, BASE - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | andi TMP0, PC, FRAME_TYPE - | li AT, -4 - | bnez TMP0, >3 - |. and TMP1, PC, AT - | lbu TMP1, OFS_RA(PC) - | sll TMP1, TMP1, 3 - | addiu TMP1, TMP1, 8 - |3: - | b ->vm_call_dispatch // Resolve again for tailcall. - |. subu TMP2, BASE, TMP1 - | - |5: // Grow stack for fallback handler. - | load_got lj_state_growstack - | li CARG2, LUA_MINSTACK - | call_intern lj_state_growstack // (lua_State *L, int n) - |. move CARG1, L - | lw BASE, L->base - | b <1 - |. li CRET1, 0 // Force retry. - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RC = nargs*8 - | move MULTRES, ra - | load_got lj_gc_step - | sw BASE, L->base - | addu TMP0, BASE, NARGS8:RC - | sw PC, SAVE_PC // Redundant (but a defined value). - | sw TMP0, L->top - | call_intern lj_gc_step // (lua_State *L) - |. move CARG1, L - | lw BASE, L->base - | move ra, MULTRES - | lw TMP0, L->top - | lw CFUNC:RB, FRAME_FUNC(BASE) - | jr ra - |. subu NARGS8:RC, TMP0, BASE - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - |.if JIT - | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | andi AT, TMP3, HOOK_VMEVENT // No recording while in vmevent. - | bnez AT, >5 - | // Decrement the hookcount for consistency, but always do the call. - |. lw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andi AT, TMP3, HOOK_ACTIVE - | bnez AT, >1 - |. addiu TMP2, TMP2, -1 - | andi AT, TMP3, LUA_MASKLINE|LUA_MASKCOUNT - | beqz AT, >1 - |. nop - | b >1 - |. sw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - |.endif - | - |->vm_rethook: // Dispatch target for return hooks. - | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | andi AT, TMP3, HOOK_ACTIVE // Hook already active? - | beqz AT, >1 - |5: // Re-dispatch to static ins. - |. lw AT, GG_DISP2STATIC(TMP0) // Assumes TMP0 holds DISPATCH+OP*4. - | jr AT - |. nop - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | lbu TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | lw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andi AT, TMP3, HOOK_ACTIVE // Hook already active? - | bnez AT, <5 - |. andi AT, TMP3, LUA_MASKLINE|LUA_MASKCOUNT - | beqz AT, <5 - |. addiu TMP2, TMP2, -1 - | beqz TMP2, >1 - |. sw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andi AT, TMP3, LUA_MASKLINE - | beqz AT, <5 - |1: - |. load_got lj_dispatch_ins - | sw MULTRES, SAVE_MULTRES - | move CARG2, PC - | sw BASE, L->base - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | call_intern lj_dispatch_ins // (lua_State *L, const BCIns *pc) - |. move CARG1, L - |3: - | lw BASE, L->base - |4: // Re-dispatch to static ins. - | lw INS, -4(PC) - | decode_OP4a TMP1, INS - | decode_OP4b TMP1 - | addu TMP0, DISPATCH, TMP1 - | decode_RD8a RD, INS - | lw AT, GG_DISP2STATIC(TMP0) - | decode_RA8a RA, INS - | decode_RD8b RD - | jr AT - | decode_RA8b RA - | - |->cont_hook: // Continue from hook yield. - | addiu PC, PC, 4 - | b <4 - |. lw MULTRES, -24+LO(RB) // Restore MULTRES for *M ins. - | - |->vm_hotloop: // Hot loop counter underflow. - |.if JIT - | lw LFUNC:TMP1, FRAME_FUNC(BASE) - | addiu CARG1, DISPATCH, GG_DISP2J - | sw PC, SAVE_PC - | lw TMP1, LFUNC:TMP1->pc - | move CARG2, PC - | sw L, DISPATCH_J(L)(DISPATCH) - | lbu TMP1, PC2PROTO(framesize)(TMP1) - | load_got lj_trace_hot - | sw BASE, L->base - | sll TMP1, TMP1, 3 - | addu TMP1, BASE, TMP1 - | call_intern lj_trace_hot // (jit_State *J, const BCIns *pc) - |. sw TMP1, L->top - | b <3 - |. nop - |.endif - | - |->vm_callhook: // Dispatch target for call hooks. - |.if JIT - | b >1 - |.endif - |. move CARG2, PC - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | ori CARG2, PC, 1 - |1: - |.endif - | load_got lj_dispatch_call - | addu TMP0, BASE, RC - | sw PC, SAVE_PC - | sw BASE, L->base - | subu RA, RA, BASE - | sw TMP0, L->top - | call_intern lj_dispatch_call // (lua_State *L, const BCIns *pc) - |. move CARG1, L - | // Returns ASMFunction. - | lw BASE, L->base - | lw TMP0, L->top - | sw r0, SAVE_PC // Invalidate for subsequent line hook. - | subu NARGS8:RC, TMP0, BASE - | addu RA, BASE, RA - | lw LFUNC:RB, FRAME_FUNC(BASE) - | jr CRET1 - |. lw INS, -4(PC) - | - |->cont_stitch: // Trace stitching. - |.if JIT - | // RA = resultptr, RB = meta base - | lw INS, -4(PC) - | lw TMP3, -24+LO(RB) // Save previous trace number. - | decode_RA8a RC, INS - | addiu AT, MULTRES, -8 - | decode_RA8b RC - | beqz AT, >2 - |. addu RC, BASE, RC // Call base. - |1: // Move results down. - | ldc1 f0, 0(RA) - | addiu AT, AT, -8 - | addiu RA, RA, 8 - | sdc1 f0, 0(RC) - | bnez AT, <1 - |. addiu RC, RC, 8 - |2: - | decode_RA8a RA, INS - | decode_RB8a RB, INS - | decode_RA8b RA - | decode_RB8b RB - | addu RA, RA, RB - | lw TMP1, DISPATCH_J(trace)(DISPATCH) - | addu RA, BASE, RA - |3: - | sltu AT, RC, RA - | bnez AT, >9 // More results wanted? - |. sll TMP2, TMP3, 2 - | - | addu TMP2, TMP1, TMP2 - | lw TRACE:TMP2, 0(TMP2) - | beqz TRACE:TMP2, ->cont_nop - |. nop - | lhu RD, TRACE:TMP2->link - | beq RD, TMP3, ->cont_nop // Blacklisted. - |. load_got lj_dispatch_stitch - | bnez RD, =>BC_JLOOP // Jump to stitched trace. - |. sll RD, RD, 3 - | - | // Stitch a new trace to the previous trace. - | sw TMP3, DISPATCH_J(exitno)(DISPATCH) - | sw L, DISPATCH_J(L)(DISPATCH) - | sw BASE, L->base - | addiu CARG1, DISPATCH, GG_DISP2J - | call_intern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) - |. move CARG2, PC - | b ->cont_nop - |. lw BASE, L->base - | - |9: - | sw TISNIL, HI(RC) - | b <3 - |. addiu RC, RC, 8 - |.endif - | - |->vm_profhook: // Dispatch target for profiler hook. -#if LJ_HASPROFILE - | load_got lj_dispatch_profile - | sw MULTRES, SAVE_MULTRES - | move CARG2, PC - | sw BASE, L->base - | call_intern lj_dispatch_profile // (lua_State *L, const BCIns *pc) - |. move CARG1, L - | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. - | addiu PC, PC, -4 - | b ->cont_nop - |. lw BASE, L->base -#endif - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro savex_, a, b - | sdc1 f..a, 16+a*8(sp) - | sw r..a, 16+32*8+a*4(sp) - | sw r..b, 16+32*8+b*4(sp) - |.endmacro - | - |->vm_exit_handler: - |.if JIT - | addiu sp, sp, -(16+32*8+32*4) - | savex_ 0, 1 - | savex_ 2, 3 - | savex_ 4, 5 - | savex_ 6, 7 - | savex_ 8, 9 - | savex_ 10, 11 - | savex_ 12, 13 - | savex_ 14, 15 - | savex_ 16, 17 - | savex_ 18, 19 - | savex_ 20, 21 - | savex_ 22, 23 - | savex_ 24, 25 - | savex_ 26, 27 - | sdc1 f28, 16+28*8(sp) - | sw r28, 16+32*8+28*4(sp) - | sdc1 f30, 16+30*8(sp) - | sw r30, 16+32*8+30*4(sp) - | sw r0, 16+32*8+31*4(sp) // Clear RID_TMP. - | li_vmstate EXIT - | addiu TMP2, sp, 16+32*8+32*4 // Recompute original value of sp. - | addiu DISPATCH, JGL, -GG_DISP2G-32768 - | lw TMP1, 0(TMP2) // Load exit number. - | st_vmstate - | sw TMP2, 16+32*8+29*4(sp) // Store sp in RID_SP. - | lw L, DISPATCH_GL(cur_L)(DISPATCH) - | lw BASE, DISPATCH_GL(jit_base)(DISPATCH) - | load_got lj_trace_exit - | sw L, DISPATCH_J(L)(DISPATCH) - | sw ra, DISPATCH_J(parent)(DISPATCH) // Store trace number. - | sw BASE, L->base - | sw TMP1, DISPATCH_J(exitno)(DISPATCH) // Store exit number. - | addiu CARG1, DISPATCH, GG_DISP2J - | sw r0, DISPATCH_GL(jit_base)(DISPATCH) - | call_intern lj_trace_exit // (jit_State *J, ExitState *ex) - |. addiu CARG2, sp, 16 - | // Returns MULTRES (unscaled) or negated error code. - | lw TMP1, L->cframe - | li AT, -4 - | lw BASE, L->base - | and sp, TMP1, AT - | lw PC, SAVE_PC // Get SAVE_PC. - | b >1 - |. sw L, SAVE_L // Set SAVE_L (on-trace resume/yield). - |.endif - |->vm_exit_interp: - |.if JIT - | // CRET1 = MULTRES or negated error code, BASE, PC and JGL set. - | lw L, SAVE_L - | addiu DISPATCH, JGL, -GG_DISP2G-32768 - | sw BASE, L->base - |1: - | bltz CRET1, >9 // Check for error from exit. - |. lw LFUNC:RB, FRAME_FUNC(BASE) - | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | sll MULTRES, CRET1, 3 - | li TISNIL, LJ_TNIL - | sw MULTRES, SAVE_MULTRES - | mtc1 TMP3, TOBIT - | lw TMP1, LFUNC:RB->pc - | sw r0, DISPATCH_GL(jit_base)(DISPATCH) - | lw KBASE, PC2PROTO(k)(TMP1) - | cvt.d.s TOBIT, TOBIT - | // Modified copy of ins_next which handles function header dispatch, too. - | lw INS, 0(PC) - | addiu PC, PC, 4 - | // Assumes TISNIL == ~LJ_VMST_INTERP == -1 - | sw TISNIL, DISPATCH_GL(vmstate)(DISPATCH) - | decode_OP4a TMP1, INS - | decode_OP4b TMP1 - | sltiu TMP2, TMP1, BC_FUNCF*4 // Function header? - | addu TMP0, DISPATCH, TMP1 - | decode_RD8a RD, INS - | lw AT, 0(TMP0) - | decode_RA8a RA, INS - | beqz TMP2, >2 - |. decode_RA8b RA - | jr AT - |. decode_RD8b RD - |2: - | sltiu TMP2, TMP1, (BC_FUNCC+2)*4 // Fast function? - | bnez TMP2, >3 - |. lw TMP1, FRAME_PC(BASE) - | // Check frame below fast function. - | andi TMP0, TMP1, FRAME_TYPE - | bnez TMP0, >3 // Trace stitching continuation? - |. nop - | // Otherwise set KBASE for Lua function below fast function. - | lw TMP2, -4(TMP1) - | decode_RA8a TMP0, TMP2 - | decode_RA8b TMP0 - | subu TMP1, BASE, TMP0 - | lw LFUNC:TMP2, -8+FRAME_FUNC(TMP1) - | lw TMP1, LFUNC:TMP2->pc - | lw KBASE, PC2PROTO(k)(TMP1) - |3: - | addiu RC, MULTRES, -8 - | jr AT - |. addu RA, RA, BASE - | - |9: // Rethrow error from the right C frame. - | load_got lj_err_throw - | negu CARG2, CRET1 - | call_intern lj_err_throw // (lua_State *L, int errcode) - |. move CARG1, L - |.endif - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Modifies AT, TMP0, FRET1, FRET2, f4. Keeps all others incl. FARG1. - |.macro vm_round, func - | lui TMP0, 0x4330 // Hiword of 2^52 (double). - | mtc1 r0, f4 - | mtc1 TMP0, f5 - | abs.d FRET2, FARG1 // |x| - | mfc1 AT, f13 - | c.olt.d 0, FRET2, f4 - | add.d FRET1, FRET2, f4 // (|x| + 2^52) - 2^52 - | bc1f 0, >1 // Truncate only if |x| < 2^52. - |. sub.d FRET1, FRET1, f4 - | slt AT, AT, r0 - |.if "func" == "ceil" - | lui TMP0, 0xbff0 // Hiword of -1 (double). Preserves -0. - |.else - | lui TMP0, 0x3ff0 // Hiword of +1 (double). - |.endif - |.if "func" == "trunc" - | mtc1 TMP0, f5 - | c.olt.d 0, FRET2, FRET1 // |x| < result? - | sub.d FRET2, FRET1, f4 - | movt.d FRET1, FRET2, 0 // If yes, subtract +1. - | neg.d FRET2, FRET1 - | jr ra - |. movn.d FRET1, FRET2, AT // Merge sign bit back in. - |.else - | neg.d FRET2, FRET1 - | mtc1 TMP0, f5 - | movn.d FRET1, FRET2, AT // Merge sign bit back in. - |.if "func" == "ceil" - | c.olt.d 0, FRET1, FARG1 // x > result? - |.else - | c.olt.d 0, FARG1, FRET1 // x < result? - |.endif - | sub.d FRET2, FRET1, f4 // If yes, subtract +-1. - | jr ra - |. movt.d FRET1, FRET2, 0 - |.endif - |1: - | jr ra - |. mov.d FRET1, FARG1 - |.endmacro - | - |->vm_floor: - | vm_round floor - |->vm_ceil: - | vm_round ceil - |->vm_trunc: - |.if JIT - | vm_round trunc - |.endif - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Handler for callback functions. Callback slot number in r1, g in r2. - |->vm_ffi_callback: - |.if FFI - |.type CTSTATE, CTState, PC - | saveregs - | lw CTSTATE, GL:r2->ctype_state - | addiu DISPATCH, r2, GG_G2DISP - | load_got lj_ccallback_enter - | sw r1, CTSTATE->cb.slot - | sw CARG1, CTSTATE->cb.gpr[0] - | sw CARG2, CTSTATE->cb.gpr[1] - | sdc1 FARG1, CTSTATE->cb.fpr[0] - | sw CARG3, CTSTATE->cb.gpr[2] - | sw CARG4, CTSTATE->cb.gpr[3] - | sdc1 FARG2, CTSTATE->cb.fpr[1] - | addiu TMP0, sp, CFRAME_SPACE+16 - | sw TMP0, CTSTATE->cb.stack - | sw r0, SAVE_PC // Any value outside of bytecode is ok. - | move CARG2, sp - | call_intern lj_ccallback_enter // (CTState *cts, void *cf) - |. move CARG1, CTSTATE - | // Returns lua_State *. - | lw BASE, L:CRET1->base - | lw RC, L:CRET1->top - | move L, CRET1 - | lui TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | lw LFUNC:RB, FRAME_FUNC(BASE) - | mtc1 TMP3, TOBIT - | li_vmstate INTERP - | li TISNIL, LJ_TNIL - | subu RC, RC, BASE - | st_vmstate - | cvt.d.s TOBIT, TOBIT - | ins_callt - |.endif - | - |->cont_ffi_callback: // Return from FFI callback. - |.if FFI - | load_got lj_ccallback_leave - | lw CTSTATE, DISPATCH_GL(ctype_state)(DISPATCH) - | sw BASE, L->base - | sw RB, L->top - | sw L, CTSTATE->L - | move CARG2, RA - | call_intern lj_ccallback_leave // (CTState *cts, TValue *o) - |. move CARG1, CTSTATE - | lw CRET1, CTSTATE->cb.gpr[0] - | ldc1 FRET1, CTSTATE->cb.fpr[0] - | lw CRET2, CTSTATE->cb.gpr[1] - | b ->vm_leave_unw - |. ldc1 FRET2, CTSTATE->cb.fpr[1] - |.endif - | - |->vm_ffi_call: // Call C function via FFI. - | // Caveat: needs special frame unwinding, see below. - |.if FFI - | .type CCSTATE, CCallState, CARG1 - | lw TMP1, CCSTATE->spadj - | lbu CARG2, CCSTATE->nsp - | move TMP2, sp - | subu sp, sp, TMP1 - | sw ra, -4(TMP2) - | sll CARG2, CARG2, 2 - | sw r16, -8(TMP2) - | sw CCSTATE, -12(TMP2) - | move r16, TMP2 - | addiu TMP1, CCSTATE, offsetof(CCallState, stack) - | addiu TMP2, sp, 16 - | beqz CARG2, >2 - |. addu TMP3, TMP1, CARG2 - |1: - | lw TMP0, 0(TMP1) - | addiu TMP1, TMP1, 4 - | sltu AT, TMP1, TMP3 - | sw TMP0, 0(TMP2) - | bnez AT, <1 - |. addiu TMP2, TMP2, 4 - |2: - | lw CFUNCADDR, CCSTATE->func - | lw CARG2, CCSTATE->gpr[1] - | lw CARG3, CCSTATE->gpr[2] - | lw CARG4, CCSTATE->gpr[3] - | ldc1 FARG1, CCSTATE->fpr[0] - | ldc1 FARG2, CCSTATE->fpr[1] - | jalr CFUNCADDR - |. lw CARG1, CCSTATE->gpr[0] // Do this last, since CCSTATE is CARG1. - | lw CCSTATE:TMP1, -12(r16) - | lw TMP2, -8(r16) - | lw ra, -4(r16) - | sw CRET1, CCSTATE:TMP1->gpr[0] - | sw CRET2, CCSTATE:TMP1->gpr[1] - | sdc1 FRET1, CCSTATE:TMP1->fpr[0] - | sdc1 FRET2, CCSTATE:TMP1->fpr[1] - | move sp, r16 - | jr ra - |. move r16, TMP2 - |.endif - |// Note: vm_ffi_call must be the last function in this object file! - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1*8, RD = src2*8, JMP with RD = target - | addu CARG2, BASE, RA - | addu CARG3, BASE, RD - | lw TMP0, HI(CARG2) - | lw TMP1, HI(CARG3) - | ldc1 f0, 0(CARG2) - | ldc1 f2, 0(CARG3) - | sltiu TMP0, TMP0, LJ_TISNUM - | sltiu TMP1, TMP1, LJ_TISNUM - | lhu TMP2, OFS_RD(PC) - | and TMP0, TMP0, TMP1 - | addiu PC, PC, 4 - | beqz TMP0, ->vmeta_comp - |. lui TMP1, (-(BCBIAS_J*4 >> 16) & 65535) - | decode_RD4b TMP2 - | addu TMP2, TMP2, TMP1 - if (op == BC_ISLT || op == BC_ISGE) { - | c.olt.d f0, f2 - } else { - | c.ole.d f0, f2 - } - if (op == BC_ISLT || op == BC_ISLE) { - | movf TMP2, r0 - } else { - | movt TMP2, r0 - } - | addu PC, PC, TMP2 - |1: - | ins_next - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | // RA = src1*8, RD = src2*8, JMP with RD = target - | addu RA, BASE, RA - | addiu PC, PC, 4 - | lw TMP0, HI(RA) - | ldc1 f0, 0(RA) - | addu RD, BASE, RD - | lhu TMP2, -4+OFS_RD(PC) - | lw TMP1, HI(RD) - | ldc1 f2, 0(RD) - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | sltiu AT, TMP0, LJ_TISNUM - | sltiu CARG1, TMP1, LJ_TISNUM - | decode_RD4b TMP2 - | and AT, AT, CARG1 - | beqz AT, >5 - |. addu TMP2, TMP2, TMP3 - | c.eq.d f0, f2 - if (vk) { - | movf TMP2, r0 - } else { - | movt TMP2, r0 - } - |1: - | addu PC, PC, TMP2 - | ins_next - |5: // Either or both types are not numbers. - | lw CARG2, LO(RA) - | lw CARG3, LO(RD) - |.if FFI - | li TMP3, LJ_TCDATA - | beq TMP0, TMP3, ->vmeta_equal_cd - |.endif - |. sltiu AT, TMP0, LJ_TISPRI // Not a primitive? - |.if FFI - | beq TMP1, TMP3, ->vmeta_equal_cd - |.endif - |. xor TMP3, CARG2, CARG3 // Same tv? - | xor TMP1, TMP1, TMP0 // Same type? - | sltiu CARG1, TMP0, LJ_TISTABUD+1 // Table or userdata? - | movz TMP3, r0, AT // Ignore tv if primitive. - | movn CARG1, r0, TMP1 // Tab/ud and same type? - | or AT, TMP1, TMP3 // Same type && (pri||same tv). - | movz CARG1, r0, AT - | beqz CARG1, <1 // Done if not tab/ud or not same type or same tv. - if (vk) { - |. movn TMP2, r0, AT - } else { - |. movz TMP2, r0, AT - } - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | lw TAB:TMP1, TAB:CARG2->metatable - | beqz TAB:TMP1, <1 // No metatable? - |. nop - | lbu TMP1, TAB:TMP1->nomm - | andi TMP1, TMP1, 1<vmeta_equal // Handle __eq metamethod. - |. li CARG4, 1-vk // ne = 0 or 1. - break; - - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | // RA = src*8, RD = str_const*8 (~), JMP with RD = target - | addu RA, BASE, RA - | addiu PC, PC, 4 - | lw TMP0, HI(RA) - | srl RD, RD, 1 - | lw STR:TMP3, LO(RA) - | subu RD, KBASE, RD - | lhu TMP2, -4+OFS_RD(PC) - |.if FFI - | li AT, LJ_TCDATA - | beq TMP0, AT, ->vmeta_equal_cd - |.endif - |. lw STR:TMP1, -4(RD) // KBASE-4-str_const*4 - | addiu TMP0, TMP0, -LJ_TSTR - | decode_RD4b TMP2 - | xor TMP1, STR:TMP1, STR:TMP3 - | or TMP0, TMP0, TMP1 - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | addu TMP2, TMP2, TMP3 - if (vk) { - | movn TMP2, r0, TMP0 - } else { - | movz TMP2, r0, TMP0 - } - | addu PC, PC, TMP2 - | ins_next - break; - - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | // RA = src*8, RD = num_const*8, JMP with RD = target - | addu RA, BASE, RA - | addiu PC, PC, 4 - | lw TMP0, HI(RA) - | ldc1 f0, 0(RA) - | addu RD, KBASE, RD - | lhu TMP2, -4+OFS_RD(PC) - | ldc1 f2, 0(RD) - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | sltiu AT, TMP0, LJ_TISNUM - | decode_RD4b TMP2 - |.if FFI - | beqz AT, >5 - |.else - | beqz AT, >1 - |.endif - |. addu TMP2, TMP2, TMP3 - | c.eq.d f0, f2 - if (vk) { - | movf TMP2, r0 - | addu PC, PC, TMP2 - |1: - } else { - | movt TMP2, r0 - |1: - | addu PC, PC, TMP2 - } - | ins_next - |.if FFI - |5: - | li AT, LJ_TCDATA - | beq TMP0, AT, ->vmeta_equal_cd - |. nop - | b <1 - |. nop - |.endif - break; - - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target - | addu RA, BASE, RA - | srl TMP1, RD, 3 - | lw TMP0, HI(RA) - | lhu TMP2, OFS_RD(PC) - | not TMP1, TMP1 - | addiu PC, PC, 4 - |.if FFI - | li AT, LJ_TCDATA - | beq TMP0, AT, ->vmeta_equal_cd - |.endif - |. xor TMP0, TMP0, TMP1 - | decode_RD4b TMP2 - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | addu TMP2, TMP2, TMP3 - if (vk) { - | movn TMP2, r0, TMP0 - } else { - | movz TMP2, r0, TMP0 - } - | addu PC, PC, TMP2 - | ins_next - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | // RA = dst*8 or unused, RD = src*8, JMP with RD = target - | addu RD, BASE, RD - | lhu TMP2, OFS_RD(PC) - | lw TMP0, HI(RD) - | addiu PC, PC, 4 - if (op == BC_IST || op == BC_ISF) { - | sltiu TMP0, TMP0, LJ_TISTRUECOND - | decode_RD4b TMP2 - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | addu TMP2, TMP2, TMP3 - if (op == BC_IST) { - | movz TMP2, r0, TMP0 - } else { - | movn TMP2, r0, TMP0 - } - | addu PC, PC, TMP2 - } else { - | sltiu TMP0, TMP0, LJ_TISTRUECOND - | ldc1 f0, 0(RD) - if (op == BC_ISTC) { - | beqz TMP0, >1 - } else { - | bnez TMP0, >1 - } - |. addu RA, BASE, RA - | decode_RD4b TMP2 - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | addu TMP2, TMP2, TMP3 - | sdc1 f0, 0(RA) - | addu PC, PC, TMP2 - |1: - } - | ins_next - break; - - case BC_ISTYPE: - | // RA = src*8, RD = -type*8 - | addu TMP2, BASE, RA - | srl TMP1, RD, 3 - | lw TMP0, HI(TMP2) - | ins_next1 - | addu AT, TMP0, TMP1 - | bnez AT, ->vmeta_istype - |. ins_next2 - break; - case BC_ISNUM: - | // RA = src*8, RD = -(TISNUM-1)*8 - | addu TMP2, BASE, RA - | lw TMP0, HI(TMP2) - | ins_next1 - | sltiu AT, TMP0, LJ_TISNUM - | beqz AT, ->vmeta_istype - |. ins_next2 - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | // RA = dst*8, RD = src*8 - | addu RD, BASE, RD - | addu RA, BASE, RA - | ldc1 f0, 0(RD) - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - break; - case BC_NOT: - | // RA = dst*8, RD = src*8 - | addu RD, BASE, RD - | addu RA, BASE, RA - | lw TMP0, HI(RD) - | li TMP1, LJ_TFALSE - | sltiu TMP0, TMP0, LJ_TISTRUECOND - | addiu TMP1, TMP0, LJ_TTRUE - | ins_next1 - | sw TMP1, HI(RA) - | ins_next2 - break; - case BC_UNM: - | // RA = dst*8, RD = src*8 - | addu CARG3, BASE, RD - | addu RA, BASE, RA - | lw TMP0, HI(CARG3) - | ldc1 f0, 0(CARG3) - | sltiu AT, TMP0, LJ_TISNUM - | beqz AT, ->vmeta_unm - |. neg.d f0, f0 - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - break; - case BC_LEN: - | // RA = dst*8, RD = src*8 - | addu CARG2, BASE, RD - | addu RA, BASE, RA - | lw TMP0, HI(CARG2) - | lw CARG1, LO(CARG2) - | li AT, LJ_TSTR - | bne TMP0, AT, >2 - |. li AT, LJ_TTAB - | lw CRET1, STR:CARG1->len - |1: - | mtc1 CRET1, f0 - | cvt.d.w f0, f0 - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - |2: - | bne TMP0, AT, ->vmeta_len - |. nop -#if LJ_52 - | lw TAB:TMP2, TAB:CARG1->metatable - | bnez TAB:TMP2, >9 - |. nop - |3: -#endif - |->BC_LEN_Z: - | load_got lj_tab_len - | call_intern lj_tab_len // (GCtab *t) - |. nop - | // Returns uint32_t (but less than 2^31). - | b <1 - |. nop -#if LJ_52 - |9: - | lbu TMP0, TAB:TMP2->nomm - | andi TMP0, TMP0, 1<vmeta_len - |. nop -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithpre - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 - ||switch (vk) { - ||case 0: - | addu CARG3, BASE, RB - | addu CARG4, KBASE, RC - | lw TMP1, HI(CARG3) - | ldc1 f20, 0(CARG3) - | ldc1 f22, 0(CARG4) - | sltiu AT, TMP1, LJ_TISNUM - || break; - ||case 1: - | addu CARG4, BASE, RB - | addu CARG3, KBASE, RC - | lw TMP1, HI(CARG4) - | ldc1 f22, 0(CARG4) - | ldc1 f20, 0(CARG3) - | sltiu AT, TMP1, LJ_TISNUM - || break; - ||default: - | addu CARG3, BASE, RB - | addu CARG4, BASE, RC - | lw TMP1, HI(CARG3) - | lw TMP2, HI(CARG4) - | ldc1 f20, 0(CARG3) - | ldc1 f22, 0(CARG4) - | sltiu AT, TMP1, LJ_TISNUM - | sltiu TMP0, TMP2, LJ_TISNUM - | and AT, AT, TMP0 - || break; - ||} - | beqz AT, ->vmeta_arith - |. addu RA, BASE, RA - |.endmacro - | - |.macro fpmod, a, b, c - |->BC_MODVN_Z: - | bal ->vm_floor // floor(b/c) - |. div.d FARG1, b, c - | mul.d a, FRET1, c - | sub.d a, b, a // b - floor(b/c)*c - |.endmacro - | - |.macro ins_arith, ins - | ins_arithpre - |.if "ins" == "fpmod_" - | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. - |. nop - |.else - | ins f0, f20, f22 - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - |.endif - |.endmacro - - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arith add.d - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arith sub.d - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arith mul.d - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arith div.d - break; - case BC_MODVN: - | ins_arith fpmod - break; - case BC_MODNV: case BC_MODVV: - | ins_arith fpmod_ - break; - case BC_POW: - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | addu CARG3, BASE, RB - | addu CARG4, BASE, RC - | lw TMP1, HI(CARG3) - | lw TMP2, HI(CARG4) - | ldc1 FARG1, 0(CARG3) - | ldc1 FARG2, 0(CARG4) - | sltiu AT, TMP1, LJ_TISNUM - | sltiu TMP0, TMP2, LJ_TISNUM - | and AT, AT, TMP0 - | load_got pow - | beqz AT, ->vmeta_arith - |. addu RA, BASE, RA - | call_extern - |. nop - | ins_next1 - | sdc1 FRET1, 0(RA) - | ins_next2 - break; - - case BC_CAT: - | // RA = dst*8, RB = src_start*8, RC = src_end*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | subu CARG3, RC, RB - | sw BASE, L->base - | addu CARG2, BASE, RC - | move MULTRES, RB - |->BC_CAT_Z: - | load_got lj_meta_cat - | srl CARG3, CARG3, 3 - | sw PC, SAVE_PC - | call_intern lj_meta_cat // (lua_State *L, TValue *top, int left) - |. move CARG1, L - | // Returns NULL (finished) or TValue * (metamethod). - | bnez CRET1, ->vmeta_binop - |. lw BASE, L->base - | addu RB, BASE, MULTRES - | ldc1 f0, 0(RB) - | addu RA, BASE, RA - | ins_next1 - | sdc1 f0, 0(RA) // Copy result from RB to RA. - | ins_next2 - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | // RA = dst*8, RD = str_const*8 (~) - | srl TMP1, RD, 1 - | subu TMP1, KBASE, TMP1 - | ins_next1 - | lw TMP0, -4(TMP1) // KBASE-4-str_const*4 - | addu RA, BASE, RA - | li TMP2, LJ_TSTR - | sw TMP0, LO(RA) - | sw TMP2, HI(RA) - | ins_next2 - break; - case BC_KCDATA: - |.if FFI - | // RA = dst*8, RD = cdata_const*8 (~) - | srl TMP1, RD, 1 - | subu TMP1, KBASE, TMP1 - | ins_next1 - | lw TMP0, -4(TMP1) // KBASE-4-cdata_const*4 - | addu RA, BASE, RA - | li TMP2, LJ_TCDATA - | sw TMP0, LO(RA) - | sw TMP2, HI(RA) - | ins_next2 - |.endif - break; - case BC_KSHORT: - | // RA = dst*8, RD = int16_literal*8 - | sra RD, INS, 16 - | mtc1 RD, f0 - | addu RA, BASE, RA - | cvt.d.w f0, f0 - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - break; - case BC_KNUM: - | // RA = dst*8, RD = num_const*8 - | addu RD, KBASE, RD - | addu RA, BASE, RA - | ldc1 f0, 0(RD) - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - break; - case BC_KPRI: - | // RA = dst*8, RD = primitive_type*8 (~) - | srl TMP1, RD, 3 - | addu RA, BASE, RA - | not TMP0, TMP1 - | ins_next1 - | sw TMP0, HI(RA) - | ins_next2 - break; - case BC_KNIL: - | // RA = base*8, RD = end*8 - | addu RA, BASE, RA - | sw TISNIL, HI(RA) - | addiu RA, RA, 8 - | addu RD, BASE, RD - |1: - | sw TISNIL, HI(RA) - | slt AT, RA, RD - | bnez AT, <1 - |. addiu RA, RA, 8 - | ins_next_ - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | // RA = dst*8, RD = uvnum*8 - | lw LFUNC:RB, FRAME_FUNC(BASE) - | srl RD, RD, 1 - | addu RD, RD, LFUNC:RB - | lw UPVAL:RB, LFUNC:RD->uvptr - | ins_next1 - | lw TMP1, UPVAL:RB->v - | ldc1 f0, 0(TMP1) - | addu RA, BASE, RA - | sdc1 f0, 0(RA) - | ins_next2 - break; - case BC_USETV: - | // RA = uvnum*8, RD = src*8 - | lw LFUNC:RB, FRAME_FUNC(BASE) - | srl RA, RA, 1 - | addu RD, BASE, RD - | addu RA, RA, LFUNC:RB - | ldc1 f0, 0(RD) - | lw UPVAL:RB, LFUNC:RA->uvptr - | lbu TMP3, UPVAL:RB->marked - | lw CARG2, UPVAL:RB->v - | andi TMP3, TMP3, LJ_GC_BLACK // isblack(uv) - | lbu TMP0, UPVAL:RB->closed - | lw TMP2, HI(RD) - | sdc1 f0, 0(CARG2) - | li AT, LJ_GC_BLACK|1 - | or TMP3, TMP3, TMP0 - | beq TMP3, AT, >2 // Upvalue is closed and black? - |. addiu TMP2, TMP2, -(LJ_TNUMX+1) - |1: - | ins_next - | - |2: // Check if new value is collectable. - | sltiu AT, TMP2, LJ_TISGCV - (LJ_TNUMX+1) - | beqz AT, <1 // tvisgcv(v) - |. lw TMP1, LO(RD) - | lbu TMP3, GCOBJ:TMP1->gch.marked - | andi TMP3, TMP3, LJ_GC_WHITES // iswhite(v) - | beqz TMP3, <1 - |. load_got lj_gc_barrieruv - | // Crossed a write barrier. Move the barrier forward. - | call_intern lj_gc_barrieruv // (global_State *g, TValue *tv) - |. addiu CARG1, DISPATCH, GG_DISP2G - | b <1 - |. nop - break; - case BC_USETS: - | // RA = uvnum*8, RD = str_const*8 (~) - | lw LFUNC:RB, FRAME_FUNC(BASE) - | srl RA, RA, 1 - | srl TMP1, RD, 1 - | addu RA, RA, LFUNC:RB - | subu TMP1, KBASE, TMP1 - | lw UPVAL:RB, LFUNC:RA->uvptr - | lw STR:TMP1, -4(TMP1) // KBASE-4-str_const*4 - | lbu TMP2, UPVAL:RB->marked - | lw CARG2, UPVAL:RB->v - | lbu TMP3, STR:TMP1->marked - | andi AT, TMP2, LJ_GC_BLACK // isblack(uv) - | lbu TMP2, UPVAL:RB->closed - | li TMP0, LJ_TSTR - | sw STR:TMP1, LO(CARG2) - | bnez AT, >2 - |. sw TMP0, HI(CARG2) - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | beqz TMP2, <1 - |. andi AT, TMP3, LJ_GC_WHITES // iswhite(str) - | beqz AT, <1 - |. load_got lj_gc_barrieruv - | // Crossed a write barrier. Move the barrier forward. - | call_intern lj_gc_barrieruv // (global_State *g, TValue *tv) - |. addiu CARG1, DISPATCH, GG_DISP2G - | b <1 - |. nop - break; - case BC_USETN: - | // RA = uvnum*8, RD = num_const*8 - | lw LFUNC:RB, FRAME_FUNC(BASE) - | srl RA, RA, 1 - | addu RD, KBASE, RD - | addu RA, RA, LFUNC:RB - | ldc1 f0, 0(RD) - | lw UPVAL:RB, LFUNC:RA->uvptr - | ins_next1 - | lw TMP1, UPVAL:RB->v - | sdc1 f0, 0(TMP1) - | ins_next2 - break; - case BC_USETP: - | // RA = uvnum*8, RD = primitive_type*8 (~) - | lw LFUNC:RB, FRAME_FUNC(BASE) - | srl RA, RA, 1 - | srl TMP0, RD, 3 - | addu RA, RA, LFUNC:RB - | not TMP0, TMP0 - | lw UPVAL:RB, LFUNC:RA->uvptr - | ins_next1 - | lw TMP1, UPVAL:RB->v - | sw TMP0, HI(TMP1) - | ins_next2 - break; - - case BC_UCLO: - | // RA = level*8, RD = target - | lw TMP2, L->openupval - | branch_RD // Do this first since RD is not saved. - | load_got lj_func_closeuv - | sw BASE, L->base - | beqz TMP2, >1 - |. move CARG1, L - | call_intern lj_func_closeuv // (lua_State *L, TValue *level) - |. addu CARG2, BASE, RA - | lw BASE, L->base - |1: - | ins_next - break; - - case BC_FNEW: - | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) - | srl TMP1, RD, 1 - | load_got lj_func_newL_gc - | subu TMP1, KBASE, TMP1 - | lw CARG3, FRAME_FUNC(BASE) - | lw CARG2, -4(TMP1) // KBASE-4-tab_const*4 - | sw BASE, L->base - | sw PC, SAVE_PC - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | call_intern lj_func_newL_gc - |. move CARG1, L - | // Returns GCfuncL *. - | lw BASE, L->base - | li TMP0, LJ_TFUNC - | ins_next1 - | addu RA, BASE, RA - | sw TMP0, HI(RA) - | sw LFUNC:CRET1, LO(RA) - | ins_next2 - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - case BC_TDUP: - | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) - | lw TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | lw TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | sw BASE, L->base - | sw PC, SAVE_PC - | sltu AT, TMP0, TMP1 - | beqz AT, >5 - |1: - if (op == BC_TNEW) { - | load_got lj_tab_new - | srl CARG2, RD, 3 - | andi CARG2, CARG2, 0x7ff - | li TMP0, 0x801 - | addiu AT, CARG2, -0x7ff - | srl CARG3, RD, 14 - | movz CARG2, TMP0, AT - | // (lua_State *L, int32_t asize, uint32_t hbits) - | call_intern lj_tab_new - |. move CARG1, L - | // Returns Table *. - } else { - | load_got lj_tab_dup - | srl TMP1, RD, 1 - | subu TMP1, KBASE, TMP1 - | move CARG1, L - | call_intern lj_tab_dup // (lua_State *L, Table *kt) - |. lw CARG2, -4(TMP1) // KBASE-4-str_const*4 - | // Returns Table *. - } - | lw BASE, L->base - | ins_next1 - | addu RA, BASE, RA - | li TMP0, LJ_TTAB - | sw TAB:CRET1, LO(RA) - | sw TMP0, HI(RA) - | ins_next2 - |5: - | load_got lj_gc_step_fixtop - | move MULTRES, RD - | call_intern lj_gc_step_fixtop // (lua_State *L) - |. move CARG1, L - | b <1 - |. move RD, MULTRES - break; - - case BC_GGET: - | // RA = dst*8, RD = str_const*8 (~) - case BC_GSET: - | // RA = src*8, RD = str_const*8 (~) - | lw LFUNC:TMP2, FRAME_FUNC(BASE) - | srl TMP1, RD, 1 - | subu TMP1, KBASE, TMP1 - | lw TAB:RB, LFUNC:TMP2->env - | lw STR:RC, -4(TMP1) // KBASE-4-str_const*4 - if (op == BC_GGET) { - | b ->BC_TGETS_Z - } else { - | b ->BC_TSETS_Z - } - |. addu RA, BASE, RA - break; - - case BC_TGETV: - | // RA = dst*8, RB = table*8, RC = key*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | addu CARG2, BASE, RB - | addu CARG3, BASE, RC - | lw TMP1, HI(CARG2) - | lw TMP2, HI(CARG3) - | lw TAB:RB, LO(CARG2) - | li AT, LJ_TTAB - | ldc1 f0, 0(CARG3) - | bne TMP1, AT, ->vmeta_tgetv - |. addu RA, BASE, RA - | sltiu AT, TMP2, LJ_TISNUM - | beqz AT, >5 - |. li AT, LJ_TSTR - | - | // Convert number key to integer, check for integerness and range. - | cvt.w.d f2, f0 - | lw TMP0, TAB:RB->asize - | mfc1 TMP2, f2 - | cvt.d.w f4, f2 - | lw TMP1, TAB:RB->array - | c.eq.d f0, f4 - | sltu AT, TMP2, TMP0 - | movf AT, r0 - | sll TMP2, TMP2, 3 - | beqz AT, ->vmeta_tgetv // Integer key and in array part? - |. addu TMP2, TMP1, TMP2 - | lw TMP0, HI(TMP2) - | beq TMP0, TISNIL, >2 - |. ldc1 f0, 0(TMP2) - |1: - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - | - |2: // Check for __index if table value is nil. - | lw TAB:TMP2, TAB:RB->metatable - | beqz TAB:TMP2, <1 // No metatable: done. - |. nop - | lbu TMP0, TAB:TMP2->nomm - | andi TMP0, TMP0, 1<vmeta_tgetv - |. nop - | - |5: - | bne TMP2, AT, ->vmeta_tgetv - |. lw STR:RC, LO(CARG3) - | b ->BC_TGETS_Z // String key? - |. nop - break; - case BC_TGETS: - | // RA = dst*8, RB = table*8, RC = str_const*4 (~) - | decode_RB8a RB, INS - | decode_RB8b RB - | addu CARG2, BASE, RB - | decode_RC4a RC, INS - | lw TMP0, HI(CARG2) - | decode_RC4b RC - | li AT, LJ_TTAB - | lw TAB:RB, LO(CARG2) - | subu CARG3, KBASE, RC - | lw STR:RC, -4(CARG3) // KBASE-4-str_const*4 - | bne TMP0, AT, ->vmeta_tgets1 - |. addu RA, BASE, RA - |->BC_TGETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 - | lw TMP0, TAB:RB->hmask - | lw TMP1, STR:RC->hash - | lw NODE:TMP2, TAB:RB->node - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | sll TMP0, TMP1, 5 - | sll TMP1, TMP1, 3 - | subu TMP1, TMP0, TMP1 - | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |1: - | lw CARG1, offsetof(Node, key)+HI(NODE:TMP2) - | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) - | lw NODE:TMP1, NODE:TMP2->next - | lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) - | addiu CARG1, CARG1, -LJ_TSTR - | xor TMP0, TMP0, STR:RC - | or AT, CARG1, TMP0 - | bnez AT, >4 - |. lw TAB:TMP3, TAB:RB->metatable - | beq CARG2, TISNIL, >5 // Key found, but nil value? - |. lw CARG1, offsetof(Node, val)+LO(NODE:TMP2) - |3: - | ins_next1 - | sw CARG2, HI(RA) - | sw CARG1, LO(RA) - | ins_next2 - | - |4: // Follow hash chain. - | bnez NODE:TMP1, <1 - |. move NODE:TMP2, NODE:TMP1 - | // End of hash chain: key not found, nil result. - | - |5: // Check for __index if table value is nil. - | beqz TAB:TMP3, <3 // No metatable: done. - |. li CARG2, LJ_TNIL - | lbu TMP0, TAB:TMP3->nomm - | andi TMP0, TMP0, 1<vmeta_tgets - |. nop - break; - case BC_TGETB: - | // RA = dst*8, RB = table*8, RC = index*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | addu CARG2, BASE, RB - | decode_RDtoRC8 RC, RD - | lw CARG1, HI(CARG2) - | li AT, LJ_TTAB - | lw TAB:RB, LO(CARG2) - | addu RA, BASE, RA - | bne CARG1, AT, ->vmeta_tgetb - |. srl TMP0, RC, 3 - | lw TMP1, TAB:RB->asize - | lw TMP2, TAB:RB->array - | sltu AT, TMP0, TMP1 - | beqz AT, ->vmeta_tgetb - |. addu RC, TMP2, RC - | lw TMP1, HI(RC) - | beq TMP1, TISNIL, >5 - |. ldc1 f0, 0(RC) - |1: - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - | - |5: // Check for __index if table value is nil. - | lw TAB:TMP2, TAB:RB->metatable - | beqz TAB:TMP2, <1 // No metatable: done. - |. nop - | lbu TMP1, TAB:TMP2->nomm - | andi TMP1, TMP1, 1<vmeta_tgetb // Caveat: preserve TMP0! - |. nop - break; - case BC_TGETR: - | // RA = dst*8, RB = table*8, RC = key*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | addu CARG2, BASE, RB - | addu CARG3, BASE, RC - | lw TAB:CARG1, LO(CARG2) - | ldc1 f0, 0(CARG3) - | trunc.w.d f2, f0 - | lw TMP0, TAB:CARG1->asize - | mfc1 CARG2, f2 - | lw TMP1, TAB:CARG1->array - | sltu AT, CARG2, TMP0 - | sll TMP2, CARG2, 3 - | beqz AT, ->vmeta_tgetr // In array part? - |. addu TMP2, TMP1, TMP2 - | ldc1 f0, 0(TMP2) - |->BC_TGETR_Z: - | addu RA, BASE, RA - | ins_next1 - | sdc1 f0, 0(RA) - | ins_next2 - break; - - case BC_TSETV: - | // RA = src*8, RB = table*8, RC = key*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | addu CARG2, BASE, RB - | addu CARG3, BASE, RC - | lw TMP1, HI(CARG2) - | lw TMP2, HI(CARG3) - | lw TAB:RB, LO(CARG2) - | li AT, LJ_TTAB - | ldc1 f0, 0(CARG3) - | bne TMP1, AT, ->vmeta_tsetv - |. addu RA, BASE, RA - | sltiu AT, TMP2, LJ_TISNUM - | beqz AT, >5 - |. li AT, LJ_TSTR - | - | // Convert number key to integer, check for integerness and range. - | cvt.w.d f2, f0 - | lw TMP0, TAB:RB->asize - | mfc1 TMP2, f2 - | cvt.d.w f4, f2 - | lw TMP1, TAB:RB->array - | c.eq.d f0, f4 - | sltu AT, TMP2, TMP0 - | movf AT, r0 - | sll TMP2, TMP2, 3 - | beqz AT, ->vmeta_tsetv // Integer key and in array part? - |. addu TMP1, TMP1, TMP2 - | lbu TMP3, TAB:RB->marked - | lw TMP0, HI(TMP1) - | beq TMP0, TISNIL, >3 - |. ldc1 f0, 0(RA) - |1: - | andi AT, TMP3, LJ_GC_BLACK // isblack(table) - | bnez AT, >7 - |. sdc1 f0, 0(TMP1) - |2: - | ins_next - | - |3: // Check for __newindex if previous value is nil. - | lw TAB:TMP2, TAB:RB->metatable - | beqz TAB:TMP2, <1 // No metatable: done. - |. nop - | lbu TMP2, TAB:TMP2->nomm - | andi TMP2, TMP2, 1<vmeta_tsetv - |. nop - | - |5: - | bne TMP2, AT, ->vmeta_tsetv - |. lw STR:RC, LO(CARG3) - | b ->BC_TSETS_Z // String key? - |. nop - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0, <2 - break; - case BC_TSETS: - | // RA = src*8, RB = table*8, RC = str_const*8 (~) - | decode_RB8a RB, INS - | decode_RB8b RB - | addu CARG2, BASE, RB - | decode_RC4a RC, INS - | lw TMP0, HI(CARG2) - | decode_RC4b RC - | li AT, LJ_TTAB - | subu CARG3, KBASE, RC - | lw TAB:RB, LO(CARG2) - | lw STR:RC, -4(CARG3) // KBASE-4-str_const*4 - | bne TMP0, AT, ->vmeta_tsets1 - |. addu RA, BASE, RA - |->BC_TSETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = BASE+src*8 - | lw TMP0, TAB:RB->hmask - | lw TMP1, STR:RC->hash - | lw NODE:TMP2, TAB:RB->node - | sb r0, TAB:RB->nomm // Clear metamethod cache. - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | sll TMP0, TMP1, 5 - | sll TMP1, TMP1, 3 - | subu TMP1, TMP0, TMP1 - | addu NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - | ldc1 f20, 0(RA) - |1: - | lw CARG1, offsetof(Node, key)+HI(NODE:TMP2) - | lw TMP0, offsetof(Node, key)+LO(NODE:TMP2) - | li AT, LJ_TSTR - | lw NODE:TMP1, NODE:TMP2->next - | bne CARG1, AT, >5 - |. lw CARG2, offsetof(Node, val)+HI(NODE:TMP2) - | bne TMP0, STR:RC, >5 - |. lbu TMP3, TAB:RB->marked - | beq CARG2, TISNIL, >4 // Key found, but nil value? - |. lw TAB:TMP0, TAB:RB->metatable - |2: - | andi AT, TMP3, LJ_GC_BLACK // isblack(table) - | bnez AT, >7 - |. sdc1 f20, NODE:TMP2->val - |3: - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | beqz TAB:TMP0, <2 // No metatable: done. - |. nop - | lbu TMP0, TAB:TMP0->nomm - | andi TMP0, TMP0, 1<vmeta_tsets - |. nop - | - |5: // Follow hash chain. - | bnez NODE:TMP1, <1 - |. move NODE:TMP2, NODE:TMP1 - | // End of hash chain: key not found, add a new one - | - | // But check for __newindex first. - | lw TAB:TMP2, TAB:RB->metatable - | beqz TAB:TMP2, >6 // No metatable: continue. - |. addiu CARG3, DISPATCH, DISPATCH_GL(tmptv) - | lbu TMP0, TAB:TMP2->nomm - | andi TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. - |. li AT, LJ_TSTR - |6: - | load_got lj_tab_newkey - | sw STR:RC, LO(CARG3) - | sw AT, HI(CARG3) - | sw BASE, L->base - | move CARG2, TAB:RB - | sw PC, SAVE_PC - | call_intern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k - |. move CARG1, L - | // Returns TValue *. - | lw BASE, L->base - | b <3 // No 2nd write barrier needed. - |. sdc1 f20, 0(CRET1) - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0, <3 - break; - case BC_TSETB: - | // RA = src*8, RB = table*8, RC = index*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | addu CARG2, BASE, RB - | decode_RDtoRC8 RC, RD - | lw CARG1, HI(CARG2) - | li AT, LJ_TTAB - | lw TAB:RB, LO(CARG2) - | addu RA, BASE, RA - | bne CARG1, AT, ->vmeta_tsetb - |. srl TMP0, RC, 3 - | lw TMP1, TAB:RB->asize - | lw TMP2, TAB:RB->array - | sltu AT, TMP0, TMP1 - | beqz AT, ->vmeta_tsetb - |. addu RC, TMP2, RC - | lw TMP1, HI(RC) - | lbu TMP3, TAB:RB->marked - | beq TMP1, TISNIL, >5 - |. ldc1 f0, 0(RA) - |1: - | andi AT, TMP3, LJ_GC_BLACK // isblack(table) - | bnez AT, >7 - |. sdc1 f0, 0(RC) - |2: - | ins_next - | - |5: // Check for __newindex if previous value is nil. - | lw TAB:TMP2, TAB:RB->metatable - | beqz TAB:TMP2, <1 // No metatable: done. - |. nop - | lbu TMP1, TAB:TMP2->nomm - | andi TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! - |. nop - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0, <2 - break; - case BC_TSETR: - | // RA = dst*8, RB = table*8, RC = key*8 - | decode_RB8a RB, INS - | decode_RB8b RB - | decode_RDtoRC8 RC, RD - | addu CARG1, BASE, RB - | addu CARG3, BASE, RC - | lw TAB:CARG2, LO(CARG1) - | ldc1 f0, 0(CARG3) - | trunc.w.d f2, f0 - | lbu TMP3, TAB:CARG2->marked - | lw TMP0, TAB:CARG2->asize - | mfc1 CARG3, f2 - | lw TMP1, TAB:CARG2->array - | andi AT, TMP3, LJ_GC_BLACK // isblack(table) - | bnez AT, >7 - |. addu RA, BASE, RA - |2: - | sltu AT, CARG3, TMP0 - | sll TMP2, CARG3, 3 - | beqz AT, ->vmeta_tsetr // In array part? - |. ldc1 f20, 0(RA) - | addu CRET1, TMP1, TMP2 - |->BC_TSETR_Z: - | ins_next1 - | sdc1 f20, 0(CRET1) - | ins_next2 - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0, <2 - break; - - - case BC_TSETM: - | // RA = base*8 (table at base-1), RD = num_const*8 (start index) - | addu RA, BASE, RA - |1: - | addu TMP3, KBASE, RD - | lw TAB:CARG2, -8+LO(RA) // Guaranteed to be a table. - | addiu TMP0, MULTRES, -8 - | lw TMP3, LO(TMP3) // Integer constant is in lo-word. - | beqz TMP0, >4 // Nothing to copy? - |. srl CARG3, TMP0, 3 - | addu CARG3, CARG3, TMP3 - | lw TMP2, TAB:CARG2->asize - | sll TMP1, TMP3, 3 - | lbu TMP3, TAB:CARG2->marked - | lw CARG1, TAB:CARG2->array - | sltu AT, TMP2, CARG3 - | bnez AT, >5 - |. addu TMP2, RA, TMP0 - | addu TMP1, TMP1, CARG1 - | andi TMP0, TMP3, LJ_GC_BLACK // isblack(table) - |3: // Copy result slots to table. - | ldc1 f0, 0(RA) - | addiu RA, RA, 8 - | sltu AT, RA, TMP2 - | sdc1 f0, 0(TMP1) - | bnez AT, <3 - |. addiu TMP1, TMP1, 8 - | bnez TMP0, >7 - |. nop - |4: - | ins_next - | - |5: // Need to resize array part. - | load_got lj_tab_reasize - | sw BASE, L->base - | sw PC, SAVE_PC - | move BASE, RD - | call_intern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - |. move CARG1, L - | // Must not reallocate the stack. - | move RD, BASE - | b <1 - |. lw BASE, L->base // Reload BASE for lack of a saved register. - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP3, TMP0, <4 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALLM: - | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 - | decode_RDtoRC8 NARGS8:RC, RD - | b ->BC_CALL_Z - |. addu NARGS8:RC, NARGS8:RC, MULTRES - break; - case BC_CALL: - | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 - | decode_RDtoRC8 NARGS8:RC, RD - |->BC_CALL_Z: - | move TMP2, BASE - | addu BASE, BASE, RA - | li AT, LJ_TFUNC - | lw TMP0, HI(BASE) - | lw LFUNC:RB, LO(BASE) - | addiu BASE, BASE, 8 - | bne TMP0, AT, ->vmeta_call - |. addiu NARGS8:RC, NARGS8:RC, -8 - | ins_call - break; - - case BC_CALLMT: - | // RA = base*8, (RB = 0,) RC = extra_nargs*8 - | addu NARGS8:RD, NARGS8:RD, MULTRES // BC_CALLT gets RC from RD. - | // Fall through. Assumes BC_CALLT follows. - break; - case BC_CALLT: - | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 - | addu RA, BASE, RA - | li AT, LJ_TFUNC - | lw TMP0, HI(RA) - | lw LFUNC:RB, LO(RA) - | move NARGS8:RC, RD - | lw TMP1, FRAME_PC(BASE) - | addiu RA, RA, 8 - | bne TMP0, AT, ->vmeta_callt - |. addiu NARGS8:RC, NARGS8:RC, -8 - |->BC_CALLT_Z: - | andi TMP0, TMP1, FRAME_TYPE // Caveat: preserve TMP0 until the 'or'. - | lbu TMP3, LFUNC:RB->ffid - | bnez TMP0, >7 - |. xori TMP2, TMP1, FRAME_VARG - |1: - | sw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. - | sltiu AT, TMP3, 2 // (> FF_C) Calling a fast function? - | move TMP2, BASE - | beqz NARGS8:RC, >3 - |. move TMP3, NARGS8:RC - |2: - | ldc1 f0, 0(RA) - | addiu RA, RA, 8 - | addiu TMP3, TMP3, -8 - | sdc1 f0, 0(TMP2) - | bnez TMP3, <2 - |. addiu TMP2, TMP2, 8 - |3: - | or TMP0, TMP0, AT - | beqz TMP0, >5 - |. nop - |4: - | ins_callt - | - |5: // Tailcall to a fast function with a Lua frame below. - | lw INS, -4(TMP1) - | decode_RA8a RA, INS - | decode_RA8b RA - | subu TMP1, BASE, RA - | lw LFUNC:TMP1, -8+FRAME_FUNC(TMP1) - | lw TMP1, LFUNC:TMP1->pc - | b <4 - |. lw KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. - | - |7: // Tailcall from a vararg function. - | andi AT, TMP2, FRAME_TYPEP - | bnez AT, <1 // Vararg frame below? - |. subu TMP2, BASE, TMP2 // Relocate BASE down. - | move BASE, TMP2 - | lw TMP1, FRAME_PC(TMP2) - | b <1 - |. andi TMP0, TMP1, FRAME_TYPE - break; - - case BC_ITERC: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) - | move TMP2, BASE - | addu BASE, BASE, RA - | li AT, LJ_TFUNC - | lw TMP1, -24+HI(BASE) - | lw LFUNC:RB, -24+LO(BASE) - | ldc1 f2, -8(BASE) - | ldc1 f0, -16(BASE) - | sw TMP1, HI(BASE) // Copy callable. - | sw LFUNC:RB, LO(BASE) - | sdc1 f2, 16(BASE) // Copy control var. - | sdc1 f0, 8(BASE) // Copy state. - | addiu BASE, BASE, 8 - | bne TMP1, AT, ->vmeta_call - |. li NARGS8:RC, 16 // Iterators get 2 arguments. - | ins_call - break; - - case BC_ITERN: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | addu RA, BASE, RA - | lw TAB:RB, -16+LO(RA) - | lw RC, -8+LO(RA) // Get index from control var. - | lw TMP0, TAB:RB->asize - | lw TMP1, TAB:RB->array - | addiu PC, PC, 4 - |1: // Traverse array part. - | sltu AT, RC, TMP0 - | beqz AT, >5 // Index points after array part? - |. sll TMP3, RC, 3 - | addu TMP3, TMP1, TMP3 - | lw TMP2, HI(TMP3) - | ldc1 f0, 0(TMP3) - | mtc1 RC, f2 - | lhu RD, -4+OFS_RD(PC) - | beq TMP2, TISNIL, <1 // Skip holes in array part. - |. addiu RC, RC, 1 - | cvt.d.w f2, f2 - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | sdc1 f0, 8(RA) - | decode_RD4b RD - | addu RD, RD, TMP3 - | sw RC, -8+LO(RA) // Update control var. - | addu PC, PC, RD - | sdc1 f2, 0(RA) - |3: - | ins_next - | - |5: // Traverse hash part. - | lw TMP1, TAB:RB->hmask - | subu RC, RC, TMP0 - | lw TMP2, TAB:RB->node - |6: - | sltu AT, TMP1, RC // End of iteration? Branch to ITERL+1. - | bnez AT, <3 - |. sll TMP3, RC, 5 - | sll RB, RC, 3 - | subu TMP3, TMP3, RB - | addu NODE:TMP3, TMP3, TMP2 - | lw RB, HI(NODE:TMP3) - | ldc1 f0, 0(NODE:TMP3) - | lhu RD, -4+OFS_RD(PC) - | beq RB, TISNIL, <6 // Skip holes in hash part. - |. addiu RC, RC, 1 - | ldc1 f2, NODE:TMP3->key - | lui TMP3, (-(BCBIAS_J*4 >> 16) & 65535) - | sdc1 f0, 8(RA) - | addu RC, RC, TMP0 - | decode_RD4b RD - | addu RD, RD, TMP3 - | sdc1 f2, 0(RA) - | addu PC, PC, RD - | b <3 - |. sw RC, -8+LO(RA) // Update control var. - break; - - case BC_ISNEXT: - | // RA = base*8, RD = target (points to ITERN) - | addu RA, BASE, RA - | lw TMP0, -24+HI(RA) - | lw CFUNC:TMP1, -24+LO(RA) - | lw TMP2, -16+HI(RA) - | lw TMP3, -8+HI(RA) - | li AT, LJ_TFUNC - | bne TMP0, AT, >5 - |. addiu TMP2, TMP2, -LJ_TTAB - | lbu TMP1, CFUNC:TMP1->ffid - | addiu TMP3, TMP3, -LJ_TNIL - | srl TMP0, RD, 1 - | or TMP2, TMP2, TMP3 - | addiu TMP1, TMP1, -FF_next_N - | addu TMP0, PC, TMP0 - | or TMP1, TMP1, TMP2 - | bnez TMP1, >5 - |. lui TMP2, (-(BCBIAS_J*4 >> 16) & 65535) - | addu PC, TMP0, TMP2 - | lui TMP1, 0xfffe - | ori TMP1, TMP1, 0x7fff - | sw r0, -8+LO(RA) // Initialize control var. - | sw TMP1, -8+HI(RA) - |1: - | ins_next - |5: // Despecialize bytecode if any of the checks fail. - | li TMP3, BC_JMP - | li TMP1, BC_ITERC - | sb TMP3, -4+OFS_OP(PC) - | addu PC, TMP0, TMP2 - | b <1 - |. sb TMP1, OFS_OP(PC) - break; - - case BC_VARG: - | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 - | lw TMP0, FRAME_PC(BASE) - | decode_RDtoRC8 RC, RD - | decode_RB8a RB, INS - | addu RC, BASE, RC - | decode_RB8b RB - | addu RA, BASE, RA - | addiu RC, RC, FRAME_VARG - | addu TMP2, RA, RB - | addiu TMP3, BASE, -8 // TMP3 = vtop - | subu RC, RC, TMP0 // RC = vbase - | // Note: RC may now be even _above_ BASE if nargs was < numparams. - | beqz RB, >5 // Copy all varargs? - |. subu TMP1, TMP3, RC - | addiu TMP2, TMP2, -16 - |1: // Copy vararg slots to destination slots. - | lw CARG1, HI(RC) - | sltu AT, RC, TMP3 - | lw CARG2, LO(RC) - | addiu RC, RC, 8 - | movz CARG1, TISNIL, AT - | sw CARG1, HI(RA) - | sw CARG2, LO(RA) - | sltu AT, RA, TMP2 - | bnez AT, <1 - |. addiu RA, RA, 8 - |3: - | ins_next - | - |5: // Copy all varargs. - | lw TMP0, L->maxstack - | blez TMP1, <3 // No vararg slots? - |. li MULTRES, 8 // MULTRES = (0+1)*8 - | addu TMP2, RA, TMP1 - | sltu AT, TMP0, TMP2 - | bnez AT, >7 - |. addiu MULTRES, TMP1, 8 - |6: - | ldc1 f0, 0(RC) - | addiu RC, RC, 8 - | sdc1 f0, 0(RA) - | sltu AT, RC, TMP3 - | bnez AT, <6 // More vararg slots? - |. addiu RA, RA, 8 - | b <3 - |. nop - | - |7: // Grow stack for varargs. - | load_got lj_state_growstack - | sw RA, L->top - | subu RA, RA, BASE - | sw BASE, L->base - | subu BASE, RC, BASE // Need delta, because BASE may change. - | sw PC, SAVE_PC - | srl CARG2, TMP1, 3 - | call_intern lj_state_growstack // (lua_State *L, int n) - |. move CARG1, L - | move RC, BASE - | lw BASE, L->base - | addu RA, BASE, RA - | addu RC, BASE, RC - | b <6 - |. addiu TMP3, BASE, -8 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | // RA = results*8, RD = extra_nresults*8 - | addu RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. - | // Fall through. Assumes BC_RET follows. - break; - - case BC_RET: - | // RA = results*8, RD = (nresults+1)*8 - | lw PC, FRAME_PC(BASE) - | addu RA, BASE, RA - | move MULTRES, RD - |1: - | andi TMP0, PC, FRAME_TYPE - | bnez TMP0, ->BC_RETV_Z - |. xori TMP1, PC, FRAME_VARG - | - |->BC_RET_Z: - | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return - | lw INS, -4(PC) - | addiu TMP2, BASE, -8 - | addiu RC, RD, -8 - | decode_RA8a TMP0, INS - | decode_RB8a RB, INS - | decode_RA8b TMP0 - | decode_RB8b RB - | addu TMP3, TMP2, RB - | beqz RC, >3 - |. subu BASE, TMP2, TMP0 - |2: - | ldc1 f0, 0(RA) - | addiu RA, RA, 8 - | addiu RC, RC, -8 - | sdc1 f0, 0(TMP2) - | bnez RC, <2 - |. addiu TMP2, TMP2, 8 - |3: - | addiu TMP3, TMP3, -8 - |5: - | sltu AT, TMP2, TMP3 - | bnez AT, >6 - |. lw LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lw TMP1, LFUNC:TMP1->pc - | lw KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | sw TISNIL, HI(TMP2) - | b <5 - |. addiu TMP2, TMP2, 8 - | - |->BC_RETV_Z: // Non-standard return case. - | andi TMP2, TMP1, FRAME_TYPEP - | bnez TMP2, ->vm_return - |. nop - | // Return from vararg function: relocate BASE down. - | subu BASE, BASE, TMP1 - | b <1 - |. lw PC, FRAME_PC(BASE) - break; - - case BC_RET0: case BC_RET1: - | // RA = results*8, RD = (nresults+1)*8 - | lw PC, FRAME_PC(BASE) - | addu RA, BASE, RA - | move MULTRES, RD - | andi TMP0, PC, FRAME_TYPE - | bnez TMP0, ->BC_RETV_Z - |. xori TMP1, PC, FRAME_VARG - | - | lw INS, -4(PC) - | addiu TMP2, BASE, -8 - if (op == BC_RET1) { - | ldc1 f0, 0(RA) - } - | decode_RB8a RB, INS - | decode_RA8a RA, INS - | decode_RB8b RB - | decode_RA8b RA - if (op == BC_RET1) { - | sdc1 f0, 0(TMP2) - } - | subu BASE, TMP2, RA - |5: - | sltu AT, RD, RB - | bnez AT, >6 - |. lw LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lw TMP1, LFUNC:TMP1->pc - | lw KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | addiu TMP2, TMP2, 8 - | addiu RD, RD, 8 - | b <5 - if (op == BC_RET1) { - |. sw TISNIL, HI(TMP2) - } else { - |. sw TISNIL, -8+HI(TMP2) - } - break; - - /* -- Loops and branches ------------------------------------------------ */ - - case BC_FORL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IFORL follows. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - | // RA = base*8, RD = target (after end of loop or start of loop) - vk = (op == BC_IFORL || op == BC_JFORL); - | addu RA, BASE, RA - if (vk) { - | ldc1 f0, FORL_IDX*8(RA) - | ldc1 f4, FORL_STEP*8(RA) - | ldc1 f2, FORL_STOP*8(RA) - | lw TMP3, FORL_STEP*8+HI(RA) - | add.d f0, f0, f4 - | sdc1 f0, FORL_IDX*8(RA) - } else { - | lw TMP1, FORL_IDX*8+HI(RA) - | lw TMP3, FORL_STEP*8+HI(RA) - | lw TMP2, FORL_STOP*8+HI(RA) - | sltiu TMP1, TMP1, LJ_TISNUM - | sltiu TMP0, TMP3, LJ_TISNUM - | sltiu TMP2, TMP2, LJ_TISNUM - | and TMP1, TMP1, TMP0 - | and TMP1, TMP1, TMP2 - | ldc1 f0, FORL_IDX*8(RA) - | beqz TMP1, ->vmeta_for - |. ldc1 f2, FORL_STOP*8(RA) - } - if (op != BC_JFORL) { - | srl RD, RD, 1 - | lui TMP0, (-(BCBIAS_J*4 >> 16) & 65535) - } - | c.le.d 0, f0, f2 - | c.le.d 1, f2, f0 - | sdc1 f0, FORL_EXT*8(RA) - if (op == BC_JFORI) { - | li TMP1, 1 - | li TMP2, 1 - | addu TMP0, RD, TMP0 - | slt TMP3, TMP3, r0 - | movf TMP1, r0, 0 - | addu PC, PC, TMP0 - | movf TMP2, r0, 1 - | lhu RD, -4+OFS_RD(PC) - | movn TMP1, TMP2, TMP3 - | bnez TMP1, =>BC_JLOOP - |. decode_RD8b RD - } else if (op == BC_JFORL) { - | li TMP1, 1 - | li TMP2, 1 - | slt TMP3, TMP3, r0 - | movf TMP1, r0, 0 - | movf TMP2, r0, 1 - | movn TMP1, TMP2, TMP3 - | bnez TMP1, =>BC_JLOOP - |. nop - } else { - | addu TMP1, RD, TMP0 - | slt TMP3, TMP3, r0 - | move TMP2, TMP1 - if (op == BC_FORI) { - | movt TMP1, r0, 0 - | movt TMP2, r0, 1 - } else { - | movf TMP1, r0, 0 - | movf TMP2, r0, 1 - } - | movn TMP1, TMP2, TMP3 - | addu PC, PC, TMP1 - } - | ins_next - break; - - case BC_ITERL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IITERL follows. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | // RA = base*8, RD = target - | addu RA, BASE, RA - | lw TMP1, HI(RA) - | beq TMP1, TISNIL, >1 // Stop if iterator returned nil. - |. lw TMP2, LO(RA) - if (op == BC_JITERL) { - | sw TMP1, -8+HI(RA) - | b =>BC_JLOOP - |. sw TMP2, -8+LO(RA) - } else { - | branch_RD // Otherwise save control var + branch. - | sw TMP1, -8+HI(RA) - | sw TMP2, -8+LO(RA) - } - |1: - | ins_next - break; - - case BC_LOOP: - | // RA = base*8, RD = target (loop extent) - | // Note: RA/RD is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_ILOOP follows. - break; - - case BC_ILOOP: - | // RA = base*8, RD = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | // RA = base*8 (ignored), RD = traceno*8 - | lw TMP1, DISPATCH_J(trace)(DISPATCH) - | srl RD, RD, 1 - | li AT, 0 - | addu TMP1, TMP1, RD - | // Traces on MIPS don't store the trace number, so use 0. - | sw AT, DISPATCH_GL(vmstate)(DISPATCH) - | lw TRACE:TMP2, 0(TMP1) - | sw BASE, DISPATCH_GL(jit_base)(DISPATCH) - | lw TMP2, TRACE:TMP2->mcode - | sw L, DISPATCH_GL(tmpbuf.L)(DISPATCH) - | jr TMP2 - |. addiu JGL, DISPATCH, GG_DISP2G+32768 - |.endif - break; - - case BC_JMP: - | // RA = base*8 (only used by trace recorder), RD = target - | branch_RD - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - |.if JIT - | hotcall - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | lw TMP2, L->maxstack - | lbu TMP1, -4+PC2PROTO(numparams)(PC) - | lw KBASE, -4+PC2PROTO(k)(PC) - | sltu AT, TMP2, RA - | bnez AT, ->vm_growstack_l - |. sll TMP1, TMP1, 3 - if (op != BC_JFUNCF) { - | ins_next1 - } - |2: - | sltu AT, NARGS8:RC, TMP1 // Check for missing parameters. - | bnez AT, >3 - |. addu AT, BASE, NARGS8:RC - if (op == BC_JFUNCF) { - | decode_RD8a RD, INS - | b =>BC_JLOOP - |. decode_RD8b RD - } else { - | ins_next2 - } - | - |3: // Clear missing parameters. - | sw TISNIL, HI(AT) - | b <2 - |. addiu NARGS8:RC, NARGS8:RC, 8 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | NYI // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | addu TMP1, BASE, RC - | lw TMP2, L->maxstack - | addu TMP0, RA, RC - | sw LFUNC:RB, LO(TMP1) // Store copy of LFUNC. - | addiu TMP3, RC, 8+FRAME_VARG - | sltu AT, TMP0, TMP2 - | lw KBASE, -4+PC2PROTO(k)(PC) - | beqz AT, ->vm_growstack_l - |. sw TMP3, HI(TMP1) // Store delta + FRAME_VARG. - | lbu TMP2, -4+PC2PROTO(numparams)(PC) - | move RA, BASE - | move RC, TMP1 - | ins_next1 - | beqz TMP2, >3 - |. addiu BASE, TMP1, 8 - |1: - | lw TMP0, HI(RA) - | lw TMP3, LO(RA) - | sltu AT, RA, RC // Less args than parameters? - | move CARG1, TMP0 - | movz TMP0, TISNIL, AT // Clear missing parameters. - | movn CARG1, TISNIL, AT // Clear old fixarg slot (help the GC). - | sw TMP3, 8+LO(TMP1) - | addiu TMP2, TMP2, -1 - | sw TMP0, 8+HI(TMP1) - | addiu TMP1, TMP1, 8 - | sw CARG1, HI(RA) - | bnez TMP2, <1 - |. addiu RA, RA, 8 - |3: - | ins_next2 - break; - - case BC_FUNCC: - case BC_FUNCCW: - | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 - if (op == BC_FUNCC) { - | lw CFUNCADDR, CFUNC:RB->f - } else { - | lw CFUNCADDR, DISPATCH_GL(wrapf)(DISPATCH) - } - | addu TMP1, RA, NARGS8:RC - | lw TMP2, L->maxstack - | addu RC, BASE, NARGS8:RC - | sw BASE, L->base - | sltu AT, TMP2, TMP1 - | sw RC, L->top - | li_vmstate C - if (op == BC_FUNCCW) { - | lw CARG2, CFUNC:RB->f - } - | bnez AT, ->vm_growstack_c // Need to grow stack. - |. move CARG1, L - | jalr CFUNCADDR // (lua_State *L [, lua_CFunction f]) - |. st_vmstate - | // Returns nresults. - | lw BASE, L->base - | sll RD, CRET1, 3 - | lw TMP1, L->top - | li_vmstate INTERP - | lw PC, FRAME_PC(BASE) // Fetch PC of caller. - | subu RA, TMP1, RD // RA = L->top - nresults*8 - | sw L, DISPATCH_GL(cur_L)(DISPATCH) - | b ->vm_returnc - |. st_vmstate - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - - dasm_growpc(Dst, BC__MAX); - - build_subroutines(ctx); - - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); - int i; - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.4byte .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.4byte 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 31\n" - "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.4byte .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.4byte .Lframe0\n" - "\t.4byte .Lbegin\n" - "\t.4byte %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x9f\n\t.sleb128 1\n" - "\t.byte 0x9e\n\t.sleb128 2\n", - fcofs, CFRAME_SIZE); - for (i = 23; i >= 16; i--) - fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 26-i); - for (i = 30; i >= 20; i -= 2) - fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+32+i, 42-i); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE0:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.4byte .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.4byte .Lframe0\n" - "\t.4byte lj_vm_ffi_call\n" - "\t.4byte %d\n" - "\t.byte 0x9f\n\t.uleb128 1\n" - "\t.byte 0x90\n\t.uleb128 2\n" - "\t.byte 0xd\n\t.uleb128 0x10\n" - "\t.align 2\n" - ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); -#endif - fprintf(ctx->fp, "\t.section .eh_frame,\"aw\",@progbits\n"); - fprintf(ctx->fp, - "\t.globl lj_err_unwind_dwarf\n" - ".Lframe1:\n" - "\t.4byte .LECIE1-.LSCIE1\n" - ".LSCIE1:\n" - "\t.4byte 0\n" - "\t.byte 0x1\n" - "\t.string \"zPR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 31\n" - "\t.uleb128 6\n" /* augmentation length */ - "\t.byte 0\n" - "\t.4byte lj_err_unwind_dwarf\n" - "\t.byte 0\n" - "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE1:\n\n"); - fprintf(ctx->fp, - ".LSFDE2:\n" - "\t.4byte .LEFDE2-.LASFDE2\n" - ".LASFDE2:\n" - "\t.4byte .LASFDE2-.Lframe1\n" - "\t.4byte .Lbegin\n" - "\t.4byte %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x9f\n\t.sleb128 1\n" - "\t.byte 0x9e\n\t.sleb128 2\n", - fcofs, CFRAME_SIZE); - for (i = 23; i >= 16; i--) - fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+i, 26-i); - for (i = 30; i >= 20; i -= 2) - fprintf(ctx->fp, "\t.byte %d\n\t.uleb128 %d\n", 0x80+32+i, 42-i); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE2:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".Lframe2:\n" - "\t.4byte .LECIE2-.LSCIE2\n" - ".LSCIE2:\n" - "\t.4byte 0\n" - "\t.byte 0x1\n" - "\t.string \"zR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 31\n" - "\t.uleb128 1\n" /* augmentation length */ - "\t.byte 0\n" - "\t.byte 0xc\n\t.uleb128 29\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE2:\n\n"); - fprintf(ctx->fp, - ".LSFDE3:\n" - "\t.4byte .LEFDE3-.LASFDE3\n" - ".LASFDE3:\n" - "\t.4byte .LASFDE3-.Lframe2\n" - "\t.4byte lj_vm_ffi_call\n" - "\t.4byte %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0x9f\n\t.uleb128 1\n" - "\t.byte 0x90\n\t.uleb128 2\n" - "\t.byte 0xd\n\t.uleb128 0x10\n" - "\t.align 2\n" - ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); -#endif - break; - default: - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc deleted file mode 100644 index df60a3be9cc..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/vm_ppc.dasc +++ /dev/null @@ -1,5259 +0,0 @@ -|// Low-level VM code for PowerPC CPUs. -|// Bytecode interpreter, fast functions and helper functions. -|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -| -|.arch ppc -|.section code_op, code_sub -| -|.actionlist build_actionlist -|.globals GLOB_ -|.globalnames globnames -|.externnames extnames -| -|// Note: The ragged indentation of the instructions is intentional. -|// The starting columns indicate data dependencies. -| -|//----------------------------------------------------------------------- -| -|// DynASM defines used by the PPC port: -|// -|// P64 64 bit pointers (only for GPR64 testing). -|// Note: a full PPC64 _LP64 port is not planned. -|// GPR64 64 bit registers (but possibly 32 bit pointers, e.g. PS3). -|// Affects reg saves, stack layout, carry/overflow/dot flags etc. -|// FRAME32 Use 32 bit frame layout, even with GPR64 (Xbox 360). -|// TOC Need table of contents (64 bit or 32 bit variant, e.g. PS3). -|// Function pointers are really a struct: code, TOC, env (optional). -|// TOCENV Function pointers have an environment pointer, too (not on PS3). -|// PPE Power Processor Element of Cell (PS3) or Xenon (Xbox 360). -|// Must avoid (slow) micro-coded instructions. -| -|.if P64 -|.define TOC, 1 -|.define TOCENV, 1 -|.macro lpx, a, b, c; ldx a, b, c; .endmacro -|.macro lp, a, b; ld a, b; .endmacro -|.macro stp, a, b; std a, b; .endmacro -|.define decode_OPP, decode_OP8 -|.if FFI -|// Missing: Calling conventions, 64 bit regs, TOC. -|.error lib_ffi not yet implemented for PPC64 -|.endif -|.else -|.macro lpx, a, b, c; lwzx a, b, c; .endmacro -|.macro lp, a, b; lwz a, b; .endmacro -|.macro stp, a, b; stw a, b; .endmacro -|.define decode_OPP, decode_OP4 -|.endif -| -|// Convenience macros for TOC handling. -|.if TOC -|// Linker needs a TOC patch area for every external call relocation. -|.macro blex, target; bl extern target@plt; nop; .endmacro -|.macro .toc, a, b; a, b; .endmacro -|.if P64 -|.define TOC_OFS, 8 -|.define ENV_OFS, 16 -|.else -|.define TOC_OFS, 4 -|.define ENV_OFS, 8 -|.endif -|.else // No TOC. -|.macro blex, target; bl extern target@plt; .endmacro -|.macro .toc, a, b; .endmacro -|.endif -|.macro .tocenv, a, b; .if TOCENV; a, b; .endif; .endmacro -| -|.macro .gpr64, a, b; .if GPR64; a, b; .endif; .endmacro -| -|.macro andix., y, a, i -|.if PPE -| rlwinm y, a, 0, 31-lj_fls(i), 31-lj_ffs(i) -| cmpwi y, 0 -|.else -| andi. y, a, i -|.endif -|.endmacro -| -|.macro clrso, reg -|.if PPE -| li reg, 0 -| mtxer reg -|.else -| mcrxr cr0 -|.endif -|.endmacro -| -|.macro checkov, reg, noov -|.if PPE -| mfxer reg -| add reg, reg, reg -| cmpwi reg, 0 -| li reg, 0 -| mtxer reg -| bgey noov -|.else -| mcrxr cr0 -| bley noov -|.endif -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Fixed register assignments for the interpreter. -|// Don't use: r1 = sp, r2 and r13 = reserved (TOC, TLS or SDATA) -| -|// The following must be C callee-save (but BASE is often refetched). -|.define BASE, r14 // Base of current Lua stack frame. -|.define KBASE, r15 // Constants of current Lua function. -|.define PC, r16 // Next PC. -|.define DISPATCH, r17 // Opcode dispatch table. -|.define LREG, r18 // Register holding lua_State (also in SAVE_L). -|.define MULTRES, r19 // Size of multi-result: (nresults+1)*8. -|.define JGL, r31 // On-trace: global_State + 32768. -| -|// Constants for type-comparisons, stores and conversions. C callee-save. -|.define TISNUM, r22 -|.define TISNIL, r23 -|.define ZERO, r24 -|.define TOBIT, f30 // 2^52 + 2^51. -|.define TONUM, f31 // 2^52 + 2^51 + 2^31. -| -|// The following temporaries are not saved across C calls, except for RA. -|.define RA, r20 // Callee-save. -|.define RB, r10 -|.define RC, r11 -|.define RD, r12 -|.define INS, r7 // Overlaps CARG5. -| -|.define TMP0, r0 -|.define TMP1, r8 -|.define TMP2, r9 -|.define TMP3, r6 // Overlaps CARG4. -| -|// Saved temporaries. -|.define SAVE0, r21 -| -|// Calling conventions. -|.define CARG1, r3 -|.define CARG2, r4 -|.define CARG3, r5 -|.define CARG4, r6 // Overlaps TMP3. -|.define CARG5, r7 // Overlaps INS. -| -|.define FARG1, f1 -|.define FARG2, f2 -| -|.define CRET1, r3 -|.define CRET2, r4 -| -|.define TOCREG, r2 // TOC register (only used by C code). -|.define ENVREG, r11 // Environment pointer (nested C functions). -| -|// Stack layout while in interpreter. Must match with lj_frame.h. -|.if GPR64 -|.if FRAME32 -| -|// 456(sp) // \ 32/64 bit C frame info -|.define TONUM_LO, 452(sp) // | -|.define TONUM_HI, 448(sp) // | -|.define TMPD_LO, 444(sp) // | -|.define TMPD_HI, 440(sp) // | -|.define SAVE_CR, 432(sp) // | 64 bit CR save. -|.define SAVE_ERRF, 424(sp) // > Parameter save area. -|.define SAVE_NRES, 420(sp) // | -|.define SAVE_L, 416(sp) // | -|.define SAVE_PC, 412(sp) // | -|.define SAVE_MULTRES, 408(sp) // | -|.define SAVE_CFRAME, 400(sp) // / 64 bit C frame chain. -|// 392(sp) // Reserved. -|.define CFRAME_SPACE, 384 // Delta for sp. -|// Back chain for sp: 384(sp) <-- sp entering interpreter -|.define SAVE_LR, 376(sp) // 32 bit LR stored in hi-part. -|.define SAVE_GPR_, 232 // .. 232+18*8: 64 bit GPR saves. -|.define SAVE_FPR_, 88 // .. 88+18*8: 64 bit FPR saves. -|// 80(sp) // Needed for 16 byte stack frame alignment. -|// 16(sp) // Callee parameter save area (ABI mandated). -|// 8(sp) // Reserved -|// Back chain for sp: 0(sp) <-- sp while in interpreter -|// 32 bit sp stored in hi-part of 0(sp). -| -|.define TMPD_BLO, 447(sp) -|.define TMPD, TMPD_HI -|.define TONUM_D, TONUM_HI -| -|.else -| -|// 508(sp) // \ 32 bit C frame info. -|.define SAVE_ERRF, 472(sp) // | -|.define SAVE_NRES, 468(sp) // | -|.define SAVE_L, 464(sp) // > Parameter save area. -|.define SAVE_PC, 460(sp) // | -|.define SAVE_MULTRES, 456(sp) // | -|.define SAVE_CFRAME, 448(sp) // / 64 bit C frame chain. -|.define SAVE_LR, 416(sp) -|.define CFRAME_SPACE, 400 // Delta for sp. -|// Back chain for sp: 400(sp) <-- sp entering interpreter -|.define SAVE_FPR_, 256 // .. 256+18*8: 64 bit FPR saves. -|.define SAVE_GPR_, 112 // .. 112+18*8: 64 bit GPR saves. -|// 48(sp) // Callee parameter save area (ABI mandated). -|.define SAVE_TOC, 40(sp) // TOC save area. -|.define TMPD_LO, 36(sp) // \ Link editor temp (ABI mandated). -|.define TMPD_HI, 32(sp) // / -|.define TONUM_LO, 28(sp) // \ Compiler temp (ABI mandated). -|.define TONUM_HI, 24(sp) // / -|// Next frame lr: 16(sp) -|.define SAVE_CR, 8(sp) // 64 bit CR save. -|// Back chain for sp: 0(sp) <-- sp while in interpreter -| -|.define TMPD_BLO, 39(sp) -|.define TMPD, TMPD_HI -|.define TONUM_D, TONUM_HI -| -|.endif -|.else -| -|.define SAVE_LR, 276(sp) -|.define CFRAME_SPACE, 272 // Delta for sp. -|// Back chain for sp: 272(sp) <-- sp entering interpreter -|.define SAVE_FPR_, 128 // .. 128+18*8: 64 bit FPR saves. -|.define SAVE_GPR_, 56 // .. 56+18*4: 32 bit GPR saves. -|.define SAVE_CR, 52(sp) // 32 bit CR save. -|.define SAVE_ERRF, 48(sp) // 32 bit C frame info. -|.define SAVE_NRES, 44(sp) -|.define SAVE_CFRAME, 40(sp) -|.define SAVE_L, 36(sp) -|.define SAVE_PC, 32(sp) -|.define SAVE_MULTRES, 28(sp) -|.define UNUSED1, 24(sp) -|.define TMPD_LO, 20(sp) -|.define TMPD_HI, 16(sp) -|.define TONUM_LO, 12(sp) -|.define TONUM_HI, 8(sp) -|// Next frame lr: 4(sp) -|// Back chain for sp: 0(sp) <-- sp while in interpreter -| -|.define TMPD_BLO, 23(sp) -|.define TMPD, TMPD_HI -|.define TONUM_D, TONUM_HI -| -|.endif -| -|.macro save_, reg -|.if GPR64 -| std r..reg, SAVE_GPR_+(reg-14)*8(sp) -|.else -| stw r..reg, SAVE_GPR_+(reg-14)*4(sp) -|.endif -| stfd f..reg, SAVE_FPR_+(reg-14)*8(sp) -|.endmacro -|.macro rest_, reg -|.if GPR64 -| ld r..reg, SAVE_GPR_+(reg-14)*8(sp) -|.else -| lwz r..reg, SAVE_GPR_+(reg-14)*4(sp) -|.endif -| lfd f..reg, SAVE_FPR_+(reg-14)*8(sp) -|.endmacro -| -|.macro saveregs -|.if GPR64 and not FRAME32 -| stdu sp, -CFRAME_SPACE(sp) -|.else -| stwu sp, -CFRAME_SPACE(sp) -|.endif -| save_ 14; save_ 15; save_ 16 -| mflr r0 -| save_ 17; save_ 18; save_ 19; save_ 20; save_ 21; save_ 22 -|.if GPR64 and not FRAME32 -| std r0, SAVE_LR -|.else -| stw r0, SAVE_LR -|.endif -| save_ 23; save_ 24; save_ 25 -| mfcr r0 -| save_ 26; save_ 27; save_ 28; save_ 29; save_ 30; save_ 31 -|.if GPR64 -| std r0, SAVE_CR -|.else -| stw r0, SAVE_CR -|.endif -| .toc std TOCREG, SAVE_TOC -|.endmacro -| -|.macro restoreregs -|.if GPR64 and not FRAME32 -| ld r0, SAVE_LR -|.else -| lwz r0, SAVE_LR -|.endif -|.if GPR64 -| ld r12, SAVE_CR -|.else -| lwz r12, SAVE_CR -|.endif -| rest_ 14; rest_ 15; rest_ 16; rest_ 17; rest_ 18; rest_ 19 -| mtlr r0; -|.if PPE; mtocrf 0x20, r12; .else; mtcrf 0x38, r12; .endif -| rest_ 20; rest_ 21; rest_ 22; rest_ 23; rest_ 24; rest_ 25 -|.if PPE; mtocrf 0x10, r12; .endif -| rest_ 26; rest_ 27; rest_ 28; rest_ 29; rest_ 30; rest_ 31 -|.if PPE; mtocrf 0x08, r12; .endif -| addi sp, sp, CFRAME_SPACE -|.endmacro -| -|// Type definitions. Some of these are only used for documentation. -|.type L, lua_State, LREG -|.type GL, global_State -|.type TVALUE, TValue -|.type GCOBJ, GCobj -|.type STR, GCstr -|.type TAB, GCtab -|.type LFUNC, GCfuncL -|.type CFUNC, GCfuncC -|.type PROTO, GCproto -|.type UPVAL, GCupval -|.type NODE, Node -|.type NARGS8, int -|.type TRACE, GCtrace -|.type SBUF, SBuf -| -|//----------------------------------------------------------------------- -| -|// These basic macros should really be part of DynASM. -|.macro srwi, rx, ry, n; rlwinm rx, ry, 32-n, n, 31; .endmacro -|.macro slwi, rx, ry, n; rlwinm rx, ry, n, 0, 31-n; .endmacro -|.macro rotlwi, rx, ry, n; rlwinm rx, ry, n, 0, 31; .endmacro -|.macro rotlw, rx, ry, rn; rlwnm rx, ry, rn, 0, 31; .endmacro -|.macro subi, rx, ry, i; addi rx, ry, -i; .endmacro -| -|// Trap for not-yet-implemented parts. -|.macro NYI; tw 4, sp, sp; .endmacro -| -|// int/FP conversions. -|.macro tonum_i, freg, reg -| xoris reg, reg, 0x8000 -| stw reg, TONUM_LO -| lfd freg, TONUM_D -| fsub freg, freg, TONUM -|.endmacro -| -|.macro tonum_u, freg, reg -| stw reg, TONUM_LO -| lfd freg, TONUM_D -| fsub freg, freg, TOBIT -|.endmacro -| -|.macro toint, reg, freg, tmpfreg -| fctiwz tmpfreg, freg -| stfd tmpfreg, TMPD -| lwz reg, TMPD_LO -|.endmacro -| -|.macro toint, reg, freg -| toint reg, freg, freg -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Access to frame relative to BASE. -|.define FRAME_PC, -8 -|.define FRAME_FUNC, -4 -| -|// Instruction decode. -|.macro decode_OP4, dst, ins; rlwinm dst, ins, 2, 22, 29; .endmacro -|.macro decode_OP8, dst, ins; rlwinm dst, ins, 3, 21, 28; .endmacro -|.macro decode_RA8, dst, ins; rlwinm dst, ins, 27, 21, 28; .endmacro -|.macro decode_RB8, dst, ins; rlwinm dst, ins, 11, 21, 28; .endmacro -|.macro decode_RC8, dst, ins; rlwinm dst, ins, 19, 21, 28; .endmacro -|.macro decode_RD8, dst, ins; rlwinm dst, ins, 19, 13, 28; .endmacro -| -|.macro decode_OP1, dst, ins; rlwinm dst, ins, 0, 24, 31; .endmacro -|.macro decode_RD4, dst, ins; rlwinm dst, ins, 18, 14, 29; .endmacro -| -|// Instruction fetch. -|.macro ins_NEXT1 -| lwz INS, 0(PC) -| addi PC, PC, 4 -|.endmacro -|// Instruction decode+dispatch. Note: optimized for e300! -|.macro ins_NEXT2 -| decode_OPP TMP1, INS -| lpx TMP0, DISPATCH, TMP1 -| mtctr TMP0 -| decode_RB8 RB, INS -| decode_RD8 RD, INS -| decode_RA8 RA, INS -| decode_RC8 RC, INS -| bctr -|.endmacro -|.macro ins_NEXT -| ins_NEXT1 -| ins_NEXT2 -|.endmacro -| -|// Instruction footer. -|.if 1 -| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. -| .define ins_next, ins_NEXT -| .define ins_next_, ins_NEXT -| .define ins_next1, ins_NEXT1 -| .define ins_next2, ins_NEXT2 -|.else -| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. -| // Affects only certain kinds of benchmarks (and only with -j off). -| .macro ins_next -| b ->ins_next -| .endmacro -| .macro ins_next1 -| .endmacro -| .macro ins_next2 -| b ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC -| lwz PC, LFUNC:RB->pc -| lwz INS, 0(PC) -| addi PC, PC, 4 -| decode_OPP TMP1, INS -| decode_RA8 RA, INS -| lpx TMP0, DISPATCH, TMP1 -| add RA, RA, BASE -| mtctr TMP0 -| bctr -|.endmacro -| -|.macro ins_call -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC -| stw PC, FRAME_PC(BASE) -| ins_callt -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Macros to test operand types. -|.macro checknum, reg; cmplw reg, TISNUM; .endmacro -|.macro checknum, cr, reg; cmplw cr, reg, TISNUM; .endmacro -|.macro checkstr, reg; cmpwi reg, LJ_TSTR; .endmacro -|.macro checktab, reg; cmpwi reg, LJ_TTAB; .endmacro -|.macro checkfunc, reg; cmpwi reg, LJ_TFUNC; .endmacro -|.macro checknil, reg; cmpwi reg, LJ_TNIL; .endmacro -| -|.macro branch_RD -| srwi TMP0, RD, 1 -| addis PC, PC, -(BCBIAS_J*4 >> 16) -| add PC, PC, TMP0 -|.endmacro -| -|// Assumes DISPATCH is relative to GL. -#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) -#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|.macro hotcheck, delta, target -| rlwinm TMP1, PC, 31, 25, 30 -| addi TMP1, TMP1, GG_DISP2HOT -| lhzx TMP2, DISPATCH, TMP1 -| addic. TMP2, TMP2, -delta -| sthx TMP2, DISPATCH, TMP1 -| blt target -|.endmacro -| -|.macro hotloop -| hotcheck HOTCOUNT_LOOP, ->vm_hotloop -|.endmacro -| -|.macro hotcall -| hotcheck HOTCOUNT_CALL, ->vm_hotcall -|.endmacro -| -|// Set current VM state. Uses TMP0. -|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro -|.macro st_vmstate; stw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro -| -|// Move table write barrier back. Overwrites mark and tmp. -|.macro barrierback, tab, mark, tmp -| lwz tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) -| // Assumes LJ_GC_BLACK is 0x04. -| rlwinm mark, mark, 0, 30, 28 // black2gray(tab) -| stw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) -| stb mark, tab->marked -| stw tmp, tab->gclist -|.endmacro -| -|//----------------------------------------------------------------------- - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | // See vm_return. Also: TMP2 = previous base. - | andix. TMP0, PC, FRAME_P - | li TMP1, LJ_TTRUE - | beq ->cont_dispatch - | - | // Return from pcall or xpcall fast func. - | lwz PC, FRAME_PC(TMP2) // Fetch PC of previous frame. - | mr BASE, TMP2 // Restore caller base. - | // Prepending may overwrite the pcall frame, so do it at the end. - | stwu TMP1, FRAME_PC(RA) // Prepend true to results. - | - |->vm_returnc: - | addi RD, RD, 8 // RD = (nresults+1)*8. - | andix. TMP0, PC, FRAME_TYPE - | cmpwi cr1, RD, 0 - | li CRET1, LUA_YIELD - | beq cr1, ->vm_unwind_c_eh - | mr MULTRES, RD - | beq ->BC_RET_Z // Handle regular return to Lua. - | - |->vm_return: - | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return - | // TMP0 = PC & FRAME_TYPE - | cmpwi TMP0, FRAME_C - | rlwinm TMP2, PC, 0, 0, 28 - | li_vmstate C - | sub TMP2, BASE, TMP2 // TMP2 = previous base. - | bney ->vm_returnp - | - | addic. TMP1, RD, -8 - | stp TMP2, L->base - | lwz TMP2, SAVE_NRES - | subi BASE, BASE, 8 - | st_vmstate - | slwi TMP2, TMP2, 3 - | beq >2 - |1: - | addic. TMP1, TMP1, -8 - | lfd f0, 0(RA) - | addi RA, RA, 8 - | stfd f0, 0(BASE) - | addi BASE, BASE, 8 - | bney <1 - | - |2: - | cmpw TMP2, RD // More/less results wanted? - | bne >6 - |3: - | stp BASE, L->top // Store new top. - | - |->vm_leave_cp: - | lp TMP0, SAVE_CFRAME // Restore previous C frame. - | li CRET1, 0 // Ok return status for vm_pcall. - | stp TMP0, L->cframe - | - |->vm_leave_unw: - | restoreregs - | blr - | - |6: - | ble >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - | lwz TMP1, L->maxstack - | cmplw BASE, TMP1 - | bge >8 - | stw TISNIL, 0(BASE) - | addi RD, RD, 8 - | addi BASE, BASE, 8 - | b <2 - | - |7: // Less results wanted. - | subfic TMP3, TMP2, 0 // LUA_MULTRET+1 case? - | sub TMP0, RD, TMP2 - | subfe TMP1, TMP1, TMP1 // TMP1 = TMP2 == 0 ? 0 : -1 - | and TMP0, TMP0, TMP1 - | sub BASE, BASE, TMP0 // Either keep top or shrink it. - | b <3 - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | stp BASE, L->top // Save current top held in BASE (yes). - | mr SAVE0, RD - | srwi CARG2, TMP2, 3 - | mr CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | lwz TMP2, SAVE_NRES - | mr RD, SAVE0 - | slwi TMP2, TMP2, 3 - | lp BASE, L->top // Need the (realloced) L->top in BASE. - | b <2 - | - |->vm_unwind_c: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - | mr sp, CARG1 - | mr CRET1, CARG2 - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | lwz L, SAVE_L - | .toc ld TOCREG, SAVE_TOC - | li TMP0, ~LJ_VMST_C - | lwz GL:TMP1, L->glref - | stw TMP0, GL:TMP1->vmstate - | b ->vm_leave_unw - | - |->vm_unwind_ff: // Unwind C stack, return from ff pcall. - | // (void *cframe) - |.if GPR64 - | rldicr sp, CARG1, 0, 61 - |.else - | rlwinm sp, CARG1, 0, 0, 29 - |.endif - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | lwz L, SAVE_L - | .toc ld TOCREG, SAVE_TOC - | li TISNUM, LJ_TISNUM // Setup type comparison constants. - | lp BASE, L->base - | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | li ZERO, 0 - | stw TMP3, TMPD - | li TMP1, LJ_TFALSE - | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). - | li TISNIL, LJ_TNIL - | li_vmstate INTERP - | lfs TOBIT, TMPD - | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame. - | la RA, -8(BASE) // Results start at BASE-8. - | stw TMP3, TMPD - | addi DISPATCH, DISPATCH, GG_G2DISP - | stw TMP1, 0(RA) // Prepend false to error message. - | li RD, 16 // 2 results: false + error message. - | st_vmstate - | lfs TONUM, TMPD - | b ->vm_returnc - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | li CARG2, LUA_MINSTACK - | b >2 - | - |->vm_growstack_l: // Grow stack for Lua function. - | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC - | add RC, BASE, RC - | sub RA, RA, BASE - | stp BASE, L->base - | addi PC, PC, 4 // Must point after first instruction. - | stp RC, L->top - | srwi CARG2, RA, 3 - |2: - | // L->base = new base, L->top = top - | stw PC, SAVE_PC - | mr CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | lp BASE, L->base - | lp RC, L->top - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | sub RC, RC, BASE - | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - | mr L, CARG1 - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | mr BASE, CARG2 - | lbz TMP1, L->status - | stw L, SAVE_L - | li PC, FRAME_CP - | addi TMP0, sp, CFRAME_RESUME - | addi DISPATCH, DISPATCH, GG_G2DISP - | stw CARG3, SAVE_NRES - | cmplwi TMP1, 0 - | stw CARG3, SAVE_ERRF - | stp CARG3, SAVE_CFRAME - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | stp TMP0, L->cframe - | beq >3 - | - | // Resume after yield (like a return). - | stw L, DISPATCH_GL(cur_L)(DISPATCH) - | mr RA, BASE - | lp BASE, L->base - | li TISNUM, LJ_TISNUM // Setup type comparison constants. - | lp TMP1, L->top - | lwz PC, FRAME_PC(BASE) - | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | stb CARG3, L->status - | stw TMP3, TMPD - | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). - | lfs TOBIT, TMPD - | sub RD, TMP1, BASE - | stw TMP3, TMPD - | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) - | addi RD, RD, 8 - | stw TMP0, TONUM_HI - | li_vmstate INTERP - | li ZERO, 0 - | st_vmstate - | andix. TMP0, PC, FRAME_TYPE - | mr MULTRES, RD - | lfs TONUM, TMPD - | li TISNIL, LJ_TNIL - | beq ->BC_RET_Z - | b ->vm_return - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | li PC, FRAME_CP - | stw CARG4, SAVE_ERRF - | b >1 - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | li PC, FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - | lp TMP1, L:CARG1->cframe - | mr L, CARG1 - | stw CARG3, SAVE_NRES - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | stw CARG1, SAVE_L - | mr BASE, CARG2 - | addi DISPATCH, DISPATCH, GG_G2DISP - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | stp TMP1, SAVE_CFRAME - | stp sp, L->cframe // Add our C frame to cframe chain. - | - |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). - | stw L, DISPATCH_GL(cur_L)(DISPATCH) - | lp TMP2, L->base // TMP2 = old base (used in vmeta_call). - | li TISNUM, LJ_TISNUM // Setup type comparison constants. - | lp TMP1, L->top - | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | add PC, PC, BASE - | stw TMP3, TMPD - | li ZERO, 0 - | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). - | lfs TOBIT, TMPD - | sub PC, PC, TMP2 // PC = frame delta + frame type - | stw TMP3, TMPD - | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) - | sub NARGS8:RC, TMP1, BASE - | stw TMP0, TONUM_HI - | li_vmstate INTERP - | lfs TONUM, TMPD - | li TISNIL, LJ_TNIL - | st_vmstate - | - |->vm_call_dispatch: - | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC - | lwz TMP0, FRAME_PC(BASE) - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | checkfunc TMP0; bne ->vmeta_call - | - |->vm_call_dispatch_f: - | ins_call - | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - | mr L, CARG1 - | lwz TMP0, L:CARG1->stack - | stw CARG1, SAVE_L - | lp TMP1, L->top - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). - | lp TMP1, L->cframe - | addi DISPATCH, DISPATCH, GG_G2DISP - | .toc lp CARG4, 0(CARG4) - | li TMP2, 0 - | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. - | stw TMP2, SAVE_ERRF // No error function. - | stp TMP1, SAVE_CFRAME - | stp sp, L->cframe // Add our C frame to cframe chain. - | stw L, DISPATCH_GL(cur_L)(DISPATCH) - | mtctr CARG4 - | bctrl // (lua_State *L, lua_CFunction func, void *ud) - |.if PPE - | mr BASE, CRET1 - | cmpwi CRET1, 0 - |.else - | mr. BASE, CRET1 - |.endif - | li PC, FRAME_CP - | bne <3 // Else continue with the call. - | b ->vm_leave_cp // No base? Just remove C frame. - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the - |// stack, so BASE doesn't need to be reloaded across these calls. - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 - | lwz TMP0, -12(BASE) // Continuation. - | mr RB, BASE - | mr BASE, TMP2 // Restore caller BASE. - | lwz LFUNC:TMP1, FRAME_FUNC(TMP2) - |.if FFI - | cmplwi TMP0, 1 - |.endif - | lwz PC, -16(RB) // Restore PC from [cont|PC]. - | subi TMP2, RD, 8 - | lwz TMP1, LFUNC:TMP1->pc - | stwx TISNIL, RA, TMP2 // Ensure one valid arg. - |.if FFI - | ble >1 - |.endif - | lwz KBASE, PC2PROTO(k)(TMP1) - | // BASE = base, RA = resultptr, RB = meta base - | mtctr TMP0 - | bctr // Jump to continuation. - | - |.if FFI - |1: - | beq ->cont_ffi_callback // cont = 1: return from FFI callback. - | // cont = 0: tailcall from C function. - | subi TMP1, RB, 16 - | sub RC, TMP1, BASE - | b ->vm_call_tail - |.endif - | - |->cont_cat: // RA = resultptr, RB = meta base - | lwz INS, -4(PC) - | subi CARG2, RB, 16 - | decode_RB8 SAVE0, INS - | lfd f0, 0(RA) - | add TMP1, BASE, SAVE0 - | stp BASE, L->base - | cmplw TMP1, CARG2 - | sub CARG3, CARG2, TMP1 - | decode_RA8 RA, INS - | stfd f0, 0(CARG2) - | bney ->BC_CAT_Z - | stfdx f0, BASE, RA - | b ->cont_nop - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets1: - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | li TMP0, LJ_TSTR - | decode_RB8 RB, INS - | stw STR:RC, 4(CARG3) - | add CARG2, BASE, RB - | stw TMP0, 0(CARG3) - | b >1 - | - |->vmeta_tgets: - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - | li TMP0, LJ_TTAB - | stw TAB:RB, 4(CARG2) - | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) - | stw TMP0, 0(CARG2) - | li TMP1, LJ_TSTR - | stw STR:RC, 4(CARG3) - | stw TMP1, 0(CARG3) - | b >1 - | - |->vmeta_tgetb: // TMP0 = index - |.if not DUALNUM - | tonum_u f0, TMP0 - |.endif - | decode_RB8 RB, INS - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | add CARG2, BASE, RB - |.if DUALNUM - | stw TISNUM, 0(CARG3) - | stw TMP0, 4(CARG3) - |.else - | stfd f0, 0(CARG3) - |.endif - | b >1 - | - |->vmeta_tgetv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | cmplwi CRET1, 0 - | beq >3 - | lfd f0, 0(CRET1) - | ins_next1 - | stfdx f0, BASE, RA - | ins_next2 - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | subfic TMP1, BASE, FRAME_CONT - | lp BASE, L->top - | stw PC, -16(BASE) // [cont|PC] - | add PC, TMP1, BASE - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | li NARGS8:RC, 16 // 2 args for func(t, k). - | b ->vm_call_dispatch_f - | - |->vmeta_tgetr: - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | cmplwi CRET1, 0 - | beq >1 - | lfd f14, 0(CRET1) - | b ->BC_TGETR_Z - |1: - | stwx TISNIL, BASE, RA - | b ->cont_nop - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets1: - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | li TMP0, LJ_TSTR - | decode_RB8 RB, INS - | stw STR:RC, 4(CARG3) - | add CARG2, BASE, RB - | stw TMP0, 0(CARG3) - | b >1 - | - |->vmeta_tsets: - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - | li TMP0, LJ_TTAB - | stw TAB:RB, 4(CARG2) - | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) - | stw TMP0, 0(CARG2) - | li TMP1, LJ_TSTR - | stw STR:RC, 4(CARG3) - | stw TMP1, 0(CARG3) - | b >1 - | - |->vmeta_tsetb: // TMP0 = index - |.if not DUALNUM - | tonum_u f0, TMP0 - |.endif - | decode_RB8 RB, INS - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | add CARG2, BASE, RB - |.if DUALNUM - | stw TISNUM, 0(CARG3) - | stw TMP0, 4(CARG3) - |.else - | stfd f0, 0(CARG3) - |.endif - | b >1 - | - |->vmeta_tsetv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | cmplwi CRET1, 0 - | lfdx f0, BASE, RA - | beq >3 - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | ins_next1 - | stfd f0, 0(CRET1) - | ins_next2 - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | subfic TMP1, BASE, FRAME_CONT - | lp BASE, L->top - | stw PC, -16(BASE) // [cont|PC] - | add PC, TMP1, BASE - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | li NARGS8:RC, 24 // 3 args for func(t, k, v) - | stfd f0, 16(BASE) // Copy value to third argument. - | b ->vm_call_dispatch_f - | - |->vmeta_tsetr: - | stp BASE, L->base - | stw PC, SAVE_PC - | bl extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) - | // Returns TValue *. - | stfd f14, 0(CRET1) - | b ->cont_nop - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - | mr CARG1, L - | subi PC, PC, 4 - |.if DUALNUM - | mr CARG2, RA - |.else - | add CARG2, BASE, RA - |.endif - | stw PC, SAVE_PC - |.if DUALNUM - | mr CARG3, RD - |.else - | add CARG3, BASE, RD - |.endif - | stp BASE, L->base - | decode_OP1 CARG4, INS - | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - | // Returns 0/1 or TValue * (metamethod). - |3: - | cmplwi CRET1, 1 - | bgt ->vmeta_binop - | subfic CRET1, CRET1, 0 - |4: - | lwz INS, 0(PC) - | addi PC, PC, 4 - | decode_RD4 TMP2, INS - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | and TMP2, TMP2, CRET1 - | add PC, PC, TMP2 - |->cont_nop: - | ins_next - | - |->cont_ra: // RA = resultptr - | lwz INS, -4(PC) - | lfd f0, 0(RA) - | decode_RA8 TMP1, INS - | stfdx f0, BASE, TMP1 - | b ->cont_nop - | - |->cont_condt: // RA = resultptr - | lwz TMP0, 0(RA) - | .gpr64 extsw TMP0, TMP0 - | subfic TMP0, TMP0, LJ_TTRUE // Branch if result is true. - | subfe CRET1, CRET1, CRET1 - | not CRET1, CRET1 - | b <4 - | - |->cont_condf: // RA = resultptr - | lwz TMP0, 0(RA) - | .gpr64 extsw TMP0, TMP0 - | subfic TMP0, TMP0, LJ_TTRUE // Branch if result is false. - | subfe CRET1, CRET1, CRET1 - | b <4 - | - |->vmeta_equal: - | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. - | subi PC, PC, 4 - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - | - |->vmeta_equal_cd: - |.if FFI - | mr CARG2, INS - | subi PC, PC, 4 - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_equal_cd // (lua_State *L, BCIns op) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - |.endif - | - |->vmeta_istype: - | subi PC, PC, 4 - | stp BASE, L->base - | srwi CARG2, RA, 3 - | mr CARG1, L - | srwi CARG3, RD, 3 - | stw PC, SAVE_PC - | bl extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) - | b ->cont_nop - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_arith_nv: - | add CARG3, KBASE, RC - | add CARG4, BASE, RB - | b >1 - |->vmeta_arith_nv2: - |.if DUALNUM - | mr CARG3, RC - | mr CARG4, RB - | b >1 - |.endif - | - |->vmeta_unm: - | mr CARG3, RD - | mr CARG4, RD - | b >1 - | - |->vmeta_arith_vn: - | add CARG3, BASE, RB - | add CARG4, KBASE, RC - | b >1 - | - |->vmeta_arith_vv: - | add CARG3, BASE, RB - | add CARG4, BASE, RC - |.if DUALNUM - | b >1 - |.endif - |->vmeta_arith_vn2: - |->vmeta_arith_vv2: - |.if DUALNUM - | mr CARG3, RB - | mr CARG4, RC - |.endif - |1: - | add CARG2, BASE, RA - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | decode_OP1 CARG5, INS // Caveat: CARG5 overlaps INS. - | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - | // Returns NULL (finished) or TValue * (metamethod). - | cmplwi CRET1, 0 - | beq ->cont_nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 - | sub TMP1, CRET1, BASE - | stw PC, -16(CRET1) // [cont|PC] - | mr TMP2, BASE - | addi PC, TMP1, FRAME_CONT - | mr BASE, CRET1 - | li NARGS8:RC, 16 // 2 args for func(o1, o2). - | b ->vm_call_dispatch - | - |->vmeta_len: -#if LJ_52 - | mr SAVE0, CARG1 -#endif - | mr CARG2, RD - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_len // (lua_State *L, TValue *o) - | // Returns NULL (retry) or TValue * (metamethod base). -#if LJ_52 - | cmplwi CRET1, 0 - | bne ->vmeta_binop // Binop call for compatibility. - | mr CARG1, SAVE0 - | b ->BC_LEN_Z -#else - | b ->vmeta_binop // Binop call for compatibility. -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call: // Resolve and call __call metamethod. - | // TMP2 = old base, BASE = new base, RC = nargs*8 - | mr CARG1, L - | stp TMP2, L->base // This is the callers base! - | subi CARG2, BASE, 8 - | stw PC, SAVE_PC - | add CARG3, BASE, RC - | mr SAVE0, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. - | ins_call - | - |->vmeta_callt: // Resolve __call for BC_CALLT. - | // BASE = old base, RA = new base, RC = nargs*8 - | mr CARG1, L - | stp BASE, L->base - | subi CARG2, RA, 8 - | stw PC, SAVE_PC - | add CARG3, RA, RC - | mr SAVE0, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | lwz TMP1, FRAME_PC(BASE) - | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. - | lwz LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. - | b ->BC_CALLT_Z - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | mr CARG1, L - | stp BASE, L->base - | mr CARG2, RA - | stw PC, SAVE_PC - | mr SAVE0, INS - | bl extern lj_meta_for // (lua_State *L, TValue *base) - |.if JIT - | decode_OP1 TMP0, SAVE0 - |.endif - | decode_RA8 RA, SAVE0 - |.if JIT - | cmpwi TMP0, BC_JFORI - |.endif - | decode_RD8 RD, SAVE0 - |.if JIT - | beqy =>BC_JFORI - |.endif - | b =>BC_FORI - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lwz CARG1, 4(BASE) - | blt ->fff_fallback - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 16 - | lwz CARG3, 0(BASE) - | lwz CARG4, 8(BASE) - | lwz CARG1, 4(BASE) - | lwz CARG2, 12(BASE) - | blt ->fff_fallback - |.endmacro - | - |.macro .ffunc_n, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lfd FARG1, 0(BASE) - | blt ->fff_fallback - | checknum CARG3; bge ->fff_fallback - |.endmacro - | - |.macro .ffunc_nn, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 16 - | lwz CARG3, 0(BASE) - | lfd FARG1, 0(BASE) - | lwz CARG4, 8(BASE) - | lfd FARG2, 8(BASE) - | blt ->fff_fallback - | checknum CARG3; bge ->fff_fallback - | checknum CARG4; bge ->fff_fallback - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1. - |.macro ffgccheck - | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | cmplw TMP0, TMP1 - | bgel ->fff_gcstep - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc_1 assert - | li TMP1, LJ_TFALSE - | la RA, -8(BASE) - | cmplw cr1, CARG3, TMP1 - | lwz PC, FRAME_PC(BASE) - | bge cr1, ->fff_fallback - | stw CARG3, 0(RA) - | addi RD, NARGS8:RC, 8 // Compute (nresults+1)*8. - | stw CARG1, 4(RA) - | beq ->fff_res // Done if exactly 1 argument. - | li TMP1, 8 - | subi RC, RC, 8 - |1: - | cmplw TMP1, RC - | lfdx f0, BASE, TMP1 - | stfdx f0, RA, TMP1 - | addi TMP1, TMP1, 8 - | bney <1 - | b ->fff_res - | - |.ffunc type - | cmplwi NARGS8:RC, 8 - | lwz CARG1, 0(BASE) - | blt ->fff_fallback - | .gpr64 extsw CARG1, CARG1 - | subfc TMP0, TISNUM, CARG1 - | subfe TMP2, CARG1, CARG1 - | orc TMP1, TMP2, TMP0 - | addi TMP1, TMP1, ~LJ_TISNUM+1 - | slwi TMP1, TMP1, 3 - | la TMP2, CFUNC:RB->upvalue - | lfdx FARG1, TMP2, TMP1 - | b ->fff_resn - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | checktab CARG3; bne >6 - |1: // Field metatable must be at same offset for GCtab and GCudata! - | lwz TAB:CARG1, TAB:CARG1->metatable - |2: - | li CARG3, LJ_TNIL - | cmplwi TAB:CARG1, 0 - | lwz STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) - | beq ->fff_restv - | lwz TMP0, TAB:CARG1->hmask - | li CARG3, LJ_TTAB // Use metatable as default result. - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:CARG1->node - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |3: // Rearranged logic, because we expect _not_ to find the key. - | lwz CARG4, NODE:TMP2->key - | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) - | lwz CARG2, NODE:TMP2->val - | lwz TMP1, 4+offsetof(Node, val)(NODE:TMP2) - | checkstr CARG4; bne >4 - | cmpw TMP0, STR:RC; beq >5 - |4: - | lwz NODE:TMP2, NODE:TMP2->next - | cmplwi NODE:TMP2, 0 - | beq ->fff_restv // Not found, keep default result. - | b <3 - |5: - | checknil CARG2 - | beq ->fff_restv // Ditto for nil value. - | mr CARG3, CARG2 // Return value of mt.__metatable. - | mr CARG1, TMP1 - | b ->fff_restv - | - |6: - | cmpwi CARG3, LJ_TUDATA; beq <1 - | .gpr64 extsw CARG3, CARG3 - | subfc TMP0, TISNUM, CARG3 - | subfe TMP2, CARG3, CARG3 - | orc TMP1, TMP2, TMP0 - | addi TMP1, TMP1, ~LJ_TISNUM+1 - | slwi TMP1, TMP1, 2 - | la TMP2, DISPATCH_GL(gcroot[GCROOT_BASEMT])(DISPATCH) - | lwzx TAB:CARG1, TMP2, TMP1 - | b <2 - | - |.ffunc_2 setmetatable - | // Fast path: no mt for table yet and not clearing the mt. - | checktab CARG3; bne ->fff_fallback - | lwz TAB:TMP1, TAB:CARG1->metatable - | checktab CARG4; bne ->fff_fallback - | cmplwi TAB:TMP1, 0 - | lbz TMP3, TAB:CARG1->marked - | bne ->fff_fallback - | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | stw TAB:CARG2, TAB:CARG1->metatable - | beq ->fff_restv - | barrierback TAB:CARG1, TMP3, TMP0 - | b ->fff_restv - | - |.ffunc rawget - | cmplwi NARGS8:RC, 16 - | lwz CARG4, 0(BASE) - | lwz TAB:CARG2, 4(BASE) - | blt ->fff_fallback - | checktab CARG4; bne ->fff_fallback - | la CARG3, 8(BASE) - | mr CARG1, L - | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - | // Returns cTValue *. - | lfd FARG1, 0(CRET1) - | b ->fff_resn - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | cmplwi NARGS8:RC, 8 - | lwz CARG1, 0(BASE) - | lfd FARG1, 0(BASE) - | bne ->fff_fallback // Exactly one argument. - | checknum CARG1; bgt ->fff_fallback - | b ->fff_resn - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | checkstr CARG3 - | // A __tostring method in the string base metatable is ignored. - | beq ->fff_restv // String key? - | // Handle numbers inline, unless a number base metatable is present. - | lwz TMP0, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) - | checknum CARG3 - | cmplwi cr1, TMP0, 0 - | stp BASE, L->base // Add frame since C call can throw. - | crorc 4*cr0+eq, 4*cr0+gt, 4*cr1+eq - | stw PC, SAVE_PC // Redundant (but a defined value). - | beq ->fff_fallback - | ffgccheck - | mr CARG1, L - | mr CARG2, BASE - |.if DUALNUM - | bl extern lj_strfmt_number // (lua_State *L, cTValue *o) - |.else - | bl extern lj_strfmt_num // (lua_State *L, lua_Number *np) - |.endif - | // Returns GCstr *. - | li CARG3, LJ_TSTR - | b ->fff_restv - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc next - | cmplwi NARGS8:RC, 8 - | lwz CARG1, 0(BASE) - | lwz TAB:CARG2, 4(BASE) - | blt ->fff_fallback - | stwx TISNIL, BASE, NARGS8:RC // Set missing 2nd arg to nil. - | checktab CARG1 - | lwz PC, FRAME_PC(BASE) - | bne ->fff_fallback - | stp BASE, L->base // Add frame since C call can throw. - | mr CARG1, L - | stp BASE, L->top // Dummy frame length is ok. - | la CARG3, 8(BASE) - | stw PC, SAVE_PC - | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - | // Returns 0 at end of traversal. - | cmplwi CRET1, 0 - | li CARG3, LJ_TNIL - | beq ->fff_restv // End of traversal: return nil. - | lfd f0, 8(BASE) // Copy key and value to results. - | la RA, -8(BASE) - | lfd f1, 16(BASE) - | stfd f0, 0(RA) - | li RD, (2+1)*8 - | stfd f1, 8(RA) - | b ->fff_res - | - |.ffunc_1 pairs - | checktab CARG3 - | lwz PC, FRAME_PC(BASE) - | bne ->fff_fallback -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | lfd f0, CFUNC:RB->upvalue[0] - | cmplwi TAB:TMP2, 0 - | la RA, -8(BASE) - | bne ->fff_fallback -#else - | lfd f0, CFUNC:RB->upvalue[0] - | la RA, -8(BASE) -#endif - | stw TISNIL, 8(BASE) - | li RD, (3+1)*8 - | stfd f0, 0(RA) - | b ->fff_res - | - |.ffunc ipairs_aux - | cmplwi NARGS8:RC, 16 - | lwz CARG3, 0(BASE) - | lwz TAB:CARG1, 4(BASE) - | lwz CARG4, 8(BASE) - |.if DUALNUM - | lwz TMP2, 12(BASE) - |.else - | lfd FARG2, 8(BASE) - |.endif - | blt ->fff_fallback - | checktab CARG3 - | checknum cr1, CARG4 - | lwz PC, FRAME_PC(BASE) - |.if DUALNUM - | bne ->fff_fallback - | bne cr1, ->fff_fallback - |.else - | lus TMP0, 0x3ff0 - | stw ZERO, TMPD_LO - | bne ->fff_fallback - | stw TMP0, TMPD_HI - | bge cr1, ->fff_fallback - | lfd FARG1, TMPD - | toint TMP2, FARG2, f0 - |.endif - | lwz TMP0, TAB:CARG1->asize - | lwz TMP1, TAB:CARG1->array - |.if not DUALNUM - | fadd FARG2, FARG2, FARG1 - |.endif - | addi TMP2, TMP2, 1 - | la RA, -8(BASE) - | cmplw TMP0, TMP2 - |.if DUALNUM - | stw TISNUM, 0(RA) - | slwi TMP3, TMP2, 3 - | stw TMP2, 4(RA) - |.else - | slwi TMP3, TMP2, 3 - | stfd FARG2, 0(RA) - |.endif - | ble >2 // Not in array part? - | lwzx TMP2, TMP1, TMP3 - | lfdx f0, TMP1, TMP3 - |1: - | checknil TMP2 - | li RD, (0+1)*8 - | beq ->fff_res // End of iteration, return 0 results. - | li RD, (2+1)*8 - | stfd f0, 8(RA) - | b ->fff_res - |2: // Check for empty hash part first. Otherwise call C function. - | lwz TMP0, TAB:CARG1->hmask - | cmplwi TMP0, 0 - | li RD, (0+1)*8 - | beq ->fff_res - | mr CARG2, TMP2 - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | cmplwi CRET1, 0 - | li RD, (0+1)*8 - | beq ->fff_res - | lwz TMP2, 0(CRET1) - | lfd f0, 0(CRET1) - | b <1 - | - |.ffunc_1 ipairs - | checktab CARG3 - | lwz PC, FRAME_PC(BASE) - | bne ->fff_fallback -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | lfd f0, CFUNC:RB->upvalue[0] - | cmplwi TAB:TMP2, 0 - | la RA, -8(BASE) - | bne ->fff_fallback -#else - | lfd f0, CFUNC:RB->upvalue[0] - | la RA, -8(BASE) -#endif - |.if DUALNUM - | stw TISNUM, 8(BASE) - |.else - | stw ZERO, 8(BASE) - |.endif - | stw ZERO, 12(BASE) - | li RD, (3+1)*8 - | stfd f0, 0(RA) - | b ->fff_res - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc pcall - | cmplwi NARGS8:RC, 8 - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | blt ->fff_fallback - | mr TMP2, BASE - | la BASE, 8(BASE) - | // Remember active hook before pcall. - | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 - | subi NARGS8:RC, NARGS8:RC, 8 - | addi PC, TMP3, 8+FRAME_PCALL - | b ->vm_call_dispatch - | - |.ffunc xpcall - | cmplwi NARGS8:RC, 16 - | lwz CARG4, 8(BASE) - | lfd FARG2, 8(BASE) - | lfd FARG1, 0(BASE) - | blt ->fff_fallback - | lbz TMP1, DISPATCH_GL(hookmask)(DISPATCH) - | mr TMP2, BASE - | checkfunc CARG4; bne ->fff_fallback // Traceback must be a function. - | la BASE, 16(BASE) - | // Remember active hook before pcall. - | rlwinm TMP1, TMP1, 32-HOOK_ACTIVE_SHIFT, 31, 31 - | stfd FARG2, 0(TMP2) // Swap function and traceback. - | subi NARGS8:RC, NARGS8:RC, 16 - | stfd FARG1, 8(TMP2) - | addi PC, TMP1, 16+FRAME_PCALL - | b ->vm_call_dispatch - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | cmpwi CARG3, LJ_TTHREAD; bne ->fff_fallback - |.else - |.ffunc coroutine_wrap_aux - | lwz L:CARG1, CFUNC:RB->upvalue[0].gcr - |.endif - | lbz TMP0, L:CARG1->status - | lp TMP1, L:CARG1->cframe - | lp CARG2, L:CARG1->top - | cmplwi cr0, TMP0, LUA_YIELD - | lp TMP2, L:CARG1->base - | cmplwi cr1, TMP1, 0 - | lwz TMP0, L:CARG1->maxstack - | cmplw cr7, CARG2, TMP2 - | lwz PC, FRAME_PC(BASE) - | crorc 4*cr6+lt, 4*cr0+gt, 4*cr1+eq // st>LUA_YIELD || cframe!=0 - | add TMP2, CARG2, NARGS8:RC - | crandc 4*cr6+gt, 4*cr7+eq, 4*cr0+eq // base==top && st!=LUA_YIELD - | cmplw cr1, TMP2, TMP0 - | cror 4*cr6+lt, 4*cr6+lt, 4*cr6+gt - | stw PC, SAVE_PC - | cror 4*cr6+lt, 4*cr6+lt, 4*cr1+gt // cond1 || cond2 || stackov - | stp BASE, L->base - | blt cr6, ->fff_fallback - |1: - |.if resume - | addi BASE, BASE, 8 // Keep resumed thread in stack for GC. - | subi NARGS8:RC, NARGS8:RC, 8 - | subi TMP2, TMP2, 8 - |.endif - | stp TMP2, L:CARG1->top - | li TMP1, 0 - | stp BASE, L->top - |2: // Move args to coroutine. - | cmpw TMP1, NARGS8:RC - | lfdx f0, BASE, TMP1 - | beq >3 - | stfdx f0, CARG2, TMP1 - | addi TMP1, TMP1, 8 - | b <2 - |3: - | li CARG3, 0 - | mr L:SAVE0, L:CARG1 - | li CARG4, 0 - | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | // Returns thread status. - |4: - | lp TMP2, L:SAVE0->base - | cmplwi CRET1, LUA_YIELD - | lp TMP3, L:SAVE0->top - | li_vmstate INTERP - | lp BASE, L->base - | stw L, DISPATCH_GL(cur_L)(DISPATCH) - | st_vmstate - | bgt >8 - | sub RD, TMP3, TMP2 - | lwz TMP0, L->maxstack - | cmplwi RD, 0 - | add TMP1, BASE, RD - | beq >6 // No results? - | cmplw TMP1, TMP0 - | li TMP1, 0 - | bgt >9 // Need to grow stack? - | - | subi TMP3, RD, 8 - | stp TMP2, L:SAVE0->top // Clear coroutine stack. - |5: // Move results from coroutine. - | cmplw TMP1, TMP3 - | lfdx f0, TMP2, TMP1 - | stfdx f0, BASE, TMP1 - | addi TMP1, TMP1, 8 - | bne <5 - |6: - | andix. TMP0, PC, FRAME_TYPE - |.if resume - | li TMP1, LJ_TTRUE - | la RA, -8(BASE) - | stw TMP1, -8(BASE) // Prepend true to results. - | addi RD, RD, 16 - |.else - | mr RA, BASE - | addi RD, RD, 8 - |.endif - |7: - | stw PC, SAVE_PC - | mr MULTRES, RD - | beq ->BC_RET_Z - | b ->vm_return - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | andix. TMP0, PC, FRAME_TYPE - | la TMP3, -8(TMP3) - | li TMP1, LJ_TFALSE - | lfd f0, 0(TMP3) - | stp TMP3, L:SAVE0->top // Remove error from coroutine stack. - | li RD, (2+1)*8 - | stw TMP1, -8(BASE) // Prepend false to results. - | la RA, -8(BASE) - | stfd f0, 0(BASE) // Copy error message. - | b <7 - |.else - | mr CARG1, L - | mr CARG2, L:SAVE0 - | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) - |.endif - | - |9: // Handle stack expansion on return from yield. - | mr CARG1, L - | srwi CARG2, RD, 3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | li CRET1, 0 - | b <4 - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | lp TMP0, L->cframe - | add TMP1, BASE, NARGS8:RC - | stp BASE, L->base - | andix. TMP0, TMP0, CFRAME_RESUME - | stp TMP1, L->top - | li CRET1, LUA_YIELD - | beq ->fff_fallback - | stp ZERO, L->cframe - | stb CRET1, L->status - | b ->vm_leave_unw - | - |//-- Math library ------------------------------------------------------- - | - |.ffunc_1 math_abs - | checknum CARG3 - |.if DUALNUM - | bne >2 - | srawi TMP1, CARG1, 31 - | xor TMP2, TMP1, CARG1 - |.if GPR64 - | lus TMP0, 0x8000 - | sub CARG1, TMP2, TMP1 - | cmplw CARG1, TMP0 - | beq >1 - |.else - | sub. CARG1, TMP2, TMP1 - | blt >1 - |.endif - |->fff_resi: - | lwz PC, FRAME_PC(BASE) - | la RA, -8(BASE) - | stw TISNUM, -8(BASE) - | stw CRET1, -4(BASE) - | b ->fff_res1 - |1: - | lus CARG3, 0x41e0 // 2^31. - | li CARG1, 0 - | b ->fff_restv - |2: - |.endif - | bge ->fff_fallback - | rlwinm CARG3, CARG3, 0, 1, 31 - | // Fallthrough. - | - |->fff_restv: - | // CARG3/CARG1 = TValue result. - | lwz PC, FRAME_PC(BASE) - | stw CARG3, -8(BASE) - | la RA, -8(BASE) - | stw CARG1, -4(BASE) - |->fff_res1: - | // RA = results, PC = return. - | li RD, (1+1)*8 - |->fff_res: - | // RA = results, RD = (nresults+1)*8, PC = return. - | andix. TMP0, PC, FRAME_TYPE - | mr MULTRES, RD - | bney ->vm_return - | lwz INS, -4(PC) - | decode_RB8 RB, INS - |5: - | cmplw RB, RD // More results expected? - | decode_RA8 TMP0, INS - | bgt >6 - | ins_next1 - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | sub BASE, RA, TMP0 - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | stwx TISNIL, RA, TMP1 - | b <5 - | - |.macro math_extern, func - | .ffunc_n math_ .. func - | blex func - | b ->fff_resn - |.endmacro - | - |.macro math_extern2, func - | .ffunc_nn math_ .. func - | blex func - | b ->fff_resn - |.endmacro - | - |.macro math_round, func - | .ffunc_1 math_ .. func - | checknum CARG3; beqy ->fff_restv - | rlwinm TMP2, CARG3, 12, 21, 31 - | bge ->fff_fallback - | addic. TMP2, TMP2, -1023 // exp = exponent(x) - 1023 - | cmplwi cr1, TMP2, 31 // 0 <= exp < 31? - | subfic TMP0, TMP2, 31 - | blt >3 - | slwi TMP1, CARG3, 11 - | srwi TMP3, CARG1, 21 - | oris TMP1, TMP1, 0x8000 - | addi TMP2, TMP2, 1 - | or TMP1, TMP1, TMP3 - | slwi CARG2, CARG1, 11 - | bge cr1, >4 - | slw TMP3, TMP1, TMP2 - | srw RD, TMP1, TMP0 - | or TMP3, TMP3, CARG2 - | srawi TMP2, CARG3, 31 - |.if "func" == "floor" - | and TMP1, TMP3, TMP2 - | addic TMP0, TMP1, -1 - | subfe TMP1, TMP0, TMP1 - | add CARG1, RD, TMP1 - | xor CARG1, CARG1, TMP2 - | sub CARG1, CARG1, TMP2 - | b ->fff_resi - |.else - | andc TMP1, TMP3, TMP2 - | addic TMP0, TMP1, -1 - | subfe TMP1, TMP0, TMP1 - | add CARG1, RD, TMP1 - | cmpw CARG1, RD - | xor CARG1, CARG1, TMP2 - | sub CARG1, CARG1, TMP2 - | bge ->fff_resi - | // Overflow to 2^31. - | lus CARG3, 0x41e0 // 2^31. - | li CARG1, 0 - | b ->fff_restv - |.endif - |3: // |x| < 1 - | slwi TMP2, CARG3, 1 - | srawi TMP1, CARG3, 31 - | or TMP2, CARG1, TMP2 // ztest = (hi+hi) | lo - |.if "func" == "floor" - | and TMP1, TMP2, TMP1 // (ztest & sign) == 0 ? 0 : -1 - | subfic TMP2, TMP1, 0 - | subfe CARG1, CARG1, CARG1 - |.else - | andc TMP1, TMP2, TMP1 // (ztest & ~sign) == 0 ? 0 : 1 - | addic TMP2, TMP1, -1 - | subfe CARG1, TMP2, TMP1 - |.endif - | b ->fff_resi - |4: // exp >= 31. Check for -(2^31). - | xoris TMP1, TMP1, 0x8000 - | srawi TMP2, CARG3, 31 - |.if "func" == "floor" - | or TMP1, TMP1, CARG2 - |.endif - |.if PPE - | orc TMP1, TMP1, TMP2 - | cmpwi TMP1, 0 - |.else - | orc. TMP1, TMP1, TMP2 - |.endif - | crand 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | lus CARG1, 0x8000 // -(2^31). - | beqy ->fff_resi - |5: - | lfd FARG1, 0(BASE) - | blex func - | b ->fff_resn - |.endmacro - | - |.if DUALNUM - | math_round floor - | math_round ceil - |.else - | // NYI: use internal implementation. - | math_extern floor - | math_extern ceil - |.endif - | - |.if SQRT - |.ffunc_n math_sqrt - | fsqrt FARG1, FARG1 - | b ->fff_resn - |.else - | math_extern sqrt - |.endif - | - |.ffunc math_log - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lfd FARG1, 0(BASE) - | bne ->fff_fallback // Need exactly 1 argument. - | checknum CARG3; bge ->fff_fallback - | blex log - | b ->fff_resn - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |.if DUALNUM - |.ffunc math_ldexp - | cmplwi NARGS8:RC, 16 - | lwz CARG3, 0(BASE) - | lfd FARG1, 0(BASE) - | lwz CARG4, 8(BASE) - |.if GPR64 - | lwz CARG2, 12(BASE) - |.else - | lwz CARG1, 12(BASE) - |.endif - | blt ->fff_fallback - | checknum CARG3; bge ->fff_fallback - | checknum CARG4; bne ->fff_fallback - |.else - |.ffunc_nn math_ldexp - |.if GPR64 - | toint CARG2, FARG2 - |.else - | toint CARG1, FARG2 - |.endif - |.endif - | blex ldexp - | b ->fff_resn - | - |.ffunc_n math_frexp - |.if GPR64 - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - |.else - | la CARG1, DISPATCH_GL(tmptv)(DISPATCH) - |.endif - | lwz PC, FRAME_PC(BASE) - | blex frexp - | lwz TMP1, DISPATCH_GL(tmptv)(DISPATCH) - | la RA, -8(BASE) - |.if not DUALNUM - | tonum_i FARG2, TMP1 - |.endif - | stfd FARG1, 0(RA) - | li RD, (2+1)*8 - |.if DUALNUM - | stw TISNUM, 8(RA) - | stw TMP1, 12(RA) - |.else - | stfd FARG2, 8(RA) - |.endif - | b ->fff_res - | - |.ffunc_n math_modf - |.if GPR64 - | la CARG2, -8(BASE) - |.else - | la CARG1, -8(BASE) - |.endif - | lwz PC, FRAME_PC(BASE) - | blex modf - | la RA, -8(BASE) - | stfd FARG1, 0(BASE) - | li RD, (2+1)*8 - | b ->fff_res - | - |.macro math_minmax, name, ismax - |.if DUALNUM - | .ffunc_1 name - | checknum CARG3 - | addi TMP1, BASE, 8 - | add TMP2, BASE, NARGS8:RC - | bne >4 - |1: // Handle integers. - | lwz CARG4, 0(TMP1) - | cmplw cr1, TMP1, TMP2 - | lwz CARG2, 4(TMP1) - | bge cr1, ->fff_resi - | checknum CARG4 - | xoris TMP0, CARG1, 0x8000 - | xoris TMP3, CARG2, 0x8000 - | bne >3 - | subfc TMP3, TMP3, TMP0 - | subfe TMP0, TMP0, TMP0 - |.if ismax - | andc TMP3, TMP3, TMP0 - |.else - | and TMP3, TMP3, TMP0 - |.endif - | add CARG1, TMP3, CARG2 - |.if GPR64 - | rldicl CARG1, CARG1, 0, 32 - |.endif - | addi TMP1, TMP1, 8 - | b <1 - |3: - | bge ->fff_fallback - | // Convert intermediate result to number and continue below. - | tonum_i FARG1, CARG1 - | lfd FARG2, 0(TMP1) - | b >6 - |4: - | lfd FARG1, 0(BASE) - | bge ->fff_fallback - |5: // Handle numbers. - | lwz CARG4, 0(TMP1) - | cmplw cr1, TMP1, TMP2 - | lfd FARG2, 0(TMP1) - | bge cr1, ->fff_resn - | checknum CARG4; bge >7 - |6: - | fsub f0, FARG1, FARG2 - | addi TMP1, TMP1, 8 - |.if ismax - | fsel FARG1, f0, FARG1, FARG2 - |.else - | fsel FARG1, f0, FARG2, FARG1 - |.endif - | b <5 - |7: // Convert integer to number and continue above. - | lwz CARG2, 4(TMP1) - | bne ->fff_fallback - | tonum_i FARG2, CARG2 - | b <6 - |.else - | .ffunc_n name - | li TMP1, 8 - |1: - | lwzx CARG2, BASE, TMP1 - | lfdx FARG2, BASE, TMP1 - | cmplw cr1, TMP1, NARGS8:RC - | checknum CARG2 - | bge cr1, ->fff_resn - | bge ->fff_fallback - | fsub f0, FARG1, FARG2 - | addi TMP1, TMP1, 8 - |.if ismax - | fsel FARG1, f0, FARG1, FARG2 - |.else - | fsel FARG1, f0, FARG2, FARG1 - |.endif - | b <1 - |.endif - |.endmacro - | - | math_minmax math_min, 0 - | math_minmax math_max, 1 - | - |//-- String library ----------------------------------------------------- - | - |.ffunc string_byte // Only handle the 1-arg case here. - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lwz STR:CARG1, 4(BASE) - | bne ->fff_fallback // Need exactly 1 argument. - | checkstr CARG3 - | bne ->fff_fallback - | lwz TMP0, STR:CARG1->len - |.if DUALNUM - | lbz CARG1, STR:CARG1[1] // Access is always ok (NUL at end). - | li RD, (0+1)*8 - | lwz PC, FRAME_PC(BASE) - | cmplwi TMP0, 0 - | la RA, -8(BASE) - | beqy ->fff_res - | b ->fff_resi - |.else - | lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end). - | addic TMP3, TMP0, -1 // RD = ((str->len != 0)+1)*8 - | subfe RD, TMP3, TMP0 - | stw TMP1, TONUM_LO // Inlined tonum_u f0, TMP1. - | addi RD, RD, 1 - | lfd f0, TONUM_D - | la RA, -8(BASE) - | lwz PC, FRAME_PC(BASE) - | fsub f0, f0, TOBIT - | slwi RD, RD, 3 - | stfd f0, 0(RA) - | b ->fff_res - |.endif - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - |.if DUALNUM - | lwz TMP0, 4(BASE) - | bne ->fff_fallback // Exactly 1 argument. - | checknum CARG3; bne ->fff_fallback - | la CARG2, 7(BASE) - |.else - | lfd FARG1, 0(BASE) - | bne ->fff_fallback // Exactly 1 argument. - | checknum CARG3; bge ->fff_fallback - | toint TMP0, FARG1 - | la CARG2, TMPD_BLO - |.endif - | li CARG3, 1 - | cmplwi TMP0, 255; bgt ->fff_fallback - |->fff_newstr: - | mr CARG1, L - | stp BASE, L->base - | stw PC, SAVE_PC - | bl extern lj_str_new // (lua_State *L, char *str, size_t l) - |->fff_resstr: - | // Returns GCstr *. - | lp BASE, L->base - | li CARG3, LJ_TSTR - | b ->fff_restv - | - |.ffunc string_sub - | ffgccheck - | cmplwi NARGS8:RC, 16 - | lwz CARG3, 16(BASE) - |.if not DUALNUM - | lfd f0, 16(BASE) - |.endif - | lwz TMP0, 0(BASE) - | lwz STR:CARG1, 4(BASE) - | blt ->fff_fallback - | lwz CARG2, 8(BASE) - |.if DUALNUM - | lwz TMP1, 12(BASE) - |.else - | lfd f1, 8(BASE) - |.endif - | li TMP2, -1 - | beq >1 - |.if DUALNUM - | checknum CARG3 - | lwz TMP2, 20(BASE) - | bne ->fff_fallback - |1: - | checknum CARG2; bne ->fff_fallback - |.else - | checknum CARG3; bge ->fff_fallback - | toint TMP2, f0 - |1: - | checknum CARG2; bge ->fff_fallback - |.endif - | checkstr TMP0; bne ->fff_fallback - |.if not DUALNUM - | toint TMP1, f1 - |.endif - | lwz TMP0, STR:CARG1->len - | cmplw TMP0, TMP2 // len < end? (unsigned compare) - | addi TMP3, TMP2, 1 - | blt >5 - |2: - | cmpwi TMP1, 0 // start <= 0? - | add TMP3, TMP1, TMP0 - | ble >7 - |3: - | sub CARG3, TMP2, TMP1 - | addi CARG2, STR:CARG1, #STR-1 - | srawi TMP0, CARG3, 31 - | addi CARG3, CARG3, 1 - | add CARG2, CARG2, TMP1 - | andc CARG3, CARG3, TMP0 - |.if GPR64 - | rldicl CARG2, CARG2, 0, 32 - | rldicl CARG3, CARG3, 0, 32 - |.endif - | b ->fff_newstr - | - |5: // Negative end or overflow. - | cmpw TMP0, TMP2 // len >= end? (signed compare) - | add TMP2, TMP0, TMP3 // Negative end: end = end+len+1. - | bge <2 - | mr TMP2, TMP0 // Overflow: end = len. - | b <2 - | - |7: // Negative start or underflow. - | .gpr64 extsw TMP1, TMP1 - | addic CARG3, TMP1, -1 - | subfe CARG3, CARG3, CARG3 - | srawi CARG2, TMP3, 31 // Note: modifies carry. - | andc TMP3, TMP3, CARG3 - | andc TMP1, TMP3, CARG2 - | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0) - | b <3 - | - |.macro ffstring_op, name - | .ffunc string_ .. name - | ffgccheck - | cmplwi NARGS8:RC, 8 - | lwz CARG3, 0(BASE) - | lwz STR:CARG2, 4(BASE) - | blt ->fff_fallback - | checkstr CARG3 - | la SBUF:CARG1, DISPATCH_GL(tmpbuf)(DISPATCH) - | bne ->fff_fallback - | lwz TMP0, SBUF:CARG1->b - | stw L, SBUF:CARG1->L - | stp BASE, L->base - | stw PC, SAVE_PC - | stw TMP0, SBUF:CARG1->p - | bl extern lj_buf_putstr_ .. name - | bl extern lj_buf_tostr - | b ->fff_resstr - |.endmacro - | - |ffstring_op reverse - |ffstring_op lower - |ffstring_op upper - | - |//-- Bit library -------------------------------------------------------- - | - |.macro .ffunc_bit, name - |.if DUALNUM - | .ffunc_1 bit_..name - | checknum CARG3; bnel ->fff_tobit_fb - |.else - | .ffunc_n bit_..name - | fadd FARG1, FARG1, TOBIT - | stfd FARG1, TMPD - | lwz CARG1, TMPD_LO - |.endif - |.endmacro - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name - | addi TMP1, BASE, 8 - | add TMP2, BASE, NARGS8:RC - |1: - | lwz CARG4, 0(TMP1) - | cmplw cr1, TMP1, TMP2 - |.if DUALNUM - | lwz CARG2, 4(TMP1) - |.else - | lfd FARG1, 0(TMP1) - |.endif - | bgey cr1, ->fff_resi - | checknum CARG4 - |.if DUALNUM - | bnel ->fff_bitop_fb - |.else - | fadd FARG1, FARG1, TOBIT - | bge ->fff_fallback - | stfd FARG1, TMPD - | lwz CARG2, TMPD_LO - |.endif - | ins CARG1, CARG1, CARG2 - | addi TMP1, TMP1, 8 - | b <1 - |.endmacro - | - |.ffunc_bit_op band, and - |.ffunc_bit_op bor, or - |.ffunc_bit_op bxor, xor - | - |.ffunc_bit bswap - | rotlwi TMP0, CARG1, 8 - | rlwimi TMP0, CARG1, 24, 0, 7 - | rlwimi TMP0, CARG1, 24, 16, 23 - | mr CRET1, TMP0 - | b ->fff_resi - | - |.ffunc_bit bnot - | not CRET1, CARG1 - | b ->fff_resi - | - |.macro .ffunc_bit_sh, name, ins, shmod - |.if DUALNUM - | .ffunc_2 bit_..name - | checknum CARG3; bnel ->fff_tobit_fb - | // Note: no inline conversion from number for 2nd argument! - | checknum CARG4; bne ->fff_fallback - |.else - | .ffunc_nn bit_..name - | fadd FARG1, FARG1, TOBIT - | fadd FARG2, FARG2, TOBIT - | stfd FARG1, TMPD - | lwz CARG1, TMPD_LO - | stfd FARG2, TMPD - | lwz CARG2, TMPD_LO - |.endif - |.if shmod == 1 - | rlwinm CARG2, CARG2, 0, 27, 31 - |.elif shmod == 2 - | neg CARG2, CARG2 - |.endif - | ins CRET1, CARG1, CARG2 - | b ->fff_resi - |.endmacro - | - |.ffunc_bit_sh lshift, slw, 1 - |.ffunc_bit_sh rshift, srw, 1 - |.ffunc_bit_sh arshift, sraw, 1 - |.ffunc_bit_sh rol, rotlw, 0 - |.ffunc_bit_sh ror, rotlw, 2 - | - |.ffunc_bit tobit - |.if DUALNUM - | b ->fff_resi - |.else - |->fff_resi: - | tonum_i FARG1, CRET1 - |.endif - |->fff_resn: - | lwz PC, FRAME_PC(BASE) - | la RA, -8(BASE) - | stfd FARG1, -8(BASE) - | b ->fff_res1 - | - |// Fallback FP number to bit conversion. - |->fff_tobit_fb: - |.if DUALNUM - | lfd FARG1, 0(BASE) - | bgt ->fff_fallback - | fadd FARG1, FARG1, TOBIT - | stfd FARG1, TMPD - | lwz CARG1, TMPD_LO - | blr - |.endif - |->fff_bitop_fb: - |.if DUALNUM - | lfd FARG1, 0(TMP1) - | bgt ->fff_fallback - | fadd FARG1, FARG1, TOBIT - | stfd FARG1, TMPD - | lwz CARG2, TMPD_LO - | blr - |.endif - | - |//----------------------------------------------------------------------- - | - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RB = CFUNC, RC = nargs*8 - | lp TMP3, CFUNC:RB->f - | add TMP1, BASE, NARGS8:RC - | lwz PC, FRAME_PC(BASE) // Fallback may overwrite PC. - | addi TMP0, TMP1, 8*LUA_MINSTACK - | lwz TMP2, L->maxstack - | stw PC, SAVE_PC // Redundant (but a defined value). - | .toc lp TMP3, 0(TMP3) - | cmplw TMP0, TMP2 - | stp BASE, L->base - | stp TMP1, L->top - | mr CARG1, L - | bgt >5 // Need to grow stack. - | mtctr TMP3 - | bctrl // (lua_State *L) - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | lp BASE, L->base - | cmpwi CRET1, 0 - | slwi RD, CRET1, 3 - | la RA, -8(BASE) - | bgt ->fff_res // Returned nresults+1? - |1: // Returned 0 or -1: retry fast path. - | lp TMP0, L->top - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | sub NARGS8:RC, TMP0, BASE - | bne ->vm_call_tail // Returned -1? - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | andix. TMP0, PC, FRAME_TYPE - | rlwinm TMP1, PC, 0, 0, 28 - | bne >3 - | lwz INS, -4(PC) - | decode_RA8 TMP1, INS - | addi TMP1, TMP1, 8 - |3: - | sub TMP2, BASE, TMP1 - | b ->vm_call_dispatch // Resolve again for tailcall. - | - |5: // Grow stack for fallback handler. - | li CARG2, LUA_MINSTACK - | bl extern lj_state_growstack // (lua_State *L, int n) - | lp BASE, L->base - | cmpw TMP0, TMP0 // Set 4*cr0+eq to force retry. - | b <1 - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RC = nargs*8 - | mflr SAVE0 - | stp BASE, L->base - | add TMP0, BASE, NARGS8:RC - | stw PC, SAVE_PC // Redundant (but a defined value). - | stp TMP0, L->top - | mr CARG1, L - | bl extern lj_gc_step // (lua_State *L) - | lp BASE, L->base - | mtlr SAVE0 - | lp TMP0, L->top - | sub NARGS8:RC, TMP0, BASE - | lwz CFUNC:RB, FRAME_FUNC(BASE) - | blr - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - |.if JIT - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | andix. TMP0, TMP3, HOOK_VMEVENT // No recording while in vmevent. - | bne >5 - | // Decrement the hookcount for consistency, but always do the call. - | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andix. TMP0, TMP3, HOOK_ACTIVE - | bne >1 - | subi TMP2, TMP2, 1 - | andi. TMP0, TMP3, LUA_MASKLINE|LUA_MASKCOUNT - | beqy >1 - | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | b >1 - |.endif - | - |->vm_rethook: // Dispatch target for return hooks. - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | andix. TMP0, TMP3, HOOK_ACTIVE // Hook already active? - | beq >1 - |5: // Re-dispatch to static ins. - | addi TMP1, TMP1, GG_DISP2STATIC // Assumes decode_OPP TMP1, INS. - | lpx TMP0, DISPATCH, TMP1 - | mtctr TMP0 - | bctr - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andix. TMP0, TMP3, HOOK_ACTIVE // Hook already active? - | rlwinm TMP0, TMP3, 31-LUA_HOOKLINE, 31, 0 - | bne <5 - | - | cmpwi cr1, TMP0, 0 - | addic. TMP2, TMP2, -1 - | beq cr1, <5 - | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | beq >1 - | bge cr1, <5 - |1: - | mr CARG1, L - | stw MULTRES, SAVE_MULTRES - | mr CARG2, PC - | stp BASE, L->base - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) - |3: - | lp BASE, L->base - |4: // Re-dispatch to static ins. - | lwz INS, -4(PC) - | decode_OPP TMP1, INS - | decode_RB8 RB, INS - | addi TMP1, TMP1, GG_DISP2STATIC - | decode_RD8 RD, INS - | lpx TMP0, DISPATCH, TMP1 - | decode_RA8 RA, INS - | decode_RC8 RC, INS - | mtctr TMP0 - | bctr - | - |->cont_hook: // Continue from hook yield. - | addi PC, PC, 4 - | lwz MULTRES, -20(RB) // Restore MULTRES for *M ins. - | b <4 - | - |->vm_hotloop: // Hot loop counter underflow. - |.if JIT - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) - | addi CARG1, DISPATCH, GG_DISP2J - | stw PC, SAVE_PC - | lwz TMP1, LFUNC:TMP1->pc - | mr CARG2, PC - | stw L, DISPATCH_J(L)(DISPATCH) - | lbz TMP1, PC2PROTO(framesize)(TMP1) - | stp BASE, L->base - | slwi TMP1, TMP1, 3 - | add TMP1, BASE, TMP1 - | stp TMP1, L->top - | bl extern lj_trace_hot // (jit_State *J, const BCIns *pc) - | b <3 - |.endif - | - |->vm_callhook: // Dispatch target for call hooks. - | mr CARG2, PC - |.if JIT - | b >1 - |.endif - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | ori CARG2, PC, 1 - |1: - |.endif - | add TMP0, BASE, RC - | stw PC, SAVE_PC - | mr CARG1, L - | stp BASE, L->base - | sub RA, RA, BASE - | stp TMP0, L->top - | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) - | // Returns ASMFunction. - | lp BASE, L->base - | lp TMP0, L->top - | stw ZERO, SAVE_PC // Invalidate for subsequent line hook. - | sub NARGS8:RC, TMP0, BASE - | add RA, BASE, RA - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | lwz INS, -4(PC) - | mtctr CRET1 - | bctr - | - |->cont_stitch: // Trace stitching. - |.if JIT - | // RA = resultptr, RB = meta base - | lwz INS, -4(PC) - | lwz TMP3, -20(RB) // Save previous trace number. - | addic. TMP1, MULTRES, -8 - | decode_RA8 RC, INS // Call base. - | beq >2 - |1: // Move results down. - | lfd f0, 0(RA) - | addic. TMP1, TMP1, -8 - | addi RA, RA, 8 - | stfdx f0, BASE, RC - | addi RC, RC, 8 - | bne <1 - |2: - | decode_RA8 RA, INS - | decode_RB8 RB, INS - | add RA, RA, RB - | lwz TMP1, DISPATCH_J(trace)(DISPATCH) - |3: - | cmplw RA, RC - | bgt >9 // More results wanted? - | - | slwi TMP2, TMP3, 2 - | lwzx TRACE:TMP2, TMP1, TMP2 - | cmpwi TRACE:TMP2, 0 - | beq ->cont_nop - | lhz RD, TRACE:TMP2->link - | cmpw RD, TMP3 - | cmpwi cr1, RD, 0 - | beq ->cont_nop // Blacklisted. - | slwi RD, RD, 3 - | bne cr1, =>BC_JLOOP // Jump to stitched trace. - | - | // Stitch a new trace to the previous trace. - | stw TMP3, DISPATCH_J(exitno)(DISPATCH) - | stp L, DISPATCH_J(L)(DISPATCH) - | stp BASE, L->base - | addi CARG1, DISPATCH, GG_DISP2J - | mr CARG2, PC - | bl extern lj_dispatch_stitch // (jit_State *J, const BCIns *pc) - | lp BASE, L->base - | b ->cont_nop - | - |9: - | stwx TISNIL, BASE, RC - | addi RC, RC, 8 - | b <3 - |.endif - | - |->vm_profhook: // Dispatch target for profiler hook. -#if LJ_HASPROFILE - | mr CARG1, L - | stw MULTRES, SAVE_MULTRES - | mr CARG2, PC - | stp BASE, L->base - | bl extern lj_dispatch_profile // (lua_State *L, const BCIns *pc) - | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. - | lp BASE, L->base - | subi PC, PC, 4 - | b ->cont_nop -#endif - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro savex_, a, b, c, d - | stfd f..a, 16+a*8(sp) - | stfd f..b, 16+b*8(sp) - | stfd f..c, 16+c*8(sp) - | stfd f..d, 16+d*8(sp) - |.endmacro - | - |->vm_exit_handler: - |.if JIT - | addi sp, sp, -(16+32*8+32*4) - | stmw r2, 16+32*8+2*4(sp) - | addi DISPATCH, JGL, -GG_DISP2G-32768 - | li CARG2, ~LJ_VMST_EXIT - | lwz CARG1, 16+32*8+32*4(sp) // Get stack chain. - | stw CARG2, DISPATCH_GL(vmstate)(DISPATCH) - | savex_ 0,1,2,3 - | stw CARG1, 0(sp) // Store extended stack chain. - | clrso TMP1 - | savex_ 4,5,6,7 - | addi CARG2, sp, 16+32*8+32*4 // Recompute original value of sp. - | savex_ 8,9,10,11 - | stw CARG2, 16+32*8+1*4(sp) // Store sp in RID_SP. - | savex_ 12,13,14,15 - | mflr CARG3 - | li TMP1, 0 - | savex_ 16,17,18,19 - | stw TMP1, 16+32*8+0*4(sp) // Clear RID_TMP. - | savex_ 20,21,22,23 - | lhz CARG4, 2(CARG3) // Load trace number. - | savex_ 24,25,26,27 - | lwz L, DISPATCH_GL(cur_L)(DISPATCH) - | savex_ 28,29,30,31 - | sub CARG3, TMP0, CARG3 // Compute exit number. - | lp BASE, DISPATCH_GL(jit_base)(DISPATCH) - | srwi CARG3, CARG3, 2 - | stp L, DISPATCH_J(L)(DISPATCH) - | subi CARG3, CARG3, 2 - | stp BASE, L->base - | stw CARG4, DISPATCH_J(parent)(DISPATCH) - | stw TMP1, DISPATCH_GL(jit_base)(DISPATCH) - | addi CARG1, DISPATCH, GG_DISP2J - | stw CARG3, DISPATCH_J(exitno)(DISPATCH) - | addi CARG2, sp, 16 - | bl extern lj_trace_exit // (jit_State *J, ExitState *ex) - | // Returns MULTRES (unscaled) or negated error code. - | lp TMP1, L->cframe - | lwz TMP2, 0(sp) - | lp BASE, L->base - |.if GPR64 - | rldicr sp, TMP1, 0, 61 - |.else - | rlwinm sp, TMP1, 0, 0, 29 - |.endif - | lwz PC, SAVE_PC // Get SAVE_PC. - | stw TMP2, 0(sp) - | stw L, SAVE_L // Set SAVE_L (on-trace resume/yield). - | b >1 - |.endif - |->vm_exit_interp: - |.if JIT - | // CARG1 = MULTRES or negated error code, BASE, PC and JGL set. - | lwz L, SAVE_L - | addi DISPATCH, JGL, -GG_DISP2G-32768 - | stp BASE, L->base - |1: - | cmpwi CARG1, 0 - | blt >9 // Check for error from exit. - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | slwi MULTRES, CARG1, 3 - | li TMP2, 0 - | stw MULTRES, SAVE_MULTRES - | lwz TMP1, LFUNC:RB->pc - | stw TMP2, DISPATCH_GL(jit_base)(DISPATCH) - | lwz KBASE, PC2PROTO(k)(TMP1) - | // Setup type comparison constants. - | li TISNUM, LJ_TISNUM - | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | stw TMP3, TMPD - | li ZERO, 0 - | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). - | lfs TOBIT, TMPD - | stw TMP3, TMPD - | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) - | li TISNIL, LJ_TNIL - | stw TMP0, TONUM_HI - | lfs TONUM, TMPD - | // Modified copy of ins_next which handles function header dispatch, too. - | lwz INS, 0(PC) - | addi PC, PC, 4 - | // Assumes TISNIL == ~LJ_VMST_INTERP == -1. - | stw TISNIL, DISPATCH_GL(vmstate)(DISPATCH) - | decode_OPP TMP1, INS - | decode_RA8 RA, INS - | lpx TMP0, DISPATCH, TMP1 - | mtctr TMP0 - | cmplwi TMP1, BC_FUNCF*4 // Function header? - | bge >2 - | decode_RB8 RB, INS - | decode_RD8 RD, INS - | decode_RC8 RC, INS - | bctr - |2: - | cmplwi TMP1, (BC_FUNCC+2)*4 // Fast function? - | blt >3 - | // Check frame below fast function. - | lwz TMP1, FRAME_PC(BASE) - | andix. TMP0, TMP1, FRAME_TYPE - | bney >3 // Trace stitching continuation? - | // Otherwise set KBASE for Lua function below fast function. - | lwz TMP2, -4(TMP1) - | decode_RA8 TMP0, TMP2 - | sub TMP1, BASE, TMP0 - | lwz LFUNC:TMP2, -12(TMP1) - | lwz TMP1, LFUNC:TMP2->pc - | lwz KBASE, PC2PROTO(k)(TMP1) - |3: - | subi RC, MULTRES, 8 - | add RA, RA, BASE - | bctr - | - |9: // Rethrow error from the right C frame. - | neg CARG2, CARG1 - | mr CARG1, L - | bl extern lj_err_throw // (lua_State *L, int errcode) - |.endif - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - |// NYI: Use internal implementations of floor, ceil, trunc. - | - |->vm_modi: - | divwo. TMP0, CARG1, CARG2 - | bso >1 - |.if GPR64 - | xor CARG3, CARG1, CARG2 - | cmpwi CARG3, 0 - |.else - | xor. CARG3, CARG1, CARG2 - |.endif - | mullw TMP0, TMP0, CARG2 - | sub CARG1, CARG1, TMP0 - | bgelr - | cmpwi CARG1, 0; beqlr - | add CARG1, CARG1, CARG2 - | blr - |1: - | cmpwi CARG2, 0 - | li CARG1, 0 - | beqlr - | clrso TMP0 // Clear SO for -2147483648 % -1 and return 0. - | blr - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |// void lj_vm_cachesync(void *start, void *end) - |// Flush D-Cache and invalidate I-Cache. Assumes 32 byte cache line size. - |// This is a good lower bound, except for very ancient PPC models. - |->vm_cachesync: - |.if JIT or FFI - | // Compute start of first cache line and number of cache lines. - | rlwinm CARG1, CARG1, 0, 0, 26 - | sub CARG2, CARG2, CARG1 - | addi CARG2, CARG2, 31 - | rlwinm. CARG2, CARG2, 27, 5, 31 - | beqlr - | mtctr CARG2 - | mr CARG3, CARG1 - |1: // Flush D-Cache. - | dcbst r0, CARG1 - | addi CARG1, CARG1, 32 - | bdnz <1 - | sync - | mtctr CARG2 - |1: // Invalidate I-Cache. - | icbi r0, CARG3 - | addi CARG3, CARG3, 32 - | bdnz <1 - | isync - | blr - |.endif - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Handler for callback functions. Callback slot number in r11, g in r12. - |->vm_ffi_callback: - |.if FFI - |.type CTSTATE, CTState, PC - | saveregs - | lwz CTSTATE, GL:r12->ctype_state - | addi DISPATCH, r12, GG_G2DISP - | stw r11, CTSTATE->cb.slot - | stw r3, CTSTATE->cb.gpr[0] - | stfd f1, CTSTATE->cb.fpr[0] - | stw r4, CTSTATE->cb.gpr[1] - | stfd f2, CTSTATE->cb.fpr[1] - | stw r5, CTSTATE->cb.gpr[2] - | stfd f3, CTSTATE->cb.fpr[2] - | stw r6, CTSTATE->cb.gpr[3] - | stfd f4, CTSTATE->cb.fpr[3] - | stw r7, CTSTATE->cb.gpr[4] - | stfd f5, CTSTATE->cb.fpr[4] - | stw r8, CTSTATE->cb.gpr[5] - | stfd f6, CTSTATE->cb.fpr[5] - | stw r9, CTSTATE->cb.gpr[6] - | stfd f7, CTSTATE->cb.fpr[6] - | stw r10, CTSTATE->cb.gpr[7] - | stfd f8, CTSTATE->cb.fpr[7] - | addi TMP0, sp, CFRAME_SPACE+8 - | stw TMP0, CTSTATE->cb.stack - | mr CARG1, CTSTATE - | stw CTSTATE, SAVE_PC // Any value outside of bytecode is ok. - | mr CARG2, sp - | bl extern lj_ccallback_enter // (CTState *cts, void *cf) - | // Returns lua_State *. - | lp BASE, L:CRET1->base - | li TISNUM, LJ_TISNUM // Setup type comparison constants. - | lp RC, L:CRET1->top - | lus TMP3, 0x59c0 // TOBIT = 2^52 + 2^51 (float). - | li ZERO, 0 - | mr L, CRET1 - | stw TMP3, TMPD - | lus TMP0, 0x4338 // Hiword of 2^52 + 2^51 (double) - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | ori TMP3, TMP3, 0x0004 // TONUM = 2^52 + 2^51 + 2^31 (float). - | stw TMP0, TONUM_HI - | li TISNIL, LJ_TNIL - | li_vmstate INTERP - | lfs TOBIT, TMPD - | stw TMP3, TMPD - | sub RC, RC, BASE - | st_vmstate - | lfs TONUM, TMPD - | ins_callt - |.endif - | - |->cont_ffi_callback: // Return from FFI callback. - |.if FFI - | lwz CTSTATE, DISPATCH_GL(ctype_state)(DISPATCH) - | stp BASE, L->base - | stp RB, L->top - | stp L, CTSTATE->L - | mr CARG1, CTSTATE - | mr CARG2, RA - | bl extern lj_ccallback_leave // (CTState *cts, TValue *o) - | lwz CRET1, CTSTATE->cb.gpr[0] - | lfd FARG1, CTSTATE->cb.fpr[0] - | lwz CRET2, CTSTATE->cb.gpr[1] - | b ->vm_leave_unw - |.endif - | - |->vm_ffi_call: // Call C function via FFI. - | // Caveat: needs special frame unwinding, see below. - |.if FFI - | .type CCSTATE, CCallState, CARG1 - | lwz TMP1, CCSTATE->spadj - | mflr TMP0 - | lbz CARG2, CCSTATE->nsp - | lbz CARG3, CCSTATE->nfpr - | neg TMP1, TMP1 - | stw TMP0, 4(sp) - | cmpwi cr1, CARG3, 0 - | mr TMP2, sp - | addic. CARG2, CARG2, -1 - | stwux sp, sp, TMP1 - | crnot 4*cr1+eq, 4*cr1+eq // For vararg calls. - | stw r14, -4(TMP2) - | stw CCSTATE, -8(TMP2) - | mr r14, TMP2 - | la TMP1, CCSTATE->stack - | slwi CARG2, CARG2, 2 - | blty >2 - | la TMP2, 8(sp) - |1: - | lwzx TMP0, TMP1, CARG2 - | stwx TMP0, TMP2, CARG2 - | addic. CARG2, CARG2, -4 - | bge <1 - |2: - | bney cr1, >3 - | lfd f1, CCSTATE->fpr[0] - | lfd f2, CCSTATE->fpr[1] - | lfd f3, CCSTATE->fpr[2] - | lfd f4, CCSTATE->fpr[3] - | lfd f5, CCSTATE->fpr[4] - | lfd f6, CCSTATE->fpr[5] - | lfd f7, CCSTATE->fpr[6] - | lfd f8, CCSTATE->fpr[7] - |3: - | lp TMP0, CCSTATE->func - | lwz CARG2, CCSTATE->gpr[1] - | lwz CARG3, CCSTATE->gpr[2] - | lwz CARG4, CCSTATE->gpr[3] - | lwz CARG5, CCSTATE->gpr[4] - | mtctr TMP0 - | lwz r8, CCSTATE->gpr[5] - | lwz r9, CCSTATE->gpr[6] - | lwz r10, CCSTATE->gpr[7] - | lwz CARG1, CCSTATE->gpr[0] // Do this last, since CCSTATE is CARG1. - | bctrl - | lwz CCSTATE:TMP1, -8(r14) - | lwz TMP2, -4(r14) - | lwz TMP0, 4(r14) - | stw CARG1, CCSTATE:TMP1->gpr[0] - | stfd FARG1, CCSTATE:TMP1->fpr[0] - | stw CARG2, CCSTATE:TMP1->gpr[1] - | mtlr TMP0 - | stw CARG3, CCSTATE:TMP1->gpr[2] - | mr sp, r14 - | stw CARG4, CCSTATE:TMP1->gpr[3] - | mr r14, TMP2 - | blr - |.endif - |// Note: vm_ffi_call must be the last function in this object file! - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1*8, RD = src2*8, JMP with RD = target - |.if DUALNUM - | lwzux TMP0, RA, BASE - | addi PC, PC, 4 - | lwz CARG2, 4(RA) - | lwzux TMP1, RD, BASE - | lwz TMP2, -4(PC) - | checknum cr0, TMP0 - | lwz CARG3, 4(RD) - | decode_RD4 TMP2, TMP2 - | checknum cr1, TMP1 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | bne cr0, >7 - | bne cr1, >8 - | cmpw CARG2, CARG3 - if (op == BC_ISLT) { - | bge >2 - } else if (op == BC_ISGE) { - | blt >2 - } else if (op == BC_ISLE) { - | bgt >2 - } else { - | ble >2 - } - |1: - | add PC, PC, TMP2 - |2: - | ins_next - | - |7: // RA is not an integer. - | bgt cr0, ->vmeta_comp - | // RA is a number. - | lfd f0, 0(RA) - | bgt cr1, ->vmeta_comp - | blt cr1, >4 - | // RA is a number, RD is an integer. - | tonum_i f1, CARG3 - | b >5 - | - |8: // RA is an integer, RD is not an integer. - | bgt cr1, ->vmeta_comp - | // RA is an integer, RD is a number. - | tonum_i f0, CARG2 - |4: - | lfd f1, 0(RD) - |5: - | fcmpu cr0, f0, f1 - if (op == BC_ISLT) { - | bge <2 - } else if (op == BC_ISGE) { - | blt <2 - } else if (op == BC_ISLE) { - | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq - | bge <2 - } else { - | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq - | blt <2 - } - | b <1 - |.else - | lwzx TMP0, BASE, RA - | addi PC, PC, 4 - | lfdx f0, BASE, RA - | lwzx TMP1, BASE, RD - | checknum cr0, TMP0 - | lwz TMP2, -4(PC) - | lfdx f1, BASE, RD - | checknum cr1, TMP1 - | decode_RD4 TMP2, TMP2 - | bge cr0, ->vmeta_comp - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | bge cr1, ->vmeta_comp - | fcmpu cr0, f0, f1 - if (op == BC_ISLT) { - | bge >1 - } else if (op == BC_ISGE) { - | blt >1 - } else if (op == BC_ISLE) { - | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq - | bge >1 - } else { - | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+eq - | blt >1 - } - | add PC, PC, TMP2 - |1: - | ins_next - |.endif - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | // RA = src1*8, RD = src2*8, JMP with RD = target - |.if DUALNUM - | lwzux TMP0, RA, BASE - | addi PC, PC, 4 - | lwz CARG2, 4(RA) - | lwzux TMP1, RD, BASE - | checknum cr0, TMP0 - | lwz TMP2, -4(PC) - | checknum cr1, TMP1 - | decode_RD4 TMP2, TMP2 - | lwz CARG3, 4(RD) - | cror 4*cr7+gt, 4*cr0+gt, 4*cr1+gt - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - if (vk) { - | ble cr7, ->BC_ISEQN_Z - } else { - | ble cr7, ->BC_ISNEN_Z - } - |.else - | lwzux TMP0, RA, BASE - | lwz TMP2, 0(PC) - | lfd f0, 0(RA) - | addi PC, PC, 4 - | lwzux TMP1, RD, BASE - | checknum cr0, TMP0 - | decode_RD4 TMP2, TMP2 - | lfd f1, 0(RD) - | checknum cr1, TMP1 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | bge cr0, >5 - | bge cr1, >5 - | fcmpu cr0, f0, f1 - if (vk) { - | bne >1 - | add PC, PC, TMP2 - } else { - | beq >1 - | add PC, PC, TMP2 - } - |1: - | ins_next - |.endif - |5: // Either or both types are not numbers. - |.if not DUALNUM - | lwz CARG2, 4(RA) - | lwz CARG3, 4(RD) - |.endif - |.if FFI - | cmpwi cr7, TMP0, LJ_TCDATA - | cmpwi cr5, TMP1, LJ_TCDATA - |.endif - | not TMP3, TMP0 - | cmplw TMP0, TMP1 - | cmplwi cr1, TMP3, ~LJ_TISPRI // Primitive? - |.if FFI - | cror 4*cr7+eq, 4*cr7+eq, 4*cr5+eq - |.endif - | cmplwi cr6, TMP3, ~LJ_TISTABUD // Table or userdata? - |.if FFI - | beq cr7, ->vmeta_equal_cd - |.endif - | cmplw cr5, CARG2, CARG3 - | crandc 4*cr0+gt, 4*cr0+eq, 4*cr1+gt // 2: Same type and primitive. - | crorc 4*cr0+lt, 4*cr5+eq, 4*cr0+eq // 1: Same tv or different type. - | crand 4*cr0+eq, 4*cr0+eq, 4*cr5+eq // 0: Same type and same tv. - | mr SAVE0, PC - | cror 4*cr0+eq, 4*cr0+eq, 4*cr0+gt // 0 or 2. - | cror 4*cr0+lt, 4*cr0+lt, 4*cr0+gt // 1 or 2. - if (vk) { - | bne cr0, >6 - | add PC, PC, TMP2 - |6: - } else { - | beq cr0, >6 - | add PC, PC, TMP2 - |6: - } - |.if DUALNUM - | bge cr0, >2 // Done if 1 or 2. - |1: - | ins_next - |2: - |.else - | blt cr0, <1 // Done if 1 or 2. - |.endif - | blt cr6, <1 // Done if not tab/ud. - | - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | lwz TAB:TMP2, TAB:CARG2->metatable - | li CARG4, 1-vk // ne = 0 or 1. - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable? - | lbz TMP2, TAB:TMP2->nomm - | andix. TMP2, TMP2, 1<vmeta_equal // Handle __eq metamethod. - break; - - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | // RA = src*8, RD = str_const*8 (~), JMP with RD = target - | lwzux TMP0, RA, BASE - | srwi RD, RD, 1 - | lwz STR:TMP3, 4(RA) - | lwz TMP2, 0(PC) - | subfic RD, RD, -4 - | addi PC, PC, 4 - |.if FFI - | cmpwi TMP0, LJ_TCDATA - |.endif - | lwzx STR:TMP1, KBASE, RD // KBASE-4-str_const*4 - | .gpr64 extsw TMP0, TMP0 - | subfic TMP0, TMP0, LJ_TSTR - |.if FFI - | beq ->vmeta_equal_cd - |.endif - | sub TMP1, STR:TMP1, STR:TMP3 - | or TMP0, TMP0, TMP1 - | decode_RD4 TMP2, TMP2 - | subfic TMP0, TMP0, 0 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | subfe TMP1, TMP1, TMP1 - if (vk) { - | andc TMP2, TMP2, TMP1 - } else { - | and TMP2, TMP2, TMP1 - } - | add PC, PC, TMP2 - | ins_next - break; - - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | // RA = src*8, RD = num_const*8, JMP with RD = target - |.if DUALNUM - | lwzux TMP0, RA, BASE - | addi PC, PC, 4 - | lwz CARG2, 4(RA) - | lwzux TMP1, RD, KBASE - | checknum cr0, TMP0 - | lwz TMP2, -4(PC) - | checknum cr1, TMP1 - | decode_RD4 TMP2, TMP2 - | lwz CARG3, 4(RD) - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - if (vk) { - |->BC_ISEQN_Z: - } else { - |->BC_ISNEN_Z: - } - | bne cr0, >7 - | bne cr1, >8 - | cmpw CARG2, CARG3 - |4: - |.else - if (vk) { - |->BC_ISEQN_Z: // Dummy label. - } else { - |->BC_ISNEN_Z: // Dummy label. - } - | lwzx TMP0, BASE, RA - | addi PC, PC, 4 - | lfdx f0, BASE, RA - | lwz TMP2, -4(PC) - | lfdx f1, KBASE, RD - | decode_RD4 TMP2, TMP2 - | checknum TMP0 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | bge >3 - | fcmpu cr0, f0, f1 - |.endif - if (vk) { - | bne >1 - | add PC, PC, TMP2 - |1: - |.if not FFI - |3: - |.endif - } else { - | beq >2 - |1: - |.if not FFI - |3: - |.endif - | add PC, PC, TMP2 - |2: - } - | ins_next - |.if FFI - |3: - | cmpwi TMP0, LJ_TCDATA - | beq ->vmeta_equal_cd - | b <1 - |.endif - |.if DUALNUM - |7: // RA is not an integer. - | bge cr0, <3 - | // RA is a number. - | lfd f0, 0(RA) - | blt cr1, >1 - | // RA is a number, RD is an integer. - | tonum_i f1, CARG3 - | b >2 - | - |8: // RA is an integer, RD is a number. - | tonum_i f0, CARG2 - |1: - | lfd f1, 0(RD) - |2: - | fcmpu cr0, f0, f1 - | b <4 - |.endif - break; - - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target - | lwzx TMP0, BASE, RA - | srwi TMP1, RD, 3 - | lwz TMP2, 0(PC) - | not TMP1, TMP1 - | addi PC, PC, 4 - |.if FFI - | cmpwi TMP0, LJ_TCDATA - |.endif - | sub TMP0, TMP0, TMP1 - |.if FFI - | beq ->vmeta_equal_cd - |.endif - | decode_RD4 TMP2, TMP2 - | .gpr64 extsw TMP0, TMP0 - | addic TMP0, TMP0, -1 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - | subfe TMP1, TMP1, TMP1 - if (vk) { - | and TMP2, TMP2, TMP1 - } else { - | andc TMP2, TMP2, TMP1 - } - | add PC, PC, TMP2 - | ins_next - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | // RA = dst*8 or unused, RD = src*8, JMP with RD = target - | lwzx TMP0, BASE, RD - | lwz INS, 0(PC) - | addi PC, PC, 4 - if (op == BC_IST || op == BC_ISF) { - | .gpr64 extsw TMP0, TMP0 - | subfic TMP0, TMP0, LJ_TTRUE - | decode_RD4 TMP2, INS - | subfe TMP1, TMP1, TMP1 - | addis TMP2, TMP2, -(BCBIAS_J*4 >> 16) - if (op == BC_IST) { - | andc TMP2, TMP2, TMP1 - } else { - | and TMP2, TMP2, TMP1 - } - | add PC, PC, TMP2 - } else { - | li TMP1, LJ_TFALSE - | lfdx f0, BASE, RD - | cmplw TMP0, TMP1 - if (op == BC_ISTC) { - | bge >1 - } else { - | blt >1 - } - | addis PC, PC, -(BCBIAS_J*4 >> 16) - | decode_RD4 TMP2, INS - | stfdx f0, BASE, RA - | add PC, PC, TMP2 - |1: - } - | ins_next - break; - - case BC_ISTYPE: - | // RA = src*8, RD = -type*8 - | lwzx TMP0, BASE, RA - | srwi TMP1, RD, 3 - | ins_next1 - |.if not PPE and not GPR64 - | add. TMP0, TMP0, TMP1 - |.else - | neg TMP1, TMP1 - | cmpw TMP0, TMP1 - |.endif - | bne ->vmeta_istype - | ins_next2 - break; - case BC_ISNUM: - | // RA = src*8, RD = -(TISNUM-1)*8 - | lwzx TMP0, BASE, RA - | ins_next1 - | checknum TMP0 - | bge ->vmeta_istype - | ins_next2 - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | // RA = dst*8, RD = src*8 - | ins_next1 - | lfdx f0, BASE, RD - | stfdx f0, BASE, RA - | ins_next2 - break; - case BC_NOT: - | // RA = dst*8, RD = src*8 - | ins_next1 - | lwzx TMP0, BASE, RD - | .gpr64 extsw TMP0, TMP0 - | subfic TMP1, TMP0, LJ_TTRUE - | adde TMP0, TMP0, TMP1 - | stwx TMP0, BASE, RA - | ins_next2 - break; - case BC_UNM: - | // RA = dst*8, RD = src*8 - | lwzux TMP1, RD, BASE - | lwz TMP0, 4(RD) - | checknum TMP1 - |.if DUALNUM - | bne >5 - |.if GPR64 - | lus TMP2, 0x8000 - | neg TMP0, TMP0 - | cmplw TMP0, TMP2 - | beq >4 - |.else - | nego. TMP0, TMP0 - | bso >4 - |1: - |.endif - | ins_next1 - | stwux TISNUM, RA, BASE - | stw TMP0, 4(RA) - |3: - | ins_next2 - |4: - |.if not GPR64 - | // Potential overflow. - | checkov TMP1, <1 // Ignore unrelated overflow. - |.endif - | lus TMP1, 0x41e0 // 2^31. - | li TMP0, 0 - | b >7 - |.endif - |5: - | bge ->vmeta_unm - | xoris TMP1, TMP1, 0x8000 - |7: - | ins_next1 - | stwux TMP1, RA, BASE - | stw TMP0, 4(RA) - |.if DUALNUM - | b <3 - |.else - | ins_next2 - |.endif - break; - case BC_LEN: - | // RA = dst*8, RD = src*8 - | lwzux TMP0, RD, BASE - | lwz CARG1, 4(RD) - | checkstr TMP0; bne >2 - | lwz CRET1, STR:CARG1->len - |1: - |.if DUALNUM - | ins_next1 - | stwux TISNUM, RA, BASE - | stw CRET1, 4(RA) - |.else - | tonum_u f0, CRET1 // Result is a non-negative integer. - | ins_next1 - | stfdx f0, BASE, RA - |.endif - | ins_next2 - |2: - | checktab TMP0; bne ->vmeta_len -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | cmplwi TAB:TMP2, 0 - | bne >9 - |3: -#endif - |->BC_LEN_Z: - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | b <1 -#if LJ_52 - |9: - | lbz TMP0, TAB:TMP2->nomm - | andix. TMP0, TMP0, 1<vmeta_len -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithpre - | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | lwzx TMP1, BASE, RB - | .if DUALNUM - | lwzx TMP2, KBASE, RC - | .endif - | lfdx f14, BASE, RB - | lfdx f15, KBASE, RC - | .if DUALNUM - | checknum cr0, TMP1 - | checknum cr1, TMP2 - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | bge ->vmeta_arith_vn - | .else - | checknum TMP1; bge ->vmeta_arith_vn - | .endif - || break; - ||case 1: - | lwzx TMP1, BASE, RB - | .if DUALNUM - | lwzx TMP2, KBASE, RC - | .endif - | lfdx f15, BASE, RB - | lfdx f14, KBASE, RC - | .if DUALNUM - | checknum cr0, TMP1 - | checknum cr1, TMP2 - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | bge ->vmeta_arith_nv - | .else - | checknum TMP1; bge ->vmeta_arith_nv - | .endif - || break; - ||default: - | lwzx TMP1, BASE, RB - | lwzx TMP2, BASE, RC - | lfdx f14, BASE, RB - | lfdx f15, BASE, RC - | checknum cr0, TMP1 - | checknum cr1, TMP2 - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | bge ->vmeta_arith_vv - || break; - ||} - |.endmacro - | - |.macro ins_arithfallback, ins - ||switch (vk) { - ||case 0: - | ins ->vmeta_arith_vn2 - || break; - ||case 1: - | ins ->vmeta_arith_nv2 - || break; - ||default: - | ins ->vmeta_arith_vv2 - || break; - ||} - |.endmacro - | - |.macro intmod, a, b, c - | bl ->vm_modi - |.endmacro - | - |.macro fpmod, a, b, c - |->BC_MODVN_Z: - | fdiv FARG1, b, c - | // NYI: Use internal implementation of floor. - | blex floor // floor(b/c) - | fmul a, FARG1, c - | fsub a, b, a // b - floor(b/c)*c - |.endmacro - | - |.macro ins_arithfp, fpins - | ins_arithpre - |.if "fpins" == "fpmod_" - | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. - |.else - | fpins f0, f14, f15 - | ins_next1 - | stfdx f0, BASE, RA - | ins_next2 - |.endif - |.endmacro - | - |.macro ins_arithdn, intins, fpins - | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | lwzux TMP1, RB, BASE - | lwzux TMP2, RC, KBASE - | lwz CARG1, 4(RB) - | checknum cr0, TMP1 - | lwz CARG2, 4(RC) - || break; - ||case 1: - | lwzux TMP1, RB, BASE - | lwzux TMP2, RC, KBASE - | lwz CARG2, 4(RB) - | checknum cr0, TMP1 - | lwz CARG1, 4(RC) - || break; - ||default: - | lwzux TMP1, RB, BASE - | lwzux TMP2, RC, BASE - | lwz CARG1, 4(RB) - | checknum cr0, TMP1 - | lwz CARG2, 4(RC) - || break; - ||} - | checknum cr1, TMP2 - | bne >5 - | bne cr1, >5 - | intins CARG1, CARG1, CARG2 - | bso >4 - |1: - | ins_next1 - | stwux TISNUM, RA, BASE - | stw CARG1, 4(RA) - |2: - | ins_next2 - |4: // Overflow. - | checkov TMP0, <1 // Ignore unrelated overflow. - | ins_arithfallback b - |5: // FP variant. - ||if (vk == 1) { - | lfd f15, 0(RB) - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | lfd f14, 0(RC) - ||} else { - | lfd f14, 0(RB) - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | lfd f15, 0(RC) - ||} - | ins_arithfallback bge - |.if "fpins" == "fpmod_" - | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. - |.else - | fpins f0, f14, f15 - | ins_next1 - | stfdx f0, BASE, RA - | b <2 - |.endif - |.endmacro - | - |.macro ins_arith, intins, fpins - |.if DUALNUM - | ins_arithdn intins, fpins - |.else - | ins_arithfp fpins - |.endif - |.endmacro - - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - |.if GPR64 - |.macro addo32., y, a, b - | // Need to check overflow for (a<<32) + (b<<32). - | rldicr TMP0, a, 32, 31 - | rldicr TMP3, b, 32, 31 - | addo. TMP0, TMP0, TMP3 - | add y, a, b - |.endmacro - | ins_arith addo32., fadd - |.else - | ins_arith addo., fadd - |.endif - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - |.if GPR64 - |.macro subo32., y, a, b - | // Need to check overflow for (a<<32) - (b<<32). - | rldicr TMP0, a, 32, 31 - | rldicr TMP3, b, 32, 31 - | subo. TMP0, TMP0, TMP3 - | sub y, a, b - |.endmacro - | ins_arith subo32., fsub - |.else - | ins_arith subo., fsub - |.endif - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arith mullwo., fmul - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arithfp fdiv - break; - case BC_MODVN: - | ins_arith intmod, fpmod - break; - case BC_MODNV: case BC_MODVV: - | ins_arith intmod, fpmod_ - break; - case BC_POW: - | // NYI: (partial) integer arithmetic. - | lwzx TMP1, BASE, RB - | lfdx FARG1, BASE, RB - | lwzx TMP2, BASE, RC - | lfdx FARG2, BASE, RC - | checknum cr0, TMP1 - | checknum cr1, TMP2 - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | bge ->vmeta_arith_vv - | blex pow - | ins_next1 - | stfdx FARG1, BASE, RA - | ins_next2 - break; - - case BC_CAT: - | // RA = dst*8, RB = src_start*8, RC = src_end*8 - | sub CARG3, RC, RB - | stp BASE, L->base - | add CARG2, BASE, RC - | mr SAVE0, RB - |->BC_CAT_Z: - | stw PC, SAVE_PC - | mr CARG1, L - | srwi CARG3, CARG3, 3 - | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) - | // Returns NULL (finished) or TValue * (metamethod). - | cmplwi CRET1, 0 - | lp BASE, L->base - | bne ->vmeta_binop - | ins_next1 - | lfdx f0, BASE, SAVE0 // Copy result from RB to RA. - | stfdx f0, BASE, RA - | ins_next2 - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | // RA = dst*8, RD = str_const*8 (~) - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | ins_next1 - | lwzx TMP0, KBASE, TMP1 // KBASE-4-str_const*4 - | li TMP2, LJ_TSTR - | stwux TMP2, RA, BASE - | stw TMP0, 4(RA) - | ins_next2 - break; - case BC_KCDATA: - |.if FFI - | // RA = dst*8, RD = cdata_const*8 (~) - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | ins_next1 - | lwzx TMP0, KBASE, TMP1 // KBASE-4-cdata_const*4 - | li TMP2, LJ_TCDATA - | stwux TMP2, RA, BASE - | stw TMP0, 4(RA) - | ins_next2 - |.endif - break; - case BC_KSHORT: - | // RA = dst*8, RD = int16_literal*8 - |.if DUALNUM - | slwi RD, RD, 13 - | srawi RD, RD, 16 - | ins_next1 - | stwux TISNUM, RA, BASE - | stw RD, 4(RA) - | ins_next2 - |.else - | // The soft-float approach is faster. - | slwi RD, RD, 13 - | srawi TMP1, RD, 31 - | xor TMP2, TMP1, RD - | sub TMP2, TMP2, TMP1 // TMP2 = abs(x) - | cntlzw TMP3, TMP2 - | subfic TMP1, TMP3, 0x40d // TMP1 = exponent-1 - | slw TMP2, TMP2, TMP3 // TMP2 = left aligned mantissa - | subfic TMP3, RD, 0 - | slwi TMP1, TMP1, 20 - | rlwimi RD, TMP2, 21, 1, 31 // hi = sign(x) | (mantissa>>11) - | subfe TMP0, TMP0, TMP0 - | add RD, RD, TMP1 // hi = hi + exponent-1 - | and RD, RD, TMP0 // hi = x == 0 ? 0 : hi - | ins_next1 - | stwux RD, RA, BASE - | stw ZERO, 4(RA) - | ins_next2 - |.endif - break; - case BC_KNUM: - | // RA = dst*8, RD = num_const*8 - | ins_next1 - | lfdx f0, KBASE, RD - | stfdx f0, BASE, RA - | ins_next2 - break; - case BC_KPRI: - | // RA = dst*8, RD = primitive_type*8 (~) - | srwi TMP1, RD, 3 - | not TMP0, TMP1 - | ins_next1 - | stwx TMP0, BASE, RA - | ins_next2 - break; - case BC_KNIL: - | // RA = base*8, RD = end*8 - | stwx TISNIL, BASE, RA - | addi RA, RA, 8 - |1: - | stwx TISNIL, BASE, RA - | cmpw RA, RD - | addi RA, RA, 8 - | blt <1 - | ins_next_ - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | // RA = dst*8, RD = uvnum*8 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RD, RD, 1 - | addi RD, RD, offsetof(GCfuncL, uvptr) - | lwzx UPVAL:RB, LFUNC:RB, RD - | ins_next1 - | lwz TMP1, UPVAL:RB->v - | lfd f0, 0(TMP1) - | stfdx f0, BASE, RA - | ins_next2 - break; - case BC_USETV: - | // RA = uvnum*8, RD = src*8 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | lfdux f0, RD, BASE - | lwzx UPVAL:RB, LFUNC:RB, RA - | lbz TMP3, UPVAL:RB->marked - | lwz CARG2, UPVAL:RB->v - | andix. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) - | lbz TMP0, UPVAL:RB->closed - | lwz TMP2, 0(RD) - | stfd f0, 0(CARG2) - | cmplwi cr1, TMP0, 0 - | lwz TMP1, 4(RD) - | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | subi TMP2, TMP2, (LJ_TNUMX+1) - | bne >2 // Upvalue is closed and black? - |1: - | ins_next - | - |2: // Check if new value is collectable. - | cmplwi TMP2, LJ_TISGCV - (LJ_TNUMX+1) - | bge <1 // tvisgcv(v) - | lbz TMP3, GCOBJ:TMP1->gch.marked - | andix. TMP3, TMP3, LJ_GC_WHITES // iswhite(v) - | la CARG1, GG_DISP2G(DISPATCH) - | // Crossed a write barrier. Move the barrier forward. - | beq <1 - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETS: - | // RA = uvnum*8, RD = str_const*8 (~) - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi TMP1, RD, 1 - | srwi RA, RA, 1 - | subfic TMP1, TMP1, -4 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | lwzx STR:TMP1, KBASE, TMP1 // KBASE-4-str_const*4 - | lwzx UPVAL:RB, LFUNC:RB, RA - | lbz TMP3, UPVAL:RB->marked - | lwz CARG2, UPVAL:RB->v - | andix. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) - | lbz TMP3, STR:TMP1->marked - | lbz TMP2, UPVAL:RB->closed - | li TMP0, LJ_TSTR - | stw STR:TMP1, 4(CARG2) - | stw TMP0, 0(CARG2) - | bne >2 - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | andix. TMP3, TMP3, LJ_GC_WHITES // iswhite(str) - | cmplwi cr1, TMP2, 0 - | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | la CARG1, GG_DISP2G(DISPATCH) - | // Crossed a write barrier. Move the barrier forward. - | beq <1 - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETN: - | // RA = uvnum*8, RD = num_const*8 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | lfdx f0, KBASE, RD - | lwzx UPVAL:RB, LFUNC:RB, RA - | ins_next1 - | lwz TMP1, UPVAL:RB->v - | stfd f0, 0(TMP1) - | ins_next2 - break; - case BC_USETP: - | // RA = uvnum*8, RD = primitive_type*8 (~) - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | srwi TMP0, RD, 3 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | not TMP0, TMP0 - | lwzx UPVAL:RB, LFUNC:RB, RA - | ins_next1 - | lwz TMP1, UPVAL:RB->v - | stw TMP0, 0(TMP1) - | ins_next2 - break; - - case BC_UCLO: - | // RA = level*8, RD = target - | lwz TMP1, L->openupval - | branch_RD // Do this first since RD is not saved. - | stp BASE, L->base - | cmplwi TMP1, 0 - | mr CARG1, L - | beq >1 - | add CARG2, BASE, RA - | bl extern lj_func_closeuv // (lua_State *L, TValue *level) - | lp BASE, L->base - |1: - | ins_next - break; - - case BC_FNEW: - | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) - | srwi TMP1, RD, 1 - | stp BASE, L->base - | subfic TMP1, TMP1, -4 - | stw PC, SAVE_PC - | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 - | mr CARG1, L - | lwz CARG3, FRAME_FUNC(BASE) - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | bl extern lj_func_newL_gc - | // Returns GCfuncL *. - | lp BASE, L->base - | li TMP0, LJ_TFUNC - | stwux TMP0, RA, BASE - | stw LFUNC:CRET1, 4(RA) - | ins_next - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - case BC_TDUP: - | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) - | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | mr CARG1, L - | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | stp BASE, L->base - | cmplw TMP0, TMP1 - | stw PC, SAVE_PC - | bge >5 - |1: - if (op == BC_TNEW) { - | rlwinm CARG2, RD, 29, 21, 31 - | rlwinm CARG3, RD, 18, 27, 31 - | cmpwi CARG2, 0x7ff; beq >3 - |2: - | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) - | // Returns Table *. - } else { - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 - | bl extern lj_tab_dup // (lua_State *L, Table *kt) - | // Returns Table *. - } - | lp BASE, L->base - | li TMP0, LJ_TTAB - | stwux TMP0, RA, BASE - | stw TAB:CRET1, 4(RA) - | ins_next - if (op == BC_TNEW) { - |3: - | li CARG2, 0x801 - | b <2 - } - |5: - | mr SAVE0, RD - | bl extern lj_gc_step_fixtop // (lua_State *L) - | mr RD, SAVE0 - | mr CARG1, L - | b <1 - break; - - case BC_GGET: - | // RA = dst*8, RD = str_const*8 (~) - case BC_GSET: - | // RA = src*8, RD = str_const*8 (~) - | lwz LFUNC:TMP2, FRAME_FUNC(BASE) - | srwi TMP1, RD, 1 - | lwz TAB:RB, LFUNC:TMP2->env - | subfic TMP1, TMP1, -4 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - if (op == BC_GGET) { - | b ->BC_TGETS_Z - } else { - | b ->BC_TSETS_Z - } - break; - - case BC_TGETV: - | // RA = dst*8, RB = table*8, RC = key*8 - | lwzux CARG1, RB, BASE - | lwzux CARG2, RC, BASE - | lwz TAB:RB, 4(RB) - |.if DUALNUM - | lwz RC, 4(RC) - |.else - | lfd f0, 0(RC) - |.endif - | checktab CARG1 - | checknum cr1, CARG2 - | bne ->vmeta_tgetv - |.if DUALNUM - | lwz TMP0, TAB:RB->asize - | bne cr1, >5 - | lwz TMP1, TAB:RB->array - | cmplw TMP0, RC - | slwi TMP2, RC, 3 - |.else - | bge cr1, >5 - | // Convert number key to integer, check for integerness and range. - | fctiwz f1, f0 - | fadd f2, f0, TOBIT - | stfd f1, TMPD - | lwz TMP0, TAB:RB->asize - | fsub f2, f2, TOBIT - | lwz TMP2, TMPD_LO - | lwz TMP1, TAB:RB->array - | fcmpu cr1, f0, f2 - | cmplw cr0, TMP0, TMP2 - | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+eq - | slwi TMP2, TMP2, 3 - |.endif - | ble ->vmeta_tgetv // Integer key and in array part? - | lwzx TMP0, TMP1, TMP2 - | lfdx f14, TMP1, TMP2 - | checknil TMP0; beq >2 - |1: - | ins_next1 - | stfdx f14, BASE, RA - | ins_next2 - | - |2: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP0, TAB:TMP2->nomm - | andix. TMP0, TMP0, 1<vmeta_tgetv - | - |5: - | checkstr CARG2; bne ->vmeta_tgetv - |.if not DUALNUM - | lwz STR:RC, 4(RC) - |.endif - | b ->BC_TGETS_Z // String key? - break; - case BC_TGETS: - | // RA = dst*8, RB = table*8, RC = str_const*8 (~) - | lwzux CARG1, RB, BASE - | srwi TMP1, RC, 1 - | lwz TAB:RB, 4(RB) - | subfic TMP1, TMP1, -4 - | checktab CARG1 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - | bne ->vmeta_tgets1 - |->BC_TGETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 - | lwz TMP0, TAB:RB->hmask - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:RB->node - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |1: - | lwz CARG1, NODE:TMP2->key - | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) - | lwz CARG2, NODE:TMP2->val - | lwz TMP1, 4+offsetof(Node, val)(NODE:TMP2) - | checkstr CARG1; bne >4 - | cmpw TMP0, STR:RC; bne >4 - | checknil CARG2; beq >5 // Key found, but nil value? - |3: - | stwux CARG2, RA, BASE - | stw TMP1, 4(RA) - | ins_next - | - |4: // Follow hash chain. - | lwz NODE:TMP2, NODE:TMP2->next - | cmplwi NODE:TMP2, 0 - | bne <1 - | // End of hash chain: key not found, nil result. - | li CARG2, LJ_TNIL - | - |5: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <3 // No metatable: done. - | lbz TMP0, TAB:TMP2->nomm - | andix. TMP0, TMP0, 1<vmeta_tgets - break; - case BC_TGETB: - | // RA = dst*8, RB = table*8, RC = index*8 - | lwzux CARG1, RB, BASE - | srwi TMP0, RC, 3 - | lwz TAB:RB, 4(RB) - | checktab CARG1; bne ->vmeta_tgetb - | lwz TMP1, TAB:RB->asize - | lwz TMP2, TAB:RB->array - | cmplw TMP0, TMP1; bge ->vmeta_tgetb - | lwzx TMP1, TMP2, RC - | lfdx f0, TMP2, RC - | checknil TMP1; beq >5 - |1: - | ins_next1 - | stfdx f0, BASE, RA - | ins_next2 - | - |5: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP2, TAB:TMP2->nomm - | andix. TMP2, TMP2, 1<vmeta_tgetb // Caveat: preserve TMP0! - break; - case BC_TGETR: - | // RA = dst*8, RB = table*8, RC = key*8 - | add RB, BASE, RB - | lwz TAB:CARG1, 4(RB) - |.if DUALNUM - | add RC, BASE, RC - | lwz TMP0, TAB:CARG1->asize - | lwz CARG2, 4(RC) - | lwz TMP1, TAB:CARG1->array - |.else - | lfdx f0, BASE, RC - | lwz TMP0, TAB:CARG1->asize - | toint CARG2, f0 - | lwz TMP1, TAB:CARG1->array - |.endif - | cmplw TMP0, CARG2 - | slwi TMP2, CARG2, 3 - | ble ->vmeta_tgetr // In array part? - | lfdx f14, TMP1, TMP2 - |->BC_TGETR_Z: - | ins_next1 - | stfdx f14, BASE, RA - | ins_next2 - break; - - case BC_TSETV: - | // RA = src*8, RB = table*8, RC = key*8 - | lwzux CARG1, RB, BASE - | lwzux CARG2, RC, BASE - | lwz TAB:RB, 4(RB) - |.if DUALNUM - | lwz RC, 4(RC) - |.else - | lfd f0, 0(RC) - |.endif - | checktab CARG1 - | checknum cr1, CARG2 - | bne ->vmeta_tsetv - |.if DUALNUM - | lwz TMP0, TAB:RB->asize - | bne cr1, >5 - | lwz TMP1, TAB:RB->array - | cmplw TMP0, RC - | slwi TMP0, RC, 3 - |.else - | bge cr1, >5 - | // Convert number key to integer, check for integerness and range. - | fctiwz f1, f0 - | fadd f2, f0, TOBIT - | stfd f1, TMPD - | lwz TMP0, TAB:RB->asize - | fsub f2, f2, TOBIT - | lwz TMP2, TMPD_LO - | lwz TMP1, TAB:RB->array - | fcmpu cr1, f0, f2 - | cmplw cr0, TMP0, TMP2 - | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+eq - | slwi TMP0, TMP2, 3 - |.endif - | ble ->vmeta_tsetv // Integer key and in array part? - | lwzx TMP2, TMP1, TMP0 - | lbz TMP3, TAB:RB->marked - | lfdx f14, BASE, RA - | checknil TMP2; beq >3 - |1: - | andix. TMP2, TMP3, LJ_GC_BLACK // isblack(table) - | stfdx f14, TMP1, TMP0 - | bne >7 - |2: - | ins_next - | - |3: // Check for __newindex if previous value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP2, TAB:TMP2->nomm - | andix. TMP2, TMP2, 1<vmeta_tsetv - | - |5: - | checkstr CARG2; bne ->vmeta_tsetv - |.if not DUALNUM - | lwz STR:RC, 4(RC) - |.endif - | b ->BC_TSETS_Z // String key? - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <2 - break; - case BC_TSETS: - | // RA = src*8, RB = table*8, RC = str_const*8 (~) - | lwzux CARG1, RB, BASE - | srwi TMP1, RC, 1 - | lwz TAB:RB, 4(RB) - | subfic TMP1, TMP1, -4 - | checktab CARG1 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - | bne ->vmeta_tsets1 - |->BC_TSETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = src*8 - | lwz TMP0, TAB:RB->hmask - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:RB->node - | stb ZERO, TAB:RB->nomm // Clear metamethod cache. - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | lfdx f14, BASE, RA - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | lbz TMP3, TAB:RB->marked - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |1: - | lwz CARG1, NODE:TMP2->key - | lwz TMP0, 4+offsetof(Node, key)(NODE:TMP2) - | lwz CARG2, NODE:TMP2->val - | lwz NODE:TMP1, NODE:TMP2->next - | checkstr CARG1; bne >5 - | cmpw TMP0, STR:RC; bne >5 - | checknil CARG2; beq >4 // Key found, but nil value? - |2: - | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | stfd f14, NODE:TMP2->val - | bne >7 - |3: - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | lwz TAB:TMP1, TAB:RB->metatable - | cmplwi TAB:TMP1, 0 - | beq <2 // No metatable: done. - | lbz TMP0, TAB:TMP1->nomm - | andix. TMP0, TMP0, 1<vmeta_tsets - | - |5: // Follow hash chain. - | cmplwi NODE:TMP1, 0 - | mr NODE:TMP2, NODE:TMP1 - | bne <1 - | // End of hash chain: key not found, add a new one. - | - | // But check for __newindex first. - | lwz TAB:TMP1, TAB:RB->metatable - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | stw PC, SAVE_PC - | mr CARG1, L - | cmplwi TAB:TMP1, 0 - | stp BASE, L->base - | beq >6 // No metatable: continue. - | lbz TMP0, TAB:TMP1->nomm - | andix. TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. - |6: - | li TMP0, LJ_TSTR - | stw STR:RC, 4(CARG3) - | mr CARG2, TAB:RB - | stw TMP0, 0(CARG3) - | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) - | // Returns TValue *. - | lp BASE, L->base - | stfd f14, 0(CRET1) - | b <3 // No 2nd write barrier needed. - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <3 - break; - case BC_TSETB: - | // RA = src*8, RB = table*8, RC = index*8 - | lwzux CARG1, RB, BASE - | srwi TMP0, RC, 3 - | lwz TAB:RB, 4(RB) - | checktab CARG1; bne ->vmeta_tsetb - | lwz TMP1, TAB:RB->asize - | lwz TMP2, TAB:RB->array - | lbz TMP3, TAB:RB->marked - | cmplw TMP0, TMP1 - | lfdx f14, BASE, RA - | bge ->vmeta_tsetb - | lwzx TMP1, TMP2, RC - | checknil TMP1; beq >5 - |1: - | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | stfdx f14, TMP2, RC - | bne >7 - |2: - | ins_next - | - |5: // Check for __newindex if previous value is nil. - | lwz TAB:TMP1, TAB:RB->metatable - | cmplwi TAB:TMP1, 0 - | beq <1 // No metatable: done. - | lbz TMP1, TAB:TMP1->nomm - | andix. TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <2 - break; - case BC_TSETR: - | // RA = dst*8, RB = table*8, RC = key*8 - | add RB, BASE, RB - | lwz TAB:CARG2, 4(RB) - |.if DUALNUM - | add RC, BASE, RC - | lbz TMP3, TAB:RB->marked - | lwz TMP0, TAB:CARG2->asize - | lwz CARG3, 4(RC) - | lwz TMP1, TAB:CARG2->array - |.else - | lfdx f0, BASE, RC - | lbz TMP3, TAB:RB->marked - | lwz TMP0, TAB:CARG2->asize - | toint CARG3, f0 - | lwz TMP1, TAB:CARG2->array - |.endif - | andix. TMP2, TMP3, LJ_GC_BLACK // isblack(table) - | bne >7 - |2: - | cmplw TMP0, CARG3 - | slwi TMP2, CARG3, 3 - | lfdx f14, BASE, RA - | ble ->vmeta_tsetr // In array part? - | ins_next1 - | stfdx f14, TMP1, TMP2 - | ins_next2 - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP3, TMP2 - | b <2 - break; - - - case BC_TSETM: - | // RA = base*8 (table at base-1), RD = num_const*8 (start index) - | add RA, BASE, RA - |1: - | add TMP3, KBASE, RD - | lwz TAB:CARG2, -4(RA) // Guaranteed to be a table. - | addic. TMP0, MULTRES, -8 - | lwz TMP3, 4(TMP3) // Integer constant is in lo-word. - | srwi CARG3, TMP0, 3 - | beq >4 // Nothing to copy? - | add CARG3, CARG3, TMP3 - | lwz TMP2, TAB:CARG2->asize - | slwi TMP1, TMP3, 3 - | lbz TMP3, TAB:CARG2->marked - | cmplw CARG3, TMP2 - | add TMP2, RA, TMP0 - | lwz TMP0, TAB:CARG2->array - | bgt >5 - | add TMP1, TMP1, TMP0 - | andix. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - |3: // Copy result slots to table. - | lfd f0, 0(RA) - | addi RA, RA, 8 - | cmpw cr1, RA, TMP2 - | stfd f0, 0(TMP1) - | addi TMP1, TMP1, 8 - | blt cr1, <3 - | bne >7 - |4: - | ins_next - | - |5: // Need to resize array part. - | stp BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | mr SAVE0, RD - | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - | // Must not reallocate the stack. - | mr RD, SAVE0 - | b <1 - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP3, TMP0 - | b <4 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALLM: - | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 - | add NARGS8:RC, NARGS8:RC, MULTRES - | // Fall through. Assumes BC_CALL follows. - break; - case BC_CALL: - | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 - | mr TMP2, BASE - | lwzux TMP0, BASE, RA - | lwz LFUNC:RB, 4(BASE) - | subi NARGS8:RC, NARGS8:RC, 8 - | addi BASE, BASE, 8 - | checkfunc TMP0; bne ->vmeta_call - | ins_call - break; - - case BC_CALLMT: - | // RA = base*8, (RB = 0,) RC = extra_nargs*8 - | add NARGS8:RC, NARGS8:RC, MULTRES - | // Fall through. Assumes BC_CALLT follows. - break; - case BC_CALLT: - | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 - | lwzux TMP0, RA, BASE - | lwz LFUNC:RB, 4(RA) - | subi NARGS8:RC, NARGS8:RC, 8 - | lwz TMP1, FRAME_PC(BASE) - | checkfunc TMP0 - | addi RA, RA, 8 - | bne ->vmeta_callt - |->BC_CALLT_Z: - | andix. TMP0, TMP1, FRAME_TYPE // Caveat: preserve cr0 until the crand. - | lbz TMP3, LFUNC:RB->ffid - | xori TMP2, TMP1, FRAME_VARG - | cmplwi cr1, NARGS8:RC, 0 - | bne >7 - |1: - | stw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. - | li TMP2, 0 - | cmplwi cr7, TMP3, 1 // (> FF_C) Calling a fast function? - | beq cr1, >3 - |2: - | addi TMP3, TMP2, 8 - | lfdx f0, RA, TMP2 - | cmplw cr1, TMP3, NARGS8:RC - | stfdx f0, BASE, TMP2 - | mr TMP2, TMP3 - | bne cr1, <2 - |3: - | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+gt - | beq >5 - |4: - | ins_callt - | - |5: // Tailcall to a fast function with a Lua frame below. - | lwz INS, -4(TMP1) - | decode_RA8 RA, INS - | sub TMP1, BASE, RA - | lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1) - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. - | b <4 - | - |7: // Tailcall from a vararg function. - | andix. TMP0, TMP2, FRAME_TYPEP - | bne <1 // Vararg frame below? - | sub BASE, BASE, TMP2 // Relocate BASE down. - | lwz TMP1, FRAME_PC(BASE) - | andix. TMP0, TMP1, FRAME_TYPE - | b <1 - break; - - case BC_ITERC: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) - | mr TMP2, BASE - | add BASE, BASE, RA - | lwz TMP1, -24(BASE) - | lwz LFUNC:RB, -20(BASE) - | lfd f1, -8(BASE) - | lfd f0, -16(BASE) - | stw TMP1, 0(BASE) // Copy callable. - | stw LFUNC:RB, 4(BASE) - | checkfunc TMP1 - | stfd f1, 16(BASE) // Copy control var. - | li NARGS8:RC, 16 // Iterators get 2 arguments. - | stfdu f0, 8(BASE) // Copy state. - | bne ->vmeta_call - | ins_call - break; - - case BC_ITERN: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | add RA, BASE, RA - | lwz TAB:RB, -12(RA) - | lwz RC, -4(RA) // Get index from control var. - | lwz TMP0, TAB:RB->asize - | lwz TMP1, TAB:RB->array - | addi PC, PC, 4 - |1: // Traverse array part. - | cmplw RC, TMP0 - | slwi TMP3, RC, 3 - | bge >5 // Index points after array part? - | lwzx TMP2, TMP1, TMP3 - | lfdx f0, TMP1, TMP3 - | checknil TMP2 - | lwz INS, -4(PC) - | beq >4 - |.if DUALNUM - | stw RC, 4(RA) - | stw TISNUM, 0(RA) - |.else - | tonum_u f1, RC - |.endif - | addi RC, RC, 1 - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | stfd f0, 8(RA) - | decode_RD4 TMP1, INS - | stw RC, -4(RA) // Update control var. - | add PC, TMP1, TMP3 - |.if not DUALNUM - | stfd f1, 0(RA) - |.endif - |3: - | ins_next - | - |4: // Skip holes in array part. - | addi RC, RC, 1 - | b <1 - | - |5: // Traverse hash part. - | lwz TMP1, TAB:RB->hmask - | sub RC, RC, TMP0 - | lwz TMP2, TAB:RB->node - |6: - | cmplw RC, TMP1 // End of iteration? Branch to ITERL+1. - | slwi TMP3, RC, 5 - | bgty <3 - | slwi RB, RC, 3 - | sub TMP3, TMP3, RB - | lwzx RB, TMP2, TMP3 - | lfdx f0, TMP2, TMP3 - | add NODE:TMP3, TMP2, TMP3 - | checknil RB - | lwz INS, -4(PC) - | beq >7 - | lfd f1, NODE:TMP3->key - | addis TMP2, PC, -(BCBIAS_J*4 >> 16) - | stfd f0, 8(RA) - | add RC, RC, TMP0 - | decode_RD4 TMP1, INS - | stfd f1, 0(RA) - | addi RC, RC, 1 - | add PC, TMP1, TMP2 - | stw RC, -4(RA) // Update control var. - | b <3 - | - |7: // Skip holes in hash part. - | addi RC, RC, 1 - | b <6 - break; - - case BC_ISNEXT: - | // RA = base*8, RD = target (points to ITERN) - | add RA, BASE, RA - | lwz TMP0, -24(RA) - | lwz CFUNC:TMP1, -20(RA) - | lwz TMP2, -16(RA) - | lwz TMP3, -8(RA) - | cmpwi cr0, TMP2, LJ_TTAB - | cmpwi cr1, TMP0, LJ_TFUNC - | cmpwi cr6, TMP3, LJ_TNIL - | bne cr1, >5 - | lbz TMP1, CFUNC:TMP1->ffid - | crand 4*cr0+eq, 4*cr0+eq, 4*cr6+eq - | cmpwi cr7, TMP1, FF_next_N - | srwi TMP0, RD, 1 - | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq - | add TMP3, PC, TMP0 - | bne cr0, >5 - | lus TMP1, 0xfffe - | ori TMP1, TMP1, 0x7fff - | stw ZERO, -4(RA) // Initialize control var. - | stw TMP1, -8(RA) - | addis PC, TMP3, -(BCBIAS_J*4 >> 16) - |1: - | ins_next - |5: // Despecialize bytecode if any of the checks fail. - | li TMP0, BC_JMP - | li TMP1, BC_ITERC - | stb TMP0, -1(PC) - | addis PC, TMP3, -(BCBIAS_J*4 >> 16) - | stb TMP1, 3(PC) - | b <1 - break; - - case BC_VARG: - | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 - | lwz TMP0, FRAME_PC(BASE) - | add RC, BASE, RC - | add RA, BASE, RA - | addi RC, RC, FRAME_VARG - | add TMP2, RA, RB - | subi TMP3, BASE, 8 // TMP3 = vtop - | sub RC, RC, TMP0 // RC = vbase - | // Note: RC may now be even _above_ BASE if nargs was < numparams. - | cmplwi cr1, RB, 0 - |.if PPE - | sub TMP1, TMP3, RC - | cmpwi TMP1, 0 - |.else - | sub. TMP1, TMP3, RC - |.endif - | beq cr1, >5 // Copy all varargs? - | subi TMP2, TMP2, 16 - | ble >2 // No vararg slots? - |1: // Copy vararg slots to destination slots. - | lfd f0, 0(RC) - | addi RC, RC, 8 - | stfd f0, 0(RA) - | cmplw RA, TMP2 - | cmplw cr1, RC, TMP3 - | bge >3 // All destination slots filled? - | addi RA, RA, 8 - | blt cr1, <1 // More vararg slots? - |2: // Fill up remainder with nil. - | stw TISNIL, 0(RA) - | cmplw RA, TMP2 - | addi RA, RA, 8 - | blt <2 - |3: - | ins_next - | - |5: // Copy all varargs. - | lwz TMP0, L->maxstack - | li MULTRES, 8 // MULTRES = (0+1)*8 - | bley <3 // No vararg slots? - | add TMP2, RA, TMP1 - | cmplw TMP2, TMP0 - | addi MULTRES, TMP1, 8 - | bgt >7 - |6: - | lfd f0, 0(RC) - | addi RC, RC, 8 - | stfd f0, 0(RA) - | cmplw RC, TMP3 - | addi RA, RA, 8 - | blt <6 // More vararg slots? - | b <3 - | - |7: // Grow stack for varargs. - | mr CARG1, L - | stp RA, L->top - | sub SAVE0, RC, BASE // Need delta, because BASE may change. - | stp BASE, L->base - | sub RA, RA, BASE - | stw PC, SAVE_PC - | srwi CARG2, TMP1, 3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | lp BASE, L->base - | add RA, BASE, RA - | add RC, BASE, SAVE0 - | subi TMP3, BASE, 8 - | b <6 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | // RA = results*8, RD = extra_nresults*8 - | add RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. - | // Fall through. Assumes BC_RET follows. - break; - - case BC_RET: - | // RA = results*8, RD = (nresults+1)*8 - | lwz PC, FRAME_PC(BASE) - | add RA, BASE, RA - | mr MULTRES, RD - |1: - | andix. TMP0, PC, FRAME_TYPE - | xori TMP1, PC, FRAME_VARG - | bne ->BC_RETV_Z - | - |->BC_RET_Z: - | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return - | lwz INS, -4(PC) - | cmpwi RD, 8 - | subi TMP2, BASE, 8 - | subi RC, RD, 8 - | decode_RB8 RB, INS - | beq >3 - | li TMP1, 0 - |2: - | addi TMP3, TMP1, 8 - | lfdx f0, RA, TMP1 - | cmpw TMP3, RC - | stfdx f0, TMP2, TMP1 - | beq >3 - | addi TMP1, TMP3, 8 - | lfdx f1, RA, TMP3 - | cmpw TMP1, RC - | stfdx f1, TMP2, TMP3 - | bne <2 - |3: - |5: - | cmplw RB, RD - | decode_RA8 RA, INS - | bgt >6 - | sub BASE, TMP2, RA - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | stwx TISNIL, TMP2, TMP1 - | b <5 - | - |->BC_RETV_Z: // Non-standard return case. - | andix. TMP2, TMP1, FRAME_TYPEP - | bne ->vm_return - | // Return from vararg function: relocate BASE down. - | sub BASE, BASE, TMP1 - | lwz PC, FRAME_PC(BASE) - | b <1 - break; - - case BC_RET0: case BC_RET1: - | // RA = results*8, RD = (nresults+1)*8 - | lwz PC, FRAME_PC(BASE) - | add RA, BASE, RA - | mr MULTRES, RD - | andix. TMP0, PC, FRAME_TYPE - | xori TMP1, PC, FRAME_VARG - | bney ->BC_RETV_Z - | - | lwz INS, -4(PC) - | subi TMP2, BASE, 8 - | decode_RB8 RB, INS - if (op == BC_RET1) { - | lfd f0, 0(RA) - | stfd f0, 0(TMP2) - } - |5: - | cmplw RB, RD - | decode_RA8 RA, INS - | bgt >6 - | sub BASE, TMP2, RA - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | stwx TISNIL, TMP2, TMP1 - | b <5 - break; - - /* -- Loops and branches ------------------------------------------------ */ - - case BC_FORL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IFORL follows. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - | // RA = base*8, RD = target (after end of loop or start of loop) - vk = (op == BC_IFORL || op == BC_JFORL); - |.if DUALNUM - | // Integer loop. - | lwzux TMP1, RA, BASE - | lwz CARG1, FORL_IDX*8+4(RA) - | cmplw cr0, TMP1, TISNUM - if (vk) { - | lwz CARG3, FORL_STEP*8+4(RA) - | bne >9 - |.if GPR64 - | // Need to check overflow for (a<<32) + (b<<32). - | rldicr TMP0, CARG1, 32, 31 - | rldicr TMP2, CARG3, 32, 31 - | add CARG1, CARG1, CARG3 - | addo. TMP0, TMP0, TMP2 - |.else - | addo. CARG1, CARG1, CARG3 - |.endif - | cmpwi cr6, CARG3, 0 - | lwz CARG2, FORL_STOP*8+4(RA) - | bso >6 - |4: - | stw CARG1, FORL_IDX*8+4(RA) - } else { - | lwz TMP3, FORL_STEP*8(RA) - | lwz CARG3, FORL_STEP*8+4(RA) - | lwz TMP2, FORL_STOP*8(RA) - | lwz CARG2, FORL_STOP*8+4(RA) - | cmplw cr7, TMP3, TISNUM - | cmplw cr1, TMP2, TISNUM - | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq - | crand 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | cmpwi cr6, CARG3, 0 - | bne >9 - } - | blt cr6, >5 - | cmpw CARG1, CARG2 - |1: - | stw TISNUM, FORL_EXT*8(RA) - if (op != BC_JFORL) { - | srwi RD, RD, 1 - } - | stw CARG1, FORL_EXT*8+4(RA) - if (op != BC_JFORL) { - | add RD, PC, RD - } - if (op == BC_FORI) { - | bgt >3 // See FP loop below. - } else if (op == BC_JFORI) { - | addis PC, RD, -(BCBIAS_J*4 >> 16) - | bley >7 - } else if (op == BC_IFORL) { - | bgt >2 - | addis PC, RD, -(BCBIAS_J*4 >> 16) - } else { - | bley =>BC_JLOOP - } - |2: - | ins_next - |5: // Invert check for negative step. - | cmpw CARG2, CARG1 - | b <1 - if (vk) { - |6: // Potential overflow. - | checkov TMP0, <4 // Ignore unrelated overflow. - | b <2 - } - |.endif - if (vk) { - |.if DUALNUM - |9: // FP loop. - | lfd f1, FORL_IDX*8(RA) - |.else - | lfdux f1, RA, BASE - |.endif - | lfd f3, FORL_STEP*8(RA) - | lfd f2, FORL_STOP*8(RA) - | lwz TMP3, FORL_STEP*8(RA) - | fadd f1, f1, f3 - | stfd f1, FORL_IDX*8(RA) - } else { - |.if DUALNUM - |9: // FP loop. - |.else - | lwzux TMP1, RA, BASE - | lwz TMP3, FORL_STEP*8(RA) - | lwz TMP2, FORL_STOP*8(RA) - | cmplw cr0, TMP1, TISNUM - | cmplw cr7, TMP3, TISNUM - | cmplw cr1, TMP2, TISNUM - |.endif - | lfd f1, FORL_IDX*8(RA) - | crand 4*cr0+lt, 4*cr0+lt, 4*cr7+lt - | crand 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | lfd f2, FORL_STOP*8(RA) - | bge ->vmeta_for - } - | cmpwi cr6, TMP3, 0 - if (op != BC_JFORL) { - | srwi RD, RD, 1 - } - | stfd f1, FORL_EXT*8(RA) - if (op != BC_JFORL) { - | add RD, PC, RD - } - | fcmpu cr0, f1, f2 - if (op == BC_JFORI) { - | addis PC, RD, -(BCBIAS_J*4 >> 16) - } - | blt cr6, >5 - if (op == BC_FORI) { - | bgt >3 - } else if (op == BC_IFORL) { - |.if DUALNUM - | bgty <2 - |.else - | bgt >2 - |.endif - |1: - | addis PC, RD, -(BCBIAS_J*4 >> 16) - } else if (op == BC_JFORI) { - | bley >7 - } else { - | bley =>BC_JLOOP - } - |.if DUALNUM - | b <2 - |.else - |2: - | ins_next - |.endif - |5: // Negative step. - if (op == BC_FORI) { - | bge <2 - |3: // Used by integer loop, too. - | addis PC, RD, -(BCBIAS_J*4 >> 16) - } else if (op == BC_IFORL) { - | bgey <1 - } else if (op == BC_JFORI) { - | bgey >7 - } else { - | bgey =>BC_JLOOP - } - | b <2 - if (op == BC_JFORI) { - |7: - | lwz INS, -4(PC) - | decode_RD8 RD, INS - | b =>BC_JLOOP - } - break; - - case BC_ITERL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IITERL follows. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | // RA = base*8, RD = target - | lwzux TMP1, RA, BASE - | lwz TMP2, 4(RA) - | checknil TMP1; beq >1 // Stop if iterator returned nil. - if (op == BC_JITERL) { - | stw TMP1, -8(RA) - | stw TMP2, -4(RA) - | b =>BC_JLOOP - } else { - | branch_RD // Otherwise save control var + branch. - | stw TMP1, -8(RA) - | stw TMP2, -4(RA) - } - |1: - | ins_next - break; - - case BC_LOOP: - | // RA = base*8, RD = target (loop extent) - | // Note: RA/RD is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_ILOOP follows. - break; - - case BC_ILOOP: - | // RA = base*8, RD = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | // RA = base*8 (ignored), RD = traceno*8 - | lwz TMP1, DISPATCH_J(trace)(DISPATCH) - | srwi RD, RD, 1 - | // Traces on PPC don't store the trace number, so use 0. - | stw ZERO, DISPATCH_GL(vmstate)(DISPATCH) - | lwzx TRACE:TMP2, TMP1, RD - | clrso TMP1 - | lp TMP2, TRACE:TMP2->mcode - | stw BASE, DISPATCH_GL(jit_base)(DISPATCH) - | mtctr TMP2 - | addi JGL, DISPATCH, GG_DISP2G+32768 - | stw L, DISPATCH_GL(tmpbuf.L)(DISPATCH) - | bctr - |.endif - break; - - case BC_JMP: - | // RA = base*8 (only used by trace recorder), RD = target - | branch_RD - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - |.if JIT - | hotcall - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | lwz TMP2, L->maxstack - | lbz TMP1, -4+PC2PROTO(numparams)(PC) - | lwz KBASE, -4+PC2PROTO(k)(PC) - | cmplw RA, TMP2 - | slwi TMP1, TMP1, 3 - | bgt ->vm_growstack_l - if (op != BC_JFUNCF) { - | ins_next1 - } - |2: - | cmplw NARGS8:RC, TMP1 // Check for missing parameters. - | blt >3 - if (op == BC_JFUNCF) { - | decode_RD8 RD, INS - | b =>BC_JLOOP - } else { - | ins_next2 - } - | - |3: // Clear missing parameters. - | stwx TISNIL, BASE, NARGS8:RC - | addi NARGS8:RC, NARGS8:RC, 8 - | b <2 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | NYI // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | lwz TMP2, L->maxstack - | add TMP1, BASE, RC - | add TMP0, RA, RC - | stw LFUNC:RB, 4(TMP1) // Store copy of LFUNC. - | addi TMP3, RC, 8+FRAME_VARG - | lwz KBASE, -4+PC2PROTO(k)(PC) - | cmplw TMP0, TMP2 - | stw TMP3, 0(TMP1) // Store delta + FRAME_VARG. - | bge ->vm_growstack_l - | lbz TMP2, -4+PC2PROTO(numparams)(PC) - | mr RA, BASE - | mr RC, TMP1 - | ins_next1 - | cmpwi TMP2, 0 - | addi BASE, TMP1, 8 - | beq >3 - |1: - | cmplw RA, RC // Less args than parameters? - | lwz TMP0, 0(RA) - | lwz TMP3, 4(RA) - | bge >4 - | stw TISNIL, 0(RA) // Clear old fixarg slot (help the GC). - | addi RA, RA, 8 - |2: - | addic. TMP2, TMP2, -1 - | stw TMP0, 8(TMP1) - | stw TMP3, 12(TMP1) - | addi TMP1, TMP1, 8 - | bne <1 - |3: - | ins_next2 - | - |4: // Clear missing parameters. - | li TMP0, LJ_TNIL - | b <2 - break; - - case BC_FUNCC: - case BC_FUNCCW: - | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 - if (op == BC_FUNCC) { - | lp RD, CFUNC:RB->f - } else { - | lp RD, DISPATCH_GL(wrapf)(DISPATCH) - } - | add TMP1, RA, NARGS8:RC - | lwz TMP2, L->maxstack - | .toc lp TMP3, 0(RD) - | add RC, BASE, NARGS8:RC - | stp BASE, L->base - | cmplw TMP1, TMP2 - | stp RC, L->top - | li_vmstate C - |.if TOC - | mtctr TMP3 - |.else - | mtctr RD - |.endif - if (op == BC_FUNCCW) { - | lp CARG2, CFUNC:RB->f - } - | mr CARG1, L - | bgt ->vm_growstack_c // Need to grow stack. - | .toc lp TOCREG, TOC_OFS(RD) - | .tocenv lp ENVREG, ENV_OFS(RD) - | st_vmstate - | bctrl // (lua_State *L [, lua_CFunction f]) - | // Returns nresults. - | lp BASE, L->base - | .toc ld TOCREG, SAVE_TOC - | slwi RD, CRET1, 3 - | lp TMP1, L->top - | li_vmstate INTERP - | lwz PC, FRAME_PC(BASE) // Fetch PC of caller. - | stw L, DISPATCH_GL(cur_L)(DISPATCH) - | sub RA, TMP1, RD // RA = L->top - nresults*8 - | st_vmstate - | b ->vm_returnc - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - - dasm_growpc(Dst, BC__MAX); - - build_subroutines(ctx); - - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); - int i; - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.long .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.long 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 65\n" - "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.long .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.long .Lframe0\n" - "\t.long .Lbegin\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x5\n\t.uleb128 70\n\t.uleb128 55\n", - fcofs, CFRAME_SIZE); - for (i = 14; i <= 31; i++) - fprintf(ctx->fp, - "\t.byte %d\n\t.uleb128 %d\n" - "\t.byte %d\n\t.uleb128 %d\n", - 0x80+i, 37+(31-i), 0x80+32+i, 2+2*(31-i)); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE0:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.long .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.long .Lframe0\n" -#if LJ_TARGET_PS3 - "\t.long .lj_vm_ffi_call\n" -#else - "\t.long lj_vm_ffi_call\n" -#endif - "\t.long %d\n" - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x8e\n\t.uleb128 2\n" - "\t.byte 0xd\n\t.uleb128 0xe\n" - "\t.align 2\n" - ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); -#endif -#if !LJ_NO_UNWIND - fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe1:\n" - "\t.long .LECIE1-.LSCIE1\n" - ".LSCIE1:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zPR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 65\n" - "\t.uleb128 6\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.long lj_err_unwind_dwarf-.\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE1:\n\n"); - fprintf(ctx->fp, - ".LSFDE2:\n" - "\t.long .LEFDE2-.LASFDE2\n" - ".LASFDE2:\n" - "\t.long .LASFDE2-.Lframe1\n" - "\t.long .Lbegin-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x5\n\t.uleb128 70\n\t.uleb128 55\n", - fcofs, CFRAME_SIZE); - for (i = 14; i <= 31; i++) - fprintf(ctx->fp, - "\t.byte %d\n\t.uleb128 %d\n" - "\t.byte %d\n\t.uleb128 %d\n", - 0x80+i, 37+(31-i), 0x80+32+i, 2+2*(31-i)); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE2:\n\n"); -#if LJ_HASFFI - fprintf(ctx->fp, - ".Lframe2:\n" - "\t.long .LECIE2-.LSCIE2\n" - ".LSCIE2:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 65\n" - "\t.uleb128 1\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE2:\n\n"); - fprintf(ctx->fp, - ".LSFDE3:\n" - "\t.long .LEFDE3-.LASFDE3\n" - ".LASFDE3:\n" - "\t.long .LASFDE3-.Lframe2\n" - "\t.long lj_vm_ffi_call-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x8e\n\t.uleb128 2\n" - "\t.byte 0xd\n\t.uleb128 0xe\n" - "\t.align 2\n" - ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); -#endif -#endif - break; - default: - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc deleted file mode 100644 index 53ea2d96581..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/vm_ppcspe.dasc +++ /dev/null @@ -1,3691 +0,0 @@ -|// Low-level VM code for PowerPC/e500 CPUs. -|// Bytecode interpreter, fast functions and helper functions. -|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -| -|.arch ppc -|.section code_op, code_sub -| -|.actionlist build_actionlist -|.globals GLOB_ -|.globalnames globnames -|.externnames extnames -| -|// Note: The ragged indentation of the instructions is intentional. -|// The starting columns indicate data dependencies. -| -|//----------------------------------------------------------------------- -| -|// Fixed register assignments for the interpreter. -|// Don't use: r1 = sp, r2 and r13 = reserved and/or small data area ptr -| -|// The following must be C callee-save (but BASE is often refetched). -|.define BASE, r14 // Base of current Lua stack frame. -|.define KBASE, r15 // Constants of current Lua function. -|.define PC, r16 // Next PC. -|.define DISPATCH, r17 // Opcode dispatch table. -|.define LREG, r18 // Register holding lua_State (also in SAVE_L). -|.define MULTRES, r19 // Size of multi-result: (nresults+1)*8. -| -|// Constants for vectorized type-comparisons (hi+low GPR). C callee-save. -|.define TISNUM, r22 -|.define TISSTR, r23 -|.define TISTAB, r24 -|.define TISFUNC, r25 -|.define TISNIL, r26 -|.define TOBIT, r27 -|.define ZERO, TOBIT // Zero in lo word. -| -|// The following temporaries are not saved across C calls, except for RA. -|.define RA, r20 // Callee-save. -|.define RB, r10 -|.define RC, r11 -|.define RD, r12 -|.define INS, r7 // Overlaps CARG5. -| -|.define TMP0, r0 -|.define TMP1, r8 -|.define TMP2, r9 -|.define TMP3, r6 // Overlaps CARG4. -| -|// Saved temporaries. -|.define SAVE0, r21 -| -|// Calling conventions. -|.define CARG1, r3 -|.define CARG2, r4 -|.define CARG3, r5 -|.define CARG4, r6 // Overlaps TMP3. -|.define CARG5, r7 // Overlaps INS. -| -|.define CRET1, r3 -|.define CRET2, r4 -| -|// Stack layout while in interpreter. Must match with lj_frame.h. -|.define SAVE_LR, 188(sp) -|.define CFRAME_SPACE, 184 // Delta for sp. -|// Back chain for sp: 184(sp) <-- sp entering interpreter -|.define SAVE_r31, 176(sp) // 64 bit register saves. -|.define SAVE_r30, 168(sp) -|.define SAVE_r29, 160(sp) -|.define SAVE_r28, 152(sp) -|.define SAVE_r27, 144(sp) -|.define SAVE_r26, 136(sp) -|.define SAVE_r25, 128(sp) -|.define SAVE_r24, 120(sp) -|.define SAVE_r23, 112(sp) -|.define SAVE_r22, 104(sp) -|.define SAVE_r21, 96(sp) -|.define SAVE_r20, 88(sp) -|.define SAVE_r19, 80(sp) -|.define SAVE_r18, 72(sp) -|.define SAVE_r17, 64(sp) -|.define SAVE_r16, 56(sp) -|.define SAVE_r15, 48(sp) -|.define SAVE_r14, 40(sp) -|.define SAVE_CR, 36(sp) -|.define UNUSED1, 32(sp) -|.define SAVE_ERRF, 28(sp) // 32 bit C frame info. -|.define SAVE_NRES, 24(sp) -|.define SAVE_CFRAME, 20(sp) -|.define SAVE_L, 16(sp) -|.define SAVE_PC, 12(sp) -|.define SAVE_MULTRES, 8(sp) -|// Next frame lr: 4(sp) -|// Back chain for sp: 0(sp) <-- sp while in interpreter -| -|.macro save_, reg; evstdd reg, SAVE_..reg; .endmacro -|.macro rest_, reg; evldd reg, SAVE_..reg; .endmacro -| -|.macro saveregs -| stwu sp, -CFRAME_SPACE(sp) -| save_ r14; save_ r15; save_ r16; save_ r17; save_ r18; save_ r19 -| mflr r0; mfcr r12 -| save_ r20; save_ r21; save_ r22; save_ r23; save_ r24; save_ r25 -| stw r0, SAVE_LR; stw r12, SAVE_CR -| save_ r26; save_ r27; save_ r28; save_ r29; save_ r30; save_ r31 -|.endmacro -| -|.macro restoreregs -| lwz r0, SAVE_LR; lwz r12, SAVE_CR -| rest_ r14; rest_ r15; rest_ r16; rest_ r17; rest_ r18; rest_ r19 -| mtlr r0; mtcrf 0x38, r12 -| rest_ r20; rest_ r21; rest_ r22; rest_ r23; rest_ r24; rest_ r25 -| rest_ r26; rest_ r27; rest_ r28; rest_ r29; rest_ r30; rest_ r31 -| addi sp, sp, CFRAME_SPACE -|.endmacro -| -|// Type definitions. Some of these are only used for documentation. -|.type L, lua_State, LREG -|.type GL, global_State -|.type TVALUE, TValue -|.type GCOBJ, GCobj -|.type STR, GCstr -|.type TAB, GCtab -|.type LFUNC, GCfuncL -|.type CFUNC, GCfuncC -|.type PROTO, GCproto -|.type UPVAL, GCupval -|.type NODE, Node -|.type NARGS8, int -|.type TRACE, GCtrace -| -|//----------------------------------------------------------------------- -| -|// These basic macros should really be part of DynASM. -|.macro srwi, rx, ry, n; rlwinm rx, ry, 32-n, n, 31; .endmacro -|.macro slwi, rx, ry, n; rlwinm rx, ry, n, 0, 31-n; .endmacro -|.macro rotlwi, rx, ry, n; rlwinm rx, ry, n, 0, 31; .endmacro -|.macro rotlw, rx, ry, rn; rlwnm rx, ry, rn, 0, 31; .endmacro -|.macro subi, rx, ry, i; addi rx, ry, -i; .endmacro -| -|// Trap for not-yet-implemented parts. -|.macro NYI; tw 4, sp, sp; .endmacro -| -|//----------------------------------------------------------------------- -| -|// Access to frame relative to BASE. -|.define FRAME_PC, -8 -|.define FRAME_FUNC, -4 -| -|// Instruction decode. -|.macro decode_OP4, dst, ins; rlwinm dst, ins, 2, 22, 29; .endmacro -|.macro decode_RA8, dst, ins; rlwinm dst, ins, 27, 21, 28; .endmacro -|.macro decode_RB8, dst, ins; rlwinm dst, ins, 11, 21, 28; .endmacro -|.macro decode_RC8, dst, ins; rlwinm dst, ins, 19, 21, 28; .endmacro -|.macro decode_RD8, dst, ins; rlwinm dst, ins, 19, 13, 28; .endmacro -| -|.macro decode_OP1, dst, ins; rlwinm dst, ins, 0, 24, 31; .endmacro -|.macro decode_RD4, dst, ins; rlwinm dst, ins, 18, 14, 29; .endmacro -| -|// Instruction fetch. -|.macro ins_NEXT1 -| lwz INS, 0(PC) -| addi PC, PC, 4 -|.endmacro -|// Instruction decode+dispatch. -|.macro ins_NEXT2 -| decode_OP4 TMP1, INS -| decode_RB8 RB, INS -| decode_RD8 RD, INS -| lwzx TMP0, DISPATCH, TMP1 -| decode_RA8 RA, INS -| decode_RC8 RC, INS -| mtctr TMP0 -| bctr -|.endmacro -|.macro ins_NEXT -| ins_NEXT1 -| ins_NEXT2 -|.endmacro -| -|// Instruction footer. -|.if 1 -| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. -| .define ins_next, ins_NEXT -| .define ins_next_, ins_NEXT -| .define ins_next1, ins_NEXT1 -| .define ins_next2, ins_NEXT2 -|.else -| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. -| // Affects only certain kinds of benchmarks (and only with -j off). -| .macro ins_next -| b ->ins_next -| .endmacro -| .macro ins_next1 -| .endmacro -| .macro ins_next2 -| b ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC -| lwz PC, LFUNC:RB->pc -| lwz INS, 0(PC) -| addi PC, PC, 4 -| decode_OP4 TMP1, INS -| decode_RA8 RA, INS -| lwzx TMP0, DISPATCH, TMP1 -| add RA, RA, BASE -| mtctr TMP0 -| bctr -|.endmacro -| -|.macro ins_call -| // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC -| stw PC, FRAME_PC(BASE) -| ins_callt -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Macros to test operand types. -|.macro checknum, reg; evcmpltu reg, TISNUM; .endmacro -|.macro checkstr, reg; evcmpeq reg, TISSTR; .endmacro -|.macro checktab, reg; evcmpeq reg, TISTAB; .endmacro -|.macro checkfunc, reg; evcmpeq reg, TISFUNC; .endmacro -|.macro checknil, reg; evcmpeq reg, TISNIL; .endmacro -|.macro checkok, label; blt label; .endmacro -|.macro checkfail, label; bge label; .endmacro -|.macro checkanyfail, label; bns label; .endmacro -|.macro checkallok, label; bso label; .endmacro -| -|.macro branch_RD -| srwi TMP0, RD, 1 -| add PC, PC, TMP0 -| addis PC, PC, -(BCBIAS_J*4 >> 16) -|.endmacro -| -|// Assumes DISPATCH is relative to GL. -#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) -#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|.macro hotloop -| NYI -|.endmacro -| -|.macro hotcall -| NYI -|.endmacro -| -|// Set current VM state. Uses TMP0. -|.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro -|.macro st_vmstate; stw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro -| -|// Move table write barrier back. Overwrites mark and tmp. -|.macro barrierback, tab, mark, tmp -| lwz tmp, DISPATCH_GL(gc.grayagain)(DISPATCH) -| // Assumes LJ_GC_BLACK is 0x04. -| rlwinm mark, mark, 0, 30, 28 // black2gray(tab) -| stw tab, DISPATCH_GL(gc.grayagain)(DISPATCH) -| stb mark, tab->marked -| stw tmp, tab->gclist -|.endmacro -| -|//----------------------------------------------------------------------- - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | // See vm_return. Also: TMP2 = previous base. - | andi. TMP0, PC, FRAME_P - | evsplati TMP1, LJ_TTRUE - | beq ->cont_dispatch - | - | // Return from pcall or xpcall fast func. - | lwz PC, FRAME_PC(TMP2) // Fetch PC of previous frame. - | mr BASE, TMP2 // Restore caller base. - | // Prepending may overwrite the pcall frame, so do it at the end. - | stwu TMP1, FRAME_PC(RA) // Prepend true to results. - | - |->vm_returnc: - | addi RD, RD, 8 // RD = (nresults+1)*8. - | andi. TMP0, PC, FRAME_TYPE - | cmpwi cr1, RD, 0 - | li CRET1, LUA_YIELD - | beq cr1, ->vm_unwind_c_eh - | mr MULTRES, RD - | beq ->BC_RET_Z // Handle regular return to Lua. - | - |->vm_return: - | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return - | // TMP0 = PC & FRAME_TYPE - | cmpwi TMP0, FRAME_C - | rlwinm TMP2, PC, 0, 0, 28 - | li_vmstate C - | sub TMP2, BASE, TMP2 // TMP2 = previous base. - | bne ->vm_returnp - | - | addic. TMP1, RD, -8 - | stw TMP2, L->base - | lwz TMP2, SAVE_NRES - | subi BASE, BASE, 8 - | st_vmstate - | slwi TMP2, TMP2, 3 - | beq >2 - |1: - | addic. TMP1, TMP1, -8 - | evldd TMP0, 0(RA) - | addi RA, RA, 8 - | evstdd TMP0, 0(BASE) - | addi BASE, BASE, 8 - | bne <1 - | - |2: - | cmpw TMP2, RD // More/less results wanted? - | bne >6 - |3: - | stw BASE, L->top // Store new top. - | - |->vm_leave_cp: - | lwz TMP0, SAVE_CFRAME // Restore previous C frame. - | li CRET1, 0 // Ok return status for vm_pcall. - | stw TMP0, L->cframe - | - |->vm_leave_unw: - | restoreregs - | blr - | - |6: - | ble >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - | lwz TMP1, L->maxstack - | cmplw BASE, TMP1 - | bge >8 - | evstdd TISNIL, 0(BASE) - | addi RD, RD, 8 - | addi BASE, BASE, 8 - | b <2 - | - |7: // Less results wanted. - | sub TMP0, RD, TMP2 - | cmpwi TMP2, 0 // LUA_MULTRET+1 case? - | sub TMP0, BASE, TMP0 // Subtract the difference. - | iseleq BASE, BASE, TMP0 // Either keep top or shrink it. - | b <3 - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | stw BASE, L->top // Save current top held in BASE (yes). - | mr SAVE0, RD - | mr CARG2, TMP2 - | mr CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | lwz TMP2, SAVE_NRES - | mr RD, SAVE0 - | slwi TMP2, TMP2, 3 - | lwz BASE, L->top // Need the (realloced) L->top in BASE. - | b <2 - | - |->vm_unwind_c: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - | mr sp, CARG1 - | mr CRET1, CARG2 - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | lwz L, SAVE_L - | li TMP0, ~LJ_VMST_C - | lwz GL:TMP1, L->glref - | stw TMP0, GL:TMP1->vmstate - | b ->vm_leave_unw - | - |->vm_unwind_ff: // Unwind C stack, return from ff pcall. - | // (void *cframe) - | rlwinm sp, CARG1, 0, 0, 29 - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | lwz L, SAVE_L - | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. - | evsplati TISFUNC, LJ_TFUNC - | lus TOBIT, 0x4338 - | evsplati TISTAB, LJ_TTAB - | li TMP0, 0 - | lwz BASE, L->base - | evmergelo TOBIT, TOBIT, TMP0 - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | evsplati TISSTR, LJ_TSTR - | li TMP1, LJ_TFALSE - | evsplati TISNIL, LJ_TNIL - | li_vmstate INTERP - | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame. - | la RA, -8(BASE) // Results start at BASE-8. - | addi DISPATCH, DISPATCH, GG_G2DISP - | stw TMP1, 0(RA) // Prepend false to error message. - | li RD, 16 // 2 results: false + error message. - | st_vmstate - | b ->vm_returnc - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | li CARG2, LUA_MINSTACK - | b >2 - | - |->vm_growstack_l: // Grow stack for Lua function. - | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC - | add RC, BASE, RC - | sub RA, RA, BASE - | stw BASE, L->base - | addi PC, PC, 4 // Must point after first instruction. - | stw RC, L->top - | srwi CARG2, RA, 3 - |2: - | // L->base = new base, L->top = top - | stw PC, SAVE_PC - | mr CARG1, L - | bl extern lj_state_growstack // (lua_State *L, int n) - | lwz BASE, L->base - | lwz RC, L->top - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | sub RC, RC, BASE - | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - | mr L, CARG1 - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | mr BASE, CARG2 - | lbz TMP1, L->status - | stw L, SAVE_L - | li PC, FRAME_CP - | addi TMP0, sp, CFRAME_RESUME - | addi DISPATCH, DISPATCH, GG_G2DISP - | stw CARG3, SAVE_NRES - | cmplwi TMP1, 0 - | stw CARG3, SAVE_ERRF - | stw TMP0, L->cframe - | stw CARG3, SAVE_CFRAME - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | beq >3 - | - | // Resume after yield (like a return). - | mr RA, BASE - | lwz BASE, L->base - | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. - | lwz TMP1, L->top - | evsplati TISFUNC, LJ_TFUNC - | lus TOBIT, 0x4338 - | evsplati TISTAB, LJ_TTAB - | lwz PC, FRAME_PC(BASE) - | li TMP2, 0 - | evsplati TISSTR, LJ_TSTR - | sub RD, TMP1, BASE - | evmergelo TOBIT, TOBIT, TMP2 - | stb CARG3, L->status - | andi. TMP0, PC, FRAME_TYPE - | li_vmstate INTERP - | addi RD, RD, 8 - | evsplati TISNIL, LJ_TNIL - | mr MULTRES, RD - | st_vmstate - | beq ->BC_RET_Z - | b ->vm_return - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | li PC, FRAME_CP - | stw CARG4, SAVE_ERRF - | b >1 - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | li PC, FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - | lwz TMP1, L:CARG1->cframe - | stw CARG3, SAVE_NRES - | mr L, CARG1 - | stw CARG1, SAVE_L - | mr BASE, CARG2 - | stw sp, L->cframe // Add our C frame to cframe chain. - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | stw TMP1, SAVE_CFRAME - | addi DISPATCH, DISPATCH, GG_G2DISP - | - |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype). - | lwz TMP2, L->base // TMP2 = old base (used in vmeta_call). - | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants. - | lwz TMP1, L->top - | evsplati TISFUNC, LJ_TFUNC - | add PC, PC, BASE - | evsplati TISTAB, LJ_TTAB - | lus TOBIT, 0x4338 - | li TMP0, 0 - | sub PC, PC, TMP2 // PC = frame delta + frame type - | evsplati TISSTR, LJ_TSTR - | sub NARGS8:RC, TMP1, BASE - | evmergelo TOBIT, TOBIT, TMP0 - | li_vmstate INTERP - | evsplati TISNIL, LJ_TNIL - | st_vmstate - | - |->vm_call_dispatch: - | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC - | li TMP0, -8 - | evlddx LFUNC:RB, BASE, TMP0 - | checkfunc LFUNC:RB - | checkfail ->vmeta_call - | - |->vm_call_dispatch_f: - | ins_call - | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - | mr L, CARG1 - | lwz TMP0, L:CARG1->stack - | stw CARG1, SAVE_L - | lwz TMP1, L->top - | stw CARG1, SAVE_PC // Any value outside of bytecode is ok. - | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top). - | lwz TMP1, L->cframe - | stw sp, L->cframe // Add our C frame to cframe chain. - | li TMP2, 0 - | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame. - | stw TMP2, SAVE_ERRF // No error function. - | stw TMP1, SAVE_CFRAME - | mtctr CARG4 - | bctrl // (lua_State *L, lua_CFunction func, void *ud) - | mr. BASE, CRET1 - | lwz DISPATCH, L->glref // Setup pointer to dispatch table. - | li PC, FRAME_CP - | addi DISPATCH, DISPATCH, GG_G2DISP - | bne <3 // Else continue with the call. - | b ->vm_leave_cp // No base? Just remove C frame. - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the - |// stack, so BASE doesn't need to be reloaded across these calls. - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8 - | lwz TMP0, -12(BASE) // Continuation. - | mr RB, BASE - | mr BASE, TMP2 // Restore caller BASE. - | lwz LFUNC:TMP1, FRAME_FUNC(TMP2) - | cmplwi TMP0, 0 - | lwz PC, -16(RB) // Restore PC from [cont|PC]. - | beq >1 - | subi TMP2, RD, 8 - | lwz TMP1, LFUNC:TMP1->pc - | evstddx TISNIL, RA, TMP2 // Ensure one valid arg. - | lwz KBASE, PC2PROTO(k)(TMP1) - | // BASE = base, RA = resultptr, RB = meta base - | mtctr TMP0 - | bctr // Jump to continuation. - | - |1: // Tail call from C function. - | subi TMP1, RB, 16 - | sub RC, TMP1, BASE - | b ->vm_call_tail - | - |->cont_cat: // RA = resultptr, RB = meta base - | lwz INS, -4(PC) - | subi CARG2, RB, 16 - | decode_RB8 SAVE0, INS - | evldd TMP0, 0(RA) - | add TMP1, BASE, SAVE0 - | stw BASE, L->base - | cmplw TMP1, CARG2 - | sub CARG3, CARG2, TMP1 - | decode_RA8 RA, INS - | evstdd TMP0, 0(CARG2) - | bne ->BC_CAT_Z - | evstddx TMP0, BASE, RA - | b ->cont_nop - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets1: - | evmergelo STR:RC, TISSTR, STR:RC - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | decode_RB8 RB, INS - | evstdd STR:RC, 0(CARG3) - | add CARG2, BASE, RB - | b >1 - | - |->vmeta_tgets: - | evmergelo TAB:RB, TISTAB, TAB:RB - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - | evmergelo STR:RC, TISSTR, STR:RC - | evstdd TAB:RB, 0(CARG2) - | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) - | evstdd STR:RC, 0(CARG3) - | b >1 - | - |->vmeta_tgetb: // TMP0 = index - | efdcfsi TMP0, TMP0 - | decode_RB8 RB, INS - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | add CARG2, BASE, RB - | evstdd TMP0, 0(CARG3) - | b >1 - | - |->vmeta_tgetv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | cmplwi CRET1, 0 - | beq >3 - | evldd TMP0, 0(CRET1) - | evstddx TMP0, BASE, RA - | ins_next - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | subfic TMP1, BASE, FRAME_CONT - | lwz BASE, L->top - | stw PC, -16(BASE) // [cont|PC] - | add PC, TMP1, BASE - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | li NARGS8:RC, 16 // 2 args for func(t, k). - | b ->vm_call_dispatch_f - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets1: - | evmergelo STR:RC, TISSTR, STR:RC - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | decode_RB8 RB, INS - | evstdd STR:RC, 0(CARG3) - | add CARG2, BASE, RB - | b >1 - | - |->vmeta_tsets: - | evmergelo TAB:RB, TISTAB, TAB:RB - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - | evmergelo STR:RC, TISSTR, STR:RC - | evstdd TAB:RB, 0(CARG2) - | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH) - | evstdd STR:RC, 0(CARG3) - | b >1 - | - |->vmeta_tsetb: // TMP0 = index - | efdcfsi TMP0, TMP0 - | decode_RB8 RB, INS - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | add CARG2, BASE, RB - | evstdd TMP0, 0(CARG3) - | b >1 - | - |->vmeta_tsetv: - | decode_RB8 RB, INS - | decode_RC8 RC, INS - | add CARG2, BASE, RB - | add CARG3, BASE, RC - |1: - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - | // Returns TValue * (finished) or NULL (metamethod). - | cmplwi CRET1, 0 - | evlddx TMP0, BASE, RA - | beq >3 - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | evstdd TMP0, 0(CRET1) - | ins_next - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | subfic TMP1, BASE, FRAME_CONT - | lwz BASE, L->top - | stw PC, -16(BASE) // [cont|PC] - | add PC, TMP1, BASE - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | li NARGS8:RC, 24 // 3 args for func(t, k, v) - | evstdd TMP0, 16(BASE) // Copy value to third argument. - | b ->vm_call_dispatch_f - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - | mr CARG1, L - | subi PC, PC, 4 - | add CARG2, BASE, RA - | stw PC, SAVE_PC - | add CARG3, BASE, RD - | stw BASE, L->base - | decode_OP1 CARG4, INS - | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - | // Returns 0/1 or TValue * (metamethod). - |3: - | cmplwi CRET1, 1 - | bgt ->vmeta_binop - |4: - | lwz INS, 0(PC) - | addi PC, PC, 4 - | decode_RD4 TMP2, INS - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | add TMP2, TMP2, TMP3 - | isellt PC, PC, TMP2 - |->cont_nop: - | ins_next - | - |->cont_ra: // RA = resultptr - | lwz INS, -4(PC) - | evldd TMP0, 0(RA) - | decode_RA8 TMP1, INS - | evstddx TMP0, BASE, TMP1 - | b ->cont_nop - | - |->cont_condt: // RA = resultptr - | lwz TMP0, 0(RA) - | li TMP1, LJ_TTRUE - | cmplw TMP1, TMP0 // Branch if result is true. - | b <4 - | - |->cont_condf: // RA = resultptr - | lwz TMP0, 0(RA) - | li TMP1, LJ_TFALSE - | cmplw TMP0, TMP1 // Branch if result is false. - | b <4 - | - |->vmeta_equal: - | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV. - | subi PC, PC, 4 - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - | // Returns 0/1 or TValue * (metamethod). - | b <3 - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_arith_vn: - | add CARG3, BASE, RB - | add CARG4, KBASE, RC - | b >1 - | - |->vmeta_arith_nv: - | add CARG3, KBASE, RC - | add CARG4, BASE, RB - | b >1 - | - |->vmeta_unm: - | add CARG3, BASE, RD - | mr CARG4, CARG3 - | b >1 - | - |->vmeta_arith_vv: - | add CARG3, BASE, RB - | add CARG4, BASE, RC - |1: - | add CARG2, BASE, RA - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | decode_OP1 CARG5, INS // Caveat: CARG5 overlaps INS. - | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - | // Returns NULL (finished) or TValue * (metamethod). - | cmplwi CRET1, 0 - | beq ->cont_nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2 - | sub TMP1, CRET1, BASE - | stw PC, -16(CRET1) // [cont|PC] - | mr TMP2, BASE - | addi PC, TMP1, FRAME_CONT - | mr BASE, CRET1 - | li NARGS8:RC, 16 // 2 args for func(o1, o2). - | b ->vm_call_dispatch - | - |->vmeta_len: -#if LJ_52 - | mr SAVE0, CARG1 -#endif - | add CARG2, BASE, RD - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | bl extern lj_meta_len // (lua_State *L, TValue *o) - | // Returns NULL (retry) or TValue * (metamethod base). -#if LJ_52 - | cmplwi CRET1, 0 - | bne ->vmeta_binop // Binop call for compatibility. - | mr CARG1, SAVE0 - | b ->BC_LEN_Z -#else - | b ->vmeta_binop // Binop call for compatibility. -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call: // Resolve and call __call metamethod. - | // TMP2 = old base, BASE = new base, RC = nargs*8 - | mr CARG1, L - | stw TMP2, L->base // This is the callers base! - | subi CARG2, BASE, 8 - | stw PC, SAVE_PC - | add CARG3, BASE, RC - | mr SAVE0, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here. - | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. - | ins_call - | - |->vmeta_callt: // Resolve __call for BC_CALLT. - | // BASE = old base, RA = new base, RC = nargs*8 - | mr CARG1, L - | stw BASE, L->base - | subi CARG2, RA, 8 - | stw PC, SAVE_PC - | add CARG3, RA, RC - | mr SAVE0, NARGS8:RC - | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | lwz TMP1, FRAME_PC(BASE) - | addi NARGS8:RC, SAVE0, 8 // Got one more argument now. - | lwz LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here. - | b ->BC_CALLT_Z - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | mr CARG1, L - | stw BASE, L->base - | mr CARG2, RA - | stw PC, SAVE_PC - | mr SAVE0, INS - | bl extern lj_meta_for // (lua_State *L, TValue *base) - |.if JIT - | decode_OP1 TMP0, SAVE0 - |.endif - | decode_RA8 RA, SAVE0 - |.if JIT - | cmpwi TMP0, BC_JFORI - |.endif - | decode_RD8 RD, SAVE0 - |.if JIT - | beq =>BC_JFORI - |.endif - | b =>BC_FORI - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 8 - | evldd CARG1, 0(BASE) - | blt ->fff_fallback - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | cmplwi NARGS8:RC, 16 - | evldd CARG1, 0(BASE) - | evldd CARG2, 8(BASE) - | blt ->fff_fallback - |.endmacro - | - |.macro .ffunc_n, name - | .ffunc_1 name - | checknum CARG1 - | checkfail ->fff_fallback - |.endmacro - | - |.macro .ffunc_nn, name - | .ffunc_2 name - | evmergehi TMP0, CARG1, CARG2 - | checknum TMP0 - | checkanyfail ->fff_fallback - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1. - |.macro ffgccheck - | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | cmplw TMP0, TMP1 - | bgel ->fff_gcstep - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc assert - | cmplwi NARGS8:RC, 8 - | evldd TMP0, 0(BASE) - | blt ->fff_fallback - | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE. - | la RA, -8(BASE) - | evcmpltu cr1, TMP0, TMP1 - | lwz PC, FRAME_PC(BASE) - | bge cr1, ->fff_fallback - | evstdd TMP0, 0(RA) - | addi RD, NARGS8:RC, 8 // Compute (nresults+1)*8. - | beq ->fff_res // Done if exactly 1 argument. - | li TMP1, 8 - | subi RC, RC, 8 - |1: - | cmplw TMP1, RC - | evlddx TMP0, BASE, TMP1 - | evstddx TMP0, RA, TMP1 - | addi TMP1, TMP1, 8 - | bne <1 - | b ->fff_res - | - |.ffunc type - | cmplwi NARGS8:RC, 8 - | lwz CARG1, 0(BASE) - | blt ->fff_fallback - | li TMP2, ~LJ_TNUMX - | cmplw CARG1, TISNUM - | not TMP1, CARG1 - | isellt TMP1, TMP2, TMP1 - | slwi TMP1, TMP1, 3 - | la TMP2, CFUNC:RB->upvalue - | evlddx STR:CRET1, TMP2, TMP1 - | b ->fff_restv - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | checktab CARG1 - | evmergehi TMP1, CARG1, CARG1 - | checkfail >6 - |1: // Field metatable must be at same offset for GCtab and GCudata! - | lwz TAB:RB, TAB:CARG1->metatable - |2: - | evmr CRET1, TISNIL - | cmplwi TAB:RB, 0 - | lwz STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH) - | beq ->fff_restv - | lwz TMP0, TAB:RB->hmask - | evmergelo CRET1, TISTAB, TAB:RB // Use metatable as default result. - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:RB->node - | evmergelo STR:RC, TISSTR, STR:RC - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |3: // Rearranged logic, because we expect _not_ to find the key. - | evldd TMP0, NODE:TMP2->key - | evldd TMP1, NODE:TMP2->val - | evcmpeq TMP0, STR:RC - | lwz NODE:TMP2, NODE:TMP2->next - | checkallok >5 - | cmplwi NODE:TMP2, 0 - | beq ->fff_restv // Not found, keep default result. - | b <3 - |5: - | checknil TMP1 - | checkok ->fff_restv // Ditto for nil value. - | evmr CRET1, TMP1 // Return value of mt.__metatable. - | b ->fff_restv - | - |6: - | cmpwi TMP1, LJ_TUDATA - | not TMP1, TMP1 - | beq <1 - | checknum CARG1 - | slwi TMP1, TMP1, 2 - | li TMP2, 4*~LJ_TNUMX - | isellt TMP1, TMP2, TMP1 - | la TMP2, DISPATCH_GL(gcroot[GCROOT_BASEMT])(DISPATCH) - | lwzx TAB:RB, TMP2, TMP1 - | b <2 - | - |.ffunc_2 setmetatable - | // Fast path: no mt for table yet and not clearing the mt. - | evmergehi TMP0, TAB:CARG1, TAB:CARG2 - | checktab TMP0 - | checkanyfail ->fff_fallback - | lwz TAB:TMP1, TAB:CARG1->metatable - | cmplwi TAB:TMP1, 0 - | lbz TMP3, TAB:CARG1->marked - | bne ->fff_fallback - | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | stw TAB:CARG2, TAB:CARG1->metatable - | beq ->fff_restv - | barrierback TAB:CARG1, TMP3, TMP0 - | b ->fff_restv - | - |.ffunc rawget - | cmplwi NARGS8:RC, 16 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | checktab CARG2 - | la CARG3, 8(BASE) - | checkfail ->fff_fallback - | mr CARG1, L - | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - | // Returns cTValue *. - | evldd CRET1, 0(CRET1) - | b ->fff_restv - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | cmplwi NARGS8:RC, 8 - | evldd CARG1, 0(BASE) - | bne ->fff_fallback // Exactly one argument. - | checknum CARG1 - | checkok ->fff_restv - | b ->fff_fallback - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | checkstr CARG1 - | // A __tostring method in the string base metatable is ignored. - | checkok ->fff_restv // String key? - | // Handle numbers inline, unless a number base metatable is present. - | lwz TMP0, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH) - | checknum CARG1 - | cmplwi cr1, TMP0, 0 - | stw BASE, L->base // Add frame since C call can throw. - | crand 4*cr0+eq, 4*cr0+lt, 4*cr1+eq - | stw PC, SAVE_PC // Redundant (but a defined value). - | bne ->fff_fallback - | ffgccheck - | mr CARG1, L - | mr CARG2, BASE - | bl extern lj_str_fromnum // (lua_State *L, lua_Number *np) - | // Returns GCstr *. - | evmergelo STR:CRET1, TISSTR, STR:CRET1 - | b ->fff_restv - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc next - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | evstddx TISNIL, BASE, NARGS8:RC // Set missing 2nd arg to nil. - | checktab TAB:CARG2 - | lwz PC, FRAME_PC(BASE) - | checkfail ->fff_fallback - | stw BASE, L->base // Add frame since C call can throw. - | mr CARG1, L - | stw BASE, L->top // Dummy frame length is ok. - | la CARG3, 8(BASE) - | stw PC, SAVE_PC - | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - | // Returns 0 at end of traversal. - | cmplwi CRET1, 0 - | evmr CRET1, TISNIL - | beq ->fff_restv // End of traversal: return nil. - | evldd TMP0, 8(BASE) // Copy key and value to results. - | la RA, -8(BASE) - | evldd TMP1, 16(BASE) - | evstdd TMP0, 0(RA) - | li RD, (2+1)*8 - | evstdd TMP1, 8(RA) - | b ->fff_res - | - |.ffunc_1 pairs - | checktab TAB:CARG1 - | lwz PC, FRAME_PC(BASE) - | checkfail ->fff_fallback -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] - | cmplwi TAB:TMP2, 0 - | la RA, -8(BASE) - | bne ->fff_fallback -#else - | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] - | la RA, -8(BASE) -#endif - | evstdd TISNIL, 8(BASE) - | li RD, (3+1)*8 - | evstdd CFUNC:TMP0, 0(RA) - | b ->fff_res - | - |.ffunc_2 ipairs_aux - | checktab TAB:CARG1 - | lwz PC, FRAME_PC(BASE) - | checkfail ->fff_fallback - | checknum CARG2 - | lus TMP3, 0x3ff0 - | checkfail ->fff_fallback - | efdctsi TMP2, CARG2 - | lwz TMP0, TAB:CARG1->asize - | evmergelo TMP3, TMP3, ZERO - | lwz TMP1, TAB:CARG1->array - | efdadd CARG2, CARG2, TMP3 - | addi TMP2, TMP2, 1 - | la RA, -8(BASE) - | cmplw TMP0, TMP2 - | slwi TMP3, TMP2, 3 - | evstdd CARG2, 0(RA) - | ble >2 // Not in array part? - | evlddx TMP1, TMP1, TMP3 - |1: - | checknil TMP1 - | li RD, (0+1)*8 - | checkok ->fff_res // End of iteration, return 0 results. - | li RD, (2+1)*8 - | evstdd TMP1, 8(RA) - | b ->fff_res - |2: // Check for empty hash part first. Otherwise call C function. - | lwz TMP0, TAB:CARG1->hmask - | cmplwi TMP0, 0 - | li RD, (0+1)*8 - | beq ->fff_res - | mr CARG2, TMP2 - | bl extern lj_tab_getinth // (GCtab *t, int32_t key) - | // Returns cTValue * or NULL. - | cmplwi CRET1, 0 - | li RD, (0+1)*8 - | beq ->fff_res - | evldd TMP1, 0(CRET1) - | b <1 - | - |.ffunc_1 ipairs - | checktab TAB:CARG1 - | lwz PC, FRAME_PC(BASE) - | checkfail ->fff_fallback -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] - | cmplwi TAB:TMP2, 0 - | la RA, -8(BASE) - | bne ->fff_fallback -#else - | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0] - | la RA, -8(BASE) -#endif - | evsplati TMP1, 0 - | li RD, (3+1)*8 - | evstdd TMP1, 8(BASE) - | evstdd CFUNC:TMP0, 0(RA) - | b ->fff_res - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc pcall - | cmplwi NARGS8:RC, 8 - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | blt ->fff_fallback - | mr TMP2, BASE - | la BASE, 8(BASE) - | // Remember active hook before pcall. - | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 - | subi NARGS8:RC, NARGS8:RC, 8 - | addi PC, TMP3, 8+FRAME_PCALL - | b ->vm_call_dispatch - | - |.ffunc_2 xpcall - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | mr TMP2, BASE - | checkfunc CARG2 // Traceback must be a function. - | checkfail ->fff_fallback - | la BASE, 16(BASE) - | // Remember active hook before pcall. - | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31 - | evstdd CARG2, 0(TMP2) // Swap function and traceback. - | subi NARGS8:RC, NARGS8:RC, 16 - | evstdd CARG1, 8(TMP2) - | addi PC, TMP3, 16+FRAME_PCALL - | b ->vm_call_dispatch - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | evmergehi TMP0, L:CARG1, L:CARG1 - |.else - |.ffunc coroutine_wrap_aux - | lwz L:CARG1, CFUNC:RB->upvalue[0].gcr - |.endif - |.if resume - | cmpwi TMP0, LJ_TTHREAD - | bne ->fff_fallback - |.endif - | lbz TMP0, L:CARG1->status - | lwz TMP1, L:CARG1->cframe - | lwz CARG2, L:CARG1->top - | cmplwi cr0, TMP0, LUA_YIELD - | lwz TMP2, L:CARG1->base - | cmplwi cr1, TMP1, 0 - | lwz TMP0, L:CARG1->maxstack - | cmplw cr7, CARG2, TMP2 - | lwz PC, FRAME_PC(BASE) - | crorc 4*cr6+lt, 4*cr0+gt, 4*cr1+eq // st>LUA_YIELD || cframe!=0 - | add TMP2, CARG2, NARGS8:RC - | crandc 4*cr6+gt, 4*cr7+eq, 4*cr0+eq // base==top && st!=LUA_YIELD - | cmplw cr1, TMP2, TMP0 - | cror 4*cr6+lt, 4*cr6+lt, 4*cr6+gt - | stw PC, SAVE_PC - | cror 4*cr6+lt, 4*cr6+lt, 4*cr1+gt // cond1 || cond2 || stackov - | stw BASE, L->base - | blt cr6, ->fff_fallback - |1: - |.if resume - | addi BASE, BASE, 8 // Keep resumed thread in stack for GC. - | subi NARGS8:RC, NARGS8:RC, 8 - | subi TMP2, TMP2, 8 - |.endif - | stw TMP2, L:CARG1->top - | li TMP1, 0 - | stw BASE, L->top - |2: // Move args to coroutine. - | cmpw TMP1, NARGS8:RC - | evlddx TMP0, BASE, TMP1 - | beq >3 - | evstddx TMP0, CARG2, TMP1 - | addi TMP1, TMP1, 8 - | b <2 - |3: - | li CARG3, 0 - | mr L:SAVE0, L:CARG1 - | li CARG4, 0 - | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | // Returns thread status. - |4: - | lwz TMP2, L:SAVE0->base - | cmplwi CRET1, LUA_YIELD - | lwz TMP3, L:SAVE0->top - | li_vmstate INTERP - | lwz BASE, L->base - | st_vmstate - | bgt >8 - | sub RD, TMP3, TMP2 - | lwz TMP0, L->maxstack - | cmplwi RD, 0 - | add TMP1, BASE, RD - | beq >6 // No results? - | cmplw TMP1, TMP0 - | li TMP1, 0 - | bgt >9 // Need to grow stack? - | - | subi TMP3, RD, 8 - | stw TMP2, L:SAVE0->top // Clear coroutine stack. - |5: // Move results from coroutine. - | cmplw TMP1, TMP3 - | evlddx TMP0, TMP2, TMP1 - | evstddx TMP0, BASE, TMP1 - | addi TMP1, TMP1, 8 - | bne <5 - |6: - | andi. TMP0, PC, FRAME_TYPE - |.if resume - | li TMP1, LJ_TTRUE - | la RA, -8(BASE) - | stw TMP1, -8(BASE) // Prepend true to results. - | addi RD, RD, 16 - |.else - | mr RA, BASE - | addi RD, RD, 8 - |.endif - |7: - | stw PC, SAVE_PC - | mr MULTRES, RD - | beq ->BC_RET_Z - | b ->vm_return - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | andi. TMP0, PC, FRAME_TYPE - | la TMP3, -8(TMP3) - | li TMP1, LJ_TFALSE - | evldd TMP0, 0(TMP3) - | stw TMP3, L:SAVE0->top // Remove error from coroutine stack. - | li RD, (2+1)*8 - | stw TMP1, -8(BASE) // Prepend false to results. - | la RA, -8(BASE) - | evstdd TMP0, 0(BASE) // Copy error message. - | b <7 - |.else - | mr CARG1, L - | mr CARG2, L:SAVE0 - | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co) - |.endif - | - |9: // Handle stack expansion on return from yield. - | mr CARG1, L - | srwi CARG2, RD, 3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | li CRET1, 0 - | b <4 - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | lwz TMP0, L->cframe - | add TMP1, BASE, NARGS8:RC - | stw BASE, L->base - | andi. TMP0, TMP0, CFRAME_RESUME - | stw TMP1, L->top - | li CRET1, LUA_YIELD - | beq ->fff_fallback - | stw ZERO, L->cframe - | stb CRET1, L->status - | b ->vm_leave_unw - | - |//-- Math library ------------------------------------------------------- - | - |.ffunc_n math_abs - | efdabs CRET1, CARG1 - | // Fallthrough. - | - |->fff_restv: - | // CRET1 = TValue result. - | lwz PC, FRAME_PC(BASE) - | la RA, -8(BASE) - | evstdd CRET1, 0(RA) - |->fff_res1: - | // RA = results, PC = return. - | li RD, (1+1)*8 - |->fff_res: - | // RA = results, RD = (nresults+1)*8, PC = return. - | andi. TMP0, PC, FRAME_TYPE - | mr MULTRES, RD - | bne ->vm_return - | lwz INS, -4(PC) - | decode_RB8 RB, INS - |5: - | cmplw RB, RD // More results expected? - | decode_RA8 TMP0, INS - | bgt >6 - | ins_next1 - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | sub BASE, RA, TMP0 - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | evstddx TISNIL, RA, TMP1 - | b <5 - | - |.macro math_extern, func - | .ffunc math_ .. func - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | checknum CARG2 - | evmergehi CARG1, CARG2, CARG2 - | checkfail ->fff_fallback - | bl extern func@plt - | evmergelo CRET1, CRET1, CRET2 - | b ->fff_restv - |.endmacro - | - |.macro math_extern2, func - | .ffunc math_ .. func - | cmplwi NARGS8:RC, 16 - | evldd CARG2, 0(BASE) - | evldd CARG4, 8(BASE) - | blt ->fff_fallback - | evmergehi CARG1, CARG4, CARG2 - | checknum CARG1 - | evmergehi CARG3, CARG4, CARG4 - | checkanyfail ->fff_fallback - | bl extern func@plt - | evmergelo CRET1, CRET1, CRET2 - | b ->fff_restv - |.endmacro - | - |.macro math_round, func - | .ffunc math_ .. func - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | checknum CARG2 - | evmergehi CARG1, CARG2, CARG2 - | checkfail ->fff_fallback - | lwz PC, FRAME_PC(BASE) - | bl ->vm_..func.._hilo; - | la RA, -8(BASE) - | evstdd CRET2, 0(RA) - | b ->fff_res1 - |.endmacro - | - | math_round floor - | math_round ceil - | - | math_extern sqrt - | - |.ffunc math_log - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | bne ->fff_fallback // Need exactly 1 argument. - | checknum CARG2 - | evmergehi CARG1, CARG2, CARG2 - | checkfail ->fff_fallback - | bl extern log@plt - | evmergelo CRET1, CRET1, CRET2 - | b ->fff_restv - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |->ff_math_deg: - |.ffunc_n math_rad - | evldd CARG2, CFUNC:RB->upvalue[0] - | efdmul CRET1, CARG1, CARG2 - | b ->fff_restv - | - |.ffunc math_ldexp - | cmplwi NARGS8:RC, 16 - | evldd CARG2, 0(BASE) - | evldd CARG4, 8(BASE) - | blt ->fff_fallback - | evmergehi CARG1, CARG4, CARG2 - | checknum CARG1 - | checkanyfail ->fff_fallback - | efdctsi CARG3, CARG4 - | bl extern ldexp@plt - | evmergelo CRET1, CRET1, CRET2 - | b ->fff_restv - | - |.ffunc math_frexp - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | checknum CARG2 - | evmergehi CARG1, CARG2, CARG2 - | checkfail ->fff_fallback - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | lwz PC, FRAME_PC(BASE) - | bl extern frexp@plt - | lwz TMP1, DISPATCH_GL(tmptv)(DISPATCH) - | evmergelo CRET1, CRET1, CRET2 - | efdcfsi CRET2, TMP1 - | la RA, -8(BASE) - | evstdd CRET1, 0(RA) - | li RD, (2+1)*8 - | evstdd CRET2, 8(RA) - | b ->fff_res - | - |.ffunc math_modf - | cmplwi NARGS8:RC, 8 - | evldd CARG2, 0(BASE) - | blt ->fff_fallback - | checknum CARG2 - | evmergehi CARG1, CARG2, CARG2 - | checkfail ->fff_fallback - | la CARG3, -8(BASE) - | lwz PC, FRAME_PC(BASE) - | bl extern modf@plt - | evmergelo CRET1, CRET1, CRET2 - | la RA, -8(BASE) - | evstdd CRET1, 0(BASE) - | li RD, (2+1)*8 - | b ->fff_res - | - |.macro math_minmax, name, cmpop - | .ffunc_1 name - | checknum CARG1 - | li TMP1, 8 - | checkfail ->fff_fallback - |1: - | evlddx CARG2, BASE, TMP1 - | cmplw cr1, TMP1, NARGS8:RC - | checknum CARG2 - | bge cr1, ->fff_restv // Ok, since CRET1 = CARG1. - | checkfail ->fff_fallback - | cmpop CARG2, CARG1 - | addi TMP1, TMP1, 8 - | crmove 4*cr0+lt, 4*cr0+gt - | evsel CARG1, CARG2, CARG1 - | b <1 - |.endmacro - | - | math_minmax math_min, efdtstlt - | math_minmax math_max, efdtstgt - | - |//-- String library ----------------------------------------------------- - | - |.ffunc_1 string_len - | checkstr STR:CARG1 - | checkfail ->fff_fallback - | lwz TMP0, STR:CARG1->len - | efdcfsi CRET1, TMP0 - | b ->fff_restv - | - |.ffunc string_byte // Only handle the 1-arg case here. - | cmplwi NARGS8:RC, 8 - | evldd STR:CARG1, 0(BASE) - | bne ->fff_fallback // Need exactly 1 argument. - | checkstr STR:CARG1 - | la RA, -8(BASE) - | checkfail ->fff_fallback - | lwz TMP0, STR:CARG1->len - | li RD, (0+1)*8 - | lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end). - | li TMP2, (1+1)*8 - | cmplwi TMP0, 0 - | lwz PC, FRAME_PC(BASE) - | efdcfsi CRET1, TMP1 - | iseleq RD, RD, TMP2 - | evstdd CRET1, 0(RA) - | b ->fff_res - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | cmplwi NARGS8:RC, 8 - | evldd CARG1, 0(BASE) - | bne ->fff_fallback // Exactly 1 argument. - | checknum CARG1 - | la CARG2, DISPATCH_GL(tmptv)(DISPATCH) - | checkfail ->fff_fallback - | efdctsiz TMP0, CARG1 - | li CARG3, 1 - | cmplwi TMP0, 255 - | stb TMP0, 0(CARG2) - | bgt ->fff_fallback - |->fff_newstr: - | mr CARG1, L - | stw BASE, L->base - | stw PC, SAVE_PC - | bl extern lj_str_new // (lua_State *L, char *str, size_t l) - | // Returns GCstr *. - | lwz BASE, L->base - | evmergelo STR:CRET1, TISSTR, STR:CRET1 - | b ->fff_restv - | - |.ffunc string_sub - | ffgccheck - | cmplwi NARGS8:RC, 16 - | evldd CARG3, 16(BASE) - | evldd STR:CARG1, 0(BASE) - | blt ->fff_fallback - | evldd CARG2, 8(BASE) - | li TMP2, -1 - | beq >1 - | checknum CARG3 - | checkfail ->fff_fallback - | efdctsiz TMP2, CARG3 - |1: - | checknum CARG2 - | checkfail ->fff_fallback - | checkstr STR:CARG1 - | efdctsiz TMP1, CARG2 - | checkfail ->fff_fallback - | lwz TMP0, STR:CARG1->len - | cmplw TMP0, TMP2 // len < end? (unsigned compare) - | add TMP3, TMP2, TMP0 - | blt >5 - |2: - | cmpwi TMP1, 0 // start <= 0? - | add TMP3, TMP1, TMP0 - | ble >7 - |3: - | sub. CARG3, TMP2, TMP1 - | addi CARG2, STR:CARG1, #STR-1 - | addi CARG3, CARG3, 1 - | add CARG2, CARG2, TMP1 - | isellt CARG3, r0, CARG3 - | b ->fff_newstr - | - |5: // Negative end or overflow. - | cmpw TMP0, TMP2 - | addi TMP3, TMP3, 1 - | iselgt TMP2, TMP3, TMP0 // end = end > len ? len : end+len+1 - | b <2 - | - |7: // Negative start or underflow. - | cmpwi cr1, TMP3, 0 - | iseleq TMP1, r0, TMP3 - | isel TMP1, r0, TMP1, 4*cr1+lt - | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0) - | b <3 - | - |.ffunc string_rep // Only handle the 1-char case inline. - | ffgccheck - | cmplwi NARGS8:RC, 16 - | evldd CARG1, 0(BASE) - | evldd CARG2, 8(BASE) - | bne ->fff_fallback // Exactly 2 arguments. - | checknum CARG2 - | checkfail ->fff_fallback - | checkstr STR:CARG1 - | efdctsiz CARG3, CARG2 - | checkfail ->fff_fallback - | lwz TMP0, STR:CARG1->len - | cmpwi CARG3, 0 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | ble >2 // Count <= 0? (or non-int) - | cmplwi TMP0, 1 - | subi TMP2, CARG3, 1 - | blt >2 // Zero length string? - | cmplw cr1, TMP1, CARG3 - | bne ->fff_fallback // Fallback for > 1-char strings. - | lbz TMP0, STR:CARG1[1] - | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | blt cr1, ->fff_fallback - |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?). - | cmplwi TMP2, 0 - | stbx TMP0, CARG2, TMP2 - | subi TMP2, TMP2, 1 - | bne <1 - | b ->fff_newstr - |2: // Return empty string. - | la STR:CRET1, DISPATCH_GL(strempty)(DISPATCH) - | evmergelo CRET1, TISSTR, STR:CRET1 - | b ->fff_restv - | - |.ffunc string_reverse - | ffgccheck - | cmplwi NARGS8:RC, 8 - | evldd CARG1, 0(BASE) - | blt ->fff_fallback - | checkstr STR:CARG1 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | checkfail ->fff_fallback - | lwz CARG3, STR:CARG1->len - | la CARG1, #STR(STR:CARG1) - | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | li TMP2, 0 - | cmplw TMP1, CARG3 - | subi TMP3, CARG3, 1 - | blt ->fff_fallback - |1: // Reverse string copy. - | cmpwi TMP3, 0 - | lbzx TMP1, CARG1, TMP2 - | blt ->fff_newstr - | stbx TMP1, CARG2, TMP3 - | subi TMP3, TMP3, 1 - | addi TMP2, TMP2, 1 - | b <1 - | - |.macro ffstring_case, name, lo - | .ffunc name - | ffgccheck - | cmplwi NARGS8:RC, 8 - | evldd CARG1, 0(BASE) - | blt ->fff_fallback - | checkstr STR:CARG1 - | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH) - | checkfail ->fff_fallback - | lwz CARG3, STR:CARG1->len - | la CARG1, #STR(STR:CARG1) - | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH) - | cmplw TMP1, CARG3 - | li TMP2, 0 - | blt ->fff_fallback - |1: // ASCII case conversion. - | cmplw TMP2, CARG3 - | lbzx TMP1, CARG1, TMP2 - | bge ->fff_newstr - | subi TMP0, TMP1, lo - | xori TMP3, TMP1, 0x20 - | cmplwi TMP0, 26 - | isellt TMP1, TMP3, TMP1 - | stbx TMP1, CARG2, TMP2 - | addi TMP2, TMP2, 1 - | b <1 - |.endmacro - | - |ffstring_case string_lower, 65 - |ffstring_case string_upper, 97 - | - |//-- Table library ------------------------------------------------------ - | - |.ffunc_1 table_getn - | checktab CARG1 - | checkfail ->fff_fallback - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | efdcfsi CRET1, CRET1 - | b ->fff_restv - | - |//-- Bit library -------------------------------------------------------- - | - |.macro .ffunc_bit, name - | .ffunc_n bit_..name - | efdadd CARG1, CARG1, TOBIT - |.endmacro - | - |.ffunc_bit tobit - |->fff_resbit: - | efdcfsi CRET1, CARG1 - | b ->fff_restv - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name - | li TMP1, 8 - |1: - | evlddx CARG2, BASE, TMP1 - | cmplw cr1, TMP1, NARGS8:RC - | checknum CARG2 - | bge cr1, ->fff_resbit - | checkfail ->fff_fallback - | efdadd CARG2, CARG2, TOBIT - | ins CARG1, CARG1, CARG2 - | addi TMP1, TMP1, 8 - | b <1 - |.endmacro - | - |.ffunc_bit_op band, and - |.ffunc_bit_op bor, or - |.ffunc_bit_op bxor, xor - | - |.ffunc_bit bswap - | rotlwi TMP0, CARG1, 8 - | rlwimi TMP0, CARG1, 24, 0, 7 - | rlwimi TMP0, CARG1, 24, 16, 23 - | efdcfsi CRET1, TMP0 - | b ->fff_restv - | - |.ffunc_bit bnot - | not TMP0, CARG1 - | efdcfsi CRET1, TMP0 - | b ->fff_restv - | - |.macro .ffunc_bit_sh, name, ins, shmod - | .ffunc_nn bit_..name - | efdadd CARG2, CARG2, TOBIT - | efdadd CARG1, CARG1, TOBIT - |.if shmod == 1 - | rlwinm CARG2, CARG2, 0, 27, 31 - |.elif shmod == 2 - | neg CARG2, CARG2 - |.endif - | ins TMP0, CARG1, CARG2 - | efdcfsi CRET1, TMP0 - | b ->fff_restv - |.endmacro - | - |.ffunc_bit_sh lshift, slw, 1 - |.ffunc_bit_sh rshift, srw, 1 - |.ffunc_bit_sh arshift, sraw, 1 - |.ffunc_bit_sh rol, rotlw, 0 - |.ffunc_bit_sh ror, rotlw, 2 - | - |//----------------------------------------------------------------------- - | - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RB = CFUNC, RC = nargs*8 - | lwz TMP3, CFUNC:RB->f - | add TMP1, BASE, NARGS8:RC - | lwz PC, FRAME_PC(BASE) // Fallback may overwrite PC. - | addi TMP0, TMP1, 8*LUA_MINSTACK - | lwz TMP2, L->maxstack - | stw PC, SAVE_PC // Redundant (but a defined value). - | cmplw TMP0, TMP2 - | stw BASE, L->base - | stw TMP1, L->top - | mr CARG1, L - | bgt >5 // Need to grow stack. - | mtctr TMP3 - | bctrl // (lua_State *L) - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | lwz BASE, L->base - | cmpwi CRET1, 0 - | slwi RD, CRET1, 3 - | la RA, -8(BASE) - | bgt ->fff_res // Returned nresults+1? - |1: // Returned 0 or -1: retry fast path. - | lwz TMP0, L->top - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | sub NARGS8:RC, TMP0, BASE - | bne ->vm_call_tail // Returned -1? - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | andi. TMP0, PC, FRAME_TYPE - | rlwinm TMP1, PC, 0, 0, 28 - | bne >3 - | lwz INS, -4(PC) - | decode_RA8 TMP1, INS - | addi TMP1, TMP1, 8 - |3: - | sub TMP2, BASE, TMP1 - | b ->vm_call_dispatch // Resolve again for tailcall. - | - |5: // Grow stack for fallback handler. - | li CARG2, LUA_MINSTACK - | bl extern lj_state_growstack // (lua_State *L, int n) - | lwz BASE, L->base - | cmpw TMP0, TMP0 // Set 4*cr0+eq to force retry. - | b <1 - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RC = nargs*8 - | mflr SAVE0 - | stw BASE, L->base - | add TMP0, BASE, NARGS8:RC - | stw PC, SAVE_PC // Redundant (but a defined value). - | stw TMP0, L->top - | mr CARG1, L - | bl extern lj_gc_step // (lua_State *L) - | lwz BASE, L->base - | mtlr SAVE0 - | lwz TMP0, L->top - | sub NARGS8:RC, TMP0, BASE - | lwz CFUNC:RB, FRAME_FUNC(BASE) - | blr - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - |.if JIT - | NYI - |.endif - | - |->vm_rethook: // Dispatch target for return hooks. - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active? - | beq >1 - |5: // Re-dispatch to static ins. - | addi TMP1, TMP1, GG_DISP2STATIC // Assumes decode_OP4 TMP1, INS. - | lwzx TMP0, DISPATCH, TMP1 - | mtctr TMP0 - | bctr - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH) - | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active? - | rlwinm TMP0, TMP3, 31-LUA_HOOKLINE, 31, 0 - | bne <5 - | - | cmpwi cr1, TMP0, 0 - | addic. TMP2, TMP2, -1 - | beq cr1, <5 - | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH) - | beq >1 - | bge cr1, <5 - |1: - | mr CARG1, L - | stw MULTRES, SAVE_MULTRES - | mr CARG2, PC - | stw BASE, L->base - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc) - |3: - | lwz BASE, L->base - |4: // Re-dispatch to static ins. - | lwz INS, -4(PC) - | decode_OP4 TMP1, INS - | decode_RB8 RB, INS - | addi TMP1, TMP1, GG_DISP2STATIC - | decode_RD8 RD, INS - | lwzx TMP0, DISPATCH, TMP1 - | decode_RA8 RA, INS - | decode_RC8 RC, INS - | mtctr TMP0 - | bctr - | - |->cont_hook: // Continue from hook yield. - | addi PC, PC, 4 - | lwz MULTRES, -20(RB) // Restore MULTRES for *M ins. - | b <4 - | - |->vm_hotloop: // Hot loop counter underflow. - |.if JIT - | NYI - |.endif - | - |->vm_callhook: // Dispatch target for call hooks. - | mr CARG2, PC - |.if JIT - | b >1 - |.endif - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | ori CARG2, PC, 1 - |1: - |.endif - | add TMP0, BASE, RC - | stw PC, SAVE_PC - | mr CARG1, L - | stw BASE, L->base - | sub RA, RA, BASE - | stw TMP0, L->top - | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc) - | // Returns ASMFunction. - | lwz BASE, L->base - | lwz TMP0, L->top - | stw ZERO, SAVE_PC // Invalidate for subsequent line hook. - | sub NARGS8:RC, TMP0, BASE - | add RA, BASE, RA - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | mtctr CRET1 - | bctr - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_exit_handler: - |.if JIT - | NYI - |.endif - |->vm_exit_interp: - |.if JIT - | NYI - |.endif - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - |// FP value rounding. Called by math.floor/math.ceil fast functions - |// and from JIT code. - |// - |// This can be inlined if the CPU has the frin/friz/frip/frim instructions. - |// The alternative hard-float approaches have a deep dependency chain. - |// The resulting latency is at least 3x-7x the double-precision FP latency - |// (e500v2: 6cy, e600: 5cy, Cell: 10cy) or around 20-70 cycles. - |// - |// The soft-float approach is tedious, but much faster (e500v2: ~11cy/~6cy). - |// However it relies on a fast way to transfer the FP value to GPRs - |// (e500v2: 0cy for lo-word, 1cy for hi-word). - |// - |.macro vm_round, name, mode - | // Used temporaries: TMP0, TMP1, TMP2, TMP3. - |->name.._efd: // Input: CARG2, output: CRET2 - | evmergehi CARG1, CARG2, CARG2 - |->name.._hilo: - | // Input: CARG1 (hi), CARG2 (hi, lo), output: CRET2 - | rlwinm TMP2, CARG1, 12, 21, 31 - | addic. TMP2, TMP2, -1023 // exp = exponent(x) - 1023 - | li TMP1, -1 - | cmplwi cr1, TMP2, 51 // 0 <= exp <= 51? - | subfic TMP0, TMP2, 52 - | bgt cr1, >1 - | lus TMP3, 0xfff0 - | slw TMP0, TMP1, TMP0 // lomask = -1 << (52-exp) - | sraw TMP1, TMP3, TMP2 // himask = (int32_t)0xfff00000 >> exp - |.if mode == 2 // trunc(x): - | evmergelo TMP0, TMP1, TMP0 - | evand CRET2, CARG2, TMP0 // hi &= himask, lo &= lomask - |.else - | andc TMP2, CARG2, TMP0 - | andc TMP3, CARG1, TMP1 - | or TMP2, TMP2, TMP3 // ztest = (hi&~himask) | (lo&~lomask) - | srawi TMP3, CARG1, 31 // signmask = (int32_t)hi >> 31 - |.if mode == 0 // floor(x): - | and. TMP2, TMP2, TMP3 // iszero = ((ztest & signmask) == 0) - |.else // ceil(x): - | andc. TMP2, TMP2, TMP3 // iszero = ((ztest & ~signmask) == 0) - |.endif - | and CARG2, CARG2, TMP0 // lo &= lomask - | and CARG1, CARG1, TMP1 // hi &= himask - | subc TMP0, CARG2, TMP0 - | iseleq TMP0, CARG2, TMP0 // lo = iszero ? lo : lo-lomask - | sube TMP1, CARG1, TMP1 - | iseleq TMP1, CARG1, TMP1 // hi = iszero ? hi : hi-himask+carry - | evmergelo CRET2, TMP1, TMP0 - |.endif - | blr - |1: - | bgtlr // Already done if >=2^52, +-inf or nan. - |.if mode == 2 // trunc(x): - | rlwinm TMP1, CARG1, 0, 0, 0 // hi = sign(x) - | li TMP0, 0 - | evmergelo CRET2, TMP1, TMP0 - |.else - | rlwinm TMP2, CARG1, 0, 1, 31 - | srawi TMP0, CARG1, 31 // signmask = (int32_t)hi >> 31 - | or TMP2, TMP2, CARG2 // ztest = abs(hi) | lo - | lus TMP1, 0x3ff0 - |.if mode == 0 // floor(x): - | and. TMP2, TMP2, TMP0 // iszero = ((ztest & signmask) == 0) - |.else // ceil(x): - | andc. TMP2, TMP2, TMP0 // iszero = ((ztest & ~signmask) == 0) - |.endif - | li TMP0, 0 - | iseleq TMP1, r0, TMP1 - | rlwimi CARG1, TMP1, 0, 1, 31 // hi = sign(x) | (iszero ? 0.0 : 1.0) - | evmergelo CRET2, CARG1, TMP0 - |.endif - | blr - |.endmacro - | - |->vm_floor: - | mflr CARG3 - | evmergelo CARG2, CARG1, CARG2 - | bl ->vm_floor_hilo - | mtlr CARG3 - | evmergehi CRET1, CRET2, CRET2 - | blr - | - | vm_round vm_floor, 0 - | vm_round vm_ceil, 1 - |.if JIT - | vm_round vm_trunc, 2 - |.else - |->vm_trunc_efd: - |->vm_trunc_hilo: - |.endif - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_ffi_call: - |.if FFI - | NYI - |.endif - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1*8, RD = src2*8, JMP with RD = target - | evlddx TMP0, BASE, RA - | addi PC, PC, 4 - | evlddx TMP1, BASE, RD - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | lwz TMP2, -4(PC) - | evmergehi RB, TMP0, TMP1 - | decode_RD4 TMP2, TMP2 - | checknum RB - | add TMP2, TMP2, TMP3 - | checkanyfail ->vmeta_comp - | efdcmplt TMP0, TMP1 - if (op == BC_ISLE || op == BC_ISGT) { - | efdcmpeq cr1, TMP0, TMP1 - | cror 4*cr0+gt, 4*cr0+gt, 4*cr1+gt - } - if (op == BC_ISLT || op == BC_ISLE) { - | iselgt PC, TMP2, PC - } else { - | iselgt PC, PC, TMP2 - } - | ins_next - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | // RA = src1*8, RD = src2*8, JMP with RD = target - | evlddx CARG2, BASE, RA - | addi PC, PC, 4 - | evlddx CARG3, BASE, RD - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | lwz TMP2, -4(PC) - | evmergehi RB, CARG2, CARG3 - | decode_RD4 TMP2, TMP2 - | checknum RB - | add TMP2, TMP2, TMP3 - | checkanyfail >5 - | efdcmpeq CARG2, CARG3 - if (vk) { - | iselgt PC, TMP2, PC - } else { - | iselgt PC, PC, TMP2 - } - |1: - | ins_next - | - |5: // Either or both types are not numbers. - | evcmpeq CARG2, CARG3 - | not TMP3, RB - | cmplwi cr1, TMP3, ~LJ_TISPRI // Primitive? - | crorc 4*cr7+lt, 4*cr0+so, 4*cr0+lt // 1: Same tv or different type. - | cmplwi cr6, TMP3, ~LJ_TISTABUD // Table or userdata? - | crandc 4*cr7+gt, 4*cr0+lt, 4*cr1+gt // 2: Same type and primitive. - | mr SAVE0, PC - if (vk) { - | isel PC, TMP2, PC, 4*cr7+gt - } else { - | isel TMP2, PC, TMP2, 4*cr7+gt - } - | cror 4*cr7+lt, 4*cr7+lt, 4*cr7+gt // 1 or 2. - if (vk) { - | isel PC, TMP2, PC, 4*cr0+so - } else { - | isel PC, PC, TMP2, 4*cr0+so - } - | blt cr7, <1 // Done if 1 or 2. - | blt cr6, <1 // Done if not tab/ud. - | - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | lwz TAB:TMP2, TAB:CARG2->metatable - | li CARG4, 1-vk // ne = 0 or 1. - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable? - | lbz TMP2, TAB:TMP2->nomm - | andi. TMP2, TMP2, 1<vmeta_equal // Handle __eq metamethod. - break; - - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | // RA = src*8, RD = str_const*8 (~), JMP with RD = target - | evlddx TMP0, BASE, RA - | srwi RD, RD, 1 - | lwz INS, 0(PC) - | subfic RD, RD, -4 - | addi PC, PC, 4 - | lwzx STR:TMP1, KBASE, RD // KBASE-4-str_const*4 - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | decode_RD4 TMP2, INS - | evmergelo STR:TMP1, TISSTR, STR:TMP1 - | add TMP2, TMP2, TMP3 - | evcmpeq TMP0, STR:TMP1 - if (vk) { - | isel PC, TMP2, PC, 4*cr0+so - } else { - | isel PC, PC, TMP2, 4*cr0+so - } - | ins_next - break; - - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | // RA = src*8, RD = num_const*8, JMP with RD = target - | evlddx TMP0, BASE, RA - | addi PC, PC, 4 - | evlddx TMP1, KBASE, RD - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | lwz INS, -4(PC) - | checknum TMP0 - | checkfail >5 - | efdcmpeq TMP0, TMP1 - |1: - | decode_RD4 TMP2, INS - | add TMP2, TMP2, TMP3 - if (vk) { - | iselgt PC, TMP2, PC - |5: - } else { - | iselgt PC, PC, TMP2 - } - |3: - | ins_next - if (!vk) { - |5: - | decode_RD4 TMP2, INS - | add PC, TMP2, TMP3 - | b <3 - } - break; - - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target - | lwzx TMP0, BASE, RA - | srwi TMP1, RD, 3 - | lwz INS, 0(PC) - | addi PC, PC, 4 - | not TMP1, TMP1 - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | cmplw TMP0, TMP1 - | decode_RD4 TMP2, INS - | add TMP2, TMP2, TMP3 - if (vk) { - | iseleq PC, TMP2, PC - } else { - | iseleq PC, PC, TMP2 - } - | ins_next - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | // RA = dst*8 or unused, RD = src*8, JMP with RD = target - | evlddx TMP0, BASE, RD - | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE. - | lwz INS, 0(PC) - | evcmpltu TMP0, TMP1 - | addi PC, PC, 4 - if (op == BC_IST || op == BC_ISF) { - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | decode_RD4 TMP2, INS - | add TMP2, TMP2, TMP3 - if (op == BC_IST) { - | isellt PC, TMP2, PC - } else { - | isellt PC, PC, TMP2 - } - } else { - if (op == BC_ISTC) { - | checkfail >1 - } else { - | checkok >1 - } - | addis PC, PC, -(BCBIAS_J*4 >> 16) - | decode_RD4 TMP2, INS - | evstddx TMP0, BASE, RA - | add PC, PC, TMP2 - |1: - } - | ins_next - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | // RA = dst*8, RD = src*8 - | ins_next1 - | evlddx TMP0, BASE, RD - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_NOT: - | // RA = dst*8, RD = src*8 - | ins_next1 - | lwzx TMP0, BASE, RD - | subfic TMP1, TMP0, LJ_TTRUE - | adde TMP0, TMP0, TMP1 - | stwx TMP0, BASE, RA - | ins_next2 - break; - case BC_UNM: - | // RA = dst*8, RD = src*8 - | evlddx TMP0, BASE, RD - | checknum TMP0 - | checkfail ->vmeta_unm - | efdneg TMP0, TMP0 - | ins_next1 - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_LEN: - | // RA = dst*8, RD = src*8 - | evlddx CARG1, BASE, RD - | checkstr CARG1 - | checkfail >2 - | lwz CRET1, STR:CARG1->len - |1: - | ins_next1 - | efdcfsi TMP0, CRET1 - | evstddx TMP0, BASE, RA - | ins_next2 - |2: - | checktab CARG1 - | checkfail ->vmeta_len -#if LJ_52 - | lwz TAB:TMP2, TAB:CARG1->metatable - | cmplwi TAB:TMP2, 0 - | bne >9 - |3: -#endif - |->BC_LEN_Z: - | bl extern lj_tab_len // (GCtab *t) - | // Returns uint32_t (but less than 2^31). - | b <1 -#if LJ_52 - |9: - | lbz TMP0, TAB:TMP2->nomm - | andi. TMP0, TMP0, 1<vmeta_len -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithpre, t0, t1 - | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8 - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | evlddx t0, BASE, RB - | checknum t0 - | evlddx t1, KBASE, RC - | checkfail ->vmeta_arith_vn - || break; - ||case 1: - | evlddx t1, BASE, RB - | checknum t1 - | evlddx t0, KBASE, RC - | checkfail ->vmeta_arith_nv - || break; - ||default: - | evlddx t0, BASE, RB - | evlddx t1, BASE, RC - | evmergehi TMP2, t0, t1 - | checknum TMP2 - | checkanyfail ->vmeta_arith_vv - || break; - ||} - |.endmacro - | - |.macro ins_arith, ins - | ins_arithpre TMP0, TMP1 - | ins_next1 - | ins TMP0, TMP0, TMP1 - | evstddx TMP0, BASE, RA - | ins_next2 - |.endmacro - - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arith efdadd - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arith efdsub - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arith efdmul - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arith efddiv - break; - case BC_MODVN: - | ins_arithpre RD, SAVE0 - |->BC_MODVN_Z: - | efddiv CARG2, RD, SAVE0 - | bl ->vm_floor_efd // floor(b/c) - | efdmul TMP0, CRET2, SAVE0 - | ins_next1 - | efdsub TMP0, RD, TMP0 // b - floor(b/c)*c - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_MODNV: case BC_MODVV: - | ins_arithpre RD, SAVE0 - | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. - break; - case BC_POW: - | evlddx CARG2, BASE, RB - | evlddx CARG4, BASE, RC - | evmergehi CARG1, CARG4, CARG2 - | checknum CARG1 - | evmergehi CARG3, CARG4, CARG4 - | checkanyfail ->vmeta_arith_vv - | bl extern pow@plt - | evmergelo CRET2, CRET1, CRET2 - | evstddx CRET2, BASE, RA - | ins_next - break; - - case BC_CAT: - | // RA = dst*8, RB = src_start*8, RC = src_end*8 - | sub CARG3, RC, RB - | stw BASE, L->base - | add CARG2, BASE, RC - | mr SAVE0, RB - |->BC_CAT_Z: - | stw PC, SAVE_PC - | mr CARG1, L - | srwi CARG3, CARG3, 3 - | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left) - | // Returns NULL (finished) or TValue * (metamethod). - | cmplwi CRET1, 0 - | lwz BASE, L->base - | bne ->vmeta_binop - | evlddx TMP0, BASE, SAVE0 // Copy result from RB to RA. - | evstddx TMP0, BASE, RA - | ins_next - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | // RA = dst*8, RD = str_const*8 (~) - | ins_next1 - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | lwzx TMP0, KBASE, TMP1 // KBASE-4-str_const*4 - | evmergelo TMP0, TISSTR, TMP0 - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_KCDATA: - |.if FFI - | // RA = dst*8, RD = cdata_const*8 (~) - | ins_next1 - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | lwzx TMP0, KBASE, TMP1 // KBASE-4-cdata_const*4 - | li TMP2, LJ_TCDATA - | evmergelo TMP0, TMP2, TMP0 - | evstddx TMP0, BASE, RA - | ins_next2 - |.endif - break; - case BC_KSHORT: - | // RA = dst*8, RD = int16_literal*8 - | srwi TMP1, RD, 3 - | extsh TMP1, TMP1 - | ins_next1 - | efdcfsi TMP0, TMP1 - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_KNUM: - | // RA = dst*8, RD = num_const*8 - | evlddx TMP0, KBASE, RD - | ins_next1 - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_KPRI: - | // RA = dst*8, RD = primitive_type*8 (~) - | srwi TMP1, RD, 3 - | not TMP0, TMP1 - | ins_next1 - | stwx TMP0, BASE, RA - | ins_next2 - break; - case BC_KNIL: - | // RA = base*8, RD = end*8 - | evstddx TISNIL, BASE, RA - | addi RA, RA, 8 - |1: - | evstddx TISNIL, BASE, RA - | cmpw RA, RD - | addi RA, RA, 8 - | blt <1 - | ins_next_ - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | // RA = dst*8, RD = uvnum*8 - | ins_next1 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RD, RD, 1 - | addi RD, RD, offsetof(GCfuncL, uvptr) - | lwzx UPVAL:RB, LFUNC:RB, RD - | lwz TMP1, UPVAL:RB->v - | evldd TMP0, 0(TMP1) - | evstddx TMP0, BASE, RA - | ins_next2 - break; - case BC_USETV: - | // RA = uvnum*8, RD = src*8 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | evlddx TMP1, BASE, RD - | lwzx UPVAL:RB, LFUNC:RB, RA - | lbz TMP3, UPVAL:RB->marked - | lwz CARG2, UPVAL:RB->v - | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) - | lbz TMP0, UPVAL:RB->closed - | evmergehi TMP2, TMP1, TMP1 - | evstdd TMP1, 0(CARG2) - | cmplwi cr1, TMP0, 0 - | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | subi TMP2, TMP2, (LJ_TISNUM+1) - | bne >2 // Upvalue is closed and black? - |1: - | ins_next - | - |2: // Check if new value is collectable. - | cmplwi TMP2, LJ_TISGCV - (LJ_TISNUM+1) - | bge <1 // tvisgcv(v) - | lbz TMP3, GCOBJ:TMP1->gch.marked - | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(v) - | la CARG1, GG_DISP2G(DISPATCH) - | // Crossed a write barrier. Move the barrier forward. - | beq <1 - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETS: - | // RA = uvnum*8, RD = str_const*8 (~) - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi TMP1, RD, 1 - | srwi RA, RA, 1 - | subfic TMP1, TMP1, -4 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | lwzx STR:TMP1, KBASE, TMP1 // KBASE-4-str_const*4 - | lwzx UPVAL:RB, LFUNC:RB, RA - | evmergelo STR:TMP1, TISSTR, STR:TMP1 - | lbz TMP3, UPVAL:RB->marked - | lwz CARG2, UPVAL:RB->v - | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv) - | lbz TMP3, STR:TMP1->marked - | lbz TMP2, UPVAL:RB->closed - | evstdd STR:TMP1, 0(CARG2) - | bne >2 - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(str) - | cmplwi cr1, TMP2, 0 - | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq - | la CARG1, GG_DISP2G(DISPATCH) - | // Crossed a write barrier. Move the barrier forward. - | beq <1 - | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv) - | b <1 - break; - case BC_USETN: - | // RA = uvnum*8, RD = num_const*8 - | ins_next1 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | evlddx TMP0, KBASE, RD - | lwzx UPVAL:RB, LFUNC:RB, RA - | lwz TMP1, UPVAL:RB->v - | evstdd TMP0, 0(TMP1) - | ins_next2 - break; - case BC_USETP: - | // RA = uvnum*8, RD = primitive_type*8 (~) - | ins_next1 - | lwz LFUNC:RB, FRAME_FUNC(BASE) - | srwi RA, RA, 1 - | addi RA, RA, offsetof(GCfuncL, uvptr) - | srwi TMP0, RD, 3 - | lwzx UPVAL:RB, LFUNC:RB, RA - | not TMP0, TMP0 - | lwz TMP1, UPVAL:RB->v - | stw TMP0, 0(TMP1) - | ins_next2 - break; - - case BC_UCLO: - | // RA = level*8, RD = target - | lwz TMP1, L->openupval - | branch_RD // Do this first since RD is not saved. - | stw BASE, L->base - | cmplwi TMP1, 0 - | mr CARG1, L - | beq >1 - | add CARG2, BASE, RA - | bl extern lj_func_closeuv // (lua_State *L, TValue *level) - | lwz BASE, L->base - |1: - | ins_next - break; - - case BC_FNEW: - | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype) - | srwi TMP1, RD, 1 - | stw BASE, L->base - | subfic TMP1, TMP1, -4 - | stw PC, SAVE_PC - | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 - | mr CARG1, L - | lwz CARG3, FRAME_FUNC(BASE) - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | bl extern lj_func_newL_gc - | // Returns GCfuncL *. - | lwz BASE, L->base - | evmergelo LFUNC:CRET1, TISFUNC, LFUNC:CRET1 - | evstddx LFUNC:CRET1, BASE, RA - | ins_next - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - case BC_TDUP: - | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~) - | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) - | mr CARG1, L - | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) - | stw BASE, L->base - | cmplw TMP0, TMP1 - | stw PC, SAVE_PC - | bge >5 - |1: - if (op == BC_TNEW) { - | rlwinm CARG2, RD, 29, 21, 31 - | rlwinm CARG3, RD, 18, 27, 31 - | cmpwi CARG2, 0x7ff - | li TMP1, 0x801 - | iseleq CARG2, TMP1, CARG2 - | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) - | // Returns Table *. - } else { - | srwi TMP1, RD, 1 - | subfic TMP1, TMP1, -4 - | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4 - | bl extern lj_tab_dup // (lua_State *L, Table *kt) - | // Returns Table *. - } - | lwz BASE, L->base - | evmergelo TAB:CRET1, TISTAB, TAB:CRET1 - | evstddx TAB:CRET1, BASE, RA - | ins_next - |5: - | mr SAVE0, RD - | bl extern lj_gc_step_fixtop // (lua_State *L) - | mr RD, SAVE0 - | mr CARG1, L - | b <1 - break; - - case BC_GGET: - | // RA = dst*8, RD = str_const*8 (~) - case BC_GSET: - | // RA = src*8, RD = str_const*8 (~) - | lwz LFUNC:TMP2, FRAME_FUNC(BASE) - | srwi TMP1, RD, 1 - | lwz TAB:RB, LFUNC:TMP2->env - | subfic TMP1, TMP1, -4 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - if (op == BC_GGET) { - | b ->BC_TGETS_Z - } else { - | b ->BC_TSETS_Z - } - break; - - case BC_TGETV: - | // RA = dst*8, RB = table*8, RC = key*8 - | evlddx TAB:RB, BASE, RB - | evlddx RC, BASE, RC - | checktab TAB:RB - | checkfail ->vmeta_tgetv - | checknum RC - | checkfail >5 - | // Convert number key to integer - | efdctsi TMP2, RC - | lwz TMP0, TAB:RB->asize - | efdcfsi TMP1, TMP2 - | cmplw cr0, TMP0, TMP2 - | efdcmpeq cr1, RC, TMP1 - | lwz TMP1, TAB:RB->array - | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt - | slwi TMP2, TMP2, 3 - | ble ->vmeta_tgetv // Integer key and in array part? - | evlddx TMP1, TMP1, TMP2 - | checknil TMP1 - | checkok >2 - |1: - | evstddx TMP1, BASE, RA - | ins_next - | - |2: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP0, TAB:TMP2->nomm - | andi. TMP0, TMP0, 1<vmeta_tgetv - | - |5: - | checkstr STR:RC // String key? - | checkok ->BC_TGETS_Z - | b ->vmeta_tgetv - break; - case BC_TGETS: - | // RA = dst*8, RB = table*8, RC = str_const*8 (~) - | evlddx TAB:RB, BASE, RB - | srwi TMP1, RC, 1 - | checktab TAB:RB - | subfic TMP1, TMP1, -4 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - | checkfail ->vmeta_tgets1 - |->BC_TGETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8 - | lwz TMP0, TAB:RB->hmask - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:RB->node - | evmergelo STR:RC, TISSTR, STR:RC - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |1: - | evldd TMP0, NODE:TMP2->key - | evldd TMP1, NODE:TMP2->val - | evcmpeq TMP0, STR:RC - | checkanyfail >4 - | checknil TMP1 - | checkok >5 // Key found, but nil value? - |3: - | evstddx TMP1, BASE, RA - | ins_next - | - |4: // Follow hash chain. - | lwz NODE:TMP2, NODE:TMP2->next - | cmplwi NODE:TMP2, 0 - | bne <1 - | // End of hash chain: key not found, nil result. - | evmr TMP1, TISNIL - | - |5: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <3 // No metatable: done. - | lbz TMP0, TAB:TMP2->nomm - | andi. TMP0, TMP0, 1<vmeta_tgets - break; - case BC_TGETB: - | // RA = dst*8, RB = table*8, RC = index*8 - | evlddx TAB:RB, BASE, RB - | srwi TMP0, RC, 3 - | checktab TAB:RB - | checkfail ->vmeta_tgetb - | lwz TMP1, TAB:RB->asize - | lwz TMP2, TAB:RB->array - | cmplw TMP0, TMP1 - | bge ->vmeta_tgetb - | evlddx TMP1, TMP2, RC - | checknil TMP1 - | checkok >5 - |1: - | ins_next1 - | evstddx TMP1, BASE, RA - | ins_next2 - | - |5: // Check for __index if table value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP2, TAB:TMP2->nomm - | andi. TMP2, TMP2, 1<vmeta_tgetb // Caveat: preserve TMP0! - break; - - case BC_TSETV: - | // RA = src*8, RB = table*8, RC = key*8 - | evlddx TAB:RB, BASE, RB - | evlddx RC, BASE, RC - | checktab TAB:RB - | checkfail ->vmeta_tsetv - | checknum RC - | checkfail >5 - | // Convert number key to integer - | efdctsi TMP2, RC - | evlddx SAVE0, BASE, RA - | lwz TMP0, TAB:RB->asize - | efdcfsi TMP1, TMP2 - | cmplw cr0, TMP0, TMP2 - | efdcmpeq cr1, RC, TMP1 - | lwz TMP1, TAB:RB->array - | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt - | slwi TMP0, TMP2, 3 - | ble ->vmeta_tsetv // Integer key and in array part? - | lbz TMP3, TAB:RB->marked - | evlddx TMP2, TMP1, TMP0 - | checknil TMP2 - | checkok >3 - |1: - | andi. TMP2, TMP3, LJ_GC_BLACK // isblack(table) - | evstddx SAVE0, TMP1, TMP0 - | bne >7 - |2: - | ins_next - | - |3: // Check for __newindex if previous value is nil. - | lwz TAB:TMP2, TAB:RB->metatable - | cmplwi TAB:TMP2, 0 - | beq <1 // No metatable: done. - | lbz TMP2, TAB:TMP2->nomm - | andi. TMP2, TMP2, 1<vmeta_tsetv - | - |5: - | checkstr STR:RC // String key? - | checkok ->BC_TSETS_Z - | b ->vmeta_tsetv - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <2 - break; - case BC_TSETS: - | // RA = src*8, RB = table*8, RC = str_const*8 (~) - | evlddx TAB:RB, BASE, RB - | srwi TMP1, RC, 1 - | checktab TAB:RB - | subfic TMP1, TMP1, -4 - | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4 - | checkfail ->vmeta_tsets1 - |->BC_TSETS_Z: - | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = src*8 - | lwz TMP0, TAB:RB->hmask - | lwz TMP1, STR:RC->hash - | lwz NODE:TMP2, TAB:RB->node - | evmergelo STR:RC, TISSTR, STR:RC - | stb ZERO, TAB:RB->nomm // Clear metamethod cache. - | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask - | evlddx SAVE0, BASE, RA - | slwi TMP0, TMP1, 5 - | slwi TMP1, TMP1, 3 - | sub TMP1, TMP0, TMP1 - | lbz TMP3, TAB:RB->marked - | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8) - |1: - | evldd TMP0, NODE:TMP2->key - | evldd TMP1, NODE:TMP2->val - | evcmpeq TMP0, STR:RC - | checkanyfail >5 - | checknil TMP1 - | checkok >4 // Key found, but nil value? - |2: - | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | evstdd SAVE0, NODE:TMP2->val - | bne >7 - |3: - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | lwz TAB:TMP1, TAB:RB->metatable - | cmplwi TAB:TMP1, 0 - | beq <2 // No metatable: done. - | lbz TMP0, TAB:TMP1->nomm - | andi. TMP0, TMP0, 1<vmeta_tsets - | - |5: // Follow hash chain. - | lwz NODE:TMP2, NODE:TMP2->next - | cmplwi NODE:TMP2, 0 - | bne <1 - | // End of hash chain: key not found, add a new one. - | - | // But check for __newindex first. - | lwz TAB:TMP1, TAB:RB->metatable - | la CARG3, DISPATCH_GL(tmptv)(DISPATCH) - | stw PC, SAVE_PC - | mr CARG1, L - | cmplwi TAB:TMP1, 0 - | stw BASE, L->base - | beq >6 // No metatable: continue. - | lbz TMP0, TAB:TMP1->nomm - | andi. TMP0, TMP0, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. - |6: - | mr CARG2, TAB:RB - | evstdd STR:RC, 0(CARG3) - | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) - | // Returns TValue *. - | lwz BASE, L->base - | evstdd SAVE0, 0(CRET1) - | b <3 // No 2nd write barrier needed. - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <3 - break; - case BC_TSETB: - | // RA = src*8, RB = table*8, RC = index*8 - | evlddx TAB:RB, BASE, RB - | srwi TMP0, RC, 3 - | checktab TAB:RB - | checkfail ->vmeta_tsetb - | lwz TMP1, TAB:RB->asize - | lwz TMP2, TAB:RB->array - | lbz TMP3, TAB:RB->marked - | cmplw TMP0, TMP1 - | evlddx SAVE0, BASE, RA - | bge ->vmeta_tsetb - | evlddx TMP1, TMP2, RC - | checknil TMP1 - | checkok >5 - |1: - | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - | evstddx SAVE0, TMP2, RC - | bne >7 - |2: - | ins_next - | - |5: // Check for __newindex if previous value is nil. - | lwz TAB:TMP1, TAB:RB->metatable - | cmplwi TAB:TMP1, 0 - | beq <1 // No metatable: done. - | lbz TMP1, TAB:TMP1->nomm - | andi. TMP1, TMP1, 1<vmeta_tsetb // Caveat: preserve TMP0! - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, TMP3, TMP0 - | b <2 - break; - - case BC_TSETM: - | // RA = base*8 (table at base-1), RD = num_const*8 (start index) - | add RA, BASE, RA - |1: - | add TMP3, KBASE, RD - | lwz TAB:CARG2, -4(RA) // Guaranteed to be a table. - | addic. TMP0, MULTRES, -8 - | lwz TMP3, 4(TMP3) // Integer constant is in lo-word. - | srwi CARG3, TMP0, 3 - | beq >4 // Nothing to copy? - | add CARG3, CARG3, TMP3 - | lwz TMP2, TAB:CARG2->asize - | slwi TMP1, TMP3, 3 - | lbz TMP3, TAB:CARG2->marked - | cmplw CARG3, TMP2 - | add TMP2, RA, TMP0 - | lwz TMP0, TAB:CARG2->array - | bgt >5 - | add TMP1, TMP1, TMP0 - | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table) - |3: // Copy result slots to table. - | evldd TMP0, 0(RA) - | addi RA, RA, 8 - | cmpw cr1, RA, TMP2 - | evstdd TMP0, 0(TMP1) - | addi TMP1, TMP1, 8 - | blt cr1, <3 - | bne >7 - |4: - | ins_next - | - |5: // Need to resize array part. - | stw BASE, L->base - | mr CARG1, L - | stw PC, SAVE_PC - | mr SAVE0, RD - | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - | // Must not reallocate the stack. - | mr RD, SAVE0 - | b <1 - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:CARG2, TMP3, TMP0 - | b <4 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALLM: - | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8 - | add NARGS8:RC, NARGS8:RC, MULTRES - | // Fall through. Assumes BC_CALL follows. - break; - case BC_CALL: - | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8 - | evlddx LFUNC:RB, BASE, RA - | mr TMP2, BASE - | add BASE, BASE, RA - | subi NARGS8:RC, NARGS8:RC, 8 - | checkfunc LFUNC:RB - | addi BASE, BASE, 8 - | checkfail ->vmeta_call - | ins_call - break; - - case BC_CALLMT: - | // RA = base*8, (RB = 0,) RC = extra_nargs*8 - | add NARGS8:RC, NARGS8:RC, MULTRES - | // Fall through. Assumes BC_CALLT follows. - break; - case BC_CALLT: - | // RA = base*8, (RB = 0,) RC = (nargs+1)*8 - | evlddx LFUNC:RB, BASE, RA - | add RA, BASE, RA - | lwz TMP1, FRAME_PC(BASE) - | subi NARGS8:RC, NARGS8:RC, 8 - | checkfunc LFUNC:RB - | addi RA, RA, 8 - | checkfail ->vmeta_callt - |->BC_CALLT_Z: - | andi. TMP0, TMP1, FRAME_TYPE // Caveat: preserve cr0 until the crand. - | lbz TMP3, LFUNC:RB->ffid - | xori TMP2, TMP1, FRAME_VARG - | cmplwi cr1, NARGS8:RC, 0 - | bne >7 - |1: - | stw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC. - | li TMP2, 0 - | cmplwi cr7, TMP3, 1 // (> FF_C) Calling a fast function? - | beq cr1, >3 - |2: - | addi TMP3, TMP2, 8 - | evlddx TMP0, RA, TMP2 - | cmplw cr1, TMP3, NARGS8:RC - | evstddx TMP0, BASE, TMP2 - | mr TMP2, TMP3 - | bne cr1, <2 - |3: - | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+gt - | beq >5 - |4: - | ins_callt - | - |5: // Tailcall to a fast function with a Lua frame below. - | lwz INS, -4(TMP1) - | decode_RA8 RA, INS - | sub TMP1, BASE, RA - | lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1) - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE. - | b <4 - | - |7: // Tailcall from a vararg function. - | andi. TMP0, TMP2, FRAME_TYPEP - | bne <1 // Vararg frame below? - | sub BASE, BASE, TMP2 // Relocate BASE down. - | lwz TMP1, FRAME_PC(BASE) - | andi. TMP0, TMP1, FRAME_TYPE - | b <1 - break; - - case BC_ITERC: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8)) - | subi RA, RA, 24 // evldd doesn't support neg. offsets. - | mr TMP2, BASE - | evlddx LFUNC:RB, BASE, RA - | add BASE, BASE, RA - | evldd TMP0, 8(BASE) - | evldd TMP1, 16(BASE) - | evstdd LFUNC:RB, 24(BASE) // Copy callable. - | checkfunc LFUNC:RB - | evstdd TMP0, 32(BASE) // Copy state. - | li NARGS8:RC, 16 // Iterators get 2 arguments. - | evstdd TMP1, 40(BASE) // Copy control var. - | addi BASE, BASE, 32 - | checkfail ->vmeta_call - | ins_call - break; - - case BC_ITERN: - | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | add RA, BASE, RA - | lwz TAB:RB, -12(RA) - | lwz RC, -4(RA) // Get index from control var. - | lwz TMP0, TAB:RB->asize - | lwz TMP1, TAB:RB->array - | addi PC, PC, 4 - |1: // Traverse array part. - | cmplw RC, TMP0 - | slwi TMP3, RC, 3 - | bge >5 // Index points after array part? - | evlddx TMP2, TMP1, TMP3 - | checknil TMP2 - | lwz INS, -4(PC) - | checkok >4 - | efdcfsi TMP0, RC - | addi RC, RC, 1 - | addis TMP3, PC, -(BCBIAS_J*4 >> 16) - | evstdd TMP2, 8(RA) - | decode_RD4 TMP1, INS - | stw RC, -4(RA) // Update control var. - | add PC, TMP1, TMP3 - | evstdd TMP0, 0(RA) - |3: - | ins_next - | - |4: // Skip holes in array part. - | addi RC, RC, 1 - | b <1 - | - |5: // Traverse hash part. - | lwz TMP1, TAB:RB->hmask - | sub RC, RC, TMP0 - | lwz TMP2, TAB:RB->node - |6: - | cmplw RC, TMP1 // End of iteration? Branch to ITERL+1. - | slwi TMP3, RC, 5 - | bgt <3 - | slwi RB, RC, 3 - | sub TMP3, TMP3, RB - | evlddx RB, TMP2, TMP3 - | add NODE:TMP3, TMP2, TMP3 - | checknil RB - | lwz INS, -4(PC) - | checkok >7 - | evldd TMP3, NODE:TMP3->key - | addis TMP2, PC, -(BCBIAS_J*4 >> 16) - | evstdd RB, 8(RA) - | add RC, RC, TMP0 - | decode_RD4 TMP1, INS - | evstdd TMP3, 0(RA) - | addi RC, RC, 1 - | add PC, TMP1, TMP2 - | stw RC, -4(RA) // Update control var. - | b <3 - | - |7: // Skip holes in hash part. - | addi RC, RC, 1 - | b <6 - break; - - case BC_ISNEXT: - | // RA = base*8, RD = target (points to ITERN) - | add RA, BASE, RA - | li TMP2, -24 - | evlddx CFUNC:TMP1, RA, TMP2 - | lwz TMP2, -16(RA) - | lwz TMP3, -8(RA) - | evmergehi TMP0, CFUNC:TMP1, CFUNC:TMP1 - | cmpwi cr0, TMP2, LJ_TTAB - | cmpwi cr1, TMP0, LJ_TFUNC - | cmpwi cr6, TMP3, LJ_TNIL - | bne cr1, >5 - | lbz TMP1, CFUNC:TMP1->ffid - | crand 4*cr0+eq, 4*cr0+eq, 4*cr6+eq - | cmpwi cr7, TMP1, FF_next_N - | srwi TMP0, RD, 1 - | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq - | add TMP3, PC, TMP0 - | bne cr0, >5 - | lus TMP1, 0xfffe - | ori TMP1, TMP1, 0x7fff - | stw ZERO, -4(RA) // Initialize control var. - | stw TMP1, -8(RA) - | addis PC, TMP3, -(BCBIAS_J*4 >> 16) - |1: - | ins_next - |5: // Despecialize bytecode if any of the checks fail. - | li TMP0, BC_JMP - | li TMP1, BC_ITERC - | stb TMP0, -1(PC) - | addis PC, TMP3, -(BCBIAS_J*4 >> 16) - | stb TMP1, 3(PC) - | b <1 - break; - - case BC_VARG: - | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8 - | lwz TMP0, FRAME_PC(BASE) - | add RC, BASE, RC - | add RA, BASE, RA - | addi RC, RC, FRAME_VARG - | add TMP2, RA, RB - | subi TMP3, BASE, 8 // TMP3 = vtop - | sub RC, RC, TMP0 // RC = vbase - | // Note: RC may now be even _above_ BASE if nargs was < numparams. - | cmplwi cr1, RB, 0 - | sub. TMP1, TMP3, RC - | beq cr1, >5 // Copy all varargs? - | subi TMP2, TMP2, 16 - | ble >2 // No vararg slots? - |1: // Copy vararg slots to destination slots. - | evldd TMP0, 0(RC) - | addi RC, RC, 8 - | evstdd TMP0, 0(RA) - | cmplw RA, TMP2 - | cmplw cr1, RC, TMP3 - | bge >3 // All destination slots filled? - | addi RA, RA, 8 - | blt cr1, <1 // More vararg slots? - |2: // Fill up remainder with nil. - | evstdd TISNIL, 0(RA) - | cmplw RA, TMP2 - | addi RA, RA, 8 - | blt <2 - |3: - | ins_next - | - |5: // Copy all varargs. - | lwz TMP0, L->maxstack - | li MULTRES, 8 // MULTRES = (0+1)*8 - | ble <3 // No vararg slots? - | add TMP2, RA, TMP1 - | cmplw TMP2, TMP0 - | addi MULTRES, TMP1, 8 - | bgt >7 - |6: - | evldd TMP0, 0(RC) - | addi RC, RC, 8 - | evstdd TMP0, 0(RA) - | cmplw RC, TMP3 - | addi RA, RA, 8 - | blt <6 // More vararg slots? - | b <3 - | - |7: // Grow stack for varargs. - | mr CARG1, L - | stw RA, L->top - | sub SAVE0, RC, BASE // Need delta, because BASE may change. - | stw BASE, L->base - | sub RA, RA, BASE - | stw PC, SAVE_PC - | srwi CARG2, TMP1, 3 - | bl extern lj_state_growstack // (lua_State *L, int n) - | lwz BASE, L->base - | add RA, BASE, RA - | add RC, BASE, SAVE0 - | subi TMP3, BASE, 8 - | b <6 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | // RA = results*8, RD = extra_nresults*8 - | add RD, RD, MULTRES // MULTRES >= 8, so RD >= 8. - | // Fall through. Assumes BC_RET follows. - break; - - case BC_RET: - | // RA = results*8, RD = (nresults+1)*8 - | lwz PC, FRAME_PC(BASE) - | add RA, BASE, RA - | mr MULTRES, RD - |1: - | andi. TMP0, PC, FRAME_TYPE - | xori TMP1, PC, FRAME_VARG - | bne ->BC_RETV_Z - | - |->BC_RET_Z: - | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return - | lwz INS, -4(PC) - | cmpwi RD, 8 - | subi TMP2, BASE, 8 - | subi RC, RD, 8 - | decode_RB8 RB, INS - | beq >3 - | li TMP1, 0 - |2: - | addi TMP3, TMP1, 8 - | evlddx TMP0, RA, TMP1 - | cmpw TMP3, RC - | evstddx TMP0, TMP2, TMP1 - | beq >3 - | addi TMP1, TMP3, 8 - | evlddx TMP0, RA, TMP3 - | cmpw TMP1, RC - | evstddx TMP0, TMP2, TMP3 - | bne <2 - |3: - |5: - | cmplw RB, RD - | decode_RA8 RA, INS - | bgt >6 - | sub BASE, TMP2, RA - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | evstddx TISNIL, TMP2, TMP1 - | b <5 - | - |->BC_RETV_Z: // Non-standard return case. - | andi. TMP2, TMP1, FRAME_TYPEP - | bne ->vm_return - | // Return from vararg function: relocate BASE down. - | sub BASE, BASE, TMP1 - | lwz PC, FRAME_PC(BASE) - | b <1 - break; - - case BC_RET0: case BC_RET1: - | // RA = results*8, RD = (nresults+1)*8 - | lwz PC, FRAME_PC(BASE) - | add RA, BASE, RA - | mr MULTRES, RD - | andi. TMP0, PC, FRAME_TYPE - | xori TMP1, PC, FRAME_VARG - | bne ->BC_RETV_Z - | - | lwz INS, -4(PC) - | subi TMP2, BASE, 8 - | decode_RB8 RB, INS - if (op == BC_RET1) { - | evldd TMP0, 0(RA) - | evstdd TMP0, 0(TMP2) - } - |5: - | cmplw RB, RD - | decode_RA8 RA, INS - | bgt >6 - | sub BASE, TMP2, RA - | lwz LFUNC:TMP1, FRAME_FUNC(BASE) - | ins_next1 - | lwz TMP1, LFUNC:TMP1->pc - | lwz KBASE, PC2PROTO(k)(TMP1) - | ins_next2 - | - |6: // Fill up results with nil. - | subi TMP1, RD, 8 - | addi RD, RD, 8 - | evstddx TISNIL, TMP2, TMP1 - | b <5 - break; - - /* -- Loops and branches ------------------------------------------------ */ - - case BC_FORL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IFORL follows. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - | // RA = base*8, RD = target (after end of loop or start of loop) - vk = (op == BC_IFORL || op == BC_JFORL); - | add RA, BASE, RA - | evldd TMP1, FORL_IDX*8(RA) - | evldd TMP3, FORL_STEP*8(RA) - | evldd TMP2, FORL_STOP*8(RA) - if (!vk) { - | evcmpgtu cr0, TMP1, TISNUM - | evcmpgtu cr7, TMP3, TISNUM - | evcmpgtu cr1, TMP2, TISNUM - | cror 4*cr0+lt, 4*cr0+lt, 4*cr7+lt - | cror 4*cr0+lt, 4*cr0+lt, 4*cr1+lt - | blt ->vmeta_for - } - if (vk) { - | efdadd TMP1, TMP1, TMP3 - | evstdd TMP1, FORL_IDX*8(RA) - } - | evcmpgts TMP3, TISNIL - | evstdd TMP1, FORL_EXT*8(RA) - | bge >2 - | efdcmpgt TMP1, TMP2 - |1: - if (op != BC_JFORL) { - | srwi RD, RD, 1 - | add RD, PC, RD - if (op == BC_JFORI) { - | addis PC, RD, -(BCBIAS_J*4 >> 16) - } else { - | addis RD, RD, -(BCBIAS_J*4 >> 16) - } - } - if (op == BC_FORI) { - | iselgt PC, RD, PC - } else if (op == BC_IFORL) { - | iselgt PC, PC, RD - } else { - | ble =>BC_JLOOP - } - | ins_next - |2: - | efdcmpgt TMP2, TMP1 - | b <1 - break; - - case BC_ITERL: - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_IITERL follows. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | // RA = base*8, RD = target - | evlddx TMP1, BASE, RA - | subi RA, RA, 8 - | checknil TMP1 - | checkok >1 // Stop if iterator returned nil. - if (op == BC_JITERL) { - | NYI - } else { - | branch_RD // Otherwise save control var + branch. - | evstddx TMP1, BASE, RA - } - |1: - | ins_next - break; - - case BC_LOOP: - | // RA = base*8, RD = target (loop extent) - | // Note: RA/RD is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop - |.endif - | // Fall through. Assumes BC_ILOOP follows. - break; - - case BC_ILOOP: - | // RA = base*8, RD = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | NYI - |.endif - break; - - case BC_JMP: - | // RA = base*8 (only used by trace recorder), RD = target - | branch_RD - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - case BC_FUNCF: - |.if JIT - | hotcall - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | lwz TMP2, L->maxstack - | lbz TMP1, -4+PC2PROTO(numparams)(PC) - | lwz KBASE, -4+PC2PROTO(k)(PC) - | cmplw RA, TMP2 - | slwi TMP1, TMP1, 3 - | bgt ->vm_growstack_l - | ins_next1 - |2: - | cmplw NARGS8:RC, TMP1 // Check for missing parameters. - | ble >3 - if (op == BC_JFUNCF) { - | NYI - } else { - | ins_next2 - } - | - |3: // Clear missing parameters. - | evstddx TISNIL, BASE, NARGS8:RC - | addi NARGS8:RC, NARGS8:RC, 8 - | b <2 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | NYI // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8 - | lwz TMP2, L->maxstack - | add TMP1, BASE, RC - | add TMP0, RA, RC - | stw LFUNC:RB, 4(TMP1) // Store copy of LFUNC. - | addi TMP3, RC, 8+FRAME_VARG - | lwz KBASE, -4+PC2PROTO(k)(PC) - | cmplw TMP0, TMP2 - | stw TMP3, 0(TMP1) // Store delta + FRAME_VARG. - | bge ->vm_growstack_l - | lbz TMP2, -4+PC2PROTO(numparams)(PC) - | mr RA, BASE - | mr RC, TMP1 - | ins_next1 - | cmpwi TMP2, 0 - | addi BASE, TMP1, 8 - | beq >3 - |1: - | cmplw RA, RC // Less args than parameters? - | evldd TMP0, 0(RA) - | bge >4 - | evstdd TISNIL, 0(RA) // Clear old fixarg slot (help the GC). - | addi RA, RA, 8 - |2: - | addic. TMP2, TMP2, -1 - | evstdd TMP0, 8(TMP1) - | addi TMP1, TMP1, 8 - | bne <1 - |3: - | ins_next2 - | - |4: // Clear missing parameters. - | evmr TMP0, TISNIL - | b <2 - break; - - case BC_FUNCC: - case BC_FUNCCW: - | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8 - if (op == BC_FUNCC) { - | lwz TMP3, CFUNC:RB->f - } else { - | lwz TMP3, DISPATCH_GL(wrapf)(DISPATCH) - } - | add TMP1, RA, NARGS8:RC - | lwz TMP2, L->maxstack - | add RC, BASE, NARGS8:RC - | stw BASE, L->base - | cmplw TMP1, TMP2 - | stw RC, L->top - | li_vmstate C - | mtctr TMP3 - if (op == BC_FUNCCW) { - | lwz CARG2, CFUNC:RB->f - } - | mr CARG1, L - | bgt ->vm_growstack_c // Need to grow stack. - | st_vmstate - | bctrl // (lua_State *L [, lua_CFunction f]) - | // Returns nresults. - | lwz TMP1, L->top - | slwi RD, CRET1, 3 - | lwz BASE, L->base - | li_vmstate INTERP - | lwz PC, FRAME_PC(BASE) // Fetch PC of caller. - | sub RA, TMP1, RD // RA = L->top - nresults*8 - | st_vmstate - | b ->vm_returnc - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - - dasm_growpc(Dst, BC__MAX); - - build_subroutines(ctx); - - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int i; - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.long .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.long 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 65\n" - "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.long .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.long .Lframe0\n" - "\t.long .Lbegin\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n", - (int)ctx->codesz, CFRAME_SIZE); - for (i = 14; i <= 31; i++) - fprintf(ctx->fp, - "\t.byte %d\n\t.uleb128 %d\n" - "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n", - 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i)); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE0:\n\n"); - fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe1:\n" - "\t.long .LECIE1-.LSCIE1\n" - ".LSCIE1:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zPR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -4\n" - "\t.byte 65\n" - "\t.uleb128 6\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.long lj_err_unwind_dwarf-.\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n" - "\t.align 2\n" - ".LECIE1:\n\n"); - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.long .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.long .LASFDE1-.Lframe1\n" - "\t.long .Lbegin-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 %d\n" - "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n" - "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n", - (int)ctx->codesz, CFRAME_SIZE); - for (i = 14; i <= 31; i++) - fprintf(ctx->fp, - "\t.byte %d\n\t.uleb128 %d\n" - "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n", - 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i)); - fprintf(ctx->fp, - "\t.align 2\n" - ".LEFDE1:\n\n"); - break; - default: - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc b/src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc deleted file mode 100644 index ea0415ee47b..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/vm_x86.dasc +++ /dev/null @@ -1,5684 +0,0 @@ -|// Low-level VM code for x86 CPUs. -|// Bytecode interpreter, fast functions and helper functions. -|// Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h -| -|.if P64 -|.arch x64 -|.else -|.arch x86 -|.endif -|.section code_op, code_sub -| -|.actionlist build_actionlist -|.globals GLOB_ -|.globalnames globnames -|.externnames extnames -| -|//----------------------------------------------------------------------- -| -|.if P64 -|.define X64, 1 -|.if WIN -|.define X64WIN, 1 -|.endif -|.endif -| -|// Fixed register assignments for the interpreter. -|// This is very fragile and has many dependencies. Caveat emptor. -|.define BASE, edx // Not C callee-save, refetched anyway. -|.if not X64 -|.define KBASE, edi // Must be C callee-save. -|.define KBASEa, KBASE -|.define PC, esi // Must be C callee-save. -|.define PCa, PC -|.define DISPATCH, ebx // Must be C callee-save. -|.elif X64WIN -|.define KBASE, edi // Must be C callee-save. -|.define KBASEa, rdi -|.define PC, esi // Must be C callee-save. -|.define PCa, rsi -|.define DISPATCH, ebx // Must be C callee-save. -|.else -|.define KBASE, r15d // Must be C callee-save. -|.define KBASEa, r15 -|.define PC, ebx // Must be C callee-save. -|.define PCa, rbx -|.define DISPATCH, r14d // Must be C callee-save. -|.endif -| -|.define RA, ecx -|.define RAH, ch -|.define RAL, cl -|.define RB, ebp // Must be ebp (C callee-save). -|.define RC, eax // Must be eax. -|.define RCW, ax -|.define RCH, ah -|.define RCL, al -|.define OP, RB -|.define RD, RC -|.define RDW, RCW -|.define RDL, RCL -|.if X64 -|.define RAa, rcx -|.define RBa, rbp -|.define RCa, rax -|.define RDa, rax -|.else -|.define RAa, RA -|.define RBa, RB -|.define RCa, RC -|.define RDa, RD -|.endif -| -|.if not X64 -|.define FCARG1, ecx // x86 fastcall arguments. -|.define FCARG2, edx -|.elif X64WIN -|.define CARG1, rcx // x64/WIN64 C call arguments. -|.define CARG2, rdx -|.define CARG3, r8 -|.define CARG4, r9 -|.define CARG1d, ecx -|.define CARG2d, edx -|.define CARG3d, r8d -|.define CARG4d, r9d -|.define FCARG1, CARG1d // Upwards compatible to x86 fastcall. -|.define FCARG2, CARG2d -|.else -|.define CARG1, rdi // x64/POSIX C call arguments. -|.define CARG2, rsi -|.define CARG3, rdx -|.define CARG4, rcx -|.define CARG5, r8 -|.define CARG6, r9 -|.define CARG1d, edi -|.define CARG2d, esi -|.define CARG3d, edx -|.define CARG4d, ecx -|.define CARG5d, r8d -|.define CARG6d, r9d -|.define FCARG1, CARG1d // Simulate x86 fastcall. -|.define FCARG2, CARG2d -|.endif -| -|// Type definitions. Some of these are only used for documentation. -|.type L, lua_State -|.type GL, global_State -|.type TVALUE, TValue -|.type GCOBJ, GCobj -|.type STR, GCstr -|.type TAB, GCtab -|.type LFUNC, GCfuncL -|.type CFUNC, GCfuncC -|.type PROTO, GCproto -|.type UPVAL, GCupval -|.type NODE, Node -|.type NARGS, int -|.type TRACE, GCtrace -|.type SBUF, SBuf -| -|// Stack layout while in interpreter. Must match with lj_frame.h. -|//----------------------------------------------------------------------- -|.if not X64 // x86 stack layout. -| -|.define CFRAME_SPACE, aword*7 // Delta for esp (see <--). -|.macro saveregs_ -| push edi; push esi; push ebx -| sub esp, CFRAME_SPACE -|.endmacro -|.macro saveregs -| push ebp; saveregs_ -|.endmacro -|.macro restoreregs -| add esp, CFRAME_SPACE -| pop ebx; pop esi; pop edi; pop ebp -|.endmacro -| -|.define SAVE_ERRF, aword [esp+aword*15] // vm_pcall/vm_cpcall only. -|.define SAVE_NRES, aword [esp+aword*14] -|.define SAVE_CFRAME, aword [esp+aword*13] -|.define SAVE_L, aword [esp+aword*12] -|//----- 16 byte aligned, ^^^ arguments from C caller -|.define SAVE_RET, aword [esp+aword*11] //<-- esp entering interpreter. -|.define SAVE_R4, aword [esp+aword*10] -|.define SAVE_R3, aword [esp+aword*9] -|.define SAVE_R2, aword [esp+aword*8] -|//----- 16 byte aligned -|.define SAVE_R1, aword [esp+aword*7] //<-- esp after register saves. -|.define SAVE_PC, aword [esp+aword*6] -|.define TMP2, aword [esp+aword*5] -|.define TMP1, aword [esp+aword*4] -|//----- 16 byte aligned -|.define ARG4, aword [esp+aword*3] -|.define ARG3, aword [esp+aword*2] -|.define ARG2, aword [esp+aword*1] -|.define ARG1, aword [esp] //<-- esp while in interpreter. -|//----- 16 byte aligned, ^^^ arguments for C callee -| -|// FPARGx overlaps ARGx and ARG(x+1) on x86. -|.define FPARG3, qword [esp+qword*1] -|.define FPARG1, qword [esp] -|// TMPQ overlaps TMP1/TMP2. ARG5/MULTRES overlap TMP1/TMP2 (and TMPQ). -|.define TMPQ, qword [esp+aword*4] -|.define TMP3, ARG4 -|.define ARG5, TMP1 -|.define TMPa, TMP1 -|.define MULTRES, TMP2 -| -|// Arguments for vm_call and vm_pcall. -|.define INARG_BASE, SAVE_CFRAME // Overwritten by SAVE_CFRAME! -| -|// Arguments for vm_cpcall. -|.define INARG_CP_CALL, SAVE_ERRF -|.define INARG_CP_UD, SAVE_NRES -|.define INARG_CP_FUNC, SAVE_CFRAME -| -|//----------------------------------------------------------------------- -|.elif X64WIN // x64/Windows stack layout -| -|.define CFRAME_SPACE, aword*5 // Delta for rsp (see <--). -|.macro saveregs_ -| push rdi; push rsi; push rbx -| sub rsp, CFRAME_SPACE -|.endmacro -|.macro saveregs -| push rbp; saveregs_ -|.endmacro -|.macro restoreregs -| add rsp, CFRAME_SPACE -| pop rbx; pop rsi; pop rdi; pop rbp -|.endmacro -| -|.define SAVE_CFRAME, aword [rsp+aword*13] -|.define SAVE_PC, dword [rsp+dword*25] -|.define SAVE_L, dword [rsp+dword*24] -|.define SAVE_ERRF, dword [rsp+dword*23] -|.define SAVE_NRES, dword [rsp+dword*22] -|.define TMP2, dword [rsp+dword*21] -|.define TMP1, dword [rsp+dword*20] -|//----- 16 byte aligned, ^^^ 32 byte register save area, owned by interpreter -|.define SAVE_RET, aword [rsp+aword*9] //<-- rsp entering interpreter. -|.define SAVE_R4, aword [rsp+aword*8] -|.define SAVE_R3, aword [rsp+aword*7] -|.define SAVE_R2, aword [rsp+aword*6] -|.define SAVE_R1, aword [rsp+aword*5] //<-- rsp after register saves. -|.define ARG5, aword [rsp+aword*4] -|.define CSAVE_4, aword [rsp+aword*3] -|.define CSAVE_3, aword [rsp+aword*2] -|.define CSAVE_2, aword [rsp+aword*1] -|.define CSAVE_1, aword [rsp] //<-- rsp while in interpreter. -|//----- 16 byte aligned, ^^^ 32 byte register save area, owned by callee -| -|// TMPQ overlaps TMP1/TMP2. MULTRES overlaps TMP2 (and TMPQ). -|.define TMPQ, qword [rsp+aword*10] -|.define MULTRES, TMP2 -|.define TMPa, ARG5 -|.define ARG5d, dword [rsp+aword*4] -|.define TMP3, ARG5d -| -|//----------------------------------------------------------------------- -|.else // x64/POSIX stack layout -| -|.define CFRAME_SPACE, aword*5 // Delta for rsp (see <--). -|.macro saveregs_ -| push rbx; push r15; push r14 -| sub rsp, CFRAME_SPACE -|.endmacro -|.macro saveregs -| push rbp; saveregs_ -|.endmacro -|.macro restoreregs -| add rsp, CFRAME_SPACE -| pop r14; pop r15; pop rbx; pop rbp -|.endmacro -| -|//----- 16 byte aligned, -|.define SAVE_RET, aword [rsp+aword*9] //<-- rsp entering interpreter. -|.define SAVE_R4, aword [rsp+aword*8] -|.define SAVE_R3, aword [rsp+aword*7] -|.define SAVE_R2, aword [rsp+aword*6] -|.define SAVE_R1, aword [rsp+aword*5] //<-- rsp after register saves. -|.define SAVE_CFRAME, aword [rsp+aword*4] -|.define SAVE_PC, dword [rsp+dword*7] -|.define SAVE_L, dword [rsp+dword*6] -|.define SAVE_ERRF, dword [rsp+dword*5] -|.define SAVE_NRES, dword [rsp+dword*4] -|.define TMPa, aword [rsp+aword*1] -|.define TMP2, dword [rsp+dword*1] -|.define TMP1, dword [rsp] //<-- rsp while in interpreter. -|//----- 16 byte aligned -| -|// TMPQ overlaps TMP1/TMP2. MULTRES overlaps TMP2 (and TMPQ). -|.define TMPQ, qword [rsp] -|.define TMP3, dword [rsp+aword*1] -|.define MULTRES, TMP2 -| -|.endif -| -|//----------------------------------------------------------------------- -| -|// Instruction headers. -|.macro ins_A; .endmacro -|.macro ins_AD; .endmacro -|.macro ins_AJ; .endmacro -|.macro ins_ABC; movzx RB, RCH; movzx RC, RCL; .endmacro -|.macro ins_AB_; movzx RB, RCH; .endmacro -|.macro ins_A_C; movzx RC, RCL; .endmacro -|.macro ins_AND; not RDa; .endmacro -| -|// Instruction decode+dispatch. Carefully tuned (nope, lodsd is not faster). -|.macro ins_NEXT -| mov RC, [PC] -| movzx RA, RCH -| movzx OP, RCL -| add PC, 4 -| shr RC, 16 -|.if X64 -| jmp aword [DISPATCH+OP*8] -|.else -| jmp aword [DISPATCH+OP*4] -|.endif -|.endmacro -| -|// Instruction footer. -|.if 1 -| // Replicated dispatch. Less unpredictable branches, but higher I-Cache use. -| .define ins_next, ins_NEXT -| .define ins_next_, ins_NEXT -|.else -| // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch. -| // Affects only certain kinds of benchmarks (and only with -j off). -| // Around 10%-30% slower on Core2, a lot more slower on P4. -| .macro ins_next -| jmp ->ins_next -| .endmacro -| .macro ins_next_ -| ->ins_next: -| ins_NEXT -| .endmacro -|.endif -| -|// Call decode and dispatch. -|.macro ins_callt -| // BASE = new base, RB = LFUNC, RD = nargs+1, [BASE-4] = PC -| mov PC, LFUNC:RB->pc -| mov RA, [PC] -| movzx OP, RAL -| movzx RA, RAH -| add PC, 4 -|.if X64 -| jmp aword [DISPATCH+OP*8] -|.else -| jmp aword [DISPATCH+OP*4] -|.endif -|.endmacro -| -|.macro ins_call -| // BASE = new base, RB = LFUNC, RD = nargs+1 -| mov [BASE-4], PC -| ins_callt -|.endmacro -| -|//----------------------------------------------------------------------- -| -|// Macros to test operand types. -|.macro checktp, reg, tp; cmp dword [BASE+reg*8+4], tp; .endmacro -|.macro checknum, reg, target; checktp reg, LJ_TISNUM; jae target; .endmacro -|.macro checkint, reg, target; checktp reg, LJ_TISNUM; jne target; .endmacro -|.macro checkstr, reg, target; checktp reg, LJ_TSTR; jne target; .endmacro -|.macro checktab, reg, target; checktp reg, LJ_TTAB; jne target; .endmacro -| -|// These operands must be used with movzx. -|.define PC_OP, byte [PC-4] -|.define PC_RA, byte [PC-3] -|.define PC_RB, byte [PC-1] -|.define PC_RC, byte [PC-2] -|.define PC_RD, word [PC-2] -| -|.macro branchPC, reg -| lea PC, [PC+reg*4-BCBIAS_J*4] -|.endmacro -| -|// Assumes DISPATCH is relative to GL. -#define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field)) -#define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field)) -| -#define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto)) -| -|// Decrement hashed hotcount and trigger trace recorder if zero. -|.macro hotloop, reg -| mov reg, PC -| shr reg, 1 -| and reg, HOTCOUNT_PCMASK -| sub word [DISPATCH+reg+GG_DISP2HOT], HOTCOUNT_LOOP -| jb ->vm_hotloop -|.endmacro -| -|.macro hotcall, reg -| mov reg, PC -| shr reg, 1 -| and reg, HOTCOUNT_PCMASK -| sub word [DISPATCH+reg+GG_DISP2HOT], HOTCOUNT_CALL -| jb ->vm_hotcall -|.endmacro -| -|// Set current VM state. -|.macro set_vmstate, st -| mov dword [DISPATCH+DISPATCH_GL(vmstate)], ~LJ_VMST_..st -|.endmacro -| -|// x87 compares. -|.macro fcomparepp // Compare and pop st0 >< st1. -| fucomip st1 -| fpop -|.endmacro -| -|.macro fpop1; fstp st1; .endmacro -| -|// Synthesize SSE FP constants. -|.macro sseconst_abs, reg, tmp // Synthesize abs mask. -|.if X64 -| mov64 tmp, U64x(7fffffff,ffffffff); movd reg, tmp -|.else -| pxor reg, reg; pcmpeqd reg, reg; psrlq reg, 1 -|.endif -|.endmacro -| -|.macro sseconst_hi, reg, tmp, val // Synthesize hi-32 bit const. -|.if X64 -| mov64 tmp, U64x(val,00000000); movd reg, tmp -|.else -| mov tmp, 0x .. val; movd reg, tmp; pshufd reg, reg, 0x51 -|.endif -|.endmacro -| -|.macro sseconst_sign, reg, tmp // Synthesize sign mask. -| sseconst_hi reg, tmp, 80000000 -|.endmacro -|.macro sseconst_1, reg, tmp // Synthesize 1.0. -| sseconst_hi reg, tmp, 3ff00000 -|.endmacro -|.macro sseconst_m1, reg, tmp // Synthesize -1.0. -| sseconst_hi reg, tmp, bff00000 -|.endmacro -|.macro sseconst_2p52, reg, tmp // Synthesize 2^52. -| sseconst_hi reg, tmp, 43300000 -|.endmacro -|.macro sseconst_tobit, reg, tmp // Synthesize 2^52 + 2^51. -| sseconst_hi reg, tmp, 43380000 -|.endmacro -| -|// Move table write barrier back. Overwrites reg. -|.macro barrierback, tab, reg -| and byte tab->marked, (uint8_t)~LJ_GC_BLACK // black2gray(tab) -| mov reg, [DISPATCH+DISPATCH_GL(gc.grayagain)] -| mov [DISPATCH+DISPATCH_GL(gc.grayagain)], tab -| mov tab->gclist, reg -|.endmacro -| -|//----------------------------------------------------------------------- - -/* Generate subroutines used by opcodes and other parts of the VM. */ -/* The .code_sub section should be last to help static branch prediction. */ -static void build_subroutines(BuildCtx *ctx) -{ - |.code_sub - | - |//----------------------------------------------------------------------- - |//-- Return handling ---------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_returnp: - | test PC, FRAME_P - | jz ->cont_dispatch - | - | // Return from pcall or xpcall fast func. - | and PC, -8 - | sub BASE, PC // Restore caller base. - | lea RAa, [RA+PC-8] // Rebase RA and prepend one result. - | mov PC, [BASE-4] // Fetch PC of previous frame. - | // Prepending may overwrite the pcall frame, so do it at the end. - | mov dword [BASE+RA+4], LJ_TTRUE // Prepend true to results. - | - |->vm_returnc: - | add RD, 1 // RD = nresults+1 - | jz ->vm_unwind_yield - | mov MULTRES, RD - | test PC, FRAME_TYPE - | jz ->BC_RET_Z // Handle regular return to Lua. - | - |->vm_return: - | // BASE = base, RA = resultofs, RD = nresults+1 (= MULTRES), PC = return - | xor PC, FRAME_C - | test PC, FRAME_TYPE - | jnz ->vm_returnp - | - | // Return to C. - | set_vmstate C - | and PC, -8 - | sub PC, BASE - | neg PC // Previous base = BASE - delta. - | - | sub RD, 1 - | jz >2 - |1: // Move results down. - |.if X64 - | mov RBa, [BASE+RA] - | mov [BASE-8], RBa - |.else - | mov RB, [BASE+RA] - | mov [BASE-8], RB - | mov RB, [BASE+RA+4] - | mov [BASE-4], RB - |.endif - | add BASE, 8 - | sub RD, 1 - | jnz <1 - |2: - | mov L:RB, SAVE_L - | mov L:RB->base, PC - |3: - | mov RD, MULTRES - | mov RA, SAVE_NRES // RA = wanted nresults+1 - |4: - | cmp RA, RD - | jne >6 // More/less results wanted? - |5: - | sub BASE, 8 - | mov L:RB->top, BASE - | - |->vm_leave_cp: - | mov RAa, SAVE_CFRAME // Restore previous C frame. - | mov L:RB->cframe, RAa - | xor eax, eax // Ok return status for vm_pcall. - | - |->vm_leave_unw: - | restoreregs - | ret - | - |6: - | jb >7 // Less results wanted? - | // More results wanted. Check stack size and fill up results with nil. - | cmp BASE, L:RB->maxstack - | ja >8 - | mov dword [BASE-4], LJ_TNIL - | add BASE, 8 - | add RD, 1 - | jmp <4 - | - |7: // Less results wanted. - | test RA, RA - | jz <5 // But check for LUA_MULTRET+1. - | sub RA, RD // Negative result! - | lea BASE, [BASE+RA*8] // Correct top. - | jmp <5 - | - |8: // Corner case: need to grow stack for filling up results. - | // This can happen if: - | // - A C function grows the stack (a lot). - | // - The GC shrinks the stack in between. - | // - A return back from a lua_call() with (high) nresults adjustment. - | mov L:RB->top, BASE // Save current top held in BASE (yes). - | mov MULTRES, RD // Need to fill only remainder with nil. - | mov FCARG2, RA - | mov FCARG1, L:RB - | call extern lj_state_growstack@8 // (lua_State *L, int n) - | mov BASE, L:RB->top // Need the (realloced) L->top in BASE. - | jmp <3 - | - |->vm_unwind_yield: - | mov al, LUA_YIELD - | jmp ->vm_unwind_c_eh - | - |->vm_unwind_c@8: // Unwind C stack, return from vm_pcall. - | // (void *cframe, int errcode) - |.if X64 - | mov eax, CARG2d // Error return status for vm_pcall. - | mov rsp, CARG1 - |.else - | mov eax, FCARG2 // Error return status for vm_pcall. - | mov esp, FCARG1 - |.endif - |->vm_unwind_c_eh: // Landing pad for external unwinder. - | mov L:RB, SAVE_L - | mov GL:RB, L:RB->glref - | mov dword GL:RB->vmstate, ~LJ_VMST_C - | jmp ->vm_leave_unw - | - |->vm_unwind_rethrow: - |.if X64 and not X64WIN - | mov FCARG1, SAVE_L - | mov FCARG2, eax - | restoreregs - | jmp extern lj_err_throw@8 // (lua_State *L, int errcode) - |.endif - | - |->vm_unwind_ff@4: // Unwind C stack, return from ff pcall. - | // (void *cframe) - |.if X64 - | and CARG1, CFRAME_RAWMASK - | mov rsp, CARG1 - |.else - | and FCARG1, CFRAME_RAWMASK - | mov esp, FCARG1 - |.endif - |->vm_unwind_ff_eh: // Landing pad for external unwinder. - | mov L:RB, SAVE_L - | mov RAa, -8 // Results start at BASE+RA = BASE-8. - | mov RD, 1+1 // Really 1+2 results, incr. later. - | mov BASE, L:RB->base - | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. - | add DISPATCH, GG_G2DISP - | mov PC, [BASE-4] // Fetch PC of previous frame. - | mov dword [BASE-4], LJ_TFALSE // Prepend false to error message. - | set_vmstate INTERP - | jmp ->vm_returnc // Increments RD/MULTRES and returns. - | - |//----------------------------------------------------------------------- - |//-- Grow stack for calls ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_growstack_c: // Grow stack for C function. - | mov FCARG2, LUA_MINSTACK - | jmp >2 - | - |->vm_growstack_v: // Grow stack for vararg Lua function. - | sub RD, 8 - | jmp >1 - | - |->vm_growstack_f: // Grow stack for fixarg Lua function. - | // BASE = new base, RD = nargs+1, RB = L, PC = first PC - | lea RD, [BASE+NARGS:RD*8-8] - |1: - | movzx RA, byte [PC-4+PC2PROTO(framesize)] - | add PC, 4 // Must point after first instruction. - | mov L:RB->base, BASE - | mov L:RB->top, RD - | mov SAVE_PC, PC - | mov FCARG2, RA - |2: - | // RB = L, L->base = new base, L->top = top - | mov FCARG1, L:RB - | call extern lj_state_growstack@8 // (lua_State *L, int n) - | mov BASE, L:RB->base - | mov RD, L:RB->top - | mov LFUNC:RB, [BASE-8] - | sub RD, BASE - | shr RD, 3 - | add NARGS:RD, 1 - | // BASE = new base, RB = LFUNC, RD = nargs+1 - | ins_callt // Just retry the call. - | - |//----------------------------------------------------------------------- - |//-- Entry points into the assembler VM --------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_resume: // Setup C frame and resume thread. - | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0) - | saveregs - |.if X64 - | mov L:RB, CARG1d // Caveat: CARG1d may be RA. - | mov SAVE_L, CARG1d - | mov RA, CARG2d - |.else - | mov L:RB, SAVE_L - | mov RA, INARG_BASE // Caveat: overlaps SAVE_CFRAME! - |.endif - | mov PC, FRAME_CP - | xor RD, RD - | lea KBASEa, [esp+CFRAME_RESUME] - | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. - | add DISPATCH, GG_G2DISP - | mov SAVE_PC, RD // Any value outside of bytecode is ok. - | mov SAVE_CFRAME, RDa - |.if X64 - | mov SAVE_NRES, RD - | mov SAVE_ERRF, RD - |.endif - | mov L:RB->cframe, KBASEa - | cmp byte L:RB->status, RDL - | je >2 // Initial resume (like a call). - | - | // Resume after yield (like a return). - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | set_vmstate INTERP - | mov byte L:RB->status, RDL - | mov BASE, L:RB->base - | mov RD, L:RB->top - | sub RD, RA - | shr RD, 3 - | add RD, 1 // RD = nresults+1 - | sub RA, BASE // RA = resultofs - | mov PC, [BASE-4] - | mov MULTRES, RD - | test PC, FRAME_TYPE - | jz ->BC_RET_Z - | jmp ->vm_return - | - |->vm_pcall: // Setup protected C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef) - | saveregs - | mov PC, FRAME_CP - |.if X64 - | mov SAVE_ERRF, CARG4d - |.endif - | jmp >1 - | - |->vm_call: // Setup C frame and enter VM. - | // (lua_State *L, TValue *base, int nres1) - | saveregs - | mov PC, FRAME_C - | - |1: // Entry point for vm_pcall above (PC = ftype). - |.if X64 - | mov SAVE_NRES, CARG3d - | mov L:RB, CARG1d // Caveat: CARG1d may be RA. - | mov SAVE_L, CARG1d - | mov RA, CARG2d - |.else - | mov L:RB, SAVE_L - | mov RA, INARG_BASE // Caveat: overlaps SAVE_CFRAME! - |.endif - | - | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. - | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. - | mov SAVE_CFRAME, KBASEa - | mov SAVE_PC, L:RB // Any value outside of bytecode is ok. - | add DISPATCH, GG_G2DISP - |.if X64 - | mov L:RB->cframe, rsp - |.else - | mov L:RB->cframe, esp - |.endif - | - |2: // Entry point for vm_resume/vm_cpcall (RA = base, RB = L, PC = ftype). - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | set_vmstate INTERP - | mov BASE, L:RB->base // BASE = old base (used in vmeta_call). - | add PC, RA - | sub PC, BASE // PC = frame delta + frame type - | - | mov RD, L:RB->top - | sub RD, RA - | shr NARGS:RD, 3 - | add NARGS:RD, 1 // RD = nargs+1 - | - |->vm_call_dispatch: - | mov LFUNC:RB, [RA-8] - | cmp dword [RA-4], LJ_TFUNC - | jne ->vmeta_call // Ensure KBASE defined and != BASE. - | - |->vm_call_dispatch_f: - | mov BASE, RA - | ins_call - | // BASE = new base, RB = func, RD = nargs+1, PC = caller PC - | - |->vm_cpcall: // Setup protected C frame, call C. - | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp) - | saveregs - |.if X64 - | mov L:RB, CARG1d // Caveat: CARG1d may be RA. - | mov SAVE_L, CARG1d - |.else - | mov L:RB, SAVE_L - | // Caveat: INARG_CP_* and SAVE_CFRAME/SAVE_NRES/SAVE_ERRF overlap! - | mov RC, INARG_CP_UD // Get args before they are overwritten. - | mov RA, INARG_CP_FUNC - | mov BASE, INARG_CP_CALL - |.endif - | mov SAVE_PC, L:RB // Any value outside of bytecode is ok. - | - | mov KBASE, L:RB->stack // Compute -savestack(L, L->top). - | sub KBASE, L:RB->top - | mov DISPATCH, L:RB->glref // Setup pointer to dispatch table. - | mov SAVE_ERRF, 0 // No error function. - | mov SAVE_NRES, KBASE // Neg. delta means cframe w/o frame. - | add DISPATCH, GG_G2DISP - | // Handler may change cframe_nres(L->cframe) or cframe_errfunc(L->cframe). - | - |.if X64 - | mov KBASEa, L:RB->cframe // Add our C frame to cframe chain. - | mov SAVE_CFRAME, KBASEa - | mov L:RB->cframe, rsp - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | - | call CARG4 // (lua_State *L, lua_CFunction func, void *ud) - |.else - | mov ARG3, RC // Have to copy args downwards. - | mov ARG2, RA - | mov ARG1, L:RB - | - | mov KBASE, L:RB->cframe // Add our C frame to cframe chain. - | mov SAVE_CFRAME, KBASE - | mov L:RB->cframe, esp - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | - | call BASE // (lua_State *L, lua_CFunction func, void *ud) - |.endif - | // TValue * (new base) or NULL returned in eax (RC). - | test RC, RC - | jz ->vm_leave_cp // No base? Just remove C frame. - | mov RA, RC - | mov PC, FRAME_CP - | jmp <2 // Else continue with the call. - | - |//----------------------------------------------------------------------- - |//-- Metamethod handling ------------------------------------------------ - |//----------------------------------------------------------------------- - | - |//-- Continuation dispatch ---------------------------------------------- - | - |->cont_dispatch: - | // BASE = meta base, RA = resultofs, RD = nresults+1 (also in MULTRES) - | add RA, BASE - | and PC, -8 - | mov RB, BASE - | sub BASE, PC // Restore caller BASE. - | mov dword [RA+RD*8-4], LJ_TNIL // Ensure one valid arg. - | mov RC, RA // ... in [RC] - | mov PC, [RB-12] // Restore PC from [cont|PC]. - |.if X64 - | movsxd RAa, dword [RB-16] // May be negative on WIN64 with debug. - |.if FFI - | cmp RA, 1 - | jbe >1 - |.endif - | lea KBASEa, qword [=>0] - | add RAa, KBASEa - |.else - | mov RA, dword [RB-16] - |.if FFI - | cmp RA, 1 - | jbe >1 - |.endif - |.endif - | mov LFUNC:KBASE, [BASE-8] - | mov KBASE, LFUNC:KBASE->pc - | mov KBASE, [KBASE+PC2PROTO(k)] - | // BASE = base, RC = result, RB = meta base - | jmp RAa // Jump to continuation. - | - |.if FFI - |1: - | je ->cont_ffi_callback // cont = 1: return from FFI callback. - | // cont = 0: Tail call from C function. - | sub RB, BASE - | shr RB, 3 - | lea RD, [RB-1] - | jmp ->vm_call_tail - |.endif - | - |->cont_cat: // BASE = base, RC = result, RB = mbase - | movzx RA, PC_RB - | sub RB, 16 - | lea RA, [BASE+RA*8] - | sub RA, RB - | je ->cont_ra - | neg RA - | shr RA, 3 - |.if X64WIN - | mov CARG3d, RA - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE - | mov RCa, [RC] - | mov [RB], RCa - | mov CARG2d, RB - |.elif X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE - | mov CARG3d, RA - | mov RAa, [RC] - | mov [RB], RAa - | mov CARG2d, RB - |.else - | mov ARG3, RA - | mov RA, [RC+4] - | mov RC, [RC] - | mov [RB+4], RA - | mov [RB], RC - | mov ARG2, RB - |.endif - | jmp ->BC_CAT_Z - | - |//-- Table indexing metamethods ----------------------------------------- - | - |->vmeta_tgets: - | mov TMP1, RC // RC = GCstr * - | mov TMP2, LJ_TSTR - | lea RCa, TMP1 // Store temp. TValue in TMP1/TMP2. - | cmp PC_OP, BC_GGET - | jne >1 - | lea RA, [DISPATCH+DISPATCH_GL(tmptv)] // Store fn->l.env in g->tmptv. - | mov [RA], TAB:RB // RB = GCtab * - | mov dword [RA+4], LJ_TTAB - | mov RB, RA - | jmp >2 - | - |->vmeta_tgetb: - | movzx RC, PC_RC - |.if DUALNUM - | mov TMP2, LJ_TISNUM - | mov TMP1, RC - |.else - | cvtsi2sd xmm0, RC - | movsd TMPQ, xmm0 - |.endif - | lea RCa, TMPQ // Store temp. TValue in TMPQ. - | jmp >1 - | - |->vmeta_tgetv: - | movzx RC, PC_RC // Reload TValue *k from RC. - | lea RC, [BASE+RC*8] - |1: - | movzx RB, PC_RB // Reload TValue *t from RB. - | lea RB, [BASE+RB*8] - |2: - |.if X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG2d, RB - | mov CARG3, RCa // May be 64 bit ptr to stack. - | mov L:RB, L:CARG1d - |.else - | mov ARG2, RB - | mov L:RB, SAVE_L - | mov ARG3, RC - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k) - | // TValue * (finished) or NULL (metamethod) returned in eax (RC). - | mov BASE, L:RB->base - | test RC, RC - | jz >3 - |->cont_ra: // BASE = base, RC = result - | movzx RA, PC_RA - |.if X64 - | mov RBa, [RC] - | mov [BASE+RA*8], RBa - |.else - | mov RB, [RC+4] - | mov RC, [RC] - | mov [BASE+RA*8+4], RB - | mov [BASE+RA*8], RC - |.endif - | ins_next - | - |3: // Call __index metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k - | mov RA, L:RB->top - | mov [RA-12], PC // [cont|PC] - | lea PC, [RA+FRAME_CONT] - | sub PC, BASE - | mov LFUNC:RB, [RA-8] // Guaranteed to be a function here. - | mov NARGS:RD, 2+1 // 2 args for func(t, k). - | jmp ->vm_call_dispatch_f - | - |->vmeta_tgetr: - | mov FCARG1, TAB:RB - | mov RB, BASE // Save BASE. - | mov FCARG2, RC // Caveat: FCARG2 == BASE - | call extern lj_tab_getinth@8 // (GCtab *t, int32_t key) - | // cTValue * or NULL returned in eax (RC). - | movzx RA, PC_RA - | mov BASE, RB // Restore BASE. - | test RC, RC - | jnz ->BC_TGETR_Z - | mov dword [BASE+RA*8+4], LJ_TNIL - | jmp ->BC_TGETR2_Z - | - |//----------------------------------------------------------------------- - | - |->vmeta_tsets: - | mov TMP1, RC // RC = GCstr * - | mov TMP2, LJ_TSTR - | lea RCa, TMP1 // Store temp. TValue in TMP1/TMP2. - | cmp PC_OP, BC_GSET - | jne >1 - | lea RA, [DISPATCH+DISPATCH_GL(tmptv)] // Store fn->l.env in g->tmptv. - | mov [RA], TAB:RB // RB = GCtab * - | mov dword [RA+4], LJ_TTAB - | mov RB, RA - | jmp >2 - | - |->vmeta_tsetb: - | movzx RC, PC_RC - |.if DUALNUM - | mov TMP2, LJ_TISNUM - | mov TMP1, RC - |.else - | cvtsi2sd xmm0, RC - | movsd TMPQ, xmm0 - |.endif - | lea RCa, TMPQ // Store temp. TValue in TMPQ. - | jmp >1 - | - |->vmeta_tsetv: - | movzx RC, PC_RC // Reload TValue *k from RC. - | lea RC, [BASE+RC*8] - |1: - | movzx RB, PC_RB // Reload TValue *t from RB. - | lea RB, [BASE+RB*8] - |2: - |.if X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG2d, RB - | mov CARG3, RCa // May be 64 bit ptr to stack. - | mov L:RB, L:CARG1d - |.else - | mov ARG2, RB - | mov L:RB, SAVE_L - | mov ARG3, RC - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k) - | // TValue * (finished) or NULL (metamethod) returned in eax (RC). - | mov BASE, L:RB->base - | test RC, RC - | jz >3 - | // NOBARRIER: lj_meta_tset ensures the table is not black. - | movzx RA, PC_RA - |.if X64 - | mov RBa, [BASE+RA*8] - | mov [RC], RBa - |.else - | mov RB, [BASE+RA*8+4] - | mov RA, [BASE+RA*8] - | mov [RC+4], RB - | mov [RC], RA - |.endif - |->cont_nop: // BASE = base, (RC = result) - | ins_next - | - |3: // Call __newindex metamethod. - | // BASE = base, L->top = new base, stack = cont/func/t/k/(v) - | mov RA, L:RB->top - | mov [RA-12], PC // [cont|PC] - | movzx RC, PC_RA - | // Copy value to third argument. - |.if X64 - | mov RBa, [BASE+RC*8] - | mov [RA+16], RBa - |.else - | mov RB, [BASE+RC*8+4] - | mov RC, [BASE+RC*8] - | mov [RA+20], RB - | mov [RA+16], RC - |.endif - | lea PC, [RA+FRAME_CONT] - | sub PC, BASE - | mov LFUNC:RB, [RA-8] // Guaranteed to be a function here. - | mov NARGS:RD, 3+1 // 3 args for func(t, k, v). - | jmp ->vm_call_dispatch_f - | - |->vmeta_tsetr: - |.if X64WIN - | mov L:CARG1d, SAVE_L - | mov CARG3d, RC - | mov L:CARG1d->base, BASE - | xchg CARG2d, TAB:RB // Caveat: CARG2d == BASE. - |.elif X64 - | mov L:CARG1d, SAVE_L - | mov CARG2d, TAB:RB - | mov L:CARG1d->base, BASE - | mov RB, BASE // Save BASE. - | mov CARG3d, RC // Caveat: CARG3d == BASE. - |.else - | mov L:RA, SAVE_L - | mov ARG2, TAB:RB - | mov RB, BASE // Save BASE. - | mov ARG3, RC - | mov ARG1, L:RA - | mov L:RA->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_tab_setinth // (lua_State *L, GCtab *t, int32_t key) - | // TValue * returned in eax (RC). - | movzx RA, PC_RA - | mov BASE, RB // Restore BASE. - | jmp ->BC_TSETR_Z - | - |//-- Comparison metamethods --------------------------------------------- - | - |->vmeta_comp: - |.if X64 - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d == BASE. - |.if X64WIN - | lea CARG3d, [BASE+RD*8] - | lea CARG2d, [BASE+RA*8] - |.else - | lea CARG2d, [BASE+RA*8] - | lea CARG3d, [BASE+RD*8] - |.endif - | mov CARG1d, L:RB // Caveat: CARG1d/CARG4d == RA. - | movzx CARG4d, PC_OP - |.else - | movzx RB, PC_OP - | lea RD, [BASE+RD*8] - | lea RA, [BASE+RA*8] - | mov ARG4, RB - | mov L:RB, SAVE_L - | mov ARG3, RD - | mov ARG2, RA - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op) - | // 0/1 or TValue * (metamethod) returned in eax (RC). - |3: - | mov BASE, L:RB->base - | cmp RC, 1 - | ja ->vmeta_binop - |4: - | lea PC, [PC+4] - | jb >6 - |5: - | movzx RD, PC_RD - | branchPC RD - |6: - | ins_next - | - |->cont_condt: // BASE = base, RC = result - | add PC, 4 - | cmp dword [RC+4], LJ_TISTRUECOND // Branch if result is true. - | jb <5 - | jmp <6 - | - |->cont_condf: // BASE = base, RC = result - | cmp dword [RC+4], LJ_TISTRUECOND // Branch if result is false. - | jmp <4 - | - |->vmeta_equal: - | sub PC, 4 - |.if X64WIN - | mov CARG3d, RD - | mov CARG4d, RB - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d == BASE. - | mov CARG2d, RA - | mov CARG1d, L:RB // Caveat: CARG1d == RA. - |.elif X64 - | mov CARG2d, RA - | mov CARG4d, RB // Caveat: CARG4d == RA. - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG3d == BASE. - | mov CARG3d, RD - | mov CARG1d, L:RB - |.else - | mov ARG4, RB - | mov L:RB, SAVE_L - | mov ARG3, RD - | mov ARG2, RA - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne) - | // 0/1 or TValue * (metamethod) returned in eax (RC). - | jmp <3 - | - |->vmeta_equal_cd: - |.if FFI - | sub PC, 4 - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov FCARG1, L:RB - | mov FCARG2, dword [PC-4] - | mov SAVE_PC, PC - | call extern lj_meta_equal_cd@8 // (lua_State *L, BCIns ins) - | // 0/1 or TValue * (metamethod) returned in eax (RC). - | jmp <3 - |.endif - | - |->vmeta_istype: - |.if X64 - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG2d, RA - | movzx CARG3d, PC_RD - | mov L:CARG1d, L:RB - |.else - | movzx RD, PC_RD - | mov ARG2, RA - | mov L:RB, SAVE_L - | mov ARG3, RD - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_istype // (lua_State *L, BCReg ra, BCReg tp) - | mov BASE, L:RB->base - | jmp <6 - | - |//-- Arithmetic metamethods --------------------------------------------- - | - |->vmeta_arith_vno: - |.if DUALNUM - | movzx RB, PC_RB - |.endif - |->vmeta_arith_vn: - | lea RC, [KBASE+RC*8] - | jmp >1 - | - |->vmeta_arith_nvo: - |.if DUALNUM - | movzx RC, PC_RC - |.endif - |->vmeta_arith_nv: - | lea RC, [KBASE+RC*8] - | lea RB, [BASE+RB*8] - | xchg RB, RC - | jmp >2 - | - |->vmeta_unm: - | lea RC, [BASE+RD*8] - | mov RB, RC - | jmp >2 - | - |->vmeta_arith_vvo: - |.if DUALNUM - | movzx RB, PC_RB - |.endif - |->vmeta_arith_vv: - | lea RC, [BASE+RC*8] - |1: - | lea RB, [BASE+RB*8] - |2: - | lea RA, [BASE+RA*8] - |.if X64WIN - | mov CARG3d, RB - | mov CARG4d, RC - | movzx RC, PC_OP - | mov ARG5d, RC - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d == BASE. - | mov CARG2d, RA - | mov CARG1d, L:RB // Caveat: CARG1d == RA. - |.elif X64 - | movzx CARG5d, PC_OP - | mov CARG2d, RA - | mov CARG4d, RC // Caveat: CARG4d == RA. - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE // Caveat: CARG3d == BASE. - | mov CARG3d, RB - | mov L:RB, L:CARG1d - |.else - | mov ARG3, RB - | mov L:RB, SAVE_L - | mov ARG4, RC - | movzx RC, PC_OP - | mov ARG2, RA - | mov ARG5, RC - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op) - | // NULL (finished) or TValue * (metamethod) returned in eax (RC). - | mov BASE, L:RB->base - | test RC, RC - | jz ->cont_nop - | - | // Call metamethod for binary op. - |->vmeta_binop: - | // BASE = base, RC = new base, stack = cont/func/o1/o2 - | mov RA, RC - | sub RC, BASE - | mov [RA-12], PC // [cont|PC] - | lea PC, [RC+FRAME_CONT] - | mov NARGS:RD, 2+1 // 2 args for func(o1, o2). - | jmp ->vm_call_dispatch - | - |->vmeta_len: - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | lea FCARG2, [BASE+RD*8] // Caveat: FCARG2 == BASE - | mov L:FCARG1, L:RB - | mov SAVE_PC, PC - | call extern lj_meta_len@8 // (lua_State *L, TValue *o) - | // NULL (retry) or TValue * (metamethod) returned in eax (RC). - | mov BASE, L:RB->base -#if LJ_52 - | test RC, RC - | jne ->vmeta_binop // Binop call for compatibility. - | movzx RD, PC_RD - | mov TAB:FCARG1, [BASE+RD*8] - | jmp ->BC_LEN_Z -#else - | jmp ->vmeta_binop // Binop call for compatibility. -#endif - | - |//-- Call metamethod ---------------------------------------------------- - | - |->vmeta_call_ra: - | lea RA, [BASE+RA*8+8] - |->vmeta_call: // Resolve and call __call metamethod. - | // BASE = old base, RA = new base, RC = nargs+1, PC = return - | mov TMP2, RA // Save RA, RC for us. - | mov TMP1, NARGS:RD - | sub RA, 8 - |.if X64 - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG2d, RA - | lea CARG3d, [RA+NARGS:RD*8] - | mov CARG1d, L:RB // Caveat: CARG1d may be RA. - |.else - | lea RC, [RA+NARGS:RD*8] - | mov L:RB, SAVE_L - | mov ARG2, RA - | mov ARG3, RC - | mov ARG1, L:RB - | mov L:RB->base, BASE // This is the callers base! - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_call // (lua_State *L, TValue *func, TValue *top) - | mov BASE, L:RB->base - | mov RA, TMP2 - | mov NARGS:RD, TMP1 - | mov LFUNC:RB, [RA-8] - | add NARGS:RD, 1 - | // This is fragile. L->base must not move, KBASE must always be defined. - | cmp KBASE, BASE // Continue with CALLT if flag set. - | je ->BC_CALLT_Z - | mov BASE, RA - | ins_call // Otherwise call resolved metamethod. - | - |//-- Argument coercion for 'for' statement ------------------------------ - | - |->vmeta_for: - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov FCARG2, RA // Caveat: FCARG2 == BASE - | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA - | mov SAVE_PC, PC - | call extern lj_meta_for@8 // (lua_State *L, TValue *base) - | mov BASE, L:RB->base - | mov RC, [PC-4] - | movzx RA, RCH - | movzx OP, RCL - | shr RC, 16 - |.if X64 - | jmp aword [DISPATCH+OP*8+GG_DISP2STATIC] // Retry FORI or JFORI. - |.else - | jmp aword [DISPATCH+OP*4+GG_DISP2STATIC] // Retry FORI or JFORI. - |.endif - | - |//----------------------------------------------------------------------- - |//-- Fast functions ----------------------------------------------------- - |//----------------------------------------------------------------------- - | - |.macro .ffunc, name - |->ff_ .. name: - |.endmacro - | - |.macro .ffunc_1, name - |->ff_ .. name: - | cmp NARGS:RD, 1+1; jb ->fff_fallback - |.endmacro - | - |.macro .ffunc_2, name - |->ff_ .. name: - | cmp NARGS:RD, 2+1; jb ->fff_fallback - |.endmacro - | - |.macro .ffunc_nsse, name, op - | .ffunc_1 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | op xmm0, qword [BASE] - |.endmacro - | - |.macro .ffunc_nsse, name - | .ffunc_nsse name, movsd - |.endmacro - | - |.macro .ffunc_nnsse, name - | .ffunc_2 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback - | movsd xmm0, qword [BASE] - | movsd xmm1, qword [BASE+8] - |.endmacro - | - |.macro .ffunc_nnr, name - | .ffunc_2 name - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM; jae ->fff_fallback - | fld qword [BASE+8] - | fld qword [BASE] - |.endmacro - | - |// Inlined GC threshold check. Caveat: uses label 1. - |.macro ffgccheck - | mov RB, [DISPATCH+DISPATCH_GL(gc.total)] - | cmp RB, [DISPATCH+DISPATCH_GL(gc.threshold)] - | jb >1 - | call ->fff_gcstep - |1: - |.endmacro - | - |//-- Base library: checks ----------------------------------------------- - | - |.ffunc_1 assert - | mov RB, [BASE+4] - | cmp RB, LJ_TISTRUECOND; jae ->fff_fallback - | mov PC, [BASE-4] - | mov MULTRES, RD - | mov [BASE-4], RB - | mov RB, [BASE] - | mov [BASE-8], RB - | sub RD, 2 - | jz >2 - | mov RA, BASE - |1: - | add RA, 8 - |.if X64 - | mov RBa, [RA] - | mov [RA-8], RBa - |.else - | mov RB, [RA+4] - | mov [RA-4], RB - | mov RB, [RA] - | mov [RA-8], RB - |.endif - | sub RD, 1 - | jnz <1 - |2: - | mov RD, MULTRES - | jmp ->fff_res_ - | - |.ffunc_1 type - | mov RB, [BASE+4] - |.if X64 - | mov RA, RB - | sar RA, 15 - | cmp RA, -2 - | je >3 - |.endif - | mov RC, ~LJ_TNUMX - | not RB - | cmp RC, RB - | cmova RC, RB - |2: - | mov CFUNC:RB, [BASE-8] - | mov STR:RC, [CFUNC:RB+RC*8+((char *)(&((GCfuncC *)0)->upvalue))] - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TSTR - | mov [BASE-8], STR:RC - | jmp ->fff_res1 - |.if X64 - |3: - | mov RC, ~LJ_TLIGHTUD - | jmp <2 - |.endif - | - |//-- Base library: getters and setters --------------------------------- - | - |.ffunc_1 getmetatable - | mov RB, [BASE+4] - | mov PC, [BASE-4] - | cmp RB, LJ_TTAB; jne >6 - |1: // Field metatable must be at same offset for GCtab and GCudata! - | mov TAB:RB, [BASE] - | mov TAB:RB, TAB:RB->metatable - |2: - | test TAB:RB, TAB:RB - | mov dword [BASE-4], LJ_TNIL - | jz ->fff_res1 - | mov STR:RC, [DISPATCH+DISPATCH_GL(gcroot)+4*(GCROOT_MMNAME+MM_metatable)] - | mov dword [BASE-4], LJ_TTAB // Store metatable as default result. - | mov [BASE-8], TAB:RB - | mov RA, TAB:RB->hmask - | and RA, STR:RC->hash - | imul RA, #NODE - | add NODE:RA, TAB:RB->node - |3: // Rearranged logic, because we expect _not_ to find the key. - | cmp dword NODE:RA->key.it, LJ_TSTR - | jne >4 - | cmp dword NODE:RA->key.gcr, STR:RC - | je >5 - |4: - | mov NODE:RA, NODE:RA->next - | test NODE:RA, NODE:RA - | jnz <3 - | jmp ->fff_res1 // Not found, keep default result. - |5: - | mov RB, [RA+4] - | cmp RB, LJ_TNIL; je ->fff_res1 // Ditto for nil value. - | mov RC, [RA] - | mov [BASE-4], RB // Return value of mt.__metatable. - | mov [BASE-8], RC - | jmp ->fff_res1 - | - |6: - | cmp RB, LJ_TUDATA; je <1 - |.if X64 - | cmp RB, LJ_TNUMX; ja >8 - | cmp RB, LJ_TISNUM; jbe >7 - | mov RB, LJ_TLIGHTUD - | jmp >8 - |7: - |.else - | cmp RB, LJ_TISNUM; ja >8 - |.endif - | mov RB, LJ_TNUMX - |8: - | not RB - | mov TAB:RB, [DISPATCH+RB*4+DISPATCH_GL(gcroot[GCROOT_BASEMT])] - | jmp <2 - | - |.ffunc_2 setmetatable - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback - | // Fast path: no mt for table yet and not clearing the mt. - | mov TAB:RB, [BASE] - | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback - | cmp dword [BASE+12], LJ_TTAB; jne ->fff_fallback - | mov TAB:RC, [BASE+8] - | mov TAB:RB->metatable, TAB:RC - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TTAB // Return original table. - | mov [BASE-8], TAB:RB - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jz >1 - | // Possible write barrier. Table is black, but skip iswhite(mt) check. - | barrierback TAB:RB, RC - |1: - | jmp ->fff_res1 - | - |.ffunc_2 rawget - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback - |.if X64WIN - | mov RB, BASE // Save BASE. - | lea CARG3d, [BASE+8] - | mov CARG2d, [BASE] // Caveat: CARG2d == BASE. - | mov CARG1d, SAVE_L - |.elif X64 - | mov RB, BASE // Save BASE. - | mov CARG2d, [BASE] - | lea CARG3d, [BASE+8] // Caveat: CARG3d == BASE. - | mov CARG1d, SAVE_L - |.else - | mov TAB:RD, [BASE] - | mov L:RB, SAVE_L - | mov ARG2, TAB:RD - | mov ARG1, L:RB - | mov RB, BASE // Save BASE. - | add BASE, 8 - | mov ARG3, BASE - |.endif - | call extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key) - | // cTValue * returned in eax (RD). - | mov BASE, RB // Restore BASE. - | // Copy table slot. - |.if X64 - | mov RBa, [RD] - | mov PC, [BASE-4] - | mov [BASE-8], RBa - |.else - | mov RB, [RD] - | mov RD, [RD+4] - | mov PC, [BASE-4] - | mov [BASE-8], RB - | mov [BASE-4], RD - |.endif - | jmp ->fff_res1 - | - |//-- Base library: conversions ------------------------------------------ - | - |.ffunc tonumber - | // Only handles the number case inline (without a base argument). - | cmp NARGS:RD, 1+1; jne ->fff_fallback // Exactly one argument. - | cmp dword [BASE+4], LJ_TISNUM - |.if DUALNUM - | jne >1 - | mov RB, dword [BASE]; jmp ->fff_resi - |1: - | ja ->fff_fallback - |.else - | jae ->fff_fallback - |.endif - | movsd xmm0, qword [BASE]; jmp ->fff_resxmm0 - | - |.ffunc_1 tostring - | // Only handles the string or number case inline. - | mov PC, [BASE-4] - | cmp dword [BASE+4], LJ_TSTR; jne >3 - | // A __tostring method in the string base metatable is ignored. - | mov STR:RD, [BASE] - |2: - | mov dword [BASE-4], LJ_TSTR - | mov [BASE-8], STR:RD - | jmp ->fff_res1 - |3: // Handle numbers inline, unless a number base metatable is present. - | cmp dword [BASE+4], LJ_TISNUM; ja ->fff_fallback - | cmp dword [DISPATCH+DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])], 0 - | jne ->fff_fallback - | ffgccheck // Caveat: uses label 1. - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Add frame since C call can throw. - | mov SAVE_PC, PC // Redundant (but a defined value). - |.if X64 and not X64WIN - | mov FCARG2, BASE // Otherwise: FCARG2 == BASE - |.endif - | mov L:FCARG1, L:RB - |.if DUALNUM - | call extern lj_strfmt_number@8 // (lua_State *L, cTValue *o) - |.else - | call extern lj_strfmt_num@8 // (lua_State *L, lua_Number *np) - |.endif - | // GCstr returned in eax (RD). - | mov BASE, L:RB->base - | jmp <2 - | - |//-- Base library: iterators ------------------------------------------- - | - |.ffunc_1 next - | je >2 // Missing 2nd arg? - |1: - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Add frame since C call can throw. - | mov L:RB->top, BASE // Dummy frame length is ok. - | mov PC, [BASE-4] - |.if X64WIN - | lea CARG3d, [BASE+8] - | mov CARG2d, [BASE] // Caveat: CARG2d == BASE. - | mov CARG1d, L:RB - |.elif X64 - | mov CARG2d, [BASE] - | lea CARG3d, [BASE+8] // Caveat: CARG3d == BASE. - | mov CARG1d, L:RB - |.else - | mov TAB:RD, [BASE] - | mov ARG2, TAB:RD - | mov ARG1, L:RB - | add BASE, 8 - | mov ARG3, BASE - |.endif - | mov SAVE_PC, PC // Needed for ITERN fallback. - | call extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key) - | // Flag returned in eax (RD). - | mov BASE, L:RB->base - | test RD, RD; jz >3 // End of traversal? - | // Copy key and value to results. - |.if X64 - | mov RBa, [BASE+8] - | mov RDa, [BASE+16] - | mov [BASE-8], RBa - | mov [BASE], RDa - |.else - | mov RB, [BASE+8] - | mov RD, [BASE+12] - | mov [BASE-8], RB - | mov [BASE-4], RD - | mov RB, [BASE+16] - | mov RD, [BASE+20] - | mov [BASE], RB - | mov [BASE+4], RD - |.endif - |->fff_res2: - | mov RD, 1+2 - | jmp ->fff_res - |2: // Set missing 2nd arg to nil. - | mov dword [BASE+12], LJ_TNIL - | jmp <1 - |3: // End of traversal: return nil. - | mov dword [BASE-4], LJ_TNIL - | jmp ->fff_res1 - | - |.ffunc_1 pairs - | mov TAB:RB, [BASE] - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback -#if LJ_52 - | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback -#endif - | mov CFUNC:RB, [BASE-8] - | mov CFUNC:RD, CFUNC:RB->upvalue[0] - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TFUNC - | mov [BASE-8], CFUNC:RD - | mov dword [BASE+12], LJ_TNIL - | mov RD, 1+3 - | jmp ->fff_res - | - |.ffunc_2 ipairs_aux - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM - |.if DUALNUM - | jne ->fff_fallback - |.else - | jae ->fff_fallback - |.endif - | mov PC, [BASE-4] - |.if DUALNUM - | mov RD, dword [BASE+8] - | add RD, 1 - | mov dword [BASE-4], LJ_TISNUM - | mov dword [BASE-8], RD - |.else - | movsd xmm0, qword [BASE+8] - | sseconst_1 xmm1, RBa - | addsd xmm0, xmm1 - | cvttsd2si RD, xmm0 - | movsd qword [BASE-8], xmm0 - |.endif - | mov TAB:RB, [BASE] - | cmp RD, TAB:RB->asize; jae >2 // Not in array part? - | shl RD, 3 - | add RD, TAB:RB->array - |1: - | cmp dword [RD+4], LJ_TNIL; je ->fff_res0 - | // Copy array slot. - |.if X64 - | mov RBa, [RD] - | mov [BASE], RBa - |.else - | mov RB, [RD] - | mov RD, [RD+4] - | mov [BASE], RB - | mov [BASE+4], RD - |.endif - | jmp ->fff_res2 - |2: // Check for empty hash part first. Otherwise call C function. - | cmp dword TAB:RB->hmask, 0; je ->fff_res0 - | mov FCARG1, TAB:RB - | mov RB, BASE // Save BASE. - | mov FCARG2, RD // Caveat: FCARG2 == BASE - | call extern lj_tab_getinth@8 // (GCtab *t, int32_t key) - | // cTValue * or NULL returned in eax (RD). - | mov BASE, RB - | test RD, RD - | jnz <1 - |->fff_res0: - | mov RD, 1+0 - | jmp ->fff_res - | - |.ffunc_1 ipairs - | mov TAB:RB, [BASE] - | cmp dword [BASE+4], LJ_TTAB; jne ->fff_fallback -#if LJ_52 - | cmp dword TAB:RB->metatable, 0; jne ->fff_fallback -#endif - | mov CFUNC:RB, [BASE-8] - | mov CFUNC:RD, CFUNC:RB->upvalue[0] - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TFUNC - | mov [BASE-8], CFUNC:RD - |.if DUALNUM - | mov dword [BASE+12], LJ_TISNUM - | mov dword [BASE+8], 0 - |.else - | xorps xmm0, xmm0 - | movsd qword [BASE+8], xmm0 - |.endif - | mov RD, 1+3 - | jmp ->fff_res - | - |//-- Base library: catch errors ---------------------------------------- - | - |.ffunc_1 pcall - | lea RA, [BASE+8] - | sub NARGS:RD, 1 - | mov PC, 8+FRAME_PCALL - |1: - | movzx RB, byte [DISPATCH+DISPATCH_GL(hookmask)] - | shr RB, HOOK_ACTIVE_SHIFT - | and RB, 1 - | add PC, RB // Remember active hook before pcall. - | jmp ->vm_call_dispatch - | - |.ffunc_2 xpcall - | cmp dword [BASE+12], LJ_TFUNC; jne ->fff_fallback - | mov RB, [BASE+4] // Swap function and traceback. - | mov [BASE+12], RB - | mov dword [BASE+4], LJ_TFUNC - | mov LFUNC:RB, [BASE] - | mov PC, [BASE+8] - | mov [BASE+8], LFUNC:RB - | mov [BASE], PC - | lea RA, [BASE+16] - | sub NARGS:RD, 2 - | mov PC, 16+FRAME_PCALL - | jmp <1 - | - |//-- Coroutine library -------------------------------------------------- - | - |.macro coroutine_resume_wrap, resume - |.if resume - |.ffunc_1 coroutine_resume - | mov L:RB, [BASE] - |.else - |.ffunc coroutine_wrap_aux - | mov CFUNC:RB, [BASE-8] - | mov L:RB, CFUNC:RB->upvalue[0].gcr - |.endif - | mov PC, [BASE-4] - | mov SAVE_PC, PC - |.if X64 - | mov TMP1, L:RB - |.else - | mov ARG1, L:RB - |.endif - |.if resume - | cmp dword [BASE+4], LJ_TTHREAD; jne ->fff_fallback - |.endif - | cmp aword L:RB->cframe, 0; jne ->fff_fallback - | cmp byte L:RB->status, LUA_YIELD; ja ->fff_fallback - | mov RA, L:RB->top - | je >1 // Status != LUA_YIELD (i.e. 0)? - | cmp RA, L:RB->base // Check for presence of initial func. - | je ->fff_fallback - |1: - |.if resume - | lea PC, [RA+NARGS:RD*8-16] // Check stack space (-1-thread). - |.else - | lea PC, [RA+NARGS:RD*8-8] // Check stack space (-1). - |.endif - | cmp PC, L:RB->maxstack; ja ->fff_fallback - | mov L:RB->top, PC - | - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - |.if resume - | add BASE, 8 // Keep resumed thread in stack for GC. - |.endif - | mov L:RB->top, BASE - |.if resume - | lea RB, [BASE+NARGS:RD*8-24] // RB = end of source for stack move. - |.else - | lea RB, [BASE+NARGS:RD*8-16] // RB = end of source for stack move. - |.endif - | sub RBa, PCa // Relative to PC. - | - | cmp PC, RA - | je >3 - |2: // Move args to coroutine. - |.if X64 - | mov RCa, [PC+RB] - | mov [PC-8], RCa - |.else - | mov RC, [PC+RB+4] - | mov [PC-4], RC - | mov RC, [PC+RB] - | mov [PC-8], RC - |.endif - | sub PC, 8 - | cmp PC, RA - | jne <2 - |3: - |.if X64 - | mov CARG2d, RA - | mov CARG1d, TMP1 - |.else - | mov ARG2, RA - | xor RA, RA - | mov ARG4, RA - | mov ARG3, RA - |.endif - | call ->vm_resume // (lua_State *L, TValue *base, 0, 0) - | - | mov L:RB, SAVE_L - |.if X64 - | mov L:PC, TMP1 - |.else - | mov L:PC, ARG1 // The callee doesn't modify SAVE_L. - |.endif - | mov BASE, L:RB->base - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | set_vmstate INTERP - | - | cmp eax, LUA_YIELD - | ja >8 - |4: - | mov RA, L:PC->base - | mov KBASE, L:PC->top - | mov L:PC->top, RA // Clear coroutine stack. - | mov PC, KBASE - | sub PC, RA - | je >6 // No results? - | lea RD, [BASE+PC] - | shr PC, 3 - | cmp RD, L:RB->maxstack - | ja >9 // Need to grow stack? - | - | mov RB, BASE - | sub RBa, RAa - |5: // Move results from coroutine. - |.if X64 - | mov RDa, [RA] - | mov [RA+RB], RDa - |.else - | mov RD, [RA] - | mov [RA+RB], RD - | mov RD, [RA+4] - | mov [RA+RB+4], RD - |.endif - | add RA, 8 - | cmp RA, KBASE - | jne <5 - |6: - |.if resume - | lea RD, [PC+2] // nresults+1 = 1 + true + results. - | mov dword [BASE-4], LJ_TTRUE // Prepend true to results. - |.else - | lea RD, [PC+1] // nresults+1 = 1 + results. - |.endif - |7: - | mov PC, SAVE_PC - | mov MULTRES, RD - |.if resume - | mov RAa, -8 - |.else - | xor RA, RA - |.endif - | test PC, FRAME_TYPE - | jz ->BC_RET_Z - | jmp ->vm_return - | - |8: // Coroutine returned with error (at co->top-1). - |.if resume - | mov dword [BASE-4], LJ_TFALSE // Prepend false to results. - | mov RA, L:PC->top - | sub RA, 8 - | mov L:PC->top, RA // Clear error from coroutine stack. - | // Copy error message. - |.if X64 - | mov RDa, [RA] - | mov [BASE], RDa - |.else - | mov RD, [RA] - | mov [BASE], RD - | mov RD, [RA+4] - | mov [BASE+4], RD - |.endif - | mov RD, 1+2 // nresults+1 = 1 + false + error. - | jmp <7 - |.else - | mov FCARG2, L:PC - | mov FCARG1, L:RB - | call extern lj_ffh_coroutine_wrap_err@8 // (lua_State *L, lua_State *co) - | // Error function does not return. - |.endif - | - |9: // Handle stack expansion on return from yield. - |.if X64 - | mov L:RA, TMP1 - |.else - | mov L:RA, ARG1 // The callee doesn't modify SAVE_L. - |.endif - | mov L:RA->top, KBASE // Undo coroutine stack clearing. - | mov FCARG2, PC - | mov FCARG1, L:RB - | call extern lj_state_growstack@8 // (lua_State *L, int n) - |.if X64 - | mov L:PC, TMP1 - |.else - | mov L:PC, ARG1 - |.endif - | mov BASE, L:RB->base - | jmp <4 // Retry the stack move. - |.endmacro - | - | coroutine_resume_wrap 1 // coroutine.resume - | coroutine_resume_wrap 0 // coroutine.wrap - | - |.ffunc coroutine_yield - | mov L:RB, SAVE_L - | test aword L:RB->cframe, CFRAME_RESUME - | jz ->fff_fallback - | mov L:RB->base, BASE - | lea RD, [BASE+NARGS:RD*8-8] - | mov L:RB->top, RD - | xor RD, RD - | mov aword L:RB->cframe, RDa - | mov al, LUA_YIELD - | mov byte L:RB->status, al - | jmp ->vm_leave_unw - | - |//-- Math library ------------------------------------------------------- - | - |.if not DUALNUM - |->fff_resi: // Dummy. - |.endif - | - |->fff_resn: - | mov PC, [BASE-4] - | fstp qword [BASE-8] - | jmp ->fff_res1 - | - | .ffunc_1 math_abs - |.if DUALNUM - | cmp dword [BASE+4], LJ_TISNUM; jne >2 - | mov RB, dword [BASE] - | cmp RB, 0; jns ->fff_resi - | neg RB; js >1 - |->fff_resbit: - |->fff_resi: - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TISNUM - | mov dword [BASE-8], RB - | jmp ->fff_res1 - |1: - | mov PC, [BASE-4] - | mov dword [BASE-4], 0x41e00000 // 2^31. - | mov dword [BASE-8], 0 - | jmp ->fff_res1 - |2: - | ja ->fff_fallback - |.else - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - |.endif - | movsd xmm0, qword [BASE] - | sseconst_abs xmm1, RDa - | andps xmm0, xmm1 - |->fff_resxmm0: - | mov PC, [BASE-4] - | movsd qword [BASE-8], xmm0 - | // fallthrough - | - |->fff_res1: - | mov RD, 1+1 - |->fff_res: - | mov MULTRES, RD - |->fff_res_: - | test PC, FRAME_TYPE - | jnz >7 - |5: - | cmp PC_RB, RDL // More results expected? - | ja >6 - | // Adjust BASE. KBASE is assumed to be set for the calling frame. - | movzx RA, PC_RA - | not RAa // Note: ~RA = -(RA+1) - | lea BASE, [BASE+RA*8] // base = base - (RA+1)*8 - | ins_next - | - |6: // Fill up results with nil. - | mov dword [BASE+RD*8-12], LJ_TNIL - | add RD, 1 - | jmp <5 - | - |7: // Non-standard return case. - | mov RAa, -8 // Results start at BASE+RA = BASE-8. - | jmp ->vm_return - | - |.if X64 - |.define fff_resfp, fff_resxmm0 - |.else - |.define fff_resfp, fff_resn - |.endif - | - |.macro math_round, func - | .ffunc math_ .. func - |.if DUALNUM - | cmp dword [BASE+4], LJ_TISNUM; jne >1 - | mov RB, dword [BASE]; jmp ->fff_resi - |1: - | ja ->fff_fallback - |.else - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - |.endif - | movsd xmm0, qword [BASE] - | call ->vm_ .. func .. _sse - |.if DUALNUM - | cvttsd2si RB, xmm0 - | cmp RB, 0x80000000 - | jne ->fff_resi - | cvtsi2sd xmm1, RB - | ucomisd xmm0, xmm1 - | jp ->fff_resxmm0 - | je ->fff_resi - |.endif - | jmp ->fff_resxmm0 - |.endmacro - | - | math_round floor - | math_round ceil - | - |.ffunc_nsse math_sqrt, sqrtsd; jmp ->fff_resxmm0 - | - |.ffunc math_log - | cmp NARGS:RD, 1+1; jne ->fff_fallback // Exactly one argument. - | cmp dword [BASE+4], LJ_TISNUM; jae ->fff_fallback - | movsd xmm0, qword [BASE] - |.if not X64 - | movsd FPARG1, xmm0 - |.endif - | mov RB, BASE - | call extern log - | mov BASE, RB - | jmp ->fff_resfp - | - |.macro math_extern, func - | .ffunc_nsse math_ .. func - |.if not X64 - | movsd FPARG1, xmm0 - |.endif - | mov RB, BASE - | call extern func - | mov BASE, RB - | jmp ->fff_resfp - |.endmacro - | - |.macro math_extern2, func - | .ffunc_nnsse math_ .. func - |.if not X64 - | movsd FPARG1, xmm0 - | movsd FPARG3, xmm1 - |.endif - | mov RB, BASE - | call extern func - | mov BASE, RB - | jmp ->fff_resfp - |.endmacro - | - | math_extern log10 - | math_extern exp - | math_extern sin - | math_extern cos - | math_extern tan - | math_extern asin - | math_extern acos - | math_extern atan - | math_extern sinh - | math_extern cosh - | math_extern tanh - | math_extern2 pow - | math_extern2 atan2 - | math_extern2 fmod - | - |.ffunc_nnr math_ldexp; fscale; fpop1; jmp ->fff_resn - | - |.ffunc_1 math_frexp - | mov RB, [BASE+4] - | cmp RB, LJ_TISNUM; jae ->fff_fallback - | mov PC, [BASE-4] - | mov RC, [BASE] - | mov [BASE-4], RB; mov [BASE-8], RC - | shl RB, 1; cmp RB, 0xffe00000; jae >3 - | or RC, RB; jz >3 - | mov RC, 1022 - | cmp RB, 0x00200000; jb >4 - |1: - | shr RB, 21; sub RB, RC // Extract and unbias exponent. - | cvtsi2sd xmm0, RB - | mov RB, [BASE-4] - | and RB, 0x800fffff // Mask off exponent. - | or RB, 0x3fe00000 // Put mantissa in range [0.5,1) or 0. - | mov [BASE-4], RB - |2: - | movsd qword [BASE], xmm0 - | mov RD, 1+2 - | jmp ->fff_res - |3: // Return +-0, +-Inf, NaN unmodified and an exponent of 0. - | xorps xmm0, xmm0; jmp <2 - |4: // Handle denormals by multiplying with 2^54 and adjusting the bias. - | movsd xmm0, qword [BASE] - | sseconst_hi xmm1, RBa, 43500000 // 2^54. - | mulsd xmm0, xmm1 - | movsd qword [BASE-8], xmm0 - | mov RB, [BASE-4]; mov RC, 1076; shl RB, 1; jmp <1 - | - |.ffunc_nsse math_modf - | mov RB, [BASE+4] - | mov PC, [BASE-4] - | shl RB, 1; cmp RB, 0xffe00000; je >4 // +-Inf? - | movaps xmm4, xmm0 - | call ->vm_trunc_sse - | subsd xmm4, xmm0 - |1: - | movsd qword [BASE-8], xmm0 - | movsd qword [BASE], xmm4 - | mov RC, [BASE-4]; mov RB, [BASE+4] - | xor RC, RB; js >3 // Need to adjust sign? - |2: - | mov RD, 1+2 - | jmp ->fff_res - |3: - | xor RB, 0x80000000; mov [BASE+4], RB // Flip sign of fraction. - | jmp <2 - |4: - | xorps xmm4, xmm4; jmp <1 // Return +-Inf and +-0. - | - |.macro math_minmax, name, cmovop, sseop - | .ffunc name - | mov RA, 2 - | cmp dword [BASE+4], LJ_TISNUM - |.if DUALNUM - | jne >4 - | mov RB, dword [BASE] - |1: // Handle integers. - | cmp RA, RD; jae ->fff_resi - | cmp dword [BASE+RA*8-4], LJ_TISNUM; jne >3 - | cmp RB, dword [BASE+RA*8-8] - | cmovop RB, dword [BASE+RA*8-8] - | add RA, 1 - | jmp <1 - |3: - | ja ->fff_fallback - | // Convert intermediate result to number and continue below. - | cvtsi2sd xmm0, RB - | jmp >6 - |4: - | ja ->fff_fallback - |.else - | jae ->fff_fallback - |.endif - | - | movsd xmm0, qword [BASE] - |5: // Handle numbers or integers. - | cmp RA, RD; jae ->fff_resxmm0 - | cmp dword [BASE+RA*8-4], LJ_TISNUM - |.if DUALNUM - | jb >6 - | ja ->fff_fallback - | cvtsi2sd xmm1, dword [BASE+RA*8-8] - | jmp >7 - |.else - | jae ->fff_fallback - |.endif - |6: - | movsd xmm1, qword [BASE+RA*8-8] - |7: - | sseop xmm0, xmm1 - | add RA, 1 - | jmp <5 - |.endmacro - | - | math_minmax math_min, cmovg, minsd - | math_minmax math_max, cmovl, maxsd - | - |//-- String library ----------------------------------------------------- - | - |.ffunc string_byte // Only handle the 1-arg case here. - | cmp NARGS:RD, 1+1; jne ->fff_fallback - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | mov STR:RB, [BASE] - | mov PC, [BASE-4] - | cmp dword STR:RB->len, 1 - | jb ->fff_res0 // Return no results for empty string. - | movzx RB, byte STR:RB[1] - |.if DUALNUM - | jmp ->fff_resi - |.else - | cvtsi2sd xmm0, RB; jmp ->fff_resxmm0 - |.endif - | - |.ffunc string_char // Only handle the 1-arg case here. - | ffgccheck - | cmp NARGS:RD, 1+1; jne ->fff_fallback // *Exactly* 1 arg. - | cmp dword [BASE+4], LJ_TISNUM - |.if DUALNUM - | jne ->fff_fallback - | mov RB, dword [BASE] - | cmp RB, 255; ja ->fff_fallback - | mov TMP2, RB - |.else - | jae ->fff_fallback - | cvttsd2si RB, qword [BASE] - | cmp RB, 255; ja ->fff_fallback - | mov TMP2, RB - |.endif - |.if X64 - | mov TMP3, 1 - |.else - | mov ARG3, 1 - |.endif - | lea RDa, TMP2 // Points to stack. Little-endian. - |->fff_newstr: - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - |.if X64 - | mov CARG3d, TMP3 // Zero-extended to size_t. - | mov CARG2, RDa // May be 64 bit ptr to stack. - | mov CARG1d, L:RB - |.else - | mov ARG2, RD - | mov ARG1, L:RB - |.endif - | mov SAVE_PC, PC - | call extern lj_str_new // (lua_State *L, char *str, size_t l) - |->fff_resstr: - | // GCstr * returned in eax (RD). - | mov BASE, L:RB->base - | mov PC, [BASE-4] - | mov dword [BASE-4], LJ_TSTR - | mov [BASE-8], STR:RD - | jmp ->fff_res1 - | - |.ffunc string_sub - | ffgccheck - | mov TMP2, -1 - | cmp NARGS:RD, 1+2; jb ->fff_fallback - | jna >1 - | cmp dword [BASE+20], LJ_TISNUM - |.if DUALNUM - | jne ->fff_fallback - | mov RB, dword [BASE+16] - | mov TMP2, RB - |.else - | jae ->fff_fallback - | cvttsd2si RB, qword [BASE+16] - | mov TMP2, RB - |.endif - |1: - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | cmp dword [BASE+12], LJ_TISNUM - |.if DUALNUM - | jne ->fff_fallback - |.else - | jae ->fff_fallback - |.endif - | mov STR:RB, [BASE] - | mov TMP3, STR:RB - | mov RB, STR:RB->len - |.if DUALNUM - | mov RA, dword [BASE+8] - |.else - | cvttsd2si RA, qword [BASE+8] - |.endif - | mov RC, TMP2 - | cmp RB, RC // len < end? (unsigned compare) - | jb >5 - |2: - | test RA, RA // start <= 0? - | jle >7 - |3: - | mov STR:RB, TMP3 - | sub RC, RA // start > end? - | jl ->fff_emptystr - | lea RB, [STR:RB+RA+#STR-1] - | add RC, 1 - |4: - |.if X64 - | mov TMP3, RC - |.else - | mov ARG3, RC - |.endif - | mov RD, RB - | jmp ->fff_newstr - | - |5: // Negative end or overflow. - | jl >6 - | lea RC, [RC+RB+1] // end = end+(len+1) - | jmp <2 - |6: // Overflow. - | mov RC, RB // end = len - | jmp <2 - | - |7: // Negative start or underflow. - | je >8 - | add RA, RB // start = start+(len+1) - | add RA, 1 - | jg <3 // start > 0? - |8: // Underflow. - | mov RA, 1 // start = 1 - | jmp <3 - | - |->fff_emptystr: // Range underflow. - | xor RC, RC // Zero length. Any ptr in RB is ok. - | jmp <4 - | - |.macro ffstring_op, name - | .ffunc_1 string_ .. name - | ffgccheck - | cmp dword [BASE+4], LJ_TSTR; jne ->fff_fallback - | mov L:RB, SAVE_L - | lea SBUF:FCARG1, [DISPATCH+DISPATCH_GL(tmpbuf)] - | mov L:RB->base, BASE - | mov STR:FCARG2, [BASE] // Caveat: FCARG2 == BASE - | mov RC, SBUF:FCARG1->b - | mov SBUF:FCARG1->L, L:RB - | mov SBUF:FCARG1->p, RC - | mov SAVE_PC, PC - | call extern lj_buf_putstr_ .. name .. @8 - | mov FCARG1, eax - | call extern lj_buf_tostr@4 - | jmp ->fff_resstr - |.endmacro - | - |ffstring_op reverse - |ffstring_op lower - |ffstring_op upper - | - |//-- Bit library -------------------------------------------------------- - | - |.define TOBIT_BIAS, 0x59c00000 // 2^52 + 2^51 (float, not double!). - | - |.macro .ffunc_bit, name, kind - | .ffunc_1 name - |.if kind == 2 - | sseconst_tobit xmm1, RBa - |.endif - | cmp dword [BASE+4], LJ_TISNUM - |.if DUALNUM - | jne >1 - | mov RB, dword [BASE] - |.if kind > 0 - | jmp >2 - |.else - | jmp ->fff_resbit - |.endif - |1: - | ja ->fff_fallback - |.else - | jae ->fff_fallback - |.endif - | movsd xmm0, qword [BASE] - |.if kind < 2 - | sseconst_tobit xmm1, RBa - |.endif - | addsd xmm0, xmm1 - | movd RB, xmm0 - |2: - |.endmacro - | - |.ffunc_bit bit_tobit, 0 - | jmp ->fff_resbit - | - |.macro .ffunc_bit_op, name, ins - | .ffunc_bit name, 2 - | mov TMP2, NARGS:RD // Save for fallback. - | lea RD, [BASE+NARGS:RD*8-16] - |1: - | cmp RD, BASE - | jbe ->fff_resbit - | cmp dword [RD+4], LJ_TISNUM - |.if DUALNUM - | jne >2 - | ins RB, dword [RD] - | sub RD, 8 - | jmp <1 - |2: - | ja ->fff_fallback_bit_op - |.else - | jae ->fff_fallback_bit_op - |.endif - | movsd xmm0, qword [RD] - | addsd xmm0, xmm1 - | movd RA, xmm0 - | ins RB, RA - | sub RD, 8 - | jmp <1 - |.endmacro - | - |.ffunc_bit_op bit_band, and - |.ffunc_bit_op bit_bor, or - |.ffunc_bit_op bit_bxor, xor - | - |.ffunc_bit bit_bswap, 1 - | bswap RB - | jmp ->fff_resbit - | - |.ffunc_bit bit_bnot, 1 - | not RB - |.if DUALNUM - | jmp ->fff_resbit - |.else - |->fff_resbit: - | cvtsi2sd xmm0, RB - | jmp ->fff_resxmm0 - |.endif - | - |->fff_fallback_bit_op: - | mov NARGS:RD, TMP2 // Restore for fallback - | jmp ->fff_fallback - | - |.macro .ffunc_bit_sh, name, ins - |.if DUALNUM - | .ffunc_bit name, 1 - | // Note: no inline conversion from number for 2nd argument! - | cmp dword [BASE+12], LJ_TISNUM; jne ->fff_fallback - | mov RA, dword [BASE+8] - |.else - | .ffunc_nnsse name - | sseconst_tobit xmm2, RBa - | addsd xmm0, xmm2 - | addsd xmm1, xmm2 - | movd RB, xmm0 - | movd RA, xmm1 - |.endif - | ins RB, cl // Assumes RA is ecx. - | jmp ->fff_resbit - |.endmacro - | - |.ffunc_bit_sh bit_lshift, shl - |.ffunc_bit_sh bit_rshift, shr - |.ffunc_bit_sh bit_arshift, sar - |.ffunc_bit_sh bit_rol, rol - |.ffunc_bit_sh bit_ror, ror - | - |//----------------------------------------------------------------------- - | - |->fff_fallback_2: - | mov NARGS:RD, 1+2 // Other args are ignored, anyway. - | jmp ->fff_fallback - |->fff_fallback_1: - | mov NARGS:RD, 1+1 // Other args are ignored, anyway. - |->fff_fallback: // Call fast function fallback handler. - | // BASE = new base, RD = nargs+1 - | mov L:RB, SAVE_L - | mov PC, [BASE-4] // Fallback may overwrite PC. - | mov SAVE_PC, PC // Redundant (but a defined value). - | mov L:RB->base, BASE - | lea RD, [BASE+NARGS:RD*8-8] - | lea RA, [RD+8*LUA_MINSTACK] // Ensure enough space for handler. - | mov L:RB->top, RD - | mov CFUNC:RD, [BASE-8] - | cmp RA, L:RB->maxstack - | ja >5 // Need to grow stack. - |.if X64 - | mov CARG1d, L:RB - |.else - | mov ARG1, L:RB - |.endif - | call aword CFUNC:RD->f // (lua_State *L) - | mov BASE, L:RB->base - | // Either throws an error, or recovers and returns -1, 0 or nresults+1. - | test RD, RD; jg ->fff_res // Returned nresults+1? - |1: - | mov RA, L:RB->top - | sub RA, BASE - | shr RA, 3 - | test RD, RD - | lea NARGS:RD, [RA+1] - | mov LFUNC:RB, [BASE-8] - | jne ->vm_call_tail // Returned -1? - | ins_callt // Returned 0: retry fast path. - | - |// Reconstruct previous base for vmeta_call during tailcall. - |->vm_call_tail: - | mov RA, BASE - | test PC, FRAME_TYPE - | jnz >3 - | movzx RB, PC_RA - | not RBa // Note: ~RB = -(RB+1) - | lea BASE, [BASE+RB*8] // base = base - (RB+1)*8 - | jmp ->vm_call_dispatch // Resolve again for tailcall. - |3: - | mov RB, PC - | and RB, -8 - | sub BASE, RB - | jmp ->vm_call_dispatch // Resolve again for tailcall. - | - |5: // Grow stack for fallback handler. - | mov FCARG2, LUA_MINSTACK - | mov FCARG1, L:RB - | call extern lj_state_growstack@8 // (lua_State *L, int n) - | mov BASE, L:RB->base - | xor RD, RD // Simulate a return 0. - | jmp <1 // Dumb retry (goes through ff first). - | - |->fff_gcstep: // Call GC step function. - | // BASE = new base, RD = nargs+1 - | pop RBa // Must keep stack at same level. - | mov TMPa, RBa // Save return address - | mov L:RB, SAVE_L - | mov SAVE_PC, PC // Redundant (but a defined value). - | mov L:RB->base, BASE - | lea RD, [BASE+NARGS:RD*8-8] - | mov FCARG1, L:RB - | mov L:RB->top, RD - | call extern lj_gc_step@4 // (lua_State *L) - | mov BASE, L:RB->base - | mov RD, L:RB->top - | sub RD, BASE - | shr RD, 3 - | add NARGS:RD, 1 - | mov RBa, TMPa - | push RBa // Restore return address. - | ret - | - |//----------------------------------------------------------------------- - |//-- Special dispatch targets ------------------------------------------- - |//----------------------------------------------------------------------- - | - |->vm_record: // Dispatch target for recording phase. - |.if JIT - | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] - | test RDL, HOOK_VMEVENT // No recording while in vmevent. - | jnz >5 - | // Decrement the hookcount for consistency, but always do the call. - | test RDL, HOOK_ACTIVE - | jnz >1 - | test RDL, LUA_MASKLINE|LUA_MASKCOUNT - | jz >1 - | dec dword [DISPATCH+DISPATCH_GL(hookcount)] - | jmp >1 - |.endif - | - |->vm_rethook: // Dispatch target for return hooks. - | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] - | test RDL, HOOK_ACTIVE // Hook already active? - | jnz >5 - | jmp >1 - | - |->vm_inshook: // Dispatch target for instr/line hooks. - | movzx RD, byte [DISPATCH+DISPATCH_GL(hookmask)] - | test RDL, HOOK_ACTIVE // Hook already active? - | jnz >5 - | - | test RDL, LUA_MASKLINE|LUA_MASKCOUNT - | jz >5 - | dec dword [DISPATCH+DISPATCH_GL(hookcount)] - | jz >1 - | test RDL, LUA_MASKLINE - | jz >5 - |1: - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov FCARG2, PC // Caveat: FCARG2 == BASE - | mov FCARG1, L:RB - | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC. - | call extern lj_dispatch_ins@8 // (lua_State *L, const BCIns *pc) - |3: - | mov BASE, L:RB->base - |4: - | movzx RA, PC_RA - |5: - | movzx OP, PC_OP - | movzx RD, PC_RD - |.if X64 - | jmp aword [DISPATCH+OP*8+GG_DISP2STATIC] // Re-dispatch to static ins. - |.else - | jmp aword [DISPATCH+OP*4+GG_DISP2STATIC] // Re-dispatch to static ins. - |.endif - | - |->cont_hook: // Continue from hook yield. - | add PC, 4 - | mov RA, [RB-24] - | mov MULTRES, RA // Restore MULTRES for *M ins. - | jmp <4 - | - |->vm_hotloop: // Hot loop counter underflow. - |.if JIT - | mov LFUNC:RB, [BASE-8] // Same as curr_topL(L). - | mov RB, LFUNC:RB->pc - | movzx RD, byte [RB+PC2PROTO(framesize)] - | lea RD, [BASE+RD*8] - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov L:RB->top, RD - | mov FCARG2, PC - | lea FCARG1, [DISPATCH+GG_DISP2J] - | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa - | mov SAVE_PC, PC - | call extern lj_trace_hot@8 // (jit_State *J, const BCIns *pc) - | jmp <3 - |.endif - | - |->vm_callhook: // Dispatch target for call hooks. - | mov SAVE_PC, PC - |.if JIT - | jmp >1 - |.endif - | - |->vm_hotcall: // Hot call counter underflow. - |.if JIT - | mov SAVE_PC, PC - | or PC, 1 // Marker for hot call. - |1: - |.endif - | lea RD, [BASE+NARGS:RD*8-8] - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov L:RB->top, RD - | mov FCARG2, PC - | mov FCARG1, L:RB - | call extern lj_dispatch_call@8 // (lua_State *L, const BCIns *pc) - | // ASMFunction returned in eax/rax (RDa). - | mov SAVE_PC, 0 // Invalidate for subsequent line hook. - |.if JIT - | and PC, -2 - |.endif - | mov BASE, L:RB->base - | mov RAa, RDa - | mov RD, L:RB->top - | sub RD, BASE - | mov RBa, RAa - | movzx RA, PC_RA - | shr RD, 3 - | add NARGS:RD, 1 - | jmp RBa - | - |->cont_stitch: // Trace stitching. - |.if JIT - | // BASE = base, RC = result, RB = mbase - | mov RA, [RB-24] // Save previous trace number. - | mov TMP1, RA - | mov TMP3, DISPATCH // Need one more register. - | mov DISPATCH, MULTRES - | movzx RA, PC_RA - | lea RA, [BASE+RA*8] // Call base. - | sub DISPATCH, 1 - | jz >2 - |1: // Move results down. - |.if X64 - | mov RBa, [RC] - | mov [RA], RBa - |.else - | mov RB, [RC] - | mov [RA], RB - | mov RB, [RC+4] - | mov [RA+4], RB - |.endif - | add RC, 8 - | add RA, 8 - | sub DISPATCH, 1 - | jnz <1 - |2: - | movzx RC, PC_RA - | movzx RB, PC_RB - | add RC, RB - | lea RC, [BASE+RC*8-8] - |3: - | cmp RC, RA - | ja >9 // More results wanted? - | - | mov DISPATCH, TMP3 - | mov RB, TMP1 // Get previous trace number. - | mov RA, [DISPATCH+DISPATCH_J(trace)] - | mov TRACE:RD, [RA+RB*4] - | test TRACE:RD, TRACE:RD - | jz ->cont_nop - | movzx RD, word TRACE:RD->link - | cmp RD, RB - | je ->cont_nop // Blacklisted. - | test RD, RD - | jne =>BC_JLOOP // Jump to stitched trace. - | - | // Stitch a new trace to the previous trace. - | mov [DISPATCH+DISPATCH_J(exitno)], RB - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov FCARG2, PC - | lea FCARG1, [DISPATCH+GG_DISP2J] - | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa - | call extern lj_dispatch_stitch@8 // (jit_State *J, const BCIns *pc) - | mov BASE, L:RB->base - | jmp ->cont_nop - | - |9: // Fill up results with nil. - | mov dword [RA+4], LJ_TNIL - | add RA, 8 - | jmp <3 - |.endif - | - |->vm_profhook: // Dispatch target for profiler hook. -#if LJ_HASPROFILE - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov FCARG2, PC // Caveat: FCARG2 == BASE - | mov FCARG1, L:RB - | call extern lj_dispatch_profile@8 // (lua_State *L, const BCIns *pc) - | mov BASE, L:RB->base - | // HOOK_PROFILE is off again, so re-dispatch to dynamic instruction. - | sub PC, 4 - | jmp ->cont_nop -#endif - | - |//----------------------------------------------------------------------- - |//-- Trace exit handler ------------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Called from an exit stub with the exit number on the stack. - |// The 16 bit exit number is stored with two (sign-extended) push imm8. - |->vm_exit_handler: - |.if JIT - |.if X64 - | push r13; push r12 - | push r11; push r10; push r9; push r8 - | push rdi; push rsi; push rbp; lea rbp, [rsp+88]; push rbp - | push rbx; push rdx; push rcx; push rax - | movzx RC, byte [rbp-8] // Reconstruct exit number. - | mov RCH, byte [rbp-16] - | mov [rbp-8], r15; mov [rbp-16], r14 - |.else - | push ebp; lea ebp, [esp+12]; push ebp - | push ebx; push edx; push ecx; push eax - | movzx RC, byte [ebp-4] // Reconstruct exit number. - | mov RCH, byte [ebp-8] - | mov [ebp-4], edi; mov [ebp-8], esi - |.endif - | // Caveat: DISPATCH is ebx. - | mov DISPATCH, [ebp] - | mov RA, [DISPATCH+DISPATCH_GL(vmstate)] // Get trace number. - | set_vmstate EXIT - | mov [DISPATCH+DISPATCH_J(exitno)], RC - | mov [DISPATCH+DISPATCH_J(parent)], RA - |.if X64 - |.if X64WIN - | sub rsp, 16*8+4*8 // Room for SSE regs + save area. - |.else - | sub rsp, 16*8 // Room for SSE regs. - |.endif - | add rbp, -128 - | movsd qword [rbp-8], xmm15; movsd qword [rbp-16], xmm14 - | movsd qword [rbp-24], xmm13; movsd qword [rbp-32], xmm12 - | movsd qword [rbp-40], xmm11; movsd qword [rbp-48], xmm10 - | movsd qword [rbp-56], xmm9; movsd qword [rbp-64], xmm8 - | movsd qword [rbp-72], xmm7; movsd qword [rbp-80], xmm6 - | movsd qword [rbp-88], xmm5; movsd qword [rbp-96], xmm4 - | movsd qword [rbp-104], xmm3; movsd qword [rbp-112], xmm2 - | movsd qword [rbp-120], xmm1; movsd qword [rbp-128], xmm0 - |.else - | sub esp, 8*8+16 // Room for SSE regs + args. - | movsd qword [ebp-40], xmm7; movsd qword [ebp-48], xmm6 - | movsd qword [ebp-56], xmm5; movsd qword [ebp-64], xmm4 - | movsd qword [ebp-72], xmm3; movsd qword [ebp-80], xmm2 - | movsd qword [ebp-88], xmm1; movsd qword [ebp-96], xmm0 - |.endif - | // Caveat: RB is ebp. - | mov L:RB, [DISPATCH+DISPATCH_GL(cur_L)] - | mov BASE, [DISPATCH+DISPATCH_GL(jit_base)] - | mov aword [DISPATCH+DISPATCH_J(L)], L:RBa - | mov L:RB->base, BASE - |.if X64WIN - | lea CARG2, [rsp+4*8] - |.elif X64 - | mov CARG2, rsp - |.else - | lea FCARG2, [esp+16] - |.endif - | lea FCARG1, [DISPATCH+GG_DISP2J] - | mov dword [DISPATCH+DISPATCH_GL(jit_base)], 0 - | call extern lj_trace_exit@8 // (jit_State *J, ExitState *ex) - | // MULTRES or negated error code returned in eax (RD). - | mov RAa, L:RB->cframe - | and RAa, CFRAME_RAWMASK - |.if X64WIN - | // Reposition stack later. - |.elif X64 - | mov rsp, RAa // Reposition stack to C frame. - |.else - | mov esp, RAa // Reposition stack to C frame. - |.endif - | mov [RAa+CFRAME_OFS_L], L:RB // Set SAVE_L (on-trace resume/yield). - | mov BASE, L:RB->base - | mov PC, [RAa+CFRAME_OFS_PC] // Get SAVE_PC. - |.if X64 - | jmp >1 - |.endif - |.endif - |->vm_exit_interp: - | // RD = MULTRES or negated error code, BASE, PC and DISPATCH set. - |.if JIT - |.if X64 - | // Restore additional callee-save registers only used in compiled code. - |.if X64WIN - | lea RAa, [rsp+9*16+4*8] - |1: - | movdqa xmm15, [RAa-9*16] - | movdqa xmm14, [RAa-8*16] - | movdqa xmm13, [RAa-7*16] - | movdqa xmm12, [RAa-6*16] - | movdqa xmm11, [RAa-5*16] - | movdqa xmm10, [RAa-4*16] - | movdqa xmm9, [RAa-3*16] - | movdqa xmm8, [RAa-2*16] - | movdqa xmm7, [RAa-1*16] - | mov rsp, RAa // Reposition stack to C frame. - | movdqa xmm6, [RAa] - | mov r15, CSAVE_3 - | mov r14, CSAVE_4 - |.else - | add rsp, 16 // Reposition stack to C frame. - |1: - |.endif - | mov r13, TMPa - | mov r12, TMPQ - |.endif - | test RD, RD; js >9 // Check for error from exit. - | mov L:RB, SAVE_L - | mov MULTRES, RD - | mov LFUNC:KBASE, [BASE-8] - | mov KBASE, LFUNC:KBASE->pc - | mov KBASE, [KBASE+PC2PROTO(k)] - | mov L:RB->base, BASE - | mov dword [DISPATCH+DISPATCH_GL(jit_base)], 0 - | set_vmstate INTERP - | // Modified copy of ins_next which handles function header dispatch, too. - | mov RC, [PC] - | movzx RA, RCH - | movzx OP, RCL - | add PC, 4 - | shr RC, 16 - | cmp OP, BC_FUNCF // Function header? - | jb >3 - | cmp OP, BC_FUNCC+2 // Fast function? - | jae >4 - |2: - | mov RC, MULTRES // RC/RD holds nres+1. - |3: - |.if X64 - | jmp aword [DISPATCH+OP*8] - |.else - | jmp aword [DISPATCH+OP*4] - |.endif - | - |4: // Check frame below fast function. - | mov RC, [BASE-4] - | test RC, FRAME_TYPE - | jnz <2 // Trace stitching continuation? - | // Otherwise set KBASE for Lua function below fast function. - | movzx RC, byte [RC-3] - | not RCa - | mov LFUNC:KBASE, [BASE+RC*8-8] - | mov KBASE, LFUNC:KBASE->pc - | mov KBASE, [KBASE+PC2PROTO(k)] - | jmp <2 - | - |9: // Rethrow error from the right C frame. - | neg RD - | mov FCARG1, L:RB - | mov FCARG2, RD - | call extern lj_err_throw@8 // (lua_State *L, int errcode) - |.endif - | - |//----------------------------------------------------------------------- - |//-- Math helper functions ---------------------------------------------- - |//----------------------------------------------------------------------- - | - |// FP value rounding. Called by math.floor/math.ceil fast functions - |// and from JIT code. arg/ret is xmm0. xmm0-xmm3 and RD (eax) modified. - |.macro vm_round, name, mode, cond - |->name: - |.if not X64 and cond - | movsd xmm0, qword [esp+4] - | call ->name .. _sse - | movsd qword [esp+4], xmm0 // Overwrite callee-owned arg. - | fld qword [esp+4] - | ret - |.endif - | - |->name .. _sse: - | sseconst_abs xmm2, RDa - | sseconst_2p52 xmm3, RDa - | movaps xmm1, xmm0 - | andpd xmm1, xmm2 // |x| - | ucomisd xmm3, xmm1 // No truncation if 2^52 <= |x|. - | jbe >1 - | andnpd xmm2, xmm0 // Isolate sign bit. - |.if mode == 2 // trunc(x)? - | movaps xmm0, xmm1 - | addsd xmm1, xmm3 // (|x| + 2^52) - 2^52 - | subsd xmm1, xmm3 - | sseconst_1 xmm3, RDa - | cmpsd xmm0, xmm1, 1 // |x| < result? - | andpd xmm0, xmm3 - | subsd xmm1, xmm0 // If yes, subtract -1. - | orpd xmm1, xmm2 // Merge sign bit back in. - |.else - | addsd xmm1, xmm3 // (|x| + 2^52) - 2^52 - | subsd xmm1, xmm3 - | orpd xmm1, xmm2 // Merge sign bit back in. - | .if mode == 1 // ceil(x)? - | sseconst_m1 xmm2, RDa // Must subtract -1 to preserve -0. - | cmpsd xmm0, xmm1, 6 // x > result? - | .else // floor(x)? - | sseconst_1 xmm2, RDa - | cmpsd xmm0, xmm1, 1 // x < result? - | .endif - | andpd xmm0, xmm2 - | subsd xmm1, xmm0 // If yes, subtract +-1. - |.endif - | movaps xmm0, xmm1 - |1: - | ret - |.endmacro - | - | vm_round vm_floor, 0, 1 - | vm_round vm_ceil, 1, JIT - | vm_round vm_trunc, 2, JIT - | - |// FP modulo x%y. Called by BC_MOD* and vm_arith. - |->vm_mod: - |// Args in xmm0/xmm1, return value in xmm0. - |// Caveat: xmm0-xmm5 and RC (eax) modified! - | movaps xmm5, xmm0 - | divsd xmm0, xmm1 - | sseconst_abs xmm2, RDa - | sseconst_2p52 xmm3, RDa - | movaps xmm4, xmm0 - | andpd xmm4, xmm2 // |x/y| - | ucomisd xmm3, xmm4 // No truncation if 2^52 <= |x/y|. - | jbe >1 - | andnpd xmm2, xmm0 // Isolate sign bit. - | addsd xmm4, xmm3 // (|x/y| + 2^52) - 2^52 - | subsd xmm4, xmm3 - | orpd xmm4, xmm2 // Merge sign bit back in. - | sseconst_1 xmm2, RDa - | cmpsd xmm0, xmm4, 1 // x/y < result? - | andpd xmm0, xmm2 - | subsd xmm4, xmm0 // If yes, subtract 1.0. - | movaps xmm0, xmm5 - | mulsd xmm1, xmm4 - | subsd xmm0, xmm1 - | ret - |1: - | mulsd xmm1, xmm0 - | movaps xmm0, xmm5 - | subsd xmm0, xmm1 - | ret - | - |// Args in xmm0/eax. Ret in xmm0. xmm0-xmm1 and eax modified. - |->vm_powi_sse: - | cmp eax, 1; jle >6 // i<=1? - | // Now 1 < (unsigned)i <= 0x80000000. - |1: // Handle leading zeros. - | test eax, 1; jnz >2 - | mulsd xmm0, xmm0 - | shr eax, 1 - | jmp <1 - |2: - | shr eax, 1; jz >5 - | movaps xmm1, xmm0 - |3: // Handle trailing bits. - | mulsd xmm0, xmm0 - | shr eax, 1; jz >4 - | jnc <3 - | mulsd xmm1, xmm0 - | jmp <3 - |4: - | mulsd xmm0, xmm1 - |5: - | ret - |6: - | je <5 // x^1 ==> x - | jb >7 // x^0 ==> 1 - | neg eax - | call <1 - | sseconst_1 xmm1, RDa - | divsd xmm1, xmm0 - | movaps xmm0, xmm1 - | ret - |7: - | sseconst_1 xmm0, RDa - | ret - | - |//----------------------------------------------------------------------- - |//-- Miscellaneous functions -------------------------------------------- - |//----------------------------------------------------------------------- - | - |// int lj_vm_cpuid(uint32_t f, uint32_t res[4]) - |->vm_cpuid: - |.if X64 - | mov eax, CARG1d - | .if X64WIN; push rsi; mov rsi, CARG2; .endif - | push rbx - | cpuid - | mov [rsi], eax - | mov [rsi+4], ebx - | mov [rsi+8], ecx - | mov [rsi+12], edx - | pop rbx - | .if X64WIN; pop rsi; .endif - | ret - |.else - | pushfd - | pop edx - | mov ecx, edx - | xor edx, 0x00200000 // Toggle ID bit in flags. - | push edx - | popfd - | pushfd - | pop edx - | xor eax, eax // Zero means no features supported. - | cmp ecx, edx - | jz >1 // No ID toggle means no CPUID support. - | mov eax, [esp+4] // Argument 1 is function number. - | push edi - | push ebx - | cpuid - | mov edi, [esp+16] // Argument 2 is result area. - | mov [edi], eax - | mov [edi+4], ebx - | mov [edi+8], ecx - | mov [edi+12], edx - | pop ebx - | pop edi - |1: - | ret - |.endif - | - |//----------------------------------------------------------------------- - |//-- Assertions --------------------------------------------------------- - |//----------------------------------------------------------------------- - | - |->assert_bad_for_arg_type: -#ifdef LUA_USE_ASSERT - | int3 -#endif - | int3 - | - |//----------------------------------------------------------------------- - |//-- FFI helper functions ----------------------------------------------- - |//----------------------------------------------------------------------- - | - |// Handler for callback functions. Callback slot number in ah/al. - |->vm_ffi_callback: - |.if FFI - |.type CTSTATE, CTState, PC - |.if not X64 - | sub esp, 16 // Leave room for SAVE_ERRF etc. - |.endif - | saveregs_ // ebp/rbp already saved. ebp now holds global_State *. - | lea DISPATCH, [ebp+GG_G2DISP] - | mov CTSTATE, GL:ebp->ctype_state - | movzx eax, ax - | mov CTSTATE->cb.slot, eax - |.if X64 - | mov CTSTATE->cb.gpr[0], CARG1 - | mov CTSTATE->cb.gpr[1], CARG2 - | mov CTSTATE->cb.gpr[2], CARG3 - | mov CTSTATE->cb.gpr[3], CARG4 - | movsd qword CTSTATE->cb.fpr[0], xmm0 - | movsd qword CTSTATE->cb.fpr[1], xmm1 - | movsd qword CTSTATE->cb.fpr[2], xmm2 - | movsd qword CTSTATE->cb.fpr[3], xmm3 - |.if X64WIN - | lea rax, [rsp+CFRAME_SIZE+4*8] - |.else - | lea rax, [rsp+CFRAME_SIZE] - | mov CTSTATE->cb.gpr[4], CARG5 - | mov CTSTATE->cb.gpr[5], CARG6 - | movsd qword CTSTATE->cb.fpr[4], xmm4 - | movsd qword CTSTATE->cb.fpr[5], xmm5 - | movsd qword CTSTATE->cb.fpr[6], xmm6 - | movsd qword CTSTATE->cb.fpr[7], xmm7 - |.endif - | mov CTSTATE->cb.stack, rax - | mov CARG2, rsp - |.else - | lea eax, [esp+CFRAME_SIZE+16] - | mov CTSTATE->cb.gpr[0], FCARG1 - | mov CTSTATE->cb.gpr[1], FCARG2 - | mov CTSTATE->cb.stack, eax - | mov FCARG1, [esp+CFRAME_SIZE+12] // Move around misplaced retaddr/ebp. - | mov FCARG2, [esp+CFRAME_SIZE+8] - | mov SAVE_RET, FCARG1 - | mov SAVE_R4, FCARG2 - | mov FCARG2, esp - |.endif - | mov SAVE_PC, CTSTATE // Any value outside of bytecode is ok. - | mov FCARG1, CTSTATE - | call extern lj_ccallback_enter@8 // (CTState *cts, void *cf) - | // lua_State * returned in eax (RD). - | set_vmstate INTERP - | mov BASE, L:RD->base - | mov RD, L:RD->top - | sub RD, BASE - | mov LFUNC:RB, [BASE-8] - | shr RD, 3 - | add RD, 1 - | ins_callt - |.endif - | - |->cont_ffi_callback: // Return from FFI callback. - |.if FFI - | mov L:RA, SAVE_L - | mov CTSTATE, [DISPATCH+DISPATCH_GL(ctype_state)] - | mov aword CTSTATE->L, L:RAa - | mov L:RA->base, BASE - | mov L:RA->top, RB - | mov FCARG1, CTSTATE - | mov FCARG2, RC - | call extern lj_ccallback_leave@8 // (CTState *cts, TValue *o) - |.if X64 - | mov rax, CTSTATE->cb.gpr[0] - | movsd xmm0, qword CTSTATE->cb.fpr[0] - | jmp ->vm_leave_unw - |.else - | mov L:RB, SAVE_L - | mov eax, CTSTATE->cb.gpr[0] - | mov edx, CTSTATE->cb.gpr[1] - | cmp dword CTSTATE->cb.gpr[2], 1 - | jb >7 - | je >6 - | fld qword CTSTATE->cb.fpr[0].d - | jmp >7 - |6: - | fld dword CTSTATE->cb.fpr[0].f - |7: - | mov ecx, L:RB->top - | movzx ecx, word [ecx+6] // Get stack adjustment and copy up. - | mov SAVE_L, ecx // Must be one slot above SAVE_RET - | restoreregs - | pop ecx // Move return addr from SAVE_RET. - | add esp, [esp] // Adjust stack. - | add esp, 16 - | push ecx - | ret - |.endif - |.endif - | - |->vm_ffi_call@4: // Call C function via FFI. - | // Caveat: needs special frame unwinding, see below. - |.if FFI - |.if X64 - | .type CCSTATE, CCallState, rbx - | push rbp; mov rbp, rsp; push rbx; mov CCSTATE, CARG1 - |.else - | .type CCSTATE, CCallState, ebx - | push ebp; mov ebp, esp; push ebx; mov CCSTATE, FCARG1 - |.endif - | - | // Readjust stack. - |.if X64 - | mov eax, CCSTATE->spadj - | sub rsp, rax - |.else - | sub esp, CCSTATE->spadj - |.if WIN - | mov CCSTATE->spadj, esp - |.endif - |.endif - | - | // Copy stack slots. - | movzx ecx, byte CCSTATE->nsp - | sub ecx, 1 - | js >2 - |1: - |.if X64 - | mov rax, [CCSTATE+rcx*8+offsetof(CCallState, stack)] - | mov [rsp+rcx*8+CCALL_SPS_EXTRA*8], rax - |.else - | mov eax, [CCSTATE+ecx*4+offsetof(CCallState, stack)] - | mov [esp+ecx*4], eax - |.endif - | sub ecx, 1 - | jns <1 - |2: - | - |.if X64 - | movzx eax, byte CCSTATE->nfpr - | mov CARG1, CCSTATE->gpr[0] - | mov CARG2, CCSTATE->gpr[1] - | mov CARG3, CCSTATE->gpr[2] - | mov CARG4, CCSTATE->gpr[3] - |.if not X64WIN - | mov CARG5, CCSTATE->gpr[4] - | mov CARG6, CCSTATE->gpr[5] - |.endif - | test eax, eax; jz >5 - | movaps xmm0, CCSTATE->fpr[0] - | movaps xmm1, CCSTATE->fpr[1] - | movaps xmm2, CCSTATE->fpr[2] - | movaps xmm3, CCSTATE->fpr[3] - |.if not X64WIN - | cmp eax, 4; jbe >5 - | movaps xmm4, CCSTATE->fpr[4] - | movaps xmm5, CCSTATE->fpr[5] - | movaps xmm6, CCSTATE->fpr[6] - | movaps xmm7, CCSTATE->fpr[7] - |.endif - |5: - |.else - | mov FCARG1, CCSTATE->gpr[0] - | mov FCARG2, CCSTATE->gpr[1] - |.endif - | - | call aword CCSTATE->func - | - |.if X64 - | mov CCSTATE->gpr[0], rax - | movaps CCSTATE->fpr[0], xmm0 - |.if not X64WIN - | mov CCSTATE->gpr[1], rdx - | movaps CCSTATE->fpr[1], xmm1 - |.endif - |.else - | mov CCSTATE->gpr[0], eax - | mov CCSTATE->gpr[1], edx - | cmp byte CCSTATE->resx87, 1 - | jb >7 - | je >6 - | fstp qword CCSTATE->fpr[0].d[0] - | jmp >7 - |6: - | fstp dword CCSTATE->fpr[0].f[0] - |7: - |.if WIN - | sub CCSTATE->spadj, esp - |.endif - |.endif - | - |.if X64 - | mov rbx, [rbp-8]; leave; ret - |.else - | mov ebx, [ebp-4]; leave; ret - |.endif - |.endif - |// Note: vm_ffi_call must be the last function in this object file! - | - |//----------------------------------------------------------------------- -} - -/* Generate the code for a single instruction. */ -static void build_ins(BuildCtx *ctx, BCOp op, int defop) -{ - int vk = 0; - |// Note: aligning all instructions does not pay off. - |=>defop: - - switch (op) { - - /* -- Comparison ops ---------------------------------------------------- */ - - /* Remember: all ops branch for a true comparison, fall through otherwise. */ - - |.macro jmp_comp, lt, ge, le, gt, target - ||switch (op) { - ||case BC_ISLT: - | lt target - ||break; - ||case BC_ISGE: - | ge target - ||break; - ||case BC_ISLE: - | le target - ||break; - ||case BC_ISGT: - | gt target - ||break; - ||default: break; /* Shut up GCC. */ - ||} - |.endmacro - - case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT: - | // RA = src1, RD = src2, JMP with RD = target - | ins_AD - |.if DUALNUM - | checkint RA, >7 - | checkint RD, >8 - | mov RB, dword [BASE+RA*8] - | add PC, 4 - | cmp RB, dword [BASE+RD*8] - | jmp_comp jge, jl, jg, jle, >9 - |6: - | movzx RD, PC_RD - | branchPC RD - |9: - | ins_next - | - |7: // RA is not an integer. - | ja ->vmeta_comp - | // RA is a number. - | cmp dword [BASE+RD*8+4], LJ_TISNUM; jb >1; jne ->vmeta_comp - | // RA is a number, RD is an integer. - | cvtsi2sd xmm0, dword [BASE+RD*8] - | jmp >2 - | - |8: // RA is an integer, RD is not an integer. - | ja ->vmeta_comp - | // RA is an integer, RD is a number. - | cvtsi2sd xmm1, dword [BASE+RA*8] - | movsd xmm0, qword [BASE+RD*8] - | add PC, 4 - | ucomisd xmm0, xmm1 - | jmp_comp jbe, ja, jb, jae, <9 - | jmp <6 - |.else - | checknum RA, ->vmeta_comp - | checknum RD, ->vmeta_comp - |.endif - |1: - | movsd xmm0, qword [BASE+RD*8] - |2: - | add PC, 4 - | ucomisd xmm0, qword [BASE+RA*8] - |3: - | // Unordered: all of ZF CF PF set, ordered: PF clear. - | // To preserve NaN semantics GE/GT branch on unordered, but LT/LE don't. - |.if DUALNUM - | jmp_comp jbe, ja, jb, jae, <9 - | jmp <6 - |.else - | jmp_comp jbe, ja, jb, jae, >1 - | movzx RD, PC_RD - | branchPC RD - |1: - | ins_next - |.endif - break; - - case BC_ISEQV: case BC_ISNEV: - vk = op == BC_ISEQV; - | ins_AD // RA = src1, RD = src2, JMP with RD = target - | mov RB, [BASE+RD*8+4] - | add PC, 4 - |.if DUALNUM - | cmp RB, LJ_TISNUM; jne >7 - | checkint RA, >8 - | mov RB, dword [BASE+RD*8] - | cmp RB, dword [BASE+RA*8] - if (vk) { - | jne >9 - } else { - | je >9 - } - | movzx RD, PC_RD - | branchPC RD - |9: - | ins_next - | - |7: // RD is not an integer. - | ja >5 - | // RD is a number. - | cmp dword [BASE+RA*8+4], LJ_TISNUM; jb >1; jne >5 - | // RD is a number, RA is an integer. - | cvtsi2sd xmm0, dword [BASE+RA*8] - | jmp >2 - | - |8: // RD is an integer, RA is not an integer. - | ja >5 - | // RD is an integer, RA is a number. - | cvtsi2sd xmm0, dword [BASE+RD*8] - | ucomisd xmm0, qword [BASE+RA*8] - | jmp >4 - | - |.else - | cmp RB, LJ_TISNUM; jae >5 - | checknum RA, >5 - |.endif - |1: - | movsd xmm0, qword [BASE+RA*8] - |2: - | ucomisd xmm0, qword [BASE+RD*8] - |4: - iseqne_fp: - if (vk) { - | jp >2 // Unordered means not equal. - | jne >2 - } else { - | jp >2 // Unordered means not equal. - | je >1 - } - iseqne_end: - if (vk) { - |1: // EQ: Branch to the target. - | movzx RD, PC_RD - | branchPC RD - |2: // NE: Fallthrough to next instruction. - |.if not FFI - |3: - |.endif - } else { - |.if not FFI - |3: - |.endif - |2: // NE: Branch to the target. - | movzx RD, PC_RD - | branchPC RD - |1: // EQ: Fallthrough to next instruction. - } - if (LJ_DUALNUM && (op == BC_ISEQV || op == BC_ISNEV || - op == BC_ISEQN || op == BC_ISNEN)) { - | jmp <9 - } else { - | ins_next - } - | - if (op == BC_ISEQV || op == BC_ISNEV) { - |5: // Either or both types are not numbers. - |.if FFI - | cmp RB, LJ_TCDATA; je ->vmeta_equal_cd - | checktp RA, LJ_TCDATA; je ->vmeta_equal_cd - |.endif - | checktp RA, RB // Compare types. - | jne <2 // Not the same type? - | cmp RB, LJ_TISPRI - | jae <1 // Same type and primitive type? - | - | // Same types and not a primitive type. Compare GCobj or pvalue. - | mov RA, [BASE+RA*8] - | mov RD, [BASE+RD*8] - | cmp RA, RD - | je <1 // Same GCobjs or pvalues? - | cmp RB, LJ_TISTABUD - | ja <2 // Different objects and not table/ud? - |.if X64 - | cmp RB, LJ_TUDATA // And not 64 bit lightuserdata. - | jb <2 - |.endif - | - | // Different tables or userdatas. Need to check __eq metamethod. - | // Field metatable must be at same offset for GCtab and GCudata! - | mov TAB:RB, TAB:RA->metatable - | test TAB:RB, TAB:RB - | jz <2 // No metatable? - | test byte TAB:RB->nomm, 1<vmeta_equal // Handle __eq metamethod. - } else { - |.if FFI - |3: - | cmp RB, LJ_TCDATA - if (LJ_DUALNUM && vk) { - | jne <9 - } else { - | jne <2 - } - | jmp ->vmeta_equal_cd - |.endif - } - break; - case BC_ISEQS: case BC_ISNES: - vk = op == BC_ISEQS; - | ins_AND // RA = src, RD = str const, JMP with RD = target - | mov RB, [BASE+RA*8+4] - | add PC, 4 - | cmp RB, LJ_TSTR; jne >3 - | mov RA, [BASE+RA*8] - | cmp RA, [KBASE+RD*4] - iseqne_test: - if (vk) { - | jne >2 - } else { - | je >1 - } - goto iseqne_end; - case BC_ISEQN: case BC_ISNEN: - vk = op == BC_ISEQN; - | ins_AD // RA = src, RD = num const, JMP with RD = target - | mov RB, [BASE+RA*8+4] - | add PC, 4 - |.if DUALNUM - | cmp RB, LJ_TISNUM; jne >7 - | cmp dword [KBASE+RD*8+4], LJ_TISNUM; jne >8 - | mov RB, dword [KBASE+RD*8] - | cmp RB, dword [BASE+RA*8] - if (vk) { - | jne >9 - } else { - | je >9 - } - | movzx RD, PC_RD - | branchPC RD - |9: - | ins_next - | - |7: // RA is not an integer. - | ja >3 - | // RA is a number. - | cmp dword [KBASE+RD*8+4], LJ_TISNUM; jb >1 - | // RA is a number, RD is an integer. - | cvtsi2sd xmm0, dword [KBASE+RD*8] - | jmp >2 - | - |8: // RA is an integer, RD is a number. - | cvtsi2sd xmm0, dword [BASE+RA*8] - | ucomisd xmm0, qword [KBASE+RD*8] - | jmp >4 - |.else - | cmp RB, LJ_TISNUM; jae >3 - |.endif - |1: - | movsd xmm0, qword [KBASE+RD*8] - |2: - | ucomisd xmm0, qword [BASE+RA*8] - |4: - goto iseqne_fp; - case BC_ISEQP: case BC_ISNEP: - vk = op == BC_ISEQP; - | ins_AND // RA = src, RD = primitive type (~), JMP with RD = target - | mov RB, [BASE+RA*8+4] - | add PC, 4 - | cmp RB, RD - if (!LJ_HASFFI) goto iseqne_test; - if (vk) { - | jne >3 - | movzx RD, PC_RD - | branchPC RD - |2: - | ins_next - |3: - | cmp RB, LJ_TCDATA; jne <2 - | jmp ->vmeta_equal_cd - } else { - | je >2 - | cmp RB, LJ_TCDATA; je ->vmeta_equal_cd - | movzx RD, PC_RD - | branchPC RD - |2: - | ins_next - } - break; - - /* -- Unary test and copy ops ------------------------------------------- */ - - case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF: - | ins_AD // RA = dst or unused, RD = src, JMP with RD = target - | mov RB, [BASE+RD*8+4] - | add PC, 4 - | cmp RB, LJ_TISTRUECOND - if (op == BC_IST || op == BC_ISTC) { - | jae >1 - } else { - | jb >1 - } - if (op == BC_ISTC || op == BC_ISFC) { - | mov [BASE+RA*8+4], RB - | mov RB, [BASE+RD*8] - | mov [BASE+RA*8], RB - } - | movzx RD, PC_RD - | branchPC RD - |1: // Fallthrough to the next instruction. - | ins_next - break; - - case BC_ISTYPE: - | ins_AD // RA = src, RD = -type - | add RD, [BASE+RA*8+4] - | jne ->vmeta_istype - | ins_next - break; - case BC_ISNUM: - | ins_AD // RA = src, RD = -(TISNUM-1) - | checknum RA, ->vmeta_istype - | ins_next - break; - - /* -- Unary ops --------------------------------------------------------- */ - - case BC_MOV: - | ins_AD // RA = dst, RD = src - |.if X64 - | mov RBa, [BASE+RD*8] - | mov [BASE+RA*8], RBa - |.else - | mov RB, [BASE+RD*8+4] - | mov RD, [BASE+RD*8] - | mov [BASE+RA*8+4], RB - | mov [BASE+RA*8], RD - |.endif - | ins_next_ - break; - case BC_NOT: - | ins_AD // RA = dst, RD = src - | xor RB, RB - | checktp RD, LJ_TISTRUECOND - | adc RB, LJ_TTRUE - | mov [BASE+RA*8+4], RB - | ins_next - break; - case BC_UNM: - | ins_AD // RA = dst, RD = src - |.if DUALNUM - | checkint RD, >5 - | mov RB, [BASE+RD*8] - | neg RB - | jo >4 - | mov dword [BASE+RA*8+4], LJ_TISNUM - | mov dword [BASE+RA*8], RB - |9: - | ins_next - |4: - | mov dword [BASE+RA*8+4], 0x41e00000 // 2^31. - | mov dword [BASE+RA*8], 0 - | jmp <9 - |5: - | ja ->vmeta_unm - |.else - | checknum RD, ->vmeta_unm - |.endif - | movsd xmm0, qword [BASE+RD*8] - | sseconst_sign xmm1, RDa - | xorps xmm0, xmm1 - | movsd qword [BASE+RA*8], xmm0 - |.if DUALNUM - | jmp <9 - |.else - | ins_next - |.endif - break; - case BC_LEN: - | ins_AD // RA = dst, RD = src - | checkstr RD, >2 - | mov STR:RD, [BASE+RD*8] - |.if DUALNUM - | mov RD, dword STR:RD->len - |1: - | mov dword [BASE+RA*8+4], LJ_TISNUM - | mov dword [BASE+RA*8], RD - |.else - | xorps xmm0, xmm0 - | cvtsi2sd xmm0, dword STR:RD->len - |1: - | movsd qword [BASE+RA*8], xmm0 - |.endif - | ins_next - |2: - | checktab RD, ->vmeta_len - | mov TAB:FCARG1, [BASE+RD*8] -#if LJ_52 - | mov TAB:RB, TAB:FCARG1->metatable - | cmp TAB:RB, 0 - | jnz >9 - |3: -#endif - |->BC_LEN_Z: - | mov RB, BASE // Save BASE. - | call extern lj_tab_len@4 // (GCtab *t) - | // Length of table returned in eax (RD). - |.if DUALNUM - | // Nothing to do. - |.else - | cvtsi2sd xmm0, RD - |.endif - | mov BASE, RB // Restore BASE. - | movzx RA, PC_RA - | jmp <1 -#if LJ_52 - |9: // Check for __len. - | test byte TAB:RB->nomm, 1<vmeta_len // 'no __len' flag NOT set: check. -#endif - break; - - /* -- Binary ops -------------------------------------------------------- */ - - |.macro ins_arithpre, sseins, ssereg - | ins_ABC - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | checknum RB, ->vmeta_arith_vn - | .if DUALNUM - | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_vn - | .endif - | movsd xmm0, qword [BASE+RB*8] - | sseins ssereg, qword [KBASE+RC*8] - || break; - ||case 1: - | checknum RB, ->vmeta_arith_nv - | .if DUALNUM - | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jae ->vmeta_arith_nv - | .endif - | movsd xmm0, qword [KBASE+RC*8] - | sseins ssereg, qword [BASE+RB*8] - || break; - ||default: - | checknum RB, ->vmeta_arith_vv - | checknum RC, ->vmeta_arith_vv - | movsd xmm0, qword [BASE+RB*8] - | sseins ssereg, qword [BASE+RC*8] - || break; - ||} - |.endmacro - | - |.macro ins_arithdn, intins - | ins_ABC - ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN); - ||switch (vk) { - ||case 0: - | checkint RB, ->vmeta_arith_vn - | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jne ->vmeta_arith_vn - | mov RB, [BASE+RB*8] - | intins RB, [KBASE+RC*8]; jo ->vmeta_arith_vno - || break; - ||case 1: - | checkint RB, ->vmeta_arith_nv - | cmp dword [KBASE+RC*8+4], LJ_TISNUM; jne ->vmeta_arith_nv - | mov RC, [KBASE+RC*8] - | intins RC, [BASE+RB*8]; jo ->vmeta_arith_nvo - || break; - ||default: - | checkint RB, ->vmeta_arith_vv - | checkint RC, ->vmeta_arith_vv - | mov RB, [BASE+RB*8] - | intins RB, [BASE+RC*8]; jo ->vmeta_arith_vvo - || break; - ||} - | mov dword [BASE+RA*8+4], LJ_TISNUM - ||if (vk == 1) { - | mov dword [BASE+RA*8], RC - ||} else { - | mov dword [BASE+RA*8], RB - ||} - | ins_next - |.endmacro - | - |.macro ins_arithpost - | movsd qword [BASE+RA*8], xmm0 - |.endmacro - | - |.macro ins_arith, sseins - | ins_arithpre sseins, xmm0 - | ins_arithpost - | ins_next - |.endmacro - | - |.macro ins_arith, intins, sseins - |.if DUALNUM - | ins_arithdn intins - |.else - | ins_arith, sseins - |.endif - |.endmacro - - | // RA = dst, RB = src1 or num const, RC = src2 or num const - case BC_ADDVN: case BC_ADDNV: case BC_ADDVV: - | ins_arith add, addsd - break; - case BC_SUBVN: case BC_SUBNV: case BC_SUBVV: - | ins_arith sub, subsd - break; - case BC_MULVN: case BC_MULNV: case BC_MULVV: - | ins_arith imul, mulsd - break; - case BC_DIVVN: case BC_DIVNV: case BC_DIVVV: - | ins_arith divsd - break; - case BC_MODVN: - | ins_arithpre movsd, xmm1 - |->BC_MODVN_Z: - | call ->vm_mod - | ins_arithpost - | ins_next - break; - case BC_MODNV: case BC_MODVV: - | ins_arithpre movsd, xmm1 - | jmp ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway. - break; - case BC_POW: - | ins_arithpre movsd, xmm1 - | mov RB, BASE - |.if not X64 - | movsd FPARG1, xmm0 - | movsd FPARG3, xmm1 - |.endif - | call extern pow - | movzx RA, PC_RA - | mov BASE, RB - |.if X64 - | ins_arithpost - |.else - | fstp qword [BASE+RA*8] - |.endif - | ins_next - break; - - case BC_CAT: - | ins_ABC // RA = dst, RB = src_start, RC = src_end - |.if X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE - | lea CARG2d, [BASE+RC*8] - | mov CARG3d, RC - | sub CARG3d, RB - |->BC_CAT_Z: - | mov L:RB, L:CARG1d - |.else - | lea RA, [BASE+RC*8] - | sub RC, RB - | mov ARG2, RA - | mov ARG3, RC - |->BC_CAT_Z: - | mov L:RB, SAVE_L - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_meta_cat // (lua_State *L, TValue *top, int left) - | // NULL (finished) or TValue * (metamethod) returned in eax (RC). - | mov BASE, L:RB->base - | test RC, RC - | jnz ->vmeta_binop - | movzx RB, PC_RB // Copy result to Stk[RA] from Stk[RB]. - | movzx RA, PC_RA - |.if X64 - | mov RCa, [BASE+RB*8] - | mov [BASE+RA*8], RCa - |.else - | mov RC, [BASE+RB*8+4] - | mov RB, [BASE+RB*8] - | mov [BASE+RA*8+4], RC - | mov [BASE+RA*8], RB - |.endif - | ins_next - break; - - /* -- Constant ops ------------------------------------------------------ */ - - case BC_KSTR: - | ins_AND // RA = dst, RD = str const (~) - | mov RD, [KBASE+RD*4] - | mov dword [BASE+RA*8+4], LJ_TSTR - | mov [BASE+RA*8], RD - | ins_next - break; - case BC_KCDATA: - |.if FFI - | ins_AND // RA = dst, RD = cdata const (~) - | mov RD, [KBASE+RD*4] - | mov dword [BASE+RA*8+4], LJ_TCDATA - | mov [BASE+RA*8], RD - | ins_next - |.endif - break; - case BC_KSHORT: - | ins_AD // RA = dst, RD = signed int16 literal - |.if DUALNUM - | movsx RD, RDW - | mov dword [BASE+RA*8+4], LJ_TISNUM - | mov dword [BASE+RA*8], RD - |.else - | movsx RD, RDW // Sign-extend literal. - | cvtsi2sd xmm0, RD - | movsd qword [BASE+RA*8], xmm0 - |.endif - | ins_next - break; - case BC_KNUM: - | ins_AD // RA = dst, RD = num const - | movsd xmm0, qword [KBASE+RD*8] - | movsd qword [BASE+RA*8], xmm0 - | ins_next - break; - case BC_KPRI: - | ins_AND // RA = dst, RD = primitive type (~) - | mov [BASE+RA*8+4], RD - | ins_next - break; - case BC_KNIL: - | ins_AD // RA = dst_start, RD = dst_end - | lea RA, [BASE+RA*8+12] - | lea RD, [BASE+RD*8+4] - | mov RB, LJ_TNIL - | mov [RA-8], RB // Sets minimum 2 slots. - |1: - | mov [RA], RB - | add RA, 8 - | cmp RA, RD - | jbe <1 - | ins_next - break; - - /* -- Upvalue and function ops ------------------------------------------ */ - - case BC_UGET: - | ins_AD // RA = dst, RD = upvalue # - | mov LFUNC:RB, [BASE-8] - | mov UPVAL:RB, [LFUNC:RB+RD*4+offsetof(GCfuncL, uvptr)] - | mov RB, UPVAL:RB->v - |.if X64 - | mov RDa, [RB] - | mov [BASE+RA*8], RDa - |.else - | mov RD, [RB+4] - | mov RB, [RB] - | mov [BASE+RA*8+4], RD - | mov [BASE+RA*8], RB - |.endif - | ins_next - break; - case BC_USETV: -#define TV2MARKOFS \ - ((int32_t)offsetof(GCupval, marked)-(int32_t)offsetof(GCupval, tv)) - | ins_AD // RA = upvalue #, RD = src - | mov LFUNC:RB, [BASE-8] - | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] - | cmp byte UPVAL:RB->closed, 0 - | mov RB, UPVAL:RB->v - | mov RA, [BASE+RD*8] - | mov RD, [BASE+RD*8+4] - | mov [RB], RA - | mov [RB+4], RD - | jz >1 - | // Check barrier for closed upvalue. - | test byte [RB+TV2MARKOFS], LJ_GC_BLACK // isblack(uv) - | jnz >2 - |1: - | ins_next - | - |2: // Upvalue is black. Check if new value is collectable and white. - | sub RD, LJ_TISGCV - | cmp RD, LJ_TNUMX - LJ_TISGCV // tvisgcv(v) - | jbe <1 - | test byte GCOBJ:RA->gch.marked, LJ_GC_WHITES // iswhite(v) - | jz <1 - | // Crossed a write barrier. Move the barrier forward. - |.if X64 and not X64WIN - | mov FCARG2, RB - | mov RB, BASE // Save BASE. - |.else - | xchg FCARG2, RB // Save BASE (FCARG2 == BASE). - |.endif - | lea GL:FCARG1, [DISPATCH+GG_DISP2G] - | call extern lj_gc_barrieruv@8 // (global_State *g, TValue *tv) - | mov BASE, RB // Restore BASE. - | jmp <1 - break; -#undef TV2MARKOFS - case BC_USETS: - | ins_AND // RA = upvalue #, RD = str const (~) - | mov LFUNC:RB, [BASE-8] - | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] - | mov GCOBJ:RA, [KBASE+RD*4] - | mov RD, UPVAL:RB->v - | mov [RD], GCOBJ:RA - | mov dword [RD+4], LJ_TSTR - | test byte UPVAL:RB->marked, LJ_GC_BLACK // isblack(uv) - | jnz >2 - |1: - | ins_next - | - |2: // Check if string is white and ensure upvalue is closed. - | test byte GCOBJ:RA->gch.marked, LJ_GC_WHITES // iswhite(str) - | jz <1 - | cmp byte UPVAL:RB->closed, 0 - | jz <1 - | // Crossed a write barrier. Move the barrier forward. - | mov RB, BASE // Save BASE (FCARG2 == BASE). - | mov FCARG2, RD - | lea GL:FCARG1, [DISPATCH+GG_DISP2G] - | call extern lj_gc_barrieruv@8 // (global_State *g, TValue *tv) - | mov BASE, RB // Restore BASE. - | jmp <1 - break; - case BC_USETN: - | ins_AD // RA = upvalue #, RD = num const - | mov LFUNC:RB, [BASE-8] - | movsd xmm0, qword [KBASE+RD*8] - | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] - | mov RA, UPVAL:RB->v - | movsd qword [RA], xmm0 - | ins_next - break; - case BC_USETP: - | ins_AND // RA = upvalue #, RD = primitive type (~) - | mov LFUNC:RB, [BASE-8] - | mov UPVAL:RB, [LFUNC:RB+RA*4+offsetof(GCfuncL, uvptr)] - | mov RA, UPVAL:RB->v - | mov [RA+4], RD - | ins_next - break; - case BC_UCLO: - | ins_AD // RA = level, RD = target - | branchPC RD // Do this first to free RD. - | mov L:RB, SAVE_L - | cmp dword L:RB->openupval, 0 - | je >1 - | mov L:RB->base, BASE - | lea FCARG2, [BASE+RA*8] // Caveat: FCARG2 == BASE - | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA - | call extern lj_func_closeuv@8 // (lua_State *L, TValue *level) - | mov BASE, L:RB->base - |1: - | ins_next - break; - - case BC_FNEW: - | ins_AND // RA = dst, RD = proto const (~) (holding function prototype) - |.if X64 - | mov L:RB, SAVE_L - | mov L:RB->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG3d, [BASE-8] - | mov CARG2d, [KBASE+RD*4] // Fetch GCproto *. - | mov CARG1d, L:RB - |.else - | mov LFUNC:RA, [BASE-8] - | mov PROTO:RD, [KBASE+RD*4] // Fetch GCproto *. - | mov L:RB, SAVE_L - | mov ARG3, LFUNC:RA - | mov ARG2, PROTO:RD - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | // (lua_State *L, GCproto *pt, GCfuncL *parent) - | call extern lj_func_newL_gc - | // GCfuncL * returned in eax (RC). - | mov BASE, L:RB->base - | movzx RA, PC_RA - | mov [BASE+RA*8], LFUNC:RC - | mov dword [BASE+RA*8+4], LJ_TFUNC - | ins_next - break; - - /* -- Table ops --------------------------------------------------------- */ - - case BC_TNEW: - | ins_AD // RA = dst, RD = hbits|asize - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov RA, [DISPATCH+DISPATCH_GL(gc.total)] - | cmp RA, [DISPATCH+DISPATCH_GL(gc.threshold)] - | mov SAVE_PC, PC - | jae >5 - |1: - |.if X64 - | mov CARG3d, RD - | and RD, 0x7ff - | shr CARG3d, 11 - |.else - | mov RA, RD - | and RD, 0x7ff - | shr RA, 11 - | mov ARG3, RA - |.endif - | cmp RD, 0x7ff - | je >3 - |2: - |.if X64 - | mov L:CARG1d, L:RB - | mov CARG2d, RD - |.else - | mov ARG1, L:RB - | mov ARG2, RD - |.endif - | call extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits) - | // Table * returned in eax (RC). - | mov BASE, L:RB->base - | movzx RA, PC_RA - | mov [BASE+RA*8], TAB:RC - | mov dword [BASE+RA*8+4], LJ_TTAB - | ins_next - |3: // Turn 0x7ff into 0x801. - | mov RD, 0x801 - | jmp <2 - |5: - | mov L:FCARG1, L:RB - | call extern lj_gc_step_fixtop@4 // (lua_State *L) - | movzx RD, PC_RD - | jmp <1 - break; - case BC_TDUP: - | ins_AND // RA = dst, RD = table const (~) (holding template table) - | mov L:RB, SAVE_L - | mov RA, [DISPATCH+DISPATCH_GL(gc.total)] - | mov SAVE_PC, PC - | cmp RA, [DISPATCH+DISPATCH_GL(gc.threshold)] - | mov L:RB->base, BASE - | jae >3 - |2: - | mov TAB:FCARG2, [KBASE+RD*4] // Caveat: FCARG2 == BASE - | mov L:FCARG1, L:RB // Caveat: FCARG1 == RA - | call extern lj_tab_dup@8 // (lua_State *L, Table *kt) - | // Table * returned in eax (RC). - | mov BASE, L:RB->base - | movzx RA, PC_RA - | mov [BASE+RA*8], TAB:RC - | mov dword [BASE+RA*8+4], LJ_TTAB - | ins_next - |3: - | mov L:FCARG1, L:RB - | call extern lj_gc_step_fixtop@4 // (lua_State *L) - | movzx RD, PC_RD // Need to reload RD. - | not RDa - | jmp <2 - break; - - case BC_GGET: - | ins_AND // RA = dst, RD = str const (~) - | mov LFUNC:RB, [BASE-8] - | mov TAB:RB, LFUNC:RB->env - | mov STR:RC, [KBASE+RD*4] - | jmp ->BC_TGETS_Z - break; - case BC_GSET: - | ins_AND // RA = src, RD = str const (~) - | mov LFUNC:RB, [BASE-8] - | mov TAB:RB, LFUNC:RB->env - | mov STR:RC, [KBASE+RD*4] - | jmp ->BC_TSETS_Z - break; - - case BC_TGETV: - | ins_ABC // RA = dst, RB = table, RC = key - | checktab RB, ->vmeta_tgetv - | mov TAB:RB, [BASE+RB*8] - | - | // Integer key? - |.if DUALNUM - | checkint RC, >5 - | mov RC, dword [BASE+RC*8] - |.else - | // Convert number to int and back and compare. - | checknum RC, >5 - | movsd xmm0, qword [BASE+RC*8] - | cvttsd2si RC, xmm0 - | cvtsi2sd xmm1, RC - | ucomisd xmm0, xmm1 - | jne ->vmeta_tgetv // Generic numeric key? Use fallback. - |.endif - | cmp RC, TAB:RB->asize // Takes care of unordered, too. - | jae ->vmeta_tgetv // Not in array part? Use fallback. - | shl RC, 3 - | add RC, TAB:RB->array - | cmp dword [RC+4], LJ_TNIL // Avoid overwriting RB in fastpath. - | je >2 - | // Get array slot. - |.if X64 - | mov RBa, [RC] - | mov [BASE+RA*8], RBa - |.else - | mov RB, [RC] - | mov RC, [RC+4] - | mov [BASE+RA*8], RB - | mov [BASE+RA*8+4], RC - |.endif - |1: - | ins_next - | - |2: // Check for __index if table value is nil. - | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. - | jz >3 - | mov TAB:RA, TAB:RB->metatable - | test byte TAB:RA->nomm, 1<vmeta_tgetv // 'no __index' flag NOT set: check. - | movzx RA, PC_RA // Restore RA. - |3: - | mov dword [BASE+RA*8+4], LJ_TNIL - | jmp <1 - | - |5: // String key? - | checkstr RC, ->vmeta_tgetv - | mov STR:RC, [BASE+RC*8] - | jmp ->BC_TGETS_Z - break; - case BC_TGETS: - | ins_ABC // RA = dst, RB = table, RC = str const (~) - | not RCa - | mov STR:RC, [KBASE+RC*4] - | checktab RB, ->vmeta_tgets - | mov TAB:RB, [BASE+RB*8] - |->BC_TGETS_Z: // RB = GCtab *, RC = GCstr *, refetches PC_RA. - | mov RA, TAB:RB->hmask - | and RA, STR:RC->hash - | imul RA, #NODE - | add NODE:RA, TAB:RB->node - |1: - | cmp dword NODE:RA->key.it, LJ_TSTR - | jne >4 - | cmp dword NODE:RA->key.gcr, STR:RC - | jne >4 - | // Ok, key found. Assumes: offsetof(Node, val) == 0 - | cmp dword [RA+4], LJ_TNIL // Avoid overwriting RB in fastpath. - | je >5 // Key found, but nil value? - | movzx RC, PC_RA - | // Get node value. - |.if X64 - | mov RBa, [RA] - | mov [BASE+RC*8], RBa - |.else - | mov RB, [RA] - | mov RA, [RA+4] - | mov [BASE+RC*8], RB - | mov [BASE+RC*8+4], RA - |.endif - |2: - | ins_next - | - |3: - | movzx RC, PC_RA - | mov dword [BASE+RC*8+4], LJ_TNIL - | jmp <2 - | - |4: // Follow hash chain. - | mov NODE:RA, NODE:RA->next - | test NODE:RA, NODE:RA - | jnz <1 - | // End of hash chain: key not found, nil result. - | - |5: // Check for __index if table value is nil. - | mov TAB:RA, TAB:RB->metatable - | test TAB:RA, TAB:RA - | jz <3 // No metatable: done. - | test byte TAB:RA->nomm, 1<vmeta_tgets // Caveat: preserve STR:RC. - break; - case BC_TGETB: - | ins_ABC // RA = dst, RB = table, RC = byte literal - | checktab RB, ->vmeta_tgetb - | mov TAB:RB, [BASE+RB*8] - | cmp RC, TAB:RB->asize - | jae ->vmeta_tgetb - | shl RC, 3 - | add RC, TAB:RB->array - | cmp dword [RC+4], LJ_TNIL // Avoid overwriting RB in fastpath. - | je >2 - | // Get array slot. - |.if X64 - | mov RBa, [RC] - | mov [BASE+RA*8], RBa - |.else - | mov RB, [RC] - | mov RC, [RC+4] - | mov [BASE+RA*8], RB - | mov [BASE+RA*8+4], RC - |.endif - |1: - | ins_next - | - |2: // Check for __index if table value is nil. - | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. - | jz >3 - | mov TAB:RA, TAB:RB->metatable - | test byte TAB:RA->nomm, 1<vmeta_tgetb // 'no __index' flag NOT set: check. - | movzx RA, PC_RA // Restore RA. - |3: - | mov dword [BASE+RA*8+4], LJ_TNIL - | jmp <1 - break; - case BC_TGETR: - | ins_ABC // RA = dst, RB = table, RC = key - | mov TAB:RB, [BASE+RB*8] - |.if DUALNUM - | mov RC, dword [BASE+RC*8] - |.else - | cvttsd2si RC, qword [BASE+RC*8] - |.endif - | cmp RC, TAB:RB->asize - | jae ->vmeta_tgetr // Not in array part? Use fallback. - | shl RC, 3 - | add RC, TAB:RB->array - | // Get array slot. - |->BC_TGETR_Z: - |.if X64 - | mov RBa, [RC] - | mov [BASE+RA*8], RBa - |.else - | mov RB, [RC] - | mov RC, [RC+4] - | mov [BASE+RA*8], RB - | mov [BASE+RA*8+4], RC - |.endif - |->BC_TGETR2_Z: - | ins_next - break; - - case BC_TSETV: - | ins_ABC // RA = src, RB = table, RC = key - | checktab RB, ->vmeta_tsetv - | mov TAB:RB, [BASE+RB*8] - | - | // Integer key? - |.if DUALNUM - | checkint RC, >5 - | mov RC, dword [BASE+RC*8] - |.else - | // Convert number to int and back and compare. - | checknum RC, >5 - | movsd xmm0, qword [BASE+RC*8] - | cvttsd2si RC, xmm0 - | cvtsi2sd xmm1, RC - | ucomisd xmm0, xmm1 - | jne ->vmeta_tsetv // Generic numeric key? Use fallback. - |.endif - | cmp RC, TAB:RB->asize // Takes care of unordered, too. - | jae ->vmeta_tsetv - | shl RC, 3 - | add RC, TAB:RB->array - | cmp dword [RC+4], LJ_TNIL - | je >3 // Previous value is nil? - |1: - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jnz >7 - |2: // Set array slot. - |.if X64 - | mov RBa, [BASE+RA*8] - | mov [RC], RBa - |.else - | mov RB, [BASE+RA*8+4] - | mov RA, [BASE+RA*8] - | mov [RC+4], RB - | mov [RC], RA - |.endif - | ins_next - | - |3: // Check for __newindex if previous value is nil. - | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. - | jz <1 - | mov TAB:RA, TAB:RB->metatable - | test byte TAB:RA->nomm, 1<vmeta_tsetv // 'no __newindex' flag NOT set: check. - | movzx RA, PC_RA // Restore RA. - | jmp <1 - | - |5: // String key? - | checkstr RC, ->vmeta_tsetv - | mov STR:RC, [BASE+RC*8] - | jmp ->BC_TSETS_Z - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, RA - | movzx RA, PC_RA // Restore RA. - | jmp <2 - break; - case BC_TSETS: - | ins_ABC // RA = src, RB = table, RC = str const (~) - | not RCa - | mov STR:RC, [KBASE+RC*4] - | checktab RB, ->vmeta_tsets - | mov TAB:RB, [BASE+RB*8] - |->BC_TSETS_Z: // RB = GCtab *, RC = GCstr *, refetches PC_RA. - | mov RA, TAB:RB->hmask - | and RA, STR:RC->hash - | imul RA, #NODE - | mov byte TAB:RB->nomm, 0 // Clear metamethod cache. - | add NODE:RA, TAB:RB->node - |1: - | cmp dword NODE:RA->key.it, LJ_TSTR - | jne >5 - | cmp dword NODE:RA->key.gcr, STR:RC - | jne >5 - | // Ok, key found. Assumes: offsetof(Node, val) == 0 - | cmp dword [RA+4], LJ_TNIL - | je >4 // Previous value is nil? - |2: - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jnz >7 - |3: // Set node value. - | movzx RC, PC_RA - |.if X64 - | mov RBa, [BASE+RC*8] - | mov [RA], RBa - |.else - | mov RB, [BASE+RC*8+4] - | mov RC, [BASE+RC*8] - | mov [RA+4], RB - | mov [RA], RC - |.endif - | ins_next - | - |4: // Check for __newindex if previous value is nil. - | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. - | jz <2 - | mov TMP1, RA // Save RA. - | mov TAB:RA, TAB:RB->metatable - | test byte TAB:RA->nomm, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. - | mov RA, TMP1 // Restore RA. - | jmp <2 - | - |5: // Follow hash chain. - | mov NODE:RA, NODE:RA->next - | test NODE:RA, NODE:RA - | jnz <1 - | // End of hash chain: key not found, add a new one. - | - | // But check for __newindex first. - | mov TAB:RA, TAB:RB->metatable - | test TAB:RA, TAB:RA - | jz >6 // No metatable: continue. - | test byte TAB:RA->nomm, 1<vmeta_tsets // 'no __newindex' flag NOT set: check. - |6: - | mov TMP1, STR:RC - | mov TMP2, LJ_TSTR - | mov TMP3, TAB:RB // Save TAB:RB for us. - |.if X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE - | lea CARG3, TMP1 - | mov CARG2d, TAB:RB - | mov L:RB, L:CARG1d - |.else - | lea RC, TMP1 // Store temp. TValue in TMP1/TMP2. - | mov ARG2, TAB:RB - | mov L:RB, SAVE_L - | mov ARG3, RC - | mov ARG1, L:RB - | mov L:RB->base, BASE - |.endif - | mov SAVE_PC, PC - | call extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k) - | // Handles write barrier for the new key. TValue * returned in eax (RC). - | mov BASE, L:RB->base - | mov TAB:RB, TMP3 // Need TAB:RB for barrier. - | mov RA, eax - | jmp <2 // Must check write barrier for value. - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, RC // Destroys STR:RC. - | jmp <3 - break; - case BC_TSETB: - | ins_ABC // RA = src, RB = table, RC = byte literal - | checktab RB, ->vmeta_tsetb - | mov TAB:RB, [BASE+RB*8] - | cmp RC, TAB:RB->asize - | jae ->vmeta_tsetb - | shl RC, 3 - | add RC, TAB:RB->array - | cmp dword [RC+4], LJ_TNIL - | je >3 // Previous value is nil? - |1: - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jnz >7 - |2: // Set array slot. - |.if X64 - | mov RAa, [BASE+RA*8] - | mov [RC], RAa - |.else - | mov RB, [BASE+RA*8+4] - | mov RA, [BASE+RA*8] - | mov [RC+4], RB - | mov [RC], RA - |.endif - | ins_next - | - |3: // Check for __newindex if previous value is nil. - | cmp dword TAB:RB->metatable, 0 // Shouldn't overwrite RA for fastpath. - | jz <1 - | mov TAB:RA, TAB:RB->metatable - | test byte TAB:RA->nomm, 1<vmeta_tsetb // 'no __newindex' flag NOT set: check. - | movzx RA, PC_RA // Restore RA. - | jmp <1 - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, RA - | movzx RA, PC_RA // Restore RA. - | jmp <2 - break; - case BC_TSETR: - | ins_ABC // RA = src, RB = table, RC = key - | mov TAB:RB, [BASE+RB*8] - |.if DUALNUM - | mov RC, dword [BASE+RC*8] - |.else - | cvttsd2si RC, qword [BASE+RC*8] - |.endif - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jnz >7 - |2: - | cmp RC, TAB:RB->asize - | jae ->vmeta_tsetr - | shl RC, 3 - | add RC, TAB:RB->array - | // Set array slot. - |->BC_TSETR_Z: - |.if X64 - | mov RBa, [BASE+RA*8] - | mov [RC], RBa - |.else - | mov RB, [BASE+RA*8+4] - | mov RA, [BASE+RA*8] - | mov [RC+4], RB - | mov [RC], RA - |.endif - | ins_next - | - |7: // Possible table write barrier for the value. Skip valiswhite check. - | barrierback TAB:RB, RA - | movzx RA, PC_RA // Restore RA. - | jmp <2 - break; - - case BC_TSETM: - | ins_AD // RA = base (table at base-1), RD = num const (start index) - | mov TMP1, KBASE // Need one more free register. - | mov KBASE, dword [KBASE+RD*8] // Integer constant is in lo-word. - |1: - | lea RA, [BASE+RA*8] - | mov TAB:RB, [RA-8] // Guaranteed to be a table. - | test byte TAB:RB->marked, LJ_GC_BLACK // isblack(table) - | jnz >7 - |2: - | mov RD, MULTRES - | sub RD, 1 - | jz >4 // Nothing to copy? - | add RD, KBASE // Compute needed size. - | cmp RD, TAB:RB->asize - | ja >5 // Doesn't fit into array part? - | sub RD, KBASE - | shl KBASE, 3 - | add KBASE, TAB:RB->array - |3: // Copy result slots to table. - |.if X64 - | mov RBa, [RA] - | add RA, 8 - | mov [KBASE], RBa - |.else - | mov RB, [RA] - | mov [KBASE], RB - | mov RB, [RA+4] - | add RA, 8 - | mov [KBASE+4], RB - |.endif - | add KBASE, 8 - | sub RD, 1 - | jnz <3 - |4: - | mov KBASE, TMP1 - | ins_next - | - |5: // Need to resize array part. - |.if X64 - | mov L:CARG1d, SAVE_L - | mov L:CARG1d->base, BASE // Caveat: CARG2d/CARG3d may be BASE. - | mov CARG2d, TAB:RB - | mov CARG3d, RD - | mov L:RB, L:CARG1d - |.else - | mov ARG2, TAB:RB - | mov L:RB, SAVE_L - | mov L:RB->base, BASE - | mov ARG3, RD - | mov ARG1, L:RB - |.endif - | mov SAVE_PC, PC - | call extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize) - | mov BASE, L:RB->base - | movzx RA, PC_RA // Restore RA. - | jmp <1 // Retry. - | - |7: // Possible table write barrier for any value. Skip valiswhite check. - | barrierback TAB:RB, RD - | jmp <2 - break; - - /* -- Calls and vararg handling ----------------------------------------- */ - - case BC_CALL: case BC_CALLM: - | ins_A_C // RA = base, (RB = nresults+1,) RC = nargs+1 | extra_nargs - if (op == BC_CALLM) { - | add NARGS:RD, MULTRES - } - | cmp dword [BASE+RA*8+4], LJ_TFUNC - | mov LFUNC:RB, [BASE+RA*8] - | jne ->vmeta_call_ra - | lea BASE, [BASE+RA*8+8] - | ins_call - break; - - case BC_CALLMT: - | ins_AD // RA = base, RD = extra_nargs - | add NARGS:RD, MULTRES - | // Fall through. Assumes BC_CALLT follows and ins_AD is a no-op. - break; - case BC_CALLT: - | ins_AD // RA = base, RD = nargs+1 - | lea RA, [BASE+RA*8+8] - | mov KBASE, BASE // Use KBASE for move + vmeta_call hint. - | mov LFUNC:RB, [RA-8] - | cmp dword [RA-4], LJ_TFUNC - | jne ->vmeta_call - |->BC_CALLT_Z: - | mov PC, [BASE-4] - | test PC, FRAME_TYPE - | jnz >7 - |1: - | mov [BASE-8], LFUNC:RB // Copy function down, reloaded below. - | mov MULTRES, NARGS:RD - | sub NARGS:RD, 1 - | jz >3 - |2: // Move args down. - |.if X64 - | mov RBa, [RA] - | add RA, 8 - | mov [KBASE], RBa - |.else - | mov RB, [RA] - | mov [KBASE], RB - | mov RB, [RA+4] - | add RA, 8 - | mov [KBASE+4], RB - |.endif - | add KBASE, 8 - | sub NARGS:RD, 1 - | jnz <2 - | - | mov LFUNC:RB, [BASE-8] - |3: - | mov NARGS:RD, MULTRES - | cmp byte LFUNC:RB->ffid, 1 // (> FF_C) Calling a fast function? - | ja >5 - |4: - | ins_callt - | - |5: // Tailcall to a fast function. - | test PC, FRAME_TYPE // Lua frame below? - | jnz <4 - | movzx RA, PC_RA - | not RAa - | mov LFUNC:KBASE, [BASE+RA*8-8] // Need to prepare KBASE. - | mov KBASE, LFUNC:KBASE->pc - | mov KBASE, [KBASE+PC2PROTO(k)] - | jmp <4 - | - |7: // Tailcall from a vararg function. - | sub PC, FRAME_VARG - | test PC, FRAME_TYPEP - | jnz >8 // Vararg frame below? - | sub BASE, PC // Need to relocate BASE/KBASE down. - | mov KBASE, BASE - | mov PC, [BASE-4] - | jmp <1 - |8: - | add PC, FRAME_VARG - | jmp <1 - break; - - case BC_ITERC: - | ins_A // RA = base, (RB = nresults+1,) RC = nargs+1 (2+1) - | lea RA, [BASE+RA*8+8] // fb = base+1 - |.if X64 - | mov RBa, [RA-24] // Copy state. fb[0] = fb[-3]. - | mov RCa, [RA-16] // Copy control var. fb[1] = fb[-2]. - | mov [RA], RBa - | mov [RA+8], RCa - |.else - | mov RB, [RA-24] // Copy state. fb[0] = fb[-3]. - | mov RC, [RA-20] - | mov [RA], RB - | mov [RA+4], RC - | mov RB, [RA-16] // Copy control var. fb[1] = fb[-2]. - | mov RC, [RA-12] - | mov [RA+8], RB - | mov [RA+12], RC - |.endif - | mov LFUNC:RB, [RA-32] // Copy callable. fb[-1] = fb[-4] - | mov RC, [RA-28] - | mov [RA-8], LFUNC:RB - | mov [RA-4], RC - | cmp RC, LJ_TFUNC // Handle like a regular 2-arg call. - | mov NARGS:RD, 2+1 - | jne ->vmeta_call - | mov BASE, RA - | ins_call - break; - - case BC_ITERN: - | ins_A // RA = base, (RB = nresults+1, RC = nargs+1 (2+1)) - |.if JIT - | // NYI: add hotloop, record BC_ITERN. - |.endif - | mov TMP1, KBASE // Need two more free registers. - | mov TMP2, DISPATCH - | mov TAB:RB, [BASE+RA*8-16] - | mov RC, [BASE+RA*8-8] // Get index from control var. - | mov DISPATCH, TAB:RB->asize - | add PC, 4 - | mov KBASE, TAB:RB->array - |1: // Traverse array part. - | cmp RC, DISPATCH; jae >5 // Index points after array part? - | cmp dword [KBASE+RC*8+4], LJ_TNIL; je >4 - |.if DUALNUM - | mov dword [BASE+RA*8+4], LJ_TISNUM - | mov dword [BASE+RA*8], RC - |.else - | cvtsi2sd xmm0, RC - |.endif - | // Copy array slot to returned value. - |.if X64 - | mov RBa, [KBASE+RC*8] - | mov [BASE+RA*8+8], RBa - |.else - | mov RB, [KBASE+RC*8+4] - | mov [BASE+RA*8+12], RB - | mov RB, [KBASE+RC*8] - | mov [BASE+RA*8+8], RB - |.endif - | add RC, 1 - | // Return array index as a numeric key. - |.if DUALNUM - | // See above. - |.else - | movsd qword [BASE+RA*8], xmm0 - |.endif - | mov [BASE+RA*8-8], RC // Update control var. - |2: - | movzx RD, PC_RD // Get target from ITERL. - | branchPC RD - |3: - | mov DISPATCH, TMP2 - | mov KBASE, TMP1 - | ins_next - | - |4: // Skip holes in array part. - | add RC, 1 - | jmp <1 - | - |5: // Traverse hash part. - | sub RC, DISPATCH - |6: - | cmp RC, TAB:RB->hmask; ja <3 // End of iteration? Branch to ITERL+1. - | imul KBASE, RC, #NODE - | add NODE:KBASE, TAB:RB->node - | cmp dword NODE:KBASE->val.it, LJ_TNIL; je >7 - | lea DISPATCH, [RC+DISPATCH+1] - | // Copy key and value from hash slot. - |.if X64 - | mov RBa, NODE:KBASE->key - | mov RCa, NODE:KBASE->val - | mov [BASE+RA*8], RBa - | mov [BASE+RA*8+8], RCa - |.else - | mov RB, NODE:KBASE->key.gcr - | mov RC, NODE:KBASE->key.it - | mov [BASE+RA*8], RB - | mov [BASE+RA*8+4], RC - | mov RB, NODE:KBASE->val.gcr - | mov RC, NODE:KBASE->val.it - | mov [BASE+RA*8+8], RB - | mov [BASE+RA*8+12], RC - |.endif - | mov [BASE+RA*8-8], DISPATCH - | jmp <2 - | - |7: // Skip holes in hash part. - | add RC, 1 - | jmp <6 - break; - - case BC_ISNEXT: - | ins_AD // RA = base, RD = target (points to ITERN) - | cmp dword [BASE+RA*8-20], LJ_TFUNC; jne >5 - | mov CFUNC:RB, [BASE+RA*8-24] - | cmp dword [BASE+RA*8-12], LJ_TTAB; jne >5 - | cmp dword [BASE+RA*8-4], LJ_TNIL; jne >5 - | cmp byte CFUNC:RB->ffid, FF_next_N; jne >5 - | branchPC RD - | mov dword [BASE+RA*8-8], 0 // Initialize control var. - | mov dword [BASE+RA*8-4], 0xfffe7fff - |1: - | ins_next - |5: // Despecialize bytecode if any of the checks fail. - | mov PC_OP, BC_JMP - | branchPC RD - | mov byte [PC], BC_ITERC - | jmp <1 - break; - - case BC_VARG: - | ins_ABC // RA = base, RB = nresults+1, RC = numparams - | mov TMP1, KBASE // Need one more free register. - | lea KBASE, [BASE+RC*8+(8+FRAME_VARG)] - | lea RA, [BASE+RA*8] - | sub KBASE, [BASE-4] - | // Note: KBASE may now be even _above_ BASE if nargs was < numparams. - | test RB, RB - | jz >5 // Copy all varargs? - | lea RB, [RA+RB*8-8] - | cmp KBASE, BASE // No vararg slots? - | jnb >2 - |1: // Copy vararg slots to destination slots. - |.if X64 - | mov RCa, [KBASE-8] - | add KBASE, 8 - | mov [RA], RCa - |.else - | mov RC, [KBASE-8] - | mov [RA], RC - | mov RC, [KBASE-4] - | add KBASE, 8 - | mov [RA+4], RC - |.endif - | add RA, 8 - | cmp RA, RB // All destination slots filled? - | jnb >3 - | cmp KBASE, BASE // No more vararg slots? - | jb <1 - |2: // Fill up remainder with nil. - | mov dword [RA+4], LJ_TNIL - | add RA, 8 - | cmp RA, RB - | jb <2 - |3: - | mov KBASE, TMP1 - | ins_next - | - |5: // Copy all varargs. - | mov MULTRES, 1 // MULTRES = 0+1 - | mov RC, BASE - | sub RC, KBASE - | jbe <3 // No vararg slots? - | mov RB, RC - | shr RB, 3 - | add RB, 1 - | mov MULTRES, RB // MULTRES = #varargs+1 - | mov L:RB, SAVE_L - | add RC, RA - | cmp RC, L:RB->maxstack - | ja >7 // Need to grow stack? - |6: // Copy all vararg slots. - |.if X64 - | mov RCa, [KBASE-8] - | add KBASE, 8 - | mov [RA], RCa - |.else - | mov RC, [KBASE-8] - | mov [RA], RC - | mov RC, [KBASE-4] - | add KBASE, 8 - | mov [RA+4], RC - |.endif - | add RA, 8 - | cmp KBASE, BASE // No more vararg slots? - | jb <6 - | jmp <3 - | - |7: // Grow stack for varargs. - | mov L:RB->base, BASE - | mov L:RB->top, RA - | mov SAVE_PC, PC - | sub KBASE, BASE // Need delta, because BASE may change. - | mov FCARG2, MULTRES - | sub FCARG2, 1 - | mov FCARG1, L:RB - | call extern lj_state_growstack@8 // (lua_State *L, int n) - | mov BASE, L:RB->base - | mov RA, L:RB->top - | add KBASE, BASE - | jmp <6 - break; - - /* -- Returns ----------------------------------------------------------- */ - - case BC_RETM: - | ins_AD // RA = results, RD = extra_nresults - | add RD, MULTRES // MULTRES >=1, so RD >=1. - | // Fall through. Assumes BC_RET follows and ins_AD is a no-op. - break; - - case BC_RET: case BC_RET0: case BC_RET1: - | ins_AD // RA = results, RD = nresults+1 - if (op != BC_RET0) { - | shl RA, 3 - } - |1: - | mov PC, [BASE-4] - | mov MULTRES, RD // Save nresults+1. - | test PC, FRAME_TYPE // Check frame type marker. - | jnz >7 // Not returning to a fixarg Lua func? - switch (op) { - case BC_RET: - |->BC_RET_Z: - | mov KBASE, BASE // Use KBASE for result move. - | sub RD, 1 - | jz >3 - |2: // Move results down. - |.if X64 - | mov RBa, [KBASE+RA] - | mov [KBASE-8], RBa - |.else - | mov RB, [KBASE+RA] - | mov [KBASE-8], RB - | mov RB, [KBASE+RA+4] - | mov [KBASE-4], RB - |.endif - | add KBASE, 8 - | sub RD, 1 - | jnz <2 - |3: - | mov RD, MULTRES // Note: MULTRES may be >255. - | movzx RB, PC_RB // So cannot compare with RDL! - |5: - | cmp RB, RD // More results expected? - | ja >6 - break; - case BC_RET1: - |.if X64 - | mov RBa, [BASE+RA] - | mov [BASE-8], RBa - |.else - | mov RB, [BASE+RA+4] - | mov [BASE-4], RB - | mov RB, [BASE+RA] - | mov [BASE-8], RB - |.endif - /* fallthrough */ - case BC_RET0: - |5: - | cmp PC_RB, RDL // More results expected? - | ja >6 - default: - break; - } - | movzx RA, PC_RA - | not RAa // Note: ~RA = -(RA+1) - | lea BASE, [BASE+RA*8] // base = base - (RA+1)*8 - | mov LFUNC:KBASE, [BASE-8] - | mov KBASE, LFUNC:KBASE->pc - | mov KBASE, [KBASE+PC2PROTO(k)] - | ins_next - | - |6: // Fill up results with nil. - if (op == BC_RET) { - | mov dword [KBASE-4], LJ_TNIL // Note: relies on shifted base. - | add KBASE, 8 - } else { - | mov dword [BASE+RD*8-12], LJ_TNIL - } - | add RD, 1 - | jmp <5 - | - |7: // Non-standard return case. - | lea RB, [PC-FRAME_VARG] - | test RB, FRAME_TYPEP - | jnz ->vm_return - | // Return from vararg function: relocate BASE down and RA up. - | sub BASE, RB - if (op != BC_RET0) { - | add RA, RB - } - | jmp <1 - break; - - /* -- Loops and branches ------------------------------------------------ */ - - |.define FOR_IDX, [RA]; .define FOR_TIDX, dword [RA+4] - |.define FOR_STOP, [RA+8]; .define FOR_TSTOP, dword [RA+12] - |.define FOR_STEP, [RA+16]; .define FOR_TSTEP, dword [RA+20] - |.define FOR_EXT, [RA+24]; .define FOR_TEXT, dword [RA+28] - - case BC_FORL: - |.if JIT - | hotloop RB - |.endif - | // Fall through. Assumes BC_IFORL follows and ins_AJ is a no-op. - break; - - case BC_JFORI: - case BC_JFORL: -#if !LJ_HASJIT - break; -#endif - case BC_FORI: - case BC_IFORL: - vk = (op == BC_IFORL || op == BC_JFORL); - | ins_AJ // RA = base, RD = target (after end of loop or start of loop) - | lea RA, [BASE+RA*8] - if (LJ_DUALNUM) { - | cmp FOR_TIDX, LJ_TISNUM; jne >9 - if (!vk) { - | cmp FOR_TSTOP, LJ_TISNUM; jne ->vmeta_for - | cmp FOR_TSTEP, LJ_TISNUM; jne ->vmeta_for - | mov RB, dword FOR_IDX - | cmp dword FOR_STEP, 0; jl >5 - } else { -#ifdef LUA_USE_ASSERT - | cmp FOR_TSTOP, LJ_TISNUM; jne ->assert_bad_for_arg_type - | cmp FOR_TSTEP, LJ_TISNUM; jne ->assert_bad_for_arg_type -#endif - | mov RB, dword FOR_STEP - | test RB, RB; js >5 - | add RB, dword FOR_IDX; jo >1 - | mov dword FOR_IDX, RB - } - | cmp RB, dword FOR_STOP - | mov FOR_TEXT, LJ_TISNUM - | mov dword FOR_EXT, RB - if (op == BC_FORI) { - | jle >7 - |1: - |6: - | branchPC RD - } else if (op == BC_JFORI) { - | branchPC RD - | movzx RD, PC_RD - | jle =>BC_JLOOP - |1: - |6: - } else if (op == BC_IFORL) { - | jg >7 - |6: - | branchPC RD - |1: - } else { - | jle =>BC_JLOOP - |1: - |6: - } - |7: - | ins_next - | - |5: // Invert check for negative step. - if (vk) { - | add RB, dword FOR_IDX; jo <1 - | mov dword FOR_IDX, RB - } - | cmp RB, dword FOR_STOP - | mov FOR_TEXT, LJ_TISNUM - | mov dword FOR_EXT, RB - if (op == BC_FORI) { - | jge <7 - } else if (op == BC_JFORI) { - | branchPC RD - | movzx RD, PC_RD - | jge =>BC_JLOOP - } else if (op == BC_IFORL) { - | jl <7 - } else { - | jge =>BC_JLOOP - } - | jmp <6 - |9: // Fallback to FP variant. - } else if (!vk) { - | cmp FOR_TIDX, LJ_TISNUM - } - if (!vk) { - | jae ->vmeta_for - | cmp FOR_TSTOP, LJ_TISNUM; jae ->vmeta_for - } else { -#ifdef LUA_USE_ASSERT - | cmp FOR_TSTOP, LJ_TISNUM; jae ->assert_bad_for_arg_type - | cmp FOR_TSTEP, LJ_TISNUM; jae ->assert_bad_for_arg_type -#endif - } - | mov RB, FOR_TSTEP // Load type/hiword of for step. - if (!vk) { - | cmp RB, LJ_TISNUM; jae ->vmeta_for - } - | movsd xmm0, qword FOR_IDX - | movsd xmm1, qword FOR_STOP - if (vk) { - | addsd xmm0, qword FOR_STEP - | movsd qword FOR_IDX, xmm0 - | test RB, RB; js >3 - } else { - | jl >3 - } - | ucomisd xmm1, xmm0 - |1: - | movsd qword FOR_EXT, xmm0 - if (op == BC_FORI) { - |.if DUALNUM - | jnb <7 - |.else - | jnb >2 - | branchPC RD - |.endif - } else if (op == BC_JFORI) { - | branchPC RD - | movzx RD, PC_RD - | jnb =>BC_JLOOP - } else if (op == BC_IFORL) { - |.if DUALNUM - | jb <7 - |.else - | jb >2 - | branchPC RD - |.endif - } else { - | jnb =>BC_JLOOP - } - |.if DUALNUM - | jmp <6 - |.else - |2: - | ins_next - |.endif - | - |3: // Invert comparison if step is negative. - | ucomisd xmm0, xmm1 - | jmp <1 - break; - - case BC_ITERL: - |.if JIT - | hotloop RB - |.endif - | // Fall through. Assumes BC_IITERL follows and ins_AJ is a no-op. - break; - - case BC_JITERL: -#if !LJ_HASJIT - break; -#endif - case BC_IITERL: - | ins_AJ // RA = base, RD = target - | lea RA, [BASE+RA*8] - | mov RB, [RA+4] - | cmp RB, LJ_TNIL; je >1 // Stop if iterator returned nil. - if (op == BC_JITERL) { - | mov [RA-4], RB - | mov RB, [RA] - | mov [RA-8], RB - | jmp =>BC_JLOOP - } else { - | branchPC RD // Otherwise save control var + branch. - | mov RD, [RA] - | mov [RA-4], RB - | mov [RA-8], RD - } - |1: - | ins_next - break; - - case BC_LOOP: - | ins_A // RA = base, RD = target (loop extent) - | // Note: RA/RD is only used by trace recorder to determine scope/extent - | // This opcode does NOT jump, it's only purpose is to detect a hot loop. - |.if JIT - | hotloop RB - |.endif - | // Fall through. Assumes BC_ILOOP follows and ins_A is a no-op. - break; - - case BC_ILOOP: - | ins_A // RA = base, RD = target (loop extent) - | ins_next - break; - - case BC_JLOOP: - |.if JIT - | ins_AD // RA = base (ignored), RD = traceno - | mov RA, [DISPATCH+DISPATCH_J(trace)] - | mov TRACE:RD, [RA+RD*4] - | mov RDa, TRACE:RD->mcode - | mov L:RB, SAVE_L - | mov [DISPATCH+DISPATCH_GL(jit_base)], BASE - | mov [DISPATCH+DISPATCH_GL(tmpbuf.L)], L:RB - | // Save additional callee-save registers only used in compiled code. - |.if X64WIN - | mov TMPQ, r12 - | mov TMPa, r13 - | mov CSAVE_4, r14 - | mov CSAVE_3, r15 - | mov RAa, rsp - | sub rsp, 9*16+4*8 - | movdqa [RAa], xmm6 - | movdqa [RAa-1*16], xmm7 - | movdqa [RAa-2*16], xmm8 - | movdqa [RAa-3*16], xmm9 - | movdqa [RAa-4*16], xmm10 - | movdqa [RAa-5*16], xmm11 - | movdqa [RAa-6*16], xmm12 - | movdqa [RAa-7*16], xmm13 - | movdqa [RAa-8*16], xmm14 - | movdqa [RAa-9*16], xmm15 - |.elif X64 - | mov TMPQ, r12 - | mov TMPa, r13 - | sub rsp, 16 - |.endif - | jmp RDa - |.endif - break; - - case BC_JMP: - | ins_AJ // RA = unused, RD = target - | branchPC RD - | ins_next - break; - - /* -- Function headers -------------------------------------------------- */ - - /* - ** Reminder: A function may be called with func/args above L->maxstack, - ** i.e. occupying EXTRA_STACK slots. And vmeta_call may add one extra slot, - ** too. This means all FUNC* ops (including fast functions) must check - ** for stack overflow _before_ adding more slots! - */ - - case BC_FUNCF: - |.if JIT - | hotcall RB - |.endif - case BC_FUNCV: /* NYI: compiled vararg functions. */ - | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow and ins_AD is a no-op. - break; - - case BC_JFUNCF: -#if !LJ_HASJIT - break; -#endif - case BC_IFUNCF: - | ins_AD // BASE = new base, RA = framesize, RD = nargs+1 - | mov KBASE, [PC-4+PC2PROTO(k)] - | mov L:RB, SAVE_L - | lea RA, [BASE+RA*8] // Top of frame. - | cmp RA, L:RB->maxstack - | ja ->vm_growstack_f - | movzx RA, byte [PC-4+PC2PROTO(numparams)] - | cmp NARGS:RD, RA // Check for missing parameters. - | jbe >3 - |2: - if (op == BC_JFUNCF) { - | movzx RD, PC_RD - | jmp =>BC_JLOOP - } else { - | ins_next - } - | - |3: // Clear missing parameters. - | mov dword [BASE+NARGS:RD*8-4], LJ_TNIL - | add NARGS:RD, 1 - | cmp NARGS:RD, RA - | jbe <3 - | jmp <2 - break; - - case BC_JFUNCV: -#if !LJ_HASJIT - break; -#endif - | int3 // NYI: compiled vararg functions - break; /* NYI: compiled vararg functions. */ - - case BC_IFUNCV: - | ins_AD // BASE = new base, RA = framesize, RD = nargs+1 - | lea RB, [NARGS:RD*8+FRAME_VARG] - | lea RD, [BASE+NARGS:RD*8] - | mov LFUNC:KBASE, [BASE-8] - | mov [RD-4], RB // Store delta + FRAME_VARG. - | mov [RD-8], LFUNC:KBASE // Store copy of LFUNC. - | mov L:RB, SAVE_L - | lea RA, [RD+RA*8] - | cmp RA, L:RB->maxstack - | ja ->vm_growstack_v // Need to grow stack. - | mov RA, BASE - | mov BASE, RD - | movzx RB, byte [PC-4+PC2PROTO(numparams)] - | test RB, RB - | jz >2 - |1: // Copy fixarg slots up to new frame. - | add RA, 8 - | cmp RA, BASE - | jnb >3 // Less args than parameters? - | mov KBASE, [RA-8] - | mov [RD], KBASE - | mov KBASE, [RA-4] - | mov [RD+4], KBASE - | add RD, 8 - | mov dword [RA-4], LJ_TNIL // Clear old fixarg slot (help the GC). - | sub RB, 1 - | jnz <1 - |2: - if (op == BC_JFUNCV) { - | movzx RD, PC_RD - | jmp =>BC_JLOOP - } else { - | mov KBASE, [PC-4+PC2PROTO(k)] - | ins_next - } - | - |3: // Clear missing parameters. - | mov dword [RD+4], LJ_TNIL - | add RD, 8 - | sub RB, 1 - | jnz <3 - | jmp <2 - break; - - case BC_FUNCC: - case BC_FUNCCW: - | ins_AD // BASE = new base, RA = ins RA|RD (unused), RD = nargs+1 - | mov CFUNC:RB, [BASE-8] - | mov KBASEa, CFUNC:RB->f - | mov L:RB, SAVE_L - | lea RD, [BASE+NARGS:RD*8-8] - | mov L:RB->base, BASE - | lea RA, [RD+8*LUA_MINSTACK] - | cmp RA, L:RB->maxstack - | mov L:RB->top, RD - if (op == BC_FUNCC) { - |.if X64 - | mov CARG1d, L:RB // Caveat: CARG1d may be RA. - |.else - | mov ARG1, L:RB - |.endif - } else { - |.if X64 - | mov CARG2, KBASEa - | mov CARG1d, L:RB // Caveat: CARG1d may be RA. - |.else - | mov ARG2, KBASEa - | mov ARG1, L:RB - |.endif - } - | ja ->vm_growstack_c // Need to grow stack. - | set_vmstate C - if (op == BC_FUNCC) { - | call KBASEa // (lua_State *L) - } else { - | // (lua_State *L, lua_CFunction f) - | call aword [DISPATCH+DISPATCH_GL(wrapf)] - } - | // nresults returned in eax (RD). - | mov BASE, L:RB->base - | mov [DISPATCH+DISPATCH_GL(cur_L)], L:RB - | set_vmstate INTERP - | lea RA, [BASE+RD*8] - | neg RA - | add RA, L:RB->top // RA = (L->top-(L->base+nresults))*8 - | mov PC, [BASE-4] // Fetch PC of caller. - | jmp ->vm_returnc - break; - - /* ---------------------------------------------------------------------- */ - - default: - fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]); - exit(2); - break; - } -} - -static int build_backend(BuildCtx *ctx) -{ - int op; - dasm_growpc(Dst, BC__MAX); - build_subroutines(ctx); - |.code_op - for (op = 0; op < BC__MAX; op++) - build_ins(ctx, (BCOp)op, op); - return BC__MAX; -} - -/* Emit pseudo frame-info for all assembler functions. */ -static void emit_asm_debug(BuildCtx *ctx) -{ - int fcofs = (int)((uint8_t *)ctx->glob[GLOB_vm_ffi_call] - ctx->code); -#if LJ_64 -#define SZPTR "8" -#define BSZPTR "3" -#define REG_SP "0x7" -#define REG_RA "0x10" -#else -#define SZPTR "4" -#define BSZPTR "2" -#define REG_SP "0x4" -#define REG_RA "0x8" -#endif - switch (ctx->mode) { - case BUILD_elfasm: - fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n"); - fprintf(ctx->fp, - ".Lframe0:\n" - "\t.long .LECIE0-.LSCIE0\n" - ".LSCIE0:\n" - "\t.long 0xffffffff\n" - "\t.byte 0x1\n" - "\t.string \"\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -" SZPTR "\n" - "\t.byte " REG_RA "\n" - "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" - "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" - "\t.align " SZPTR "\n" - ".LECIE0:\n\n"); - fprintf(ctx->fp, - ".LSFDE0:\n" - "\t.long .LEFDE0-.LASFDE0\n" - ".LASFDE0:\n" - "\t.long .Lframe0\n" -#if LJ_64 - "\t.quad .Lbegin\n" - "\t.quad %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ - "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ - "\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ - "\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ -#else - "\t.long .Lbegin\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ - "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ - "\t.byte 0x87\n\t.uleb128 0x3\n" /* offset edi */ - "\t.byte 0x86\n\t.uleb128 0x4\n" /* offset esi */ - "\t.byte 0x83\n\t.uleb128 0x5\n" /* offset ebx */ -#endif - "\t.align " SZPTR "\n" - ".LEFDE0:\n\n", fcofs, CFRAME_SIZE); -#if LJ_HASFFI - fprintf(ctx->fp, - ".LSFDE1:\n" - "\t.long .LEFDE1-.LASFDE1\n" - ".LASFDE1:\n" - "\t.long .Lframe0\n" -#if LJ_64 - "\t.quad lj_vm_ffi_call\n" - "\t.quad %d\n" - "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ - "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ - "\t.byte 0xd\n\t.uleb128 0x6\n" /* def_cfa_register rbp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ -#else - "\t.long lj_vm_ffi_call\n" - "\t.long %d\n" - "\t.byte 0xe\n\t.uleb128 8\n" /* def_cfa_offset */ - "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ - "\t.byte 0xd\n\t.uleb128 0x5\n" /* def_cfa_register ebp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset ebx */ -#endif - "\t.align " SZPTR "\n" - ".LEFDE1:\n\n", (int)ctx->codesz - fcofs); -#endif -#if (defined(__sun__) && defined(__svr4__)) -#if LJ_64 - fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@unwind\n"); -#else - fprintf(ctx->fp, "\t.section .eh_frame,\"aw\",@progbits\n"); -#endif -#else - fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n"); -#endif - fprintf(ctx->fp, - ".Lframe1:\n" - "\t.long .LECIE1-.LSCIE1\n" - ".LSCIE1:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zPR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -" SZPTR "\n" - "\t.byte " REG_RA "\n" - "\t.uleb128 6\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.long lj_err_unwind_dwarf-.\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" - "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" - "\t.align " SZPTR "\n" - ".LECIE1:\n\n"); - fprintf(ctx->fp, - ".LSFDE2:\n" - "\t.long .LEFDE2-.LASFDE2\n" - ".LASFDE2:\n" - "\t.long .LASFDE2-.Lframe1\n" - "\t.long .Lbegin-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.uleb128 %d\n" /* def_cfa_offset */ -#if LJ_64 - "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ - "\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ - "\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ -#else - "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ - "\t.byte 0x87\n\t.uleb128 0x3\n" /* offset edi */ - "\t.byte 0x86\n\t.uleb128 0x4\n" /* offset esi */ - "\t.byte 0x83\n\t.uleb128 0x5\n" /* offset ebx */ -#endif - "\t.align " SZPTR "\n" - ".LEFDE2:\n\n", fcofs, CFRAME_SIZE); -#if LJ_HASFFI - fprintf(ctx->fp, - ".Lframe2:\n" - "\t.long .LECIE2-.LSCIE2\n" - ".LSCIE2:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.string \"zR\"\n" - "\t.uleb128 0x1\n" - "\t.sleb128 -" SZPTR "\n" - "\t.byte " REG_RA "\n" - "\t.uleb128 1\n" /* augmentation length */ - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.uleb128 " REG_SP "\n\t.uleb128 " SZPTR "\n" - "\t.byte 0x80+" REG_RA "\n\t.uleb128 0x1\n" - "\t.align " SZPTR "\n" - ".LECIE2:\n\n"); - fprintf(ctx->fp, - ".LSFDE3:\n" - "\t.long .LEFDE3-.LASFDE3\n" - ".LASFDE3:\n" - "\t.long .LASFDE3-.Lframe2\n" - "\t.long lj_vm_ffi_call-.\n" - "\t.long %d\n" - "\t.uleb128 0\n" /* augmentation length */ -#if LJ_64 - "\t.byte 0xe\n\t.uleb128 16\n" /* def_cfa_offset */ - "\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ - "\t.byte 0xd\n\t.uleb128 0x6\n" /* def_cfa_register rbp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ -#else - "\t.byte 0xe\n\t.uleb128 8\n" /* def_cfa_offset */ - "\t.byte 0x85\n\t.uleb128 0x2\n" /* offset ebp */ - "\t.byte 0xd\n\t.uleb128 0x5\n" /* def_cfa_register ebp */ - "\t.byte 0x83\n\t.uleb128 0x3\n" /* offset ebx */ -#endif - "\t.align " SZPTR "\n" - ".LEFDE3:\n\n", (int)ctx->codesz - fcofs); -#endif - break; - /* Mental note: never let Apple design an assembler. - ** Or a linker. Or a plastic case. But I digress. - */ - case BUILD_machasm: { -#if LJ_HASFFI - int fcsize = 0; -#endif - int i; - fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); - fprintf(ctx->fp, - "EH_frame1:\n" - "\t.set L$set$x,LECIEX-LSCIEX\n" - "\t.long L$set$x\n" - "LSCIEX:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.ascii \"zPR\\0\"\n" - "\t.byte 0x1\n" - "\t.byte 128-" SZPTR "\n" - "\t.byte " REG_RA "\n" - "\t.byte 6\n" /* augmentation length */ - "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ -#if LJ_64 - "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" -#else - "\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n" - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ -#endif - "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" - "\t.align " BSZPTR "\n" - "LECIEX:\n\n"); - for (i = 0; i < ctx->nsym; i++) { - const char *name = ctx->sym[i].name; - int32_t size = ctx->sym[i+1].ofs - ctx->sym[i].ofs; - if (size == 0) continue; -#if LJ_HASFFI - if (!strcmp(name, "_lj_vm_ffi_call")) { fcsize = size; continue; } -#endif - fprintf(ctx->fp, - "%s.eh:\n" - "LSFDE%d:\n" - "\t.set L$set$%d,LEFDE%d-LASFDE%d\n" - "\t.long L$set$%d\n" - "LASFDE%d:\n" - "\t.long LASFDE%d-EH_frame1\n" - "\t.long %s-.\n" - "\t.long %d\n" - "\t.byte 0\n" /* augmentation length */ - "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ -#if LJ_64 - "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */ - "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */ - "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */ - "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */ -#else - "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ - "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ - "\t.byte 0x86\n\t.byte 0x4\n" /* offset esi */ - "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ -#endif - "\t.align " BSZPTR "\n" - "LEFDE%d:\n\n", - name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i); - } -#if LJ_HASFFI - if (fcsize) { - fprintf(ctx->fp, - "EH_frame2:\n" - "\t.set L$set$y,LECIEY-LSCIEY\n" - "\t.long L$set$y\n" - "LSCIEY:\n" - "\t.long 0\n" - "\t.byte 0x1\n" - "\t.ascii \"zR\\0\"\n" - "\t.byte 0x1\n" - "\t.byte 128-" SZPTR "\n" - "\t.byte " REG_RA "\n" - "\t.byte 1\n" /* augmentation length */ -#if LJ_64 - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" -#else - "\t.byte 0x1b\n" /* pcrel|sdata4 */ - "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH. */ -#endif - "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" - "\t.align " BSZPTR "\n" - "LECIEY:\n\n"); - fprintf(ctx->fp, - "_lj_vm_ffi_call.eh:\n" - "LSFDEY:\n" - "\t.set L$set$yy,LEFDEY-LASFDEY\n" - "\t.long L$set$yy\n" - "LASFDEY:\n" - "\t.long LASFDEY-EH_frame2\n" - "\t.long _lj_vm_ffi_call-.\n" - "\t.long %d\n" - "\t.byte 0\n" /* augmentation length */ -#if LJ_64 - "\t.byte 0xe\n\t.byte 16\n" /* def_cfa_offset */ - "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */ - "\t.byte 0xd\n\t.byte 0x6\n" /* def_cfa_register rbp */ - "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */ -#else - "\t.byte 0xe\n\t.byte 8\n" /* def_cfa_offset */ - "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ - "\t.byte 0xd\n\t.byte 0x4\n" /* def_cfa_register ebp */ - "\t.byte 0x83\n\t.byte 0x3\n" /* offset ebx */ -#endif - "\t.align " BSZPTR "\n" - "LEFDEY:\n\n", fcsize); - } -#endif -#if !LJ_64 - fprintf(ctx->fp, - "\t.non_lazy_symbol_pointer\n" - "L_lj_err_unwind_dwarf$non_lazy_ptr:\n" - ".indirect_symbol _lj_err_unwind_dwarf\n" - ".long 0\n\n"); - fprintf(ctx->fp, "\t.section __IMPORT,__jump_table,symbol_stubs,pure_instructions+self_modifying_code,5\n"); - { - const char *const *xn; - for (xn = ctx->extnames; *xn; xn++) - if (strncmp(*xn, LABEL_PREFIX, sizeof(LABEL_PREFIX)-1)) - fprintf(ctx->fp, "L_%s$stub:\n\t.indirect_symbol _%s\n\t.ascii \"\\364\\364\\364\\364\\364\"\n", *xn, *xn); - } -#endif - fprintf(ctx->fp, ".subsections_via_symbols\n"); - } - break; - default: /* Difficult for other modes. */ - break; - } -} - diff --git a/src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat b/src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat deleted file mode 100644 index b4f236ed2e6..00000000000 --- a/src/3rd party/luajit-2.0-BAK/src/xedkbuild.bat +++ /dev/null @@ -1,92 +0,0 @@ -@rem Script to build LuaJIT with the Xbox 360 SDK. -@rem Donated to the public domain. -@rem -@rem Open a "Visual Studio .NET Command Prompt" (32 bit host compiler) -@rem Then cd to this directory and run this script. - -@if not defined INCLUDE goto :FAIL -@if not defined XEDK goto :FAIL - -@setlocal -@rem ---- Host compiler ---- -@set LJCOMPILE=cl /nologo /c /MD /O2 /W3 /D_CRT_SECURE_NO_DEPRECATE -@set LJLINK=link /nologo -@set LJMT=mt /nologo -@set DASMDIR=..\dynasm -@set DASM=%DASMDIR%\dynasm.lua -@set ALL_LIB=lib_base.c lib_math.c lib_bit.c lib_string.c lib_table.c lib_io.c lib_os.c lib_package.c lib_debug.c lib_jit.c lib_ffi.c - -%LJCOMPILE% host\minilua.c -@if errorlevel 1 goto :BAD -%LJLINK% /out:minilua.exe minilua.obj -@if errorlevel 1 goto :BAD -if exist minilua.exe.manifest^ - %LJMT% -manifest minilua.exe.manifest -outputresource:minilua.exe - -@rem Error out for 64 bit host compiler -@minilua -@if errorlevel 8 goto :FAIL - -@set DASMFLAGS=-D GPR64 -D FRAME32 -D PPE -D SQRT -D DUALNUM -minilua %DASM% -LN %DASMFLAGS% -o host\buildvm_arch.h vm_ppc.dasc -@if errorlevel 1 goto :BAD - -%LJCOMPILE% /I "." /I %DASMDIR% /D_XBOX_VER=200 /DLUAJIT_TARGET=LUAJIT_ARCH_PPC host\buildvm*.c -@if errorlevel 1 goto :BAD -%LJLINK% /out:buildvm.exe buildvm*.obj -@if errorlevel 1 goto :BAD -if exist buildvm.exe.manifest^ - %LJMT% -manifest buildvm.exe.manifest -outputresource:buildvm.exe - -buildvm -m peobj -o lj_vm.obj -@if errorlevel 1 goto :BAD -buildvm -m bcdef -o lj_bcdef.h %ALL_LIB% -@if errorlevel 1 goto :BAD -buildvm -m ffdef -o lj_ffdef.h %ALL_LIB% -@if errorlevel 1 goto :BAD -buildvm -m libdef -o lj_libdef.h %ALL_LIB% -@if errorlevel 1 goto :BAD -buildvm -m recdef -o lj_recdef.h %ALL_LIB% -@if errorlevel 1 goto :BAD -buildvm -m vmdef -o jit\vmdef.lua %ALL_LIB% -@if errorlevel 1 goto :BAD -buildvm -m folddef -o lj_folddef.h lj_opt_fold.c -@if errorlevel 1 goto :BAD - -@rem ---- Cross compiler ---- -@set LJCOMPILE="%XEDK%\bin\win32\cl" /nologo /c /MT /O2 /W3 /GF /Gm- /GR- /GS- /Gy /openmp- /D_CRT_SECURE_NO_DEPRECATE /DNDEBUG /D_XBOX /D_LIB /DLUAJIT_USE_SYSMALLOC -@set LJLIB="%XEDK%\bin\win32\lib" /nologo -@set "INCLUDE=%XEDK%\include\xbox" - -@if "%1" neq "debug" goto :NODEBUG -@shift -@set "LJCOMPILE=%LJCOMPILE% /Zi" -:NODEBUG -@if "%1"=="amalg" goto :AMALG -%LJCOMPILE% /DLUA_BUILD_AS_DLL lj_*.c lib_*.c -@if errorlevel 1 goto :BAD -%LJLIB% /OUT:luajit20.lib lj_*.obj lib_*.obj -@if errorlevel 1 goto :BAD -@goto :NOAMALG -:AMALG -%LJCOMPILE% /DLUA_BUILD_AS_DLL ljamalg.c -@if errorlevel 1 goto :BAD -%LJLIB% /OUT:luajit20.lib ljamalg.obj lj_vm.obj -@if errorlevel 1 goto :BAD -:NOAMALG - -@del *.obj *.manifest minilua.exe buildvm.exe -@echo. -@echo === Successfully built LuaJIT for Xbox 360 === - -@goto :END -:BAD -@echo. -@echo ******************************************************* -@echo *** Build FAILED -- Please check the error messages *** -@echo ******************************************************* -@goto :END -:FAIL -@echo To run this script you must open a "Visual Studio .NET Command Prompt" -@echo (32 bit host compiler). The Xbox 360 SDK must be installed, too. -:END diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 28a0c23cd33..cbeccd0ca0c 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -10,7 +10,7 @@ //-SCRIPTS // CORE: -//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) +#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index e50ddcb5e09..734d187add6 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -293,6 +293,21 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { + //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases + //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash +#ifdef SPAWN_ANTIFREEZE + for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) + { + const NET_Event& E = *it; + NET_Packet P; + if (M_SPAWN != E.ID) continue; + E.implication(P); + u16 parent_id; + if (GO->ID() == GetSpawnInfo(P, parent_id)) + spawn_events->queue.erase(it); // if parent is being destroyed, delete all queued up children + } +#endif + //-AVO Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -354,7 +369,7 @@ void CLevel::ProcessGameEvents() u32 svT = timeServer() - NET_Latency; //AVO: spawn antifreeze implementation by alpet -#ifdef SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE while (spawn_events->available(svT)) { u16 ID, dest, type; @@ -365,7 +380,6 @@ void CLevel::ProcessGameEvents() u32 elps = Device.frame_elapsed(); if (elps < 30) avail_time = 33 - elps; u32 work_limit = elps + avail_time; - #endif //-AVO @@ -374,7 +388,7 @@ void CLevel::ProcessGameEvents() u16 ID, dest, type; game_events->get(ID, dest, type, P); //AVO: spawn antifreeze implementation by alpet -#ifdef SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE // не отправлять события не заспавненным объектам if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) { diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index fcd8f22bc6a..d049f1718f6 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -249,7 +249,7 @@ true true true - + UseLinkTimeCodeGeneration false $(xrLibDir)$(TargetName).lib @@ -306,8 +306,7 @@ true true true - - + UseLinkTimeCodeGeneration false $(xrLibDir)$(TargetName).lib From 6f60d473395c4be6391bae811950226d0bd0ebec Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Tue, 20 Jan 2015 02:26:28 -0500 Subject: [PATCH 080/166] + restored config defined sun movement (toggle with define DYNAMIC_SUN_MOVEMENT) (http://www.gameru.net/forum/index.php?s=60035caee507a30d0e288dd9d04bb20f&showtopic=55777&view=findpost&p=1499977) + restored collision with dead bodies (toggle with define DEAD_BODY_COLLISION). Thanks to malandrinus --- src/build_config_defines.h | 2 ++ src/engine.favdoc | 20 ++++++++++++++++++++ src/xrEngine/Environment.cpp | 6 ++++++ src/xrGame/CharacterPhysicsSupport.cpp | 6 ++++++ src/xrGame/xrGame.vcxproj | 3 ++- 5 files changed, 36 insertions(+), 1 deletion(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index cbeccd0ca0c..916365e0672 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -24,6 +24,8 @@ // TWEAKS: #define FP_DEATH // first person death view +#define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) #define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define #define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define +//#define DYNAMIC_SUN_MOVEMENT // use dynamic sun movement. If this is not defined sun will move as configured in weather ltx files //-TWEAKS \ No newline at end of file diff --git a/src/engine.favdoc b/src/engine.favdoc index bc45c5e5473..8a0c4806480 100644 --- a/src/engine.favdoc +++ b/src/engine.favdoc @@ -36,6 +36,26 @@ + + Console + + + xr_ioc_cmd.cpp + xrEngine\xr_ioc_cmd.cpp + G:\Stalker\COP\Engine\xray-16\src\xrEngine\xr_ioc_cmd.cpp + + + console_commands.cpp + xrGame\console_commands.cpp + G:\Stalker\COP\Engine\xray-16\src\xrGame\console_commands.cpp + + + Stats.cpp + xrEngine\Stats.cpp + G:\Stalker\COP\Engine\xray-16\src\xrEngine\Stats.cpp + + + \ No newline at end of file diff --git a/src/xrEngine/Environment.cpp b/src/xrEngine/Environment.cpp index b63caf58830..8db926782fb 100644 --- a/src/xrEngine/Environment.cpp +++ b/src/xrEngine/Environment.cpp @@ -14,6 +14,8 @@ #include "xr_input.h" +#include "../build_config_defines.h" + //#include "resourcemanager.h" #ifndef _EDITOR @@ -538,8 +540,12 @@ void CEnvironment::OnFrame() lerp(current_weight); // Igor. Dynamic sun position. + //AVO: allow sun to move as defined in configs +#ifdef DYNAMIC_SUN_MOVEMENT if (!::Render->is_sun_static()) calculate_dynamic_sun_dir(); +#endif + //-AVO #ifndef MASTER_GOLD if (CurrentEnv->sun_dir.y > 0) diff --git a/src/xrGame/CharacterPhysicsSupport.cpp b/src/xrGame/CharacterPhysicsSupport.cpp index 20eae8de3cb..d63602f854f 100644 --- a/src/xrGame/CharacterPhysicsSupport.cpp +++ b/src/xrGame/CharacterPhysicsSupport.cpp @@ -39,6 +39,8 @@ #include "activatingcharcollisiondelay.h" #include "stalker_movement_manager_smart_cover.h" +#include "../build_config_defines.h" + //const float default_hinge_friction = 5.f;//gray_wolf comment #ifdef DEBUG # include "PHDebug.h" @@ -1167,7 +1169,11 @@ void CCharacterPhysicsSupport:: CreateShell ( CObject* who, Fvector& dp, Fv if(IsGameTypeSingle()) { m_pPhysicsShell->SetPrefereExactIntegration ();//use exact integration for ragdolls in single + //AVO: turn on collision with dead bodies (thanks malandrinus) +#ifndef DEAD_BODY_COLLISION m_pPhysicsShell->SetRemoveCharacterCollLADisable(); +#endif + //-AVO } else m_pPhysicsShell->SetIgnoreDynamic(); diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index d049f1718f6..0e2cdff946e 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -233,8 +233,9 @@ true ProgramDatabase 4995;4005;4237;%(DisableSpecificWarnings) - true + false USE_LUAJIT_ONE + true NDEBUG;%(PreprocessorDefinitions) From 125bd5d1e5f3f0a1460a3f164f6e97d876632724 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 21 Jan 2015 15:24:58 -0500 Subject: [PATCH 081/166] = fix for issue #13 + new splash logo - SPAWN_ANTIFREEZE fix attempt (still seeing same issues with incorrect destroy sequence) --- src/build_config_defines.h | 2 +- src/xrCore/xrDebugNew.cpp | 304 ++++++++++++++++++++++---------- src/xrEngine/splash_xrcs_en.bmp | Bin 402056 -> 402056 bytes src/xrGame/Level.cpp | 4 +- 4 files changed, 210 insertions(+), 100 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 916365e0672..cac863a9728 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -10,6 +10,7 @@ //-SCRIPTS // CORE: +#define NO_BUG_TRAP // dont use bug trap #define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator @@ -18,7 +19,6 @@ // VISUAL: #define DETAIL_RADIUS // detail draw radius (by KD) #define VSYNC_FIX // functional VSync by avbaula -//ECO_RENDER is not needed with VSYNC_FIX enabled #define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) //-VISUAL diff --git a/src/xrCore/xrDebugNew.cpp b/src/xrCore/xrDebugNew.cpp index 08fd77289fb..874a8f40b43 100644 --- a/src/xrCore/xrDebugNew.cpp +++ b/src/xrCore/xrDebugNew.cpp @@ -13,6 +13,8 @@ #include #pragma warning(pop) +#include "../build_config_defines.h" + extern bool shared_str_initialized; #ifdef __BORLANDC__ @@ -24,7 +26,9 @@ extern bool shared_str_initialized; static BOOL bException = TRUE; # define USE_BUG_TRAP #else -//# define USE_BUG_TRAP +#ifndef NO_BUG_TRAP +# define USE_BUG_TRAP +#endif //-!NO_BUG_TRAP # define DEBUG_INVOKE __asm int 3 static BOOL bException = FALSE; #endif @@ -53,11 +57,11 @@ static BOOL bException = FALSE; #include // for _set_new_mode #include // for signals -#if 1//def DEBUG +#ifdef NO_BUG_TRAP //DEBUG # define USE_OWN_ERROR_MESSAGE_WINDOW -#else // DEBUG +#else # define USE_OWN_MINI_DUMP -#endif // DEBUG +#endif //-NO_BUG_TRAP //DEBUG XRCORE_API xrDebug Debug; @@ -84,7 +88,7 @@ void xrDebug::gather_info(const char* expression, const char* description, const { LPSTR buffer_base = assertion_info; LPSTR buffer = assertion_info; - int assertion_size = (int)assertion_info_size; + int assertion_size = (int) assertion_info_size; LPCSTR endline = "\n"; LPCSTR prefix = "[error]"; bool extended_description = (description && !argument0 && strchr(description, '\n')); @@ -143,7 +147,7 @@ void xrDebug::gather_info(const char* expression, const char* description, const #ifdef USE_MEMORY_MONITOR memory_monitor::flush_each_time(true); memory_monitor::flush_each_time(false); -#endif // USE_MEMORY_MONITOR +#endif //-USE_MEMORY_MONITOR if (!IsDebuggerPresent() && !strstr(GetCommandLine(), "-no_call_stack_assert")) { @@ -152,7 +156,7 @@ void xrDebug::gather_info(const char* expression, const char* description, const #ifdef USE_OWN_ERROR_MESSAGE_WINDOW buffer += xr_sprintf(buffer, assertion_size - u32(buffer - buffer_base), "stack trace:%s%s", endline, endline); -#endif // USE_OWN_ERROR_MESSAGE_WINDOW +#endif //-USE_OWN_ERROR_MESSAGE_WINDOW BuildStackTrace(); @@ -163,7 +167,7 @@ void xrDebug::gather_info(const char* expression, const char* description, const #ifdef USE_OWN_ERROR_MESSAGE_WINDOW buffer += xr_sprintf(buffer, assertion_size - u32(buffer - buffer_base), "%s%s", g_stackTrace[i], endline); -#endif // USE_OWN_ERROR_MESSAGE_WINDOW +#endif //-USE_OWN_ERROR_MESSAGE_WINDOW } if (shared_str_initialized) @@ -180,13 +184,53 @@ void xrDebug::do_exit(const std::string& message) TerminateProcess(GetCurrentProcess(), 1); } +#ifdef NO_BUG_TRAP +//AVO: simplified function +void xrDebug::backend(const char* expression, const char* description, const char* argument0, const char* argument1, const char* file, int line, const char* function, bool& ignore_always) +{ + static xrCriticalSection CS +#ifdef PROFILE_CRITICAL_SECTIONS + (MUTEX_PROFILE_ID(xrDebug::backend)) +#endif //-PROFILE_CRITICAL_SECTIONS + ; + + CS.Enter(); + + string4096 assertion_info; + + gather_info(expression, description, argument0, argument1, file, line, function, assertion_info, sizeof(assertion_info)); + + LPCSTR endline = "\r\n"; + LPSTR buffer = assertion_info + xr_strlen(assertion_info); + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress OK to abort execution%s", endline, endline); + + if (handler) + handler(); + + FlushLog(); + + ShowCursor(true); + ShowWindow(GetActiveWindow(), SW_FORCEMINIMIZE); + MessageBox( + GetTopWindow(NULL), + assertion_info, + "Fatal Error", + MB_OK | MB_ICONERROR | MB_SYSTEMMODAL + ); + + CS.Leave(); + + TerminateProcess(GetCurrentProcess(), 1); +} +//-AVO +#else void xrDebug::backend(const char* expression, const char* description, const char* argument0, const char* argument1, const char* file, int line, const char* function, bool& ignore_always) { static xrCriticalSection CS #ifdef PROFILE_CRITICAL_SECTIONS - (MUTEX_PROFILE_ID(xrDebug::backend)) + (MUTEX_PROFILE_ID(xrDebug::backend)) #endif // PROFILE_CRITICAL_SECTIONS - ; + ; CS.Enter(); @@ -221,10 +265,10 @@ void xrDebug::backend(const char* expression, const char* description, const cha ShowWindow(GetActiveWindow(), SW_FORCEMINIMIZE); int result = MessageBox( - GetTopWindow(NULL), - assertion_info, - "Fatal Error", - /*MB_CANCELTRYCONTINUE*/MB_OK | MB_ICONERROR | /*MB_SYSTEMMODAL |*/ MB_DEFBUTTON1 | MB_SETFOREGROUND + GetTopWindow(NULL), + assertion_info, + "Fatal Error", + /*MB_CANCELTRYCONTINUE*/MB_OK | MB_ICONERROR | /*MB_SYSTEMMODAL |*/ MB_DEFBUTTON1 | MB_SETFOREGROUND ); switch (result) @@ -268,8 +312,8 @@ void xrDebug::backend(const char* expression, const char* description, const cha get_on_dialog() (false); CS.Leave(); - } +#endif LPCSTR xrDebug::error2string(long code) { @@ -375,8 +419,8 @@ int out_of_memory_handler(size_t size) { Memory.mem_compact(); size_t process_heap = Memory.mem_usage(); - int eco_strings = (int)g_pStringContainer->stat_economy(); - int eco_smem = (int)g_pSharedMemoryContainer->stat_economy(); + int eco_strings = (int) g_pStringContainer->stat_economy(); + int eco_smem = (int) g_pSharedMemoryContainer->stat_economy(); Msg("* [x-ray]: process heap[%u K]", process_heap / 1024, process_heap / 1024); Msg("* [x-ray]: economy: strings[%d K], smem[%d K]", eco_strings / 1024, eco_smem); } @@ -442,11 +486,11 @@ void SetupExceptionHandler(const bool& dedicated) BT_SetDialogMessage( BTDM_INTRO2, "\ - This is X-Ray Engine v1.6 crash reporting client. \ - To help the development process, \ - please Submit Bug or save report and email it manually (button More...).\ - \r\nMany thanks in advance and sorry for the inconvenience." - ); + This is X-Ray Engine v1.6 crash reporting client. \ + To help the development process, \ + please Submit Bug or save report and email it manually (button More...).\ + \r\nMany thanks in advance and sorry for the inconvenience." + ); BT_SetPreErrHandler(PreErrorHandler, 0); BT_SetAppName("XRay Engine"); @@ -456,46 +500,46 @@ void SetupExceptionHandler(const bool& dedicated) u32 const minidump_flags = #ifndef MASTER_GOLD ( - MiniDumpWithDataSegs | - // MiniDumpWithFullMemory | - // MiniDumpWithHandleData | - // MiniDumpFilterMemory | - // MiniDumpScanMemory | - // MiniDumpWithUnloadedModules | + MiniDumpWithDataSegs | + // MiniDumpWithFullMemory | + // MiniDumpWithHandleData | + // MiniDumpFilterMemory | + // MiniDumpScanMemory | + // MiniDumpWithUnloadedModules | # ifndef _EDITOR - MiniDumpWithIndirectlyReferencedMemory | + MiniDumpWithIndirectlyReferencedMemory | # endif // _EDITOR - // MiniDumpFilterModulePaths | - // MiniDumpWithProcessThreadData | - // MiniDumpWithPrivateReadWriteMemory | - // MiniDumpWithoutOptionalData | - // MiniDumpWithFullMemoryInfo | - // MiniDumpWithThreadInfo | - // MiniDumpWithCodeSegs | - 0 + // MiniDumpFilterModulePaths | + // MiniDumpWithProcessThreadData | + // MiniDumpWithPrivateReadWriteMemory | + // MiniDumpWithoutOptionalData | + // MiniDumpWithFullMemoryInfo | + // MiniDumpWithThreadInfo | + // MiniDumpWithCodeSegs | + 0 ); #else // #ifndef MASTER_GOLD dedicated ? - MiniDumpNoDump : - ( - MiniDumpWithDataSegs | - // MiniDumpWithFullMemory | - // MiniDumpWithHandleData | - // MiniDumpFilterMemory | - // MiniDumpScanMemory | - // MiniDumpWithUnloadedModules | + MiniDumpNoDump : + ( + MiniDumpWithDataSegs | + // MiniDumpWithFullMemory | + // MiniDumpWithHandleData | + // MiniDumpFilterMemory | + // MiniDumpScanMemory | + // MiniDumpWithUnloadedModules | # ifndef _EDITOR - MiniDumpWithIndirectlyReferencedMemory | + MiniDumpWithIndirectlyReferencedMemory | # endif // _EDITOR - // MiniDumpFilterModulePaths | - // MiniDumpWithProcessThreadData | - // MiniDumpWithPrivateReadWriteMemory | - // MiniDumpWithoutOptionalData | - // MiniDumpWithFullMemoryInfo | - // MiniDumpWithThreadInfo | - // MiniDumpWithCodeSegs | - 0 - ); + // MiniDumpFilterModulePaths | + // MiniDumpWithProcessThreadData | + // MiniDumpWithPrivateReadWriteMemory | + // MiniDumpWithoutOptionalData | + // MiniDumpWithFullMemoryInfo | + // MiniDumpWithThreadInfo | + // MiniDumpWithCodeSegs | + 0 + ); #endif // #ifndef MASTER_GOLD BT_SetDumpType(minidump_flags); @@ -503,9 +547,8 @@ void SetupExceptionHandler(const bool& dedicated) // BT_SetSupportServer ("localhost", 9999); // BT_SetSupportURL ("www.gsc-game.com"); } -#endif // USE_BUG_TRAP +#endif //-USE_BUG_TRAP -#if 1 extern void BuildStackTrace(struct _EXCEPTION_POINTERS* pExceptionInfo); typedef LONG WINAPI UnhandledExceptionFilterType(struct _EXCEPTION_POINTERS* pExceptionInfo); typedef LONG(__stdcall* PFNCHFILTFN) (EXCEPTION_POINTERS* pExPtrs); @@ -515,10 +558,10 @@ static UnhandledExceptionFilterType* previous_filter = 0; #ifdef USE_OWN_MINI_DUMP typedef BOOL (WINAPI* MINIDUMPWRITEDUMP)(HANDLE hProcess, DWORD dwPid, HANDLE hFile, MINIDUMP_TYPE DumpType, - CONST PMINIDUMP_EXCEPTION_INFORMATION ExceptionParam, - CONST PMINIDUMP_USER_STREAM_INFORMATION UserStreamParam, - CONST PMINIDUMP_CALLBACK_INFORMATION CallbackParam - ); + CONST PMINIDUMP_EXCEPTION_INFORMATION ExceptionParam, + CONST PMINIDUMP_USER_STREAM_INFORMATION UserStreamParam, + CONST PMINIDUMP_CALLBACK_INFORMATION CallbackParam + ); void save_mini_dump (_EXCEPTION_POINTERS* pExceptionInfo) { @@ -625,7 +668,7 @@ void save_mini_dump (_EXCEPTION_POINTERS* pExceptionInfo) szResult = "DBGHELP.DLL not found"; } } -#endif // USE_OWN_MINI_DUMP +#endif //-USE_OWN_MINI_DUMP void format_message(LPSTR buffer, const u32& buffer_size) { @@ -644,10 +687,10 @@ void format_message(LPSTR buffer, const u32& buffer_size) NULL, error_code, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), - (LPSTR)&message, + (LPSTR) &message, 0, NULL - ); + ); xr_sprintf(buffer, buffer_size, "[error][%8d] : %s", error_code, message); LocalFree(message); @@ -656,8 +699,67 @@ void format_message(LPSTR buffer, const u32& buffer_size) #ifndef _EDITOR #include #pragma comment( lib, "faultrep.lib" ) -#endif +#endif //-!_EDITOR +#ifdef NO_BUG_TRAP +//AVO: simplify function +LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) +{ + string256 error_message; + format_message(error_message, sizeof(error_message)); + + CONTEXT save = *pExceptionInfo->ContextRecord; + BuildStackTrace(pExceptionInfo); + *pExceptionInfo->ContextRecord = save; + + if (shared_str_initialized) + Msg("stack trace:\n"); + + if (!IsDebuggerPresent()) + { + os_clipboard::copy_to_clipboard("stack trace:\r\n\r\n"); + } + + string4096 buffer; + for (int i = 0; i < g_stackTraceCount; ++i) + { + if (shared_str_initialized) + Msg("%s", g_stackTrace[i]); + xr_sprintf(buffer, sizeof(buffer), "%s\r\n", g_stackTrace[i]); +#ifdef DEBUG + if (!IsDebuggerPresent()) + os_clipboard::update_clipboard(buffer); +#endif //-DEBUG + } + + if (*error_message) + { + if (shared_str_initialized) + Msg("\n%s", error_message); + + xr_strcat(error_message, sizeof(error_message), "\r\n"); +#ifdef DEBUG + if (!IsDebuggerPresent()) + os_clipboard::update_clipboard(buffer); +#endif //-DEBUG + } + + FlushLog(); + + ShowCursor(true); + ShowWindow(GetActiveWindow(), SW_FORCEMINIMIZE); + MessageBox( + GetTopWindow(NULL), + "Unhandled exception occured. See log for details", + "Fatal Error", + MB_OK | MB_ICONERROR | MB_SYSTEMMODAL + ); + TerminateProcess(GetCurrentProcess(), 1); + + return (EXCEPTION_CONTINUE_SEARCH); +} +//-AVO +#else LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) { string256 error_message; @@ -686,7 +788,7 @@ LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) #ifdef DEBUG if (!IsDebuggerPresent()) os_clipboard::update_clipboard(buffer); -#endif // #ifdef DEBUG +#endif //-DEBUG } if (*error_message) @@ -698,7 +800,7 @@ LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) #ifdef DEBUG if (!IsDebuggerPresent()) os_clipboard::update_clipboard(buffer); -#endif // #ifdef DEBUG +#endif //-DEBUG } } @@ -714,9 +816,14 @@ LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) { if (Debug.get_on_dialog()) Debug.get_on_dialog() (true); - - MessageBox(NULL, "Fatal error occured\n\nPress OK to abort program execution", "Fatal error", MB_OK | MB_ICONERROR | MB_SYSTEMMODAL); + MessageBox( + NULL, + "Fatal error occured\n\nPress OK to abort program execution", + "Fatal Error", + MB_OK | MB_ICONERROR | MB_SYSTEMMODAL + ); } + #endif // USE_OWN_ERROR_MESSAGE_WINDOW #ifndef _EDITOR @@ -739,16 +846,15 @@ LONG WINAPI UnhandledFilter(_EXCEPTION_POINTERS* pExceptionInfo) if (Debug.get_on_dialog()) Debug.get_on_dialog() (false); #endif // USE_OWN_ERROR_MESSAGE_WINDOW - return (EXCEPTION_CONTINUE_SEARCH); } -#endif +#endif //-NO_BUG_TRAP ////////////////////////////////////////////////////////////////////// #ifdef M_BORLAND namespace std { -extern new_handler _RTLENTRY _EXPFUNC set_new_handler( new_handler new_p ); + extern new_handler _RTLENTRY _EXPFUNC set_new_handler(new_handler new_p); }; static void __cdecl def_new_handler() @@ -768,8 +874,9 @@ typedef int(__cdecl* _PNH)(size_t); _CRTIMP int __cdecl _set_new_mode(int); _CRTIMP _PNH __cdecl _set_new_handler(_PNH); +#ifdef LEGACY_CODE #ifndef USE_BUG_TRAP -void _terminate () +void _terminate() { if (strstr(GetCommandLine(),"-silent_error_mode")) exit (-1); @@ -795,7 +902,7 @@ void _terminate () "", #endif // _EDITOR assertion_info - ); + ); LPCSTR endline = "\r\n"; LPSTR buffer = assertion_info + xr_strlen(assertion_info); @@ -806,12 +913,13 @@ void _terminate () assertion_info, "Fatal Error", MB_OK|MB_ICONERROR|MB_SYSTEMMODAL - ); + ); exit (-1); // FATAL ("Unexpected application termination"); } -#endif // USE_BUG_TRAP +#endif //-!USE_BUG_TRAP +#endif //-LEGACY_CODE static void handler_base(LPCSTR reason_string) { @@ -823,7 +931,7 @@ static void handler_base(LPCSTR reason_string) 0, DEBUG_INFO, ignore_always - ); + ); } static void invalid_parameter_handler( @@ -832,7 +940,7 @@ static void invalid_parameter_handler( const wchar_t* file, unsigned int line, uintptr_t reserved -) + ) { bool ignore_always = false; @@ -843,33 +951,33 @@ static void invalid_parameter_handler( // errno_t err = if (expression) wcstombs_s( - &converted_chars, - expression_, - sizeof(expression_), - expression, - (wcslen(expression) + 1) * 2 * sizeof(char) + &converted_chars, + expression_, + sizeof(expression_), + expression, + (wcslen(expression) + 1) * 2 * sizeof(char) ); else xr_strcpy(expression_, ""); if (function) wcstombs_s( - &converted_chars, - function_, - sizeof(function_), - function, - (wcslen(function) + 1) * 2 * sizeof(char) + &converted_chars, + function_, + sizeof(function_), + function, + (wcslen(function) + 1) * 2 * sizeof(char) ); else xr_strcpy(function_, __FUNCTION__); if (file) wcstombs_s( - &converted_chars, - file_, - sizeof(file_), - file, - (wcslen(file) + 1) * 2 * sizeof(char) + &converted_chars, + file_, + sizeof(file_), + file, + (wcslen(file) + 1) * 2 * sizeof(char) ); else { @@ -886,7 +994,7 @@ static void invalid_parameter_handler( line, function_, ignore_always - ); + ); } static void pure_call_handler() @@ -895,9 +1003,9 @@ static void pure_call_handler() } #ifdef XRAY_USE_EXCEPTIONS -static void unexpected_handler () +static void unexpected_handler() { - handler_base ("unexpected program termination"); + handler_base("unexpected program termination"); } #endif // XRAY_USE_EXCEPTIONS @@ -952,7 +1060,7 @@ void debug_on_thread_spawn() _set_purecall_handler(&pure_call_handler); #if 0// should be if we use exceptions - std::set_unexpected (_terminate); + std::set_unexpected(_terminate); #endif } @@ -972,7 +1080,7 @@ void xrDebug::_initialize(const bool& dedicated) #if 0 struct foo { - static void recurs (const u32& count) + static void recurs(const u32& count) { if (!count) return; diff --git a/src/xrEngine/splash_xrcs_en.bmp b/src/xrEngine/splash_xrcs_en.bmp index 5bbeec86893bb80441f092cb6f376a56ddace46e..93c7fadd5deca388d6c1147cc02fe94cd49a9dc0 100644 GIT binary patch literal 402056 zcmbr{*K=iAb|&_&s-c?p*R%TXanJ(MiB%9(9=ZdX(IH0=nv3upHmH1aJoq<8g=s4!ND>6Z1b&e zeQWJ~SNDIBIQN6_)9^3l-~ap04}NgjzjuDn8xH^A$lu#9{UG`m9q`fL*W1<!x<8vxmoR}zNGv!8YIx&{$ z>gq{Orc1?2Pf!2g;7C539~m0z?&xT5ZSCpm>S*t3ZEYJJ8t(7yYin)m>FU0E?tHH9DS@1L5O932|EcI8S}M@LtC``FM>e^1Ya^A|2& zyqFjnDHrnos-TKHHazSBiIL&)u~Dx)IXRh0r@Fej5@TaS1A~JD16`e69(wg!YhVAs z*u;2pD%sQ9d-?K}uFg=tt5+^xx^&5}7cQJ{Z@qS@rKPjILyuq8~fa6<04^YB}%SE?hW!_FQ{gTOu)f>GGBHEf=p|zHAG{yL9P_B3`~6?iKCC z_jFr-zjpP?xpU{vpFgiuW5Xk3qhqB)pc>fB(VV zdynovhM@Bk(dpbKhJ6qeXv|Q3SEtju^TDW?x+uKJ+hY#-E%cL^BJv}qc z=HBkE{posrw%J@;UK$=5R@&aaUc;@Yx2IIh*J~AxI5joV+t)L!>w2rc-ih(Ck&)q^ zzP?;GH`AO+r!x6`eqdm5cw}^RbgaFzvtF+)FD>bxlM@pL*p<-6hC}~EVtjOXq*1Sr zkB=u338!CeZJV4*Zf7^#QjrMi3iN~O}|lzPoLSglqyXth?&=Ca$H8+UFUuPiRCEG-=0ys@>ml1n8=2Ky(+ zMhlq~l*mjab^gA-?jhr|Urls-slL7**fKcK=YXxVz5U#U^C!nQUw-uA%F5E_rY^HK zJ2zXa*F3ILDK9L{dm~-i0D)I}tWOPLn(-?TsIQ{Y7#j(Qd3kuGTQjd>DcHoelEnau+UMP>aP}wqC6i zi-l^XY{y=;Qu4n_rBnuhrDCmGnVGI9CnoaQjC1n&Tp^b+Hg%e-y6=Sx?hZd8PikVk zkb#6_`pnY8T&-Lh9UkiG?j9Z+;m;p;K$J5U_wRp_j+Fg zr>k$E9j^H7>be3wy1R{>b1j$JIy<|1doBZ_D_8Ygom@{g;$79-+cPnq0FSC2uIWp< zLwI6;-_X#2s)OsfY&w_AluL!_dUd8zt5?c!$Y^W3*51?A*W2UV;l94%_V%7@t)1Q7 zgJUDfiSbNwB0D*evon=c0mW2G$Cz21Ur9}6+S)sGn`|a`t*x`GyRT7e!1ilbuC-pd z3bA2(Pj}DIfaec&cXq4(3l}bifvn7zF8g#s+&YR68GyE$VF>)HN{9OU419fHbZ{^L zSxXCGuNI5STrCyL#e&v!PES`SNSL3SF$7fI&@g)hB>bgMRkvMhYj5uyG6+XTCzDAd zQFSR>XFL0H=|amz1%O4ZSFX5!1Tr0M*RGBX^o|Y=j1Kl|5oWWeyA!sf9u_dmsUJCHm)E1VUu9rpME(SSTLHp-TqzxW-t z!*Bi5O~P1@Hka61qb}{ZPUwkFdGE|Q*se}y8jYFh>9v)W-R+&@!=sa1x9*(WzJK@L z!}|~J+&Y2nj~+a{cjwOSTeo6h2VAiI_Q}cNjT<2S=bNcy&pUDYkIH#AV(gsRLdl(uX5h}l><;=Nr@4k0N-D;7u=gukqyJybm^g5V= zI&mtQJUl%7e4|kZp?lY_ClV7| zo13XrW_WZAeE0MZ%*@WEGMR~Fa(-@(jYe-&qpOOg()4tbb!awcpbD7&<3IYNm(M?J zHtHLzE9=Wk-U5ypKgC?S5$(6NT{8p>HMP|fA%(te6tn>9)@!}podXfPzx&>MTk9)d zeDPVKR9NwbE6dH9W@EZhsaEFZ=N9JY5{WSl;o3e#u(xM$pdWF}F_u%wOmZ@tnw%IN z!IaX;iKW@*Y@>Gn_VG`?{qleOAO7Rs*80VZ=cgvdKH+A>fPGgw!dbkSz5552HT*4(pi?(gEy>PLTv z4(iiQ#wW(NcXk$6)|NLm7gkrZ`NGoDa2W%|`!OpHMA$xsa$!U1^b~eC-<*b!9t|qHI&>wKJpkBopDWie_QA2y z$q9@-p-}98J~f2^;Dptg>A6a&j-u;$HlD!f$XK_|G&q798>zZLzh2?+Z*A_3iBJ1Eg(jJ_q`G&zw11V}Faqh31SN z$UL#9DjaV&fMG(hSXx_KV|i7wpYHDNFu2+R~HK(CGfO5 zkFJ%=sMp@^4#a-)`0@Ksp8^w~_Mbj^^5oIuCyyS1dPE(F=ECBwq7cK%rlnHxBe!6j-zP?1lfE&l*S%mZK$)!tR=j?^^ydVg#w9L?NR0oFGh*UIm_XdI;jwtd*DNXFmP-qyPM$|I>$0AMmVkyXzaP z4{jZP{_4fi{;u*E{%{XyfCxhZ;jx7tb>)g-s5}N5+rj#)fbFeKoCko>gk3pw#Q3#)AdDAJw7OdIl zuya7}+&c8B^&x|S!49P-$AOZ{?;qx$Obm{Ub@dGBO`VzGb|izvNQ{lQwG&GKZ!aGwIX*#I86QvP^Cd1PAjQ3G0ngjo zby+G=Pgl=iU?BKRYjS*CQPG}}!6Eq9Z!GrqcC@wsLrJ0{QFRQixb~P%ELTg7a&P+k zr)xExilJ=QtB&gxC_Bt+@95&W2mUrOq1=?5@81&;&Cbjk^SE4Jceg$OX7PLNh(}&C zz**{R_(_+}F+9-AR8Nk$7h7+F#N+0KKSUxi;too@a|Weoe!Qpd;a{xr;i`o0qhP!_{R?)!hhSH zJ9nNweG1_h78Yu?TB%f`RNTLJ53qBzYxVl->T0=CIl6h1E}_`o2WSTo;VP#%=v)`h zQm#=%HAvZHm%o~%g_n9`9wKCLqjA8m;{<8r&2ToBm&|=r~Uo? z#l%LB)b-(h+Jh&_{G?yL=_UyHDpZ5MHw7$|Y~*MSY$-D2<4%_bq} z+i$-4o4@(@H}|iDxJI>%x6d}}vyCeLtR8xMffeNhG6fIZj$Wz`Rh^zj4d|s+>h|qz zI(@B_|M=C5{r$bAm6d~o18zk{DXSG~()`>kP~wFem4KJXGc?eTn1SdR*a;WI1AQZd z0~2E-`E+t~W%0+~eDTSv=f(zpRmdb?K6~{0U;pqYUwl?Cc!~5e0E2F#^fm*3>;u#DcnjS6_3a; zF*XY1A-3TL$(a?x_teCADW8Ky>V(&c73f!_q{D+E!YwKfA9 zT6A@@5k^3#t+y8t_76q$n1^+~5e15=@sM}`0oXkb*9-Q)EN;$mpZjs-`in))fjT?hA;(l z^9d!@yv=xosoV!$bO^SO4owj_BUvWKcJQuQdE8!1Q(}EE+&+A=8P_q$+mDER@Ce*g zCy5z&H0pyMh_nZIzj%>J5AOx$B5cQa-H@Z81r-K*sID-GQ1swqhD}4;7?k*-9^uST zD)k-Ixyzu2jkvzE{ps7c&z?So?a!V)gV+EZ+S_^k>Q%fwix@jp$LC)>e-88QIQa7A z%W(4J$FvAS7K2E=r_a!8D7y3EX91IMG#Vo#Bdk|2O%W%z6N*b&H>4un=@i@HU|h*6 zg!<$p@1o3%qxuYbVg&E79eim)tQ+NoKY?rJ@@g5{Q*Kw+*PF9*gz8KxQZB_b}7MYy!H zwS}nb9~XfJFB@%jYUr=MNGBu0gt0`KOnPN$8COqEO<}wO4Lld*o8Acdoj`ThKbSn& z&WDIo_U48q}keLUv_- z=H}k^>cT8Y?CxyG*l+G^ynO%RfA=?k{rT$`v$cv*;BupNVssQ$Q$(X18oN1{+)fyl zSFUjOfdnCaeRbu=-X0ZPffR{_Z8U0py;`-bV1OO$3q;z0za!YZp~YX&M5+Qn!I`k5 z@Ph-vyUFJq;dEq!LPGu@Q#1amR}-e5KDwXJrcuJ+j|nD*&Tu|ZJHft=PD-ZD5HP-j zP+%0W>Cui->oz1x<3i8zC#>WA#S5r~SJqYN%_51}5cZl(rD!0%6Jx=D(Nc=aGD5`| z{mQw_vj_L${nl$-V?N(VQ2m8oSR%GWxAQ?C3nafAhXu&G<46G2VZP&dBH3)tmn&@F z3@Yv%=B&FLZU=}5>u%zp%VAXjrSL{q2X)b|PA81$CEp|1|NH;;zy9Kn|1d5OBv))6 zqKkB%0F^B*6C=2EC|i)*LV3Eq6u-<1^HcZ{Dl@*^XZ&`@``1s8cxdn+Ssg`>G#{Tcs1dh;jO#q<$Nuw~Y$PA2)pf>=%fgfDN zNH7P&0kI=&hkmpSRpF(WmdUVv?c1B1$A^amuDQASTCLuUp#0{+f!HE(#&7Tw10?^Ji-l9J?)?BB*)1p%5w>eD zjNNB=#lYlS&YeA{DUFn1AS27Df9clZj6rWeY}70*VtfKADHKbEQh97*LZA~VEmcaJ z+dH{piM$qKsVcp@d$u`Ef#l|(QiXh;Cp$Wppkwge5Ju)6+NRQ}(Xlajc=r57ml)B= zs&i7Qlo&j^1!=v-nX~6vQ-uiy>+CR&H06a$q?`8O?Y9PZi6IWI$fXvorZbEuMjh1X zp~)^^@=glnZn~tam=8DPg>`p#Ub=FLN1_7x)ObGQ0@P7EVvI{X&K=IutS(AHk}OiCNfx~BZKIv zLZVVZ1W@7t_25Aaaaim=fK_L^(XAeZsI;t;NrIkOtJO53CfMBASXo}CdZ;M-h}-BZ)8s&!twiEi|WT6S}LhZ&bRQ_jfC5h;R;dj$q||DOV92?+y$z3b_`tse30! zuU~xNy^IJ(j8dVXI3y(H{rDUZQ4*nGjY4@fCQYDS|Ix3!vQM?j4KdOYNbhI>=`(D~ z)Z{qsM}biQtuP_p%)ot*zJ7oIfBNtLqb)uHA!%UW|LZ@y56tuVYN6CfjDBY<{^?7+ z4Y2wr&iS|h`Y-;k|MUMiJpme$P4xZH*?!9_{I=sD{XhLL|MUO-U;fMg^I!k#-~Zj; z{Eof(4pIP!X`zMHGn0b&1&h=hP+ht7s(|pJD}@Xhq&*-lsMSuvQiIz-^Zcsy zY;X_IA&QPTiMJkLpD=V@;3nv49RKgIJx20~t4AgyqU)~lUjX_5?@WMCrNi@sIS5p< zMPVL2eDJ{s&&VyX9VPeq{*xffz;=p_lo(tcwmb6b)R>d5?hVUd<>oQUakO zWC`JQ1#1Y_j7LlWvfE&L0LPx5@d?2tVtbmNfZc*+F|f7u)y?g#VH7Vw!l+lhboDCr z=bd-oJ$o_8-DEiuj^c6RLiC}nooC^;a6X+*F~;XE7(1<)H0$7v3WY+j0^{RoTccV% zym6CVV?80frOnz*9qFS$mSw=H3|Nedz>%v7r ztC{JljEZt$Yhx8-PfsS$W@rX8fS7n2LJD~SADRf&^?WbF-5~Pn4=NDI^GoGN^>uYm zj*f-_-g+&c&k+J=W@f2C`p@3pUa4Fr;^_ShXUI2*C}ST|U0CXE1_X8y-s_iCqeQ5Gxu+?cn8`}?YR;np$0Ov2YY~>3hM|%faN+47__5t zq4|t@M*?Yw2?5RnR}Zcxzk-+_xiChD%K?bZnXHKp<0;{Jk|nQPp`X9{=%b*nJhA%# zYT4o}$H$KzIYf;C?e?Y0yu|6BKgaw8*BaB)4Q#M_{7*aEj+cdwB&)H8;mOrz7eIsM9?0^6mfM(AFw?-C)mHMAr8eJ!8fmC4C>NQ z9SBn-#1K(;IgpS=!X8b=;D^6kJ6m(}3)Olvgquc2>7rwa1k9JNqnglN3OK<{Vvpo3 zCv?a?8y=A*G1HuZg;F{}C9ccY0RGet#1g}oH_W5uh9B(hJ-UB?aem(I6v)sa^9Da&R3iRlTML(vbh)Y!Bk|J)U1KpSaO zY=K;(WesjU!{c7Re5oX4ukPM{_1iZvSgY0PD*0l;=ljo|$$rTd3i}5Khlhvo|KJ9t zVINMHD%H)+ZCo90;pnUDYp6PGXB>s3y)S@KClW6OTaS*8D0P&ayhvg$8yuNQy0Ju+ z@u^98K3*yL3*wow1tC|eXLq;$E&e+y-sXHM6sajHx;ORiJRL(K$T*$auoLazPhH>H z;Taw5U0+^Y0Ft`6F3Q+>Yd#CZ0p27%Vyy-^UB{>jdaekUWXmAD_m2$^+KBLEpTVB4 zr}u8HH0#oZi*;}hI+%7`URVg)P&GtL7Z>J* zu<4DGl)Rh95<%vEN&$^I{4BS$*(A|$4us2zA?TU9K)*q=bj=XB#2!Y5$;GkKD4~eo z;q{rSrMa0$_ivvZ9!U0JGF+v%b1UcxNV`(u3}g`E22t7w@T+Qx=vyFd`insXJ*4v4 zH(0z%2xYZiW3%9o2Sau$khfz`PSFg${oYq!0&}17K>!H)XcxBA)8L`w@X+Vl!kpvI z2f6XSPwe{i4(VjNTB^j?x_^8(zuJ#4x8vH=^W!t)M>y_QF8S=$NAYnxo_l(7)U33V ze~7d?A*SM|?#6E`n=}2%gW`KChLU@t9nVq;o*O^ZX{UGlZ|@(Uqsy_I>K4J&Hg*BH zj_OyDV@CoTxfU`C2yWa$|9mQW#M_bCOIi-j!Em@OB^}_|5Nv(kkpTG8x7u2@U;yVR zyG(-ucKScTh@%;q_x4~#eofkAc#j|FxxsK;y6AGL-N-pz9eRHl^!7)Bq4)0IwLNZtU&vqlhyzGwHM$4U^IlX&P&5t3oc~l7>jJ7}Ayb z{*)OmIyN3LR++iiJeS%ZBRQsSCst$PBS^b5)t@2mO?|3HRjPM$@X1~X4Kca9x5qFQ z70u>zDFQ)y>gMrbI-gqz31idZfFV3rDd+O})zy{VUE;$5Nm&A?pn#PAdM&6KoQ}^w z|Dm^L(Y!iE>hm9daqHGC={>xXO0Aa3=K6({#>Y{2(II96bhEPf|2yx5s0CXkWE7f~ zn>IKo01Dz%g{I{QaNS)9&v8Q7D7YEHV8~JQE70I6003G10Ny)l6q*6OkNl%qL!(Cu zo~M9ESGgyD0pq2LH=9isER)O6&o4+~m)5v{u>bJkqrLruQn}iknXA?s`}+qcC$|r7 z-ZW+5^~Y}xZrlX&Po6v#JKsClhwX%Sy1F-Yht`fR&d&Lk%gouy@vX1E`daH_@*#eJ zCU%Ol(M`MHQz4rsCIAI&mN4gWZ0@4ojg(<3Or?C9+xr&Qv=n@2|*)k@xk znvRZSB4iWNYShEd);erI+`lf#h@rvoz3T+7A7Q&vQEzng$ev4?4oMeSTL|(*qa!AD zj-yPD+w>MxjgitocHGT_)V9y>peaH#$aX4I05N|8zcvRU9+-6m7(!PY=!2p*km#?D z#FxCGux5aX1z z$Hh=2r=4E)+sdZ25Zh_7El>=v=7}++pI+{{r#Sx`?;jUT{|io(o}?cR>P`-XSVZVS z5`1Nm@*zW%vrYF7TY&fw5CQ3dlt(&AP-nh}oYipW zXfUzo?b@Bm2!C~yLBDp@Q{pXp5V<$#bx$8XBDPRtBsU6|qV9LYbfw$jNc02!;JHs> z(~u8|$v=B0yZgiyq&=RNNh`3k`?58^_E z=RuYE^(J`ghhpPBmD#A)OVt~`7u?&SK_eaG3XDxmCz#H@SVbw8i(CVkU9FbU#rqE* zprGP|eEh>hn0Eih&6{v+ePexfZOuN`y0x{nu((*Q*B(83L~_D)3&o<(SFc_XoJq}w zc&S{$d%ODw%nyN4-pHdx2WdgsY{u|hUL<=^ES3r;{-iTN493mQ&aA8~JK}umy~v95 z4c?&G3!+J#>hCx62wvg&w(*GshL6P>m5i77mH8*1=hC$+W-qk1x3c{<*_v(`G^kVt z6rDYHfz#0h-*fXOxiqF{cq?Rc{QUUVEdV~huypVK!|PD~#?AMieXzZ|yRfu$=kDDg zwl`L*+TiEb+^?>&}sNMv12`7v-0;CPWHIj_6YhrVn9F)qT z9`I4mV$QU(KLx|y7xF4at5J7@$OsBNiaG2FF*UOgrBFlo*;?5=Owy;syJ99KXv@El zm?^HSA4boVy2gw|d22ieiEtM#dgA8Vnh-YM4WtK*Um~#2EG;bZYPhZk`+MxE=BCf+ z($3^=_?1H{8&-FH@63BVWjmrQShoZf%$kDd(P0TBF*HF-5C=kmZH(Sf&c1_o90AKVC&zdg@B4H@jO|W4#dg3L1Gw`?hQ}(E zM*I|K#+d1bF_y+RbQ4G7b9}n3(_#R3NnEh_ub$#hz&8F>C>EhTz0jHd>JmplbZiln zoa65K8}IKpMuA<7ne8jCI!M1A!#YAY4p{<$#&fFy zd_deNiA9rv3)EfLg2^CPC`7mQSAZATb<0I?hq*&$2Q?ykkH(9;xsavSrjF~XZVKAn z*?mHiS)|fLP48fcFWchBDUx5#oj>P3`Va5^&Bq@1nz&qlUC! z-@DG&SX^3S0(N$H&F<^y=?!U!eSIV*r`g*I8%bcRKMiYn^$>yI

    I6Lc>8anzWFMhOZ->J^Nv7I9)@bmPIoTzQv*1mm^4ImP! z?7)$WY>7gRQL7^$Yji_M$u=^xl*$?V)4}bjq)<_b;9(mn?TU=-+^YKK6PMpfNzW8Z zB(OE~nTEDbO>{JQGORtK;TIJX-PybIrGnr6(JfoP8yv~i<8 z9$NS*SUPLwOk{TaFbLNkuFl+8jR%I~W2gUz4~#f>Tru2`k4W()s)z{3Foi5cDrUb@ zj7A+2EJBch!;>};8Ntp%g)S~8AzGu92BpMn+nO7&2JzznVMcT~U$EI=b@%u4VzKCo z70dWFu*8rCLqAkViCHX+>hoK@`s%AQrq7^WU>5adR$agT8jlHIgO8mEYdWC>^6*H4 z*!;ajWdh_54tAU%9)Q1>CtA<5wSA~LQ#YU*FeU*)*ik|soM|!Ul7M3U&4}CV#<4(n z5r{j*xTO_JDX)D#DSUp)11V%N^79z|rdtZc3)V#{K1Sbc_zXTPVQvK1dwIT462KgaE;fH7EC3FOGXe%} zHd;^P*2J8>qRcDdFkw}wp_MBx6jx7QvYix~1bK9F-_cw74Qn^)GG(tzD7%fqW zQX3c=k(ysKaQNNHt3MvO@}#h)t!wbmo}-uJ({lVIp;5Xte~Ai_$IVyDxBH6~MC=j> zX5-{(@8;v_FQs#e-OhZPffOG^LI6RL! z9TA=bJnjTHq117`Ajt8Qf%$k?(QCL9_&<8P0Pl+y&z(DuUOeQFNkU30q=aJiXCI?48~C(34G{0f9_GDwL{{($fCDBd0H3 z9v&It1xT|Dw!#ilbl^l?GH?|Y9R-ThMddB;CnP4MXJ!?ZmS*SW=j7$F`x>pD7OG!B zfbcEJ$#SI%pUnOvXNL|R)yBost|dSwEi3Qvxf@-(hnhNj&foe3N4qLA`pC8WgOg__ z-ns}y=V0yKJ6_Y$Mjb)os7M^jSP%=FPQCT0uCY@Y7NLzzV%3pa6WhQ4-n%c`P;mDvga0^_JQK0z54h8bR$!n*B*Xl+bdMn+0nD(wuO z6hz&~h;XohEcoCcEfO__TVEhq2 zvuF{mcG`t+%zXpt*wB#W9oEEffrLvIN`}j#vxBm!e(-h&4^YO(gS#i=-ASD6?(63uJ(3Y!F6WJ zu`_WjlFCkOBSJc}gwXXVb%pF0E3lpU5&$2^1^@O8^8tChjvzd*UxByVvX|CWP}f<2 zOGugAoCV}E+bkmO`C@B#rXxc)9B@o5U_n}!zM#aTv}7MnKkGzd>0>r?SiZz zB!+F`{{SXomUS~zWTxm0;?19rjc~p2(PIgsuMtOB! zZA)BcQAk9be@K|KZ?L162wF~4Rif4fg(Ze+Qe>JGWpsw4XRxcU6m8ryAQW4Ry}N%@ zVh*u0$SgP~6%mPIWmH6bx-Pqdkgnz(2ieARskw_=ksf@R9|{1T-mx@d~Pv*Il!leL`H z(XokaPXIy}GFU{OuihHeEr>dVoP&}Z2+vJOkE2z+mbf+{Nlwtgcs}%Kw(7yzi5_5h zh{GGX2AV{Fiu6S$6%c2*HjL5bg_TEHxHtL5JtpuMW95g3JaIXok(i`Q$;f0RGc7Y`^w_zyj4Vx5GzluvaXL;$b!2o_ei41u!qOTich3{o z9}XWsQ&3eNmz=h9@2T+U1aYXGlr2_$xsiD7!D2GkoDyhOEN-FBu)4?ccMs{Iw zWm8OiN_~6p_Mx%nuA!r6KP;|j%E&3{-+z4c*qzbIJ9W+5Se)I|xvOKxKHQZZ+xMhp z6_ix96Jc6b+a3{<2&3LJele%8Dl4y&J*|1AH8suKiz@07e@d&HL2}+;N?c6PAVG_Gx3@UgI*|?+( z2`V+3yeBp%`r%jvAhcqA< z=EWLBY68|5zL?ww+69dIax&t;;m7fq;7J$AJgqecA?cU-Q{DrpaXARnWx|XZ`B4Ia zr@{uzA@;atP;0?!;h!+Da$nZg(0$GVW>Ppf`1M|#_7V#HvZYJ@{`cqL?G)Dl!dihc zZs2_$`862iRv`Rtq(I=G5sx8<&`aP5z6WUsf8g!F0>iF)WL_C=!3n@%4z_j+R?a!Q zGit?5lew)6JyQpt5ZHT8RdawcHo34aHoe%@U*h5`4pKw~$Re@C&?l8eXGJ6yvJ^=k znTm_X63=OX)YjSC(cRz0JIL857(1mzr40(zNR-4#szLAYxKwp)N@QXdCq-;ZUUpI4 z;d7r1Puz%4&2#Y)x%!Cxf|b}Z3G#LEqB`&a@gho-;M_IwRre@fsZxmq zBZUzw2^f$=xpxf?oxOMwM)%WSe^Gu;pD}}bm_BPZmtk>5RdrKKX;pP@VPRHYZe~sn zL>*@ix2(MUEHY#=GUF2ylhc?mjU|7Uox15++0n5v*?9%co!d!@IeYbP5+=WlEaCvt zbBb6bT~*&++uRLW4(vOTn3B=ex3{HtC!zh(M0;t|qT*6nknJB3?Ct4Cw+izD8w3!J z%Bvfcs_@wOr1Y$OU20}&b>ps)BOoyM#@pnt{Gw`pVhVY_m38@rrCbF%_W2c;X6F|{)X4{+Z5$gLN239w1-go0ZZNm>^6(Pc z;uaP-?;uyWG#CY)O7Q|eji`y#>hS#&XSVn4)1_tvi>01q{QCK0=n#t~*pad_v+3ed zzM(94~KcIrZS1yBhnqsG9E zp{X=^8E1U?)j5k7FJfKN%o#JVe4t~1W7sa%>#s+1QOIN{BnSwoNmvazJ`BiqM2|%B zoARVy5xo{uS+r6y1#^Y!c2{0q+>HC-O5i_)R;~_A@64{S zmzGln0hXf$dM|t)mBvOWkp%eXBI1`2l0)Fw#sC4>PFsOHhqO~V{q1jmqaZ@1g@yy{ zg33bQj)G(F1yNA)m?N~H*_~N4RkkgXqv+g3=0DT>@EYl z!|pNzXJ^i^%+Ag%%&Gl-@)Q^KwRCmwr+dHe`9J^XectD-XsF!x`AJ3ybmHrj9O6sfO=> zcXCbd@c7ii)#=5n#(lPQbk~@y(>K`A)=}TuUQk*#c6o-%`X;Q^vS==?H_-bjVIV;D zwHsO<7-;-hEhFSS<;(Z!Y6>UHCq5c0KiZ?s0rfw6o*wM)cdG5& zvu1@chFC-ON#SFz^^+Q2RNv?@p5*W$#)iEzPH8?zj=y*C=m}~J#_qKUcM=jA?KH8< zB$QHxB~DIFfB4bsU-;p#{Oy1JZ~ytrFMs|Qzt4+vVBdZVgp0-Lah+Im2e{2oOixeD z%$ip^IW=Q!1VLtcVaY#v`NlZ#CdN8@x@#KhOm?4|U!WU<`XB!IUua^w_waE~Z{L&W zFI!sMzVrRxxpn_p|M1wWuYB?Tt51IXM}ILkG5PwZzqWki#`Qb*{;w~;gu}J<%{>x; z^NMl|z$h+P+LC2dRoi&&*8Q@Is-cnKcNed&n8Ettr{DbkkN&48AAbI|pZl%b4_`L7 z_q2BOh|bg&K>qgqr?LpH-@5gShlA?>QS_Gq#khsQ1>>Z^~Qd;X@DR@3enN5?0oIf6#U zCfYhWMR*Bw0Pjj>AQwvTNSCpoCnxKjkGU9y83Ste2^i>ORXqLH_kML+RPp_X0^g>m zXP&=!+1b%CF)?AyMTIdgtAJg<<$HQ++UX%pNZk78UwjiHsqW#HP5>Uf`>U%jK79G` z(PK3J_3KZcK6!F~_1@g{lrcrxEq83)rmQ$UF#EDyV9dE5?Ct>U zeO>LH%?&2#5!k24hsFkbhx!C4w=B<1{_M|uet-4m+8oh%d^R#N4134+y#^a6lRrs= zE)tB64G(>1(?;rwP7!~aTT^2_&yQ*t&ZXltkHw{^P}sHi8TI065xd~{sUW_i*N~=x z@$TBYUlGmq<#G;m)iX$%3;B$n0#e^_3j|kO%S?llCn3B;()1*_0P^EmJ9i3+-$pp% z|9A5MtAhnsUIcMWoq~|X^B4#|sljA(gkK#kP-#+9B7>+0rMGnce;%i|)~&O(uxT<` z&x)*>1uSsfczHHzf)5aI^PeN}SMYZD3TL!TsuIE_=me>Ptg9%N@XX}&?6{CwwzO38JUf8I9x`vVVo}sDHspa{VN42fp#np{^ zq+WdfOLZ+2n2LqA?-cGlD8F1AGUP$boLKC`RFTE4Ndu_<;;+3sRe6ya*ImGrWZPT%wC?J zyLwyP-}QTs7p~u~Z)sN)liAv=S!i%XUVDCN8Ib{4Nfc3`Zouil>a_s%AjI^VrM({P(`EUkHU`xH)9V z!Mn%T1R1%(#Iz8Lf>%A_Q#AQ2Bt$|DL^gyG3Vd`5K@eBClV*tY>C; zVq$b+l0-8k%=hwCP(U3O=Q}zyI^5RLUf0-AR#i22dAfhdHz$7QU;c$mNIc&7!6!fK=T}x%?>~Ln+TJB$hg?53 zw=`*~xVkb1e#b7~zW;3L+FjF;2u0(H;&&das1A-yw6u0KHMPnawmT@Rs-B*^^634K zuH3kD<;LClD=U+;S4Jo2;QaE+T~qw@pQ715d^)+L7m;X7%PT^1gwONG0(|t_{tLBc zy%0IeZ;n5g78NsE*zWtJT)BbTb}2|x)XrduWPKbQ8mg+Q8X6jEYHYMFzzvrt8Anm} z>b2`n-+%stU;FK%fPBy9ppZ6cRCqd^&7CFA$fTn=P%xzQJ~X=kDDbHf|!m zbIF|1|MBjzn26BW$gpUgo~cQU;-vMK##%@|Jw7r!IVvA!e6VkHpjWkYY3B0v#ku9V zsjKtTqv(4}!}w6|=bwD=$A9|!V~ zN$2ErMKBMRH`7pGt8PigF$E;#LP(q~NluoYGCe{d8yN%FYSWZ+99R?hS~#DdoCD?H z-8FUi=PO-*e!g`&MF0n@iX`1KS}mL(A#Yr|2iAPuqr{wtHEV zc@D$&ZQHi$V^Xakt^D_|Kl#@B4IAy3gEam#r}ymH%hJi5fu}Ll1i7q7jxfpC_;_Z2 zDGwxUw_CTn#{vLCAmPTuaBOH$4NNnE6cYk5?DuJdnic~oCMK34(mJL6SS3ywH6bNE zEh{f3AqB!m#-K^84r_7hu zwr7{s=ax5R71x(F^twU#ipCyYtLeF=u}N7eS%v92CFGPKl{c%Xe{^=h=<43lww}>; z1FYM6tC~8JvkO~f?9Sh;Yw9#`ZGQP)aYbEPc42IC2H^#Oqw8f=jfG`3d285CieZIe zcdRhFy1F5|pj4*1nHpIIB`sb3W7A8$Lz6}@YsKvBA6&Q*$h>*Qr34mRas!k~t84X2 zwsrS+4U8zW4qu)z2L9H=_c@tgeD+P$y`i<8YHe(NT6V7Ax^eGuWnIJk@{RtX(IciT zojBoLwUd(M5D24TQt?beah1qMx}Z1ADFoO7FZm0+ubFL5*togy6;7?TK1%YPMq;Wv zy-w50um8rcfA-bSxn%^!_`G~>oK8Ui0S00e`>|vD4 zdPKjyF+*eHzPc~G*NWFSH00~R@Tf2=h}$#J-`(Ha(%vS?u&lCjWa6?P*-HHM&;Iy8rn3gQp){Te+*iN|vFebKOoF%eVT>Y>sEIK8MU$^z8g1 zyzNx`9Gkpy^~U=zKNFcdIzBZyy)e6Q)fhf6wMTzQHM92ZkMOkx;3Q8wSVq!4e7$$LX#F?{R2H+r_4Dzb<&Wn^5Vij{fqzg{_0&6m-_wm$>W8&nJbG6Qxju$ z_u^@|5LNs%C|NRyy0R24KwKPNom*zx4%v;{cw@G1-^!(R@Q|pPu-sfHR~{Kb;|#ja z$Or8`-glgeNb>rP8^woFD$br_GB_4`=9Ey>m<#8VW1@0XlPd~xyIX=GO3U*zR~Ke) zUR}C78d1$cZPKJ ztmx<%UpWw!%TRa1wUyT&iJ99w!*&Yip+i$OX>#etaju|OQf`F**a6T$L)JB8wqL@c_K?wrA)^^^D z!S{3Lusy4f3O>>vL=CKUq{^0oOKvC6o@boXiK(-mc~HP_L~N>oa}=vIZADe!|6Gc8@c z74^PZrJR?UR{)>ed-^Nu8o6iyH$mS0qOwZ5I%Yn-u*?ZLGC4E7xLnuVl2cH`=cx`N59ogJUa4XBy0JPe)L;*)2I}VF*ZJ7M-SM8@@z;5Zf_wdC@9dh-qqWKmOFs$ zJ9qO*S_^owjOF5$&jRoC+w?RK*41rn#Sm=Q{QhVE+u!`ZUw)~?rh5+8LLN45 z*-}zc%&;*qIts=+dwPv#Casv+)ZEry+tAoTkLd0txipdwSdcs0Ya1IBQcKIq$0zam zp{|~ul{@!nJ{E|gk`kp`h8&}jZs?qU^z{18ySMK>{NsP~x1 zE5A#8PRq#R#1~+uI>5APlJvyn%=qN=wHvoDPtWxa46_=7=-P(nHT8Q|QQKS()3-tN z)$6xz-+l1iAN-E689BOR6H|9qA3b^gYHR|$U%s|-$I{?oM*eZ>P+G>ur+Rw_)B-FA zj6Gh3U}bWheD$2%e6?~4%#GXk(RJ7k!yB4gAj1tU3TWTW}5_V%uZh9;|n zEkJ2mMOIc01Dw5pzoMq0F)KGOoYZc?j=CtWP+u<*0GJGqjMUWBcq0o6^1bKU$LL_T zOV?H`fR?fspdMyYk{>>L^x)w`(#P!F?8L^)h_SR3mm7kd|O%b-QT)(ROCNBCS!fYxo#?I4j3}Inz&OmRsBB{Pqfpk;? zJ9|+Bkct`r*ky$&DUvd5>$pd_$K7B%U^fATTvJt90o4@{N!f3l@Q~gbVeTrdvGxoyIok@zmn4O%MpOGq_9bI3Vp1i&^58kgWOkbIuyf#0xI5ke9F+p!? zZ1~Be)$e`x=RW!PmCjJd2_&sPuwA6szP)?c$yrp|+nSFYJxux_W@GQLorv_#rcH8p zwGQbpqE{ouI<{PbCr_U&*M?M9LOz0!t`ep}MPwo$xVg`q zkm0dOv1wUzD|f#CFaGjpf8!4Z(b)&j|LFhzriSZPt6TM}iXCH9Ps-99T8MsU=QCaByHnHHAtm0(q^^OS|aUVPrz(zyn_)fqYVx>XQ9JHMo$q%t`p2fQ=GBxU5H^l;vN)<-}sK)~0$;xcKL zJdkD8_4L~-x9$&&T`sJs!qV9SnUHlVrR4-`K~;T|XRB#!CDA0LWe{PQ;VWwE`DYA~ z;LFP|DV0>vH8@t+(jl|2p{1R(uDP|trtY9{(0AV@ZmV&Cbc~&}E;J0V3zm@#>5iKv z-c8U*T1FFevStgNzObnY3% zjydSS=<4Wr^6c65n=7vN#@5#C?7V}Aj|RNTKs4#By!Q5M@rf{pN09}+q@+aQPuL)* z;`3J@{pyeZ2mHCSt!>kmE%I6gL#=yfLuyL$^z<~Tu%z5vX4+NoUvF<8Dr#p(R572G zZBJ4PDX^)njha~?g-{Y%d4>4L9)z*4@9B$I0wZC&SA)s2YDxUx{O%8wSzmwtjYrR3 z{P4H`$NI*my81>#Cl++q<;=>-Yi@0a!w;W4zoO)M`~JtDe(~_h2Wq&E=jx4H4uiHoJG(G>dB&E( z%ef5>k69@MY0_=@TKj!#a_Z@eASYpI`3BWRcBR|^Yt6tQap}4}g$2TIO|StiT%DP} zGU{8NZD_Qrs;0cWa$s_;j;@PlMUQoxj*pM8 zeHN`tOIK=ZYe0QKi^Rb$M=n_V%6I51%~#`nSF_HZiua zxcI@#SJN}o%ga}ufAE~|(bt!+K79V{>BH5#&2=@2>WL(a3+GQBJKERLwtD+!LTn6y z_u>8339V0U%~fT^42M}n6*Zou#5WkC%T@CYmx!V~dl#s;N1zir74c6!7I-`SV4>0F zl!$hoJ|)aW(mOSe8pCFz1bO)Ak-*sz6Ajprf4#0MvtUgtbudxFH0{8=7cP=TI&OYe zy75sJMfo)f!+F__Rpn}?qXXSbvzKSrgqp|q?|%N3Prv%vYeiKOI#l=Tcz6VPJ?sLw z1Epa^o~$$mNbfF|>tPy2{m7wOU)KDYNqjPlk=Q#o%Q2;d$Z&Z9noGU&fwAZGX>T<( zhI*;tM22UG5p}0e19lYG6%F3s?6MCWKC+)s5+p+Grn=nTUbl|tXJ61Yuyymc zt$UFF{d*4|JF@q{J{}9T>@C~3f&WcgHvPm;{)Ehd;3$H?fm7FIWYR$HWwBg@ssZR0Z0 z6V1%l zO-W@DV-O}}i9{ypc-nfKg_hRFU?$N7+xpP(n3gN>OX~5om@~jt)0AC<_s%aYJ%0M) z@v{%_-hXWHllp>v#{43QXl3cjHJb?WIUv2aZ$S7Bf9A;eWufa`eFMI_53XkymN{XV z&voJE6%;C_SculsSFf+HHzX061o%p*1bmpk zyu7@)v~=&m1KB24fJ*_k2O0w# zMkvtE&B=Oa(`K@aB$++?_HGp{tYDcGFDSC2qLjhAp`lL7jjU@YtyKUwpcZc0x&<8B z2|_mPeFJ;V&h2Jh=3*Ox9}WvM*}53;XHNeto@m}E|z1dn=FRJAl9 zlH6(UyZ0S<)5)?6tRFnQbN4=Nyc8Q{RwhZWXkQ~zfw#fiMWW$sVSK>YWiqH%Y~HqI zA9v`1eR`4H4j$ZZ1Hyx|Zo@l)?Pli=v245d@7ca<2Qc?;TNLa;cI^(@3e>U*Hm*(B zj<^Y4ntv&Y^C%#wT$4BfQ3RI)+F};>UAA4EUI_WG>-*6zLgkat|ExHt$qt*wy@S=-Xm zeCzJrfBoM^>W<{(+!+{wyF)*r}Ckxkqx!m+X1-hsiPQ5JMc){Xpv0&)cu)$PU2HF0_BpZ)&7 z`qnT0>gwa?ChlQQdHDrgG*fd6l$n*=tF^UtfX>WMo5!>?Q^`_5D?*O*lYyj=&CM^0 zBWqvd;gq6@%hQw7v+#NO`pWfNcRdx0IM3y+yZ6aHS9u~IJyTb(xbzJSUcYf`YHH4= z#cgFJrA zF~WK5yzHmUC2VYNRfuVHY}2!`iAkqJ!g%p9FU5ohd%K@LdUXEG>HLiJE3?xD*%{@<1@L@gbT~gdi+@I2kX{~f zi#8Jc>GLzZSUvbQO-3yh7GcG(N*fM4Hb3Fp>)(O-I54C#tP>u30I-eM0L`J7o<

    uOJy7sVv#=~Vx2UnZ{}2D;KYsDU-@1DD@xvFdH3!9|xDHSmV4F(_~EpxjrR3&jD07QiMiKJ}oS-5(}A>nXTh# zbb7%Urfwaq`kQ7J#r`TZPR=b+h7SaB0zr(73<2vVRQC?M6Re?--C7y^PcUmqeN)N9 zTI&)9`IcI04EdqFyc`r0@ZdRD0$tYm<~}2qMC)&S@pXhm-}b=3U{O(#vZ>!Cw6U<$ z0e=6_|MLI)^2?7u{YWux`T8xqdegQYJNNGQ>Mj601POb4-8<_xZ1kew#duA7Mq>Qj z++0t07n-qI`E}QBbbaggov7o>mmm4()@|Dq`h%@Hfss(NVWYB|=p{!cfK*K=;!?D( zWl2>R2%5ZTkr#!A^T`a4Pb#_c$r#|FCMX;p)27Lw%6KUL{8xYfkD67r+jn;Nco=w} zo|$|3$=7bLK7!8xT$}-7Y%OT(>~T}IM5gIB__-FLo44-F%`LPvHFtEV1N5n!LTR}- zIREA8+2!juA3l3Ax3~n`4QwT?$l!JJ42XRnde68y!=2It?TP$7Js^L0aAeFeQ~oU$ z{e$Y~^CW%rePm)Vt zX$kgX5s}&1Ipieklx2~2VRW@sTW!UEig%z2EI0?G`@$Bs@b2!e>gww8iOKHno>IBZ z#YJ`EmpeN>Nnihf7AO0l8#iw~e){bB2OqBS_EjSM>rXzJ7#pFnEY8nLLL43J|Kf`; z7H4MYSfCbJl$*J7?MiP~M`vqGZf1tu#o@tz9jQ{@sJog&$47^2s>=;+;Bw&* zIez?jW=1-k1ctcrTkF?v*}4^E!4UAi0XIH+L@C(EPR1!MDFWuYf#5uqMgpTYeEK}1 z4%^>7aoloX)u7DKXMp*kqlY{ax{~y5K;N`V`9%`KalKJGk1kPxV@N|Lk1$&X^~d*4 zP-A>mCq%y;5;jVKaWR=Q<|XK$t~S+M_V0~bHy=HENU`$NDHB~|Y%XZs7i7*vSyfHL zp*{0CT#$$!6KiTP+j%ln_W=>f(Rf({7(1>-ZeoMM$ABgMg(jot5KBkZ?af{9ZfkAn zC+Y8O5`sbWmQcgF5e^!>(IYVTV2>$-Q=yWc2ETj&uKPy@ih>9nAt?dO;z z$x2Wij}IL1(a~pVGDbT{+$LGC2^vxpNz;NRORDN28o@ajLKmM95tk4an^@h@J~4ZJ zdimBhC9a~KK55N$p90mB(=r8`g+&;4 znr@{q+YYK@@74|?JcD~-S#@(q&&cE)Pa}{Ixp;~EURqU~rpvabF;4Nd+{C=jh3ogY z+5MTMnA+x6(>jEVVd-hPfriuEr6SzgE7b4$UC3{CLRa6QZ2JSp1a*f@ogrblc| zW(Vf(I3>K%ZwS2mdIx;pdg>GLpUcO`5g!+?*&MdZset70+%-j72f~aNw(WXAM8>%U z{FBGYT)hKF4!gu`254zYcz^fhmoGnlX`W6`PdB%Qes+7qja#>y=x13r3sEUEDJ9t% ziclaG&XLVqw{Eih@7O_#p{{S)vUStuEpeAF1$go5HM;J*61H7FMnLi*0CrSoYG#J6 zXLzLBX?wk}(6jc*yk4OfEH}1(&YaZDOf%-XdVASp)KZmJbz1{olQ`5v#rDuc9>4z* zV@Ho~+*$qhFa0{fL}?eEkBwheYil1K9ee-7*Y_Vkn>P+hd(wxmpMLmC(Bj<(kGXJA?(4T!m#^POIaA4aC;6S4^w8<0E^AjUD~?)G&qc2o*lhB6X-VmgKkR0 zMTT9KRlKQ*ujw|~dP~d8E0nfza`6$thnSL5Szg{u3#hAueqhAc;^N}T$;-`}ee#1o zR*%<@l#-TKCk?E(huCFl@K#v4Snr!!MAk_m2;LUn((axfOCbU0!&e`F^4V9qyE^;& zdS86_;mFW{=#{*zjE0)3+c$4~^2w*cH0R^TAFtk{x8Jz3@bbm;Ygd+(O-(O_ZGc@O zqMD&tG%|S(kyH~8T?%TL_vNYS&z~lh%no>(qO;{jPg%H0b`+FR8>o5O1bN1 zg(;7mJaZ~3Mb)4ZbZ?Z*xNGO$1H2+fF<1{)QFXJA6b*@RYVC2R>CsVj4O9z67_dj6 zKWEsenR+fp|O+%EO+NlzlF&M@VIsJ z4&T_dbLXC2#Esqi_IRExJGSlIvxh<0LPdDtZ)fsU{j}*&Xu#g}4Z(KASAw7>;y3O` zG>Il-Zw}b;H%N}LQ(jRxGU?IdCjz&dWUiB^{Mc1y5u_9mQq(;iFkB|5I8LJjWTIEyW$dbZqaPIu&dvL_tPG8lYz-rpbib68e~p^smG%Kb=|(RC6*yAvLA@ZiP`8=b3AGp8UQs)uRr zGlH8O9(PH*bP&lD7ZVW`X*0{kE3B%jwzjgSR`NKFrM$9I_7Ru63^oo%yQc{{&8@9z85zFMw2Ao}DU!rWs0k}0)zRm8sKLuCC0?E)EQg(Crmu z(e+L~^&YM40dJq4=a88iCCFT!9-o*}-X+dVvPg-%1oD$JZ9ST22Kt9b*XaGQWX#6q z_KNDdlG4hG%Akr0rERICC3}h<=D=RxkTe|nnvtjQlBN`HhhK6;(8aO^{BnlmEZgzfQ9%H|M|30z3 zx4V;auDi21FL!!;w6C+hqPR%PF8RHkh&?j+>c#Wh*ROu@`B!t(Qt~p>cw?ID>wJa^ zsi}!^+WCVPrp7wtSqa|$PMr@ehZrh=;D~}PoIp4 z43l_+`{MKV4jyKE%dG^5eK3`k70D^dE>_1wpW)RH`u+8lB_*@LAih)%NDjvFB?Za= z+k;{BRQGrFsJNn)iX{emz~N&jTyf$)tVgIdOkTffqiqWeN1S{OmYy8}6^Gl7*&Qul z?`+&)or2f?Noj%G0vQi(9_c%H`^7M`*i`rIA*e@` zJYT>JKdrp+_ecf&w0_`@4@PW^uL^;%ojuE#wm1NqnM;9@8yg50)paSkfVyG&+MTia z<&oK?qN>`^*rf0{-H$~%6*c;p1|}D$m+wR-$;7NQ@j?J&VrE`qc0ox^qd@hN>c-Zd zA&NGmOH6#Kp?#^DImG-B3A9#`yh3i4u;|zjCDN3Pk%`%~tlYSyRQ-mJUwqcm(Nk61 zR8!w#n{H7sz*JE+Ju4r!NAe3NCWnMyJQsFRQ8hQe*r+(GhJkllUsPH(x>^@%o7$Q? zyQi0yC+8Lnz%w!xdoQl49h#hP=^551RZ-u}%wci|^NeVM3W?kUqcc}-xzpIuJ)_%Y za<-|nx4fnyEj!Q1@c5Ke&=VuGH$G7)r|5fO0!l4DZWLV&bp1@KSlv)&EbUpaT z+L2P6%TbN(au})|t;Katog+)Z56NDWbMXI2# zqCfkaza#aEEdU+-Ih(d``?Vkav)TDMmsV3tTWv#ALP{#D_uSR%yyeEEs%Fm3FMRcD z-}vHZzV!<~_|>2O#?O4?+dogzmo9>pDb}0IV_Sf+lM3Hjw_a|B*?Dyh4J3XhV42hj zI49jlL&(kfvoF;Uw# z1G(@POV#M;*v&il1WvyH^7ZqVpMLtaZ?4?A%SL$Z=1rkDY>@nrypH|-LxHl<&}fQO zvv;Sh9e7fKhDJsOnsIoNWk5Rhrn{$47!Df@NEd*^+0G%Oj?m4F*dKgH4@7-)d$GLh z;xgr6@@#rWhSpSn4w+6VVsvB_Z?_R6v#i{{TU1=) z(&3LC+Fz2FHG6rCAkWI;B%~#y!GsPz_H~;!IxEx&RrwDdJ`6?<9XaHi$;k{MAnZ%kVhLo1)|tOTXLv<%)kEE={K zRn|l&r=JSDSXf?3z9x@M%wHX!U(PG9BDQ4dQ7x;9Nzau4+}P18j!N=ORB{G2UhAkw z$E0MYLTEB#T#QXjgTpBq*@3`vDPEyAxNi=1e3Be>NiPZqai(!Yj}a=gDJU!bXrYE|42)Be|3{Q;r`yy%k}Nu zGRDqb2xnkDaQIlVOwQDlG(G0=3CBrtAs4vZ4;?!pB68nBDPrDr(RsQ_84whOf|D_* zZJ$1^oT{?w%0;>Llob~h9Xxm_RJ4A0n094d(R}WGJw0Mi*#azxsFo@NfUqKWPs2-?zW@&0|N85ccfW^-!qq+gZN#_Bs^q*$1yk(RQgipmCZw zv?fKYbgKJ`TS~XuqVY`MkB*HCkBXKw2ivP_>kw}~ma@u>z=MnE2)0cHvW|M#zregy|QfJ z2<_+s>|Txx^5)fjC$P|f@t)p}HQfdj8&Bl`YMDX^GUZivbM?)w@`Z8>in4MG3|n+8 z79gs7YFegBsE?JVQBzZW``&&3)VD}~(88%|psebp>+0)ouRidGI09bN@ks{D5$m8` z()7%%IYOGuIyyS!iOZ78$;oaBw4GY;RaI4~%M#b-S2t+MHVRPJgy>SmH*ep@(MPc4KcrBx=~CLs?8jscYl=R6n1`Qo&csN`QS`xV zVI!`N=lhzQmmL`up)8xg(3lX1G?e3!tg0oIxZyt1&d^STarv8+ zK#k>FK;zY4Q7Jt_J9h1&pFr(x+XFmb(`0r6a0m~v0~-v}%eJlPH@M!gaf9dp-2UL9 zgRZr}9yI@_UaXboX8D|yA;*(0M>l!+`OKTgt`bVHEv^QoihN6;N zC=;M#a8f>4OB)`)18!T`eR^>$t=(@RHB6@ucRs?uQ)TmBrC5NUC)4ccc|l1zm}k6^9!ApFvXoz3YUKC%$QZz0 zRo_a%;heE@kz5S*;GY5YRQJk;mV%1vyt2w#bKqogSJ&F}D4L?-F6fMcf~3q$Bd~4F zU=4#r=*1}23QHsrp1`*`NLELQ51Ok-U{R@Jbb<9cAheZ9b>b_jsjk-MZ&xLzRXeqi z0`N{9HLlA}R-+O=L%7gtAy3TqOZCTAQ1i~8|NFle0+vg;ttfX*-MM`eR*#I1|KJ-x^R3_ilRy94|NP%Pcy;wIC3E-gUEBy7 zD0q>bnpl<&`CtC^-yR+r-LrrH8&iQKD0P{OmtyI4!Q{SpGX)a0Ul9;MJ<1BGg>(?2 zAv1ZwqzQDL_Q5LSN26L+2Z!8eeeCY(&CboWD$&fdva=arP*dWw?oLXxeo_iN*}1m9 zzOlI_D<{W%kb=SjHcqQXKta+nO$Eyp?;jZ^|C;Jy8AZ5@_? zz{8WCQCr_YS!(U-sj6$xmsD9xDy*-nZ?>DOsFthQn3ji zr}ngt_IB{1GGcvMT)G0xN5{r>^73f%X=3k0HlKB0Kg@4MEDd8aH=?0Ij94#qeSBh! zd#VPxjfyn4h>u-5`e1L@1J$luE3aRDSX)uHW7}44_nPvOjHLJ{_wTOWy3tTo&PL8U zetC2t{$gl)0zEOJxwr_)va+E)W(klPld(IB#yYjVjs<_E1$DRzf!=+@jzCRsjI$If-kq8cMU` zsDz@{H2jk%PiURvBMNQ|>gUgqIM&QId!aoElTd@PUs%I=n;?qi|45P+;$B zD0b}Gi?MSo^ETsUL?QxrK-86HLnBOS*t!#kIwIc7R$U3~(7{82LJr>7%AWyU-?@X# z0*c*$JTr`+QdeO18=1vpyfaw4f3my#>KWX@+llajeR$}3 zl~jc{KoOKw)dOV6goUa2>5eD4gLhR`rB(G+8(w{>>dj`ck>729Bi0Zyi-X)0-que3 z5S{zYU47y4NiiuI`IU9WwM~37{gd+}bJu&u=X*zIk~4FUo;*ipVJ6JTFOE&g(#M)t zRAH7!JWEV^Hunk}OiE_15Ci6U*J%VN^F<2<%Vm0gahd7J;JveV2%dv?5tMD6y-HdO zS8r3`Y4Ul6#q=9&Uj{-}ZXp{F_O44Eh(|=38%qO^J0BJ)Fu_;~0otKLa>Bw?Sq&_% zZ|(r^X^b=lC4fCUzmO=DQ&c9|oOZ+sBW|FfwUdpfsl8jl*CK_z=a*FicJh0Aeo;N{ zH!{w?Gchr90k_G@$(HP@`eT9C2NE=|hK63A zTllr#`}6YZ8ZDpp>8`SW`R9NBy&wL7xG_4Z5LrPcP^XlB=XQE!lGq6%Oyt0*_B!*Aj3oHO|a1>hQJlUZOp&=y}- zT1M6=M8z{QL_V?&%6rsm+ARd0TgIZ`B}9~Hel*dzxVS{FTV_r$wHpXLU4<;u-qyZWbf_2{>~C*xtFNy&0CugY ziljqw_}LHCp*>zrP;xvh`mnvff56VdT405;0I8y`1w{u!qHv?K>ZYm&EpNq^I;jYn zjs-!wvMeGuR&J)J2OU6~fl&8>L2t<*s|-sF{XBTlzP`DIMFvp`GZq&w-O$tk;Vmqn zvc92?*k4jy1kbNszp6_7?O*ur-0ZX|D%IsB0t6CcqxB-SHPo3aI?~@`wo!8YrI#N( zE6mBPttff&;4VX9by?A9fA>Iln@11zw3QX)i299<483sjL|s`?*ts(Y_U*N~2W#+v zP@o7%qlV8!2JC_>(us#*BJ+s)n&UB=JO)X)1^_SRth&0Qsj0zq52V_84zf0H-;Rg7 z!w*R|hr@=3Q6=I%{n#$p3TCFoLgd8bOh1AvFjWJMnhfL@ChTFs%>uD`Gf3xl z!0UovllXmyS0Zv-WB=d~Y zDoEFc6J>9IDV9~}BH5eKlfAV~UQf5I}WmaJ+6T2`0eig=*^xVR*n1r=lnzTy^fm`0Xq7X?VN5iNn zW(A;Kl9ZKiKcbjx zQ$WN~XQj^z$>o}-%$W5NV0$hDkCvy>iTP!_^R2t~?KyljB|BhdTr0cx98ga;YF5EQ zap=I&cS9l~i8dA0)nu0wXV2_8AY^gBZVs0TaOSC!BS9Ratnv$xDuqe#DC)dmW8h&3 zIUf?~1Br}K>xq+nU0TeAh_PEJJVV6A$l-}enoLG^PF!N500HvyZ~yM^+QoPE^-eD? zUb%I*zO^l{q*M?wY=89p#q7c&wf2**eD(7$zH#UFZR<#Iu58`L123hHS=VMHKfiEv zbmH}=Ux2$kd-fhbdK8}z8qzH$VWCJ4;|lvtG}?42M$$LgpE2?r))F4(I+Cyl-tBn- zJ3Kd&5>cm|YXBwnEAqnXV4qS~r!E>38wbpZDqMmPK3xeiHxHg`M5W$P?AhA$@(W1K zntC`lyhWBmck|GO_$1XUzphq0J~1)Bu<+#l=ZdNiA3eGM;0flhHu`1c-9pf+MW~P}LU0zg>DRN}jj;D`S7iTXw*H!BYy0db%x1$w@Z>%nly%<(sSvuIG z#kVOYA}l&QlmefY5WAn@WZQNtxXx*jCWHlAu^v*I40+s6Klpk+g!kjfu_G+vEHu(} z?J211jO#$VO1N-YvE@3z_Wk=X*dUl_=MF%v5~>+z|H1umm@tletDGLN03}OYlsYT& zI%xS3K@U+$Knkhqt%o_^j~|7`O8L-@r}5CCgP1)1-yzC=mtzUkgv8+I$tg)X!cr7{ zLNDn4^IKLQyMsvEkBD#!7RHW>TSvSi+HZ|8rXGyf=!){43+I^%+_;;h{m_mW3qwNA zK}*=KP)Uk$jZju0IYW;zJ3ovHw#Kic<$hyPESOL|1hX= zzb7B>uo}*bXQAKNW6P%)WyUtJq!3l=s)4joFLvv$$S0`!R2WqjFVPHG;#V>sS zmw)uTbdT9ZsaX$HR~<}ycMoICmD_ihZ{O=s_-k&NnqLyV_~6l#p}|2h1p>C6r0X^~ z7|dZ0D;NEsxY)#pcCPQ?;W2i;{f7=aj}=v|LEM~NAI=j6L5pWvM!Jid)KFF~G`PK| zueY(eQE1kc27Q8HnHq?R82mqgT9yJ?8?fN&)O9Tq+%l*yLkq07C@94PRi49BXHLU> zYPm8f!JPAu1}Hp@^X7Le%l9yAx!tGO2k}d9lo#NyJt*fcg0-R_M5X-+4 zjf!hJ6~l4n4Ck9N+3DlKeDK4pCkkr2;p6K8o^uriy1k!L+umUNN#zNV zHTM3t6KtFucRV}?4=Jaj>p?G7Xeg83IfY&`RrOV!I)k-SQuW$kg8)j6jKs=bNJYPt zn$_MnVmwD~Sq|5dGDfUs@@f ziwMKME~iTc(~k9Am||%nLFPh4Brm6EwqF-g(;3$}E??Ap6;{ie-3cI{?mck_`PwV`{@ zC8(;Goz?c436s`%_X< z##oKnGIEFt_n(X-%Zg2Dl?yRt?LZwrI_^z3{?VvS(F+0iN^a*AKkmR zx2%E@r5L<3HmExXnf4bidViAQ;x%*eKxSrSC{>J)kKe|CS05}cE;YWf)?{R4vv+z! z8XAc+URw-;tpu_T%=`NX-ekF07w~i#j*Y|ipq@)sXlMZMm0lV{%?bW16-&A19WC`9 z!FGj#@&MpTOpeW7BTp4IzreY{Gh@`a%B-a-j7K^;N-~(XNJkDYpe0dP@suml3%Txm zy?SE>QCD%6-ewW;UiA+S8mKxwKksneDDc9>s!X6OE2YtyqoEOXWMnWpDpDF;R%WUI zTfIoeTU;I+Ir;8!W91Y^-6nQm#x(-R}c8+n-Uu1y;^ zzpGp@TLINXE`;O+07(%%`z zFvHkxJQd!q2^6Krlyoh@a0jn2!7>`e$ZQMxPu=W>{Arw!?@(muEr;LJpWy&!RO!DBN6#?PuP5_f1iQFvX-w-G%dXAv=0vfa^Bo{CVX( ziw-khSa{I23fiN2#m}9mL)(30yg-aCvZ$;&Av5oyiP#BgG0B-VE!`;vr7iuVpM3XM z+K0wR#a-Ngc>m?6Ej>f|<+XX`wW)cWM#kF})7V*S7}^owjNG7nnU_GM-1Yt_Qs;hpYpcC(6j1^(+7H>sJ)n=HQ z?uD#AYO=U}NCbCf1ls>5OU>>k=w*2Cd8ohlc1F(3sw${O7=U7TY>I8U#kRcaUPV`w-G0 zwlXVyiTAIux!DzE7eLvnsjY>Z5S|Y2F(A%kED#918^|?x%mxQanm8zR2gbvESz9wR z5)Kx{$T$)?04mNdaM%uDHO6X><(Wr`NgwKxL~PL9Vi{}iaJ0Jktw(6QML|~-#HP>K zG3ZXuNY_V3_sBx$@^W)6E>L~#IkOc$G#s%$X6NK+EcG8|E(xa!%QuC#zQKW|rlgp# zY{IEBX1x85B-tnq@Vt2=tE@qdjaH59?40S@IkM8=$cQ5(#Ou|qZ*263+tfI1glbyj zK)zFg@x!@c(kNwHWssxKFx8&!4kPNSg6T!&XHT7U)%Ucw+`M*$|Je+q>50+YjMR9} z^Q^Rtl!VUKM&T{M95P^ldv@)l*QX`My|wObCOs#HC0#vFFoL=&OF6cwUI|grY*ZXT zL0T&wcnng)1d9n1%VG*DC4JDbFU7?a6y#ycD5zE?!ie39-+g<-`u9$qXlRg_5u_}_ z*mLKNCp!b!LA2^BwHzReKXwU#ZbjQ;Yk`ySIfx5bL*@keGiym}N~L})NWhA|SW#If zTSlb`P}3N_oD0X(dbr@6H3IyW~wO_w+OEA@JEn$W_6YzGyVyC=C2iJ;I2fRzx5qlh4584X2 zhTfpwjd2LVqv!}Y-G;{EpMJ{y;vG{t#n|z7x;nYWFS<`^_mzLrKdlRBe4w}g#7~%1 zXiH+j@pmbfu|NP2h8f3T^CCOmGVL?sgp4ykB{tUIsJSUTT<=Z-MAFzu7m;SAa=@<0 z)NS@$CNE-bV{}qFsLw8~Ov)|Fsj6FCeKvdJUi;vrIj2R{Ek#w0yfM^i6;)!pc2o^S zL~@o#lsgbZQqoKyP>(om6iCEH@E#(aCnk>L#jT~iEBqpB9kC>*TyIEa_1xk$zZex8 zf9$<8rDaut6pu+JaOJ`8T(!{zmdosd{K8Vbv{aY8{2~Uq?3{e_pc$3|6LxZ{8Zj}P z!o(g#caj4`w0Uz3Z+>JwId50V(-0#^BOaI^K5>#|DAdeZ&Z1x(-szwN?bOMGM-Ok> zx%1GmBL|Ni*|vAj&VBoK@7pgsLkgrdQ3!Z_b2CPGW#wjRMfrC5)fX;URsb#F3Xjy~ zWb(LdieO9SgTRnoR#;O~VghF#O(xfNBqtj~Yi?=;D^59+FH|AnWO+rU3lQ+yUulHZGc*SYHz5K1ff;C z)b7LyqZAwDaWyrUS5_(A65uTXeo;G*N7{qg7O4ve3S%r;x^i`9c1|Zg47WcjEGZ?n zkfPJm(@SjF=s6V?R-(x%F~4J@W25XbsJn_P48}1DO19m zn&qFD_L4cO6Ga`fcNT!7$p4fUpFj8OlX_(7@JmZePoF-K0`1yAe(Z?IsgZ%+)!Qrm-5pbtqZ6ZpKp-YEOuaQH zJw*oiac=XoXU+SRA`9nhDoWe|GQ8zzhFn6FSQXW7Q4yaEj(8*0E><2$t{8A#TvUKy zQ?0S(gGZ0pKcX4-l^$t1^Pa$VzDK$`EcJ`zclAV~y>hVAo(LNB83jR(F1v`xs7PA? zY3f!htUCnBIdj@iPq59LI?4O3b-<~vswj7SZBTsRcw}_su2jNcUa)=eiMyet)O$LQ zJufND$A`4raagF565=sxC0&Y(%7t~`p3ANP%ko?5SymjMtWgyXFFrBRMXJwJtG*6F z`C#}t_O4jwvLRxUGHqk1*#z!giVMe%YE*OyZ{E7iUk%mu#_rwAU$zfK@7}!&CR^Zw z&M#YL@V$A<4%p5`vwNoo+YOrnbK}0fyE$sWxb-y9Vb(@9vAO$LecipA-fjihs-jAh zf$gW>J?_0_C<5?Y5L}SK-apU-g6%ffwUPnt9lR4T{6+GInP);c-qp!sm9=rDFwyh$!V?qqm|9wTqAQgpH?=t$0=^EjVooX zaU;uQ=NDz=;5_{0>W zZOoshV;7f}Q_S}tdH3}BuoGG|l`VtVfh^@wf=p6sW?BaM-7zO!v@eLhR8-8rn#8R~ z7Y&TZ6d}F;fu*0+6AYOGeY&-5Bancg;C(LS_{m@{39(2m;DDvklB_Y~yjj3Ozp0&< zkKxz}2Y%Y`ojiN`pq>kF=CNaV_2Fa3SYbGNHEHVK1nlH!T{%jMOoPNOod$5+Pz|qa zpJ&1K(fBM-abFcuYpbi0=t)V5;9bIYUvD>3DVbF$hzSbkA3MXW6>KmOcT-t~jE8^Cih}N3CrwFTsA)Aj;A8IPtP!z%!5h_hUk4)uKzse8ix0c z4F)FIe@T1G)Lvv+qRvHL*{O+Z%ZvB!-5MI`$w*F2ONX?Uxe)M-^N_O|VjFZGZ@HJCeh?^?Q|a>; zqar}1f1>n|kQq`7DpAE}0`MK@wjDdDLZ7}t|GZl)TQL3i;9UVD9As1{v2auQfdnEk?9K=qo~7n{G90#Czleo?*L9t zX4$uU@BVi-Z2|APR5ongc2c-yXedZ0lw1C+AZ#w`&LDc{&Y(#NT?gz^%e>M0OO;L6 zgxetFk*5)E4?I0+jKv4h4Co|2{Eh_nJ-!`8+mS@91aKf2#3a|}!$*?UO8$H5~4 zFG+I*2*N4C9al6Y#-(hu zrHv}?VFhp+({C@F54;4nv<@>dG4AHg8y~*>5cveBN+jOBIujxa3N3oprlaIUB<=XS zd)ET%Fbzc(K3Hd}G7!ct-mt#D(OE*>L)UHPs6%RejO(7Qv8k=Lt~ocqC{Fi5R1Cua zKY*PbvE}mg)YSB}78^HQos@yM4-XHqVIyNH@V~cLV!U#y0ZJ5jV6Fno^#STN2$4$E zd}Z(Qr@(O1jn18*E?FWYzXo;3z=<9}mcSh-6{DlU9-*ymXlQuAw8OE9NtwDM!8h@6 zb;+O~iRM2vgzcA=SE2#>GprJ}Z>H>NJ0i9lC&w(HJL5rV`s<43u^Y)zZ@F#Dup_!CHBm zh~z!T)!W*d3k&mxM+UX0O-@abqQ=I@YO5<5-J>GHXdzYQB@<)A=AfD_E!wfOy}7g~ z-yR<=^rv>Wx8l48QiFFsjT5|%bl^>!QWN7dQXE%ot`dq|AV zPg|Zs@0gSc;=l&g}!&ab$J>gP|M zK4;ee=~YJXcEGK0teaHhyzL?tMH$rEjkM$20lc3*=X14Jw6!5h1IaydJMr`r$9YQj zA3C^CdZ+0rhYtF_skbyokGING)dko|?D0I}I4>m#uC%h8^>G9u$?;>(1UD8e8~imJ zWD;y=8?e_li9X0UB`}7Cs&JhTu~MIL_S%zjo#{SWn4h!#L?)pz&a8*Xd+4lH$+eV) zF+s5u#Kl>!Rag!kaq%8e)x{Xab1`tE^!#sja83p*oLzF@f{oRq;MC8_$RsjkNU((e z!DS&pKFlz+ToQ-=!Pd6_pQihOvirQQLvK>-C`9iAU{D4#17I)>(|hl|_uhL)?*svm z6iG>JY9u96w7NvuR%FW-ZMnp8lVdx}jvXgjetCIqJ+EcwWxbWW=>5Js33N5QbLW=- z{g-|A*=L{g^-oPtFR!dpIgsbsxmh$!Dv_6;M?E$mMZ%(H3eO{LvuVBkeU;T!h&lwe zTm@{`d5W<^Nb*Z_Ya4i19MSg#iYZY@HFGoz;Vxt_6nQRHM$d0;u-{iX_jvwm>Kg`zMq#@euC^n+ z#&TeEozzoST9Sgdr#o&bBwy4QxDnHah6Wuv_W@dKYpas37S)N#@tN7_k}!9%+1LD>Z>XbA38AD%NO6?+tbNQGd(qaX=A0U zy~SuZ6uqmxxvZ$5y`@QC#l_?V%Vne`YZ|-&*y%Il!vob7CCWzx7T^hsBE}NaL@Ca3 zVQk|mGY=K7(y{aR#2&j{xn(2vimWCxaUZ z2HTC^AiS5Cm!Z(xckjYdh%FSGP`HnY@m8=si2Ixj6#Q`oo>+Mo*{DaK5=TjvhZQxY$TL%G?5T zET!)UDdCpP^N-=}Ea^U2nmwW+%gst9xILWTw}0=hT|1+7ck^1ygd-v=%Jot1Vn9(AI1U%&6$Bv?WLJYJADK^!PlZKzw1$pvR zm|7TYGiO}>?#Wrw9gNJ(Fqt+sp1jS3$Pmu)qBd&U@8YF9ro^D`P2K%v4b4-lmwU!$ z7O&lzT-m5=vw&S&p~Z|!tElZ(J~BOkcOBnWl=KE#dq}}2&cqQ+peu$6ilJ*j;Pebe z3W@FT$oRnEh{i)uA9b9SCb71@iSTYTdv0M-oWf|P7I^lUEaE&^rrd|0Vf3OkM-YOr zL?9UFVW5YEep@+6egPEsb^J-pg8VQXBSqbzIqIc!=x2;_DI*chEha`2oe>-4pQz|) z%6QNsEwCb19@Tkqj=-XdO1e21b)0ASFn#6ZN$L%8o+jfIGMGsIuJzt9mNch+hMGc| z`I<;9@(?1vY${lo{B}y+2Wdy(J!0*c+S)2r#G2|#=Y#o;kyP$kL7ZoRON+8LK0am+ z&XO zcuk!0&0%{n07*O4k7m6lh)(g2>hIx0$P>TG^6 zrJ&+;{ORebp@9Kw$z8j8ZDW1o`nBt?y!zVB+qbS9(gluYe8pj-Cg3CcqxBc>XKPNektozH8s)|QLCbGds%0}UdSI}rxLSSbL_N_iS- z7X`>KvNW6%C`nuqV4tO*2yWvrv<^(zHYgd zta=%=%p*~F8hB@wah=mI5qKKAPoZqv0P)CI!_Q5>gt&0q=mo&b5oGUyeI(7}+()FC zZ9BrSM+uI?Ye;jV4hLy{t2$m7Rv-V~b#`7y{^XcjInYxCuDhuAVRMa$o7MFWHf&DQ6oc7|P>!~$1c=Efbk%u%rZfnf-bnX9>)1Za{8D+^#p)Q_J& z<5a`0EAXqLVsHr_T#p8XD3mCe0&_sE-xkOQS{@r8(&uCa7vq)_!V{8|XS0PB6Zjp< zV4)EZl!#I6R@5kH;DH*epbot@L*Ks5;R3~nUhcl+trde9!rW!T3g$_C0&`M z%t^x~>0(SsU`sngR^@!-Iayp@=08zZfZ^IF*|a-5+er_}GOekt zkeoil0c_=#^_tfKxZM_)8*4Hjo-`=XYcT!Rc#5nYN-vi*5y5lmo5UEybv31SbtYXPWr{Q#RX+k%ThNt)bw_>q3dLs{d@PC=$@C8+0;-2Kk;y+UH>T{(mkY> zh}oj(q+obOS8EQhO#f)Rg4EmcbBwP*mT2e!M(dcYKXG9L!RaRLKyc?5VDDePE9Rdz>gAHb^T z`jzrS{Pzy7nve*bv4XJv&s|=nS;?zVbce6L-XYEmktH@p1`*tk=@~8=X`S)RFaf&* z6pW5xX{89Z(_x^n>0oBaoC;!XnAvU$*pA)1r2w#(17$tx1BjX@i91YNnp=Vl|!knTY&uw=1AV-ozEW)vvG}fv3rw=aY$w zBD#Z)O}g&VR!GIrAUtviC_DjmJWZE9qmw2KoKc=85b&g-ErEQ7#h8#};}$cB+s3nS zs+ZR_XB1T!IAAuqA&~uJlcpzm5<|PGEY{$0Ay_R#W0A=%*_e`*;)=tFJZl_hu#`s_ zGQ8!nw38Gp^Z@}!my*?O)K87#k^G`Vo9k>6V4=51B*^q+)Q;oDlWmoYOXH!EoayD7 z=)d-@?-~53`vj0u%rLXOfNWy8MGW#;QZhn=2OQYIaK#k zEtU2z=3)M>cWOm(d1-2fcRNQvR}K*TL@^6+8%k+r6zh(@0MSRIezZ=FV@J2rG5@-eA)Rb_h1n%Ixh%zRU9$Q&n%DcXA-#*<-|N1}t+=bJ{oY&nY$)p2g z`Oj|OP8G-VWuvdY{#os%5_vYc68?bd>Y|DY!HnRDno27y(?LjAlHa3RZ_v>8Z7vpN z(500X-^DZmUqX(e2M@R#;xD|3eL`MXJ0e4dnj3WS6Y5XChV`ip+Bgi zBJgR>o`wc7$X!gVtgNiDv5`OA%q~0`fQ#?0UzvjQ%}yw!7L}A{VyfdEyvs#{&uV_wU^?L(+pzD^wO|h7yoL%qPe|OFA0?0kmR0V3|yf z38d@8D$GYyeKnICv$M=pi3$-Rj9w=q@A6vDgw=2rSCNba>KGTR(CJOk{`30vQq6>k zF;W<|6VIuXJeIyJQZ2z$bafag{BBq%1;hIvJbcK>n4eF&KN>kqhW+JX8mtJSCu(H3 zdru*i4rU{rsE4ACSWiUk5S9t}QgZ>ZxTJ{lR*0d5i$P?Hh;1h1bdpv9-&Ft;XsRp+ z6c`-IzyUYj3N=)~?$S`8M9tA=TS93+8y5>{;kFBn$ZsFQSh|X~ZW@oY$bF4S^cI?o zuY+P^?_z;xa@0Jp?D~A5?p&1K!A&55=g$HBEsT@TJ@M3&0o%83QA_2Sj#kve3!{$M ztD=}h9(wC_lyEWNQF>KZg**Zf$(@mg?&^*_MU_FNnfT4$;ldYOHChJHkGJSUPSokM zMOAgf(+e?)slB5U<+a9%bu_fJ>G#PiDwD&)QkBr$!eT(jz6jn`LP;nf8bh-K$xo4s zD;LaCw9qFX0lkMuCnu-plPM@R&zqm))w2|)D!yuw0}0=8po3T%-85vQIW1|D6^ur8Irr^cyzs*GgJMC`e< z2H_?oT`-ZBwcoWrJ{c_53Jwd)%Z<%VIcjYeE`V_d$c1A@ldF=4nK06OG``N{Lc6BpY6MLG3auxR#aCtH8*>6gh#(NFBTcc z4J+^}B$lKrEjnx@LYNZ}Y-luj|22hPQJWXvlpj=9PUPA?bxQUUi>o`JY9EI7fI^J6 zsj=a~qX%ky2(Qi4D<;wzUuKMeHXJ~Wkzz+gY{2db16Hyd9??jPlY5CBYeWkVq(9M_ z8yXu3?4C(Y63~HsPhY=MX&B5nIdy5{GI&SVDea*C(xuBIBO`i_mKGQBd4KZjVCrNqQo2q_v=?%BVO z@q@JMPxcGyPT)*Pup}(hPl9RmL){xfgF2?Oj$2Z*v#ih_2yA2;ex$c{Wt z?U5gnO`MY`n8s3O7yy-$l8BQ#yC4;vN1XNkd-oen8O>5?m>9{0O2g|aZptHov>U;2 zGZLv~P;%6%VLLmGO_g`JYT>82VCI0IFaWoAm_VF)I5Yt8E_hJdiGk95ScCz(AaKrL zY-Yy{3v(RSxCH81+hIFRfS_xkRbN(A5>0G?tkK1~e}8b8XJ^CC3}5i<*;x64Gb%ax zf_fPMcS#C%Mi5vZYO@}SR0oh&VBPZUk;4b2NH`ZyKJ#eQkhdcopkN-}4fY}j2-HmcAc{=F!2RwN6NR-sA$n;vXP4e={Vu?vq z3ST{2TNCI@%gjO1F^_@qndYwE7eDjX^x`5J*)s9nyy;_8LlFI2}vM zw3nhspg?wSE+20s$_?IMeCg9)`TBQIQ)Ud~q)~1XC>{&m#T4qgP~s~D4u1~mPKEHX zar`#Mk|p~UHxo5%yfCCF;KHx0sU;lo^H|BqyV2BW?7Xi^AePQzM2V$jnBEX6&nKs) zks3O?yEyk)@)njBIT@B#SLE6*_Vr7b8k-x3M|B`hOXTtJ%!~}`o9HXfn$)BQQ*6xL z*?8W7j@ITs{@Gu;gy|cGW3kz@wGfAk3JTS5(GSw%H@^R|RORRY=RYG1#tbQsz%ED< z3QW2fB8s2<4zM#SICaWOOTiI$hw6m^nA*cs9dL5l=tY)(`zWV?@6;g>ib7{uWYj>W z7@3u8`d6=EYu(!CtJ6}_(78Kz?gW}#6UKrSSc)RU9P9)d%izdpK~YghS4T^mUdl$G zZPjY=S}g#!<1%jL zj^!1MUCnf5W%aU&VApS4GfL6%j_B=Fqw>;H@le02pWvO5Mp=PF-h>*lLmDn2jnH+S zO=gtU>P=P;)o+E;cXoE_f62|xEXd1|`@?qi5p`GGIF|>qpg=RMed{BtDuY-;nhi;Z zB@ty=b*9j@v~~G{b)yqwO|8xP@ex!M)aHi~O>UMvPB>TFP}|^0~FV+RFR-@tz$Ij0GCndCvhBF+$Gv@SuLP1#M9bw<$`&V1 z`ot)hzyXP}Lv=5tp&i_}_vxpf#@n?m;N%otJWy|=5GiK4i6*=;4h=|m_@KHRfih!4 zft%{8Hxdh+(GpDZRB~!+VPR3SSe9}zCNY_hVRC-8rK4wXe7v!<%d&7*&mn8ThBv?T z)xZ6J|G%$%`(quEdh^*H6NAvKcv=G98=6}@6ZIur%Mz4OacRQ3`X;IztSK5p3yMa@ z!^&kUq|nUNC_i18w0A0}eWaBDt8{G%8HW3!R;%k*`4fx{SzcY&7;^c_)epY$T_6uY z;25lqzmO0gk<%R!5lYO(dV{izB_yX1BivLKBTo?qGJOi>uI|98PHc}laf*$HK0}tL zP$A8vDmiskZM7Do_HJwW^r>J{7-kn1*3IKuS(%)k(vU)nURqwBnVnJalB82|Y0gWl ztNlX*%m~FYO`CufO9gg zliyJE0OQ$t>U&Aa7ilmAcHWW5N?YY66%F-G2C&zpXcfrf>n_d7Vdu7LbD3d1q5vbQ zUDvBWE6f4w4%l8~T7FjSxp-PmPyax6Uas%k(b+CN@mH=G_7T-yW7A-}b3olx`;yQ} zdk5ykYd<&dutz#88XB9_O#r?IQWV|Xm4}aBe(}M>+jlIx@lY4)=iYpq(th{uT{NCt z!+{Cy*>&#Tdtp5|srvYEhDI%5z7S0BBqNi(OPF5rAhzl@i%d>VZb{@HZC}|LFsZ}h z<4{75j|#Fmimj~U#l~0ULU;YoYARk+EW;3IMJ30yv#YbHq{wh+W#W7^wWSB2xdUj@NcG{NC&(DpI40F6t!4X2HxS7dupK~Jm*!_FACr5`H zYpTZv`~5-V((?RlO+}gZRm0zo9XT@C(@n9#+Y`>lS|gh*17t}DbOSL0;<8KgWAl3; zx&U8B0B2BB=>v<4Y?PBwwr8@Bv8AA!B+}GuJes-I7O)8Gr;7*1&n-*)RJ6qd|XCh?7=bdd_O%R+#Ec7&<4=kpV{&p0*|i-b4d6y zQ3yZ4mpHib(wshRX-l1vx->%2f%dFr;8dfK4Hj!`o&u|b=*kjvZL?z<=~%J6NTG^$ z&{`7{qfeb;U1oUZ8fJ>yAHtioBg%3d0G~&~yam^x*)bd`u3y}V&)*ke?3ZT=Qg#}qdJtYdydvrp?6W(tz;1l%^3CybFvI2U*9Sd`vg zZb@Sz9)JAtXPMc=~sP46H_MTrPUp`NoaK=VPM`Q7}0f30n zA)O417@C-y%*r7%pI^UR)zs3|(QUM8|Hx=XL!$vwmY8qv=+rC3Z9Koae*4kO6-cr) zJ}2LN7~MujekmoAcr+s7&!j5R5L5!&;GfsWboM;HY+tzWXXX}%N5>)+)xyQ)wJXMsRfXUAqkr@1*Wb|FK09ZP0}U-#N&1NW zg-r~PxFTV<<~dANeht7?MBI@1!;$VY5!vAka!qjAB=T2_L`WUkheRN$=c2Y!o0W9# zJ$!WY-aYE*+|uIeC5cC@He|;ONxU#?2dp<6{G3Bh!oXJwtWNVM7enF3Ij!aXi~Dp zkKzovDJx^J4A%PG97jIYf2krcoLlv=#~**tw}{^^3Nt@$26%E}Vm#%Ye(V2d z&fxH&LGnZxU4rJ}?J5!SrX;THpt;8B);A5QvAw;#zKK=Qq{Pg^lGPh`|KRWbasA3Q z)PfjJK|KYZt81-=q2G8D(i!8GRw*f>DTR|w4;|zZ1)=bq079jS@WT>58IIz)1;&pK z*iOSyBz^g{Hy}K&UQ${%F*z-;LgPbG$AQw&$QaD$qU`DENAE9Rxo$}Kt-CK6If(Uv zcS;Mp9q+URDhTOuXM-i?TmlRaBs|?znIy@K`kI$38+&J3jUWQ6XXfS%)Fuj<<4P`m z^y$xt8ptS`r@cn2xEf*^o^2R>O|=P!AdUt_jo1GQtV+sC3$VVDV#+h;q}Kn)?5rv@ zl40Jcb5|=SsV~W%7h!cD$SoP#9c4zTp}wBK`nP{ukZV5DnT$++cy`J(Z{?(tbCKw^ z&ivXZzx7{!@r$4S^rz^$i@<~4%0_8_5VZ?V=*Y>e^JCP4{rkg2V*kee& zsgFUoYijnhZ(zWTtcArT`+RC<_U5fSk?H0E+X1-MOz+&WBJ_*O4UxL))j5X1$tk)w zA>JXQ`FlC{PG?UKY_~DsJw(QuT3x3oI(QeDG$Ym4)*=jUas=H&^>qk%y_IA)F`qcE zR%azaPAAUB;o)IrxU{s31X6(SJynxMe6P{2-rm{atZ3`75>ur)qe=x7UE0OKU|(}f zqvBh3#NZCtJA1nGONtxYTlw-^ySqC2y2ody2=7##?twl^dqRqGV~XOe+%S)HkYgd* zwy}uCUA#~lW)gIiwZ;HCirnhrLPhi)2*f(%-W@_R>!g);C1~VnXQUnhkV#Uyb%;Is_%PWrG z%Tr)GE-JerkGO+9S;7NgG6xV|_UzveGi&Q=R0Ob%Pd)h*t==FSDKh&F@sOf|LQ@Wb zE%_oS4u_cc!VoYtp4XAQY_yt(jp_B~o@SHOPoqy9cbdyZ;XJ?;hG;C_2RHUKhClHL zNAfErnm_?veO9ngx){j*g+aR66q=N7Ra7sghxM;@7gNkxw%D9fc!u%s*f>8o2M%CF zLDdMP{V?E)K6#qWfU`~2VAGUx{@huy$@VKN6c-mj5ebg=6TmLxNKH*LmWa57v$+Ku zjEONy!zZIHoq>i)6sYmO3uLC-NLG9c;2&yau`wdJhA^^>GONFm-{s@F&m>ti8R0pr|&28m%UhBMFqa&-;>{kxpj6aKUA}&kC6T_ka8E&|dwNfa6N%{PF3T zW~7@%bLfy$wo?CfA`ma_qT~!?U)VD#5l>NX^wA{OBcek#_ruq_mhND^Qih~ z%&|}MR%SC)S;xwfC`F}JnK^|T!L0LHZV`;;?$)m1!Lh~B>DBR>^{##kYPa|Gj}{e` zXz%tT{cmMOcKzhrs`x<9#69v+f0@w{rd~9T4VRoRW>+#1wrC;gN`s(`H z3hG!}RWaPxlMo-@-rNM+l~(cm%NuK?7-KDTyh3lFhgz%Vq@*MfJ=EfnbDWTW2J4n% z62mX1Tm3vaCqGw=1G$hBkWzBsFw|uTVQBY!dPR9fC`_va5f4C_C_wsVr*Sq?QOGiG zY&LX*aAIkd-M1Gi@=~e;>h++dAS!erAMGRXeBkNjFdXh7Edrp&!KHVruC7FtBS?N0 zVOB_$5vX75-m|i*myl~jD^K8DvIEP?O4L615@>X=U0Q7fH^Rc*4)o5Tva#`D(&Le1 zG^*Upa0K2@nt^lp2(`Jkx|#qLR`Ezoq=K@zFpMd#SW`TB zwet&s1AI)+FI38us|Jr>W>!^wLr_cGJFQ6s(g`)(7upN0edfBQ)3|(fbB8@+7FBLO z0X!HHlR{%rQBjFfMYz5jn_S%VQe{*1O;fm0XsbmKXy+Cd`6y^&np+?<8QkVTXu3UT zi!m}0ep`vR^G|xMqQ1WpS3S*LA;6~~Z19;N0Bx)mAqu#N^m+qca?qu#H-rXC@|f`> z{e7>#@%B6KePEGdauUxmh&%=hM7FEFOcV6Hc zvZ|$U;7yFvtf;BN9;fH$!9HgQOallU;EJk-ZPCjZAkPGBPXp#!PzCqiu8yDm&0lj1 z(|1Kq86r?ZZjDrBjd%D+!r%SD_wn}kzWfEMDQ!~WT;O&xoYF#ZH0tny1AJ7J2VM>X zphazv?4)JwlRa6pD!-`AXf=gyzSbiBXoY1KI;pu@B; zGrORvslB?oAuGGUUQD=<8q&Bh%cqw>+79fekxlye@K6FhmtZ5uX@lg zg15GbKP04Pl{hvV99|fj(Do^Jn41%i)SJ=``^w8xsBLcczKvqEuPKj{3J_-siwcxv z^9(#GD%8&v3amBN8XPz`va)G_8M)b+Fvqw6*-d*_$LQ2V@1SL9ID3pZqf;4DofZ!Y z@~wWO_pF-ajx1R^*y1*Jre-KH#ihza(%IQDzc4SFGfwMWIvcMdnZ3TYW-89axT3=y z=APJ7C(-!z)n%Ch&|snIYHc|c9c}Kf0hLn1JacBwbA+8=U0qTMh3$;MU>V?m1zkDl zv|dZ}K)3bjSPhOR@L5A3l`ZtYL>)WotI?YDLl+k0@%}+$123r}W@6~nCPskYE!(z1 z7_ViR)Kp8HfpUP_i7Au_77!c!hHB&Sqbw!Lk@&yoBeXEkmS4P>EK&3l5;_G2CFaQy zdZdo*2R4ttU2&fzLP8U3ij=(z^6(sQ?uF%+a7|4@+R5*(4uwwND`+Ol8N`d^L{$u& z4(Zc(?Rw!_cd4K-v=_h*-lP09XCTad4cLxJqNXejYO=6Bl$k?`c9;EDQd%USWM^l{ zQ>+t{Sr_`UH<$jNkKeL(FQ&ugq z%F8NEbHv@(szARI4%F$qn|~A@ITl`LXUikV`?5=bAZ>Rv<`Jt*vcvKGkAR`um!iU3V>Q?Pguc02n6<)wRNy z^lEaAcXnm51sdN3)j1!aH0@U64gWE4>+Gy;T=oQ_E>uVO&6Xi65%$gb0{a%Bpbt=W z#wI2$m%O^Zfg&1F2VHik$F+qa)>2RSb4MihNPu*ud!xsF&B) zCTFJLwo<#y%fjVmee`vAO0i-4U|;VizyG`ZTsVodj`<4v6^l-ti4}kGb^_@O_ilgo zGp~N{d*4wd4-z&31D>KWsBg*w)=QGCZ*`KC?PJzR=x2US7ouTEDn*{p~OR>U$sk-mUv@FRtBKy?pc2 zZ+`i$cfUzN4$Wof6F``uUG^9S1EMakt)kF_!^2Jt;B1m3Dc%8f=19K4JBlvSNsjCj zvI*J2lVPt4tZ+FxK1TGg)8tK}q!BV4FO-u>D~h(Z%Abfco%E2pI#LN%KQ%oivVd{@ z_!Mat9pwy<5WXlR%=X^d2Z^dP^TsW#&Mz%@_4ayao21yJ!(gGY z<-!LU$A|))8D2Be%bvWUV`qjcMz3_>R$7K#WOLl{K=uyw#htfkix##zT{G$F^gqNW zutLTR3nTc}*uHjc`^pP-D#a(9gYC-DO!C?Jx$dN88qOD52*r-6smV|@G!s7UA|7@1 z`ZXqb+*M;aDTYy`r(3Y=h3zX#iKQ(uJ_a_)HDFUCty(G=VE)O<&aADg z#zc_@&=;yF}Y?1R$pI< z?FcPv@1E%6M;S<;-?kOD@7N)>8Y!^bpE%r~-?mLM&Jy|9V~?w;!FI`n2q+AymfBIa z!S+x9d;y9UoCoiIa|7=p5I=KVe7uq~>b`9UQz$_!3)%CfWFn9OnbFe~s4zi|{NB>4 z$rN!yV|3>k2(YlWp`2=sV6q8dfxr|AiaJf5#gW|wyz|MJ#)3dnwA`V13*d^4$2jBSE`a%%cB15md z_F15X;j=P`FW%oxrY!-{&8qZiqM(Ri{WXyM;H6J%dKw)YhyQrHH+l7QZ(64qurDkv z0fhSxAARAy4_|ojXl`iJhX@}6zqq<)cBTEp0Wvu=D^fsXXDTr^s5B$P zFbd)U6I(@x?;9L&?Q4JLt#ZT@t@FqZU0O_8bCd^qyZ`8Cf5sEdI!pBx2id$pqKhGn z#y)s3H6^*fyYszwzxcoX^FO(uT$CwE=KP&?|JV`oyOGg5l_V%)z5PQZXmx*YV&6)X z_)c^33b;vmMi^j3M!A(1-sIFwsh0vPqe{Ou&M)0tz4F4y_uBkyN zRNV9}OdC)gb|N{H*gI&2?ZzI`b38&t31quR6{XMa0@vPzgpSqI#vEJ}tL z;orEKihM_^r6l(uYI9#tYikQy2#>Mxnp&w~@adRlAx#ileVm8`pCt>8&CSkUc&>`- zXJcc7E+-6}F&&#`h#_M$MaQP$WWo70<)UZsbuJ#Y~xsL>bcg$Q5m-5Qk z)I@Vzi^`+q9bm#4YkZYemfJbTT`N<=Z7xS*Z(>SPacQx&lq3T5H;nX- z<>r;;dPTmH?u}bFk#;2`)wH-6WB*fcT))mjCGDuMtFi8$>Cmp_S!S)(m0LHi)A`xm z-+bc@BfPEsq(JY&wRi(!%?S@7`R8UMnfQ?WHY=R3lnjMzah>ZEgr9rM6u+o|e z+e57`_Kacjtm0r9Hzpc`Kqf#z$J6Y8JOrX9P`pw4%yg&@tCP4BPoIJc#*V>QBp+52 zf`kLlLER}rm?tD;?l46mzIt&Uxmd$t zju2r8t&WsfY<6@f?vb1s+eF!Qp)(9_Tm{jtDkf`k`bHZXQ%VP*t%y+(`nXDgz1L zYBy>pnHd>8b!y7?hW{C!ws!eSYggCs1cT%{tsH*ZMHjU=X6Jx+g*pSd+?WiJc3VT; zaSK(>NKqB$2pLGVQB|lo-VVkWR@bQ<{A|`*o1B^BGrV>0!PvwU2L>S(w!6W6be$v) z=X-iBTQl?WYp;L!t?#}4<@fP4AB5+pq!}Z8Uai)1mRC32XVst)G&DBPFD~D{cb{PU z))(KsboF{gWwj{>dZu1{^zvul`uytJn#C(u*Vm=qm#$p1;PR~(?$zOTjg8Cemypke zr4?X>PYMU%qph=RW&M(P2aD*XAVo*{(%Ncsdn@)xoToq7X_e%`yj<6^JLE5gA&m+~ zg5+gkhLvnEuDJi>pZ^JCvAnPT0?|;AB1#)1>m1v*V<$(=zx(t6iFeIg`e|L1XZWjUwi%n$GdnP zG#jSxuD=Z~yt<{NsQ9lYjT0tWV($ zBNuyoMov~ugSikvTYzlA0$yK>goo;3cUR9qzp?f`=2#657*ktTRq0n=5r8kL@dS#E zl`{k)`_>~74ZIVc!{i8c??fIHI|6!-j07C6uft|%NimTkqp~I#2e9?^bzyKodmB)N zhkd<08qCpgh>h_EPTt&vW&`1Z!h#B-O0xsitc2>QV*54LzN)J5CNxPzgz>$sw3MvE z0Eykfa}`o%8m6K>=sYzv(W%VLS zn{~5&_sO>IPK`@6E8}M53^aD6ou586{bG4l1++iM(vT4nd}TZF#|IhXGcqy+V=YkP zdMCYVBbb?*MA8UFbRdRy7d3TaV|`urH#I)0?#9NcBbI(%n4hQWN6>!bjW;SvOSW#^ z*5A{GLXZ@o5Vowk2dQ{w2nax4(Qf6j4E-Kp({`Ry~f6|M=83e}wCfZD~ z0h_EW+Uf!Fnb=sE|NPFKq5w|o>jQjHoSU01UWg08pCH2}=y4Wzu}^epYiqUv@QR*{ zki&Mu4u0+tL*KzWXE?ADgJ}3zw&x%=$w>*EJ~T}4maiQlJIjmH(^CmDpgz}O2~AD)BDlh+G=Y28c_g6d2^U#BD3^h>qAK3LZTs`jZrK8ZUHEngY&X&knRnZ@ zdnYO09jfY?(xm+Sw#D{Nm&kSvrjJC_P*VAc~Gp z&l<-xGBK$}sX5e;y(>5Fu5Mfb=C~*r2lcMi%9^@w{>pDjt|9#7^z{7V;#a@^jlcYd z{~a=Lu5w_g_9_G)I(CBT-D~N?{FY{mb$0dMdEvpkAAa-t&0B1YsJnvf`o=Xg!|%QL z;Qot`9=-g^)oa&o-Muq3Jgo7Du72z8U0RJxc>U599FbLTCNgZ+Yk8V0c==k}=(?@e zU}~r*?KA1C(_vzU$q*U5kUs?GyCZX#m2)9EZ<7&_CnT1K9qc)Mx}!%R!ZVBhfE;KU+e9~hmT zU%tAydgI!i*FN~(&%XPc|M9nf_H(3N`S_`4x0qK6<)TlYf>gaj11eJz6LRs&`ufDo zlpah4R=j=0c*CW|)~?RFrpDp%ae4?`9v+`)WkVVo#NHvcW>vouPe?HoEd^OUU&CXg z-a&%nooOsMw%rJ*$HqoxXQv_F*qD546zT%)u(vxq5P0|us4;yNR0yofT~Sd+PeI=C z^t!qlo;{GOmR(gDh7|xt!NRKwAwgK2R0?G&nj-E;zYZZjPs}U+Q{CZ+BB$YojW2V?$GWYe#PnIbCVB zMCFkpA5pWF_Jl}%j1mE=2w*oK42ANI;E$`gqO>?OIT#?dl#Y!I!ATdQ0JXF*-`Une zrE!5``*=cWVS%f?C^yHI&N4ARJ_;z6FNX&DSQ@+9+oXFWT;Txd#nZ`;9OmD+aGu`2 z4d;WR3Xb})j9!85gb|-*#4frEvAPi@W8+~XELG=*i({2X_eeyBkB3VQwR-bh!*Dm+XK9V1Wz? z6gtK>)hVr~#1rNU&(BDEKL^`Y){(8grhY#ClS==@^)A z-+!RYw6wPI%IDsuiga{#Ro2wbEv-z=&b{@ecd5SQlwbb-_toRIM*&QK+B@B`g`%L-^`1e`ijjyRdZm^3`{~@ZQA4mhq!AHdy~XuC`4l>4TNxUWy$(E^jfAh=eetreOj*syqcY# zP0vhML1R=2*lrbr_*k8TbJLT#MsplFe8LqS8w26xtt^z<`HM?Sk#?3mh7++*2by!< znV@`5V0X?LQKz7e!(cor*BTH~vkSle@gH_{4;_edQ5aO?Y9`wVrzw{0fbGPTj7$yo zrRKF~<(1^*TQpW(ud}st$il0geIr%%(v5QVNc&Coqq(j7(v6qC{Pmyy@TY(I@Bit) z$%r9FeohX3k_ahaMQ#li8EWZh-?(;dVRc1g7yU}OMc2XmFfn{~c5-pCcX(LH-o$Wz zA@j+3CV@6JhHa8cgYimpG_D4NH-zP@v2RxKlB!O7ClXg4B^KbzV{q_V1iY#O$0L0Md^ZaWfd#gW zEJl?A-!iPT=?*~#hC9Au4dod$2?siK;V{9(C(;}cY?%ldib5sdr-a~{u)Uz9u!r2% zAM%&_<|f)yzSW$|wDmQ}H~84IBdD%liJDFLAy(j4O$~Ll1zrZ2PrV^G85CyFp^KY$ zsIQOEHQ>p0)l~+6smsGvl)#9FwdEzEI_j&zOO`Bt%}!6#W8-7bSe1k(GuYn;D_r~R z@i4%7=)MrZ{RkPbJFJ^viN)*&O2Dz*4CmIM%&J_+qdo8 zzt5?Qe@X{9%&ipdg%o?Dy1I{@%m6RA;JP?1K=Qb4gMQ6T4erqSy(h^Erl~xhIdh5} zjn>k2uw2rDSJ^f<%ts5q5x7Vz%-7e?kpjBq4g}|@sKfT2j}s8n(=UQD^cDO`0=7NB zJ=UUrf<>MzBApZP0o_1H373hpP=IdaU5#IK0viyUG&|E~zuF>b{e}Iw0 zbNh}R!i@~V$%BF00Ko>R+G!!EWu)0ud6q^1L6g!#GvQ;@lq$91f$^oFz3a$Nol3$Y zn;g3%-maYbsVAQ>3KCbx*!{`H4%k2SsZXJU2;Om)n3&T($dRL2#hi}(i&6Csb7lQ= zKy8T-1HkQSL_IFjwuyDqmiFwU0kBt!5=zDbu76P39M>X40Ej1A4t4!=gFqg0MJ$eo zggf(z?KCE#&|Ed>?FmFr2+S%Yr8#DOg)n4VAAr#P95bUbjdIi*lr8Tuq zu>gLySPHYQ-thLZ>1jm$%U}B@#7F5ZIX1hv{KfY_(i$^3I%XTb_|=a-`J;dH(x+d) zcJnrOfuSx$B*k2bfRVq%nf{@X?%shM^O}o_=NFdg?YOsC@ZhCam<;dTfB4mpzWtRC zzdbfKj?7=adhHAEe@J^r4VCkN`Noy2nqx<0Uf+s@rBZJi0J znH9BKK|3u(ND)`-B+H1}<_y4ggFU%iOc=;3C@-yOuBvORZS3eDUATVtt(QLY&6_X0 zF+4e6UEf5v30itWf(%zHv%UcJ*3pT%S6+Mj_MLk;k~Eo+XOfs8u0kI~r?PU@4VlaM z^ki3GZz;g6tf*~lxOC(C#O(CSrAr1ln*Y+=W|gfTsZCe6wU$UXjTk=12!R?)52aPi z)*?f-7JwyfF*Q{HX!wk=*VWbb_4G8Wz}oimQq@<&i%S@o*VNR=k`Q<}FJ3@e`Uw>U zd*gnoK)B06vYte&yuc}mQ#Ur&bGT<_WN;>e0z4cq1z&!$EC#2aYG!Fz<P+4J!N*`cT-z9wsm!mhLhblaIy9=V%}p{Geg$qr~gD;J>i2))Hj zj-uiM!xQXS-vy@m6r#80dW48P0tVaL7=X|3+Oyj>=jUV@Xm-L(v#7&d!LVJ|Cd+|W z*(#fdma9c1oR7nJQ<)(Z^oZ;h<}jT`VR!#NaUsIn`FeF&6Hm;B*?%nJinl9-NQ_;g z;lOR)#H>vlBqwChWKPErWOjk|h(H}oGNg?Cgq^)mkxPLx!xUR7YN-s{a7a;)+sBhpaY>U6gWlwH;E&n?dC%OweXH@0q!_aw zeFWOJd)Llqo_YH5u%@0xIga7v)GgsyE*1haeJTvB4gW;XXs~kpI8oiN?n8U>uSzlA z4#J(u?(CuHi-nOYg2JEFUl9dpEBa{bD6g%({pgjB-ahWf^qd?SuS?>nV`i#kXym`3 zLPL#r@dI!J0AV}+Y)B}krv-pQpq5IO0kAwUV4TIO0O_};TSpfYnwg5j@Zk6aZr_)X zbiwoqi8k%Mrmn{02-_(&pz_cQgS40pWWx5w%97r2XJ&PI>H0EbL!Mll@TDZL#woiw zPIymDv@(_$Y8;tWV_aMqx${dVZsG(Tk3!no)>U4mp{8u>j=g&h9O~=qw{Ju1R_I+K z%cNSF$X_d~8>{Qu+k3_t+ArOFzW&ThWZ}9{;Kb; zJZc)lwVO8wLYqLHiX^c`Ng@tf^*?MBq2MI^CXlr5K7WZ<25l3K(x`ZlbAZ zjUjAuM-Ws%G^Fk%$h0(XF0SoY1UoS8NZm8M+*8Y7dkHO+1QQWUjBT$~)Bt)kYBx+B z#0D`vI}mk`u*_0mxG&(X9qyul=lqQ-t;!9XLBt19Ks?TI8hNR~Q&xc2#1xrEL+91^ zsaT$P9(8x}2y?Yf4LODRjO%69_pjmebV8~! zU}yvx7-ayaBCoR(0pH)vh0=bwZP>Ntwm;(t7a8B9_`=WA=j>}|KPPT0C79S^T1Ix5!kr2ES&pEy@ zL#&l~PsniTFH?(iV&7{Zz=&6IJJfUnlVw&B{NmT<^u6+xs;(}hA#@fNyiPal0* z|Bnd*%j=glQ}Q>w^!i&bzWkY$^(&@O^@7OJ@mu#E{_vAOqqom4E=^3&FhHW&Z+!ks zzxK)RefI6o%eS=@*&Y+gpd9fB)TP*;sl_%hlLE{&syrVrmi_AE@A(n zz$KV!T$ThdahV(^?MlnYs;*bU93C299-3TPSik$d-~121|JVQdi(mWo<@MWDbruuR zd{9LEaVF?)g9)Lef0T(UF70BvOuIiT*Ceun>6vL7LRVxeqt-=+ci2vfF-1+0g4iWM*x|q$es0R_ zd_9y6d^JBm&urVlfj-@faL=^cdL9^7@X}(iO+TlCf)RMmX6#pmPI!xHvp80gSoF_n zLgm9NVossTRRMm^Gz)tryYOa&mGMZEMU- zFj%<0j)WrmNEU3ZpLif`Au}h7*9A};LW@s2VqqEf1k*t?yZgGeFLAvDab}>mQX4n* z%@o0!s*>^&Rc>7xYM1mg5QJk8feD^2|-()x$CD-@`ag? z0vN%jS^+;H_8x$A&u&m3+FB0CA@&pt~! z^9YB`_U+qXy9O4YF5z<2Ld7}pJQ>Qai3lvBNl@AqHcp}Dr(<9>kk@i3kO^N>OW&91 z1i+KAL~TC^cKlg@kB#I1TAmSp?PSMw@h2vN9Su!tsirA4w6yjO4#{t=UIEzIJQy>y zfAYg5r(V>|yE%a;!4gPk;`D%XGxE~VZ8V26uG7FFFmnq?*IQCjU9)!W=IqkSgI8YH zIfXr6zw_en{OQm2%j*=qeDmJg(U@W|-qntJ4Vk%cvmF2sxOyND4+3b>kvD4P>wYJv;P z%ix{wnz$)D;O;P^b$Vf*{X^zoAnUKH@)B3y?7U$G%#*X$=j`t72Id=AHqIw<^2Zbv z7m(SBmbCJ?bLQB@!nz2yA3qx#WBBT|%Nr(vXi{KzZ*QtE$jt_*PBtcg)Lmo|blKF+ z6(S7U^Ol0bH=IahoWlo=8nC3xb`|Qnx+e9F^9jjxFG-(sOxC3)gxc-iy<7O!ncCdh z-!r^8GQF{U`QA%!eE5}b|MbyoUml&9Z*8Z3>wO99$2sbH%2*x{x0q0s(Q_8BK~)Ky zu~irTJ70eP^*7$6Gy7675$>g?rl4fcY}i|p6keLcPXy|h_? zjP^1ivthE1Z1y_IeJmwthXjL-(97D=*nnh1VXC-((YCf`aBZOqZV98SJNeOxRxinQJTE-!kTC_nr!~a7B z%g)Tun#4XM;@rG-iz`yMlPlVhotT)Ap@cPMSJ%y&pph>xEa3SP918r?TecP#<{2rr zg&uPJICtRe?2M$qmJ^Uq8?+U71~dt3I*f2mUV~ zDP*7$UQr|{>ad;gj!?sPMMi+{CT}=?+;dLRF*N?jCvbHF65(265!@c z8dk%0Lu>%M=c4Gsf=M_^6+VE(K$a&mGp9Mw_=+2H(-vZ8J*ogD+E)V8*^5z7@_ox?cx5OwKvxnYfwOA>F@u=-~ar-{&xlp>9q2$z(jMFlc?SjSi~#>i$PVsn2+N~AD@~c=@*w< zrnyy>c4=*W))Jg^vxEhllbd~LY}ASpin+cfZGV(vGdbzW^al=>qS6vI!G)#8D_5`H zzI(@VqAo*vyW9dU@powq0UJ*}XSDufP7@g>T`M8+0&eCU=3>dq%9x!R$JiCYGg6aH zVRa44E18)r0;Qb{;;Gf{-nUNQ+k5-QSEiS5UA^=23om~@GCjs3CYcU;Fh89<#U4PPPf1P& zCKy!cCy9;or!!~b@(XBYm6NjzKl}IpWo=`_c@7g?uoi_pc*GimM=)@TjqGyNHjEHOP;r)};lu^_x z3{I}FmYjxec|uufks>EMGhk8Zgesdr4ds9~9u9cJBma}Y19p5J&U->W{vGLFgyIN% zU2TmjoA>da6c>*WWP}NZ4fAH;03`(^dNgp{Zu0bhuGZmKjJFNg(?l+w5>WToWjH5TqwWYMSmltgtuq<{UqY zw2Pj;3#Xlv)`RvNU>E=FACMk=cX0Obp}4bQs%=E3*rkw4(qV%!xfh2|(vBLLMhoQi z>7%uw;&(C{RM`IxhZn+j!39i-RxpqZ49`!;gbl-fDKil;+)dT@OlP+Ag0cb9J>e>kfRSV zi5~{sV4VO@?RN!Hc;v{CTB7D$xid>zPKB^ zqmOfZK|Mflhhzl9F?QRGlk=|vlM5FvpzaVpNezHNV@!Qy*@et()nr%{Z_ju+J&vHG zS(Xb4r_sts(>9(xW@8S1<{D*h$ zzjW!^&2RncPrmluAO7;kzkc`OO9R8hRQLbu7r$VW)+NrLNqDDA*dz&poBRp^tm}x2nR=p8(Ny#qdn*ns%vT%W%`DORdNj$fIC_jX~LRf zLe5`S8uI$w9DClWj@xYCz3b_%TloZ>)yYYTib5a9*M%wsR>$yw(i&&lHY@bM@a799>>%f1l|qbN70>UXm2Q( zre{SRJ0Xj7@kAjZX#LKeev)M*W3^3fU4v6h>`NQBm)37Lwsfba=bTSWhV4*7y(D67 zj&@zri&9OcIDak(dIt|l=yCBfJzBNfE#` z?Z{&;-Uv7M_dL#Yf1=A^p0zcVS=mB^sqfYGb#=g;2E*YX7jSb2uxFd=zNy|vgm-V@ zfFcWgIE{^s8dF1_p`P1V&*6i;r$-u2i%U(TVvlrLaB-)bl%Eg4%S-F(%)M7%s8L82 z5u7|;MW(~{4O*1n<>X}tuA7uf?o#qr zI367xbs9@RaB|%|BpT8aMyJEenJFdFpbSzJ59|t3lJN-MS)tasir=E&o8>tI9K1pf z;kMHY{9^KvnJrN*>Ys)3&hsjTeebQ9jTZQb(ZQ%|`8bMN_#`l+6!r=Ap)QFrqpc`Y1MA0cp% z`*3!Uj>C(K5~4^b3@xeptem*mHJlfViEL2NX+S2YII;uLWRPu5tqzzBRQ}?s0p>^} z(1l=D{`w9w+V0&vDzeJ*XH()I}cxe<;^cVcn4?g{wci#W#%`biM{x?7V%C|ly;OHuX?dA{jF7QrMri2ySrY399 zE|-goq9rm)EF(Lcr+TwdF#_+FKxXrpp3wO|H90alQDNpuMTM40kj}RzxuDFnbuqbd zcXZH}SsD56WVO=FXQXMnche=@WT_lqTMc83QAv>CgauX2q5m6gcXo;Msj`h@lafkBH9w*TDr=P?IYjgi#O6S~cIh{_0fM#h0-fE1JwuZ-tGCv!J?b5r$;mG@ z0?2U29IHmAWtk5|1$7P(DUdfOx-3;ud~9O+Yv2E!FMjl+k3aeQ-~X%s{PL@xanF@oGfAuG?yzvH>zIx@#gV$dB(I5WVXFmV=#kJMZ$%(Pa@qwX%NtL|mFsR46 zLd-Dj)}$C2Vv-q~8rP^xc?edb`Z|0PY*yRkdqpY;Y1zbIU)8$qe3cay5I&IejBM3llwTBp z=VFIGP?c^j3!vnKH{o5R@C4!vn1a2a&*czWn5wK2T&MCPLMg2H)l_Ezi_MyhO7vv)ldY%8GIw<65B_5 zw-fMHkAy`5bY9^e4fW}faW~p^U4Jg&WecQQu{5$`GJ-cbIj#?x#?CCQQhzosuC>+3 zqfY(NY+W)+>0@R_I%I~rc)rx$+3Pzx^g#aH`5<2;AbmU;7tSjbV(iMaI~MPsg0{{*jNq zAih8?R2HPG&*DW=LKnrcV?kp-bm*WhMcqLh`l_NT|J|go@E??^GQmAxO&DU%^f$lT zHW!gvhB-0u=M4lq#%63bn5`n~Z(_T8Lm=&DI36O~?9)#^`2_HX{Et8W_|d}_?FvD>UXO>rAf9Kt=eEs7ue)St) z`0Ceh-hC0mf9?zKe*EL#yM6D$i!Z(M-5>n~K~d$zJY3BBn+#29>*{2T#LtPkwkcXLTK|OHz zFj>YReb_F5KCe9_^t&PK!L{V{aah&r7@T0cLX)h}Ma2u$XU!5$qxn_hnE}_X5jQ6u z;(?rLGN`JowZux_#PaCO#>(Xf6SHge&23q^`3CqH;%T+2RR77zV~9U?!gArsyf^bJ z*WP*m2S519-+c6gfA#qf|HTL2`Q-EOet^7jnrWYx;Jo$T2bXW&yngo{y1sJh(#`w# z?mT*N`O@0T`l`~y@R((%rlw}6+;IvqerOqM>r{X5S-*05etEH{zlTii1Y%g&XbC&Lg-74}m;$u)o)N^-I6>OG)R?_H?vMa##h7!q8S=tDHZ)G~U9wA^(Ey z5KIXjAiIyZgHZU4-@<2fmk-XKm#ldS-V0N#HCrY~31gj1rDXMh;VO(wcLQ z;ZTzRXVlTdfd9#7pW#L!#duFOXx~dt~Oo4z76C6F~;}unL57Q~VIm#*{*n5DV^PCn`%}3!1s`m=D$i_^X*l=sIkF^2w(ld4#|}xpk{* zs%+p{71bx7cw)CVH%10Uj6EX)3Sr?}M=TGHg`f%HL5&<-zam;_Kk79G@Aj(wV9QC1 z$PzH3^eQ7d=aGCpO1zRx*P6jyQ&^JFR#Dw$fUBdnR!zVZoc>kqDxd2jjw*=yB~e$2g;f+zy5l6 zU!NX!_I(~~6p;JFWvL#9)%h&Ki=SL5O1gkO)ZxlY)3dW!HME}?wQXFCesExp$rYBC zZZ?<{l$MAQ8QEEQn?%O0i}Vkk4YG&<0{=f#_W`BXb)JV>qDTS+(MW&|YygQm=onyn z!SvpH?+qAC?*m{k=#A(EJ1L1G)g@DsTU?~bwj5cG<5-HF#8w<9%gOa!%l3^E$5xbt z_u1!{vH~6b{OA1bl)c~Y{ob$a9Uxu0BKx+}9>E2PRo?UL^HjU1puKK;t`%tB^nz&i z3%g0!k_QrwoSL7#ef?^orRURC>TOohY-D(pMTXv+<1cMfDEBlnz?kCbPdu#;-BS{G z5eiPF5snWKXN1YtKfck`9vz=xyRDLLfB2^uEsz}2yXE7zY6=8X%Bve2+j|E_=1*RD z_3Vvzdxobf8(ZsJJ8N1yEQvdCe6*svzO|$OW*MInzzxuuZa`wt= z`aEBG<;L0bXQcqqxC954>R{;$OQ#o?&&;2u#+;H+G%+_jHZ?giK00CPyV>c1A#17} zN8ly-d(z$4)6(7+Qjf+)B#`tD^vWH@MWH(3dPs+JjbF-3@zT=LBASQhh*gzraDGL3 zDNR7oO}G;ps33qUa-37-Z6qcbUr>$$PoReC_&IGpK?MDXSMAGD9VaJ>11_$ak($XR zP2#_4n3k9-O^j$G!IBk;@@JR>9NcCh&MaM}7!pr_Jg6^s7)6Cy*_uLYWp8=DQV5TP z3l@-yM49VkTa}jztfZtSqx22U8oU?EqMekll)%PE*RDy_Paq=gxOYfsls>s@2W<)<0}Vd9z6AD@ zR#bseu#p+00i;MTjPdrE3=Yr?RG7>(unW|CcZX;IA_QpI9ps$8#E1w&@le1Nb4d|$ z`yh~)KnS9OuP_i#YC`smnBdC+T|(Rz;6LSUzLr)KTbRRsp(SMA)sqa#HpSclj>E>M zo{Tvi@(_TaZw_e)L4T%5D?1H^N&F)SZ$jd$RCoC>8!T%o@yoID90GxtY5X{BXIUKB zmMvR&=oAq2TZ)U=fqMkuiBS?A*&1^#(Dn6eRUx5a;mO)Hlu@BkG)$;;V{pAUu3L}v zuU)%#^&_iRN`s-;fOO3N!G|7Nu>xIx=u`eZ_~5ElkE~w(s2Az&W-yk0UoFk;)7<2z5(7KVhEFwB)Xe{C09L$S7GAh zgiJY8$&iEdtcm<01yGyBOm?dKc79dJiWNoe{9%JO}+2F z@%DQke)*N#cR%>bFMRbEe^n-=8dZ!vc;@-K*+_~}E0nLk=}=N4GB50vqs@44FKs_$ zk1PEsE#*7NlS|THDJ7ZCDJ9zM%h9PRC+J1-j@~*HRyUARMz+#;fj6{O@ftTyz>?_; z^R<2%4q(kpE6J152nN1UY%pgC59hH~n{kVz!4RMX z%G0GS204fQObV+sr(_B@Qwvf3Bi3I^NJ~hN^hjngT9Yjj9v8RABG#mM!hZaqJ6#$tD{FlYEEvh>{hi`f(YFHE$ z7)whufkZ_4LBts?=y`OctmdXhozlCzyTH4-oRyLB@Ix!mLW8%yt{O69SsMI!gP5|> z2oG@si6~?k@P(!#^MD;Kmr_Bg78Rw67~s;18~`ri3VQ>N5n;YwbX50sp6?TP-yKpk z!6Zl#zlS!^+YO2Ntuzor5VWH7&P!}@hwLx$KAp;R6-zk6=LNq(Io|Rj^rKv&?qZSH zI4A?)j?h#x=1EC}8kAmQp%Kodpss^=zA$*>gOKm!-pEK~kH9<6mp~D>YnQRXgD@=M zxk^B@SR|3qPL`2<5VG2%6_@B>av6gqiUO%za+g;W)rpg@X*Dhs+@_YVl%N>+d7$W? zgK=9-hr!joXZ`wh1atgcQp_hm`GBY>B!A$+2W33c)oqUi$$ceu4%neOY=7AH@WYUu z#tz$~-TwSkNSk;%C{ckyZ!z6NwgWGQL1$P=TZnnP{Qg9?vCWjtJT9PKTMV(aBGBX(n ziZ?*Op0Hx&sB|8w?NoQlXGE&Qdf9EAU5ysB0T~?~crw?TJTfsmw|wbpcfYRbBSi1U zw)T@}FWi6k!)te5JA3*1!qReMYiOK)_sw_jzVXhxAAI5Kzxa}X+oJxYG}9bkT=abYmvA`XlIC*55Sx0Iu~?fuGhZ(O+h`44{S zkH7t|{{A(K_0e zsg?`QsOhDUp~$GB?BXl0AmQ?h=1-pzKb>Bf_e2Ki%$!u#(~;OdG%-DioNHf?&mSKh z8K0W$)V#5?eSCTXt)*JftL6L6EX?Z&6ce!(3-tE)R8?0N%X@5X?(gsI=xD2{Lg&jG zgkP)NK@ErS<&209;Y1!xT#0jhJh@oV$rAP6YxrzP)=~2Ofm+c9gWqDbOP&{!n*khb$IqoYFSU zs30RBq^-5d>}K!GU)4`O3teI0&QK+Ut?WQYQEoyC#s}L87d(iFmOoBN@f=oz2u6|I zVf^Euk!JFgk&mU@&kF!;_&f|`HEj0aipW1mgzbWuVBE(6kpV2XgrFEW=Swu+EyQXA zb%R{-r!nUZGKF z;jleW_qA)77!%auO5u91UuO?6C%M>k+ z_A#hfy*C3Hsk5{fZXK2l>kKeXlgq;5_xAN#+!=j^>U1Z9FxNOCF|c>Uom|fhlGark z8f`2HZY&~2z!!3o6<`$x#ntuo4O!Ym<`*F9__LKhq@zfZkt820H60ipmXx@7<}3n# z?#i`eBcsh79b&8(uitwAE8n_u>kiUBYT^5(tlxk2f-YT3b(@%Olp$3hwt=G=CLn38;eQilppk$aCoT{l1cuELV zC&ZDb-IR$aFT3Zik3|L+S)o~9z)`j3Qa1)60Zq)^LkDak4lSsdOF1%;dWB; zk=*>8gGV%cI3lY*D>thulq{*$$||iW#lYzs=^3f8R8CT;^ocs9Be#gCXgiUggTQOx z3mbAOcc3&whT2R0ZX%wyx8VuIsFBeTsLp4^O1SD69c07_(rkH6V|*N=PHf1o>ry9Q6&NrKS}lMVjGfo6wJ}mbV!i{PL!4;QiqhD;`>*ZJtA2 zMUbJoI4~j$ct_Obx9HYxk4Pwpw$tGOc7RP@ch~{G$uEJbuW*9UK4830=^PVnUJp+` z^(o+wx;rCwk60Dv_oinQ6^dfx>nNs6O+0i{f_SjS*~!v?U?F`)N(Rx1G3Bj<v?BmNayI zlqeYJ{r2q%35lJZUF1P&5|VqP90QG^%4zJR8_q3>o4O9$Wse)sp|Ru4?9Ae6`Q+!X zU9VTabNd){`iV#PSNIY{yPW*8 zz{$f3yi{#V4hHnJ(LKCsV?zTmj+XlMB_Y2&=rjKR0>=<0KmF`8q`R-WlIt8sgonuq_%!4VEisKvd3uNAcI~0V z$7?YV7G7uKt;NQ%J9_vqFCbZqwV;yhJ0M51AippvDMjssk5*QxmTnNEq^pYvYt>E? zXJ627*e<^vn74Mc2_MLQPfksS@DgThHFeeA5P$f9*59m8VxpD8k{Kf@k<7PLSd6lz zrKPN_OrH~Krv{JGJ@Rrxk|(%^%$B-FKyY@Bh`c*WUliumAoZ{^y_k z*~dTqqyPF}fAE+8_-o()yK8s9*x7rcrKM9ZD^|lSHc7#|6Ey{DttzFzKq@A3&bmNutSFgy{z}3fR zrU1K64pR&B-2;6@c)-4J>g0uMS0-nt2agZw2^q4|E6RW;CQo2zm{b)2E6O-eFjuNz zlp$lFf_I~o^_I=3#jjlQ{QO**HZ|3RoDvIIXkQ?`M~IfwQK;QXem?CbEiL`<;Uhc6 zA>ww6nZkC%)zUGCk(A_&#H943q%<@h>cx}AWq*b2NQ=iEmUSb9q#dY;s=-E9lI||U zM-vsQ3xS2ts`Y`e0;i)?)5cOg{L^$8V3qJ6IF_8OPeRD?rV~Z(Mj->@xm<6BQ>2*c z>S`o}oNr=*J<mX6=Q|E9{2A@MNpI%0#~uxNRn7ahQSPh zNjHHXCMB3PHo}fC^i`C9Y;^NWFR~5_2OI#SV?aVtpp-fUogU9v1yvp9$=37 zVBZ88?z7OCBe8iB{t;)Q>Fg1t0|Ac|m_X%-?XcjPP5uJ!TV7HYv={Y)111(2U-jrC z#8J3y3k-ba3erjp+haRDr>-OI-b<2?@oa- z_CMSApm#nIb**7WO=Q%~?GWGq=`M~FcYXHm+3l{tG}qIZAsv8v81BBf4m>hf6$5lN zAabPSSjZ;1p}v04zP+Ksx}l$d2v>D7VCh(A3Aa*P2o0|I6W0NHfZ^PW#wgs zMTOWMwjx)7rKqf|?CR>yj{Zr6=;`g{$+ot&Q)VnJBsHjU zI6r^w`nhY@7tfw=Xlb24edfxoyWV#DwKrdV`@Kstt>1ia{^Y59Z@m4h|MdG`_}aHV z_|h+Y_Xj^Zd+DO%@hfsu$VUVj(cgny!2<_S1hExYARy$XO#s}D48ZPoJ|q6(o{FG@ z@c_=QT>xhZ!~E5k5hy7H;>DpNAQlz!Hsjw0?tEdO>rws;QQhEyx}YBB`)0->Qfc(6 z4=g2E)0ehbzw))aw+6dAlHw0VI_Dl{!gu;|@3#eo=XtAoJ-i%{3syQ{U} zx~i(u_!08X53PW+u=hNqHtQ&kN_ntBa~uP&C%~7`!$WS1J_glV_N1mJL3rQ5*#z=T zgRFp%#zm${NeLbvWRVY=67>1Rq?Gs|(0GydXt652ArruRa*{mvRMfq&NGet-Kf>&Q z?GRq7u+$e7_sXL<6nM3UU|vFmj%H`3rKbXUuM%VcJ9T~g4h1!_?3C@#g$38*7-dmZ zu~9RJ+~m9%Y+y-{u~JEnw4BrwGui^|^&+Va^`ctXm+rn<8ELyPYzy11q4Yjnl%H#A zqvE2gg3iV@a(rx{zp1_sJvJ=-R$$RPw&Cse&|wg4=!$aN_zpCk7`9666<*pMXKse%o9CYM6Syx(4;1bhE1}_*M-n{MFAAGB6R3@EMXF!7*1^+9qcQo7v)ytiM^YB zIEncpTax4=TFTpWJIl+;^78W9S~X?qM&^ZR(SC_HN~$fICW!&UV_=~`)w0D!#e%A* z&tIHcI5{ylhqvE&?TwS?E>K|3T)J}a?N7gQ@BaAI%sU@``L*}nzjgn0UBYhMx%c_6 zeDuy|KKI41e)P3({>uAb{%V>A-R0#{NthnWKX4$w2>4>#{4Y>UCuEj`M;R6t+zRc1 zd4TAMpL-r$wyi=!+le+tnla!{ygC~BAu8cghSE^D`9k3BSiP|U;e99HjmIeVYNwxd zRShTCEr{g7Vba4wBEZXLVt-dhWl?@wVuFKP9W|X`DcA^H9lJ0B{XXu&xbU=CWHer9 zDyBBbXJHA;eE=#o-I8a!gTCZOZrP%I7`bwEvRi!(0mofsvV&=eqmgdcTL0qp+rRs7 z|ND3T_;0`d+duq`AO6Qb`rH5VM}PHK-}~`jyz$|e(eZ-fa`o^g2~E$Lf_J0B6JfPe zrx!l>$`^G@!@z}5PXP1L6QmUy`^BqQYVN=@<`pgf5is^iRf1%wCRA$29HPO^HTuu+8ui$#U)?Je|~f&y>P^C#qo!~ywz zw!BnyJ;!IGKTEWpPL~GBxy-`TjNY`gG(iTz^(3kC(dz0VR7iXLA&KgOxnWW`fa2m{ zZUDHP9tS3gQ6_y#YBE+8W$mH86jZa)K2bS8x($W5Vcn7SB-Tr8lWGD-YkCHsHw3Em zE)E^ZoOTFd?AT71cFGZD-R*}Qp|A3D2DUi@-h5mS0rTOqdeT6}SFBmH8aQL=kF8tlBe2>_kl&*Zf_lJh z^9lg>&zE@aBM-`@iA;c<{61#qO@X&wU>lN!Ei_aV$k8-1LVK> z0$pCx6tywnn0(Y{pLHDo+P*!KPIoFcQN^jj1psFTjC>2&h&(p6G#gv;3A_9Iuiw3= z90SP6tt|!R6`Hq~n+u{&2M!!4C@7FZ(A*^3VbC~)?bS8aW`y#kS_?^+mHV2iDtjs$ z8k^KEiKtG^FP^?|`S|$6)Z*f`SMN(`2k)0}-oe%1c>lv!?%qFr?)<&C-aT{v!keG| zoYcqH-+K4<-B(|K>zyxr?H9iFo!`Q$us7bLu&IV4W_8Fa3?Tf%+V$&yW}t%?X2Gdv zSaVn5nQ*T|x;}}93x?Lf($IM=g7*mMxB3f>=gfgksO}@!HO_BiEKDCU&0r|^?lGzP z`}ui!2o)~$65b!U{!2)>I{;xVoTDCcYGk;nx*|2WOS@fgUUtaZQpd4h4#Q3#a;I1s zBbKEIp;(b|=2fm5V;o{|`#4J6B>)o4sEQ1A8KDdrPoj_qmB!ER-?xula~$$pfrEQ- z?8N9t-}%Eo{F|Tt!C(K6fAx?5>&G8|{Ja0|$N&28|L6N(|F#7r5>nE(>gKe2XPjVx z@ubFK>o!+Uss5!a=UduDJ%%MZqTkpxWky=#ne%5)pFJ}-?Bx9X_{=nHkI;T5ApCGJ9OtiGLE8HV2Tm?6 zUAlIyZ=j$2-qzNl1fd3mR#aG1uN0zD`IPI(kjY46=4_xEs@K)jT9HGNNpE*oeSJ+y zX%T6{LNhEwOH-4U1w<48Prxt8*9IoQyMb-ws#-14z9w4&WTqd|P**0TdOX5B3MejS+d3MT&FB1~@mj{O;A8_H5GM7Le_~8zO=H>_4y%!T?o>Dv}7^@n>TAibo%Lib`z_peHth&6qMzH(&?|g8-kL zB3l?^F(W)WfYqV()_T}3EU5l;Eoe>zhb>#2H4#R(lB|qF!KDga#lp_Ld$&WkkmUlg%lrEJGcv54 zs54$RF_CC*T_h>!jqTb;Pjsltudl~jTHD){4*64}JShR@7=B37(6M7eu{AX{bk4G} zvUU|lwYA+ny(VNM*dH9y4?y9(#*8|2S(0P^%$f1Ix%o58Z+`9zH(q;lVR`xd^;gba zzI^A6H}Ajwj&!?`NmTHnYMRe}@v9a&z4O}ZSFT@w=l#$Azd!xoeo)CbHY*QPX1mB8 zPHw})r2@JlE`UMkIV)|PyDmmE{f$coKcOoOH#Q7)%DgdWz{fW4bm^kcTJva|vb!*j z#F3BcSW>7uKBDM6Suu>jpZ(T4%1@L}ORE9VE;XuP!LXdPl(C`ydMOi$0o#2fa#}T} z+s=#hr{jatgkZ-Lj>J+~FTNmLf>QcZdXF0Fy!>2NOv0!8awuM-ykK|Gq?kK~$Wdc_ z+D=j`bHlJ6(5N##^WwEv@4frQ@BP{T_rt&Ypa1f2e)^5?{=t`i<#*ov;G5(c0(Wv! zGP92MoATUtDTOHU`AZiDhWZEeW|$Zqo1PQ~C72W2k!qy<^zxaxh54!J$>S%Ek=Z3c zPR&jYj}FhDToh)dz}SGcV5_pY(a9+q`=#5r#%5=R#zrJk>MG`Y^f?FnXD(j2asM9g zpnqs^WMXvi_|V|7f!5Zh=H^ED4nz%}&{IZhf{IdV44FNqx5oq-jUuIm6KUkDS5?Y* zEz8c9pocw5@&=Z(#}$1 zoFjxvj8^2lKaZcg?@bN$0{7Uj^Rn#DaX4>`ObrJE2nVMs(EJV{v3iA{RcQmeV&I)$9>l1K+$MR-WlZ zVgnVk)%6#W+nfcLIWSqJf;5Vkwm1clE^fuM2=b1lS4pN(!Y~Ql6G5p^XZqMqnM0Ql<$FG~ z4vPsjkx&*K93ux}gp9n%i-%D3sMORHWYvk-DSs+aGl8%Ixc**PqBMa6wY9ZItl&C) z2GuTu}QVL+T1ncPRMC0uVT)nzR zI=YULmO8V59nxN1E8n12N~CS^?DDDe=P%#9_oZL?_SC|{)WYKBo3~Y=zWUbN7p`1= z`*R;k&*0!+zIOfgtFK?V_R6O}`22exe*WGYZ~W(<{4X&qj;qc9PBI}mnI-^H`6Hke zL`URY`-mX2(PTh6LLT&%z{bfeFLixWkR1Wcn+(fJ%BZRj5ooHj8r9033f7? z(B6;`VK-QPmirVDp-?s8It!1Q$Vi_9pys;ha6dOawXdz2CX*!SwSONY!n__hxIe~i z7?M2I}_vAN`XHH|~wio+__tRGHe+DlDEs)0f$c^O*Isvs1OT)e9#V z#Y1}sdXJBt0Pj#;Hlui`swJr}`aMWuAC~Jlc4B0FL@la7>cFu9G(J|TG<$Lpwxjxz z*cVRI;TNfG7jE2`KD9V9Jvn!p(mv%=tia9J?q7W6`o!!s#eQOXN{-FovBB=%E?Mq$ zW9t19q0$$3Z)2m3YHIgibSu4^>5m!HCX<;ApqpFj1zYl&maC zELp`Rg=OVISLd&>kB1M(1oLdGOe(2RE5|7CW~ufWnHFz4NVkzjB?6eKRyI8)JvAv{ zdqEC)BtIvIUqaUBOn_52(dZEQVcTnKYML4w`C{}3=jm~8T%6u+G6hA=vX5qZ8;;%D z+(?86><2Zdv8t5(-+ay8Ls5Vn6T&i-jbj0ll}qEdS8FfS+3=wCk#|mvbMw6982o_GWcP@u5FK917%&d@~iq zD$m48;V*)vp=)ua!-w{JGcpBoQF;qXxH9|phLoFt+hIKs&hS22Kw`W0Ks-Ac3-MWL zqLxEM{W%>X!VsQb!SV4n=EG6pu3mCrt|uBC;bq7*0POzbIy@?oNP6=IIrcB;qRJnC zBJ>=PMDg6}b?d~AAAV#7EXT=LNr03FxpGDH*XmD(*yxHF-;M!0D*)$LOLUhHiHA#B zk5GNpsz>aPMOS0M&Qy2;#sNLz&m6#ZfFA>Y*uLTCeJ{B%QI8!m)N?_BMbxP=;rM~j zCN|e8klqna_KQ#AE$*lQjk{^|x~(yJfkx=|8j4xj+408DzI`wm{g!a!PZfi5$Zx*- zx(c>$uvX9 zhFjb83aHn7OjF0f;okvC*-sw{>m*kQ8(6)}8CO?!5Jx_iw-c zy0XWa*|}G4-nn`E-uqwp%3GiQ%#FKu{`9Z^+rVHysaj&Ih>m(vaW1zWqzhyMOn5H7 z>Cf0B#tul;m4R`8-2IRUUR-+k8;OoEn}wW%aa)wc;e8T3LJ@KdZm zBR!o5gn0XtMIf-4BLvu>w3uiI_6J{S+t&Qd^nuRS>e9kQNE(00n|;bVnb#1<7xE6u zClQ?}<5_5_1P44}X@gT>LA__6A@U?7CbU|XPE+M*p=WVEC=}^zd-n(5)Z!Y4x#7^p zy&zCaBd5uL@vgpO!xKECOU>=-3pzTw`f6(Gkxg2^&{|aZw)5`YJHPO)Z_Uijf^NFX z;PJtZo=(`_+}_&N-vi+%=jY%y$~`UHRn=w4c!htnd{`iNyHP}KqSD0T`Ap``^YA#+`ARd!Zp3CPuaF#>ZM zg^ebIGy7n6==&}vqXsI6C14bo1HHJsj{c+l^cIjvNReDaDDXoFJ)xdm;2stf$)p>8BI+&2Lr@p8A*DIF zM~NXiI;JKkAaE}2K)Ll)6xhH z1AVK?MH#O_xlpxU}uEt;Umt4 z>0#->yO$hW-%Lyy@(A$u_Kptl-qzLz-pk6$2skvErWOgzJ(lOFt*h@J7%VI*)-GW1_%Q2M3wW+G4(1kZoT~cX{2jdT-+WbSt!r=FXej;Q{ZhcuIB{1i1Xj5av z`XO@)pk-$t9UeZueD2)L?983J_r}M^PA)EJpbOk^7(qHlT-hcA$8VCbr@tlG9Uh(3 zI!1rAj_&@_a%&z{O-{_FCa0hPrry!?l#aIMuYL6O-~PQH%+1Zs%+J!&Plh~}3H=*8 zd%H$K?#vVkMP@r>?j4YqJ}f;3s!M1eogAH<4O)!=C~kjZd~AAQfv!$tr>jrT&ntAY zXZF-d3weysPD^c4$3&Kg>YY7ZxH^^o+fu^9A|2K84LnR`CWT zy{4i}&w=7%y=zLWU0YidEC3oWug0$w;Ju{S!jiln0!c`umqO1>KzLAZju5{5 z7{>0N9?d$67r}OkzQEmT0=(1^61DnILZY1%OCp;g1ih1!6X6x(LV@>$&p@>>a^!vx z%+Yv#ZRiphxZVcIit>&gZLFua2&(VW8BJ(Xo|^#U;r$*w&;Fr~au|lHmyRk`8ktiNmdRVSBP-6Q5i?9+pja>t9{R&sDUL8p9 z7VE3-G7im=HLI=J_XMjXUq#2W*rG^&k@F}jg({>u!Qf8rgycd?yi^B+E&D}tBw%&a zpv>>0qg*KCpQa)QhIR9j&B4gMH#IPSt}Y{m{EM35Jc(K>@89>r3(v1!w-$iIbMsg5 z%keOm=3S7LxEW#Yi6#a957=2Zl1r2b8RS`WJO=OF8hJ7V8Q9JrH`Bd|K*LBuX^jOS zxf~(w93v(l;N2dZC*Ym5j@1Kp+s~fs*1Hlb41EM}@)eJ)0Op?99!Allq{jgD;;n@F zsA~0rkVO*|8+`up&?x>{Hw%)x=A;-`jy-alTsA5HQe;^t*v=X{Z*XUeq_dFkgowHt zD62<^2f^GH*iIJUJnC(-bJtG1-8{j200sCW1smV=N`4MHRjO5^0AfK{SjV*S&$L0_ z?J*@gySkcND#q#pGtJf~w zxN-T`ty{0ZarO3Xbp6ijuM>C|Pn}#id2(WM>N?i`##@)KUcY=*TIBuDe&I`a9Y>{9 ztKR%P+3Y$11YMo5@&cbF1SqA(X|jX^njM^M`O=vg=>~w43Lzdy&N@?LqOxeiK%m*| zGY64m(yI+nW6lz{JRxP+QzRofwxW&fhE<$62%DpfrpfybfwrhsP z#YC;OAA#+bVkgVXg$vcBQdvWN>m~^~zJaiuk{YTPt82=;yF2=NyT`{yu3o!x`|h3D zx!LyiHm0Puy88Gr4FHCFdOCZ$I|EXMwW-~KJhx0PlM9}kn@|2~ZR;qns8Tv6wU4$i zzi@JXZXTwPnkOem?%lur-S2aS za%#CAwlW?krYAvhzM98lCi#+HFU8m`xib4Tqf zDgt|tfW4@?GLU_8jr_^d(n7(~yxgO-@$fdfc459OdU=(3`Prq=zPON5gtub|ZaVwI zB@j+R+8KW2Csj}E{CqFON6Sh|Mn&hfCt%GP9kxld(ILI`^5#&2nwM)P(qy;^R-2M9 zk9?A&aSw^C{e6Apci|O7tgX3e_3Aa+o){838_VG2jHjn0!#}f|W`#~D^EtG44}IA( zA3OpGMp_g=#9DV~$VF*<@(CaSV6jn|kkdr+5q;Lm z8JUKTjUjO2;63P5Pd_az3)@Y9kZ!#y**^%ppekUb%y{l4a0;%S4)zYorLTLwdd+H2 zfVs_cCAU&yptL`gI3e~DM7cROygj5iMqC}{2lR&RKd)Ny#0KI0gvTJ-1STJ(`1Nbo zxYQ1tkww=E;R@PNli%sniNdhOW-X>GsxZL99rsPs>1Dr^78U# z`3?Rj%^{-hm6esU3IdIkA5&A?NJ(wcKcrs-)-3Jp?zXBOgpxI3v5eCf&J%SNs4ic+ zB=7FZ&6`(m-ke4z7v?2VOwG=nzjWo!{Wovkd3E{h`NdPG-~9AvHGt={X?Fn7RG~6e z2mq%`-4QCj+nVo*8i{c9wzzpbS@vt=Q^EgYt+=s9j>nV~i|B?`&&p zZ}Gw2p}wj4nPVfz2>WL*o>KtT*RSZIx38~zXsCba*ns_h-J-OWRppohWab){lnC4PBmjTZ$^r?tR*Q`21MtKQ}t$wsbc~gFnZlJV^9*<;r z)kr$l*rEa`2{t8oJBE*_6MR6r^c7J&{Fz1I8##u&JPoQttI<^hsaiFakV&FZQGT8(d$?vOxS^F+8_CGf(?skK;u#z8|KQ#|DM#X0t$HNqXr|$e z>VPw_MVXI598VA-#M{9jS_nWWH=xfJG+w|0?xP&M7}EwasJP<+%Z4-HdThN`85>|P zVuRB7LLapGPV;!F*d4C|bEnT7_%Q?>&# zm`cnX3Qpbf1k`JAU@CdS0z!Al0Py9*wf3j=q)~$6N0%N!6#`<*- zK480e>Lb|YYEJ^TKN!*V2;l==hw~A8k5TsrKJ~!E5sepV4eQup zl`XTE?h$XuBP@3(_2QwHMOoN{sL+eRAe3{&w0cgGCBXZX@jz!2b0h}9IId*`bje^G zo)a22Z`}^JB{A}mz$VX!n@OHh(UmsPJaMRt_2i2|KZqq$xXkC)9ywX6&7R`1 z?2Mc@iVY&3M!kqq7feAE9cah4pp%m_r3xI>Skj8n2c?$>A=|~;6DOMsuuCHlPV*_w z4pbNYVF3(dl-oGxMY5IrYf}ZiaWD9VFK^kLlabzTDWZtCD=iTfZEI^jL8(4*?9B4g zjoUY0xpm{}jjPvhUZYDWmZbjqp`zjfF1}Jb`J6m7a#u%Z`-zd^GiR5@86|mX6`?4W zGbL-aqfJ71WkFs}a%iNILLG)F@rSguWe3tQ!?xz;*2c!A)2C0KoSR>my>aK(*o0=w zon1Xvvu>8|GIw%*%&HHeGt6-kI>Z*%4B0Y619I2fI@=(>mmnsh4&K!+0rtV6ew4dc zOM(7gNIo?)t+$NNLhqo%kLwpUqK%j{mAT=pv0~WX+t=ODRNv9nHa$0W_2%`q4!%X} z=-3J4f}b)uH8wFh=K3_ZG}cD%Z)&Oo>{hF&sjg^gZm`M;T5H)IYcvTjNXbyD4=T}e z=v{$fhep9vbYwp_Ej5X>0=>yELGkdOlEP}TOm(?Hsz=z~)KJR{@HW^EwDqy`ZJ580 z3;(&#h$yH8?^#*ee1(PixC5+1dV2D{eY;bW4*LY&pOurP#ijK^WDoBbSlO%iRB5W< zD&~+xlgFS0>|hk72r9zBs1L!B^3pO9E3fi@QxcPmAM?~S^bwOwA?>E;o`>yVmUxP& z14E%zKA<^{$wOn|U{;B)T$GdD)84vn?b<+X_wA!XNT)OLy@dN&oKyma^g;lFnL`Zr z1r+!>yc+z%KeWUT@j3}9v;0A8LBkc?*A z&VBnVyBSvH(D$A7@SWxhZtPXx2KoKEBQRo}jxTo%_Twtd0V>XD`eq01C74f;f%(4E zic5?L+U1)W0zbz_a6KG3TOc9^;eF7tslUSEgFy+Z#fy;8&v8Zw?dwAO-F4E0AiOp* z-~ylb4M4*at_%BxS_kwdvq#}nPi$bE2oJ!eL6XV|H8u#3v}5KWRYnVf*gF-Xin%@< z`1ylKd8EvE5|i8mp8JQfKj{Bn3}QQYmqp1AvbOH2`$w~KgQEP;7eI|GAd(W@%1sWF zrDU^QG(xVM=t4=i=EMc+E^N0?pUh1jg?50L6ga+N{Gmg6xp`qJqr3tSR74R+$+D8w z^Yin_K*$GvC>e|v$@kQ=!1#rXF>G&b(^#WiQb%p{udYtQq=fcHOH0=_Hq#| z@#>B9m#*p+ruX~3H{T`ifMTmS)0?d5$H3D(#115<;qytlzGe|ZGsH@DfZQ7@QsQHe zbZ?*!}=^iZs)JlRi zW{0?j>1NfHmtWo-Vf&VxjI_?CM%XTZMyq=3-S;TlC>f!iiPQk9RjE#0O}TC)iHVjq z+4AxZjd2FWG20rg>%<=r?>Kwm{PmkR@%j111%j`7T49j5-5PQxE}dSwbm@{b6Rn~; z+FO?q2nh{UycHAoV^VzvN;5j7U|5l=*z?sq**zkZKxBh!oJobJ&&y zsUU)o)?Q%x9@vpXhqV!pKX|a&(l+IlhYrR+``n8-h#Acv*Tq6I4D|#MVIp$4(MgvA zwT|t{J(_{KV|I%R^W+^Z3!mNetTZ_y14b>-DLjW`L)rjz8y|;{OSkPz=Rwqa>3+uR;B5?PhN1$I2=oWgck?W^z{fGH)w?0~~&hu{)y$D&yl$~;9V z@gfJVwqv59~eGb6^D_J@oSR5^N8gJOc9=pC`75k3RgcEkHQz{yDb8^9bpG2JPMl z(~)|A`^D9(9&zL(ch}Q>anblp6fM`v)rR4WV~7bj)F(6s4B0Yn93&T&fbFs?ka!C2j$kycezi3`F*AEYme z8F4?2On3s@Yiep`KdM(n*O7MUPH!j3l(PhtmF?Z3&2L9{w@3Zkd-?~JFLm_vNS+^` zSs0&PXzu80Ztq$+b3sq=uHFGFn;svXSUh(jO7vJz=%jJU_1pK)UbuAY-fI`G-Td-5 zf4#n;QNsZ((L&1L{{31X=!k%#s|%HOeCWs#BS5jJDJCfFxqL6%{sRZms<%Z_kI%K}UcF@w^)sGmr+cgsD>gv{=Tbu&Odr9VF{Nbd=rWTnby#qbU zk0rF^>cc*uC%r_lTdp5d#tYn%%Q!sCDMxT9~uVhy*>Ti$a!m9 z6NqkX5U?!n?rN*4serc@ZXO*uHZgVrb4IW`+MDZjZf_M8sjhFRJ$`(kv$NG6T1s_w zd0QL9pstR1QUo7zvXqG?Ww6`mbe45d^Xx~0!>=l(sr zHIShl;C{yk2llD=U$HWX5h(JrK|@x`3=Gji*bXr$xsWr2@_7o|x6yWBH75l{^o8sN zXeC_xENq99F#`dRDIp#YNs`&V75*U7Fd5iFSIjx2xUd8f+V9tkV1IbdvXEIExeub~ z-tV^p;n$mM!{f{fDBjCP=+L`oS18+w+X34F8ugejOi4Ds$VKcaX?<7RPNUi*Yhn^( zv*N{2F3Q-~F(ueOs2CD#UfRr{z&etPq<6sn*w4zAHu_z9I!|9Fq?AZF&#Ut1y7iB7 ze4YqaYy%QbZ^6~^bA12*iP3Y{Z({Wer_bDZ{jE3NdGDRien?gj z(TT0rjo%VdBu?4FB&3!y|LhkK44L5vFm_vj_t5Eg4_g4M37f`=sV6+@5!DFdjBqD? zPbY`4GIFRhGKyrR8@IY48BUr!*n*=Jx)5vvVMh)hktnMU=Ju^S05<;6A>@b^F3QVp zX{Zx#*1Ja+o`aT(IC!L@ygKV>&h+#Qjb&zbdVFH++=X*GP`$KuN8Fx6W#v_;&n*uQ z4@pDKNXO=Kw(W>}e#^^Za%_RVmd;5k<>7d3Kc!-3sN!+hVhY>0%e~a4HeO0kL1BJx zZ@0`(VS5Qe%&}OWmg^I3RXTL)?3ti(~ z*65*FURqdEl-p2O+1gxJU0KplTTx$A(b`RT(&QWkqpAeN{_S zU2C%fol2Zp3bcg-!lT+mRXS7K2R&y%aLu~M(eG_rx2{>cR-sTqPPUoLE$QrN2fy%I-9FU_+&Mb{2-AE& zePCbQPIAnK^^a-7j&hjntO*dHQ2+_gvBQ^qMOY3pXcsuGj7Q=I%LQPW0E9fCZlu^y zNIb!d9lf~XhG=y;pEASvt)xfX9wz%#;GEG?r-;5Mz=v#Q2I0xR0qchC5F1dV(}JSN zKI&`FZcSTv@}ysu_fBKr7s$8=N9LkeSt||&OG+H#4mk1I{MSWer<@K{X9wL!7S>MiE~>bG{d#cEaB|H!>X@fF z9v^?u6>wF74|Xbm2>R9L!7*O~uZju_l^5j{7M0i5S=%lwX>=q((hIkdgDK%MzaZpe zpe3oPsm3RS7be0LY3y`Wbe-@n2@mQOtcMO;ZQDAZ!!b5U={@m3Y)=nMQCH%~}3peiGefzVzyPsS>r;v#(bMfl+-o616 z`Oe)Q4ne~0p}a!VfE@wni6#+-3!3^9F9PO)a)l0=p_dT3BT#c)7jOp5oCK$%&6KW7>zBHs%Z+^0i=Z6tI;@uTb3%cOLcg1=I6;0ejv z=_Ds7*4Il|s_%}{4v~M@-aF8XqJwK)yhc?Xjq0U8MI?v${R6#yeO-7mfug;=#qt@Y z<(8Cf)QK0cmysz@;%ci}2b~;n!T;`_PQTUJ-QG7KUtRe_Q$u5IS9b@E9kxfAg!y=Q zaRlte1%&bZ%CbUReNB0LOT9f%9fo7b8jea)Y;K~imo+sKl2PD1uMYNgTf&qQQc_3> z&&fzltf?qv6l$$ShlE#z1{eX=1yUu5P}Hl+n;InsR_RHDliS(S)BvIZHCT2qC_M?s zpBx7upPeN;AQkfaHj#?}=0y8)%?cc?Xl+Qj0rg~gF>9O|yyxd;?b#cbkZ_P0LgNn{ z+zZUhD@tK|E(1}JS5{G4RHBdN(Ibh6nI)qOu1b4Ax#-ncmQ?walvIhwcu{>_U1CCl zLN%?BU^}*;hn2BhQdCSPFnKf6)3g-8K3p0?yapAPsnGU>^Psb}SB-q_XySJ4pxpux zToOKMXvcZST6KdVYrx)^%tFIp2-n|oUvk*SD z5?y^XEG;J=lBY^-3h#Vw6T;)0fiOt-=mdj~6LR3qv)#xuP~vt$Enj73`4b^G{ru@C zm;lpP2MqiC$zCuP5FVN_5FR53L4lq^S2HOrG>K?=jNZo1Y;`m&~;u9i_9K5FY!P)c*omo>#W7m+}qdR*4`m`gTOv;?6|GDt)r=>t)sg)NUKA~T06Vzn=Gk0G&(g4 z*pH1)0CqNIcx-ZXYG(G-8H?*p&YzkSTfKVo>h0GSm(E_kacAlL<-2dZJ1}%C&IH5M z_v{e}Fesgi?SK;uB~VV?$pF=vX?UfVUe!wyiq5i>hnfXtCXprhZ6p zO7kT!0TM?>hB2kdiHWcO;x98_+1XhkO&~5#+zw@Nvf2qUF7y+Zf{nxb%`zelueq|M zu%o#lD?N=XZ@|BBYJY4RrOPIiT2`?!r#8IJQV`E)&vlLcq z%T`p1LE_TYWz8)OHcGg+S#`oZ>X2{_UneFTAbHh>+x191Dx z1h3PQ(~=W3=#^I)U|*Jv9Gl<{fNCi@sXUG#_$wz!O^)KNIiv%mou(vRN9fQhs04Z! zB;As%$bVJ&fp{HCLr+KvQPQ*JI>}BKe9w$dLyj(Y50Yo3r4e4>aB@PT2^eMkQ7xV- z$jj%KJ@?%6JzZVWpgabSwf3n0-mG7d+o+0Xr`-G2nV1Cwo5%#zzQgnR~Td z+P#xxWClA{o&}3wPCFQO#2c8ND0mto7mNaWuRg_oAV&6a%J^+$M4n(-qzoan(qYy? z=ZLpc)+NhGD2#1De)ZaQYu1Iu<=3oTEflIq>7f-X#7|?${Ie9t2(-fkb>*RlWG!kC z8L-`&*MYAGb;hf)e=Mx$+$dWt6LO`x)ku@^Xp<+iGFIFa)imMlE*&|YE#q;-BrJEw zHKqr~2sy^?iHjaNAgKFhR*Z+@`bg(Cctlh|J=*~M{1eY+1(RN~TW_V(HY-WC9c42gS?(~JL_ulz% zY$iOveCxi@>e(yTuikn6&G)}FGrtJQ$uLgDH~{YwVdLUtL+KI&_2s%mqx%cqOb_mZkfWm~a62dJG^LS$^&7wV+kfyQSA%;ZugD2fcnS&% z)jz3<%E$;S5`y&F+IqZQy5#ZW!-T1)pWfuc`5o9^oR?i!DP1l7AirVX{(^!cS@H}4 zo$AEsi3&CG(lc^Z2jt48urf+QVyX~!Z@;daP1g4C{XUYFm7}yt6Z5>hJX$CJqgoKz z!V-xIfD3{NP$K7eGEi-4k)+fNPVH=Hs79d?>8{?6_Rdyxy}hfQ8Y6XFaga@lBSA(U zV_9XH5BBtQ`a+juVKUeaNKz1F6plEV6i+CsOzFqhS+bxP&MB_;W2D)#OrDK~zl zv#YHktYQIy)coYgZvloNTH64?o|Bc9o^qtExn7JEs@IekSC6lwuPy+ueOTc?& z86eC<&TFf2Z#5RsyC5|=!TLqu9cxDZv3HgNwv+C`GK(PMX-}g%x#|kPE^;ajCXn_< z=DE@t1rD#RJCB1V<6MX*el;%}fZIu4DJkSi6en?WLai(0P6g>41h4uPCW9ex0RHb6 zbuFOVFeUV4hNh;bT$6UTjIeV!Azo0`6_e)VTcpIhT-v;A9Fdxu?CvP%*}7w^{raco zxG1Tq@Jt8{4>xB$$8+UtpwX5e(F0QPgMq9}0|lWzwY4yBX332q z33{YA;D?R1)m%%AT&xf^jWR$&LELlCKMTDfB(jZvlIXb-k_7GXReFU{<*{o3`0TUK z;LqqZ&;}g@M!2Wf3UG#^Af0u1@+n%kJW0#SY{#t_4(RQJz9EoL{Z50gu*ox@-MDds z1ExsBD~!|&1QXA#dHsw<^b~yPdAK#Sb@JtY8c@T3tQ|^6>D*f*%@y8H%8BM3DB-!c2sP7qFtr?;$KkG4N1HJzn%g+uKUsfE1al%9Obql0mrl4N)R zd>LqsoQD+06%P|$s4kv}q5^MMI7ZZAJCugsP}&n<4!lK3ZIpJ;adJ<>p0Fy@r#|tC zPvGr@n4cv;Mk$c7{k{QEJ7xgxzOs@I#$h-+(QWqB6Xr>hjIm5@wkhmQ=_q z$j`N+bY>=}(xaA4nqc6u#KXFJq@AwLRqwW0|61e}TdyM6G&Ot8V{Jnd(k`gl+0zH- zdnq$RC;Ep+!-|`8CnsmEynN}*rR%3IT)F+$=T2XKWng6D)WvJ(uH9O?eEt0OyH{@A zzj^OI#B|7liEb@y-->^SE*TuRK-9sz^HSZfpy|06UU*W2Ue3 zcV4~M)6;ck`OMhZ7#>Bv*~<2B-R3=HR%U_N1UF?VXXoTr*VOP(Mn^{xQxtmp_MIwn zt<)o(84fyqZZ(T2kg9&WFz0AfZB>q3&AmaVms6x=&(1gr$$}d7FcZzQ_4M{+Wn~dt z3i6AyvvZFmCcp8<*d*9imrQfjkVad1z^`)rKw)dAyonECZ|U{oZHqal?4}7 zvr|x*TdH9{;4L8!=T%lICerG&va-6oy0((c-XGX|=$+o))|{K8P&CWB8BiS>Lv@KH z`8gQ?Tyl4Lab9IFsLwezaUqFYvCRyXOf<4rXVhN{@m0 zHY!cz2oU6hoI=U5c9TaEdV8z0t&-z{GrLMI7dr*s1z5crhmQrdlgmLR8k})#=CSW=}F31DR{g|jlfJd*aEkT8*j|xGl@Gq9# z2M|E0gcIP2enWL(J2f(J8?eJscqt=CBrlRUq@c*z0IjMu1HwRTz!(#&k@gt8TlN%` zdK;t#q(~MFhlJ>E;K)Ld0+EWILjIw~xerq(Y-)mRjEirEndA;T1%g*=8W}}1W4O9z zjm5F43*Hv`Ols)_j02{H%L2{>S<0Jxu5Jh|I|^;MG@ZYog3aZcJN;R+B(};JDQvPAF?Xp&iNM=_$CQ3GCh1FWq`= z;lh>arE|kG^D|55mag2maP!{cxywrzuDtP?_hq@T$Yk>%H|@~8G&E^9$jF6)C{_(u zsfE2`yv4=EN~>mOXP1_=u)2Kf_FWl?Z@v4@z1Lp7d;itt zo@=V9>~3oY7V?et0?W+ICbnz7sI*>!3Y}!=_@D$8zK7ehbLZ{@2jfw62?vc$4Gb$W zwxA$S9S->#EAHwR#}ISo4yhpsNDjeVX$lF1udXgb)N4c%8zh_tWJ6p54l~ix-V%Vl zyR%BFr2qCS4jKUO%25l83u_7T5w=ronp!N7VR^f*x<-ZnUHwD7HBrGP(5|X3L)Xi- zK+HXg(i7x?IoE@WL8Wn2l~tBHQWJVq#VGugUIN~m8f57J_VnuVqB_`~ceFS^t3-`w zes-mXiUm2Pg*la_g|uy3cSlQMeikXFsj=FcOPKu8jAZa$rTb!jHYLMzicM`zIUe3D zoicJhWf#xtDGfnQ29hu@lxtdS~^!GAvd3HQ$baeuTHr*a^$eqm4M7tm7fLPNr$V~ zKBg^Ss8~zSaFlRK!img&^HijmqHUwYf;-xio;X16h3Q~iN7;q8TAUJqN z*7GwE7(mH~)H#3}11E7{aZ;pOBDib}Vm2%Vq$nYt|HPAEa09lC-oialPd9+MxOW8a zp~f1Pz;+l&jiJr^epgQ}6Z5Ctm!I&GZsd=Uow3{%56f7AepC#5Kq3r;e6m<9srRtg zSFC__0SslAJoK=)c{9xPHlmPYK*=9j{U|$yz{gAsw#rO!78ogp3HAk-A?6xDVU`7F zcUIv^kYzmA!d(fI0BYz6`Q%erz5Of>V@LJbzI6+u16sqia#=S$%^E)WB*i8O^7y#y9r_v)8F`sHu_+IQdo($`;m`#r_2m#^L6I;%7J z>C+m@Ds0}lGp@d_;qYPM*Zt1ry$?TFT3X^0XyIUf6&01JC?S0_5O2Qy_U$`&ckSea z>MHqsMw;e(nIgG|4)Gs{W-c&!>)5-Uym}%^6woH= z3lQwsxicjtl@0Qv4N3u;8*%1-D~h%=fURg@M8fOp>Z=-{dIQC)4AX^OFr55C8Hnvc zS%nE~6&0mHFsInGC>?0&8|XvP)gQHXv})Vf)e{tWg-D1x7l5QwrXHVUQCZg6(D)r?e8ujnAfS^Hw?02C^!|M z6lWx=zIA3{PDV)qY|n!29xF=n)rQjBvGi);%QErJJd%5NS8I1?i&$z? zeRX$7tJXKcDrBStO}?sB;I*Z>p3>6h>>AVuRFKd+J6ce2gxtoI_F!cF?f?VE>_SJO_R^O`-XtwQyr?>VPWo!PHh3U0j;6W%405h8S^<&3SqO7>k7zOWU z_{fj#w5wZzPJ9D)bxU|IXn5uwg{uth)2#bX&E1oLFU3nPqB`kr$_pdd?jT{BihQr> zbyO`uD@VkVE_AYiz!4FuhFdmunjC`Qsbz5nYfqiR zxRLEqns@5$w-_&x;{FT2DIW{FM}?Rq>W|J)*7)oEq}wl=^Yvw%}&ou%;w}k=9X4ORISaqxwCs` zcVGJ|T7B=E?^o~b*d9E7zPxew+4n!}9z1=aYu4(jUp|IAQ%Hr((#om?_#b}v$N%)- z|L=ePU;po~|Ly<$<*)zccYpd9T_yLPJllQp>~T{4^l*27XXhbkZ*8g7T>JLdzs%3i znR+mDEWAhZK6~-)_QQvo3IE~Gf7;yKh}gvE7n&QJtE+4H?NdJg?%MDiQdF>M`tU*0y{qh;T8Mh67i`NhdtieX}aX{H;{tB&Ob4V_Vud( z9qj08!*;q|ZIN~^Q7fwWbU`P_*>>)Y!l3phuO`)mz!fc#td8wHJpA5{$*J*f+378f zJ`YW9c93>RP&i*%Rl#iU?6y>N2e$VQ($j>e%#Io#1Ii3N5NeIn_SS~xhU&)Jih9yl zY_Ybyv97YdsTX*5PHS-$cm}27GtfhESVS|o|?$e{4~6c^?|n@!=jdRPNfs= z06xNn>FtU@YEuKb&T>a))uscHHrbMx`E_h_(+8eBLq=s%v%Um|pd?`?Nqwm`7;)DT z9=>_n+;!K_W*qTc%CkgHY2>=sImktqm2{nfBQP4_!iy#dC>`C2`+Hm4+q(OD435%n zE?>FC+&7X|RFyZ}s%Lp=uJYOWPkAy%VK$DAHYz{*2Y7uI=)}>#cs`PlW$YIh73vT6 z+RTfl5qEw;_+c zntX4Ag-kR zW8lZvNZC%=I!@xIUI(@l{7eWZYW5+{YsT@3x4vp{utKY215|Jq3)|Az1c$H^

    zSYwS!k-~IMCzxmbQ+6ZKsEc0`^1lc@GqU|gfhLEQ&7+Ej~^ItuG{?+T(-+lAV z?VHz$PCSPs%@NcelHA*U_V}@oNJLsX+Bp|B!)h$i+&t9m{5ggRviNAg3*IRo;Pm}l z{>2PJP{jwkRCvc8)x$&BbN%Qlt`5loJ7)oDO)znOKLLJ6VSf)YO>h^|POS}}DGc%% z@r2zSn}W1WEJ#S1`@kDvIPvnBB9@XXuv*4Nu~W(%aatcL>}&_=LP-#QgcyBSRUkb@ z#vr_2py&V@|IEmlGQKy}Vj&Mi&rMDIxBvCOPLGe#L$WovjD&2BzC68!geJVcl50~9 zcy}XIk9n~WTx+vRkYQ~AbW98fP{4*vA#O)Z%Amk@6^i8h{y?eF;j4}ZTN@2&vjnxz zL01pr(e%-*1POET#9cF6gs>bpiU~}S9{$pB=i@%T_JP5pztJ&5U35v!)K8S8gBn2 z3246pgkT_S8^}8+JuBIDsG=^@O0L1}-Y-+Fr+Bq0@9ojfw4OUefNJxrVk*?&k7GNQ zbvj!(;(IlSH!!y(Do~RV-cLCiFW4U8jug~Y5~Sxiyd5O$r46S4{GFdzrIWyoaODBg*k+A$7DKe?MuOpi{}DAMLz;UlS}eM z&$Wa~{Ve5p9h-llgcQ%1YD`Qe(w7kQA%G%KSH34No8UoSl{K-F$lAaN5Dxns2{eIFz5gROAGVR8wg-u z*q98suQoc(I36>ZEsZ8#pZknZ$mgLt`n@9GP#pV|1Y9Ro= zLBEJLUtZHG-^PCXY2x@vARhb3hhG z$%=N-M!iNPJPWE@H1g*YF0ZYCXlThD2x22A$p7y4cG?58tQQ!&*bXYLBc=4=1+X(R zG$`-7?K+@dB&yic%>WT{HTZ&z*_Ks8U}d@7t207yVrv{aS8hF5q)1pv#zJWLua9l2 zZ{Rx3&Md@|Hkm^Pw02q?#s^-kY<7mjG93Wv#v;2a#j+}9!wh9O{RzOrV+E^yumV0) zMJAwtfJx>{fC~Zyn)P;xP$1|CJI0GIL3^5@tJWd~ikTQ@E=-V-(-CA@D0IvyK_?-+ zueh^KBei{b)iDQTqHQTAAO@>KO=1PfqeUcv2EukroRg!&9%}F6+|+~wA@O;~v@3EN zx)OpRCM(G_1hF)Gwe;4LI7uRSt*{!yv|ykM-d9bOFTSbnBEPsWH3{>DAflLUh5DP= zX&_iyI*cw`Zz9(4Zm}|GNYiDS@J*e=HIi9lGZC{JFd*R~v)NynHlY8X|FW7=UJx&00?EE(YU$8;+KdvM(S*Hkg1eCK2>jBQs9=DJQ2g`7V!u`SKdi zWf0WvmCcOaj$j?`;ep~6Kz??58rK!L_7h-n1@SZG2kf!iWO$HFax=nsQR@^^(=Uw& z3!a;k>2Rj&aeSBFZUoA`OC3+^2r25Ng}O{81j}k@O9-mEO3e~sGGP~UqMTTe&n{h0 zFUeYD1YbBaN5$N2HklHEAGfJvN@u-D&W}44)9A1CaUBWJN&ws~ST25R8jcvSS*v)n z@uwo{S{uEa#$}uLT@r*b2UuI2W2$*Ugi)K4i*Y%!9ispxKq7(>ag2D)Dk8~}d#M&E z5YC0_G!2yD8xgi>jd!kzlu!l21vh|mteK`SCGsbtOnckg;Qi|1fz?t@7Lps9yh%xq z#Gv%TRj-@bNK@|Z<&=d$A-vm#fXpT=l;|eFmp3Vcw7iUBLgic=ALojD`6i+eCStY* zkSq*sCnyV3JpOYM@ezXna|R_f$A$#(s{j!Rl3<%`jWAsSi3ork zZBF0xR>l)K4wVaTgA0;(mrlSL>ux3#5>z(?(9$qT+UZwdXey%nn7KS1$QkT66X1mE zL&niQ8AE9b2BL8cJ<<$K$|I}(UXgas>Szy_l-fpmh8uGp9~wXs5Ormeql}J|7|&&Q zN5Tqk=f&qMT?8Z4gUYJ^{7NUVH8JTL|k{O zM`R-0j<-8?5h^C$i?_d9oeW@?XsLd|YPHEb2J{8jI!06``4-!cZ*do3&)6<+3Q5~p zv@Pn$E`Gbbv~aM8>&|k=QxoHOV*uUEjA_2e9~glELR)Yi(?fBoM22+7jJm|aY_*Cx z(+5c=JXG2$^R_*?g%PVsKI^!h^7)i_CGB^rHvP)FP3LJikWa#iH(5kjOcJ@ zr=_8(>|>K%J&rzSZ6})$>!y8`(-T^fsXKXUt;m;e{Bq5D>NE)<;%q#Z0**RDU1G?p zFS>3lrH&&3Y=|$c9 z#yZ0_n<9T{Aid&k0f14Mtx%zncv-{>bzna5;R`GpLLTtzE^3Lj+BCyFzkK}?{tymT z$%#yiY(`pqUb4gs5C8?hG#ySUVS8IEnZ!y*^7UGhSbY<0k53cS*YSnI)b27a-tHfW zPrSz8%^_rpl!E~BepSB~0wU}YymPO?6VjK&@~<=o2M!pV9G3(%BsgztdLX>5pXDNb z`{fTm_l*uA8h7CscFP!a8Y^b*5e(CQesbU@%sBXnG?^;TjE|d80d`fXknA`m$geTP zj-nHW$5m)`)zG?b^e*2URTG1-S;J+*6%mEoA--@(TC9Ukl$340_{CyCAKZ~dH>S&8we37Qy!^g#Y zZOR+27%cdkfIUNsaimMcV)T^>SV-a7n1(deTRug3_)vvtMw;Vz z2SIz1a|y-{oaN1K0^U<}$T4T4d2hea{tol=#kVdj{)(a-Q%8=mQH5MNVIn!CDo=D+ z8kV9{u>FVczIpQL1H&rR2AqYMd`CsBTU10u9jfD^FiqgX3r7MYbJLSt6&S=lXeN(f z`02J_oi$K^se|Iu&p-RD*wx+Fi?|B83>3S2Dd)|@!#mfn`JxMRW6{hiH8|G6`DNIC z;)D0)!9E9?!?0;w0^SLM@TDxGJZi4<)Ik$2oJZ$IhWc?K(PQym*WAm6K?X0oOS~5b!wtQfxr3sg#Nfy)<)$eR;gViuuH=(*-3)c(O*xbUM$w(-=JXslH;*y6L@}%Tf zJ`-c-1#o-vks%_XD$QV7_@*5)FkG1&lz{CXZ5n|%A#!{Hf(^|;lk&O%egXK6!~H+~ zhku0ddXza*U{?x6fY}`30kbR2j~r1IpDzG2o(RW4 zw8e`QA6M@azo4t ztUmCYo=&Yf7m+2pq@FuBj{Ff2t5Nc{&G1yaW{Qt11ln`-&x-eMY4r-)Qz?nvd%HpmA4ALwwhKMN~%yA4Jwg7YRSUYHG(_>5hrqy&nl7>-|+al4Frqn?!H6`*^5g)JIT!9DEJJv_kKx36ps z*tt-@0+b=DMkg2`j2T<^YRg>{9%SdW43gx1lvd{Spv6 z_sLuKp5Q%S*D9c$p*!-akFLn)28Sm){-jv6GZl_s0|3Kc`|Cmh=?oKRz^@dT8Xfw_ zKmPu~?OR4uu*EjETi1_l>h{Jxr5245YBrA+ZNS*!mF@c8*-5W!#g2U$r+$KXSSuH= zZfI|-|2J>m^cStu6)UC6VE<6Lw?sLw?(ROgee?42lG!eLhQhHIWDK>VpEvWBxfwf{ZwU0r(LjHA;)C3^cVgiej1&%scM0hbX@Grlkp@nT0tgGycryzWnPMEk^iw#Knp5w99@M2t~eS~wJ9&zU_-@~&y*g*b8~L7 z_1CX%hqUTs8Wa^{F`*ZigZZ`zL3LY+1cCzIt>TT1Dh6;wi!gA~U;pZ24nH?Zmjc`Ao_cV2uf7^e*sgxo&5%9LU*!Ylfmgn99Uv1MS?P&&AU^Kd zXP^W2(6X%Z zB&?}^Rld8RzvNaJ9thpDi&EwB&9Sa76B!HQ=CCFmh$3i}j5RPfBJkW##OR9A0rjC9 zO^v8oxKKK5S4>a09gn35&iFD$=oRauwAm8HNZiK@An+ZWtk9R2 z5ZuGllk$k*#TUa2Qd&-pI3YEoau_&igKml!w^T*2g|WM?!IEDcU17frAGW7hO&#+G zk8~z*AYdVu;NPP3&p^7`3~0u7q5u&Js00kkD+xn#dB=CxW%92y5GeUB77pMw$Mx0K zySHyMd6)($7#E|aNbmtX&P+~T-QTzK1ZlStXW_$+f@DO|7gj@n+T+n094R4odQjwL zB#);249zg52J0QabNo|gu*bKH_Pq5$`F7V;E`?b9@nV~$OGPhx(pWDqyxE@ec4!fWhmXfB)-W z?`&*P#mP~B>S0J^hBDja{PO7&o3v3WG!-tvu?(jZqazFpq4H3VRxRFTF;`SpQx$Vd ziX{8QN;kvjVUr@o^v8%`mAXhQ@+3wGBqni%3V4=e?b5zN8FNV!QaivIjyb98mKe}= z;2;ic)WEn8F9_z?3}YxYX~6c&vdtsDdo#+HSxkZIFxYi*80=l*0U4T$+ypzA92-;E zMazf=PHP2Wh$#10OorSz8VXY`#vV%v1i1p_6Blh0`!!p}v48yCZ*Si?(kXTX+W|gk zRVUKSodI_75hkOg5DR>;0&WzVq=WR6JtunpvWR0`%B zO;;c%U^hu)1xAY9>0=JGdK?ynhoAv?_!lpq2_AX{+Vb?etxAEn8+KQMcT+869}JQd!BKZk|!)AU)`M!gk!C&VoD7(tw#&(Bpp!*<{w)Gp{;d@;!>4KZHOEHS;9#b>z75CfiuE+TF$Vy8;RQ>L}1*<`OfS1K&b?^NVl4rGX;@L&N?4N*gBDvbnbU z%@?n^Iy6EX^uqoS3vmJ|!nfjrAX`MmwwtL5Jhq)1g1}TUg2`6Oe7vQ%n@y#?f`X`l z)mGDhG*q-VMj4tz%GrCeBMG)cewYvGoq9AJ@^q7WaH=-2%uneo^S^em??q$4&ROd? zA$XBN*DSUo@J?;=w;|sxC^x<>AR}yRF@nqEs*Jn2E3}9IC=i>a2GAD>(f>T=Ndh^550e<_}D4W@0X0yFde_V?d= zkDY3X$5CLo6y85+h>=2@Up{@bz2O_A6>b8%2E_;4SJdz621|s;@EH^gVIeM-jRpC@ zI?FDeOR5oU550}GegPa}CvEn`(uon6b5c6O5pyM+4l<0l6Ls|3T1mMi@UA1AcbZTX zO+WEne{{)f0Rl4KT>{9I9DDa6c@YRlUjvI>F@-KskD%Y-he_VIo;qMPVh>lX_4~vc z>l+yway$FN=f%}|4cr4;@W);&C6hsFQZ8U3t?j}%{;al2_y~a-)5BRW!}*-W*jO6J zc$q?mBn9np0FxI3WJZk1(lolmtCJ9}ZqgXQKEO(cY>yf75s&cN{%EXNf3zWXL^x$# z!f~|JA8SiIACHLrX(^%-D3q|BkB03ODZG4IRE6!LF+g7I-4QcTJ17en7x9TVZUC1F zLIm40B!UI@n^G*XK`pvLsbDodWCZ~27}LB6@OB3yWR}MVz^STuig(za(UtAEHv@Y* zM&3`3esZrG6yUFsg#6*h4S%R%VgAmI>tI22no*M;W2HQB9^HXGWP~Xj}z=C~QW`Z*Bf-0dRNjSuqi_y2(HjrqZnkCX88IMzyZbEll z*SkpG%t>pe^HlfGfBFx9_}y>p53!Hk3rc_;__Gn}564XXm<)=pQ}SSq;$hdhgMc^G zq`e*Vy?*(*FTgy1^5oNd@wZ4G+`V=0_KiRO{`c4R_i3r9V5L~LigdKM_rteeTaMKp zGK4g^CHs=-2}14E#x-C8D!gq&aORJS1w!ZDL@7!`MRkfibrF^ex(32qg-rXynJV2D zJH@!b2q?%e^1upJDKAbE8)b?;5Zo*tI52!j3nIJ=ud~QDcQzSs&5s#YF&P;>s2VEJVNv>CQ_(DTT;jw&l8m^`(Pa$HZ=}TE=HMGUJBh}oEdSE-G%?f}L zs4z_F?H@`2@2-#`6@u-KroEA>t6BwGtE+55MB`{XZN%HT8xl73lsU;9L1m&%G+bk> z4MhF1(ehk?3u_ zn+aZwkuO;pEWKWyn|}J};mxB%s1BUXqjtA8xCVuhr~8Gy4h*( zfZMw}O;w9MJ^^%$?Rg26)Ar|_V7r967usz~?^v2!7%2C3cXq>eOxtwNC)(B)7a=v} zAsJB6SX)~ZNe_q)B%v5o%Y@EDMOQMmhlVC>@AIiTKa`7hKeB7P$hg98%fbFwkNKL& zJWk)!ov__xNZ7_#Xv9watw13NtEe%vlY|Z7YIgCS2jsC4f%nd|g5wmn6Sx7OB(zb~ zmHJVc_$McTg`QDdShrMDbuB4PlseWzcYMqfiVU2j34^j40(x@W-<*e;Gln3yw0;}(xlGgYB8=B)?}2dx3K zGgB7OuqK`dSJX#Gt%8|mF7cHY8_{dLhTqO8#2j&HfCfw1tWh=rgt3gYqAuT235pwE zj^a2}<;5jkb|niopoDC#i-rK|Rqh>BqBfZcbKFlrN99U)S36QI-K%-aDG zoHv4$Rv&>CQ_?}@DWr%x(1u+`$0rMTWZOs0{*djd^d?=5g$+yHv00RGY?X|!^!VGR z-b$OAnvSm`g+rjm>hb8w^o3`R*kG|f(*YRH)-=_2FJYh6rFq!CI6cKN`NP2L%M0G? zvwhcRuVMS%)`s$jJ3E9dR3KSG&HLL09(^&!YN5Sp{&sYy{MJH?H=KGWmXrL;={v4)o2~I zdv|jal_DkG*CUjMD9BT&AJ&mA6R<++anM^d27uGR&`~tUXIeQLe@aH!VW5B5jMAcf zGIk|(Lzo?Dmm(}9MvuoAIxn72uehcScpgEKs7=sjpZU$cKE0r7X(2`3Bl2J#>J<#| zZs;?%vkTkf892+OX<0?(^C`&1+nEoi04-rV3`d5cx?{q5k=SEo2IC$LNOOM^y2eyj z0qK9n_Be&T3F?o3Qky3OI4_kj@_m9aVlh&)Ns6I_Bpv5U+`w3b=9LC52^Boif( zA_@loEi`~=wXqIPN54EewLjJhMHM_Z#}@bmw+on!+KoV?xCS8TD~b`j^Ors*Cka_$x8UKLgiy(&D3sPK)vsQ@Twh=J=PsW;eJc9# z@ZLRN|FD%+C-!%CU=i};>1R)$CQRY_t@TwCBQ6F_ve)tQ$|7L5w0h<8s#uK|m$uec z#NoLuJ_x?~;J}5m=Kvee=3QaSseqkQn{~nYOyez~1Sjt;zWvF{h`2<90zTRTKSxJL z?LkA}1!}<{B&dV*#GJMn%K6AS9z47B_E`{N;6<23<0Z_OWQlGpdr>!{!zfD?`=jPg7-?vLkN zLWS^t@(BU~8PiQBMneQ!C>1TLGnGzMoC3H`wOmIVOzLb1NPmVY7V*7P<{0~D0A;=r zNG4s)6pm)9Ehlhy;`q-W`&7>H-o=dS8Q3!*XLwhbE&)l2YSG)b03Mv2`KQysc{Y_& ztj#5OkFNn_uvI3x?AYGPOtg{cz_kkD4%to5iSLpE8lMA1xy>0mm?WvP?y-@p-q~C#oz8RaTpXkE=Mc^lTVNy>&1McN060c*h^lQNqfWS zD$zO8970ao81q32+yIamv6 z>~3C$?Y<8KR|VVC+o{mZ3qG|xp06E%-}Kc-vn0suPZf9_RiMZR@~OEc5`Qn%Qj1S4 zcfnZe%r-BW*$fR1x)HVm@VZO>n1zJ{yZ5m{X5ue%*+$jrCoeaPw@;5xBJh2^{-RAx zA9gl3zk2Bx9K;BBBl=H`>g6?^8M;Ai>32Gh`Ox` zV)fy+d@!WBIc=mV3FDyav1DM>>wP@uEGF;{+iQF*H-+`65dA?=;U0~G?UWn;i2YY- z+bwL*KQUgT&kI&k)QGM+-EL(4 zq=sDJEw%@qXGqUS5SoiQO>k;YYydVK$}MqZBNUqnWB^abvSe!*pW%=b(_-t@q$US z)PlQgMexsbCZN?HXe$?=JiPy}|Knf&^RBHv(wYq4*0qq0i4f& z@%{IAZrv11fA-|D&-Pkply`Iss*kRNbP4r!goO5%$gntw2MKXw-Es8BYbLgn$=4xSvrb@~uHv16N-1e{3^Hu}YH5XRAl3|DA{4o*!%!q{62~elp0*zy5#c1rDHzB;n+gC@n+GDn@GwL@7iM@!)wRx8Mi9&hyVwHlXWfjdC zsP2@?DWFx%P;eWnGY9r41jHlAD=bJtKWUm%iSiJmrw}i{3?;ZE9*5|tqBct)1$Acy zs18G*d+M=u(7Xxq&c#;5nZ3?DN*a)4>p9!@JhINn+S1v4L2sj|&H&aWWAl7({!$p1Z2gS_DTmdFD z)8Og|I%GLO18Ao1n{H?=K~s#C`FUy}-fkl7+YZ|A4J^BoI6mr~EZW8Z77gC4A~hLy zI%{ndutQx(G(HDsXq@1TSc<=wI%1=NJ&+q+Y1PyFnGP9T&ANL3TG*TZ+^uEGNgA{H-+IcJQQZ@PmQnj`Eg13YB_!vz3#7#0)vz0TJ zN?po;oThuRc7q!jTnaCS;Mf@-j%XI>!?!4BhIfXL^eR4kRh7Q$h5U%msFU8hogOL! z`rd!FY5spFRFx{^>vdpa1*+;mr~I3Z8!U=#M}CNF`Pl7x5fnc5K`>NZV;lhv|QQ z(}#7S>tYuG+@A=9;jtyghT+?{T*v3Jcb0__-H&+tXJ38s=8IRa_y}5t^rFNH;9w#- zE;19CDfGdL@qESzsm$%LAWR$DLw)AP^c+bwds18hm;-#e#0!9QqELpzf@y*yBGD1& zX^c-~_^5zgG?XwV#&IpaP9~ILvM`V~`2Z*@CMdlcOyot4gjUdRZ4+&S&tN>6yj|k{ zI()QQq#b9LI3vs%!eed{!vP4y!kQ?*+5kwh$9NsdxSPrWy)c0k5)pL=@BEr!VuPHr zI7`egdSdw!zD4R1&pam{WN(K3y+Bt(?t`XkdpTc27QFt>R225 z<$9^`6e&>@MNtDamWEQfB$c2lS3B-1!|qPE(G7Pe?S64}5;#wdv^!2G z9UuYn5FkK+1PJn!bP%8$`F(4Vx0MiEN9UgZ8TL76t#5t%+iUMLNIBfNe92O}kj`RB zo-+4Xog3UbwLwb+=GWUX9&O$dt$+m!0_bd;-i}e3U1ZtvwQJWBY9!2*mL6r@6??Fi z_JWR7f;@3Xa;dK_KKa;VZbqAwIq7!irM!}nz;=Pn%r)XAqw?Na0^ZKFa0bARu4|lX za>%pvtHTx8+mw~n6%I#*W***)UqLR4&OEdNAUQ~%#&#?A^ebep1G9wZj&dy1oyPXY zbH6GNv7G|bXdhIsF!3Poy&}aUI)K~}xc2CHE-pk}=Z``4V(EgEU%56DV+Ksc{<&_6 zGagj^na>wCw%4U)@+2Y0&gCOXDicIRcWqTpfveCS;bf5LMI(8JIoet0^ zm{&3+!i5D)X7F56@kmj3zKs1Mw@ufV8_>arGNvxX614`H*fK5`NhHH+7x8xnZq=Ec z2PXG*tEW=0)&T7n!iz!LCXnCmDvuTd7N>HiXwEfdF=3hSLk6D3H5BKBer}3w=v{zy zSWO_bdLGrMknm|ZpH_xRI!dp0HgyYoT=Lw-GpCq`x5*@=u?qKm3hv2ha90Zm>`D2U zsoD-v+=6qu93xa18(6lYRmd`x2434c$^dgAV73_>z>f*ne37s|UdGY*VB%5r2eD_u zi-#t=+0$B?3g?r%{dm=!g?MG1yld3V!G2iyuW(w$G=`q^Q{VQiw zNxt9^7ZNzwhBt1kH);@r*MO?;JTgKvbSg~lnDniwNb#WC+tFNdh@vg&LW(vlm(c^_ zm3h;AK~fD5VhMR))$!^EZTG10bB1XCVc3qDo4Znz*4)>dSp3>GQet*&-ek0_c(-%w zW_`pqYNHt&B?r%K$>xplL3^|H z%Y>C43)?kB6kDh+kl*3ZmF|ry!1j>#1ybg8V-w=iQR^xj*Xzs}hv5{VE0-?mH6wg6 zMQsplL3DP%XyGygofc_oslhVxJ{uyQJCl$2X>4g@Qba5{sjgDSs9RnjApB*w#fvhf z%nTXlkHdEN%i|ao+z!f_rYs6ZG#S`lbiKuPRSE-#{{eRFH+uVmC`x*OGl5%r3?0ZR z?8ywefMpw52+OCpTk$KJ3eSOg7l7Q@UhtkgM#X{7kP{MBqRC`?vveK=*!$0iy#0YV zW4EI2!CpUcG!z<@(tJZ#Krt_1pZo}(v+y==OAusF+X;G%nf3C%l*(RE6L-hFd+E}) z5XaJns&Aqp6$~k!( ztWR7VKJd!T>%aQdUz(s;s}>Gp-N<%jVNFhqjme9K(o}ans!}_RtOeet%E8|CO!;+m zWEg;(m6wJCu?@5gO`4p9(!z~%@+^BoOI4LZ!`E;+cs{tw^kRtX3^3k`jYwf1e-iod zG$MxjJBdjT9OV#rWxI9GKuWa&NO^G&i*8~M;h`CC4Um>BUtz5@FyH=- z=Yj=Hrnl2Wyt;)UeoiE0s39%d!xzScGeV7k;>J~gyyJcy0?E@2lsR~#crZd+I8Ium1<(tI zfT@`1qbAzad^U{)b4k@V4jkf+JTZoo~^$-2o``Ib-U+V!>ZN`6Sj(d;yKjHU7u5e!|Yv`p~? z->KiVi_1ZQ4 zXzaB<&%;BrWx{}HWyP}Pt`Ei~tmw?qw8h(XswNj>MMi}P3hC3-7D#t0%^aDDTo2@7 zyH2Xrs|Keg*JCuoiZ8K(_YLC-N!sZw&5N*LYkZwY;OJeE9nbkoA}xLs7#kgLSZ-ogfCNJIMA2>jH@a z2A=8cHZp$ZWC`9CeW@sYqo1STf19`c9jIhWjZ0-JjKrSbDbhZT?fhc8G`vIa#&&iN zZ>`vdu1m=Hni+&J&P*cC%nE79Md3JY)T#j=a5sHCORUS?-i z?e)I2R2iO?eZFtLpamFUdT@pY6_$pmlSkyX1YNoG5U30;Y0+!E^Vw?2W;#JfQPog= z&%p$@FWtBftnS=;>8D?R_2VD?@cnn*{>xwe>fUR24At>PKVP7rrGwMVbz`v7=sGA} zsRd?yA#A;60Lfv1RImV?z$TdzIgdTy4}4M|AA9<9dhE6R(cCvTD(xWIW-nr!#}Asc6Pbw4D;uM6c5DX1)Qd) z2NY}?QCE54Lr$W64AAC^P~GKRRL`A1LAtgxgLf5Iv=QdR9C1V)ARYn$Qq1lMUHO_Z z3z$3t!@w1acUrR4_&KwtCP^2oVYpnqsnHRylKn6byWu>{gN?x@&#F*e+aVLwG+_|z zY!vPr$%PM>W^7U>coyq*^-595bhx>04J34Fke)f)weVLiOCuT&m&>Hvq7LUKTviJO z7Knh}mB-Ry%cX{F zWw~?a_Ef+lY=p5y6>*Pj0*aCO&Uj&9fZ9BeA?*Z~XHBY~!AF>nn-E@rywBPw8t5b% ziirVGfR|?OJO;hWZi#43X33;sxWHWO9Y;vc%;=bXWaGSaaXfgm8PXj1*1O>;b6y$rHzYMM{CaFx*7$r;X`8bl|x8 zRSq4L`8c%NH&ydBRlttAKfh&j2>-S%d@zt+`S4cwDQO+&x5B@8VcKG z87BjkP@OZnHT)1#0S%7n+2W6&(yvZM4ADrp4uk=(!u{psI0N*TeL zd{&zj{5l~Q=G_jr(N$d3GB8!BWvNz97^XLWo=57Z4hPcOG{8ZJL+l2(oxCyJC1e94 z(pfQ2&V0n|xiKAM(#lNnXDZZ^Dd35C%)-m~BX@UC6Em<5NU;}9Lbh#xqu^oVp6y#r zD$e$r2KWj1JKU*Q5mc!VCRGlp(+BEPAR4xY02r2tl15_U%Xa2^fE@!-xH(XTg*`y z%>g|Gxke)O?w#B9X)<`(UoIM7c=Ed*6h54IwrZuyd-dMWHqpG$SY#K$<$amu0}Wti zq<7pvFVERiCnpV*hEEl*y*2kOQH(igJEzPTu7B*yU@TaG>z>K zw{@Nh$2<;t3l?&6h%=y`m1-0)8{ofXL&i90+S%?@KE{E*Mu>j=@ki^c9B>aBOMR@K zBHb~*m80qOq?lq51C;|BW8Ij5q;y4gp*v{R9eW=dTwUQcFkBtK63Ppvy zqah$GvXX7I{|I84TW0;Z={}5on?tYCeYWDc=a|;YCC_@lUb-(_0|$0Ra$m7{$)b7D zi;|hS+y}pb?gEcJP#j1^FlOs=)vrp8kNEx^m7gm-OOeZ{rFj~L3vhmHl+`h$V7qKa zBXess6W}Hx0ki`4^r-riG+B8vNq}@cOBF*cLI5IYr00}vTX~3|SA}i1vHa3R$(i!|@+50%$c`O0Dr{OtJUD#w}JNs`8 zcXFoNUdh5^>Xi@Bm!N0%Pq>`Ghsbdaro#OhC;=9+)Tq=RlvKdjqFf|{%249jE+IBK zxrf7vTu5^g)M%1Z7>pAa=_DlhkRQ0C4f@o=2k*S~fBoBk`{_qNAcM514$O}qHFc8C z)y#q=_2urXx8J;XPj1YumtR7;k$KHS6Pda#1n+tX<`=0nmO zk#907eO_lPhe9oZo?=YDS!;X~T*F)tF&nuRt!#~SR3A`#jB|XL`|-zUDV#_GQbJy} z>7=GJDKG_0H2?W82!)?~c|f+g&p?#6!vXa(f}PeY0D@SMN{^4(pJ_V0muaW7X#957 zO3w}2b2{MPy#V;R-ys-|3KkrqtR7eeRrou&cAkJX`nqB{UI^gpZA- z8R!wgM!X`!B22)VG4JU+b_+tJN6KM6Lzi};cwec4{82%ZoRcqucc(Rz|G|B`j~v)5 zD(fFrs{srz)O|iDiq740Rvu5n5m3-l5;gC^IUJWG#Dst{DtP#g>z?c z24>(@vIi|Mk=NT)8TU>y@)EtQYFRAyt^qrrQd}YwP=tiHAemd zmt`iINHGc`ruS3v{G>7t4GsZk1&s&qYceCS)@6Ls=2j1t|Sq2(PFV;)|_zjB}*i?%ZJn{nvdzs zm_dipwQ3q)8Sp$qu?58UI@rhenE=?sK$sTzvMlRDchhrfyi(hCh5Mw4V;7C;c)Qn= zCWkp^^zZ};GwTJ9KysLDBc~M>3vz*NW3TmZ0{is3UzOesEH|z?3G)WI;JslShBHVz z__L9`wnTE*5U`PXTMJe`_#iJu5x{SV7PF=?;5lb;HH9DpBV{M7s8X6 zV7TH`mdK%^ZXnMO>gjUAap%dy4Isw0y=w!u7;RdeNlFQ4PH$9ZT%4i(fY?0EFe+a~ z+fDa3A(3%*Vvga=)}Ps5LDf2PE~O#P^`F+dwdwk zW|rlrw^W@0zF`7-YBcLSWarUBaa{_Pqflt_wZ{d^w3WQ*Ws42!UnXQTHVwm3d}7Uz z-ua7X&m2Cm54MwcG%&Fgrxl%reh*)i2kZ{l&|^!K8Gx@v!yyzw)=Tlm8IO0W1!p6> zN|%|ezd5swnet`i0Y7dmEA8XqNPJLa%iX)KXe2w{BLa@so% z5Abc*+H)WYNN6ClCrPHh#|P5I2wTv5QoIyKG9jsa$F^-+$EHLEIBBL;aQAl78J7&+ z`B7$`eQv>Qz%mDK2iEld^qtO^js6T!uUz+)lIV355M;o*NCoW)@5U}!qHU^VIF2{Y zLM#~r%Vg4>@d&!H0vHbH{0h45rV|I;0eO}2>e&>V?EW2*rkk|3!#8-yO#m+p2f56t z!Tfj4rucBG^WHMOgz%8L-bIF}JH*Kq=FQ|{bw%1Oowm1V5jeRegRB_wJ6gFejiJEy zs4;0=#QUJSNWrI=bVYDyHhPrrJb-j7cHwJRb!5kp&7y5uCs9^#+GZdjQjI+g6 zl~kNra8U>AE|I|WA|RYS{z}R3Dv^C@~v8e&pbv{n_9DKmN`CEkhC{qVcxt zUA=nwB3xB`NE8$oyl3)WKOKqWa+q8rVHmR}m_zl`Cr{*KujkJy?Q6(B07vq#T)K$W zb3JmsSO6GNa-{vh{(a5^-h~58F$ILmgcMl{-d_OtK;CYL5A1Kxwa?_(m;&~Jyz!yQ z%38WamziceKjjXv)C%y#!M4_HFz$=PB4a>av7P3EzlDj5^jjGX|ZYbX=s3bR<6KF=Zq9%B3Zd`nQCTY^}tF=GFYXbRHhLg76BQ2FIP+s zXU?D+R3ik>i$k9vuotRn#)iE_mH^V{C7)y_2ZTh!t5@Oezxl0i`ISB(ZMCu8p9&LY zs4bFPaZVc}%cPWtiM)dcp^=QudYipv$WOH>p%_zFdVg`pODEi+1m0TF zr!)lo>PcXd@(d{?bRNMP#vt=rMus7F!o6mAyLA4S|WhQVfO9bA)0#L z5MHsO-%nijW?2ilrYVy;U<-crzHH9rsZb&)Wm`Cy_1 z;a-(E1#_*4fPqvNZnbc|4hRqN;4SF3bR!Tr>)*h3usjXyt;xW4d#VQWX6IJoDGlil z1(^oYGD7E1zbdH5SzHAR0_+OvE;=aA=9NL(J}uN0&>1#6SDe3%+*Pc5)NU$SK&YzW z+ew+2-(UL$?3#OQ3@!l#P@oz)Pc2ozpQ;ohN7#S*`=kc682OZTGpp&N!ygB z_~HBS{>^{;-~ID{@z=CU;gu!BC?NpD(WQ0&t+%A0%XoSH?%g}LUoi^%{#$Qax%JYG zd#~Sp=lUEoDw;iEd%GAX@(~ zO^9$ID@GTp9!Zc0|AGJgH{W!1+4XwFHcn1Lawf;xp(|pB2ETgiWuPqs-=0ndcsai9 zyo}>FndiT`_fl8fR~H)U=RrBvsbD)aE*ihwZM2Qywg7FCPArg~Q&??9DH0X)?t&mW zuo;xdQaDcnjaJi$?GqzsPaHLg=h{IZV4ACA&rFxQwr$qCD)c1TXpT>s>c-7%7;KW- z?@JSFgvg46-VPN=Q3p1!K0&!+M={{XA460;L!@21$*)|pSqc}1?Vb_@_MiwLL`dsI zPJz{{!Im{($ubnP*73BeH1}S4>84Mpdl5*2H-$N9xG^4#oslpV1~0sN#exM4_a_5D z#u$M2$mR+!76J2j)8Vi7F&_@`vF_W*%TW?A@$# z&_XAyQKFgvRCh`{Sw^}GU{{5rx93IQxAidDM3 z49MyZc*d*(Nz+-iYW2|2Dig~L4475MP^M9n9FL61lLYL*UmZu*ts5I3BgIo`L@0>l zr;<_ovDkgsC(O?5# zjya$@-^BK5V7JnH+J~JpIcERh)jXiYk=cXi^(S7Tczuq7?M~|wDg$y0y^|Z`JkHQ1 zPM2{^k&M2%-G$1FAM`As>wsN;Fw)M)Jrn5~1_)ak!G{kZ@Pe94xG4MY!2-NE(dRK$ z;?9Pb&K+GhEQe9|68?@~!XT#TXnLkWOn?55{?R}Ai+}pjhaUhOCZ`38yN2jaj&lJ9 zkF8CQ=Z(P5Qd+RXOuL`13^!>pN94yzW=`H zaPRJ2K|y)x#TQQ=J1SfLowweyoq7-6IU^lI&#Wap9~~J%zk$EV!Z-ONCgvv;f=l{- zL0ZIPqozzhw11!U7)~uOr4y&YLPr{>CB$iRLRVG|Ef?wcG>7N2izY|bLU{hT zd1}49HA4jb>g_Y3h!~Q<3ymFQyAZGRua*qPZuaRdNKq`jw%9od2^o>9lPEb1aK2Y! zw=Zn zMMQ&S>2q_2+G?cAa6M0+-s5?aQ(VqyEa%~0YRi~CB1=@Kr|#4OqLmSxbPa1AAkPw| z#06qIYt)6JWA^6ttJ1)n%{V4#?>RFPCgB}<_}+^t;V3Qe$C=p-NM}MK5qs<6?XWIX zT!ro9oqFR`PbLJp41wrX8Gf)Zf7L>Q@eDBJ@AZ==8m+dJYWtKMW-Ih-RA?-5dgD*$s6Myrb@zwj$I>4odcxi3l>XX+Ua^&mUNUD&0Vmo5(u3+tmJzoGR>(;($I-g&TQ-Zo(Qma4Yg&HBru7kD0M6c-0TQx6 zeG+lzOr23!IRX#chkY(*{p8w_;UPnue6}OwRmGp|kWBo+0pg65W+`FJk72-e^=O-9 zW>6irw-&@^3gzZlf$;Xs$Sbpd7|;=AM!!rf*%ql;k#RDAT~tJcWn$(9zv1mT`FG3} z_6^?NKQ%rxer5)}WB=7#*D%if;C7WqKq#{e!dGHsM+ApE#N`-s(~@{ZWj6MTU%8dD zd5o!5`Bb*l{06)j;JbbP3)s`>;>bK#dfs!3{R!K>KZ*)7b3zBYqMCS6TtG>Ee7yT< z-KI-XN=8mL(LrgVOGsk)l7=b~#-P*>-h1a4zxc%`AO8R?XT87mo$tVQ5r>J|hk7Fk zO+aVflcS@CjzaYecBqeBOD!X?7{qNVX(NyJ?%72%;Z2x1X(!L%Lk<+uWn;NIK4`!2oy{xs2cNbCP|rbDscxsJA>`&(`v12!T&X@2Q(#IU2So7fdGJmZu=V@ zASl2U!OPj;y7TDL6|>Y_N{*u-m3PVoKzdxUK2y$^0XzF=+kWK>>E6h!ugi@l=G$jZ z9%EF-QQ$BnYnIT6?GVUmBZgevQu1K9L*QCrInKsetn?DLTUVS-VVM|_GuXKWeR1l1Hc{TWQ+MqLyVF`6t zA5tW9Wp(_N_m3G=amzi6iw#s6^j%cO1J^ti5+tcTQ;3qI#4W| z2Jl2bVN=99+Kcz@TBbvnc1E8eylXw#f@|qEg$4rFb8Js)c_sgY6u@3$RCE};-D4rb zcWA3#Ht{qQ%MiwiPWZ06c~IcpqXX>zB%U)uoDNslC91%7xshY*Moq>8+eg;=aKN%B zpCIsI=P($ZI&tu)ySx95~<=sQClfG(pExGcbpknaL;f zcy(x|Sy3&ESyHR?>(br_hla+0z{m&;Uu6V`)Mb=iz5llC$5&py35XauDnftI9YtwJoRDGcor28^bdX^0 zfBL6?S8pll5?431FVcSGpcI-TH($K&RCn*Z`f4HhOE+$iP!!<+dc$*bi`~9;%N8*H zqtAZyKZ`{56<>#N1TwcHPs>}!Y z4FCNp1gI4}M4JJ-CF9rY%BjKTYqwva*&=>)lIOQT+b*%{??^GVCCA7Ci zC?PLEaDO(R2jlAF&&?G;{fYcrx^CM8qQVSVIIDh$?X2Yq@Qa@VqSMEZGKOFOwf{gi z^@*d0zzCkqbnU~~7z1gAB|vh9$K-ec>|!|_1^f_tMnbp?SZ z!uScX7XlRB1a=U?nL$gVT1=if?_fE2yN+En9zWlty|#A9ubl?tMofy1ug;x0%iOs< z+C9R2?7cO1JSy=1yIlCu8I?ctM13in>i*RCye~myp>?+B^?`SZ>z(}~g@!^x$X>NV z+Eu>6Bnnv3bfCAd1FvgGLar%`}SaNQMPLd?E8=ogb^q7fCatD)#%&`6x3s@g_w z*@)dB%!K^;|HF3PFUN&&GE4>1?h`r1B!{tUz)Ol4U9F?P6{) zbe&A}jbXFRZR)OPvLBwSWZnu|(*hq5Ov8jAEUh?=f?-sy{I|cj2c!$vRtm<-&QH`R<)lBgu|}qPQ_2mVu=?(_p@` zvSMt7^Gw(ChQJWpuSTgm%Bd(P+S=dz7d`Fc{4RtxSx6Rx`yjoA9n}yu3c()3nizA#V-F7E4&F81B1fN9gQJ>* z<#%_w#PAyS#t}G6@8%?IkJ7@Zn1m%rx5E5_q8Vh7=`X-L)3P%oSF-X%^0k~TrdtV+ z$bT6#P1t#!A-NcsBVE>~g>dwN(bwa1N$@()IsH)2UlU|04+QuU5A9A zrb0vHj&&!^7WupO<7E3t5kVlP438iwXE@)E5x z4_^WAL=}jtd4&elVCwB`UfjoFPuX2d$1BI^fZfqqVyfkS^9tjQAShTJ-y|$S)LHq$^{T5Z#tsIPWx=!~Y`c5odZ& zlpfl*@J^fo$O`V=RGGjM9u8W4uwx#LVgaZ(hm3ApMWdC34zcO&0*-_%1Iv7L&kQqg zI3#x_%B@e9&J%bym4Uw36_Q$X%$oIg_8g4Qqf>#PYiV&{r`su7uk02-@%2>~QXf2A zUw{UMM8`q1MAF%k+P(x=hx022NdIfrjg3)hq{Mf-gP6kznV%P}c#PgAb7kkU@LO_W ziUP_sZ}%rzhE+?LLDZ=7Rtbaq3sl3Pk54I!u>cHw0 zr){2WOI1uKQIA@pbqhfGpax5xhIA_~ZF`nAa*Dn4uRc|ulO@}zM?lQ->XV*PBStOB z?7*B9;~sf8NA_?$mTFc9+uH{%yKoRcaaiqo=h3=ky=#XCZ11Kbdox|w*^|fNHi4Az zj%l!SngBf4?BXU^r5Ft%ZBb~{;ER+2d=OC-6rIMs-+%ADk3RhHN1uIW`PmPBYVX5) zuf0ZB|KTT+C_iY{-GAB{dk5?a?VVgNX#wlj&C2imBqEg0T><9e0;vbub3l%X0Lz5o zuo%0nNI;@NUBg=U@MX;W&MUV*`}7mZ_VkS(e){ptH?HeZrG)#^2j7L6sEodP=W%O= zy@N;y8pc_Tr6H=D5_Zd`DX5QfWA%0u0^F&4ch|HXl+5!{h(F-k`CS_9V}p*6m?59j z{t`G{4)^wx?0t_*OsP!%NxzCLz}%T3ziTf^pK(!zQ@bPkgZ-SUvguSFjbZ7PAGpxVQan{J z5udl+TSgC{x))&(6J_Ru_ulnpk%X77Uz38a8X5>&%xEz_2FW=Nkqx{P&%rf9PW;r$ zqkp;<(A03I`S8udFYMEDgYAlw(4}F!DBvwLu)}RoOo)KVix(_{hZWZnG#l{UBf!@T zX>14V5MH|mx;kW@+?e^D`Y5yAz39WuuqHsAykDPIF&31}vXBky$@H;1vzbZJAHc?u z5wnC6M0}f4N({0I*v$anG# ztw(xr5aYT0QlGb#~NcZ{1AqyRg))t$QQhIdcK38&9v-4$)*!d?V>V@Mp? z!?c|vW0I1M552JW!kJS(wBeOG*3RcopU4L`YT^#Kjbs{0q|1q#VI!CVM3xX91i>!& zgI5D{j2-tjXFJ4(6{NdmF4=FQZ1nRB{@ZLM`IREu4mph#vF@~1Fw#1@fK72;51SYK#WJx0h z_eK19>av7Dv!HHu>0K3ZL?GBX64x+6{U2%7XtIn~8p2P70tka4tD-4|; z$e31>fHm?{a)|$QB+U(Db!GcxwuMbPCZ;?+7!LfwxI?yX+_-DI=?=zS*T#sOOP;d> zam>3Ax#WC0rwRxzeTasJ2%=ArVNf8YJ4T1}p|R4s;k=?VMc)%^XM2E-K0|w#D&y6= zD^>~yZPcD+Dh$$##wv|vh{HZi*+Td$JulL+aSp7G^*WGox-?8~yK2CIs@pq3G6xsRpDd8-DVv$!!qCOf^%(#%r*iz)@tCvpx7^SaWixQd=P-%1q{>k9XJz zx7)>3<~M%**Q5~e0#$NHq5v4=w)WwG4zUro)0eb=@ak}ELxUUMS1gy5sKI5zvFLB! z(WXt_>>GDqlL;vhzx?8L?+>@pUtr2FXphyfD}lh5@+Q{lDjnmDNvHP;ldnEX&hk7} z+b|y!$lyz&02xOY7y=;#K(JO8L43Dx1M z8+4$E06CHN#&bQPD7TZ$uk=XziEd5s?qO&A>HIMEO&g}jOW3$2>Q0jxTq&Q92rp(0 z*5TgKg1Iwi_jpyTUcL`{58i7EC0!Ugf`|Vju3w*d-F>x#;y64^euwsy8Srj2s~Z=^oMG$K22T$=g>|kXlvhU9ccC21VMS%? zF&$#)Y`?9%|6#9JOW zOiufQzF>_MH|3ewm?tkAt=LgJBVXo*&Kdqc+eF#Pg|jnA=Pcj(_P1ZyvkR(>jtt+r z@gj*(JJ$(U53JO$bojvjhVDStf&Fkw>lKo}uy;3nYbc{RKvb+Xi2=iF?D>QD-+%Z1 zeFPr1U%7Y@TwlL@`K1@Hy^Mk1c#+mk8^3q=wKwm*Zaw*vw{M$G^zNNI4zav`<;tb= z=Vi<2T6G?=0Fv8H`Qr00{_fxTkAD8MKd}9$U;k8BtleI`dc_BHv?ll$5eBGYP_kJx zOtcpHHHp=_z+_r9>S!97#mqS+tx1YH=|h6!*g7mFR>}8FTEYq zPsnE*TqUU%ETi8796T3~kU$75lV38Yq#M1)2lmOw*&#gY3)RJ}G14R)jF5vot6?d2 zYdGC=@E>W19#hhRis7pT0^bb>F9LgRKCL<+7RrklFnm44k<3R5OCeu>U8`F`Uxqm6! zBpC+mRkCofA1NjubVzpqDW0#Xp}Jv2&I1`joHG5?OyLRqIu))i#G^M}@tR6l!oYC= zZw-gk zFNdU2-4?q|uQ$#+oUt`kRv*W*XB)dTdb2?GW(!c|N^si>Y*%dTpSo`Lw8D`+#so** z^fj+$T6xQs*jN~z{$g&}#RFmRZaJj0K)X-KPAcd>;&Qx-%A(xaL4Ws3TrkPx=8bxz zI^zZQ;^g2L(^hm>S>oyq?{B?v511>kU6-gmfB5OAcV2k~wg>88ef8dJuaV!W_hcFR z48_Lb>UrZ@L{Yek9>ZHvMi|m|_9XdlFnMV*^A$}-^ogRSgIFc~#N9NjK?LtkujsmA ziH9S@Ys^d{hn(+gv+F*fR;`Be6j$wT6CaRbMs%y{2wFW-vz4*oR#9ND?oJ@AQGZ~+ zJkR~`*i!$kuH@;Bn4!=3*e>Iaj^%P<(9Z2<;}J18`!x)ouB8t^ZH)5C$1;}s+n;0~ z(JBn2;FO)?EwJ4Za2fkn<{ed>F-S{dJUDpD!BBC&W}`YNBn!xl7r9%uOh(1G5mB!!xv4%il7s=HAT_|Br?Pi!i;AglyEzoK34O1Je#i!ler|x70({T~iuvVy%^+Wvqp&Pe(q1xBx>E>W_%E>sZeJc=Y4 z>wX37A@H(-ja{OeEL)zGmSl9As>qOy&}~(g=e2s(YDiua4j33k*PSJ8#tcRf9z^*Q z`A3SuHRS}z08*yt?Ss~ZbLMELa2DRtF5{8724@t56!)l~bM@-gz5@IdDC{V^RoQp$*_C?h@3}n&yZ(eJ`aV^ zencU_V0(uc!Tew{V29PPoz1uq*J$Xrv}L+9w)?ZUYf15r2KM#>j-X2H4Zt>q5O(dO zFh8}j^sB-Yd;2uDJA>z@+D)7=_5$|gaJmIB1=uxXfwSAU&gDsb)?vOgyX$J4CWx>Q z*UbqtqhOSF*zTEYW~x9(E2Ic!p(_B{a}Yap3w{0dSD*j*_W|j9_uuv@>T8!SzVqgr zxH0+%NI`VgH*YfGQg=L=ouj)}F;O0YJR6z>gdsL~C!{Fvzx$4K#~atLky&Uj^p;j& zu3f%(`{kFUC_r%f4A}qllaI+Sx?j(oJ}rFUz)Ct#<;EY?7pJQ$pYw1DXAoi}(zq5t z=1Ooov683P=QCIxHYHkVoZ09hYhnPp$$V{LU34UKH`SCi@Rk6g&CWi>3qD{)k6sT{ zC(BPxj6-0!y>07eG&><+V`kJ;XgjFA_IHUeS~lyQO~!?EP`v}FyL=2dziY>ijT<(g z?ijm?icI^U1fN}}K(O^w%l16Gx`N+;0t%%G*P#0}aI)E;{ zpy<=z*SOm_J|@?TkOX<)p6%qjS6+G%nPd{Mx1GgPfDSOwBBQIoDb0iJ3)rKO4 z;Sc3#aXP-^HKkD6WsBkeY(6ud@!h$=O*bfew!b}H+7jLBn^K4NqnP~z1&J~fUt~@h2^kN3cF}^J3?<)GlBu%X61Iy_7`Si)?vQFC44Pd@-M-iMm|;ZV zRMv`ufftf{@<1a!sty$O#4IdK~__MVO?fD~CcsrDH)`-L>D>eS=6Nf$Fe0 z%+p8JGw2N4sSI9YU{{4idCopD;Nvpla=r#Kv%caX?QD1rSrW+~9+pX}{`7Wn!MhOO zA+S4zZvd@3S=z3=dy`ivp0J?L^7#W70PKDO?5kHSh5VX|EP)XMM(3dBOCvcLC)e~wD+<$MZ_dz0?$2_E^zR53)|sDQ6)PMHZ4Me|I+q7d;gu>oN z5*!3d5O?qH9mGSt7#SKkb^ORzU;PAx>TtYu^F_%kH?Lg<@+XfT28p2flaD^6w*yjb zTT07EAH3gO+E21mu3o$#97tId8lW!0gaSiXX^P&WI#|{#+I^!suxRUce(_p@h84$B zY#epx_H9Rf^6|$M7zs8+57b?b4RDsvU>&RXrxAtP0-6}ocz*Q5Pfs2@f)JBvkS?&G z`L1_H=ZstT0AvFq`GS-_OC3Gff_}6E`^`wR4UyyTSh_Rg=OhtH!hrY0v15C7?b@<= z(+m6e$r3W58KoT>@7uEnP@BN`@S#k1U^~nP+U6&O+mw9b3?<(d%_1p{J^?45SRuLy zC@uuIt>}RoTPM(@J%F-T#L1_l?BFV53Y}BK7)ldTB5N!VryLo#w!UtCYM%|PG zvfFcK6tEx`12O3qyapUYqUKaw75ieneO=Xd6qodCn|%X&!((r8hyq~%Na0(0 zRlp!bO1F#1oLtkXty^IGM&Bd&=~rKT@!2QWE}limsp~r5>E~OfHmEHX!*@E)pFRoL z;kiG>Q%}#5@Zy=v&)L3ZlW>5~6M{(Yp0i|GZ4+1x9(C->c$B6nq4Cj2kU*^rzCVMm z0^SwiEChf!biI(Fusv!(@@m{Q{-2+oc%rc#^+nDVJ*wRVz}RW;B8dK0EdsN60eMpa zn>oW6RUj`bGM`3W!FHA+=lQDG(hOX!c?s5u1?G?!WqeB2Kmn)@+nwJDVYL=h-gSnK zg3y^v(VecA^t<%AwYa{AP&s%;7`tWr2w`RX9{)y13GWkA8w_045J1|&JGs*S zUL4G1z0Fi1mFM7o*_ggjG=^!xbKuz%&_$M+Z-VPc>pJf3V^94q!TgLh3-x6H&cIrn zwy8TNU|oqm1JCP|Ne$7KY{`>XleR90a~aVj$XYPY-rA_ra;cWD`lzs?!nRBUd!M1P zUE3CngLIM6lJNm;hp1{VZTCoVt?X0E3^3>Nz4QXA4#~Z-MIFjD!q^!$&V%_d2HEe# z3UDWhfTjn+zWnkFVzL+~31G+8O<(=w3w)T0{?@&F62claCYyhm?F4ru1}fO=G$9WBfhRTK2w zz4^A_3ns-ObhS8x%)1t1@5}-MiJoG!eVg>~aZLkc2JCNGPtxBg?Bc_G3K=%SS}z{+ z&@U{*kg5w&VLRlPg=rcYKu2bj#2CQ%>ty>YRgb;W?IJCfNb z3`wzqMU>Gd9k-#LxmvMoU~lWS&Y_5$&D*(KOPwuHFu&@tU0%sEE6s0f{@v5ZkDNPo zJgJi7W3)1H*@HqeSS(-QO$^n5pc?1s>Z)Ch+|thhDGy@gHkRvsPfMJ`lHXgO!MI>x zTt;7B@F7_QRyZAnhZaX1o*?|zxZqHCU(KV0Wqwf#&4$`N4E+L z*TGG$2AO?vNPDCnWpKHEI`Pwl?SvZoxk1*ze4xG}!U<9gl9oe6t5FutlXYVr z9v=?#Ndhu&raMq`LsMZpOY2+?;G?xNWmY}&Jmk};a}7+uxMlq-xDy)`UyM*vD^-%5 zGdecDHd76Zhgr;%d^y*+1Ehx=dTXo{>M}o1)f@Dp*&Cx>x#U@+uocbBSSGqVCz^~E zQPXz$1D1F@2!`;C5bg2aIRapBR?v`c=}*Ak#G46Kc#R0w?IRfO*=jJx%%09n*R2D9 z4p!$U7Ud_EEL6`&2Cby35BpNvP0D3L+U*IhfwsqG1%}(Agt1owq%GXXQX?qq(;1H? zxt9+nPL+EmeS$h>-R(OGY-fbc+ZiXD)WfJ}YHGve&wl=MD2mX^#y}81eDD6dZ@&dd z4HN~Nqz_66o_zhv+IFD#S=Xvkl zcRu;}BZ-lmRQNc4^azYacOi$7SrA@tDQI0E`&sTe@JP50FtK;~3ED>aA%h5W+JYL> zS1(`I0Sd#RD|Q*w&Bt30KxPra=xSts_pV)AH*el)Cd`v3ENubHFq?c-7ev&Dog91b zB7Pk^dW0;4%!Buy>lnhTt#AP3ox!CEH!4go($6U3z;=U~jFAW9kh42L)4W=;=ExOwA6Lu|jGeyR8^5~&$o6M>8JB{rOjJ1F%HVL$u2UBFOm1j#D%}`LB z$FH?dX7JD_#YDSs9HkE_4ilUQsy5b{H7%pDy97)#!vI+W^lh3PL)5hj<+@9BH;4%n zww*jkb@y;kzHSI>7hr2FmQQK=OW2-O_zd}--*zq|uBl%3sazTrgY9-OPzyK!LtX~V z6+hXH--!s;?JvIbMZ!CM#>>Un<*CX_9bPkpv^Tcn?H}B~2j0z-0G}BQMTPyqc~ZZ) z1K!DfS`(@CP?2_%m55{!KQ)?qSizhI8SMBu{|Jf zGEC^YTosbvZC&WUz=Vm9DeyqJ*`#}0xBQUz<0nd{l-Pn?1J1G z+GUb|7DYo?jN?fdb}(uLdcivmWtM0w=_;M?vv>JIlk3v$3GdstZ}%BKqicQBMEK@q znf2FvN7aGiReDoV3-uvD)@sM4F}UnG^P3pe#y%mu_9hHuq9_D2(_%&J*&ds0Y)65( z40^+0;CV+4O9k3{p046`fb=Hhy>9o&fEg3bgBECdFc@3h7gMy++gDU9YDp_FmEzde zW$A3*SDA4H6MNzq9-0+?L13}593(o7lUOoTZ!;cU)3f7L%7g8N`I@oZ)BU<}kX}y! zE6XemP7Bx-?J?{ELB(Aai7NN+zeO>&-T2IpK6v-<{OO<2Tl4@@Aoa0I6@bi;97IEG zN(dR5WQ}Gwlc(Dd+bcW@0v{P-aSQD zq-7_-SVCz4PTsM!o8`?)t+65~P~)8+(YGQ@I2DOreNcBBOh)$3+i!^uqLOm?B5^l4 zDnK4o?%n0)HbF}{KeT-+5WJP=2G9N4`SYXIsY;0uI;6NZ{1^NpcNNj>9A3u3`l(w^6apIbFR|H}#fg z@K=4W6V5mVYu9DFF${rMU^^jIHwr7- zI<@}Df&C6=;hp{H5SBwd5HA=8U*J9%5?2xta3y{2P|L{W!mc@hR9XvMZF5zPhIdQH z_TkPzd>|fWZtagbBPlGe*|x*sxd;*N6oP* z)h+-@^Oo;ZIru{BpLWn{<~w%dp>P0|#laqIfAmoZua(_M?vUQD=G`<-8p~#cL znvf7l!oUE``AKi3esJ+i2CeHhs#i^(T#zgm(sIsz;U(&;te-NfvR;UQ3k z?eHhJoZ)78Y&unIY8R|8dFizJn)M4#N_5Hh@~AoxwXxk*&|_PK48Xo&0*CQ(G~&a_ zwG>)%H<_X)gLS0cSR?(d{*)eHBwwNuHD+d&Xupi1+G5MV5&2$zTJ)XF-BDwo=8I!K zCbEb`B;yoi5^F>*x06(S6TA-&O1x1qk%%}ZbHKbo&|MD;5YGF3^ij{5oqO-XH0xsI zQn1jB5c2v;1^NLP8M9tUh5AQzuWYdli$iH3A#&@DgYo9=?1bKKz3}{TmlO1Xxh2qU z3`f-EZMqQ^6K*(xIV;$J9r`CAul)l{*%+$ewF203iU(=BE(hL;Fp6KD++EnmUD)4G zy#?>;wx>UpG*sv1qd$3HzK>gTlJ|=BA}UE^cJDyIeQ^*Q)j{1F+Yt;&U))w;dimxJ z!0txA{Icwrsp17|R9j(0%KBY?R-5ppt) zJx?AzLUjScW)lPHHeRSJ($$f9+}@s+z#N$e_}8yo0`)E9YY2dA!amMl^`VbWQblB# zgG%>nqq^zLb(_R(892fUgC@{m`?qi1(*LV~S@|(Uc)Z{Kuw9BS%)c&6=Y{<^JXE(4 zM78Py|HVWkALkcML>77uR0rcij5-J(P3a*CbseN5jSyH{Kq$0SjE{o(+81hzu0tL{ zR`;}U%*egdezTU0+{`U_3oHe*`YuhQA;Xvf=n!|FHLC}Jm``)+Vpy?sF;!Zl(NRN) zTe1p?mQmW<tGOQ6X1ZZYnP4z^Uwj9qsjxaI z9E1niO$98`80}C|n8Jfm+W|f}k3Qut_R+Es-2?&-C0Jp{QBxmJKoD>ZZ4Z?TzQ9y+8=L!G=Lm za1#AraZVeWoRFD244AHw3Qrxj=HXTmu7;+QRB=M1Kfes)Wmd zcTbp~_5PM%UsH}hHmWzUJ7HTR<7_Cly^HO3R{WHm%W*83B9mq<%wzS+3}!F2ko?D% zwXm|KC(58u)g75vAyeyUZab%|fPGzNEKMh=R*FUVg+d3v280_!b)SPix#@#mZ=R$tk(qIU)a0%r5iU4Fa7GvFOBr4;SgseN%~d8 z7B2>cJwg*dC1zXopuKOmH-^Km+W%}T%+jLj~qPEfxuEBb0bbh z8%fR)1<3nJo4;@&4S|aU{B+vlTDW~81s;FyEIzNNAX6AzznW7W%2zNjLt2N=DXA0Y zOa`Ini&=8P z>ZAkv-Z2^v;W?o;Bbv>#*t6UK`V5VZz-a8JPkld?$w{8_0R{(yV($?RL>l!y%f9B8 zfZcagIRxxw^T3mt@ft?LkK*TxlE25y6dIkAaN#OQo2+tUx($sFX-`u(3QW@1omL@o zLQbb;cn;JeV0DfXj5L{Tf$%uI)JN?IvJBoX;mNcu;;!oHrqR&@cok@zCPq!B#~s+e zfYR+#8-*Ut3OonMw4Cml@Jdg~%VmB8_3X(@F4l0O(VMIyB+7V>6(& zx>JP)x8KSP$ZZiujKJGLeZ_^y?}$1eUHWW3X{tqFi+$8fUn=MTT-FISF7&YIfJ}Qq zT(S@LZg5czT+%Z;S5XZCMT)!EAy``i8SOIQATYr|F#xdBVXPY$YcjAFHZ>ODmCE>r zLIp3<%3?~p&LU#~4cxJ_Dcr#(YF%;p5zmv^Fd_D-FazyJ@&ZVQ?a95Y2Tm<4VAt3| zY1BXC-1NT?XS@#e1E<Xiig#~y`&_^o6T)V@L6mWqQ(F;XEP;PRB1M=FO% zyIk#nZ@_;ZN;4F2nJBYVLn}^h-D45Q`?~&|F8!-;kUJ_Z)C%)JDmILdLvqj175n2^ z8ao2w@X!$1aCCT>Z3AJZRc^(ZGq=CPJs)_!Z};|FH?KJ-d!t!mzn^~m5w|+De~;O9 z|NPJY96Z7(JeK&3y|7^nUv`tSdHs5+0vfQBqoY6@cm4PW<`ejo-h!wU#hZ)u3U*#A z4f)!YE7WCLap0ZkoS{EMC@YW`Q$z=3ULGJ04|UI-I(d;Yueb8#iK`bcknx3>Gp9~q z?8gruI<$WuRBwr@lf5Lar$eWiggvR^WG*)lr%Ej~Uj&$RWUc7e2d8F8( zzOJrJN_g8ew_mwMT|aX8kR>#L z>mU?pYoypHg^uva z(3aWSfVx&|G#|87Vq>O$nmY$-g?UORL*43&LeR3XJ?C^P*ah2N)c&sMSRMr4l>+um zP=+1(Gh``)s`MElPDIgk_-eM}>iS@OvsL=NMvJ!7zFphNGQurXzj@8X`+HoJoYLo! zA|oF4R0$|9*^^b90g`K2;XYPWgOT%kJ1D%5uX0;X)b*@{x4?UGwzLQY4iCq#o+rf^ zyt_NMJhgt3X=!!|@m>vm54^v5_l~L3C@R{FCyyQ0$3f53eE`i&faWf=KJfXHT-J~| zv<2WffZ>A)&kKD{H-w+NN)7UY&~MldAt5=Cw1mts6W`Xy3VtzL-Jol=9##!NcnRki zb;CO(S97?ebz>+iY=`iD29VwoJ&+F{Hu#A44uPJTDc60~(&aYJn>9xP`$)LS&V{hn zWTIr4Gcpp8p3Q}g?HE3Z#duY5%urS|TgZ@jqqY^5eCKX9gYld_eElYScWyUh58sz% z&yNT)t;tlT3{<4=Ju5wl=!5|4=`imlgr`brnIi4{&NuZ00ujMnpim3D))vz~@~-h) z7xKRR3CX>%*i|_K7f{k=PXW^{Qe&cn?e#4K*zVXoG>TktZ124k@_cPGuwI$5t+YUF z-8%B{;k?^aVU>{%m&uAXKLYQRrlgqKlQp7Y*4d|XDlU<8GR2y#QU(0ksBV24-Wjdh z*&n+A%l>40-nce`o(M0?X*IaIGAI^)hKOldcxXD_wCJ%5-paZ>5D&_A+1;I6H?_sJ zKtvz6L%{&B)Q$Jve&eezKPSj&&uVvo8dwM6H3ud}Mre_WbMD{03(PWmEL7eIf^D{R z&prgtRKro#0Kjv)7j;Db`13Dby`9|2v!_o3;a%J1t4z>Cco6wQmJ3-1uoLZ}F2M&a zC&CyZ1 z2yzYZKYZ{77jj=9U1jv5(!hbRKX?0{^3EMNn`egg!DNaJ22M@^_>>dHIzC_fKCch7 zC4J0)d~_Y4K7LeydI7?>CU0j^%of@dNQd?iqoaeL?4}5L9tB_%Yao1ccuVV^y!T7L zCCh+xux|ybperl{V`t1bakw!(uzKEY!7YivfZaRbLhKpG_PRx~6DN;tdwxsI7y&NZ zjwC)SJ^p25`SiJC1r$wEZA;$78u!~a_JL6lGPbKGtz4& zf=ZjkcJ_?1yIH{wfwu#PedsmmgmwF1{5$m_dtg4TvO@UAcK5ET&bH3zw(7Is5NH@Ejo1%%2IcXX2NjZY3)g=%p{Ug%r9pMlDSdyf?N}T4qRntSM!{ zI~wn7!UQ0K;psxHkDuzb>@(OR-q{BW?NTvi7FwPefU#_WV1cwr!VN7Wx;pKh>YkPK zv__l>iquz>XfjkC*QyQ~lk1WK76MGq5U^vOU~pEZZGR3NQmGr>!-}cR#+gdgS-BFE z@wD8p`iM=oa6NvfB_Tn_cbe>0nu%_d-}Zi4AiQD&aFXG%K&?O4o~tj+a8!aJwu9=3 zs$#3Rpgs(e4W#{8lfZjo&fsjGMq{S8N&LaO!MnnQ;JE@7T@XV+)YVO3Qz-?wskZyV zUH#;(+09D_!kz$FXG<~H>NfR$)%Kgf-oM&GQ4_l{fYfJZ5^NX|8i@u^hPtnCn~YQa zfj`N`ZnZAxOa>dAX^z7fggPN+}N^F91unuVc^y{yF`HMgL%U}J9 zTajECFdpt#2oGweCdL($jZ0z#q_I-+jHJj3d#&VD>CPx5#s zbyO4Wh047-jgwzDp~2P5z?}XM-o-4_)aYGRXYk%Vx!tAfK!JcLRNa~x84B1{NrH{w z1yo5!fL$Q4v|Uj{!3Yim=M%?{!t+LHWZqBqgy)Ed8&mLe;DEH(jb?gqM?-Gs0rJ&Y zNH400;E6e>dnY1z&J=Z}abAe@BG7nXknu`rK&FuO32d$Sr;N^HvA&$jjNvWp#h|F} z0zZS-5)_Ct_`OnGw5O;>w_kn5J1|MDhAI#SgHBrPCA0OVLrNA|K0=+(fVyI#I(qkj zvGXs*)sZ5m<+`!qrydkUohu>j47gQITiTexJ5SVn7H-njDD&C0S^z6E*!a@WkPn<# zt{)vn;Lj&aANHadHbKT2y2%N|m^UDGv+B(9xhDrfUmMc>+P=>P8t1uHyBip9LB^5` zG}ME4E~X}EkE?i4LZlXxiF*iNGNu4KI5V-pryqUz@rUozk+>MG!F7>*4@#*vLWrwx znY*<@{!l584z{D~&S1r9#mbfP{D%fIo?>JzKvqDpBt}G?NCGW&bV`G?4x9lpc5PA@ zOdb`7{Ke!4Ni+&fP=BG#V=?is=l~>jsydbPz)WYr_6Jw2bT&jQEYuFkGSa$%5+LOn zL4*=wC@XRfz|qA9cFR^~==?UK_Y!8v@4@-nleyKl5G|&QROnUBXKD4m6T~bLrQv zhC^B>FW1O4(XL>QO=AstdTLu)G%D}jDWYyuabH{j+OjdVMcK-?58(xrjh$rHzc z8#P#&(BmkPY-|*Rg?>o;)hkybrR?1+(+{SBP1z}~2=Q=c=hso-DBFkEQ15q9!X<>j ze7qfFkNmM^6GS&%jX4bXJ5r6SOQnGDGI#X5L3n#YY~niA#rP?LjILNs1@KOjF-@>A z;Z*p%NFjAo*R7+RM=L;|FNAk#JHT^GH|y4reE5&&>!KClAivxR@GGJ@Rx3b)5c^aB zGHh2#)!w_?Oae6aJ*0KPAYBZT6T(7;hAD_)gTUbsV6IJ1V|V)~Iv7V6DeAWP)zfgT z7H1GYks5_Y8cW>ccbN*w7!3tcfsn98+(+Gw$kTt6PdxZ4sQDz9E?GytUuh1>dE?{b z@4WZkzI}T&@*y6g%MxnN6KD{GhwUh_^YG_}aTJKv!7CwvcxhvFm7=Dk6=(*rSztUU zE`yB(*ezjlQ*I#7syP=2RBfQgCbLps7NBWtoti}BP5LjxP`c6?x$dV=oIfM4X^;CY z?253=$UzyWC?6LzlH$VtwLz@g4bh~0O4@Ju3`$%P^dIqhO~la zcU-V+@x%aCF5r!O8lu>}JFmQd|1C2Wiz5)s7I%>}^#BfZeu`4+4LX*HrURFD#sRaD zkR2$L$a;&UHU7r9Gq+0>V@D>TQ1?4WmJX?q=)ObneIQGDD!vdm> zbhy$M8=JI8Z9UNE%!Su@6jVyrtSRrUT(6CEH7_@q2&=Mo{;#eR?!D78!RX5Y4UJYL0 z9qMdoZY6;sprWK~e6JuTSPUmNM3j?N>`xEBhdF5qNw%5I3eEiy_i@s|8 zPyXUR`IrCdzcIQW-hwYyjXF|D8rJ9=dMBYJxC2el9znH3sOhd9$bpc-AP(TkUZHGy4Y5jj>+V!{;$_2(z@om_B%8HFPfu-5`QYVyjM&g4z^db z)W{|HPc6Y@%n8COyzcd*qp;maQigOGo7rjk$}L;AzJ33_UAuQpPK+6^ZT0{rLHcGY z)9f8`0!f7-+0Hfm#I(RZgfIMzX3m7@4@N*3&Lb@Ysu!@whGWJUOJ?XI2xoQzzR$Vv z4R{{5U$fn6NPqb7=E<=u=T6^w>BWnuPr!E6{e?ZdL{HX>VDm!`&M7#iCFthb z0eN3V)Z|Z+PsGMn2IkKuS*PDtBbWQwA7iJiNl>F$-KxqMB$J-&W0zwsTo^KJEBB1cO2dm0j0k%cm^YISx3ygsG zz^qS5*VF{aFoehUk#$=QEDWFhvx@@ z`@X#x`<~sqNDxRYz6z_6Tj2n87d4P@hzd&quQ`ORBhQx2qIYgLm7*_K9)qHw_~@ZS zXHU{$&T0sV3-)v%od=R*&Q7aIh(FutCj}JieAoKZPpS*Gg9Ys6a{$)lRPM{pq7`Tb zw}wgLm712S=cmSDnctCLoG%j9?loHpOKv*dXpQr0NkcE4$ZSKkNx zhxV>3`fKZH`x_^_Muu_byY{)^L8cA|6xGmp$M@{#r=ZS^?_r7566VKrGg@SoEV3n< zrLY}K@%H80X{RwE`ll{$`8K*;aQJz%=lNv!;X}t>fBo(4+jp>4{MK&33Z_9JX(X_Y zb#Vs`0Vc$InTm~yU;V_i*ne+F8zQHqZ*c&30_>W&mZTnLtn{=q4e!pt-H;RRR^5w> zDMe(jsfn@NrpdL2hmIZCcmMS}uf2TZ#Nh+_SWOjV>P3k?-~QIO_<|FvB!A)NYT{IC zh+0DuI4bc0=~}_dGLk5gY}(+Nk;4c0NEVsR3A~2{l3PnA@+*H=s|IthU`w}sIGVHZ zCjA=B)!b!d!+Upb-@Sbc!-p*@pexf3j?!>IoB+Ew%@uuZ^{1q*0ou6i$47qK zCo&}p8XfI)E>08R+o1NBnQ=jK}^;9WuBi8HOw*iM`YdzVKLQAkgL zzMi3>fz`90(PX2-tq_3J(^0*%SW^MTxYXE;d6ESz4vUk+ZG=`bq{K&3BuJ!X1hC~O z7Ila1&>jQ^ z=oDwHUT3QgL?Dm(l0I~y0zGgSb!Gdu=Hyl&Wa;_&kQ`8jsLm-^fLy4E>za#!Rh z-)esNUHL-azP(xjAQz&d(A?0UB%D@19A(9|s6-_c4K=!UAFeinbAoPxz_p-+$_pjf zH5~w42onHVt?&-vz;;FnhZXAzey*N+B5V;98u?wq*{o}s>QN#e0sp=cb#O24NJ+df z@Y0v8`{VJe5@p=Ds9}pGkca2Z(!FBq)LO3$&!+&Yp?5mEc5v>iqeu7cX63xpI{d1AiDBrpgh(U6$2fj{|5Fuoh(13GI+l ziVfJbk-zv=>@Wt_EXb5|QKu6i=_8HpvFgeqhNudojmPOJSQKk?JH#Aw&>y8uYO?^(f0~H7CU_BH@~e)(68F0 z5x@a&gEpV)nm~0mamx>|J)AB6;;s>X>-ZtpSi5?aN;;MsVog!!#(k$?(`_o>i`V?B z>%oKdtLt(u*9{I>>d})dT0<8b#%=NLc%qHC7UZ%0VUy?If22e3h3Bx{l1L73Y3wLB zjt!0R_D*SDmAPM5tnqETHEZ1X#ORp(nYDvMk|d30(rk%#QNxx={_SD?lW;!5``iqk#q%928`HNx zWa-S(S3W|YKizp!!W3a^WMLGv>qIb`9~qF z)@9p2!%Inz&x6EBRZz4i85mS=YiSyB-2#{DY23XxnB-w+1>}{3l<2@t^Y6#6Q6()`VsT3E7MR0xJIy4vA-2pcPej5jBp5=4f!Qu!Uw`diTvi^-C}@}&N|Fo5A5rA zZlhS_prZ6%SJ9s3Lle-aYx~FEd#;Fw=bS=LJQq~TH5VBPg zH0f32TDs+1Z+(2~^aWD1+efj$9g7OESHC3I4Yzp&P7aP-6w2Ac4;4WJI;o7SSH8ze zRAJMGiOI1Mp1_sxb`^;HU4r&^YsN_I9iqB~!<`D1@;tR4oxv@DXe(l~{Ps;gOfo!l z^}^YkS1(Cvy?ExNrRkngeX@-6kX95P%>^{T<%5k34YB!ef9p5UXT~D|Sp4;%^a86q z4sU1osI-@f5yBAfg9+2c6QIyS__+S#kMST?5;z*(wKBwgO^i!t&%Av7nn=X&L=X>Q z#*^PwG5b5*l81tbes0!PKpa#V5!_33px0+bXz(b~ZLwe;vvVHi2XbdUEzqQ|lOCS# z)W|8p;rf7Rqz}YfBBIZVP3bim8BPzW59F=%(Z(T2E-*oIkVSzV|j0r6m0aL#XTn&zCRJSP+X%>Mr4YHcSTls#oNHHZfniHHnpP zay^_a{Zd=Em@;)tijmp&blnl7Ru3ZWo|EVhO=kXlkVu~iT57irt(Hq;JE%n3$sk5v zx)9ngUvXx5zu)xPi72hnr1PE>R`3qU=2_Y6|o(^dd`}bqPEvs?>7TQ8K_Be0kIYk0(aj0qIs?yI#ufFr}%R0v2)%uF5c8{+ep*yUd5STmcoLBOyo+5*pQ3 zVXF=7jqSop>QLD@LGo%N7q+_@D$Rpq`y?u6Pj{#C<#*kWko04g#)|lk`;~9zbL!fX zL>SFW?O)hFMNXfbc;k&XzW&)yfBDD1{4f9I-~9c*_h(x-0?*A*{lfY4P<>DRJ9qBf z_3PJf-MVGj|8Cs4aqXIn^(!}T-n?<+=K1p%0J#PjDj5BFY6A>M>!fO**h|A63Q<4fukSBE-OaONoe9R-1QmRi=sx$KJNpp9#~NU`%nzb8wpk z1dCWKChvCKqo1fxFvM(!0#z(BEs-4i(o;sew+>ZlF2~dv@Oc z%ha6(`E}j*fq$?h(h^NkAP9gUv5^Eo5c}E-(2Z`aBtQTSbOYT$??3~Mjo68W`zC6s zL^3Ifk|kTQAI6sCiDEhB*h%cFR4OSaRZ}(dFjZ6IdC0?LYCI1!Q&X9#smjFhe7?Wa zM2tGTynX-Yo_p>&zu))wJ-_oi=dR$m;Gs2l1`S{`Y=;=WxiB(3cK^YL2M!*FL#(Yy zOygXz+_Zz>HCW?Y@N`EBFO6uG8~Uge@K`%iiQ0mhWWdx5W6VZmZ<)P)=O)fvIy-sg{MpMF&VA#<_plMP zTv3o2b7Ll`Eer#jdwYAs#O8f%`xd(&Cn^|sQf&k>^#>6(kM`7)sRk3H5S66YDvUKL z3Q;#sp(cLK=(u7qWB|nsgcGqwI>Hh#bm;8(sP+UMRN8>fBh=?hU;KhAnn*WkH>loH zW&xI&_vAv)3SaL|!X@vna0EBACu@BjfXfv4tEz=vbQy2Y@}(lxS$R~x5p${hA?pPV zqV6D9W=va7*OBM0?K^-&Lv_HOVa}6JHorX?Nb;GFinsI#;{q5S!%_Q*ApkD6Aj~S0 zqlV|1mm?U?ITM6mE$T0`sNw3N6)&nGj_vCnBd3HYyn65Ut#kJAJAdxox8D-iX7deG zkG!hynoy&VZZ$1i~R)o3BE~GjGdtBK}QV^ z^q5!JPGX_D9+Y(G+_4rr=n+5ZtRU|T&+A8b>2A_O1{%z|$VPamZeo-x+|kkon^jtQ zYxYWL!b*v$X$0P2n#zNBun-!uJ^PJ719D=V*yPYC18yr>`zySGyeCR72HQD^+G3@` zc~_Di?mv?qdgJhi{5h5r9t|Kxw9k>ClEzRwiy60Uf@K$`CnwLGe*NZk0SPh~Vu?j( zUBC6MZ~f+Pe)6k-{3pNs)-L?$0sKzuV26Z;K3VCEd4w; zGjs9MrQ3I2fAg)kZ{NN%H8s6||9;rSmT`<2uy|SXCd{;Ua0OaAf})y?=z{skc&Kd0 z4pi7u>SL*PBUMpgg;DEDb@ykv-?!;yC!F@|NVmHA zJpG1sepM@+oWI2eupfW;0hAVXY3@&~KAcBmOxjkY<>V!kzGtWS^Gz8T6nL(RsK5HC zw!&e%F@@`~gJRuxY(pF1r`q76&;W*HbPqTx)LiExtNJ?fynLB?ar38Q2B4Nyf;11k zr_q)1NkR-%s&sRny=uV)z*l+RF{31_ax7EwtEU); z!x^|C$Xv`C@S)iUux=Z(ISo0}bvY|b(ccQa6wBRZNU(T6u zZ14+6&7$&|Lv^Bpid6WD5N_2oA~OnDxj~T2s@3!JF{UIQ_;_ia_!@9FJ?h8=$N<%O z-~qUfl0Z7r4&&|ps| zr;Sg3yyQiQ^wleuuU@@!p=iFrs5AEBW=`i1k$}DQ3S*SZ~XPejsl>z4FJDgBnMQKShDfa03 z%9nrL;|L+frP`8O81cE1L^8`=Qx(hpmTVBwRF0G8>r;P;`S3=DqPDyset><(u3RI- z{FYpWmi~J1P1L>UP`5&0^TjeEJi%^SJcv>@J3z zsc=7;hvYu*?b&5I)oxkv4bp-~i5t6ga=wR)d9wIp-!Y+XNb{)v0$CB%?)KmCIJWelAN&Y@4VTO|iu}t*P zyW!`a%N8M+FrP!lashV8pDsw|3s^A@aP)zk4?ngTHZg6g@hdQbwPX(O@-_H)ZcvnK{@StjTkv>J)? zSK#X4!VFhAlZB$abokZdx9+^v)wRnY>%f7%+#}G*T^X_Zrlc?!OGlGO0xek(wFRw8^LCn*#WD|TS_P^b zR36;Zcl6LfF_1?N?ql-z_U;@!didJq*$4I~dhLpPnGF7R*v=j)HZQwqfmKMfLo2O^ z>h$cTHE~q>*f$?d1vA58IUU;oSvmf6R3E1XuxuY3V1NSk6`oB=HAuS)GEgY`m^g&Q zYVP(Wvi>Zv+71vD;&nExc~R`md=Z$)?y@C`VydOY>Odb^VUc{!vJ6n^+si?>W^XKy(yAIfE2w;Q)h(JdYhdhKgZ_B~bLNQVC@(Wr0L>PGC;<4d% z=SblWGR^8&=SBfs7GlvUF)uEY`h{QnLUm1^ZfcKCA>~Hir-z3-J326MkOnBY;Cags zcF5VLO&#N+vDZy~1zS!(;S_w>JUIwIq%DIU#~S~P1m5vs=qKq!vZ{HBsGbV2*9n=| z%l<5E_env1kI?1?1*AGl6EVKc^+AN37|B6UD&~poly;+4an9DRI9MML6FTB`&{Q1N z2}cd6XBTQ@k#9b_k@ubm0R(sf7}*8J$Rj+lv2o&*mM;pCT4gnNoJG}Zb5jHI7*82f zc(q2_$q&J^BgE!txq0*E+wZ)0{4nus@Q2HzN!`xb;>O-xA~U(AcbdlK`L~Y$)TvV=BO}iFkYwAxZy&(-L=GGk zV{VKT_=P-00`-8}{3%>TFz{{U*)fA;6OlKwa%y(=;*E9d zNNLB>qlaPaW4}H}DhNNxQD9uh<>f2#gML^p7hv}jHBliIK+lkNfNbvD$jfj;WuUsa zM@a7Ep*IF*N)1RG!Z*JMm4v;bfMC0w!8q(BU_N?k=%!|$+H!JLlPA6>Dq;Ceg(bb_UN|)!^W4#+k?74U308L>w$c5 z4A@%bvq%6^=5v9(NPBkyc6K3aSM312-a=8-UDIYWc}s^U$H&0CCxUuUT4ds%H~{j|d%xCnY66_9 zd9%$zgLiCPe?0~uHFQ#kR5)um=foJPbx9CkJz*0T#Pbc9v0%^=(E_oIR z@W6z_XZlxR@BS$KqdVY>)!RU9tCczsV|GC{@=*Lgo3J%(CpHkkdwDyf$ToI%(L}1jBd&Gil>>;! zxrs5(;fu59|K4}Ld;h^3Sor<>Z(O=`nI~p)a_TzY`psLHE`xBJZ8?4Y&g=KyeEVHF zM@L7G961t(9so?(2~2}bUfG`o>E=&ha|bjwSlip*56M9~-?n%gJlnU59K}RBa>_w| zQef`Y5pMHq@cA9vu~|6W;GOSKX@Fe`=snN5Uw3vH(FC!xdUyL)4a6tafL%7%-R^Hg z07DfXD%=?NbL0b&fK^O}N@TsvdI2!7PUkZ2FbYx`iUJuYaE#pY#R+<}gA-t9{Y|89 z-mvBL$i$u3-x(Y_O-96o8aKff1Q;Nr#06q6@ZMx9s(3F{suAwo2Ld?W(MzJN8cdu~ z2Ks7vq6JQ5N@5do6;vYCAqZK_{pPwZOGvfxi~!Ze|+jIv=nFbB>O-j1}R z;*t~SipJZf&JIo;TLs2sYupNk+zijHg$3`rc=P&ATQ_XNz^zf$6rUq}g6A1}SkY`f zmd@x&u1k%>J8_+5!PsGYmQdARG#<^L->_XUq=YI zXiugSu#@e^+gXz~w$iG)NheCqtErneCVy&b4NJ~}r~V~EWKYX54PhG2Yx@F4xd>xj zf$9bUDpP%DJDlZg5J09|Y7QNMojTKGGr*h5W%SrrzM`~@sjG9p_W0w9Qf-jP?*v0| zNcd08NFAw2X`C~QSQ%^m@>K#No@N|c=P=a zzK+22xAVUD_VhsSW{-HB*dwG}&B3G1RSZ(PySqRr7Yp(Xb&n4K@WY9jc?Ad`;zF^* zBCzF3@uxiS9CY)mfPHTAxnRp;`t<6tCRcsnd5z$yXQ zC1ear&{j_v9i4vt^>=%E`%PKnGKMO~ai}IhCfgoCPRI{v0%hDjj#R_5_#8+P8Pirq z6Y4;gSR&I878P6C2HVM=$}~@Vfh0B07}FIAmc~qQX%=Co*viT5MNOCPVbCGT3_3gu!w2#lLCz)cjvT8VJogGmg>Z{Ut&c&_ zFHOf%fK!bR7BX|x)uA$Kq7D5jwa8MBmT)aeBPTq&76RMOR}5zZcDRZ&>$`HiFGr`v zv6x8R)!7CAAuV_Zv-z0yW}eKzyU&hp*|25n1}hUcm%qJzVQ|6IPeBa3saVgIxXPG& zD|KpF({lDlgp3afm5auSjRpJ!*b|mBw~z{$0C#>Q`#fZ;8Bb>j41quX=%dRQFRFvg zSSW8Z&S@meQd>rXkQljuGBYqBn!wU`NXagMM6!e+lS22FHgIM)irRQ1=rWEr-idlxqLF2YDp-R9;YwBzy8c>CZ$Po zHQ-e%KY{vya9woWhKevBg=?O6h{qV2r|^#0l=oF0n@%R(2(rA9oZa@|>dDS9svYCv zdrTF)aLD2k(FI@h9K=(L3+HH#0MX00V8-3ZZSB zQ?*$xuck-fEu7~_;7CV|VIkgraQ}WEkpS#GABcM2?%lc-wDQtG6jIUnIrIiu__@@4 z=7~lR(^gahD0ml}`yC8&m0;ay`KePUJ;FS-V5ET-<$la6|HB3dV`pp^IgYeLb$fhW zyl~#p#w3F6LAq!ef11z~Z6|6)wTz))I2IbG(uVbV2bbn5@tSQsf`LoAM!oUXn*8l{ ziwsCRTL9R>yV*eJ;4XDWp~?>r+XH|*O}XymwXi}5jc-@b{+*^0J`ap<`2ihJirc^D zPt^z1yApfx;%bG!3KOi{AVy?***raA;E=&5gPCENjh8OvY$x7UO>)lQUqf;(!sq0b8Pj--Hp(qL&`~DNqGstIDsKoN}wjrnJW1u@2C!Wk*x+Y8;GA)YNWlP zAFy>&_9eVM=TFWx1)ky|_x1IhpPu;oyKh~Z znLagm?BdL{S47kuaIAesB4R5p4V|L#)Pg)3U zLj%0=S)Lhgc5az4_WELx6-JU)vn|jaw6emrd&hdCC+vr56`P&re))$VH7~tkAM6VJ9v1C(%j3Sz&iW# z*+$!Nm6+AghqLS{0LXHpg}kE)h_sl_=8%bUd@cs1wkF{EFs~}wkQ$)zG_tm2%U(1T z6ENx^usJ7VpMO!B=xW9W=GqW2Lh|}Ez6yOH~tf&^VHxNMLZj_&?3^B4nm1NJv-Bf4Sm>`gkK3xiLkTiMe9k412l4sL$Tr zJ;3dqciw^Lx9;41qdP*d`Wnyx`u(4X8W6`tZoGC#3>{#`k1bF<8xBcnq(ODNEegIqWrm%J&jevTrY; z;^>Cwc%~PD;UHA8jt<(;h&A}khzVrbLwt6V&8j z0%`g@9WCKwBoDv|C5BP@m+XNlOI-kU95VDb%j*mIsOv~DI03L;yP2 z4w+WqDp96q8Jm0k7>n9N-g|g19igq%Q2W4nm6=y=d0s7nAcD!EtDg{N=j}$f$P-{! zW)?Ti4fYi%DWM+mtYLyh+-!>a8<4-SY`NY3U)jH3AcWzD7C;$#JVkN*Xae8CXz&60X zF59i!dKb2D-Mnr47VzE)-Z@W<=eN+q}fgVLlr9?U%zvkYefY#2p0|Z z4p9NuqJ<0LAvY|A%dgxEQL*f}70|L41E8^kK1Z^4ErbS@^2bZ_(i+{Z@f{`oVtiEI zvj`j94zz}-2Z1>>G;f1S)~x-ql&6HL$(;!{q_LlI8-r?6o6( z3EJ1xt;aE8?yAX@MCs>65*V*rpWm=<9nfZmXonec1ff{{5-RYyX^2b{^f<{QyjOcEC*Hz?=*WS7VQHCQ1>>*}s@pMj;*2kG9v>MzE@1og z$ng6ge8`*r`n?CdF5md(w?F>IH}BoMF9wpIT-%CSLdfAdob*2k4}rOvfoius#zn&H z1kv%paF4hM)^)dIP@R7UHRYGKq|~Z#Lz2x|bQav_XQ*(OKz9tp4uu2!milXx8PFGa zkHaT63cN_z5mvBw@7~jP4?A|$Q{Z!NSC>gsLxSLTL3ePtyeJBnnghg7JvFWAPv``1 zc|0V@39CsCP<5AguIbc7q;Q=9RcMAYl=X$jcs#t-SfL$JcO6{%H2bLWla0ic!#@5T|P2m!KcI5Hoq_xNLvJzmj?Eufvs0A5v+8n!DO=(S41 zc6f_619JuPx5wqq;l`n`#Rp|JF&Rby;2minI(GQ&`>*r2i-f#7I|JB9P8<^vq$qFg zK{P_)j{c;5?YZ%;mwL*;6)&@=$02Wy%-2aaX5SGYppTqTCCVj_@*KUd_b%t^Gjx^? zB3-U)G1Og*y;Z^W=@T9di>IF99vK-L;?Ctc=jw+!V4QB!J8c3$APN1|BNEH&`a^hk z9&FF@_AFv*welx?fZqJuJToRhIn&T=z`jF#NilYWJU$saG_H&X-bGIM_+&O`TY#;b zwgubygSUyf+5oQrAZ#ZF{4naQ<_I#zOfw||TiX-u9SJ%9;78}fbs-aX+lix({lOxavFd))Ex12mAe zcvrUt;CmrCQUKn~mg4FyRHnsA`daMTEZU=PYq+(2mW1*GI_r^}#|(HjVAsn!NIy0t z*I$s94r*u3%XS+R>78r`w0tR`)(bktEpCUm&F(~+>Z4t)DDvYZdFIy!jODlCmRC4@ zmRTEWSlK)aPD{oeFoZ^EOc9T^JrI@cSGLvDGy){Ynly#PShS>kg~WC=?@$dZ=$%_? z7GUnHOd8f*IhK@C9E+9MuNBLd=xGjiOvx0gz{sn!=YQwNzvY8N)6-KA-gwg_DJP6c zQz4Fg8YIYoNt41;eI&JsgUp*I^aV0?fMg&a?{{aoI_P%J3V?lh&PyY4F}I`poD>q) zbmS&WcY}lA9UdAEctk^cSDb|Q*F&Al2R56J0uH0i3_83&DMshykd+Yt5IqL$_&INh zh;gBYuw4`iy6y@N@0?$k84b91Z1)0~vjBAh6=!z7G`H0ct~-I3V8E(S4<(HdSeJRO zYDgaE+)qr8%nXMTnq5#8nW3K^3?0q47XpJ4^oD`%w|9@ZwA|if8;yJ#)im{07wJsbuXltYj(Sb~S&5;a#S1@$Z6!b*1;Ns%tY6M#%d ztUom&`;e$($T0TdpE4+)^$7?+ouzh+h^C;uNV}AAficd;^%dUV=k50Q_xcLU8?WEI zJTr~GzjgnPHLAk{M-KM&sue{B6kM@w`nb8IRCwMKUnT!)o5!JK&n$+qZI;z=>pKik1Ew?JmA_>6a@o-lD4gec2eH`PKb8cHhB2IFzFS4d>QCsZ?-58J(zTETXp4MKq`$klfN@b!i^ ztWqvI;`VFnn;mkxZe8k@4V$-Z5;}|R?C99mwRO{W&YA8VU9vs?6;_4|cbT1beEb5M zq2&?)Us8MgV(cPkj1EN3h-@T0kRQTx@B0Z@ap*BIRu7n<#@=68@jQH{oB!s&`ETEN za1VneuBaE8iD6i{Krp0`g0mZgC?EPUMv1Pr#mI+?ZL1<vI4S(3jcCm?Z zSV7T9cOhUR5Dp*McWz?*!QDHyt~KXqQj$OX<%0)p{Gb{zI3is$iN(*gsA)by9bx0b zUqCu+Z}1Mrn~W2?rZ#cLi~WicXTv7ec$|@Z6udJ*FUg zta*BjLODP{Um>eiMO%)%ntys<9y?bA#t-bvnxOsrtj6N22lc`ETFS&-!vkXuR2?LP z1;|`wrf}ft+(iZ@68hq*4(ee$wN?4NQ% z7;wqstrQjZZeh_{v;T>)^t-81CAZR&b8~2a%CzZLM}pfORil{(1*(a+vxOS#WS9h3 zC6GvZK?)&hazaR&7sAX`94r;exN`Y&G;e3;&Y5$UMn@<414K|{*YxrR(<`NeL}JX# z0fb4an0A;GFG2142=UZk-B~VGLfTC(s6cq2`+5%@*n8!|*}FGiv-RS=Ti5U1zJ6|U)ZV{$ zZ@gw7WHSp8+qfG}&LLzK?kzmX7(|139AMWzaNBcv+JOZfhoWo&8|;coQcTJobj@q( zqqPuS7+80AH;RE@?CZ-eM!XG3Bf1FZ894ix*`kUjW{kFRgTVe>JGKhiq0XS5ZbCdj z1m2k#pdslU8VwCRD^W}Z<|-*Oc$ZCs7rciggLHlp{`Q9CdJvwAQI~u;RoIM=;)#0) z`_iU$95qJ8d|a7PH5SC%J1~eX+jn(z*_Vbjw}=UFiUXfW$gYgPkmWM!#X#pZ>FdZg$M;qA|#ck)U_+3X843TDah|&wjwu z$nOD#XppCeQRC`D_;{}JZL&R>ImvfP;(j5{n>KBNBJ0+th46W3BBAbvQIr!Bw#FoK zgiZIQRcppvCzjl1k{S|fWYk?>#3y45ea*CL<xj+h!wE=Nd`AQ#PekSJTU|T|MGs2BJ{aHK3*NBoWI-_2TqLT zxVS+&FFgP^J1nj*=UJ@!iYZQuMqO_X8E6^*QCFu@_&v&kRQ!2|F^yqgTm*m=a1m5i zSTjQ7&~gvLD||*O1C31_;SjHKg)>3bAdwlM zfwN&;HgB-!0Pi1k>aS&GW;-UvM@cNN1!ZZltQ>5IhQ?Ryv(Ai>oj?TVl!u(pL~xD) zxF^cP1T;u@S4+wv{GLnZ7gY44Vwnte!=fo#(>1D_7?s+`2?vJl+Ct&5UH_R&^;y~X z-n@6~>ZPHhuikp?@`vxfb@R1LCkKwadH0qb{5{KzDxGarHS~tzo~tQ5&QS%tlx!_L z5~_O&N02wtEcR!>wB@00U`nqsGGqzE!cDer-AZ!FFxsiBX++J@kDv`?lB0w0_=o`i zKYIkd*^VbF2nU#O$aBWV=&X#x$M9SRCv;G9;-UJenr%dB4lbP;7`4;Q1C!r-@W-vQypLV|R= z%;1+`p9>9xQvU@tzxfbUwWmbbG$v7R4XX~Cv|2S#k4R81GN!ecJoB{S1N_9Io1t;8 z1jVYSa&#ra?1UX>&&gZ}ugy z_9_vWN~V=ej1vvz6;O27^9r?;l^jC#0`@FqbE0=*Q!L`GfgZvsX-QDOd1Dq!`spwJ z{LlaPZ~ylG?VGp+@wOZJtsB>y`vua*{mj&F-o(V1bBwEDt0|exggSK{dIhKh!&~7$ zAA5W<@uDYaT>SyNB6`Z-PAS~$lFWu$g@Gw#n^=^h<@5#Lmb|qqj-CkiJjyN3i%uuD zykV(7&2Mfle>kJ#MumF_q0-&3j%#aj+&XD=69(h)Pd z$qJa9HT5ax1gYS?fuf2A#Trv{DX_p9^!_m$av z3a>j@jz~wR8iC1}j!MEG0!Dg?4Sq;^jf|+jDBLiR7oIagVlOSbbe=mqO@6R_B{XaY z&J7-+4a{^qROEzVx;U$yLr#T|_6DRfw;LfjEOqXul6Fuw7o!OOU4afP0xAV#qwKXo zBKsza3;PA>lKqbO5)bt6w$;Gb-+S9;1Xf+%zIMg=yKmfUOx`Y$Tu;hD-4!_JPA`WK z^C3Oq6R5Sw)SJ_H7DTlr2;b~c`xXy{Vgxd#vpsvh5Cq=M2W9Muav+&c=Nl7QqhXbV z)ftvdoEjPw%}eI-RV>2V41!BZ)gjwuY}o`5#7H1uz1>~>@G+WC&I2#5Fa*#BAZTz& zgJ>w8TPO4tbnp?WUa7Oy{U%;R-GM5cN7rrh+u%LHD)|JSsFi$51MKs+cXxK~M5by3 z7wnz$uh=^~97heO4eWyLh`Om&F;qCe!5t4gd@Fb%IdLPyC}Ptb@*rIv?iz^N;v~6f zRLME%nx35a-uJ#w@qsguG-Bm(*B$ClS!m$pOS4lGXkI1jN+pPpv0RrR=@d%uy>J_aKyu(l=OdhL#8Ip5V6ssOtPAq{WNnT?c*!Fe z6wZW3+UKy{C#B#<1#eK9`>)^ntH1gm|NZ~+zY0Z=-%@w`tbiWSin2M zCfVBTQ);%NjA8O7-w}+Z*Sl3e1k(DNnGv-ykEh%0==5@orB_Bu|I#DFy&(j z<5hM@xWZj;U=G{id4u!<$t?e=8{@!{rrWPW74%c#dig(nYu-ZZcFUUB$%hBKhqy*^8 z86{i8cKGZk!wT65SUNY~3CfptAv0WUM={I-ExzshzvvWrdAEx+l}of*<@gGJl*w1>>Z)5 zi|hrBqkwo+W>kF=x~5Q}y8R^kdv|7g*i%D)|63mq9yw(EFW}JEI^KD3_wxDai)ZbL zbn4#CYg=u=SPpzg6;lT=-n{PZPp=8mJfMf%6r$ zl3ijfP3`I4*}0u&+QZ6jV?6Ur@YYT1HbZrvOu^orTjj=dl;g$rvkT(VsdZ0if1DC= zum{*BCo)vB#)n*i&=7kTp)G;~{y@x25L5$6&QFkwJP>tlY8<5UKnZT#xPI-@#aU|$ zFi)_FZ7KoKX$q{2H|D^;eFMji>4G+H@{>UoHyDRZbGg@=RwENAwHh=){AM6DoivB= z#Pai~Mev^WzvXZDUMkcC*aIh1q7VZHNP@=vCu-}2 zAVuSeklg}} z>#3n%B~z0}eab4^U+#$<`*O`Hj=0XFM@?KDGJP;$&6!%4u1RVAKZHF((s9+b|DxUJa%Df9PBq^!F<%PWg!|5INF~ctqz`* zkH!kuTm3?8O08r;-9^+v0PQLEjZ@tcX2LA+gG0txTqAQ^J^IKa5Z;Oj_(R|=xUfo2 z#J%Li#l3xf)B%|>X?Wz7m%RlGW#-6WIuQhDM>RWDw+;Oh_8C&G3%0*m(0a@vUNvrDI41(w-8(yB%%K;|Kv3<6?I zqFE;g+XEZ*X^+Z4@QHk|U0XG?=!8F{wO%_1hGFc5?aZawB4U=|=dz`U6e3~Bp;HVe zk!>?gE#%Vcs6V`QbeE1(jtn4Ow@L^+9_220j($LI8iBu&UMC8aU()YhUnj~23KV6S z4BJs|w`%SFo*rgu(SqzMAR8fJ^*}v3v0>dhuhvoohG^DKXe!*ex+8%>7?jKuf<(Ay zN)b?8xj6f)U;XjLnR8wa+VdYmNl*!aU?dO@w)gb7s6hdz6MVjnPo2Y5$A;C=JG{NW zA4fM^b8F zEoqTo36^$tcXfC#7#m8z*^Er~CBUXmo;blXGkboVjk|?N zqw#J8$Q}yqCG)D<$|ctkb)XEEwIn(8XF$4+YQp@enj2xY>uToQye%5fK$P`KNKZmX zD(JCseuER4iEi_;D6QNzQ8rd4?iXgXzA6IQl2AO7947GTsvE*@zI~ghFxh zWFWB6?$>0GnE92^5=ci+k(vp3>dC?*mm$ksGH-F#(?<*C5|ALHQA0LvX)HeI`P;gi4r?ekM(ob5A{qv9c_Mu+d;zP4?{ zS_1@?5u8s`ye3F5_MVkoHhvMc2-~F=67SEtk~oK0;q2b}!qn81&F*M9US)18<(5C-g$6Eu6fu-UcRB;V#RCD1Kat*1wP z`--I&!}?-oW>HOXn}pv|=Vn)%zr7=0?&6}^&PDI-;)hvbD$uvNvgnlqfiNtH6PrbD zKBB-o&mKGn?9L^wcw)mQ5+T5@L_0-n+q&7zAL~X3=nR30Kg6!2>({;U#vA9(o_*uN z1B#(N;Svji70<8W78>WVeD%PaRBJteZygi!%F{0T(GD&g?a;|}o*D2?O(+Xq8Ud~$ zkE6EI&aOCWL$cbi9h@$=twfE{NW7fJP@tH2o7B+G^8a0IXRv^Ld0DWeVL`fz5n2S^ksE^Au93Xqo#qi_U-rHd1v(Wh_$XZR7cv+PEA^iil0+J8`f~P^TYV? z6C_XLWQisBJ6AxK;b6$IC5G^PDe<&tXGrI!a)QrmR%eWG_!X4fpYppMu&b+VtWd+@ zuG$<@IZAU;Jz+Hq0ijt{7u^ft6`~J3K?Mvb3?c+-5+T^`UIE`byG$sg5XdZfx@8i1 zu4xDx-56rzI}};(gPZ_2kVSLM%<^@iC`1~%VjTnt>=>|kU#fw~&;pAeHM`KV0o(j; zT#vL+5Sb|jV&A-o?lPvJm41>G2#XL)#g;WGic${t2KA1r(UJ^KU^{jV+x_Ik6@GGP ztPt~$rf8cRzdVOo>b1A8*Bm9!24yka@Qzk3y>tKW>^X2gc;?gz5%1VLg#Y%(AF#^G z+LHq{blu zJCK3uS_$kx13x)xUKMcSE;O%kbw}>A{iu|vwC#39?qX#u$ChBbuP#BL>ew5qAN5VgE6I8VeXB0Pu$7xH^oQqwD20Dl!07 zEDn7R?V%ckobcl(6co8KZiPz*gBk&>QDvmvx=8;nUz{a@A^bH1sBr*SsLqD*bKN(sb(cJ821H@aFkNG)ga{5)_X=9N6xdn8hC`p-VH@oEVH|C2cqDojHG?)SP zY8f|aQnR97BzL(Z3*46A?X5s9@1nVqfa;267(4r=&Px_AuI`&p*>x60pZB#OJcXA> z$sDB6-cQbff2)r_!9FcBD)-icl!y=?xB(#Bs%>SCZL0;jsa`FE(!2~rWAbWc;GoXA zl7+8<^p^aoG87Ydk~g!Yvoq)Z-M|0qzy3e}!|(sW&j2#ShP18Se5I3##Gs+HBiCZ@ zF4Enp+cYo6P6hI7w*Sf|y#gj1r1Qg|G!lytqfo?NwkmL|NpK(!%)u|pU7?j&eXNEf z@FoBXbZ!Q=Cn4J!ECJqBOtn4T$;PZLN{pfe*yZWl-D^i05D2NvH!9oY@2R07q@5;S zn3=hA`xfsyHU-kNS(u$_4!vT20SRMGlw%nkEH(WK&kITuDg$-dtpNLf3176qW4@#6 z7R}Cd`n3hIK;}l~2{%9{d3u(QnvD0^M zTx*Lm>>g%I89}@QhdGxHiF>Zj4@IJYCnQ%m^TG3zhnDBxMIIgqFHhC# zDPs|1VF1pL=V;W7UcwNZgh)41q@C#?YFPp(t4{_ za;$j-#D*2sJ`21~W8-O-#yLL^kI^{Qq;{B03{q>>Vx_qdS!d^VIHDgH@fVEibUFpEMAX3gMk++Y-~Whiwf0W(O<3?_lMqwLKa zH&FNQeCInD5w`}R3O#9FDYGqWUc7bl=KJq|fMA3_*~DzsN1hxRa&%1t-UiM=b*{yJBjaE@faL{ZGy}hOZt3lX8@PSOs{8i`?FB>H zzT1aN%QFwICEmyuRO2E@FBqRg_>>7pZ2M;E%`Vx3?T}f?j$qcW4bpX@?$);I0O2LK zFfC4OCpJDlrl?(Z*Id62wqx>myAP*gRz57k10$f_(T2t6&rSnvw!>D&f+4w5p`4b% zjlCXZhN!R<{6c=`1W5%Nii#%&o?x;?ELZXy{5@ZPmNH-8v zF)F5~06qn=9Lw!e1mLb1J=EJC40_VEFja$&r(jr%(F2y=X?y z^>iTVDZ)b$KJdu8d64?3iN^_;jH<_>6eCENX${*2)d{8XI38=5NwQ%G*caU)x5bK3 zpxsCmO{>~7g9?ydMqki7((aQhCJ1P{?qSe1wT|!^_jnA;ULpctZSup02Z&#ArR)UR<4u)nG?6YD3trW3_YaCi)?G zpdw6En;1k-YZU{Hzv77S|ez)69*joo?%NTiOIOB?*@{@wMkF7K^QXy)rAQhC+-U??R55pL-$v1u&wJlfAKG)# zU0y`kNCNe=y%&J-( z1joU?_B8R+q?*D?=r<5{!a>5=nDz5#E*m?q3vO$6e`t16?K;CDSdqI1N`rc3x{Kt? z=~r;TJ3HIDCl^Qpi=#jt!zTmY;`rXaBz;thn3m$MzT0xsvU-E;tljEccwR*I=+SsAAO+5=6Ss45c( z*oOv=UYt409+?HUtIX-4luftfVGX(IbdnJQt{&r}J zHPZ#5O^5dH6KCr)Tl!tI=n(|f+!o!}fTWkE(^<4%E2$XDr_s0$G&i*^kjbJRkirVM zOExExyEHQL?7J#D0@%V{G>`8ck^?>P&OgItDpUqOTQn-9f`?ozjSwmE!33T{ntbf; z?Ck0678RfA)J$h_GukrP5?4Nogw3;HdR8@-EcS^yezw}Ts(jZCIlUUv7(cLYHLi@i zBlcHVsb`nFvaK+po@AFJLKq+dbn*O*&-jdujZaNY`}i{XhoyWAOe7d5S6H4~)W(8K zU@xe{(gD#T!ny^g7?K-?Q&l)1vv^%OaZzYY&Q%P|MkWi-!`KVn8@5Ar>H{9-B+`-- zts4DZyG9r22v@jGw5>uMnPwdn!4|7yGMp|vpJ*TYsHf!dUa@pp9ASsd%)Kf>PMwa5 z_|x0zHErcyZNQ4DBrC5y@kv1ECltc7qPcb-5~7na4wXx3p3;EbNvpH^D<2jGi0VU) z8VmVp*iO>e3sEAL7<~4FAH8@FH z{xA@{_aOkpy7rBMnld8}61Zj&{Mx(A=bjU;$}Yfm{&_&I5HAJfh1-S3^Q)uEwUm`- z-i^W{g$>&&(l|js25f!AM80y)cr<4PVUQF;5|{utG8rs>UvCe5RV^>#bxeCXnVOg| zuX=Lu#OdKv1_Ev|c;OFp0uGhq+>E{?BG)Yt z*tp&&Fp&1~k&`2X1H3T@`+LVup13?SHFjzc;=nbV?uzzko*A|SAgcpprd%G>u-(+E zKUImnOQ>PRBs`P7O|qg;v(TgRd)T=>6fW;o!EE%}+qvTPk^JVFA%G@yR8q_>Y~Rzn zOFQdQU!fX2evAzGQ^)B??9Q`Vt7=%yF1e!310$^MszhSwuh@}VfJ2et1Dugm53jBn zRkmP-_TcLeq17YV766_zly-6S3h|-~o)Jie&zo$u*hhl%I6QX^7Y!$TcSjfhyaaq~ zZcwDr`{BK2PPzRP1F0t7S^|}+WCF!ap_=QAQV7BKCmj*?BetIWa~#88Dn``tbMNl1 zfg`WlA{?;W+3&&q`y@@&4WXx%D5VoXjg3<`u0QY&(>0)p57B>yihh*`)JH)!Zv=7v zbj}886Y{BUa8hGxs|M*R>?c=F00_KbP?^n; zvH~*n@9xozdO>@V3V3dWizgQti$2ZTYTXBgWOK2cgz<#y1=n3<4m#@lO73M8@O#bZ zE!-lT420RK6IXyaF6G2sWJBSuE6StEq5NgIp9@jnxZY5fbx@M&JH>@N6~jl=!Fzz+ z_Z$UN)HW%Iiilhxb>2=~D4?KpxCiP*&Vzf;KPS>g7?0-ypTC=s5DG3&ynntu5t<~r zERyDpC_755iC_^;X@~^5jgQPsobiDQk3fKp0z3k|LvnR{;_=5B zls0%#0if!YMLt+^F2AW~`r_?E*eV(UcvC&fu8?Nn)ZbeKE4=3d?$gJi3X$V*Zz@2L zUfH*IeDw76#27u%4tl|;jX3E|`c8kfm`-tB;fhic9d|J#p&GgpecW63_ARSO=QEIje6VH})B?ucg3m>Clh7Wmg$h)zp zTZHYly?y=GJ>ln`i!_SU(5I^8-7(B%iL{K@y4iP#C&&j60Oq_9`W>*x9c_OA*#4rA z^oin#0}nX?yubwLRn4El6b>DH`Qq%XN!6)|F-CzT>s0WHX0h4ptjH$x<+ms2fK-(n zxkC&Uskvbke8(ejTQCCrX@*wSk`3EE>tRw=&n4jj=lB~r+)NdT?OaHeG`oh?7ZlbN zSe^c@y#nMR-?YP@@-!mMR}OMd33@kHRT&-_qQY=YjGm^XuvdYun_Ka$hU$RKLgOqua>0fPUsg#pum{iiao+93I(tQBl zP@Pn`QKIjtHEd6Gm@QWL3~hK44T|I4pBOu@&i2~M#+nghfAvI8;G`p)4nrcn)P*QK zAK#!W8bQ>MDLcuU;|$7hSiHyeDbT0n@+`?H*d&f0WKHU*d{GQub+d)m>(Sm z!r9_%^(qEStl<%EZXLg~3qRkoeyyz_?_9q!dh$58%+_^l7!=_sk3RAU$EF!BV+Z8i ziFg>wsSXL70RqoH!zpI}5EWwrfUQ5hQ7zS+8>)Db2JBAUD38P>xrnvaWZZhRqz_u| z-Yw>ezkPa&*%@RYw27lYQ`7Xjdv?-I^5e*y>ybhm!@x{r=xDv!rc@w6Q*AE`X(hMN zaqZbqi?TC7h$RfijR3pk1F0PBLSkUMDY?!a#_70}whUt-##Zv%ncv3OtR!IfnFAW3 zqb*$JeuwZ}_uTj%M^s`)Yi+xSvfv~kP+0J;-SnniZbBV1j1}t=4o?(GvU4J2^^V29 z;z@O+QF(5SLA2F8hPLhM6zK z3GQtLV$rUf!!^UJ92{GxxDvgnkeCMSfA`Vq;7@9<7_aaAYhMk)C}4lWv($=UGXb%2 zYqCv5qwX=X0_~Zw>Us}SIPmu;IdQw@GG@V1M^6u%M!bIY>fPJ7-+uGWk3akfw*P~l z{@$Pd*`NRH4}Sg+e)_xSHGnEFH#Ac|>I-{eEK!B(!^6YZuHQIz>=>ZtoI$fGAI{i9 zOykLMubU4aZcLsD=q<-PFN|}foY<2k9Rc3OuQCTt7>FP|0-T_~I8rcc>lzNd^0JLU zEm(m4EOl7@ww!=X`JpS$0I%`_`((O3L&_kIS>O=QE2sb9w}(9tYrB z!|Eg$X#BuSY|aaYb9@00o1~%cu*XkkU3soxHF(#C>gK3n!KN-S8Vs<<%4CHsubRbxca9)*I0d)ZHn6o(oFXW1@N8Mq&Vu=j}@h4!UBmkMt8jnnjo$(-thB?q0aDXDuhe6@lh@3(Y08)TGw^t#jjYQe9uD6jJU_ zz{|?mCfyUCc>Fi~sbsVnunUag+A6$_|3rfM?2hL)V4;#>@&H1hwp9bBr}y^HOpFP4 zKRbT<_~C;?M-Fvu^YOT-WTviOe389_;g5XjOG-11#g5o0viaE6zj@C2h*%upFTrhw zpoPb40e9t?a80uVAzf6Xwn*Y?Am8%5I zVC?cE>bx|I7aBJ$g7DD3j}~@y^R%nL@mCK`P=gc4`9QgD5-mxW`?$IGb{k)_0v(-8 z7H5pWKLBkw?pjxB@Itvb`~`s{nNZz%%x<8Z?^mb{saaA?awQUCIP19PMfmeP$rfG@ zxmDY6V>g#=_fFAkT-0C_OHl~HCj7>&ri%!qa|2lN4BpiT)-gBG+t5QhfZI40MDkY{ zHh8DhY#EFtA({mYlE-#*BB{SbCc$GG^tlzziM@ta|7hR(^(~KaiWBv8m+mW6FW-po zc@^NBh5)U41l5vO>Xv7d(_K12^vKDfK|UG42s?o{U>6@lW(Nia#>dD1t6%)l&6_u2 zvILGGGi(ivpMxd=Qx5s;?K%3;#{Cma`S ztAtv}sVlt%ne<3I)d<2d5I{vdi!>@3wi9D>xC#gCOoIgK(Q+j#A%tz!O4$T5QM#ey z$9w`?-HiDKU=aKGZ_FRn8ZJsfn_O(_;OP*X?a)?X^+=%5h0mSs86Frl3kF#7On(pM z8gMVzrz)AdDV-rUIpKi}cy6Pv2r4KBC}^7#5J!wFS-R5vGjT}Lbb<=> z1!fbt!w&TKnM-|b_WXtE$>9^nUfJ7sps#0qWa!wTg8&LYAy?cHy}NdiRciZKcIdK$ zO+qeVdyA+?<6H8Y-om5(DVw7a2b@nZTdkti2sF|AGB*;hPH4Yq{PL~UTu-m@qfVb3 zJ8hqNcL~>r|C}=>^+!$(a{N(kD52jOaY9u9zNY4qG6e%iu19XTD4G}gB@0zU6t_jV}}p2Q0)j;tGUGzD4}FKK?st#e2@&& zv;#M!yTZ+CV=HY!J6m zgU^2QqaXg_=fC*zkAK^25< zQvkWJ9q#ISchPQLso7yTZk!=NS%(7o^~e$n=i}=K7c2q7Ee^!R$Lv`Idf|8%Ipk(yUih` zy}i2*?%6F8GPA2gC)}drjQjYoGY3~|vb^sTE$Y$+-HY=LSugJRki#<>ApP;jzOruh zO7o6hTnnhP>TxUCZH8KTSyn(p;p8HCGL^Dwl?s~uXN2>afXw;!YiF-1RJ8mXYYD^9 ziDNGx*lWxdzE9yV0CQ~=45E#*!k(Hk)c7Rq(!iEzl)FzW49@);jTp}JgD71R(R0V zDr{G50^NOyyBsCz;Gw~ynvd4A;ENvysyjk;5RGdh>LKATuKIue=5OA6_iex^V1^XB zPHmM2b%m!+Z;hpqwB6@O{?ASml_U)K55~eZV^7&QwFrE znqpC6IFQcWl$pvB#kkPnaKrX?(vE;#@-8~jiHnp@owd34cOB{yb0=(&=Q@Gy%{p+0 zH2|k{!FFS-qSkuHC@dVi5E!GNHMosBnX^Jdxfob*1W)V%U{^OP<0(Y3v|y<*lxhHW zX5D)!T))c($y=FfBB^up8#vKHa07sZdHQg3#|}OXvghl;T+r{o``#zt{p2UV^^@QI z=}&+84}bab*S|h|>eNJiPP9RdmK->m4;URje0X|#`oMt$=WPUW<0goO3}#sS^Nf9@h7%fxT^)z`HzxWUy$lPw@QUfdd}u*S!^e<0o9baqQ#A zj$N9aMcUa4lj*$uO6$+JO3kziNa=v>jJP8l zO1~OPQ&?T84Iwh-X1?d-t*|iX|jGHct8l9oxcb`_>Z!M=6~s zn)K-lvNm(o1TL!AJ5GUiwyZ*C+{hcR4C<__37e-bc>Bv1|G5U7YM*O>ZQn>m}P zn3v(_qEOai-K5LiP9ruA!WK5+7Q zzL9$M!i??Q72+c(#*hMRIA?70Yc%aDd7gnMO{TSWDVC!F#|;X_^~6pP?hA= z8Y1fB*;u`bY338O{pf)`eNdXzP+OouV4#Yr6wm~q3gqpWG&j{k!u7MlxnZ5KAn>rs z9&Txn0T3$CksmS}*=(=w2pQixZvaDWG% zyZ&VZ+r!oh>@#Nu)>LN0I#E@tYn@bl-C$5(FI$p6B^4w=?+4p!7S%*5s>2k?CX8P+ zHH9Kc0DseZxV?t78xd5Be~C=G*IiTznIXoKb}}KvfkVaGNpDX#ebGb`dW^hLCd$Pi z(lU*vp{N5Sr0l#~q*TSUj~W&}$3N3hT~p^uNh}N1e)UEq1Y=N$2SHA3xn_%u6b$V0 zrf$dZC3lf?w?JGSme0DbHYVd54Yl(|I<&P?EFc9b((c7ssQ%sDU-=lQ@+ruI+C9wC zIbCC_BA@oT$gGM^gcsO>Ghj@s&X<*Olin`7^4Zg;X;oxCgvr~dg9Ami8^ zKF0?JMutyuTMEBnL@ZKMF(+bL)QVWzk(YLOw0at#X*ZDGZ3~5LCcIN2c)t9YzcP7d zV0(9Gr*C1yc1}p}j?sa4Ag`NF96Q2lfLzj&Z7@||w0v#+1-MCC!*Ew%i(vqGfvcq2 z7#SOZ%#;^g16Z~4rz3vetb-nrnaQZS>4a?z01!s)T<48cIB?KMigm=6l?{T7l+Atf zG!YM-2-V>O3o4rjxuOu+l;|8aQcniL95K@Fy62K}z6+!mZ;X#Ao?!wLr|7FMA5iCD zyI`=wcGG0diRvyRR^DtlLzsa%!Vh3EG{Z%|(x65;3h*;tu7NP;^NOJH=h2ewoFg7H z2h61o1+RmIduu18WMXv0+Ovau z`^w$@9AFnkV+&5y-304_{@zy)?mN7HF9hZ}w@o^D*D2Hoc=0U?P2LR#Rvn{X)V?T6b3#dKmqgqJ641F1F)` z4b9Y_>DTW>>(q$>%Eh6|uxeiF%#Jyd0Z1Vm-vWWe3dlJ*QD;{I?6t+KsT0~AY|jKA zpcVuP9us|mx0_(!zQy+iGKEUW5A5-|vHdUa+b>RL`4atZhBV)4!ZfUw1?)cgcj(|j zz>c>M4-E~AlNcC~`1xLX(cm%P^i((C17|{Ci`F)riAUHX-_NN#86Z^HyY`%(9QzOd z=|2%!SWPndZ1~>6I|Qz6D%&2#F$D4>th(KVDH>zU$|nN=_w3m{Jw4F|I1z8_PX)v* zTZWwq+5~`X9BDVo$&jbU+O%6pCp6YO`WGrj{^yo2#W_?EDS4Nc{!{&RwqGPcqM)d&GzASYRPG(I*qGjrZYv1iVo zhua(};2I>O$Qkx-*^IQj_wKv6v50j)!RNS#ckSXTmd{ojXV0F!e(jnF9QOcQ`>C6p zotm2BLNQlsiq;+gZbaHy2OdjzNfk2Ll>nGx=Frj_G|(+l-CMaxtq@wyXlm7{yMc*k z`x9#pGcQj&ocCznMLRp0U?te%g|K~28w4B3H<}HBG5J%2s2}9WRs)eB`@MV~!bDaf z43s1)aGt;s=1A1i3_oQ@C#a-ZVNo5Y-BEKX6Ub0@NaeT4e+99l)x;Q< z&~dQuL5|9EB4v+>+RPKyklHwtYdMv5m)ywC_(fF-&$rMiz`koI(thIALqvgRW@pE?HdxRIk7wUS-{rL5lpxj3=$1$< zEP7^Y92lOG*QJ=s%{GaNSl)S+}=mwF3qmgS_hg7CUf!|az* zGk0|k0mvJykY6=XcejHA4w()cZ)_GWw9X_cIT!9O7}AHl>| z*nEQ`P)4`7a_Ynh*giHg;^;1~c=YhA+c$4Xqt$nOG>b<=c%rVywFxO=^5C+OJ4b|37XU>fL@Bi^X zUc7i7=4&P32||ISz5|<5wNGN*H7&0@q=gB7)hy&tJtacR{jRMV!Z!jhLwI54ju*PY_Wh|~lhFtJXJ zb#6Wxo0%Uw^6J>>(>JeQzjforhaY_Kzx`kTw=a_OZ19;358FfQ1Ym^Ke3bYzYHhGM zHa7Ogn{WN{PyXV@t=kaTMeO}xxx_iKw+Tw!vf0LNVpg4D8C)xS`?JR{Z0GqNA0HbU z8aj9G92U)c0#Q+MW&*Y=2lAghdD5ss$r5i2c!$a0KG@#X3IDlAK=IL6nWlpo2xNjR z`%eOPQo%XI;bBDJx=C2&^X_ohz-NA#z5RP&dqxvAgTs1SSE3zIT%4b4-82Ms(D-p{ zXREYrYliz?~AnC>PH~O9Yvmcb53D9dMRy@HU0e1B0x#fh>bCG!hQ-T^-ryo4ppKhTb zO|4W(K9Lx}9Hv1b0_h@$u>9u!h!e#Gj6B;UTn6|ofhn(%*KjhELpBoGwwZ%c`GAqL!gMMaZwL?D1+MVe zxZ+op;W+XX%^T7#daBz7>1M;T`OoOcN!ZSP(A%9UR|W+j^PgmT_J<5Yk3=MjV*y!T{KBtc>3e&2Ze(JgTh5c8E!;&@7*&}%Uj-Op zQQ}6tphjRaQvaG$PUeg@XrF#uLmJsoKP{`N2XvGBh}`H+vSbOc`j?O-){$uGkhHDo zzr+(}gIu5#p!TUy!R?u*%)GWgRlXgQ!Q^I9%38R@X)xz_HyPTw!wz-6|7-nJzir#m z_^q3K_Gk;Y2Y34Z{ykQ$o;Z4RdSYV8R`Yh@w!m}Krh|L-T)uGr+?1^vPL7U@5Fg94 zgrEZrEvBlvkL=AoI^$4MnZ0~TNRvHBu5w2pKRq#OX2Gj9U~kv)5Wv-54FJL}0!gU( z*fkCZI{9bdyfVl1*w~qGeCr#7L&s^cF%K}qmvkH@V)#@EqOy0e9rA{y%>B*=M{K6XWARdv^8$;)}N< zBbH-KPD~j396562{SQ9;-j9C!&fU8}*yg=x_UY57K`|eQt!+6^UIC0fJzO_9xO#PU z22Pd0H1ODuj*c=A{k5zKz2{~h9v+#ToC548%$AOhq4BaQ*3i(_;aTOkcdr>#8>bpd zKzOFvMOZEcy*oRYY+f3p4DRN>3N2<4teoxJ9S#rMnJCXPi11v7hJ$F#?CkIYL+Uq76;$q&mOy^en_Yt3MD zSI2gP!~$&&!8pd{(Z4_&swU;vaxO6An)lqM>iEu){KLv%*3xltkdPSU501ubyh zQ$PnDaf@+alR)MBi5`)ErIBd00?r^B3I%64RSKZ+_HrpK>8>5>NS8dp;Vi(!cCt8y zw**QnnVzZ)ki*dAq$7S+8Z3oE&b@Y15b&-JZgC%u#}d(k_FNd~Mz`>{fM^Y6KnlL8W=z;LgmiG9ZT4T`X`ekeee<;|_wL*r8y-4*V4ro= zhxYH~jOdYbSNHCn3DiDu^sv(A#l4?zBH&A?yEjG2B&#fhPYoPB42&Lq^bsQk3g*!a zQ$|giz&9E!Qw1M!XD{W@))Q>G}05m)^R6 z|LVny6QiS3R>v^Y(l42N%IqWC0Bst<%{PX zy(UyAs8(l$1oj58}^OFkKH5x68QOJ6hEv6W3azelm6$I6ExwT7NZMw3y z8aVMU|MkBW?hf~6FI+HX=_}a45C?`twko}H<+3C9%gIxx?%aED>&~6A(NVmb|NPqZ z>-#NL-LuD-v@iaX9##OhU%Ge^jqlmD6Xc#68iK2~$h&mu(yd#!mCqco9UyjmeEjCE z+asq>Pn|t`_1d)y7iN`q{P=Osd^BF1yr~n*S{sdLK|s1WTqW?;B6%*ZgD=WhqLz}yrnsOOdm zIggvy_#G=-rgwH$nBxD>)SW-+d0qE`cRb@nmS~b9DQ*BrfICQHUwYrLbOR0ahTivm z-&ZsmKx1D>Z~=E}F)f+06pbt?v8__d@g|QP*^ym#?6^i#NmZ(nRA#Cs^AF^w`J8(} zPEZeDzWuzfCdJMFv!1_4j$O5M)Bw)4@bQ` z|9lAe73EwK#{;@SJ;P>`j26DD`atG1mf5)=-LGzKj}3kGr=x9tN*y*rPwTp~tBM=}HPBsH{9EwYjiEgfJPbE+E9JYRCOSAm_N`K-{hMr%Zepz*Vonz_jOxVZ=}Bmuv23!RBAMn zG*J1F?g-oCj>*^fPJV~;YK^0%+vx~EC)n;uxR{(OlMy~1TgAonzmYYnU*HL0`6zo)Ec`_J7EQ@fPqTbSwTv5=XdUWc01G+3UQ=ml!a7Wm8t0c@kjb-j`Z-D z-ZRE4(P4Tz+L5}+u`z>H%&_DNO7;BNwU6F=e{E@LWN@&vt$k{I@=QacN~k$@ytuGX zhXre3S@%FDOf<9?21b!#jS7&Q4!u2|X*J493V-@ z5*gc5mKV)4@E_;Vm+^j}MDJT4olX)$rQ5{PGY2&;z%KG=+rKwbDO`kWd;GD-IAMFd zk-&;$@&>wDvQNbYJY)MT(cL-fj%|cV$IO$_zWi!`=Iz{pbF<|*QtkN3pLT-!?2eu5 zU>Auk4P0`sIK}2%BOvr~ECra>Vos#}e&(kYcs%ZjRtDRZi7Jkzw=sO`eH0FLG-}yl zzC`Fc*%Up>3t*Vl)TcXV`|J$DWiqtnzz#{*9jel0Jr+`RP~ ziN3tFln&-xxXKZ4ZeFIzxIO{Dsj&h6_xAP;3=Xz;bTl?Kb#`}mc6LdVlxYw-Eop45 z6dko}k7sLbZk9+X??t|ioya+yln04!gLE4S$ft85KiA{#u-&uSFNO~Ac^Od#hHaF+ zS#hYES4brT!MVNwVl|p1AGboOf3)W zzc(<=#R>H?YIKT?Tn2hD*%KNB20iL(YuE!VBCtJ}`D0Xz%te6@g#?+*Bs>mC8I16R zz`{LI?Achjt*4%X?Op*oY1a;eFrLSW6vAl7y5F9V)C2ru>7p10669+4s|*+tl36qr zAjwMeG03wA3;RzAFq(`nz%URpz%Zn2fb7a110K>U`9VI=`@&BHuaIi$eHz{I91qpk z*(Rte2eKIp2kB;YJAQ;V2Hx%QvcMc5gJOK?f&1?J;upR^UDx#R+S(IBBIOlj#gZaD zh6D5+JO58hX z>zCh9t3p!e34x1UwyUwv_+dwCd_Qr#MY*YOG-!>wJ-AD#y>P{oe%3Tlui zLg2Fp_nF{5R5&{wtfIXdw;u1G#-e&uO-Yo_^>zI7+=)do-*~y159@1BQkdtar@3i! zYpZM1Q`1O0sPu^{ldNHTM@Q$4+i%=?``wn-79u%p|I2^( zADdfRV%lnbr@}&@?Xdd#`iY4Nx{W;$7=^ae&{R}hvJLj`0M`_prO61Px(@0N;XA~4 zy1Hb`0B0T{4Ou-1&t=yyEiHLMKwVW)$w5(R#7p@Xy#t(FkHcrBu7z2`2=r-A8-t$2 zTQPs)yl24JVLQx+e6k{~xCG(LNb5#F#SD-#W1j@+!kuijtfYv31%62=Ni%uLk(n5? z1l6a6mA?woIRX%R+-N>jSI9t*X~}41VUSkxkQt&}O$W*Wd2it>t zMc8y3FCYmc^9_)GkCrEp51l#4Lk!vDVz^HH65u2U@i+w@B6%?6T(8Dm%v+;%^Fx?M zGFOc|+AJ&0*LQcu&lzflfL;3`V%%#iY2uCys=BvGySpI6>=-z^7v4_$@=|(0KJAeV zV-rf?(Ja#;2Xbm`xTB@%^oipX7z+H!V^uM1K20F$PcQ4?y^E#?;l*tgRP+lTe@u6P z`_`3mWl-w@%rFpYe}ean%u>no7oSnc2~@co^b({bm+^?k?sb&5TksB;KWz6FK6B)n zIOC2AhtC}!8y*=REJ%~NDL3V;E_|W~;4A!i>Tzq)E(k;TK;QL}RFh(Nq|JUW1psvh z)xS`rI4Sln9UTvp;+U6Am1+KxSn=-m_d2zL`yYIOj&+dNt)ymQ`imr!Oac-?1eI|oZg1ckjLhwg@tI(rFNTIHX;$0e12^w)1PcFHV>AC}s+*$QSCHZ_-(i2LGb5nO^AW zV7AO(G9FPp(cNb~mDg7zFwnD6v(ZR+?$?0#H2XBC5XkBLMA{*CM)mxugjJkcV+;z} ztA)2s8Tj@%Ci8O#WOG&Q3@L98$ooIPi2Y89Khu;o8mZ3tJj4=1IBeR?(64$?!Qi->JJp8dX%@{mal&|A9*~k5UczAyJ@FDTv(0L;GOPen&{%pQVIhGVf zq@ASWg8npY*6cKNnDWw61DXV7odrA?352(CvJe>XR+)dh`WR(~&s8H)O=;qEc&-MS zx^gDFF>>cPo>@8)XwzGQwybON5Vv7)KjMJpL9yhL0a-34aY&=~{81xGgwJos zlSclh9>)vM>#gKp_YE9{RU!F7o!85VBXKBbuABX@1@QH4b z!YA4&K$A z!apZf%-A3Ex9?0HpvOH31Q18#QbC_%Ah!!@G9Vpq$1-d=dBy=m7|nqhsQTOq(lmUx zsVsZ)r|NSNZ>NNVmZaGOpfrN5sBI2Yr~b?}8)qe=t}bl(f;GwRr)OsW z{1?AmKYy{lv9Ys5M7?csd9|m%A0Weax(5wJaHGFptfnXAm+tP}dxX4uq*kgCWWK7Z zN)`=Z_osj|s=69y2dGDgFz#;ns_z`c$jFEe1p=>M;0PYakUQdx zKOM;z0C`;uK&{tCU3V_$w-_+Dw&<0k{)Ed zDqfAcE31UVk?*Qg$oAlv?`qj6uBGsU3~bv9x64Y3U^wOvqH!~AlTl#{vh88AD#pbC zwaXIrc>&bgL@{`~@0>4UpWQ+BAkijZ;KBVa=(0qi)CGuMtv&`(7i`iBq?CY;7*CQC zUC7kg*m6cnJRT;Wmds#>h+p*HgLww`lQYlEh)Yh%qvx`qN@;Pm1jR9{49kbI9@}9$ zl70m~?3NJ{MLnKhy`ZRv5>_c{-=E%H4}_H}t1$9(N30E_K+*sL42%ZyndJU?VlE2a3l18h zFx1ygjB~>@&cg!l2FK9eOa|M}Iw2;}EDVmJO)=m`#h;u=tRPPFs zgH2T*QB-q;CSt}Ilp$oumFw0TK6mrn4un4y^D_p4s&l$bU^|dE3Ry=gVl~gRA}a+P zv!Em$a-g@@v}#Nhw)c1U_;aAAM~bpmGch*N+uc7gKE1xSxxBQozIJhHd>WxPHBI4R zs|?)B_42d|jSWOayb>W)gj}7{$r0}~;Aju^Qs2aUgK*m(KdDTriweCbJ_N_Om+9wf zuw4tXu@HU1!Zf{}LI{~6M2V+mr~v`240P!4!vRoZsLPqAMpOQR?f~#;iQ8O%uc>%q zbcw#_cI_1~vSGlh3>Bbaj3Z+@oTQ?sQq3ssFh9ZJ@S$2wQqCPlgi(ok3qj_gdz{2s zQ7JKZO-zESxp@o^fcvRg#?RMiu#``qpd-Vwk-2_zk zMy}?XJe||MOTIWCoJ9_-PSfY zH!tr+`ead2F%=#7TLBNq!*i70pVW9@>i{Ibv#V?U+=aoRVWNx!{7U4JFax(Cxj#EQ zJG#5OFn@QU!=UsMcwjr3#Q_8y&u@SBFES)6D=Wx2U|hJCuYo+=mfLYsjx?i!nSPOW zh^kw|7)b1F1rt*;^l)f~v{O+CGG0mJ)7yi?wyj&9V2vS~sEo*O4^6nurxO$)Xn!%nR^e$-BoL!UP@486#H9SSJ~ zt^lQ(CSwaxSNDJGlf-Bn{TWI?Bk1W%kPwNNCL4Tu8*>65I61pz;q(fD^#my##KXQQ z2kr#9V%}Oos5fcZ4iXB4;fWmc(1Q=a_H28&E-&VlQE9fJ-AztTN~2O=N;NdngzXuT z+>`|}JcY(?F(_=6){)UqBTC#pMzVWOzzaY;JSbrEdi^QdBtsxphor!p6x}qruu*i9 zqF!s^uu~_J6mtZan-fxECt$BCEjm+I+tuEzpyKsuDQQXstyMVyRku^ED!05C^D&E+ z^bGy|5NDt<-hST~t;DxgMZ^d(IS&RMNQQB)i4BPbI~4!pBq{G`Gi!vAr-0W(rWZ{<)sCTOgB?f3l*JEWAjER0hgp*sNeLOk>6_reaXUO-k1YAT$Sc{-03i* zc;FkvL)y_iv~FTzvZby4;V*v~_=~Z4dVUySCUjLeTcIF!p*^M|H7$}H02UX{k!=HQ z)&+PSX|w;)G%GI)k@Vs^jtR|tThJObAl$)cz^+GWquRxmMr!zUx}7+T�pyR3X)> z-29puhp}xfNMX8Tu!R`P%8%>&+@tP{U4eMhI5(+GaNBd*6dK!zMv*>U$L3G_V@qlF z$rxgovs9=ms(Vef5el;!z*;$Y%(5cx%QBD(Ko|&1Eqh4HE zIyEzU;nLNaSlsj*|bL)+_nwmp$7v{j9NiH=tCx|xF(=!xwXUT6I8y}ZH1IBy% z`ZvyB#MMDIy+ytaNFN>iJ<1s<9VWM`x=qWAWL9UE5cEOr~V{ctRDt-;b3a7AQQkI%V`oDkte zV3M$HyCcODeX=y;!UEk79$-s)e=1!mDm^U}Ij5T7*dB(#ySV%Ee+r1vGD~J3QvEAC zVY^!(x?V)3rruZFZ4P z!P`Bgq83qA8X$k!NW9-tYtQV+32(5SNB+VW{uw7C zRVHdVDF9k}G}Y9KQ8f)*gAJ2&L{tQqZNdl{OmSFLM;)F|oElD(1qW0sq<)CsSje92p+Fdil<^D{ox7bbW1Q zb9!=_@#?M0Z$}Gt>j07GAzm3^8WPs70CwaEh9jpoVMEKAn%4N^uYGJtp8aXlO}G5n zKIdkti4$eQ3G2{)m8&`6Ia-R|u`A$-#xcRo9*0$;sCzKOk zp~OHazF~`u#7J#_FlS(kRGTfK zec8ac!r%JD6VjepR6_MYcv~h9Y8-8F1)pr54FvH{qo2|fgbr^%=V(I>0K49hPwd_1 zX_bbts2)spr&t3>4?mdp#Qa6keC}!QMk&VH5J(g{3Oy19C0bfn+G1|nH@aA4Y^G_P zrHiz*G?$f^!QKS~eP%{-BWwhi#0_K&VZL$e7W#eYaKSqte05=Ir7^M;n_zoyfB)CN z`8($~FJssGdh!pEc1bS-gM)HlVD;(Kr;pcEclUI=)G5<2wzMuRF0HShqpjo8^p@k* z)$ab#By`6P2{{BGT-|=cZKy8$_p&85 zCDV^hX0qxO2Smlk(6k-Sb&B|4&en+j90iqaUgSS~Vk_H~aOF*bIi7oaU zNyPBn55^+-n2@^X_t|7dZwBd(ksBX#6+UMJeMZ(f%cDPd|NZzpdwJ-=2cCWEDQ77b zSV*Em%UBVnq!2XT=*Vo7x$%55;7FU%9FQOI#mfL{Z|afg1wstOjc`wCsS6E6^9kUJ zwTX45U&PN-v`D}xq!^Gy-QxJf9-un-CBmrJyuo&VlHYwn=8alH+AE6-#|HZv>rR?X zb&Is;t)aAg01vNZyr~U(7D=bfvP`Px2;=SDr59arC`R>CU5F3FfB8jXteU46R9wD5 zbqG)FPANd9pS6C|b}T&?saM0yI8Z6^ye$%FL%8!Ri*%cC#sfeV{9nCzBrQ6iFC{v% zEhd2&^SJ>q0TfSSm5M7rL+S*DoGy~aSqUIWl~ME5b)?-aq@_g`osq+Es=v2Sj>3`3 zDyzE`7fKH}g1sX=+_5EJPS%_-HNY4i1!r3=PkVC*G@ zy!c_nGHpTHJ($nb9AY9YwozPc20u&fSi=6`*x2y(8`ogW%ckNfI&5kWGsl01?UBf* zNo4y}7a7>KFRm=$ecx_TaGbw1mLifmBI`1usI-^xEa>}7JF7i&d&h~|Qw2rE=pst4 z=>ct)1K~9e>J|kaTH3-Slepmq44iS=!@RXM#*n}8lB$)t^2^Z$Ncl6YMN4svGEb-; zRp3vk%aT&ES;l2u(_yO8_Z(2r_tZ4}sqQ?djnDEJ9xpwQU_od&>B`Y% zQ$9XDmA610ov5H(Fz*snb0>J7+1yiBEXPVBmHn*A#TSto0PIaNi*g(3xfYRbpzYY%$&(6%tjk$RK z`nj{0H_lzTaQ@1*t8c9?ofp+K{X1Y+{GnsVTzP4Mur#x@CgAaawpLMIR%|PFT*1NB z)#VEp&!^UQ2xFHEU|6}Iv>nVDjaT4r57ZC*y3tEecIo<@P;x%5Ox?yy}O z!E}f%vWFn+snd1GP`Z<+OUo;8UJ@F>R8Zk49lk{bN+>fD#eL7LKI+s8uoBobIuDVu zmldYX0bIXN7Hd=5J{5R2;QS?A#uJaLBc_XE$PH6>SqRFv@X5^LrinJF$M9b%JdwZn z$zAwg5rl->=Fbe;2EFsI*Z#teAn;C%L3H)P_2E z4%mP9cYp9#|Msu{%m4M?|NbBUqv^9u(Hrr}l9HjpL7EIG7E1;1lGQ0Q_JinaH*Q&G ze0gQPX3#rRie0<5U-P8UZtCXUf$G=?%(sW(h1tLKLNMEu(*iewF>c!;;E1$K8X+A3 zaKKIk0X5i*FA=1RNcxL{ZB79@=q1>P?Z~PHZ2&upV-M(duv_389tO-h-t~04A+3$% zt_=nwO8U&Bk32%XV=zI*cE{u!UJAc;4A{ivEuidR_6*!mT(|I4z|#RPD9t1Cm-pLU>gED$l z-a&^>&$OyMPjz0*Eh!njlx1#Rw*PI~}XMgp6sL zxI@+`P%zRcs^7fv_PKS~ zaOt(zK3HBlS6*sbyjNlS!Tlzvk;_Mfi5Zae`T?~KwqQBNg;whQ8Vg)eT3J~(VmY^g zUUVI*N0j=2h3SiRv+1RnKX?zpfwqvcssh{7$ZKDuxN8>(zpNNE%uJPta|)*ll}5Iw zV$`x8(2+#CEFMu%SX@$Sh7x~jL>dmnMjnDNZI3lvlIv7%fzpuQ>726S4Ud@e+_Vv! zhXJCl44gra*y!mhM%vK3A`)VSU&OI zTLfc|4eJXBm%lhGQFNUDDYwgivIp1kV2qFfWXI&OS%@CJPn|pEk6)<>l>&U&r)e}i zq%T1Jr$76-G;i$`JqF+u?t#Aknd#}#kx|r|7%rg&FoIm{nvg=1>FewN{_p+K_x|O- zLchT>xNdB08lRYysZL;VFbH*Uk~E zNONP8keo@YPrSJj_?%5qsU9-i{bq$!YNRz&ms&pxv z7VP5AQg^msaV8<$O?ruOivaMk6v076F>~{%WI=`|6CH+x=OG}cd^Mkp*(dY>*BCoI z0p@~(5dz!w3M^&4&K*rZ{Ci9-hrB#ed6yp*9;d{$t4nt}j|d2EH0 zz}%EOLY(_Oo!C?$>YZ$y!};WCDUWWZ@zYOY@n~AIOdaCS(rJy zvcTnmbZ>!T`NB_O@7kj>QRqNbubHn2?Zy1SCXX#9qFC$PIQo0cnN#AHJgS#sQC^&g zP2$tPbBw7J#hURhDfSD(Yb;w_t3<*se)I})Sp&#PVpGQ{F6kW z2?HNC;F{=JU}?;ILvoT4mI> zMT+S^O`Yv#-sbrDMkd zm*yrA0YZI}-c_;h36>)>N;xZ4Wt*^FLS{_$pwY0a?9F9I*lCXg;;H_p&C_b;Ce1#( zwhARsL0J}hA=w2mV_Uji_=QwQ0;zK3bWdV9(&x37ehrn0lQIl}_enjq@JOKJ^G{zu zdYqU}2kgG&gR>h7zLD~&kPtcm|4CZ_<~{`qPst@HECga5tu16{CPdwm>j=hm*39eG z+T3E`(!c=8d@!)Rx*8`ZOUr45x486M?|w8mGCDjuMuCUzO=r$*Ub=ez!X~`Mp9MP6 za@p;ouKk09M~^w_xZIdC&6JWxJb!g<{oKZd>FH@Q4kYIw()G)-Cc|JI=AS7bWi{$G z(2KC~;^LS+H4^O(9_a4uB(`%1ya3!r)YEK}X8Ah7gEUx&j&4(1>ln$LK5=*+$GLDR zwFu}Ni+Xr{z)qYoBMtM!N$pdkCl?$)wEKWyDP%FH9t8HwQUOET&Y32stxGdu!bZv=rk2*9h;L6D&a z_!Zz&$gyrCEzhs5OpOdy6crHLhx@wTfA`Jtp?()?T+L)_N?t>cvn+6d0@LV zRLQ7T-K{iDUt^nzF3r@cLsU`(;VG$m8Fwt^jxxuzw>$;QkL})MGU3Z~S}`EpbR<)DBSilg-L)d&aYvW|qGynse(Q=T-CKzrfUw9cuuFvSXNIFWXN3xGFd4JmJn5@ruL9Y<(E`?L!xvQb>O3YcGdm=SK zkO6&GS0Tu>G?^QzwzI8ues)F@ltvo$g#+&2&rQSj<|eB}N9MWtcyGUU2b~TwKQIt< zx~mI%`}5rS&F;Q|#-=kEI2PX0(&`KOg>J(U09%5KgN7~h#Tw2>&LF~xL z=;G3fkxFy(bFdw0r^(ZBI1aZ!%Rx6stOdE0Kf$%1$?1^U=21N`;sm`>bi5vhTT?aU zAnC7lbtbVy<|*+0G`jYUH{a^)=KGo3d6!^r#$wz4)+2D0TyO)7SzZ zOqg}SBJeAdgw8+*&va4j70gm&oQOlhLtsK=;3J&kb*M}nLAppRLnCuf+)88QiEwYg z3-)O{bRn?pQ5m*3CB5p=Bo7kuzKsOI{2(X3q*Ssu2?R?i?m*02a4`9)pk*MQB$>o% zp(4xXXb^SND^LY!2vJ5A|l<<)-g0NG%`FoGd({sHodsGzP`Ts z_FErOX2!-Q?!5l-#q+lZ`UkCtAd{=uTCT6KMpH}&X?IgSQ`ipiiglyJxXX<$l>c!2 zr_-&J2EEa5Jrhnc>2Ey)uW3Fso*Vt5o{;HFZ9#s zbiEBO1#yIngw=*_MJQH za~*|doh&ZR*Zg_4W>hM7S`s(WX+8W8!EbGBKjpyF2u}TIr6IT_yh0NG5h5X9Z>tNY9 zQwn_E&#mv>x39Ie{mxtO_4W^3xO8Q9enG}*eM95$$Owpr-a?$t0^0IqX6EKQySnXM zT3QxIrM-}3mZdw6j|~hCbar*ZZ8xIZ0Dld~#uT(^L>-NHL45~0Jda7Pr?IGUD4mrb z#{hG}PRui78ksuT&9R~f)!krN4RCQ`!AJ*968?`HLpwSuz&bQAAb*AmSymeBcko2S zLX(Ce8ET*D`VL#zt?`4P9wkW0MMaWl5Oo%Q>SPVps`rOr=T2N8IlK<2d>P35W{9XfK`wM38qP<>pwGDZJo0gy-p{ zRw_n!N8v17rL!PtixYD$tS;Lpi&BrF@Fc(K*#u7oNxch%&ngr4E@d=l$mnO8+{|H$ z$h)|aVff)+gt^n|3>q>F*K83ppGqEcWi5dckun#_6~4fBhcQT!cPWxBqDn(a>+ zG5{0IIBnVDBh6=8>Q2|g_Og<4kdCDu*k?A#-A2>4HXHuk*4fcHKeuSG($L`Ox%I2( zH?Ca2cBj8@XkudOkP0+F&Nh4s*QW0Om6Tb_v+y z8322DmZX4b*CY;`FF~skydz8A6ee(0n4#W;hz9uQp#XJmQ!EO0BQwkuw!5#luz6q_ z8cL!$djK`-skj*5HEr+XyG_-@^VGixS>CT+)+b=c-ZR3heb}y%dLF>87SNt7!ss@d z9cXHNY;AdYbZE$;Dkg1KZgRKfo{E-&cVt0|6y)?Lyp`pS5}ToMVPUbTs2Cxqe$ZP6 z2L|`=KQJ&bw0d?!CK7Cy_cAt4S6{w<^ETv%-V_*UY}Nw*Hm_Xm>FcAzjE#-=5A>tr z1~kpg%+ActnuSJ?R790*?nvk@2gYn;!N6%OWx?7^4&T?;$JfAW4GO`Rw_a*=XH89( zV#qI^vo4mDKMB>*dk-&L#&>%H`PfLs-Sm@3+oPq#w6HE)*a|em2 z8>YPz)$yyUf%B>l!m|*6Qt4gFuh3HFog>vU+h8gl$(-|qs%;)gLAT`RVaHx2~7;SbDD_Z6e2rXEe& z2hgJ{KbO)Vj~_iQU|L*QvOC5Y2}2){xu5cO4>s1FX=`b3sBi4+8#sUd($K(Ydt3Ly z{OW}Zmp3n7ZEfjXS>CvD{hhVdO;UU;d2sl!yCgh}nXlL?z|}xhP+=NCs-dbcz;5cl zzTTd1efsU;p#e`MF^yK^Q*>3E(j@Um?}bEi69U1S8{3KDsC#$G$yOi`4=aFaycM=7 z^;?5Y{gI&Ss5>&BOfpm&fbU=k$z}}06noJ>!x6$knAk1k?&v#5_BdHf!9Dd9qJ9wG z?M2Sz@4)X}W@Eros6g4{_~IB18DmrXAyMwpTY>g_JvoFV*w_u*9T}oY%o-F)HEdNi z*?=&(4tS3oIS(0M9GG1Uzz6T1#Ap1JvK;;C@oW&@ca0@oFob#=MiByU z#!iY6|LgDRlEgkbJhWsDjw@FTtM|(IsuXdAj;FYKF&+`b9!fl!AypP5e463{w z38&!0a6JV-1(;hGvZ+b@6v9LA?yk;r>+8VWe)*Yvhwt*+{b`^Rv0dlI+k#>(CGa`M zAifk3ZS-!yV5n+tM6MBXWuoAY8DJuQVqMq=x32JgSL_fky!=5cpGJ*nj1Zm$GFs4Y zk1ep?#87FWOf7{=v06_9cmDv%Zz0x39>JHGg)jMDWQxJm)fT$nX`>G9x zC*DfRstUF#rOjGV)lleR>s%zjWPaG5h5>RJJpDmj>OqU2(nlV7n0?D+Fs+82@F!U4 zj_s^p)iVGocC5=C?~&@r9eWxE>cw~wq9u?&h!w<$_n5(+qQVzounZDBa!(A^GYemm zYe2VG@Kn42;U$VI4O10%w4bogfR(ud)YAk>{>)KYcT}((C*ZA8D2ES9gK4O(X>PF4 z=W$cV*o;XwD0+T!?DF}wmHDY}eCIPu-FH7Gxfr9`(b?J4+e1G=r!5%? zzy}5fg;~uZ0P_cjhJ4C+2h{wqb9eMmQ+ACs4gDY^ap#)jErm>BRcEe^u(g4{<^ z?~6Tcd70Jys;&LU(wHBkMTFUKRYf@?#F4NFs;0IK-tqZ}DCrLGGv;WU8fOOD8Y56~ zzB>Uvt9L$JHK|tBM?yy()DAF#X*yF>G76pxirdakPg3~DhKIy!T-=GVb7qS2;{Z>^ z82}vU$B^KXk=$m(K4>9>S9eP9knC+T!;>|~F?MU&gR&4G()fK}01LxFr>O%H0+G@L zq%i~r^obrSY*xfd;S8|#3Zmz*UDX^qBpJXww`Sys{5_->E@dJCa{}axi!-+S6POe8 zc>%ELFdY*YbW>NBoWtz>2?ihj@`ErCKzS-SPrji1`@-hw>S_geLwIkIO*(d#6e%>0 z7h};$!Hw0QSV$FY(GRL9L)YPR{fX-L@4m4zKYiuG`sEAjQf1;zpLoo}Am>0;8>D|~ zeV87s^uVAPFV}8e$C7;BUB4*_t>I0)pr+(_uE7(+3U;E$M{j3=tb#=E;&c;loi%ph zFyuJ`H7?u6_=9^z192`4QW2qX;kU=!v!hL9VzMW6)wAi2n8NWsc z9Ic|gG}NEQqi){5_4YgObhNiNVk$-=lBa8qX}*Y~7Rt6gKj)QzJ(3ENJo&2k3ciy@ z4d@2y58fM@74y_Z9FQ!daFAg_B?3%=3HJVUOxgxWRjce>JY*<|w|3}a8nWsbpGbSk zYh#aO6XIbgF&u|C;d8v!ibhGF25jseV} zG_m~~-~0~V4v@(vO*+ORB10dRC`xV2tGkYR1j!T?7caEA*-ob6+GxbwEB*sH;kHj6* z5s!`Ga%D0$cm+qq!%o2eK2;TR25 z)wm`Gz^H)+$z3Gav^$`i@1Voi>km{PTU}bLC@axsnVQsK55T_&<7z(kXvNkha4<3_ zNf8j`nNM^JliqF^e#NO1hAo`J*wI?@3lt4pO>!>2${kP!d;yp;K*$9|38=E|$tN`{ z592u<50hD=7N=}GJ3G~~Bm@qNl5kI!5g|3oHNmo{mB*faoMn93o8YF4aA!6}!N=jH z;0r3^s~!NV^CmvoztZ3-{Q6KzlHq88EoD2{$dO8PD!oF;`@qu+dTd;UV{(jgA%;i+ zCCivb28Nd$J^-9Ao?E+i>HN~1#eiYBBw@YkgKYRA< zelVo|M@>F{(ByFj4#2XGp20T1pwnM=Pr!3BtK=w^b^r4WMjaRRwBo-aLzAo@r@r zBf_k#Y?PN-UAAI;bPBMyw{>)P^-fPOUb*tdojV_mj!wxPlg?kteVe&8q>LEe&Tico zsz(UbT0c~qstS5LBp)6c{Peruh3%4LV7u9yZ1%%;@vn^S0iJ+0b&KN3BQYW-cm(aP z?$gOI2LA`BdXNQgkIoKgv)Rh3oNhI-sQ zHVNK27cEG;KzrC2TKfV_&G2a z++0{(nwXrLpI5UjaN)P;98FqPn z3&NVqIA%rb>U0>VCfwuJ;8v5-pmHv&#=}AQ4hE4AFisdUf0uHG-u~1QeOFDYSfymz z1~nY7VfqzrtNI{~J3_Ys+8PMo!RH1mIAj$#?)}B8iZVn!Pf*6BX)F%Y3LF`FX7zD6 zW0WWkNigRqq>CIaFBRrPYiTk?1%{^`v~!ziY(i9A9l8qM0cW}j>gevCko_RoK+hMC zr=5C>M;>~}VZ4Z1U;}Dd)lg8iFSbMyN4YcSL{o_{z+4l9Ap(x3#^o&FFhk8Ph)3g+ zoCv$J?9Y|Bf)0W_dGXl{wsvN02anKI>Il%rb%@vr+hf42J=C|XF^X>je?debY$D$p zf&a2%YPp%gmgi@#T-+EL=$RNDSX-Kt>kdU9xbHsb>KUZyN9#*z7%GT&b8G0T#0*z9 zCf;S`!zf9go&>flWLcN=AA<-u4h87NVY`;%A45_*Xg0-3LsQ*E8=m*sG>f2KA)BG& zN@0^8V^$fiLLgr|4<^3e%QMB1Q%=9vl_ip@>1+lNiF!Lq9*| zKf$b;FUNV3-Wb@PxD7GcC<9SHgHI*8mzP+5#;`@1W7OB0&W;|D(}BK`qM|Y)%<#|{ zU`N_pTRPTOFW$cW{@Jsabio}-lM#dCQeZMSQc{d6#wTx5N(M{`?Z&6WI`c&1HNh1upPq37?bDCrmknLGb2L= zr0W1EsxlKgG~7lF(Da1w!6m4^-(GH|T4MBlMU=UU$!i(}H5iMz*z z(nKFLqqHX&P6W!gJjqYPc1;7k#{XR>- z1{mK3K#0S6EUG2s^v43*-+5Q4bmQE{)a2ylOPA<)K3LWNjYxZ-4iDON)!wuiqq+ zFDe4leV_@P6&T?eZy>E#FA^dftd3G$gbo8gZOkkj zcj`*ZoD|5hCx}^$Dck8!Jw)7IFTfYwa90kY`M^FEZKoKMD?1=}V^c5Sd5WsqXC*dx zB3A_ZBkD96(Lc5*Qw6XC4MGR&0<9vXNIQ7P;gNQf_=(3K(F6vJQKQpf1*Cgcn}cnf z9eu_m?StJNXP4%sK6bY^gZGuinXc9|(&oSNkh#cWfu#HIyN~FKyg^P6`A`HS9+e)6 z_q3jAu&lP_Mb%)wW~kiy@=3Zu-HGj-mlw2OPmmQ+|F8vh%|8k*>lg5A|I4rb>ize9 z>B&c91|Dq9*tCw04oL`NE}|07Rnhb%GFlqkWUQ_Xq!`Mi`O|9HhGPQWU$MMJ039?_ z_^BIP25|P9!S$dqM8-15@E_psC!1nGOR7XPElCr@`eY$g5Rgs1{?hZ2(P1(G89?~R ziE6{QYs{-RHEF`AmCEvC{+ynihwZfYu1>4ubYH!C=luB_)Ki!*%?5AR9EuAIK{0O< zyuHAzcY*EH7`i6XPR%6if${Zo>p%Y2e?o|b?aj@NG2e%2tm_S9tR|4svZD8a`=%`k zGW%Ryjp(Et+`k|Cc{Pv=+r2wd!P?=QyGd6JV1MQwwr2wW8LCHKC{h7qwH*u#yc5wi za~B8csC!C>dD#WSErzHi?yn5xIs~yNqv|LqVJ=IcSeL;gWuYc@qr@&H&+pXV(xr>+ zt-@k#pS9p~Y9D7~8$J`k4q;q923*IC2N4m_e6$p9+H-ma(5>d<)jsQVTOXG!S)uZjS1H=gl`SUL@OG5bL~r<@zVT{oSvA<6DIBleM+yFI<|Q zo`uZ6`K|9zOX}+CVEf(oKKjv*|JYn%W8)L3zS#$SPE5pfugLkt)D&PJ9iKqjk$hl& zcVQi9Q#>dCBM2^D~qv$GK7@)VOI~HB)=@!{{FR3yBpS_7hpe5i} zk_-ZGkNkh#Q2>asarUrr%ae~wWaF~wbO<{N0p3w>M&r-iNPW>T@nP`o2Yx8*_5AG?J zz-E)tktAAR4w^YH<2tTJRHrs;p8TW0fp-UeaCJ*cv+>0Yw{#Wf64*We_GpH`@$iEW z;;!ix_IhT2CL$DT3ggd)lM!SD+MxO&IeeBiHx{PgFt`yvh3bYW$&=YwU21EpH^Fav zbHnIh@7nU*v5HdpCy2CIn+E7%6)T?P5|9*sAxv^fxr z+Ab{gNYV9DS~RB=Y$rbG%0N6;NCirCJu=z6R18_FEUz*`Xnr#2KG5Am{+}J(k8du`HVl+BA9Q%|k^)lQ#}-Ul2-A&wCj> zCIUhujf?gL~pq!uC+zZEl)BJ$xX4@(WI6ha4Yw!*mrL#Hg!1 zVZm$gE^Se2_~QKB<;_iaefRF&Nkn;UOtLy`UtU?BgZ8&>WrPQtw_khx(xuBV|MHcq zNcj67f8)o0{O5oEZ~r|^ZaUMve(nM^rj!5eFaI-j9p1im_dQdDZCu>Ea7;2ljiK8(YkmFP#KZ*YW^R7|>a`mZELo!_qqoaMkz_P2 zD0w@@!rkNAMlMQuXoxJH-G2hPOF|4`hfHM#i~y)yyxH#PdwcV?0r;ET1OX zNCQX<3oO#D&uBbRDB*D1y~;{r;UVzLmUIB+34jh1MpNT%{1h7Ewyit@9Rm=7GLL99 zTzP3JhI2Rak+OB8Fh6HZq8UBA5d`H)81Sp4aBc{sMjF3#du1uW0}> zy$qS>N>WE7W4k~@Og_%l790{05k+mTtF`{ML8%hmPaLaiZK@j`>{*_l7HGzz6@p%X z=Vw=_piPBtebQ_Idyy#YU6Z8V%N;66^Wk_-CFa#aAWd@y=IE8smHvq4DGZdc9eY)&E~n`LNM)AEHYipM#C+8=|XN+M9QdC$3 z8|f!*=k5$6kiA&k3b2>EA76*4OP9E~x%t7zUxn>0t!K2wjt(Q!C8M>pceKln^ZLXM z7x|wzZ)_a-pYMFx1i2a8Q|pTmqzx>qAVmkg zIfWfhMgPf8I=Qp7GRMGGZV`A=Y}`4|y?~-iu7|YhBACEetcV)ZzJX=RNoth{&&&Ed z3aX*L5w^R9pVWJzJduBuv7K{a67ea{ivlK!rMC3lJPEw#m9(UMKzOJmD`j~10QSe0 zW*ZA#J&ku@6&#*dbGjor6i&xoA`vJJfaN#<1y)Rxp)iB?<>e)WmR>P3GCVjqaQX68 z0ZnwBIOA7iIc2KfxP9kmfBTPr@wflS`o{UL?j8s~JGWqv>A(KzFM#}+GtD1;{kO~j z+0oT~^!RZy%OC#q=LDXwfAT50Ms1Sc@#h>=4u zGBJce2Wi=rpPZi$Zft7gZukOMCc+S2V6{sj_Ds9Za#5x@o13?I)57B7*w`4&Wnp1~ z=b}F0{~g>wON$#3)d9N!(IP=U4L;R77uZaG_Z0TvwSA-=Aq+B-zPmoJ;UfG6n_+Vy#2RA|)A@#X z$eVL*P$>93;W5Mnm1_~VLs|dHj9sDydS`eJ^cUe14jkuM-_J<$hun$f=VgLxyvVNr(t@vWk?S z^5nn)+NgpDLg$aAG$26CGEHT`B3@CD0@W+aS(A=t3`+s*K;Cyv$tP*n2qq%EQK%R<47PM|%bE7B&R#Nk zX^ABg+F<+Oph1LF(^K=KBa_R^8}oBkNrnuwXgm=f<%ztc#M>ddLS!m9w+LuyX)&3d ztYgsz*giHsa{JEfx9{AUn9{U6J3HHYdJSah?CbBHotuRN@~FW(U{?`bgDa?$=$xi} z6-JmhErJNM%bFkw#@P}aE-ft+`J{>m{>Ofcu0qJf+tXC5$d8snuE**F-k*>3VJLnq#fYD``!npd|6pL`=@{P*MIW!zZsjDFtNbZYqu_6xgq26jkn%iJG;@+ z+9tUjnJ379^*6ssKbI(D_88$;un&PDx!xOyR@0qbT{Dn(eqQv`eL*oQPQ4+#G?+lX zz7F5ehswPD6dEn*_T)*1)6&w6=R4T!?wgk`OO$smbzOU*2}jJgt4lY5r#OG%;*Hy{ z8%xzc;0}HK)Y{tG>v!Ie5P;-ojlI0gz^E#X0WJYy%v@)I%j@nmQRGopXAdo=s=~uC z>Buc49Y;H&%*GIJ%K6h$Tc#(+6{(FZL*=kj@2;c-!`V|&R+3O5N?i>Lo6DmFQ$UYW zp;v`@;q8vZ%;AGZ%?0503FRygyg8n;D8%*&LpkVKd|u-(6RFZylHG{Fd`NWuZU zer2UxKN7-3H8Hlqen4?(LC?P^!+K?Pqp_jMtEaxUm8@fO)Z{^e#@jNg>vd`!t`?2U zg2Iv69x0Bt%+;Ocdj^pF>3Cm~YlsPj00?8ls~CfN*A&n~nJ`jfEMgvk6Qh8I&vl(t zx5U3=N84MP=VoV&FEGU4T0g zr*GbU*Cb#N8>#=~x4&o5(T!WLfAt%mj*fEB!m9mW`{did{BQry-~6Bd`K|XpeEanxT{agus1diHwBrKScBn+J>*4#0`} z=r*z>EJfH6-erHsQgS=w7bH{Uw9vB4dHcMM-An)x$+ zF;gK_?gM#7dZ4|&3K zE@AjcBQk@vG8LqSR#{b1J~}eY3*)B(7Mw4vb|Rc~5f^lKcB^K^z6%c?q?|)(0L5Qm z*BY?7l(bX|jPh~3qGR?b4H-ks*LC;;u;vuxhMwcG6((cm4wN|%p{u(H(vCS7!Sj^; zi0;ZcG)756`#^UG3_n^P1D8^;=}>e1sqvxyvBBP&s&W#LhxB&$ed$XYzUGZ}!**4m zACv);V(h8p;nd>%$B*)8uv(y&L=#5 zP?iAv5lW24t76{J{`3<# zH=%)EaQvz26&KE&7<&x9v!kl=2(KcE2(g!YlTcT8DrN>qh8m;r7^iB5_ORWA+11r2 zW@Z*BGv%daZmM66WJeR*whg0p7B8TpnR@;tQEE!M5AeaQF?Rd$aJSITm8GSbX}C9f`3eF& z4{rq)*VoR{;cwl#Eewk5e*Keg4i8)6ZrCjAU;WKb-+BK-ho_e*BGZUb%7W<4?Z*JKz8PU;f|!{da%wC+9C-)*oA#U(ohF zElP}L3ypTAe{yW_A4D3=V(9gCryT$g^eX|or=qk&V}l<|@y-ztQs^zhuatZb7J_Ga zxhr7jbF*^-2y9_$YIYm60TB}UX$RTu^vS&NDqnrVPQ7<0-qeF19l1vr2Q0*=UP zdO!d^!!cS4>dU&EuC=OG$14!GLx$ajfAKPM*SR)r2fb7dIJ549EwQ!8D?nW<%Ojvh z0@D0l7UD@nbZZEPHXEsg1Oi;f7UVp}A_a^C76;hiNuu0XYnW4jt)Uz#OP0Sd)WYaF zyjplPRLUJY5H`cONnUAaK%wI^je(YUJA{YrBw`7x6~)D(sCoR6pRioW40Wu+;~^oQ zJ|xsMbPHC)PuLCv!I}s5Nz9>9Q=avUXa`z8f!&b_*du-_Zb5)HhCpiqqUQtq1Ut41Zy}r)YzK+&Idv@_1$r(w!lp(M85IN!6jz1wMBrynCwbG!3 zn4OL#yRps%ALoXG!Wfqqgg%M|m&3{wdkl^izCUTUiUNN+U9EGQR4FANn$?p}sCv(g zXn`U4AQhAE(?x>$UeHJcwWb)ozIVUxi@y%rbqZ9g0|3g@V^==e zi330xQ}h;DehIp6MM!v;&n^c@X(fYz|p9 z4+RrE^)DqKz6$LjJb3pLw1&(Xz_mmetF7Vi>Q@7lwVngA5L>!|IH{P1pKQ?8@u9<8 z!|0`*dNc|LX_uA*dbM2TpV|dQB|u(#(RQ-4roaeHx3sj0O~@2Y`Svl^%*YE3Cm#Bs z(N)Ay^VkHo+kBTR#V=$z$a7|w;jquKJ*a!ac9`$PXrcNb5k5xm@6FbZw?muULsSji zb|exM6;_p%RtRUyR+;g#1t5O@{OruMk(*bqT)lPs7MUF+UcY&Z z(vHmgouYp8_MKa=zwyp{A5&nKSI$n)%)fQ_!_7lYIg-uK?Te zZI2=2-C<6F?fjJ-7^n32514{R-ZhrOhUxA8^p6_T+uOUev}~is6a44q=2ll$L{yP{ z`J8v&c#~(5Jm5Oc8XO!T_{gZyg%NP*>FR83h~cZ#lM@nS%z$uQ4(kyMvK8p)YN58u zm?-iDkoO(#A+fZY@bxMqt%e4-G4tXgBdU(EpCDcP_xcs)Q{V#xq``~E#^|T$Ub%ix zSI5-E82)dkjq=mk-lhRS7{a7wLbPZ?5Vi!>RWb7eQD}V9YIeE~NI__!JyV3VfCYwU z>@^3wJ_9fZHIP4{oEZzZQRbNrPC~4mU6G@shWI8_|Jw= zSNB3zBB?T^f*8KU$fex71sK;^fP`U1 zoEjCfZJXCoq?nuX1Oi|I!ss>{X9-xe=%Q$v&Ug{+A=awv?#P@`Dm;=#duVl;6-{29(D_3(eLZ&YS(}9*4`ayzyH23 z{mQTWN(5cfOt5J{O@v)I^bpwhg&cj*{7v-sB*OUgs~6$!qahg2f5eP)R2SLimBb=; z4u@^T4ZPHN9MPN7Vk=$NdM=~Bm|KdgN&q${ePp12cye-Xer{Egj05Dhm| zO)W;0f?T$t(8?{O6lv{2+5tPXhV3;q#|c!!!-L=d(GUOlfB*BV*RRgb%}mWqPR&j& zEH8|XkM{NV!FENhb>rcI@a5#!GMg^~1PRqcq#^!*$$)p!Q-B`6DdJYDOny3ShxT?y zw0T$jq@ihy3Qpl^Um6`Bq>lqm=`%>1l5%UwGC0dw@pX}4tdt3qL^ zNcq;7C*-LZJ^VOD1>~wGUxaRPd(nrc6Ne9~Z$kk5sl9yWWg_X0&+=5p+^Kj=KImK{>PHNY zHb`t!g0;gA2wI(l>S%Wu8&(XH3sG&$H??|fiArM9+qsV_hIlfV4I@Bh(v ze((o>`d9z%)9?M@8^8S>C-(LABYxU~$df!1fG(awftOM5 z;pf7y0q*1D`~sdY4m&h3K$?+n6Pir=Cm(<%P7aSSHAOgz1kST- zYqB~ayd3^F-@1$BBkg($Iu9uQVXECO@O<`V&LrCI}m3S6^VJop7F7K~>V~AqNwe_DgsN`+z;D`%6&bfVbAg_L{7VwVXJ16!|1QX;djCGv-v+ zi-C1~0yWabb#4>R2YxyQAOb5i6}AVZjQJT#?RHc02wU}pOq9sX2T1~aEQuKUygIE; z2m79%j*)|>e3@1gsBV!p*krL%%FAK9iUK1*5)sl_<2yW_>pWE;q*aI5UkF(VNzy z)rpPRNJfAj9$VAXuAQhHG-of!?;{MY&1Zx#^wY%)eWGy6WOjNIw(DMnH2>g(Ho_F% z{z|NSMana=dFXGkr3GSe^(0xuvXA8G;=)3t-5sOrQBVLXAtW%j`JNFzzaVa`3nCNp zz+R*S=Ratw0njZ9iu#q8RuN>xRn0IkJTwm5S645XF|7Ga+rr$6)c4`xNi({m@mBYB z*|=9_g+@npRC=%-M(aJxfG`lSsmXM&-S58l?xo9{(=(Hk(-TW8iwjHhi_426lS7ggq5wIOd2z$+HGjg3UD zCHkZqGz6_r;lTea-C*W`9jLlUMtJUkQ*b(^1t#O|#x-fGNwj%J={gMQX4^0pu=}Kz zo6zR;sXEIJ;_b?l^G~$=N!peM=#G4ZD?1p2!f;R>pOF&$88P@wfr+$sn@0j5J~Otn z)eP?}mc4lfenCt1Mohxhk)vwMN7fui8>sF~i@ZReSzlTHyTAYUbTGPzBtW%~_o8Hq z8m>-GOb}r%Uc3k)$?O-5RtoAHG|H$VN~1_lRFYEufxsQDK^`Lpl-;17Q95C802-}yd4o=8GqC$NABh5>c? z6LcNNrn)aIE!jkGM@9^q=&Ul+Q9*(DEB`|0F=-@{?_gTGR36`5%Hyr2{C1sUqy?W} zTwcC%?K*$qu?;>&&R14eu5waSlX?V;hFZb)jSX3yJP1^$Fo1W!ZZky~1LNq0fh7O; zkOVc5C>c}SOKq>kn()Eqrbd4Ts|ae{tOLS?0JRE5ZZntG>D4V#ty;P=$G99rnnX8P zn%YsV8QxVAG6m6lyE|dKDuMvxVmiBnrpk#Zp(w51*8fM;eL&fDUFm^dR;y)+ zVl#+r1~4Zuh?yXWoKYwgDxsUid*$!qR zo)8>BQ3Qe?i12}oDR2>e@sO+o!wfxU?e$2s4EXTV(wamb&DDQ!r5C0C5&9ZxtD_|! zeRR#rl^%`T(UCnx1$i0)A>{AFcGUg%KKD5(PZ@}T2oo7602jL00a}+yPD!NQaD`Du z1);`#L8M`(gIWSP6GFz%B$5ZzKm9a8Mgpnkls*aDRSC2DmWxbEp~jSK-yvs)*y+IA zFGLl;`qem7}DO+ z*)|yR?Lbd|k3g#BFy?REXUgPZTHTvl&El{bgKJbqBRY8!MiGioak1}fzo3+($<{e^BKw?BZ%IY!LT|v{i6uhO72t!a>GEK&H z^lX+S={hI83>ja1Ig1x9bDA8hJb2-9qY4L-J`dPKMGZ1x_9d zTAP|&$C*o)J}usA^H!NW5-DN3i%Y_po|&24yN`jGV50U$<*pq(eK%k}ljS|GvbIFN!Q+pDP~%J44%i6W@dpr>P;QaMj}#bOf)fj@ z;J*Vip+foyVrN7dFm^tR!5j-QY!e^3y98&Kvgj3Mm%v3kg2TokM(qS-Bh{|CQ3VyM zC0K*Wq7r^4g12_fDiCAb!m+rMTW=Ad zlVZ$vY2~qwX`K=-8@5o)mOkZ0JI2CxP)uyEt=t9PTN~>n(%f>>O)48mx$(PE--zF( zf4(a9=Q3Xi@C_t+8vH4xcoc81+*OvpRTy@adid-GNS97eO%m1h+!K&1Zn$-8E+5AT z(Jb!4*U7GttZr!mF&AQUZ7KuXE8AO|xj#^6%NE{YbpGDGlRD@InRQa+aQAD2x_{yK zKQD~~2tXAGMj{R*PvAw60ntVRBsZc!kQ3rvH?LA!Qm(-!(953tMSd*O;!hw?kO@>Y&WT(He1hN)NyHUQ&r)Y8}%OQEo}`syHrNcHg}brUan@+9|nR zANdHl_AY=#^?i{k=rj{HZZEdhT2*SiHG`ofBeZO{XN~QR;-{x zkBpAt&yW!MACdFWA4U5QA5 zuYMVZPn-eZNV^bfSWlpu>UeOm)gM6PF>2Tjz^R-NndX3HVd)fG-CyDCF_%(V@b=(C$?;>7;Hu9O7rajj7X7~? zCBSF3aPe)k#aAGWPzI;UBoyCZe{X0UBQw=Vf#LVxb2lVpr2J|?z}UetU#dQgM`!v9 zXoe4wS+cZ7zn8fI=5Cwj14RQ!qdc{g_Q&AAR0ed~^3ObZilW==*V-%5c1Bvewq}_cpLy_4|ql$`Q9(92+;728z zK-ISeh83q<9k{V0-bx@W5N*eG8AfcTJeibNF27}q)v0o35cSH++RDnhmgdg-`WAm$ z(p_8I+}UYK<48?yb45iB`Q)?j3MnQua|cvs-7G@U8fcFs88c~QbkF!i@b>GtCu}F9 z$?jYded#wv@{H)JC8FLOz4}5(@K;zyNLfn?KzNj%;ZX^ycIWo|0(5I~?{dz^B#7UFX#~!GTkA zE9fdl7i6}y7O)>Yba;>S`myl?hvtu;I1SkSb^O$636OIK4hSDC9673jFRf%)?tpD^d=6>gxK&9g$8uq0*vM-*fH7} z6k~6Rl6KPmaT)~Y=G6d{QEwPb~ zEl&}!dj+-&BVq5Lz94tAZYwJ;sHxm3zzStydnCXYY-6h2b0V>}0|w)fqz(O&FSR5C zD{aVRyCC#*_)_04Ga;E#HL|pANT~n^&S-q2h{j?@f90C1xhm=L4@gW>Pq`%iB)N0V zEO}GZf(D50Lbj)uK8?`y^>%4D6Q3*tH>g;yAeO2la7BDIO>L>#F>;`~5wJ|BA_-{$ zj^AQ1P!a<3rH%yU4Xp#1dxY)g5t`~n9N2HP>Pyg2xl>N0_@{&~88SKcLE0*{SaM`)Fa`qf^M@q%EBHH-cLkX6jhN(R9Wt((z)g*`%q|Elrt!w3KKD@U1L(3| zblHH`l;W;80V(|?`_tEkgn6s|3nJNx*x~@i<__S6&!i%~AaZx&#F^RY1MRJCc-nQ5 z?|PGS>=MO}1np6<;+}gLZWnR5I9n6LhTMa>qv*d)u=G|uw@fu*yRqajXS2IS*kbb9 zn=)03TfK6*^z4@Uy21Y5qel+E|BVmcdFS2BFTeD)*I#+*!g+DT(vni3Ey)BK2J+xl z+6mzWnMa0oFad-ng9-CF3knKhJGA`cpZ^lJ|MS28yLUePj;aERhmDQzJAU#ktQ{I2 zJ$n4inRCwzm^L@JjE+rEX4q)GdGPR&XJ2^v!ppCz-&WejZFmPhK@RbKAf{lk-? zdTmW?S}A{#+z%BE$eD(M3be4 zTDS_sC9Bj_mQzAtI}%6VCfWdYIq zc^Pa3fZ+4Sn4U6@&3!KV)-5?s4(#lCT*<+iwp*If>acE>>Z@TZIpsMF5QkGkkUvZL*AhB zix73LFH|?R6t+=?47`VilPaqib>UrFjGv;z#;{)@M^OyR$9=CWz$*%Wm;*$`>i)a$ z0{iU94cC9=cDXuM$li0eY(okUY?s;M$1*F~;-CojKN9NtT6vRJ+Qj11NN5+Ec8({& zoMxiBE{oux)j)MulP5!>u|tQf*^EMHh9;96fl>}3v zwHlj9Ur>5+aJWywJ_2coRQAW@U#wik zQh_xJ5+0GF4fv86utQ)gI7KpTUlr3Jo%&~S(~6a=tZMPQF>{}St~_G`3rWXEj8h(v z396Sp57bW?$Yxn4d4*1r_910N*lyQ1kuyH8ZOzBkD^|E$YA}e93CbDDvE>PFGbm`2~H)-tDF*Wzj+>={LS8(^$wX{xL4J z8s?_EyT{FdbiCT6K+ahK+Jyvu0M6-{ojstPjR{o}T3c-6E2q65{~sS$^sKY7v1xL0 z-+_bkl6(#xnwRZEW`WxdY7BdUqB~4FUO-KCHH7!=L>`w4sBdj9E46HDSE`&DTW3;V zmC!T+T3ebhc_z}thjLOr60nCw)}db1*XEm12(hFunq5%WbB|Cgsw%DhEJ@xNkkf#} zXHf5II$hV}?c6ID@$(oz@NTs76a?|PtPGr+7LOoQacc#z%;IcF^K8-yb z2(p112xIth5LmF!e%A`yXvS(>Rt8!172w@xonx`5sR;CvFL0;Ka!p1Hc1;96Q?o;g z0q-1#v;qi{Q$L_Ox(R7PI>@KX0DLmL&BM{2m)!k-vBUGQA!PX*B!Ax&aI1XzV_;?SuR_v>$M%FW$UQE>(}@8 zb`K2nF^SBd(}=KQ(IO9;$iY;x`-X(C08)m5Z-hdCUCT4yo}_ONeh6!g3T)G_;L4aL zd`C|GrA3D&3XldTr0 zszZDC9i7;Fuy}hZF)1?>8N3IxN}DMdff6&2_R7lghI)l)nn~`X6JxXUbFaSrwNvNL zbar*PG~#EraVRM28UYmh$29mjEb`ncRkdogH%k<&BADQ%F@E7W-3+!9(EKjo55W0N z(rNtCr8?8fr&X)rJa-HPnhP{=mDq7B*iOu03e&9AtAXvB7O8=~SqMYt>O{S1lxb>R z%!S}F=UYlyRK%$O?6jkjVo5;7?tv2lD2^OCvAb`ur>n;((#ximoeOa9n{N0+IP6l= zAPw&f+kF>o&#VSNIP)5es5IZ>PTWt-zO*5W7af?G{?^5e%QH5mjfP;_A0qowCdq@g z2GJ;V$iB|DOBXM^difHAWIR??RW>y>T2}u* zoH*0%QR)CbC>HNwNiq3>-MjmG`x@*F(%3|wnVp@Z!Yf=nIWZ}giiJRU_7|$_CREB3 z*xudU?OlS8YdU9iWCT^V?u&bluJ5F}Q)W_mWW1efDr*tELvKB({pk+Kfl0kyXeuS8 zv;C$Z2578!#K6r^Kmpsc6AW2L(%r*z^r9~^r(G=u20*h_oSmI_?QjpUN2&>~Y8LbE z_0Htv-l4%kLk^Q?r+k<3EHnUfadm+ML(yvp6`VI*fg}+lloOjm2=Um4$=d%|PhnY8 z#8}}lsQ1=qg>kt04{!{roFTU0(r}pDXci=diJj=(wy9#`xpV0{k$Yz2MeNhfg2Mt!2egr+So`Sc2|C~ZZaA95u`n+YXa(7 zh^+DTM9}Go8i*=C!r%8Oqt(E+@r~<)3(!|pxr^0H=2c|vR_^?lulN!R%RgeOU^tJ! zC}KmYF}hMGGB^NAvuD8Wm89T31FZBu%vrZ)t)JjW`G*O|lT<6r6NeuNRAnKFR4Vf? zCmm_W-DI{4o61VY)h+l=hfFc`LRzaT6`LBJm^eH!d8n|c1hzx<%oO@M?MBX9K1av!w2RMEF51rd;Yn7`}fgzBB3Zh-^2$j0NJgvq*hYKk#^n@sMRN; zqR}t0Ctw1z$GIhn=R`RLa(cL0M3_{I5=D11VPQGeF5P}LL5eK7RP9nIm@#}$g2_J+ zqCLhA_BAY456Kgp-o^hS25DcNn2DmY_8mMUJ|kt`Xd!vU3=)wMTv)Tl&5-3~)}1@| z!XZEL*lAaQ?KGK)!7NtM_jZzw-cJr0p(Z6ddhxbfk+;zD?y)OZka+;^Hi8dWa>a!U zc#n-X5chD67u&PuQEV-+{j-%yw8tkQJYe^ha)5{yc-K&j_`m*_|MKh$FRBvu<~!dS7#Q+FBpJdN78a?Y zd+ym6j~+Xzwef283gA3re?cZ;yLD@GbBo2UHTY*ujq1TlyUR|O zAcb`kX?#CZLT|T{w8g2sx$0_8A8pe?w88nidwSh7ls07mG8aSMCU}p*lWG)Lm&9xV zb}x>MjEp;DY;0_F)DkT}oTVVhz;?hciV7#4EXlvi|2jIH# z%1YmR9gaZ&>NhZ#o+J)vp6Xa#0LE#v<{CCDjnGVYB!J>+DhClce)irb2^BMgv5duGf>h2@A{&r0ty@LE=(WvBe2u7D=4P~>*pG>iY z*oh;;lqqs*rfI8y_a`D@M)P_L#%|uQmVl#mJhBK;soo~wOP+99+bvZX$hLtf$iv<{ zTaB3tU~bAd?1`@XOc@N^422IFyy!j9#I=W1z%YV(D)Hv$sp4K%To`|7`OO;&w{4Ma z=Hm8r;yb{3eJlViAEv3kPV?e;09+H$>sXDn96tiJ00H&1HbL*mGBh#)8hhQ<)t;ZX zg*$Fuv#OfiWWP4;(|yDB*NF?mBD@{i7)WtMYdAtL$Xq-)Z}7y>S{bwf$j9%J4-@Qt z1Me8fCu%U-ddKYh`qw{r?X`E>TH01EU$N+>2$&lGp^e*qSLratA|JT_Gv1ym zhAp}&wgAT5GKwCgJr(aYETOs&LU>*5Qzoe=6aak|hxNc~SJM^IOHw3>*nzH)W%w89 ziraHC0P!=BXFaY*G%Tdmo-jP4?ywyy(zJ;-qMu@;fcnJAGnNs(^7>nU|9}0*xq}Dy z?VBdETh0$7iQDb%9h%hR@bJjg)U59FDd{Ob2(CxR_rCbbTLZ(Rr=NXMB{3i2FOd3a zCcbN@C(X^f)g{|M-PYdjBLsHeE6rwlW>&P6?<3ranr7IJh+?hSzVh!(Pm=eW$@1hE z(NdfobqCQs-QA3W@g^%qr5aqfy{*;2t*fc-=BIEV^DVJ1W-<&p)SVy$=Y1D>N8-Ag zHV_i33tQ0JJ%Vc@j3-FD*Ja58WWX*?YDtlb0U*d+1KOb5Tr+tHFTerl!2xnQp6`6j zNf$&P$%KjhgJK(2@47yvoxOk(4yK2q?jyb~!+aNUj;`XixV@asn`oP|$1?s8|Ahd; zsSLJ{e69*ED#mJO>xAtFF0$z+)u+OE#X1H1sNcexbP|u~V&)hcnJ}4tDBT6ZTk#|u zDJ$Ni=QuosN5zd#=TleM0w#cy>zm}UfMxJ5SKrds$Sr8JLYXMz_AUx~sF@ zPeA0fo;E=!A%lo2&UW23*Dx70meg@kG7D}eea3c95d`EBc*PINNIP7D@k}ikm%QPJ zkYY?>CI%3Jah?LX2|O6{ej^M8o`%NS)v8r*%grrNY>yyAY?mkFQ5_CS?T#Il($gj; z4$aPvbY(QltMXz7Bk;6G0?vBD&hJ6&5_)80-~?Vg>ReetE2q_`hHd18Kk zo)~3$7siOXQ;Z;huk-|HxF4k5znmzLkOQEVheFHgGoHXDs7^}qBYa~5`Q?yYHhgA4 zi7kkFZthmVzG?H8)oa&nFDXUhzxwdQ%vsolSfLg~3$}B41XTe$w1?{8{n3XX#(&H; zjpj51BcduRqb@7()Ws&zM)K84-l2$9@OHkl=R_4nkY9Z9<<{ob@WocHq{D!59qKJ} zM7Q$Sz%`RC7UL0rV$;1~>a2Q5c{XGxm?q?pw_;BptOg%bVQ-lG9UYyhduwYOwPe-m)ztgvFT8x{@X_Is zv9m9{eEjrtQfbIIrjM`I-K{OHIJQ_S)qQk)qPM>v53jHbcKTlEO)4K68aDL|RPB$V z%O?k1yg#ml?;<4`Es!6QA3c8Zz@dY~dxqgTb!BL12*P)Cv{Tnbc6z(J+8{V6&N&uD5^MxO`hl&Q36qx*V;8mxPxmC)v4~7wwpn%&2Cd0 zlmTj7-D74(!Fc2~ZeVjGdx1v^X=75wMu96?1i8&l7HGq|U56wq!n;#=qojla6tJ*r z1#EY+Z|DBIAY4bbKnAP;<2(hv18#2&;B*Es2Z4=1;1x_LDrAmwK^!fC9bsz_MbOQ% zkVJ5G8F~mjnDrcg#vTneLkxy{{l3s=Q2bcs1j=u_d?Bln9-Jfz}s4>#oQFl4*y2n~Vc(5~5D za7Ujt_zgvaABXXX@)+s{KS++Tmb=;4CCz84){6z*sehCCjv8)iQsRNg6*|q7hoAD5 zYx&Yl67YxTFkSwnuGg~$x+DR*Vg>$GR@%~pLe%=1(7@Ct9BFpI&UMn@v@Buc&yCVUcO8v4vQD9fPH5c?9l+-i}`CeTFe-Q-C=b^qMK-2sI`~SJY7Td+~OGOXuV5 zn>H%7QH-Pj_R8`aX)rw0vQoQi?Sk-mc|f50#K~8V9(#3q=G^Yx`}=o~S5?)*3fK1! zu=_455SAG1J$DPe-8K-jvvXowQ%K(I?18yC+C>U)nJ%$iTFlwvVyLeDwKl+US6UuE zgZB*^?CVhg;WKRaUBojG4aw8@u6}0Oa&O}I8|=PC9$B&kOAk?JYaVQO6ql54+?-=E zDthlG!=;Xtn^>KiETA5H#LwpuNLOJfS40t>jm!sA<%elQ*sd&6BpcBQ(~2;GRQ+yJ zBgtN&OiG6F=kVar?9^Osb&ZR#>=aJ@2%llJe$un_c95=@MOOj4!%JpaNQLB=d(tY} zl)Zqfv(EY#FZ5X#_a_F0oFGn~8-Av?AL9`YKzQpJw&iT9t*lTXk!VaClsPjuGYwC) zt#;P7o@i|uw}2Yo(BMEG)N6CPw>I?d#Y?XN&zE0)jP17*+mX4vJK+LaeBUYUuJ+cJ?#>R(+=TU5zJvUd zWo4+Bx0-XLC2e%#Ei|6FF?m6{=>~65R*>rnyRVT0)v*B?FB0uyoUHT;c=s;gB9g!y zB*E)EB{5=DfxTdNGOOY06dT=Iv@OqE)~!%S?3Fd~MXu})`D=jPyY7v%kZet;(cF2g z!^ugZeUzGn4I5)YoYQWSXtqEe45yF)WT--H&)x#L0N?94w!9gKcZFOf&`XB&E|53) z9B>t+Lt4U!oD75$Zo?o$4;Q0i;_4|I=kD6davF+Q3=eyzvsU@1Oh?CaMmJ7AY33&~LTrrN6E-Mv$L$8|JH3E9w8 zN|I(bTr@9ihY1;U81SZm(H`U6@|lerO$X002A#rdFvTE?nZ60n2W3ewptz>qTqcnt zW6t2+-Z#LR`*Taw$&U~QsK4sVS9pc3bSFl!QKygv_o}I(uA#Pyg3o6$-^2G=eBYH{ zz9O@&u-)3Tr0@}kql7!6XLbX5wh4yoS%eeRI}%DqW;;-VFj%Nm8DI<06d(2khPro! z5eo8o46#AH7r`=lI(G}Eq?aNGvLv>=+a=Mxs1OM6*p^qkb63r&Gq26eoSK?GH9d2t zuYcd}fk{%KzFE|GKM3}g~jwE#AjHCY+}|1o^*-9NA|p$6KlMff*w*_xNX zc}s3VQL)o}1ib6(VDC?CLPeJ?iD?=v6AUP_>Ql)WTAX z!pMf5HJfPl6d3I8Pk#Ozr4-6aN?B7P%($V+~h%lGUYvj!<;N3)UL!@hu+#&%YgUPmg_i?VPvBax=I;*yIcz$J<2jU99e{?N5{rzW)CR9_2GAZ z^vi$o*G4Qd|VtCIU ztCy@ih3X`}xw$!rJvcBRFxuYQx_|FpEW#rq;UKCb_RfUu-sMm-2W}C2_l6Q`3LqQh zl%S5*=HY?eSeypO#E?=xk^P@wyTgP5{4mx;1F)btlVxBpehz-kH0&K#gIT{eF@M_d z8t3Qot#Y@(Fi`IV%8W-pAG-_3%6}Wz8&R0QD?7)P39J|e`JJ>2;hoQSa|Jd6*Ypah z$N#0N!4rvg2&9n{R$zS)OVDl9*=d~vC}lESLJ?HUh*B*_IWuq@MVA=q$kceK4&gl- zu|k}d9f5lLmaInM+$%hE$L+AuLI&|~3Jyu%SCE7ZLR266nFU^n zY|C3ChU+#m#CA219+N8NeTlBJh~Dx#*^5Ggy}O84U^|UnHoKAnrG@$Q4y4^~dPw{D z$l%nziGluJ-~->N!7^poSuL-*Gzb_s?9F{+-U#$OBRQY|1i_ZTb^-CUMIfuC!Oa)M z&+{OH)SwirGtH4Zk9XX9n>~H6x#|xV-yNoq1{LtW=%yzheo#IQoM+z6l+xnuoMCQM zOQUiKJK0CZlyeT!nLOB@1vRd__8PHf4GGCv4PXw*!MXwCPXj>4h(CR=R}f~v9x$8s zzm6G;1LsKpUkAa!IJ7sr<1`4I_BGHT)Eg>IAmoNkHoXDz8zWss5#7yOq(pAtRa@I~ zB|=I+ec`25J|!9620d-hBg6cqV7UkcTcc2W=4&1zs^0;Z@Gh9;@a9a+}} z_wXfC*s5@DzJKPp&t?*h54t6DpE&^Rc)Pwk8_5pJBw5B7rrKrL zj_L>aCjxKO!*H8`bAn;JKjAht(x1EoNRGq1{{1#*NmWX~4%_1vQ`Bi0LYP#_c+tFO z0?ZCGVxYJCyWjn;TvB6F|7v8-#rzo^FxDeig$-iX`S&q4l4UeK`uh67vMxBhaCFa} z5#4d>^f_Tl8n|E#DW0Xq;m0N>re^1kpE}dt-tMy(FTMWio9|tE-aWJ-bjY+B8yY@ zTJ7K6+uLj8uuUR5WOKSY&_>z^`uk_5XHK3tb^7#~BMV1l-5~AWg8Yzt*N(DYD>McN zXJ=+(H*n>28XERaPBvS&g}xN#LkTQBHDfd;eMZ|#o3T3~F~t2i4MckjT?exic+WXa z9`%dnsaN_y5v}0upxXgv z9rp7E?DhzOQ8KihK%#*{u>FZgzN!ehbNHxo&ymFd+s*2_Y$-0>28WGc*v>KVy@17C zxnI|J5#|H1f@0@TX>MP1v#Kd~+Lhpr+bt4-)zTCLl9;Wue95Dfb)f;{7OJbB;j<2L z2pA-!2iPTZi=0;NELCR>V^_jm-s9Nt?gO*?tucl?(J(nVQtaV#c>V$JJW2|5TbF~ddct*L8HmIf2Jzv8-HZ=>V)m&xUGJg`3rk2?t$fk@ENu{ z$HWJls(fwQM1Ay&H;brZI=y|P3jyq>+S>; z1Lm)v=D8wZ=+?|pL&wrq7*09}s+v?pu_Q2wFfPFu5Xo!VTCOs6v!dz3RnbqDE&x7o)*^V};iTnfDd2I@mg0zOcCBz9;B9=$-vprk@`x+4-@cxsZeEPLFUPl8|NESZO z`+PTeZoqoZqD6=%SvQRkkp-neiF=Pfu9PB37dCz2#h1IgdpKEbZEb)Nv>H+7MPF~P z@k4HJ!F}!0(c0?L3rCLq5C7(W|G`gx_0BiHBN?W(wM}6ewi~$!!_7MTh*FUI_LIkr z4CGmq6LjPFRzFF(nVmaeY(ak5PFIJe$gN-LWTOJ<;^#u?k&!Xg+T{kAK1>7NOT8g+ z2neC&VyP&46eaL8CMHgwIs^Pscjx=K)q;Q>fk*GL4iQ+7yLb0{UCa_0?(glUWr1Q% zO?s6xqx2KRCddaG7vwkA*NK2acIN|z!t1@eqv@Jp3sI7C}E3D1yXYASZN)YsHj z?Cfc8**87{+b!@n@c}i;A%RKL3!@kkTf)GKmKKIkkaiS>9U7{PvXn7}=q&z@2eemr8Gk9<)|VY#_icjF7#Qb&e!lwd5gBh}B!+o8ahK)KVIGN|gc5iFycAV))eT4dQGS6+w#zhxQK* zPt`R5`4KC;$Hopcw*>u}nw}@&=_lIbFwSDO}j;D^8EY)K83@- z)YxmFG$NW|H6sP&`6If*6Cf5=Aa`r-)@`{uyol(&gO-!|1z``=)lsY?QkIs+UQW3F zV~;V=uwDEDXv20Ef<$8y;LPCtP76ivjMYX^5`j0E>DS^WK(Dx<5M1{4_Wby#e>Q*U zFe<3dSR^{8jZLX5AUXqTNDkFGWoZtE_Ac~eY6DqcYG62=%nGmtsJ>6Rh*wN}!w;Nr z)uD=m^A5(%`uJ0X4$}*Uv;6UgAEt{QTbO_6owtT|_mUr(EkDz5!~_f&j-P`M7^5fR zHDd8m>fhK{DrB>4nfyWOw*<{aryCRcqyYj7K#i(-#jkd^ElrIs zOW7s>LVigyUMCtn^UP9aPSQJW>>|1kkLN}JA6M{}M;{c3N)uN zy?5UB@csAV{4wg*%hib@_VNUniCeARUUV~lPIZy}1px21a_7$584goGJr=d{!ML&d z#A6RjtwGDl?|zAG@}#Wqpu23|2-2~4kK(85#;7D<(;4d!3b*Felu;_qoqSxrPT~9f8RR2?E!X*zSjbC(||#n^vr_EG`x$p<(zrVZklA zPdDsfjJ)eKL*lbPQ$D152iU#H9LNt(kckcux-D|43V5$+DlMxliW*K8)zyvp1tnPd z*w~b;Hz#L8uGWLJn#;UXndIoPWB>Ty{@V}#_|tEG`(qWfG*m#a~Rrn%+J+2?-r zlb?M2-S2mHbi(%X@(L3lEz}+A6si%4OgUh<8^`$pw$lK++!tV;VSB*1_|c}#Rwh8} z1ofQYcm*wAwtPiFVNrfT(Y8WDYFSNP!^+ib6qR7a1KXLd$dim{Jbx#k?+M#~*iz?V z01na>a%4cYs+cwHB|D_c=4{-!ql7K4LM$;%NgWQ}igbzL!NLFV5C3rS#Y@(u(q!QF zU3c70hY75v-B=rLlLhMBt+8>cZf3QeKy?TBp#eP+MW5s(NMd)g=U&H%WbHcq>Ct+b zyV8mhLO~YZLiBN}2-VrJMr{4T2bt>Tx*9Pr)V-^{1-4sOuG9TA=Ef>IvX4ir>HMfL zTOK2A9>zSZx{a)-sVN(F9ER1ezxD3)Ok_EBciTRD5bNgIQD7DhA2HyYTbe)q(I=;$ zeV&%$1nqzL$kFFtyx7^*h38v~WFYtmY=_u}x<`UcbF*4=J=m`h3lucG_U_&1@|y>iPg)B@h9Z;ig#6_!RlE7 zi_TmDR3hs0^M_IQhy*3A-ly8zTA72EriQUS!+>3P(8TaG@lzs?RCrbuIAdbguCk}z z3T#&pFU2%rIR1oJBmb`EQoh>33Xo_x0!}k|>A-FVrOfcZwyF{AGr9@a_zdGaxV2KWFdquQOc+p3DL_BPf%EUV5C{P@bXA;_c{#I;vn z6}(;kX993Nn-qhXiU5Gv?uW3{z8%i9FQyV^9@uU-Lji3IDx)xUC@}HU3ItqMd(mkQ zA{7V`}bOtM>yV#*=i|_~)rDS`V1S=&`m7+oXMTb}eX@Jto6mx>2@j+fpsssht z{UH3jw|Do{{#nIUKK+wloH%iETV8%cJ=5BxgcO7)(O6jWcmMw1|G)qEk91vu>o9XA z7RM{|Uenwx5ZBS$+t=CIrD@p?y+%vG+gT)ujoFu`w*t=nDNZVR#x8q!ywpb*q$^vR zinMPp*->0lR#2p!a`VcK1Mjy9eB1%a6N5^CYum>5EU>>@w42 zZo3tA(bXR1x8GzV;5+XyA6Xfwp7DI1f>}wQ7iNX_xR5xkV5@gc6Z*V^;oyDy^Roqp z_ud2E2{O0bbdzgBdkHhX8n$z?!8p5c>!L;ITflv!PehU=Z1)Q5^Qba4l5ie93F-5!G-1;FAx(_amw1{r&yK%J)9_`235P z3X2Nq=jzG8VJ-mBCeXV1PLdhONJCqWg6hExA1uu8Pzch zxD282w6)?8RQIuw5rE7GOUa5+`krIVXu8hu(4b36l?U%2nu-GaGl3n70zCQ&LB{Vv zT=Dk!sb!@gmlEPkyq$pK!Dl06vu2HZcIT0`n7_@~VCIehtV*Le-l-*boxSc0+3 zezcdXSgJ)9#(|X=_uuP4=9Xd)=t9iKfK#9YU+LB|-W?q29X*j$?4&=n>o`u8nR!U|74#7+ykchjQ zo55x`Y{2Kyb#G-#3yuMB{4)&5S^8bq;N@Uk{u^hCSFQm)X6`vsZTd4>@L#Jcap1SJ zQ}CHJ3}@u7$lQRKxiMwaugSP7zm zyu=AD;7rdqZ`$muB0u+;Wx~ZEHN77EpWy@M8WUGX+N0g%M@H_1blp-DbaZs@%=G-R zW2b)nCqGBkDl04o?84ZUFhJZ$E^`MDNOXVe>+kRGAE>IVGH16J77=9X>+Ou$QBzwt zFfin~#s=(ulOG4MCDg20w;qcZO~u*WGXn+2-M=#_Fl*I_AgqULmAiDAy!XvT+e?c} zc5E-(NtW4FQAuQ%&rY$CCqs5t?497u1Csp$+szsUXH<;DwV`?_6_SfMcl5is`Mhyf=%>}+NYHh|jC@)4h(hkWJb&pjf z(B5h_Q^tG(@1pW_7`TmwfpowQ(wS}DjFs_i1z~-bQHbl@afc_!K+;jel=#!G>nNCL ztV_xAW$_<;@Bu%iaRp7Z{ z4~adoSWgN8fP%Cp!orcGlo>dmVJ|f%mh7OrR$M5ljhM!YjCHJx6iZRvNP6isX_|3w zE0w^bGQ7Sb0KB$V>NqHF7Y%4>hUz38k_%@_XaLiIoCF_V#AQbHaW*E#V<_0G<$>fK zn4P7uhpAoi6o>}JQXgGY9G22fgwd){T>+mA1Tgc)x*8HRmTqx@-xa8yO3+}f)M>gs zpCMZk1xx^T_z`(qF?j)W>tA}iyQ`}zbcC79dAV@$Ww+`ycZUf3QT}JBny?&qeo9jV zw3L>xy}rIi=ALd1NYsnAcNqk8Om?cXnZKwf$g9BC;x{7wB?t-H zWif(xlQiS-mUrU8z?|Pn&O)4^zmID`CuFFe*+kxr2n9z(xxb#?fqnZA9z1mXdw=}1 zQ)f$yH+@BD;LTuM!l1nW!@|Ge-eskUyzIHCVBO2%JPEjMArVq!Jc;{ZZVc%qkqhck5ZbZ`v|LL9a6dELtFfqmP8I;C&z*na;>)if z190YRZ@+i!_z7noJap*$pZx5dZ+=9^F^UY5@$rdY|K;Dm_U5~9z5i|Oom|7XLs3?r z0s~RuDrDcagQKrBiiPvJNR_b5(9keIqv~^JK|bm$vMItKvjoE9%&>x%J~}!oDEh8t_0!7H2meR zIO&WI^PzF9JT(A(i*bSmaO;HEjS~+WYU4ZBS0ck}qjTt{&hH&c75GykN3HQucd;v%qiX!`l z8B`RiKrnQui3tZNvG6?jUMjap{XqFZC{hPhdA=G@`XV+(S69%Zx3j}f-k!g;ucNiU ztAlN2sWP_|J(!!`w|{bU^|Gf4P||5K#vU{byz7QPyq+5c+m|TxkknE45Pka;{VX*0 z>`yuRBsgZ>I5PVZr--FDZr;7gi0~o@1Ofx(__15mtXOTDBk;R+?XpvpHKiNu0!*Wo zAeYQtYL(m)WuYjgQbB$jrZk1Mq(50n1l~0PX;~R;#>&+IZ|dJI#(HpO_RzP#|HDJ` z2WgqZ!!}SDM&{=aAK$xAHK&7Jojqcv(A)K?@w;{^64GwLqpj-k_VS9V-2=lF6_r3+ z_??8}A49rxSGi1e@J?O=^$yrhkPmfT3LnWPhaZvWF_g4|0@&_Pk~>W%4#InJv4Dd0 z0f;w*2XopmqNR)P(;7>jeDa<<@A4vZW>nzkqVx&XBgpIUiZ!ROU6!NxDKp1Dk}VhC zhvVFBe*s+&idHpB9_*KHC zO)tK5`PAvNhJl#FdmnuC!o^E7a|aA93xWh;?bV_D`>~U!r)Fl=B4|NDE%YwPH;D{; zz#j3zB00i=r9gnE%v;p95T0r9mw6|=WuB5V90ZL}sv}3GzPGmr?ROEGEszjYg5ur% zebBzQr>m{C1qe^N%Gj7ZnPW$f9+;gYqj4PA1%?B#t2W~oP3_;`gizMhh>|1?q-o3M zO~R%$94dz_N3E@?*%V)N>eQ*3sVO<|LTiK+k4QT>MfLRv`c}T9ly1B^@?pXrVe(cD zTR?=gOW}_5RUQZpbS;MtQ3n)=;?B|%=OBb;u3nah=j+T_gPT;Vhs8=*5O&9RX)7oL zix>hp57=FeiO2nnA_q?`4Euu*5UTJ!5C_-|HsG^r<#J&iZ~~OLdjxZ&-H-*>xHka5 zkPNm5}``kH?9 z6U=>fS*M3$WKWiq9s}Fmk4JaQ=s5VZusT!4xhJp-U588TfCV9f2TBxSHc*@j4W;jo?X zlEFJ*m$WENeS2wH%6{4ECde-qpK>7lL?FFt^=ensKl(aj@@cJcPSN%fXEO@<1%(U~ zeJPCc`z#f)3KfkuNmYySHk(I&Wxg7u&;WT0480>}QU>vZ6J0uVd6Jv$& zbPV(x@(b!9^V9qHA6Zy9sVvT!GqW=@jWi{De5g-dTemO$^Si=wb;hn7YL0<-k`8kN z`N2DdM1eJQ!Q`UEG84=Pw5JS_Ry@pJFG0>dF9DUKFV@4N5jwQ&%9BqQ+Xx(GR&7_G5s zBdkuL&s!u<@X;hq8BQU3=WG@?;XV+(F$Y04JocKauEG_?Yf@eL3Z$rUx9Dbv53*|N$%I#vMk5!7BxM}(H#LaR zi67_AX&?q92b0h2{yyhftD`+-L#dCYR|g@WEp0T-OP7b3HN+ z1WXz%>JB_34ofarw-$6W;@Z=0I46!BV+L>(1rX$95^C43TuvpFXSK7W_}uA}-EA#T zK4yFRSb56`>M!@k<}$|&rN^t&-W;~Z)Ji%Iw!?6D#jG2CTsi&jb>q?Ra`PS^;>lxNvyemx3PTSZKVc(f(Zo(OpWxoP)Xc$Xw2ajZra zZWNtRQ5;c;GG31Vyx!kG)X`}}oZ0;|Ghci6{lEOXe|!A+xtX~m2M?Z}pFcM^I9^xZ zL~vEXpuD^iney1)E|6tYrv`YAuG@>Vskx=2t7l?TmPHeY2GsZ=;RQu6EZSbSV;4Lp z%UFx#)zH?r<`K_fwQ^xjg6;0jCn)eb1iXWF*zR`-yvBmov{v^C<#yC|UbRXIcO_*W zGMyfL01i`8V7s5Zy;ybPN>Ie75G@7la4ZdhwRSUs=M1b%k#2Akn#WU5JcTCPei<=| zFhNN77B|URjrB)R9kw&Us36?NrX1j%EQ4{G$U2=iL|q5<{?7z3*&yA?xE$8HdgXG@ z8F&4Tx8wGrsK~hhndh+mGlY+&vOr$)!eXo8U``@_O!rol1!GpO*5nE&Io38>a~YNP z9k>BvPrcDFFobFi0QYmT4jm$=zxu{o=Pz75ckVfm=vRx49zS_1!+G5PJ3svNZ~l+} zbK%GlnFgQy>2J=Re-Vv8b@n;Qic}r3SCcEnE<+AAxk7dE)dat_YrW2HdePi5MBCch zrlx1eI8q{+S2z*g%E}dnEV@hjHbY6@qzn+pSa=0R^zp197=BKfX}40TzklE4h)niA?nFHE8Nr6F8cFf^q zS@B^SZe1h~P;gFt6L3v$k^15%Y|Yu2ITWNd?uHJ>;YC^}CKO)Ig~0fz<*rg6H7H#y zf)F{8_vj$MfOlZ-@iUyy&%@qPcUnzjP346P=Z#W;CF><4t^gTv0-FMw_!v%(JRpCD zhj9YdgS0DxnhF*%e{M+vhk*q0S>(hwqHe#|gYSUSZJV%8!1?KEWY1Xputre=R(>-n zl@03cXqAoM+Ej1o$SLaY>1?X2zHt88sfp3w|NQ5*714>@BaEj30XxR7JBVO_{mLt@ z5KARY5%SSL7#;##Oy?&|4Fkqu3iuOrK=mvQQvM2a<9P%GEvSz&aVr2HxYHV$evU$I z7gs1PuB<6npdqrjVtVl`(f*a1E6eZ~#DwBxb4C1+^NPwU&q?1P9g50ChRibCy1IM1 zyZfi7=au-o{I$3K@_+u{E?<88*>jg(e&vJt!_Rhi50hGV>_oy=s>#SG-w|wji!c`=lX&2!~nbb+05TQVJs7 zsT4<*F4Em;*H`5hC#A<6J9+ZC7cS62K)Mk?CNqSDK8J^fcz1|!e}Df^{_I!Z`1W_$ zJ|fJ||M|bh+Yc`s6ZZt{7{KVYstaNv$nbcufo?aq<-X2j1d6vO09|m;0E5I%p z8-huvLD9`?%u^5n_5xeeALdi>LTTS*d!WKVj7=MfX5phL2NZi)KgP93&O?w%Faq-d zuM8phtb<4yA-#l4Zi0vTHa2vq@x#S)WzA>|1Yr<5NjbFs1gC@%YhMs%vfT~WUkBCY zRs$B2uewAlmoKHONY9qzfqO%80=u{G1J*XePKZshA-Q-9dSmhwVPnzBS6>+$3}x`n z@$^B!&Ts%O0*iVVlo|B_RxG6uF3C|OSJj>6%d{<2kw4VfSaO=S6XGk#a(|af1c>UGM(czOv=jHsvZF5|;`M~yw zrQS%8x$Y~GiKJ5qGFM*lCFfWg>^5kyW_lp+iWQ&;wiDuvKwdxA1v(t$AzUbOH7PT} z2x2!24U3~g*=4M;Cb z>5oamRQRxlz}_LE)!AXQhN4!SnTOZkWP(Vi`1b zM`^of^|f?rWk_2Z8@f6I)d`pcL*=u?8C7`!?}z3W`jqyvCaAU+2&eJ0+7krWh_Vre z6JR(pOxOYAKl|mseEYo*1v~{(dlUsr@NNPkW#AXK)60<%tqR*^vx8PM&d3b+*}~+C z3ha9C-hCAn6XvsN*nF6e)vx96hJTyR94v?2hnV)aKv&GDW%o)il(72clh4e|&CHnis6NBMsGU1^?$E)5ue|cw?!I2Iu*%$ddWkYY zF6i4`GnOV57C77z2izKYu@uyaalg-ZCUbBGG$xL|`7mW8JWtG1540jLWIz5d+;iKYvi45i4P* zG4E&M6^0>qQlkO(+R9xGN>A-9wS36{hUW-8jeS>1VMA4UTVvgDf6s;U&&}-HYYYQ+ zQ#BNsP4^%_$$3W1d);k)V^>nf@$BKIAe zO9?h6Z&X2a+NRB+O9(wg1qS}Eg{O7koutyz($>(x({1hS>an%`;P9To;nCx#&cE^Y zH-GYrU#l@<^PRr_(E|t1zHs5|&%f}s6Q^FBJ9upO?h#zQySuNerx#5})K!8V8QV8D zv48H6_}gzM+tFL^fE20Hjq?hQzb%O=;|aUlDEWddc?UlG>UEBALDZI0%5(95jm3 zN`wboAv;XBd+v-KHyq$SqwXNxjECr^f`bLu(cp!H2G{{32}K-}lEOFC(FUZcf%#-^ zxG^C10~vUuKI<*xoa(_(B+K9=Ml$-u=N0v9u#LgaGDoZA!P@G<{yuX7?02-b*ufVh z$|~&X>LgiocX#gHyZ6YEEFo+WfY=V9C37ci17zL{4N)+;3=qL98L8Apd8aiv+3}CJ>5eC172Z4(0h?n_6WS= z^A1tfu8wvJ53NSSdNMSyJ3_6)!_YvJGXFd}^w@Q%C1i6~hK+@JTm2S@4ZZPjF;*6n zARk2Q>8GGHg9}C3Sz@)Ip!+3W~*{xspLNOo>JgaTmaCGiUk`>KRJlnk|&uq z2rn5%RFnxI&RfWD%;5j@`3&2GdB)~_mS8*$vjDpb`e0GvHZ6wXqv84o=gap@Hs>b}r@4 zlA_Mm<~@V`qr(HkyL&;U1D;P$jGR4r^o>_9eeb&;DU_t~xpJ|tp{R(54&-@NrV>q6 zZW7T<0}?jP1r1)gb4SIFGHD_j2REgHCKP(_dm}9GN4*ss0{ei ztTJGi)UGeS_{D#EO>DOsdtni451(*{G+P98TYBa-9v-JBa{1P925Iy4=tQLa^l>na~Fa9f%&7g^+38!T-7GV z*qjVUJY0-*s+e#hw#;$4B;%z~F-rk1!m$*hDip0XvYd zvn5u2?a=Oi#Hp{Rt3&!`bED@NER+MAaPGjNL&r~^dH=)jw<;x31;Z4ijfD`FQ`5#} z5ddNO3@zpCbLW5hXTR1&^h}@X?(Qa=Gp@25dwP0M3-C_=G?mO0Q$N#ZyoEndU|h}2 zavii>m;<>+=Cy-gXP$yGdb>a{aUMR;Ok2cxaCCHhcxc#Z%n^J>4#_Xd4)8kwyTnKq zD#P~Rjr_p!az27!s{&$uy|FfylTLaf-~e`*F9=J+!Q=sjCPlV`8-*-WtkL33Y3Mu4 zNbXsI<*eWUh}M|atF|>aiK}X7j7tIxUx41l7FasuBSa*;lqAYzX9bIm2cJdDNx=-R zui#sGC6wM2VOguxZB%_ew72dwPw|oEIiQevx`kG4cKE7x0=;4EBPn|e*eBtzoBhQ^Z z`P$`+@4WRjP|r=UmR6fErrH|_Yc`gY;z5QM;0|wyY8^$1*Ft}$lcy}!0Q?y^@J_Ro zZ6b33l4JhpYor4PDcq5X&*-ZR!4$@cOp?eS>*%n)Y;1IosPjLEdv0i|HQtP)=|Fb|4SiU5X9j z&Knpo+@$s=C@}ZE5~L_4V|c}s!83^r<{hj???YZz6(MCv!f;Bw1+h)d4OP`hZY58+ zzP>>ulx4t39V=EuiQu$X%zDF(pp8ow6sT!dCjl8<2cF=xy}fH_XzakD@~r_N8$Ei^Q>?JTcqXtL&{v!`#ct)m+PgLnCl;->^0 zHNT|B5M*FG_W?i)r78v)+3`DeKKayBWEqDZleXgyS>RlbouUNGS41E*gm?KeCF{v5 z8#jl2sI1aF6iQl+<`3#_$2~Q>o+98p$X1KJ$oO8mbQwY32_eg@UhOTJzjxk#2OQP5 zmOD{qq{>*(W}9Ni=8c;TdWJqN9TTz3{FrczeQjRTKMQBPZHg)R!*3@#Z@pUViP(qeqX)5!z-u z^^F@xMn+GZIwLy6EmmH@_DqKkFFb$YB43U~MuGQ_LSnoLzvAJd_5=ipBIY=B!h)a| z27c+)H%CUtyL)<6jF)?9VY2HRx6O@>{1iVbuzlGxNpG)|wBvhy6CdH={LzWY{cu_; zxOoTOiS4kurLhsh)9ax+5>CAV=}4nU0fhIbXsNdV3y^Q*`_zRxV{~WqT13h)2?$SD$FW62v=2Pjp?Wq`V*nqvU$8aTM`X?t*j>cC+Jx8UQYfEc z7AxTHy~iza6}fWs2Zn@P3`~@!hUXxKWrj6WUHzqt=PzD({?*Gb zU4H38Q*D)$LQu(ksG1rvn^cXH^*4`LE-n%WhxcSgsI~*x&7ws&-gw8Y*7~{Mn?R_5 z5il<+D>Hiepy;1JMf4o<#DNA#kKF8{V(v1>KRa1gFxhc*WEi%K^pII)FHMdNo;Y&w z-LJp?&2PMIsY3?r2>Er_Tm!eEx3HID$Zj}zyD~dB-z1PKoa!8`-Xm;x0&su{M!WS> z0s*kyl2Jfxgm_}Id&S{TjS9>ersUy8HOPpPZj!Sd$_q=?V5L}VV|8s+aY->W68Z8= zC5Lz$FLm&&VY}>Z>n@oEH3wujNO6%(*4f#o7=uMcQX`enK6?E8nRBn5KK=Tcv#*|c z_TroGfB5MyfBnOs{n>Ya^s_hL`|zVb`suI!>aYLyKmOk@zxF0@uB~g_J+P;}qr0Zg z3~UW@-qPOE*44LrPf!1FQ%gr9+tJk4-7{EKW1ltqI(18)k+g1;sOFY7&sAjy>9F0S ze%M}83ics3sK?8t)c8vRJd03Pwo@O)O4SV;Lt z;qt(Cg$v?p&Q6>6`K&)N3aG9hljs)~CDHhM_|6uS>RH!E70v!2ZuFg%w$6+NS_Y(f z9U1RSpUwj1dYq<#^O(`_AqKfhUy+JKl#5*;#X~>%-~$e_QN))A<`$knZzL0r$fic) zX#(mJ2rBh;cOva-O~ZCNe1Bh$L~(IO@cYu`*GcFfeg8+tjvuFQ5FeNuMG5}mZ~hIv zg+qj&A3JgC>+gN*Dhxk!M(yQhvs{Gr8t(y67k$zq76WE_~8gYuR+G*^vs-NcJ83Zv9Sn=5`54<`CBmD z_d#{H4Z07^9auPg7*=!e=r*vOEaNR|%%~Xa*cj>#?Y#@+@pjmL@W25euX#MjjsHKQ z?gPlq>dX^DVG<6alkei%n&3H0we^8BqR_*Ikj3jv^wXUbIv)drB+Mb$~hr~ zga{%C15N`N+hfn{+Mbzj_nWGnt?|}Y?e{zP&UmTU*H^dSd+&SSbI$+yKmR8jH!}k4 zPhs6|GVO&{6SsXE)jhKGLgETP2uY4)(Yy@*-BlwF#>oPHqk9h9qg>tVhDi*?>z=S~ zg4dDIu%3{?M*B3TK~5C(W*wMj_9Ym#n6-1~%=ymEH$yUBfv}4kVwQ+O0B2|hGeJ6R zWN1h<2rXg^%we6tA20_cxH=gDwqx1UF~H6ikWCmb6diQmErR$xdF)!gg#M5eWAKjB z>y$z?@XAB?-TUNYGbCdZUSK<}E@y@^gYZN6nbWn1F`4gy=c-MqHv&r!KNR-DMw_Gg zLc*pxM+lPAi&@Xy+$@E~%yNP8$jSQi%!KeA?XC5-RRy`3&5gCgLw)-uc4NiNguTOk zQB>QfO)*T6+;0qtnrguB4;y)-HyjvfNTDWsn*31R;1A9n7E4hjMcA;UB?~;-X0q>*M=<5K3!W;I=O%E#Q5kd^PYp`@ccX9 z3Ym>S+o8${WP@%QN6a6OhWCWeJMHG1Zj6F_l()kWnoQvB$ReR7(&m?wj;mYp{^^mV zfE!vhz#*#1I2TF;p8AqbJ|Rz2hqAQHw9VT$2{715KF=i2%+e*@#e;png$^U`tPD!- z--h)YwN=pS1GdMkwSeRgXUm?jP!_$mY~!ZwIXQN&>~3lvnb?2+?4=Lh{`jXKfAQs4 zfBfT*KmYQbA7B6RS6}?yzx{(xt0PAK7vuLBh zq9IqB+SJmb9CxYRG3*=^cBYt#LcjU;hxjwikIbS8fW(vPx_S^TV>Ui)S6yhC5J)tW zY-nr&<8))bh9HrH>|iaCy&GHFCCxT8waSzdabYZ23NY@k)YLEwrJMzx|B`CWlF~97 z4mUx9z01?foyG#3StmXMv*J(HRW+c$sj;b}qjP9*L}jcKF!@dEp?|FNWwQ&X#%YJ#oqBpwyeSVCQdeq&AOx6T6`XNMaIa@~1F1WE}cH%f+y zggL_E0ld-eYr$GbbD22<0voB7%a^eu2ABi~M<}C!4bJNr0Ga7*=sE(=4r1)cIYCAV zB>D}#*&QZ{h+qhOuSZmY_3_R|NU+vwXZARa;l<#hOCn zqF7Bqx8wuRMW9<6o*9d|f_IdiAL>6uH~IwHBN`ylD^4>{>T9bjiVEgGH#c_Gil(~i z?vA#X=RJ>#v!VJS18wa68(;sr`ya6Vp$GhS*zSVeTSEZYfxi>H#R1#h5U@b73f1v5 zjiyA_&_*V3bu(~wNXzpG-YEbi1!w@?{V3Ru2L@G7wYZX;#jgp97MGV~vZ!=f51ka9-Gyf1HzDT3_Fx z6Ig0mMq+Y$TzqPBS~j}wv8c4RxU4oYIRnmng!##-nX&6P#qHEvW($#@IHSOn8na^6 zYB*1X0r-)qZY&ND+m)=UgwmP-nde8b#?YJOgwsp2L2qY1_PF=1TfZSWEsN|kd(P8B zw8R-`Z=j7kFNZRt7Kw?EC^Pmkmy0WRYn~^t+UrO+ICY1Sc4%xJ-F?TMr1c2DgYEV- zU#BlVkoO8ahk*vjkQgkaJ)k<${y^9~i~LT*=PCGD2OHtAq?`aM%`KA*5i@G0rRWJ% z_Xtv;dKA))KIBn2CsmTgj|i=yd7G+J3+L69NW#AqMAeY@Z(1qQ;i3rPtH7&{vQ+ubpc?uRQ#m*q}cC%GHD2#=B| z^(>C<=cDUxnxEi?%UeRT<-ANJzV8<$0TP9V~i0G%Gp&_{QZaC2P zUdo$cVl3QpL>)c{VynTzGeBCMyKz~9n8RV;BBmS>i^AsJOu&<~q}>J;F4TC2z0~jW z9&><@ZdxLTQZKN2WE_%E+R=DXJi-NxmAC)-FGNT4V)av zgLnBbFrR4ippJC(>hF9TZ+Cd^uRiyC-@X~)_X?<=riMRJ*^-w2XfZcRF)POjE)Q(IyBYM+Ni}Fj|2S{Am9|B z?omx9T-(jxg6pgs{4~iKDgLPgU1tsbKr2P~Ca8#teL^)-D1eb5$JrEKgx+u)VpG&% zJ8}#CqW?wp_E$vv7QN~f=Qz_DA~?Ed*H>5A*DpOOzNWIAFYHQ4>mC6+`RkkC_(nMX z^Ea%xX%GChJqHOgQDfvZN;`Nb+87Z}w5DMSkw(ak1e#ZHfMaW=gL>C50n($Xh$SK$ zRy}3--~9SWzh78kNfMXz=+nq(VUc&379?4%qZ;Y880oXO$(g_s)~y0GP4Tv^2$X{dk6L&K5_1Y zpZ(&KFTec#zxsd;wrj&n(EvD~0W; z={fOIcp<856se&wGmA~HkKLe#fGHu-IGK&`QJxqVk5R^M z1d(_DbU<|uLImD*_YDL-wE3F(DD9834cPgQGzvjROrGWsr>t&^-@&`2_HSLj{u$*tdJp$~D7KUajh)=MmURh~5KuA?T& ztrKGf>4IWJo3zvvPjGlv48{`YVLK@v@>f?@0&}^hG*5TfjY8Pu&&ap*6L4no7X${m zL6!;4^Ld7|@zO0D)+6xfJ*@_MKWj%+J6W$;1)`k~pK0kKSn|Z<#z0KO4X5GLULZdk zK^z196f=GeocApvGCrBC!A+os893h_6sv#17yk!?Om2TDTeS)eh&)ucLI9*lb~w!xySH< zku*q;-~Uc%RcGR2?2<1Ld)@+$t>T&>^PH4j#njRx?OyS;d-aT*K)*}7;7E(Sn?uUt z`WVxT1}~OcU0F8J-!nQgII(xPHjhM}2uR+905e;vqCAn=NpE)z0tyV1TOlj}|L?wC zAXo?EyFk61BD@8QAnws$@KyZHgq%KoIwpmXz-lZVZbNnd1yLr_iImT{N&k&?>wt@C z>KuPXHWX8vgf*2Ft<4SXEe%q4r15Oqv>_U&c6)#L{aaiTZ2zmTeNBF&yJW@jDE^G? zG#NxaXf=_)dW+}!$#6pqou!Qgf_cCKj4W%=0mcyk>m7CXSFc#?7Cp2N%FI(ZLdc3- z9&tC8Enl`}+t$93;S;Z4E-tIsbKvms_`bTv=ECCAZQHl$EyMMgHEWi&Sx`_c&v3_% zl!S!L`1p*Jl$?ab^yHMRqM~XzUt8C4@W`dMj)D4yuIARkiOKV0drtHZs$M+QJ1{mp zw&(qy{q*$3i$w2)#Eim{>cZlRb62jXW@J^?)R&gmRMobWS2g7qS0|_CWMmhnq~*|L z&~=Pj2zB+^Sc#4@BsXmi+3YdvVzq*yx?}GGpwRxM`7bY723?lPmVxk6*#$l1JqiUs z``im~UND4Awt9`tSXXLRU`)|oy86OJi?{AfiA&1L$SK*dc{^ao=N}JJd8mGJ)7&e{ zjF{w%hjmAM6a!bn0=i*4N+0ll?p%L$|M`Wm9Uvp{fYyPjDFJvfWWN(kY?u77u>kLQ ze)NcVTcK{$dPL)$;1RGtg3|k(d+xE284DZ?jB~Y^SdvIw9KIQ33i$xxb0Y9==>HAa z9|^#YUP^JaWH|d=bs$h%S-E}F2F*p)33BS$mAh}hO(Fq6Fy}*?o^6zBez;`i81p5yevODiU_(?M`*|%`hf|75mqNnDNZ|}bA4j=Bj#Bf;?@*Dz>y8<_-&VT8J zJ8!=YynuIfF-X!V^z?^beEwM<3-AdAU`M^hw{QNIcOk3&I*zN zGN;KxjPQR^*Z3V8_Cf0N8m7F4Zk!jQnPjF6Pkj=5-QSAlTBLZN=f}NpznDYBa9u|PJ zB480Y6kd7$!n4nDJ=iH6D9Z*Fes+dp;T^!aPYPQSf(>g4$3 zf#3e~|0ktk)#{jpbM=Vj7|w@LUWulCs1@TCJbJqSpeF!}e&ljPNL~9?|4O zvp25`wgzU-t3}}F&Ce~Y%*wCao{*7MP|?)Yzi7!)`!QJ)G;`DxdYG7Qwau7>K%q22 z=IJM&@=w@4i^M&5F58EA(`SOB5)oD0b0l94x=z1#s<$bj?|Q_>*%3{~pctc|%|x=B zU;@hRIY@`?KIG3T4TuP%9AWazH0i?#`cGD5H2IcB;oYz$@(H0c6oJlLQ9ibZh3^LiT$TG6R#LUsYvg zQBhGwR@Ux`1BZ{Ej@!1qy1E90Zrip4>Oxu)dQMI*{zKKkZ8mJ${LYVm+0iq&Xa7<2 zY`qlQm>9av!0_(%8#kAfRVF4SY7v8`iafF-GKmWdHHyz}@93$ltm)|LL+@?aB;QN| ztM@{6B$>a-%!Sm)tn9kF#^KRD2alYZ*nennc&xL#-(&y4h$c3g#|W@C+NQC+3##)7 zbe`|+8-VS~Bv>nwyPyCCCMP?fHyDp*Kk`sy1o_nzo{F+E%>ux&*#3Q6~Ac_b)c5N(ZFL*dPiBJ!^(QF`($DT3&)@*geC*Lja0#Wa^Iv%Wwjca}d=BTWYoEgwfQ4{^jJqJz zkenZqMtdbUW&|7qMJw!M#7w}hEg>Jm2>_D;K<|k&z#nvzXmklf z%TaM6d;s>aLFyf$Qq?6!q#J$9;Z;y$9(n-b_oB9txH{;j=isqY;>l;)p3iw=CjG(O z6*z>|hzIm0_&C3 zkoR-z4}KJ`?H)fQntm3|X4juVbPO3|OQR|}1TmwcZHPo+EP+V6)E4o0^xa=!yZ_+4 zHR4aEvNVIn+Ul03y2iTdw&n&tg&zXXeb-G9NOzs^+;g{$*bd=cGkc1bTjbms|1=ih zJ^FL7cSq3ML+kG#)$$Xg@NS$?caRPx9QdKyNfy9d3o4Cl_P|t~LaCeclGwpZ^Mk~s zRAk%ME!(#gm6iS7zy9kR*FM6Zw#RLci;wf8#P+v0DIpZ0xp`D`N#u zw{1^A+5vlg!$4=xzSfT6sUv5ve(*EhqI&v9E34{TTDuM&yKwf+_pf~T1#-^f=&uvtx~ zxkV2>7{a62yDS%TMx-^QK|Zd&^%-98+)#<~3}E*W>I=946dv&IEe0rf%N1hhIdcK z#m8&m!vuKCo9}!wG&XtU?8U0;8i5=Pb5*1pjP-+SOR&V%m9OUKi)t3(1GM_kc+}Eb zLYfGBLAt7*zQOT*hX;nn`UXb#>^-n|-yyHib4JD{WKnka4ocA(9NOK|(uv0R_YY}( z;~>k_)z)#PwF?U!!?sD|PZf?t&arpG4iScX;v zln7a}Xkfe1L7w4ol(ZXfS;&UNi%VX8#cw2)bC^RiWY`?)HSo&=Aup55B8vSpW{w!l z6OrEChL5Ua9D%a_M5MDjZoAcIlGiW+)*NqVKA`t&FE5~A`zsoN(wjDDFzY~fFdyKd zxy3L0zP&hqV2h=|+eP${b71ZYeF$a<6#=v7UL@vwl!X7t^oO{0WF_=i7hgzqd)R&= zv;}iOY@ieY*y-vhF>^7$ko)n&Q1lcL=YIhIff&_2&{VTdtLldzBJzkW3Kz;Pk%tPs zRXM4$0F2tgEM7QY?!FU5Az2h_%uabARKYK!c;_s*fuXI(kA9>NgBz%FQ{N=uMsF8fQ=btckK%|+6_ST)Ys(>eP~QC0 zi;$lx2-^+42$VE~lEQqz&aJ4gscdfvUD@d)zFlS`x5!OkhJZFmcVXo8aNKmG!2;a+ zHn>;LiIyxG5$6a}fO^=jGyqXIqxf#3%zP=&AB#lj%)khTpK0Mk56}SNT)kmf(t&D_T0cPF#F*(&!(m;+&NF%)TxtJkhi%PC38E~>2S(5Zm*o0*x@(KX-$XFmSKlXK)M*xpXn zfP8g5lV6-Z9W;kEZmPJS5;tHw(jLWj^9ts}b|H?(9@9O{JhG&I4AfdCovKhXFEbZjNvw400Ja&C}zOr zsJo~m4_ybssr~zY`m>*zF??jaf@5e!N0`#I;JV)OJr_@55IxjzKm+uo#CVlTf}3*1 z*REXyOB*zI>+OU5xq10-zV~Tkvzp?}{*lrCk=@sS@wXyPn>KGA+j~eT#k~~+J$Cwn zY;!hO#aT^#d8hTb)eXky-=fJ#mLE zVewY$n!_TE-;10$OH4u<2Z{;6@prb7d8d>#2iXKzUnPr0VCi2_RY(eEMi9-9D(mf`bgu4ERhr7ITOI+ z@TI~>K5F6o7r~Arit2D1T$5{H7eH2mYI6uw6Lpsr>71x61Gw%A@z$`pUc?sMg_A>I zB!*o8dLT&;f#jV#Y;%>Fl8|ZRifx+}BJJ3`!Ke9r!p_StKIcWdUAt_Q*lXr0@QnQN zMl+eC0Vf$Jyq)!lo*-TzGAnzG?GrdaW?(z529Xbutosr9d#$ZMC&@r~NFw;i<@6s> z5$q!pR7cKQs9&&o%F?Bx>S`rIxkr4QN-H^;fW4}`q_V8U6ScAIl;0&V>=BZCgw;2x zIsH%n$#VxsP3$+>8h&fs;lp9Z67>v^xTzeKe_thXIDP>`1181|Kg8-{N+FW zKeP`%oG$?%42azfRy^4k(H-XH9jc?hG=&X)bya7Kf7ST%bJEE>>!&Y zLpCGAD@{_$q}_|u7ilx(cf?-r0*|P>Sh%1!_h|ltSJQJ#8ahW3)3P;5PRGGNC{ZNtz6JB%T2LD7F*lrAl(dRkWb`upMsy z*{hOE1Ja>H^o=6mJ_;d+|Gvwa#t61MAGSvm1)Yzc5S$^8L=++$osdT+XM@-twesSp zP~CbIzf%aW(JS_jw14{9XH)wpBE^GYBL+b$j4n7252!j3D+|+}NKjI&ZZ$VqYLZ-& z#CR1zn>TNg5reMC^zP{BkO8jt_@kfw#$!`U+o!+$`^L78gD1}Ih}((tP98qn)4$8@ z)n7uc`=zU&G_`c-)_m&1WoS=A!4u51^z@9n#+Ihm&Z?>^zXgL0w06l7>j*hleAH0i zBsUYUV8m$ZJL7cjS{2gK*R0Vs3eK07lvPwzx3qP&clCAk3^cd2tH>A_9|NvGJ+hdk-8qd}4fJvVUNBXlP`21luX4NV{wqvXWiAqrgrMqV~gZVOGSR zWA56(zWhmHR_DO^$W0ERYFRW)p~X&?aq$KVLabmw zqrtLWlYctL`G!Cp1x+S7VW<2MP>*Z}C+*)WZmeqPWIfAY*GLvv@eA;6@($XMokBdm znE0$$h&+5TeH33?xB!#Ka($^dtQ=Q_pU96lN|*tOjDj2;W`Z37^+um`0|Oo45w>&d zJU$h6vYrQv$pXpX9p?M1-*x95x8Xm)P|Pu+Guy0<`y1KE%{r2Z z`@GcdkQjr#gFe%YM1!)6yNH{b5Vlc_+rBk3BV_N$+Y#g~FDb;{ON;Vrt15D{(p`Yt zt9>gg1KWW%(hjkshkNpkuYWzPJCJ?v-41tvXam@z2e$9bul?nJRNCtlzm#^woAZl2 zdL`;~n1tpS-N24cEHaWA!gUWlNT`Gc0;!ZntBj`$-eEgyWdY0D6hoBzC-;MgvSsrY zO&#On5^R#Awe7kX)p~k7WNzISpPHVBuGcjVH8c)UWBLZC1X3?v{p7-x>j#dWJ$U@w zi8n4?y!O^-zxm=9zyGfv{>|s-uDsRI+}t&=t7m8uA#Z3JXlfhm9o;)Tex$8y&@yjo z?=LE?r^8p(cGNZZHMI1%bPN-4vU5wEPpByMAKCx1zBl zW`iW082R!_nVx!juFokbE`$F+y7xx`mS=%n;>VL(fzeOEyZTc?jX%L>5gE6bC57#5 zZZzQuLvyY_Fkl&A#lD&K~kvhLrgj9pGY@se>{jcGmM}Um}x`iIRkB2 zIS5XWIfJ(o+fg`fxRh_8!BxiwDFDPdW*0A&i)vArFg$5< zo-D)fLnlbD6ocGctvGF;w*_g}6A^V?u_E;H60Gd*?oCfiOG-{^@9LqMoH~Ey>Ia|K z)Hio@4+3P<27r(6J1P@3F)`U+_e>lb+j~GxV{3c&J0E^tTwIDmFJHb~o=i$=y3n@R zz6rS~vQH=(d1=^MG;G5ZNlnkvvWDtTp8?~FTahU6zB25j^J-0X?c~9eAN}OlS3mgq z#MIHz-4mmGCJr7uO^Ttkw{`SD`}zhg<%fqy_Kbk@^o zV0*5JPEoOll4N)pGMGGU_mgvTa+;c&!MjVM$#`O1XkUiL{g33>Y;(;l4#p1g!{iA4 zf1cSM>0LmsakX6gjPx{B0M2nh??~!n5a}Wd^AXHhy_i817KxB{?TZ8bHWdJ-F#_g5 zTkZ#P9>shql>TJw5PEn*3LtS%R8*yD&j{|=Zf|5%lo&H5tfxos{n}stB}nuZ*5CKi z+apTFy~sKRhR}g?N{?hOfFyd%#w>YlA^QS+BH`2@P`V|hAl`6E&1tBZn)SHH1ur~D zlesI9_K+v(ug+%2LVa_{Z8JwIobK(Y_y2zXsi&VuLX zW=JWlDAg|)WSg#%Jeecjs9(yhkT}V-`Mr_}H6_-YC6di(*cEl})lc9JYf7!5oJLZy~kzOo)JvA*SFJG^}!QO$x`z9~%nRxxc z(W{e(-Wc0^eAnJ%UH!YJj=p~U^*4^5Iq}}7A6|L?+Q+~C)xi@dD{HIz$HtmE`zvbO zn%hSj+WI<&#_C(Ui;64SJNv5ZnsW-uY8tvb`}XbLe|})}F!0aHEy>O+DK4!`%goO$ zDAkj|z8>HmfJ;QDv52Mers&S}>2vC%A0%^tCL78T)@ ziw?lSGA<1r-EiC+V~@hSNGmEWw#If~b3h(=Te5SXdd8W`lpMk(1eqwX!*)`G*%e4T z0}#n$WRaN(0exmUkcq{wVJ^NdVEdypI1+ffkCq}18Gr_oW;rijXj6u{L{}Mf0254a zid}o~;AGOy?YM;Csb)1O8S*1f%<7OsZ?%S0svzslP@yV>YL6wjr=)u0#toPZ3fXZ z{;`7OE}Oljr9)erb8o!&#?|Xr-~Z_cpM3THC%+uue?)J(J^Kz1@0ws2;CxeayMV9I zzC4*d1qFq)eSadq$p0xTD{pRYB@-d@ zEv;>$uG}c=D5xlpKjxa50FOAl+AFUcHHYUs0xvpL7TCK}sKS^kbi&Uuc1RA!oe5pN z2zWsjLJo_VW-m(r^9o{bEz?Q#uEDM$e0ZGuv=8+h7sc(+i-#YyiO+O!EocH&Oc!*W z>PwmNQ5w@jClOmmRFGlZjXppIu9QLfGoG6U_kcfH=+hshmusKl3A{v<>Gl$Sd@O|o z4vURajHy6qd8FX-CR-J|37kS#B%CNwv= z#lC*>wX_TV&!IM-bT4|uw^8FspJ5#Y1o$R?kx9bLxnPzN)B|(a9-^oW$8ERHoiiH} zx@>Bd`^gkSQQs*3OTBmT{8qP!ssl42JYIn(@U5(!sL}LxE{q%NmI~Cel0H+!!5v84 zxqZ|67%gsOv*%={@h{@HZ_!n?QeV-c0UKG!PIrMfwdxs~k7Ato@ z8M}b(Hw7JDeBtYV^;aIh@$a!zh;8)6%B@SlE|bcvGfG}W(E&R;2PEKwsc0@ie1Jff z0S@A9meod+JSB~04d+o-5i#P1f5z?DNwOBeU$TS}ACsF~UR>OenOQ3P(Iy5N83j2x zr5#-pgCi#fhK>yHI^H)p+0(zTcW|{p~9sfAxz`fBW0RC(kvt zwe2~0pl4*brn$AcslBwKp{}{JSjX7%@Q7sq|mJ1x+C;1Scj=^ z-45i}#HR)CKZuqN%U|BHW%J^NujuF@g>21=r3%cgV3f>3hcSoELk9+E zCZlHnN~=44CZ)%~a}Wya*4Y9hb{)OFv#YD1pdcqVx4E^gu&}tRXIR^q_Rjvqgd|o5 zVK8;*;Rw96mJ64!4egpxxu9QMp24fE+r9Uo%*IU{H%XQJ$N%-eu6_JBLnC9pg|6`1Xz zDeb%iI=pXpz@;cCQFc9%A>%Dh6O>_wXw5>eAPD6~gH0jIIRY;pPi%+k+JCtc;4DwY zVe3|}67gAdRH_M44nW&rjGw)5yMqRsNf?Qj&?t4=NuC*{>w z7pd_9>~^A%p>H$cv@}(~W!c%KS=l8yxn&AYvpmm2ryFW&y6YSI2S<+d4;|b!ernIY z^L<16hxbe!IC)-J_Ub3sum9?+OCMY>uc|JssCwh4pPhR5S}poFINH+L+t}8LPWA5E zGq!i%hhP5m%$rw7CJuEE?(OK?)6mk})YjkLGn$gFPjFdwZmHCo)Qp_%I})~R-BDHD zn3j<>O)C8!EheVd3X zx<0zk|F`Cd8Y3tRu_M@ipPb1@W<<93eL|9q?qsuOKOM4VV>eS~%tYM4Trw*|3^W*J zcpTdBaxOK-rmcYp`E0aI8Z0H&(l!ry1U^5C3 zK0kln+LbFX7*V#?=0@7RWsBaJ$rd>F4jcfxi!s?i6<#FO%7g*zFU@;V;ukE{Pm$j4 zsI9HV+i};D(7(MAwvX>WdhG0*wT-Q?IjaBbp-fca^l_$kkMBQo@!C7rzc_#Sqp^uY zr!HP;Xl~a@AU8K3v>rQkMx1ng?E0*%oP>l#2)}*H)-Bj_LW1Yj)wNTHPJ{QNV(p2# zi;K%(d+6-AZ5#ZjZzxLTL7YDSmVl|eM{?1jqi3cLosu&{kkNE>Y&@8T{Rd8n+n#&l z?Q7S6arN4#Z(jZA)ai>|UA^K6>1lE~bAY)${s238&(D+Xm?sv1u5a2D3{aHY7O9sU0I)GH~ApeHC+h1H>jyDWVw5Uo29bv?L#Xg2dEpd6eJ*dE!`1Gq(5eW2@1 z!0oqs^e2>_&ZsN9nEJX^%QnTV+7i2FYwX%n#}2nN)WSn5G_Au0VC*auV0TFvJ97ir zp*psV+rxhp#ZBXWdg3(ZDGKJ?2T<&KB9|B7*KfS}rhvD+7|{9`|Ic51`&&Av-OHOc zj)n|tijJV-1#2p1)ymb&mnk@%4^AJR=2nE@?CrOCyL;c`z;>CAU?D2D;EkMgS7rHoM1dfI83oBI zW~11gKq}IQW?&bHmaLw*I1*zVRQDg!zDhrqMRufGMEH~mlbn>Bl$ev7Q=!vRW>#@> zY7T_Y&Mwc+F3ZcSEGJ9p*MIZt z=C*bK-O$!~?)pdLhflQ2X4pT~)j!nM-LvcPf$m|gMH==WoP7QLce+P*^^EN68=34K z+TYOHBR4WVD_2}Kx1b_3yD%{&LmiU_!g#wPCdH>~u79TU59&06?Rjgc^ukdzww6|7o~)x&?-zB4I3A>tRH zszRM^7bF)3RfU9pQ_i1%_W9XQ%zE&C^#mF$Kj<)4q!nY~38rLr*@DaovmT%IR79WW z0xVp(c-^|qN=qd}nv5m}22Mr`C;!NHGlJlu^O&Y&SOjdBaL!(voiIE+c{H#u8M%QR zMkF2x4;H{X8ZQz+CtUclx*qw2L64@!pi;11ox5~*)FL}0Rj)u9YGK9QetU4tZ@ra$ z0qnu`zE57(LqvREhXyEJP$H_;s_sbArDE2_sM52Qo@|r6oLo7Q8uqrfb?%-xa_Hon zdk>z@$<3#tt4<>Eg(L%=l3#ksMtDa~P;3Uq_aE!(8{wVx42;&+H!%uWy+|fvTvl3n z^2}R8q9eQZc6Ign-mRN9+mM>lPKUAIRzp+!(C9w-Fp3{?vU5}w2_L|AnQ2sUlv{GU zGd*c;ZX2ICbmiTj>>fWbvH#e?qvwvDzI5p5S^dgRoVj@V+~o_G-h2JhdspB6bkF#t zn%PXLoY}dVnc3w!60~;}7s&t$M|Nb_KX!x)q*|)HjJ{eTB_7~YX54B+;2yDnRuhm% zpC~g{8H#RMfdym104Ww*yJ{ujo$<9KAuTW$yR=jVxTVctp+1bnLx~C?|Kw~i0^Zfh z0PQ<&y_E^@PgFnBYQT1&b{w!_#1Fu@*eK8j&K?fWGCt~cMkX&*L(oPRVyd-EHr`ch&A20lFgyY@)(!o~93@APE@Z$UfhXiYhs#v~zst>}ZpG zWcR*%p(#`cu+F5(-1_|x3t&_HGlH}?@MLfK&UdUhj91z-T~T;dw9y=vuNxZ9Xe_X5 zrTq({EpF0Mk~F%J0kwAZO1=a7E$-=iqv3D&hwS1ul3yS{>JI8%nD6rFQhhIN${k=F z-8ZkZyuo>iR5mfb{t4SfO&|c7C~$SXnrF{~68L+-_Bl@ia|_>#(cC#oJDfMLD(GRm zpAhXH1__`cWky7mI-xoq3Q0**cd~VBqD_)x?asX^J|oQ@mjyd^*jP-CSZR7jQATD- zMMXztb!S~eUw7ZWp zeN!zx-TiyUI{JFYCie}EkL^A%IeFx`Mg;w%6!`X$i6i~Hr-pVP9vGcEc>ImZ+UA0i zs@#HdEy$$C=s%$8L3Le|?jZ3ANePKb8#ZjT1`$7LjnDortwXqw?GK(YW z?pn>T167fj?NGFyCJ-WL6-k=|PsCEi)1rI}m$_ zXDx%ib*n?yFC<55gqh$^x!IZEf^2Awo7=&szC9GD!}chLw_dCoRLA*(?>=9)p;}S1 zT6P$CmjJ&#$BH6-)3#sC=9GTA6_TD$% z{;acSaCmfYPv3A^c@-CtAyyiNQP4ep{>#6Y$})BEG}b+NFi`HQ%9{MV0?j7M%c^p6 z@rvWkq#kV+&Qhva*Vt(%IGH*flmW zF?r4>Dvi&w8){iL(AUvZKz(y{GdZb=S1-Tb-O&Oz zpP2cGrUX0-Z2A6sLsK#~!V-hqet00v(;xC(o(N?=7TTWA2=yIv!VawrnXCQA*T0U~ z%hG}Hpx>i|IRmrb|E_!TZOqE>5fwqY#7Ni}P<_Dyh0?+<3fU49gU6_2p3X}$+qZ4q zymRMv1=)hC+9tb_dm@<$cp9vB8yQ)TK0gB5|F&Nq8Xq+%5nyKxL%xvHoD;D!q3r)Pg!>ta+brKYDBCM99cIR%AwyK5=0Y*mXo zy64!jGw&Qf_s;m_@saV#N#f?Uci;Ni$Fk4toLo`WQrFzuH##voG1=MQ*U;YDJ32gd z`sC{$UqABt`H91aPG5QR!h0X=nL5}#JUXy@a(LoM-{}5bdyfz8nri7B$}KF<%qh~f zX5*%9c(pF>yny_|64@8@Bru{Dl3_yNVLR1b#|3$e!lrdi?TeK!Enfl8gT@jQi^k*R z2`L#n;uBV`S@X)Pui^Gpl5$40xXGIH^xWM1qJ-p>=jXk|c}Yl4)p1-#W$nyF3Rcov>=ON^4i>4y8t^BsBYi7Q?W8{$bkItmRk%owyb}V z5j1>EgYiPJjU&hf;}YT2sD|vv=by)=@piA9JVx2zis>VYQLD|Gn9>jfO0Wf1t371| zUZI2+pNK@_>>~-ck;CAnhAvOHQBBb~pJ|QbSEO1CnSe;??UC+DG;rc>BZ8OG_(cULZN5mKr&WpH@~k{Qh76b^oE` zSh1b3l9E!|I(iEWOZ4K8m*cd0wMJeiPG4?lY#rG(0ob(*7#P^q+1Xo=S5RD3Dpt!i z7#p9Ak58~`OLgMEge7g`uN0@n$x!SPB8+w-PPUa ze4o(N*fO$f{Nj~sr_a7|M*H9oKW}U8N|AS!m6IiSlbg>vNY0cY!;iq*o0?lW2rQI> zCgv>Ci>y+5BpX9-ch5n)RpW{5M;+D)p0M5$gA2w>>oC}E`zlBd4~a9D8CQ$trKm%G zA{+Z_5J9&jRnU!)gI}UL8c$Yb1q?JaGkB0n2MT7FVipz9#FZvVztZ%SOz0_xEv~1kGE=EV7A-+eDWtD)~KY|}J@X0m1ADymFB zp~D1oaNoVK9TZEg2|r$Rc;U+{7r#2=q5FY&Mq*rRef7zs2U?rzoB-uqIRjzI(1QG~ zaL5(E+1A_NhK*3#;panamk0TsKy-2w+%&evHF&RSAIbCiew4;X)bj7mfa>-fkmWAYf@53t)o%vAR)Z z22TiK6diaX{eH>9SfwbcBpKL_V6aNelVjn6mvv)N&4%%=UcJ@?T)TE-q!c@I%T^5@ zx1;WoWatT-HfiaR8W)%DF)=B-w5+kNzI$-w(229x&R_YM?t1jx#r;Q4?3p@r^uncg zzxaIO=+Va3j`GT;hStG`wtnpeCQqK+JvrGu*zfW1nKLIZUO4x`n$eTVQ5J}_M+FTF9KOqNl#v>5G z;fYaZ1wb*LNDVM>&k9(|j+P1V$ipz4AY%!WYIO(DoQgzm$y=G6ZeWs@l<32$?yP`i z;@j1LN3cEQxxsdtjKyf80vrodq8|>UAFt-0n2hvJGlcrq-riANU0q+_(AnK<-=()d z`uvTzKRJEjsz?D1xH6x7?N9{=wGP4z}D|NFv%Z0(QJzOZKYDDz!*^Ck`|; zH0_%_vTy%kxsFGUpQW7ZgV0F^+O=11WC)U0)ea1f$Yyl?Oh8*(S7ru(AV14iUzv8n zE@37}>ybWVP00C{O`%>j{Ik)IZUOJk(L-2JH5$5N!b(d@_{bVC#%2#$jk=hNyJ&VR{sItG15P{!<` zU1$p?{0HP^urn6V&3*c&Zw8!a9k6|QGH^E{aX$^&y^hZZ5$_Jf;BGAazPt30xdXfd zb`lK;^;Zo|UeMU&2~LDv_CoX!(}t_w64fF+Qez;ti)4MEHXmdbjww-EDj^< zd6cvh+r<S%7KDF1aWw2nH3A8~E#1h|#WQ zbobHI7d||Ju1_7AI)3u}yKleo;k7qE{_)#C|Ha{R7n<6;)g`GfX=oXc0Mj)z^u|v< zJ#_ADSAXxNPu{!o-bb%re*Mx%Z(Vrr^@9he4j(zzKiFSdUfR&s(cVAQF)-HJJ=i<6 zx1zSCy1rd!g0hMRIgpYYN$#0hxe{FfyC++=ZmX?p+;`x(Mo}`^IQ!Dm9H5bZ>>M%+ z;YI6#mD2Y&ZqCXpDlV;|$;*UKO3lnIEKAMGTeU8BXJWEuzc0KvPZxui<}VOjw$GDx zUy@!El9G9BxN{^T0qfLu@p|m6s&O5PYi)%PY9yiEotN485HcU#nN;K1?Acj_8q1k)bIMs&)Ql#HeB+Ut)3(O&V$TmW5#=>?l8c(&5QU8&$ z&5}hzClr`xtyyiu6LxIhxGn}`M9<7y7pfRZ5uynp+rbLOf*^)T7~Pu{rGf4IeKYgX zN2W*6L$rOC=E3T1*-E^fFa_!x8yfvrT2?BkiXLCP{^j0%hsXCH(i4)wlXk_iov#XM z-e;qCJya|x(bBY(6y>N0JXI6k7{Nf=gC;YZ zOT}LX;MSLuNu0XVz)6RVXsu9`UR^3YN2l3ko;A$ZD2%?X+pW=o(sUJYVOqcq(N9C; zppBSw0Tma#M56#5035uSWFegT$aF%4QI@dhgm2w=BNYy4%WO9duu9MQ@-%$(fEH&m z&=b&!`7fH@k8mp}?Ti$~MnVU_60oy7N}tH@H{PHrN)W37R8(n)?VdPjGG4#;jywMP zo_pkwJf+`Ggttfac7GzXt91gfQIL=3)%X?jpMRDh^W4)<@&#r;He<);^%+S!t4j;J zS{p=EyW5&$SFiAPk84*hGoNh`7KtM)@aqs2_mgJjVCke4Md=M&>1Gn|`8AwVU~Y!H zW|1&CGu#Kj?!b^ER^uV70EA*w_uh3kZpQhtp!6K!u|G5CDL|T)o}s47&@=axb_XxX zXGWpeZE-+pix*1!WZxx{<&ooHnS*psI4qKR9BiC11^Wg!DkU)l?43NK$dU|V4(6}Z zJz>_8kH+sXc5)w2JTSdS0@K6Zfq;;oC%kNjsTlR;C3f1yl4j_K@cQL(K}9~b#v#JO zI^?Zb8M}E)f_>@p3u;J`_OJ%&JK_L)PHtXJO>NJ>@WF|x*AE}RvhToYIcOjM?Jqz6 z?H3>a?pN=9@x|21Q#tts9epDd6CwTy-Me;;>>ee;*R{0t@7_PU|M=kUgNR;R&#uyn#;ly;)bw0wkjhkH zJ58p!ty}t{teE&jjb&o&=a-d}t5T9%Emwb*W-5<8_OL#>Gan-Yi?psw8#$xg?pCChQx9Wia(1!3d8E>JsVT>T11nY@GG@5el1n=;3S3{Pk@kYIM zDH+g1|3Ue;;%nBHC_hKonk07KrhXR4~Qrnh&vuC5W8 zpE`K*?76p~F`%|sQ11OxNBa7Pq$WD_maML-9@{nE+tV*>swB{EN2StoYU|MtNG?;w z=WDSIFe}T;d;9u3I=T)XKCyfE{=U9p9m9^Fz6jg-6rX(lyS-CKG#QpZ^U-I&{M8@+ z>5ISn<3IiBPyhVC|MweL-^t6%7t$@rSB09Dsf|TWu2`)M8CS*7s8JGD;0aNFG%J== zGcYhxU*9O)W@N1<0Pf;_yQTz~Jc0z(qpQh%h$6gm)V52N5f#SaowhCPPPknRj(Lje z>H%gW%?c1w@(w#r#baJ!HA*Sb7N%qAq;jbsVlII{8Cf;GUpQ zLS{>Y&La>8jU^o!0xker{>qClW~QbT=I8C$zJ=X1BEdXKVYTk&%w}GVg42wMAhmnN zZc4~umE0~ygjJ=|um!SZ{?pgK=1KHWNA``ce?6N0=#hNHozZH_yG#Inh#`}_$@p51 z(7?Jx42-7g)ZonnIO))H!kmoqc9OJp%h?hs1MJa53W$sdH6tsREw{7hOY`KqZ^YGQ z6XfJo(bdT>^^N^y<*jx?E-7tp?;IZ-IXt@O#GZ+h2amq-#(SUs?7#lu)Bp0@4}STp z_ka1TS{y8|Xmsy^&c5OD>c;loT{0ebP3=GZ{*_((_bVTS?Z5uj^{W?-U3%xl=}U*- z{qY+o&YeDX71eLAY0_q9sHVBSvAwTrU{6U!y)FbvDOsCUN$w0=rYcQJP+XLjp^IR8 zhNYP+mn|hVO}i2hF0D?LIw1wN^I!yyNmdF!6$1fzG=9gzwE>NN;_eQR$~MV*Yt zxWr_ZV#ki16nl6q7gTCxR$ji1nO>SdfBlAyuw6lbswIy|yYg}R2ThCcj+QHuz|!${ z9Nr`6$)QW1^CNu*=FE6>rnFLx`<*=!!cysu84Zirwi#%v!8g3 z+Ya94F&W1t)wsiY+&vpx1GPDXDx{{^NHezCml^i;TQ;aec4 zqL~wL!@SWMFJfOza=hJSM&x8pl6jd4YnkiEAE5%dd&(cscGzBAT%>_mXJ>bJPd~Cv zsQ~p6i7#a1vo$!6IYz^Q?L_R}p5fM(&bnH%Mk#jP*FQ{1>F)09>FI;yYgex+E-G%Q z7ZR;(Z|kh8sBCU(sjcSqR&U#~MR-vav?l6u6R9*rnDo?C(&!?+npdnC8yoi_SpDSG zk+D`kB|SoRSrD`I^QEKmPo8r!QQxi|e5iC;stIfBNIU{>!ib`1`Y$ zE=hZl`pD5!^cq5?C1oio@&re zC)9vzI2pxuL|rNfkfd+GCA8e10xQ-Q-ATEc=)EW{D$X9sF_6Qf zeI<&FPWzLeCJl7khS-;0pv*7g7P-S1a8y;}?D%%RL)7kgWFk2`uF6ezB`%B!m@lhJ zVw-lLbR=^n(&UYSjvk`k?j)HV%TlVq7KGe5{patv9abRfiX$)zFzzuZGgP2RTf*q9 z^pMOPS!0Q{YOq;1o9O% zO`Uza6{YW*ni?1%>F)2dy03ip-v9YO|L4n(uV4D`{Ci(~^z%P_E)DtUyBDkKYHC~C z>f1UC%c`m%@6beHX-x?=CcjMkT?oH3K1CyToxoz&#i}h;Uuv@ukar zWQk-9K!m!h_e7RZVjM>^-f0g_TfBHl$f2=&)3zOD)eYGNr8$LV#TB*mc1?kqjAhG~ z>jyxEu$M$$QK^b2&17`y4}B+|4g$NF=YtQzy4fNxyuhczaM{mPffzJLve0j#Tr1rU zDXKq0Cjt6Diy)Dk3QZ*EWEmF|O5mH4Mw9VR*be87Cm)a_2HUMTj+lldf^m4eVKogX z>d!nCGdY;)O|m6=U2*Lrti-(l?n+FIJXI(sCypv3q&k~}yVw#=xJvQl1A zm|xJ--Ite>BZrX6l$vBW`E-oBy}dIdg6$Aq8a%Wg9vP#eyON8SubsPib@K4>@qJTQ z-~Y^Bu6X-}E7#6ky7JjqzdLvNN@s8PvC}92;a~r!sq6e->5|fHq~cSSB<-M3P~C`NPDyfr z;?%5fcF`;p(~AIG>5MX9<81+d;uTYFuyhaePtV~zWI&j)K4Z;TM;N=_=CdKQ=bSVh zZsE4ar)NKID4%=+$$x^^?;Nb&J{PYn2s{?$mV%R(oFJx-x=V})Qn(sZY~BG#6)QQ}IVK_V#FBw8HCFlwY~8SK?TRJwTQ??Bx;L%gx;`d( z=e8Z2VvDlV3$xOSax%p&XfkjWFiH~%3QVM7f=8m0>-3X>xyjEyvQQA7z~%E97v6;X zpKt9P>L1=;Ro7NjT31!u zMv%$LFU`oz-?nY1#%02(vh1X!gLgQen3SX&$SVt9f$cfD`7V0Ff(7)1h_~_x*XofO zGh|;A(rwT5%ECn=r|H>wTXw`3l~t!@<;kKENR|D*dF!@mGRz-%kStSFR{6}c&%GAR zLBMtcD0;~YKw>@8T}><)*Q_%6OnB2q3W3E8#=!`D5WDe;`9^Pa z!6t1;-oNiY+*NfdDLiaEIs~W>jEs&^#j`Urmq*(3s^3pdP8}K^YbBKzgx)~J_IP_G zrleI=)O7U>j_*A*JiKRgbexVYmMS{wiMC|m8p3B~sNqg3E-Wf7DJ?E6OxhVIlZ4v> zX<3%mmeyp=ewQuVKY4iX#6f-LiSq-4qsLEO_{kT)JAdh|zxnMS1|(eWpZenO|6%Xc zfvX>Va_-92YoGm0y3QZ}^rv?|zW(7)e){h9>;9@Od; znr1jWEacy)se#hKQ$~$@%M0*Eh=fQ3cJKugo(@<|9}Arft@K3;Z2CMMm_tP|PzY(% z2rq_A+W{{cS^dFmX-#&6(qgi}Fg7N1xH1!1aA>9_J2{%?=#lo~z2L>TnuJj?0S9o< zYS<5Sl%s)W5E;lja`Q|Z@JO|WLh>7t1S*HGUcUHMdaf&!?())ebIoSob>j^;VDGnl zJBZs3=0Nt0tQhc4c`zFhR84U=#H=RKP}Ec7cO-1rmTpbV%4IPtmu}k-lbfF0Qd^Om zoeY@0lF;5K6+q2v@4>uI11;X2zJ*iHF)&@NK_MV-U&-Pfg#td24HHC+h2vyV%yMl$DTECd)>L-LkT( z(Ovrw96a68(c9S2OppPdx!F0agLHP?bn$jiaB{DtCnv98yGCnwMg4Sd{nb53JV-i! z|KI+(y}g^p-rF~1JJfws2Y>%B|MQc-`OQy%^;^_^^6-&;hYtVxzy0^$|LISf8{qBx z4jp{^`t_gv`Zs4UzIpQ8MGfBd{%ve-OG!=LY0vJUx7R3QA|gR`1fDo!TUZsi$w^6C zEdh4Qkah+#FiCt?r29Z}ch@~(@^Es)VYNCedZ)3uPOuFhE6hd<{u1X|F|iWx4)*;h zLyQJ0eL~&Mgdf~;irF}|FsO|kkF%qG&SZZ#jsyb?%cwi`h} zjYXi%ler3t@1WD!SQ6ck+rnG9g7(5<2d;n7f_b@F8NM_skjAVOs)p;&`yYS7 zUE&S7vBry~_K2B3t8diPVI0|Lx7`ycFO&_XBl1k}zD$)D8084UvjQf-fB1{PfbC@e zfbD9vv_v2))7xjy^7$Ob=rm(v+_$==!3Cm?14I&~?CW zq9X5Vt_jzR!-fkRw{G1gT&b<1r1A8O+{Wgvw$7owQ|AsHe|vE3!05!0{f958FCW=` zw5hdkX!pUk?txwVrgl#rv%f}FeHUzRXzA=2=o^|E>l*0p=xFQd?HC#DpE|gA^59;( z6Zehu_l^zp?&{0V%g)TtFRQNCzrCe%czE}*nugBO@&YrGWnVX-Ml_Rt9si*Zh39TcM>(y)5 z%CU@3$1zDM!Ks%XOL!73;SmkT;DE9h6wZ>tj>O3P zRlHAZ7$uM#2-V3l1aOb!ZV1os1jr7vMNl#|H9a#kCm}wmt83_uH?P|r!#|}#4h-!+ zd-0uf7vJgX8fa_l?&$2*p1q^JyQHXu-mU82XQIc#l;ve*%mb%jeayNA^X65RmuIG@ zF=~E0N-V}o5=l=>zxv*%usuIF|J@Hh`T5`e{wH7k?(@I@hpxW9zxmxCp!(qGs9wOD z3nZr`Yxh`QSt+eCE;N%#DJdyeETNXl5aTX|MI{=bRaVu=btkq{TJ&4M8RmuE%-1$F zHVf_e;WQSbX&piD%#4gbvv9I5X^!se z#0A6n5_aqWM^GKfbTTB6L#Vh(-nE0%ZKR%iDkL=OkBE|(_y~wpcm0jR3G$S1*^o@+$6aj>>6Vs(|i=XT|9S0_B+_61upM zxEGtlBEKSq58W?!$GaS8JkXW^X@`!axNVzb*REPBA9DW2wW~<(HD$$JEe-np$`DY# z#CE`TUZ=fC&}RA-b(-U8&U+39xfM>cULdWXjzs;{*S<#N2kfL6$_#8rV3$hmKBqkFFWm3Tspu`q)v7t4Nnj#bGRvCEWyrjV_P zaIk415ccRJq!^J?L>-K?oUp}A^CE@z|L5tx!|STfwBi5p&i76x!;mtW05QEJbYrkF z?hW@|WVze2swG)gv#j2Gwd5|j_ip3fD;Nx>Ih0UC3Ihow6DG;bBwuE(@3+o*-;ZnO zWcz5JefHUVt^2v3`zb5%_DBjY7C{uE(x725iotPFwg|AR_#?YdP1Gtq6~#yuUMwlC zP!f(C19@5B%KYcfou819l9OAQyR>jwVOgtW#kE^omv=^*Kpxz(>*(P#R}P#wzkFqv z^-oI#$J)B8>YA(Nxv%LcD9o>`uU#8Tl(yPVTt8n|SIx;k^y>B2)!Me})0GQ~r8|~a zx0F^k6qZ=yyj35_qLLa5v!*T9UN})}M@6a7SY}I3PF`k~-ZC>Z1L)JQpS7(i5r=Qjs z%t->a$Ig%&DKiBdSA;5dhQ1>0n#K@G?z{UQo>0Jc5sxSQPpj3Q1N##o!)+H|^Ek{< z>4<EU^~OgKN&0kqOoBj3iURe;={I_VJ@N?44*hsSOVT_+59g)EqRP zHM`+59PANGRPj#|P}rA?FAq&S+2O-P1(Y8eb?Rl5jhm0K9koNt4QZ~ivC2nA&+Qvg zK!7&;wADu*4ee!2EAQ}3m1ZM*Njhg)s3;>NDzoq0z5m$B^H;CEC3_IekiKzstbk;# z>3T_VSypB?4&T|iNiw10re(_t_4SgV*r20VOS?BKE30$00xK%5uWiW8AaQ3?;AP*o zG`ISe#p#PXR<2<<3{ItiqF1IZR>s)bqeN$WCpkHr8 zQ*$QlO-U&!EnB`~m8JFoeoNc(3=3_vwPNYg@25|nVK7@`M^#%)q)w=m zLwK@}1V~-Q*dWqma$-^>g7b)0^BNIQ)Tz47tmf}29@55 zd!%(#)BC`W3+Z^28~Hc(sEDvjWDqWmV#xRxy`CYq;15zqDAJS}p;D}#r|{U1A3~c6 z^zs`u_Y??}?g-D(b^5tNRKSk3;~TSMrzJ0(KQm@BB%e1Uh7KdYy{)l!!`hXzr%&ao zII|xJqK!i$3~YDhK}f&%9@tK_M9680jGFo41`bhz_srAZx#gBSBP)9QARUR-jEJz>Q?yj={;qy_B#dOfX2Cm+?t%R<*ce&>$uJSLRMeURe9cYy7tFmx3_ zf%zscPlmLDd!S+d1gmX*diP{518=u}gDLr3Z%zkWfUKLpt}{dsdiOMW5q|TLwNhLV z==ru1^t01;WCW{s4fIwTXAXG zvit&MJyT&(mac(TQ!Om3YAz|S%U)V&#ciY=x6;4e0vr}RrMv+4`SauC$>=&F)1joS zQr}07Vj|khK<&SfbCpJA;shOQY!x;2(jcGc-kp{{JvO#`j~*P66X)NQ7#SAP8$X_1 z=s#e^@$(Tgo#cRNC&lhamYF<|ce?6I8YD zCWCR$g0c$Xp|K2AlUG$sAmqb%Ok?bu+GY@f#5*>3qS)>+iD`1%pt_-J78@;`Wn!8q zOZqlWoZpi*M@={1VyGD5bQpjzSdmqz$OsEC0RcV4WX=$-1`%o_yqCoAJ+Abq$cj2*-c$C4ND6R$!_H1qB@|R-M26@|A0E96EgB##?2-0BsLFDWY%a@~FKMCYcRjjgMiT2_{o*DP6* zlb)WT5y2wG45{h4p|5nQjctPJRxyCy3=P?zG-Nt@rk3^)0`Ti>BCTPL_Ugr0doJjh zEKs_Q=M@!XWc2`cES*Rq2a-FF+8GA^-$)Q&Gc!Fq^-U`1$4i}F~hdaxRlQ3fF)?~lt5qbMynJk19} z;U%&kK`40Fs^zwS`9WAgRaZ$3a&P;gxJ*h?Jk5ud3BM@PSKN6*{2c}vy7y9s18llB zuP~EdjR1Q!c!IwD*u!{<(Zv=BP{|M)Gh&!LA2@HDHc2Mfq**bOsqP8$W-rUiXs)YX z+14z-y{V?s5EZ_RMia1fz5rl13=9TRkGThODUc}ccW?bCKLip+bqwaf!ICrO$-s7z zQ?g7H-lLbwY4sDB!l>SE%=0z+^z5M}&~VEVdd81G0@#lpK2%b$3@?h-PX%m`6b`^} zPY@;>jZ`P!4#P>8-VG0DKtB8K9*ldFVB6^$2_m)EwmsXw)REUsSLSiAf3 z#pxMs9Iu5h(@kqwni}%w6U5- zNXOw}yUdI2dk>$wbbZ6t-IX=Y-(p2IE3R=wfOA1n$@O=Ce(}|xDm#VhY?k$yEXGvV z*j83qH+}YO=NdI?G-S2_-;%5xHLaG|ey&eHI9+%MyWHDpWSD$hs}pb;I? zT^`i$>j{{zW=gR2i6>0AunD)a%Pe#L z6emziC~Glc)lmYGZbEN=`0HzLy!+CPn`bY)C}{`V5RAQc$unBjt?t@tF~_=ww#usdiVFFRjf!VA6BhQ(ToT%d>Emx5GLTO7 z1L>)YQi(7^ytF;MR@(cC;T!@ztr4Ow9>v?c}I zIlK!*=VWDq2!A5cP~G|XKm+y)%EEBAl~AU@2gT*8!&_v}m@z_p7PcE6UR5PX3=It) zgLu+EDSm-57FvMzcq+2G=pFD7lEWnk4==zDa%hKY<2+8QHCc%ASR4H=JHX^=p(R6z zi0w)iE|^P-59&}qgM}iaFZvVWx$qOE6#WPLz$XBEWCgumJ)Q)TBx}AXR>1Xp_@N&^ zCIdnJox9YpuU=TsKHXhXm&j>iL}nK}U7Q?WoR_`4v2NYU_LZ$on>yE0;9Z+I5xXN& z%we(lEx_CiLY0;AguM5W!=XC;huLC`zWuFl8Too?g6r>Vd>SgRbsp}fE;YdWL%|FQ zDhUb)>i+1%?53E-bIqQQU_p`F8logXKK&_7iH1x==)BrQFY2Hv4F`=&iw zdr5k%ZCp`P-%(mtSJ$+nrDF?+n`Yj+qN{Pm>YV(%ss=Sft%bz}MWuyn_HM9s9ogO5 zwYi|IlmL>Dm=+dw%E+^DYC&csY0Sc~EW| ziwdUPyu6zF#zV(1Tzm7Qn);@RlPCAG&XFDjJ$fiOJ$~uxjh}r=JP*SAj2SY9I3vpn zi>J+)IW;!ct&pA0MGhW8+(IQ$ef#&95-H_|?Q^^vr7#L~lg!l+u$5pI!iP%IABXi& z{0X*4lVrd!;0<;(l)8i{n_+;5o3=FYq5@rp!Xj%JwKZaJ?@&M?{XmqHfcD74tTV)( zZ?)x#6U&3g`J=Q&=ud zdP)+kRt6~j45|yQa;O2j5f0TcE3j{Zc%`WVQX!+S z_O}BEkE~p|s;#x{%-IXNGD=@Ldi>nlwOzz;;|gt1Kq3E1atIDh!IlFV!SKdGppigb`;JARf!UK0ge|$*2!( zKPN|;is|1OR!!>!c}4}w5MlcB~S@OXQC z+(Otcy;fKXuuJtxO3*%Pfu~>thN2Hh>x zBAp5}QgE+ud&ijakrs}F$sp7N5K1>g>YyB(VJvyvR1{n;Xdoj;z%jTABhUlfo@W5= z06R`7>qCtsy+Za3#6|@@Tp&+rmu%^SMxayu^Y^|7*uf(z_@g^+CmlEyli|%D{@|Zg z3E6HBZONt34+>GhCm#oBz8!NIDC4hZ&oJ(veA4(qeRU7e1P52Z*uVFkTdCZn$N|sw z>-TJ*$A9wZGu@vWp(vihe`hyE7oP6yX_Jfda%#(qi*hqt>#H|)u7>SM`|6JN=LZfj zD>$Cmt*?XLwrP}4y&aB@B$ph(QvgUnkWE@0@(3(uZpA$@<&5@7!gJw zNuJETG9DP?=Lhw-z@ZW<+o+*~CXF4LnU;L$z}`z2&$qWWS>(Xg&YU)d6;L$Vv&WN^ zm#FiFw98}k)j*ps5|X=I z?l|FlxiIOA*>GeY#DVu&;lJ5XPVS68GfIBY^~qCWX3nNzBu$w*9kv&j)hIhvxgQfd z6V9*SvJZfhUmBWMSJ$dU*|4f}&x&=s%PO18%1Jw`TGy^yTA1Iyd0k8AiVes1l~kA2 zb+jxiDp2`d-cZ}IbM3-~3w82Hk#h2ze}Abm=s{LtcFI%`+FT3b0CR zl;V{Smzl^?ie%(OQ%UIjxxb% zs(MA>ElQ9K;K-YDpPn5U>D$vQl%@vNeb|tYS8PK#QFm-MA#VP*ZQD+tIjg&fbcIMb zHE1&6osCA_v2nHl-{z`&<(uR7d|pl&=O0CM8KiXh;K{NE{4S{%u$|*?Y{|=n=jZ`{ z0k)$##u9ALNKHXejA{ta`-_V03Sp3T97bpf%@A76&B|Q2X3d`6d)iuB%1erEAWs>m zcu0Dxmf`VT>o>G7w^GN7qsLGG`EP&2qCwWV%P;RgbWA5Pyj@UU-r$r;lPxt_u&h7} z0wvFDrN-_&XuTvE@6~ufQ`@T5>*dI96nfdQfBA~lyAK|H{r%5M%gQRMt6!Jac=1Kq zCRPSqICl<$%1lr{_8mUCZTJ4|yZ2fM>H1qAzi|BAi?6-&%3JUL{5QWpb>Y(KOIJ^v zyL9Bt*{;o7Hdtn9-##r5n%Y{6%S!YQICJUpTOa)FtN-}VFaG^cZ@vG?mFsU*RM!-h zlq}B3pv*5>vV;Ljpy?zgO3o+#r>Ca*Muv$UiDEmh&Rz1{sV<;iz!y*pj2R7Ll+mJo zzA#fOe@Qr!=cWGxdYo#Bli2Apnq>Pp0PSZGG1hzUz6Y6~W1-lIgxgTlq>RW=0o@!Z z&jMUSD(Hc`LIW`u;154YxZoE))A7U*3Bu3-gN>Uv8}Pba)Dk=pwsXg1zjOL}J=5c! zySfo=ddU5bw0Shtfcc%>eiSKw?FGHj#e1c=-+!-@!+cazbkGG53V;vFJ#63r#~3__ z!3eYyBUDRE4d9jdiXPqZQhGb^v>!WVQp}_Y&vfrTun&EHc<-LQ2lnYde$?pclPAen z>HT!~=@ZA@+wG3oQzs?NovHm}TYb%%-aBhf(z~1po zA*b{q(PZ}-W}?TUx>&s+tqZ0)&YV8gsE*tOZC67HZO~yJe>4>BOZ$9~yYV2nhSfHV z9k37T+q>Vh&w%%~ruyT@Uf8#1=hCbUzXfzdY2~GMFdv!~REM72Nk!kRj6a#AjJpRX z0TS^uDoiN0z+4lz^3?DvR#-9&Cn%Z^A7%KIdtQKy1(w&-x%HM?=%sKQlAD({zz!Mk z_Q*RH*L(cQ&=oxRgSrZU7b}r@B?CUA6=ctz;10HvV#JTo_bF4S!g<*a;F1bqS0s`8 zQLR**@Ey`zwp)sNp0+3pt!k7qXI@;&q6|rn*-HyzVs+Na&CJfzncbAFtdTj~R#DYl zR9ai#vbL6TZ{$y)!yj;x&A88heb zeXVttzBsqAxSCC|3La0vnytJ8%W1GRf?ty-PrAz(_sR`kga!b=_-i2 zMZICZ-=f=J30qZ)$0-tge0fnV#CDXc~$CONk#g+|nEUiKWzRC9U*)4gz0B zp9v>(i+sh9A%hfqsjjZnv7ngr%+XjTRWUm=IWbggHZ?Zx+kbGIKIw;#9X)!&chM_8 z{o?C)EREgJIB>v#1j5L&LXd7ldQ*}@zw~wMHUW0IG}`cP-?{JAH$Oan_R^^fR~3^U zJ9DX~zFw)(d%yZZY&|eCdC4c)Mw5heSH4s|9JP8U%qhq{4c-xqaO0B z*L9sdcjf4*bNUIqcJtl$fBEYJN0074c;NL9e)jcW|GIJOmPM&4OR_RIZrfJh)OhB~ zm4NDh_%|EB<2Qf$_p_HSIsUDWJ~?|;rN)U3n>7;Kt+PUo44frP#7PAXd?{wG4JMEe z(Wbd`@gky}%19ZT{uCwQ%qyM-KgB4NthTkaaiFMS1rc#(GkYZ?KoVh388rqGLB{*uaU@eBmj=ndJJO04 z`2=5pQ86|WYlD-6tP-m>|Dgw;l@g|BZ>Z(8M)r5f3sWbI&&$f36*JZQ%#)vBf=r(> z4SSn5X%cJ~X_XHn$JY;tpFP8l<(A@RPH(BL+Oc_keO1Ls$s~QBa}%JtGr)6bESAcZ zaFMih5)%)W=@%>xX)pKPOUVc9B>G!#`A1%lxPx(i%eVglss}~OGQpPWe(-*p4E^6_ z8~MRqee_}7&8*gny6acgzjx1~yzIjV_wC=atG2SN=TlF7`&)nSBYXrF)_DXOq}PM- z2(WASG}zo>O++7f$_4=mokQ#Zu97S9+a1Fj@(%t@GBQpiLz?3rpMY#gkL>dti;28B ziBbaQz+bsY(F_U(9kufsg?B_gXuJalV0S1wEHLcA4s4gKrHB>1bXG2)_$iP?)*pZT z37Ufp2dR%^$BmbWg1%Y{V{t~dCfRx_re|a?O3lFAfqe2J>4I~oSxPl_mQ9q?`&OxL zY*|%6Rj;TkD6CL$WbM3?vRdmoz;=DZ7NuE9IX$l+zofcW=YW*73|$=&C7qkfE6O;? zmcWwB`eTuc`kjg7^t*(L@H zhGXMw7U=d4wC}4*B(lu3D1)6rg9l4#j*pM0mp_6b_v*z9Fl!ww2ukD92BiOhfnp8( z7iu~bmy_(C0Dt$54udv_#3Ls4F)O^F)AW@4+;EVKNBN5#8xPmMcl3RgyTXA5?Be+5 zCV1bpas94cJB8BFezLY#4-U?IHM77nOg7nRu&6%&+PNgsIKYS^^+>StSjjo8N93QO zD3T$VG-3S65yMj#N!cRgj8Js!Rl9{HdYTvH7e+|COt7@nMM|Z%Zr%R!jknjY-}u7Olb5buH^vCvZ@u^F zi`R8WUom}JjI4Fiiqsb|dI~mO{p6V|hmW4KMpxVNj{S#^efHHKUV7v0kH7l*gU`Rb za{b2Xi&u6ZICSH^4^CaY(z<+kLsQfCz58B$=RMq8yWO<3)DvgVH8wXLK6Ua}fBuj4 zTekQVOje-O+}f(c@5f($^}(;dc>Vnkx9!?}==f2<{=2{a_3Y)#S|hZtT*V5suUM&> z%tycc)o=gsZ{Pgo&tL!fPw)TSI@+%&XktM=`OWVci+wK~b*i(MU*5gB>;h$m6X)s3ku%x3`3frOB>bs~V@AOr6cHy!o`(+= zISoDAHL42Ec=xc*DP@3O0qsTGF$3UZ6D|jdc!CcuoHtui3e^`;)a;!OgPZi}-HY7J zjyr?Q?tmu(wFCP*E$bkohGZT2(g)O2kOkNX87bJW4M^%Cpb4a!pt~cDSsn@tbKEHp zT(>L8i9Z8Rm8zr|tAhhWdI+gR7L9A8@@Y~!J2pmIHdddNzG!gY-m#O$$Iq3hG}XPB zIO_TI#JF8sH(8Dpy9RMUdj|cB-;AIP9>}_ppo2mcx^~Rb_-_aG97eYmM-TD3R zifrD>8kzutu+)B;_TV>sL_0n$<bJsqwb%k3Br7&$FabYoGLc_UR%0o-55?diL~* zy}Pzol@>{xLA-VJm_K_)w3NU!A(+UMQQKw4NrS|iM0HsZ?+cd@<)E%d$#k-$45Dj; z+b)klguIDCh+hvJK;3_aon;GPJJB6Y_YlQT#a>O%2=cSFJrkJUJ!3r5#bP&si!Pt~|e}BEP7dbc3ENG_S7f zh;Z^n;5|3LSoVRBhefLw#OW>8xqT1EcZOV+d2!Mmc?YDJ#ThyD{Depg8L5x3eDdU} zIDkF`EE5;Ee)1){V=NzL``H5wj8-MafKLYAOz2QCeJAU1`S|qz%*CB}0O4#==J^ zv;-D`%Y=n-Qf0ufEF6?xiaX>-)G2J9FaB;D*uOuNKpSlY6D)gOXBSq99D2Gw?t4v* zCFzS)Gd*c5Hcj`;n8UA^fVfooY+r_Qq{H4jezd zeeVGX|IwFUJF;bY>zNm?Zri>4ji3F@KR^HXKP}78tE{SkM%I`1EO$ ziDrvZl9UUfe7tK5Ckc7;(1#A}2c4`>F?qrm4THuZ^n(Wi$-d9^lB`Z0(;5y>aDMG# zG?JyChzWMP{kB-O{PV=nr^8j4gS4afw?%rkl@UXEAE7Rl$}yd6K6*soo=+#m&7U-8~zL6ZrDWcWi z`_8RC9`f6V4PoW^IpUqe*dw?Fj2z09# zzP~1=qzQ2<7tPL9J(^oqQK!Q|R?ae2PO=tdFy`bH=@n33shfM}lFU40K4+;4mxQ#% zIkRWalQS>JI4LPvojJq~aoYt6F)=f+cS@&TzLIdHTv|+N(j*;OriL8FnCUc=88d;$ zY)LX?89%_n2)01fhYjn~SC_ATZlA6)UY{TSJcN(Zc>0Y0o(q`YpS;h(5CVGO{s(-R z+KJfX&M1D3GFn9sM zQ=rO(xUKVZ?a{zFbC|Z-NT6bwiQ~sh+h}ZV#(Og|G9oMXJdZR|!zlwa7OS+In_N)| znsh~1j}+BZl$RD2fN@w(+1BzGu&;zxnNJKYi!;nX^0h?5U}(Ry4Y6-~Qug&aLU}I(YoV3FF*hHZ+`J_U!S;e{*4bl z`st^?eDSrnufP4XcRu-C7ho*CvupjDwQGTSVL^fTtb!(6PHt{vQ!}ZY`(`G|GlcEM z1^J3+xzDDaC?m*y{pP#i9cZ_fy~OxsH!X{cR9?PndxbJ z_w8T4yv;}Se!&j`2;`x}NuncSBaI+hv5#91Rfx|t3du8SPYJ)EQc5A<>hZ+m9?y4f zxrNj=Va&)u{eu*oy(Dc=-#*Fl3k+1W955n$*g9DQ?qTV$Lz`Ik1OC7$*v{NLz@PAT zy$S*B!ufOj33O{CV7udo0VLtMcf67v{4>N%yFWn!au@7))w5iT(s%=;a$Te{A{o)t zM^b_#=^J`32&Ybv2|0f3f|=8U@IGhep6y#4i40>zuugiXI$SrFg;F`-4v?;J^5_mP zSP_SF*bo?KKSuY1v7@{O$8}f`vck^L!Rn>}yNHr|#Z(#m&vbu$#E=1_hYcDvbl`&7 zu`8E1ukL8eSd=tn{1}S2U;#OZVq^1*7+F|AZ#V1t5Cj$+J&Mm_SneC3_P(hK-aS?b z&q44j=(eV?qzX6;nJMioc+>=-aCp8W>8>97efQkuX$rP-YQTaolB9wAA$8){L>xjs zVu}7m}GD0R{Lw9gTawo7W+|aX73Z%X$lsY>W9mZ~nQp}kNkj$b*0WzPMvB&z^$yx$N|pAFj|edJO1NOvvTeisIGq5ot!QdF0hCB?@9ZP8K`9hm1Y%@sEFPh35F$zs?}zs1;7 z5))FB={itqriKHDUO2XC)0R(u^;mR!a1 zE>2HRN=z!qFS`Er`)_^t!If8EJ$U5UmhC%EUAl7O{KccE&)7C?*}7-{fwNa$6zTru zzkQ==!141JRG7ly#-@h4y4v6W^{?dgo1cDMT2^}SsF3S>U;Nj9y!QV4zx~T!cJAL- zR8;uM7r!}p?C4t`e#ivuKXT-~U;NrfT3TDS?%e*xpZ@4PgqmZgPaQgXYiF!*<`b6 z(7*wZMrfnFqy)Bm${vSTUira8hfbY4hm(VDEooTQ#)f)nG5nqCstQ(8{9@(G6+3tB zascVItf;WLsbTi4*qrQ47M1owBAcrCXwU$1iV#U^QUdA--eLFx4G9MiOi5S>u0t!x zKE1SLQMqpntzEf7tvcrHeb9>MFG){ntg9AMnLT|PeEp{VuM2aud$=_Y#*Wjz|=`|Vy4X1US`@P{lTn)J!$MH3I_ef z#XFu|;GP6LA3ijow;Y%;7A_p)wD`FlLKcrn5E*WI9jgzpoS9)myaq!+w~6$42mTno zUnf0`H>CT`q%osnr%XssiZ3t9Uz(XtvFClkb~!fekxe-;CEvv;8l{A@V!Sh!g5&0n zMGYduCt+BM0*wp#!md$q817&<7F-i>ER5+R=CxY#hzRo>gr~(lrvkmN>j^g;YBK~; zY=`HZbZCIl!TG@J!g`uP1R(R$3Jf+W92h2~!ASc)_gqwXhhv0@=rR_7PIgI;XL`n{ zMVh-nCoVjk8na=`E~$>$OY@GLx!k_0%YyZyr4uJllPaTzPon}fe&(#Xa%LPqddxUs zPzzqbWW}n>S8iOqBp0M7FUnYymX*FZn_NSg!Q{z17QJCR=;zQ|jwR}jlPeNTP0fgz zF0(Nn&!5313X7a3Ny4#-s8ZVJ&5Hx+67ONVuI$Mvi}c~1HfPt2q+R2G^>Jbb8@cv-mc^uFes4jU%q>>c8IBikrxR{Zy1x+qBh7=>l zZ7~9Jx!i7{#Dxop02%3yO)4oaUbCiC4&;Unn{u+Us8>f%oRxX<(~o|B@x>QkeDyVl zbEfk13rkANJ)?@sn)6p)KYR5hpbBR99XwcCQoMENj!V~Hd*Q?>Dd?+pG1#<4H1q70 zSF{e;x^oYG=F_jf2FT~GTGy#ck1rC+XJ7x}^7Yq_ojLQ~FMb8X-~Q;c_kQ{1nakI# zg|}tf&T}tbfB)CNrQT4^x9r?;@#Sl)*RA%AAAa#UL-6H){f9Gb+qJ8@w)*7x3%~gN zH?Q9OnY<}RL|3ube)`d|GZ)TXeRc2Qqw6$5!COpTefb^Tbd(OQBqul;j@hHwgQ1g$%&*L)ZG&y z)GIiW2MgrM@{k`K(S&hMF+njqHJkm+r!Vs|ijm%oazc4j2J)i zP%tzud&-2du~R3*a~JIL=FW_bn>#C+9v}&9>Lkr%QsU>O#?Q}6O|qa~*P0bDmKHRy z-*d()F^2*p-3Yu-pE_A^0asUNZQnaKz>cNJiiG5V9b*>8;wGceUR99@YC!vul*v&e z#*fxUGS~$M!baqARTg*(8j(e*#*djfZE_^NXS}>&2FneXfywtFZP~?5hyMjdPybi?HkOP8kI3fVy-A8Ly9rlzJB z7M9jGHfLt%w6E;6S(Hq;Q}JeFOGo>vwFSjxQq3hEPMH=vH3n^-4SOXe5@+lWdwv8m zpP7{>Nrn!i;3zAnfLx>LdR%<6N3~58O+&zK@UsmSHG@p$|z&T$|a@UW-x-DSYXkEQ#^}C<`tBzH--*#I#|I<(D=puXr>$ zHcSuZ5&{8_J?6Wl%@8K71c4^dgzyBbxn*Z%$=Q(Q^6HIOjp2apK}Wh56|b%=H*0`) ze4G$mtTIOQUZNwr6Ge3zJBgkq^u=vE_Z>fT;pbod;kSSJPk>xduuPEj z<1fFasMBFu+m~u_?A|(IdU%z_e!=GP#`Nm7HzjNZ; zmCM)P_NUh6?Po8&v}OCQ`MN5_#Gvl-bYuyW3#GA$WRcp0auz7L%`afWJcSU>whr}U zk9caWtu5(kIw#ECv2(YIfHiB@2!e==yU#+Ol4sEP;-Z3;D?02$By(Ig5+w)DP}*CY z8obH4Grl;yL=KTn*dD4Tam~jbhDEz~Zo72(!rC>fNNS}8`D2FSyNuD5e8z-^tb~!v#Sznl=?ygAxQz} znL18rXcIGKR_rvd!WoQIXuzv~7l{z0>!3bVcXvUqP-i5tCFty*cHn$~`bdU3(MCFD z6vm}%YWCs zUf|b!bp7lgc?W0roL!GCitTQ==Pv3RWSRc@96ZH3U|ehm1Hs!T&q|W9HDfsq9`XS!MX}krCECQ~z8!E$JCK=}U5F&Yr(8 zK3QVq-1+hItf8H_h#KRsmbj5@le?_QQf7*mL_)*jX3Gl7D{D(iYv#^fFnWyjmt*Md z82g+#^QTUmZc{2HAYjAliS2khNOw|FGgRky_zxi$3r4&_Hv(@9F#h=CVSzpOxo60D zq{b7V@cgl3$0TsA;}@crI=Ch!C0PShbQN{y2Wis6)4|P%D%>BWJ>;M34*HNh#Q^E| z-*a!+BB9U!^N!pqiz#r-eRJ<#u>GDp!_w7Cjdb*d?RE?XUN%j}qXg*-=gq}{jW^%u zNOsx7GL@vc;!dJno_j_{8VNdX!Ga%r|NC-jSQfv=Bjd?M^?VQC4x}dt2=_|fP&yQ) zk#szCMb4<-2x01Lt8cvVx?)cHCu78BX`)L!r?J>5|0pHup0z};-CXNJM%5U=E-v5| zwu=wKBD~!P4<0_Yd(Zw8r_Ucgdfb=lAWCUJdG_2#zy5;IK@6#DsL#sIK6mZ4w?F+H z8n<<<=-Rj$h5q_4|LLzUU4P@_FTVc8@4jhhXsT~$YVTNOM-Rrr!s4dp4Tn9V^y22@7KB z?U!DEU#jH6V<%_Lo>fs0yH>94)PmsR zwbxIcySneti33MZ?>~IPS{{dvo^pj27^|wRb^~R29zS(KPXl36PdThR{LC|iMA83c z%L*n>obz5V!ZGxQJp1aKm|c0cCs^~ zDl9BnOi(+UlCyAuWSEfo+UHr^71Rjid1^= zQx_*ELRY#CS`*Ue&VshJUN}|Dvx{hdPll==OC8p+P8| z3R18{Y7DIyl1qahZx}s41bor|v2jQaz~!%q*VyPVYLvVK^SvTE-K>9c|9wLS^dnXi zJ%}psnFu32Mw>@motmWaqn~L=fqL(x#4ji>TGmiiR#vcd|K6R865;?mP141{I$4Ok zSp=RO?Sjn?$us1A;<<~ACay?y4>DBmUVc8T4pKa4GV)4?3G`m)wg_)W-5H2TqN&7& zfvz(g9Lb7z7@^)4wGlFlNI-tOn87pT6Ho zlKO4r8flp%dc3{7JS>8Sw3E$Uzit5J7g>t}i_lvpCqjk5j~uCWSWqoQ!YpdMcHM?E z7hfqaFQ=+*+OoZ|skyDaqie%vt2XQMC#geT`j2kE1KyHiNFQz^W**wAOZ~cE8q&Sk zJDJO^_I|LQk(=y&_t~sR+C33}6&RJdE0v?jh2SY>YK*pKR^U;h{q~ zyw!38&P%pgl$<0@{oug^Z@vBYh#`ZxezI^g7N^U>_9r+)0gh(E0Ct)TmaYVqPvJGn z+cU6GwK%acIi!U2G=h)xn5!?pe&)iJ&dyF+gwm*8d-k2ZctuLdr(b@3;l*pBpH?o-99wKv}?D=)wL+6{ut*-Mu@I#yk~@!r|XuV~)BeaBwwSz9TU020ldJa+P; zrSTx`o9};i^P^wWYC2Y~I&t>O=B>Nec5d3D1N?@q7W?Sz+I;ln6)E<+_8w_!YU%9S zaOtI+md4w@YrnC&|Apg|CQsh9ea|aze|+urk9Hq8wsq%$-TRN8Jb%r~9mmdGZf)<_ zvF9KaUE$uUHC<;fUDwBK`RKEd&`k?ND9IGHMLh28r?nO&tF% zj9aK9nRUQVC{HIJPcqa)B@`YoM!Z1li^y(dnw`RCsI=o7k` zB#E*5vESK^L`*XlW5wIEGZ(K~*^b6b(qPcRDK-m~L{v%>tKReMC5bHI%F4uY?h$NoF4yr~ES+elKjNdb!nhm_i0r zUp2auFC~k4UQpd+b?3QIoN<^;R`o;nTumoOOutTsw5;Y+IQq^eQVoG zH{bo)m%qLA>f1R>^WZbaF0Fm!NWIv`O`8@g*FARToY)z1854#*KXU$jU1t_K%n}$x za+#B`U0NepmRCc)$;&U=y#4SCCto^n^t?u1E7o*w*|{$>GfNkN^u-xeck;UuRGNw% z3XJAt!-p#y9V1mnAa&-Q+`h(i9Q41Y7H#>{civcYYaQ(? zlM)hSS(1-r{_Nd<ejz72x1_lA z;0vc$t?pXhu}V7n(%jtj8@4&d0NA&~Y6MHf`CVw5qdflkz2{7kG?LXyv7)2#1_Iy?RVZbrf#9 zT;g$K#-ygCND6}O;$j#tXCH3s;Ob{uI(%_@nx}xU38cEg3Gs1sEsr%);hR#BpT|p* zfb`v4|H%_gO^oN}o4v*oC>8{#jDZ(ggeW8lwW*=@`fIPAIC*^EzP*YgJX3`TJ)U?R zpaF;f{O|v+udM?0fV8AAUu*?_QtWBh3+K(o9@!MWC#;rT$x9@;LlyEuzdk;#4V~2Q zyP5s~?04KAlmXGkAp^lFR0M!@0}?&V1p8EXy;+{?*<-AehQE%aQNwfC?ls!f9l}#N zz&nulrc8TMc7#ihOv5Q6j6D)5j`vR~?x_iJhxhNzTAWH;0>$_t*f}#} za3+aEY}`{%JSxY=XlEEtg+va{wX5 z4HU}&yY2>52k(AtkY!W|hrSAwoS|TuStO)OgU~G#@WS(mY#tI_>_>`)L$gOy-a95Z z1eWUJpcbLR7cl-I%cx#8qkIKv=mCcu!Yyy0k!2jpRn@ zi#{MpCUJ{l z?PJG|1MiTW@B-TjGL#l_YiepL43FwFybpjM5=_RA=j^vG?|}2m^b{*9Uf!|7Vc6Qz zrFr@-Kz1KQ;9J|;0ZValiONdJ%u4u~TH#F_JcsJ=mh}YYHt$5)yVu7bc|`Xf7#@Nf zp)UAgTwT0XBjpgiA2Jvq->rK_Slak0^@gas2il8g7wN}F*ltGZq(LPqwZ0d2_3t%23WSVvZB1s;->W!1wu#-3TlJr0o!Ay z!gi?S9m(^;sV7dK#Y@u`rOcf*i*aNb-N4GqN^#Zt`Ubv|qW)uN&ek{8S=eI7u0!rQ z1)J#!H5FqlBsvD+FIcwB*~DF%8k-`#JwvzNhK6RwdexfF?Ys7^UAOV{xmUcy)a+4Q zbmHQXV;5Ge2+OUm>)fzm<2LY)V1xRGhSnF3U1)AuPAZY$y8qA#y?nL*YHVz+t*dWe zv8JK1nFQ3_(gw+?K%6y0!l}@H$vl#SECMS@Mq9Iv_7%*U1XOq~F-ShD`Yf-qo5V^y zLGw%4l=l=3?L~4RL+vn**VWa9w=Z0^{{B}402`P=HMqDd6->u_kymXr_C_6R+cgeiz}Jeo;99^DWUp+Ittx* zxD6o>TVyc~M&C{5?zw>k+aWr@4-DB9BpE}<7G#_rPlo6C)RW4WG$r60kY4}-#_pcm zhw%1+gG37!gzJsz!FfE>`|!lRavQw8ugnY`4r1-Yf1ebr9Z9o;rQZ z_(|5SsIF_AH8-xXv@&~XK1~L;X{TyZ0Tl;s%=`-4T0t63LB7GX=EOJ)z^NkkZDOj$`79^JeN zy~DnnAMjrl$&Yb4dJwxQ^eLKS{_>h5brV6-387UCK%h0!TaOxVz7X)a0M5pUcw}@Q z`4TFLq9PAAk1rX1;mG^$lQ09`32cmrZ_!X!E|3U<><-cM z{^x(j41XSb@o_q;G1k=7xN`L>bu`j5%5l?@BEVj%DS2s$o$@j{@A>p$>F!H1(lxf3 zI%SgN7D*s9natgMn^wXlWm{O)~+Ah5G}EibFozF^+m zc@6cAmtK5z%huhxjqTjMx2C3sv#@!~j;{5a*Q{9&{52dS(VRT{5?zkbXJ0I_s(Uai zpcItJuB@okWZwIBYN{ExT9+*r+|<;pzk>KLKccp_)(>OWBZS{m6s&-FH_vc{1wsRX*#8D_vX#(CFbq z!8@YvN-%1j9#M4cUD%Ya4$PCasf?&GDs=(7caq}fCeEL|YI)0{{d>lb)+FIMi+}ib zxXt45GI03R5~BYZ{cfgt2>vJp!Qupn}@0Clv*`xAYJ9M^+5&9r6#6w`M7>AlgW+iMmMMiAXd9uriTACc*K(-P|PLdOC6-g%2P$ zzaFrg{;n1S6fg}?6KN;tpCotJ|72Li?FqFsP(8{yh2Btir8*(PXcdYqBS+f*7HJ|Q77CT9ACi4(OEc(VIb`tgEy@(#== zv0Hb96c5;0E_MNoLqAiVvn*_yn3zaH9r>BSI7UCC9nKBvSjOM(- zcDF8KC?6Fbb?5(oYzM^=@9E)CtrS`jgg-ILLNM&LJ8u-3s^&7zLja`G19tYBcbuP_ zBVh)qFuBY*c2gFPwyF;0W`hxdx#S_U^kux_jYq^X$fs83lV2;}@cf znhNSerIX3V4I56LKK=VY|L0%+`@fH$IAQ2I!;fyeO%Eu399rJg*ocG|6mVxicpeI^ zE|nmo7<1XOJXv`dJEATyscP2MTQ8DL8Xvsmipt=p{n zVGULq3t2|F)9!so@bE+lRY@Q-9v@!2ZoLCKR;;unlh&7w4UL;N?`Udlsjq9St!<#m zY}vMlrzZQ$Ade*)PMe01!+l*5oE*;EG?4VfOY|qLZ^*MCQ*LfY$IABh4nLf&vD%$G zsi~LlkTwHg!nmifK?8d!C_h6aZxwnyg4**`nCd9neRps z?g}bt5kjkU2B?C3f=WK=lpVI_{o zPjuj}z7_RgTHf#R6>Ib?Rfi{SusST2qY$>+|Boi{6X{+yX$R>aD5 zpoeOYqk98;O1tomiDtsuw*xTEvMA%_1w%;0EF}KxKoZfkz51(X6iyW(S|+$#M9y-5 z9u7SuB~;u4`K6q>S1!X%lmBmX0PFCO=$lCBF(IO1I`yfWn3OFnyBa}ayf}Sr*Lq~0QsEP@J-XwA1qFpf7}`6TJ)*|6@X)QW1LSjZa=<&%?jwLbH&>$f z5*?ET@N1nn!Lx_G{7NKkFu{^g|CQz*1FFK}Z)K1>=$ob91wo z>Te6mrOGS|TwUPQzr0e3=Ln@vpN5D^o_Ea4H{PNcQy47N+S1%SV|om1#It?%)@_is z@z4ML-;9ey?gNJoImy=T+u$~ApFd}=q)nGCXHDeVvKKUMHyMOF;ONQI5F1^WycB6E zwyJaeW?~;vu)Sj?ZckYCfT$(@>bWp9>P1^g7si{OHwldmsjV6OO zhk$s$zIKQe;2mT1q+p<=2(-~i;A}IIz?FTpxFJP--mICJus;DSUv7^oDN zL><8tS-|*&Mf@tFhs%cWy3C3~8vA4%KY^OzBgPWK@RJAcM>nze-Wn=~O#A*5Mhz#e zONNp0;*tt-GA(tTm6np3nk>3dvMjesi|72MWd(T<9@J+qPT9I)?aiC7%iHJ5DyQXi z0B~mpcM5F7TBw5uLUpk36-#%i05*XCz-a?Qe@#C=l=psBNy_1LYkU0B)Ka&WG|8AOnMi?@5v&H2JYK zBA=qkz;Iv6IzVzeki=z2$-Fl)cGoEBk;NbkdV|*pQosdk)#ItB1p4`fTHWHq5MC!O za0=OY!)IT7sj#?M^(Ual;U`U=vS49+ZDTV6C8r&AC#Q^?Flqe6DWk_um_B2UO*cp> zG;+~LjT+;Gpx6%C96s9@($xMXIXN{cDMh1z`3vIa%$@iA@DW!1$j>j5(+FV7$|}M2 zh!MI_4y3NbVRT&?syCz94*$vNE)|lKS%3s(#($tYC1sIpG?7#FGUS)^#p%^GHFZ-~O>$~1~`yEYGPMkW0(wL8+z-pKbgoxe}HK$oia?~hkwwQrw zT8ARdj#vNYFND}?T1skaa{R*iGh$<=$4tvxy41V=v}fOb=NEXz5bD*k%>;SF2Y>c}{=?r24i&Im*`j*(~G4wm7 zUiN*YUU;UV(MPJQ3G!5^lC-o`KirNjD=V|IqQV6*5F9rGRc1zpTP={v(FXD?qb+tC z;XxDr(I~D*tSAUEGgWD`9+q)pRCt=^Be}PCFRed%Dq@mo+P*AZB31c}isFKrvSP-mzN&nAbG>dYt@Sl+4Yh^2S@UO3r?h+Xottmy(8ZT?_QCx_wy+(T z2|0l|c>nvq|KEHif{%^l?%Q3bVt=7k?~fcd*v!J-xhJko_W_A3u9jLN1373Wg9Z>x z{dPFdYnBLSs_~t@8BJye@lh~`nMk^SV)YIK@BS6!)<~ei^f3o*$UlM9&lj|HUj;8% zSjI?j7Aq5dAaH?i788emnEkl-Zjy=}*7KkK5%~Wd%qPDHC7LV?vN~_qDN&t)dHOMmMAk|p!A01 zMak!{y>jsQsq-)0(AWz;&zU=C&=8^G5N}1cLA_||h*4vNQ>~E=(xcfj@*z=o!po2$ zmdgmT42Y(&@CAq`2odpofwZx#Tpj_aU$iIhuaRO#+d6=cNeVao=oomFoK^$b>{^8G9>LIjdXR) z91aMi+Ak|F6N~f_fbUgs(3>-7&JZ6Isg#joI=HJIGK~wQM_=98kVgM#5Nh02W5)sL zrDA{Xk_fCv5Y^?3K&D?CMw7*pGXl-!tCue+>ww@m1`2I9;R(LQh5;I`G(&OEl;lLT z+`~1r(0hZ^(Cy3Dvr_ihF(cGv3>_?T3bAoTIti$j_ju^=;SWFk?63dxKiqu!q>+O> zAUvp-BLTazda3W~Ov6Xg(2o;B#wB%ln^xCIe^5;`G+mR-w}U2M(V&b$<4Y86)_K0|$z5LwJ!L z*z25Vvu=v;S$hM}4WG&K?6P-Q)kP^O(o?D8bu~47gkvYpN^{|K&`g%MEnl;GjUAis z#mOD!Q>+X#h7H0@h#Eyp)h%}hgdmyUxqm(QQ0C|WWpHQ_+^jxT6 zysC9;*MfR%UzCv0vb?p0^ie2pCenGJtfWY@<@VNQTi3d^q!>G^+L!OywIeMlVU~3g zr%izmW1b(HnYIYF*Ho4faO77Y%=8(IJ!eV!xRK9m+me=?fD=Ls*e=D+;1k(LI*l2? z$LTOI$kE(77zNu664-7idL>Y6J4Q*6B|-oZ(=>qPC<;X0ddn>ihHnszE~ItX6TFf~ zA0~oG~o&?C#NSl)d6$l=ZFJEu>Y zAOQwdMT}v)e149qSIxB&;^w+Gs7S4f@^)s$1vt{h$kOqnXecVST(aL1Gi73ELNjUv zFht#1Ufu^J#LZA6IEghOy(VmwjKOfz3a1iZHDLj};F>q(kh>emuw(tzJY`S-yZgkq z@(SBAFzy3~2)3hSt{ItUYvf_tWE~4-AAGnWx?t>;fv&*)k z{QzG|zsc_Jwvb$*Uu8s%iN1mk_~6=*2Nwp<{T42jU@qDzma6E|Z+%ubt$_n!yS(TH z3*ve`D~XfXKBTg`=KQrAhfkf)&C9QEZvE)Dzb`GXR8mA>A%>3{JzCIn{DjGqCQnnH zYT*p!M6?=N@tPIbtXL;g9RnBlwBhYu;j_P~B7!e>%G zB=-usvGE99AMWzdb^mbzV6`389Z;)R^6D6`Pw2XdaSK+h?5M4-TDENI!ng%G@J9!mK^2lLEynkgAG07BsXUhXb7!NG+*{);m?T+=E3tH{@@2j7laqn(J_Wp2w1?fENfq_A|4jGexizWdOX~`U@+np z#m||=PEE9I>y*jbKk5USx+r;FXQ%YY__zg>c34W&2JeTD97A!p@7TF|_3HDN2=a5_ zCqV`_jWCY7(~v8R^?jMF2sk-E*o)V`C%RgW=1i5kvsB zt5&WA>5UByn>TM=wQ?0T+w}l^CW$oTpZR%tTn1kk-B=3rK4On7b(#U&=m?3%;K5uh8gvZ$Zx@nUq*@-tG;udf>1WP2H3R_pz)HJoUxMLn1 z=gVXDlm$E#_9FSh*)mNP%Y%9aq=Y231I*K!)vGlnz^3tG$H-6;{p@IO(};%BWj(6( z>pNjQ5oX<*m8iSduFf?``|_rSc{8SKJPR%qC82I~?B==}_3aRiR+F2NE{8m*+|#E* z6@tu=etjVc3<2X57+E3$H{JmCd;}r}-VV@=CTJ;wiPDqe>C&j7A!>&oA?*Z*lxxC| zbi8l_Ty>-mf<&Vc;(3RdAJSB)#9>vho;--L!-q~8H(JL=Ef%#zNLnzL2t$*}&&tTp zUeeyuxP9|R+mf^tD2@91c<5yLl%zh3`S!%y<;+lG^vq#d5M7oCw)+!q3=CPQXdqSi zm0aU~QZ<+FdU3q6=j;E`j6!+S-)%`fn7;sAE2NT4>~c-dx_?f-)Oy*>rigJW|0 z?PfO#RBsSQ(2w;hu>p*OdIvBQ5FRXh$NT2mj~~1brTcbh$n%eW0!WurL{3N1yWMfy z_rLcYTa^4e1^eink@)R*%~19$itSG8gf0WTKm~@$W&1hOEr7J@vCmiD`?zDxT8mgN%_|72LQkAX!J*#F zi8S~Hx84N%@@GPN%s8o!V_>_qN-W(*duKRi&Y0;V6DCZgu?U{V$0q`Ic&k;(%-9(_ zcJDWDAU2lnKZV{t!lww0U^Gte*B^j87`B6bJp|-80$~vXpzS9xPhy}rKjb(49OER8 z!N7e=KLJ0@pQ6!NCIEE%C)GtVq#gxBh75-A92T0qhQY~H8+>wEPzL7Do$KxabHL7^ zyPqIEO3{PSkI;3m4)DHr3>8NTn3&ECs2%B2JVBuuq>c__Hkn5fDkQ++Y1_7JTD`J^ z&v@Iv{EIVqh>+j#^C+pZ)YmV5`&;RY@>ql!kVfZ6s0?W%Cyb&8?x!D$k-&Bmfm&?3 zF5=g|ylu;tEnocZo7vN+nGwbweg)p?fA!T>Xe+;uSE~k=(R0y)oJyxQ5-_5LUS%1p3s zBo11~wO8MUX-wWwJ@$J)OQ#}a>3e3vIqmG3Gngcv0=0*PVi^lK4}O^#r}d2j0VE>5 zYcO8l0@!Uxdq>9#Hid=qW@xrsQNc#g%wapmo|cl5wkQQ+(_x$h)Y}KwHt^1NmYh)JYLbIZg+h5)?0m0?k_4leAr-hosd?Ri_~|QH)HC=AgZS?sxB{S zX|z;wRa0Fxt%ekzyChxy47zSo;I6(Jw);A=7U6|h1SjFP~@DJgK-YzO*d{ectp!->}Iz-Wc7*q z<@hJ+e)|t)3u|2eFK&f@;?Dq?qK+4tP>4E((-r#0aP>;p@4efUw1IQmE#LkJDNL}P z>p`gb_CI{fEpmSW`yCU=4M6-JjNcCWxz6D$!JH(%xEKuS_wNizorA?gtv1x zq4EF6(|w2Oab4#D_md})X5Gj$AEK8!gY)6U}ONx~!c49}4;;KlFEk7=a<2ZKyh#yDF@66c3GyFI^-+VK7 z?%eyH_q^xad$D&o0K9(u;~#(c!D~?0`FcGo;0o-r8>yGS{9k`34Eo1^{%5`2UCeRb z_FN6m#p~<#G1F=1Qm`F4+c?XO^>rvB0S6VlcJ;~+e)#7S+L-`}The1RLg?*|M`xx` zh~PZy*1E6sUR@iXcR`m$*A>?$9m1z%J@9K@aT$57&4)lN=|*CtWXOvbE|{&FkAQ5q zG&RZQ0)W5v?f>wFFaHwAl|n{XN}yIFsRmQg;9>NGG{S$a(Fx*BoIc$Uc`YUUVaPPEhh&1fJ<3o`84QJ~3+X zZV`h?FOhw5ggbzo+dp~oq?;0N_-iTDJB@2V>gPm|o)o)c_inQXSSOz6B^WA@OtImK z3=R$~E-f#KM(5m^Ykl~5p!8J%yvodlFZ|#k#N2tsD7+QkuBg$jNxCfIB?zxaqGMsqPmPq zWmdv8J+f#=P8v~F9%ye?9I2jE7`==Zt(>LBg{Zq?+o!AhwD|+Ml^T>N))7uku{}bN z|D?AE$j1t3Ve3>FcxMywA0S{wKL`x!eWs?6kma>PylGuHMP>75n>uMOR97qy8e6Fmj+Fw_1k?yT9`fKl;&|Z@vyOK$$m)AelGJ-FXBI2d5ZN zzxUyX-886RVZP3bH=3l^{3KdXoFA>_pUHca^do&jv($vBl6;Ky;z3V-2(Yt0t<6ok zfLObnT`_l`!caUtZ3fQ)@35VSjkIIeqz_^;u4^B0MU_iT53vMXDh6v-YP5=59l_!H8uf`?!@L7qECz?b@% z4wWLpI0EN=MV2>&$^}tz2w%hFf~ z%|Y&-_&86E|D|GKl{aFpFlmsGTza0NTdX<7gW;fznbd(F1laH2yDRCD{7!H8`O!Du zSeTijv7BBy0o!NCM}OhtA3t^CI3zh(TYaRh*@8hA&z&9}G#&O4B8*7@NF0EDYHUR0 zPPlhrX0omMAf-a9(@yBaoJRmikp`QTf|P^B;E#~yuDf8qF~ zg(tAsF+$cseae6@J2p}bLZymQuCBlcJQ#P}2HS(KKN`|HJhwQY9Y;{C^k5oGb!+7S zDN%v3E_RGo_H>>_Q9~R~M#sYh`jXbD%ih>QvNLQD#zQ683)1gQ;Pf48Q zqZ~^h4CL`}I}jD$c0y@ste`>V3a7jETi zvlK4tIzAPWJCIHS3C8Is3kyeKI8TIyay53up8^MrPG4XD1xp?;pYoWF^P?FESMaXRF7Az&q#&Q7%bM z=ew=bgIIZB3j|>M!TLI_MdQ?`Nb8Yukg#-PKrky|AdU^7j@g1&t^gF-tnsEznB@Qd zhky9+gIB4g#-yA(b2d?9*1hkMN8GnKvSfFP(Cyk;N`*tBkP0nC^Rw~z$S*)!w>9R@ zU0%I^|BVL^kPWs#-Ws-M1u1_zN8cn>Ybu+Q&7*KgY-X3!mY5s99<-N`6X`UgBlLE$ zRD6}?!hKUI8_v^4?%lhOv7^UW`WL?ROB9AQqKfeQ7RiUqqa(vIk>t&bi5xW2v$p0C zF|9h5R}jh#nWCx^Ho{d1FC+88gAd=ibBB@-#|h^C-MDf6)~#EYFJH#GU%c|7oJM{D z*4@|LEeA&GqfxGaJ=JH%VkK)c&jLlf%G6R)9-F>|z>J zh4M5v9i(Wf6Y&E1KgLO!u1$m*ynp!h*WY>jEw;dP5U;;_->myXecd=YX@yGjkvBff zF3WX%`Px-_yAe#UzjE)w=~GbMSR>5|u*=WfSGm`ae_D+ZLmjP6-m>FT8z4_r3rLDij>Bpr7-|X!*ep+v!M;ou3kaq z!+TLvvnU`N(2ubI>}a!268OJ*B_TrFbL%7(>=_t{+4{Mwu~|^juk2tUx`c!1u_Jz^ zz`pfEe>&(4G6sls9p4(hjTkxZ6>+6&O~&NfrP z1!>QY_~|yTz4U6bOtN~kRf>v0w@i|<@^ZtHsLiE2%Piw(P^V}pxnj@Wip$roTcr3) zU;R}Rau*br$bQ^ccYvbqgcy|6hOKuJbFguw8h+B*&0PS8(RK6d`h@D{^0EUnF?luu zik>?sL#Erw&{zWHzx|EhdH1uw$l@>uret6Yz&q+LpNHB(c){LX#|eNvS)O>vb%4#B zEc_FTR8>joY>4=&+!)z14ULVH(-v|aSUPp)=B+zYC+Iv32N+-ifIo}i3g$WxeiZ_&dHdR_%c!@*Cuad zy%X$%_n7-S0d2h96r=ofpZD+I1q%!Tql|Jue*d|Ud`k3>O~G=%_s4&N=`qd1y8OrB zTJ^;8O79UnZE6HObqMX!$t3~b1dHmeFGl$hFf|(5h(fmp7lsZQ_M-7?W*Uk0i+!$H z@eIO`gBg|zz5qL}j<=)hwiqs5Xmp!l5!UFgC+y#Kl0JHWLLs=x{x^#cm$FmBhhhu+#pawJyaK=N8N+B zPfj>3Rm&CIj_DE5dv~POz;=+Xz5{G$Bg4boL&ta$$q$vUyo??6C-lc)p&~(p*n(^@AAX42BiJtG;=XmAZCPe44_DU@ znF&`zUGNiwn;cYT@W*mFje9FwiGN|PUjn<=5%|4!jiI2-vsR7CBP8gG+JKR8J9>0N z#sb@8xmDP{+E;osY=3r@@uwS~U9(1yBet_gDLxAvM=?BY5@=9tMfH`<4v6+>V4QhM z4+3)sXH1T)j&ucYg8YGHIf@r6nS)5)P|t2<5=r z)G*7Z&lMDv7@$;9iSzH446~=AvbC)Zh4yK&486hC5Oqing!u*Auch} z^XS4+S~{dP6y^RaujAe@wyUcPck-<`Bw{ZQ61E42FD;dgFRaZu7M?Sq48!Dt=$}j& zcE!J*o*sD%jK!%_r&thn!2|*xK^pte@QCG^m>!vR9Z6O^*mt|h$*D7E&)exA7_eig zEO>V*<<~@rRJAqLrEE-z`8mtEJl?X&2fS{tKEfF$kdbaG?{!@Wcjk(O`3$|L;y8Q; z^}385IfpW*&>Ns?c}jB=aoaDP3njI_wg!&z=$Q~28akn|F%4cHS^Il`@h2Lh3z06 zbh90Ri-f|^7~0v<-Ud-=?3x+6>tumluqFq^Kz=$1bI^3K-c5~rGQ)-bPAwsTr1M*r z78Xi1Vg9U@#R8h?z}#imuD&QI+;~({%*TKJ6Xrjs@c7TCWI|Xfa*A?e=3X$&?Ct8p z`6d6bJ8s9b5GJ6{fOP7OqAFhKOXFkX$!6aP(AW_vui6s(?)f5qzkfd$o)t^kJ9kn< z!W3S3J77Vrm4)||1c8t|8lq-)Pcb{ZEMsM7>!73Tj#Zqvhy;h9a#pxbw z#Zzwz2DGGUN*%OAdc z?Fs^KtzYu{3ul(0dX=?@Dt1e}tFNh8Iy&p;nj$Dmu~9PxQ-bMQMdaY+=A``Ar-Q&8 zRBEvzm~;=S4oL(`gJp9iFrT5}W@E|0T34XXWthVVX?g$(G3bxbBJQv{| zjS(rK(i1kFCT0!iHD*#F_QfOiy8Nk0t8l$Z4}#vhtu7)?>G#9;_=5)BzKTx z1MLy}H0tUz?85sWmHfb&hv6w*w<9ExvBfGs;rIX?TkbY$!4{B?DgX_AmT-!X19n=6 z5!o6lZrak?Qo3`eKq^?KKcmn~ru8^^s2?tym$g1HxBVR~b$2 zb*oH%T&zp*bW8%QRbb|37UIeQc6^?ssEKOQ;Y@Aaq7|XsYF>NO0%1E~$C@~S(0hD% zu*Z`0g#{VUTN$CuIi{V7k5MZ_1~iF&j0MYpQQNV7z#jul>*241?(u?>t>xD z9Tr}K!>oTL9V9ttR#pwF=>(>eIqr=0Zs4ffAMI;UUIo#F?W0QOvgF_>Y zpA0fRF(C>7ZwH24(S1OMNB-d0*mV!~s zK?jsG>lg7Kr?yXjfbF6NV4sF|xV@F#abFTWVTu4`Srfp{OTy1Zy^Y*gT2$UVEo>YD zua+oyv>M~+p*jIb1<7)e@g_Wa{mR9qqjN8uIVFl}hL(Zu!_o_{UAl1l#x+@m`8in@ zFuHx?sT|I0YZdiT4g#?SNKR9>$^{=r^Pzq|iXH2$?FY zSFNyv?gCzuDuQLvP01&oloa87_?DiJV?!{Hk63~xlpfg@(+BMES$9Cip&V=n%N~dvwG^F9CK zpYx!d^OzCiiAo<6=_F#ix5KZuK@70qji^t@00nS|5+I%Z(mAmOf{d-Kqy)TYXJ?zZ zo$QRbBELiutQC`&;uwfsU2SH7v5Cq0gNxVh<25R4(o5!6ai!--3Z4ecfN`X~rn<@ay`&K^v zw4P!BTB@{DqK>qezYr$Bk4*8^k8=j_RBBhCkwVpaEbAa4KpVWF$Ulawi(o-}= zHsaW^W8eStzc4^%UriMh)h4fAz6h)F*t-2@Lfg?}y}aQeqkCR`{lObci(;YJOBB+|Ko4|&dKuVQYF*fl~8xqx+w78$5(&lUqc%?yl$r>khryvcr>fV z2+PXoi+M_mn3d9!Vho%*0q7{?BSV9t!%*Ff?xX(K+wCiejW$y!uyKF}vP2ntQaJHp z=M$gZ4v>;iAUx^Dna1*0S5-*hWZ8Vue7sgIlTCLoh-$le^Q8~J@unP^x8D93Jzw@C zY^OxI4xk3?veOwggd9G@^G?E1C>}A_I*DELx_hO*sK1nrHNS1;jAg$Y^O7=e7WbUw_rqTOWAzeGgu_+j{VTQI{`U_WaU$spCy`wSvbB)8hp>nY)VeO}XBA=wR;F z=ktx1%+9dj9RP$gn6L&0I)Ey46&A!dQf${`@lsd{X?;Rw=bMSkX_C8w66@&I73Mm{ zPW=#YF%yJt$mTC65N`+-C_Q~1R>N?qI3l5ljr)q0@*KGYu^B3$J0I>%T zB>$O*Y*0E)hDiyzPhg(Zj0Dk0j{)XBT_M?t1^7}__ost`ssKMdlTdFKAkV1gB|zFy z&)}WjPOybV5C*&p9N2{3v_15XrX>jo!du({?omsCo7UUg*GGi0FRGYdSP0l7pRuJ? zp3L0Bv7^VWkvDJB0Ic4^b0M$6z{B*tSzx>|se)V5{6;{Z$mWuBsOin59)bg^`Lf^T0^TzVY#aHg%d;6`A z{@x#cUsk-C1BFU8yciZ2(%++WLOGK}>~DPY-q%Z;ahmE^yNAejU1>;1p zFDVD$lTsaZ5N*bkW#SyN(-9}|Vq}?Q7;ILK2dc?}OpcGLOv4TE^SI;4(3w-qc)LtU z-^Lx;ux6P;1DI!5XB*eayfhYuBhy{KcIAs-{KE2yqx6-X>MtK0+LZ{NJy&lJ?}2kc{my}OGGCI)*OYAdBjn%%`Lhb;~JGoRlGhzZnS zO~XT>5l*cXK8pe3@OTIST$QY{r%2Hl@+lZa5;HJ%z)KZrZ)vi&YhLa)q*|My<}n0# zIO-1W2;i8rH>jP{96Ml&C&>7Wsl$v&-MCRBH(`ig?>H0VQ|HyeVXvx7fj!;Pxj?kz zpxy?b0kuu=6tG9A_X9+jfOO!WLbpFv5lDyO1Q}oXQ?`tKC%}AJ5U`!$Qv(d5Pk`Vl z6dTxkQyLzOf#e8=cSKyu*_KUcf<*vF;qiM64bqZOs?5uG=#XKbmDRTDsoA;Oef!DO z*KWSNN5=b+ZpzHS;80%PjxAfZBF5mbuI_-*rVw3gN7PYeN()Gb$pjf9OjcGV2^Y)N zTd64I7odTLL14H#I52?ELuR6iRP%Q}{z;xR7g&VLI7H^a6(aR4Nq`iAsoYz^QUG?m z4u@wrT-K!^hl~z^ZlVnK9=>hjKry(evR9D1Ez1-E5@WPo4?uK~#voh9Yx0%(2k@m5%f!RC<|aop23OD& z0XR)2oQ0C&3+K;DpZNB-zYV)k&ogIEUw-k$ew6QEgNlXi;*5fZ)Y^}|^A5fJ%EcEv zzcvHUbvM?B<4HNhykvb#Nu_J8XyHFq-5}QYMnXa|+V*7%m)L-sA1 zy|23q%ayr-9J=ZL8fzl#D=R6%ot$8tCR--X`06Y7U$#oqt(RWDbxUgf!rYux7B)hH z3swx?i9+3Uww`WsD;C}%4%%=)hT+uM81;h`Kqo=wN6exy&(GLB#xJXd-?(N%blRlS|X$0jiQu(Qq ziv}+Us$Rc#)xuS32!U5f8yFWx5h-A-)f;E+%;{z4Lrz}G+|M3fU+SuRaS+d z*2(VJT~2AInVVNdDxE?4M3^J(&Bg?YqKcLR`NJ)ZxO&H-hKb>Rat(HCZV?K+3CB76 zpaVo?X#txy!XHo%o1tBoJK#<2+<)a zK#d3X5z_Hhh)sm&1*jafTlq=x+)LNg*YpuCC#=TU*;ZDG$AR{PKLDsO%;mPM45gsP z+sr>E{gUBGip6RXxX+XzwH!Upel4JB~wg@NUP?y&z&vdIA$5mdYH%cE*>4s~$iHZ%FYd z?I1zu9GqbXZ>Q`^xlJqh-JaYS$*9jJfnp+-x z(l)k+!W^N&_Is*3LFs#PmeM*vn=ZLzE8VtJeXLjMj`3r0Ts9{G8 z9Cif$`w6zsh)AmO1MrTwV_bSDlMxS_naOG}4H0tPyVv6YaN@t|7TiVNKZM80U6$?k z6jTx7jF$^4eG2TdSyCctGCWWRvAE%(0i;MPMTBq|?IaRlVz67Rn#%3P&xwKBDr~oI zZ(U6lG6UXWf;I%(_4L7kJ`jo&d7FYJogJ;8{lb@i7?Yr(XwYKV(2qGj1$tkjR|7EenCvXuXwkD+Xqo0=M++sb$<- z5Y~j2AoSXcSCX+j%e0+ToF}Td6wJikl`~n9qy@awJzx~lE}V*rj}8t%@^O+oL)g~? z;ZsfCvWAL57lN@!JEqNVv^g$gM-ER@Lj&%i>40<;h>9q$W^QiQ^%Yno)N5r93y`lM!}Ll__)9;Hrd>efEt!x~Wn^ACIR{+$$ z^%J~TUyw`Bv*1F4P=){k`$|g|&*eL~xW41oL>Qorhlj~{@2$(|EF=qmn?k9=?x;f53K9WG6c_uQMH*CP-&>A#eQe`OHTerYf z^}}0HfeCa6Ay4t#p8(uvO5FiM3izHn%z@fTG?}ol^z_(@?vxpnEOV>3Eo_~T_RI|Q96$+~8E*kO&EH+Y-)_JjDO(Tz$uJc??|b&=@LOPnPq#fm|Y$$m5?TkW%Qo`MGk{#(g*h(bx-B@ z6yE8&WSex4FiWT1GsY23ANEP1W5{4w*9?E;LDA9AXU8HCLQU6BQo8Kj*fs>%8$kg&)+XED%UsN?Hd$0)W%oVK_UYsO$n5CxF;* zZ$3ncGHsVXgWFpN&=U5Q7ERuRk+NdAx_lMVw|%q6M4CNYysMnAAug=UA`uEtaU$B( z?W@tn3{R@7uHtU+%LvHO61L0#r?9&bXP>jc=x7^YoOs2E(AfRl#AmWM)lX+f+vG&J z6^L=m!Fn2)_^35!&h+4csd{n z={QsR30-<@WDr|s0<>7L2~-hIsHJUds}K@?!FI#^!8QCrax^U$=f%Ker@5drfiv?B z_lPHcg^;_ZZ>bQv0CMh!Fj+~Ux*a#73nj|Gl|W+b65Hg0_Q5-Jp@(3$uF1YA4==#U ze&S4ilMUuGG^7}6ye`Ju_ojTSoM<_?)?aj!gs!i~*p-As)XagJ}{yejqS1VRno zt_F2pPp5~%cJ7RYQ0(yNJrTK=xshTL;!7gV_`hD9AB&GXFMuT|rt1+IJP4FF$_Ou( zx@am$t4>$d)L7v96QBLU_~fLSWL~^}-HPy38f#QHm{Op+26Z<>7v2jtA-tU=5hd1Q zmQBGgh$#-tjsg&k^g+W6BRbfKna|A3_!C3}X9yfBx(xV&0tqlM_RgJq@{nOW83!_( zZGgh#n$k7**Y1PNPJ`Y){haEKz{^|E0ohpq?Y?&0+GX8XM1kSJ_K|=8s0}gDaL;Zx za)J%F&&hF_EPxNmMIth{Ci6?Ie@>9ms}~iOSAwGC=jU}K>r*7-dN->^)>8u@Be-wu zuYFeG$gl{f8rLvv`Un!P>B^1a4@!P8UI~AoAL1UGO~LkD#9fbwPLX8Gv(X$LGjfOr zO^%O%P=x&Uox5D5!=_to5jJb=q-h-P9Drj$a%{A`d?%fd|ETwQ``UvYjg~?PA+dDO zB*&TU^Xm078y!!pUu+I^|^Q8d!E!c#L*gjb10yqb;Z*4h*JcC?C z1(?M<@<=l#k}#wi-lFcpku;gp%O{P^2ea59ss`Z=P7&{5_#|N_1pWw7orvu&j0hv; zjtDPcmv`6I-WG)XKpg{Q2tZvjWxC1OVY^S`f*BWS82k%YR%1pUrH%d2dKUN6xij*gk$LIv)qBbfb*|mJi(E6< zbGTt&H86(^7$7!i9(C{vJi)Jq!KQO96&r8Y0I*GMKwE{hU=7+pTJIG+>IX~~rlAs4 zi}P`n!u&knG6b&dC$N_e1L!Euen1f+Jsw+}z`)5b1Y zsZb|nB6$iZB2?#Jd%)0+C^IHH%h;;+^k0O~6M04lS*`fX$X|&N^3BT3{+9tWspxbG ztV(DV!XxlBcEDZV)O68e2Nzx#8JjqMO$-oYjd*^-+t(bKrQ?itAe_K-3HQq6~(K>y6eiz zNWvwN-<~AM`3c)WBq7vzE_N!@tc)33K{VsbFHi=dh8!7{`T71*6t~8=Jvgz&I~A>y zO2ZFBQM_(Ps92h@6jj5hZIm#C+(={&nlwl~zM=jA@+RlblAzC*2gi=uYLWS9=V{f zKqgOnM@K!C!2D^1FYQ&5!?tWbG!A9c4A!j{O_I~KLXeBouEHMWn!kXy*WXMhDPQb^Oo{M5Tam zti=V)(k4D@c_h#+*1&yW84!{famiHBd16BKNWT#_MU^Sogd^2Ohw1M=(&=su^)ewz z>)1XO#h+df^mZ4?ia@}&TdLJ=%TMgq>y?V#@f3`a|42#RP9l91(?m^H z{y?KP>lbAPPEL#s6LZcipESEKoCgcMa>)?Zp}T(N1&c?UWM+PP0tk@Str9As9an!g z(W@;f;W(UcZLG)VA;uc7e%-T=y!X8*G3Edg<>8oR2pt8*Ss7b^hBgDDxmN@tkm%{O zVe7!DF)-^)<_vEKaUchCU>E#QGzVCbK7@m{bFbS4%~wDx$Q4d9%fY&55fv>N>n6hR zVYOO}8d8Brl8dGunIV~5Wswn5G8rKolm=EF)9mshvPp0`E{)6ay@Sah49e+XS{!ly;CkRr8>mDfAN-(0-hfaCoS0Q)ZhJ z;6L7;YBI207PY!nX>!}#%iYym>S+56H8nBHJP>UaykqjI$IVySHNTrBU=SA7y1)HGU4d(LCufjtEmgX590I3oqCaw*uFK@Wy~{+F;0MCN)MN z6;a2%5p}@g1ZzYg<~BNmedHb_f_J$%;UsK{S(rSl4X`f1~tFlv4zG>{xPq)&KQee;6yg8EhDl0nM+ZW~n z*e53@MV$>A!gHV#>TBLA;>PIEAf+1lM0Y`x^by904km<3a)DX^P_f|^naDU(PvM}k zpCmFFj*KP=hYG}(0c(I=uDe&(Y`kZ)9GjSJ()nnutJwq`v0Oi&o0%cA7}jd;FEa@{ zw7hfzwnONa=0og+%{5bYjlItq31DH7@li0Ygy=f-_SDF>!c%pI!uvSHLiq}v*7p-^ zM+q(HP(p*%=T)fQFSH8ZRRXUHadm<-wLb>b&-qVPrd4S7{3rM&rfIxCh zQ5(>%aAs``OiAeGQNlwoqG9{S4*A8DFB-76>FBx8nnIqd|Nq`RtUBuOhDspUKI~xQ=DG%tk z=BlMBj7Tnz$<>5YZMr8DptSfrP0VwlHQ21T?A@`&z+3?|QI7*9cJT^~9WE=;-%)XW z)h9ZHlPB>0bb{MKo516$Vu!9=ua{9U*+BNL8;pY}sgurwV;LPH|a}-)o6*3cH^jzw?loH%P0y$Bj@2p*AsoEBU=l)E>l}aDCs=7JDgq4Khy!Xe2CU&OE1yZ=9qoMzUs2Qk zWD7vOpJ;wSRZyK%z*sO1k_c3~#u?^-EVI_|x^>W3UychQxuT)JR75ox{P6dJ2NV^O6k@`j@8t(VodiOJS6v3=2e1y*eLNeVu6t(j4>3OE3Uw9QFkA+W#gna0shwycbRjWBlZPXp#1I>UY=9veDr|atD_K)`_$N^I+!kf2u3V48)(dmgX2pbfgQ01G-}i^ExG9hw7+%Lrf7_ z&UqYzKVk8>qqEi*6+~^G z8XF$$J#w(FR>p;|q`{MG_EqjB!V=h}(}>66fkJ!0pLGB}sEf8i@gPkjidrTz971<2 z!MsXihGyCya_(`oKuFHeP*$8{pL?P=td?Q$G{V1<#sWym_yEn0JQhC(!l<$<0C`Lj zTqE|POXxIj(aHEWgW^nggk2iHPryalNV^Q5g3(pCq#L)>ztlEA!cXva7DSodMGY&z zhr-*1JivZjaI<0fVU@(HG)Sj$ZM_|D0fqIJQC#%N2jou&D1mpt4m@#hMGgODg-qtB zxxM~`?Y>ZH+p;Wn7L%S~TsABks>iI4E5jjDaz#}h7hwgAB2h2~3uwc3n-`>(Y<5h^ z8YUpgcw{1+<7I(#I1lzE*zjT^IQrZ=_l*$hif43QmOZ_N$5a(DQ7q(2um#9?K-p+K zcQ_x`5DH_}Iomv=|3hGdfXL=ViXwxC%FC_OLDij`U+C&SB6;TgrOO}x%ok3bJ=@Y| zhOkzHg;)XqU^~g3nl0@R-vM3Bgbo3v(0B?-xkv7X|G2000*}#nQ>QE@fZrQLpqk@)Z+Qhf*6u zatTo=cssZSYp^}#x*lH%H3JtkZ2+?EFS8|i*IXO52P9#pWG_mG`qV6KULEN6e<~t> z%{~;B7RXyrm9CRxVYQ^`XxPpVk>uIcT7peq;B^9XvJ7mOHXy0nzS~a2#Kf_I=2h;m*N4bJ-}pt&tnR}2kCCn7!{ou5U3LF?4`D7ga#1@(Ye&q6>zBJh#r zf|SD25Hfa`7m6k%Ly%xBy+z~~wnKRQ8A6g@l6@vX()d15j8g$s=trw@@v$L5br`kg zDfpCFV)6uQh$I?I|HQ~J!9NX>$`lfV?dm)%PZh9>BM4s(8bH<6NmM~vbYRUJ7TMrD z>aJ5OW9r?rCaTeyHl{(yN%^%&Asff-5QQvco5o46ae}Oz0RjI(}Qe8dVQCI?eLI{0}}Nz?UNr45?$YKeKL;P^R8GF zyVwaxj#8-{uw3U!3@1Y|5Y{(OoP|bbSN)WyG>CYB%mmA z9mUJQg(xa|<|m%Q4yd#}@%ZB&R%?f`dKS!KP27=g=0(HXLz*nrSDhhKWd!G-EMkeM1 z+QXtirv%tBM#*?+AxMXJx<4|n%?BnJ&}7;uc`W()XbHVtJTp>Cs%uUxTG+a6Z)Iht z#fuvo=Z_v67#v!%X63PCfW57)l?LNX5&?K;5j6goDk4QITmX*8zk>&N8vCc`ED(6sN?KEs>9jz5Voeh!5KmSZYTxw)HNK_z=Bm^-J> zdm+qX>0D-zwR`8zcpRDhF+n=&E!=>jn8SY)cz49NK4E*hql8Z9J7xj1b1F2uOC zPn%{|Td`MlJ3@)&q|1(wmO#28+{u8o=_xc-1YUEJk8K{vWAk$)P?aV@kJ?O>05bcN zVLosbh*8dUNmN10OpMP536>}#da0H)8|pvu1Gg0*H#^%WE(*uIaq>uMQSeXAl~|u6dIj&7u1wsj+rl*a0aP8e(c<-<=eMz8JiE@BbIt>fkretIYD3- z5|tHB&?6{O_M~*ecEwBFigAy_57mX?OiJ*O88J}sZgWR5R_xurVkAW}2&++E77DM` zX^rd->WKS`y$OuhxlSs`bKi^Dl-T0iu7~pnv&V(}) z$L6NlHaO5wTYdM|O~ZW|Dnp!L#nT`9pm9&I-M7f0RXArSM$1bItonuz<9-S24p4%z z;1@lBAuu1u_GeU0f~C){UWKU3^8|ww6#*FVVOjuDP>l-JCzUuymb->WQE>(5>z*){ zkid1)6Hp(Gll;QE!FHfz9K$v_=ZV6DP{BDQHVC}Q5Y|0Q5dvcDCXT_rXpkyXJ^P`^ zsIu8tw{FBV=v>rJUB}VE1&8 z8Pw~Zc)llv_6qDETjtaI@)LC3Pq25>4=@DGF^t0rRY=;e-Nk*CA!V38eI*)h3X%2f z4qs&hXP;IO%0trLWT))dWy(iM>BX{|R8};j=f&%UZeAcIeG=@J; zueOpxKW1)|^i4CD$^zK^oLy4?upQb%13y90{Z@F+4%DK)0BR>BSuweu%!`BYNPD*Y zTqooh(Pr!_h3dJKx-$(=5!dN0kw?*#EF-sV;{<7?Nx`EjX3Lv7_(HrP&nQBia>@`!;#l%iC827OQ`Co5_O5n@?F zc%PpI*GMry!zOWfc#Uiaxjx(hqK}4m&>=dEmx6ckLGY-MX6_XyOq`Jgo(lRuAQZRrJ|7Y ziP0e|kg|_p(~Y!cPn?5 zIY<*RFR&r2CI~n_HEQ5Z#lokk4RjiX$DacZ0FVvsRqF=d!Uc-pE zIJC6+m1prQj7zO*%#J9VA~8(b086CHfcN5p0+`?dIr66Vedg&H69n7oFo0d$3Z!#m zF+<)i%Z0$Zqvusi9-Msg@Iw#Tx4~*h{7FUeNic`f3Inly(p!9b3&0#`T4!qmP&>%ciVK1D(eE=7RAEJ&VFQ3?Zq-s=G zCNt;c1%wjE3krza6kVV#6T`~a6;;)iy@uzbqod8u&6e$uDrqtnvb>G}hdI0Q9;Ff5 zWU~-t1P06GZzK#EPC5r?rg8*m@7$^D_4oFsLbpmr5%p6&RKG-x^fh7*J=vMUyZRlm zQ|BVZ(-w@5F^K*%pZnakt5=5y2g=QImM2P^ho=eMIv;MQfbSE|v&ilntHhc%$Se$2 z(1^%Ru9H}egndT_V;W2K1J;Cepbc1Z2T(f={`)OAgl|G0^2o4V>JB@|`ViYUQq)oI z7^L<%K?YMSD#-VAWEndQi0+kOyUE0iK3Geyq_@ilpfTbezyJLo=r|r8F0nWmnwLo5 z^QQQUz~}Cr+b>?a$dT8_RUI2As6_!NJ=8pQSWNiw9lTL2ml1*9{|0;%jWYinOn)Roze5%b)d z`EYV#>DbW=XU|w>ZDw*@baHv|#Hpndq-@FFuw5kxjDq(AwKeWukvJDxjHoEh2Y9k9 zlnow-H|W`s0j*30Y z5?{D*-q5MB(P65O7NT~PH4FB|Aq zfv#X<2;g}N_z<3HU>?Lre(I-wiks%jaDzG|O9!eeXY^$cp8&pE1?&(*T$P0lR8J-= zrVFVYSfsb=$Uu=a4d_y>1BWr~rO`>_6O)$lFhOENL%kFQIwxg2&2ogLBB8Jy(4{V| zNGJ(KpF-%lMX*ul@>;+wct@XHT*b<7r&wm=kl9%yLqq0A)$!SQwGAOrVh4%v>fbye zPD-hwMC17@p2 zncWOb+qU_6j1+1A{O3QfY2gpLi$>{Ws)CCnJovv&Q%PHkUtz)neZ71fZyrkPU$~`5 zRv~8W_aG|POZ57Jw|K(!F>570?}%!ry;};gtf&ajHn9mjM1kBe0G2S+wv zK}&e(|NJk*|1}cSl#ixjDK<1292lJ@M1(jaUs1@_f}vJN?LIOyZC3IjvcsvxMevTU zQ`$kj_=2<+RNRoI$%v~?`IFM#RBsf11wJOQYm=)fR4Ri-Z6x~i04)exRx=v5j47LX z&?>YI?NBodVqaY$>H#|7urpOVcvtN#0`p41AtMNDszwZ7nFH%~mD7t@4^KxA^P;_F zb_7?)auHet(hfvoyTOscqZXN^WX;dd8cnRa`ue(I`0?XMr;QPqo&fJiu-+4-Mlij& z5Ev>FfsQ$o)d{|W(jzyfPua2=Tp03p=Hw!{#_;dmz9qSxP=kt33=N3Lo9jRtH@~l7 z`?j&6et}m`z0piyq@%g<{OOa28tN!B!TNY`8AKJ{eGHd|3GRj5Ium61N}a$oxQt`N z(jB=mg_lYLT&d8_D1bW~#aj))7FdLh8)*ig{mDO~>T?xU9VHOh8Y)GLW(yR6`EZ@) zgY}RK!n3oAA(7En zQ>asTDe9RjMYiGq(1pyFpbVTJPbpsqdh6XT1>sc(Tc%C`FZ00=0B|o+Wtw^j6hm(> zR|R5##=m%Le(oGfnmieG!YBZ6@4_on1L8P3E$!WwgmgDKZgU;)#lf`gYCKx z5TKBxNDk6bCj1``zH1HW%SuX2L_iLm z7`G&410luv7Gn5?Pkma93AVGsuw87<9pmH!2Na$u@rk0REFBjG(rh`nhd-a(v#hq01+cWQig; z-pR$|C?EY9)VP>jIE~ON2JBuF)`WiGLMgWU!FRs%+d``Z1WnGTL~m2MhxMkP)V^ zvhV(V%FH?lD*#fJ>12&nWs(jEQ#y`|OQ^>B3|U3sQFNI+3>>S3#<#XKb#}J7mic^O zdtuUB095ahPVgd&1l~d$5tOdO?R|Yc*Kgcdwk*hrV@ZJZ?=9qKxASlX)* zx$SMu@+!HtK#-LuXhTtmB-n9$e%9DA`V2k*4an&TJfM5^{$2Sndeb3@^a9-dDW(rUtsIyYPIS z<0oNXcI^a)p34PwD;>p@NZe<-J%ELByi0AvW%%z%J1HhjiZgp2?Da!OB+N)jNKfEU zVBH=Kk8%r!l`&!mAvw`WdDJI*#Bu?79S{#^q4Y|>@+>+g=I`f77Ym|<4?XlAZ_~go zc95e46B5$?bAII&U}+2tV8`2q5|tU|vlL7NKwv1-O-;I*D)su9(-i-i0OGQ*T#7AF zO9Wef4Jg*IJu{<*pNuEU27cSko( z8yu*Utf-Q4NaUG`A+})GCl{BX2OcQrS>}c);iupI43LL81ew4bi)3YIfk$sdWYCo{ zQa8oK>=Tf+P{8eorUcvFCB(E%rXG!)@DL(mhQoEr%m!(kF4f4cpw!hBN4m`8-32|k z(){Z)r%xR_IzKrvwtUjWgL4EBNDe_TFhVZDS%L>2TzC=wBQ~&?Jw-^QTJAK8r>a7z z)O$pzzWd$p>YiGr>Q#Qf6`I6Sve^jpqgHjSaw@V&n!IC%5Bd*Adwyq@(EOT`{EqasAST^FED2ef`x}DeeA5zDko0uFoxXYB%k%>@gQ1-SGt)jY8Rj3DCO9WMm5|B1;7~y^Gs+Aa| z1S;%P(qnP{b{P~eUOZ2GF=Nh9Z#NJSO<$Ovu=Jg=s{kAz2tQD4ppen{lOuzc;luw) z2QXce!_SE`Gy#SK(FIVeRy+e|P(fA?1|qG9HxOp&Oj`=9;6H!FGlDyRK0?E>+VB1v zS`8&ogLEANhym6xP^}{8Qb(NZ%FLEq_=&IB6t_lrfD+r`(-Gz-Er2K_AsRZtE7xRD zm=zt>)7!Uc_EtNCjUK^q-v+(jY#u+V_y_E>HS{8End75YVY~L6DD#m5gbnH-cq6A? zAb<=5+u=UbGAFA_2baO6SJVj{W zE7iZcCAL6t<@C53hIA$jEyfE=3QGJP;LIpv>6kyHrnGy6H7lMm>pOVoh^al$!6GPF zC_h%W*?8h%V6dA7@{L#yTC2q!?ik#RRwKg5Q)CvzYFL zN6Bwb*V*wEU*P=Nvy>r>4ky&{RWD#6nfLYdV1xQ=TXXZ9Z@y(!g>U`)|7bae$?-8+ z3UFSsue5-G6qkO;`C zf`+tS%lZV;T)8A-xUev5>JQ&8%*{@WkDgpw1ndf6OpTLy5TpZuTwaF%?tox~1o?Q- zg+xP<)*8KQ6F_(ic)Q>bcTD~F9`5*)KmAjT5p#y0o*m8L`lE=9ug$CZ+Bd%bgCG9M zzxl@3y*qlHR$(YgOekaqun#_Ndn$?4>s&YwOYL0~46~DAV)9F2HOt7JrW`(TwJJ@N z($Q`s$RXTS7Sr<7R95nOBz4QA!ZBPe#)josqqY>gW@pizlHx+yM4*pdwvX0w zRoEi{-`-|KE$A{$?g$I$e2)`8k-$uCOxvqZsTpM68)q+B3~rYVZ>PG@o$lPeeb!{4 zCzl{RS4bdO-pJWg%a+DI=kLW6lo@1R>Y%B&?%lut(yd$Gh?00ggbi_lLkAmRIJQQm z(XhRJ6{{ob;A#>|(so-TkwCuK?sJi7v^g@xUsopC90b-HQUpHbT*C$ zVgvHtY{ZnuM~&g0ot_j^JzG$im!rMyDlUSb{Q9E2oW+INruzNGJGO66G7|S!SHN)G8%EiIFdz}n zL^(u)fE8ejFsK$>kT0{%FaTA7cjC`L38Vl|Kn=Y`7F4Eos6o=W&}_d2W#;GcC+NdG z2^#YD-2(k^FTid~0bC>3ux$xgg(L#Xd<9NZZ1)wAR8(I%=-J)KrnHVb=&(;e!G2xV zr#Fk@Qg;y~1ui0#?byz;t7^_Wiw__4e&2G>9RUk~on?8_@_7-OT!Fn)j|=nj#OTm< zcUNqkS5@HuZWoTnmgnvBVmz0gueDK)G$aVD{uCZQn_)nx0k(Sz94jX9*|?si2IkB` zlH?OG4w+4SM#cve@%Rrv{GNaD&k?yD+afgx+Iwo}1c#@jCGL;+YhD!=&FhPmAdF22 zWLvHKJ534kcBTin(Z)PuXv@aVZBOBtv|9gvP4~$_U^I(yr;{E!j`kAPm8TtM(y^?FGCW87MUdJc7zBXR_Yx@N=#;k zOeH(s#{;pm3G;t}&M zg@GhB$fY69r0<17sZl3?RvUlT+e;Yl92^)L9vYGMV_91>)EMHFxn+y|ObDPs%7nM6 zE=4kMEg2e^$NK?xFd1}98sVNWMzCE45_1e0rOButP>PxJr*@VWLv^*}6M{L@lx2yK zbAV*+I?N?(htUu_6511N2kg>5F?PUCjXCeFpIjnPklZOS64^0lA~p*fz8s&SqfNDY zUkbzG0A~SK+Je+ad^?U*MRXv|euPFeTllX%dpkk$(fBe!`vO;!#Ny`!7GVgo4GgxS z`Vd|S#+!8)qB~vALosBGNPb?fOearNTmXl4zh7-j8mrAZq2RGD?Ny}Nv1<8{F#@#%^QaUL|2HX9yk^#A4UYPY`l0I z=s*-{9i9&J!NbY`*PAzaPSxnX z__=3yaYvL#nWZVg6eQWBF;zOFzqW15-dnNPY>lR%8X6j^v#!E^!LnM62>y^#Wgm2R zAF(8m85H#joUlCg=qn*xEr??RbQiV96$Yeg)n(Nue;?>kW?(x6AmRE{!^=xc`~p!n z8=~0V)yX0-2iQLHPy13VxJ^KsnwSubI{r^fTVj2%J1kCTN4&3%hWz|v&RY(hIq?Pb zAlJe{@K2`!85^^rZvq7Pj6)9e_kwP{HgTno01$jT(N|-rqaC1R@D2!~8c~(Sc43QP z87mMWwzd}Y(A$v|VYH2`JlcMMNtcBl+H`-k1R0Xfr0?swx)@A8($V_2|M&kUO@&Wi zs+>L{Ua2|KC4jAX#w+{UuYT?OfAszD{nzgqQNCVVmFdLwU9;Nz<-2Lj+M8Y}s>Q)f zU#@f5JI2fWnFJW)4(x~&ds8T?H+kq#i)qG&hDIkQ4Ah_P?ddzzbjTnZ$_ylrNKK4y zUAJNFy6mk6;yECqv0Jb>gwgB_72?4G9r;Lg5nGvsU*nN2gE{*Z zoJXn^#-`Gg1mwDf7NzYajG{zas!FnDV7t>mbc9DGYQ_N720Wj+XSN#UvNkqI@=-|S zoOnlSW&+3~j(EA=GTq6=S$P<4bA1muYVj#kuOwhnQ?(cJaJ^;Bpaj4lZi8{X$DC*F z?JXLN98Eerl}`$|9w8#(h?d4~?%K7pxAzEVkZ}P$;E|g~Y1&u07b|wz@u5L%t+TcH z5=UTYU~YPXyJ7_ge17Tp0!T+4Ex?B`kZ9VP4k9$#1`%F%4L`B*!2Z7O!_XM$fkz;t z&EN$#4jSyTK}51Sa400<<%Y{fw$fsuG#~|Hz!~boDCPzZ14ijUP7n!#Lbx<5z+wgj zJ+~IxXsb49HXu!m2@bm*RD_KX8{9!BfW~~dwOhbmw|I8-N>B;+K%y?-IJ9&%8oPQ> zJV=f(!*FH@$XhZMbM_PGvlLFit5skc8lc;xAsCP2`d)6to(!v$-kc;r!gJUT&*eS- z1lu|FI*|uNv=}n1iQ-LTVVFAGnj^rSLEz1xrka=79Tg0Qt5|i8wt;jH0;L^vf`X|o zb?&&QM#&y|@6WQlL>Tqvnrcu7U0LrIV4_lbpS5NJ|yLxNvW73@Ff}fx{lXBgDoA4i0RWz(S2d+Ra0V z@8RSmdITFx;z3SBzlp2(5;|IJ9SYMn#_}{7>I$gJsaAnpbuc~=le`Y$>PR58Oel1} z&V`3VTAZIR54y?V-i7zCc&-*^!txEZaw&U=yMD`9__mBppnTSvkHO|K?-NH1=s+7L z1{mu^A+1bJvIu9-oI%m`cLD-rc=ff{-g^6;Wct2SoPsyreADV@3diZ6o1F&Ne&t(J zf>;3%PrP*L5(G2gQl5j0M4)beEo^u4$ncz#Uidd-)={6)O|osYgjHKno&oG{!PgKv{*1tQH@ zH^ectpZHY-VKwHMA=B$H&02XGq)V0^^p`0l_Eyv%04ePg6H{|@#}?*~kB?7Thl+u6 zns5oW@13GZrh3ZCFw1>0<}VwHwPLl^Fuz8%coV7d^7vxMfR5;mM00}pP&UV*qB_A* z;dzSfjDRDc(hhu1sQU=&E}}sVV-u$*rG5{xt*E;>zIwY3FE1{dQ(ch7z}3_ixB_}h zng-N}dMd@lTd1#7?Fe?fm(C6?gzun`yhu(N3oi2OCx9KGB1S&p2(&24lr2DR=^oN znV$aGqmN=8upQ(=FfqYYd*?7B?H&Y@cr^2>BBgL!&bGKJ#E0#P*1g)9;8!DrFn&u| zs56ITNfDION^t?EguH|9f?wELNz7vCoVVa2aMce3n*MQ7rwA77Q~H;ZbHS8BeJUsL@p1*(^cQO_=_xYX!7X4< z;oT>VKjrO6j64u{PT^5AE1r5vIh9tuDL;ea;!KRFjRGiDT35t>=Ww+cRtQX5!K(Q# zDw!FIctN7r!2gHd^B(Z7-h7Lp!FGVp1(VCFZqrnG;yjdQ4$wkZ!`tyU*3d;#8K1+Y zgaE;_c$?~0Ev1hmFOZ<>^)b_C;ed@gwH{%5I&nRq3hi}vgRGaA>CZ392|?1#&(Y3% zY(6AKrZ5>Z6sku;s!NKBWM7b3z%~Aiq7%1SK=x4`BH?(uF+bU6_l-GxbRTrddK|5i ztg&?B49ns;^3OYP#D$?INQc!XJYf+4HTn(z_2n1NTk>Gh368s65;`pAoJBt8h7Ho@ zsrpzP^C8PxDvo(PV1l2sBX{oHeeJc^q+dFMEa8oo^7+U|K58`|6cLQWcCtC-N9oP? zI5g0I;`lMQ8y*~-oERrQh_qT6gMUu!fJX2fH~@A$5GH^!z2n63qf?XPvqaBt!XO#N4mcC@4h9vij$}iG#n7AfBp_zfVWF^xN`CQD|c>v`HP?TNc=KC8f5X`V@DKK9;x=umG@uc^N#C#Oe7 z#!&YIb*joJq~i}BeEjW?eeUAL>&K5TEia$G|H|the)DbOlT=bKjw_@RrYFaFcoe7O zM`bI;V1I@Tw#&UFfP0}HU-a2Kf_t9GpXrW<0}^2`v}7PghXOsC3xL4>6wP5!c=!05 zPuM8B%5CBI(Px%V9M{3+I-XuSaqiSfdG8$lRJRctw)4!BA2K@ucsDwg5@=dUxi_c} z3Jnq?2S!q!Ma5zwqZnujS4j||BX8W07_XiBEm&3|1wO#m$vSXqR@ey7g8cI)5LBnRGYrIU-CG@kL0LTT)3=f*K`2h^ zE{^yu+u=rVULnC6{_Gsa0?aCyGnG>m)fMo6Lr9cR@Wdl{p;|AT_ne@QB}vEKPzK<+ z9%l>o4&k4AiUVs$oxsc_1t=y)AclLtF1WKKW|nguB#mn1pvTw8sVl4-bL=>Xrc>#& z46DcYuuLidhs-{yE?B*D;$~7M6A}K=M}Ceou2aiyGB6>+Zz z;0BepDTVhy_++tHq+K2eO^X+15r>d!3k%YW5uFz@ATvlctRVkur*I5b_jCn8(nAHv z7A;Y^xac(StF7WT^n_$T)?>C~?Jqpx#d;-bgN%18Cn4 z;)iMD?NEX+Yd@J7$`J2f*K{Ma@Kc}u%*~rOAuu$)clRzG1H&h$xV3BApgMCPixnZH z-a!5rE?mIdtr30g>Q%t5FnIfo8#gRM=Q;+wBW_>;{=fas$DDI?Ax3-Sa>R$xkzup4 z00(ffc;W;J!Gojj zKyR;_(byPMbz2e%9gPxdsh-O3{}Ig$xE(@aQ|b6`MN{M5;lXU4}SdV2br8cq4o zWZuUYuip9SJ74(LZ~XrM{QJK*`-Hmn;@sTzy%mt9d4RrIC=Z|qdf7EkO>8kM zaES24_ar)uulf@w2c)o(IZ$ahbXqfj%Jcf69aT4M=CmaD#!F!^5cq^h63O4E z3LB3nVIJ%tB;JLMn5^9R9$6C?R#Wiaq6S?^ZxN#ciK1 zg{bgQc_`!>t{GHUNEgu|RA!U|A3!g0`~18M=gw%BAV~Uz^eVhvSeXLgN%=gpljA-$ zgPHMBr2WE~Q+|W`zIOkfZdQ`NLzq~{7mAgQ>UfMI=<9)~fLF35Yz&PzF9)tt8w5r{ zF#v>2v=Lh=2SiR(=!3Y{;vMtS?4XsWj6Fg7 z9Pr3+q+fw<)#!bpzGM@61uBc-vlnj7BY;$H!AMc6B|rjOCDcK57GF_9JOYyJd{LbCB(UGK-h!msv^H^lUjoIj6#^O4Iug% zM~F6n{fWmP!|<6)+hfW4dQ=)ojFca|-ET9W-vpymE9vLZTg3ux#bYwu$R|r-hmBUr zN*=+uWT_FS;rtGAMQj?9CIJ}?YaxCB`I3SH$_B-iDQ6~Biv$uhXncGOwj1(;vZ^AS z8AOA36>Qj}4d62`;VBqK6l)3@@)E3tm-g)=4pMC4?x8W)^1J9=gQIo_y2Ta%$ zS5pHgPcD&g(RDuoDZWC{ky3p%!4E7q6YP`tK%AWAvl+%sIGGUKU4Ps>01e_N+a#GrK!8_MF*s_IInW&z|%2 z*X#G{y;ra5)_1@9>Q+4(sv(!*_nUw}(kW{{qU+5qCfDp-y?U)d)#j!a-@G!+x?#h% z?w<2+e&$Pm_uGGd|3`nr28=4&G<1}`pU9SAeF!Tsu1GfSsK?J8m;3YlPRF->?XjJW;^tyQdT-Kr? z8Pml@{c65d zhJXO%QDSxj%z*$O5fS?L4vZXrGPFUeNKHiyV1!~ftz3uY?pgw@K za1^w6H&7#i_kx*92Ec+EzK=*^&4i5G?(aoB5O44Zf0AZ^v*;Hxg&kyA_e2`ND71v1 zQr+%m4KWH8*HAceIA90$-kOW?M%;%NME?0cN4$k6;_Z08ouagw8Q(4ETAbi#fiWn0 zmfU64KB$L~Rx{v?^mGuj_?sUYGME9lp$vOXy#v9%NS6fa!a@8zuzg^EWt*|x;tssC z0`Y2EI->44R42dKan=G6##2E34cA@kPq6P#z;3v~^mdZ3YYiySh4>u+0$#LnFXF1DOBU)`<7UDtv~;Ko^U11u z?${aBO?EqI#^ebb)`$Svt{bHxn^!2RfjTb=Muq_kdI4#aj4GAjsV6R49xBI2X|OlN zWH$?he%!v27a-cy+%|L8oW+Zm8j*-mPn{!QKD9W%6_3rN9XT?7KWVgLga{7GfnV4z zxLaVLP?@T#+S)n`y40Bx+OcMx1%0>g*!}e7w_bVkYhQWqdq}$xPyA=@ECY*0Od%r` zwE?{2!y83zH#d0q9IS%Gu35868o}G58`WT2o7DoMrvtjNcixbj4uqaBG`(8gQJVp> z{t=wF3I2Li9ly|E;W`5Hd!8 zgmS`|ASWsaA^jFzHCAp|O4VfCRUEgJmn!k+i?m_jd({$83 zZo3t>I}6#}Im0{G>7_i*&?yY}(3HuDjr6pv$w+BOcf)uwsn$!$wv>(oADoalgQZLw zZ=p7m&|@^&xRS9^C4flirWo)L`l2OT*9B@}9fTK#3cYoIMK%hI)CLF(?m(>)M+##j zAT2(8pr<^=04P#TOyCFz>|l`KnUQ?iQl0crNChy1bQ!^%dmcWCc!P8?Dr?i4-sc~C zT(F#;`^&GsqIXX?)78};sXaPV^j*AN;})y$5nKtbsDtqA<>yE(;)ey)oj>=OKnnuz z&h6U`o}M~+601LwzBCQ>@&4v)x(7GldSl%WXZDX>Y9}+%je9QD_~GTS;bGv)Y#zO-I`k_gjGx!n*EBZPf%MgDR$1oL*aQq$ zCgO$gd|;@i6pm}5v~d&5WbqO9o%QIC1|;Ld+b=GWv2M0Sjt8+ zR?5-BHWq8GGaF`ZoK(95O{TybcXQU|9FuK^Z*a$o@i9}&gCIOib`}8xKHwcL0Zi=O zS-^%gn>QO9mzWX)Rbc!0abvBRiL@(?7}fRplJW7y zaEx8ik#Tr@s19o22G`?0fCzx=rg@5{gdr@RKhHv8_YWSVA&VU)8u0l{zcVZO#CuKl&n6E-rhWoe! z*%`7az3k$J^tdWx9fnWUk@=W>)W07mrN6)c6u2RetjQqmxC(v4h$^m51(jO>s7wOt z#c!vTIshYICJ)?=V%I?c$Y54`h3)z>;nWH~DYvvN69J@=TX&?W%R_?VSP;N*_w@_F zxkWk*T?+_Yf6d3hxIfjA2RWs&JHi+1P$76W%8>^F5QPxoc0OKjy(z)@ci$DNQHrIJ zfj{n85;`IjDUtkbL`e4bx$2Z8jsI->sM zrKeGD!Ev;4s>p>4PoR8cb9s2;si#b0GTUWm*A9ZM5Hh`7cScreXrz0DzkKCN4aF11 zThiNwQu77S8!XU#o_Xf-rAyCHbdh;F44Iww&ILetk^$+7-VVM%$5`uvj)~bQJerp! zo2*~k0k^?BMRfC~4Yf6uwbf<;E>u<;7fL`|z~@QPCEVVqPf}UY1|>hZ|2<;T*0eQi zWq@7HTGp1evsFC|10Z_qGA!~rDJn(1tSE5ZwK{sNLZxd6eQ&+hK&rNO{k7LBE>ljy zJ2a-tDokA@m9F9t(1;hZSaVt`pSzecY1-`BbLY)_sJgm-`;L7_j-KARbHB;K`ZzRs zPF&9AP;9(fb5&zQ1@5|o8PKDYgVAJ~0}!)b%XH$#ygA#q zZ&hxaH*Zp?jg9p>S@=8`X{2712mr^o;TwU%af$?`S_#AUKzeJ%7}tq!cF&-n5J1X# z0nw6^CctWZ)dV7Ua2!8}{PtZkWumhRbu?78W2iKNxlTF_b^>_E-r<|aIBuL24sZm( z8K?pxE&$Yn1=t>!OcZVrpG)RwIAW%&a%a{V7d+S$KF-3u8Ma@X}A)e0t6WcM9Z;3;E4i-{luC%(-Azi z$!;xTFHFd=-MG=k0!hIjP}Q|`u%>b)<=iUnwN>SOgq#R0A;4CySO#t7O5Y!UL!L2S z*zRSGb*XFk>{r7Fr_tk!>6SNvDoEv^*JMk$tCDe0VbaII0g(i}yAaI|Rj^%qo&VoFW^>;rT3Xf;*6BEZ0)=Lcd@*e(R+mA>l%L8IV0-D;e1L z3LfWOY#gYAZl&+QFUTjKtGJXNYj=b+rJsinHk=@mb12JBE7z5Xci`tS3Wp zvANcZ_%#5*>`ml!7T$UVE|4?gPjh3;@8afmK)QYw|ESj{^U_0dBwXQWu-?Xnpx!~M zyIUjkz@M%T0m5#|9P6ZLN0l>ksE*tj^-W6%`6nCmh6+}pPL|-Gk zc3LhhAH>_SckSAaRg1kyXia_l@VPc!C!kG5hnZ$79Xx#42-#d8&?zYq;ieUms)CcJ zh0sy-kt2p%9ucjuZ~$xv>3jz;w9+7CBh=u%#0^8SI56!6N7KTDFwkTy znv6cRr^uD3H#auo?GU1D*)qcZYj3=L=FAzC@#4iNfV^M~AWv^MA67_)HUeZ|HEaPj zJR0CwwW_t;(z_GK&zUn*OfvaY6Xwg1M(c}9V06zqx`3V9AXG$R9riwA#)^w*@5b{S zcPniMzhnjgT&&B~2@h`QSY>WF%hX6swzPJiiqkF9mqF+>Z4BNzW=ftl(gigcjY|iU zk*Ig(!NnsRR&JXyeY)txYp!M+y+}sNRu9;!M;MnD%t0XJA|AQi<;z#r);4V3vg3u9 zKl{~h{`lgPFW1!6`DUVrXolJ^0LK$xI2SKJC~`lyZ@Z;)lUO5EQ=^OWoHv&wo?V_226Wn zxDOyAFFMc7HyeK|L04VecY9AoU5JQSLYDOLIlo<2!jsBefA3Qf@`0`K$?_g4t6 zVp>KS&`N>~z0?>kZwk$zC6p7>?h@<%Scr@WrblC<2yqFm)eQumzN-#ojPwH#h(VQg ze|XLx!B`kh76%uQibDY%pp~eOjzWEP9|F2U`<+#SFpyW*n_I6_EGfaMb!m>gM#+91#JkHZ5@c?Ob_ z$)RhkXw07}eaUCtAz5rUZGH+>@3=F-qK7Ww2B)FWo3UyQ(eHLVQ)(X23b z`w7oOez7ANXtl!+!uH-b->d{i4%ck&bSwB7$eg~5Dq}dj{Ae0-u57)dendX&dRUz2 z$ztj9FL5w5Eh~M_6_RsFeqnofk!xdFNRGh13`mC0IjHLU7!18V)(1n*UF#`qKu$Qm zyuoweZ$rpIG4mi^fegT_QG4r9PGF+QnLd4z3lsbwijfELsFLAhzD2!!`Ld3V4!?zk z1^8I`$})0_feHMOzj6nK2AUunP{K#lzK3Gb90a_AQ{p8xO1u={V=;D&jf!^=<118t z-MV!?B1ul+9gZLGIeg?OHAZZj@Hp7MckjNpKmEm*UVVc&gVke0XtpTyPk;Ukk39OQ z`@>SyogdQ+#M=QjWmo@QoTNv0tX}=8Pk+uB8b0q@In*9eYG4kfVHC8%LL-`>ybOk8 z{nQ4*Gv*S4EMs`BEsa1-_nd@pkx*pW9QjI2m= z4!iP|nSuSqrwLkP*xH>h=@|Kg9cqg5C+?IRB~QWjP_%qRRVrZ@BN=We(~~# z^__F(%rWoSBx2a5{jv&}K>cIGD2+z(pqUHz4}-37T>JXRkVfCF;gkrlYul89 z)?*nmFCVb~;8;$dL?fF0p?MKzX8x1Ti9ue3N3DTDvL$Zm_0bF)j?q+Kr`#Zz32Tr+ z>*hz+u5Q;Pp@eEOH3^>6!HjMgV&;6uTku&Adf3q2J9b#j8|2QLIUPa<4d~m)-MkA^ zcPolC%7A7=POlF!?7$1B0F)OOsi+U0+b_(=^GW(jPh9{O&?nn2VbV!{xC!)m7v$Rj z7ta{AQ(WkBZ|Ibb>AD<9=3anj^}qX0D-x&XfL$ArjevLSu8Z3ldS8|} zAgb|VB`h$Q@S+tca9g@VKRHxHyp=z_i00zCur6e3!@+|GL223oxRX`p4VCpz5n2-a zA5r}SnH{_Zv(ivk>_`BybxBmB zKOwnn4Cr^4Y=d#>{Te^DZWxMg1{0jOsjMrnxWbO~u-ya}#i*mZL04zKkvp z_{ys^^ZJ#8Ne7&>NUruZ-@*_2?~n3ssiB zn$-u#P;naRZN^7#yaBF~*5?sfX3vH(oU%?IqvF2xyjYGj?AeO?OP4MyFR!j|XxXrF z^ReTnFFpI};UmYJ8k?3ZTFi$c=OQGnGUB_>Od^?|I9|(?SxnW^B0j47fWY#{9)JAQ zsgr=zOBq5nrof|LebrSI#cf+R@7cS1y%pERk*--~W+fFOKwXGoeD^s%QQ?wM#!F+3 z0wrk&;=xHs%nZPe7L*vf0Ka*LAHl5QznEWyv`-iZ+l@?O>_$8zme|6K+|76k;KZ-{ zyB1?a?5Xj91*!+Ia{*-Yu_d4s48kR`b2zsna2|$(EWLOtiZC`f1C$&DN1U2p_e_t_ zFR&y|e4SjjjqtJpXs?&&_2MQY<74P%DjDsKiHbuooCvpeXQibrApa7(N`#@3i)F!z zVnmOAmcfvRBB)AUuKbHRbzA&20{tWdP3<~WD@?Wo6JU#xPyi^c`{Nt#>?#1|PtFun z$~IsG;2GO-T^t4~0(?-ZD}-!7ND0`#`{3$%u#))f#f=F2)4nCtr1wVI$p$`$#6egv zxu&0P3wI3F0i9-P$J;@8?FGE+bYw_JTF4j4f8D|iuwQKrO2cY5=U4%|qVv`+`2f#v zzRAnVGl^9i8{GEFoD28lbzr;vt5B^HC)a8cNxPn?4$SR40_TmfdXVkPD?SSFqsw+% zZ)K$z(ZWCvB^67!M-Yr(TRivH-Z5}+*PS7|-F>&$%szA^y5@VM){RUPY-tyimSEi} zvQd%t>)WSK@Awj{qHrO&20tn0p~CD`*fV-`5#b73Q3$Xd!-1RzQq?4f;wrwpGyR)F_VQfExVyAWa$_3Qj;^lG&Q7unrIQqI@!(hAe5b0ia`NO!Cr_X4 zK7IncfBwr~N8OE+K7R2DeFq@_&F}r-xBvFl9Y1)_WFic=++CBr;D#w--b?w-;YxhodA;RY5=`*|c>^gM#puq?*#VHv5 z#MlvC(V>7HJkq%GNTSzNBZWi~o&Cw7sFNL1c|Jq~N6|q#q+%j`We6#;iHWePd93D< zP~Gr-5P0wo*kPR=2_ibq_)BSguGBNQ7}B&`1+bTvI6{!oX|zvdfx~fjTq!4)amjBM zsoVk1dnm)!A`AhT$24zttUMq{_w)4_qv0Affyup2a_QU;O2=yx_#A3#0Z@4o5EcR zM#`0&U@8tOH!q>5!K;Ees0B~hHhRyUVXLsqC<95y<%$BTFcL6MttELOr?3vhc@UVD zLn&NH8349mis1oMZ{ZI3d|+2JoPLbiK_rPK+h^WLi~C51Ln#>o4&;YQz#M8jrKymW zRDq1=e7f0?6kN&=$)5L8rx1_Xi3q+O?`6tsrh>3h)~Q zau9I7)#VULwv{bjr&!oFFh_%FxxfbZwvS{|9_-GaHy3RB6AuLMO3ZkKoAaE-1qJ&4 zWa}7Q95Ea_D3osdHvwQgSFLFZ@&HM|NWo;Y1m5J0LyX?OKtoV%>>QX1RCmmSaT7^ zjuP2OB@~#_F(uaMYiOv;9ow3k$^{GN5!G7^l2%n3$>nA27|C@|TVA?k5#`6-a6)8~ z0pp5Fo(cI?mB^Af0anJaH324Vc!hZ&T?$sQGiK{eSYUJw8Ft20mT8?gpC%Pfj0S*l zu&o$+-M8!M%g-D?as1&^4;wk%wr#7084Yb)QOB|Yut;De zU>6~yz~K^vrwQ<(aNY@Y7n=pqly)czjRCc3jPO?T2bU&V!gI6up^9W7k4&|kY)mZ# zZg_QRNd%wUu{j&zj)}m#31$weVX|RUr`!kgoHJvpySdhV46p)oOy0O*8lelWE)Qb- zI0#NbmXJ^PSDUDd`>_1{n`iKmRt)FDcAX#o%0np<5_^PDJFJUvT_HpM%t|G5pLYsJ5DSeTUuPS zaPDj+#)M!#%hV+qcu&}*Q{LU3={)K|F?z1P53G>bqyGq`cf)OH?}!9mJkviO9PC>( zk|5~*5(KQpSH`Y`{9cx|!)*@&VoV*P8W~cCE(b5*olxwoO&`H8Z9!$})FADFTA{<- zgFR!P@EmA+M6Vk^j-qQF>=1tXWvp2eAxQcYNlhkt6Nv`0fK8@rSk`fIDH?~2!E;%X zRV~GXWXur;FO$yNi2);)pT4go8KiQd#9-W}(P?@iUktbhZ#Vd8Up_TYbv zB3d_D2DVd`i5~D12ZG@c{=mV5Jtt2eId;6Qt!@8-1EG1&;0BE{lDT~O2>|=sjj3aL14hnLjf7h0sC`*P$P&2 zwj`v9FPu7oz?&-7Y6TN3RyEdZyD*#%1JVUyinpw)EEm9Ll+eH*x|KB!ay9PP z#w2u0_18>e1DOUm6ckg5TCh-?rSsAPU+e^LA9?>!@$K_wPBU&8C8rCI zH2-vU$NEj3+bSz-qORh@g%~e&g;WrIH#Pv`EP{a&=%osYZ)#|`{KD&xKXLhucfR)Z zZ~x@@@#8FK0R?HyXb~V^`o=d-o<51O3n)6?bK(o{e*KYij~Yd7Y^bGf33Q~lQ!02; zC9ljOJa|!z5}4>D0p6<;BmkHy18%}Sqo061I`!c10hA+FPYsPdKpR?41h(vr#K#Er z$l#>k9R27QAxE>3UIxjYEvhrRpg?%G%iY$kLV=1Sx&T>S|D*?55RwA#?ST?l%ka)q zcvf)Gq4(*CfnT5`t9l>I7^>Uk-=7inx@f-4i+82P=>_OS=)`G5G!XW~t_yHSR5-w7g+v09gq#UCxo+!fh~1wDFFba7TNqcm-`U zMsw~R;412qK0ehT!fEauz*#72ebSn$3h^`g^<-GI4eGK_IKXRTzbl& z^k_4kX$vt8Uoz^78)7dSg_mOga)o2alAA4DTS$Juy``w8V`+wHkMpd3not zt|fY?w&l+Z?0$7iVLR%Mv>P+cyd9qNS=yjpu&cbghV0cG=W2D66)8-XB{}r#6cEgo3{6PO2S_ve+6uS$VxabW>&4`%g11*J)6YJC@rg?p zo_KQa-n}%LN6(#q^X<<-^`l3RzVWGdG#j&ocrC47pxxLpB`K~LEwr@k9MJ96fU{Oc z5z^>16TV5*4eGA@AVx=e=WKvoe?o+VXbh2X!W&%WU9?t1W!c{;5O%JLl?gl7Ou~4Q zMKL60sCX44l|_Ou7`j&fSeYNTZ|txNd;{G|H%+Jjjri7A#*QVkE4H zg{v$!4EDpqZ|~t-jk>kG6FB%g*u{DO_}BrD`}79Ax_!}vbu#Vm0THs(CEhwY$} zyMfO-Q*?FOa*?@OBP{VzWL{0j_cMe@Us808n@ET{PdbptqNWGk}88LNM0rpnaS< zOcaV4<+p}J@AV+AAFwbj5Irn?ECV8m_X9zgr2Bg#_p#2oWJ&}3MOh34 zqN4H8LFTGkA2NuiZWjcGORmL80V8#q5aSm&LW3P-$ucHOB6-}$ogIO1&>q4Evh{;( zgXEuov=5vqh9i9nYS6uUvRW(MLO#8b9pZ+D>DQm|+&gNOb`%2imQ@>w_IAb@wQi5Y z+_XC_REEJgtyPoPBoR3XpZYAZAPm^|3;Av7)V1Q-(0loW{0^qqxm{Uhiq83Fx}GR{ zsO$c`;v*lC;OaD}3gUtM$5S^%3GhcU#x@dk2igDxPE$GJ?eH1iDsAth>kZPCs$!9I z){E81JQ#0lZD#YhA>s}D$=2E+G(&#qgJ2W+S0I2Tdp+*YFdsEQT(k(;u_b6ptdc4v zVMJ4sez>n5Sx$VsrI36vtkR$=$p>eiK6Q%jdtFVnPCG;;Zi{TUneMt}%N8M#pZ>zv zs4-$7TU%Ql+_!%}@PFpH=exVR48S{zY0us6l%M$Z>MJ7UL_36qFXnk^gF9y_>C(1#tXScbxJr1z{P`6XmD_jhdH$8pzV*3x zzx1u|zx}!I?%jJxMI1ePWY^B^dL?KoG&WV|(Q}UqW#1_Vbo(|tt5>&e+-NC%A0uip z=L^EaB8#iz=Z2f@AdT?cH?4K1RxGzfuo(fdTmw`$Rw99QcZJg!SB30Bh$l~=7z26Y z3B*Rl4R=BVJq@UWW;0r58CY%V0aj0ZAk>r!j43rY*!WJ-sDiO2`X;e*G7}v!?0%?j zXt;QkRh~vWOPFHSLG@FVJ5d6PBI-7`5<;UP*g@byJ<&e&{Iv8XJJG|lpIAx^3KxtV z!Fr@&Bou#k=%thu%ttNs_&5UB=&*QY!aKBKgHh4sg8l*Q@RkVA*FX$%@d_*R%$n|? zIX4b+a9pIa(#JweNHiwia(3t`qyp(=920$Y|5;S88)6+Qv>^p#4h`PEc#*LW zUHd!w03~(^R2ixxux@Y?RXkBg1!zDLQ9x|lS;Hi<1X>v?ivpxfTF#x85|o9t3%UlL zmMXpL4z&Yw*u4C32W-+ix)w0a6l{T+THE4KQyZJ`5Y;K3a;h)fTWLnU^b@HszovYDtjW-5dd5j`)S`?ws3T&@c>3 ze7g|G)Q-G`+v*O3Q!Whl0%~V%Xt_7iZZoQrgBE>R3K=tnugrwW55!Vwksi&U(!eW5&a%;agaK9z89XR?lm48%fFTDEt8`gdi#i45t zbg)25wY~#zmWRT^QSf=X`N&fz86-u{$Ci{(b~Q{{MWTv@Midrkn_g4va|ffl<|`Qx z&?JbC-xS=Po|~_7~rO_pg5TS3m#t`#=Bn4}S5RcfR=U zcmDbpwl9D4M~?jc?|=W@pZxOFnF~voELDA7+qPD$TrQSYi77f9VE_KTTeoy>+0wad zSJ$!bWAJ>_CevsF)rE7cYByz}Y178_`hEP4pd%YpPg4fWI$qM;RL7sv3PdGwuWE-l z?+6cIco7{HI%%d%p06at(aH|+jbei&LwGn(pw1(wkOWu)CGegi8w;VdFT;);t`ZHl zmdbF*jKirV1$rnV&;_uF^cgZp6u}^h2PqzaLvWOvofCPe7KR&GHB;w17zZMP4}|`c z#?$3lZdo0?Ej6`mbP**72nS;vJW$uh@}WY53?;B79T7Gr?h(gu8x2qgfumqqDvJt2 zeu}90`+T*Wpm7J(7139@wl98WTYD<0@ z)xGfv)PCHq&!6qsyiwm?EifwSSrp6VAZ(hF?v>+VWBP_kvGHeg20w8lgVYc-2QFEq zyD+Zp9TZ(kre)JWz&jVi7^3;y(O0eUPvVy>#$Q!kw_($^gGWzZHi_vwKmGEz{~Lt= z@BjL5Kl;t@zWD9$ednjY{QfU~^Q|BL?cV)|e2ikm0}rU;@?}fmp0|KqSg3M7a`Xri zF1{$(d)JPbh`MbHu?4pKMiOFa14=*}CwCmMcXX_>T%_)mKhavMh5OLHd@T<`0zh;Z zSW@dBVmH$!6D4%>OxuC>1|`iRaDnOrr0`b949x)eEHg(i0(pdxWP@ZTBiB#IUPK%k zBpqEkdQ7Qx7idtUD95057&Nt7IRMY=#<-^&h7O;CLNR>&1W33c#!h25x`D~d1J}mD z49&9K)a+y@N4*Ip9@myAkW8htS$02sc za4>F@7`#hqA6@s)Z|3a~-Ui#b9L4CpydZyv(Lo_NuUf%7BX*XNkP6Z)7)#idK=Le? zaj9xlV)Y_)7DQv_fpwNkN?&$U<2=5xF%vD(SEvr_a9UksU8>|B`*YLEO`|hj1~yG& zBZO)Q9;dZhSX(dBJ+%T{TAyAU9a~Z&Fx!x&Ayh0KszZCjnkFm7;sA{e2M-+-zT&tj z^utGw#;|F3_wL=hXz~#LM9;$q_U|XiTz>9_r!GDHm3O~oy)Wap&|3y{5MVVhN7{3K zC^I-Y+@=MgaQY*Bcf8Ahdw47Tx9Gw#LMxgY2~G8`WWrqn=pYL>f>s8WtvVZ|iq1_b z1FU4q3Od_?)d&oew$G552gd7Gyai2$nQht7v1@B5Z09@NS#w70CFb)<=;T0oLku#W zyOld=CaO#a+>X}4h8Zwg;)!g}6CDY9T{-buZWrQ+1Q@%_+d+z#8Tc3FL zwMQPme7O6}lb2uq!h7HO>ia)<uJ)R(^T>f2w~w!Mp@tQ}~lE=)^Ci}Si2 z0Z>ZR@f}^;Ddz#{+bsvN3O;Yyyoor5tEbhG>xnaDb{Y-UoenRA396e=U^vw@1eg!i zjk@v$eks+U9>N=ujF~=Gnpm>PqLChi`9m{7?-3F?j^v;>_DPJ`6x4#$@dS)mH*iJo zQB4AZ0aGx`2z@_H*ZcvW-x^gwV~6U6qb#n@Iz}18gzc7MrN&DJv~~BeeQ8j7am`}> z5fa@%jl$H_g%8c6^QbS>J;*u*CLz48A`XudS67r7BhcI+o(Zgk7o*f6vy2P2ufwgQ z#Taifa)&~o_b{0+WItMh`-2n!u9N5w3XH@UriLIT3~?*gD5b0HvsefDEJo`~Aixmr z0W>Vdh6q7Ct;rEP_$p*`+=qvZGhUzY5CB5XjE!K>pOX1?1p2wqO9k)!=trTblsTS+ z(S~BGRIYpDqlO^Z2Il6-*MQF()Oj)?l2WVRoW{z&MRp+p%b# zs!=Qq37cwZYGm{*8RJ565f^Es*N?*=j4~Fnfcs+^CDff1qx7_wm<6w0%%6vdk{@*k zv$co!RE z@qx!4yYSXKpT*uG{FmSTCXolF6hWcdNgM52M9@6%JUPGD;u2JaYYrAU7&7GA@tJEYlPv**u zW$ccm@CTk}Y)`|f;b_tv5P37UML;$bvTWJ1u3h_HdgDuPe(t?X&%J)`!n5D`@y~z# z``>^0+u#5E*MIQh8=vof_-t3#ZsQLs(YqL+H-#;}@nl)}2Yhj6yd@MeTtjTYPL_es z8`gE0xr%oGi2ld8WN!jLzVaTjYG@vc$dVEPo6ip1gQcRFu7#PbGV8|05M6j(YAZ9)f zu!6Y4QKO2ijhWUuwoh*#JaC|~eiWU@H}o&o2&$J9nQ(xC`|R3CYndtsQC`y~O|ss# zVI$^*LO^%$4&rI=e2&bBc+`o&$w4-KdJCP!kU0pCP&W9IT1GN04KdIc71JzK1}5Z* zE94XTLPC}u5X6o#GdS#7%!w7Dq`7OK!^5?OkXAl^eZYbqW?EUDb>YB%*(w8L5-x;( z_F*{uL}l4__7nj%#xC!>7cKX8IsuxG#|g7hEbai_WBWvevO6vVnue>um$z_3_^g#7 z_Lw>Al^N+pMRFx_ZeO3&uVg5f{)3E3>8z_9aR;tMW;9Iu$dI0tIbz(9rlf&GMTo7b z+AwyIt}~(xZT2--I}pH_h4q@Cgw`u!BC!1vH$r0ot|UF3f62ZkyBkpKPnyb~yboY^ z1d;=4#5}`w{?oo4P!GxNOO}ax=IZIH!2FEu=>?I@K1xGnY53mG26fqnB86i(HYA8C zJ!ujX{~J2IKqf1O-51LyBY_w=PX{p=s`)su-O5XFh8V+E&8lG1%n4lQa4Zudh@4@i zzHnzDrh<`1iLy|Mbs)p0$mz@)T4kJig_&3L4&)t;lx#wKhucVyflk;C$=9y!u*TH> z1N&e*ncXt!j++T9n*H4Q^W7&-P-$Skk5*f=_cNdW((^C8WIXk2?|rwkb7OH~f$pck zOE(ARX$&+1@FBb@qR>)J@mA1S)n_Osp{Ud3mp`FSv4$v23)&~~O-lPbW8Ptewq!OT zJZ2pBr+p>KO6}xMP@sJ*;1=S%=c*XVXfmjmK-|4u+qZ38C(s=-Cod4R9K{-G5XvI| zy*?qIdJuNP%#t`G1CfU?SE?*!?5-h$U352FgBgS^TWUW^>2RvZ$JCT-@X5{Uw!(E?;kmOs=BJyye%?? zym<#rbE&=Qn6=kp;$P?iKJN5qH!Ts(*fd`mi+&^LPn0!{V*(BQw zR2LgFejE;uTA;Y#9gM?Ob_memA&@r+OXacFmJvzI7m)5j9QsOKiK(k4qsLeoV|dIx zPh*kRwO6RhegH@pV1vD*_s9v%mkjvRc8nR>!SltA0(MdEa%f}KGK{Nd$;GF&WuJ%A z=>YGMe@k!{8>fi5QM7Jq3Al#v;&izoGzo#Xk1A7L(kczJG*Tj`fdfoCbp*zVhg1=2 zljdXYD#xdrjE$?@iKSzQSw6@&Os~BLT%hq}aAVMV+^}7=3@Fz5vOFEbKm`MABltXK z#JDG}ZnPptu!I?>xsZZw0VaS)zu^N&0pJO`<>(gp#w4gW>>1f~6R+TIpvE0!z&nP& zNS_bW!36BuAAMfRpw@}2crQIH<<6vG5e(rDG*4Eib0LQkWAzdDduJczPV;h#dvY8M z@*tp_uTda$HyN;jEV`nj5-~$%is@L%_R+ zPvYQTq*Qd^8oXyho>({B4v7Y^+Z?gkQ8+n`u7~Q7)qJ6|a2u0%)fH*{6oA`7*Yl3V z0AHGXP)hevcN%px?G*e;PgkmXbHTd=I1RctLp>;9Gec6m69=ub6uUxEs_@)_1jqyJ zGeYf1q?V=xnZq^QHwf{joZA7F%pQJHTIe$cBS)wveL!|@;+|#_F$Tj!G&X5Yc!X{y z4IeTHmXJn>JEns{gLD!-Y$vcAPKDvbcF~WT`k}*z4<0@Q#tG~~F$gk}oj!9$+~d(> z$LQ^r-nER(XTR{}7hZhn^5y5g{O)_g@O0Qc#S|^_5kZF1uCDnehz0hyq#hu_8xoj0fs6EeV`OT9^&* z;J6F%b_Cd(11GzW)|Iai+zxV8hYQ`uBczAqE_AsIb*voJ(_s5%yy`A#2zgWH9IkxE zg*s*CM)fnvlp+_yPu!ChM2%qvQT2HH&>_Wzg)7U-4jejSwDi(*uU@?L+-JY??r;C_ zhu{9kfBfbTf4K1EGhJPK+gevo8b86`3d zj=T)l1Lb{eb~4B(cQnbMCsNHB3HK$cgMDd?{yGBWokb%P4>mMXn@R{Q?SLnl-q^aU5y5s^92o^;wF>> zFW;wkZ}WtGN)^5hBo9lOmc;BT62vOCu>zP$ zLzXCqNKh1>XS4zD0W7BI4)YcJkbUg4CRoo^0bY6w4PT1_o1`-?z@wR&5?2%mcH%7q z6^JLwt*3x0y;tI!yCJJg6W#(ncauXc3$(ir50Sh?Oy)^Dckxpy&xtt2k*9&PVDD)m z4^2#4%k9+NfH`r-uePfh+J_j55nOn2D{KSjE3f$I$F91{D}!sg3MkIlZr={jmVj21 z&t`0g_RiX}3-C*&u{k1f(qTT7b~2>Xm)tcx0^V+9K_Mtupu?>zSVrRY&1v?Ij{8mI z?e4*$CkIS9D4FTKU|$J4W`jtn9HN_#!{9}L0Yd6NN+OxUCpH?UH?b5r>n~e5gh^|C zrD=UU?1kiFa7P=FewLN*#*Y(}D;=fR4UOq*3r*>hmwbYopj{@YLU=Qn?CjaQXEWV) z(?-1g;Zvt}?H23axNrY{VE*vQlRkg>#HCB;t!;Apv{k}RoH+6P^DkVyc=7ocUVP=X z*PnUrxv?dqwf(+^{A5*x%#_LDuLGU<<`{NF15_x`wE-?A!+0ErkZN2Bq%K4V$H zU|Os%(NEAt+&t!C-MW3trpwPiODz`(gJ7fLv=q!-U18&m^|iEL*j`<=vc0V-0eiW# z;9Yu33;dTLd4zW1G?rh(^PS=;46urC#r!e(0|)m*cs`mhAjp$(q=EMAgVF+)mn@tw zK7`;V1WQHZ6%Za32h;i< z><%_sC0iwflVbSZqERC=dnddj?Nlk)Zp3PANr@gJIY_PmII|}_(q1@R0M7hIM+nv^ zyr;-$sbJcPR_Ez9xph{yxdyp)f2^J&M*L4dhK!{HiNM68HLE=ZZ8WYF{k?c}cGRFIVPEQlxr}6a;DibEN&FF1NWP z@3=`q_zwag-NbQsaNHdNy}f6ws1`G}=uRrs!pOOe8+yw#tvEoH=-pMT_tghf6lC^{ zV{A#ENX;UXMiezhpl!elfa{$zd!tlrj23D*EGGNZ)t=}%VaT$ixQMZt#t-Kixu$^& zK?c&dUa+++8ft2&ov6EMDO!XcC3X#JmPSbV9MlH3`_ss&6@B;a+qb4;wJ`S{AGX`S zA9X)+>=>?YvJ#D*Q1i&6=X^@z@e3D)KAt;w{$x+j`E%!9c=5$|KL2^GNjrjs)R;+W zV)wWGDk^6tJt$mA4wA}_QupE3zQ%Z^bDH}qWf z<#lAt8EsrE^v{lt5)TSMVnq91tFsE5(KO96h)<6pd-emIjf4)hxb(>3HMQ zU;NRpe*4$I`t2|N*Z=v4Km6hSpZ@so{^?(ye(sf}OP7iva-FtgRF0c4J|D_upW98< z-@k8{)xRh(Kp6d|q624W?CVtcJS_&WH#OF-Zg1JLc_ZRoTU`P0QFLCwC3e6y*Fd62 z(S=P~BzePzb+DaWI!FQ{ZoqabG~*FILv^1uJ*J*9C&13Z zWo5>|IaFT+#F*KfS-uVG0$|SGbUb}EZ~5XymKyM90)J7l<3%=RJO}j<-f@3Ycp_wH z$|Q?sj4ARdhapkMWEtbCLx&P%U_NoiK|DvlK(2CcLI&kT)#yUC8WAWrL6o6rE>%1OXrphjh_XH-49>z*Q8E_4J2Japn*nZ_-ItcFVLltSjj(f@yAOh^<6epMO zM*up00k#_&F!(3v%Z?#nARpi6NK40fG-P&9Dg+qM_zYv++!5_g0(Kr5zCUKRGIiRK z2IUdt*93-c9HYj3lYGH9IoDFWi}x0A;y9(n)26kRb{D|_L#(1N~Hw+)?gIkQeIxRdi5$mtwBL*g1mmBKgG!#t&kqM(p<#C zaR;Uy(mBBk)t$?zuB>45;td+>>x`%_U9?CC+&wMu($%%2vvX6|&aTIwc(UizDLeET zP5$g7XV0BKC)}>1WA)xWyUnI~=JI7bXHK7@-#qcu6aVwyf3K6yv&f-1W|=i55)Ruy zmYP){DpWn%SA*;vq}%80@NK`))j_raTA96#!RIYf-WKeI%_tm0lOoC(5`F~}SSi^S zerBhj7(Gi@4*t7|dxB_%?9TemzIoqPU$bD=^o;FJX*F?u8a(x@i(yO+hnF8)z5~*p zpglrp^fyD=Ed^}RMdC+NZQh+_8Q12@W#L+fz8H5ST1hfka`3?6Gmk#@tsnmEXTSUB zpZw-`Z+-SlFTVb%$1Xliu9-7)Ca25*G#@XETjH5|TUfWTPD7%UcJM3Wghtd>s zVvA8!@J^Ol+p&rQ!fE~hH zPtrODKt7(es+I8GP#@DXee}fIL-2X!vZdfudKR|l%Wztb{eIH4I&>Vo0{sDn;h zMmQ}sBMHOHM|cPO)Oa1AVEf~&Ei;+i!QmQmwU6Awc0;$)xC9<5w+U7^E3%|;Nm6ly z&_sA7p~jtow){vOt5imuOe`4AnW`N=#T>e^B_&z`<|DBh)T@=@(Ab9zrWIi6*4COe zbrKzZ8fQaYx#w}gXp z_F(Dr=c#wC5%fU-?^U^S`RJliZqNMKe^y;UBACC1XzwtMq@yL zBL*O&ZUXIIZcfYxtq=*FV0-eQTOmD*bvy75i2UI~olFujFXllI_>MF$NpATg$8~1C zh(;8Vy(YRRw8tu((rL_AjkWSMfp2M{1Ak_m=bLnV41PPJ=wkE9xikc(Nx5M>E`7zx zFK6WD?wRE4nBr##Hu4~_9Z^q&t(Q?$yd5%t4z$YjQ~nE31830f7n0-WNOeN&&|&-; zI?A8@nIk+Gh_)qc|1i+DoC5?TWjD4QMpDxT2jpH1FWd3wKyAOq$S zu2{Cz0>7nW$D}Cqs)pKXuTmbj-^?s22u|m*njcKCn>c06y~L#K6UEI;X{|6zV!4n zPe1a=nScD(f9GO!UA0ET#&lDG1YSoSc^423pZ&sTRR(*#EURUQe!;IT*QQf;)Usq; z`hXfJ<6rQf5mxyLNi1cP)muA7dSY->B zo-0^={ydD`<DR~dtjVx| zF;g}GbttF=iot_`33%tBjOG|*Q4SbB?9Jn+oSk>!CD_c(mMg!hS3gLC1VHdy zX2W{n0D}o&XKe6!;61?Et(X%7!ybW{9Y;JU(7RtO;fpS2O3Y~8%EpBB9o$l4%$(MQ z3n@l#1arVL3Sp%Ntq~Umwghu&B(`Zy2qz^*$wbIaAXOlCi0bzb;VF#%xN{tj$@MWl ztEXf2ANS9l5q?T}=Fw+`AfL*|DH-z{-Yvz7C(;`qzmpm{hwZup#CELAj%C={pgkJ@Lsi{gH2-~+^Ns3RvE&<%O@1ArU{vg5iUpNlgGx<+=9*~~V-mikS z!FCCfMDwA{+hrB(s2%x?MI!zf=nn0LPk03#vCP#Kh(cx({*+L)LMnL0TCxBI4NwL3 z%Q*FU6Kxp+J+xcQlC4owti(+WZ)~taON>XM_ei@=sPuR~Qek8NhQRclk#h!#u4`6o zO!I{9L>T|`2tq3jt%`x1Hf3^6RV8ZI^Kg$J??7GJk%{kr4b-90BxJoD^jlKY7h-GBEFze6uUF&{*i#;%~5+61;n7yu?=B;Y!M zuwMWUNDV&$?d<5YW%3RMBZg}@R8dE4QmXf>uewTYs&N&n7NEK^hqTI&6|*rAid1WQ zOpkTJTW!P`)xBp-!zyMTV&b^Vd!HZ)F^dDx$l`atXb2sZTpUj@`|NC znOaq~@S%qw)u8_USqp0C+MeUbUVHsDd_44)b`-j{vZAc1souH)02lU>&EYo6-PWS- zB_yUA8n-kzw6-+x1uo$ZGPa}lAC-1WR<*5eYcULJrfQW?+NF!w4a*UHf+xdvkZ!b*K!LH_$4)__cnQ&uW@_NN z&PwPYbpq!5wE=J3Hs;^I3`Kgt*PRpoCTcMNxD%$EWJjA#_O@tbHJCoIh&psV9v<38J!wl1J{u~ z_jiYAYc#_YxtLu@;a*m9Y89W)-i`&C5JfN9unA67f-lFa#~ zNk|@DfUMzU-tKrxa0O=}fj{gRjpg`KrNk#WxWfDiLgg8Jw6_u7P|56s+K@)a@@uj# zR}m9AHAe0?zst};gYFw>WO;zGB(|zMk7=MnxHp>w@93g7Eq zA~cuj5;h~W*!Rei2&1+79Ggvh0r(-~FI!@ujmECE*4NemVH3KkxY*$K9oy34BpXij z^c?N(e)feIFFyIy@e?Ny^|NQsoPYfM(W8eqZ`wc#c;d+?A3kvc!c%5WKK$@kzwsU? z67%8k}PTp>i^+}W3Nj|w%j_?nnQ zq-5YN$H%l3vNSHy&mA*5K6we18I{7}G9)0dpv)*7R7cwXbR5};vDD(i%4LgvZmD3z z1KO#xIWd30CJ}YU?}i@Xo?+FRTv~QO9$2j7*bBa@!`{-=u&Zl3&EsUx2}rnQ;|9Zr zG+P`-SO|9m^b%diSZA9tq|#Qe^3|&58sEUKuEtMc*t#_xB?SeBBp_I6abfwg#V^0~ z!q?yX#>RDPN$apZO*r-Kwpz1Ffw@D_807}tP~CogZ54#a*w?IXUAJ~MDo&Fjrx4pI zFsQfzQ~ErOy~~WJ&6{$B474|FYG_^psP5(rfDYqv2lnmtI-+pvEOJ#*mU@2Ct^B!Auy27ybgo40eR#cjKg8$o1oqfi1X_zXB|P3ty&XfMUx3KlLSm! z>wx!|J2SjM=q=NyOq(QesluTH8L4F?FyBqw!G4B%ECn;iXE1h@8>-_ue#N%f^n7_E zLOt%yhdSaHon%7LTYB8nt-w1h<$xG2%W;ZeE{C|5F-H-Mrp@XUc#2vcoJ`U5Hvpmu zdoK%XYTy!AuUr9?F2$Z=7w9Qv_#(7{AOqQs0aF~HkE zA9x9~zvX7q1ei)pvM(rx?XJR(@OfqlkVD5CIRbckB4+MdH!LX}=}(*Vfi|(yyZ%Ki zMh%(W*|Yre7jT!(<4>T?3*h0Hl|OCZT+@K|ZsJe24cl-Y?1djBJt+qOF7tAt)%cYX zfJ^DPcX9;Wxi*Myv?=pmZ;@36qK!j!+DiuZ8$TY)sB)d4L!*;GK|yJcfaHQ@6oUN> z?~d3q$Y*ICu-o!}_5!YroirmUBm5O9&=KtW)2~y&+%MATPkcTrJUoRQDlRnA#&PF< z4V_9UL_ELO=oQM6vQzus7X)P*Pn-1?-WqE8g?Jgk%;_+D3pz1B#XCJ#^nDO|0}9uI zePL!Q=+#|3-FO9LAi5hOK;#6Z%^1h9T{t=tDQT0 zmbT#AJwU+6?8viJchi^XvE3)SPoF(w(Duxk(>5Z&HlOI&yb0z&^|NQs5^4?|JP6yL zy?mLcP!}AEY_J4Ku3o@q>L&o(){1M?xe}U z_E}RV>TA0>j+C?$RTpzN*jUhs_0r(v!yd+KvT(XHA`?pXDv6D=>j%VU?K7%+cL|;-s!~e69uE z*s@PfVC?o?WoO>(=`I26_UF%;=@(It5!~rh9-1>FFSDQ1OJ;{V0Pk{<@)J|}czIxz zJul-&(Z`lVj4;yfPxe5lgz9>@PLa)Z@i-j@0M+#fLZvYUb%F@Sn0D&v)J&5!s2}8L zS;oe7pC~gLJFRBr(#6s1yzvH6k*d<`ONqdO?VdUX>|$8l6A zZ2sgg9CwM$DR**QE|>vHMe5v@aD9Gdt<0@7H>4dhdIi{?FG+~%N1Bw&vK z$Sk?Lr=sQ`x!34F#p)sk5MxfFx^@t-+q{UPgIdbUTjK_R-HUr)V5K}`{8aE;bjspe znR-_iwV+!%0=F5bt|g#mmWl-f5f#irK&8(h<1N$~7!sP~v?)9S(-n#)yaAA=UtfM% z>a2STj}iTgz2ox;yhd#V7IF7qb8~}8xj+N4b9*T>orjJb!tOA=?rysKQA|>lwT~=| zv)I3H-|5q*AMWYd-PN^q^X3Z|FBo7oVQO?y0YEbrET2I879Yvt`$B*k7+xMYr*A$Y zAxzFFDr@JhG#stZFCe9^h;n8#ShvY_Bdtb7%1d}I4MTDSu-mjjH)K)BgAS=aCeENd zVKO6U{Elm?Oht{bF*Xm|S1g)8W72pGhpI`^)45VRc)NCq)qruF97SxZujx5)+}etI zNvBSp*wwYoDP`_)=pyJcR*1mME#sl&AdR^*0%a&UC?9I7)$_|F-#Ig8#2Ses2u-xs zn6{7CZR^~qiYv;Nz4FS-XV0EIb?U^nEt}{nuo{21Vd9Y}vBKkapH|;p_2fR4{83SqcDwyqGHc1+o52gJXkUn>&1dHa!mZ2WlavusAbQ65I0HUti#Gj$P zvUT$*6Cd=kKAVbA=DZ3Uz#|d+Ox@9;!ibqEKwY@{VD*IsCB-y$-~Jd&F99-uNc4-E z)r74H!zLLazpRS6q|u{Bf?^2CR9upq5_=ADY0^Yc19(vxqu!2i1km0=h$l<%A9W}i zaX)y`kwGMak;atLkU?v`w!vmGh_If5fY5p!AQkm z%OR`=zpM_=aW}w%hw}(7)F@aiY}fcWKCMPukXR?wL#aLyNYMXo7^|hku#~0k2J~mi zPEo5s@lBt&fr2EBtDJ>Mp6;IhME12u^`ZncJzNeB%a|iH9B<*Oa0E%l@oF}B?k%(< zn>WJ1VK@*_GC*EaiX!r-X@I>VY$ga-T5!P2!fo@3@=p5wU`Yfe>`%Y&KPD!9_(QaF zSPh)*e1P^J%vAaS+W~vV_V_#W_JH?<>hYU-yUch6;+4Ww(cV3XIt@7nqvKN``epX{ zzT5{vX%#rx|B>!{)zVAHjpsT{D8 ziWSR|cIE{9*)1kX1~I6LNW*rRkGI2imMKKpyi`Y+J<=}120GN$RQpq0rG2O_BF?sJ z*G{^Rm>HX;!hHi`_by>F+b!yT>dYB1WOV`)nvNVk?6|q_X#M%e9`|%p3_V3xBIcK+ z4wt?aduH=$P|j(7z#Ln~!*MONTrb1$DB}m(dCN#{HY*#0@cu;1ncI+9Rmntk;Sg*p zEJ}KP1h%9@oh2QVdoTdCZYl*b`B0C}9o~fP#bt{Z;F-LF*(jxBifIn*txc`X4PK-B znD;w$=+M3+hxXGYJhayhH|FKOX$~5N86^Caa1o3hQ5S+pb*HG1NUf6(u`%9qgimO9 z$hon+r?!tS3eV=3@gm4mX0?_@3#|yVt#d=?#&zA@M^?ADR9CL7^40I{6< zNo)~ANwN#|M$F-)@isSy-kJ;=JSi>k#S7bjJnx{(08cEFntaMs&4HayGBhy$!C08) zzQJ@G#x`cO#iwIwVjkA?HZY}v*pDXc&PGX)q7UR3O3$cKIGDDk8OBIfNqo-CcpoH( zoDkK!;}Uu$F4V?hJNVM%gymqu){(ASu?)!!HDkzq5C9$3*qy@tNHu;lCv-R1?pkL- zM8;~k0ZE+F>vY_Hpe5uKAup)x_FEbDjlu)}>s2Hg*}$14a4kRO7aX}nD}d6p5iN#J z;x$PM&{cbZnMtLO;ZDzTLl)~kSw`@bpi(KsQL($T&V^H)4i5tJ6&ildm1v6Y%n^7T zA0Z{iu3+UEzw&3iRHCv@I2Ek#)>vu@s(S?+Oa^7}0d)r#&|H4NyCUVDB!Iop8(iy* z+#V4xPWg?LiMJ=z4;{uPf!{2-XS(j!k+lCIVmo;EAWc5I zq!cyON72bMWk%V07w@Z1@p<{=s+20wM%2BpFgg9!@Cf9Bgw@^)=t%&?_)yrc+!*zE zAGMhn-$FGuM13e6HIjsj%)@ZELJk?5NvVzu9yG}GJ)gkN*bZvoHgN`y+ZLvPN#cO< zS#uAUE?HDnSq?3%@hf0n7^DRU%2$@{*dY?KQ(#_gZH+H+_|xhnotrjUlED7Hef#YD zjGKdp4jtaNcdxa=tZZV66M1K(Pf?2F>UWnGD38U zpqlhC)AV~EK49)=GN<@uiqe2?z^+Vi5*z@qvnb_bV`IP^!t-%FqYY=vhR2+kR;C%6 zn;Lh7!Dnn=xp?8MDU%fY@CKw1{J}K~H5mqX#afM1 zd6w~xJ-c=uJ9-#$lCur%Y3w7154YNhQ#-b7*}HpZOG6!a7i2SQk z46Fn2EgRR9A7PXWIg1Qg*dWS*(}H(EhX`esD_3>^2yAh@kaFnnJNsgZaK__c0&53) za0Y32TL9}6sBt%KApT6$8eqDU#DVQTq@`aoEF6U_5s{<^(ZRik@;k9&hLoNTy1fE_ z;Z|G#vgAU=>v4{2o9+qOJj>nCb#0TbC0B7YMS01jeOTwYF7Yl(BYQ4VyW^N`25qyk zXjaLidqm-CfvizS0cK@)UddJrN6Q*nzEPLzw1HFyCl62xvp)x*jlY|#RTUkG6 zbu0}%2(cvviSY#*rdFvWxj;t9tFl#Pju@~X?ScaZ5j11ap}F6Mk7hzxr@-~d5hHw4RwPMXZ6yUBJebc*rj~!OARHf2H#kIv-?rnxgtj@7FX$ZxdKFOYXCgSoRI z7f!WYeCX|l*O@n94`&gBs^jr|>ruK70`JiwdWbFv;}6yyG>9}Yus_uDT-h}XidzKl zf+WTEAUR{jM5Y;MY)nHVlCUeDosyuw)ZO3#dX$3!`>^OcBkgzf?$zt=JMNe~ZrqB+ zi-{2WdY*$Ym{C7{l8TN<7O%j~_4EA~sBX#znI$G6-U}`D>w#EPT@9229oGCe$;Gq4 zf-4C!P$IxIrq!GL7}K#sp|#j!LOiAF1>Mjo(8`{XXD{nd(C5xj1-#2YFC)kb{s1D4 z0^f$NF#?#sMjZ>S69fjCFE4=$`9}yWhoDBeWno7P;z2SLdo^#NS>f~exz}+vfXhUZ z1lRf!GQu0!JkD?2YS2Jg()u939LjL=eQA;`{W<;l-^ab0lvG z(t-R3n;1xENoUGX9H}}|wq6{Pb4=KHbhXk<0WYZZY>LZq)rXV&4GDTktWLn88`?IS zL-+-B&MF^p*U0r#a$7gG%cXnqxIZfks4z$4p8!%vm zBtU?&07;;nbIwQtp@f9UCK#~CvAd^xYqxuT*q-T7v$g-gR&DLyw6D)OwyJBXe7biGY^9IhKKQC(D$;jeQ|Mdb8BmAdg|UM zpV06d*ROx^<(J=n`|Usf=C{V6+AlOWJ^~v9w|Y(BTEelMFdyIjL_T@HBzYw3$iVrF z0xo^en!IvSz%Jpr$42cEEnS=_99_G&-{6*eemqY3rFN~9p2~f_Y!FqTtj>db&L$yviQ*q2& z<3MLV4-fX~4xp&zp9oyXb1u4h7>90+rIfRFOr%vPD^r+hT2VVYTDdC-Cb3o&6X~OP z=b_$ObUv78Jx{FLMNqxzlI27=LK@*j6iRJPMNP$7gG_Kn#3fcM4q6(7e>D14t%PPK*KNl}ip7c-6~J zd%9@`yQ!R})&=(5P@8{Z>9cn%w0EGl(`@7THMOEfM5Tp(a#h&~T1is@x}R60azMIE zqTk`&jJqJ|<)lZd*D&N|bT|rgzmVD55nAhms1D?23uOUi z#op1F3%}kquc8OuE}W(7s1NPU7oH=Aap`$?WWPq$m$X}X3E zKmq4yT?(gz^UmE*PRc?VEVOr*(G75RFz(&=jvr1{JlR}NJ)_3Y8T7i%w2j1({L%;SpHh#lT_B0Ta?jGb)}`be%@9T0FF?M29#QH$ll z2yR!c$9COZM}4w%pkL}}Z}a_Y-v9-9R42~ubZTl6`N78O2lfrQwJb}c3 zqR-O}<1U2?p9-A@B3!rJ%j@lCI_ZenSXZkdY;>?s>7aD$Zg2MiXB8u_r@F8wLG{6X zaf3w24EA&}Y(=M>C@5%aZuT*V!uV+Ek@eN(+2k{uYGFW8pD7fzsso~S$-dq$jj?G! z!Xkr@o<130Jh7IoI%QzjDPGd3L2@&DpZm#Ac>YQv_t6wjI3ZpioJVL77P&M&!T}5X zlJ4AfxYj(%mO=I0gbK*i_;7y@os4*(olLeWj23imWH9O!xWchXKDprWv}M%y{pAk2 zU8f;Ku(yQZk7&kFR6FG|N7%n=oF#=aA)O%=e z7EOHutY0}xRJ8ay<$~?d?J_GA{FFtwU_w-vwk?-TbyHZju)W!~tARQW#;00UA&eE7 z>~|S7%M$0=pRuD%et(*m&DdnQO;-Ngu4?Kh{Beb4MlCJ@w!1ixPPBVR%!}dT)fn1c z+pGJ6Zy^p|dXfJ?Whs|wb*7@yNq29B^6s5G>Exq_4^a!ghs$HEsVGMkKAR3oG&#FQ z?ZZ4_W>YUd_Z;w2SC%LOIIeJ-TIh7B{7<{UEk>C6?o+?!VF5qEkoZSeko1&hv5IVf zrc&=$3+0pnQp}@h=C*Ka{J}1VBtdIpOLX>hDQp>pF&~t} z=VsvD^33)u-OcCZMo8wfZvQW-Pb;KnD+b=Nos#z_PsS;`hG6azx$??2$Kc$ZwIWw> z>`2m0dB>3`pk1z9kU4SZi||Tk3!Sy_ZxqUi(@am})2Q0<#ig^Ud%8NInDGLel(`kH zB2)vnGuyf79)H2@q(0%wa_6T;OnZIkc2)zbb7nQ0lKs%lJQ?5GyLbPS$Dcm&IS&KQu;st}@~g3t5whL!GcBDO zu$y6#3XpIqmsBfqsw1)d-% zgIZoPn1xby`b7P?N^;#)jRv0u*k3$fuSwx)~lexbVjd{r5*Mov4J?6i)CKks-sg2P4NWfLc2@8D$T5!8KGbVuke`7gvsGlaBeLHX{8W>|-BkpN zkNHY?ft0bY5K$2L)$Z8Z0eOR~yBYB@zG!d7E^Oy1(eR!b&K|k0FT2t@+G4LveaZj~_V<+S1-#yBO~kda4!a&iPtjS0^V2 z;vB65z$|YvTnOVaqsU-MdBo`lFFt8a1ggZUDuSxbA}XeV7#>nAcu3d*BbX;@y?_!( z^7iYmVY>~2i4`q`T>PhvW%i$i2!=M+!gJachXc-`+Y?-pHv;cKZBsP1>IQl5lmQU% z?b=4H7 zKlx!8HB!!ye>H_`Q~49XBdncv&xXvlR!=s3fL)0!vrDIhBD|xPA~16^B%yer1~ zi`GfsN2o04C-M-?gsE6mNS;t2Vj~%=SjWYTFo(JeJQ!9jaY)dR>*29?cc*f|Y@@EPo;K%UJOnYrVVoJw#I= zH4Y!0Wi!!!h=pJpD8ZJN#$kV&;Z)PT0%#;c8g;vIo=wx$&W#!9?E@|vo0Qk;rqEZY%PF9Sc^RKek=q|#etwmT9XVchI1S&4wa_NWMQ*6tcpo#bz**Y0zX%EfkqBg&T)KVyUV50X}=!=aumXX)6r@6~BD zCDCbkze;{JwW5N+0hot+cT*kjn*A1u%byti~_Xv5STrLGJ@gP*#-NAMv zK)It_8gHBji4x%0^RC}~^;Po+_U(0xiOj0f($3wa zi^H}fQ}3+*D05R+#zr9fJG`7j>PdR;uG7SH$%@mFsJD!cSphM zjyPHw%v;43R$IZned&I=lBmvSQJ^d7B*e3ES4sU5H<0jHsyR{@s7`z61R4|)({-{K zx;3T39*wH1N_LVNn(ZW!lOfuh8@cN|b?v7*r5gB=TsJfgw&Q%7wiw%FL@QiB-gL8N z#>dBf5qoZKPRpr&Hk+GUKz>8x=@(z$ynSbCdK%}ccMI?FXdXS*sH*f)e7oaOghdBW zU&PSDvIpUlQ1@&)r}#!vRL#T=rJ;QlSgFCW+TeSarzf91{gh>K-DjOACyv5*G%?%G zPI=UqT_ti|=t7DfKdtbh;Dnv%$pW*UqYJuum6mFE$jyeXr*42d4VUr8>-tZ6%S3m0 zXO%$|KGn?>qT97XsHqK)~asz|8?D*j6btGPDU}w)#*{Mmf61&hF!w36& z%)n{F_@!uzY^(

    >`+DmItEE_*`vP@0w7_bpl?%qMk|;uyYR>Sw2tjG~ktcaEo z=t6jdJg{3Ro7#j23A)v`^jUEG_+wow~^MV{; z*1h)r5|F9}m1oa>xOcCLKJDbqV!yi=N&%Sii5!oeqZ0Y%F(c}{=1Lq+j^$(|Xzxt} zO3UnN1V&GOPGCqJg6EExxXn8>+nHvS2q3lw6#fJ^^k6Eg=%Pn1P!O9^1sT6O+JtvL zkCwX#0Opf`tv68y0vP>Fl@XdIO|4=Ijh555R55beEQFf3*|ads4GXQpfU*!;t!0VT z`6Ld>#xsExQg-L9w@?KtSf9ojhC6u2MhBMA_li{@(WY$2k~~A@!nve!{boZl_aO&>>%0_Ck5KHeO_X-ndJDN%Yr<` ze5g0?S9x4;hw6eyrD@+D7uiK{I+i$c<)-tcW8EXk5@+OBch*HfwtO{k9s^MkxMYrw z`9>ZyP$Zg!SGJEJWXq7{LdTgF8hx-`SbMaro;*=zV7;@aeG{ih7ZO83zH_uhktn>V)DGQaxuuN{^9A_OQz`z{YyU|dB* zprF7pLWNO7w0mVaNRH~t{N?MbE4OZJK6(6DMB=yKe)HM0C!algy0O0Mls)x84YLew z`doA|2ZJZ0YFu>8S8|$^Vz8{YlP%o1zD}8ntKTj5a&Pnt7#kXN1?*b0sjv5n&~2{2 z(A(aE8|s?|y)p(wh5@3=Pa8-bW0<-9;`OS9K{5y1b%^CiEOG~pyz4y8k?I@zVM`F%Tr|y z-`Lpf%}p1B*hBrcWBU|4QsH3?iF@WGv@_%_R}k1fto5WeQ)~xzBt%8(m$qlHoU1%r zp4^xQwzz1P(h{NM5(^&KL7sG1Ue;EZ_ja~oDJzC21Avr#NpXQCM0I6piBY!9Gy6zo z3Hgzn!6NRRbz|O68SLB`9km=D2ga|8031%tXZWyLN?GMO2*46#*o5 z#0T&+_U*w>+pLL!-+jfeL~?c{w?SY)UZajXn_zxO>8@0kgtMxMVLNVf40sEC39lFp zZ$-D(pKKo=wGQ7#WR9+a>9aCN4<97Fy{%qVz^A%Z^l)D2jzITQMMZVzs&OgW%JpA3 z_@TOqmmS^>Ne6e)4XgAljK5*Hfb{)MEb__&G7f;eM9Nx1X`_}17+@DvAsZ5gRAw6y z_NmJ%mdXi_5Q-u4C=txyURKc>5^3*@clA@Axtg%;hez_(8vy9ol#dD{=W9iHL@o5o zx>xCw@otHfi1)V^{_MpUu+;Hq63XmPr2tw&A5@xm3>a&5%%WYO+rgfaLi^oHei$@J>yV-j640;8uC((!Q5?pQk0Q|yV>!yvn(P-U zz2M`c5}60!lsRT5u%87(EwJ!T)2bpH(h4E;S~B*#W;hl9j<(jeR(R>XR9{zLd%^eh zj2K4Mi<9Z@)aVBC-P{+5&KwBNhGw7g8Wulrok-Mcq$ z-`31(C@LRgVsW^PVD9duF2g>d_}-y#o@4kj_ibh%ASYMI0HrLlzuGLhOy9fZQ@0Es2t*$B{MxNA@YUf)_t#`d&6uYr= zS>G0Z{neLG9zSB&zwxTRAv#bO(fPYIXM9A?6?g^cb^(yXyyh7to1mQ2v$79gsC`lvRspN z+3AdTh85`!`1R*1IWXC!;eN2(`@7rwyW6y-wl>!HceNuty^XrO8t#pTR|&=;-IOdB z64TS!s_4ORF{n|rfqOF8Z7^V7S%&i%UY~{?0DK1=BM+!Sr2b8g*{?F20=TM#23A!D zHB#GDOgI4B&rTFO5?#fp9NcH%&4S#( z!MZ>EhkwWzJXLs%_y++`)wDu5iJqqQ)p)(8d1J;@TM?5B)$p#E#NC+r90 zp)&u3rOsE+1zS*#*pW+-%7Un3C@FB;wNf+T$vb6divNDHy8NIW#X(w_k)CAy50iEC zw|;dN`FyjP<7Aztvy;u0$;WT%B4tpuAnyeh=yp-=FiyND`FhN7E+milfSri* z#$m#IO9=kVcDfx*U|iU?_B-9!#Yy@AD*>6vFVwxk47M}gv3+W4>as!GXJ<{X3wGbS zvAnuUtKYr<$u+=VS!KwuYo0uN>cc(Ho;{;HRYvGu){w4J{uBWJ)mLBt;g5g*<6r*$ zfBf5@{`>F$#iu=tDtTAPzRlf3pUr+@Of?7w?G%3eELYQPpu50pI_dg)gU^+ zZf<<}#XtS?Z+^YBxWLQesF3s=Z=>s!osOYJG^l9~^WG8pUcKbt(q;w5E|ZPkp;fwD znd6OmvXz?tD(aVTecOBROeZfS_Q@K_>|)=UQtnvjl5 zI1?^PAfhUnFc-jw6to0MWW!#2p~E{n*k1zFM?|rXMPJcTZa>rmkFFjdUT~<<4ewtgQL#fW9V%b|81)pp2tU6Z_4VQwA#JCUlbpbmKFR?!GRvz|_ zjYGQPj5lSkq280jA4|CHHI@FP(lh@(7nq7=K7AuhN`epMcg&Z?^lN5R3Q|M{9qcUC#5In`az z(4q~6C*y*%aa?U|XI;9I{6hQsaL@am6K)s9wQu(>los(Q9+H6fm?{1JNzWG;sk`7~ z{R{*_9X{}ZPXlN=VwL~&$3I3MU^MEM779Sq=!2qWq+D}H9@N^Wv!{CP%Rd7;-Yhnv z!~q|COeD7)-h(R9P12x|M%hxz?13*_VpdoMa7cG~a2{PPNnCmjkrXlJRSKL7!XG}c zALT5;$xN^$Ykvr3$d;fTj)Zwg^id4+82FoSzdl=B=v*wv%uGLQcRCcTEs*H;nxY_7 zhB*H_93-%7HSnT2JbC1Ff|An*aNJJ2{t?ed!4xt+31G+e+>gVtQAB?8`Lm|F^NgM- zL_&;5z$E#N;f~)GFm;t2yepYe@27NyUviob{>to>gU@N8Q#awC$l$s;DbhWksq@OG z=1()3{4Ne+I5tVG%8A&8G7Hab->Eq-3fA%X6YZU2z6+Lnv=}eU3y^moBU0$ycfj0F z2aI8;TdQ7aM?Uh{h<_+9JTA^e!_o2hQW%^4jE9zt2W?;%DoOK4M-U%~JYfvg64W|X zT$BwN5>Pft^}aiiT{cM{9GC!lgf|20J|IueU#zd?(iluo(<-D#d+IciZd}1-5}kBk zU0=U@Pj{sUw{G7SFyr4=NbS`-w{Jao_`t}JpMU=OFMsvx-~Iky4DT-P9ov0_Pe&(X z1wVT92+x5X((l>G{rh)r-@d-Kn%TaZ*sdG?{OpvAqb{y-0o!#2CHq<84^Hhx1(L4r##+D zuY6Yrd3h0$C{Hukm=!WYcC;Fhrx`ebi|WoPo8d4*VB<*wY$2 z$hA$SLsw^OUvDQ#DGVmNK(jNGiW1~OU?m46S{+-6VWB&mb`lhn`R)3R+NNDQHq4YC z=8L0)y+QI4Bjjk5EQHyKkwNy3Y%UINqqi zgr7rjfOf7>h&yNC8@M20zufA<_B2>cW`11BWX{_r0nb}dxJcPf5di6$yK4lw_eEjq zj<}&JM>%+)^lXXY!CVl}Pfc}2fiToGUNJXbIL(Qo0!J7ofBMu5A@sq%Jw-n4T~P)O z5N+dzc~tvWp%%E#NavX!*teHEcl_v4F<0`Ca6BLNf_V2|dlj-Y&+47m~ zmP^hk!7x5iglr6SjJ16SjO{88rtt1`*hHrJ2+d%ib4lR+M<1n9_QAUpI{bxTdv<1Q z&9APEjSqIU-@Lx+M EV0~*W>jjFL5|#WZeEO>`FEor zaQJ_hCf|)Alg=xg8E51-Yo!zX0RlU=bbTVO-ZtGhQ-{DY6JO-I5%A`nRG>bU+K$}g z;aAs0CT z>RsF+;%vd+x+UdGTb-N08+B7_(iF z%$x|w*%{+QZftJo!F2oXUBQr>o13hdjg5_!m1P548B&a~Vywt-fAve_4+O@I2z>wk z(}Z-xMLu{yefw6M?`(%wzjHhA4(vB?+@RQ3u3cSOx@sU4gS6-eIyF8fvUQTkpPD z$jqVVVU|uNrwMp69!C9Yb(@vn6yY0%cDFPR^a^etR7TjfgS1V8S^)rzsdR|%7NIeB zeNsM@)-u>k_EuZhQNs22(608U!$`-@z&K+g^yb7eou*aI zWcb+2li+4xBR^u(}`boR*Dut5ow zLiGc^DmX@Bi-u#Qm3jcy0XK?!)N)!z|I_UkzYmF_(#dbu3ZzROU#<(et{^a#tOD}c zmXSeu;R>pK#I)`_+M_WChU4x!`_td=m1`0LzFlRNVj+uaFgU~1859~N>DmvRT$^vLjC57=De{tx8=)?qc7TPSPp_xCy z(+r@)8qaxtYCH?w2X}7T5t#e)liORSgmihyN!h$jc}dP`M|W>rA0O;P_4=Ah3w^NA zc{y60O8iMsIVr2tSM<5PXR!OJ@=OV~tMYvI_<=v4J^I8nDf#CYrYFoBu)tw3Ub1fI zUpX+#b8;aF@|)``&K-Cy>}qZ>n2#AXro4rmQywR4>H|Fp?`sa0@8A8NjsNwz_=yQ` zitVm#lt+rrRDhas4D#ENq<~hDG*yghzm^%gotGP@(t-B$#$EwN=~J@|cC|l|v21qQ zQsU`({8Tx;>;g`X3hPP(Xfs=QDez9@GbKEDDv7>}l1Bgz_!IZO98pU%yy}@S$qharb!=FK{71){uo}yha_ef7Z!Y9(|`lK8L{m`W`LcB zM|GW2WB7rktLy7)!2Zd@2fzO9Z+*eX=RBSo0sg^5TK&nVPcU6Vbu>54qW$L97PjB8 zja9|MHB{Fv)L@2YzWVx0tkjI`X%(!Zz|yH-#I(xG)rC1R-_cI-t`2&>dU=xHqAJX? z*5Aj}h%B>HlM8dR{BzicdZh*vRjZb#vB^;CZ7n3CDynjGWOzV0x)+wr>ybNI*=R|t z17@D0B}t4P@SdG;RQHqRft2bB1%%bHmxjj>Y8ij1YZ+`r64Y%)khjE*u!=uH-e&nN zcBfrW{10yH%1`H~Er)xc#87ZJsxX4&$FH*`b^)Z0!7ubYvfHmRMfV(rJOZm7=)}Ny zS14Ge36QIzvl2;7a<^Q%0O=R1O8Mta_2l^6p=#4U`&R)oM^%`K8MpQr;EETrjLAL`klSfiw z*t-oteMY)E0=X`Z9X~V7GvO@{-5$)3AtkY0(I7c-7ghp)e=0b*KrW{EMucaoh?|9X zqq;HAJ^Jc#ycd^6%vhk{6 z270rw-6q%4yX+;^IxH~2`%ZdUiyN;N1^X)OG^ce1#$?oJ*$HPb#({j^i)Ca`C;=l@mk?Vm00V7m8|Jdf;7=e`Qpf}2zzgZtP5n&Y z3NpX;3fp{}?aCnYJPPPDdJzJXQ@h`N2SVp3$K=Prt+i$RM{n%4gtv)@Vse~pla&MG&44AJBl!}S*fJqz(7d1)>pyS5*sv{h62b8Zp*2xadwW`9uXVc z<+tQJw(t7I*g&sydF!?KMxmmOXm_TW?Y1e|m#ITi!(!Cr!*Dp@ufZj|UQQOegB zI!I?2((q=4qeQ!Eg~;b>T!(iIXS~quz|V(a<4AtO2o0>9b~AK)AH%(?GhFwP;oPE1 zx0CQQGgDWuETTQ2YhK;l+*n)V&=AZ94_ozd)n}i7X6hfRKYsk_vuB?X@Z5C`rUnW| zcVy3aH>#wOC9f_n_;Q><3(=VBo|~D%XPq=f1D>y`a`lezWG>dLfauo`pPzsJjD?cA zB)`bQ(%k9P^dTis5l2Ex^T3WdBroUL_*&d2^=JymUB0=#iY;ymqm|i(=p&O~6wHKB?*f*h4=F(o z=9XZ{uwi>O!6us*mK*AYGhI>y@Xq~}hEH#!HtjK0C~60LePg;7yKKL&Cqg0}xow)E z)uVWdLaJH!D~z2SAG)@9SwkmEQ@EI~IH1gdoo*-2Z>(SI?P%7h%0`EACj7|qgKf_yXB}Z1K$SlL7pLFYt*>w;2Npd5bfVf z_Yf_Ti{SS0YSfNpa2b_)`VOf0WcZu9*Wm2Fu!9YC>t-4B-9sY!QR&GdbCKOm(XEFL zeBgZ~BL!25&pB0e+>q2N)ZRp;<%mQmlJ0PU)p=b!0e>jA1p?kr za$+pDTUYp`O<9QQs0h4j6Zv2q0W{el*4YKbfmnu~d3qJSR~9d$oGrIC)IWWAKLZm9 zWx#yQ6mkajeI2bfu3WG|{zI_6uUny%-4C^62aroEwm(E$Q9V&+7&Nt_{aT3a0+5iO zZuesP(?Z3Wx7Av-7v?))Wup9!%AdR%8JvR4lG%>fe#(a`Iytlbz~0>xL;bcUfxMAE zw%N{s(Sl&PZkEmk?XxH29I@T$C$_(qb{d^wl}Fg_8k)M|ZUkJr7w)g0EOAnj`{EQF zl~w%dZtB(LE+}njczP22B|Ry$nD~<_pfLz_AskwcsCQvnu&=$m9~lrH z()oc@J-k~;pCdW8hqYc`E8>w|uYSs<1;*{RR14+Ng~s5J6381y#%KhF^PQUw-M+AJ zIeMlpU%PT;0g@MuNH{xfOknEW(mQvwtlkpuBAG{ZK8$hQpFS1g$Y#IGq>&Kb$iSN$ z>tN2zF{JH^?*Xk`GiOBus?5zz>%v2UYd046$SqfdIUVhe3o&x-gqK&;iopR)IrA2A zMHn5K@QByf(@9Q)r+ICZPD-=&t1s_pt~>w5(@*ysp?d$`Ym4(tLGL@$n{fdS1U7)^ zl`rL(jT}afje=6NLLv-G-~-fSHJtiWD<-f@d3o8HQ+`7GaNxB(Y7G?i7oUxbuSjQx z!%>S8%aHqId{wz!FV4?uQAKijV&tx=@!Kt_jpXC_Bx65b(No9g7~phF(@)u-_hLji|#q|Kte8Kvp! z+;~c~XRsr-^3+;PCx?OCvT28<+a>OXc?)4&6Rn)w7=J4Eq6*;BrB+v4Gf%Ob!S=*_ zvHhiSwL!VUP`yU0c%Kgs)U2o|uRB`ZDSDo-PMI@afSv#8dRoyZL0LD)j~zjE?db%3 zd?fUPeQX&LiL3K)IGxXk=`!Q%O;F?NMLs)QP%uoXZBl^n3c&bu@?QGQ4Hq1cctE~ z>ucNFbdChPByiBe-9}?b=$Il_PChO{nQc_hs^d5_v~K1GS8ODR*YiH z`DT&>c-HN&|9r>)cP_aUlT+#GV!E5og2&>@n|FgOcU6Ji!6>%mF>fJrzypTis&8^C zPX%IW8Rt{EHJ(p;l4z#^n0^#H!9YKl!Sg`6pvrgO;l1bzpko*J#xq9y@m|<602reE zv=0`^vE6tYr5K)tI$s9s7!ZVwHdG#sQK~G_@Z|sI3=u938E~efP4uBO1F>$f2%Gkgh__M_RhFpg=J4Ig*DV z(9=0Q&?iHh=_Md}EWnQHc`9_APvPP#Oa-_9;rG8IqC8``AvV0rz${%IxCEFG0Th5t zgCnPT#4xW~Z;)^b9O|(GfGn3Gi+KxWNcz0e5`3}+o-?Go7wAD2S}s3prA6TpQ8cys zW>T0is3K4L&Q4G8qmW;5HO*spOu}{ABT5|2Fdh}HB9e!6w<=v~Xh(y_1n0Zj_(8Gm z*wDfPM{108M_mB4x{&R;nF%MyX)*p+NApF~sj|%(v=2g zI+`y@{hi$M25T)|o|>PX*xFbb=;U1$@CYo^>@+S+USCrUDY=?1|2+~b6`CT;IC*55T z*FmAFFy&IZceBh;7`QAQH7c)W4osWT6l$*0-?C}4& zf5>b&0uT_W@74Z}=RXTLKtzVKcV9Lb1ap+|6EH%tC3uxptErzsayo!FUws9=@mxg%_Z&0SlfkC7mF3j(@xuqbFPw_Y zlVfZOzyv^SXJ7c$e!WVtY41LR?N=m+Tmbh?cj{dprHo^6B#I==_Y-A)>v}jRxys-$ zB#j?5Meu`rErLd=Rn+wj!%x_n$yFMQoK`R-6=5sTRzDs6Q61ClX zLgAhFLP)5%X>YBquJkgoUsO4<9aw}%YF!mio-}-Pq-JPvV6a`naD>lETPo<0?gYBw z++jT9U6i%{O@^<*c0U=TU}Ag}*tsP*FV@;HGxHG_IYnLT)x<9MWjADAUcPFc0;k4( zol}BzF!vLTgS>DWOFnsUpE$>PJkM>QU@n0?w)=RTulwbgKzlS4`QrQ>qzh)@u2^nf zT^rRgoLDp^+Ob`OmwHXiq#OHuj6vJflsa`AzoAb)(dM{)}!*B`oJ979}sYo%>gB-+=e z2G(kDSCjx9xWm-UiucT_5U2*8^!_Ov$}SCVtHv9|Q!-c1dm8cCOk z^T8gFA06l(AL^y}d+7Q0risyk`I+&RrTO*cE7Rk{93FK6143$J-P&AJxtJIox;$gz zOMGFu54kU$ZD0=R4jzHcD3CCj8t1Nu#~$2^nJn57-T(;t$)?8K7} zw1Pt6%&8MxO}3&45quddFs^4EblVko32ab z+<`w1LzKHOcWCv)1dfek#@^y%M_m&$g0b-d8M59+KLjQSqZa>id~(QgY&Rp(?IGHe zbk9=XHn-VsBNoaKY>yEOV^phLWRU0p>nG+vu-mvG8QUkQ}sbl&H-k`dpjXrL9ZQFWTRF#0lOY2o3cc0QJs+< zV8TERwhI^#@$PA-+aaA|m!O_#*MHN{VVs#vcqU91>h!r8?W&}EkX;wTHXSW7zg=fZ zY#%VX`0yaSONIqDPs9849>`Pd*h|J!>0~t8D*{+1BsZ%DWD@z8xi3D$mx0fR0rMyb zaA9pl89}Af;ntFDA(tS?F4?&7@80m1nJq>j57BNW{!7D{r#8$Mm?UyziD|cST6DaM zKu>{#z;21tvC#J`Xh_PD)O8KjxCKSDwKmyoM~a1pN@(Sxhd56k11(FRYzuT7r98FP zAvS$pk%YPkI;f`!1-~h9VZls%fJ32ReWO>!DB?hM(k20)fV70il5G~!T@e7tbT9Ur zp{{d*l?j=?ao2(8W?0z+y`A{UmO*v(5pxJXHY!ZDhwY+9AX@U;(xM?Nv++L3lNlLU zy1MYoUwzG-KVMzOd+Ba#q}y8?YNscLI5synRz7`n7tH6TM(3x;*ze1WvwZj~bCc$I z^0Sj8cWz#1$XuQtC)aJkG_{|0-MGGX@9s@*%-rlKQS|7Vu^wm6x*7+_h+Q z=xBA#HCAFf)Wf(&mh&EZ4WP9(uz&hwp^mZ|SoPjka0mz_q7sOORMByz zDm;3*gg$bQJpix|@3Ltct13O?m9!(xsqVX+U`U`V6uiqC+Rzorft^q{4+2iS=;&b_ zuw1dFfI!z^avJRrG%||AjY-L$HpNZ}&ZhyvWVRg(6(WA6%q46Q$oFQBEsQ9{Xns{9 zFgI|<#?4E7YK4vh2>e0bPZ^jF8^m(3Uv53L1m|(va?)CT0q}D+OY)2*4&I*E~Z`3qc%#qJ&hs5 zxs9GMPzdjM$c-o9yM1%5GpOFv{uWjqWKTv1~bfkfrwVeb_&W*%BDbi65%wk74s4$0rK03$Tu?-vt6+0g;~mAWL;BW zk1BlXWJC~#J{R)sn?73H65BJqqb&oMn8V=jq8At9i3IGjsr5&gboy*4l+{$0qB=#5 z;h|$gm50d#Ciuf8U?~vQ&WM39GSu%Y);N!iFa_yp(8wOPc_{YYuH~x>zQr-vAHxo4 zS>VMZIU8qUe0X_jk$N}u0lBWZ+t%=Zj(dLv3iH-Hj9XXH zkRN10sVlqfRC(_q?bJ~n4Wg=iWM^_~(8I!^hWzQfC_+Y$DHykw!2 zGW=)J^_l#(CfSkWA*5p_jWc8Qto)rqp3gIx?QNIp$o0&2zxpXBXPU~d2-MGncP=0= z`7@ua)3h+N-L73#7vGEnbCI2+t7l1+I6wWV+p%w#C`xxHhEQOwi+Qx<{hjYP&R640 z*{?&o08};$TZSs&Au#I{{qflNep4D9)N+zOjaePuySk({Ab9tX3#4KFaoypaZWrGU zM5s={2k;Z#i4)2^OLr}*;$rA?&o&G)-b1~&Hsd>_OQM#Id*$;?c%G0R-v%<12QBO) ziK)jlD2j+0aW&drM}`I^cFxG~(8L(LPv$hE>(kUEO&%`#WkHqm)2xv3QQT1%;GFnc zT*j}W!8~vQh?YWpY0n^BTg<4umFk$2;+QThRpSsSX9TvjQ_2JIAhVhB#6S}lll!h)ZB>oG@ za#VNm0}FhZ^f742((0OJCt@fCnB)>`0^cP*65SqJeOBEk>=WFc7#;N0QzuQFljRXZ z*xoF995#h7((H^6irtD<2lLtKi7N|pOIPM4joS|&-iy|UuJ-x4sl|oa&%by&IblHk zFrIytqPs(YOyz<$*6|_6%f{-`*IzwDcvi~V(q$y?Zf%qXyW5eP6*DL>W^#mSv$niQ zx3l?mOC3xR?3#M-+`e&jaqi}g>tVKccdTB!%6s7#NzR(&CfZ4N=W966UUBZ zuybI*Ttq!bJuS)ROt3v;(~Qy(KLJ@ZX@^Ljs0Ku@f$+5$;^-QG#&=1uT~dH*EfoO6 zkP*401owd`<)*4F@5TL+A*`Mgh2kXTbhFjJY^afM-_+nfdS8?dbd+}%)w!L(PHQP* zRJ%M0q}SOK#mK4KzWxz>8}Bt15$#@T@2OZI?-c?p*R%TXanJ(MiB%9(9=ZdX(IH0=nv3upHmH1aJoq<8g=s4!ND>6Z1b&e zeQWJ~SNDIBIQN6_)9^3l-~ap04}NgjzjuDn8xH^A$lu#9{UG`m9q`fL*W1<!x<8vxmoR}zNGv!8YIx&{$ z>gq{Orc1?2Pf!2g;7C539~m0z?&xT5ZSCpm>S*t3ZEYJJ8t(7yYin)m>FU0E?tHH9DS@1L5O932|EcI8S}M@LtC``FM>e^1Ya^A|2& zyqFjnDHrnos-TKHHazSBiIL&)u~Dx)IXRh0r@Fej5@TaS1A~JD16`e69(wg!YhVAs z*u;2pD%sQ9d-?K}uFg=tt5+^xx^&5}7cQJ{Z@qS@rKPjILyuq8~fa6<04^YB}%SE?hW!_FQ{gTOu)f>GGBHEf=p|zHAG{yL9P_B3`~6?iKCC z_jFr-zjpP?xpU{vpFgiuW5Xk3qhqB)pc>fB(VV zdynovhM@Bk(dpbKhJ6qeXv|Q3SEtju^TDW?x+uKJ+hY#-E%cL^BJv}qc z=HBkE{posrw%J@;UK$=5R@&aaUc;@Yx2IIh*J~AxI5joV+t)L!>w2rc-ih(Ck&)q^ zzP?;GH`AO+r!x6`eqdm5cw}^RbgaFzvtF+)FD>bxlM@pL*p<-6hC}~EVtjOXq*1Sr zkB=u338!CeZJV4*Zf7^#QjrMi3iN~O}|lzPoLSglqyXth?&=Ca$H8+UFUuPiRCEG-=0ys@>ml1n8=2Ky(+ zMhlq~l*mjab^gA-?jhr|Urls-slL7**fKcK=YXxVz5U#U^C!nQUw-uA%F5E_rY^HK zJ2zXa*F3ILDK9L{dm~-i0D)I}tWOPLn(-?TsIQ{Y7#j(Qd3kuGTQjd>DcHoelEnau+UMP>aP}wqC6i zi-l^XY{y=;Qu4n_rBnuhrDCmGnVGI9CnoaQjC1n&Tp^b+Hg%e-y6=Sx?hZd8PikVk zkb#6_`pnY8T&-Lh9UkiG?j9Z+;m;p;K$J5U_wRp_j+Fg zr>k$E9j^H7>be3wy1R{>b1j$JIy<|1doBZ_D_8Ygom@{g;$79-+cPnq0FSC2uIWp< zLwI6;-_X#2s)OsfY&w_AluL!_dUd8zt5?c!$Y^W3*51?A*W2UV;l94%_V%7@t)1Q7 zgJUDfiSbNwB0D*evon=c0mW2G$Cz21Ur9}6+S)sGn`|a`t*x`GyRT7e!1ilbuC-pd z3bA2(Pj}DIfaec&cXq4(3l}bifvn7zF8g#s+&YR68GyE$VF>)HN{9OU419fHbZ{^L zSxXCGuNI5STrCyL#e&v!PES`SNSL3SF$7fI&@g)hB>bgMRkvMhYj5uyG6+XTCzDAd zQFSR>XFL0H=|amz1%O4ZSFX5!1Tr0M*RGBX^o|Y=j1Kl|5oWWeyA!sf9u_dmsUJCHm)E1VUu9rpME(SSTLHp-TqzxW-t z!*Bi5O~P1@Hka61qb}{ZPUwkFdGE|Q*se}y8jYFh>9v)W-R+&@!=sa1x9*(WzJK@L z!}|~J+&Y2nj~+a{cjwOSTeo6h2VAiI_Q}cNjT<2S=bNcy&pUDYkIH#AV(gsRLdl(uX5h}l><;=Nr@4k0N-D;7u=gukqyJybm^g5V= zI&mtQJUl%7e4|kZp?lY_ClV7| zo13XrW_WZAeE0MZ%*@WEGMR~Fa(-@(jYe-&qpOOg()4tbb!awcpbD7&<3IYNm(M?J zHtHLzE9=Wk-U5ypKgC?S5$(6NT{8p>HMP|fA%(te6tn>9)@!}podXfPzx&>MTk9)d zeDPVKR9NwbE6dH9W@EZhsaEFZ=N9JY5{WSl;o3e#u(xM$pdWF}F_u%wOmZ@tnw%IN z!IaX;iKW@*Y@>Gn_VG`?{qleOAO7Rs*80VZ=cgvdKH+A>fPGgw!dbkSz5552HT*4(pi?(gEy>PLTv z4(iiQ#wW(NcXk$6)|NLm7gkrZ`NGoDa2W%|`!OpHMA$xsa$!U1^b~eC-<*b!9t|qHI&>wKJpkBopDWie_QA2y z$q9@-p-}98J~f2^;Dptg>A6a&j-u;$HlD!f$XK_|G&q798>zZLzh2?+Z*A_3iBJ1Eg(jJ_q`G&zw11V}Faqh31SN z$UL#9DjaV&fMG(hSXx_KV|i7wpYHDNFu2+R~HK(CGfO5 zkFJ%=sMp@^4#a-)`0@Ksp8^w~_Mbj^^5oIuCyyS1dPE(F=ECBwq7cK%rlnHxBe!6j-zP?1lfE&l*S%mZK$)!tR=j?^^ydVg#w9L?NR0oFGh*UIm_XdI;jwtd*DNXFmP-qyPM$|I>$0AMmVkyXzaP z4{jZP{_4fi{;u*E{%{XyfCxhZ;jx7tb>)g-s5}N5+rj#)fbFeKoCko>gk3pw#Q3#)AdDAJw7OdIl zuya7}+&c8B^&x|S!49P-$AOZ{?;qx$Obm{Ub@dGBO`VzGb|izvNQ{lQwG&GKZ!aGwIX*#I86QvP^Cd1PAjQ3G0ngjo zby+G=Pgl=iU?BKRYjS*CQPG}}!6Eq9Z!GrqcC@wsLrJ0{QFRQixb~P%ELTg7a&P+k zr)xExilJ=QtB&gxC_Bt+@95&W2mUrOq1=?5@81&;&Cbjk^SE4Jceg$OX7PLNh(}&C zz**{R_(_+}F+9-AR8Nk$7h7+F#N+0KKSUxi;too@a|Weoe!Qpd;a{xr;i`o0qhP!_{R?)!hhSH zJ9nNweG1_h78Yu?TB%f`RNTLJ53qBzYxVl->T0=CIl6h1E}_`o2WSTo;VP#%=v)`h zQm#=%HAvZHm%o~%g_n9`9wKCLqjA8m;{<8r&2ToBm&|=r~Uo? z#l%LB)b-(h+Jh&_{G?yL=_UyHDpZ5MHw7$|Y~*MSY$-D2<4%_bq} z+i$-4o4@(@H}|iDxJI>%x6d}}vyCeLtR8xMffeNhG6fIZj$Wz`Rh^zj4d|s+>h|qz zI(@B_|M=C5{r$bAm6d~o18zk{DXSG~()`>kP~wFem4KJXGc?eTn1SdR*a;WI1AQZd z0~2E-`E+t~W%0+~eDTSv=f(zpRmdb?K6~{0U;pqYUwl?Cc!~5e0E2F#^fm*3>;u#DcnjS6_3a; zF*XY1A-3TL$(a?x_teCADW8Ky>V(&c73f!_q{D+E!YwKfA9 zT6A@@5k^3#t+y8t_76q$n1^+~5e15=@sM}`0oXkb*9-Q)EN;$mpZjs-`in))fjT?hA;(l z^9d!@yv=xosoV!$bO^SO4owj_BUvWKcJQuQdE8!1Q(}EE+&+A=8P_q$+mDER@Ce*g zCy5z&H0pyMh_nZIzj%>J5AOx$B5cQa-H@Z81r-K*sID-GQ1swqhD}4;7?k*-9^uST zD)k-Ixyzu2jkvzE{ps7c&z?So?a!V)gV+EZ+S_^k>Q%fwix@jp$LC)>e-88QIQa7A z%W(4J$FvAS7K2E=r_a!8D7y3EX91IMG#Vo#Bdk|2O%W%z6N*b&H>4un=@i@HU|h*6 zg!<$p@1o3%qxuYbVg&E79eim)tQ+NoKY?rJ@@g5{Q*Kw+*PF9*gz8KxQZB_b}7MYy!H zwS}nb9~XfJFB@%jYUr=MNGBu0gt0`KOnPN$8COqEO<}wO4Lld*o8Acdoj`ThKbSn& z&WDIo_U48q}keLUv_- z=H}k^>cT8Y?CxyG*l+G^ynO%RfA=?k{rT$`v$cv*;BupNVssQ$Q$(X18oN1{+)fyl zSFUjOfdnCaeRbu=-X0ZPffR{_Z8U0py;`-bV1OO$3q;z0za!YZp~YX&M5+Qn!I`k5 z@Ph-vyUFJq;dEq!LPGu@Q#1amR}-e5KDwXJrcuJ+j|nD*&Tu|ZJHft=PD-ZD5HP-j zP+%0W>Cui->oz1x<3i8zC#>WA#S5r~SJqYN%_51}5cZl(rD!0%6Jx=D(Nc=aGD5`| z{mQw_vj_L${nl$-V?N(VQ2m8oSR%GWxAQ?C3nafAhXu&G<46G2VZP&dBH3)tmn&@F z3@Yv%=B&FLZU=}5>u%zp%VAXjrSL{q2X)b|PA81$CEp|1|NH;;zy9Kn|1d5OBv))6 zqKkB%0F^B*6C=2EC|i)*LV3Eq6u-<1^HcZ{Dl@*^XZ&`@``1s8cxdn+Ssg`>G#{Tcs1dh;jO#q<$Nuw~Y$PA2)pf>=%fgfDN zNH7P&0kI=&hkmpSRpF(WmdUVv?c1B1$A^amuDQASTCLuUp#0{+f!HE(#&7Tw10?^Ji-l9J?)?BB*)1p%5w>eD zjNNB=#lYlS&YeA{DUFn1AS27Df9clZj6rWeY}70*VtfKADHKbEQh97*LZA~VEmcaJ z+dH{piM$qKsVcp@d$u`Ef#l|(QiXh;Cp$Wppkwge5Ju)6+NRQ}(Xlajc=r57ml)B= zs&i7Qlo&j^1!=v-nX~6vQ-uiy>+CR&H06a$q?`8O?Y9PZi6IWI$fXvorZbEuMjh1X zp~)^^@=glnZn~tam=8DPg>`p#Ub=FLN1_7x)ObGQ0@P7EVvI{X&K=IutS(AHk}OiCNfx~BZKIv zLZVVZ1W@7t_25Aaaaim=fK_L^(XAeZsI;t;NrIkOtJO53CfMBASXo}CdZ;M-h}-BZ)8s&!twiEi|WT6S}LhZ&bRQ_jfC5h;R;dj$q||DOV92?+y$z3b_`tse30! zuU~xNy^IJ(j8dVXI3y(H{rDUZQ4*nGjY4@fCQYDS|Ix3!vQM?j4KdOYNbhI>=`(D~ z)Z{qsM}biQtuP_p%)ot*zJ7oIfBNtLqb)uHA!%UW|LZ@y56tuVYN6CfjDBY<{^?7+ z4Y2wr&iS|h`Y-;k|MUMiJpme$P4xZH*?!9_{I=sD{XhLL|MUO-U;fMg^I!k#-~Zj; z{Eof(4pIP!X`zMHGn0b&1&h=hP+ht7s(|pJD}@Xhq&*-lsMSuvQiIz-^Zcsy zY;X_IA&QPTiMJkLpD=V@;3nv49RKgIJx20~t4AgyqU)~lUjX_5?@WMCrNi@sIS5p< zMPVL2eDJ{s&&VyX9VPeq{*xffz;=p_lo(tcwmb6b)R>d5?hVUd<>oQUakO zWC`JQ1#1Y_j7LlWvfE&L0LPx5@d?2tVtbmNfZc*+F|f7u)y?g#VH7Vw!l+lhboDCr z=bd-oJ$o_8-DEiuj^c6RLiC}nooC^;a6X+*F~;XE7(1<)H0$7v3WY+j0^{RoTccV% zym6CVV?80frOnz*9qFS$mSw=H3|Nedz>%v7r ztC{JljEZt$Yhx8-PfsS$W@rX8fS7n2LJD~SADRf&^?WbF-5~Pn4=NDI^GoGN^>uYm zj*f-_-g+&c&k+J=W@f2C`p@3pUa4Fr;^_ShXUI2*C}ST|U0CXE1_X8y-s_iCqeQ5Gxu+?cn8`}?YR;np$0Ov2YY~>3hM|%faN+47__5t zq4|t@M*?Yw2?5RnR}Zcxzk-+_xiChD%K?bZnXHKp<0;{Jk|nQPp`X9{=%b*nJhA%# zYT4o}$H$KzIYf;C?e?Y0yu|6BKgaw8*BaB)4Q#M_{7*aEj+cdwB&)H8;mOrz7eIsM9?0^6mfM(AFw?-C)mHMAr8eJ!8fmC4C>NQ z9SBn-#1K(;IgpS=!X8b=;D^6kJ6m(}3)Olvgquc2>7rwa1k9JNqnglN3OK<{Vvpo3 zCv?a?8y=A*G1HuZg;F{}C9ccY0RGet#1g}oH_W5uh9B(hJ-UB?aem(I6v)sa^9Da&R3iRlTML(vbh)Y!Bk|J)U1KpSaO zY=K;(WesjU!{c7Re5oX4ukPM{_1iZvSgY0PD*0l;=ljo|$$rTd3i}5Khlhvo|KJ9t zVINMHD%H)+ZCo90;pnUDYp6PGXB>s3y)S@KClW6OTaS*8D0P&ayhvg$8yuNQy0Ju+ z@u^98K3*yL3*wow1tC|eXLq;$E&e+y-sXHM6sajHx;ORiJRL(K$T*$auoLazPhH>H z;Taw5U0+^Y0Ft`6F3Q+>Yd#CZ0p27%Vyy-^UB{>jdaekUWXmAD_m2$^+KBLEpTVB4 zr}u8HH0#oZi*;}hI+%7`URVg)P&GtL7Z>J* zu<4DGl)Rh95<%vEN&$^I{4BS$*(A|$4us2zA?TU9K)*q=bj=XB#2!Y5$;GkKD4~eo z;q{rSrMa0$_ivvZ9!U0JGF+v%b1UcxNV`(u3}g`E22t7w@T+Qx=vyFd`insXJ*4v4 zH(0z%2xYZiW3%9o2Sau$khfz`PSFg${oYq!0&}17K>!H)XcxBA)8L`w@X+Vl!kpvI z2f6XSPwe{i4(VjNTB^j?x_^8(zuJ#4x8vH=^W!t)M>y_QF8S=$NAYnxo_l(7)U33V ze~7d?A*SM|?#6E`n=}2%gW`KChLU@t9nVq;o*O^ZX{UGlZ|@(Uqsy_I>K4J&Hg*BH zj_OyDV@CoTxfU`C2yWa$|9mQW#M_bCOIi-j!Em@OB^}_|5Nv(kkpTG8x7u2@U;yVR zyG(-ucKScTh@%;q_x4~#eofkAc#j|FxxsK;y6AGL-N-pz9eRHl^!7)Bq4)0IwLNZtU&vqlhyzGwHM$4U^IlX&P&5t3oc~l7>jJ7}Ayb z{*)OmIyN3LR++iiJeS%ZBRQsSCst$PBS^b5)t@2mO?|3HRjPM$@X1~X4Kca9x5qFQ z70u>zDFQ)y>gMrbI-gqz31idZfFV3rDd+O})zy{VUE;$5Nm&A?pn#PAdM&6KoQ}^w z|Dm^L(Y!iE>hm9daqHGC={>xXO0Aa3=K6({#>Y{2(II96bhEPf|2yx5s0CXkWE7f~ zn>IKo01Dz%g{I{QaNS)9&v8Q7D7YEHV8~JQE70I6003G10Ny)l6q*6OkNl%qL!(Cu zo~M9ESGgyD0pq2LH=9isER)O6&o4+~m)5v{u>bJkqrLruQn}iknXA?s`}+qcC$|r7 z-ZW+5^~Y}xZrlX&Po6v#JKsClhwX%Sy1F-Yht`fR&d&Lk%gouy@vX1E`daH_@*#eJ zCU%Ol(M`MHQz4rsCIAI&mN4gWZ0@4ojg(<3Or?C9+xr&Qv=n@2|*)k@xk znvRZSB4iWNYShEd);erI+`lf#h@rvoz3T+7A7Q&vQEzng$ev4?4oMeSTL|(*qa!AD zj-yPD+w>MxjgitocHGT_)V9y>peaH#$aX4I05N|8zcvRU9+-6m7(!PY=!2p*km#?D z#FxCGux5aX1z z$Hh=2r=4E)+sdZ25Zh_7El>=v=7}++pI+{{r#Sx`?;jUT{|io(o}?cR>P`-XSVZVS z5`1Nm@*zW%vrYF7TY&fw5CQ3dlt(&AP-nh}oYipW zXfUzo?b@Bm2!C~yLBDp@Q{pXp5V<$#bx$8XBDPRtBsU6|qV9LYbfw$jNc02!;JHs> z(~u8|$v=B0yZgiyq&=RNNh`3k`?58^_E z=RuYE^(J`ghhpPBmD#A)OVt~`7u?&SK_eaG3XDxmCz#H@SVbw8i(CVkU9FbU#rqE* zprGP|eEh>hn0Eih&6{v+ePexfZOuN`y0x{nu((*Q*B(83L~_D)3&o<(SFc_XoJq}w zc&S{$d%ODw%nyN4-pHdx2WdgsY{u|hUL<=^ES3r;{-iTN493mQ&aA8~JK}umy~v95 z4c?&G3!+J#>hCx62wvg&w(*GshL6P>m5i77mH8*1=hC$+W-qk1x3c{<*_v(`G^kVt z6rDYHfz#0h-*fXOxiqF{cq?Rc{QUUVEdV~huypVK!|PD~#?AMieXzZ|yRfu$=kDDg zwl`L*+TiEb+^?>&}sNMv12`7v-0;CPWHIj_6YhrVn9F)qT z9`I4mV$QU(KLx|y7xF4at5J7@$OsBNiaG2FF*UOgrBFlo*;?5=Owy;syJ99KXv@El zm?^HSA4boVy2gw|d22ieiEtM#dgA8Vnh-YM4WtK*Um~#2EG;bZYPhZk`+MxE=BCf+ z($3^=_?1H{8&-FH@63BVWjmrQShoZf%$kDd(P0TBF*HF-5C=kmZH(Sf&c1_o90AKVC&zdg@B4H@jO|W4#dg3L1Gw`?hQ}(E zM*I|K#+d1bF_y+RbQ4G7b9}n3(_#R3NnEh_ub$#hz&8F>C>EhTz0jHd>JmplbZiln zoa65K8}IKpMuA<7ne8jCI!M1A!#YAY4p{<$#&fFy zd_deNiA9rv3)EfLg2^CPC`7mQSAZATb<0I?hq*&$2Q?ykkH(9;xsavSrjF~XZVKAn z*?mHiS)|fLP48fcFWchBDUx5#oj>P3`Va5^&Bq@1nz&qlUC! z-@DG&SX^3S0(N$H&F<^y=?!U!eSIV*r`g*I8%bcRKMiYn^$>yI

    c68wFjG+8ZG8xz=2 zdJqR>Xe2>1BLxo+kCMeCnb24yF{U!P<(0LKjcxODk56vf);G7;);AwLehSrZoty|j zy#K)mOqEv?NKI$5s*l^n7AvP)LHJxQ&l)z+*NqKHi42cYWilBq4ATbZp?5l!(gf1% z#WjLeA|H$nkC|AM&oPv0a%N_>QmLlWX{8m^mbG53Rcg_6+H$$fKrjg`^uhJrW}}Ah zpx-(?O9z?&V|r>5(D8#9xzNytO-NYk)7Io5NF}Ohd__ad6?BLo%Se^Q_!U0Rx-<;t1$rnb31E;n#u!v`L?IKV@CydkZSell(#$XuP*oWxNL6w+sdW@@%y?}{46JXZd@>>@{Vzl;xgO+jrWhw;r~JP z5ce4x7#<0JmZpl?GK7yvdYH8up!k%hMOhO#Dy$Bv5mB;YM6JVoSPU2FX+(WeBiad~ z?Bz?$0UPb05fNj%Mt9o~t93L8bHRzTg|o=(ochSZc#!>|gTVH|0XdK#zXtFxVR%qr z9z8O338W*mc4AFNDm%b`Cfyy%JMY=E7au-<^YL4nhADE^Xn-w^2JK}&hIE65oQ|tY z*EEmU@PX&_eTE3UdvXwiqAm&E&oeX5J0IpTMM+L!7H!PXP#WSTNQdE&kOC8BKZa2c z0SMs60_tw~EX~ieARPV=K72CWtZ#z9t*u&P8cjVqzO}ivO;X<4**&;<7!(^|J~IOq zrH-83zWwUeYd*;5pZ(AdZ2$DL&tH7>^6>D;CCt{b;K8k1Zl?rYlMd=-rL%jB>w9~vtE-2H+^O(WuQwPYt<2$4uyiIfIT`qQ z(bT_cMXjoHf*W~FVGxvDE~mm(evnWa^|`s(#l?kM1EklcXPT5TCRJ(;`ku;W3Z-J2 zcS931FIbjKArIRw$Z;iU)ASpNF1x&#Z7nw@YNXjJ<e4)EORch@JRJcV z8$N@Efp^Bsh-Qy?H>?=`2i`fhfxCrOG6F&30LMF=B|iqG-=9gK}d z472e$KK)f0+&tdmzrtR>#sxU#`H+n#6JHqLO2JOc2Dg7(*-i`T=FWF>_jG^z@sZOa z#kV~z>OZ=F{OC9nDuhcYfumunFS-Fv17o*1L~ls$WpK3(g3Wb`We3z9{`(bOKXdjh ztp@UIIlltEm|7SJnle~w>PD1D7XUn((;75`*j~7C1ndAm3fNMIBczYA@BA_N2od22 z?4mzf|E;W-H*ep6{~6(hIuQ{5=~EjK-XDAdbHD1_us!~H{^9c%AHI0|=9AAq{{oGC z^!V|QzWvem#s0!ojt3+fpH-uQ))$g6+2`AN!OL8LtC~4L6qwlk&b}!7Xp2{ z7>tnV8|`f@Bjcr$i$~eys8C}hIdD20_X@#+4h#Txo-cJ2)$w*u9#V-;R#uk^j`uO9wKmDm$^*{UOn;+Xg`SkNo zKmXwmzxeX)C!c=%dht<^m`ww|K;+Vx!nNE)LWBY8PydzmgP!e>5-^2vON+Rd-Jt^3X8$HDP zqI}I}v$Lm{n?PTpqPy81A?D`M-u?|ZKQp&rn_F1I;=TU*=GNx+_SVieab|9Q9$a!F zJOULzxpj+yAk=fd*cADbqNRAU2NC+s_TpJErZ5L}h_!UJjY4aOBVNQI-JY$uP70ct zn>8&T2&+%Pu_p>*t|zw6{s2aIK0 z%lW_fv!AWZHwh+sAf5x#k$hc+QsI)I`o zVahBlB|pmFZXF%T`vv&7PWVG7su8wJgS-%uyRNWPK|&lGMa4y9br24m7nhq4*h&3n zANbXexcuhY^2&nA`vvvPAc*^Wp%8W@u^!HAoN(T zuY(1H9);4w|3iS)^cOJi6!;o&l)VTfKg_Yc_}+W(p#~8X|M20XM^OEvk3M?y<_-BB zo=a$tG9Ewq^pj6szk2=l&D&2u{S?@J@x_;)MHDxL9Y6d0SHJr6pZ@d@7iMQAUBC0r zy9y^Y*<36ef?;2NC%EmxJma`lpp-{2_`F`;0PrE~^>UrkWHl5c817 zrLzNr!GFMZ4qy-m#t4<@I)Q0re)i<}#`f0w+&uJ}+W>1@+pBBq@&Kvpury?atZ$f) zX|UOVPav5jgK7=Oe)9M!YxUV@Uwr=A7mS^VB=?24g5OF9!q#?ocE}l^HAX@_HYxpm z3a=i*-VtuuA=z93bXyD$q`&@HJi_JRcO8Gm@9y4v;6dOW@_R0k+SGE4j*TFmUu)}d zt3t7)Y#?`MdpDn#dzmmTksc*uk8UsHsul%3`AVzn8}}YO+>yt)xy5kYy?g(om#@M5 z?EHd1i8m~-tRCMw0sJ;^y08@T+YxnlFy~8Rq$y7dpchiq*{qS#G2Uh*d8yh+81XoO zlNhJHi_n80Z(S(lE$_8rafxuld5j(Q$$f<0%xKNBF!dUoDw()yM-B*Cre2d_Bfd(q zW9 zmRt(Ge*M11AOqpB}_BVHsEr)5<6_yk)_QdgZ$)CmaKtr+|El?RH|`4h-!$Erw#4 z3DW>CR6IQxgCSsq+dgB^#lH{#G|=`Stlv_HM)Di_BLk)VD}MWdzk#_UU(9Y@$S3tD&Z%eeDd+f5dH1T zm#<#G{`ix(pM3rGH=lj>IXwUHgAYG?@zJ;6{s^Qy!I3u~zxm-0zx>*fFTZ;BEG$i6 zEMOKyb+#m$EY=OuiGXYgE)h}pkjw+ymE0EX1RE0^3Y``H6KjGw2>CM(hM>ZgE2i)9 zDVQOHotd+5Q%eer$B3n>G*vt`l{EBFO@s9K;QIQ?;`QAS3Y?j>yv-t|2&B;>1Pt!q ze{gbgduw}#P=oYJ_Fh?Ah4TnJ@=T5S`m1k#{NvyI=9?e=dK!!O3HVL2f>q5B< zQepVr`wzAx|D4>W)}%677dzN!&T>dT`0xdH?D+Wj=FOXfBO}728H<3GiU0~Y&(6*Y z77vdmXiRcG(S_Ew4%(5D0CunG#aV%nveVN;+cOIwfMI{Xcpus?>MBT4i2xk16OsHn zqq-ufw|0${SWKCbW>P5Toj_lbF0wE;lg(xb*szj0HZDMJ2ogonBDNnK>7qKZ5n>gT zoP5iaB$+Um6K)$#Y(2~jKtE}wPZ(m%y-oLk>~`>QvP@W%tf%Yd^{wlhE4H~tMP~~u zf<&36Y{;cBK{Bl0g*MRmj2%5xmzCY;KC5sy&Ia zyF1$^4$Jrzej?OZ58|D7-XT6BSs}kAjQ5bhkCG@b;vJ>OOr=6BHLY|u2Eeo{tBHkl zn#m+Qmm~w*!x90Rv0(!)&NI3 zTR^S0R&C;hLF6k;4!z2^qWHzAuFnBxP^hKwc90IesTia*;t4XW5pj2)-)(VToP3aDXzrv$G?U zgor_fxOeaV;o%Xn-Ot*(K+~$w5~uZn5Z$w9xXZ%)JYNAD53%ErSQaJ`qvKH_!xT=# z6ugHeQlNcA=6{X(L0Q7s1EiZ(4bm-`z!*gel2NZ(NHL1%)oh^xTSLB_pHnwSZV91M zHx`{V)=v)i5B7J=i-*n|0?mv9Af8&OQT$^(< zaz*6wgBsCf?#WMo`qQ8P{1<=nCx1eEI@sS2{M?G5l8R*`aE&Zg*Jh~)vw}t#vKA99 z&H5Y|5I7F<)MsCKiabMBSw%0hRnmU^xE?BqIEq`-;FIY|K`I-54U%Og?H9BHZ0G1a{CT-i4TCQW9ER}BRDF= zf1ICv;Su=srnUOCfbz!12DwsIX%|l zk+54Xl>|oZt8ySp4}&}*<560Br7ZDV`D^v6G{BNnkZeXcTb_sMse-?0>I3>}woYQy z4)Fx#&Sz4>drJ%R|Kacdp3nhZ;S{Pvat}I*bsB^B8CLHBiPkU7W>fCqiKgL%)IihZ z$H!#phyqygDh6|Yv4xSd8EH8*_>_>T1rR7R1|t)7b7!-Vnw+1m-rB!D>>c9u!-L@2 z!8?%SU^PcxiKKAPg~=A7l}v7x03wgYUL>xYf^>a*%UWUHcW-A0bqD6xxp3QC8*3}` zb2D-vnE>1ye>r1f+WGT=odg0OuS*OK!g464JY}aQEBUOIkTGybRkBuaAzRL8V7t17 z;nDoBq{MhnR%yk2KFCv6Ff&~`%&zLS&nSpQv#gvToQlEnT#q9L7!DAFOKMf&xn@J* z*}ko{Rr0&qu*I+zNCEf`@5ls#*aq79XTzYbK=w70jgMmExwgck9MJ(+hXU! znZL1Y4l2LXVvu*CGad0z_wnghfAX4272oPN-rqr!1Wd=K`{{&HlqV=MtacDvs3;bl zV{$trE8^Gu(C{m~!lFYSWVFh(zQGF1jB&nW8V&~1+e7>`a>Ib69r&y_`kP;4Y{$&q zLK%EU=UCl25N7RebBSB{zk`t9uX+VxTt5*r4XcZ+t*@+!>&@F2WV9n_C+t`(SEvmR zn!PALL<$52TQWv!Rc&dLgal9hr4j9fXDS=-Co`>QqczoD$ zi5G4D;;-QXo=8Xs3X5JE9bxJR7bvW?9@5Kv%Jen-kQZ_*>JEg|v5k*HyE>h{!m7O^oR$a4l(boDJu1bHOY0iB0)i;VEGs09L z-pwz5^=DgKn}UyUPqGa~;>$0;1Q4EOA{Cx2QJ>QS*rn)&CQ`}m-JSWRMPB;Y z-@7;f}x4)mxX5}%8IXYo)Zx3D0WOMub2j-|2i{QDE z$z-i6D6WsCFDxul-YCfw{wI&0+`V&GKwKD|K}YYEoZzoQl)O+V$Ytf`QE8Y?-r3EA zeRYnhKw25yQUS4bG46n~ENrQ02b42~C^tJOn51XwrM6(WuU#!=Q=pzy|K%575-ZRQ zDk6>{x@oSyQ9vwbK_Qsrd9#frn~+-Ya|(z2b~<(@(ApdWGdVV<(-~R*7=x$eN=q7> zImE3)33vpuBBv`wLsIh0&E0M7Me$*zxqRJWMez{GV1jh9D2x+`p#tcG8rKwS4x7%W zt(WHKmgeVI78gl0KBa3S_7l9Mvf&`k+l3~t9o#zfi0pn+iXyK=4a&Ogarqz{6m%j3pPLpZ%;89nnAhvPru7& zDs6$vQPMuM7~cnGx^oQgr^e!Uc?7qP^*6KPce%;$axG3iIYt&6G@pX=7+gq}Om?s} zB%>@xDmPFHIgbI}!-50YsV?d>=AwoG4EJMdJmL-90?ocGVKBrUVPcRlXx92;8~X~`SwKG0WG>tPHLAy@ zh!Fleh!5EAXbkf160!HdMr@>)xEg~q+TU+XhNW=YLt?YaF%tQqWJXz(CF>oT3Ucch zzG2JTJ3BZz$wlf0r2=q^rFtzdOKBlB1M~U$g+i%3I5H|3QV@{VEq?=pH5(tu%S%Sd z2r*U^85q#4&_zz`qzs*GCW{Vjudi^JqkzaogIcUXqK^NI3IIT2!8tRCFSQU57$A(8 zC4zVq2`e;8s3Ye_sNRc(iYQ2{AP;a508^LMu_ni%2BjJkmg;ij#sL`z^FO$8Xgj)f zGQYSax4jCA3&m6>qiNXUR5ok&6jSy1@nfW#;L~VK6Mw`SM0gowVZc|fK3-d0lVp8- zWbW`Gq{TyP^}2JY@k|_l4WB3DAodVm6qNyzp+^wb1bUrbU5Hk~=W$3S%;j@4vt<4d zab*1q#e#PXD$~%A-UW6zraBi6kIP8Pq2v6i9`9lID?KAP?bL0x?wrK1i?R(!Mvxc&rq1Fi_7i zRe*D8$Wd{kDYIeLFi8Z+vs~-~d&HX{Sx0f4ywHs~O^X(60OitwEEm?OnZ9JxJvc&Q zsoPsygnH`?oIP_^SV9SK5+p!5Av0)|C~BWcA_2*d4B}fzdMq^SR!WHUK4#LJgw-3u z?9>oA2;VEAoTk&tezayqFKlPCgk6foqAp7G^_oClu~jznYMEc%jOwKZtUpEtQYXZA zH;!Qqs>9ouvN{6WQP$rD@mxzvqT_LQh?A$OEO@e~py&|(lzaa!55jhtONK1&Ex*gH zT#KcjR>HsVR!}`&@7KigAgvSIM@ItljMCku>oRP5IvUDtq``oAvzd6QTF?fZVLLzz zOTJ#bV3w1E0TrV-V?g(o;C#iP2i`%2?h321S%QHRb6zS>iJF7dg2js7E5`g#=5Qded3#2^%>lpKf$;h^ zkeA;qAcbFfUA4&|!T@f#>f-ZScInp9A!K88aP?RcDVC*wD|H3GtyHVTB@t2xMxbcU z%t~Ts2!i}RKfk|kO8$b&fj>x;)Bs#eV>!NgI67?Ir(!nE?XN_0aWc1$kFRfSt}KwG zeE$gDGh}pLidOVJOa8oQ1$Y+gVzA7Yc}&6Y@-lY3h>i1xm04ebi=zn`DIl=CFjo|6 z^wl{NX4D3iBS$s$MHuU=3`9Deg4lHRh2@p?t?k{t{oqwqstKr;&eCV*mzJ4h=o-go zCGga1zJq2=_*ded7Z*pCv%2i^^$p@1>P{fHBoM!h1m{=J8yp^`@MG@)9|GUId-wVC z=U6>6!4eVSLAL%}E*C{2M3NnpAQMbsNRknu&ZW{RW#og$Yp> zh#VToWmB?57zU%mcLi1RS^7+rLhozN!WUGrufh52>;ke%D25`PRrSh5aw1|3KlLt< zMG}#J1;9~s8!)%X0C+bGDZqOpd_#x+_6NWJ2bRA!l>)Q6aPB;K*V}o|S*y*DjZy6? zCEvr6iqxHqp~gt69yI{eJ;MDhL?&kvx+`{2*Xf$pdW8n1(-eYhJDpl+j z^IH3dIy!rUmcR~%2&O5(qFvUD=r)v5N1Lm{M7~~Md|)XRsmP(>;#(o=o&wn8$9*3~ zO--?K4p}J}?NK3P3!3=~tmhK;E6Un(dA(+n%FwTH-R%Q zF@kol?>>0+=;4#6M<=(J*4F4PE30cTM5qo|2k*wd1e4v}J&AQhY=51ZnUk<5M+A7& z`OqOhFC=(;K2EbaNVzfJOFMGSIp#(I zPJ_(LdmA4gRSA{@{JkH2^Wwt~!_tlEG>8@;kb)>tL>vJ?0XJL}ronL3bbWoDQ&I{U z*DzE*d77GG(tT%7A6730D(*>9k?{8F`K!zn-L>YsBM6z+eV>}l+`oNCI-`}$!4LO` zo8(0mHKgfBYp~<mTp%hmeE*0v*%L-dxq&Q9%Y?+7b< zaoA3;-`m?~(M+eZV~b~}vTK?c?UzIZ>bW)t2SSAhqY1MK5~#bn%H=|0OgfzwZ8fkM zSyqxYEEJ1aJw*Zp!gdOfbyx&daZAZ9^4N2kOhm<*<6d8Wr`7J>KKaYP`YVP^tA_9D zi15~NgqHCNU`~Rel_bWiuCLY%sW7Oc9GJk{A^qqu+GNzgcEcPs#iSrSh&M*zyBjE> z;fl9gwS3C7fbd;NB+quJ;!|bPJdk#D9osZ*!R;~`UjsT0t(;@LLy3B|g1ysZd_Z7E zb}k@&&8jlwny_E5ZmzGIDqy98ySI+vz`O6fLs8YBz&Rwnq*Ap?C9IyF%~8i3k?4rO zb2Zo$6L``7dOa*44Ap}F5x#+AO8go#X9iam7w_G^y}7!&xv@zA;L*4tBPRKlzlmR& zW>KkF@jhV|m5vP;F!uS`8B8xMHIPZIE-g;iD=SM2;4X$WNE@pqJ}Kw%L7(b}k9F~q zNznaPda!h;@8)Rl^u-?PY1MzqP|L?PXrisYSf#Soj832Y>$;6 z5Ne+m6#psAa?>D*lmN0wLSjr6NrIZ3N@lBN0fLJBAyz41=Ex{fFUoh)sy$3RFw`zQ zAB`0V-N1mMW4y>3o#OLa_9C54W^)N~9;>=lsz$LvO<=U+`vn<*UwSC4@3oog-~OKJdX z6rsHbVnZg8<8dJr!uvRL_AGtgwV>cTaFgX8VY_aF)&{t1v2=6juYtESG!~q~7$ zfex;R?YwVT|q85R8DfR&s9_S~N^Iz9`Nj)xoF~Ni;{7l&6#EZ@$WxU{q z75RCSsU-Wgu(TN54Mr-Ool3W1p`cYZ7h<)7BTyPv3yIQYs@2-vkgs=}jq|BZLAsZ< zrD3s(D_2l@x($Sf?Jhww-Lcu6bz}F0D>|wkO)si9n{1+?(TIM`c2%}wr5y2j-;+CP zdJfcrqQn{AYtA~!BO{-_ee;Ju{V8DfQcPQ5*S?BqD9k?swLxC7R`%e4gYN3#bY)O0 z`vr6x^6sV6s*`w786)njJi$ATrmSLV+zPl4+pRp1^X<#A&fi+-@RG;FTWIO@X#*Mk-&N$Yf!)sTwAV4Gob^ zCYT|PfRQ+$<3!m051*_?p=232vy2ebNbq48t@PCyorAG+F~S;jK2sB8mOu4L5aekn zfG!s&Lvk?qhQvpMRm8Wu+w^1}MiBo3^wVR_p$JO>oEM(+tKMrL0O~UV2f{Sc@SUwO zO4|qKY#B8D4%;osPJ0jF`W?1A^ZURKWMj+^&>o?xIBT&`I5|1N&u8Zst$F_7(Gv>0 z!A_*D)$3FXgB?B??|k;7;}c+swEJcs>*q=;;Foz5B@YUTL^9u@_8m|w%cUr}JxJ~W z%p+_E*O;o1cVu=I7`z8m_g5A{?t-NE$O! z3{Q&+8Qb&ohTQSd;h+BOPxp8BrzR~hZiSgSkSVWiZ)flA>(@s&_Kh_jeUJpK4;;a% zXYmCPD!#M$EVE*c?B3q4FZ7WtZ7|?ok#syNu>)M`1NsxMP4AM%#FA0zA-w5cYJs^_ zW3kl6H5wvASXWRENiJi68PVbmfH{nN0>;FI5CaK?OTwaQH8Ae&9zJ|zhpS@lF#Lz& zxIN8{E!)`Ggz75Iaka6sVto`vUM5#qH#os{No90{nB*@nE(RaBtCNlwmTpL=0TGkI z2&hzQMK+(sIsH&(fHP{$2;-@=UlB%{^RIsS%ZCr{>470E)OO8yE))vJD3_k<0NBa5 zh76piilDm;l2!n?++YJKgc74knxtoA#Mr{1Y+#=|tQLJrN->_CFu{Eu9>m+zlM_-+ zXpt-|$mMCmJ@Ht0Zepvo=4AI{jA*<#0yW4}JPUx73kA!^%vm=q;_Bg3@RZmdzI93f z!%`L%dJC-v76Eos_DDrKGvjTjA|aj?I8SREsicPhNlY{Mp;rA3eN(SK7QT zVcor5-zq3ycXn=LT~br9*N^FMrbKmiOEtpz=VoTIrYa8&1^zHMC%W?X&1Z};9xTkA z&xdc8k#;69yD&RLyaJ$6TK*~*!?wIIZ=&u$VA}T}PA~$(`Whu)bviOK-qF=}wM};M z*ccc~=7vV628JiYIwD2i!r=DV0stn^`4ZS(3_pD7UeecVXDj8(bkHrncjte!&mts~ z>3rVTh*#Xuib?=xXL}c_TcUe>!b-_ghyh~?!1Lsk@Esx{t3P;BVTET=%PyJ~1Fupk z70RIDWJo9ZD20;ckgPO3RVZaEwM?-@sMN&cRzey}c(gdDK&VtcUO-$h9cavivQovA zU^(d8Nzc|TV{GSzSvgx0(+;P z3ifr;c!QCU8JB}y-ixUTG&|DUF+HBXPaVdf2hq|Zxg@aEC3bO( zpi)>n*~qS<zL zgit{fu8za+?Ceq}hzztEBP3t&Rng$Q1f#@Too0^D&6|RiHy%E+^ul8^Q*Pfr{`#x0 zzWw^gdUdVRtX5_V`MU2KyS}yi^%q|p-8|5J1momh2rP<$a_&aP$E?#Duh!a}VMLmA z1~cxXIXJr71RV@canw2cas}boRKV)saHA|iq=s^^Aewj{D2J?$=m)l295|%0wuS{= zJzC#V1N?bkPExPeATwasQUnQ@f~BVe4hQwdCx ztDZi2>T<%jb~lv?+OMsxTPsK9=mz9o_{>^+7b`p?>SU9!ph2TiC=&BZK0&4GEWQQ9C`wu^TTd!3_d{}v63Ry$ee-LCyBvX=KMi?kj6)3I(Ec`n!O|(>? zO$G1{3a{nD`eF&4ZEy&x2ZTrcecuOc4`2TjVvcSh_!X}nmYJF?<#IX_VAnt086bN* zbQf=j@5FY%PV^>{vnl#BUmLm7r)PYJ`0^6!YXO|ytxa*&dbO&{ZJ0)|623+RGv}-! z+yt4H3m48{X6HkeyRHj@m_qI8bx8b3rmvcM^ZNP0-gdoOnr&KnUNwYJBrM1kvR}8v)x>cT%l}2bg5K6eZ;8{g#S_0(ekk|-$?6gksA3N zB`TK~Pt~MlOwY6YY(y?osFW(G+O+SHY0hd=4PjIOb3! z4a3v84ygrEiWeA(4Y%5$J~6D`6uCufMUd`4xbGXGws*Eo8I-m1@BaGV{PGuns_+sZ z*EhBxJf*^dFjcxka~1@79j~>zx@I4&86DVl%J2rV9N1J^@;Ow0`^jfkO?>(C_4`ks zy?XUBtZ@A3;V*yr=O;(EMNzAzW-(ur%6oEj{F86LS)8ANw@N07G0;lHWn{3|yhz`D z6pB8QD`cof0j&~aYRYMv%5+Pql_D;eLvvC%Lnf!Nm~asC4-Y94KKTNMYVct3*DQIq z7P3=(BSo}sB)E@dZ9_XJXK&RP7A>LZ#yhXXtf!M(x4bOqX5eJhuw^`yd-v|M+PFGa zkIC=vAJ9E;e(kIEokONDq2AVPHX#ht07;B<3knnpB`z~hxv$6C#R(-W`6de%#d_zy zqGfKD31g5HMzD}AQ#{Qii^%|iu86oC0;%JOnDL{}SJ*pi5lDRp5G;a4j|03zS``-N zbt3V+CnFMRH-dzybO3IS8wP_HGOPOrq7WOJq5mLCw(m?pG&aMR5B2tdY;%kBb`d(0 zCCGW{(C`_ZSqx4`BnJ6Tb@(Y(8-P8Kmf%+NEuddmLu`3z&lCeosEMW4>m0Frckfzo z9{dV|kZ5GBzxVEYA+U1h91~=87!(K(;>L2Z8q?Eez-7_6wdI9ZFP`7Ods||W6iVz` zGx%g!`N&iYNNqJbZEl=FetGq3h99)Pw$3RV5WcfebUGV(64UVtML}~b6iA~w3~z!Q zOg%E$it>Z8FU-v-A%V!}(ajroPi}EWEOPDJ(GYPW2;<^=%R1zC4US>#!ke8v{llZa zhI?{25rBPgbZUGOq*HNpL0R{{hRiHxYnWO@)N&fkdIKXbR%){gE9)CO2zfeNN@plT z)`b%u9ZgN@0xT)>Vg~MXu{fR0q6*g7$*e7JmI}30n6p*V6e1gYJG+~!8;F-y_d1k( zLy9~_CxYssZ;Xr*J2-UK6`@j%!ge@Su9_U4uhi4!+C-^5A(~&V_~srH7^V3oQ(0fu zGn!0|_#$tzd^YFn6Q&A=&&F-E4BP&0XRQh6s)< zr6FH#l~94GyWtx`s2y#->QAPOQEsEy!*j$nxNnwX4w7t;Uz|^n4|*&(zDR7h?f}jj z;-RP5j)=o^@E$Jrbxv&-cn^RdxO#-`&Ww0F9vvVZ)cXu~@R%zh{l*3=fkR`uA=1po zVI`zL(FgmGJm)8$w=$%DZ2+oRmEbk>e@_(c1z@mUFP73~>=^iw>aI|&ShtwCh6w($ z@g0U_7&Siie12BYqr_%Jv;#*95P)$->B?cg1`pJN82L=-AEAq&h5W)o$SW|QV7L_! z?moEp{)g}1xUu)?n^%AS%Rl|quYMtQTsv0kzIbTMQUe$ee?%TQoR740-~PNvOb#M* zwN9fhS1Td4LqDql|8)lL)~yhIxOeyd{W}jncn01-dhp<`>9>FJXMcTT_vR!HGs5Xl zee=av5AWR$F?eWg07vWFcmt7dZl7gYrV0uyaME{xs9-ScLMKLSo^VI5q|bvhRpV+g#9(7y4xhCa#cLt zoi%~J#BUYM!p0@Wh^Z4Mf~Re90Lyo=%f5od6dR&9*&GcvFT1xlLj*AdI@>MMs0H;U zXa?_5G8mi5X4#D?E0xI%A6CDUA>cr{GAk)DPVxe?UBNLD@9T-}qk1z6aRzlR*(~m0 zSd&4g?sYaKj|V;xeUV(%#Mtq1jK*N2fhr`d)Wc24)jj=q7@XJPxv^9q{m^aQgm`E$ zAs^Kosa~}v(|O#GyG92`g%tmfkzld&PT}E z1^(OK?sW@#SdfQBo|$RFTV$KkqKnqF#oSyr9oz@u2^P<^D29^pou6N9&MwxQ3*}mK zZhi^)TQG>?XoY9|h2TcH;}fC!JZTTopbzig6YX7?ompR6BwB8)F70ftS;WTowBA0t zd3>;cxW5PUk8d7weF#xxY|@1+)PCf2bOLW57@inOSWO~Ben)vz>Ea}{JX<1s4vmZt zj|sSs`*H&(lf1*6=b9MM+TzlN)sb@{fJ|V?u@@XZ{<_?l;bCBGKua;L$vQ*#%H`>e zwe3u*Fgczc86MB1vNx_DoE)B9-?`2KtaCi_S&~^Hn4^ycjw0gRf*S&A-QED=Lf z`GTd^lBMFLWt!@Zsd5$b$W&{2-y>G4Fgk@wHC-wXO(bFaST;8b-g9~0GQG){7sx%< zVPLe*gSrbq;32a848g!3z+HDI$5D#=)HsRH%mo=uzK5N!$&nypP^9TO9fO4TK+}SS zh_*1&L8WyA_^L81KrSB>J|gO*Y6uV2<;&@2k*E^X73dAd0Rt3;>h2)vg(gkDh$y-* zkqe6tI5FDfakzK5&Zl$yw1`q#o2#`IO9Gnc6Bxmwb!te9T#*{=n~zD3<9H&9#zi0_ zkrWfo3HxSz58+@SU4KT3z&m_``4BMnjtR*gti(1i;(to+?L=7Pn5&=~BV{AVU`ozc z2wlM=a4Ose!x6+Au&RsKVkAa)8>E7PK`ub)WsetTDD_~#JKJE(U&BL-$*D?H?hes3{q7(4PV4WbI zV9x?#Wh!DzrR4EIa_2Y&X89}M{Vx6a8dT$^<&G87C(oQSjcx4-qRZ>=5H zHeicBnOvriz!^JD7e`~>@N;Y87_IQ%%nU`<{E`XPVH>AN_Uy3BqYFdvGsrkt=oJj% z2DaDtHb;)I>*oNw0D|HSRLL|Zf=lGUzaTb~&nT_H?x;xug-2#^piVjfut0n9$mO=j*MTtbY<)5OJS+h|H8r&1W>gkOi(x| z$!n&}PET7TrBh3Vf-ih}^4R3KMtXzuv&X&1U|-+d^l?{2n+0nS-=lzIht`;(um;G( z^M~QsQ8%@wiTnfIU;J5X{@MIW)ArP@v#T4rQvfHqmG{*WTUJl*t~6?L9k; zVIfabN2ZAo*O_V13R|yZ3@F-yBuv$?%f};?b2sLW|6hm94sW4-Drco51l~= z#(}*zH+CdDOX4|EUTGIFQcThx$&2_y*luJZB!;UyK#wK^c#TSE2+93yOHe(4ofRQgu= zi;g4QGXNgQ$3nv;V%>?2eZ@q+VzDrmTkWkV?w*_&@9Py%bSm7F1G5sDJ04kEJww2` zaPG|C{q0}>)nEN#<zB%J@(h5*&~#mpF4T`_FY{Wb?egaSIs`p&%(kY zjpEd)6<{9y0j8#OO+;}|{V4@GGfi-y-k_B-ig=w54Fkpy}xuNHVUGuXW1QZpT)72=8ZC&tASF z#yLrnk}(mfM^LX#eWZ6aoNOqUE6`gSRareefn74@q8o%i3cC&+65qM}#;IY9&q!+G z>E6^5<0ov3$!@b8=HS`-CC@9;0NOMGrVU#{+h`F>Agx0i;APcj^YHa@*9ZXw1)I{4pYF~VO9}J5N+gugSx~}-*0-NaQ&4svW{T;{*|6B&d<5; z0`W>ww#DDErOHnEukG93eb3PFnxHAZ#r`^(MM`3T`(<=wU}#W~C4yR6TAJk3)i&+q zNny+6t*lMDy76w>`FM8vxNAg~q2~)aa5RrQVdBzYf4`N*`c$iyPM(-GxODI# zBSQEOciM(V-=stP4~gD02aYs@U#ZmthZ+xB4DE~CnJ2%uv}aLzB;PeG6iT@~0i>%v zn=6!hOTBf)jfG;xCYRMpe=bu59z3Bf&u=HYCK}91W6NfKWb@b@?mbdq` zbmfk;wD~aX^se@fox2ZNSh8Jhxjcy;UB|{ON*t1?r4TQIK61nET?eCK1#Q(9*dg?p zsZkdkY~hd%d0{*1uHHZ{RTe2)hedlj@Q?gQDDRF(%mDWQdr;qW3;Q41nmK&?C@x4$ zgmx*KAnlP*eLD<|U>QQfYic{54B`E`D+}`p>25tGfz$7>J>kvCO`1*(R_}LSM{eCv zmxyLv4(6SljQ>FCEg&)}xma;vV#{a06qH=ZDw~)nU6Y>OCf~1kasI zYQgl+l&3@QAoryBND%n>(2{|m0d2CPOG(ENT8@qk(Sy&NJ~ek@dU&v34_6Y?f0q2n zRr$P_m1ynewJU%BcYptPfAhDiXHElNc18pSIcJa2p=)AdO1QeVc7cli^!ZE8Sk^CJ z)!OCWy$9g#st#h;uCK3O=9Wwm9>_~QfcLX!SI;Y-)cAdJ5}O(t8sfEj=Y#DSGQgA# zXcDGov#10u)IyWVW>74Wf@Goy8ukJux1c;)u~1)`rkt@aDAN9c(RvVIAGG-rdP0w-$jMuU=FrwYD1a7;NMV)XwbRH*zkYN@doNdJlA&lWvPtbMOt{tWf7M-vl*@~#DFkF3~p5TOJQF&C@ z-T3*$#Uvop3s0~p;HbtkJ`t{A0;cdYY&TTfqn1vwRSdlLHrK_X>YR;ps|@yTMerF> zM?QQ!tX8Rrn;6}ZZ92Pq?qI?ujkrK`VdM*?u{1S(UXdS5aOC?pgh=IRhVLI@%Wgw= z_vhzyHae*^cyLhVnTGs>SFT($T<7NeM*sgARNmrHrg{-4Rpb^+no_G%Ga9iDQI#e_ z^Yin%IE%D#Gv7OJl7NpOqoWtB$A=qj!@0F!R zANhmryGR|V#;)CaC6G|@-Lh&&TaPv;%1mP$g%w1*<)2B#8Qo9A-_p`qF7=hlHGyDP zzL+moyDNQ^_iFz@bEM9?ddu}FIf}8|VYNI=%84c!#v$pR23$PasI9#$>R3KkG-?hV zY8)S%xOH>G-UGx_X(o{c`DU8Z0eD$N=`>@yS#Qy}+VkS@Mwko^09?hz;-1 ze1eikF4a4D`$zzrS=((ELyy|8?I3=ZT4ZHb*$fbgrG*8X+N`auUcY|z*6mxjH*TLk zy*yYKxwl%pfV!|nioH9ZuT?ABeXN~XxxaDi_rLq|fAz2a>$9g;_zG^{-uUrPegV42 z!r6EH?CLpe{6wP5sP{RhiQn9urnnsMD=XgUJQ&wduj zIS~P{@3BK19xM))ufYux+XtLr^}>Xe&`3Pz5SJXgf(>8^o6`LUA(ENxwJj@Vy+m7Y zr0NKphmm=5K&@6ozop^2VQzR}dd+!lao8Ghb?5Ahj2vbwdv8IO9K!pT|4ZINq_Zoh zneJRzuCxTO1Ixn^nN+7@@5VV+ zlhlVsd81V$to02?IC7x_w+ZTN3DfNv&mJ2cPAJEJ?%mkF3>)@u2tY2^ghmtymsD`og1p(Unk-884SLB3fS7(+RXH{ zh`@rHd`pc4c@X0x;AWmF{PDd_PfhA5;cS=Y=dNE~x3-EhO5HtUa_d^d*?oo5XdaZHSk_LeJP#-(s++6X{OpIX{;rD|8X(#X@!?UpaL$jeoF zv)!eRt^xo@zgjvvby5=Qg~5T2)85H9fW3zbzGD};(*Q%gTwI9F33KqU&;Ai?KYBpQ zhE+StoeYB*U^ezT0=PnrQC?+uW_g&}B;R3gY)wImFy3}04SwARt!ypGwxvJhao*-_ zZy6qhJ}^#c{}Z;mlfpYp2A!dG*i4fm6Gd>LpM-)<_eg(7`bao&nlnvN-6IK{e=GHP z1!6wA#8QDR8}o)P#7$W=fkr?O*d94hLQTl*evm21Zz-`5{0Z3ceWIrjguvj8ypiw9 zTf=rA&D_MA;zevj+|iK)h7fX$0gv{GpJ0rN`^bYgSQxKfURho`e-U*#;jF|pKDJIR z-tpR%%c!=d*_g-5;>j0JHoy4v&42rE|KY;9b5u%_%huMj*B^iO@X?kom4tSZJ9xiv z@e+8Sou4~#a^6lBj^ooa3?!%&#=g3G4w&QTvW+m`KfR7kI&935Feu*PH9iw+Jo3&E z&ONBiN9G-ecAtmD;aAoYjv`wzvE_&q6vonA=reTV=*rvHo`9#2goL7-0Rw&)mjNM9 zLY??78*Sz$eDw%4LEY(5U=e`hI(*?^(t*H>1&peI^u!rXC!vQxbp*a#W<|?k?_L=^ z!sPUQK{r#7d?@Xg$J~938ax3V{AXw(B?r~F1O$PPmc`jBEb1dFGc)j(ONp}*1o*>v zBOxLQtR?X^Q7sG!%rLpi2Y4MqJF*c{qLbsmkRRYHd%t$+A_+5=`VYeXE#nf-d?~Q5 zd@O1HM8?MmVan10SdBASZ z6o*7VZ4j5HhE-*D@`Y3@^YzcN?Z(fnTI5oxhpWcrCeneWp@9LaPPz=y?aWzUxH(eM z-LyA0tJQxPwvP@CYKE|O=JbR;Uk3;Js#Wf&OFN>-TO)GSdO2cc$o=vb{bB$G??x0?iGmws&ZzM5@d z^oX-MGnHF;Gu(|4<>zd{Ek+P6hj?yJPwCyGEj(($(+@Rp@Sr9{BRgKQ^w6!s@z|N! zd$=L|Aes)!E@<3v;D9U3%cyMb;GrlC50Y>|djus*VUj@}jD(Qi_w9lIu-*7p{fxJB z|7dn0=0@ECyM-W>z$CA_Gj@%Rmb`|jp#g2_?S_isnxgu)?|uM#itR8T-v;642t4=a z{?;f@G?{2hkg{{A3er-3iwnM1f1FI>1}DyY=c|F)0Oc4#>I5MR5lvDWzHq+MMX%*j)stIJF&$rK|4@F!27 z>lKMC$*5{NGY|mX+M_{iCQ1EU)ao8;P_K7@ssYluO=6`O94eJ7 zS&EEai^IcSL{v>nh2%64nugi!6*@ZgwDEU+xk7{qC}UwN3QDhmMQc`yVQPQdMnS&Q2|`*cop zQ7Ev?c`)Vk8m;?*RF;NHMSV)U#RJ2|X84j|2$svo0}s7jl5aU2c`ayi$YLFyRn{g} zMh_Z?sC9F)n_K8lM~_-)x?^|LBmJe)jY}7?3S&zq1y%!U-NGyxq@hZ0HP2GwC3v8X z!>+6kPF(Vqz6Y$sbThde@fIw#hoiB73hZ7euw6K*HIq5GZ!cWN+ZCmjT$lpOlyaMz(S8v<-g$_m1G&dLi)iy|1o{FHaN6 zg=+$b?|tw4{1sGv^Ecu75)u2P!=0(u?C-C`_8z8m#u2+_>tZ)KwYaz#JE}|_C$KE9 zM0jW?kVs)CY8css+LHQ|dV8zh$gpo~Yjb6T5?GjIC<@Wfhr@vn&8hkTk~A<%Emc9U zwyvzEos^d0fja13I5B&D{gRw1sK0+_WBH^e3FH1*CBGNDd&~NjgyGNASsI1MRErH?-mTg7^V0#(1XY=Kfk}0xG4ZM%$ zyRBK3qmAwOi*^FSQ+)#LE=V3Q#?gK_57@&V*=zbzu;-t*c=$L&=j|)(%eSPe6{Ck}V zGSFyEC73bTuRxxEtUJfKdg##i-+HT3E#JL=7g#-d^x!wY`|Zzu{?j*aUjN&F_wS!R zeTsjczj*P|Bgo1997lvo$ zjMNI632ljPJV^bclY#I8=yLV=w$r*!TtMG0IP^7 zLs62Fak&AIZfPLPl#>P~-qfG?r?;le81U#i8t*}V56I)mI4#f?j*yPR@pWK716V|+ z`dC6^WQcE2DlX;;ViZE%k)+b?<5F1H|*sFq`V~oL7Y7bPGP9+do5@Iqq z_V1_Wpaigs6%0!g1%q^{Sg32%!*-`(KAKtH5w@FIM{Km$a3tT+Ru7@JOLj~f5XmpK zF&uc3L)+~jb1<|f-++(o`;iC-!oFv3?Y{HDhn<))oDO^Qi?|=D(j7aY=}bYIpHLi zmrNzj{84ItUzFB@`qR39F3igj&^B3e5qJTE+zPGZ!|mWmFSUJ?W1kp2(%#83ha20E zwgjm*9DF57Eo#TnrdDJmTDG)Hh1owUtM~}EliU@kW^*V|1-v`zL!;$BZRko|H+%Py zw}ZVCM8XO^k> zklI%8M##48SX+?Xm7Bk!0w-3D*bt1 z;YK3YxN%q-;#Y}kPjd&?W{_`!GJv6@;sM}3FO!0bt?zz(aF0_wBTDw;Ti6-x^(;n- zzlD8jFD~b+AeEw=%-Be{AkjhY8yXy71`c@V78o3`6{guF47XGW2nRBtHKI+F-zJrq*jKgM>pY=H;?wJ;xHvIy zovKDw8Mx;UGntIP^(za32CVFgCm} z{ERe{#u-q;%{6&b2fFT$h0Nnabq8a&Dnf@XFznD#%SrMc(|xlZq&3g?iB?Va$P6qLq!a&WNy~vH367_Ap@1t#j3HnFm)92 z$iIgX*~w!Q(ActWcu>)&r;ndnj$ROgJ~RUvuuP!t;94F&YXroK9d&{(H^I%N;Z3FE zxeCUN+^ToyouvDRr;71AG17Cwh;iz*KExVzAH;W)w)4=tzpuuVqbj>zuTkTT0tCQ6 zM~8+LF%8tJgm=8|-S@e?1ymNPk2Hb;?-~){=ZB8AHMMoI$H>O$u1I`kcWGxPY=OqX zx~b@}-Jw-%MxjHwR>&K!6>i9KZ@pOUuhxgEwIPa4bPka70pqB1hek~7?vk^?7f3pI zJ2#HDYW@A%Qx|wImsVD9-q_H#Z|C;y`Ai$R1Gcx=<1E|ZEp5Qi)z;P8oI%eUoknQv zIcZv7yHR;){{fyCCI(A*Yrdyde})9!TQd5IW!f^i=Jw2yrdA)tq7=>sJt~d8Skre? z`V1svyQAp{VuyI{bs?i@@4;b@NG#jQ=oQ#cW~ z^fvC?(c@%@0j<>i>6;h-=Rf}A*I$2)zbq^)5!F{j$Y)kAUefWW%U-ZUj|td{)o za;-cL9nmAbTCP+kCMR)wh8%Azu_Y0!+*OqAtg>O)O!9_Ms$Xm4J{YAhWka`38q9IwRxbG8BVmJNk|2f@WGYgz)a`KSSj+kE`w`XgK_ zct;$p)|^##gx3gGi`N5*#A)#BEc!0cZ!*tAR2qfvuvNq(IeM z`h#dpAq!1Ah$?S#C%qkg^18N6T3WDUHFi2|)(N6}_$r!@=9HZrI%GO{YivZC3B!Y; zvLE6kDv%#n#T_Ao(8Pi8geJ2mT5Usbw-|^VjF8LE(y1jO$w%9FsK51Fi;=5u!KIS% z8Tv}mBs#VMOznp1MwYAKzhT5WbB3JGUm7E4et!M(<=NR8%d~kR93xM<_+E)8Dhdbm zl!&hQSz29ZXC{^;i%6}{AR?1`Bhif~7+J;uPK@e%Ka0gcKj^NB2r7DT6ifP5^5=W< z*yyl=DMlPkfN&@i4H%MmcZL55XCr86G7C%S6%2{$_A`wwouq6eKIs6wTTyCsl4$Kr zkEo^YjBk=}i?6?@r^fd}u8E!{)mk3f7yD#d`Q-PwjB@At&;Z4jPF!6z6LBWZuF~Ye zd%2>QLSJLErsBoBcORaZ39+5@XH*y)R(iBqi;nOR@Zs3lq{)6;BHpg%OfFmL<%c}f z&`3vjDB#WZl$!HB`XzD5G_tjKb_ofNYJiZ*wsqw-E6`+&3z>xqKM{wzML&!ykSd9I18oQ_(HY`+ zqOqs9@SH9K&pql0gpZx0qi02m?NmunOKCBB5pp+SoB4q39qG~ldHDXmb>m$x;-2B{ z1$h-iZE@OBwGlZPR2`TnFDrnJ#!9B+PTb3tj(#tZGbN;_F@pCtTcdY}{@XH#$dLJe zD7uj|C#1#+Q8{tlC_+5h$&%m4&Zk0MpWTy#9kJQ$-fh$w;aXOhS7<-ZhDs?x)mQ-B z4c2Qv`s$1S>mUE|cfbGr%nZU~Q)%q`fUamcf4<{%K=ZXur6;bbMxJU}(6~ zTcdE^ymec{m>V~_t2TgkU%h^U18wE>akp>s^x3nkG#O3fLq%`YH!lw%89#7r=;T|a z=UNm^_DD%``jQ}+BDzW6eZ%A_-wwNjCW-@fpVVO;B&|T&u6$Rhd%oUIb=6&h9T3zT zK@i9v1j+(Xr8NcZ;NkGPD`)Xq31k0^(4$yXVB&TC zU2yd(LNA3%Q__B^AX6sxZ7;?aZyj#o23A9FHPMvhiAAvzs$|NUxd_rW*Lii`tt}0E z_qNI%96TUzC&$7hU~rl?(B2)~ASRK~6Wy62;!7h?K_h1Fx1I;M64PiX-bM=|ENYPN z3U6byK8QFPyjxIs)exPpsiUi-t&nNg#y3YhQs|fD zbM4+P?GFJMTR@s*EE;SMVC>#kU=k_X!-o+X=XNMEO1s3Bm)F;2YRG-EnI_r}Mu=#F zWJmk`D0HvuD0V|$?Yh-sZ;no1?nrdN7?cF6^zsT;mX}ZA2B!?psi~Ef6%}*y3yWUX zWtA$0@D;$G=wnE`>mq2%WWe|lWI$#f)T7HntA2c2%l8P>1 zGS1qDiJeR`Zjb8a-e|_7C1{JXrb4#Mu#`FKoSc}xyndPf$fSXa!*&C}2$YNy1^e`r znQUveDNOjyiep=PN*z6A@ZQkWx{rfXHEU0)wY$`i$sVM5cI5%PtZTD7U0qydlCZ6r z*wJRku3fMR33rP;pdZ4(PTlhKGD@hsQp|8dM(2S@r*={AVt>8p327b(MPqpH`6!4z zKqMc9{WAN_fw3I2bC`QP0}j{&c}}>AT~=ScZY>Cgm+m?a4bcd zm}DZ`nxOo9??qBoL=4&CxuwD5$r|x4IY<;7v7JIZJSMybF-78KwD3)=FY&4ZS$doa z7L*6b>)ng4YmOBn46bf$$sJo#!Fv{8WqT?YYmp@@lWT2yFE46tnkLRO2`S>-{L{K7 zY$3d$B`k^9sUd;{U?Y?>iPy!&1+|TE^l$&GfBAp>-~Z3`>({%xyTzmn3n$kvU%GMg z280K#81!0FkxG3}0RGa-nU&LL&ys8WGK80z6E|<(T3b7R$)9Nxvwj)1)#-9UhxR*m zmb*{VLFpM?uylI3ka=}A)()}{vm|(T$E_e5A>xEY+E-V#%w6#u>JBjn&STwXF5Sj+ zi2iytfJ$dTOE&0dk_}C8ckm94eNrF~493S;AtX0FOF?%gjLcDHf}P29YUbmaz!hPS z)T(a=@LCt9RL$_tmCMvezh-t!l#{%ip!rH?fYbg)7F35MD-10NbbD3QokK|=h0{}q zBp3WDW@Z39e2RJ~Zo2R`!ac>7wQ6Nsg6%NS^Mka@JQB&-6oZn)PO0WB*f%)Te;`6J&g`8U zOMwv{on&Ga(DXRz&KFM>EwW-J>Zq486TO;&+gB;Bo>@L~YVp{}5KiS}G@q(#+?dPc z+gp3Pb0(}mHxh&I7}Yyfk}_``P*W$po74jCFoC?gw~Iw5nGD{}9puHD9@qNRX--1) zDWZT7padg(grg;-I@##FQYL*zJ(NpRw_T&Wb{`8&U5|ToeSLj>mgKIz!}79$2iq?y zwVpd+>--Oyl(ccly}PsPgoP~~{PaV250IftTK zp{YZIHYj)fih=V}6UV?imIaQPRV@azdbqrEhwI|XSX9l(NT;%Cysse_CeJ*hOUfbg zsdcY~gaT2qcNL8Uc|4i{Gb#2m2n}d?A5mwh?iM9hM%YfADOCo_)d72TlA5GD6SuDp zL-0B5@d$iFKu8DG9ZzAfgzeouy)EIr$xls8SuKDPB2Iz>oJN|i&g|3Ox;Ucz9Fe4Z z$-0)dCZL_kwdJ}qg;GbM2-Vx|E2MU{yO=GPwaGXN_S-Y=ga@iE66o5F_GCn1n>!aPk}Vt<{y4&rSOBg zYgyyPgJXva#(MZ|ojb+Fs|in1`Ne5@S*UK=@RKG?Q$I{F_Sg#TU~GBA0c`h#pzh7F zHBmliCK+D+eZ5!$5z*&!UQWO~j?+l?0SqGzo256{zhB?b^A|55?Xb)E?CYy`W;-jD z^2w8P0RNNEKKl><@jv}f|I7cTMwJ21Kn6bWjVOURzj*n2bMwj8*0V>CpFViB`SkgV zXD?npe6)Gz?!C>er%zwL+IsrJasR>Qwd*$(F@bTn_8aAfA)%j`n}_zK8`Bk0zi{DF z8YzQl@iNs~@>C`i%QZJ0P;qEznEOTfiMeS?K7aA*$nVbE!{+BObLwjL$qI`siZTkB1fhVl?*+rS|;MVC+A?CH>7hQSD3LSVm zQs>qb!h1|`-@{}yu&M+OL|a!c7>Ep|y`5zREVxDD=H})mtz5}z6KuUMFo*4GXTZCU z6O2B7I2KySXn3Qg#anwCgaPsHyPC0@@87S%sk#FiE9xSEh1jIXFdEXs4<5wZW!K~d z%lR(6VtjPiAOXS#zh?$%2PHebQ07pfc)Z zgaC7t9kBYR0U+mM0JvT*ic4mm$+NSW`88m7kYz07px-Tcr-gci6k}`eq5gg(--0W| zsP$Ia7*vVFc6gqY%P1<}=MwqEz5wKl`vY>yr7CC&CuC!*T<7k+2cpEuL$)h#!Ma1A zf$fHsC8b#I<9JU-qLh%n3w=H1Iv1Nh$}E(00!P!)cHNoCG7fwMwl~PD$}{9G4Sl(8 zRpE;A+O^>vtPco_e8WZsVl12Pa{KHiqs2uO5V_6fHU(F#nH`0mPE}Nu{*H33tz7G< z_O%vELgKtiiUin6H!YDKs}=j}qWulw#Bv-0mun& zPf5G`agb#aY&T;_>U%2>vx_Z5)|L*eg;;oHa|MK7bH~;3p z`-d;S{Gw7Ri<=B17>MX93{Pd_y)I#T@zOeZ294*3!LZJr zJ4b;*jV@eThvAGdQmCGJ{=y|se*NaNr_WzK-g@@**~_O-UuonwHWECHsf=kKr?cVgTn&d?dC zQPxpu!h=R(;`xM=9BtUVh&AQylu)v^h{^Z4va)Qw`Th@oAO^8Wm_Klr0%=Iob6^~R zb;){qxvqyAbv2;}|4b#&zJi6>v8f$Od*|>Z6&dSQE^XJ##zwa5a`>F+5u9xfL z9WnJZzNWocDMZOGx3M7rbYoS*;YD?bwQ~m7W`}qgo)ctHcV{Bm&aM_QMJ7WfXgtzD z9OtgF9;FK$5eBwXUK6Vfi7c>v`v*G+H4+-G4>jgcv;`x`>4@K{ibyqFLftJr&Lb{+ zLfvz`k(n;=UPIam={EJC##Cz~-CAT9dRcCGsSY2Io-=$pK)v-sr7Bq_BOdKB>MHFz z#)J2KdEdcCt!8A1Ks&q=a6wMGzer8=VJ;ZP3PHpUgiGzd2t_Rv!EB*PBg#rWKQK}n z887tp>q*_1FJSL&c}-?udv~_f+u2ichou>|gV4bC$dEQBW6}rTiL|%-P7l%f4?DoV z!yW5Ov>jlaZ{o>p(mKpp8Nl%;3G4^McaA8ECr9@GBWxV}It*<34A0n~upMDfA>D6{ z{CHY448Yq%KY_z3KgUGUKY`(RJN&d#!1e(4g!8*KWzcL|C*FdegYl4cBIvcqm^Z=P zA+K*zg^KeHt|cN+SZbfdNFVR_iNtY$-7f91m!!b>NX|`c z&d}_2g916>{rfDtXbC>NdQJi9hzH!-`Uj#&p9oCr-?r zT%g081L*5qH&+75pS^nUaC7tVQ^5XcbL+*+kDon%x%K$jjT^UA_o!fc{P?Me;Ny=! zU0=Tp)h8#XIB+O160-U39#9F}$^L2djifP$n~4?=UARdfSFc=~nVwloQg2Epq}hm+ z@`9Oc)^b47L71r^hIP`cAgcQbuqb_B@`D4x+F)z=5FL}@t36E4_%j*SeG>_L$Jt;O zO^5s|{PzPBSdrvav3=-`F=jFuDpn17D;D9lcemUCZ7V@F8l@Nw^Lvb3{QHkBS=&ixhA6sH$WID_##}fY>Mp|zB}nHbTx`_jO2A9P&FF8f()tL zm9sKR3tgSFQ^!`8=2uTIpIVqF433WsX{)OrgR1*Q9@XQ=I$9g0i%e3l1GEiHMxD3b zeou0sD_=kZ@$3VLyPu?i2Ivc(vp=fVf4J>!jCb|S%FOiCrHdDY4uAH&@2PX4P#f3+ z<))^_$a{8n9u$pp_%%1X?&SAqOB*crpzk$OArn*Um#-oosx2gjoTLjdS(rUW8j^VM)b|47i}iPGM%NIcqT$n#F~pY4bfQILdYP zWFTY@0}h|3wU^m`*qwy35N0c`Ke>M5rq`&f6eUaAc0y1F|OjJ)m==N+1o z@sWjTy-i(14(HG0iXGV=5`9lk-vKQST057QPKEnLYd(zq@IjgkY-iR01wlE=71l2x zDwyMJ)ZO!l%~vypmhN(AwZAwtQt0ic)#x)*=&QHpdX%ZOI`W(|T}RqFT^29y5|j9> zTR<lV;e!rD0&E5)=ZZXd0B<)7vhA%9K2FJUgQ)M@8+$XQOrCwq^Fx>M z7mdF6CZ-@NgIeFAnsPI6Ahz^*Rw9C%zy#1+lnxe|mANSg=~V zq7K;Z+b-m?{LlV8;@u>I2u_nY6JqdNjO=>T*2=QpKTv0M7l*RY{NSy(Sqr}Y`bS93 z(8%EV^Q+HaJpK5SH`-g>fA|0r5gCkj`a`|muQU~Lf~D}Cf;~7eh_7Pr|Ha?@YYhh$ z7ne;Lt$mSp^`*5OJ#|R!3L9<;gEidV4`f&3Rl5_Ri)#<4zRNsnh08n_W`@#sQ9ww`fXwGJJpv>{i zz1#IVK*H{FF>2h1}rzX%ZeU4tV-Qg4C6ZY3v9=q+gjSA>#l29 z>I3r9@^Z^PrT(5$z1+*aS+_dKSK|c|bh?eP%AozUcfvbX57mkDT?My|OGhN+wd$07i z^_08ogN0fh!V_osA)UO>4)lVz2tSp`$*rKW&~m@+grb=Y4x>cLC=K-)x*ynU9hIQZ zW!h!xBVLlYOw#&vo7iI^3j71sjSz#}Q2!RRL&4jg=2id1+bJ-90Q)ChE^z9S2CtBF*>meDm@ZE!Ghu6ZCq`z^jS%+ObGdD?=@t|`b*?CL>J`-EFuy? zSg7I3;sf5bAw_qJ`Mg4IVuQV!FWC;`;@YWGi&ChUE?tC;un0+>pPxU?R4_je4XM^r zQPcy1LooP}QDO+U`I}F_fYLM;N;@!z*OYeT{Kk!&9544CJi^+k>kKo<`CSE3_a3m# z+`6@ax7#Jw9f-Yg=bnTtPEMl+v#VsB)wS!_Z?3Ojk&0bdSj64E*UHN2&CRXf{Pr*Y z`5*rH%U}Oi{owTU^n(WvEeDsJx6iP)MpoU}*npBg#lwdWoiq5=S-~@*s^sjk3D(PL zC`uBpo1N;luRY@y|4)%7IT& z@#3<&2)P9XOD}3mI5-HaCnjvLtU!3u%HrJoE$VJ6dXCr6E1R+bWj@adX-_5iPuPL& zzGh%yFu->5J#O5Tw87+`AW^C?`f$6#b_*2VE^;rgbR!=bdZuIr;i1Dcj&@+-?H)rkv`Mc-Zr_cH^SAq`MO$TSfa059KX)-K)$4k9HU zG=xo02yafs#C*^0^J=Nun8DB$#esXH+GnTEcV5RM;)`fCk(8kkBkWqGuR<{{j*XTI zj8eF+6o#+=!i9@7v$JX?to!#KJh-)STM-j)El5YmO@~}gGcHMb7QMfwW^@)EGx!wQ8+lhV1X_bCp7A3DOsn+lhlNNG_qFC?eI^ zw<}_b0E?%BMLE3gZg&XrrS$^a8)8RjvPA5cjX(!gR&eT~DYJ{X;V7lTb#vM}$W@i8 zM&p;f1+7YN?=IFdxiUGO9Uz2v#mBk_bGhg!4BG?VRh??MPS26+v8P6!_fm}Rs}o|O z%?ZTp54oV#YI4+qXWVi?(10`?7AonP;5?(}fW@_3=_pkj)k$T$Q=D%vRkMBd?tvj8 zE9<+b3CI-Xs6xg_UFhH&`}aw)_{>&+JRDpb%-}k3{&19X;O+37ECb$UaI%*3hC{}` zL5PjOcFKnE)7S*3xCeR*zu!&t7HA(<7Hwhvsowriu$`Fhx7_I|uRwUFI9{!+bwX9V1#U&GScsRDVFkvz9YuB!UR;P64Y zC_R)W1$Xz@qalxb4-5?Y^gcC8Xhk6G_#tfpaIc@sj0e#q zP)tbow+`>(1mL{eFhG(@!s5P9yx^71dYx;kr2>TSuNM0%J-y|g;r`yiTJN!uffL7% znV29wM1E>a@Q!FrV|u`F|9U^LJ$?Wwp3FAGCIbB(DM>LzO|j&y!q_A7j(ApqhR|0w zI9&)n3?js&;N$IDGLGH z+I@L)rc@UjSn()q2$=1~S?ScbeNY7i(#6=2>YKvh?QZ=N#rO+N+n#y@UB;e@jQVGF4i-M!~Qh zup9L$jTfCr0<j2Zt{ct+_OAM1YpL9vFEq7vgbjX=WKDx?4AdgBae_lI z!y{Jzy?gK$g%L5BlkJv_@X%h8{0=on?K3D0Kcv4(Bu5JY9?wD(=x%B-^zPgVt-&=i z?mxcGcTjX~!4x7T;tbyIw<&3lJDwckOmt!g?0yVCnn#3%sq&uq+l@t_kCYpqfZZ?+ zUH!WQoCz5J<}8^DgzOJhVi zYQVce;}xBcLGGob7=mKym7VNaV94=q8ieVWX+|F#AN|4GZ!aw^TwcF8F*ag16T{1V zzjX1u1e2i-%;7c|Us_sRSy_Rl9#py6+t=$>fnaa4>oj2jAOmxZ9rwO<`_AU(Rv`J- z^B2!wy?Xfuo>N_@=vz-@PM<$|^myyZbKL&nqsMMZH#ctGzW?yi)$2E~cg+0W{Rgi; z{^Vc$@$diqFaL@%^XX?_UAlBd2=My#CwK4OXN*Db*Vh5QO+|T!hZh&)tOOJM3<3%S zOfyE^#Eu+kh~b9`x3^upa^>`?m7=}uhllhM(F5Vk>T0*DrNJSSU9Adur<0S@wR4=F zwwuOK3b{D8bp_M|1S?BMqij_oy?u&|h%p+MS#*g1%gd+a7U)rSHrHkWic^HFK`zC}_i%e_hYuKbXB}GPBBR%0 zl%BfqkjCEr2r~&={ixwi{7cWfSgY!s=%nMXzGs z!1+`A`+3BdM8@_;8;&B2`zcuCQIyy$xv5x`0ft*;!w?&vD12_)fNhdhFu9(Y)NW2^1^L^}QIVQm6Z&^WkU^%0Vx63jUq zlN5udCNYlS2um?y%N33IGWt7$cZa57U4>G0Xtcf3-`?8~(!2WVrNNOxeWU7boJf?| zjuMZY6)E46Xd_pyKau|KNkSnPgJoh24?JB7K_ve3w)WbWfypUwUFU zh)$9L@&1FUdyyo^8bl}xqk@vVW`3ApQqm6ajanl)S*qjK8i9})x<1pDoJSSNrzTI0&fN=P*3iJ*v-uZZrW$~SD+ZImF zQzu~5gZuaUDrJ+}`p{kM<{3D3N?A}++&w!>`lcZm|3*G;bNcidx1fy50a2;$0#&v> z58&soUcJH0VLK8Ifp3yukng+q9Jut>)>D({`STaNx4--69{=@k|JjQdAJg7RF7y}H zHis>bOvFl3IfD452~hS19s&!K^e=T3^)=1GI6Md1+NLEH+tiO}6O$9DH9RL7t*o3T??^E)bLy2KYs?y?V(a9>QkfO0 zR-c#Qt!mCU=xZbgQ3G&$(JajX{yP~&e!$nLSGMLhlB!da^!7+t4-V#XIds|(WinBz zXVk)WacDTj_wSKQ1+aXKY9s0GxCAS#tz!5Y%=XENaox3O?+QpsC;%DtqL&5`=sA$6 z?%+|x$Sj5-$lU~!vptVBvgv55#u%1HD@ENF>0ZaA3-e5}^@g{W^E0hD*m>8x+HIjA zwHjrro{7(U1<&!%4w|8THaqlbA#l}?PoWaSrUSAO2Ck%qsk!3^NZKq-gJsvwnnT%! zcJkm962Ut)$=)`k82_Njlj6;_l=tqkG$hl^DrC}`4qPtX`Miq`b|OIQ>7l9>OZrX> zr%pxd?C{vJ!I2R*;McD|Rw;4g+BK~vjb|!Kx!5Bnm1(lI<>{4ER>Pc(fHs@^_c1N- zAWcnNWM~*bn9u#P*64ge4KGUdq1dNZ} zQOO?SO?n^_UP*TG(vEb9C9+r==?R0nmK8h6J>ab*Gut(`EtykB$e~oos0VZd)s$MhW9<3yOk_WS_#o|`>3n$ZtyJb0 z=_oA#!vV=39qWt`TPFg^AOQ{Z=CKj* ze*XtQC}cbFaD4IZ-FuMQSHS={Iy&^5zxWGEiG1TSrm_f!mS8)+inYqe$?b z_RnDZmtXzl(Zj8qH|*T;=<(*$CtJ^N-@YT?D)%a0rq5&S&eMYn3yU(6v$HmDS~zp& zjC3$y7aEB|;d3_2zFu}<>B>5l59sqfJ3H-H06(8>5^Z+VI>;c3>dL)Uok=90SQwEy zL>kYtx`pU1XId1!MyDE8<8f4~(rkiywMkN^uy@o32ELJ~USD2VTpAf4=lj$rjeFmN z9)a+lG(CI59gaJNx-)qF;=KP*Wk1OoKe}% zj5a?C#u0-=x)kM&BiiH!Lr&>&D#e%%mX)}lsP1?);*==%(N)Gs!`qzzcn@M921|;K z{W3!8#A^&rUU$dT*yzISw6St>?u2waZ)l)mbJGvEy+eR8bvSjswMsvsrU1$;r))DC zLUpc4B2_eeAO+|!zh}>f@4pu_Ckn43FX=#`Vk()-&dYwS6vOIOp$jM<*OqXuIXKu7}|4i0*$ACC)U@D`+|7G#B0*h!G>gV zw#!JSy=#$OkbLOwi5gXVf;G2lzbeODw}~qDP7F9?yXi*76g3D>v9T41Z=G(lpE7P! z_Na~|)9tnE&{P-NZ?O$LC6IFnNJz;TC%zlHaB+B@&S{N&O1@NQo? zImHDC&XI(TVgV>^xVjt&NraiqW9F17GWx>=>_>nL?qP8F7Q$U-WO|TH6jDq=oZJ$Q zuy&amI*i*|V!qog(zD6u)uT5~J76 zy?gg%b$P$?`MjAdP!aDU?PiuQ&uZn+EX8!O23@(lu6)IhL5P9pla@6zvolhqly>9O zdXXopro4S%5F=r;=p{Igj_Onl0hk&%(gE_YM@C1ijO;I#0euBEH>08e?bByh*+CgW z;W`#ceUc!f>!1wtHtI*aAUyMT8hEj~s@L zM;n{;X)@#?xtZr<`b2n?dFfAlCKE7#J@F*R9m1w)KjvEWnh^NN2DZlLj4T&T28XrY zNWjUZKdizd;C*!L&6_uW{l`B(*?h2c@&RBTEbO`uECEj}5bT z4x6grh^WrbU~XE9G@BS18Z!L6W!iLzIo4cEgd!J?jVEIdBlrvhQ8`ST3o(v{R%J@? z9AcQnkz?JpCu&imh{>l!9eqQ1qt=4H6>FavoIrYe29u9{u|Z{nosN^PrC71v?@1Tm z&dyvvzP*Trc$3~pH&971NQXr(Y(=K39o|(34j7QZ>{y5GYM+6 zZy)QU74yl{r>xq1mDO_3xpQZJ_RC)(>JpAoKKkIno!hrRdGluV>=|SG=FJ;le)Z+* znKL+v*!J$-yPtpl<^B5)Ha0f=$_9})(Cb^buV25Ry}-uC9rvF+d8#_;$+H*s)C*Dl zwzAZRtTMdrJTt7tSFhV;kI;Vm^3^N;Oslc2Cr=UkhmW?9|Ifbs`uWS(3^wXmWmNs) zy3RA+?$+&Fw>PNmJTq1ep2m}Nb3gvc&(57&)hwNz&>2!=9Oi&tLJdjBCvLzC=hrM! zq7NmI6}3o%L&6dbb5s%%W4ntb=Z=JQX=UHmacpAp^x1QhGqYrr*^?*53D6s(9vB?v z*C$R<)a@+7y3cLn7HCh;&d^dQ`9d8n7d!&|Ip%FFBDbo?g0^V{&9o7{J2Ft3ED&wF zb(1p6)n)b9or!qCxmkWH)ry=MR42cLtPvVG?N|UV=x)emVS78Sf{m97UBmT0!6tu; z36D=7*t16-bK}+x!_5=$>WK9YhwoR-jIQcNn8Z5<4x&R&=VOG`-+??$FYp}tBuQ9U znj$=n1(gYSX9^Is?%8d=<5Z>|i-MB5qLxuT1;=o`wtRAKa%{wL;`n4uZWWL1u`zTn z#yf6h92{IbzlQ1k*`IyyL$#UGObVZmG^pRRf2eu{P0~yV5(g>%Z5>m0@78+TM8t?3 zrVI_ogyc?hw*DDZ3J6BT8Y)eS@I+9;P9d5?l#9iZj%|nStSf0=EXi@`7tQ59GCnap zI{tWb^S8hH#Wz3w(XDHj&~mPr#ghvsZH6dN)cdh$7&yOl4VZY?L*S0lD^58s>iCebhpk8(azbXBps@UXe@Gz z;w0kyF21&1d+aHc9xejKCPW**+NpL-dtQC1j)U`|r8SZfxEm=gYAjb{3_tWV@=l?!Ho0UxGpH(DvxVepHUu^NSpk`wuikhvo(Z zL*Y`i<(Ixe50pId#KZQ8i88juF@Q_DQ5_Od$n-Y1SPSSkIyFX}v@+jHjV9AttCzq=niT?2fc9{c+USQT&h)z z@~Vb6zY*Glw_xmG(NOkH87&ap!U4Hcg6?+Pwr}wqqYx@4OQ(b>VjgT9TpM3B7YDis zLu0Xx5#@S?W-dY$6Iy+or+11sOLZ8YNzX}UkXy=$Ti=xrWzJd|Ew?dm1y@OiE4j7Y zYez5t%gydN;K~{inhZ?$y6!XE5LzP^N}Qrj#f--7WouXD=Q~YhJy2XJdnD5M4jNws!Zu1lNGns>T+cw?5cMqhmuY-9^|AISS0Vq@5uUzpeH&|aBlBAk=C_Xi> z&#kSUU0r2_^sKZ?FvRvx+&=z!{f7EhnoKMQI@Mgdys)@vMY!yBi98!BVLj~{O!V7d z|M_3O`SkP8KL7Ik`SYmwpxVIRUYne<;5OMLPatoR6Zp{Ewan#V%VxXsg_AJ(#H_DE zJrb%+J3*dJOU(r&Jy+K*tX{Zua(U&1tpLxinj)~eSnaFy^=tpF#U(yZsvTvLpPGX9 zLYL{;S-MJ8KnV;IDvqU3pP<7mFD{=Fi7YHFlW356dqbQ|m^|L-)hIS>kqW*j@L(S7 z_YX#PmDw*M&9w5m#oiD^(MHA#4#Q}~Y^20?V~6{zCEK=10R`cu#js}W-Mct9D<5t! zQ$JA(B8;f*2z@?s>v+MpZDG=35nQ&dkBn2%_o z7`vqhnwVuti|^LNH*&x^$`kdLddfZIvJRf{^XJZ7I=?o-q0WLkt8{L)e_+5Syb<2& z&a~SetWo%B3pSj^v`S@7rxBI_o}5HxiFp?dZIG&6#2NdiMbH}#$!PI}_^JJLwc!Km z9*Wl9eE^owPTKA7w*{*0DiHa?fY2-!&|aH94i1lQZ9V?t)7L-$`ty&UKW5ICh}T1s zeG!bymX?5GA#bTwqr_|m%CYomSI8I$vy%-42BbFde8Q1Kx`33b5Y@-QdogMj5Aix% zqdq0(H>nuZ!`_I?+qI#i(s$Al7$75vd7lzSFoW~fs*vc(^^%WPau)%6_X-3Vsc#2t z=b6cc2vp>9m#m;+gw)gAk=Jt|UjpgY4mC=xwwmcGYKD>PDw8BTGc?9>HdpN`NZ;2; zH1?||&UDzeuR|-mXcXg(zznsYxF0p48a@NGg9oAikk+!LB5ZdqL?Ue_4>TO*oj=-a zQP9JXX3}Mg?bx!uOEPeaq%R=zLg#@Q*zOZg^0>-l&7KNH}N(=|%zy=@DU-pCpQn z_}Bda_C$oI4+-eZEO%tGd_aE=z#ZlnRQIjA1^)I*3A7I*d!Tyg?UrzF6JQ?(QNM84 z{Uk;pOzuG_v^nv8mlCFdNQhkrhKIiS-Cy3gbyIQWU>%_>fA;B{SFb;o1bn>p^!COb z(ua0=moHzweR~7WLsWQu6-Fn3A4DD0uCL?jDU8E^2oGyXCF_@=@3qutPEJAN(fiHK zt=HeuzCOFpbSehy#2M^emcnuN+_`1$nrL@_YH2x=tx9WEc+qWaN+JaCl3tG&-U&k< zO9E*~L;G@X^v{9q5~d6Q#bVMCU`N4olpGnnfd^Gf*Rr>*+ zD!hEV=xS&hAMFwh0(RP?H3gg1%NBG)cq0>O@6K@#<`~_LKt$HCgzc8JgzE+^0qK6w zo2XGDzhLKrDCC;sbY~>q0eX5LjN5-LLj5FbA1(eGY!?#!h~#_X@xv&CRt6!hgIEW2 zO-O!ll2lz!^fcFNw^8RKgxHcuOo7aLL?r71-VUylTfsP-Pd3U7{W$udIt()yo`f*b z9XOg)Bwi?=(HqlqJYpR|!UXYD7t-J0K)t7@pcb1Ce)GwbXRlt4jg5L-fA7yffAhz` z`D^+)*pb&Gr_asJq2H|IDg9R2p>S_;aq--_a~_1`Kz?NzXfX+&Lc+=GSFT)T_MqXT z;$(d5g3(Ta2k-Fu&YiowG0&gBbi91=D(<{^{o>`v&tJTHM2)|7n@aE2QW7_w9Z|rB zawKZJbI?Zk?!Eh-;LV{r(oUz*3WTR#_7;ynw|2q8q*IMse3$^vh-f#EV-pix89YA^ z9zM8m@#4yN9fJXBR8-x6z=$60;=6m!uC9Ij=@-~FL8e3HMo$mO9T*;|4-MOKGm|R_ zAgnRxF04;`S-3wlyJ{u7cnPG#h^l=dxQ>Q~i0ZU-f(-55;l3pRt9Lk`v11cL13Z0f zd`z~KATSo&0uDM2x0IP<@_M=yT9c-xIDd*g1<|F;Dh?%)(_0`Xs3gl6-oy|-W24&K z#tOuqnQUjZw~C`vgI7*137TOF3TsxHCc;(BlOkjJ5ArK!Ja7P7BJ(0UX&Ww?Hjp4N zMl_om*;))Iph|lQohO+->23Om2P1GmH;vKg!grYXteeenz26q0)EGObkLa*VdmkII zz01thu_^1#p!Vi9`-+~wux1bfcGV(?x501VCxNhLAeu8bn-r-8`qo=-iJ3h|;2e*< z``(TZwwta|X5yg_Km6ejH3@kSwC;D(Y^ zK?rW&zV++h{PGt+{n4*}{`F8Tnz0+<`UZe^9F^*l&8Wtz0Bw(;?$I)|rxaZ* z?ZteT6@`zQR4cpOX)7581*CGNVbaUDCjK^4VmKOShI9o&iC*X`HbyNq1?2S z$zl_-&a6@g`1}6*?+H~z7e=4!ZkhJ^xfua?xCl@h8Fm>o)cwfeGz$sdsejU`LRYiE zAonZCPa}c0VI~pPy&H*Csyi_~Vd)CJ{4_O6s+@x1kom9CPp^?HzR8Oxh{mZM-QA4F3~sx4!rkp5{|{hGp7=9zndt z)&2wl^DGk&*+Sbx)N4}S8^b>CIIS>6vdivgX?20c$G8*B_n<#DZA0VhXeSsjeYLi= zTA5%PV85__u~I3Yn4SLF&wlz3|KtBa{|;~ViFt7=Z@^U2w@{uGo`V_<)lbaLK^ywW zqeq)OlQfy1fAg!~|Fb_3#_g8@Gr`f&$S7V4&9KmU?YivBw0buEt@VO1o~{@7;)h2) z+%Lc!s=IR`*=R!iC!`=74?z6;wm-YA=f?JZaV8bHqwj2e~36SPM}MRv)I z)Sw8eNjlPP4Y?-l9lcL8r%;_0&3!c5?D-Dx)keuB9UvDL@&f*R*`AEt3#~2sK+)fN`X9hmrl zK^B#B#-wwnOFQ4B@h_Q$#gV{ng_Q9iHzim_evtNPYbThKrM-45+1wV@SZY`sT!AFD zs@^tqV5mTKw?+u-acLNemJ8Z!{4RP+dVj^bO^{((^eK}{RSFWQvM3=hn0dE7Z@M&f zu?-*9rIURqXnb2c$Wqm1Z};HyZ5>*;7lE*Fzyhmk)d~X4To{))uBqJyI@`6>tk-JM z&c1`>(q+8@Q4u}R3hl?DGiq7Gw30J{?cKT`bmXLE;yjf&9c-x4-g|o+{c%?w@!j@z z>^JSY`Ko=f#yX7-_Yj$ac4NsA5o?0&rUQ`oT-)CSk|XNU^wQF-rAdOC!;6to+8IBMrVv zmQd;;R0qy587~|AwOK4HzD+lJgL#1a%dN zRdwAdSTlLFO9ZPzzMK8iw}Jd~;lTE2W)S^=VzUE{zKyiCwX+INF@5pH?Ck9C|L`}| zn7(=+ndQ?@KKT#-`+vG{@qD4DfVWRgO&9zarnYo!X$3>$qtVp8T&@JX&!2?EpMLtq zFG%yh{_X46Z;0s(En+Kf?b!Bo^&CKF0wIPBa3SdQuHxzJXJ=48(ES=&CJ}0G z-GA^PR*G9U%}wb3@R20&11Z;dp%uGe%yKIF=1?TsIQRv=3SAel>l1UtUcla^<9)5h zz6ik2ojXs?;S|dha?7Vz?mc)Q4SMSInQN-0u3SBTX`KQSWL|^HT1|&Z9`*P7uS`5*cPqc3hQeW2Y0{F&n`z!x^?4<1vZ6X9SE0n?C{Uf$H|WHh?36tAZ(- z*oX^cds)C*R0Z171=~or{L8c{3T+Z!j12Z`GQ&R7S1HX*P4JmaADs-;5^=(3R zYPq0CY(z0iQW?JE*h&e`A3ch!$L`XU6Y>S&y}6lw?|!%BAv_OvXj0R(dk+9Z8#N~} z+fnpXgs~@x?_RO`|I5>T#z>lF>0t(TX1c4(ceyN=WwX+o$S@fh8R@;RO7E&ND=W); z+f{9A4IT94YYe#oZj zAat}Eur>vjZm37MGo8(?9SWC7^xT2-%m?*X*BYYM=~Jq)TzxPl5meD2mTOUYdOK84 zF@#!z465$;z(S8DQTV*zyE)@X8f44YHi)rm!96-Url+$7Rjr5#SH(9C0q|QP6$T!_ z^alnR6ve&hx}hkYAmIJ1Qhl0?TZxyTI?}SDs7WRyj^SN=IRG_)9dXzf#6Wu@?%lzI zDH>BvMn8s*2WSfm8?yYlz;ONBti;yRmN7hPF3IATfOMf+>A%NR9yKFas+F_tOLnI_6cCO16>5t?DH>v@WUTozrNMm+XHrF zl&Sl(kc-t1y}xto?()hy#XDQ*Ks(V|P$pD}irA zz8=ORBm}Na?8%wQtJ_;0<0%FB;T zJuzA?7BIby)#aI~iBW45c6UMb`*&~6U!L`Y+IyHJ2K`}P#_5w%|Bxb+MaBgdX2}Bw zAR=B-8mTMD5AYAVVvNK56DJ6#rW@p^!bA89ynDpj^hpblmkh6^63v`QP#awbg>f%en-sbI?q^frYL6dwcjM#k2wr z4a#LREyL>}&;zhbHN}D%q@`b@=>*%Qb-Gk(1tE*8g!)xcQRpf*^fQ=k8>-gfv8B0P z(+kl|eL!FDPv7$!OtpTFrZXjbq?%P(9Kx z4<2l6Y<%|gVQWi0rOXuYMGD63<(bY`(zb5dD5tEo zXnfI&UZK+WB~6AT!$*MaDV;_}%>a|fc2EHryROL42o6t{LF2)DlccnqLc-_|FFw`W z)&f<~7=Wi($>S{y=O)IcVT90&k z0m@XM>IvNtwnO-oW*^1iW*=D}+{y12`PC3|ZgyHk6=?^mG>&16AvzJ~1$s8tSFBjk z)6-2MKXfp%=(!Y&WYAC|xK&O2Oi z?mdJLkmro2q80D@7B!wXLJ3cd?>v(_GNOmiC}8Ia-@bkG$3OY;#~;1v>*?mVN*7{n z!L><6$wBx9?sz(s(fAMEXz8wO#;%}xh!d%)Zj;`Ns+{CNdbM5+Wtdi^U7k#|Jv^zA zqbsZ}e02AUOb61!B_e$b%5CvRnJsci8|qy39O@3$)aA&8Ox6iSJi~MECIyjhr?obEJ$ibLWzdVC_ZMcd8w5+IQm*xw}l#0+eBJ#sLK$72<&VMDPG>Y zwS2A3L7Atw%f_J}5XndZoIWQD&I~i183qOh*u>-2XSD2bjV{*8fxKYT^zF#WQ(mW9 zSE~Q0HnDJe^*Oee)G$3YEeBW!V#y8ltr>7CwcIU(?d~rnkjXYmNh+v97_HRWogtKn z1=zjlx$_Y-W?Q2uI8|r!D`l>jDTai(fWROCE`+^-KEq$wRLqpRo;LnxNHOu2hGgd) zg}!PTq+N3gMJx3UP2z5HlHDbIJ_>U+S!R!FE-^ZX4hLUH%z-wrjrphd;TTyWa#At)~E*RMv|y%1XTZ@QE@IAA^MO6Os!yMmOE@ zaikrS9~m9df=2jEv815k?99y4;-bejpIl!j!653o2VA|n4$-HkCgl^_j z+$%PW-H9RXavQ~1JqO@Wo5oI?3fcUMOv{So1KD9#@U%nvyLS^TyFj;h8R}_BaoRt)z#PQ(oD@? zkr1b*Lx(Y+u`ByJWp`=W0$#lVV|U=4st4QwdlKFWGWH|UA#^^bB&u*4>v4XuDryXb zPrN-=!LDFC$_>1T9?THp6w+uyKde=H3^^kjucUm)u8zE1O^-cYMGE}&O^L9pQkWj#7?X4u|D>YAR@3G!o&Gp z@5VA`ynSyu9+#7w%-Mm(WD}y8*oKU$Y%cHOFE1~A_q$(y_2qZ^y1UpBK`y@=8ao14 z8)eRXcmH4-L{T{u6)FYlnPYSvs+)irMbMVaYtg+wOLvkg6U$p4R^bBVQT8Y)jq?34 z*S;iL6813BV;&PBOB){9Gnl-h*LFEazQyy1>fw-=4iUhBHuQ#YiM_jV%8djZ+U*T5 zfTC3WlP4u+FpQin5GEFB@aVA_cusF8`&0s^9*ONXyj=?#1**->c?vv`|N4_P4LXLw zzXXM+#B^L4_iJ(@Qg{JpZ4Qga~ zl>5r_#oMij-I6U(wqZN_&V7T4h(-)j;Z$8uPoLt$R95Vwy+@;%YIQ);_hU^W$um-c z4X)@7X1OIsG|?Eu0JMTf+#0r1QMh@hg(=RQMXTvs$N@;N@MH_Nq7W2yZ7CF+0Cv4Y zmA7H<;2m+*uY%cfkno>AuVE|>jw-H`Ew^Y)Pca2g8?OBgcvF z$u|}xvMc7Je?T5ZpQIZ{YYd0Yj(LBA7ZMQwU37?|mo5SR!?)R~F{4%wJhpPzk#% zeI2~Zle}|J?DPR?U0l|qBHEO|b4$e5@sn;G_~zy{LX9}W+}s?)vAVkA(NAk)N#*fa zj#y|n)t~;4=L^wd`9`dRhrQk1JtU#4SFec?K=m9T=;-Jh9N+~o2h<*tjJH&vGE_Ek zTk;I{-ajyiod@lY9!dpZE_fOud%4_I?ot4YE)vGQ;!@aT@S&0b4}%YJ};%152YzBsU?lHyY|tqe9-wo;9GG=L_B;IYA~g z83-#AGSX4#!Uy5I$;E>f=s|UbR+C;~4^0J(y}xICXketjXL4k4VRlNc`{uRv&CLxr zoyt!htrP$nF!3H%a>3#oBvneYM* zy)TYt+x6ZqaKQqSO6;@3=)@K}iyb}P-KGFKqYwfs|KR1b&)$Bl%8%!3`l$8+;1)mS z%|HWuk3~SNfimI_Pl34!C`N^-!*Yv&}CCsl^AkOPVNOKy_WWN!_j zvD443g-(sO6I4*>o1;e7V+=(?nR3nth99I|M_*h$dOuzQ<1HGVfppG7TbpjNkq^%c zu?mp9o^u!LIhxL;HBzl1Bg^05 z43Lb4M0r4wLSUfsQh;hOkXX$?*|PF5fhzehE}QUqj~83m*ZrTqV!=jNlI4s3_%gmz-P zU@KWI{ow{iESK2vbBi5-Wd@vz-Jo3UZY&_L1b%19Gs=4j`#)N*-P zQEKu0`LhT2@0+-4+V9-H{U80wfAaVK!QcPq|NX!E(T{&RG&BUh#5+*O(Xlbw1ysa( zpFWLnB*u=zEAG(jiY~1NM>`bZ(Lrl7l~wa8x*yV-b_y?taZAh7SLPO1Rz2eFzzspw z|JI+xkbtjJC(=GPK8B40La?q00Mb6EEzI(A^e(U<>)0qketCImdV11)hpQr+a?WYp zLaM8)%TOJL6X!8=0y}2Tv!Kt*v;^r%@L`K+ISUG-mX>v`TyaK#U0jvC;}h%aYYPiJ zmqpv$+-1{nXlT$Y_Ordcjm%SDg z=~{I;XL^hL95%!AxO&B~w5^tD=<4d}?TM-xzK=C)lpD}p+T*sN3F7b2fGVOHQ(8QS zJ1BKcSj}pQ*t#HDWf3t`&Vmuuit;i|4FpDjQto7(yAZZ)Yo@uORRgHL;mMb8zdJZF zS?VeCVHK{!GDcd%PJpcsnu-)sZ5v9QpvT8u7SWs6=R9D&^ zdV3_v!1lwadn_aIKDHI`j&+z^1}d>4mX_6Ls-=k|*;_6d1%2J6q2BVH?ah~uAM9*y zTwSBRk28|$h1=R%EUt%>qeH>H_b0tQ^4o)YS^ucw(Kz(|`}cEI0K3FZ8(Tz#hXAG( zu1;DK&? z3@M)P@woKMQ>W?m`n$xaD|g{9z}z{bJs68tNK{7)gGj3f=@33r9GfJ2wj#rby4(Y? zCn+efUD%Qn1KTfIKD(|_xR{>CxWjgI9l1q9B360$aI82(3BqtR@IBAGoWN~}gq4CfEYF;vNPG|ZTT<5-1t zqa0#-8g8_nkenIa&bWjrxseSvyS-!H3Aa00rw$~bIV!^0EaY;C5Kne-Zg!x*?{|LZ z8;(l3(C_{JAN=XBe)U)X$G`iB|Ky*&OiNT_sxmrA1Cqgn|E>Y_t?P1WvWcUDCQ1SU z${o=rrMtgRlM_Xq<(}?H1(}U%O;tJCnolCHP?5?JwLDW3Q`0(Qcx|2t) zZeFFEdu3^n7QO($6NSDkThbGfI9?5w$0nku?&9L|#s=a3hU62L#Rq^k0Otz`iLxgM zHvWv;BjWx*G221vf#m)PipOLg_Vs~N0PD%rSu6PL!}i8R`ce4ceEm`5?Lln10M%2Xqn+gQ0sgAq zdD`ODdE#?myOv~44ukWK?|BQn%O*Thbqr}XufU5;2-r?b&$KiU*|pc8^zuNP>T5Jz zM4O=;W>~Nef+QQ6!{>lkac=p>vk$-5KQ`4~C}4+(1fg5h2~q})GsL7H=pZLJn>t*X zDF&R)>&Bpw#tHzJNahg3r8A^d#>gD5k}6-}?XgZr#0UoPfX=P$o~{qoh5hwIA=s+h3%+c$SK-TLM`?;tx46(I9)r8|RP zyCR05*6xn$Lv_Z5ILUS%q&-a?mWoP%yC1NoL!?3O!`s1o?B|dio~Zb6RPv1-ELbqZ z(85qSdHshDn|Fmm9=Y!5$V<-rKsUSRPrJ({r{VfDH$LE7Xe7mo-X+8>0_PG{s5^vr z01hbrNna>NL_N{6Hl}K_^ zv&>eS3?R|+SfDCb=)=~zgGr1luYsdZ8s z04fWRbnPn$?3^4CLJ9vtm;>wO3J_RC{ymAfN2C!+eFp535TQDF7w{E#L*l(#;qAW5 z%O%~@18oV(1L2`M$J0EBS5S9TGqu>3Lzx${E@-P3VfAjDE zUqQ$9tD6rVJ-z?%$=&;puWoIRPfG0*7VM`u1>*$A!+O}psr3&Ik5A3aFRfaSnIeIK z13FbswB`B5WhvkCgar^O&#E<%c1#|8^SprG$nY?tZVZf$2`tiKCJ@hY#c1j@J`g@)4pA zXjs*f?$yJ?&W5$}mjsv|N5!T9YDoq%4?U*^`6rtN=Y81Vt>{i(wBhHDv$M0)iyFM( z-j37ORmQ`4+u`+0OiXY_9E0C=4BjiFf_eg{fGJS&UBJ%gEH5osm_i~lh~}NL6jX9n#*jAiX@;(g54^K`mppvu>pH=F zUPv&a<1zz*0J;a?gS3NpHbMlzi4$ximGe||^G5hRCHU}4 zNAP z@`$}_mnFxGYr?u#jP}KIVPR|(d!R|-VMHQm8~K)c!sw6;S)$^J3lbklz)qQ=$#iuM z=5y8^4!MT#PLpv|A^V&queF^zeg44vL4f6oXrjBC2p3J6_N2fxA?gnNLR|w+ zPKPHuUX(?nOj`W0p^+>PJT0M3@z4O+(tptMlw>8Aq?Oe^h_<_Xk`^VSW8m1Viw`vs z5+gT;X!0mMVzzE5qK=Vxg0%2 zdBS${ByipTBYvQyiWv^luD=JE5BHhrH4_cY_=E7tg?5exo591c^BMo(5?bAp%cPNr(!=L{2AODkI|JDEYf4+VDnbMkT*Kcg!yhBC-+AABIYuB!? zZfq{EZ&2kWqmNBY(ak0Bb@vTwsIq$X`s&p!qGXaD0y*W0+tlV@)Rmy2CzN*SG$0SG z$vTFUU>qs}aDVVHFLNR*Io~Qyg;J-5DnNK>9UjqRnzkH%`(s%M)U1P?7A6CR+sN|) z>{f0apO8l`)le)al1_$(IT4jK6>_&1=pjP9@;NyjqQIh}0-7S7crj8tIWfUa5HoFU zZxdcJ1|L3p`0CXwFiQ?%KC}zN%vBWleM-1FKs=$SIC9vIesj)%H{7;KWt3>+g4n>d zuQ+SJOUP=mOi!ndUtQ_cOweMQ{jGuGt#2miOm8#7SksBy3m2q@Bwl z*iMttqY!CUHDrFF8FmiJFx7lssXKm1#*OT4rJ56?^4!Z33h(Y*e`u|(?aiB8S8r`^ zy?Xf!)&JJJ@7RxwkN{`lC-mmD>Ll4U1rr*vr^47F%@#jq45j0nt2jIm@cU4mE@YzN z?Z}?!fU`D_AcL*qsyKJ^3&CQ)#NZ;!$jVX2j@b!ahIF)Zee3aq`;On_lhf`Nn8okB zy9-kX?`9cYBg7eoPx+)cFXMRbtb<_)+(h4SJ6%s#)s^J+xGjz9cJx&dSUg`B`AXH% zt&x_37)Qh-VY@(QU37F5|Bw~fZs7KGQPE1!UZJRFTiQ0LMJ8OhLI)43f|T@mq*hIj zwNpU_qk4iPBRvum)n|y?ZqJ-}03NxKgdh>sfOlXjx8)19EiG8O^$U^qYEb~~ zi`7rz!}J;EfMjD?!)%@)Bmv%rv}@wQi9y}z*b)|@y5v5OHUt>ifQiIDj5k0q-9-QK zI$IpBNGjHLqmdqZmQYdzH^qPqbc7$qf^|jRQV=8bcuG-}veS6Dbcr$}nkh3=NBqcs zX=r3|gaFidF{&+XS>!C6E6_~a)wSgcd=2X}`UX6v=U6+2&lm~wiAccrfcT*8kpKzX zjVNgDV*)f07N%z%*9XHm1^L{I$anXy0~6*&)LE`H?@|iT`E!X#q?YUrI>=QQV9}tq zMWvxWOIFegGn_p&HdwBD%OCynum9d3|It7D7yrZG`H%l>sDHR`aAa-?qTg6q-yEB| zJT^7Ews~Xw_We7Lo_V}+`~LRrdpGXhm;180b9?9BpcT93}YP)#G3-cj-c_C@=uROnjo)46i=dXNMhpphHZRe3Z?hR zzX1Dfda}2*OHUqmChvPOmo5%6~vSsaQ` z3jdCicYwTC9J~O5qoNK8s!A^PNG#G`z*kr|MuBw0D*^lJ5C}n@vuOCfR~nn}C3>WI z7K&#kVtr@fLv4^=JgSR~&KTm>iqpi&@Gu&?St?E@wT^JnC|CJXLm)In5bHmE)|v}T ztM^`g@(2ABtH;mPv9>$|ey%ivU<;>D8h6}s2#IP+Xr~4Fi=R)q2YfwT-Bb@$x0YN7 znJOF&hoX{{zW~xDI#b;%k~pQzru~a?p``GMxG5{ zIit$M+++kLYgJ?rI4rCcQ%q=K-#+lp48e9-4ARYYs4RPj^8y>a5^4;Bb@(t0XCNQ| zADT)wQsM#Z21LD@mQ$Xt{cJJB!jcvEEZFE32B| zS$?mcf`R3>lN$5PQcXjX?vK33x`t-5Oog%YYVZ{=vxN>p_)?OJJbn1DSLK=W7kBTs zO7(sQ+9>kqHi1Fp)@=gUOfxF$Cc;2N6m3tBr<7`X3%NBdJQ8psJR>naX(VxteEEn> z$l%OwQ`9I4!@_s=MHTG@i3s(c3k!gEbxg>4zC&U|tCa$a@?s%;z5|UXq_PCQPhw|S zSyvcs&&Ixp3~e8;F#HTWzsIC_*Kx!X|B1hN8LoR|6}ZnvCCgqb#f zBmXoSMQqGO18RJD2<6z^SbzEKi6-7?7=Rxd?6>yB=imLo_kaAeKl?BK(Vzb6&tJd! zX!H7w<+TktEg1XU(%Rhe`o!$q^2XNfhfkk=@bS{st@Z0S*SBwNDJOdN!SfG4d+_Xo zm8;u5gQG}iq&#*MJpynS!AygYvPalA|K!5>3?&EV4=eeH*u^3Y3>b$Fn0isaXpIsB z>Wfkodb&}2uNJJAR4x-h?24!|Ff?SG_=z!Mj&+@e2BjCG_u~`cCct^ircNT_voo_- zRDdR#eIzPjDKNAeA7Ev0ev*(!c|K!f3FL z1z|<79Em+ic)?O$ymP2IPM>dS>s;A<^5WCqZ!ZmBXlR<5n>9eFCEP)XEX;GX>X@0# zm;fS*0$i7g<_FOR69j?wVS;(RwIuef$_R-!U{DXV9RD&vOlB_5d#^l+b z(k3L6;o?R{EcWmwk!wuMlR+A2awzdhYAU2ZQtHjeRgppRY2Ji4ws9Y6}w33GU zW`2oAX3zxA(@dbcy$Y~fuCQ4Lm`jZjyN-H#{zP<@1Sc{jj1HfN;gB4vOAGc2^p>B-e?@g=?4ad-C4Q*33CMfYS>gQodg+&TCDJa%ePMB>r(ep!5(Xxi z>=v}OWiYc_N=xqEH{~EX^_-$kgsE$3vw~l}k;xO4M%df}wj@R}inKWyDS*AUp+Q`g zlaZ7mk;+#1tCRmB`Uap3zimH>2Ku?PZWaJHK0~N*GN~LZJgC%htD@By2F3#-99mrJ zrxE$(t`tNKdK{T8HfJu;g$`s3T&EOi8bkTV@QD9sO`iyQsi-BkL$iFLgHR)&Ae_oB zxZ<2t4kFM-{_P8m&t-Fx;NRV~JATgKI&`?A!+`Q&4-AYGNQ$B1=`%*DVHgDusnP`Q z8x06mczEbpb%eUOfs>;nhF>AuuBF$;>I%N`_`!pXmF4x7#Sfl8+uppYs&#RB>3hHX zvmgG{x}$&R!;jx;GrOz^XM0C`m-*$j$1gqv;F~w^Z*1RQ-MnGDcJtn~oAv)RY;3>5oAauKweoUX3l)G)sWm_@HmA1 zqUt-!|0BAZFXUme{1z&!@F<`o!sFqLkxgoo!~1P;(`93Bz~DX1B4w1F+NR|X8poj(tq40&_g z>{VictAmSrJS0d73zi?5-Fo!qXZfySj_|@H5G=@i0q+po zk9Y*^#y+%*POcP2e)5a664VWC>@mhzGVQkTIpJTsGbWGyod*#)7dI zDM}CkfKrJm+Z!ao?NfDCzZJ#$y2}h3#^?IS8bb{Yu$|xS>Pa?YdHFufjXM<*!P#mB z!?2xojx+|gm`w#3;T8!ehPsuWY7o|@R{(5Bn=v&yz4RCx*~aFd4fQSZVr8|JOTE42 z{$hcuR^tEF*S6JJTdXw?!*!*C7e_7URLP1we2jVVIyA=5#Rcj4Fuby*T%kyYH%?r( zqrvJiUofJM-r#_7tyuRu?flE-~8sgd)=9|x@#`e zZVHPolWHwjVD496xODjBX?Zfu?b!hBBx1-NmuMpZSxK9L|4y1p<9Lzw8lC4Gn<0zT zfn6atkvT|m@t=@r_D5I$q+T2|Rw)&RD1@&7yZd06xjW$9{T2V9ei#YC+XGFboeXFN z=^D5g`G!z}cl4ZLsmI;Lf2C!@c2YY*MluX+7fYpwWeaF(gsYqv=mYrX#vWOkGPsUv zt}9pSqH1FTPgZhgM~BJhT|eO$4P)>wg+7J)gWf~+3V%;fZ^(r^!3^N+#xU>CsWGv^ zR-BcdQIVY1WK0@|Uw!d~Y{L6@ZtD=mjYol=J$`s|dkb~l-r4#1^Dn>mv)_C1=9Am^ z9^SZpZ+&xz*rGoF?&IeleEQYS{inAcy}JM6wc!&8Ww(1A!Shy2i-R03BWV|RCtaHqUQ)>)X_Jp|em61?3L zMw`aoSt_wzk^Rykp3(~2*>LRL9cGfie!dW$Uc6P=;J-Z}|K1W`?(QX2^;D7@?W#|T zDD6cgw!aVmr^)*vKS#Tw|Aa-;)_{OtuntZzc7T9MhYBc!ibXX1&Vw}tekOc0$guvv;UW{ruq`kXKA(WKP^59Uvg+H|HFn@qK>+*H> zBcahG+`m7xjE=0&6F24yt^ zUOdI~Ipb!+3Bj-9Rl9e;XU`7X&N1s==nty?68 z_(H_3B8yDz6+u)YM!b@C#S}Vs6yA4P3NcacvnwF!LZ1XJD{tSrF*P~H2Z6ROj=NwZ z7VUa(7yKb}xkzBtl&{D#3D-e8T`KSg2b0=Z!5mkcqg@HG3JwcCu)?GmXpCBU^+w(4GaktRaNa8-0E8N^uq>=ly5TY0B$>KMmDXV`%~=6X$_%g3FVJ2zS>*}u zJz(*;Q&xjIecU?iXNP)wry?zFNUbK}WpaA9P%58fKF(RFwOMc&Um}!SK{dRJ<_v_a zma2Iv*4q}i^f9N-vC&c{de65Cr@pU**oB4ZvfYiT3cS0sZX}joq3-S~G7<(iC`#n? z+9()8|1k!*Z$c{APpWid^9{tK(H%58F&<^uXp^ealv!yYgToU-{U6j*X7IeGW)RmR z0Wx0{U2{Wn9i7|?k`3HueL%E=5MHm|mFRl}#xfa#8A;g$-kUnfU=D=zY0UGIOZj#Vab0dhNXL^l1$a>*g({c#q9By8v z4cxqa`^z8y{PF8g?mm6>^!3~AI}hiUuP$G`e&_M?JC9#(-+g@R;mg~PKe+e&qld5F zzWDUJPhP)WSiOpOW;;skDQ(1I(=l-A7<#;w1nH3l8p?YQXRWtiisO{_DNtR$jjYIC zMfVevmbCCll(Te2EL}D=?GfNp=4s$0d)b8e_T(f{WzyiG;{)@7p;6!L?HkPIixZRT z{ilYY-sSWm6D8)B#6Z=^&*HmHuxN=Ij- znQ@rkEE^P+l+cjR34eMen#7a{_3ct_z&^i#6UIkEDv1FpqtCcefPa7%C+A%X7hspg#eL3X$}8&+p1t|S z?9#2XH7%oKlcN*kkjJpr(ibH*FQUm6vL@J{Ji&l0=?Bq>jB`$#)%62|i3Ya0Tzjch zl+i?bl16g*@-$P1QCG}FDos76fi?cYm7sPzNc*fDp)u{ZOgv`IcRNePp6;^lTZ%M= zghmJZW#?YMw*JxUmzKkLaQnvQ#_FBhJJVC+_?20$#9C8sVL#%J5Df#P9~y#(qswaumsz=$r4tSxQS*<| ziykmT)OEBQIB@+XCJppi;-I{-u|l6oNTLaRBp2BaLt}9}wKFC=+XyRI+1~EHT(&?TB5<@c z8DxcaOCx2wrE02^u-ZwswNQQ1kyvWnwdb>7g3+(W7^u`kg;ICUI;Yj?%%n+&N@G(N z3O@)z)v@4Dz`LX#A`@V5YG{`&Bho@K)ijJFYn?u!jk|YsSAA+?T3?T1A9=5b1?5k- zx3#XXEWLgENpElOo`Z*^h;yzNmRHZ$H5{lqPNl+CDBFS}$RV6W*KIO4DIo%^5kP2Z zJ$I?@M9SHbl)@2tZ_gf=*A~E@WEp^r>!z%duO)Yv*j9mbqt{(_sVQlAJJTQTTcoX? zG%y(na|gQs_x3|h!IuH7TNWK;q`TAJQ>m%vCr?+qJbW735pVz#Kt6?51yWm&k&O22 z6&e)`qn-$XI6QKX6i|4`^Y?iol~eFDNITc)YivJ8fHC4C9ZND3UJu+IhJ!&)V0&a^ zDn(R(SZ4}a1Jv5qXuBG>S}j%G7*mo5h<+&y#$p=;KqD=dUcU@i@7x3IB!eQo_3vx4@c%d?lS&}XJKG)Rf=kXcf)Yo~z724IFa_97Hj<-&Y>R&4?NZ29h2ibdC{}P&zM8Un`HW(PdCa_{ zlKt)x$g_#yJ@2|Hyhrlm8s;4d7-uB8>mkNQ>bu6Otu##3eNZ~(_&9Agk}fV?l2}s6 zwTscZ+sg-+VTVrI5#1Ks}^moWEqYX0m;2o6nzr_>0cI$;K9aei}I}8jK^r zK$wdP=S3g6fin3(nJ1tRb{RsE-Ju3;zkcr;wT;RcCv9S1#9+&-Z28y4qVi+gtN6mYs1c0^6fR zSQ>v)+9LJc8m!Tg0FrwI>GB?7d+0MKY3M02G8)=A)<~71$<#+jcRxoeY?U@6iQrWA zd2{pI-}&nHo%>e3_F*ogAG8LPe73&cp1I4jG8{pzER;h>t5hn%@S(A>Nb}T1P`7gp z45KQj33~_rI>dr{dOy8g%NqL9an zmTJ{#)X?qVp=VehvW(+Dd`$fP6gGu`Y2n~U9iCUH86qn*c@RK$g)V#z2LRid19rs$ zI2;y*ROF~^j)0wU5`f)!q3v+!!hdVjo>aB?Ij)y61K~}VNIjAEPqAYXE&-D-3Xy$tENt%T1)t6vx{i-Y(kRHu#Hm)u#E{=?h&dtrs zNQ`EA(d8R`#@N;0UG$7pf?7Kdls>##$QnPA~~yr_Tnnq06bGqy0^hknk@+RijDPQ zL0kwU#KZ}`wyv(!QNTzEGSt!_qQ{RTPjD52qWcNhwOEg-DsS;pV`*ys*25Ryzfi9{ z1ShIv;r!ZrdqUiRf`X)x9z&2t(L*and{RUWy#(vhWn}TGV9|e=RmpKQTGjIviyfC| zret0Ph#*FX(8b`3loO$=MBU%#NyBr;CeAB2#hi0;e3RBT0gfou4D28=$?%UWmjj;G z=|GQfZeRQA+i!30Y%R`TzIAiEx4T5~5EuhPu-7k&1DJf^op0b2;4_{YJ4D)39Y`b? zA38)T@yUx?ga-|+0R%Rg&&aVS;-`+=m9!sn7W3rMG4IxDMtaYwlWLimhh33`xljDE zM+&QY@Us_2bp{SrZ2bjk?4jrfV7plrCeq)loQ!MRSM!I4B1$cH&LC~1K6Ryd#A4<>y2Gwf#p(9`hY>1X{^`NKv}XbYvQm1tP*jt_x?h* zFW26sz1Y6U7=2&z3>7N!FOqrz;n{lBJ>_6xgRw#f?JcQpiNO2VNx&Gq-4NE83(zyCL{U*9IN6AMKp4O>E!a@BFo zfZ*Za&@cu=lObiCJQGq7JSTH|B7zAU5eQO-bQ(Ig9$nHlrOJR!1#5tv*{w+BoUF9* zOgK%EUF15#Rf9iORlC9=xtkY=uA?V88X*Z&Pa^6BH(wM%WqJ^HwxY6Ihw6Y4c*NWD z@a3=+mKEThIl~YDXWf<1FziU~J&_c-HjH^^7(R!@O(Y&^GSuFl1^aU6p^6PztH>`b zf!|<0;J;V6cyTCbh$-WTEBs%PY;`qYH$P~gMzsA0flomk)5ml3b!ebZc3Epnvn#;u zwFtZ7;r`xez4+?mPoKQ`?B0uy6`{X+``r)Te);ite)#>L{qZMX{^Z`{SHz8CSFdWU z5L++Ci-C?@I;NxHk&2Lv&d<&X?1 zE}^2wD-c>ZRVk3B#Z>5^>zFg14$AzuqC8`;&PeLf?BcSmQ112Wz6GnhQ#!gQ$T__7B-4&@NP_KxT|NoznF%kV;-SWrI{k`Z zg3p9j-_=Fd@F$R(cH8EY-t{P(qBRNlZmm6ZcXy-B!%k&zK!GBJlzc%w#wt-_(uCq< zwK|{`X*V2TyUwkWT+CC=nObuFqqEx+m#-Z|(oR$vB~+qfA$Ry_RBMVAY6})waiRSp zn<+^q$puC+wE&VcG_I99>0pRbj#@;O8y_6$R3zslU_ayl(8M6RT;L?j$ZQe%2ke-3 zkoNQE!MNKRJ_r+$Y2)*=6-E{s+*9rv?5Ea_OiheDymt$4zo~v{ZE5cEv`+6ByUBwa z2fIF~IoOd(xhqKbQV=sqabjwTwH-BcqDMhQT}47MFFyobfdKLY77_TQ!5$4qUlcH$ zfXKm!xsSq!tNuQNrLU%1ursHQf8!h9a4xPY!A@JK*_kUN!=vUN2?7H|EFpKMwaxUT z6;#5eUhx*j4))PWI3q6R#-Zy_9pN-9K|4zAh6Z7)Rfm$Jx9F@6T9q=%Ja-4hAd3ar zkNgG>PCH@k`Fne$o)Xs3{#aHH!V{-qo|_C+ zDMqQkK_puygh$}DMvsrBJbls)cZ1&%sWN1Cj6H3_))`BP$lU#dzxB6gW@ca@Ed*3y zC@9n2hYue=f1x=xNdYKF5MG#r`XM>w*l|486cv|rAgP*4AKoSwfu?O`FNISWdy1mA zR$43?c~lxes(5K{1Z&->{goS(upPqdDjbEJaRL2QxKZH^xoUy!y6O>9tUhUoa$t0fo*Jy8Sr48KsqSKw*- zHZX}ZhLbrmJkTE_s3sJ?LJ^3}Cf%O9*P%oAr8mRH_<`^!5|K6w1WXRqFV z_3iKdZLpnuOsay|v|8yd*+_>BNhhUEhHlRe*kFE?BIRtS`eH@^!uYI zAk3qogsnqME;nSyPe25m$KF#<0^PaK#?lB>chj>rGcvw>7h`D&euPuwI24N=&F@0K2z*sw^x7&bu^iEXwphH?`kryDKfwa$Gp8ELB ziwAdhWJ2D%ePeEBa%KLq9DY`VA@f7_Met$WuwD@=U>{&^{#6LP{vncfjvR4#p`4$J zaGQ{1$`FqD8Umlb6AVVM)R!<<3AwzPf!vJ<1 z9)X8pr_Nk>_~h{~{_qd+4NSs`6OT>M{#b=D|K!C7ngl{I&5$7&&~+LZ1#Hya6{Kt;>P>SqP6$iiO|D$xTn|Mt)2 zMKCJnk-&rEM$V~n&S3JV+#TfCKQR5TtxQmXBXVik9lM31R2n*5FnR3A7>d70P=~p| z-v^Keo}lp%IDd>Sh$iiXc{;p}{OKwPtVxXj)~@%+T@#w?R-a*8brays>8vk0Ua=a4 zcbgqbw>4h*1@_Nt^R8LR;Ij_UJ~CLP3P_$zR={H%#*rgnVPt5KA#qh9N>90jDNRpK zSlZ^^o!fu(hktWqXlV7?*3%E)K79Ex5oYJ!6UC>);}ebTIc38nFI|^m9q~ChXeclp z%E~|t7#Ani@QU;doxwinhT*J$j3C(V!#4HgS?t%>DXO~bWOFE5RJ@>S`5c%4^+DQz zWIitu#Xm!aP|YjCnCeFTuFs1+hVIPkXbE7Ehn~rorstNX<`2$JkL>POWa++J^%v@+` z<9th>iPaG*o9B+C=rr@bR{-+NK?U1^IrL*1oQKU9J)*nfr7)10psPm>M_98Ck9ndE z={$)rKH#@F3&?-63!%oue%doK1v04&w(L~ZOK^N7{C8;=5Se>XenU$=p771UkdVl-&7Dteeua3aiD?j$KxL z-Q)TQR1Cd+hdu( z&@8J^RUr;H-`-pRdy7Spqo}9Vpyg(EOM36`xw^je;j5>2Z(hgVKYH^*jq1vknX&#p zYL98_pg02Z-e@KvNy&{2O1B?MJ6eb)Zp#Gh*}a>%z@u?=Brf(=Fv^sNXq0xCPyzO| z-27>Ir!wCJ^%SINT17rHI`vM**~u&n)0jLjfz<92c!e#}ROT+vN%E#dE82SJop1SR z13;jHp@TxQgebpo!@LYZo_cmcK+`Nwsyn1GKgB{=UrCaYcPfpUCKlzQ!l|$wu+wK? zyZjlVjx3k(rJ#D~?OxG!!DZ{nw07p&%k9~6HrG=q;O+hST%T4wKB+&wFbL4rX{TN_ z(CM?->k&Pe0l3!jArO;@E=F3r{xB9%wVL+v7(^AQm*p;ye!3bX%^1Q~P^AG^ov4;8 z@aup1uV1}+qtq$#`Rh^5DF0_zzwwQ4&0L=S?29jD!tjOZPqu1E8)4;(ftRPMkwX0G zIL)R8UDu~l#dY*0kRNl&vaOc(YtCEVb3{)vIZnQ@{!iM(xa}I{C ziwPTXTJY|AMpnQXqxzz`2@HX@BzEU*QB;7c@s67U+bQf3X{oqr0im%Sw8-hfgFIMw zQ``dC<|g4YFjg9j!R4n(I(9%{0rHW=7O9U%_8vUgH`p%{r{qdXe?wD?I0AalN;poQ z1>eFLwV!Zm{huIc0(vl6{4PE7Bz_@I5h-4$=y6szgG*96RR^9ti4=i%A8?MWs*_TK zt*TDa`;D#5H?Lnu>)IQ)dWS{^M<@D+$MFK!7YG~GxMLS-r9+-iv`qlFxGwTcH z035dC*_gTK{4yJG{4Kl#^CZXs`*BzKhZKDj(SY)b8AP4e7vQeg#7TVCJCN;NF&@@Q< z2thk)ZAyr`9mcM6IllrwOB(8u)~!ZSUk7pltc)?U$e{HiCgu_FQb?c~e1=DKl@Q50 zBkxgG3}luV8LEW_n{pI2PsmV^iWs;T?H1INR?O-qxPW-IMkPcA$?dJOb6=s=%dx`V zeKDB^S0M^unX1L5CDB_shkTg=6Od^$deL=2Oe@CTQQ1nTbjz|h`tVAvrF&L@kGMUw zefy);s}C+*YNkE#;brE~UrNEY^>ue&o}O}r$Rpw3YW5g|6b(Mi*04Bm9&h*7`zhQB+j$wLKZ<3CtOIQSTBbl` zYc4pW-kxsF&1fQH3-V@LqL{PXpLpACUt;%EAG2W+ZA9&z(`{B?~#cVr1y}ar08fill2X`nFs# zQz+$%<+f}=l?tX{5m!FfJL;77AHW2y$}lrNrqzRQo9_};>HmC>cX#a)EJMh{h@Cvi z#~1GdkwC+SWWtP!dcZ>>6a*aUWEPr?SxdJ8N{GF{D}6iG!jnS|=cB0>1wH{j%(rl= zgqajxb1t5fWwLFp9g4y;8L6{ncZM>f$ghyq2){=N&T^yj@3>7WyJ|1ST6lOO;f484 z6y3Fp&N?39xwopc|BVj7HeGXZdp-Ou+abPZ?bH@f51ly$fB!H3Yh{4+F9Y6Oq;)u1 zd8bE@S21Qk{pByY`9iDctK};Kt%6Zs3>Xwk&9n={Vd?ZxKVUN&H7aXp%eECtwJq%z z>YGe(x-LB8E9(7DB?QTV!0G?s5Ud5T`wvOn(i@S}W!Q$l0oe^LM&B@COwB$~q)5MY zYviJ{5BpU*kf$^UiwA0m85+P72%8?XNnV=%`RlTHXG`M_DCFdPHe*H2}fV{ha$AN?}x8S&tw_g}|*xofI4iebX^T zNjSu4s7K>L2Wz;xwxKkcZDSf6x+H1_}eSHHSEIe{lwY~bGAyFdErU(@R0n6;p4 z>Hsw>j5QLy!FMFRfUSV#9Q1+i9Z`f8kPh9c>OLRxL6To0ep(Jg;PWsUpnD>m>Rrz< zf2dx8dO{833rS-mcKeA`Sb+L_XEv*f@M- z5J5FamsBI2Ms#?5V!T)O`0(K5^rX~y5lnwHc7lv39R(h?lVZRVwFc|%BGhyic@r)^ z+yky%SrLq|vV^Si(h5d2M4u z;9VU*aU-R;&>J;kirOXmrP)EbWU?YVG%4h2Q5DVuqws=LdZaG~S69J}e?WFal&v{> zg!WS5@Mt{QhBm?uL=!&}kZ zo~+a)AQeKEIxmq(hlGHMt`Ykz)=cuP7vIPgTiOemLT9E>l%c^BlO7<6cXeZ3v2zfT z)^@>iYfoIcJk1_qkZgyEjQYxCy!&2g2w*2ML9RAe1~yczr|S_* z?Z9^Tkul}#gA3*qg(b{m>_C_v4#~w;JwkGWg{6k)@E`0`wxa2JgYk(e;05&du1sqQ zY1if_(<-{k%j?zzZuee%(7J~T7DQ5`e2Fq6%qk;~>yw@vNYRl1wpVf^VLSVI=8SlO z%&D5=(cb{TL|BUM#asQmN)>YuJ{tV2RZGM*tVLyVaE;%2VS$!*(ae0O2dnnIZBKyx#L9zo;sT9$&ln z?sForckjM^h%qskxG&HNQF#Ts_Uxt0K!(Jt^`>w)t9%&quS6Vtm=vHL8kiz#$lOL> zp*>;FQjW$u8{sF6fl%6G(GA^FgRiq)R2_BTIvm(!({mXNAp;4#TO9}N!**YHcK*}a z*5YR1NdNFJ{^B>k`OT{r&v6N+b9;OH;o~Q63CjY~RT)tVJRx>VM5(ZAPz>$K-cEa4kFD)(2&CO{^x4yBC(vOagGAUAUdi?bY+x8RW%?djg_(r*5vg1XqT}D&{ zRy#m1y1b6TCy{paJ3%pVi2;%fnw7!s^?`wYpR|Ex`Z@IWc^g~6WZ=o(@=vdKL4ppmQAAc4h0_?EMEX9-YFf$X< zI|%^k<#NHjr&5P&`Z$I2?(Q z^$ZM6FEsXsdT(JpW|k*D8Ny}cJ;rzA>xL_LH!Z`VQxhfs;Qsy6PKYzGj17{kLhCl! zQ7XsJ83OMtwgBTK3Bo9W0KJR{ek&GfoVz_X zoQ_7yE9~hXv>-vhKGIjN%*`*#=9R~#4sIkZH^9h}Ty&3Q_W4qHJDdmCWs&rj7EKG^ zKWL3PUWH`}NiVTD8nfunr3!T7Zyh}ajaRlW75)nyyQ9 zm0)%50(f^Ia6X_uRSyT$NAm$FLeRP>g@(;Zjmd%KMNdROuU^~w$pcQ>wGa}8lT1%oC-)^KGgtolL8YlM3WnoeobUR$f$L1-0*x8;is zZ3UW4T}#H2c#)~mw)-c{O|vcug|K^&Cjdb ziJGZYOACsjuGY$~HkMKu+awnjQz9U#955m6HXkFi%VX^B9{}uD-|$2(xP*4P3Xu11 zQjH^)YX7lmJ_*r6Jm(r%uOyzZWgaUQpZrn*bH4`9vGhPTV?A;+;6KL!tVHY*_8LXm zLSAzrrD{OlE8Wo}9evP`ePUzd+V$;i+J$Zg3kwU{yI;9-WqDb5`PHT6CHf3t?CtIC z?(PBd@r`kHsU@fjW}{4rN}%CgM?TU;5-T!d9Xo`_z&-Kn&D!fR&*PN^v|CzjHV++>?O! zlp&K4o@Ds-;xfX!4h+=WRebuu0jL{kkaWVR8H^P)BBGj>gf5ke5ebK+y*)CxR+krl z`2DZuXC@_i_jYzXfBfL>hp+D4+E&JNZEflG^T*kiMq(wg-J{eX#|*|<3;TB#js$^k zs@L1_L{!>qj3c5PdN%dujMq81{4(&OC~|&j#h5->ZH1o}qgO!3xB^G-ytms>)F8Tl zP~DtG61%h?nx3^{`<&7_IlTf;Jl44@SG22EgwNCt^z|M9^wDZ^AG%e^OyjoWjf5J3 z3L=uTc9_sZv@+;CXgU%}7iO&}X|VUIcY1)}ISRQz6_RHcU)bPk2=n>d6Q~ z!Xwy0+BiOdCzyiI{}$w-ra8eDfX1rhCzWr@MzDOOo*ovXQ8U21a8r#P8GtYdN4fjp z(a!BVitt?uuo*>28l*?IqxI?JX*5KukeSP&NLyFBzCMcCF4VMSJL+0;H6-`ujN&ci zQ|m}iAPG(gwZnp>4Ymg>5dPTHWc@m_DZg%dxC#gq7y&x&ZZVJD*f8QaVV|^{}fG6Vj zad0;paq{S3Ok^`!%YuW4j#8x#a5jz{MbT&xuERleh?Qm4BPWx#eunD;&n5gvJk}~s z8sOB_gdZdf%`??aB$0L>f$hKqWPuJ?G&nf0zPkG1n>WAyr~eJC*XMn1VNs!w+8YCz zn+ZV4Cdqv$C@g~Q0lz7aF&;xp$q~L_873e2Zw)MZI|;kDPY?9Ya&UNWA^#XPY&SZG;0CoxmGa-0tW6J`^0z4@-Ij9I`BiNeo7E!O16oLJC&MbtM6ODRA zE2uPF2i*g-kC7X=xp{qk{pyXKo9O!V^vsnxGR6`zzqYR5tz z7!LT6c8uLy(k!7au!Zm;%Sb^?iS2M!tlz4nJ!(_s$tqCo?a@b9`$y_SN4D+q#OM#c z`p(mbcbDg9u3ueQS(v?b{p$S8#NmSnEz;>%;5n8F*wJ`1&86@n6XUmZ_iE#N)m;ih zV}+qJrz6Rup`NcUgiuv|CR^-M!d&PqE3%Bv;r#TPn!{DczxB>8W;p8I21mML)%QUV zIy?l$H6YT{Vz{Swuuv?ku$Z2iot~P)@5EvFRX_|-yU4rt?gJE9Ivoa7R2U$HPvC=I zM!XMjGrrIXEKvj87nT~0M?7f|T#(9r=?NLLJ$L=y;) znM@Z!#tJ#QCS&i#LVrHn!zpab6jUlnZdbfTREO$mfmGe(^cJXw?Qzor)pa8ZY{%ir zcO(bCP2f374+{Z}l4UIkNHa|`TWZR&5YIH~i~pbj&cg6x6K~wQbNA5`^@*^ZkpTPT z6c!WL_H%IT)VcGPV;h^a>~*jj)fQGpY>*)X(i_@@Q=2lFUN%63YS7UMMk?5zFx*9r z6m+0kCGqA&q>Bf@r_OAM0}qLZz-be+4);@OYOHA}nMWMnXRAW5xljW%k!rb6j$h=I z%;H<`?%6|cXA?lWvv;; z*Q0Emx-iEjBJZY)B-rjrn?)|<0?9Z(?=L%CIkoHi#6+$*j-iSXKA!Mhh!o513L%DT_+x1hDfjh$Q9 zHn-;H=9ZS1mzI{VUEA8(xrM+JI#yOzE?>S3OA%mJ2)q;IiS393$_=yuub~7PG4120 zPWWZe>P1%)h2{h?0W1rwPNI6VLlw6L@5~du(TBxeT_@o0Gl8&Czv)Cdae8BfAY*UL zqh0xouart9kM_v{f^5tzt;Q2;eZ-O2B0s2E!YeFtR6H0W0C0Dy?87rrH1iOJCd<5k zV1Ib`Wgb$NccD|vFY#5V61O1f7n4=N!y5K%auh({p@ruIwh%!M**>RTI1URuK zg|Wnq_9o#4ZztWrXCyzuqX-IkPY9oYJqW)oImxjaj?W|QupRb-_X@U)rKW6rYrNLV zmPS2UDsD(Iu7D2EJ+OUoVQzVGUeY#fXUQJlyZy5t|6pfpW8w0Y#~Yh#TkFfOpFhgC zHpzqJs@OBXfPOrJ+m4L~anp*1)4316$ z_Twk3RnrLGi%yV;4YuLY@xH;)QqNGS+>18g>N-mI_75BIDz3ZxhuR4Wy?ryYm(c`v z)*ay-@!VZNL18%K3PE*3K}B-s{m7B<2-qu+fSp+5GaxFQ`p9@9IUI{HeoZ|D#@KE6 zv(!{6RFOAoZ4L|nm~5&_%Drlrq&YV?<|MakJCM&SO^wDfo+}Ph(4<>WK3k4ga$QJ3bGJ$+FuRj3kCVDij3`96vn8{4vU7|=!= zId#S&->n)C)-=hG0qq6oq`2w4Mf%!IrxVzjIGbs74M*+Lz>F(|}hn0q5ZGC+Mj_-gE z9XVjYIn)r#1zoLC+ys{z{q4#1SHhZjTjfAv5A z+yC;{|9pGqo*pFDf{(I=nj&`v~MSXi`e zZC#(6n=h71V4RtQ#?omP7Z)KsM6JLwRJS4L;FQ0EliQ@SfL~aRFoRb3>CAD2ktw#pN%l@ ze8!K8o1tFb@*Mc5ctWW66m_M;exNdt(xx(7$bDv%y`S0%ons>Ss>b<>Lc z4_qCsfWq=tPuwjqq5?TT@y%^yl zK>^7gJrlFD1%OC63QeZHe`rWo^tmfb`b}={+$X%*-rE_c*Dq?&OsCfZeQbtb@RIbHq&==MVl ziVxtlpwDJ+?29u;8`Mb&k=uv(orFfC8%s2jeGC&8v=gzTEf;cGl%`xRGkz+mf(nq( zQAZ21A3q`0_4=LLX6QkkZ;{@p`L@IWy^`W<4IFK>FCh~F_@;Ma@JF#aZUXW{JpcwF z!UX5T&jEPSWJrmWf3AJNJ|;>h@vfk%cj+V*N{?oD=CiUq0lUpPYDzORJ*jrd!Q(=b zVHKmkc>4JA)P$l8-NROw7e^i zr+q`?UHv0^`m5!WW9E~1#kFhKq+*$ZTxKzvo}RLBb-MtebHIT0tc*Q_&e@7c50KdEqbD^(Jz^S)dn zvyVr7_{cF|7ZL>B@4TnM*+D4~lyTV$VFlRkIwrA|%r2BKRLZ8u1G_I+5D98x6Zm;R zeQ+^lZb_4IflOU-M{`fTiZ8?8nRhvS#FB< zg&J@LBM4OQDfbPEjbe>?X{C*^gf|)=@=G^no5Sq~N5=bxMpyx$%tpxbf%&1dq>?3j z4tia{W{VLDja>IgeT4A#3Dvzw1tP8ZX=^!zeS2p|J9lyw zWd`BLtKlQX43%X>Ok>>_;VQ^AD~KurL$Rfxr<==ABHmsH=2)(eF{UnfSDCg$Wdc%> zJjpaTCot~O4$0}fC*zhS@NVT>k|)8tBuSs~u01;xj){#Q5&Mr`fO?dPmMb_4Q3%E$ z3^s2eC2WRnG<-vI7=Pe1f_M2+;yBX99g67>)oIHlXuC98hK4LnIO;Q=hhC>|l}zLF z7bsc9-d-(4jcQ|+v5;G3a4Nw_i-}q0#~KQZU5=Q8kMSZ|Ih+U7n^OjA1+@ZK5tT%q z37YTbl?3+6iwzeCYkCHcARPIt|;|p>RD!AroTr=+Ge-!hbnr?Z1 zz?BhptwQo>mnD@llZ_N+c2fy>Z?09|qO=oas%sl^xlRxe+Qg-c-pH;8*bDEOd=NojADFVaDet@4Fr&I7lu@G)&&iNO6c1r%K7u0=OQo7!>a*m zkt|@A*E3B+F$Hcr5kj)>pjZxaCE|x(e_c_^TbRWrBU_7aC#c(m_0;LJyo|5xKk(Ik z`(fJP@UZFX(@Eescxs}N-8FCRTsR+qUA`cV_@|rG$UEeNIcE;>+eN_l6wY8f5{R0v zt*zd_zxVEYAHI0|YlDNsfBiRq`yYSti=Exw@Nso@o4Lj_yk&hfTyb)6tv2en#{n|k z!7;Fy*rFGDRc$>@J_<~ZvD7o0)0dq1k~-+-PBu!=48PZ2?;?CnB%3yjW+0$y2n$FcFL zp^@$P5m~{gF|d>qXD@T!(6D_;3h!#GLf9u}2>HUE3MNo`iy# zJChNG(^@cW+-FE+KGsrc?TBov`axz$YZQg3F0n}aA}Niwq-MVYM_($`LTO{zm;_!{AL#llF!kN_G{;xv==Xe+lw0h6n{+!->BDOd&CGh@8+*!gp4548k!GlvGa8+ zJTt%utyl7emI|zN3C=(mOt0JASoe_(Dgy@l!d@T=@R7y5cEsLg%<9qc&LVBU$puEd z2h|7pk?4I+b4UfJPCHRV0u#ZC8?XF24xi8xghDPP6*H&X5JTKS<3TQgQ~fW*dE1H| zJV201W<`6`UuE}^arn3$;3s2a*;>+*MH$ki$?>u6tqn{*)7COv=%1Y$Ut3uk=+RWJ z9k9<$jxEnmmFA{!97+o#(7spp0Z*??2jY5Es|D#Qt!TV<*KYo##}vr}hX=4exnd;D zVorPc)dS{fu{f@2of#Eh$wtO}n>H&^*F1L2H}Y*ITlDrOWVoZ-$j|5V1AV;<3k%E3 zrMA{qOb^Y=g|D`QS__aY9W>KT+5HC&0!<&!3p>4uURqZ!Pm+kMXy`JdMIm4Z31RO&#i2%tZz!0?dioKgZFu7;|f_Z zFIXn5`H>Gq0j{QwE5=$>oSp)!5fmDz4)1j(58N4~Q_8#uV3(=` zSi!h_LL%b`f{kaN5jY%a8e)LTs7{&*Vi$U{3GpEiRJa9;q1ji_-*F|>tl*sQU zlu8S1$D+KWr~6*+sK&(VR;f~Wio(b4cM2<)1P-+}BMqsA?b%#T3A?nseD~gi&wu#a zcke!+GynD9{LS8jz0u-?QjuyY;D(;`bKM5&2rm}T&lDu=fA?lom|-^?w|j=;|5h?H^n! ztzz#`o$XOpjSn~p`ELEqVw*q1$$d~yy?4JRtU%3k^K+`PjGFaH@CU+1g{g<77}e-H z(MFU(zstnix#dnUNI*JN^NptuP~g!;741meCB;*wJ~ErknbLaPW!Q{z-fPU z)KdCuMyV6RzGw-*!+@mh-E&U^{*xyxV&am7gdxZ%s@h_V?-7r>digM4ASdK&uW9d6 z?wT8&!BT5q@lZKk1;NmjHA^(qeEWL4GnVu=`f^oc!-a*}sU;@XsiKxL1Nn~9?BtzI z4G5+#oe%4a=2^Jj_nvub0vb;WHf@Ja}*kcH-X4|lK zTi>q>Ofm;ezqFQC)i?wt6BSt4KJ~B$$Q9&wB~)vkBYV}@0)d3WV~7qI+Szl7Njf>F5X8U-%Xy*U2?BET zX)JG+p)i&w4duF2!t@G&=O<73u91W#b(ZUZ>kaYYX}2YTdZ7JNSizi2BwyEe7d*#9 zXMD-?L%Y3t4VV#pB?^*>SRtV-pVZ?rYyvUmQDh+MjdtlS_c)8alJsV<-ivA*OPfjJ zCaJGnhCwhjIy!dy-s8E_T5)>*@$)y^+S-ob9=3-e7ufnxtT9bJ!6x;ntu4A)+J zRvF;*u$^rQlcxYUj8ZQg$Z$z0W!^6GfNM^CR&-B~^>nY$P9OLZLFh*X`-Q1RSOjsXtv3v>fF7x@& z>WR+nxo9;*F3}Y{?akrwN*xT6F-C70n+%jY%m8E>zBgspc4v8QLkst)O;T)7cBcn> zPwX1^@GqDz#FTB5;Y=uwrwvaF09lxjRu2u276#o$^!3%tcW!Qea&k&8(4K(ZYW=|> z>rG+@ZTCG6*c+RgPoFU@zU|) z9#8C=9vSshY8xFUh4AUbNJ|9CTu9jqEi!%_J&T}&P$jsEEyAvp{lu$@pGB12T& zP5^IkiXIbN=(bRl!2&$S$I!MVwa+~cEe{_CxpprC+Hwtzp&O6`UB2 zj0S~2p?qm#Lqi{l{W57F$gt4hD{7x|+!Qw1(RBP7$4)oq(5N7bdixH9U)?w|FR&VE zX~EKnURu4iUn_h*jx38y+F6hAng2rLt%gEUu(L}=mJ$qv-C8Y;W zb`B+5**Yr%my;VHFM{%9{*t~&Y2I_AHk^8E+xMZjuMeazE-uoXpFDZ?ksb3s|H;q( z=wJNvzxbO!|Es^-d+?CwJGQ`}$&di>VSOE&TRXaY=ayDSCuhcI7j1Qcw1evq%)^CV zC#)J)TC&^OwyU>aTmZOq6~BV38|{g`m(>^wkG}~GdE4i)N^-)7LtcWQ6L6alZw%03 zkbmNj^mct~o6bo^!dzp$YM?uMZ=YGAMOhYm*AzEQP}%@n{T*s&cQ=G5@_33Z_BJXHTd)&{mh92#ml`uZ5jIFL&Zbxx9Auc8o>6b@@dyP5PY^g3mzJPC?6u6$<7z81 z1yNFH1&oro9ENU|MhkS1 z9KRuUd0`0OBYUJq)5dnXnfUa4a|#9WplM+?6MDo4powDQ?QY4|{#tg?{^}b})!)m{omKE6Ar0?k>(0 z*A}K4s%?bv8aoO*Iyb^TcH)BvEw6oL-zzG%Kwf;Yrisc#^k5%Bl6){-UntvEm6g7# zxk^3~r{dU<#AAPCKV~skzuSQWui|*D$Cx$=%P2)%2!jR~y?teEWoBl|NyQ*xo~ps< zD3XxH$VFZd5w(^o`?pFBEbs*9?v~E*7d8qZ{vO?a64I)>@d7m0rw%ke| z8k$K%eKW@Hrg3&_bGwrP@U3D|3~Oz*tvr__gO>77la+5pl>nQLnZ{JpcJZ<^i*YgJ zx8@q_TS@B|BXzLlhAnG#*{L9OgzOf-qbp0mJ3q;paACSB2Xo&69-S5;c}NN3CJ5Ak zI7*=O`>WyEYG@Fg0((!Nt*No(ux01=-qP}_kQs}cWVNZyg#N-|EE?7wPV^uj6RRFNBQdVWh+<@Q{;{x!!8gy;1Vg77Ti!Xif&&JP%y?;DtyT^yU9+u3_!%TeeJ{MAD#BVbvv zmiuL7Y&?&yAjv}`n7qz2ZlRpF=W5_A-rnf0R_!^`8Ac6KgoD6&P~F-Vt!Ww?mHqMd z$>|wQ8+!%{Hb)X-tY6T|z}wX~Hl+@|Q96a{{DNVLQ6ARv7mjA657D9_lg-&{HQ(LC zii5OoZSStFZF06x&(3i|GC*S3VB8)YuovDks=@HqwhRc?Bn@@fZQslG_4Su^d+?4| zh$hBCq(h0ct9s}2d5CRPP>Ph^V09a*KhqvtGF`u}7^Fno+Ge`vQeuI+ME4tkNkmYh z4GF5b#YFa3aZ0ExGj>B7=F6=_Vc*yKSjT%WsTLmVuW|uimgv<8=k+bLdosbMPLpAN zy_=c#jQ$Da8qh#mfrs$fD-&MOcv_BiY~U1%a0DUk-iX>mW`XDEdQx;xx)1ytE%Lo~ zjSzvfM^n1kCBPUD%F3`21j(?aU7xj^bBL~zZt8)_Rkr40_;d`TUlRn7$ooMcCQ9m% z4l`jTcF3SYv|Mb{kYh$giX&Ty@=UPRjcqayZ>C0d7YP^x$?-xKH>p#}ywV6k zSxs|ej|_{vK?w0TG;R&mUq3#VC{fS|)GYl(sOM_yT6 zoSB$1;K+X2_6`+QTO+VlG!ti9v)0U!D7-S%GIkV{aQCpp*ds&dUovqt3(}Q0n#H*f zB-Pl_b&ZIDWcaBpps_yk#$ zl*}mGHHHB@%^*@&p#|dB-f|2GHQb>$#(4JPWi1FO(;>xLxnEbW#w`st5rL~=nF3$r zIKU9VrW_|y1~((vK*ig!YvU7E8>{Z4QqFv&6(^!wyOErpb;^2NBRGpmZ@&!@RGPw~BMCIGP%4U8 zIX6M?cr`?JFynIT>E-2oLa6S$c;)y9=#Mvu;7>GOU0dIK_~^mICwmVbJ$&?33H8&j zf9I3WbOrnMKm4OV`=g)#<&S^!cc$m&i<5-QN!An!KWtPLWxs39bq!ddx47~i6R+h-<{wN69R}5|s?xbG@p%g6H8dV%a@ zyF1%E>#MVq#X?V4UsrZ%PS3Cb8J66Q_P{41g{16}R$hAfW#T_=|03q8^CSv-s@xDb z)^>8#0BznCicM4mVy)s4{M=@*X!>CrJxFR|<%sTw7OjWhMxIln@)9eB8(Q1j4dcSF zOVC>?E#y11A_4H%@7xX8mPzZ&37j~r5o{QYkAK_z`Q6-k&t~lwwBXpG_KSrFKfXpV7HEGWN2h@Zf0Y3 zg~69;n4C^0ZO`PgW=j{Ru#G8gp=gn9H=fPYPpMNzWc+^zxSihuWE2pb=@YbP`xT?l?IwZz^OAAd%F9nt9WdrpRpUG z?-w2$Wuw6J)H>DhHrfRk3t_>VS-~p+(7||5PajzKG&-Xx3=!~lCbvN35Q`$CfWuDm zKViH3Myw8wTH;!t)aRbH5jl%2*24GaLK`;K?}qb3c=UN$mq(-+M`F$KKblBpa1B$KL6oQ zfBci*_`^T`voC(~+w-NBnfb-Z=~*MwNuzfto@yWmoEO(NC+3&l`Q+Q%_a2N+Owko- zEND5XinK_~t818BTHd|)0E|mc#VVj3l)E!;?QnZXezZ8LN^2WaH#=XKR@V3`>zZ1H ziE{H9aU`u~V#Uo4j}?jh9-o@Cb@kNr+#(go3qoV4Dh(h9nYO?@ODkuQ=#0&qTw?J^ zM$iZ=(`O*U^!D}hQMR^a?Y1qf`1;e+Gopit0Jr^iPP~*FtMfxDxqR)~;^LCUsxE{_ zU@Qbzw3T^MPB1L0i&5v=0Y(5DA~U#gx&>;405!f*=~*CM;~J-3mV+Ck@xrCjPke=2 z)n*jigy&-8pgy0^17ASRFp06`a<)5(@{_2c`aMPS9~u(<8Ega;;*8JWtsN{1ghUSv z5_LBzC~w|fi%Y&cf(?)?|0bS?VG7|7W^qb;6J8GVlw5 zhTZ+>5f8?uy;rXsK6uby@xZp0CK51p9VBXE5W4{h9!Fje@}IUNF(suEfL*aQ)6zUY zGj(@&du3@MpKZ_Q+Iu>({rQfuq5h@$>Dj4C#xPl-Zh;DL(FELiuc_ly*{`!@s@}qO z!0xNVa2!5h(MP&f?Vmi8H#KBvZt%rXcVSJv0CyB(0J~@<*7*-keoHr&Dif10`Idog z_jX|&N$czB(i=uNR30FO5yZxdqZ1RwJ_}Tv8X<;M-L*4yqPPOm#dvEy#Q0k^mX@fy zVD8%5oCd8IF9UY2V?zwm0xXdfjv?62hgJh3vx;ik9Vv>ZH1WV@y? zj7Sij5iH(Ur3m2{+F>X0`~UgHFW!FtJ)5vHN`rSazRLP*AKo)AszTa~gW#axr~>P& zsnqy#m7&8BBy$zDI(3$A&vGkv%TCL!@#3fax+y|C0H~(;Xl#Q%>v^Vsj$c z?gF_wp_oy{69Pj5GfpOEO2(!P%3+Cx&`Y^%unYRW)xEL?;!j$$c1{k3)dfwgy5)OC zWkDB8?QDed=r#~ij2ps^w3p#sQO4jw4uO&z`%^i`pI=zIedqo=?|t~)@BjGMfBaj& z_1pjK=YRSa?|<~^I19<*GIC3o;NBzqlD;j%=`IY-FR$f#21>N+y~jgi<6sLFLXV|L zgm+U0`>ttd9w|fL``fGbv zzBP4^r0|pCg#!i`VtZdP1T-!hl?fBybJ|EG}!U*1-t8PB{2^OG_*C_KuPT029&o z>Q%*Ap?r9FsDaP?(j`ExGTUKKLqc;?qq>_MUtCbdcR6(k%iAn3dFj2W%B(m7*yZ&B z@@bcCycPizP3ZZpt*tR-Qns(!1sf4*GY?e`C_8&PZ|!YE{r+S`qzId;Shs<%z6s>H zfVorJ+S-JH{rmTOMA6XiNO&U-@WBLcN8vo^W}xD7!Q&kkIjj6PDW9oQ3Bx@Fu+!f| zqmIUpv1$o0n9%-qC_PwTQ{CC#2Dd||x0)%IJ9$!c-iyhRu${^zp~z-3(-Xy=&Gmab zTfJQ!R%+GUtZZqt+^NP+s^cSrGZSMoljCg~T3))WWE@LfDzs(83|;vK#OYUlqH3T zN@I2O!&dC{K<}#wqlhVp$(3qF)oa(<+uLVmtcITG>CT&yhLd#x00b>J@RZN+c7v?U z+s!@*uhfF3!phiaQ)?_eT zWB6{KMbhz1QWCdLcrq=Il~tkHmvuY~6N@)03;W(hx}lUHZo{N(XNMafg%4($y>|HU zK|CkA_#Thmj$W<8mMaxRCyObfhA(6!pN!85YRpeB?&HCB*=QNwfn>97Cv_h9?yKltJ={_?+k{OnB_K8m%^FJQt`NmEl)J01pI|N#2B(A%s?O;6ZfI`f^FGr21=bA;WB9@3bSUy|3HXRqTo5k?<8(LqHAt9P;@ z7`C@V@-T+otn@mnPWojVpVrnT#m_1M`<^$$5il-O?(6S!ym$QZ8in>e(fYlh>*ROuK@BmbDEll7zK&Y3Z|x3j zEG;eWZg0}qy%fa*uxlfb%d~3kJ^;mRsM_B<)Z61vFYkNhD=+P{u#`ecbw~VYcdA)H zm9Rso_hp?WUtc(~ab4&$gej*2$XgOpbrbU4n1qW8M4m|#MJ$u6=hEw#04 z%0ZCnptgDXQN0e1Y9oKSNkzbl=G3lva*FF}LhZzCZcL4-u`j#)06nLg-X1sdL}eAh z!8i{YfRw9=7wy(V`*)fJAd0=7ZC!eRXC5NQgblsr>`s2v(c(e zpU1wH!f*p!FjKc1dr<|vBkckZ3e@Tc2g=1FNE<-l~DW4pV1hlfW;M~g&k$M}$v6d>=nxF9eHe`X+f z&*!@VDZc0e#iY`wJvk4hS_reD;+hDskFLg7GLCVHJsA2= zHY@MxPJ4xOi`DeY_^@MuX7?@MAeVLlJuKuLjq}MF!u;6FEb&Ohofb@@}L~K?1C_V zF;xsXqIW1wh0T?jiMkv zUPnzAF)mxgY3z!XM){FL%fkK%l`BPXzv?vbtZ;~3fkg0 zj{h$7nYx;ew$`rp%s_V+(hl4Ey1R7l@c{%OulMr4{kmGwu0esZiohEIGt<)>Yb)6J z%llpi?WzEX7Y6DzJ?IPD_DKm-Nmpb9_Q}|A$>|CQP?Q4rA&(00;h$xX?K|%1N@KJL?eh!SY^tdNpFYjVQ5)>WxMko9UZcM zUZVX6tkdIpl-@=QQ0fhn!{y7@>?8=!sWDz!?2rXfX<)cv<8erz?v&eX>W33@jk5>a z8!Zjfq$@Q8=ermg8Jk}y?d?6e|KQ1cAAIzG|EK@&r*z{D zXsoC_s!7E3eChFvul@Y*{@v}zZ$Nd#Tm3TEM=H-@&gKh9fAsvVwXNNob&XglX(g(s zJcvWZrcB55!qV{g)Y9svLaVH*BcH$X;BjeVcdoQ5jqU0$j7&`T6oy-K`gL>-j*eme zbeqAEQ7sabY)R;(bucb4$qT41W$4DbJGvnDFT2*r27o+zn_W zkQQxey1|JCAuUuhAm7^7q79QhRa_jf?8-V!s~P22BT%KLe_+5zm3PZ8V7tjne#iNt zw*d^mZSmu(skV3{&rMKon}CZ-PS747ur3teMIRBTAmQiF5ciBrRMUELb%3*4nk|DXy?)J{w z>iRS@*{n|2O-GKM8R#D-6Z$*^rIfZH6!E?+Rk3!D#qr8zTiNO}0M%t1$>;*^E-tT@ zip5bp1ZfFT+}2Mwqp>-(f=Ot#*q_d*7GFeTX-ZTqjDND5uY9BC*3{y{yPthJGBw`N z+Kl{Q!$L@um}_beA3K4-hfJBOnItSuZK!Tud*nC}4pTWJA6w0e-?D&@v@5N|lnDjy^>$+f;2wmYNGZ`&MnR?lt}T^5)w&qYG!PDVYal^iR+9{S%5q`HPz2JmiiYqqP4dq*Cjw+t4JVY`8JuPgay$RR4$a+-O}dKqSPuE-at*7YPBjkk(vSz)hYR+h7?B-f$ffz zuc@IU?L-*YPO1r?fip&D?yJ1`v0_4A?w`TiNdYdYH1~Q15yYrPonfe_2oTVPOoZ&k z3tDuO%AFtx%wWH?&dYpP;aoezJI?tIMU(m%3^~|XTF8T>;AjSRIVVSr#F%RC! zEEqlp7f!@jsTcewqCyncA}7W6jem2&`-&P!kYD&7x?W#XQtu-b~@;RnP;KnvK2&aOTm**40OVVH_VOl~O?N8V(JXO1v( z#4;j3G-XjB>Zho?mI8_}I)K?SL2C~V8M2IJ7Tjmn1KCoV>M}b$J6ISVFHS8kt}ZOB zj1?z`28R_@Ezfvx@7`N)zPP=6XK87rR9b6k%~Iz3dWW?NLydov!gC2IA-cvY(OzPEB;Bs5v@3OXGBv!l^GFPk$oPOJNLG^UL3 z)R^*}@=1#fO{W5~C&Y*j`SOPAARS%L*)70=dhJ<;hi9f|7Umabre|;O+`V(>{>0?e zfA>HA!<#SO86GXJZtN5%r&l+&v~$GUNs~&Xnzq$y0@L0(Iz4~?&G&CVd2?!hiAX*& zKDD#=*dl9QcMDW0jr42H+Q{0KkS+8T27}nAf~l4Xj`ktDy89LuOOGBud;aFz9HEO#CEs0f0iC9| zTf7I%l~8s6)l=7nj#_8EN){9i139UW&}~aZN`*C>g0*pzXiO|p0BCG80<*yuGdHOD=&Q&$EJ{%tum3?@ZsAfS;sKiX)L)qD=*;j7a%k(+$Rf2 z{SZMn*O0S8pP*bhaZWWG{CS@F)Z_(@ppRW0mI$?5Qn9tOqpnHWQz>#yA&JWe+auYx zNb0ywGUs5C%Mt2FkmUFsN;*}=51PS8PJ<0ndWLfnXsf3&m1FP8?y8jmpM0gd>iP4m zi52J0Sy<|Jb#!F3w79r1H@`*c*t#=2yU^b^z;~#d#aqwc{Nd+6divC z?FvbD|KpQMJ3Q3IN-V8r_*GNfqe%ojFZd0#&_gOsVScgb7`#fa;1e$3%`Q3hthtj4E6574>!RbuuB=7 zKhO~pZ%0Ree?Lg)qw_;$o}QeVo1L4UoL-n)yubJ8+4Hyl&A%&)9(P0cOt z+k4K)#vLyy#N9O%jGll#l_tsP= zrNUwO%$)fA_~i6rX+;rvaj|sg?)|y>1z_9PKQKKrbNkL+ih9;o%e}qMnAX2NeLbeD z2TvNzVAf*nS{2W;2VQ#(l$mzUaCxY+jsrkbRr=@rYkfiG-y_csg(aZ5LI<2hlP(ui(Kl=0`WxSc7)SBN74Z-8i%^+h8Y~@V1jX zV6wE=k|@5H#dU!@zG&O8>^7`m0v^50sFqMe&wq#y}S=gW~%5f^mj0z z=h_dDZluUzj`0?jI_|c=i$M^3(Tv^##ThkZz@ytx=%=s&ndER*XHvKmO z4A7AciW4qJXzaegWtGri=3!rqHAhx0P0vk#{X5@Mw}9JRME282@Lp$Zz$K`asDEtX zA^pVmZ*q3K)#_>*Jz=;6PK#5>zW7&DD}6C3P+m?Ls~626ZANieQ3=9ZQ-xZ~bZ}tU zuFnj_C-I0k$y^khYZ$vw-4HLY3H>E?$9qnQ%XTB9rUbW%*>@3zmYb$N%CU(?{MCgh zH`{PoLO_&cq3{XM4c_1>zx;{b8el=>m1`TcA`cd#`fnn8Ye7K<3a+h4b&Z`;bl{3B zc!|4-uog=QM9+wN(bm9ujw-58>prR0sq-hVEbv2k5^u=GNs!U$TUOZF**O5`hlW>I zR`1>2TU*_*8vjrK@^9aL|I@-S)B5Z}X=P%1?!l9{wr=nFWMOV^Z0_OG9v*}32=@Em z`q9Tf_{||O+tpW`S@`e&_y06FIn&_op<60k__4jvsVmX=o*7MHO7 zdQHY+i#k1gPFwXOl0-~w&k!QPFR6*C6cbj(Gf;(9Qw};A1Lad~hW2!K0}5UmXB%lR zi}SQQgq$CLdS-fpHKM0ms{}Md>;UY^VUz{ey4Wc$5!>~I41VI0Co-?3u92&J0S`Zg zP;2vY>7re1&;UHxIKa{sQiXAh*u&- zA_`c}8N*YT3_V@~b@A}nz1=!yFXjsx*!T}azVHNbVlW>+&YKB!jjm?>f1)bDk6pzN zKtO;dMk^UdFfvV0d#_&ZUTX>%@X`;!?l8mFdo8&HlcgtxQL;((cag&i2mA^2+ewu$W2f(oE**<7Xdz`0>)h(#HBOy1u*n zWbffSkDk20w6v8(g&NHPlao9EHrON5;tfz8HHbvoY3wWnl^~j?QeOj~Z{NH9&F_D= z+(5wNH>!Rqwj%?Gp{BXS}xA;l!SyGp40_(_CL6To#p7JkUc zp;AulDjV%7Cq3f&8mA!MkNc7Rr5rGLx*-*mpLxbl9O9LO+lL7=90rNnMI9Zy)87~* zTwb)@&6H(rg6-^2;9V&^WVgU`qb#tU4pS!WAYDv!D~qwlhGRm@^RhKHUR{h+p$-FW zjZKy7LU zZQc2;Kl^Xq`R3<9eqniIdGpQ}zxOXDmR7kU5ov%dld7t3vQ%keZfRm}u{qnB>FB!u z`1$zsoNZ_tTCA;zdVCJeLyu(4t28elQ{ z?1G^IBWypdLx{XDHktu#J^8#Y9ay4c5Gfu#Btd#9X`tl9gVv2&FnH~%x&XrY6$?3| zD|PgH$4pEma+8xLxo~p))6V{Fwf-X1zh=qC;nyji z;51ny(PsNAYr%I2`_!Htp5yHbz95|lBRy$vw@|6E+%ych6JEAA*H>3c#nGXjdB_a+kdW#=H9qPCI7{Kz2}^c#r>sW(L${3HP(*KuZ5Wv(Kb1ETdS~pgVsUuy zEnK1tP4khM5# zpuexQy1c%%v9`HR>QC?(U8+oI@&teq*G*U;5I1h;#8+WEWQhYUJ>9OD4Tzy7D$T?i zl_zZ0Z+l441g>7cdFYY6a_+*racKD)gpwAaw?M7Rp+If zC@;nys2=71=)~)0YLqn@nC+s0W&gojA}fis)c&w%Ql1pYbD>M55<8G*Mp?w~K>8FE zyiT$qh!mmWhf2v4>-COX1#pJM>gJ9|C~oQ|+*Y~`P}hlO;r2-#8G;Gvx#JASDG8H2 zR9BC1bEJvoPezCc1=YQUmb1DW2I6z`DK22{m#Q@ z^D7%OrM0fXkz8*f*WFK(;he$Sbqw|_0b*%wbFQ?)N6Bp8)zgobyFqUSUq{*wgvy?? zB|+K{N9EshbKO0Kkx?W)S#?CMag1G7vbM3k#CutsU~~uX=(e9y z1{&x{t79xbxBkx-Y>^ex+08&750gg%0^hYR*IQdK2p9S(ccauRSX(8=D!B3Q?V@Z-n+nrZFsM zxBL^_i8zKU7|d!rR&DW}zS&`2p~(c0l5SF;7N}_E0MY>Vx>{_Ox}KK*^0vb~=c(F* zNNP)S)8u$@X<^Rq0q*U-ZoR_TW;Aj~+B>ruxAvAsy?7=!|aQ)5nwJ5@Tk*3ftj!Xo02?r%(EC8Wl7MVSmZ&I zo;fmPrBIoCL5%?qq4C#gC9!_FdUj#<&i%Wkl@go>=_V6=j` zfGWW|;fT7Qa>|du`wVUYx!1UDVY^mxf$fHm_@H5i9g5t+Z8Zhy=^2=rp5NZyEtOV! zdIwutb(HR0oL^pES}85Am_^xK*Y@__;?mCc?Kj?h@x3R{zV*gi-?@F~nMT+8dNwsF z#a00mz#@ptE8}7aKGL;RMU4__H15=RvKnufF>LH^O3?9k4}x3Ej2vUiD0c#3v=n<6 z7+_sYC1Pf}$;2$pXjIm1YZbMybUhwVpTA^%5D-{gUMCCp4~@;2R?*0@$tg1$Q9ntZ zl2jSi82n|sK3Q&wWf8Gs^K!a%z_*AVEAOJ_f}fkSf$)iGgJCEgKwUP*81!b1jb_rb z0^5VECp`Dx7^;c8$JMZ^R5D2EQFV%jkcPeUL&kKXKs0`XIe=TgBVo~}R}uLbI->=s z?Juo5gzd5ZG?b}|>*2FXO=*M)$P%}xtRna<7SStA+>z{fala!B0eu4|)*)0f*wq8x z`bMa3LCnz52x($wc42aI0*DQbDO-fsadYQ(X?1;SzV!Vc|E#;eV8_{84b80VyZ0W} zHfNeUdRFc{{K=pGtHsUTOh<2Fbn3Go{od-m$E{uTkdB1y4eFKS(+fNIpMv-Pkz!p- z`^3y*F5j=6FS+T;^jt!DOzx?>^kLTBRqyyYDx$Zt94_{5LtB1&g z$roqlCgv7I8Sg@eA*6G4^V=u{fO;lO3!OZ!c#5=J@ojx;&)|^e|Jo5#imY3r=fHOK zo}Ockm0SNnfoaNmZ=@}s@1B^L#8G>CdgFinMO(N&roLookuIlgq-W zh#WeYxo`a*_8!e$+XC+R+pkSYL=BDiUUC7;`U*osot<4~Q#5I9s7Lc)NN^C_G$0EnEc-joqyVhw&rkyEX6ta_ zU4Lqg&T=HYgzc$U3`^LtqnI$miJ@W`qkrzy*Eht%xXRe%3+3=c?9dRi^B08a>F)N* zc6bD=riPi)-p-s5eU+Q-)zaO&sC2$_w|8*V^^yw74Rtg&yiExsIT)|BsG$KXL7(t= zpHAtO#vZj)J;B3bV||j$H@3F%?uZx|N9t0^B4Uy|7M0MT`g(gTt$~eQ9UZ;h`GMY^ z(IM@)NHN_OSW;#(h(mK@KAX|Y-7b5kqHI}y8&dh%vl8l9SE7UZ@nf!FqsBF{V@fl% z4EFj>UUGirKd-#>vQO?@iFZ~}YAm2yNW$h<=bOQ`!G)*zhHiEVLHu1B;UF3j=qk+W zdE_WljVpDY414kfvksZ$;nT;u{>G*BX~bjlT3U2$(h9HPqwwKe#So)|&dIweUCyM_ z?t1wFDemLIbP$>SWfUExW9*kb7qD9yVNC?RqOwlU-hAKm^!%MW4;L3!^v`I^uvoW^ zj*5yi!$ZZ!rVNkFSaEu5cW-)j^^G@mm-^YWx4!ZC*|+cB{jjpC4*1ZFDZ6T-$)+Kj z)SF0q1ff=cB36SS+mte{7+dL~*!@ET_a8sZ<~!?}^!=;WIso8%TzM$T4ovugQ0TFr z5b{$Inz7tB^=h{o>#SNb-C(84A$RXtB>p;Ab*sH-*LL?tXO~_*eAH@8ZcxhDd zTMB#XO!&jGcBS!3JwS*U)R;?NCv=h{M?q^$ir~hv4`~|ea=K8|5%DO7QU#Mez>)Ei zQ6-PIy?%@$vSh3`I*cj=dk@YKk4F*Q4UG{yjAOhV_Ns;OGx`GjWPkNyr_vACC%+CUy|G=(oG+Us1O3r$p*wRjcW% zJkb_L!p?z#f^`aa@7%w$dwYChvX4t}KxS6Fd;ihxdk=};j4mKu9TUOMbmlj2-)qWt zHRQTC?mc<_!MC>eo=wh`x(g$p{NOjg_Whp>PR(VzdUM$>vs(_((Lbarx_R5{EOE9M z#;2CIb}OoC9Y3?Y@%Y6Dw;wzuyzor&+bpbYFKynr`{c#a=I;3HLQ6;2P;r6*5@Kuh z&IeE1=^nI~Q$Ht;3M6a>_}U#fW_4?~cX(uAq{uwOmJ4l2?tDJ^zE~Bzy19+FQ*!h! z(83^A+|JCg<(GXmwGEAB7bV+#E_EJoel!qsW~?jx@S{&gM@Pj)kG&6I3{<+09CzOmt<2Co2mj zkX#e6l&af_;DWP`w*&c^*_qb%j72-slato40}Xh9;ku!S+6P#-lpMrYai8R@xfbh6 z&)5`+czeksOvikHh<$n0zv0JKNEk6E04;h+tPr7mPE6kTraUmHaM6dvU`8ms3J{kr zT3&SJ{CU4kOdcm+vz~dnwOw(<;xCQ&wIpNyA@^y+Z;oQQEHPf3)z^JLa0xM{9oIJ2 z=}BpZM3vXnJkD|!6NaW8*l#N+AH_!xS|?Rvk*EM8WSM-vqle~_b$Z$~avx;B9xTvg zI@;URPsc`w)lb{`xmucfvh8!z8pG`+q*jkjB$jr$M2}R2juu*P(4jpmKcOQ9Ml4?$e3pP z1z&_B6z7ZnW+Bz}sRwS{uO%HYILMd?>|8J|?#|9Gb#?W(wrWP& z(%r4~+)Q_O!J2GD&$eSTbEVCl5M)03}?!rf9saRxf2S zY=s{5gSHm%?*Gx7r?#G!*{UyVqb>XF)v~m@{JkIl_!d!&!>L(k*ZS(TdlqDaP;S9Q z)1n)~CT$0{qxATa!s!jK+E|zCj<^to{BsN>=TD!zph9Y+8oOY3u!PJmbreR)}YW-ybV`TK*#kre&bJu$`Fh3_DGTt`jb*B0q4_C-GN9L56GK8T`S+ zlYnEIIM4-EtciL}pg0%P$ph3kQf7JtFY;ehKG5GBiyBgBKH`FFM4&;u(Le4+t4H)| z5G@cMS2Y1L;nKcr(FB9E8J9Ymw1>7?mSuQ|+%IPVpe2~t83V>2<0l$qI{h`aUDg9g z_myV(wW;TRb8{g{_u@=An?G@Xp?GX@8IskH@b&LyTI?*1WOF)#?Q}Rsp#O; z?Z^*|O;`zQQI%{>Rn)pFi&!Zw7&zF^+HoFbXHqY3x6#q1G{9yfkK>9T(g(i3&>hWb zkmp{9X{f+FX+@Qis-TAIgI3iCHFtMbSJw&VHgg;t97I|u4|1J<>N%i#2<22p3~5z* zH%tR#LB$PNknX0}4U>#!`!HOol)w!`T@{i`pPt64KfK4;U7$Bhi7F2YW~HhSPxb+4 zu-y9L~>-mmU|l?6!h!ek<& zmev9sVx87bO2-;oNt%tb+J-u3MiS`_WBjq;%6v6kQvOp1mdpFfr%(Gx%09U+m4yoO zB}F=>PV~*?atDCX7Fc@+BavX&N;qRk!hzG{L6 zyb8EYO^qEn-EJEdo!gq5P)^+vOn-WakOy3$IvY#{HzMkN`joRynLl{Y?s#~5l-`^L z(h|UnDs6Puib}D+!H;}*UZ)_R0j`kH@%NarSINuB8VOp#&{{bOWwrZQ9H3C*N$I>_ z@XUthk|2@q#ktUTG~6aO>NC~M#T8b*dC13 z_awIaNx<%<)U6bfY{?P4y(_wfKr)T805!1ot|&fn=Hm704#M%=a(-x{Hq%{EUB}ao zq62MWwCl@T1mUq?FAp%CQV~=6TT+T9NEFcM$e0*S4M(sZ{dl8J?O#Mz*d94#XgD!b z44JZGJ~2VI@swUnbLze`*6>Oe=KO*47_9 zc=+tun{U1K&huw)aLa70ZM^y7T}Te3u->(eosF&A<5P1~8c2vd+vtMq%dfb7|H;+b z<~Kk1<_F*X>78fqg~es0h=hOiy`Q}JXasK4+bJ#7H;v-$uI<&9w{H)R zTPhpQ8F>WT%;4~-EMx2L9={FkD9WthzJEZORbwRmz@k$z%j4{v)p=d{9zC4&%+TXk z2p|q?fW||EG;`7DcsV#UWJ;J+WwTggKcfNzYbv$BrC2bP!jhaVjb5&B1-fT!!CTdM_!&0c8?~OvvLmE13XA z0;50F9Qu4eWN9VTSH7c!1p~cvaqDG9lIz1mruQ z)(5rv+pHuNIx|+~gobdn0-FeKcFqD-gFd8tJc&aeNlp$)O>(qtZZ=JTxo;#9DEt28 z2(iXLv2;WZ_`?sOi)4aSyHGxMYpdN)U~NOY_5z{FbPo*{Xfo6GPaPT3WS}@aI9VL- z@9vzRo_O>56Wi`t1BhscVF#aLR=E=U8HsDJys}T5ht6C!-__xb@aAawrfYg63-aZP zdbS1xD49!5Nc;?6@>~};Dv4Jvhvi0C)xd%3^|~&R$9Ua2;b}{UH2OO&;0pEEeQfap zepOM6f-a54E-4G^ilJ2>=Or!Q@rYh#)w$ z&S!3+%v`aSANg~}TD7>&b@X-R3uEK6)r2u{MjEofAf1*W}`M1K)I=|1XDz6?4^Fo z;CG$F;}_W8)XE;y6zRjIScn0HlS-eI?Kmvzp@w~#c$X2r z4Cx+M3>9Hrqvqyj97A-oti$7kpz>S99oHsZO5ZM~Qe*~EotK9<<-sIyAKKD&))u;#xe?{9o>B%_sF}S ze&9%4JfCM0ou}ngM2PdUkATwtGOPwK}u7tUr6W)jQ)ww4+lx=`IZC z`UdiY!?4}jDC%x!Z=cn#A`VoaTUw#aD5Ule5a9_zz3%%ApdL}Dy+HDrxdk>%EA^23 z<<*UQdylqvZ}UJlHtWSy(=0LE4Q?F}iZ!2H$dp*Olt&*2JljOsX-V<`4kvYWG^+sOYLa9M35NRuV}vIhBaIDaRUPR-w-ZZFp}j0pE!`ae zl@Oi`cg+)EY+w-8mzYp-RWAaV3V8(r$m(DZ;_5z(Y!mG?aLir8AF$XZp#aE zZ#{cFJwDpomAkvU`ROMgig)x<%=++QEuJLKM@=|W@>jq79}gzVqF0e)rEFKl`*T({)4h z83u_u&GdK);!V*Q3V_St7T2Y&Mo)mYPWwAVRW{R^TiIM+TrFif+o3wG=2l~^t^4w^ z60kvW(@+;5;T0MaK{Qt9VLx%jS=?zjDpqXI*n?enPM_2GG5Q-L#Nw8NNGSUbyv9bK z?Hj6U%hzXnT5{bLRW&4+R3 z#R3TtpcX-~_n_{n4pfG26Wl5p89k##VX#0RJVJPL1d%_U!cvPlq(+Turs;Lcu_N9+ znJ%oZGM^G-4|tCNmvCNDK)fnrJNYJ7(~1y@t_P$iiN@H7z*HH5$!{3%i>S22c6J6q zlOU79dAne|q_8{R)dl4L+yCL;F0ZVzH!wK>@Rs(D#nRf&odwEl^#k8c429Hc42$> z?(Us?TK+0unm@Jm(MimGTTPK@u}T30bq0B(~k*wGw}pA(|MJAN(-3j{_cgy*gl2>8J~ z5qp=YVec3M?1g@j&LhCRNsyt*poM|w7RkqMbjqi}csH+Z?HAx3z9;PCO|np_YH8iK2`&0oP|@OGL8HzT2jF~H~bY2`i|^79Xq zOpHRWCs;(TdgWT6{grFx1tgc{QhQ>3>9OOnIZ|znLaKdT8yf0NDTPP@D_Q}h&XBSa z-_iFHluW&7L|j8X#M38bK9)YABEn6G<3uB9=&5fg{zwSqVB2-xGrQ9LWO2vXyHsVtflw%6dGIGIb^IFQp}PlY6PP* z10rE;qu+iz&#>LN3gst^;bAn5yh9pdJ4+35!guPw+AOPV#@5E^=8hR}bHfS?Vjewx zCf|oQmb~N2h>@{mFi~23B0;Bo1p%^K+0+`+kM$`+I8S3--_+Vsb7Q`jpneKEq0hki zaysM6rYIAdkvo1P7(wGz5Uw!5$I36$%zzN+d|uavuHN0>DI(clQ<4EGOnm8}}Z~t!=gU7CL$cCTAB1ixZUdh1Ko7 z=kGjz@&5YmT}~KCj<*kuPf`2H<}?{goYY3`@zj*<)D{@G2jGm3(NEY$tI-g?VRn9z zwnCY)Sk=NP?FZU2Ig&cSx2U$?Mvx@+0lvq{<+TmJncKCI^fe2EBZ{!{& zSwLw#HsE81^oS;t#xU{3Z{yi=Hw3<~ub*R8re|!bZ@MLRZ4+wS#n!0yk6~6nDQy&?Wj16@|x**JGMkc)$n#CH3Q~byGryXF}qXtO~nGu>E5iW%bGfkt|mOA6}i9eAM~@mRfF1Z?gh(}Zj5pvICX|tVGAvuEbE6h9$BvOljCGX&%R_W0;*+493J2gT z)<#-@Qe8uBGMm7c0UEGQUp{)2W{&-um~;-T4Yt3At|wtyzen{0Hg|dv9o)pyuUJ_* zsuvb6B_8_#ZUt#`CFceS^!uPprF2jAM> zTm!j5gF=%D&)eZ6M>v117FJA?9|&?F)9ZMVNb)c`0%#ZdT)J>wiG%`w>7tWK0E#o1maoPp$Co0gad$9J zI-kytPe^Q$zk7XrP1X<9!43>^Gor*yv%Ade%<)8eC70r=jil(i@SebS zUiXTdHYT7$4t3@2Rxmp=ySBP^Z)|J<)I-h7*J?7k-nET8i>0lNt%tYozu3L|_QNM1 zKYiotpMCpxOB=V}`QXPNfBlbd@4X2TqN`*>^Udm7gHi!NvQ{4rwQPIVgk0k%tx{Fk z-lxSww0+NZawm?D&rDexobA#WJkw-vkX(CZZA>L*Ui6cm!zgQP8#GCZk%;&onuBzdNY`u83GPb&odgyu34bcc%0-Qv~gwkw;8@?r%=ae=eExO>7ISyl~A6gAW zrt?d9cipjQu^4d=;WX`V1ml5w`G$-M@QmV(jV`^{6_z7WgrD{GPIEK;_~DahjD`H7 zh%m96X-UYS;ka-hTv7md%UM9^;(TIB9QTNC3aB|WrQ(p>ZwHt+{(_aed647+x_z@` z5DhuUS8!+`eAEu4m7%l?{r>ChrPPhBtI=o1YoYp>-at00bG>Kh^vD_>8FfzVQmR2> zRb7LI0kC}}Nh_R+i>sR-eB=Aw14B*i9dJI=(XBAr*{izR{rH{FrdD?flXJ5xn=_>i zy87(OmUaY8kH)`#0b_yfOB0JL3mZF=ORK}vKEu%Q)*D$V7l6i;8Bxp8RHapZLVtxYm`UbtRd}=ru>&~hCX=NpB_np)Tlj0um z4q(-uD4F3a3-j1v5C_|Zjwt5B_M@*WH$f;wJ#9yl4SkD2C^^qXKS4wyAk10C<(t~r zN-EIS(yR~U()`RjZ@sZJH*JHY&i0nl{PcsnJHPSMA9i=Pf9WeFUwR#eYvHQ7_ph#;4hUtp$KJ*6Q^VHYoOcENTzY@a$SYq z{vu!>9i6xH%&ofi>y^z{uUm=OJw3C$yt+f4+`adPet{34eEr#5-}=rEe*XCRr>ood zzxBQU;@z+P?!xkp6uQ1a;K~qW*i_0Xtyv&5#oH+}*5$=M+qrC~%Ev%&??B(vH=cdt zd*8M!sw3akYmf3mf1>mqO5nWcLXv{4Z)d=p9cF9;y zojM!4h2p(%o8V%`ISIIu(`C{fJbL_sWnmSSC(mB6&Ji)f@Wle>Dk4Gxc}EJ&1QVy$ z42A7waS3w|CRFC@G1?=RV+;Z-RQH44yHD`&I5)D*r7fwvQV|7?XcQ1)KFKEpA1N3r zh2Fz!2yg1MBqTXKJdkL1(C`r9-Ld!x$6?xvf0mox_;#qi#|bh%xy$Wv@xplUxWllK zB*w(2b&5<(Ak%0=@Jze?)`y0M=jP^DSJo^~d-n8==g(iv%`e@osjI4u#=P3AQM+`0 zi=ONJf|J%dEKbiaz4-8(7W#r0ieo4|rDL)d6GgXr%)nOImx_3u4;V{v^`!E}0Y6}FeQZ_h5Tv8+>FNHLZ; zQO?QfmV=5gC_1+c60RB~cZk-MWEA>*zT09|wsvBRQmkXZJL=BwA_etG-os<#ojtu4 z!@~SKdyf`MtGdDC_PU?Bamg&Ltm#)^Yi=n3gr^?+&thr0t-YNkinnbV;`1-}fI%$7Z8T;_ z@AJN|C2vWVmoxl$bxjc75db&T&Tz+&*#W!g)Nl)ci7T?Z(1Z~ad{rYze+#`Bb%_s_ zsBxc0dIugAxOadcVI?T`YqWvhih$Ajyu09f!4$nC%KpnQ1*#Mkh9E?+olhnZ=IA<- ztVOZmpDbf|loA%NicGCa2(`ttMCVF@V&!GQ<5*e(!-XDE3OE$q6)J!k9V{xRw~NRf$%Gfv%8xscWz$gLYGJt9C&K6gXeOfcs+=pQ$~81t)1nj zUUS=;s-~uTsE)w1Rswbr3JZD=g^W9|DCa@4<&;93orC09QNG6m`X`gn#QjoTXY-~`i=~IR3JVIn$?+w8V#4-|v;g7h0 z3h0P90u>KIJLyeP0;+BvTRcEj>Gr_UaQJRfjg6-PlR#b_P2bzW%Y>+2d?TByUE0%*JJmDmJn!7KJJ;#rFg8WW-)e=^uR0rk0@0_Y^-ji@Y5 zgK0)e(IfbQ&^z7nFQ+wy!>ekHihT@~XL`tU_&B2CJ;~6rI8Il=HHh`u;@9m^=y7?Q3@k>~t7?+WV3tba<}#iTRcB`Q>If(ob5j1sla`77Qr+kSF zV;*ZweM3uomk?189No`=x&D^jJ-xz{QAMd?NNbsP1HLxKNlhT>H`u$iSI9b6U4y+V zX_IUnN+#+0gm>A`@~TP=xI{*&r^#(b&L>=p)dvac$wNI`QuKE)aJ$_y`cN7xvHYzHQY>Q6_l`XtJoJ#9BLIX3 z1a>V43iPYaI;$=p3}F@oBKCZG&`czDDHQ=vBhS2T;3ZMHBctQ<_KqmS7F4ICS+)QJ2WIP%u2Sa}geCTre#+pC3swmh-HCqsVmrAW&%p%xe9d$R`)Jb38fK}pqDqPetmUw4R#p299AVNr7M zQ>hSN%7X_EIMiVKKHp{Gpiyyr@FmkxTkldxt%j&YUje;RC+nyKe@Da zZTI56^Os-i?i*j*zIXHPZ*1Dl%zDXTrEX>$$i{ z)MtGPF?&|*80ZQsb>~ix2eYXaWM;Gip^t*xf!DJ8R!|YmLf~YyXPJCWw z!#8r$(U4nm`dp!~h&3JjI+Vj=k9fNr4JzU(v73O;h`0J>DH6`iopBforGP&dBvNCY@qvc6uDO-1$%QqB z_Kv>9*vumB1>kESLzC$mOxCq_aMaf|x5X1lin`iNnqKJQ+tjQyRrZ!5W%}dx2s)hb}@jjwX>^T-m|mYKYIrT*S2<2BWVs9sRk)m{baax z{6TNufV9Y9V%RnQLsNs#D!cHWKz%sLN=pTyB0;dvEh*(nkPpRVr_VGsHA6PR6Y)-D zYS;M&?Ml?jmKQEbgF0w~P;u%EPHqVz1(cRx@eO16UbJTXi4CIjfGkLAB-P&0URPf) zrGU~iJ&Sw^I2deDZ*sCwL%;|wuv}4NK3{wmjCDDuKpz#atgPhN>Fw!v>IE=}jcfkF>x%Db0kI z0=_+hWgm-a3>dtQNRFgMNKmPm#xz1i`T`{%f+`>tvBGsh!;vRd&YosgVPbdII0X<7 z;P3vxO>WU!qg;{{wQeBfmX@+rE7*BSG$2b0b!{9NE0J1Jt}-d#Y>Bp(#%{j$CXN^o zQl`CtksQl&(^oERtuN1g_OtIL2m7>kl*+Y7v$>DhSdgg5a!k{aUA1cvH^(AfE8BC> zGP1Jd$bkF48Wvgna)}XS0&mJ5)H@osha8ZZ7ut$eRr*YXRJy){aR-pV9Q%6U!2=KL zb$RUQ3(A;8VDuV}=_9JZo^r%^xSGleiW#K~G8`~EP@8&clsCyD1XZ$gARuhFfN*u6 zGoS&A5@bL?#81G*Br%g>Ez644waGPUIs_i6YW&iYhPh`lO!b9bW~pmWL|UoNFQ~1l z?QUr5Z)oZ5?oB4g=2tdu)HL?iHcGB(?t3{swcMAOzV-UIZ`}R*!rBcgDQ*=^cKXQ# zy*&^Z&q8hX?3Qk1dMqt1C!Gcw)e(=c?(A(}y3$1R?dm||E9(_V*~K-nN>v9nW{-Jg zfgxvx^NSOUJ_*|`@4$AVGJnFdho&OKQ6mksio%dtfH3)}F*`@GGCC3kW1-B2Q35<& zXAO_AVyo+$pLqI(qwq9n*CEoO?Qjx13($MnRUd9vc7Aq_5XOWZ#^w@p&lHq9U6k%& z^`gCT4k3AIhXBwn(R(dx(FLvULVwNCM!FJzk5FA4VYp9J9a{0bwS3?*s zT@|Hek#-RyncwN{hwvIpkAU5_6is017DW)-_v5mCgm*xM2gPi}8-b66OW1UQZ=jQg zm>1X8)h#S6VC>!9J?k6Wm# z1R~lB*az?KVEF02(XqxD#l~j6!n6<2cEE8E`i7C*t7){r&6PyPEpi zmAE|7NlQw9>u5uG>0nsFP*zPO#s%#_aRMounPzy3ZQ&x^Z zi-rTG11&c!Dfndg#H=*E1)d?KJCJ>?j%nZ9enTyHAnA|*>U{@Mzh9QBxrK$kfxhv{ z2{um;E-hxn>fFM7Q%f^Dji0Dp@_H;HSV{R%7oQsnWbJv4WzOo0SXXB(ZDSl|@9qYM z__M@oVCE69aL`j!NP{w-fQtw~prC{wdiY_uCOz_Ga1$Is&jF0BC#BBLnoLh;xEUPu|Kt@5t zqFZ}qIS(X!Zf|OM=grqPSLd%>+`fEqr=g~bg7o;2C%qUQFZmAbL9Ysm5~lS2_JWm~ z!5Gy6F=Rbgv`%)=@d}aCbPJOY6wZ#5RFia&RxoncXh@n2@Od}};SK2oCDum0Mnk<1`6GgdhpLM!ud zYPyPqTO^%=Au?2cVQ`Wc7AQUW!LpQlg77?In2C%UqpwA(C4fp*?@zH(MrNV)d-hy$ zUcN}Tr>$eStOsPe5KO|CGInF+uv)4yJ}_|U)jPM|e5bpwx22=4zNM+AsR6=Q z)rUbjf(!2}^oxuHkU)!l0W$vQG61_^1kv@PF=ua8Vl#+QCr+wE&&)A|E_fQL8;BOT z#;$xjFffueAm>qG&&iB)8ea?yjUIXWMFR#UVM)|MlR2Sa`~#X-;Og zIdK{Tnge3qx5J;U$;XxJCp@K|)Hxt-;6c)cmf2qK;4D*Ub7QB@6&I9Lsgw1*vZzNW zs7D~VbtNqlx~Sm*rf#4Swy5arz~P78_SS+2=D8rS!)?x)pwx%Xt0LWCbPP!ZzQ-tS zieI@ADk&l+PhSG^Zac8-H36?wFYazHH`F(5Zte^YCcyjd?uFgGiz}<^vZ%xl3Pw+# z4(>?>o^YEQBSA^EW@V&upTGXvhhP2SrJJ1eto^=z`c&t%QR+`lyyt2w#As=|xpnxo6nl^-ILPO3S0bZ@Hm3Y1z z`;HnSJkl=u&>~(#q4n*({=s2tkN1{u8$_d*(0h3Z@J^Fa#FU${b`@fw{zZs9oW%65c5? zI(3qENn3*Fu$m6v(%MSoU0dHQD=!1-^qjHrH08%?mr`)VNW#(}sDvGz9a$L}(wrp1 zpumL28&>2QNXHP^*jV4usn}2kFa}H{>0rBnADZ|lcVr+3&pr#IEQwDae8@_A?9s=_ z@4|ZLhzNoT?fxK?Fy)i)>K{suPwC!c$5GLRo?-yUgUAEDfI>DGD&iA@?XqD&kqyR? zA<5-}mZ0|z6ekSDKfDY+d9eg!KYW&Hf{~(pl8B_7eh3JycR~LL zp4_^!c0v6Pp8i~j4&hlq$ue5_0(mJ^4P-9tZe6>4er0ibZ+C5ec7ptVkRo&FFbzbX zLOaE28zOJH?B`!#6m}*$9p$fxn(A-J?9ziy5dH}ND{vsl_;_^^&;;wLBTqPyzw zhF|{WUpc9Q*u+ouV~`z&=H@|ix4<|Y3&wKIgj7ctXnIo+GW29I75;_AMjM2r8b(xF zCPn47aUd(@1_0=;&MbP%oH|=@Hq&6Vmgd$(b6cXdbEvC#WNG#4+Sct@Wk*SQ%f$4? zP-QAdsr8L$J_@f^np-tKu>&;ff%d5qFdh_2Ap zr?q)_bnNrr_|~nr-s$R%!}f;u)<$hP+nOut>|fr|fb9$kF7$S4BwzRKJH;Ec(KG_g7nVL9@(AktUIOnV8lO^t`e(x24GMLnULHS$eLVfFsu~lSpMLT5 zvFA^}bRrnKUO9b^@d(>@D){IkZ1vx=pUFCTI`fs2G#Q&CSL2(rS+W>~XU=JP zmz$BP^}0{Eh~32FsQ)S`sm;tQFRRdCFgGxyNaw^E#Dn&QZ&>UF=Q+Tb*{!r7jXw4` z7UZczzsl!0@PlE-%N9Q4B9FQFoxM2Fs)m94Sam6@e2 zCU%#_wY{2VHEjd!eS;-c^-~M$BhyRs8y7kTN2gb|-}>kq+Bs5k8k!vh398G;%p&r) zuzhKAX{#?ak(ydeq^Ac)#`T#QompJkzO-}go`WMXl6H>B(@N|HZd@jML&-IPX;Z#b zP*Mi8rDa_>A)7Vl?d|85v5e#Lu$^WpGHwPi*QP)<6Vgt-Q2?thnL0{%H*iG6SX5e0 z>5+kzRIRRW(8IE$yF008Q+lFrFcFTDYHzv~d&j4ty6v;?WtF#Js*%+7Lpm_GAK^!r zHEWOMG%~BRvSSp-o#QGD`5b(qkQ{7Ug|x{sGDy^Rz_p`15|fd>lKOf@-zq^0i1wtq zvdRh_7wQ`uczh^Agdo4tbVXvBf;He<)^)k1qa#Rx zRu)C*VVz-)Akv|TFe--+lM%psUcPh`E-F8ZieM&|u@jAt-QSUgq;o_2JOfLEMf|89 zSY8;i>!FZg`COzO=0R69FjiVZ!iVbn*lzjDX;wStg2t%Fox8Y2jL*|lMxO!Hy|^$h zR+zWGvT)_%UV6-!$dUE6h1sdJSmnTj2cYW{kJCL4iPXI^dYa_#!G|7}N_OJV&nhZQ zwTz7XFa>4mqzdIuvlN9X8E_l6DMj9hb(srk5elj{e)zseF+TGC- zU79-E%4=(@>Kj5q1WcDS&CMlp1dp+hOnyas?N^MGgP z7r%J&tVj!^rnChv|GQGT@G4e@?U9!DTICM?}=2CQPoB+s?!{B27@e+) zV|9Ad+A^dS8G68ux8vb>dw^a4Y4M>i1U2)y=N?h5eC(L;FT(cFKS3;ijGxn1kq5$l z5c1IRAksd=ehq&XuK0Wcjo;6uDyhVkLgqIZi4?U(owSj5HI}T8%9KV&)195&*I&JR z_x?L`iz^%3=f|h#b}nAsyL5Hu;$>#S(TVAgzy7_s<<*PV?-0o~@7lV2dwKg3mm?d@ z{OWEzF-m(;yHsWNM$h2n!uo|Grz5kIyWcrj!_;k!&5AU3Tdl z7-4E(-MyNem?6&WT)jQFzBj*qeq?HXAJ}n4iJ=;$MxhgLlSHSABr$}o1okCc*>6Ut zX4z?U8;1Pg9~U9iP(In|WlkMZs+KzA{RAa{0^5g2)5)=M=#ABvmRIRHw%@`Xu(z7- z-NyFb(>pLgw?Qfl+5_40txme&d)Gs9bPU!(`;zhs=GT44mt5LgqCPgY;ZcrsoOyEu{C^%8ow8dJ)=xkzB9{CD^p( zU|%_UlydTmCD_D)x5p%6-ckeY@XJ8`aj0{~8 zdrI2_jhxiPjMoirc#iq=RTVvi zRv$X#KDe>M7fEA)kJ!WZpu<0X9EonItCdLL_NSVFcUP2|N-38z@19RQSL>Lu;eqY- zmElD1V1M`6XkvABez33mkwb?Sy<*8uv0poI5N-2S0T+Ik!(Qd%PyXtse$Aiv#5)EC zdv(RMpM02(4n-@G`mN_=RvsX7kexXr6(J(SKbg3U7DGPlZsE4%vbccE^-I6>%Lg8O zP`IS+fX_m%Bn&JliaAbvHyF6BiW(AwWKdmXuA{T^Ie&}u+pP?M`wa|nLO>T*Ad4qZ7-?vDv=C32lI{zWT+z%O9kt_q1_sYVF0_%gT%- zE(zV7!xliZgCHZmDk(233C#iQ!J6v&Is*IB*7kRQ@`tQ==z3ect1YhaNGJAQK^Jar zA!vr^BaExg;Y&X&I*JHP5NDVIa>7}rUokq(Y8*U}5qfLSPT)PAnde~EI8g&d9U*ae z)E69rMc|I;0!p;O27L1Paq!L~D7u$pMz&u*bq+Gab_+l=5HUh%!lP9)E2ED{i}`c8 z8M3SS#d$?KR7+0?AIP1Ank*wRGdNBPik&#eo_z&xFDk7e$nXbycK`REu^qzygDP%_ z&&iXH8y9rjtCH8XQ=G^SDj7QYV8Rmgh8X}Jyu)?^d?dUC1Eh5l1enkUIb5VT=mjYH zzAL6%1FeC9R4O$+Ju^2qKRY*{PEYXlF|=Q~erxB#rSa+6iP^c0y^Et$Gg}ufU%LM4 zy_M%+1%{+}OLYzI%~beee3~AN>0F-}};cXIFQsnmV>F-kz9WlSTdDYd_#= zC|KqAt{YHHaQ8S4K*Z?YhGB>aI8k&hpmziMb`z9hT$j zoW^bdA~{w}-Kc?vW)-P%drI1OgyV5y3dwhkw_`PsUuqRzC6dC=p`n!P;lbfyDN;XY zqajDAD0aj^;I@tq1l~_x65M9zAh$A}NIF|$;O!97{G2k7Tdl0>Pi8KDt7H}bN%B+zSJr2FX zVgNOeF!UKP&gRq!_(s8y(Zqwa(-7q8RLFn_Y%Mnbxf40piGh$-R92Y1C++{RNp?Z> zAh5qe@B#0R8X7!eVDSf%raB`xkFZVv-~b23Y$mvOaZWk}q4mx^$6vda*4Z5}m~DKCTSE<^pj=eO2-yW2b38hhjIQB#?+@Hhk(H8Q*Euy9UW~FsLm?SAl4A6;P$wdBNNxd59K&{ zl;ATiA<)I!@ni{i(M5f2jRO~&BjLPE4<2|>3ftzSteeqN*Vaz=V^u#D_-dXY{nRTj zX&&*o0fJHff)xL$2R`jM7E%ORCUR>yVFP0zO=oC*Nun%AZWW<9 zRoAGViTU}@e)6sK>}-n>DLtLAy|XXwy1I$*-a>zIKwuF(`9|LQE?fjS=#%IJgetU= zuhgqOE3Zhu?2wXq<)o%d`Nid#`6cY`FP%I~W`WEQlHw6)?Y`9{q$5MI5-D5GOX^Xl zUBGI#a&AGf7UgF`CiDy)5x`oXGP5ivvJyHNvk6jQ@{7Vf33j|jzHSrOr@oHSK z*x1tY>V=C}cJ?mZz5kZp>|+yC)ANfHv-1mU8&mU(7jN7eo0{G_e|d6t;mYmTw=Z5@ z-#x#3ukN^DN%&qM<_YADI7fAjwO z#Tz@eA{9a&V32;w+A?R{mtKb6*Mz^px82&R_S&tJbc zv$%$42z6b`w2G;%<3%Bhz;<;;?2DoJR0nhAr4uuW(V*w^XW}Ok1ZX##r6nEtd`Rnk z?ndW_|EpVj7=Cvj1!!u0`@DOK0%&ne@)VfVSlTszVX&y&Ou}BbTLu|18tW-B4O#S}x<4X1*HsURM z^>g<*^7L_eSW2vc1>iJ#G((rpO8Q%e?imz=&~Qe7gKT^OV;3nnTmo;0+9o=c6k9XG zS&BiZlQ{8`d&#KE{)KCd@D$5pSnf0#LWulms17-!g_ObQSUlUni(Z)4r}C!2pZOgA zdm^WdEZ*Tq9s?-yce2CG5jgAq+YtnkWw2r-k0le$^)(H(mGSPj@v-5xmHGVa%m*HL zkgt;M-0Sx(t4YU%i5^FeG8*MlXbwI6m@P@YucWl=hhq%ov176Za#dhfc34iqHiYvG z&DzmG8*-&&y$KN%20nA|h%DsQV`DEr|D2JjN3?`Jbm-|LN5l)>NpXdqg>A-bX`?53 z5hVXm9TqyIc&) zpPbp5U%8Y@t3aO-d5=%;oWJtn=H5F~^A{&(w-qneH@4*$#xg>Z5d>?`u5>pP%ux7? zl>k(h7n$-=T}gyVj*o3zxcK^qpEqi?qqn=GFWxoK-;)^V=<8KI#T}PjP-0erLrURc zba5lRqk#8?#auB+yZ80t33Gc&Gja-Eq$!;|t5+D(o?lWyTEV~-4KX76A{Z0^AfgW5 zG53hPzXU%OG5M0ETcIc$fE2109!`y*)k_^k#QoSa>J1hDuoY#Wka5n`?~X6xxrZN9 zwruomP{^IydISM(=ZoY8ot|rSB)!zqF<_R3BSsO5!vy?-=zVy%7=o1II{NQus4lU< zj&WP?%Y_#}NRQl`;Z%}15SSc~uswozkF!tI{T4^^TEU4WfpT!%$!|Ft;Qy0$wX-L> zkLBbdC?I8{#5~)OZJIM8=|OK&k~D$Vy#uNA)Z&`qO|vVTsqrao z2WFO5FWtN|yR^dD+0)mruZ)LnY(ZBNRVJ1iI`5gAnoEpW;t%E^tgJ$nog|z)sH}k2 z_4wpeRZR`~B|R}7D=)*k&t#n=fK$~po?}GUI>49~LW&FrFw~+ZWw8GswK)WU}! zeVp{e)J+{?(b0xCGuJ7@`lXDiSlvEdg_sYDN$UbnAD0ZZ^ebq3_@P7k(FkQRY_1-U zpvF^*&q_pHsFDZ?qDPFh5y(MM9Y3exBlV63lDmr|1K6_o1%6&$R-<^6L=q$?@lCEQ zrxfRYOJ1$Px!F5f8q>){r(sLA)n;=v)>S9^d!{EwW+q2fEj@VPpf`Bv;YYNCKz`}f z1aG7rZP#0g2=M3=VVF^ngOE=HuoT6gJmHZ=5WWFkEq;Vij!-&Hdf+^x)7;S*4-FT3x5dXSM+Q_{_%4;`yP}v{+5b>&WBk*Z#Utpx+Yewr%UVT)WqdG_b%UkZFF|J zZ#V(fdxwX5h6ekR$%%y}1?i*}r<>>_+c{laA}{OF0(+-5<>d2yf_G<|Ru*~1<)_Y( zXlTpm?x~l7dr8I1XR}{CX%?#JI25J+S?`7f;G>2L4PrH>3|~Kl&8TK~V(q#Gj}NHA9p8srlX7 zrg&~)C2Z$^^Be(r&xE!WzUc7Po3|K_8%~(eJo}MH9|h5BTRl5P$U)=8@%Ryp>lG6$ zkzm?WyB3H5YQOR?2bOmyCo62E)CJEdu9GbXq`63@jJveH0Fx<8j@1)NZ&~3pCSYvt z(4Xac29p}=&L>7j>f1WBYMfu)+St2{w5P@=UVrcN%Uc&0H_!jhpZ)j0^C$mId1-C$`tr_YUiZ26UF`*QkAbbtU45_}*2;tu;Jf+~ ztn3O@rx#XQx^$o!scUKDvhxZM>9+O`T^dTuDuRitP9`X1QYBvqDFDBF4{uYijf9~LX)vXa{a>9OSj+Lyn5UD+CQ9H-@CN5v3>pS8%t|j zNdCUYuJD=QBN-H{&=a!RnG*T@x!i|PJNpP%mnT)GL@(tqudA;k9n1RwD=IqUE$4ZC zQ{(L1oNoa{29sP)wjZ9%IE&9v5&a=phS*|5g{%0sIg%WmS}IX0Fl2r6g2zQ4SAeUU z!z4TPi?|4zM1cBN{9$n2gjQo`JObYrUxjhVq<(Wi@N%GW`qV2Ds^*mH45xNe)nxdZ zH5Pu7^&*JXRNv=FClSp?Fklr|IoLrb#FEyb3OZ%jnq3D^+1U)y5~hHzfU>gkSTlP= zZDnR&HVp>@@9T>zJ4G@9yGkMg3ko65lA-nq*cFdG{0OPp!XwFIy5^9x%fWU>mJSA_ zP_0MYQrU=y;O_Y?)KKX$@KL2$Y5`mGl-WSancrmEf`}IajROScH%$2P-{SZ znrq4`6TO1VFo}g%E}Ly82j6z;HnnzX%2D6ch7)*Y@~jdc zjyCTREa+w+4#)hVz0XRqt)^kVK^?}pc}=cipfanryrhua5P}r%`;kX}xH?|HGm$g<@$2)tBMW(|nPKUMw+v%yT$@vSjOP5wQUY%dQI+&X4 zjHjyWnjIECJx@f6Ay*Rl1F)M)OarbcFR82)_B3kI8jnxS&rdHbq$atY$NG}`kd5`G zl7s2-+4Zfu)^?3wNJd^Hbu^d#tcb!Ri9izZDTnu{YmM^?i_R%7&nk-P(~h!ptz_gD z#;WQw3rn6q5vV(2?;t?Vc^dhGFptsNS)GXn^2Ukv5dlJM3KC^pkdkwL7cb#?ny1O19i ztBL=hH?&UW5XN#&ost_xW9(W#34%=28S*h=AZZNvhZbSs62P1>D>My@W{%jI`{Ims z1R<+S=IAW*l36eRWhqt&rNUdVBk37Zz#W z@x&10#lqT_;?tG&orRUP#kDO7&^vE^_`#RIIgm^(u5aCV{ew3@`o?#D`p;f{>w}F8 z*VDxDOLso|$?s|Hc=^t|?|$+7Ba=&Pjv9r%_vP>X$^ZTze*SlVf9L(L+N!boUKXp1 zrQW`D9lU!G78-NCE&jn_mH@t&W-L1ROJcFkuI|46e(C1HM8btfvAd^xad`=_l*VEZ z*a#Tc<|s8cH~Z$<*SS`Fq0ZS59O?OBawVCiq$DFd%Ngq15k|R?&+vKF7yeV@aRLYN zK9WaXlVD|!4vylG)AaJV+Dxz^tCf{ef%a*t9 z6Z(S#%Fvqys<;U@VY}=kiXT}0i!Z=@7g=CSkx0YP2+R+esrTZGwCw82N-Oz^qsJV4 zsr0y`(OZ~6=XcCxVowO|7Yu5+^?LaLeIPOf(z z@&u_r9T}1Z@2aVYRhP#|@Qm(V9W8);YAj{g9E4<0=DkN@#63AaMmwIC@3 ze*Cyd`+M8-@|!?xBv`q~Iz!KJy&am6xN(ust)^1oM1B zm>O1fsnvB-Pg6a;<4RRnAImC@W*CVNO!f^;^k_KKJwj|Bnb_zZm`aW=tp<3%)Y_Ra zAkkLE+ru@8qN+yYbcb{;uC7;eH zt8B{3EjKqzUULi;dY{FRKVhR*55JyYX&{?*A^8v3rkx3G|SF!|zQl~=Wk z zY9~Rl3T&DT_oMXyx1~LZFytNQtR)Ad^oKEeL(LtT#h=4`hq7PUq*BJna8qjwZO4PR zcXlw}qhOerq^$}jjfq4MPK5o8s@Y^-47A7OC2Cy=pYni~1Yp4pDd19gyd2_6>kFhn zbvWa;JGju=#jjCP)hL0mxcsfiPLStpQfi@kPVfkm+>lYyAz!JQtaK<1ki&iEX%rWY zAx(G?#{_JLM8Y5pm%J04Ib8kE1*dl)?fjahMP8%{p_&^7Kzm7Rg?x=#U^{Kc{VDBI ziahUXHU$NA^^%ejW<<6ks2+elQe#LZQTr%aMxXjwKcm3(#XD1peiiLp?u2(X(9nON zuQQqG9ZB@@lLweZ-5-7I@WYQHPBbr=DMUJ?j4=pD#Y9|3m^_!KVtw=!j&lEzW2jP* zm(9m~($C26Vq`(L_{Pdm{^7#7B0uZT`TaGM2%qxNqogWXN`z^~(&ofgI@6twKkE3m4zn47oz4O?!QucdVd9+k}>erbJukXlrM(XCOT= zJl)+lvABA@yEjd@>FnZuzdpNgp{+yzy+*Z5mSxm`H5OVhsS3e8Dm8toEUT&JfvIY! zUszlFSHJkh&;IJKw=Z5uPE3r=%}gyXOs_7crlc z9BTRKUFbP!`Ku~YXrmLXjOw}Ud=kwmN1I<))EKB|wDyVMOBeHI!fL>7L&+>VxRG-| z+)v1cq!;S09ehS6eTJCkvjyxSp{ZG}9>;}c=Lj;v`WXC3#v`#n*c8wi&Odqdn1s4a z+F^a0gXDgi^4-xhG`DP2oJyH;4`RWPL2Vp|Ec$9|TOqz#*lvHh%~eJKwDt%xPL_S5 z4#Gis*nUtWYV*Fo69EIqLKK4pd%TMV2BAayxpPHmOBA(IClMe2h-s5wF3%xTgnOEx zS2#GBFkESRb`DG5*x6g(*_)c3S9*W(%FW9+Z*j|j#EUoX-MIG_!_4~LWogqZci+2m z_pN)M`O3=9wdJj=(@VQ|-ud#*)z?x}%QxC(C{n$G^CQhSxh}=PFmAOc5T}Ihz^DD6e>(Ro*$fz`s^%;OYWZui@zPf+muAEv}p~IN& zIyN;kx4eGy-dmI((!EY+^m(OH1Rtu@%)(-Na;iTuByiw_oSB_(Y6j_T)Csjqa-h_e zipol=GF;UGI1=P5ov%J>*7Oh$nrTiuiH6_FWeQul(}jrC6_F*z4)a}@UR?IGvBCro z2+{|K6pGA9+KNm)R}bl@PhPl^E`*4<|r|6bp8!bJc$Wc?^UgV>RO4(bSI6Q&Fiie{ow!du@HaeZ?JU^-d%_rd?05t zq(Q+!eSKpuU@wYkbzWN>Yi?{##QP>wW2?!rrK!2y#nqdm6YDMQgIztNqv^G&nZ2=z zb^e9wTAfits=|jRCq?0R;*^w^msYB*s4TAyVwR?v92;N#&F}u!&wjRd{p!TxTzY;c zy*N9~l{z)qJDh5d_c??xH?eb3Sp^->ZFMX~JWmw{@yHj%@`}`6#WeMGVM?UE>+~WI zLKG0h zoFKr5wfo%j))k0%?x@#Q9wlIJ8^8BwAbocA z!rk{ixq9!jBh$-w-u?3U{CY?4khJIzfA)7@|Iwd*=?8!Kqd)uCAARTd-v8tWci#IF z2?gkJSLkE}0QFF?z~1Yur2b((R|h*t*7fkZ;a zmgdip6YuMD-5rnnC&nJDP+wasBjKOwqy!6|h`dApmu_+H1Oty`T3&8hWrgx%#|pV3 zUt?h%Iij&&L>h(}`9vmaRzt?cC%NlQ^waz3>=}0VV4RH-`W6out*EJ%@}q!o?g7_^ zh6dq7VQ~qZp%Q32&x}q0r;tdAMzW0Y&CiJof`7}D1a{@qryn|W7`VZ9iCLg1?@TO| zaem<7L)I#+woVUHnIo(FlS-KmQ-dC5EV4fB5v)EW*`nkr%d?Qq)6-9^$BxO~%`$#C^^# zl8G3*6e@@IKDH|emF9_7puUSG-UlS1(vU}Zb>Jj0ci|ReTUColpwaP$KBK0d6H;F+ z5rFQ#?H!5M_MzN@+QO20dDWJ-;qJK7kG0VWW;smnb^1(a55|6t^*uegGqZ5HyDwc; z+k#7jbd1Ea^FXTpfbD^|Lm6|&8yi_j`-g^ZzxCG6bmplfrk9q}OMNLkKfz%hQn%T8gl0xmVvEYA|$iPZn0zz6=0u;UHOXrU=lF$9{e0O&oxK<@8 z>k8ZPcCx%r_1UQZOvIf+Lm2Q1V_6(slU-GHG`03Dt_I$IF1tvAN);@Y!+#;3BA?kQ zSRYh}-2Tc9*P=huH(c3mkpdG{q5gxw9<-YP^@8kUu*60U1>II`a2=biY;I%d<(q92 zu}(2S$_TYI)OWPEH#Ig}TJ?2x^qHOQ?LYa;f03S=YV>n9a!t$Y;+C*SL%)sc>m3#01#y|PXFMa=K-}-|;|L8Y<_wt>0h$OuONt4$= zglAMFH8L?P4XVLAb!BFC(`8|8J2^IC7Lv}wRt}tZzO=>r2S>-XdDlR!t9NiTJ=M&T zJ}^XD>4oLd6OWIC^WR_t-(UNSwkq+{^tgd@Npr`@Zsj!n<%EHS$jk_ZftT%EcT zXb4GRkWn3@d2eTH#}o+TDAZj}j>z=gewv+(vVz3w|Yt!*V6-SJ)lh)DeA2GBetH9-?R;co)`a(7{(Jtx~3z3bchwP9zqwr3quRlA|LGJRZ||!B~WLiX#LO zD5!j;q^Gq)lX;Fq4}*XDX*}Lz;J@GPWOSTU$)R%K;3t9YlxlfBXdnt}sIM0)seUcf zSXlRa4N@vAks@)olg>|^G*oaZx8i687wRdf(7supjMGN|g5FYr|oy zT2Pt~Toc@&jm5LRwcXm*qRWjuU1+{==n#iLY&S^|u)}v{sgWjg4tj$rtd-tw?Q!)W z?JhFzSUuP$D@E)#P;{At!tlOAOAT)gnFsq)lNsk!A$XlSSCqANB_QPxLPm5Mf9b6g|ROM{I$~d@QPvh_Ppth-T)UmSD{( z;9B=-VA}B0HBRp1^SSxN5qn(_4UFSW;v#*TNk(}6O1KZ740@t8Y2Q&ppZ6jANCmAy zT#ZgxIZccOsz3Vp94 zT}tX3dwSwC)6;kF-u*v*@r(8K&F0Ro;fcw`^=&XaJ~Kz*Xm0Oh9q$`X@fik$HvoHi zy*H5>7-o)Iy7|Uu|LE`j{_8*fgYW+A&;Gk#{Nn2C?+vDBwyxf}`vRk zy|@P3uJ z8yFl*^I?W;l#?jl*KaJU^N6wBU-;q(CT_HZ&cQvpK}uf3cIUhNsd1PmH1*?ofkjeo z=R%_}EKZzgfT$C}%9IwN;tC5zZ74Sg)h)-{)ig$LVfC33{tIvP=7+z$NX{ilHwA?8)qRJQw}+-5Lu=HZV;(VAp_>B}GMSJW{B{hyd)TPLL3drjp{c zqO+IQlM^HQ z19%pZi_VkC4_bwFVtp>O3+xdp3ae=D`fTuNkoP6?n;Po}2m4!Enq*X|JVFB6KRbQs zP6qEwi@hXWtxV~yHf+7J$_nw5FdU>XUm91}qR5#b`98t?LZHhHzz>cU7jV$*M z&l|$P&>kP0ZjX-*kF71N-d^8(cWmZj_uy1{O_LUl4iRd(^8#rH@2*QLbne9lcqCi9 z`}=2>7I&{+UB7T1u#YdyE^MzY?rx4R%=e~7)S+W^{Bopqrw_ZbmQX%G3cO}~dd6x| zWd;Y*?k$8_5(Y_dEuJ_XIy6MpOfVbMHhM#sHqyJfYt4v4_mWmIYOFKG~$qbV0!LzCIZcFIl2XNt~H5PhQ5qnS#> z$a?HJQRS)Q&pF~++TxSb%kzty!U|s^4 zzVzzuwL3rmyMOx^|Nj5^_D}!#=l|;8-G2Y`1LRWGb}a99I@;jxL-#5B^b?noNTI$2!X+`4pg`|{1T zolDaTt7@P$F}wNtd#gJa!TbFWKECnV+ZV3iUfn*wyuR&Z(SpEP#=1sv_p0{$gF*G= z$fy=Iq^XUa^TZkTQu~s7I6Z~xBIAO>fyB_r=onj`#IJlF05?`c>dgQ-`(476TH>G5 z<-T9kOCh)_EG5;L9w>$${>qATOd##_7FGv`g)fbI>4%6n*eAmyhtwP8p1OrXcvvd8 z3+Vy^XR|A7tD+rcu@8X60|YHhTMdcBT#!t+#Trfltu4@Uz#gGA2Fo}Z(EahpAGZ@c zi{8WTqo~#+Ber2rD7jLMr{$<~;JB_c&qzLr5W}Ph^i|;~gAQ-A_#yZLGga4VgaG{g6xlX_4jrU5A~bjDoIP_ zk#dqSW}g5@5_5)cDveZr2=~kxwTei-0yhV1XJ-fRK?{7ZtCjzeq>}v2H)79Om7V4F zl*UT=Fr~|@>h-}kw71-sBL54MGktX0NSxH-_vxpO=$ZepB$~d>DZ2Ho92o^)ZK_0%Y=F*H@%U4N)PiLPu`RO z1h!LPXfkYLF8lNtdk4kt;8@GeFU>0`&n;kR>dq@_C@v*J#v57&d-^8_lM8)AbN#~$ zwskVS4&*!gCWgk=XO>=FTz`FNY_oT0rnt;3gYaCQ#nXjIfswwV()m|jQ(M*0P~U0* zj|!BDrOnON-5tYMXV#XMw9wz%o?KoW7)xsaYnHv-3~PS5&4~p;3CLGIN!GyN_IXs9Iu$ z%wS!xE3;0Y%OSgIHXf`*AwbJ!)dJphZ&>Y=eb_*`B4Y1Ynmf zdg2HH{)MB*o>j)RxpU?6)z`<;GmK0UD`1@12*5=&u-$hDsr}H!-y-V4By%E|WMI29 z!cSb>a5w+(bW&rWU2N;WqsNZR=th-mr>MTFPRh$Gy1KfDqq!UB_b!lM?%cV3_qF?1 zuidN}G3$IQuZm=qG zsxVC6dH0KVKlAZBU-*P=W@dF~a6}EMw0kRRs>oEmlJcU8It?XzadQ9Et_^?-88|W6 z51KoBNHkuOQ%1EZz>oJQ)Rv~w+FT5=%XoQY7X4q)60RGiwL6z@UcUAE(#GzZZaBBz zxbxQM!~)CP7jC`%;q}+vx^Uyp#T$37-+6;h6Eu#FZsLDeZ=WPA-aeEXi8>DqD`=XS zp4-~HsA5-rQxIfYLT^Tbvt$@z%t#Xwo&5tuct8!Jr8X>TMhy$V3!GR;|_-ev=D9&yZADtru?V*q@_%cVaW6eN&X|g?1gB#Yor~ASNrcV zfjrFjRN$QrS3>DTy zb4z<^skvGwA+uB{&0I>9-DlsdE<<|Y&|%-&==iv*XR)5aj*yM--^{PMr3LeF)o3XY z@E_Lxz=4oU<)oy_%Dbs|h}e5DxkGj+u0K~)tmHTjRc%0C(h!-CUVjzRPA~!H-V|)N z-GrY(rBQAlT!qEijHsoxxkZNEw3S!3D_N>-OfS(6M8WA2~{IwHUK*Z=1yKl-Dc>vyMDcQ-EFy7TrIbqrhDy!`6hAK!ofEABr$Hnp~M zg)%cZHZeRged*rYZ+_uh?|u0<_3u?!WDV3dHFpmVb%t5kJtp+gY9bGN7~~XG@WCO{ zkXA2jFypg}a9g(lx--C6xYQpFT_POKt!xl*NOo4Qn!1tnr2Ogp@<#vgD0n}A<6bmh z`-(mW>*udrz5B+k`|sU){oNaP-k6zNY;D)bx3ixEv)AX)GMG#yN7EY4nBt+ou@(i| z=>T>+abPepG&D>JVJ`x+>@h?eLXC`SGL-__!Y*8w!3vhD)3@Y;R}W4RMnWRh7=-|V z5|jY}^Ycah2>iZ79*MvJac?FH%D#RzfZg$-cASTbjKS6p7J7Pn$EOS~)Hk|R6)iDb z>l^uK?IeO;P$K}hmkkyadKZI5F9Y4fmWz?*ii(g}6?N!KoR!5iPKrU<)k3PSAiwJ| z9s~h4l4#Zje}U$|8mzkk)uS$n`j%7dW$=&b{ly7m)j7_rQhJnCZ4H;iutCYJFhopb z;WI(aBZWWsDy5LrOM~c8{qg7{CVnWSvQoJXiA9e-_9%E}n0Ksb*sB~#OrT1`{maZT z)V(VR?_R$VR64rkp!aw?P7T;uzf8M}%9k9iM%|Uw*H(3Rv<_%p($SJmr*xAQalm#% zA=+A7V7pff{Y2N8@u|Kf8|ra-G2`}XwK4uZjzf09(+iK*q0~<92yyG>*&I5;Gycg&E37O zc=wAZ)Serr7O(`0XgKhxPk*{RR^p@t?`RvSK`VXEPVoJXxS~H8@8cIVp#;b+Ravv& z7+ofqz{w7^!EjO(qh8WyFk~JtP@IviAV`^jIj~J-V$qYH zx;bYu`1Tps5pSvFphqF<>`bnS?Y@NPUp`$?-B4OppHotiS5{qEUQ=3Gdom-N;~k5l zuE?fx2c63cZc7?fcC>4^LhfcMq+l;@>?-rrgKLy8rK<-?Mt~byJ6pQ@ zZrp$WGhhAocmCjyfA=r`<`4fi6eZn!>th9{jFF%FeS9UKt zqe9Q38bv4iY3cLJ#2f>%N$#GM<#Kd#)&-kkeRtgG17jRE zNXO-E3T@!Y+Jg1?%bD1om*U)Us~NiFS^7Fc>mCF-{5e6LQUhy$ix&qAEDAQa%^IPgC(Rm$y?EX z;vI!xgM$g_PVAk&P1#1PU?;VKRzO5&VzCY!xF|ZM#kW&pR#IgJ=7)yD{2-pQq6Q{k z;kSeoaNVqsanQ0Kca5f#E7J&5qSy{oIMx7UOfrY0+op4K-s%-*A>EOfUsQeKnH zrWS4rk0upJ-dBo6O`>u;N}Lxm0wz5HeDHe|sy}t~nC@FqK@&C(!$EhDN}hZIM<>D) zXAFFhn6gVEW5@~722~zTqOzJ7f^`Vv)grMW;E3Lrx8~m}P}prlk1xzz$H?GU%qYms z=KX+pP7n`IT9<5PYYFDbBS-dIKBDV*yGy753PVxOQ9nRBU?FQJw`P*ZyLQ#Rtv)WfKYpZJV0P<<_H!3fCrJi z7EtoVZsKwe9y;vg8XOvCQl5I3Rr>8lsCy z(7<-bC&mtB;1Ib0j!W`TZuh%GP)PQz9SVvnjT&m}YzTvc>uAfcotvc0$OFv>ib?J& z;7WBbEGuuQs5IDJHFv7BXRN(zw7q+@t$P%<1NNT5>CX6gM{jy?Y&kV?VS4fI#T(z) zzWQNv_fU2|nJ?IiIB)n<9XYbC<55M)z+wZx4^~pPus*jnIKANgUpSS*gqmH|`NPzV-Wm^iTfkZ-4Wr|9pP);upU46J5gkljGZ$ zZ*}wyDMg!J*}VSR`?|OnR#eZfZd`rsO$HeK*!QlzHo3g5|L@%oKQU;jPHj?W_mHt2 zqvL~)_l;d$$h7ulUz}Q4Bd|MktO4>nO!hMR62p_zb11YA8LGo}5{h-g%I@VU(9oWD zcx-%OZBsYPvB~KL&i2Liq0~5!Lu+W0Xs>Cf2J!^ zfu?2`RyTLKbi@MF^GnMc+y2*74rNue^xocH!48mz?Xnomihjk`0=>a$0JxyUsCsxQ zS`uc{6r#5dZq6juM2b4{2f8WkvZ5F@rv@N%39dqOg|o9v1!bynOkl-`_de`XUHBm# zEdZ0vOf4~N7u`F0HqT#LT-_)s*W+D*S6r(oXM^0XMeFg$#wT>JJezHZlKilSHbJzn zudky3kk(1)PpPEPZZ}xEP|k4SqM^ofLP98VpV49JKa3!f!qWUe(_o%S1OtN%ZZy9L z9r3aOpeRH_FwEKM>jR)1K`kBa6doX@OSv6H3j$X9m_PjRVNK>qFRY-lu8R6~Cq`Mc zhK1rGajNVR#LGnL*<$idP8MVpd;oTo-Zh5|R40Qw`=m|7--Xr#+0vH^mzo=D69aL! z8FG1YcrZPdvJdPj`=zBRoXpZ@Hi|YAG#M!I50V0e3ASpVaE)3CMf=hyp2Z2W?~`#& zHY2%9Q=6|vFA7fkj0}6x5zyJu5h8y>&4}>1Igacz#3Krl1E3(EGfKQqJK<oX7RoBgKGL;rcvr@ASaU%Dk#8+k98|2_CRScwQPo!0G|<{L+SNDN9#6OR zjP(r%x*jfrn!wDa##a-mjm5RM&tLuO`DP*0PCkQb-U~h5A)e039k0W4B3=%!@ z_)ubKY;0_Da%p4Z!tI+^@87-q!DluvTu6;iNN-6o*!bOyaMks|M|=@l@zgcYWMDg# zE-0;%6;&DK1oSMKxssBk$UH66JtNIrrvie!kObf}x1Y-?s%~h_DXpZ;xD;15Xc4J> zDqhXw8vZc15R-@YL>Q$^M0zqq=lUOw8<2}5PCii>0X9@Yu&E&t{0 z2mUH9#Z7FRu`*5u`K(i<7A3y1-KpzD4mwcvkUyC+#N&_a2vf&vL6hJs)nvjkOM7;A#f z3)!?YEhrF{E-x?B86+>1su4pN3){Q0Hat3c_0F4+ z|DDhO`rrKG7jJ&_WsTOq`u(5J>krl$*Xfa^yuPi=Z0ol^`}JG*Kh(~J4gL08AM(Zs z2R1I9$fM?aNYQ8YGCCu19!+>g=4BwNV(E;JY=H3OKpVZhyG&*XeM+fSe zdBDyE1l8BKc1_b;+uE6$osYV;LqziZnC~b(IkUKGbl@Cdmqm4BZEJU6Xoz=3)H4+Q zS6OM8kxfs@a?UWn_p9+0&tu?}6AQvVI18l|Eiw<@S$eEnPi?8XC~gXV^cSDUpHX*>2(-_A;)%zeJo0$3&`=bg z5A$M3H(00wQU#GNZg6J#D{GKQh&*7GVQI0Z$spvAF+6lIF474hAY6gHhaY)F6yWjE zSLLt=4jy>yu}2k+(oj63Ha7ZIs%dqafOUEmn6`FZyjY|ihDGo$K~YfR<1%QX%p`Xi zW=c#j+(~l6b;kh>hmD27UGh|)fsVFjxzy?D@!{b?&L3OGRVTY|Q==_|?9gOPfHZzL zU?89m^*(iqHyNcW>l(yCItcZ|ySlqO2>Udj`i2^n!R_tM9UaXkcj!;RC!^R_Vp;St zKA!g8t81(2Z`t{|q&(I1IeMlQ$kplt5ZbL!(ztC|cR8;ZYvcX>)AMtZwc;a04YEr- zJazo31Da6zDYmNgkK7gzbh&1n`fUAW6(@t*Gs(Y8Ytg8tv#EZ;OxhCl?YUi~Y&@D3O{T zND72+ZR~z@_15?Hu6}7CwNMzV)(t=`>RBWxoKpmuYV#G^+C`Brz096ziG(@k_V>R0 zrPn`rf8%^`FKFc#l3YRM9I|7TE8=e)k3M{5>6LX&fW5q?xxBWST`9k$95ctjiDoXE zkcJzuJu5GZ>{wNsTS5-1;Cp=Obf(@ir8P~(RgI-J&3Uofin`|0*?D}x;x7V@PXNNh zb021OP|~=9$Rk(6K3U=ZcXD*rD&pAQ( zBrv3S@4z>|`;)JJ{rATw=5>Un$#V%<|JEC263$cRrMO@_-o6jy>K)J~MH(=idJ~cM zKs+o?+)bbH-m(qd#r;k8g9sH>m-$YGgYOASW48Tofnaav)+uMs1E{j2( zN`xbart%#z9Mh4bkTJ4n{=|?j*wGgFH=ax4v>|MD-t}m}`P|9i^hwhPU7jD1*$&VLyuD|}d zZ?Em$Xl(0}N$I4#k4@|7)!sJ<*jdxJuG~_@L`YXt)Snz(*x22>c57y7P2H$;r;Y@$ zotcEPhs@8f?~F_>7zL#s3Ycqsvw8mNh3l`f!NBLS$(gCyrPP?z|EP848SvQ2>6v6| zG%=injY0s5e$?|I73O!KQ^O;}Bk7>JkBxUb+TG?UyUBQ$Ki>0{0pLBF}`N~2>=E(L)u`)GQDrey~Y_F`TAyT_Y1h{7iDhmtvZGuu? zsU2A;GlBNL{DPuF#|<2O?8uWCuX?2?gI~pj5RKLuI`r>4g5n06ec}Y4i=-zDA6&Fr zi8ffh#sb5*kmXL045&!)gka97W7{jnG@*AF5U*g`Fdcun-o29zl9J{tV>ZcDHC4 zM;>+BENpmAhjE=88tCuq-q>94AL!@WbN~@BTj(q;Em)Jx8pf_6Nw_e3=$X~i$EL1e zANnDXtVkL#c_3z)CJswQ!_}3(irQLpK5M*4*;U_#!`CMuAI+x<15_5UmAuFI`!1Zvbp>HC00y}C|KHy}`|PuiF)pD%da_4D2Rvx#$Rg56T?b9L zx+4{;(Aa$>IFvj${>f8G(uHVPt|Jq9P}hxJR#n5%jlzLnT-|%&5BU*>Lnc54%ZYee zO@3BhG`pZKuc%>3kg2NcuBh%LyvrOYtL`i;Yn?my)`hFzI)CNUf$goY*H{NSCDH7;SR zisg7hYEA^OCuJAKrTWcljwhvUKX8bikLvHY>iU=jp0MVav`%uT&7crP zN<3+d^a>x$96Y)K^}m9~?kG&n#8y1fp)YnSV7sau=dY`4c<}0b?d^S)m32N&&@`Ro z1y#+_A-${!J7S@Y5=0qqW7AI?HmvtryRF=5fvCs)kjhEC-NorGQ5}=J658Ki8p^H65lC|7~i~Udm!p2DK-Ii#9qf(dL&tX=T71z-G$|IKT{gw4Q%uC zvbj}!p>PZ4#q5H7|L(Cv2kAfM#YGG+kFQv6_L4HAWZ1H4!=5lFOK;rhnd9a3O@KBV zIeEtWr1mhNdhlTQ#gmDGHsN+w10)pE-n8{E0SbAy-Z%kcvC0l!SWm$V`V}F15 z%-pQQQO)AS)G2c=BRL4K(--A~9xi^2F+1Nf->A0J5)#V3NCJ=%0X{kYxnN~ilEsCM z6G{hXt9!>Gtdh|5jxD?kopLg`I>q5-HYNBnjs!04c-3n6aaTx7yEc893%jza+NIUn z-iAc@ttD{!_1)~Ab`wm`JhOKDwylpYTXu{mC;+?TIA-$*y+2+fp#cUn5l@Pc6^&ub z5^Ps-05PpY`zO(0V2-^LolMJmg!v#lYjPz$<{)y;GWd^jpGdGJA!1)@PGJqPy{fjW zzL|-l6RMX~w0b8e(okMIbo<4h-n#ck=db+E(B#X5lXt7?J7ER+3bx03sVNCbuEtCb z#?`I3z>Ot_2fM5u-&uGV3%rB zYFGq2+zxUDWU;S<3$%FSkdG$-*yz$~|*uEoxHm>E$B+ry$j%o4M zi>J~v`^TpK;4lB~=F4B2y>#Qu_2y-kXAd3Tp7qMw zdO`|S+l|mOGC6nFE?GBAjz4+#b^OvuW z%+Af6yEwIQuDgGT*QLF?R~SxLZ(m1e7wSGRBsyo(LkYlFLk((e?`mpk9~zzP8yxim zl{wK0Bdr~TnLcJBm<-0F(I^=iyt`FXbXZbTt12ODwNF6f$=P5Tl8f;H83#aJk zu}@CJx?LoyIkzF4F?pnVQfUQ7dV&H|h$O&)D!fkmWrDjTlMlyRfy4O`?OLyDf@I9V z8xl^D3j_j?YhbwV20L`30<}Hq!V4BnKa4&v$2BL1>e4q?%j?Byb}<)fg2eLI0FPrlqlNY-DhLVRmd{!r@3{)&dL3 z45?`xf_Evzg7LEQieRa~4LHV?l3SXdU21V^PC>M|tg)n` z1&ud)7%6MbjWkr$4c~q62WPK*bmr36&R+S};N;80)Axp_uH;0@6$DO@*uxSK^LLU5 zbF&Hxc_3>Ww9baAXsyw@ntG!ml&FeGX@wQ_VHIXD=7rq9!s3cxfzHeY@*<&fi%OHy z!MlSsKdYcLJ5m;xk`>PmF)-JHIKmGY%{#{9BG&fQ_I7U;W~p*S~t__4hSQ8#_??ZsSq317i+cPaR!-JcWF%s)MMmb2pXG z;BytiSy~y5{VP|j)etWbD!y1E2W)r#)L0+Y$}Qgr+uexujZM}nDJyhIC+E+ZJSDRa zk4?^>ztk_Rcw~G;W3;1d=JdkZ^OwBUD8?m->aFdhn?7QGYeyGNMhg|x*EbS%y7B$W z%BnI8vP(+3y1K{5C!FQb6u9G%dDbvhR)T%9jLD`f11xFjbmt(yaBak*3vs>x3rWf9 zDeT?E7C(%X&ZR%%;Yu!!U{V1#=&yW&XC+;Eo0|vcA-j|qvKmF(L7?h)xIlN^TL9$} z1k|j03Jb<(-+^g|=-}W}L4bD!f~yywhxW*TpIPOxY{iOo8#fq-U%qOU&Jt@pB;j?p z@QC~puzjPX(V)FBMv5X_zc%dg+zHlWNspuhdn;D2Ud8Yp3#2p$dIH>9LPxRy^^kuz zg@%N_X`_~bVME%Hp;v>g%-(ie(=<^1kWTsZ8ZnhNK7)D8osz$V*y5&0E@A%#bG}BZ zZPy_bJS_M&tc0bAi}B9VYE+lC!6h<#S#hMQyfnJ{wnW?e)GpC0}hF#;Bs;6V! z=4X)^q`)(bQTwpV9$W-5I>%}NdX{9NGJ`PbxrMk5>CK@@ZgpP==4K2tAyKalj60vH zV>;-h9nM3a;AUr4HtWRKzGKTKo33_k+v<7SyngM81AC6{-wnML`>F#KqM}S0)h^P! zHhOTs>RU39VrjD@@1aK@QLuYOxZDry3odAPwNpdS1Ck@^I;XK?nzU|PIs`bRDj|0R zb|s>wpWW^_IbQCu)E$QHI;uJg-T}f|U6nNrG!VbHyxi2xf~0h^jGMhQC8H=Ut1LOQ zG&8R{Qqfu8I(7Z|@1D8*>hB0*kj7O zsG_p5J*+sZtZm4H|H)a%V@X*RBzFr>omsR2sI9AyL4%1Mdox=C+o>^R*p9xTwCutq zSq2F&EUPB7Bxe<{HCi`KG4_Z{&PYhj^hX~I4*3{wKar3kOy;O{RyjqdvLb*zIj^*^ zvhiqQ+P-6PUS(g1_8*Y9aK!6nVE@R$V^V^{E9e=GO)9ZMC4g{BJBEaCh50mHjBxWR z))F~g!E~4*GCHyse{)I1Vce5bGar2X-JagjXmumKeFZ8X^FV@kr}>gS40NxEVf#i= zpH6*OK5nyVQw+in`=&ktzB4D|7yE`~BOGv+Q?=@{o=qksmcX+}JYTRt}^jW@l$paK`b;132K7Q@1-+SfD-#T;c zE(Ork>Wvp(E2*mX4Jkd2b@i_^oqi79H8$%STZFW04)VQB%wJ&6nV37Lqe^%onCNTD z855ROP*lW=UenmD;DGId&SuYE=HBe=H!Ks>m-m^A*KfUW z^X`imuiO*{+0xn}6>VU60+Ne`>FOPD1e`vzI6igS$P!28AubPDN{ewi5lj9@)%JYD+o2B-?AAkVkfbhWB zAy}}-6h0;)Fje%FQ^yE^deAe& zdIZ_@>A*g}AdLdHmsZso-@_rH4a{#SoR1Do*TsDpgm2;%!To| zx{*>=KfTroC3$|=*3G-NJ}YlQ(s$h91G$WTCy(vjy*rZxUu^kBC6l0JiTZ~6vXUbE zQ;0Cn%2<2mnMWSup<}dAys!VlLk}GetDR^pak!#aaLEJdl0Y>bF{0+Z>U?@wJ877s zGR!Ll;XN6)RmpcU zlTzK(9BpX4cIQR)`-vobEnSnPIeEo|FS9D|eDVY2@c!FhBF1J2oyq5mDAjsnhd{<8 zZ)fHeCubIiJ76xRJTaqb5p zcy?h@PEl%pS!!Wrc1cZgcHw?HJPj%}%U?RjbqDqxlH%oYY!4?S(6qHygX&Ot5m_8K zB#CUMu1y46u&8JXo*99(rkD>OF~Y~~Oq0Fdosty}MJz3(F+ogLG|IpS3gNWM*fAPh5tcb0f}eQc1C$>J2= zNC-v_BLxLPY|qR>F7Zt0foHlz=>YB*E&m_>DxcEAVVhRbFY3;%7H?_!R?Aj&dRB8ZJz|-BNO_b z7C&jYTm8`3(K$Rlf9dv1bBot3RE7LpeYaOI<+c52HkpA}$xE8fop02DCq1 zZB^9~A@-5tN}I1++Nx{o+e8|SO-;`(OwG*Syn7$`v&YmmwCJPS2|i>|Y_A_-nm8{I z68GpE8mVt+DlIGbFZ2%%7MB!zGGRM8SR=Kzwidh-VR<98RhWtxiO)*$xm2fWPLoz(6i3i_ji+!f$lCs;3q5A(F!B$b|(t#_;G#@eGWbY0Os_|%9V2M->g%s3hn zlarK(>s)*5*I|#KhAEr&zRSqcPMe0e?B20;{aPJYL#A7H#lo+MFm!__pLi0K=^Z=7 za&sJRJS6VY5+aH3wslEJ-(qD6l5i@&DF5K$eWrNOl!N>COF^X1@I7+pNYexBBzLEZ z>29!I0N;)ICnxcT;`yiIPD<;w71LLys&ttwavyu2vnSv7ujz5* zM9)=KSF6{&rU)=RwBLpiM9a+ssKvUIVR8p`_p*A`B=bM^L>No;yYsQhCEL7V<1w2S zbf0meH4-~;j`L3KX~T>*P{$4dPpt*b^da|^kHP1(Dz)yTXc2)yGAuq#`1 zKk*`@_jnvWoP8|8)K6hfq^_!dsHS;hboQmu+4~LcvwdS%r_Q`GweVVN?}eV>OY@5l za*L{9Y)VFs?^9E6g-4YImzA}(vuDqI^4;IPbMM}lzxkc2nub#;ImH!5Fxcj6B4uoJ zJvW}af8*}G{*lSd{1V1I`LnSxplDNj@9^ZjHx)Ha2`SkrnFYrZ($aH_DKm)~`8uTZ zmJ>;7q?Py-7RPKv^O)B!cvl_9XG0^(SBmQQ4-Wm{XMcI&^6jSP4nh0R2<(k*!L$AVL{rh}BQxk=Jbw4|0#;2%8He;A;mG5~W5P+&GyKruZ-2 z6i{&Ii#WQe|BO8!-g_X6f14XuO}cy}i@-ByBUmKz@p??t>@q@QD*-PG%V2))}yC|9;My z95R~ZB@90^R1Ln6Mz>=18fqagJ^KnBd+WBXY+33~(@FGR%CNVj000YZfDJNf_3Car zlgy$%vv%dm71Vfoi;*ISOm(zUuahJoGu1ayhd^VAE@j0fFKpVhtmb~mtFs@a~1IYuEZL^yOJ|A-@r@Q*?~q($>6Zc;U8fv!yBJ_~8RPwweK85pk3#Q4N&27+RWJ2uq<% z+9)URY2j&4E*FUTl-I(O{~N#go8%gp<7Si{>IBg`iIGf0Od+WYX;iCI80Z7E7aotG z8>OZNVc}##MhGI4a+7N?(Qm4_;O+F##iGOb`AaLR!;F7Mu)*)gXw!0&Gl(;hyyE)u zY7;9%wJqZ%)qMr!EhW_*HBBRVCA^VClXG|Kn)_+p${bIfw|W*j(KU@NHBGIHH*Wqv zpMCb-AOGyD-~K^Cq%2ZeQ`_7r7ObkFt+BPoM$Yg2!OuSVogZ*nWEGT^R@IwPQE{uA zTDymB&tY@x9-Ih-JhQ;txMZbZ!1ko9LST-xGt7jKr)DQ+nL_@tvp!nQt>y=X0#D{x@z zj@_1=u%L+u`QN!@A=JxFlaY~CrUh8rP!+8!uP~4g z$-s73G)f-OI)p$PB|J!wgy)WL;Vp8{ z18;fSR(X}1W3APYp69_i7ACbVG1H4O$FzH|f$P@hCOxn8)MPOauzka`+g%%eHBrW~ zKW^ECO-Zq_kwitlb9bmoq%Q0~u+9G;J2@k&<biNPG9>{Ds=a*2dOO*v{z4Lho&T zvmvAQ&fWo5ZC5@X4#y`>pA}O^iV-!yIYJ@Fc|64okZw>osR_zV;-&-X%$CG#^dn1s~DrpiHPT?3V+;Z-gyiD;F8PD&C(ju zwMQs)H(@(+PIYHWj7>0YI=F8)Y-f*Ly=tY10IECe<%cxsNlz%X%d03KZzqYHAvL3v zl91rbN$bAkz#aon+mUmkQ--zXS#obqp{5R!<;#~7a103e-Cfy~87jXqDbZxym2oGI z67MN9E?jbYL3S2329=MDKymlr8kQT)baE9~6CFRt}Wa>^{BnH>HrZ`!7vkFUf^|TuCcK&mhkG=+1 zq0to=i3jmT*OEU@!%bo9tflSvqY6vPzWpJ7L5&5!7`1)uAOM|9iz?|H0TDsjDFn zGW2kbSn2|@St9MQ-4BDe+e`%Qxtk$8%F5)7)l21FO7Kn~&1QJ|irll{UD?Y?0{U!@ zCxNGBslMthcTUbM&d9IK%qvgJDo#ux{d2?NZ`qqJAC z&B*3JFXB?;*{2hsO}viypM{EEixvbso3iGcfay2h+oXs9v7-wJ8tbxkoaFQPu>(=R|(jGy#sZ|=gs$A_KFSVIolyjc#;TKNV7$~JC-?G}0B49NTz7W{*U$4u)FkCj$czx~y3-+b}4s=7v` z8s8n8oks`Fg8t}F{yDzQ*8A~~|Lmh5{_*_9Ydu4w>eUZE{pr0oJ`_GcKaZ`+I5RRi z2eg?|G)yVm<mQgseWryazN5RPwX3eaDN5Tx zhzq@ZTD2u0ePC#`OAh4ZG}D&S9!ewO0NK&5y@t$>j89VIi8*0*DLF-bpessX*I|dE z6d3fqiZE1NZN$J?AXqGra7br^T22n$&K&3nV5CuV(Q?DjY@=T=EfzWS8=G1#Uc1#d zIILTMwjt*u6H_hi9X!(ToWGr4+8mZ+&JPcB6pb=xJS{X3D-}C?`=li-dvdw!#}7{k z;sEqMd0dhB$P-UU=%vluodi)aMlNjwG>{pQ1n$T?_6VFkh$btaTE6z_)wFl6MYz3U z#qw=iHXlEF$mo^Po^9KEl8jpVfY6cj~ozYQF4>M94!C8uxNMT`7#AWXSWOz-^1DD@pH@*Ev4(>Oa&~6=!sRPubFje2MUgOA>u|(f(M5R|dQ5slL2Su&W)xCd zY~jVLRgo?OP3D9*%?l&_i?2i3U%>~#Q?|ZsBEI${gwr0)hz|}2sU9(zBgFj;Lu>H8e z$%8id1UbOZpp=eHnTJuPFtX%036l$cGLbA{|9Gr(8Vj^MVv~grXsG9F3WM>Syoe}c zSCLOnPPINSAA&A zmv7yE@2lVHAD*&-!7*oGvb5azOlx!3aAiZADahK!4$19tNg1@4!(^1a;=-~T=q&`y zafNcrjY-VNJC%;5C+VoB=0)Pta+9(nq?nYP!b5)MtirsC`hv>lf~w~1vReCljwWaB zu)ck1`pNp0klPTvE)sauJf1!i;dB_$1jKLt8H$Z=G@Y0HBHk%e-y%}#!r(IU09qQs zeS?#|{S(Ed20)v;dxpz|wKR9QzL9pUn^6H>M9nGgZFN;KbfTG#RVA_K6*HHnk|P zuHC(lz$4pm{=-jyDmq-Y$*=zPe`Z!W6qf+o-}%N57B1hQq8s1vB?NQ4`s+Xb^H)Cj z=Gp7d&7L>hR992iNLN9{Z7c=v-Z4!H;6n#6hfk*Z{I%PZ8L&@jVRXdUOUlI#M97k{YxT+{LT^Bj;bN) z4yW$EehWKfMgSDW%L}i)E9HhZCG|i`m|qI8(;1jyXs~`HnZu4hkY3l+m=`H9R;nNA zAJR`J}v(Y6}tNFRwq{%v`x<`e1IUF$fIWRBI&ne8#EXmI;EyyeP z!2+lbWwMJ4@=GHHRiy&p0{&mPaK62}2Yj)7Wm$@pU#RTXpVH)!P!W71fGei}tU1k5 z2|X7M7F`;=+DBACMuVLN9uD5H0oJ_mu@lO3eo9EoDue!UhqEK>+PmK^NwfOR-};=L zOvM^r85uC%DN|QfmY1ID`D3~;MxnA-;t9~YdHY&TRr#*%Tiwi0^Z9Ra^M?3k4>+%* z`WwITn<0KjAc+B`*iuwoRIxH%#L(9}dQ`rIn-nL|(-h~TdR=nyc|WwwpmSO#V`qL* z8POv%Xi7N-SDgh6ww#~-Dqdc?P<_^~kj<;j3b7-)5RCA|9PMLr7GDiZyf4>v)rK&Z zVv^LE29YrBU|&z^tb!nM~v{r!J*Sb{*0rgR7^~c-<2@`O~sfb0fLM6`2JkK0#bqZb?;Mc|&e_1CTcZlNl+0 zcGm$0cCWMKfqh4gn@CmuP$Y=$(0wU4c$aK$JpPnggr6C~D+B3DJWT;UZS$Ok#pU(_ zHMew*jL%lrG@VLH-?Vj4UVi!b*YCgep+-Cz9L`_7@!ZMeRH**VKltUBzV*|YGmD&2 zcAZEA_{IP6-`@P{@4olV-oqTpRz7`NhvEnB!KePqRo z)kGM`jz(@{U)(6eNPp9o$EUY!+z{}5>lXO{TQ+Y%Mt(!L!`l>3* zT)bpvsO~D^ z2=RvwBqzoTjIn)#AcMx26&I97@=FBPW~B#>J(6El5~(P%sWeD5MfrIp1$kwWf=Z%H zc7~zU>o;#A?GgkCf1DVExu;gHatpYwjP{TeQn>`_Ix%2(q&iq>COZ3iH{ekh1Htf| zlC=fQ!T>0$S_h9o;+7|HBJSX^6Lb%ts-j=9YV|{pE?d27wU~sVfr0+MK4O=V)}h|6 z;r?D3m0B}YL6uo;ZOw)AXXfW76XTB`knv8EiqSCltcu8uPm_sZ`)}yO>cydfOR|iY zIB4v#At^tY@hc5t~&P9343$YO~v_TwFur;r=TDvsuq)n%8~aJlCeS4yYZzUQFc8p{yn1!c8x zi53CMU0LVn1q4w5CB^Kr+gmhq_Tr-O;`cuK z!JqzxBG;_*OK*JX`tvWdQz~4(^sOJf_~r+vFI-K}wf(bJ6ZY2qcP`zzf9dW6Gp&>v z?sP*OL=t*9ks(M829yGErNjbo6_9Zf&v6;;dvt2f``{hytC!+UxxjW(ui5az2+)w+ z?#FaGNWKNRpc1MN42^j7#MWC643AFF&P`39o<2Q)`I;#E%iNZfv>IZ4htq0i*p7rV zi_>#wWe(IeG!2hVj8062CT3=KPhbD+=>?|)mm@(YCZQxL2d>|`JHK$Qsw%oP-((pQ zb;eR!@2KQqd$g)53y23ljKDo}Ji*L_w0r)UZFIWzI)grwmQHWi0x)pIuFQBtxKWol zxM%`S4W&RBzsb(kcTk&4H!`Y#SOR}a{?X&s=LP4yT83<-c2KENZ|NZ}Bo~V-hayp1 zS4VY!N{?^XPMV9O+xVTCid9cPy=v8JW#jJMJ27_9y)|Z)A-^!tY+Aog&@aqi(rW0# z-m!PX5cS&Ct2GU|)-g{$MlMPOl_tX_vIn+HWnaGh=z;wiDbl@d>eTx?pl;&k=k0MN z^8guDm+3;Ek(c4e)(Bt;HfKtf(Jb;+q?mjeR5^TKX}MYHg}GUPJuvo2L4^qnDh+Wa zH^}VeMTKa5Bri+9^~$v?gF{2E!&I=QNm^9OZ1BXBPkJ6yIwAZd*uV2!U^+Y0ZzULX z$J>oJyT;(QN?bSq%-0|Bw1?W<;H1qF3AQ!ifUy-4qz&IcGY8{}EhgTBO}Py}{^oZk zC#Ou6ltl8B-os zwVIKob;uNySx_kcKEsn%SDRN_s=9&OJ`KWWy&MjF}&8af8cWeyI{$dWxNhCNaKNg4uv^c2HO zLqTPIYF;tK&L}8O%*;>AE#`haa4cS8j8P`%3#iBExg3c$lpJWES5}iz#0DA7EG##z zzzxVF#V@2-)1Q#zAPW9jP8bN~S^3YcQZS5tUP%POs?(RY@BV_K3< z|Lk^&{f=C>sV3}E17Bw^zRC((*U&|Fh3ep)bg$HlHOP+n8BG^+!YCWDZftwU_8lNz z?F{F!X>}T2rPZny1MJRg44&Z)$WTpav+f${l;Hv+s`zm+v;B^a!_=P8SB?FLwCq(p z?$}i!|0q(#Va-c!NoZ|jlb&6(td*W#y*W)mR<^3zI^u@KcBBB^778TGol^kjclQtX z3=U)Oob3@!*cws7vs&D$@%#=xh!^PQjlv+w`uzm!e@!<9DIo_}R@ z=FI%1n+sQNpTBW$`phCd2SHaXqf(I)L8HYcG2KeE1>{p#h%F%q;02LrUE|ryw|FdN z5zt#GGnxmi&zLPU5Wlx>NAJK8V26;AVjWlGAr-i;l=W~fHMcZ{qpAP&{Mn0FZd|*0 z_ttYSE}UJ&gyjt2?QD>fr_W5zo#EkR#Sv^HaBTAQ{LttGmBVo}F(t#Zzt`~*twE19 zPaP|h)3bW1030ZhRJ)fcG_g>cb-otu=UVqy!O*^KYfgrm zU+lSjfH1|XgwaT~pukf^RmYHX!@-y4sH&~6BM=#A4Zg=y@e~nLsI+!+da%8xChMP; zARwf5*j^OD)oC)M7+Ou>?V75&S)(IEm#Fo3F6NlvKw!1B$EH%mg0P zQ*~oBtQ`-s3^^uR3msXYsp6i{6vw3`5zeE+h^sWL8qOi<1ZOGgjxdvS!XMK!YHMmT zGtz0CJv}`)Zr;w$%Cxjx9A#TeBOTs^xG=H4zFvv)_nv=lpu1BU9WUq6>f0U6&w<6Q zShZ^TisgpFOtuHMom4^GqMHS z!gd(W{^=PYj{|liw=6N#^{j$|G=)$}VRdU`Wn-Ng4AqT|rL4#dLc|usM(`ZM=a*EL zM(Zo;T0F|C8wI`Q6jkJvRMEhTE9(m@qLuZneIpAUeUmn?O*}_&)*IHKF($Wpy``h{_ zCl;>Pwe-Mtq+L$0=~S~wxh2&_(WW%AOm@N1Q>g;MAh}a!|FM%?+2X=5_7p`(RefT5 z?lH?&vkMN#CubK`rANxCF%%p9Q%{ca%0ksWp+}k|PsU@riBw1DPOrc&J#j%3Ve+bm z_EJ$+sq0s(xkrzZAZIK0p`-CT_jq1~F`fdwd-qG@v>qiMwvSF;NluT%G5nuOasRS5 z5qvbep}NS3*lQFPsRY@4a}ZTDN5Q|qUjke#b4C{Bv!EN#cVxqMJ@S~W%eZbAn5`?O zrS^t!;;{cZBuqkb1-LG)OC!8hBX}G*xNFBQ*)lLk*Dr8m(|F}&%#7k{X-k|VXq88Z zQ--lQ!CAKy0KSjc?bvZ-Rd-Lc?83#X3zx3H@xdq0zxwW-7hmJt@T?hLxN_$OY#+Cw zqWtzxfB8@T>;F1`?G|g+5C80M@4WWDWf|9Bc%yH0YIt(i8DYYRwh55KjE$9JS_gvuCf=HOs;uLbq5AW7SF$zDJkFyQIYMitr9Qh!o&Zy-rYe zaj6GOGb?*cbnhA*9-Wz;zkd7qg>#FwOgRb@%MuvhL!$er(gdEJ z{evTO3+H-z`@KvA1Q^ay$!Fu?-$TWLyr&f8BJDtxL&+MZmgc6a$_jsMl4jk}0p=4E z6UEme^A+Xgot+&TjJ)ua8966jCzA_2lR$gPArISGtoOmY$1ma?jx{E{qkuhTPg4!M0+w0fktA1 z#y?nRMCVaI6(7=ZPbEs|%{1IWUeq_y@$)zucak(G8BS4#%!n`Glh^iT;WeUA6d|bN zpc%pRm@h6QKL+OToctcJ-P^KAeo<~#OGDjDFTY|K4ZE=DToVv+1<1@ot5>gPb8=CM ziUHTb{)(AJtF3&&1Y}ka!+||Nxe7=lm911;zp=TQX5{EJITETaN34=6C6#XG6MUN6 zPE`ytHI!u)n3L{=v&Hot>Ng{O5jaWeCHJ zKVW<7?wuPptY5i$^%Et1Y|Lka$)CDq8|VV z5Q}&qmu!$iVzg7euUp0j39dOqP{)127`tToKx%G|Sp{wOJ-K8MCuCt!dHaoX)=_(k% z`^uYaGa#M+Qw*A`tB2w}I-y-PF+1NmF#Nqg`}K$4{;7Br!>YgcPycS=@~sOu?#*Ak z&S2Br-YMCm=A~tAbj~FwaFQ5A95+Aibc5|QZ5D3W zE>hH~X+n~qV)Jt$0 zo1U0H?S~&488^h*+ds&1qXbZ`U%7E-;oQZ^nK{(mJ>@@|IRAW|-7?KBv~hqOjYiRO zKNSdtNN~wqkMRQcwP`Z6ky~~JJ5#&H#4Hxk!qO1OoS58>*goWNcDx9?Jkutn!(g+ z@J*twDgL;VoGnshAA9nNb?dEwTty{6eC&uqkSu_Qhw-J2>!~ng8OZ=!!Tq|m-Z#fY zM&JJIW`7k#c=JuWciJNO?1l|bEL*mUg^#$iGNfG*ei6XxjsCW-O!)*;E@J$d2? zAuuC71$3W^PcX(Ke7?A%qQ0g196Nevr_f24u^4I(Xvy2YH15hML!U8%s>7OZ<|ZS} zLz}gL*WH*Z_hUhBQ*HFlt?Tm(3ubx&drn@V8r*ywIcvj)jZZzb!bz$@kGH$?Wb7a+ zE}n`iS4xez34s9aBU)u$LmdT4r^A(HG!3Tm2!}>OtbwJI_3&elFMHxi%`BaVjT<)p z)^B}&-MaN|Gq;|X@BI%yl8Tm_o+8dsl_bIG+?g})eevDd>G9h)ugb%O+dM^T6FXIX z&eLnxh<|+ispX0(&)6f&9(nlDfbA05ys{>1Lj51>-kNp~m1;UKD}Yb*KW!EdE-6P< zaAQ(tn72c)uz{XbDvdLaT23>E?HO#EB}L^8wN)(*(bfjTy;+e$c|jtN9HMU@SZzrL+EtFY`K)jdDLAG&L|NzeT|4jkEY^dyphdd`nffjbL|qWce>+^n>9ql#SD22DuhkaaE-Rk)jiRugkJQryWeO9H#Qk~ojs z8(T1Itc@2kgo8_YKRWHSRnmIh>AmRL(v^wche0QGK{x>9w_Dv78h{Yq$BFQH+1Y~w z{eT5T01D%T-96n}JRO}K(duYbbya6~7rG)-i$d5Qq#EP-ZT*9TjZMuxy?rC&6Q|Fg zqgtH5a;vLv*x(N(k!MjGhv}CfGB7j-}!q)a~`@maTTA{I)=*ZYO{T$l2wRiIBFw9Wn zK{xG%#y)@c!ot}Ld^M;(ZbrAi{rpSk7B9c{)|Yf*k@f@~inzGi+B)tRh+SXb5DWc9 zy-WN^P~GGzIo*TS?LVed-E4K0zbYv%@>ckRQ#6r-&_sDGJAw%cq&u3ubR;y5lBKsk z;socY;gy8wSUBOu%NasrGQ9LAQ4KO zi^(8^qUqeFOO??|)aL1D*1P7R7G6OnRLt3BXG);Hwz|2ot|qE|nipo5GSdv!`Upbgj>|;IgVV8o<20sY=uO#r6FyH6H@jbjgud)tSBt6^S7CWWxB4Jg{Au>Eu_lQKe2EB z(E~^04xCKPC@duGYYs2c#>TJc=(WB?s!6l6nT~x6f9!m)Zx}ZyO zzPya6I}wJo?r28fJO~0y8jg7?5pMbX7ykTEfN&#a+_8jQNRRc{LiL%+N=1ItELUR$RPhamaM z!5vds@Qvr@3wR%d{pT)n%XIhlk=ZHmEcDJDD9#n5M~P+!fBOJ$%Q#y&;Pa<=naqi?#&_Psj-lnMGPs3|cA&!+^F4oGlb_*03}a!>M*)3=>AzED0B zri$SQW6Z`41R0JRt$8r;xi36qpb4c%%V9f6C!|vkWC6hT*b0wTdZbpy1v8|ynVs9Q z&>dTz6*YsA8>k@6ta@sByiGV7r~CJ0rZK3eKfMN>UuD+y#POq4Xl09~c$V3<+)G3`0-zS@ao3=|_BV8fzAANvtvxO!8yl~0A24W|S5{lq)E%jmHr!fK z+bUruQeMktgSGEEe2gsPOUU@el?|wVWXWj9 zOt*E{{;fOrZrd4Hj-p3h#1*N*x^36K^ekPM`lQsnd)AgRcu_}g!1EWy|XEdVsE0i!+aKQ zFQV7ad>qOF+o^3NI7hP_Gk1qqmLbaVt&{4zL3nTXiw>ibgrv%_4@kl25Fx>9zq-O_ zXJ$~AjI=Z+J+iQ}R}d`GH(cw{s-|YSx2>aN<0N9U_FY}w9UUFs*E)o9QWFQpCKfJU zzjF7Lul&w0DB;l2Y>^AzsA;}rmG&+MEW7aR)G%vw>%r?k{N-O6>(&WfxOB~=YHf2X zi!2LeXYZg0ZH2eysivyi#6Y+q9h0g=n^Gk~OS|2vly?&)ZY%n{1=q44Ll;F>U@W}F zyej@*R94Y9WZ(6bxeGT(rWOWAr&ZY+uT0?hIbpq}rH$qe*g4ysP(#CGupMKsuCDiv zo^p3@zW_1BA6+Ncd(T`Fg!e0-ob-01C=<(G_~cc3))@MKUB7stT}gNR3E)*D8rmi1)Xe z%neQTIQ(yY?(=>Fb4pJLrwUnBTON7haY%5wuuWkuy+qX49q9IW349{_=FCG`KH6n>U(!_`aMIy*NP|( z_)e=xBubTX$_{2nQprPTRg)<9%1HDa+_27Maa{TJm zOV2-d`_AnfcWz&Q@r66@zWw@_Km6kGK#wv(Op{wG^pu5dnvBXXP_sf#w}AsvH5Alq z7?#karr z)`x%m=9m8X-dmr%@zM8x_~-xblb`&>$KU@KAASE{fBnaQ`<*}fx1av}pa0>%`Ojbc z-JduGItNd;^-gsR&9)6r^-rFkS-dxM@x^QRKc2h#N`2ROX3PDL zbCn?mo$L?Dj8yoZr!pgn2El7u%d49XojA2+=f3T`r27h86h3eQ$ZMmK<t&?kvuYz8Gwei{Q>o;$81X$}5i(_FtW{1zo$}7vxD>L@B|KL$UG|*eO6Ve9K zE*;`nNQ%&14Ttoeuy~kdLBRX^jm&P_5e)EdGh)n}dJ?k*?7%#n)N$gcp!yN|i&bkX zS;r6|5hV(d(;;A%hJ)z2;)352SplSI{+n;VQ&Cp>)Ke?c8_c_O;#p&*FS{w z_VjA{^Ky6#>R~%|VsK=nts`_E$7U8Dy!-Wczy9M_-~WbmMY4#L6m9y!iRr6%?*}Vh zVKI20U%YnKT+nOp33WtxdIm=5Dq_R}i;xA=*-bGaAn=XrMuH{4grg8eUwQwV!_#Nl z`$vd)gJaVMlTA;!Zl!pM8}JMSy-^P_BNIa7^Mi_l%QqJmZ=Ab!e{%kEN6%2LP?)aX zFvrwlZpdnqj%G_n+dE-3vAwr%u*%s{-z24m{NlXQEv2->a3GKKLwMs)DE;*8{LMS} zX6Mc@%h9HY>Vdi^B!CDot`Jbs@OXG4!8_4Rb1l&2Q;7k@^YXMf!8>i-7m^D+(bN^R z+%pXSl@j3Ery==NH7Bq7OCiH02)emPaBLH=UNWEN zdv}Q%d)7zv1g$kSiK9#q`A#zrNdmdn3M4LdBJ>)FH&x|jlau3vLo$}z2gk+-#-ucN zS468=iF$f_&Muz6aPh*#`_m)X6cjC#2$WpnIF|j1lvt0uID3N`*ip_Sz(Vo7C!Z{ z$3ibPcpna`BQ#C4*kagzH1<1%t1FOp>$FUxh(ST`QXGXT(gWbbl5-~Jy%#%RWnOM} zq^PE~siCX2qOmTgw1gHtcj;C^X_dAqdnDd&T*#nq3I}_3LA16R5lzW76KaWSXG7~~ z_rP3UaozD```hZrPv5!z{3kEG{)aET^7DJI{`l@|Uw`-0AN}apfBpSm{>$I_*`fxWJEU})-M$G}WY`%pvoSX0kLW6wlu|7`!%mA=W# z&Aro&J<|*> zOA7^-%2y_O3}|fd@XfG6!X&iY>Hud`cD1O9jr1GcsVu#garwE$x!xC zJ;fVRNQ~KTvyI4E$L7?L`N`Yr1P`s1#t(je>H00bOLh^*joqfd`kVj3j&2!>(c`Ok?!W(ypIm?8HBn%&oeEmlDdd%%wAz2>T;!418;xX~NCj zwk~o<7{fzVP5t=nnb~t!J?0m0oIZa|stjSiyKjhN2Y!c%*Xr6acR>BB=d$)8-gS`~q^2L_O87T&~kR^aN^v&P3m zbR9`QDuE8kXXt_9unw?4$sx1+iS=PY#|GH0tEVR5xz)~B%5kbZ{q!1XhTAu7kRbrW znP<2n0lOW1L>oyd2lwvw343>Lk5fb*K1g|i5Z`%F(r_Z5pC_V|(k`I@(4j#v9vO+q!h>CPv4{@rtUbanX{VzMflm zZeO~*I5{zL_1eV;ue|uqyKi1xJe!}Jc?7jNV6J+vS#JIxCmJO8B60mXt@!yVV0=bQ zm{tfMJ9?C}<>6(IZ;;5bbGN&jw}kvcaxtE1{xO5&CYb#ywG;s$D2y{bu=28`n$OS8~(e)>ve8T%c9=0DljQD{ClT$&1L@a|Jl6)3| z$+#(wQfdDFt$EWBDIZpQ2eI8J7#m2_k&)zM$xcCjd3o2!V6?rlxV}2QI5Idp-#t2& zWT2(ALLiLBgs4n{j44!hZZS~_$$sND+w>}G?M@x-8N4ui?tV$MGq<>*u61l|_Jzgk z-?(}2M_>BJUw!Kj|IH77{Wm}R*MIv@{_EfU;;;YqN5B3jKl?ZT@-II7?DemHtE2z) z(D=3Kg}eRZ3lnFq*R_v8@|OOYrrxQR{@IDM_a@K1&_1*P+v__gnz|=z+lHIFC))d` zcw>w*NfO{}=Z$2N$tWy`?NtpOxy4cMWEE8+;n=(s_XDJ)%zQ2yLX9>nCl4B*k}lse z^=M-HiHw}1QvV~B_&gmx$y{xIX+m1A@G%iOJNDRIzjI6QtM79I!ggO+RMvPRG4EJh z8mwl6*M)I#ic*BbVJ^uSAK`^Gf5h-F?I%yVLSCc_;WyJ}#Fb*^W%5-b{gr_@eCXqN zyGN#1ctFICtgj`74W8ZeG9r!oB-%m_a4BH@CFwg#dX%jbSC(zv>ezy@6I+vwZ-icb0W_ z^@svM_$Q}kA*WIZbqDVn7E1%9^!CciC@SRv)ip_ztTg4@VY3Mqq*92IE8;98Lv55V z(pq?IS{e>XD}%u9Rh?hLzF$eTMR2zDZ)|d!NJY$D=qI}q_5#wS;O?h9Ygsud}NM?Se?`IApAfAsOk zqzr{^*ZcSQ1f$J((u?bS1|cMODsH2-EhYJ+X3);5{m5Qd)YNZ9%aCAN*FXU5Z5C zJS!or8w)d-k@9GvPEbsuG2>}V85!Dxb(nMB7n)_XZVVZ?bm`)m*_rIrl)B1_YnLzH zeeQO4MhdJpWD2agO$jbqrJjGxoKfzuh>xA-XSVBTJo?zOWlxaVmp$~zBVLguY$w`i z&yZb}_8=YpsP3sT?lKPuzx2?Kvye$8OARKnYo}_t;({3hTU}j#WjZ01KQ)4rCTf66)I%aB{ z#>Qrzn?CbWRegVXZC}TLP{41GOk30Q(YOEbKmF(*|KI=Uzx=Pi_@DppKmG6j{n!8P zKmGM*pMCZBey@9EdUWQ_)Z9x~?|!+tXS92CrhDXE>%e^X_{F}dtKH+5rWaqCx$vNK zGq-d);^zbrm~^Cse3Hi)K%Bki)J%7RyX$m^Tg~35hhqMtDDMdT8g8Ma$~&Z zw?9alkCbbnnyAuC^*O{G@o++E_8v*LD<0P|sX2J1fLBUyC%=*sT zb{Q{4IQCFx_V9VLz7*9YrWG*596Edg4=0!~s~AQ`+MzL6Mt{5%LLgzg=4^SiDIsJ*TT) z-Q4-Y+h4nQ`{kjDc?L)_OGUJnorWJqCW&groRGuH*wNWbH)a+tV((6tFn&dXsjVlT zOPJy2@xxrc_2Bf`%U5sSd+wz-UwZZ37hidMZsCHtRM=kW+;tLgc($rdy1XY`0AnAW zn1=11G0HroHRA%>iSWRjxJ8wrb)}@Hnr4#0j;?#IJm)A@s`4XMKh0|9KuT%IaVJj} z78Eo$HSyp9cF#7S3@Gzy8jGe)LJ1HN^#aE^|$=y|mt=O_@J)kzF@dB>*lq#=7xZ1~-Me+mRzZB|I`z_3q+9Af56U3IspWvL-C0+I?X1-_7F26g~o%P7P*cTptn9`27 zQ*78Emp%UYZ~o?QISL84c5JahQrywS;H!@ddq3T12pp{dl7JBkyw)4b2eQYd9?Sbp z%#S$`EZCFLSFhrpnZEJ*TYWR9KmMbC_?6%L)6p{*>N~pIdI#yEg5~ji3A)vd?G5ci z*@bm=%@f@N7Z(=a?ix7T)_b~pU~zcj*1cDLc>4VPf$_^zXYS8kczbl_u6J&{@afC% z{q*A>{px3b{kMPexBu?{`s}kezw(X#$ur~gH_u#sYxcr}%g?=SSMm$*{`UR%f6_U6 zabWf)U>}&iK05y#Z10`8)H)Eby}D%}+SFIs&{fsc1-+NB9bGS>^EY*(?sS;k&=0LC z)Cq3u&nT?WA%)}zS!znEvej9oRT`{i)lHcNr6-ayjovzfd2f7Aj{xtK`B+eZioj99 z1kMYHqpKfj6x#PhHtYYC4B_=XdK|7h;;Ft+od+`L{&8|S?8FI^7y0=GogJN{!^19{ zU~JgEn|s0StSYA-fN1SHzCj%*%P%xGy$yU6Qu2j2@qt^H(M_5T+2(U+uHJo6*Vu|4 z6QXGj51bNAIBdIEuQ@xpe2% zkG}Uy{W3iQdq+)<_}5j6w_keW@~!(F{bO^BH$D1BXGHhg2_jj@q$>M^&a1P4yC&Ed zMwAR`@vLmA#d>Z5|TtgIaVLw}a0q8G!; zg>43GhqS}(^9xIOGk9Mi<^U+~XIPj#HC>I-j%^Dns1V8VaB4g}%z(qTfw%!z2iU2T z!t-JEg4mmz(Z+}xhE#?aPN5Sm9bl&uh2kP|dT?+EA{E*Ti!xrIkdP2e`%J{9bB0q1 zTx0w&GoveyL`;-KR}_1GCW|Cq7#iT_EzqJvnf(P{L3!5G(*^5rVh|MV;pI+8>Kss; zKGIn;rcR$qG#Dlspn_67u1KnTY~^V3pE`5Ktl2~w&c!VQq~m*}x+;PQ2n1$&41X&u zH1n2;w8QCOJDLngK4Ti+1JXWi?#!7mc@hke9k9fcLckO!Dy>VGE;2DPAPrbgM+XT7 z>W&o@4<{Z)q$HLmd^%i{j9a2K86GA}O-m^#%r7Y|ZtrRb*!y?%1qJvJYD3KtI*hZF zb%7Kb`eemcbn!wgg@_=y6?iLHEV#l&h~9jBn@fmQV&&yMaUe68SrxX-s<6k}Wo%)! zV%ZLZlPe4q8%6*E&)@hL7Tt*xzY zsISUMR%WEA zxhRjQ>)p2N-1})ol|5r8S_k*%*EXl-6-&bD7!4#$jMg5?$0=DQo`I3!v3aq|>ga^B z#FVONML|qbVOC*hLHR&=-LBE2j~hD2Dw{_eI*yGTevBVx+wk4(yC3uno!mNl@amIq zj$OOq6BM41R+V4XmsP&`inX*j=ZYQlE$4y^@ADUxw=}F+nAV9r7ms{Pt2Ca zrbi~_dId*Gqf_Ei@`A!+(PYrlLGn%b+c7r=$-N{I3{)aXfG?uPgYcG)?jS$DM?)(I zV{2z{-q|OJC`fnzU>ENIrsGa@fXGxMD~GiPW;%xEOxYtk zjKEB`Ig7McfUXon*KOo|bD@w5JErQ6VnZpFmfv+7^$B=Kpnho#IS)7Dy|jrEZW5vb0p$Zh~1mVZ~jwOZKVqRfNb{<3Sb{)Q)Q&7fQBW8@o zCSZ}Fe1oM;sTq@j11&mUiPNB}b?fO5p4WAaWaL%YIJ*S|ONkMngo+IkKEGx7NSHhV zugoU8aYV|lI}`fSGV?0xI(i1jo3{){#H*B~RjBhLVwF;PG`~0oOM1qEcIwx(gZl+Y zaKxX67;=kHule^o@{Z?ImD4be)lVU^o_T)&dk8(q{0wYm1>9 z%dx?)Sh^I$B%(dkl*yo$CMJ$JuWhZFGeZ$nlqgKZj8w+zkpn+_=1gL8sk+kFnVpvn zV=pZ!YG|k(**zRC3kInXIsibpFmTPA&Ik{#WM;Wy-_%~VbP7FFi?j%BD$kC9lcZ0w5_Rg{J@E)XWske_`5&vIr-tpvGbq3e91&qKWThIR$Wfz zKzdP2+u;7pvWD93J((44*=60O4Wljnmm*XJ%Ixaskn z4~bL&<}QArPFP~Vb0#Qx1yBQZ@s`knijUpVGZ25Ilb1i*3qp;%f2b8vGei)(`QUta z^9upiu(8l%Cfo?eJK5K9uZ-X+&PKp zX)f+w$P@^(2r=9r*w?AetwpB8D#U65|Fm|GJg?~gwG%f+Wp;*UJ)RA(?MI%@b>v&#aX-X#ISVqstk>UMk@ZLip;d{= z>caAdj=nvE`_J}`9BJzvso%Vf$CmEF+E%iNx8#@BmDX;qZt8058ffY4Z)ojqZtu;` zEuxnet4vrJ-Wh(I%p?tZ(=UVY0#OIsBcfwy#o`Uf%_~ez&%$p*A1mt{<^)zxcEpK_ zByS&IdeV7B&H{>oZqyP@A_BAX=nB@IkZ4$0A={K$L0zm$bURW%5i`x49Ld_n21B6% z(F|@6L_@_9RZz>hq4@+k9&bFH7A1$T(AUhufJ#HZBzp&SNnPe8Rsd)K0JD5F-BRIf6E;g1h znMk>`sj059v7T1~a)N}AVd(C(snhV-7#r&2+`%i(>H&3!DzgrelM3ZwMVmi&E-5#7 zhHyNB>e$b4v$M4!p8;%V+l_*WmJX!jwuPlb73h^9q=?IaCO*>pB_W8?#AgZQht>NA z1_Ss+Ronb@bO`GTrBb6ObI|~u-9b!A8I?SAcGT4qa z6l~{@;t7;LG&~~GmJI)3Sk3lE>a_tno2fB8GJs3uWeombo6(s!w@`#|O9{_fr9cO1FfwfAg(&9;K- zL3Qbtcy)PZ`R443uDq%~uw9;z8xoxy6ruD9A;&-&o17Pwlm+#Ny@Tz9+t|2zT8lD= zpNmhhyT8oII~dq^_mw!4@#qyuMHR8##KzIei415F4(8-7v3K`(@d`i=Cl7I>nO#Iu zu_CV{ETy`*?SQvD-cA!xfI@C!Y0Icq&O1Q_C@`eCtk*R*FtsKiSx?`Lfu&p=L=zw{ zuh%tPv4$qoji}|oJ9d}#I*20Xv@#i+*%+JInOQheyS)qF28#X2O2bvXejO@^d96*LZoN0|DHV;;e{C&44BKHNi#bexs%!= z7VUtLP>kyci?rm|G_>ZGl*gy2+XwcS)wU8ThBLB#VDHx9(**eYNu-jnNLh3Ooe>~B z0Wz$o@u_+J`>u2h9+Sl;+PPrLasbErE#wt%@EzTLfJ zzbYdyR*}jS)RfG8vi;HO$%LdBK-VE2A)1v4Rc`9sv32A`TkoEhp5fl1@xEQh_)29% zN7weTEjtf3bq>_EZr$8FTG`MIjc;z>+St}h`c2oi;o`CysTA{g6xa@E<58v@2|0(o zQ$OXV#z-TNilRF#E>VeRl1M4SXJ}rG*0Qj3EaiJqMdl9Y%$@b`zRv$jH>dGq1z z^fw`u^9iSeFCw|)hX=jUUO*0w1m#K33zch_Jh}>h#do0MiN`~O?WngmlU`r7dIgn#HWC*shlCQvabajSk6F7iMg93x3gA@aZ3Dtf1@>R>0G2)p6gXOEQ zy#{=Rg-Akz{7HJG%gMpU8ek;3oo;wNopso~r%stNPcvvQB*?F-vYY@hv~*q=m=1vB z9-KU73N}InMvRy6oI(>Exvu3&Stj@4+{3hkvl=atu9 zo%EJ)KO)!g{E6Nr{Oy=41d-4;pka(62%quFMbo2Zv(G-AEgrm`UjzaV4gmFJ6(S?h z3uA4AbmZshCjr~ZE~lrWtgUP0{1rc$+>F35A76K0G7_E9nnJ^);YaeARCnL#PGHkeKwqh$OIGo}i9TD@;r;R2Mf!D%Ax4qN3BIYU$v@SZ$D;u2pBB z5LZ9oUE=B!j2{xAhKYNaWHy*uZ7^jBHiCSxPjDoLc9sLiBN7X_bhW-`aC}^DYfMga zUj6VYJto)qCZ^=nZr;H_Rn~P~Gba>sx=3V5ywIA32YbpDa~LzBo&S3!ynl>G7Hv@^F`Sk zV5cey=>yv-l_K465^2!)^$!x=pdy$2iElM3_AVyqKbpds!Ib6mP;@yuDXxoD!}Fb}3AD3c;%Vxr^YV&davR8bjq zM_yitw78`lEpn)-HK`s7!_g#u-fJ;SFG((*Ssc_O6j zI(7-SIcu&oCaIvhnT`nzEmW^iGIt-j3J19QIT9bT4X1gP-P!>iDye;xOJe*ydVEK9?RGSZkXVKh>hGK+N zW5g*G3-QVo>;mBM6W<>R$iRplx)FNY@)gSw)-b>T!Ymdre-IzXBQ3Ec%;4^}(X1eJ z$8)hzNPYDUA?#SqV+lu13jJqo@0*W;z3_rtgTIV8#!HYakw;< zQ&3&FVnoagrNS8yZ#!!%+f7!6x*LIaQV2u^mNWw)!cWIqgNp{y2AKuz9SsoOh#4H1 zZl=EdHuF0ekeU!1tx9BSW?V{ALUd$!vN9o(9xJ^Ke19O(-o`3ABFx9r?UhMyPz+_= znLcY4;K}qEY~f3nEM`Rj$l>hRZ{W#1VaDuPQ(2ytFSEAUMBoF311e!ccVD=0!J@_R zF=3FOKcq{2+B!Fl|q?!Y;LGa)Hb##+OekBv-aLg8iX!m8C|4dJ|9$NkApdn3s|ra(T|418UCxrh)% zt1&P%Mx_DZiAzCWV#JcZu?5%;H6_BA5}h~ylAhODRI{(B_CQJPfvV=ija}n=PkwOa(XUrO`SIFk-(UIW z#}8hak))J9fzaR%GT?dAf80Ur={dpF-~RfK6IZ?|Z|IIpNZEVlhAOiVGLM^)bUt*w!kW!x zO$KW%BGO8r~m{pj7)(ckZU%>*wGPE$WkUPIWrgA zZEa=KmYTM{`i=pF8M4S)x9(zo-{66Z`%c~6ck=GVJI}W49Pb?*AKG_z+u&GhS6^FK zUr*nz%GxHxc0th@cM-uXmF$=}1qIoZ%v{ud5T4=!H8NUm*`8y5FDS0a$jXa}S75H0 zz;+f{#2EB;Zg#4`>^mkj8K^qI&J75=M#M*GLb4IzHdKpot-HGM1YxiV3i4n|Ad!#e z<|x1@zGyP>@d-4G0rh+ZNdNyGHwFMZjwZM_fRB+6nT72DeA|XrLK|ysZEZvVsXn7ZA)s9Uj3Sksr8u<@GlZBzPv-u2fN>0#h{DPHHRy4j;gy zCeeK*kGKgO9PQB%aOY`&UE~iyyrG?MPnj$_F>S0V8k3^4iRnwIMvIYOmY~>BTE#I5 zKBL=^jsm>%ulPUz<#9rhU}+%f9gd2AI1U_D zs+8o+?5y0poT8GV{QTVPoXniutg^D=wA5rY|5sjrozkvmMxFp|%D!MbDmn)&9it=n z8}BFk40t;W5v(2?Bmj>Wk|GHIQe!q+{!&$n#f z-@N@~LH(|*%Koyp163VIYPycpZ#fa2Qkq)Ol2Ou*H&R{P7Ng3KO3KYFX$gx@lf|ll zYgSvv;W22>(vGrfgriTeEvdhf2-u=;aHMBYIHVDu%qo2|KWSt{LK?vC5g_*qj`RwV zI|WKHNxHcB8dx|*W>jW34g1Pf@K0MYp~=O-(ut&+w0s6kc#^WjW=Ge6OTvmm>gsi< zm%5<$Dlvl2fJ=oyU@9_bEUcu+cwjpN_||SPG&Hq!^9W=)K%zG=u_U*FaYh~o3Fz{$)lux8B~k`CxE0qU_m zQw^p;COMtCv~k!+aJN%jl*qyWQ<{J(>zW!`IvIK)k4vm>+Y+Nl-FN!l>6^b4)U?;N z4`EZ}vQcFe_U*nvr8^=%nZMn(>s0sPIG)Dp*6rtRKTFRo=^Z+VbQ!P8h*qYdk`Z@E z50W#}PO#_*x!n`=X8#)&8Iy?TrLZ!$xE32Ek2os1)#xPkB7(r#t)Qf4=h(%|51*g8 z^Dj8ZtkleWtn#$ehKok0WJouzOI516yt)y12j^4ObT%b(UI_4lEb;ya zlOrjQWWorwX3AHBQ&HKY%5GsPmq!EzN!X6S^{B~W9|hPoHA6GDQHbF@X9C!F5(3&Ex~FktNf9aEy(!<<^x$)mgY2`GCvybid_U>r5;Ue26|XV z^!0Q(q3qOFjyxC^*0rVOqOI42cA z4nBwWZ_wAJgMsx0m=_1=R?>oyr5R zib@37K0(?6cn)EPoHPl&9hr;F0Wf{ue67{1*U)c8?QQMab=c>?1B{W#HJGEQ=>zGS zqMRP$Jn#W}(5VXXV}nfRtbeea)Lc7U_(37Az5(n|;Pb@4hDF9ZGS9?U>KPE>8?1@!Dcb{kbj4m7PO@mY|g3ZOU$ZCEoj68pHYY)ljYzYWMBt`7bK5ke3K+XNiGeOQo(kt z?+#908%=DZGfETk>ukNHvcxpGQcYLXYJKxXD>k~&2DQnN%w7?y!>CqsTP*I&R}sHS z))V_AU23MZuPy-=*RF?qi=rptFw0iyY%oBR*{DxPp$~eyp{Wf$s`$9cL80WTvD^yZ zqwvNclVO<_Qj9%LLV%s68KoUy=NhD&iJ}kPtnfdef`77DdpXbH+|#K9yd&4pxlfBa z_6R}Jycj;iPzKRNLua~+qf<;&lr%VK*X|J*5sDxE9YVUr9=3SNT6*^ctyu!RgA80g z8})QOeY^vLLl|Z#DvgN>|KL!hbVNv;D0R(*0AwblW)xI4q^R=`oqM$V*n^tQJL}s9 zeFnK+v{_{rl=Y9EJoVnw3-_Kib&oLD1^FF+f-uJT_z@i$6|1PM@2qa= zJ$UZX(RaT*^Zvgt-G6@RgXh~uPZ2u0b=Qf`?FVwG#9xJ{`L}XN~Fv*wKH1Xs_eEYRcr-?EvCk}|_&Etz4gyo?7V2?-RMPZ|C$|?qu^Bi{4pgOxQ zpdJ;CzC-F|EX{n8VgTTeU=E<6lh9cPX$RqX#DPOECk{)*4ZMHrIE8q{*RMxsqiTYp zLfKGTdkORvhL6Pti#TojRBSoG>Q~>G#B<=l05Tkes}IeOP+`>RMN1aVT`&*B`K-CK zQLXtzYw<$z?J)KP2Kb>NU~vS8C)_WXDB3lMyWFT>n8c{19Lk?sZt=T(*zMuvw9Z^<%k z_9kdeNK$N1#A;$;VMrBqJ-k%Ks3m2OS_5KNpub;iOtds4 zI9Zj1n>{TpIVKtkAD)z?C@wC7!!rkrlZ80;=9I~xHbT$@o&)BfHwX44;GIvn;dJQy zTBf~Z(L#Q;$<&r7zx4_q8lNOqNwD3R7zb>kD`1HtBNTB4+JJ=}%N+2I01L3Q1w@>o z4~y%O1FkqB%K#1#MSN@QcViOM2#G;=!oW#f$|id--!(i+>ERn<<4A#6h8mNey*aOV zM@nV~?ngyxtunnfHM_OB=jxW7ANTCI-?#gtuE84|+eYv8?7rGF`p%K}zdLc~DWLejYl0_WWmG9KLn0|J1wvr|$LaxxVwn2hF>WbnHES<>MbIvmU?oMeWwZ zW$pWW_S|dSc5dj{S1sGm7u4?HP~|kI7q_cRHY?PXN_9EOGlAi8NHB;kOkyI^he3OK zCRUV3DX_W)goVbY%Hq=eq_L97B!5{fLs3m^893tYFN^UA3J;D>lE~w2-Tk~mBfTYZ z12fyD>x~k#%7UU(TmvKIDS2_3NI?0(KDzqKH5;{8t|L^((wYH+G>6(#yl;T_)2jRxj($5Ff{t&4>iMUx}|_FSwVaC^uVN;|;L&K?4f zsRl?#pW&>bw3B|uy2c}p85b89z@JArJTg2sO4e(HboeS|6r>kfXb1u_NY1KEf-qsh z5MGf(xM&gF&VUdAeOV*>fmS0ijf47vP*($cvrNiz2`GwMlRO^VQd>hw@09*bF|VPMbY* z)+?{RMh-7cqZoTw>8Ljlp&*e2czU=~w`I{`@4(Dcm^s)!0qI~nstcdv?U}%Kwi!4- z(PVIk^0$;fSkWNupgX|MCj#5`MNk+AhBtgNxMVO(XjGcjDD9Z*=tULaZf(PL$boSN z=L~u~2h0#T7ui-4Di4-Ldk2IV(V*q(B?vrK$6z^*nQh5g zEvY$eDmC<`H8pE4^BV$_R3d3JpBDR zjQ!(3{@XQjsB8Dp`!8SK`s>AxGgrnRJlTKc!#x-8Z##XS&(GgMy7}Y1Z+_Wx<@4Ty zcREL}*YzH&?>*W)a5^EYGQGGhHGea*OhQIE$pfKL$%R#2326n4WFixc@CWAl5u(n) z;5_ zi%a3_az&ORuP!0G(mxzcJ_Iug(d~%s*u4oiHsTU?a5puxB^h|>GNMz-a)f)6FGmd& zv|mjllE8ND72q?94Lt<9dge@A!XCKM)WJVEK@ys1Xl%V;A=f^8#6<`pEWzxmz;=)U ziq7^}NQujqQyqcYp`Ruy*cZm*b3i{4JAxIf*#6V!!pRl$^GFUcGlxS$|481TY0-=J zb3O#cGl%$5!lPNy(ZRN^uExaJ5YZ1{*V57g+hOl)$H8{$XxM`Z&C%D>W3ge=i|^6W z#@54|`GFD~fnEVY-hn|lWNMq*(=u{W31+FR1KYRlKDX=C?V|c_+DH;l?B5C#jSAOTrW>Sz*!f{sg>) zM@psP(Xk1vDfy)}JNI4c9X^qsS5ej6hdrLU4c={d%)B5)9 z)wtmgTpZeW5zkC@OW(lQJH5jvyLXNc>^TFxA3k^Q(w%>wzwxir?|!!L=vDH|qGFW^ zNg0ZiY+RJtg_wAof%oL}95N*1l&QoN5LvBE&BUe8Do|0=nw?)-SXP5XLn)jkm2xTw zkDUpSN0~u~Wncz>;%>w91crx&g`>T2{+MCK&4`ABD-nY_9jrJQ!Bw!Gdl54vRZ-Rg za2rjAZP$cZoi&zM^{(J)7F=4Wru!5lBVAO-p^Bi!Vv>8Nr^lCH> z5K?%n=@P<1vt%*A$oy-DQV2Ku!UfZ(y$xuaGp>ZyflLA-#gJU)&ok85C!ZX`4BErS z(O6*nSj~}QgjNF%&zlR>^N211pT|7oXlp~kG|1m8OyUwXK##UlhowWn@e5r%0zpaxWLy@8q3KLaz3Cg<6?CzYRtx4*JxYVlT ztk$&b&eW`qjJ&SG3LM4fwvIg7b>#bPdp;W2|LOSUpD%p)>y7{XiBIO^mw!=99Xb9^ zeec-ri}&xmeEIITe;&T`_`;JP&fNX#@b&xWzx(#^2ak5{AHVwO!QJ0}-g*B0fs>EW zYI^tGuHABQ`;j}!+)8CmO-3>PnTD9uB3W#DLTX`*DmN}U4_!qxnYwr}&d ze~7iS7skj4MV34%U!If$wtEMKuGy%MUlD1YGALb0R`%{F=cM}S8<;}cfmxUv*bXM6 znE=sz1rII$c432DwVuF2V`FPQL;UrD_HMxep(+pGNcQD(Xdn?ETF7WncOFn?zzWs{ zR33bdS2E16ZqY7?Nr_Sw&u!7uLU zu}n+`+cDT-!wZ%Krlcg<*;*q@ay^s$gii}>XN(`fzF?si<{o|?w-L}cu(EMWHw?dR8!9(_ zS*YzoX)mfJHM+E}yQBYbNliQ7jjmICEWX$d-P{mE@bo~rJNia*i)+%ei!17wzkTBD zwg2=E9q%8#Fns9Ro@2LQ^5m86J$CiL$(u*dKRkZn;kj#HZryPpGKS)*TA7-Ykdm2I zSXtH7#kb1HDMI20(gAnIJfZmeOQbpZWuSj%ZZY}{Wmev5P66=FmWsPctg054ycq5> zC_1+lxWKt!144LjKtP~e9)Y^TyNZV$M>-~l#Y;tflQkFZ1$fst(C3fbjcmF#^;TDj zL_*r~ocRk_0{AP^BjNS{49|ytqpJWTs5CY<)=o~2a7F5a?9{kC*nq)Q5#n*wU~b{x zvNhmy*fczr^ZxqeHwj>**@xCh7=+Nu&Bz#Bhn54jQ(NZ)-pj%PU7V+-#mnOx(!|8~ z_xAF1aODk%L1t^AZLC%?rXdCp9R$kPLbxt9=w<;&O=V73vBv@>S#+88$i{T455 z#!MJGJy87OBrnkF3n~)O&0u(9J*YN9RETe)ag|nRZ$Cdgv2ls?G$bVu>zu3#mxnXR z#>ChN`ppO&ZX@c~ltLy=nKF6m+f++YU|73&RpO`5VU~v&nFrL|5aOd_LiC$0Ug_h6WoAS7)M=i9iXE2u;w$3>uH*&Xva1$g{vAJToNKQMp5J zr$(ns-i@N#gKIJwDugOp*>jJGS6gk?%2a#PYrYR9@UI)se|_-Z|2%&2$Ds?i z+6InqJ9KCK_E(_&gvYstM!AQ`9ee`Z0>fSW zWj@lF;3%cBor|fR8_8qg3bn5+2Fs1FENbOOLwW&pjEHg2C#2WGO=$1PGEjF0=V>pe zYL7`t1bpF}#al%L1m{9ShL=)i1%@e}>W~O!VK0@dJp7`ZJftQT3@pYffa;3zkNbp+_nI?iatmbLZLc{%bWY zeS>4~Y~C`OUtE)#k(ZTQmRne@O2^rruSm;HO2?5ZFzNDSxs|JVOer|R()$veJd-)Sl_M_V<&H&x&HL@l`pS7c)tJSwOt3#jGwuA z;p#U{ZQCPbl2S7Alqngc8IT^CTUFDa#Re}UP=BBR%fD_soA1()8ERK z0!@vLjz%~8Mc?pmn@;Ax(c$(ls#<` z>Q0?hf|luh}y z*-Pnegt7DfknxX(#rBv9q(UIVmPs7_{CS$rr|EoUrVv|ZO`kc3lvgV&k;Mn3lcor+ z(-~*Y)$ism36;{wh95X8CORfIh7X+W^fbw%DflF+bFv9xq7qF^AdY&Dx2K`@ybW-( zFW~!&{@KY>usKbgHcgC1oq-TFg%$vSo!gHB0Z+yx!z%NZh#hzh^@iA=|M{Q)F)`BT zW=9b~xy2y^f#+t$RKa!vp0Grd{tdO`Y61;lm5@E!mtgmh4Z7E{WPtG|G%wjXJGgj- zgvZ*u`I_5!c=<<1#xeH2N*-Gj8j&T9%=QmWk;u{mL(?K+i;~it;#J6!HSEZXDn^TI z_B3rhw|)Ny<5zw@b@P{f=RX=fd+XS}$5(&(@&1cnFFg9JclccY!H2sqe0%nzU$1`k z!-;zz?tS;YvyUI&|K%6tnvZ_}{lO1EefInBU;Opr`qw`kzWLFCoB!T(?dkRtk9M8> ztbgB)roNLIWt}PcEm6vXkSNBd<|U*TC1sVSl>}rHzq@@q_NKt$GcysuPoL-Jl-=n(ln>lze_=Acn$pcJf!at8O65r4!dv~)43RTok;y(mv9`{Ec-?2so`)u>MY^<@kt*PwN6r_d8OBa! z95o)&PQDB?(yXm*q3*i6dNk8fTM^qdGO5UzvSLSIgn4EaGe5|0Hxc=+P&;QQr(g*M zM<23H0BXz=F!{p5BFayo4ZBoW8Mz?KmlD>!h@Zt3#1T`300z*3~w3sB@Tu-CR`Ju;=8>@vC2UkDTt@dHl?+XPNocwhk`1f=jFG zN5;?Qlr-j-x02-CzxQ}eQ%^`(3^NmJTDPa?ltn}<8GnS_gNc3r$p>XM9bNqg+O~`~ zcMi7ojMTUErmOR@IHr>D+tAs)^I&*1_H$&Q>e8wv6cjRUh`7PI!*r+NvGXOBO?|`T zV@I!U8#>U?zNNZxb3}AJBbe&jdI=n0b5UN6`Ek$Dckb^$cIEKN>sN0-t8d;Gmzb_f z%~q;1l9~TnT$89`oL(ueAR>axYFbcc0)nI%V~Q&4_)W8mDq-??Y0|UuU`pt3+)C6t zXi8)jrASq z203v~LfSQRV9`>X@e%@5U=$z^n}&qytX&J&qv}nR77`AXJ0Bk}ye=&4Zm!Or?ru0C z=}u+m1(I_%ab}QJ?qqMzHUVD_njU$NZ@e{$aV}gN!1deHr_<^WwoiI{3Z8vWPxnPs zB&odcvsbQobL!N^+Dmu>HbQ=!r#UaR7Wo7zAhhFm}v8b+os(G;?=x^zm@rxOSDLk#1UI zbaPGV!Li}`+6v6=w4F{gqO#58M+=uY_&DWlmbt0Z=?t2Rrx&GY&fGcErcUMMaXn9A zp6LS2>w z43{W#dzq*k6&p(kD!?8U85N(9fO|%j#?_G(6&pjvmR4W(1E4yt7z(4f)8XfnCcTLo z^XeOKyftMCDhZ%D}=aX@G^qy?FnLEv%aaarPi6v~Z}i7nxKn`ne*Mu|&6UC?C^B@ z%N$&T{6mzosJv)Jl`J}65|$njo9`!428JewL}W(96-ULF@fe#_l~=aCs%c-(;Pu0o zemZsQ+2L!SkH7!v{&(+Bd*Y94weDupN!>2ABfB1a&yPtRMe|PiHnXO~j z)D@kI+}vX$8&!GAF95iRzF9bxKiVYGI=yvobC<7vH;wBr>bKqqu26rc}$5)K0#^VezT< z-T@?!q4vb2=4>>vB#NAQD-dt2j~HSJ956wau^~Xf2B8KwBTO1#2h!OYp};TE7Cc@4=wV`y0hysuijmI4YHEUe4yyr`-GD^NiI0c?jNdV6|?hlM4?$D_>}85!X# zP$(Eap@4(I+aWgW&GEN0gPyHAuLR+p`vPF+0QmtNE*Uf+oP1919u!CQO)ZwKSx@>9 z8M$P(DcLeg_WBbM8kfN+9H;39N*dbRnhUOBsBUGa2^(u zQ&ivFJ-U6*JDq(83rgx^;*$w6Lf`J)F(2=Un$MmjD&Ol=)4j1Ac6%|VW0x2=u1`m}~Gz{!Iwte@p?t#4{hb|OX zG!&5D)Vj5!f2?a@Uuku70fEBZJIbmX7!|@2P}A6{NX|-0FGxzE9W|Sum{U+5o1g;A z`Bn*vlu%g&;{r3X^C{_;RyQHVqu7*IHnPT0_@;El!bh|_q}|8QpDsl{0pa288f-_w zHYU`aK3~ew-abB@K~a|u4xwxg;LD^km^sm5aC?Y4AE+z%)#)XstO?qSHBLCb3$CVv&33>E?!u8^VtQZ)s*maUA)V=ZA)b z5RV1;pktubV0TC7r%noGV0$-Z#ta!gwZejEY?(^9=WJ-j@5 zBDGd4-T^8~q^?a=7FfDz_7Vhjt`lA6LR z;WY6>X$Quw#I9tbNJ;<#YcWM$OzeDREBr#!LnHG-BC^9{@+0E%Wzkt7a&<&pX+(T^jIvsp z-dIw*YwO63BbR3Cf%*bx9lZRULgK(J6(h zg8Eo>nTISUOp)#@jbh%1jjNZ1gDcn`rOG5Uj2c8lLb8dKgN~jV^8{&1H8Quiv~@Gx zM1;E)fnYdWsAbT^geZ=`9mY*gFCskMz_f@NQw13eU;TMuDd*+t)Ul|>#k!}&0XZw zQ#qy{XlrW^@CHewK_TJHa8ae?(7Ie&xq0WFcQ$X`pO#%--?roG-Dl1110LS~((tIu zx1W_%HfQITgTP5CnJ{)FlB^usr0Pp68(2b8(ld+7YN{JLFucbr=pGgGNpYb>Mn=<0 zMdoA2mcgODr>cn;>mNf}rv-KUu46;{&)2r~meqICvU>f~->%$$4sRbjcD}89YiA$1 z1Z@;>Q`JSu=>-hU%g8Li>zPJoU0EHL7|6UTB{L_lG%+c)x}m+MsWZQ%1|7bqe=pNu zQQjz6v4oL4BMXx=6oaZR6;m8&06V9H>MGj%MAHHH7k3|xOYG-0u6Fz6lvJu?nC`;D z!dOP3)4bbgIhs@FZh-u*$8fGC9&Rq^)f5WJlma)XeqzJmATSIA4B!T^piv;g0N|v) z38jS*;TsS`OyKhv_E;JwO`gnZ4rn8%a2dSy_S;MjL5n6;lCE@YCFn3z9x0gG*xBgl zZeT}%IS?X>Vgswk21)Ibb%%N`o4(iH5(As2&zM1pklH9pJIV}wNgUAexwB?1(c+KG zgz=XNzsAPk8ii9zoLEydol4r!c-)bIJW>h18q^r3FnPMWSeluDx`uiiBEv#b5@N~= zvfCP}si?L!)ddIm^3Q{5Yrv`FjZMH^)DhUOIMRtFxC{j*4qiERC3Y5kiQ$9vH+y)x z`*?d%uLR5??cger1XM36qyp^lcG$mW)mX>XXHex93e%7g2_uL-QY73Lu*TffiPzd2?A&7Sf1| zQ;4C23u(xuAABMDJne!LY4fZJ7~Sbn#e>A!K(8ud4h;W)|M!2{v9YH>vt?@!!Xvz} zF=zGFz&q~i)rbO^Vkz)JN8~RvmE1f7oZW+c zC5c{v%Fw91KQoVwtzMc}_+ro#=i_Ujs~B2-7$ z2)jNh?^H{DLZc*6%CJPWG(l}g?tm)0sA*?PNo!nIWq5M7Z+Hy$cp}0`U|mL+hU}8mo!8|l>Ey5SMiN%TxwzH#WA!bD;&KG#6|AJg*Gc$8Q0NiFT zPc4-Nfzu1H6LL#$0wo@VHBKK1TdV>=1bh$kb5KA4S2fAuJ|wYg1Y4S-Nt`7jk4iu8 zNUlFxwBdVTJHk60egfO!8E_ux5L}MUI3PeK&IUb0I`|l>OL{!%>-puCnFW;BQ;W)K z_a1q#wqz57^8M}K*BGw#IPg0jNms_v~Lq%}s8#~v!p%0YfFC@!nTl2}+$ zosyR6?&jf!Tg1&hH@~Q{tsCpk@V?W%+xNG2?Iba5@3HIKM^CV)xc2zBZF^2O_6!am zym;kJ&jZ9T-_5@DtS#_H?wv z2&@);2S?AI|v~V5mc$^ zX5x3DE5Vr~V|YY9!m>nRfqwgb$DjPUjMBww`ob_*vV!Sv&anhbW}c*-^^!wA|jjvfq`JXSI{r2M7UoU?9`S;(ydHL6s&z~H= z^YQoxUvC+|-m~x8*8Mk%num%ShZEAPq_GTR%1uZw1=}MP8F9(kS;cknDcOqj{J1m* ztunA9lEy1qCOv!uNdP0?jNIK-VzvThY|Zeh*h zD8dA&PQ%h^M5T_+BeB4w6Hsi$?@ZR0zOm(+jiy1^N_`~M5b>n4?1JoII~5_J=d51C z;tYsa^lA41~D@==E~tB6q%?rY2(8b2(Lw*4%WvN3e^|ZXl`~f zuVsYEyui(r8Po33p)5^K#- z`G|bULUV5)s%z*et7uW@l$O`Fw{#A)cJw#3ZfR=m&dD$K_6y9&Dkv$h%P(X)Uq^mX z1x=$2|6oi~Sa<}BT0%minkh)>Xx;hr{wE}=*qSq+j}E4;ZG)g|VQJOC?jz@}e!2VL z#kQ?O*B}43|MbnhCvP6Q^dZ3r?>_!*@9B4|Tj^vvM1AKmSKxoX9XoTL2zsoK>bx=x znW~JO^xWdecvWOv5@VVoh%HXdM6{R5qflI#DT!m#3A>87FAfRLLz9UPEE z=uJRdV2=+t2#IX{Iy!?K>}~l9O{T`ihJZFk7s&kDwX2BLGBq}|vmr6wV9wmxt5z+y zwzf#mNb&dg;X;5p2Gigx2~0?gFDfb4cwkn-+nrpTsOHiVLHr}+9MA^6*;7Dwtu|RA zi?fIz*HB1>&tsKAD4f5LqW>~L?6pZE&ydo)2HVkL2=&zh!Vowx!w6I0{JHqn@vbir zJxa3>+i99bz`?|h>2T)MsVi43BidI~P6;ixv1WlnuW)sCh^7ZxCW#6URVBn^rm55^ zN^cj(xCmKISy7}k*w@3&-xsaX-4o%&!yVr4=ITNW4v@|j4z}~+McM*N6eLE(U@~Xi zh4LyIJFki&DlHvoCc?ux3lHZ)44FtGlmNs#iNpal)?NnLUbH}KiPl24wDcB|j!ldn zohs~XkwoRvP#c>~9$s#~1iEu0d3yT#`0;AkGO&&~iPgjz<%)HO9R+(5ULNa?Cf8DN2CMlMdqv{`Br!(3eGsPLwtd!j4E$;HEhilL*I zJT@aDK35i#AD3K{p1--MdKXELEnD7e=(t$jcA|CLrGWz_z&Rn+6Ro*lXK)uCIT zUitRVL+^iD+cUcT(2Z+f{l4wMxvhuZJ96`vLsvh3@4KJg`_I4L`|OL4zxn0)%fDZ~ zeEH(9zkYx5+ix%b{`2MEKcKz8{OioaN2fmh=HQ*LT6UdoAHFa!{-B^?0N$=H?o{P8 z5IYd1%yaSC{YthPN;?Gc1tQ=f)3{8kpLmj080g+ye z7`9f|(cRZAAk<419T=<1tm;ta*C!P=rI)qI6zNDbYyq4-{Z~S`Ev$V4Wvcv26FXDDz^6EknrG87TDy*j($K=nUYme(@|d0f~*}Kr)ujN-oEQZ zaamn$eS1So7ujP>tfuQ9?@fF6j{HIxTMdsH>b&N*UQ!tY`~%$G+!YEX-zYXAskULW zQkml6;hm@;Ydt}ol~1c_S#{&qod-@_dN_XW&cMDCy~F#@y#KF@_r3?!4_>;z_uP9| zzxa9Ih09fKtwZC7K70Aswy>%hRL{sSWwetbHH#xDJtrzYDMg*f z*ly%~96^KykqsCg6~oSjq60xRG&Mk?_`9T(bgcN;@-gjj2XdEjXK}kRH=HR>#K6+5 z&I(1oC3-v*lbtoS5^FmLz@KhbniN1JDx2QEeteDu05Z^3go40E-HOB*Hc%R;I<(w| z1`CmV#Y|^?px)R>-;@AE16@X4pyHaD&_Zu$Zf-&hBxf1EiKit|5%1&cou*Eg$wE2T zFi9H*4LORC3W~s#O#yA7$-;sh41F@&nJoidXIWW9D({Nr@Of4rI6t3TT3SGBsRkl4 z0Pi3q<$uISK%UAG`Z*SNdu!^RdMlO*Zwxka!UVKveG;~I3_1evc`|tJz^`Fx&i|P! zN4ry?pLe)4IMBxL}DP#`D} z>R=Cl2i)0af}-qzxcIpt;O#t8wt%aky-++wKS69q4?!S-z=QErbp`A%S_rm-s{|}k z`6bJK9g`OpE+$l$ye9@-tY0PmIA_Kz!}V*U!a{9rH+f^hcXPp7%$;SgX&AJzC4|Y2 zjWg-ZR57SknVJicjhY4f9YbPyO-?G+FipFzBUBCR?tzpb!(XJhyI9s9l>KK%X2k?%(d894RB zzH>hgAOB?c*~h!ieRT4{^Fuej7#M%QYuCAb7eBl9%^zKRPWK&s0JfjJ`Q63GPu}_0 z$B*b{`u^F^AiMbZ`}dcB|MKEb9)JGh#htIdK63N+*)M-Mboa^NnMXs%KjAx9cOA^D z-BI2$MkZuhL5ni8N*0r*%qR(uRXKVFFxwP(_m+go63_VgTH@5De)4!HzhGIMDo7r?e4XyHH5+Ko zO)qUQw05-j@No?YHZWr{sXf64+6+83FeXQC>54VXyI>JCF?Yn)NP`k#@6^-QtkYYo zV~AEmVg(qkBZgiXu3D!{IfHS@I~fOY{}uk`QyGXjH@w$3=++fANad z%rixDXVyh+V_REy|F)t1?Y%pz>o=>C)y#Q;dM71k#wVt=ZyBj<>`2bc%P*}jtK1wF zofJ=Lq`0oJV`ty+$*!$?ySMGBZR|=(&&5?pWiytjE=5X)IyXs`9v82qmYS7Ytj@}d zi-~h*Y4!J4h@3`6Rc#Y-061i}j~wYA8V{94X62Q(^$hMkdimC8za2hzgLJai-W|Oo zW4HhPXV0#&2cKZqq1JQ!=8g0BKRA8!_MLzKS<%!{QrDJW*^pmRpIuy? zRaBXtSDKMmh9xGF#2nJY2*gz9;DN*^i5Nv-nyKZc6y|q(daqc!o+>s@dt%d~;}U^) z4r*B3)xx4?U`W6ex%WgpV(1|g-pALMrP)Tzu?k?fOc9)N37ao&OW;Usw8dR1?tC&{ z0e0*$&@p!5paF6>B@#4s0tVr7WFAsQqy|bO6en%bqJ?~sQX^2wj?Be{>4c`pZs;@6 zTZnFuBrsGK3K*iy^4TAc8UFVoiI+aXdc(!%JtL3abww@Dbo za=D1sw$-cf=5ZAPkAnU}2{g_7#4n-?kxA$3?C9cP@8RM^AS9A9BKefJ-V*G6#?09> zVD_l)3^p~v6$89uec@_^ph^P#LW2C=TpZBVlj5RdnH&=w7{q*OU$2PJAa!y=Q)O{R zvckv9!`I7G5*WZYq1foA_(RK^^}SrN-%c7lbZ#o1piT6S`e>;)V2xwEYfz7vn4)&s0&_i%}0iipQS}%@a^SD4{W(;+yyc!z+7pN_5&QR&Jzm#n1@Y z2iuWlDE6Ti!tl8`HN2e|4;M{VlP7w+D+5OuEW$7;4=>mtr8+k+|ERe1conw8+TyyQ z&K=k2Jl%Wx$33Ti96IvV$nmEm$G;jm_4&}LPxrp_&Cr>LTgI-@$fpPdAHVx$ zpqHSZ{@>IjWY zNJz<%$EO5`<1Hlg%-f20*^}XhfevmyHjb`%_Xw`nUM2eegTkYk-@yzfOFK7R<4vvs zp<#+NSwcoaW;u_J{-G{GQtz&2TaTuk*%%SAih0)<~ki6w)4ap z!4J85*q4g2ccD^}sr-=weSI-Sc)D|Gi(J|G_=NQIbavA^z=ELxnFF}aa9(LIW%*bO zap!J@tFw=Vv~&Aoo?)X((<~+jmLIr18YM(-^_tZPM5syN7kR&xwT=BlV_kh%7W?s% z6qHmmViYTFPGNbXQY{OMt!eCGfHl$UGzZl;Z_mgo$;xANX?I)iKAM%bY(F}(?@C=u zUs+YFI=euXnwiXzoROBEtxQUTw-er#k(JMkJ4K>0I4Hl{I@5#$OgNM3y9xADCk5VMdV&W5pxxFU4xF)lpJUUUONKqrpl+`q) zXXn$hVnZH+g=KO^W<_nIZ$O|JyJBQaM4&W0l1Cr^Kmr57YJ6yD?o_l;Y5W2M>FSk7 zMsapd$0H3v$bI0n7 z!Y&OBHZ?VNbhLAI{eM153?yi?$iL{l&dv@b_folo`|(U)Ut-Ea$yKBUR`>t1bRKX~ z-r3jx?`C&XtcfZ1uGmm1(u?%o8JHQE#=ua9HuTz4bI%pR{h@h=5KIsX7??5pWqdD7mM(<{f;_~w&wTl1 zyd{V~(`U~zG2_xg>~JP-2nQAZ890ET<1JqbFd|a`v!J1y3qdP>uxhZ~9Sz*Ufh9`( zAVC0GvIHGw?yIkY?K5Z2L}TFBLyCdhW9;EDBJCV(cX6~slTn0-BUSPUrA#IkdAU3L zc)BV>g5or)%7RRlOw66LN}TpF&B<9aXL-81(kunS(XRP@7^(v7X(+Jz0%S)E;RQoI z0=ED2pZ`MV7vd`yEdblO?1ir7n$<$Y?kXm(s9lz_s)ntW%h4tUv(G{zdPp8N+O)xj z$JyR?%}R2{UU74BNJ&l-yb2_cva-vc%z2lsRLBm(C^4vmqz1P0Z1G4!&SB=XuxVlN zFfvrc!_GU9c~haj!ka*5pvgwUB2Z9l|3AW;(bQP7_-}vzJJ|m6E3*Y`7iP6+d7%%j z$0AEJ3!+Zx$7RM0qu^<0jpNj!Jqk(mcBDeUpQ{kQ2Z6UCP{z%Z&X=njJ|tiE_;~vU zl3DELMeeW6+ds&eC^3nG@gNrA1xUk!<-7_QBH3Ntc3|g$`+Fy!v<+S8I`9?*d+_jw zyT>0j?l?Ah?7i-Nr!hkwz4cY?&dHwf_xE4?e*eWsCmw!q>({UEeEr3P$B)1G=Bw|1 zdiv9EKmGXIPhbD^{pUYE{p{BtAOHIO__ZthuD?5R=ifVy+}V5j^8**Yui19Apk^Sg zpglSn<6<%Xc7GNfCuGH^70SZnG;!&HAz_R!g{mX{#i0_VnpKAOZl2gS;O+FnwwPG4 z2QenSAR;Bl)`Pr92fx5jHZHB+WaJSft>1A3uRAd^Z2AEC?L7Px+7y3j82k8$B6srk zvvP0^mW4A3Wnu4X>xATPx^(p#TL(wVYP^m_K`&Xlng%9GavKduPBz=L8JXRb*?lW3 zdw3a71dsMqr-Q^!WISQk4A6$RV^*bjL_|Y$rxniYny%)v8%9TZSX6UxIe;Bhrv!zI zAej=uO|zADIm0p(^_20P-PG5th>CEMKvS^-pWoGS$LMW+^uKx$|(*kkz=E2h`R+ zH6sVhcwSKjNm{(^+dG++TY`}$iHzLzT#1Z$fE0~3S(})t)+E-q44%65Wpl@1Y+`18 z`(X37ePgHZkDtC@+q|o?zMJ(KBx%((bZ2B1kiH12bDum@Xzh8a)!>zCWQ`y>i>&fq+ zdP7fdYJRaMAz2j_txZlzBbBwHCPWp%ub7ro78#r3FP4kt;W4_5q|Aamnz@CQ(ecTG z*sf5s5R-6Jn!+r2EhwvHDi)I@0cvPsyvDHElMl%P?kV?9+$KX_yp~WUYGkTK8efFo z!0(_|B=2f8QHKE=1B|>*8oTOvsshO7o*KEnBYqf9Tc{)#Rkta zWj$qRB<&reBNY}x1jY*h1Op6O99RN}K&+s?Cs>BvFwRb-K4QQ0adUS?kt1D5ShlrE z-^JBw0~)@SB?ZECVGL>=yj_2jK8VC~P1FDt!Mp|YSb@QH>f__3hnZ@{N`fMpX5!AL zGKiK!x{-^ycEo|iE)zHE<>ToF_eMx}b#$0o0%d~}6K~9%*`&w3{_@P3NZbH2zdt*c z)~(aqYGW1P>%$Ei@8V$R32zVbj|^9aN=5$O_#qub#er$MxZ=F5mfCXiewnnTeeCYy zM7@B25RiwrqjD48!j;T5PoWA7;{FF%dA-ou;3A>BN%|I115=Fvrm(U1V6CS^ttSZG z>zD*wPL;|v&x{IN&4>vz(BELO#n=*T->C0kZDnd`u;7ikn1XV$vtqR|@Fn~Sc05>C zmej)hM=gdTLj{4nFEDv$XAoZKsSEH<6xb#RnTnb@-n4!N{I)aV3&S2#{|LSlbpw3JMDXc zUrZTsL3WyP%+|7ZlA8eRK7n96)IC(Cp|zya#D#`Mr{$HE)pd#$5kM%;K;IyFP-uig zlN6s`o{(9YoL^tvb)aq6iNd^-Bp_2J782F~2tHhR5h z^j^*O$)bim<*f&D%Xej!bVuomqml|`8XYk(swkbSZ*YKA6`PzBt;_HZ3NhX4WN2k) zZtrC6=<4XvP`cibtp<)MMU9F1^}!Jd zZUGY3e6X#<#ZSy=s*_KUo-w8bd+tOmQ~L(V%!iXt^wvSa<*qso(U%`8xPlUKnn>nU@E9S z5Ag-dt_DbRTOI6K%7$xs6a0Z%C(A^~v?Am&ik zb0yJiqFm(~#79hREq;q@&iv zkh_S^gIvQ_j=I(z92~@-1CN|mJRtO_82sdh*^)pc62tEQ`#<Atl_x#c)zap|~JX&S3?(^{mWIk%YEdTcWohM)N+bo^98R@ZpX@6)`c|OwCBX zmX(DmJMw}>gf;te7C_@6?cN@)lAwTyFu6F;7bKTUM5zg})n!HXRb{=Mtr#GYtf@Es zygkVZm_BW~K-1kZf;rP@fa`+o)IJD|3+B(KxytK>8EqIeX$~`|&k)ik*`c>^KK1aF z$DW`N!Ei2Q(X52wtcAMJFoj?VT>~D^Ek@j|D22?;=oFwPsX{~g`ujuZOp8PuD@ znl%e-$DE9B4S@@7pJRp88rU`5gU^awZ$Oc^_|v8C0@ z0v;1#SA!|K4MS>F&Da>Q(a~7Jg|r^bCYn+x+=LUA7Ak5TbrgwJ%)f9fKpg>g+-z8F z;Tz9rJ(y!=X}yKAfr#j>4j$eF(Fc;?ZftHtIMn{hJB1akY`!3RtGK3%*d^93OfA-7 zr(T#?5h+z_{iWevK}tzjoFYP3R=2yg_gHb=?%snpC$9Xk=j^@q;Zq%hCmVJgZ`gfl z_|((k(;x18>+YN1{c!I6FRwiO;>$n&WLW9zKmO$Q;kVyEeERdXkDpw6@aeVh{y2F3 zN#F4YyN|w4#(Trgvn9>LSRbR4N&$9`5>0##xsGgVbDIKou>yLSja4QwvnZ{gf`oR@ zAoi#R8QVIpH?hXSNC-hjVO2%zuJYF1nH5cbp<%0Vy*s*jizI7|%vcCCcHw(*c)XpD z$iX|n!oih^C!z_wg5|bu-lV{6*h12zw_k9mlb0WTSR5}K*u!VzAo$oBGC~^{Sj`HS zb&)5w+0b7lHy1YswX;ypTU$~9(nCed75EH|`?YJ=LSqD`w+SS9 zZO*G?7%@PtR4QW=5?Le)ovvx@n7nZ3+_jH~$4*~;=R0OQDg8+G+P3RJfJj0wmHALM z)-cC}30#-LxCh?&n$)bK)}G-`(s%R9lhg8Q8oJXm^D&c0Mqx0^57)$FiASza&}Aki z^<_;e{-#2=avDDTbdwTaxK;x5h3U(YkwtM`o)?G(R8h4j9?#?P~h)&4V zXj4=XabcQxrds2ZveUCm)3Sc zE0IXT)oSj2=B(Ku+1hn1dRPoag_iT}O!vUyt*p6N=nZYg{RqfYk*rv?f@yi!=t9(N z{SEBtpeYj(5eEJv&TQgfGbGfG=nJxs5EwTjurL7%e@4MW;y^e;+@lc>l|i`1OulmY zlJ%r62};OX3ln3qr(K=w-JBgfTv-R^zzsPa{x1>vN=1I*ijZ_&d`)?AYeP+QU3GP7 z5tk@){pgCoISnE#g&;eU3w9L7e3mR(4CI36kZ=b4X-x>-Ed7nVMmT_8o;4d=CNVOk z#tZc)?juI1^zeQ$9lMmGm7yc(4M|Fj(+YBp-f99Et($ELy}C)#&8t#GDXyoKzhTiw=;4hsUH3jJ{pnzOSTtu&jMVS5RNK z{YZ7ka7oiZ*S@>E#y=c6_0@qlACKR8bokDr8~^_4?w9|*{n@8*^>?0p{^?(TVT`== z;pYc0TpPXe{y`RJpMBagaJhZx`tZr8-NV;(*|qA}9I=XV)D&ip*ljHeRR>B{Fm0j+ zBuY%NI+Y>CsD%+WIH5%9`@4J39uC@k#dRQFrUIi_Sj!<;dG#*?R}9F*5ZD z4zYFhGPZUqtm#fKZSt0>T>{0n&hF&Ku!Ap3mnDx(V55ft8%~YPY#d#2yu14aS=cz? zcrmxKTa6Rkz>uK-#S9;jmkkG6ftXG^!*Ii9W??8o0S%^UxW&Z8avUJ=(z@YWs2yc8S!k$?Pt}Zx#yi`gxSvTlT zU?u_)iC*{~&)oU!%-f$#p1+OeAEMMGXO*76^HayJQ8LF4oPO){-N$!-`0tg+Kb(H& zL2V}sLoQW!4K(zQR(1>*R&UEKZOJZbC@5>m&ackOtBTa7M8~HQ5g8GM8;35iE?B~p zY81(4+W2HmWGuVpsnh~Fhr%MlsWN0rc6>m>Q9}ut;gBU~b?R{E^|%f%l<)$CUvYg1 zVyTJV)FDl;gd&{>C?PQk@r{2%Mqon|b{YU5?4^~5qXgBAt{;gj2+s7l(O|(8WO!6N zR0*)1);VuMXb=xs2H6BJYM5H7(P&VHx%imOpF4Lh%}$V<$w#ylT(>|svrCXyeDzdz z3zjT~)(e&WM*aD;SJo3G%fRC*$Rr}Rsi}!V5sDNKjpSK?atI!QjrxEmH)BKNtZHny2|=6AX}C%e zDh>(@4UUUc=cMTxtINAu8(ZqCd%HR#RB~p5=wMD^yDNm28>HRS(}Ok?j-B=E*D|9A zi3g#Hd?YfL!-!yBL{C{r2-bRfuVlzDdrjyhMtb0#AbK8CnyNH~1?s+b4RsGM0TV+5 z`p_Ib&UUsw9^q}AzzKtO2gb#SAi50|nwh1!fr&9E#gc`KaFAk% z5_+kd^r;27Ql^wsqGlPk1!Pvj`f#@sCn!J!W8|BK1X^x1Tm`F)uppa0s*|0Av%Ryc zJ^KNjT+N8badO>kY|b3w)H0?361bAGN&)jgsX)}30}WBfiewSN^2orD2-aSJ>Is?U zNjWtU@qz~4*mG$6$mOEOzM`gq+HJ?`wwz5nC47v6p6^2d*8t-k-~FAx9v+nEz-(Z<&!bp z=T)~l`v&N5F~=mc*1*Kh!)N5u&GR39Yi5snvz0Q03;|zJXhK%8hg9J%4xu5-!?R+& zp`S#7Va7XHW@x!}mA-+EgR_O5qfe03*2$e+E%;=BZrC{Zjmd?62%rjHJWXT_B$>6JJnc|HUfq~zDG;$w z!~D4ig^AE?$@P`Coqx9yn6h)K*ztKXKxsT&@I}MklWk0w4`l(1oYp?C8WE zB_i~|b}h+Z5mE7kdX-kT>>Qlz>e-i-UCJ#xzcMK`PaB_B+0dI=SX0y1*V#87#W9jz zxc|g^Jp+>@1|ud(f+Z}#cH$n%t0}Kb%i=gl)-Yt8U)Hp3=*s)Q>_2_=#-~3VK6Aac zWn1I6f%2wptvmNM_6!UiIgbMW=EvWTU%B12XQXprxPAA)ska{u9lkhz@nJ=4UqVK4 zOj1@%Vg_wrev`yxq5m79Woue48%U@iq@iKtKoU@+(I!S}6G3@M5!Z>gZveoakd($* zjnR?g8&QSRmRB{w+3N5}maAG3Fad{icBaYdq=w^Zedof{yf}G0hnutKUu6zwnS1uR~t-$;0)vIi*tt8T5 zVKh}Fadl>k;#X(!taw z9UKPvEX}rBnAoi&ibLPX5$m;;HRGZnzS!SK8sL|cnp{zso0F2*P*Kv`+0xb0&|F*7 z*3@KgZ3Q!D*DM)m4)$BI`Y;gW@8`=w#xH=I7t8LmNj*eGAeSltLXAH2%A7gqCp2Nn zpW*Y17LY1D7i<@{X0KWayz@S<0^Y*ftu4*$Y^>~9Ze?Wwj62)ec)L5t$7uGA44pc2 zs=l^r&8p=b5W#@~R8P-6_Z)(WfapT;1vL{KjQl2mHZ_p|+U907PdO!d01^5B@!WIF z!@4+A3RrVWzWVxWoDTFym?_}9`F3~}iY@mCq2l2}eIY*|y&c|8pbY0JeKA^LOPNMn zx{LxJ5TLdOTe$JUM{ft%AqwcUOjkOP!pf>m>#Y{nb|#jB2t#X09g{%#wlUc5;^Dx) z;@}XnbN$2$4?nSYU?`LRVcK-oOp}uv8m{vUR1mkDUeuCa+)DJWk2E|nyRv8GN`3E< z^45Lz+m6+AOmy$P)qmv6!4u!L4qV+fd~NjdCb*2IX5ub%+}t}!rH*XdZU@8p{0$BkH5W#&niQc^(I)&dGv$D5yax=5GkBCe0m8oo)DgyJ3wk+3MZ*J#|r0*k^o7*`p(_2r}rxQcF z?q23w?U^TE0&iZko->mFF{Mb&gj*1Q0qHLr@jY%b#s+V0X$x;RG}r>H^WX~)I?tt} zlSCp#8>H?I3k&Pnx$Dre({h>Yjd}B*wNn=?TnxzbTtS~ESJ% z+pFrDYU-O09y$N?ufIg1U=r0QFWuWScA6wHXE&^Z4DSH=!cJ+1`Y~yGdIz+24(;A^ zvZAKFsIU-jxjoY$W_Z$7wzAcJ^d`SYi|*(RVjGZ*X?Mfu^*r_Y{E zXPwh#&TDfJ3Md?GEG=m!;-MuTn7%FPWaeA&+8di0!_%3>Hek61ycBJL`5>dsn?(M; zg!e)#EzPW*?A%bYx#--SJpz6Gv0<4SZVK}8T)A+5XrOO|Op+QG-BelH*;w1vRJXme zJt{m*C|Xu5_x1K9qrltK9p3%QD|2YVqK&u-di#9-BKi(K-d>pKXU&}Hb=Wc~Jn&ob7fLqD)sY!34H*sY9OdI|{sg)e6Q1*m1-S#!hOP4Q)>oL*Tuxx_o^6 zz@DN06kQxFALu3o?4_xNclaquU*i-;kb!;E>P2jyHti)2P%0f}!3bExi-_%U(V~TX z7gHmI|8V$Hj^SAN```bLbwTjM^X*7;JS5guP(B-$O?2Qbo9wvHD!9cbTsqiNUKhMvO*FMdf@%(n64@BH-_JF>5Q^Zi?2{&?cOPkB4~ z=FKBF-~Q;&-w$1RP}Fpwx$jbb^`4ya{?f(~O=2EDG*}s{ipIgB_6!X5@RyR~1y?uZ zDs%RLx+@}LoV|Rl1a|Gfjlt5j2F7dQ62ek%rZrs1?Zo~?&^CcA#+J54RW;cq)rc*` zq##3~y=zml$&fL!u*RiKB>Q@UEv~*n9s!cAF78WL>226-h&z-YVaDe7wd-k8uOQ}8 ze=`6tWXP#;&lZyofU^&HRkT=RLb9Uc#cO+ay0H`1uFP8#9 z0nQ-*P%aWpAh1MXgEoc@FX~4ag;F7p(u7liE?Tq*rsd?Y6+s5E9X}YrPUDEOky@gv zy1KEYrKYaFq^zv4s3bc#FDp9-U{6U)OH4{qs?~v_;F5~!{*m$RyZ4Tao!CD<$mDwzX-`hiC5Cs$(4jZ)eS6^a z^|5oe5LFJGzLis6&8X3}FMrG}uZYy?_Fue-DLp1W0VtEp%szGYj-9Eq8QF1FJMR@3}iSrpD?us#4)*C&WT7Q zZ(vYRTzn!5TZ}f2oywep44ggl%%I!w=s7yUIGs7j*t*0efdoexK-?5^3W$nQjT;ak`Fv^GbhiA$Z=u`* z>(*OsL#!EliwHmGTHlPuZVYIWhq!d%;s9@-lti64Fo4(uq7u-8P;aQW6?E~u{OAX; zcq}w1(8txuXx*Cd5HW+Oir~O7iKxE3cyMP=MR9=>=x1)mRGp8futShuDkT7_HOT<; z=FOWma~2X4zduR%E>2DqwJ7Q?B*1%l5=6!bKLnV*18-k=@kO!`z;*-~Cb6;KBe@H` zR3Y7qur)o>y{yf)xY#qyX<=-z(bB{yGd1zR{^7lQ21<(x(3hTn{$HFj)Cll%6eoB) zOym$>)_(ED7lo&fzO%U*$d5Sl{0q<1s>Te7 zV-W!dVXt08X4Ue+$mT?%83DJ1@1)P`%x3+nv zx5MGVc4ix&?d@P>k{zIiH2R!8SOC3hJ;8@|K7kSfyXjYAL_vXxO32nEWM`FiL?;(& z5_3@BLnD&FTWEYhNTgS=%2%T17MYOCCo@ahs@e}^mbMnv?#L_e&8gg3)_$<2`%qca z;P9!B2abPGzjLB%WODrG+vh+3Zur7`2QGiS^XQdbht8jT=fTzYKRkZ(lj4>G`L+Gk z9h140{koini1=J}Y^E-|y1x4$yOuC0vMMPmo(5?CA#;~=LZ zqe)w=*}N*XclB7x)cpp1M^{frcOP^#G*bi^9!44);5@^=D_7{Dx6=>h0T&#P8#ZEf zoUWmr<_U_)^v$MY+2g}l>%aOIG98aubU(C~|ufK8Y zRy#167du0Xw2r90@x0GluyFpO#h9!N2!W%KV{Nlw>2l5^cDxC_Q>-(jxO;k$6~vBC zp?L?hXFl7V(I;qvjasc#%H`02`STZm?OScFm}=xAUof9`(_Aigl|ornU0YaOTwYO8 zR8*9mox?4IL>E@Mr>7_C5@TXwBBNu__PciuT)g!`TlcP!L#Iw&y2mw^m0Nh@(bKcn z-zNu{QT=#bItIm<*d%X15$?nE?BYYG?(RQwqp@puIkw30Q}>_#af+>r-~W8`-#;C@ zc5m$5A`==p1JTm&=sdELDRsBbgvIU@J_W<8T zk7nDR{lzu){o}`PfAiC=Cr>Xv`mAekxNqVR?ngE`j-5MS+1OIq(wS3MRoUE0n9RM; zzWD5?AHV+d*H3@@<>tp9AG><>*iGRCx%>2wcYpg|-}v#qv13Or-eYTaNAF;)E-6wQ zn^REy-Z%fLsBd9>Nuy;AUn~zYr819g5E}r4g9}Q^6e<-g3#JYBVm{F&r|jM{+Q0W; zVNv0ZzP{KvElIw*q-5e@Bcr0#ny94o%(%p)FtTL=*_}sbuN_@jS~5IILQ;;0JFRn1 zH&-ACib&!ivq((pW0Zk@;}W3_P8$s=4a7jNpqz)h(na00i5Mb%c}NJRSK6jFHkJw* z{`Uaj3$+|LB1`~K!$rlM-0On&V!9d$W$99Q1hG=wEt)P7(C8j;QQm)f&Kz`xnX_l% zGeHVw%oC6#LtrK0S9nyW0%Y(vKKmrD7(!-*oPia~>1YyKO-~0sgw!l|7YAH4NaD0h zWFeu_pdeEwa5isF)JC%lFv!O%TqczT1q6D!`nfs9MW}{$^~Obo6Q~8m@tc!_1W|X# zVX~FH9YcsLrx-ORO9yBo<3B`xCj^Et4ceuIElis^bNcid4w!aaT@dP--hTzB{cEpb zl|gW)XeBoc1riE96-v2=zJQOrvxkd=*%kvkEAza})MG~v?HTMV%FCho3-RW_l!b^T z!7St0!jZtxC^l3G6ucc9Brh(ytE8`^v^WsX#*t}__$JJsq7J<@jiwc2Q_J}ENNZoX zcp>d9Qt{2LtZ>dyj|*ZRkZf*7S9%$$(S~)T%m`aCL4HFcs(410niMvefcWJidR!k(&dM@vw#Vu!o`DS9KIfY!TA*}CYE-@9$MPDXkt@HYZ1vJ z141Gky~N()FcxAYWL2<5I!GQBs!j}6XqAyE9)a?}Pz~GnyaMD=aXIPvP3qXJn$ClH zRojyDs&h&@^D27tYIan#?k%p})iZLV@90OBok#0?j&|)ocI3{t-J>__cAae9bD?9; ziPP^q{`mL*?K*fOt*k4xur;r8H->h3bVhteMRZc3GAbn^E;Cpe&58{VKdFnCC@O*Y z*hcp9FojCGFUkyroXi+A>#YF0m7RmREq{w0dB2Qqn%UW-gpy}PWW9-nH34dy&8>o% z36F?m%xK<{73}^dqSn^Yl@GacmQk8+G`4f|V$;N8`lPG%thdr@W-iqVFvs_Z3zJMoe$r3P}8V%Ad@a`=vf1zW)nbHXc4*5hbhG3vrB7GA`GP0UFw#CNj81um$gEBB>hIEdLgV04$-yt=E?dB}kHQbEF7nfsjU|>>0 zB2Gk*JU73fsJJ*cCnq^6DJ3~2nT!%(U6&Xi7aPfc(OS~3(lWB&y#2}0fup=g^*u?|;ZQKK%WEaVcD@`5^h#&pv(Y{cp~{`)TLEz?&aD;4>fm{9o|Awyh_- zxSB-A`sNPgqmRG&25kT0&!0c~^B0bQ(Q{{ReEILopFBBm?&_I$K0kBkanHcPwrzcV z!xL@WcdEj})3b9QJpH4lr6V#np|YWsZQwX|h}XBUw2V*G<(HJ^6&6WDL#Ye#FQZqZ zeW}Ay;1!qee8^C6&(56^iCC#pq9cTahN#qG8M(Pdl~vpN_Y{_uv&Sb!8^fwL7kAf) zNDbpcusH4k2Q)2jDs&;M7sN5pXF-RlsWFlZK~+NL06f#hDKb(MEE1tesFVsYaOJAy z*0fKI2t0o+Ab_YzR_tQia{!AFpSh@Co-)JGC#7qSWu4y^B;T}gqq8$C)ROTY2BV24 zV5Vu)rj3Z(^B2sYHgnd}rHdK0C#vx^7EH{WOAt2HMDdAc3TTm2WyM1mS)~=PSxeb zr%oKLuP#@HNJ4`}WWK!c!t*v(=Aj{Cju^Vt>_}ROaF!!|-n_YBIJFd! zGEAE?h-Bv=*hD!K(Q0@o0QMKAy~KbnD@^PdvhYab0d-sK#fMN2e6#ly}y4kHu$J#0&2ChSZ{#%+k)R($1zG$A*u8RMj!I{ca1(?M;Z|16)dK?Z^XCS zY%w*R%2tO45!FsZg9=xV!BQOQ!l}A^rGVj6LtzB5^Eh*)a4MWs@4WpXY9=~GwV66gn20LQ_UVbVWTCWpFD@o@*9H^eq}e(M%kO=0^2%Mdj^VK7cSD)+3zRTYnv$N^(7tP6?AXqOqerjY zI(hwJ8MUoF(TS%$(=VP?NDG?tR zw|mdN^4i+Sm}r?SR4NXhF=Hl;a~zP23gb-;l?DURL^KBn1>(MAZXcDy)5A?H4g_G( zyRp%L9++B{vQXp*CM(^^AFwpzXh=-ZvN|b39frq-sd@@WuEAA$tI%Yq0>E~31Nw5t zTMS8;MO1(N_195>sQ*ccoc+q2=l=08E?JdQK3~{s@ya5={EgS=v1XLE=F2a0dwJF@ zej+}0T!l*Ude1T;;i7_J!_<6gIC3*4u64xzVQ{yx zLtys`kZv@!Vc3U6EJZ|ucaS0?J~Ji1LLL=g+SFUs-Y*V|i%7^4$u$8X;S3Bpdx?FC zZHr7repf`L*m;No2x=^B)aY_Of|RL+O}UlZBa;fW>80^m)$v(1iCNW!H9LFuolgVm zE4s?t23rSC9=-A7(1{1pX=PC zlihu#j_v`@o+28%K0z{{pir=#MN!~9A^MhfPR5K2v6zFY06Pb6kaMBC%FZdq1??QR zSg~%;1HebI!R?7Sztx2db_aaROqVZRwPw-sRZN1@V#bj?h3)I%{C1A6Yd0D!qS{%r z4jxV=&R8f%Bq8m{q-)o1Sh`HegqaHK6_#rt!Z0|1Tmqi+I8S|-30)OF6e=lFj4Ua} z5Z=rToN5us1E7yq&6E0!l8nVEcVFdhFuU!j(kTXUp zLG^&-<{u;p4pkvBp~C<;bWwr#;;QC=XD*H$Kf|qkXaBDK;}aLJ(dmBg=l}NZ8yz`wkqJ|9xUixk zue1!W?9C@n-~9Na)STRb@gwISzDGO$-1{GX@Yi2GBm0svGVlHSY2Wz7r4K)R$iDUQ zi5p*h$F~&M)O7auJ^Jl8?gs^acyh9TZ0zdCpM(7Tl&g=wxbV>@$M3#(_MOKR6sK-| zGJfuMYwzH;fqnI@U6ERCK}kiFHa=9T&L}8P%_-Kz=}Kyw$%mu_rdHa@8SUbdlbes( z32zeTIHM-8?x6#tV<%4YfQN;vlTy=o{1LhQ{QZK0gYpUsBcr3!v$ATNntJ;OdEAlc zbF*{GtEz$|;&@$RYHBJ#F>mf%KQAv3eBIjBkr8UTBQpUx}K`sk{?P(&y)L{y6 z5{+LP9O&w3hc?pD+6ufQiC`UP5)GaotBtHEFQKJ^XB4F!kYfCp>_-}@XfoVj@5np+ z)AZRhal*iO5wwXDMOVN{NbuvrMGN7mtV~6jS-fxof$XHj5c~+v1MDP#A?J}qU~6Fx z!h(T>vD3ccJhCz~h01QyUq`c&W&v9S2~Q+IkxnSv1vrCPFo4yN3@&F|D`|jlsK{Rt z9H0>Skq^ceZ2oE1%d?oK<3{cTqZyPZAh#ffI6Kli0JrH{A#b8NqRDvRcz2?;OViSl zx0J@fECyf@9{d;PM)^8-SH24kpXn;<8%&rEZ1i(?A*oEOQRii)r6g+Ioa{-G_oXN6 z>dbG;jd5Dk5Ymb9sH23#{P7+-Fm_~R{qmew=|pfKa`2(6FJ?RnC7;v+6awaB?Y7e4 z<%FU<#>#I?RzK}A8=K9>LNvUv62!tB)!k?+Wr8;Rzn*^q6VLkfYru9+Mx1L*yCBly zZ$~Jm4aW^$jvWg=51HhW6D%|9$ZQkbtAGa1J@gp@2@OpwHW`^RD{W)%Y+z=)-q_MN zKt{}Xj4s#NTO1G?-rhHX7!#F}F?{-VP1ne&J3qyw6uJkR=+dL$CPt}rI8JU+83HmwY;CckD!UTtq#dw+TRP{YoN zhTcPn^C|fa;c+=JNrm}U+d?CgA`=VJ@|(rVIFT%h?Wj0p{3PKaVR5RcWU(R|u8#2@ zZ1)HdDJX1#CC5wgcPUy!`xv#ID|cF5Z5G50KDgY)OQGw-fzDPj4GX7t<-x z2C>E7)t%c$BNIZdP!E=_TDx%hDg)>{o(Dr?@)|I)(-R~*1X*VJDm`R&-0Tc10rV?S zw}iP=@>h@*1uX@5XF!#ze>2!_Ftt|h< z9z!ElVE)_*`wQmIN6KOH2#YLBr#p8JvMq?>i!Y2%Xw3cd)JI^YtaP#q(D#D=jN|lFeh7!;cC8q^lAUal?l$zSP zV^?BwN-C|2%q)_cIT;I!iZqcLw3nKOhWNw;C_Mm8{tr74!!;bfu`KkV*2f+LjMEdO zXJ=z+o~%m%C()}d%}nSgVh{m2b@4G}rA6^^TJ&_0zn>wVIveW{5r%gC@$qp2UJ%~l zvnk05=_xvcP5NLv_5Ef%6wK3a+K9i7u03E5OmUAu_tZ8$*x(Y73IQ24`tN`L2MRf+ z8suLRwS0ZOQO?;JG#>>9apPqnv-fo*?gjHUu3KZcaf6w$0p|-|K}?2t1sBd2{Nz-K z95lY(tTplw1^O|L$}fzWFjPWQRT`mIszN1VxO$i@DomygSEOho>&lC|JDOdb?9hTN zEzHo>L08~CI7mdYt|)*ZEu1mz&i3VfJ_F_h-MIAagyrB)Q}AwuR>RAU|Hzhcc4q2c z&_RWFTwMWrcs_s+#Yd{bgcB6tCk+;%5qa{fdb$S(_+jq}px5o;Mn(sX58Od;GN!h< zA*vf28$z?;Xo8pi#TNklzd!ff^l8(c`{zHAQ)bVZ!^sF6=SsllLmUmy7dChlczz$m zRUlnp>_ib*TQQmpyhHnp3=QcKL)w>5d2*OQ#;_#Zma#HqHFf~FhO6A(+VowyaUGMLs`qfaEQT^LIyvr7vq8yVrRZX2j-8?5ab35!kh z4-GG_@2PCxk(67h(q?!Chk1xpyk#yG_1o1~9Kaq@ahR2(x0AP6n_7}zwIe>WnpGO{ z8I`QA4vWhncb%4KczjL{LkWGSVeBX0{dwa0H_d&MS!FGm#Z4_cCJQQiRFN58L1BS% zj18G_sihHd*+9CdNG?{!gs2n3V>8q-X$nnZuv|li3?4}4#96u_3RSxMh-h@WdHb8& z*kjap_42iIamTI?QAZ-7IcNy%aH^g?@9M5!exHm>PjEhv~!XDCv zESJ{@=Xo+XY6%=*Rut0Cv+C?bXp&=0bTr(U>B1?EUFd)V?;O+f=$I~8h*5#4?Yh?X zw;%tOl9}_$>&%)g=I%gja$-4s0QRLT^*DM6i!d>_M*k7218W;$+*KxnQqls3S};1K zjn{$5sp)AKu3X_7p2BuoO3T5Sg2FL<$Olug3xFvC&ac z&v?61I48oivBbJ0lh9k=(p6GX)6=&nIXyE_9CGu+?;m{k$Ng`9I&tmBqo04#>XH-E zGTZwO>^pn=;DtN+mCch^AH4V5Z})%r`Z0?XzyIUV`OEuGoo(vrYed{Wcrw4NCab8T zwtdIY#HIZwZ*Jdn_yA^@r+>UZ1<1OLwC=%S_G_T1qr;Tc)pz#qx%A-cm`M zcYhijy;x9QS5V!2`Qu;DzxUn5)mufib@6Fw`IQyB$Hxv_ICuHU=eK|T;V%1mfBRqa zjy{z9eW$J;x%}wXw|`vv_}j_r4^Q9z?BKcE$8UbdKhfkf08z>44mCH)XD>AaP>KdDHz&beC^BT|1%R|XQOx|i^T~kwqmz&fv4qqf(x_-E? z!FFM4a*Lt<`ZXedpZ@+`C(fN}ZEs`6Qch-;yOU#KPBu(j8-@C!p#3T)U(v%Qm4IA{ zh^f!w!UBxzxW@eaeV`2}yKutS-*^L828sc=0iI)tq;twe4GQAA{MQSDTVw7*)}79G zc6CC)p%FQ2)=WMDhGQ2eUlCxR{{{d*n-3xIyiYI}zbB#xnhkbwA*0d;s53{b2Gyq^ zT_O*as#OY&TBVYQNP_}YGO0=?NsNu?YO8CmE#KYSSzM59Y0i{AhWm|FF^tjiN`tnN znP#`u)|n_US2sFDL83tZd@(!50;vX&;oYJ4Xja%G0d^R^@OJ7yN?@=ZeVdOMbmD#f z!<39M5z&UPr&9}(b1!5GgYoRWLet@s6t>g~90x*h8sF^Tz_2iX4?R#GMuB=0nvQn1 z#mL&yoD>hhm_|1rGb#=m@cVNPav}iixYjsu_-_i^&CzD?zgbOXg~8&C3=B}_ar+Q1 z$VmZjCnEwE5Q-U+J3=nhop(0V@ZKz})q_&9iv?iEP=`DSwL_NS#{Rd>#wIpf9l4>& z@PVn7eL;CsReO(%ufK=CNF9@?h|)>J6A(rMW!jkJypZt7n3Rly+HP-&+CL=9R~!)% z7O##@VMg4>$;-`0>>C`m)s3v&)F@q1RC0+(5r=IC`CSsOlWLMxG3k+sd1&%Uxiz}n znw*;MyxQ*a)?EcyoohQw8@ii%57xFH!071eC-#%55%X11DWJMnklafo4^_weOTzsz zpY{G4W(Uxbn89$NO z(>KuG#Vu477NQK3hlP{iipednq>>jh%FG*J^s*I#maZqPKn0l*)j?gDIcMcFNC(@e zZp+Y5`1InXOZk69Fb;LjW0*DA&W(X4hL@Ou2HTm`rtG410=#o}!`oHtWsHt-u(yBa zY+SQO*oew2ZtffNc*S5m=6Pon^5CgUOx#m2FTx4Eay4fSJ$SS=A@^WCF+uEj+Duy< zeMWG}I67m}1K3FbhDN%(yEE#@{)mXksIrQ(x2|9J_x5~^U~SgQ7#XLgXNH90D^#NV zsKQi0y*5^xpi4+iOMRxr0Pg@heF5QZWF%JYP??OSz^Un3dqz*}+B-IO{L=8De(mG&bN2?uFAN>MJb36r z1zW=oU%LDCf3ge9NV$}&BJli-ow#=J=tY%EO)X4u1W#h>Awrv!n4076>AQX^YhdNt zH5gs4J^bS8gD>)mOZOf+o|Kx-gUo^G>*vSwz`+?A9VJ&P;q5d*I9S_zdSnV5o?=aS z`1*D0660gT)k@O$u`Oe0fk*>2NbpqmSk%!9(Ar__?cHsStqo@`U(LkfAqY0~Qi;`B59b^6G2g1cYV&!ugoD zfOq5?+NtvwEku6DVvSae5HV-&>uw%I60srO(8A1=;e7-d0DR;6H5MjD-1HfYpmn-n z9;}|XE0!(6FAv1w#YC(|RzeZNYOADT3>L|x!EkkrT1jR*f2LX`mxqeO!xWk@ML~92 zWl4U1R?6_6e!c);M}I+~WQqs#xj;x3;k)N`wq)+Sx#WG}hg`f+2pkq#q8m5hpCKfG zqtM3E!j0P4(H?x}EwGFZ1HI=4IK$hyL8uVS`H&M05r>li7^hGY&Ie(q*RwOi0cVkb z=DbAh?Rn7n4-m$E%1`1geN8^30_QFF!#RRsY3hsZaPJWB#oRHU7Y+jQU7%Tl51NT5 zL5&yIb=cZsr@{GzgO4u*ApY7_SMNM5bmlyM;9|GOVAlb0-N*1>^Pd55`H3 zc-}EInP1c0v+rb8R~LM#sJ??VEwmR=Xp~=Ym{)*|#6;gOFjJpeb|v55QOSNN0gmXj_#f@iK*>f743 z52oc566osX7eGV+9CTZ2eV$Ej!uh<_9({>PD`Kkvc^6l= z5I7=(lo6461qDMR`>x)4+tJRJ_7_)3v^K7yx(-Voj2%G+FrQM_6OmxhW@6*wkQ3tK z1m+$c9i`Q3L3L(u7?6*Njb-J~&OKviu0A+?_G(jmH%8m7j?O#w9Gp0N8A5*l+dq!J zb(8LAYF_cdOSdO(z6+$Ey7OLoUg3!wcMxPI&b?XF*meH)S4S?rS5?=(WAIRK{}`K6 zp~pBUqhgarkKbf9-q85Ps~`M&?UUcoYO0z$$Ijf{)<3}%>h{57?Y;Z832ANHN5)RR zw`1>_-TTiMS2Z?w?>>F?>&*P}-aSXTR{O_Kx%dQh4IaMm?$2lM{M0vkar^LzzR~kz zXWu<{_uB)f-Y#qG?A

    I6Lc>8anzWFMhOZ->J^Nv7I9)@bmPIoTzQv*1mm^4ImP! z?7)$WY>7gRQL7^$Yji_M$u=^xl*$?V)4}bjq)<_b;9(mn?TU=-+^YKK6PMpfNzW8Z zB(OE~nTEDbO>{JQGORtK;TIJX-PybIrGnr6(JfoP8yv~i<8 z9$NS*SUPLwOk{TaFbLNkuFl+8jR%I~W2gUz4~#f>Tru2`k4W()s)z{3Foi5cDrUb@ zj7A+2EJBch!;>};8Ntp%g)S~8AzGu92BpMn+nO7&2JzznVMcT~U$EI=b@%u4VzKCo z70dWFu*8rCLqAkViCHX+>hoK@`s%AQrq7^WU>5adR$agT8jlHIgO8mEYdWC>^6*H4 z*!;ajWdh_54tAU%9)Q1>CtA<5wSA~LQ#YU*FeU*)*ik|soM|!Ul7M3U&4}CV#<4(n z5r{j*xTO_JDX)D#DSUp)11V%N^79z|rdtZc3)V#{K1Sbc_zXTPVQvK1dwIT462KgaE;fH7EC3FOGXe%} zHd;^P*2J8>qRcDdFkw}wp_MBx6jx7QvYix~1bK9F-_cw74Qn^)GG(tzD7%fqW zQX3c=k(ysKaQNNHt3MvO@}#h)t!wbmo}-uJ({lVIp;5Xte~Ai_$IVyDxBH6~MC=j> zX5-{(@8;v_FQs#e-OhZPffOG^LI6RL! z9TA=bJnjTHq117`Ajt8Qf%$k?(QCL9_&<8P0Pl+y&z(DuUOeQFNkU30q=aJiXCI?48~C(34G{0f9_GDwL{{($fCDBd0H3 z9v&It1xT|Dw!#ilbl^l?GH?|Y9R-ThMddB;CnP4MXJ!?ZmS*SW=j7$F`x>pD7OG!B zfbcEJ$#SI%pUnOvXNL|R)yBost|dSwEi3Qvxf@-(hnhNj&foe3N4qLA`pC8WgOg__ z-ns}y=V0yKJ6_Y$Mjb)os7M^jSP%=FPQCT0uCY@Y7NLzzV%3pa6WhQ4-n%c`P;mDvga0^_JQK0z54h8bR$!n*B*Xl+bdMn+0nD(wuO z6hz&~h;XohEcoCcEfO__TVEhq2 zvuF{mcG`t+%zXpt*wB#W9oEEffrLvIN`}j#vxBm!e(-h&4^YO(gS#i=-ASD6?(63uJ(3Y!F6WJ zu`_WjlFCkOBSJc}gwXXVb%pF0E3lpU5&$2^1^@O8^8tChjvzd*UxByVvX|CWP}f<2 zOGugAoCV}E+bkmO`C@B#rXxc)9B@o5U_n}!zM#aTv}7MnKkGzd>0>r?SiZz zB!+F`{{SXomUS~zWTxm0;?19rjc~p2(PIgsuMtOB! zZA)BcQAk9be@K|KZ?L162wF~4Rif4fg(Ze+Qe>JGWpsw4XRxcU6m8ryAQW4Ry}N%@ zVh*u0$SgP~6%mPIWmH6bx-Pqdkgnz(2ieARskw_=ksf@R9|{1T-mx@d~Pv*Il!leL`H z(XokaPXIy}GFU{OuihHeEr>dVoP&}Z2+vJOkE2z+mbf+{Nlwtgcs}%Kw(7yzi5_5h zh{GGX2AV{Fiu6S$6%c2*HjL5bg_TEHxHtL5JtpuMW95g3JaIXok(i`Q$;f0RGc7Y`^w_zyj4Vx5GzluvaXL;$b!2o_ei41u!qOTich3{o z9}XWsQ&3eNmz=h9@2T+U1aYXGlr2_$xsiD7!D2GkoDyhOEN-FBu)4?ccMs{Iw zWm8OiN_~6p_Mx%nuA!r6KP;|j%E&3{-+z4c*qzbIJ9W+5Se)I|xvOKxKHQZZ+xMhp z6_ix96Jc6b+a3{<2&3LJele%8Dl4y&J*|1AH8suKiz@07e@d&HL2}+;N?c6PAVG_Gx3@UgI*|?+( z2`V+3yeBp%`r%jvAhcqA< z=EWLBY68|5zL?ww+69dIax&t;;m7fq;7J$AJgqecA?cU-Q{DrpaXARnWx|XZ`B4Ia zr@{uzA@;atP;0?!;h!+Da$nZg(0$GVW>Ppf`1M|#_7V#HvZYJ@{`cqL?G)Dl!dihc zZs2_$`862iRv`Rtq(I=G5sx8<&`aP5z6WUsf8g!F0>iF)WL_C=!3n@%4z_j+R?a!Q zGit?5lew)6JyQpt5ZHT8RdawcHo34aHoe%@U*h5`4pKw~$Re@C&?l8eXGJ6yvJ^=k znTm_X63=OX)YjSC(cRz0JIL857(1mzr40(zNR-4#szLAYxKwp)N@QXdCq-;ZUUpI4 z;d7r1Puz%4&2#Y)x%!Cxf|b}Z3G#LEqB`&a@gho-;M_IwRre@fsZxmq zBZUzw2^f$=xpxf?oxOMwM)%WSe^Gu;pD}}bm_BPZmtk>5RdrKKX;pP@VPRHYZe~sn zL>*@ix2(MUEHY#=GUF2ylhc?mjU|7Uox15++0n5v*?9%co!d!@IeYbP5+=WlEaCvt zbBb6bT~*&++uRLW4(vOTn3B=ex3{HtC!zh(M0;t|qT*6nknJB3?Ct4Cw+izD8w3!J z%Bvfcs_@wOr1Y$OU20}&b>ps)BOoyM#@pnt{Gw`pVhVY_m38@rrCbF%_W2c;X6F|{)X4{+Z5$gLN239w1-go0ZZNm>^6(Pc z;uaP-?;uyWG#CY)O7Q|eji`y#>hS#&XSVn4)1_tvi>01q{QCK0=n#t~*pad_v+3ed zzM(94~KcIrZS1yBhnqsG9E zp{X=^8E1U?)j5k7FJfKN%o#JVe4t~1W7sa%>#s+1QOIN{BnSwoNmvazJ`BiqM2|%B zoARVy5xo{uS+r6y1#^Y!c2{0q+>HC-O5i_)R;~_A@64{S zmzGln0hXf$dM|t)mBvOWkp%eXBI1`2l0)Fw#sC4>PFsOHhqO~V{q1jmqaZ@1g@yy{ zg33bQj)G(F1yNA)m?N~H*_~N4RkkgXqv+g3=0DT>@EYl z!|pNzXJ^i^%+Ag%%&Gl-@)Q^KwRCmwr+dHe`9J^XectD-XsF!x`AJ3ybmHrj9O6sfO=> zcXCbd@c7ii)#=5n#(lPQbk~@y(>K`A)=}TuUQk*#c6o-%`X;Q^vS==?H_-bjVIV;D zwHsO<7-;-hEhFSS<;(Z!Y6>UHCq5c0KiZ?s0rfw6o*wM)cdG5& zvu1@chFC-ON#SFz^^+Q2RNv?@p5*W$#)iEzPH8?zj=y*C=m}~J#_qKUcM=jA?KH8< zB$QHxB~DIFfB4bsU-;p#{Oy1JZ~ytrFMs|Qzt4+vVBdZVgp0-Lah+Im2e{2oOixeD z%$ip^IW=Q!1VLtcVaY#v`NlZ#CdN8@x@#KhOm?4|U!WU<`XB!IUua^w_waE~Z{L&W zFI!sMzVrRxxpn_p|M1wWuYB?Tt51IXM}ILkG5PwZzqWki#`Qb*{;w~;gu}J<%{>x; z^NMl|z$h+P+LC2dRoi&&*8Q@Is-cnKcNed&n8Ettr{DbkkN&48AAbI|pZl%b4_`L7 z_q2BOh|bg&K>qgqr?LpH-@5gShlA?>QS_Gq#khsQ1>>Z^~Qd;X@DR@3enN5?0oIf6#U zCfYhWMR*Bw0Pjj>AQwvTNSCpoCnxKjkGU9y83Ste2^i>ORXqLH_kML+RPp_X0^g>m zXP&=!+1b%CF)?AyMTIdgtAJg<<$HQ++UX%pNZk78UwjiHsqW#HP5>Uf`>U%jK79G` z(PK3J_3KZcK6!F~_1@g{lrcrxEq83)rmQ$UF#EDyV9dE5?Ct>U zeO>LH%?&2#5!k24hsFkbhx!C4w=B<1{_M|uet-4m+8oh%d^R#N4134+y#^a6lRrs= zE)tB64G(>1(?;rwP7!~aTT^2_&yQ*t&ZXltkHw{^P}sHi8TI065xd~{sUW_i*N~=x z@$TBYUlGmq<#G;m)iX$%3;B$n0#e^_3j|kO%S?llCn3B;()1*_0P^EmJ9i3+-$pp% z|9A5MtAhnsUIcMWoq~|X^B4#|sljA(gkK#kP-#+9B7>+0rMGnce;%i|)~&O(uxT<` z&x)*>1uSsfczHHzf)5aI^PeN}SMYZD3TL!TsuIE_=me>Ptg9%N@XX}&?6{CwwzO38JUf8I9x`vVVo}sDHspa{VN42fp#np{^ zq+WdfOLZ+2n2LqA?-cGlD8F1AGUP$boLKC`RFTE4Ndu_<;;+3sRe6ya*ImGrWZPT%wC?J zyLwyP-}QTs7p~u~Z)sN)liAv=S!i%XUVDCN8Ib{4Nfc3`Zouil>a_s%AjI^VrM({P(`EUkHU`xH)9V z!Mn%T1R1%(#Iz8Lf>%A_Q#AQ2Bt$|DL^gyG3Vd`5K@eBClV*tY>C; zVq$b+l0-8k%=hwCP(U3O=Q}zyI^5RLUf0-AR#i22dAfhdHz$7QU;c$mNIc&7!6!fK=T}x%?>~Ln+TJB$hg?53 zw=`*~xVkb1e#b7~zW;3L+FjF;2u0(H;&&das1A-yw6u0KHMPnawmT@Rs-B*^^634K zuH3kD<;LClD=U+;S4Jo2;QaE+T~qw@pQ715d^)+L7m;X7%PT^1gwONG0(|t_{tLBc zy%0IeZ;n5g78NsE*zWtJT)BbTb}2|x)XrduWPKbQ8mg+Q8X6jEYHYMFzzvrt8Anm} z>b2`n-+%stU;FK%fPBy9ppZ6cRCqd^&7CFA$fTn=P%xzQJ~X=kDDbHf|!m zbIF|1|MBjzn26BW$gpUgo~cQU;-vMK##%@|Jw7r!IVvA!e6VkHpjWkYY3B0v#ku9V zsjKtTqv(4}!}w6|=bwD=$A9|!V~ zN$2ErMKBMRH`7pGt8PigF$E;#LP(q~NluoYGCe{d8yN%FYSWZ+99R?hS~#DdoCD?H z-8FUi=PO-*e!g`&MF0n@iX`1KS}mL(A#Yr|2iAPuqr{wtHEV zc@D$&ZQHi$V^Xakt^D_|Kl#@B4IAy3gEam#r}ymH%hJi5fu}Ll1i7q7jxfpC_;_Z2 zDGwxUw_CTn#{vLCAmPTuaBOH$4NNnE6cYk5?DuJdnic~oCMK34(mJL6SS3ywH6bNE zEh{f3AqB!m#-K^84r_7hu zwr7{s=ax5R71x(F^twU#ipCyYtLeF=u}N7eS%v92CFGPKl{c%Xe{^=h=<43lww}>; z1FYM6tC~8JvkO~f?9Sh;Yw9#`ZGQP)aYbEPc42IC2H^#Oqw8f=jfG`3d285CieZIe zcdRhFy1F5|pj4*1nHpIIB`sb3W7A8$Lz6}@YsKvBA6&Q*$h>*Qr34mRas!k~t84X2 zwsrS+4U8zW4qu)z2L9H=_c@tgeD+P$y`i<8YHe(NT6V7Ax^eGuWnIJk@{RtX(IciT zojBoLwUd(M5D24TQt?beah1qMx}Z1ADFoO7FZm0+ubFL5*togy6;7?TK1%YPMq;Wv zy-w50um8rcfA-bSxn%^!_`G~>oK8Ui0S00e`>|vD4 zdPKjyF+*eHzPc~G*NWFSH00~R@Tf2=h}$#J-`(Ha(%vS?u&lCjWa6?P*-HHM&;Iy8rn3gQp){Te+*iN|vFebKOoF%eVT>Y>sEIK8MU$^z8g1 zyzNx`9Gkpy^~U=zKNFcdIzBZyy)e6Q)fhf6wMTzQHM92ZkMOkx;3Q8wSVq!4e7$$LX#F?{R2H+r_4Dzb<&Wn^5Vij{fqzg{_0&6m-_wm$>W8&nJbG6Qxju$ z_u^@|5LNs%C|NRyy0R24KwKPNom*zx4%v;{cw@G1-^!(R@Q|pPu-sfHR~{Kb;|#ja z$Or8`-glgeNb>rP8^woFD$br_GB_4`=9Ey>m<#8VW1@0XlPd~xyIX=GO3U*zR~Ke) zUR}C78d1$cZPKJ ztmx<%UpWw!%TRa1wUyT&iJ99w!*&Yip+i$OX>#etaju|OQf`F**a6T$L)JB8wqL@c_K?wrA)^^^D z!S{3Lusy4f3O>>vL=CKUq{^0oOKvC6o@boXiK(-mc~HP_L~N>oa}=vIZADe!|6Gc8@c z74^PZrJR?UR{)>ed-^Nu8o6iyH$mS0qOwZ5I%Yn-u*?ZLGC4E7xLnuVl2cH`=cx`N59ogJUa4XBy0JPe)L;*)2I}VF*ZJ7M-SM8@@z;5Zf_wdC@9dh-qqWKmOFs$ zJ9qO*S_^owjOF5$&jRoC+w?RK*41rn#Sm=Q{QhVE+u!`ZUw)~?rh5+8LLN45 z*-}zc%&;*qIts=+dwPv#Casv+)ZEry+tAoTkLd0txipdwSdcs0Ya1IBQcKIq$0zam zp{|~ul{@!nJ{E|gk`kp`h8&}jZs?qU^z{18ySMK>{NsP~x1 zE5A#8PRq#R#1~+uI>5APlJvyn%=qN=wHvoDPtWxa46_=7=-P(nHT8Q|QQKS()3-tN z)$6xz-+l1iAN-E689BOR6H|9qA3b^gYHR|$U%s|-$I{?oM*eZ>P+G>ur+Rw_)B-FA zj6Gh3U}bWheD$2%e6?~4%#GXk(RJ7k!yB4gAj1tU3TWTW}5_V%uZh9;|n zEkJ2mMOIc01Dw5pzoMq0F)KGOoYZc?j=CtWP+u<*0GJGqjMUWBcq0o6^1bKU$LL_T zOV?H`fR?fspdMyYk{>>L^x)w`(#P!F?8L^)h_SR3mm7kd|O%b-QT)(ROCNBCS!fYxo#?I4j3}Inz&OmRsBB{Pqfpk;? zJ9|+Bkct`r*ky$&DUvd5>$pd_$K7B%U^fATTvJt90o4@{N!f3l@Q~gbVeTrdvGxoyIok@zmn4O%MpOGq_9bI3Vp1i&^58kgWOkbIuyf#0xI5ke9F+p!? zZ1~Be)$e`x=RW!PmCjJd2_&sPuwA6szP)?c$yrp|+nSFYJxux_W@GQLorv_#rcH8p zwGQbpqE{ouI<{PbCr_U&*M?M9LOz0!t`ep}MPwo$xVg`q zkm0dOv1wUzD|f#CFaGjpf8!4Z(b)&j|LFhzriSZPt6TM}iXCH9Ps-99T8MsU=QCaByHnHHAtm0(q^^OS|aUVPrz(zyn_)fqYVx>XQ9JHMo$q%t`p2fQ=GBxU5H^l;vN)<-}sK)~0$;xcKL zJdkD8_4L~-x9$&&T`sJs!qV9SnUHlVrR4-`K~;T|XRB#!CDA0LWe{PQ;VWwE`DYA~ z;LFP|DV0>vH8@t+(jl|2p{1R(uDP|trtY9{(0AV@ZmV&Cbc~&}E;J0V3zm@#>5iKv z-c8U*T1FFevStgNzObnY3% zjydSS=<4Wr^6c65n=7vN#@5#C?7V}Aj|RNTKs4#By!Q5M@rf{pN09}+q@+aQPuL)* z;`3J@{pyeZ2mHCSt!>kmE%I6gL#=yfLuyL$^z<~Tu%z5vX4+NoUvF<8Dr#p(R572G zZBJ4PDX^)njha~?g-{Y%d4>4L9)z*4@9B$I0wZC&SA)s2YDxUx{O%8wSzmwtjYrR3 z{P4H`$NI*my81>#Cl++q<;=>-Yi@0a!w;W4zoO)M`~JtDe(~_h2Wq&E=jx4H4uiHoJG(G>dB&E( z%ef5>k69@MY0_=@TKj!#a_Z@eASYpI`3BWRcBR|^Yt6tQap}4}g$2TIO|StiT%DP} zGU{8NZD_Qrs;0cWa$s_;j;@PlMUQoxj*pM8 zeHN`tOIK=ZYe0QKi^Rb$M=n_V%6I51%~#`nSF_HZiua zxcI@#SJN}o%ga}ufAE~|(bt!+K79V{>BH5#&2=@2>WL(a3+GQBJKERLwtD+!LTn6y z_u>8339V0U%~fT^42M}n6*Zou#5WkC%T@CYmx!V~dl#s;N1zir74c6!7I-`SV4>0F zl!$hoJ|)aW(mOSe8pCFz1bO)Ak-*sz6Ajprf4#0MvtUgtbudxFH0{8=7cP=TI&OYe zy75sJMfo)f!+F__Rpn}?qXXSbvzKSrgqp|q?|%N3Prv%vYeiKOI#l=Tcz6VPJ?sLw z1Epa^o~$$mNbfF|>tPy2{m7wOU)KDYNqjPlk=Q#o%Q2;d$Z&Z9noGU&fwAZGX>T<( zhI*;tM22UG5p}0e19lYG6%F3s?6MCWKC+)s5+p+Grn=nTUbl|tXJ61Yuyymc zt$UFF{d*4|JF@q{J{}9T>@C~3f&WcgHvPm;{)Ehd;3$H?fm7FIWYR$HWwBg@ssZR0Z0 z6V1%l zO-W@DV-O}}i9{ypc-nfKg_hRFU?$N7+xpP(n3gN>OX~5om@~jt)0AC<_s%aYJ%0M) z@v{%_-hXWHllp>v#{43QXl3cjHJb?WIUv2aZ$S7Bf9A;eWufa`eFMI_53XkymN{XV z&voJE6%;C_SculsSFf+HHzX061o%p*1bmpk zyu7@)v~=&m1KB24fJ*_k2O0w# zMkvtE&B=Oa(`K@aB$++?_HGp{tYDcGFDSC2qLjhAp`lL7jjU@YtyKUwpcZc0x&<8B z2|_mPeFJ;V&h2Jh=3*Ox9}WvM*}53;XHNeto@m}E|z1dn=FRJAl9 zlH6(UyZ0S<)5)?6tRFnQbN4=Nyc8Q{RwhZWXkQ~zfw#fiMWW$sVSK>YWiqH%Y~HqI zA9v`1eR`4H4j$ZZ1Hyx|Zo@l)?Pli=v245d@7ca<2Qc?;TNLa;cI^(@3e>U*Hm*(B zj<^Y4ntv&Y^C%#wT$4BfQ3RI)+F};>UAA4EUI_WG>-*6zLgkat|ExHt$qt*wy@S=-Xm zeCzJrfBoM^>W<{(+!+{wyF)*r}Ckxkqx!m+X1-hsiPQ5JMc){Xpv0&)cu)$PU2HF0_BpZ)&7 z`qnT0>gwa?ChlQQdHDrgG*fd6l$n*=tF^UtfX>WMo5!>?Q^`_5D?*O*lYyj=&CM^0 zBWqvd;gq6@%hQw7v+#NO`pWfNcRdx0IM3y+yZ6aHS9u~IJyTb(xbzJSUcYf`YHH4= z#cgFJrA zF~WK5yzHmUC2VYNRfuVHY}2!`iAkqJ!g%p9FU5ohd%K@LdUXEG>HLiJE3?xD*%{@<1@L@gbT~gdi+@I2kX{~f zi#8Jc>GLzZSUvbQO-3yh7GcG(N*fM4Hb3Fp>)(O-I54C#tP>u30I-eM0L`J7o<

    uOJy7sVv#=~Vx2UnZ{}2D;KYsDU-@1DD@xvFdH3!9|xDHSmV4F(_~EpxjrR3&jD07QiMiKJ}oS-5(}A>nXTh# zbb7%Urfwaq`kQ7J#r`TZPR=b+h7SaB0zr(73<2vVRQC?M6Re?--C7y^PcUmqeN)N9 zTI&)9`IcI04EdqFyc`r0@ZdRD0$tYm<~}2qMC)&S@pXhm-}b=3U{O(#vZ>!Cw6U<$ z0e=6_|MLI)^2?7u{YWux`T8xqdegQYJNNGQ>Mj601POb4-8<_xZ1kew#duA7Mq>Qj z++0t07n-qI`E}QBbbaggov7o>mmm4()@|Dq`h%@Hfss(NVWYB|=p{!cfK*K=;!?D( zWl2>R2%5ZTkr#!A^T`a4Pb#_c$r#|FCMX;p)27Lw%6KUL{8xYfkD67r+jn;Nco=w} zo|$|3$=7bLK7!8xT$}-7Y%OT(>~T}IM5gIB__-FLo44-F%`LPvHFtEV1N5n!LTR}- zIREA8+2!juA3l3Ax3~n`4QwT?$l!JJ42XRnde68y!=2It?TP$7Js^L0aAeFeQ~oU$ z{e$Y~^CW%rePm)Vt zX$kgX5s}&1Ipieklx2~2VRW@sTW!UEig%z2EI0?G`@$Bs@b2!e>gww8iOKHno>IBZ z#YJ`EmpeN>Nnihf7AO0l8#iw~e){bB2OqBS_EjSM>rXzJ7#pFnEY8nLLL43J|Kf`; z7H4MYSfCbJl$*J7?MiP~M`vqGZf1tu#o@tz9jQ{@sJog&$47^2s>=;+;Bw&* zIez?jW=1-k1ctcrTkF?v*}4^E!4UAi0XIH+L@C(EPR1!MDFWuYf#5uqMgpTYeEK}1 z4%^>7aoloX)u7DKXMp*kqlY{ax{~y5K;N`V`9%`KalKJGk1kPxV@N|Lk1$&X^~d*4 zP-A>mCq%y;5;jVKaWR=Q<|XK$t~S+M_V0~bHy=HENU`$NDHB~|Y%XZs7i7*vSyfHL zp*{0CT#$$!6KiTP+j%ln_W=>f(Rf({7(1>-ZeoMM$ABgMg(jot5KBkZ?af{9ZfkAn zC+Y8O5`sbWmQcgF5e^!>(IYVTV2>$-Q=yWc2ETj&uKPy@ih>9nAt?dO;z z$x2Wij}IL1(a~pVGDbT{+$LGC2^vxpNz;NRORDN28o@ajLKmM95tk4an^@h@J~4ZJ zdimBhC9a~KK55N$p90mB(=r8`g+&;4 znr@{q+YYK@@74|?JcD~-S#@(q&&cE)Pa}{Ixp;~EURqU~rpvabF;4Nd+{C=jh3ogY z+5MTMnA+x6(>jEVVd-hPfriuEr6SzgE7b4$UC3{CLRa6QZ2JSp1a*f@ogrblc| zW(Vf(I3>K%ZwS2mdIx;pdg>GLpUcO`5g!+?*&MdZset70+%-j72f~aNw(WXAM8>%U z{FBGYT)hKF4!gu`254zYcz^fhmoGnlX`W6`PdB%Qes+7qja#>y=x13r3sEUEDJ9t% ziclaG&XLVqw{Eih@7O_#p{{S)vUStuEpeAF1$go5HM;J*61H7FMnLi*0CrSoYG#J6 zXLzLBX?wk}(6jc*yk4OfEH}1(&YaZDOf%-XdVASp)KZmJbz1{olQ`5v#rDuc9>4z* zV@Ho~+*$qhFa0{fL}?eEkBwheYil1K9ee-7*Y_Vkn>P+hd(wxmpMLmC(Bj<(kGXJA?(4T!m#^POIaA4aC;6S4^w8<0E^AjUD~?)G&qc2o*lhB6X-VmgKkR0 zMTT9KRlKQ*ujw|~dP~d8E0nfza`6$thnSL5Szg{u3#hAueqhAc;^N}T$;-`}ee#1o zR*%<@l#-TKCk?E(huCFl@K#v4Snr!!MAk_m2;LUn((axfOCbU0!&e`F^4V9qyE^;& zdS86_;mFW{=#{*zjE0)3+c$4~^2w*cH0R^TAFtk{x8Jz3@bbm;Ygd+(O-(O_ZGc@O zqMD&tG%|S(kyH~8T?%TL_vNYS&z~lh%no>(qO;{jPg%H0b`+FR8>o5O1bN1 zg(;7mJaZ~3Mb)4ZbZ?Z*xNGO$1H2+fF<1{)QFXJA6b*@RYVC2R>CsVj4O9z67_dj6 zKWEsenR+fp|O+%EO+NlzlF&M@VIsJ z4&T_dbLXC2#Esqi_IRExJGSlIvxh<0LPdDtZ)fsU{j}*&Xu#g}4Z(KASAw7>;y3O` zG>Il-Zw}b;H%N}LQ(jRxGU?IdCjz&dWUiB^{Mc1y5u_9mQq(;iFkB|5I8LJjWTIEyW$dbZqaPIu&dvL_tPG8lYz-rpbib68e~p^smG%Kb=|(RC6*yAvLA@ZiP`8=b3AGp8UQs)uRr zGlH8O9(PH*bP&lD7ZVW`X*0{kE3B%jwzjgSR`NKFrM$9I_7Ru63^oo%yQc{{&8@9z85zFMw2Ao}DU!rWs0k}0)zRm8sKLuCC0?E)EQg(Crmu z(e+L~^&YM40dJq4=a88iCCFT!9-o*}-X+dVvPg-%1oD$JZ9ST22Kt9b*XaGQWX#6q z_KNDdlG4hG%Akr0rERICC3}h<=D=RxkTe|nnvtjQlBN`HhhK6;(8aO^{BnlmEZgzfQ9%H|M|30z3 zx4V;auDi21FL!!;w6C+hqPR%PF8RHkh&?j+>c#Wh*ROu@`B!t(Qt~p>cw?ID>wJa^ zsi}!^+WCVPrp7wtSqa|$PMr@ehZrh=;D~}PoIp4 z43l_+`{MKV4jyKE%dG^5eK3`k70D^dE>_1wpW)RH`u+8lB_*@LAih)%NDjvFB?Za= z+k;{BRQGrFsJNn)iX{emz~N&jTyf$)tVgIdOkTffqiqWeN1S{OmYy8}6^Gl7*&Qul z?`+&)or2f?Noj%G0vQi(9_c%H`^7M`*i`rIA*e@` zJYT>JKdrp+_ecf&w0_`@4@PW^uL^;%ojuE#wm1NqnM;9@8yg50)paSkfVyG&+MTia z<&oK?qN>`^*rf0{-H$~%6*c;p1|}D$m+wR-$;7NQ@j?J&VrE`qc0ox^qd@hN>c-Zd zA&NGmOH6#Kp?#^DImG-B3A9#`yh3i4u;|zjCDN3Pk%`%~tlYSyRQ-mJUwqcm(Nk61 zR8!w#n{H7sz*JE+Ju4r!NAe3NCWnMyJQsFRQ8hQe*r+(GhJkllUsPH(x>^@%o7$Q? zyQi0yC+8Lnz%w!xdoQl49h#hP=^551RZ-u}%wci|^NeVM3W?kUqcc}-xzpIuJ)_%Y za<-|nx4fnyEj!Q1@c5Ke&=VuGH$G7)r|5fO0!l4DZWLV&bp1@KSlv)&EbUpaT z+L2P6%TbN(au})|t;Katog+)Z56NDWbMXI2# zqCfkaza#aEEdU+-Ih(d``?Vkav)TDMmsV3tTWv#ALP{#D_uSR%yyeEEs%Fm3FMRcD z-}vHZzV!<~_|>2O#?O4?+dogzmo9>pDb}0IV_Sf+lM3Hjw_a|B*?Dyh4J3XhV42hj zI49jlL&(kfvoF;Uw# z1G(@POV#M;*v&il1WvyH^7ZqVpMLtaZ?4?A%SL$Z=1rkDY>@nrypH|-LxHl<&}fQO zvv;Sh9e7fKhDJsOnsIoNWk5Rhrn{$47!Df@NEd*^+0G%Oj?m4F*dKgH4@7-)d$GLh z;xgr6@@#rWhSpSn4w+6VVsvB_Z?_R6v#i{{TU1=) z(&3LC+Fz2FHG6rCAkWI;B%~#y!GsPz_H~;!IxEx&RrwDdJ`6?<9XaHi$;k{MAnZ%kVhLo1)|tOTXLv<%)kEE={K zRn|l&r=JSDSXf?3z9x@M%wHX!U(PG9BDQ4dQ7x;9Nzau4+}P18j!N=ORB{G2UhAkw z$E0MYLTEB#T#QXjgTpBq*@3`vDPEyAxNi=1e3Be>NiPZqai(!Yj}a=gDJU!bXrYE|42)Be|3{Q;r`yy%k}Nu zGRDqb2xnkDaQIlVOwQDlG(G0=3CBrtAs4vZ4;?!pB68nBDPrDr(RsQ_84whOf|D_* zZJ$1^oT{?w%0;>Llob~h9Xxm_RJ4A0n094d(R}WGJw0Mi*#azxsFo@NfUqKWPs2-?zW@&0|N85ccfW^-!qq+gZN#_Bs^q*$1yk(RQgipmCZw zv?fKYbgKJ`TS~XuqVY`MkB*HCkBXKw2ivP_>kw}~ma@u>z=MnE2)0cHvW|M#zregy|QfJ z2<_+s>|Txx^5)fjC$P|f@t)p}HQfdj8&Bl`YMDX^GUZivbM?)w@`Z8>in4MG3|n+8 z79gs7YFegBsE?JVQBzZW``&&3)VD}~(88%|psebp>+0)ouRidGI09bN@ks{D5$m8` z()7%%IYOGuIyyS!iOZ78$;oaBw4GY;RaI4~%M#b-S2t+MHVRPJgy>SmH*ep@(MPc4KcrBx=~CLs?8jscYl=R6n1`Qo&csN`QS`xV zVI!`N=lhzQmmL`up)8xg(3lX1G?e3!tg0oIxZyt1&d^STarv8+ zK#k>FK;zY4Q7Jt_J9h1&pFr(x+XFmb(`0r6a0m~v0~-v}%eJlPH@M!gaf9dp-2UL9 zgRZr}9yI@_UaXboX8D|yA;*(0M>l!+`OKTgt`bVHEv^QoihN6;N zC=;M#a8f>4OB)`)18!T`eR^>$t=(@RHB6@ucRs?uQ)TmBrC5NUC)4ccc|l1zm}k6^9!ApFvXoz3YUKC%$QZz0 zRo_a%;heE@kz5S*;GY5YRQJk;mV%1vyt2w#bKqogSJ&F}D4L?-F6fMcf~3q$Bd~4F zU=4#r=*1}23QHsrp1`*`NLELQ51Ok-U{R@Jbb<9cAheZ9b>b_jsjk-MZ&xLzRXeqi z0`N{9HLlA}R-+O=L%7gtAy3TqOZCTAQ1i~8|NFle0+vg;ttfX*-MM`eR*#I1|KJ-x^R3_ilRy94|NP%Pcy;wIC3E-gUEBy7 zD0q>bnpl<&`CtC^-yR+r-LrrH8&iQKD0P{OmtyI4!Q{SpGX)a0Ul9;MJ<1BGg>(?2 zAv1ZwqzQDL_Q5LSN26L+2Z!8eeeCY(&CboWD$&fdva=arP*dWw?oLXxeo_iN*}1m9 zzOlI_D<{W%kb=SjHcqQXKta+nO$Eyp?;jZ^|C;Jy8AZ5@_? zz{8WCQCr_YS!(U-sj6$xmsD9xDy*-nZ?>DOsFthQn3ji zr}ngt_IB{1GGcvMT)G0xN5{r>^73f%X=3k0HlKB0Kg@4MEDd8aH=?0Ij94#qeSBh! zd#VPxjfyn4h>u-5`e1L@1J$luE3aRDSX)uHW7}44_nPvOjHLJ{_wTOWy3tTo&PL8U zetC2t{$gl)0zEOJxwr_)va+E)W(klPld(IB#yYjVjs<_E1$DRzf!=+@jzCRsjI$If-kq8cMU` zsDz@{H2jk%PiURvBMNQ|>gUgqIM&QId!aoElTd@PUs%I=n;?qi|45P+;$B zD0b}Gi?MSo^ETsUL?QxrK-86HLnBOS*t!#kIwIc7R$U3~(7{82LJr>7%AWyU-?@X# z0*c*$JTr`+QdeO18=1vpyfaw4f3my#>KWX@+llajeR$}3 zl~jc{KoOKw)dOV6goUa2>5eD4gLhR`rB(G+8(w{>>dj`ck>729Bi0Zyi-X)0-que3 z5S{zYU47y4NiiuI`IU9WwM~37{gd+}bJu&u=X*zIk~4FUo;*ipVJ6JTFOE&g(#M)t zRAH7!JWEV^Hunk}OiE_15Ci6U*J%VN^F<2<%Vm0gahd7J;JveV2%dv?5tMD6y-HdO zS8r3`Y4Ul6#q=9&Uj{-}ZXp{F_O44Eh(|=38%qO^J0BJ)Fu_;~0otKLa>Bw?Sq&_% zZ|(r^X^b=lC4fCUzmO=DQ&c9|oOZ+sBW|FfwUdpfsl8jl*CK_z=a*FicJh0Aeo;N{ zH!{w?Gchr90k_G@$(HP@`eT9C2NE=|hK63A zTllr#`}6YZ8ZDpp>8`SW`R9NBy&wL7xG_4Z5LrPcP^XlB=XQE!lGq6%Oyt0*_B!*Aj3oHO|a1>hQJlUZOp&=y}- zT1M6=M8z{QL_V?&%6rsm+ARd0TgIZ`B}9~Hel*dzxVS{FTV_r$wHpXLU4<;u-qyZWbf_2{>~C*xtFNy&0CugY ziljqw_}LHCp*>zrP;xvh`mnvff56VdT405;0I8y`1w{u!qHv?K>ZYm&EpNq^I;jYn zjs-!wvMeGuR&J)J2OU6~fl&8>L2t<*s|-sF{XBTlzP`DIMFvp`GZq&w-O$tk;Vmqn zvc92?*k4jy1kbNszp6_7?O*ur-0ZX|D%IsB0t6CcqxB-SHPo3aI?~@`wo!8YrI#N( zE6mBPttff&;4VX9by?A9fA>Iln@11zw3QX)i299<483sjL|s`?*ts(Y_U*N~2W#+v zP@o7%qlV8!2JC_>(us#*BJ+s)n&UB=JO)X)1^_SRth&0Qsj0zq52V_84zf0H-;Rg7 z!w*R|hr@=3Q6=I%{n#$p3TCFoLgd8bOh1AvFjWJMnhfL@ChTFs%>uD`Gf3xl z!0UovllXmyS0Zv-WB=d~Y zDoEFc6J>9IDV9~}BH5eKlfAV~UQf5I}WmaJ+6T2`0eig=*^xVR*n1r=lnzTy^fm`0Xq7X?VN5iNn zW(A;Kl9ZKiKcbjx zQ$WN~XQj^z$>o}-%$W5NV0$hDkCvy>iTP!_^R2t~?KyljB|BhdTr0cx98ga;YF5EQ zap=I&cS9l~i8dA0)nu0wXV2_8AY^gBZVs0TaOSC!BS9Ratnv$xDuqe#DC)dmW8h&3 zIUf?~1Br}K>xq+nU0TeAh_PEJJVV6A$l-}enoLG^PF!N500HvyZ~yM^+QoPE^-eD? zUb%I*zO^l{q*M?wY=89p#q7c&wf2**eD(7$zH#UFZR<#Iu58`L123hHS=VMHKfiEv zbmH}=Ux2$kd-fhbdK8}z8qzH$VWCJ4;|lvtG}?42M$$LgpE2?r))F4(I+Cyl-tBn- zJ3Kd&5>cm|YXBwnEAqnXV4qS~r!E>38wbpZDqMmPK3xeiHxHg`M5W$P?AhA$@(W1K zntC`lyhWBmck|GO_$1XUzphq0J~1)Bu<+#l=ZdNiA3eGM;0flhHu`1c-9pf+MW~P}LU0zg>DRN}jj;D`S7iTXw*H!BYy0db%x1$w@Z>%nly%<(sSvuIG z#kVOYA}l&QlmefY5WAn@WZQNtxXx*jCWHlAu^v*I40+s6Klpk+g!kjfu_G+vEHu(} z?J211jO#$VO1N-YvE@3z_Wk=X*dUl_=MF%v5~>+z|H1umm@tletDGLN03}OYlsYT& zI%xS3K@U+$Knkhqt%o_^j~|7`O8L-@r}5CCgP1)1-yzC=mtzUkgv8+I$tg)X!cr7{ zLNDn4^IKLQyMsvEkBD#!7RHW>TSvSi+HZ|8rXGyf=!){43+I^%+_;;h{m_mW3qwNA zK}*=KP)Uk$jZju0IYW;zJ3ovHw#Kic<$hyPESOL|1hX= zzb7B>uo}*bXQAKNW6P%)WyUtJq!3l=s)4joFLvv$$S0`!R2WqjFVPHG;#V>sS zmw)uTbdT9ZsaX$HR~<}ycMoICmD_ihZ{O=s_-k&NnqLyV_~6l#p}|2h1p>C6r0X^~ z7|dZ0D;NEsxY)#pcCPQ?;W2i;{f7=aj}=v|LEM~NAI=j6L5pWvM!Jid)KFF~G`PK| zueY(eQE1kc27Q8HnHq?R82mqgT9yJ?8?fN&)O9Tq+%l*yLkq07C@94PRi49BXHLU> zYPm8f!JPAu1}Hp@^X7Le%l9yAx!tGO2k}d9lo#NyJt*fcg0-R_M5X-+4 zjf!hJ6~l4n4Ck9N+3DlKeDK4pCkkr2;p6K8o^uriy1k!L+umUNN#zNV zHTM3t6KtFucRV}?4=Jaj>p?G7Xeg83IfY&`RrOV!I)k-SQuW$kg8)j6jKs=bNJYPt zn$_MnVmwD~Sq|5dGDfUs@@f ziwMKME~iTc(~k9Am||%nLFPh4Brm6EwqF-g(;3$}E??Ap6;{ie-3cI{?mck_`PwV`{@ zC8(;Goz?c436s`%_X< z##oKnGIEFt_n(X-%Zg2Dl?yRt?LZwrI_^z3{?VvS(F+0iN^a*AKkmR zx2%E@r5L<3HmExXnf4bidViAQ;x%*eKxSrSC{>J)kKe|CS05}cE;YWf)?{R4vv+z! z8XAc+URw-;tpu_T%=`NX-ekF07w~i#j*Y|ipq@)sXlMZMm0lV{%?bW16-&A19WC`9 z!FGj#@&MpTOpeW7BTp4IzreY{Gh@`a%B-a-j7K^;N-~(XNJkDYpe0dP@suml3%Txm zy?SE>QCD%6-ewW;UiA+S8mKxwKksneDDc9>s!X6OE2YtyqoEOXWMnWpDpDF;R%WUI zTfIoeTU;I+Ir;8!W91Y^-6nQm#x(-R}c8+n-Uu1y;^ zzpGp@TLINXE`;O+07(%%`z zFvHkxJQd!q2^6Krlyoh@a0jn2!7>`e$ZQMxPu=W>{Arw!?@(muEr;LJpWy&!RO!DBN6#?PuP5_f1iQFvX-w-G%dXAv=0vfa^Bo{CVX( ziw-khSa{I23fiN2#m}9mL)(30yg-aCvZ$;&Av5oyiP#BgG0B-VE!`;vr7iuVpM3XM z+K0wR#a-Ngc>m?6Ej>f|<+XX`wW)cWM#kF})7V*S7}^owjNG7nnU_GM-1Yt_Qs;hpYpcC(6j1^(+7H>sJ)n=HQ z?uD#AYO=U}NCbCf1ls>5OU>>k=w*2Cd8ohlc1F(3sw${O7=U7TY>I8U#kRcaUPV`w-G0 zwlXVyiTAIux!DzE7eLvnsjY>Z5S|Y2F(A%kED#918^|?x%mxQanm8zR2gbvESz9wR z5)Kx{$T$)?04mNdaM%uDHO6X><(Wr`NgwKxL~PL9Vi{}iaJ0Jktw(6QML|~-#HP>K zG3ZXuNY_V3_sBx$@^W)6E>L~#IkOc$G#s%$X6NK+EcG8|E(xa!%QuC#zQKW|rlgp# zY{IEBX1x85B-tnq@Vt2=tE@qdjaH59?40S@IkM8=$cQ5(#Ou|qZ*263+tfI1glbyj zK)zFg@x!@c(kNwHWssxKFx8&!4kPNSg6T!&XHT7U)%Ucw+`M*$|Je+q>50+YjMR9} z^Q^Rtl!VUKM&T{M95P^ldv@)l*QX`My|wObCOs#HC0#vFFoL=&OF6cwUI|grY*ZXT zL0T&wcnng)1d9n1%VG*DC4JDbFU7?a6y#ycD5zE?!ie39-+g<-`u9$qXlRg_5u_}_ z*mLKNCp!b!LA2^BwHzReKXwU#ZbjQ;Yk`ySIfx5bL*@keGiym}N~L})NWhA|SW#If zTSlb`P}3N_oD0X(dbr@6H3IyW~wO_w+OEA@JEn$W_6YzGyVyC=C2iJ;I2fRzx5qlh4584X2 zhTfpwjd2LVqv!}Y-G;{EpMJ{y;vG{t#n|z7x;nYWFS<`^_mzLrKdlRBe4w}g#7~%1 zXiH+j@pmbfu|NP2h8f3T^CCOmGVL?sgp4ykB{tUIsJSUTT<=Z-MAFzu7m;SAa=@<0 z)NS@$CNE-bV{}qFsLw8~Ov)|Fsj6FCeKvdJUi;vrIj2R{Ek#w0yfM^i6;)!pc2o^S zL~@o#lsgbZQqoKyP>(om6iCEH@E#(aCnk>L#jT~iEBqpB9kC>*TyIEa_1xk$zZex8 zf9$<8rDaut6pu+JaOJ`8T(!{zmdosd{K8Vbv{aY8{2~Uq?3{e_pc$3|6LxZ{8Zj}P z!o(g#caj4`w0Uz3Z+>JwId50V(-0#^BOaI^K5>#|DAdeZ&Z1x(-szwN?bOMGM-Ok> zx%1GmBL|Ni*|vAj&VBoK@7pgsLkgrdQ3!Z_b2CPGW#wjRMfrC5)fX;URsb#F3Xjy~ zWb(LdieO9SgTRnoR#;O~VghF#O(xfNBqtj~Yi?=;D^59+FH|AnWO+rU3lQ+yUulHZGc*SYHz5K1ff;C z)b7LyqZAwDaWyrUS5_(A65uTXeo;G*N7{qg7O4ve3S%r;x^i`9c1|Zg47WcjEGZ?n zkfPJm(@SjF=s6V?R-(x%F~4J@W25XbsJn_P48}1DO19m zn&qFD_L4cO6Ga`fcNT!7$p4fUpFj8OlX_(7@JmZePoF-K0`1yAe(Z?IsgZ%+)!Qrm-5pbtqZ6ZpKp-YEOuaQH zJw*oiac=XoXU+SRA`9nhDoWe|GQ8zzhFn6FSQXW7Q4yaEj(8*0E><2$t{8A#TvUKy zQ?0S(gGZ0pKcX4-l^$t1^Pa$VzDK$`EcJ`zclAV~y>hVAo(LNB83jR(F1v`xs7PA? zY3f!htUCnBIdj@iPq59LI?4O3b-<~vswj7SZBTsRcw}_su2jNcUa)=eiMyet)O$LQ zJufND$A`4raagF565=sxC0&Y(%7t~`p3ANP%ko?5SymjMtWgyXFFrBRMXJwJtG*6F z`C#}t_O4jwvLRxUGHqk1*#z!giVMe%YE*OyZ{E7iUk%mu#_rwAU$zfK@7}!&CR^Zw z&M#YL@V$A<4%p5`vwNoo+YOrnbK}0fyE$sWxb-y9Vb(@9vAO$LecipA-fjihs-jAh zf$gW>J?_0_C<5?Y5L}SK-apU-g6%ffwUPnt9lR4T{6+GInP);c-qp!sm9=rDFwyh$!V?qqm|9wTqAQgpH?=t$0=^EjVooX zaU;uQ=NDz=;5_{0>W zZOoshV;7f}Q_S}tdH3}BuoGG|l`VtVfh^@wf=p6sW?BaM-7zO!v@eLhR8-8rn#8R~ z7Y&TZ6d}F;fu*0+6AYOGeY&-5Bancg;C(LS_{m@{39(2m;DDvklB_Y~yjj3Ozp0&< zkKxz}2Y%Y`ojiN`pq>kF=CNaV_2Fa3SYbGNHEHVK1nlH!T{%jMOoPNOod$5+Pz|qa zpJ&1K(fBM-abFcuYpbi0=t)V5;9bIYUvD>3DVbF$hzSbkA3MXW6>KmOcT-t~jE8^Cih}N3CrwFTsA)Aj;A8IPtP!z%!5h_hUk4)uKzse8ix0c z4F)FIe@T1G)Lvv+qRvHL*{O+Z%ZvB!-5MI`$w*F2ONX?Uxe)M-^N_O|VjFZGZ@HJCeh?^?Q|a>; zqar}1f1>n|kQq`7DpAE}0`MK@wjDdDLZ7}t|GZl)TQL3i;9UVD9As1{v2auQfdnEk?9K=qo~7n{G90#Czleo?*L9t zX4$uU@BVi-Z2|APR5ongc2c-yXedZ0lw1C+AZ#w`&LDc{&Y(#NT?gz^%e>M0OO;L6 zgxetFk*5)E4?I0+jKv4h4Co|2{Eh_nJ-!`8+mS@91aKf2#3a|}!$*?UO8$H5~4 zFG+I*2*N4C9al6Y#-(hu zrHv}?VFhp+({C@F54;4nv<@>dG4AHg8y~*>5cveBN+jOBIujxa3N3oprlaIUB<=XS zd)ET%Fbzc(K3Hd}G7!ct-mt#D(OE*>L)UHPs6%RejO(7Qv8k=Lt~ocqC{Fi5R1Cua zKY*PbvE}mg)YSB}78^HQos@yM4-XHqVIyNH@V~cLV!U#y0ZJ5jV6Fno^#STN2$4$E zd}Z(Qr@(O1jn18*E?FWYzXo;3z=<9}mcSh-6{DlU9-*ymXlQuAw8OE9NtwDM!8h@6 zb;+O~iRM2vgzcA=SE2#>GprJ}Z>H>NJ0i9lC&w(HJL5rV`s<43u^Y)zZ@F#Dup_!CHBm zh~z!T)!W*d3k&mxM+UX0O-@abqQ=I@YO5<5-J>GHXdzYQB@<)A=AfD_E!wfOy}7g~ z-yR<=^rv>Wx8l48QiFFsjT5|%bl^>!QWN7dQXE%ot`dq|AV zPg|Zs@0gSc;=l&g}!&ab$J>gP|M zK4;ee=~YJXcEGK0teaHhyzL?tMH$rEjkM$20lc3*=X14Jw6!5h1IaydJMr`r$9YQj zA3C^CdZ+0rhYtF_skbyokGING)dko|?D0I}I4>m#uC%h8^>G9u$?;>(1UD8e8~imJ zWD;y=8?e_li9X0UB`}7Cs&JhTu~MIL_S%zjo#{SWn4h!#L?)pz&a8*Xd+4lH$+eV) zF+s5u#Kl>!Rag!kaq%8e)x{Xab1`tE^!#sja83p*oLzF@f{oRq;MC8_$RsjkNU((e z!DS&pKFlz+ToQ-=!Pd6_pQihOvirQQLvK>-C`9iAU{D4#17I)>(|hl|_uhL)?*svm z6iG>JY9u96w7NvuR%FW-ZMnp8lVdx}jvXgjetCIqJ+EcwWxbWW=>5Js33N5QbLW=- z{g-|A*=L{g^-oPtFR!dpIgsbsxmh$!Dv_6;M?E$mMZ%(H3eO{LvuVBkeU;T!h&lwe zTm@{`d5W<^Nb*Z_Ya4i19MSg#iYZY@HFGoz;Vxt_6nQRHM$d0;u-{iX_jvwm>Kg`zMq#@euC^n+ z#&TeEozzoST9Sgdr#o&bBwy4QxDnHah6Wuv_W@dKYpas37S)N#@tN7_k}!9%+1LD>Z>XbA38AD%NO6?+tbNQGd(qaX=A0U zy~SuZ6uqmxxvZ$5y`@QC#l_?V%Vne`YZ|-&*y%Il!vob7CCWzx7T^hsBE}NaL@Ca3 zVQk|mGY=K7(y{aR#2&j{xn(2vimWCxaUZ z2HTC^AiS5Cm!Z(xckjYdh%FSGP`HnY@m8=si2Ixj6#Q`oo>+Mo*{DaK5=TjvhZQxY$TL%G?5T zET!)UDdCpP^N-=}Ea^U2nmwW+%gst9xILWTw}0=hT|1+7ck^1ygd-v=%Jot1Vn9(AI1U%&6$Bv?WLJYJADK^!PlZKzw1$pvR zm|7TYGiO}>?#Wrw9gNJ(Fqt+sp1jS3$Pmu)qBd&U@8YF9ro^D`P2K%v4b4-lmwU!$ z7O&lzT-m5=vw&S&p~Z|!tElZ(J~BOkcOBnWl=KE#dq}}2&cqQ+peu$6ilJ*j;Pebe z3W@FT$oRnEh{i)uA9b9SCb71@iSTYTdv0M-oWf|P7I^lUEaE&^rrd|0Vf3OkM-YOr zL?9UFVW5YEep@+6egPEsb^J-pg8VQXBSqbzIqIc!=x2;_DI*chEha`2oe>-4pQz|) z%6QNsEwCb19@Tkqj=-XdO1e21b)0ASFn#6ZN$L%8o+jfIGMGsIuJzt9mNch+hMGc| z`I<;9@(?1vY${lo{B}y+2Wdy(J!0*c+S)2r#G2|#=Y#o;kyP$kL7ZoRON+8LK0am+ z&XO zcuk!0&0%{n07*O4k7m6lh)(g2>hIx0$P>TG^6 zrJ&+;{ORebp@9Kw$z8j8ZDW1o`nBt?y!zVB+qbS9(gluYe8pj-Cg3CcqxBc>XKPNektozH8s)|QLCbGds%0}UdSI}rxLSSbL_N_iS- z7X`>KvNW6%C`nuqV4tO*2yWvrv<^(zHYgd zta=%=%p*~F8hB@wah=mI5qKKAPoZqv0P)CI!_Q5>gt&0q=mo&b5oGUyeI(7}+()FC zZ9BrSM+uI?Ye;jV4hLy{t2$m7Rv-V~b#`7y{^XcjInYxCuDhuAVRMa$o7MFWHf&DQ6oc7|P>!~$1c=Efbk%u%rZfnf-bnX9>)1Za{8D+^#p)Q_J& z<5a`0EAXqLVsHr_T#p8XD3mCe0&_sE-xkOQS{@r8(&uCa7vq)_!V{8|XS0PB6Zjp< zV4)EZl!#I6R@5kH;DH*epbot@L*Ks5;R3~nUhcl+trde9!rW!T3g$_C0&`M z%t^x~>0(SsU`sngR^@!-Iayp@=08zZfZ^IF*|a-5+er_}GOekt zkeoil0c_=#^_tfKxZM_)8*4Hjo-`=XYcT!Rc#5nYN-vi*5y5lmo5UEybv31SbtYXPWr{Q#RX+k%ThNt)bw_>q3dLs{d@PC=$@C8+0;-2Kk;y+UH>T{(mkY> zh}oj(q+obOS8EQhO#f)Rg4EmcbBwP*mT2e!M(dcYKXG9L!RaRLKyc?5VDDePE9Rdz>gAHb^T z`jzrS{Pzy7nve*bv4XJv&s|=nS;?zVbce6L-XYEmktH@p1`*tk=@~8=X`S)RFaf&* z6pW5xX{89Z(_x^n>0oBaoC;!XnAvU$*pA)1r2w#(17$tx1BjX@i91YNnp=Vl|!knTY&uw=1AV-ozEW)vvG}fv3rw=aY$w zBD#Z)O}g&VR!GIrAUtviC_DjmJWZE9qmw2KoKc=85b&g-ErEQ7#h8#};}$cB+s3nS zs+ZR_XB1T!IAAuqA&~uJlcpzm5<|PGEY{$0Ay_R#W0A=%*_e`*;)=tFJZl_hu#`s_ zGQ8!nw38Gp^Z@}!my*?O)K87#k^G`Vo9k>6V4=51B*^q+)Q;oDlWmoYOXH!EoayD7 z=)d-@?-~53`vj0u%rLXOfNWy8MGW#;QZhn=2OQYIaK#k zEtU2z=3)M>cWOm(d1-2fcRNQvR}K*TL@^6+8%k+r6zh(@0MSRIezZ=FV@J2rG5@-eA)Rb_h1n%Ixh%zRU9$Q&n%DcXA-#*<-|N1}t+=bJ{oY&nY$)p2g z`Oj|OP8G-VWuvdY{#os%5_vYc68?bd>Y|DY!HnRDno27y(?LjAlHa3RZ_v>8Z7vpN z(500X-^DZmUqX(e2M@R#;xD|3eL`MXJ0e4dnj3WS6Y5XChV`ip+Bgi zBJgR>o`wc7$X!gVtgNiDv5`OA%q~0`fQ#?0UzvjQ%}yw!7L}A{VyfdEyvs#{&uV_wU^?L(+pzD^wO|h7yoL%qPe|OFA0?0kmR0V3|yf z38d@8D$GYyeKnICv$M=pi3$-Rj9w=q@A6vDgw=2rSCNba>KGTR(CJOk{`30vQq6>k zF;W<|6VIuXJeIyJQZ2z$bafag{BBq%1;hIvJbcK>n4eF&KN>kqhW+JX8mtJSCu(H3 zdru*i4rU{rsE4ACSWiUk5S9t}QgZ>ZxTJ{lR*0d5i$P?Hh;1h1bdpv9-&Ft;XsRp+ z6c`-IzyUYj3N=)~?$S`8M9tA=TS93+8y5>{;kFBn$ZsFQSh|X~ZW@oY$bF4S^cI?o zuY+P^?_z;xa@0Jp?D~A5?p&1K!A&55=g$HBEsT@TJ@M3&0o%83QA_2Sj#kve3!{$M ztD=}h9(wC_lyEWNQF>KZg**Zf$(@mg?&^*_MU_FNnfT4$;ldYOHChJHkGJSUPSokM zMOAgf(+e?)slB5U<+a9%bu_fJ>G#PiDwD&)QkBr$!eT(jz6jn`LP;nf8bh-K$xo4s zD;LaCw9qFX0lkMuCnu-plPM@R&zqm))w2|)D!yuw0}0=8po3T%-85vQIW1|D6^ur8Irr^cyzs*GgJMC`e< z2H_?oT`-ZBwcoWrJ{c_53Jwd)%Z<%VIcjYeE`V_d$c1A@ldF=4nK06OG``N{Lc6BpY6MLG3auxR#aCtH8*>6gh#(NFBTcc z4J+^}B$lKrEjnx@LYNZ}Y-luj|22hPQJWXvlpj=9PUPA?bxQUUi>o`JY9EI7fI^J6 zsj=a~qX%ky2(Qi4D<;wzUuKMeHXJ~Wkzz+gY{2db16Hyd9??jPlY5CBYeWkVq(9M_ z8yXu3?4C(Y63~HsPhY=MX&B5nIdy5{GI&SVDea*C(xuBIBO`i_mKGQBd4KZjVCrNqQo2q_v=?%BVO z@q@JMPxcGyPT)*Pup}(hPl9RmL){xfgF2?Oj$2Z*v#ih_2yA2;ex$c{Wt z?U5gnO`MY`n8s3O7yy-$l8BQ#yC4;vN1XNkd-oen8O>5?m>9{0O2g|aZptHov>U;2 zGZLv~P;%6%VLLmGO_g`JYT>82VCI0IFaWoAm_VF)I5Yt8E_hJdiGk95ScCz(AaKrL zY-Yy{3v(RSxCH81+hIFRfS_xkRbN(A5>0G?tkK1~e}8b8XJ^CC3}5i<*;x64Gb%ax zf_fPMcS#C%Mi5vZYO@}SR0oh&VBPZUk;4b2NH`ZyKJ#eQkhdcopkN-}4fY}j2-HmcAc{=F!2RwN6NR-sA$n;vXP4e={Vu?vq z3ST{2TNCI@%gjO1F^_@qndYwE7eDjX^x`5J*)s9nyy;_8LlFI2}vM zw3nhspg?wSE+20s$_?IMeCg9)`TBQIQ)Ud~q)~1XC>{&m#T4qgP~s~D4u1~mPKEHX zar`#Mk|p~UHxo5%yfCCF;KHx0sU;lo^H|BqyV2BW?7Xi^AePQzM2V$jnBEX6&nKs) zks3O?yEyk)@)njBIT@B#SLE6*_Vr7b8k-x3M|B`hOXTtJ%!~}`o9HXfn$)BQQ*6xL z*?8W7j@ITs{@Gu;gy|cGW3kz@wGfAk3JTS5(GSw%H@^R|RORRY=RYG1#tbQsz%ED< z3QW2fB8s2<4zM#SICaWOOTiI$hw6m^nA*cs9dL5l=tY)(`zWV?@6;g>ib7{uWYj>W z7@3u8`d6=EYu(!CtJ6}_(78Kz?gW}#6UKrSSc)RU9P9)d%izdpK~YghS4T^mUdl$G zZPjY=S}g#!<1%jL zj^!1MUCnf5W%aU&VApS4GfL6%j_B=Fqw>;H@le02pWvO5Mp=PF-h>*lLmDn2jnH+S zO=gtU>P=P;)o+E;cXoE_f62|xEXd1|`@?qi5p`GGIF|>qpg=RMed{BtDuY-;nhi;Z zB@ty=b*9j@v~~G{b)yqwO|8xP@ex!M)aHi~O>UMvPB>TFP}|^0~FV+RFR-@tz$Ij0GCndCvhBF+$Gv@SuLP1#M9bw<$`&V1 z`ot)hzyXP}Lv=5tp&i_}_vxpf#@n?m;N%otJWy|=5GiK4i6*=;4h=|m_@KHRfih!4 zft%{8Hxdh+(GpDZRB~!+VPR3SSe9}zCNY_hVRC-8rK4wXe7v!<%d&7*&mn8ThBv?T z)xZ6J|G%$%`(quEdh^*H6NAvKcv=G98=6}@6ZIur%Mz4OacRQ3`X;IztSK5p3yMa@ z!^&kUq|nUNC_i18w0A0}eWaBDt8{G%8HW3!R;%k*`4fx{SzcY&7;^c_)epY$T_6uY z;25lqzmO0gk<%R!5lYO(dV{izB_yX1BivLKBTo?qGJOi>uI|98PHc}laf*$HK0}tL zP$A8vDmiskZM7Do_HJwW^r>J{7-kn1*3IKuS(%)k(vU)nURqwBnVnJalB82|Y0gWl ztNlX*%m~FYO`CufO9gg zliyJE0OQ$t>U&Aa7ilmAcHWW5N?YY66%F-G2C&zpXcfrf>n_d7Vdu7LbD3d1q5vbQ zUDvBWE6f4w4%l8~T7FjSxp-PmPyax6Uas%k(b+CN@mH=G_7T-yW7A-}b3olx`;yQ} zdk5ykYd<&dutz#88XB9_O#r?IQWV|Xm4}aBe(}M>+jlIx@lY4)=iYpq(th{uT{NCt z!+{Cy*>&#Tdtp5|srvYEhDI%5z7S0BBqNi(OPF5rAhzl@i%d>VZb{@HZC}|LFsZ}h z<4{75j|#Fmimj~U#l~0ULU;YoYARk+EW;3IMJ30yv#YbHq{wh+W#W7^wWSB2xdUj@NcG{NC&(DpI40F6t!4X2HxS7dupK~Jm*!_FACr5`H zYpTZv`~5-V((?RlO+}gZRm0zo9XT@C(@n9#+Y`>lS|gh*17t}DbOSL0;<8KgWAl3; zx&U8B0B2BB=>v<4Y?PBwwr8@Bv8AA!B+}GuJes-I7O)8Gr;7*1&n-*)RJ6qd|XCh?7=bdd_O%R+#Ec7&<4=kpV{&p0*|i-b4d6y zQ3yZ4mpHib(wshRX-l1vx->%2f%dFr;8dfK4Hj!`o&u|b=*kjvZL?z<=~%J6NTG^$ z&{`7{qfeb;U1oUZ8fJ>yAHtioBg%3d0G~&~yam^x*)bd`u3y}V&)*ke?3ZT=Qg#}qdJtYdydvrp?6W(tz;1l%^3CybFvI2U*9Sd`vg zZb@Sz9)JAtXPMc=~sP46H_MTrPUp`NoaK=VPM`Q7}0f30n zA)O417@C-y%*r7%pI^UR)zs3|(QUM8|Hx=XL!$vwmY8qv=+rC3Z9Koae*4kO6-cr) zJ}2LN7~MujekmoAcr+s7&!j5R5L5!&;GfsWboM;HY+tzWXXX}%N5>)+)xyQ)wJXMsRfXUAqkr@1*Wb|FK09ZP0}U-#N&1NW zg-r~PxFTV<<~dANeht7?MBI@1!;$VY5!vAka!qjAB=T2_L`WUkheRN$=c2Y!o0W9# zJ$!WY-aYE*+|uIeC5cC@He|;ONxU#?2dp<6{G3Bh!oXJwtWNVM7enF3Ij!aXi~Dp zkKzovDJx^J4A%PG97jIYf2krcoLlv=#~**tw}{^^3Nt@$26%E}Vm#%Ye(V2d z&fxH&LGnZxU4rJ}?J5!SrX;THpt;8B);A5QvAw;#zKK=Qq{Pg^lGPh`|KRWbasA3Q z)PfjJK|KYZt81-=q2G8D(i!8GRw*f>DTR|w4;|zZ1)=bq079jS@WT>58IIz)1;&pK z*iOSyBz^g{Hy}K&UQ${%F*z-;LgPbG$AQw&$QaD$qU`DENAE9Rxo$}Kt-CK6If(Uv zcS;Mp9q+URDhTOuXM-i?TmlRaBs|?znIy@K`kI$38+&J3jUWQ6XXfS%)Fuj<<4P`m z^y$xt8ptS`r@cn2xEf*^o^2R>O|=P!AdUt_jo1GQtV+sC3$VVDV#+h;q}Kn)?5rv@ zl40Jcb5|=SsV~W%7h!cD$SoP#9c4zTp}wBK`nP{ukZV5DnT$++cy`J(Z{?(tbCKw^ z&ivXZzx7{!@r$4S^rz^$i@<~4%0_8_5VZ?V=*Y>e^JCP4{rkg2V*kee& zsgFUoYijnhZ(zWTtcArT`+RC<_U5fSk?H0E+X1-MOz+&WBJ_*O4UxL))j5X1$tk)w zA>JXQ`FlC{PG?UKY_~DsJw(QuT3x3oI(QeDG$Ym4)*=jUas=H&^>qk%y_IA)F`qcE zR%azaPAAUB;o)IrxU{s31X6(SJynxMe6P{2-rm{atZ3`75>ur)qe=x7UE0OKU|(}f zqvBh3#NZCtJA1nGONtxYTlw-^ySqC2y2ody2=7##?twl^dqRqGV~XOe+%S)HkYgd* zwy}uCUA#~lW)gIiwZ;HCirnhrLPhi)2*f(%-W@_R>!g);C1~VnXQUnhkV#Uyb%;Is_%PWrG z%Tr)GE-JerkGO+9S;7NgG6xV|_UzveGi&Q=R0Ob%Pd)h*t==FSDKh&F@sOf|LQ@Wb zE%_oS4u_cc!VoYtp4XAQY_yt(jp_B~o@SHOPoqy9cbdyZ;XJ?;hG;C_2RHUKhClHL zNAfErnm_?veO9ngx){j*g+aR66q=N7Ra7sghxM;@7gNkxw%D9fc!u%s*f>8o2M%CF zLDdMP{V?E)K6#qWfU`~2VAGUx{@huy$@VKN6c-mj5ebg=6TmLxNKH*LmWa57v$+Ku zjEONy!zZIHoq>i)6sYmO3uLC-NLG9c;2&yau`wdJhA^^>GONFm-{s@F&m>ti8R0pr|&28m%UhBMFqa&-;>{kxpj6aKUA}&kC6T_ka8E&|dwNfa6N%{PF3T zW~7@%bLfy$wo?CfA`ma_qT~!?U)VD#5l>NX^wA{OBcek#_ruq_mhND^Qih~ z%&|}MR%SC)S;xwfC`F}JnK^|T!L0LHZV`;;?$)m1!Lh~B>DBR>^{##kYPa|Gj}{e` zXz%tT{cmMOcKzhrs`x<9#69v+f0@w{rd~9T4VRoRW>+#1wrC;gN`s(`H z3hG!}RWaPxlMo-@-rNM+l~(cm%NuK?7-KDTyh3lFhgz%Vq@*MfJ=EfnbDWTW2J4n% z62mX1Tm3vaCqGw=1G$hBkWzBsFw|uTVQBY!dPR9fC`_va5f4C_C_wsVr*Sq?QOGiG zY&LX*aAIkd-M1Gi@=~e;>h++dAS!erAMGRXeBkNjFdXh7Edrp&!KHVruC7FtBS?N0 zVOB_$5vX75-m|i*myl~jD^K8DvIEP?O4L615@>X=U0Q7fH^Rc*4)o5Tva#`D(&Le1 zG^*Upa0K2@nt^lp2(`Jkx|#qLR`Ezoq=K@zFpMd#SW`TB zwet&s1AI)+FI38us|Jr>W>!^wLr_cGJFQ6s(g`)(7upN0edfBQ)3|(fbB8@+7FBLO z0X!HHlR{%rQBjFfMYz5jn_S%VQe{*1O;fm0XsbmKXy+Cd`6y^&np+?<8QkVTXu3UT zi!m}0ep`vR^G|xMqQ1WpS3S*LA;6~~Z19;N0Bx)mAqu#N^m+qca?qu#H-rXC@|f`> z{e7>#@%B6KePEGdauUxmh&%=hM7FEFOcV6Hc zvZ|$U;7yFvtf;BN9;fH$!9HgQOallU;EJk-ZPCjZAkPGBPXp#!PzCqiu8yDm&0lj1 z(|1Kq86r?ZZjDrBjd%D+!r%SD_wn}kzWfEMDQ!~WT;O&xoYF#ZH0tny1AJ7J2VM>X zphazv?4)JwlRa6pD!-`AXf=gyzSbiBXoY1KI;pu@B; zGrORvslB?oAuGGUUQD=<8q&Bh%cqw>+79fekxlye@K6FhmtZ5uX@lg zg15GbKP04Pl{hvV99|fj(Do^Jn41%i)SJ=``^w8xsBLcczKvqEuPKj{3J_-siwcxv z^9(#GD%8&v3amBN8XPz`va)G_8M)b+Fvqw6*-d*_$LQ2V@1SL9ID3pZqf;4DofZ!Y z@~wWO_pF-ajx1R^*y1*Jre-KH#ihza(%IQDzc4SFGfwMWIvcMdnZ3TYW-89axT3=y z=APJ7C(-!z)n%Ch&|snIYHc|c9c}Kf0hLn1JacBwbA+8=U0qTMh3$;MU>V?m1zkDl zv|dZ}K)3bjSPhOR@L5A3l`ZtYL>)WotI?YDLl+k0@%}+$123r}W@6~nCPskYE!(z1 z7_ViR)Kp8HfpUP_i7Au_77!c!hHB&Sqbw!Lk@&yoBeXEkmS4P>EK&3l5;_G2CFaQy zdZdo*2R4ttU2&fzLP8U3ij=(z^6(sQ?uF%+a7|4@+R5*(4uwwND`+Ol8N`d^L{$u& z4(Zc(?Rw!_cd4K-v=_h*-lP09XCTad4cLxJqNXejYO=6Bl$k?`c9;EDQd%USWM^l{ zQ>+t{Sr_`UH<$jNkKeL(FQ&ugq z%F8NEbHv@(szARI4%F$qn|~A@ITl`LXUikV`?5=bAZ>Rv<`Jt*vcvKGkAR`um!iU3V>Q?Pguc02n6<)wRNy z^lEaAcXnm51sdN3)j1!aH0@U64gWE4>+Gy;T=oQ_E>uVO&6Xi65%$gb0{a%Bpbt=W z#wI2$m%O^Zfg&1F2VHik$F+qa)>2RSb4MihNPu*ud!xsF&B) zCTFJLwo<#y%fjVmee`vAO0i-4U|;VizyG`ZTsVodj`<4v6^l-ti4}kGb^_@O_ilgo zGp~N{d*4wd4-z&31D>KWsBg*w)=QGCZ*`KC?PJzR=x2US7ouTEDn*{p~OR>U$sk-mUv@FRtBKy?pc2 zZ+`i$cfUzN4$Wof6F``uUG^9S1EMakt)kF_!^2Jt;B1m3Dc%8f=19K4JBlvSNsjCj zvI*J2lVPt4tZ+FxK1TGg)8tK}q!BV4FO-u>D~h(Z%Abfco%E2pI#LN%KQ%oivVd{@ z_!Mat9pwy<5WXlR%=X^d2Z^dP^TsW#&Mz%@_4ayao21yJ!(gGY z<-!LU$A|))8D2Be%bvWUV`qjcMz3_>R$7K#WOLl{K=uyw#htfkix##zT{G$F^gqNW zutLTR3nTc}*uHjc`^pP-D#a(9gYC-DO!C?Jx$dN88qOD52*r-6smV|@G!s7UA|7@1 z`ZXqb+*M;aDTYy`r(3Y=h3zX#iKQ(uJ_a_)HDFUCty(G=VE)O<&aADg z#zc_@&=;yF}Y?1R$pI< z?FcPv@1E%6M;S<;-?kOD@7N)>8Y!^bpE%r~-?mLM&Jy|9V~?w;!FI`n2q+AymfBIa z!S+x9d;y9UoCoiIa|7=p5I=KVe7uq~>b`9UQz$_!3)%CfWFn9OnbFe~s4zi|{NB>4 z$rN!yV|3>k2(YlWp`2=sV6q8dfxr|AiaJf5#gW|wyz|MJ#)3dnwA`V13*d^4$2jBSE`a%%cB15md z_F15X;j=P`FW%oxrY!-{&8qZiqM(Ri{WXyM;H6J%dKw)YhyQrHH+l7QZ(64qurDkv z0fhSxAARAy4_|ojXl`iJhX@}6zqq<)cBTEp0Wvu=D^fsXXDTr^s5B$P zFbd)U6I(@x?;9L&?Q4JLt#ZT@t@FqZU0O_8bCd^qyZ`8Cf5sEdI!pBx2id$pqKhGn z#y)s3H6^*fyYszwzxcoX^FO(uT$CwE=KP&?|JV`oyOGg5l_V%)z5PQZXmx*YV&6)X z_)c^33b;vmMi^j3M!A(1-sIFwsh0vPqe{Ou&M)0tz4F4y_uBkyN zRNV9}OdC)gb|N{H*gI&2?ZzI`b38&t31quR6{XMa0@vPzgpSqI#vEJ}tL z;orEKihM_^r6l(uYI9#tYikQy2#>Mxnp&w~@adRlAx#ileVm8`pCt>8&CSkUc&>`- zXJcc7E+-6}F&&#`h#_M$MaQP$WWo70<)UZsbuJ#Y~xsL>bcg$Q5m-5Qk z)I@Vzi^`+q9bm#4YkZYemfJbTT`N<=Z7xS*Z(>SPacQx&lq3T5H;nX- z<>r;;dPTmH?u}bFk#;2`)wH-6WB*fcT))mjCGDuMtFi8$>Cmp_S!S)(m0LHi)A`xm z-+bc@BfPEsq(JY&wRi(!%?S@7`R8UMnfQ?WHY=R3lnjMzah>ZEgr9rM6u+o|e z+e57`_Kacjtm0r9Hzpc`Kqf#z$J6Y8JOrX9P`pw4%yg&@tCP4BPoIJc#*V>QBp+52 zf`kLlLER}rm?tD;?l46mzIt&Uxmd$t zju2r8t&WsfY<6@f?vb1s+eF!Qp)(9_Tm{jtDkf`k`bHZXQ%VP*t%y+(`nXDgz1L zYBy>pnHd>8b!y7?hW{C!ws!eSYggCs1cT%{tsH*ZMHjU=X6Jx+g*pSd+?WiJc3VT; zaSK(>NKqB$2pLGVQB|lo-VVkWR@bQ<{A|`*o1B^BGrV>0!PvwU2L>S(w!6W6be$v) z=X-iBTQl?WYp;L!t?#}4<@fP4AB5+pq!}Z8Uai)1mRC32XVst)G&DBPFD~D{cb{PU z))(KsboF{gWwj{>dZu1{^zvul`uytJn#C(u*Vm=qm#$p1;PR~(?$zOTjg8Cemypke zr4?X>PYMU%qph=RW&M(P2aD*XAVo*{(%Ncsdn@)xoToq7X_e%`yj<6^JLE5gA&m+~ zg5+gkhLvnEuDJi>pZ^JCvAnPT0?|;AB1#)1>m1v*V<$(=zx(t6iFeIg`e|L1XZWjUwi%n$GdnP zG#jSxuD=Z~yt<{NsQ9lYjT0tWV($ zBNuyoMov~ugSikvTYzlA0$yK>goo;3cUR9qzp?f`=2#657*ktTRq0n=5r8kL@dS#E zl`{k)`_>~74ZIVc!{i8c??fIHI|6!-j07C6uft|%NimTkqp~I#2e9?^bzyKodmB)N zhkd<08qCpgh>h_EPTt&vW&`1Z!h#B-O0xsitc2>QV*54LzN)J5CNxPzgz>$sw3MvE z0Eykfa}`o%8m6K>=sYzv(W%VLS zn{~5&_sO>IPK`@6E8}M53^aD6ou586{bG4l1++iM(vT4nd}TZF#|IhXGcqy+V=YkP zdMCYVBbb?*MA8UFbRdRy7d3TaV|`urH#I)0?#9NcBbI(%n4hQWN6>!bjW;SvOSW#^ z*5A{GLXZ@o5Vowk2dQ{w2nax4(Qf6j4E-Kp({`Ry~f6|M=83e}wCfZD~ z0h_EW+Uf!Fnb=sE|NPFKq5w|o>jQjHoSU01UWg08pCH2}=y4Wzu}^epYiqUv@QR*{ zki&Mu4u0+tL*KzWXE?ADgJ}3zw&x%=$w>*EJ~T}4maiQlJIjmH(^CmDpgz}O2~AD)BDlh+G=Y28c_g6d2^U#BD3^h>qAK3LZTs`jZrK8ZUHEngY&X&knRnZ@ zdnYO09jfY?(xm+Sw#D{Nm&kSvrjJC_P*VAc~Gp z&l<-xGBK$}sX5e;y(>5Fu5Mfb=C~*r2lcMi%9^@w{>pDjt|9#7^z{7V;#a@^jlcYd z{~a=Lu5w_g_9_G)I(CBT-D~N?{FY{mb$0dMdEvpkAAa-t&0B1YsJnvf`o=Xg!|%QL z;Qot`9=-g^)oa&o-Muq3Jgo7Du72z8U0RJxc>U599FbLTCNgZ+Yk8V0c==k}=(?@e zU}~r*?KA1C(_vzU$q*U5kUs?GyCZX#m2)9EZ<7&_CnT1K9qc)Mx}!%R!ZVBhfE;KU+e9~hmT zU%tAydgI!i*FN~(&%XPc|M9nf_H(3N`S_`4x0qK6<)TlYf>gaj11eJz6LRs&`ufDo zlpah4R=j=0c*CW|)~?RFrpDp%ae4?`9v+`)WkVVo#NHvcW>vouPe?HoEd^OUU&CXg z-a&%nooOsMw%rJ*$HqoxXQv_F*qD546zT%)u(vxq5P0|us4;yNR0yofT~Sd+PeI=C z^t!qlo;{GOmR(gDh7|xt!NRKwAwgK2R0?G&nj-E;zYZZjPs}U+Q{CZ+BB$YojW2V?$GWYe#PnIbCVB zMCFkpA5pWF_Jl}%j1mE=2w*oK42ANI;E$`gqO>?OIT#?dl#Y!I!ATdQ0JXF*-`Une zrE!5``*=cWVS%f?C^yHI&N4ARJ_;z6FNX&DSQ@+9+oXFWT;Txd#nZ`;9OmD+aGu`2 z4d;WR3Xb})j9!85gb|-*#4frEvAPi@W8+~XELG=*i({2X_eeyBkB3VQwR-bh!*Dm+XK9V1Wz? z6gtK>)hVr~#1rNU&(BDEKL^`Y){(8grhY#ClS==@^)A z-+!RYw6wPI%IDsuiga{#Ro2wbEv-z=&b{@ecd5SQlwbb-_toRIM*&QK+B@B`g`%L-^`1e`ijjyRdZm^3`{~@ZQA4mhq!AHdy~XuC`4l>4TNxUWy$(E^jfAh=eetreOj*syqcY# zP0vhML1R=2*lrbr_*k8TbJLT#MsplFe8LqS8w26xtt^z<`HM?Sk#?3mh7++*2by!< znV@`5V0X?LQKz7e!(cor*BTH~vkSle@gH_{4;_edQ5aO?Y9`wVrzw{0fbGPTj7$yo zrRKF~<(1^*TQpW(ud}st$il0geIr%%(v5QVNc&Coqq(j7(v6qC{Pmyy@TY(I@Bit) z$%r9FeohX3k_ahaMQ#li8EWZh-?(;dVRc1g7yU}OMc2XmFfn{~c5-pCcX(LH-o$Wz zA@j+3CV@6JhHa8cgYimpG_D4NH-zP@v2RxKlB!O7ClXg4B^KbzV{q_V1iY#O$0L0Md^ZaWfd#gW zEJl?A-!iPT=?*~#hC9Au4dod$2?siK;V{9(C(;}cY?%ldib5sdr-a~{u)Uz9u!r2% zAM%&_<|f)yzSW$|wDmQ}H~84IBdD%liJDFLAy(j4O$~Ll1zrZ2PrV^G85CyFp^KY$ zsIQOEHQ>p0)l~+6smsGvl)#9FwdEzEI_j&zOO`Bt%}!6#W8-7bSe1k(GuYn;D_r~R z@i4%7=)MrZ{RkPbJFJ^viN)*&O2Dz*4CmIM%&J_+qdo8 zzt5?Qe@X{9%&ipdg%o?Dy1I{@%m6RA;JP?1K=Qb4gMQ6T4erqSy(h^Erl~xhIdh5} zjn>k2uw2rDSJ^f<%ts5q5x7Vz%-7e?kpjBq4g}|@sKfT2j}s8n(=UQD^cDO`0=7NB zJ=UUrf<>MzBApZP0o_1H373hpP=IdaU5#IK0viyUG&|E~zuF>b{e}Iw0 zbNh}R!i@~V$%BF00Ko>R+G!!EWu)0ud6q^1L6g!#GvQ;@lq$91f$^oFz3a$Nol3$Y zn;g3%-maYbsVAQ>3KCbx*!{`H4%k2SsZXJU2;Om)n3&T($dRL2#hi}(i&6Csb7lQ= zKy8T-1HkQSL_IFjwuyDqmiFwU0kBt!5=zDbu76P39M>X40Ej1A4t4!=gFqg0MJ$eo zggf(z?KCE#&|Ed>?FmFr2+S%Yr8#DOg)n4VAAr#P95bUbjdIi*lr8Tuq zu>gLySPHYQ-thLZ>1jm$%U}B@#7F5ZIX1hv{KfY_(i$^3I%XTb_|=a-`J;dH(x+d) zcJnrOfuSx$B*k2bfRVq%nf{@X?%shM^O}o_=NFdg?YOsC@ZhCam<;dTfB4mpzWtRC zzdbfKj?7=adhHAEe@J^r4VCkN`Noy2nqx<0Uf+s@rBZJi0J znH9BKK|3u(ND)`-B+H1}<_y4ggFU%iOc=;3C@-yOuBvORZS3eDUATVtt(QLY&6_X0 zF+4e6UEf5v30itWf(%zHv%UcJ*3pT%S6+Mj_MLk;k~Eo+XOfs8u0kI~r?PU@4VlaM z^ki3GZz;g6tf*~lxOC(C#O(CSrAr1ln*Y+=W|gfTsZCe6wU$UXjTk=12!R?)52aPi z)*?f-7JwyfF*Q{HX!wk=*VWbb_4G8Wz}oimQq@<&i%S@o*VNR=k`Q<}FJ3@e`Uw>U zd*gnoK)B06vYte&yuc}mQ#Ur&bGT<_WN;>e0z4cq1z&!$EC#2aYG!Fz<P+4J!N*`cT-z9wsm!mhLhblaIy9=V%}p{Geg$qr~gD;J>i2))Hj zj-uiM!xQXS-vy@m6r#80dW48P0tVaL7=X|3+Oyj>=jUV@Xm-L(v#7&d!LVJ|Cd+|W z*(#fdma9c1oR7nJQ<)(Z^oZ;h<}jT`VR!#NaUsIn`FeF&6Hm;B*?%nJinl9-NQ_;g z;lOR)#H>vlBqwChWKPErWOjk|h(H}oGNg?Cgq^)mkxPLx!xUR7YN-s{a7a;)+sBhpaY>U6gWlwH;E&n?dC%OweXH@0q!_aw zeFWOJd)Llqo_YH5u%@0xIga7v)GgsyE*1haeJTvB4gW;XXs~kpI8oiN?n8U>uSzlA z4#J(u?(CuHi-nOYg2JEFUl9dpEBa{bD6g%({pgjB-ahWf^qd?SuS?>nV`i#kXym`3 zLPL#r@dI!J0AV}+Y)B}krv-pQpq5IO0kAwUV4TIO0O_};TSpfYnwg5j@Zk6aZr_)X zbiwoqi8k%Mrmn{02-_(&pz_cQgS40pWWx5w%97r2XJ&PI>H0EbL!Mll@TDZL#woiw zPIymDv@(_$Y8;tWV_aMqx${dVZsG(Tk3!no)>U4mp{8u>j=g&h9O~=qw{Ju1R_I+K z%cNSF$X_d~8>{Qu+k3_t+ArOFzW&ThWZ}9{;Kb; zJZc)lwVO8wLYqLHiX^c`Ng@tf^*?MBq2MI^CXlr5K7WZ<25l3K(x`ZlbAZ zjUjAuM-Ws%G^Fk%$h0(XF0SoY1UoS8NZm8M+*8Y7dkHO+1QQWUjBT$~)Bt)kYBx+B z#0D`vI}mk`u*_0mxG&(X9qyul=lqQ-t;!9XLBt19Ks?TI8hNR~Q&xc2#1xrEL+91^ zsaT$P9(8x}2y?Yf4LODRjO%69_pjmebV8~! zU}yvx7-ayaBCoR(0pH)vh0=bwZP>Ntwm;(t7a8B9_`=WA=j>}|KPPT0C79S^T1Ix5!kr2ES&pEy@ zL#&l~PsniTFH?(iV&7{Zz=&6IJJfUnlVw&B{NmT<^u6+xs;(}hA#@fNyiPal0* z|Bnd*%j=glQ}Q>w^!i&bzWkY$^(&@O^@7OJ@mu#E{_vAOqqom4E=^3&FhHW&Z+!ks zzxK)RefI6o%eS=@*&Y+gpd9fB)TP*;sl_%hlLE{&syrVrmi_AE@A(n zz$KV!T$ThdahV(^?MlnYs;*bU93C299-3TPSik$d-~121|JVQdi(mWo<@MWDbruuR zd{9LEaVF?)g9)Lef0T(UF70BvOuIiT*Ceun>6vL7LRVxeqt-=+ci2vfF-1+0g4iWM*x|q$es0R_ zd_9y6d^JBm&urVlfj-@faL=^cdL9^7@X}(iO+TlCf)RMmX6#pmPI!xHvp80gSoF_n zLgm9NVossTRRMm^Gz)tryYOa&mGMZEMU- zFj%<0j)WrmNEU3ZpLif`Au}h7*9A};LW@s2VqqEf1k*t?yZgGeFLAvDab}>mQX4n* z%@o0!s*>^&Rc>7xYM1mg5QJk8feD^2|-()x$CD-@`ag? z0vN%jS^+;H_8x$A&u&m3+FB0CA@&pt~! z^9YB`_U+qXy9O4YF5z<2Ld7}pJQ>Qai3lvBNl@AqHcp}Dr(<9>kk@i3kO^N>OW&91 z1i+KAL~TC^cKlg@kB#I1TAmSp?PSMw@h2vN9Su!tsirA4w6yjO4#{t=UIEzIJQy>y zfAYg5r(V>|yE%a;!4gPk;`D%XGxE~VZ8V26uG7FFFmnq?*IQCjU9)!W=IqkSgI8YH zIfXr6zw_en{OQm2%j*=qeDmJg(U@W|-qntJ4Vk%cvmF2sxOyND4+3b>kvD4P>wYJv;P z%ix{wnz$)D;O;P^b$Vf*{X^zoAnUKH@)B3y?7U$G%#*X$=j`t72Id=AHqIw<^2Zbv z7m(SBmbCJ?bLQB@!nz2yA3qx#WBBT|%Nr(vXi{KzZ*QtE$jt_*PBtcg)Lmo|blKF+ z6(S7U^Ol0bH=IahoWlo=8nC3xb`|Qnx+e9F^9jjxFG-(sOxC3)gxc-iy<7O!ncCdh z-!r^8GQF{U`QA%!eE5}b|MbyoUml&9Z*8Z3>wO99$2sbH%2*x{x0q0s(Q_8BK~)Ky zu~irTJ70eP^*7$6Gy7675$>g?rl4fcY}i|p6keLcPXy|h_? zjP^1ivthE1Z1y_IeJmwthXjL-(97D=*nnh1VXC-((YCf`aBZOqZV98SJNeOxRxinQJTE-!kTC_nr!~a7B z%g)Tun#4XM;@rG-iz`yMlPlVhotT)Ap@cPMSJ%y&pph>xEa3SP918r?TecP#<{2rr zg&uPJICtRe?2M$qmJ^Uq8?+U71~dt3I*f2mUV~ zDP*7$UQr|{>ad;gj!?sPMMi+{CT}=?+;dLRF*N?jCvbHF65(265!@c z8dk%0Lu>%M=c4Gsf=M_^6+VE(K$a&mGp9Mw_=+2H(-vZ8J*ogD+E)V8*^5z7@_ox?cx5OwKvxnYfwOA>F@u=-~ar-{&xlp>9q2$z(jMFlc?SjSi~#>i$PVsn2+N~AD@~c=@*w< zrnyy>c4=*W))Jg^vxEhllbd~LY}ASpin+cfZGV(vGdbzW^al=>qS6vI!G)#8D_5`H zzI(@VqAo*vyW9dU@powq0UJ*}XSDufP7@g>T`M8+0&eCU=3>dq%9x!R$JiCYGg6aH zVRa44E18)r0;Qb{;;Gf{-nUNQ+k5-QSEiS5UA^=23om~@GCjs3CYcU;Fh89<#U4PPPf1P& zCKy!cCy9;or!!~b@(XBYm6NjzKl}IpWo=`_c@7g?uoi_pc*GimM=)@TjqGyNHjEHOP;r)};lu^_x z3{I}FmYjxec|uufks>EMGhk8Zgesdr4ds9~9u9cJBma}Y19p5J&U->W{vGLFgyIN% zU2TmjoA>da6c>*WWP}NZ4fAH;03`(^dNgp{Zu0bhuGZmKjJFNg(?l+w5>WToWjH5TqwWYMSmltgtuq<{UqY zw2Pj;3#Xlv)`RvNU>E=FACMk=cX0Obp}4bQs%=E3*rkw4(qV%!xfh2|(vBLLMhoQi z>7%uw;&(C{RM`IxhZn+j!39i-RxpqZ49`!;gbl-fDKil;+)dT@OlP+Ag0cb9J>e>kfRSV zi5~{sV4VO@?RN!Hc;v{CTB7D$xid>zPKB^ zqmOfZK|Mflhhzl9F?QRGlk=|vlM5FvpzaVpNezHNV@!Qy*@et()nr%{Z_ju+J&vHG zS(Xb4r_sts(>9(xW@8S1<{D*h$ zzjW!^&2RncPrmluAO7;kzkc`OO9R8hRQLbu7r$VW)+NrLNqDDA*dz&poBRp^tm}x2nR=p8(Ny#qdn*ns%vT%W%`DORdNj$fIC_jX~LRf zLe5`S8uI$w9DClWj@xYCz3b_%TloZ>)yYYTib5a9*M%wsR>$yw(i&&lHY@bM@a799>>%f1l|qbN70>UXm2Q( zre{SRJ0Xj7@kAjZX#LKeev)M*W3^3fU4v6h>`NQBm)37Lwsfba=bTSWhV4*7y(D67 zj&@zri&9OcIDak(dIt|l=yCBfJzBNfE#` z?Z{&;-Uv7M_dL#Yf1=A^p0zcVS=mB^sqfYGb#=g;2E*YX7jSb2uxFd=zNy|vgm-V@ zfFcWgIE{^s8dF1_p`P1V&*6i;r$-u2i%U(TVvlrLaB-)bl%Eg4%S-F(%)M7%s8L82 z5u7|;MW(~{4O*1n<>X}tuA7uf?o#qr zI367xbs9@RaB|%|BpT8aMyJEenJFdFpbSzJ59|t3lJN-MS)tasir=E&o8>tI9K1pf z;kMHY{9^KvnJrN*>Ys)3&hsjTeebQ9jTZQb(ZQ%|`8bMN_#`l+6!r=Ap)QFrqpc`Y1MA0cp% z`*3!Uj>C(K5~4^b3@xeptem*mHJlfViEL2NX+S2YII;uLWRPu5tqzzBRQ}?s0p>^} z(1l=D{`w9w+V0&vDzeJ*XH()I}cxe<;^cVcn4?g{wci#W#%`biM{x?7V%C|ly;OHuX?dA{jF7QrMri2ySrY399 zE|-goq9rm)EF(Lcr+TwdF#_+FKxXrpp3wO|H90alQDNpuMTM40kj}RzxuDFnbuqbd zcXZH}SsD56WVO=FXQXMnche=@WT_lqTMc83QAv>CgauX2q5m6gcXo;Msj`h@lafkBH9w*TDr=P?IYjgi#O6S~cIh{_0fM#h0-fE1JwuZ-tGCv!J?b5r$;mG@ z0?2U29IHmAWtk5|1$7P(DUdfOx-3;ud~9O+Yv2E!FMjl+k3aeQ-~X%s{PL@xanF@oGfAuG?yzvH>zIx@#gV$dB(I5WVXFmV=#kJMZ$%(Pa@qwX%NtL|mFsR46 zLd-Dj)}$C2Vv-q~8rP^xc?edb`Z|0PY*yRkdqpY;Y1zbIU)8$qe3cay5I&IejBM3llwTBp z=VFIGP?c^j3!vnKH{o5R@C4!vn1a2a&*czWn5wK2T&MCPLMg2H)l_Ezi_MyhO7vv)ldY%8GIw<65B_5 zw-fMHkAy`5bY9^e4fW}faW~p^U4Jg&WecQQu{5$`GJ-cbIj#?x#?CCQQhzosuC>+3 zqfY(NY+W)+>0@R_I%I~rc)rx$+3Pzx^g#aH`5<2;AbmU;7tSjbV(iMaI~MPsg0{{*jNq zAih8?R2HPG&*DW=LKnrcV?kp-bm*WhMcqLh`l_NT|J|go@E??^GQmAxO&DU%^f$lT zHW!gvhB-0u=M4lq#%63bn5`n~Z(_T8Lm=&DI36O~?9)#^`2_HX{Et8W_|d}_?FvD>UXO>rAf9Kt=eEs7ue)St) z`0Ceh-hC0mf9?zKe*EL#yM6D$i!Z(M-5>n~K~d$zJY3BBn+#29>*{2T#LtPkwkcXLTK|OHz zFj>YReb_F5KCe9_^t&PK!L{V{aah&r7@T0cLX)h}Ma2u$XU!5$qxn_hnE}_X5jQ6u z;(?rLGN`JowZux_#PaCO#>(Xf6SHge&23q^`3CqH;%T+2RR77zV~9U?!gArsyf^bJ z*WP*m2S519-+c6gfA#qf|HTL2`Q-EOet^7jnrWYx;Jo$T2bXW&yngo{y1sJh(#`w# z?mT*N`O@0T`l`~y@R((%rlw}6+;IvqerOqM>r{X5S-*05etEH{zlTii1Y%g&XbC&Lg-74}m;$u)o)N^-I6>OG)R?_H?vMa##h7!q8S=tDHZ)G~U9wA^(Ey z5KIXjAiIyZgHZU4-@<2fmk-XKm#ldS-V0N#HCrY~31gj1rDXMh;VO(wcLQ z;ZTzRXVlTdfd9#7pW#L!#duFOXx~dt~Oo4z76C6F~;}unL57Q~VIm#*{*n5DV^PCn`%}3!1s`m=D$i_^X*l=sIkF^2w(ld4#|}xpk{* zs%+p{71bx7cw)CVH%10Uj6EX)3Sr?}M=TGHg`f%HL5&<-zam;_Kk79G@Aj(wV9QC1 z$PzH3^eQ7d=aGCpO1zRx*P6jyQ&^JFR#Dw$fUBdnR!zVZoc>kqDxd2jjw*=yB~e$2g;f+zy5l6 zU!NX!_I(~~6p;JFWvL#9)%h&Ki=SL5O1gkO)ZxlY)3dW!HME}?wQXFCesExp$rYBC zZZ?<{l$MAQ8QEEQn?%O0i}Vkk4YG&<0{=f#_W`BXb)JV>qDTS+(MW&|YygQm=onyn z!SvpH?+qAC?*m{k=#A(EJ1L1G)g@DsTU?~bwj5cG<5-HF#8w<9%gOa!%l3^E$5xbt z_u1!{vH~6b{OA1bl)c~Y{ob$a9Uxu0BKx+}9>E2PRo?UL^HjU1puKK;t`%tB^nz&i z3%g0!k_QrwoSL7#ef?^orRURC>TOohY-D(pMTXv+<1cMfDEBlnz?kCbPdu#;-BS{G z5eiPF5snWKXN1YtKfck`9vz=xyRDLLfB2^uEsz}2yXE7zY6=8X%Bve2+j|E_=1*RD z_3Vvzdxobf8(ZsJJ8N1yEQvdCe6*svzO|$OW*MInzzxuuZa`wt= z`aEBG<;L0bXQcqqxC954>R{;$OQ#o?&&;2u#+;H+G%+_jHZ?giK00CPyV>c1A#17} zN8ly-d(z$4)6(7+Qjf+)B#`tD^vWH@MWH(3dPs+JjbF-3@zT=LBASQhh*gzraDGL3 zDNR7oO}G;ps33qUa-37-Z6qcbUr>$$PoReC_&IGpK?MDXSMAGD9VaJ>11_$ak($XR zP2#_4n3k9-O^j$G!IBk;@@JR>9NcCh&MaM}7!pr_Jg6^s7)6Cy*_uLYWp8=DQV5TP z3l@-yM49VkTa}jztfZtSqx22U8oU?EqMekll)%PE*RDy_Paq=gxOYfsls>s@2W<)<0}Vd9z6AD@ zR#bseu#p+00i;MTjPdrE3=Yr?RG7>(unW|CcZX;IA_QpI9ps$8#E1w&@le1Nb4d|$ z`yh~)KnS9OuP_i#YC`smnBdC+T|(Rz;6LSUzLr)KTbRRsp(SMA)sqa#HpSclj>E>M zo{Tvi@(_TaZw_e)L4T%5D?1H^N&F)SZ$jd$RCoC>8!T%o@yoID90GxtY5X{BXIUKB zmMvR&=oAq2TZ)U=fqMkuiBS?A*&1^#(Dn6eRUx5a;mO)Hlu@BkG)$;;V{pAUu3L}v zuU)%#^&_iRN`s-;fOO3N!G|7Nu>xIx=u`eZ_~5ElkE~w(s2Az&W-yk0UoFk;)7<2z5(7KVhEFwB)Xe{C09L$S7GAh zgiJY8$&iEdtcm<01yGyBOm?dKc79dJiWNoe{9%JO}+2F z@%DQke)*N#cR%>bFMRbEe^n-=8dZ!vc;@-K*+_~}E0nLk=}=N4GB50vqs@44FKs_$ zk1PEsE#*7NlS|THDJ7ZCDJ9zM%h9PRC+J1-j@~*HRyUARMz+#;fj6{O@ftTyz>?_; z^R<2%4q(kpE6J152nN1UY%pgC59hH~n{kVz!4RMX z%G0GS204fQObV+sr(_B@Qwvf3Bi3I^NJ~hN^hjngT9Yjj9v8RABG#mM!hZaqJ6#$tD{FlYEEvh>{hi`f(YFHE$ z7)whufkZ_4LBts?=y`OctmdXhozlCzyTH4-oRyLB@Ix!mLW8%yt{O69SsMI!gP5|> z2oG@si6~?k@P(!#^MD;Kmr_Bg78Rw67~s;18~`ri3VQ>N5n;YwbX50sp6?TP-yKpk z!6Zl#zlS!^+YO2Ntuzor5VWH7&P!}@hwLx$KAp;R6-zk6=LNq(Io|Rj^rKv&?qZSH zI4A?)j?h#x=1EC}8kAmQp%Kodpss^=zA$*>gOKm!-pEK~kH9<6mp~D>YnQRXgD@=M zxk^B@SR|3qPL`2<5VG2%6_@B>av6gqiUO%za+g;W)rpg@X*Dhs+@_YVl%N>+d7$W? zgK=9-hr!joXZ`wh1atgcQp_hm`GBY>B!A$+2W33c)oqUi$$ceu4%neOY=7AH@WYUu z#tz$~-TwSkNSk;%C{ckyZ!z6NwgWGQL1$P=TZnnP{Qg9?vCWjtJT9PKTMV(aBGBX(n ziZ?*Op0Hx&sB|8w?NoQlXGE&Qdf9EAU5ysB0T~?~crw?TJTfsmw|wbpcfYRbBSi1U zw)T@}FWi6k!)te5JA3*1!qReMYiOK)_sw_jzVXhxAAI5Kzxa}X+oJxYG}9bkT=abYmvA`XlIC*55Sx0Iu~?fuGhZ(O+h`44{S zkH7t|{{A(K_0e zsg?`QsOhDUp~$GB?BXl0AmQ?h=1-pzKb>Bf_e2Ki%$!u#(~;OdG%-DioNHf?&mSKh z8K0W$)V#5?eSCTXt)*JftL6L6EX?Z&6ce!(3-tE)R8?0N%X@5X?(gsI=xD2{Lg&jG zgkP)NK@ErS<&209;Y1!xT#0jhJh@oV$rAP6YxrzP)=~2Ofm+c9gWqDbOP&{!n*khb$IqoYFSU zs30RBq^-5d>}K!GU)4`O3teI0&QK+Ut?WQYQEoyC#s}L87d(iFmOoBN@f=oz2u6|I zVf^Euk!JFgk&mU@&kF!;_&f|`HEj0aipW1mgzbWuVBE(6kpV2XgrFEW=Swu+EyQXA zb%R{-r!nUZGKF z;jleW_qA)77!%auO5u91UuO?6C%M>k+ z_A#hfy*C3Hsk5{fZXK2l>kKeXlgq;5_xAN#+!=j^>U1Z9FxNOCF|c>Uom|fhlGark z8f`2HZY&~2z!!3o6<`$x#ntuo4O!Ym<`*F9__LKhq@zfZkt820H60ipmXx@7<}3n# z?#i`eBcsh79b&8(uitwAE8n_u>kiUBYT^5(tlxk2f-YT3b(@%Olp$3hwt=G=CLn38;eQilppk$aCoT{l1cuELV zC&ZDb-IR$aFT3Zik3|L+S)o~9z)`j3Qa1)60Zq)^LkDak4lSsdOF1%;dWB; zk=*>8gGV%cI3lY*D>thulq{*$$||iW#lYzs=^3f8R8CT;^ocs9Be#gCXgiUggTQOx z3mbAOcc3&whT2R0ZX%wyx8VuIsFBeTsLp4^O1SD69c07_(rkH6V|*N=PHf1o>ry9Q6&NrKS}lMVjGfo6wJ}mbV!i{PL!4;QiqhD;`>*ZJtA2 zMUbJoI4~j$ct_Obx9HYxk4Pwpw$tGOc7RP@ch~{G$uEJbuW*9UK4830=^PVnUJp+` z^(o+wx;rCwk60Dv_oinQ6^dfx>nNs6O+0i{f_SjS*~!v?U?F`)N(Rx1G3Bj<v?BmNayI zlqeYJ{r2q%35lJZUF1P&5|VqP90QG^%4zJR8_q3>o4O9$Wse)sp|Ru4?9Ae6`Q+!X zU9VTabNd){`iV#PSNIY{yPW*8 zz{$f3yi{#V4hHnJ(LKCsV?zTmj+XlMB_Y2&=rjKR0>=<0KmF`8q`R-WlIt8sgonuq_%!4VEisKvd3uNAcI~0V z$7?YV7G7uKt;NQ%J9_vqFCbZqwV;yhJ0M51AippvDMjssk5*QxmTnNEq^pYvYt>E? zXJ627*e<^vn74Mc2_MLQPfksS@DgThHFeeA5P$f9*59m8VxpD8k{Kf@k<7PLSd6lz zrKPN_OrH~Krv{JGJ@Rrxk|(%^%$B-FKyY@Bh`c*WUliumAoZ{^y_k z*~dTqqyPF}fAE+8_-o()yK8s9*x7rcrKM9ZD^|lSHc7#|6Ey{DttzFzKq@A3&bmNutSFgy{z}3fR zrU1K64pR&B-2;6@c)-4J>g0uMS0-nt2agZw2^q4|E6RW;CQo2zm{b)2E6O-eFjuNz zlp$lFf_I~o^_I=3#jjlQ{QO**HZ|3RoDvIIXkQ?`M~IfwQK;QXem?CbEiL`<;Uhc6 zA>ww6nZkC%)zUGCk(A_&#H943q%<@h>cx}AWq*b2NQ=iEmUSb9q#dY;s=-E9lI||U zM-vsQ3xS2ts`Y`e0;i)?)5cOg{L^$8V3qJ6IF_8OPeRD?rV~Z(Mj->@xm<6BQ>2*c z>S`o}oNr=*J<mX6=Q|E9{2A@MNpI%0#~uxNRn7ahQSPh zNjHHXCMB3PHo}fC^i`C9Y;^NWFR~5_2OI#SV?aVtpp-fUogU9v1yvp9$=37 zVBZ88?z7OCBe8iB{t;)Q>Fg1t0|Ac|m_X%-?XcjPP5uJ!TV7HYv={Y)111(2U-jrC z#8J3y3k-ba3erjp+haRDr>-OI-b<2?@oa- z_CMSApm#nIb**7WO=Q%~?GWGq=`M~FcYXHm+3l{tG}qIZAsv8v81BBf4m>hf6$5lN zAabPSSjZ;1p}v04zP+Ksx}l$d2v>D7VCh(A3Aa*P2o0|I6W0NHfZ^PW#wgs zMTOWMwjx)7rKqf|?CR>yj{Zr6=;`g{$+ot&Q)VnJBsHjU zI6r^w`nhY@7tfw=Xlb24edfxoyWV#DwKrdV`@Kstt>1ia{^Y59Z@m4h|MdG`_}aHV z_|h+Y_Xj^Zd+DO%@hfsu$VUVj(cgny!2<_S1hExYARy$XO#s}D48ZPoJ|q6(o{FG@ z@c_=QT>xhZ!~E5k5hy7H;>DpNAQlz!Hsjw0?tEdO>rws;QQhEyx}YBB`)0->Qfc(6 z4=g2E)0ehbzw))aw+6dAlHw0VI_Dl{!gu;|@3#eo=XtAoJ-i%{3syQ{U} zx~i(u_!08X53PW+u=hNqHtQ&kN_ntBa~uP&C%~7`!$WS1J_glV_N1mJL3rQ5*#z=T zgRFp%#zm${NeLbvWRVY=67>1Rq?Gs|(0GydXt652ArruRa*{mvRMfq&NGet-Kf>&Q z?GRq7u+$e7_sXL<6nM3UU|vFmj%H`3rKbXUuM%VcJ9T~g4h1!_?3C@#g$38*7-dmZ zu~9RJ+~m9%Y+y-{u~JEnw4BrwGui^|^&+Va^`ctXm+rn<8ELyPYzy11q4Yjnl%H#A zqvE2gg3iV@a(rx{zp1_sJvJ=-R$$RPw&Cse&|wg4=!$aN_zpCk7`9666<*pMXKse%o9CYM6Syx(4;1bhE1}_*M-n{MFAAGB6R3@EMXF!7*1^+9qcQo7v)ytiM^YB zIEncpTax4=TFTpWJIl+;^78W9S~X?qM&^ZR(SC_HN~$fICW!&UV_=~`)w0D!#e%A* z&tIHcI5{ylhqvE&?TwS?E>K|3T)J}a?N7gQ@BaAI%sU@``L*}nzjgn0UBYhMx%c_6 zeDuy|KKI41e)P3({>uAb{%V>A-R0#{NthnWKX4$w2>4>#{4Y>UCuEj`M;R6t+zRc1 zd4TAMpL-r$wyi=!+le+tnla!{ygC~BAu8cghSE^D`9k3BSiP|U;e99HjmIeVYNwxd zRShTCEr{g7Vba4wBEZXLVt-dhWl?@wVuFKP9W|X`DcA^H9lJ0B{XXu&xbU=CWHer9 zDyBBbXJHA;eE=#o-I8a!gTCZOZrP%I7`bwEvRi!(0mofsvV&=eqmgdcTL0qp+rRs7 z|ND3T_;0`d+duq`AO6Qb`rH5VM}PHK-}~`jyz$|e(eZ-fa`o^g2~E$Lf_J0B6JfPe zrx!l>$`^G@!@z}5PXP1L6QmUy`^BqQYVN=@<`pgf5is^iRf1%wCRA$29HPO^HTuu+8ui$#U)?Je|~f&y>P^C#qo!~ywz zw!BnyJ;!IGKTEWpPL~GBxy-`TjNY`gG(iTz^(3kC(dz0VR7iXLA&KgOxnWW`fa2m{ zZUDHP9tS3gQ6_y#YBE+8W$mH86jZa)K2bS8x($W5Vcn7SB-Tr8lWGD-YkCHsHw3Em zE)E^ZoOTFd?AT71cFGZD-R*}Qp|A3D2DUi@-h5mS0rTOqdeT6}SFBmH8aQL=kF8tlBe2>_kl&*Zf_lJh z^9lg>&zE@aBM-`@iA;c<{61#qO@X&wU>lN!Ei_aV$k8-1LVK> z0$pCx6tywnn0(Y{pLHDo+P*!KPIoFcQN^jj1psFTjC>2&h&(p6G#gv;3A_9Iuiw3= z90SP6tt|!R6`Hq~n+u{&2M!!4C@7FZ(A*^3VbC~)?bS8aW`y#kS_?^+mHV2iDtjs$ z8k^KEiKtG^FP^?|`S|$6)Z*f`SMN(`2k)0}-oe%1c>lv!?%qFr?)<&C-aT{v!keG| zoYcqH-+K4<-B(|K>zyxr?H9iFo!`Q$us7bLu&IV4W_8Fa3?Tf%+V$&yW}t%?X2Gdv zSaVn5nQ*T|x;}}93x?Lf($IM=g7*mMxB3f>=gfgksO}@!HO_BiEKDCU&0r|^?lGzP z`}ui!2o)~$65b!U{!2)>I{;xVoTDCcYGk;nx*|2WOS@fgUUtaZQpd4h4#Q3#a;I1s zBbKEIp;(b|=2fm5V;o{|`#4J6B>)o4sEQ1A8KDdrPoj_qmB!ER-?xula~$$pfrEQ- z?8N9t-}%Eo{F|Tt!C(K6fAx?5>&G8|{Ja0|$N&28|L6N(|F#7r5>nE(>gKe2XPjVx z@ubFK>o!+Uss5!a=UduDJ%%MZqTkpxWky=#ne%5)pFJ}-?Bx9X_{=nHkI;T5ApCGJ9OtiGLE8HV2Tm?6 zUAlIyZ=j$2-qzNl1fd3mR#aG1uN0zD`IPI(kjY46=4_xEs@K)jT9HGNNpE*oeSJ+y zX%T6{LNhEwOH-4U1w<48Prxt8*9IoQyMb-ws#-14z9w4&WTqd|P**0TdOX5B3MejS+d3MT&FB1~@mj{O;A8_H5GM7Le_~8zO=H>_4y%!T?o>Dv}7^@n>TAibo%Lib`z_peHth&6qMzH(&?|g8-kL zB3l?^F(W)WfYqV()_T}3EU5l;Eoe>zhb>#2H4#R(lB|qF!KDga#lp_Ld$&WkkmUlg%lrEJGcv54 zs54$RF_CC*T_h>!jqTb;Pjsltudl~jTHD){4*64}JShR@7=B37(6M7eu{AX{bk4G} zvUU|lwYA+ny(VNM*dH9y4?y9(#*8|2S(0P^%$f1Ix%o58Z+`9zH(q;lVR`xd^;gba zzI^A6H}Ajwj&!?`NmTHnYMRe}@v9a&z4O}ZSFT@w=l#$Azd!xoeo)CbHY*QPX1mB8 zPHw})r2@JlE`UMkIV)|PyDmmE{f$coKcOoOH#Q7)%DgdWz{fW4bm^kcTJva|vb!*j z#F3BcSW>7uKBDM6Suu>jpZ(T4%1@L}ORE9VE;XuP!LXdPl(C`ydMOi$0o#2fa#}T} z+s=#hr{jatgkZ-Lj>J+~FTNmLf>QcZdXF0Fy!>2NOv0!8awuM-ykK|Gq?kK~$Wdc_ z+D=j`bHlJ6(5N##^WwEv@4frQ@BP{T_rt&Ypa1f2e)^5?{=t`i<#*ov;G5(c0(Wv! zGP92MoATUtDTOHU`AZiDhWZEeW|$Zqo1PQ~C72W2k!qy<^zxaxh54!J$>S%Ek=Z3c zPR&jYj}FhDToh)dz}SGcV5_pY(a9+q`=#5r#%5=R#zrJk>MG`Y^f?FnXD(j2asM9g zpnqs^WMXvi_|V|7f!5Zh=H^ED4nz%}&{IZhf{IdV44FNqx5oq-jUuIm6KUkDS5?Y* zEz8c9pocw5@&=Z(#}$1 zoFjxvj8^2lKaZcg?@bN$0{7Uj^Rn#DaX4>`ObrJE2nVMs(EJV{v3iA{RcQmeV&I)$9>l1K+$MR-WlZ zVgnVk)%6#W+nfcLIWSqJf;5Vkwm1clE^fuM2=b1lS4pN(!Y~Ql6G5p^XZqMqnM0Ql<$FG~ z4vPsjkx&*K93ux}gp9n%i-%D3sMORHWYvk-DSs+aGl8%Ixc**PqBMa6wY9ZItl&C) z2GuTu}QVL+T1ncPRMC0uVT)nzR zI=YULmO8V59nxN1E8n12N~CS^?DDDe=P%#9_oZL?_SC|{)WYKBo3~Y=zWUbN7p`1= z`*R;k&*0!+zIOfgtFK?V_R6O}`22exe*WGYZ~W(<{4X&qj;qc9PBI}mnI-^H`6Hke zL`URY`-mX2(PTh6LLT&%z{bfeFLixWkR1Wcn+(fJ%BZRj5ooHj8r9033f7? z(B6;`VK-QPmirVDp-?s8It!1Q$Vi_9pys;ha6dOawXdz2CX*!SwSONY!n__hxIe~i z7?M2I}_vAN`XHH|~wio+__tRGHe+DlDEs)0f$c^O*Isvs1OT)e9#V z#Y1}sdXJBt0Pj#;Hlui`swJr}`aMWuAC~Jlc4B0FL@la7>cFu9G(J|TG<$Lpwxjxz z*cVRI;TNfG7jE2`KD9V9Jvn!p(mv%=tia9J?q7W6`o!!s#eQOXN{-FovBB=%E?Mq$ zW9t19q0$$3Z)2m3YHIgibSu4^>5m!HCX<;ApqpFj1zYl&maC zELp`Rg=OVISLd&>kB1M(1oLdGOe(2RE5|7CW~ufWnHFz4NVkzjB?6eKRyI8)JvAv{ zdqEC)BtIvIUqaUBOn_52(dZEQVcTnKYML4w`C{}3=jm~8T%6u+G6hA=vX5qZ8;;%D z+(?86><2Zdv8t5(-+ay8Ls5Vn6T&i-jbj0ll}qEdS8FfS+3=wCk#|mvbMw6982o_GWcP@u5FK917%&d@~iq zD$m48;V*)vp=)ua!-w{JGcpBoQF;qXxH9|phLoFt+hIKs&hS22Kw`W0Ks-Ac3-MWL zqLxEM{W%>X!VsQb!SV4n=EG6pu3mCrt|uBC;bq7*0POzbIy@?oNP6=IIrcB;qRJnC zBJ>=PMDg6}b?d~AAAV#7EXT=LNr03FxpGDH*XmD(*yxHF-;M!0D*)$LOLUhHiHA#B zk5GNpsz>aPMOS0M&Qy2;#sNLz&m6#ZfFA>Y*uLTCeJ{B%QI8!m)N?_BMbxP=;rM~j zCN|e8klqna_KQ#AE$*lQjk{^|x~(yJfkx=|8j4xj+408DzI`wm{g!a!PZfi5$Zx*- zx(c>$uvX9 zhFjb83aHn7OjF0f;okvC*-sw{>m*kQ8(6)}8CO?!5Jx_iw-c zy0XWa*|}G4-nn`E-uqwp%3GiQ%#FKu{`9Z^+rVHysaj&Ih>m(vaW1zWqzhyMOn5H7 z>Cf0B#tul;m4R`8-2IRUUR-+k8;OoEn}wW%aa)wc;e8T3LJ@KdZm zBR!o5gn0XtMIf-4BLvu>w3uiI_6J{S+t&Qd^nuRS>e9kQNE(00n|;bVnb#1<7xE6u zClQ?}<5_5_1P44}X@gT>LA__6A@U?7CbU|XPE+M*p=WVEC=}^zd-n(5)Z!Y4x#7^p zy&zCaBd5uL@vgpO!xKECOU>=-3pzTw`f6(Gkxg2^&{|aZw)5`YJHPO)Z_Uijf^NFX z;PJtZo=(`_+}_&N-vi+%=jY%y$~`UHRn=w4c!htnd{`iNyHP}KqSD0T`Ap``^YA#+`ARd!Zp3CPuaF#>ZM zg^ebIGy7n6==&}vqXsI6C14bo1HHJsj{c+l^cIjvNReDaDDXoFJ)xdm;2stf$)p>8BI+&2Lr@p8A*DIF zM~NXiI;JKkAaE}2K)Ll)6xhH z1AVK?MH#O_xlpxU}uEt;Umt4 z>0#->yO$hW-%Lyy@(A$u_Kptl-qzLz-pk6$2skvErWOgzJ(lOFt*h@J7%VI*)-GW1_%Q2M3wW+G4(1kZoT~cX{2jdT-+WbSt!r=FXej;Q{ZhcuIB{1i1Xj5av z`XO@)pk-$t9UeZueD2)L?983J_r}M^PA)EJpbOk^7(qHlT-hcA$8VCbr@tlG9Uh(3 zI!1rAj_&@_a%&z{O-{_FCa0hPrry!?l#aIMuYL6O-~PQH%+1Zs%+J!&Plh~}3H=*8 zd%H$K?#vVkMP@r>?j4YqJ}f;3s!M1eogAH<4O)!=C~kjZd~AAQfv!$tr>jrT&ntAY zXZF-d3weysPD^c4$3&Kg>YY7ZxH^^o+fu^9A|2K84LnR`CWT zy{4i}&w=7%y=zLWU0YidEC3oWug0$w;Ju{S!jiln0!c`umqO1>KzLAZju5{5 z7{>0N9?d$67r}OkzQEmT0=(1^61DnILZY1%OCp;g1ih1!6X6x(LV@>$&p@>>a^!vx z%+Yv#ZRiphxZVcIit>&gZLFua2&(VW8BJ(Xo|^#U;r$*w&;Fr~au|lHmyRk`8ktiNmdRVSBP-6Q5i?9+pja>t9{R&sDUL8p9 z7VE3-G7im=HLI=J_XMjXUq#2W*rG^&k@F}jg({>u!Qf8rgycd?yi^B+E&D}tBw%&a zpv>>0qg*KCpQa)QhIR9j&B4gMH#IPSt}Y{m{EM35Jc(K>@89>r3(v1!w-$iIbMsg5 z%keOm=3S7LxEW#Yi6#a957=2Zl1r2b8RS`WJO=OF8hJ7V8Q9JrH`Bd|K*LBuX^jOS zxf~(w93v(l;N2dZC*Ym5j@1Kp+s~fs*1Hlb41EM}@)eJ)0Op?99!Allq{jgD;;n@F zsA~0rkVO*|8+`up&?x>{Hw%)x=A;-`jy-alTsA5HQe;^t*v=X{Z*XUeq_dFkgowHt zD62<^2f^GH*iIJUJnC(-bJtG1-8{j200sCW1smV=N`4MHRjO5^0AfK{SjV*S&$L0_ z?J*@gySkcND#q#pGtJf~w zxN-T`ty{0ZarO3Xbp6ijuM>C|Pn}#id2(WM>N?i`##@)KUcY=*TIBuDe&I`a9Y>{9 ztKR%P+3Y$11YMo5@&cbF1SqA(X|jX^njM^M`O=vg=>~w43Lzdy&N@?LqOxeiK%m*| zGY64m(yI+nW6lz{JRxP+QzRofwxW&fhE<$62%DpfrpfybfwrhsP z#YC;OAA#+bVkgVXg$vcBQdvWN>m~^~zJaiuk{YTPt82=;yF2=NyT`{yu3o!x`|h3D zx!LyiHm0Puy88Gr4FHCFdOCZ$I|EXMwW-~KJhx0PlM9}kn@|2~ZR;qns8Tv6wU4$i zzi@JXZXTwPnkOem?%lur-S2aS za%#CAwlW?krYAvhzM98lCi#+HFU8m`xib4Tqf zDgt|tfW4@?GLU_8jr_^d(n7(~yxgO-@$fdfc459OdU=(3`Prq=zPON5gtub|ZaVwI zB@j+R+8KW2Csj}E{CqFON6Sh|Mn&hfCt%GP9kxld(ILI`^5#&2nwM)P(qy;^R-2M9 zk9?A&aSw^C{e6Apci|O7tgX3e_3Aa+o){838_VG2jHjn0!#}f|W`#~D^EtG44}IA( zA3OpGMp_g=#9DV~$VF*<@(CaSV6jn|kkdr+5q;Lm z8JUKTjUjO2;63P5Pd_az3)@Y9kZ!#y**^%ppekUb%y{l4a0;%S4)zYorLTLwdd+H2 zfVs_cCAU&yptL`gI3e~DM7cROygj5iMqC}{2lR&RKd)Ny#0KI0gvTJ-1STJ(`1Nbo zxYQ1tkww=E;R@PNli%sniNdhOW-X>GsxZL99rsPs>1Dr^78U# z`3?Rj%^{-hm6esU3IdIkA5&A?NJ(wcKcrs-)-3Jp?zXBOgpxI3v5eCf&J%SNs4ic+ zB=7FZ&6`(m-ke4z7v?2VOwG=nzjWo!{Wovkd3E{h`NdPG-~9AvHGt={X?Fn7RG~6e z2mq%`-4QCj+nVo*8i{c9wzzpbS@vt=Q^EgYt+=s9j>nV~i|B?`&&p zZ}Gw2p}wj4nPVfz2>WL*o>KtT*RSZIx38~zXsCba*ns_h-J-OWRppohWab){lnC4PBmjTZ$^r?tR*Q`21MtKQ}t$wsbc~gFnZlJV^9*<;r z)kr$l*rEa`2{t8oJBE*_6MR6r^c7J&{Fz1I8##u&JPoQttI<^hsaiFakV&FZQGT8(d$?vOxS^F+8_CGf(?skK;u#z8|KQ#|DM#X0t$HNqXr|$e z>VPw_MVXI598VA-#M{9jS_nWWH=xfJG+w|0?xP&M7}EwasJP<+%Z4-HdThN`85>|P zVuRB7LLapGPV;!F*d4C|bEnT7_%Q?>&# zm`cnX3Qpbf1k`JAU@CdS0z!Al0Py9*wf3j=q)~$6N0%N!6#`<*- zK480e>Lb|YYEJ^TKN!*V2;l==hw~A8k5TsrKJ~!E5sepV4eQup zl`XTE?h$XuBP@3(_2QwHMOoN{sL+eRAe3{&w0cgGCBXZX@jz!2b0h}9IId*`bje^G zo)a22Z`}^JB{A}mz$VX!n@OHh(UmsPJaMRt_2i2|KZqq$xXkC)9ywX6&7R`1 z?2Mc@iVY&3M!kqq7feAE9cah4pp%m_r3xI>Skj8n2c?$>A=|~;6DOMsuuCHlPV*_w z4pbNYVF3(dl-oGxMY5IrYf}ZiaWD9VFK^kLlabzTDWZtCD=iTfZEI^jL8(4*?9B4g zjoUY0xpm{}jjPvhUZYDWmZbjqp`zjfF1}Jb`J6m7a#u%Z`-zd^GiR5@86|mX6`?4W zGbL-aqfJ71WkFs}a%iNILLG)F@rSguWe3tQ!?xz;*2c!A)2C0KoSR>my>aK(*o0=w zon1Xvvu>8|GIw%*%&HHeGt6-kI>Z*%4B0Y619I2fI@=(>mmnsh4&K!+0rtV6ew4dc zOM(7gNIo?)t+$NNLhqo%kLwpUqK%j{mAT=pv0~WX+t=ODRNv9nHa$0W_2%`q4!%X} z=-3J4f}b)uH8wFh=K3_ZG}cD%Z)&Oo>{hF&sjg^gZm`M;T5H)IYcvTjNXbyD4=T}e z=v{$fhep9vbYwp_Ej5X>0=>yELGkdOlEP}TOm(?Hsz=z~)KJR{@HW^EwDqy`ZJ580 z3;(&#h$yH8?^#*ee1(PixC5+1dV2D{eY;bW4*LY&pOurP#ijK^WDoBbSlO%iRB5W< zD&~+xlgFS0>|hk72r9zBs1L!B^3pO9E3fi@QxcPmAM?~S^bwOwA?>E;o`>yVmUxP& z14E%zKA<^{$wOn|U{;B)T$GdD)84vn?b<+X_wA!XNT)OLy@dN&oKyma^g;lFnL`Zr z1r+!>yc+z%KeWUT@j3}9v;0A8LBkc?*A z&VBnVyBSvH(D$A7@SWxhZtPXx2KoKEBQRo}jxTo%_Twtd0V>XD`eq01C74f;f%(4E zic5?L+U1)W0zbz_a6KG3TOc9^;eF7tslUSEgFy+Z#fy;8&v8Zw?dwAO-F4E0AiOp* z-~ylb4M4*at_%BxS_kwdvq#}nPi$bE2oJ!eL6XV|H8u#3v}5KWRYnVf*gF-Xin%@< z`1ylKd8EvE5|i8mp8JQfKj{Bn3}QQYmqp1AvbOH2`$w~KgQEP;7eI|GAd(W@%1sWF zrDU^QG(xVM=t4=i=EMc+E^N0?pUh1jg?50L6ga+N{Gmg6xp`qJqr3tSR74R+$+D8w z^Yin_K*$GvC>e|v$@kQ=!1#rXF>G&b(^#WiQb%p{udYtQq=fcHOH0=_Hq#| z@#>B9m#*p+ruX~3H{T`ifMTmS)0?d5$H3D(#115<;qytlzGe|ZGsH@DfZQ7@QsQHe zbZ?*!}=^iZs)JlRi zW{0?j>1NfHmtWo-Vf&VxjI_?CM%XTZMyq=3-S;TlC>f!iiPQk9RjE#0O}TC)iHVjq z+4AxZjd2FWG20rg>%<=r?>Kwm{PmkR@%j111%j`7T49j5-5PQxE}dSwbm@{b6Rn~; z+FO?q2nh{UycHAoV^VzvN;5j7U|5l=*z?sq**zkZKxBh!oJobJ&&y zsUU)o)?Q%x9@vpXhqV!pKX|a&(l+IlhYrR+``n8-h#Acv*Tq6I4D|#MVIp$4(MgvA zwT|t{J(_{KV|I%R^W+^Z3!mNetTZ_y14b>-DLjW`L)rjz8y|;{OSkPz=Rwqa>3+uR;B5?PhN1$I2=oWgck?W^z{fGH)w?0~~&hu{)y$D&yl$~;9V z@gfJVwqv59~eGb6^D_J@oSR5^N8gJOc9=pC`75k3RgcEkHQz{yDb8^9bpG2JPMl z(~)|A`^D9(9&zL(ch}Q>anblp6fM`v)rR4WV~7bj)F(6s4B0Yn93&T&fbFs?ka!C2j$kycezi3`F*AEYme z8F4?2On3s@Yiep`KdM(n*O7MUPH!j3l(PhtmF?Z3&2L9{w@3Zkd-?~JFLm_vNS+^` zSs0&PXzu80Ztq$+b3sq=uHFGFn;svXSUh(jO7vJz=%jJU_1pK)UbuAY-fI`G-Td-5 zf4#n;QNsZ((L&1L{{31X=!k%#s|%HOeCWs#BS5jJDJCfFxqL6%{sRZms<%Z_kI%K}UcF@w^)sGmr+cgsD>gv{=Tbu&Odr9VF{Nbd=rWTnby#qbU zk0rF^>cc*uC%r_lTdp5d#tYn%%Q!sCDMxT9~uVhy*>Ti$a!m9 z6NqkX5U?!n?rN*4serc@ZXO*uHZgVrb4IW`+MDZjZf_M8sjhFRJ$`(kv$NG6T1s_w zd0QL9pstR1QUo7zvXqG?Ww6`mbe45d^Xx~0!>=l(sr zHIShl;C{yk2llD=U$HWX5h(JrK|@x`3=Gji*bXr$xsWr2@_7o|x6yWBH75l{^o8sN zXeC_xENq99F#`dRDIp#YNs`&V75*U7Fd5iFSIjx2xUd8f+V9tkV1IbdvXEIExeub~ z-tV^p;n$mM!{f{fDBjCP=+L`oS18+w+X34F8ugejOi4Ds$VKcaX?<7RPNUi*Yhn^( zv*N{2F3Q-~F(ueOs2CD#UfRr{z&etPq<6sn*w4zAHu_z9I!|9Fq?AZF&#Ut1y7iB7 ze4YqaYy%QbZ^6~^bA12*iP3Y{Z({Wer_bDZ{jE3NdGDRien?gj z(TT0rjo%VdBu?4FB&3!y|LhkK44L5vFm_vj_t5Eg4_g4M37f`=sV6+@5!DFdjBqD? zPbY`4GIFRhGKyrR8@IY48BUr!*n*=Jx)5vvVMh)hktnMU=Ju^S05<;6A>@b^F3QVp zX{Zx#*1Ja+o`aT(IC!L@ygKV>&h+#Qjb&zbdVFH++=X*GP`$KuN8Fx6W#v_;&n*uQ z4@pDKNXO=Kw(W>}e#^^Za%_RVmd;5k<>7d3Kc!-3sN!+hVhY>0%e~a4HeO0kL1BJx zZ@0`(VS5Qe%&}OWmg^I3RXTL)?3ti(~ z*65*FURqdEl-p2O+1gxJU0KplTTx$A(b`RT(&QWkqpAeN{_S zU2C%fol2Zp3bcg-!lT+mRXS7K2R&y%aLu~M(eG_rx2{>cR-sTqPPUoLE$QrN2fy%I-9FU_+&Mb{2-AE& zePCbQPIAnK^^a-7j&hjntO*dHQ2+_gvBQ^qMOY3pXcsuGj7Q=I%LQPW0E9fCZlu^y zNIb!d9lf~XhG=y;pEASvt)xfX9wz%#;GEG?r-;5Mz=v#Q2I0xR0qchC5F1dV(}JSN zKI&`FZcSTv@}ysu_fBKr7s$8=N9LkeSt||&OG+H#4mk1I{MSWer<@K{X9wL!7S>MiE~>bG{d#cEaB|H!>X@fF z9v^?u6>wF74|Xbm2>R9L!7*O~uZju_l^5j{7M0i5S=%lwX>=q((hIkdgDK%MzaZpe zpe3oPsm3RS7be0LY3y`Wbe-@n2@mQOtcMO;ZQDAZ!!b5U={@m3Y)=nMQCH%~}3peiGefzVzyPsS>r;v#(bMfl+-o616 z`Oe)Q4ne~0p}a!VfE@wni6#+-3!3^9F9PO)a)l0=p_dT3BT#c)7jOp5oCK$%&6KW7>zBHs%Z+^0i=Z6tI;@uTb3%cOLcg1=I6;0ejv z=_Ds7*4Il|s_%}{4v~M@-aF8XqJwK)yhc?Xjq0U8MI?v${R6#yeO-7mfug;=#qt@Y z<(8Cf)QK0cmysz@;%ci}2b~;n!T;`_PQTUJ-QG7KUtRe_Q$u5IS9b@E9kxfAg!y=Q zaRlte1%&bZ%CbUReNB0LOT9f%9fo7b8jea)Y;K~imo+sKl2PD1uMYNgTf&qQQc_3> z&&fzltf?qv6l$$ShlE#z1{eX=1yUu5P}Hl+n;InsR_RHDliS(S)BvIZHCT2qC_M?s zpBx7upPeN;AQkfaHj#?}=0y8)%?cc?Xl+Qj0rg~gF>9O|yyxd;?b#cbkZ_P0LgNn{ z+zZUhD@tK|E(1}JS5{G4RHBdN(Ibh6nI)qOu1b4Ax#-ncmQ?walvIhwcu{>_U1CCl zLN%?BU^}*;hn2BhQdCSPFnKf6)3g-8K3p0?yapAPsnGU>^Psb}SB-q_XySJ4pxpux zToOKMXvcZST6KdVYrx)^%tFIp2-n|oUvk*SD z5?y^XEG;J=lBY^-3h#Vw6T;)0fiOt-=mdj~6LR3qv)#xuP~vt$Enj73`4b^G{ru@C zm;lpP2MqiC$zCuP5FVN_5FR53L4lq^S2HOrG>K?=jNZo1Y;`m&~;u9i_9K5FY!P)c*omo>#W7m+}qdR*4`m`gTOv;?6|GDt)r=>t)sg)NUKA~T06Vzn=Gk0G&(g4 z*pH1)0CqNIcx-ZXYG(G-8H?*p&YzkSTfKVo>h0GSm(E_kacAlL<-2dZJ1}%C&IH5M z_v{e}Fesgi?SK;uB~VV?$pF=vX?UfVUe!wyiq5i>hnfXtCXprhZ6p zO7kT!0TM?>hB2kdiHWcO;x98_+1XhkO&~5#+zw@Nvf2qUF7y+Zf{nxb%`zelueq|M zu%o#lD?N=XZ@|BBYJY4RrOPIiT2`?!r#8IJQV`E)&vlLcq z%T`p1LE_TYWz8)OHcGg+S#`oZ>X2{_UneFTAbHh>+x191Dx z1h3PQ(~=W3=#^I)U|*Jv9Gl<{fNCi@sXUG#_$wz!O^)KNIiv%mou(vRN9fQhs04Z! zB;As%$bVJ&fp{HCLr+KvQPQ*JI>}BKe9w$dLyj(Y50Yo3r4e4>aB@PT2^eMkQ7xV- z$jj%KJ@?%6JzZVWpgabSwf3n0-mG7d+o+0Xr`-G2nV1Cwo5%#zzQgnR~Td z+P#xxWClA{o&}3wPCFQO#2c8ND0mto7mNaWuRg_oAV&6a%J^+$M4n(-qzoan(qYy? z=ZLpc)+NhGD2#1De)ZaQYu1Iu<=3oTEflIq>7f-X#7|?${Ie9t2(-fkb>*RlWG!kC z8L-`&*MYAGb;hf)e=Mx$+$dWt6LO`x)ku@^Xp<+iGFIFa)imMlE*&|YE#q;-BrJEw zHKqr~2sy^?iHjaNAgKFhR*Z+@`bg(Cctlh|J=*~M{1eY+1(RN~TW_V(HY-WC9c42gS?(~JL_ulz% zY$iOveCxi@>e(yTuikn6&G)}FGrtJQ$uLgDH~{YwVdLUtL+KI&_2s%mqx%cqOb_mZkfWm~a62dJG^LS$^&7wV+kfyQSA%;ZugD2fcnS&% z)jz3<%E$;S5`y&F+IqZQy5#ZW!-T1)pWfuc`5o9^oR?i!DP1l7AirVX{(^!cS@H}4 zo$AEsi3&CG(lc^Z2jt48urf+QVyX~!Z@;daP1g4C{XUYFm7}yt6Z5>hJX$CJqgoKz z!V-xIfD3{NP$K7eGEi-4k)+fNPVH=Hs79d?>8{?6_Rdyxy}hfQ8Y6XFaga@lBSA(U zV_9XH5BBtQ`a+juVKUeaNKz1F6plEV6i+CsOzFqhS+bxP&MB_;W2D)#OrDK~zl zv#YHktYQIy)coYgZvloNTH64?o|Bc9o^qtExn7JEs@IekSC6lwuPy+ueOTc?& z86eC<&TFf2Z#5RsyC5|=!TLqu9cxDZv3HgNwv+C`GK(PMX-}g%x#|kPE^;ajCXn_< z=DE@t1rD#RJCB1V<6MX*el;%}fZIu4DJkSi6en?WLai(0P6g>41h4uPCW9ex0RHb6 zbuFOVFeUV4hNh;bT$6UTjIeV!Azo0`6_e)VTcpIhT-v;A9Fdxu?CvP%*}7w^{raco zxG1Tq@Jt8{4>xB$$8+UtpwX5e(F0QPgMq9}0|lWzwY4yBX332q z33{YA;D?R1)m%%AT&xf^jWR$&LELlCKMTDfB(jZvlIXb-k_7GXReFU{<*{o3`0TUK z;LqqZ&;}g@M!2Wf3UG#^Af0u1@+n%kJW0#SY{#t_4(RQJz9EoL{Z50gu*ox@-MDds z1ExsBD~!|&1QXA#dHsw<^b~yPdAK#Sb@JtY8c@T3tQ|^6>D*f*%@y8H%8BM3DB-!c2sP7qFtr?;$KkG4N1HJzn%g+uKUsfE1al%9Obql0mrl4N)R zd>LqsoQD+06%P|$s4kv}q5^MMI7ZZAJCugsP}&n<4!lK3ZIpJ;adJ<>p0Fy@r#|tC zPvGr@n4cv;Mk$c7{k{QEJ7xgxzOs@I#$h-+(QWqB6Xr>hjIm5@wkhmQ=_q z$j`N+bY>=}(xaA4nqc6u#KXFJq@AwLRqwW0|61e}TdyM6G&Ot8V{Jnd(k`gl+0zH- zdnq$RC;Ep+!-|`8CnsmEynN}*rR%3IT)F+$=T2XKWng6D)WvJ(uH9O?eEt0OyH{@A zzj^OI#B|7liEb@y-->^SE*TuRK-9sz^HSZfpy|06UU*W2Ue3 zcV4~M)6;ck`OMhZ7#>Bv*~<2B-R3=HR%U_N1UF?VXXoTr*VOP(Mn^{xQxtmp_MIwn zt<)o(84fyqZZ(T2kg9&WFz0AfZB>q3&AmaVms6x=&(1gr$$}d7FcZzQ_4M{+Wn~dt z3i6AyvvZFmCcp8<*d*9imrQfjkVad1z^`)rKw)dAyonECZ|U{oZHqal?4}7 zvr|x*TdH9{;4L8!=T%lICerG&va-6oy0((c-XGX|=$+o))|{K8P&CWB8BiS>Lv@KH z`8gQ?Tyl4Lab9IFsLwezaUqFYvCRyXOf<4rXVhN{@m0 zHY!cz2oU6hoI=U5c9TaEdV8z0t&-z{GrLMI7dr*s1z5crhmQrdlgmLR8k})#=CSW=}F31DR{g|jlfJd*aEkT8*j|xGl@Gq9# z2M|E0gcIP2enWL(J2f(J8?eJscqt=CBrlRUq@c*z0IjMu1HwRTz!(#&k@gt8TlN%` zdK;t#q(~MFhlJ>E;K)Ld0+EWILjIw~xerq(Y-)mRjEirEndA;T1%g*=8W}}1W4O9z zjm5F43*Hv`Ols)_j02{H%L2{>S<0Jxu5Jh|I|^;MG@ZYog3aZcJN;R+B(};JDQvPAF?Xp&iNM=_$CQ3GCh1FWq`= z;lh>arE|kG^D|55mag2maP!{cxywrzuDtP?_hq@T$Yk>%H|@~8G&E^9$jF6)C{_(u zsfE2`yv4=EN~>mOXP1_=u)2Kf_FWl?Z@v4@z1Lp7d;itt zo@=V9>~3oY7V?et0?W+ICbnz7sI*>!3Y}!=_@D$8zK7ehbLZ{@2jfw62?vc$4Gb$W zwxA$S9S->#EAHwR#}ISo4yhpsNDjeVX$lF1udXgb)N4c%8zh_tWJ6p54l~ix-V%Vl zyR%BFr2qCS4jKUO%25l83u_7T5w=ronp!N7VR^f*x<-ZnUHwD7HBrGP(5|X3L)Xi- zK+HXg(i7x?IoE@WL8Wn2l~tBHQWJVq#VGugUIN~m8f57J_VnuVqB_`~ceFS^t3-`w zes-mXiUm2Pg*la_g|uy3cSlQMeikXFsj=FcOPKu8jAZa$rTb!jHYLMzicM`zIUe3D zoicJhWf#xtDGfnQ29hu@lxtdS~^!GAvd3HQ$baeuTHr*a^$eqm4M7tm7fLPNr$V~ zKBg^Ss8~zSaFlRK!img&^HijmqHUwYf;-xio;X16h3Q~iN7;q8TAUJqN z*7GwE7(mH~)H#3}11E7{aZ;pOBDib}Vm2%Vq$nYt|HPAEa09lC-oialPd9+MxOW8a zp~f1Pz;+l&jiJr^epgQ}6Z5Ctm!I&GZsd=Uow3{%56f7AepC#5Kq3r;e6m<9srRtg zSFC__0SslAJoK=)c{9xPHlmPYK*=9j{U|$yz{gAsw#rO!78ogp3HAk-A?6xDVU`7F zcUIv^kYzmA!d(fI0BYz6`Q%erz5Of>V@LJbzI6+u16sqia#=S$%^E)WB*i8O^7y#y9r_v)8F`sHu_+IQdo($`;m`#r_2m#^L6I;%7J z>C+m@Ds0}lGp@d_;qYPM*Zt1ry$?TFT3X^0XyIUf6&01JC?S0_5O2Qy_U$`&ckSea z>MHqsMw;e(nIgG|4)Gs{W-c&!>)5-Uym}%^6woH= z3lQwsxicjtl@0Qv4N3u;8*%1-D~h%=fURg@M8fOp>Z=-{dIQC)4AX^OFr55C8Hnvc zS%nE~6&0mHFsInGC>?0&8|XvP)gQHXv})Vf)e{tWg-D1x7l5QwrXHVUQCZg6(D)r?e8ujnAfS^Hw?02C^!|M z6lWx=zIA3{PDV)qY|n!29xF=n)rQjBvGi);%QErJJd%5NS8I1?i&$z? zeRX$7tJXKcDrBStO}?sB;I*Z>p3>6h>>AVuRFKd+J6ce2gxtoI_F!cF?f?VE>_SJO_R^O`-XtwQyr?>VPWo!PHh3U0j;6W%405h8S^<&3SqO7>k7zOWU z_{fj#w5wZzPJ9D)bxU|IXn5uwg{uth)2#bX&E1oLFU3nPqB`kr$_pdd?jT{BihQr> zbyO`uD@VkVE_AYiz!4FuhFdmunjC`Qsbz5nYfqiR zxRLEqns@5$w-_&x;{FT2DIW{FM}?Rq>W|J)*7)oEq}wl=^Yvw%}&ou%;w}k=9X4ORISaqxwCs` zcVGJ|T7B=E?^o~b*d9E7zPxew+4n!}9z1=aYu4(jUp|IAQ%Hr((#om?_#b}v$N%)- z|L=ePU;po~|Ly<$<*)zccYpd9T_yLPJllQp>~T{4^l*27XXhbkZ*8g7T>JLdzs%3i znR+mDEWAhZK6~-)_QQvo3IE~Gf7;yKh}gvE7n&QJtE+4H?NdJg?%MDiQdF>M`tU*0y{qh;T8Mh67i`NhdtieX}aX{H;{tB&Ob4V_Vud( z9qj08!*;q|ZIN~^Q7fwWbU`P_*>>)Y!l3phuO`)mz!fc#td8wHJpA5{$*J*f+378f zJ`YW9c93>RP&i*%Rl#iU?6y>N2e$VQ($j>e%#Io#1Ii3N5NeIn_SS~xhU&)Jih9yl zY_Ybyv97YdsTX*5PHS-$cm}27GtfhESVS|o|?$e{4~6c^?|n@!=jdRPNfs= z06xNn>FtU@YEuKb&T>a))uscHHrbMx`E_h_(+8eBLq=s%v%Um|pd?`?Nqwm`7;)DT z9=>_n+;!K_W*qTc%CkgHY2>=sImktqm2{nfBQP4_!iy#dC>`C2`+Hm4+q(OD435%n zE?>FC+&7X|RFyZ}s%Lp=uJYOWPkAy%VK$DAHYz{*2Y7uI=)}>#cs`PlW$YIh73vT6 z+RTfl5qEw;_+c zntX4Ag-kR zW8lZvNZC%=I!@xIUI(@l{7eWZYW5+{YsT@3x4vp{utKY215|Jq3)|Az1c$H^

    zSYwS!k-~IMCzxmbQ+6ZKsEc0`^1lc@GqU|gfhLEQ&7+Ej~^ItuG{?+T(-+lAV z?VHz$PCSPs%@NcelHA*U_V}@oNJLsX+Bp|B!)h$i+&t9m{5ggRviNAg3*IRo;Pm}l z{>2PJP{jwkRCvc8)x$&BbN%Qlt`5loJ7)oDO)znOKLLJ6VSf)YO>h^|POS}}DGc%% z@r2zSn}W1WEJ#S1`@kDvIPvnBB9@XXuv*4Nu~W(%aatcL>}&_=LP-#QgcyBSRUkb@ z#vr_2py&V@|IEmlGQKy}Vj&Mi&rMDIxBvCOPLGe#L$WovjD&2BzC68!geJVcl50~9 zcy}XIk9n~WTx+vRkYQ~AbW98fP{4*vA#O)Z%Amk@6^i8h{y?eF;j4}ZTN@2&vjnxz zL01pr(e%-*1POET#9cF6gs>bpiU~}S9{$pB=i@%T_JP5pztJ&5U35v!)K8S8gBn2 z3246pgkT_S8^}8+JuBIDsG=^@O0L1}-Y-+Fr+Bq0@9ojfw4OUefNJxrVk*?&k7GNQ zbvj!(;(IlSH!!y(Do~RV-cLCiFW4U8jug~Y5~Sxiyd5O$r46S4{GFdzrIWyoaODBg*k+A$7DKe?MuOpi{}DAMLz;UlS}eM z&$Wa~{Ve5p9h-llgcQ%1YD`Qe(w7kQA%G%KSH34No8UoSl{K-F$lAaN5Dxns2{eIFz5gROAGVR8wg-u z*q98suQoc(I36>ZEsZ8#pZknZ$mgLt`n@9GP#pV|1Y9Ro= zLBEJLUtZHG-^PCXY2x@vARhb3hhG z$%=N-M!iNPJPWE@H1g*YF0ZYCXlThD2x22A$p7y4cG?58tQQ!&*bXYLBc=4=1+X(R zG$`-7?K+@dB&yic%>WT{HTZ&z*_Ks8U}d@7t207yVrv{aS8hF5q)1pv#zJWLua9l2 zZ{Rx3&Md@|Hkm^Pw02q?#s^-kY<7mjG93Wv#v;2a#j+}9!wh9O{RzOrV+E^yumV0) zMJAwtfJx>{fC~Zyn)P;xP$1|CJI0GIL3^5@tJWd~ikTQ@E=-V-(-CA@D0IvyK_?-+ zueh^KBei{b)iDQTqHQTAAO@>KO=1PfqeUcv2EukroRg!&9%}F6+|+~wA@O;~v@3EN zx)OpRCM(G_1hF)Gwe;4LI7uRSt*{!yv|ykM-d9bOFTSbnBEPsWH3{>DAflLUh5DP= zX&_iyI*cw`Zz9(4Zm}|GNYiDS@J*e=HIi9lGZC{JFd*R~v)NynHlY8X|FW7=UJx&00?EE(YU$8;+KdvM(S*Hkg1eCK2>jBQs9=DJQ2g`7V!u`SKdi zWf0WvmCcOaj$j?`;ep~6Kz??58rK!L_7h-n1@SZG2kf!iWO$HFax=nsQR@^^(=Uw& z3!a;k>2Rj&aeSBFZUoA`OC3+^2r25Ng}O{81j}k@O9-mEO3e~sGGP~UqMTTe&n{h0 zFUeYD1YbBaN5$N2HklHEAGfJvN@u-D&W}44)9A1CaUBWJN&ws~ST25R8jcvSS*v)n z@uwo{S{uEa#$}uLT@r*b2UuI2W2$*Ugi)K4i*Y%!9ispxKq7(>ag2D)Dk8~}d#M&E z5YC0_G!2yD8xgi>jd!kzlu!l21vh|mteK`SCGsbtOnckg;Qi|1fz?t@7Lps9yh%xq z#Gv%TRj-@bNK@|Z<&=d$A-vm#fXpT=l;|eFmp3Vcw7iUBLgic=ALojD`6i+eCStY* zkSq*sCnyV3JpOYM@ezXna|R_f$A$#(s{j!Rl3<%`jWAsSi3ork zZBF0xR>l)K4wVaTgA0;(mrlSL>ux3#5>z(?(9$qT+UZwdXey%nn7KS1$QkT66X1mE zL&niQ8AE9b2BL8cJ<<$K$|I}(UXgas>Szy_l-fpmh8uGp9~wXs5Ormeql}J|7|&&Q zN5Tqk=f&qMT?8Z4gUYJ^{7NUVH8JTL|k{O zM`R-0j<-8?5h^C$i?_d9oeW@?XsLd|YPHEb2J{8jI!06``4-!cZ*do3&)6<+3Q5~p zv@Pn$E`Gbbv~aM8>&|k=QxoHOV*uUEjA_2e9~glELR)Yi(?fBoM22+7jJm|aY_*Cx z(+5c=JXG2$^R_*?g%PVsKI^!h^7)i_CGB^rHvP)FP3LJikWa#iH(5kjOcJ@ zr=_8(>|>K%J&rzSZ6})$>!y8`(-T^fsXKXUt;m;e{Bq5D>NE)<;%q#Z0**RDU1G?p zFS>3lrH&&3Y=|$c9 z#yZ0_n<9T{Aid&k0f14Mtx%zncv-{>bzna5;R`GpLLTtzE^3Lj+BCyFzkK}?{tymT z$%#yiY(`pqUb4gs5C8?hG#ySUVS8IEnZ!y*^7UGhSbY<0k53cS*YSnI)b27a-tHfW zPrSz8%^_rpl!E~BepSB~0wU}YymPO?6VjK&@~<=o2M!pV9G3(%BsgztdLX>5pXDNb z`{fTm_l*uA8h7CscFP!a8Y^b*5e(CQesbU@%sBXnG?^;TjE|d80d`fXknA`m$geTP zj-nHW$5m)`)zG?b^e*2URTG1-S;J+*6%mEoA--@(TC9Ukl$340_{CyCAKZ~dH>S&8we37Qy!^g#Y zZOR+27%cdkfIUNsaimMcV)T^>SV-a7n1(deTRug3_)vvtMw;Vz z2SIz1a|y-{oaN1K0^U<}$T4T4d2hea{tol=#kVdj{)(a-Q%8=mQH5MNVIn!CDo=D+ z8kV9{u>FVczIpQL1H&rR2AqYMd`CsBTU10u9jfD^FiqgX3r7MYbJLSt6&S=lXeN(f z`02J_oi$K^se|Iu&p-RD*wx+Fi?|B83>3S2Dd)|@!#mfn`JxMRW6{hiH8|G6`DNIC z;)D0)!9E9?!?0;w0^SLM@TDxGJZi4<)Ik$2oJZ$IhWc?K(PQym*WAm6K?X0oOS~5b!wtQfxr3sg#Nfy)<)$eR;gViuuH=(*-3)c(O*xbUM$w(-=JXslH;*y6L@}%Tf zJ`-c-1#o-vks%_XD$QV7_@*5)FkG1&lz{CXZ5n|%A#!{Hf(^|;lk&O%egXK6!~H+~ zhku0ddXza*U{?x6fY}`30kbR2j~r1IpDzG2o(RW4 zw8e`QA6M@azo4t ztUmCYo=&Yf7m+2pq@FuBj{Ff2t5Nc{&G1yaW{Qt11ln`-&x-eMY4r-)Qz?nvd%HpmA4ALwwhKMN~%yA4Jwg7YRSUYHG(_>5hrqy&nl7>-|+al4Frqn?!H6`*^5g)JIT!9DEJJv_kKx36ps z*tt-@0+b=DMkg2`j2T<^YRg>{9%SdW43gx1lvd{Spv6 z_sLuKp5Q%S*D9c$p*!-akFLn)28Sm){-jv6GZl_s0|3Kc`|Cmh=?oKRz^@dT8Xfw_ zKmPu~?OR4uu*EjETi1_l>h{Jxr5245YBrA+ZNS*!mF@c8*-5W!#g2U$r+$KXSSuH= zZfI|-|2J>m^cStu6)UC6VE<6Lw?sLw?(ROgee?42lG!eLhQhHIWDK>VpEvWBxfwf{ZwU0r(LjHA;)C3^cVgiej1&%scM0hbX@Grlkp@nT0tgGycryzWnPMEk^iw#Knp5w99@M2t~eS~wJ9&zU_-@~&y*g*b8~L7 z_1CX%hqUTs8Wa^{F`*ZigZZ`zL3LY+1cCzIt>TT1Dh6;wi!gA~U;pZ24nH?Zmjc`Ao_cV2uf7^e*sgxo&5%9LU*!Ylfmgn99Uv1MS?P&&AU^Kd zXP^W2(6X%Z zB&?}^Rld8RzvNaJ9thpDi&EwB&9Sa76B!HQ=CCFmh$3i}j5RPfBJkW##OR9A0rjC9 zO^v8oxKKK5S4>a09gn35&iFD$=oRauwAm8HNZiK@An+ZWtk9R2 z5ZuGllk$k*#TUa2Qd&-pI3YEoau_&igKml!w^T*2g|WM?!IEDcU17frAGW7hO&#+G zk8~z*AYdVu;NPP3&p^7`3~0u7q5u&Js00kkD+xn#dB=CxW%92y5GeUB77pMw$Mx0K zySHyMd6)($7#E|aNbmtX&P+~T-QTzK1ZlStXW_$+f@DO|7gj@n+T+n094R4odQjwL zB#);249zg52J0QabNo|gu*bKH_Pq5$`F7V;E`?b9@nV~$OGPhx(pWDqyxE@ec4!fWhmXfB)-W z?`&*P#mP~B>S0J^hBDja{PO7&o3v3WG!-tvu?(jZqazFpq4H3VRxRFTF;`SpQx$Vd ziX{8QN;kvjVUr@o^v8%`mAXhQ@+3wGBqni%3V4=e?b5zN8FNV!QaivIjyb98mKe}= z;2;ic)WEn8F9_z?3}YxYX~6c&vdtsDdo#+HSxkZIFxYi*80=l*0U4T$+ypzA92-;E zMazf=PHP2Wh$#10OorSz8VXY`#vV%v1i1p_6Blh0`!!p}v48yCZ*Si?(kXTX+W|gk zRVUKSodI_75hkOg5DR>;0&WzVq=WR6JtunpvWR0`%B zO;;c%U^hu)1xAY9>0=JGdK?ynhoAv?_!lpq2_AX{+Vb?etxAEn8+KQMcT+869}JQd!BKZk|!)AU)`M!gk!C&VoD7(tw#&(Bpp!*<{w)Gp{;d@;!>4KZHOEHS;9#b>z75CfiuE+TF$Vy8;RQ>L}1*<`OfS1K&b?^NVl4rGX;@L&N?4N*gBDvbnbU z%@?n^Iy6EX^uqoS3vmJ|!nfjrAX`MmwwtL5Jhq)1g1}TUg2`6Oe7vQ%n@y#?f`X`l z)mGDhG*q-VMj4tz%GrCeBMG)cewYvGoq9AJ@^q7WaH=-2%uneo^S^em??q$4&ROd? zA$XBN*DSUo@J?;=w;|sxC^x<>AR}yRF@nqEs*Jn2E3}9IC=i>a2GAD>(f>T=Ndh^550e<_}D4W@0X0yFde_V?d= zkDY3X$5CLo6y85+h>=2@Up{@bz2O_A6>b8%2E_;4SJdz621|s;@EH^gVIeM-jRpC@ zI?FDeOR5oU550}GegPa}CvEn`(uon6b5c6O5pyM+4l<0l6Ls|3T1mMi@UA1AcbZTX zO+WEne{{)f0Rl4KT>{9I9DDa6c@YRlUjvI>F@-KskD%Y-he_VIo;qMPVh>lX_4~vc z>l+yway$FN=f%}|4cr4;@W);&C6hsFQZ8U3t?j}%{;al2_y~a-)5BRW!}*-W*jO6J zc$q?mBn9np0FxI3WJZk1(lolmtCJ9}ZqgXQKEO(cY>yf75s&cN{%EXNf3zWXL^x$# z!f~|JA8SiIACHLrX(^%-D3q|BkB03ODZG4IRE6!LF+g7I-4QcTJ17en7x9TVZUC1F zLIm40B!UI@n^G*XK`pvLsbDodWCZ~27}LB6@OB3yWR}MVz^STuig(za(UtAEHv@Y* zM&3`3esZrG6yUFsg#6*h4S%R%VgAmI>tI22no*M;W2HQB9^HXGWP~Xj}z=C~QW`Z*Bf-0dRNjSuqi_y2(HjrqZnkCX88IMzyZbEll z*SkpG%t>pe^HlfGfBFx9_}y>p53!Hk3rc_;__Gn}564XXm<)=pQ}SSq;$hdhgMc^G zq`e*Vy?*(*FTgy1^5oNd@wZ4G+`V=0_KiRO{`c4R_i3r9V5L~LigdKM_rteeTaMKp zGK4g^CHs=-2}14E#x-C8D!gq&aORJS1w!ZDL@7!`MRkfibrF^ex(32qg-rXynJV2D zJH@!b2q?%e^1upJDKAbE8)b?;5Zo*tI52!j3nIJ=ud~QDcQzSs&5s#YF&P;>s2VEJVNv>CQ_(DTT;jw&l8m^`(Pa$HZ=}TE=HMGUJBh}oEdSE-G%?f}L zs4z_F?H@`2@2-#`6@u-KroEA>t6BwGtE+55MB`{XZN%HT8xl73lsU;9L1m&%G+bk> z4MhF1(ehk?3u_ zn+aZwkuO;pEWKWyn|}J};mxB%s1BUXqjtA8xCVuhr~8Gy4h*( zfZMw}O;w9MJ^^%$?Rg26)Ar|_V7r967usz~?^v2!7%2C3cXq>eOxtwNC)(B)7a=v} zAsJB6SX)~ZNe_q)B%v5o%Y@EDMOQMmhlVC>@AIiTKa`7hKeB7P$hg98%fbFwkNKL& zJWk)!ov__xNZ7_#Xv9watw13NtEe%vlY|Z7YIgCS2jsC4f%nd|g5wmn6Sx7OB(zb~ zmHJVc_$McTg`QDdShrMDbuB4PlseWzcYMqfiVU2j34^j40(x@W-<*e;Gln3yw0;}(xlGgYB8=B)?}2dx3K zGgB7OuqK`dSJX#Gt%8|mF7cHY8_{dLhTqO8#2j&HfCfw1tWh=rgt3gYqAuT235pwE zj^a2}<;5jkb|niopoDC#i-rK|Rqh>BqBfZcbKFlrN99U)S36QI-K%-aDG zoHv4$Rv&>CQ_?}@DWr%x(1u+`$0rMTWZOs0{*djd^d?=5g$+yHv00RGY?X|!^!VGR z-b$OAnvSm`g+rjm>hb8w^o3`R*kG|f(*YRH)-=_2FJYh6rFq!CI6cKN`NP2L%M0G? zvwhcRuVMS%)`s$jJ3E9dR3KSG&HLL09(^&!YN5Sp{&sYy{MJH?H=KGWmXrL;={v4)o2~I zdv|jal_DkG*CUjMD9BT&AJ&mA6R<++anM^d27uGR&`~tUXIeQLe@aH!VW5B5jMAcf zGIk|(Lzo?Dmm(}9MvuoAIxn72uehcScpgEKs7=sjpZU$cKE0r7X(2`3Bl2J#>J<#| zZs;?%vkTkf892+OX<0?(^C`&1+nEoi04-rV3`d5cx?{q5k=SEo2IC$LNOOM^y2eyj z0qK9n_Be&T3F?o3Qky3OI4_kj@_m9aVlh&)Ns6I_Bpv5U+`w3b=9LC52^Boif( zA_@loEi`~=wXqIPN54EewLjJhMHM_Z#}@bmw+on!+KoV?xCS8TD~b`j^Ors*Cka_$x8UKLgiy(&D3sPK)vsQ@Twh=J=PsW;eJc9# z@ZLRN|FD%+C-!%CU=i};>1R)$CQRY_t@TwCBQ6F_ve)tQ$|7L5w0h<8s#uK|m$uec z#NoLuJ_x?~;J}5m=Kvee=3QaSseqkQn{~nYOyez~1Sjt;zWvF{h`2<90zTRTKSxJL z?LkA}1!}<{B&dV*#GJMn%K6AS9z47B_E`{N;6<23<0Z_OWQlGpdr>!{!zfD?`=jPg7-?vLkN zLWS^t@(BU~8PiQBMneQ!C>1TLGnGzMoC3H`wOmIVOzLb1NPmVY7V*7P<{0~D0A;=r zNG4s)6pm)9Ehlhy;`q-W`&7>H-o=dS8Q3!*XLwhbE&)l2YSG)b03Mv2`KQysc{Y_& ztj#5OkFNn_uvI3x?AYGPOtg{cz_kkD4%to5iSLpE8lMA1xy>0mm?WvP?y-@p-q~C#oz8RaTpXkE=Mc^lTVNy>&1McN060c*h^lQNqfWS zD$zO8970ao81q32+yIamv6 z>~3C$?Y<8KR|VVC+o{mZ3qG|xp06E%-}Kc-vn0suPZf9_RiMZR@~OEc5`Qn%Qj1S4 zcfnZe%r-BW*$fR1x)HVm@VZO>n1zJ{yZ5m{X5ue%*+$jrCoeaPw@;5xBJh2^{-RAx zA9gl3zk2Bx9K;BBBl=H`>g6?^8M;Ai>32Gh`Ox` zV)fy+d@!WBIc=mV3FDyav1DM>>wP@uEGF;{+iQF*H-+`65dA?=;U0~G?UWn;i2YY- z+bwL*KQUgT&kI&k)QGM+-EL(4 zq=sDJEw%@qXGqUS5SoiQO>k;YYydVK$}MqZBNUqnWB^abvSe!*pW%=b(_-t@q$US z)PlQgMexsbCZN?HXe$?=JiPy}|Knf&^RBHv(wYq4*0qq0i4f& z@%{IAZrv11fA-|D&-Pkply`Iss*kRNbP4r!goO5%$gntw2MKXw-Es8BYbLgn$=4xSvrb@~uHv16N-1e{3^Hu}YH5XRAl3|DA{4o*!%!q{62~elp0*zy5#c1rDHzB;n+gC@n+GDn@GwL@7iM@!)wRx8Mi9&hyVwHlXWfjdC zsP2@?DWFx%P;eWnGY9r41jHlAD=bJtKWUm%iSiJmrw}i{3?;ZE9*5|tqBct)1$Acy zs18G*d+M=u(7Xxq&c#;5nZ3?DN*a)4>p9!@JhINn+S1v4L2sj|&H&aWWAl7({!$p1Z2gS_DTmdFD z)8Og|I%GLO18Ao1n{H?=K~s#C`FUy}-fkl7+YZ|A4J^BoI6mr~EZW8Z77gC4A~hLy zI%{ndutQx(G(HDsXq@1TSc<=wI%1=NJ&+q+Y1PyFnGP9T&ANL3TG*TZ+^uEGNgA{H-+IcJQQZ@PmQnj`Eg13YB_!vz3#7#0)vz0TJ zN?po;oThuRc7q!jTnaCS;Mf@-j%XI>!?!4BhIfXL^eR4kRh7Q$h5U%msFU8hogOL! z`rd!FY5spFRFx{^>vdpa1*+;mr~I3Z8!U=#M}CNF`Pl7x5fnc5K`>NZV;lhv|QQ z(}#7S>tYuG+@A=9;jtyghT+?{T*v3Jcb0__-H&+tXJ38s=8IRa_y}5t^rFNH;9w#- zE;19CDfGdL@qESzsm$%LAWR$DLw)AP^c+bwds18hm;-#e#0!9QqELpzf@y*yBGD1& zX^c-~_^5zgG?XwV#&IpaP9~ILvM`V~`2Z*@CMdlcOyot4gjUdRZ4+&S&tN>6yj|k{ zI()QQq#b9LI3vs%!eed{!vP4y!kQ?*+5kwh$9NsdxSPrWy)c0k5)pL=@BEr!VuPHr zI7`egdSdw!zD4R1&pam{WN(K3y+Bt(?t`XkdpTc27QFt>R225 z<$9^`6e&>@MNtDamWEQfB$c2lS3B-1!|qPE(G7Pe?S64}5;#wdv^!2G z9UuYn5FkK+1PJn!bP%8$`F(4Vx0MiEN9UgZ8TL76t#5t%+iUMLNIBfNe92O}kj`RB zo-+4Xog3UbwLwb+=GWUX9&O$dt$+m!0_bd;-i}e3U1ZtvwQJWBY9!2*mL6r@6??Fi z_JWR7f;@3Xa;dK_KKa;VZbqAwIq7!irM!}nz;=Pn%r)XAqw?Na0^ZKFa0bARu4|lX za>%pvtHTx8+mw~n6%I#*W***)UqLR4&OEdNAUQ~%#&#?A^ebep1G9wZj&dy1oyPXY zbH6GNv7G|bXdhIsF!3Poy&}aUI)K~}xc2CHE-pk}=Z``4V(EgEU%56DV+Ksc{<&_6 zGagj^na>wCw%4U)@+2Y0&gCOXDicIRcWqTpfveCS;bf5LMI(8JIoet0^ zm{&3+!i5D)X7F56@kmj3zKs1Mw@ufV8_>arGNvxX614`H*fK5`NhHH+7x8xnZq=Ec z2PXG*tEW=0)&T7n!iz!LCXnCmDvuTd7N>HiXwEfdF=3hSLk6D3H5BKBer}3w=v{zy zSWO_bdLGrMknm|ZpH_xRI!dp0HgyYoT=Lw-GpCq`x5*@=u?qKm3hv2ha90Zm>`D2U zsoD-v+=6qu93xa18(6lYRmd`x2434c$^dgAV73_>z>f*ne37s|UdGY*VB%5r2eD_u zi-#t=+0$B?3g?r%{dm=!g?MG1yld3V!G2iyuW(w$G=`q^Q{VQiw zNxt9^7ZNzwhBt1kH);@r*MO?;JTgKvbSg~lnDniwNb#WC+tFNdh@vg&LW(vlm(c^_ zm3h;AK~fD5VhMR))$!^EZTG10bB1XCVc3qDo4Znz*4)>dSp3>GQet*&-ek0_c(-%w zW_`pqYNHt&B?r%K$>xplL3^|H z%Y>C43)?kB6kDh+kl*3ZmF|ry!1j>#1ybg8V-w=iQR^xj*Xzs}hv5{VE0-?mH6wg6 zMQsplL3DP%XyGygofc_oslhVxJ{uyQJCl$2X>4g@Qba5{sjgDSs9RnjApB*w#fvhf z%nTXlkHdEN%i|ao+z!f_rYs6ZG#S`lbiKuPRSE-#{{eRFH+uVmC`x*OGl5%r3?0ZR z?8ywefMpw52+OCpTk$KJ3eSOg7l7Q@UhtkgM#X{7kP{MBqRC`?vveK=*!$0iy#0YV zW4EI2!CpUcG!z<@(tJZ#Krt_1pZo}(v+y==OAusF+X;G%nf3C%l*(RE6L-hFd+E}) z5XaJns&Aqp6$~k!( ztWR7VKJd!T>%aQdUz(s;s}>Gp-N<%jVNFhqjme9K(o}ans!}_RtOeet%E8|CO!;+m zWEg;(m6wJCu?@5gO`4p9(!z~%@+^BoOI4LZ!`E;+cs{tw^kRtX3^3k`jYwf1e-iod zG$MxjJBdjT9OV#rWxI9GKuWa&NO^G&i*8~M;h`CC4Um>BUtz5@FyH=- z=Yj=Hrnl2Wyt;)UeoiE0s39%d!xzScGeV7k;>J~gyyJcy0?E@2lsR~#crZd+I8Ium1<(tI zfT@`1qbAzad^U{)b4k@V4jkf+JTZoo~^$-2o``Ib-U+V!>ZN`6Sj(d;yKjHU7u5e!|Yv`p~? z->KiVi_1ZQ4 zXzaB<&%;BrWx{}HWyP}Pt`Ei~tmw?qw8h(XswNj>MMi}P3hC3-7D#t0%^aDDTo2@7 zyH2Xrs|Keg*JCuoiZ8K(_YLC-N!sZw&5N*LYkZwY;OJeE9nbkoA}xLs7#kgLSZ-ogfCNJIMA2>jH@a z2A=8cHZp$ZWC`9CeW@sYqo1STf19`c9jIhWjZ0-JjKrSbDbhZT?fhc8G`vIa#&&iN zZ>`vdu1m=Hni+&J&P*cC%nE79Md3JY)T#j=a5sHCORUS?-i z?e)I2R2iO?eZFtLpamFUdT@pY6_$pmlSkyX1YNoG5U30;Y0+!E^Vw?2W;#JfQPog= z&%p$@FWtBftnS=;>8D?R_2VD?@cnn*{>xwe>fUR24At>PKVP7rrGwMVbz`v7=sGA} zsRd?yA#A;60Lfv1RImV?z$TdzIgdTy4}4M|AA9<9dhE6R(cCvTD(xWIW-nr!#}Asc6Pbw4D;uM6c5DX1)Qd) z2NY}?QCE54Lr$W64AAC^P~GKRRL`A1LAtgxgLf5Iv=QdR9C1V)ARYn$Qq1lMUHO_Z z3z$3t!@w1acUrR4_&KwtCP^2oVYpnqsnHRylKn6byWu>{gN?x@&#F*e+aVLwG+_|z zY!vPr$%PM>W^7U>coyq*^-595bhx>04J34Fke)f)weVLiOCuT&m&>Hvq7LUKTviJO z7Knh}mB-Ry%cX{F zWw~?a_Ef+lY=p5y6>*Pj0*aCO&Uj&9fZ9BeA?*Z~XHBY~!AF>nn-E@rywBPw8t5b% ziirVGfR|?OJO;hWZi#43X33;sxWHWO9Y;vc%;=bXWaGSaaXfgm8PXj1*1O>;b6y$rHzYMM{CaFx*7$r;X`8bl|x8 zRSq4L`8c%NH&ydBRlttAKfh&j2>-S%d@zt+`S4cwDQO+&x5B@8VcKG z87BjkP@OZnHT)1#0S%7n+2W6&(yvZM4ADrp4uk=(!u{psI0N*TeL zd{&zj{5l~Q=G_jr(N$d3GB8!BWvNz97^XLWo=57Z4hPcOG{8ZJL+l2(oxCyJC1e94 z(pfQ2&V0n|xiKAM(#lNnXDZZ^Dd35C%)-m~BX@UC6Em<5NU;}9Lbh#xqu^oVp6y#r zD$e$r2KWj1JKU*Q5mc!VCRGlp(+BEPAR4xY02r2tl15_U%Xa2^fE@!-xH(XTg*`y z%>g|Gxke)O?w#B9X)<`(UoIM7c=Ed*6h54IwrZuyd-dMWHqpG$SY#K$<$amu0}Wti zq<7pvFVERiCnpV*hEEl*y*2kOQH(igJEzPTu7B*yU@TaG>z>K zw{@Nh$2<;t3l?&6h%=y`m1-0)8{ofXL&i90+S%?@KE{E*Mu>j=@ki^c9B>aBOMR@K zBHb~*m80qOq?lq51C;|BW8Ij5q;y4gp*v{R9eW=dTwUQcFkBtK63Ppvy zqah$GvXX7I{|I84TW0;Z={}5on?tYCeYWDc=a|;YCC_@lUb-(_0|$0Ra$m7{$)b7D zi;|hS+y}pb?gEcJP#j1^FlOs=)vrp8kNEx^m7gm-OOeZ{rFj~L3vhmHl+`h$V7qKa zBXess6W}Hx0ki`4^r-riG+B8vNq}@cOBF*cLI5IYr00}vTX~3|SA}i1vHa3R$(i!|@+50%$c`O0Dr{OtJUD#w}JNs`8 zcXFoNUdh5^>Xi@Bm!N0%Pq>`Ghsbdaro#OhC;=9+)Tq=RlvKdjqFf|{%249jE+IBK zxrf7vTu5^g)M%1Z7>pAa=_DlhkRQ0C4f@o=2k*S~fBoBk`{_qNAcM514$O}qHFc8C z)y#q=_2urXx8J;XPj1YumtR7;k$KHS6Pda#1n+tX<`=0nmO zk#907eO_lPhe9oZo?=YDS!;X~T*F)tF&nuRt!#~SR3A`#jB|XL`|-zUDV#_GQbJy} z>7=GJDKG_0H2?W82!)?~c|f+g&p?#6!vXa(f}PeY0D@SMN{^4(pJ_V0muaW7X#957 zO3w}2b2{MPy#V;R-ys-|3KkrqtR7eeRrou&cAkJX`nqB{UI^gpZA- z8R!wgM!X`!B22)VG4JU+b_+tJN6KM6Lzi};cwec4{82%ZoRcqucc(Rz|G|B`j~v)5 zD(fFrs{srz)O|iDiq740Rvu5n5m3-l5;gC^IUJWG#Dst{DtP#g>z?c z24>(@vIi|Mk=NT)8TU>y@)EtQYFRAyt^qrrQd}YwP=tiHAemd zmt`iINHGc`ruS3v{G>7t4GsZk1&s&qYceCS)@6Ls=2j1t|Sq2(PFV;)|_zjB}*i?%ZJn{nvdzs zm_dipwQ3q)8Sp$qu?58UI@rhenE=?sK$sTzvMlRDchhrfyi(hCh5Mw4V;7C;c)Qn= zCWkp^^zZ};GwTJ9KysLDBc~M>3vz*NW3TmZ0{is3UzOesEH|z?3G)WI;JslShBHVz z__L9`wnTE*5U`PXTMJe`_#iJu5x{SV7PF=?;5lb;HH9DpBV{M7s8X6 zV7TH`mdK%^ZXnMO>gjUAap%dy4Isw0y=w!u7;RdeNlFQ4PH$9ZT%4i(fY?0EFe+a~ z+fDa3A(3%*Vvga=)}Ps5LDf2PE~O#P^`F+dwdwk zW|rlrw^W@0zF`7-YBcLSWarUBaa{_Pqflt_wZ{d^w3WQ*Ws42!UnXQTHVwm3d}7Uz z-ua7X&m2Cm54MwcG%&Fgrxl%reh*)i2kZ{l&|^!K8Gx@v!yyzw)=Tlm8IO0W1!p6> zN|%|ezd5swnet`i0Y7dmEA8XqNPJLa%iX)KXe2w{BLa@so% z5Abc*+H)WYNN6ClCrPHh#|P5I2wTv5QoIyKG9jsa$F^-+$EHLEIBBL;aQAl78J7&+ z`B7$`eQv>Qz%mDK2iEld^qtO^js6T!uUz+)lIV355M;o*NCoW)@5U}!qHU^VIF2{Y zLM#~r%Vg4>@d&!H0vHbH{0h45rV|I;0eO}2>e&>V?EW2*rkk|3!#8-yO#m+p2f56t z!Tfj4rucBG^WHMOgz%8L-bIF}JH*Kq=FQ|{bw%1Oowm1V5jeRegRB_wJ6gFejiJEy zs4;0=#QUJSNWrI=bVYDyHhPrrJb-j7cHwJRb!5kp&7y5uCs9^#+GZdjQjI+g6 zl~kNra8U>AE|I|WA|RYS{z}R3Dv^C@~v8e&pbv{n_9DKmN`CEkhC{qVcxt zUA=nwB3xB`NE8$oyl3)WKOKqWa+q8rVHmR}m_zl`Cr{*KujkJy?Q6(B07vq#T)K$W zb3JmsSO6GNa-{vh{(a5^-h~58F$ILmgcMl{-d_OtK;CYL5A1Kxwa?_(m;&~Jyz!yQ z%38WamziceKjjXv)C%y#!M4_HFz$=PB4a>av7P3EzlDj5^jjGX|ZYbX=s3bR<6KF=Zq9%B3Zd`nQCTY^}tF=GFYXbRHhLg76BQ2FIP+s zXU?D+R3ik>i$k9vuotRn#)iE_mH^V{C7)y_2ZTh!t5@Oezxl0i`ISB(ZMCu8p9&LY zs4bFPaZVc}%cPWtiM)dcp^=QudYipv$WOH>p%_zFdVg`pODEi+1m0TF zr!)lo>PcXd@(d{?bRNMP#vt=rMus7F!o6mAyLA4S|WhQVfO9bA)0#L z5MHsO-%nijW?2ilrYVy;U<-crzHH9rsZb&)Wm`Cy_1 z;a-(E1#_*4fPqvNZnbc|4hRqN;4SF3bR!Tr>)*h3usjXyt;xW4d#VQWX6IJoDGlil z1(^oYGD7E1zbdH5SzHAR0_+OvE;=aA=9NL(J}uN0&>1#6SDe3%+*Pc5)NU$SK&YzW z+ew+2-(UL$?3#OQ3@!l#P@oz)Pc2ozpQ;ohN7#S*`=kc682OZTGpp&N!ygB z_~HBS{>^{;-~ID{@z=CU;gu!BC?NpD(WQ0&t+%A0%XoSH?%g}LUoi^%{#$Qax%JYG zd#~Sp=lUEoDw;iEd%GAX@(~ zO^9$ID@GTp9!Zc0|AGJgH{W!1+4XwFHcn1Lawf;xp(|pB2ETgiWuPqs-=0ndcsai9 zyo}>FndiT`_fl8fR~H)U=RrBvsbD)aE*ihwZM2Qywg7FCPArg~Q&??9DH0X)?t&mW zuo;xdQaDcnjaJi$?GqzsPaHLg=h{IZV4ACA&rFxQwr$qCD)c1TXpT>s>c-7%7;KW- z?@JSFgvg46-VPN=Q3p1!K0&!+M={{XA460;L!@21$*)|pSqc}1?Vb_@_MiwLL`dsI zPJz{{!Im{($ubnP*73BeH1}S4>84Mpdl5*2H-$N9xG^4#oslpV1~0sN#exM4_a_5D z#u$M2$mR+!76J2j)8Vi7F&_@`vF_W*%TW?A@$# z&_XAyQKFgvRCh`{Sw^}GU{{5rx93IQxAidDM3 z49MyZc*d*(Nz+-iYW2|2Dig~L4475MP^M9n9FL61lLYL*UmZu*ts5I3BgIo`L@0>l zr;<_ovDkgsC(O?5# zjya$@-^BK5V7JnH+J~JpIcERh)jXiYk=cXi^(S7Tczuq7?M~|wDg$y0y^|Z`JkHQ1 zPM2{^k&M2%-G$1FAM`As>wsN;Fw)M)Jrn5~1_)ak!G{kZ@Pe94xG4MY!2-NE(dRK$ z;?9Pb&K+GhEQe9|68?@~!XT#TXnLkWOn?55{?R}Ai+}pjhaUhOCZ`38yN2jaj&lJ9 zkF8CQ=Z(P5Qd+RXOuL`13^!>pN94yzW=`H zaPRJ2K|y)x#TQQ=J1SfLowweyoq7-6IU^lI&#Wap9~~J%zk$EV!Z-ONCgvv;f=l{- zL0ZIPqozzhw11!U7)~uOr4y&YLPr{>CB$iRLRVG|Ef?wcG>7N2izY|bLU{hT zd1}49HA4jb>g_Y3h!~Q<3ymFQyAZGRua*qPZuaRdNKq`jw%9od2^o>9lPEb1aK2Y! zw=Zn zMMQ&S>2q_2+G?cAa6M0+-s5?aQ(VqyEa%~0YRi~CB1=@Kr|#4OqLmSxbPa1AAkPw| z#06qIYt)6JWA^6ttJ1)n%{V4#?>RFPCgB}<_}+^t;V3Qe$C=p-NM}MK5qs<6?XWIX zT!ro9oqFR`PbLJp41wrX8Gf)Zf7L>Q@eDBJ@AZ==8m+dJYWtKMW-Ih-RA?-5dgD*$s6Myrb@zwj$I>4odcxi3l>XX+Ua^&mUNUD&0Vmo5(u3+tmJzoGR>(;($I-g&TQ-Zo(Qma4Yg&HBru7kD0M6c-0TQx6 zeG+lzOr23!IRX#chkY(*{p8w_;UPnue6}OwRmGp|kWBo+0pg65W+`FJk72-e^=O-9 zW>6irw-&@^3gzZlf$;Xs$Sbpd7|;=AM!!rf*%ql;k#RDAT~tJcWn$(9zv1mT`FG3} z_6^?NKQ%rxer5)}WB=7#*D%if;C7WqKq#{e!dGHsM+ApE#N`-s(~@{ZWj6MTU%8dD zd5o!5`Bb*l{06)j;JbbP3)s`>;>bK#dfs!3{R!K>KZ*)7b3zBYqMCS6TtG>Ee7yT< z-KI-XN=8mL(LrgVOGsk)l7=b~#-P*>-h1a4zxc%`AO8R?XT87mo$tVQ5r>J|hk7Fk zO+aVflcS@CjzaYecBqeBOD!X?7{qNVX(NyJ?%72%;Z2x1X(!L%Lk<+uWn;NIK4`!2oy{xs2cNbCP|rbDscxsJA>`&(`v12!T&X@2Q(#IU2So7fdGJmZu=V@ zASl2U!OPj;y7TDL6|>Y_N{*u-m3PVoKzdxUK2y$^0XzF=+kWK>>E6h!ugi@l=G$jZ z9%EF-QQ$BnYnIT6?GVUmBZgevQu1K9L*QCrInKsetn?DLTUVS-VVM|_GuXKWeR1l1Hc{TWQ+MqLyVF`6t zA5tW9Wp(_N_m3G=amzi6iw#s6^j%cO1J^ti5+tcTQ;3qI#4W| z2Jl2bVN=99+Kcz@TBbvnc1E8eylXw#f@|qEg$4rFb8Js)c_sgY6u@3$RCE};-D4rb zcWA3#Ht{qQ%MiwiPWZ06c~IcpqXX>zB%U)uoDNslC91%7xshY*Moq>8+eg;=aKN%B zpCIsI=P($ZI&tu)ySx95~<=sQClfG(pExGcbpknaL;f zcy(x|Sy3&ESyHR?>(br_hla+0z{m&;Uu6V`)Mb=iz5llC$5&py35XauDnftI9YtwJoRDGcor28^bdX^0 zfBL6?S8pll5?431FVcSGpcI-TH($K&RCn*Z`f4HhOE+$iP!!<+dc$*bi`~9;%N8*H zqtAZyKZ`{56<>#N1TwcHPs>}!Y z4FCNp1gI4}M4JJ-CF9rY%BjKTYqwva*&=>)lIOQT+b*%{??^GVCCA7Ci zC?PLEaDO(R2jlAF&&?G;{fYcrx^CM8qQVSVIIDh$?X2Yq@Qa@VqSMEZGKOFOwf{gi z^@*d0zzCkqbnU~~7z1gAB|vh9$K-ec>|!|_1^f_tMnbp?SZ z!uScX7XlRB1a=U?nL$gVT1=if?_fE2yN+En9zWlty|#A9ubl?tMofy1ug;x0%iOs< z+C9R2?7cO1JSy=1yIlCu8I?ctM13in>i*RCye~myp>?+B^?`SZ>z(}~g@!^x$X>NV z+Eu>6Bnnv3bfCAd1FvgGLar%`}SaNQMPLd?E8=ogb^q7fCatD)#%&`6x3s@g_w z*@)dB%!K^;|HF3PFUN&&GE4>1?h`r1B!{tUz)Ol4U9F?P6{) zbe&A}jbXFRZR)OPvLBwSWZnu|(*hq5Ov8jAEUh?=f?-sy{I|cj2c!$vRtm<-&QH`R<)lBgu|}qPQ_2mVu=?(_p@` zvSMt7^Gw(ChQJWpuSTgm%Bd(P+S=dz7d`Fc{4RtxSx6Rx`yjoA9n}yu3c()3nizA#V-F7E4&F81B1fN9gQJ>* z<#%_w#PAyS#t}G6@8%?IkJ7@Zn1m%rx5E5_q8Vh7=`X-L)3P%oSF-X%^0k~TrdtV+ z$bT6#P1t#!A-NcsBVE>~g>dwN(bwa1N$@()IsH)2UlU|04+QuU5A9A zrb0vHj&&!^7WupO<7E3t5kVlP438iwXE@)E5x z4_^WAL=}jtd4&elVCwB`UfjoFPuX2d$1BI^fZfqqVyfkS^9tjQAShTJ-y|$S)LHq$^{T5Z#tsIPWx=!~Y`c5odZ& zlpfl*@J^fo$O`V=RGGjM9u8W4uwx#LVgaZ(hm3ApMWdC34zcO&0*-_%1Iv7L&kQqg zI3#x_%B@e9&J%bym4Uw36_Q$X%$oIg_8g4Qqf>#PYiV&{r`su7uk02-@%2>~QXf2A zUw{UMM8`q1MAF%k+P(x=hx022NdIfrjg3)hq{Mf-gP6kznV%P}c#PgAb7kkU@LO_W ziUP_sZ}%rzhE+?LLDZ=7Rtbaq3sl3Pk54I!u>cHw0 zr){2WOI1uKQIA@pbqhfGpax5xhIA_~ZF`nAa*Dn4uRc|ulO@}zM?lQ->XV*PBStOB z?7*B9;~sf8NA_?$mTFc9+uH{%yKoRcaaiqo=h3=ky=#XCZ11Kbdox|w*^|fNHi4Az zj%l!SngBf4?BXU^r5Ft%ZBb~{;ER+2d=OC-6rIMs-+%ADk3RhHN1uIW`PmPBYVX5) zuf0ZB|KTT+C_iY{-GAB{dk5?a?VVgNX#wlj&C2imBqEg0T><9e0;vbub3l%X0Lz5o zuo%0nNI;@NUBg=U@MX;W&MUV*`}7mZ_VkS(e){ptH?HeZrG)#^2j7L6sEodP=W%O= zy@N;y8pc_Tr6H=D5_Zd`DX5QfWA%0u0^F&4ch|HXl+5!{h(F-k`CS_9V}p*6m?59j z{t`G{4)^wx?0t_*OsP!%NxzCLz}%T3ziTf^pK(!zQ@bPkgZ-SUvguSFjbZ7PAGpxVQan{J z5udl+TSgC{x))&(6J_Ru_ulnpk%X77Uz38a8X5>&%xEz_2FW=Nkqx{P&%rf9PW;r$ zqkp;<(A03I`S8udFYMEDgYAlw(4}F!DBvwLu)}RoOo)KVix(_{hZWZnG#l{UBf!@T zX>14V5MH|mx;kW@+?e^D`Y5yAz39WuuqHsAykDPIF&31}vXBky$@H;1vzbZJAHc?u z5wnC6M0}f4N({0I*v$anG# ztw(xr5aYT0QlGb#~NcZ{1AqyRg))t$QQhIdcK38&9v-4$)*!d?V>V@Mp? z!?c|vW0I1M552JW!kJS(wBeOG*3RcopU4L`YT^#Kjbs{0q|1q#VI!CVM3xX91i>!& zgI5D{j2-tjXFJ4(6{NdmF4=FQZ1nRB{@ZLM`IREu4mph#vF@~1Fw#1@fK72;51SYK#WJx0h z_eK19>av7Dv!HHu>0K3ZL?GBX64x+6{U2%7XtIn~8p2P70tka4tD-4|; z$e31>fHm?{a)|$QB+U(Db!GcxwuMbPCZ;?+7!LfwxI?yX+_-DI=?=zS*T#sOOP;d> zam>3Ax#WC0rwRxzeTasJ2%=ArVNf8YJ4T1}p|R4s;k=?VMc)%^XM2E-K0|w#D&y6= zD^>~yZPcD+Dh$$##wv|vh{HZi*+Td$JulL+aSp7G^*WGox-?8~yK2CIs@pq3G6xsRpDd8-DVv$!!qCOf^%(#%r*iz)@tCvpx7^SaWixQd=P-%1q{>k9XJz zx7)>3<~M%**Q5~e0#$NHq5v4=w)WwG4zUro)0eb=@ak}ELxUUMS1gy5sKI5zvFLB! z(WXt_>>GDqlL;vhzx?8L?+>@pUtr2FXphyfD}lh5@+Q{lDjnmDNvHP;ldnEX&hk7} z+b|y!$lyz&02xOY7y=;#K(JO8L43Dx1M z8+4$E06CHN#&bQPD7TZ$uk=XziEd5s?qO&A>HIMEO&g}jOW3$2>Q0jxTq&Q92rp(0 z*5TgKg1Iwi_jpyTUcL`{58i7EC0!Ugf`|Vju3w*d-F>x#;y64^euwsy8Srj2s~Z=^oMG$K22T$=g>|kXlvhU9ccC21VMS%? zF&$#)Y`?9%|6#9JOW zOiufQzF>_MH|3ewm?tkAt=LgJBVXo*&Kdqc+eF#Pg|jnA=Pcj(_P1ZyvkR(>jtt+r z@gj*(JJ$(U53JO$bojvjhVDStf&Fkw>lKo}uy;3nYbc{RKvb+Xi2=iF?D>QD-+%Z1 zeFPr1U%7Y@TwlL@`K1@Hy^Mk1c#+mk8^3q=wKwm*Zaw*vw{M$G^zNNI4zav`<;tb= z=Vi<2T6G?=0Fv8H`Qr00{_fxTkAD8MKd}9$U;k8BtleI`dc_BHv?ll$5eBGYP_kJx zOtcpHHHp=_z+_r9>S!97#mqS+tx1YH=|h6!*g7mFR>}8FTEYq zPsnE*TqUU%ETi8796T3~kU$75lV38Yq#M1)2lmOw*&#gY3)RJ}G14R)jF5vot6?d2 zYdGC=@E>W19#hhRis7pT0^bb>F9LgRKCL<+7RrklFnm44k<3R5OCeu>U8`F`Uxqm6! zBpC+mRkCofA1NjubVzpqDW0#Xp}Jv2&I1`joHG5?OyLRqIu))i#G^M}@tR6l!oYC= zZw-gk zFNdU2-4?q|uQ$#+oUt`kRv*W*XB)dTdb2?GW(!c|N^si>Y*%dTpSo`Lw8D`+#so** z^fj+$T6xQs*jN~z{$g&}#RFmRZaJj0K)X-KPAcd>;&Qx-%A(xaL4Ws3TrkPx=8bxz zI^zZQ;^g2L(^hm>S>oyq?{B?v511>kU6-gmfB5OAcV2k~wg>88ef8dJuaV!W_hcFR z48_Lb>UrZ@L{Yek9>ZHvMi|m|_9XdlFnMV*^A$}-^ogRSgIFc~#N9NjK?LtkujsmA ziH9S@Ys^d{hn(+gv+F*fR;`Be6j$wT6CaRbMs%y{2wFW-vz4*oR#9ND?oJ@AQGZ~+ zJkR~`*i!$kuH@;Bn4!=3*e>Iaj^%P<(9Z2<;}J18`!x)ouB8t^ZH)5C$1;}s+n;0~ z(JBn2;FO)?EwJ4Za2fkn<{ed>F-S{dJUDpD!BBC&W}`YNBn!xl7r9%uOh(1G5mB!!xv4%il7s=HAT_|Br?Pi!i;AglyEzoK34O1Je#i!ler|x70({T~iuvVy%^+Wvqp&Pe(q1xBx>E>W_%E>sZeJc=Y4 z>wX37A@H(-ja{OeEL)zGmSl9As>qOy&}~(g=e2s(YDiua4j33k*PSJ8#tcRf9z^*Q z`A3SuHRS}z08*yt?Ss~ZbLMELa2DRtF5{8724@t56!)l~bM@-gz5@IdDC{V^RoQp$*_C?h@3}n&yZ(eJ`aV^ zencU_V0(uc!Tew{V29PPoz1uq*J$Xrv}L+9w)?ZUYf15r2KM#>j-X2H4Zt>q5O(dO zFh8}j^sB-Yd;2uDJA>z@+D)7=_5$|gaJmIB1=uxXfwSAU&gDsb)?vOgyX$J4CWx>Q z*UbqtqhOSF*zTEYW~x9(E2Ic!p(_B{a}Yap3w{0dSD*j*_W|j9_uuv@>T8!SzVqgr zxH0+%NI`VgH*YfGQg=L=ouj)}F;O0YJR6z>gdsL~C!{Fvzx$4K#~atLky&Uj^p;j& zu3f%(`{kFUC_r%f4A}qllaI+Sx?j(oJ}rFUz)Ct#<;EY?7pJQ$pYw1DXAoi}(zq5t z=1Ooov683P=QCIxHYHkVoZ09hYhnPp$$V{LU34UKH`SCi@Rk6g&CWi>3qD{)k6sT{ zC(BPxj6-0!y>07eG&><+V`kJ;XgjFA_IHUeS~lyQO~!?EP`v}FyL=2dziY>ijT<(g z?ijm?icI^U1fN}}K(O^w%l16Gx`N+;0t%%G*P#0}aI)E;{ zpy<=z*SOm_J|@?TkOX<)p6%qjS6+G%nPd{Mx1GgPfDSOwBBQIoDb0iJ3)rKO4 z;Sc3#aXP-^HKkD6WsBkeY(6ud@!h$=O*bfew!b}H+7jLBn^K4NqnP~z1&J~fUt~@h2^kN3cF}^J3?<)GlBu%X61Iy_7`Si)?vQFC44Pd@-M-iMm|;ZV zRMv`ufftf{@<1a!sty$O#4IdK~__MVO?fD~CcsrDH)`-L>D>eS=6Nf$Fe0 z%+p8JGw2N4sSI9YU{{4idCopD;Nvpla=r#Kv%caX?QD1rSrW+~9+pX}{`7Wn!MhOO zA+S4zZvd@3S=z3=dy`ivp0J?L^7#W70PKDO?5kHSh5VX|EP)XMM(3dBOCvcLC)e~wD+<$MZ_dz0?$2_E^zR53)|sDQ6)PMHZ4Me|I+q7d;gu>oN z5*!3d5O?qH9mGSt7#SKkb^ORzU;PAx>TtYu^F_%kH?Lg<@+XfT28p2flaD^6w*yjb zTT07EAH3gO+E21mu3o$#97tId8lW!0gaSiXX^P&WI#|{#+I^!suxRUce(_p@h84$B zY#epx_H9Rf^6|$M7zs8+57b?b4RDsvU>&RXrxAtP0-6}ocz*Q5Pfs2@f)JBvkS?&G z`L1_H=ZstT0AvFq`GS-_OC3Gff_}6E`^`wR4UyyTSh_Rg=OhtH!hrY0v15C7?b@<= z(+m6e$r3W58KoT>@7uEnP@BN`@S#k1U^~nP+U6&O+mw9b3?<(d%_1p{J^?45SRuLy zC@uuIt>}RoTPM(@J%F-T#L1_l?BFV53Y}BK7)ldTB5N!VryLo#w!UtCYM%|PG zvfFcK6tEx`12O3qyapUYqUKaw75ieneO=Xd6qodCn|%X&!((r8hyq~%Na0(0 zRlp!bO1F#1oLtkXty^IGM&Bd&=~rKT@!2QWE}limsp~r5>E~OfHmEHX!*@E)pFRoL z;kiG>Q%}#5@Zy=v&)L3ZlW>5~6M{(Yp0i|GZ4+1x9(C->c$B6nq4Cj2kU*^rzCVMm z0^SwiEChf!biI(Fusv!(@@m{Q{-2+oc%rc#^+nDVJ*wRVz}RW;B8dK0EdsN60eMpa zn>oW6RUj`bGM`3W!FHA+=lQDG(hOX!c?s5u1?G?!WqeB2Kmn)@+nwJDVYL=h-gSnK zg3y^v(VecA^t<%AwYa{AP&s%;7`tWr2w`RX9{)y13GWkA8w_045J1|&JGs*S zUL4G1z0Fi1mFM7o*_ggjG=^!xbKuz%&_$M+Z-VPc>pJf3V^94q!TgLh3-x6H&cIrn zwy8TNU|oqm1JCP|Ne$7KY{`>XleR90a~aVj$XYPY-rA_ra;cWD`lzs?!nRBUd!M1P zUE3CngLIM6lJNm;hp1{VZTCoVt?X0E3^3>Nz4QXA4#~Z-MIFjD!q^!$&V%_d2HEe# z3UDWhfTjn+zWnkFVzL+~31G+8O<(=w3w)T0{?@&F62claCYyhm?F4ru1}fO=G$9WBfhRTK2w zz4^A_3ns-ObhS8x%)1t1@5}-MiJoG!eVg>~aZLkc2JCNGPtxBg?Bc_G3K=%SS}z{+ z&@U{*kg5w&VLRlPg=rcYKu2bj#2CQ%>ty>YRgb;W?IJCfNb z3`wzqMU>Gd9k-#LxmvMoU~lWS&Y_5$&D*(KOPwuHFu&@tU0%sEE6s0f{@v5ZkDNPo zJgJi7W3)1H*@HqeSS(-QO$^n5pc?1s>Z)Ch+|thhDGy@gHkRvsPfMJ`lHXgO!MI>x zTt;7B@F7_QRyZAnhZaX1o*?|zxZqHCU(KV0Wqwf#&4$`N4E+L z*TGG$2AO?vNPDCnWpKHEI`Pwl?SvZoxk1*ze4xG}!U<9gl9oe6t5FutlXYVr z9v=?#Ndhu&raMq`LsMZpOY2+?;G?xNWmY}&Jmk};a}7+uxMlq-xDy)`UyM*vD^-%5 zGdecDHd76Zhgr;%d^y*+1Ehx=dTXo{>M}o1)f@Dp*&Cx>x#U@+uocbBSSGqVCz^~E zQPXz$1D1F@2!`;C5bg2aIRapBR?v`c=}*Ak#G46Kc#R0w?IRfO*=jJx%%09n*R2D9 z4p!$U7Ud_EEL6`&2Cby35BpNvP0D3L+U*IhfwsqG1%}(Agt1owq%GXXQX?qq(;1H? zxt9+nPL+EmeS$h>-R(OGY-fbc+ZiXD)WfJ}YHGve&wl=MD2mX^#y}81eDD6dZ@&dd z4HN~Nqz_66o_zhv+IFD#S=Xvkl zcRu;}BZ-lmRQNc4^azYacOi$7SrA@tDQI0E`&sTe@JP50FtK;~3ED>aA%h5W+JYL> zS1(`I0Sd#RD|Q*w&Bt30KxPra=xSts_pV)AH*el)Cd`v3ENubHFq?c-7ev&Dog91b zB7Pk^dW0;4%!Buy>lnhTt#AP3ox!CEH!4go($6U3z;=U~jFAW9kh42L)4W=;=ExOwA6Lu|jGeyR8^5~&$o6M>8JB{rOjJ1F%HVL$u2UBFOm1j#D%}`LB z$FH?dX7JD_#YDSs9HkE_4ilUQsy5b{H7%pDy97)#!vI+W^lh3PL)5hj<+@9BH;4%n zww*jkb@y;kzHSI>7hr2FmQQK=OW2-O_zd}--*zq|uBl%3sazTrgY9-OPzyK!LtX~V z6+hXH--!s;?JvIbMZ!CM#>>Un<*CX_9bPkpv^Tcn?H}B~2j0z-0G}BQMTPyqc~ZZ) z1K!DfS`(@CP?2_%m55{!KQ)?qSizhI8SMBu{|Jf zGEC^YTosbvZC&WUz=Vm9DeyqJ*`#}0xBQUz<0nd{l-Pn?1J1G z+GUb|7DYo?jN?fdb}(uLdcivmWtM0w=_;M?vv>JIlk3v$3GdstZ}%BKqicQBMEK@q znf2FvN7aGiReDoV3-uvD)@sM4F}UnG^P3pe#y%mu_9hHuq9_D2(_%&J*&ds0Y)65( z40^+0;CV+4O9k3{p046`fb=Hhy>9o&fEg3bgBECdFc@3h7gMy++gDU9YDp_FmEzde zW$A3*SDA4H6MNzq9-0+?L13}593(o7lUOoTZ!;cU)3f7L%7g8N`I@oZ)BU<}kX}y! zE6XemP7Bx-?J?{ELB(Aai7NN+zeO>&-T2IpK6v-<{OO<2Tl4@@Aoa0I6@bi;97IEG zN(dR5WQ}Gwlc(Dd+bcW@0v{P-aSQD zq-7_-SVCz4PTsM!o8`?)t+65~P~)8+(YGQ@I2DOreNcBBOh)$3+i!^uqLOm?B5^l4 zDnK4o?%n0)HbF}{KeT-+5WJP=2G9N4`SYXIsY;0uI;6NZ{1^NpcNNj>9A3u3`l(w^6apIbFR|H}#fg z@K=4W6V5mVYu9DFF${rMU^^jIHwr7- zI<@}Df&C6=;hp{H5SBwd5HA=8U*J9%5?2xta3y{2P|L{W!mc@hR9XvMZF5zPhIdQH z_TkPzd>|fWZtagbBPlGe*|x*sxd;*N6oP* z)h+-@^Oo;ZIru{BpLWn{<~w%dp>P0|#laqIfAmoZua(_M?vUQD=G`<-8p~#cL znvf7l!oUE``AKi3esJ+i2CeHhs#i^(T#zgm(sIsz;U(&;te-NfvR;UQ3k z?eHhJoZ)78Y&unIY8R|8dFizJn)M4#N_5Hh@~AoxwXxk*&|_PK48Xo&0*CQ(G~&a_ zwG>)%H<_X)gLS0cSR?(d{*)eHBwwNuHD+d&Xupi1+G5MV5&2$zTJ)XF-BDwo=8I!K zCbEb`B;yoi5^F>*x06(S6TA-&O1x1qk%%}ZbHKbo&|MD;5YGF3^ij{5oqO-XH0xsI zQn1jB5c2v;1^NLP8M9tUh5AQzuWYdli$iH3A#&@DgYo9=?1bKKz3}{TmlO1Xxh2qU z3`f-EZMqQ^6K*(xIV;$J9r`CAul)l{*%+$ewF203iU(=BE(hL;Fp6KD++EnmUD)4G zy#?>;wx>UpG*sv1qd$3HzK>gTlJ|=BA}UE^cJDyIeQ^*Q)j{1F+Yt;&U))w;dimxJ z!0txA{Icwrsp17|R9j(0%KBY?R-5ppt) zJx?AzLUjScW)lPHHeRSJ($$f9+}@s+z#N$e_}8yo0`)E9YY2dA!amMl^`VbWQblB# zgG%>nqq^zLb(_R(892fUgC@{m`?qi1(*LV~S@|(Uc)Z{Kuw9BS%)c&6=Y{<^JXE(4 zM78Py|HVWkALkcML>77uR0rcij5-J(P3a*CbseN5jSyH{Kq$0SjE{o(+81hzu0tL{ zR`;}U%*egdezTU0+{`U_3oHe*`YuhQA;Xvf=n!|FHLC}Jm``)+Vpy?sF;!Zl(NRN) zTe1p?mQmW<tGOQ6X1ZZYnP4z^Uwj9qsjxaI z9E1niO$98`80}C|n8Jfm+W|f}k3Qut_R+Es-2?&-C0Jp{QBxmJKoD>ZZ4Z?TzQ9y+8=L!G=Lm za1#AraZVeWoRFD244AHw3Qrxj=HXTmu7;+QRB=M1Kfes)Wmd zcTbp~_5PM%UsH}hHmWzUJ7HTR<7_Cly^HO3R{WHm%W*83B9mq<%wzS+3}!F2ko?D% zwXm|KC(58u)g75vAyeyUZab%|fPGzNEKMh=R*FUVg+d3v280_!b)SPix#@#mZ=R$tk(qIU)a0%r5iU4Fa7GvFOBr4;SgseN%~d8 z7B2>cJwg*dC1zXopuKOmH-^Km+W%}T%+jLj~qPEfxuEBb0bbh z8%fR)1<3nJo4;@&4S|aU{B+vlTDW~81s;FyEIzNNAX6AzznW7W%2zNjLt2N=DXA0Y zOa`Ini&=8P z>ZAkv-Z2^v;W?o;Bbv>#*t6UK`V5VZz-a8JPkld?$w{8_0R{(yV($?RL>l!y%f9B8 zfZcagIRxxw^T3mt@ft?LkK*TxlE25y6dIkAaN#OQo2+tUx($sFX-`u(3QW@1omL@o zLQbb;cn;JeV0DfXj5L{Tf$%uI)JN?IvJBoX;mNcu;;!oHrqR&@cok@zCPq!B#~s+e zfYR+#8-*Ut3OonMw4Cml@Jdg~%VmB8_3X(@F4l0O(VMIyB+7V>6(& zx>JP)x8KSP$ZZiujKJGLeZ_^y?}$1eUHWW3X{tqFi+$8fUn=MTT-FISF7&YIfJ}Qq zT(S@LZg5czT+%Z;S5XZCMT)!EAy``i8SOIQATYr|F#xdBVXPY$YcjAFHZ>ODmCE>r zLIp3<%3?~p&LU#~4cxJ_Dcr#(YF%;p5zmv^Fd_D-FazyJ@&ZVQ?a95Y2Tm<4VAt3| zY1BXC-1NT?XS@#e1E<Xiig#~y`&_^o6T)V@L6mWqQ(F;XEP;PRB1M=FO% zyIk#nZ@_;ZN;4F2nJBYVLn}^h-D45Q`?~&|F8!-;kUJ_Z)C%)JDmILdLvqj175n2^ z8ao2w@X!$1aCCT>Z3AJZRc^(ZGq=CPJs)_!Z};|FH?KJ-d!t!mzn^~m5w|+De~;O9 z|NPJY96Z7(JeK&3y|7^nUv`tSdHs5+0vfQBqoY6@cm4PW<`ejo-h!wU#hZ)u3U*#A z4f)!YE7WCLap0ZkoS{EMC@YW`Q$z=3ULGJ04|UI-I(d;Yueb8#iK`bcknx3>Gp9~q z?8gruI<$WuRBwr@lf5Lar$eWiggvR^WG*)lr%Ej~Uj&$RWUc7e2d8F8( zzOJrJN_g8ew_mwMT|aX8kR>#L z>mU?pYoypHg^uva z(3aWSfVx&|G#|87Vq>O$nmY$-g?UORL*43&LeR3XJ?C^P*ah2N)c&sMSRMr4l>+um zP=+1(Gh``)s`MElPDIgk_-eM}>iS@OvsL=NMvJ!7zFphNGQurXzj@8X`+HoJoYLo! zA|oF4R0$|9*^^b90g`K2;XYPWgOT%kJ1D%5uX0;X)b*@{x4?UGwzLQY4iCq#o+rf^ zyt_NMJhgt3X=!!|@m>vm54^v5_l~L3C@R{FCyyQ0$3f53eE`i&faWf=KJfXHT-J~| zv<2WffZ>A)&kKD{H-w+NN)7UY&~MldAt5=Cw1mts6W`Xy3VtzL-Jol=9##!NcnRki zb;CO(S97?ebz>+iY=`iD29VwoJ&+F{Hu#A44uPJTDc60~(&aYJn>9xP`$)LS&V{hn zWTIr4Gcpp8p3Q}g?HE3Z#duY5%urS|TgZ@jqqY^5eCKX9gYld_eElYScWyUh58sz% z&yNT)t;tlT3{<4=Ju5wl=!5|4=`imlgr`brnIi4{&NuZ00ujMnpim3D))vz~@~-h) z7xKRR3CX>%*i|_K7f{k=PXW^{Qe&cn?e#4K*zVXoG>TktZ124k@_cPGuwI$5t+YUF z-8%B{;k?^aVU>{%m&uAXKLYQRrlgqKlQp7Y*4d|XDlU<8GR2y#QU(0ksBV24-Wjdh z*&n+A%l>40-nce`o(M0?X*IaIGAI^)hKOldcxXD_wCJ%5-paZ>5D&_A+1;I6H?_sJ zKtvz6L%{&B)Q$Jve&eezKPSj&&uVvo8dwM6H3ud}Mre_WbMD{03(PWmEL7eIf^D{R z&prgtRKro#0Kjv)7j;Db`13Dby`9|2v!_o3;a%J1t4z>Cco6wQmJ3-1uoLZ}F2M&a zC&CyZ1 z2yzYZKYZ{77jj=9U1jv5(!hbRKX?0{^3EMNn`egg!DNaJ22M@^_>>dHIzC_fKCch7 zC4J0)d~_Y4K7LeydI7?>CU0j^%of@dNQd?iqoaeL?4}5L9tB_%Yao1ccuVV^y!T7L zCCh+xux|ybperl{V`t1bakw!(uzKEY!7YivfZaRbLhKpG_PRx~6DN;tdwxsI7y&NZ zjwC)SJ^p25`SiJC1r$wEZA;$78u!~a_JL6lGPbKGtz4& zf=ZjkcJ_?1yIH{wfwu#PedsmmgmwF1{5$m_dtg4TvO@UAcK5ET&bH3zw(7Is5NH@Ejo1%%2IcXX2NjZY3)g=%p{Ug%r9pMlDSdyf?N}T4qRntSM!{ zI~wn7!UQ0K;psxHkDuzb>@(OR-q{BW?NTvi7FwPefU#_WV1cwr!VN7Wx;pKh>YkPK zv__l>iquz>XfjkC*QyQ~lk1WK76MGq5U^vOU~pEZZGR3NQmGr>!-}cR#+gdgS-BFE z@wD8p`iM=oa6NvfB_Tn_cbe>0nu%_d-}Zi4AiQD&aFXG%K&?O4o~tj+a8!aJwu9=3 zs$#3Rpgs(e4W#{8lfZjo&fsjGMq{S8N&LaO!MnnQ;JE@7T@XV+)YVO3Qz-?wskZyV zUH#;(+09D_!kz$FXG<~H>NfR$)%Kgf-oM&GQ4_l{fYfJZ5^NX|8i@u^hPtnCn~YQa zfj`N`ZnZAxOa>dAX^z7fggPN+}N^F91unuVc^y{yF`HMgL%U}J9 zTajECFdpt#2oGweCdL($jZ0z#q_I-+jHJj3d#&VD>CPx5#s zbyO4Wh047-jgwzDp~2P5z?}XM-o-4_)aYGRXYk%Vx!tAfK!JcLRNa~x84B1{NrH{w z1yo5!fL$Q4v|Uj{!3Yim=M%?{!t+LHWZqBqgy)Ed8&mLe;DEH(jb?gqM?-Gs0rJ&Y zNH400;E6e>dnY1z&J=Z}abAe@BG7nXknu`rK&FuO32d$Sr;N^HvA&$jjNvWp#h|F} z0zZS-5)_Ct_`OnGw5O;>w_kn5J1|MDhAI#SgHBrPCA0OVLrNA|K0=+(fVyI#I(qkj zvGXs*)sZ5m<+`!qrydkUohu>j47gQITiTexJ5SVn7H-njDD&C0S^z6E*!a@WkPn<# zt{)vn;Lj&aANHadHbKT2y2%N|m^UDGv+B(9xhDrfUmMc>+P=>P8t1uHyBip9LB^5` zG}ME4E~X}EkE?i4LZlXxiF*iNGNu4KI5V-pryqUz@rUozk+>MG!F7>*4@#*vLWrwx znY*<@{!l584z{D~&S1r9#mbfP{D%fIo?>JzKvqDpBt}G?NCGW&bV`G?4x9lpc5PA@ zOdb`7{Ke!4Ni+&fP=BG#V=?is=l~>jsydbPz)WYr_6Jw2bT&jQEYuFkGSa$%5+LOn zL4*=wC@XRfz|qA9cFR^~==?UK_Y!8v@4@-nleyKl5G|&QROnUBXKD4m6T~bLrQv zhC^B>FW1O4(XL>QO=AstdTLu)G%D}jDWYyuabH{j+OjdVMcK-?58(xrjh$rHzc z8#P#&(BmkPY-|*Rg?>o;)hkybrR?1+(+{SBP1z}~2=Q=c=hso-DBFkEQ15q9!X<>j ze7qfFkNmM^6GS&%jX4bXJ5r6SOQnGDGI#X5L3n#YY~niA#rP?LjILNs1@KOjF-@>A z;Z*p%NFjAo*R7+RM=L;|FNAk#JHT^GH|y4reE5&&>!KClAivxR@GGJ@Rx3b)5c^aB zGHh2#)!w_?Oae6aJ*0KPAYBZT6T(7;hAD_)gTUbsV6IJ1V|V)~Iv7V6DeAWP)zfgT z7H1GYks5_Y8cW>ccbN*w7!3tcfsn98+(+Gw$kTt6PdxZ4sQDz9E?GytUuh1>dE?{b z@4WZkzI}T&@*y6g%MxnN6KD{GhwUh_^YG_}aTJKv!7CwvcxhvFm7=Dk6=(*rSztUU zE`yB(*ezjlQ*I#7syP=2RBfQgCbLps7NBWtoti}BP5LjxP`c6?x$dV=oIfM4X^;CY z?253=$UzyWC?6LzlH$VtwLz@g4bh~0O4@Ju3`$%P^dIqhO~la zcU-V+@x%aCF5r!O8lu>}JFmQd|1C2Wiz5)s7I%>}^#BfZeu`4+4LX*HrURFD#sRaD zkR2$L$a;&UHU7r9Gq+0>V@D>TQ1?4WmJX?q=)ObneIQGDD!vdm> zbhy$M8=JI8Z9UNE%!Su@6jVyrtSRrUT(6CEH7_@q2&=Mo{;#eR?!D78!RX5Y4UJYL0 z9qMdoZY6;sprWK~e6JuTSPUmNM3j?N>`xEBhdF5qNw%5I3eEiy_i@s|8 zPyXUR`IrCdzcIQW-hwYyjXF|D8rJ9=dMBYJxC2el9znH3sOhd9$bpc-AP(TkUZHGy4Y5jj>+V!{;$_2(z@om_B%8HFPfu-5`QYVyjM&g4z^db z)W{|HPc6Y@%n8COyzcd*qp;maQigOGo7rjk$}L;AzJ33_UAuQpPK+6^ZT0{rLHcGY z)9f8`0!f7-+0Hfm#I(RZgfIMzX3m7@4@N*3&Lb@Ysu!@whGWJUOJ?XI2xoQzzR$Vv z4R{{5U$fn6NPqb7=E<=u=T6^w>BWnuPr!E6{e?ZdL{HX>VDm!`&M7#iCFthb z0eN3V)Z|Z+PsGMn2IkKuS*PDtBbWQwA7iJiNl>F$-KxqMB$J-&W0zwsTo^KJEBB1cO2dm0j0k%cm^YISx3ygsG zz^qS5*VF{aFoehUk#$=QEDWFhvx@@ z`@X#x`<~sqNDxRYz6z_6Tj2n87d4P@hzd&quQ`ORBhQx2qIYgLm7*_K9)qHw_~@ZS zXHU{$&T0sV3-)v%od=R*&Q7aIh(FutCj}JieAoKZPpS*Gg9Ys6a{$)lRPM{pq7`Tb zw}wgLm712S=cmSDnctCLoG%j9?loHpOKv*dXpQr0NkcE4$ZSKkNx zhxV>3`fKZH`x_^_Muu_byY{)^L8cA|6xGmp$M@{#r=ZS^?_r7566VKrGg@SoEV3n< zrLY}K@%H80X{RwE`ll{$`8K*;aQJz%=lNv!;X}t>fBo(4+jp>4{MK&33Z_9JX(X_Y zb#Vs`0Vc$InTm~yU;V_i*ne+F8zQHqZ*c&30_>W&mZTnLtn{=q4e!pt-H;RRR^5w> zDMe(jsfn@NrpdL2hmIZCcmMS}uf2TZ#Nh+_SWOjV>P3k?-~QIO_<|FvB!A)NYT{IC zh+0DuI4bc0=~}_dGLk5gY}(+Nk;4c0NEVsR3A~2{l3PnA@+*H=s|IthU`w}sIGVHZ zCjA=B)!b!d!+Upb-@Sbc!-p*@pexf3j?!>IoB+Ew%@uuZ^{1q*0ou6i$47qK zCo&}p8XfI)E>08R+o1NBnQ=jK}^;9WuBi8HOw*iM`YdzVKLQAkgL zzMi3>fz`90(PX2-tq_3J(^0*%SW^MTxYXE;d6ESz4vUk+ZG=`bq{K&3BuJ!X1hC~O z7Ila1&>jQ^ z=oDwHUT3QgL?Dm(l0I~y0zGgSb!Gdu=Hyl&Wa;_&kQ`8jsLm-^fLy4E>za#!Rh z-)esNUHL-azP(xjAQz&d(A?0UB%D@19A(9|s6-_c4K=!UAFeinbAoPxz_p-+$_pjf zH5~w42onHVt?&-vz;;FnhZXAzey*N+B5V;98u?wq*{o}s>QN#e0sp=cb#O24NJ+df z@Y0v8`{VJe5@p=Ds9}pGkca2Z(!FBq)LO3$&!+&Yp?5mEc5v>iqeu7cX63xpI{d1AiDBrpgh(U6$2fj{|5Fuoh(13GI+l ziVfJbk-zv=>@Wt_EXb5|QKu6i=_8HpvFgeqhNudojmPOJSQKk?JH#Aw&>y8uYO?^(f0~H7CU_BH@~e)(68F0 z5x@a&gEpV)nm~0mamx>|J)AB6;;s>X>-ZtpSi5?aN;;MsVog!!#(k$?(`_o>i`V?B z>%oKdtLt(u*9{I>>d})dT0<8b#%=NLc%qHC7UZ%0VUy?If22e3h3Bx{l1L73Y3wLB zjt!0R_D*SDmAPM5tnqETHEZ1X#ORp(nYDvMk|d30(rk%#QNxx={_SD?lW;!5``iqk#q%928`HNx zWa-S(S3W|YKizp!!W3a^WMLGv>qIb`9~qF z)@9p2!%Inz&x6EBRZz4i85mS=YiSyB-2#{DY23XxnB-w+1>}{3l<2@t^Y6#6Q6()`VsT3E7MR0xJIy4vA-2pcPej5jBp5=4f!Qu!Uw`diTvi^-C}@}&N|Fo5A5rA zZlhS_prZ6%SJ9s3Lle-aYx~FEd#;Fw=bS=LJQq~TH5VBPg zH0f32TDs+1Z+(2~^aWD1+efj$9g7OESHC3I4Yzp&P7aP-6w2Ac4;4WJI;o7SSH8ze zRAJMGiOI1Mp1_sxb`^;HU4r&^YsN_I9iqB~!<`D1@;tR4oxv@DXe(l~{Ps;gOfo!l z^}^YkS1(Cvy?ExNrRkngeX@-6kX95P%>^{T<%5k34YB!ef9p5UXT~D|Sp4;%^a86q z4sU1osI-@f5yBAfg9+2c6QIyS__+S#kMST?5;z*(wKBwgO^i!t&%Av7nn=X&L=X>Q z#*^PwG5b5*l81tbes0!PKpa#V5!_33px0+bXz(b~ZLwe;vvVHi2XbdUEzqQ|lOCS# z)W|8p;rf7Rqz}YfBBIZVP3bim8BPzW59F=%(Z(T2E-*oIkVSzV|j0r6m0aL#XTn&zCRJSP+X%>Mr4YHcSTls#oNHHZfniHHnpP zay^_a{Zd=Em@;)tijmp&blnl7Ru3ZWo|EVhO=kXlkVu~iT57irt(Hq;JE%n3$sk5v zx)9ngUvXx5zu)xPi72hnr1PE>R`3qU=2_Y6|o(^dd`}bqPEvs?>7TQ8K_Be0kIYk0(aj0qIs?yI#ufFr}%R0v2)%uF5c8{+ep*yUd5STmcoLBOyo+5*pQ3 zVXF=7jqSop>QLD@LGo%N7q+_@D$Rpq`y?u6Pj{#C<#*kWko04g#)|lk`;~9zbL!fX zL>SFW?O)hFMNXfbc;k&XzW&)yfBDD1{4f9I-~9c*_h(x-0?*A*{lfY4P<>DRJ9qBf z_3PJf-MVGj|8Cs4aqXIn^(!}T-n?<+=K1p%0J#PjDj5BFY6A>M>!fO**h|A63Q<4fukSBE-OaONoe9R-1QmRi=sx$KJNpp9#~NU`%nzb8wpk z1dCWKChvCKqo1fxFvM(!0#z(BEs-4i(o;sew+>ZlF2~dv@Oc z%ha6(`E}j*fq$?h(h^NkAP9gUv5^Eo5c}E-(2Z`aBtQTSbOYT$??3~Mjo68W`zC6s zL^3Ifk|kTQAI6sCiDEhB*h%cFR4OSaRZ}(dFjZ6IdC0?LYCI1!Q&X9#smjFhe7?Wa zM2tGTynX-Yo_p>&zu))wJ-_oi=dR$m;Gs2l1`S{`Y=;=WxiB(3cK^YL2M!*FL#(Yy zOygXz+_Zz>HCW?Y@N`EBFO6uG8~Uge@K`%iiQ0mhWWdx5W6VZmZ<)P)=O)fvIy-sg{MpMF&VA#<_plMP zTv3o2b7Ll`Eer#jdwYAs#O8f%`xd(&Cn^|sQf&k>^#>6(kM`7)sRk3H5S66YDvUKL z3Q;#sp(cLK=(u7qWB|nsgcGqwI>Hh#bm;8(sP+UMRN8>fBh=?hU;KhAnn*WkH>loH zW&xI&_vAv)3SaL|!X@vna0EBACu@BjfXfv4tEz=vbQy2Y@}(lxS$R~x5p${hA?pPV zqV6D9W=va7*OBM0?K^-&Lv_HOVa}6JHorX?Nb;GFinsI#;{q5S!%_Q*ApkD6Aj~S0 zqlV|1mm?U?ITM6mE$T0`sNw3N6)&nGj_vCnBd3HYyn65Ut#kJAJAdxox8D-iX7deG zkG!hynoy&VZZ$1i~R)o3BE~GjGdtBK}QV^ z^q5!JPGX_D9+Y(G+_4rr=n+5ZtRU|T&+A8b>2A_O1{%z|$VPamZeo-x+|kkon^jtQ zYxYWL!b*v$X$0P2n#zNBun-!uJ^PJ719D=V*yPYC18yr>`zySGyeCR72HQD^+G3@` zc~_Di?mv?qdgJhi{5h5r9t|Kxw9k>ClEzRwiy60Uf@K$`CnwLGe*NZk0SPh~Vu?j( zUBC6MZ~f+Pe)6k-{3pNs)-L?$0sKzuV26Z;K3VCEd4w; zGjs9MrQ3I2fAg)kZ{NN%H8s6||9;rSmT`<2uy|SXCd{;Ua0OaAf})y?=z{skc&Kd0 z4pi7u>SL*PBUMpgg;DEDb@ykv-?!;yC!F@|NVmHA zJpG1sepM@+oWI2eupfW;0hAVXY3@&~KAcBmOxjkY<>V!kzGtWS^Gz8T6nL(RsK5HC zw!&e%F@@`~gJRuxY(pF1r`q76&;W*HbPqTx)LiExtNJ?fynLB?ar38Q2B4Nyf;11k zr_q)1NkR-%s&sRny=uV)z*l+RF{31_ax7EwtEU); z!x^|C$Xv`C@S)iUux=Z(ISo0}bvY|b(ccQa6wBRZNU(T6u zZ14+6&7$&|Lv^Bpid6WD5N_2oA~OnDxj~T2s@3!JF{UIQ_;_ia_!@9FJ?h8=$N<%O z-~qUfl0Z7r4&&|ps| zr;Sg3yyQiQ^wleuuU@@!p=iFrs5AEBW=`i1k$}DQ3S*SZ~XPejsl>z4FJDgBnMQKShDfa03 z%9nrL;|L+frP`8O81cE1L^8`=Qx(hpmTVBwRF0G8>r;P;`S3=DqPDyset><(u3RI- z{FYpWmi~J1P1L>UP`5&0^TjeEJi%^SJcv>@J3z zsc=7;hvYu*?b&5I)oxkv4bp-~i5t6ga=wR)d9wIp-!Y+XNb{)v0$CB%?)KmCIJWelAN&Y@4VTO|iu}t*P zyW!`a%N8M+FrP!lashV8pDsw|3s^A@aP)zk4?ngTHZg6g@hdQbwPX(O@-_H)ZcvnK{@StjTkv>J)? zSK#X4!VFhAlZB$abokZdx9+^v)wRnY>%f7%+#}G*T^X_Zrlc?!OGlGO0xek(wFRw8^LCn*#WD|TS_P^b zR36;Zcl6LfF_1?N?ql-z_U;@!didJq*$4I~dhLpPnGF7R*v=j)HZQwqfmKMfLo2O^ z>h$cTHE~q>*f$?d1vA58IUU;oSvmf6R3E1XuxuY3V1NSk6`oB=HAuS)GEgY`m^g&Q zYVP(Wvi>Zv+71vD;&nExc~R`md=Z$)?y@C`VydOY>Odb^VUc{!vJ6n^+si?>W^XKy(yAIfE2w;Q)h(JdYhdhKgZ_B~bLNQVC@(Wr0L>PGC;<4d% z=SblWGR^8&=SBfs7GlvUF)uEY`h{QnLUm1^ZfcKCA>~Hir-z3-J326MkOnBY;Cags zcF5VLO&#N+vDZy~1zS!(;S_w>JUIwIq%DIU#~S~P1m5vs=qKq!vZ{HBsGbV2*9n=| z%l<5E_env1kI?1?1*AGl6EVKc^+AN37|B6UD&~poly;+4an9DRI9MML6FTB`&{Q1N z2}cd6XBTQ@k#9b_k@ubm0R(sf7}*8J$Rj+lv2o&*mM;pCT4gnNoJG}Zb5jHI7*82f zc(q2_$q&J^BgE!txq0*E+wZ)0{4nus@Q2HzN!`xb;>O-xA~U(AcbdlK`L~Y$)TvV=BO}iFkYwAxZy&(-L=GGk zV{VKT_=P-00`-8}{3%>TFz{{U*)fA;6OlKwa%y(=;*E9d zNNLB>qlaPaW4}H}DhNNxQD9uh<>f2#gML^p7hv}jHBliIK+lkNfNbvD$jfj;WuUsa zM@a7Ep*IF*N)1RG!Z*JMm4v;bfMC0w!8q(BU_N?k=%!|$+H!JLlPA6>Dq;Ceg(bb_UN|)!^W4#+k?74U308L>w$c5 z4A@%bvq%6^=5v9(NPBkyc6K3aSM312-a=8-UDIYWc}s^U$H&0CCxUuUT4ds%H~{j|d%xCnY66_9 zd9%$zgLiCPe?0~uHFQ#kR5)um=foJPbx9CkJz*0T#Pbc9v0%^=(E_oIR z@W6z_XZlxR@BS$KqdVY>)!RU9tCczsV|GC{@=*Lgo3J%(CpHkkdwDyf$ToI%(L}1jBd&Gil>>;! zxrs5(;fu59|K4}Ld;h^3Sor<>Z(O=`nI~p)a_TzY`psLHE`xBJZ8?4Y&g=KyeEVHF zM@L7G961t(9so?(2~2}bUfG`o>E=&ha|bjwSlip*56M9~-?n%gJlnU59K}RBa>_w| zQef`Y5pMHq@cA9vu~|6W;GOSKX@Fe`=snN5Uw3vH(FC!xdUyL)4a6tafL%7%-R^Hg z07DfXD%=?NbL0b&fK^O}N@TsvdI2!7PUkZ2FbYx`iUJuYaE#pY#R+<}gA-t9{Y|89 z-mvBL$i$u3-x(Y_O-96o8aKff1Q;Nr#06q6@ZMx9s(3F{suAwo2Ld?W(MzJN8cdu~ z2Ks7vq6JQ5N@5do6;vYCAqZK_{pPwZOGvfxi~!Ze|+jIv=nFbB>O-j1}R z;*t~SipJZf&JIo;TLs2sYupNk+zijHg$3`rc=P&ATQ_XNz^zf$6rUq}g6A1}SkY`f zmd@x&u1k%>J8_+5!PsGYmQdARG#<^L->_XUq=YI zXiugSu#@e^+gXz~w$iG)NheCqtErneCVy&b4NJ~}r~V~EWKYX54PhG2Yx@F4xd>xj zf$9bUDpP%DJDlZg5J09|Y7QNMojTKGGr*h5W%SrrzM`~@sjG9p_W0w9Qf-jP?*v0| zNcd08NFAw2X`C~QSQ%^m@>K#No@N|c=P=a zzK+22xAVUD_VhsSW{-HB*dwG}&B3G1RSZ(PySqRr7Yp(Xb&n4K@WY9jc?Ad`;zF^* zBCzF3@uxiS9CY)mfPHTAxnRp;`t<6tCRcsnd5z$yXQ zC1ear&{j_v9i4vt^>=%E`%PKnGKMO~ai}IhCfgoCPRI{v0%hDjj#R_5_#8+P8Pirq z6Y4;gSR&I878P6C2HVM=$}~@Vfh0B07}FIAmc~qQX%=Co*viT5MNOCPVbCGT3_3gu!w2#lLCz)cjvT8VJogGmg>Z{Ut&c&_ zFHOf%fK!bR7BX|x)uA$Kq7D5jwa8MBmT)aeBPTq&76RMOR}5zZcDRZ&>$`HiFGr`v zv6x8R)!7CAAuV_Zv-z0yW}eKzyU&hp*|25n1}hUcm%qJzVQ|6IPeBa3saVgIxXPG& zD|KpF({lDlgp3afm5auSjRpJ!*b|mBw~z{$0C#>Q`#fZ;8Bb>j41quX=%dRQFRFvg zSSW8Z&S@meQd>rXkQljuGBYqBn!wU`NXagMM6!e+lS22FHgIM)irRQ1=rWEr-idlxqLF2YDp-R9;YwBzy8c>CZ$Po zHQ-e%KY{vya9woWhKevBg=?O6h{qV2r|^#0l=oF0n@%R(2(rA9oZa@|>dDS9svYCv zdrTF)aLD2k(FI@h9K=(L3+HH#0MX00V8-3ZZSB zQ?*$xuck-fEu7~_;7CV|VIkgraQ}WEkpS#GABcM2?%lc-wDQtG6jIUnIrIiu__@@4 z=7~lR(^gahD0ml}`yC8&m0;ay`KePUJ;FS-V5ET-<$la6|HB3dV`pp^IgYeLb$fhW zyl~#p#w3F6LAq!ef11z~Z6|6)wTz))I2IbG(uVbV2bbn5@tSQsf`LoAM!oUXn*8l{ ziwsCRTL9R>yV*eJ;4XDWp~?>r+XH|*O}XymwXi}5jc-@b{+*^0J`ap<`2ihJirc^D zPt^z1yApfx;%bG!3KOi{AVy?***raA;E=&5gPCENjh8OvY$x7UO>)lQUqf;(!sq0b8Pj--Hp(qL&`~DNqGstIDsKoN}wjrnJW1u@2C!Wk*x+Y8;GA)YNWlP zAFy>&_9eVM=TFWx1)ky|_x1IhpPu;oyKh~Z znLagm?BdL{S47kuaIAesB4R5p4V|L#)Pg)3U zLj%0=S)Lhgc5az4_WELx6-JU)vn|jaw6emrd&hdCC+vr56`P&re))$VH7~tkAM6VJ9v1C(%j3Sz&iW# z*+$!Nm6+AghqLS{0LXHpg}kE)h_sl_=8%bUd@cs1wkF{EFs~}wkQ$)zG_tm2%U(1T z6ENx^usJ7VpMO!B=xW9W=GqW2Lh|}Ez6yOH~tf&^VHxNMLZj_&?3^B4nm1NJv-Bf4Sm>`gkK3xiLkTiMe9k412l4sL$Tr zJ;3dqciw^Lx9;41qdP*d`Wnyx`u(4X8W6`tZoGC#3>{#`k1bF<8xBcnq(ODNEegIqWrm%J&jevTrY; z;^>Cwc%~PD;UHA8jt<(;h&A}khzVrbLwt6V&8j z0%`g@9WCKwBoDv|C5BP@m+XNlOI-kU95VDb%j*mIsOv~DI03L;yP2 z4w+WqDp96q8Jm0k7>n9N-g|g19igq%Q2W4nm6=y=d0s7nAcD!EtDg{N=j}$f$P-{! zW)?Ti4fYi%DWM+mtYLyh+-!>a8<4-SY`NY3U)jH3AcWzD7C;$#JVkN*Xae8CXz&60X zF59i!dKb2D-Mnr47VzE)-Z@W<=eN+q}fgVLlr9?U%zvkYefY#2p0|Z z4p9NuqJ<0LAvY|A%dgxEQL*f}70|L41E8^kK1Z^4ErbS@^2bZ_(i+{Z@f{`oVtiEI zvj`j94zz}-2Z1>>G;f1S)~x-ql&6HL$(;!{q_LlI8-r?6o6( z3EJ1xt;aE8?yAX@MCs>65*V*rpWm=<9nfZmXonec1ff{{5-RYyX^2b{^f<{QyjOcEC*Hz?=*WS7VQHCQ1>>*}s@pMj;*2kG9v>MzE@1og z$ng6ge8`*r`n?CdF5md(w?F>IH}BoMF9wpIT-%CSLdfAdob*2k4}rOvfoius#zn&H z1kv%paF4hM)^)dIP@R7UHRYGKq|~Z#Lz2x|bQav_XQ*(OKz9tp4uu2!milXx8PFGa zkHaT63cN_z5mvBw@7~jP4?A|$Q{Z!NSC>gsLxSLTL3ePtyeJBnnghg7JvFWAPv``1 zc|0V@39CsCP<5AguIbc7q;Q=9RcMAYl=X$jcs#t-SfL$JcO6{%H2bLWla0ic!#@5T|P2m!KcI5Hoq_xNLvJzmj?Eufvs0A5v+8n!DO=(S41 zc6f_619JuPx5wqq;l`n`#Rp|JF&Rby;2minI(GQ&`>*r2i-f#7I|JB9P8<^vq$qFg zK{P_)j{c;5?YZ%;mwL*;6)&@=$02Wy%-2aaX5SGYppTqTCCVj_@*KUd_b%t^Gjx^? zB3-U)G1Og*y;Z^W=@T9di>IF99vK-L;?Ctc=jw+!V4QB!J8c3$APN1|BNEH&`a^hk z9&FF@_AFv*welx?fZqJuJToRhIn&T=z`jF#NilYWJU$saG_H&X-bGIM_+&O`TY#;b zwgubygSUyf+5oQrAZ#ZF{4naQ<_I#zOfw||TiX-u9SJ%9;78}fbs-aX+lix({lOxavFd))Ex12mAe zcvrUt;CmrCQUKn~mg4FyRHnsA`daMTEZU=PYq+(2mW1*GI_r^}#|(HjVAsn!NIy0t z*I$s94r*u3%XS+R>78r`w0tR`)(bktEpCUm&F(~+>Z4t)DDvYZdFIy!jODlCmRC4@ zmRTEWSlK)aPD{oeFoZ^EOc9T^JrI@cSGLvDGy){Ynly#PShS>kg~WC=?@$dZ=$%_? z7GUnHOd8f*IhK@C9E+9MuNBLd=xGjiOvx0gz{sn!=YQwNzvY8N)6-KA-gwg_DJP6c zQz4Fg8YIYoNt41;eI&JsgUp*I^aV0?fMg&a?{{aoI_P%J3V?lh&PyY4F}I`poD>q) zbmS&WcY}lA9UdAEctk^cSDb|Q*F&Al2R56J0uH0i3_83&DMshykd+Yt5IqL$_&INh zh;gBYuw4`iy6y@N@0?$k84b91Z1)0~vjBAh6=!z7G`H0ct~-I3V8E(S4<(HdSeJRO zYDgaE+)qr8%nXMTnq5#8nW3K^3?0q47XpJ4^oD`%w|9@ZwA|if8;yJ#)im{07wJsbuXltYj(Sb~S&5;a#S1@$Z6!b*1;Ns%tY6M#%d ztUom&`;e$($T0TdpE4+)^$7?+ouzh+h^C;uNV}AAficd;^%dUV=k50Q_xcLU8?WEI zJTr~GzjgnPHLAk{M-KM&sue{B6kM@w`nb8IRCwMKUnT!)o5!JK&n$+qZI;z=>pKik1Ew?JmA_>6a@o-lD4gec2eH`PKb8cHhB2IFzFS4d>QCsZ?-58J(zTETXp4MKq`$klfN@b!i^ ztWqvI;`VFnn;mkxZe8k@4V$-Z5;}|R?C99mwRO{W&YA8VU9vs?6;_4|cbT1beEb5M zq2&?)Us8MgV(cPkj1EN3h-@T0kRQTx@B0Z@ap*BIRu7n<#@=68@jQH{oB!s&`ETEN za1VneuBaE8iD6i{Krp0`g0mZgC?EPUMv1Pr#mI+?ZL1<vI4S(3jcCm?Z zSV7T9cOhUR5Dp*McWz?*!QDHyt~KXqQj$OX<%0)p{Gb{zI3is$iN(*gsA)by9bx0b zUqCu+Z}1Mrn~W2?rZ#cLi~WicXTv7ec$|@Z6udJ*FUg zta*BjLODP{Um>eiMO%)%ntys<9y?bA#t-bvnxOsrtj6N22lc`ETFS&-!vkXuR2?LP z1;|`wrf}ft+(iZ@68hq*4(ee$wN?4NQ% z7;wqstrQjZZeh_{v;T>)^t-81CAZR&b8~2a%CzZLM}pfORil{(1*(a+vxOS#WS9h3 zC6GvZK?)&hazaR&7sAX`94r;exN`Y&G;e3;&Y5$UMn@<414K|{*YxrR(<`NeL}JX# z0fb4an0A;GFG2142=UZk-B~VGLfTC(s6cq2`+5%@*n8!|*}FGiv-RS=Ti5U1zJ6|U)ZV{$ zZ@gw7WHSp8+qfG}&LLzK?kzmX7(|139AMWzaNBcv+JOZfhoWo&8|;coQcTJobj@q( zqqPuS7+80AH;RE@?CZ-eM!XG3Bf1FZ894ix*`kUjW{kFRgTVe>JGKhiq0XS5ZbCdj z1m2k#pdslU8VwCRD^W}Z<|-*Oc$ZCs7rciggLHlp{`Q9CdJvwAQI~u;RoIM=;)#0) z`_iU$95qJ8d|a7PH5SC%J1~eX+jn(z*_Vbjw}=UFiUXfW$gYgPkmWM!#X#pZ>FdZg$M;qA|#ck)U_+3X843TDah|&wjwu z$nOD#XppCeQRC`D_;{}JZL&R>ImvfP;(j5{n>KBNBJ0+th46W3BBAbvQIr!Bw#FoK zgiZIQRcppvCzjl1k{S|fWYk?>#3y45ea*CL<xj+h!wE=Nd`AQ#PekSJTU|T|MGs2BJ{aHK3*NBoWI-_2TqLT zxVS+&FFgP^J1nj*=UJ@!iYZQuMqO_X8E6^*QCFu@_&v&kRQ!2|F^yqgTm*m=a1m5i zSTjQ7&~gvLD||*O1C31_;SjHKg)>3bAdwlM zfwN&;HgB-!0Pi1k>aS&GW;-UvM@cNN1!ZZltQ>5IhQ?Ryv(Ai>oj?TVl!u(pL~xD) zxF^cP1T;u@S4+wv{GLnZ7gY44Vwnte!=fo#(>1D_7?s+`2?vJl+Ct&5UH_R&^;y~X z-n@6~>ZPHhuikp?@`vxfb@R1LCkKwadH0qb{5{KzDxGarHS~tzo~tQ5&QS%tlx!_L z5~_O&N02wtEcR!>wB@00U`nqsGGqzE!cDer-AZ!FFxsiBX++J@kDv`?lB0w0_=o`i zKYIkd*^VbF2nU#O$aBWV=&X#x$M9SRCv;G9;-UJenr%dB4lbP;7`4;Q1C!r-@W-vQypLV|R= z%;1+`p9>9xQvU@tzxfbUwWmbbG$v7R4XX~Cv|2S#k4R81GN!ecJoB{S1N_9Io1t;8 z1jVYSa&#ra?1UX>&&gZ}ugy z_9_vWN~V=ej1vvz6;O27^9r?;l^jC#0`@FqbE0=*Q!L`GfgZvsX-QDOd1Dq!`spwJ z{LlaPZ~ylG?VGp+@wOZJtsB>y`vua*{mj&F-o(V1bBwEDt0|exggSK{dIhKh!&~7$ zAA5W<@uDYaT>SyNB6`Z-PAS~$lFWu$g@Gw#n^=^h<@5#Lmb|qqj-CkiJjyN3i%uuD zykV(7&2Mfle>kJ#MumF_q0-&3j%#aj+&XD=69(h)Pd z$qJa9HT5ax1gYS?fuf2A#Trv{DX_p9^!_m$av z3a>j@jz~wR8iC1}j!MEG0!Dg?4Sq;^jf|+jDBLiR7oIagVlOSbbe=mqO@6R_B{XaY z&J7-+4a{^qROEzVx;U$yLr#T|_6DRfw;LfjEOqXul6Fuw7o!OOU4afP0xAV#qwKXo zBKsza3;PA>lKqbO5)bt6w$;Gb-+S9;1Xf+%zIMg=yKmfUOx`Y$Tu;hD-4!_JPA`WK z^C3Oq6R5Sw)SJ_H7DTlr2;b~c`xXy{Vgxd#vpsvh5Cq=M2W9Muav+&c=Nl7QqhXbV z)ftvdoEjPw%}eI-RV>2V41!BZ)gjwuY}o`5#7H1uz1>~>@G+WC&I2#5Fa*#BAZTz& zgJ>w8TPO4tbnp?WUa7Oy{U%;R-GM5cN7rrh+u%LHD)|JSsFi$51MKs+cXxK~M5by3 z7wnz$uh=^~97heO4eWyLh`Om&F;qCe!5t4gd@Fb%IdLPyC}Ptb@*rIv?iz^N;v~6f zRLME%nx35a-uJ#w@qsguG-Bm(*B$ClS!m$pOS4lGXkI1jN+pPpv0RrR=@d%uy>J_aKyu(l=OdhL#8Ip5V6ssOtPAq{WNnT?c*!Fe z6wZW3+UKy{C#B#<1#eK9`>)^ntH1gm|NZ~+zY0Z=-%@w`tbiWSin2M zCfVBTQ);%NjA8O7-w}+Z*Sl3e1k(DNnGv-ykEh%0==5@orB_Bu|I#DFy&(j z<5hM@xWZj;U=G{id4u!<$t?e=8{@!{rrWPW74%c#dig(nYu-ZZcFUUB$%hBKhqy*^8 z86{i8cKGZk!wT65SUNY~3CfptAv0WUM={I-ExzshzvvWrdAEx+l}of*<@gGJl*w1>>Z)5 zi|hrBqkwo+W>kF=x~5Q}y8R^kdv|7g*i%D)|63mq9yw(EFW}JEI^KD3_wxDai)ZbL zbn4#CYg=u=SPpzg6;lT=-n{PZPp=8mJfMf%6r$ zl3ijfP3`I4*}0u&+QZ6jV?6Ur@YYT1HbZrvOu^orTjj=dl;g$rvkT(VsdZ0if1DC= zum{*BCo)vB#)n*i&=7kTp)G;~{y@x25L5$6&QFkwJP>tlY8<5UKnZT#xPI-@#aU|$ zFi)_FZ7KoKX$q{2H|D^;eFMji>4G+H@{>UoHyDRZbGg@=RwENAwHh=){AM6DoivB= z#Pai~Mev^WzvXZDUMkcC*aIh1q7VZHNP@=vCu-}2 zAVuSeklg}} z>#3n%B~z0}eab4^U+#$<`*O`Hj=0XFM@?KDGJP;$&6!%4u1RVAKZHF((s9+b|DxUJa%Df9PBq^!F<%PWg!|5INF~ctqz`* zkH!kuTm3?8O08r;-9^+v0PQLEjZ@tcX2LA+gG0txTqAQ^J^IKa5Z;Oj_(R|=xUfo2 z#J%Li#l3xf)B%|>X?Wz7m%RlGW#-6WIuQhDM>RWDw+;Oh_8C&G3%0*m(0a@vUNvrDI41(w-8(yB%%K;|Kv3<6?I zqFE;g+XEZ*X^+Z4@QHk|U0XG?=!8F{wO%_1hGFc5?aZawB4U=|=dz`U6e3~Bp;HVe zk!>?gE#%Vcs6V`QbeE1(jtn4Ow@L^+9_220j($LI8iBu&UMC8aU()YhUnj~23KV6S z4BJs|w`%SFo*rgu(SqzMAR8fJ^*}v3v0>dhuhvoohG^DKXe!*ex+8%>7?jKuf<(Ay zN)b?8xj6f)U;XjLnR8wa+VdYmNl*!aU?dO@w)gb7s6hdz6MVjnPo2Y5$A;C=JG{NW zA4fM^b8F zEoqTo36^$tcXfC#7#m8z*^Er~CBUXmo;blXGkboVjk|?N zqw#J8$Q}yqCG)D<$|ctkb)XEEwIn(8XF$4+YQp@enj2xY>uToQye%5fK$P`KNKZmX zD(JCseuER4iEi_;D6QNzQ8rd4?iXgXzA6IQl2AO7947GTsvE*@zI~ghFxh zWFWB6?$>0GnE92^5=ci+k(vp3>dC?*mm$ksGH-F#(?<*C5|ALHQA0LvX)HeI`P;gi4r?ekM(ob5A{qv9c_Mu+d;zP4?{ zS_1@?5u8s`ye3F5_MVkoHhvMc2-~F=67SEtk~oK0;q2b}!qn81&F*M9US)18<(5C-g$6Eu6fu-UcRB;V#RCD1Kat*1wP z`--I&!}?-oW>HOXn}pv|=Vn)%zr7=0?&6}^&PDI-;)hvbD$uvNvgnlqfiNtH6PrbD zKBB-o&mKGn?9L^wcw)mQ5+T5@L_0-n+q&7zAL~X3=nR30Kg6!2>({;U#vA9(o_*uN z1B#(N;Svji70<8W78>WVeD%PaRBJteZygi!%F{0T(GD&g?a;|}o*D2?O(+Xq8Ud~$ zkE6EI&aOCWL$cbi9h@$=twfE{NW7fJP@tH2o7B+G^8a0IXRv^Ld0DWeVL`fz5n2S^ksE^Au93Xqo#qi_U-rHd1v(Wh_$XZR7cv+PEA^iil0+J8`f~P^TYV? z6C_XLWQisBJ6AxK;b6$IC5G^PDe<&tXGrI!a)QrmR%eWG_!X4fpYppMu&b+VtWd+@ zuG$<@IZAU;Jz+Hq0ijt{7u^ft6`~J3K?Mvb3?c+-5+T^`UIE`byG$sg5XdZfx@8i1 zu4xDx-56rzI}};(gPZ_2kVSLM%<^@iC`1~%VjTnt>=>|kU#fw~&;pAeHM`KV0o(j; zT#vL+5Sb|jV&A-o?lPvJm41>G2#XL)#g;WGic${t2KA1r(UJ^KU^{jV+x_Ik6@GGP ztPt~$rf8cRzdVOo>b1A8*Bm9!24yka@Qzk3y>tKW>^X2gc;?gz5%1VLg#Y%(AF#^G z+LHq{blu zJCK3uS_$kx13x)xUKMcSE;O%kbw}>A{iu|vwC#39?qX#u$ChBbuP#BL>ew5qAN5VgE6I8VeXB0Pu$7xH^oQqwD20Dl!07 zEDn7R?V%ckobcl(6co8KZiPz*gBk&>QDvmvx=8;nUz{a@A^bH1sBr*SsLqD*bKN(sb(cJ821H@aFkNG)ga{5)_X=9N6xdn8hC`p-VH@oEVH|C2cqDojHG?)SP zY8f|aQnR97BzL(Z3*46A?X5s9@1nVqfa;267(4r=&Px_AuI`&p*>x60pZB#OJcXA> z$sDB6-cQbff2)r_!9FcBD)-icl!y=?xB(#Bs%>SCZL0;jsa`FE(!2~rWAbWc;GoXA zl7+8<^p^aoG87Ydk~g!Yvoq)Z-M|0qzy3e}!|(sW&j2#ShP18Se5I3##Gs+HBiCZ@ zF4Enp+cYo6P6hI7w*Sf|y#gj1r1Qg|G!lytqfo?NwkmL|NpK(!%)u|pU7?j&eXNEf z@FoBXbZ!Q=Cn4J!ECJqBOtn4T$;PZLN{pfe*yZWl-D^i05D2NvH!9oY@2R07q@5;S zn3=hA`xfsyHU-kNS(u$_4!vT20SRMGlw%nkEH(WK&kITuDg$-dtpNLf3176qW4@#6 z7R}Cd`n3hIK;}l~2{%9{d3u(QnvD0^M zTx*Lm>>g%I89}@QhdGxHiF>Zj4@IJYCnQ%m^TG3zhnDBxMIIgqFHhC# zDPs|1VF1pL=V;W7UcwNZgh)41q@C#?YFPp(t4{_ za;$j-#D*2sJ`21~W8-O-#yLL^kI^{Qq;{B03{q>>Vx_qdS!d^VIHDgH@fVEibUFpEMAX3gMk++Y-~Whiwf0W(O<3?_lMqwLKa zH&FNQeCInD5w`}R3O#9FDYGqWUc7bl=KJq|fMA3_*~DzsN1hxRa&%1t-UiM=b*{yJBjaE@faL{ZGy}hOZt3lX8@PSOs{8i`?FB>H zzT1aN%QFwICEmyuRO2E@FBqRg_>>7pZ2M;E%`Vx3?T}f?j$qcW4bpX@?$);I0O2LK zFfC4OCpJDlrl?(Z*Id62wqx>myAP*gRz57k10$f_(T2t6&rSnvw!>D&f+4w5p`4b% zjlCXZhN!R<{6c=`1W5%Nii#%&o?x;?ELZXy{5@ZPmNH-8v zF)F5~06qn=9Lw!e1mLb1J=EJC40_VEFja$&r(jr%(F2y=X?y z^>iTVDZ)b$KJdu8d64?3iN^_;jH<_>6eCENX${*2)d{8XI38=5NwQ%G*caU)x5bK3 zpxsCmO{>~7g9?ydMqki7((aQhCJ1P{?qSe1wT|!^_jnA;ULpctZSup02Z&#ArR)UR<4u)nG?6YD3trW3_YaCi)?G zpdw6En;1k-YZU{Hzv77S|ez)69*joo?%NTiOIOB?*@{@wMkF7K^QXy)rAQhC+-U??R55pL-$v1u&wJlfAKG)# zU0y`kNCNe=y%&J-( z1joU?_B8R+q?*D?=r<5{!a>5=nDz5#E*m?q3vO$6e`t16?K;CDSdqI1N`rc3x{Kt? z=~r;TJ3HIDCl^Qpi=#jt!zTmY;`rXaBz;thn3m$MzT0xsvU-E;tljEccwR*I=+SsAAO+5=6Ss45c( z*oOv=UYt409+?HUtIX-4luftfVGX(IbdnJQt{&r}J zHPZ#5O^5dH6KCr)Tl!tI=n(|f+!o!}fTWkE(^<4%E2$XDr_s0$G&i*^kjbJRkirVM zOExExyEHQL?7J#D0@%V{G>`8ck^?>P&OgItDpUqOTQn-9f`?ozjSwmE!33T{ntbf; z?Ck0678RfA)J$h_GukrP5?4Nogw3;HdR8@-EcS^yezw}Ts(jZCIlUUv7(cLYHLi@i zBlcHVsb`nFvaK+po@AFJLKq+dbn*O*&-jdujZaNY`}i{XhoyWAOe7d5S6H4~)W(8K zU@xe{(gD#T!ny^g7?K-?Q&l)1vv^%OaZzYY&Q%P|MkWi-!`KVn8@5Ar>H{9-B+`-- zts4DZyG9r22v@jGw5>uMnPwdn!4|7yGMp|vpJ*TYsHf!dUa@pp9ASsd%)Kf>PMwa5 z_|x0zHErcyZNQ4DBrC5y@kv1ECltc7qPcb-5~7na4wXx3p3;EbNvpH^D<2jGi0VU) z8VmVp*iO>e3sEAL7<~4FAH8@FH z{xA@{_aOkpy7rBMnld8}61Zj&{Mx(A=bjU;$}Yfm{&_&I5HAJfh1-S3^Q)uEwUm`- z-i^W{g$>&&(l|js25f!AM80y)cr<4PVUQF;5|{utG8rs>UvCe5RV^>#bxeCXnVOg| zuX=Lu#OdKv1_Ev|c;OFp0uGhq+>E{?BG)Yt z*tp&&Fp&1~k&`2X1H3T@`+LVup13?SHFjzc;=nbV?uzzko*A|SAgcpprd%G>u-(+E zKUImnOQ>PRBs`P7O|qg;v(TgRd)T=>6fW;o!EE%}+qvTPk^JVFA%G@yR8q_>Y~Rzn zOFQdQU!fX2evAzGQ^)B??9Q`Vt7=%yF1e!310$^MszhSwuh@}VfJ2et1Dugm53jBn zRkmP-_TcLeq17YV766_zly-6S3h|-~o)Jie&zo$u*hhl%I6QX^7Y!$TcSjfhyaaq~ zZcwDr`{BK2PPzRP1F0t7S^|}+WCF!ap_=QAQV7BKCmj*?BetIWa~#88Dn``tbMNl1 zfg`WlA{?;W+3&&q`y@@&4WXx%D5VoXjg3<`u0QY&(>0)p57B>yihh*`)JH)!Zv=7v zbj}886Y{BUa8hGxs|M*R>?c=F00_KbP?^n; zvH~*n@9xozdO>@V3V3dWizgQti$2ZTYTXBgWOK2cgz<#y1=n3<4m#@lO73M8@O#bZ zE!-lT420RK6IXyaF6G2sWJBSuE6StEq5NgIp9@jnxZY5fbx@M&JH>@N6~jl=!Fzz+ z_Z$UN)HW%Iiilhxb>2=~D4?KpxCiP*&Vzf;KPS>g7?0-ypTC=s5DG3&ynntu5t<~r zERyDpC_755iC_^;X@~^5jgQPsobiDQk3fKp0z3k|LvnR{;_=5B zls0%#0if!YMLt+^F2AW~`r_?E*eV(UcvC&fu8?Nn)ZbeKE4=3d?$gJi3X$V*Zz@2L zUfH*IeDw76#27u%4tl|;jX3E|`c8kfm`-tB;fhic9d|J#p&GgpecW63_ARSO=QEIje6VH})B?ucg3m>Clh7Wmg$h)zp zTZHYly?y=GJ>ln`i!_SU(5I^8-7(B%iL{K@y4iP#C&&j60Oq_9`W>*x9c_OA*#4rA z^oin#0}nX?yubwLRn4El6b>DH`Qq%XN!6)|F-CzT>s0WHX0h4ptjH$x<+ms2fK-(n zxkC&Uskvbke8(ejTQCCrX@*wSk`3EE>tRw=&n4jj=lB~r+)NdT?OaHeG`oh?7ZlbN zSe^c@y#nMR-?YP@@-!mMR}OMd33@kHRT&-_qQY=YjGm^XuvdYun_Ka$hU$RKLgOqua>0fPUsg#pum{iiao+93I(tQBl zP@Pn`QKIjtHEd6Gm@QWL3~hK44T|I4pBOu@&i2~M#+nghfAvI8;G`p)4nrcn)P*QK zAK#!W8bQ>MDLcuU;|$7hSiHyeDbT0n@+`?H*d&f0WKHU*d{GQub+d)m>(Sm z!r9_%^(qEStl<%EZXLg~3qRkoeyyz_?_9q!dh$58%+_^l7!=_sk3RAU$EF!BV+Z8i ziFg>wsSXL70RqoH!zpI}5EWwrfUQ5hQ7zS+8>)Db2JBAUD38P>xrnvaWZZhRqz_u| z-Yw>ezkPa&*%@RYw27lYQ`7Xjdv?-I^5e*y>ybhm!@x{r=xDv!rc@w6Q*AE`X(hMN zaqZbqi?TC7h$RfijR3pk1F0PBLSkUMDY?!a#_70}whUt-##Zv%ncv3OtR!IfnFAW3 zqb*$JeuwZ}_uTj%M^s`)Yi+xSvfv~kP+0J;-SnniZbBV1j1}t=4o?(GvU4J2^^V29 z;z@O+QF(5SLA2F8hPLhM6zK z3GQtLV$rUf!!^UJ92{GxxDvgnkeCMSfA`Vq;7@9<7_aaAYhMk)C}4lWv($=UGXb%2 zYqCv5qwX=X0_~Zw>Us}SIPmu;IdQw@GG@V1M^6u%M!bIY>fPJ7-+uGWk3akfw*P~l z{@$Pd*`NRH4}Sg+e)_xSHGnEFH#Ac|>I-{eEK!B(!^6YZuHQIz>=>ZtoI$fGAI{i9 zOykLMubU4aZcLsD=q<-PFN|}foY<2k9Rc3OuQCTt7>FP|0-T_~I8rcc>lzNd^0JLU zEm(m4EOl7@ww!=X`JpS$0I%`_`((O3L&_kIS>O=QE2sb9w}(9tYrB z!|Eg$X#BuSY|aaYb9@00o1~%cu*XkkU3soxHF(#C>gK3n!KN-S8Vs<<%4CHsubRbxca9)*I0d)ZHn6o(oFXW1@N8Mq&Vu=j}@h4!UBmkMt8jnnjo$(-thB?q0aDXDuhe6@lh@3(Y08)TGw^t#jjYQe9uD6jJU_ zz{|?mCfyUCc>Fi~sbsVnunUag+A6$_|3rfM?2hL)V4;#>@&H1hwp9bBr}y^HOpFP4 zKRbT<_~C;?M-Fvu^YOT-WTviOe389_;g5XjOG-11#g5o0viaE6zj@C2h*%upFTrhw zpoPb40e9t?a80uVAzf6Xwn*Y?Am8%5I zVC?cE>bx|I7aBJ$g7DD3j}~@y^R%nL@mCK`P=gc4`9QgD5-mxW`?$IGb{k)_0v(-8 z7H5pWKLBkw?pjxB@Itvb`~`s{nNZz%%x<8Z?^mb{saaA?awQUCIP19PMfmeP$rfG@ zxmDY6V>g#=_fFAkT-0C_OHl~HCj7>&ri%!qa|2lN4BpiT)-gBG+t5QhfZI40MDkY{ zHh8DhY#EFtA({mYlE-#*BB{SbCc$GG^tlzziM@ta|7hR(^(~KaiWBv8m+mW6FW-po zc@^NBh5)U41l5vO>Xv7d(_K12^vKDfK|UG42s?o{U>6@lW(Nia#>dD1t6%)l&6_u2 zvILGGGi(ivpMxd=Qx5s;?K%3;#{Cma`S ztAtv}sVlt%ne<3I)d<2d5I{vdi!>@3wi9D>xC#gCOoIgK(Q+j#A%tz!O4$T5QM#ey z$9w`?-HiDKU=aKGZ_FRn8ZJsfn_O(_;OP*X?a)?X^+=%5h0mSs86Frl3kF#7On(pM z8gMVzrz)AdDV-rUIpKi}cy6Pv2r4KBC}^7#5J!wFS-R5vGjT}Lbb<=> z1!fbt!w&TKnM-|b_WXtE$>9^nUfJ7sps#0qWa!wTg8&LYAy?cHy}NdiRciZKcIdK$ zO+qeVdyA+?<6H8Y-om5(DVw7a2b@nZTdkti2sF|AGB*;hPH4Yq{PL~UTu-m@qfVb3 zJ8hqNcL~>r|C}=>^+!$(a{N(kD52jOaY9u9zNY4qG6e%iu19XTD4G}gB@0zU6t_jV}}p2Q0)j;tGUGzD4}FKK?st#e2@&& zv;#M!yTZ+CV=HY!J6m zgU^2QqaXg_=fC*zkAK^25< zQvkWJ9q#ISchPQLso7yTZk!=NS%(7o^~e$n=i}=K7c2q7Ee^!R$Lv`Idf|8%Ipk(yUih` zy}i2*?%6F8GPA2gC)}drjQjYoGY3~|vb^sTE$Y$+-HY=LSugJRki#<>ApP;jzOruh zO7o6hTnnhP>TxUCZH8KTSyn(p;p8HCGL^Dwl?s~uXN2>afXw;!YiF-1RJ8mXYYD^9 ziDNGx*lWxdzE9yV0CQ~=45E#*!k(Hk)c7Rq(!iEzl)FzW49@);jTp}JgD71R(R0V zDr{G50^NOyyBsCz;Gw~ynvd4A;ENvysyjk;5RGdh>LKATuKIue=5OA6_iex^V1^XB zPHmM2b%m!+Z;hpqwB6@O{?ASml_U)K55~eZV^7&QwFrE znqpC6IFQcWl$pvB#kkPnaKrX?(vE;#@-8~jiHnp@owd34cOB{yb0=(&=Q@Gy%{p+0 zH2|k{!FFS-qSkuHC@dVi5E!GNHMosBnX^Jdxfob*1W)V%U{^OP<0(Y3v|y<*lxhHW zX5D)!T))c($y=FfBB^up8#vKHa07sZdHQg3#|}OXvghl;T+r{o``#zt{p2UV^^@QI z=}&+84}bab*S|h|>eNJiPP9RdmK->m4;URje0X|#`oMt$=WPUW<0goO3}#sS^Nf9@h7%fxT^)z`HzxWUy$lPw@QUfdd}u*S!^e<0o9baqQ#A zj$N9aMcUa4lj*$uO6$+JO3kziNa=v>jJP8l zO1~OPQ&?T84Iwh-X1?d-t*|iX|jGHct8l9oxcb`_>Z!M=6~s zn)K-lvNm(o1TL!AJ5GUiwyZ*C+{hcR4C<__37e-bc>Bv1|G5U7YM*O>ZQn>m}P zn3v(_qEOai-K5LiP9ruA!WK5+7Q zzL9$M!i??Q72+c(#*hMRIA?70Yc%aDd7gnMO{TSWDVC!F#|;X_^~6pP?hA= z8Y1fB*;u`bY338O{pf)`eNdXzP+OouV4#Yr6wm~q3gqpWG&j{k!u7MlxnZ5KAn>rs z9&Txn0T3$CksmS}*=(=w2pQixZvaDWG% zyZ&VZ+r!oh>@#Nu)>LN0I#E@tYn@bl-C$5(FI$p6B^4w=?+4p!7S%*5s>2k?CX8P+ zHH9Kc0DseZxV?t78xd5Be~C=G*IiTznIXoKb}}KvfkVaGNpDX#ebGb`dW^hLCd$Pi z(lU*vp{N5Sr0l#~q*TSUj~W&}$3N3hT~p^uNh}N1e)UEq1Y=N$2SHA3xn_%u6b$V0 zrf$dZC3lf?w?JGSme0DbHYVd54Yl(|I<&P?EFc9b((c7ssQ%sDU-=lQ@+ruI+C9wC zIbCC_BA@oT$gGM^gcsO>Ghj@s&X<*Olin`7^4Zg;X;oxCgvr~dg9Ami8^ zKF0?JMutyuTMEBnL@ZKMF(+bL)QVWzk(YLOw0at#X*ZDGZ3~5LCcIN2c)t9YzcP7d zV0(9Gr*C1yc1}p}j?sa4Ag`NF96Q2lfLzj&Z7@||w0v#+1-MCC!*Ew%i(vqGfvcq2 z7#SOZ%#;^g16Z~4rz3vetb-nrnaQZS>4a?z01!s)T<48cIB?KMigm=6l?{T7l+Atf zG!YM-2-V>O3o4rjxuOu+l;|8aQcniL95K@Fy62K}z6+!mZ;X#Ao?!wLr|7FMA5iCD zyI`=wcGG0diRvyRR^DtlLzsa%!Vh3EG{Z%|(x65;3h*;tu7NP;^NOJH=h2ewoFg7H z2h61o1+RmIduu18WMXv0+Ovau z`^w$@9AFnkV+&5y-304_{@zy)?mN7HF9hZ}w@o^D*D2Hoc=0U?P2LR#Rvn{X)V?T6b3#dKmqgqJ641F1F)` z4b9Y_>DTW>>(q$>%Eh6|uxeiF%#Jyd0Z1Vm-vWWe3dlJ*QD;{I?6t+KsT0~AY|jKA zpcVuP9us|mx0_(!zQy+iGKEUW5A5-|vHdUa+b>RL`4atZhBV)4!ZfUw1?)cgcj(|j zz>c>M4-E~AlNcC~`1xLX(cm%P^i((C17|{Ci`F)riAUHX-_NN#86Z^HyY`%(9QzOd z=|2%!SWPndZ1~>6I|Qz6D%&2#F$D4>th(KVDH>zU$|nN=_w3m{Jw4F|I1z8_PX)v* zTZWwq+5~`X9BDVo$&jbU+O%6pCp6YO`WGrj{^yo2#W_?EDS4Nc{!{&RwqGPcqM)d&GzASYRPG(I*qGjrZYv1iVo zhua(};2I>O$Qkx-*^IQj_wKv6v50j)!RNS#ckSXTmd{ojXV0F!e(jnF9QOcQ`>C6p zotm2BLNQlsiq;+gZbaHy2OdjzNfk2Ll>nGx=Frj_G|(+l-CMaxtq@wyXlm7{yMc*k z`x9#pGcQj&ocCznMLRp0U?te%g|K~28w4B3H<}HBG5J%2s2}9WRs)eB`@MV~!bDaf z43s1)aGt;s=1A1i3_oQ@C#a-ZVNo5Y-BEKX6Ub0@NaeT4e+99l)x;Q< z&~dQuL5|9EB4v+>+RPKyklHwtYdMv5m)ywC_(fF-&$rMiz`koI(thIALqvgRW@pE?HdxRIk7wUS-{rL5lpxj3=$1$< zEP7^Y92lOG*QJ=s%{GaNSl)S+}=mwF3qmgS_hg7CUf!|az* zGk0|k0mvJykY6=XcejHA4w()cZ)_GWw9X_cIT!9O7}AHl>| z*nEQ`P)4`7a_Ynh*giHg;^;1~c=YhA+c$4Xqt$nOG>b<=c%rVywFxO=^5C+OJ4b|37XU>fL@Bi^X zUc7i7=4&P32||ISz5|<5wNGN*H7&0@q=gB7)hy&tJtacR{jRMV!Z!jhLwI54ju*PY_Wh|~lhFtJXJ zb#6Wxo0%Uw^6J>>(>JeQzjforhaY_Kzx`kTw=a_OZ19;358FfQ1Ym^Ke3bYzYHhGM zHa7Ogn{WN{PyXV@t=kaTMeO}xxx_iKw+Tw!vf0LNVpg4D8C)xS`?JR{Z0GqNA0HbU z8aj9G92U)c0#Q+MW&*Y=2lAghdD5ss$r5i2c!$a0KG@#X3IDlAK=IL6nWlpo2xNjR z`%eOPQo%XI;bBDJx=C2&^X_ohz-NA#z5RP&dqxvAgTs1SSE3zIT%4b4-82Ms(D-p{ zXREYrYliz?~AnC>PH~O9Yvmcb53D9dMRy@HU0e1B0x#fh>bCG!hQ-T^-ryo4ppKhTb zO|4W(K9Lx}9Hv1b0_h@$u>9u!h!e#Gj6B;UTn6|ofhn(%*KjhELpBoGwwZ%c`GAqL!gMMaZwL?D1+MVe zxZ+op;W+XX%^T7#daBz7>1M;T`OoOcN!ZSP(A%9UR|W+j^PgmT_J<5Yk3=MjV*y!T{KBtc>3e&2Ze(JgTh5c8E!;&@7*&}%Uj-Op zQQ}6tphjRaQvaG$PUeg@XrF#uLmJsoKP{`N2XvGBh}`H+vSbOc`j?O-){$uGkhHDo zzr+(}gIu5#p!TUy!R?u*%)GWgRlXgQ!Q^I9%38R@X)xz_HyPTw!wz-6|7-nJzir#m z_^q3K_Gk;Y2Y34Z{ykQ$o;Z4RdSYV8R`Yh@w!m}Krh|L-T)uGr+?1^vPL7U@5Fg94 zgrEZrEvBlvkL=AoI^$4MnZ0~TNRvHBu5w2pKRq#OX2Gj9U~kv)5Wv-54FJL}0!gU( z*fkCZI{9bdyfVl1*w~qGeCr#7L&s^cF%K}qmvkH@V)#@EqOy0e9rA{y%>B*=M{K6XWARdv^8$;)}N< zBbH-KPD~j396562{SQ9;-j9C!&fU8}*yg=x_UY57K`|eQt!+6^UIC0fJzO_9xO#PU z22Pd0H1ODuj*c=A{k5zKz2{~h9v+#ToC548%$AOhq4BaQ*3i(_;aTOkcdr>#8>bpd zKzOFvMOZEcy*oRYY+f3p4DRN>3N2<4teoxJ9S#rMnJCXPi11v7hJ$F#?CkIYL+Uq76;$q&mOy^en_Yt3MD zSI2gP!~$&&!8pd{(Z4_&swU;vaxO6An)lqM>iEu){KLv%*3xltkdPSU501ubyh zQ$PnDaf@+alR)MBi5`)ErIBd00?r^B3I%64RSKZ+_HrpK>8>5>NS8dp;Vi(!cCt8y zw**QnnVzZ)ki*dAq$7S+8Z3oE&b@Y15b&-JZgC%u#}d(k_FNd~Mz`>{fM^Y6KnlL8W=z;LgmiG9ZT4T`X`ekeee<;|_wL*r8y-4*V4ro= zhxYH~jOdYbSNHCn3DiDu^sv(A#l4?zBH&A?yEjG2B&#fhPYoPB42&Lq^bsQk3g*!a zQ$|giz&9E!Qw1M!XD{W@))Q>G}05m)^R6 z|LVny6QiS3R>v^Y(l42N%IqWC0Bst<%{PX zy(UyAs8(l$1oj58}^OFkKH5x68QOJ6hEv6W3azelm6$I6ExwT7NZMw3y z8aVMU|MkBW?hf~6FI+HX=_}a45C?`twko}H<+3C9%gIxx?%aED>&~6A(NVmb|NPqZ z>-#NL-LuD-v@iaX9##OhU%Ge^jqlmD6Xc#68iK2~$h&mu(yd#!mCqco9UyjmeEjCE z+asq>Pn|t`_1d)y7iN`q{P=Osd^BF1yr~n*S{sdLK|s1WTqW?;B6%*ZgD=WhqLz}yrnsOOdm zIggvy_#G=-rgwH$nBxD>)SW-+d0qE`cRb@nmS~b9DQ*BrfICQHUwYrLbOR0ahTivm z-&ZsmKx1D>Z~=E}F)f+06pbt?v8__d@g|QP*^ym#?6^i#NmZ(nRA#Cs^AF^w`J8(} zPEZeDzWuzfCdJMFv!1_4j$O5M)Bw)4@bQ` z|9lAe73EwK#{;@SJ;P>`j26DD`atG1mf5)=-LGzKj}3kGr=x9tN*y*rPwTp~tBM=}HPBsH{9EwYjiEgfJPbE+E9JYRCOSAm_N`K-{hMr%Zepz*Vonz_jOxVZ=}Bmuv23!RBAMn zG*J1F?g-oCj>*^fPJV~;YK^0%+vx~EC)n;uxR{(OlMy~1TgAonzmYYnU*HL0`6zo)Ec`_J7EQ@fPqTbSwTv5=XdUWc01G+3UQ=ml!a7Wm8t0c@kjb-j`Z-D z-ZRE4(P4Tz+L5}+u`z>H%&_DNO7;BNwU6F=e{E@LWN@&vt$k{I@=QacN~k$@ytuGX zhXre3S@%FDOf<9?21b!#jS7&Q4!u2|X*J493V-@ z5*gc5mKV)4@E_;Vm+^j}MDJT4olX)$rQ5{PGY2&;z%KG=+rKwbDO`kWd;GD-IAMFd zk-&;$@&>wDvQNbYJY)MT(cL-fj%|cV$IO$_zWi!`=Iz{pbF<|*QtkN3pLT-!?2eu5 zU>Auk4P0`sIK}2%BOvr~ECra>Vos#}e&(kYcs%ZjRtDRZi7Jkzw=sO`eH0FLG-}yl zzC`Fc*%Up>3t*Vl)TcXV`|J$DWiqtnzz#{*9jel0Jr+`RP~ ziN3tFln&-xxXKZ4ZeFIzxIO{Dsj&h6_xAP;3=Xz;bTl?Kb#`}mc6LdVlxYw-Eop45 z6dko}k7sLbZk9+X??t|ioya+yln04!gLE4S$ft85KiA{#u-&uSFNO~Ac^Od#hHaF+ zS#hYES4brT!MVNwVl|p1AGboOf3)W zzc(<=#R>H?YIKT?Tn2hD*%KNB20iL(YuE!VBCtJ}`D0Xz%te6@g#?+*Bs>mC8I16R zz`{LI?Achjt*4%X?Op*oY1a;eFrLSW6vAl7y5F9V)C2ru>7p10669+4s|*+tl36qr zAjwMeG03wA3;RzAFq(`nz%URpz%Zn2fb7a110K>U`9VI=`@&BHuaIi$eHz{I91qpk z*(Rte2eKIp2kB;YJAQ;V2Hx%QvcMc5gJOK?f&1?J;upR^UDx#R+S(IBBIOlj#gZaD zh6D5+JO58hX z>zCh9t3p!e34x1UwyUwv_+dwCd_Qr#MY*YOG-!>wJ-AD#y>P{oe%3Tlui zLg2Fp_nF{5R5&{wtfIXdw;u1G#-e&uO-Yo_^>zI7+=)do-*~y159@1BQkdtar@3i! zYpZM1Q`1O0sPu^{ldNHTM@Q$4+i%=?``wn-79u%p|I2^( zADdfRV%lnbr@}&@?Xdd#`iY4Nx{W;$7=^ae&{R}hvJLj`0M`_prO61Px(@0N;XA~4 zy1Hb`0B0T{4Ou-1&t=yyEiHLMKwVW)$w5(R#7p@Xy#t(FkHcrBu7z2`2=r-A8-t$2 zTQPs)yl24JVLQx+e6k{~xCG(LNb5#F#SD-#W1j@+!kuijtfYv31%62=Ni%uLk(n5? z1l6a6mA?woIRX%R+-N>jSI9t*X~}41VUSkxkQt&}O$W*Wd2it>t zMc8y3FCYmc^9_)GkCrEp51l#4Lk!vDVz^HH65u2U@i+w@B6%?6T(8Dm%v+;%^Fx?M zGFOc|+AJ&0*LQcu&lzflfL;3`V%%#iY2uCys=BvGySpI6>=-z^7v4_$@=|(0KJAeV zV-rf?(Ja#;2Xbm`xTB@%^oipX7z+H!V^uM1K20F$PcQ4?y^E#?;l*tgRP+lTe@u6P z`_`3mWl-w@%rFpYe}ean%u>no7oSnc2~@co^b({bm+^?k?sb&5TksB;KWz6FK6B)n zIOC2AhtC}!8y*=REJ%~NDL3V;E_|W~;4A!i>Tzq)E(k;TK;QL}RFh(Nq|JUW1psvh z)xS`rI4Sln9UTvp;+U6Am1+KxSn=-m_d2zL`yYIOj&+dNt)ymQ`imr!Oac-?1eI|oZg1ckjLhwg@tI(rFNTIHX;$0e12^w)1PcFHV>AC}s+*$QSCHZ_-(i2LGb5nO^AW zV7AO(G9FPp(cNb~mDg7zFwnD6v(ZR+?$?0#H2XBC5XkBLMA{*CM)mxugjJkcV+;z} ztA)2s8Tj@%Ci8O#WOG&Q3@L98$ooIPi2Y89Khu;o8mZ3tJj4=1IBeR?(64$?!Qi->JJp8dX%@{mal&|A9*~k5UczAyJ@FDTv(0L;GOPen&{%pQVIhGVf zq@ASWg8npY*6cKNnDWw61DXV7odrA?352(CvJe>XR+)dh`WR(~&s8H)O=;qEc&-MS zx^gDFF>>cPo>@8)XwzGQwybON5Vv7)KjMJpL9yhL0a-34aY&=~{81xGgwJos zlSclh9>)vM>#gKp_YE9{RU!F7o!85VBXKBbuABX@1@QH4b z!YA4&K$A z!apZf%-A3Ex9?0HpvOH31Q18#QbC_%Ah!!@G9Vpq$1-d=dBy=m7|nqhsQTOq(lmUx zsVsZ)r|NSNZ>NNVmZaGOpfrN5sBI2Yr~b?}8)qe=t}bl(f;GwRr)OsW z{1?AmKYy{lv9Ys5M7?csd9|m%A0Weax(5wJaHGFptfnXAm+tP}dxX4uq*kgCWWK7Z zN)`=Z_osj|s=69y2dGDgFz#;ns_z`c$jFEe1p=>M;0PYakUQdx zKOM;z0C`;uK&{tCU3V_$w-_+Dw&<0k{)Ed zDqfAcE31UVk?*Qg$oAlv?`qj6uBGsU3~bv9x64Y3U^wOvqH!~AlTl#{vh88AD#pbC zwaXIrc>&bgL@{`~@0>4UpWQ+BAkijZ;KBVa=(0qi)CGuMtv&`(7i`iBq?CY;7*CQC zUC7kg*m6cnJRT;Wmds#>h+p*HgLww`lQYlEh)Yh%qvx`qN@;Pm1jR9{49kbI9@}9$ zl70m~?3NJ{MLnKhy`ZRv5>_c{-=E%H4}_H}t1$9(N30E_K+*sL42%ZyndJU?VlE2a3l18h zFx1ygjB~>@&cg!l2FK9eOa|M}Iw2;}EDVmJO)=m`#h;u=tRPPFs zgH2T*QB-q;CSt}Ilp$oumFw0TK6mrn4un4y^D_p4s&l$bU^|dE3Ry=gVl~gRA}a+P zv!Em$a-g@@v}#Nhw)c1U_;aAAM~bpmGch*N+uc7gKE1xSxxBQozIJhHd>WxPHBI4R zs|?)B_42d|jSWOayb>W)gj}7{$r0}~;Aju^Qs2aUgK*m(KdDTriweCbJ_N_Om+9wf zuw4tXu@HU1!Zf{}LI{~6M2V+mr~v`240P!4!vRoZsLPqAMpOQR?f~#;iQ8O%uc>%q zbcw#_cI_1~vSGlh3>Bbaj3Z+@oTQ?sQq3ssFh9ZJ@S$2wQqCPlgi(ok3qj_gdz{2s zQ7JKZO-zESxp@o^fcvRg#?RMiu#``qpd-Vwk-2_zk zMy}?XJe||MOTIWCoJ9_-PSfY zH!tr+`ead2F%=#7TLBNq!*i70pVW9@>i{Ibv#V?U+=aoRVWNx!{7U4JFax(Cxj#EQ zJG#5OFn@QU!=UsMcwjr3#Q_8y&u@SBFES)6D=Wx2U|hJCuYo+=mfLYsjx?i!nSPOW zh^kw|7)b1F1rt*;^l)f~v{O+CGG0mJ)7yi?wyj&9V2vS~sEo*O4^6nurxO$)Xn!%nR^e$-BoL!UP@486#H9SSJ~ zt^lQ(CSwaxSNDJGlf-Bn{TWI?Bk1W%kPwNNCL4Tu8*>65I61pz;q(fD^#my##KXQQ z2kr#9V%}Oos5fcZ4iXB4;fWmc(1Q=a_H28&E-&VlQE9fJ-AztTN~2O=N;NdngzXuT z+>`|}JcY(?F(_=6){)UqBTC#pMzVWOzzaY;JSbrEdi^QdBtsxphor!p6x}qruu*i9 zqF!s^uu~_J6mtZan-fxECt$BCEjm+I+tuEzpyKsuDQQXstyMVyRku^ED!05C^D&E+ z^bGy|5NDt<-hST~t;DxgMZ^d(IS&RMNQQB)i4BPbI~4!pBq{G`Gi!vAr-0W(rWZ{<)sCTOgB?f3l*JEWAjER0hgp*sNeLOk>6_reaXUO-k1YAT$Sc{-03i* zc;FkvL)y_iv~FTzvZby4;V*v~_=~Z4dVUySCUjLeTcIF!p*^M|H7$}H02UX{k!=HQ z)&+PSX|w;)G%GI)k@Vs^jtR|tThJObAl$)cz^+GWquRxmMr!zUx}7+T�pyR3X)> z-29puhp}xfNMX8Tu!R`P%8%>&+@tP{U4eMhI5(+GaNBd*6dK!zMv*>U$L3G_V@qlF z$rxgovs9=ms(Vef5el;!z*;$Y%(5cx%QBD(Ko|&1Eqh4HE zIyEzU;nLNaSlsj*|bL)+_nwmp$7v{j9NiH=tCx|xF(=!xwXUT6I8y}ZH1IBy% z`ZvyB#MMDIy+ytaNFN>iJ<1s<9VWM`x=qWAWL9UE5cEOr~V{ctRDt-;b3a7AQQkI%V`oDkte zV3M$HyCcODeX=y;!UEk79$-s)e=1!mDm^U}Ij5T7*dB(#ySV%Ee+r1vGD~J3QvEAC zVY^!(x?V)3rruZFZ4P z!P`Bgq83qA8X$k!NW9-tYtQV+32(5SNB+VW{uw7C zRVHdVDF9k}G}Y9KQ8f)*gAJ2&L{tQqZNdl{OmSFLM;)F|oElD(1qW0sq<)CsSje92p+Fdil<^D{ox7bbW1Q zb9!=_@#?M0Z$}Gt>j07GAzm3^8WPs70CwaEh9jpoVMEKAn%4N^uYGJtp8aXlO}G5n zKIdkti4$eQ3G2{)m8&`6Ia-R|u`A$-#xcRo9*0$;sCzKOk zp~OHazF~`u#7J#_FlS(kRGTfK zec8ac!r%JD6VjepR6_MYcv~h9Y8-8F1)pr54FvH{qo2|fgbr^%=V(I>0K49hPwd_1 zX_bbts2)spr&t3>4?mdp#Qa6keC}!QMk&VH5J(g{3Oy19C0bfn+G1|nH@aA4Y^G_P zrHiz*G?$f^!QKS~eP%{-BWwhi#0_K&VZL$e7W#eYaKSqte05=Ir7^M;n_zoyfB)CN z`8($~FJssGdh!pEc1bS-gM)HlVD;(Kr;pcEclUI=)G5<2wzMuRF0HShqpjo8^p@k* z)$ab#By`6P2{{BGT-|=cZKy8$_p&85 zCDV^hX0qxO2Smlk(6k-Sb&B|4&en+j90iqaUgSS~Vk_H~aOF*bIi7oaU zNyPBn55^+-n2@^X_t|7dZwBd(ksBX#6+UMJeMZ(f%cDPd|NZzpdwJ-=2cCWEDQ77b zSV*Em%UBVnq!2XT=*Vo7x$%55;7FU%9FQOI#mfL{Z|afg1wstOjc`wCsS6E6^9kUJ zwTX45U&PN-v`D}xq!^Gy-QxJf9-un-CBmrJyuo&VlHYwn=8alH+AE6-#|HZv>rR?X zb&Is;t)aAg01vNZyr~U(7D=bfvP`Px2;=SDr59arC`R>CU5F3FfB8jXteU46R9wD5 zbqG)FPANd9pS6C|b}T&?saM0yI8Z6^ye$%FL%8!Ri*%cC#sfeV{9nCzBrQ6iFC{v% zEhd2&^SJ>q0TfSSm5M7rL+S*DoGy~aSqUIWl~ME5b)?-aq@_g`osq+Es=v2Sj>3`3 zDyzE`7fKH}g1sX=+_5EJPS%_-HNY4i1!r3=PkVC*G@ zy!c_nGHpTHJ($nb9AY9YwozPc20u&fSi=6`*x2y(8`ogW%ckNfI&5kWGsl01?UBf* zNo4y}7a7>KFRm=$ecx_TaGbw1mLifmBI`1usI-^xEa>}7JF7i&d&h~|Qw2rE=pst4 z=>ct)1K~9e>J|kaTH3-Slepmq44iS=!@RXM#*n}8lB$)t^2^Z$Ncl6YMN4svGEb-; zRp3vk%aT&ES;l2u(_yO8_Z(2r_tZ4}sqQ?djnDEJ9xpwQU_od&>B`Y% zQ$9XDmA610ov5H(Fz*snb0>J7+1yiBEXPVBmHn*A#TSto0PIaNi*g(3xfYRbpzYY%$&(6%tjk$RK z`nj{0H_lzTaQ@1*t8c9?ofp+K{X1Y+{GnsVTzP4Mur#x@CgAaawpLMIR%|PFT*1NB z)#VEp&!^UQ2xFHEU|6}Iv>nVDjaT4r57ZC*y3tEecIo<@P;x%5Ox?yy}O z!E}f%vWFn+snd1GP`Z<+OUo;8UJ@F>R8Zk49lk{bN+>fD#eL7LKI+s8uoBobIuDVu zmldYX0bIXN7Hd=5J{5R2;QS?A#uJaLBc_XE$PH6>SqRFv@X5^LrinJF$M9b%JdwZn z$zAwg5rl->=Fbe;2EFsI*Z#teAn;C%L3H)P_2E z4%mP9cYp9#|Msu{%m4M?|NbBUqv^9u(Hrr}l9HjpL7EIG7E1;1lGQ0Q_JinaH*Q&G ze0gQPX3#rRie0<5U-P8UZtCXUf$G=?%(sW(h1tLKLNMEu(*iewF>c!;;E1$K8X+A3 zaKKIk0X5i*FA=1RNcxL{ZB79@=q1>P?Z~PHZ2&upV-M(duv_389tO-h-t~04A+3$% zt_=nwO8U&Bk32%XV=zI*cE{u!UJAc;4A{ivEuidR_6*!mT(|I4z|#RPD9t1Cm-pLU>gED$l z-a&^>&$OyMPjz0*Eh!njlx1#Rw*PI~}XMgp6sL zxI@+`P%zRcs^7fv_PKS~ zaOt(zK3HBlS6*sbyjNlS!Tlzvk;_Mfi5Zae`T?~KwqQBNg;whQ8Vg)eT3J~(VmY^g zUUVI*N0j=2h3SiRv+1RnKX?zpfwqvcssh{7$ZKDuxN8>(zpNNE%uJPta|)*ll}5Iw zV$`x8(2+#CEFMu%SX@$Sh7x~jL>dmnMjnDNZI3lvlIv7%fzpuQ>726S4Ud@e+_Vv! zhXJCl44gra*y!mhM%vK3A`)VSU&OI zTLfc|4eJXBm%lhGQFNUDDYwgivIp1kV2qFfWXI&OS%@CJPn|pEk6)<>l>&U&r)e}i zq%T1Jr$76-G;i$`JqF+u?t#Aknd#}#kx|r|7%rg&FoIm{nvg=1>FewN{_p+K_x|O- zLchT>xNdB08lRYysZL;VFbH*Uk~E zNONP8keo@YPrSJj_?%5qsU9-i{bq$!YNRz&ms&pxv z7VP5AQg^msaV8<$O?ruOivaMk6v076F>~{%WI=`|6CH+x=OG}cd^Mkp*(dY>*BCoI z0p@~(5dz!w3M^&4&K*rZ{Ci9-hrB#ed6yp*9;d{$t4nt}j|d2EH0 zz}%EOLY(_Oo!C?$>YZ$y!};WCDUWWZ@zYOY@n~AIOdaCS(rJy zvcTnmbZ>!T`NB_O@7kj>QRqNbubHn2?Zy1SCXX#9qFC$PIQo0cnN#AHJgS#sQC^&g zP2$tPbBw7J#hURhDfSD(Yb;w_t3<*se)I})Sp&#PVpGQ{F6kW z2?HNC;F{=JU}?;ILvoT4mI> zMT+S^O`Yv#-sbrDMkd zm*yrA0YZI}-c_;h36>)>N;xZ4Wt*^FLS{_$pwY0a?9F9I*lCXg;;H_p&C_b;Ce1#( zwhARsL0J}hA=w2mV_Uji_=QwQ0;zK3bWdV9(&x37ehrn0lQIl}_enjq@JOKJ^G{zu zdYqU}2kgG&gR>h7zLD~&kPtcm|4CZ_<~{`qPst@HECga5tu16{CPdwm>j=hm*39eG z+T3E`(!c=8d@!)Rx*8`ZOUr45x486M?|w8mGCDjuMuCUzO=r$*Ub=ez!X~`Mp9MP6 za@p;ouKk09M~^w_xZIdC&6JWxJb!g<{oKZd>FH@Q4kYIw()G)-Cc|JI=AS7bWi{$G z(2KC~;^LS+H4^O(9_a4uB(`%1ya3!r)YEK}X8Ah7gEUx&j&4(1>ln$LK5=*+$GLDR zwFu}Ni+Xr{z)qYoBMtM!N$pdkCl?$)wEKWyDP%FH9t8HwQUOET&Y32stxGdu!bZv=rk2*9h;L6D&a z_!Zz&$gyrCEzhs5OpOdy6crHLhx@wTfA`Jtp?()?T+L)_N?t>cvn+6d0@LV zRLQ7T-K{iDUt^nzF3r@cLsU`(;VG$m8Fwt^jxxuzw>$;QkL})MGU3Z~S}`EpbR<)DBSilg-L)d&aYvW|qGynse(Q=T-CKzrfUw9cuuFvSXNIFWXN3xGFd4JmJn5@ruL9Y<(E`?L!xvQb>O3YcGdm=SK zkO6&GS0Tu>G?^QzwzI8ues)F@ltvo$g#+&2&rQSj<|eB}N9MWtcyGUU2b~TwKQIt< zx~mI%`}5rS&F;Q|#-=kEI2PX0(&`KOg>J(U09%5KgN7~h#Tw2>&LF~xL z=;G3fkxFy(bFdw0r^(ZBI1aZ!%Rx6stOdE0Kf$%1$?1^U=21N`;sm`>bi5vhTT?aU zAnC7lbtbVy<|*+0G`jYUH{a^)=KGo3d6!^r#$wz4)+2D0TyO)7SzZ zOqg}SBJeAdgw8+*&va4j70gm&oQOlhLtsK=;3J&kb*M}nLAppRLnCuf+)88QiEwYg z3-)O{bRn?pQ5m*3CB5p=Bo7kuzKsOI{2(X3q*Ssu2?R?i?m*02a4`9)pk*MQB$>o% zp(4xXXb^SND^LY!2vJ5A|l<<)-g0NG%`FoGd({sHodsGzP`Ts z_FErOX2!-Q?!5l-#q+lZ`UkCtAd{=uTCT6KMpH}&X?IgSQ`ipiiglyJxXX<$l>c!2 zr_-&J2EEa5Jrhnc>2Ey)uW3Fso*Vt5o{;HFZ9#s zbiEBO1#yIngw=*_MJQH za~*|doh&ZR*Zg_4W>hM7S`s(WX+8W8!EbGBKjpyF2u}TIr6IT_yh0NG5h5X9Z>tNY9 zQwn_E&#mv>x39Ie{mxtO_4W^3xO8Q9enG}*eM95$$Owpr-a?$t0^0IqX6EKQySnXM zT3QxIrM-}3mZdw6j|~hCbar*ZZ8xIZ0Dld~#uT(^L>-NHL45~0Jda7Pr?IGUD4mrb z#{hG}PRui78ksuT&9R~f)!krN4RCQ`!AJ*968?`HLpwSuz&bQAAb*AmSymeBcko2S zLX(Ce8ET*D`VL#zt?`4P9wkW0MMaWl5Oo%Q>SPVps`rOr=T2N8IlK<2d>P35W{9XfK`wM38qP<>pwGDZJo0gy-p{ zRw_n!N8v17rL!PtixYD$tS;Lpi&BrF@Fc(K*#u7oNxch%&ngr4E@d=l$mnO8+{|H$ z$h)|aVff)+gt^n|3>q>F*K83ppGqEcWi5dckun#_6~4fBhcQT!cPWxBqDn(a>+ zG5{0IIBnVDBh6=8>Q2|g_Og<4kdCDu*k?A#-A2>4HXHuk*4fcHKeuSG($L`Ox%I2( zH?Ca2cBj8@XkudOkP0+F&Nh4s*QW0Om6Tb_v+y z8322DmZX4b*CY;`FF~skydz8A6ee(0n4#W;hz9uQp#XJmQ!EO0BQwkuw!5#luz6q_ z8cL!$djK`-skj*5HEr+XyG_-@^VGixS>CT+)+b=c-ZR3heb}y%dLF>87SNt7!ss@d z9cXHNY;AdYbZE$;Dkg1KZgRKfo{E-&cVt0|6y)?Lyp`pS5}ToMVPUbTs2Cxqe$ZP6 z2L|`=KQJ&bw0d?!CK7Cy_cAt4S6{w<^ETv%-V_*UY}Nw*Hm_Xm>FcAzjE#-=5A>tr z1~kpg%+ActnuSJ?R790*?nvk@2gYn;!N6%OWx?7^4&T?;$JfAW4GO`Rw_a*=XH89( zV#qI^vo4mDKMB>*dk-&L#&>%H`PfLs-Sm@3+oPq#w6HE)*a|em2 z8>YPz)$yyUf%B>l!m|*6Qt4gFuh3HFog>vU+h8gl$(-|qs%;)gLAT`RVaHx2~7;SbDD_Z6e2rXEe& z2hgJ{KbO)Vj~_iQU|L*QvOC5Y2}2){xu5cO4>s1FX=`b3sBi4+8#sUd($K(Ydt3Ly z{OW}Zmp3n7ZEfjXS>CvD{hhVdO;UU;d2sl!yCgh}nXlL?z|}xhP+=NCs-dbcz;5cl zzTTd1efsU;p#e`MF^yK^Q*>3E(j@Um?}bEi69U1S8{3KDsC#$G$yOi`4=aFaycM=7 z^;?5Y{gI&Ss5>&BOfpm&fbU=k$z}}06noJ>!x6$knAk1k?&v#5_BdHf!9Dd9qJ9wG z?M2Sz@4)X}W@Eros6g4{_~IB18DmrXAyMwpTY>g_JvoFV*w_u*9T}oY%o-F)HEdNi z*?=&(4tS3oIS(0M9GG1Uzz6T1#Ap1JvK;;C@oW&@ca0@oFob#=MiByU z#!iY6|LgDRlEgkbJhWsDjw@FTtM|(IsuXdAj;FYKF&+`b9!fl!AypP5e463{w z38&!0a6JV-1(;hGvZ+b@6v9LA?yk;r>+8VWe)*Yvhwt*+{b`^Rv0dlI+k#>(CGa`M zAifk3ZS-!yV5n+tM6MBXWuoAY8DJuQVqMq=x32JgSL_fky!=5cpGJ*nj1Zm$GFs4Y zk1ep?#87FWOf7{=v06_9cmDv%Zz0x39>JHGg)jMDWQxJm)fT$nX`>G9x zC*DfRstUF#rOjGV)lleR>s%zjWPaG5h5>RJJpDmj>OqU2(nlV7n0?D+Fs+82@F!U4 zj_s^p)iVGocC5=C?~&@r9eWxE>cw~wq9u?&h!w<$_n5(+qQVzounZDBa!(A^GYemm zYe2VG@Kn42;U$VI4O10%w4bogfR(ud)YAk>{>)KYcT}((C*ZA8D2ES9gK4O(X>PF4 z=W$cV*o;XwD0+T!?DF}wmHDY}eCIPu-FH7Gxfr9`(b?J4+e1G=r!5%? zzy}5fg;~uZ0P_cjhJ4C+2h{wqb9eMmQ+ACs4gDY^ap#)jErm>BRcEe^u(g4{<^ z?~6Tcd70Jys;&LU(wHBkMTFUKRYf@?#F4NFs;0IK-tqZ}DCrLGGv;WU8fOOD8Y56~ zzB>Uvt9L$JHK|tBM?yy()DAF#X*yF>G76pxirdakPg3~DhKIy!T-=GVb7qS2;{Z>^ z82}vU$B^KXk=$m(K4>9>S9eP9knC+T!;>|~F?MU&gR&4G()fK}01LxFr>O%H0+G@L zq%i~r^obrSY*xfd;S8|#3Zmz*UDX^qBpJXww`Sys{5_->E@dJCa{}axi!-+S6POe8 zc>%ELFdY*YbW>NBoWtz>2?ihj@`ErCKzS-SPrji1`@-hw>S_geLwIkIO*(d#6e%>0 z7h};$!Hw0QSV$FY(GRL9L)YPR{fX-L@4m4zKYiuG`sEAjQf1;zpLoo}Am>0;8>D|~ zeV87s^uVAPFV}8e$C7;BUB4*_t>I0)pr+(_uE7(+3U;E$M{j3=tb#=E;&c;loi%ph zFyuJ`H7?u6_=9^z192`4QW2qX;kU=!v!hL9VzMW6)wAi2n8NWsc z9Ic|gG}NEQqi){5_4YgObhNiNVk$-=lBa8qX}*Y~7Rt6gKj)QzJ(3ENJo&2k3ciy@ z4d@2y58fM@74y_Z9FQ!daFAg_B?3%=3HJVUOxgxWRjce>JY*<|w|3}a8nWsbpGbSk zYh#aO6XIbgF&u|C;d8v!ibhGF25jseV} zG_m~~-~0~V4v@(vO*+ORB10dRC`xV2tGkYR1j!T?7caEA*-ob6+GxbwEB*sH;kHj6* z5s!`Ga%D0$cm+qq!%o2eK2;TR25 z)wm`Gz^H)+$z3Gav^$`i@1Voi>km{PTU}bLC@axsnVQsK55T_&<7z(kXvNkha4<3_ zNf8j`nNM^JliqF^e#NO1hAo`J*wI?@3lt4pO>!>2${kP!d;yp;K*$9|38=E|$tN`{ z592u<50hD=7N=}GJ3G~~Bm@qNl5kI!5g|3oHNmo{mB*faoMn93o8YF4aA!6}!N=jH z;0r3^s~!NV^CmvoztZ3-{Q6KzlHq88EoD2{$dO8PD!oF;`@qu+dTd;UV{(jgA%;i+ zCCivb28Nd$J^-9Ao?E+i>HN~1#eiYBBw@YkgKYRA< zelVo|M@>F{(ByFj4#2XGp20T1pwnM=Pr!3BtK=w^b^r4WMjaRRwBo-aLzAo@r@r zBf_k#Y?PN-UAAI;bPBMyw{>)P^-fPOUb*tdojV_mj!wxPlg?kteVe&8q>LEe&Tico zsz(UbT0c~qstS5LBp)6c{Peruh3%4LV7u9yZ1%%;@vn^S0iJ+0b&KN3BQYW-cm(aP z?$gOI2LA`BdXNQgkIoKgv)Rh3oNhI-sQ zHVNK27cEG;KzrC2TKfV_&G2a z++0{(nwXrLpI5UjaN)P;98FqPn z3&NVqIA%rb>U0>VCfwuJ;8v5-pmHv&#=}AQ4hE4AFisdUf0uHG-u~1QeOFDYSfymz z1~nY7VfqzrtNI{~J3_Ys+8PMo!RH1mIAj$#?)}B8iZVn!Pf*6BX)F%Y3LF`FX7zD6 zW0WWkNigRqq>CIaFBRrPYiTk?1%{^`v~!ziY(i9A9l8qM0cW}j>gevCko_RoK+hMC zr=5C>M;>~}VZ4Z1U;}Dd)lg8iFSbMyN4YcSL{o_{z+4l9Ap(x3#^o&FFhk8Ph)3g+ zoCv$J?9Y|Bf)0W_dGXl{wsvN02anKI>Il%rb%@vr+hf42J=C|XF^X>je?debY$D$p zf&a2%YPp%gmgi@#T-+EL=$RNDSX-Kt>kdU9xbHsb>KUZyN9#*z7%GT&b8G0T#0*z9 zCf;S`!zf9go&>flWLcN=AA<-u4h87NVY`;%A45_*Xg0-3LsQ*E8=m*sG>f2KA)BG& zN@0^8V^$fiLLgr|4<^3e%QMB1Q%=9vl_ip@>1+lNiF!Lq9*| zKf$b;FUNV3-Wb@PxD7GcC<9SHgHI*8mzP+5#;`@1W7OB0&W;|D(}BK`qM|Y)%<#|{ zU`N_pTRPTOFW$cW{@Jsabio}-lM#dCQeZMSQc{d6#wTx5N(M{`?Z&6WI`c&1HNh1upPq37?bDCrmknLGb2L= zr0W1EsxlKgG~7lF(Da1w!6m4^-(GH|T4MBlMU=UU$!i(}H5iMz*z z(nKFLqqHX&P6W!gJjqYPc1;7k#{XR>- z1{mK3K#0S6EUG2s^v43*-+5Q4bmQE{)a2ylOPA<)K3LWNjYxZ-4iDON)!wuiqq+ zFDe4leV_@P6&T?eZy>E#FA^dftd3G$gbo8gZOkkj zcj`*ZoD|5hCx}^$Dck8!Jw)7IFTfYwa90kY`M^FEZKoKMD?1=}V^c5Sd5WsqXC*dx zB3A_ZBkD96(Lc5*Qw6XC4MGR&0<9vXNIQ7P;gNQf_=(3K(F6vJQKQpf1*Cgcn}cnf z9eu_m?StJNXP4%sK6bY^gZGuinXc9|(&oSNkh#cWfu#HIyN~FKyg^P6`A`HS9+e)6 z_q3jAu&lP_Mb%)wW~kiy@=3Zu-HGj-mlw2OPmmQ+|F8vh%|8k*>lg5A|I4rb>ize9 z>B&c91|Dq9*tCw04oL`NE}|07Rnhb%GFlqkWUQ_Xq!`Mi`O|9HhGPQWU$MMJ039?_ z_^BIP25|P9!S$dqM8-15@E_psC!1nGOR7XPElCr@`eY$g5Rgs1{?hZ2(P1(G89?~R ziE6{QYs{-RHEF`AmCEvC{+ynihwZfYu1>4ubYH!C=luB_)Ki!*%?5AR9EuAIK{0O< zyuHAzcY*EH7`i6XPR%6if${Zo>p%Y2e?o|b?aj@NG2e%2tm_S9tR|4svZD8a`=%`k zGW%Ryjp(Et+`k|Cc{Pv=+r2wd!P?=QyGd6JV1MQwwr2wW8LCHKC{h7qwH*u#yc5wi za~B8csC!C>dD#WSErzHi?yn5xIs~yNqv|LqVJ=IcSeL;gWuYc@qr@&H&+pXV(xr>+ zt-@k#pS9p~Y9D7~8$J`k4q;q923*IC2N4m_e6$p9+H-ma(5>d<)jsQVTOXG!S)uZjS1H=gl`SUL@OG5bL~r<@zVT{oSvA<6DIBleM+yFI<|Q zo`uZ6`K|9zOX}+CVEf(oKKjv*|JYn%W8)L3zS#$SPE5pfugLkt)D&PJ9iKqjk$hl& zcVQi9Q#>dCBM2^D~qv$GK7@)VOI~HB)=@!{{FR3yBpS_7hpe5i} zk_-ZGkNkh#Q2>asarUrr%ae~wWaF~wbO<{N0p3w>M&r-iNPW>T@nP`o2Yx8*_5AG?J zz-E)tktAAR4w^YH<2tTJRHrs;p8TW0fp-UeaCJ*cv+>0Yw{#Wf64*We_GpH`@$iEW z;;!ix_IhT2CL$DT3ggd)lM!SD+MxO&IeeBiHx{PgFt`yvh3bYW$&=YwU21EpH^Fav zbHnIh@7nU*v5HdpCy2CIn+E7%6)T?P5|9*sAxv^fxr z+Ab{gNYV9DS~RB=Y$rbG%0N6;NCirCJu=z6R18_FEUz*`Xnr#2KG5Am{+}J(k8du`HVl+BA9Q%|k^)lQ#}-Ul2-A&wCj> zCIUhujf?gL~pq!uC+zZEl)BJ$xX4@(WI6ha4Yw!*mrL#Hg!1 zVZm$gE^Se2_~QKB<;_iaefRF&Nkn;UOtLy`UtU?BgZ8&>WrPQtw_khx(xuBV|MHcq zNcj67f8)o0{O5oEZ~r|^ZaUMve(nM^rj!5eFaI-j9p1im_dQdDZCu>Ea7;2ljiK8(YkmFP#KZ*YW^R7|>a`mZELo!_qqoaMkz_P2 zD0w@@!rkNAMlMQuXoxJH-G2hPOF|4`hfHM#i~y)yyxH#PdwcV?0r;ET1OX zNCQX<3oO#D&uBbRDB*D1y~;{r;UVzLmUIB+34jh1MpNT%{1h7Ewyit@9Rm=7GLL99 zTzP3JhI2Rak+OB8Fh6HZq8UBA5d`H)81Sp4aBc{sMjF3#du1uW0}> zy$qS>N>WE7W4k~@Og_%l790{05k+mTtF`{ML8%hmPaLaiZK@j`>{*_l7HGzz6@p%X z=Vw=_piPBtebQ_Idyy#YU6Z8V%N;66^Wk_-CFa#aAWd@y=IE8smHvq4DGZdc9eY)&E~n`LNM)AEHYipM#C+8=|XN+M9QdC$3 z8|f!*=k5$6kiA&k3b2>EA76*4OP9E~x%t7zUxn>0t!K2wjt(Q!C8M>pceKln^ZLXM z7x|wzZ)_a-pYMFx1i2a8Q|pTmqzx>qAVmkg zIfWfhMgPf8I=Qp7GRMGGZV`A=Y}`4|y?~-iu7|YhBACEetcV)ZzJX=RNoth{&&&Ed z3aX*L5w^R9pVWJzJduBuv7K{a67ea{ivlK!rMC3lJPEw#m9(UMKzOJmD`j~10QSe0 zW*ZA#J&ku@6&#*dbGjor6i&xoA`vJJfaN#<1y)Rxp)iB?<>e)WmR>P3GCVjqaQX68 z0ZnwBIOA7iIc2KfxP9kmfBTPr@wflS`o{UL?j8s~JGWqv>A(KzFM#}+GtD1;{kO~j z+0oT~^!RZy%OC#q=LDXwfAT50Ms1Sc@#h>=4u zGBJce2Wi=rpPZi$Zft7gZukOMCc+S2V6{sj_Ds9Za#5x@o13?I)57B7*w`4&Wnp1~ z=b}F0{~g>wON$#3)d9N!(IP=U4L;R77uZaG_Z0TvwSA-=Aq+B-zPmoJ;UfG6n_+Vy#2RA|)A@#X z$eVL*P$>93;W5Mnm1_~VLs|dHj9sDydS`eJ^cUe14jkuM-_J<$hun$f=VgLxyvVNr(t@vWk?S z^5nn)+NgpDLg$aAG$26CGEHT`B3@CD0@W+aS(A=t3`+s*K;Cyv$tP*n2qq%EQK%R<47PM|%bE7B&R#Nk zX^ABg+F<+Oph1LF(^K=KBa_R^8}oBkNrnuwXgm=f<%ztc#M>ddLS!m9w+LuyX)&3d ztYgsz*giHsa{JEfx9{AUn9{U6J3HHYdJSah?CbBHotuRN@~FW(U{?`bgDa?$=$xi} z6-JmhErJNM%bFkw#@P}aE-ft+`J{>m{>Ofcu0qJf+tXC5$d8snuE**F-k*>3VJLnq#fYD``!npd|6pL`=@{P*MIW!zZsjDFtNbZYqu_6xgq26jkn%iJG;@+ z+9tUjnJ379^*6ssKbI(D_88$;un&PDx!xOyR@0qbT{Dn(eqQv`eL*oQPQ4+#G?+lX zz7F5ehswPD6dEn*_T)*1)6&w6=R4T!?wgk`OO$smbzOU*2}jJgt4lY5r#OG%;*Hy{ z8%xzc;0}HK)Y{tG>v!Ie5P;-ojlI0gz^E#X0WJYy%v@)I%j@nmQRGopXAdo=s=~uC z>Buc49Y;H&%*GIJ%K6h$Tc#(+6{(FZL*=kj@2;c-!`V|&R+3O5N?i>Lo6DmFQ$UYW zp;v`@;q8vZ%;AGZ%?0503FRygyg8n;D8%*&LpkVKd|u-(6RFZylHG{Fd`NWuZU zer2UxKN7-3H8Hlqen4?(LC?P^!+K?Pqp_jMtEaxUm8@fO)Z{^e#@jNg>vd`!t`?2U zg2Iv69x0Bt%+;Ocdj^pF>3Cm~YlsPj00?8ls~CfN*A&n~nJ`jfEMgvk6Qh8I&vl(t zx5U3=N84MP=VoV&FEGU4T0g zr*GbU*Cb#N8>#=~x4&o5(T!WLfAt%mj*fEB!m9mW`{did{BQry-~6Bd`K|XpeEanxT{agus1diHwBrKScBn+J>*4#0`} z=r*z>EJfH6-erHsQgS=w7bH{Uw9vB4dHcMM-An)x$+ zF;gK_?gM#7dZ4|&3K zE@AjcBQk@vG8LqSR#{b1J~}eY3*)B(7Mw4vb|Rc~5f^lKcB^K^z6%c?q?|)(0L5Qm z*BY?7l(bX|jPh~3qGR?b4H-ks*LC;;u;vuxhMwcG6((cm4wN|%p{u(H(vCS7!Sj^; zi0;ZcG)756`#^UG3_n^P1D8^;=}>e1sqvxyvBBP&s&W#LhxB&$ed$XYzUGZ}!**4m zACv);V(h8p;nd>%$B*)8uv(y&L=#5 zP?iAv5lW24t76{J{`3<# zH=%)EaQvz26&KE&7<&x9v!kl=2(KcE2(g!YlTcT8DrN>qh8m;r7^iB5_ORWA+11r2 zW@Z*BGv%daZmM66WJeR*whg0p7B8TpnR@;tQEE!M5AeaQF?Rd$aJSITm8GSbX}C9f`3eF& z4{rq)*VoR{;cwl#Eewk5e*Keg4i8)6ZrCjAU;WKb-+BK-ho_e*BGZUb%7W<4?Z*JKz8PU;f|!{da%wC+9C-)*oA#U(ohF zElP}L3ypTAe{yW_A4D3=V(9gCryT$g^eX|or=qk&V}l<|@y-ztQs^zhuatZb7J_Ga zxhr7jbF*^-2y9_$YIYm60TB}UX$RTu^vS&NDqnrVPQ7<0-qeF19l1vr2Q0*=UP zdO!d^!!cS4>dU&EuC=OG$14!GLx$ajfAKPM*SR)r2fb7dIJ549EwQ!8D?nW<%Ojvh z0@D0l7UD@nbZZEPHXEsg1Oi;f7UVp}A_a^C76;hiNuu0XYnW4jt)Uz#OP0Sd)WYaF zyjplPRLUJY5H`cONnUAaK%wI^je(YUJA{YrBw`7x6~)D(sCoR6pRioW40Wu+;~^oQ zJ|xsMbPHC)PuLCv!I}s5Nz9>9Q=avUXa`z8f!&b_*du-_Zb5)HhCpiqqUQtq1Ut41Zy}r)YzK+&Idv@_1$r(w!lp(M85IN!6jz1wMBrynCwbG!3 zn4OL#yRps%ALoXG!Wfqqgg%M|m&3{wdkl^izCUTUiUNN+U9EGQR4FANn$?p}sCv(g zXn`U4AQhAE(?x>$UeHJcwWb)ozIVUxi@y%rbqZ9g0|3g@V^==e zi330xQ}h;DehIp6MM!v;&n^c@X(fYz|p9 z4+RrE^)DqKz6$LjJb3pLw1&(Xz_mmetF7Vi>Q@7lwVngA5L>!|IH{P1pKQ?8@u9<8 z!|0`*dNc|LX_uA*dbM2TpV|dQB|u(#(RQ-4roaeHx3sj0O~@2Y`Svl^%*YE3Cm#Bs z(N)Ay^VkHo+kBTR#V=$z$a7|w;jquKJ*a!ac9`$PXrcNb5k5xm@6FbZw?muULsSji zb|exM6;_p%RtRUyR+;g#1t5O@{OruMk(*bqT)lPs7MUF+UcY&Z z(vHmgouYp8_MKa=zwyp{A5&nKSI$n)%)fQ_!_7lYIg-uK?Te zZI2=2-C<6F?fjJ-7^n32514{R-ZhrOhUxA8^p6_T+uOUev}~is6a44q=2ll$L{yP{ z`J8v&c#~(5Jm5Oc8XO!T_{gZyg%NP*>FR83h~cZ#lM@nS%z$uQ4(kyMvK8p)YN58u zm?-iDkoO(#A+fZY@bxMqt%e4-G4tXgBdU(EpCDcP_xcs)Q{V#xq``~E#^|T$Ub%ix zSI5-E82)dkjq=mk-lhRS7{a7wLbPZ?5Vi!>RWb7eQD}V9YIeE~NI__!JyV3VfCYwU z>@^3wJ_9fZHIP4{oEZzZQRbNrPC~4mU6G@shWI8_|Jw= zSNB3zBB?T^f*8KU$fex71sK;^fP`U1 zoEjCfZJXCoq?nuX1Oi|I!ss>{X9-xe=%Q$v&Ug{+A=awv?#P@`Dm;=#duVl;6-{29(D_3(eLZ&YS(}9*4`ayzyH23 z{mQTWN(5cfOt5J{O@v)I^bpwhg&cj*{7v-sB*OUgs~6$!qahg2f5eP)R2SLimBb=; z4u@^T4ZPHN9MPN7Vk=$NdM=~Bm|KdgN&q${ePp12cye-Xer{Egj05Dhm| zO)W;0f?T$t(8?{O6lv{2+5tPXhV3;q#|c!!!-L=d(GUOlfB*BV*RRgb%}mWqPR&j& zEH8|XkM{NV!FENhb>rcI@a5#!GMg^~1PRqcq#^!*$$)p!Q-B`6DdJYDOny3ShxT?y zw0T$jq@ihy3Qpl^Um6`Bq>lqm=`%>1l5%UwGC0dw@pX}4tdt3qL^ zNcq;7C*-LZJ^VOD1>~wGUxaRPd(nrc6Ne9~Z$kk5sl9yWWg_X0&+=5p+^Kj=KImK{>PHNY zHb`t!g0;gA2wI(l>S%Wu8&(XH3sG&$H??|fiArM9+qsV_hIlfV4I@Bh(v ze((o>`d9z%)9?M@8^8S>C-(LABYxU~$df!1fG(awftOM5 z;pf7y0q*1D`~sdY4m&h3K$?+n6Pir=Cm(<%P7aSSHAOgz1kST- zYqB~ayd3^F-@1$BBkg($Iu9uQVXECO@O<`V&LrCI}m3S6^VJop7F7K~>V~AqNwe_DgsN`+z;D`%6&bfVbAg_L{7VwVXJ16!|1QX;djCGv-v+ zi-C1~0yWabb#4>R2YxyQAOb5i6}AVZjQJT#?RHc02wU}pOq9sX2T1~aEQuKUygIE; z2m79%j*)|>e3@1gsBV!p*krL%%FAK9iUK1*5)sl_<2yW_>pWE;q*aI5UkF(VNzy z)rpPRNJfAj9$VAXuAQhHG-of!?;{MY&1Zx#^wY%)eWGy6WOjNIw(DMnH2>g(Ho_F% z{z|NSMana=dFXGkr3GSe^(0xuvXA8G;=)3t-5sOrQBVLXAtW%j`JNFzzaVa`3nCNp zz+R*S=Ratw0njZ9iu#q8RuN>xRn0IkJTwm5S645XF|7Ga+rr$6)c4`xNi({m@mBYB z*|=9_g+@npRC=%-M(aJxfG`lSsmXM&-S58l?xo9{(=(Hk(-TW8iwjHhi_426lS7ggq5wIOd2z$+HGjg3UD zCHkZqGz6_r;lTea-C*W`9jLlUMtJUkQ*b(^1t#O|#x-fGNwj%J={gMQX4^0pu=}Kz zo6zR;sXEIJ;_b?l^G~$=N!peM=#G4ZD?1p2!f;R>pOF&$88P@wfr+$sn@0j5J~Otn z)eP?}mc4lfenCt1Mohxhk)vwMN7fui8>sF~i@ZReSzlTHyTAYUbTGPzBtW%~_o8Hq z8m>-GOb}r%Uc3k)$?O-5RtoAHG|H$VN~1_lRFYEufxsQDK^`Lpl-;17Q95C802-}yd4o=8GqC$NABh5>c? z6LcNNrn)aIE!jkGM@9^q=&Ul+Q9*(DEB`|0F=-@{?_gTGR36`5%Hyr2{C1sUqy?W} zTwcC%?K*$qu?;>&&R14eu5waSlX?V;hFZb)jSX3yJP1^$Fo1W!ZZky~1LNq0fh7O; zkOVc5C>c}SOKq>kn()Eqrbd4Ts|ae{tOLS?0JRE5ZZntG>D4V#ty;P=$G99rnnX8P zn%YsV8QxVAG6m6lyE|dKDuMvxVmiBnrpk#Zp(w51*8fM;eL&fDUFm^dR;y)+ zVl#+r1~4Zuh?yXWoKYwgDxsUid*$!qR zo)8>BQ3Qe?i12}oDR2>e@sO+o!wfxU?e$2s4EXTV(wamb&DDQ!r5C0C5&9ZxtD_|! zeRR#rl^%`T(UCnx1$i0)A>{AFcGUg%KKD5(PZ@}T2oo7602jL00a}+yPD!NQaD`Du z1);`#L8M`(gIWSP6GFz%B$5ZzKm9a8Mgpnkls*aDRSC2DmWxbEp~jSK-yvs)*y+IA zFGLl;`qem7}DO+ z*)|yR?Lbd|k3g#BFy?REXUgPZTHTvl&El{bgKJbqBRY8!MiGioak1}fzo3+($<{e^BKw?BZ%IY!LT|v{i6uhO72t!a>GEK&H z^lX+S={hI83>ja1Ig1x9bDA8hJb2-9qY4L-J`dPKMGZ1x_9d zTAP|&$C*o)J}usA^H!NW5-DN3i%Y_po|&24yN`jGV50U$<*pq(eK%k}ljS|GvbIFN!Q+pDP~%J44%i6W@dpr>P;QaMj}#bOf)fj@ z;J*Vip+foyVrN7dFm^tR!5j-QY!e^3y98&Kvgj3Mm%v3kg2TokM(qS-Bh{|CQ3VyM zC0K*Wq7r^4g12_fDiCAb!m+rMTW=Ad zlVZ$vY2~qwX`K=-8@5o)mOkZ0JI2CxP)uyEt=t9PTN~>n(%f>>O)48mx$(PE--zF( zf4(a9=Q3Xi@C_t+8vH4xcoc81+*OvpRTy@adid-GNS97eO%m1h+!K&1Zn$-8E+5AT z(Jb!4*U7GttZr!mF&AQUZ7KuXE8AO|xj#^6%NE{YbpGDGlRD@InRQa+aQAD2x_{yK zKQD~~2tXAGMj{R*PvAw60ntVRBsZc!kQ3rvH?LA!Qm(-!(953tMSd*O;!hw?kO@>Y&WT(He1hN)NyHUQ&r)Y8}%OQEo}`syHrNcHg}brUan@+9|nR zANdHl_AY=#^?i{k=rj{HZZEdhT2*SiHG`ofBeZO{XN~QR;-{x zkBpAt&yW!MACdFWA4U5QA5 zuYMVZPn-eZNV^bfSWlpu>UeOm)gM6PF>2Tjz^R-NndX3HVd)fG-CyDCF_%(V@b=(C$?;>7;Hu9O7rajj7X7~? zCBSF3aPe)k#aAGWPzI;UBoyCZe{X0UBQw=Vf#LVxb2lVpr2J|?z}UetU#dQgM`!v9 zXoe4wS+cZ7zn8fI=5Cwj14RQ!qdc{g_Q&AAR0ed~^3ObZilW==*V-%5c1Bvewq}_cpLy_4|ql$`Q9(92+;728z zK-ISeh83q<9k{V0-bx@W5N*eG8AfcTJeibNF27}q)v0o35cSH++RDnhmgdg-`WAm$ z(p_8I+}UYK<48?yb45iB`Q)?j3MnQua|cvs-7G@U8fcFs88c~QbkF!i@b>GtCu}F9 z$?jYded#wv@{H)JC8FLOz4}5(@K;zyNLfn?KzNj%;ZX^ycIWo|0(5I~?{dz^B#7UFX#~!GTkA zE9fdl7i6}y7O)>Yba;>S`myl?hvtu;I1SkSb^O$636OIK4hSDC9673jFRf%)?tpD^d=6>gxK&9g$8uq0*vM-*fH7} z6k~6Rl6KPmaT)~Y=G6d{QEwPb~ zEl&}!dj+-&BVq5Lz94tAZYwJ;sHxm3zzStydnCXYY-6h2b0V>}0|w)fqz(O&FSR5C zD{aVRyCC#*_)_04Ga;E#HL|pANT~n^&S-q2h{j?@f90C1xhm=L4@gW>Pq`%iB)N0V zEO}GZf(D50Lbj)uK8?`y^>%4D6Q3*tH>g;yAeO2la7BDIO>L>#F>;`~5wJ|BA_-{$ zj^AQ1P!a<3rH%yU4Xp#1dxY)g5t`~n9N2HP>Pyg2xl>N0_@{&~88SKcLE0*{SaM`)Fa`qf^M@q%EBHH-cLkX6jhN(R9Wt((z)g*`%q|Elrt!w3KKD@U1L(3| zblHH`l;W;80V(|?`_tEkgn6s|3nJNx*x~@i<__S6&!i%~AaZx&#F^RY1MRJCc-nQ5 z?|PGS>=MO}1np6<;+}gLZWnR5I9n6LhTMa>qv*d)u=G|uw@fu*yRqajXS2IS*kbb9 zn=)03TfK6*^z4@Uy21Y5qel+E|BVmcdFS2BFTeD)*I#+*!g+DT(vni3Ey)BK2J+xl z+6mzWnMa0oFad-ng9-CF3knKhJGA`cpZ^lJ|MS28yLUePj;aERhmDQzJAU#ktQ{I2 zJ$n4inRCwzm^L@JjE+rEX4q)GdGPR&XJ2^v!ppCz-&WejZFmPhK@RbKAf{lk-? zdTmW?S}A{#+z%BE$eD(M3be4 zTDS_sC9Bj_mQzAtI}%6VCfWdYIq zc^Pa3fZ+4Sn4U6@&3!KV)-5?s4(#lCT*<+iwp*If>acE>>Z@TZIpsMF5QkGkkUvZL*AhB zix73LFH|?R6t+=?47`VilPaqib>UrFjGv;z#;{)@M^OyR$9=CWz$*%Wm;*$`>i)a$ z0{iU94cC9=cDXuM$li0eY(okUY?s;M$1*F~;-CojKN9NtT6vRJ+Qj11NN5+Ec8({& zoMxiBE{oux)j)MulP5!>u|tQf*^EMHh9;96fl>}3v zwHlj9Ur>5+aJWywJ_2coRQAW@U#wik zQh_xJ5+0GF4fv86utQ)gI7KpTUlr3Jo%&~S(~6a=tZMPQF>{}St~_G`3rWXEj8h(v z396Sp57bW?$Yxn4d4*1r_910N*lyQ1kuyH8ZOzBkD^|E$YA}e93CbDDvE>PFGbm`2~H)-tDF*Wzj+>={LS8(^$wX{xL4J z8s?_EyT{FdbiCT6K+ahK+Jyvu0M6-{ojstPjR{o}T3c-6E2q65{~sS$^sKY7v1xL0 z-+_bkl6(#xnwRZEW`WxdY7BdUqB~4FUO-KCHH7!=L>`w4sBdj9E46HDSE`&DTW3;V zmC!T+T3ebhc_z}thjLOr60nCw)}db1*XEm12(hFunq5%WbB|Cgsw%DhEJ@xNkkf#} zXHf5II$hV}?c6ID@$(oz@NTs76a?|PtPGr+7LOoQacc#z%;IcF^K8-yb z2(p112xIth5LmF!e%A`yXvS(>Rt8!172w@xonx`5sR;CvFL0;Ka!p1Hc1;96Q?o;g z0q-1#v;qi{Q$L_Ox(R7PI>@KX0DLmL&BM{2m)!k-vBUGQA!PX*B!Ax&aI1XzV_;?SuR_v>$M%FW$UQE>(}@8 zb`K2nF^SBd(}=KQ(IO9;$iY;x`-X(C08)m5Z-hdCUCT4yo}_ONeh6!g3T)G_;L4aL zd`C|GrA3D&3XldTr0 zszZDC9i7;Fuy}hZF)1?>8N3IxN}DMdff6&2_R7lghI)l)nn~`X6JxXUbFaSrwNvNL zbar*PG~#EraVRM28UYmh$29mjEb`ncRkdogH%k<&BADQ%F@E7W-3+!9(EKjo55W0N z(rNtCr8?8fr&X)rJa-HPnhP{=mDq7B*iOu03e&9AtAXvB7O8=~SqMYt>O{S1lxb>R z%!S}F=UYlyRK%$O?6jkjVo5;7?tv2lD2^OCvAb`ur>n;((#ximoeOa9n{N0+IP6l= zAPw&f+kF>o&#VSNIP)5es5IZ>PTWt-zO*5W7af?G{?^5e%QH5mjfP;_A0qowCdq@g z2GJ;V$iB|DOBXM^difHAWIR??RW>y>T2}u* zoH*0%QR)CbC>HNwNiq3>-MjmG`x@*F(%3|wnVp@Z!Yf=nIWZ}giiJRU_7|$_CREB3 z*xudU?OlS8YdU9iWCT^V?u&bluJ5F}Q)W_mWW1efDr*tELvKB({pk+Kfl0kyXeuS8 zv;C$Z2578!#K6r^Kmpsc6AW2L(%r*z^r9~^r(G=u20*h_oSmI_?QjpUN2&>~Y8LbE z_0Htv-l4%kLk^Q?r+k<3EHnUfadm+ML(yvp6`VI*fg}+lloOjm2=Um4$=d%|PhnY8 z#8}}lsQ1=qg>kt04{!{roFTU0(r}pDXci=diJj=(wy9#`xpV0{k$Yz2MeNhfg2Mt!2egr+So`Sc2|C~ZZaA95u`n+YXa(7 zh^+DTM9}Go8i*=C!r%8Oqt(E+@r~<)3(!|pxr^0H=2c|vR_^?lulN!R%RgeOU^tJ! zC}KmYF}hMGGB^NAvuD8Wm89T31FZBu%vrZ)t)JjW`G*O|lT<6r6NeuNRAnKFR4Vf? zCmm_W-DI{4o61VY)h+l=hfFc`LRzaT6`LBJm^eH!d8n|c1hzx<%oO@M?MBX9K1av!w2RMEF51rd;Yn7`}fgzBB3Zh-^2$j0NJgvq*hYKk#^n@sMRN; zqR}t0Ctw1z$GIhn=R`RLa(cL0M3_{I5=D11VPQGeF5P}LL5eK7RP9nIm@#}$g2_J+ zqCLhA_BAY456Kgp-o^hS25DcNn2DmY_8mMUJ|kt`Xd!vU3=)wMTv)Tl&5-3~)}1@| z!XZEL*lAaQ?KGK)!7NtM_jZzw-cJr0p(Z6ddhxbfk+;zD?y)OZka+;^Hi8dWa>a!U zc#n-X5chD67u&PuQEV-+{j-%yw8tkQJYe^ha)5{yc-K&j_`m*_|MKh$FRBvu<~!dS7#Q+FBpJdN78a?Y zd+ym6j~+Xzwef283gA3re?cZ;yLD@GbBo2UHTY*ujq1TlyUR|O zAcb`kX?#CZLT|T{w8g2sx$0_8A8pe?w88nidwSh7ls07mG8aSMCU}p*lWG)Lm&9xV zb}x>MjEp;DY;0_F)DkT}oTVVhz;?hciV7#4EXlvi|2jIH# z%1YmR9gaZ&>NhZ#o+J)vp6Xa#0LE#v<{CCDjnGVYB!J>+DhClce)irb2^BMgv5duGf>h2@A{&r0ty@LE=(WvBe2u7D=4P~>*pG>iY z*oh;;lqqs*rfI8y_a`D@M)P_L#%|uQmVl#mJhBK;soo~wOP+99+bvZX$hLtf$iv<{ zTaB3tU~bAd?1`@XOc@N^422IFyy!j9#I=W1z%YV(D)Hv$sp4K%To`|7`OO;&w{4Ma z=Hm8r;yb{3eJlViAEv3kPV?e;09+H$>sXDn96tiJ00H&1HbL*mGBh#)8hhQ<)t;ZX zg*$Fuv#OfiWWP4;(|yDB*NF?mBD@{i7)WtMYdAtL$Xq-)Z}7y>S{bwf$j9%J4-@Qt z1Me8fCu%U-ddKYh`qw{r?X`E>TH01EU$N+>2$&lGp^e*qSLratA|JT_Gv1ym zhAp}&wgAT5GKwCgJr(aYETOs&LU>*5Qzoe=6aak|hxNc~SJM^IOHw3>*nzH)W%w89 ziraHC0P!=BXFaY*G%Tdmo-jP4?ywyy(zJ;-qMu@;fcnJAGnNs(^7>nU|9}0*xq}Dy z?VBdETh0$7iQDb%9h%hR@bJjg)U59FDd{Ob2(CxR_rCbbTLZ(Rr=NXMB{3i2FOd3a zCcbN@C(X^f)g{|M-PYdjBLsHeE6rwlW>&P6?<3ranr7IJh+?hSzVh!(Pm=eW$@1hE z(NdfobqCQs-QA3W@g^%qr5aqfy{*;2t*fc-=BIEV^DVJ1W-<&p)SVy$=Y1D>N8-Ag zHV_i33tQ0JJ%Vc@j3-FD*Ja58WWX*?YDtlb0U*d+1KOb5Tr+tHFTerl!2xnQp6`6j zNf$&P$%KjhgJK(2@47yvoxOk(4yK2q?jyb~!+aNUj;`XixV@asn`oP|$1?s8|Ahd; zsSLJ{e69*ED#mJO>xAtFF0$z+)u+OE#X1H1sNcexbP|u~V&)hcnJ}4tDBT6ZTk#|u zDJ$Ni=QuosN5zd#=TleM0w#cy>zm}UfMxJ5SKrds$Sr8JLYXMz_AUx~sF@ zPeA0fo;E=!A%lo2&UW23*Dx70meg@kG7D}eea3c95d`EBc*PINNIP7D@k}ikm%QPJ zkYY?>CI%3Jah?LX2|O6{ej^M8o`%NS)v8r*%grrNY>yyAY?mkFQ5_CS?T#Il($gj; z4$aPvbY(QltMXz7Bk;6G0?vBD&hJ6&5_)80-~?Vg>ReetE2q_`hHd18Kk zo)~3$7siOXQ;Z;huk-|HxF4k5znmzLkOQEVheFHgGoHXDs7^}qBYa~5`Q?yYHhgA4 zi7kkFZthmVzG?H8)oa&nFDXUhzxwdQ%vsolSfLg~3$}B41XTe$w1?{8{n3XX#(&H; zjpj51BcduRqb@7()Ws&zM)K84-l2$9@OHkl=R_4nkY9Z9<<{ob@WocHq{D!59qKJ} zM7Q$Sz%`RC7UL0rV$;1~>a2Q5c{XGxm?q?pw_;BptOg%bVQ-lG9UYyhduwYOwPe-m)ztgvFT8x{@X_Is zv9m9{eEjrtQfbIIrjM`I-K{OHIJQ_S)qQk)qPM>v53jHbcKTlEO)4K68aDL|RPB$V z%O?k1yg#ml?;<4`Es!6QA3c8Zz@dY~dxqgTb!BL12*P)Cv{Tnbc6z(J+8{V6&N&uD5^MxO`hl&Q36qx*V;8mxPxmC)v4~7wwpn%&2Cd0 zlmTj7-D74(!Fc2~ZeVjGdx1v^X=75wMu96?1i8&l7HGq|U56wq!n;#=qojla6tJ*r z1#EY+Z|DBIAY4bbKnAP;<2(hv18#2&;B*Es2Z4=1;1x_LDrAmwK^!fC9bsz_MbOQ% zkVJ5G8F~mjnDrcg#vTneLkxy{{l3s=Q2bcs1j=u_d?Bln9-Jfz}s4>#oQFl4*y2n~Vc(5~5D za7Ujt_zgvaABXXX@)+s{KS++Tmb=;4CCz84){6z*sehCCjv8)iQsRNg6*|q7hoAD5 zYx&Yl67YxTFkSwnuGg~$x+DR*Vg>$GR@%~pLe%=1(7@Ct9BFpI&UMn@v@Buc&yCVUcO8v4vQD9fPH5c?9l+-i}`CeTFe-Q-C=b^qMK-2sI`~SJY7Td+~OGOXuV5 zn>H%7QH-Pj_R8`aX)rw0vQoQi?Sk-mc|f50#K~8V9(#3q=G^Yx`}=o~S5?)*3fK1! zu=_455SAG1J$DPe-8K-jvvXowQ%K(I?18yC+C>U)nJ%$iTFlwvVyLeDwKl+US6UuE zgZB*^?CVhg;WKRaUBojG4aw8@u6}0Oa&O}I8|=PC9$B&kOAk?JYaVQO6ql54+?-=E zDthlG!=;Xtn^>KiETA5H#LwpuNLOJfS40t>jm!sA<%elQ*sd&6BpcBQ(~2;GRQ+yJ zBgtN&OiG6F=kVar?9^Osb&ZR#>=aJ@2%llJe$un_c95=@MOOj4!%JpaNQLB=d(tY} zl)Zqfv(EY#FZ5X#_a_F0oFGn~8-Av?AL9`YKzQpJw&iT9t*lTXk!VaClsPjuGYwC) zt#;P7o@i|uw}2Yo(BMEG)N6CPw>I?d#Y?XN&zE0)jP17*+mX4vJK+LaeBUYUuJ+cJ?#>R(+=TU5zJvUd zWo4+Bx0-XLC2e%#Ei|6FF?m6{=>~65R*>rnyRVT0)v*B?FB0uyoUHT;c=s;gB9g!y zB*E)EB{5=DfxTdNGOOY06dT=Iv@OqE)~!%S?3Fd~MXu})`D=jPyY7v%kZet;(cF2g z!^ugZeUzGn4I5)YoYQWSXtqEe45yF)WT--H&)x#L0N?94w!9gKcZFOf&`XB&E|53) z9B>t+Lt4U!oD75$Zo?o$4;Q0i;_4|I=kD6davF+Q3=eyzvsU@1Oh?CaMmJ7AY33&~LTrrN6E-Mv$L$8|JH3E9w8 zN|I(bTr@9ihY1;U81SZm(H`U6@|lerO$X002A#rdFvTE?nZ60n2W3ewptz>qTqcnt zW6t2+-Z#LR`*Taw$&U~QsK4sVS9pc3bSFl!QKygv_o}I(uA#Pyg3o6$-^2G=eBYH{ zz9O@&u-)3Tr0@}kql7!6XLbX5wh4yoS%eeRI}%DqW;;-VFj%Nm8DI<06d(2khPro! z5eo8o46#AH7r`=lI(G}Eq?aNGvLv>=+a=Mxs1OM6*p^qkb63r&Gq26eoSK?GH9d2t zuYcd}fk{%KzFE|GKM3}g~jwE#AjHCY+}|1o^*-9NA|p$6KlMff*w*_xNX zc}s3VQL)o}1ib6(VDC?CLPeJ?iD?=v6AUP_>Ql)WTAX z!pMf5HJfPl6d3I8Pk#Ozr4-6aN?B7P%($V+~h%lGUYvj!<;N3)UL!@hu+#&%YgUPmg_i?VPvBax=I;*yIcz$J<2jU99e{?N5{rzW)CR9_2GAZ z^vi$o*G4Qd|VtCIU ztCy@ih3X`}xw$!rJvcBRFxuYQx_|FpEW#rq;UKCb_RfUu-sMm-2W}C2_l6Q`3LqQh zl%S5*=HY?eSeypO#E?=xk^P@wyTgP5{4mx;1F)btlVxBpehz-kH0&K#gIT{eF@M_d z8t3Qot#Y@(Fi`IV%8W-pAG-_3%6}Wz8&R0QD?7)P39J|e`JJ>2;hoQSa|Jd6*Ypah z$N#0N!4rvg2&9n{R$zS)OVDl9*=d~vC}lESLJ?HUh*B*_IWuq@MVA=q$kceK4&gl- zu|k}d9f5lLmaInM+$%hE$L+AuLI&|~3Jyu%SCE7ZLR266nFU^n zY|C3ChU+#m#CA219+N8NeTlBJh~Dx#*^5Ggy}O84U^|UnHoKAnrG@$Q4y4^~dPw{D z$l%nziGluJ-~->N!7^poSuL-*Gzb_s?9F{+-U#$OBRQY|1i_ZTb^-CUMIfuC!Oa)M z&+{OH)SwirGtH4Zk9XX9n>~H6x#|xV-yNoq1{LtW=%yzheo#IQoM+z6l+xnuoMCQM zOQUiKJK0CZlyeT!nLOB@1vRd__8PHf4GGCv4PXw*!MXwCPXj>4h(CR=R}f~v9x$8s zzm6G;1LsKpUkAa!IJ7sr<1`4I_BGHT)Eg>IAmoNkHoXDz8zWss5#7yOq(pAtRa@I~ zB|=I+ec`25J|!9620d-hBg6cqV7UkcTcc2W=4&1zs^0;Z@Gh9;@a9a+}} z_wXfC*s5@DzJKPp&t?*h54t6DpE&^Rc)Pwk8_5pJBw5B7rrKrL zj_L>aCjxKO!*H8`bAn;JKjAht(x1EoNRGq1{{1#*NmWX~4%_1vQ`Bi0LYP#_c+tFO z0?ZCGVxYJCyWjn;TvB6F|7v8-#rzo^FxDeig$-iX`S&q4l4UeK`uh67vMxBhaCFa} z5#4d>^f_Tl8n|E#DW0Xq;m0N>re^1kpE}dt-tMy(FTMWio9|tE-aWJ-bjY+B8yY@ zTJ7K6+uLj8uuUR5WOKSY&_>z^`uk_5XHK3tb^7#~BMV1l-5~AWg8Yzt*N(DYD>McN zXJ=+(H*n>28XERaPBvS&g}xN#LkTQBHDfd;eMZ|#o3T3~F~t2i4MckjT?exic+WXa z9`%dnsaN_y5v}0upxXgv z9rp7E?DhzOQ8KihK%#*{u>FZgzN!ehbNHxo&ymFd+s*2_Y$-0>28WGc*v>KVy@17C zxnI|J5#|H1f@0@TX>MP1v#Kd~+Lhpr+bt4-)zTCLl9;Wue95Dfb)f;{7OJbB;j<2L z2pA-!2iPTZi=0;NELCR>V^_jm-s9Nt?gO*?tucl?(J(nVQtaV#c>V$JJW2|5TbF~ddct*L8HmIf2Jzv8-HZ=>V)m&xUGJg`3rk2?t$fk@ENu{ z$HWJls(fwQM1Ay&H;brZI=y|P3jyq>+S>; z1Lm)v=D8wZ=+?|pL&wrq7*09}s+v?pu_Q2wFfPFu5Xo!VTCOs6v!dz3RnbqDE&x7o)*^V};iTnfDd2I@mg0zOcCBz9;B9=$-vprk@`x+4-@cxsZeEPLFUPl8|NESZO z`+PTeZoqoZqD6=%SvQRkkp-neiF=Pfu9PB37dCz2#h1IgdpKEbZEb)Nv>H+7MPF~P z@k4HJ!F}!0(c0?L3rCLq5C7(W|G`gx_0BiHBN?W(wM}6ewi~$!!_7MTh*FUI_LIkr z4CGmq6LjPFRzFF(nVmaeY(ak5PFIJe$gN-LWTOJ<;^#u?k&!Xg+T{kAK1>7NOT8g+ z2neC&VyP&46eaL8CMHgwIs^Pscjx=K)q;Q>fk*GL4iQ+7yLb0{UCa_0?(glUWr1Q% zO?s6xqx2KRCddaG7vwkA*NK2acIN|z!t1@eqv@Jp3sI7C}E3D1yXYASZN)YsHj z?Cfc8**87{+b!@n@c}i;A%RKL3!@kkTf)GKmKKIkkaiS>9U7{PvXn7}=q&z@2eemr8Gk9<)|VY#_icjF7#Qb&e!lwd5gBh}B!+o8ahK)KVIGN|gc5iFycAV))eT4dQGS6+w#zhxQK* zPt`R5`4KC;$Hopcw*>u}nw}@&=_lIbFwSDO}j;D^8EY)K83@- z)YxmFG$NW|H6sP&`6If*6Cf5=Aa`r-)@`{uyol(&gO-!|1z``=)lsY?QkIs+UQW3F zV~;V=uwDEDXv20Ef<$8y;LPCtP76ivjMYX^5`j0E>DS^WK(Dx<5M1{4_Wby#e>Q*U zFe<3dSR^{8jZLX5AUXqTNDkFGWoZtE_Ac~eY6DqcYG62=%nGmtsJ>6Rh*wN}!w;Nr z)uD=m^A5(%`uJ0X4$}*Uv;6UgAEt{QTbO_6owtT|_mUr(EkDz5!~_f&j-P`M7^5fR zHDd8m>fhK{DrB>4nfyWOw*<{aryCRcqyYj7K#i(-#jkd^ElrIs zOW7s>LVigyUMCtn^UP9aPSQJW>>|1kkLN}JA6M{}M;{c3N)uN zy?5UB@csAV{4wg*%hib@_VNUniCeARUUV~lPIZy}1px21a_7$584goGJr=d{!ML&d z#A6RjtwGDl?|zAG@}#Wqpu23|2-2~4kK(85#;7D<(;4d!3b*Felu;_qoqSxrPT~9f8RR2?E!X*zSjbC(||#n^vr_EG`x$p<(zrVZklA zPdDsfjJ)eKL*lbPQ$D152iU#H9LNt(kckcux-D|43V5$+DlMxliW*K8)zyvp1tnPd z*w~b;Hz#L8uGWLJn#;UXndIoPWB>Ty{@V}#_|tEG`(qWfG*m#a~Rrn%+J+2?-r zlb?M2-S2mHbi(%X@(L3lEz}+A6si%4OgUh<8^`$pw$lK++!tV;VSB*1_|c}#Rwh8} z1ofQYcm*wAwtPiFVNrfT(Y8WDYFSNP!^+ib6qR7a1KXLd$dim{Jbx#k?+M#~*iz?V z01na>a%4cYs+cwHB|D_c=4{-!ql7K4LM$;%NgWQ}igbzL!NLFV5C3rS#Y@(u(q!QF zU3c70hY75v-B=rLlLhMBt+8>cZf3QeKy?TBp#eP+MW5s(NMd)g=U&H%WbHcq>Ct+b zyV8mhLO~YZLiBN}2-VrJMr{4T2bt>Tx*9Pr)V-^{1-4sOuG9TA=Ef>IvX4ir>HMfL zTOK2A9>zSZx{a)-sVN(F9ER1ezxD3)Ok_EBciTRD5bNgIQD7DhA2HyYTbe)q(I=;$ zeV&%$1nqzL$kFFtyx7^*h38v~WFYtmY=_u}x<`UcbF*4=J=m`h3lucG_U_&1@|y>iPg)B@h9Z;ig#6_!RlE7 zi_TmDR3hs0^M_IQhy*3A-ly8zTA72EriQUS!+>3P(8TaG@lzs?RCrbuIAdbguCk}z z3T#&pFU2%rIR1oJBmb`EQoh>33Xo_x0!}k|>A-FVrOfcZwyF{AGr9@a_zdGaxV2KWFdquQOc+p3DL_BPf%EUV5C{P@bXA;_c{#I;vn z6}(;kX993Nn-qhXiU5Gv?uW3{z8%i9FQyV^9@uU-Lji3IDx)xUC@}HU3ItqMd(mkQ zA{7V`}bOtM>yV#*=i|_~)rDS`V1S=&`m7+oXMTb}eX@Jto6mx>2@j+fpsssht z{UH3jw|Do{{#nIUKK+wloH%iETV8%cJ=5BxgcO7)(O6jWcmMw1|G)qEk91vu>o9XA z7RM{|Uenwx5ZBS$+t=CIrD@p?y+%vG+gT)ujoFu`w*t=nDNZVR#x8q!ywpb*q$^vR zinMPp*->0lR#2p!a`VcK1Mjy9eB1%a6N5^CYum>5EU>>@w42 zZo3tA(bXR1x8GzV;5+XyA6Xfwp7DI1f>}wQ7iNX_xR5xkV5@gc6Z*V^;oyDy^Roqp z_ud2E2{O0bbdzgBdkHhX8n$z?!8p5c>!L;ITflv!PehU=Z1)Q5^Qba4l5ie93F-5!G-1;FAx(_amw1{r&yK%J)9_`235P z3X2Nq=jzG8VJ-mBCeXV1PLdhONJCqWg6hExA1uu8Pzch zxD282w6)?8RQIuw5rE7GOUa5+`krIVXu8hu(4b36l?U%2nu-GaGl3n70zCQ&LB{Vv zT=Dk!sb!@gmlEPkyq$pK!Dl06vu2HZcIT0`n7_@~VCIehtV*Le-l-*boxSc0+3 zezcdXSgJ)9#(|X=_uuP4=9Xd)=t9iKfK#9YU+LB|-W?q29X*j$?4&=n>o`u8nR!U|74#7+ykchjQ zo55x`Y{2Kyb#G-#3yuMB{4)&5S^8bq;N@Uk{u^hCSFQm)X6`vsZTd4>@L#Jcap1SJ zQ}CHJ3}@u7$lQRKxiMwaugSP7zm zyu=AD;7rdqZ`$muB0u+;Wx~ZEHN77EpWy@M8WUGX+N0g%M@H_1blp-DbaZs@%=G-R zW2b)nCqGBkDl04o?84ZUFhJZ$E^`MDNOXVe>+kRGAE>IVGH16J77=9X>+Ou$QBzwt zFfin~#s=(ulOG4MCDg20w;qcZO~u*WGXn+2-M=#_Fl*I_AgqULmAiDAy!XvT+e?c} zc5E-(NtW4FQAuQ%&rY$CCqs5t?497u1Csp$+szsUXH<;DwV`?_6_SfMcl5is`Mhyf=%>}+NYHh|jC@)4h(hkWJb&pjf z(B5h_Q^tG(@1pW_7`TmwfpowQ(wS}DjFs_i1z~-bQHbl@afc_!K+;jel=#!G>nNCL ztV_xAW$_<;@Bu%iaRp7Z{ z4~adoSWgN8fP%Cp!orcGlo>dmVJ|f%mh7OrR$M5ljhM!YjCHJx6iZRvNP6isX_|3w zE0w^bGQ7Sb0KB$V>NqHF7Y%4>hUz38k_%@_XaLiIoCF_V#AQbHaW*E#V<_0G<$>fK zn4P7uhpAoi6o>}JQXgGY9G22fgwd){T>+mA1Tgc)x*8HRmTqx@-xa8yO3+}f)M>gs zpCMZk1xx^T_z`(qF?j)W>tA}iyQ`}zbcC79dAV@$Ww+`ycZUf3QT}JBny?&qeo9jV zw3L>xy}rIi=ALd1NYsnAcNqk8Om?cXnZKwf$g9BC;x{7wB?t-H zWif(xlQiS-mUrU8z?|Pn&O)4^zmID`CuFFe*+kxr2n9z(xxb#?fqnZA9z1mXdw=}1 zQ)f$yH+@BD;LTuM!l1nW!@|Ge-eskUyzIHCVBO2%JPEjMArVq!Jc;{ZZVc%qkqhck5ZbZ`v|LL9a6dELtFfqmP8I;C&z*na;>)if z190YRZ@+i!_z7noJap*$pZx5dZ+=9^F^UY5@$rdY|K;Dm_U5~9z5i|Oom|7XLs3?r z0s~RuDrDcagQKrBiiPvJNR_b5(9keIqv~^JK|bm$vMItKvjoE9%&>x%J~}!oDEh8t_0!7H2meR zIO&WI^PzF9JT(A(i*bSmaO;HEjS~+WYU4ZBS0ck}qjTt{&hH&c75GykN3HQucd;v%qiX!`l z8B`RiKrnQui3tZNvG6?jUMjap{XqFZC{hPhdA=G@`XV+(S69%Zx3j}f-k!g;ucNiU ztAlN2sWP_|J(!!`w|{bU^|Gf4P||5K#vU{byz7QPyq+5c+m|TxkknE45Pka;{VX*0 z>`yuRBsgZ>I5PVZr--FDZr;7gi0~o@1Ofx(__15mtXOTDBk;R+?XpvpHKiNu0!*Wo zAeYQtYL(m)WuYjgQbB$jrZk1Mq(50n1l~0PX;~R;#>&+IZ|dJI#(HpO_RzP#|HDJ` z2WgqZ!!}SDM&{=aAK$xAHK&7Jojqcv(A)K?@w;{^64GwLqpj-k_VS9V-2=lF6_r3+ z_??8}A49rxSGi1e@J?O=^$yrhkPmfT3LnWPhaZvWF_g4|0@&_Pk~>W%4#InJv4Dd0 z0f;w*2XopmqNR)P(;7>jeDa<<@A4vZW>nzkqVx&XBgpIUiZ!ROU6!NxDKp1Dk}VhC zhvVFBe*s+&idHpB9_*KHC zO)tK5`PAvNhJl#FdmnuC!o^E7a|aA93xWh;?bV_D`>~U!r)Fl=B4|NDE%YwPH;D{; zz#j3zB00i=r9gnE%v;p95T0r9mw6|=WuB5V90ZL}sv}3GzPGmr?ROEGEszjYg5ur% zebBzQr>m{C1qe^N%Gj7ZnPW$f9+;gYqj4PA1%?B#t2W~oP3_;`gizMhh>|1?q-o3M zO~R%$94dz_N3E@?*%V)N>eQ*3sVO<|LTiK+k4QT>MfLRv`c}T9ly1B^@?pXrVe(cD zTR?=gOW}_5RUQZpbS;MtQ3n)=;?B|%=OBb;u3nah=j+T_gPT;Vhs8=*5O&9RX)7oL zix>hp57=FeiO2nnA_q?`4Euu*5UTJ!5C_-|HsG^r<#J&iZ~~OLdjxZ&-H-*>xHka5 zkPNm5}``kH?9 z6U=>fS*M3$WKWiq9s}Fmk4JaQ=s5VZusT!4xhJp-U588TfCV9f2TBxSHc*@j4W;jo?X zlEFJ*m$WENeS2wH%6{4ECde-qpK>7lL?FFt^=ensKl(aj@@cJcPSN%fXEO@<1%(U~ zeJPCc`z#f)3KfkuNmYySHk(I&Wxg7u&;WT0480>}QU>vZ6J0uVd6Jv$& zbPV(x@(b!9^V9qHA6Zy9sVvT!GqW=@jWi{De5g-dTemO$^Si=wb;hn7YL0<-k`8kN z`N2DdM1eJQ!Q`UEG84=Pw5JS_Ry@pJFG0>dF9DUKFV@4N5jwQ&%9BqQ+Xx(GR&7_G5s zBdkuL&s!u<@X;hq8BQU3=WG@?;XV+(F$Y04JocKauEG_?Yf@eL3Z$rUx9Dbv53*|N$%I#vMk5!7BxM}(H#LaR zi67_AX&?q92b0h2{yyhftD`+-L#dCYR|g@WEp0T-OP7b3HN+ z1WXz%>JB_34ofarw-$6W;@Z=0I46!BV+L>(1rX$95^C43TuvpFXSK7W_}uA}-EA#T zK4yFRSb56`>M!@k<}$|&rN^t&-W;~Z)Ji%Iw!?6D#jG2CTsi&jb>q?Ra`PS^;>lxNvyemx3PTSZKVc(f(Zo(OpWxoP)Xc$Xw2ajZra zZWNtRQ5;c;GG31Vyx!kG)X`}}oZ0;|Ghci6{lEOXe|!A+xtX~m2M?Z}pFcM^I9^xZ zL~vEXpuD^iney1)E|6tYrv`YAuG@>Vskx=2t7l?TmPHeY2GsZ=;RQu6EZSbSV;4Lp z%UFx#)zH?r<`K_fwQ^xjg6;0jCn)eb1iXWF*zR`-yvBmov{v^C<#yC|UbRXIcO_*W zGMyfL01i`8V7s5Zy;ybPN>Ie75G@7la4ZdhwRSUs=M1b%k#2Akn#WU5JcTCPei<=| zFhNN77B|URjrB)R9kw&Us36?NrX1j%EQ4{G$U2=iL|q5<{?7z3*&yA?xE$8HdgXG@ z8F&4Tx8wGrsK~hhndh+mGlY+&vOr$)!eXo8U``@_O!rol1!GpO*5nE&Io38>a~YNP z9k>BvPrcDFFobFi0QYmT4jm$=zxu{o=Pz75ckVfm=vRx49zS_1!+G5PJ3svNZ~l+} zbK%GlnFgQy>2J=Re-Vv8b@n;Qic}r3SCcEnE<+AAxk7dE)dat_YrW2HdePi5MBCch zrlx1eI8q{+S2z*g%E}dnEV@hjHbY6@qzn+pSa=0R^zp197=BKfX}40TzklE4h)niA?nFHE8Nr6F8cFf^q zS@B^SZe1h~P;gFt6L3v$k^15%Y|Yu2ITWNd?uHJ>;YC^}CKO)Ig~0fz<*rg6H7H#y zf)F{8_vj$MfOlZ-@iUyy&%@qPcUnzjP346P=Z#W;CF><4t^gTv0-FMw_!v%(JRpCD zhj9YdgS0DxnhF*%e{M+vhk*q0S>(hwqHe#|gYSUSZJV%8!1?KEWY1Xputre=R(>-n zl@03cXqAoM+Ej1o$SLaY>1?X2zHt88sfp3w|NQ5*714>@BaEj30XxR7JBVO_{mLt@ z5KARY5%SSL7#;##Oy?&|4Fkqu3iuOrK=mvQQvM2a<9P%GEvSz&aVr2HxYHV$evU$I z7gs1PuB<6npdqrjVtVl`(f*a1E6eZ~#DwBxb4C1+^NPwU&q?1P9g50ChRibCy1IM1 zyZfi7=au-o{I$3K@_+u{E?<88*>jg(e&vJt!_Rhi50hGV>_oy=s>#SG-w|wji!c`=lX&2!~nbb+05TQVJs7 zsT4<*F4Em;*H`5hC#A<6J9+ZC7cS62K)Mk?CNqSDK8J^fcz1|!e}Df^{_I!Z`1W_$ zJ|fJ||M|bh+Yc`s6ZZt{7{KVYstaNv$nbcufo?aq<-X2j1d6vO09|m;0E5I%p z8-huvLD9`?%u^5n_5xeeALdi>LTTS*d!WKVj7=MfX5phL2NZi)KgP93&O?w%Faq-d zuM8phtb<4yA-#l4Zi0vTHa2vq@x#S)WzA>|1Yr<5NjbFs1gC@%YhMs%vfT~WUkBCY zRs$B2uewAlmoKHONY9qzfqO%80=u{G1J*XePKZshA-Q-9dSmhwVPnzBS6>+$3}x`n z@$^B!&Ts%O0*iVVlo|B_RxG6uF3C|OSJj>6%d{<2kw4VfSaO=S6XGk#a(|af1c>UGM(czOv=jHsvZF5|;`M~yw zrQS%8x$Y~GiKJ5qGFM*lCFfWg>^5kyW_lp+iWQ&;wiDuvKwdxA1v(t$AzUbOH7PT} z2x2!24U3~g*=4M;Cb z>5oamRQRxlz}_LE)!AXQhN4!SnTOZkWP(Vi`1b zM`^of^|f?rWk_2Z8@f6I)d`pcL*=u?8C7`!?}z3W`jqyvCaAU+2&eJ0+7krWh_Vre z6JR(pOxOYAKl|mseEYo*1v~{(dlUsr@NNPkW#AXK)60<%tqR*^vx8PM&d3b+*}~+C z3ha9C-hCAn6XvsN*nF6e)vx96hJTyR94v?2hnV)aKv&GDW%o)il(72clh4e|&CHnis6NBMsGU1^?$E)5ue|cw?!I2Iu*%$ddWkYY zF6i4`GnOV57C77z2izKYu@uyaalg-ZCUbBGG$xL|`7mW8JWtG1540jLWIz5d+;iKYvi45i4P* zG4E&M6^0>qQlkO(+R9xGN>A-9wS36{hUW-8jeS>1VMA4UTVvgDf6s;U&&}-HYYYQ+ zQ#BNsP4^%_$$3W1d);k)V^>nf@$BKIAe zO9?h6Z&X2a+NRB+O9(wg1qS}Eg{O7koutyz($>(x({1hS>an%`;P9To;nCx#&cE^Y zH-GYrU#l@<^PRr_(E|t1zHs5|&%f}s6Q^FBJ9upO?h#zQySuNerx#5})K!8V8QV8D zv48H6_}gzM+tFL^fE20Hjq?hQzb%O=;|aUlDEWddc?UlG>UEBALDZI0%5(95jm3 zN`wboAv;XBd+v-KHyq$SqwXNxjECr^f`bLu(cp!H2G{{32}K-}lEOFC(FUZcf%#-^ zxG^C10~vUuKI<*xoa(_(B+K9=Ml$-u=N0v9u#LgaGDoZA!P@G<{yuX7?02-b*ufVh z$|~&X>LgiocX#gHyZ6YEEFo+WfY=V9C37ci17zL{4N)+;3=qL98L8Apd8aiv+3}CJ>5eC172Z4(0h?n_6WS= z^A1tfu8wvJ53NSSdNMSyJ3_6)!_YvJGXFd}^w@Q%C1i6~hK+@JTm2S@4ZZPjF;*6n zARk2Q>8GGHg9}C3Sz@)Ip!+3W~*{xspLNOo>JgaTmaCGiUk`>KRJlnk|&uq z2rn5%RFnxI&RfWD%;5j@`3&2GdB)~_mS8*$vjDpb`e0GvHZ6wXqv84o=gap@Hs>b}r@4 zlA_Mm<~@V`qr(HkyL&;U1D;P$jGR4r^o>_9eeb&;DU_t~xpJ|tp{R(54&-@NrV>q6 zZW7T<0}?jP1r1)gb4SIFGHD_j2REgHCKP(_dm}9GN4*ss0{ei ztTJGi)UGeS_{D#EO>DOsdtni451(*{G+P98TYBa-9v-JBa{1P925Iy4=tQLa^l>na~Fa9f%&7g^+38!T-7GV z*qjVUJY0-*s+e#hw#;$4B;%z~F-rk1!m$*hDip0XvYd zvn5u2?a=Oi#Hp{Rt3&!`bED@NER+MAaPGjNL&r~^dH=)jw<;x31;Z4ijfD`FQ`5#} z5ddNO3@zpCbLW5hXTR1&^h}@X?(Qa=Gp@25dwP0M3-C_=G?mO0Q$N#ZyoEndU|h}2 zavii>m;<>+=Cy-gXP$yGdb>a{aUMR;Ok2cxaCCHhcxc#Z%n^J>4#_Xd4)8kwyTnKq zD#P~Rjr_p!az27!s{&$uy|FfylTLaf-~e`*F9=J+!Q=sjCPlV`8-*-WtkL33Y3Mu4 zNbXsI<*eWUh}M|atF|>aiK}X7j7tIxUx41l7FasuBSa*;lqAYzX9bIm2cJdDNx=-R zui#sGC6wM2VOguxZB%_ew72dwPw|oEIiQevx`kG4cKE7x0=;4EBPn|e*eBtzoBhQ^Z z`P$`+@4WRjP|r=UmR6fErrH|_Yc`gY;z5QM;0|wyY8^$1*Ft}$lcy}!0Q?y^@J_Ro zZ6b33l4JhpYor4PDcq5X&*-ZR!4$@cOp?eS>*%n)Y;1IosPjLEdv0i|HQtP)=|Fb|4SiU5X9j z&Knpo+@$s=C@}ZE5~L_4V|c}s!83^r<{hj???YZz6(MCv!f;Bw1+h)d4OP`hZY58+ zzP>>ulx4t39V=EuiQu$X%zDF(pp8ow6sT!dCjl8<2cF=xy}fH_XzakD@~r_N8$Ei^Q>?JTcqXtL&{v!`#ct)m+PgLnCl;->^0 zHNT|B5M*FG_W?i)r78v)+3`DeKKayBWEqDZleXgyS>RlbouUNGS41E*gm?KeCF{v5 z8#jl2sI1aF6iQl+<`3#_$2~Q>o+98p$X1KJ$oO8mbQwY32_eg@UhOTJzjxk#2OQP5 zmOD{qq{>*(W}9Ni=8c;TdWJqN9TTz3{FrczeQjRTKMQBPZHg)R!*3@#Z@pUViP(qeqX)5!z-u z^^F@xMn+GZIwLy6EmmH@_DqKkFFb$YB43U~MuGQ_LSnoLzvAJd_5=ipBIY=B!h)a| z27c+)H%CUtyL)<6jF)?9VY2HRx6O@>{1iVbuzlGxNpG)|wBvhy6CdH={LzWY{cu_; zxOoTOiS4kurLhsh)9ax+5>CAV=}4nU0fhIbXsNdV3y^Q*`_zRxV{~WqT13h)2?$SD$FW62v=2Pjp?Wq`V*nqvU$8aTM`X?t*j>cC+Jx8UQYfEc z7AxTHy~iza6}fWs2Zn@P3`~@!hUXxKWrj6WUHzqt=PzD({?*Gb zU4H38Q*D)$LQu(ksG1rvn^cXH^*4`LE-n%WhxcSgsI~*x&7ws&-gw8Y*7~{Mn?R_5 z5il<+D>Hiepy;1JMf4o<#DNA#kKF8{V(v1>KRa1gFxhc*WEi%K^pII)FHMdNo;Y&w z-LJp?&2PMIsY3?r2>Er_Tm!eEx3HID$Zj}zyD~dB-z1PKoa!8`-Xm;x0&su{M!WS> z0s*kyl2Jfxgm_}Id&S{TjS9>ersUy8HOPpPZj!Sd$_q=?V5L}VV|8s+aY->W68Z8= zC5Lz$FLm&&VY}>Z>n@oEH3wujNO6%(*4f#o7=uMcQX`enK6?E8nRBn5KK=Tcv#*|c z_TroGfB5MyfBnOs{n>Ya^s_hL`|zVb`suI!>aYLyKmOk@zxF0@uB~g_J+P;}qr0Zg z3~UW@-qPOE*44LrPf!1FQ%gr9+tJk4-7{EKW1ltqI(18)k+g1;sOFY7&sAjy>9F0S ze%M}83ics3sK?8t)c8vRJd03Pwo@O)O4SV;Lt z;qt(Cg$v?p&Q6>6`K&)N3aG9hljs)~CDHhM_|6uS>RH!E70v!2ZuFg%w$6+NS_Y(f z9U1RSpUwj1dYq<#^O(`_AqKfhUy+JKl#5*;#X~>%-~$e_QN))A<`$knZzL0r$fic) zX#(mJ2rBh;cOva-O~ZCNe1Bh$L~(IO@cYu`*GcFfeg8+tjvuFQ5FeNuMG5}mZ~hIv zg+qj&A3JgC>+gN*Dhxk!M(yQhvs{Gr8t(y67k$zq76WE_~8gYuR+G*^vs-NcJ83Zv9Sn=5`54<`CBmD z_d#{H4Z07^9auPg7*=!e=r*vOEaNR|%%~Xa*cj>#?Y#@+@pjmL@W25euX#MjjsHKQ z?gPlq>dX^DVG<6alkei%n&3H0we^8BqR_*Ikj3jv^wXUbIv)drB+Mb$~hr~ zga{%C15N`N+hfn{+Mbzj_nWGnt?|}Y?e{zP&UmTU*H^dSd+&SSbI$+yKmR8jH!}k4 zPhs6|GVO&{6SsXE)jhKGLgETP2uY4)(Yy@*-BlwF#>oPHqk9h9qg>tVhDi*?>z=S~ zg4dDIu%3{?M*B3TK~5C(W*wMj_9Ym#n6-1~%=ymEH$yUBfv}4kVwQ+O0B2|hGeJ6R zWN1h<2rXg^%we6tA20_cxH=gDwqx1UF~H6ikWCmb6diQmErR$xdF)!gg#M5eWAKjB z>y$z?@XAB?-TUNYGbCdZUSK<}E@y@^gYZN6nbWn1F`4gy=c-MqHv&r!KNR-DMw_Gg zLc*pxM+lPAi&@Xy+$@E~%yNP8$jSQi%!KeA?XC5-RRy`3&5gCgLw)-uc4NiNguTOk zQB>QfO)*T6+;0qtnrguB4;y)-HyjvfNTDWsn*31R;1A9n7E4hjMcA;UB?~;-X0q>*M=<5K3!W;I=O%E#Q5kd^PYp`@ccX9 z3Ym>S+o8${WP@%QN6a6OhWCWeJMHG1Zj6F_l()kWnoQvB$ReR7(&m?wj;mYp{^^mV zfE!vhz#*#1I2TF;p8AqbJ|Rz2hqAQHw9VT$2{715KF=i2%+e*@#e;png$^U`tPD!- z--h)YwN=pS1GdMkwSeRgXUm?jP!_$mY~!ZwIXQN&>~3lvnb?2+?4=Lh{`jXKfAQs4 zfBfT*KmYQbA7B6RS6}?yzx{(xt0PAK7vuLBh zq9IqB+SJmb9CxYRG3*=^cBYt#LcjU;hxjwikIbS8fW(vPx_S^TV>Ui)S6yhC5J)tW zY-nr&<8))bh9HrH>|iaCy&GHFCCxT8waSzdabYZ23NY@k)YLEwrJMzx|B`CWlF~97 z4mUx9z01?foyG#3StmXMv*J(HRW+c$sj;b}qjP9*L}jcKF!@dEp?|FNWwQ&X#%YJ#oqBpwyeSVCQdeq&AOx6T6`XNMaIa@~1F1WE}cH%f+y zggL_E0ld-eYr$GbbD22<0voB7%a^eu2ABi~M<}C!4bJNr0Ga7*=sE(=4r1)cIYCAV zB>D}#*&QZ{h+qhOuSZmY_3_R|NU+vwXZARa;l<#hOCn zqF7Bqx8wuRMW9<6o*9d|f_IdiAL>6uH~IwHBN`ylD^4>{>T9bjiVEgGH#c_Gil(~i z?vA#X=RJ>#v!VJS18wa68(;sr`ya6Vp$GhS*zSVeTSEZYfxi>H#R1#h5U@b73f1v5 zjiyA_&_*V3bu(~wNXzpG-YEbi1!w@?{V3Ru2L@G7wYZX;#jgp97MGV~vZ!=f51ka9-Gyf1HzDT3_Fx z6Ig0mMq+Y$TzqPBS~j}wv8c4RxU4oYIRnmng!##-nX&6P#qHEvW($#@IHSOn8na^6 zYB*1X0r-)qZY&ND+m)=UgwmP-nde8b#?YJOgwsp2L2qY1_PF=1TfZSWEsN|kd(P8B zw8R-`Z=j7kFNZRt7Kw?EC^Pmkmy0WRYn~^t+UrO+ICY1Sc4%xJ-F?TMr1c2DgYEV- zU#BlVkoO8ahk*vjkQgkaJ)k<${y^9~i~LT*=PCGD2OHtAq?`aM%`KA*5i@G0rRWJ% z_Xtv;dKA))KIBn2CsmTgj|i=yd7G+J3+L69NW#AqMAeY@Z(1qQ;i3rPtH7&{vQ+ubpc?uRQ#m*q}cC%GHD2#=B| z^(>C<=cDUxnxEi?%UeRT<-ANJzV8<$0TP9V~i0G%Gp&_{QZaC2P zUdo$cVl3QpL>)c{VynTzGeBCMyKz~9n8RV;BBmS>i^AsJOu&<~q}>J;F4TC2z0~jW z9&><@ZdxLTQZKN2WE_%E+R=DXJi-NxmAC)-FGNT4V)av zgLnBbFrR4ippJC(>hF9TZ+Cd^uRiyC-@X~)_X?<=riMRJ*^-w2XfZcRF)POjE)Q(IyBYM+Ni}Fj|2S{Am9|B z?omx9T-(jxg6pgs{4~iKDgLPgU1tsbKr2P~Ca8#teL^)-D1eb5$JrEKgx+u)VpG&% zJ8}#CqW?wp_E$vv7QN~f=Qz_DA~?Ed*H>5A*DpOOzNWIAFYHQ4>mC6+`RkkC_(nMX z^Ea%xX%GChJqHOgQDfvZN;`Nb+87Z}w5DMSkw(ak1e#ZHfMaW=gL>C50n($Xh$SK$ zRy}3--~9SWzh78kNfMXz=+nq(VUc&379?4%qZ;Y880oXO$(g_s)~y0GP4Tv^2$X{dk6L&K5_1Y zpZ(&KFTec#zxsd;wrj&n(EvD~0W; z={fOIcp<856se&wGmA~HkKLe#fGHu-IGK&`QJxqVk5R^M z1d(_DbU<|uLImD*_YDL-wE3F(DD9834cPgQGzvjROrGWsr>t&^-@&`2_HSLj{u$*tdJp$~D7KUajh)=MmURh~5KuA?T& ztrKGf>4IWJo3zvvPjGlv48{`YVLK@v@>f?@0&}^hG*5TfjY8Pu&&ap*6L4no7X${m zL6!;4^Ld7|@zO0D)+6xfJ*@_MKWj%+J6W$;1)`k~pK0kKSn|Z<#z0KO4X5GLULZdk zK^z196f=GeocApvGCrBC!A+os893h_6sv#17yk!?Om2TDTeS)eh&)ucLI9*lb~w!xySH< zku*q;-~Uc%RcGR2?2<1Ld)@+$t>T&>^PH4j#njRx?OyS;d-aT*K)*}7;7E(Sn?uUt z`WVxT1}~OcU0F8J-!nQgII(xPHjhM}2uR+905e;vqCAn=NpE)z0tyV1TOlj}|L?wC zAXo?EyFk61BD@8QAnws$@KyZHgq%KoIwpmXz-lZVZbNnd1yLr_iImT{N&k&?>wt@C z>KuPXHWX8vgf*2Ft<4SXEe%q4r15Oqv>_U&c6)#L{aaiTZ2zmTeNBF&yJW@jDE^G? zG#NxaXf=_)dW+}!$#6pqou!Qgf_cCKj4W%=0mcyk>m7CXSFc#?7Cp2N%FI(ZLdc3- z9&tC8Enl`}+t$93;S;Z4E-tIsbKvms_`bTv=ECCAZQHl$EyMMgHEWi&Sx`_c&v3_% zl!S!L`1p*Jl$?ab^yHMRqM~XzUt8C4@W`dMj)D4yuIARkiOKV0drtHZs$M+QJ1{mp zw&(qy{q*$3i$w2)#Eim{>cZlRb62jXW@J^?)R&gmRMobWS2g7qS0|_CWMmhnq~*|L z&~=Pj2zB+^Sc#4@BsXmi+3YdvVzq*yx?}GGpwRxM`7bY723?lPmVxk6*#$l1JqiUs z``im~UND4Awt9`tSXXLRU`)|oy86OJi?{AfiA&1L$SK*dc{^ao=N}JJd8mGJ)7&e{ zjF{w%hjmAM6a!bn0=i*4N+0ll?p%L$|M`Wm9Uvp{fYyPjDFJvfWWN(kY?u77u>kLQ ze)NcVTcK{$dPL)$;1RGtg3|k(d+xE284DZ?jB~Y^SdvIw9KIQ33i$xxb0Y9==>HAa z9|^#YUP^JaWH|d=bs$h%S-E}F2F*p)33BS$mAh}hO(Fq6Fy}*?o^6zBez;`i81p5yevODiU_(?M`*|%`hf|75mqNnDNZ|}bA4j=Bj#Bf;?@*Dz>y8<_-&VT8J zJ8!=YynuIfF-X!V^z?^beEwM<3-AdAU`M^hw{QNIcOk3&I*zN zGN;KxjPQR^*Z3V8_Cf0N8m7F4Zk!jQnPjF6Pkj=5-QSAlTBLZN=f}NpznDYBa9u|PJ zB480Y6kd7$!n4nDJ=iH6D9Z*Fes+dp;T^!aPYPQSf(>g4$3 zf#3e~|0ktk)#{jpbM=Vj7|w@LUWulCs1@TCJbJqSpeF!}e&ljPNL~9?|4O zvp25`wgzU-t3}}F&Ce~Y%*wCao{*7MP|?)Yzi7!)`!QJ)G;`DxdYG7Qwau7>K%q22 z=IJM&@=w@4i^M&5F58EA(`SOB5)oD0b0l94x=z1#s<$bj?|Q_>*%3{~pctc|%|x=B zU;@hRIY@`?KIG3T4TuP%9AWazH0i?#`cGD5H2IcB;oYz$@(H0c6oJlLQ9ibZh3^LiT$TG6R#LUsYvg zQBhGwR@Ux`1BZ{Ej@!1qy1E90Zrip4>Oxu)dQMI*{zKKkZ8mJ${LYVm+0iq&Xa7<2 zY`qlQm>9av!0_(%8#kAfRVF4SY7v8`iafF-GKmWdHHyz}@93$ltm)|LL+@?aB;QN| ztM@{6B$>a-%!Sm)tn9kF#^KRD2alYZ*nennc&xL#-(&y4h$c3g#|W@C+NQC+3##)7 zbe`|+8-VS~Bv>nwyPyCCCMP?fHyDp*Kk`sy1o_nzo{F+E%>ux&*#3Q6~Ac_b)c5N(ZFL*dPiBJ!^(QF`($DT3&)@*geC*Lja0#Wa^Iv%Wwjca}d=BTWYoEgwfQ4{^jJqJz zkenZqMtdbUW&|7qMJw!M#7w}hEg>Jm2>_D;K<|k&z#nvzXmklf z%TaM6d;s>aLFyf$Qq?6!q#J$9;Z;y$9(n-b_oB9txH{;j=isqY;>l;)p3iw=CjG(O z6*z>|hzIm0_&C3 zkoR-z4}KJ`?H)fQntm3|X4juVbPO3|OQR|}1TmwcZHPo+EP+V6)E4o0^xa=!yZ_+4 zHR4aEvNVIn+Ul03y2iTdw&n&tg&zXXeb-G9NOzs^+;g{$*bd=cGkc1bTjbms|1=ih zJ^FL7cSq3ML+kG#)$$Xg@NS$?caRPx9QdKyNfy9d3o4Cl_P|t~LaCeclGwpZ^Mk~s zRAk%ME!(#gm6iS7zy9kR*FM6Zw#RLci;wf8#P+v0DIpZ0xp`D`N#u zw{1^A+5vlg!$4=xzSfT6sUv5ve(*EhqI&v9E34{TTDuM&yKwf+_pf~T1#-^f=&uvtx~ zxkV2>7{a62yDS%TMx-^QK|Zd&^%-98+)#<~3}E*W>I=946dv&IEe0rf%N1hhIdcK z#m8&m!vuKCo9}!wG&XtU?8U0;8i5=Pb5*1pjP-+SOR&V%m9OUKi)t3(1GM_kc+}Eb zLYfGBLAt7*zQOT*hX;nn`UXb#>^-n|-yyHib4JD{WKnka4ocA(9NOK|(uv0R_YY}( z;~>k_)z)#PwF?U!!?sD|PZf?t&arpG4iScX;v zln7a}Xkfe1L7w4ol(ZXfS;&UNi%VX8#cw2)bC^RiWY`?)HSo&=Aup55B8vSpW{w!l z6OrEChL5Ua9D%a_M5MDjZoAcIlGiW+)*NqVKA`t&FE5~A`zsoN(wjDDFzY~fFdyKd zxy3L0zP&hqV2h=|+eP${b71ZYeF$a<6#=v7UL@vwl!X7t^oO{0WF_=i7hgzqd)R&= zv;}iOY@ieY*y-vhF>^7$ko)n&Q1lcL=YIhIff&_2&{VTdtLldzBJzkW3Kz;Pk%tPs zRXM4$0F2tgEM7QY?!FU5Az2h_%uabARKYK!c;_s*fuXI(kA9>NgBz%FQ{N=uMsF8fQ=btckK%|+6_ST)Ys(>eP~QC0 zi;$lx2-^+42$VE~lEQqz&aJ4gscdfvUD@d)zFlS`x5!OkhJZFmcVXo8aNKmG!2;a+ zHn>;LiIyxG5$6a}fO^=jGyqXIqxf#3%zP=&AB#lj%)khTpK0Mk56}SNT)kmf(t&D_T0cPF#F*(&!(m;+&NF%)TxtJkhi%PC38E~>2S(5Zm*o0*x@(KX-$XFmSKlXK)M*xpXn zfP8g5lV6-Z9W;kEZmPJS5;tHw(jLWj^9ts}b|H?(9@9O{JhG&I4AfdCovKhXFEbZjNvw400Ja&C}zOr zsJo~m4_ybssr~zY`m>*zF??jaf@5e!N0`#I;JV)OJr_@55IxjzKm+uo#CVlTf}3*1 z*REXyOB*zI>+OU5xq10-zV~Tkvzp?}{*lrCk=@sS@wXyPn>KGA+j~eT#k~~+J$Cwn zY;!hO#aT^#d8hTb)eXky-=fJ#mLE zVewY$n!_TE-;10$OH4u<2Z{;6@prb7d8d>#2iXKzUnPr0VCi2_RY(eEMi9-9D(mf`bgu4ERhr7ITOI+ z@TI~>K5F6o7r~Arit2D1T$5{H7eH2mYI6uw6Lpsr>71x61Gw%A@z$`pUc?sMg_A>I zB!*o8dLT&;f#jV#Y;%>Fl8|ZRifx+}BJJ3`!Ke9r!p_StKIcWdUAt_Q*lXr0@QnQN zMl+eC0Vf$Jyq)!lo*-TzGAnzG?GrdaW?(z529Xbutosr9d#$ZMC&@r~NFw;i<@6s> z5$q!pR7cKQs9&&o%F?Bx>S`rIxkr4QN-H^;fW4}`q_V8U6ScAIl;0&V>=BZCgw;2x zIsH%n$#VxsP3$+>8h&fs;lp9Z67>v^xTzeKe_thXIDP>`1181|Kg8-{N+FW zKeP`%oG$?%42azfRy^4k(H-XH9jc?hG=&X)bya7Kf7ST%bJEE>>!&Y zLpCGAD@{_$q}_|u7ilx(cf?-r0*|P>Sh%1!_h|ltSJQJ#8ahW3)3P;5PRGGNC{ZNtz6JB%T2LD7F*lrAl(dRkWb`upMsy z*{hOE1Ja>H^o=6mJ_;d+|Gvwa#t61MAGSvm1)Yzc5S$^8L=++$osdT+XM@-twesSp zP~CbIzf%aW(JS_jw14{9XH)wpBE^GYBL+b$j4n7252!j3D+|+}NKjI&ZZ$VqYLZ-& z#CR1zn>TNg5reMC^zP{BkO8jt_@kfw#$!`U+o!+$`^L78gD1}Ih}((tP98qn)4$8@ z)n7uc`=zU&G_`c-)_m&1WoS=A!4u51^z@9n#+Ihm&Z?>^zXgL0w06l7>j*hleAH0i zBsUYUV8m$ZJL7cjS{2gK*R0Vs3eK07lvPwzx3qP&clCAk3^cd2tH>A_9|NvGJ+hdk-8qd}4fJvVUNBXlP`21luX4NV{wqvXWiAqrgrMqV~gZVOGSR zWA56(zWhmHR_DO^$W0ERYFRW)p~X&?aq$KVLabmw zqrtLWlYctL`G!Cp1x+S7VW<2MP>*Z}C+*)WZmeqPWIfAY*GLvv@eA;6@($XMokBdm znE0$$h&+5TeH33?xB!#Ka($^dtQ=Q_pU96lN|*tOjDj2;W`Z37^+um`0|Oo45w>&d zJU$h6vYrQv$pXpX9p?M1-*x95x8Xm)P|Pu+Guy0<`y1KE%{r2Z z`@GcdkQjr#gFe%YM1!)6yNH{b5Vlc_+rBk3BV_N$+Y#g~FDb;{ON;Vrt15D{(p`Yt zt9>gg1KWW%(hjkshkNpkuYWzPJCJ?v-41tvXam@z2e$9bul?nJRNCtlzm#^woAZl2 zdL`;~n1tpS-N24cEHaWA!gUWlNT`Gc0;!ZntBj`$-eEgyWdY0D6hoBzC-;MgvSsrY zO&#On5^R#Awe7kX)p~k7WNzISpPHVBuGcjVH8c)UWBLZC1X3?v{p7-x>j#dWJ$U@w zi8n4?y!O^-zxm=9zyGfv{>|s-uDsRI+}t&=t7m8uA#Z3JXlfhm9o;)Tex$8y&@yjo z?=LE?r^8p(cGNZZHMI1%bPN-4vU5wEPpByMAKCx1zBl zW`iW082R!_nVx!juFokbE`$F+y7xx`mS=%n;>VL(fzeOEyZTc?jX%L>5gE6bC57#5 zZZzQuLvyY_Fkl&A#lD&K~kvhLrgj9pGY@se>{jcGmM}Um}x`iIRkB2 zIS5XWIfJ(o+fg`fxRh_8!BxiwDFDPdW*0A&i)vArFg$5< zo-D)fLnlbD6ocGctvGF;w*_g}6A^V?u_E;H60Gd*?oCfiOG-{^@9LqMoH~Ey>Ia|K z)Hio@4+3P<27r(6J1P@3F)`U+_e>lb+j~GxV{3c&J0E^tTwIDmFJHb~o=i$=y3n@R zz6rS~vQH=(d1=^MG;G5ZNlnkvvWDtTp8?~FTahU6zB25j^J-0X?c~9eAN}OlS3mgq z#MIHz-4mmGCJr7uO^Ttkw{`SD`}zhg<%fqy_Kbk@^o zV0*5JPEoOll4N)pGMGGU_mgvTa+;c&!MjVM$#`O1XkUiL{g33>Y;(;l4#p1g!{iA4 zf1cSM>0LmsakX6gjPx{B0M2nh??~!n5a}Wd^AXHhy_i817KxB{?TZ8bHWdJ-F#_g5 zTkZ#P9>shql>TJw5PEn*3LtS%R8*yD&j{|=Zf|5%lo&H5tfxos{n}stB}nuZ*5CKi z+apTFy~sKRhR}g?N{?hOfFyd%#w>YlA^QS+BH`2@P`V|hAl`6E&1tBZn)SHH1ur~D zlesI9_K+v(ug+%2LVa_{Z8JwIobK(Y_y2zXsi&VuLX zW=JWlDAg|)WSg#%Jeecjs9(yhkT}V-`Mr_}H6_-YC6di(*cEl})lc9JYf7!5oJLZy~kzOo)JvA*SFJG^}!QO$x`z9~%nRxxc z(W{e(-Wc0^eAnJ%UH!YJj=p~U^*4^5Iq}}7A6|L?+Q+~C)xi@dD{HIz$HtmE`zvbO zn%hSj+WI<&#_C(Ui;64SJNv5ZnsW-uY8tvb`}XbLe|})}F!0aHEy>O+DK4!`%goO$ zDAkj|z8>HmfJ;QDv52Mers&S}>2vC%A0%^tCL78T)@ ziw?lSGA<1r-EiC+V~@hSNGmEWw#If~b3h(=Te5SXdd8W`lpMk(1eqwX!*)`G*%e4T z0}#n$WRaN(0exmUkcq{wVJ^NdVEdypI1+ffkCq}18Gr_oW;rijXj6u{L{}Mf0254a zid}o~;AGOy?YM;Csb)1O8S*1f%<7OsZ?%S0svzslP@yV>YL6wjr=)u0#toPZ3fXZ z{;`7OE}Oljr9)erb8o!&#?|Xr-~Z_cpM3THC%+uue?)J(J^Kz1@0ws2;CxeayMV9I zzC4*d1qFq)eSadq$p0xTD{pRYB@-d@ zEv;>$uG}c=D5xlpKjxa50FOAl+AFUcHHYUs0xvpL7TCK}sKS^kbi&Uuc1RA!oe5pN z2zWsjLJo_VW-m(r^9o{bEz?Q#uEDM$e0ZGuv=8+h7sc(+i-#YyiO+O!EocH&Oc!*W z>PwmNQ5w@jClOmmRFGlZjXppIu9QLfGoG6U_kcfH=+hshmusKl3A{v<>Gl$Sd@O|o z4vURajHy6qd8FX-CR-J|37kS#B%CNwv= z#lC*>wX_TV&!IM-bT4|uw^8FspJ5#Y1o$R?kx9bLxnPzN)B|(a9-^oW$8ERHoiiH} zx@>Bd`^gkSQQs*3OTBmT{8qP!ssl42JYIn(@U5(!sL}LxE{q%NmI~Cel0H+!!5v84 zxqZ|67%gsOv*%={@h{@HZ_!n?QeV-c0UKG!PIrMfwdxs~k7Ato@ z8M}b(Hw7JDeBtYV^;aIh@$a!zh;8)6%B@SlE|bcvGfG}W(E&R;2PEKwsc0@ie1Jff z0S@A9meod+JSB~04d+o-5i#P1f5z?DNwOBeU$TS}ACsF~UR>OenOQ3P(Iy5N83j2x zr5#-pgCi#fhK>yHI^H)p+0(zTcW|{p~9sfAxz`fBW0RC(kvt zwe2~0pl4*brn$AcslBwKp{}{JSjX7%@Q7sq|mJ1x+C;1Scj=^ z-45i}#HR)CKZuqN%U|BHW%J^NujuF@g>21=r3%cgV3f>3hcSoELk9+E zCZlHnN~=44CZ)%~a}Wya*4Y9hb{)OFv#YD1pdcqVx4E^gu&}tRXIR^q_Rjvqgd|o5 zVK8;*;Rw96mJ64!4egpxxu9QMp24fE+r9Uo%*IU{H%XQJ$N%-eu6_JBLnC9pg|6`1Xz zDeb%iI=pXpz@;cCQFc9%A>%Dh6O>_wXw5>eAPD6~gH0jIIRY;pPi%+k+JCtc;4DwY zVe3|}67gAdRH_M44nW&rjGw)5yMqRsNf?Qj&?t4=NuC*{>w z7pd_9>~^A%p>H$cv@}(~W!c%KS=l8yxn&AYvpmm2ryFW&y6YSI2S<+d4;|b!ernIY z^L<16hxbe!IC)-J_Ub3sum9?+OCMY>uc|JssCwh4pPhR5S}poFINH+L+t}8LPWA5E zGq!i%hhP5m%$rw7CJuEE?(OK?)6mk})YjkLGn$gFPjFdwZmHCo)Qp_%I})~R-BDHD zn3j<>O)C8!EheVd3X zx<0zk|F`Cd8Y3tRu_M@ipPb1@W<<93eL|9q?qsuOKOM4VV>eS~%tYM4Trw*|3^W*J zcpTdBaxOK-rmcYp`E0aI8Z0H&(l!ry1U^5C3 zK0kln+LbFX7*V#?=0@7RWsBaJ$rd>F4jcfxi!s?i6<#FO%7g*zFU@;V;ukE{Pm$j4 zsI9HV+i};D(7(MAwvX>WdhG0*wT-Q?IjaBbp-fca^l_$kkMBQo@!C7rzc_#Sqp^uY zr!HP;Xl~a@AU8K3v>rQkMx1ng?E0*%oP>l#2)}*H)-Bj_LW1Yj)wNTHPJ{QNV(p2# zi;K%(d+6-AZ5#ZjZzxLTL7YDSmVl|eM{?1jqi3cLosu&{kkNE>Y&@8T{Rd8n+n#&l z?Q7S6arN4#Z(jZA)ai>|UA^K6>1lE~bAY)${s238&(D+Xm?sv1u5a2D3{aHY7O9sU0I)GH~ApeHC+h1H>jyDWVw5Uo29bv?L#Xg2dEpd6eJ*dE!`1Gq(5eW2@1 z!0oqs^e2>_&ZsN9nEJX^%QnTV+7i2FYwX%n#}2nN)WSn5G_Au0VC*auV0TFvJ97ir zp*psV+rxhp#ZBXWdg3(ZDGKJ?2T<&KB9|B7*KfS}rhvD+7|{9`|Ic51`&&Av-OHOc zj)n|tijJV-1#2p1)ymb&mnk@%4^AJR=2nE@?CrOCyL;c`z;>CAU?D2D;EkMgS7rHoM1dfI83oBI zW~11gKq}IQW?&bHmaLw*I1*zVRQDg!zDhrqMRufGMEH~mlbn>Bl$ev7Q=!vRW>#@> zY7T_Y&Mwc+F3ZcSEGJ9p*MIZt z=C*bK-O$!~?)pdLhflQ2X4pT~)j!nM-LvcPf$m|gMH==WoP7QLce+P*^^EN68=34K z+TYOHBR4WVD_2}Kx1b_3yD%{&LmiU_!g#wPCdH>~u79TU59&06?Rjgc^ukdzww6|7o~)x&?-zB4I3A>tRH zszRM^7bF)3RfU9pQ_i1%_W9XQ%zE&C^#mF$Kj<)4q!nY~38rLr*@DaovmT%IR79WW z0xVp(c-^|qN=qd}nv5m}22Mr`C;!NHGlJlu^O&Y&SOjdBaL!(voiIE+c{H#u8M%QR zMkF2x4;H{X8ZQz+CtUclx*qw2L64@!pi;11ox5~*)FL}0Rj)u9YGK9QetU4tZ@ra$ z0qnu`zE57(LqvREhXyEJP$H_;s_sbArDE2_sM52Qo@|r6oLo7Q8uqrfb?%-xa_Hon zdk>z@$<3#tt4<>Eg(L%=l3#ksMtDa~P;3Uq_aE!(8{wVx42;&+H!%uWy+|fvTvl3n z^2}R8q9eQZc6Ign-mRN9+mM>lPKUAIRzp+!(C9w-Fp3{?vU5}w2_L|AnQ2sUlv{GU zGd*c;ZX2ICbmiTj>>fWbvH#e?qvwvDzI5p5S^dgRoVj@V+~o_G-h2JhdspB6bkF#t zn%PXLoY}dVnc3w!60~;}7s&t$M|Nb_KX!x)q*|)HjJ{eTB_7~YX54B+;2yDnRuhm% zpC~g{8H#RMfdym104Ww*yJ{ujo$<9KAuTW$yR=jVxTVctp+1bnLx~C?|Kw~i0^Zfh z0PQ<&y_E^@PgFnBYQT1&b{w!_#1Fu@*eK8j&K?fWGCt~cMkX&*L(oPRVyd-EHr`ch&A20lFgyY@)(!o~93@APE@Z$UfhXiYhs#v~zst>}ZpG zWcR*%p(#`cu+F5(-1_|x3t&_HGlH}?@MLfK&UdUhj91z-T~T;dw9y=vuNxZ9Xe_X5 zrTq({EpF0Mk~F%J0kwAZO1=a7E$-=iqv3D&hwS1ul3yS{>JI8%nD6rFQhhIN${k=F z-8ZkZyuo>iR5mfb{t4SfO&|c7C~$SXnrF{~68L+-_Bl@ia|_>#(cC#oJDfMLD(GRm zpAhXH1__`cWky7mI-xoq3Q0**cd~VBqD_)x?asX^J|oQ@mjyd^*jP-CSZR7jQATD- zMMXztb!S~eUw7ZWp zeN!zx-TiyUI{JFYCie}EkL^A%IeFx`Mg;w%6!`X$i6i~Hr-pVP9vGcEc>ImZ+UA0i zs@#HdEy$$C=s%$8L3Le|?jZ3ANePKb8#ZjT1`$7LjnDortwXqw?GK(YW z?pn>T167fj?NGFyCJ-WL6-k=|PsCEi)1rI}m$_ zXDx%ib*n?yFC<55gqh$^x!IZEf^2Awo7=&szC9GD!}chLw_dCoRLA*(?>=9)p;}S1 zT6P$CmjJ&#$BH6-)3#sC=9GTA6_TD$% z{;acSaCmfYPv3A^c@-CtAyyiNQP4ep{>#6Y$})BEG}b+NFi`HQ%9{MV0?j7M%c^p6 z@rvWkq#kV+&Qhva*Vt(%IGH*flmW zF?r4>Dvi&w8){iL(AUvZKz(y{GdZb=S1-Tb-O&Oz zpP2cGrUX0-Z2A6sLsK#~!V-hqet00v(;xC(o(N?=7TTWA2=yIv!VawrnXCQA*T0U~ z%hG}Hpx>i|IRmrb|E_!TZOqE>5fwqY#7Ni}P<_Dyh0?+<3fU49gU6_2p3X}$+qZ4q zymRMv1=)hC+9tb_dm@<$cp9vB8yQ)TK0gB5|F&Nq8Xq+%5nyKxL%xvHoD;D!q3r)Pg!>ta+brKYDBCM99cIR%AwyK5=0Y*mXo zy64!jGw&Qf_s;m_@saV#N#f?Uci;Ni$Fk4toLo`WQrFzuH##voG1=MQ*U;YDJ32gd z`sC{$UqABt`H91aPG5QR!h0X=nL5}#JUXy@a(LoM-{}5bdyfz8nri7B$}KF<%qh~f zX5*%9c(pF>yny_|64@8@Bru{Dl3_yNVLR1b#|3$e!lrdi?TeK!Enfl8gT@jQi^k*R z2`L#n;uBV`S@X)Pui^Gpl5$40xXGIH^xWM1qJ-p>=jXk|c}Yl4)p1-#W$nyF3Rcov>=ON^4i>4y8t^BsBYi7Q?W8{$bkItmRk%owyb}V z5j1>EgYiPJjU&hf;}YT2sD|vv=by)=@piA9JVx2zis>VYQLD|Gn9>jfO0Wf1t371| zUZI2+pNK@_>>~-ck;CAnhAvOHQBBb~pJ|QbSEO1CnSe;??UC+DG;rc>BZ8OG_(cULZN5mKr&WpH@~k{Qh76b^oE` zSh1b3l9E!|I(iEWOZ4K8m*cd0wMJeiPG4?lY#rG(0ob(*7#P^q+1Xo=S5RD3Dpt!i z7#p9Ak58~`OLgMEge7g`uN0@n$x!SPB8+w-PPUa ze4o(N*fO$f{Nj~sr_a7|M*H9oKW}U8N|AS!m6IiSlbg>vNY0cY!;iq*o0?lW2rQI> zCgv>Ci>y+5BpX9-ch5n)RpW{5M;+D)p0M5$gA2w>>oC}E`zlBd4~a9D8CQ$trKm%G zA{+Z_5J9&jRnU!)gI}UL8c$Yb1q?JaGkB0n2MT7FVipz9#FZvVztZ%SOz0_xEv~1kGE=EV7A-+eDWtD)~KY|}J@X0m1ADymFB zp~D1oaNoVK9TZEg2|r$Rc;U+{7r#2=q5FY&Mq*rRef7zs2U?rzoB-uqIRjzI(1QG~ zaL5(E+1A_NhK*3#;panamk0TsKy-2w+%&evHF&RSAIbCiew4;X)bj7mfa>-fkmWAYf@53t)o%vAR)Z z22TiK6diaX{eH>9SfwbcBpKL_V6aNelVjn6mvv)N&4%%=UcJ@?T)TE-q!c@I%T^5@ zx1;WoWatT-HfiaR8W)%DF)=B-w5+kNzI$-w(229x&R_YM?t1jx#r;Q4?3p@r^uncg zzxaIO=+Va3j`GT;hStG`wtnpeCQqK+JvrGu*zfW1nKLIZUO4x`n$eTVQ5J}_M+FTF9KOqNl#v>5G z;fYaZ1wb*LNDVM>&k9(|j+P1V$ipz4AY%!WYIO(DoQgzm$y=G6ZeWs@l<32$?yP`i z;@j1LN3cEQxxsdtjKyf80vrodq8|>UAFt-0n2hvJGlcrq-riANU0q+_(AnK<-=()d z`uvTzKRJEjsz?D1xH6x7?N9{=wGP4z}D|NFv%Z0(QJzOZKYDDz!*^Ck`|; zH0_%_vTy%kxsFGUpQW7ZgV0F^+O=11WC)U0)ea1f$Yyl?Oh8*(S7ru(AV14iUzv8n zE@37}>ybWVP00C{O`%>j{Ik)IZUOJk(L-2JH5$5N!b(d@_{bVC#%2#$jk=hNyJ&VR{sItG15P{!<` zU1$p?{0HP^urn6V&3*c&Zw8!a9k6|QGH^E{aX$^&y^hZZ5$_Jf;BGAazPt30xdXfd zb`lK;^;Zo|UeMU&2~LDv_CoX!(}t_w64fF+Qez;ti)4MEHXmdbjww-EDj^< zd6cvh+r<S%7KDF1aWw2nH3A8~E#1h|#WQ zbobHI7d||Ju1_7AI)3u}yKleo;k7qE{_)#C|Ha{R7n<6;)g`GfX=oXc0Mj)z^u|v< zJ#_ADSAXxNPu{!o-bb%re*Mx%Z(Vrr^@9he4j(zzKiFSdUfR&s(cVAQF)-HJJ=i<6 zx1zSCy1rd!g0hMRIgpYYN$#0hxe{FfyC++=ZmX?p+;`x(Mo}`^IQ!Dm9H5bZ>>M%+ z;YI6#mD2Y&ZqCXpDlV;|$;*UKO3lnIEKAMGTeU8BXJWEuzc0KvPZxui<}VOjw$GDx zUy@!El9G9BxN{^T0qfLu@p|m6s&O5PYi)%PY9yiEotN485HcU#nN;K1?Acj_8q1k)bIMs&)Ql#HeB+Ut)3(O&V$TmW5#=>?l8c(&5QU8&$ z&5}hzClr`xtyyiu6LxIhxGn}`M9<7y7pfRZ5uynp+rbLOf*^)T7~Pu{rGf4IeKYgX zN2W*6L$rOC=E3T1*-E^fFa_!x8yfvrT2?BkiXLCP{^j0%hsXCH(i4)wlXk_iov#XM z-e;qCJya|x(bBY(6y>N0JXI6k7{Nf=gC;YZ zOT}LX;MSLuNu0XVz)6RVXsu9`UR^3YN2l3ko;A$ZD2%?X+pW=o(sUJYVOqcq(N9C; zppBSw0Tma#M56#5035uSWFegT$aF%4QI@dhgm2w=BNYy4%WO9duu9MQ@-%$(fEH&m z&=b&!`7fH@k8mp}?Ti$~MnVU_60oy7N}tH@H{PHrN)W37R8(n)?VdPjGG4#;jywMP zo_pkwJf+`Ggttfac7GzXt91gfQIL=3)%X?jpMRDh^W4)<@&#r;He<);^%+S!t4j;J zS{p=EyW5&$SFiAPk84*hGoNh`7KtM)@aqs2_mgJjVCke4Md=M&>1Gn|`8AwVU~Y!H zW|1&CGu#Kj?!b^ER^uV70EA*w_uh3kZpQhtp!6K!u|G5CDL|T)o}s47&@=axb_XxX zXGWpeZE-+pix*1!WZxx{<&ooHnS*psI4qKR9BiC11^Wg!DkU)l?43NK$dU|V4(6}Z zJz>_8kH+sXc5)w2JTSdS0@K6Zfq;;oC%kNjsTlR;C3f1yl4j_K@cQL(K}9~b#v#JO zI^?Zb8M}E)f_>@p3u;J`_OJ%&JK_L)PHtXJO>NJ>@WF|x*AE}RvhToYIcOjM?Jqz6 z?H3>a?pN=9@x|21Q#tts9epDd6CwTy-Me;;>>ee;*R{0t@7_PU|M=kUgNR;R&#uyn#;ly;)bw0wkjhkH zJ58p!ty}t{teE&jjb&o&=a-d}t5T9%Emwb*W-5<8_OL#>Gan-Yi?psw8#$xg?pCChQx9Wia(1!3d8E>JsVT>T11nY@GG@5el1n=;3S3{Pk@kYIM zDH+g1|3Ue;;%nBHC_hKonk07KrhXR4~Qrnh&vuC5W8 zpE`K*?76p~F`%|sQ11OxNBa7Pq$WD_maML-9@{nE+tV*>swB{EN2StoYU|MtNG?;w z=WDSIFe}T;d;9u3I=T)XKCyfE{=U9p9m9^Fz6jg-6rX(lyS-CKG#QpZ^U-I&{M8@+ z>5ISn<3IiBPyhVC|MweL-^t6%7t$@rSB09Dsf|TWu2`)M8CS*7s8JGD;0aNFG%J== zGcYhxU*9O)W@N1<0Pf;_yQTz~Jc0z(qpQh%h$6gm)V52N5f#SaowhCPPPknRj(Lje z>H%gW%?c1w@(w#r#baJ!HA*Sb7N%qAq;jbsVlII{8Cf;GUpQ zLS{>Y&La>8jU^o!0xker{>qClW~QbT=I8C$zJ=X1BEdXKVYTk&%w}GVg42wMAhmnN zZc4~umE0~ygjJ=|um!SZ{?pgK=1KHWNA``ce?6N0=#hNHozZH_yG#Inh#`}_$@p51 z(7?Jx42-7g)ZonnIO))H!kmoqc9OJp%h?hs1MJa53W$sdH6tsREw{7hOY`KqZ^YGQ z6XfJo(bdT>^^N^y<*jx?E-7tp?;IZ-IXt@O#GZ+h2amq-#(SUs?7#lu)Bp0@4}STp z_ka1TS{y8|Xmsy^&c5OD>c;loT{0ebP3=GZ{*_((_bVTS?Z5uj^{W?-U3%xl=}U*- z{qY+o&YeDX71eLAY0_q9sHVBSvAwTrU{6U!y)FbvDOsCUN$w0=rYcQJP+XLjp^IR8 zhNYP+mn|hVO}i2hF0D?LIw1wN^I!yyNmdF!6$1fzG=9gzwE>NN;_eQR$~MV*Yt zxWr_ZV#ki16nl6q7gTCxR$ji1nO>SdfBlAyuw6lbswIy|yYg}R2ThCcj+QHuz|!${ z9Nr`6$)QW1^CNu*=FE6>rnFLx`<*=!!cysu84Zirwi#%v!8g3 z+Ya94F&W1t)wsiY+&vpx1GPDXDx{{^NHezCml^i;TQ;aec4 zqL~wL!@SWMFJfOza=hJSM&x8pl6jd4YnkiEAE5%dd&(cscGzBAT%>_mXJ>bJPd~Cv zsQ~p6i7#a1vo$!6IYz^Q?L_R}p5fM(&bnH%Mk#jP*FQ{1>F)09>FI;yYgex+E-G%Q z7ZR;(Z|kh8sBCU(sjcSqR&U#~MR-vav?l6u6R9*rnDo?C(&!?+npdnC8yoi_SpDSG zk+D`kB|SoRSrD`I^QEKmPo8r!QQxi|e5iC;stIfBNIU{>!ib`1`Y$ zE=hZl`pD5!^cq5?C1oio@&re zC)9vzI2pxuL|rNfkfd+GCA8e10xQ-Q-ATEc=)EW{D$X9sF_6Qf zeI<&FPWzLeCJl7khS-;0pv*7g7P-S1a8y;}?D%%RL)7kgWFk2`uF6ezB`%B!m@lhJ zVw-lLbR=^n(&UYSjvk`k?j)HV%TlVq7KGe5{patv9abRfiX$)zFzzuZGgP2RTf*q9 z^pMOPS!0Q{YOq;1o9O% zO`Uza6{YW*ni?1%>F)2dy03ip-v9YO|L4n(uV4D`{Ci(~^z%P_E)DtUyBDkKYHC~C z>f1UC%c`m%@6beHX-x?=CcjMkT?oH3K1CyToxoz&#i}h;Uuv@ukar zWQk-9K!m!h_e7RZVjM>^-f0g_TfBHl$f2=&)3zOD)eYGNr8$LV#TB*mc1?kqjAhG~ z>jyxEu$M$$QK^b2&17`y4}B+|4g$NF=YtQzy4fNxyuhczaM{mPffzJLve0j#Tr1rU zDXKq0Cjt6Diy)Dk3QZ*EWEmF|O5mH4Mw9VR*be87Cm)a_2HUMTj+lldf^m4eVKogX z>d!nCGdY;)O|m6=U2*Lrti-(l?n+FIJXI(sCypv3q&k~}yVw#=xJvQl1A zm|xJ--Ite>BZrX6l$vBW`E-oBy}dIdg6$Aq8a%Wg9vP#eyON8SubsPib@K4>@qJTQ z-~Y^Bu6X-}E7#6ky7JjqzdLvNN@s8PvC}92;a~r!sq6e->5|fHq~cSSB<-M3P~C`NPDyfr z;?%5fcF`;p(~AIG>5MX9<81+d;uTYFuyhaePtV~zWI&j)K4Z;TM;N=_=CdKQ=bSVh zZsE4ar)NKID4%=+$$x^^?;Nb&J{PYn2s{?$mV%R(oFJx-x=V})Qn(sZY~BG#6)QQ}IVK_V#FBw8HCFlwY~8SK?TRJwTQ??Bx;L%gx;`d( z=e8Z2VvDlV3$xOSax%p&XfkjWFiH~%3QVM7f=8m0>-3X>xyjEyvQQA7z~%E97v6;X zpKt9P>L1=;Ro7NjT31!u zMv%$LFU`oz-?nY1#%02(vh1X!gLgQen3SX&$SVt9f$cfD`7V0Ff(7)1h_~_x*XofO zGh|;A(rwT5%ECn=r|H>wTXw`3l~t!@<;kKENR|D*dF!@mGRz-%kStSFR{6}c&%GAR zLBMtcD0;~YKw>@8T}><)*Q_%6OnB2q3W3E8#=!`D5WDe;`9^Pa z!6t1;-oNiY+*NfdDLiaEIs~W>jEs&^#j`Urmq*(3s^3pdP8}K^YbBKzgx)~J_IP_G zrleI=)O7U>j_*A*JiKRgbexVYmMS{wiMC|m8p3B~sNqg3E-Wf7DJ?E6OxhVIlZ4v> zX<3%mmeyp=ewQuVKY4iX#6f-LiSq-4qsLEO_{kT)JAdh|zxnMS1|(eWpZenO|6%Xc zfvX>Va_-92YoGm0y3QZ}^rv?|zW(7)e){h9>;9@Od; znr1jWEacy)se#hKQ$~$@%M0*Eh=fQ3cJKugo(@<|9}Arft@K3;Z2CMMm_tP|PzY(% z2rq_A+W{{cS^dFmX-#&6(qgi}Fg7N1xH1!1aA>9_J2{%?=#lo~z2L>TnuJj?0S9o< zYS<5Sl%s)W5E;lja`Q|Z@JO|WLh>7t1S*HGUcUHMdaf&!?())ebIoSob>j^;VDGnl zJBZs3=0Nt0tQhc4c`zFhR84U=#H=RKP}Ec7cO-1rmTpbV%4IPtmu}k-lbfF0Qd^Om zoeY@0lF;5K6+q2v@4>uI11;X2zJ*iHF)&@NK_MV-U&-Pfg#td24HHC+h2vyV%yMl$DTECd)>L-LkT( z(Ovrw96a68(c9S2OppPdx!F0agLHP?bn$jiaB{DtCnv98yGCnwMg4Sd{nb53JV-i! z|KI+(y}g^p-rF~1JJfws2Y>%B|MQc-`OQy%^;^_^^6-&;hYtVxzy0^$|LISf8{qBx z4jp{^`t_gv`Zs4UzIpQ8MGfBd{%ve-OG!=LY0vJUx7R3QA|gR`1fDo!TUZsi$w^6C zEdh4Qkah+#FiCt?r29Z}ch@~(@^Es)VYNCedZ)3uPOuFhE6hd<{u1X|F|iWx4)*;h zLyQJ0eL~&Mgdf~;irF}|FsO|kkF%qG&SZZ#jsyb?%cwi`h} zjYXi%ler3t@1WD!SQ6ck+rnG9g7(5<2d;n7f_b@F8NM_skjAVOs)p;&`yYS7 zUE&S7vBry~_K2B3t8diPVI0|Lx7`ycFO&_XBl1k}zD$)D8084UvjQf-fB1{PfbC@e zfbD9vv_v2))7xjy^7$Ob=rm(v+_$==!3Cm?14I&~?CW zq9X5Vt_jzR!-fkRw{G1gT&b<1r1A8O+{Wgvw$7owQ|AsHe|vE3!05!0{f958FCW=` zw5hdkX!pUk?txwVrgl#rv%f}FeHUzRXzA=2=o^|E>l*0p=xFQd?HC#DpE|gA^59;( z6Zehu_l^zp?&{0V%g)TtFRQNCzrCe%czE}*nugBO@&YrGWnVX-Ml_Rt9si*Zh39TcM>(y)5 z%CU@3$1zDM!Ks%XOL!73;SmkT;DE9h6wZ>tj>O3P zRlHAZ7$uM#2-V3l1aOb!ZV1os1jr7vMNl#|H9a#kCm}wmt83_uH?P|r!#|}#4h-!+ zd-0uf7vJgX8fa_l?&$2*p1q^JyQHXu-mU82XQIc#l;ve*%mb%jeayNA^X65RmuIG@ zF=~E0N-V}o5=l=>zxv*%usuIF|J@Hh`T5`e{wH7k?(@I@hpxW9zxmxCp!(qGs9wOD z3nZr`Yxh`QSt+eCE;N%#DJdyeETNXl5aTX|MI{=bRaVu=btkq{TJ&4M8RmuE%-1$F zHVf_e;WQSbX&piD%#4gbvv9I5X^!se z#0A6n5_aqWM^GKfbTTB6L#Vh(-nE0%ZKR%iDkL=OkBE|(_y~wpcm0jR3G$S1*^o@+$6aj>>6Vs(|i=XT|9S0_B+_61upM zxEGtlBEKSq58W?!$GaS8JkXW^X@`!axNVzb*REPBA9DW2wW~<(HD$$JEe-np$`DY# z#CE`TUZ=fC&}RA-b(-U8&U+39xfM>cULdWXjzs;{*S<#N2kfL6$_#8rV3$hmKBqkFFWm3Tspu`q)v7t4Nnj#bGRvCEWyrjV_P zaIk415ccRJq!^J?L>-K?oUp}A^CE@z|L5tx!|STfwBi5p&i76x!;mtW05QEJbYrkF z?hW@|WVze2swG)gv#j2Gwd5|j_ip3fD;Nx>Ih0UC3Ihow6DG;bBwuE(@3+o*-;ZnO zWcz5JefHUVt^2v3`zb5%_DBjY7C{uE(x725iotPFwg|AR_#?YdP1Gtq6~#yuUMwlC zP!f(C19@5B%KYcfou819l9OAQyR>jwVOgtW#kE^omv=^*Kpxz(>*(P#R}P#wzkFqv z^-oI#$J)B8>YA(Nxv%LcD9o>`uU#8Tl(yPVTt8n|SIx;k^y>B2)!Me})0GQ~r8|~a zx0F^k6qZ=yyj35_qLLa5v!*T9UN})}M@6a7SY}I3PF`k~-ZC>Z1L)JQpS7(i5r=Qjs z%t->a$Ig%&DKiBdSA;5dhQ1>0n#K@G?z{UQo>0Jc5sxSQPpj3Q1N##o!)+H|^Ek{< z>4<EU^~OgKN&0kqOoBj3iURe;={I_VJ@N?44*hsSOVT_+59g)EqRP zHM`+59PANGRPj#|P}rA?FAq&S+2O-P1(Y8eb?Rl5jhm0K9koNt4QZ~ivC2nA&+Qvg zK!7&;wADu*4ee!2EAQ}3m1ZM*Njhg)s3;>NDzoq0z5m$B^H;CEC3_IekiKzstbk;# z>3T_VSypB?4&T|iNiw10re(_t_4SgV*r20VOS?BKE30$00xK%5uWiW8AaQ3?;AP*o zG`ISe#p#PXR<2<<3{ItiqF1IZR>s)bqeN$WCpkHr8 zQ*$QlO-U&!EnB`~m8JFoeoNc(3=3_vwPNYg@25|nVK7@`M^#%)q)w=m zLwK@}1V~-Q*dWqma$-^>g7b)0^BNIQ)Tz47tmf}29@55 zd!%(#)BC`W3+Z^28~Hc(sEDvjWDqWmV#xRxy`CYq;15zqDAJS}p;D}#r|{U1A3~c6 z^zs`u_Y??}?g-D(b^5tNRKSk3;~TSMrzJ0(KQm@BB%e1Uh7KdYy{)l!!`hXzr%&ao zII|xJqK!i$3~YDhK}f&%9@tK_M9680jGFo41`bhz_srAZx#gBSBP)9QARUR-jEJz>Q?yj={;qy_B#dOfX2Cm+?t%R<*ce&>$uJSLRMeURe9cYy7tFmx3_ zf%zscPlmLDd!S+d1gmX*diP{518=u}gDLr3Z%zkWfUKLpt}{dsdiOMW5q|TLwNhLV z==ru1^t01;WCW{s4fIwTXAXG zvit&MJyT&(mac(TQ!Om3YAz|S%U)V&#ciY=x6;4e0vr}RrMv+4`SauC$>=&F)1joS zQr}07Vj|khK<&SfbCpJA;shOQY!x;2(jcGc-kp{{JvO#`j~*P66X)NQ7#SAP8$X_1 z=s#e^@$(Tgo#cRNC&lhamYF<|ce?6I8YD zCWCR$g0c$Xp|K2AlUG$sAmqb%Ok?bu+GY@f#5*>3qS)>+iD`1%pt_-J78@;`Wn!8q zOZqlWoZpi*M@={1VyGD5bQpjzSdmqz$OsEC0RcV4WX=$-1`%o_yqCoAJ+Abq$cj2*-c$C4ND6R$!_H1qB@|R-M26@|A0E96EgB##?2-0BsLFDWY%a@~FKMCYcRjjgMiT2_{o*DP6* zlb)WT5y2wG45{h4p|5nQjctPJRxyCy3=P?zG-Nt@rk3^)0`Ti>BCTPL_Ugr0doJjh zEKs_Q=M@!XWc2`cES*Rq2a-FF+8GA^-$)Q&Gc!Fq^-U`1$4i}F~hdaxRlQ3fF)?~lt5qbMynJk19} z;U%&kK`40Fs^zwS`9WAgRaZ$3a&P;gxJ*h?Jk5ud3BM@PSKN6*{2c}vy7y9s18llB zuP~EdjR1Q!c!IwD*u!{<(Zv=BP{|M)Gh&!LA2@HDHc2Mfq**bOsqP8$W-rUiXs)YX z+14z-y{V?s5EZ_RMia1fz5rl13=9TRkGThODUc}ccW?bCKLip+bqwaf!ICrO$-s7z zQ?g7H-lLbwY4sDB!l>SE%=0z+^z5M}&~VEVdd81G0@#lpK2%b$3@?h-PX%m`6b`^} zPY@;>jZ`P!4#P>8-VG0DKtB8K9*ldFVB6^$2_m)EwmsXw)REUsSLSiAf3 z#pxMs9Iu5h(@kqwni}%w6U5- zNXOw}yUdI2dk>$wbbZ6t-IX=Y-(p2IE3R=wfOA1n$@O=Ce(}|xDm#VhY?k$yEXGvV z*j83qH+}YO=NdI?G-S2_-;%5xHLaG|ey&eHI9+%MyWHDpWSD$hs}pb;I? zT^`i$>j{{zW=gR2i6>0AunD)a%Pe#L z6emziC~Glc)lmYGZbEN=`0HzLy!+CPn`bY)C}{`V5RAQc$unBjt?t@tF~_=ww#usdiVFFRjf!VA6BhQ(ToT%d>Emx5GLTO7 z1L>)YQi(7^ytF;MR@(cC;T!@ztr4Ow9>v?c}I zIlK!*=VWDq2!A5cP~G|XKm+y)%EEBAl~AU@2gT*8!&_v}m@z_p7PcE6UR5PX3=It) zgLu+EDSm-57FvMzcq+2G=pFD7lEWnk4==zDa%hKY<2+8QHCc%ASR4H=JHX^=p(R6z zi0w)iE|^P-59&}qgM}iaFZvVWx$qOE6#WPLz$XBEWCgumJ)Q)TBx}AXR>1Xp_@N&^ zCIdnJox9YpuU=TsKHXhXm&j>iL}nK}U7Q?WoR_`4v2NYU_LZ$on>yE0;9Z+I5xXN& z%we(lEx_CiLY0;AguM5W!=XC;huLC`zWuFl8Too?g6r>Vd>SgRbsp}fE;YdWL%|FQ zDhUb)>i+1%?53E-bIqQQU_p`F8logXKK&_7iH1x==)BrQFY2Hv4F`=&iw zdr5k%ZCp`P-%(mtSJ$+nrDF?+n`Yj+qN{Pm>YV(%ss=Sft%bz}MWuyn_HM9s9ogO5 zwYi|IlmL>Dm=+dw%E+^DYC&csY0Sc~EW| ziwdUPyu6zF#zV(1Tzm7Qn);@RlPCAG&XFDjJ$fiOJ$~uxjh}r=JP*SAj2SY9I3vpn zi>J+)IW;!ct&pA0MGhW8+(IQ$ef#&95-H_|?Q^^vr7#L~lg!l+u$5pI!iP%IABXi& z{0X*4lVrd!;0<;(l)8i{n_+;5o3=FYq5@rp!Xj%JwKZaJ?@&M?{XmqHfcD74tTV)( zZ?)x#6U&3g`J=Q&=ud zdP)+kRt6~j45|yQa;O2j5f0TcE3j{Zc%`WVQX!+S z_O}BEkE~p|s;#x{%-IXNGD=@Ldi>nlwOzz;;|gt1Kq3E1atIDh!IlFV!SKdGppigb`;JARf!UK0ge|$*2!( zKPN|;is|1OR!!>!c}4}w5MlcB~S@OXQC z+(Otcy;fKXuuJtxO3*%Pfu~>thN2Hh>x zBAp5}QgE+ud&ijakrs}F$sp7N5K1>g>YyB(VJvyvR1{n;Xdoj;z%jTABhUlfo@W5= z06R`7>qCtsy+Za3#6|@@Tp&+rmu%^SMxayu^Y^|7*uf(z_@g^+CmlEyli|%D{@|Zg z3E6HBZONt34+>GhCm#oBz8!NIDC4hZ&oJ(veA4(qeRU7e1P52Z*uVFkTdCZn$N|sw z>-TJ*$A9wZGu@vWp(vihe`hyE7oP6yX_Jfda%#(qi*hqt>#H|)u7>SM`|6JN=LZfj zD>$Cmt*?XLwrP}4y&aB@B$ph(QvgUnkWE@0@(3(uZpA$@<&5@7!gJw zNuJETG9DP?=Lhw-z@ZW<+o+*~CXF4LnU;L$z}`z2&$qWWS>(Xg&YU)d6;L$Vv&WN^ zm#FiFw98}k)j*ps5|X=I z?l|FlxiIOA*>GeY#DVu&;lJ5XPVS68GfIBY^~qCWX3nNzBu$w*9kv&j)hIhvxgQfd z6V9*SvJZfhUmBWMSJ$dU*|4f}&x&=s%PO18%1Jw`TGy^yTA1Iyd0k8AiVes1l~kA2 zb+jxiDp2`d-cZ}IbM3-~3w82Hk#h2ze}Abm=s{LtcFI%`+FT3b0CR zl;V{Smzl^?ie%(OQ%UIjxxb% zs(MA>ElQ9K;K-YDpPn5U>D$vQl%@vNeb|tYS8PK#QFm-MA#VP*ZQD+tIjg&fbcIMb zHE1&6osCA_v2nHl-{z`&<(uR7d|pl&=O0CM8KiXh;K{NE{4S{%u$|*?Y{|=n=jZ`{ z0k)$##u9ALNKHXejA{ta`-_V03Sp3T97bpf%@A76&B|Q2X3d`6d)iuB%1erEAWs>m zcu0Dxmf`VT>o>G7w^GN7qsLGG`EP&2qCwWV%P;RgbWA5Pyj@UU-r$r;lPxt_u&h7} z0wvFDrN-_&XuTvE@6~ufQ`@T5>*dI96nfdQfBA~lyAK|H{r%5M%gQRMt6!Jac=1Kq zCRPSqICl<$%1lr{_8mUCZTJ4|yZ2fM>H1qAzi|BAi?6-&%3JUL{5QWpb>Y(KOIJ^v zyL9Bt*{;o7Hdtn9-##r5n%Y{6%S!YQICJUpTOa)FtN-}VFaG^cZ@vG?mFsU*RM!-h zlq}B3pv*5>vV;Ljpy?zgO3o+#r>Ca*Muv$UiDEmh&Rz1{sV<;iz!y*pj2R7Ll+mJo zzA#fOe@Qr!=cWGxdYo#Bli2Apnq>Pp0PSZGG1hzUz6Y6~W1-lIgxgTlq>RW=0o@!Z z&jMUSD(Hc`LIW`u;154YxZoE))A7U*3Bu3-gN>Uv8}Pba)Dk=pwsXg1zjOL}J=5c! zySfo=ddU5bw0Shtfcc%>eiSKw?FGHj#e1c=-+!-@!+cazbkGG53V;vFJ#63r#~3__ z!3eYyBUDRE4d9jdiXPqZQhGb^v>!WVQp}_Y&vfrTun&EHc<-LQ2lnYde$?pclPAen z>HT!~=@ZA@+wG3oQzs?NovHm}TYb%%-aBhf(z~1po zA*b{q(PZ}-W}?TUx>&s+tqZ0)&YV8gsE*tOZC67HZO~yJe>4>BOZ$9~yYV2nhSfHV z9k37T+q>Vh&w%%~ruyT@Uf8#1=hCbUzXfzdY2~GMFdv!~REM72Nk!kRj6a#AjJpRX z0TS^uDoiN0z+4lz^3?DvR#-9&Cn%Z^A7%KIdtQKy1(w&-x%HM?=%sKQlAD({zz!Mk z_Q*RH*L(cQ&=oxRgSrZU7b}r@B?CUA6=ctz;10HvV#JTo_bF4S!g<*a;F1bqS0s`8 zQLR**@Ey`zwp)sNp0+3pt!k7qXI@;&q6|rn*-HyzVs+Na&CJfzncbAFtdTj~R#DYl zR9ai#vbL6TZ{$y)!yj;x&A88heb zeXVttzBsqAxSCC|3La0vnytJ8%W1GRf?ty-PrAz(_sR`kga!b=_-i2 zMZICZ-=f=J30qZ)$0-tge0fnV#CDXc~$CONk#g+|nEUiKWzRC9U*)4gz0B zp9v>(i+sh9A%hfqsjjZnv7ngr%+XjTRWUm=IWbggHZ?Zx+kbGIKIw;#9X)!&chM_8 z{o?C)EREgJIB>v#1j5L&LXd7ldQ*}@zw~wMHUW0IG}`cP-?{JAH$Oan_R^^fR~3^U zJ9DX~zFw)(d%yZZY&|eCdC4c)Mw5heSH4s|9JP8U%qhq{4c-xqaO0B z*L9sdcjf4*bNUIqcJtl$fBEYJN0074c;NL9e)jcW|GIJOmPM&4OR_RIZrfJh)OhB~ zm4NDh_%|EB<2Qf$_p_HSIsUDWJ~?|;rN)U3n>7;Kt+PUo44frP#7PAXd?{wG4JMEe z(Wbd`@gky}%19ZT{uCwQ%qyM-KgB4NthTkaaiFMS1rc#(GkYZ?KoVh388rqGLB{*uaU@eBmj=ndJJO04 z`2=5pQ86|WYlD-6tP-m>|Dgw;l@g|BZ>Z(8M)r5f3sWbI&&$f36*JZQ%#)vBf=r(> z4SSn5X%cJ~X_XHn$JY;tpFP8l<(A@RPH(BL+Oc_keO1Ls$s~QBa}%JtGr)6bESAcZ zaFMih5)%)W=@%>xX)pKPOUVc9B>G!#`A1%lxPx(i%eVglss}~OGQpPWe(-*p4E^6_ z8~MRqee_}7&8*gny6acgzjx1~yzIjV_wC=atG2SN=TlF7`&)nSBYXrF)_DXOq}PM- z2(WASG}zo>O++7f$_4=mokQ#Zu97S9+a1Fj@(%t@GBQpiLz?3rpMY#gkL>dti;28B ziBbaQz+bsY(F_U(9kufsg?B_gXuJalV0S1wEHLcA4s4gKrHB>1bXG2)_$iP?)*pZT z37Ufp2dR%^$BmbWg1%Y{V{t~dCfRx_re|a?O3lFAfqe2J>4I~oSxPl_mQ9q?`&OxL zY*|%6Rj;TkD6CL$WbM3?vRdmoz;=DZ7NuE9IX$l+zofcW=YW*73|$=&C7qkfE6O;? zmcWwB`eTuc`kjg7^t*(L@H zhGXMw7U=d4wC}4*B(lu3D1)6rg9l4#j*pM0mp_6b_v*z9Fl!ww2ukD92BiOhfnp8( z7iu~bmy_(C0Dt$54udv_#3Ls4F)O^F)AW@4+;EVKNBN5#8xPmMcl3RgyTXA5?Be+5 zCV1bpas94cJB8BFezLY#4-U?IHM77nOg7nRu&6%&+PNgsIKYS^^+>StSjjo8N93QO zD3T$VG-3S65yMj#N!cRgj8Js!Rl9{HdYTvH7e+|COt7@nMM|Z%Zr%R!jknjY-}u7Olb5buH^vCvZ@u^F zi`R8WUom}JjI4Fiiqsb|dI~mO{p6V|hmW4KMpxVNj{S#^efHHKUV7v0kH7l*gU`Rb za{b2Xi&u6ZICSH^4^CaY(z<+kLsQfCz58B$=RMq8yWO<3)DvgVH8wXLK6Ua}fBuj4 zTekQVOje-O+}f(c@5f($^}(;dc>Vnkx9!?}==f2<{=2{a_3Y)#S|hZtT*V5suUM&> z%tycc)o=gsZ{Pgo&tL!fPw)TSI@+%&XktM=`OWVci+wK~b*i(MU*5gB>;h$m6X)s3ku%x3`3frOB>bs~V@AOr6cHy!o`(+= zISoDAHL42Ec=xc*DP@3O0qsTGF$3UZ6D|jdc!CcuoHtui3e^`;)a;!OgPZi}-HY7J zjyr?Q?tmu(wFCP*E$bkohGZT2(g)O2kOkNX87bJW4M^%Cpb4a!pt~cDSsn@tbKEHp zT(>L8i9Z8Rm8zr|tAhhWdI+gR7L9A8@@Y~!J2pmIHdddNzG!gY-m#O$$Iq3hG}XPB zIO_TI#JF8sH(8Dpy9RMUdj|cB-;AIP9>}_ppo2mcx^~Rb_-_aG97eYmM-TD3R zifrD>8kzutu+)B;_TV>sL_0n$<bJsqwb%k3Br7&$FabYoGLc_UR%0o-55?diL~* zy}Pzol@>{xLA-VJm_K_)w3NU!A(+UMQQKw4NrS|iM0HsZ?+cd@<)E%d$#k-$45Dj; z+b)klguIDCh+hvJK;3_aon;GPJJB6Y_YlQT#a>O%2=cSFJrkJUJ!3r5#bP&si!Pt~|e}BEP7dbc3ENG_S7f zh;Z^n;5|3LSoVRBhefLw#OW>8xqT1EcZOV+d2!Mmc?YDJ#ThyD{Depg8L5x3eDdU} zIDkF`EE5;Ee)1){V=NzL``H5wj8-MafKLYAOz2QCeJAU1`S|qz%*CB}0O4#==J^ zv;-D`%Y=n-Qf0ufEF6?xiaX>-)G2J9FaB;D*uOuNKpSlY6D)gOXBSq99D2Gw?t4v* zCFzS)Gd*c5Hcj`;n8UA^fVfooY+r_Qq{H4jezd zeeVGX|IwFUJF;bY>zNm?Zri>4ji3F@KR^HXKP}78tE{SkM%I`1EO$ ziDrvZl9UUfe7tK5Ckc7;(1#A}2c4`>F?qrm4THuZ^n(Wi$-d9^lB`Z0(;5y>aDMG# zG?JyChzWMP{kB-O{PV=nr^8j4gS4afw?%rkl@UXEAE7Rl$}yd6K6*soo=+#m&7U-8~zL6ZrDWcWi z`_8RC9`f6V4PoW^IpUqe*dw?Fj2z09# zzP~1=qzQ2<7tPL9J(^oqQK!Q|R?ae2PO=tdFy`bH=@n33shfM}lFU40K4+;4mxQ#% zIkRWalQS>JI4LPvojJq~aoYt6F)=f+cS@&TzLIdHTv|+N(j*;OriL8FnCUc=88d;$ zY)LX?89%_n2)01fhYjn~SC_ATZlA6)UY{TSJcN(Zc>0Y0o(q`YpS;h(5CVGO{s(-R z+KJfX&M1D3GFn9sM zQ=rO(xUKVZ?a{zFbC|Z-NT6bwiQ~sh+h}ZV#(Og|G9oMXJdZR|!zlwa7OS+In_N)| znsh~1j}+BZl$RD2fN@w(+1BzGu&;zxnNJKYi!;nX^0h?5U}(Ry4Y6-~Qug&aLU}I(YoV3FF*hHZ+`J_U!S;e{*4bl z`st^?eDSrnufP4XcRu-C7ho*CvupjDwQGTSVL^fTtb!(6PHt{vQ!}ZY`(`G|GlcEM z1^J3+xzDDaC?m*y{pP#i9cZ_fy~OxsH!X{cR9?PndxbJ z_w8T4yv;}Se!&j`2;`x}NuncSBaI+hv5#91Rfx|t3du8SPYJ)EQc5A<>hZ+m9?y4f zxrNj=Va&)u{eu*oy(Dc=-#*Fl3k+1W955n$*g9DQ?qTV$Lz`Ik1OC7$*v{NLz@PAT zy$S*B!ufOj33O{CV7udo0VLtMcf67v{4>N%yFWn!au@7))w5iT(s%=;a$Te{A{o)t zM^b_#=^J`32&Ybv2|0f3f|=8U@IGhep6y#4i40>zuugiXI$SrFg;F`-4v?;J^5_mP zSP_SF*bo?KKSuY1v7@{O$8}f`vck^L!Rn>}yNHr|#Z(#m&vbu$#E=1_hYcDvbl`&7 zu`8E1ukL8eSd=tn{1}S2U;#OZVq^1*7+F|AZ#V1t5Cj$+J&Mm_SneC3_P(hK-aS?b z&q44j=(eV?qzX6;nJMioc+>=-aCp8W>8>97efQkuX$rP-YQTaolB9wAA$8){L>xjs zVu}7m}GD0R{Lw9gTawo7W+|aX73Z%X$lsY>W9mZ~nQp}kNkj$b*0WzPMvB&z^$yx$N|pAFj|edJO1NOvvTeisIGq5ot!QdF0hCB?@9ZP8K`9hm1Y%@sEFPh35F$zs?}zs1;7 z5))FB={itqriKHDUO2XC)0R(u^;mR!a1 zE>2HRN=z!qFS`Er`)_^t!If8EJ$U5UmhC%EUAl7O{KccE&)7C?*}7-{fwNa$6zTru zzkQ==!141JRG7ly#-@h4y4v6W^{?dgo1cDMT2^}SsF3S>U;Nj9y!QV4zx~T!cJAL- zR8;uM7r!}p?C4t`e#ivuKXT-~U;NrfT3TDS?%e*xpZ@4PgqmZgPaQgXYiF!*<`b6 z(7*wZMrfnFqy)Bm${vSTUira8hfbY4hm(VDEooTQ#)f)nG5nqCstQ(8{9@(G6+3tB zascVItf;WLsbTi4*qrQ47M1owBAcrCXwU$1iV#U^QUdA--eLFx4G9MiOi5S>u0t!x zKE1SLQMqpntzEf7tvcrHeb9>MFG){ntg9AMnLT|PeEp{VuM2aud$=_Y#*Wjz|=`|Vy4X1US`@P{lTn)J!$MH3I_ef z#XFu|;GP6LA3ijow;Y%;7A_p)wD`FlLKcrn5E*WI9jgzpoS9)myaq!+w~6$42mTno zUnf0`H>CT`q%osnr%XssiZ3t9Uz(XtvFClkb~!fekxe-;CEvv;8l{A@V!Sh!g5&0n zMGYduCt+BM0*wp#!md$q817&<7F-i>ER5+R=CxY#hzRo>gr~(lrvkmN>j^g;YBK~; zY=`HZbZCIl!TG@J!g`uP1R(R$3Jf+W92h2~!ASc)_gqwXhhv0@=rR_7PIgI;XL`n{ zMVh-nCoVjk8na=`E~$>$OY@GLx!k_0%YyZyr4uJllPaTzPon}fe&(#Xa%LPqddxUs zPzzqbWW}n>S8iOqBp0M7FUnYymX*FZn_NSg!Q{z17QJCR=;zQ|jwR}jlPeNTP0fgz zF0(Nn&!5313X7a3Ny4#-s8ZVJ&5Hx+67ONVuI$Mvi}c~1HfPt2q+R2G^>Jbb8@cv-mc^uFes4jU%q>>c8IBikrxR{Zy1x+qBh7=>l zZ7~9Jx!i7{#Dxop02%3yO)4oaUbCiC4&;Unn{u+Us8>f%oRxX<(~o|B@x>QkeDyVl zbEfk13rkANJ)?@sn)6p)KYR5hpbBR99XwcCQoMENj!V~Hd*Q?>Dd?+pG1#<4H1q70 zSF{e;x^oYG=F_jf2FT~GTGy#ck1rC+XJ7x}^7Yq_ojLQ~FMb8X-~Q;c_kQ{1nakI# zg|}tf&T}tbfB)CNrQT4^x9r?;@#Sl)*RA%AAAa#UL-6H){f9Gb+qJ8@w)*7x3%~gN zH?Q9OnY<}RL|3ube)`d|GZ)TXeRc2Qqw6$5!COpTefb^Tbd(OQBqul;j@hHwgQ1g$%&*L)ZG&y z)GIiW2MgrM@{k`K(S&hMF+njqHJkm+r!Vs|ijm%oazc4j2J)i zP%tzud&-2du~R3*a~JIL=FW_bn>#C+9v}&9>Lkr%QsU>O#?Q}6O|qa~*P0bDmKHRy z-*d()F^2*p-3Yu-pE_A^0asUNZQnaKz>cNJiiG5V9b*>8;wGceUR99@YC!vul*v&e z#*fxUGS~$M!baqARTg*(8j(e*#*djfZE_^NXS}>&2FneXfywtFZP~?5hyMjdPybi?HkOP8kI3fVy-A8Ly9rlzJB z7M9jGHfLt%w6E;6S(Hq;Q}JeFOGo>vwFSjxQq3hEPMH=vH3n^-4SOXe5@+lWdwv8m zpP7{>Nrn!i;3zAnfLx>LdR%<6N3~58O+&zK@UsmSHG@p$|z&T$|a@UW-x-DSYXkEQ#^}C<`tBzH--*#I#|I<(D=puXr>$ zHcSuZ5&{8_J?6Wl%@8K71c4^dgzyBbxn*Z%$=Q(Q^6HIOjp2apK}Wh56|b%=H*0`) ze4G$mtTIOQUZNwr6Ge3zJBgkq^u=vE_Z>fT;pbod;kSSJPk>xduuPEj z<1fFasMBFu+m~u_?A|(IdU%z_e!=GP#`Nm7HzjNZ; zmCM)P_NUh6?Po8&v}OCQ`MN5_#Gvl-bYuyW3#GA$WRcp0auz7L%`afWJcSU>whr}U zk9caWtu5(kIw#ECv2(YIfHiB@2!e==yU#+Ol4sEP;-Z3;D?02$By(Ig5+w)DP}*CY z8obH4Grl;yL=KTn*dD4Tam~jbhDEz~Zo72(!rC>fNNS}8`D2FSyNuD5e8z-^tb~!v#Sznl=?ygAxQz} znL18rXcIGKR_rvd!WoQIXuzv~7l{z0>!3bVcXvUqP-i5tCFty*cHn$~`bdU3(MCFD z6vm}%YWCs zUf|b!bp7lgc?W0roL!GCitTQ==Pv3RWSRc@96ZH3U|ehm1Hs!T&q|W9HDfsq9`XS!MX}krCECQ~z8!E$JCK=}U5F&Yr(8 zK3QVq-1+hItf8H_h#KRsmbj5@le?_QQf7*mL_)*jX3Gl7D{D(iYv#^fFnWyjmt*Md z82g+#^QTUmZc{2HAYjAliS2khNOw|FGgRky_zxi$3r4&_Hv(@9F#h=CVSzpOxo60D zq{b7V@cgl3$0TsA;}@crI=Ch!C0PShbQN{y2Wis6)4|P%D%>BWJ>;M34*HNh#Q^E| z-*a!+BB9U!^N!pqiz#r-eRJ<#u>GDp!_w7Cjdb*d?RE?XUN%j}qXg*-=gq}{jW^%u zNOsx7GL@vc;!dJno_j_{8VNdX!Ga%r|NC-jSQfv=Bjd?M^?VQC4x}dt2=_|fP&yQ) zk#szCMb4<-2x01Lt8cvVx?)cHCu78BX`)L!r?J>5|0pHup0z};-CXNJM%5U=E-v5| zwu=wKBD~!P4<0_Yd(Zw8r_Ucgdfb=lAWCUJdG_2#zy5;IK@6#DsL#sIK6mZ4w?F+H z8n<<<=-Rj$h5q_4|LLzUU4P@_FTVc8@4jhhXsT~$YVTNOM-Rrr!s4dp4Tn9V^y22@7KB z?U!DEU#jH6V<%_Lo>fs0yH>94)PmsR zwbxIcySneti33MZ?>~IPS{{dvo^pj27^|wRb^~R29zS(KPXl36PdThR{LC|iMA83c z%L*n>obz5V!ZGxQJp1aKm|c0cCs^~ zDl9BnOi(+UlCyAuWSEfo+UHr^71Rjid1^= zQx_*ELRY#CS`*Ue&VshJUN}|Dvx{hdPll==OC8p+P8| z3R18{Y7DIyl1qahZx}s41bor|v2jQaz~!%q*VyPVYLvVK^SvTE-K>9c|9wLS^dnXi zJ%}psnFu32Mw>@motmWaqn~L=fqL(x#4ji>TGmiiR#vcd|K6R865;?mP141{I$4Ok zSp=RO?Sjn?$us1A;<<~ACay?y4>DBmUVc8T4pKa4GV)4?3G`m)wg_)W-5H2TqN&7& zfvz(g9Lb7z7@^)4wGlFlNI-tOn87pT6Ho zlKO4r8flp%dc3{7JS>8Sw3E$Uzit5J7g>t}i_lvpCqjk5j~uCWSWqoQ!YpdMcHM?E z7hfqaFQ=+*+OoZ|skyDaqie%vt2XQMC#geT`j2kE1KyHiNFQz^W**wAOZ~cE8q&Sk zJDJO^_I|LQk(=y&_t~sR+C33}6&RJdE0v?jh2SY>YK*pKR^U;h{q~ zyw!38&P%pgl$<0@{oug^Z@vBYh#`ZxezI^g7N^U>_9r+)0gh(E0Ct)TmaYVqPvJGn z+cU6GwK%acIi!U2G=h)xn5!?pe&)iJ&dyF+gwm*8d-k2ZctuLdr(b@3;l*pBpH?o-99wKv}?D=)wL+6{ut*-Mu@I#yk~@!r|XuV~)BeaBwwSz9TU020ldJa+P; zrSTx`o9};i^P^wWYC2Y~I&t>O=B>Nec5d3D1N?@q7W?Sz+I;ln6)E<+_8w_!YU%9S zaOtI+md4w@YrnC&|Apg|CQsh9ea|aze|+urk9Hq8wsq%$-TRN8Jb%r~9mmdGZf)<_ zvF9KaUE$uUHC<;fUDwBK`RKEd&`k?ND9IGHMLh28r?nO&tF% zj9aK9nRUQVC{HIJPcqa)B@`YoM!Z1li^y(dnw`RCsI=o7k` zB#E*5vESK^L`*XlW5wIEGZ(K~*^b6b(qPcRDK-m~L{v%>tKReMC5bHI%F4uY?h$NoF4yr~ES+elKjNdb!nhm_i0r zUp2auFC~k4UQpd+b?3QIoN<^;R`o;nTumoOOutTsw5;Y+IQq^eQVoG zH{bo)m%qLA>f1R>^WZbaF0Fm!NWIv`O`8@g*FARToY)z1854#*KXU$jU1t_K%n}$x za+#B`U0NepmRCc)$;&U=y#4SCCto^n^t?u1E7o*w*|{$>GfNkN^u-xeck;UuRGNw% z3XJAt!-p#y9V1mnAa&-Q+`h(i9Q41Y7H#>{civcYYaQ(? zlM)hSS(1-r{_Nd<ejz72x1_lA z;0vc$t?pXhu}V7n(%jtj8@4&d0NA&~Y6MHf`CVw5qdflkz2{7kG?LXyv7)2#1_Iy?RVZbrf#9 zT;g$K#-ygCND6}O;$j#tXCH3s;Ob{uI(%_@nx}xU38cEg3Gs1sEsr%);hR#BpT|p* zfb`v4|H%_gO^oN}o4v*oC>8{#jDZ(ggeW8lwW*=@`fIPAIC*^EzP*YgJX3`TJ)U?R zpaF;f{O|v+udM?0fV8AAUu*?_QtWBh3+K(o9@!MWC#;rT$x9@;LlyEuzdk;#4V~2Q zyP5s~?04KAlmXGkAp^lFR0M!@0}?&V1p8EXy;+{?*<-AehQE%aQNwfC?ls!f9l}#N zz&nulrc8TMc7#ihOv5Q6j6D)5j`vR~?x_iJhxhNzTAWH;0>$_t*f}#} za3+aEY}`{%JSxY=XlEEtg+va{wX5 z4HU}&yY2>52k(AtkY!W|hrSAwoS|TuStO)OgU~G#@WS(mY#tI_>_>`)L$gOy-a95Z z1eWUJpcbLR7cl-I%cx#8qkIKv=mCcu!Yyy0k!2jpRn@ zi#{MpCUJ{l z?PJG|1MiTW@B-TjGL#l_YiepL43FwFybpjM5=_RA=j^vG?|}2m^b{*9Uf!|7Vc6Qz zrFr@-Kz1KQ;9J|;0ZValiONdJ%u4u~TH#F_JcsJ=mh}YYHt$5)yVu7bc|`Xf7#@Nf zp)UAgTwT0XBjpgiA2Jvq->rK_Slak0^@gas2il8g7wN}F*ltGZq(LPqwZ0d2_3t%23WSVvZB1s;->W!1wu#-3TlJr0o!Ay z!gi?S9m(^;sV7dK#Y@u`rOcf*i*aNb-N4GqN^#Zt`Ubv|qW)uN&ek{8S=eI7u0!rQ z1)J#!H5FqlBsvD+FIcwB*~DF%8k-`#JwvzNhK6RwdexfF?Ys7^UAOV{xmUcy)a+4Q zbmHQXV;5Ge2+OUm>)fzm<2LY)V1xRGhSnF3U1)AuPAZY$y8qA#y?nL*YHVz+t*dWe zv8JK1nFQ3_(gw+?K%6y0!l}@H$vl#SECMS@Mq9Iv_7%*U1XOq~F-ShD`Yf-qo5V^y zLGw%4l=l=3?L~4RL+vn**VWa9w=Z0^{{B}402`P=HMqDd6->u_kymXr_C_6R+cgeiz}Jeo;99^DWUp+Ittx* zxD6o>TVyc~M&C{5?zw>k+aWr@4-DB9BpE}<7G#_rPlo6C)RW4WG$r60kY4}-#_pcm zhw%1+gG37!gzJsz!FfE>`|!lRavQw8ugnY`4r1-Yf1ebr9Z9o;rQZ z_(|5SsIF_AH8-xXv@&~XK1~L;X{TyZ0Tl;s%=`-4T0t63LB7GX=EOJ)z^NkkZDOj$`79^JeN zy~DnnAMjrl$&Yb4dJwxQ^eLKS{_>h5brV6-387UCK%h0!TaOxVz7X)a0M5pUcw}@Q z`4TFLq9PAAk1rX1;mG^$lQ09`32cmrZ_!X!E|3U<><-cM z{^x(j41XSb@o_q;G1k=7xN`L>bu`j5%5l?@BEVj%DS2s$o$@j{@A>p$>F!H1(lxf3 zI%SgN7D*s9natgMn^wXlWm{O)~+Ah5G}EibFozF^+m zc@6cAmtK5z%huhxjqTjMx2C3sv#@!~j;{5a*Q{9&{52dS(VRT{5?zkbXJ0I_s(Uai zpcItJuB@okWZwIBYN{ExT9+*r+|<;pzk>KLKccp_)(>OWBZS{m6s&-FH_vc{1wsRX*#8D_vX#(CFbq z!8@YvN-%1j9#M4cUD%Ya4$PCasf?&GDs=(7caq}fCeEL|YI)0{{d>lb)+FIMi+}ib zxXt45GI03R5~BYZ{cfgt2>vJp!Qupn}@0Clv*`xAYJ9M^+5&9r6#6w`M7>AlgW+iMmMMiAXd9uriTACc*K(-P|PLdOC6-g%2P$ zzaFrg{;n1S6fg}?6KN;tpCotJ|72Li?FqFsP(8{yh2Btir8*(PXcdYqBS+f*7HJ|Q77CT9ACi4(OEc(VIb`tgEy@(#== zv0Hb96c5;0E_MNoLqAiVvn*_yn3zaH9r>BSI7UCC9nKBvSjOM(- zcDF8KC?6Fbb?5(oYzM^=@9E)CtrS`jgg-ILLNM&LJ8u-3s^&7zLja`G19tYBcbuP_ zBVh)qFuBY*c2gFPwyF;0W`hxdx#S_U^kux_jYq^X$fs83lV2;}@cf znhNSerIX3V4I56LKK=VY|L0%+`@fH$IAQ2I!;fyeO%Eu399rJg*ocG|6mVxicpeI^ zE|nmo7<1XOJXv`dJEATyscP2MTQ8DL8Xvsmipt=p{n zVGULq3t2|F)9!so@bE+lRY@Q-9v@!2ZoLCKR;;unlh&7w4UL;N?`Udlsjq9St!<#m zY}vMlrzZQ$Ade*)PMe01!+l*5oE*;EG?4VfOY|qLZ^*MCQ*LfY$IABh4nLf&vD%$G zsi~LlkTwHg!nmifK?8d!C_h6aZxwnyg4**`nCd9neRps z?g}bt5kjkU2B?C3f=WK=lpVI_{o zPjuj}z7_RgTHf#R6>Ib?Rfi{SusST2qY$>+|Boi{6X{+yX$R>aD5 zpoeOYqk98;O1tomiDtsuw*xTEvMA%_1w%;0EF}KxKoZfkz51(X6iyW(S|+$#M9y-5 z9u7SuB~;u4`K6q>S1!X%lmBmX0PFCO=$lCBF(IO1I`yfWn3OFnyBa}ayf}Sr*Lq~0QsEP@J-XwA1qFpf7}`6TJ)*|6@X)QW1LSjZa=<&%?jwLbH&>$f z5*?ET@N1nn!Lx_G{7NKkFu{^g|CQz*1FFK}Z)K1>=$ob91wo z>Te6mrOGS|TwUPQzr0e3=Ln@vpN5D^o_Ea4H{PNcQy47N+S1%SV|om1#It?%)@_is z@z4ML-;9ey?gNJoImy=T+u$~ApFd}=q)nGCXHDeVvKKUMHyMOF;ONQI5F1^WycB6E zwyJaeW?~;vu)Sj?ZckYCfT$(@>bWp9>P1^g7si{OHwldmsjV6OO zhk$s$zIKQe;2mT1q+p<=2(-~i;A}IIz?FTpxFJP--mICJus;DSUv7^oDN zL><8tS-|*&Mf@tFhs%cWy3C3~8vA4%KY^OzBgPWK@RJAcM>nze-Wn=~O#A*5Mhz#e zONNp0;*tt-GA(tTm6np3nk>3dvMjesi|72MWd(T<9@J+qPT9I)?aiC7%iHJ5DyQXi z0B~mpcM5F7TBw5uLUpk36-#%i05*XCz-a?Qe@#C=l=psBNy_1LYkU0B)Ka&WG|8AOnMi?@5v&H2JYK zBA=qkz;Iv6IzVzeki=z2$-Fl)cGoEBk;NbkdV|*pQosdk)#ItB1p4`fTHWHq5MC!O za0=OY!)IT7sj#?M^(Ual;U`U=vS49+ZDTV6C8r&AC#Q^?Flqe6DWk_um_B2UO*cp> zG;+~LjT+;Gpx6%C96s9@($xMXIXN{cDMh1z`3vIa%$@iA@DW!1$j>j5(+FV7$|}M2 zh!MI_4y3NbVRT&?syCz94*$vNE)|lKS%3s(#($tYC1sIpG?7#FGUS)^#p%^GHFZ-~O>$~1~`yEYGPMkW0(wL8+z-pKbgoxe}HK$oia?~hkwwQrw zT8ARdj#vNYFND}?T1skaa{R*iGh$<=$4tvxy41V=v}fOb=NEXz5bD*k%>;SF2Y>c}{=?r24i&Im*`j*(~G4wm7 zUiN*YUU;UV(MPJQ3G!5^lC-o`KirNjD=V|IqQV6*5F9rGRc1zpTP={v(FXD?qb+tC z;XxDr(I~D*tSAUEGgWD`9+q)pRCt=^Be}PCFRed%Dq@mo+P*AZB31c}isFKrvSP-mzN&nAbG>dYt@Sl+4Yh^2S@UO3r?h+Xottmy(8ZT?_QCx_wy+(T z2|0l|c>nvq|KEHif{%^l?%Q3bVt=7k?~fcd*v!J-xhJko_W_A3u9jLN1373Wg9Z>x z{dPFdYnBLSs_~t@8BJye@lh~`nMk^SV)YIK@BS6!)<~ei^f3o*$UlM9&lj|HUj;8% zSjI?j7Aq5dAaH?i788emnEkl-Zjy=}*7KkK5%~Wd%qPDHC7LV?vN~_qDN&t)dHOMmMAk|p!A01 zMak!{y>jsQsq-)0(AWz;&zU=C&=8^G5N}1cLA_||h*4vNQ>~E=(xcfj@*z=o!po2$ zmdgmT42Y(&@CAq`2odpofwZx#Tpj_aU$iIhuaRO#+d6=cNeVao=oomFoK^$b>{^8G9>LIjdXR) z91aMi+Ak|F6N~f_fbUgs(3>-7&JZ6Isg#joI=HJIGK~wQM_=98kVgM#5Nh02W5)sL zrDA{Xk_fCv5Y^?3K&D?CMw7*pGXl-!tCue+>ww@m1`2I9;R(LQh5;I`G(&OEl;lLT z+`~1r(0hZ^(Cy3Dvr_ihF(cGv3>_?T3bAoTIti$j_ju^=;SWFk?63dxKiqu!q>+O> zAUvp-BLTazda3W~Ov6Xg(2o;B#wB%ln^xCIe^5;`G+mR-w}U2M(V&b$<4Y86)_K0|$z5LwJ!L z*z25Vvu=v;S$hM}4WG&K?6P-Q)kP^O(o?D8bu~47gkvYpN^{|K&`g%MEnl;GjUAis z#mOD!Q>+X#h7H0@h#Eyp)h%}hgdmyUxqm(QQ0C|WWpHQ_+^jxT6 zysC9;*MfR%UzCv0vb?p0^ie2pCenGJtfWY@<@VNQTi3d^q!>G^+L!OywIeMlVU~3g zr%izmW1b(HnYIYF*Ho4faO77Y%=8(IJ!eV!xRK9m+me=?fD=Ls*e=D+;1k(LI*l2? z$LTOI$kE(77zNu664-7idL>Y6J4Q*6B|-oZ(=>qPC<;X0ddn>ihHnszE~ItX6TFf~ zA0~oG~o&?C#NSl)d6$l=ZFJEu>Y zAOQwdMT}v)e149qSIxB&;^w+Gs7S4f@^)s$1vt{h$kOqnXecVST(aL1Gi73ELNjUv zFht#1Ufu^J#LZA6IEghOy(VmwjKOfz3a1iZHDLj};F>q(kh>emuw(tzJY`S-yZgkq z@(SBAFzy3~2)3hSt{ItUYvf_tWE~4-AAGnWx?t>;fv&*)k z{QzG|zsc_Jwvb$*Uu8s%iN1mk_~6=*2Nwp<{T42jU@qDzma6E|Z+%ubt$_n!yS(TH z3*ve`D~XfXKBTg`=KQrAhfkf)&C9QEZvE)Dzb`GXR8mA>A%>3{JzCIn{DjGqCQnnH zYT*p!M6?=N@tPIbtXL;g9RnBlwBhYu;j_P~B7!e>%G zB=-usvGE99AMWzdb^mbzV6`389Z;)R^6D6`Pw2XdaSK+h?5M4-TDENI!ng%G@J9!mK^2lLEynkgAG07BsXUhXb7!NG+*{);m?T+=E3tH{@@2j7laqn(J_Wp2w1?fENfq_A|4jGexizWdOX~`U@+np z#m||=PEE9I>y*jbKk5USx+r;FXQ%YY__zg>c34W&2JeTD97A!p@7TF|_3HDN2=a5_ zCqV`_jWCY7(~v8R^?jMF2sk-E*o)V`C%RgW=1i5kvsB zt5&WA>5UByn>TM=wQ?0T+w}l^CW$oTpZR%tTn1kk-B=3rK4On7b(#U&=m?3%;K5uh8gvZ$Zx@nUq*@-tG;udf>1WP2H3R_pz)HJoUxMLn1 z=gVXDlm$E#_9FSh*)mNP%Y%9aq=Y231I*K!)vGlnz^3tG$H-6;{p@IO(};%BWj(6( z>pNjQ5oX<*m8iSduFf?``|_rSc{8SKJPR%qC82I~?B==}_3aRiR+F2NE{8m*+|#E* z6@tu=etjVc3<2X57+E3$H{JmCd;}r}-VV@=CTJ;wiPDqe>C&j7A!>&oA?*Z*lxxC| zbi8l_Ty>-mf<&Vc;(3RdAJSB)#9>vho;--L!-q~8H(JL=Ef%#zNLnzL2t$*}&&tTp zUeeyuxP9|R+mf^tD2@91c<5yLl%zh3`S!%y<;+lG^vq#d5M7oCw)+!q3=CPQXdqSi zm0aU~QZ<+FdU3q6=j;E`j6!+S-)%`fn7;sAE2NT4>~c-dx_?f-)Oy*>rigJW|0 z?PfO#RBsSQ(2w;hu>p*OdIvBQ5FRXh$NT2mj~~1brTcbh$n%eW0!WurL{3N1yWMfy z_rLcYTa^4e1^eink@)R*%~19$itSG8gf0WTKm~@$W&1hOEr7J@vCmiD`?zDxT8mgN%_|72LQkAX!J*#F zi8S~Hx84N%@@GPN%s8o!V_>_qN-W(*duKRi&Y0;V6DCZgu?U{V$0q`Ic&k;(%-9(_ zcJDWDAU2lnKZV{t!lww0U^Gte*B^j87`B6bJp|-80$~vXpzS9xPhy}rKjb(49OER8 z!N7e=KLJ0@pQ6!NCIEE%C)GtVq#gxBh75-A92T0qhQY~H8+>wEPzL7Do$KxabHL7^ zyPqIEO3{PSkI;3m4)DHr3>8NTn3&ECs2%B2JVBuuq>c__Hkn5fDkQ++Y1_7JTD`J^ z&v@Iv{EIVqh>+j#^C+pZ)YmV5`&;RY@>ql!kVfZ6s0?W%Cyb&8?x!D$k-&Bmfm&?3 zF5=g|ylu;tEnocZo7vN+nGwbweg)p?fA!T>Xe+;uSE~k=(R0y)oJyxQ5-_5LUS%1p3s zBo11~wO8MUX-wWwJ@$J)OQ#}a>3e3vIqmG3Gngcv0=0*PVi^lK4}O^#r}d2j0VE>5 zYcO8l0@!Uxdq>9#Hid=qW@xrsQNc#g%wapmo|cl5wkQQ+(_x$h)Y}KwHt^1NmYh)JYLbIZg+h5)?0m0?k_4leAr-hosd?Ri_~|QH)HC=AgZS?sxB{S zX|z;wRa0Fxt%ekzyChxy47zSo;I6(Jw);A=7U6|h1SjFP~@DJgK-YzO*d{ectp!->}Iz-Wc7*q z<@hJ+e)|t)3u|2eFK&f@;?Dq?qK+4tP>4E((-r#0aP>;p@4efUw1IQmE#LkJDNL}P z>p`gb_CI{fEpmSW`yCU=4M6-JjNcCWxz6D$!JH(%xEKuS_wNizorA?gtv1x zq4EF6(|w2Oab4#D_md})X5Gj$AEK8!gY)6U}ONx~!c49}4;;KlFEk7=a<2ZKyh#yDF@66c3GyFI^-+VK7 z?%eyH_q^xad$D&o0K9(u;~#(c!D~?0`FcGo;0o-r8>yGS{9k`34Eo1^{%5`2UCeRb z_FN6m#p~<#G1F=1Qm`F4+c?XO^>rvB0S6VlcJ;~+e)#7S+L-`}The1RLg?*|M`xx` zh~PZy*1E6sUR@iXcR`m$*A>?$9m1z%J@9K@aT$57&4)lN=|*CtWXOvbE|{&FkAQ5q zG&RZQ0)W5v?f>wFFaHwAl|n{XN}yIFsRmQg;9>NGG{S$a(Fx*BoIc$Uc`YUUVaPPEhh&1fJ<3o`84QJ~3+X zZV`h?FOhw5ggbzo+dp~oq?;0N_-iTDJB@2V>gPm|o)o)c_inQXSSOz6B^WA@OtImK z3=R$~E-f#KM(5m^Ykl~5p!8J%yvodlFZ|#k#N2tsD7+QkuBg$jNxCfIB?zxaqGMsqPmPq zWmdv8J+f#=P8v~F9%ye?9I2jE7`==Zt(>LBg{Zq?+o!AhwD|+Ml^T>N))7uku{}bN z|D?AE$j1t3Ve3>FcxMywA0S{wKL`x!eWs?6kma>PylGuHMP>75n>uMOR97qy8e6Fmj+Fw_1k?yT9`fKl;&|Z@vyOK$$m)AelGJ-FXBI2d5ZN zzxUyX-886RVZP3bH=3l^{3KdXoFA>_pUHca^do&jv($vBl6;Ky;z3V-2(Yt0t<6ok zfLObnT`_l`!caUtZ3fQ)@35VSjkIIeqz_^;u4^B0MU_iT53vMXDh6v-YP5=59l_!H8uf`?!@L7qECz?b@% z4wWLpI0EN=MV2>&$^}tz2w%hFf~ z%|Y&-_&86E|D|GKl{aFpFlmsGTza0NTdX<7gW;fznbd(F1laH2yDRCD{7!H8`O!Du zSeTijv7BBy0o!NCM}OhtA3t^CI3zh(TYaRh*@8hA&z&9}G#&O4B8*7@NF0EDYHUR0 zPPlhrX0omMAf-a9(@yBaoJRmikp`QTf|P^B;E#~yuDf8qF~ zg(tAsF+$cseae6@J2p}bLZymQuCBlcJQ#P}2HS(KKN`|HJhwQY9Y;{C^k5oGb!+7S zDN%v3E_RGo_H>>_Q9~R~M#sYh`jXbD%ih>QvNLQD#zQ683)1gQ;Pf48Q zqZ~^h4CL`}I}jD$c0y@ste`>V3a7jETi zvlK4tIzAPWJCIHS3C8Is3kyeKI8TIyay53up8^MrPG4XD1xp?;pYoWF^P?FESMaXRF7Az&q#&Q7%bM z=ew=bgIIZB3j|>M!TLI_MdQ?`Nb8Yukg#-PKrky|AdU^7j@g1&t^gF-tnsEznB@Qd zhky9+gIB4g#-yA(b2d?9*1hkMN8GnKvSfFP(Cyk;N`*tBkP0nC^Rw~z$S*)!w>9R@ zU0%I^|BVL^kPWs#-Ws-M1u1_zN8cn>Ybu+Q&7*KgY-X3!mY5s99<-N`6X`UgBlLE$ zRD6}?!hKUI8_v^4?%lhOv7^UW`WL?ROB9AQqKfeQ7RiUqqa(vIk>t&bi5xW2v$p0C zF|9h5R}jh#nWCx^Ho{d1FC+88gAd=ibBB@-#|h^C-MDf6)~#EYFJH#GU%c|7oJM{D z*4@|LEeA&GqfxGaJ=JH%VkK)c&jLlf%G6R)9-F>|z>J zh4M5v9i(Wf6Y&E1KgLO!u1$m*ynp!h*WY>jEw;dP5U;;_->myXecd=YX@yGjkvBff zF3WX%`Px-_yAe#UzjE)w=~GbMSR>5|u*=WfSGm`ae_D+ZLmjP6-m>FT8z4_r3rLDij>Bpr7-|X!*ep+v!M;ou3kaq z!+TLvvnU`N(2ubI>}a!268OJ*B_TrFbL%7(>=_t{+4{Mwu~|^juk2tUx`c!1u_Jz^ zz`pfEe>&(4G6sls9p4(hjTkxZ6>+6&O~&NfrP z1!>QY_~|yTz4U6bOtN~kRf>v0w@i|<@^ZtHsLiE2%Piw(P^V}pxnj@Wip$roTcr3) zU;R}Rau*br$bQ^ccYvbqgcy|6hOKuJbFguw8h+B*&0PS8(RK6d`h@D{^0EUnF?luu zik>?sL#Erw&{zWHzx|EhdH1uw$l@>uret6Yz&q+LpNHB(c){LX#|eNvS)O>vb%4#B zEc_FTR8>joY>4=&+!)z14ULVH(-v|aSUPp)=B+zYC+Iv32N+-ifIo}i3g$WxeiZ_&dHdR_%c!@*Cuad zy%X$%_n7-S0d2h96r=ofpZD+I1q%!Tql|Jue*d|Ud`k3>O~G=%_s4&N=`qd1y8OrB zTJ^;8O79UnZE6HObqMX!$t3~b1dHmeFGl$hFf|(5h(fmp7lsZQ_M-7?W*Uk0i+!$H z@eIO`gBg|zz5qL}j<=)hwiqs5Xmp!l5!UFgC+y#Kl0JHWLLs=x{x^#cm$FmBhhhu+#pawJyaK=N8N+B zPfj>3Rm&CIj_DE5dv~POz;=+Xz5{G$Bg4boL&ta$$q$vUyo??6C-lc)p&~(p*n(^@AAX42BiJtG;=XmAZCPe44_DU@ znF&`zUGNiwn;cYT@W*mFje9FwiGN|PUjn<=5%|4!jiI2-vsR7CBP8gG+JKR8J9>0N z#sb@8xmDP{+E;osY=3r@@uwS~U9(1yBet_gDLxAvM=?BY5@=9tMfH`<4v6+>V4QhM z4+3)sXH1T)j&ucYg8YGHIf@r6nS)5)P|t2<5=r z)G*7Z&lMDv7@$;9iSzH446~=AvbC)Zh4yK&486hC5Oqing!u*Auch} z^XS4+S~{dP6y^RaujAe@wyUcPck-<`Bw{ZQ61E42FD;dgFRaZu7M?Sq48!Dt=$}j& zcE!J*o*sD%jK!%_r&thn!2|*xK^pte@QCG^m>!vR9Z6O^*mt|h$*D7E&)exA7_eig zEO>V*<<~@rRJAqLrEE-z`8mtEJl?X&2fS{tKEfF$kdbaG?{!@Wcjk(O`3$|L;y8Q; z^}385IfpW*&>Ns?c}jB=aoaDP3njI_wg!&z=$Q~28akn|F%4cHS^Il`@h2Lh3z06 zbh90Ri-f|^7~0v<-Ud-=?3x+6>tumluqFq^Kz=$1bI^3K-c5~rGQ)-bPAwsTr1M*r z78Xi1Vg9U@#R8h?z}#imuD&QI+;~({%*TKJ6Xrjs@c7TCWI|Xfa*A?e=3X$&?Ct8p z`6d6bJ8s9b5GJ6{fOP7OqAFhKOXFkX$!6aP(AW_vui6s(?)f5qzkfd$o)t^kJ9kn< z!W3S3J77Vrm4)||1c8t|8lq-)Pcb{ZEMsM7>!73Tj#Zqvhy;h9a#pxbw z#Zzwz2DGGUN*%OAdc z?Fs^KtzYu{3ul(0dX=?@Dt1e}tFNh8Iy&p;nj$Dmu~9PxQ-bMQMdaY+=A``Ar-Q&8 zRBEvzm~;=S4oL(`gJp9iFrT5}W@E|0T34XXWthVVX?g$(G3bxbBJQv{| zjS(rK(i1kFCT0!iHD*#F_QfOiy8Nk0t8l$Z4}#vhtu7)?>G#9;_=5)BzKTx z1MLy}H0tUz?85sWmHfb&hv6w*w<9ExvBfGs;rIX?TkbY$!4{B?DgX_AmT-!X19n=6 z5!o6lZrak?Qo3`eKq^?KKcmn~ru8^^s2?tym$g1HxBVR~b$2 zb*oH%T&zp*bW8%QRbb|37UIeQc6^?ssEKOQ;Y@Aaq7|XsYF>NO0%1E~$C@~S(0hD% zu*Z`0g#{VUTN$CuIi{V7k5MZ_1~iF&j0MYpQQNV7z#jul>*241?(u?>t>xD z9Tr}K!>oTL9V9ttR#pwF=>(>eIqr=0Zs4ffAMI;UUIo#F?W0QOvgF_>Y zpA0fRF(C>7ZwH24(S1OMNB-d0*mV!~s zK?jsG>lg7Kr?yXjfbF6NV4sF|xV@F#abFTWVTu4`Srfp{OTy1Zy^Y*gT2$UVEo>YD zua+oyv>M~+p*jIb1<7)e@g_Wa{mR9qqjN8uIVFl}hL(Zu!_o_{UAl1l#x+@m`8in@ zFuHx?sT|I0YZdiT4g#?SNKR9>$^{=r^Pzq|iXH2$?FY zSFNyv?gCzuDuQLvP01&oloa87_?DiJV?!{Hk63~xlpfg@(+BMES$9Cip&V=n%N~dvwG^F9CK zpYx!d^OzCiiAo<6=_F#ix5KZuK@70qji^t@00nS|5+I%Z(mAmOf{d-Kqy)TYXJ?zZ zo$QRbBELiutQC`&;uwfsU2SH7v5Cq0gNxVh<25R4(o5!6ai!--3Z4ecfN`X~rn<@ay`&K^v zw4P!BTB@{DqK>qezYr$Bk4*8^k8=j_RBBhCkwVpaEbAa4KpVWF$Ulawi(o-}= zHsaW^W8eStzc4^%UriMh)h4fAz6h)F*t-2@Lfg?}y}aQeqkCR`{lObci(;YJOBB+|Ko4|&dKuVQYF*fl~8xqx+w78$5(&lUqc%?yl$r>khryvcr>fV z2+PXoi+M_mn3d9!Vho%*0q7{?BSV9t!%*Ff?xX(K+wCiejW$y!uyKF}vP2ntQaJHp z=M$gZ4v>;iAUx^Dna1*0S5-*hWZ8Vue7sgIlTCLoh-$le^Q8~J@unP^x8D93Jzw@C zY^OxI4xk3?veOwggd9G@^G?E1C>}A_I*DELx_hO*sK1nrHNS1;jAg$Y^O7=e7WbUw_rqTOWAzeGgu_+j{VTQI{`U_WaU$spCy`wSvbB)8hp>nY)VeO}XBA=wR;F z=ktx1%+9dj9RP$gn6L&0I)Ey46&A!dQf${`@lsd{X?;Rw=bMSkX_C8w66@&I73Mm{ zPW=#YF%yJt$mTC65N`+-C_Q~1R>N?qI3l5ljr)q0@*KGYu^B3$J0I>%T zB>$O*Y*0E)hDiyzPhg(Zj0Dk0j{)XBT_M?t1^7}__ost`ssKMdlTdFKAkV1gB|zFy z&)}WjPOybV5C*&p9N2{3v_15XrX>jo!du({?omsCo7UUg*GGi0FRGYdSP0l7pRuJ? zp3L0Bv7^VWkvDJB0Ic4^b0M$6z{B*tSzx>|se)V5{6;{Z$mWuBsOin59)bg^`Lf^T0^TzVY#aHg%d;6`A z{@x#cUsk-C1BFU8yciZ2(%++WLOGK}>~DPY-q%Z;ahmE^yNAejU1>;1p zFDVD$lTsaZ5N*bkW#SyN(-9}|Vq}?Q7;ILK2dc?}OpcGLOv4TE^SI;4(3w-qc)LtU z-^Lx;ux6P;1DI!5XB*eayfhYuBhy{KcIAs-{KE2yqx6-X>MtK0+LZ{NJy&lJ?}2kc{my}OGGCI)*OYAdBjn%%`Lhb;~JGoRlGhzZnS zO~XT>5l*cXK8pe3@OTIST$QY{r%2Hl@+lZa5;HJ%z)KZrZ)vi&YhLa)q*|My<}n0# zIO-1W2;i8rH>jP{96Ml&C&>7Wsl$v&-MCRBH(`ig?>H0VQ|HyeVXvx7fj!;Pxj?kz zpxy?b0kuu=6tG9A_X9+jfOO!WLbpFv5lDyO1Q}oXQ?`tKC%}AJ5U`!$Qv(d5Pk`Vl z6dTxkQyLzOf#e8=cSKyu*_KUcf<*vF;qiM64bqZOs?5uG=#XKbmDRTDsoA;Oef!DO z*KWSNN5=b+ZpzHS;80%PjxAfZBF5mbuI_-*rVw3gN7PYeN()Gb$pjf9OjcGV2^Y)N zTd64I7odTLL14H#I52?ELuR6iRP%Q}{z;xR7g&VLI7H^a6(aR4Nq`iAsoYz^QUG?m z4u@wrT-K!^hl~z^ZlVnK9=>hjKry(evR9D1Ez1-E5@WPo4?uK~#voh9Yx0%(2k@m5%f!RC<|aop23OD& z0XR)2oQ0C&3+K;DpZNB-zYV)k&ogIEUw-k$ew6QEgNlXi;*5fZ)Y^}|^A5fJ%EcEv zzcvHUbvM?B<4HNhykvb#Nu_J8XyHFq-5}QYMnXa|+V*7%m)L-sA1 zy|23q%ayr-9J=ZL8fzl#D=R6%ot$8tCR--X`06Y7U$#oqt(RWDbxUgf!rYux7B)hH z3swx?i9+3Uww`WsD;C}%4%%=)hT+uM81;h`Kqo=wN6exy&(GLB#xJXd-?(N%blRlS|X$0jiQu(Qq ziv}+Us$Rc#)xuS32!U5f8yFWx5h-A-)f;E+%;{z4Lrz}G+|M3fU+SuRaS+d z*2(VJT~2AInVVNdDxE?4M3^J(&Bg?YqKcLR`NJ)ZxO&H-hKb>Rat(HCZV?K+3CB76 zpaVo?X#txy!XHo%o1tBoJK#<2+<)a zK#d3X5z_Hhh)sm&1*jafTlq=x+)LNg*YpuCC#=TU*;ZDG$AR{PKLDsO%;mPM45gsP z+sr>E{gUBGip6RXxX+XzwH!Upel4JB~wg@NUP?y&z&vdIA$5mdYH%cE*>4s~$iHZ%FYd z?I1zu9GqbXZ>Q`^xlJqh-JaYS$*9jJfnp+-x z(l)k+!W^N&_Is*3LFs#PmeM*vn=ZLzE8VtJeXLjMj`3r0Ts9{G8 z9Cif$`w6zsh)AmO1MrTwV_bSDlMxS_naOG}4H0tPyVv6YaN@t|7TiVNKZM80U6$?k z6jTx7jF$^4eG2TdSyCctGCWWRvAE%(0i;MPMTBq|?IaRlVz67Rn#%3P&xwKBDr~oI zZ(U6lG6UXWf;I%(_4L7kJ`jo&d7FYJogJ;8{lb@i7?Yr(XwYKV(2qGj1$tkjR|7EenCvXuXwkD+Xqo0=M++sb$<- z5Y~j2AoSXcSCX+j%e0+ToF}Td6wJikl`~n9qy@awJzx~lE}V*rj}8t%@^O+oL)g~? z;ZsfCvWAL57lN@!JEqNVv^g$gM-ER@Lj&%i>40<;h>9q$W^QiQ^%Yno)N5r93y`lM!}Ll__)9;Hrd>efEt!x~Wn^ACIR{+$$ z^%J~TUyw`Bv*1F4P=){k`$|g|&*eL~xW41oL>Qorhlj~{@2$(|EF=qmn?k9=?x;f53K9WG6c_uQMH*CP-&>A#eQe`OHTerYf z^}}0HfeCa6Ay4t#p8(uvO5FiM3izHn%z@fTG?}ol^z_(@?vxpnEOV>3Eo_~T_RI|Q96$+~8E*kO&EH+Y-)_JjDO(Tz$uJc??|b&=@LOPnPq#fm|Y$$m5?TkW%Qo`MGk{#(g*h(bx-B@ z6yE8&WSex4FiWT1GsY23ANEP1W5{4w*9?E;LDA9AXU8HCLQU6BQo8Kj*fs>%8$kg&)+XED%UsN?Hd$0)W%oVK_UYsO$n5CxF;* zZ$3ncGHsVXgWFpN&=U5Q7ERuRk+NdAx_lMVw|%q6M4CNYysMnAAug=UA`uEtaU$B( z?W@tn3{R@7uHtU+%LvHO61L0#r?9&bXP>jc=x7^YoOs2E(AfRl#AmWM)lX+f+vG&J z6^L=m!Fn2)_^35!&h+4csd{n z={QsR30-<@WDr|s0<>7L2~-hIsHJUds}K@?!FI#^!8QCrax^U$=f%Ker@5drfiv?B z_lPHcg^;_ZZ>bQv0CMh!Fj+~Ux*a#73nj|Gl|W+b65Hg0_Q5-Jp@(3$uF1YA4==#U ze&S4ilMUuGG^7}6ye`Ju_ojTSoM<_?)?aj!gs!i~*p-As)XagJ}{yejqS1VRno zt_F2pPp5~%cJ7RYQ0(yNJrTK=xshTL;!7gV_`hD9AB&GXFMuT|rt1+IJP4FF$_Ou( zx@am$t4>$d)L7v96QBLU_~fLSWL~^}-HPy38f#QHm{Op+26Z<>7v2jtA-tU=5hd1Q zmQBGgh$#-tjsg&k^g+W6BRbfKna|A3_!C3}X9yfBx(xV&0tqlM_RgJq@{nOW83!_( zZGgh#n$k7**Y1PNPJ`Y){haEKz{^|E0ohpq?Y?&0+GX8XM1kSJ_K|=8s0}gDaL;Zx za)J%F&&hF_EPxNmMIth{Ci6?Ie@>9ms}~iOSAwGC=jU}K>r*7-dN->^)>8u@Be-wu zuYFeG$gl{f8rLvv`Un!P>B^1a4@!P8UI~AoAL1UGO~LkD#9fbwPLX8Gv(X$LGjfOr zO^%O%P=x&Uox5D5!=_to5jJb=q-h-P9Drj$a%{A`d?%fd|ETwQ``UvYjg~?PA+dDO zB*&TU^Xm078y!!pUu+I^|^Q8d!E!c#L*gjb10yqb;Z*4h*JcC?C z1(?M<@<=l#k}#wi-lFcpku;gp%O{P^2ea59ss`Z=P7&{5_#|N_1pWw7orvu&j0hv; zjtDPcmv`6I-WG)XKpg{Q2tZvjWxC1OVY^S`f*BWS82k%YR%1pUrH%d2dKUN6xij*gk$LIv)qBbfb*|mJi(E6< zbGTt&H86(^7$7!i9(C{vJi)Jq!KQO96&r8Y0I*GMKwE{hU=7+pTJIG+>IX~~rlAs4 zi}P`n!u&knG6b&dC$N_e1L!Euen1f+Jsw+}z`)5b1Y zsZb|nB6$iZB2?#Jd%)0+C^IHH%h;;+^k0O~6M04lS*`fX$X|&N^3BT3{+9tWspxbG ztV(DV!XxlBcEDZV)O68e2Nzx#8JjqMO$-oYjd*^-+t(bKrQ?itAe_K-3HQq6~(K>y6eiz zNWvwN-<~AM`3c)WBq7vzE_N!@tc)33K{VsbFHi=dh8!7{`T71*6t~8=Jvgz&I~A>y zO2ZFBQM_(Ps92h@6jj5hZIm#C+(={&nlwl~zM=jA@+RlblAzC*2gi=uYLWS9=V{f zKqgOnM@K!C!2D^1FYQ&5!?tWbG!A9c4A!j{O_I~KLXeBouEHMWn!kXy*WXMhDPQb^Oo{M5Tam zti=V)(k4D@c_h#+*1&yW84!{famiHBd16BKNWT#_MU^Sogd^2Ohw1M=(&=su^)ewz z>)1XO#h+df^mZ4?ia@}&TdLJ=%TMgq>y?V#@f3`a|42#RP9l91(?m^H z{y?KP>lbAPPEL#s6LZcipESEKoCgcMa>)?Zp}T(N1&c?UWM+PP0tk@Str9As9an!g z(W@;f;W(UcZLG)VA;uc7e%-T=y!X8*G3Edg<>8oR2pt8*Ss7b^hBgDDxmN@tkm%{O zVe7!DF)-^)<_vEKaUchCU>E#QGzVCbK7@m{bFbS4%~wDx$Q4d9%fY&55fv>N>n6hR zVYOO}8d8Brl8dGunIV~5Wswn5G8rKolm=EF)9mshvPp0`E{)6ay@Sah49e+XS{!ly;CkRr8>mDfAN-(0-hfaCoS0Q)ZhJ z;6L7;YBI207PY!nX>!}#%iYym>S+56H8nBHJP>UaykqjI$IVySHNTrBU=SA7y1)HGU4d(LCufjtEmgX590I3oqCaw*uFK@Wy~{+F;0MCN)MN z6;a2%5p}@g1ZzYg<~BNmedHb_f_J$%;UsK{S(rSl4X`f1~tFlv4zG>{xPq)&KQee;6yg8EhDl0nM+ZW~n z*e53@MV$>A!gHV#>TBLA;>PIEAf+1lM0Y`x^by904km<3a)DX^P_f|^naDU(PvM}k zpCmFFj*KP=hYG}(0c(I=uDe&(Y`kZ)9GjSJ()nnutJwq`v0Oi&o0%cA7}jd;FEa@{ zw7hfzwnONa=0og+%{5bYjlItq31DH7@li0Ygy=f-_SDF>!c%pI!uvSHLiq}v*7p-^ zM+q(HP(p*%=T)fQFSH8ZRRXUHadm<-wLb>b&-qVPrd4S7{3rM&rfIxCh zQ5(>%aAs``OiAeGQNlwoqG9{S4*A8DFB-76>FBx8nnIqd|Nq`RtUBuOhDspUKI~xQ=DG%tk z=BlMBj7Tnz$<>5YZMr8DptSfrP0VwlHQ21T?A@`&z+3?|QI7*9cJT^~9WE=;-%)XW z)h9ZHlPB>0bb{MKo516$Vu!9=ua{9U*+BNL8;pY}sgurwV;LPH|a}-)o6*3cH^jzw?loH%P0y$Bj@2p*AsoEBU=l)E>l}aDCs=7JDgq4Khy!Xe2CU&OE1yZ=9qoMzUs2Qk zWD7vOpJ;wSRZyK%z*sO1k_c3~#u?^-EVI_|x^>W3UychQxuT)JR75ox{P6dJ2NV^O6k@`j@8t(VodiOJS6v3=2e1y*eLNeVu6t(j4>3OE3Uw9QFkA+W#gna0shwycbRjWBlZPXp#1I>UY=9veDr|atD_K)`_$N^I+!kf2u3V48)(dmgX2pbfgQ01G-}i^ExG9hw7+%Lrf7_ z&UqYzKVk8>qqEi*6+~^G z8XF$$J#w(FR>p;|q`{MG_EqjB!V=h}(}>66fkJ!0pLGB}sEf8i@gPkjidrTz971<2 z!MsXihGyCya_(`oKuFHeP*$8{pL?P=td?Q$G{V1<#sWym_yEn0JQhC(!l<$<0C`Lj zTqE|POXxIj(aHEWgW^nggk2iHPryalNV^Q5g3(pCq#L)>ztlEA!cXva7DSodMGY&z zhr-*1JivZjaI<0fVU@(HG)Sj$ZM_|D0fqIJQC#%N2jou&D1mpt4m@#hMGgODg-qtB zxxM~`?Y>ZH+p;Wn7L%S~TsABks>iI4E5jjDaz#}h7hwgAB2h2~3uwc3n-`>(Y<5h^ z8YUpgcw{1+<7I(#I1lzE*zjT^IQrZ=_l*$hif43QmOZ_N$5a(DQ7q(2um#9?K-p+K zcQ_x`5DH_}Iomv=|3hGdfXL=ViXwxC%FC_OLDij`U+C&SB6;TgrOO}x%ok3bJ=@Y| zhOkzHg;)XqU^~g3nl0@R-vM3Bgbo3v(0B?-xkv7X|G2000*}#nQ>QE@fZrQLpqk@)Z+Qhf*6u zatTo=cssZSYp^}#x*lH%H3JtkZ2+?EFS8|i*IXO52P9#pWG_mG`qV6KULEN6e<~t> z%{~;B7RXyrm9CRxVYQ^`XxPpVk>uIcT7peq;B^9XvJ7mOHXy0nzS~a2#Kf_I=2h;m*N4bJ-}pt&tnR}2kCCn7!{ou5U3LF?4`D7ga#1@(Ye&q6>zBJh#r zf|SD25Hfa`7m6k%Ly%xBy+z~~wnKRQ8A6g@l6@vX()d15j8g$s=trw@@v$L5br`kg zDfpCFV)6uQh$I?I|HQ~J!9NX>$`lfV?dm)%PZh9>BM4s(8bH<6NmM~vbYRUJ7TMrD z>aJ5OW9r?rCaTeyHl{(yN%^%&Asff-5QQvco5o46ae}Oz0RjI(}Qe8dVQCI?eLI{0}}Nz?UNr45?$YKeKL;P^R8GF zyVwaxj#8-{uw3U!3@1Y|5Y{(OoP|bbSN)WyG>CYB%mmA z9mUJQg(xa|<|m%Q4yd#}@%ZB&R%?f`dKS!KP27=g=0(HXLz*nrSDhhKWd!G-EMkeM1 z+QXtirv%tBM#*?+AxMXJx<4|n%?BnJ&}7;uc`W()XbHVtJTp>Cs%uUxTG+a6Z)Iht z#fuvo=Z_v67#v!%X63PCfW57)l?LNX5&?K;5j6goDk4QITmX*8zk>&N8vCc`ED(6sN?KEs>9jz5Voeh!5KmSZYTxw)HNK_z=Bm^-J> zdm+qX>0D-zwR`8zcpRDhF+n=&E!=>jn8SY)cz49NK4E*hql8Z9J7xj1b1F2uOC zPn%{|Td`MlJ3@)&q|1(wmO#28+{u8o=_xc-1YUEJk8K{vWAk$)P?aV@kJ?O>05bcN zVLosbh*8dUNmN10OpMP536>}#da0H)8|pvu1Gg0*H#^%WE(*uIaq>uMQSeXAl~|u6dIj&7u1wsj+rl*a0aP8e(c<-<=eMz8JiE@BbIt>fkretIYD3- z5|tHB&?6{O_M~*ecEwBFigAy_57mX?OiJ*O88J}sZgWR5R_xurVkAW}2&++E77DM` zX^rd->WKS`y$OuhxlSs`bKi^Dl-T0iu7~pnv&V(}) z$L6NlHaO5wTYdM|O~ZW|Dnp!L#nT`9pm9&I-M7f0RXArSM$1bItonuz<9-S24p4%z z;1@lBAuu1u_GeU0f~C){UWKU3^8|ww6#*FVVOjuDP>l-JCzUuymb->WQE>(5>z*){ zkid1)6Hp(Gll;QE!FHfz9K$v_=ZV6DP{BDQHVC}Q5Y|0Q5dvcDCXT_rXpkyXJ^P`^ zsIu8tw{FBV=v>rJUB}VE1&8 z8Pw~Zc)llv_6qDETjtaI@)LC3Pq25>4=@DGF^t0rRY=;e-Nk*CA!V38eI*)h3X%2f z4qs&hXP;IO%0trLWT))dWy(iM>BX{|R8};j=f&%UZeAcIeG=@J; zueOpxKW1)|^i4CD$^zK^oLy4?upQb%13y90{Z@F+4%DK)0BR>BSuweu%!`BYNPD*Y zTqooh(Pr!_h3dJKx-$(=5!dN0kw?*#EF-sV;{<7?Nx`EjX3Lv7_(HrP&nQBia>@`!;#l%iC827OQ`Co5_O5n@?F zc%PpI*GMry!zOWfc#Uiaxjx(hqK}4m&>=dEmx6ckLGY-MX6_XyOq`Jgo(lRuAQZRrJ|7Y ziP0e|kg|_p(~Y!cPn?5 zIY<*RFR&r2CI~n_HEQ5Z#lokk4RjiX$DacZ0FVvsRqF=d!Uc-pE zIJC6+m1prQj7zO*%#J9VA~8(b086CHfcN5p0+`?dIr66Vedg&H69n7oFo0d$3Z!#m zF+<)i%Z0$Zqvusi9-Msg@Iw#Tx4~*h{7FUeNic`f3Inly(p!9b3&0#`T4!qmP&>%ciVK1D(eE=7RAEJ&VFQ3?Zq-s=G zCNt;c1%wjE3krza6kVV#6T`~a6;;)iy@uzbqod8u&6e$uDrqtnvb>G}hdI0Q9;Ff5 zWU~-t1P06GZzK#EPC5r?rg8*m@7$^D_4oFsLbpmr5%p6&RKG-x^fh7*J=vMUyZRlm zQ|BVZ(-w@5F^K*%pZnakt5=5y2g=QImM2P^ho=eMIv;MQfbSE|v&ilntHhc%$Se$2 z(1^%Ru9H}egndT_V;W2K1J;Cepbc1Z2T(f={`)OAgl|G0^2o4V>JB@|`ViYUQq)oI z7^L<%K?YMSD#-VAWEndQi0+kOyUE0iK3Geyq_@ilpfTbezyJLo=r|r8F0nWmnwLo5 z^QQQUz~}Cr+b>?a$dT8_RUI2As6_!NJ=8pQSWNiw9lTL2ml1*9{|0;%jWYinOn)Roze5%b)d z`EYV#>DbW=XU|w>ZDw*@baHv|#Hpndq-@FFuw5kxjDq(AwKeWukvJDxjHoEh2Y9k9 zlnow-H|W`s0j*30Y z5?{D*-q5MB(P65O7NT~PH4FB|Aq zfv#X<2;g}N_z<3HU>?Lre(I-wiks%jaDzG|O9!eeXY^$cp8&pE1?&(*T$P0lR8J-= zrVFVYSfsb=$Uu=a4d_y>1BWr~rO`>_6O)$lFhOENL%kFQIwxg2&2ogLBB8Jy(4{V| zNGJ(KpF-%lMX*ul@>;+wct@XHT*b<7r&wm=kl9%yLqq0A)$!SQwGAOrVh4%v>fbye zPD-hwMC17@p2 zncWOb+qU_6j1+1A{O3QfY2gpLi$>{Ws)CCnJovv&Q%PHkUtz)neZ71fZyrkPU$~`5 zRv~8W_aG|POZ57Jw|K(!F>570?}%!ry;};gtf&ajHn9mjM1kBe0G2S+wv zK}&e(|NJk*|1}cSl#ixjDK<1292lJ@M1(jaUs1@_f}vJN?LIOyZC3IjvcsvxMevTU zQ`$kj_=2<+RNRoI$%v~?`IFM#RBsf11wJOQYm=)fR4Ri-Z6x~i04)exRx=v5j47LX z&?>YI?NBodVqaY$>H#|7urpOVcvtN#0`p41AtMNDszwZ7nFH%~mD7t@4^KxA^P;_F zb_7?)auHet(hfvoyTOscqZXN^WX;dd8cnRa`ue(I`0?XMr;QPqo&fJiu-+4-Mlij& z5Ev>FfsQ$o)d{|W(jzyfPua2=Tp03p=Hw!{#_;dmz9qSxP=kt33=N3Lo9jRtH@~l7 z`?j&6et}m`z0piyq@%g<{OOa28tN!B!TNY`8AKJ{eGHd|3GRj5Ium61N}a$oxQt`N z(jB=mg_lYLT&d8_D1bW~#aj))7FdLh8)*ig{mDO~>T?xU9VHOh8Y)GLW(yR6`EZ@) zgY}RK!n3oAA(7En zQ>asTDe9RjMYiGq(1pyFpbVTJPbpsqdh6XT1>sc(Tc%C`FZ00=0B|o+Wtw^j6hm(> zR|R5##=m%Le(oGfnmieG!YBZ6@4_on1L8P3E$!WwgmgDKZgU;)#lf`gYCKx z5TKBxNDk6bCj1``zH1HW%SuX2L_iLm z7`G&410luv7Gn5?Pkma93AVGsuw87<9pmH!2Na$u@rk0REFBjG(rh`nhd-a(v#hq01+cWQig; z-pR$|C?EY9)VP>jIE~ON2JBuF)`WiGLMgWU!FRs%+d``Z1WnGTL~m2MhxMkP)V^ zvhV(V%FH?lD*#fJ>12&nWs(jEQ#y`|OQ^>B3|U3sQFNI+3>>S3#<#XKb#}J7mic^O zdtuUB095ahPVgd&1l~d$5tOdO?R|Yc*Kgcdwk*hrV@ZJZ?=9qKxASlX)* zx$SMu@+!HtK#-LuXhTtmB-n9$e%9DA`V2k*4an&TJfM5^{$2Sndeb3@^a9-dDW(rUtsIyYPIS z<0oNXcI^a)p34PwD;>p@NZe<-J%ELByi0AvW%%z%J1HhjiZgp2?Da!OB+N)jNKfEU zVBH=Kk8%r!l`&!mAvw`WdDJI*#Bu?79S{#^q4Y|>@+>+g=I`f77Ym|<4?XlAZ_~go zc95e46B5$?bAII&U}+2tV8`2q5|tU|vlL7NKwv1-O-;I*D)su9(-i-i0OGQ*T#7AF zO9Wef4Jg*IJu{<*pNuEU27cSko( z8yu*Utf-Q4NaUG`A+})GCl{BX2OcQrS>}c);iupI43LL81ew4bi)3YIfk$sdWYCo{ zQa8oK>=Tf+P{8eorUcvFCB(E%rXG!)@DL(mhQoEr%m!(kF4f4cpw!hBN4m`8-32|k z(){Z)r%xR_IzKrvwtUjWgL4EBNDe_TFhVZDS%L>2TzC=wBQ~&?Jw-^QTJAK8r>a7z z)O$pzzWd$p>YiGr>Q#Qf6`I6Sve^jpqgHjSaw@V&n!IC%5Bd*Adwyq@(EOT`{EqasAST^FED2ef`x}DeeA5zDko0uFoxXYB%k%>@gQ1-SGt)jY8Rj3DCO9WMm5|B1;7~y^Gs+Aa| z1S;%P(qnP{b{P~eUOZ2GF=Nh9Z#NJSO<$Ovu=Jg=s{kAz2tQD4ppen{lOuzc;luw) z2QXce!_SE`Gy#SK(FIVeRy+e|P(fA?1|qG9HxOp&Oj`=9;6H!FGlDyRK0?E>+VB1v zS`8&ogLEANhym6xP^}{8Qb(NZ%FLEq_=&IB6t_lrfD+r`(-Gz-Er2K_AsRZtE7xRD zm=zt>)7!Uc_EtNCjUK^q-v+(jY#u+V_y_E>HS{8End75YVY~L6DD#m5gbnH-cq6A? zAb<=5+u=UbGAFA_2baO6SJVj{W zE7iZcCAL6t<@C53hIA$jEyfE=3QGJP;LIpv>6kyHrnGy6H7lMm>pOVoh^al$!6GPF zC_h%W*?8h%V6dA7@{L#yTC2q!?ik#RRwKg5Q)CvzYFL zN6Bwb*V*wEU*P=Nvy>r>4ky&{RWD#6nfLYdV1xQ=TXXZ9Z@y(!g>U`)|7bae$?-8+ z3UFSsue5-G6qkO;`C zf`+tS%lZV;T)8A-xUev5>JQ&8%*{@WkDgpw1ndf6OpTLy5TpZuTwaF%?tox~1o?Q- zg+xP<)*8KQ6F_(ic)Q>bcTD~F9`5*)KmAjT5p#y0o*m8L`lE=9ug$CZ+Bd%bgCG9M zzxl@3y*qlHR$(YgOekaqun#_Ndn$?4>s&YwOYL0~46~DAV)9F2HOt7JrW`(TwJJ@N z($Q`s$RXTS7Sr<7R95nOBz4QA!ZBPe#)josqqY>gW@pizlHx+yM4*pdwvX0w zRoEi{-`-|KE$A{$?g$I$e2)`8k-$uCOxvqZsTpM68)q+B3~rYVZ>PG@o$lPeeb!{4 zCzl{RS4bdO-pJWg%a+DI=kLW6lo@1R>Y%B&?%lut(yd$Gh?00ggbi_lLkAmRIJQQm z(XhRJ6{{ob;A#>|(so-TkwCuK?sJi7v^g@xUsopC90b-HQUpHbT*C$ zVgvHtY{ZnuM~&g0ot_j^JzG$im!rMyDlUSb{Q9E2oW+INruzNGJGO66G7|S!SHN)G8%EiIFdz}n zL^(u)fE8ejFsK$>kT0{%FaTA7cjC`L38Vl|Kn=Y`7F4Eos6o=W&}_d2W#;GcC+NdG z2^#YD-2(k^FTid~0bC>3ux$xgg(L#Xd<9NZZ1)wAR8(I%=-J)KrnHVb=&(;e!G2xV zr#Fk@Qg;y~1ui0#?byz;t7^_Wiw__4e&2G>9RUk~on?8_@_7-OT!Fn)j|=nj#OTm< zcUNqkS5@HuZWoTnmgnvBVmz0gueDK)G$aVD{uCZQn_)nx0k(Sz94jX9*|?si2IkB` zlH?OG4w+4SM#cve@%Rrv{GNaD&k?yD+afgx+Iwo}1c#@jCGL;+YhD!=&FhPmAdF22 zWLvHKJ534kcBTin(Z)PuXv@aVZBOBtv|9gvP4~$_U^I(yr;{E!j`kAPm8TtM(y^?FGCW87MUdJc7zBXR_Yx@N=#;k zOeH(s#{;pm3G;t}&M zg@GhB$fY69r0<17sZl3?RvUlT+e;Yl92^)L9vYGMV_91>)EMHFxn+y|ObDPs%7nM6 zE=4kMEg2e^$NK?xFd1}98sVNWMzCE45_1e0rOButP>PxJr*@VWLv^*}6M{L@lx2yK zbAV*+I?N?(htUu_6511N2kg>5F?PUCjXCeFpIjnPklZOS64^0lA~p*fz8s&SqfNDY zUkbzG0A~SK+Je+ad^?U*MRXv|euPFeTllX%dpkk$(fBe!`vO;!#Ny`!7GVgo4GgxS z`Vd|S#+!8)qB~vALosBGNPb?fOearNTmXl4zh7-j8mrAZq2RGD?Ny}Nv1<8{F#@#%^QaUL|2HX9yk^#A4UYPY`l0I z=s*-{9i9&J!NbY`*PAzaPSxnX z__=3yaYvL#nWZVg6eQWBF;zOFzqW15-dnNPY>lR%8X6j^v#!E^!LnM62>y^#Wgm2R zAF(8m85H#joUlCg=qn*xEr??RbQiV96$Yeg)n(Nue;?>kW?(x6AmRE{!^=xc`~p!n z8=~0V)yX0-2iQLHPy13VxJ^KsnwSubI{r^fTVj2%J1kCTN4&3%hWz|v&RY(hIq?Pb zAlJe{@K2`!85^^rZvq7Pj6)9e_kwP{HgTno01$jT(N|-rqaC1R@D2!~8c~(Sc43QP z87mMWwzd}Y(A$v|VYH2`JlcMMNtcBl+H`-k1R0Xfr0?swx)@A8($V_2|M&kUO@&Wi zs+>L{Ua2|KC4jAX#w+{UuYT?OfAszD{nzgqQNCVVmFdLwU9;Nz<-2Lj+M8Y}s>Q)f zU#@f5JI2fWnFJW)4(x~&ds8T?H+kq#i)qG&hDIkQ4Ah_P?ddzzbjTnZ$_ylrNKK4y zUAJNFy6mk6;yECqv0Jb>gwgB_72?4G9r;Lg5nGvsU*nN2gE{*Z zoJXn^#-`Gg1mwDf7NzYajG{zas!FnDV7t>mbc9DGYQ_N720Wj+XSN#UvNkqI@=-|S zoOnlSW&+3~j(EA=GTq6=S$P<4bA1muYVj#kuOwhnQ?(cJaJ^;Bpaj4lZi8{X$DC*F z?JXLN98Eerl}`$|9w8#(h?d4~?%K7pxAzEVkZ}P$;E|g~Y1&u07b|wz@u5L%t+TcH z5=UTYU~YPXyJ7_ge17Tp0!T+4Ex?B`kZ9VP4k9$#1`%F%4L`B*!2Z7O!_XM$fkz;t z&EN$#4jSyTK}51Sa400<<%Y{fw$fsuG#~|Hz!~boDCPzZ14ijUP7n!#Lbx<5z+wgj zJ+~IxXsb49HXu!m2@bm*RD_KX8{9!BfW~~dwOhbmw|I8-N>B;+K%y?-IJ9&%8oPQ> zJV=f(!*FH@$XhZMbM_PGvlLFit5skc8lc;xAsCP2`d)6to(!v$-kc;r!gJUT&*eS- z1lu|FI*|uNv=}n1iQ-LTVVFAGnj^rSLEz1xrka=79Tg0Qt5|i8wt;jH0;L^vf`X|o zb?&&QM#&y|@6WQlL>Tqvnrcu7U0LrIV4_lbpS5NJ|yLxNvW73@Ff}fx{lXBgDoA4i0RWz(S2d+Ra0V z@8RSmdITFx;z3SBzlp2(5;|IJ9SYMn#_}{7>I$gJsaAnpbuc~=le`Y$>PR58Oel1} z&V`3VTAZIR54y?V-i7zCc&-*^!txEZaw&U=yMD`9__mBppnTSvkHO|K?-NH1=s+7L z1{mu^A+1bJvIu9-oI%m`cLD-rc=ff{-g^6;Wct2SoPsyreADV@3diZ6o1F&Ne&t(J zf>;3%PrP*L5(G2gQl5j0M4)beEo^u4$ncz#Uidd-)={6)O|osYgjHKno&oG{!PgKv{*1tQH@ zH^ectpZHY-VKwHMA=B$H&02XGq)V0^^p`0l_Eyv%04ePg6H{|@#}?*~kB?7Thl+u6 zns5oW@13GZrh3ZCFw1>0<}VwHwPLl^Fuz8%coV7d^7vxMfR5;mM00}pP&UV*qB_A* z;dzSfjDRDc(hhu1sQU=&E}}sVV-u$*rG5{xt*E;>zIwY3FE1{dQ(ch7z}3_ixB_}h zng-N}dMd@lTd1#7?Fe?fm(C6?gzun`yhu(N3oi2OCx9KGB1S&p2(&24lr2DR=^oN znV$aGqmN=8upQ(=FfqYYd*?7B?H&Y@cr^2>BBgL!&bGKJ#E0#P*1g)9;8!DrFn&u| zs56ITNfDION^t?EguH|9f?wELNz7vCoVVa2aMce3n*MQ7rwA77Q~H;ZbHS8BeJUsL@p1*(^cQO_=_xYX!7X4< z;oT>VKjrO6j64u{PT^5AE1r5vIh9tuDL;ea;!KRFjRGiDT35t>=Ww+cRtQX5!K(Q# zDw!FIctN7r!2gHd^B(Z7-h7Lp!FGVp1(VCFZqrnG;yjdQ4$wkZ!`tyU*3d;#8K1+Y zgaE;_c$?~0Ev1hmFOZ<>^)b_C;ed@gwH{%5I&nRq3hi}vgRGaA>CZ392|?1#&(Y3% zY(6AKrZ5>Z6sku;s!NKBWM7b3z%~Aiq7%1SK=x4`BH?(uF+bU6_l-GxbRTrddK|5i ztg&?B49ns;^3OYP#D$?INQc!XJYf+4HTn(z_2n1NTk>Gh368s65;`pAoJBt8h7Ho@ zsrpzP^C8PxDvo(PV1l2sBX{oHeeJc^q+dFMEa8oo^7+U|K58`|6cLQWcCtC-N9oP? zI5g0I;`lMQ8y*~-oERrQh_qT6gMUu!fJX2fH~@A$5GH^!z2n63qf?XPvqaBt!XO#N4mcC@4h9vij$}iG#n7AfBp_zfVWF^xN`CQD|c>v`HP?TNc=KC8f5X`V@DKK9;x=umG@uc^N#C#Oe7 z#!&YIb*joJq~i}BeEjW?eeUAL>&K5TEia$G|H|the)DbOlT=bKjw_@RrYFaFcoe7O zM`bI;V1I@Tw#&UFfP0}HU-a2Kf_t9GpXrW<0}^2`v}7PghXOsC3xL4>6wP5!c=!05 zPuM8B%5CBI(Px%V9M{3+I-XuSaqiSfdG8$lRJRctw)4!BA2K@ucsDwg5@=dUxi_c} z3Jnq?2S!q!Ma5zwqZnujS4j||BX8W07_XiBEm&3|1wO#m$vSXqR@ey7g8cI)5LBnRGYrIU-CG@kL0LTT)3=f*K`2h^ zE{^yu+u=rVULnC6{_Gsa0?aCyGnG>m)fMo6Lr9cR@Wdl{p;|AT_ne@QB}vEKPzK<+ z9%l>o4&k4AiUVs$oxsc_1t=y)AclLtF1WKKW|nguB#mn1pvTw8sVl4-bL=>Xrc>#& z46DcYuuLidhs-{yE?B*D;$~7M6A}K=M}Ceou2aiyGB6>+Zz z;0BepDTVhy_++tHq+K2eO^X+15r>d!3k%YW5uFz@ATvlctRVkur*I5b_jCn8(nAHv z7A;Y^xac(StF7WT^n_$T)?>C~?Jqpx#d;-bgN%18Cn4 z;)iMD?NEX+Yd@J7$`J2f*K{Ma@Kc}u%*~rOAuu$)clRzG1H&h$xV3BApgMCPixnZH z-a!5rE?mIdtr30g>Q%t5FnIfo8#gRM=Q;+wBW_>;{=fas$DDI?Ax3-Sa>R$xkzup4 z00(ffc;W;J!Gojj zKyR;_(byPMbz2e%9gPxdsh-O3{}Ig$xE(@aQ|b6`MN{M5;lXU4}SdV2br8cq4o zWZuUYuip9SJ74(LZ~XrM{QJK*`-Hmn;@sTzy%mt9d4RrIC=Z|qdf7EkO>8kM zaES24_ar)uulf@w2c)o(IZ$ahbXqfj%Jcf69aT4M=CmaD#!F!^5cq^h63O4E z3LB3nVIJ%tB;JLMn5^9R9$6C?R#Wiaq6S?^ZxN#ciK1 zg{bgQc_`!>t{GHUNEgu|RA!U|A3!g0`~18M=gw%BAV~Uz^eVhvSeXLgN%=gpljA-$ zgPHMBr2WE~Q+|W`zIOkfZdQ`NLzq~{7mAgQ>UfMI=<9)~fLF35Yz&PzF9)tt8w5r{ zF#v>2v=Lh=2SiR(=!3Y{;vMtS?4XsWj6Fg7 z9Pr3+q+fw<)#!bpzGM@61uBc-vlnj7BY;$H!AMc6B|rjOCDcK57GF_9JOYyJd{LbCB(UGK-h!msv^H^lUjoIj6#^O4Iug% zM~F6n{fWmP!|<6)+hfW4dQ=)ojFca|-ET9W-vpymE9vLZTg3ux#bYwu$R|r-hmBUr zN*=+uWT_FS;rtGAMQj?9CIJ}?YaxCB`I3SH$_B-iDQ6~Biv$uhXncGOwj1(;vZ^AS z8AOA36>Qj}4d62`;VBqK6l)3@@)E3tm-g)=4pMC4?x8W)^1J9=gQIo_y2Ta%$ zS5pHgPcD&g(RDuoDZWC{ky3p%!4E7q6YP`tK%AWAvl+%sIGGUKU4Ps>01e_N+a#GrK!8_MF*s_IInW&z|%2 z*X#G{y;ra5)_1@9>Q+4(sv(!*_nUw}(kW{{qU+5qCfDp-y?U)d)#j!a-@G!+x?#h% z?w<2+e&$Pm_uGGd|3`nr28=4&G<1}`pU9SAeF!Tsu1GfSsK?J8m;3YlPRF->?XjJW;^tyQdT-Kr? z8Pml@{c65d zhJXO%QDSxj%z*$O5fS?L4vZXrGPFUeNKHiyV1!~ftz3uY?pgw@K za1^w6H&7#i_kx*92Ec+EzK=*^&4i5G?(aoB5O44Zf0AZ^v*;Hxg&kyA_e2`ND71v1 zQr+%m4KWH8*HAceIA90$-kOW?M%;%NME?0cN4$k6;_Z08ouagw8Q(4ETAbi#fiWn0 zmfU64KB$L~Rx{v?^mGuj_?sUYGME9lp$vOXy#v9%NS6fa!a@8zuzg^EWt*|x;tssC z0`Y2EI->44R42dKan=G6##2E34cA@kPq6P#z;3v~^mdZ3YYiySh4>u+0$#LnFXF1DOBU)`<7UDtv~;Ko^U11u z?${aBO?EqI#^ebb)`$Svt{bHxn^!2RfjTb=Muq_kdI4#aj4GAjsV6R49xBI2X|OlN zWH$?he%!v27a-cy+%|L8oW+Zm8j*-mPn{!QKD9W%6_3rN9XT?7KWVgLga{7GfnV4z zxLaVLP?@T#+S)n`y40Bx+OcMx1%0>g*!}e7w_bVkYhQWqdq}$xPyA=@ECY*0Od%r` zwE?{2!y83zH#d0q9IS%Gu35868o}G58`WT2o7DoMrvtjNcixbj4uqaBG`(8gQJVp> z{t=wF3I2Li9ly|E;W`5Hd!8 zgmS`|ASWsaA^jFzHCAp|O4VfCRUEgJmn!k+i?m_jd({$83 zZo3t>I}6#}Im0{G>7_i*&?yY}(3HuDjr6pv$w+BOcf)uwsn$!$wv>(oADoalgQZLw zZ=p7m&|@^&xRS9^C4flirWo)L`l2OT*9B@}9fTK#3cYoIMK%hI)CLF(?m(>)M+##j zAT2(8pr<^=04P#TOyCFz>|l`KnUQ?iQl0crNChy1bQ!^%dmcWCc!P8?Dr?i4-sc~C zT(F#;`^&GsqIXX?)78};sXaPV^j*AN;})y$5nKtbsDtqA<>yE(;)ey)oj>=OKnnuz z&h6U`o}M~+601LwzBCQ>@&4v)x(7GldSl%WXZDX>Y9}+%je9QD_~GTS;bGv)Y#zO-I`k_gjGx!n*EBZPf%MgDR$1oL*aQq$ zCgO$gd|;@i6pm}5v~d&5WbqO9o%QIC1|;Ld+b=GWv2M0Sjt8+ zR?5-BHWq8GGaF`ZoK(95O{TybcXQU|9FuK^Z*a$o@i9}&gCIOib`}8xKHwcL0Zi=O zS-^%gn>QO9mzWX)Rbc!0abvBRiL@(?7}fRplJW7y zaEx8ik#Tr@s19o22G`?0fCzx=rg@5{gdr@RKhHv8_YWSVA&VU)8u0l{zcVZO#CuKl&n6E-rhWoe! z*%`7az3k$J^tdWx9fnWUk@=W>)W07mrN6)c6u2RetjQqmxC(v4h$^m51(jO>s7wOt z#c!vTIshYICJ)?=V%I?c$Y54`h3)z>;nWH~DYvvN69J@=TX&?W%R_?VSP;N*_w@_F zxkWk*T?+_Yf6d3hxIfjA2RWs&JHi+1P$76W%8>^F5QPxoc0OKjy(z)@ci$DNQHrIJ zfj{n85;`IjDUtkbL`e4bx$2Z8jsI->sM zrKeGD!Ev;4s>p>4PoR8cb9s2;si#b0GTUWm*A9ZM5Hh`7cScreXrz0DzkKCN4aF11 zThiNwQu77S8!XU#o_Xf-rAyCHbdh;F44Iww&ILetk^$+7-VVM%$5`uvj)~bQJerp! zo2*~k0k^?BMRfC~4Yf6uwbf<;E>u<;7fL`|z~@QPCEVVqPf}UY1|>hZ|2<;T*0eQi zWq@7HTGp1evsFC|10Z_qGA!~rDJn(1tSE5ZwK{sNLZxd6eQ&+hK&rNO{k7LBE>ljy zJ2a-tDokA@m9F9t(1;hZSaVt`pSzecY1-`BbLY)_sJgm-`;L7_j-KARbHB;K`ZzRs zPF&9AP;9(fb5&zQ1@5|o8PKDYgVAJ~0}!)b%XH$#ygA#q zZ&hxaH*Zp?jg9p>S@=8`X{2712mr^o;TwU%af$?`S_#AUKzeJ%7}tq!cF&-n5J1X# z0nw6^CctWZ)dV7Ua2!8}{PtZkWumhRbu?78W2iKNxlTF_b^>_E-r<|aIBuL24sZm( z8K?pxE&$Yn1=t>!OcZVrpG)RwIAW%&a%a{V7d+S$KF-3u8Ma@X}A)e0t6WcM9Z;3;E4i-{luC%(-Azi z$!;xTFHFd=-MG=k0!hIjP}Q|`u%>b)<=iUnwN>SOgq#R0A;4CySO#t7O5Y!UL!L2S z*zRSGb*XFk>{r7Fr_tk!>6SNvDoEv^*JMk$tCDe0VbaII0g(i}yAaI|Rj^%qo&VoFW^>;rT3Xf;*6BEZ0)=Lcd@*e(R+mA>l%L8IV0-D;e1L z3LfWOY#gYAZl&+QFUTjKtGJXNYj=b+rJsinHk=@mb12JBE7z5Xci`tS3Wp zvANcZ_%#5*>`ml!7T$UVE|4?gPjh3;@8afmK)QYw|ESj{^U_0dBwXQWu-?Xnpx!~M zyIUjkz@M%T0m5#|9P6ZLN0l>ksE*tj^-W6%`6nCmh6+}pPL|-Gk zc3LhhAH>_SckSAaRg1kyXia_l@VPc!C!kG5hnZ$79Xx#42-#d8&?zYq;ieUms)CcJ zh0sy-kt2p%9ucjuZ~$xv>3jz;w9+7CBh=u%#0^8SI56!6N7KTDFwkTy znv6cRr^uD3H#auo?GU1D*)qcZYj3=L=FAzC@#4iNfV^M~AWv^MA67_)HUeZ|HEaPj zJR0CwwW_t;(z_GK&zUn*OfvaY6Xwg1M(c}9V06zqx`3V9AXG$R9riwA#)^w*@5b{S zcPniMzhnjgT&&B~2@h`QSY>WF%hX6swzPJiiqkF9mqF+>Z4BNzW=ftl(gigcjY|iU zk*Ig(!NnsRR&JXyeY)txYp!M+y+}sNRu9;!M;MnD%t0XJA|AQi<;z#r);4V3vg3u9 zKl{~h{`lgPFW1!6`DUVrXolJ^0LK$xI2SKJC~`lyZ@Z;)lUO5EQ=^OWoHv&wo?V_226Wn zxDOyAFFMc7HyeK|L04VecY9AoU5JQSLYDOLIlo<2!jsBefA3Qf@`0`K$?_g4t6 zVp>KS&`N>~z0?>kZwk$zC6p7>?h@<%Scr@WrblC<2yqFm)eQumzN-#ojPwH#h(VQg ze|XLx!B`kh76%uQibDY%pp~eOjzWEP9|F2U`<+#SFpyW*n_I6_EGfaMb!m>gM#+91#JkHZ5@c?Ob_ z$)RhkXw07}eaUCtAz5rUZGH+>@3=F-qK7Ww2B)FWo3UyQ(eHLVQ)(X23b z`w7oOez7ANXtl!+!uH-b->d{i4%ck&bSwB7$eg~5Dq}dj{Ae0-u57)dendX&dRUz2 z$ztj9FL5w5Eh~M_6_RsFeqnofk!xdFNRGh13`mC0IjHLU7!18V)(1n*UF#`qKu$Qm zyuoweZ$rpIG4mi^fegT_QG4r9PGF+QnLd4z3lsbwijfELsFLAhzD2!!`Ld3V4!?zk z1^8I`$})0_feHMOzj6nK2AUunP{K#lzK3Gb90a_AQ{p8xO1u={V=;D&jf!^=<118t z-MV!?B1ul+9gZLGIeg?OHAZZj@Hp7MckjNpKmEm*UVVc&gVke0XtpTyPk;Ukk39OQ z`@>SyogdQ+#M=QjWmo@QoTNv0tX}=8Pk+uB8b0q@In*9eYG4kfVHC8%LL-`>ybOk8 z{nQ4*Gv*S4EMs`BEsa1-_nd@pkx*pW9QjI2m= z4!iP|nSuSqrwLkP*xH>h=@|Kg9cqg5C+?IRB~QWjP_%qRRVrZ@BN=We(~~# z^__F(%rWoSBx2a5{jv&}K>cIGD2+z(pqUHz4}-37T>JXRkVfCF;gkrlYul89 z)?*nmFCVb~;8;$dL?fF0p?MKzX8x1Ti9ue3N3DTDvL$Zm_0bF)j?q+Kr`#Zz32Tr+ z>*hz+u5Q;Pp@eEOH3^>6!HjMgV&;6uTku&Adf3q2J9b#j8|2QLIUPa<4d~m)-MkA^ zcPolC%7A7=POlF!?7$1B0F)OOsi+U0+b_(=^GW(jPh9{O&?nn2VbV!{xC!)m7v$Rj z7ta{AQ(WkBZ|Ibb>AD<9=3anj^}qX0D-x&XfL$ArjevLSu8Z3ldS8|} zAgb|VB`h$Q@S+tca9g@VKRHxHyp=z_i00zCur6e3!@+|GL223oxRX`p4VCpz5n2-a zA5r}SnH{_Zv(ivk>_`BybxBmB zKOwnn4Cr^4Y=d#>{Te^DZWxMg1{0jOsjMrnxWbO~u-ya}#i*mZL04zKkvp z_{ys^^ZJ#8Ne7&>NUruZ-@*_2?~n3ssiB zn$-u#P;naRZN^7#yaBF~*5?sfX3vH(oU%?IqvF2xyjYGj?AeO?OP4MyFR!j|XxXrF z^ReTnFFpI};UmYJ8k?3ZTFi$c=OQGnGUB_>Od^?|I9|(?SxnW^B0j47fWY#{9)JAQ zsgr=zOBq5nrof|LebrSI#cf+R@7cS1y%pERk*--~W+fFOKwXGoeD^s%QQ?wM#!F+3 z0wrk&;=xHs%nZPe7L*vf0Ka*LAHl5QznEWyv`-iZ+l@?O>_$8zme|6K+|76k;KZ-{ zyB1?a?5Xj91*!+Ia{*-Yu_d4s48kR`b2zsna2|$(EWLOtiZC`f1C$&DN1U2p_e_t_ zFR&y|e4SjjjqtJpXs?&&_2MQY<74P%DjDsKiHbuooCvpeXQibrApa7(N`#@3i)F!z zVnmOAmcfvRBB)AUuKbHRbzA&20{tWdP3<~WD@?Wo6JU#xPyi^c`{Nt#>?#1|PtFun z$~IsG;2GO-T^t4~0(?-ZD}-!7ND0`#`{3$%u#))f#f=F2)4nCtr1wVI$p$`$#6egv zxu&0P3wI3F0i9-P$J;@8?FGE+bYw_JTF4j4f8D|iuwQKrO2cY5=U4%|qVv`+`2f#v zzRAnVGl^9i8{GEFoD28lbzr;vt5B^HC)a8cNxPn?4$SR40_TmfdXVkPD?SSFqsw+% zZ)K$z(ZWCvB^67!M-Yr(TRivH-Z5}+*PS7|-F>&$%szA^y5@VM){RUPY-tyimSEi} zvQd%t>)WSK@Awj{qHrO&20tn0p~CD`*fV-`5#b73Q3$Xd!-1RzQq?4f;wrwpGyR)F_VQfExVyAWa$_3Qj;^lG&Q7unrIQqI@!(hAe5b0ia`NO!Cr_X4 zK7IncfBwr~N8OE+K7R2DeFq@_&F}r-xBvFl9Y1)_WFic=++CBr;D#w--b?w-;YxhodA;RY5=`*|c>^gM#puq?*#VHv5 z#MlvC(V>7HJkq%GNTSzNBZWi~o&Cw7sFNL1c|Jq~N6|q#q+%j`We6#;iHWePd93D< zP~Gr-5P0wo*kPR=2_ibq_)BSguGBNQ7}B&`1+bTvI6{!oX|zvdfx~fjTq!4)amjBM zsoVk1dnm)!A`AhT$24zttUMq{_w)4_qv0Affyup2a_QU;O2=yx_#A3#0Z@4o5EcR zM#`0&U@8tOH!q>5!K;Ees0B~hHhRyUVXLsqC<95y<%$BTFcL6MttELOr?3vhc@UVD zLn&NH8349mis1oMZ{ZI3d|+2JoPLbiK_rPK+h^WLi~C51Ln#>o4&;YQz#M8jrKymW zRDq1=e7f0?6kN&=$)5L8rx1_Xi3q+O?`6tsrh>3h)~Q zau9I7)#VULwv{bjr&!oFFh_%FxxfbZwvS{|9_-GaHy3RB6AuLMO3ZkKoAaE-1qJ&4 zWa}7Q95Ea_D3osdHvwQgSFLFZ@&HM|NWo;Y1m5J0LyX?OKtoV%>>QX1RCmmSaT7^ zjuP2OB@~#_F(uaMYiOv;9ow3k$^{GN5!G7^l2%n3$>nA27|C@|TVA?k5#`6-a6)8~ z0pp5Fo(cI?mB^Af0anJaH324Vc!hZ&T?$sQGiK{eSYUJw8Ft20mT8?gpC%Pfj0S*l zu&o$+-M8!M%g-D?as1&^4;wk%wr#7084Yb)QOB|Yut;De zU>6~yz~K^vrwQ<(aNY@Y7n=pqly)czjRCc3jPO?T2bU&V!gI6up^9W7k4&|kY)mZ# zZg_QRNd%wUu{j&zj)}m#31$weVX|RUr`!kgoHJvpySdhV46p)oOy0O*8lelWE)Qb- zI0#NbmXJ^PSDUDd`>_1{n`iKmRt)FDcAX#o%0np<5_^PDJFJUvT_HpM%t|G5pLYsJ5DSeTUuPS zaPDj+#)M!#%hV+qcu&}*Q{LU3={)K|F?z1P53G>bqyGq`cf)OH?}!9mJkviO9PC>( zk|5~*5(KQpSH`Y`{9cx|!)*@&VoV*P8W~cCE(b5*olxwoO&`H8Z9!$})FADFTA{<- zgFR!P@EmA+M6Vk^j-qQF>=1tXWvp2eAxQcYNlhkt6Nv`0fK8@rSk`fIDH?~2!E;%X zRV~GXWXur;FO$yNi2);)pT4go8KiQd#9-W}(P?@iUktbhZ#Vd8Up_TYbv zB3d_D2DVd`i5~D12ZG@c{=mV5Jtt2eId;6Qt!@8-1EG1&;0BE{lDT~O2>|=sjj3aL14hnLjf7h0sC`*P$P&2 zwj`v9FPu7oz?&-7Y6TN3RyEdZyD*#%1JVUyinpw)EEm9Ll+eH*x|KB!ay9PP z#w2u0_18>e1DOUm6ckg5TCh-?rSsAPU+e^LA9?>!@$K_wPBU&8C8rCI zH2-vU$NEj3+bSz-qORh@g%~e&g;WrIH#Pv`EP{a&=%osYZ)#|`{KD&xKXLhucfR)Z zZ~x@@@#8FK0R?HyXb~V^`o=d-o<51O3n)6?bK(o{e*KYij~Yd7Y^bGf33Q~lQ!02; zC9ljOJa|!z5}4>D0p6<;BmkHy18%}Sqo061I`!c10hA+FPYsPdKpR?41h(vr#K#Er z$l#>k9R27QAxE>3UIxjYEvhrRpg?%G%iY$kLV=1Sx&T>S|D*?55RwA#?ST?l%ka)q zcvf)Gq4(*CfnT5`t9l>I7^>Uk-=7inx@f-4i+82P=>_OS=)`G5G!XW~t_yHSR5-w7g+v09gq#UCxo+!fh~1wDFFba7TNqcm-`U zMsw~R;412qK0ehT!fEauz*#72ebSn$3h^`g^<-GI4eGK_IKXRTzbl& z^k_4kX$vt8Uoz^78)7dSg_mOga)o2alAA4DTS$Juy``w8V`+wHkMpd3not zt|fY?w&l+Z?0$7iVLR%Mv>P+cyd9qNS=yjpu&cbghV0cG=W2D66)8-XB{}r#6cEgo3{6PO2S_ve+6uS$VxabW>&4`%g11*J)6YJC@rg?p zo_KQa-n}%LN6(#q^X<<-^`l3RzVWGdG#j&ocrC47pxxLpB`K~LEwr@k9MJ96fU{Oc z5z^>16TV5*4eGA@AVx=e=WKvoe?o+VXbh2X!W&%WU9?t1W!c{;5O%JLl?gl7Ou~4Q zMKL60sCX44l|_Ou7`j&fSeYNTZ|txNd;{G|H%+Jjjri7A#*QVkE4H zg{v$!4EDpqZ|~t-jk>kG6FB%g*u{DO_}BrD`}79Ax_!}vbu#Vm0THs(CEhwY$} zyMfO-Q*?FOa*?@OBP{VzWL{0j_cMe@Us808n@ET{PdbptqNWGk}88LNM0rpnaS< zOcaV4<+p}J@AV+AAFwbj5Irn?ECV8m_X9zgr2Bg#_p#2oWJ&}3MOh34 zqN4H8LFTGkA2NuiZWjcGORmL80V8#q5aSm&LW3P-$ucHOB6-}$ogIO1&>q4Evh{;( zgXEuov=5vqh9i9nYS6uUvRW(MLO#8b9pZ+D>DQm|+&gNOb`%2imQ@>w_IAb@wQi5Y z+_XC_REEJgtyPoPBoR3XpZYAZAPm^|3;Av7)V1Q-(0loW{0^qqxm{Uhiq83Fx}GR{ zsO$c`;v*lC;OaD}3gUtM$5S^%3GhcU#x@dk2igDxPE$GJ?eH1iDsAth>kZPCs$!9I z){E81JQ#0lZD#YhA>s}D$=2E+G(&#qgJ2W+S0I2Tdp+*YFdsEQT(k(;u_b6ptdc4v zVMJ4sez>n5Sx$VsrI36vtkR$=$p>eiK6Q%jdtFVnPCG;;Zi{TUneMt}%N8M#pZ>zv zs4-$7TU%Ql+_!%}@PFpH=exVR48S{zY0us6l%M$Z>MJ7UL_36qFXnk^gF9y_>C(1#tXScbxJr1z{P`6XmD_jhdH$8pzV*3x zzx1u|zx}!I?%jJxMI1ePWY^B^dL?KoG&WV|(Q}UqW#1_Vbo(|tt5>&e+-NC%A0uip z=L^EaB8#iz=Z2f@AdT?cH?4K1RxGzfuo(fdTmw`$Rw99QcZJg!SB30Bh$l~=7z26Y z3B*Rl4R=BVJq@UWW;0r58CY%V0aj0ZAk>r!j43rY*!WJ-sDiO2`X;e*G7}v!?0%?j zXt;QkRh~vWOPFHSLG@FVJ5d6PBI-7`5<;UP*g@byJ<&e&{Iv8XJJG|lpIAx^3KxtV z!Fr@&Bou#k=%thu%ttNs_&5UB=&*QY!aKBKgHh4sg8l*Q@RkVA*FX$%@d_*R%$n|? zIX4b+a9pIa(#JweNHiwia(3t`qyp(=920$Y|5;S88)6+Qv>^p#4h`PEc#*LW zUHd!w03~(^R2ixxux@Y?RXkBg1!zDLQ9x|lS;Hi<1X>v?ivpxfTF#x85|o9t3%UlL zmMXpL4z&Yw*u4C32W-+ix)w0a6l{T+THE4KQyZJ`5Y;K3a;h)fTWLnU^b@HszovYDtjW-5dd5j`)S`?ws3T&@c>3 ze7g|G)Q-G`+v*O3Q!Whl0%~V%Xt_7iZZoQrgBE>R3K=tnugrwW55!Vwksi&U(!eW5&a%;agaK9z89XR?lm48%fFTDEt8`gdi#i45t zbg)25wY~#zmWRT^QSf=X`N&fz86-u{$Ci{(b~Q{{MWTv@Midrkn_g4va|ffl<|`Qx z&?JbC-xS=Po|~_7~rO_pg5TS3m#t`#=Bn4}S5RcfR=U zcmDbpwl9D4M~?jc?|=W@pZxOFnF~voELDA7+qPD$TrQSYi77f9VE_KTTeoy>+0wad zSJ$!bWAJ>_CevsF)rE7cYByz}Y178_`hEP4pd%YpPg4fWI$qM;RL7sv3PdGwuWE-l z?+6cIco7{HI%%d%p06at(aH|+jbei&LwGn(pw1(wkOWu)CGegi8w;VdFT;);t`ZHl zmdbF*jKirV1$rnV&;_uF^cgZp6u}^h2PqzaLvWOvofCPe7KR&GHB;w17zZMP4}|`c z#?$3lZdo0?Ej6`mbP**72nS;vJW$uh@}WY53?;B79T7Gr?h(gu8x2qgfumqqDvJt2 zeu}90`+T*Wpm7J(7139@wl98WTYD<0@ z)xGfv)PCHq&!6qsyiwm?EifwSSrp6VAZ(hF?v>+VWBP_kvGHeg20w8lgVYc-2QFEq zyD+Zp9TZ(kre)JWz&jVi7^3;y(O0eUPvVy>#$Q!kw_($^gGWzZHi_vwKmGEz{~Lt= z@BjL5Kl;t@zWD9$ednjY{QfU~^Q|BL?cV)|e2ikm0}rU;@?}fmp0|KqSg3M7a`Xri zF1{$(d)JPbh`MbHu?4pKMiOFa14=*}CwCmMcXX_>T%_)mKhavMh5OLHd@T<`0zh;Z zSW@dBVmH$!6D4%>OxuC>1|`iRaDnOrr0`b949x)eEHg(i0(pdxWP@ZTBiB#IUPK%k zBpqEkdQ7Qx7idtUD95057&Nt7IRMY=#<-^&h7O;CLNR>&1W33c#!h25x`D~d1J}mD z49&9K)a+y@N4*Ip9@myAkW8htS$02sc za4>F@7`#hqA6@s)Z|3a~-Ui#b9L4CpydZyv(Lo_NuUf%7BX*XNkP6Z)7)#idK=Le? zaj9xlV)Y_)7DQv_fpwNkN?&$U<2=5xF%vD(SEvr_a9UksU8>|B`*YLEO`|hj1~yG& zBZO)Q9;dZhSX(dBJ+%T{TAyAU9a~Z&Fx!x&Ayh0KszZCjnkFm7;sA{e2M-+-zT&tj z^utGw#;|F3_wL=hXz~#LM9;$q_U|XiTz>9_r!GDHm3O~oy)Wap&|3y{5MVVhN7{3K zC^I-Y+@=MgaQY*Bcf8Ahdw47Tx9Gw#LMxgY2~G8`WWrqn=pYL>f>s8WtvVZ|iq1_b z1FU4q3Od_?)d&oew$G552gd7Gyai2$nQht7v1@B5Z09@NS#w70CFb)<=;T0oLku#W zyOld=CaO#a+>X}4h8Zwg;)!g}6CDY9T{-buZWrQ+1Q@%_+d+z#8Tc3FL zwMQPme7O6}lb2uq!h7HO>ia)<uJ)R(^T>f2w~w!Mp@tQ}~lE=)^Ci}Si2 z0Z>ZR@f}^;Ddz#{+bsvN3O;Yyyoor5tEbhG>xnaDb{Y-UoenRA396e=U^vw@1eg!i zjk@v$eks+U9>N=ujF~=Gnpm>PqLChi`9m{7?-3F?j^v;>_DPJ`6x4#$@dS)mH*iJo zQB4AZ0aGx`2z@_H*ZcvW-x^gwV~6U6qb#n@Iz}18gzc7MrN&DJv~~BeeQ8j7am`}> z5fa@%jl$H_g%8c6^QbS>J;*u*CLz48A`XudS67r7BhcI+o(Zgk7o*f6vy2P2ufwgQ z#Taifa)&~o_b{0+WItMh`-2n!u9N5w3XH@UriLIT3~?*gD5b0HvsefDEJo`~Aixmr z0W>Vdh6q7Ct;rEP_$p*`+=qvZGhUzY5CB5XjE!K>pOX1?1p2wqO9k)!=trTblsTS+ z(S~BGRIYpDqlO^Z2Il6-*MQF()Oj)?l2WVRoW{z&MRp+p%b# zs!=Qq37cwZYGm{*8RJ565f^Es*N?*=j4~Fnfcs+^CDff1qx7_wm<6w0%%6vdk{@*k zv$co!RE z@qx!4yYSXKpT*uG{FmSTCXolF6hWcdNgM52M9@6%JUPGD;u2JaYYrAU7&7GA@tJEYlPv**u zW$ccm@CTk}Y)`|f;b_tv5P37UML;$bvTWJ1u3h_HdgDuPe(t?X&%J)`!n5D`@y~z# z``>^0+u#5E*MIQh8=vof_-t3#ZsQLs(YqL+H-#;}@nl)}2Yhj6yd@MeTtjTYPL_es z8`gE0xr%oGi2ld8WN!jLzVaTjYG@vc$dVEPo6ip1gQcRFu7#PbGV8|05M6j(YAZ9)f zu!6Y4QKO2ijhWUuwoh*#JaC|~eiWU@H}o&o2&$J9nQ(xC`|R3CYndtsQC`y~O|ss# zVI$^*LO^%$4&rI=e2&bBc+`o&$w4-KdJCP!kU0pCP&W9IT1GN04KdIc71JzK1}5Z* zE94XTLPC}u5X6o#GdS#7%!w7Dq`7OK!^5?OkXAl^eZYbqW?EUDb>YB%*(w8L5-x;( z_F*{uL}l4__7nj%#xC!>7cKX8IsuxG#|g7hEbai_WBWvevO6vVnue>um$z_3_^g#7 z_Lw>Al^N+pMRFx_ZeO3&uVg5f{)3E3>8z_9aR;tMW;9Iu$dI0tIbz(9rlf&GMTo7b z+AwyIt}~(xZT2--I}pH_h4q@Cgw`u!BC!1vH$r0ot|UF3f62ZkyBkpKPnyb~yboY^ z1d;=4#5}`w{?oo4P!GxNOO}ax=IZIH!2FEu=>?I@K1xGnY53mG26fqnB86i(HYA8C zJ!ujX{~J2IKqf1O-51LyBY_w=PX{p=s`)su-O5XFh8V+E&8lG1%n4lQa4Zudh@4@i zzHnzDrh<`1iLy|Mbs)p0$mz@)T4kJig_&3L4&)t;lx#wKhucVyflk;C$=9y!u*TH> z1N&e*ncXt!j++T9n*H4Q^W7&-P-$Skk5*f=_cNdW((^C8WIXk2?|rwkb7OH~f$pck zOE(ARX$&+1@FBb@qR>)J@mA1S)n_Osp{Ud3mp`FSv4$v23)&~~O-lPbW8Ptewq!OT zJZ2pBr+p>KO6}xMP@sJ*;1=S%=c*XVXfmjmK-|4u+qZ38C(s=-Cod4R9K{-G5XvI| zy*?qIdJuNP%#t`G1CfU?SE?*!?5-h$U352FgBgS^TWUW^>2RvZ$JCT-@X5{Uw!(E?;kmOs=BJyye%?? zym<#rbE&=Qn6=kp;$P?iKJN5qH!Ts(*fd`mi+&^LPn0!{V*(BQw zR2LgFejE;uTA;Y#9gM?Ob_memA&@r+OXacFmJvzI7m)5j9QsOKiK(k4qsLeoV|dIx zPh*kRwO6RhegH@pV1vD*_s9v%mkjvRc8nR>!SltA0(MdEa%f}KGK{Nd$;GF&WuJ%A z=>YGMe@k!{8>fi5QM7Jq3Al#v;&izoGzo#Xk1A7L(kczJG*Tj`fdfoCbp*zVhg1=2 zljdXYD#xdrjE$?@iKSzQSw6@&Os~BLT%hq}aAVMV+^}7=3@Fz5vOFEbKm`MABltXK z#JDG}ZnPptu!I?>xsZZw0VaS)zu^N&0pJO`<>(gp#w4gW>>1f~6R+TIpvE0!z&nP& zNS_bW!36BuAAMfRpw@}2crQIH<<6vG5e(rDG*4Eib0LQkWAzdDduJczPV;h#dvY8M z@*tp_uTda$HyN;jEV`nj5-~$%is@L%_R+ zPvYQTq*Qd^8oXyho>({B4v7Y^+Z?gkQ8+n`u7~Q7)qJ6|a2u0%)fH*{6oA`7*Yl3V z0AHGXP)hevcN%px?G*e;PgkmXbHTd=I1RctLp>;9Gec6m69=ub6uUxEs_@)_1jqyJ zGeYf1q?V=xnZq^QHwf{joZA7F%pQJHTIe$cBS)wveL!|@;+|#_F$Tj!G&X5Yc!X{y z4IeTHmXJn>JEns{gLD!-Y$vcAPKDvbcF~WT`k}*z4<0@Q#tG~~F$gk}oj!9$+~d(> z$LQ^r-nER(XTR{}7hZhn^5y5g{O)_g@O0Qc#S|^_5kZF1uCDnehz0hyq#hu_8xoj0fs6EeV`OT9^&* z;J6F%b_Cd(11GzW)|Iai+zxV8hYQ`uBczAqE_AsIb*voJ(_s5%yy`A#2zgWH9IkxE zg*s*CM)fnvlp+_yPu!ChM2%qvQT2HH&>_Wzg)7U-4jejSwDi(*uU@?L+-JY??r;C_ zhu{9kfBfbTf4K1EGhJPK+gevo8b86`3d zj=T)l1Lb{eb~4B(cQnbMCsNHB3HK$cgMDd?{yGBWokb%P4>mMXn@R{Q?SLnl-q^aU5y5s^92o^;wF>> zFW;wkZ}WtGN)^5hBo9lOmc;BT62vOCu>zP$ zLzXCqNKh1>XS4zD0W7BI4)YcJkbUg4CRoo^0bY6w4PT1_o1`-?z@wR&5?2%mcH%7q z6^JLwt*3x0y;tI!yCJJg6W#(ncauXc3$(ir50Sh?Oy)^Dckxpy&xtt2k*9&PVDD)m z4^2#4%k9+NfH`r-uePfh+J_j55nOn2D{KSjE3f$I$F91{D}!sg3MkIlZr={jmVj21 z&t`0g_RiX}3-C*&u{k1f(qTT7b~2>Xm)tcx0^V+9K_Mtupu?>zSVrRY&1v?Ij{8mI z?e4*$CkIS9D4FTKU|$J4W`jtn9HN_#!{9}L0Yd6NN+OxUCpH?UH?b5r>n~e5gh^|C zrD=UU?1kiFa7P=FewLN*#*Y(}D;=fR4UOq*3r*>hmwbYopj{@YLU=Qn?CjaQXEWV) z(?-1g;Zvt}?H23axNrY{VE*vQlRkg>#HCB;t!;Apv{k}RoH+6P^DkVyc=7ocUVP=X z*PnUrxv?dqwf(+^{A5*x%#_LDuLGU<<`{NF15_x`wE-?A!+0ErkZN2Bq%K4V$H zU|Os%(NEAt+&t!C-MW3trpwPiODz`(gJ7fLv=q!-U18&m^|iEL*j`<=vc0V-0eiW# z;9Yu33;dTLd4zW1G?rh(^PS=;46urC#r!e(0|)m*cs`mhAjp$(q=EMAgVF+)mn@tw zK7`;V1WQHZ6%Za32h;i< z><%_sC0iwflVbSZqERC=dnddj?Nlk)Zp3PANr@gJIY_PmII|}_(q1@R0M7hIM+nv^ zyr;-$sbJcPR_Ez9xph{yxdyp)f2^J&M*L4dhK!{HiNM68HLE=ZZ8WYF{k?c}cGRFIVPEQlxr}6a;DibEN&FF1NWP z@3=`q_zwag-NbQsaNHdNy}f6ws1`G}=uRrs!pOOe8+yw#tvEoH=-pMT_tghf6lC^{ zV{A#ENX;UXMiezhpl!elfa{$zd!tlrj23D*EGGNZ)t=}%VaT$ixQMZt#t-Kixu$^& zK?c&dUa+++8ft2&ov6EMDO!XcC3X#JmPSbV9MlH3`_ss&6@B;a+qb4;wJ`S{AGX`S zA9X)+>=>?YvJ#D*Q1i&6=X^@z@e3D)KAt;w{$x+j`E%!9c=5$|KL2^GNjrjs)R;+W zV)wWGDk^6tJt$mA4wA}_QupE3zQ%Z^bDH}qWf z<#lAt8EsrE^v{lt5)TSMVnq91tFsE5(KO96h)<6pd-emIjf4)hxb(>3HMQ zU;NRpe*4$I`t2|N*Z=v4Km6hSpZ@so{^?(ye(sf}OP7iva-FtgRF0c4J|D_upW98< z-@k8{)xRh(Kp6d|q624W?CVtcJS_&WH#OF-Zg1JLc_ZRoTU`P0QFLCwC3e6y*Fd62 z(S=P~BzePzb+DaWI!FQ{ZoqabG~*FILv^1uJ*J*9C&13Z zWo5>|IaFT+#F*KfS-uVG0$|SGbUb}EZ~5XymKyM90)J7l<3%=RJO}j<-f@3Ycp_wH z$|Q?sj4ARdhapkMWEtbCLx&P%U_NoiK|DvlK(2CcLI&kT)#yUC8WAWrL6o6rE>%1OXrphjh_XH-49>z*Q8E_4J2Japn*nZ_-ItcFVLltSjj(f@yAOh^<6epMO zM*up00k#_&F!(3v%Z?#nARpi6NK40fG-P&9Dg+qM_zYv++!5_g0(Kr5zCUKRGIiRK z2IUdt*93-c9HYj3lYGH9IoDFWi}x0A;y9(n)26kRb{D|_L#(1N~Hw+)?gIkQeIxRdi5$mtwBL*g1mmBKgG!#t&kqM(p<#C zaR;Uy(mBBk)t$?zuB>45;td+>>x`%_U9?CC+&wMu($%%2vvX6|&aTIwc(UizDLeET zP5$g7XV0BKC)}>1WA)xWyUnI~=JI7bXHK7@-#qcu6aVwyf3K6yv&f-1W|=i55)Ruy zmYP){DpWn%SA*;vq}%80@NK`))j_raTA96#!RIYf-WKeI%_tm0lOoC(5`F~}SSi^S zerBhj7(Gi@4*t7|dxB_%?9TemzIoqPU$bD=^o;FJX*F?u8a(x@i(yO+hnF8)z5~*p zpglrp^fyD=Ed^}RMdC+NZQh+_8Q12@W#L+fz8H5ST1hfka`3?6Gmk#@tsnmEXTSUB zpZw-`Z+-SlFTVb%$1Xliu9-7)Ca25*G#@XETjH5|TUfWTPD7%UcJM3Wghtd>s zVvA8!@J^Ol+p&rQ!fE~hH zPtrODKt7(es+I8GP#@DXee}fIL-2X!vZdfudKR|l%Wztb{eIH4I&>Vo0{sDn;h zMmQ}sBMHOHM|cPO)Oa1AVEf~&Ei;+i!QmQmwU6Awc0;$)xC9<5w+U7^E3%|;Nm6ly z&_sA7p~jtow){vOt5imuOe`4AnW`N=#T>e^B_&z`<|DBh)T@=@(Ab9zrWIi6*4COe zbrKzZ8fQaYx#w}gXp z_F(Dr=c#wC5%fU-?^U^S`RJliZqNMKe^y;UBACC1XzwtMq@yL zBL*O&ZUXIIZcfYxtq=*FV0-eQTOmD*bvy75i2UI~olFujFXllI_>MF$NpATg$8~1C zh(;8Vy(YRRw8tu((rL_AjkWSMfp2M{1Ak_m=bLnV41PPJ=wkE9xikc(Nx5M>E`7zx zFK6WD?wRE4nBr##Hu4~_9Z^q&t(Q?$yd5%t4z$YjQ~nE31830f7n0-WNOeN&&|&-; zI?A8@nIk+Gh_)qc|1i+DoC5?TWjD4QMpDxT2jpH1FWd3wKyAOq$S zu2{Cz0>7nW$D}Cqs)pKXuTmbj-^?s22u|m*njcKCn>c06y~L#K6UEI;X{|6zV!4n zPe1a=nScD(f9GO!UA0ET#&lDG1YSoSc^423pZ&sTRR(*#EURUQe!;IT*QQf;)Usq; z`hXfJ<6rQf5mxyLNi1cP)muA7dSY->B zo-0^={ydD`<DR~dtjVx| zF;g}GbttF=iot_`33%tBjOG|*Q4SbB?9Jn+oSk>!CD_c(mMg!hS3gLC1VHdy zX2W{n0D}o&XKe6!;61?Et(X%7!ybW{9Y;JU(7RtO;fpS2O3Y~8%EpBB9o$l4%$(MQ z3n@l#1arVL3Sp%Ntq~Umwghu&B(`Zy2qz^*$wbIaAXOlCi0bzb;VF#%xN{tj$@MWl ztEXf2ANS9l5q?T}=Fw+`AfL*|DH-z{-Yvz7C(;`qzmpm{hwZup#CELAj%C={pgkJ@Lsi{gH2-~+^Ns3RvE&<%O@1ArU{vg5iUpNlgGx<+=9*~~V-mikS z!FCCfMDwA{+hrB(s2%x?MI!zf=nn0LPk03#vCP#Kh(cx({*+L)LMnL0TCxBI4NwL3 z%Q*FU6Kxp+J+xcQlC4owti(+WZ)~taON>XM_ei@=sPuR~Qek8NhQRclk#h!#u4`6o zO!I{9L>T|`2tq3jt%`x1Hf3^6RV8ZI^Kg$J??7GJk%{kr4b-90BxJoD^jlKY7h-GBEFze6uUF&{*i#;%~5+61;n7yu?=B;Y!M zuwMWUNDV&$?d<5YW%3RMBZg}@R8dE4QmXf>uewTYs&N&n7NEK^hqTI&6|*rAid1WQ zOpkTJTW!P`)xBp-!zyMTV&b^Vd!HZ)F^dDx$l`atXb2sZTpUj@`|NC znOaq~@S%qw)u8_USqp0C+MeUbUVHsDd_44)b`-j{vZAc1souH)02lU>&EYo6-PWS- zB_yUA8n-kzw6-+x1uo$ZGPa}lAC-1WR<*5eYcULJrfQW?+NF!w4a*UHf+xdvkZ!b*K!LH_$4)__cnQ&uW@_NN z&PwPYbpq!5wE=J3Hs;^I3`Kgt*PRpoCTcMNxD%$EWJjA#_O@tbHJCoIh&psV9v<38J!wl1J{u~ z_jiYAYc#_YxtLu@;a*m9Y89W)-i`&C5JfN9unA67f-lFa#~ zNk|@DfUMzU-tKrxa0O=}fj{gRjpg`KrNk#WxWfDiLgg8Jw6_u7P|56s+K@)a@@uj# zR}m9AHAe0?zst};gYFw>WO;zGB(|zMk7=MnxHp>w@93g7Eq zA~cuj5;h~W*!Rei2&1+79Ggvh0r(-~FI!@ujmECE*4NemVH3KkxY*$K9oy34BpXij z^c?N(e)feIFFyIy@e?Ny^|NQsoPYfM(W8eqZ`wc#c;d+?A3kvc!c%5WKK$@kzwsU? z67%8k}PTp>i^+}W3Nj|w%j_?nnQ zq-5YN$H%l3vNSHy&mA*5K6we18I{7}G9)0dpv)*7R7cwXbR5};vDD(i%4LgvZmD3z z1KO#xIWd30CJ}YU?}i@Xo?+FRTv~QO9$2j7*bBa@!`{-=u&Zl3&EsUx2}rnQ;|9Zr zG+P`-SO|9m^b%diSZA9tq|#Qe^3|&58sEUKuEtMc*t#_xB?SeBBp_I6abfwg#V^0~ z!q?yX#>RDPN$apZO*r-Kwpz1Ffw@D_807}tP~CogZ54#a*w?IXUAJ~MDo&Fjrx4pI zFsQfzQ~ErOy~~WJ&6{$B474|FYG_^psP5(rfDYqv2lnmtI-+pvEOJ#*mU@2Ct^B!Auy27ybgo40eR#cjKg8$o1oqfi1X_zXB|P3ty&XfMUx3KlLSm! z>wx!|J2SjM=q=NyOq(QesluTH8L4F?FyBqw!G4B%ECn;iXE1h@8>-_ue#N%f^n7_E zLOt%yhdSaHon%7LTYB8nt-w1h<$xG2%W;ZeE{C|5F-H-Mrp@XUc#2vcoJ`U5Hvpmu zdoK%XYTy!AuUr9?F2$Z=7w9Qv_#(7{AOqQs0aF~HkE zA9x9~zvX7q1ei)pvM(rx?XJR(@OfqlkVD5CIRbckB4+MdH!LX}=}(*Vfi|(yyZ%Ki zMh%(W*|Yre7jT!(<4>T?3*h0Hl|OCZT+@K|ZsJe24cl-Y?1djBJt+qOF7tAt)%cYX zfJ^DPcX9;Wxi*Myv?=pmZ;@36qK!j!+DiuZ8$TY)sB)d4L!*;GK|yJcfaHQ@6oUN> z?~d3q$Y*ICu-o!}_5!YroirmUBm5O9&=KtW)2~y&+%MATPkcTrJUoRQDlRnA#&PF< z4V_9UL_ELO=oQM6vQzus7X)P*Pn-1?-WqE8g?Jgk%;_+D3pz1B#XCJ#^nDO|0}9uI zePL!Q=+#|3-FO9LAi5hOK;#6Z%^1h9T{t=tDQT0 zmbT#AJwU+6?8viJchi^XvE3)SPoF(w(Duxk(>5Z&HlOI&yb0z&^|NQs5^4?|JP6yL zy?mLcP!}AEY_J4Ku3o@q>L&o(){1M?xe}U z_E}RV>TA0>j+C?$RTpzN*jUhs_0r(v!yd+KvT(XHA`?pXDv6D=>j%VU?K7%+cL|;-s!~e69uE z*s@PfVC?o?WoO>(=`I26_UF%;=@(It5!~rh9-1>FFSDQ1OJ;{V0Pk{<@)J|}czIxz zJul-&(Z`lVj4;yfPxe5lgz9>@PLa)Z@i-j@0M+#fLZvYUb%F@Sn0D&v)J&5!s2}8L zS;oe7pC~gLJFRBr(#6s1yzvH6k*d<`ONqdO?VdUX>|$8l6A zZ2sgg9CwM$DR**QE|>vHMe5v@aD9Gdt<0@7H>4dhdIi{?FG+~%N1Bw&vK z$Sk?Lr=sQ`x!34F#p)sk5MxfFx^@t-+q{UPgIdbUTjK_R-HUr)V5K}`{8aE;bjspe znR-_iwV+!%0=F5bt|g#mmWl-f5f#irK&8(h<1N$~7!sP~v?)9S(-n#)yaAA=UtfM% z>a2STj}iTgz2ox;yhd#V7IF7qb8~}8xj+N4b9*T>orjJb!tOA=?rysKQA|>lwT~=| zv)I3H-|5q*AMWYd-PN^q^X3Z|FBo7oVQO?y0YEbrET2I879Yvt`$B*k7+xMYr*A$Y zAxzFFDr@JhG#stZFCe9^h;n8#ShvY_Bdtb7%1d}I4MTDSu-mjjH)K)BgAS=aCeENd zVKO6U{Elm?Oht{bF*Xm|S1g)8W72pGhpI`^)45VRc)NCq)qruF97SxZujx5)+}etI zNvBSp*wwYoDP`_)=pyJcR*1mME#sl&AdR^*0%a&UC?9I7)$_|F-#Ig8#2Ses2u-xs zn6{7CZR^~qiYv;Nz4FS-XV0EIb?U^nEt}{nuo{21Vd9Y}vBKkapH|;p_2fR4{83SqcDwyqGHc1+o52gJXkUn>&1dHa!mZ2WlavusAbQ65I0HUti#Gj$P zvUT$*6Cd=kKAVbA=DZ3Uz#|d+Ox@9;!ibqEKwY@{VD*IsCB-y$-~Jd&F99-uNc4-E z)r74H!zLLazpRS6q|u{Bf?^2CR9upq5_=ADY0^Yc19(vxqu!2i1km0=h$l<%A9W}i zaX)y`kwGMak;atLkU?v`w!vmGh_If5fY5p!AQkm z%OR`=zpM_=aW}w%hw}(7)F@aiY}fcWKCMPukXR?wL#aLyNYMXo7^|hku#~0k2J~mi zPEo5s@lBt&fr2EBtDJ>Mp6;IhME12u^`ZncJzNeB%a|iH9B<*Oa0E%l@oF}B?k%(< zn>WJ1VK@*_GC*EaiX!r-X@I>VY$ga-T5!P2!fo@3@=p5wU`Yfe>`%Y&KPD!9_(QaF zSPh)*e1P^J%vAaS+W~vV_V_#W_JH?<>hYU-yUch6;+4Ww(cV3XIt@7nqvKN``epX{ zzT5{vX%#rx|B>!{)zVAHjpsT{D8 ziWSR|cIE{9*)1kX1~I6LNW*rRkGI2imMKKpyi`Y+J<=}120GN$RQpq0rG2O_BF?sJ z*G{^Rm>HX;!hHi`_by>F+b!yT>dYB1WOV`)nvNVk?6|q_X#M%e9`|%p3_V3xBIcK+ z4wt?aduH=$P|j(7z#Ln~!*MONTrb1$DB}m(dCN#{HY*#0@cu;1ncI+9Rmntk;Sg*p zEJ}KP1h%9@oh2QVdoTdCZYl*b`B0C}9o~fP#bt{Z;F-LF*(jxBifIn*txc`X4PK-B znD;w$=+M3+hxXGYJhayhH|FKOX$~5N86^Caa1o3hQ5S+pb*HG1NUf6(u`%9qgimO9 z$hon+r?!tS3eV=3@gm4mX0?_@3#|yVt#d=?#&zA@M^?ADR9CL7^40I{6< zNo)~ANwN#|M$F-)@isSy-kJ;=JSi>k#S7bjJnx{(08cEFntaMs&4HayGBhy$!C08) zzQJ@G#x`cO#iwIwVjkA?HZY}v*pDXc&PGX)q7UR3O3$cKIGDDk8OBIfNqo-CcpoH( zoDkK!;}Uu$F4V?hJNVM%gymqu){(ASu?)!!HDkzq5C9$3*qy@tNHu;lCv-R1?pkL- zM8;~k0ZE+F>vY_Hpe5uKAup)x_FEbDjlu)}>s2Hg*}$14a4kRO7aX}nD}d6p5iN#J z;x$PM&{cbZnMtLO;ZDzTLl)~kSw`@bpi(KsQL($T&V^H)4i5tJ6&ildm1v6Y%n^7T zA0Z{iu3+UEzw&3iRHCv@I2Ek#)>vu@s(S?+Oa^7}0d)r#&|H4NyCUVDB!Iop8(iy* z+#V4xPWg?LiMJ=z4;{uPf!{2-XS(j!k+lCIVmo;EAWc5I zq!cyON72bMWk%V07w@Z1@p<{=s+20wM%2BpFgg9!@Cf9Bgw@^)=t%&?_)yrc+!*zE zAGMhn-$FGuM13e6HIjsj%)@ZELJk?5NvVzu9yG}GJ)gkN*bZvoHgN`y+ZLvPN#cO< zS#uAUE?HDnSq?3%@hf0n7^DRU%2$@{*dY?KQ(#_gZH+H+_|xhnotrjUlED7Hef#YD zjGKdp4jtaNcdxa=tZZV66M1K(Pf?2F>UWnGD38U zpqlhC)AV~EK49)=GN<@uiqe2?z^+Vi5*z@qvnb_bV`IP^!t-%FqYY=vhR2+kR;C%6 zn;Lh7!Dnn=xp?8MDU%fY@CKw1{J}K~H5mqX#afM1 zd6w~xJ-c=uJ9-#$lCur%Y3w7154YNhQ#-b7*}HpZOG6!a7i2SQk z46Fn2EgRR9A7PXWIg1Qg*dWS*(}H(EhX`esD_3>^2yAh@kaFnnJNsgZaK__c0&53) za0Y32TL9}6sBt%KApT6$8eqDU#DVQTq@`aoEF6U_5s{<^(ZRik@;k9&hLoNTy1fE_ z;Z|G#vgAU=>v4{2o9+qOJj>nCb#0TbC0B7YMS01jeOTwYF7Yl(BYQ4VyW^N`25qyk zXjaLidqm-CfvizS0cK@)UddJrN6Q*nzEPLzw1HFyCl62xvp)x*jlY|#RTUkG6 zbu0}%2(cvviSY#*rdFvWxj;t9tFl#Pju@~X?ScaZ5j11ap}F6Mk7hzxr@-~d5hHw4RwPMXZ6yUBJebc*rj~!OARHf2H#kIv-?rnxgtj@7FX$ZxdKFOYXCgSoRI z7f!WYeCX|l*O@n94`&gBs^jr|>ruK70`JiwdWbFv;}6yyG>9}Yus_uDT-h}XidzKl zf+WTEAUR{jM5Y;MY)nHVlCUeDosyuw)ZO3#dX$3!`>^OcBkgzf?$zt=JMNe~ZrqB+ zi-{2WdY*$Ym{C7{l8TN<7O%j~_4EA~sBX#znI$G6-U}`D>w#EPT@9229oGCe$;Gq4 zf-4C!P$IxIrq!GL7}K#sp|#j!LOiAF1>Mjo(8`{XXD{nd(C5xj1-#2YFC)kb{s1D4 z0^f$NF#?#sMjZ>S69fjCFE4=$`9}yWhoDBeWno7P;z2SLdo^#NS>f~exz}+vfXhUZ z1lRf!GQu0!JkD?2YS2Jg()u939LjL=eQA;`{W<;l-^ab0lvG z(t-R3n;1xENoUGX9H}}|wq6{Pb4=KHbhXk<0WYZZY>LZq)rXV&4GDTktWLn88`?IS zL-+-B&MF^p*U0r#a$7gG%cXnqxIZfks4z$4p8!%vm zBtU?&07;;nbIwQtp@f9UCK#~CvAd^xYqxuT*q-T7v$g-gR&DLyw6D)OwyJBXe7biGY^9IhKKQC(D$;jeQ|Mdb8BmAdg|UM zpV06d*ROx^<(J=n`|Usf=C{V6+AlOWJ^~v9w|Y(BTEelMFdyIjL_T@HBzYw3$iVrF z0xo^en!IvSz%Jpr$42cEEnS=_99_G&-{6*eemqY3rFN~9p2~f_Y!FqTtj>db&L$yviQ*q2& z<3MLV4-fX~4xp&zp9oyXb1u4h7>90+rIfRFOr%vPD^r+hT2VVYTDdC-Cb3o&6X~OP z=b_$ObUv78Jx{FLMNqxzlI27=LK@*j6iRJPMNP$7gG_Kn#3fcM4q6(7e>D14t%PPK*KNl}ip7c-6~J zd%9@`yQ!R})&=(5P@8{Z>9cn%w0EGl(`@7THMOEfM5Tp(a#h&~T1is@x}R60azMIE zqTk`&jJqJ|<)lZd*D&N|bT|rgzmVD55nAhms1D?23uOUi z#op1F3%}kquc8OuE}W(7s1NPU7oH=Aap`$?WWPq$m$X}X3E zKmq4yT?(gz^UmE*PRc?VEVOr*(G75RFz(&=jvr1{JlR}NJ)_3Y8T7i%w2j1({L%;SpHh#lT_B0Ta?jGb)}`be%@9T0FF?M29#QH$ll z2yR!c$9COZM}4w%pkL}}Z}a_Y-v9-9R42~ubZTl6`N78O2lfrQwJb}c3 zqR-O}<1U2?p9-A@B3!rJ%j@lCI_ZenSXZkdY;>?s>7aD$Zg2MiXB8u_r@F8wLG{6X zaf3w24EA&}Y(=M>C@5%aZuT*V!uV+Ek@eN(+2k{uYGFW8pD7fzsso~S$-dq$jj?G! z!Xkr@o<130Jh7IoI%QzjDPGd3L2@&DpZm#Ac>YQv_t6wjI3ZpioJVL77P&M&!T}5X zlJ4AfxYj(%mO=I0gbK*i_;7y@os4*(olLeWj23imWH9O!xWchXKDprWv}M%y{pAk2 zU8f;Ku(yQZk7&kFR6FG|N7%n=oF#=aA)O%=e z7EOHutY0}xRJ8ay<$~?d?J_GA{FFtwU_w-vwk?-TbyHZju)W!~tARQW#;00UA&eE7 z>~|S7%M$0=pRuD%et(*m&DdnQO;-Ngu4?Kh{Beb4MlCJ@w!1ixPPBVR%!}dT)fn1c z+pGJ6Zy^p|dXfJ?Whs|wb*7@yNq29B^6s5G>Exq_4^a!ghs$HEsVGMkKAR3oG&#FQ z?ZZ4_W>YUd_Z;w2SC%LOIIeJ-TIh7B{7<{UEk>C6?o+?!VF5qEkoZSeko1&hv5IVf zrc&=$3+0pnQp}@h=C*Ka{J}1VBtdIpOLX>hDQp>pF&~t} z=VsvD^33)u-OcCZMo8wfZvQW-Pb;KnD+b=Nos#z_PsS;`hG6azx$??2$Kc$ZwIWw> z>`2m0dB>3`pk1z9kU4SZi||Tk3!Sy_ZxqUi(@am})2Q0<#ig^Ud%8NInDGLel(`kH zB2)vnGuyf79)H2@q(0%wa_6T;OnZIkc2)zbb7nQ0lKs%lJQ?5GyLbPS$Dcm&IS&KQu;st}@~g3t5whL!GcBDO zu$y6#3XpIqmsBfqsw1)d-% zgIZoPn1xby`b7P?N^;#)jRv0u*k3$fuSwx)~lexbVjd{r5*Mov4J?6i)CKks-sg2P4NWfLc2@8D$T5!8KGbVuke`7gvsGlaBeLHX{8W>|-BkpN zkNHY?ft0bY5K$2L)$Z8Z0eOR~yBYB@zG!d7E^Oy1(eR!b&K|k0FT2t@+G4LveaZj~_V<+S1-#yBO~kda4!a&iPtjS0^V2 z;vB65z$|YvTnOVaqsU-MdBo`lFFt8a1ggZUDuSxbA}XeV7#>nAcu3d*BbX;@y?_!( z^7iYmVY>~2i4`q`T>PhvW%i$i2!=M+!gJachXc-`+Y?-pHv;cKZBsP1>IQl5lmQU% z?b=4H7 zKlx!8HB!!ye>H_`Q~49XBdncv&xXvlR!=s3fL)0!vrDIhBD|xPA~16^B%yer1~ zi`GfsN2o04C-M-?gsE6mNS;t2Vj~%=SjWYTFo(JeJQ!9jaY)dR>*29?cc*f|Y@@EPo;K%UJOnYrVVoJw#I= zH4Y!0Wi!!!h=pJpD8ZJN#$kV&;Z)PT0%#;c8g;vIo=wx$&W#!9?E@|vo0Qk;rqEZY%PF9Sc^RKek=q|#etwmT9XVchI1S&4wa_NWMQ*6tcpo#bz**Y0zX%EfkqBg&T)KVyUV50X}=!=aumXX)6r@6~BD zCDCbkze;{JwW5N+0hot+cT*kjn*A1u%byti~_Xv5STrLGJ@gP*#-NAMv zK)It_8gHBji4x%0^RC}~^;Po+_U(0xiOj0f($3wa zi^H}fQ}3+*D05R+#zr9fJG`7j>PdR;uG7SH$%@mFsJD!cSphM zjyPHw%v;43R$IZned&I=lBmvSQJ^d7B*e3ES4sU5H<0jHsyR{@s7`z61R4|)({-{K zx;3T39*wH1N_LVNn(ZW!lOfuh8@cN|b?v7*r5gB=TsJfgw&Q%7wiw%FL@QiB-gL8N z#>dBf5qoZKPRpr&Hk+GUKz>8x=@(z$ynSbCdK%}ccMI?FXdXS*sH*f)e7oaOghdBW zU&PSDvIpUlQ1@&)r}#!vRL#T=rJ;QlSgFCW+TeSarzf91{gh>K-DjOACyv5*G%?%G zPI=UqT_ti|=t7DfKdtbh;Dnv%$pW*UqYJuum6mFE$jyeXr*42d4VUr8>-tZ6%S3m0 zXO%$|KGn?>qT97XsHqK)~asz|8?D*j6btGPDU}w)#*{Mmf61&hF!w36& z%)n{F_@!uzY^(

    >`+DmItEE_*`vP@0w7_bpl?%qMk|;uyYR>Sw2tjG~ktcaEo z=t6jdJg{3Ro7#j23A)v`^jUEG_+wow~^MV{; z*1h)r5|F9}m1oa>xOcCLKJDbqV!yi=N&%Sii5!oeqZ0Y%F(c}{=1Lq+j^$(|Xzxt} zO3UnN1V&GOPGCqJg6EExxXn8>+nHvS2q3lw6#fJ^^k6Eg=%Pn1P!O9^1sT6O+JtvL zkCwX#0Opf`tv68y0vP>Fl@XdIO|4=Ijh555R55beEQFf3*|ads4GXQpfU*!;t!0VT z`6Ld>#xsExQg-L9w@?KtSf9ojhC6u2MhBMA_li{@(WY$2k~~A@!nve!{boZl_aO&>>%0_Ck5KHeO_X-ndJDN%Yr<` ze5g0?S9x4;hw6eyrD@+D7uiK{I+i$c<)-tcW8EXk5@+OBch*HfwtO{k9s^MkxMYrw z`9>ZyP$Zg!SGJEJWXq7{LdTgF8hx-`SbMaro;*=zV7;@aeG{ih7ZO83zH_uhktn>V)DGQaxuuN{^9A_OQz`z{YyU|dB* zprF7pLWNO7w0mVaNRH~t{N?MbE4OZJK6(6DMB=yKe)HM0C!algy0O0Mls)x84YLew z`doA|2ZJZ0YFu>8S8|$^Vz8{YlP%o1zD}8ntKTj5a&Pnt7#kXN1?*b0sjv5n&~2{2 z(A(aE8|s?|y)p(wh5@3=Pa8-bW0<-9;`OS9K{5y1b%^CiEOG~pyz4y8k?I@zVM`F%Tr|y z-`Lpf%}p1B*hBrcWBU|4QsH3?iF@WGv@_%_R}k1fto5WeQ)~xzBt%8(m$qlHoU1%r zp4^xQwzz1P(h{NM5(^&KL7sG1Ue;EZ_ja~oDJzC21Avr#NpXQCM0I6piBY!9Gy6zo z3Hgzn!6NRRbz|O68SLB`9km=D2ga|8031%tXZWyLN?GMO2*46#*o5 z#0T&+_U*w>+pLL!-+jfeL~?c{w?SY)UZajXn_zxO>8@0kgtMxMVLNVf40sEC39lFp zZ$-D(pKKo=wGQ7#WR9+a>9aCN4<97Fy{%qVz^A%Z^l)D2jzITQMMZVzs&OgW%JpA3 z_@TOqmmS^>Ne6e)4XgAljK5*Hfb{)MEb__&G7f;eM9Nx1X`_}17+@DvAsZ5gRAw6y z_NmJ%mdXi_5Q-u4C=txyURKc>5^3*@clA@Axtg%;hez_(8vy9ol#dD{=W9iHL@o5o zx>xCw@otHfi1)V^{_MpUu+;Hq63XmPr2tw&A5@xm3>a&5%%WYO+rgfaLi^oHei$@J>yV-j640;8uC((!Q5?pQk0Q|yV>!yvn(P-U zz2M`c5}60!lsRT5u%87(EwJ!T)2bpH(h4E;S~B*#W;hl9j<(jeR(R>XR9{zLd%^eh zj2K4Mi<9Z@)aVBC-P{+5&KwBNhGw7g8Wulrok-Mcq$ z-`31(C@LRgVsW^PVD9duF2g>d_}-y#o@4kj_ibh%ASYMI0HrLlzuGLhOy9fZQ@0Es2t*$B{MxNA@YUf)_t#`d&6uYr= zS>G0Z{neLG9zSB&zwxTRAv#bO(fPYIXM9A?6?g^cb^(yXyyh7to1mQ2v$79gsC`lvRspN z+3AdTh85`!`1R*1IWXC!;eN2(`@7rwyW6y-wl>!HceNuty^XrO8t#pTR|&=;-IOdB z64TS!s_4ORF{n|rfqOF8Z7^V7S%&i%UY~{?0DK1=BM+!Sr2b8g*{?F20=TM#23A!D zHB#GDOgI4B&rTFO5?#fp9NcH%&4S#( z!MZ>EhkwWzJXLs%_y++`)wDu5iJqqQ)p)(8d1J;@TM?5B)$p#E#NC+r90 zp)&u3rOsE+1zS*#*pW+-%7Un3C@FB;wNf+T$vb6divNDHy8NIW#X(w_k)CAy50iEC zw|;dN`FyjP<7Aztvy;u0$;WT%B4tpuAnyeh=yp-=FiyND`FhN7E+milfSri* z#$m#IO9=kVcDfx*U|iU?_B-9!#Yy@AD*>6vFVwxk47M}gv3+W4>as!GXJ<{X3wGbS zvAnuUtKYr<$u+=VS!KwuYo0uN>cc(Ho;{;HRYvGu){w4J{uBWJ)mLBt;g5g*<6r*$ zfBf5@{`>F$#iu=tDtTAPzRlf3pUr+@Of?7w?G%3eELYQPpu50pI_dg)gU^+ zZf<<}#XtS?Z+^YBxWLQesF3s=Z=>s!osOYJG^l9~^WG8pUcKbt(q;w5E|ZPkp;fwD znd6OmvXz?tD(aVTecOBROeZfS_Q@K_>|)=UQtnvjl5 zI1?^PAfhUnFc-jw6to0MWW!#2p~E{n*k1zFM?|rXMPJcTZa>rmkFFjdUT~<<4ewtgQL#fW9V%b|81)pp2tU6Z_4VQwA#JCUlbpbmKFR?!GRvz|_ zjYGQPj5lSkq280jA4|CHHI@FP(lh@(7nq7=K7AuhN`epMcg&Z?^lN5R3Q|M{9qcUC#5In`az z(4q~6C*y*%aa?U|XI;9I{6hQsaL@am6K)s9wQu(>los(Q9+H6fm?{1JNzWG;sk`7~ z{R{*_9X{}ZPXlN=VwL~&$3I3MU^MEM779Sq=!2qWq+D}H9@N^Wv!{CP%Rd7;-Yhnv z!~q|COeD7)-h(R9P12x|M%hxz?13*_VpdoMa7cG~a2{PPNnCmjkrXlJRSKL7!XG}c zALT5;$xN^$Ykvr3$d;fTj)Zwg^id4+82FoSzdl=B=v*wv%uGLQcRCcTEs*H;nxY_7 zhB*H_93-%7HSnT2JbC1Ff|An*aNJJ2{t?ed!4xt+31G+e+>gVtQAB?8`Lm|F^NgM- zL_&;5z$E#N;f~)GFm;t2yepYe@27NyUviob{>to>gU@N8Q#awC$l$s;DbhWksq@OG z=1()3{4Ne+I5tVG%8A&8G7Hab->Eq-3fA%X6YZU2z6+Lnv=}eU3y^moBU0$ycfj0F z2aI8;TdQ7aM?Uh{h<_+9JTA^e!_o2hQW%^4jE9zt2W?;%DoOK4M-U%~JYfvg64W|X zT$BwN5>Pft^}aiiT{cM{9GC!lgf|20J|IueU#zd?(iluo(<-D#d+IciZd}1-5}kBk zU0=U@Pj{sUw{G7SFyr4=NbS`-w{Jao_`t}JpMU=OFMsvx-~Iky4DT-P9ov0_Pe&(X z1wVT92+x5X((l>G{rh)r-@d-Kn%TaZ*sdG?{OpvAqb{y-0o!#2CHq<84^Hhx1(L4r##+D zuY6Yrd3h0$C{Hukm=!WYcC;Fhrx`ebi|WoPo8d4*VB<*wY$2 z$hA$SLsw^OUvDQ#DGVmNK(jNGiW1~OU?m46S{+-6VWB&mb`lhn`R)3R+NNDQHq4YC z=8L0)y+QI4Bjjk5EQHyKkwNy3Y%UINqqi zgr7rjfOf7>h&yNC8@M20zufA<_B2>cW`11BWX{_r0nb}dxJcPf5di6$yK4lw_eEjq zj<}&JM>%+)^lXXY!CVl}Pfc}2fiToGUNJXbIL(Qo0!J7ofBMu5A@sq%Jw-n4T~P)O z5N+dzc~tvWp%%E#NavX!*teHEcl_v4F<0`Ca6BLNf_V2|dlj-Y&+47m~ zmP^hk!7x5iglr6SjJ16SjO{88rtt1`*hHrJ2+d%ib4lR+M<1n9_QAUpI{bxTdv<1Q z&9APEjSqIU-@Lx+M EV0~*W>jjFL5|#WZeEO>`FEor zaQJ_hCf|)Alg=xg8E51-Yo!zX0RlU=bbTVO-ZtGhQ-{DY6JO-I5%A`nRG>bU+K$}g z;aAs0CT z>RsF+;%vd+x+UdGTb-N08+B7_(iF z%$x|w*%{+QZftJo!F2oXUBQr>o13hdjg5_!m1P548B&a~Vywt-fAve_4+O@I2z>wk z(}Z-xMLu{yefw6M?`(%wzjHhA4(vB?+@RQ3u3cSOx@sU4gS6-eIyF8fvUQTkpPD z$jqVVVU|uNrwMp69!C9Yb(@vn6yY0%cDFPR^a^etR7TjfgS1V8S^)rzsdR|%7NIeB zeNsM@)-u>k_EuZhQNs22(608U!$`-@z&K+g^yb7eou*aI zWcb+2li+4xBR^u(}`boR*Dut5ow zLiGc^DmX@Bi-u#Qm3jcy0XK?!)N)!z|I_UkzYmF_(#dbu3ZzROU#<(et{^a#tOD}c zmXSeu;R>pK#I)`_+M_WChU4x!`_td=m1`0LzFlRNVj+uaFgU~1859~N>DmvRT$^vLjC57=De{tx8=)?qc7TPSPp_xCy z(+r@)8qaxtYCH?w2X}7T5t#e)liORSgmihyN!h$jc}dP`M|W>rA0O;P_4=Ah3w^NA zc{y60O8iMsIVr2tSM<5PXR!OJ@=OV~tMYvI_<=v4J^I8nDf#CYrYFoBu)tw3Ub1fI zUpX+#b8;aF@|)``&K-Cy>}qZ>n2#AXro4rmQywR4>H|Fp?`sa0@8A8NjsNwz_=yQ` zitVm#lt+rrRDhas4D#ENq<~hDG*yghzm^%gotGP@(t-B$#$EwN=~J@|cC|l|v21qQ zQsU`({8Tx;>;g`X3hPP(Xfs=QDez9@GbKEDDv7>}l1Bgz_!IZO98pU%yy}@S$qharb!=FK{71){uo}yha_ef7Z!Y9(|`lK8L{m`W`LcB zM|GW2WB7rktLy7)!2Zd@2fzO9Z+*eX=RBSo0sg^5TK&nVPcU6Vbu>54qW$L97PjB8 zja9|MHB{Fv)L@2YzWVx0tkjI`X%(!Zz|yH-#I(xG)rC1R-_cI-t`2&>dU=xHqAJX? z*5Aj}h%B>HlM8dR{BzicdZh*vRjZb#vB^;CZ7n3CDynjGWOzV0x)+wr>ybNI*=R|t z17@D0B}t4P@SdG;RQHqRft2bB1%%bHmxjj>Y8ij1YZ+`r64Y%)khjE*u!=uH-e&nN zcBfrW{10yH%1`H~Er)xc#87ZJsxX4&$FH*`b^)Z0!7ubYvfHmRMfV(rJOZm7=)}Ny zS14Ge36QIzvl2;7a<^Q%0O=R1O8Mta_2l^6p=#4U`&R)oM^%`K8MpQr;EETrjLAL`klSfiw z*t-oteMY)E0=X`Z9X~V7GvO@{-5$)3AtkY0(I7c-7ghp)e=0b*KrW{EMucaoh?|9X zqq;HAJ^Jc#ycd^6%vhk{6 z270rw-6q%4yX+;^IxH~2`%ZdUiyN;N1^X)OG^ce1#$?oJ*$HPb#({j^i)Ca`C;=l@mk?Vm00V7m8|Jdf;7=e`Qpf}2zzgZtP5n&Y z3NpX;3fp{}?aCnYJPPPDdJzJXQ@h`N2SVp3$K=Prt+i$RM{n%4gtv)@Vse~pla&MG&44AJBl!}S*fJqz(7d1)>pyS5*sv{h62b8Zp*2xadwW`9uXVc z<+tQJw(t7I*g&sydF!?KMxmmOXm_TW?Y1e|m#ITi!(!Cr!*Dp@ufZj|UQQOegB zI!I?2((q=4qeQ!Eg~;b>T!(iIXS~quz|V(a<4AtO2o0>9b~AK)AH%(?GhFwP;oPE1 zx0CQQGgDWuETTQ2YhK;l+*n)V&=AZ94_ozd)n}i7X6hfRKYsk_vuB?X@Z5C`rUnW| zcVy3aH>#wOC9f_n_;Q><3(=VBo|~D%XPq=f1D>y`a`lezWG>dLfauo`pPzsJjD?cA zB)`bQ(%k9P^dTis5l2Ex^T3WdBroUL_*&d2^=JymUB0=#iY;ymqm|i(=p&O~6wHKB?*f*h4=F(o z=9XZ{uwi>O!6us*mK*AYGhI>y@Xq~}hEH#!HtjK0C~60LePg;7yKKL&Cqg0}xow)E z)uVWdLaJH!D~z2SAG)@9SwkmEQ@EI~IH1gdoo*-2Z>(SI?P%7h%0`EACj7|qgKf_yXB}Z1K$SlL7pLFYt*>w;2Npd5bfVf z_Yf_Ti{SS0YSfNpa2b_)`VOf0WcZu9*Wm2Fu!9YC>t-4B-9sY!QR&GdbCKOm(XEFL zeBgZ~BL!25&pB0e+>q2N)ZRp;<%mQmlJ0PU)p=b!0e>jA1p?kr za$+pDTUYp`O<9QQs0h4j6Zv2q0W{el*4YKbfmnu~d3qJSR~9d$oGrIC)IWWAKLZm9 zWx#yQ6mkajeI2bfu3WG|{zI_6uUny%-4C^62aroEwm(E$Q9V&+7&Nt_{aT3a0+5iO zZuesP(?Z3Wx7Av-7v?))Wup9!%AdR%8JvR4lG%>fe#(a`Iytlbz~0>xL;bcUfxMAE zw%N{s(Sl&PZkEmk?XxH29I@T$C$_(qb{d^wl}Fg_8k)M|ZUkJr7w)g0EOAnj`{EQF zl~w%dZtB(LE+}njczP22B|Ry$nD~<_pfLz_AskwcsCQvnu&=$m9~lrH z()oc@J-k~;pCdW8hqYc`E8>w|uYSs<1;*{RR14+Ng~s5J6381y#%KhF^PQUw-M+AJ zIeMlpU%PT;0g@MuNH{xfOknEW(mQvwtlkpuBAG{ZK8$hQpFS1g$Y#IGq>&Kb$iSN$ z>tN2zF{JH^?*Xk`GiOBus?5zz>%v2UYd046$SqfdIUVhe3o&x-gqK&;iopR)IrA2A zMHn5K@QByf(@9Q)r+ICZPD-=&t1s_pt~>w5(@*ysp?d$`Ym4(tLGL@$n{fdS1U7)^ zl`rL(jT}afje=6NLLv-G-~-fSHJtiWD<-f@d3o8HQ+`7GaNxB(Y7G?i7oUxbuSjQx z!%>S8%aHqId{wz!FV4?uQAKijV&tx=@!Kt_jpXC_Bx65b(No9g7~phF(@)u-_hLji|#q|Kte8Kvp! z+;~c~XRsr-^3+;PCx?OCvT28<+a>OXc?)4&6Rn)w7=J4Eq6*;BrB+v4Gf%Ob!S=*_ zvHhiSwL!VUP`yU0c%Kgs)U2o|uRB`ZDSDo-PMI@afSv#8dRoyZL0LD)j~zjE?db%3 zd?fUPeQX&LiL3K)IGxXk=`!Q%O;F?NMLs)QP%uoXZBl^n3c&bu@?QGQ4Hq1cctE~ z>ucNFbdChPByiBe-9}?b=$Il_PChO{nQc_hs^d5_v~K1GS8ODR*YiH z`DT&>c-HN&|9r>)cP_aUlT+#GV!E5og2&>@n|FgOcU6Ji!6>%mF>fJrzypTis&8^C zPX%IW8Rt{EHJ(p;l4z#^n0^#H!9YKl!Sg`6pvrgO;l1bzpko*J#xq9y@m|<602reE zv=0`^vE6tYr5K)tI$s9s7!ZVwHdG#sQK~G_@Z|sI3=u938E~efP4uBO1F>$f2%Gkgh__M_RhFpg=J4Ig*DV z(9=0Q&?iHh=_Md}EWnQHc`9_APvPP#Oa-_9;rG8IqC8``AvV0rz${%IxCEFG0Th5t zgCnPT#4xW~Z;)^b9O|(GfGn3Gi+KxWNcz0e5`3}+o-?Go7wAD2S}s3prA6TpQ8cys zW>T0is3K4L&Q4G8qmW;5HO*spOu}{ABT5|2Fdh}HB9e!6w<=v~Xh(y_1n0Zj_(8Gm z*wDfPM{108M_mB4x{&R;nF%MyX)*p+NApF~sj|%(v=2g zI+`y@{hi$M25T)|o|>PX*xFbb=;U1$@CYo^>@+S+USCrUDY=?1|2+~b6`CT;IC*55T z*FmAFFy&IZceBh;7`QAQH7c)W4osWT6l$*0-?C}4& zf5>b&0uT_W@74Z}=RXTLKtzVKcV9Lb1ap+|6EH%tC3uxptErzsayo!FUws9=@mxg%_Z&0SlfkC7mF3j(@xuqbFPw_Y zlVfZOzyv^SXJ7c$e!WVtY41LR?N=m+Tmbh?cj{dprHo^6B#I==_Y-A)>v}jRxys-$ zB#j?5Meu`rErLd=Rn+wj!%x_n$yFMQoK`R-6=5sTRzDs6Q61ClX zLgAhFLP)5%X>YBquJkgoUsO4<9aw}%YF!mio-}-Pq-JPvV6a`naD>lETPo<0?gYBw z++jT9U6i%{O@^<*c0U=TU}Ag}*tsP*FV@;HGxHG_IYnLT)x<9MWjADAUcPFc0;k4( zol}BzF!vLTgS>DWOFnsUpE$>PJkM>QU@n0?w)=RTulwbgKzlS4`QrQ>qzh)@u2^nf zT^rRgoLDp^+Ob`OmwHXiq#OHuj6vJflsa`AzoAb)(dM{)}!*B`oJ979}sYo%>gB-+=e z2G(kDSCjx9xWm-UiucT_5U2*8^!_Ov$}SCVtHv9|Q!-c1dm8cCOk z^T8gFA06l(AL^y}d+7Q0risyk`I+&RrTO*cE7Rk{93FK6143$J-P&AJxtJIox;$gz zOMGFu54kU$ZD0=R4jzHcD3CCj8t1Nu#~$2^nJn57-T(;t$)?8K7} zw1Pt6%&8MxO}3&45quddFs^4EblVko32ab z+<`w1LzKHOcWCv)1dfek#@^y%M_m&$g0b-d8M59+KLjQSqZa>id~(QgY&Rp(?IGHe zbk9=XHn-VsBNoaKY>yEOV^phLWRU0p>nG+vu-mvG8QUkQ}sbl&H-k`dpjXrL9ZQFWTRF#0lOY2o3cc0QJs+< zV8TERwhI^#@$PA-+aaA|m!O_#*MHN{VVs#vcqU91>h!r8?W&}EkX;wTHXSW7zg=fZ zY#%VX`0yaSONIqDPs9849>`Pd*h|J!>0~t8D*{+1BsZ%DWD@z8xi3D$mx0fR0rMyb zaA9pl89}Af;ntFDA(tS?F4?&7@80m1nJq>j57BNW{!7D{r#8$Mm?UyziD|cST6DaM zKu>{#z;21tvC#J`Xh_PD)O8KjxCKSDwKmyoM~a1pN@(Sxhd56k11(FRYzuT7r98FP zAvS$pk%YPkI;f`!1-~h9VZls%fJ32ReWO>!DB?hM(k20)fV70il5G~!T@e7tbT9Ur zp{{d*l?j=?ao2(8W?0z+y`A{UmO*v(5pxJXHY!ZDhwY+9AX@U;(xM?Nv++L3lNlLU zy1MYoUwzG-KVMzOd+Ba#q}y8?YNscLI5synRz7`n7tH6TM(3x;*ze1WvwZj~bCc$I z^0Sj8cWz#1$XuQtC)aJkG_{|0-MGGX@9s@*%-rlKQS|7Vu^wm6x*7+_h+Q z=xBA#HCAFf)Wf(&mh&EZ4WP9(uz&hwp^mZ|SoPjka0mz_q7sOORMByz zDm;3*gg$bQJpix|@3Ltct13O?m9!(xsqVX+U`U`V6uiqC+Rzorft^q{4+2iS=;&b_ zuw1dFfI!z^avJRrG%||AjY-L$HpNZ}&ZhyvWVRg(6(WA6%q46Q$oFQBEsQ9{Xns{9 zFgI|<#?4E7YK4vh2>e0bPZ^jF8^m(3Uv53L1m|(va?)CT0q}D+OY)2*4&I*E~Z`3qc%#qJ&hs5 zxs9GMPzdjM$c-o9yM1%5GpOFv{uWjqWKTv1~bfkfrwVeb_&W*%BDbi65%wk74s4$0rK03$Tu?-vt6+0g;~mAWL;BW zk1BlXWJC~#J{R)sn?73H65BJqqb&oMn8V=jq8At9i3IGjsr5&gboy*4l+{$0qB=#5 z;h|$gm50d#Ciuf8U?~vQ&WM39GSu%Y);N!iFa_yp(8wOPc_{YYuH~x>zQr-vAHxo4 zS>VMZIU8qUe0X_jk$N}u0lBWZ+t%=Zj(dLv3iH-Hj9XXH zkRN10sVlqfRC(_q?bJ~n4Wg=iWM^_~(8I!^hWzQfC_+Y$DHykw!2 zGW=)J^_l#(CfSkWA*5p_jWc8Qto)rqp3gIx?QNIp$o0&2zxpXBXPU~d2-MGncP=0= z`7@ua)3h+N-L73#7vGEnbCI2+t7l1+I6wWV+p%w#C`xxHhEQOwi+Qx<{hjYP&R640 z*{?&o08};$TZSs&Au#I{{qflNep4D9)N+zOjaePuySk({Ab9tX3#4KFaoypaZWrGU zM5s={2k;Z#i4)2^OLr}*;$rA?&o&G)-b1~&Hsd>_OQM#Id*$;?c%G0R-v%<12QBO) ziK)jlD2j+0aW&drM}`I^cFxG~(8L(LPv$hE>(kUEO&%`#WkHqm)2xv3QQT1%;GFnc zT*j}W!8~vQh?YWpY0n^BTg<4umFk$2;+QThRpSsSX9TvjQ_2JIAhVhB#6S}lll!h)ZB>oG@ za#VNm0}FhZ^f742((0OJCt@fCnB)>`0^cP*65SqJeOBEk>=WFc7#;N0QzuQFljRXZ z*xoF995#h7((H^6irtD<2lLtKi7N|pOIPM4joS|&-iy|UuJ-x4sl|oa&%by&IblHk zFrIytqPs(YOyz<$*6|_6%f{-`*IzwDcvi~V(q$y?Zf%qXyW5eP6*DL>W^#mSv$niQ zx3l?mOC3xR?3#M-+`e&jaqi}g>tVKccdTB!%6s7#NzR(&CfZ4N=W966UUBZ zuybI*Ttq!bJuS)ROt3v;(~Qy(KLJ@ZX@^Ljs0Ku@f$+5$;^-QG#&=1uT~dH*EfoO6 zkP*401owd`<)*4F@5TL+A*`Mgh2kXTbhFjJY^afM-_+nfdS8?dbd+}%)w!L(PHQP* zRJ%M0q}SOK#mK4KzWxz>8}Bt15$#@T@2OZI? 3.f) + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) { Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); @@ -716,7 +716,7 @@ void CStalkerActionHoldPosition::execute() m_storage->set_property(eWorldPropertyLookedOut, false); //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) { Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); @@ -840,7 +840,7 @@ void CStalkerActionDetourEnemy::execute() } //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) { Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); @@ -1039,7 +1039,7 @@ void CStalkerActionSuddenAttack::execute() object().sight().setup(CSightAction(object().memory().enemy().selected(), true)); else { //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) + if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) { Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); diff --git a/src/xrGame/stalker_danger_in_direction_actions.cpp b/src/xrGame/stalker_danger_in_direction_actions.cpp index 42e32d15887..b46f59704b9 100644 --- a/src/xrGame/stalker_danger_in_direction_actions.cpp +++ b/src/xrGame/stalker_danger_in_direction_actions.cpp @@ -218,6 +218,11 @@ void CStalkerActionDangerInDirectionHoldPosition::execute () // if (!mem_object.m_object) // return; + //Alundaio: + if (!object().memory().danger().selected()) + return; + //-Alundaio + Fvector position = object().memory().danger().selected()->position(); if (current_cover(m_object) < 3.f) From 21c3f6daab3327223655cd982b73e5185b9b90ab Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 20 May 2015 21:46:25 -0400 Subject: [PATCH 089/166] - removed Proposed engine changes.txt + added how to compile luajit 2 to build instructions and stated how it requires changes to gulag_general.script + README.md now states this fork is specifically for Call of Chernobyl mod --- Proposed engine changes.txt | 98 ----------------------------------- README.md | 16 +++--- doc/howto/build.txt | 20 ++++--- src/Common.props | 4 +- src/engine.sln | 25 +-------- src/xrGame/ShootingObject.cpp | 2 +- src/xrGame/xrGame.vcxproj | 3 -- xrbinup.cmd | 77 --------------------------- 8 files changed, 22 insertions(+), 223 deletions(-) delete mode 100644 Proposed engine changes.txt delete mode 100644 xrbinup.cmd diff --git a/Proposed engine changes.txt b/Proposed engine changes.txt deleted file mode 100644 index 176bf5cf778..00000000000 --- a/Proposed engine changes.txt +++ /dev/null @@ -1,98 +0,0 @@ -Feel free to add to this list anything that comes to mind that would be -related to modifying the COP source. -If you've implemented a given feature already by experimenting on the CS -source, put a * next to it. -Note: Source for COP released! Will update this with source asap. - -Gameplay / Engine changes; -1) Convert to 64-bit (to allow more than 4gb RAM to be used) -2) Multi-thread the engine for up to 4 cores -3) Solve stuttering problem (likely due to LuaJit. Solution would be to - upgrade it to newest version and then rewrite all the lua files to conform - with it). -4) Solve problem with COP sometimes not loading correctly upon launch on some - systems as well as not always exiting properly and still running as a - background task. -5) Get BugTrap to spit out better error logs -6) Solve problem with stealth mechanics -7) Fix shadow bug in DX10 where a big world shadow appears and disappears - depending on what angle you are in relation to the sun -8) Eliminate usage of precompiled shaders so they can all be modified at will - like in SOC -9) When DX12 comes out, add DX12 renderer (doesn't sound like it has much new - graphics-wise, but it is crazy faster than DX11) -10) Allow more than 2 ammo types per weapon without screwed up/missing UI ammo - count -11) Allow environment mapping for weapons not on DX8 (I found the file - responsible, just need someone to implement it) (NOTE: K.D. Says this can't really - be done without it happening indoors too :( ) -12) Allow .seq files to be given a stop frame/point (animated blood puddles - underneath bodies anyone?) -13) Allow wallmarks to have bump and bump# usage (for glossy blood and for - bullet-holes that do things like take small chunks out of cement) -14) Better tessellation in DX11/12. Modify current method plus implement - artist controlled displacement mapping or something else that allows more - control over usage -15) 3D shell casings (I know this can sorta be done in only LUA, but it would - be simpler just to hardcode it) -16) Replace current shadowing system with one with better antialiasing and - less "noise" when a character is in an interior and moving around -17) Actor shadows in R2/R3 - * -18) Grass draw distance console command - * -19) Re-enable fov and hud_fov console commands - * -20) Re-enable grass shadows - * -21) Add Instanced Tessellation for DX9&10: - http://developer.download.nvidia.com/SDK/10.5/Samples/InstancedTessellation.zip - - -- Newly added by LoNer1 - -- Proposing some heavy rendering changes / additions - -- https://github.com/NVIDIAGameWorks/D3DSamples - -- https://developer.nvidia.com/gameworks-directx-samples - -- https://developer.nvidia.com/sites/default/files/akamai/BAVOIL_ParticleShadowsAndCacheEfficientPost.pdf - -- http://docs.nvidia.com/gameworks/index.html#gameworks_landing_page.htm%3FTocPath%3D_____1 -22) Add proper GI algorythms -that actually work- such as radiosity. -23) Add / Replace current SSAO/HDAO -24) Particle Shadows / Overhauled particles system (solid?) - actually an SDK proposal like 25 -25) Adding (configurable) 'wind' in the game - note: Preferably with the SDK and a 'pathfinding' / node system like in CE / FB3 -26) Make vegitation rigid / enable collision with vegetation. -27) Stereo sounds anyone? -28) (detailed ideas about this will probably surface later) more gore / realistic(?)* gore. - -- * Wouldn't know if that's the right choice of words, but I'm not for this kind of gore; - -- http://www.ask-resimleri.com/wp-content/uploads/Soldier-of-Fortune-Payback-1.jpeg - -SDK improvements; -1) Get SDK compiled with Visual Studio (=> get rid of Borland trash) -2) Less errors and crashes, loads of these. -3) Visible level-loaded decals and the ability to see decals that aren't just - 'wallmarkblend' type. -4) 'Undo' function that doesn't take minutes to do and actually works - properly. -5) Better performance -6) "Render" / "ingame" like editor. Not WYSIWYG, but for example, having proper - lighting settings which are configurable from a weather editor in-editor. - -Weapon related changes; -1) Add ability to give weapons like the Abakan the ability to specify a fire - mode where they fire at a different RPM (Abakan fires 2 shots at 1800rpm. - The new AK-12 fires 3 shots at 1,000rpm. I'm not adding an AK-12, - just giving an example). -2) Make pistols more useful somehow. Maybe make a "quick pistol" key or - something. -3) Different reload sounds for reloading empty vs reloading full - * -4) Add anm_reload_empty to weapons that don't have one - * -5) Animation for misfires - * -6) Weapons can't be reloaded during sprint -7) sprint_start and sprint_stop animations for weapons -8) Smoother transition/falloff for weapons using grenade launcher attachments -9) Full-auto pistol class so they display proper empty animations - * -10) Bayonet and underslung shotgun attachments -11) Ability to swap out different scope models and eotech's/kobra's without - having to swap models like in Shoker -12) Ability to change weapon model visual based on upgrades -13) 3D scopes (different than in Shoker and STCOP; I mean a scope model that - takes up the screen with a texture underlay of the crosshair) -14) Allow new types of weapon upgrades like artifact augmentation -15) Ironsight zoom in/out sounds - * -16) Add a quick-grenade slot (can also be done currently, but imho also wiser to hardcode) -17) Animations for attaching weapon attachements (opinions on this may differ, but it's nice to have?) -18) While-zoomed-in reloads (like far cry). Not only for sidearms, also sniper rifles and shotguns. No AR's. diff --git a/README.md b/README.md index 7150a1a4cb0..b1c6be7dec1 100644 --- a/README.md +++ b/README.md @@ -1,17 +1,17 @@ ## XRAY 16 Engine Modifications +## Open X-Ray Call of Chernobyl Edition ---- -This repository contains XRAY Engine sources based on version 1.6.02. +This repository contains XRAY Engine sources based on version 1.6.02 for specific use with the Call of Chernobyl modification. The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by GSC Game World and any changes to this engine are allowed for ***non-commercial*** use only (see [License.txt](https://github.com/avoitishin/xray-16/blob/master/License.txt) for details). -**Note** that [Master](https://github.com/avoitishin/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/avoitishin/xray-16/wiki) but you can also checkout [Working](https://github.com/avoitishin/xray-16/tree/working) for nightly builds +**Note** that [Master](https://github.com/revolucas/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/revolucas/xray-16/wiki) but you can also checkout [Working](https://github.com/revolucas/xray-16/tree/working) for nightly builds -* Build instructions can be found [here](https://github.com/openxray/xray-16/blob/master/doc/howto/build.txt) (**not** updated for this code base yet). -* If you find a bug or have an enhancement request, file an [Issue](https://github.com/openxray/xray-16/issues). +* Build instructions can be found [here](https://github.com/revolucas/xray-16/blob/master/doc/howto/build.txt) (**not** updated for this code base yet). +* If you find a bug or have an enhancement request, file an [Issue](https://github.com/revolucas/xray-16/issues). * Please go to our [Wiki](https://github.com/avoitishin/xray-16/wiki) pages for detailed description of changes and other useful information. - - + --- Pull requests appreciated! Just check out -[the task list](https://github.com/openxray/xray-16/blob/master/doc/design/task_list.txt) -and follow our [procedures](https://github.com/OpenXRay/xray-16/tree/master/doc/procedure). (**not** updated for this code base yet) +[the task list](https://github.com/revolucas/xray-16/blob/master/doc/design/task_list.txt) +and follow our [procedures](https://github.com/revolucas/xray-16/tree/master/doc/procedure). (**not** updated for this code base yet) diff --git a/doc/howto/build.txt b/doc/howto/build.txt index f5477647d5b..77772418a03 100644 --- a/doc/howto/build.txt +++ b/doc/howto/build.txt @@ -46,14 +46,12 @@ Setup: - Copy BugTrap.dll from %XRAY_16X_LIBS%BugTrap\Bin - For _bin_dbg: - Copy BugTrapD.dll from %XRAY_16X_LIBS%BugTrap\Bin and rename it to BugTrap.dll -- Create soft link to /gamedata in the game installation directory: - $ mklink /D \gamedata \res\gamedata -- After successful build use xrbinup.cmd to update game binaries: - $ xrbinup.cmd "E:\Program Files (x86)\GSC World Publishing\STALKER-COP" %src% dbg -- You can create cmd script to update binaries in a single click, for example: - @echo off - setlocal - set src="E:\git\xray-16" - set dst="E:\Program Files (x86)\GSC World Publishing\STALKER-COP" - call xrbinup.cmd %dst% %src% dbg - endlocal + + +Build Luajit-2: + +You cannot compile luajit 2+ from Visual Studio. To build it you will need to open VS developer command console, cd to your "3rd party/luajit-2/src" folder +and execute msvcbuild.bat. This will build lua51.lib and lua51.dll. Copy the dll to %XRAY_16X_GAME%bin_rel folder. + +It's very important to note you NEED the changes made to the vanilla gulag_general.script which can be found in xray-16\res\gamedata\gulag_general.script +To be more specific, a forward slash needs removed from [local ini_path = "\scripts\\"..work] to look like [local ini_path = "scripts\\"..work] \ No newline at end of file diff --git a/src/Common.props b/src/Common.props index abbaaa58299..587c2c12775 100644 --- a/src/Common.props +++ b/src/Common.props @@ -13,7 +13,9 @@ $(XRAY_16X_GAME) $(xrGameDir)bin\ - + + E:\STALKER\X-Ray Source\x_ray_1602_VS13\xray-16\src\3rd party;$(IncludePath) + diff --git a/src/engine.sln b/src/engine.sln index 512220e5f20..99f1cb7e10a 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -1,6 +1,6 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2013 -VisualStudioVersion = 12.0.31101.0 +VisualStudioVersion = 12.0.30723.0 MinimumVisualStudioVersion = 10.0.40219.1 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "utils", "utils", "{89F6A7EE-3BBE-45D3-A8A8-5D9366CD987B}" EndProject @@ -136,8 +136,6 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "LuaJIT-1.1.8", "3rd party\L EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lua_extensions", "3rd party\lua-extensions\lua_extensions.vcxproj", "{44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}" EndProject -Project("{F088123C-0E9E-452A-89E6-6BA2F21D5CAC}") = "Diagrams", "..\Diagrams\Diagrams.modelproj", "{2E39994F-B060-45FA-BD07-DABA262E8CE3}" -EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug_Dedicated|Any CPU = Debug_Dedicated|Any CPU @@ -1066,27 +1064,6 @@ Global {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Any CPU.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.Build.0 = Release|Win32 - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Any CPU.Build.0 = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Win32.ActiveCfg = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Any CPU.Build.0 = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Win32.ActiveCfg = Debug|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Any CPU.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Any CPU.Build.0 = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Win32.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Any CPU.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Any CPU.Build.0 = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Win32.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Any CPU.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Any CPU.Build.0 = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Win32.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Any CPU.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Any CPU.Build.0 = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Win32.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Any CPU.ActiveCfg = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Any CPU.Build.0 = Release|Any CPU - {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Win32.ActiveCfg = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index 5d0bdc27ad0..de0f7db4615 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -77,7 +77,7 @@ void CShootingObject::Load (LPCSTR section) fModeShotTime = 60.f / fModeShotTime; //Cycle down RPM after first 2 shots; used for Abakan/AN-94 - bCycleDown = READ_IF_EXISTS(pSettings, r_bool, section, "cycle_down", false); + bCycleDown = READ_IF_EXISTS(pSettings, r_bool, section, "cycle_down", FALSE); //Alundaio: END LoadFireParams (section); diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 9a97c2f076c..b618e3da1ee 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -4260,9 +4260,6 @@ {94a1c366-3d19-48e6-8170-4adc2e70df98} false - - {ebf9b543-0830-4866-9b48-dc0740e87e8a} - {a19b1df2-82ec-4364-8bdf-85d13a1c89b5} diff --git a/xrbinup.cmd b/xrbinup.cmd deleted file mode 100644 index 41dab49c691..00000000000 --- a/xrbinup.cmd +++ /dev/null @@ -1,77 +0,0 @@ -@echo off - -setlocal -setlocal enabledelayedexpansion - -set null_args=0 -if [%1]==[] set null_args=1 -if [%2]==[] set null_args=1 -if [%3]==[] set null_args=1 -if !null_args!==1 ( - echo usage: %0 ^ ^ {dbg^|mix^|rel} - goto ret -) -if not exist %1 ( - echo path not found: %1 - goto ret -) -if not exist %2 ( - echo path not found: %2 - goto ret -) -set cfg=%3 -set cfg_valid=0 -if %cfg%==dbg set cfg_valid=1 -if %cfg%==mix set cfg_valid=1 -if %cfg%==rel set cfg_valid=1 -if !cfg_valid!==1 goto args_validated -echo invalid configuration: %cfg% -goto ret - -:args_validated -set src=%2\bin -if %cfg%==dbg ( - set cfg_long=Debug - set dst=%1\_bin_dbg - set dbg=1 -) else if %cfg%==mix ( - set cfg_long=Mixed - set dst=%1\_bin_mix -) else if %cfg%==rel ( - set cfg_long=Release - set dst=%1\_bin_rel -) - -set cp_tool=copy - -%cp_tool% %src%\%cfg_long%\xrEngine.exe %dst%\xrEngine.exe -%cp_tool% %src%\%cfg_long%\xrAPI.dll %dst%\xrAPI.dll -%cp_tool% %src%\%cfg_long%\xrCore.dll %dst%\xrCore.dll -%cp_tool% %src%\%cfg_long%\xrCDB.dll %dst%\xrCDB.dll -%cp_tool% %src%\%cfg_long%\xrCPU_Pipe.dll %dst%\xrCPU_Pipe.dll -%cp_tool% %src%\%cfg_long%\xrSound.dll %dst%\xrSound.dll -%cp_tool% %src%\%cfg_long%\xrParticles.dll %dst%\xrParticles.dll -%cp_tool% %src%\%cfg_long%\xrPhysics.dll %dst%\xrPhysics.dll -%cp_tool% %src%\%cfg_long%\xrD3D9-Null.dll %dst%\xrD3D9-Null.dll -%cp_tool% %src%\%cfg_long%\xrGame.dll %dst%\xrGame.dll -%cp_tool% %src%\%cfg_long%\xrGameSpy.dll %dst%\xrGameSpy.dll -%cp_tool% %src%\%cfg_long%\xrNetServer.dll %dst%\xrNetServer.dll -%cp_tool% %src%\%cfg_long%\xrRender_R1.dll %dst%\xrRender_R1.dll -%cp_tool% %src%\%cfg_long%\xrRender_R2.dll %dst%\xrRender_R2.dll -%cp_tool% %src%\%cfg_long%\xrRender_R3.dll %dst%\xrRender_R3.dll -%cp_tool% %src%\%cfg_long%\xrRender_R4.dll %dst%\xrRender_R4.dll -%cp_tool% %src%\%cfg_long%\xrXMLParser.dll %dst%\xrXMLParser.dll -rem crypto and CxImage are compiled as DLLs only in debug configuration -if defined dbg ( - %cp_tool% %src%\%cfg_long%\crypto.dll %dst%\crypto.dll - %cp_tool% %src%\%cfg_long%\CxImage.dll %dst%\CxImage.dll -) -%cp_tool% %src%\%cfg_long%\Lua.JIT.1.1.4.dll %dst%\Lua.JIT.1.1.4.dll -%cp_tool% %src%\%cfg_long%\LuaBind.beta7-Devel.RC4.dll %dst%\LuaBind.beta7-Devel.RC4.dll -%cp_tool% %src%\%cfg_long%\ODE.dll %dst%\ODE.dll -%cp_tool% %src%\%cfg_long%\OpenAL32.dll %dst%\OpenAL32.dll -%cp_tool% %src%\%cfg_long%\OpenAL32.dll %dst%\dedicated\OpenAL32.dll -rem %cp_tool% %src%\%cfg_long%\_Dedicated\dedicated\xrEngine.exe %dst%\dedicated\xrEngine.exe - -:ret -endlocal From c27e82113caa308b08117ccc954e1ba12eec4127 Mon Sep 17 00:00:00 2001 From: Alundaio Date: Wed, 20 May 2015 21:48:37 -0400 Subject: [PATCH 090/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index b1c6be7dec1..03af0071547 100644 --- a/README.md +++ b/README.md @@ -6,7 +6,7 @@ The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by G **Note** that [Master](https://github.com/revolucas/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/revolucas/xray-16/wiki) but you can also checkout [Working](https://github.com/revolucas/xray-16/tree/working) for nightly builds -* Build instructions can be found [here](https://github.com/revolucas/xray-16/blob/master/doc/howto/build.txt) (**not** updated for this code base yet). +* Build instructions can be found [here](https://github.com/revolucas/xray-16/blob/working/doc/howto/build.txt) (**not** updated for this code base yet). * If you find a bug or have an enhancement request, file an [Issue](https://github.com/revolucas/xray-16/issues). * Please go to our [Wiki](https://github.com/avoitishin/xray-16/wiki) pages for detailed description of changes and other useful information. From 76a8b386f8161f2f24a50b732d3db5aebd2f1255 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 21 May 2015 02:26:22 -0400 Subject: [PATCH 091/166] = fix for on_actor_before_death callback to kill actor in the res/gamedata/scripts/bind_stalker.script --- res/gamedata/scripts/bind_stalker.script | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index db18f01a647..139f7bd19b6 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -202,11 +202,12 @@ function actor_binder:item_to_slot(obj) log(string.format("item_to_slot [%s]", obj:name())) end -- actor before death callback --- IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. +-- IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level.object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. function actor_binder:on_actor_before_death(whoID) log("[AVO] on_actor_before_death callback") - db.actor:set_health_ex(1) - -- db.actor:kill(level:object_by_id(whoID), true) + --db.actor:set_health_ex(1) + local killer = level.object_by_id(whoID) or db.actor + killer:kill(db.actor, true) end ---------------------------------------------------------------------------------------------------------------------- From be5fb0dcebf36c4ac8cae2a12b8e9a7b35a42bcb Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 21 May 2015 16:40:46 -0400 Subject: [PATCH 092/166] ~ changed res bind_stalker.script --- res/gamedata/scripts/bind_stalker.script | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index 139f7bd19b6..0affd934316 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -202,12 +202,11 @@ function actor_binder:item_to_slot(obj) log(string.format("item_to_slot [%s]", obj:name())) end -- actor before death callback --- IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level.object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. +-- IMPORTANT: if you wish to kill actor you need to call db.actor:kill(db.actor, true) in actor_before_death callback, to ensure all objects are properly destroyed. function actor_binder:on_actor_before_death(whoID) log("[AVO] on_actor_before_death callback") --db.actor:set_health_ex(1) - local killer = level.object_by_id(whoID) or db.actor - killer:kill(db.actor, true) + db.actor:kill(db.actor, true) end ---------------------------------------------------------------------------------------------------------------------- From b9ac422d570489ddb8cd032de7d018aefbac816e Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 21 May 2015 19:02:06 -0400 Subject: [PATCH 093/166] + res\gamedata added Actor and Grass Shadow options --- res/gamedata/configs/text/eng/ui_st_mm.xml | 3 + res/gamedata/configs/ui/ui_mm_opt.xml | 72 +++++++++++++++++++ res/gamedata/configs/ui/ui_mm_opt_16.xml | 65 +++++++++++++++++ .../scripts/ui_mm_opt_video_adv.script | 16 +++++ 4 files changed, 156 insertions(+) diff --git a/res/gamedata/configs/text/eng/ui_st_mm.xml b/res/gamedata/configs/text/eng/ui_st_mm.xml index e27b07fad56..5b3f3900cfa 100644 --- a/res/gamedata/configs/text/eng/ui_st_mm.xml +++ b/res/gamedata/configs/text/eng/ui_st_mm.xml @@ -666,6 +666,9 @@ Shadow quality + + Actor shadow + Sun rays diff --git a/res/gamedata/configs/ui/ui_mm_opt.xml b/res/gamedata/configs/ui/ui_mm_opt.xml index 79226e29f9c..f5632adac4d 100644 --- a/res/gamedata/configs/ui/ui_mm_opt.xml +++ b/res/gamedata/configs/ui/ui_mm_opt.xml @@ -175,6 +175,15 @@ + + ui_mm_texture_quality @@ -212,6 +221,22 @@ + + ui_mm_r2_sun_details + + + ui_inGame2_checkbox + + + + + ui_mm_r__actor_shadow + + + ui_inGame2_checkbox + + + ui_mm_r1_detail_textures @@ -474,6 +499,46 @@ ui_inGame2_checkbox + + + ui_mm_cc_captioning + + + + + + + + ui_mm_cc_icc + + + ui_inGame2_checkbox + ui_mm_cc_icc_chktext + + + + + @@ -560,6 +625,13 @@ + + ui_mm_repair_feature + + + ui_inGame2_checkbox + + diff --git a/res/gamedata/configs/ui/ui_mm_opt_16.xml b/res/gamedata/configs/ui/ui_mm_opt_16.xml index 31970a71e52..9954a4cbcdf 100644 --- a/res/gamedata/configs/ui/ui_mm_opt_16.xml +++ b/res/gamedata/configs/ui/ui_mm_opt_16.xml @@ -178,6 +178,15 @@ + + ui_mm_texture_quality @@ -215,6 +224,22 @@ + + ui_mm_r2_sun_details + + + ui_inGame2_checkbox + + + + + ui_mm_r__actor_shadow + + + ui_inGame2_checkbox + + + ui_mm_r1_detail_textures @@ -477,6 +502,46 @@ ui_inGame2_checkbox + + + ui_mm_cc_captioning + + + + + + + + ui_mm_cc_icc + + + ui_inGame2_checkbox + ui_mm_cc_icc_chktext + + + + + diff --git a/res/gamedata/scripts/ui_mm_opt_video_adv.script b/res/gamedata/scripts/ui_mm_opt_video_adv.script index 374f5fc8346..fe00e0123c6 100644 --- a/res/gamedata/scripts/ui_mm_opt_video_adv.script +++ b/res/gamedata/scripts/ui_mm_opt_video_adv.script @@ -93,11 +93,27 @@ function opt_video_adv:InitControls(x, y, xml, handler) xml:InitTrackBar("video_adv:track_detail_density", _st) table.insert(handler.m_preconditions, {func=all_modes, control=_st}) + -- KD addition start + --_st = xml:InitStatic("video_adv:templ_item", nil) + --xml:InitStatic("video_adv:cap_detail_radius", _st) + --xml:InitTrackBar("video_adv:track_detail_radius", _st) + --table.insert(handler.m_preconditions, {func=all_modes, control=_st}) + -- KD addition end _st = xml:InitStatic("video_adv:templ_item", nil) xml:InitStatic("video_adv:cap_r2_sun", _st) ctl = xml:InitCheck("video_adv:check_r2_sun", _st) table.insert(handler.m_preconditions, {func=mode_ge_2, control=_st}) + + _st = xml:InitStatic("video_adv:templ_item", nil) + xml:InitStatic("video_adv:cap_r2_sun_details", _st) + ctl = xml:InitCheck("video_adv:check_r2_sun_details", _st) + table.insert(handler.m_preconditions, {func=mode_ge_2, control=_st}) + + _st = xml:InitStatic("video_adv:templ_item", nil) + xml:InitStatic("video_adv:cap_r__actor_shadow", _st) + ctl = xml:InitCheck("video_adv:check_r__actor_shadow", _st) + table.insert(handler.m_preconditions, {func=mode_ge_2, control=_st}) _st = xml:InitStatic("video_adv:templ_item", nil) xml:InitStatic("video_adv:cap_light_distance", _st) From db3dc0e711072322e0e9d02e5ab3734b828ec85d Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 21 May 2015 19:03:26 -0400 Subject: [PATCH 094/166] = fix to res/gamedata/scripts/bind_stalker.script of a line that shouldn't be there. --- res/gamedata/scripts/bind_stalker.script | 2 -- 1 file changed, 2 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index 0affd934316..5ef8a75468a 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -324,8 +324,6 @@ function actor_binder:update(delta) return end - _console.actor_update() --#SM+#-- - if self.already_jumped==false and jump_level.need_jump==true and (device().frame > self.spawn_frame+2000) then jump_level.try_to_jump() self.already_jumped = true From 504dd46d395f44969c77642beb02f207f0d8faf2 Mon Sep 17 00:00:00 2001 From: Alundaio Date: Sat, 23 May 2015 22:40:22 -0400 Subject: [PATCH 095/166] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 03af0071547..df7e060d007 100644 --- a/README.md +++ b/README.md @@ -6,7 +6,7 @@ The original engine is used in S.T.A.L.K.E.R. Call of Pripyat game released by G **Note** that [Master](https://github.com/revolucas/xray-16/tree/master) branch contains stable code that is documented on [Wiki](https://github.com/revolucas/xray-16/wiki) but you can also checkout [Working](https://github.com/revolucas/xray-16/tree/working) for nightly builds -* Build instructions can be found [here](https://github.com/revolucas/xray-16/blob/working/doc/howto/build.txt) (**not** updated for this code base yet). +* Build instructions can be found [here](https://github.com/avoitishin/xray-16/wiki/Build-Instructions) * If you find a bug or have an enhancement request, file an [Issue](https://github.com/revolucas/xray-16/issues). * Please go to our [Wiki](https://github.com/avoitishin/xray-16/wiki) pages for detailed description of changes and other useful information. From a47a8656ac41449a97e7735b5f07005df36a4049 Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 2 Jun 2015 20:16:09 -0400 Subject: [PATCH 096/166] = Consumables greater then 1x1 inv_grid_width will no longer crash the game when dragged onto a quick slot because they are ignored - removed assert crash with "Non inventory item object has parent?!" by just ignoring the the object --- src/build_config_defines.h | 4 ++-- src/xrGame/ShootingObject.cpp | 7 ++++++- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 2 +- src/xrGame/ai/stalker/ai_stalker_misc.cpp | 2 -- src/xrGame/alife_trader_abstract.cpp | 10 ++++++++- src/xrGame/stalker_combat_actions.cpp | 24 ++++++++-------------- src/xrGame/stalker_property_evaluators.cpp | 10 +++++---- src/xrGame/ui/UIActorMenuInventory.cpp | 6 ++++++ 8 files changed, 39 insertions(+), 26 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index db767427678..6f1f364f391 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -11,7 +11,7 @@ // CORE: #define NO_BUG_TRAP // dont use bug trap -#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) +//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE @@ -24,7 +24,7 @@ //-VISUAL // TWEAKS: -//#define FP_DEATH // first person death view +#define FP_DEATH // first person death view #define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) #define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define #define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index de0f7db4615..d6f9e5c85a4 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -77,7 +77,12 @@ void CShootingObject::Load (LPCSTR section) fModeShotTime = 60.f / fModeShotTime; //Cycle down RPM after first 2 shots; used for Abakan/AN-94 - bCycleDown = READ_IF_EXISTS(pSettings, r_bool, section, "cycle_down", FALSE); + if (pSettings->line_exist(section, "cycle_down")) + { + bCycleDown = pSettings->r_bool(section, "cycle_down"); + } + else + bCycleDown = false; //Alundaio: END LoadFireParams (section); diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index 36db3af6bf2..d0c09bb2b56 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -711,7 +711,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { + if ( zone /* && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) */) { if (smart_cast(zone)) continue; diff --git a/src/xrGame/ai/stalker/ai_stalker_misc.cpp b/src/xrGame/ai/stalker/ai_stalker_misc.cpp index 087102fcfe5..1346fde8836 100644 --- a/src/xrGame/ai/stalker/ai_stalker_misc.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_misc.cpp @@ -168,7 +168,6 @@ void CAI_Stalker::process_enemies () typedef MemorySpace::squad_mask_type squad_mask_type; typedef CVisualMemoryManager::VISIBLES VISIBLES; - bool found = false; squad_mask_type mask = memory().visual().mask(); VISIBLES::const_iterator I = memory().visual().objects().begin(); VISIBLES::const_iterator E = memory().visual().objects().end(); @@ -198,7 +197,6 @@ void CAI_Stalker::process_enemies () //Alundaio: END memory().make_object_visible_somewhen (member->memory().enemy().selected()); - found = true; break; } } diff --git a/src/xrGame/alife_trader_abstract.cpp b/src/xrGame/alife_trader_abstract.cpp index 721e94a5420..7433c029b05 100644 --- a/src/xrGame/alife_trader_abstract.cpp +++ b/src/xrGame/alife_trader_abstract.cpp @@ -168,8 +168,16 @@ void add_online_impl (CSE_ALifeDynamicObject *object, const bool &update_re // continue; // CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); + //Alundaio: I don't know why this happens but until I do, this will stop crash. I think maybe a deleted object is registered to come back online + if (!l_tpALifeDynamicObject) + continue; + //Alundaio End CSE_ALifeInventoryItem *l_tpALifeInventoryItem = smart_cast(l_tpALifeDynamicObject); - R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + //Alundaio + if (!l_tpALifeInventoryItem) + continue; + //Alundaio End + //R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); l_tpALifeInventoryItem->base()->s_flags.or(M_SPAWN_UPDATE); CSE_Abstract *l_tpAbstract = smart_cast(l_tpALifeInventoryItem); object->alife().server().entity_Destroy(l_tpAbstract); diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index a1bcfae8544..a2b47f04762 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -418,11 +418,13 @@ void CStalkerActionKillEnemy::execute() if (mem_object.m_object) { object().best_cover(mem_object.m_object_params.m_position); } - u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); - //Here NPC will only fire at not visible enemy for no more than 3 seconds instead of shooting at walls like morons - if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 3000) { + + if (object().memory().visual().visible_now(enemy)) { object().sight().setup(CSightAction(enemy, true, true)); fire(); + } else { + if (mem_object.m_object) + object().sight().setup(CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); } } else @@ -515,18 +517,12 @@ void CStalkerActionTakeCover::execute() m_storage->set_property(eWorldPropertyInCover, true); } - //Don't shoot if enemy not visible for longer than 3 seconds - u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); - if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 3000 && fire_make_sense()) { + if (object().memory().visual().visible_now(enemy)) + { + object().sight().setup(CSightAction(enemy, true, true)); fire(); - } - else { + } else { aim_ready(); - } - - if (object().memory().visual().visible_now(enemy)) - object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); - else { if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) { Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; @@ -699,8 +695,6 @@ void CStalkerActionHoldPosition::execute() inherited::execute(); //Alundaio: Cleaned up - //Possible TODO: This action is a good place to prevent stalkers staring at walls. A simple ray query each execute can do the trick by rotating the stalker until the differences between the last query and new query - //are larger than some defined threshold. This way you can detect edges of walls and would give the illusion of stalkers looking at corridors or chokepoints instead of through a wall. const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) return; diff --git a/src/xrGame/stalker_property_evaluators.cpp b/src/xrGame/stalker_property_evaluators.cpp index af5f89fe280..a69680938cf 100644 --- a/src/xrGame/stalker_property_evaluators.cpp +++ b/src/xrGame/stalker_property_evaluators.cpp @@ -241,12 +241,14 @@ CStalkerPropertyEvaluatorReadyToKill::CStalkerPropertyEvaluatorReadyToKill (CAI_ _value_type CStalkerPropertyEvaluatorReadyToKill::evaluate () { if (!m_object->ready_to_kill()) - return (false); + return (false); if (!m_min_ammo_count) - return (true); + return (true); + + if (!m_object->best_weapon()) + return (false); - VERIFY (m_object->best_weapon()); CWeapon& best_weapon = smart_cast(*m_object->best_weapon()); if (best_weapon.GetAmmoElapsed() <= (int)m_min_ammo_count) { if (best_weapon.GetAmmoMagSize() <= (int)m_min_ammo_count) @@ -255,7 +257,7 @@ _value_type CStalkerPropertyEvaluatorReadyToKill::evaluate () return (false); } - return (best_weapon.GetState() != CWeapon::eReload); + return (best_weapon.GetState() != CWeapon::eReload); } ////////////////////////////////////////////////////////////////////////// diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 0b37098b0c3..b6fc14d5aaa 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -759,6 +759,12 @@ bool CUIActorMenu::ToQuickSlot(CUICellItem* itm) if(!eat_item) return false; + //Alundaio: Prevent icons greater then 1x1 to be quick slotted + Ivector2 iWH = iitem->GetInvGridRect().rb; + if (iWH.x > 1 || iWH.y > 1) + return false; + //Alundaio: END + u8 slot_idx = u8(m_pQuickSlot->PickCell(GetUICursor().GetCursorPosition()).x); if(slot_idx==255) return false; From 5f6fc78db3061b94a482882206ea5504233a6d5c Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 2 Jun 2015 23:39:02 -0400 Subject: [PATCH 097/166] ~ reverted change to inside_anomaly --- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index d0c09bb2b56..36db3af6bf2 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -711,7 +711,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone /* && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) */) { + if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { if (smart_cast(zone)) continue; From 7213550c2f5b7554780b96048d264da501d6b89b Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 3 Jun 2015 09:06:12 -0400 Subject: [PATCH 098/166] = fix rpm for abakan cycle down = fix level.get_target_dist to always return range even if there is no object at cursor + added level.get_target_element which should return bone id --- src/xrGame/WeaponMagazined.cpp | 7 +++---- src/xrGame/level_script.cpp | 13 ++++++++++++- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 225617ef5fc..47c2e5b1997 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -548,13 +548,12 @@ void CWeaponMagazined::state_Fire(float dt) //Alundaio: Use fModeShotTime instead of fOneShotTime if current fire mode is 2-shot burst //Alundaio: Cycle down RPM after two shots; used for Abakan/AN-94 - float rpm = fOneShotTime; if (GetCurrentFireMode() == 2 || (bCycleDown == true && m_iShotNum <= 1) ) { - rpm = fModeShotTime; + fShotTimeCounter = fModeShotTime; } - - fShotTimeCounter += rpm; + else + fShotTimeCounter = fOneShotTime; //Alundaio: END ++m_iShotNum; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 3c60dc26e82..68f63a38bd5 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -735,10 +735,20 @@ CScriptGameObject* g_get_target_obj() float g_get_target_dist() { collide::rq_result& RQ = HUD().GetCurrentRayQuery(); - if (RQ.O) + if (RQ.range) return RQ.range; return (0); } + +u32 g_get_target_element() +{ + collide::rq_result& RQ = HUD().GetCurrentRayQuery(); + if (RQ.element) + { + return RQ.element; + } + return (0); +} //-Alundaio @@ -758,6 +768,7 @@ void CLevel::script_register(lua_State *L) def("send", &g_send), //allow the ability to send netpacket to level def("get_target_obj", &g_get_target_obj), //intentionally named to what is in xray extensions def("get_target_dist", &g_get_target_dist), + def("get_target_element", &g_get_target_element), //Can get bone cursor is targetting def("spawn_item", &spawn_section), //Alundaio: END // obsolete\deprecated From 6d79c2b534063b3ec81ec193c9cd12c4cba50c87 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 13 Jun 2015 01:34:24 -0400 Subject: [PATCH 099/166] + Restored method to attach vehicle to actor + added many exported car methods by Twitty * Force R4 to use R1 idle lighting instead of NULL * Spawn Antifreeze is now a console command * Campfires now can be turned off or on while using DX11 + Three new actor callbacks! on_attach_vehicle, on_detach_vehicle and on_use_vehicle --- src/build_config_defines.h | 4 - src/xrGame/Actor.cpp | 8 +- src/xrGame/Actor.h | 2 +- src/xrGame/ActorAnimation.cpp | 4 +- src/xrGame/ActorVehicle.cpp | 20 +- src/xrGame/Actor_Flags.h | 1 + src/xrGame/Actor_Network.cpp | 2 +- src/xrGame/Car.cpp | 94 +++++- src/xrGame/Car.h | 13 + src/xrGame/CarDamageParticles.cpp | 22 ++ src/xrGame/CarDamageParticles.h | 5 + src/xrGame/CarScript.cpp | 15 + src/xrGame/CustomZone.cpp | 2 +- src/xrGame/Level.cpp | 95 +++--- src/xrGame/ZoneCampfire.cpp | 4 +- src/xrGame/console_commands.cpp | 5 + src/xrGame/game_object_space.h | 4 + src/xrGame/script_game_object_script.cpp | 6 +- src/xrGame/xrGame.vcxproj.filters | 412 +++++++++++------------ 19 files changed, 435 insertions(+), 283 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 6f1f364f391..fc2ab407f14 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -4,14 +4,10 @@ //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) #define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) -/*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed -#define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) -***/ //-SCRIPTS // CORE: #define NO_BUG_TRAP // dont use bug trap -//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 91edcf95a14..b94d4ae61c3 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -190,7 +190,9 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_anims = xr_new(); - //. m_vehicle_anims = xr_new(); + //Alundaio: Needed for car + m_vehicle_anims = xr_new(); + //-Alundaio m_entity_condition = NULL; m_iLastHitterID = u16(-1); m_iLastHittingWeaponID = u16(-1); @@ -232,7 +234,9 @@ CActor::~CActor() xr_delete(m_pPhysics_support); xr_delete(m_anims); - //. xr_delete (m_vehicle_anims); + //Alundaio: For car + xr_delete(m_vehicle_anims); + //-Alundaio } void CActor::reinit() diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index 5afaf821038..a9aafd06aab 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -275,7 +275,7 @@ struct SDefNewsMsg{ public: SActorMotions* m_anims; -//. SActorVehicleAnims* m_vehicle_anims; + SActorVehicleAnims* m_vehicle_anims; CBlend* m_current_legs_blend; CBlend* m_current_torso_blend; diff --git a/src/xrGame/ActorAnimation.cpp b/src/xrGame/ActorAnimation.cpp index 2316dea448b..e96998311e7 100644 --- a/src/xrGame/ActorAnimation.cpp +++ b/src/xrGame/ActorAnimation.cpp @@ -266,14 +266,14 @@ void SVehicleAnimCollection::Create(IKinematicsAnimated* V,u16 num) void CActor::steer_Vehicle(float angle) { if(!m_holder) return; -/* + //Alundaio: Re-enable Car CCar* car = smart_cast(m_holder); u16 anim_type = car->DriverAnimationType(); SVehicleAnimCollection& anims=m_vehicle_anims->m_vehicles_type_collections[anim_type]; if(angle==0.f) smart_cast (Visual())->PlayCycle(anims.idles[0]); else if(angle>0.f) smart_cast (Visual())->PlayCycle(anims.steer_right); else smart_cast (Visual())->PlayCycle(anims.steer_left); -*/ + //-Alundaio } void legs_play_callback (CBlend *blend) diff --git a/src/xrGame/ActorVehicle.cpp b/src/xrGame/ActorVehicle.cpp index 5093a9ca6e7..63a1cd9fa60 100644 --- a/src/xrGame/ActorVehicle.cpp +++ b/src/xrGame/ActorVehicle.cpp @@ -21,13 +21,18 @@ #include "characterphysicssupport.h" #include "inventory.h" +#include "pch_script.h" +#include "game_object_space.h" +#include "script_callback_ex.h" +#include "script_game_object.h" + void CActor::attach_Vehicle(CHolderCustom* vehicle) { -/* + if(!vehicle) return; if(m_holder) return; - PickupModeOff (); + //PickupModeOff (); m_holder=vehicle; IRenderVisual *pVis = Visual(); @@ -55,7 +60,9 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) SetWeaponHideState (INV_STATE_CAR, true); CStepManager::on_animation_start(MotionID(), 0); -*/ + + // Real Wolf: Колбек на посадку в машину. 01.08.2014. + this->callback(GameObject::eAttachVehicle)(car->lua_game_object() ); } void CActor::detach_Vehicle() @@ -95,6 +102,9 @@ void CActor::detach_Vehicle() //. SetWeaponHideState(whs_CAR, FALSE); SetWeaponHideState(INV_STATE_CAR, false); + + // Real Wolf: колбек на высадку из машины. 01.08.2014. + this->callback(GameObject::eDetachVehicle)(car->lua_game_object() ); } bool CActor::use_Vehicle(CHolderCustom* object) @@ -124,6 +134,10 @@ bool CActor::use_Vehicle(CHolderCustom* object) attach_Vehicle(vehicle); } + // Real Wolf: колбек на использование машины (но не посадку) без учета расстояния. 01.08.2014. + else if (auto car = smart_cast(vehicle) ) + this->callback(GameObject::eUseVehicle)(car->lua_game_object() ); + return true; } return false; diff --git a/src/xrGame/Actor_Flags.h b/src/xrGame/Actor_Flags.h index 8ff67a9837e..c5de7acc447 100644 --- a/src/xrGame/Actor_Flags.h +++ b/src/xrGame/Actor_Flags.h @@ -11,6 +11,7 @@ enum{ AF_GODMODE_RT =(1<<8), AF_IMPORTANT_SAVE =(1<<9), AF_CROUCH_TOGGLE =(1<<10), + AF_SPAWN_ANTIFREEZE =(1<<11), //Alundaio }; extern Flags32 psActorFlags; diff --git a/src/xrGame/Actor_Network.cpp b/src/xrGame/Actor_Network.cpp index 1ae7c804b17..d38ef2b899f 100644 --- a/src/xrGame/Actor_Network.cpp +++ b/src/xrGame/Actor_Network.cpp @@ -838,7 +838,7 @@ void CActor::OnChangeVisual() CStepManager::reload(cNameSect().c_str()); SetCallbacks (); m_anims->Create (V); -//. m_vehicle_anims->Create (V); + m_vehicle_anims->Create (V); CDamageManager::reload(*cNameSect(),"damage",pSettings); //------------------------------------------------------------------------------- m_head = smart_cast(Visual())->LL_BoneID("bip01_head"); diff --git a/src/xrGame/Car.cpp b/src/xrGame/Car.cpp index a3fef9db1ce..940e0a4759f 100644 --- a/src/xrGame/Car.cpp +++ b/src/xrGame/Car.cpp @@ -24,6 +24,7 @@ #include "../Include/xrRender/Kinematics.h" #include "level.h" #include "ui/UIMainIngameWnd.h" +//#include "UIGameCustom.h" #include "CarWeapon.h" #include "game_object_space.h" #include "../xrEngine/gamemtllib.h" @@ -467,14 +468,16 @@ void CCar::UpdateCL ( ) // OwnerActor()->Cameras().ApplyDevice(); // } // -/* if(CurrentGameUI())// + /* + if(CurrentGameUI()) { CurrentGameUI()->UIMainIngameWnd->CarPanel().Show(true); CurrentGameUI()->UIMainIngameWnd->CarPanel().SetCarHealth(GetfHealth()); CurrentGameUI()->UIMainIngameWnd->CarPanel().SetSpeed(lin_vel.magnitude()/1000.f*3600.f/100.f); CurrentGameUI()->UIMainIngameWnd->CarPanel().SetRPM(m_current_rpm/m_max_rpm/2.f); } -*/ + */ + } UpdateExhausts (); @@ -544,8 +547,8 @@ void CCar::Hit (SHit* pHDS) CDelayedActionFuse::CheckCondition(GetfHealth()); } CDamagableItem::HitEffect(); -// if(Owner()&&Owner()->ID()==Level().CurrentEntity()->ID()) -// CurrentGameUI()->UIMainIngameWnd->CarPanel().SetCarHealth(GetfHealth()); + //if(Owner()&&Owner()->ID()==Level().CurrentEntity()->ID()) + // CurrentGameUI()->UIMainIngameWnd->CarPanel().SetCarHealth(GetfHealth()); } void CCar::ChangeCondition (float fDeltaCondition) @@ -555,8 +558,8 @@ void CCar::ChangeCondition (float fDeltaCondition) CDamagableItem::HitEffect(); if (Local() && !g_Alive() && !AlreadyDie()) KillEntity (Initiator()); -// if(Owner()&&Owner()->ID()==Level().CurrentEntity()->ID()) -// CurrentGameUI()->UIMainIngameWnd->CarPanel().SetCarHealth(GetfHealth()); + //if(Owner()&&Owner()->ID()==Level().CurrentEntity()->ID()) + // CurrentGameUI()->UIMainIngameWnd->CarPanel().SetCarHealth(GetfHealth()); } void CCar::PHHit(SHit &H) @@ -838,13 +841,18 @@ void CCar::CreateSkeleton(CSE_Abstract *po) pK->CalculateBones (TRUE); } phys_shell_verify_object_model ( *this ); -#pragma todo(" replace below by P_build_Shell or call inherited") + //Alundaio: p_build_shell + /* + #pragma todo(" replace below by P_build_Shell or call inherited") m_pPhysicsShell = P_create_Shell(); m_pPhysicsShell->build_FromKinematics(pK,&bone_map); m_pPhysicsShell->set_PhysicsRefObject(this); m_pPhysicsShell->mXFORM.set(XFORM()); m_pPhysicsShell->Activate(true); m_pPhysicsShell->SetAirResistance(0.f,0.f); + */ + m_pPhysicsShell = P_build_Shell(this, true, &bone_map); + //-Alundaio m_pPhysicsShell->SetPrefereExactIntegration(); ApplySpawnIniToPhysicShell(&po->spawn_ini(),m_pPhysicsShell,false); @@ -2036,4 +2044,74 @@ Fvector CCar:: ExitVelocity () return v; } -//#endif // #if 0 +/************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ +// получить и задать текущее количество топлива +float CCar::GetfFuel() +{ + return m_fuel; +} +void CCar::SetfFuel(float fuel) +{ + m_fuel = fuel; +} +// получить и задать размер топливного бака +float CCar::GetfFuelTank() +{ + return m_fuel_tank; +} +void CCar::SetfFuelTank(float fuel_tank) +{ + m_fuel_tank = fuel_tank; +} +// получить и задать величину потребление топлива +float CCar::GetfFuelConsumption() +{ + return m_fuel_consumption; +} +void CCar::SetfFuelConsumption(float fuel_consumption) +{ + m_fuel_consumption = fuel_consumption; +} +// прибавить или убавить количество топлива +void CCar::ChangefFuel(float fuel) +{ + if(m_fuel + fuel < 0) + { + m_fuel = 0; + return; + } + + if(fuel < m_fuel_tank - m_fuel) + { + m_fuel += fuel; + } + else + { + m_fuel = m_fuel_tank; + } +} +// прибавить или убавить жизней :) +void CCar::ChangefHealth(float health) +{ + float current_health = GetfHealth(); + if(current_health + health < 0) + { + SetfHealth(0); + return; + } + + if(health < 1 - current_health) + { + SetfHealth(current_health + health); + } + else + { + SetfHealth(1); + } +} +// активен ли сейчас двигатель +bool CCar::isActiveEngine() +{ + return b_engine_on; +} +/*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ diff --git a/src/xrGame/Car.h b/src/xrGame/Car.h index 781dc2c9d98..f9cffac4d7c 100644 --- a/src/xrGame/Car.h +++ b/src/xrGame/Car.h @@ -503,6 +503,19 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} void UpdateFuel (float time_delta); float AddFuel (float ammount); //ammount - fuel to load, ret - fuel loaded void CarExplode (); + /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ + float GetfFuel (); + void SetfFuel (float fuel); + float GetfFuelTank (); + void SetfFuelTank (float fuel_tank); + float GetfFuelConsumption (); + void SetfFuelConsumption (float fuel_consumption); + void ChangefFuel (float fuel); + void ChangefHealth (float health); + void PlayDamageParticles (){m_damage_particles.Play1(this);m_damage_particles.Play2(this);} + void StopDamageParticles (){m_damage_particles.Stop1(this);m_damage_particles.Stop2(this);} + bool isActiveEngine (); + /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ //////////////////////////////////////////// //////// void OnCameraChange (int type); diff --git a/src/xrGame/CarDamageParticles.cpp b/src/xrGame/CarDamageParticles.cpp index 02dac0f67a0..aa593acba72 100644 --- a/src/xrGame/CarDamageParticles.cpp +++ b/src/xrGame/CarDamageParticles.cpp @@ -62,6 +62,28 @@ void CCarDamageParticles::Play2(CCar* car) } } +/************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ +// функции для выключения партиклов дыма +void CCarDamageParticles::Stop1(CCar* car) +{ + if(*m_car_damage_particles1) + { + BIDS_I i=bones1.begin(),e=bones1.end(); + for(;e!=i;++i) car->StopParticles(car->ID(),*i,false); + } +} + +void CCarDamageParticles::Stop2(CCar* car) +{ + VERIFY(!ph_world->Processing()); + if(*m_car_damage_particles2) + { + BIDS_I i=bones2.begin(),e=bones2.end(); + for(;e!=i;++i) car->StopParticles(car->ID(),*i,false); + } +} +/*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ + void CCarDamageParticles::PlayWheel1(CCar*car,u16 bone_id) { VERIFY(!physics_world()->Processing()); diff --git a/src/xrGame/CarDamageParticles.h b/src/xrGame/CarDamageParticles.h index 81583ebc5a7..a936bba175e 100644 --- a/src/xrGame/CarDamageParticles.h +++ b/src/xrGame/CarDamageParticles.h @@ -16,6 +16,11 @@ void Init (CCar* car); void Clear (); void Play1 (CCar* car); void Play2 (CCar* car); +/************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ +// функции для выключения партиклов дыма +void Stop1 (CCar* car); +void Stop2 (CCar* car); +/*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ void PlayWheel1 (CCar*car,u16 bone_id); void PlayWheel2 (CCar*car,u16 bone_id); }; \ No newline at end of file diff --git a/src/xrGame/CarScript.cpp b/src/xrGame/CarScript.cpp index 434ff3da0ce..56808f25c0a 100644 --- a/src/xrGame/CarScript.cpp +++ b/src/xrGame/CarScript.cpp @@ -34,6 +34,21 @@ void CCar::script_register(lua_State *L) .def("SetExplodeTime", &CCar::SetExplodeTime) .def("ExplodeTime", &CCar::ExplodeTime) .def("CarExplode", &CCar::CarExplode) + /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ + .def("GetfFuel", &CCar::GetfFuel) + .def("SetfFuel", &CCar::SetfFuel) + .def("GetfFuelTank", &CCar::GetfFuelTank) + .def("SetfFuelTank", &CCar::SetfFuelTank) + .def("GetfFuelConsumption", &CCar::GetfFuelConsumption) + .def("SetfFuelConsumption", &CCar::SetfFuelConsumption) + .def("ChangefFuel", &CCar::ChangefFuel) + .def("ChangefHealth", &CCar::ChangefHealth) + .def("PlayDamageParticles", &CCar::PlayDamageParticles) + .def("StopDamageParticles", &CCar::StopDamageParticles) + .def("StartEngine", &CCar::StartEngine) + .def("StopEngine", &CCar::StopEngine) + .def("IsActiveEngine", &CCar::isActiveEngine) + /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ .def(constructor<>()) ]; } \ No newline at end of file diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 25d69dcf773..5eea28203ba 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -308,7 +308,7 @@ BOOL CCustomZone::net_Spawn(CSE_Abstract* DC) m_zone_flags.set (eUseOnOffTime, (m_TimeToDisable!=0)&&(m_TimeToEnable!=0) ); //добавить источники света - bool br1 = (0==psDeviceFlags.test(rsR2|rsR3)); + bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: Renderer R4 to use R1 lighting, too bool render_ver_allowed = !br1 || (br1&&m_zone_flags.test(eIdleLightR1)) ; diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index b41dd91926a..71b7533ac3a 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -293,23 +293,6 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { - /* This is not the right place for this (if this is even required...) - //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases - //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash -#ifdef SPAWN_ANTIFREEZE - for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) - { - const NET_Event& E = *it; - NET_Packet P; - if (M_SPAWN != E.ID) continue; - E.implication(P); - u16 parent_id; - if (GO->ID() == GetSpawnInfo(P, parent_id)) - spawn_events->queue.erase(it); // if parent is being destroyed, delete all queued up children - } -#endif - //-AVO - */ Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -370,49 +353,57 @@ void CLevel::ProcessGameEvents() NET_Packet P; u32 svT = timeServer() - NET_Latency; - //AVO: spawn antifreeze implementation by alpet -#ifdef SPAWN_ANTIFREEZE - while (spawn_events->available(svT)) - { - u16 ID, dest, type; - spawn_events->get(ID, dest, type, P); - game_events->insert(P); - } - u32 avail_time = 5; - u32 elps = Device.frame_elapsed(); - if (elps < 30) avail_time = 33 - elps; - u32 work_limit = elps + avail_time; -#endif + //Alundaio: Modified to be toggled via console command + //AVO: spawn antifreeze implementation by alpet + u32 work_limit; + + if (psActorFlags.test(AF_SPAWN_ANTIFREEZE)) + { + while (spawn_events->available(svT)) + { + u16 ID, dest, type; + spawn_events->get(ID, dest, type, P); + game_events->insert(P); + } + u32 avail_time = 5; + u32 elps = Device.frame_elapsed(); + if (elps < 30) avail_time = 33 - elps; + work_limit = elps + avail_time; + } //-AVO + //-Alundaio while (game_events->available(svT)) { u16 ID, dest, type; game_events->get(ID, dest, type, P); + //Alundaio: Modified to be toggled via console command //AVO: spawn antifreeze implementation by alpet -#ifdef SPAWN_ANTIFREEZE - // не отправлять события не заспавненным объектам - if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) - { - spawn_events->insert(P); - continue; - } - if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов - { - u16 parent_id; - GetSpawnInfo(P, parent_id); - //------------------------------------------------- - if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры - { - if (!spawn_events->available(svT)) - Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); - - spawn_events->insert(P); - continue; - } - } -#endif + if (psActorFlags.test(AF_SPAWN_ANTIFREEZE)) + { + // не отправлять события не заспавненным объектам + if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) + { + spawn_events->insert(P); + continue; + } + if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов + { + u16 parent_id; + GetSpawnInfo(P, parent_id); + //------------------------------------------------- + if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры + { + if (!spawn_events->available(svT)) + Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); + + spawn_events->insert(P); + continue; + } + } + } //-AVO + //-Alundaio switch (ID) { case M_SPAWN: diff --git a/src/xrGame/ZoneCampfire.cpp b/src/xrGame/ZoneCampfire.cpp index 871b64e69a6..96be2fb9746 100644 --- a/src/xrGame/ZoneCampfire.cpp +++ b/src/xrGame/ZoneCampfire.cpp @@ -70,7 +70,7 @@ void CZoneCampfire::GoDisabledState() #define OVL_TIME 3000 void CZoneCampfire::turn_on_script() { - if( psDeviceFlags.test(rsR2|rsR3) ) + if( psDeviceFlags.test(rsR2|rsR3|rsR4) ) { m_turn_time = Device.dwTimeGlobal+OVL_TIME; m_turned_on = true; @@ -80,7 +80,7 @@ void CZoneCampfire::turn_on_script() void CZoneCampfire::turn_off_script() { - if( psDeviceFlags.test(rsR2|rsR3) ) + if( psDeviceFlags.test(rsR2|rsR3|rsR4) ) { m_turn_time = Device.dwTimeGlobal+OVL_TIME; m_turned_on = false; diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 503f83d1e5b..2d0df22024b 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -2089,6 +2089,11 @@ void CCC_RegisterCommands() CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); + //Alundaio + CMD3(CCC_Mask, "g_spawn_antifreeze", &psActorFlags, AF_SPAWN_ANTIFREEZE); + //-Alundaio + + #ifdef DEBUG CMD1(CCC_LuaHelp, "lua_help"); CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 7e7054e167f..d4043b649a2 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -67,6 +67,10 @@ namespace GameObject eItemToRuck, // actor eActorBeforeDeath, + // vehicle + eAttachVehicle, + eDetachVehicle, + eUseVehicle, //-AVO eDummy = u32(-1), diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index 5ab6c3db0ec..092430028fa 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -105,7 +105,11 @@ void CScriptGameObject::script_register(lua_State *L) value("item_to_ruck", int(GameObject::eItemToRuck)), // actor value("actor_before_death", int(GameObject::eActorBeforeDeath)), - //-AVO + // vehicle + value("on_attach_vehicle", int(GameObject::eAttachVehicle)), + value("on_detach_vehicle", int(GameObject::eDetachVehicle)), + value("on_use_vehicle", int(GameObject::eUseVehicle)), + //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) ], diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index 0110933ebcf..33c0c679fdd 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -553,84 +553,6 @@ {cd542964-a88c-4d41-85bb-f549766ac70f} - - {2f5dd1ce-9927-4917-a6fa-6b0113f79b00} - - - {69fc9311-024d-451f-bcad-8a5b05ba9ba8} - - - {f76b9f11-e049-4117-be33-eb90695baee0} - - - {3f0f8bce-f527-47da-86e3-6547a08ff9c9} - - - {917f2215-4fe0-49cd-9710-ad42d4bbf980} - - - {d21c6f37-aa25-425f-ab15-dd85562e4dac} - - - {2fa0f717-0403-4c7e-ad7f-2530a88eb71c} - - - {fae29cab-3d66-4aba-8a69-75b6d84dc74d} - - - {4946196d-1f2b-4e07-9207-f0789b2528fc} - - - {098ea533-6ac0-45d2-87d0-f7b07721ed96} - - - {db21b3a4-109b-4ee8-a49c-f514367ae3a9} - - - {986484e0-dae7-4668-9bac-99821ec28ed8} - - - {ac2feaf9-e056-41bf-ba53-48ee2f244e10} - - - {a5d2eea2-ff2a-4205-9aa4-662793385c62} - - - {d8f01b6a-bd7d-4d92-836b-7da8f0719f2e} - - - {d98d5aed-0349-4cd2-a98e-aa8828cae8ab} - - - {c71ab8da-df07-42c0-8a59-79de3f0e0be8} - - - {c0671f30-b395-4aaa-b068-48ad750e6229} - - - {786a1168-d1fe-400c-94dd-34b3b7c73b07} - - - {20b3de5c-c8dd-4115-9638-50e8108ffcfa} - - - {da4c1a2f-7fc9-48ac-8335-2fbc70053f19} - - - {509e0ea6-e30e-453c-bf81-20f77ddc1b9a} - - - {be8f072a-a4a2-4eb8-b5c0-c33397f263cc} - - - {bc35ae2d-65bf-4008-bc50-c26fdad27d6c} - - - {e3f6cc93-c7c7-4f59-b334-e90f6870dd1b} - - - {71df3723-4ad3-4db1-9eb8-7bf643a66f93} - {3c35eeec-8bc5-4153-8485-122dfcdb7e25} @@ -2491,6 +2413,84 @@ {3c08723e-1b59-45e4-958f-3a1c5590cfa9} + + {2f5dd1ce-9927-4917-a6fa-6b0113f79b00} + + + {69fc9311-024d-451f-bcad-8a5b05ba9ba8} + + + {f76b9f11-e049-4117-be33-eb90695baee0} + + + {3f0f8bce-f527-47da-86e3-6547a08ff9c9} + + + {917f2215-4fe0-49cd-9710-ad42d4bbf980} + + + {d21c6f37-aa25-425f-ab15-dd85562e4dac} + + + {2fa0f717-0403-4c7e-ad7f-2530a88eb71c} + + + {fae29cab-3d66-4aba-8a69-75b6d84dc74d} + + + {4946196d-1f2b-4e07-9207-f0789b2528fc} + + + {098ea533-6ac0-45d2-87d0-f7b07721ed96} + + + {db21b3a4-109b-4ee8-a49c-f514367ae3a9} + + + {986484e0-dae7-4668-9bac-99821ec28ed8} + + + {ac2feaf9-e056-41bf-ba53-48ee2f244e10} + + + {a5d2eea2-ff2a-4205-9aa4-662793385c62} + + + {d8f01b6a-bd7d-4d92-836b-7da8f0719f2e} + + + {d98d5aed-0349-4cd2-a98e-aa8828cae8ab} + + + {c71ab8da-df07-42c0-8a59-79de3f0e0be8} + + + {c0671f30-b395-4aaa-b068-48ad750e6229} + + + {786a1168-d1fe-400c-94dd-34b3b7c73b07} + + + {20b3de5c-c8dd-4115-9638-50e8108ffcfa} + + + {da4c1a2f-7fc9-48ac-8335-2fbc70053f19} + + + {509e0ea6-e30e-453c-bf81-20f77ddc1b9a} + + + {be8f072a-a4a2-4eb8-b5c0-c33397f263cc} + + + {bc35ae2d-65bf-4008-bc50-c26fdad27d6c} + + + {e3f6cc93-c7c7-4f59-b334-e90f6870dd1b} + + + {71df3723-4ad3-4db1-9eb8-7bf643a66f93} + @@ -3460,388 +3460,388 @@ AI\AMonsters\common\base monster - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Rest + AI\AMonsters\common\script\monster states\Rest - AI\AMonsters\common\monster states\Panic + AI\AMonsters\common\script\monster states\Panic - AI\AMonsters\common\monster states\Panic + AI\AMonsters\common\script\monster states\Panic - AI\AMonsters\common\monster states\Panic + AI\AMonsters\common\script\monster states\Panic - AI\AMonsters\common\monster states\Panic + AI\AMonsters\common\script\monster states\Panic - AI\AMonsters\common\monster states\Interesting Sound + AI\AMonsters\common\script\monster states\Interesting Sound - AI\AMonsters\common\monster states\Interesting Sound + AI\AMonsters\common\script\monster states\Interesting Sound - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Attack + AI\AMonsters\common\script\monster states\Attack - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Hitted + AI\AMonsters\common\script\monster states\Hitted - AI\AMonsters\common\monster states\Steal + AI\AMonsters\common\script\monster states\Steal - AI\AMonsters\common\monster states\Steal + AI\AMonsters\common\script\monster states\Steal - AI\AMonsters\common\monster states\Steal\Squad\Rest + AI\AMonsters\common\script\monster states\Steal\Squad\Rest - AI\AMonsters\common\monster states\Steal\Squad\Rest + AI\AMonsters\common\script\monster states\Steal\Squad\Rest - AI\AMonsters\common\monster states\Steal\Squad\Rest + AI\AMonsters\common\script\monster states\Steal\Squad\Rest - AI\AMonsters\common\monster states\Steal\Squad\Rest + AI\AMonsters\common\script\monster states\Steal\Squad\Rest - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Home Point + AI\AMonsters\common\script\monster states\Home Point - AI\AMonsters\common\monster states\Help Sound + AI\AMonsters\common\script\monster states\Help Sound - AI\AMonsters\common\monster states\Help Sound + AI\AMonsters\common\script\monster states\Help Sound - AI\AMonsters\common\monster states\ALife + AI\AMonsters\common\script\monster states\ALife - AI\AMonsters\common\monster states\ALife + AI\AMonsters\common\script\monster states\ALife - AI\AMonsters\common\monster states\ALife + AI\AMonsters\common\script\monster states\ALife - AI\AMonsters\common\monster states\ALife + AI\AMonsters\common\script\monster states\ALife - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Group Monsters Home + AI\AMonsters\common\script\monster states\Group Monsters Home - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Find Enemy + AI\AMonsters\common\script\monster states\Find Enemy - AI\AMonsters\common\monster states\Eat + AI\AMonsters\common\script\monster states\Eat - AI\AMonsters\common\monster states\Eat + AI\AMonsters\common\script\monster states\Eat - AI\AMonsters\common\monster states\Eat\Eating + AI\AMonsters\common\script\monster states\Eat\Eating - AI\AMonsters\common\monster states\Eat\Eating + AI\AMonsters\common\script\monster states\Eat\Eating - AI\AMonsters\common\monster states\Eat\Drag + AI\AMonsters\common\script\monster states\Eat\Drag - AI\AMonsters\common\monster states\Eat\Drag + AI\AMonsters\common\script\monster states\Eat\Drag - AI\AMonsters\common\monster states\General + AI\AMonsters\common\script\monster states\General - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Movement + AI\AMonsters\common\script\monster states\General\Movement - AI\AMonsters\common\monster states\General\Look + AI\AMonsters\common\script\monster states\General\Look - AI\AMonsters\common\monster states\General\Look + AI\AMonsters\common\script\monster states\General\Look - AI\AMonsters\common\monster states\General\Look + AI\AMonsters\common\script\monster states\General\Look - AI\AMonsters\common\monster states\General\Look + AI\AMonsters\common\script\monster states\General\Look - AI\AMonsters\common\monster states\General\Custom Action + AI\AMonsters\common\script\monster states\General\Custom Action - AI\AMonsters\common\monster states\General\Custom Action + AI\AMonsters\common\script\monster states\General\Custom Action - AI\AMonsters\common\monster states\General\Custom Action + AI\AMonsters\common\script\monster states\General\Custom Action - AI\AMonsters\common\monster states\General\Custom Action + AI\AMonsters\common\script\monster states\General\Custom Action - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\General\Test + AI\AMonsters\common\script\monster states\General\Test - AI\AMonsters\common\monster states\Dangerous Sound + AI\AMonsters\common\script\monster states\Dangerous Sound - AI\AMonsters\common\monster states\Dangerous Sound + AI\AMonsters\common\script\monster states\Dangerous Sound - AI\AMonsters\common\monster states\Camp + AI\AMonsters\common\script\monster states\Camp - AI\AMonsters\common\monster states\Camp + AI\AMonsters\common\script\monster states\Camp - AI\AMonsters\common\monster states\Camp + AI\AMonsters\common\script\monster states\Camp - AI\AMonsters\common\monster states\Camp + AI\AMonsters\common\script\monster states\Camp - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled - AI\AMonsters\common\monster states\Controlled + AI\AMonsters\common\script\monster states\Controlled AI\AMonsters\common\components From 924dc7190ca5e2f3ddbf82b702238125a9eb258b Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 16 Jun 2015 22:49:33 -0400 Subject: [PATCH 100/166] ~ reverted changes done to SPAWN_ANTIFREEZE due to issues with it (undefined by default) * alife_storage_manager.cpp makes direct engine call to script alife_storage_manager.script to pass the save game filename. alife_storage_manager.CALifeStorageManager_save alife_storage_manager.CALifeStorageManager_load * smooth crouch fix * renderer_r4 no longer is forced to use r1 idle light + callback.weapon_zoom_in + callback.weapon_zoom_out + callback.weapon_jammed + game_object:get_artefact_health(); + game_object:get_artefact_radiation(); + game_object:get_artefact_satiety(); + game_object:get_artefact_power(); + game_object:get_artefact_bleeding(); + game_object:set_artefact_health(float value); + game_object:set_artefact_radiation(float value); + game_object:set_artefact_satiety(float value); + game_object:set_artefact_power(float value); + game_object:set_artefact_bleeding(float value); + game_object:attach_vehicle(gameobject veh) *actor only* + game_object:detach_vehicle() *actor only* + game_object:force_set_position(vector3) --- src/build_config_defines.h | 4 + src/xrGame/Actor.cpp | 5 + src/xrGame/Actor.h | 4 + src/xrGame/ActorCameras.cpp | 10 +- src/xrGame/ActorVehicle.cpp | 22 ++-- src/xrGame/Actor_Flags.h | 1 - src/xrGame/Artefact.h | 12 ++ src/xrGame/Car.h | 23 ++-- src/xrGame/CustomZone.cpp | 2 +- src/xrGame/Level.cpp | 95 +++++++------- src/xrGame/Weapon.h | 2 +- src/xrGame/WeaponMagazined.cpp | 18 +++ src/xrGame/alife_storage_manager.cpp | 19 +++ src/xrGame/console_commands.cpp | 5 - src/xrGame/game_object_space.h | 4 + src/xrGame/script_game_object.h | 26 +++- src/xrGame/script_game_object3.cpp | 116 +++++++++++++++++- .../script_game_object_inventory_owner.cpp | 9 +- src/xrGame/script_game_object_script.cpp | 12 +- src/xrGame/script_game_object_script3.cpp | 25 +++- 20 files changed, 326 insertions(+), 88 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index fc2ab407f14..6f1f364f391 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -4,10 +4,14 @@ //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) #define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) +/*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed +#define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) +***/ //-SCRIPTS // CORE: #define NO_BUG_TRAP // dont use bug trap +//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) #define NON_FATAL_VERIFY // don't crash game when VERIFY fails #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index b94d4ae61c3..af239525d07 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -211,6 +211,8 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_disabled_hitmarks = false; m_inventory_disabled = false; + // Alex ADD: for smooth crouch fix + CurrentHeight = 0.f; } @@ -447,6 +449,9 @@ void CActor::Load(LPCSTR section) m_sInventoryBoxUseAction = "inventory_box_use"; //--------------------------------------------------------------------- m_sHeadShotParticle = READ_IF_EXISTS(pSettings, r_string, section, "HeadShotParticle", 0); + + // Alex ADD: for smooth crouch fix + CurrentHeight = CameraHeight(); } void CActor::PHHit(SHit &H) diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index a9aafd06aab..f072cc6f2d0 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -392,6 +392,10 @@ struct SDefNewsMsg{ bool CanJump (); bool CanMove (); float CameraHeight (); + + // Alex ADD: for smooth crouch fix + float CurrentHeight; + bool CanSprint (); bool CanRun (); void StopAnyMove (); diff --git a/src/xrGame/ActorCameras.cpp b/src/xrGame/ActorCameras.cpp index 89ef90af0e5..5365dd464b4 100644 --- a/src/xrGame/ActorCameras.cpp +++ b/src/xrGame/ActorCameras.cpp @@ -310,7 +310,15 @@ void CActor::cam_Update(float dt, float fFOV) } else current_ik_cam_shift = 0; - Fvector point = {0,CameraHeight() + current_ik_cam_shift,0}; + // Alex ADD: smooth crouch fix + float HeightInterpolationSpeed = 4.f; + + if (CurrentHeight != CameraHeight()) + { + CurrentHeight = (CurrentHeight * (1.0f - HeightInterpolationSpeed*dt)) + (CameraHeight() * HeightInterpolationSpeed*dt); + } + + Fvector point = { 0, CurrentHeight + current_ik_cam_shift, 0 }; Fvector dangle = {0,0,0}; Fmatrix xform; xform.setXYZ (0,r_torso.yaw,0); diff --git a/src/xrGame/ActorVehicle.cpp b/src/xrGame/ActorVehicle.cpp index 63a1cd9fa60..49852b04fe4 100644 --- a/src/xrGame/ActorVehicle.cpp +++ b/src/xrGame/ActorVehicle.cpp @@ -55,14 +55,15 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) character_physics_support ()->movement()->DestroyCharacter(); mstate_wishful = 0; - m_holderID=car->ID (); + m_holderID = car->ID(); SetWeaponHideState (INV_STATE_CAR, true); CStepManager::on_animation_start(MotionID(), 0); - // Real Wolf: Колбек на посадку в машину. 01.08.2014. - this->callback(GameObject::eAttachVehicle)(car->lua_game_object() ); + //Alundaio + this->callback(GameObject::eAttachVehicle)(car->lua_game_object()); + //-Alundaio } void CActor::detach_Vehicle() @@ -86,6 +87,10 @@ void CActor::detach_Vehicle() // sh->Activate(); car->PPhysicsShell()->SplitterHolderActivate(); m_holder->detach_Actor();// + + //Alundaio + this->callback(GameObject::eDetachVehicle)(car->lua_game_object()); + //-Alundaio character_physics_support()->movement()->SetPosition(m_holder->ExitPosition()); character_physics_support()->movement()->SetVelocity(m_holder->ExitVelocity()); @@ -102,9 +107,6 @@ void CActor::detach_Vehicle() //. SetWeaponHideState(whs_CAR, FALSE); SetWeaponHideState(INV_STATE_CAR, false); - - // Real Wolf: колбек на высадку из машины. 01.08.2014. - this->callback(GameObject::eDetachVehicle)(car->lua_game_object() ); } bool CActor::use_Vehicle(CHolderCustom* object) @@ -134,9 +136,13 @@ bool CActor::use_Vehicle(CHolderCustom* object) attach_Vehicle(vehicle); } - // Real Wolf: колбек на использование машины (но не посадку) без учета расстояния. 01.08.2014. - else if (auto car = smart_cast(vehicle) ) + else + { + //Alundaio + CCar * car= smart_cast(vehicle); this->callback(GameObject::eUseVehicle)(car->lua_game_object() ); + //-Alundaio + } return true; } diff --git a/src/xrGame/Actor_Flags.h b/src/xrGame/Actor_Flags.h index c5de7acc447..8ff67a9837e 100644 --- a/src/xrGame/Actor_Flags.h +++ b/src/xrGame/Actor_Flags.h @@ -11,7 +11,6 @@ enum{ AF_GODMODE_RT =(1<<8), AF_IMPORTANT_SAVE =(1<<9), AF_CROUCH_TOGGLE =(1<<10), - AF_SPAWN_ANTIFREEZE =(1<<11), //Alundaio }; extern Flags32 psActorFlags; diff --git a/src/xrGame/Artefact.h b/src/xrGame/Artefact.h index 66796ff7030..d44c91f2d15 100644 --- a/src/xrGame/Artefact.h +++ b/src/xrGame/Artefact.h @@ -39,6 +39,18 @@ class CArtefact : public CHudItemObject, virtual CArtefact* cast_artefact () {return this;} + float GetHealthPower () {return m_fHealthRestoreSpeed;} + float GetRadiationPower () {return m_fRadiationRestoreSpeed;} + float GetSatietyPower () {return m_fSatietyRestoreSpeed;} + float GetPowerPower () {return m_fPowerRestoreSpeed;} + float GetBleedingPower () {return m_fBleedingRestoreSpeed;} + + void SetHealthPower (float value) {m_fHealthRestoreSpeed = value;} + void SetRadiationPower (float value) {m_fRadiationRestoreSpeed = value;} + void SetSatietyPower (float value) {m_fSatietyRestoreSpeed = value;} + void SetPowerPower (float value) {m_fPowerRestoreSpeed = value;} + void SetBleedingPower (float value) {m_fBleedingRestoreSpeed = value;} + protected: virtual void UpdateCLChild () {}; virtual void CreateArtefactActivation (); diff --git a/src/xrGame/Car.h b/src/xrGame/Car.h index f9cffac4d7c..fd559190656 100644 --- a/src/xrGame/Car.h +++ b/src/xrGame/Car.h @@ -504,17 +504,17 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} float AddFuel (float ammount); //ammount - fuel to load, ret - fuel loaded void CarExplode (); /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ - float GetfFuel (); - void SetfFuel (float fuel); - float GetfFuelTank (); - void SetfFuelTank (float fuel_tank); - float GetfFuelConsumption (); - void SetfFuelConsumption (float fuel_consumption); - void ChangefFuel (float fuel); - void ChangefHealth (float health); - void PlayDamageParticles (){m_damage_particles.Play1(this);m_damage_particles.Play2(this);} - void StopDamageParticles (){m_damage_particles.Stop1(this);m_damage_particles.Stop2(this);} - bool isActiveEngine (); + float GetfFuel(); + void SetfFuel(float fuel); + float GetfFuelTank(); + void SetfFuelTank(float fuel_tank); + float GetfFuelConsumption(); + void SetfFuelConsumption(float fuel_consumption); + void ChangefFuel(float fuel); + void ChangefHealth(float health); + void PlayDamageParticles(){ m_damage_particles.Play1(this); m_damage_particles.Play2(this); } + void StopDamageParticles(){ m_damage_particles.Stop1(this); m_damage_particles.Stop2(this); } + bool isActiveEngine(); /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ //////////////////////////////////////////// //////// @@ -608,6 +608,7 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} // Inventory for the car CInventory* GetInventory (){return inventory;} void VisualUpdate (float fov=90.0f); + protected: virtual void SpawnInitPhysics (CSE_Abstract *D) ; virtual void net_Save (NET_Packet& P) ; diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 5eea28203ba..46e6170d9fa 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -308,7 +308,7 @@ BOOL CCustomZone::net_Spawn(CSE_Abstract* DC) m_zone_flags.set (eUseOnOffTime, (m_TimeToDisable!=0)&&(m_TimeToEnable!=0) ); //добавить источники света - bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: Renderer R4 to use R1 lighting, too + bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: Renderer R4 to not use R1 lighting, too bool render_ver_allowed = !br1 || (br1&&m_zone_flags.test(eIdleLightR1)) ; diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index 71b7533ac3a..b41dd91926a 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -293,6 +293,23 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { + /* This is not the right place for this (if this is even required...) + //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases + //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash +#ifdef SPAWN_ANTIFREEZE + for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) + { + const NET_Event& E = *it; + NET_Packet P; + if (M_SPAWN != E.ID) continue; + E.implication(P); + u16 parent_id; + if (GO->ID() == GetSpawnInfo(P, parent_id)) + spawn_events->queue.erase(it); // if parent is being destroyed, delete all queued up children + } +#endif + //-AVO + */ Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -353,57 +370,49 @@ void CLevel::ProcessGameEvents() NET_Packet P; u32 svT = timeServer() - NET_Latency; - //Alundaio: Modified to be toggled via console command - //AVO: spawn antifreeze implementation by alpet - u32 work_limit; - - if (psActorFlags.test(AF_SPAWN_ANTIFREEZE)) - { - while (spawn_events->available(svT)) - { - u16 ID, dest, type; - spawn_events->get(ID, dest, type, P); - game_events->insert(P); - } - u32 avail_time = 5; - u32 elps = Device.frame_elapsed(); - if (elps < 30) avail_time = 33 - elps; - work_limit = elps + avail_time; - } + //AVO: spawn antifreeze implementation by alpet +#ifdef SPAWN_ANTIFREEZE + while (spawn_events->available(svT)) + { + u16 ID, dest, type; + spawn_events->get(ID, dest, type, P); + game_events->insert(P); + } + u32 avail_time = 5; + u32 elps = Device.frame_elapsed(); + if (elps < 30) avail_time = 33 - elps; + u32 work_limit = elps + avail_time; +#endif //-AVO - //-Alundaio while (game_events->available(svT)) { u16 ID, dest, type; game_events->get(ID, dest, type, P); - //Alundaio: Modified to be toggled via console command //AVO: spawn antifreeze implementation by alpet - if (psActorFlags.test(AF_SPAWN_ANTIFREEZE)) - { - // не отправлять события не заспавненным объектам - if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) - { - spawn_events->insert(P); - continue; - } - if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов - { - u16 parent_id; - GetSpawnInfo(P, parent_id); - //------------------------------------------------- - if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры - { - if (!spawn_events->available(svT)) - Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); - - spawn_events->insert(P); - continue; - } - } - } +#ifdef SPAWN_ANTIFREEZE + // не отправлять события не заспавненным объектам + if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) + { + spawn_events->insert(P); + continue; + } + if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов + { + u16 parent_id; + GetSpawnInfo(P, parent_id); + //------------------------------------------------- + if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры + { + if (!spawn_events->available(svT)) + Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); + + spawn_events->insert(P); + continue; + } + } +#endif //-AVO - //-Alundaio switch (ID) { case M_SPAWN: diff --git a/src/xrGame/Weapon.h b/src/xrGame/Weapon.h index 8a8a5975b09..b1b28fe9d5b 100644 --- a/src/xrGame/Weapon.h +++ b/src/xrGame/Weapon.h @@ -182,7 +182,7 @@ class CWeapon : public CHudItemObject, { return true; }; - + //обновление видимости для косточек аддонов void UpdateAddonsVisibility(); void UpdateHUDAddonsVisibility(); diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 47c2e5b1997..b698d763c0c 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -175,6 +175,12 @@ void CWeaponMagazined::FireStart() } else {//misfire + //Alundaio + CGameObject *object = smart_cast(H_Parent()); + if (object) + object->callback(GameObject::eOnWeaponJammed)(object->lua_game_object(), this->lua_game_object()); + //-Alundaio + if (smart_cast(this->H_Parent()) && (Level().CurrentViewEntity() == H_Parent())) CurrentGameUI()->AddCustomStatic("gun_jammed", true); @@ -1189,6 +1195,12 @@ void CWeaponMagazined::OnZoomIn() if (GetState() == eIdle) PlayAnimIdle(); + //Alundaio: callback not sure why vs2013 gives error, it's fine + CGameObject *object = smart_cast(H_Parent()); + if (object) + object->callback(GameObject::eOnWeaponZoomIn)(object->lua_game_object(),this->lua_game_object()); + //-Alundaio + CActor* pActor = smart_cast(H_Parent()); if (pActor) { @@ -1212,6 +1224,12 @@ void CWeaponMagazined::OnZoomOut() if (GetState() == eIdle) PlayAnimIdle(); + //Alundaio + CGameObject *object = smart_cast(H_Parent()); + if (object) + object->callback(GameObject::eOnWeaponZoomOut)(object->lua_game_object(), this->lua_game_object()); + //-Alundaio + CActor* pActor = smart_cast(H_Parent()); if (pActor) diff --git a/src/xrGame/alife_storage_manager.cpp b/src/xrGame/alife_storage_manager.cpp index 9fe13b8cdb9..a89c2e1f570 100644 --- a/src/xrGame/alife_storage_manager.cpp +++ b/src/xrGame/alife_storage_manager.cpp @@ -22,10 +22,15 @@ #include "string_table.h" #include "../xrEngine/igame_persistent.h" #include "autosave_manager.h" +//Alundaio +#include "pch_script.h" +#include "../../xrServerEntities/script_engine.h" +//-Alundaio XRCORE_API string_path g_bug_report_file; using namespace ALife; +using namespace luabind; //Alundaio extern string_path g_last_saved_game; @@ -90,12 +95,26 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) Msg ("* Game %s is successfully saved to file '%s'",m_save_name,temp); #endif // DEBUG + //Alundaio: To get the savegame fname to make our own custom save states + luabind::functor funct; + ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_save", funct); + if (funct) + funct((LPCSTR)m_save_name); + //-Alundaio + if (!update_name) xr_strcpy (m_save_name,save); } void CALifeStorageManager::load (void *buffer, const u32 &buffer_size, LPCSTR file_name) { + //Alundaio: So we can get the fname to make our own custom save states + luabind::functor funct; + ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_load", funct); + if (funct) + funct(file_name); + //-Alundaio + IReader source(buffer,buffer_size); header().load (source); time_manager().load (source); diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 2d0df22024b..503f83d1e5b 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -2089,11 +2089,6 @@ void CCC_RegisterCommands() CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); - //Alundaio - CMD3(CCC_Mask, "g_spawn_antifreeze", &psActorFlags, AF_SPAWN_ANTIFREEZE); - //-Alundaio - - #ifdef DEBUG CMD1(CCC_LuaHelp, "lua_help"); CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index d4043b649a2..9ea4ebb2a0a 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -71,6 +71,10 @@ namespace GameObject eAttachVehicle, eDetachVehicle, eUseVehicle, + // weapon + eOnWeaponZoomIn, + eOnWeaponZoomOut, + eOnWeaponJammed, //-AVO eDummy = u32(-1), diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 0271721efc6..5561f728eb1 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -15,7 +15,7 @@ #include "character_info_defs.h" #include "game_graph_space.h" #include "game_location_selector.h" - +#include "ui/UIWindow.h" //Alundaio enum EPdaMsg; enum ESoundTypes; enum ETaskState; @@ -87,6 +87,7 @@ class CScriptGameObject; class CZoneCampfire; class CPhysicObject; class CArtefact; +class CUIWindow; //Alundaio: For ScopeTexture #ifdef DEBUG template @@ -385,8 +386,14 @@ class CScriptGameObject { bool Weapon_IsGrenadeLauncherAttached(); bool Weapon_IsScopeAttached (); bool Weapon_IsSilencerAttached (); - void Weapon_AddonAttach(CScriptGameObject &item); //Alundaio - void Weapon_AddonDetach(LPCSTR item_section); //Alundaio + //Alundaio + void Weapon_AddonAttach(CScriptGameObject* item); + void Weapon_AddonDetach(LPCSTR item_section); + + void AttachVehicle(CScriptGameObject* veh); + void DetachVehicle(); + void ForceSetPosition(Fvector3 pos); + //-Alundaio int Weapon_GrenadeLauncher_Status (); int Weapon_Scope_Status (); @@ -591,6 +598,19 @@ class CScriptGameObject { float GetAnomalyPower (); void SetAnomalyPower (float p); + //Alun + float GetArtefactHealthRestoreSpeed (); + float GetArtefactRadiationRestoreSpeed (); + float GetArtefactSatietyRestoreSpeed (); + float GetArtefactPowerRestoreSpeed (); + float GetArtefactBleedingRestoreSpeed (); + + void SetArtefactHealthRestoreSpeed (float value); + void SetArtefactRadiationRestoreSpeed (float value); + void SetArtefactSatietyRestoreSpeed (float value); + void SetArtefactPowerRestoreSpeed (float value); + void SetArtefactBleedingRestoreSpeed (float value); + //-Alun // HELICOPTER CHelicopter* get_helicopter (); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 2acdaf9c3e5..180a04b2be0 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -38,6 +38,11 @@ #include "sound_player.h" #include "stalker_decision_space.h" #include "space_restriction_manager.h" +#include "artefact.h" +//Alundaio +#include "holder_custom.h" +#include "actor.h" +//-Alundaio namespace MemorySpace { struct CVisibleObject; @@ -822,6 +827,7 @@ float CScriptGameObject::GetAnomalyPower() CCustomZone *zone = smart_cast(&object()); THROW(zone); return zone->GetMaxPower(); } + void CScriptGameObject::SetAnomalyPower(float p) { CCustomZone *zone = smart_cast(&object()); THROW(zone); @@ -1097,4 +1103,112 @@ bool CScriptGameObject::is_weapon_going_to_be_strapped ( CScriptGameObject const } return stalker->is_weapon_going_to_be_strapped ( &object->object() ); -} \ No newline at end of file +} +//Alundaio: Taken from Radium +float CScriptGameObject::GetArtefactHealthRestoreSpeed() +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + return artefact->GetHealthPower(); +} + +float CScriptGameObject::GetArtefactRadiationRestoreSpeed() +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + return artefact->GetRadiationPower(); +} + +float CScriptGameObject::GetArtefactSatietyRestoreSpeed() +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + return artefact->GetSatietyPower(); +} +float CScriptGameObject::GetArtefactPowerRestoreSpeed() +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + return artefact->GetPowerPower(); +} + +float CScriptGameObject::GetArtefactBleedingRestoreSpeed() +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + return artefact->GetBleedingPower(); +} + +void CScriptGameObject::SetArtefactHealthRestoreSpeed(float value) +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + artefact->SetHealthPower(value); +} + +void CScriptGameObject::SetArtefactRadiationRestoreSpeed(float value) +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + artefact->SetRadiationPower(value); +} + +void CScriptGameObject::SetArtefactSatietyRestoreSpeed(float value) +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + artefact->SetSatietyPower(value); +} +void CScriptGameObject::SetArtefactPowerRestoreSpeed(float value) +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + artefact->SetPowerPower(value); +} + +void CScriptGameObject::SetArtefactBleedingRestoreSpeed(float value) +{ + CArtefact* artefact = smart_cast(&object()); + THROW(artefact); + + artefact->SetBleedingPower(value); +} +//Alundaio +void CScriptGameObject::AttachVehicle(CScriptGameObject* veh) +{ + CActor *actor = smart_cast(&object()); + if (actor) + { + CHolderCustom* vehicle = smart_cast(veh); + if (vehicle) + actor->attach_Vehicle(vehicle); + } +} + +void CScriptGameObject::DetachVehicle() +{ + CActor *actor = smart_cast(&object()); + if (actor) + actor->detach_Vehicle(); +} + +void CScriptGameObject::ForceSetPosition(Fvector3 pos) +{ + CPhysicsShellHolder* P = smart_cast(this); + if (!P) + return; + + Fmatrix M = P->XFORM(); + M.translate(pos); + P->ForceTransform(M); +} +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index e7e3dda7273..1afb1383e01 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -1604,7 +1604,7 @@ bool CScriptGameObject::is_door_blocked_by_npc() const } //Alundaio: Methods for exporting the ability to detach/attach addons for magazined weapons -void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject &item) +void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject* item) { CWeaponMagazined* weapon = smart_cast(&object()); if (!weapon) @@ -1612,10 +1612,11 @@ void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject &item) ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeaponMagazined : cannot access class member Weapon_AddonAttach!"); return; } - - if (weapon->CanAttach((PIItem)&item)) + + PIItem pItm = smart_cast(item); + if (weapon->CanAttach(pItm)) { - weapon->Attach((PIItem)&item, true); + weapon->Attach(pItm, true); } } diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index 092430028fa..d221a77bd07 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -104,11 +104,15 @@ void CScriptGameObject::script_register(lua_State *L) value("item_to_slot", int(GameObject::eItemToSlot)), value("item_to_ruck", int(GameObject::eItemToRuck)), // actor - value("actor_before_death", int(GameObject::eActorBeforeDeath)), + value("actor_before_death", int(GameObject::eActorBeforeDeath)), // vehicle - value("on_attach_vehicle", int(GameObject::eAttachVehicle)), - value("on_detach_vehicle", int(GameObject::eDetachVehicle)), - value("on_use_vehicle", int(GameObject::eUseVehicle)), + value("on_attach_vehicle", int(GameObject::eAttachVehicle)), + value("on_detach_vehicle", int(GameObject::eDetachVehicle)), + value("on_use_vehicle", int(GameObject::eUseVehicle)), + // weapon + value("weapon_jammed", int(GameObject::eOnWeaponJammed)), + value("weapon_zoom_in", int(GameObject::eOnWeaponZoomIn)), + value("weapon_zoom_out", int(GameObject::eOnWeaponZoomOut)), //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index d5b53abcc00..7f282cdcdfb 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -182,11 +182,6 @@ class_ &script_register_game_object2(class_ &script_register_game_object2(class_ &script_register_game_object2(class_ Date: Sat, 20 Jun 2015 20:29:29 -0400 Subject: [PATCH 101/166] + Teleport actor to demo cam when you press Enter while in demo_record ~ activate car PPhysicsShell when it spawns so that it collides with ground properly + Added support for a third ammo type static. YOU MUST HAVE in your maingame.xml and maingame_16.xml + added: game_object:get_attached_vehicle() {return game_object} game_object:add_upgrade(section) {void} game_object:has_upgrade(section) {return bool} game_object:iterate_installed_upgrades(lua_function,game_object) game_object:play_hud_motion(anim_section,bMixIn,game_object:get_stat()) {return number} -- animation length game_object:switch_state(number) game_object:get_state() {return number} game_object:activate_hud_item() game_object:deactivate_hud_item() game_object:is_actor_indoors() {return bool} game_object:is_npc_indoors() {return bool} + Added 5 custom slots. IMPORTANT YOU MUST set system.ltx [inventory] properly now. There should be 17 slots! --- src/xrEngine/FDemoRecord.cpp | 55 +++---- src/xrGame/Car.cpp | 2 +- src/xrGame/WeaponMagazined.cpp | 31 ++-- src/xrGame/WeaponMagazinedWGrenade.cpp | 33 +++-- src/xrGame/inventory_item.h | 1 + src/xrGame/script_game_object.cpp | 14 +- src/xrGame/script_game_object.h | 22 ++- src/xrGame/script_game_object3.cpp | 136 +++++++++++++++++- .../script_game_object_inventory_owner.cpp | 60 +++++++- src/xrGame/script_game_object_script3.cpp | 21 ++- src/xrGame/ui/UIActorMenuInventory.cpp | 2 +- src/xrGame/ui/UIHudStatesWnd.cpp | 10 ++ src/xrGame/ui/UIHudStatesWnd.h | 1 + src/xrServerEntities/inventory_space.h | 11 +- 14 files changed, 320 insertions(+), 79 deletions(-) diff --git a/src/xrEngine/FDemoRecord.cpp b/src/xrEngine/FDemoRecord.cpp index 72fc6ca03c2..8c78de2f439 100644 --- a/src/xrEngine/FDemoRecord.cpp +++ b/src/xrEngine/FDemoRecord.cpp @@ -407,31 +407,36 @@ BOOL CDemoRecord::ProcessCam(SCamEffectorInfo& info) void CDemoRecord::IR_OnKeyboardPress(int dik) { - if (dik == DIK_MULTIPLY) m_b_redirect_input_to_level = !m_b_redirect_input_to_level; - - if (m_b_redirect_input_to_level) - { - g_pGameLevel->IR_OnKeyboardPress(dik); - return; - } - if (dik == DIK_GRAVE) - Console->Show(); - if (dik == DIK_SPACE) RecordKey(); - if (dik == DIK_BACK) MakeCubemap(); - if (dik == DIK_F11) MakeLevelMapScreenshot(IR_GetKeyState(DIK_LCONTROL)); - if (dik == DIK_F12) MakeScreenshot(); - if (dik == DIK_ESCAPE) fLifeTime = -1; - -#ifndef MASTER_GOLD - if (dik == DIK_RETURN) - { - if (g_pGameLevel->CurrentEntity()) - { - g_pGameLevel->CurrentEntity()->ForceTransform(m_Camera); - fLifeTime = -1; - } - } -#endif // #ifndef MASTER_GOLD + if (dik == DIK_MULTIPLY) m_b_redirect_input_to_level = !m_b_redirect_input_to_level; + + if (m_b_redirect_input_to_level) + { + g_pGameLevel->IR_OnKeyboardPress(dik); + return; + } + if (dik == DIK_GRAVE) + Console->Show(); + if (dik == DIK_SPACE) RecordKey(); + if (dik == DIK_BACK) MakeCubemap(); + if (dik == DIK_F11) MakeLevelMapScreenshot(IR_GetKeyState(DIK_LCONTROL)); + if (dik == DIK_F12) MakeScreenshot(); + if (dik == DIK_ESCAPE) fLifeTime = -1; + +//Alundaio: Teleport to demo cam +//#ifndef MASTER_GOLD + if (dik == DIK_RETURN) + { + if (strstr(Core.Params, "-dbg")) + { + if (g_pGameLevel->CurrentEntity()) + { + g_pGameLevel->CurrentEntity()->ForceTransform(m_Camera); + fLifeTime = -1; + } + } + } +//#endif // #ifndef MASTER_GOLD +//-Alundaio if (dik == DIK_PAUSE) Device.Pause(!Device.Paused(), TRUE, TRUE, "demo_record"); diff --git a/src/xrGame/Car.cpp b/src/xrGame/Car.cpp index 940e0a4759f..863634feb9b 100644 --- a/src/xrGame/Car.cpp +++ b/src/xrGame/Car.cpp @@ -851,7 +851,7 @@ void CCar::CreateSkeleton(CSE_Abstract *po) m_pPhysicsShell->Activate(true); m_pPhysicsShell->SetAirResistance(0.f,0.f); */ - m_pPhysicsShell = P_build_Shell(this, true, &bone_map); + m_pPhysicsShell = P_build_Shell(this, false, &bone_map); //-Alundaio m_pPhysicsShell->SetPrefereExactIntegration(); diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index b698d763c0c..3a7553e1518 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -1360,29 +1360,24 @@ bool CWeaponMagazined::GetBriefInfo(II_BriefInfo& info) { info.fmj_ammo._set("--"); info.ap_ammo._set("--"); + info.third_ammo._set("--"); //Alundaio } else { - //GetSuitableAmmoTotal(); //mp = all type + //Alundaio: Added third ammo type and cleanup + info.fmj_ammo._set(""); + info.ap_ammo._set(""); + info.third_ammo._set(""); - xr_sprintf(int_str, "%d", GetAmmoCount(0)); // !!!!!!!!!!! == 0 temp - if (m_ammoType == 0) - info.fmj_ammo = int_str; - else - info.ap_ammo = int_str; + xr_sprintf(int_str, "%d", GetAmmoCount(m_ammoType)); - if (at_size == 2) - { - xr_sprintf(int_str, "%d", GetAmmoCount(1)); - if (m_ammoType == 0) - info.ap_ammo = int_str; - else - info.fmj_ammo = int_str; - } - else - { - info.ap_ammo = ""; - } + if (m_ammoType == 0) + info.fmj_ammo._set(int_str); + else if (m_ammoType == 1) + info.ap_ammo._set(int_str); + else + info.third_ammo._set(int_str); + //-Alundaio } if (ae != 0 && m_magazine.size() != 0) diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 6af7c8b0db8..56b991d5dd6 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -954,26 +954,25 @@ bool CWeaponMagazinedWGrenade::GetBriefInfo(II_BriefInfo& info) { info.fmj_ammo._set("--"); info.ap_ammo._set("--"); + info.third_ammo._set("--"); //Alundaio } else { - u8 ammo_type = m_bGrenadeMode ? m_ammoType2 : m_ammoType; - xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(0) : GetAmmoCount(0)); - if (ammo_type == 0) - info.fmj_ammo._set(int_str); - else - info.ap_ammo._set(int_str); - - if (at_size == 2) - { - xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(1) : GetAmmoCount(1)); - if (ammo_type == 0) - info.ap_ammo._set(int_str); - else - info.fmj_ammo._set(int_str); - } - else - info.ap_ammo._set(""); + //Alundaio: Added third ammo type and cleanup + info.fmj_ammo._set(""); + info.ap_ammo._set(""); + info.third_ammo._set(""); + + u8 ammo_type = m_bGrenadeMode ? m_ammoType2 : m_ammoType; + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(ammo_type) : GetAmmoCount(ammo_type)); + + if (m_ammoType == 0) + info.fmj_ammo._set(int_str); + else if (m_ammoType == 1) + info.ap_ammo._set(int_str); + else + info.third_ammo._set(int_str); + //-Alundaio } if (ae != 0 && m_magazine.size() != 0) diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index 8cdb664438d..c9dadb217ce 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -278,6 +278,7 @@ class CInventoryItem : bool has_upgrade_group ( const shared_str& upgrade_group_id ); void add_upgrade ( const shared_str& upgrade_id, bool loading ); bool get_upgrades_str ( string2048& res ) const; + Upgrades_type get_upgrades() { return m_upgrades; } //Alundaio bool equal_upgrades ( Upgrades_type const& other_upgrades ) const; diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 1904bd7093c..24561fc0517 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -588,7 +588,7 @@ LPCSTR CScriptGameObject::get_visual_name() const return object().cNameVisual().c_str(); } -bool CScriptGameObject::IsActorOutdoors() const +bool CScriptGameObject::IsActorIndoors() const { // Check to make sure all the params are available (we're in game and such). if (!g_pGameLevel) @@ -603,4 +603,16 @@ bool CScriptGameObject::IsActorOutdoors() const // Now do the real check! This is a copy out of another section of code that is also hard coded. // I don't know what the proper limit for this is supposed to be, but this seems good enough. return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; +} + +bool CScriptGameObject::IsNPCIndoors() const +{ + CObject *e = smart_cast(&object()); + if (!e || !e->renderable_ROS()) + { + return FALSE; + } + // Now do the real check! This is a copy out of another section of code that is also hard coded. + // I don't know what the proper limit for this is supposed to be, but this seems good enough. + return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; } \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 5561f728eb1..69fac805bfa 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -387,12 +387,29 @@ class CScriptGameObject { bool Weapon_IsScopeAttached (); bool Weapon_IsSilencerAttached (); //Alundaio + //Weapon void Weapon_AddonAttach(CScriptGameObject* item); void Weapon_AddonDetach(LPCSTR item_section); + //Weapon & Outfit + bool HasUpgrade(LPCSTR upgrade) const; + void AddUpgrade(LPCSTR upgrade); + void IterateInstalledUpgrades(luabind::functor functor); + + //Car + CScriptGameObject* GetAttachedVehicle(); void AttachVehicle(CScriptGameObject* veh); void DetachVehicle(); - void ForceSetPosition(Fvector3 pos); + + //Any class that has PPhysicsShell + void ForceSetPosition(Fvector pos, bool bActivate); + + //Any class that is derived from CHudItem + u32 PlayHudMotion(LPCSTR M, bool bMixIn,u32 state); + void SwitchState(u32 state); + u32 GetState(); + void ActivateHudItem(); + void DeactivateHudItem(); //-Alundaio int Weapon_GrenadeLauncher_Status (); @@ -826,7 +843,8 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsTorch, bool); _DECLARE_FUNCTION10(IsWeaponGL, bool); _DECLARE_FUNCTION10(IsInventoryBox, bool); - bool IsActorOutdoors() const; + bool IsActorIndoors() const; + bool IsNPCIndoors() const; void SetHealthEx(float hp); //end AVO diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 180a04b2be0..84b17104b1f 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -42,6 +42,8 @@ //Alundaio #include "holder_custom.h" #include "actor.h" +#include "CharacterPhysicsSupport.h" +#include "player_hud.h" //-Alundaio namespace MemorySpace { @@ -1188,7 +1190,7 @@ void CScriptGameObject::AttachVehicle(CScriptGameObject* veh) CActor *actor = smart_cast(&object()); if (actor) { - CHolderCustom* vehicle = smart_cast(veh); + CHolderCustom* vehicle = veh->object().cast_holder_custom();//smart_cast(veh->object()); if (vehicle) actor->attach_Vehicle(vehicle); } @@ -1201,14 +1203,134 @@ void CScriptGameObject::DetachVehicle() actor->detach_Vehicle(); } -void CScriptGameObject::ForceSetPosition(Fvector3 pos) +CScriptGameObject* CScriptGameObject::GetAttachedVehicle() { - CPhysicsShellHolder* P = smart_cast(this); - if (!P) + CActor *actor = smart_cast(&object()); + if (!actor) + return (0); + + CHolderCustom* H = actor->Holder(); + if (!H) + return (0); + + CGameObject* GO = smart_cast(H); + if (!GO) + return (0); + + return GO->lua_game_object(); +} + +u32 CScriptGameObject::PlayHudMotion(LPCSTR M, bool bMixIn, u32 state) +{ + CWeapon* Weapon = object().cast_weapon(); + if (Weapon){ + if (!Weapon->HudAnimationExist(M)) + return 0; + + return Weapon->PlayHUDMotion(M, bMixIn, Weapon, state); + } + + CHudItem* itm = object().cast_inventory_item()->cast_hud_item(); + if (!itm) + return 0; + + if (!itm->HudAnimationExist(M)) + return 0; + + return itm->PlayHUDMotion(M, bMixIn, itm, state); +} + +void CScriptGameObject::SwitchState(u32 state) +{ + CWeapon* Weapon = object().cast_weapon(); + if (Weapon) + { + Weapon->SwitchState(state); return; + } + + CInventoryItem* IItem = object().cast_inventory_item(); + if (IItem) + { + CHudItem* itm = IItem->cast_hud_item(); + if (itm) + itm->SwitchState(state); + } +} + +u32 CScriptGameObject::GetState() +{ + CWeapon* Weapon = object().cast_weapon(); + if (Weapon) + { + return Weapon->GetState(); + } + + CInventoryItem* IItem = object().cast_inventory_item(); + if (IItem) + { + CHudItem* itm = IItem->cast_hud_item(); + if (itm) + return itm->GetState(); + } - Fmatrix M = P->XFORM(); - M.translate(pos); - P->ForceTransform(M); + return 65535; +} + +void CScriptGameObject::ActivateHudItem() +{ + CWeapon* Weapon = object().cast_weapon(); + if (Weapon){ + Weapon->ActivateItem(); + return; + } + + CInventoryItem* IItem = object().cast_inventory_item(); + if (!IItem) + return; + + IItem->ActivateItem(); + + return; +} + +void CScriptGameObject::DeactivateHudItem() +{ + CWeapon* Weapon = object().cast_weapon(); + if (Weapon){ + Weapon->DeactivateItem(); + return; + } + + CInventoryItem* IItem = object().cast_inventory_item(); + if (!IItem) + return; + + IItem->DeactivateItem(); + + return; +} + +void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate = false) +{ + CPhysicsShellHolder* sh = object().cast_physics_shell_holder(); + if (!sh) + return; + + CPhysicsShell* shell = sh->PPhysicsShell(); + if (shell){ + if (bActivate) + sh->activate_physic_shell(); + + Fmatrix M = object().XFORM(); + M.c = pos; + M.set(M); + + shell->SetGlTransformDynamic(M); + if (sh->character_physics_support()) + sh->character_physics_support()->ForceTransform(M); + } + else + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "force_set_position: object %s has no physics shell!", *object().cName()); } //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 1afb1383e01..65124f2cd75 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -47,6 +47,10 @@ #include "doors_door.h" #include "Torch.h" #include "physicobject.h" +//Alundaio +#include "inventory_upgrade_manager.h" +#include "inventory_item.h" +//-Alundaio bool CScriptGameObject::GiveInfoPortion(LPCSTR info_id) { @@ -1612,8 +1616,12 @@ void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject* item) ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeaponMagazined : cannot access class member Weapon_AddonAttach!"); return; } - - PIItem pItm = smart_cast(item); + CInventoryItem* pItm = item->object().cast_inventory_item(); + if (!pItm) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeaponMagazined : trying to attach non-CInventoryItem!"); + return; + } if (weapon->CanAttach(pItm)) { weapon->Attach(pItm, true); @@ -1634,4 +1642,52 @@ void CScriptGameObject::Weapon_AddonDetach(LPCSTR item_section) weapon->Detach(item_section, true); } } + +void CScriptGameObject::AddUpgrade(LPCSTR upgrade) +{ + CInventoryItem* item = smart_cast(&object()); + if (!item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member AddUpgrade!"); + return; + } + + if (!pSettings->section_exist(upgrade)) + return; + + item->install_upgrade(upgrade); + //ai().alife().inventory_upgrade_manager().upgrade_install(*item, (upgrade), false); + + return; +} + +bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) const +{ + CInventoryItem* item = smart_cast(&object()); + if (!item) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member HasUpgrade!"); + return false; + } + + if (!pSettings->section_exist(upgrade)) + return false; + + return item->verify_upgrade(upgrade); +} + +void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) +{ + CInventoryItem* Item = smart_cast(&object()); + if (!Item) + return; + + CInventoryItem::Upgrades_type m_upgrades = Item->get_upgrades(); + CInventoryItem::Upgrades_type::const_iterator ib = m_upgrades.begin(); + CInventoryItem::Upgrades_type::const_iterator ie = m_upgrades.end(); + for (; ib != ie; ++ib) + { + functor((*ib).c_str(), object().lua_game_object()); + } +} //Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 7f282cdcdfb..4d88f8ecb61 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -340,17 +340,30 @@ class_ &script_register_game_object2(class_GetInvGridRect().rb; if (iWH.x > 1 || iWH.y > 1) return false; diff --git a/src/xrGame/ui/UIHudStatesWnd.cpp b/src/xrGame/ui/UIHudStatesWnd.cpp index af30663cf44..d2079c2a5bf 100644 --- a/src/xrGame/ui/UIHudStatesWnd.cpp +++ b/src/xrGame/ui/UIHudStatesWnd.cpp @@ -119,6 +119,11 @@ void CUIHudStatesWnd::InitFromXml( CUIXml& xml, LPCSTR path ) m_ui_weapon_cur_ammo = UIHelper::CreateTextWnd( xml, "static_cur_ammo", this ); m_ui_weapon_fmj_ammo = UIHelper::CreateTextWnd( xml, "static_fmj_ammo", this ); m_ui_weapon_ap_ammo = UIHelper::CreateTextWnd( xml, "static_ap_ammo", this ); + + //Alundaio: Option to display a third ammo type + m_ui_weapon_third_ammo = UIHelper::CreateTextWnd(xml, "static_third_ammo", this); + //-Alundaio + m_fire_mode = UIHelper::CreateTextWnd( xml, "static_fire_mode", this ); m_ui_grenade = UIHelper::CreateTextWnd( xml, "static_grenade", this ); @@ -328,6 +333,11 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_cur_ammo->SetText ( m_item_info.cur_ammo.c_str() ); m_ui_weapon_fmj_ammo->SetText ( m_item_info.fmj_ammo.c_str() ); m_ui_weapon_ap_ammo->SetText ( m_item_info.ap_ammo.c_str() ); + + //Alundaio: + if (m_ui_weapon_third_ammo) + m_ui_weapon_third_ammo->SetText(m_item_info.third_ammo.c_str()); + //-Alundaio m_ui_grenade->SetText ( m_item_info.grenade.c_str() ); diff --git a/src/xrGame/ui/UIHudStatesWnd.h b/src/xrGame/ui/UIHudStatesWnd.h index d8e2c6cb994..16e82345cd3 100644 --- a/src/xrGame/ui/UIHudStatesWnd.h +++ b/src/xrGame/ui/UIHudStatesWnd.h @@ -32,6 +32,7 @@ class CUIHudStatesWnd : public CUIWindow CUITextWnd* m_ui_weapon_cur_ammo; CUITextWnd* m_ui_weapon_fmj_ammo; CUITextWnd* m_ui_weapon_ap_ammo; + CUITextWnd* m_ui_weapon_third_ammo; //Alundaio CUITextWnd* m_fire_mode; CUITextWnd* m_ui_grenade; II_BriefInfo m_item_info; diff --git a/src/xrServerEntities/inventory_space.h b/src/xrServerEntities/inventory_space.h index 544394c35b8..26f178315fd 100644 --- a/src/xrServerEntities/inventory_space.h +++ b/src/xrServerEntities/inventory_space.h @@ -17,7 +17,14 @@ enum{ TORCH_SLOT, // torch ARTEFACT_SLOT, // artefact HELMET_SLOT, - LAST_SLOT = HELMET_SLOT + //Alundaio: More slots for custom uses + CUSTOM_SLOT_1, + CUSTOM_SLOT_2, + CUSTOM_SLOT_3, + CUSTOM_SLOT_4, + CUSTOM_SLOT_5, + //-Alundaio + LAST_SLOT = CUSTOM_SLOT_5 }; #define RUCK_HEIGHT 280 @@ -63,6 +70,7 @@ struct II_BriefInfo shared_str cur_ammo; shared_str fmj_ammo; shared_str ap_ammo; + shared_str third_ammo; //Alundaio shared_str fire_mode; shared_str grenade; @@ -76,6 +84,7 @@ struct II_BriefInfo cur_ammo = ""; fmj_ammo = ""; ap_ammo = ""; + third_ammo = ""; //Alundaio fire_mode = ""; grenade = ""; } From c3f83363db619738e8d9f2c999cd8f783daaf719 Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 7 Jul 2015 16:33:46 -0400 Subject: [PATCH 102/166] * restructured many features behind defines (see: build_config_defines.h) + added a layered sound system (see: build_config_defines.h) + added get_hud():UpdateActorMenu() which refreshes the inventory screen + added new spawn_loadout features to character descriptions spawn item system (see: alife_object.cpp) ~ made corrections to how ammo_type is drawn on UI (requires static_third_ammo in maingame[_16].xml) + engine call to _G.CALifeUpdateManager__on_before_change_level (required!) + engine call to inventory_upgrades.effect_upgrade_item (required!) - removed some unused testing game_object exports (is_explosive, is_script_zone, is_projector, is_missle, is_grenade, is_bottle, is_torch) + added game_object:set_bone_visible(string bone_name,bool visibility,bool recursive) + added game_object:bone_visible() bool + added game_object:get_luminocity() and game_object:get_luminocity_hemi() - removed game_object:is_actor_indoors() and is_npc_indoors replaced by above + added level.get_active_cam() and level.set_active_cam(number) = fixed game_object:has_upgrade(string) + added game_object:install_upgrade(string) + m_evaluator_name exposed outside DEBUG for better script logging + added FS():rescan_path(string) which toggles the flag to rescan the path when the game reloads which allows you to add new files and see the changes in-game without restarting application --- src/build_config_defines.h | 90 +++++++-- src/xrGame/Actor.cpp | 14 ++ src/xrGame/Actor.h | 13 +- src/xrGame/ActorAnimation.cpp | 2 + src/xrGame/ActorVehicle.cpp | 7 +- src/xrGame/Actor_Feel.cpp | 5 +- src/xrGame/Car.cpp | 2 + src/xrGame/Car.h | 4 + src/xrGame/CharacterPhysicsSupport.cpp | 11 +- src/xrGame/CustomZone.cpp | 2 +- src/xrGame/Entity.cpp | 2 + src/xrGame/GameObject.cpp | 109 ++++++----- src/xrGame/HudItem.cpp | 7 + src/xrGame/HudItem.h | 1 + src/xrGame/HudSound.cpp | 134 ++++++++++++- src/xrGame/HudSound.h | 37 ++-- src/xrGame/Inventory.cpp | 6 +- src/xrGame/InventoryOwner.cpp | 8 +- src/xrGame/Level.cpp | 25 +-- src/xrGame/Level.h | 4 + src/xrGame/Level_input.cpp | 14 +- src/xrGame/ShootingObject.cpp | 2 +- src/xrGame/UIGameCustom.cpp | 8 + src/xrGame/UIGameCustom.h | 1 + src/xrGame/UIGameCustom_script.cpp | 3 + src/xrGame/WeaponMagazined.cpp | 47 ++++- src/xrGame/WeaponMagazined.h | 6 + src/xrGame/WeaponMagazinedWGrenade.cpp | 21 +++ src/xrGame/WeaponPistol.cpp | 20 +- src/xrGame/WeaponRevolver.cpp | 20 +- src/xrGame/action_planner_inline.h | 12 +- src/xrGame/alife_object.cpp | 176 ++++++++++++++---- src/xrGame/alife_simulator_script.cpp | 12 +- src/xrGame/alife_storage_manager.cpp | 8 + src/xrGame/alife_trader_abstract.cpp | 19 +- src/xrGame/alife_update_manager.cpp | 12 +- src/xrGame/fs_registrator_script.cpp | 10 + src/xrGame/game_object_space.h | 22 ++- src/xrGame/inventory_item.h | 2 + src/xrGame/level_script.cpp | 25 ++- src/xrGame/property_evaluator.h | 7 +- src/xrGame/property_evaluator_const_inline.h | 5 +- src/xrGame/property_evaluator_inline.h | 5 +- src/xrGame/property_evaluator_member_inline.h | 5 +- src/xrGame/script_game_object.cpp | 31 +-- src/xrGame/script_game_object.h | 122 ++++++------ src/xrGame/script_game_object3.cpp | 65 ++++--- src/xrGame/script_game_object4.cpp | 41 ++-- .../script_game_object_inventory_owner.cpp | 20 +- src/xrGame/script_game_object_script.cpp | 20 +- src/xrGame/script_game_object_script3.cpp | 49 ++--- .../script_property_evaluator_wrapper.cpp | 3 +- src/xrGame/stalker_combat_actions.cpp | 51 +---- src/xrGame/ui/UIHudStatesWnd.cpp | 25 ++- src/xrGame/ui/UIInventoryUpgradeWnd.cpp | 11 ++ src/xrServerEntities/inventory_space.h | 6 +- src/xrServerEntities/script_ini_file.cpp | 4 +- src/xrServerEntities/script_ini_file.h | 2 + .../script_ini_file_script.cpp | 6 + .../script_net_packet_script.cpp | 5 +- 60 files changed, 932 insertions(+), 474 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 6f1f364f391..aa7e2182ec3 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -1,32 +1,82 @@ #pragma once +// CALLBACKS + //#define EXTENDED_ITEM_CALLBACKS // (eItemToBelt, eItemToSlot, eItemToRuck) + #define EXTENDED_WEAPON_CALLBACKS // (eOnWeaponZoomIn, eOnWeaponZoomOut, eOnWeaponJammed) + #define ACTOR_BEFORE_DEATH_CALLBACK // For extending the life of the actor to fake death or do other tasks that need to happen before actor is dead + #define INPUT_CALLBACKS // (eKeyPress, eKeyRelease, eKeyHold, eMouseMove, eMouseWheel) + #define ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS // calls lua functions from engine in a script named alife_storage_manager.script (alife_storage_manager.CALifeStorageManager_save) and (alife_storage_manager.CALifeStorageManager_load) + #define ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS // calls lua function named on_before_change_level and on_after_new_game in _G.script when enabled +//-CALLBACKS + // SCRIPTS: -//#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) -#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) -//#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) -/*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed -#define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) -***/ + //#define MORE_INVENTORY_SLOTS // Adds 5 more slots CUSTOM_SLOT_1..5 + #define GAME_OBJECT_EXTENDED_EXPORTS // see: script_game_object*.cpp/h + #define GAME_OBJECT_TESTING_EXPORTS // see: script_game_object4.cpp functions for object testing (ie. is_stalker(), is_heli()) + #define NAMESPACE_LEVEL_EXPORTS // see: level_script.cpp + #define INI_FILE_EXTENDED_EXPORTS // see: script_ini_file_script.cpp + #define ENABLE_CAR // reimplements car along with new callbacks (eOnVehicleAttached, eOnVehicleDetached) and new game_object actor methods get_attached_vehicle(), attach_vehicle() and detach_vehicle() //-SCRIPTS // CORE: -#define NO_BUG_TRAP // dont use bug trap -//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) -#define NON_FATAL_VERIFY // don't crash game when VERIFY fails -#define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator + #define NO_BUG_TRAP // dont use bug trap + //#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) + #define NON_FATAL_VERIFY // don't crash game when VERIFY fails + #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE // VISUAL: -#define DETAIL_RADIUS // detail draw radius (by KD) -#define VSYNC_FIX // functional VSync by avbaula -#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) -#define TREE_WIND_EFFECT // configurable tree sway, can be used to have trees sway more during storms or lightly on clear days. + #define DETAIL_RADIUS // detail draw radius (by KD) + #define VSYNC_FIX // functional VSync by avbaula + #define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) + #define TREE_WIND_EFFECT // configurable tree sway, can be used to have trees sway more during storms or lightly on clear days. //-VISUAL // TWEAKS: -#define FP_DEATH // first person death view -#define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) -#define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define -#define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define -//#define DYNAMIC_SUN_MOVEMENT // use dynamic sun movement. If this is not defined sun will move as configured in weather ltx files -//-TWEAKS \ No newline at end of file + //#define ACTOR_FEEL_GRENADE // When undefined it disables the grenade HUD indicator for thrown grenades + //#define FP_DEATH // first person death view (Note: It's fixed to position and does not follow corpse) + #define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) (edit by Alundaio: Only for Actor now) + //#define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define + //#define DYNAMIC_SUN_MOVEMENT // use dynamic sun movement. If this is not defined sun will move as configured in weather ltx files +//-TWEAKS + +// SOUND: + //#define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define + //#define LAYERED_SND_SHOOT // see comment down below +//-SOUND + + + + +/*LAYERED_SND_SHOOT by Alundaio +When defined, it will allow you to play a group of sounds from a specified section for snd_shoot. +You can have as many layers as you want, but you must follow naming convention, + +snd_1_layer +snd_2_layer +snd_3_layer +... + +You can also have different variants for each layer defined, + +snd_1_layer +snd_1_layer1 +snd_1_layer2 +... + +The correct line settings are standard, (ie. snd_1_layer = sound_path, volume, delay) +ex. + +Here is an example usage: +snd_shoot = new_snd_section + +[new_snd_section] +snd_1_layer = weapons\new_sound_shoot1 +snd_1_layer1 = weapons\new_sound_shoot2 +snd_1_layer2 = weapons\new_sound_shoot3 +snd_1_layer3 = weapons\new_sound_shoot4 + +snd_2_layer = weapons\mechanical_noise, 1.0, 0.1 + +snd_3_layer = weapons\gunshot_echo, 1.0, 0.8 +*/ \ No newline at end of file diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index af239525d07..cfd296fa692 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -155,8 +155,12 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_pPhysicsShell = NULL; +//Alundaio +#ifdef ACTOR_FEEL_GRENADE m_fFeelGrenadeRadius = 10.0f; m_fFeelGrenadeTime = 1.0f; +#endif +//-Alundaio m_holder = NULL; m_holderID = u16(-1); @@ -191,7 +195,9 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_anims = xr_new(); //Alundaio: Needed for car +#ifdef ENABLE_CAR m_vehicle_anims = xr_new(); +#endif //-Alundaio m_entity_condition = NULL; m_iLastHitterID = u16(-1); @@ -237,7 +243,9 @@ CActor::~CActor() xr_delete(m_anims); //Alundaio: For car +#ifdef ENABLE_CAR xr_delete(m_vehicle_anims); +#endif //-Alundaio } @@ -376,9 +384,12 @@ void CActor::Load(LPCSTR section) m_fPickupInfoRadius = pSettings->r_float(section, "pickup_info_radius"); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE m_fFeelGrenadeRadius = pSettings->r_float(section, "feel_grenade_radius"); m_fFeelGrenadeTime = pSettings->r_float(section, "feel_grenade_time"); m_fFeelGrenadeTime *= 1000.0f; +#endif character_physics_support()->in_Load(section); @@ -1236,7 +1247,10 @@ void CActor::shedule_Update(u32 DT) Center(C); R = Radius(); feel_touch_update(C, R); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE Feel_Grenade_Update(m_fFeelGrenadeRadius); +#endif // Dropping if (b_DropActivated) diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index f072cc6f2d0..5b3c561bfc5 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -175,7 +175,11 @@ struct SDefNewsMsg{ void HitSector (CObject* who, CObject* weapon); void HitMark (float P, Fvector dir, CObject* who, s16 element, Fvector position_in_bone_space, float impulse, ALife::EHitType hit_type); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE void Feel_Grenade_Update( float rad ); +#endif +//-Alundaio virtual float GetMass () ; virtual float Radius () const; @@ -275,7 +279,9 @@ struct SDefNewsMsg{ public: SActorMotions* m_anims; +#ifdef ENABLE_CAR SActorVehicleAnims* m_vehicle_anims; +#endif CBlend* m_current_legs_blend; CBlend* m_current_torso_blend; @@ -313,9 +319,10 @@ struct SDefNewsMsg{ IC CCameraBase* cam_FirstEye () {return cameras[eacFirstEye];} //Swartz: actor shadow IC EActorCameras active_cam() {return cam_active;} //KD: need to know which cam active outside actor methods + virtual void cam_Set(EActorCameras style); //Alundaio: made public //-Swartz protected: - virtual void cam_Set (EActorCameras style); + //virtual void cam_Set (EActorCameras style); void cam_Update (float dt, float fFOV); void cam_Lookout ( const Fmatrix &xform, float camera_height ); void camUpdateLadder (float dt); @@ -367,8 +374,12 @@ struct SDefNewsMsg{ //режим подбирания предметов bool m_bPickupMode; //расстояние (в метрах) на котором актер чувствует гранату (любую) +//Alundaio +#ifdef ACTOR_FEEL_GRENADE float m_fFeelGrenadeRadius; float m_fFeelGrenadeTime; //время гранаты (сек) после которого актер чувствует гранату +#endif +//-Alundaio //расстояние подсветки предметов float m_fPickupInfoRadius; diff --git a/src/xrGame/ActorAnimation.cpp b/src/xrGame/ActorAnimation.cpp index e96998311e7..1741219c0df 100644 --- a/src/xrGame/ActorAnimation.cpp +++ b/src/xrGame/ActorAnimation.cpp @@ -267,12 +267,14 @@ void CActor::steer_Vehicle(float angle) { if(!m_holder) return; //Alundaio: Re-enable Car +#ifdef ENABLE_CAR CCar* car = smart_cast(m_holder); u16 anim_type = car->DriverAnimationType(); SVehicleAnimCollection& anims=m_vehicle_anims->m_vehicles_type_collections[anim_type]; if(angle==0.f) smart_cast (Visual())->PlayCycle(anims.idles[0]); else if(angle>0.f) smart_cast (Visual())->PlayCycle(anims.steer_right); else smart_cast (Visual())->PlayCycle(anims.steer_left); +#endif //-Alundaio } diff --git a/src/xrGame/ActorVehicle.cpp b/src/xrGame/ActorVehicle.cpp index 49852b04fe4..45c832b25ff 100644 --- a/src/xrGame/ActorVehicle.cpp +++ b/src/xrGame/ActorVehicle.cpp @@ -28,7 +28,7 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) { - +#ifdef ENABLE_CAR if(!vehicle) return; if(m_holder) return; @@ -64,6 +64,7 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) //Alundaio this->callback(GameObject::eAttachVehicle)(car->lua_game_object()); //-Alundaio +#endif } void CActor::detach_Vehicle() @@ -89,7 +90,9 @@ void CActor::detach_Vehicle() m_holder->detach_Actor();// //Alundaio +#ifdef ENABLE_CAR this->callback(GameObject::eDetachVehicle)(car->lua_game_object()); +#endif //-Alundaio character_physics_support()->movement()->SetPosition(m_holder->ExitPosition()); @@ -139,8 +142,10 @@ bool CActor::use_Vehicle(CHolderCustom* object) else { //Alundaio +#ifdef ENABLE_CAR CCar * car= smart_cast(vehicle); this->callback(GameObject::eUseVehicle)(car->lua_game_object() ); +#endif //-Alundaio } diff --git a/src/xrGame/Actor_Feel.cpp b/src/xrGame/Actor_Feel.cpp index 4f99f06cae4..1449bd36c24 100644 --- a/src/xrGame/Actor_Feel.cpp +++ b/src/xrGame/Actor_Feel.cpp @@ -145,7 +145,7 @@ void CActor::PickupModeUpdate() } #include "../xrEngine/CameraBase.h" -BOOL g_b_COD_PickUpMode = TRUE; +BOOL g_b_COD_PickUpMode = FALSE; //Alundaio: Set FALSE, screw this magical call of duty item pickup shit void CActor::PickupModeUpdate_COD () { if (Level().CurrentViewEntity() != this || !g_b_COD_PickUpMode) return; @@ -309,6 +309,8 @@ void CActor::feel_sound_new(CObject* who, int type, CSound_UserDataPtr user_data m_snd_noise = _max(m_snd_noise, power); } +//Alundaio: Put this behind define so that it can be disabled +#ifdef ACTOR_FEEL_GRENADE void CActor::Feel_Grenade_Update( float rad ) { if ( !IsGameTypeSingle() ) @@ -347,4 +349,5 @@ void CActor::Feel_Grenade_Update( float rad ) HUD().Update_GrenadeView( pos_actor ); } +#endif diff --git a/src/xrGame/Car.cpp b/src/xrGame/Car.cpp index 863634feb9b..6c33c3b5ca2 100644 --- a/src/xrGame/Car.cpp +++ b/src/xrGame/Car.cpp @@ -2045,6 +2045,7 @@ Fvector CCar:: ExitVelocity () } /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ +#ifdef ENABLE_CAR // получить и задать текущее количество топлива float CCar::GetfFuel() { @@ -2114,4 +2115,5 @@ bool CCar::isActiveEngine() { return b_engine_on; } +#endif /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ diff --git a/src/xrGame/Car.h b/src/xrGame/Car.h index fd559190656..ec941491c1e 100644 --- a/src/xrGame/Car.h +++ b/src/xrGame/Car.h @@ -504,6 +504,8 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} float AddFuel (float ammount); //ammount - fuel to load, ret - fuel loaded void CarExplode (); /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ + //Alundaio +#ifdef ENABLE_CAR float GetfFuel(); void SetfFuel(float fuel); float GetfFuelTank(); @@ -515,6 +517,8 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} void PlayDamageParticles(){ m_damage_particles.Play1(this); m_damage_particles.Play2(this); } void StopDamageParticles(){ m_damage_particles.Stop1(this); m_damage_particles.Stop2(this); } bool isActiveEngine(); +#endif + //-Alundaio /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ //////////////////////////////////////////// //////// diff --git a/src/xrGame/CharacterPhysicsSupport.cpp b/src/xrGame/CharacterPhysicsSupport.cpp index d63602f854f..9add185e5f5 100644 --- a/src/xrGame/CharacterPhysicsSupport.cpp +++ b/src/xrGame/CharacterPhysicsSupport.cpp @@ -1170,9 +1170,18 @@ void CCharacterPhysicsSupport:: CreateShell ( CObject* who, Fvector& dp, Fv { m_pPhysicsShell->SetPrefereExactIntegration ();//use exact integration for ragdolls in single //AVO: turn on collision with dead bodies (thanks malandrinus) + //Alundaio: DEAD_BODY_COLLSION ONLY FOR ACTOR, NPC get stuck on bodies in chokepoints + CActor* A=smart_cast( &m_EntityAlife ); + if (A) + { #ifndef DEAD_BODY_COLLISION - m_pPhysicsShell->SetRemoveCharacterCollLADisable(); + m_pPhysicsShell->SetRemoveCharacterCollLADisable(); #endif + } + else { + m_pPhysicsShell->SetRemoveCharacterCollLADisable(); + } + //-Alundaio //-AVO } else diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 46e6170d9fa..25d69dcf773 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -308,7 +308,7 @@ BOOL CCustomZone::net_Spawn(CSE_Abstract* DC) m_zone_flags.set (eUseOnOffTime, (m_TimeToDisable!=0)&&(m_TimeToEnable!=0) ); //добавить источники света - bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: Renderer R4 to not use R1 lighting, too + bool br1 = (0==psDeviceFlags.test(rsR2|rsR3)); bool render_ver_allowed = !br1 || (br1&&m_zone_flags.test(eIdleLightR1)) ; diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index b1b23bb4e37..67065aa678d 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -251,11 +251,13 @@ void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for act //AVO: allow scripts to process actor condition and prevent actor's death or kill him if desired. //IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed // this will bypass below if block and go to normal KillEntity routine. +#ifdef ACTOR_BEFORE_DEATH_CALLBACK if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) { Actor()->callback(GameObject::eActorBeforeDeath)(whoID); return; } +#endif //-AVO if (whoID != ID()) { diff --git a/src/xrGame/GameObject.cpp b/src/xrGame/GameObject.cpp index 1b1c38270c0..c63a8eee169 100644 --- a/src/xrGame/GameObject.cpp +++ b/src/xrGame/GameObject.cpp @@ -274,15 +274,23 @@ BOOL CGameObject::net_Spawn (CSE_Abstract* DC) cNameSect_set (E->s_name); if (E->name_replace()[0]) cName_set (E->name_replace()); + bool demo_spectator = false; - + + //Alundaio: if (Level().IsDemoPlayStarted() && E->ID == u16(-1)) { Msg("* Spawning demo spectator ..."); demo_spectator = true; } else { - R_ASSERT(Level().Objects.net_Find(E->ID) == NULL); + //R_ASSERT(Level().Objects.net_Find(E->ID) == NULL); + if (Level().Objects.net_Find(E->ID) != NULL) + { + ai().script_engine().script_log(eLuaMessageTypeError, "CGameObject:net_Spawn() | Level().Objects.net_Find(E->ID) != NULL (This mean object already exist on level by this ID) ID=%s s_name=%s", E->ID, E->s_name); + return false; + } } + //-Alundaio setID (E->ID); @@ -503,57 +511,62 @@ void CGameObject::spawn_supplies() if (!spawn_ini()->section_exist("spawn")) return; - LPCSTR N,V; - float p; - bool bScope = false; - bool bSilencer = false; - bool bLauncher = false; - - for (u32 k = 0, j; spawn_ini()->r_line("spawn",k,&N,&V); k++) { - VERIFY (xr_strlen(N)); - j = 1; - p = 1.f; - - float f_cond = 1.0f; - if (V && xr_strlen(V)) { - int n = _GetItemCount(V); - string16 temp; - if (n > 0) - j = atoi(_GetItem(V,0,temp)); //count - - if(NULL!=strstr(V,"prob=")) - p =(float)atof(strstr(V,"prob=")+5); - if (fis_zero(p))p = 1.f; - if (!j) j = 1; - if(NULL!=strstr(V,"cond=")) - f_cond = (float)atof(strstr(V,"cond=")+5); - bScope = (NULL!=strstr(V,"scope")); - bSilencer = (NULL!=strstr(V,"silencer")); - bLauncher = (NULL!=strstr(V,"launcher")); + LPCSTR N, V; + float p; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; - } - for (u32 i=0; ir_line("spawn", k, &N, &V); k++) { + VERIFY(xr_strlen(N)); + if (pSettings->section_exist(N)) //Alundaio: Validate section exists + { + j = 1; + p = 1.f; + + float f_cond = 1.0f; + if (V && xr_strlen(V)) { + int n = _GetItemCount(V); + string16 temp; + if (n > 0) + j = atoi(_GetItem(V, 0, temp)); //count + + if (NULL != strstr(V, "prob=")) + p = (float)atof(strstr(V, "prob=") + 5); + if (fis_zero(p))p = 1.f; + if (!j) j = 1; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + } + for (u32 i = 0; i < j; ++i) + { + if (::Random.randF(1.f) < p) + { + CSE_Abstract* A = Level().spawn_item(N, Position(), ai_location().level_vertex_id(), ID(), true); - CSE_ALifeInventoryItem* pSE_InventoryItem = smart_cast(A); - if(pSE_InventoryItem) + CSE_ALifeInventoryItem* pSE_InventoryItem = smart_cast(A); + if (pSE_InventoryItem) pSE_InventoryItem->m_fCondition = f_cond; - CSE_ALifeItemWeapon* W = smart_cast(A); - if (W) { - if (W->m_scope_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); - if (W->m_silencer_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); - if (W->m_grenade_launcher_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + CSE_ALifeItemWeapon* W = smart_cast(A); + if (W) { + if (W->m_scope_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); + if (W->m_silencer_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); + if (W->m_grenade_launcher_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + } + + NET_Packet P; + A->Spawn_Write(P, TRUE); + Level().Send(P, net_flags(TRUE)); + F_entity_Destroy(A); } - - NET_Packet P; - A->Spawn_Write (P,TRUE); - Level().Send (P,net_flags(TRUE)); - F_entity_Destroy (A); + } } } } diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index 7202f2df404..422585a6b53 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -51,6 +51,13 @@ void CHudItem::PlaySound(LPCSTR alias, const Fvector& position) m_sounds.PlaySound(alias, position, object().H_Root(), !!GetHUDmode()); } +//Alundaio: Play at index +void CHudItem::PlaySound(LPCSTR alias, const Fvector& position, u8 index) +{ + m_sounds.PlaySound(alias, position, object().H_Root(), !!GetHUDmode(), false, index); +} +//-Alundaio + void CHudItem::renderable_Render() { UpdateXForm(); diff --git a/src/xrGame/HudItem.h b/src/xrGame/HudItem.h index 6360d94bad1..c1ae5d468b8 100644 --- a/src/xrGame/HudItem.h +++ b/src/xrGame/HudItem.h @@ -81,6 +81,7 @@ class CHudItem :public CHUDState virtual void OnH_A_Independent (); virtual void PlaySound (LPCSTR alias, const Fvector& position); + virtual void PlaySound (LPCSTR alias, const Fvector& position, u8 index); //Alundaio: Play at index virtual bool Action (u16 cmd, u32 flags) {return false;} void OnMovementChanged (ACTOR_DEFS::EMoveCommand cmd) ; diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index 3a96acf7635..71e81aaf276 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -94,8 +94,17 @@ void HUD_SOUND_ITEM::PlaySound( HUD_SOUND_ITEM& hud_snd, if(looped) flags |= sm_Looped; - if(index==u8(-1)) + //Alundaio: Sanity, don't allow PlaySound of index greater then the size, just play last index + if (index == u8(-1)) + { index = (u8)Random.randI(hud_snd.sounds.size()); + } + else + { + if (index >= (u8)hud_snd.sounds.size()) + index = (u8)hud_snd.sounds.size()-1; + } + //-Alundaio hud_snd.m_activeSnd = &hud_snd.sounds[ index ]; @@ -187,11 +196,7 @@ void HUD_SOUND_COLLECTION::StopAllSounds() } } -void HUD_SOUND_COLLECTION::LoadSound( LPCSTR section, - LPCSTR line, - LPCSTR alias, - bool exclusive, - int type) +void HUD_SOUND_COLLECTION::LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive, int type) { R_ASSERT (NULL==FindSoundItem(alias, false)); m_sound_items.resize (m_sound_items.size()+1); @@ -200,3 +205,120 @@ void HUD_SOUND_COLLECTION::LoadSound( LPCSTR section, snd_item.m_alias = alias; snd_item.m_b_exclusive = exclusive; } + +//Alundaio: +/* +It's usage is to play a group of sounds HUD_SOUND_ITEMs as if they were a single layered entity. This is a achieved by +wrapping the class around HUD_SOUND_COLLECTION and tagging them with the same alias. This way, when one for example +sndShot is played, it will play all the sound items with the same alias. +*/ +//---------------------------------------------------------- +#ifdef LAYERED_SND_SHOOT +HUD_SOUND_COLLECTION_LAYERED::~HUD_SOUND_COLLECTION_LAYERED() +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + it->~HUD_SOUND_COLLECTION(); + } + + m_sound_items.clear(); +} + +void HUD_SOUND_COLLECTION_LAYERED::StopAllSounds() +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + it->StopAllSounds(); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::StopSound(LPCSTR alias) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->StopSound(alias); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::SetPosition(LPCSTR alias, const Fvector& pos) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->SetPosition(alias, pos); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::PlaySound(LPCSTR alias,const Fvector& position,const CObject* parent,bool hud_mode,bool looped,u8 index) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->PlaySound(alias, position, parent, hud_mode, looped, index); + } +} + + +HUD_SOUND_ITEM* HUD_SOUND_COLLECTION_LAYERED::FindSoundItem(LPCSTR alias, bool b_assert) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + return it->FindSoundItem(alias, b_assert); + } + return (0); +} + +void HUD_SOUND_COLLECTION_LAYERED::LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive, int type) +{ + LPCSTR str = pSettings->r_string(section, line); + string256 buf_str; + + int count = _GetItemCount(str); + R_ASSERT(count); + + _GetItem(str, 0, buf_str); + + if (pSettings->section_exist(buf_str)) + { + string256 sound_line; + xr_strcpy(sound_line,"snd_1_layer"); + int k=1; + while( pSettings->line_exist(buf_str, sound_line) ) + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(buf_str, sound_line, alias, exclusive, type); + snd_item.m_alias = alias; + xr_sprintf(sound_line,"snd_%d_layer",++k); + } + } + else //For compatibility with normal HUD_SOUND_COLLECTION sounds + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(section, line, alias, exclusive, type); + snd_item.m_alias = alias; + } +} +#endif +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/HudSound.h b/src/xrGame/HudSound.h index cb8cba3d93f..7d920cf4a6c 100644 --- a/src/xrGame/HudSound.h +++ b/src/xrGame/HudSound.h @@ -62,26 +62,39 @@ struct HUD_SOUND_ITEM class HUD_SOUND_COLLECTION { - xr_vector m_sound_items; + //xr_vector m_sound_items; //HUD_SOUND_ITEM* FindSoundItem ( LPCSTR alias, bool b_assert); public: ~HUD_SOUND_COLLECTION(); +#ifdef LAYERED_SND_SHOOT + shared_str m_alias; //Alundaio: For use when it's part of a layered Collection +#endif + xr_vector m_sound_items; //Alundaio: made public + HUD_SOUND_ITEM* FindSoundItem(LPCSTR alias, bool b_assert); //AVO: made public to check if sound is loaded - void PlaySound(LPCSTR alias, - const Fvector& position, - const CObject* parent, - bool hud_mode, - bool looped = false, - u8 index = u8(-1)); + void PlaySound(LPCSTR alias, const Fvector& position, const CObject* parent, bool hud_mode, bool looped = false, u8 index = u8(-1)); void StopSound(LPCSTR alias); - void LoadSound(LPCSTR section, - LPCSTR line, - LPCSTR alias, - bool exclusive = false, - int type = sg_SourceType); + void LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); void SetPosition(LPCSTR alias, const Fvector& pos); void StopAllSounds(); }; + +//Alundaio: +#ifdef LAYERED_SND_SHOOT +class HUD_SOUND_COLLECTION_LAYERED +{ + xr_vector m_sound_items; +public: + ~HUD_SOUND_COLLECTION_LAYERED(); + HUD_SOUND_ITEM* FindSoundItem(LPCSTR alias, bool b_assert); + void PlaySound(LPCSTR alias, const Fvector& position, const CObject* parent, bool hud_mode, bool looped = false, u8 index = u8(-1)); + void StopSound(LPCSTR alias); + void StopAllSounds(); + void LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); + void SetPosition(LPCSTR alias, const Fvector& pos); +}; +#endif +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 2e2a36a8e66..6344f9d61b3 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -50,7 +50,7 @@ CInventory::CInventory() { m_fMaxWeight = pSettings->r_float ("inventory","max_weight"); - u32 sz = pSettings->r_s32 ("inventory","slots_count"); + u32 sz = LAST_SLOT + 1; //pSettings->r_s32("inventory", "slots_count"); //Alundaio: Get slot count directly to automate this process m_slots.resize (sz+1); //first is [1] m_iActiveSlot = NO_ACTIVE_SLOT; @@ -61,10 +61,10 @@ CInventory::CInventory() for(u16 i=FirstSlot(); i<=LastSlot(); ++i ) { xr_sprintf(temp, "slot_persistent_%d", i); - m_slots[i].m_bPersistent = !!pSettings->r_bool("inventory",temp); + m_slots[i].m_bPersistent = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); //Alundaio xr_sprintf (temp, "slot_active_%d", i); - m_slots[i].m_bAct = !!pSettings->r_bool("inventory",temp); + m_slots[i].m_bAct = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); }; m_bSlotsUseful = true; diff --git a/src/xrGame/InventoryOwner.cpp b/src/xrGame/InventoryOwner.cpp index 2d1dd178245..7569ad38c15 100644 --- a/src/xrGame/InventoryOwner.cpp +++ b/src/xrGame/InventoryOwner.cpp @@ -473,18 +473,22 @@ void CInventoryOwner::OnItemDropUpdate() void CInventoryOwner::OnItemBelt(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); - object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()); + object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()) +#endif /* avo: end */ } void CInventoryOwner::OnItemRuck(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); object->callback(GameObject::eItemToRuck)(inventory_item->object().lua_game_object()); +#endif /* avo: end */ detach(inventory_item); @@ -492,9 +496,11 @@ void CInventoryOwner::OnItemRuck(CInventoryItem *inventory_item, const SInvItemP void CInventoryOwner::OnItemSlot(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); object->callback(GameObject::eItemToSlot)(inventory_item->object().lua_game_object()); +#endif /* avo: end */ attach(inventory_item); diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index b41dd91926a..18d6ff2858e 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -61,7 +61,9 @@ #endif ENGINE_API bool g_dedicated_server; //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE ENGINE_API BOOL g_bootComplete; +#endif //-AVO extern CUISequencer* g_tutorial; extern CUISequencer* g_tutorial2; @@ -70,6 +72,7 @@ float g_cl_lvInterp = 0.1; u32 lvInterpSteps = 0; //AVO: get object ID from spawn data (used by SPAWN_ANTIFREEZE by alpet) +#ifdef SPAWN_ANTIFREEZE u16 GetSpawnInfo(NET_Packet &P, u16 &parent_id) { u16 dummy16, id; @@ -86,6 +89,7 @@ u16 GetSpawnInfo(NET_Packet &P, u16 &parent_id) P.r_pos = 0; return id; } +#endif //-AVO @@ -98,7 +102,9 @@ IPureClient(Device.GetTimerGlobal()) g_bDebugEvents = strstr(Core.Params, "-debug_ge") != nullptr; game_events = xr_new(); //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE spawn_events = xr_new(); +#endif //-AVO eChangeRP = Engine.Event.Handler_Attach("LEVEL:ChangeRP", this); eDemoPlay = Engine.Event.Handler_Attach("LEVEL:PlayDEMO", this); @@ -293,23 +299,6 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { - /* This is not the right place for this (if this is even required...) - //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases - //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash -#ifdef SPAWN_ANTIFREEZE - for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) - { - const NET_Event& E = *it; - NET_Packet P; - if (M_SPAWN != E.ID) continue; - E.implication(P); - u16 parent_id; - if (GO->ID() == GetSpawnInfo(P, parent_id)) - spawn_events->queue.erase(it); // if parent is being destroyed, delete all queued up children - } -#endif - //-AVO - */ Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -346,6 +335,7 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) } } //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE bool CLevel::PostponedSpawn(u16 id) { for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) @@ -361,6 +351,7 @@ bool CLevel::PostponedSpawn(u16 id) return false; } +#endif //-AVO void CLevel::ProcessGameEvents() diff --git a/src/xrGame/Level.h b/src/xrGame/Level.h index c86c82f13c0..e7214e54dc1 100644 --- a/src/xrGame/Level.h +++ b/src/xrGame/Level.h @@ -159,7 +159,9 @@ class CLevel : bool game_configured = false; NET_Queue_Event* game_events = nullptr; //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE NET_Queue_Event* spawn_events = nullptr; +#endif //-AVO xr_deque game_spawn_queue; xrServer* Server = nullptr; @@ -224,7 +226,9 @@ class CLevel : void cl_Process_Event(u16 dest, u16 type, NET_Packet& P); void cl_Process_Spawn(NET_Packet& P); //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE bool PostponedSpawn(u16 id); +#endif //-AVO void ProcessGameEvents(); void ProcessGameSpawns(); diff --git a/src/xrGame/Level_input.cpp b/src/xrGame/Level_input.cpp index 2f1ac089c17..a473081546b 100644 --- a/src/xrGame/Level_input.cpp +++ b/src/xrGame/Level_input.cpp @@ -84,11 +84,11 @@ void CLevel::IR_OnMouseMove(int dx, int dy) { if (g_bDisableAllInput) return; -#ifdef MOUSE_MOVE_CALLBACK +#ifdef INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eMouseMove)(dx, dy); /* avo: end */ -#endif // MOUSE_MOVE_CALLBACK +#endif // INPUT_CALLBACKS if (CurrentGameUI()->IR_UIOnMouseMove(dx, dy)) return; if (Device.Paused() && !IsDemoPlay() @@ -129,7 +129,9 @@ void CLevel::IR_OnKeyboardPress(int key) EGameActions _curr = get_binded_action(key); /* avo: script callback */ +#ifdef INPUT_CALLBACKS if (!g_bDisableAllInput && g_actor) g_actor->callback(GameObject::eKeyPress)(key); +#endif /* avo: end */ if (_curr == kPAUSE) @@ -475,11 +477,11 @@ void CLevel::IR_OnKeyboardRelease(int key) { if (!bReady || g_bDisableAllInput) return; -#ifdef KEY_RELEASE_CALLBACK +#ifdef INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eKeyRelease)(key); /* avo: end */ -#endif // KEY_RELEASE_CALLBACK +#endif // INPUT_CALLBACKS if (CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardRelease(key)) return; if (game && game->OnKeyboardRelease(get_binded_action(key))) return; @@ -500,11 +502,11 @@ void CLevel::IR_OnKeyboardHold(int key) { if (g_bDisableAllInput) return; -#ifdef KEY_HOLD_CALLBACK +#ifdef INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eKeyHold)(key); /* avo: end */ -#endif // KEY_HOLD_CALLBACK +#endif // INPUT_CALLBACKS #ifdef DEBUG diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index d6f9e5c85a4..87f1d58a787 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -79,7 +79,7 @@ void CShootingObject::Load (LPCSTR section) //Cycle down RPM after first 2 shots; used for Abakan/AN-94 if (pSettings->line_exist(section, "cycle_down")) { - bCycleDown = pSettings->r_bool(section, "cycle_down"); + bCycleDown = pSettings->r_bool(section, "cycle_down")?true:false; } else bCycleDown = false; diff --git a/src/xrGame/UIGameCustom.cpp b/src/xrGame/UIGameCustom.cpp index 96a5bf8f258..d56143f5ca1 100644 --- a/src/xrGame/UIGameCustom.cpp +++ b/src/xrGame/UIGameCustom.cpp @@ -178,6 +178,14 @@ void CUIGameCustom::HideActorMenu() ActorMenu->HideDialog(); } +//Alundaio: +void CUIGameCustom::UpdateActorMenu() +{ + if (ActorMenu->IsShown()) + ActorMenu->UpdateActor(); +} +//-Alundaio + void CUIGameCustom::HideMessagesWindow() { if (m_pMessagesWnd->IsShown()) diff --git a/src/xrGame/UIGameCustom.h b/src/xrGame/UIGameCustom.h index 66f72e99ea4..9e9c82064b1 100644 --- a/src/xrGame/UIGameCustom.h +++ b/src/xrGame/UIGameCustom.h @@ -103,6 +103,7 @@ class CUIGameCustom : IC CUIPdaWnd& GetPdaMenu() const { return *PdaMenu; } bool ShowActorMenu(); void HideActorMenu(); + void UpdateActorMenu(); //Alundaio bool ShowPdaMenu(); void HidePdaMenu(); void ShowMessagesWindow(); diff --git a/src/xrGame/UIGameCustom_script.cpp b/src/xrGame/UIGameCustom_script.cpp index 3d2664ce78f..2f1ab7dd709 100644 --- a/src/xrGame/UIGameCustom_script.cpp +++ b/src/xrGame/UIGameCustom_script.cpp @@ -24,6 +24,9 @@ void CUIGameCustom::script_register(lua_State *L) .def("AddCustomStatic", &CUIGameCustom::AddCustomStatic) .def("RemoveCustomStatic", &CUIGameCustom::RemoveCustomStatic) .def("HideActorMenu", &CUIGameCustom::HideActorMenu) + //Alundaio + .def("UpdateActorMenu", &CUIGameCustom::UpdateActorMenu) + //-Alundaio .def("HidePdaMenu", &CUIGameCustom::HidePdaMenu) .def("show_messages", &CUIGameCustom::ShowMessagesWindow) .def("hide_messages", &CUIGameCustom::HideMessagesWindow) diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 3a7553e1518..e56c1e9fc4d 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -45,7 +45,9 @@ CWeaponMagazined::CWeaponMagazined(ESoundTypes eSoundType) : CWeapon() m_eSoundShot = ESoundTypes(SOUND_TYPE_WEAPON_SHOOTING | eSoundType); m_eSoundEmptyClick = ESoundTypes(SOUND_TYPE_WEAPON_EMPTY_CLICKING | eSoundType); m_eSoundReload = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); +#ifdef NEW_SOUNDS m_eSoundReloadEmpty = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); +#endif m_sounds_enabled = true; m_sSndShotCurrent = NULL; @@ -92,7 +94,15 @@ void CWeaponMagazined::Load(LPCSTR section) // Sounds m_sounds.LoadSound(section, "snd_draw", "sndShow", false, m_eSoundShow); m_sounds.LoadSound(section, "snd_holster", "sndHide", false, m_eSoundHide); - m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); + + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(section, "snd_shoot", "sndShot", true, m_eSoundShot); +#else + m_sounds.LoadSound(section, "snd_shoot", "sndShot", true, m_eSoundShot); //Alundaio: Set exclusive to true +#endif + //-Alundaio + m_sounds.LoadSound(section, "snd_empty", "sndEmptyClick", false, m_eSoundEmptyClick); m_sounds.LoadSound(section, "snd_reload", "sndReload", true, m_eSoundReload); @@ -176,9 +186,11 @@ void CWeaponMagazined::FireStart() else {//misfire //Alundaio +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponJammed)(object->lua_game_object(), this->lua_game_object()); +#endif //-Alundaio if (smart_cast(this->H_Parent()) && (Level().CurrentViewEntity() == H_Parent())) @@ -192,9 +204,11 @@ void CWeaponMagazined::FireEnd() { inherited::FireEnd(); + /* Alundaio: Removed auto-reload since it's widely asked by just about everyone who is a gun whore CActor *actor = smart_cast(H_Parent()); if (m_pInventory && !iAmmoElapsed && actor && GetState() != eReload) Reload(); + */ } void CWeaponMagazined::Reload() @@ -623,7 +637,13 @@ void CWeaponMagazined::SetDefaults() void CWeaponMagazined::OnShot() { // Sound - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP()); +//Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); +#else + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) +#endif +//-Alundaio // Camera AddShotEffector(); @@ -1196,9 +1216,11 @@ void CWeaponMagazined::OnZoomIn() PlayAnimIdle(); //Alundaio: callback not sure why vs2013 gives error, it's fine +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponZoomIn)(object->lua_game_object(),this->lua_game_object()); +#endif //-Alundaio CActor* pActor = smart_cast(H_Parent()); @@ -1225,9 +1247,11 @@ void CWeaponMagazined::OnZoomOut() PlayAnimIdle(); //Alundaio +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponZoomOut)(object->lua_game_object(), this->lua_game_object()); +#endif //-Alundaio CActor* pActor = smart_cast(H_Parent()); @@ -1369,14 +1393,21 @@ bool CWeaponMagazined::GetBriefInfo(II_BriefInfo& info) info.ap_ammo._set(""); info.third_ammo._set(""); - xr_sprintf(int_str, "%d", GetAmmoCount(m_ammoType)); - - if (m_ammoType == 0) - info.fmj_ammo._set(int_str); - else if (m_ammoType == 1) + if (at_size >= 1) + { + xr_sprintf(int_str, "%d", GetAmmoCount(0)); + info.fmj_ammo._set(int_str); + } + if (at_size >= 2) + { + xr_sprintf(int_str, "%d", GetAmmoCount(1)); info.ap_ammo._set(int_str); - else + } + if (at_size >= 3) + { + xr_sprintf(int_str, "%d", GetAmmoCount(2)); info.third_ammo._set(int_str); + } //-Alundaio } diff --git a/src/xrGame/WeaponMagazined.h b/src/xrGame/WeaponMagazined.h index a2820f09835..fb7f160dcf1 100644 --- a/src/xrGame/WeaponMagazined.h +++ b/src/xrGame/WeaponMagazined.h @@ -206,4 +206,10 @@ class CWeaponMagazined : public CWeapon bool send_hit); //AVO: for custom added sounds check if sound exists bool WeaponSoundExist(LPCSTR section, LPCSTR sound_name); + + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + HUD_SOUND_COLLECTION_LAYERED m_layered_sounds; +#endif + //-Alundaio }; diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 56b991d5dd6..da647e6f48d 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -972,6 +972,27 @@ bool CWeaponMagazinedWGrenade::GetBriefInfo(II_BriefInfo& info) info.ap_ammo._set(int_str); else info.third_ammo._set(int_str); + + //Alundaio: Added third ammo type and cleanup + info.fmj_ammo._set(""); + info.ap_ammo._set(""); + info.third_ammo._set(""); + + if (at_size >= 1) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(0) : GetAmmoCount(0)); + info.fmj_ammo._set(int_str); + } + if (at_size >= 2) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(1) : GetAmmoCount(1)); + info.ap_ammo._set(int_str); + } + if (at_size >= 3) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(2) : GetAmmoCount(2)); + info.third_ammo._set(int_str); + } //-Alundaio } diff --git a/src/xrGame/WeaponPistol.cpp b/src/xrGame/WeaponPistol.cpp index bca7abebc4b..a846eda7e10 100644 --- a/src/xrGame/WeaponPistol.cpp +++ b/src/xrGame/WeaponPistol.cpp @@ -144,25 +144,7 @@ void CWeaponPistol::OnAnimationEnd(u32 state) void CWeaponPistol::OnShot() { - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP()); - - AddShotEffector(); - - PlayAnimShoot(); - - // Shell Drop - Fvector vel; - PHGetLinearVell(vel); - OnShellDrop(get_LastSP(), vel); - - // Огонь из ствола - - StartFlameParticles(); - R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), - "can't set looped particles system for shoting with pistol"); - - //дым из ствола - StartSmokeParticles(get_LastFP(), vel); + inherited::OnShot(); //Alundaio: not changed from inherited, so instead of copying changes from weaponmagazined, we just do this } void CWeaponPistol::UpdateSounds() diff --git a/src/xrGame/WeaponRevolver.cpp b/src/xrGame/WeaponRevolver.cpp index c89adfe2f35..0459c184f73 100644 --- a/src/xrGame/WeaponRevolver.cpp +++ b/src/xrGame/WeaponRevolver.cpp @@ -148,25 +148,7 @@ void CWeaponRevolver::OnAnimationEnd(u32 state) void CWeaponRevolver::OnShot () { - PlaySound (m_sSndShotCurrent.c_str(),get_LastFP()); - - AddShotEffector (); - - PlayAnimShoot (); - - // Shell Drop - Fvector vel; - PHGetLinearVell(vel); - OnShellDrop (get_LastSP(), vel); - - // Огонь из ствола - - StartFlameParticles (); - R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), - "can't set looped particles system for shoting with Revolver"); - - //дым из ствола - StartSmokeParticles (get_LastFP(), vel); + inherited::OnShot(); //Alundaio: not changed from inherited, so instead of copying changes from weaponmagazined, we just do this } void CWeaponRevolver::UpdateSounds() diff --git a/src/xrGame/action_planner_inline.h b/src/xrGame/action_planner_inline.h index 998123db778..1a043be128b 100644 --- a/src/xrGame/action_planner_inline.h +++ b/src/xrGame/action_planner_inline.h @@ -104,8 +104,8 @@ void CPlanner::update () current_action().finalize(); m_current_action_id = solution().front(); //Alundaio: More detailed logging for initializing action - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] initializing", m_current_action_id); + //if (strstr(Core.Params, "-dbgact")) + //Msg("DEBUG: Action [%d] initializing", m_current_action_id); current_action().initialize(); } } @@ -113,14 +113,14 @@ void CPlanner::update () m_initialized = true; m_current_action_id = solution().front(); //Alundaio: More detailed logging for initializing action - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] initializing", m_current_action_id); + //if (strstr(Core.Params, "-dbgact")) + //Msg("DEBUG: Action [%d] initializing", m_current_action_id); current_action().initialize(); } //Alundaio: More detailed logging for executing action; Knowing the last executing action before a crash can be very useful for debugging - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] executing", m_current_action_id); + //if (strstr(Core.Params, "-dbgact")) + //Msg("DEBUG: Action [%d] executing", m_current_action_id); current_action().execute (); } diff --git a/src/xrGame/alife_object.cpp b/src/xrGame/alife_object.cpp index 2fff6045757..f241326cdb1 100644 --- a/src/xrGame/alife_object.cpp +++ b/src/xrGame/alife_object.cpp @@ -35,52 +35,154 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) ); #pragma warning(pop) - if (ini.section_exist("spawn")) { - LPCSTR N,V; - float p; - for (u32 k = 0, j; ini.r_line("spawn",k,&N,&V); k++) { - VERIFY (xr_strlen(N)); - - float f_cond = 1.0f; - bool bScope = false; - bool bSilencer = false; - bool bLauncher = false; - - - j = 1; - p = 1.f; - - if (V && xr_strlen(V)) { - string64 buf; - j = atoi(_GetItem(V, 0, buf)); - if (!j) j = 1; - - bScope = (NULL!=strstr(V,"scope")); - bSilencer = (NULL!=strstr(V,"silencer")); - bLauncher = (NULL!=strstr(V,"launcher")); - //probability - if(NULL!=strstr(V,"prob=")) - p = (float)atof(strstr(V,"prob=")+5); - if (fis_zero(p)) p = 1.0f; - if(NULL!=strstr(V,"cond=")) - f_cond = (float)atof(strstr(V,"cond=")+5); + // Alundaio: This will spawn a single random section listed in [spawn_loadout] + // No need to spawn ammo, this will automatically spawn 1 box for weapon and if ammo_type is specficied it will spawn that type + // count is used only for ammo boxes (ie wpn_pm = 3) will spawn 3 boxes, not 3 wpn_pm + // Usage: to create random weapon loadouts + if (ini.section_exist("spawn_loadout")) + { + LPCSTR itmSection, V; + xr_vector OnlyOne; + OnlyOne.clear(); + LPCSTR lname = *ai().game_graph().header().level(ai().game_graph().vertex(m_tGraphID)->level_id()).name(); + + for (u32 k = 0; ini.r_line("spawn_loadout", k, &itmSection, &V); k++) + { + // If level= then only spawn items if object on that level + if (strstr(V, "level=") != NULL) + { + if (strstr(V, lname) != NULL) + OnlyOne.push_back(k); } - for (u32 i=0; i(E); - if (W) { + else { + OnlyOne.push_back(k); + } + } + + if (!OnlyOne.empty()) + { + s32 sel = ::Random.randI(0, OnlyOne.size()); + if (ini.r_line("spawn_loadout", OnlyOne.at(sel), &itmSection, &V)) + { + VERIFY(xr_strlen(itmSection)); + if (pSettings->section_exist(itmSection)) + { + u32 spawn_count = 1; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; + float f_cond = 1.0f; + int i_ammo_type = 0, n=0; + + if (V && xr_strlen(V)) { + n = _GetItemCount(V); + if (n > 0) + { + string64 tmp; + spawn_count = atoi(_GetItem(V, 0, tmp)); //count + } + + if (!spawn_count) spawn_count = 1; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + if (NULL != strstr(V, "ammo_type=")) + i_ammo_type = atoi(strstr(V, "ammo_type=") + 10); + } + + + CSE_Abstract* E = alife().spawn_item(itmSection, o_Position, m_tNodeID, m_tGraphID, ID); + CSE_ALifeItemWeapon* W = smart_cast(E); + if (W) + { if (W->m_scope_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); if (W->m_silencer_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); if (W->m_grenade_launcher_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + + //spawn count box(es) of the correct ammo for weapon + if (pSettings->line_exist(itmSection, "ammo_class")) + { + LPCSTR ammo_class = pSettings->r_string(itmSection, "ammo_class"); + LPCSTR ammoSec = ""; + for (int i = 0, n = _GetItemCount(ammo_class); i < n; ++i) + { + string128 tmp; + ammoSec = _GetItem(ammo_class, i, tmp); + if (i == i_ammo_type) + break; + } + if (xr_strlen(ammoSec) && pSettings->section_exist(ammoSec)) + { + for (u32 i = 1; i <= spawn_count; ++i) + { + alife().spawn_item(ammoSec, o_Position, m_tNodeID, m_tGraphID, ID); + } + } + } } CSE_ALifeInventoryItem* IItem = smart_cast(E); - if(IItem) - IItem->m_fCondition = f_cond; + if (IItem) + IItem->m_fCondition = f_cond; + + } + } + } + } + //-Alundaio + + if (ini.section_exist("spawn")) { + LPCSTR N,V; + float p; + for (u32 k = 0, j; ini.r_line("spawn", k, &N, &V); k++) { + VERIFY(xr_strlen(N)); + + if (pSettings->section_exist(N)) //Alundaio: verify item section exists! + { + float f_cond = 1.0f; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; + + j = 1; + p = 1.f; + + if (V && xr_strlen(V)) { + string64 buf; + j = atoi(_GetItem(V, 0, buf)); + if (!j) j = 1; + + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + //probability + if (NULL != strstr(V, "prob=")) + p = (float)atof(strstr(V, "prob=") + 5); + if (fis_zero(p)) p = 1.0f; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + } + for (u32 i = 0; i < j; ++i) { + if (randF(1.f) < p) { + CSE_Abstract* E = alife().spawn_item(N, o_Position, m_tNodeID, m_tGraphID, ID); + //подсоединить аддоны к оружию, если включены соответствующие флажки + CSE_ALifeItemWeapon* W = smart_cast(E); + if (W) { + if (W->m_scope_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); + if (W->m_silencer_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); + if (W->m_grenade_launcher_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + } + CSE_ALifeInventoryItem* IItem = smart_cast(E); + if (IItem) + IItem->m_fCondition = f_cond; + } } } } diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index cc3c94035d4..ddb91d1fa44 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -314,16 +314,8 @@ void teleport_object(CALifeSimulator *alife, ALife::_OBJECT_ID id, GameGraph::_G { alife->teleport_object(id, game_vertex_id, level_vertex_id, position); } +//-Alundaio -//void disable_info_portion (const CALifeSimulator *self, const ALife::_OBJECT_ID &id) -//{ -// THROW (self); -//} - -//void give_info_portion (const CALifeSimulator *self, const ALife::_OBJECT_ID &id) -//{ -// THROW (self); -//} #pragma optimize("s",on) void CALifeSimulator::script_register (lua_State *L) @@ -358,7 +350,7 @@ void CALifeSimulator::script_register (lua_State *L) .def("has_info", &has_info) .def("dont_has_info", &dont_has_info) .def("switch_distance", &CALifeSimulator::switch_distance) - .def("switch_distance", &CALifeSimulator::set_switch_distance) + .def("set_switch_distance", &CALifeSimulator::set_switch_distance) //Alundaio: renamed to set_switch_distance from switch_distance //Alundaio: extend alife simulator exports .def("teleport_object", &teleport_object) //Alundaio: END diff --git a/src/xrGame/alife_storage_manager.cpp b/src/xrGame/alife_storage_manager.cpp index a89c2e1f570..4254e9d8884 100644 --- a/src/xrGame/alife_storage_manager.cpp +++ b/src/xrGame/alife_storage_manager.cpp @@ -23,14 +23,18 @@ #include "../xrEngine/igame_persistent.h" #include "autosave_manager.h" //Alundaio +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS #include "pch_script.h" #include "../../xrServerEntities/script_engine.h" +#endif //-Alundaio XRCORE_API string_path g_bug_report_file; using namespace ALife; +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS using namespace luabind; //Alundaio +#endif extern string_path g_last_saved_game; @@ -96,10 +100,12 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) #endif // DEBUG //Alundaio: To get the savegame fname to make our own custom save states +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS luabind::functor funct; ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_save", funct); if (funct) funct((LPCSTR)m_save_name); +#endif //-Alundaio if (!update_name) @@ -109,10 +115,12 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) void CALifeStorageManager::load (void *buffer, const u32 &buffer_size, LPCSTR file_name) { //Alundaio: So we can get the fname to make our own custom save states +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS luabind::functor funct; ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_load", funct); if (funct) funct(file_name); +#endif //-Alundaio IReader source(buffer,buffer_size); diff --git a/src/xrGame/alife_trader_abstract.cpp b/src/xrGame/alife_trader_abstract.cpp index 7433c029b05..ad21b2e3aba 100644 --- a/src/xrGame/alife_trader_abstract.cpp +++ b/src/xrGame/alife_trader_abstract.cpp @@ -163,21 +163,14 @@ void add_online_impl (CSE_ALifeDynamicObject *object, const bool &update_re ALife::OBJECT_IT I = object->children.begin(); ALife::OBJECT_IT E = object->children.end(); for ( ; I != E; ++I) { -// this was for the car only -// if (*I == ai().alife().graph().actor()->ID) -// continue; -// - CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); - //Alundaio: I don't know why this happens but until I do, this will stop crash. I think maybe a deleted object is registered to come back online - if (!l_tpALifeDynamicObject) + //Alundaio: + if (*I == ai().alife().graph().actor()->ID) continue; - //Alundaio End + //-Alundaio + + CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); CSE_ALifeInventoryItem *l_tpALifeInventoryItem = smart_cast(l_tpALifeDynamicObject); - //Alundaio - if (!l_tpALifeInventoryItem) - continue; - //Alundaio End - //R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); l_tpALifeInventoryItem->base()->s_flags.or(M_SPAWN_UPDATE); CSE_Abstract *l_tpAbstract = smart_cast(l_tpALifeInventoryItem); object->alife().server().entity_Destroy(l_tpAbstract); diff --git a/src/xrGame/alife_update_manager.cpp b/src/xrGame/alife_update_manager.cpp index 30594e0351e..d4309dcecbf 100644 --- a/src/xrGame/alife_update_manager.cpp +++ b/src/xrGame/alife_update_manager.cpp @@ -24,6 +24,9 @@ #include "mt_config.h" using namespace ALife; +#ifdef ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS +using namespace luabind; //Alundaio +#endif extern string_path g_last_saved_game; @@ -154,6 +157,13 @@ bool CALifeUpdateManager::change_level (NET_Packet &net_packet) if (m_changing_level) return (false); +#ifdef ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS + luabind::functor funct; + ai().script_engine().functor("_G.CALifeUpdateManager__on_before_change_level", funct); + if (funct) + funct(&net_packet); +#endif + // prepare_objects_for_save (); // we couldn't use prepare_objects_for_save since we need // get updates from client @@ -255,7 +265,7 @@ void CALifeUpdateManager::new_game (LPCSTR save_name) save (save_name); #endif // #ifdef DEBUG - Msg ("* New game is successfully created!"); + Msg("* New game is successfully created!"); } void CALifeUpdateManager::load (LPCSTR game_name, bool no_assert, bool new_only) diff --git a/src/xrGame/fs_registrator_script.cpp b/src/xrGame/fs_registrator_script.cpp index 392e2cc07d2..b5cab10c619 100644 --- a/src/xrGame/fs_registrator_script.cpp +++ b/src/xrGame/fs_registrator_script.cpp @@ -20,6 +20,13 @@ LPCSTR update_path_script(CLocatorAPI* fs, LPCSTR initial, LPCSTR src) return *temp_2; } +//Alundaio: Set flag to rescan all files in path +void rescan_path_script(CLocatorAPI* fs, LPCSTR initial) +{ + fs->get_path(initial)->m_Flags.set(FS_Path::flNeedRescan, TRUE); +} +//-Alundaio + class FS_file_list{ xr_vector* m_p; public : @@ -211,6 +218,9 @@ void fs_registrator::script_register(lua_State *L) .def("update_path", &update_path_script) .def("get_path", &CLocatorAPI::get_path) .def("append_path", &CLocatorAPI::append_path) + //Alundaio + .def("rescan_path", &rescan_path_script) + //-Alundaio .def("file_delete", (void (CLocatorAPI::*)(LPCSTR,LPCSTR)) (&CLocatorAPI::file_delete)) .def("file_delete", (void (CLocatorAPI::*)(LPCSTR)) (&CLocatorAPI::file_delete)) diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 9ea4ebb2a0a..4bb57b34956 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -53,28 +53,38 @@ namespace GameObject eInvBoxItemTake, eWeaponNoAmmoAvailable, - + //Alundaio: added defines //AVO: custom callbacks - // input +#ifdef INPUT_CALLBACKS + // input eKeyPress, eKeyRelease, eKeyHold, eMouseMove, eMouseWheel, +#endif +#ifdef EXTENDED_ITEM_CALLBACKS // inventory eItemToBelt, eItemToSlot, eItemToRuck, +#endif +#ifdef EXTENDED_WEAPON_CALLBACKS + // weapon + eOnWeaponZoomIn, + eOnWeaponZoomOut, + eOnWeaponJammed, +#endif // actor +#ifdef ACTOR_BEFORE_DEATH_CALLBACK eActorBeforeDeath, +#endif +#ifdef ENABLE_CAR // vehicle eAttachVehicle, eDetachVehicle, eUseVehicle, - // weapon - eOnWeaponZoomIn, - eOnWeaponZoomOut, - eOnWeaponJammed, +#endif //-AVO eDummy = u32(-1), diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index c9dadb217ce..946b844c811 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -278,7 +278,9 @@ class CInventoryItem : bool has_upgrade_group ( const shared_str& upgrade_group_id ); void add_upgrade ( const shared_str& upgrade_id, bool loading ); bool get_upgrades_str ( string2048& res ) const; +#ifdef GAME_OBJECT_EXTENDED_EXPORTS Upgrades_type get_upgrades() { return m_upgrades; } //Alundaio +#endif bool equal_upgrades ( Upgrades_type const& other_upgrades ) const; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 68f63a38bd5..40ce106176d 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -706,7 +706,7 @@ bool has_active_tutotial() } //Alundaio: namespace level exports extension - +#ifdef NAMESPACE_LEVEL_EXPORTS //ability to update level netpacket void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighPriority = 0, bool bSendImmediately = 0) { @@ -714,7 +714,7 @@ void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighP } //can spawn entities like bolts, phantoms, ammo, etc. which normally crash when using alife():create() -void spawn_section(LPCSTR sSection, Fvector3 vPosition, u32 LevelVertexID, u16 ParentID, bool bReturnItem) +void spawn_section(LPCSTR sSection, Fvector3 vPosition, u32 LevelVertexID, u16 ParentID, bool bReturnItem=false) { Level().spawn_item(sSection, vPosition, LevelVertexID, ParentID, bReturnItem); } @@ -749,6 +749,23 @@ u32 g_get_target_element() } return (0); } + +u8 get_active_cam() +{ + CActor* actor = smart_cast(Level().CurrentViewEntity()); + if (actor) + return (u8)actor->active_cam(); + + return 255; +} + +void set_active_cam(u8 mode) +{ + CActor* actor = smart_cast(Level().CurrentViewEntity()); + if (actor && mode <= ACTOR_DEFS::EActorCameras::eacMaxCam) + actor->cam_Set((ACTOR_DEFS::EActorCameras)mode); +} +#endif //-Alundaio @@ -765,11 +782,15 @@ void CLevel::script_register(lua_State *L) module(L,"level") [ //Alundaio: Extend level namespace exports +#ifdef NAMESPACE_LEVEL_EXPORTS def("send", &g_send), //allow the ability to send netpacket to level def("get_target_obj", &g_get_target_obj), //intentionally named to what is in xray extensions def("get_target_dist", &g_get_target_dist), def("get_target_element", &g_get_target_element), //Can get bone cursor is targetting def("spawn_item", &spawn_section), + def("get_active_cam", &get_active_cam), + def("set_active_cam", &set_active_cam), +#endif //Alundaio: END // obsolete\deprecated def("object_by_id", get_object_by_id), diff --git a/src/xrGame/property_evaluator.h b/src/xrGame/property_evaluator.h index 4fa1a3e6129..03f52c17303 100644 --- a/src/xrGame/property_evaluator.h +++ b/src/xrGame/property_evaluator.h @@ -22,10 +22,11 @@ class CPropertyEvaluator { public: _object_type *m_object; - CPropertyStorage *m_storage; -#ifdef LOG_ACTION + CPropertyStorage *m_storage; +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION LPCSTR m_evaluator_name; -#endif +//#endif public: IC CPropertyEvaluator (_object_type *object = 0, LPCSTR evaluator_name = ""); diff --git a/src/xrGame/property_evaluator_const_inline.h b/src/xrGame/property_evaluator_const_inline.h index 7d01f600402..ead2b929916 100644 --- a/src/xrGame/property_evaluator_const_inline.h +++ b/src/xrGame/property_evaluator_const_inline.h @@ -18,9 +18,10 @@ TEMPLATE_SPECIALIZATION IC CEvaluator::CPropertyEvaluatorConst (_value_type value, LPCSTR evaluator_name) : m_value (value) { -#ifdef LOG_ACTION +//m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif } TEMPLATE_SPECIALIZATION diff --git a/src/xrGame/property_evaluator_inline.h b/src/xrGame/property_evaluator_inline.h index 39efa27b271..68b5b93dc78 100644 --- a/src/xrGame/property_evaluator_inline.h +++ b/src/xrGame/property_evaluator_inline.h @@ -26,9 +26,10 @@ TEMPLATE_SPECIALIZATION IC void CEvaluator::init (_object_type *object, LPCSTR evaluator_name) { m_object = object; -#ifdef LOG_ACTION +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif m_storage = 0; } diff --git a/src/xrGame/property_evaluator_member_inline.h b/src/xrGame/property_evaluator_member_inline.h index e8ca21e54d3..d4235271233 100644 --- a/src/xrGame/property_evaluator_member_inline.h +++ b/src/xrGame/property_evaluator_member_inline.h @@ -17,9 +17,10 @@ CEvaluator::CPropertyEvaluatorMember (CPropertyStorage *storage, _condition_type m_value (value), m_equality (equality) { -#ifdef LOG_ACTION +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif m_storage = storage; } diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 24561fc0517..2a1f195eab5 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -39,6 +39,8 @@ #include "smart_cover.h" #include "smart_cover_description.h" #include "physics_shell_scripted.h" +#include "CharacterPhysicsSupport.h" //Alundaio: For set_visual +#include "damage_manager.h" //Alundaio: For set_visual class CScriptBinderObject; @@ -587,32 +589,3 @@ LPCSTR CScriptGameObject::get_visual_name() const { return object().cNameVisual().c_str(); } - -bool CScriptGameObject::IsActorIndoors() const -{ - // Check to make sure all the params are available (we're in game and such). - if (!g_pGameLevel) - { - return FALSE; - } - CObject *e = g_pGameLevel->CurrentViewEntity(); - if (!e || !e->renderable_ROS()) - { - return FALSE; - } - // Now do the real check! This is a copy out of another section of code that is also hard coded. - // I don't know what the proper limit for this is supposed to be, but this seems good enough. - return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; -} - -bool CScriptGameObject::IsNPCIndoors() const -{ - CObject *e = smart_cast(&object()); - if (!e || !e->renderable_ROS()) - { - return FALSE; - } - // Now do the real check! This is a copy out of another section of code that is also hard coded. - // I don't know what the proper limit for this is supposed to be, but this seems good enough. - return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; -} \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 69fac805bfa..bd08039f7f4 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -15,7 +15,7 @@ #include "character_info_defs.h" #include "game_graph_space.h" #include "game_location_selector.h" -#include "ui/UIWindow.h" //Alundaio + enum EPdaMsg; enum ESoundTypes; enum ETaskState; @@ -87,7 +87,6 @@ class CScriptGameObject; class CZoneCampfire; class CPhysicObject; class CArtefact; -class CUIWindow; //Alundaio: For ScopeTexture #ifdef DEBUG template @@ -386,31 +385,6 @@ class CScriptGameObject { bool Weapon_IsGrenadeLauncherAttached(); bool Weapon_IsScopeAttached (); bool Weapon_IsSilencerAttached (); - //Alundaio - //Weapon - void Weapon_AddonAttach(CScriptGameObject* item); - void Weapon_AddonDetach(LPCSTR item_section); - - //Weapon & Outfit - bool HasUpgrade(LPCSTR upgrade) const; - void AddUpgrade(LPCSTR upgrade); - void IterateInstalledUpgrades(luabind::functor functor); - - //Car - CScriptGameObject* GetAttachedVehicle(); - void AttachVehicle(CScriptGameObject* veh); - void DetachVehicle(); - - //Any class that has PPhysicsShell - void ForceSetPosition(Fvector pos, bool bActivate); - - //Any class that is derived from CHudItem - u32 PlayHudMotion(LPCSTR M, bool bMixIn,u32 state); - void SwitchState(u32 state); - u32 GetState(); - void ActivateHudItem(); - void DeactivateHudItem(); - //-Alundaio int Weapon_GrenadeLauncher_Status (); int Weapon_Scope_Status (); @@ -614,20 +588,6 @@ class CScriptGameObject { void DisableAnomaly (); float GetAnomalyPower (); void SetAnomalyPower (float p); - - //Alun - float GetArtefactHealthRestoreSpeed (); - float GetArtefactRadiationRestoreSpeed (); - float GetArtefactSatietyRestoreSpeed (); - float GetArtefactPowerRestoreSpeed (); - float GetArtefactBleedingRestoreSpeed (); - - void SetArtefactHealthRestoreSpeed (float value); - void SetArtefactRadiationRestoreSpeed (float value); - void SetArtefactSatietyRestoreSpeed (float value); - void SetArtefactPowerRestoreSpeed (float value); - void SetArtefactBleedingRestoreSpeed (float value); - //-Alun // HELICOPTER CHelicopter* get_helicopter (); @@ -805,10 +765,12 @@ class CScriptGameObject { bool is_door_blocked_by_npc () const; bool is_weapon_going_to_be_strapped ( CScriptGameObject const* object ) const; - //AVO: functions for object testing - _DECLARE_FUNCTION10(IsGameObject, bool); + +#ifdef GAME_OBJECT_TESTING_EXPORTS + //AVO: functions for object testing + //_DECLARE_FUNCTION10(IsGameObject, bool); //_DECLARE_FUNCTION10(IsCar, bool); - _DECLARE_FUNCTION10(IsHeli, bool); + //_DECLARE_FUNCTION10(IsHeli, bool); //_DECLARE_FUNCTION10(IsHolderCustom, bool); _DECLARE_FUNCTION10(IsEntityAlive, bool); _DECLARE_FUNCTION10(IsInventoryItem, bool); @@ -816,9 +778,9 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsActor, bool); _DECLARE_FUNCTION10(IsCustomMonster, bool); _DECLARE_FUNCTION10(IsWeapon, bool); - _DECLARE_FUNCTION10(IsMedkit, bool); - _DECLARE_FUNCTION10(IsEatableItem, bool); - _DECLARE_FUNCTION10(IsAntirad, bool); + //_DECLARE_FUNCTION10(IsMedkit, bool); + //_DECLARE_FUNCTION10(IsEatableItem, bool); + //_DECLARE_FUNCTION10(IsAntirad, bool); _DECLARE_FUNCTION10(IsCustomOutfit, bool); _DECLARE_FUNCTION10(IsScope, bool); _DECLARE_FUNCTION10(IsSilencer, bool); @@ -828,26 +790,66 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsStalker, bool); _DECLARE_FUNCTION10(IsAnomaly, bool); _DECLARE_FUNCTION10(IsMonster, bool); - _DECLARE_FUNCTION10(IsExplosive, bool); - _DECLARE_FUNCTION10(IsScriptZone, bool); - _DECLARE_FUNCTION10(IsProjector, bool); + //_DECLARE_FUNCTION10(IsExplosive, bool); + //_DECLARE_FUNCTION10(IsScriptZone, bool); + //_DECLARE_FUNCTION10(IsProjector, bool); _DECLARE_FUNCTION10(IsTrader, bool); _DECLARE_FUNCTION10(IsHudItem, bool); - _DECLARE_FUNCTION10(IsFoodItem, bool); + //_DECLARE_FUNCTION10(IsFoodItem, bool); _DECLARE_FUNCTION10(IsArtefact, bool); _DECLARE_FUNCTION10(IsAmmo, bool); - _DECLARE_FUNCTION10(IsMissile, bool); - _DECLARE_FUNCTION10(IsPhysicsShellHolder, bool); - _DECLARE_FUNCTION10(IsGrenade, bool); - _DECLARE_FUNCTION10(IsBottleItem, bool); - _DECLARE_FUNCTION10(IsTorch, bool); + //_DECLARE_FUNCTION10(IsMissile, bool); + //_DECLARE_FUNCTION10(IsPhysicsShellHolder, bool); + //_DECLARE_FUNCTION10(IsGrenade, bool); + //_DECLARE_FUNCTION10(IsBottleItem, bool); + //_DECLARE_FUNCTION10(IsTorch, bool); _DECLARE_FUNCTION10(IsWeaponGL, bool); _DECLARE_FUNCTION10(IsInventoryBox, bool); - bool IsActorIndoors() const; - bool IsNPCIndoors() const; - void SetHealthEx(float hp); - //end AVO +#endif +//Alundaio +#ifdef GAME_OBJECT_EXTENDED_EXPORTS + void SetHealthEx(float hp); //AVO + float GetLuminocityHemi(); + float GetLuminocity(); + //Weapon + void Weapon_AddonAttach(CScriptGameObject* item); + void Weapon_AddonDetach(LPCSTR item_section); + + //Weapon & Outfit + bool InstallUpgrade(LPCSTR upgrade); + bool HasUpgrade(LPCSTR upgrade); + void IterateInstalledUpgrades(luabind::functor functor); + + //Car + CScriptGameObject* GetAttachedVehicle(); + void AttachVehicle(CScriptGameObject* veh); + void DetachVehicle(); + //Any class that is derived from CHudItem + u32 PlayHudMotion(LPCSTR M, bool bMixIn, u32 state); + void SwitchState(u32 state); + u32 GetState(); + //Works for anything with visual + bool IsBoneVisible(LPCSTR bone_name); + void SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive = true); + + //Anything with PPhysicShell (ie. car, actor, stalker, monster, heli) + void ForceSetPosition(Fvector pos, bool bActivate = false); + + //Artifacts + float GetArtefactHealthRestoreSpeed(); + float GetArtefactRadiationRestoreSpeed(); + float GetArtefactSatietyRestoreSpeed(); + float GetArtefactPowerRestoreSpeed(); + float GetArtefactBleedingRestoreSpeed(); + + void SetArtefactHealthRestoreSpeed(float value); + void SetArtefactRadiationRestoreSpeed(float value); + void SetArtefactSatietyRestoreSpeed(float value); + void SetArtefactPowerRestoreSpeed(float value); + void SetArtefactBleedingRestoreSpeed(float value); +#endif +//-Alundaio doors::door* m_door; diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 84b17104b1f..610061b78a1 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -40,10 +40,12 @@ #include "space_restriction_manager.h" #include "artefact.h" //Alundaio +#ifdef GAME_OBJECT_EXTENDED_EXPORTS #include "holder_custom.h" #include "actor.h" #include "CharacterPhysicsSupport.h" #include "player_hud.h" +#endif //-Alundaio namespace MemorySpace { @@ -1106,7 +1108,8 @@ bool CScriptGameObject::is_weapon_going_to_be_strapped ( CScriptGameObject const return stalker->is_weapon_going_to_be_strapped ( &object->object() ); } -//Alundaio: Taken from Radium +//Alundaio: +#ifdef GAME_OBJECT_EXTENDED_EXPORTS float CScriptGameObject::GetArtefactHealthRestoreSpeed() { CArtefact* artefact = smart_cast(&object()); @@ -1184,7 +1187,7 @@ void CScriptGameObject::SetArtefactBleedingRestoreSpeed(float value) artefact->SetBleedingPower(value); } -//Alundaio + void CScriptGameObject::AttachVehicle(CScriptGameObject* veh) { CActor *actor = smart_cast(&object()); @@ -1277,41 +1280,58 @@ u32 CScriptGameObject::GetState() return 65535; } -void CScriptGameObject::ActivateHudItem() +void CScriptGameObject::SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive) { - CWeapon* Weapon = object().cast_weapon(); - if (Weapon){ - Weapon->ActivateItem(); + IKinematics* k = object().Visual()->dcast_PKinematics(); + + if (!k) return; - } - CInventoryItem* IItem = object().cast_inventory_item(); - if (!IItem) + u16 bone_id = k->LL_BoneID(bone_name); + if (bone_id == BI_NONE) return; - IItem->ActivateItem(); + if (bVisibility == !k->LL_GetBoneVisible(bone_id)) + k->LL_SetBoneVisible(bone_id, bVisibility, bRecursive); return; } -void CScriptGameObject::DeactivateHudItem() +bool CScriptGameObject::IsBoneVisible(LPCSTR bone_name) { - CWeapon* Weapon = object().cast_weapon(); - if (Weapon){ - Weapon->DeactivateItem(); - return; - } + IKinematics* k = object().Visual()->dcast_PKinematics(); - CInventoryItem* IItem = object().cast_inventory_item(); - if (!IItem) - return; + if (!k) + return false; - IItem->DeactivateItem(); + u16 bone_id = k->LL_BoneID(bone_name); + if (bone_id == BI_NONE) + return false; - return; + return k->LL_GetBoneVisible(bone_id)==TRUE?true:false; +} + +float CScriptGameObject::GetLuminocityHemi() +{ + CObject *e = smart_cast(&object()); + if (!e || !e->renderable_ROS()) + { + return 0; + } + return e->renderable_ROS()->get_luminocity_hemi(); } -void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate = false) +float CScriptGameObject::GetLuminocity() +{ + CObject *e = smart_cast(&object()); + if (!e || !e->renderable_ROS()) + { + return 0; + } + return e->renderable_ROS()->get_luminocity(); +} + +void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate) { CPhysicsShellHolder* sh = object().cast_physics_shell_holder(); if (!sh) @@ -1333,4 +1353,5 @@ void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate = false) else ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "force_set_position: object %s has no physics shell!", *object().cName()); } +#endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index 2ee5cdbdb2a..cee3bcc0702 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -366,6 +366,7 @@ void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) } //AVO: directly set entity health instead of going throuhg normal health property which operates on delta +#ifdef GAME_OBJECT_TESTING_EXPORTS void CScriptGameObject::SetHealthEx(float hp) { CEntity *obj = smart_cast(&object()); @@ -378,22 +379,22 @@ void CScriptGameObject::SetHealthEx(float hp) // AVO: functions for testing object class // Credits: KD //#include "car.h" -#include "helicopter.h" +//#include "helicopter.h" #include "actor.h" #include "customoutfit.h" //#include "customzone.h" #include "ai\monsters\basemonster\base_monster.h" //#include "Artifact.h" -#include "medkit.h" -#include "antirad.h" +//#include "medkit.h" +//#include "antirad.h" #include "scope.h" #include "silencer.h" #include "torch.h" #include "GrenadeLauncher.h" #include "searchlight.h" //#include "WeaponAmmo.h" -#include "grenade.h" -#include "BottleItem.h" +//#include "grenade.h" +//#include "BottleItem.h" #include "WeaponMagazinedWGrenade.h" #define TEST_OBJECT_CLASS(A,B)\ @@ -406,9 +407,9 @@ bool A () const\ return true;\ };\ -TEST_OBJECT_CLASS(CScriptGameObject::IsGameObject, CGameObject) +//TEST_OBJECT_CLASS(CScriptGameObject::IsGameObject, CGameObject) //TEST_OBJECT_CLASS(CScriptGameObject::IsCar, CCar) -TEST_OBJECT_CLASS(CScriptGameObject::IsHeli, CHelicopter) +//TEST_OBJECT_CLASS(CScriptGameObject::IsHeli, CHelicopter) //TEST_OBJECT_CLASS(CScriptGameObject::IsHolderCustom, CHolderCustom) TEST_OBJECT_CLASS(CScriptGameObject::IsEntityAlive, CEntityAlive) TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryItem, CInventoryItem) @@ -416,9 +417,9 @@ TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryOwner, CInventoryOwner) TEST_OBJECT_CLASS(CScriptGameObject::IsActor, CActor) TEST_OBJECT_CLASS(CScriptGameObject::IsCustomMonster, CCustomMonster) TEST_OBJECT_CLASS(CScriptGameObject::IsWeapon, CWeapon) -TEST_OBJECT_CLASS(CScriptGameObject::IsMedkit, CMedkit) -TEST_OBJECT_CLASS(CScriptGameObject::IsEatableItem, CEatableItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsAntirad, CAntirad) +//TEST_OBJECT_CLASS(CScriptGameObject::IsMedkit, CMedkit) +//TEST_OBJECT_CLASS(CScriptGameObject::IsEatableItem, CEatableItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsAntirad, CAntirad) TEST_OBJECT_CLASS(CScriptGameObject::IsCustomOutfit, CCustomOutfit) TEST_OBJECT_CLASS(CScriptGameObject::IsScope, CScope) TEST_OBJECT_CLASS(CScriptGameObject::IsSilencer, CSilencer) @@ -428,20 +429,20 @@ TEST_OBJECT_CLASS(CScriptGameObject::IsSpaceRestrictor, CSpaceRestrictor) TEST_OBJECT_CLASS(CScriptGameObject::IsStalker, CAI_Stalker) TEST_OBJECT_CLASS(CScriptGameObject::IsAnomaly, CCustomZone) TEST_OBJECT_CLASS(CScriptGameObject::IsMonster, CBaseMonster) -TEST_OBJECT_CLASS(CScriptGameObject::IsExplosive, CExplosive) -TEST_OBJECT_CLASS(CScriptGameObject::IsScriptZone, CScriptZone) -TEST_OBJECT_CLASS(CScriptGameObject::IsProjector, CProjector) +//TEST_OBJECT_CLASS(CScriptGameObject::IsExplosive, CExplosive) +//TEST_OBJECT_CLASS(CScriptGameObject::IsScriptZone, CScriptZone) +//TEST_OBJECT_CLASS(CScriptGameObject::IsProjector, CProjector) TEST_OBJECT_CLASS(CScriptGameObject::IsTrader, CAI_Trader) TEST_OBJECT_CLASS(CScriptGameObject::IsHudItem, CHudItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsFoodItem, CFoodItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsFoodItem, CFoodItem) TEST_OBJECT_CLASS(CScriptGameObject::IsArtefact, CArtefact) TEST_OBJECT_CLASS(CScriptGameObject::IsAmmo, CWeaponAmmo) -TEST_OBJECT_CLASS(CScriptGameObject::IsMissile, CMissile) -TEST_OBJECT_CLASS(CScriptGameObject::IsPhysicsShellHolder, CPhysicsShellHolder) -TEST_OBJECT_CLASS(CScriptGameObject::IsGrenade, CGrenade) -TEST_OBJECT_CLASS(CScriptGameObject::IsBottleItem, CBottleItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsTorch, CTorch) +//TEST_OBJECT_CLASS(CScriptGameObject::IsMissile, CMissile) +//TEST_OBJECT_CLASS(CScriptGameObject::IsPhysicsShellHolder, CPhysicsShellHolder) +//TEST_OBJECT_CLASS(CScriptGameObject::IsGrenade, CGrenade) +//TEST_OBJECT_CLASS(CScriptGameObject::IsBottleItem, CBottleItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsTorch, CTorch) TEST_OBJECT_CLASS(CScriptGameObject::IsWeaponGL, CWeaponMagazinedWGrenade) TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryBox, CInventoryBox) - +#endif //end AVO \ No newline at end of file diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 65124f2cd75..e107cbc8453 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -49,6 +49,7 @@ #include "physicobject.h" //Alundaio #include "inventory_upgrade_manager.h" +#include "inventory_upgrade_root.h" #include "inventory_item.h" //-Alundaio @@ -1608,6 +1609,7 @@ bool CScriptGameObject::is_door_blocked_by_npc() const } //Alundaio: Methods for exporting the ability to detach/attach addons for magazined weapons +#ifdef GAME_OBJECT_EXTENDED_EXPORTS void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject* item) { CWeaponMagazined* weapon = smart_cast(&object()); @@ -1643,25 +1645,22 @@ void CScriptGameObject::Weapon_AddonDetach(LPCSTR item_section) } } -void CScriptGameObject::AddUpgrade(LPCSTR upgrade) +bool CScriptGameObject::InstallUpgrade(LPCSTR upgrade) { CInventoryItem* item = smart_cast(&object()); if (!item) { - ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member AddUpgrade!"); - return; + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member InstallUpgrade!"); + return false; } if (!pSettings->section_exist(upgrade)) - return; - - item->install_upgrade(upgrade); - //ai().alife().inventory_upgrade_manager().upgrade_install(*item, (upgrade), false); + return false; - return; + return ai().alife().inventory_upgrade_manager().upgrade_install(*item, upgrade, false); } -bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) const +bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) { CInventoryItem* item = smart_cast(&object()); if (!item) @@ -1673,7 +1672,7 @@ bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) const if (!pSettings->section_exist(upgrade)) return false; - return item->verify_upgrade(upgrade); + return item->has_upgrade(upgrade); } void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) @@ -1690,4 +1689,5 @@ void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) functor((*ib).c_str(), object().lua_game_object()); } } +#endif //Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index d221a77bd07..54fca447cc1 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -94,25 +94,35 @@ void CScriptGameObject::script_register(lua_State *L) //AVO: custom callbacks // input +#ifdef INPUT_CALLBACKS value("key_press", int(GameObject::eKeyPress)), value("key_release", int(GameObject::eKeyRelease)), value("key_hold", int(GameObject::eKeyHold)), value("mouse_move", int(GameObject::eMouseMove)), value("mouse_wheel", int(GameObject::eMouseWheel)), - // inventory - value("item_to_belt", int(GameObject::eItemToBelt)), - value("item_to_slot", int(GameObject::eItemToSlot)), - value("item_to_ruck", int(GameObject::eItemToRuck)), +#endif // actor +#ifdef ACTOR_BEFORE_DEATH_CALLBACK value("actor_before_death", int(GameObject::eActorBeforeDeath)), +#endif // vehicle +#ifdef ENABLE_CAR value("on_attach_vehicle", int(GameObject::eAttachVehicle)), value("on_detach_vehicle", int(GameObject::eDetachVehicle)), value("on_use_vehicle", int(GameObject::eUseVehicle)), - // weapon +#endif +#ifdef EXTENDED_WEAPON_CALLBACKS + //weapon value("weapon_jammed", int(GameObject::eOnWeaponJammed)), value("weapon_zoom_in", int(GameObject::eOnWeaponZoomIn)), value("weapon_zoom_out", int(GameObject::eOnWeaponZoomOut)), +#endif +#ifdef EXTENDED_ITEM_CALLBACKS + // inventory + value("item_to_belt", int(GameObject::eItemToBelt)), + value("item_to_slot", int(GameObject::eItemToSlot)), + value("item_to_ruck", int(GameObject::eItemToRuck)), +#endif //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 4d88f8ecb61..d532c0451c6 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -341,32 +341,37 @@ class_ &script_register_game_object2(class_ &script_register_game_object2(class_ &script_register_game_object2(class_ 3.f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } } @@ -616,17 +611,9 @@ void CStalkerActionLookOut::execute() if (!mem_object.m_object) return; - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); object().best_cover(mem_object.m_object_params.m_position); - //-Alundaio if (current_cover(m_object) >= 3.f) { object().movement().set_nearest_accessible_position(); @@ -709,15 +696,7 @@ void CStalkerActionHoldPosition::execute() if (current_cover(m_object) < 3.f) m_storage->set_property(eWorldPropertyLookedOut, false); - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); if (completed()) { if ( @@ -833,15 +812,7 @@ void CStalkerActionDetourEnemy::execute() m_storage->set_property(eWorldPropertyEnemyDetoured, true); } - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } ////////////////////////////////////////////////////////////////////////// @@ -1032,15 +1003,7 @@ void CStalkerActionSuddenAttack::execute() if (visible_now) object().sight().setup(CSightAction(object().memory().enemy().selected(), true)); else { - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) diff --git a/src/xrGame/ui/UIHudStatesWnd.cpp b/src/xrGame/ui/UIHudStatesWnd.cpp index d2079c2a5bf..d9cdae19c86 100644 --- a/src/xrGame/ui/UIHudStatesWnd.cpp +++ b/src/xrGame/ui/UIHudStatesWnd.cpp @@ -327,6 +327,7 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_cur_ammo->Show ( true ); m_ui_weapon_fmj_ammo->Show ( true ); m_ui_weapon_ap_ammo->Show ( true ); + m_ui_weapon_third_ammo->Show(true); //Alundaio: third_ammo m_fire_mode->Show ( true ); m_ui_grenade->Show ( true ); @@ -334,24 +335,33 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_fmj_ammo->SetText ( m_item_info.fmj_ammo.c_str() ); m_ui_weapon_ap_ammo->SetText ( m_item_info.ap_ammo.c_str() ); - //Alundaio: + //Alundaio: Third ammo type and also set text color for each ammo type if (m_ui_weapon_third_ammo) m_ui_weapon_third_ammo->SetText(m_item_info.third_ammo.c_str()); - //-Alundaio m_ui_grenade->SetText ( m_item_info.grenade.c_str() ); + m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + m_ui_weapon_ap_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + m_ui_weapon_third_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + CWeaponMagazinedWGrenade* wpn = smart_cast(item); if(wpn && wpn->m_bGrenadeMode) - { - m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238,155,23,150)); m_ui_grenade->SetTextColor(color_rgba(238,155,23,255)); - } else + m_ui_grenade->SetTextColor(color_rgba(238, 155, 23, 150)); + + CWeaponMagazined* wpnm = smart_cast(item); + if (wpnm) { - m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238,155,23,255)); - m_ui_grenade->SetTextColor(color_rgba(238,155,23,150)); + if (wpnm->m_ammoType == 0) + m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); + else if (wpnm->m_ammoType == 1) + m_ui_weapon_ap_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); + else if (wpnm->m_ammoType == 2) + m_ui_weapon_third_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); } + //-Alundaio } else { @@ -360,6 +370,7 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_cur_ammo->Show ( false ); m_ui_weapon_fmj_ammo->Show ( false ); m_ui_weapon_ap_ammo->Show ( false ); + m_ui_weapon_third_ammo->Show(false); //Alundaio: Third Ammo m_fire_mode->Show ( false ); m_ui_grenade->Show ( false ); } diff --git a/src/xrGame/ui/UIInventoryUpgradeWnd.cpp b/src/xrGame/ui/UIInventoryUpgradeWnd.cpp index c2325e2cd61..01d4f8641e6 100644 --- a/src/xrGame/ui/UIInventoryUpgradeWnd.cpp +++ b/src/xrGame/ui/UIInventoryUpgradeWnd.cpp @@ -35,7 +35,9 @@ #include "../WeaponRPG7.h" #include "../CustomOutfit.h" #include "../ActorHelmet.h" +#include "script_game_object.h" //Alundaio +using namespace luabind; //Alundaio // ----- const LPCSTR g_inventory_upgrade_xml = "inventory_upgrade.xml"; @@ -338,6 +340,15 @@ void CUIInventoryUpgradeWnd::OnMesBoxYes() CUIActorMenu* parent_wnd = smart_cast( m_pParentWnd ); if ( parent_wnd ) { + //Alundaio: tell script that item has been upgraded + luabind::functor funct; + ai().script_engine().functor("inventory_upgrades.effect_upgrade_item", funct); + if (funct) + { + CGameObject* GO = m_inv_item->cast_game_object(); + funct(GO->lua_game_object(),m_cur_upgrade_id); + } + //-Alundaio parent_wnd->UpdateActor(); parent_wnd->SeparateUpgradeItem(); } diff --git a/src/xrServerEntities/inventory_space.h b/src/xrServerEntities/inventory_space.h index 26f178315fd..2b426ca6e24 100644 --- a/src/xrServerEntities/inventory_space.h +++ b/src/xrServerEntities/inventory_space.h @@ -18,13 +18,17 @@ enum{ ARTEFACT_SLOT, // artefact HELMET_SLOT, //Alundaio: More slots for custom uses +#ifdef MORE_INVENTORY_SLOTS CUSTOM_SLOT_1, CUSTOM_SLOT_2, CUSTOM_SLOT_3, CUSTOM_SLOT_4, CUSTOM_SLOT_5, - //-Alundaio LAST_SLOT = CUSTOM_SLOT_5 +#else + LAST_SLOT = HELMET_SLOT +#endif + //-Alundaio }; #define RUCK_HEIGHT 280 diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index e57fbd7fbdb..210cf0f9a67 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -102,6 +102,7 @@ Fvector CScriptIniFile::r_fvector3(LPCSTR S, LPCSTR L) } //AVO: additional methods to allow writing to ini files +#ifdef INI_FILE_EXTENDED_EXPORTS void CScriptIniFile::w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment) { THROW3(inherited::section_exist(S), "Cannot find section", S); @@ -240,4 +241,5 @@ void CScriptIniFile::set_override_names(BOOL b) u32 CScriptIniFile::section_count() { return(inherited::section_count()); -} \ No newline at end of file +} +#endif \ No newline at end of file diff --git a/src/xrServerEntities/script_ini_file.h b/src/xrServerEntities/script_ini_file.h index d9e747a70fa..074f1914280 100644 --- a/src/xrServerEntities/script_ini_file.h +++ b/src/xrServerEntities/script_ini_file.h @@ -33,6 +33,7 @@ class CScriptIniFile : public CInifile { float r_float (LPCSTR S, LPCSTR L); Fvector r_fvector3 (LPCSTR S, LPCSTR L); //AVO: additional methods to allow writing to ini files +#ifdef INI_FILE_EXTENDED_EXPORTS void w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment /* = 0 */); void w_color(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment /* = 0 */); void w_fcolor(LPCSTR S, LPCSTR L, const Fcolor& V, LPCSTR comment /* = 0 */); @@ -54,6 +55,7 @@ class CScriptIniFile : public CInifile { void remove_line(LPCSTR S, LPCSTR L); void set_override_names(BOOL b); u32 section_count(); +#endif DECLARE_SCRIPT_REGISTER_FUNCTION }; diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index c432e5b97e3..32433bb238c 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -17,6 +17,7 @@ CScriptIniFile *get_system_ini() } //Alundaio: The extended ability to reload system ini after application launch +#ifdef INI_FILE_EXTENDED_EXPORTS CScriptIniFile *reload_system_ini() { pSettings->Destroy(const_cast(pSettings)); @@ -25,6 +26,7 @@ CScriptIniFile *reload_system_ini() pSettings = xr_new(fname); return ((CScriptIniFile*)pSettings); } +#endif //Alundaio: END #ifdef XRGAME_EXPORTS @@ -78,6 +80,7 @@ void CScriptIniFile::script_register(lua_State *L) class_("ini_file") .def(constructor()) //Alundaio: Extend script ini file +#ifdef INI_FILE_EXTENDED_EXPORTS .def(constructor()) .def("w_bool",&CScriptIniFile::w_bool) .def("w_color", &CScriptIniFile::w_color) @@ -100,6 +103,7 @@ void CScriptIniFile::script_register(lua_State *L) .def("remove_line", &CScriptIniFile::remove_line) .def("set_override_names", &CScriptIniFile::set_override_names) .def("section_count", &CScriptIniFile::section_count) +#endif //Alundaio: END .def("section_exist", &CScriptIniFile::section_exist ) .def("line_exist", &CScriptIniFile::line_exist ) @@ -117,7 +121,9 @@ void CScriptIniFile::script_register(lua_State *L) def("system_ini", &get_system_ini), //Alundaio: extend +#ifdef INI_FILE_EXTENDED_EXPORTS def("reload_system_ini", &reload_system_ini), +#endif //Alundaio:: END #ifdef XRGAME_EXPORTS def("game_ini", &get_game_ini), diff --git a/src/xrServerEntities/script_net_packet_script.cpp b/src/xrServerEntities/script_net_packet_script.cpp index 2c0a2ba5d57..00204210b49 100644 --- a/src/xrServerEntities/script_net_packet_script.cpp +++ b/src/xrServerEntities/script_net_packet_script.cpp @@ -34,10 +34,9 @@ bool r_bool(NET_Packet *self) } //Alundaio: Fix issue with using r_begin -u32 r_begin(NET_Packet *self) +u32 r_begin(NET_Packet *self,u16 type) { - u16 dummy_u16; - return (self->r_begin(dummy_u16)); + return (self->r_begin(type)); } ClientID r_clientID(NET_Packet *self) From 0bd6b0f65601c17fa62e0cee0bb21dd0d0f58744 Mon Sep 17 00:00:00 2001 From: Axel DominatoR Date: Thu, 13 Aug 2015 18:55:32 +0100 Subject: [PATCH 103/166] Added functionality for multiple item usage You can now have items with multiple uses, with proper display using progress bars and all of the bells and whistles. --- src/xrGame/ActorHelmet.cpp | 7 +++++ src/xrGame/CustomOutfit.cpp | 8 ++++++ src/xrGame/ExplosiveItem.cpp | 10 +++++-- src/xrGame/Inventory.cpp | 7 ++++- src/xrGame/Weapon.cpp | 8 ++++++ src/xrGame/eatable_item.cpp | 54 ++++++++++++++++++++++++++++++----- src/xrGame/eatable_item.h | 21 ++++++++++---- src/xrGame/inventory_item.cpp | 7 ++++- src/xrGame/inventory_item.h | 5 ++++ src/xrGame/ui/UICellItem.cpp | 44 ++++++++++++++++++++++++---- 10 files changed, 150 insertions(+), 21 deletions(-) diff --git a/src/xrGame/ActorHelmet.cpp b/src/xrGame/ActorHelmet.cpp index 65e57992fa4..22904e5f117 100644 --- a/src/xrGame/ActorHelmet.cpp +++ b/src/xrGame/ActorHelmet.cpp @@ -1,3 +1,8 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #include "stdafx.h" #include "ActorHelmet.h" #include "Actor.h" @@ -55,6 +60,8 @@ void CHelmet::Load(LPCSTR section) m_BonesProtectionSect = READ_IF_EXISTS(pSettings, r_string, section, "bones_koeff_protection", "" ); m_fShowNearestEnemiesDistance = READ_IF_EXISTS(pSettings, r_float, section, "nearest_enemies_show_dist", 0.0f ); + // Added by Axel, to enable optional condition use on any item + m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); } void CHelmet::ReloadBonesProtection() diff --git a/src/xrGame/CustomOutfit.cpp b/src/xrGame/CustomOutfit.cpp index 0d03c019222..52fa33dc4bd 100644 --- a/src/xrGame/CustomOutfit.cpp +++ b/src/xrGame/CustomOutfit.cpp @@ -1,3 +1,8 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #include "stdafx.h" #include "customoutfit.h" @@ -109,6 +114,9 @@ void CCustomOutfit::Load(LPCSTR section) m_BonesProtectionSect = READ_IF_EXISTS(pSettings, r_string, section, "bones_koeff_protection", "" ); bIsHelmetAvaliable = !!READ_IF_EXISTS(pSettings, r_bool, section, "helmet_avaliable", true); + + // Added by Axel, to enable optional condition use on any item + m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); } void CCustomOutfit::ReloadBonesProtection() diff --git a/src/xrGame/ExplosiveItem.cpp b/src/xrGame/ExplosiveItem.cpp index dec9b8cc5e9..69c0cb00218 100644 --- a/src/xrGame/ExplosiveItem.cpp +++ b/src/xrGame/ExplosiveItem.cpp @@ -2,7 +2,10 @@ // ExplosiveItem.cpp: класс для вещи которая взрывается под // действием различных хитов (канистры, // балоны с газом и т.д.) -////////////////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// #include "stdafx.h" @@ -20,7 +23,10 @@ void CExplosiveItem::Load(LPCSTR section) { inherited::Load (section); CExplosive::Load (section); - m_flags.set (FUsingCondition, TRUE); + + // Added by Axel, to enable optional condition use on any item + m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); + CDelayedActionFuse::Initialize (pSettings->r_float(section,"time_to_explode"),pSettings->r_float(section,"condition_to_explode")); VERIFY(pSettings->line_exist (section,"set_timer_particles")); } diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 6344f9d61b3..8998a2e86cc 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1,3 +1,8 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #include "pch_script.h" #include "inventory.h" #include "actor.h" @@ -1060,7 +1065,7 @@ bool CInventory::Eat(PIItem pIItem) if(IsGameTypeSingle() && Actor()->m_inventory == this) Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); - if(pItemToEat->Empty()) + if (pItemToEat->CanDelete()) { pIItem->SetDropManual(TRUE); return false; diff --git a/src/xrGame/Weapon.cpp b/src/xrGame/Weapon.cpp index c2046e26f6d..4bf833b5665 100644 --- a/src/xrGame/Weapon.cpp +++ b/src/xrGame/Weapon.cpp @@ -1,3 +1,8 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #include "stdafx.h" #include "Weapon.h" #include "ParticlesObject.h" @@ -477,6 +482,9 @@ void CWeapon::Load(LPCSTR section) m_zoom_params.m_bUseDynamicZoom = READ_IF_EXISTS(pSettings, r_bool, section, "scope_dynamic_zoom", FALSE); m_zoom_params.m_sUseZoomPostprocess = 0; m_zoom_params.m_sUseBinocularVision = 0; + + // Added by Axel, to enable optional condition use on any item + m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); } void CWeapon::LoadFireParams(LPCSTR section) diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index c8ac213fcaa..45b50d9cb65 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -5,6 +5,9 @@ // Author : Yuri Dobronravin // Description : Eatable item //////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// #include "stdafx.h" #include "eatable_item.h" @@ -14,11 +17,15 @@ #include "entity_alive.h" #include "EntityCondition.h" #include "InventoryOwner.h" +#include "UIGameCustom.h" CEatableItem::CEatableItem() { - m_iPortionsNum = -1; m_physic_item = 0; + + m_iMaxUses = 1; + m_iRemainingUses = 1; + m_bRemoveAfterUse = true; } CEatableItem::~CEatableItem() @@ -35,14 +42,39 @@ void CEatableItem::Load(LPCSTR section) { inherited::Load(section); - m_iPortionsNum = pSettings->r_s32 (section, "eat_portions_num"); - VERIFY (m_iPortionsNum<10000); + m_iRemainingUses = m_iMaxUses = READ_IF_EXISTS( pSettings, r_u16, section, "max_uses", 1 ); + m_bRemoveAfterUse = READ_IF_EXISTS( pSettings, r_bool, section, "remove_after_use", TRUE ); + + if ( IsUsingCondition()) + { + SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); + } +} + + +void CEatableItem::load( IReader &packet ) +{ + inherited::load( packet ); + + m_iRemainingUses = packet.r_u16(); +} + +void CEatableItem::save( NET_Packet &packet ) +{ + inherited::save( packet ); + + packet.w_u16( m_iRemainingUses ); } BOOL CEatableItem::net_Spawn (CSE_Abstract* DC) { if (!inherited::net_Spawn(DC)) return FALSE; + if ( IsUsingCondition()) + { + SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); + } + return TRUE; }; @@ -51,7 +83,7 @@ bool CEatableItem::Useful() const if(!inherited::Useful()) return false; //проверить не все ли еще съедено - if(m_iPortionsNum == 0) return false; + if ( m_iRemainingUses == 0 ) return false; return true; } @@ -106,10 +138,18 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) Level().Send (tmp_packet); } - if(m_iPortionsNum > 0) - --m_iPortionsNum; + if ( m_iRemainingUses > 0 ) + { + --m_iRemainingUses; + } else - m_iPortionsNum = 0; + { + m_iRemainingUses = 0; + } + + SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); + CurrentGameUI()->HideActorMenu(); + CurrentGameUI()->ShowActorMenu(); return true; } \ No newline at end of file diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 7c1a2ef0bc9..7f53f13f14c 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -1,3 +1,8 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #pragma once #include "inventory_item.h" @@ -12,6 +17,10 @@ class CEatableItem : public CInventoryItem { protected: CPhysicItem *m_physic_item; + u16 m_iMaxUses; + u16 m_iRemainingUses; + bool m_bRemoveAfterUse; + public: CEatableItem (); virtual ~CEatableItem (); @@ -19,6 +28,8 @@ class CEatableItem : public CInventoryItem { virtual CEatableItem *cast_eatable_item () {return this;} virtual void Load (LPCSTR section); + virtual void load( IReader &packet ); + virtual void save( NET_Packet &packet ); virtual bool Useful () const; virtual BOOL net_Spawn (CSE_Abstract* DC); @@ -26,9 +37,9 @@ class CEatableItem : public CInventoryItem { virtual void OnH_B_Independent (bool just_before_destroy); virtual void OnH_A_Independent (); virtual bool UseBy (CEntityAlive* npc); - virtual bool Empty () {return PortionsNum()==0;}; - int PortionsNum () const {return m_iPortionsNum;} -protected: - int m_iPortionsNum; -}; + bool Empty() const { return m_iRemainingUses == 0; }; + bool CanDelete() const { return ( Empty() && ( m_bRemoveAfterUse == true )); }; + virtual u16 GetMaxUses() const { return m_iMaxUses; }; + virtual u16 GetRemainingUses() const { return m_iRemainingUses; }; +}; \ No newline at end of file diff --git a/src/xrGame/inventory_item.cpp b/src/xrGame/inventory_item.cpp index de1cb55e900..3a245309deb 100644 --- a/src/xrGame/inventory_item.cpp +++ b/src/xrGame/inventory_item.cpp @@ -5,6 +5,9 @@ // Author : Victor Reutsky, Yuri Dobronravin // Description : Inventory item //////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// //#include "stdafx.h" #include "pch_script.h" @@ -114,6 +117,8 @@ void CInventoryItem::Load(LPCSTR section) m_flags.set(FCanTrade, READ_IF_EXISTS(pSettings, r_bool, section, "can_trade", TRUE)); m_flags.set(FIsQuestItem, READ_IF_EXISTS(pSettings, r_bool, section, "quest_item",FALSE)); + // Added by Axel, to enable optional condition use on any item + m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", FALSE )); if ( BaseSlot() != NO_ACTIVE_SLOT || Belt()) { @@ -134,7 +139,7 @@ void CInventoryItem::ChangeCondition(float fDeltaCondition) void CInventoryItem::Hit (SHit* pHDS) { - if( !m_flags.test(FUsingCondition) ) return; + if ( IsUsingCondition() == false ) return; float hit_power = pHDS->damage(); hit_power *= GetHitImmunity(pHDS->hit_type); diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index 946b844c811..ead58892f25 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -5,6 +5,9 @@ // Author : Victor Reutsky, Yuri Dobronravin // Description : Inventory item //////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// #pragma once @@ -96,6 +99,8 @@ class CInventoryItem : virtual void OnEvent (NET_Packet& P, u16 type); virtual bool Useful () const; // !!! Переопределить. (см. в Inventory.cpp) + virtual bool IsUsingCondition() const { return ( m_flags.test( FUsingCondition ) > 0 ); }; + virtual bool Attach (PIItem pIItem, bool b_send_event) {return false;} virtual bool Detach (PIItem pIItem) {return false;} //при детаче спаунится новая вещь при заданно названии секции diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index 32d27032c11..c5e1f3213c1 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -1,7 +1,13 @@ +//////////////////////////////////////////////////////////////////////////// +// Modified by Axel DominatoR +// Last updated: 13/08/2015 +//////////////////////////////////////////////////////////////////////////// + #include "stdafx.h" #include "UICellItem.h" #include "uicursor.h" #include "../inventory_item.h" +#include "../eatable_item.h" #include "UIDragDropListEx.h" #include "../xr_level_controller.h" #include "../../xrEngine/xr_input.h" @@ -205,11 +211,39 @@ void CUICellItem::UpdateConditionProgressBar() if(m_pParentList && m_pParentList->GetConditionProgBarVisibility()) { PIItem itm = (PIItem)m_pData; - CWeapon* pWeapon = smart_cast(itm); - CCustomOutfit* pOutfit = smart_cast(itm); - CHelmet* pHelmet = smart_cast(itm); - if(pWeapon || pOutfit || pHelmet) + if ( itm->IsUsingCondition()) { + float cond = itm->GetCondition(); + + CEatableItem* eitm = smart_cast( itm ); + if ( eitm ) + { + Log("Name: ", eitm->m_name.c_str()); + Log("Condition: ", cond ); + u16 max_uses = eitm->GetMaxUses(); + Log("Max uses: ", max_uses ); + if ( max_uses > 1 ) + { + u16 remaining_uses = eitm->GetRemainingUses(); + Log("Remaining uses: ", remaining_uses ); + if ( remaining_uses < 1 ) + { + cond = 0.0f; + } + else if ( max_uses > 8 ) + { + cond = ( float )remaining_uses / ( float )max_uses; + } + else + { + cond = (( float )remaining_uses * 0.125f ) - 0.0625f; + m_pConditionState->ShowBackground( false ); + } + + m_pConditionState->m_bUseColor = false; + } + } + Ivector2 itm_grid_size = GetGridSize(); if(m_pParentList->GetVerticalPlacement()) std::swap(itm_grid_size.x, itm_grid_size.y); @@ -220,7 +254,7 @@ void CUICellItem::UpdateConditionProgressBar() float y = itm_grid_size.y * (cell_size.y + cell_space.y) - m_pConditionState->GetHeight() - 2.f; m_pConditionState->SetWndPos(Fvector2().set(x,y)); - m_pConditionState->SetProgressPos(iCeil(itm->GetCondition()*13.0f)/13.0f); + m_pConditionState->SetProgressPos( iCeil( cond * 13.0f ) / 13.0f ); m_pConditionState->Show(true); return; } From d02fee1641aa43fc0944c536b3d8672c1bbdad62 Mon Sep 17 00:00:00 2001 From: Axel DominatoR Date: Thu, 13 Aug 2015 19:35:54 +0100 Subject: [PATCH 104/166] Disable some logging Small fix to remove some unneeded logging functions --- src/xrGame/ui/UICellItem.cpp | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index c5e1f3213c1..d2410634715 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -218,14 +218,10 @@ void CUICellItem::UpdateConditionProgressBar() CEatableItem* eitm = smart_cast( itm ); if ( eitm ) { - Log("Name: ", eitm->m_name.c_str()); - Log("Condition: ", cond ); u16 max_uses = eitm->GetMaxUses(); - Log("Max uses: ", max_uses ); if ( max_uses > 1 ) { u16 remaining_uses = eitm->GetRemainingUses(); - Log("Remaining uses: ", remaining_uses ); if ( remaining_uses < 1 ) { cond = 0.0f; From c26108693f6bf784ef5ea0b67d0cca571f484eab Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 7 Jul 2015 16:33:46 -0400 Subject: [PATCH 105/166] * restructured many features behind defines (see: build_config_defines.h) + added a layered sound system (see: build_config_defines.h) + added get_hud():UpdateActorMenu() which refreshes the inventory screen + added new spawn_loadout features to character descriptions spawn item system (see: alife_object.cpp) ~ made corrections to how ammo_type is drawn on UI (requires static_third_ammo in maingame[_16].xml) + engine call to _G.CALifeUpdateManager__on_before_change_level (required!) + engine call to inventory_upgrades.effect_upgrade_item (required!) - removed some unused testing game_object exports (is_explosive, is_script_zone, is_projector, is_missle, is_grenade, is_bottle, is_torch) + added game_object:set_bone_visible(string bone_name,bool visibility,bool recursive) + added game_object:bone_visible() bool + added game_object:get_luminocity() and game_object:get_luminocity_hemi() - removed game_object:is_actor_indoors() and is_npc_indoors replaced by above + added level.get_active_cam() and level.set_active_cam(number) = fixed game_object:has_upgrade(string) + added game_object:install_upgrade(string) + m_evaluator_name exposed outside DEBUG for better script logging + added FS():rescan_path(string) which toggles the flag to rescan the path when the game reloads which allows you to add new files and see the changes in-game without restarting application --- sdk/include/OpenAutomate/OpenAutomate.h | 614 + .../OpenAutomate/OpenAutomate_Internal.h | 418 + sdk/include/nvapi/NvApiDriverSettings.c | 906 ++ sdk/include/nvapi/NvApiDriverSettings.h | 1089 ++ sdk/include/nvapi/nvHLSLExtns.h | 436 + sdk/include/nvapi/nvHLSLExtnsInternal.h | 506 + sdk/include/nvapi/nvShaderExtnEnums.h | 72 + sdk/include/nvapi/nvapi.h | 11032 ++++++++++++++++ sdk/include/nvapi/nvapi_lite_common.h | 505 + sdk/include/nvapi/nvapi_lite_d3dext.h | 188 + sdk/include/nvapi/nvapi_lite_salend.h | 816 ++ sdk/include/nvapi/nvapi_lite_salstart.h | 821 ++ sdk/include/nvapi/nvapi_lite_sli.h | 218 + sdk/include/nvapi/nvapi_lite_stereo.h | 600 + sdk/include/nvapi/nvapi_lite_surround.h | 105 + src/Common.props | 5 + src/build_config_defines.h | 92 +- src/xrEngine/stalker_cs.ico | Bin 56390 -> 190921 bytes src/xrGame/Actor.cpp | 14 + src/xrGame/Actor.h | 13 +- src/xrGame/ActorAnimation.cpp | 4 + src/xrGame/ActorVehicle.cpp | 7 +- src/xrGame/Actor_Feel.cpp | 3 + src/xrGame/Car.cpp | 2 + src/xrGame/Car.h | 4 + src/xrGame/CharacterPhysicsSupport.cpp | 2 +- src/xrGame/CustomZone.cpp | 2 +- src/xrGame/Entity.cpp | 2 + src/xrGame/GameObject.cpp | 109 +- src/xrGame/HudItem.cpp | 7 + src/xrGame/HudItem.h | 1 + src/xrGame/HudSound.cpp | 134 +- src/xrGame/HudSound.h | 37 +- src/xrGame/Inventory.cpp | 6 +- src/xrGame/InventoryOwner.cpp | 8 +- src/xrGame/Level.cpp | 25 +- src/xrGame/Level.h | 4 + src/xrGame/Level_input.cpp | 22 +- src/xrGame/ShootingObject.cpp | 2 +- src/xrGame/UIDialogHolder.cpp | 4 +- src/xrGame/UIGameCustom.cpp | 8 + src/xrGame/UIGameCustom.h | 1 + src/xrGame/UIGameCustom_script.cpp | 3 + src/xrGame/Weapon.cpp | 8 + src/xrGame/WeaponMagazined.cpp | 85 +- src/xrGame/WeaponMagazined.h | 6 + src/xrGame/WeaponMagazinedWGrenade.cpp | 23 +- src/xrGame/WeaponPistol.cpp | 20 +- src/xrGame/WeaponRevolver.cpp | 20 +- src/xrGame/action_base.h | 1 + src/xrGame/action_base_inline.h | 1 + src/xrGame/action_planner_inline.h | 41 +- src/xrGame/alife_object.cpp | 176 +- src/xrGame/alife_simulator_script.cpp | 12 +- src/xrGame/alife_storage_manager.cpp | 28 +- src/xrGame/alife_trader_abstract.cpp | 19 +- src/xrGame/alife_update_manager.cpp | 11 +- src/xrGame/fs_registrator_script.cpp | 10 + src/xrGame/game_object_space.h | 24 +- src/xrGame/inventory_item.h | 2 + src/xrGame/level_script.cpp | 25 +- src/xrGame/property_evaluator.h | 7 +- src/xrGame/property_evaluator_const_inline.h | 5 +- src/xrGame/property_evaluator_inline.h | 5 +- src/xrGame/property_evaluator_member_inline.h | 5 +- src/xrGame/script_game_object.cpp | 29 - src/xrGame/script_game_object.h | 122 +- src/xrGame/script_game_object2.cpp | 9 +- src/xrGame/script_game_object3.cpp | 65 +- src/xrGame/script_game_object4.cpp | 41 +- .../script_game_object_inventory_owner.cpp | 20 +- src/xrGame/script_game_object_script.cpp | 22 +- src/xrGame/script_game_object_script3.cpp | 49 +- .../script_property_evaluator_wrapper.cpp | 3 +- src/xrGame/stalker_animation_torso.cpp | 6 +- src/xrGame/stalker_combat_actions.cpp | 51 +- src/xrGame/ui/UIHudStatesWnd.cpp | 25 +- src/xrGame/ui/UIInventoryUpgradeWnd.cpp | 11 + src/xrServerEntities/inventory_space.h | 6 +- src/xrServerEntities/script_ini_file.cpp | 4 +- src/xrServerEntities/script_ini_file.h | 2 + .../script_ini_file_script.cpp | 6 + .../script_net_packet_script.cpp | 5 +- 83 files changed, 19333 insertions(+), 524 deletions(-) create mode 100644 sdk/include/OpenAutomate/OpenAutomate.h create mode 100644 sdk/include/OpenAutomate/OpenAutomate_Internal.h create mode 100644 sdk/include/nvapi/NvApiDriverSettings.c create mode 100644 sdk/include/nvapi/NvApiDriverSettings.h create mode 100644 sdk/include/nvapi/nvHLSLExtns.h create mode 100644 sdk/include/nvapi/nvHLSLExtnsInternal.h create mode 100644 sdk/include/nvapi/nvShaderExtnEnums.h create mode 100644 sdk/include/nvapi/nvapi.h create mode 100644 sdk/include/nvapi/nvapi_lite_common.h create mode 100644 sdk/include/nvapi/nvapi_lite_d3dext.h create mode 100644 sdk/include/nvapi/nvapi_lite_salend.h create mode 100644 sdk/include/nvapi/nvapi_lite_salstart.h create mode 100644 sdk/include/nvapi/nvapi_lite_sli.h create mode 100644 sdk/include/nvapi/nvapi_lite_stereo.h create mode 100644 sdk/include/nvapi/nvapi_lite_surround.h diff --git a/sdk/include/OpenAutomate/OpenAutomate.h b/sdk/include/OpenAutomate/OpenAutomate.h new file mode 100644 index 00000000000..4c2a70202cc --- /dev/null +++ b/sdk/include/OpenAutomate/OpenAutomate.h @@ -0,0 +1,614 @@ +/******************************************************************************* + * NVIDIA Corporation + * Software License Agreement - OpenAutomate SDK + * + * IMPORTANT - READ BEFORE COPYING, INSTALLING OR USING + * Do not use or load the OpenAutomate SDK and any associated materials + * provided by NVIDIA on NVIDIA’s website (collectively, the "Software") + * until You have carefully read the following terms and conditions. By + * loading or using the Software, You agree to fully comply with the terms + * and conditions of this Software License Agreement ("Agreement") by and + * between NVIDIA Corporation, a Delaware corporation with its principal + * place of business at 2701 San Tomas Expressway, Santa Clara, California + * 95050 U.S.A. ("NVIDIA"), and You. If You do not wish to so agree, do not + * install or use the Software. + * + * For the purposes of this Agreement: + * + * "Licensee," "You" and/or "Your" shall mean, collectively and + * individually, Original Equipment Manufacturers, Independent Hardware + * Vendors, Independent Software Vendors, and End-Users of the Software + * pursuant to the terms and conditions of this Agreement. + * + * "Derivative Works" shall mean derivatives of the Software created by You + * or a third party on Your behalf, which term shall include: (a) for + * copyrightable or copyrighted material, any translation, abridgement, + * revision or other form in which an existing work may be recast, + * transformed or adapted; (b) for work protected by topography or mask + * right, any translation, abridgement, revision or other form in which an + * existing work may be recast, transformed or adapted; (c) for patentable + * or patented material, any Improvement; and (d) for material protected by + * trade secret, any new material derived from or employing such existing + * trade secret. + * + * "Excluded License" is any license that requires as a condition of use, + * modification and/or distribution of software subject to the Excluded + * License, that such software or other software distributed and/or + * combined with such software be (i) disclosed or distributed in source + * code form, (ii) licensed for the purpose of making derivative works, or + * (iii) redistributable at no charge. + * + * SECTION 1 - GRANT OF LICENSE. + * NVIDIA agrees to provide the Software and any associated materials + * pursuant to the terms and conditions of this Agreement. Subject to the + * terms of this Agreement, NVIDIA grants to You a nonexclusive, + * transferable, worldwide, revocable, limited, royalty-free, fully paid-up + * license under NVIDIA’s copyrights to + * + * (a) install, deploy, use, have used execute, reproduce, display, + * perform, run, modify the source code of the Software, or to prepare and + * have prepared Derivative Works thereof the Software for Your own + * internal development, testing and maintenance purposes to incorporate + * the Software or Derivative Works thereof, in part or whole, into Your + * software applications; + * + * (b) to transfer, distribute and sublicense the Software (in its + * unmodified form as delivered to You by NVIDIA pursuant to this + * Agreement) in any medium or technology for Your sublicensees to + * incorporate the Software or Derivative Works thereof, in part or whole, + * into their respective software applications; and + * + * (c) to transfer, distribute and sublicense Derivative Works (in object + * code only) of the Software (i)_as incorporated in Your application + * software in any medium or technology; and (ii) certified as OpenAutomate + * Compatible Software. + * + * You may exercise your license rights pursuant to Subsection 1(b) and (c) + * above pursuant to the terms and conditions of any form of end-user + * software license agreement of Your choice, including but not limited to + * an Excluded License. + * + * In the event NVIDIA certifies Your application software, incorporating + * the Derivative Works (in object code only) of the Software, as + * OpenAutomate compatible ("OpenAutomate Compatible Software"), NVIDIA + * grants You a nonexclusive, worldwide, revocable, paid-up license to use + * the name and trademark to "OpenAutomate Compatible" solely for the + * purposes of identifying and/or marketing Your application software as + * OpenAutomate Compatible Software; provided that Licensee fully complies + * with the following: + * + * (x) Licensee agrees that it is strictly prohibited from using the name + * and trademark of "OpenAutomate Compatible" if Your application software + * is not OpenAutomate Compatible Software; + * + * (y) if NVIDIA objects to Your improper use of the "OpenAutomate + * Compatible" name and trademark, You will take all reasonable steps + * necessary to resolve NVIDIA’s objections. NVIDIA may reasonably monitor + * the quality of Your application software bearing the "OpenAutomate + * Compatible" name or trademark pursuant to this Agreement; and + * + * (z) any goodwill attached to NVIDIA’s trademarks, service marks, or + * trade names belong to NVIDIA and this Agreement does not grant You any + * right to use them. + * + * If You are not the final manufacturer or vendor of a computer system or + * software program incorporating the Software, or if Your Contractors (as + * defined below), affiliates or subsidiaries need to exercise any, some or + * all of the license grant described above herein to the Software on Your + * behalf, then You may transfer a copy of the Software, (and related + * end-user documentation) to such recipient for use in accordance with the + * terms of this Agreement, provided such recipient agrees to be fully + * bound by the terms hereof. Except as expressly permitted in this + * Agreement, Unless otherwise authorized in the Agreement, You shall not + * otherwise assign, sublicense, lease, or in any other way transfer or + * disclose Software to any third party. Unless otherwise authorized in the + * Agreement, You shall not reverse- compile, disassemble, + * reverse-engineer, or in any manner attempt to derive the source code of + * the Software from the object code portions of the Software. + * + * Except as expressly stated in this Agreement, no license or right is + * granted to You directly or by implication, inducement, estoppel or + * otherwise. NVIDIA shall have the right to inspect or have an independent + * auditor inspect Your relevant records to verify Your compliance with the + * terms and conditions of this Agreement. + * + * SECTION 2 - CONFIDENTIALITY. + * If applicable, any exchange of Confidential Information (as defined in + * the NDA) shall be made pursuant to the terms and conditions of a + * separately signed Non-Disclosure Agreement ("NDA") by and between NVIDIA + * and You. For the sake of clarity, You agree that the Software is + * Confidential Information of NVIDIA. + * + * If You wish to have a third party consultant or subcontractor + * ("Contractor") perform work on Your behalf which involves access to or + * use of Software, You shall obtain a written confidentiality agreement + * from the Contractor which contains terms and obligations with respect to + * access to or use of Software no less restrictive than those set forth in + * this Agreement and excluding any distribution or sublicense rights, and + * use for any other purpose than permitted in this Agreement. Otherwise, + * You shall not disclose the terms or existence of this Agreement or use + * NVIDIA's name in any publications, advertisements, or other + * announcements without NVIDIA's prior written consent. Unless otherwise + * provided in this Agreement, You do not have any rights to use any NVIDIA + * trademarks or logos. + * + * SECTION 3 - OWNERSHIP OF SOFTWARE AND INTELLECTUAL PROPERTY RIGHTS. + * All rights, title and interest to all copies of the Software remain with + * NVIDIA, subsidiaries, licensors, or its suppliers. The Software is + * copyrighted and protected by the laws of the United States and other + * countries, and international treaty provisions. You may not remove any + * copyright notices from the Software. NVIDIA may make changes to the + * Software, or to items referenced therein, at any time and without + * notice, but is not obligated to support or update the Software. Except + * as otherwise expressly provided, NVIDIA grants no express or implied + * right under any NVIDIA patents, copyrights, trademarks, or other + * intellectual property rights. + * + * All rights, title and interest in the Derivative Works of the Software + * remain with You subject to the underlying license from NVIDIA to the + * Software. In Your sole discretion, You may grant NVIDIA, upon NVIDIA’s + * request for such a license described herein, an irrevocable, perpetual, + * nonexclusive, worldwide, royalty-free paid-up license to make, have + * made, use, have used, sell, license, distribute, sublicense or otherwise + * transfer Derivative Works created by You that add functionality or + * improvement to the Software. + * + * You has no obligation to give NVIDIA any suggestions, comments or other + * feedback ("Feedback") relating to the Software. However, NVIDIA may use + * and include any Feedback that You voluntarily provide to improve the + * Software or other related NVIDIA technologies. Accordingly, if You + * provide Feedback, You agree NVIDIA and its licensees may freely use, + * reproduce, license, distribute, and otherwise commercialize the Feedback + * in the Software or other related technologies without the payment of any + * royalties or fees. + * + * You may transfer the Software only if the recipient agrees to be fully + * bound by these terms and conditions of this Agreement. + * + * SECTION 4 - NO WARRANTIES. + * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT ANY EXPRESS OR IMPLIED WARRANTY + * OF ANY KIND, INCLUDING WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, + * OR FITNESS FOR A PARTICULAR PURPOSE. NVIDIA does not warrant or assume + * responsibility for the accuracy or completeness of any information, + * text, graphics, links or other items contained within the Software. + * NVIDIA does not represent that errors or other defects will be + * identified or corrected. + * + * SECTION 5 - LIMITATION OF LIABILITY. + * EXCEPT WITH RESPECT TO THE MISUSE OF THE OTHER PARTY’S INTELLECTUAL + * PROPERTY OR DISCLOSURE OF THE OTHER PARTY’S CONFIDENTIAL INFORMATION IN + * BREACH OF THIS AGREEMENT, IN NO EVENT SHALL NVIDIA, SUBSIDIARIES, + * LICENSORS, OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER + * (INCLUDING, WITHOUT LIMITATION, INDIRECT, LOST PROFITS, CONSEQUENTIAL, + * BUSINESS INTERRUPTION OR LOST INFORMATION) ARISING OUT OF THE USE OF OR + * INABILITY TO USE THE SOFTWARE, EVEN IF NVIDIA HAS BEEN ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGES. SOME JURISDICTIONS PROHIBIT EXCLUSION OR + * LIMITATION OF LIABILITY FOR IMPLIED WARRANTIES OR CONSEQUENTIAL OR + * INCIDENTAL DAMAGES, SO THE ABOVE LIMITATION MAY NOT APPLY TO YOU. YOU + * MAY ALSO HAVE OTHER LEGAL RIGHTS THAT VARY FROM JURISDICTION TO + * JURISDICTION. NOTWITHSTANDING THE FOREGOING, NVIDIA’S AGGREGATE + * LIABILITY ARISING OUT OF THIS AGREEMENT SHALL NOT EXCEED ONE HUNDRED + * UNITED STATES DOLLARS (USD$100). + * + * SECTION 6 - TERM. + * This Agreement and the licenses granted hereunder shall be effective as + * of the date You download the applicable Software ("Effective Date") and + * continue for a period of one (1) year ("Initial Term") respectively, + * unless terminated earlier in accordance with the "Termination" provision + * of this Agreement. Unless either party notifies the other party of its + * intent to terminate this Agreement at least three (3) months prior to + * the end of the Initial Term or the applicable renewal period, this + * Agreement will be automatically renewed for one (1) year renewal periods + * thereafter, unless terminated in accordance with the "Termination" + * provision of this Agreement. + * + * SECTION 7 - TERMINATION. + * NVIDIA may terminate this Agreement at any time if You violate its + * terms. Upon termination, You will immediately destroy the Software or + * return all copies of the Software to NVIDIA, and certify to NVIDIA in + * writing that such actions have been completed. Upon termination or + * expiration of this Agreement the license grants to Licensee shall + * terminate, except that sublicenses rightfully granted by Licensee under + * this Agreement in connection with Section 1(b) and (c) of this Agreement + * provided by Licensee prior to the termination or expiration of this + * Agreement shall survive in accordance with their respective form of + * license terms and conditions. + * + * SECTION 8 - MISCELLANEOUS. + * + * SECTION 8.1 - SURVIVAL. + * Those provisions in this Agreement, which by their nature need to + * survive the termination or expiration of this Agreement, shall survive + * termination or expiration of the Agreement, including but not limited to + * Sections 2, 3, 4, 5, 7, and 8. + * + * SECTION 8.2 - APPLICABLE LAWS. + * Claims arising under this Agreement shall be governed by the laws of + * Delaware, excluding its principles of conflict of laws and the United + * Nations Convention on Contracts for the Sale of Goods. The state and/or + * federal courts residing in Santa Clara County, California shall have + * exclusive jurisdiction over any dispute or claim arising out of this + * Agreement. You may not export the Software in violation of applicable + * export laws and regulations. + * + * SECTION 8.3 - AMENDMENT. + * The Agreement shall not be modified except by a written agreement that + * names this Agreement and any provision to be modified, is dated + * subsequent to the Effective Date, and is signed by duly authorized + * representatives of both parties. + * + * SECTION 8.4 - NO WAIVER. + * No failure or delay on the part of either party in the exercise of any + * right, power or remedy under this Agreement or under law, or to insist + * upon or enforce performance by the other party of any of the provisions + * of this Agreement or under law, shall operate as a waiver thereof, nor + * shall any single or partial exercise of any right, power or remedy + * preclude other or further exercise thereof, or the exercise of any other + * right, power or remedy; rather the provision, right, or remedy shall be + * and remain in full force and effect. + * + * SECTION 8.5 - NO ASSIGNMENT. + * This Agreement and Licensee’s rights and obligations herein, may not be + * assigned, subcontracted, delegated, or otherwise transferred by Licensee + * without NVIDIA’s prior written consent, and any attempted assignment, + * subcontract, delegation, or transfer in violation of the foregoing will + * be null and void. The terms of this Agreement shall be binding upon + * Licensee’s assignees. + * + * SECTION 8.6 - GOVERNMENT RESTRICTED RIGHTS. + * The parties acknowledge that the Software is subject to U.S. export + * control laws and regulations. The parties agree to comply with all + * applicable international and national laws that apply to the Software, + * including the U.S. Export Administration Regulations, as well as + * end-user, end-use and destination restrictions issued by U.S. and other + * governments. + * + * The Software has been developed entirely at private expense and is + * commercial computer software provided with RESTRICTED RIGHTS. Use, + * duplication or disclosure of the Software by the U.S. Government or a + * U.S. Government subcontractor is subject to the restrictions set forth + * in the Agreement under which the Software was obtained pursuant to DFARS + * 227.7202-3(a) or as set forth in subparagraphs (c)(1) and (2) of the + * Commercial Computer Software - Restricted Rights clause at FAR + * 52.227-19, as applicable. Contractor/manufacturer is NVIDIA, 2701 San + * Tomas Expressway, Santa Clara, CA 95050. Use of the Software by the + * Government constitutes acknowledgment of NVIDIA's proprietary rights + * therein. + * + * SECTION 8.7 - INDEPENDENT CONTRACTORS. + * Licensee’s relationship to NVIDIA is that of an independent contractor, + * and neither party is an agent or partner of the other. Licensee will + * not have, and will not represent to any third party that it has, any + * authority to act on behalf of NVIDIA. + * + * SECTION 8.8 - SEVERABILITY. + * If for any reason a court of competent jurisdiction finds any provision + * of this Agreement, or portion thereof, to be unenforceable, that + * provision of the Agreement will be enforced to the maximum extent + * permissible so as to affect the intent of the parties, and the remainder + * of this Agreement will continue in full force and effect. This Agreement + * has been negotiated by the parties and their respective counsel and will + * be interpreted fairly in accordance with its terms and without any + * strict construction in favor of or against either party. + * + * SECTION 8.9 - ENTIRE AGREEMENT. + * This Agreement and NDA constitute the entire agreement between the + * parties with respect to the subject matter contemplated herein, and + * merges all prior and contemporaneous communications. + * + ******************************************************************************/ + + + +#ifndef _OA_h +#define _OA_h + +#define OA_WIN32 1 +#define OA_CYGWIN 2 +#define OA_LINUX 3 +#define OA_DARWIN 4 + +/* Automatic Platform detection */ +#if defined(WIN32) +# define OA_PLATFORM OA_WIN32 +# pragma warning(disable:4995) +# pragma warning(disable:4996) +# pragma pack(push,8) +#else +# define OA_PLATFORM OA_CYGWIN +#endif + +#include + +#define OA_CHAR char +#define OA_STRCPY strcpy +#define OA_STRNCPY strncpy +#define OA_STRLEN strlen + +#ifdef __cplusplus +extern "C" +{ +#endif + + +/******************************************************************************* + * Types + ******************************************************************************/ + +typedef enum +{ + OA_FALSE = 0, + OA_OFF = 0, + OA_TRUE = 1, + OA_ON = 1 +} oaBool; + +typedef OA_CHAR oaChar; +typedef oaChar *oaString; +typedef long int oaInt; +typedef double oaFloat; + + +/* + * Used for by oaInit to return the version number of the API. The version + * number will be equivalent to (Major + .001 * Minor). Versions of the API + * with differing major numbers are incompatible, whereas versions where only + * the minor number differ are. + */ +typedef struct oaVersionStruct +{ + oaInt Major; + oaInt Minor; + oaInt Custom; + oaInt Build; +} oaVersion; + + +typedef enum +{ + OA_TYPE_INVALID = 0, + OA_TYPE_STRING = 1, + OA_TYPE_INT = 2, + OA_TYPE_FLOAT = 3, + OA_TYPE_ENUM = 4, + OA_TYPE_BOOL = 5 +} oaOptionDataType; + +typedef enum +{ + OA_COMP_OP_INVALID = 0, + OA_COMP_OP_EQUAL = 1, + OA_COMP_OP_NOT_EQUAL = 2, + OA_COMP_OP_GREATER = 3, + OA_COMP_OP_LESS = 4, + OA_COMP_OP_GREATER_OR_EQUAL = 5, + OA_COMP_OP_LESS_OR_EQUAL = 6, +} oaComparisonOpType; + +typedef struct oaValueStruct +{ + union + { + oaString String; + oaInt Int; + oaFloat Float; + oaString Enum; + oaBool Bool; + }; +} oaValue; + +typedef enum +{ + OA_SIGNAL_SYSTEM_UNDEFINED = 0x0, /* Should never be used */ + + /* used for errors, warnings, and log messages */ + OA_SIGNAL_ERROR = 0x1, + + /* requests a reboot of the system */ + OA_SIGNAL_SYSTEM_REBOOT = 0xF, +} oaSignalType; + +typedef enum +{ + OA_ERROR_NONE = 0x00, /* no error */ + OA_ERROR_WARNING = 0x01, /* not an error, just a warning*/ + OA_ERROR_LOG = 0x02, /* not an error, just a log message */ + + OA_ERROR_INVALID_OPTION = 0x10, /* option is invalid (wrong name) */ + OA_ERROR_INVALID_OPTION_VALUE = 0x11, /* option value is out of range */ + + OA_ERROR_INVALID_BENCHMARK = 0x21, /* chosen benchmark is invalid */ + + OA_ERROR_OTHER = 0xFF, /* unknown error */ +} oaErrorType; + +typedef struct oaMessageStruct +{ + oaInt StructSize; /* Size in bytes of the whole struct */ + + oaErrorType Error; /* Only used for OA_SIGNAL_ERROR */ + const oaChar *Message; +} oaMessage; + + +/* Used when a parameter is only enabled if another parameter value meets + a certain condition. For example, the "AA Level" parameter may only be + enabled if the "AA" parameter is equal to "On" */ +typedef struct oaOptionDependencyStruct +{ + oaInt StructSize; /* Size in bytes of the whole struct */ + + /* Name of the parent parameter the param will be dependent on */ + const oaChar *ParentName; + + /* The operator used to compare the parent value with ComparisonVal */ + oaComparisonOpType ComparisonOp; + + /* The value compared against the parents value. It must be the same type */ + oaValue ComparisonVal; + + /* Data type of the comparison value */ + oaOptionDataType ComparisonValType; + +} oaOptionDependency; + +typedef struct oaNamedOptionStruct +{ + oaInt StructSize; /* Size in bytes of the whole struct */ + + oaOptionDataType DataType; + const oaChar *Name; + + /* Currently only used for OA_TYPE_ENUM */ + oaValue Value; + + /* Used only for numeric types OA_TYPE_INT and OA_TYPE_FLOAT */ + oaValue MinValue; + oaValue MaxValue; + + /* determines the allowable values for an option given min/max */ + /* NumSteps == -1 range is [-inf, inf] */ + /* NumSteps == 0 range is continuous within [MinValue, MaxValue] */ + /* NumSteps > 0 assumes NumSteps uniform increments between min/max */ + /* eg, if min = 0, max = 8, and NumSteps = 4, then our */ + /* option can accept any value in the set {0, 2, 4, 6, 8} */ + oaInt NumSteps; + + /* If Dependency is defined, the parameter is only enabled if the + condition defined within OptionDependency is true */ + oaOptionDependency Dependency; +} oaNamedOption; + +typedef enum +{ + OA_CMD_EXIT = 0, /* The app should exit */ + OA_CMD_RUN = 1, /* Run as normal */ + OA_CMD_GET_ALL_OPTIONS = 2, /* Return all available options to OA */ + OA_CMD_GET_CURRENT_OPTIONS = 3, /* Return the option values currently set */ + OA_CMD_SET_OPTIONS = 4, /* Persistantly set given options */ + OA_CMD_GET_BENCHMARKS = 5, /* Return all known benchmark names to OA */ + OA_CMD_RUN_BENCHMARK = 6, /* Run a given benchmark */ +} oaCommandType; + +typedef struct oaCommandStruct +{ + oaInt StructSize; /* Size in bytes of the whole struct */ + + oaCommandType Type; + const oaChar *BenchmarkName; /* used for OA_CMD_RUN_BENCHMARK */ +} oaCommand; + +/******************************************************************************* + * Macros + ******************************************************************************/ + +#define OA_RAISE_ERROR(error_type, message_str) \ + { \ + oaMessage Message; \ + oaInitMessage(&Message); \ + Message.Error = OA_ERROR_##error_type; \ + Message.Message = message_str; \ + oaSendSignal(OA_SIGNAL_ERROR, &Message); \ + } + +#define OA_RAISE_WARNING(message_str) \ + { \ + oaMessage Message; \ + oaInitMessage(&Message); \ + Message.Error = OA_ERROR_WARNING; \ + Message.Message = message_str; \ + oaSendSignal(OA_SIGNAL_ERROR, &Message); \ + } + +#define OA_RAISE_LOG(message_str) \ + { \ + oaMessage Message; \ + oaInitMessage(&Message); \ + Message.Error = OA_ERROR_LOG; \ + Message.Message = message_str; \ + oaSendSignal(OA_SIGNAL_ERROR, &Message); \ + } + + +/******************************************************************************* + * Functions + ******************************************************************************/ + +/* Called when initializing OA mode. init_str should be the string passed + to the app as an option to the -openautomate command-line option */ +oaBool oaInit(const oaChar *init_str, oaVersion *version); + +/* Resets all values in the command to defaults */ +void oaInitCommand(oaCommand *command); + +/* Returns the next command for the app to execute. If there are no commands + left OA_CMD_EXIT will be returned. */ +oaCommandType oaGetNextCommand(oaCommand *command); + +/* Returns the next option for the app to set when in OA_CMD_SET_OPTIONS */ +oaNamedOption *oaGetNextOption(void); + +/* Resets all values in option to defaults */ +void oaInitOption(oaNamedOption *option); + +/* Adds an option to the option list when in OA_CMD_GET_ALL_OPTIONS */ +void oaAddOption(const oaNamedOption *option); + +/* Adds an option value to the option value list when in + OA_CMD_GET_CURRENT_OPTIONS */ +void oaAddOptionValue(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + +/* Adds a benchmark name to the list when in OA_CMD_GET_BENCHMARKS mode */ +void oaAddBenchmark(const oaChar *benchmark_name); + +/* Allows the application to send various signals. Some signals may have + associated an associated parameter, passed in via the void *param. See + the the "Signals" section of the documentation for more info. Returns + true if the signal was handled*/ +oaBool oaSendSignal(oaSignalType signal, void *param); + +/* Resets all values in option to defaults */ +void oaInitMessage(oaMessage *message); + +/******************************************************************************* + * Callback functions for benchmark mode + ******************************************************************************/ + +/* The application should call this right before the benchmark starts. It + should be called before any CPU or GPU computation is done for the first + frame. */ +void oaStartBenchmark(void); + +/* This should be called right before the final present call for each frame is + called. The t parameter should be set to the point in time the frame is + related to, in the application's time scale.*/ +void oaDisplayFrame(oaFloat t); + +/* Adds an optional result value from a benchmark run. It can be called + multiple times, but 'name' must be different each time. Also, it must be + called after the last call to oaDisplayFrame(), and before oaEndBenchmark() + */ +void oaAddResultValue(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + +/* Similar to oaAddResultValue(), but called per frame. This call should be + made once for each value, before each call to oaDisplayFrame() */ +void oaAddFrameValue(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + +/* This should be called after the last frame is rendered in the benchmark */ +void oaEndBenchmark(void); + +#if defined(WIN32) +# pragma pack(pop) +#endif + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/sdk/include/OpenAutomate/OpenAutomate_Internal.h b/sdk/include/OpenAutomate/OpenAutomate_Internal.h new file mode 100644 index 00000000000..75998f9903a --- /dev/null +++ b/sdk/include/OpenAutomate/OpenAutomate_Internal.h @@ -0,0 +1,418 @@ +/******************************************************************************* + * NVIDIA Corporation + * Software License Agreement - OpenAutomate SDK + * + * IMPORTANT - READ BEFORE COPYING, INSTALLING OR USING + * Do not use or load the OpenAutomate SDK and any associated materials + * provided by NVIDIA on NVIDIA’s website (collectively, the "Software") + * until You have carefully read the following terms and conditions. By + * loading or using the Software, You agree to fully comply with the terms + * and conditions of this Software License Agreement ("Agreement") by and + * between NVIDIA Corporation, a Delaware corporation with its principal + * place of business at 2701 San Tomas Expressway, Santa Clara, California + * 95050 U.S.A. ("NVIDIA"), and You. If You do not wish to so agree, do not + * install or use the Software. + * + * For the purposes of this Agreement: + * + * "Licensee," "You" and/or "Your" shall mean, collectively and + * individually, Original Equipment Manufacturers, Independent Hardware + * Vendors, Independent Software Vendors, and End-Users of the Software + * pursuant to the terms and conditions of this Agreement. + * + * "Derivative Works" shall mean derivatives of the Software created by You + * or a third party on Your behalf, which term shall include: (a) for + * copyrightable or copyrighted material, any translation, abridgement, + * revision or other form in which an existing work may be recast, + * transformed or adapted; (b) for work protected by topography or mask + * right, any translation, abridgement, revision or other form in which an + * existing work may be recast, transformed or adapted; (c) for patentable + * or patented material, any Improvement; and (d) for material protected by + * trade secret, any new material derived from or employing such existing + * trade secret. + * + * "Excluded License" is any license that requires as a condition of use, + * modification and/or distribution of software subject to the Excluded + * License, that such software or other software distributed and/or + * combined with such software be (i) disclosed or distributed in source + * code form, (ii) licensed for the purpose of making derivative works, or + * (iii) redistributable at no charge. + * + * SECTION 1 - GRANT OF LICENSE. + * NVIDIA agrees to provide the Software and any associated materials + * pursuant to the terms and conditions of this Agreement. Subject to the + * terms of this Agreement, NVIDIA grants to You a nonexclusive, + * transferable, worldwide, revocable, limited, royalty-free, fully paid-up + * license under NVIDIA’s copyrights to + * + * (a) install, deploy, use, have used execute, reproduce, display, + * perform, run, modify the source code of the Software, or to prepare and + * have prepared Derivative Works thereof the Software for Your own + * internal development, testing and maintenance purposes to incorporate + * the Software or Derivative Works thereof, in part or whole, into Your + * software applications; + * + * (b) to transfer, distribute and sublicense the Software (in its + * unmodified form as delivered to You by NVIDIA pursuant to this + * Agreement) in any medium or technology for Your sublicensees to + * incorporate the Software or Derivative Works thereof, in part or whole, + * into their respective software applications; and + * + * (c) to transfer, distribute and sublicense Derivative Works (in object + * code only) of the Software (i)_as incorporated in Your application + * software in any medium or technology; and (ii) certified as OpenAutomate + * Compatible Software. + * + * You may exercise your license rights pursuant to Subsection 1(b) and (c) + * above pursuant to the terms and conditions of any form of end-user + * software license agreement of Your choice, including but not limited to + * an Excluded License. + * + * In the event NVIDIA certifies Your application software, incorporating + * the Derivative Works (in object code only) of the Software, as + * OpenAutomate compatible ("OpenAutomate Compatible Software"), NVIDIA + * grants You a nonexclusive, worldwide, revocable, paid-up license to use + * the name and trademark to "OpenAutomate Compatible" solely for the + * purposes of identifying and/or marketing Your application software as + * OpenAutomate Compatible Software; provided that Licensee fully complies + * with the following: + * + * (x) Licensee agrees that it is strictly prohibited from using the name + * and trademark of "OpenAutomate Compatible" if Your application software + * is not OpenAutomate Compatible Software; + * + * (y) if NVIDIA objects to Your improper use of the "OpenAutomate + * Compatible" name and trademark, You will take all reasonable steps + * necessary to resolve NVIDIA’s objections. NVIDIA may reasonably monitor + * the quality of Your application software bearing the "OpenAutomate + * Compatible" name or trademark pursuant to this Agreement; and + * + * (z) any goodwill attached to NVIDIA’s trademarks, service marks, or + * trade names belong to NVIDIA and this Agreement does not grant You any + * right to use them. + * + * If You are not the final manufacturer or vendor of a computer system or + * software program incorporating the Software, or if Your Contractors (as + * defined below), affiliates or subsidiaries need to exercise any, some or + * all of the license grant described above herein to the Software on Your + * behalf, then You may transfer a copy of the Software, (and related + * end-user documentation) to such recipient for use in accordance with the + * terms of this Agreement, provided such recipient agrees to be fully + * bound by the terms hereof. Except as expressly permitted in this + * Agreement, Unless otherwise authorized in the Agreement, You shall not + * otherwise assign, sublicense, lease, or in any other way transfer or + * disclose Software to any third party. Unless otherwise authorized in the + * Agreement, You shall not reverse- compile, disassemble, + * reverse-engineer, or in any manner attempt to derive the source code of + * the Software from the object code portions of the Software. + * + * Except as expressly stated in this Agreement, no license or right is + * granted to You directly or by implication, inducement, estoppel or + * otherwise. NVIDIA shall have the right to inspect or have an independent + * auditor inspect Your relevant records to verify Your compliance with the + * terms and conditions of this Agreement. + * + * SECTION 2 - CONFIDENTIALITY. + * If applicable, any exchange of Confidential Information (as defined in + * the NDA) shall be made pursuant to the terms and conditions of a + * separately signed Non-Disclosure Agreement ("NDA") by and between NVIDIA + * and You. For the sake of clarity, You agree that the Software is + * Confidential Information of NVIDIA. + * + * If You wish to have a third party consultant or subcontractor + * ("Contractor") perform work on Your behalf which involves access to or + * use of Software, You shall obtain a written confidentiality agreement + * from the Contractor which contains terms and obligations with respect to + * access to or use of Software no less restrictive than those set forth in + * this Agreement and excluding any distribution or sublicense rights, and + * use for any other purpose than permitted in this Agreement. Otherwise, + * You shall not disclose the terms or existence of this Agreement or use + * NVIDIA's name in any publications, advertisements, or other + * announcements without NVIDIA's prior written consent. Unless otherwise + * provided in this Agreement, You do not have any rights to use any NVIDIA + * trademarks or logos. + * + * SECTION 3 - OWNERSHIP OF SOFTWARE AND INTELLECTUAL PROPERTY RIGHTS. + * All rights, title and interest to all copies of the Software remain with + * NVIDIA, subsidiaries, licensors, or its suppliers. The Software is + * copyrighted and protected by the laws of the United States and other + * countries, and international treaty provisions. You may not remove any + * copyright notices from the Software. NVIDIA may make changes to the + * Software, or to items referenced therein, at any time and without + * notice, but is not obligated to support or update the Software. Except + * as otherwise expressly provided, NVIDIA grants no express or implied + * right under any NVIDIA patents, copyrights, trademarks, or other + * intellectual property rights. + * + * All rights, title and interest in the Derivative Works of the Software + * remain with You subject to the underlying license from NVIDIA to the + * Software. In Your sole discretion, You may grant NVIDIA, upon NVIDIA’s + * request for such a license described herein, an irrevocable, perpetual, + * nonexclusive, worldwide, royalty-free paid-up license to make, have + * made, use, have used, sell, license, distribute, sublicense or otherwise + * transfer Derivative Works created by You that add functionality or + * improvement to the Software. + * + * You has no obligation to give NVIDIA any suggestions, comments or other + * feedback ("Feedback") relating to the Software. However, NVIDIA may use + * and include any Feedback that You voluntarily provide to improve the + * Software or other related NVIDIA technologies. Accordingly, if You + * provide Feedback, You agree NVIDIA and its licensees may freely use, + * reproduce, license, distribute, and otherwise commercialize the Feedback + * in the Software or other related technologies without the payment of any + * royalties or fees. + * + * You may transfer the Software only if the recipient agrees to be fully + * bound by these terms and conditions of this Agreement. + * + * SECTION 4 - NO WARRANTIES. + * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT ANY EXPRESS OR IMPLIED WARRANTY + * OF ANY KIND, INCLUDING WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, + * OR FITNESS FOR A PARTICULAR PURPOSE. NVIDIA does not warrant or assume + * responsibility for the accuracy or completeness of any information, + * text, graphics, links or other items contained within the Software. + * NVIDIA does not represent that errors or other defects will be + * identified or corrected. + * + * SECTION 5 - LIMITATION OF LIABILITY. + * EXCEPT WITH RESPECT TO THE MISUSE OF THE OTHER PARTY’S INTELLECTUAL + * PROPERTY OR DISCLOSURE OF THE OTHER PARTY’S CONFIDENTIAL INFORMATION IN + * BREACH OF THIS AGREEMENT, IN NO EVENT SHALL NVIDIA, SUBSIDIARIES, + * LICENSORS, OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER + * (INCLUDING, WITHOUT LIMITATION, INDIRECT, LOST PROFITS, CONSEQUENTIAL, + * BUSINESS INTERRUPTION OR LOST INFORMATION) ARISING OUT OF THE USE OF OR + * INABILITY TO USE THE SOFTWARE, EVEN IF NVIDIA HAS BEEN ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGES. SOME JURISDICTIONS PROHIBIT EXCLUSION OR + * LIMITATION OF LIABILITY FOR IMPLIED WARRANTIES OR CONSEQUENTIAL OR + * INCIDENTAL DAMAGES, SO THE ABOVE LIMITATION MAY NOT APPLY TO YOU. YOU + * MAY ALSO HAVE OTHER LEGAL RIGHTS THAT VARY FROM JURISDICTION TO + * JURISDICTION. NOTWITHSTANDING THE FOREGOING, NVIDIA’S AGGREGATE + * LIABILITY ARISING OUT OF THIS AGREEMENT SHALL NOT EXCEED ONE HUNDRED + * UNITED STATES DOLLARS (USD$100). + * + * SECTION 6 - TERM. + * This Agreement and the licenses granted hereunder shall be effective as + * of the date You download the applicable Software ("Effective Date") and + * continue for a period of one (1) year ("Initial Term") respectively, + * unless terminated earlier in accordance with the "Termination" provision + * of this Agreement. Unless either party notifies the other party of its + * intent to terminate this Agreement at least three (3) months prior to + * the end of the Initial Term or the applicable renewal period, this + * Agreement will be automatically renewed for one (1) year renewal periods + * thereafter, unless terminated in accordance with the "Termination" + * provision of this Agreement. + * + * SECTION 7 - TERMINATION. + * NVIDIA may terminate this Agreement at any time if You violate its + * terms. Upon termination, You will immediately destroy the Software or + * return all copies of the Software to NVIDIA, and certify to NVIDIA in + * writing that such actions have been completed. Upon termination or + * expiration of this Agreement the license grants to Licensee shall + * terminate, except that sublicenses rightfully granted by Licensee under + * this Agreement in connection with Section 1(b) and (c) of this Agreement + * provided by Licensee prior to the termination or expiration of this + * Agreement shall survive in accordance with their respective form of + * license terms and conditions. + * + * SECTION 8 - MISCELLANEOUS. + * + * SECTION 8.1 - SURVIVAL. + * Those provisions in this Agreement, which by their nature need to + * survive the termination or expiration of this Agreement, shall survive + * termination or expiration of the Agreement, including but not limited to + * Sections 2, 3, 4, 5, 7, and 8. + * + * SECTION 8.2 - APPLICABLE LAWS. + * Claims arising under this Agreement shall be governed by the laws of + * Delaware, excluding its principles of conflict of laws and the United + * Nations Convention on Contracts for the Sale of Goods. The state and/or + * federal courts residing in Santa Clara County, California shall have + * exclusive jurisdiction over any dispute or claim arising out of this + * Agreement. You may not export the Software in violation of applicable + * export laws and regulations. + * + * SECTION 8.3 - AMENDMENT. + * The Agreement shall not be modified except by a written agreement that + * names this Agreement and any provision to be modified, is dated + * subsequent to the Effective Date, and is signed by duly authorized + * representatives of both parties. + * + * SECTION 8.4 - NO WAIVER. + * No failure or delay on the part of either party in the exercise of any + * right, power or remedy under this Agreement or under law, or to insist + * upon or enforce performance by the other party of any of the provisions + * of this Agreement or under law, shall operate as a waiver thereof, nor + * shall any single or partial exercise of any right, power or remedy + * preclude other or further exercise thereof, or the exercise of any other + * right, power or remedy; rather the provision, right, or remedy shall be + * and remain in full force and effect. + * + * SECTION 8.5 - NO ASSIGNMENT. + * This Agreement and Licensee’s rights and obligations herein, may not be + * assigned, subcontracted, delegated, or otherwise transferred by Licensee + * without NVIDIA’s prior written consent, and any attempted assignment, + * subcontract, delegation, or transfer in violation of the foregoing will + * be null and void. The terms of this Agreement shall be binding upon + * Licensee’s assignees. + * + * SECTION 8.6 - GOVERNMENT RESTRICTED RIGHTS. + * The parties acknowledge that the Software is subject to U.S. export + * control laws and regulations. The parties agree to comply with all + * applicable international and national laws that apply to the Software, + * including the U.S. Export Administration Regulations, as well as + * end-user, end-use and destination restrictions issued by U.S. and other + * governments. + * + * The Software has been developed entirely at private expense and is + * commercial computer software provided with RESTRICTED RIGHTS. Use, + * duplication or disclosure of the Software by the U.S. Government or a + * U.S. Government subcontractor is subject to the restrictions set forth + * in the Agreement under which the Software was obtained pursuant to DFARS + * 227.7202-3(a) or as set forth in subparagraphs (c)(1) and (2) of the + * Commercial Computer Software - Restricted Rights clause at FAR + * 52.227-19, as applicable. Contractor/manufacturer is NVIDIA, 2701 San + * Tomas Expressway, Santa Clara, CA 95050. Use of the Software by the + * Government constitutes acknowledgment of NVIDIA's proprietary rights + * therein. + * + * SECTION 8.7 - INDEPENDENT CONTRACTORS. + * Licensee’s relationship to NVIDIA is that of an independent contractor, + * and neither party is an agent or partner of the other. Licensee will + * not have, and will not represent to any third party that it has, any + * authority to act on behalf of NVIDIA. + * + * SECTION 8.8 - SEVERABILITY. + * If for any reason a court of competent jurisdiction finds any provision + * of this Agreement, or portion thereof, to be unenforceable, that + * provision of the Agreement will be enforced to the maximum extent + * permissible so as to affect the intent of the parties, and the remainder + * of this Agreement will continue in full force and effect. This Agreement + * has been negotiated by the parties and their respective counsel and will + * be interpreted fairly in accordance with its terms and without any + * strict construction in favor of or against either party. + * + * SECTION 8.9 - ENTIRE AGREEMENT. + * This Agreement and NDA constitute the entire agreement between the + * parties with respect to the subject matter contemplated herein, and + * merges all prior and contemporaneous communications. + * + ******************************************************************************/ + + + +#ifndef _OA_Internal_h +#define _OA_Internal_h + +#include "OpenAutomate.h" +#include +#include + +#ifdef __cplusplus +extern "C" +{ +#endif + +#define OA_ERROR(msg) \ + fprintf(stderr, "ERROR: %s\n", msg); + +#define OA_ASSERT(cond) assert(cond) + +#define OA_PLUGIN_INIT_FUNC "oaPluginInit" + +#define OA_VERSION_MAJOR 1 +#define OA_VERSION_MINOR 0 +#define OA_VERSION_CUSTOM 0 +#define OA_VERSION_BUILD 2 + +#define OA_MIN_REQUIRED_VERSION_MAJOR 0 +#define OA_MIN_REQUIRED_VERSION_MINOR 6 + +#define OA_INIT_VERSION_STRUCT(ver) \ + { \ + (ver).Major = OA_VERSION_MAJOR; \ + (ver).Minor = OA_VERSION_MINOR; \ + (ver).Custom = OA_VERSION_CUSTOM; \ + (ver).Build = OA_VERSION_BUILD; \ + } + +#define OA_PLUGIN_INIT_VERSION_STRUCT(plugin_version, app_version) \ + { \ + if(!oaiPluginInitVersionStruct(plugin_version, app_version)) \ + return(NULL); \ + } + +#ifdef WIN32 +# define OA_FUNC_DECL __cdecl +#else +# define OA_FUNC_DECL +#endif + +typedef struct oaiFunctionTableStruct +{ + size_t TableSize; + + oaCommandType (OA_FUNC_DECL *GetNextCommand)(oaCommand *command); + oaNamedOption* (OA_FUNC_DECL *GetNextOption)(void); + void (OA_FUNC_DECL *AddOption)(const oaNamedOption *option); + void (OA_FUNC_DECL *AddOptionValue)(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + void (OA_FUNC_DECL *AddBenchmark)(const oaChar *benchmark_name); + void (OA_FUNC_DECL *AddResultValue)(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + void (OA_FUNC_DECL *StartBenchmark)(void); + void (OA_FUNC_DECL *DisplayFrame)(oaFloat t); + void (OA_FUNC_DECL *EndBenchmark)(void); + void (OA_FUNC_DECL *AddFrameValue)(const oaChar *name, + oaOptionDataType value_type, + const oaValue *value); + oaBool (OA_FUNC_DECL *SendSignal)(oaSignalType signal, void *param); +} oaiFunctionTable; + +typedef oaiFunctionTable * +(OA_FUNC_DECL *oaiPluginInitFunc)(const oaChar *init_str, + oaVersion *plugin_version, + const oaVersion app_version); + + +/* Initializes the function table */ +static void oaiInitFuncTable(oaiFunctionTable *table) +{ + assert(table); + memset(table, 0, sizeof(oaiFunctionTable)); + table->TableSize = sizeof(oaiFunctionTable); +} + +/* Does version checking for plugins, and initializes the version struct + returned to the app appropriately */ +static int oaiPluginInitVersionStruct(oaVersion *plugin_version, + oaVersion app_version) +{ + /* Apps built against 0.6 of the SDK are compatible with plugins of 1.X, + so we can fool the apps into thinking the plugin is the same version + as the app */ + if(OA_VERSION_MAJOR == 1 && + app_version.Major == 0 && app_version.Minor == 6) + { + *plugin_version = app_version; + return(1); + } + + plugin_version->Major = OA_VERSION_MAJOR; + plugin_version->Minor = OA_VERSION_MINOR; + plugin_version->Custom = OA_VERSION_CUSTOM; + plugin_version->Build = OA_VERSION_BUILD; + + return(1); +} + +/* Returns the current function table, presumably returned from the plugin + init*/ +oaiFunctionTable *oaiGetCurrentFuncTable(void); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/sdk/include/nvapi/NvApiDriverSettings.c b/sdk/include/nvapi/NvApiDriverSettings.c new file mode 100644 index 00000000000..7f76f99c61a --- /dev/null +++ b/sdk/include/nvapi/NvApiDriverSettings.c @@ -0,0 +1,906 @@ +/***************************************************************************\ +|* *| +|* Copyright NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This source code is subject to NVIDIA ownership rights under U.S. *| +|* and international Copyright laws. Users and possessors of this *| +|* source code are hereby granted a nonexclusive, royalty-free *| +|* license to use this code in individual and commercial software. *| +|* *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOURCE *| +|* CODE FOR ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR *| +|* IMPLIED WARRANTY OF ANY KIND. NVIDIA DISCLAIMS ALL WARRANTIES WITH *| +|* REGARD TO THIS SOURCE CODE, INCLUDING ALL IMPLIED WARRANTIES OF *| +|* MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR *| +|* PURPOSE. IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, *| +|* INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES *| +|* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN *| +|* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING *| +|* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE *| +|* CODE. *| +|* *| +|* U.S. Government End Users. This source code is a "commercial item" *| +|* as that term is defined at 48 C.F.R. 2.101 (OCT 1995), consisting *| +|* of "commercial computer software" and "commercial computer software *| +|* documentation" as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) *| +|* and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through *| +|* 227.7202-4 (JUNE 1995), all U.S. Government End Users acquire the *| +|* source code with only those rights set forth herein. *| +|* *| +|* Any use of this source code in individual and commercial software must *| +|* include, in the user documentation and internal comments to the code, *| +|* the above Disclaimer and U.S. Government End Users Notice. *| +|* *| +|* *| +\***************************************************************************/ + +#include "NvApiDriverSettings.h" + +EValues_OGL_AA_LINE_GAMMA g_valuesOGL_AA_LINE_GAMMA[OGL_AA_LINE_GAMMA_NUM_VALUES] = +{ + OGL_AA_LINE_GAMMA_DISABLED, + OGL_AA_LINE_GAMMA_ENABLED, + OGL_AA_LINE_GAMMA_MIN, + OGL_AA_LINE_GAMMA_MAX, +}; + +EValues_OGL_DEEP_COLOR_SCANOUT g_valuesOGL_DEEP_COLOR_SCANOUT[OGL_DEEP_COLOR_SCANOUT_NUM_VALUES] = +{ + OGL_DEEP_COLOR_SCANOUT_DISABLE, + OGL_DEEP_COLOR_SCANOUT_ENABLE, +}; + +EValues_OGL_DEFAULT_SWAP_INTERVAL g_valuesOGL_DEFAULT_SWAP_INTERVAL[OGL_DEFAULT_SWAP_INTERVAL_NUM_VALUES] = +{ + OGL_DEFAULT_SWAP_INTERVAL_TEAR, + OGL_DEFAULT_SWAP_INTERVAL_VSYNC_ONE, + OGL_DEFAULT_SWAP_INTERVAL_VSYNC, + OGL_DEFAULT_SWAP_INTERVAL_VALUE_MASK, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_MASK, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_OFF, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_ON, + OGL_DEFAULT_SWAP_INTERVAL_APP_CONTROLLED, + OGL_DEFAULT_SWAP_INTERVAL_DISABLE, +}; + +EValues_OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL g_valuesOGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL[OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_NUM_VALUES] = +{ + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ZERO_SCANLINES, + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ONE_FULL_FRAME_OF_SCANLINES, +}; + +EValues_OGL_DEFAULT_SWAP_INTERVAL_SIGN g_valuesOGL_DEFAULT_SWAP_INTERVAL_SIGN[OGL_DEFAULT_SWAP_INTERVAL_SIGN_NUM_VALUES] = +{ + OGL_DEFAULT_SWAP_INTERVAL_SIGN_POSITIVE, + OGL_DEFAULT_SWAP_INTERVAL_SIGN_NEGATIVE, +}; + +EValues_OGL_EVENT_LOG_SEVERITY_THRESHOLD g_valuesOGL_EVENT_LOG_SEVERITY_THRESHOLD[OGL_EVENT_LOG_SEVERITY_THRESHOLD_NUM_VALUES] = +{ + OGL_EVENT_LOG_SEVERITY_THRESHOLD_DISABLE, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_CRITICAL, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_WARNING, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_INFORMATION, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_ALL, +}; + +EValues_OGL_FORCE_BLIT g_valuesOGL_FORCE_BLIT[OGL_FORCE_BLIT_NUM_VALUES] = +{ + OGL_FORCE_BLIT_ON, + OGL_FORCE_BLIT_OFF, +}; + +EValues_OGL_FORCE_STEREO g_valuesOGL_FORCE_STEREO[OGL_FORCE_STEREO_NUM_VALUES] = +{ + OGL_FORCE_STEREO_OFF, + OGL_FORCE_STEREO_ON, +}; + +const wchar_t * g_valuesOGL_IMPLICIT_GPU_AFFINITY[OGL_IMPLICIT_GPU_AFFINITY_NUM_VALUES] = +{ + OGL_IMPLICIT_GPU_AFFINITY_AUTOSELECT +}; + +EValues_OGL_MULTIMON g_valuesOGL_MULTIMON[OGL_MULTIMON_NUM_VALUES] = +{ + OGL_MULTIMON_SINGLE_MONITOR, + OGL_MULTIMON_COMPATIBILITY_LCD, + OGL_MULTIMON_COMPATIBILITY_GCD, + OGL_MULTIMON_PERFORMANCE_LCD, + OGL_MULTIMON_PERFORMANCE_GCD, + OGL_MULTIMON_EXTENDED_SINGLE_MONITOR, + OGL_MULTIMON_PERFORMANCE_QUADRO, + OGL_MULTIMON_MULTIMON_BUFFER, +}; + +EValues_OGL_OVERLAY_PIXEL_TYPE g_valuesOGL_OVERLAY_PIXEL_TYPE[OGL_OVERLAY_PIXEL_TYPE_NUM_VALUES] = +{ + OGL_OVERLAY_PIXEL_TYPE_NONE, + OGL_OVERLAY_PIXEL_TYPE_CI, + OGL_OVERLAY_PIXEL_TYPE_RGBA, + OGL_OVERLAY_PIXEL_TYPE_CI_AND_RGBA, +}; + +EValues_OGL_OVERLAY_SUPPORT g_valuesOGL_OVERLAY_SUPPORT[OGL_OVERLAY_SUPPORT_NUM_VALUES] = +{ + OGL_OVERLAY_SUPPORT_OFF, + OGL_OVERLAY_SUPPORT_ON, + OGL_OVERLAY_SUPPORT_FORCE_SW, +}; + +EValues_OGL_QUALITY_ENHANCEMENTS g_valuesOGL_QUALITY_ENHANCEMENTS[OGL_QUALITY_ENHANCEMENTS_NUM_VALUES] = +{ + OGL_QUALITY_ENHANCEMENTS_HQUAL, + OGL_QUALITY_ENHANCEMENTS_QUAL, + OGL_QUALITY_ENHANCEMENTS_PERF, + OGL_QUALITY_ENHANCEMENTS_HPERF, +}; + +EValues_OGL_SINGLE_BACKDEPTH_BUFFER g_valuesOGL_SINGLE_BACKDEPTH_BUFFER[OGL_SINGLE_BACKDEPTH_BUFFER_NUM_VALUES] = +{ + OGL_SINGLE_BACKDEPTH_BUFFER_DISABLE, + OGL_SINGLE_BACKDEPTH_BUFFER_ENABLE, + OGL_SINGLE_BACKDEPTH_BUFFER_USE_HW_DEFAULT, +}; + +EValues_OGL_THREAD_CONTROL g_valuesOGL_THREAD_CONTROL[OGL_THREAD_CONTROL_NUM_VALUES] = +{ + OGL_THREAD_CONTROL_ENABLE, + OGL_THREAD_CONTROL_DISABLE, +}; + +EValues_OGL_TRIPLE_BUFFER g_valuesOGL_TRIPLE_BUFFER[OGL_TRIPLE_BUFFER_NUM_VALUES] = +{ + OGL_TRIPLE_BUFFER_DISABLED, + OGL_TRIPLE_BUFFER_ENABLED, +}; + +EValues_OGL_VIDEO_EDITING_MODE g_valuesOGL_VIDEO_EDITING_MODE[OGL_VIDEO_EDITING_MODE_NUM_VALUES] = +{ + OGL_VIDEO_EDITING_MODE_DISABLE, + OGL_VIDEO_EDITING_MODE_ENABLE, +}; + +EValues_AA_BEHAVIOR_FLAGS g_valuesAA_BEHAVIOR_FLAGS[AA_BEHAVIOR_FLAGS_NUM_VALUES] = +{ + AA_BEHAVIOR_FLAGS_NONE, + AA_BEHAVIOR_FLAGS_TREAT_OVERRIDE_AS_APP_CONTROLLED, + AA_BEHAVIOR_FLAGS_TREAT_OVERRIDE_AS_ENHANCE, + AA_BEHAVIOR_FLAGS_DISABLE_OVERRIDE, + AA_BEHAVIOR_FLAGS_TREAT_ENHANCE_AS_APP_CONTROLLED, + AA_BEHAVIOR_FLAGS_TREAT_ENHANCE_AS_OVERRIDE, + AA_BEHAVIOR_FLAGS_DISABLE_ENHANCE, + AA_BEHAVIOR_FLAGS_MAP_VCAA_TO_MULTISAMPLING, + AA_BEHAVIOR_FLAGS_SLI_DISABLE_TRANSPARENCY_SUPERSAMPLING, + AA_BEHAVIOR_FLAGS_DISABLE_CPLAA, + AA_BEHAVIOR_FLAGS_SKIP_RT_DIM_CHECK_FOR_ENHANCE, + AA_BEHAVIOR_FLAGS_DISABLE_SLIAA, + AA_BEHAVIOR_FLAGS_DEFAULT, + AA_BEHAVIOR_FLAGS_AA_RT_BPP_DIV_4, + AA_BEHAVIOR_FLAGS_AA_RT_BPP_DIV_4_SHIFT, + AA_BEHAVIOR_FLAGS_NON_AA_RT_BPP_DIV_4, + AA_BEHAVIOR_FLAGS_NON_AA_RT_BPP_DIV_4_SHIFT, + AA_BEHAVIOR_FLAGS_MASK, +}; + +EValues_AA_MODE_ALPHATOCOVERAGE g_valuesAA_MODE_ALPHATOCOVERAGE[AA_MODE_ALPHATOCOVERAGE_NUM_VALUES] = +{ + AA_MODE_ALPHATOCOVERAGE_MODE_MASK, + AA_MODE_ALPHATOCOVERAGE_MODE_OFF, + AA_MODE_ALPHATOCOVERAGE_MODE_ON, + AA_MODE_ALPHATOCOVERAGE_MODE_MAX, +}; + +EValues_AA_MODE_GAMMACORRECTION g_valuesAA_MODE_GAMMACORRECTION[AA_MODE_GAMMACORRECTION_NUM_VALUES] = +{ + AA_MODE_GAMMACORRECTION_MASK, + AA_MODE_GAMMACORRECTION_OFF, + AA_MODE_GAMMACORRECTION_ON_IF_FOS, + AA_MODE_GAMMACORRECTION_ON_ALWAYS, + AA_MODE_GAMMACORRECTION_MAX, + AA_MODE_GAMMACORRECTION_DEFAULT, + AA_MODE_GAMMACORRECTION_DEFAULT_TESLA, + AA_MODE_GAMMACORRECTION_DEFAULT_FERMI, +}; + +EValues_AA_MODE_METHOD g_valuesAA_MODE_METHOD[AA_MODE_METHOD_NUM_VALUES] = +{ + AA_MODE_METHOD_NONE, + AA_MODE_METHOD_SUPERSAMPLE_2X_H, + AA_MODE_METHOD_SUPERSAMPLE_2X_V, + AA_MODE_METHOD_SUPERSAMPLE_1_5X1_5, + AA_MODE_METHOD_FREE_0x03, + AA_MODE_METHOD_FREE_0x04, + AA_MODE_METHOD_SUPERSAMPLE_4X, + AA_MODE_METHOD_SUPERSAMPLE_4X_BIAS, + AA_MODE_METHOD_SUPERSAMPLE_4X_GAUSSIAN, + AA_MODE_METHOD_FREE_0x08, + AA_MODE_METHOD_FREE_0x09, + AA_MODE_METHOD_SUPERSAMPLE_9X, + AA_MODE_METHOD_SUPERSAMPLE_9X_BIAS, + AA_MODE_METHOD_SUPERSAMPLE_16X, + AA_MODE_METHOD_SUPERSAMPLE_16X_BIAS, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL, + AA_MODE_METHOD_MULTISAMPLE_2X_QUINCUNX, + AA_MODE_METHOD_MULTISAMPLE_4X, + AA_MODE_METHOD_FREE_0x11, + AA_MODE_METHOD_MULTISAMPLE_4X_GAUSSIAN, + AA_MODE_METHOD_MIXEDSAMPLE_4X_SKEWED_4TAP, + AA_MODE_METHOD_FREE_0x14, + AA_MODE_METHOD_FREE_0x15, + AA_MODE_METHOD_MIXEDSAMPLE_6X, + AA_MODE_METHOD_MIXEDSAMPLE_6X_SKEWED_6TAP, + AA_MODE_METHOD_MIXEDSAMPLE_8X, + AA_MODE_METHOD_MIXEDSAMPLE_8X_SKEWED_8TAP, + AA_MODE_METHOD_MIXEDSAMPLE_16X, + AA_MODE_METHOD_MULTISAMPLE_4X_GAMMA, + AA_MODE_METHOD_MULTISAMPLE_16X, + AA_MODE_METHOD_VCAA_32X_8v24, + AA_MODE_METHOD_CORRUPTION_CHECK, + AA_MODE_METHOD_6X_CT, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL_GAMMA, + AA_MODE_METHOD_SUPERSAMPLE_4X_GAMMA, + AA_MODE_METHOD_MULTISAMPLE_4X_FOSGAMMA, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL_FOSGAMMA, + AA_MODE_METHOD_SUPERSAMPLE_4X_FOSGAMMA, + AA_MODE_METHOD_MULTISAMPLE_8X, + AA_MODE_METHOD_VCAA_8X_4v4, + AA_MODE_METHOD_VCAA_16X_4v12, + AA_MODE_METHOD_VCAA_16X_8v8, + AA_MODE_METHOD_MIXEDSAMPLE_32X, + AA_MODE_METHOD_SUPERVCAA_64X_4v12, + AA_MODE_METHOD_SUPERVCAA_64X_8v8, + AA_MODE_METHOD_MIXEDSAMPLE_64X, + AA_MODE_METHOD_MIXEDSAMPLE_128X, + AA_MODE_METHOD_COUNT, + AA_MODE_METHOD_METHOD_MASK, + AA_MODE_METHOD_METHOD_MAX, +}; + +EValues_AA_MODE_REPLAY g_valuesAA_MODE_REPLAY[AA_MODE_REPLAY_NUM_VALUES] = +{ + AA_MODE_REPLAY_SAMPLES_MASK, + AA_MODE_REPLAY_SAMPLES_ONE, + AA_MODE_REPLAY_SAMPLES_TWO, + AA_MODE_REPLAY_SAMPLES_FOUR, + AA_MODE_REPLAY_SAMPLES_EIGHT, + AA_MODE_REPLAY_SAMPLES_MAX, + AA_MODE_REPLAY_MODE_MASK, + AA_MODE_REPLAY_MODE_OFF, + AA_MODE_REPLAY_MODE_ALPHA_TEST, + AA_MODE_REPLAY_MODE_PIXEL_KILL, + AA_MODE_REPLAY_MODE_DYN_BRANCH, + AA_MODE_REPLAY_MODE_OPTIMAL, + AA_MODE_REPLAY_MODE_ALL, + AA_MODE_REPLAY_MODE_MAX, + AA_MODE_REPLAY_TRANSPARENCY, + AA_MODE_REPLAY_DISALLOW_TRAA, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT_TESLA, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT_FERMI, + AA_MODE_REPLAY_MASK, +}; + +EValues_AA_MODE_SELECTOR g_valuesAA_MODE_SELECTOR[AA_MODE_SELECTOR_NUM_VALUES] = +{ + AA_MODE_SELECTOR_MASK, + AA_MODE_SELECTOR_APP_CONTROL, + AA_MODE_SELECTOR_OVERRIDE, + AA_MODE_SELECTOR_ENHANCE, + AA_MODE_SELECTOR_MAX, +}; + +EValues_AA_MODE_SELECTOR_SLIAA g_valuesAA_MODE_SELECTOR_SLIAA[AA_MODE_SELECTOR_SLIAA_NUM_VALUES] = +{ + AA_MODE_SELECTOR_SLIAA_DISABLED, + AA_MODE_SELECTOR_SLIAA_ENABLED, +}; + +EValues_ANISO_MODE_LEVEL g_valuesANISO_MODE_LEVEL[ANISO_MODE_LEVEL_NUM_VALUES] = +{ + ANISO_MODE_LEVEL_MASK, + ANISO_MODE_LEVEL_NONE_POINT, + ANISO_MODE_LEVEL_NONE_LINEAR, + ANISO_MODE_LEVEL_MAX, + ANISO_MODE_LEVEL_DEFAULT, +}; + +EValues_ANISO_MODE_SELECTOR g_valuesANISO_MODE_SELECTOR[ANISO_MODE_SELECTOR_NUM_VALUES] = +{ + ANISO_MODE_SELECTOR_MASK, + ANISO_MODE_SELECTOR_APP, + ANISO_MODE_SELECTOR_USER, + ANISO_MODE_SELECTOR_COND, + ANISO_MODE_SELECTOR_MAX, + ANISO_MODE_SELECTOR_DEFAULT, +}; + +EValues_APPLICATION_PROFILE_NOTIFICATION_TIMEOUT g_valuesAPPLICATION_PROFILE_NOTIFICATION_TIMEOUT[APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_NUM_VALUES] = +{ + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_DISABLED, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_NINE_SECONDS, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_FIFTEEN_SECONDS, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_THIRTY_SECONDS, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_ONE_MINUTE, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_TWO_MINUTES, +}; + +EValues_CPL_HIDDEN_PROFILE g_valuesCPL_HIDDEN_PROFILE[CPL_HIDDEN_PROFILE_NUM_VALUES] = +{ + CPL_HIDDEN_PROFILE_DISABLED, + CPL_HIDDEN_PROFILE_ENABLED, +}; + +const wchar_t * g_valuesCUDA_EXCLUDED_GPUS[CUDA_EXCLUDED_GPUS_NUM_VALUES] = +{ + CUDA_EXCLUDED_GPUS_NONE +}; + +const wchar_t * g_valuesD3DOGL_GPU_MAX_POWER[D3DOGL_GPU_MAX_POWER_NUM_VALUES] = +{ + D3DOGL_GPU_MAX_POWER_DEFAULTPOWER +}; + +EValues_EXPORT_PERF_COUNTERS g_valuesEXPORT_PERF_COUNTERS[EXPORT_PERF_COUNTERS_NUM_VALUES] = +{ + EXPORT_PERF_COUNTERS_OFF, + EXPORT_PERF_COUNTERS_ON, +}; + +EValues_FXAA_ALLOW g_valuesFXAA_ALLOW[FXAA_ALLOW_NUM_VALUES] = +{ + FXAA_ALLOW_DISALLOWED, + FXAA_ALLOW_ALLOWED, +}; + +EValues_FXAA_ENABLE g_valuesFXAA_ENABLE[FXAA_ENABLE_NUM_VALUES] = +{ + FXAA_ENABLE_OFF, + FXAA_ENABLE_ON, +}; + +EValues_FXAA_INDICATOR_ENABLE g_valuesFXAA_INDICATOR_ENABLE[FXAA_INDICATOR_ENABLE_NUM_VALUES] = +{ + FXAA_INDICATOR_ENABLE_OFF, + FXAA_INDICATOR_ENABLE_ON, +}; + +EValues_MCSFRSHOWSPLIT g_valuesMCSFRSHOWSPLIT[MCSFRSHOWSPLIT_NUM_VALUES] = +{ + MCSFRSHOWSPLIT_DISABLED, + MCSFRSHOWSPLIT_ENABLED, +}; + +EValues_NV_QUALITY_UPSCALING g_valuesNV_QUALITY_UPSCALING[NV_QUALITY_UPSCALING_NUM_VALUES] = +{ + NV_QUALITY_UPSCALING_OFF, + NV_QUALITY_UPSCALING_ON, +}; + +EValues_OPTIMUS_MAXAA g_valuesOPTIMUS_MAXAA[OPTIMUS_MAXAA_NUM_VALUES] = +{ + OPTIMUS_MAXAA_MIN, + OPTIMUS_MAXAA_MAX, +}; + +EValues_PHYSXINDICATOR g_valuesPHYSXINDICATOR[PHYSXINDICATOR_NUM_VALUES] = +{ + PHYSXINDICATOR_DISABLED, + PHYSXINDICATOR_ENABLED, +}; + +EValues_PREFERRED_PSTATE g_valuesPREFERRED_PSTATE[PREFERRED_PSTATE_NUM_VALUES] = +{ + PREFERRED_PSTATE_ADAPTIVE, + PREFERRED_PSTATE_PREFER_MAX, + PREFERRED_PSTATE_DRIVER_CONTROLLED, + PREFERRED_PSTATE_PREFER_CONSISTENT_PERFORMANCE, + PREFERRED_PSTATE_PREFER_MIN, + PREFERRED_PSTATE_MIN, + PREFERRED_PSTATE_MAX, +}; + +EValues_PREVENT_UI_AF_OVERRIDE g_valuesPREVENT_UI_AF_OVERRIDE[PREVENT_UI_AF_OVERRIDE_NUM_VALUES] = +{ + PREVENT_UI_AF_OVERRIDE_OFF, + PREVENT_UI_AF_OVERRIDE_ON, +}; + +EValues_PS_FRAMERATE_LIMITER g_valuesPS_FRAMERATE_LIMITER[PS_FRAMERATE_LIMITER_NUM_VALUES] = +{ + PS_FRAMERATE_LIMITER_DISABLED, + PS_FRAMERATE_LIMITER_FPS_20, + PS_FRAMERATE_LIMITER_FPS_30, + PS_FRAMERATE_LIMITER_FPS_40, + PS_FRAMERATE_LIMITER_FPSMASK, + PS_FRAMERATE_LIMITER_FORCE_VSYNC_OFF, + PS_FRAMERATE_LIMITER_GPS_WEB, + PS_FRAMERATE_LIMITER_FORCE_OPTIMUS_POLICY, + PS_FRAMERATE_LIMITER_DISALLOWED, + PS_FRAMERATE_LIMITER_USE_CPU_WAIT, + PS_FRAMERATE_LIMITER_THRESHOLD, + PS_FRAMERATE_LIMITER_TEMPERATURE, + PS_FRAMERATE_LIMITER_POWER, + PS_FRAMERATE_LIMITER_MODEMASK, + PS_FRAMERATE_LIMITER_ACCURATE, + PS_FRAMERATE_LIMITER_ALLOW_WINDOWED, + PS_FRAMERATE_LIMITER_FORCEON, + PS_FRAMERATE_LIMITER_ENABLED, + PS_FRAMERATE_LIMITER_OPENGL_REMOTE_DESKTOP, + PS_FRAMERATE_LIMITER_MASK, +}; + +EValues_PS_FRAMERATE_LIMITER_GPS_CTRL g_valuesPS_FRAMERATE_LIMITER_GPS_CTRL[PS_FRAMERATE_LIMITER_GPS_CTRL_NUM_VALUES] = +{ + PS_FRAMERATE_LIMITER_GPS_CTRL_DISABLED, + PS_FRAMERATE_LIMITER_GPS_CTRL_DECREASE_FILTER_MASK, + PS_FRAMERATE_LIMITER_GPS_CTRL_PAUSE_TIME_MASK, + PS_FRAMERATE_LIMITER_GPS_CTRL_PAUSE_TIME_SHIFT, + PS_FRAMERATE_LIMITER_GPS_CTRL_TARGET_RENDER_TIME_MASK, + PS_FRAMERATE_LIMITER_GPS_CTRL_TARGET_RENDER_TIME_SHIFT, + PS_FRAMERATE_LIMITER_GPS_CTRL_PERF_STEP_SIZE_MASK, + PS_FRAMERATE_LIMITER_GPS_CTRL_PERF_STEP_SIZE_SHIFT, + PS_FRAMERATE_LIMITER_GPS_CTRL_INCREASE_FILTER_MASK, + PS_FRAMERATE_LIMITER_GPS_CTRL_INCREASE_FILTER_SHIFT, + PS_FRAMERATE_LIMITER_GPS_CTRL_OPTIMAL_SETTING, +}; + +EValues_PS_FRAMERATE_MONITOR_CTRL g_valuesPS_FRAMERATE_MONITOR_CTRL[PS_FRAMERATE_MONITOR_CTRL_NUM_VALUES] = +{ + PS_FRAMERATE_MONITOR_CTRL_DISABLED, + PS_FRAMERATE_MONITOR_CTRL_THRESHOLD_PCT_MASK, + PS_FRAMERATE_MONITOR_CTRL_MOVING_AVG_X_MASK, + PS_FRAMERATE_MONITOR_CTRL_MOVING_AVG_X_SHIFT, + PS_FRAMERATE_MONITOR_CTRL_OPTIMAL_SETTING, +}; + +EValues_SHIM_MCCOMPAT g_valuesSHIM_MCCOMPAT[SHIM_MCCOMPAT_NUM_VALUES] = +{ + SHIM_MCCOMPAT_INTEGRATED, + SHIM_MCCOMPAT_ENABLE, + SHIM_MCCOMPAT_USER_EDITABLE, + SHIM_MCCOMPAT_MASK, + SHIM_MCCOMPAT_VIDEO_MASK, + SHIM_MCCOMPAT_VARYING_BIT, + SHIM_MCCOMPAT_AUTO_SELECT, + SHIM_MCCOMPAT_OVERRIDE_BIT, +}; + +EValues_SHIM_RENDERING_MODE g_valuesSHIM_RENDERING_MODE[SHIM_RENDERING_MODE_NUM_VALUES] = +{ + SHIM_RENDERING_MODE_INTEGRATED, + SHIM_RENDERING_MODE_ENABLE, + SHIM_RENDERING_MODE_USER_EDITABLE, + SHIM_RENDERING_MODE_MASK, + SHIM_RENDERING_MODE_VIDEO_MASK, + SHIM_RENDERING_MODE_VARYING_BIT, + SHIM_RENDERING_MODE_AUTO_SELECT, + SHIM_RENDERING_MODE_OVERRIDE_BIT, +}; + +EValues_SHIM_RENDERING_OPTIONS g_valuesSHIM_RENDERING_OPTIONS[SHIM_RENDERING_OPTIONS_NUM_VALUES] = +{ + SHIM_RENDERING_OPTIONS_DEFAULT_RENDERING_MODE, + SHIM_RENDERING_OPTIONS_DISABLE_ASYNC_PRESENT, + SHIM_RENDERING_OPTIONS_EHSHELL_DETECT, + SHIM_RENDERING_OPTIONS_FLASHPLAYER_HOST_DETECT, + SHIM_RENDERING_OPTIONS_VIDEO_DRM_APP_DETECT, + SHIM_RENDERING_OPTIONS_IGNORE_OVERRIDES, + SHIM_RENDERING_OPTIONS_CHILDPROCESS_DETECT, + SHIM_RENDERING_OPTIONS_ENABLE_DWM_ASYNC_PRESENT, + SHIM_RENDERING_OPTIONS_PARENTPROCESS_DETECT, + SHIM_RENDERING_OPTIONS_ALLOW_INHERITANCE, + SHIM_RENDERING_OPTIONS_DISABLE_WRAPPERS, + SHIM_RENDERING_OPTIONS_DISABLE_DXGI_WRAPPERS, + SHIM_RENDERING_OPTIONS_PRUNE_UNSUPPORTED_FORMATS, + SHIM_RENDERING_OPTIONS_ENABLE_ALPHA_FORMAT, + SHIM_RENDERING_OPTIONS_IGPU_TRANSCODING, + SHIM_RENDERING_OPTIONS_DISABLE_CUDA, + SHIM_RENDERING_OPTIONS_ALLOW_CP_CAPS_FOR_VIDEO, + SHIM_RENDERING_OPTIONS_IGPU_TRANSCODING_FWD_OPTIMUS, + SHIM_RENDERING_OPTIONS_DISABLE_DURING_SECURE_BOOT, + SHIM_RENDERING_OPTIONS_INVERT_FOR_QUADRO, + SHIM_RENDERING_OPTIONS_INVERT_FOR_MSHYBRID, + SHIM_RENDERING_OPTIONS_REGISTER_PROCESS_ENABLE_GOLD, + SHIM_RENDERING_OPTIONS_HANDLE_WINDOWED_MODE_PERF_OPT, + SHIM_RENDERING_OPTIONS_HANDLE_WIN7_ASYNC_RUNTIME_BUG, +}; + +EValues_SLI_GPU_COUNT g_valuesSLI_GPU_COUNT[SLI_GPU_COUNT_NUM_VALUES] = +{ + SLI_GPU_COUNT_AUTOSELECT, + SLI_GPU_COUNT_ONE, + SLI_GPU_COUNT_TWO, + SLI_GPU_COUNT_THREE, + SLI_GPU_COUNT_FOUR, +}; + +EValues_SLI_PREDEFINED_GPU_COUNT g_valuesSLI_PREDEFINED_GPU_COUNT[SLI_PREDEFINED_GPU_COUNT_NUM_VALUES] = +{ + SLI_PREDEFINED_GPU_COUNT_AUTOSELECT, + SLI_PREDEFINED_GPU_COUNT_ONE, + SLI_PREDEFINED_GPU_COUNT_TWO, + SLI_PREDEFINED_GPU_COUNT_THREE, + SLI_PREDEFINED_GPU_COUNT_FOUR, +}; + +EValues_SLI_PREDEFINED_GPU_COUNT_DX10 g_valuesSLI_PREDEFINED_GPU_COUNT_DX10[SLI_PREDEFINED_GPU_COUNT_DX10_NUM_VALUES] = +{ + SLI_PREDEFINED_GPU_COUNT_DX10_AUTOSELECT, + SLI_PREDEFINED_GPU_COUNT_DX10_ONE, + SLI_PREDEFINED_GPU_COUNT_DX10_TWO, + SLI_PREDEFINED_GPU_COUNT_DX10_THREE, + SLI_PREDEFINED_GPU_COUNT_DX10_FOUR, +}; + +EValues_SLI_PREDEFINED_MODE g_valuesSLI_PREDEFINED_MODE[SLI_PREDEFINED_MODE_NUM_VALUES] = +{ + SLI_PREDEFINED_MODE_AUTOSELECT, + SLI_PREDEFINED_MODE_FORCE_SINGLE, + SLI_PREDEFINED_MODE_FORCE_AFR, + SLI_PREDEFINED_MODE_FORCE_AFR2, + SLI_PREDEFINED_MODE_FORCE_SFR, + SLI_PREDEFINED_MODE_FORCE_AFR_OF_SFR__FALLBACK_3AFR, +}; + +EValues_SLI_PREDEFINED_MODE_DX10 g_valuesSLI_PREDEFINED_MODE_DX10[SLI_PREDEFINED_MODE_DX10_NUM_VALUES] = +{ + SLI_PREDEFINED_MODE_DX10_AUTOSELECT, + SLI_PREDEFINED_MODE_DX10_FORCE_SINGLE, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR2, + SLI_PREDEFINED_MODE_DX10_FORCE_SFR, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR_OF_SFR__FALLBACK_3AFR, +}; + +EValues_SLI_RENDERING_MODE g_valuesSLI_RENDERING_MODE[SLI_RENDERING_MODE_NUM_VALUES] = +{ + SLI_RENDERING_MODE_AUTOSELECT, + SLI_RENDERING_MODE_FORCE_SINGLE, + SLI_RENDERING_MODE_FORCE_AFR, + SLI_RENDERING_MODE_FORCE_AFR2, + SLI_RENDERING_MODE_FORCE_SFR, + SLI_RENDERING_MODE_FORCE_AFR_OF_SFR__FALLBACK_3AFR, +}; + +EValues_VRPRERENDERLIMIT g_valuesVRPRERENDERLIMIT[VRPRERENDERLIMIT_NUM_VALUES] = +{ + VRPRERENDERLIMIT_MIN, + VRPRERENDERLIMIT_MAX, + VRPRERENDERLIMIT_APP_CONTROLLED, + VRPRERENDERLIMIT_DEFAULT, +}; + +EValues_VRRFEATUREINDICATOR g_valuesVRRFEATUREINDICATOR[VRRFEATUREINDICATOR_NUM_VALUES] = +{ + VRRFEATUREINDICATOR_DISABLED, + VRRFEATUREINDICATOR_ENABLED, +}; + +EValues_VRROVERLAYINDICATOR g_valuesVRROVERLAYINDICATOR[VRROVERLAYINDICATOR_NUM_VALUES] = +{ + VRROVERLAYINDICATOR_DISABLED, + VRROVERLAYINDICATOR_ENABLED, +}; + +EValues_VRRREQUESTSTATE g_valuesVRRREQUESTSTATE[VRRREQUESTSTATE_NUM_VALUES] = +{ + VRRREQUESTSTATE_DISABLED, + VRRREQUESTSTATE_FULLSCREEN_ONLY, + VRRREQUESTSTATE_FULLSCREEN_AND_WINDOWED, +}; + +EValues_VRR_APP_OVERRIDE g_valuesVRR_APP_OVERRIDE[VRR_APP_OVERRIDE_NUM_VALUES] = +{ + VRR_APP_OVERRIDE_ALLOW, + VRR_APP_OVERRIDE_FORCE_OFF, + VRR_APP_OVERRIDE_DISALLOW, + VRR_APP_OVERRIDE_ULMB, + VRR_APP_OVERRIDE_FIXED_REFRESH, +}; + +EValues_VRR_MODE g_valuesVRR_MODE[VRR_MODE_NUM_VALUES] = +{ + VRR_MODE_DISABLED, + VRR_MODE_FULLSCREEN_ONLY, + VRR_MODE_FULLSCREEN_AND_WINDOWED, +}; + +EValues_VSYNCSMOOTHAFR g_valuesVSYNCSMOOTHAFR[VSYNCSMOOTHAFR_NUM_VALUES] = +{ + VSYNCSMOOTHAFR_OFF, + VSYNCSMOOTHAFR_ON, +}; + +EValues_VSYNCVRRCONTROL g_valuesVSYNCVRRCONTROL[VSYNCVRRCONTROL_NUM_VALUES] = +{ + VSYNCVRRCONTROL_DISABLE, + VSYNCVRRCONTROL_ENABLE, + VSYNCVRRCONTROL_NOTSUPPORTED, +}; + +EValues_VSYNC_BEHAVIOR_FLAGS g_valuesVSYNC_BEHAVIOR_FLAGS[VSYNC_BEHAVIOR_FLAGS_NUM_VALUES] = +{ + VSYNC_BEHAVIOR_FLAGS_NONE, + VSYNC_BEHAVIOR_FLAGS_DEFAULT, + VSYNC_BEHAVIOR_FLAGS_IGNORE_FLIPINTERVAL_MULTIPLE, +}; + +EValues_WKS_API_STEREO_EYES_EXCHANGE g_valuesWKS_API_STEREO_EYES_EXCHANGE[WKS_API_STEREO_EYES_EXCHANGE_NUM_VALUES] = +{ + WKS_API_STEREO_EYES_EXCHANGE_OFF, + WKS_API_STEREO_EYES_EXCHANGE_ON, +}; + +EValues_WKS_API_STEREO_MODE g_valuesWKS_API_STEREO_MODE[WKS_API_STEREO_MODE_NUM_VALUES] = +{ + WKS_API_STEREO_MODE_SHUTTER_GLASSES, + WKS_API_STEREO_MODE_VERTICAL_INTERLACED, + WKS_API_STEREO_MODE_TWINVIEW, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_AUTO, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_DAC0, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_DAC1, + WKS_API_STEREO_MODE_COLOR_LINE, + WKS_API_STEREO_MODE_COLOR_INTERLEAVED, + WKS_API_STEREO_MODE_ANAGLYPH, + WKS_API_STEREO_MODE_HORIZONTAL_INTERLACED, + WKS_API_STEREO_MODE_SIDE_FIELD, + WKS_API_STEREO_MODE_SUB_FIELD, + WKS_API_STEREO_MODE_CHECKERBOARD, + WKS_API_STEREO_MODE_INVERSE_CHECKERBOARD, + WKS_API_STEREO_MODE_TRIDELITY_SL, + WKS_API_STEREO_MODE_TRIDELITY_MV, + WKS_API_STEREO_MODE_SEEFRONT, + WKS_API_STEREO_MODE_STEREO_MIRROR, + WKS_API_STEREO_MODE_FRAME_SEQUENTIAL, + WKS_API_STEREO_MODE_AUTODETECT_PASSIVE_MODE, + WKS_API_STEREO_MODE_AEGIS_DT_FRAME_SEQUENTIAL, + WKS_API_STEREO_MODE_OEM_EMITTER_FRAME_SEQUENTIAL, + WKS_API_STEREO_MODE_USE_HW_DEFAULT, + WKS_API_STEREO_MODE_DEFAULT_GL, +}; + +EValues_WKS_MEMORY_ALLOCATION_POLICY g_valuesWKS_MEMORY_ALLOCATION_POLICY[WKS_MEMORY_ALLOCATION_POLICY_NUM_VALUES] = +{ + WKS_MEMORY_ALLOCATION_POLICY_AS_NEEDED, + WKS_MEMORY_ALLOCATION_POLICY_MODERATE_PRE_ALLOCATION, + WKS_MEMORY_ALLOCATION_POLICY_AGGRESSIVE_PRE_ALLOCATION, +}; + +EValues_WKS_STEREO_DONGLE_SUPPORT g_valuesWKS_STEREO_DONGLE_SUPPORT[WKS_STEREO_DONGLE_SUPPORT_NUM_VALUES] = +{ + WKS_STEREO_DONGLE_SUPPORT_OFF, + WKS_STEREO_DONGLE_SUPPORT_DAC, + WKS_STEREO_DONGLE_SUPPORT_DLP, +}; + +EValues_WKS_STEREO_SUPPORT g_valuesWKS_STEREO_SUPPORT[WKS_STEREO_SUPPORT_NUM_VALUES] = +{ + WKS_STEREO_SUPPORT_OFF, + WKS_STEREO_SUPPORT_ON, +}; + +EValues_WKS_STEREO_SWAP_MODE g_valuesWKS_STEREO_SWAP_MODE[WKS_STEREO_SWAP_MODE_NUM_VALUES] = +{ + WKS_STEREO_SWAP_MODE_APPLICATION_CONTROL, + WKS_STEREO_SWAP_MODE_PER_EYE, + WKS_STEREO_SWAP_MODE_PER_EYE_PAIR, + WKS_STEREO_SWAP_MODE_LEGACY_BEHAVIOR, +}; + +EValues_AO_MODE g_valuesAO_MODE[AO_MODE_NUM_VALUES] = +{ + AO_MODE_OFF, + AO_MODE_LOW, + AO_MODE_MEDIUM, + AO_MODE_HIGH, +}; + +EValues_AO_MODE_ACTIVE g_valuesAO_MODE_ACTIVE[AO_MODE_ACTIVE_NUM_VALUES] = +{ + AO_MODE_ACTIVE_DISABLED, + AO_MODE_ACTIVE_ENABLED, +}; + +EValues_AUTO_LODBIASADJUST g_valuesAUTO_LODBIASADJUST[AUTO_LODBIASADJUST_NUM_VALUES] = +{ + AUTO_LODBIASADJUST_OFF, + AUTO_LODBIASADJUST_ON, +}; + +EValues_LODBIASADJUST g_valuesLODBIASADJUST[LODBIASADJUST_NUM_VALUES] = +{ + LODBIASADJUST_MIN, + LODBIASADJUST_MAX, +}; + +EValues_MAXWELL_B_SAMPLE_INTERLEAVE g_valuesMAXWELL_B_SAMPLE_INTERLEAVE[MAXWELL_B_SAMPLE_INTERLEAVE_NUM_VALUES] = +{ + MAXWELL_B_SAMPLE_INTERLEAVE_OFF, + MAXWELL_B_SAMPLE_INTERLEAVE_ON, +}; + +EValues_PRERENDERLIMIT g_valuesPRERENDERLIMIT[PRERENDERLIMIT_NUM_VALUES] = +{ + PRERENDERLIMIT_MIN, + PRERENDERLIMIT_MAX, + PRERENDERLIMIT_APP_CONTROLLED, +}; + +EValues_PS_SHADERDISKCACHE g_valuesPS_SHADERDISKCACHE[PS_SHADERDISKCACHE_NUM_VALUES] = +{ + PS_SHADERDISKCACHE_OFF, + PS_SHADERDISKCACHE_ON, +}; + +EValues_PS_TEXFILTER_ANISO_OPTS2 g_valuesPS_TEXFILTER_ANISO_OPTS2[PS_TEXFILTER_ANISO_OPTS2_NUM_VALUES] = +{ + PS_TEXFILTER_ANISO_OPTS2_OFF, + PS_TEXFILTER_ANISO_OPTS2_ON, +}; + +EValues_PS_TEXFILTER_BILINEAR_IN_ANISO g_valuesPS_TEXFILTER_BILINEAR_IN_ANISO[PS_TEXFILTER_BILINEAR_IN_ANISO_NUM_VALUES] = +{ + PS_TEXFILTER_BILINEAR_IN_ANISO_OFF, + PS_TEXFILTER_BILINEAR_IN_ANISO_ON, +}; + +EValues_PS_TEXFILTER_DISABLE_TRILIN_SLOPE g_valuesPS_TEXFILTER_DISABLE_TRILIN_SLOPE[PS_TEXFILTER_DISABLE_TRILIN_SLOPE_NUM_VALUES] = +{ + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_OFF, + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_ON, +}; + +EValues_PS_TEXFILTER_NO_NEG_LODBIAS g_valuesPS_TEXFILTER_NO_NEG_LODBIAS[PS_TEXFILTER_NO_NEG_LODBIAS_NUM_VALUES] = +{ + PS_TEXFILTER_NO_NEG_LODBIAS_OFF, + PS_TEXFILTER_NO_NEG_LODBIAS_ON, +}; + +EValues_QUALITY_ENHANCEMENTS g_valuesQUALITY_ENHANCEMENTS[QUALITY_ENHANCEMENTS_NUM_VALUES] = +{ + QUALITY_ENHANCEMENTS_HIGHQUALITY, + QUALITY_ENHANCEMENTS_QUALITY, + QUALITY_ENHANCEMENTS_PERFORMANCE, + QUALITY_ENHANCEMENTS_HIGHPERFORMANCE, +}; + +EValues_REFRESH_RATE_OVERRIDE g_valuesREFRESH_RATE_OVERRIDE[REFRESH_RATE_OVERRIDE_NUM_VALUES] = +{ + REFRESH_RATE_OVERRIDE_APPLICATION_CONTROLLED, + REFRESH_RATE_OVERRIDE_HIGHEST_AVAILABLE, +}; + +EValues_SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE g_valuesSET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE[SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_NUM_VALUES] = +{ + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_OFF, + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_ON, +}; + +EValues_SET_VAB_DATA g_valuesSET_VAB_DATA[SET_VAB_DATA_NUM_VALUES] = +{ + SET_VAB_DATA_ZERO, + SET_VAB_DATA_UINT_ONE, + SET_VAB_DATA_FLOAT_ONE, + SET_VAB_DATA_FLOAT_POS_INF, + SET_VAB_DATA_FLOAT_NAN, + SET_VAB_DATA_USE_API_DEFAULTS, +}; + +EValues_VSYNCMODE g_valuesVSYNCMODE[VSYNCMODE_NUM_VALUES] = +{ + VSYNCMODE_PASSIVE, + VSYNCMODE_FORCEOFF, + VSYNCMODE_FORCEON, + VSYNCMODE_FLIPINTERVAL2, + VSYNCMODE_FLIPINTERVAL3, + VSYNCMODE_FLIPINTERVAL4, +}; + +EValues_VSYNCTEARCONTROL g_valuesVSYNCTEARCONTROL[VSYNCTEARCONTROL_NUM_VALUES] = +{ + VSYNCTEARCONTROL_DISABLE, + VSYNCTEARCONTROL_ENABLE, +}; + + +SettingDWORDNameString mapSettingDWORD[TOTAL_DWORD_SETTING_NUM] = +{ + {OGL_AA_LINE_GAMMA_ID, OGL_AA_LINE_GAMMA_STRING, 4, (NvU32 *)g_valuesOGL_AA_LINE_GAMMA, OGL_AA_LINE_GAMMA_DISABLED}, + {OGL_DEEP_COLOR_SCANOUT_ID, OGL_DEEP_COLOR_SCANOUT_STRING, 2, (NvU32 *)g_valuesOGL_DEEP_COLOR_SCANOUT, OGL_DEEP_COLOR_SCANOUT_ENABLE}, + {OGL_DEFAULT_SWAP_INTERVAL_ID, OGL_DEFAULT_SWAP_INTERVAL_STRING, 9, (NvU32 *)g_valuesOGL_DEFAULT_SWAP_INTERVAL, OGL_DEFAULT_SWAP_INTERVAL_VSYNC_ONE}, + {OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ID, OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_STRING, 2, (NvU32 *)g_valuesOGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL, 0x00000000}, + {OGL_DEFAULT_SWAP_INTERVAL_SIGN_ID, OGL_DEFAULT_SWAP_INTERVAL_SIGN_STRING, 2, (NvU32 *)g_valuesOGL_DEFAULT_SWAP_INTERVAL_SIGN, OGL_DEFAULT_SWAP_INTERVAL_SIGN_POSITIVE}, + {OGL_EVENT_LOG_SEVERITY_THRESHOLD_ID, OGL_EVENT_LOG_SEVERITY_THRESHOLD_STRING, 5, (NvU32 *)g_valuesOGL_EVENT_LOG_SEVERITY_THRESHOLD, OGL_EVENT_LOG_SEVERITY_THRESHOLD_CRITICAL}, + {OGL_EXTENSION_STRING_VERSION_ID, OGL_EXTENSION_STRING_VERSION_STRING, 0, NULL, 0x00000000}, + {OGL_FORCE_BLIT_ID, OGL_FORCE_BLIT_STRING, 2, (NvU32 *)g_valuesOGL_FORCE_BLIT, OGL_FORCE_BLIT_OFF}, + {OGL_FORCE_STEREO_ID, OGL_FORCE_STEREO_STRING, 2, (NvU32 *)g_valuesOGL_FORCE_STEREO, OGL_FORCE_STEREO_OFF}, + {OGL_MAX_FRAMES_ALLOWED_ID, OGL_MAX_FRAMES_ALLOWED_STRING, 0, NULL, 0x00000002}, + {OGL_MULTIMON_ID, OGL_MULTIMON_STRING, 8, (NvU32 *)g_valuesOGL_MULTIMON, OGL_MULTIMON_PERFORMANCE_LCD}, + {OGL_OVERLAY_PIXEL_TYPE_ID, OGL_OVERLAY_PIXEL_TYPE_STRING, 4, (NvU32 *)g_valuesOGL_OVERLAY_PIXEL_TYPE, OGL_OVERLAY_PIXEL_TYPE_CI}, + {OGL_OVERLAY_SUPPORT_ID, OGL_OVERLAY_SUPPORT_STRING, 3, (NvU32 *)g_valuesOGL_OVERLAY_SUPPORT, OGL_OVERLAY_SUPPORT_OFF}, + {OGL_QUALITY_ENHANCEMENTS_ID, OGL_QUALITY_ENHANCEMENTS_STRING, 4, (NvU32 *)g_valuesOGL_QUALITY_ENHANCEMENTS, OGL_QUALITY_ENHANCEMENTS_QUAL}, + {OGL_SINGLE_BACKDEPTH_BUFFER_ID, OGL_SINGLE_BACKDEPTH_BUFFER_STRING, 3, (NvU32 *)g_valuesOGL_SINGLE_BACKDEPTH_BUFFER, OGL_SINGLE_BACKDEPTH_BUFFER_DISABLE}, + {OGL_THREAD_CONTROL_ID, OGL_THREAD_CONTROL_STRING, 2, (NvU32 *)g_valuesOGL_THREAD_CONTROL, 0x00000000}, + {OGL_TRIPLE_BUFFER_ID, OGL_TRIPLE_BUFFER_STRING, 2, (NvU32 *)g_valuesOGL_TRIPLE_BUFFER, OGL_TRIPLE_BUFFER_DISABLED}, + {OGL_VIDEO_EDITING_MODE_ID, OGL_VIDEO_EDITING_MODE_STRING, 2, (NvU32 *)g_valuesOGL_VIDEO_EDITING_MODE, OGL_VIDEO_EDITING_MODE_DISABLE}, + {AA_BEHAVIOR_FLAGS_ID, AA_BEHAVIOR_FLAGS_STRING, 18, (NvU32 *)g_valuesAA_BEHAVIOR_FLAGS, AA_BEHAVIOR_FLAGS_DEFAULT}, + {AA_MODE_ALPHATOCOVERAGE_ID, AA_MODE_ALPHATOCOVERAGE_STRING, 4, (NvU32 *)g_valuesAA_MODE_ALPHATOCOVERAGE, 0x00000000}, + {AA_MODE_GAMMACORRECTION_ID, AA_MODE_GAMMACORRECTION_STRING, 8, (NvU32 *)g_valuesAA_MODE_GAMMACORRECTION, 0x00000000}, + {AA_MODE_METHOD_ID, AA_MODE_METHOD_STRING, 50, (NvU32 *)g_valuesAA_MODE_METHOD, AA_MODE_METHOD_NONE}, + {AA_MODE_REPLAY_ID, AA_MODE_REPLAY_STRING, 20, (NvU32 *)g_valuesAA_MODE_REPLAY, 0x00000000}, + {AA_MODE_SELECTOR_ID, AA_MODE_SELECTOR_STRING, 5, (NvU32 *)g_valuesAA_MODE_SELECTOR, AA_MODE_SELECTOR_APP_CONTROL}, + {AA_MODE_SELECTOR_SLIAA_ID, AA_MODE_SELECTOR_SLIAA_STRING, 2, (NvU32 *)g_valuesAA_MODE_SELECTOR_SLIAA, AA_MODE_SELECTOR_SLIAA_DISABLED}, + {ANISO_MODE_LEVEL_ID, ANISO_MODE_LEVEL_STRING, 5, (NvU32 *)g_valuesANISO_MODE_LEVEL, ANISO_MODE_LEVEL_DEFAULT}, + {ANISO_MODE_SELECTOR_ID, ANISO_MODE_SELECTOR_STRING, 6, (NvU32 *)g_valuesANISO_MODE_SELECTOR, ANISO_MODE_SELECTOR_DEFAULT}, + {APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_ID, APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_STRING, 6, (NvU32 *)g_valuesAPPLICATION_PROFILE_NOTIFICATION_TIMEOUT, APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_DISABLED}, + {APPLICATION_STEAM_ID_ID, APPLICATION_STEAM_ID_STRING, 0, NULL, 0x00000000}, + {CPL_HIDDEN_PROFILE_ID, CPL_HIDDEN_PROFILE_STRING, 2, (NvU32 *)g_valuesCPL_HIDDEN_PROFILE, CPL_HIDDEN_PROFILE_DISABLED}, + {EXPORT_PERF_COUNTERS_ID, EXPORT_PERF_COUNTERS_STRING, 2, (NvU32 *)g_valuesEXPORT_PERF_COUNTERS, EXPORT_PERF_COUNTERS_OFF}, + {FXAA_ALLOW_ID, FXAA_ALLOW_STRING, 2, (NvU32 *)g_valuesFXAA_ALLOW, FXAA_ALLOW_ALLOWED}, + {FXAA_ENABLE_ID, FXAA_ENABLE_STRING, 2, (NvU32 *)g_valuesFXAA_ENABLE, FXAA_ENABLE_OFF}, + {FXAA_INDICATOR_ENABLE_ID, FXAA_INDICATOR_ENABLE_STRING, 2, (NvU32 *)g_valuesFXAA_INDICATOR_ENABLE, FXAA_INDICATOR_ENABLE_OFF}, + {MCSFRSHOWSPLIT_ID, MCSFRSHOWSPLIT_STRING, 2, (NvU32 *)g_valuesMCSFRSHOWSPLIT, MCSFRSHOWSPLIT_DISABLED}, + {NV_QUALITY_UPSCALING_ID, NV_QUALITY_UPSCALING_STRING, 2, (NvU32 *)g_valuesNV_QUALITY_UPSCALING, NV_QUALITY_UPSCALING_OFF}, + {OPTIMUS_MAXAA_ID, OPTIMUS_MAXAA_STRING, 2, (NvU32 *)g_valuesOPTIMUS_MAXAA, 0x00000000}, + {PHYSXINDICATOR_ID, PHYSXINDICATOR_STRING, 2, (NvU32 *)g_valuesPHYSXINDICATOR, PHYSXINDICATOR_DISABLED}, + {PREFERRED_PSTATE_ID, PREFERRED_PSTATE_STRING, 7, (NvU32 *)g_valuesPREFERRED_PSTATE, PREFERRED_PSTATE_ADAPTIVE}, + {PREVENT_UI_AF_OVERRIDE_ID, PREVENT_UI_AF_OVERRIDE_STRING, 2, (NvU32 *)g_valuesPREVENT_UI_AF_OVERRIDE, PREVENT_UI_AF_OVERRIDE_OFF}, + {PS_FRAMERATE_LIMITER_ID, PS_FRAMERATE_LIMITER_STRING, 20, (NvU32 *)g_valuesPS_FRAMERATE_LIMITER, PS_FRAMERATE_LIMITER_DISABLED}, + {PS_FRAMERATE_LIMITER_GPS_CTRL_ID, PS_FRAMERATE_LIMITER_GPS_CTRL_STRING, 11, (NvU32 *)g_valuesPS_FRAMERATE_LIMITER_GPS_CTRL, PS_FRAMERATE_LIMITER_GPS_CTRL_DISABLED}, + {PS_FRAMERATE_MONITOR_CTRL_ID, PS_FRAMERATE_MONITOR_CTRL_STRING, 5, (NvU32 *)g_valuesPS_FRAMERATE_MONITOR_CTRL, PS_FRAMERATE_MONITOR_CTRL_DISABLED}, + {SHIM_MAXRES_ID, SHIM_MAXRES_STRING, 0, NULL, 0x00000000}, + {SHIM_MCCOMPAT_ID, SHIM_MCCOMPAT_STRING, 8, (NvU32 *)g_valuesSHIM_MCCOMPAT, SHIM_MCCOMPAT_AUTO_SELECT}, + {SHIM_RENDERING_MODE_ID, SHIM_RENDERING_MODE_STRING, 8, (NvU32 *)g_valuesSHIM_RENDERING_MODE, SHIM_RENDERING_MODE_AUTO_SELECT}, + {SHIM_RENDERING_OPTIONS_ID, SHIM_RENDERING_OPTIONS_STRING, 24, (NvU32 *)g_valuesSHIM_RENDERING_OPTIONS, SHIM_RENDERING_OPTIONS_DEFAULT_RENDERING_MODE}, + {SLI_GPU_COUNT_ID, SLI_GPU_COUNT_STRING, 5, (NvU32 *)g_valuesSLI_GPU_COUNT, SLI_GPU_COUNT_AUTOSELECT}, + {SLI_PREDEFINED_GPU_COUNT_ID, SLI_PREDEFINED_GPU_COUNT_STRING, 5, (NvU32 *)g_valuesSLI_PREDEFINED_GPU_COUNT, SLI_PREDEFINED_GPU_COUNT_AUTOSELECT}, + {SLI_PREDEFINED_GPU_COUNT_DX10_ID, SLI_PREDEFINED_GPU_COUNT_DX10_STRING, 5, (NvU32 *)g_valuesSLI_PREDEFINED_GPU_COUNT_DX10, SLI_PREDEFINED_GPU_COUNT_DX10_AUTOSELECT}, + {SLI_PREDEFINED_MODE_ID, SLI_PREDEFINED_MODE_STRING, 6, (NvU32 *)g_valuesSLI_PREDEFINED_MODE, SLI_PREDEFINED_MODE_AUTOSELECT}, + {SLI_PREDEFINED_MODE_DX10_ID, SLI_PREDEFINED_MODE_DX10_STRING, 6, (NvU32 *)g_valuesSLI_PREDEFINED_MODE_DX10, SLI_PREDEFINED_MODE_DX10_AUTOSELECT}, + {SLI_RENDERING_MODE_ID, SLI_RENDERING_MODE_STRING, 6, (NvU32 *)g_valuesSLI_RENDERING_MODE, SLI_RENDERING_MODE_AUTOSELECT}, + {VRPRERENDERLIMIT_ID, VRPRERENDERLIMIT_STRING, 4, (NvU32 *)g_valuesVRPRERENDERLIMIT, VRPRERENDERLIMIT_DEFAULT}, + {VRRFEATUREINDICATOR_ID, VRRFEATUREINDICATOR_STRING, 2, (NvU32 *)g_valuesVRRFEATUREINDICATOR, VRRFEATUREINDICATOR_ENABLED}, + {VRROVERLAYINDICATOR_ID, VRROVERLAYINDICATOR_STRING, 2, (NvU32 *)g_valuesVRROVERLAYINDICATOR, VRROVERLAYINDICATOR_ENABLED}, + {VRRREQUESTSTATE_ID, VRRREQUESTSTATE_STRING, 3, (NvU32 *)g_valuesVRRREQUESTSTATE, VRRREQUESTSTATE_FULLSCREEN_ONLY}, + {VRR_APP_OVERRIDE_ID, VRR_APP_OVERRIDE_STRING, 5, (NvU32 *)g_valuesVRR_APP_OVERRIDE, VRR_APP_OVERRIDE_ALLOW}, + {VRR_MODE_ID, VRR_MODE_STRING, 3, (NvU32 *)g_valuesVRR_MODE, VRR_MODE_FULLSCREEN_ONLY}, + {VSYNCSMOOTHAFR_ID, VSYNCSMOOTHAFR_STRING, 2, (NvU32 *)g_valuesVSYNCSMOOTHAFR, VSYNCSMOOTHAFR_OFF}, + {VSYNCVRRCONTROL_ID, VSYNCVRRCONTROL_STRING, 3, (NvU32 *)g_valuesVSYNCVRRCONTROL, VSYNCVRRCONTROL_ENABLE}, + {VSYNC_BEHAVIOR_FLAGS_ID, VSYNC_BEHAVIOR_FLAGS_STRING, 3, (NvU32 *)g_valuesVSYNC_BEHAVIOR_FLAGS, VSYNC_BEHAVIOR_FLAGS_DEFAULT}, + {WKS_API_STEREO_EYES_EXCHANGE_ID, WKS_API_STEREO_EYES_EXCHANGE_STRING, 2, (NvU32 *)g_valuesWKS_API_STEREO_EYES_EXCHANGE, WKS_API_STEREO_EYES_EXCHANGE_OFF}, + {WKS_API_STEREO_MODE_ID, WKS_API_STEREO_MODE_STRING, 24, (NvU32 *)g_valuesWKS_API_STEREO_MODE, WKS_API_STEREO_MODE_SHUTTER_GLASSES}, + {WKS_MEMORY_ALLOCATION_POLICY_ID, WKS_MEMORY_ALLOCATION_POLICY_STRING, 3, (NvU32 *)g_valuesWKS_MEMORY_ALLOCATION_POLICY, WKS_MEMORY_ALLOCATION_POLICY_AS_NEEDED}, + {WKS_STEREO_DONGLE_SUPPORT_ID, WKS_STEREO_DONGLE_SUPPORT_STRING, 3, (NvU32 *)g_valuesWKS_STEREO_DONGLE_SUPPORT, WKS_STEREO_DONGLE_SUPPORT_OFF}, + {WKS_STEREO_SUPPORT_ID, WKS_STEREO_SUPPORT_STRING, 2, (NvU32 *)g_valuesWKS_STEREO_SUPPORT, WKS_STEREO_SUPPORT_OFF}, + {WKS_STEREO_SWAP_MODE_ID, WKS_STEREO_SWAP_MODE_STRING, 4, (NvU32 *)g_valuesWKS_STEREO_SWAP_MODE, WKS_STEREO_SWAP_MODE_APPLICATION_CONTROL}, + {AO_MODE_ID, AO_MODE_STRING, 4, (NvU32 *)g_valuesAO_MODE, AO_MODE_OFF}, + {AO_MODE_ACTIVE_ID, AO_MODE_ACTIVE_STRING, 2, (NvU32 *)g_valuesAO_MODE_ACTIVE, AO_MODE_ACTIVE_DISABLED}, + {AUTO_LODBIASADJUST_ID, AUTO_LODBIASADJUST_STRING, 2, (NvU32 *)g_valuesAUTO_LODBIASADJUST, AUTO_LODBIASADJUST_ON}, + {LODBIASADJUST_ID, LODBIASADJUST_STRING, 2, (NvU32 *)g_valuesLODBIASADJUST, 0x00000000}, + {MAXWELL_B_SAMPLE_INTERLEAVE_ID, MAXWELL_B_SAMPLE_INTERLEAVE_STRING, 2, (NvU32 *)g_valuesMAXWELL_B_SAMPLE_INTERLEAVE, MAXWELL_B_SAMPLE_INTERLEAVE_OFF}, + {PRERENDERLIMIT_ID, PRERENDERLIMIT_STRING, 3, (NvU32 *)g_valuesPRERENDERLIMIT, PRERENDERLIMIT_APP_CONTROLLED}, + {PS_SHADERDISKCACHE_ID, PS_SHADERDISKCACHE_STRING, 2, (NvU32 *)g_valuesPS_SHADERDISKCACHE, 0x00000000}, + {PS_TEXFILTER_ANISO_OPTS2_ID, PS_TEXFILTER_ANISO_OPTS2_STRING, 2, (NvU32 *)g_valuesPS_TEXFILTER_ANISO_OPTS2, PS_TEXFILTER_ANISO_OPTS2_OFF}, + {PS_TEXFILTER_BILINEAR_IN_ANISO_ID, PS_TEXFILTER_BILINEAR_IN_ANISO_STRING, 2, (NvU32 *)g_valuesPS_TEXFILTER_BILINEAR_IN_ANISO, PS_TEXFILTER_BILINEAR_IN_ANISO_OFF}, + {PS_TEXFILTER_DISABLE_TRILIN_SLOPE_ID, PS_TEXFILTER_DISABLE_TRILIN_SLOPE_STRING, 2, (NvU32 *)g_valuesPS_TEXFILTER_DISABLE_TRILIN_SLOPE, PS_TEXFILTER_DISABLE_TRILIN_SLOPE_OFF}, + {PS_TEXFILTER_NO_NEG_LODBIAS_ID, PS_TEXFILTER_NO_NEG_LODBIAS_STRING, 2, (NvU32 *)g_valuesPS_TEXFILTER_NO_NEG_LODBIAS, PS_TEXFILTER_NO_NEG_LODBIAS_OFF}, + {QUALITY_ENHANCEMENTS_ID, QUALITY_ENHANCEMENTS_STRING, 4, (NvU32 *)g_valuesQUALITY_ENHANCEMENTS, QUALITY_ENHANCEMENTS_QUALITY}, + {REFRESH_RATE_OVERRIDE_ID, REFRESH_RATE_OVERRIDE_STRING, 2, (NvU32 *)g_valuesREFRESH_RATE_OVERRIDE, REFRESH_RATE_OVERRIDE_APPLICATION_CONTROLLED}, + {SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_ID, SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_STRING, 2, (NvU32 *)g_valuesSET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE, SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_OFF}, + {SET_VAB_DATA_ID, SET_VAB_DATA_STRING, 6, (NvU32 *)g_valuesSET_VAB_DATA, SET_VAB_DATA_USE_API_DEFAULTS}, + {VSYNCMODE_ID, VSYNCMODE_STRING, 6, (NvU32 *)g_valuesVSYNCMODE, VSYNCMODE_PASSIVE}, + {VSYNCTEARCONTROL_ID, VSYNCTEARCONTROL_STRING, 2, (NvU32 *)g_valuesVSYNCTEARCONTROL, VSYNCTEARCONTROL_DISABLE}, +}; + +SettingWSTRINGNameString mapSettingWSTRING[TOTAL_WSTRING_SETTING_NUM] = +{ + {OGL_IMPLICIT_GPU_AFFINITY_ID, OGL_IMPLICIT_GPU_AFFINITY_STRING, 1, (const wchar_t **)g_valuesOGL_IMPLICIT_GPU_AFFINITY, L"autoselect"}, + {CUDA_EXCLUDED_GPUS_ID, CUDA_EXCLUDED_GPUS_STRING, 1, (const wchar_t **)g_valuesCUDA_EXCLUDED_GPUS, L"none"}, + {D3DOGL_GPU_MAX_POWER_ID, D3DOGL_GPU_MAX_POWER_STRING, 1, (const wchar_t **)g_valuesD3DOGL_GPU_MAX_POWER, L"0"}, + {ICAFE_LOGO_CONFIG_ID, ICAFE_LOGO_CONFIG_STRING, 0, NULL, L""}, +}; + diff --git a/sdk/include/nvapi/NvApiDriverSettings.h b/sdk/include/nvapi/NvApiDriverSettings.h new file mode 100644 index 00000000000..3646726192c --- /dev/null +++ b/sdk/include/nvapi/NvApiDriverSettings.h @@ -0,0 +1,1089 @@ +/***************************************************************************\ +|* *| +|* Copyright NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This source code is subject to NVIDIA ownership rights under U.S. *| +|* and international Copyright laws. Users and possessors of this *| +|* source code are hereby granted a nonexclusive, royalty-free *| +|* license to use this code in individual and commercial software. *| +|* *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOURCE *| +|* CODE FOR ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR *| +|* IMPLIED WARRANTY OF ANY KIND. NVIDIA DISCLAIMS ALL WARRANTIES WITH *| +|* REGARD TO THIS SOURCE CODE, INCLUDING ALL IMPLIED WARRANTIES OF *| +|* MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR *| +|* PURPOSE. IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, *| +|* INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES *| +|* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN *| +|* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING *| +|* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE *| +|* CODE. *| +|* *| +|* U.S. Government End Users. This source code is a "commercial item" *| +|* as that term is defined at 48 C.F.R. 2.101 (OCT 1995), consisting *| +|* of "commercial computer software" and "commercial computer software *| +|* documentation" as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) *| +|* and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through *| +|* 227.7202-4 (JUNE 1995), all U.S. Government End Users acquire the *| +|* source code with only those rights set forth herein. *| +|* *| +|* Any use of this source code in individual and commercial software must *| +|* include, in the user documentation and internal comments to the code, *| +|* the above Disclaimer and U.S. Government End Users Notice. *| +|* *| +|* *| +\***************************************************************************/ + +#ifndef _NVAPI_DRIVER_SETTINGS_H_ +#define _NVAPI_DRIVER_SETTINGS_H_ + +#define OGL_AA_LINE_GAMMA_STRING L"Antialiasing - Line gamma" +#define OGL_DEEP_COLOR_SCANOUT_STRING L"Deep color for 3D applications" +#define OGL_DEFAULT_SWAP_INTERVAL_STRING L"OpenGL default swap interval" +#define OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_STRING L"OpenGL default swap interval fraction" +#define OGL_DEFAULT_SWAP_INTERVAL_SIGN_STRING L"OpenGL default swap interval sign" +#define OGL_EVENT_LOG_SEVERITY_THRESHOLD_STRING L"Event Log Severity Threshold" +#define OGL_EXTENSION_STRING_VERSION_STRING L"Extension String version" +#define OGL_FORCE_BLIT_STRING L"Buffer-flipping mode" +#define OGL_FORCE_STEREO_STRING L"Force Stereo shuttering" +#define OGL_IMPLICIT_GPU_AFFINITY_STRING L"Preferred OpenGL GPU" +#define OGL_MAX_FRAMES_ALLOWED_STRING L"Maximum frames allowed" +#define OGL_MULTIMON_STRING L"Multi-display/mixed-GPU acceleration" +#define OGL_OVERLAY_PIXEL_TYPE_STRING L"Exported Overlay pixel types" +#define OGL_OVERLAY_SUPPORT_STRING L"Enable overlay" +#define OGL_QUALITY_ENHANCEMENTS_STRING L"High level control of the rendering quality on OpenGL" +#define OGL_SINGLE_BACKDEPTH_BUFFER_STRING L"Unified back/depth buffer" +#define OGL_THREAD_CONTROL_STRING L"Threaded optimization" +#define OGL_TRIPLE_BUFFER_STRING L"Triple buffering" +#define OGL_VIDEO_EDITING_MODE_STRING L"OpenGL video-editing mode" +#define AA_BEHAVIOR_FLAGS_STRING L"Antialiasing - Behavior Flags" +#define AA_MODE_ALPHATOCOVERAGE_STRING L"Antialiasing - Transparency Multisampling" +#define AA_MODE_GAMMACORRECTION_STRING L"Antialiasing - Gamma correction" +#define AA_MODE_METHOD_STRING L"Antialiasing - Setting" +#define AA_MODE_REPLAY_STRING L"Antialiasing - Transparency Supersampling" +#define AA_MODE_SELECTOR_STRING L"Antialiasing - Mode" +#define AA_MODE_SELECTOR_SLIAA_STRING L"Antialiasing - SLI AA" +#define ANISO_MODE_LEVEL_STRING L"Anisotropic filtering setting" +#define ANISO_MODE_SELECTOR_STRING L"Anisotropic filtering mode" +#define APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_STRING L"Application Profile Notification Popup Timeout" +#define APPLICATION_STEAM_ID_STRING L"Steam Application ID" +#define CPL_HIDDEN_PROFILE_STRING L"Do not display this profile in the Control Panel" +#define CUDA_EXCLUDED_GPUS_STRING L"List of Universal GPU ids" +#define D3DOGL_GPU_MAX_POWER_STRING L"Maximum GPU Power" +#define EXPORT_PERF_COUNTERS_STRING L"Export Performance Counters" +#define FXAA_ALLOW_STRING L"NVIDIA Predefined FXAA Usage" +#define FXAA_ENABLE_STRING L"Enable FXAA" +#define FXAA_INDICATOR_ENABLE_STRING L"Enable FXAA Indicator" +#define MCSFRSHOWSPLIT_STRING L"SLI indicator" +#define NV_QUALITY_UPSCALING_STRING L"NVIDIA Quality upscaling" +#define OPTIMUS_MAXAA_STRING L"Maximum AA samples allowed for a given application" +#define PHYSXINDICATOR_STRING L"Display the PhysX indicator" +#define PREFERRED_PSTATE_STRING L"Power management mode" +#define PREVENT_UI_AF_OVERRIDE_STRING L"No override of Anisotropic filtering" +#define PS_FRAMERATE_LIMITER_STRING L"Frame Rate Limiter" +#define PS_FRAMERATE_LIMITER_GPS_CTRL_STRING L"Frame Rate Monitor" +#define PS_FRAMERATE_MONITOR_CTRL_STRING L"Frame Rate Monitor Control" +#define SHIM_MAXRES_STRING L"Maximum resolution allowed for a given application" +#define SHIM_MCCOMPAT_STRING L"Optimus flags for enabled applications" +#define SHIM_RENDERING_MODE_STRING L"Enable application for Optimus" +#define SHIM_RENDERING_OPTIONS_STRING L"Shim Rendering Mode Options per application for Optimus" +#define SLI_GPU_COUNT_STRING L"Number of GPUs to use on SLI rendering mode" +#define SLI_PREDEFINED_GPU_COUNT_STRING L"NVIDIA predefined number of GPUs to use on SLI rendering mode" +#define SLI_PREDEFINED_GPU_COUNT_DX10_STRING L"NVIDIA predefined number of GPUs to use on SLI rendering mode on DirectX 10" +#define SLI_PREDEFINED_MODE_STRING L"NVIDIA predefined SLI mode" +#define SLI_PREDEFINED_MODE_DX10_STRING L"NVIDIA predefined SLI mode on DirectX 10" +#define SLI_RENDERING_MODE_STRING L"SLI rendering mode" +#define VRPRERENDERLIMIT_STRING L"Virtual Reality pre-rendered frames" +#define VRRFEATUREINDICATOR_STRING L"Toggle the VRR global feature" +#define VRROVERLAYINDICATOR_STRING L"Display the VRR Overlay Indicator" +#define VRRREQUESTSTATE_STRING L"VRR requested state" +#define VRR_APP_OVERRIDE_STRING L"G-SYNC" +#define VRR_MODE_STRING L"Enable G-SYNC globally" +#define VSYNCSMOOTHAFR_STRING L"Flag to control smooth AFR behavior" +#define VSYNCVRRCONTROL_STRING L"Variable refresh Rate" +#define VSYNC_BEHAVIOR_FLAGS_STRING L"Vsync - Behavior Flags" +#define WKS_API_STEREO_EYES_EXCHANGE_STRING L"Stereo - Swap eyes" +#define WKS_API_STEREO_MODE_STRING L"Stereo - Display mode" +#define WKS_MEMORY_ALLOCATION_POLICY_STRING L"Memory Allocation Policy" +#define WKS_STEREO_DONGLE_SUPPORT_STRING L"Stereo - Dongle Support" +#define WKS_STEREO_SUPPORT_STRING L"Stereo - Enable" +#define WKS_STEREO_SWAP_MODE_STRING L"Stereo – swap mode" +#define AO_MODE_STRING L"Ambient Occlusion" +#define AO_MODE_ACTIVE_STRING L"NVIDIA Predefined Ambient Occlusion Usage" +#define AUTO_LODBIASADJUST_STRING L"Texture filtering - Driver Controlled LOD Bias" +#define ICAFE_LOGO_CONFIG_STRING L"ICafe Settings" +#define LODBIASADJUST_STRING L"Texture filtering - LOD Bias" +#define MAXWELL_B_SAMPLE_INTERLEAVE_STRING L"Enable sample interleaving (MFAA)" +#define PRERENDERLIMIT_STRING L"Maximum pre-rendered frames" +#define PS_SHADERDISKCACHE_STRING L"Shader Cache" +#define PS_TEXFILTER_ANISO_OPTS2_STRING L"Texture filtering - Anisotropic sample optimization" +#define PS_TEXFILTER_BILINEAR_IN_ANISO_STRING L"Texture filtering - Anisotropic filter optimization" +#define PS_TEXFILTER_DISABLE_TRILIN_SLOPE_STRING L"Texture filtering - Trilinear optimization" +#define PS_TEXFILTER_NO_NEG_LODBIAS_STRING L"Texture filtering - Negative LOD bias" +#define QUALITY_ENHANCEMENTS_STRING L"Texture filtering - Quality" +#define REFRESH_RATE_OVERRIDE_STRING L"Preferred refresh rate" +#define SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_STRING L"PowerThrottle" +#define SET_VAB_DATA_STRING L"VAB Default Data" +#define VSYNCMODE_STRING L"Vertical Sync" +#define VSYNCTEARCONTROL_STRING L"Vertical Sync Tear Control" + +enum ESetting { + OGL_AA_LINE_GAMMA_ID = 0x2089BF6C, + OGL_DEEP_COLOR_SCANOUT_ID = 0x2097C2F6, + OGL_DEFAULT_SWAP_INTERVAL_ID = 0x206A6582, + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ID = 0x206C4581, + OGL_DEFAULT_SWAP_INTERVAL_SIGN_ID = 0x20655CFA, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_ID = 0x209DF23E, + OGL_EXTENSION_STRING_VERSION_ID = 0x20FF7493, + OGL_FORCE_BLIT_ID = 0x201F619F, + OGL_FORCE_STEREO_ID = 0x204D9A0C, + OGL_IMPLICIT_GPU_AFFINITY_ID = 0x20D0F3E6, + OGL_MAX_FRAMES_ALLOWED_ID = 0x208E55E3, + OGL_MULTIMON_ID = 0x200AEBFC, + OGL_OVERLAY_PIXEL_TYPE_ID = 0x209AE66F, + OGL_OVERLAY_SUPPORT_ID = 0x206C28C4, + OGL_QUALITY_ENHANCEMENTS_ID = 0x20797D6C, + OGL_SINGLE_BACKDEPTH_BUFFER_ID = 0x20A29055, + OGL_THREAD_CONTROL_ID = 0x20C1221E, + OGL_TRIPLE_BUFFER_ID = 0x20FDD1F9, + OGL_VIDEO_EDITING_MODE_ID = 0x20EE02B4, + AA_BEHAVIOR_FLAGS_ID = 0x10ECDB82, + AA_MODE_ALPHATOCOVERAGE_ID = 0x10FC2D9C, + AA_MODE_GAMMACORRECTION_ID = 0x107D639D, + AA_MODE_METHOD_ID = 0x10D773D2, + AA_MODE_REPLAY_ID = 0x10D48A85, + AA_MODE_SELECTOR_ID = 0x107EFC5B, + AA_MODE_SELECTOR_SLIAA_ID = 0x107AFC5B, + ANISO_MODE_LEVEL_ID = 0x101E61A9, + ANISO_MODE_SELECTOR_ID = 0x10D2BB16, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_ID = 0x104554B6, + APPLICATION_STEAM_ID_ID = 0x107CDDBC, + CPL_HIDDEN_PROFILE_ID = 0x106D5CFF, + CUDA_EXCLUDED_GPUS_ID = 0x10354FF8, + D3DOGL_GPU_MAX_POWER_ID = 0x10D1EF29, + EXPORT_PERF_COUNTERS_ID = 0x108F0841, + FXAA_ALLOW_ID = 0x1034CB89, + FXAA_ENABLE_ID = 0x1074C972, + FXAA_INDICATOR_ENABLE_ID = 0x1068FB9C, + MCSFRSHOWSPLIT_ID = 0x10287051, + NV_QUALITY_UPSCALING_ID = 0x10444444, + OPTIMUS_MAXAA_ID = 0x10F9DC83, + PHYSXINDICATOR_ID = 0x1094F16F, + PREFERRED_PSTATE_ID = 0x1057EB71, + PREVENT_UI_AF_OVERRIDE_ID = 0x103BCCB5, + PS_FRAMERATE_LIMITER_ID = 0x10834FEE, + PS_FRAMERATE_LIMITER_GPS_CTRL_ID = 0x10834F01, + PS_FRAMERATE_MONITOR_CTRL_ID = 0x10834F05, + SHIM_MAXRES_ID = 0x10F9DC82, + SHIM_MCCOMPAT_ID = 0x10F9DC80, + SHIM_RENDERING_MODE_ID = 0x10F9DC81, + SHIM_RENDERING_OPTIONS_ID = 0x10F9DC84, + SLI_GPU_COUNT_ID = 0x1033DCD1, + SLI_PREDEFINED_GPU_COUNT_ID = 0x1033DCD2, + SLI_PREDEFINED_GPU_COUNT_DX10_ID = 0x1033DCD3, + SLI_PREDEFINED_MODE_ID = 0x1033CEC1, + SLI_PREDEFINED_MODE_DX10_ID = 0x1033CEC2, + SLI_RENDERING_MODE_ID = 0x1033CED1, + VRPRERENDERLIMIT_ID = 0x10111133, + VRRFEATUREINDICATOR_ID = 0x1094F157, + VRROVERLAYINDICATOR_ID = 0x1095F16F, + VRRREQUESTSTATE_ID = 0x1094F1F7, + VRR_APP_OVERRIDE_ID = 0x10A879CF, + VRR_MODE_ID = 0x1194F158, + VSYNCSMOOTHAFR_ID = 0x101AE763, + VSYNCVRRCONTROL_ID = 0x10A879CE, + VSYNC_BEHAVIOR_FLAGS_ID = 0x10FDEC23, + WKS_API_STEREO_EYES_EXCHANGE_ID = 0x11AE435C, + WKS_API_STEREO_MODE_ID = 0x11E91A61, + WKS_MEMORY_ALLOCATION_POLICY_ID = 0x11112233, + WKS_STEREO_DONGLE_SUPPORT_ID = 0x112493BD, + WKS_STEREO_SUPPORT_ID = 0x11AA9E99, + WKS_STEREO_SWAP_MODE_ID = 0x11333333, + AO_MODE_ID = 0x00667329, + AO_MODE_ACTIVE_ID = 0x00664339, + AUTO_LODBIASADJUST_ID = 0x00638E8F, + ICAFE_LOGO_CONFIG_ID = 0x00DB1337, + LODBIASADJUST_ID = 0x00738E8F, + MAXWELL_B_SAMPLE_INTERLEAVE_ID = 0x0098C1AC, + PRERENDERLIMIT_ID = 0x007BA09E, + PS_SHADERDISKCACHE_ID = 0x00198FFF, + PS_TEXFILTER_ANISO_OPTS2_ID = 0x00E73211, + PS_TEXFILTER_BILINEAR_IN_ANISO_ID = 0x0084CD70, + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_ID = 0x002ECAF2, + PS_TEXFILTER_NO_NEG_LODBIAS_ID = 0x0019BB68, + QUALITY_ENHANCEMENTS_ID = 0x00CE2691, + REFRESH_RATE_OVERRIDE_ID = 0x0064B541, + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_ID = 0x00AE785C, + SET_VAB_DATA_ID = 0x00AB8687, + VSYNCMODE_ID = 0x00A879CF, + VSYNCTEARCONTROL_ID = 0x005A375C, + TOTAL_DWORD_SETTING_NUM = 85, + TOTAL_WSTRING_SETTING_NUM = 4, + TOTAL_SETTING_NUM = 89, + INVALID_SETTING_ID = 0xFFFFFFFF +}; + +enum EValues_OGL_AA_LINE_GAMMA { + OGL_AA_LINE_GAMMA_DISABLED = 0x10, + OGL_AA_LINE_GAMMA_ENABLED = 0x23, + OGL_AA_LINE_GAMMA_MIN = 1, + OGL_AA_LINE_GAMMA_MAX = 100, + OGL_AA_LINE_GAMMA_NUM_VALUES = 4, + OGL_AA_LINE_GAMMA_DEFAULT = OGL_AA_LINE_GAMMA_DISABLED +}; + +enum EValues_OGL_DEEP_COLOR_SCANOUT { + OGL_DEEP_COLOR_SCANOUT_DISABLE = 0, + OGL_DEEP_COLOR_SCANOUT_ENABLE = 1, + OGL_DEEP_COLOR_SCANOUT_NUM_VALUES = 2, + OGL_DEEP_COLOR_SCANOUT_DEFAULT = OGL_DEEP_COLOR_SCANOUT_ENABLE +}; + +enum EValues_OGL_DEFAULT_SWAP_INTERVAL { + OGL_DEFAULT_SWAP_INTERVAL_TEAR = 0, + OGL_DEFAULT_SWAP_INTERVAL_VSYNC_ONE = 1, + OGL_DEFAULT_SWAP_INTERVAL_VSYNC = 1, + OGL_DEFAULT_SWAP_INTERVAL_VALUE_MASK = 0x0000FFFF, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_MASK = 0xF0000000, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_OFF = 0xF0000000, + OGL_DEFAULT_SWAP_INTERVAL_FORCE_ON = 0x10000000, + OGL_DEFAULT_SWAP_INTERVAL_APP_CONTROLLED = 0x00000000, + OGL_DEFAULT_SWAP_INTERVAL_DISABLE = 0xffffffff, + OGL_DEFAULT_SWAP_INTERVAL_NUM_VALUES = 9, + OGL_DEFAULT_SWAP_INTERVAL_DEFAULT = OGL_DEFAULT_SWAP_INTERVAL_VSYNC_ONE +}; + +enum EValues_OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL { + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ZERO_SCANLINES = 0, + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_ONE_FULL_FRAME_OF_SCANLINES = 100, + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_NUM_VALUES = 2, + OGL_DEFAULT_SWAP_INTERVAL_FRACTIONAL_DEFAULT = 0 +}; + +enum EValues_OGL_DEFAULT_SWAP_INTERVAL_SIGN { + OGL_DEFAULT_SWAP_INTERVAL_SIGN_POSITIVE = 0, + OGL_DEFAULT_SWAP_INTERVAL_SIGN_NEGATIVE = 1, + OGL_DEFAULT_SWAP_INTERVAL_SIGN_NUM_VALUES = 2, + OGL_DEFAULT_SWAP_INTERVAL_SIGN_DEFAULT = OGL_DEFAULT_SWAP_INTERVAL_SIGN_POSITIVE +}; + +enum EValues_OGL_EVENT_LOG_SEVERITY_THRESHOLD { + OGL_EVENT_LOG_SEVERITY_THRESHOLD_DISABLE = 0, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_CRITICAL = 1, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_WARNING = 2, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_INFORMATION = 3, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_ALL = 4, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_NUM_VALUES = 5, + OGL_EVENT_LOG_SEVERITY_THRESHOLD_DEFAULT = OGL_EVENT_LOG_SEVERITY_THRESHOLD_CRITICAL +}; + +enum EValues_OGL_FORCE_BLIT { + OGL_FORCE_BLIT_ON = 1, + OGL_FORCE_BLIT_OFF = 0, + OGL_FORCE_BLIT_NUM_VALUES = 2, + OGL_FORCE_BLIT_DEFAULT = OGL_FORCE_BLIT_OFF +}; + +enum EValues_OGL_FORCE_STEREO { + OGL_FORCE_STEREO_OFF = 0, + OGL_FORCE_STEREO_ON = 1, + OGL_FORCE_STEREO_NUM_VALUES = 2, + OGL_FORCE_STEREO_DEFAULT = OGL_FORCE_STEREO_OFF +}; + +#define OGL_IMPLICIT_GPU_AFFINITY_ENV_VAR L"OGL_DEFAULT_RENDERING_GPU" +#define OGL_IMPLICIT_GPU_AFFINITY_AUTOSELECT L"autoselect" +#define OGL_IMPLICIT_GPU_AFFINITY_NUM_VALUES 1 +#define OGL_IMPLICIT_GPU_AFFINITY_DEFAULT OGL_IMPLICIT_GPU_AFFINITY_AUTOSELECT + +enum EValues_OGL_MULTIMON { + OGL_MULTIMON_SINGLE_MONITOR = 0, + OGL_MULTIMON_COMPATIBILITY_LCD = 1, + OGL_MULTIMON_COMPATIBILITY_GCD = 2, + OGL_MULTIMON_PERFORMANCE_LCD = 3, + OGL_MULTIMON_PERFORMANCE_GCD = 4, + OGL_MULTIMON_EXTENDED_SINGLE_MONITOR = 5, + OGL_MULTIMON_PERFORMANCE_QUADRO = 6, + OGL_MULTIMON_MULTIMON_BUFFER = 7, + OGL_MULTIMON_NUM_VALUES = 8, + OGL_MULTIMON_DEFAULT = OGL_MULTIMON_PERFORMANCE_LCD +}; + +enum EValues_OGL_OVERLAY_PIXEL_TYPE { + OGL_OVERLAY_PIXEL_TYPE_NONE = 0x0, + OGL_OVERLAY_PIXEL_TYPE_CI = 0x1, + OGL_OVERLAY_PIXEL_TYPE_RGBA = 0x2, + OGL_OVERLAY_PIXEL_TYPE_CI_AND_RGBA = 0x3, + OGL_OVERLAY_PIXEL_TYPE_NUM_VALUES = 4, + OGL_OVERLAY_PIXEL_TYPE_DEFAULT = OGL_OVERLAY_PIXEL_TYPE_CI +}; + +enum EValues_OGL_OVERLAY_SUPPORT { + OGL_OVERLAY_SUPPORT_OFF = 0, + OGL_OVERLAY_SUPPORT_ON = 1, + OGL_OVERLAY_SUPPORT_FORCE_SW = 2, + OGL_OVERLAY_SUPPORT_NUM_VALUES = 3, + OGL_OVERLAY_SUPPORT_DEFAULT = OGL_OVERLAY_SUPPORT_OFF +}; + +enum EValues_OGL_QUALITY_ENHANCEMENTS { + OGL_QUALITY_ENHANCEMENTS_HQUAL = -10, + OGL_QUALITY_ENHANCEMENTS_QUAL = 0, + OGL_QUALITY_ENHANCEMENTS_PERF = 10, + OGL_QUALITY_ENHANCEMENTS_HPERF = 20, + OGL_QUALITY_ENHANCEMENTS_NUM_VALUES = 4, + OGL_QUALITY_ENHANCEMENTS_DEFAULT = OGL_QUALITY_ENHANCEMENTS_QUAL +}; + +enum EValues_OGL_SINGLE_BACKDEPTH_BUFFER { + OGL_SINGLE_BACKDEPTH_BUFFER_DISABLE = 0x0, + OGL_SINGLE_BACKDEPTH_BUFFER_ENABLE = 0x1, + OGL_SINGLE_BACKDEPTH_BUFFER_USE_HW_DEFAULT = 0xffffffff, + OGL_SINGLE_BACKDEPTH_BUFFER_NUM_VALUES = 3, + OGL_SINGLE_BACKDEPTH_BUFFER_DEFAULT = OGL_SINGLE_BACKDEPTH_BUFFER_DISABLE +}; + +enum EValues_OGL_THREAD_CONTROL { + OGL_THREAD_CONTROL_ENABLE = 0x00000001, + OGL_THREAD_CONTROL_DISABLE = 0x00000002, + OGL_THREAD_CONTROL_NUM_VALUES = 2, + OGL_THREAD_CONTROL_DEFAULT = 0 +}; + +enum EValues_OGL_TRIPLE_BUFFER { + OGL_TRIPLE_BUFFER_DISABLED = 0x00000000, + OGL_TRIPLE_BUFFER_ENABLED = 0x00000001, + OGL_TRIPLE_BUFFER_NUM_VALUES = 2, + OGL_TRIPLE_BUFFER_DEFAULT = OGL_TRIPLE_BUFFER_DISABLED +}; + +enum EValues_OGL_VIDEO_EDITING_MODE { + OGL_VIDEO_EDITING_MODE_DISABLE = 0x00000000, + OGL_VIDEO_EDITING_MODE_ENABLE = 0x00000001, + OGL_VIDEO_EDITING_MODE_NUM_VALUES = 2, + OGL_VIDEO_EDITING_MODE_DEFAULT = OGL_VIDEO_EDITING_MODE_DISABLE +}; + +enum EValues_AA_BEHAVIOR_FLAGS { + AA_BEHAVIOR_FLAGS_NONE = 0x00000000, + AA_BEHAVIOR_FLAGS_TREAT_OVERRIDE_AS_APP_CONTROLLED = 0x00000001, + AA_BEHAVIOR_FLAGS_TREAT_OVERRIDE_AS_ENHANCE = 0x00000002, + AA_BEHAVIOR_FLAGS_DISABLE_OVERRIDE = 0x00000003, + AA_BEHAVIOR_FLAGS_TREAT_ENHANCE_AS_APP_CONTROLLED = 0x00000004, + AA_BEHAVIOR_FLAGS_TREAT_ENHANCE_AS_OVERRIDE = 0x00000008, + AA_BEHAVIOR_FLAGS_DISABLE_ENHANCE = 0x0000000c, + AA_BEHAVIOR_FLAGS_MAP_VCAA_TO_MULTISAMPLING = 0x00010000, + AA_BEHAVIOR_FLAGS_SLI_DISABLE_TRANSPARENCY_SUPERSAMPLING = 0x00020000, + AA_BEHAVIOR_FLAGS_DISABLE_CPLAA = 0x00040000, + AA_BEHAVIOR_FLAGS_SKIP_RT_DIM_CHECK_FOR_ENHANCE = 0x00080000, + AA_BEHAVIOR_FLAGS_DISABLE_SLIAA = 0x00100000, + AA_BEHAVIOR_FLAGS_DEFAULT = 0x00000000, + AA_BEHAVIOR_FLAGS_AA_RT_BPP_DIV_4 = 0xf0000000, + AA_BEHAVIOR_FLAGS_AA_RT_BPP_DIV_4_SHIFT = 28, + AA_BEHAVIOR_FLAGS_NON_AA_RT_BPP_DIV_4 = 0x0f000000, + AA_BEHAVIOR_FLAGS_NON_AA_RT_BPP_DIV_4_SHIFT = 24, + AA_BEHAVIOR_FLAGS_MASK = 0xff1f000f, + AA_BEHAVIOR_FLAGS_NUM_VALUES = 18, +}; + +enum EValues_AA_MODE_ALPHATOCOVERAGE { + AA_MODE_ALPHATOCOVERAGE_MODE_MASK = 0x00000004, + AA_MODE_ALPHATOCOVERAGE_MODE_OFF = 0x00000000, + AA_MODE_ALPHATOCOVERAGE_MODE_ON = 0x00000004, + AA_MODE_ALPHATOCOVERAGE_MODE_MAX = 0x00000004, + AA_MODE_ALPHATOCOVERAGE_NUM_VALUES = 4, + AA_MODE_ALPHATOCOVERAGE_DEFAULT = 0x00000000 +}; + +enum EValues_AA_MODE_GAMMACORRECTION { + AA_MODE_GAMMACORRECTION_MASK = 0x00000003, + AA_MODE_GAMMACORRECTION_OFF = 0x00000000, + AA_MODE_GAMMACORRECTION_ON_IF_FOS = 0x00000001, + AA_MODE_GAMMACORRECTION_ON_ALWAYS = 0x00000002, + AA_MODE_GAMMACORRECTION_MAX = 0x00000002, + AA_MODE_GAMMACORRECTION_DEFAULT = 0x00000000, + AA_MODE_GAMMACORRECTION_DEFAULT_TESLA = 0x00000002, + AA_MODE_GAMMACORRECTION_DEFAULT_FERMI = 0x00000002, + AA_MODE_GAMMACORRECTION_NUM_VALUES = 8, +}; + +enum EValues_AA_MODE_METHOD { + AA_MODE_METHOD_NONE = 0x0, + AA_MODE_METHOD_SUPERSAMPLE_2X_H = 0x1, + AA_MODE_METHOD_SUPERSAMPLE_2X_V = 0x2, + AA_MODE_METHOD_SUPERSAMPLE_1_5X1_5 = 0x2, + AA_MODE_METHOD_FREE_0x03 = 0x3, + AA_MODE_METHOD_FREE_0x04 = 0x4, + AA_MODE_METHOD_SUPERSAMPLE_4X = 0x5, + AA_MODE_METHOD_SUPERSAMPLE_4X_BIAS = 0x6, + AA_MODE_METHOD_SUPERSAMPLE_4X_GAUSSIAN = 0x7, + AA_MODE_METHOD_FREE_0x08 = 0x8, + AA_MODE_METHOD_FREE_0x09 = 0x9, + AA_MODE_METHOD_SUPERSAMPLE_9X = 0xA, + AA_MODE_METHOD_SUPERSAMPLE_9X_BIAS = 0xB, + AA_MODE_METHOD_SUPERSAMPLE_16X = 0xC, + AA_MODE_METHOD_SUPERSAMPLE_16X_BIAS = 0xD, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL = 0xE, + AA_MODE_METHOD_MULTISAMPLE_2X_QUINCUNX = 0xF, + AA_MODE_METHOD_MULTISAMPLE_4X = 0x10, + AA_MODE_METHOD_FREE_0x11 = 0x11, + AA_MODE_METHOD_MULTISAMPLE_4X_GAUSSIAN = 0x12, + AA_MODE_METHOD_MIXEDSAMPLE_4X_SKEWED_4TAP = 0x13, + AA_MODE_METHOD_FREE_0x14 = 0x14, + AA_MODE_METHOD_FREE_0x15 = 0x15, + AA_MODE_METHOD_MIXEDSAMPLE_6X = 0x16, + AA_MODE_METHOD_MIXEDSAMPLE_6X_SKEWED_6TAP = 0x17, + AA_MODE_METHOD_MIXEDSAMPLE_8X = 0x18, + AA_MODE_METHOD_MIXEDSAMPLE_8X_SKEWED_8TAP = 0x19, + AA_MODE_METHOD_MIXEDSAMPLE_16X = 0x1a, + AA_MODE_METHOD_MULTISAMPLE_4X_GAMMA = 0x1b, + AA_MODE_METHOD_MULTISAMPLE_16X = 0x1c, + AA_MODE_METHOD_VCAA_32X_8v24 = 0x1d, + AA_MODE_METHOD_CORRUPTION_CHECK = 0x1e, + AA_MODE_METHOD_6X_CT = 0x1f, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL_GAMMA = 0x20, + AA_MODE_METHOD_SUPERSAMPLE_4X_GAMMA = 0x21, + AA_MODE_METHOD_MULTISAMPLE_4X_FOSGAMMA = 0x22, + AA_MODE_METHOD_MULTISAMPLE_2X_DIAGONAL_FOSGAMMA = 0x23, + AA_MODE_METHOD_SUPERSAMPLE_4X_FOSGAMMA = 0x24, + AA_MODE_METHOD_MULTISAMPLE_8X = 0x25, + AA_MODE_METHOD_VCAA_8X_4v4 = 0x26, + AA_MODE_METHOD_VCAA_16X_4v12 = 0x27, + AA_MODE_METHOD_VCAA_16X_8v8 = 0x28, + AA_MODE_METHOD_MIXEDSAMPLE_32X = 0x29, + AA_MODE_METHOD_SUPERVCAA_64X_4v12 = 0x2a, + AA_MODE_METHOD_SUPERVCAA_64X_8v8 = 0x2b, + AA_MODE_METHOD_MIXEDSAMPLE_64X = 0x2c, + AA_MODE_METHOD_MIXEDSAMPLE_128X = 0x2d, + AA_MODE_METHOD_COUNT = 0x2e, + AA_MODE_METHOD_METHOD_MASK = 0x0000ffff, + AA_MODE_METHOD_METHOD_MAX = 0xf1c57815, + AA_MODE_METHOD_NUM_VALUES = 50, + AA_MODE_METHOD_DEFAULT = AA_MODE_METHOD_NONE +}; + +enum EValues_AA_MODE_REPLAY { + AA_MODE_REPLAY_SAMPLES_MASK = 0x00000070, + AA_MODE_REPLAY_SAMPLES_ONE = 0x00000000, + AA_MODE_REPLAY_SAMPLES_TWO = 0x00000010, + AA_MODE_REPLAY_SAMPLES_FOUR = 0x00000020, + AA_MODE_REPLAY_SAMPLES_EIGHT = 0x00000030, + AA_MODE_REPLAY_SAMPLES_MAX = 0x00000030, + AA_MODE_REPLAY_MODE_MASK = 0x0000000f, + AA_MODE_REPLAY_MODE_OFF = 0x00000000, + AA_MODE_REPLAY_MODE_ALPHA_TEST = 0x00000001, + AA_MODE_REPLAY_MODE_PIXEL_KILL = 0x00000002, + AA_MODE_REPLAY_MODE_DYN_BRANCH = 0x00000004, + AA_MODE_REPLAY_MODE_OPTIMAL = 0x00000004, + AA_MODE_REPLAY_MODE_ALL = 0x00000008, + AA_MODE_REPLAY_MODE_MAX = 0x0000000f, + AA_MODE_REPLAY_TRANSPARENCY = 0x00000023, + AA_MODE_REPLAY_DISALLOW_TRAA = 0x00000100, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT = 0x00000000, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT_TESLA = 0x00000000, + AA_MODE_REPLAY_TRANSPARENCY_DEFAULT_FERMI = 0x00000000, + AA_MODE_REPLAY_MASK = 0x0000017f, + AA_MODE_REPLAY_NUM_VALUES = 20, + AA_MODE_REPLAY_DEFAULT = 0x00000000 +}; + +enum EValues_AA_MODE_SELECTOR { + AA_MODE_SELECTOR_MASK = 0x00000003, + AA_MODE_SELECTOR_APP_CONTROL = 0x00000000, + AA_MODE_SELECTOR_OVERRIDE = 0x00000001, + AA_MODE_SELECTOR_ENHANCE = 0x00000002, + AA_MODE_SELECTOR_MAX = 0x00000002, + AA_MODE_SELECTOR_NUM_VALUES = 5, + AA_MODE_SELECTOR_DEFAULT = AA_MODE_SELECTOR_APP_CONTROL +}; + +enum EValues_AA_MODE_SELECTOR_SLIAA { + AA_MODE_SELECTOR_SLIAA_DISABLED = 0, + AA_MODE_SELECTOR_SLIAA_ENABLED = 1, + AA_MODE_SELECTOR_SLIAA_NUM_VALUES = 2, + AA_MODE_SELECTOR_SLIAA_DEFAULT = AA_MODE_SELECTOR_SLIAA_DISABLED +}; + +enum EValues_ANISO_MODE_LEVEL { + ANISO_MODE_LEVEL_MASK = 0x0000ffff, + ANISO_MODE_LEVEL_NONE_POINT = 0x00000000, + ANISO_MODE_LEVEL_NONE_LINEAR = 0x00000001, + ANISO_MODE_LEVEL_MAX = 0x00000010, + ANISO_MODE_LEVEL_DEFAULT = 0x00000001, + ANISO_MODE_LEVEL_NUM_VALUES = 5, +}; + +enum EValues_ANISO_MODE_SELECTOR { + ANISO_MODE_SELECTOR_MASK = 0x0000000f, + ANISO_MODE_SELECTOR_APP = 0x00000000, + ANISO_MODE_SELECTOR_USER = 0x00000001, + ANISO_MODE_SELECTOR_COND = 0x00000002, + ANISO_MODE_SELECTOR_MAX = 0x00000002, + ANISO_MODE_SELECTOR_DEFAULT = 0x00000000, + ANISO_MODE_SELECTOR_NUM_VALUES = 6, +}; + +enum EValues_APPLICATION_PROFILE_NOTIFICATION_TIMEOUT { + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_DISABLED = 0, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_NINE_SECONDS = 9, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_FIFTEEN_SECONDS = 15, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_THIRTY_SECONDS = 30, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_ONE_MINUTE = 60, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_TWO_MINUTES = 120, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_NUM_VALUES = 6, + APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_DEFAULT = APPLICATION_PROFILE_NOTIFICATION_TIMEOUT_DISABLED +}; + +enum EValues_CPL_HIDDEN_PROFILE { + CPL_HIDDEN_PROFILE_DISABLED = 0, + CPL_HIDDEN_PROFILE_ENABLED = 1, + CPL_HIDDEN_PROFILE_NUM_VALUES = 2, + CPL_HIDDEN_PROFILE_DEFAULT = CPL_HIDDEN_PROFILE_DISABLED +}; + +#define CUDA_EXCLUDED_GPUS_NONE L"none" +#define CUDA_EXCLUDED_GPUS_NUM_VALUES 1 +#define CUDA_EXCLUDED_GPUS_DEFAULT CUDA_EXCLUDED_GPUS_NONE + +#define D3DOGL_GPU_MAX_POWER_DEFAULTPOWER L"0" +#define D3DOGL_GPU_MAX_POWER_NUM_VALUES 1 +#define D3DOGL_GPU_MAX_POWER_DEFAULT D3DOGL_GPU_MAX_POWER_DEFAULTPOWER + +enum EValues_EXPORT_PERF_COUNTERS { + EXPORT_PERF_COUNTERS_OFF = 0x00000000, + EXPORT_PERF_COUNTERS_ON = 0x00000001, + EXPORT_PERF_COUNTERS_NUM_VALUES = 2, + EXPORT_PERF_COUNTERS_DEFAULT = EXPORT_PERF_COUNTERS_OFF +}; + +enum EValues_FXAA_ALLOW { + FXAA_ALLOW_DISALLOWED = 0, + FXAA_ALLOW_ALLOWED = 1, + FXAA_ALLOW_NUM_VALUES = 2, + FXAA_ALLOW_DEFAULT = FXAA_ALLOW_ALLOWED +}; + +enum EValues_FXAA_ENABLE { + FXAA_ENABLE_OFF = 0, + FXAA_ENABLE_ON = 1, + FXAA_ENABLE_NUM_VALUES = 2, + FXAA_ENABLE_DEFAULT = FXAA_ENABLE_OFF +}; + +enum EValues_FXAA_INDICATOR_ENABLE { + FXAA_INDICATOR_ENABLE_OFF = 0, + FXAA_INDICATOR_ENABLE_ON = 1, + FXAA_INDICATOR_ENABLE_NUM_VALUES = 2, + FXAA_INDICATOR_ENABLE_DEFAULT = FXAA_INDICATOR_ENABLE_OFF +}; + +enum EValues_MCSFRSHOWSPLIT { + MCSFRSHOWSPLIT_DISABLED = 0x34534064, + MCSFRSHOWSPLIT_ENABLED = 0x24545582, + MCSFRSHOWSPLIT_NUM_VALUES = 2, + MCSFRSHOWSPLIT_DEFAULT = MCSFRSHOWSPLIT_DISABLED +}; + +enum EValues_NV_QUALITY_UPSCALING { + NV_QUALITY_UPSCALING_OFF = 0, + NV_QUALITY_UPSCALING_ON = 1, + NV_QUALITY_UPSCALING_NUM_VALUES = 2, + NV_QUALITY_UPSCALING_DEFAULT = NV_QUALITY_UPSCALING_OFF +}; + +enum EValues_OPTIMUS_MAXAA { + OPTIMUS_MAXAA_MIN = 0, + OPTIMUS_MAXAA_MAX = 16, + OPTIMUS_MAXAA_NUM_VALUES = 2, + OPTIMUS_MAXAA_DEFAULT = 0 +}; + +enum EValues_PHYSXINDICATOR { + PHYSXINDICATOR_DISABLED = 0x34534064, + PHYSXINDICATOR_ENABLED = 0x24545582, + PHYSXINDICATOR_NUM_VALUES = 2, + PHYSXINDICATOR_DEFAULT = PHYSXINDICATOR_DISABLED +}; + +enum EValues_PREFERRED_PSTATE { + PREFERRED_PSTATE_ADAPTIVE = 0x00000000, + PREFERRED_PSTATE_PREFER_MAX = 0x00000001, + PREFERRED_PSTATE_DRIVER_CONTROLLED = 0x00000002, + PREFERRED_PSTATE_PREFER_CONSISTENT_PERFORMANCE = 0x00000003, + PREFERRED_PSTATE_PREFER_MIN = 0x00000004, + PREFERRED_PSTATE_MIN = 0x00000000, + PREFERRED_PSTATE_MAX = 0x00000004, + PREFERRED_PSTATE_NUM_VALUES = 7, + PREFERRED_PSTATE_DEFAULT = PREFERRED_PSTATE_ADAPTIVE +}; + +enum EValues_PREVENT_UI_AF_OVERRIDE { + PREVENT_UI_AF_OVERRIDE_OFF = 0, + PREVENT_UI_AF_OVERRIDE_ON = 1, + PREVENT_UI_AF_OVERRIDE_NUM_VALUES = 2, + PREVENT_UI_AF_OVERRIDE_DEFAULT = PREVENT_UI_AF_OVERRIDE_OFF +}; + +enum EValues_PS_FRAMERATE_LIMITER { + PS_FRAMERATE_LIMITER_DISABLED = 0x00000000, + PS_FRAMERATE_LIMITER_FPS_20 = 0x00000014, + PS_FRAMERATE_LIMITER_FPS_30 = 0x0000001e, + PS_FRAMERATE_LIMITER_FPS_40 = 0x00000028, + PS_FRAMERATE_LIMITER_FPSMASK = 0x000000ff, + PS_FRAMERATE_LIMITER_FORCE_VSYNC_OFF = 0x00040000, + PS_FRAMERATE_LIMITER_GPS_WEB = 0x00080000, + PS_FRAMERATE_LIMITER_FORCE_OPTIMUS_POLICY = 0x00100000, + PS_FRAMERATE_LIMITER_DISALLOWED = 0x00200000, + PS_FRAMERATE_LIMITER_USE_CPU_WAIT = 0x00400000, + PS_FRAMERATE_LIMITER_THRESHOLD = 0x00000000, + PS_FRAMERATE_LIMITER_TEMPERATURE = 0x02000000, + PS_FRAMERATE_LIMITER_POWER = 0x04000000, + PS_FRAMERATE_LIMITER_MODEMASK = 0x0f000000, + PS_FRAMERATE_LIMITER_ACCURATE = 0x10000000, + PS_FRAMERATE_LIMITER_ALLOW_WINDOWED = 0x20000000, + PS_FRAMERATE_LIMITER_FORCEON = 0x40000000, + PS_FRAMERATE_LIMITER_ENABLED = 0x80000000, + PS_FRAMERATE_LIMITER_OPENGL_REMOTE_DESKTOP = 0xe010003c, + PS_FRAMERATE_LIMITER_MASK = 0xff7C00ff, + PS_FRAMERATE_LIMITER_NUM_VALUES = 20, + PS_FRAMERATE_LIMITER_DEFAULT = PS_FRAMERATE_LIMITER_DISABLED +}; + +enum EValues_PS_FRAMERATE_LIMITER_GPS_CTRL { + PS_FRAMERATE_LIMITER_GPS_CTRL_DISABLED = 0x00000000, + PS_FRAMERATE_LIMITER_GPS_CTRL_DECREASE_FILTER_MASK = 0x000001FF, + PS_FRAMERATE_LIMITER_GPS_CTRL_PAUSE_TIME_MASK = 0x0000FE00, + PS_FRAMERATE_LIMITER_GPS_CTRL_PAUSE_TIME_SHIFT = 9, + PS_FRAMERATE_LIMITER_GPS_CTRL_TARGET_RENDER_TIME_MASK = 0x00FF0000, + PS_FRAMERATE_LIMITER_GPS_CTRL_TARGET_RENDER_TIME_SHIFT = 16, + PS_FRAMERATE_LIMITER_GPS_CTRL_PERF_STEP_SIZE_MASK = 0x1F000000, + PS_FRAMERATE_LIMITER_GPS_CTRL_PERF_STEP_SIZE_SHIFT = 24, + PS_FRAMERATE_LIMITER_GPS_CTRL_INCREASE_FILTER_MASK = 0xE0000000, + PS_FRAMERATE_LIMITER_GPS_CTRL_INCREASE_FILTER_SHIFT = 29, + PS_FRAMERATE_LIMITER_GPS_CTRL_OPTIMAL_SETTING = 0x4A5A3219, + PS_FRAMERATE_LIMITER_GPS_CTRL_NUM_VALUES = 11, + PS_FRAMERATE_LIMITER_GPS_CTRL_DEFAULT = PS_FRAMERATE_LIMITER_GPS_CTRL_DISABLED +}; + +enum EValues_PS_FRAMERATE_MONITOR_CTRL { + PS_FRAMERATE_MONITOR_CTRL_DISABLED = 0x00000000, + PS_FRAMERATE_MONITOR_CTRL_THRESHOLD_PCT_MASK = 0x000000FF, + PS_FRAMERATE_MONITOR_CTRL_MOVING_AVG_X_MASK = 0x00000F00, + PS_FRAMERATE_MONITOR_CTRL_MOVING_AVG_X_SHIFT = 8, + PS_FRAMERATE_MONITOR_CTRL_OPTIMAL_SETTING = 0x00000364, + PS_FRAMERATE_MONITOR_CTRL_NUM_VALUES = 5, + PS_FRAMERATE_MONITOR_CTRL_DEFAULT = PS_FRAMERATE_MONITOR_CTRL_DISABLED +}; + +enum EValues_SHIM_MCCOMPAT { + SHIM_MCCOMPAT_INTEGRATED = 0x00000000, + SHIM_MCCOMPAT_ENABLE = 0x00000001, + SHIM_MCCOMPAT_USER_EDITABLE = 0x00000002, + SHIM_MCCOMPAT_MASK = 0x00000003, + SHIM_MCCOMPAT_VIDEO_MASK = 0x00000004, + SHIM_MCCOMPAT_VARYING_BIT = 0x00000008, + SHIM_MCCOMPAT_AUTO_SELECT = 0x00000010, + SHIM_MCCOMPAT_OVERRIDE_BIT = 0x80000000, + SHIM_MCCOMPAT_NUM_VALUES = 8, + SHIM_MCCOMPAT_DEFAULT = SHIM_MCCOMPAT_AUTO_SELECT +}; + +enum EValues_SHIM_RENDERING_MODE { + SHIM_RENDERING_MODE_INTEGRATED = 0x00000000, + SHIM_RENDERING_MODE_ENABLE = 0x00000001, + SHIM_RENDERING_MODE_USER_EDITABLE = 0x00000002, + SHIM_RENDERING_MODE_MASK = 0x00000003, + SHIM_RENDERING_MODE_VIDEO_MASK = 0x00000004, + SHIM_RENDERING_MODE_VARYING_BIT = 0x00000008, + SHIM_RENDERING_MODE_AUTO_SELECT = 0x00000010, + SHIM_RENDERING_MODE_OVERRIDE_BIT = 0x80000000, + SHIM_RENDERING_MODE_NUM_VALUES = 8, + SHIM_RENDERING_MODE_DEFAULT = SHIM_RENDERING_MODE_AUTO_SELECT +}; + +enum EValues_SHIM_RENDERING_OPTIONS { + SHIM_RENDERING_OPTIONS_DEFAULT_RENDERING_MODE = 0x00000000, + SHIM_RENDERING_OPTIONS_DISABLE_ASYNC_PRESENT = 0x00000001, + SHIM_RENDERING_OPTIONS_EHSHELL_DETECT = 0x00000002, + SHIM_RENDERING_OPTIONS_FLASHPLAYER_HOST_DETECT = 0x00000004, + SHIM_RENDERING_OPTIONS_VIDEO_DRM_APP_DETECT = 0x00000008, + SHIM_RENDERING_OPTIONS_IGNORE_OVERRIDES = 0x00000010, + SHIM_RENDERING_OPTIONS_CHILDPROCESS_DETECT = 0x00000020, + SHIM_RENDERING_OPTIONS_ENABLE_DWM_ASYNC_PRESENT = 0x00000040, + SHIM_RENDERING_OPTIONS_PARENTPROCESS_DETECT = 0x00000080, + SHIM_RENDERING_OPTIONS_ALLOW_INHERITANCE = 0x00000100, + SHIM_RENDERING_OPTIONS_DISABLE_WRAPPERS = 0x00000200, + SHIM_RENDERING_OPTIONS_DISABLE_DXGI_WRAPPERS = 0x00000400, + SHIM_RENDERING_OPTIONS_PRUNE_UNSUPPORTED_FORMATS = 0x00000800, + SHIM_RENDERING_OPTIONS_ENABLE_ALPHA_FORMAT = 0x00001000, + SHIM_RENDERING_OPTIONS_IGPU_TRANSCODING = 0x00002000, + SHIM_RENDERING_OPTIONS_DISABLE_CUDA = 0x00004000, + SHIM_RENDERING_OPTIONS_ALLOW_CP_CAPS_FOR_VIDEO = 0x00008000, + SHIM_RENDERING_OPTIONS_IGPU_TRANSCODING_FWD_OPTIMUS = 0x00010000, + SHIM_RENDERING_OPTIONS_DISABLE_DURING_SECURE_BOOT = 0x00020000, + SHIM_RENDERING_OPTIONS_INVERT_FOR_QUADRO = 0x00040000, + SHIM_RENDERING_OPTIONS_INVERT_FOR_MSHYBRID = 0x00080000, + SHIM_RENDERING_OPTIONS_REGISTER_PROCESS_ENABLE_GOLD = 0x00100000, + SHIM_RENDERING_OPTIONS_HANDLE_WINDOWED_MODE_PERF_OPT = 0x00200000, + SHIM_RENDERING_OPTIONS_HANDLE_WIN7_ASYNC_RUNTIME_BUG = 0x00400000, + SHIM_RENDERING_OPTIONS_NUM_VALUES = 24, + SHIM_RENDERING_OPTIONS_DEFAULT = SHIM_RENDERING_OPTIONS_DEFAULT_RENDERING_MODE +}; + +enum EValues_SLI_GPU_COUNT { + SLI_GPU_COUNT_AUTOSELECT = 0x00000000, + SLI_GPU_COUNT_ONE = 0x00000001, + SLI_GPU_COUNT_TWO = 0x00000002, + SLI_GPU_COUNT_THREE = 0x00000003, + SLI_GPU_COUNT_FOUR = 0x00000004, + SLI_GPU_COUNT_NUM_VALUES = 5, + SLI_GPU_COUNT_DEFAULT = SLI_GPU_COUNT_AUTOSELECT +}; + +enum EValues_SLI_PREDEFINED_GPU_COUNT { + SLI_PREDEFINED_GPU_COUNT_AUTOSELECT = 0x00000000, + SLI_PREDEFINED_GPU_COUNT_ONE = 0x00000001, + SLI_PREDEFINED_GPU_COUNT_TWO = 0x00000002, + SLI_PREDEFINED_GPU_COUNT_THREE = 0x00000003, + SLI_PREDEFINED_GPU_COUNT_FOUR = 0x00000004, + SLI_PREDEFINED_GPU_COUNT_NUM_VALUES = 5, + SLI_PREDEFINED_GPU_COUNT_DEFAULT = SLI_PREDEFINED_GPU_COUNT_AUTOSELECT +}; + +enum EValues_SLI_PREDEFINED_GPU_COUNT_DX10 { + SLI_PREDEFINED_GPU_COUNT_DX10_AUTOSELECT = 0x00000000, + SLI_PREDEFINED_GPU_COUNT_DX10_ONE = 0x00000001, + SLI_PREDEFINED_GPU_COUNT_DX10_TWO = 0x00000002, + SLI_PREDEFINED_GPU_COUNT_DX10_THREE = 0x00000003, + SLI_PREDEFINED_GPU_COUNT_DX10_FOUR = 0x00000004, + SLI_PREDEFINED_GPU_COUNT_DX10_NUM_VALUES = 5, + SLI_PREDEFINED_GPU_COUNT_DX10_DEFAULT = SLI_PREDEFINED_GPU_COUNT_DX10_AUTOSELECT +}; + +enum EValues_SLI_PREDEFINED_MODE { + SLI_PREDEFINED_MODE_AUTOSELECT = 0x00000000, + SLI_PREDEFINED_MODE_FORCE_SINGLE = 0x00000001, + SLI_PREDEFINED_MODE_FORCE_AFR = 0x00000002, + SLI_PREDEFINED_MODE_FORCE_AFR2 = 0x00000003, + SLI_PREDEFINED_MODE_FORCE_SFR = 0x00000004, + SLI_PREDEFINED_MODE_FORCE_AFR_OF_SFR__FALLBACK_3AFR = 0x00000005, + SLI_PREDEFINED_MODE_NUM_VALUES = 6, + SLI_PREDEFINED_MODE_DEFAULT = SLI_PREDEFINED_MODE_AUTOSELECT +}; + +enum EValues_SLI_PREDEFINED_MODE_DX10 { + SLI_PREDEFINED_MODE_DX10_AUTOSELECT = 0x00000000, + SLI_PREDEFINED_MODE_DX10_FORCE_SINGLE = 0x00000001, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR = 0x00000002, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR2 = 0x00000003, + SLI_PREDEFINED_MODE_DX10_FORCE_SFR = 0x00000004, + SLI_PREDEFINED_MODE_DX10_FORCE_AFR_OF_SFR__FALLBACK_3AFR = 0x00000005, + SLI_PREDEFINED_MODE_DX10_NUM_VALUES = 6, + SLI_PREDEFINED_MODE_DX10_DEFAULT = SLI_PREDEFINED_MODE_DX10_AUTOSELECT +}; + +enum EValues_SLI_RENDERING_MODE { + SLI_RENDERING_MODE_AUTOSELECT = 0x00000000, + SLI_RENDERING_MODE_FORCE_SINGLE = 0x00000001, + SLI_RENDERING_MODE_FORCE_AFR = 0x00000002, + SLI_RENDERING_MODE_FORCE_AFR2 = 0x00000003, + SLI_RENDERING_MODE_FORCE_SFR = 0x00000004, + SLI_RENDERING_MODE_FORCE_AFR_OF_SFR__FALLBACK_3AFR = 0x00000005, + SLI_RENDERING_MODE_NUM_VALUES = 6, + SLI_RENDERING_MODE_DEFAULT = SLI_RENDERING_MODE_AUTOSELECT +}; + +enum EValues_VRPRERENDERLIMIT { + VRPRERENDERLIMIT_MIN = 0x00, + VRPRERENDERLIMIT_MAX = 0xff, + VRPRERENDERLIMIT_APP_CONTROLLED = 0x00, + VRPRERENDERLIMIT_DEFAULT = 0x01, + VRPRERENDERLIMIT_NUM_VALUES = 4, +}; + +enum EValues_VRRFEATUREINDICATOR { + VRRFEATUREINDICATOR_DISABLED = 0x0, + VRRFEATUREINDICATOR_ENABLED = 0x1, + VRRFEATUREINDICATOR_NUM_VALUES = 2, + VRRFEATUREINDICATOR_DEFAULT = VRRFEATUREINDICATOR_ENABLED +}; + +enum EValues_VRROVERLAYINDICATOR { + VRROVERLAYINDICATOR_DISABLED = 0x0, + VRROVERLAYINDICATOR_ENABLED = 0x1, + VRROVERLAYINDICATOR_NUM_VALUES = 2, + VRROVERLAYINDICATOR_DEFAULT = VRROVERLAYINDICATOR_ENABLED +}; + +enum EValues_VRRREQUESTSTATE { + VRRREQUESTSTATE_DISABLED = 0x0, + VRRREQUESTSTATE_FULLSCREEN_ONLY = 0x1, + VRRREQUESTSTATE_FULLSCREEN_AND_WINDOWED = 0x2, + VRRREQUESTSTATE_NUM_VALUES = 3, + VRRREQUESTSTATE_DEFAULT = VRRREQUESTSTATE_FULLSCREEN_ONLY +}; + +enum EValues_VRR_APP_OVERRIDE { + VRR_APP_OVERRIDE_ALLOW = 0, + VRR_APP_OVERRIDE_FORCE_OFF = 1, + VRR_APP_OVERRIDE_DISALLOW = 2, + VRR_APP_OVERRIDE_ULMB = 3, + VRR_APP_OVERRIDE_FIXED_REFRESH = 4, + VRR_APP_OVERRIDE_NUM_VALUES = 5, + VRR_APP_OVERRIDE_DEFAULT = VRR_APP_OVERRIDE_ALLOW +}; + +enum EValues_VRR_MODE { + VRR_MODE_DISABLED = 0x0, + VRR_MODE_FULLSCREEN_ONLY = 0x1, + VRR_MODE_FULLSCREEN_AND_WINDOWED = 0x2, + VRR_MODE_NUM_VALUES = 3, + VRR_MODE_DEFAULT = VRR_MODE_FULLSCREEN_ONLY +}; + +enum EValues_VSYNCSMOOTHAFR { + VSYNCSMOOTHAFR_OFF = 0x00000000, + VSYNCSMOOTHAFR_ON = 0x00000001, + VSYNCSMOOTHAFR_NUM_VALUES = 2, + VSYNCSMOOTHAFR_DEFAULT = VSYNCSMOOTHAFR_OFF +}; + +enum EValues_VSYNCVRRCONTROL { + VSYNCVRRCONTROL_DISABLE = 0x00000000, + VSYNCVRRCONTROL_ENABLE = 0x00000001, + VSYNCVRRCONTROL_NOTSUPPORTED = 0x9f95128e, + VSYNCVRRCONTROL_NUM_VALUES = 3, + VSYNCVRRCONTROL_DEFAULT = VSYNCVRRCONTROL_ENABLE +}; + +enum EValues_VSYNC_BEHAVIOR_FLAGS { + VSYNC_BEHAVIOR_FLAGS_NONE = 0x00000000, + VSYNC_BEHAVIOR_FLAGS_DEFAULT = 0x00000000, + VSYNC_BEHAVIOR_FLAGS_IGNORE_FLIPINTERVAL_MULTIPLE = 0x00000001, + VSYNC_BEHAVIOR_FLAGS_NUM_VALUES = 3, +}; + +enum EValues_WKS_API_STEREO_EYES_EXCHANGE { + WKS_API_STEREO_EYES_EXCHANGE_OFF = 0, + WKS_API_STEREO_EYES_EXCHANGE_ON = 1, + WKS_API_STEREO_EYES_EXCHANGE_NUM_VALUES = 2, + WKS_API_STEREO_EYES_EXCHANGE_DEFAULT = WKS_API_STEREO_EYES_EXCHANGE_OFF +}; + +enum EValues_WKS_API_STEREO_MODE { + WKS_API_STEREO_MODE_SHUTTER_GLASSES = 0, + WKS_API_STEREO_MODE_VERTICAL_INTERLACED = 1, + WKS_API_STEREO_MODE_TWINVIEW = 2, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_AUTO = 3, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_DAC0 = 4, + WKS_API_STEREO_MODE_NV17_SHUTTER_GLASSES_DAC1 = 5, + WKS_API_STEREO_MODE_COLOR_LINE = 6, + WKS_API_STEREO_MODE_COLOR_INTERLEAVED = 7, + WKS_API_STEREO_MODE_ANAGLYPH = 8, + WKS_API_STEREO_MODE_HORIZONTAL_INTERLACED = 9, + WKS_API_STEREO_MODE_SIDE_FIELD = 10, + WKS_API_STEREO_MODE_SUB_FIELD = 11, + WKS_API_STEREO_MODE_CHECKERBOARD = 12, + WKS_API_STEREO_MODE_INVERSE_CHECKERBOARD = 13, + WKS_API_STEREO_MODE_TRIDELITY_SL = 14, + WKS_API_STEREO_MODE_TRIDELITY_MV = 15, + WKS_API_STEREO_MODE_SEEFRONT = 16, + WKS_API_STEREO_MODE_STEREO_MIRROR = 17, + WKS_API_STEREO_MODE_FRAME_SEQUENTIAL = 18, + WKS_API_STEREO_MODE_AUTODETECT_PASSIVE_MODE = 19, + WKS_API_STEREO_MODE_AEGIS_DT_FRAME_SEQUENTIAL = 20, + WKS_API_STEREO_MODE_OEM_EMITTER_FRAME_SEQUENTIAL = 21, + WKS_API_STEREO_MODE_USE_HW_DEFAULT = 0xffffffff, + WKS_API_STEREO_MODE_DEFAULT_GL = 3, + WKS_API_STEREO_MODE_NUM_VALUES = 24, + WKS_API_STEREO_MODE_DEFAULT = WKS_API_STEREO_MODE_SHUTTER_GLASSES +}; + +enum EValues_WKS_MEMORY_ALLOCATION_POLICY { + WKS_MEMORY_ALLOCATION_POLICY_AS_NEEDED = 0x0, + WKS_MEMORY_ALLOCATION_POLICY_MODERATE_PRE_ALLOCATION = 0x1, + WKS_MEMORY_ALLOCATION_POLICY_AGGRESSIVE_PRE_ALLOCATION = 0x2, + WKS_MEMORY_ALLOCATION_POLICY_NUM_VALUES = 3, + WKS_MEMORY_ALLOCATION_POLICY_DEFAULT = WKS_MEMORY_ALLOCATION_POLICY_AS_NEEDED +}; + +enum EValues_WKS_STEREO_DONGLE_SUPPORT { + WKS_STEREO_DONGLE_SUPPORT_OFF = 0, + WKS_STEREO_DONGLE_SUPPORT_DAC = 1, + WKS_STEREO_DONGLE_SUPPORT_DLP = 2, + WKS_STEREO_DONGLE_SUPPORT_NUM_VALUES = 3, + WKS_STEREO_DONGLE_SUPPORT_DEFAULT = WKS_STEREO_DONGLE_SUPPORT_OFF +}; + +enum EValues_WKS_STEREO_SUPPORT { + WKS_STEREO_SUPPORT_OFF = 0, + WKS_STEREO_SUPPORT_ON = 1, + WKS_STEREO_SUPPORT_NUM_VALUES = 2, + WKS_STEREO_SUPPORT_DEFAULT = WKS_STEREO_SUPPORT_OFF +}; + +enum EValues_WKS_STEREO_SWAP_MODE { + WKS_STEREO_SWAP_MODE_APPLICATION_CONTROL = 0x0, + WKS_STEREO_SWAP_MODE_PER_EYE = 0x1, + WKS_STEREO_SWAP_MODE_PER_EYE_PAIR = 0x2, + WKS_STEREO_SWAP_MODE_LEGACY_BEHAVIOR = 0x3, + WKS_STEREO_SWAP_MODE_NUM_VALUES = 4, + WKS_STEREO_SWAP_MODE_DEFAULT = WKS_STEREO_SWAP_MODE_APPLICATION_CONTROL +}; + +enum EValues_AO_MODE { + AO_MODE_OFF = 0, + AO_MODE_LOW = 1, + AO_MODE_MEDIUM = 2, + AO_MODE_HIGH = 3, + AO_MODE_NUM_VALUES = 4, + AO_MODE_DEFAULT = AO_MODE_OFF +}; + +enum EValues_AO_MODE_ACTIVE { + AO_MODE_ACTIVE_DISABLED = 0, + AO_MODE_ACTIVE_ENABLED = 1, + AO_MODE_ACTIVE_NUM_VALUES = 2, + AO_MODE_ACTIVE_DEFAULT = AO_MODE_ACTIVE_DISABLED +}; + +enum EValues_AUTO_LODBIASADJUST { + AUTO_LODBIASADJUST_OFF = 0x00000000, + AUTO_LODBIASADJUST_ON = 0x00000001, + AUTO_LODBIASADJUST_NUM_VALUES = 2, + AUTO_LODBIASADJUST_DEFAULT = AUTO_LODBIASADJUST_ON +}; + +enum EValues_LODBIASADJUST { + LODBIASADJUST_MIN = 0xffffff80, + LODBIASADJUST_MAX = 128, + LODBIASADJUST_NUM_VALUES = 2, + LODBIASADJUST_DEFAULT = 0 +}; + +enum EValues_MAXWELL_B_SAMPLE_INTERLEAVE { + MAXWELL_B_SAMPLE_INTERLEAVE_OFF = 0, + MAXWELL_B_SAMPLE_INTERLEAVE_ON = 1, + MAXWELL_B_SAMPLE_INTERLEAVE_NUM_VALUES = 2, + MAXWELL_B_SAMPLE_INTERLEAVE_DEFAULT = MAXWELL_B_SAMPLE_INTERLEAVE_OFF +}; + +enum EValues_PRERENDERLIMIT { + PRERENDERLIMIT_MIN = 0x00, + PRERENDERLIMIT_MAX = 0xff, + PRERENDERLIMIT_APP_CONTROLLED = 0x00, + PRERENDERLIMIT_NUM_VALUES = 3, + PRERENDERLIMIT_DEFAULT = PRERENDERLIMIT_APP_CONTROLLED +}; + +enum EValues_PS_SHADERDISKCACHE { + PS_SHADERDISKCACHE_OFF = 0x00000000, + PS_SHADERDISKCACHE_ON = 0x00000001, + PS_SHADERDISKCACHE_NUM_VALUES = 2, + PS_SHADERDISKCACHE_DEFAULT = 0x1 +}; + +enum EValues_PS_TEXFILTER_ANISO_OPTS2 { + PS_TEXFILTER_ANISO_OPTS2_OFF = 0x00000000, + PS_TEXFILTER_ANISO_OPTS2_ON = 0x00000001, + PS_TEXFILTER_ANISO_OPTS2_NUM_VALUES = 2, + PS_TEXFILTER_ANISO_OPTS2_DEFAULT = PS_TEXFILTER_ANISO_OPTS2_OFF +}; + +enum EValues_PS_TEXFILTER_BILINEAR_IN_ANISO { + PS_TEXFILTER_BILINEAR_IN_ANISO_OFF = 0x00000000, + PS_TEXFILTER_BILINEAR_IN_ANISO_ON = 0x00000001, + PS_TEXFILTER_BILINEAR_IN_ANISO_NUM_VALUES = 2, + PS_TEXFILTER_BILINEAR_IN_ANISO_DEFAULT = PS_TEXFILTER_BILINEAR_IN_ANISO_OFF +}; + +enum EValues_PS_TEXFILTER_DISABLE_TRILIN_SLOPE { + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_OFF = 0x00000000, + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_ON = 0x00000001, + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_NUM_VALUES = 2, + PS_TEXFILTER_DISABLE_TRILIN_SLOPE_DEFAULT = PS_TEXFILTER_DISABLE_TRILIN_SLOPE_OFF +}; + +enum EValues_PS_TEXFILTER_NO_NEG_LODBIAS { + PS_TEXFILTER_NO_NEG_LODBIAS_OFF = 0x00000000, + PS_TEXFILTER_NO_NEG_LODBIAS_ON = 0x00000001, + PS_TEXFILTER_NO_NEG_LODBIAS_NUM_VALUES = 2, + PS_TEXFILTER_NO_NEG_LODBIAS_DEFAULT = PS_TEXFILTER_NO_NEG_LODBIAS_OFF +}; + +enum EValues_QUALITY_ENHANCEMENTS { + QUALITY_ENHANCEMENTS_HIGHQUALITY = 0xfffffff6, + QUALITY_ENHANCEMENTS_QUALITY = 0x00000000, + QUALITY_ENHANCEMENTS_PERFORMANCE = 0x0000000a, + QUALITY_ENHANCEMENTS_HIGHPERFORMANCE = 0x00000014, + QUALITY_ENHANCEMENTS_NUM_VALUES = 4, + QUALITY_ENHANCEMENTS_DEFAULT = QUALITY_ENHANCEMENTS_QUALITY +}; + +enum EValues_REFRESH_RATE_OVERRIDE { + REFRESH_RATE_OVERRIDE_APPLICATION_CONTROLLED = 0, + REFRESH_RATE_OVERRIDE_HIGHEST_AVAILABLE = 1, + REFRESH_RATE_OVERRIDE_NUM_VALUES = 2, + REFRESH_RATE_OVERRIDE_DEFAULT = REFRESH_RATE_OVERRIDE_APPLICATION_CONTROLLED +}; + +enum EValues_SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE { + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_OFF = 0x00000000, + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_ON = 0x00000001, + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_NUM_VALUES = 2, + SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_DEFAULT = SET_POWER_THROTTLE_FOR_PCIe_COMPLIANCE_OFF +}; + +enum EValues_SET_VAB_DATA { + SET_VAB_DATA_ZERO = 0x00000000, + SET_VAB_DATA_UINT_ONE = 0x00000001, + SET_VAB_DATA_FLOAT_ONE = 0x3f800000, + SET_VAB_DATA_FLOAT_POS_INF = 0x7f800000, + SET_VAB_DATA_FLOAT_NAN = 0x7fc00000, + SET_VAB_DATA_USE_API_DEFAULTS = 0xffffffff, + SET_VAB_DATA_NUM_VALUES = 6, + SET_VAB_DATA_DEFAULT = SET_VAB_DATA_USE_API_DEFAULTS +}; + +enum EValues_VSYNCMODE { + VSYNCMODE_PASSIVE = 0x60925292, + VSYNCMODE_FORCEOFF = 0x08416747, + VSYNCMODE_FORCEON = 0x47814940, + VSYNCMODE_FLIPINTERVAL2 = 0x32610244, + VSYNCMODE_FLIPINTERVAL3 = 0x71271021, + VSYNCMODE_FLIPINTERVAL4 = 0x13245256, + VSYNCMODE_NUM_VALUES = 6, + VSYNCMODE_DEFAULT = VSYNCMODE_PASSIVE +}; + +enum EValues_VSYNCTEARCONTROL { + VSYNCTEARCONTROL_DISABLE = 0x96861077, + VSYNCTEARCONTROL_ENABLE = 0x99941284, + VSYNCTEARCONTROL_NUM_VALUES = 2, + VSYNCTEARCONTROL_DEFAULT = VSYNCTEARCONTROL_DISABLE +}; + + + +typedef struct _SettingDWORDNameString { + NvU32 settingId; + const wchar_t * settingNameString; + NvU32 numSettingValues; + NvU32 *settingValues; + NvU32 defaultValue; +} SettingDWORDNameString; + +typedef struct _SettingWSTRINGNameString { + NvU32 settingId; + const wchar_t * settingNameString; + NvU32 numSettingValues; + const wchar_t **settingValues; + const wchar_t * defaultValue; +} SettingWSTRINGNameString; + + +#endif // _NVAPI_DRIVER_SETTINGS_H_ + diff --git a/sdk/include/nvapi/nvHLSLExtns.h b/sdk/include/nvapi/nvHLSLExtns.h new file mode 100644 index 00000000000..dce315275cf --- /dev/null +++ b/sdk/include/nvapi/nvHLSLExtns.h @@ -0,0 +1,436 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +////////////////////////// NVIDIA SHADER EXTENSIONS ///////////////// + +// this file is to be #included in the app HLSL shader code to make +// use of nvidia shader extensions + + +#include "nvHLSLExtnsInternal.h" + +//----------------------------------------------------------------------------// +//------------------------- Warp Shuffle Functions ---------------------------// +//----------------------------------------------------------------------------// + +// all functions have variants with width parameter which permits sub-division +// of the warp into segments - for example to exchange data between 4 groups of +// 8 lanes in a SIMD manner. If width is less than warpSize then each subsection +// of the warp behaves as a separate entity with a starting logical lane ID of 0. +// A thread may only exchange data with others in its own subsection. Width must +// have a value which is a power of 2 so that the warp can be subdivided equally; +// results are undefined if width is not a power of 2, or is a number greater +// than warpSize. + +// +// simple variant of SHFL instruction +// returns val from the specified lane +// optional width parameter must be a power of two and width <= 32 +// +int NvShfl(int val, uint srcLane, int width = NV_WARP_SIZE) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = val; // variable to be shuffled + g_NvidiaExt[index].src0u.y = srcLane; // source lane + g_NvidiaExt[index].src0u.z = __NvGetShflMaskFromWidth(width); + g_NvidiaExt[index].opcode = NV_EXTN_OP_SHFL; + + // result is returned as the return value of IncrementCounter on fake UAV slot + return g_NvidiaExt.IncrementCounter(); +} + +// +// Copy from a lane with lower ID relative to caller +// +int NvShflUp(int val, uint delta, int width = NV_WARP_SIZE) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = val; // variable to be shuffled + g_NvidiaExt[index].src0u.y = delta; // relative lane offset + g_NvidiaExt[index].src0u.z = (NV_WARP_SIZE - width) << 8; // minIndex = maxIndex for shfl_up (src2[4:0] is expected to be 0) + g_NvidiaExt[index].opcode = NV_EXTN_OP_SHFL_UP; + return g_NvidiaExt.IncrementCounter(); +} + +// +// Copy from a lane with higher ID relative to caller +// +int NvShflDown(int val, uint delta, int width = NV_WARP_SIZE) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = val; // variable to be shuffled + g_NvidiaExt[index].src0u.y = delta; // relative lane offset + g_NvidiaExt[index].src0u.z = __NvGetShflMaskFromWidth(width); + g_NvidiaExt[index].opcode = NV_EXTN_OP_SHFL_DOWN; + return g_NvidiaExt.IncrementCounter(); +} + +// +// Copy from a lane based on bitwise XOR of own lane ID +// +int NvShflXor(int val, uint laneMask, int width = NV_WARP_SIZE) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = val; // variable to be shuffled + g_NvidiaExt[index].src0u.y = laneMask; // laneMask to be XOR'ed with current laneId to get the source lane id + g_NvidiaExt[index].src0u.z = __NvGetShflMaskFromWidth(width); + g_NvidiaExt[index].opcode = NV_EXTN_OP_SHFL_XOR; + return g_NvidiaExt.IncrementCounter(); +} + + +//----------------------------------------------------------------------------// +//----------------------------- Warp Vote Functions---------------------------// +//----------------------------------------------------------------------------// + +// returns 0xFFFFFFFF if the predicate is true for any thread in the warp, returns 0 otherwise +uint NvAny(int predicate) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = predicate; + g_NvidiaExt[index].opcode = NV_EXTN_OP_VOTE_ANY; + return g_NvidiaExt.IncrementCounter(); +} + +// returns 0xFFFFFFFF if the predicate is true for ALL threads in the warp, returns 0 otherwise +uint NvAll(int predicate) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = predicate; + g_NvidiaExt[index].opcode = NV_EXTN_OP_VOTE_ALL; + return g_NvidiaExt.IncrementCounter(); +} + +// returns a mask of all threads in the warp with bits set for threads that have predicate true +uint NvBallot(int predicate) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = predicate; + g_NvidiaExt[index].opcode = NV_EXTN_OP_VOTE_BALLOT; + return g_NvidiaExt.IncrementCounter(); +} + + +//----------------------------------------------------------------------------// +//----------------------------- Utility Functions ----------------------------// +//----------------------------------------------------------------------------// + +// returns the lane index of the current thread (thread index in warp) +int NvGetLaneId() +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].opcode = NV_EXTN_OP_GET_LANE_ID; + return g_NvidiaExt.IncrementCounter(); +} + + +//----------------------------------------------------------------------------// +//----------------------------- FP16 Atmoic Functions-------------------------// +//----------------------------------------------------------------------------// + +// The functions below performs atomic operations on two consecutive fp16 +// values in the given raw UAV. +// The uint paramater 'fp16x2Val' is treated as two fp16 values byteAddress must be multiple of 4 +// The returned value are the two fp16 values packed into a single uint + +uint NvInterlockedAddFp16x2(RWByteAddressBuffer uav, uint byteAddress, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWByteAddressBuffer uav, uint byteAddress, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWByteAddressBuffer uav, uint byteAddress, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, fp16x2Val, NV_EXTN_ATOM_MAX); +} + + +// versions of the above functions taking two fp32 values (internally converted to fp16 values) +uint NvInterlockedAddFp16x2(RWByteAddressBuffer uav, uint byteAddress, float2 val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWByteAddressBuffer uav, uint byteAddress, float2 val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWByteAddressBuffer uav, uint byteAddress, float2 val) +{ + return __NvAtomicOpFP16x2(uav, byteAddress, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MAX); +} + + +//----------------------------------------------------------------------------// + +// The functions below perform atomic operation on a R16G16_FLOAT UAV at the given address +// the uint paramater 'fp16x2Val' is treated as two fp16 values +// the returned value are the two fp16 values (.x and .y components) packed into a single uint +// Warning: Behaviour of these set of functions is undefined if the UAV is not +// of R16G16_FLOAT format (might result in app crash or TDR) + +uint NvInterlockedAddFp16x2(RWTexture1D uav, uint address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture1D uav, uint address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture1D uav, uint address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + +uint NvInterlockedAddFp16x2(RWTexture2D uav, uint2 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture2D uav, uint2 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture2D uav, uint2 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + +uint NvInterlockedAddFp16x2(RWTexture3D uav, uint3 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture3D uav, uint3 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture3D uav, uint3 address, uint fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + + +// versions taking two fp32 values (internally converted to fp16) +uint NvInterlockedAddFp16x2(RWTexture1D uav, uint address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture1D uav, uint address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture1D uav, uint address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MAX); +} + +uint NvInterlockedAddFp16x2(RWTexture2D uav, uint2 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture2D uav, uint2 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture2D uav, uint2 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MAX); +} + +uint NvInterlockedAddFp16x2(RWTexture3D uav, uint3 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_ADD); +} + +uint NvInterlockedMinFp16x2(RWTexture3D uav, uint3 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MIN); +} + +uint NvInterlockedMaxFp16x2(RWTexture3D uav, uint3 address, float2 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x2Tofp16x2(val), NV_EXTN_ATOM_MAX); +} + + +//----------------------------------------------------------------------------// + +// The functions below perform Atomic operation on a R16G16B16A16_FLOAT UAV at the given address +// the uint2 paramater 'fp16x2Val' is treated as four fp16 values +// i.e, fp16x2Val.x = uav.xy and fp16x2Val.y = uav.yz +// The returned value are the four fp16 values (.xyzw components) packed into uint2 +// Warning: Behaviour of these set of functions is undefined if the UAV is not +// of R16G16B16A16_FLOAT format (might result in app crash or TDR) + +uint2 NvInterlockedAddFp16x4(RWTexture1D uav, uint address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture1D uav, uint address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture1D uav, uint address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + +uint2 NvInterlockedAddFp16x4(RWTexture2D uav, uint2 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture2D uav, uint2 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture2D uav, uint2 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + +uint2 NvInterlockedAddFp16x4(RWTexture3D uav, uint3 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture3D uav, uint3 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture3D uav, uint3 address, uint2 fp16x2Val) +{ + return __NvAtomicOpFP16x2(uav, address, fp16x2Val, NV_EXTN_ATOM_MAX); +} + +// versions taking four fp32 values (internally converted to fp16) +uint2 NvInterlockedAddFp16x4(RWTexture1D uav, uint address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture1D uav, uint address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture1D uav, uint address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MAX); +} + +uint2 NvInterlockedAddFp16x4(RWTexture2D uav, uint2 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture2D uav, uint2 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture2D uav, uint2 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MAX); +} + +uint2 NvInterlockedAddFp16x4(RWTexture3D uav, uint3 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_ADD); +} + +uint2 NvInterlockedMinFp16x4(RWTexture3D uav, uint3 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MIN); +} + +uint2 NvInterlockedMaxFp16x4(RWTexture3D uav, uint3 address, float4 val) +{ + return __NvAtomicOpFP16x2(uav, address, __fp32x4Tofp16x4(val), NV_EXTN_ATOM_MAX); +} + + +//----------------------------------------------------------------------------// +//----------------------------- FP32 Atmoic Functions-------------------------// +//----------------------------------------------------------------------------// + +// The functions below performs atomic add on the given UAV treating the value as float +// byteAddress must be multiple of 4 +// The returned value is the value present in memory location before the atomic add + +float NvInterlockedAddFp32(RWByteAddressBuffer uav, uint byteAddress, float val) +{ + return __NvAtomicAddFP32(uav, byteAddress, val); +} + +//----------------------------------------------------------------------------// + +// The functions below perform atomic add on a R32_FLOAT UAV at the given address +// the returned value is the value before performing the atomic add +// Warning: Behaviour of these set of functions is undefined if the UAV is not +// of R32_FLOAT format (might result in app crash or TDR) + +float NvInterlockedAddFp32(RWTexture1D uav, uint address, float val) +{ + return __NvAtomicAddFP32(uav, address, val); +} + +float NvInterlockedAddFp32(RWTexture2D uav, uint2 address, float val) +{ + return __NvAtomicAddFP32(uav, address, val); +} + +float NvInterlockedAddFp32(RWTexture3D uav, uint3 address, float val) +{ + return __NvAtomicAddFP32(uav, address, val); +} + diff --git a/sdk/include/nvapi/nvHLSLExtnsInternal.h b/sdk/include/nvapi/nvHLSLExtnsInternal.h new file mode 100644 index 00000000000..95cf3f241c7 --- /dev/null +++ b/sdk/include/nvapi/nvHLSLExtnsInternal.h @@ -0,0 +1,506 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +////////////////////////// NVIDIA SHADER EXTENSIONS ///////////////// +// internal functions +// Functions in this file are not expected to be called by apps directly + +#include "nvShaderExtnEnums.h" + +struct NvShaderExtnStruct +{ + uint opcode; // opcode + uint rid; // resource ID + uint sid; // sampler ID + + uint4 dst1u; // destination operand 1 (for instructions that need extra destination operands) + uint4 padding0[3]; // currently unused + + uint4 src0u; // uint source operand 0 + uint4 src1u; // uint source operand 0 + uint4 src2u; // uint source operand 0 + uint4 dst0u; // uint destination operand + + uint markUavRef; // the next store to UAV is fake and is used only to identify the uav slot + float padding1[28];// struct size: 256 bytes +}; + +// RW structured buffer for Nvidia shader extensions + +// Application needs to define NV_SHADER_EXTN_SLOT as a unused slot, which should be +// set using NvAPI_D3D11_SetNvShaderExtnSlot() call before creating the first shader that +// uses nvidia shader extensions. E.g before including this file in shader define it as: +// #define NV_SHADER_EXTN_SLOT u7 + +// Note that other operations to this UAV will be ignored so application +// should bind a null resource +RWStructuredBuffer g_NvidiaExt : register( NV_SHADER_EXTN_SLOT ); + + +//----------------------------------------------------------------------------// +// the exposed SHFL instructions accept a mask parameter in src2 +// To compute lane mask from width of segment: +// minLaneID : currentLaneId & src2[12:8] +// maxLaneID : minLaneId | (src2[4:0] & ~src2[12:8]) +// where [minLaneId, maxLaneId] defines the segment where currentLaneId belongs +// we always set src2[4:0] to 11111 (0x1F), and set src2[12:8] as (32 - width) +int __NvGetShflMaskFromWidth(uint width) +{ + return ((NV_WARP_SIZE - width) << 8) | 0x1F; +} + +//----------------------------------------------------------------------------// + +void __NvReferenceUAVForOp(RWByteAddressBuffer uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav.Store(index, 0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = float2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = float2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = float2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = float4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = float4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = float4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = 0.0f; +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = 0.0f; +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = 0.0f; +} + + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = uint2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = uint2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = uint2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = uint4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = uint4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = uint4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = 0; +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = 0; +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = 0; +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = int2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = int2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = int2(0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = int4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = int4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = int4(0,0,0,0); +} + +void __NvReferenceUAVForOp(RWTexture1D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[index] = 0; +} + +void __NvReferenceUAVForOp(RWTexture2D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint2(index,index)] = 0; +} + +void __NvReferenceUAVForOp(RWTexture3D uav) +{ + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].markUavRef = 1; + uav[uint3(index,index,index)] = 0; +} + +//----------------------------------------------------------------------------// +// ATOMIC op sub-opcodes +#define NV_EXTN_ATOM_ADD 3 +#define NV_EXTN_ATOM_MAX 6 +#define NV_EXTN_ATOM_MIN 7 + +//----------------------------------------------------------------------------// + +// performs Atomic operation on two consecutive fp16 values in the given UAV +// the uint paramater 'fp16x2Val' is treated as two fp16 values +// the passed sub-opcode 'op' should be an immediate constant +// byteAddress must be multiple of 4 +// the returned value are the two fp16 values packed into a single uint +uint __NvAtomicOpFP16x2(RWByteAddressBuffer uav, uint byteAddress, uint fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = byteAddress; + g_NvidiaExt[index].src1u.x = fp16x2Val; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + + return g_NvidiaExt[index].dst0u.x; +} + +//----------------------------------------------------------------------------// + +// performs Atomic operation on a R16G16_FLOAT UAV at the given address +// the uint paramater 'fp16x2Val' is treated as two fp16 values +// the passed sub-opcode 'op' should be an immediate constant +// the returned value are the two fp16 values (.x and .y components) packed into a single uint +// Warning: Behaviour of these set of functions is undefined if the UAV is not +// of R16G16_FLOAT format (might result in app crash or TDR) + +uint __NvAtomicOpFP16x2(RWTexture1D uav, uint address, uint fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = address; + g_NvidiaExt[index].src1u.x = fp16x2Val; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + + return g_NvidiaExt[index].dst0u.x; +} + +uint __NvAtomicOpFP16x2(RWTexture2D uav, uint2 address, uint fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xy = address; + g_NvidiaExt[index].src1u.x = fp16x2Val; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + + return g_NvidiaExt[index].dst0u.x; +} + +uint __NvAtomicOpFP16x2(RWTexture3D uav, uint3 address, uint fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xyz = address; + g_NvidiaExt[index].src1u.x = fp16x2Val; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + + return g_NvidiaExt[index].dst0u.x; +} + +//----------------------------------------------------------------------------// + +// performs Atomic operation on a R16G16B16A16_FLOAT UAV at the given address +// the uint2 paramater 'fp16x2Val' is treated as four fp16 values +// i.e, fp16x2Val.x = uav.xy and fp16x2Val.y = uav.yz +// the passed sub-opcode 'op' should be an immediate constant +// the returned value are the four fp16 values (.xyzw components) packed into uint2 +// Warning: Behaviour of these set of functions is undefined if the UAV is not +// of R16G16B16A16_FLOAT format (might result in app crash or TDR) + +uint2 __NvAtomicOpFP16x2(RWTexture1D uav, uint address, uint2 fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + + // break it down into two fp16x2 atomic ops + uint2 retVal; + + // first op has x-coordinate = x * 2 + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = address * 2; + g_NvidiaExt[index].src1u.x = fp16x2Val.x; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.x = g_NvidiaExt[index].dst0u.x; + + // second op has x-coordinate = x * 2 + 1 + index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = address * 2 + 1; + g_NvidiaExt[index].src1u.x = fp16x2Val.y; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.y = g_NvidiaExt[index].dst0u.x; + + return retVal; +} + +uint2 __NvAtomicOpFP16x2(RWTexture2D uav, uint2 address, uint2 fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + + // break it down into two fp16x2 atomic ops + uint2 retVal; + + // first op has x-coordinate = x * 2 + uint2 addressTemp = uint2(address.x * 2, address.y); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xy = addressTemp; + g_NvidiaExt[index].src1u.x = fp16x2Val.x; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.x = g_NvidiaExt[index].dst0u.x; + + // second op has x-coordinate = x * 2 + 1 + addressTemp.x++; + index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xy = addressTemp; + g_NvidiaExt[index].src1u.x = fp16x2Val.y; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.y = g_NvidiaExt[index].dst0u.x; + + return retVal; +} + +uint2 __NvAtomicOpFP16x2(RWTexture3D uav, uint3 address, uint2 fp16x2Val, uint atomicOpType) +{ + __NvReferenceUAVForOp(uav); + + // break it down into two fp16x2 atomic ops + uint2 retVal; + + // first op has x-coordinate = x * 2 + uint3 addressTemp = uint3(address.x * 2, address.y, address.z); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xyz = addressTemp; + g_NvidiaExt[index].src1u.x = fp16x2Val.x; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.x = g_NvidiaExt[index].dst0u.x; + + // second op has x-coordinate = x * 2 + 1 + addressTemp.x++; + index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xyz = addressTemp; + g_NvidiaExt[index].src1u.x = fp16x2Val.y; + g_NvidiaExt[index].src2u.x = atomicOpType; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP16_ATOMIC; + retVal.y = g_NvidiaExt[index].dst0u.x; + + return retVal; +} + +uint __fp32x2Tofp16x2(float2 val) +{ + return (f32tof16(val.y)<<16) | f32tof16(val.x) ; +} + +uint2 __fp32x4Tofp16x4(float4 val) +{ + return uint2( (f32tof16(val.y)<<16) | f32tof16(val.x), (f32tof16(val.w)<<16) | f32tof16(val.z) ) ; +} + +// FP32 Atomic functions + +// performs Atomic operation treating the uav as float (fp32) values +// the passed sub-opcode 'op' should be an immediate constant +// byteAddress must be multiple of 4 +float __NvAtomicAddFP32(RWByteAddressBuffer uav, uint byteAddress, float val) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = byteAddress; + g_NvidiaExt[index].src1u.x = asuint(val); // passing as uint to make it more convinient for the driver to translate + g_NvidiaExt[index].src2u.x = NV_EXTN_ATOM_ADD; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP32_ATOMIC; + + return asfloat(g_NvidiaExt[index].dst0u.x); +} + +float __NvAtomicAddFP32(RWTexture1D uav, uint address, float val) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.x = address; + g_NvidiaExt[index].src1u.x = asuint(val); + g_NvidiaExt[index].src2u.x = NV_EXTN_ATOM_ADD; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP32_ATOMIC; + + return asfloat(g_NvidiaExt[index].dst0u.x); +} + +float __NvAtomicAddFP32(RWTexture2D uav, uint2 address, float val) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xy = address; + g_NvidiaExt[index].src1u.x = asuint(val); + g_NvidiaExt[index].src2u.x = NV_EXTN_ATOM_ADD; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP32_ATOMIC; + + return asfloat(g_NvidiaExt[index].dst0u.x); +} + +float __NvAtomicAddFP32(RWTexture3D uav, uint3 address, float val) +{ + __NvReferenceUAVForOp(uav); + uint index = g_NvidiaExt.IncrementCounter(); + g_NvidiaExt[index].src0u.xyz = address; + g_NvidiaExt[index].src1u.x = asuint(val); + g_NvidiaExt[index].src2u.x = NV_EXTN_ATOM_ADD; + g_NvidiaExt[index].opcode = NV_EXTN_OP_FP32_ATOMIC; + + return asfloat(g_NvidiaExt[index].dst0u.x); +} + diff --git a/sdk/include/nvapi/nvShaderExtnEnums.h b/sdk/include/nvapi/nvShaderExtnEnums.h new file mode 100644 index 00000000000..9c66a12b1c9 --- /dev/null +++ b/sdk/include/nvapi/nvShaderExtnEnums.h @@ -0,0 +1,72 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +//////////////////////////////////////////////////////////////////////////////// +////////////////////////// NVIDIA SHADER EXTENSIONS //////////////////////////// +//////////////////////////////////////////////////////////////////////////////// + +// This file can be included both from HLSL shader code as well as C++ code. +// The app should call NvAPI_D3D_IsNvShaderExtnOpCodeSupported() to +// check for support for every nv shader extension opcode it plans to use + + + +//----------------------------------------------------------------------------// +//---------------------------- NV Shader Extn Version -----------------------// +//----------------------------------------------------------------------------// +#define NV_SHADER_EXTN_VERSION 1 + +//----------------------------------------------------------------------------// +//---------------------------- Misc constants --------------------------------// +//----------------------------------------------------------------------------// +#define NV_WARP_SIZE 32 + + +//----------------------------------------------------------------------------// +//---------------------------- opCode constants ------------------------------// +//----------------------------------------------------------------------------// + + +#define NV_EXTN_OP_SHFL 1 +#define NV_EXTN_OP_SHFL_UP 2 +#define NV_EXTN_OP_SHFL_DOWN 3 +#define NV_EXTN_OP_SHFL_XOR 4 + +#define NV_EXTN_OP_VOTE_ALL 5 +#define NV_EXTN_OP_VOTE_ANY 6 +#define NV_EXTN_OP_VOTE_BALLOT 7 + +#define NV_EXTN_OP_GET_LANE_ID 8 +#define NV_EXTN_OP_FP16_ATOMIC 12 +#define NV_EXTN_OP_FP32_ATOMIC 13 diff --git a/sdk/include/nvapi/nvapi.h b/sdk/include/nvapi/nvapi.h new file mode 100644 index 00000000000..e5a0c9487a4 --- /dev/null +++ b/sdk/include/nvapi/nvapi.h @@ -0,0 +1,11032 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +#include"nvapi_lite_salstart.h" +#include"nvapi_lite_common.h" +#include"nvapi_lite_sli.h" +#include"nvapi_lite_surround.h" +#include"nvapi_lite_stereo.h" +#include"nvapi_lite_d3dext.h" + +/////////////////////////////////////////////////////////////////////////////// +// +// Date: May 28, 2015 +// File: nvapi.h +// +// NvAPI provides an interface to NVIDIA devices. This file contains the +// interface constants, structure definitions and function prototypes. +// +// Target Profile: developer +// Target Platform: windows +// +/////////////////////////////////////////////////////////////////////////////// +#ifndef _NVAPI_H +#define _NVAPI_H + +#pragma pack(push,8) // Make sure we have consistent structure packings + +#ifdef __cplusplus +extern "C" { +#endif +// ==================================================== +// Universal NvAPI Definitions +// ==================================================== +#ifndef _WIN32 +#define __cdecl +#endif + + + +//! @} + +//! \ingroup nvapistatus +#define NVAPI_API_NOT_INTIALIZED NVAPI_API_NOT_INITIALIZED //!< Fix typo in error code + +//! \ingroup nvapistatus +#define NVAPI_INVALID_USER_PRIVILEDGE NVAPI_INVALID_USER_PRIVILEGE //!< Fix typo in error code + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Initialize +// +//! This function initializes the NvAPI library (if not already initialized) but always increments the ref-counter. +//! This must be called before calling other NvAPI_ functions. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_ERROR An error occurred during the initialization process (generic error) +//! \retval NVAPI_LIBRARYNOTFOUND Failed to load the NVAPI support library +//! \retval NVAPI_OK Initialized +//! \sa nvapistatus +//! \ingroup nvapifunctions +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Initialize(); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Unload +// +//! DESCRIPTION: Decrements the ref-counter and when it reaches ZERO, unloads NVAPI library. +//! This must be called in pairs with NvAPI_Initialize. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! Note: By design, it is not mandatory to call NvAPI_Initialize before calling any NvAPI. +//! When any NvAPI is called without first calling NvAPI_Initialize, the internal refcounter +//! will be implicitly incremented. In such cases, calling NvAPI_Initialize from a different thread will +//! result in incrementing the refcount again and the user has to call NvAPI_Unload twice to +//! unload the library. However, note that the implicit increment of the refcounter happens only once. +//! If the client wants unload functionality, it is recommended to always call NvAPI_Initialize and NvAPI_Unload in pairs. +//! +//! Unloading NvAPI library is not supported when the library is in a resource locked state. +//! Some functions in the NvAPI library initiates an operation or allocates certain resources +//! and there are corresponding functions available, to complete the operation or free the +//! allocated resources. All such function pairs are designed to prevent unloading NvAPI library. +//! +//! For example, if NvAPI_Unload is called after NvAPI_XXX which locks a resource, it fails with +//! NVAPI_ERROR. Developers need to call the corresponding NvAPI_YYY to unlock the resources, +//! before calling NvAPI_Unload again. +//! +//! \retval ::NVAPI_ERROR One or more resources are locked and hence cannot unload NVAPI library +//! \retval ::NVAPI_OK NVAPI library unloaded +//! +//! \ingroup nvapifunctions +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Unload(); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetErrorMessage +// +//! This function converts an NvAPI error code into a null terminated string. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \param nr The error code to convert +//! \param szDesc The string corresponding to the error code +//! +//! \return NULL terminated string (always, never NULL) +//! \ingroup nvapifunctions +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetErrorMessage(NvAPI_Status nr,NvAPI_ShortString szDesc); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetInterfaceVersionString +// +//! This function returns a string describing the version of the NvAPI library. +//! The contents of the string are human readable. Do not assume a fixed +//! format. +//! +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \param szDesc User readable string giving NvAPI version information +//! +//! \return See \ref nvapistatus for the list of possible return values. +//! \ingroup nvapifunctions +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetInterfaceVersionString(NvAPI_ShortString szDesc); + + +////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// +// All display port related data types definition starts +////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + +// This category is intentionally added before the #ifdef. The #endif should also be in the same scope +#ifndef DISPLAYPORT_STRUCTS_DEFINED +#define DISPLAYPORT_STRUCTS_DEFINED + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_LINK_RATE +{ + NV_DP_1_62GBPS = 6, + NV_DP_2_70GBPS = 0xA, + NV_DP_5_40GBPS = 0x14 +} NV_DP_LINK_RATE; + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_LANE_COUNT +{ + NV_DP_1_LANE = 1, + NV_DP_2_LANE = 2, + NV_DP_4_LANE = 4, +} NV_DP_LANE_COUNT; + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_COLOR_FORMAT +{ + NV_DP_COLOR_FORMAT_RGB = 0, + NV_DP_COLOR_FORMAT_YCbCr422, + NV_DP_COLOR_FORMAT_YCbCr444, +} NV_DP_COLOR_FORMAT; + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_COLORIMETRY +{ + NV_DP_COLORIMETRY_RGB = 0, + NV_DP_COLORIMETRY_YCbCr_ITU601, + NV_DP_COLORIMETRY_YCbCr_ITU709, +} NV_DP_COLORIMETRY; + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_DYNAMIC_RANGE +{ + NV_DP_DYNAMIC_RANGE_VESA = 0, + NV_DP_DYNAMIC_RANGE_CEA, +} NV_DP_DYNAMIC_RANGE; + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PORT_INFO. +typedef enum _NV_DP_BPC +{ + NV_DP_BPC_DEFAULT = 0, + NV_DP_BPC_6, + NV_DP_BPC_8, + NV_DP_BPC_10, + NV_DP_BPC_12, + NV_DP_BPC_16, +} NV_DP_BPC; + +#endif //#ifndef DISPLAYPORT_STRUCTS_DEFINED + +////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// +// All display port related data types definitions end +////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetEDID +// +//! \fn NvAPI_GPU_GetEDID(NvPhysicalGpuHandle hPhysicalGpu, NvU32 displayOutputId, NV_EDID *pEDID) +//! This function returns the EDID data for the specified GPU handle and connection bit mask. +//! displayOutputId should have exactly 1 bit set to indicate a single display. See \ref handles. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 85 +//! +//! \retval NVAPI_INVALID_ARGUMENT pEDID is NULL; displayOutputId has 0 or > 1 bits set +//! \retval NVAPI_OK *pEDID contains valid data. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \retval NVAPI_DATA_NOT_FOUND The requested display does not contain an EDID. +// +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup gpu +//! @{ + +#define NV_EDID_V1_DATA_SIZE 256 + +#define NV_EDID_DATA_SIZE NV_EDID_V1_DATA_SIZE + +typedef struct +{ + NvU32 version; //structure version + NvU8 EDID_Data[NV_EDID_DATA_SIZE]; +} NV_EDID_V1; + +//! Used in NvAPI_GPU_GetEDID() +typedef struct +{ + NvU32 version; //!< Structure version + NvU8 EDID_Data[NV_EDID_DATA_SIZE]; + NvU32 sizeofEDID; +} NV_EDID_V2; + +//! Used in NvAPI_GPU_GetEDID() +typedef struct +{ + NvU32 version; //!< Structure version + NvU8 EDID_Data[NV_EDID_DATA_SIZE]; + NvU32 sizeofEDID; + NvU32 edidId; //!< ID which always returned in a monotonically increasing counter. + //!< Across a split-EDID read we need to verify that all calls returned the same edidId. + //!< This counter is incremented if we get the updated EDID. + NvU32 offset; //!< Which 256-byte page of the EDID we want to read. Start at 0. + //!< If the read succeeds with edidSize > NV_EDID_DATA_SIZE, + //!< call back again with offset+256 until we have read the entire buffer +} NV_EDID_V3; + +typedef NV_EDID_V3 NV_EDID; + +#define NV_EDID_VER1 MAKE_NVAPI_VERSION(NV_EDID_V1,1) +#define NV_EDID_VER2 MAKE_NVAPI_VERSION(NV_EDID_V2,2) +#define NV_EDID_VER3 MAKE_NVAPI_VERSION(NV_EDID_V3,3) +#define NV_EDID_VER NV_EDID_VER3 + +//! @} + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_GetEDID(NvPhysicalGpuHandle hPhysicalGpu, NvU32 displayOutputId, NV_EDID *pEDID); + +//! \ingroup gpu +//! Used in NV_GPU_CONNECTOR_DATA +typedef enum _NV_GPU_CONNECTOR_TYPE +{ + NVAPI_GPU_CONNECTOR_VGA_15_PIN = 0x00000000, + NVAPI_GPU_CONNECTOR_TV_COMPOSITE = 0x00000010, + NVAPI_GPU_CONNECTOR_TV_SVIDEO = 0x00000011, + NVAPI_GPU_CONNECTOR_TV_HDTV_COMPONENT = 0x00000013, + NVAPI_GPU_CONNECTOR_TV_SCART = 0x00000014, + NVAPI_GPU_CONNECTOR_TV_COMPOSITE_SCART_ON_EIAJ4120 = 0x00000016, + NVAPI_GPU_CONNECTOR_TV_HDTV_EIAJ4120 = 0x00000017, + NVAPI_GPU_CONNECTOR_PC_POD_HDTV_YPRPB = 0x00000018, + NVAPI_GPU_CONNECTOR_PC_POD_SVIDEO = 0x00000019, + NVAPI_GPU_CONNECTOR_PC_POD_COMPOSITE = 0x0000001A, + NVAPI_GPU_CONNECTOR_DVI_I_TV_SVIDEO = 0x00000020, + NVAPI_GPU_CONNECTOR_DVI_I_TV_COMPOSITE = 0x00000021, + NVAPI_GPU_CONNECTOR_DVI_I = 0x00000030, + NVAPI_GPU_CONNECTOR_DVI_D = 0x00000031, + NVAPI_GPU_CONNECTOR_ADC = 0x00000032, + NVAPI_GPU_CONNECTOR_LFH_DVI_I_1 = 0x00000038, + NVAPI_GPU_CONNECTOR_LFH_DVI_I_2 = 0x00000039, + NVAPI_GPU_CONNECTOR_SPWG = 0x00000040, + NVAPI_GPU_CONNECTOR_OEM = 0x00000041, + NVAPI_GPU_CONNECTOR_DISPLAYPORT_EXTERNAL = 0x00000046, + NVAPI_GPU_CONNECTOR_DISPLAYPORT_INTERNAL = 0x00000047, + NVAPI_GPU_CONNECTOR_DISPLAYPORT_MINI_EXT = 0x00000048, + NVAPI_GPU_CONNECTOR_HDMI_A = 0x00000061, + NVAPI_GPU_CONNECTOR_HDMI_C_MINI = 0x00000063, + NVAPI_GPU_CONNECTOR_LFH_DISPLAYPORT_1 = 0x00000064, + NVAPI_GPU_CONNECTOR_LFH_DISPLAYPORT_2 = 0x00000065, + NVAPI_GPU_CONNECTOR_VIRTUAL_WFD = 0x00000070, + NVAPI_GPU_CONNECTOR_UNKNOWN = 0xFFFFFFFF, +} NV_GPU_CONNECTOR_TYPE; + +//////////////////////////////////////////////////////////////////////////////// +// +// NvAPI_TVOutput Information +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup tvapi +//! Used in NV_DISPLAY_TV_OUTPUT_INFO +typedef enum _NV_DISPLAY_TV_FORMAT +{ + NV_DISPLAY_TV_FORMAT_NONE = 0, + NV_DISPLAY_TV_FORMAT_SD_NTSCM = 0x00000001, + NV_DISPLAY_TV_FORMAT_SD_NTSCJ = 0x00000002, + NV_DISPLAY_TV_FORMAT_SD_PALM = 0x00000004, + NV_DISPLAY_TV_FORMAT_SD_PALBDGH = 0x00000008, + NV_DISPLAY_TV_FORMAT_SD_PALN = 0x00000010, + NV_DISPLAY_TV_FORMAT_SD_PALNC = 0x00000020, + NV_DISPLAY_TV_FORMAT_SD_576i = 0x00000100, + NV_DISPLAY_TV_FORMAT_SD_480i = 0x00000200, + NV_DISPLAY_TV_FORMAT_ED_480p = 0x00000400, + NV_DISPLAY_TV_FORMAT_ED_576p = 0x00000800, + NV_DISPLAY_TV_FORMAT_HD_720p = 0x00001000, + NV_DISPLAY_TV_FORMAT_HD_1080i = 0x00002000, + NV_DISPLAY_TV_FORMAT_HD_1080p = 0x00004000, + NV_DISPLAY_TV_FORMAT_HD_720p50 = 0x00008000, + NV_DISPLAY_TV_FORMAT_HD_1080p24 = 0x00010000, + NV_DISPLAY_TV_FORMAT_HD_1080i50 = 0x00020000, + NV_DISPLAY_TV_FORMAT_HD_1080p50 = 0x00040000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp30 = 0x00080000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp30_3840 = NV_DISPLAY_TV_FORMAT_UHD_4Kp30, + NV_DISPLAY_TV_FORMAT_UHD_4Kp25 = 0x00100000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp25_3840 = NV_DISPLAY_TV_FORMAT_UHD_4Kp25, + NV_DISPLAY_TV_FORMAT_UHD_4Kp24 = 0x00200000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp24_3840 = NV_DISPLAY_TV_FORMAT_UHD_4Kp24, + NV_DISPLAY_TV_FORMAT_UHD_4Kp24_SMPTE = 0x00400000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp50_3840 = 0x00800000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp60_3840 = 0x00900000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp30_4096 = 0x00A00000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp25_4096 = 0x00B00000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp24_4096 = 0x00C00000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp50_4096 = 0x00D00000, + NV_DISPLAY_TV_FORMAT_UHD_4Kp60_4096 = 0x00E00000, + + NV_DISPLAY_TV_FORMAT_SD_OTHER = 0x01000000, + NV_DISPLAY_TV_FORMAT_ED_OTHER = 0x02000000, + NV_DISPLAY_TV_FORMAT_HD_OTHER = 0x04000000, + + NV_DISPLAY_TV_FORMAT_ANY = 0x80000000, + +} NV_DISPLAY_TV_FORMAT; + + +//! \ingroup dispcontrol +//! @{ +#define NVAPI_MAX_VIEW_TARGET 2 +#define NVAPI_ADVANCED_MAX_VIEW_TARGET 4 + +#ifndef _NV_TARGET_VIEW_MODE_ +#define _NV_TARGET_VIEW_MODE_ + +//! Used in NvAPI_SetView(). +typedef enum _NV_TARGET_VIEW_MODE +{ + NV_VIEW_MODE_STANDARD = 0, + NV_VIEW_MODE_CLONE = 1, + NV_VIEW_MODE_HSPAN = 2, + NV_VIEW_MODE_VSPAN = 3, + NV_VIEW_MODE_DUALVIEW = 4, + NV_VIEW_MODE_MULTIVIEW = 5, +} NV_TARGET_VIEW_MODE; +#endif + +//! @} + + +// Following definitions are used in NvAPI_SetViewEx. + +//! Scaling modes - used in NvAPI_SetViewEx(). +//! \ingroup dispcontrol +typedef enum _NV_SCALING +{ + NV_SCALING_DEFAULT = 0, //!< No change + + // New Scaling Declarations + NV_SCALING_GPU_SCALING_TO_CLOSEST = 1, //!< Balanced - Full Screen + NV_SCALING_GPU_SCALING_TO_NATIVE = 2, //!< Force GPU - Full Screen + NV_SCALING_GPU_SCANOUT_TO_NATIVE = 3, //!< Force GPU - Centered\No Scaling + NV_SCALING_GPU_SCALING_TO_ASPECT_SCANOUT_TO_NATIVE = 5, //!< Force GPU - Aspect Ratio + NV_SCALING_GPU_SCALING_TO_ASPECT_SCANOUT_TO_CLOSEST = 6, //!< Balanced - Aspect Ratio + NV_SCALING_GPU_SCANOUT_TO_CLOSEST = 7, //!< Balanced - Centered\No Scaling + + // Legacy Declarations + NV_SCALING_MONITOR_SCALING = NV_SCALING_GPU_SCALING_TO_CLOSEST, + NV_SCALING_ADAPTER_SCALING = NV_SCALING_GPU_SCALING_TO_NATIVE, + NV_SCALING_CENTERED = NV_SCALING_GPU_SCANOUT_TO_NATIVE, + NV_SCALING_ASPECT_SCALING = NV_SCALING_GPU_SCALING_TO_ASPECT_SCANOUT_TO_NATIVE, + + NV_SCALING_CUSTOMIZED = 255 //!< For future use +} NV_SCALING; + +//! Rotate modes- used in NvAPI_SetViewEx(). +//! \ingroup dispcontrol +typedef enum _NV_ROTATE +{ + NV_ROTATE_0 = 0, + NV_ROTATE_90 = 1, + NV_ROTATE_180 = 2, + NV_ROTATE_270 = 3, + NV_ROTATE_IGNORED = 4, +} NV_ROTATE; + +//! Color formats- used in NvAPI_SetViewEx(). +//! \ingroup dispcontrol +#define NVFORMAT_MAKEFOURCC(ch0, ch1, ch2, ch3) \ + ((NvU32)(NvU8)(ch0) | ((NvU32)(NvU8)(ch1) << 8) | \ + ((NvU32)(NvU8)(ch2) << 16) | ((NvU32)(NvU8)(ch3) << 24 )) + + + +//! Color formats- used in NvAPI_SetViewEx(). +//! \ingroup dispcontrol +typedef enum _NV_FORMAT +{ + NV_FORMAT_UNKNOWN = 0, //!< unknown. Driver will choose one as following value. + NV_FORMAT_P8 = 41, //!< for 8bpp mode + NV_FORMAT_R5G6B5 = 23, //!< for 16bpp mode + NV_FORMAT_A8R8G8B8 = 21, //!< for 32bpp mode + NV_FORMAT_A16B16G16R16F = 113, //!< for 64bpp(floating point) mode. + +} NV_FORMAT; + +// TV standard + +typedef struct +{ + float x; //!< x-coordinate of the viewport top-left point + float y; //!< y-coordinate of the viewport top-left point + float w; //!< Width of the viewport + float h; //!< Height of the viewport +} NV_VIEWPORTF; + + + +//! \ingroup dispcontrol +//! The timing override is not supported yet; must be set to _AUTO. \n + + +typedef enum _NV_TIMING_OVERRIDE +{ + NV_TIMING_OVERRIDE_CURRENT = 0, //!< get the current timing + NV_TIMING_OVERRIDE_AUTO, //!< the timing the driver will use based the current policy + NV_TIMING_OVERRIDE_EDID, //!< EDID timing + NV_TIMING_OVERRIDE_DMT, //!< VESA DMT timing + NV_TIMING_OVERRIDE_DMT_RB, //!< VESA DMT timing with reduced blanking + NV_TIMING_OVERRIDE_CVT, //!< VESA CVT timing + NV_TIMING_OVERRIDE_CVT_RB, //!< VESA CVT timing with reduced blanking + NV_TIMING_OVERRIDE_GTF, //!< VESA GTF timing + NV_TIMING_OVERRIDE_EIA861, //!< EIA 861x pre-defined timing + NV_TIMING_OVERRIDE_ANALOG_TV, //!< analog SD/HDTV timing + NV_TIMING_OVERRIDE_CUST, //!< NV custom timings + NV_TIMING_OVERRIDE_NV_PREDEFINED, //!< NV pre-defined timing (basically the PsF timings) + NV_TIMING_OVERRIDE_NV_PSF = NV_TIMING_OVERRIDE_NV_PREDEFINED, + NV_TIMING_OVERRIDE_NV_ASPR, + NV_TIMING_OVERRIDE_SDI, //!< Override for SDI timing + + NV_TIMING_OVRRIDE_MAX, +}NV_TIMING_OVERRIDE; + + +#ifndef NV_TIMING_STRUCTS_DEFINED +#define NV_TIMING_STRUCTS_DEFINED + +//*********************** +// The Timing Structure +//*********************** +// +//! \ingroup dispcontrol +//! NVIDIA-specific timing extras \n +//! Used in NV_TIMING. +typedef struct tagNV_TIMINGEXT +{ + NvU32 flag; //!< Reserved for NVIDIA hardware-based enhancement, such as double-scan. + NvU16 rr; //!< Logical refresh rate to present + NvU32 rrx1k; //!< Physical vertical refresh rate in 0.001Hz + NvU32 aspect; //!< Display aspect ratio Hi(aspect):horizontal-aspect, Low(aspect):vertical-aspect + NvU16 rep; //!< Bit-wise pixel repetition factor: 0x1:no pixel repetition; 0x2:each pixel repeats twice horizontally,.. + NvU32 status; //!< Timing standard + NvU8 name[40]; //!< Timing name +}NV_TIMINGEXT; + + + +//! \ingroup dispcontrol +//!The very basic timing structure based on the VESA standard: +//! \code +//! |<----------------------------htotal--------------------------->| +//! ---------"active" video-------->|<-------blanking------>|<----- +//! |<-------hvisible-------->|<-hb->|<-hfp->|<-hsw->|<-hbp->|<-hb->| +//! --------- -+-------------------------+ | | | | | +//! A A | | | | | | | +//! : : | | | | | | | +//! : : | | | | | | | +//! :vertical| addressable video | | | | | | +//! : visible| | | | | | | +//! : : | | | | | | | +//! : : | | | | | | | +//! vertical V | | | | | | | +//! total --+-------------------------+ | | | | | +//! : vb border | | | | | +//! : -----------------------------------+ | | | | +//! : vfp front porch | | | | +//! : -------------------------------------------+ | | | +//! : vsw sync width | | | +//! : ---------------------------------------------------+ | | +//! : vbp back porch | | +//! : -----------------------------------------------------------+ | +//! V vb border | +//! ---------------------------------------------------------------------------+ +//! \endcode +typedef struct _NV_TIMING +{ + // VESA scan out timing parameters: + NvU16 HVisible; //!< horizontal visible + NvU16 HBorder; //!< horizontal border + NvU16 HFrontPorch; //!< horizontal front porch + NvU16 HSyncWidth; //!< horizontal sync width + NvU16 HTotal; //!< horizontal total + NvU8 HSyncPol; //!< horizontal sync polarity: 1-negative, 0-positive + + NvU16 VVisible; //!< vertical visible + NvU16 VBorder; //!< vertical border + NvU16 VFrontPorch; //!< vertical front porch + NvU16 VSyncWidth; //!< vertical sync width + NvU16 VTotal; //!< vertical total + NvU8 VSyncPol; //!< vertical sync polarity: 1-negative, 0-positive + + NvU16 interlaced; //!< 1-interlaced, 0-progressive + NvU32 pclk; //!< pixel clock in 10 kHz + + //other timing related extras + NV_TIMINGEXT etc; +}NV_TIMING; +#endif //NV_TIMING_STRUCTS_DEFINED + + +//! \addtogroup dispcontrol +//! Timing-related constants +//! @{ +#define NV_TIMING_H_SYNC_POSITIVE 0 +#define NV_TIMING_H_SYNC_NEGATIVE 1 +#define NV_TIMING_H_SYNC_DEFAULT NV_TIMING_H_SYNC_NEGATIVE +// +#define NV_TIMING_V_SYNC_POSITIVE 0 +#define NV_TIMING_V_SYNC_NEGATIVE 1 +#define NV_TIMING_V_SYNC_DEFAULT NV_TIMING_V_SYNC_POSITIVE +// +#define NV_TIMING_PROGRESSIVE 0 +#define NV_TIMING_INTERLACED 1 +#define NV_TIMING_INTERLACED_EXTRA_VBLANK_ON_FIELD2 1 +#define NV_TIMING_INTERLACED_NO_EXTRA_VBLANK_ON_FIELD2 2 +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_SetView +// +//! \fn NvAPI_SetView(NvDisplayHandle hNvDisplay, NV_VIEW_TARGET_INFO *pTargetInfo, NV_TARGET_VIEW_MODE targetView) +//! This function lets the caller modify the target display arrangement of the selected source display handle in any nView mode. +//! It can also modify or extend the source display in Dualview mode. +//! \note Maps the selected source to the associated target Ids. +//! \note Display PATH with this API is limited to single GPU. DUALVIEW across GPUs cannot be enabled with this API. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_SetDisplayConfig. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 90 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. #NVAPI_DEFAULT_HANDLE is not allowed, it has to be a handle enumerated with NvAPI_EnumNVidiaDisplayHandle(). +//! \param [in] pTargetInfo Pointer to array of NV_VIEW_TARGET_INFO, specifying device properties in this view. +//! The first device entry in the array is the physical primary. +//! The device entry with the lowest source id is the desktop primary. +//! \param [in] targetCount Count of target devices specified in pTargetInfo. +//! \param [in] targetView Target view selected from NV_TARGET_VIEW_MODE. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup dispcontrol +//! Used in NvAPI_SetView() and NvAPI_GetView() +typedef struct +{ + NvU32 version; //!< (IN) structure version + NvU32 count; //!< (IN) target count + struct + { + NvU32 deviceMask; //!< (IN/OUT) Device mask + NvU32 sourceId; //!< (IN/OUT) Source ID - values will be based on the number of heads exposed per GPU. + NvU32 bPrimary:1; //!< (OUT) Indicates if this is the GPU's primary view target. This is not the desktop GDI primary. + //!< NvAPI_SetView automatically selects the first target in NV_VIEW_TARGET_INFO index 0 as the GPU's primary view. + NvU32 bInterlaced:1; //!< (IN/OUT) Indicates if the timing being used on this monitor is interlaced. + NvU32 bGDIPrimary:1; //!< (IN/OUT) Indicates if this is the desktop GDI primary. + NvU32 bForceModeSet:1;//!< (IN) Used only on Win7 and higher during a call to NvAPI_SetView(). Turns off optimization & forces OS to set supplied mode. + } target[NVAPI_MAX_VIEW_TARGET]; +} NV_VIEW_TARGET_INFO; + +//! \ingroup dispcontrol +#define NV_VIEW_TARGET_INFO_VER MAKE_NVAPI_VERSION(NV_VIEW_TARGET_INFO,2) + + +//! \ingroup dispcontrol +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_SetDisplayConfig.") +NVAPI_INTERFACE NvAPI_SetView(NvDisplayHandle hNvDisplay, NV_VIEW_TARGET_INFO *pTargetInfo, NV_TARGET_VIEW_MODE targetView); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_SetViewEx +// +//! \fn NvAPI_SetViewEx(NvDisplayHandle hNvDisplay, NV_DISPLAY_PATH_INFO *pPathInfo, NV_TARGET_VIEW_MODE displayView) +//! This function lets caller to modify the display arrangement for selected source display handle in any of the nview modes. +//! It also allows to modify or extend the source display in dualview mode. +//! \note Maps the selected source to the associated target Ids. +//! \note Display PATH with this API is limited to single GPU. DUALVIEW across GPUs cannot be enabled with this API. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_SetDisplayConfig. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 95 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. #NVAPI_DEFAULT_HANDLE is not allowed, it has to be a handle enumerated with +//! NvAPI_EnumNVidiaDisplayHandle(). +//! \param [in] pPathInfo Pointer to array of NV_VIEW_PATH_INFO, specifying device properties in this view. +//! The first device entry in the array is the physical primary. +//! The device entry with the lowest source id is the desktop primary. +//! \param [in] pathCount Count of paths specified in pPathInfo. +//! \param [in] displayView Display view selected from NV_TARGET_VIEW_MODE. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup dispcontrol +#define NVAPI_MAX_DISPLAY_PATH NVAPI_MAX_VIEW_TARGET + +//! \ingroup dispcontrol +#define NVAPI_ADVANCED_MAX_DISPLAY_PATH NVAPI_ADVANCED_MAX_VIEW_TARGET + + + +//! \ingroup dispcontrol +//! Used in NV_DISPLAY_PATH_INFO. +typedef struct +{ + NvU32 deviceMask; //!< (IN) Device mask + NvU32 sourceId; //!< (IN) Values will be based on the number of heads exposed per GPU(0, 1?) + NvU32 bPrimary:1; //!< (IN/OUT) Indicates if this is the GPU's primary view target. This is not the desktop GDI primary. + //!< NvAPI_SetViewEx() automatically selects the first target in NV_DISPLAY_PATH_INFO index 0 as the GPU's primary view. + NV_GPU_CONNECTOR_TYPE connector; //!< (IN) Specify connector type. For TV only. + + // source mode information + NvU32 width; //!< (IN) Width of the mode + NvU32 height; //!< (IN) Height of the mode + NvU32 depth; //!< (IN) Depth of the mode + NV_FORMAT colorFormat; //!< Color format if it needs to be specified. Not used now. + + //rotation setting of the mode + NV_ROTATE rotation; //!< (IN) Rotation setting. + + // the scaling mode + NV_SCALING scaling; //!< (IN) Scaling setting + + // Timing info + NvU32 refreshRate; //!< (IN) Refresh rate of the mode + NvU32 interlaced:1; //!< (IN) Interlaced mode flag + + NV_DISPLAY_TV_FORMAT tvFormat; //!< (IN) To choose the last TV format set this value to NV_DISPLAY_TV_FORMAT_NONE + + // Windows desktop position + NvU32 posx; //!< (IN/OUT) X-offset of this display on the Windows desktop + NvU32 posy; //!< (IN/OUT) Y-offset of this display on the Windows desktop + NvU32 bGDIPrimary:1; //!< (IN/OUT) Indicates if this is the desktop GDI primary. + + NvU32 bForceModeSet:1;//!< (IN) Used only on Win7 and higher during a call to NvAPI_SetViewEx(). Turns off optimization & forces OS to set supplied mode. + NvU32 bFocusDisplay:1;//!< (IN) If set, this display path should have the focus after the GPU topology change + NvU32 gpuId:24; //!< (IN) the physical display/target Gpu id which is the owner of the scan out (for SLI multimon, display from the slave Gpu) + +} NV_DISPLAY_PATH; + +//! \ingroup dispcontrol +//! Used in NvAPI_SetViewEx() and NvAPI_GetViewEx(). +typedef struct +{ + NvU32 version; //!< (IN) Structure version + NvU32 count; //!< (IN) Path count + NV_DISPLAY_PATH path[NVAPI_MAX_DISPLAY_PATH]; +} NV_DISPLAY_PATH_INFO_V3; + +//! \ingroup dispcontrol +//! Used in NvAPI_SetViewEx() and NvAPI_GetViewEx(). +typedef struct +{ + NvU32 version; //!< (IN) Structure version + NvU32 count; //!< (IN) Path count + NV_DISPLAY_PATH path[NVAPI_ADVANCED_MAX_DISPLAY_PATH]; +} NV_DISPLAY_PATH_INFO; + +//! \addtogroup dispcontrol +//! Macro for constructing the version fields of NV_DISPLAY_PATH_INFO +//! @{ +#define NV_DISPLAY_PATH_INFO_VER NV_DISPLAY_PATH_INFO_VER4 +#define NV_DISPLAY_PATH_INFO_VER4 MAKE_NVAPI_VERSION(NV_DISPLAY_PATH_INFO,4) +#define NV_DISPLAY_PATH_INFO_VER3 MAKE_NVAPI_VERSION(NV_DISPLAY_PATH_INFO,3) +#define NV_DISPLAY_PATH_INFO_VER2 MAKE_NVAPI_VERSION(NV_DISPLAY_PATH_INFO,2) +#define NV_DISPLAY_PATH_INFO_VER1 MAKE_NVAPI_VERSION(NV_DISPLAY_PATH_INFO,1) +//! @} + + +//! \ingroup dispcontrol +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_SetDisplayConfig.") +NVAPI_INTERFACE NvAPI_SetViewEx(NvDisplayHandle hNvDisplay, NV_DISPLAY_PATH_INFO *pPathInfo, NV_TARGET_VIEW_MODE displayView); + + + +/////////////////////////////////////////////////////////////////////////////// +// SetDisplayConfig/GetDisplayConfig +/////////////////////////////////////////////////////////////////////////////// +//! \ingroup dispcontrol + +typedef struct _NV_POSITION +{ + NvS32 x; + NvS32 y; +} NV_POSITION; + +//! \ingroup dispcontrol +typedef struct _NV_RESOLUTION +{ + NvU32 width; + NvU32 height; + NvU32 colorDepth; +} NV_RESOLUTION; + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_V1 +{ + NvU32 version; + + // Rotation and Scaling + NV_ROTATE rotation; //!< (IN) rotation setting. + NV_SCALING scaling; //!< (IN) scaling setting. + + // Refresh Rate + NvU32 refreshRate1K; //!< (IN) Non-interlaced Refresh Rate of the mode, multiplied by 1000, 0 = ignored + //!< This is the value which driver reports to the OS. + // Flags + NvU32 interlaced:1; //!< (IN) Interlaced mode flag, ignored if refreshRate == 0 + NvU32 primary:1; //!< (IN) Declares primary display in clone configuration. This is *NOT* GDI Primary. + //!< Only one target can be primary per source. If no primary is specified, the first + //!< target will automatically be primary. +#ifdef NV_PAN_AND_SCAN_DEFINED + NvU32 isPanAndScanTarget:1; //!< Whether on this target Pan and Scan is enabled or has to be enabled. Valid only + //!< when the target is part of clone topology. +#else + NvU32 reservedBit1:1; +#endif + NvU32 disableVirtualModeSupport:1; + NvU32 isPreferredUnscaledTarget:1; + NvU32 reserved:27; + // TV format information + NV_GPU_CONNECTOR_TYPE connector; //!< Specify connector type. For TV only, ignored if tvFormat == NV_DISPLAY_TV_FORMAT_NONE + NV_DISPLAY_TV_FORMAT tvFormat; //!< (IN) to choose the last TV format set this value to NV_DISPLAY_TV_FORMAT_NONE + //!< In case of NvAPI_DISP_GetDisplayConfig(), this field will indicate the currently applied TV format; + //!< if no TV format is applied, this field will have NV_DISPLAY_TV_FORMAT_NONE value. + //!< In case of NvAPI_DISP_SetDisplayConfig(), this field should only be set in case of TVs; + //!< for other displays this field will be ignored and resolution & refresh rate specified in input will be used to apply the TV format. + + // Backend (raster) timing standard + NV_TIMING_OVERRIDE timingOverride; //!< Ignored if timingOverride == NV_TIMING_OVERRIDE_CURRENT + NV_TIMING timing; //!< Scan out timing, valid only if timingOverride == NV_TIMING_OVERRIDE_CUST + //!< The value NV_TIMING::NV_TIMINGEXT::rrx1k is obtained from the EDID. The driver may + //!< tweak this value for HDTV, stereo, etc., before reporting it to the OS. +} NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_V1; + +//! \ingroup dispcontrol +typedef NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_V1 NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO; + +//! \ingroup dispcontrol +#define NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_VER1 MAKE_NVAPI_VERSION(NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_V1,1) + +//! \ingroup dispcontrol +#define NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_VER NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO_VER1 + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_PATH_TARGET_INFO_V1 +{ + NvU32 displayId; //!< Display ID + NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO* details; //!< May be NULL if no advanced settings are required. NULL for Non-NVIDIA Display. +} NV_DISPLAYCONFIG_PATH_TARGET_INFO_V1; + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_PATH_TARGET_INFO_V2 +{ + NvU32 displayId; //!< Display ID + NV_DISPLAYCONFIG_PATH_ADVANCED_TARGET_INFO* details; //!< May be NULL if no advanced settings are required + NvU32 targetId; //!< Windows CCD target ID. Must be present only for non-NVIDIA adapter, for NVIDIA adapter this parameter is ignored. +} NV_DISPLAYCONFIG_PATH_TARGET_INFO_V2; + + +//! \ingroup dispcontrol +//! As version is not defined for this structure, we will be using version of NV_DISPLAYCONFIG_PATH_INFO +typedef NV_DISPLAYCONFIG_PATH_TARGET_INFO_V2 NV_DISPLAYCONFIG_PATH_TARGET_INFO; + + +//! \ingroup dispcontrol +typedef enum _NV_DISPLAYCONFIG_SPANNING_ORIENTATION +{ + NV_DISPLAYCONFIG_SPAN_NONE = 0, + NV_DISPLAYCONFIG_SPAN_HORIZONTAL = 1, + NV_DISPLAYCONFIG_SPAN_VERTICAL = 2, +} NV_DISPLAYCONFIG_SPANNING_ORIENTATION; + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_SOURCE_MODE_INFO_V1 +{ + NV_RESOLUTION resolution; + NV_FORMAT colorFormat; //!< Ignored at present, must be NV_FORMAT_UNKNOWN (0) + NV_POSITION position; //!< Is all positions are 0 or invalid, displays will be automatically + //!< positioned from left to right with GDI Primary at 0,0, and all + //!< other displays in the order of the path array. + NV_DISPLAYCONFIG_SPANNING_ORIENTATION spanningOrientation; //!< Spanning is only supported on XP + NvU32 bGDIPrimary : 1; + NvU32 bSLIFocus : 1; + NvU32 reserved : 30; //!< Must be 0 +} NV_DISPLAYCONFIG_SOURCE_MODE_INFO_V1; + + + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_PATH_INFO_V1 +{ + NvU32 version; + NvU32 reserved_sourceId; //!< This field is reserved. There is ongoing debate if we need this field. + //!< Identifies sourceIds used by Windows. If all sourceIds are 0, + //!< these will be computed automatically. + NvU32 targetInfoCount; //!< Number of elements in targetInfo array + NV_DISPLAYCONFIG_PATH_TARGET_INFO_V1* targetInfo; + NV_DISPLAYCONFIG_SOURCE_MODE_INFO_V1* sourceModeInfo; //!< May be NULL if mode info is not important +} NV_DISPLAYCONFIG_PATH_INFO_V1; + +//! \ingroup dispcontrol +//! This define is temporary and must be removed once DVS failure is fixed. +#define _NV_DISPLAYCONFIG_PATH_INFO_V2 _NV_DISPLAYCONFIG_PATH_INFO + +//! \ingroup dispcontrol +typedef struct _NV_DISPLAYCONFIG_PATH_INFO_V2 +{ + NvU32 version; + union { + NvU32 sourceId; //!< Identifies sourceId used by Windows CCD. This can be optionally set. + NvU32 reserved_sourceId; //!< Only for compatibility + }; + + NvU32 targetInfoCount; //!< Number of elements in targetInfo array + NV_DISPLAYCONFIG_PATH_TARGET_INFO_V2* targetInfo; + NV_DISPLAYCONFIG_SOURCE_MODE_INFO_V1* sourceModeInfo; //!< May be NULL if mode info is not important + NvU32 IsNonNVIDIAAdapter : 1; //!< True for non-NVIDIA adapter. + NvU32 reserved : 31; //!< Must be 0 + void *pOSAdapterID; //!< Used by Non-NVIDIA adapter for pointer to OS Adapter of LUID + //!< type, type casted to void *. +} NV_DISPLAYCONFIG_PATH_INFO_V2; + +//! \ingroup dispcontrol +#define NV_DISPLAYCONFIG_PATH_INFO_VER1 MAKE_NVAPI_VERSION(NV_DISPLAYCONFIG_PATH_INFO_V1,1) + +//! \ingroup dispcontrol +#define NV_DISPLAYCONFIG_PATH_INFO_VER2 MAKE_NVAPI_VERSION(NV_DISPLAYCONFIG_PATH_INFO_V2,2) + +#ifndef NV_DISPLAYCONFIG_PATH_INFO_VER + +typedef NV_DISPLAYCONFIG_PATH_INFO_V2 NV_DISPLAYCONFIG_PATH_INFO; + +#define NV_DISPLAYCONFIG_PATH_INFO_VER NV_DISPLAYCONFIG_PATH_INFO_VER2 + +typedef NV_DISPLAYCONFIG_SOURCE_MODE_INFO_V1 NV_DISPLAYCONFIG_SOURCE_MODE_INFO; + +#endif + + +//! \ingroup dispcontrol +typedef enum _NV_DISPLAYCONFIG_FLAGS +{ + NV_DISPLAYCONFIG_VALIDATE_ONLY = 0x00000001, + NV_DISPLAYCONFIG_SAVE_TO_PERSISTENCE = 0x00000002, + NV_DISPLAYCONFIG_DRIVER_RELOAD_ALLOWED = 0x00000004, //!< Driver reload is permitted if necessary + NV_DISPLAYCONFIG_FORCE_MODE_ENUMERATION = 0x00000008, //!< Refresh OS mode list. +} NV_DISPLAYCONFIG_FLAGS; + + +#define NVAPI_UNICODE_STRING_MAX 2048 +#define NVAPI_BINARY_DATA_MAX 4096 + +typedef NvU16 NvAPI_UnicodeString[NVAPI_UNICODE_STRING_MAX]; +typedef const NvU16 *NvAPI_LPCWSTR; +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetDisplayDriverVersion +//! \fn NvAPI_GetDisplayDriverVersion(NvDisplayHandle hNvDisplay, NV_DISPLAY_DRIVER_VERSION *pVersion) +//! This function returns a struct that describes aspects of the display driver +//! build. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_SYS_GetDriverAndBranchVersion. +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \param [in] hNvDisplay NVIDIA display handle. +//! \param [out] pVersion Pointer to NV_DISPLAY_DRIVER_VERSION struc +//! +//! \retval NVAPI_ERROR +//! \retval NVAPI_OK +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup driverapi +//! Used in NvAPI_GetDisplayDriverVersion() +typedef struct +{ + NvU32 version; // Structure version + NvU32 drvVersion; + NvU32 bldChangeListNum; + NvAPI_ShortString szBuildBranchString; + NvAPI_ShortString szAdapterString; +} NV_DISPLAY_DRIVER_VERSION; + +//! \ingroup driverapi +#define NV_DISPLAY_DRIVER_VERSION_VER MAKE_NVAPI_VERSION(NV_DISPLAY_DRIVER_VERSION,1) + + +//! \ingroup driverapi +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_SYS_GetDriverAndBranchVersion.") +NVAPI_INTERFACE NvAPI_GetDisplayDriverVersion(NvDisplayHandle hNvDisplay, NV_DISPLAY_DRIVER_VERSION *pVersion); + + + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_OGL_ExpertModeSet[Get] +// +//! \name NvAPI_OGL_ExpertModeSet[Get] Functions +//@{ +//! This function configures OpenGL Expert Mode, an API usage feedback and +//! advice reporting mechanism. The effects of this call are +//! applied only to the current context, and are reset to the +//! defaults when the context is destroyed. +//! +//! \note This feature is valid at runtime only when GLExpert +//! functionality has been built into the OpenGL driver +//! installed on the system. All Windows Vista OpenGL +//! drivers provided by NVIDIA have this instrumentation +//! included by default. Windows XP, however, requires a +//! special display driver available with the NVIDIA +//! PerfSDK found at developer.nvidia.com. +//! +//! \note These functions are valid only for the current OpenGL +//! context. Calling these functions prior to creating a +//! context and calling MakeCurrent with it will result +//! in errors and undefined behavior. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \param expertDetailMask Mask made up of NVAPI_OGLEXPERT_DETAIL bits, +//! this parameter specifies the detail level in +//! the feedback stream. +//! +//! \param expertReportMask Mask made up of NVAPI_OGLEXPERT_REPORT bits, +//! this parameter specifies the areas of +//! functional interest. +//! +//! \param expertOutputMask Mask made up of NVAPI_OGLEXPERT_OUTPUT bits, +//! this parameter specifies the feedback output +//! location. +//! +//! \param expertCallback Used in conjunction with OUTPUT_TO_CALLBACK, +//! this is a simple callback function the user +//! may use to obtain the feedback stream. The +//! function will be called once per fully +//! qualified feedback stream extry. +//! +//! \retval NVAPI_API_NOT_INTIALIZED NVAPI not initialized +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU found +//! \retval NVAPI_OPENGL_CONTEXT_NOT_CURRENT No NVIDIA OpenGL context +//! which supports GLExpert +//! has been made current +//! \retval NVAPI_ERROR OpenGL driver failed to load properly +//! \retval NVAPI_OK Success +// +/////////////////////////////////////////////////////////////////////////////// + +//! \addtogroup oglapi +//! @{ +#define NVAPI_OGLEXPERT_DETAIL_NONE 0x00000000 +#define NVAPI_OGLEXPERT_DETAIL_ERROR 0x00000001 +#define NVAPI_OGLEXPERT_DETAIL_SWFALLBACK 0x00000002 +#define NVAPI_OGLEXPERT_DETAIL_BASIC_INFO 0x00000004 +#define NVAPI_OGLEXPERT_DETAIL_DETAILED_INFO 0x00000008 +#define NVAPI_OGLEXPERT_DETAIL_PERFORMANCE_WARNING 0x00000010 +#define NVAPI_OGLEXPERT_DETAIL_QUALITY_WARNING 0x00000020 +#define NVAPI_OGLEXPERT_DETAIL_USAGE_WARNING 0x00000040 +#define NVAPI_OGLEXPERT_DETAIL_ALL 0xFFFFFFFF + +#define NVAPI_OGLEXPERT_REPORT_NONE 0x00000000 +#define NVAPI_OGLEXPERT_REPORT_ERROR 0x00000001 +#define NVAPI_OGLEXPERT_REPORT_SWFALLBACK 0x00000002 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_VERTEX 0x00000004 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_GEOMETRY 0x00000008 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_XFB 0x00000010 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_RASTER 0x00000020 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_FRAGMENT 0x00000040 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_ROP 0x00000080 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_FRAMEBUFFER 0x00000100 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_PIXEL 0x00000200 +#define NVAPI_OGLEXPERT_REPORT_PIPELINE_TEXTURE 0x00000400 +#define NVAPI_OGLEXPERT_REPORT_OBJECT_BUFFEROBJECT 0x00000800 +#define NVAPI_OGLEXPERT_REPORT_OBJECT_TEXTURE 0x00001000 +#define NVAPI_OGLEXPERT_REPORT_OBJECT_PROGRAM 0x00002000 +#define NVAPI_OGLEXPERT_REPORT_OBJECT_FBO 0x00004000 +#define NVAPI_OGLEXPERT_REPORT_FEATURE_SLI 0x00008000 +#define NVAPI_OGLEXPERT_REPORT_ALL 0xFFFFFFFF + + +#define NVAPI_OGLEXPERT_OUTPUT_TO_NONE 0x00000000 +#define NVAPI_OGLEXPERT_OUTPUT_TO_CONSOLE 0x00000001 +#define NVAPI_OGLEXPERT_OUTPUT_TO_DEBUGGER 0x00000004 +#define NVAPI_OGLEXPERT_OUTPUT_TO_CALLBACK 0x00000008 +#define NVAPI_OGLEXPERT_OUTPUT_TO_ALL 0xFFFFFFFF + +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION TYPE: NVAPI_OGLEXPERT_CALLBACK +// +//! DESCRIPTION: Used in conjunction with OUTPUT_TO_CALLBACK, this is a simple +//! callback function the user may use to obtain the feedback +//! stream. The function will be called once per fully qualified +//! feedback stream entry. +//! +//! \param categoryId Contains the bit from the NVAPI_OGLEXPERT_REPORT +//! mask that corresponds to the current message +//! \param messageId Unique ID for the current message +//! \param detailLevel Contains the bit from the NVAPI_OGLEXPERT_DETAIL +//! mask that corresponds to the current message +//! \param objectId Unique ID of the object that corresponds to the +//! current message +//! \param messageStr Text string from the current message +//! +//! \ingroup oglapi +/////////////////////////////////////////////////////////////////////////////// +typedef void (* NVAPI_OGLEXPERT_CALLBACK) (unsigned int categoryId, unsigned int messageId, unsigned int detailLevel, int objectId, const char *messageStr); + + + +//! \ingroup oglapi +//! SUPPORTED OS: Windows XP and higher +//! +NVAPI_INTERFACE NvAPI_OGL_ExpertModeSet(NvU32 expertDetailLevel, + NvU32 expertReportMask, + NvU32 expertOutputMask, + NVAPI_OGLEXPERT_CALLBACK expertCallback); + +//! \addtogroup oglapi +//! SUPPORTED OS: Windows XP and higher +//! +NVAPI_INTERFACE NvAPI_OGL_ExpertModeGet(NvU32 *pExpertDetailLevel, + NvU32 *pExpertReportMask, + NvU32 *pExpertOutputMask, + NVAPI_OGLEXPERT_CALLBACK *pExpertCallback); + +//@} +/////////////////////////////////////////////////////////////////////////////// +// +//! \name NvAPI_OGL_ExpertModeDefaultsSet[Get] Functions +//! +//@{ +//! This function configures OpenGL Expert Mode global defaults. These settings +//! apply to any OpenGL application which starts up after these +//! values are applied (i.e. these settings *do not* apply to +//! currently running applications). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \param expertDetailLevel Value which specifies the detail level in +//! the feedback stream. This is a mask made up +//! of NVAPI_OGLEXPERT_LEVEL bits. +//! +//! \param expertReportMask Mask made up of NVAPI_OGLEXPERT_REPORT bits, +//! this parameter specifies the areas of +//! functional interest. +//! +//! \param expertOutputMask Mask made up of NVAPI_OGLEXPERT_OUTPUT bits, +//! this parameter specifies the feedback output +//! location. Note that using OUTPUT_TO_CALLBACK +//! here is meaningless and has no effect, but +//! using it will not cause an error. +//! +//! \return ::NVAPI_ERROR or ::NVAPI_OK +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup oglapi +//! SUPPORTED OS: Windows XP and higher +//! +NVAPI_INTERFACE NvAPI_OGL_ExpertModeDefaultsSet(NvU32 expertDetailLevel, + NvU32 expertReportMask, + NvU32 expertOutputMask); + +//! \addtogroup oglapi +//! SUPPORTED OS: Windows XP and higher +//! +NVAPI_INTERFACE NvAPI_OGL_ExpertModeDefaultsGet(NvU32 *pExpertDetailLevel, + NvU32 *pExpertReportMask, + NvU32 *pExpertOutputMask); +//@} + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnumTCCPhysicalGPUs +// +//! This function returns an array of physical GPU handles that are in TCC Mode. +//! Each handle represents a physical GPU present in the system in TCC Mode. +//! That GPU may not be visible to the OS directly. +//! +//! The array nvGPUHandle will be filled with physical GPU handle values. The returned +//! gpuCount determines how many entries in the array are valid. +//! +//! NOTE: Handles enumerated by this API are only valid for NvAPIs that are tagged as TCC_SUPPORTED +//! If handle is passed to any other API, it will fail with NVAPI_INVALID_HANDLE +//! +//! For WDDM GPU handles please use NvAPI_EnumPhysicalGPUs() +//! +//! SUPPORTED OS: Windows Vista and higher, Mac OS X +//! +//! +//! +//! \param [out] nvGPUHandle Physical GPU array that will contain all TCC Physical GPUs +//! \param [out] pGpuCount count represent the number of valid entries in nvGPUHandle +//! +//! +//! \retval NVAPI_INVALID_ARGUMENT nvGPUHandle or pGpuCount is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnumTCCPhysicalGPUs( NvPhysicalGpuHandle nvGPUHandle[NVAPI_MAX_PHYSICAL_GPUS], NvU32 *pGpuCount); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnumLogicalGPUs +// +//! This function returns an array of logical GPU handles. +//! +//! Each handle represents one or more GPUs acting in concert as a single graphics device. +//! +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! The array nvGPUHandle will be filled with logical GPU handle values. The returned +//! gpuCount determines how many entries in the array are valid. +//! +//! \note All logical GPUs handles get invalidated on a GPU topology change, so the calling +//! application is required to renum the logical GPU handles to get latest physical handle +//! mapping after every GPU topology change activated by a call to NvAPI_SetGpuTopologies(). +//! +//! To detect if SLI rendering is enabled, use NvAPI_D3D_GetCurrentSLIState(). +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT nvGPUHandle or pGpuCount is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnumLogicalGPUs(NvLogicalGpuHandle nvGPUHandle[NVAPI_MAX_LOGICAL_GPUS], NvU32 *pGpuCount); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetPhysicalGPUsFromDisplay +// +//! This function returns an array of physical GPU handles associated with the specified display. +//! +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! The array nvGPUHandle will be filled with physical GPU handle values. The returned +//! gpuCount determines how many entries in the array are valid. +//! +//! If the display corresponds to more than one physical GPU, the first GPU returned +//! is the one with the attached active output. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hNvDisp is not valid; nvGPUHandle or pGpuCount is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND no NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetPhysicalGPUsFromDisplay(NvDisplayHandle hNvDisp, NvPhysicalGpuHandle nvGPUHandle[NVAPI_MAX_PHYSICAL_GPUS], NvU32 *pGpuCount); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetPhysicalGPUFromUnAttachedDisplay +// +//! This function returns a physical GPU handle associated with the specified unattached display. +//! The source GPU is a physical render GPU which renders the frame buffer but may or may not drive the scan out. +//! +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hNvUnAttachedDisp is not valid or pPhysicalGpu is NULL. +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetPhysicalGPUFromUnAttachedDisplay(NvUnAttachedDisplayHandle hNvUnAttachedDisp, NvPhysicalGpuHandle *pPhysicalGpu); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetLogicalGPUFromDisplay +// +//! This function returns the logical GPU handle associated with the specified display. +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hNvDisp is not valid; pLogicalGPU is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetLogicalGPUFromDisplay(NvDisplayHandle hNvDisp, NvLogicalGpuHandle *pLogicalGPU); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetLogicalGPUFromPhysicalGPU +// +//! This function returns the logical GPU handle associated with specified physical GPU handle. +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGPU is not valid; pLogicalGPU is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetLogicalGPUFromPhysicalGPU(NvPhysicalGpuHandle hPhysicalGPU, NvLogicalGpuHandle *pLogicalGPU); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetPhysicalGPUsFromLogicalGPU +// +//! This function returns the physical GPU handles associated with the specified logical GPU handle. +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! The array hPhysicalGPU will be filled with physical GPU handle values. The returned +//! gpuCount determines how many entries in the array are valid. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hLogicalGPU is not valid; hPhysicalGPU is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_LOGICAL_GPU_HANDLE hLogicalGPU was not a logical GPU handle +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetPhysicalGPUsFromLogicalGPU(NvLogicalGpuHandle hLogicalGPU,NvPhysicalGpuHandle hPhysicalGPU[NVAPI_MAX_PHYSICAL_GPUS], NvU32 *pGpuCount); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetGpuCoreCount +// +//! DESCRIPTION: Retrieves the total number of cores defined for a GPU. +//! Returns 0 on architectures that don't define GPU cores. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \retval ::NVAPI_INVALID_ARGUMENT pCount is NULL +//! \retval ::NVAPI_OK *pCount is set +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND no NVIDIA GPU driving a display was found +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! \retval ::NVAPI_NOT_SUPPORTED API call is not supported on current architecture +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetGpuCoreCount(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pCount); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetAllOutputs +// +//! This function returns set of all GPU-output identifiers as a bitmask. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetAllDisplayIds. +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 85 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL. +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetAllDisplayIds.") +NVAPI_INTERFACE NvAPI_GPU_GetAllOutputs(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pOutputsMask); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetConnectedOutputs +// +//! This function is the same as NvAPI_GPU_GetAllOutputs() but returns only the set of GPU output +//! identifiers that are connected to display devices. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds. +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL. +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds.") +NVAPI_INTERFACE NvAPI_GPU_GetConnectedOutputs(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pOutputsMask); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetConnectedSLIOutputs +// +//! DESCRIPTION: This function is the same as NvAPI_GPU_GetConnectedOutputs() but returns only the set of GPU-output +//! identifiers that can be selected in an SLI configuration. +//! NOTE: This function matches NvAPI_GPU_GetConnectedOutputs() +//! - On systems which are not SLI capable. +//! - If the queried GPU is not part of a valid SLI group. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds. +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 170 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE: hPhysicalGpu was not a physical GPU handle +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds.") +NVAPI_INTERFACE NvAPI_GPU_GetConnectedSLIOutputs(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pOutputsMask); + + + + +//! \ingroup gpu +typedef enum +{ + NV_MONITOR_CONN_TYPE_UNINITIALIZED = 0, + NV_MONITOR_CONN_TYPE_VGA, + NV_MONITOR_CONN_TYPE_COMPONENT, + NV_MONITOR_CONN_TYPE_SVIDEO, + NV_MONITOR_CONN_TYPE_HDMI, + NV_MONITOR_CONN_TYPE_DVI, + NV_MONITOR_CONN_TYPE_LVDS, + NV_MONITOR_CONN_TYPE_DP, + NV_MONITOR_CONN_TYPE_COMPOSITE, + NV_MONITOR_CONN_TYPE_UNKNOWN = -1 +} NV_MONITOR_CONN_TYPE; + + +//! \addtogroup gpu +//! @{ +#define NV_GPU_CONNECTED_IDS_FLAG_UNCACHED NV_BIT(0) //!< Get uncached connected devices +#define NV_GPU_CONNECTED_IDS_FLAG_SLI NV_BIT(1) //!< Get devices such that those can be selected in an SLI configuration +#define NV_GPU_CONNECTED_IDS_FLAG_LIDSTATE NV_BIT(2) //!< Get devices such that to reflect the Lid State +#define NV_GPU_CONNECTED_IDS_FLAG_FAKE NV_BIT(3) //!< Get devices that includes the fake connected monitors +#define NV_GPU_CONNECTED_IDS_FLAG_EXCLUDE_MST NV_BIT(4) //!< Excludes devices that are part of the multi stream topology. + +//! @} + +//! \ingroup gpu +typedef struct _NV_GPU_DISPLAYIDS +{ + NvU32 version; + NV_MONITOR_CONN_TYPE connectorType; //!< out: vga, tv, dvi, hdmi and dp. This is reserved for future use and clients should not rely on this information. Instead get the + //!< GPU connector type from NvAPI_GPU_GetConnectorInfo/NvAPI_GPU_GetConnectorInfoEx + NvU32 displayId; //!< this is a unique identifier for each device + NvU32 isDynamic:1; //!< if bit is set then this display is part of MST topology and it's a dynamic + NvU32 isMultiStreamRootNode:1; //!< if bit is set then this displayID belongs to a multi stream enabled connector(root node). Note that when multi stream is enabled and + //!< a single multi stream capable monitor is connected to it, the monitor will share the display id with the RootNode. + //!< When there is more than one monitor connected in a multi stream topology, then the root node will have a separate displayId. + NvU32 isActive:1; //!< if bit is set then this display is being actively driven + NvU32 isCluster:1; //!< if bit is set then this display is the representative display + NvU32 isOSVisible:1; //!< if bit is set, then this display is reported to the OS + NvU32 isWFD:1; //!< if bit is set, then this display is wireless + NvU32 isConnected:1; //!< if bit is set, then this display is connected + NvU32 reservedInternal:10; //!< Do not use + NvU32 isPhysicallyConnected:1; //!< if bit is set, then this display is a phycially connected display + NvU32 reserved: 14; //!< must be zero +} NV_GPU_DISPLAYIDS; + +//! \ingroup gpu +//! Macro for constructing the version field of ::_NV_GPU_DISPLAYIDS +#define NV_GPU_DISPLAYIDS_VER1 MAKE_NVAPI_VERSION(NV_GPU_DISPLAYIDS,1) +#define NV_GPU_DISPLAYIDS_VER2 MAKE_NVAPI_VERSION(NV_GPU_DISPLAYIDS,3) + +#define NV_GPU_DISPLAYIDS_VER NV_GPU_DISPLAYIDS_VER2 + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetConnectedDisplayIds +// +//! \code +//! DESCRIPTION: Due to space limitation NvAPI_GPU_GetConnectedOutputs can return maximum 32 devices, but +//! this is no longer true for DPMST. NvAPI_GPU_GetConnectedDisplayIds will return all +//! the connected display devices in the form of displayIds for the associated hPhysicalGpu. +//! This function can accept set of flags to request cached, uncached, sli and lid to get the connected devices. +//! Default value for flags will be cached . +//! HOW TO USE: 1) for each PhysicalGpu, make a call to get the number of connected displayId's +//! using NvAPI_GPU_GetConnectedDisplayIds by passing the pDisplayIds as NULL +//! On call success: +//! 2) Allocate memory based on pDisplayIdCount then make a call NvAPI_GPU_GetConnectedDisplayIds to populate DisplayIds +//! SUPPORTED OS: Windows XP and higher +//! +//! PARAMETERS: hPhysicalGpu (IN) - GPU selection +//! flags (IN) - One or more defines from NV_GPU_CONNECTED_IDS_FLAG_* as valid flags. +//! pDisplayIds (IN/OUT) - Pointer to an NV_GPU_DISPLAYIDS struct, each entry represents a one displayID and its attributes +//! pDisplayIdCount(OUT)- Number of displayId's. +//! +//! RETURN STATUS: NVAPI_INVALID_ARGUMENT: hPhysicalGpu or pDisplayIds or pDisplayIdCount is NULL +//! NVAPI_OK: *pDisplayIds contains a set of GPU-output identifiers +//! NVAPI_NVIDIA_DEVICE_NOT_FOUND: no NVIDIA GPU driving a display was found +//! NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE: hPhysicalGpu was not a physical GPU handle +//! \endcode +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetConnectedDisplayIds(__in NvPhysicalGpuHandle hPhysicalGpu, __inout_ecount_part_opt(*pDisplayIdCount, *pDisplayIdCount) NV_GPU_DISPLAYIDS* pDisplayIds, __inout NvU32* pDisplayIdCount, __in NvU32 flags); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetAllDisplayIds +// +//! DESCRIPTION: This API returns display IDs for all possible outputs on the GPU. +//! For DPMST connector, it will return display IDs for all the video sinks in the topology. \n +//! HOW TO USE: 1. The first call should be made to get the all display ID count. To get the display ID count, send in \n +//! a) hPhysicalGpu - a valid GPU handle(enumerated using NvAPI_EnumPhysicalGPUs()) as input, \n +//! b) pDisplayIds - NULL, as we just want to get the display ID count. \n +//! c) pDisplayIdCount - a valid pointer to NvU32, whose value is set to ZERO. \n +//! If all parameters are correct and this call is successful, this call will return the display ID's count. \n +//! 2. To get the display ID array, make the second call to NvAPI_GPU_GetAllDisplayIds() with \n +//! a) hPhysicalGpu - should be same value which was sent in first call, \n +//! b) pDisplayIds - pointer to the display ID array allocated by caller based on display ID count, \n +//! eg. malloc(sizeof(NV_GPU_DISPLAYIDS) * pDisplayIdCount). \n +//! c) pDisplayIdCount - a valid pointer to NvU32. This indicates for how many display IDs \n +//! the memory is allocated(pDisplayIds) by the caller. \n +//! If all parameters are correct and this call is successful, this call will return the display ID array and actual +//! display ID count (which was obtained in the first call to NvAPI_GPU_GetAllDisplayIds). If the input display ID count is +//! less than the actual display ID count, it will overwrite the input and give the pDisplayIdCount as actual count and the +//! API will return NVAPI_INSUFFICIENT_BUFFER. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hPhysicalGpu GPU selection. +//! \param [in,out] DisplayIds Pointer to an array of NV_GPU_DISPLAYIDS structures, each entry represents one displayID +//! and its attributes. +//! \param [in,out] pDisplayIdCount As input, this parameter indicates the number of display's id's for which caller has +//! allocated the memory. As output, it will return the actual number of display IDs. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval NVAPI_INSUFFICIENT_BUFFER When the input buffer(pDisplayIds) is less than the actual number of display IDs, this API +//! will return NVAPI_INSUFFICIENT_BUFFER. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetAllDisplayIds(__in NvPhysicalGpuHandle hPhysicalGpu, __inout_ecount_part_opt(*pDisplayIdCount, *pDisplayIdCount) NV_GPU_DISPLAYIDS* pDisplayIds, __inout NvU32* pDisplayIdCount); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetConnectedOutputsWithLidState +// +//! This function is similar to NvAPI_GPU_GetConnectedOutputs(), and returns the connected display identifiers that are connected +//! as an output mask but unlike NvAPI_GPU_GetConnectedOutputs() this API "always" reflects the Lid State in the output mask. +//! Thus if you expect the LID close state to be available in the connection mask use this API. +//! - If LID is closed then this API will remove the LID panel from the connected display identifiers. +//! - If LID is open then this API will reflect the LID panel in the connected display identifiers. +//! +//! \note This API should be used on notebook systems and on systems where the LID state is required in the connection +//! output mask. On desktop systems the returned identifiers will match NvAPI_GPU_GetConnectedOutputs(). +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds. +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 95 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds.") +NVAPI_INTERFACE NvAPI_GPU_GetConnectedOutputsWithLidState(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pOutputsMask); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetConnectedSLIOutputsWithLidState +// +//! DESCRIPTION: This function is the same as NvAPI_GPU_GetConnectedOutputsWithLidState() but returns only the set +//! of GPU-output identifiers that can be selected in an SLI configuration. With SLI disabled, +//! this function matches NvAPI_GPU_GetConnectedOutputsWithLidState(). +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds. +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 170 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_GPU_GetConnectedDisplayIds.") +NVAPI_INTERFACE NvAPI_GPU_GetConnectedSLIOutputsWithLidState(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pOutputsMask); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetSystemType +// +//! \fn NvAPI_GPU_GetSystemType(NvPhysicalGpuHandle hPhysicalGpu, NV_SYSTEM_TYPE *pSystemType) +//! This function identifies whether the GPU is a notebook GPU or a desktop GPU. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 95 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL +//! \retval NVAPI_OK *pSystemType contains the GPU system type +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE: hPhysicalGpu was not a physical GPU handle +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +//! Used in NvAPI_GPU_GetSystemType() +typedef enum +{ + NV_SYSTEM_TYPE_UNKNOWN = 0, + NV_SYSTEM_TYPE_LAPTOP = 1, + NV_SYSTEM_TYPE_DESKTOP = 2, + +} NV_SYSTEM_TYPE; + + + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_GetSystemType(NvPhysicalGpuHandle hPhysicalGpu, NV_SYSTEM_TYPE *pSystemType); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetActiveOutputs +// +//! This function is the same as NvAPI_GPU_GetAllOutputs but returns only the set of GPU output +//! identifiers that are actively driving display devices. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 85 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pOutputsMask is NULL. +//! \retval NVAPI_OK *pOutputsMask contains a set of GPU-output identifiers. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetActiveOutputs(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pOutputsMask); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_SetEDID +// +//! Thus function sets the EDID data for the specified GPU handle and connection bit mask. +//! displayOutputId should have exactly 1 bit set to indicate a single display. See \ref handles. +//! \note The EDID will be cached across the boot session and will be enumerated to the OS in this call. +//! To remove the EDID set sizeofEDID to zero. +//! OS and NVAPI connection status APIs will reflect the newly set or removed EDID dynamically. +//! +//! This feature will NOT be supported on the following boards: +//! - GeForce +//! - Quadro VX +//! - Tesla +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 100 +//! +//! \retval NVAPI_INVALID_ARGUMENT pEDID is NULL; displayOutputId has 0 or > 1 bits set +//! \retval NVAPI_OK *pEDID data was applied to the requested displayOutputId. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE: hPhysicalGpu was not a physical GPU handle. +//! \retval NVAPI_NOT_SUPPORTED For the above mentioned GPUs +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_SetEDID(NvPhysicalGpuHandle hPhysicalGpu, NvU32 displayOutputId, NV_EDID *pEDID); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetOutputType +// +//! \fn NvAPI_GPU_GetOutputType(NvPhysicalGpuHandle hPhysicalGpu, NvU32 outputId, NV_GPU_OUTPUT_TYPE *pOutputType) +//! This function returns the output type for a specific physical GPU handle and outputId (exactly 1 bit set - see \ref handles). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \Version Earliest supported ForceWare version: 82.61 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu, outputId, or pOutputsMask is NULL; or outputId has > 1 bit set +//! \retval NVAPI_OK *pOutputType contains a NvGpuOutputType value +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +//! used in NvAPI_GPU_GetOutputType() +typedef enum _NV_GPU_OUTPUT_TYPE +{ + NVAPI_GPU_OUTPUT_UNKNOWN = 0, + NVAPI_GPU_OUTPUT_CRT = 1, //!< CRT display device + NVAPI_GPU_OUTPUT_DFP = 2, //!< Digital Flat Panel display device + NVAPI_GPU_OUTPUT_TV = 3, //!< TV display device +} NV_GPU_OUTPUT_TYPE; + + + + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_GetOutputType(NvPhysicalGpuHandle hPhysicalGpu, NvU32 outputId, NV_GPU_OUTPUT_TYPE *pOutputType); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_ValidateOutputCombination +// +//! This function determines if a set of GPU outputs can be active +//! simultaneously. While a GPU may have outputs, typically they cannot +//! all be active at the same time due to internal resource sharing. +//! +//! Given a physical GPU handle and a mask of candidate outputs, this call +//! will return NVAPI_OK if all of the specified outputs can be driven +//! simultaneously. It will return NVAPI_INVALID_COMBINATION if they cannot. +//! +//! Use NvAPI_GPU_GetAllOutputs() to determine which outputs are candidates. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 85 +//! +//! \retval NVAPI_OK Combination of outputs in outputsMask are valid (can be active simultaneously). +//! \retval NVAPI_INVALID_COMBINATION Combination of outputs in outputsMask are NOT valid. +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or outputsMask does not have at least 2 bits set. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_ValidateOutputCombination(NvPhysicalGpuHandle hPhysicalGpu, NvU32 outputsMask); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetFullName +// +//! This function retrieves the full GPU name as an ASCII string - for example, "Quadro FX 1400". +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \return NVAPI_ERROR or NVAPI_OK +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetFullName(NvPhysicalGpuHandle hPhysicalGpu, NvAPI_ShortString szName); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetPCIIdentifiers +// +//! This function returns the PCI identifiers associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \param DeviceId The internal PCI device identifier for the GPU. +//! \param SubSystemId The internal PCI subsystem identifier for the GPU. +//! \param RevisionId The internal PCI device-specific revision identifier for the GPU. +//! \param ExtDeviceId The external PCI device identifier for the GPU. +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or an argument is NULL +//! \retval NVAPI_OK Arguments are populated with PCI identifiers +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetPCIIdentifiers(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pDeviceId,NvU32 *pSubSystemId,NvU32 *pRevisionId,NvU32 *pExtDeviceId); + + + + +//! \ingroup gpu +//! Used in NvAPI_GPU_GetGPUType(). +typedef enum _NV_GPU_TYPE +{ + NV_SYSTEM_TYPE_GPU_UNKNOWN = 0, + NV_SYSTEM_TYPE_IGPU = 1, //!< Integrated GPU + NV_SYSTEM_TYPE_DGPU = 2, //!< Discrete GPU +} NV_GPU_TYPE; + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetGPUType +// +//! DESCRIPTION: This function returns the GPU type (integrated or discrete). +//! See ::NV_GPU_TYPE. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 173 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu +//! \retval NVAPI_OK *pGpuType contains the GPU type +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE: hPhysicalGpu was not a physical GPU handle +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetGPUType(__in NvPhysicalGpuHandle hPhysicalGpu, __inout NV_GPU_TYPE *pGpuType); + + + + +//! \ingroup gpu +//! Used in NvAPI_GPU_GetBusType() +typedef enum _NV_GPU_BUS_TYPE +{ + NVAPI_GPU_BUS_TYPE_UNDEFINED = 0, + NVAPI_GPU_BUS_TYPE_PCI = 1, + NVAPI_GPU_BUS_TYPE_AGP = 2, + NVAPI_GPU_BUS_TYPE_PCI_EXPRESS = 3, + NVAPI_GPU_BUS_TYPE_FPCI = 4, + NVAPI_GPU_BUS_TYPE_AXI = 5, +} NV_GPU_BUS_TYPE; +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetBusType +// +//! This function returns the type of bus associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pBusType is NULL. +//! \retval NVAPI_OK *pBusType contains bus identifier. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetBusType(NvPhysicalGpuHandle hPhysicalGpu,NV_GPU_BUS_TYPE *pBusType); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetBusId +// +//! DESCRIPTION: Returns the ID of the bus associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 167 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pBusId is NULL. +//! \retval NVAPI_OK *pBusId contains the bus ID. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetBusId(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pBusId); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetBusSlotId +// +//! DESCRIPTION: Returns the ID of the bus slot associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 167 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pBusSlotId is NULL. +//! \retval NVAPI_OK *pBusSlotId contains the bus slot ID. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetBusSlotId(NvPhysicalGpuHandle hPhysicalGpu, NvU32 *pBusSlotId); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetIRQ +// +//! This function returns the interrupt number associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pIRQ is NULL. +//! \retval NVAPI_OK *pIRQ contains interrupt number. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetIRQ(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pIRQ); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetVbiosRevision +// +//! This function returns the revision of the video BIOS associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pBiosRevision is NULL. +//! \retval NVAPI_OK *pBiosRevision contains revision number. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetVbiosRevision(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pBiosRevision); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetVbiosOEMRevision +// +//! This function returns the OEM revision of the video BIOS associated with this GPU. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu or pBiosRevision is NULL +//! \retval NVAPI_OK *pBiosRevision contains revision number +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetVbiosOEMRevision(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pBiosRevision); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetVbiosVersionString +// +//! This function returns the full video BIOS version string in the form of xx.xx.xx.xx.yy where +//! - xx numbers come from NvAPI_GPU_GetVbiosRevision() and +//! - yy comes from NvAPI_GPU_GetVbiosOEMRevision(). +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT hPhysicalGpu is NULL. +//! \retval NVAPI_OK szBiosRevision contains version string. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetVbiosVersionString(NvPhysicalGpuHandle hPhysicalGpu,NvAPI_ShortString szBiosRevision); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetAGPAperture +// +//! This function returns the AGP aperture in megabytes. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT pSize is NULL. +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetAGPAperture(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pSize); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetCurrentAGPRate +// +//! This function returns the current AGP Rate (0 = AGP not present, 1 = 1x, 2 = 2x, etc.). +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT pRate is NULL. +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetCurrentAGPRate(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pRate); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetCurrentPCIEDownstreamWidth +// +//! This function returns the number of PCIE lanes being used for the PCIE interface +//! downstream from the GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT pWidth is NULL. +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetCurrentPCIEDownstreamWidth(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pWidth); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetPhysicalFrameBufferSize +// +//! This function returns the physical size of framebuffer in KB. This does NOT include any +//! system RAM that may be dedicated for use by the GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT pSize is NULL +//! \retval NVAPI_OK Call successful +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetPhysicalFrameBufferSize(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pSize); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetVirtualFrameBufferSize +// +//! This function returns the virtual size of framebuffer in KB. This includes the physical RAM plus any +//! system RAM that has been dedicated for use by the GPU. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 90 +//! +//! \retval NVAPI_INVALID_ARGUMENT pSize is NULL. +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu was not a physical GPU handle. +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetVirtualFrameBufferSize(NvPhysicalGpuHandle hPhysicalGpu,NvU32 *pSize); + + + + + +//! \ingroup gpu +typedef struct _NV_BOARD_INFO +{ + NvU32 version; //!< structure version + NvU8 BoardNum[16]; //!< Board Serial Number + +}NV_BOARD_INFO_V1; + +#define NV_BOARD_INFO_VER1 MAKE_NVAPI_VERSION(NV_BOARD_INFO_V1,1) +#ifndef NV_BOARD_INFO_VER +//! \ingroup gpu +typedef NV_BOARD_INFO_V1 NV_BOARD_INFO; +//! \ingroup gpu +//! \ingroup gpu +#define NV_BOARD_INFO_VER NV_BOARD_INFO_VER1 +#endif + +//! SUPPORTED OS: Windows XP and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetBoardInfo +// +//! DESCRIPTION: This API Retrieves the Board information (a unique GPU Board Serial Number) stored in the InfoROM. +//! +//! \param [in] hPhysicalGpu Physical GPU Handle. +//! \param [in,out] NV_BOARD_INFO Board Information. +//! +//! TCC_SUPPORTED +//! +//! \retval ::NVAPI_OK completed request +//! \retval ::NVAPI_ERROR miscellaneous error occurred +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE handle passed is not a physical GPU handle +//! \retval ::NVAPI_API_NOT_INTIALIZED NVAPI not initialized +//! \retval ::NVAPI_INVALID_POINTER pBoardInfo is NULL +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION the version of the INFO struct is not supported +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetBoardInfo(NvPhysicalGpuHandle hPhysicalGpu, NV_BOARD_INFO *pBoardInfo); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// GPU Clock Control +// +// These APIs allow the user to get and set individual clock domains +// on a per-GPU basis. +// +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup gpuclock +//! @{ +#define NVAPI_MAX_GPU_CLOCKS 32 +#define NVAPI_MAX_GPU_PUBLIC_CLOCKS 32 +#define NVAPI_MAX_GPU_PERF_CLOCKS 32 +#define NVAPI_MAX_GPU_PERF_VOLTAGES 16 +#define NVAPI_MAX_GPU_PERF_PSTATES 16 +//! @} + +//! \ingroup gpuclock +typedef enum _NV_GPU_PUBLIC_CLOCK_ID +{ + NVAPI_GPU_PUBLIC_CLOCK_GRAPHICS = 0, + NVAPI_GPU_PUBLIC_CLOCK_MEMORY = 4, + NVAPI_GPU_PUBLIC_CLOCK_PROCESSOR = 7, + NVAPI_GPU_PUBLIC_CLOCK_VIDEO = 8, + NVAPI_GPU_PUBLIC_CLOCK_UNDEFINED = NVAPI_MAX_GPU_PUBLIC_CLOCKS, +} NV_GPU_PUBLIC_CLOCK_ID; + + +//! \ingroup gpuclock +typedef enum _NV_GPU_PERF_VOLTAGE_INFO_DOMAIN_ID +{ + NVAPI_GPU_PERF_VOLTAGE_INFO_DOMAIN_CORE = 0, + NVAPI_GPU_PERF_VOLTAGE_INFO_DOMAIN_UNDEFINED = NVAPI_MAX_GPU_PERF_VOLTAGES, +} NV_GPU_PERF_VOLTAGE_INFO_DOMAIN_ID; + + + +//! \ingroup gpuclock +//! Used in NvAPI_GPU_GetAllClockFrequencies() +typedef struct +{ + NvU32 version; //!< Structure version + NvU32 reserved; //!< These bits are reserved for future use. + struct + { + NvU32 bIsPresent:1; //!< Set if this domain is present on this GPU + NvU32 reserved:31; //!< These bits are reserved for future use. + NvU32 frequency; //!< Clock frequency (kHz) + }domain[NVAPI_MAX_GPU_PUBLIC_CLOCKS]; +} NV_GPU_CLOCK_FREQUENCIES_V1; + +//! \ingroup gpuclock +//! Used in NvAPI_GPU_GetAllClockFrequencies() +typedef enum +{ + NV_GPU_CLOCK_FREQUENCIES_CURRENT_FREQ = 0, + NV_GPU_CLOCK_FREQUENCIES_BASE_CLOCK = 1, + NV_GPU_CLOCK_FREQUENCIES_BOOST_CLOCK = 2, + NV_GPU_CLOCK_FREQUENCIES_CLOCK_TYPE_NUM = 3 +} NV_GPU_CLOCK_FREQUENCIES_CLOCK_TYPE; + +//! \ingroup gpuclock +//! Used in NvAPI_GPU_GetAllClockFrequencies() +typedef struct +{ + NvU32 version; //!< Structure version + NvU32 ClockType:2; //!< One of NV_GPU_CLOCK_FREQUENCIES_CLOCK_TYPE. Used to specify the type of clock to be returned. + NvU32 reserved:22; //!< These bits are reserved for future use. Must be set to 0. + NvU32 reserved1:8; //!< These bits are reserved. + struct + { + NvU32 bIsPresent:1; //!< Set if this domain is present on this GPU + NvU32 reserved:31; //!< These bits are reserved for future use. + NvU32 frequency; //!< Clock frequency (kHz) + }domain[NVAPI_MAX_GPU_PUBLIC_CLOCKS]; +} NV_GPU_CLOCK_FREQUENCIES_V2; + +//! \ingroup gpuclock +//! Used in NvAPI_GPU_GetAllClockFrequencies() +typedef NV_GPU_CLOCK_FREQUENCIES_V2 NV_GPU_CLOCK_FREQUENCIES; + +//! \addtogroup gpuclock +//! @{ +#define NV_GPU_CLOCK_FREQUENCIES_VER_1 MAKE_NVAPI_VERSION(NV_GPU_CLOCK_FREQUENCIES_V1,1) +#define NV_GPU_CLOCK_FREQUENCIES_VER_2 MAKE_NVAPI_VERSION(NV_GPU_CLOCK_FREQUENCIES_V2,2) +#define NV_GPU_CLOCK_FREQUENCIES_VER_3 MAKE_NVAPI_VERSION(NV_GPU_CLOCK_FREQUENCIES_V2,3) +#define NV_GPU_CLOCK_FREQUENCIES_VER NV_GPU_CLOCK_FREQUENCIES_VER_3 +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetAllClockFrequencies +// +//! This function retrieves the NV_GPU_CLOCK_FREQUENCIES structure for the specified physical GPU. +//! +//! For each clock domain: +//! - bIsPresent is set for each domain that is present on the GPU +//! - frequency is the domain's clock freq in kHz +//! +//! Each domain's info is indexed in the array. For example: +//! clkFreqs.domain[NVAPI_GPU_PUBLIC_CLOCK_MEMORY] holds the info for the MEMORY domain. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 295 +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below. +//! \retval NVAPI_INVALID_ARGUMENT pClkFreqs is NULL. +//! \ingroup gpuclock +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetAllClockFrequencies(__in NvPhysicalGpuHandle hPhysicalGPU, __inout NV_GPU_CLOCK_FREQUENCIES *pClkFreqs); + + +//! \addtogroup gpupstate +//! @{ + +typedef enum _NV_GPU_PERF_PSTATE_ID +{ + NVAPI_GPU_PERF_PSTATE_P0 = 0, + NVAPI_GPU_PERF_PSTATE_P1, + NVAPI_GPU_PERF_PSTATE_P2, + NVAPI_GPU_PERF_PSTATE_P3, + NVAPI_GPU_PERF_PSTATE_P4, + NVAPI_GPU_PERF_PSTATE_P5, + NVAPI_GPU_PERF_PSTATE_P6, + NVAPI_GPU_PERF_PSTATE_P7, + NVAPI_GPU_PERF_PSTATE_P8, + NVAPI_GPU_PERF_PSTATE_P9, + NVAPI_GPU_PERF_PSTATE_P10, + NVAPI_GPU_PERF_PSTATE_P11, + NVAPI_GPU_PERF_PSTATE_P12, + NVAPI_GPU_PERF_PSTATE_P13, + NVAPI_GPU_PERF_PSTATE_P14, + NVAPI_GPU_PERF_PSTATE_P15, + NVAPI_GPU_PERF_PSTATE_UNDEFINED = NVAPI_MAX_GPU_PERF_PSTATES, + NVAPI_GPU_PERF_PSTATE_ALL, + +} NV_GPU_PERF_PSTATE_ID; + +//! @} + + + +//! \ingroup gpupstate +//! Used in NvAPI_GPU_GetPstatesInfoEx() +typedef struct +{ + NvU32 version; + NvU32 flags; //!< - bit 0 indicates if perfmon is enabled or not + //!< - bit 1 indicates if dynamic Pstate is capable or not + //!< - bit 2 indicates if dynamic Pstate is enable or not + //!< - all other bits must be set to 0 + NvU32 numPstates; //!< The number of available p-states + NvU32 numClocks; //!< The number of clock domains supported by each P-State + struct + { + NV_GPU_PERF_PSTATE_ID pstateId; //!< ID of the p-state. + NvU32 flags; //!< - bit 0 indicates if the PCIE limit is GEN1 or GEN2 + //!< - bit 1 indicates if the Pstate is overclocked or not + //!< - bit 2 indicates if the Pstate is overclockable or not + //!< - all other bits must be set to 0 + struct + { + NV_GPU_PUBLIC_CLOCK_ID domainId; //!< ID of the clock domain + NvU32 flags; //!< Reserved. Must be set to 0 + NvU32 freq; //!< Clock frequency in kHz + + } clocks[NVAPI_MAX_GPU_PERF_CLOCKS]; + } pstates[NVAPI_MAX_GPU_PERF_PSTATES]; + +} NV_GPU_PERF_PSTATES_INFO_V1; + + +//! \ingroup gpupstate +typedef struct +{ + NvU32 version; + NvU32 flags; //!< - bit 0 indicates if perfmon is enabled or not + //!< - bit 1 indicates if dynamic Pstate is capable or not + //!< - bit 2 indicates if dynamic Pstate is enable or not + //!< - all other bits must be set to 0 + NvU32 numPstates; //!< The number of available p-states + NvU32 numClocks; //!< The number of clock domains supported by each P-State + NvU32 numVoltages; + struct + { + NV_GPU_PERF_PSTATE_ID pstateId; //!< ID of the p-state. + NvU32 flags; //!< - bit 0 indicates if the PCIE limit is GEN1 or GEN2 + //!< - bit 1 indicates if the Pstate is overclocked or not + //!< - bit 2 indicates if the Pstate is overclockable or not + //!< - all other bits must be set to 0 + struct + { + NV_GPU_PUBLIC_CLOCK_ID domainId; + NvU32 flags; //!< bit 0 indicates if this clock is overclockable + //!< all other bits must be set to 0 + NvU32 freq; + + } clocks[NVAPI_MAX_GPU_PERF_CLOCKS]; + struct + { + NV_GPU_PERF_VOLTAGE_INFO_DOMAIN_ID domainId; //!< ID of the voltage domain, containing flags and mvolt info + NvU32 flags; //!< Reserved for future use. Must be set to 0 + NvU32 mvolt; //!< Voltage in mV + + } voltages[NVAPI_MAX_GPU_PERF_VOLTAGES]; + + } pstates[NVAPI_MAX_GPU_PERF_PSTATES]; //!< Valid index range is 0 to numVoltages-1 + +} NV_GPU_PERF_PSTATES_INFO_V2; + +//! \ingroup gpupstate +typedef NV_GPU_PERF_PSTATES_INFO_V2 NV_GPU_PERF_PSTATES_INFO; + + +//! \ingroup gpupstate +//! @{ + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES_INFO_V1 +#define NV_GPU_PERF_PSTATES_INFO_VER1 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES_INFO_V1,1) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES_INFO_V2 +#define NV_GPU_PERF_PSTATES_INFO_VER2 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES_INFO_V2,2) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES_INFO_V2 +#define NV_GPU_PERF_PSTATES_INFO_VER3 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES_INFO_V2,3) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES_INFO +#define NV_GPU_PERF_PSTATES_INFO_VER NV_GPU_PERF_PSTATES_INFO_VER3 + +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetPstatesInfoEx +// +//! DESCRIPTION: This API retrieves all performance states (P-States) information. This is the same as +//! NvAPI_GPU_GetPstatesInfo(), but supports an input flag for various options. +//! +//! P-States are GPU active/executing performance capability and power consumption states. +//! +//! P-States ranges from P0 to P15, with P0 being the highest performance/power state, and +//! P15 being the lowest performance/power state. Each P-State, if available, maps to a +//! performance level. Not all P-States are available on a given system. The definitions +//! of each P-State are currently as follows: \n +//! - P0/P1 - Maximum 3D performance +//! - P2/P3 - Balanced 3D performance-power +//! - P8 - Basic HD video playback +//! - P10 - DVD playback +//! - P12 - Minimum idle power consumption +//! +//! \deprecated Do not use this function - it is deprecated in release 304. Instead, use NvAPI_GPU_GetPstates20. +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \param [in] hPhysicalGPU GPU selection. +//! \param [out] pPerfPstatesInfo P-States information retrieved, as detailed below: \n +//! - flags is reserved for future use. +//! - numPstates is the number of available P-States +//! - numClocks is the number of clock domains supported by each P-State +//! - pstates has valid index range from 0 to numPstates - 1 +//! - pstates[i].pstateId is the ID of the P-State, +//! containing the following info: +//! - pstates[i].flags containing the following info: +//! - bit 0 indicates if the PCIE limit is GEN1 or GEN2 +//! - bit 1 indicates if the Pstate is overclocked or not +//! - bit 2 indicates if the Pstate is overclockable or not +//! - pstates[i].clocks has valid index range from 0 to numClocks -1 +//! - pstates[i].clocks[j].domainId is the public ID of the clock domain, +//! containing the following info: +//! - pstates[i].clocks[j].flags containing the following info: +//! bit 0 indicates if the clock domain is overclockable or not +//! - pstates[i].clocks[j].freq is the clock frequency in kHz +//! - pstates[i].voltages has a valid index range from 0 to numVoltages - 1 +//! - pstates[i].voltages[j].domainId is the ID of the voltage domain, +//! containing the following info: +//! - pstates[i].voltages[j].flags is reserved for future use. +//! - pstates[i].voltages[j].mvolt is the voltage in mV +//! inputFlags(IN) - This can be used to select various options: +//! - if bit 0 is set, pPerfPstatesInfo would contain the default settings +//! instead of the current, possibily overclocked settings. +//! - if bit 1 is set, pPerfPstatesInfo would contain the maximum clock +//! frequencies instead of the nominal frequencies. +//! - if bit 2 is set, pPerfPstatesInfo would contain the minimum clock +//! frequencies instead of the nominal frequencies. +//! - all other bits must be set to 0. +//! +//! \retval ::NVAPI_OK Completed request +//! \retval ::NVAPI_ERROR Miscellaneous error occurred +//! \retval ::NVAPI_HANDLE_INVALIDATED Handle passed has been invalidated (see user guide) +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE Handle passed is not a physical GPU handle +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the NV_GPU_PERF_PSTATES struct is not supported +//! +//! \ingroup gpupstate +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 304. Instead, use NvAPI_GPU_GetPstates20.") +NVAPI_INTERFACE NvAPI_GPU_GetPstatesInfoEx(NvPhysicalGpuHandle hPhysicalGpu, NV_GPU_PERF_PSTATES_INFO *pPerfPstatesInfo, NvU32 inputFlags); + + +//! \addtogroup gpupstate +//! @{ + +#define NVAPI_MAX_GPU_PSTATE20_PSTATES 16 +#define NVAPI_MAX_GPU_PSTATE20_CLOCKS 8 +#define NVAPI_MAX_GPU_PSTATE20_BASE_VOLTAGES 4 + +//! Used to identify clock type +typedef enum +{ + //! Clock domains that use single frequency value within given pstate + NVAPI_GPU_PERF_PSTATE20_CLOCK_TYPE_SINGLE = 0, + + //! Clock domains that allow range of frequency values within given pstate + NVAPI_GPU_PERF_PSTATE20_CLOCK_TYPE_RANGE, +} NV_GPU_PERF_PSTATE20_CLOCK_TYPE_ID; + +//! Used to describe both voltage and frequency deltas +typedef struct +{ + //! Value of parameter delta (in respective units [kHz, uV]) + NvS32 value; + + struct + { + //! Min value allowed for parameter delta (in respective units [kHz, uV]) + NvS32 min; + + //! Max value allowed for parameter delta (in respective units [kHz, uV]) + NvS32 max; + } valueRange; +} NV_GPU_PERF_PSTATES20_PARAM_DELTA; + +//! Used to describe single clock entry +typedef struct +{ + //! ID of the clock domain + NV_GPU_PUBLIC_CLOCK_ID domainId; + + //! Clock type ID + NV_GPU_PERF_PSTATE20_CLOCK_TYPE_ID typeId; + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Current frequency delta from nominal settings in (kHz) + NV_GPU_PERF_PSTATES20_PARAM_DELTA freqDelta_kHz; + + //! Clock domain type dependant information + union + { + struct + { + //! Clock frequency within given pstate in (kHz) + NvU32 freq_kHz; + } single; + + struct + { + //! Min clock frequency within given pstate in (kHz) + NvU32 minFreq_kHz; + + //! Max clock frequency within given pstate in (kHz) + NvU32 maxFreq_kHz; + + //! Voltage domain ID and value range in (uV) required for this clock + NV_GPU_PERF_VOLTAGE_INFO_DOMAIN_ID domainId; + NvU32 minVoltage_uV; + NvU32 maxVoltage_uV; + } range; + } data; +} NV_GPU_PSTATE20_CLOCK_ENTRY_V1; + +//! Used to describe single base voltage entry +typedef struct +{ + //! ID of the voltage domain + NV_GPU_PERF_VOLTAGE_INFO_DOMAIN_ID domainId; + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Current base voltage settings in [uV] + NvU32 volt_uV; + + NV_GPU_PERF_PSTATES20_PARAM_DELTA voltDelta_uV; // Current base voltage delta from nominal settings in [uV] +} NV_GPU_PSTATE20_BASE_VOLTAGE_ENTRY_V1; + +//! Used in NvAPI_GPU_GetPstates20() interface call. + +typedef struct +{ + //! Version info of the structure (NV_GPU_PERF_PSTATES20_INFO_VER) + NvU32 version; + + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Number of populated pstates + NvU32 numPstates; + + //! Number of populated clocks (per pstate) + NvU32 numClocks; + + //! Number of populated base voltages (per pstate) + NvU32 numBaseVoltages; + + //! Performance state (P-State) settings + //! Valid index range is 0 to numPstates-1 + struct + { + //! ID of the P-State + NV_GPU_PERF_PSTATE_ID pstateId; + + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Array of clock entries + //! Valid index range is 0 to numClocks-1 + NV_GPU_PSTATE20_CLOCK_ENTRY_V1 clocks[NVAPI_MAX_GPU_PSTATE20_CLOCKS]; + + //! Array of baseVoltage entries + //! Valid index range is 0 to numBaseVoltages-1 + NV_GPU_PSTATE20_BASE_VOLTAGE_ENTRY_V1 baseVoltages[NVAPI_MAX_GPU_PSTATE20_BASE_VOLTAGES]; + } pstates[NVAPI_MAX_GPU_PSTATE20_PSTATES]; +} NV_GPU_PERF_PSTATES20_INFO_V1; + +//! Used in NvAPI_GPU_GetPstates20() interface call. + +typedef struct _NV_GPU_PERF_PSTATES20_INFO_V2 +{ + //! Version info of the structure (NV_GPU_PERF_PSTATES20_INFO_VER) + NvU32 version; + + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Number of populated pstates + NvU32 numPstates; + + //! Number of populated clocks (per pstate) + NvU32 numClocks; + + //! Number of populated base voltages (per pstate) + NvU32 numBaseVoltages; + + //! Performance state (P-State) settings + //! Valid index range is 0 to numPstates-1 + struct + { + //! ID of the P-State + NV_GPU_PERF_PSTATE_ID pstateId; + + NvU32 bIsEditable:1; + + //! These bits are reserved for future use (must be always 0) + NvU32 reserved:31; + + //! Array of clock entries + //! Valid index range is 0 to numClocks-1 + NV_GPU_PSTATE20_CLOCK_ENTRY_V1 clocks[NVAPI_MAX_GPU_PSTATE20_CLOCKS]; + + //! Array of baseVoltage entries + //! Valid index range is 0 to numBaseVoltages-1 + NV_GPU_PSTATE20_BASE_VOLTAGE_ENTRY_V1 baseVoltages[NVAPI_MAX_GPU_PSTATE20_BASE_VOLTAGES]; + } pstates[NVAPI_MAX_GPU_PSTATE20_PSTATES]; + + //! OV settings - Please refer to NVIDIA over-volting recommendation to understand impact of this functionality + //! Valid index range is 0 to numVoltages-1 + struct + { + //! Number of populated voltages + NvU32 numVoltages; + + //! Array of voltage entries + //! Valid index range is 0 to numVoltages-1 + NV_GPU_PSTATE20_BASE_VOLTAGE_ENTRY_V1 voltages[NVAPI_MAX_GPU_PSTATE20_BASE_VOLTAGES]; + } ov; +} NV_GPU_PERF_PSTATES20_INFO_V2; + +typedef NV_GPU_PERF_PSTATES20_INFO_V2 NV_GPU_PERF_PSTATES20_INFO; + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES20_INFO_V1 +#define NV_GPU_PERF_PSTATES20_INFO_VER1 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES20_INFO_V1,1) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES20_INFO_V2 +#define NV_GPU_PERF_PSTATES20_INFO_VER2 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES20_INFO_V2,2) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES20_INFO_V2 +#define NV_GPU_PERF_PSTATES20_INFO_VER3 MAKE_NVAPI_VERSION(NV_GPU_PERF_PSTATES20_INFO_V2,3) + +//! Macro for constructing the version field of NV_GPU_PERF_PSTATES20_INFO +#define NV_GPU_PERF_PSTATES20_INFO_VER NV_GPU_PERF_PSTATES20_INFO_VER3 + +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetPstates20 +// +//! DESCRIPTION: This API retrieves all performance states (P-States) 2.0 information. +//! +//! P-States are GPU active/executing performance capability states. +//! They range from P0 to P15, with P0 being the highest performance state, +//! and P15 being the lowest performance state. Each P-State, if available, +//! maps to a performance level. Not all P-States are available on a given system. +//! The definition of each P-States are currently as follow: +//! - P0/P1 - Maximum 3D performance +//! - P2/P3 - Balanced 3D performance-power +//! - P8 - Basic HD video playback +//! - P10 - DVD playback +//! - P12 - Minimum idle power consumption +//! +//! TCC_SUPPORTED +//! +//! \since Release: 295 +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hPhysicalGPU GPU selection +//! \param [out] pPstatesInfo P-States information retrieved, as documented in declaration above +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below. +//! +//! \ingroup gpupstate +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetPstates20(__in NvPhysicalGpuHandle hPhysicalGpu, __inout NV_GPU_PERF_PSTATES20_INFO *pPstatesInfo); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetCurrentPstate +// +//! DESCRIPTION: This function retrieves the current performance state (P-State). +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 165 +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGPU GPU selection +//! \param [out] pCurrentPstate The ID of the current P-State of the GPU - see \ref NV_GPU_PERF_PSTATES. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred. +//! \retval NVAPI_HANDLE_INVALIDATED Handle passed has been invalidated (see user guide). +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE Handle passed is not a physical GPU handle. +//! \retval NVAPI_NOT_SUPPORTED P-States is not supported on this setup. +//! +//! \ingroup gpupstate +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetCurrentPstate(NvPhysicalGpuHandle hPhysicalGpu, NV_GPU_PERF_PSTATE_ID *pCurrentPstate); + + + + +//! \ingroup gpupstate +#define NVAPI_MAX_GPU_UTILIZATIONS 8 + + + +//! \ingroup gpupstate +//! Used in NvAPI_GPU_GetDynamicPstatesInfoEx(). +typedef struct +{ + NvU32 version; //!< Structure version + NvU32 flags; //!< bit 0 indicates if the dynamic Pstate is enabled or not + struct + { + NvU32 bIsPresent:1; //!< Set if this utilization domain is present on this GPU + NvU32 percentage; //!< Percentage of time where the domain is considered busy in the last 1 second interval + } utilization[NVAPI_MAX_GPU_UTILIZATIONS]; +} NV_GPU_DYNAMIC_PSTATES_INFO_EX; + +//! \ingroup gpupstate +//! Macro for constructing the version field of NV_GPU_DYNAMIC_PSTATES_INFO_EX +#define NV_GPU_DYNAMIC_PSTATES_INFO_EX_VER MAKE_NVAPI_VERSION(NV_GPU_DYNAMIC_PSTATES_INFO_EX,1) + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetDynamicPstatesInfoEx +// +//! DESCRIPTION: This API retrieves the NV_GPU_DYNAMIC_PSTATES_INFO_EX structure for the specified physical GPU. +//! Each domain's info is indexed in the array. For example: +//! - pDynamicPstatesInfo->utilization[NVAPI_GPU_UTILIZATION_DOMAIN_GPU] holds the info for the GPU domain. \p +//! There are currently 4 domains for which GPU utilization and dynamic P-State thresholds can be retrieved: +//! graphic engine (GPU), frame buffer (FB), video engine (VID), and bus interface (BUS). +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 185 +//! +//! \retval ::NVAPI_OK +//! \retval ::NVAPI_ERROR +//! \retval ::NVAPI_INVALID_ARGUMENT pDynamicPstatesInfo is NULL +//! \retval ::NVAPI_HANDLE_INVALIDATED +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the INFO struct is not supported +//! +//! \ingroup gpupstate +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetDynamicPstatesInfoEx(NvPhysicalGpuHandle hPhysicalGpu, NV_GPU_DYNAMIC_PSTATES_INFO_EX *pDynamicPstatesInfoEx); + + +/////////////////////////////////////////////////////////////////////////////////// +// Thermal API +// Provides ability to get temperature levels from the various thermal sensors associated with the GPU + +//! \ingroup gputhermal +#define NVAPI_MAX_THERMAL_SENSORS_PER_GPU 3 + +//! \ingroup gputhermal +//! Used in NV_GPU_THERMAL_SETTINGS +typedef enum +{ + NVAPI_THERMAL_TARGET_NONE = 0, + NVAPI_THERMAL_TARGET_GPU = 1, //!< GPU core temperature requires NvPhysicalGpuHandle + NVAPI_THERMAL_TARGET_MEMORY = 2, //!< GPU memory temperature requires NvPhysicalGpuHandle + NVAPI_THERMAL_TARGET_POWER_SUPPLY = 4, //!< GPU power supply temperature requires NvPhysicalGpuHandle + NVAPI_THERMAL_TARGET_BOARD = 8, //!< GPU board ambient temperature requires NvPhysicalGpuHandle + NVAPI_THERMAL_TARGET_VCD_BOARD = 9, //!< Visual Computing Device Board temperature requires NvVisualComputingDeviceHandle + NVAPI_THERMAL_TARGET_VCD_INLET = 10, //!< Visual Computing Device Inlet temperature requires NvVisualComputingDeviceHandle + NVAPI_THERMAL_TARGET_VCD_OUTLET = 11, //!< Visual Computing Device Outlet temperature requires NvVisualComputingDeviceHandle + + NVAPI_THERMAL_TARGET_ALL = 15, + NVAPI_THERMAL_TARGET_UNKNOWN = -1, +} NV_THERMAL_TARGET; + +//! \ingroup gputhermal +//! Used in NV_GPU_THERMAL_SETTINGS +typedef enum +{ + NVAPI_THERMAL_CONTROLLER_NONE = 0, + NVAPI_THERMAL_CONTROLLER_GPU_INTERNAL, + NVAPI_THERMAL_CONTROLLER_ADM1032, + NVAPI_THERMAL_CONTROLLER_MAX6649, + NVAPI_THERMAL_CONTROLLER_MAX1617, + NVAPI_THERMAL_CONTROLLER_LM99, + NVAPI_THERMAL_CONTROLLER_LM89, + NVAPI_THERMAL_CONTROLLER_LM64, + NVAPI_THERMAL_CONTROLLER_ADT7473, + NVAPI_THERMAL_CONTROLLER_SBMAX6649, + NVAPI_THERMAL_CONTROLLER_VBIOSEVT, + NVAPI_THERMAL_CONTROLLER_OS, + NVAPI_THERMAL_CONTROLLER_UNKNOWN = -1, +} NV_THERMAL_CONTROLLER; + +//! \ingroup gputhermal +//! Used in NvAPI_GPU_GetThermalSettings() +typedef struct +{ + NvU32 version; //!< structure version + NvU32 count; //!< number of associated thermal sensors + struct + { + NV_THERMAL_CONTROLLER controller; //!< internal, ADM1032, MAX6649... + NvU32 defaultMinTemp; //!< The min default temperature value of the thermal sensor in degree Celsius + NvU32 defaultMaxTemp; //!< The max default temperature value of the thermal sensor in degree Celsius + NvU32 currentTemp; //!< The current temperature value of the thermal sensor in degree Celsius + NV_THERMAL_TARGET target; //!< Thermal sensor targeted @ GPU, memory, chipset, powersupply, Visual Computing Device, etc. + } sensor[NVAPI_MAX_THERMAL_SENSORS_PER_GPU]; + +} NV_GPU_THERMAL_SETTINGS_V1; + +//! \ingroup gputhermal +typedef struct +{ + NvU32 version; //!< structure version + NvU32 count; //!< number of associated thermal sensors + struct + { + NV_THERMAL_CONTROLLER controller; //!< internal, ADM1032, MAX6649... + NvS32 defaultMinTemp; //!< Minimum default temperature value of the thermal sensor in degree Celsius + NvS32 defaultMaxTemp; //!< Maximum default temperature value of the thermal sensor in degree Celsius + NvS32 currentTemp; //!< Current temperature value of the thermal sensor in degree Celsius + NV_THERMAL_TARGET target; //!< Thermal sensor targeted - GPU, memory, chipset, powersupply, Visual Computing Device, etc + } sensor[NVAPI_MAX_THERMAL_SENSORS_PER_GPU]; + +} NV_GPU_THERMAL_SETTINGS_V2; + +//! \ingroup gputhermal +typedef NV_GPU_THERMAL_SETTINGS_V2 NV_GPU_THERMAL_SETTINGS; + +//! \ingroup gputhermal +//! @{ + +//! Macro for constructing the version field of NV_GPU_THERMAL_SETTINGS_V1 +#define NV_GPU_THERMAL_SETTINGS_VER_1 MAKE_NVAPI_VERSION(NV_GPU_THERMAL_SETTINGS_V1,1) + +//! Macro for constructing the version field of NV_GPU_THERMAL_SETTINGS_V2 +#define NV_GPU_THERMAL_SETTINGS_VER_2 MAKE_NVAPI_VERSION(NV_GPU_THERMAL_SETTINGS_V2,2) + +//! Macro for constructing the version field of NV_GPU_THERMAL_SETTINGS +#define NV_GPU_THERMAL_SETTINGS_VER NV_GPU_THERMAL_SETTINGS_VER_2 +//! @} + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetThermalSettings +// +//! This function retrieves the thermal information of all thermal sensors or specific thermal sensor associated with the selected GPU. +//! Thermal sensors are indexed 0 to NVAPI_MAX_THERMAL_SENSORS_PER_GPU-1. +//! +//! - To retrieve specific thermal sensor info, set the sensorIndex to the required thermal sensor index. +//! - To retrieve info for all sensors, set sensorIndex to NVAPI_THERMAL_TARGET_ALL. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 85 +//! +//! \param [in] hPhysicalGPU GPU selection. +//! \param [in] sensorIndex Explicit thermal sensor index selection. +//! \param [out] pThermalSettings Array of thermal settings. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred. +//! \retval NVAPI_INVALID_ARGUMENT pThermalInfo is NULL. +//! \retval NVAPI_HANDLE_INVALIDATED Handle passed has been invalidated (see user guide). +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE Handle passed is not a physical GPU handle. +//! \retval NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the INFO struct is not supported. +//! \ingroup gputhermal +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetThermalSettings(NvPhysicalGpuHandle hPhysicalGpu, NvU32 sensorIndex, NV_GPU_THERMAL_SETTINGS *pThermalSettings); + + +/////////////////////////////////////////////////////////////////////////////////// +// I2C API +// Provides ability to read or write data using I2C protocol. +// These APIs allow I2C access only to DDC monitors + + +//! \addtogroup i2capi +//! @{ +#define NVAPI_MAX_SIZEOF_I2C_DATA_BUFFER 4096 +#define NVAPI_MAX_SIZEOF_I2C_REG_ADDRESS 4 +#define NVAPI_DISPLAY_DEVICE_MASK_MAX 24 +#define NVAPI_I2C_SPEED_DEPRECATED 0xFFFF + +typedef enum +{ + NVAPI_I2C_SPEED_DEFAULT, //!< Set i2cSpeedKhz to I2C_SPEED_DEFAULT if default I2C speed is to be chosen, ie.use the current frequency setting. + NVAPI_I2C_SPEED_3KHZ, + NVAPI_I2C_SPEED_10KHZ, + NVAPI_I2C_SPEED_33KHZ, + NVAPI_I2C_SPEED_100KHZ, + NVAPI_I2C_SPEED_200KHZ, + NVAPI_I2C_SPEED_400KHZ, +} NV_I2C_SPEED; + +//! Used in NvAPI_I2CRead() and NvAPI_I2CWrite() +typedef struct +{ + NvU32 version; //!< The structure version. + NvU32 displayMask; //!< The Display Mask of the concerned display. + NvU8 bIsDDCPort; //!< This flag indicates either the DDC port (TRUE) or the communication port + //!< (FALSE) of the concerned display. + NvU8 i2cDevAddress; //!< The address of the I2C slave. The address should be shifted left by one. For + //!< example, the I2C address 0x50, often used for reading EDIDs, would be stored + //!< here as 0xA0. This matches the position within the byte sent by the master, as + //!< the last bit is reserved to specify the read or write direction. + NvU8* pbI2cRegAddress; //!< The I2C target register address. May be NULL, which indicates no register + //!< address should be sent. + NvU32 regAddrSize; //!< The size in bytes of target register address. If pbI2cRegAddress is NULL, this + //!< field must be 0. + NvU8* pbData; //!< The buffer of data which is to be read or written (depending on the command). + NvU32 cbSize; //!< The size of the data buffer, pbData, to be read or written. + NvU32 i2cSpeed; //!< The target speed of the transaction (between 28Kbps to 40Kbps; not guaranteed). +} NV_I2C_INFO_V1; + +//! Used in NvAPI_I2CRead() and NvAPI_I2CWrite() +typedef struct +{ + NvU32 version; //!< The structure version. + NvU32 displayMask; //!< The Display Mask of the concerned display. + NvU8 bIsDDCPort; //!< This flag indicates either the DDC port (TRUE) or the communication port + //!< (FALSE) of the concerned display. + NvU8 i2cDevAddress; //!< The address of the I2C slave. The address should be shifted left by one. For + //!< example, the I2C address 0x50, often used for reading EDIDs, would be stored + //!< here as 0xA0. This matches the position within the byte sent by the master, as + //!< the last bit is reserved to specify the read or write direction. + NvU8* pbI2cRegAddress; //!< The I2C target register address. May be NULL, which indicates no register + //!< address should be sent. + NvU32 regAddrSize; //!< The size in bytes of target register address. If pbI2cRegAddress is NULL, this + //!< field must be 0. + NvU8* pbData; //!< The buffer of data which is to be read or written (depending on the command). + NvU32 cbSize; //!< The size of the data buffer, pbData, to be read or written. + NvU32 i2cSpeed; //!< Deprecated, Must be set to NVAPI_I2C_SPEED_DEPRECATED. + NV_I2C_SPEED i2cSpeedKhz; //!< The target speed of the transaction in (kHz) (Chosen from the enum NV_I2C_SPEED). +} NV_I2C_INFO_V2; + +//! Used in NvAPI_I2CRead() and NvAPI_I2CWrite() +typedef struct +{ + NvU32 version; //!< The structure version. + NvU32 displayMask; //!< The Display Mask of the concerned display. + NvU8 bIsDDCPort; //!< This flag indicates either the DDC port (TRUE) or the communication port + //!< (FALSE) of the concerned display. + NvU8 i2cDevAddress; //!< The address of the I2C slave. The address should be shifted left by one. For + //!< example, the I2C address 0x50, often used for reading EDIDs, would be stored + //!< here as 0xA0. This matches the position within the byte sent by the master, as + //!< the last bit is reserved to specify the read or write direction. + NvU8* pbI2cRegAddress; //!< The I2C target register address. May be NULL, which indicates no register + //!< address should be sent. + NvU32 regAddrSize; //!< The size in bytes of target register address. If pbI2cRegAddress is NULL, this + //!< field must be 0. + NvU8* pbData; //!< The buffer of data which is to be read or written (depending on the command). + NvU32 cbSize; //!< The size of the data buffer, pbData, to be read or written. + NvU32 i2cSpeed; //!< Deprecated, Must be set to NVAPI_I2C_SPEED_DEPRECATED. + NV_I2C_SPEED i2cSpeedKhz; //!< The target speed of the transaction in (kHz) (Chosen from the enum NV_I2C_SPEED). + NvU8 portId; //!< The portid on which device is connected (remember to set bIsPortIdSet if this value is set) + //!< Optional for pre-Kepler + NvU32 bIsPortIdSet; //!< set this flag on if and only if portid value is set +} NV_I2C_INFO_V3; + +typedef NV_I2C_INFO_V3 NV_I2C_INFO; + +#define NV_I2C_INFO_VER3 MAKE_NVAPI_VERSION(NV_I2C_INFO_V3,3) +#define NV_I2C_INFO_VER2 MAKE_NVAPI_VERSION(NV_I2C_INFO_V2,2) +#define NV_I2C_INFO_VER1 MAKE_NVAPI_VERSION(NV_I2C_INFO_V1,1) + +#define NV_I2C_INFO_VER NV_I2C_INFO_VER3 +//! @} + +/***********************************************************************************/ + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_I2CRead +// +//! This function reads the data buffer from the I2C port. +//! The I2C request must be for a DDC port: pI2cInfo->bIsDDCPort = 1. +//! +//! A data buffer size larger than 16 bytes may be rejected if a register address is specified. In such a case, +//! NVAPI_ARGUMENT_EXCEED_MAX_SIZE would be returned. +//! +//! If a register address is specified (i.e. regAddrSize is positive), then the transaction will be performed in +//! the combined format described in the I2C specification. The register address will be written, followed by +//! reading into the data buffer. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 85 +//! +//! \param [in] hPhysicalGPU GPU selection. +//! \param [out] NV_I2C_INFO *pI2cInfo The I2C data input structure +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred. +//! \retval NVAPI_HANDLE_INVALIDATED Handle passed has been invalidated (see user guide). +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE Handle passed is not a physical GPU handle. +//! \retval NVAPI_INCOMPATIBLE_STRUCT_VERSION Structure version is not supported. +//! \retval NVAPI_INVALID_ARGUMENT - argument does not meet specified requirements +//! \retval NVAPI_ARGUMENT_EXCEED_MAX_SIZE - an argument exceeds the maximum +//! +//! \ingroup i2capi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_I2CRead(NvPhysicalGpuHandle hPhysicalGpu, NV_I2C_INFO *pI2cInfo); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_I2CWrite +// +//! This function writes the data buffer to the I2C port. +//! +//! The I2C request must be for a DDC port: pI2cInfo->bIsDDCPort = 1. +//! +//! A data buffer size larger than 16 bytes may be rejected if a register address is specified. In such a case, +//! NVAPI_ARGUMENT_EXCEED_MAX_SIZE would be returned. +//! +//! If a register address is specified (i.e. regAddrSize is positive), then the register address will be written +//! and the data buffer will immediately follow without a restart. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 85 +//! +//! \param [in] hPhysicalGPU GPU selection. +//! \param [in] pI2cInfo The I2C data input structure +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred. +//! \retval NVAPI_HANDLE_INVALIDATED Handle passed has been invalidated (see user guide). +//! \retval NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE Handle passed is not a physical GPU handle. +//! \retval NVAPI_INCOMPATIBLE_STRUCT_VERSION Structure version is not supported. +//! \retval NVAPI_INVALID_ARGUMENT Argument does not meet specified requirements +//! \retval NVAPI_ARGUMENT_EXCEED_MAX_SIZE Argument exceeds the maximum +//! +//! \ingroup i2capi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_I2CWrite(NvPhysicalGpuHandle hPhysicalGpu, NV_I2C_INFO *pI2cInfo); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_WorkstationFeatureSetup +// +//! \fn NvAPI_GPU_WorkstationFeatureSetup(NvPhysicalGpuHandle hPhysicalGpu, NvU32 featureEnableMask, NvU32 featureDisableMask) +//! DESCRIPTION: This API configures the driver for a set of workstation features. +//! The driver can allocate the memory resources accordingly. +//! +//! SUPPORTED OS: Windows 7 +//! +//! +//! \param [in] hPhysicalGpu Physical GPU Handle of the display adapter to be configured. GPU handles may be retrieved +//! using NvAPI_EnumPhysicalGPUs. A value of NULL is permitted and applies the same operation +//! to all GPU handles enumerated by NvAPI_EnumPhysicalGPUs. +//! \param [in] featureEnableMask Mask of features the caller requests to enable for use +//! \param [in] featureDisableMask Mask of features the caller requests to disable +//! +//! As a general rule, features in the enable and disable masks are expected to be disjoint, although the disable +//! mask has precedence and a feature flagged in both masks will be disabled. +//! +//! \retval ::NVAPI_OK configuration request succeeded +//! \retval ::NVAPI_ERROR configuration request failed +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu is not a physical GPU handle. +//! \retval ::NVAPI_GPU_WORKSTATION_FEATURE_INCOMPLETE requested feature set does not have all resources allocated for completeness. +//! \retval ::NVAPI_NO_IMPLEMENTATION only implemented for Win7 +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +typedef enum +{ + NVAPI_GPU_WORKSTATION_FEATURE_MASK_SWAPGROUP = 0x00000001, + NVAPI_GPU_WORKSTATION_FEATURE_MASK_STEREO = 0x00000010, + NVAPI_GPU_WORKSTATION_FEATURE_MASK_WARPING = 0x00000100, + NVAPI_GPU_WORKSTATION_FEATURE_MASK_PIXINTENSITY = 0x00000200, + NVAPI_GPU_WORKSTATION_FEATURE_MASK_GRAYSCALE = 0x00000400, + NVAPI_GPU_WORKSTATION_FEATURE_MASK_BPC10 = 0x00001000 +} NVAPI_GPU_WORKSTATION_FEATURE_MASK; + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_WorkstationFeatureSetup(__in NvPhysicalGpuHandle hPhysicalGpu, __in NvU32 featureEnableMask, __in NvU32 featureDisableMask); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_WorkstationFeatureQuery +// +//! DESCRIPTION: This API queries the current set of workstation features. +//! +//! SUPPORTED OS: Windows 7 +//! +//! +//! \param [in] hPhysicalGpu Physical GPU Handle of the display adapter to be configured. GPU handles may be retrieved +//! using NvAPI_EnumPhysicalGPUs. +//! \param [out] pConfiguredFeatureMask Mask of features requested for use by client drivers +//! \param [out] pConsistentFeatureMask Mask of features that have all resources allocated for completeness. +//! +//! \retval ::NVAPI_OK configuration request succeeded +//! \retval ::NVAPI_ERROR configuration request failed +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE hPhysicalGpu is not a physical GPU handle. +//! \retval ::NVAPI_NO_IMPLEMENTATION only implemented for Win7 +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_WorkstationFeatureQuery(__in NvPhysicalGpuHandle hPhysicalGpu, __out_opt NvU32 *pConfiguredFeatureMask, __out_opt NvU32 *pConsistentFeatureMask); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetHDCPSupportStatus +// +//! \fn NvAPI_GPU_GetHDCPSupportStatus(NvPhysicalGpuHandle hPhysicalGpu, NV_GPU_GET_HDCP_SUPPORT_STATUS *pGetHDCPSupportStatus) +//! DESCRIPTION: This function returns a GPU's HDCP support status. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 175 +//! +//! \retval ::NVAPI_OK +//! \retval ::NVAPI_ERROR +//! \retval ::NVAPI_INVALID_ARGUMENT +//! \retval ::NVAPI_HANDLE_INVALIDATED +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION +// +//////////////////////////////////////////////////////////////////////////////// + + +//! \addtogroup gpu +//! @{ + + +//! HDCP fuse states - used in NV_GPU_GET_HDCP_SUPPORT_STATUS +typedef enum _NV_GPU_HDCP_FUSE_STATE +{ + NV_GPU_HDCP_FUSE_STATE_UNKNOWN = 0, + NV_GPU_HDCP_FUSE_STATE_DISABLED = 1, + NV_GPU_HDCP_FUSE_STATE_ENABLED = 2, +} NV_GPU_HDCP_FUSE_STATE; + + +//! HDCP key sources - used in NV_GPU_GET_HDCP_SUPPORT_STATUS +typedef enum _NV_GPU_HDCP_KEY_SOURCE +{ + NV_GPU_HDCP_KEY_SOURCE_UNKNOWN = 0, + NV_GPU_HDCP_KEY_SOURCE_NONE = 1, + NV_GPU_HDCP_KEY_SOURCE_CRYPTO_ROM = 2, + NV_GPU_HDCP_KEY_SOURCE_SBIOS = 3, + NV_GPU_HDCP_KEY_SOURCE_I2C_ROM = 4, + NV_GPU_HDCP_KEY_SOURCE_FUSES = 5, +} NV_GPU_HDCP_KEY_SOURCE; + + +//! HDCP key source states - used in NV_GPU_GET_HDCP_SUPPORT_STATUS +typedef enum _NV_GPU_HDCP_KEY_SOURCE_STATE +{ + NV_GPU_HDCP_KEY_SOURCE_STATE_UNKNOWN = 0, + NV_GPU_HDCP_KEY_SOURCE_STATE_ABSENT = 1, + NV_GPU_HDCP_KEY_SOURCE_STATE_PRESENT = 2, +} NV_GPU_HDCP_KEY_SOURCE_STATE; + + +//! HDPC support status - used in NvAPI_GPU_GetHDCPSupportStatus() +typedef struct +{ + NvU32 version; //! Structure version constucted by macro #NV_GPU_GET_HDCP_SUPPORT_STATUS + NV_GPU_HDCP_FUSE_STATE hdcpFuseState; //! GPU's HDCP fuse state + NV_GPU_HDCP_KEY_SOURCE hdcpKeySource; //! GPU's HDCP key source + NV_GPU_HDCP_KEY_SOURCE_STATE hdcpKeySourceState; //! GPU's HDCP key source state +} NV_GPU_GET_HDCP_SUPPORT_STATUS; + + +//! Macro for constructing the version for structure NV_GPU_GET_HDCP_SUPPORT_STATUS +#define NV_GPU_GET_HDCP_SUPPORT_STATUS_VER MAKE_NVAPI_VERSION(NV_GPU_GET_HDCP_SUPPORT_STATUS,1) + + +//! @} + + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_GetHDCPSupportStatus(NvPhysicalGpuHandle hPhysicalGpu, NV_GPU_GET_HDCP_SUPPORT_STATUS *pGetHDCPSupportStatus); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetTachReading +// +//! DESCRIPTION: This API retrieves the fan speed tachometer reading for the specified physical GPU. +//! +//! HOW TO USE: +//! - NvU32 Value = 0; +//! - ret = NvAPI_GPU_GetTachReading(hPhysicalGpu, &Value); +//! - On call success: +//! - Value contains the tachometer reading +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu GPU selection. +//! \param [out] pValue Pointer to a variable to get the tachometer reading +//! +//! \retval ::NVAPI_OK - completed request +//! \retval ::NVAPI_ERROR - miscellaneous error occurred +//! \retval ::NVAPI_NOT_SUPPORTED - functionality not supported +//! \retval ::NVAPI_API_NOT_INTIALIZED - nvapi not initialized +//! \retval ::NVAPI_INVALID_ARGUMENT - invalid argument passed +//! \retval ::NVAPI_HANDLE_INVALIDATED - handle passed has been invalidated (see user guide) +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE - handle passed is not a physical GPU handle +//! +//! \ingroup gpucooler +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetTachReading(NvPhysicalGpuHandle hPhysicalGPU, NvU32 *pValue); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetECCStatusInfo +// +//! \fn NvAPI_GPU_GetECCStatusInfo(NvPhysicalGpuHandle hPhysicalGpu, +//! NV_GPU_ECC_STATUS_INFO *pECCStatusInfo); +//! DESCRIPTION: This function returns ECC memory status information. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu A handle identifying the physical GPU for which ECC +//! status information is to be retrieved. +//! \param [out] pECCStatusInfo A pointer to an ECC status structure. +//! +//! \retval ::NVAPI_OK The request was completed successfully. +//! \retval ::NVAPI_ERROR An unknown error occurred. +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE The provided GPU handle is not a physical GPU handle. +//! \retval ::NVAPI_INVALID_HANDLE The provided GPU handle is invalid. +//! \retval ::NVAPI_HANDLE_INVALIDATED The provided GPU handle is no longer valid. +//! \retval ::NVAPI_INVALID_POINTER An invalid argument pointer was provided. +//! \retval ::NVAPI_NOT_SUPPORTED The request is not supported. +//! \retval ::NVAPI_API_NOT_INTIALIZED NvAPI was not yet initialized. +// +/////////////////////////////////////////////////////////////////////////////// + +//! \addtogroup gpuecc +//! Used in NV_GPU_ECC_STATUS_INFO. +typedef enum _NV_ECC_CONFIGURATION +{ + NV_ECC_CONFIGURATION_NOT_SUPPORTED = 0, + NV_ECC_CONFIGURATION_DEFERRED, //!< Changes require a POST to take effect + NV_ECC_CONFIGURATION_IMMEDIATE, //!< Changes can optionally be made to take effect immediately +} NV_ECC_CONFIGURATION; + +//! \ingroup gpuecc +//! Used in NvAPI_GPU_GetECCStatusInfo(). +typedef struct +{ + NvU32 version; //!< Structure version + NvU32 isSupported : 1; //!< ECC memory feature support + NV_ECC_CONFIGURATION configurationOptions; //!< Supported ECC memory feature configuration options + NvU32 isEnabled : 1; //!< Active ECC memory setting +} NV_GPU_ECC_STATUS_INFO; + +//! \ingroup gpuecc +//! Macro for constructing the version field of NV_GPU_ECC_STATUS_INFO +#define NV_GPU_ECC_STATUS_INFO_VER MAKE_NVAPI_VERSION(NV_GPU_ECC_STATUS_INFO,1) + +//! \ingroup gpuecc +NVAPI_INTERFACE NvAPI_GPU_GetECCStatusInfo(NvPhysicalGpuHandle hPhysicalGpu, + NV_GPU_ECC_STATUS_INFO *pECCStatusInfo); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetECCErrorInfo +// +//! \fn NvAPI_GPU_GetECCErrorInfo(NvPhysicalGpuHandle hPhysicalGpu, +//! NV_GPU_ECC_ERROR_INFO *pECCErrorInfo); +//! +//! DESCRIPTION: This function returns ECC memory error information. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu A handle identifying the physical GPU for +//! which ECC error information is to be +//! retrieved. +//! \param [out] pECCErrorInfo A pointer to an ECC error structure. +//! +//! \retval ::NVAPI_OK The request was completed successfully. +//! \retval ::NVAPI_ERROR An unknown error occurred. +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE The provided GPU handle is not a physical GPU handle. +//! \retval ::NVAPI_INVALID_ARGUMENT incorrect param value +//! \retval ::NVAPI_INVALID_POINTER An invalid argument pointer was provided. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION structure version is not supported, initialize to NV_GPU_ECC_ERROR_INFO_VER. +//! \retval ::NVAPI_HANDLE_INVALIDATED The provided GPU handle is no longer valid. +//! \retval ::NVAPI_NOT_SUPPORTED The request is not supported. +//! \retval ::NVAPI_API_NOT_INTIALIZED NvAPI was not yet initialized. +// +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup gpuecc +//! Used in NvAPI_GPU_GetECCErrorInfo()/ +typedef struct +{ + NvU32 version; //!< Structure version + struct { + NvU64 singleBitErrors; //!< Number of single-bit ECC errors detected since last boot + NvU64 doubleBitErrors; //!< Number of double-bit ECC errors detected since last boot + } current; + struct { + NvU64 singleBitErrors; //!< Number of single-bit ECC errors detected since last counter reset + NvU64 doubleBitErrors; //!< Number of double-bit ECC errors detected since last counter reset + } aggregate; +} NV_GPU_ECC_ERROR_INFO; + +//! \ingroup gpuecc +//! Macro for constructing the version field of NV_GPU_ECC_ERROR_INFO +#define NV_GPU_ECC_ERROR_INFO_VER MAKE_NVAPI_VERSION(NV_GPU_ECC_ERROR_INFO,1) + +//! \ingroup gpuecc +NVAPI_INTERFACE NvAPI_GPU_GetECCErrorInfo(NvPhysicalGpuHandle hPhysicalGpu, + NV_GPU_ECC_ERROR_INFO *pECCErrorInfo); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_ResetECCErrorInfo +// +//! DESCRIPTION: This function resets ECC memory error counters. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu A handle identifying the physical GPU for +//! which ECC error information is to be +//! cleared. +//! \param [in] bResetCurrent Reset the current ECC error counters. +//! \param [in] bResetAggregate Reset the aggregate ECC error counters. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_USER_PRIVILEGE - The caller does not have administrative privileges +//! +//! \ingroup gpuecc +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_ResetECCErrorInfo(NvPhysicalGpuHandle hPhysicalGpu, NvU8 bResetCurrent, + NvU8 bResetAggregate); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetECCConfigurationInfo +// +//! \fn NvAPI_GPU_GetECCConfigurationInfo(NvPhysicalGpuHandle hPhysicalGpu, +//! NV_GPU_ECC_CONFIGURATION_INFO *pECCConfigurationInfo); +//! DESCRIPTION: This function returns ECC memory configuration information. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu A handle identifying the physical GPU for +//! which ECC configuration information +//! is to be retrieved. +//! \param [out] pECCConfigurationInfo A pointer to an ECC +//! configuration structure. +//! +//! \retval ::NVAPI_OK The request was completed successfully. +//! \retval ::NVAPI_ERROR An unknown error occurred. +//! \retval ::NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE The provided GPU handle is not a physical GPU handle. +//! \retval ::NVAPI_INVALID_HANDLE The provided GPU handle is invalid. +//! \retval ::NVAPI_HANDLE_INVALIDATED The provided GPU handle is no longer valid. +//! \retval ::NVAPI_INVALID_POINTER An invalid argument pointer was provided. +//! \retval ::NVAPI_NOT_SUPPORTED The request is not supported. +//! \retval ::NVAPI_API_NOT_INTIALIZED NvAPI was not yet initialized. +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpuecc +//! Used in NvAPI_GPU_GetECCConfigurationInfo(). +typedef struct +{ + NvU32 version; //! Structure version + NvU32 isEnabled : 1; //! Current ECC configuration stored in non-volatile memory + NvU32 isEnabledByDefault : 1; //! Factory default ECC configuration (static) +} NV_GPU_ECC_CONFIGURATION_INFO; + +//! \ingroup gpuecc +//! Macro for consstructing the verion field of NV_GPU_ECC_CONFIGURATION_INFO +#define NV_GPU_ECC_CONFIGURATION_INFO_VER MAKE_NVAPI_VERSION(NV_GPU_ECC_CONFIGURATION_INFO,1) + +//! \ingroup gpuecc +NVAPI_INTERFACE NvAPI_GPU_GetECCConfigurationInfo(NvPhysicalGpuHandle hPhysicalGpu, + NV_GPU_ECC_CONFIGURATION_INFO *pECCConfigurationInfo); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_SetECCConfiguration +// +//! DESCRIPTION: This function updates the ECC memory configuration setting. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \param [in] hPhysicalGpu A handle identifying the physical GPU for +//! which to update the ECC configuration +//! setting. +//! \param [in] bEnable The new ECC configuration setting. +//! \param [in] bEnableImmediately Request that the new setting take effect immediately. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_CONFIGURATION - Possibly SLI is enabled. Disable SLI and retry. +//! \retval ::NVAPI_INVALID_USER_PRIVILEGE - The caller does not have administrative privileges +//! +//! \ingroup gpuecc +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_SetECCConfiguration(NvPhysicalGpuHandle hPhysicalGpu, NvU8 bEnable, + NvU8 bEnableImmediately); + + + +//! \ingroup gpu +typedef struct +{ + NvU32 version; //!< version of this structure + NvU32 width; //!< width of the input texture + NvU32 height; //!< height of the input texture + float* blendingTexture; //!< array of floating values building an intensity RGB texture +} NV_SCANOUT_INTENSITY_DATA_V1; + +//! \ingroup gpu +typedef struct +{ + NvU32 version; //!< version of this structure + NvU32 width; //!< width of the input texture + NvU32 height; //!< height of the input texture + float* blendingTexture; //!< array of floating values building an intensity RGB texture + float* offsetTexture; //!< array of floating values building an offset texture + NvU32 offsetTexChannels; //!< number of channels per pixel in the offset texture +} NV_SCANOUT_INTENSITY_DATA_V2; + +typedef NV_SCANOUT_INTENSITY_DATA_V2 NV_SCANOUT_INTENSITY_DATA; + +//! \ingroup gpu +#define NV_SCANOUT_INTENSITY_DATA_VER1 MAKE_NVAPI_VERSION(NV_SCANOUT_INTENSITY_DATA_V1, 1) +#define NV_SCANOUT_INTENSITY_DATA_VER2 MAKE_NVAPI_VERSION(NV_SCANOUT_INTENSITY_DATA_V2, 2) +#define NV_SCANOUT_INTENSITY_DATA_VER NV_SCANOUT_INTENSITY_DATA_VER2 + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_SetScanoutIntensity +// +//! DESCRIPTION: This API enables and sets up per-pixel intensity feature on the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to apply the intensity control. +//! \param [in] scanoutIntensityData the intensity texture info. +//! \param [out] pbSticky(OUT) indicates whether the settings will be kept over a reboot. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input data. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION NV_SCANOUT_INTENSITY_DATA structure version mismatch. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_SetScanoutIntensity(NvU32 displayId, NV_SCANOUT_INTENSITY_DATA* scanoutIntensityData, int *pbSticky); + + +//! \ingroup gpu +typedef struct _NV_SCANOUT_INTENSITY_STATE_DATA +{ + NvU32 version; //!< version of this structure + NvU32 bEnabled; //!< intensity is enabled or not +} NV_SCANOUT_INTENSITY_STATE_DATA; + +//! \ingroup gpu +#define NV_SCANOUT_INTENSITY_STATE_VER MAKE_NVAPI_VERSION(NV_SCANOUT_INTENSITY_STATE_DATA, 1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_GetScanoutIntensityState +// +//! DESCRIPTION: This API queries current state of the intensity feature on the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to query the configuration. +//! \param [in,out] scanoutIntensityStateData intensity state data. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetScanoutIntensityState(__in NvU32 displayId, __inout NV_SCANOUT_INTENSITY_STATE_DATA* scanoutIntensityStateData); + + +//! \ingroup gpu +typedef enum +{ + NV_GPU_WARPING_VERTICE_FORMAT_TRIANGLESTRIP_XYUVRQ = 0, + NV_GPU_WARPING_VERTICE_FORMAT_TRIANGLES_XYUVRQ = 1, +} NV_GPU_WARPING_VERTICE_FORMAT; + +//! \ingroup gpu +typedef struct +{ + NvU32 version; //!< version of this structure + float* vertices; //!< width of the input texture + NV_GPU_WARPING_VERTICE_FORMAT vertexFormat; //!< format of the input vertices + int numVertices; //!< number of the input vertices + NvSBox* textureRect; //!< rectangle in desktop coordinates describing the source area for the warping +} NV_SCANOUT_WARPING_DATA; + +//! \ingroup gpu +#define NV_SCANOUT_WARPING_VER MAKE_NVAPI_VERSION(NV_SCANOUT_WARPING_DATA, 1) + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_SetScanoutWarping +// +//! DESCRIPTION: This API enables and sets up the warping feature on the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId Combined physical display and GPU identifier of the display to apply the intensity control +//! \param [in] scanoutWarpingData The warping data info +//! \param [out] pbSticky Indicates whether the settings will be kept over a reboot. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input data. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION NV_SCANOUT_WARPING_DATA structure version mismatch. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// + +NVAPI_INTERFACE NvAPI_GPU_SetScanoutWarping(NvU32 displayId, NV_SCANOUT_WARPING_DATA* scanoutWarpingData, int* piMaxNumVertices, int* pbSticky); + + +//! \ingroup gpu +typedef struct _NV_SCANOUT_WARPING_STATE_DATA +{ + NvU32 version; //!< version of this structure + NvU32 bEnabled; //!< warping is enabled or not +} NV_SCANOUT_WARPING_STATE_DATA; + +//! \ingroup gpu +#define NV_SCANOUT_WARPING_STATE_VER MAKE_NVAPI_VERSION(NV_SCANOUT_WARPING_STATE_DATA, 1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_GetScanoutWarpingState +// +//! DESCRIPTION: This API queries current state of the warping feature on the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to query the configuration. +//! \param [in,out] scanoutWarpingStateData warping state data. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetScanoutWarpingState(__in NvU32 displayId, __inout NV_SCANOUT_WARPING_STATE_DATA* scanoutWarpingStateData); + +typedef enum +{ + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_WARPING_RESAMPLING_METHOD = 0 +} NV_GPU_SCANOUT_COMPOSITION_PARAMETER; + +//! This enum defines a collection of possible scanout composition values that can be used to configure +//! possible scanout composition settings. (Currently the only parameter defined is the WARPING_RESAMPLING_METHOD). +typedef enum +{ + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_SET_TO_DEFAULT = 0, // Set parameter to default value. + // WARPING_RESAMPLING_METHOD section: + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BILINEAR = 0x100, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_TRIANGULAR = 0x101, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_BELL_SHAPED = 0x102, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_BSPLINE = 0x103, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_ADAPTIVE_TRIANGULAR = 0x104, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_ADAPTIVE_BELL_SHAPED = 0x105, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE_WARPING_RESAMPLING_METHOD_BICUBIC_ADAPTIVE_BSPLINE = 0x106 +} NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE; + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_SetScanoutCompositionParameter +// +//! DESCRIPTION: This API sets various parameters that configure the scanout composition feature on the specified display. +//! (currently there is only one configurable parameter defined: WARPING_RESAMPLING_METHOD, +//! but this function is designed to support the addition of parameters as needed.) +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId Combined physical display and GPU identifier of the display to apply the intensity control +//! \param [in] parameter The scanout composition parameter to be set +//! \param [in] parameterValue The data to be set for the specified parameter +//! \param [in] pContainer Additional container for data associated with the specified parameter +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input data. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// + +NVAPI_INTERFACE NvAPI_GPU_SetScanoutCompositionParameter(NvU32 displayId, NV_GPU_SCANOUT_COMPOSITION_PARAMETER parameter, + NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE parameterValue, float *pContainer); + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_GetScanoutCompositionParameter +// +//! DESCRIPTION: This API queries current state of one of the various scanout composition parameters on the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to query the configuration. +//! \param [in] parameter scanout composition parameter to by queried. +//! \param [out] parameterData scanout composition parameter data. +//! \param [out] pContainer Additional container for returning data associated with the specified parameter +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetScanoutCompositionParameter(__in NvU32 displayId, __in NV_GPU_SCANOUT_COMPOSITION_PARAMETER parameter, + __out NV_GPU_SCANOUT_COMPOSITION_PARAMETER_VALUE *parameterData, __out float *pContainer); + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_GetScanoutConfiguration +// +//! DESCRIPTION: This API queries the desktop and scanout portion of the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to query the configuration. +//! \param [in,out] desktopRect desktop area of the display in desktop coordinates. +//! \param [in,out] scanoutRect scanout area of the display relative to desktopRect. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid input parameters. +//! \retval ::NVAPI_API_NOT_INITIALIZED NvAPI not initialized. +//! \retval ::NVAPI_NOT_SUPPORTED Interface not supported by the driver used, or only supported on selected GPUs. +//! \retval ::NVAPI_OK Feature enabled. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetScanoutConfiguration(NvU32 displayId, NvSBox* desktopRect, NvSBox* scanoutRect); + + + +//! \ingroup gpu +//! Used in NvAPI_GPU_GetScanoutConfigurationEx(). +typedef struct _NV_SCANOUT_INFORMATION +{ + NvU32 version; //!< Structure version, needs to be initialized with NV_SCANOUT_INFORMATION_VER. + + NvSBox sourceDesktopRect; //!< Operating system display device rect in desktop coordinates displayId is scanning out from. + NvSBox sourceViewportRect; //!< Area inside the sourceDesktopRect which is scanned out to the display. + NvSBox targetViewportRect; //!< Area inside the rect described by targetDisplayWidth/Height sourceViewportRect is scanned out to. + NvU32 targetDisplayWidth; //!< Horizontal size of the active resolution scanned out to the display. + NvU32 targetDisplayHeight; //!< Vertical size of the active resolution scanned out to the display. + NvU32 cloneImportance; //!< If targets are cloned views of the sourceDesktopRect the cloned targets have an importance assigned (0:primary,1 secondary,...). + NV_ROTATE sourceToTargetRotation; //!< Rotation performed between the sourceViewportRect and the targetViewportRect. +} NV_SCANOUT_INFORMATION; + +#define NV_SCANOUT_INFORMATION_VER MAKE_NVAPI_VERSION(NV_SCANOUT_INFORMATION,1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GPU_GetScanoutConfigurationEx +// +//! DESCRIPTION: This API queries the desktop and scanout portion of the specified display. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! \since Release: 331 +//! +//! \param [in] displayId combined physical display and GPU identifier of the display to query the configuration. +//! \param [in,out] pScanoutInformation desktop area to displayId mapping information. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetScanoutConfigurationEx(__in NvU32 displayId, __inout NV_SCANOUT_INFORMATION *pScanoutInformation); + +//! Used in NvAPI_GPU_GetPerfDecreaseInfo. +//! Bit masks for knowing the exact reason for performance decrease +typedef enum _NVAPI_GPU_PERF_DECREASE +{ + NV_GPU_PERF_DECREASE_NONE = 0, //!< No Slowdown detected + NV_GPU_PERF_DECREASE_REASON_THERMAL_PROTECTION = 0x00000001, //!< Thermal slowdown/shutdown/POR thermal protection + NV_GPU_PERF_DECREASE_REASON_POWER_CONTROL = 0x00000002, //!< Power capping / pstate cap + NV_GPU_PERF_DECREASE_REASON_AC_BATT = 0x00000004, //!< AC->BATT event + NV_GPU_PERF_DECREASE_REASON_API_TRIGGERED = 0x00000008, //!< API triggered slowdown + NV_GPU_PERF_DECREASE_REASON_INSUFFICIENT_POWER = 0x00000010, //!< Power connector missing + NV_GPU_PERF_DECREASE_REASON_UNKNOWN = 0x80000000, //!< Unknown reason +} NVAPI_GPU_PERF_DECREASE; + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetPerfDecreaseInfo +// +//! DESCRIPTION: This function retrieves - in NvU32 variable - reasons for the current performance decrease. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! \param [in] hPhysicalGPU (IN) - GPU for which performance decrease is to be evaluated. +//! \param [out] pPerfDecrInfo (OUT) - Pointer to a NvU32 variable containing performance decrease info +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetPerfDecreaseInfo(__in NvPhysicalGpuHandle hPhysicalGpu, __inout NvU32 *pPerfDecrInfo); + +//! \ingroup gpu +typedef enum _NV_GPU_ILLUMINATION_ATTRIB +{ + NV_GPU_IA_LOGO_BRIGHTNESS = 0, + NV_GPU_IA_SLI_BRIGHTNESS = 1, +} NV_GPU_ILLUMINATION_ATTRIB; + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_QueryIlluminationSupport +// +//! \fn NvAPI_GPU_QueryIlluminationSupport(__inout NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM *pIlluminationSupportInfo) +//! DESCRIPTION: This function reports if the specified illumination attribute is supported. +//! +//! \note Only a single GPU can manage an given attribute on a given HW element, +//! regardless of how many are attatched. I.E. only one GPU will be used to control +//! the brightness of the LED on an SLI bridge, regardless of how many are physicaly attached. +//! You should enumerate thru the GPUs with this call to determine which GPU is managing the attribute. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! \since Version: 300.05 +//! +//! \param [in] hPhysicalGpu Physical GPU handle +//! \param Attribute An enumeration value specifying the Illumination attribute to be querried +//! \param [out] pSupported A boolean indicating if the attribute is supported. +//! +//! \return See \ref nvapistatus for the list of possible return values. +// +////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +typedef struct _NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_V1 { + + // IN + NvU32 version; //!< Version of this structure + NvPhysicalGpuHandle hPhysicalGpu; //!< The handle of the GPU that you are checking for the specified attribute. + //!< note that this is the GPU that is managing the attribute. + //!< Only a single GPU can manage an given attribute on a given HW element, + //!< regardless of how many are attatched. + //!< I.E. only one GPU will be used to control the brightness of the LED on an SLI bridge, + //!< regardless of how many are physicaly attached. + //!< You enumerate thru the GPUs with this call to determine which GPU is managing the attribute. + NV_GPU_ILLUMINATION_ATTRIB Attribute; //!< An enumeration value specifying the Illumination attribute to be querried. + //!< refer to enum \ref NV_GPU_ILLUMINATION_ATTRIB. + + // OUT + NvU32 bSupported; //!< A boolean indicating if the attribute is supported. + +} NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_V1; + +//! \ingroup gpu +typedef NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_V1 NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM; +//! \ingroup gpu +#define NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_VER_1 MAKE_NVAPI_VERSION(NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_V1,1) +//! \ingroup gpu +#define NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_VER NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM_VER_1 + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_QueryIlluminationSupport(__inout NV_GPU_QUERY_ILLUMINATION_SUPPORT_PARM *pIlluminationSupportInfo); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetIllumination +// +//! \fn NvAPI_GPU_GetIllumination(NV_GPU_GET_ILLUMINATION_PARM *pIlluminationInfo) +//! DESCRIPTION: This function reports value of the specified illumination attribute. +//! +//! \note Only a single GPU can manage an given attribute on a given HW element, +//! regardless of how many are attatched. I.E. only one GPU will be used to control +//! the brightness of the LED on an SLI bridge, regardless of how many are physicaly attached. +//! You should enumerate thru the GPUs with the \ref NvAPI_GPU_QueryIlluminationSupport call to +//! determine which GPU is managing the attribute. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! \since Version: 300.05 +//! +//! \param [in] hPhysicalGpu Physical GPU handle +//! \param Attribute An enumeration value specifying the Illumination attribute to be querried +//! \param [out] Value A DWORD containing the current value for the specified attribute. +//! This is specified as a percentage of the full range of the attribute +//! (0-100; 0 = off, 100 = full brightness) +//! +//! \return See \ref nvapistatus for the list of possible return values. Return values of special interest are: +//! NVAPI_INVALID_ARGUMENT The specified attibute is not known to the driver. +//! NVAPI_NOT_SUPPORTED: The specified attribute is not supported on the specified GPU +// +////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +typedef struct _NV_GPU_GET_ILLUMINATION_PARM_V1 { + + // IN + NvU32 version; //!< Version of this structure + NvPhysicalGpuHandle hPhysicalGpu; //!< The handle of the GPU that you are checking for the specified attribute. + //!< Note that this is the GPU that is managing the attribute. + //!< Only a single GPU can manage an given attribute on a given HW element, + //!< regardless of how many are attatched. + //!< I.E. only one GPU will be used to control the brightness of the LED on an SLI bridge, + //!< regardless of how many are physicaly attached. + //!< You enumerate thru the GPUs with this call to determine which GPU is managing the attribute. + NV_GPU_ILLUMINATION_ATTRIB Attribute; //!< An enumeration value specifying the Illumination attribute to be querried. + //!< refer to enum \ref NV_GPU_ILLUMINATION_ATTRIB. + + // OUT + NvU32 Value; //!< A DWORD that will contain the current value of the specified attribute. + //! This is specified as a percentage of the full range of the attribute + //! (0-100; 0 = off, 100 = full brightness) + +} NV_GPU_GET_ILLUMINATION_PARM_V1; + +//! \ingroup gpu +typedef NV_GPU_GET_ILLUMINATION_PARM_V1 NV_GPU_GET_ILLUMINATION_PARM; +//! \ingroup gpu +#define NV_GPU_GET_ILLUMINATION_PARM_VER_1 MAKE_NVAPI_VERSION(NV_GPU_GET_ILLUMINATION_PARM_V1,1) +//! \ingroup gpu +#define NV_GPU_GET_ILLUMINATION_PARM_VER NV_GPU_GET_ILLUMINATION_PARM_VER_1 + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_GetIllumination(NV_GPU_GET_ILLUMINATION_PARM *pIlluminationInfo); + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_SetIllumination +// +//! \fn NvAPI_GPU_SetIllumination(NV_GPU_SET_ILLUMINATION_PARM *pIlluminationInfo) +//! DESCRIPTION: This function sets the value of the specified illumination attribute. +//! +//! \note Only a single GPU can manage an given attribute on a given HW element, +//! regardless of how many are attatched. I.E. only one GPU will be used to control +//! the brightness of the LED on an SLI bridge, regardless of how many are physicaly attached. +//! You should enumerate thru the GPUs with the \ref NvAPI_GPU_QueryIlluminationSupport call to +//! determine which GPU is managing the attribute. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! \since Version: 300.05 +//! +//! \param [in] hPhysicalGpu Physical GPU handle +//! \param Attribute An enumeration value specifying the Illumination attribute to be set +//! \param Value The new value for the specified attribute. +//! This should be specified as a percentage of the full range of the attribute +//! (0-100; 0 = off, 100 = full brightness) +//! If a value is specified outside this range, NVAPI_INVALID_ARGUMENT will be returned. +//! +//! \return See \ref nvapistatus for the list of possible return values. Return values of special interest are: +//! NVAPI_INVALID_ARGUMENT The specified attibute is not known to the driver, or the specified value is out of range. +//! NVAPI_NOT_SUPPORTED The specified attribute is not supported on the specified GPU. +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup gpu +typedef struct _NV_GPU_SET_ILLUMINATION_PARM_V1 { + + // IN + NvU32 version; //!< Version of this structure + NvPhysicalGpuHandle hPhysicalGpu; //!< The handle of the GPU that you are checking for the specified attribute. + //!< Note that this is the GPU that is managing the attribute. + //!< Only a single GPU can manage an given attribute on a given HW element, + //!< regardless of how many are attatched. + //!< I.E. only one GPU will be used to control the brightness of the LED on an SLI bridge, + //!< regardless of how many are physicaly attached. + //!< You enumerate thru the GPUs with this call to determine which GPU is managing the attribute. + NV_GPU_ILLUMINATION_ATTRIB Attribute; //!< An enumeration value specifying the Illumination attribute to be querried. + //!< refer to enum \ref NV_GPU_ILLUMINATION_ATTRIB. + NvU32 Value; //!< A DWORD containing the new value for the specified attribute. + //!< This should be specified as a percentage of the full range of the attribute + //!< (0-100; 0 = off, 100 = full brightness) + //!< If a value is specified outside this range, NVAPI_INVALID_ARGUMENT will be returned. + + // OUT + +} NV_GPU_SET_ILLUMINATION_PARM_V1; + +//! \ingroup gpu +typedef NV_GPU_SET_ILLUMINATION_PARM_V1 NV_GPU_SET_ILLUMINATION_PARM; +//! \ingroup gpu +#define NV_GPU_SET_ILLUMINATION_PARM_VER_1 MAKE_NVAPI_VERSION(NV_GPU_SET_ILLUMINATION_PARM_V1,1) +//! \ingroup gpu +#define NV_GPU_SET_ILLUMINATION_PARM_VER NV_GPU_SET_ILLUMINATION_PARM_VER_1 + +//! \ingroup gpu +NVAPI_INTERFACE NvAPI_GPU_SetIllumination(NV_GPU_SET_ILLUMINATION_PARM *pIlluminationInfo); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnumNvidiaDisplayHandle +// +//! This function returns the handle of the NVIDIA display specified by the enum +//! index (thisEnum). The client should keep enumerating until it +//! returns NVAPI_END_ENUMERATION. +//! +//! Note: Display handles can get invalidated on a modeset, so the calling applications need to +//! renum the handles after every modeset. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \param [in] thisEnum The index of the NVIDIA display. +//! \param [out] pNvDispHandle Pointer to the NVIDIA display handle. +//! +//! \retval NVAPI_INVALID_ARGUMENT Either the handle pointer is NULL or enum index too big +//! \retval NVAPI_OK Return a valid NvDisplayHandle based on the enum index +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device found in the system +//! \retval NVAPI_END_ENUMERATION No more display device to enumerate +//! \ingroup disphandle +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnumNvidiaDisplayHandle(NvU32 thisEnum, NvDisplayHandle *pNvDispHandle); + + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnumNvidiaUnAttachedDisplayHandle +// +//! This function returns the handle of the NVIDIA unattached display specified by the enum +//! index (thisEnum). The client should keep enumerating until it +//! returns error. +//! Note: Display handles can get invalidated on a modeset, so the calling applications need to +//! renum the handles after every modeset. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \param [in] thisEnum The index of the NVIDIA display. +//! \param [out] pNvUnAttachedDispHandle Pointer to the NVIDIA display handle of the unattached display. +//! +//! \retval NVAPI_INVALID_ARGUMENT Either the handle pointer is NULL or enum index too big +//! \retval NVAPI_OK Return a valid NvDisplayHandle based on the enum index +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device found in the system +//! \retval NVAPI_END_ENUMERATION No more display device to enumerate. +//! \ingroup disphandle +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnumNvidiaUnAttachedDisplayHandle(NvU32 thisEnum, NvUnAttachedDisplayHandle *pNvUnAttachedDispHandle); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_CreateDisplayFromUnAttachedDisplay +// +//! This function converts the unattached display handle to an active attached display handle. +//! +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT hNvUnAttachedDisp is not valid or pNvDisplay is NULL. +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_CreateDisplayFromUnAttachedDisplay(NvUnAttachedDisplayHandle hNvUnAttachedDisp, NvDisplayHandle *pNvDisplay); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetAssociatedNVidiaDisplayHandle +// +//! This function returns the handle of the NVIDIA display that is associated +//! with the given display "name" (such as "\\.\DISPLAY1"). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT Either argument is NULL +//! \retval NVAPI_OK *pNvDispHandle is now valid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device maps to that display name +//! \ingroup disphandle +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetAssociatedNvidiaDisplayHandle(const char *szDisplayName, NvDisplayHandle *pNvDispHandle); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DISP_GetAssociatedUnAttachedNvidiaDisplayHandle +// +//! DESCRIPTION: This function returns the handle of an unattached NVIDIA display that is +//! associated with the given display name (such as "\\DISPLAY1"). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \retval ::NVAPI_INVALID_ARGUMENT Either argument is NULL. +//! \retval ::NVAPI_OK *pNvUnAttachedDispHandle is now valid. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device maps to that display name. +//! +//! \ingroup disphandle +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetAssociatedUnAttachedNvidiaDisplayHandle(const char *szDisplayName, NvUnAttachedDisplayHandle *pNvUnAttachedDispHandle); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetAssociatedNVidiaDisplayName +// +//! For a given NVIDIA display handle, this function returns a string (such as "\\.\DISPLAY1") to identify the display. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT Either argument is NULL +//! \retval NVAPI_OK *pNvDispHandle is now valid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device maps to that display name +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetAssociatedNvidiaDisplayName(NvDisplayHandle NvDispHandle, NvAPI_ShortString szDisplayName); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetUnAttachedAssociatedDisplayName +// +//! This function returns the display name given, for example, "\\DISPLAY1", using the unattached NVIDIA display handle +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 95 +//! +//! \retval NVAPI_INVALID_ARGUMENT Either argument is NULL +//! \retval NVAPI_OK *pNvDispHandle is now valid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA device maps to that display name +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetUnAttachedAssociatedDisplayName(NvUnAttachedDisplayHandle hNvUnAttachedDisp, NvAPI_ShortString szDisplayName); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnableHWCursor +// +//! This function enables hardware cursor support +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! +//! \since Release: 80 +//! +//! \return NVAPI_ERROR or NVAPI_OK +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnableHWCursor(NvDisplayHandle hNvDisplay); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DisableHWCursor +// +//! This function disables hardware cursor support +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 80 +//! +//! \return NVAPI_ERROR or NVAPI_OK +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DisableHWCursor(NvDisplayHandle hNvDisplay); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetVBlankCounter +// +//! This function gets the V-blank counter +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 80 +//! +//! \return NVAPI_ERROR or NVAPI_OK +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetVBlankCounter(NvDisplayHandle hNvDisplay, NvU32 *pCounter); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_SetRefreshRateOverride +// +//! This function overrides the refresh rate on the given display/outputsMask. +//! The new refresh rate can be applied right away in this API call or deferred to be applied with the +//! next OS modeset. The override is good for only one modeset (regardless whether it's deferred or immediate). +//! +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 80 +//! +//! \param [in] hNvDisplay The NVIDIA display handle. It can be NVAPI_DEFAULT_HANDLE or a handle +//! enumerated from NvAPI_EnumNVidiaDisplayHandle(). +//! \param [in] outputsMask A set of bits that identify all target outputs which are associated with the NVIDIA +//! display handle to apply the refresh rate override. When SLI is enabled, the +//! outputsMask only applies to the GPU that is driving the display output. +//! \param [in] refreshRate The override value. "0.0" means cancel the override. +//! \param [in] bSetDeferred +//! - "0": Apply the refresh rate override immediately in this API call.\p +//! - "1": Apply refresh rate at the next OS modeset. +//! +//! \retval NVAPI_INVALID_ARGUMENT hNvDisplay or outputsMask is invalid +//! \retval NVAPI_OK The refresh rate override is correct set +//! \retval NVAPI_ERROR The operation failed +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SetRefreshRateOverride(NvDisplayHandle hNvDisplay, NvU32 outputsMask, float refreshRate, NvU32 bSetDeferred); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetAssociatedDisplayOutputId +// +//! This function gets the active outputId associated with the display handle. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 90 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. It can be NVAPI_DEFAULT_HANDLE or a handle enumerated from NvAPI_EnumNVidiaDisplayHandle(). +//! \param [out] outputId The active display output ID associated with the selected display handle hNvDisplay. +//! The outputid will have only one bit set. In the case of Clone or Span mode, this will indicate the +//! display outputId of the primary display that the GPU is driving. See \ref handles. +//! +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_EXPECTED_DISPLAY_HANDLE hNvDisplay is not a valid display handle. +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetAssociatedDisplayOutputId(NvDisplayHandle hNvDisplay, NvU32 *pOutputId); + + +//! \ingroup dispcontrol +//! Used in NvAPI_GetDisplayPortInfo(). +typedef struct _NV_DISPLAY_PORT_INFO_V1 +{ + NvU32 version; //!< Structure version + NvU32 dpcd_ver; //!< DPCD version of the monitor + NV_DP_LINK_RATE maxLinkRate; //!< Maximum supported link rate + NV_DP_LANE_COUNT maxLaneCount; //!< Maximum supported lane count + NV_DP_LINK_RATE curLinkRate; //!< Current link rate + NV_DP_LANE_COUNT curLaneCount; //!< Current lane count + NV_DP_COLOR_FORMAT colorFormat; //!< Current color format + NV_DP_DYNAMIC_RANGE dynamicRange; //!< Dynamic range + NV_DP_COLORIMETRY colorimetry; //!< Ignored in RGB space + NV_DP_BPC bpc; //!< Current bit-per-component + NvU32 isDp : 1; //!< If the monitor is driven by a DisplayPort + NvU32 isInternalDp : 1; //!< If the monitor is driven by an NV Dp transmitter + NvU32 isColorCtrlSupported : 1; //!< If the color format change is supported + NvU32 is6BPCSupported : 1; //!< If 6 bpc is supported + NvU32 is8BPCSupported : 1; //!< If 8 bpc is supported + NvU32 is10BPCSupported : 1; //!< If 10 bpc is supported + NvU32 is12BPCSupported : 1; //!< If 12 bpc is supported + NvU32 is16BPCSupported : 1; //!< If 16 bpc is supported + NvU32 isYCrCb422Supported : 1; //!< If YCrCb422 is supported + NvU32 isYCrCb444Supported : 1; //!< If YCrCb444 is supported + NvU32 isRgb444SupportedOnCurrentMode : 1; //!< If Rgb444 is supported on the current mode + NvU32 isYCbCr444SupportedOnCurrentMode : 1; //!< If YCbCr444 is supported on the current mode + NvU32 isYCbCr422SupportedOnCurrentMode : 1; //!< If YCbCr422 is support on the current mode + NvU32 is6BPCSupportedOnCurrentMode : 1; // if 6 bpc is supported On Current Mode + NvU32 is8BPCSupportedOnCurrentMode : 1; // if 8 bpc is supported On Current Mode + NvU32 is10BPCSupportedOnCurrentMode : 1; // if 10 bpc is supported On Current Mode + NvU32 is12BPCSupportedOnCurrentMode : 1; // if 12 bpc is supported On Current Mode + NvU32 is16BPCSupportedOnCurrentMode : 1; // if 16 bpc is supported On Current Mode + NvU32 reserved : 14; //!< reserved + } NV_DISPLAY_PORT_INFO_V1; + + typedef NV_DISPLAY_PORT_INFO_V1 NV_DISPLAY_PORT_INFO; + +//! Macro for constructing the version field of NV_DISPLAY_PORT_INFO. +#define NV_DISPLAY_PORT_INFO_VER1 MAKE_NVAPI_VERSION(NV_DISPLAY_PORT_INFO,1) +#define NV_DISPLAY_PORT_INFO_VER2 MAKE_NVAPI_VERSION(NV_DISPLAY_PORT_INFO,2) +#define NV_DISPLAY_PORT_INFO_VER NV_DISPLAY_PORT_INFO_VER2 + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GetDisplayPortInfo +// +//! \fn NvAPI_GetDisplayPortInfo(__in_opt NvDisplayHandle hNvDisplay, __in NvU32 outputId, __inout NV_DISPLAY_PORT_INFO *pInfo) +//! DESCRIPTION: This function returns the current DisplayPort-related information on the specified device (monitor). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 165 +//! +//! \param [in] hvDisplay NVIDIA Display selection. It can be NVAPI_DEFAULT_HANDLE or a handle enumerated from NvAPI_EnumNVidiaDisplayHandle(). +//! This parameter is ignored when the outputId is a NvAPI displayId. +//! \param [in] outputId This can either be the connection bit mask or the NvAPI displayId. When the legacy connection bit mask is passed, +//! it should have exactly 1 bit set to indicate a single display. If it's "0" then the default outputId from +//! NvAPI_GetAssociatedDisplayOutputId() will be used. See \ref handles. +//! \param [out] pInfo The DisplayPort information +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +// +/////////////////////////////////////////////////////////////////////////////// +//! \ingroup dispcontrol +NVAPI_INTERFACE NvAPI_GetDisplayPortInfo(__in_opt NvDisplayHandle hNvDisplay, __in NvU32 outputId, __inout NV_DISPLAY_PORT_INFO *pInfo); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_SetDisplayPort +// +//! \fn NvAPI_SetDisplayPort(NvDisplayHandle hNvDisplay, NvU32 outputId, NV_DISPLAY_PORT_CONFIG *pCfg) +//! DESCRIPTION: This function sets up DisplayPort-related configurations. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 165 +//! +//! \param [in] hNvDisplay NVIDIA display handle. It can be NVAPI_DEFAULT_HANDLE or a handle enumerated from +//! NvAPI_EnumNVidiaDisplayHandle(). +//! \param [in] outputId This display output ID, when it's "0" it means the default outputId generated from the return of +//! NvAPI_GetAssociatedDisplayOutputId(). See \ref handles. +//! \param [in] pCfg The display port config structure. If pCfg is NULL, it means to use the driver's default value to setup. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup dispcontrol +//! DisplayPort configuration settings - used in NvAPI_SetDisplayPort(). +typedef struct +{ + NvU32 version; //!< Structure version - 2 is the latest + NV_DP_LINK_RATE linkRate; //!< Link rate + NV_DP_LANE_COUNT laneCount; //!< Lane count + NV_DP_COLOR_FORMAT colorFormat; //!< Color format to set + NV_DP_DYNAMIC_RANGE dynamicRange; //!< Dynamic range + NV_DP_COLORIMETRY colorimetry; //!< Ignored in RGB space + NV_DP_BPC bpc; //!< Bit-per-component + NvU32 isHPD : 1; //!< If the control panel is making this call due to HPD + NvU32 isSetDeferred : 1; //!< Requires an OS modeset to finalize the setup if set + NvU32 isChromaLpfOff : 1; //!< Force the chroma low_pass_filter to be off + NvU32 isDitherOff : 1; //!< Force to turn off dither + NvU32 testLinkTrain : 1; //!< If testing mode, skip validation + NvU32 testColorChange : 1; //!< If testing mode, skip validation + +} NV_DISPLAY_PORT_CONFIG; + +//! \addtogroup dispcontrol +//! @{ +//! Macro for constructing the version field of NV_DISPLAY_PORT_CONFIG +#define NV_DISPLAY_PORT_CONFIG_VER MAKE_NVAPI_VERSION(NV_DISPLAY_PORT_CONFIG,2) +//! Macro for constructing the version field of NV_DISPLAY_PORT_CONFIG +#define NV_DISPLAY_PORT_CONFIG_VER_1 MAKE_NVAPI_VERSION(NV_DISPLAY_PORT_CONFIG,1) +//! Macro for constructing the version field of NV_DISPLAY_PORT_CONFIG +#define NV_DISPLAY_PORT_CONFIG_VER_2 MAKE_NVAPI_VERSION(NV_DISPLAY_PORT_CONFIG,2) +//! @} + + +//! \ingroup dispcontrol +NVAPI_INTERFACE NvAPI_SetDisplayPort(NvDisplayHandle hNvDisplay, NvU32 outputId, NV_DISPLAY_PORT_CONFIG *pCfg); + + + + +//! \ingroup dispcontrol +//! Used in NvAPI_GetHDMISupportInfo(). +typedef struct _NV_HDMI_SUPPORT_INFO_V1 +{ + NvU32 version; //!< Structure version + + NvU32 isGpuHDMICapable : 1; //!< If the GPU can handle HDMI + NvU32 isMonUnderscanCapable : 1; //!< If the monitor supports underscan + NvU32 isMonBasicAudioCapable : 1; //!< If the monitor supports basic audio + NvU32 isMonYCbCr444Capable : 1; //!< If YCbCr 4:4:4 is supported + NvU32 isMonYCbCr422Capable : 1; //!< If YCbCr 4:2:2 is supported + NvU32 isMonxvYCC601Capable : 1; //!< If xvYCC 601 is supported + NvU32 isMonxvYCC709Capable : 1; //!< If xvYCC 709 is supported + NvU32 isMonHDMI : 1; //!< If the monitor is HDMI (with IEEE's HDMI registry ID) + NvU32 reserved : 24; //!< Reserved. + + NvU32 EDID861ExtRev; //!< Revision number of the EDID 861 extension + } NV_HDMI_SUPPORT_INFO_V1; + +typedef struct _NV_HDMI_SUPPORT_INFO_V2 +{ + NvU32 version; //!< Structure version + + NvU32 isGpuHDMICapable : 1; //!< If the GPU can handle HDMI + NvU32 isMonUnderscanCapable : 1; //!< If the monitor supports underscan + NvU32 isMonBasicAudioCapable : 1; //!< If the monitor supports basic audio + NvU32 isMonYCbCr444Capable : 1; //!< If YCbCr 4:4:4 is supported + NvU32 isMonYCbCr422Capable : 1; //!< If YCbCr 4:2:2 is supported + NvU32 isMonxvYCC601Capable : 1; //!< If xvYCC extended colorimetry 601 is supported + NvU32 isMonxvYCC709Capable : 1; //!< If xvYCC extended colorimetry 709 is supported + NvU32 isMonHDMI : 1; //!< If the monitor is HDMI (with IEEE's HDMI registry ID) + NvU32 isMonsYCC601Capable : 1; //!< if sYCC601 extended colorimetry is supported + NvU32 isMonAdobeYCC601Capable : 1; //!< if AdobeYCC601 extended colorimetry is supported + NvU32 isMonAdobeRGBCapable : 1; //!< if AdobeRGB extended colorimetry is supported + NvU32 reserved : 21; //!< Reserved. + + NvU32 EDID861ExtRev; //!< Revision number of the EDID 861 extension + } NV_HDMI_SUPPORT_INFO_V2; + +#define NV_HDMI_SUPPORT_INFO_VER1 MAKE_NVAPI_VERSION(NV_HDMI_SUPPORT_INFO_V1, 1) +#define NV_HDMI_SUPPORT_INFO_VER2 MAKE_NVAPI_VERSION(NV_HDMI_SUPPORT_INFO_V2, 2) + + + +#ifndef NV_HDMI_SUPPORT_INFO_VER + +typedef NV_HDMI_SUPPORT_INFO_V2 NV_HDMI_SUPPORT_INFO; +#define NV_HDMI_SUPPORT_INFO_VER NV_HDMI_SUPPORT_INFO_VER2 + +#endif + + +//! SUPPORTED OS: Windows Vista and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GetHDMISupportInfo +// +//! \fn NvAPI_GetHDMISupportInfo(__in_opt NvDisplayHandle hNvDisplay, __in NvU32 outputId, __inout NV_HDMI_SUPPORT_INFO *pInfo) +//! This API returns the current infoframe data on the specified device(monitor). +//! +//! \since Release: 95 +//! +//! \param [in] hvDisplay NVIDIA Display selection. It can be NVAPI_DEFAULT_HANDLE or a handle enumerated from NvAPI_EnumNVidiaDisplayHandle(). +//! This parameter is ignored when the outputId is a NvAPI displayId. +//! \param [in] outputId This can either be the connection bit mask or the NvAPI displayId. When the legacy connection bit mask is passed, +//! it should have exactly 1 bit set to indicate a single display. If it's "0" then the default outputId from +//! NvAPI_GetAssociatedDisplayOutputId() will be used. See \ref handles. +//! \param [out] pInfo The monitor and GPU's HDMI support info +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup dispcontrol +NVAPI_INTERFACE NvAPI_GetHDMISupportInfo(__in_opt NvDisplayHandle hNvDisplay, __in NvU32 outputId, __inout NV_HDMI_SUPPORT_INFO *pInfo); + + +//! \ingroup dispcontrol + +typedef enum +{ + NV_INFOFRAME_CMD_GET_DEFAULT = 0, //!< Returns the fields in the infoframe with values set by the manufacturer - NVIDIA/OEM. + NV_INFOFRAME_CMD_RESET, //!< Sets the fields in the infoframe to auto, and infoframe to the default infoframe for use in a set. + NV_INFOFRAME_CMD_GET, //!< Get the current infoframe state. + NV_INFOFRAME_CMD_SET, //!< Set the current infoframe state (flushed to the monitor), the values are one time and do not persist. + NV_INFOFRAME_CMD_GET_OVERRIDE, //!< Get the override infoframe state, non-override fields will be set to value = AUTO, overridden fields will have the current override values. + NV_INFOFRAME_CMD_SET_OVERRIDE, //!< Set the override infoframe state, non-override fields will be set to value = AUTO, other values indicate override; persist across modeset/reboot + NV_INFOFRAME_CMD_GET_PROPERTY, //!< get properties associated with infoframe (each of the infoframe type will have properties) + NV_INFOFRAME_CMD_SET_PROPERTY, //!< set properties associated with infoframe +} NV_INFOFRAME_CMD; + + +typedef enum +{ + NV_INFOFRAME_PROPERTY_MODE_AUTO = 0, //!< Driver determines whether to send infoframes. + NV_INFOFRAME_PROPERTY_MODE_ENABLE, //!< Driver always sends infoframe. + NV_INFOFRAME_PROPERTY_MODE_DISABLE, //!< Driver never sends infoframe. + NV_INFOFRAME_PROPERTY_MODE_ALLOW_OVERRIDE, //!< Driver only sends infoframe when client requests it via infoframe escape call. +} NV_INFOFRAME_PROPERTY_MODE; + + +//! Returns whether the current monitor is in blacklist or force this monitor to be in blacklist. +typedef enum +{ + NV_INFOFRAME_PROPERTY_BLACKLIST_FALSE = 0, + NV_INFOFRAME_PROPERTY_BLACKLIST_TRUE, +} NV_INFOFRAME_PROPERTY_BLACKLIST; + +typedef struct +{ + NvU32 mode : 4; + NvU32 blackList : 2; + NvU32 reserved : 10; + NvU32 version : 8; + NvU32 length : 8; +} NV_INFOFRAME_PROPERTY; + +//! Byte1 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO_NODATA = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO_OVERSCAN, + NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO_UNDERSCAN, + NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO_FUTURE, + NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_SCANINFO; + + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA_NOT_PRESENT = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA_VERTICAL_PRESENT, + NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA_HORIZONTAL_PRESENT, + NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA_BOTH_PRESENT, + NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_BARDATA; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_AFI_ABSENT = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_AFI_PRESENT, + NV_INFOFRAME_FIELD_VALUE_AVI_AFI_AUTO = 3 +} NV_INFOFRAME_FIELD_VALUE_AVI_ACTIVEFORMATINFO; + + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT_RGB = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT_YCbCr422, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT_YCbCr444, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT_FUTURE, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_COLORFORMAT; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_F17_FALSE = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_F17_TRUE, + NV_INFOFRAME_FIELD_VALUE_AVI_F17_AUTO = 3 +} NV_INFOFRAME_FIELD_VALUE_AVI_F17; + +//! Byte2 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_NO_AFD = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE01, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE02, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE03, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_LETTERBOX_GT16x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE05, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE06, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE07, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_EQUAL_CODEDFRAME = 8, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_CENTER_4x3, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_CENTER_16x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_CENTER_14x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_RESERVE12, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_4x3_ON_14x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_16x9_ON_14x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_16x9_ON_4x3, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION_AUTO = 31, +} NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOACTIVEPORTION; + + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME_NO_DATA = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME_4x3, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME_16x9, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME_FUTURE, + NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_ASPECTRATIOCODEDFRAME; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY_NO_DATA = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY_SMPTE_170M, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY_ITUR_BT709, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY_USE_EXTENDED_COLORIMETRY, + NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_COLORIMETRY; + +//! Byte 3 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING_NO_DATA = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING_HORIZONTAL, + NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING_VERTICAL, + NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING_BOTH, + NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_NONUNIFORMPICTURESCALING; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION_DEFAULT = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION_LIMITED_RANGE, + NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION_FULL_RANGE, + NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION_RESERVED, + NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_RGBQUANTIZATION; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_XVYCC601 = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_XVYCC709, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_SYCC601, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_ADOBEYCC601, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_ADOBERGB, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_RESERVED05, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_RESERVED06, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_RESERVED07, + NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY_AUTO = 15 +} NV_INFOFRAME_FIELD_VALUE_AVI_EXTENDEDCOLORIMETRY; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_ITC_VIDEO_CONTENT = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_ITC_ITCONTENT, + NV_INFOFRAME_FIELD_VALUE_AVI_ITC_AUTO = 3 +} NV_INFOFRAME_FIELD_VALUE_AVI_ITC; + +//! Byte 4 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_NONE = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X02, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X03, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X04, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X05, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X06, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X07, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X08, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X09, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_X10, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED10, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED11, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED12, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED13, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED14, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_RESERVED15, + NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION_AUTO = 31 +} NV_INFOFRAME_FIELD_VALUE_AVI_PIXELREPETITION; + + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE_GRAPHICS = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE_PHOTO, + NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE_CINEMA, + NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE_GAME, + NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_CONTENTTYPE; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION_LIMITED_RANGE = 0, + NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION_FULL_RANGE, + NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION_RESERVED02, + NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION_RESERVED03, + NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AVI_YCCQUANTIZATION; + +//! Adding an Auto bit to each field +typedef struct +{ + NvU32 vic : 8; + NvU32 pixelRepeat : 5; + NvU32 colorSpace : 3; + NvU32 colorimetry : 3; + NvU32 extendedColorimetry : 4; + NvU32 rgbQuantizationRange : 3; + NvU32 yccQuantizationRange : 3; + NvU32 itContent : 2; + NvU32 contentTypes : 3; + NvU32 scanInfo : 3; + NvU32 activeFormatInfoPresent : 2; + NvU32 activeFormatAspectRatio : 5; + NvU32 picAspectRatio : 3; + NvU32 nonuniformScaling : 3; + NvU32 barInfo : 3; + NvU32 top_bar : 17; + NvU32 bottom_bar : 17; + NvU32 left_bar : 17; + NvU32 right_bar : 17; + NvU32 Future17 : 2; + NvU32 Future47 : 2; +} NV_INFOFRAME_VIDEO; + +//! Byte 1 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_IN_HEADER = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_2, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_3, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_4, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_5, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_6, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_7, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_8, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT_AUTO = 15 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELCOUNT; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_IN_HEADER = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_PCM, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_AC3, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_MPEG1, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_MP3, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_MPEG2, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_AACLC, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_DTS, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_ATRAC, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_DSD, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_EAC3, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_DTSHD, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_MLP, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_DST, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_WMAPRO, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_USE_CODING_EXTENSION_TYPE, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE_AUTO = 31 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGTYPE; + +//! Byte 2 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE_IN_HEADER = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE_16BITS, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE_20BITS, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE_24BITS, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLESIZE; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_IN_HEADER = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_32000HZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_44100HZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_48000HZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_88200KHZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_96000KHZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_176400KHZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_192000KHZ, + NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY_AUTO = 15 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_SAMPLEFREQUENCY; + + + +//! Byte 3 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_USE_CODING_TYPE = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_HEAAC, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_HEAACV2, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_MPEGSURROUND, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE04, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE05, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE06, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE07, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE08, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE09, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE10, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE11, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE12, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE13, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE14, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE15, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE16, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE17, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE18, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE19, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE20, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE21, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE22, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE23, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE24, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE25, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE26, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE27, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE28, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE29, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE30, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_RESERVE31, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE_AUTO = 63 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_CODINGEXTENSIONTYPE; + + +//! Byte 4 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_X_X_X_FR_FL =0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_X_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_X_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_X_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_RC_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_RC_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_RC_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_X_RC_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_X_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_RC_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_RC_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_RC_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_RC_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_RRC_RLC_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_RRC_RLC_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_RRC_RLC_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_RRC_RLC_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_X_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_X_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_X_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_X_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_RC_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_RC_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_RC_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_X_RC_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRC_FLC_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_FCH_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_X_FCH_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_X_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_X_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRH_FLH_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRH_FLH_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRW_FLW_RR_RL_X_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRW_FLW_RR_RL_X_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_RC_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_RC_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FCH_RC_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FCH_RC_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_FCH_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_TC_FCH_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRH_FLH_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRH_FLH_RR_RL_FC_LFE_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRW_FLW_RR_RL_FC_X_FR_FL, + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_FRW_FLW_RR_RL_FC_LFE_FR_FL = 0X31, + // all other values should default to auto + NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION_AUTO = 0x1FF +} NV_INFOFRAME_FIELD_VALUE_AUDIO_CHANNELALLOCATION; + +//! Byte 5 related +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL_NO_DATA = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL_0DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL_PLUS10DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL_RESERVED03, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL_AUTO = 7 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_LFEPLAYBACKLEVEL; + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_0DB = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_1DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_2DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_3DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_4DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_5DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_6DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_7DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_8DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_9DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_10DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_11DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_12DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_13DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_14DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_15DB, + NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES_AUTO = 31 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_LEVELSHIFTVALUES; + + +typedef enum +{ + NV_INFOFRAME_FIELD_VALUE_AUDIO_DOWNMIX_PERMITTED = 0, + NV_INFOFRAME_FIELD_VALUE_AUDIO_DOWNMIX_PROHIBITED, + NV_INFOFRAME_FIELD_VALUE_AUDIO_DOWNMIX_AUTO = 3 +} NV_INFOFRAME_FIELD_VALUE_AUDIO_DOWNMIX; + +typedef struct +{ + NvU32 codingType : 5; + NvU32 codingExtensionType : 6; + NvU32 sampleSize : 3; + NvU32 sampleRate : 4; + NvU32 channelCount : 4; + NvU32 speakerPlacement : 9; + NvU32 downmixInhibit : 2; + NvU32 lfePlaybackLevel : 3; + NvU32 levelShift : 5; + NvU32 Future12 : 2; + NvU32 Future2x : 4; + NvU32 Future3x : 4; + NvU32 Future52 : 2; + NvU32 Future6 : 9; + NvU32 Future7 : 9; + NvU32 Future8 : 9; + NvU32 Future9 : 9; + NvU32 Future10 : 9; +} NV_INFOFRAME_AUDIO; + +typedef struct +{ + NvU32 version; //!< version of this structure + NvU16 size; //!< size of this structure + NvU8 cmd; //!< The actions to perform from NV_INFOFRAME_CMD + NvU8 type; //!< type of infoframe + + union + { + NV_INFOFRAME_PROPERTY property; //!< This is NVIDIA-specific and corresponds to the property cmds and associated infoframe. + NV_INFOFRAME_AUDIO audio; + NV_INFOFRAME_VIDEO video; + } infoframe; +} NV_INFOFRAME_DATA; + +//! Macro for constructing the version field of ::NV_INFOFRAME_DATA +#define NV_INFOFRAME_DATA_VER MAKE_NVAPI_VERSION(NV_INFOFRAME_DATA,1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_Disp_InfoFrameControl +// +//! DESCRIPTION: This API controls the InfoFrame values. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] displayId Monitor Identifier +//! \param [in,out] pInfoframeData Contains data corresponding to InfoFrame +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Disp_InfoFrameControl(__in NvU32 displayId, __inout NV_INFOFRAME_DATA *pInfoframeData); + + + + + + +//! \ingroup dispcontrol +//! @{ +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_Disp_ColorControl +// +//! \fn NvAPI_Disp_ColorControl(NvU32 displayId, NV_COLOR_DATA *pColorData) +//! DESCRIPTION: This API controls the Color values. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] displayId Monitor Identifier +//! \param [in,out] pColorData Contains data corresponding to color information +//! +//! \return RETURN STATUS: +//! ::NVAPI_OK, +//! ::NVAPI_ERROR, +//! ::NVAPI_INVALID_ARGUMENT +// +/////////////////////////////////////////////////////////////////////////////// + +typedef enum +{ + NV_COLOR_CMD_GET = 1, + NV_COLOR_CMD_SET, + NV_COLOR_CMD_IS_SUPPORTED_COLOR, + NV_COLOR_CMD_GET_DEFAULT +} NV_COLOR_CMD; + +//! See Table 14 of CEA-861E. Not all of this is supported by the GPU. +typedef enum +{ + NV_COLOR_FORMAT_RGB = 0, + NV_COLOR_FORMAT_YUV422, + NV_COLOR_FORMAT_YUV444, + + NV_COLOR_FORMAT_DEFAULT = 0xFE, + NV_COLOR_FORMAT_AUTO = 0xFF +} NV_COLOR_FORMAT; + + + +typedef enum +{ + NV_COLOR_COLORIMETRY_RGB = 0, + NV_COLOR_COLORIMETRY_YCC601, + NV_COLOR_COLORIMETRY_YCC709, + NV_COLOR_COLORIMETRY_XVYCC601, + NV_COLOR_COLORIMETRY_XVYCC709, + NV_COLOR_COLORIMETRY_SYCC601, + NV_COLOR_COLORIMETRY_ADOBEYCC601, + NV_COLOR_COLORIMETRY_ADOBERGB, + NV_COLOR_COLORIMETRY_BT2020RGB, + NV_COLOR_COLORIMETRY_BT2020YCC, + NV_COLOR_COLORIMETRY_BT2020cYCC, + + NV_COLOR_COLORIMETRY_DEFAULT = 0xFE, + NV_COLOR_COLORIMETRY_AUTO = 0xFF +} NV_COLOR_COLORIMETRY; + +typedef enum _NV_DYNAMIC_RANGE +{ + NV_DYNAMIC_RANGE_VESA = 0x0, + NV_DYNAMIC_RANGE_CEA = 0x1, + + NV_DYNAMIC_RANGE_AUTO = 0xFF +} NV_DYNAMIC_RANGE; + +typedef enum _NV_BPC +{ + NV_BPC_DEFAULT = 0, + NV_BPC_6 = 1, + NV_BPC_8 = 2, + NV_BPC_10 = 3, + NV_BPC_12 = 4, + NV_BPC_16 = 5, +} NV_BPC; + +typedef struct _NV_COLOR_DATA_V1 +{ + NvU32 version; //!< Version of this structure + NvU16 size; //!< Size of this structure + NvU8 cmd; + struct + { + NvU8 colorFormat; //!< One of NV_COLOR_FORMAT enum values. + NvU8 colorimetry; //!< One of NV_COLOR_COLORIMETRY enum values. + } data; +} NV_COLOR_DATA_V1; + +typedef struct _NV_COLOR_DATA_V2 +{ + NvU32 version; //!< Version of this structure + NvU16 size; //!< Size of this structure + NvU8 cmd; + struct + { + NvU8 colorFormat; //!< One of NV_COLOR_FORMAT enum values. + NvU8 colorimetry; //!< One of NV_COLOR_COLORIMETRY enum values. + NvU8 dynamicRange; //!< One of NV_DYNAMIC_RANGE enum values. + } data; +} NV_COLOR_DATA_V2; + +typedef struct _NV_COLOR_DATA_V3 +{ + NvU32 version; //!< Version of this structure + NvU16 size; //!< Size of this structure + NvU8 cmd; + struct + { + NvU8 colorFormat; //!< One of NV_COLOR_FORMAT enum values. + NvU8 colorimetry; //!< One of NV_COLOR_COLORIMETRY enum values. + NvU8 dynamicRange; //!< One of NV_DYNAMIC_RANGE enum values. + NV_BPC bpc; //!< One of NV_BPC enum values. + } data; +} NV_COLOR_DATA_V3; + +typedef NV_COLOR_DATA_V3 NV_COLOR_DATA; + +#define NV_COLOR_DATA_VER1 MAKE_NVAPI_VERSION(NV_COLOR_DATA_V1, 1) +#define NV_COLOR_DATA_VER2 MAKE_NVAPI_VERSION(NV_COLOR_DATA_V2, 2) +#define NV_COLOR_DATA_VER3 MAKE_NVAPI_VERSION(NV_COLOR_DATA_V3, 3) +#define NV_COLOR_DATA_VER NV_COLOR_DATA_VER3 + +NVAPI_INTERFACE NvAPI_Disp_ColorControl(NvU32 displayId, NV_COLOR_DATA *pColorData); + +//! @} + +//! \ingroup dispcontrol +//! Used in NvAPI_DISP_GetTiming(). +typedef struct +{ + NvU32 isInterlaced : 4; //!< To retrieve interlaced/progressive timing + NvU32 reserved0 : 12; + union + { + NvU32 tvFormat : 8; //!< The actual analog HD/SDTV format. Used when the timing type is + //! NV_TIMING_OVERRIDE_ANALOG_TV and width==height==rr==0. + NvU32 ceaId : 8; //!< The EIA/CEA 861B/D predefined short timing descriptor ID. + //! Used when the timing type is NV_TIMING_OVERRIDE_EIA861 + //! and width==height==rr==0. + NvU32 nvPsfId : 8; //!< The NV predefined PsF format Id. + //! Used when the timing type is NV_TIMING_OVERRIDE_NV_PREDEFINED. + }; + NvU32 scaling : 8; //!< Define preferred scaling +}NV_TIMING_FLAG; + +//! \ingroup dispcontrol +//! Used in NvAPI_DISP_GetTiming(). +typedef struct _NV_TIMING_INPUT +{ + NvU32 version; //!< (IN) structure version + + NvU32 width; //!< Visible horizontal size + NvU32 height; //!< Visible vertical size + float rr; //!< Timing refresh rate + + NV_TIMING_FLAG flag; //!< Flag containing additional info for timing calculation. + + NV_TIMING_OVERRIDE type; //!< Timing type(formula) to use for calculating the timing +}NV_TIMING_INPUT; + +#define NV_TIMING_INPUT_VER MAKE_NVAPI_VERSION(NV_TIMING_INPUT,1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_GetTiming +// +//! DESCRIPTION: This function calculates the timing from the visible width/height/refresh-rate and timing type info. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 313 +//! +//! +//! \param [in] displayId Display ID of the display. +//! \param [in] timingInput Inputs used for calculating the timing. +//! \param [out] pTiming Pointer to the NV_TIMING structure. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetTiming( __in NvU32 displayId,__in NV_TIMING_INPUT *timingInput, __out NV_TIMING *pTiming); + + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_GetMonitorCapabilities +// +//! \fn NvAPI_DISP_GetMonitorCapabilities(NvU32 displayId, NV_MONITOR_CAPABILITIES *pMonitorCapabilities) +//! DESCRIPTION: This API returns the Monitor capabilities +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] displayId Monitor Identifier +//! \param [out] pMonitorCapabilities The monitor support info +//! +//! \return ::NVAPI_OK, +//! ::NVAPI_ERROR, +//! ::NVAPI_INVALID_ARGUMENT +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup dispcontrol +//! @{ + + +//! HDMI-related and extended CAPs +typedef enum +{ + // hdmi related caps + NV_MONITOR_CAPS_TYPE_HDMI_VSDB = 0x1000, + NV_MONITOR_CAPS_TYPE_HDMI_VCDB = 0x1001, +} NV_MONITOR_CAPS_TYPE; + + + +typedef struct _NV_MONITOR_CAPS_VCDB +{ + NvU8 quantizationRangeYcc : 1; + NvU8 quantizationRangeRgb : 1; + NvU8 scanInfoPreferredVideoFormat : 2; + NvU8 scanInfoITVideoFormats : 2; + NvU8 scanInfoCEVideoFormats : 2; +} NV_MONITOR_CAPS_VCDB; + + +//! See NvAPI_DISP_GetMonitorCapabilities(). +typedef struct _NV_MONITOR_CAPS_VSDB +{ + // byte 1 + NvU8 sourcePhysicalAddressB : 4; //!< Byte 1 + NvU8 sourcePhysicalAddressA : 4; //!< Byte 1 + // byte 2 + NvU8 sourcePhysicalAddressD : 4; //!< Byte 2 + NvU8 sourcePhysicalAddressC : 4; //!< Byte 2 + // byte 3 + NvU8 supportDualDviOperation : 1; //!< Byte 3 + NvU8 reserved6 : 2; //!< Byte 3 + NvU8 supportDeepColorYCbCr444 : 1; //!< Byte 3 + NvU8 supportDeepColor30bits : 1; //!< Byte 3 + NvU8 supportDeepColor36bits : 1; //!< Byte 3 + NvU8 supportDeepColor48bits : 1; //!< Byte 3 + NvU8 supportAI : 1; //!< Byte 3 + // byte 4 + NvU8 maxTmdsClock; //!< Bye 4 + // byte 5 + NvU8 cnc0SupportGraphicsTextContent : 1; //!< Byte 5 + NvU8 cnc1SupportPhotoContent : 1; //!< Byte 5 + NvU8 cnc2SupportCinemaContent : 1; //!< Byte 5 + NvU8 cnc3SupportGameContent : 1; //!< Byte 5 + NvU8 reserved8 : 1; //!< Byte 5 + NvU8 hasVicEntries : 1; //!< Byte 5 + NvU8 hasInterlacedLatencyField : 1; //!< Byte 5 + NvU8 hasLatencyField : 1; //!< Byte 5 + // byte 6 + NvU8 videoLatency; //!< Byte 6 + // byte 7 + NvU8 audioLatency; //!< Byte 7 + // byte 8 + NvU8 interlacedVideoLatency; //!< Byte 8 + // byte 9 + NvU8 interlacedAudioLatency; //!< Byte 9 + // byte 10 + NvU8 reserved13 : 7; //!< Byte 10 + NvU8 has3dEntries : 1; //!< Byte 10 + // byte 11 + NvU8 hdmi3dLength : 5; //!< Byte 11 + NvU8 hdmiVicLength : 3; //!< Byte 11 + // Remaining bytes + NvU8 hdmi_vic[7]; //!< Keeping maximum length for 3 bits + NvU8 hdmi_3d[31]; //!< Keeping maximum length for 5 bits +} NV_MONITOR_CAPS_VSDB; + + +//! See NvAPI_DISP_GetMonitorCapabilities(). +typedef struct _NV_MONITOR_CAPABILITIES_V1 +{ + NvU32 version; + NvU16 size; + NvU32 infoType; + NvU32 connectorType; //!< Out: VGA, TV, DVI, HDMI, DP + NvU8 bIsValidInfo : 1; //!< Boolean : Returns invalid if requested info is not present such as VCDB not present + union { + NV_MONITOR_CAPS_VSDB vsdb; + NV_MONITOR_CAPS_VCDB vcdb; + } data; +} NV_MONITOR_CAPABILITIES_V1; + +typedef NV_MONITOR_CAPABILITIES_V1 NV_MONITOR_CAPABILITIES; + +//! Macro for constructing the version field of ::NV_MONITOR_CAPABILITIES_V1 +#define NV_MONITOR_CAPABILITIES_VER1 MAKE_NVAPI_VERSION(NV_MONITOR_CAPABILITIES_V1,1) +#define NV_MONITOR_CAPABILITIES_VER NV_MONITOR_CAPABILITIES_VER1 + +//! @} + +//! SUPPORTED OS: Windows Vista and higher +//! +//! \ingroup dispcontrol +NVAPI_INTERFACE NvAPI_DISP_GetMonitorCapabilities(__in NvU32 displayId, __inout NV_MONITOR_CAPABILITIES *pMonitorCapabilities); + +//! \ingroup dispcontrol +typedef struct _NV_MONITOR_COLOR_DATA +{ + NvU32 version; +// We are only supporting DP monitors for now. We need to extend this to HDMI panels as well + NV_DP_COLOR_FORMAT colorFormat; //!< One of the supported color formats + NV_DP_BPC backendBitDepths; //!< One of the supported bit depths +} NV_MONITOR_COLOR_CAPS_V1; + +typedef NV_MONITOR_COLOR_CAPS_V1 NV_MONITOR_COLOR_CAPS; + +//! \ingroup dispcontrol +#define NV_MONITOR_COLOR_CAPS_VER1 MAKE_NVAPI_VERSION(NV_MONITOR_COLOR_CAPS_V1,1) +#define NV_MONITOR_COLOR_CAPS_VER NV_MONITOR_COLOR_CAPS_VER1 + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_GetMonitorColorCapabilities +// +//! DESCRIPTION: This API returns all the color formats and bit depth values supported by a given DP monitor. +//! +//! USAGE: Sequence of calls which caller should make to get the information. +//! 1. First call NvAPI_DISP_GetMonitorColorCapabilities() with pMonitorColorCapabilities as NULL to get the count. +//! 2. Allocate memory for color caps(NV_MONITOR_COLOR_CAPS) array. +//! 3. Call NvAPI_DISP_GetMonitorColorCapabilities() again with the pointer to the memory allocated to get all the +//! color capabilities. +//! +//! Note : +//! 1. pColorCapsCount should never be NULL, else the API will fail with NVAPI_INVALID_ARGUMENT. +//! 2. *pColorCapsCount returned from the API will always be the actual count in any/every call. +//! 3. Memory size to be allocated should be (*pColorCapsCount * sizeof(NV_MONITOR_COLOR_CAPS)). +//! 4. If the memory allocated is less than what is required to return all the timings, this API will return the +//! amount of information which can fit in user provided buffer and API will return NVAPI_INSUFFICIENT_BUFFER. +//! 5. If the caller specifies a greater value for *pColorCapsCount in second call to NvAPI_DISP_GetMonitorColorCapabilities() +//! than what was returned from first call, the API will return only the actual number of elements in the color +//! capabilities array and the extra buffer will remain unused. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] displayId Monitor Identifier +//! \param [in, out] pMonitorColorCapabilities The monitor color capabilities information +//! \param [in, out] pColorCapsCount - During input, the number of elements allocated for the pMonitorColorCapabilities pointer +//! - During output, the actual number of color data elements the monitor supports +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval NVAPI_INSUFFICIENT_BUFFER The input buffer size is not sufficient to hold the total contents. In this case +//! *pColorCapsCount will hold the required amount of elements. +//! \retval NVAPI_INVALID_DISPLAY_ID The input monitor is either not connected or is not a DP panel. +//! +//! \ingroup dispcontrol +//! +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetMonitorColorCapabilities(__in NvU32 displayId, __inout_ecount_part_opt(*pColorCapsCount, *pColorCapsCount) NV_MONITOR_COLOR_CAPS *pMonitorColorCapabilities, __inout NvU32 *pColorCapsCount); + +//! \ingroup dispcontrol +//! Used in NvAPI_DISP_EnumCustomDisplay() and NvAPI_DISP_TryCustomDisplay(). +typedef struct +{ + NvU32 version; + + // the source mode information + NvU32 width; //!< Source surface(source mode) width + NvU32 height; //!< Source surface(source mode) height + NvU32 depth; //!< Source surface color depth."0" means all 8/16/32bpp + NV_FORMAT colorFormat; //!< Color format (optional) + + NV_VIEWPORTF srcPartition; //!< For multimon support, should be set to (0,0,1.0,1.0) for now. + + float xRatio; //!< Horizontal scaling ratio + float yRatio; //!< Vertical scaling ratio + + NV_TIMING timing; //!< Timing used to program TMDS/DAC/LVDS/HDMI/TVEncoder, etc. + NvU32 hwModeSetOnly : 1; //!< If set, it means a hardware modeset without OS update + +}NV_CUSTOM_DISPLAY; + +//! \ingroup dispcontrol +//! Used in NV_CUSTOM_DISPLAY. +#define NV_CUSTOM_DISPLAY_VER MAKE_NVAPI_VERSION(NV_CUSTOM_DISPLAY,1) + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_EnumCustomDisplay +// +//! DESCRIPTION: This API enumerates the custom timing specified by the enum index. +//! The client should keep enumerating until it returns NVAPI_END_ENUMERATION. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] displayId Dispaly ID of the display. +//! \param [in] index Enum index +//! \param [inout] pCustDisp Pointer to the NV_CUSTOM_DISPLAY structure +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! \retval NVAPI_INVALID_DISPLAY_ID: Custom Timing is not supported on the Display, whose display id is passed +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_EnumCustomDisplay( __in NvU32 displayId, __in NvU32 index, __inout NV_CUSTOM_DISPLAY *pCustDisp); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_TryCustomDisplay +// +//! DESCRIPTION: This API is used to set up a custom display without saving the configuration on multiple displays. +//! +//! \note +//! All the members of srcPartition, present in NV_CUSTOM_DISPLAY structure, should have their range in (0.0,1.0). +//! In clone mode the timings can applied to both the target monitors but only one target at a time. \n +//! For the secondary target the applied timings works under the following conditions: +//! - If the secondary monitor EDID supports the selected timing, OR +//! - If the selected custom timings can be scaled by the secondary monitor for the selected source resolution on the primary, OR +//! - If the selected custom timings matches the existing source resolution on the primary. +//! Setting up a custom display on non-active but connected monitors is supported only for Win7 and above. +//! +//! SUPPORTED OS: Windows XP, Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! +//! \param [in] pDisplayIds Array of the target display Dispaly IDs - See \ref handles. +//! \param [in] count Total number of the incoming Display IDs and corresponding NV_CUSTOM_DISPLAY structure. This is for the multi-head support. +//! \param [in] pCustDisp Pointer to the NV_CUSTOM_DISPLAY structure array. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! \retval NVAPI_INVALID_DISPLAY_ID: Custom Timing is not supported on the Display, whose display id is passed +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_TryCustomDisplay( __in_ecount(count) NvU32 *pDisplayIds, __in NvU32 count, __in_ecount(count) NV_CUSTOM_DISPLAY *pCustDisp); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_DeleteCustomDisplay +// +//! DESCRIPTION: This function deletes the custom display configuration, specified from the registry for all the displays whose display IDs are passed. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 313 +//! +//! +//! \param [in] pDisplayIds Array of Dispaly IDs on which custom display configuration is to be saved. +//! \param [in] count Total number of the incoming Dispaly IDs. This is for the multi-head support. +//! \param [in] pCustDisp Pointer to the NV_CUSTOM_DISPLAY structure +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! \retval NVAPI_INVALID_DISPLAY_ID: Custom Timing is not supported on the Display, whose display id is passed +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_DeleteCustomDisplay( __in_ecount(count) NvU32 *pDisplayIds, __in NvU32 count, __in NV_CUSTOM_DISPLAY *pCustDisp); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_SaveCustomDisplay +// +//! DESCRIPTION: This function saves the current hardware display configuration on the specified Display IDs as a custom display configuration. +//! This function should be called right after NvAPI_DISP_TryCustomDisplay() to save the custom display from the current +//! hardware context. This function will not do anything if the custom display configuration is not tested on the hardware. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 313 +//! +//! +//! \param [in] pDisplayIds Array of Dispaly IDs on which custom display configuration is to be saved. +//! \param [in] count Total number of the incoming Dispaly IDs. This is for the multi-head support. +//! \param [in] isThisOutputIdOnly If set, the saved custom display will only be applied on the monitor with the same outputId (see \ref handles). +//! \param [in] isThisMonitorIdOnly If set, the saved custom display will only be applied on the monitor with the same EDID ID or +//! the same TV connector in case of analog TV. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! \retval NVAPI_INVALID_DISPLAY_ID: Custom Timing is not supported on the Display, whose display id is passed +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_SaveCustomDisplay( __in_ecount(count) NvU32 *pDisplayIds, __in NvU32 count, __in NvU32 isThisOutputIdOnly, __in NvU32 isThisMonitorIdOnly); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_RevertCustomDisplayTrial +// +//! DESCRIPTION: This API is used to restore the display configuration, that was changed by calling NvAPI_DISP_TryCustomDisplay(). This function +//! must be called only after a custom display configuration is tested on the hardware, using NvAPI_DISP_TryCustomDisplay(), +//! otherwise no action is taken. On Vista, NvAPI_DISP_RevertCustomDisplayTrial should be called with an active display that +//! was affected during the NvAPI_DISP_TryCustomDisplay() call, per GPU. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 313 +//! +//! +//! \param [in] pDisplayIds Pointer to display Id, of an active display. +//! \param [in] count Total number of incoming Display IDs. For future use only. Currently it is expected to be passed as 1. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_RevertCustomDisplayTrial( __in_ecount(count) NvU32* pDisplayIds, __in NvU32 count); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GetView +// +//! This API lets caller retrieve the target display arrangement for selected source display handle. +//! \note Display PATH with this API is limited to single GPU. DUALVIEW across GPUs will be returned as STANDARD VIEW. +//! Use NvAPI_SYS_GetDisplayTopologies() to query views across GPUs. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_GetDisplayConfig. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 85 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. It can be #NVAPI_DEFAULT_HANDLE or a handle enumerated from +//! NvAPI_EnumNVidiaDisplayHandle(). +//! \param [out] pTargets User allocated storage to retrieve an array of NV_VIEW_TARGET_INFO. Can be NULL to retrieve +//! the targetCount. +//! \param [in,out] targetMaskCount Count of target device mask specified in pTargetMask. +//! \param [out] targetView Target view selected from NV_TARGET_VIEW_MODE. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_GetDisplayConfig.") +NVAPI_INTERFACE NvAPI_GetView(NvDisplayHandle hNvDisplay, NV_VIEW_TARGET_INFO *pTargets, NvU32 *pTargetMaskCount, NV_TARGET_VIEW_MODE *pTargetView); + + + + + + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GetViewEx +// +//! DESCRIPTION: This API lets caller retrieve the target display arrangement for selected source display handle. +//! \note Display PATH with this API is limited to single GPU. DUALVIEW across GPUs will be returned as STANDARD VIEW. +//! Use NvAPI_SYS_GetDisplayTopologies() to query views across GPUs. +//! +//! \deprecated Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_GetDisplayConfig. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 165 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. #NVAPI_DEFAULT_HANDLE is not allowed, it has to be a handle enumerated with +//! NvAPI_EnumNVidiaDisplayHandle(). +//! \param [in,out] pPathInfo Count field should be set to NVAPI_MAX_DISPLAY_PATH. Can be NULL to retrieve just the pathCount. +//! \param [in,out] pPathCount Number of elements in array pPathInfo->path. +//! \param [out] pTargetViewMode Display view selected from NV_TARGET_VIEW_MODE. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_API_NOT_INTIALIZED NVAPI not initialized +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +//! \retval NVAPI_EXPECTED_DISPLAY_HANDLE hNvDisplay is not a valid display handle. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +__nvapi_deprecated_function("Do not use this function - it is deprecated in release 290. Instead, use NvAPI_DISP_GetDisplayConfig.") +NVAPI_INTERFACE NvAPI_GetViewEx(NvDisplayHandle hNvDisplay, NV_DISPLAY_PATH_INFO *pPathInfo, NvU32 *pPathCount, NV_TARGET_VIEW_MODE *pTargetViewMode); + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_GetSupportedViews +// +//! This API lets caller enumerate all the supported NVIDIA display views - nView and Dualview modes. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 85 +//! +//! \param [in] hNvDisplay NVIDIA Display selection. It can be #NVAPI_DEFAULT_HANDLE or a handle enumerated from +//! NvAPI_EnumNVidiaDisplayHandle(). +//! \param [out] pTargetViews Array of supported views. Can be NULL to retrieve the pViewCount first. +//! \param [in,out] pViewCount Count of supported views. +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Miscellaneous error occurred +//! \retval NVAPI_INVALID_ARGUMENT Invalid input parameter. +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetSupportedViews(NvDisplayHandle hNvDisplay, NV_TARGET_VIEW_MODE *pTargetViews, NvU32 *pViewCount); + + +//! SUPPORTED OS: Windows XP and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DISP_GetDisplayIdByDisplayName +// +//! DESCRIPTION: This API retrieves the Display Id of a given display by +//! display name. The display must be active to retrieve the +//! displayId. In the case of clone mode or Surround gaming, +//! the primary or top-left display will be returned. +//! +//! \param [in] displayName Name of display (Eg: "\\DISPLAY1" to +//! retrieve the displayId for. +//! \param [out] displayId Display ID of the requested display. +//! +//! retval ::NVAPI_OK: Capabilties have been returned. +//! retval ::NVAPI_INVALID_ARGUMENT: One or more args passed in are invalid. +//! retval ::NVAPI_API_NOT_INTIALIZED: The NvAPI API needs to be initialized first +//! retval ::NVAPI_NO_IMPLEMENTATION: This entrypoint not available +//! retval ::NVAPI_ERROR: Miscellaneous error occurred +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetDisplayIdByDisplayName(const char *displayName, NvU32* displayId); + + + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_GetDisplayConfig +// +//! DESCRIPTION: This API lets caller retrieve the current global display +//! configuration. +//! USAGE: The caller might have to call this three times to fetch all the required configuration details as follows: +//! First Pass: Caller should Call NvAPI_DISP_GetDisplayConfig() with pathInfo set to NULL to fetch pathInfoCount. +//! Second Pass: Allocate memory for pathInfo with respect to the number of pathInfoCount(from First Pass) to fetch +//! targetInfoCount. If sourceModeInfo is needed allocate memory or it can be initialized to NULL. +//! Third Pass(Optional, only required if target information is required): Allocate memory for targetInfo with respect +//! to number of targetInfoCount(from Second Pass). +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in,out] pathInfoCount Number of elements in pathInfo array, returns number of valid topologies, this cannot be null. +//! \param [in,out] pathInfo Array of path information +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. If there are return error codes with +//! specific meaning for this API, they are listed below. +//! +//! \retval NVAPI_INVALID_ARGUMENT - Invalid input parameter. Following can be the reason for this return value: +//! -# pathInfoCount is NULL. +//! -# *pathInfoCount is 0 and pathInfo is not NULL. +//! -# *pathInfoCount is not 0 and pathInfo is NULL. +//! \retval NVAPI_DEVICE_BUSY - ModeSet has not yet completed. Please wait and call it again. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetDisplayConfig(__inout NvU32 *pathInfoCount, __out_ecount_full_opt(*pathInfoCount) NV_DISPLAYCONFIG_PATH_INFO *pathInfo); + + + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_DISP_SetDisplayConfig +// +// +//! DESCRIPTION: This API lets caller apply a global display configuration +//! across multiple GPUs. +//! +//! If all sourceIds are zero, then NvAPI will pick up sourceId's based on the following criteria : +//! - If user provides sourceModeInfo then we are trying to assign 0th sourceId always to GDIPrimary. +//! This is needed since active windows always moves along with 0th sourceId. +//! - For rest of the paths, we are incrementally assigning the sourceId per adapter basis. +//! - If user doesn't provide sourceModeInfo then NVAPI just picks up some default sourceId's in incremental order. +//! Note : NVAPI will not intelligently choose the sourceIDs for any configs that does not need a modeset. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] pathInfoCount Number of supplied elements in pathInfo +//! \param [in] pathInfo Array of path information +//! \param [in] flags Flags for applying settings +//! +//! \retval ::NVAPI_OK - completed request +//! \retval ::NVAPI_API_NOT_INTIALIZED - NVAPI not initialized +//! \retval ::NVAPI_ERROR - miscellaneous error occurred +//! \retval ::NVAPI_INVALID_ARGUMENT - Invalid input parameter. +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_SetDisplayConfig(__in NvU32 pathInfoCount, __in_ecount(pathInfoCount) NV_DISPLAYCONFIG_PATH_INFO* pathInfo, __in NvU32 flags); + + + + + +//////////////////////////////////////////////////////////////////////////////////////// +// +// MOSAIC allows a multi display target output scanout on a single source. +// +// SAMPLE of MOSAIC 1x4 topo with 8 pixel horizontal overlap +// +//+-------------------------++-------------------------++-------------------------++-------------------------+ +//| || || || | +//| || || || | +//| || || || | +//| DVI1 || DVI2 || DVI3 || DVI4 | +//| || || || | +//| || || || | +//| || || || | +//| || || || | +//+-------------------------++-------------------------++-------------------------++-------------------------+ + + +//! \addtogroup mosaicapi +//! @{ + +#define NVAPI_MAX_MOSAIC_DISPLAY_ROWS 8 +#define NVAPI_MAX_MOSAIC_DISPLAY_COLUMNS 8 +// +// These bits are used to describe the validity of a topo. +// +#define NV_MOSAIC_TOPO_VALIDITY_VALID 0x00000000 //!< The topology is valid +#define NV_MOSAIC_TOPO_VALIDITY_MISSING_GPU 0x00000001 //!< Not enough SLI GPUs were found to fill the entire + //! topology. hPhysicalGPU will be 0 for these. +#define NV_MOSAIC_TOPO_VALIDITY_MISSING_DISPLAY 0x00000002 //!< Not enough displays were found to fill the entire + //! topology. displayOutputId will be 0 for these. +#define NV_MOSAIC_TOPO_VALIDITY_MIXED_DISPLAY_TYPES 0x00000004 //!< The topoogy is only possible with displays of the same + //! NV_GPU_OUTPUT_TYPE. Check displayOutputIds to make + //! sure they are all CRTs, or all DFPs. + + +// +//! This structure defines the topology details. +typedef struct +{ + NvU32 version; //!< Version of this structure + NvLogicalGpuHandle hLogicalGPU; //!< Logical GPU for this topology + NvU32 validityMask; //!< 0 means topology is valid with the current hardware. + //! If not 0, inspect bits against NV_MOSAIC_TOPO_VALIDITY_*. + NvU32 rowCount; //!< Number of displays in a row + NvU32 colCount; //!< Number of displays in a column + + struct + { + NvPhysicalGpuHandle hPhysicalGPU; //!< Physical GPU to be used in the topology (0 if GPU missing) + NvU32 displayOutputId; //!< Connected display target (0 if no display connected) + NvS32 overlapX; //!< Pixels of overlap on left of target: (+overlap, -gap) + NvS32 overlapY; //!< Pixels of overlap on top of target: (+overlap, -gap) + + } gpuLayout[NVAPI_MAX_MOSAIC_DISPLAY_ROWS][NVAPI_MAX_MOSAIC_DISPLAY_COLUMNS]; + +} NV_MOSAIC_TOPO_DETAILS; + +//! Macro for constructing te vesion field of NV_MOSAIC_TOPO_DETAILS +#define NVAPI_MOSAIC_TOPO_DETAILS_VER MAKE_NVAPI_VERSION(NV_MOSAIC_TOPO_DETAILS,1) + + +// +//! These values refer to the different types of Mosaic topologies that are possible. When +//! getting the supported Mosaic topologies, you can specify one of these types to narrow down +//! the returned list to only those that match the given type. +typedef enum +{ + NV_MOSAIC_TOPO_TYPE_ALL, //!< All mosaic topologies + NV_MOSAIC_TOPO_TYPE_BASIC, //!< Basic Mosaic topologies + NV_MOSAIC_TOPO_TYPE_PASSIVE_STEREO, //!< Passive Stereo topologies + NV_MOSAIC_TOPO_TYPE_SCALED_CLONE, //!< Not supported at this time + NV_MOSAIC_TOPO_TYPE_PASSIVE_STEREO_SCALED_CLONE, //!< Not supported at this time + NV_MOSAIC_TOPO_TYPE_MAX, //!< Always leave this at end of the enum +} NV_MOSAIC_TOPO_TYPE; + + +// +//! This is a complete list of supported Mosaic topologies. +//! +//! Using a "Basic" topology combines multiple monitors to create a single desktop. +//! +//! Using a "Passive" topology combines multiples monitors to create a passive stereo desktop. +//! In passive stereo, two identical topologies combine - one topology is used for the right eye and the other identical //! topology (targeting different displays) is used for the left eye. \n +//! NOTE: common\inc\nvEscDef.h shadows a couple PASSIVE_STEREO enums. If this +//! enum list changes and effects the value of NV_MOSAIC_TOPO_BEGIN_PASSIVE_STEREO +//! please update the corresponding value in nvEscDef.h +typedef enum +{ + NV_MOSAIC_TOPO_NONE, + + // 'BASIC' topos start here + // + // The result of using one of these Mosaic topos is that multiple monitors + // will combine to create a single desktop. + // + NV_MOSAIC_TOPO_BEGIN_BASIC, + NV_MOSAIC_TOPO_1x2_BASIC = NV_MOSAIC_TOPO_BEGIN_BASIC, + NV_MOSAIC_TOPO_2x1_BASIC, + NV_MOSAIC_TOPO_1x3_BASIC, + NV_MOSAIC_TOPO_3x1_BASIC, + NV_MOSAIC_TOPO_1x4_BASIC, + NV_MOSAIC_TOPO_4x1_BASIC, + NV_MOSAIC_TOPO_2x2_BASIC, + NV_MOSAIC_TOPO_2x3_BASIC, + NV_MOSAIC_TOPO_2x4_BASIC, + NV_MOSAIC_TOPO_3x2_BASIC, + NV_MOSAIC_TOPO_4x2_BASIC, + NV_MOSAIC_TOPO_1x5_BASIC, + NV_MOSAIC_TOPO_1x6_BASIC, + NV_MOSAIC_TOPO_7x1_BASIC, + + // Add padding for 10 more entries. 6 will be enough room to specify every + // possible topology with 8 or fewer displays, so this gives us a little + // extra should we need it. + NV_MOSAIC_TOPO_END_BASIC = NV_MOSAIC_TOPO_7x1_BASIC + 9, + + // 'PASSIVE_STEREO' topos start here + // + // The result of using one of these Mosaic topos is that multiple monitors + // will combine to create a single PASSIVE STEREO desktop. What this means is + // that there will be two topos that combine to create the overall desktop. + // One topo will be used for the left eye, and the other topo (of the + // same rows x cols), will be used for the right eye. The difference between + // the two topos is that different GPUs and displays will be used. + // + NV_MOSAIC_TOPO_BEGIN_PASSIVE_STEREO, // value shadowed in nvEscDef.h + NV_MOSAIC_TOPO_1x2_PASSIVE_STEREO = NV_MOSAIC_TOPO_BEGIN_PASSIVE_STEREO, + NV_MOSAIC_TOPO_2x1_PASSIVE_STEREO, + NV_MOSAIC_TOPO_1x3_PASSIVE_STEREO, + NV_MOSAIC_TOPO_3x1_PASSIVE_STEREO, + NV_MOSAIC_TOPO_1x4_PASSIVE_STEREO, + NV_MOSAIC_TOPO_4x1_PASSIVE_STEREO, + NV_MOSAIC_TOPO_2x2_PASSIVE_STEREO, + NV_MOSAIC_TOPO_END_PASSIVE_STEREO = NV_MOSAIC_TOPO_2x2_PASSIVE_STEREO + 4, + + + // + // Total number of topos. Always leave this at the end of the enumeration. + // + NV_MOSAIC_TOPO_MAX //! Total number of topologies. + +} NV_MOSAIC_TOPO; + + +// +//! This is a "topology brief" structure. It tells you what you need to know about +//! a topology at a high level. A list of these is returned when you query for the +//! supported Mosaic information. +//! +//! If you need more detailed information about the topology, call +//! NvAPI_Mosaic_GetTopoGroup() with the topology value from this structure. +typedef struct +{ + NvU32 version; //!< Version of this structure + NV_MOSAIC_TOPO topo; //!< The topology + NvU32 enabled; //!< 1 if topo is enabled, else 0 + NvU32 isPossible; //!< 1 if topo *can* be enabled, else 0 + +} NV_MOSAIC_TOPO_BRIEF; + +//! Macro for constructing the version field of NV_MOSAIC_TOPO_BRIEF +#define NVAPI_MOSAIC_TOPO_BRIEF_VER MAKE_NVAPI_VERSION(NV_MOSAIC_TOPO_BRIEF,1) + + +// +//! Basic per-display settings that are used in setting/getting the Mosaic mode +typedef struct +{ + NvU32 version; //!< Version of this structure + NvU32 width; //!< Per-display width + NvU32 height; //!< Per-display height + NvU32 bpp; //!< Bits per pixel + NvU32 freq; //!< Display frequency +} NV_MOSAIC_DISPLAY_SETTING; + +//! Macro for constructing the version field of NV_MOSAIC_DISPLAY_SETTING +#define NVAPI_MOSAIC_DISPLAY_SETTING_VER MAKE_NVAPI_VERSION(NV_MOSAIC_DISPLAY_SETTING,1) + + +// +// Set a reasonable max number of display settings to support +// so arrays are bound. +// +#define NV_MOSAIC_DISPLAY_SETTINGS_MAX 40 //!< Set a reasonable maximum number of display settings to support + //! so arrays are bound. + + +// +//! This structure is used to contain a list of supported Mosaic topologies +//! along with the display settings that can be used. +typedef struct +{ + NvU32 version; //!< Version of this structure + NvU32 topoBriefsCount; //!< Number of topologies in below array + NV_MOSAIC_TOPO_BRIEF topoBriefs[NV_MOSAIC_TOPO_MAX]; //!< List of supported topologies with only brief details + NvU32 displaySettingsCount; //!< Number of display settings in below array + NV_MOSAIC_DISPLAY_SETTING displaySettings[NV_MOSAIC_DISPLAY_SETTINGS_MAX]; //!< List of per display settings possible + +} NV_MOSAIC_SUPPORTED_TOPO_INFO; + +//! Macro forconstructing the version field of NV_MOSAIC_SUPPORTED_TOPO_INFO +#define NVAPI_MOSAIC_SUPPORTED_TOPO_INFO_VER MAKE_NVAPI_VERSION(NV_MOSAIC_SUPPORTED_TOPO_INFO,1) + + +// +// Indices to use to access the topos array within the mosaic topology +#define NV_MOSAIC_TOPO_IDX_DEFAULT 0 + +#define NV_MOSAIC_TOPO_IDX_LEFT_EYE 0 +#define NV_MOSAIC_TOPO_IDX_RIGHT_EYE 1 +#define NV_MOSAIC_TOPO_NUM_EYES 2 + + +// +//! This defines the maximum number of topos that can be in a topo group. +//! At this time, it is set to 2 because our largest topo group (passive +//! stereo) only needs 2 topos (left eye and right eye). +//! +//! If a new topo group with more than 2 topos is added above, then this +//! number will also have to be incremented. +#define NV_MOSAIC_MAX_TOPO_PER_TOPO_GROUP 2 + + +// +//! This structure defines a group of topologies that work together to create one +//! overall layout. All of the supported topologies are represented with this +//! structure. +//! +//! For example, a 'Passive Stereo' topology would be represented with this +//! structure, and would have separate topology details for the left and right eyes. +//! The count would be 2. A 'Basic' topology is also represented by this structure, +//! with a count of 1. +//! +//! The structure is primarily used internally, but is exposed to applications in a +//! read-only fashion because there are some details in it that might be useful +//! (like the number of rows/cols, or connected display information). A user can +//! get the filled-in structure by calling NvAPI_Mosaic_GetTopoGroup(). +//! +//! You can then look at the detailed values within the structure. There are no +//! entrypoints which take this structure as input (effectively making it read-only). +typedef struct +{ + NvU32 version; //!< Version of this structure + NV_MOSAIC_TOPO_BRIEF brief; //!< The brief details of this topo + NvU32 count; //!< Number of topos in array below + NV_MOSAIC_TOPO_DETAILS topos[NV_MOSAIC_MAX_TOPO_PER_TOPO_GROUP]; + +} NV_MOSAIC_TOPO_GROUP; + +//! Macro for constructing the version field of NV_MOSAIC_TOPO_GROUP +#define NVAPI_MOSAIC_TOPO_GROUP_VER MAKE_NVAPI_VERSION(NV_MOSAIC_TOPO_GROUP,1) + +//! @} + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_GetSupportedTopoInfo +// +//! DESCRIPTION: This API returns information on the topologies and display resolutions +//! supported by Mosaic mode. +//! +//! NOTE: Not all topologies returned can be set immediately. +//! See 'OUT' Notes below. +//! +//! Once you get the list of supported topologies, you can call +//! NvAPI_Mosaic_GetTopoGroup() with one of the Mosaic topologies if you need +//! more information about it. +//! +//! 'IN' Notes: pSupportedTopoInfo->version must be set before calling this function. +//! If the specified version is not supported by this implementation, +//! an error will be returned (NVAPI_INCOMPATIBLE_STRUCT_VERSION). +//! +//! 'OUT' Notes: Some of the topologies returned might not be valid for one reason or +//! another. It could be due to mismatched or missing displays. It +//! could also be because the required number of GPUs is not found. +//! At a high level, you can see if the topology is valid and can be enabled +//! by looking at the pSupportedTopoInfo->topoBriefs[xxx].isPossible flag. +//! If this is true, the topology can be enabled. If it +//! is false, you can find out why it cannot be enabled by getting the +//! details of the topology via NvAPI_Mosaic_GetTopoGroup(). From there, +//! look at the validityMask of the individual topologies. The bits can +//! be tested against the NV_MOSAIC_TOPO_VALIDITY_* bits. +//! +//! It is possible for this function to return NVAPI_OK with no topologies +//! listed in the return structure. If this is the case, it means that +//! the current hardware DOES support Mosaic, but with the given configuration +//! no valid topologies were found. This most likely means that SLI was not +//! enabled for the hardware. Once enabled, you should see valid topologies +//! returned from this function. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! +//! \param [in,out] pSupportedTopoInfo Information about what topologies and display resolutions +//! are supported for Mosaic. +//! \param [in] type The type of topologies the caller is interested in +//! getting. See NV_MOSAIC_TOPO_TYPE for possible values. +//! +//! \retval ::NVAPI_OK No errors in returning supported topologies. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more arguments passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first. +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the structure passed in is not +// compatible with this entry point. +//! \retval ::NVAPI_ERROR: Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_GetSupportedTopoInfo(NV_MOSAIC_SUPPORTED_TOPO_INFO *pSupportedTopoInfo, NV_MOSAIC_TOPO_TYPE type); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_GetTopoGroup +// +//! DESCRIPTION: This API returns a structure filled with the details +//! of the specified Mosaic topology. +//! +//! If the pTopoBrief passed in matches the current topology, +//! then information in the brief and group structures +//! will reflect what is current. Thus the brief would have +//! the current 'enable' status, and the group would have the +//! current overlap values. If there is no match, then the +//! returned brief has an 'enable' status of FALSE (since it +//! is obviously not enabled), and the overlap values will be 0. +//! +//! 'IN' Notes: pTopoGroup->version must be set before calling this function. +//! If the specified version is not supported by this implementation, +//! an error will be returned (NVAPI_INCOMPATIBLE_STRUCT_VERSION). +//! +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pTopoBrief The topology for getting the details +//! This must be one of the topology briefs +//! returned from NvAPI_Mosaic_GetSupportedTopoInfo(). +//! \param [in,out] pTopoGroup The topology details matching the brief +//! +//! \retval ::NVAPI_OK Details were retrieved successfully. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more argumentss passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first. +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the structure passed in is not +// compatible with this entry point. +//! \retval ::NVAPI_ERROR: Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_GetTopoGroup(NV_MOSAIC_TOPO_BRIEF *pTopoBrief, NV_MOSAIC_TOPO_GROUP *pTopoGroup); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_GetOverlapLimits +// +//! DESCRIPTION: This API returns the X and Y overlap limits required if +//! the given Mosaic topology and display settings are to be used. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pTopoBrief The topology for getting limits +//! This must be one of the topo briefs +//! returned from NvAPI_Mosaic_GetSupportedTopoInfo(). +//! \param [in] pDisplaySetting The display settings for getting the limits. +//! This must be one of the settings +//! returned from NvAPI_Mosaic_GetSupportedTopoInfo(). +//! \param [out] pMinOverlapX X overlap minimum +//! \param [out] pMaxOverlapX X overlap maximum +//! \param [out] pMinOverlapY Y overlap minimum +//! \param [out] pMaxOverlapY Y overlap maximum +//! +//! \retval ::NVAPI_OK Details were retrieved successfully. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more argumentss passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first. +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the structure passed in is not +//! compatible with this entry point. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_GetOverlapLimits(NV_MOSAIC_TOPO_BRIEF *pTopoBrief, NV_MOSAIC_DISPLAY_SETTING *pDisplaySetting, NvS32 *pMinOverlapX, NvS32 *pMaxOverlapX, NvS32 *pMinOverlapY, NvS32 *pMaxOverlapY); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_SetCurrentTopo +// +//! DESCRIPTION: This API sets the Mosaic topology and performs a mode switch +//! using the given display settings. +//! +//! If NVAPI_OK is returned, the current Mosaic topology was set +//! correctly. Any other status returned means the +//! topology was not set, and remains what it was before this +//! function was called. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pTopoBrief The topology to set. This must be one of the topologies returned from +//! NvAPI_Mosaic_GetSupportedTopoInfo(), and it must have an isPossible value of 1. +//! \param [in] pDisplaySetting The per display settings to be used in the Mosaic mode. This must be one of the +//! settings returned from NvAPI_Mosaic_GetSupportedTopoInfo(). +//! \param [in] overlapX The pixel overlap to use between horizontal displays (use positive a number for +//! overlap, or a negative number to create a gap.) If the overlap is out of bounds +//! for what is possible given the topo and display setting, the overlap will be clamped. +//! \param [in] overlapY The pixel overlap to use between vertical displays (use positive a number for +//! overlap, or a negative number to create a gap.) If the overlap is out of bounds for +//! what is possible given the topo and display setting, the overlap will be clamped. +//! \param [in] enable If 1, the topology being set will also be enabled, meaning that the mode set will +//! occur. \n +//! If 0, you don't want to be in Mosaic mode right now, but want to set the current +//! Mosaic topology so you can enable it later with NvAPI_Mosaic_EnableCurrentTopo(). +//! +//! \retval ::NVAPI_OK The Mosaic topology was set. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more argumentss passed in are invalid. +//! \retval ::NVAPI_TOPO_NOT_POSSIBLE The topology passed in is not currently possible. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first. +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available. +//! \retval ::NVAPI_INCOMPATIBLE_STRUCT_VERSION The version of the structure passed in is not +//! compatible with this entrypoint. +//! \retval ::NVAPI_MODE_CHANGE_FAILED There was an error changing the display mode. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_SetCurrentTopo(NV_MOSAIC_TOPO_BRIEF *pTopoBrief, NV_MOSAIC_DISPLAY_SETTING *pDisplaySetting, NvS32 overlapX, NvS32 overlapY, NvU32 enable); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_GetCurrentTopo +// +//! DESCRIPTION: This API returns information for the current Mosaic topology. +//! This includes topology, display settings, and overlap values. +//! +//! You can call NvAPI_Mosaic_GetTopoGroup() with the topology +//! if you require more information. +//! +//! If there isn't a current topology, then pTopoBrief->topo will +//! be NV_MOSAIC_TOPO_NONE. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [out] pTopoBrief The current Mosaic topology +//! \param [out] pDisplaySetting The current per-display settings +//! \param [out] pOverlapX The pixel overlap between horizontal displays +//! \param [out] pOverlapY The pixel overlap between vertical displays +//! +//! \retval ::NVAPI_OK Success getting current info. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more argumentss passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first. +//! \retval ::NVAPI_NO_IMPLEMENTATION This entry point not available. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_GetCurrentTopo(NV_MOSAIC_TOPO_BRIEF *pTopoBrief, NV_MOSAIC_DISPLAY_SETTING *pDisplaySetting, NvS32 *pOverlapX, NvS32 *pOverlapY); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_EnableCurrentTopo +// +//! DESCRIPTION: This API enables or disables the current Mosaic topology +//! based on the setting of the incoming 'enable' parameter. +//! +//! An "enable" setting enables the current (previously set) Mosaic topology. +//! Note that when the current Mosaic topology is retrieved, it must have an isPossible value of 1 or +//! an error will occur. +//! +//! A "disable" setting disables the current Mosaic topology. +//! The topology information will persist, even across reboots. +//! To re-enable the Mosaic topology, call this function +//! again with the enable parameter set to 1. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] enable 1 to enable the current Mosaic topo, 0 to disable it. +//! +//! \retval ::NVAPI_OK The Mosaic topo was enabled/disabled. +//! \retval ::NVAPI_NOT_SUPPORTED Mosaic is not supported with the existing hardware. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more arguments passed in are invalid. +//! \retval ::NVAPI_TOPO_NOT_POSSIBLE The current topology is not currently possible. +//! \retval ::NVAPI_MODE_CHANGE_FAILED There was an error changing the display mode. +//! \retval ::NVAPI_ERROR: Miscellaneous error occurred. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_EnableCurrentTopo(NvU32 enable); + +//! \ingroup mosaicapi +//! @{ +typedef struct _NV_MOSAIC_GRID_TOPO_DISPLAY_V1 +{ + NvU32 displayId; //!< DisplayID of the display + NvS32 overlapX; //!< (+overlap, -gap) + NvS32 overlapY; //!< (+overlap, -gap) + NV_ROTATE rotation; //!< Rotation of display + NvU32 cloneGroup; //!< Reserved, must be 0 +} NV_MOSAIC_GRID_TOPO_DISPLAY_V1; + +typedef enum _NV_PIXEL_SHIFT_TYPE +{ + NV_PIXEL_SHIFT_TYPE_NO_PIXEL_SHIFT = 0, //!< No pixel shift will be applied to this display. + NV_PIXEL_SHIFT_TYPE_2x2_TOP_LEFT_PIXELS = 1, //!< This display will be used to scanout top left pixels in 2x2 PixelShift configuration + NV_PIXEL_SHIFT_TYPE_2x2_BOTTOM_RIGHT_PIXELS = 2, //!< This display will be used to scanout bottom right pixels in 2x2 PixelShift configuration +} NV_PIXEL_SHIFT_TYPE; + +typedef struct _NV_MOSAIC_GRID_TOPO_DISPLAY_V2 +{ + NvU32 version; //!< Version of this structure + + NvU32 displayId; //!< DisplayID of the display + NvS32 overlapX; //!< (+overlap, -gap) + NvS32 overlapY; //!< (+overlap, -gap) + NV_ROTATE rotation; //!< Rotation of display + NvU32 cloneGroup; //!< Reserved, must be 0 + NV_PIXEL_SHIFT_TYPE pixelShiftType; //!< Type of the pixel shift enabled display +} NV_MOSAIC_GRID_TOPO_DISPLAY_V2; + +#ifndef NV_MOSAIC_GRID_TOPO_DISPLAY_VER + +typedef NV_MOSAIC_GRID_TOPO_DISPLAY_V1 NV_MOSAIC_GRID_TOPO_DISPLAY; + +#endif + +typedef struct +{ + NvU32 version; //!< Version of this structure + NvU32 rows; //!< Number of rows + NvU32 columns; //!< Number of columns + NvU32 displayCount; //!< Number of display details + NvU32 applyWithBezelCorrect : 1; //!< When enabling and doing the modeset, do we switch to the bezel-corrected resolution + NvU32 immersiveGaming : 1; //!< Enable as immersive gaming instead of Mosaic SLI (for Quadro-boards only) + NvU32 baseMosaic : 1; //!< Enable as Base Mosaic (Panoramic) instead of Mosaic SLI (for NVS and Quadro-boards only) + NvU32 driverReloadAllowed : 1; //!< If necessary, reloading the driver is permitted (for Vista and above only). Will not be persisted. Value undefined on get. + NvU32 acceleratePrimaryDisplay : 1; //!< Enable SLI acceleration on the primary display while in single-wide mode (For Immersive Gaming only). Will not be persisted. Value undefined on get. + NvU32 reserved : 27; //!< Reserved, must be 0 + NV_MOSAIC_GRID_TOPO_DISPLAY_V1 displays[NV_MOSAIC_MAX_DISPLAYS]; //!< Displays are done as [(row * columns) + column] + NV_MOSAIC_DISPLAY_SETTING displaySettings; //!< Display settings +} NV_MOSAIC_GRID_TOPO_V1; + +typedef struct +{ + NvU32 version; //!< Version of this structure + NvU32 rows; //!< Number of rows + NvU32 columns; //!< Number of columns + NvU32 displayCount; //!< Number of display details + NvU32 applyWithBezelCorrect : 1; //!< When enabling and doing the modeset, do we switch to the bezel-corrected resolution + NvU32 immersiveGaming : 1; //!< Enable as immersive gaming instead of Mosaic SLI (for Quadro-boards only) + NvU32 baseMosaic : 1; //!< Enable as Base Mosaic (Panoramic) instead of Mosaic SLI (for NVS and Quadro-boards only) + NvU32 driverReloadAllowed : 1; //!< If necessary, reloading the driver is permitted (for Vista and above only). Will not be persisted. Value undefined on get. + NvU32 acceleratePrimaryDisplay : 1; //!< Enable SLI acceleration on the primary display while in single-wide mode (For Immersive Gaming only). Will not be persisted. Value undefined on get. + NvU32 pixelShift : 1; //!< Enable Pixel shift + NvU32 reserved : 26; //!< Reserved, must be 0 + NV_MOSAIC_GRID_TOPO_DISPLAY_V2 displays[NV_MOSAIC_MAX_DISPLAYS]; //!< Displays are done as [(row * columns) + column] + NV_MOSAIC_DISPLAY_SETTING displaySettings; //!< Display settings +} NV_MOSAIC_GRID_TOPO_V2; + +#ifndef NV_MOSAIC_GRID_TOPO_VER + +typedef NV_MOSAIC_GRID_TOPO_V2 NV_MOSAIC_GRID_TOPO; + +//! Macro for constructing the version field of ::NV_MOSAIC_GRID_TOPO +#define NV_MOSAIC_GRID_TOPO_VER NV_MOSAIC_GRID_TOPO_VER2 + +#endif + +//! @} + +//! since Release R290 + +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_DISPLAY_ON_INVALID_GPU NV_BIT(0) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_DISPLAY_ON_WRONG_CONNECTOR NV_BIT(1) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NO_COMMON_TIMINGS NV_BIT(2) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NO_EDID_AVAILABLE NV_BIT(3) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_MISMATCHED_OUTPUT_TYPE NV_BIT(4) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NO_DISPLAY_CONNECTED NV_BIT(5) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NO_GPU_TOPOLOGY NV_BIT(6) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NOT_SUPPORTED NV_BIT(7) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_NO_SLI_BRIDGE NV_BIT(8) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_ECC_ENABLED NV_BIT(9) +#define NV_MOSAIC_DISPLAYCAPS_PROBLEM_GPU_TOPOLOGY_NOT_SUPPORTED NV_BIT(10) + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_SetDisplayGrids +// +//! DESCRIPTION: Sets a new display topology, replacing any existing topologies +//! that use the same displays. +//! +//! This function will look for an SLI configuration that will +//! allow the display topology to work. +//! +//! To revert to a single display, specify that display as a 1x1 +//! grid. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] pGridTopologies The topology details to set. +//! \param [in] gridCount The number of elements in the pGridTopologies array. +//! \param [in] setTopoFlags Zero or more of the NVAPI_MOSAIC_SETDISPLAYTOPO_FLAG_* +//! flags. +//! +//! +//! \retval ::NVAPI_OK Capabilities have been returned. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available +//! \retval ::NVAPI_NO_ACTIVE_SLI_TOPOLOGY No matching GPU topologies could be found. +//! \retval ::NVAPI_TOPO_NOT_POSSIBLE One or more of the display grids are not valid. +//! \retval ::NVAPI_ERROR Miscellaneous error occurred +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// + + +//! Do not change the current GPU topology. If the NO_DRIVER_RELOAD bit is not +//! specified, then it may still require a driver reload. +#define NV_MOSAIC_SETDISPLAYTOPO_FLAG_CURRENT_GPU_TOPOLOGY NV_BIT(0) + +//! Do not allow a driver reload. That is, stick with the same master GPU as well as the +//! same SLI configuration. +#define NV_MOSAIC_SETDISPLAYTOPO_FLAG_NO_DRIVER_RELOAD NV_BIT(1) + +//! When choosing a GPU topology, choose the topology with the best performance. +//! Without this flag, it will choose the topology that uses the smallest number +//! of GPU's. +#define NV_MOSAIC_SETDISPLAYTOPO_FLAG_MAXIMIZE_PERFORMANCE NV_BIT(2) + +//! Do not return an error if no configuration will work with all of the grids. +#define NV_MOSAIC_SETDISPLAYTOPO_FLAG_ALLOW_INVALID NV_BIT(3) + +NVAPI_INTERFACE NvAPI_Mosaic_SetDisplayGrids(__in_ecount(gridCount) NV_MOSAIC_GRID_TOPO *pGridTopologies, __in NvU32 gridCount, __in NvU32 setTopoFlags); + + +//! \ingroup mosaicapi +//! Indicates that a display's position in the grid is sub-optimal. +#define NV_MOSAIC_DISPLAYTOPO_WARNING_DISPLAY_POSITION NV_BIT(0) + +//! \ingroup mosaicapi +//! Indicates that SetDisplaySettings would need to perform a driver reload. +#define NV_MOSAIC_DISPLAYTOPO_WARNING_DRIVER_RELOAD_REQUIRED NV_BIT(1) + +//! \ingroup mosaicapi +typedef struct +{ + NvU32 version; + NvU32 errorFlags; //!< (OUT) Any of the NV_MOSAIC_DISPLAYTOPO_ERROR_* flags. + NvU32 warningFlags; //!< (OUT) Any of the NV_MOSAIC_DISPLAYTOPO_WARNING_* flags. + + NvU32 displayCount; //!< (OUT) The number of valid entries in the displays array. + struct + { + NvU32 displayId; //!< (OUT) The DisplayID of this display. + NvU32 errorFlags; //!< (OUT) Any of the NV_MOSAIC_DISPLAYCAPS_PROBLEM_* flags. + NvU32 warningFlags; //!< (OUT) Any of the NV_MOSAIC_DISPLAYTOPO_WARNING_* flags. + + NvU32 supportsRotation : 1; //!< (OUT) This display can be rotated + NvU32 reserved : 31; //!< (OUT) reserved + } displays[NVAPI_MAX_DISPLAYS]; +} NV_MOSAIC_DISPLAY_TOPO_STATUS; + +//! \ingroup mosaicapi +#define NV_MOSAIC_DISPLAY_TOPO_STATUS_VER MAKE_NVAPI_VERSION(NV_MOSAIC_DISPLAY_TOPO_STATUS,1) + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_ValidateDisplayGrids +// +//! DESCRIPTION: Determines if a list of grid topologies is valid. It will choose an SLI +//! configuration in the same way that NvAPI_Mosaic_SetDisplayGrids() does. +//! +//! On return, each element in the pTopoStatus array will contain any errors or +//! warnings about each grid topology. If any error flags are set, then the topology +//! is not valid. If any warning flags are set, then the topology is valid, but +//! sub-optimal. +//! +//! If the ALLOW_INVALID flag is set, then it will continue to validate the grids +//! even if no SLI configuration will allow all of the grids. In this case, a grid +//! grid with no matching GPU topology will have the error +//! flags NO_GPU_TOPOLOGY or NOT_SUPPORTED set. +//! +//! If the ALLOW_INVALID flag is not set and no matching SLI configuration is +//! found, then it will skip the rest of the validation and return +//! NVAPI_NO_ACTIVE_SLI_TOPOLOGY. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] setTopoFlags Zero or more of the NVAPI_MOSAIC_SETDISPLAYTOPO_FLAG_* +//! flags. +//! \param [in] pGridTopologies The array of grid topologies to verify. +//! \param [in,out] pTopoStatus The array of problems and warnings with each grid topology. +//! \param [in] gridCount The number of elements in the pGridTopologies and +//! pTopoStatus arrays. +//! +//! +//! \retval ::NVAPI_OK: Capabilities have been returned. +//! \retval ::NVAPI_INVALID_ARGUMENT: One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED: The NvAPI API needs to be initialized first +//! \retval ::NVAPI_NO_IMPLEMENTATION: This entrypoint not available +//! \retval ::NVAPI_NO_ACTIVE_SLI_TOPOLOGY: No matching GPU topologies could be found. +//! \retval ::NVAPI_ERROR: Miscellaneous error occurred +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_ValidateDisplayGrids(__in NvU32 setTopoFlags, + __in_ecount(gridCount) NV_MOSAIC_GRID_TOPO *pGridTopologies, + __inout_ecount_full(gridCount) NV_MOSAIC_DISPLAY_TOPO_STATUS *pTopoStatus, + __in NvU32 gridCount); + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_EnumDisplayModes +// +//! DESCRIPTION: Determines the set of available display modes for a given grid topology. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] pGridTopology The grid topology to use. +//! \param [in,out] pDisplaySettings A pointer to an array of display settings to populate, +//! or NULL to find out the total number of available modes. +//! \param [in,out] pDisplayCount If pDisplaySettings is not NULL, then pDisplayCount +//! should point to the number of elements in the +//! pDisplaySettings array. On return, it will contain the +//! number of modes that were actually returned. If +//! pDisplaySettings is NULL, then pDisplayCount will receive +//! the total number of modes that are available. +//! +//! +//! \retval ::NVAPI_OK Capabilities have been returned. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available +//! \retval ::NVAPI_ERROR Miscellaneous error occurred +//! +//! \ingroup mosaciapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_EnumDisplayModes(__in NV_MOSAIC_GRID_TOPO *pGridTopology, + __inout_ecount_part_opt(*pDisplayCount, *pDisplayCount) NV_MOSAIC_DISPLAY_SETTING *pDisplaySettings, + __inout NvU32 *pDisplayCount); + + +//! SUPPORTED OS: Windows 7 and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_EnumDisplayGrids +// +//! DESCRIPTION: Enumerates the current active grid topologies. This includes Mosaic, IG, and +//! Panoramic topologies, as well as single displays. +//! +//! If pGridTopologies is NULL, then pGridCount will be set to the number of active +//! grid topologies. +//! +//! If pGridTopologies is not NULL, then pGridCount contains the maximum number of +//! grid topologies to return. On return, pGridCount will be set to the number of +//! grid topologies that were returned. +//! +//! \param [out] pGridTopologies The list of active grid topologies. +//! \param [in,out] pGridCount A pointer to the number of grid topologies returned. +//! +//! \retval ::NVAPI_OK Capabilties have been returned. +//! \retval ::NVAPI_END_ENUMERATION There are no more topologies to return. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available +//! \retval ::NVAPI_ERROR Miscellaneous error occurred +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_EnumDisplayGrids(__inout_ecount_part_opt(*pGridCount, *pGridCount) NV_MOSAIC_GRID_TOPO *pGridTopologies, + __inout NvU32 *pGridCount); + + +//////////////////////////////////////////////////////////////////////////////////////// +// +// ########################################################################### +// DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS +// +// Below is the Phase 1 Mosaic stuff, the Phase 2 stuff above is what will remain +// once Phase 2 is complete. For a small amount of time, the two will co-exist. As +// soon as apps (nvapichk, NvAPITestMosaic, and CPL) are updated to use the Phase 2 +// entrypoints, the code below will be deleted. +// +// DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS - DELME_RUSS +// ########################################################################### +// +// Supported topos 1x4, 4x1 and 2x2 to start with. +// +// Selected scan out targets can be one per GPU or more than one on the same GPU. +// +// SAMPLE of MOSAIC 1x4 SCAN OUT TOPO with 8 pixel horizontal overlap +// +//+-------------------------++-------------------------++-------------------------++-------------------------+ +//| || || || | +//| || || || | +//| || || || | +//| DVI1 || DVI2 || DVI3 || DVI4 | +//| || || || | +//| || || || | +//| || || || | +//| || || || | +//+-------------------------++-------------------------++-------------------------++-------------------------+ + + +//! \addtogroup mosaicapi +//! @{ + +//! Used in NV_MOSAIC_TOPOLOGY. +#define NVAPI_MAX_MOSAIC_DISPLAY_ROWS 8 + +//! Used in NV_MOSAIC_TOPOLOGY. +#define NVAPI_MAX_MOSAIC_DISPLAY_COLUMNS 8 + +//! Used in NV_MOSAIC_TOPOLOGY. +#define NVAPI_MAX_MOSAIC_TOPOS 16 + +//! Used in NvAPI_GetCurrentMosaicTopology() and NvAPI_SetCurrentMosaicTopology(). +typedef struct +{ + NvU32 version; //!< Version number of the mosaic topology + NvU32 rowCount; //!< Horizontal display count + NvU32 colCount; //!< Vertical display count + + struct + { + NvPhysicalGpuHandle hPhysicalGPU; //!< Physical GPU to be used in the topology + NvU32 displayOutputId; //!< Connected display target + NvS32 overlapX; //!< Pixels of overlap on the left of target: (+overlap, -gap) + NvS32 overlapY; //!< Pixels of overlap on the top of target: (+overlap, -gap) + + } gpuLayout[NVAPI_MAX_MOSAIC_DISPLAY_ROWS][NVAPI_MAX_MOSAIC_DISPLAY_COLUMNS]; + +} NV_MOSAIC_TOPOLOGY; + +//! Used in NV_MOSAIC_TOPOLOGY. +#define NVAPI_MOSAIC_TOPOLOGY_VER MAKE_NVAPI_VERSION(NV_MOSAIC_TOPOLOGY,1) + +//! Used in NvAPI_GetSupportedMosaicTopologies(). +typedef struct +{ + NvU32 version; + NvU32 totalCount; //!< Count of valid topologies + NV_MOSAIC_TOPOLOGY topos[NVAPI_MAX_MOSAIC_TOPOS]; //!< Maximum number of topologies + +} NV_MOSAIC_SUPPORTED_TOPOLOGIES; + +//! Used in NV_MOSAIC_SUPPORTED_TOPOLOGIES. +#define NVAPI_MOSAIC_SUPPORTED_TOPOLOGIES_VER MAKE_NVAPI_VERSION(NV_MOSAIC_SUPPORTED_TOPOLOGIES,1) + +//!@} + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetSupportedMosaicTopologies +// +//! DESCRIPTION: This API returns all valid Mosaic topologies. +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 177 +//! +//! \param [out] pMosaicTopos An array of valid Mosaic topologies. +//! +//! \retval NVAPI_OK Call succeeded; 1 or more topologies were returned +//! \retval NVAPI_INVALID_ARGUMENT One or more arguments are invalid +//! \retval NVAPI_MIXED_TARGET_TYPES Mosaic topology is only possible with all targets of the same NV_GPU_OUTPUT_TYPE. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_NOT_SUPPORTED Mosaic is not supported with GPUs on this system. +//! \retval NVAPI_NO_ACTIVE_SLI_TOPOLOGY SLI is not enabled, yet needs to be, in order for this function to succeed. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetSupportedMosaicTopologies(NV_MOSAIC_SUPPORTED_TOPOLOGIES *pMosaicTopos); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetCurrentMosaicTopology +// +//! DESCRIPTION: This API gets the current Mosaic topology. +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 177 +//! +//! \param [out] pMosaicTopo The current Mosaic topology +//! \param [out] pEnabled TRUE if returned topology is currently enabled, else FALSE +//! +//! \retval NVAPI_OK Call succeeded +//! \retval NVAPI_INVALID_ARGUMENT One or more arguments are invalid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_NOT_SUPPORTED Mosaic is not supported with GPUs on this system. +//! \retval NVAPI_NO_ACTIVE_SLI_TOPOLOGY SLI is not enabled, yet needs to be, in order for this function to succeed. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GetCurrentMosaicTopology(NV_MOSAIC_TOPOLOGY *pMosaicTopo, NvU32 *pEnabled); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_SetCurrentMosaicTopology +// +//! DESCRIPTION: This API sets the Mosaic topology, and enables it so that the +//! Mosaic display settings are enumerated upon request. +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 177 +//! +//! \param [in] pMosaicTopo A valid Mosaic topology +//! +//! \retval NVAPI_OK Call succeeded +//! \retval NVAPI_INVALID_ARGUMENT One or more arguments are invalid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_NOT_SUPPORTED Mosaic is not supported with GPUs on this system. +//! \retval NVAPI_NO_ACTIVE_SLI_TOPOLOGY SLI is not enabled, yet needs to be, in order for this function to succeed. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SetCurrentMosaicTopology(NV_MOSAIC_TOPOLOGY *pMosaicTopo); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnableCurrentMosaicTopology +// +//! DESCRIPTION: This API enables or disables the current Mosaic topology. +//! When enabling, the last Mosaic topology will be set. +//! +//! - If enabled, enumeration of display settings will include valid Mosaic resolutions. +//! - If disabled, enumeration of display settings will not include Mosaic resolutions. +//! +//! SUPPORTED OS: Windows XP +//! +//! +//! \since Release: 177 +//! +//! \param [in] enable TRUE to enable the Mosaic Topology, FALSE to disable it. +//! +//! \retval NVAPI_OK Call succeeded +//! \retval NVAPI_INVALID_ARGUMENT One or more arguments are invalid +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \retval NVAPI_NOT_SUPPORTED Mosaic is not supported with GPUs on this system. +//! \retval NVAPI_NO_ACTIVE_SLI_TOPOLOGY SLI is not enabled, yet needs to be, in order for this function to succeed. +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnableCurrentMosaicTopology(NvU32 enable); + + +#define NVAPI_MAX_GSYNC_DEVICES 4 + + +// Sync Display APIs + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_EnumSyncDevices +// +//! DESCRIPTION: This API returns an array of Sync device handles. A Sync device handle represents a +//! single Sync device on the system. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [out] nvGSyncHandles- The caller provides an array of handles, which must contain at least +//! NVAPI_MAX_GSYNC_DEVICES elements. The API will zero out the entire array and then fill in one +//! or more handles. If an error occurs, the array is invalid. +//! \param [out] *gsyncCount- The caller provides the storage space. NvAPI_GSync_EnumSyncDevices +//! sets *gsyncCount to indicate how many of the elements in the nvGSyncHandles[] array are valid. +//! If an error occurs, *gsyncCount will be set to zero. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT nvGSyncHandles or gsyncCount is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_EnumSyncDevices(__out NvGSyncDeviceHandle nvGSyncHandles[NVAPI_MAX_GSYNC_DEVICES], __out NvU32 *gsyncCount); + + + +// GSync boardId values +#define NVAPI_GSYNC_BOARD_ID_P358 856 //!< GSync board ID 0x358, see NV_GSYNC_CAPABILITIES +#define NVAPI_GSYNC_BOARD_ID_P2060 8288 //!< GSync board ID 0x2060, see NV_GSYNC_CAPABILITIES + + +//! Used in NvAPI_GSync_QueryCapabilities(). +typedef struct _NV_GSYNC_CAPABILITIES_V1 +{ + NvU32 version; //!< Version of the structure + NvU32 boardId; //!< Board ID + NvU32 revision; //!< FPGA Revision + NvU32 capFlags; //!< Capabilities of the Sync board. Reserved for future use +} NV_GSYNC_CAPABILITIES_V1; + +typedef NV_GSYNC_CAPABILITIES_V1 NV_GSYNC_CAPABILITIES; + + +//! \ingroup gsyncapi +//! Macro for constructing the version field of NV_GSYNC_CAPABILITIES. +#define NV_GSYNC_CAPABILITIES_VER1 MAKE_NVAPI_VERSION(NV_GSYNC_CAPABILITIES_V1,1) +#define NV_GSYNC_CAPABILITIES_VER NV_GSYNC_CAPABILITIES_VER1 + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_QueryCapabilities +// +//! DESCRIPTION: This API returns the capabilities of the Sync device. +//! +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice- The handle for a Sync device for which the capabilities will be queried. +//! \param [inout] *pNvGSyncCapabilities- The caller provides the storage space. NvAPI_GSync_QueryCapabilities() sets +//! *pNvGSyncCapabilities to the version and capabilities details of the Sync device +//! If an error occurs, *pNvGSyncCapabilities will be set to NULL. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_QueryCapabilities(__in NvGSyncDeviceHandle hNvGSyncDevice, __inout NV_GSYNC_CAPABILITIES *pNvGSyncCapabilities); + + + +//! Connector values for a GPU. Used in NV_GSYNC_GPU. +typedef enum _NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR +{ + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR_NONE = 0, + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR_PRIMARY = 1, + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR_SECONDARY = 2, + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR_TERTIARY = 3, + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR_QUARTERNARY = 4, +} NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR; + +//! Display sync states. Used in NV_GSYNC_DISPLAY. +typedef enum _NVAPI_GSYNC_DISPLAY_SYNC_STATE +{ + NVAPI_GSYNC_DISPLAY_SYNC_STATE_UNSYNCED = 0, + NVAPI_GSYNC_DISPLAY_SYNC_STATE_SLAVE = 1, + NVAPI_GSYNC_DISPLAY_SYNC_STATE_MASTER = 2, +} NVAPI_GSYNC_DISPLAY_SYNC_STATE; + +typedef struct _NV_GSYNC_GPU +{ + NvU32 version; //!< Version of the structure + NvPhysicalGpuHandle hPhysicalGpu; //!< GPU handle + NVAPI_GSYNC_GPU_TOPOLOGY_CONNECTOR connector; //!< Indicates which connector on the device the GPU is connected to. + NvPhysicalGpuHandle hProxyPhysicalGpu; //!< GPU through which hPhysicalGpu is connected to the Sync device (if not directly connected) + //!< - this is NULL otherwise + NvU32 isSynced : 1; //!< Whether this GPU is sync'd or not. + NvU32 reserved : 31; //!< Should be set to ZERO +} NV_GSYNC_GPU; + +typedef struct _NV_GSYNC_DISPLAY +{ + NvU32 version; //!< Version of the structure + NvU32 displayId; //!< display identifier for displays.The GPU to which it is connected, can be retireved from NvAPI_SYS_GetPhysicalGpuFromDisplayId + NvU32 isMasterable : 1; //!< Can this display be the master? (Read only) + NvU32 reserved : 31; //!< Should be set to ZERO + NVAPI_GSYNC_DISPLAY_SYNC_STATE syncState; //!< Is this display slave/master + //!< (Retrieved with topology or set by caller for enable/disable sync) +} NV_GSYNC_DISPLAY; + +#define NV_GSYNC_DISPLAY_VER MAKE_NVAPI_VERSION(NV_GSYNC_DISPLAY,1) +#define NV_GSYNC_GPU_VER MAKE_NVAPI_VERSION(NV_GSYNC_GPU,1) + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_GetTopology +// +//! DESCRIPTION: This API returns the topology for the specified Sync device. +//! +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice- The caller provides the handle for a Sync device for which the topology will be queried. +//! \param [in, out] gsyncGpuCount- It returns number of GPUs connected to Sync device +//! \param [in, out] gsyncGPUs- It returns info about GPUs connected to Sync device +//! \param [in, out] gsyncDisplayCount- It returns number of active displays that belongs to Sync device +//! \param [in, out] gsyncDisplays- It returns info about all active displays that belongs to Sync device +//! +//! HOW TO USE: 1) make a call to get the number of GPUs connected OR displays synced through Sync device +//! by passing the gsyncGPUs OR gsyncDisplays as NULL respectively. Both gsyncGpuCount and gsyncDisplayCount can be retrieved in same call by passing +//! both gsyncGPUs and gsyncDisplays as NULL +//! On call success: +//! 2) Allocate memory based on gsyncGpuCount(for gsyncGPUs) and/or gsyncDisplayCount(for gsyncDisplays) then make a call to populate gsyncGPUs and/or gsyncDisplays respectively. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! \retval ::NVAPI_INSUFFICIENT_BUFFER When the actual number of GPUs/displays in the topology exceed the number of elements allocated for SyncGPUs/SyncDisplays respectively. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_GetTopology(__in NvGSyncDeviceHandle hNvGSyncDevice, __inout_opt NvU32 *gsyncGpuCount, __inout_ecount_part_opt(*gsyncGpuCount, *gsyncGpuCount) NV_GSYNC_GPU *gsyncGPUs, + __inout_opt NvU32 *gsyncDisplayCount, __inout_ecount_part_opt(*gsyncDisplayCount, *gsyncDisplayCount) NV_GSYNC_DISPLAY *gsyncDisplays); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_SetSyncStateSettings +// +//! DESCRIPTION: Sets a new sync state for the displays in system. +//! +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] gsyncDisplayCount- The number of displays in gsyncDisplays. +//! \param [in] pGsyncDisplays- The caller provides the structure containing all displays that need to be synchronized in the system. +//! The displays that are not part of pGsyncDisplays, will be un-synchronized. +//! \param [in] flags- Reserved for future use. +//! +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT If the display topology or count not valid. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! \retval ::NVAPI_INVALID_SYNC_TOPOLOGY 1.If any mosaic grid is partial. +//! 2.If timing(HVisible/VVisible/refreshRate) applied of any display is different. +//! 3.If There is a across GPU mosaic grid in system and that is not a part of pGsyncDisplays. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_SetSyncStateSettings(__in NvU32 gsyncDisplayCount, __in_ecount(gsyncDisplayCount) NV_GSYNC_DISPLAY *pGsyncDisplays, __in NvU32 flags); + + +//! \ingroup gsyncapi + +//! Source signal edge to be used for output pulse. See NV_GSYNC_CONTROL_PARAMS. +typedef enum _NVAPI_GSYNC_POLARITY +{ + NVAPI_GSYNC_POLARITY_RISING_EDGE = 0, + NVAPI_GSYNC_POLARITY_FALLING_EDGE = 1, + NVAPI_GSYNC_POLARITY_BOTH_EDGES = 2, +} NVAPI_GSYNC_POLARITY; + +//! Used in NV_GSYNC_CONTROL_PARAMS. +typedef enum _NVAPI_GSYNC_VIDEO_MODE +{ + NVAPI_GSYNC_VIDEO_MODE_NONE = 0, + NVAPI_GSYNC_VIDEO_MODE_TTL = 1, + NVAPI_GSYNC_VIDEO_MODE_NTSCPALSECAM = 2, + NVAPI_GSYNC_VIDEO_MODE_HDTV = 3, + NVAPI_GSYNC_VIDEO_MODE_COMPOSITE = 4, +} NVAPI_GSYNC_VIDEO_MODE; + +//! Used in NV_GSYNC_CONTROL_PARAMS. +typedef enum _NVAPI_GSYNC_SYNC_SOURCE +{ + NVAPI_GSYNC_SYNC_SOURCE_VSYNC = 0, + NVAPI_GSYNC_SYNC_SOURCE_HOUSESYNC = 1, +} NVAPI_GSYNC_SYNC_SOURCE; + +//! Used in NV_GSYNC_CONTROL_PARAMS. +typedef struct _NV_GSYNC_DELAY +{ + NvU32 version; //!< Version of the structure + NvU32 numLines; //!< delay to be induced in number of horizontal lines. + NvU32 numPixels; //!< delay to be induced in number of pixels. + NvU32 maxLines; //!< maximum number of lines supported at current display mode to induce delay. Updated by NvAPI_GSync_GetControlParameters(). Read only. + NvU32 minPixels; //!< minimum number of pixels required at current display mode to induce delay. Updated by NvAPI_GSync_GetControlParameters(). Read only. +} NV_GSYNC_DELAY; + +#define NV_GSYNC_DELAY_VER MAKE_NVAPI_VERSION(NV_GSYNC_DELAY,1) + +//! Used in NvAPI_GSync_GetControlParameters() and NvAPI_GSync_SetControlParameters(). +typedef struct _NV_GSYNC_CONTROL_PARAMS +{ + NvU32 version; //!< Version of the structure + NVAPI_GSYNC_POLARITY polarity; //!< Leading edge / Falling edge / both + NVAPI_GSYNC_VIDEO_MODE vmode; //!< None, TTL, NTSCPALSECAM, HDTV + NvU32 interval; //!< Number of pulses to wait between framelock signal generation + NVAPI_GSYNC_SYNC_SOURCE source; //!< VSync/House sync + NvU32 interlaceMode:1; //!< interlace mode for a Sync device + NvU32 reserved:31; //!< should be set zero + NV_GSYNC_DELAY syncSkew; //!< The time delay between the frame sync signal and the GPUs signal. + NV_GSYNC_DELAY startupDelay; //!< Sync start delay for master. +} NV_GSYNC_CONTROL_PARAMS; + +#define NV_GSYNC_CONTROL_PARAMS_VER MAKE_NVAPI_VERSION(NV_GSYNC_CONTROL_PARAMS,1) + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_GetControlParameters +// +//! DESCRIPTION: This API queries for sync control parameters as defined in NV_GSYNC_CONTROL_PARAMS. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice- The caller provides the handle of the Sync device for which to get parameters +//! \param [inout] *pGsyncControls- The caller provides the storage space. NvAPI_GSync_GetControlParameters() populates *pGsyncControls with values. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_GetControlParameters(__in NvGSyncDeviceHandle hNvGSyncDevice, __inout NV_GSYNC_CONTROL_PARAMS *pGsyncControls); + + + +////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_SetControlParameters +// +//! DESCRIPTION: This API sets control parameters as defined in NV_SYNC_CONTROL_PARAMS. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice- The caller provides the handle of the Sync device for which to get parameters +//! \param [inout] *pGsyncControls- The caller provides NV_GSYNC_CONTROL_PARAMS. skew and startDelay will be updated to the applied values. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any Sync Device. +//! \retval ::NVAPI_SYNC_MASTER_NOT_FOUND Control Parameters can only be set if there is a Sync Master enabled on the Gsync card. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_SetControlParameters(__in NvGSyncDeviceHandle hNvGSyncDevice, __inout NV_GSYNC_CONTROL_PARAMS *pGsyncControls); + + + + +//! Used in NvAPI_GSync_AdjustSyncDelay() +typedef enum _NVAPI_GSYNC_DELAY_TYPE +{ + NVAPI_GSYNC_DELAY_TYPE_UNKNOWN = 0, + NVAPI_GSYNC_DELAY_TYPE_SYNC_SKEW = 1, + NVAPI_GSYNC_DELAY_TYPE_STARTUP = 2 +} NVAPI_GSYNC_DELAY_TYPE; + +////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_AdjustSyncDelay +// +//! DESCRIPTION: This API adjusts the skew and startDelay to the closest possible values. Use this API before calling NvAPI_GSync_SetControlParameters for skew or startDelay. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 319 +//! +//! \param [in] hNvGSyncDevice- The caller provides the handle of the Sync device for which to get parameters +//! \param [in] delayType- Specifies whether the delay is syncSkew or startupDelay. +//! \param [inout] *pGsyncDelay- The caller provides NV_GSYNC_DELAY. skew and startDelay will be adjusted and updated to the closest values. +//! \param [out] *syncSteps- This parameter is optional. It returns the sync delay in unit steps. If 0, it means either the NV_GSYNC_DELAY::numPixels is less than NV_GSYNC_DELAY::minPixels or NV_GSYNC_DELAY::numOfLines exceeds the NV_GSYNC_DELAY::maxLines. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_AdjustSyncDelay(__in NvGSyncDeviceHandle hNvGSyncDevice, __in NVAPI_GSYNC_DELAY_TYPE delayType, __inout NV_GSYNC_DELAY *pGsyncDelay, __out_opt NvU32* syncSteps); + + + +//! Used in NvAPI_GSync_GetSyncStatus(). +typedef struct _NV_GSYNC_STATUS +{ + NvU32 version; //!< Version of the structure + NvU32 bIsSynced; //!< Is timing in sync? + NvU32 bIsStereoSynced; //!< Does the phase of the timing signal from the GPU = the phase of the master sync signal? + NvU32 bIsSyncSignalAvailable; //!< Is the sync signal available? +} NV_GSYNC_STATUS; + +//! Macro for constructing the version field for NV_GSYNC_STATUS. +#define NV_GSYNC_STATUS_VER MAKE_NVAPI_VERSION(NV_GSYNC_STATUS,1) + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_GetSyncStatus +// +//! DESCRIPTION: This API queries the sync status of a GPU - timing, stereosync and sync signal availability. +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice- Handle of the Sync device +//! \param [in] hPhysicalGpu- GPU to be queried for sync status. +//! \param [out] *status- The caller provides the storage space. NvAPI_GSync_GetSyncStatus() populates *status with +//! values - timing, stereosync and signal availability. On error, *status is set to NULL. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL / SyncTarget is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any G-Sync Device. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_GetSyncStatus(__in NvGSyncDeviceHandle hNvGSyncDevice, __in NvPhysicalGpuHandle hPhysicalGpu, __inout NV_GSYNC_STATUS *status); + + +//! \ingroup gsyncapi + +#define NVAPI_MAX_RJ45_PER_GSYNC 2 + +//! Used in NV_GSYNC_STATUS_PARAMS. +typedef enum _NVAPI_GSYNC_RJ45_IO +{ + NVAPI_GSYNC_RJ45_OUTPUT = 0, + NVAPI_GSYNC_RJ45_INPUT = 1, + NVAPI_GSYNC_RJ45_UNUSED = 2 //!< This field is used to notify that the framelock is not actually present. + +} NVAPI_GSYNC_RJ45_IO; + +//! \ingroup gsyncapi +//! Used in NvAPI_GSync_GetStatusParameters(). +typedef struct _NV_GSYNC_STATUS_PARAMS +{ + NvU32 version; + NvU32 refreshRate; //!< The refresh rate + NVAPI_GSYNC_RJ45_IO RJ45_IO[NVAPI_MAX_RJ45_PER_GSYNC]; //!< Configured as input / output + NvU32 RJ45_Ethernet[NVAPI_MAX_RJ45_PER_GSYNC]; //!< Connected to ethernet hub? [ERRONEOUSLY CONNECTED!] + NvU32 houseSyncIncoming; //!< Incoming house sync frequency in Hz + NvU32 bHouseSync; //!< Is house sync connected? +} NV_GSYNC_STATUS_PARAMS; + + +//! \ingroup gsyncapi +//! Macro for constructing the version field of NV_GSYNC_STATUS_PARAMS +#define NV_GSYNC_STATUS_PARAMS_VER MAKE_NVAPI_VERSION(NV_GSYNC_STATUS_PARAMS,1) + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GSync_GetStatusParameters +// +//! DESCRIPTION: This API queries for sync status parameters as defined in NV_GSYNC_STATUS_PARAMS. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 313 +//! +//! \param [in] hNvGSyncDevice The caller provides the handle of the GSync device for which to get parameters +//! \param [out] *pStatusParams The caller provides the storage space. NvAPI_GSync_GetStatusParameters populates *pStatusParams with +//! values. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval ::NVAPI_INVALID_ARGUMENT hNvGSyncDevice is NULL / pStatusParams is NULL. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND The queried Graphics system does not have any GSync Device. +//! +//! \ingroup gsyncapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GSync_GetStatusParameters(NvGSyncDeviceHandle hNvGSyncDevice, NV_GSYNC_STATUS_PARAMS *pStatusParams); + +//! @} + + + + + + + +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_RegisterResource +// +//! DESCRIPTION: This API binds a resource (surface/texture) so that it can be retrieved +//! internally by NVAPI. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! \param [in] pResource surface/texture +//! +//! \return ::NVAPI_OK, ::NVAPI_ERROR +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_RegisterResource(IDirect3DResource9* pResource); +#endif //defined(_D3D9_H_) +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_UnregisterResource +// +//! DESCRIPTION: This API unbinds a resource (surface/texture) after use. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] pResource surface/texture +//! +//! \return ::NVAPI_OK, ::NVAPI_ERROR +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_UnregisterResource(IDirect3DResource9* pResource); + +#endif //defined(_D3D9_H_) + + + +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_AliasSurfaceAsTexture +// +//! \fn NvAPI_D3D9_AliasSurfaceAsTexture(IDirect3DDevice9* pDev, +//! IDirect3DSurface9* pSurface, +//! IDirect3DTexture9 **ppTexture, +//! DWORD dwFlag); +//! DESCRIPTION: Create a texture that is an alias of a surface registered with NvAPI. The +//! new texture can be bound with IDirect3DDevice9::SetTexture(). Note that the texture must +//! be unbound before drawing to the surface again. +//! Unless the USE_SUPER flag is passed, MSAA surfaces will be resolved before +//! being used as a texture. MSAA depth buffers are resolved with a point filter, +//! and non-depth MSAA surfaces are resolved with a linear filter. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] pDev The D3D device that owns the objects +//! \param [in] pSurface Pointer to a surface that has been registered with NvAPI +//! to which a texture alias is to be provided +//! \param [out] ppTexture Fill with the texture created +//! \param [in] dwFlag NVAPI_ALIAS_SURFACE_FLAG to describe how to handle the texture +//! +//! \retval ::NVAPI_OK completed request +//! \retval ::NVAPI_INVALID_POINTER A null pointer was passed as an argument +//! \retval ::NVAPI_INVALID_ARGUMENT One of the arguments was invalid, probably dwFlag. +//! \retval ::NVAPI_UNREGISTERED_RESOURCE pSurface has not been registered with NvAPI +//! \retval ::NVAPI_ERROR error occurred +// +/////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup dx +//! See NvAPI_D3D9_AliasSurfaceAsTexture(). +typedef enum { + NVAPI_ALIAS_SURFACE_FLAG_NONE = 0x00000000, + NVAPI_ALIAS_SURFACE_FLAG_USE_SUPER = 0x00000001, //!< Use the surface's msaa buffer directly as a texture, rather than resolving. (This is much slower, but potentially has higher quality.) + NVAPI_ALIAS_SURFACE_FLAG_MASK = 0x00000001 +} NVAPI_ALIAS_SURFACE_FLAG; + + +//! \ingroup dx +NVAPI_INTERFACE NvAPI_D3D9_AliasSurfaceAsTexture(IDirect3DDevice9* pDev, + IDirect3DSurface9* pSurface, + IDirect3DTexture9 **ppTexture, + DWORD dwFlag); +#endif //defined(_D3D9_H_) +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_StretchRectEx +// +//! DESCRIPTION: This API copies the contents of the source resource to the destination +//! resource. This function can convert +//! between a wider range of surfaces than +//! IDirect3DDevice9::StretchRect. For example, it can copy +//! from a depth/stencil surface to a texture. +//! +//! The source and destination resources *must* be registered +//! with NvAPI before being used with NvAPI_D3D9_StretchRectEx(). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] pDevice The D3D device that owns the objects. +//! \param [in] pSourceResource Pointer to the source resource. +//! \param [in] pSrcRect Defines the rectangle on the source to copy from. If NULL, copy from the entire resource. +//! \param [in] pDestResource Pointer to the destination resource. +//! \param [in] pDstRect Defines the rectangle on the destination to copy to. If NULL, copy to the entire resource. +//! \param [in] Filter Choose a filtering method: D3DTEXF_NONE, D3DTEXF_POINT, D3DTEXF_LINEAR. +//! +//! \retval ::NVAPI_OK completed request +//! \retval ::NVAPI_INVALID_POINTER An invalid pointer was passed as an argument (probably NULL) +//! \retval ::NVAPI_INVALID_ARGUMENT One of the arguments was invalid +//! \retval ::NVAPI_UNREGISTERED_RESOURCE a resource was passed in without being registered +//! \retval ::NVAPI_ERROR error occurred +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_StretchRectEx(IDirect3DDevice9 * pDevice, + IDirect3DResource9 * pSourceResource, + CONST RECT * pSourceRect, + IDirect3DResource9 * pDestResource, + CONST RECT * pDestRect, + D3DTEXTUREFILTERTYPE Filter); + +#endif //defined(_D3D9_H_) +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_ClearRT +// +//! DESCRIPTION: This API Clears the currently bound render target(s) with the +//! given color +//! +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] pDevice The D3D device that owns the objects. +//! \param [in] dwNumRects The no of rectangles to clear. If 0, clear the entire surface (clipped to viewport) +//! \param [in] pRects Defines the rectangles to clear. Should be NULL if dwNumRects == 0 +//! \param [in] r red component of the clear color +//! \param [in] g green component of the clear color +//! \param [in] b blue component of the clear color +//! \param [in] a alpha component of the clear color +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_ClearRT(IDirect3DDevice9 * pDevice, + NvU32 dwNumRects, + CONST RECT * pRects, + float r, float g, float b, float a); +#endif //if defined(_D3D9_H_) + + + + + + + + + + +#if defined(_D3D9_H_) && defined(__cplusplus) +//! SUPPORTED OS: Windows XP and higher +//! + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_GetSurfaceHandle +// +//! This function gets the handle of a given surface. This handle uniquely +//! identifies the surface through all NvAPI entries. +//! +//! +//! \since Release: 313 +//! +//! \param [in] pSurface Surface to be identified +//! \param [out] pHandle Will be filled by the return handle +//! +//! \return An int which could be an NvAPI status or DX HRESULT code +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_GetSurfaceHandle(IDirect3DSurface9 *pSurface, + NVDX_ObjectHandle *pHandle); + +#endif //defined(_D3D9_H_) && defined(__cplusplus) + +#if defined(_D3D9_H_) && defined(__cplusplus) +//! SUPPORTED OS: Windows Vista and higher +//! +//! \addtogroup dxvidcontrol +//! @{ + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION_NAME: NvAPI_D3D9_VideoSetStereoInfo +// +//! \fn NvAPI_D3D9_VideoSetStereoInfo(IDirect3DDevice9 *pDev, +//! NV_DX_VIDEO_STEREO_INFO *pStereoInfo); +//! \code +//! DESCRIPTION: This api specifies the stereo format of a surface, so that the +//! surface could be used for stereo video processing or compositing. +//! In particular, this api could be used to link the left and right +//! views of a decoded picture. +//! +//! \since Release: 313 +//! +//! INPUT: pDev - The device on which the stereo surface will be used +//! pStereoInfo - The stereo format of the surface +//! +//! RETURN STATUS: an int which could be an NvAPI status or DX HRESULT code +//! \endcode +/////////////////////////////////////////////////////////////////////////////// + +#ifndef NV_STEREO_VIDEO_FORMAT_DEFINE +#define NV_STEREO_VIDEO_FORMAT_DEFINE + + +typedef enum _NV_STEREO_VIDEO_FORMAT +{ + NV_STEREO_VIDEO_FORMAT_NOT_STEREO = 0, + + NV_STEREO_VIDEO_FORMAT_SIDE_BY_SIDE_LR = 1, + NV_STEREO_VIDEO_FORMAT_SIDE_BY_SIDE_RL = 2, + NV_STEREO_VIDEO_FORMAT_TOP_BOTTOM_LR = 3, + NV_STEREO_VIDEO_FORMAT_TOP_BOTTOM_RL = 4, + NV_STEREO_VIDEO_FORMAT_ROW_INTERLEAVE_LR = 5, + NV_STEREO_VIDEO_FORMAT_ROW_INTERLEAVE_RL = 6, + NV_STEREO_VIDEO_FORMAT_TWO_FRAMES_LR = 7, + NV_STEREO_VIDEO_FORMAT_MONO_PLUS_OFFSET = 8, + + NV_STEREO_VIDEO_FORMAT_LAST = 9, +} NV_STEREO_VIDEO_FORMAT; + +#endif // NV_STEREO_VIDEO_FORMAT_DEFINE + + +typedef struct _NV_DX_VIDEO_STEREO_INFO { + NvU32 dwVersion; //!< Must be NV_DX_VIDEO_STEREO_INFO_VER + NVDX_ObjectHandle hSurface; //!< The surface whose stereo format is to be set + NVDX_ObjectHandle hLinkedSurface; //!< The linked surface (must be valid when eFormat==NV_STEREO_VIDEO_FORMAT_TWO_FRAMES_LR) + NV_STEREO_VIDEO_FORMAT eFormat; //!< Stereo format of the surface + NvS32 sViewOffset; //!< Signed offset of each view (positive offset indicating left view is shifted left) + BOOL bStereoEnable; //!< Whether stereo rendering should be enabled (if FALSE, only left view will be used) +} NV_DX_VIDEO_STEREO_INFO; + +//! Macro for constructing the version field of ::NV_DX_VIDEO_STEREO_INFO +#define NV_DX_VIDEO_STEREO_INFO_VER MAKE_NVAPI_VERSION(NV_DX_VIDEO_STEREO_INFO,1) + +NVAPI_INTERFACE NvAPI_D3D9_VideoSetStereoInfo(IDirect3DDevice9 *pDev, + NV_DX_VIDEO_STEREO_INFO *pStereoInfo); + +//! @} +#endif //defined(_D3D9_H_) && defined(__cplusplus) + + + + + + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_IsNvShaderExtnOpCodeSupported +// +//! DESCRIPTION: This function checks if a nv HLSL shader extension opcode is +//! supported on current hardware. List of opcodes is in nvShaderExtnEnums.h +//! To use Nvidia HLSL extensions the application must include nvHLSLExtns.h +//! in the hlsl shader code. See nvHLSLExtns.h for more details on supported opcodes. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] pDev The device on which to query for support, +//! should be a ID3D11Device+ device +//! \param [in] opCode the opcode to check +//! \param [out] pSupported true if supported, false otherwise +//! +//! RETURN STATUS: This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval :: NVAPI_OK if the call succeeded +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_IsNvShaderExtnOpCodeSupported(__in IUnknown *pDev, + __in NvU32 opCode, + __out bool *pSupported); + +#endif //defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_SetNvShaderExtnSlot +// +//! DESCRIPTION: This function sets the fake UAV slot that is used by Nvidia HLSL +//! shader extensions. All createShader calls made to the driver after +//! setting this slot would treat writes/reads to this UAV in a +//! different way. Applications are expected to bind null UAV to this slot. +//! The same slot is used for all shader stages. +//! To disable shader extensions the app may set this uav slot +//! to some value that is bigger than the max allowed slot index +//! e.g, 128 or 0xFFFFFFFF. +//! To use Nvidia HLSL extensions the application must include nvHLSLExtns.h +//! in the hlsl shader code. See nvHLSLExtns.h for more details. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] pDev The device for which to set the extension slot +//! should be a ID3D11Device+ device +//! \param [in] uavSlot the uav slot to use +//! +//! RETURN STATUS: This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! \retval :: NVAPI_OK : success, the uavSlot was set sucessfully +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_SetNvShaderExtnSlot(__in IUnknown *pDev, + __in NvU32 uavSlot); + +#endif //defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_BeginUAVOverlapEx +// +//! DESCRIPTION: Causes the driver to skip synchronization that is normally needed when accessing UAVs. +//! Applications must use this with caution otherwise this might cause data hazards when +//! multiple draw calls/compute shader launches are accessing same memory locations +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] *pDeviceOrContext pointer to D3D11 device, or D3D11 device context +//! \param [in] insertWFIFlags bit fields to indicate which WFI would be inserted (gfx / compute / both). +//! +//! RETURN STATUS: This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +typedef enum _NVAPI_D3D11_INSERTWFI_FLAG +{ + NVAPI_D3D_BEGIN_UAV_OVERLAP_NO_WFI = 0x00000000, //!< no WFI + NVAPI_D3D_BEGIN_UAV_OVERLAP_GFX_WFI = 0x00000001, //!< (bit 0) force graphics WFI + NVAPI_D3D_BEGIN_UAV_OVERLAP_COMP_WFI = 0x00000002, //!< (bit 1) force compute WFI +} NVAPI_D3D11_INSERTWFI_FLAG; + +NVAPI_INTERFACE NvAPI_D3D11_BeginUAVOverlapEx(__in IUnknown *pDeviceOrContext, __in NvU32 insertWFIFlags); + +#endif //defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_BeginUAVOverlap +// +//! DESCRIPTION: Causes the driver to skip synchronization that is normally needed when accessing UAVs. +//! Applications must use this with caution otherwise this might cause data hazards when +//! multiple draw calls/compute shader launches are accessing same memory locations +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] *pDeviceOrContext pointer to D3D11 device, or D3D11 device context +//! +//! RETURN STATUS: This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_BeginUAVOverlap(__in IUnknown *pDeviceOrContext); + +#endif //defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_EndUAVOverlap +// +//! DESCRIPTION: Re-enables driver synchronization between calls that access same UAVs +//! See NvAPI_D3D_BeginUAVOverlap for more details. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] *pDeviceOrContext pointer to D3D11 device, or D3D11 device context +//! +//! RETURN STATUS: This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, they are listed below. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_EndUAVOverlap(__in IUnknown *pDeviceOrContext); + +#endif //defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_SetFPSIndicatorState +// +//! DESCRIPTION: Display an overlay that tracks the number of times the app presents per second, or, +//! the number of frames-per-second (FPS) +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] bool Whether or not to enable the fps indicator. +//! +//! \return ::NVAPI_OK, +//! ::NVAPI_ERROR +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D_SetFPSIndicatorState(IUnknown *pDev, NvU8 doEnable); + +#endif //if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__) + + +//! SUPPORTED OS: Windows Vista and higher +//! + +#if defined (__cplusplus) && (defined(__d3d11_h__) || defined(__d3d11_1_h__)) + +enum NVAPI_QUAD_FILLMODE +{ + NVAPI_QUAD_FILLMODE_DISABLED = 0, + NVAPI_QUAD_FILLMODE_BBOX = 1, + NVAPI_QUAD_FILLMODE_FULL_VIEWPORT = 2, +}; + +typedef struct NvAPI_D3D11_RASTERIZER_DESC_EX +{ + // D3D11_RASTERIZER_DESC member variables + D3D11_FILL_MODE FillMode; + D3D11_CULL_MODE CullMode; + BOOL FrontCounterClockwise; + INT DepthBias; + FLOAT DepthBiasClamp; + FLOAT SlopeScaledDepthBias; + BOOL DepthClipEnable; + BOOL ScissorEnable; + BOOL MultisampleEnable; + BOOL AntialiasedLineEnable; + + // NvAPI_D3D11_RASTERIZER_DESC_EX specific member variables + NvU32 ForcedSampleCount; //1 it needs to match N, in non-TIR it needs to match RT sample count. Ignored if ForcePerSampleInterlock is set + NvU8 SamplePositionsX[16]; // YCrCb (4:4:4) + NVVIODATAFORMAT_R8G8B8A8_TO_YCRCBA4444 , //!< R8:G8:B8:A8 => YCrCbA (4:4:4:4) + NVVIODATAFORMAT_R8G8B8Z10_TO_YCRCBZ4444 , //!< R8:G8:B8:Z10 => YCrCbZ (4:4:4:4) + NVVIODATAFORMAT_R8G8B8_TO_YCRCB422 , //!< R8:G8:B8 => YCrCb (4:2:2) + NVVIODATAFORMAT_R8G8B8A8_TO_YCRCBA4224 , //!< R8:G8:B8:A8 => YCrCbA (4:2:2:4) + NVVIODATAFORMAT_R8G8B8Z10_TO_YCRCBZ4224 , //!< R8:G8:B8:Z10 => YCrCbZ (4:2:2:4) + NVVIODATAFORMAT_X8X8X8_444_PASSTHRU , //!< R8:G8:B8 => RGB (4:4:4) + NVVIODATAFORMAT_X8X8X8A8_4444_PASSTHRU , //!< R8:G8:B8:A8 => RGBA (4:4:4:4) + NVVIODATAFORMAT_X8X8X8Z10_4444_PASSTHRU , //!< R8:G8:B8:Z10 => RGBZ (4:4:4:4) + NVVIODATAFORMAT_X10X10X10_444_PASSTHRU , //!< Y10:CR10:CB10 => YCrCb (4:4:4) + NVVIODATAFORMAT_X10X8X8_444_PASSTHRU , //!< Y10:CR8:CB8 => YCrCb (4:4:4) + NVVIODATAFORMAT_X10X8X8A10_4444_PASSTHRU , //!< Y10:CR8:CB8:A10 => YCrCbA (4:4:4:4) + NVVIODATAFORMAT_X10X8X8Z10_4444_PASSTHRU , //!< Y10:CR8:CB8:Z10 => YCrCbZ (4:4:4:4) + NVVIODATAFORMAT_DUAL_R8G8B8_TO_DUAL_YCRCB422 , //!< R8:G8:B8 + R8:G8:B8 => YCrCb (4:2:2 + 4:2:2) + NVVIODATAFORMAT_DUAL_X8X8X8_TO_DUAL_422_PASSTHRU , //!< Y8:CR8:CB8 + Y8:CR8:CB8 => YCrCb (4:2:2 + 4:2:2) + NVVIODATAFORMAT_R10G10B10_TO_YCRCB422 , //!< R10:G10:B10 => YCrCb (4:2:2) + NVVIODATAFORMAT_R10G10B10_TO_YCRCB444 , //!< R10:G10:B10 => YCrCb (4:4:4) + NVVIODATAFORMAT_X12X12X12_444_PASSTHRU , //!< X12:X12:X12 => XXX (4:4:4) + NVVIODATAFORMAT_X12X12X12_422_PASSTHRU , //!< X12:X12:X12 => XXX (4:2:2) + NVVIODATAFORMAT_Y10CR10CB10_TO_YCRCB422 , //!< Y10:CR10:CB10 => YCrCb (4:2:2) + NVVIODATAFORMAT_Y8CR8CB8_TO_YCRCB422 , //!< Y8:CR8:CB8 => YCrCb (4:2:2) + NVVIODATAFORMAT_Y10CR8CB8A10_TO_YCRCBA4224 , //!< Y10:CR8:CB8:A10 => YCrCbA (4:2:2:4) + NVVIODATAFORMAT_R10G10B10_TO_RGB444 , //!< R10:G10:B10 => RGB (4:4:4) + NVVIODATAFORMAT_R12G12B12_TO_YCRCB444 , //!< R12:G12:B12 => YCrCb (4:4:4) + NVVIODATAFORMAT_R12G12B12_TO_YCRCB422 , //!< R12:G12:B12 => YCrCb (4:2:2) +}NVVIODATAFORMAT; + +//! Video output area +typedef enum _NVVIOOUTPUTAREA +{ + NVVIOOUTPUTAREA_FULLSIZE , //!< Output to entire video resolution (full size) + NVVIOOUTPUTAREA_SAFEACTION , //!< Output to centered 90% of video resolution (safe action) + NVVIOOUTPUTAREA_SAFETITLE , //!< Output to centered 80% of video resolution (safe title) +}NVVIOOUTPUTAREA; + +//! Synchronization source +typedef enum _NVVIOSYNCSOURCE +{ + NVVIOSYNCSOURCE_SDISYNC , //!< SDI Sync (Digital input) + NVVIOSYNCSOURCE_COMPSYNC , //!< COMP Sync (Composite input) +}NVVIOSYNCSOURCE; + +//! Composite synchronization type +typedef enum _NVVIOCOMPSYNCTYPE +{ + NVVIOCOMPSYNCTYPE_AUTO , //!< Auto-detect + NVVIOCOMPSYNCTYPE_BILEVEL , //!< Bi-level signal + NVVIOCOMPSYNCTYPE_TRILEVEL , //!< Tri-level signal +}NVVIOCOMPSYNCTYPE; + +//! Video input output status +typedef enum _NVVIOINPUTOUTPUTSTATUS +{ + NVINPUTOUTPUTSTATUS_OFF , //!< Not in use + NVINPUTOUTPUTSTATUS_ERROR , //!< Error detected + NVINPUTOUTPUTSTATUS_SDI_SD , //!< SDI (standard-definition) + NVINPUTOUTPUTSTATUS_SDI_HD , //!< SDI (high-definition) +}NVVIOINPUTOUTPUTSTATUS; + +//! Synchronization input status +typedef enum _NVVIOSYNCSTATUS +{ + NVVIOSYNCSTATUS_OFF , //!< Sync not detected + NVVIOSYNCSTATUS_ERROR , //!< Error detected + NVVIOSYNCSTATUS_SYNCLOSS , //!< Genlock in use, format mismatch with output + NVVIOSYNCSTATUS_COMPOSITE , //!< Composite sync + NVVIOSYNCSTATUS_SDI_SD , //!< SDI sync (standard-definition) + NVVIOSYNCSTATUS_SDI_HD , //!< SDI sync (high-definition) +}NVVIOSYNCSTATUS; + +//! Video Capture Status +typedef enum _NVVIOCAPTURESTATUS +{ + NVVIOSTATUS_STOPPED , //!< Sync not detected + NVVIOSTATUS_RUNNING , //!< Error detected + NVVIOSTATUS_ERROR , //!< Genlock in use, format mismatch with output +}NVVIOCAPTURESTATUS; + +//! Video Capture Status +typedef enum _NVVIOSTATUSTYPE +{ + NVVIOSTATUSTYPE_IN , //!< Input Status + NVVIOSTATUSTYPE_OUT , //!< Output Status +}NVVIOSTATUSTYPE; + + +//! Assumption, maximum 4 SDI input and 4 SDI output cards supported on a system +#define NVAPI_MAX_VIO_DEVICES 8 + +//! 4 physical jacks supported on each SDI input card. +#define NVAPI_MAX_VIO_JACKS 4 + + +//! Each physical jack an on SDI input card can have +//! two "channels" in the case of "3G" VideoFormats, as specified +//! by SMPTE 425; for non-3G VideoFormats, only the first channel within +//! a physical jack is valid. +#define NVAPI_MAX_VIO_CHANNELS_PER_JACK 2 + +//! 4 Streams, 1 per physical jack +#define NVAPI_MAX_VIO_STREAMS 4 + +#define NVAPI_MIN_VIO_STREAMS 1 + +//! SDI input supports a max of 2 links per stream +#define NVAPI_MAX_VIO_LINKS_PER_STREAM 2 + + +#define NVAPI_MAX_FRAMELOCK_MAPPING_MODES 20 + +//! Min number of capture images +#define NVAPI_GVI_MIN_RAW_CAPTURE_IMAGES 1 + +//! Max number of capture images +#define NVAPI_GVI_MAX_RAW_CAPTURE_IMAGES 32 + +//! Default number of capture images +#define NVAPI_GVI_DEFAULT_RAW_CAPTURE_IMAGES 5 + + + +// Data Signal notification events. These need a event handler in RM. +// Register/Unregister and PopEvent NVAPI's are already available. + +//! Device configuration +typedef enum _NVVIOCONFIGTYPE +{ + NVVIOCONFIGTYPE_IN , //!< Input Status + NVVIOCONFIGTYPE_OUT , //!< Output Status +}NVVIOCONFIGTYPE; + +typedef enum _NVVIOCOLORSPACE +{ + NVVIOCOLORSPACE_UNKNOWN, + NVVIOCOLORSPACE_YCBCR, + NVVIOCOLORSPACE_YCBCRA, + NVVIOCOLORSPACE_YCBCRD, + NVVIOCOLORSPACE_GBR, + NVVIOCOLORSPACE_GBRA, + NVVIOCOLORSPACE_GBRD, +} NVVIOCOLORSPACE; + +//! Component sampling +typedef enum _NVVIOCOMPONENTSAMPLING +{ + NVVIOCOMPONENTSAMPLING_UNKNOWN, + NVVIOCOMPONENTSAMPLING_4444, + NVVIOCOMPONENTSAMPLING_4224, + NVVIOCOMPONENTSAMPLING_444, + NVVIOCOMPONENTSAMPLING_422 +} NVVIOCOMPONENTSAMPLING; + +typedef enum _NVVIOBITSPERCOMPONENT +{ + NVVIOBITSPERCOMPONENT_UNKNOWN, + NVVIOBITSPERCOMPONENT_8, + NVVIOBITSPERCOMPONENT_10, + NVVIOBITSPERCOMPONENT_12, +} NVVIOBITSPERCOMPONENT; + +typedef enum _NVVIOLINKID +{ + NVVIOLINKID_UNKNOWN, + NVVIOLINKID_A, + NVVIOLINKID_B, + NVVIOLINKID_C, + NVVIOLINKID_D +} NVVIOLINKID; + + +typedef enum _NVVIOANCPARITYCOMPUTATION +{ + NVVIOANCPARITYCOMPUTATION_AUTO, + NVVIOANCPARITYCOMPUTATION_ON, + NVVIOANCPARITYCOMPUTATION_OFF +} NVVIOANCPARITYCOMPUTATION; + + + +//! @} + + +//--------------------------------------------------------------------- +// Structures +//--------------------------------------------------------------------- + +//! \addtogroup vidio +//! @{ + + +//! Supports Serial Digital Interface (SDI) output +#define NVVIOCAPS_VIDOUT_SDI 0x00000001 + +//! Supports Internal timing source +#define NVVIOCAPS_SYNC_INTERNAL 0x00000100 + +//! Supports Genlock timing source +#define NVVIOCAPS_SYNC_GENLOCK 0x00000200 + +//! Supports Serial Digital Interface (SDI) synchronization input +#define NVVIOCAPS_SYNCSRC_SDI 0x00001000 + +//! Supports Composite synchronization input +#define NVVIOCAPS_SYNCSRC_COMP 0x00002000 + +//! Supports Desktop transparent mode +#define NVVIOCAPS_OUTPUTMODE_DESKTOP 0x00010000 + +//! Supports OpenGL application mode +#define NVVIOCAPS_OUTPUTMODE_OPENGL 0x00020000 + +//! Supports Serial Digital Interface (SDI) input +#define NVVIOCAPS_VIDIN_SDI 0x00100000 + +//! Supports Packed ANC +#define NVVIOCAPS_PACKED_ANC_SUPPORTED 0x00200000 + +//! Supports ANC audio blanking +#define NVVIOCAPS_AUDIO_BLANKING_SUPPORTED 0x00400000 + +//! SDI-class interface: SDI output with two genlock inputs +#define NVVIOCLASS_SDI 0x00000001 + +//! Device capabilities +typedef struct _NVVIOCAPS +{ + NvU32 version; //!< Structure version + NvAPI_String adapterName; //!< Graphics adapter name + NvU32 adapterClass; //!< Graphics adapter classes (NVVIOCLASS_SDI mask) + NvU32 adapterCaps; //!< Graphics adapter capabilities (NVVIOCAPS_* mask) + NvU32 dipSwitch; //!< On-board DIP switch settings bits + NvU32 dipSwitchReserved; //!< On-board DIP switch settings reserved bits + NvU32 boardID; //!< Board ID + //! Driver version + struct // + { + NvU32 majorVersion; //!< Major version. For GVI, majorVersion contains MajorVersion(HIWORD) And MinorVersion(LOWORD) + NvU32 minorVersion; //!< Minor version. For GVI, minorVersion contains Revison(HIWORD) And Build(LOWORD) + } driver; // + //! Firmware version + struct + { + NvU32 majorVersion; //!< Major version. In version 2, for both GVI and GVO, majorVersion contains MajorVersion(HIWORD) And MinorVersion(LOWORD) + NvU32 minorVersion; //!< Minor version. In version 2, for both GVI and GVO, minorVersion contains Revison(HIWORD) And Build(LOWORD) + } firmWare; // + NVVIOOWNERID ownerId; //!< Unique identifier for owner of video output (NVVIOOWNERID_INVALID if free running) + NVVIOOWNERTYPE ownerType; //!< Owner type (OpenGL application or Desktop mode) +} NVVIOCAPS; + +//! Macro for constructing the version field of NVVIOCAPS +#define NVVIOCAPS_VER1 MAKE_NVAPI_VERSION(NVVIOCAPS,1) +#define NVVIOCAPS_VER2 MAKE_NVAPI_VERSION(NVVIOCAPS,2) +#define NVVIOCAPS_VER NVVIOCAPS_VER2 + +//! Input channel status +typedef struct _NVVIOCHANNELSTATUS +{ + NvU32 smpte352; //!< 4-byte SMPTE 352 video payload identifier + NVVIOSIGNALFORMAT signalFormat; //!< Signal format + NVVIOBITSPERCOMPONENT bitsPerComponent; //!< Bits per component + NVVIOCOMPONENTSAMPLING samplingFormat; //!< Sampling format + NVVIOCOLORSPACE colorSpace; //!< Color space + NVVIOLINKID linkID; //!< Link ID +} NVVIOCHANNELSTATUS; + +//! Input device status +typedef struct _NVVIOINPUTSTATUS +{ + NVVIOCHANNELSTATUS vidIn[NVAPI_MAX_VIO_JACKS][NVAPI_MAX_VIO_CHANNELS_PER_JACK]; //!< Video input status per channel within a jack + NVVIOCAPTURESTATUS captureStatus; //!< status of video capture +} NVVIOINPUTSTATUS; + +//! Output device status +typedef struct _NVVIOOUTPUTSTATUS +{ + NVVIOINPUTOUTPUTSTATUS vid1Out; //!< Video 1 output status + NVVIOINPUTOUTPUTSTATUS vid2Out; //!< Video 2 output status + NVVIOSYNCSTATUS sdiSyncIn; //!< SDI sync input status + NVVIOSYNCSTATUS compSyncIn; //!< Composite sync input status + NvU32 syncEnable; //!< Sync enable (TRUE if using syncSource) + NVVIOSYNCSOURCE syncSource; //!< Sync source + NVVIOSIGNALFORMAT syncFormat; //!< Sync format + NvU32 frameLockEnable; //!< Framelock enable flag + NvU32 outputVideoLocked; //!< Output locked status + NvU32 dataIntegrityCheckErrorCount; //!< Data integrity check error count + NvU32 dataIntegrityCheckEnabled; //!< Data integrity check status enabled + NvU32 dataIntegrityCheckFailed; //!< Data integrity check status failed + NvU32 uSyncSourceLocked; //!< genlocked to framelocked to ref signal + NvU32 uPowerOn; //!< TRUE: indicates there is sufficient power +} NVVIOOUTPUTSTATUS; + +//! Video device status. +typedef struct _NVVIOSTATUS +{ + NvU32 version; //!< Structure version + NVVIOSTATUSTYPE nvvioStatusType; //!< Input or Output status + union + { + NVVIOINPUTSTATUS inStatus; //!< Input device status + NVVIOOUTPUTSTATUS outStatus; //!< Output device status + }vioStatus; +} NVVIOSTATUS; + +//! Macro for constructingthe version field of NVVIOSTATUS +#define NVVIOSTATUS_VER MAKE_NVAPI_VERSION(NVVIOSTATUS,1) + +//! Output region +typedef struct _NVVIOOUTPUTREGION +{ + NvU32 x; //!< Horizontal origin in pixels + NvU32 y; //!< Vertical origin in pixels + NvU32 width; //!< Width of region in pixels + NvU32 height; //!< Height of region in pixels +} NVVIOOUTPUTREGION; + +//! Gamma ramp (8-bit index) +typedef struct _NVVIOGAMMARAMP8 +{ + NvU16 uRed[256]; //!< Red channel gamma ramp (8-bit index, 16-bit values) + NvU16 uGreen[256]; //!< Green channel gamma ramp (8-bit index, 16-bit values) + NvU16 uBlue[256]; //!< Blue channel gamma ramp (8-bit index, 16-bit values) +} NVVIOGAMMARAMP8; + +//! Gamma ramp (10-bit index) +typedef struct _NVVIOGAMMARAMP10 +{ + NvU16 uRed[1024]; //!< Red channel gamma ramp (10-bit index, 16-bit values) + NvU16 uGreen[1024]; //!< Green channel gamma ramp (10-bit index, 16-bit values) + NvU16 uBlue[1024]; //!< Blue channel gamma ramp (10-bit index, 16-bit values) +} NVVIOGAMMARAMP10; + + +//! Sync delay +typedef struct _NVVIOSYNCDELAY +{ + NvU32 version; //!< Structure version + NvU32 horizontalDelay; //!< Horizontal delay in pixels + NvU32 verticalDelay; //!< Vertical delay in lines +} NVVIOSYNCDELAY; + +//! Macro for constructing the version field of NVVIOSYNCDELAY +#define NVVIOSYNCDELAY_VER MAKE_NVAPI_VERSION(NVVIOSYNCDELAY,1) + + +//! Video mode information +typedef struct _NVVIOVIDEOMODE +{ + NvU32 horizontalPixels; //!< Horizontal resolution (in pixels) + NvU32 verticalLines; //!< Vertical resolution for frame (in lines) + float fFrameRate; //!< Frame rate + NVVIOINTERLACEMODE interlaceMode; //!< Interlace mode + NVVIOVIDEOSTANDARD videoStandard; //!< SMPTE standards format + NVVIOVIDEOTYPE videoType; //!< HD or SD signal classification +} NVVIOVIDEOMODE; + +//! Signal format details +typedef struct _NVVIOSIGNALFORMATDETAIL +{ + NVVIOSIGNALFORMAT signalFormat; //!< Signal format enumerated value + NVVIOVIDEOMODE videoMode; //!< Video mode for signal format +}NVVIOSIGNALFORMATDETAIL; + + +//! R8:G8:B8 +#define NVVIOBUFFERFORMAT_R8G8B8 0x00000001 + +//! R8:G8:B8:Z24 +#define NVVIOBUFFERFORMAT_R8G8B8Z24 0x00000002 + +//! R8:G8:B8:A8 +#define NVVIOBUFFERFORMAT_R8G8B8A8 0x00000004 + +//! R8:G8:B8:A8:Z24 +#define NVVIOBUFFERFORMAT_R8G8B8A8Z24 0x00000008 + +//! R16FP:G16FP:B16FP +#define NVVIOBUFFERFORMAT_R16FPG16FPB16FP 0x00000010 + +//! R16FP:G16FP:B16FP:Z24 +#define NVVIOBUFFERFORMAT_R16FPG16FPB16FPZ24 0x00000020 + +//! R16FP:G16FP:B16FP:A16FP +#define NVVIOBUFFERFORMAT_R16FPG16FPB16FPA16FP 0x00000040 + +//! R16FP:G16FP:B16FP:A16FP:Z24 +#define NVVIOBUFFERFORMAT_R16FPG16FPB16FPA16FPZ24 0x00000080 + + + +//! Data format details +typedef struct _NVVIODATAFORMATDETAIL +{ + NVVIODATAFORMAT dataFormat; //!< Data format enumerated value + NvU32 vioCaps; //!< Data format capabilities (NVVIOCAPS_* mask) +}NVVIODATAFORMATDETAIL; + +//! Colorspace conversion +typedef struct _NVVIOCOLORCONVERSION +{ + NvU32 version; //!< Structure version + float colorMatrix[3][3]; //!< Output[n] = + float colorOffset[3]; //!< Input[0] * colorMatrix[n][0] + + float colorScale[3]; //!< Input[1] * colorMatrix[n][1] + + //!< Input[2] * colorMatrix[n][2] + + //!< OutputRange * colorOffset[n] + //!< where OutputRange is the standard magnitude of + //!< Output[n][n] and colorMatrix and colorOffset + //!< values are within the range -1.0 to +1.0 + NvU32 compositeSafe; //!< compositeSafe constrains luminance range when using composite output +} NVVIOCOLORCONVERSION; + +//! macro for constructing the version field of _NVVIOCOLORCONVERSION. +#define NVVIOCOLORCONVERSION_VER MAKE_NVAPI_VERSION(NVVIOCOLORCONVERSION,1) + +//! Gamma correction +typedef struct _NVVIOGAMMACORRECTION +{ + NvU32 version; //!< Structure version + NvU32 vioGammaCorrectionType; //!< Gamma correction type (8-bit or 10-bit) + //! Gamma correction: + union + { + NVVIOGAMMARAMP8 gammaRamp8; //!< Gamma ramp (8-bit index, 16-bit values) + NVVIOGAMMARAMP10 gammaRamp10; //!< Gamma ramp (10-bit index, 16-bit values) + }gammaRamp; + float fGammaValueR; //!< Red Gamma value within gamma ranges. 0.5 - 6.0 + float fGammaValueG; //!< Green Gamma value within gamma ranges. 0.5 - 6.0 + float fGammaValueB; //!< Blue Gamma value within gamma ranges. 0.5 - 6.0 +} NVVIOGAMMACORRECTION; + +//! Macro for constructing thevesion field of _NVVIOGAMMACORRECTION +#define NVVIOGAMMACORRECTION_VER MAKE_NVAPI_VERSION(NVVIOGAMMACORRECTION,1) + +//! Maximum number of ranges per channel +#define MAX_NUM_COMPOSITE_RANGE 2 + + +typedef struct _NVVIOCOMPOSITERANGE +{ + NvU32 uRange; + NvU32 uEnabled; + NvU32 uMin; + NvU32 uMax; +} NVVIOCOMPOSITERANGE; + + + +// Device configuration (fields masks indicating NVVIOCONFIG fields to use for NvAPI_VIO_GetConfig/NvAPI_VIO_SetConfig() ) +// +#define NVVIOCONFIG_SIGNALFORMAT 0x00000001 //!< fields: signalFormat +#define NVVIOCONFIG_DATAFORMAT 0x00000002 //!< fields: dataFormat +#define NVVIOCONFIG_OUTPUTREGION 0x00000004 //!< fields: outputRegion +#define NVVIOCONFIG_OUTPUTAREA 0x00000008 //!< fields: outputArea +#define NVVIOCONFIG_COLORCONVERSION 0x00000010 //!< fields: colorConversion +#define NVVIOCONFIG_GAMMACORRECTION 0x00000020 //!< fields: gammaCorrection +#define NVVIOCONFIG_SYNCSOURCEENABLE 0x00000040 //!< fields: syncSource and syncEnable +#define NVVIOCONFIG_SYNCDELAY 0x00000080 //!< fields: syncDelay +#define NVVIOCONFIG_COMPOSITESYNCTYPE 0x00000100 //!< fields: compositeSyncType +#define NVVIOCONFIG_FRAMELOCKENABLE 0x00000200 //!< fields: EnableFramelock +#define NVVIOCONFIG_422FILTER 0x00000400 //!< fields: bEnable422Filter +#define NVVIOCONFIG_COMPOSITETERMINATE 0x00000800 //!< fields: bCompositeTerminate (Not supported on Quadro FX 4000 SDI) +#define NVVIOCONFIG_DATAINTEGRITYCHECK 0x00001000 //!< fields: bEnableDataIntegrityCheck (Not supported on Quadro FX 4000 SDI) +#define NVVIOCONFIG_CSCOVERRIDE 0x00002000 //!< fields: colorConversion override +#define NVVIOCONFIG_FLIPQUEUELENGTH 0x00004000 //!< fields: flipqueuelength control +#define NVVIOCONFIG_ANCTIMECODEGENERATION 0x00008000 //!< fields: bEnableANCTimeCodeGeneration +#define NVVIOCONFIG_COMPOSITE 0x00010000 //!< fields: bEnableComposite +#define NVVIOCONFIG_ALPHAKEYCOMPOSITE 0x00020000 //!< fields: bEnableAlphaKeyComposite +#define NVVIOCONFIG_COMPOSITE_Y 0x00040000 //!< fields: compRange +#define NVVIOCONFIG_COMPOSITE_CR 0x00080000 //!< fields: compRange +#define NVVIOCONFIG_COMPOSITE_CB 0x00100000 //!< fields: compRange +#define NVVIOCONFIG_FULL_COLOR_RANGE 0x00200000 //!< fields: bEnableFullColorRange +#define NVVIOCONFIG_RGB_DATA 0x00400000 //!< fields: bEnableRGBData +#define NVVIOCONFIG_RESERVED_SDIOUTPUTENABLE 0x00800000 //!< fields: bEnableSDIOutput +#define NVVIOCONFIG_STREAMS 0x01000000 //!< fields: streams +#define NVVIOCONFIG_ANC_PARITY_COMPUTATION 0x02000000 //!< fields: ancParityComputation +#define NVVIOCONFIG_ANC_AUDIO_REPEAT 0x04000000 //!< fields: enableAudioBlanking + + +// Don't forget to update NVVIOCONFIG_VALIDFIELDS in nvapi.spec when NVVIOCONFIG_ALLFIELDS changes. +#define NVVIOCONFIG_ALLFIELDS ( NVVIOCONFIG_SIGNALFORMAT | \ + NVVIOCONFIG_DATAFORMAT | \ + NVVIOCONFIG_OUTPUTREGION | \ + NVVIOCONFIG_OUTPUTAREA | \ + NVVIOCONFIG_COLORCONVERSION | \ + NVVIOCONFIG_GAMMACORRECTION | \ + NVVIOCONFIG_SYNCSOURCEENABLE | \ + NVVIOCONFIG_SYNCDELAY | \ + NVVIOCONFIG_COMPOSITESYNCTYPE | \ + NVVIOCONFIG_FRAMELOCKENABLE | \ + NVVIOCONFIG_422FILTER | \ + NVVIOCONFIG_COMPOSITETERMINATE | \ + NVVIOCONFIG_DATAINTEGRITYCHECK | \ + NVVIOCONFIG_CSCOVERRIDE | \ + NVVIOCONFIG_FLIPQUEUELENGTH | \ + NVVIOCONFIG_ANCTIMECODEGENERATION | \ + NVVIOCONFIG_COMPOSITE | \ + NVVIOCONFIG_ALPHAKEYCOMPOSITE | \ + NVVIOCONFIG_COMPOSITE_Y | \ + NVVIOCONFIG_COMPOSITE_CR | \ + NVVIOCONFIG_COMPOSITE_CB | \ + NVVIOCONFIG_FULL_COLOR_RANGE | \ + NVVIOCONFIG_RGB_DATA | \ + NVVIOCONFIG_RESERVED_SDIOUTPUTENABLE | \ + NVVIOCONFIG_STREAMS | \ + NVVIOCONFIG_ANC_PARITY_COMPUTATION | \ + NVVIOCONFIG_ANC_AUDIO_REPEAT ) + +#define NVVIOCONFIG_VALIDFIELDS ( NVVIOCONFIG_SIGNALFORMAT | \ + NVVIOCONFIG_DATAFORMAT | \ + NVVIOCONFIG_OUTPUTREGION | \ + NVVIOCONFIG_OUTPUTAREA | \ + NVVIOCONFIG_COLORCONVERSION | \ + NVVIOCONFIG_GAMMACORRECTION | \ + NVVIOCONFIG_SYNCSOURCEENABLE | \ + NVVIOCONFIG_SYNCDELAY | \ + NVVIOCONFIG_COMPOSITESYNCTYPE | \ + NVVIOCONFIG_FRAMELOCKENABLE | \ + NVVIOCONFIG_RESERVED_SDIOUTPUTENABLE | \ + NVVIOCONFIG_422FILTER | \ + NVVIOCONFIG_COMPOSITETERMINATE | \ + NVVIOCONFIG_DATAINTEGRITYCHECK | \ + NVVIOCONFIG_CSCOVERRIDE | \ + NVVIOCONFIG_FLIPQUEUELENGTH | \ + NVVIOCONFIG_ANCTIMECODEGENERATION | \ + NVVIOCONFIG_COMPOSITE | \ + NVVIOCONFIG_ALPHAKEYCOMPOSITE | \ + NVVIOCONFIG_COMPOSITE_Y | \ + NVVIOCONFIG_COMPOSITE_CR | \ + NVVIOCONFIG_COMPOSITE_CB | \ + NVVIOCONFIG_FULL_COLOR_RANGE | \ + NVVIOCONFIG_RGB_DATA | \ + NVVIOCONFIG_RESERVED_SDIOUTPUTENABLE | \ + NVVIOCONFIG_STREAMS | \ + NVVIOCONFIG_ANC_PARITY_COMPUTATION | \ + NVVIOCONFIG_ANC_AUDIO_REPEAT) + +#define NVVIOCONFIG_DRIVERFIELDS ( NVVIOCONFIG_OUTPUTREGION | \ + NVVIOCONFIG_OUTPUTAREA | \ + NVVIOCONFIG_COLORCONVERSION | \ + NVVIOCONFIG_FLIPQUEUELENGTH) + +#define NVVIOCONFIG_GAMMAFIELDS ( NVVIOCONFIG_GAMMACORRECTION ) + +#define NVVIOCONFIG_RMCTRLFIELDS ( NVVIOCONFIG_SIGNALFORMAT | \ + NVVIOCONFIG_DATAFORMAT | \ + NVVIOCONFIG_SYNCSOURCEENABLE | \ + NVVIOCONFIG_COMPOSITESYNCTYPE | \ + NVVIOCONFIG_FRAMELOCKENABLE | \ + NVVIOCONFIG_422FILTER | \ + NVVIOCONFIG_COMPOSITETERMINATE | \ + NVVIOCONFIG_DATAINTEGRITYCHECK | \ + NVVIOCONFIG_COMPOSITE | \ + NVVIOCONFIG_ALPHAKEYCOMPOSITE | \ + NVVIOCONFIG_COMPOSITE_Y | \ + NVVIOCONFIG_COMPOSITE_CR | \ + NVVIOCONFIG_COMPOSITE_CB) + +#define NVVIOCONFIG_RMSKEWFIELDS ( NVVIOCONFIG_SYNCDELAY ) + +#define NVVIOCONFIG_ALLOWSDIRUNNING_FIELDS ( NVVIOCONFIG_DATAINTEGRITYCHECK | \ + NVVIOCONFIG_SYNCDELAY | \ + NVVIOCONFIG_CSCOVERRIDE | \ + NVVIOCONFIG_ANCTIMECODEGENERATION | \ + NVVIOCONFIG_COMPOSITE | \ + NVVIOCONFIG_ALPHAKEYCOMPOSITE | \ + NVVIOCONFIG_COMPOSITE_Y | \ + NVVIOCONFIG_COMPOSITE_CR | \ + NVVIOCONFIG_COMPOSITE_CB | \ + NVVIOCONFIG_ANC_PARITY_COMPUTATION) + + + #define NVVIOCONFIG_RMMODESET_FIELDS ( NVVIOCONFIG_SIGNALFORMAT | \ + NVVIOCONFIG_DATAFORMAT | \ + NVVIOCONFIG_SYNCSOURCEENABLE | \ + NVVIOCONFIG_FRAMELOCKENABLE | \ + NVVIOCONFIG_COMPOSITESYNCTYPE | \ + NVVIOCONFIG_ANC_AUDIO_REPEAT) + + +//! Output device configuration +// No members can be deleted from below structure. Only add new members at the +// end of the structure. +typedef struct _NVVIOOUTPUTCONFIG_V1 +{ + NVVIOSIGNALFORMAT signalFormat; //!< Signal format for video output + NVVIODATAFORMAT dataFormat; //!< Data format for video output + NVVIOOUTPUTREGION outputRegion; //!< Region for video output (Desktop mode) + NVVIOOUTPUTAREA outputArea; //!< Usable resolution for video output (safe area) + NVVIOCOLORCONVERSION colorConversion; //!< Color conversion. + NVVIOGAMMACORRECTION gammaCorrection; + NvU32 syncEnable; //!< Sync enable (TRUE to use syncSource) + NVVIOSYNCSOURCE syncSource; //!< Sync source + NVVIOSYNCDELAY syncDelay; //!< Sync delay + NVVIOCOMPSYNCTYPE compositeSyncType; //!< Composite sync type + NvU32 frameLockEnable; //!< Flag indicating whether framelock was on/off + NvU32 psfSignalFormat; //!< Indicates whether contained format is PSF Signal format + NvU32 enable422Filter; //!< Enables/Disables 4:2:2 filter + NvU32 compositeTerminate; //!< Composite termination + NvU32 enableDataIntegrityCheck; //!< Enable data integrity check: true - enable, false - disable + NvU32 cscOverride; //!< Use provided CSC color matrix to overwrite + NvU32 flipQueueLength; //!< Number of buffers used for the internal flipqueue + NvU32 enableANCTimeCodeGeneration; //!< Enable SDI ANC time code generation + NvU32 enableComposite; //!< Enable composite + NvU32 enableAlphaKeyComposite; //!< Enable Alpha key composite + NVVIOCOMPOSITERANGE compRange; //!< Composite ranges + NvU8 reservedData[256]; //!< Inicates last stored SDI output state TRUE-ON / FALSE-OFF + NvU32 enableFullColorRange; //!< Flag indicating Full Color Range + NvU32 enableRGBData; //!< Indicates data is in RGB format +} NVVIOOUTPUTCONFIG_V1; + +typedef struct _NVVIOOUTPUTCONFIG_V2 +{ + NVVIOSIGNALFORMAT signalFormat; //!< Signal format for video output + NVVIODATAFORMAT dataFormat; //!< Data format for video output + NVVIOOUTPUTREGION outputRegion; //!< Region for video output (Desktop mode) + NVVIOOUTPUTAREA outputArea; //!< Usable resolution for video output (safe area) + NVVIOCOLORCONVERSION colorConversion; //!< Color conversion. + NVVIOGAMMACORRECTION gammaCorrection; + NvU32 syncEnable; //!< Sync enable (TRUE to use syncSource) + NVVIOSYNCSOURCE syncSource; //!< Sync source + NVVIOSYNCDELAY syncDelay; //!< Sync delay + NVVIOCOMPSYNCTYPE compositeSyncType; //!< Composite sync type + NvU32 frameLockEnable; //!< Flag indicating whether framelock was on/off + NvU32 psfSignalFormat; //!< Indicates whether contained format is PSF Signal format + NvU32 enable422Filter; //!< Enables/Disables 4:2:2 filter + NvU32 compositeTerminate; //!< Composite termination + NvU32 enableDataIntegrityCheck; //!< Enable data integrity check: true - enable, false - disable + NvU32 cscOverride; //!< Use provided CSC color matrix to overwrite + NvU32 flipQueueLength; //!< Number of buffers used for the internal flip queue + NvU32 enableANCTimeCodeGeneration; //!< Enable SDI ANC time code generation + NvU32 enableComposite; //!< Enable composite + NvU32 enableAlphaKeyComposite; //!< Enable Alpha key composite + NVVIOCOMPOSITERANGE compRange; //!< Composite ranges + NvU8 reservedData[256]; //!< Indicates last stored SDI output state TRUE-ON / FALSE-OFF + NvU32 enableFullColorRange; //!< Flag indicating Full Color Range + NvU32 enableRGBData; //!< Indicates data is in RGB format + NVVIOANCPARITYCOMPUTATION ancParityComputation; //!< Enable HW ANC parity bit computation (auto/on/off) +} NVVIOOUTPUTCONFIG_V2; + +typedef struct _NVVIOOUTPUTCONFIG_V3 +{ + NVVIOSIGNALFORMAT signalFormat; //!< Signal format for video output + NVVIODATAFORMAT dataFormat; //!< Data format for video output + NVVIOOUTPUTREGION outputRegion; //!< Region for video output (Desktop mode) + NVVIOOUTPUTAREA outputArea; //!< Usable resolution for video output (safe area) + NVVIOCOLORCONVERSION colorConversion; //!< Color conversion. + NVVIOGAMMACORRECTION gammaCorrection; + NvU32 syncEnable; //!< Sync enable (TRUE to use syncSource) + NVVIOSYNCSOURCE syncSource; //!< Sync source + NVVIOSYNCDELAY syncDelay; //!< Sync delay + NVVIOCOMPSYNCTYPE compositeSyncType; //!< Composite sync type + NvU32 frameLockEnable; //!< Flag indicating whether framelock was on/off + NvU32 psfSignalFormat; //!< Indicates whether contained format is PSF Signal format + NvU32 enable422Filter; //!< Enables/Disables 4:2:2 filter + NvU32 compositeTerminate; //!< Composite termination + NvU32 enableDataIntegrityCheck; //!< Enable data integrity check: true - enable, false - disable + NvU32 cscOverride; //!< Use provided CSC color matrix to overwrite + NvU32 flipQueueLength; //!< Number of buffers used for the internal flip queue + NvU32 enableANCTimeCodeGeneration; //!< Enable SDI ANC time code generation + NvU32 enableComposite; //!< Enable composite + NvU32 enableAlphaKeyComposite; //!< Enable Alpha key composite + NVVIOCOMPOSITERANGE compRange; //!< Composite ranges + NvU8 reservedData[256]; //!< Indicates last stored SDI output state TRUE-ON / FALSE-OFF + NvU32 enableFullColorRange; //!< Flag indicating Full Color Range + NvU32 enableRGBData; //!< Indicates data is in RGB format + NVVIOANCPARITYCOMPUTATION ancParityComputation; //!< Enable HW ANC parity bit computation (auto/on/off) + NvU32 enableAudioBlanking; //!< Enable HANC audio blanking on repeat frames +} NVVIOOUTPUTCONFIG_V3; + +//! Stream configuration +typedef struct _NVVIOSTREAM +{ + NvU32 bitsPerComponent; //!< Bits per component + NVVIOCOMPONENTSAMPLING sampling; //!< Sampling + NvU32 expansionEnable; //!< Enable/disable 4:2:2->4:4:4 expansion + NvU32 numLinks; //!< Number of active links + struct + { + NvU32 jack; //!< This stream's link[i] will use the specified (0-based) channel within the + NvU32 channel; //!< specified (0-based) jack + } links[NVAPI_MAX_VIO_LINKS_PER_STREAM]; +} NVVIOSTREAM; + +//! Input device configuration +typedef struct _NVVIOINPUTCONFIG +{ + NvU32 numRawCaptureImages; //!< numRawCaptureImages is the number of frames to keep in the capture queue. + //!< must be between NVAPI_GVI_MIN_RAW_CAPTURE_IMAGES and NVAPI_GVI_MAX_RAW_CAPTURE_IMAGES, + NVVIOSIGNALFORMAT signalFormat; //!< Signal format. + //!< Please note that both numRawCaptureImages and signalFormat should be set together. + NvU32 numStreams; //!< Number of active streams. + NVVIOSTREAM streams[NVAPI_MAX_VIO_STREAMS]; //!< Stream configurations + NvU32 bTestMode; //!< This attribute controls the GVI test mode. + //!< Possible values 0/1. When testmode enabled, the + //!< GVI device will generate fake data as quickly as possible. +} NVVIOINPUTCONFIG; + +typedef struct _NVVIOCONFIG_V1 +{ + NvU32 version; //!< Structure version + NvU32 fields; //!< Caller sets to NVVIOCONFIG_* mask for fields to use + NVVIOCONFIGTYPE nvvioConfigType; //!< Input or Output configuration + union + { + NVVIOINPUTCONFIG inConfig; //!< Input device configuration + NVVIOOUTPUTCONFIG_V1 outConfig; //!< Output device configuration + }vioConfig; +} NVVIOCONFIG_V1; + + +typedef struct _NVVIOCONFIG_V2 +{ + NvU32 version; //!< Structure version + NvU32 fields; //!< Caller sets to NVVIOCONFIG_* mask for fields to use + NVVIOCONFIGTYPE nvvioConfigType; //!< Input or Output configuration + union + { + NVVIOINPUTCONFIG inConfig; //!< Input device configuration + NVVIOOUTPUTCONFIG_V2 outConfig; //!< Output device configuration + }vioConfig; +} NVVIOCONFIG_V2; + +typedef struct _NVVIOCONFIG_V3 +{ + NvU32 version; //!< Structure version + NvU32 fields; //!< Caller sets to NVVIOCONFIG_* mask for fields to use + NVVIOCONFIGTYPE nvvioConfigType; //!< Input or Output configuration + union + { + NVVIOINPUTCONFIG inConfig; //!< Input device configuration + NVVIOOUTPUTCONFIG_V3 outConfig; //!< Output device configuration + }vioConfig; +} NVVIOCONFIG_V3; +typedef NVVIOOUTPUTCONFIG_V3 NVVIOOUTPUTCONFIG; +typedef NVVIOCONFIG_V3 NVVIOCONFIG; + +#define NVVIOCONFIG_VER1 MAKE_NVAPI_VERSION(NVVIOCONFIG_V1,1) +#define NVVIOCONFIG_VER2 MAKE_NVAPI_VERSION(NVVIOCONFIG_V2,2) +#define NVVIOCONFIG_VER3 MAKE_NVAPI_VERSION(NVVIOCONFIG_V3,3) +#define NVVIOCONFIG_VER NVVIOCONFIG_VER3 + + +typedef struct +{ + NvPhysicalGpuHandle hPhysicalGpu; //!< Handle to Physical GPU (This could be NULL for GVI device if its not binded) + NvVioHandle hVioHandle; //!Create Stereo Handle->InitActivation->Reset Device +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! \since Release: 302 +//! +//! \param [in] stereoHandle Stereo handle corresponding to the device interface. +//! \param [in] bDelayed Use delayed activation +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED - Stereo part of NVAPI not initialized. +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// + +//! \addtogroup stereoapi +//! @{ + +//! InitActivation Flags +typedef enum _NVAPI_STEREO_INIT_ACTIVATION_FLAGS +{ + NVAPI_STEREO_INIT_ACTIVATION_IMMEDIATE = 0X00, + NVAPI_STEREO_INIT_ACTIVATION_DELAYED = 0x01, +} NVAPI_STEREO_INIT_ACTIVATION_FLAGS; + +NVAPI_INTERFACE NvAPI_Stereo_InitActivation(__in StereoHandle hStereoHandle, __in NVAPI_STEREO_INIT_ACTIVATION_FLAGS flags); + +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Trigger_Activation +// +//! DESCRIPTION: This API allows an application to trigger creation of a stereo desktop, +//! in case the creation was stopped on application launch. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! \since Release: 302 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below. +//! \retval ::NVAPI_STEREO_INIT_ACTIVATION_NOT_DONE - Stereo InitActivation not called. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED - Stereo part of NVAPI not initialized. +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Trigger_Activation(__in StereoHandle hStereoHandle); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_CapturePngImage +// +//! DESCRIPTION: This API captures the current stereo image in PNG stereo format. +//! Only the last capture call per flip will be effective. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle corresponding to the device interface. +//! +//! \retval ::NVAPI_OK Image captured. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_CapturePngImage(StereoHandle stereoHandle); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_ReverseStereoBlitControl +// +//! DESCRIPTION: This API turns on/off reverse stereo blit. +//! +//! HOW TO USE: Use after the stereo handle for the device interface is created via successfull call to the appropriate +//! NvAPI_Stereo_CreateHandleFrom() function. +//! After reversed stereo blit control is turned on, blits from the stereo surface will +//! produce the right-eye image in the left side of the destination surface and the left-eye +//! image in the right side of the destination surface. +//! +//! In DirectX 9, the destination surface must be created as the render target, and StretchRect must be used. +//! Conditions: +//! - DstWidth == 2*SrcWidth +//! - DstHeight == SrcHeight +//! - Src surface is the stereo surface. +//! - SrcRect must be {0,0,SrcWidth,SrcHeight} +//! - DstRect must be {0,0,DstWidth,DstHeight} +//! +//! In DirectX 10, ResourceCopyRegion must be used. +//! Conditions: +//! - DstWidth == 2*SrcWidth +//! - DstHeight == SrcHeight +//! - dstX == 0, +//! - dstY == 0, +//! - dstZ == 0, +//! - SrcBox: left=top=front==0; right==SrcWidth; bottom==SrcHeight; back==1; +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] stereoHandle Stereo handle corresponding to the device interface. +//! \param [in] TurnOn != 0 : Turns on \n +//! == 0 : Turns off +//! +//! +//! \retval ::NVAPI_OK Retrieval of frustum adjust mode was successfull. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_ReverseStereoBlitControl(StereoHandle hStereoHandle, NvU8 TurnOn); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetNotificationMessage +// +//! DESCRIPTION: This API is a Setup notification message that the stereo driver uses to notify the application +//! when the user changes the stereo driver state. +//! +//! When the user changes the stereo state (Activated or Deactivated, separation or conversion) +//! the stereo driver posts a defined message with the following parameters: +//! +//! lParam is the current conversion. (Actual conversion is *(float*)&lParam ) +//! +//! wParam == MAKEWPARAM(l, h) where +//! - l == 0 if stereo is deactivated +//! - l == 1 if stereo is deactivated +//! - h is the current separation. (Actual separation is float(h*100.f/0xFFFF) +//! +//! Call this API with NULL hWnd to prohibit notification. +//! +//! WHEN TO USE: Use after the stereo handle for device interface is created via successful call to appropriate +//! NvAPI_Stereo_CreateHandleFrom() function. +//! +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! +//! \param [in] stereoHandle Stereo handle corresponding to the device interface. +//! \param [in] hWnd Window HWND that will be notified when the user changes the stereo driver state. +//! Actual HWND must be cast to an NvU64. +//! \param [in] messageID MessageID of the message that will be posted to hWnd +//! +//! \retval ::NVAPI_OK Notification set. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_SetNotificationMessage(StereoHandle hStereoHandle, NvU64 hWnd,NvU64 messageID); + + + + + + + + + + + + + + + +//! \ingroup stereoapi +#define NVAPI_STEREO_QUADBUFFERED_API_VERSION 0x2 + +//! \ingroup stereoapi + typedef enum _NV_StereoSwapChainMode + { + NVAPI_STEREO_SWAPCHAIN_DEFAULT = 0, + NVAPI_STEREO_SWAPCHAIN_STEREO = 1, + NVAPI_STEREO_SWAPCHAIN_MONO = 2, + } NV_STEREO_SWAPCHAIN_MODE; + +#if defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D1x_CreateSwapChain +// +//! DESCRIPTION: This API allows the user to create a mono or a stereo swap chain. +//! +//! NOTE: NvAPI_D3D1x_CreateSwapChain is a wrapper of the method IDXGIFactory::CreateSwapChain which +//! additionally notifies the D3D driver of the mode in which stereo mode the swap chain is to be +//! created. +//! +//! \since Release: 285 +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] hStereoHandle Stereo handle that corresponds to the device interface. +//! A pointer to the device that will write 2D images to the swap chain. +//! \param [in] pDesc A pointer to the swap-chain description (DXGI_SWAP_CHAIN_DESC). This parameter cannot be NULL. +//! \param [out] ppSwapChain A pointer to the swap chain created. +//! \param [in] mode The stereo mode fot the swap chain. +//! NVAPI_STEREO_SWAPCHAIN_DEFAULT +//! NVAPI_STEREO_SWAPCHAIN_STEREO +//! NVAPI_STEREO_SWAPCHAIN_MONO +//! +//! \retval ::NVAPI_OK The swap chain was created successfully. +//! \retval ::NVAPI_ERROR The operation failed. +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D1x_CreateSwapChain(StereoHandle hStereoHandle, + DXGI_SWAP_CHAIN_DESC* pDesc, + IDXGISwapChain** ppSwapChain, + NV_STEREO_SWAPCHAIN_MODE mode); + +#endif //if defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__) + + +#if defined(_D3D9_H_) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D9_CreateSwapChain +// +//! DESCRIPTION: This API allows the user to create a mono or a stereo swap chain. +//! +//! NOTE: NvAPI_D3D9_CreateSwapChain is a wrapper of the method IDirect3DDevice9::CreateAdditionalSwapChain which +//! additionally notifies the D3D driver if the swap chain creation mode must be stereo or mono. +//! +//! +//! \since Release: 285 +//! +//! SUPPORTED OS: Windows 7 and higher +//! +//! +//! \param [in] hStereoHandle Stereo handle that corresponds to the device interface. +//! \param [in, out] pPresentationParameters A pointer to the swap-chain description (DXGI). This parameter cannot be NULL. +//! \param [out] ppSwapChain A pointer to the swap chain created. +//! \param [in] mode The stereo mode for the swap chain. +//! NVAPI_STEREO_SWAPCHAIN_DEFAULT +//! NVAPI_STEREO_SWAPCHAIN_STEREO +//! NVAPI_STEREO_SWAPCHAIN_MONO +//! +//! \retval ::NVAPI_OK The swap chain creation was successful +//! \retval ::NVAPI_ERROR The operation failed. +//! +//!\ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D9_CreateSwapChain(StereoHandle hStereoHandle, + D3DPRESENT_PARAMETERS *pPresentationParameters, + IDirect3DSwapChain9 **ppSwapChain, + NV_STEREO_SWAPCHAIN_MODE mode); +#endif //if defined(_D3D9_H_) + + + + + +//! \addtogroup drsapi +//! @{ + + +// GPU Profile APIs + +NV_DECLARE_HANDLE(NvDRSSessionHandle); +NV_DECLARE_HANDLE(NvDRSProfileHandle); + +#define NVAPI_DRS_GLOBAL_PROFILE ((NvDRSProfileHandle) -1) + +#define NVAPI_SETTING_MAX_VALUES 100 + +typedef enum _NVDRS_SETTING_TYPE +{ + NVDRS_DWORD_TYPE, + NVDRS_BINARY_TYPE, + NVDRS_STRING_TYPE, + NVDRS_WSTRING_TYPE +} NVDRS_SETTING_TYPE; + +typedef enum _NVDRS_SETTING_LOCATION +{ + NVDRS_CURRENT_PROFILE_LOCATION, + NVDRS_GLOBAL_PROFILE_LOCATION, + NVDRS_BASE_PROFILE_LOCATION, + NVDRS_DEFAULT_PROFILE_LOCATION +} NVDRS_SETTING_LOCATION; + + +typedef struct _NVDRS_GPU_SUPPORT +{ + NvU32 geforce : 1; + NvU32 quadro : 1; + NvU32 nvs : 1; + NvU32 reserved4 : 1; + NvU32 reserved5 : 1; + NvU32 reserved6 : 1; + NvU32 reserved7 : 1; + NvU32 reserved8 : 1; + NvU32 reserved9 : 1; + NvU32 reserved10 : 1; + NvU32 reserved11 : 1; + NvU32 reserved12 : 1; + NvU32 reserved13 : 1; + NvU32 reserved14 : 1; + NvU32 reserved15 : 1; + NvU32 reserved16 : 1; + NvU32 reserved17 : 1; + NvU32 reserved18 : 1; + NvU32 reserved19 : 1; + NvU32 reserved20 : 1; + NvU32 reserved21 : 1; + NvU32 reserved22 : 1; + NvU32 reserved23 : 1; + NvU32 reserved24 : 1; + NvU32 reserved25 : 1; + NvU32 reserved26 : 1; + NvU32 reserved27 : 1; + NvU32 reserved28 : 1; + NvU32 reserved29 : 1; + NvU32 reserved30 : 1; + NvU32 reserved31 : 1; + NvU32 reserved32 : 1; +} NVDRS_GPU_SUPPORT; + +//! Enum to decide on the datatype of setting value. +typedef struct _NVDRS_BINARY_SETTING +{ + NvU32 valueLength; //!< valueLength should always be in number of bytes. + NvU8 valueData[NVAPI_BINARY_DATA_MAX]; +} NVDRS_BINARY_SETTING; + +typedef struct _NVDRS_SETTING_VALUES +{ + NvU32 version; //!< Structure Version + NvU32 numSettingValues; //!< Total number of values available in a setting. + NVDRS_SETTING_TYPE settingType; //!< Type of setting value. + union //!< Setting can hold either DWORD or Binary value or string. Not mixed types. + { + NvU32 u32DefaultValue; //!< Accessing default DWORD value of this setting. + NVDRS_BINARY_SETTING binaryDefaultValue; //!< Accessing default Binary value of this setting. + //!< Must be allocated by caller with valueLength specifying buffer size, or only valueLength will be filled in. + NvAPI_UnicodeString wszDefaultValue; //!< Accessing default unicode string value of this setting. + }; + union //!< Setting values can be of either DWORD, Binary values or String type, + { //!< NOT mixed types. + NvU32 u32Value; //!< All possible DWORD values for a setting + NVDRS_BINARY_SETTING binaryValue; //!< All possible Binary values for a setting + NvAPI_UnicodeString wszValue; //!< Accessing current unicode string value of this setting. + }settingValues[NVAPI_SETTING_MAX_VALUES]; +} NVDRS_SETTING_VALUES; + +//! Macro for constructing the version field of ::_NVDRS_SETTING_VALUES +#define NVDRS_SETTING_VALUES_VER MAKE_NVAPI_VERSION(NVDRS_SETTING_VALUES,1) + +typedef struct _NVDRS_SETTING_V1 +{ + NvU32 version; //!< Structure Version + NvAPI_UnicodeString settingName; //!< String name of setting + NvU32 settingId; //!< 32 bit setting Id + NVDRS_SETTING_TYPE settingType; //!< Type of setting value. + NVDRS_SETTING_LOCATION settingLocation; //!< Describes where the value in CurrentValue comes from. + NvU32 isCurrentPredefined; //!< It is different than 0 if the currentValue is a predefined Value, + //!< 0 if the currentValue is a user value. + NvU32 isPredefinedValid; //!< It is different than 0 if the PredefinedValue union contains a valid value. + union //!< Setting can hold either DWORD or Binary value or string. Not mixed types. + { + NvU32 u32PredefinedValue; //!< Accessing default DWORD value of this setting. + NVDRS_BINARY_SETTING binaryPredefinedValue; //!< Accessing default Binary value of this setting. + //!< Must be allocated by caller with valueLength specifying buffer size, + //!< or only valueLength will be filled in. + NvAPI_UnicodeString wszPredefinedValue; //!< Accessing default unicode string value of this setting. + }; + union //!< Setting can hold either DWORD or Binary value or string. Not mixed types. + { + NvU32 u32CurrentValue; //!< Accessing current DWORD value of this setting. + NVDRS_BINARY_SETTING binaryCurrentValue; //!< Accessing current Binary value of this setting. + //!< Must be allocated by caller with valueLength specifying buffer size, + //!< or only valueLength will be filled in. + NvAPI_UnicodeString wszCurrentValue; //!< Accessing current unicode string value of this setting. + }; +} NVDRS_SETTING_V1; + +//! Macro for constructing the version field of ::_NVDRS_SETTING +#define NVDRS_SETTING_VER1 MAKE_NVAPI_VERSION(NVDRS_SETTING_V1, 1) + +typedef NVDRS_SETTING_V1 NVDRS_SETTING; +#define NVDRS_SETTING_VER NVDRS_SETTING_VER1 + +typedef struct _NVDRS_APPLICATION_V1 +{ + NvU32 version; //!< Structure Version + NvU32 isPredefined; //!< Is the application userdefined/predefined + NvAPI_UnicodeString appName; //!< String name of the Application + NvAPI_UnicodeString userFriendlyName; //!< UserFriendly name of the Application + NvAPI_UnicodeString launcher; //!< Indicates the name (if any) of the launcher that starts the application +} NVDRS_APPLICATION_V1; + +typedef struct _NVDRS_APPLICATION_V2 +{ + NvU32 version; //!< Structure Version + NvU32 isPredefined; //!< Is the application userdefined/predefined + NvAPI_UnicodeString appName; //!< String name of the Application + NvAPI_UnicodeString userFriendlyName; //!< UserFriendly name of the Application + NvAPI_UnicodeString launcher; //!< Indicates the name (if any) of the launcher that starts the Application + NvAPI_UnicodeString fileInFolder; //!< Select this application only if this file is found. + //!< When specifying multiple files, separate them using the ':' character. +} NVDRS_APPLICATION_V2; + +typedef struct _NVDRS_APPLICATION_V3 +{ + NvU32 version; //!< Structure Version + NvU32 isPredefined; //!< Is the application userdefined/predefined + NvAPI_UnicodeString appName; //!< String name of the Application + NvAPI_UnicodeString userFriendlyName; //!< UserFriendly name of the Application + NvAPI_UnicodeString launcher; //!< Indicates the name (if any) of the launcher that starts the Application + NvAPI_UnicodeString fileInFolder; //!< Select this application only if this file is found. + //!< When specifying multiple files, separate them using the ':' character. + NvU32 isMetro:1; //!< Windows 8 style app + NvU32 reserved:31; //!< Reserved. Should be 0. +} NVDRS_APPLICATION_V3; + +#define NVDRS_APPLICATION_VER_V1 MAKE_NVAPI_VERSION(NVDRS_APPLICATION_V1,1) +#define NVDRS_APPLICATION_VER_V2 MAKE_NVAPI_VERSION(NVDRS_APPLICATION_V2,2) +#define NVDRS_APPLICATION_VER_V3 MAKE_NVAPI_VERSION(NVDRS_APPLICATION_V3,3) + +typedef NVDRS_APPLICATION_V3 NVDRS_APPLICATION; +#define NVDRS_APPLICATION_VER NVDRS_APPLICATION_VER_V3 + +typedef struct _NVDRS_PROFILE_V1 +{ + NvU32 version; //!< Structure Version + NvAPI_UnicodeString profileName; //!< String name of the Profile + NVDRS_GPU_SUPPORT gpuSupport; //!< This read-only flag indicates the profile support on either + //!< Quadro, or Geforce, or both. + NvU32 isPredefined; //!< Is the Profile user-defined, or predefined + NvU32 numOfApps; //!< Total number of applications that belong to this profile. Read-only + NvU32 numOfSettings; //!< Total number of settings applied for this Profile. Read-only +} NVDRS_PROFILE_V1; + +typedef NVDRS_PROFILE_V1 NVDRS_PROFILE; + +//! Macro for constructing the version field of ::NVDRS_PROFILE +#define NVDRS_PROFILE_VER1 MAKE_NVAPI_VERSION(NVDRS_PROFILE_V1,1) +#define NVDRS_PROFILE_VER NVDRS_PROFILE_VER1 + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_CreateSession +// +//! DESCRIPTION: This API allocates memory and initializes the session. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [out] *phSession Return pointer to the session handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR: For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_CreateSession(NvDRSSessionHandle *phSession); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_DestroySession +// +//! DESCRIPTION: This API frees the allocation: cleanup of NvDrsSession. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_DestroySession(NvDRSSessionHandle hSession); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_LoadSettings +// +//! DESCRIPTION: This API loads and parses the settings data. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_LoadSettings(NvDRSSessionHandle hSession); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_SaveSettings +// +//! DESCRIPTION: This API saves the settings data to the system. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_SaveSettings(NvDRSSessionHandle hSession); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_LoadSettingsFromFile +// +//! DESCRIPTION: This API loads settings from the given file path. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle +//! \param [in] fileName Binary File Name/Path +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_LoadSettingsFromFile(NvDRSSessionHandle hSession, NvAPI_UnicodeString fileName); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_SaveSettingsToFile +// +//! DESCRIPTION: This API saves settings to the given file path. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] fileName Binary File Name/Path +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +// +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_SaveSettingsToFile(NvDRSSessionHandle hSession, NvAPI_UnicodeString fileName); + +//! @} + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_CreateProfile +// +//! DESCRIPTION: This API creates an empty profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] *pProfileInfo Input pointer to NVDRS_PROFILE. +//! \param [in] *phProfile Returns pointer to profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_CreateProfile(NvDRSSessionHandle hSession, NVDRS_PROFILE *pProfileInfo, NvDRSProfileHandle *phProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_DeleteProfile +// +//! DESCRIPTION: This API deletes a profile or sets it back to a predefined value. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_DeleteProfile(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_SetCurrentGlobalProfile +// +//! DESCRIPTION: This API sets the current global profile in the driver. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] wszGlobalProfileName Input current Global profile name. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_SetCurrentGlobalProfile(NvDRSSessionHandle hSession, NvAPI_UnicodeString wszGlobalProfileName); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetCurrentGlobalProfile +// +//! DESCRIPTION: This API returns the handle to the current global profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [out] *phProfile Returns current Global profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetCurrentGlobalProfile(NvDRSSessionHandle hSession, NvDRSProfileHandle *phProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetProfileInfo +// +//! DESCRIPTION: This API gets information about the given profile. User needs to specify the name of the Profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [out] *pProfileInfo Return the profile info. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetProfileInfo(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NVDRS_PROFILE *pProfileInfo); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_SetProfileInfo +// +//! DESCRIPTION: Specifies flags for a given profile. Currently only the NVDRS_GPU_SUPPORT is +//! used to update the profile. Neither the name, number of settings or applications +//! or other profile information can be changed with this function. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] *pProfileInfo Input the new profile info. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_SetProfileInfo(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NVDRS_PROFILE *pProfileInfo); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_FindProfileByName +// +//! DESCRIPTION: This API finds a profile in the current session. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] profileName Input profileName. +//! \param [out] phProfile Input profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_PROFILE_NOT_FOUND if profile is not found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_FindProfileByName(NvDRSSessionHandle hSession, NvAPI_UnicodeString profileName, NvDRSProfileHandle* phProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_EnumProfiles +// +//! DESCRIPTION: This API enumerates through all the profiles in the session. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] index Input the index for enumeration. +//! \param [out] *phProfile Returns profile handle. +//! +//! RETURN STATUS: NVAPI_OK: SUCCESS if the profile is found +//! NVAPI_ERROR: For miscellaneous errors. +//! NVAPI_END_ENUMERATION: index exceeds the total number of available Profiles in DB. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_EnumProfiles(NvDRSSessionHandle hSession, NvU32 index, NvDRSProfileHandle *phProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetNumProfiles +// +//! DESCRIPTION: This API obtains the number of profiles in the current session object. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param out] *numProfiles Returns count of profiles in the current hSession. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_API_NOT_INTIALIZED Failed to initialize. +//! \retval ::NVAPI_INVALID_ARGUMENT Invalid Arguments. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetNumProfiles(NvDRSSessionHandle hSession, NvU32 *numProfiles); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_CreateApplication +// +//! DESCRIPTION: This API adds an executable name to a profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] *pApplication Input NVDRS_APPLICATION struct with the executable name to be added. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_CreateApplication(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NVDRS_APPLICATION *pApplication); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_DeleteApplicationEx +// +//! DESCRIPTION: This API removes an executable from a profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession - Input to the session handle. +//! \param [in] hProfile - Input profile handle. +//! \param [in] *pApp - Input all the information about the application to be removed. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! \retval ::NVAPI_EXECUTABLE_PATH_IS_AMBIGUOUS If the path provided could refer to two different executables, +//! this error will be returned. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_DeleteApplicationEx(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NVDRS_APPLICATION *pApp); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_DeleteApplication +// +//! DESCRIPTION: This API removes an executable name from a profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSessionPARAMETERS Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] appName Input the executable name to be removed. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! \retval ::NVAPI_EXECUTABLE_PATH_IS_AMBIGUOUS If the path provided could refer to two different executables, +//! this error will be returned +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_DeleteApplication(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvAPI_UnicodeString appName); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetApplicationInfo +// +//! DESCRIPTION: This API gets information about the given application. The input application name +//! must match exactly what the Profile has stored for the application. +//! This function is better used to retrieve application information from a previous +//! enumeration. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] appName Input application name. +//! \param [out] *pApplication Returns NVDRS_APPLICATION struct with all the attributes. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below. +//! \retval ::NVAPI_EXECUTABLE_PATH_IS_AMBIGUOUS The application name could not +// single out only one executable. +//! \retval ::NVAPI_EXECUTABLE_NOT_FOUND No application with that name is found on the profile. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetApplicationInfo(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvAPI_UnicodeString appName, NVDRS_APPLICATION *pApplication); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_EnumApplications +// +//! DESCRIPTION: This API enumerates all the applications in a given profile from the starting index to the maximum length. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] startIndex Indicates starting index for enumeration. +//! \param [in,out] *appCount Input maximum length of the passed in arrays. Returns the actual length. +//! \param [out] *pApplication Returns NVDRS_APPLICATION struct with all the attributes. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! \retval ::NVAPI_END_ENUMERATION startIndex exceeds the total appCount. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_EnumApplications(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvU32 startIndex, NvU32 *appCount, NVDRS_APPLICATION *pApplication); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_FindApplicationByName +// +//! DESCRIPTION: This API searches the application and the associated profile for the given application name. +//! If a fully qualified path is provided, this function will always return the profile +//! the driver will apply upon running the application (on the path provided). +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the hSession handle +//! \param [in] appName Input appName. For best results, provide a fully qualified path of the type +//! c:/Folder1/Folder2/App.exe +//! \param [out] *phProfile Returns profile handle. +//! \param [out] *pApplication Returns NVDRS_APPLICATION struct pointer. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! If there are return error codes with specific meaning for this API, +//! they are listed below: +//! \retval ::NVAPI_APPLICATION_NOT_FOUND If App not found +//! \retval ::NVAPI_EXECUTABLE_PATH_IS_AMBIGUOUS If the input appName was not fully qualified, this error might return in the case of multiple matches +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_FindApplicationByName(NvDRSSessionHandle hSession, NvAPI_UnicodeString appName, NvDRSProfileHandle *phProfile, NVDRS_APPLICATION *pApplication); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_SetSetting +// +//! DESCRIPTION: This API adds/modifies a setting to a profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] *pSetting Input NVDRS_SETTING struct pointer. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_SetSetting(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NVDRS_SETTING *pSetting); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetSetting +// +//! DESCRIPTION: This API gets information about the given setting. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] settingId Input settingId. +//! \param [out] *pSetting Returns all the setting info +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetSetting(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvU32 settingId, NVDRS_SETTING *pSetting); + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_EnumSettings +// +//! DESCRIPTION: This API enumerates all the settings of a given profile from startIndex to the maximum length. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] startIndex Indicates starting index for enumeration. +//! \param [in,out] *settingsCount Input max length of the passed in arrays, Returns the actual length. +//! \param [out] *pSetting Returns all the settings info. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! \retval ::NVAPI_END_ENUMERATION startIndex exceeds the total appCount. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_EnumSettings(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvU32 startIndex, NvU32 *settingsCount, NVDRS_SETTING *pSetting); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_EnumAvailableSettingIds +// +//! DESCRIPTION: This API enumerates all the Ids of all the settings recognized by NVAPI. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [out] pSettingIds User-provided array of length *pMaxCount that NVAPI will fill with IDs. +//! \param [in,out] pMaxCount Input max length of the passed in array, Returns the actual length. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! NVAPI_END_ENUMERATION: the provided pMaxCount is not enough to hold all settingIds. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_EnumAvailableSettingIds(NvU32 *pSettingIds, NvU32 *pMaxCount); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_EnumAvailableSettingValues +// +//! DESCRIPTION: This API enumerates all available setting values for a given setting. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] settingId Input settingId. +//! \param [in,out] maxNumCount Input max length of the passed in arrays, Returns the actual length. +//! \param [out] *pSettingValues Returns all available setting values and its count. +//! +//! \retval ::NVAPI_OK SUCCESS +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_EnumAvailableSettingValues(NvU32 settingId, NvU32 *pMaxNumValues, NVDRS_SETTING_VALUES *pSettingValues); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetSettingIdFromName +// +//! DESCRIPTION: This API gets the binary ID of a setting given the setting name. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] settingName Input Unicode settingName. +//! \param [out] *pSettingId Returns corresponding settingId. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_PROFILE_NOT_FOUND if profile is not found +//! \retval ::NVAPI_SETTING_NOT_FOUND if setting is not found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetSettingIdFromName(NvAPI_UnicodeString settingName, NvU32 *pSettingId); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetSettingNameFromId +// +//! DESCRIPTION: This API gets the setting name given the binary ID. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] settingId Input settingId. +//! \param [in] *pSettingName Returns corresponding Unicode settingName. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_PROFILE_NOT_FOUND if profile is not found +//! \retval ::NVAPI_SETTING_NOT_FOUND if setting is not found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetSettingNameFromId(NvU32 settingId, NvAPI_UnicodeString *pSettingName); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_DeleteProfileSetting +// +//! DESCRIPTION: This API deletes a setting or sets it back to predefined value. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] settingId Input settingId to be deleted. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_DeleteProfileSetting(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvU32 settingId); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_RestoreAllDefaults +// +//! DESCRIPTION: This API restores the whole system to predefined(default) values. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_RestoreAllDefaults(NvDRSSessionHandle hSession); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_RestoreProfileDefault +// +//! DESCRIPTION: This API restores the given profile to predefined(default) values. +//! Any and all user specified modifications will be removed. +//! If the whole profile was set by the user, the profile will be removed. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! \retval ::NVAPI_PROFILE_REMOVED SUCCESS, and the hProfile is no longer valid. +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_RestoreProfileDefault(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_RestoreProfileDefaultSetting +// +//! DESCRIPTION: This API restores the given profile setting to predefined(default) values. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] hProfile Input profile handle. +//! \param [in] settingId Input settingId. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_RestoreProfileDefaultSetting(NvDRSSessionHandle hSession, NvDRSProfileHandle hProfile, NvU32 settingId); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DRS_GetBaseProfile +// +//! DESCRIPTION: Returns the handle to the current global profile. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hSession Input to the session handle. +//! \param [in] *phProfile Returns Base profile handle. +//! +//! \retval ::NVAPI_OK SUCCESS if the profile is found +//! \retval ::NVAPI_ERROR For miscellaneous errors. +//! +//! \ingroup drsapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DRS_GetBaseProfile(NvDRSSessionHandle hSession, NvDRSProfileHandle *phProfile); + + + + +//! \addtogroup sysgeneral +//! @{ + +typedef struct +{ + NvU32 version; //!< structure version + NvU32 vendorId; //!< Chipset vendor identification + NvU32 deviceId; //!< Chipset device identification + NvAPI_ShortString szVendorName; //!< Chipset vendor Name + NvAPI_ShortString szChipsetName; //!< Chipset device Name + NvU32 flags; //!< Chipset info flags - obsolete + NvU32 subSysVendorId; //!< Chipset subsystem vendor identification + NvU32 subSysDeviceId; //!< Chipset subsystem device identification + NvAPI_ShortString szSubSysVendorName; //!< subsystem vendor Name + NvU32 HBvendorId; //!< Host bridge vendor identification + NvU32 HBdeviceId; //!< Host bridge device identification + NvU32 HBsubSysVendorId; //!< Host bridge subsystem vendor identification + NvU32 HBsubSysDeviceId; //!< Host bridge subsystem device identification + +} NV_CHIPSET_INFO_v4; + +typedef struct +{ + NvU32 version; //!< structure version + NvU32 vendorId; //!< vendor ID + NvU32 deviceId; //!< device ID + NvAPI_ShortString szVendorName; //!< vendor Name + NvAPI_ShortString szChipsetName; //!< device Name + NvU32 flags; //!< Chipset info flags - obsolete + NvU32 subSysVendorId; //!< subsystem vendor ID + NvU32 subSysDeviceId; //!< subsystem device ID + NvAPI_ShortString szSubSysVendorName; //!< subsystem vendor Name +} NV_CHIPSET_INFO_v3; + +typedef enum +{ + NV_CHIPSET_INFO_HYBRID = 0x00000001, +} NV_CHIPSET_INFO_FLAGS; + +typedef struct +{ + NvU32 version; //!< structure version + NvU32 vendorId; //!< vendor ID + NvU32 deviceId; //!< device ID + NvAPI_ShortString szVendorName; //!< vendor Name + NvAPI_ShortString szChipsetName; //!< device Name + NvU32 flags; //!< Chipset info flags +} NV_CHIPSET_INFO_v2; + +typedef struct +{ + NvU32 version; //structure version + NvU32 vendorId; //vendor ID + NvU32 deviceId; //device ID + NvAPI_ShortString szVendorName; //vendor Name + NvAPI_ShortString szChipsetName; //device Name +} NV_CHIPSET_INFO_v1; + +#define NV_CHIPSET_INFO_VER_1 MAKE_NVAPI_VERSION(NV_CHIPSET_INFO_v1,1) +#define NV_CHIPSET_INFO_VER_2 MAKE_NVAPI_VERSION(NV_CHIPSET_INFO_v2,2) +#define NV_CHIPSET_INFO_VER_3 MAKE_NVAPI_VERSION(NV_CHIPSET_INFO_v3,3) +#define NV_CHIPSET_INFO_VER_4 MAKE_NVAPI_VERSION(NV_CHIPSET_INFO_v4,4) + +#define NV_CHIPSET_INFO NV_CHIPSET_INFO_v4 +#define NV_CHIPSET_INFO_VER NV_CHIPSET_INFO_VER_4 + +//! @} + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_SYS_GetChipSetInfo +// +//! This function returns information about the system's chipset. +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \since Release: 95 +//! +//! \retval NVAPI_INVALID_ARGUMENT pChipSetInfo is NULL. +//! \retval NVAPI_OK *pChipSetInfo is now set. +//! \retval NVAPI_INCOMPATIBLE_STRUCT_VERSION NV_CHIPSET_INFO version not compatible with driver. +//! \ingroup sysgeneral +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetChipSetInfo(NV_CHIPSET_INFO *pChipSetInfo); + + +//! \ingroup sysgeneral +//! Lid and dock information - used in NvAPI_GetLidDockInfo() +typedef struct +{ + NvU32 version; //! Structure version, constructed from the macro #NV_LID_DOCK_PARAMS_VER + NvU32 currentLidState; + NvU32 currentDockState; + NvU32 currentLidPolicy; + NvU32 currentDockPolicy; + NvU32 forcedLidMechanismPresent; + NvU32 forcedDockMechanismPresent; +}NV_LID_DOCK_PARAMS; + + +//! ingroup sysgeneral +#define NV_LID_DOCK_PARAMS_VER MAKE_NVAPI_VERSION(NV_LID_DOCK_PARAMS,1) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GetLidDockInfo +// +//! DESCRIPTION: This function returns the current lid and dock information. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 177 +//! +//! \retval ::NVAPI_OK +//! \retval ::NVAPI_ERROR +//! \retval ::NVAPI_NOT_SUPPORTED +//! \retval ::NVAPI_HANDLE_INVALIDATED +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! +//! \ingroup sysgeneral +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetLidAndDockInfo(NV_LID_DOCK_PARAMS *pLidAndDock); + + + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_SYS_GetDisplayIdFromGpuAndOutputId +// +//! DESCRIPTION: This API converts a Physical GPU handle and output ID to a +//! display ID. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] hPhysicalGpu Handle to the physical GPU +//! \param [in] outputId Connected display output ID on the +//! target GPU - must only have one bit set +//! \param [out] displayId Pointer to an NvU32 which contains +//! the display ID +//! +//! \retval ::NVAPI_OK - completed request +//! \retval ::NVAPI_API_NOT_INTIALIZED - NVAPI not initialized +//! \retval ::NVAPI_ERROR - miscellaneous error occurred +//! \retval ::NVAPI_INVALID_ARGUMENT - Invalid input parameter. +//! +//! \ingroup sysgeneral +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetDisplayIdFromGpuAndOutputId(NvPhysicalGpuHandle hPhysicalGpu, NvU32 outputId, NvU32* displayId); + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_SYS_GetGpuAndOutputIdFromDisplayId +// +//! DESCRIPTION: This API converts a display ID to a Physical GPU handle and output ID. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [in] displayId Display ID of display to retrieve +//! GPU and outputId for +//! \param [out] hPhysicalGpu Handle to the physical GPU +//! \param [out] outputId ) Connected display output ID on the +//! target GPU will only have one bit set. +//! +//! \retval ::NVAPI_OK +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_ID_OUT_OF_RANGE The DisplayId corresponds to a +//! display which is not within the +//! normal outputId range. +//! \retval ::NVAPI_ERROR +//! \retval ::NVAPI_INVALID_ARGUMENT +//! +//! \ingroup sysgeneral +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetGpuAndOutputIdFromDisplayId(NvU32 displayId, NvPhysicalGpuHandle *hPhysicalGpu, NvU32 *outputId); + + +/////////////////////////////////////////////////////////////////////////////// +// FUNCTION NAME: NvAPI_SYS_GetPhysicalGpuFromDisplayId +// +//! \code +//! DESCRIPTION: This API retrieves the Physical GPU handle of the connected display +//! +//! \since Release: 313 +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! PARAMETERS: displayId(IN) - Display ID of display to retrieve +//! GPU handle +//! hPhysicalGpu(OUT) - Handle to the physical GPU +//! +//! RETURN STATUS: +//! NVAPI_OK - completed request +//! NVAPI_API_NOT_INTIALIZED - NVAPI not initialized +//! NVAPI_ERROR - miscellaneous error occurred +//! NVAPI_INVALID_ARGUMENT - Invalid input parameter. +//! \endcode +//! \ingroup sysgeneral +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetPhysicalGpuFromDisplayId(NvU32 displayId, NvPhysicalGpuHandle *hPhysicalGpu); + + + + +#ifdef __cplusplus +}; //extern "C" { + +#endif + +#pragma pack(pop) + +#endif // _NVAPI_H + +#include"nvapi_lite_salend.h" diff --git a/sdk/include/nvapi/nvapi_lite_common.h b/sdk/include/nvapi/nvapi_lite_common.h new file mode 100644 index 00000000000..eaaeb3627db --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_common.h @@ -0,0 +1,505 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ +#pragma once +#include"nvapi_lite_salstart.h" +#pragma pack(push,8) +#ifdef __cplusplus +extern "C" { +#endif +#if (defined(WIN32) || defined(_WIN32)) && defined(_MSC_VER) && (_MSC_VER > 1399) && !defined(NVAPI_INTERNAL) && !defined(NVAPI_DEPRECATED_OLD) +#ifndef __nvapi_deprecated_function +#define __nvapi_deprecated_function(message) __declspec(deprecated(message)) +#endif +#ifndef __nvapi_deprecated_datatype +#define __nvapi_deprecated_datatype(FirstRelease) __declspec(deprecated("Do not use this data type - it is deprecated in release " #FirstRelease ".")) +#endif +#else +#ifndef __nvapi_deprecated_function +#define __nvapi_deprecated_function(message) +#endif +#ifndef __nvapi_deprecated_datatype +#define __nvapi_deprecated_datatype(FirstRelease) +#endif +#endif + + +/* 64-bit types for compilers that support them, plus some obsolete variants */ +#if defined(__GNUC__) || defined(__arm) || defined(__IAR_SYSTEMS_ICC__) || defined(__ghs__) || defined(_WIN64) +typedef unsigned long long NvU64; /* 0 to 18446744073709551615 */ +typedef long long NvS64; /* -9223372036854775808 to 9223372036854775807 */ +#else +typedef unsigned __int64 NvU64; /* 0 to 18446744073709551615 */ +typedef __int64 NvS64; /* -9223372036854775808 to 9223372036854775807 */ +#endif + +// mac os 32-bit still needs this +#if (defined(macintosh) || defined(__APPLE__)) && !defined(__LP64__) +typedef signed long NvS32; /* -2147483648 to 2147483647 */ +#else +typedef signed int NvS32; /* -2147483648 to 2147483647 */ +#endif + +// mac os 32-bit still needs this +#if ( (defined(macintosh) && defined(__LP64__) && (__NVAPI_RESERVED0__)) || \ + (!defined(macintosh) && defined(__NVAPI_RESERVED0__)) ) +typedef unsigned int NvU32; /* 0 to 4294967295 */ +#else +typedef unsigned long NvU32; /* 0 to 4294967295 */ +#endif + +typedef signed short NvS16; +typedef unsigned short NvU16; +typedef unsigned char NvU8; +typedef signed char NvS8; + +typedef struct _NV_RECT +{ + NvU32 left; + NvU32 top; + NvU32 right; + NvU32 bottom; +} NV_RECT; + + + +#define NV_DECLARE_HANDLE(name) struct name##__ { int unused; }; typedef struct name##__ *name + +//! \addtogroup nvapihandles +//! NVAPI Handles - These handles are retrieved from various calls and passed in to others in NvAPI +//! These are meant to be opaque types. Do not assume they correspond to indices, HDCs, +//! display indexes or anything else. +//! +//! Most handles remain valid until a display re-configuration (display mode set) or GPU +//! reconfiguration (going into or out of SLI modes) occurs. If NVAPI_HANDLE_INVALIDATED +//! is received by an app, it should discard all handles, and re-enumerate them. +//! @{ +NV_DECLARE_HANDLE(NvDisplayHandle); //!< Display Device driven by NVIDIA GPU(s) (an attached display) +NV_DECLARE_HANDLE(NvMonitorHandle); //!< Monitor handle +NV_DECLARE_HANDLE(NvUnAttachedDisplayHandle); //!< Unattached Display Device driven by NVIDIA GPU(s) +NV_DECLARE_HANDLE(NvLogicalGpuHandle); //!< One or more physical GPUs acting in concert (SLI) +NV_DECLARE_HANDLE(NvPhysicalGpuHandle); //!< A single physical GPU +NV_DECLARE_HANDLE(NvEventHandle); //!< A handle to an event registration instance +NV_DECLARE_HANDLE(NvVisualComputingDeviceHandle); //!< A handle to a Visual Computing Device +NV_DECLARE_HANDLE(NvHICHandle); //!< A handle to a Host Interface Card +NV_DECLARE_HANDLE(NvGSyncDeviceHandle); //!< A handle to a Sync device +NV_DECLARE_HANDLE(NvVioHandle); //!< A handle to an SDI device +NV_DECLARE_HANDLE(NvTransitionHandle); //!< A handle to address a single transition request +NV_DECLARE_HANDLE(NvAudioHandle); //!< NVIDIA HD Audio Device +NV_DECLARE_HANDLE(Nv3DVPContextHandle); //!< A handle for a 3D Vision Pro (3DVP) context +NV_DECLARE_HANDLE(Nv3DVPTransceiverHandle); //!< A handle for a 3DVP RF transceiver +NV_DECLARE_HANDLE(Nv3DVPGlassesHandle); //!< A handle for a pair of 3DVP RF shutter glasses + +typedef void* StereoHandle; //!< A stereo handle, that corresponds to the device interface + +NV_DECLARE_HANDLE(NvSourceHandle); //!< Unique source handle on the system +NV_DECLARE_HANDLE(NvTargetHandle); //!< Unique target handle on the system +NV_DECLARE_HANDLE(NVDX_SwapChainHandle); //!< DirectX SwapChain objects +static const NVDX_SwapChainHandle NVDX_SWAPCHAIN_NONE = 0; +//! @} + +//! \ingroup nvapihandles +//! @{ +#define NVAPI_DEFAULT_HANDLE 0 +#define NV_BIT(x) (1 << (x)) +//! @} + + + +//! \addtogroup nvapitypes +//! @{ +#define NVAPI_GENERIC_STRING_MAX 4096 +#define NVAPI_LONG_STRING_MAX 256 +#define NVAPI_SHORT_STRING_MAX 64 + + +typedef struct +{ + NvS32 sX; + NvS32 sY; + NvS32 sWidth; + NvS32 sHeight; +} NvSBox; + +#ifndef NvGUID_Defined +#define NvGUID_Defined + +typedef struct +{ + NvU32 data1; + NvU16 data2; + NvU16 data3; + NvU8 data4[8]; +} NvGUID, NvLUID; + +#endif //#ifndef NvGUID_Defined + + +#define NVAPI_MAX_PHYSICAL_GPUS 64 +#define NVAPI_MAX_PHYSICAL_BRIDGES 100 +#define NVAPI_PHYSICAL_GPUS 32 +#define NVAPI_MAX_LOGICAL_GPUS 64 +#define NVAPI_MAX_AVAILABLE_GPU_TOPOLOGIES 256 +#define NVAPI_MAX_AVAILABLE_SLI_GROUPS 256 +#define NVAPI_MAX_GPU_TOPOLOGIES NVAPI_MAX_PHYSICAL_GPUS +#define NVAPI_MAX_GPU_PER_TOPOLOGY 8 +#define NVAPI_MAX_DISPLAY_HEADS 2 +#define NVAPI_ADVANCED_DISPLAY_HEADS 4 +#define NVAPI_MAX_DISPLAYS NVAPI_PHYSICAL_GPUS * NVAPI_ADVANCED_DISPLAY_HEADS +#define NVAPI_MAX_ACPI_IDS 16 +#define NVAPI_MAX_VIEW_MODES 8 +#define NV_MAX_HEADS 4 //!< Maximum heads, each with NVAPI_DESKTOP_RES resolution +#define NVAPI_MAX_HEADS_PER_GPU 32 + +#define NV_MAX_HEADS 4 //!< Maximum number of heads, each with #NVAPI_DESKTOP_RES resolution +#define NV_MAX_VID_STREAMS 4 //!< Maximum number of input video streams, each with a #NVAPI_VIDEO_SRC_INFO +#define NV_MAX_VID_PROFILES 4 //!< Maximum number of output video profiles supported + +#define NVAPI_SYSTEM_MAX_DISPLAYS NVAPI_MAX_PHYSICAL_GPUS * NV_MAX_HEADS + +#define NVAPI_SYSTEM_MAX_HWBCS 128 +#define NVAPI_SYSTEM_HWBC_INVALID_ID 0xffffffff +#define NVAPI_MAX_AUDIO_DEVICES 16 + + +typedef char NvAPI_String[NVAPI_GENERIC_STRING_MAX]; +typedef char NvAPI_LongString[NVAPI_LONG_STRING_MAX]; +typedef char NvAPI_ShortString[NVAPI_SHORT_STRING_MAX]; +//! @} + + +// ========================================================================================= +//! NvAPI Version Definition \n +//! Maintain per structure specific version define using the MAKE_NVAPI_VERSION macro. \n +//! Usage: #define NV_GENLOCK_STATUS_VER MAKE_NVAPI_VERSION(NV_GENLOCK_STATUS, 1) +//! \ingroup nvapitypes +// ========================================================================================= +#define MAKE_NVAPI_VERSION(typeName,ver) (NvU32)(sizeof(typeName) | ((ver)<<16)) + +//! \ingroup nvapitypes +#define GET_NVAPI_VERSION(ver) (NvU32)((ver)>>16) + +//! \ingroup nvapitypes +#define GET_NVAPI_SIZE(ver) (NvU32)((ver) & 0xffff) + + +// ==================================================== +//! NvAPI Status Values +//! All NvAPI functions return one of these codes. +//! \ingroup nvapistatus +// ==================================================== + + +typedef enum _NvAPI_Status +{ + NVAPI_OK = 0, //!< Success. Request is completed. + NVAPI_ERROR = -1, //!< Generic error + NVAPI_LIBRARY_NOT_FOUND = -2, //!< NVAPI support library cannot be loaded. + NVAPI_NO_IMPLEMENTATION = -3, //!< not implemented in current driver installation + NVAPI_API_NOT_INITIALIZED = -4, //!< NvAPI_Initialize has not been called (successfully) + NVAPI_INVALID_ARGUMENT = -5, //!< The argument/parameter value is not valid or NULL. + NVAPI_NVIDIA_DEVICE_NOT_FOUND = -6, //!< No NVIDIA display driver, or NVIDIA GPU driving a display, was found. + NVAPI_END_ENUMERATION = -7, //!< No more items to enumerate + NVAPI_INVALID_HANDLE = -8, //!< Invalid handle + NVAPI_INCOMPATIBLE_STRUCT_VERSION = -9, //!< An argument's structure version is not supported + NVAPI_HANDLE_INVALIDATED = -10, //!< The handle is no longer valid (likely due to GPU or display re-configuration) + NVAPI_OPENGL_CONTEXT_NOT_CURRENT = -11, //!< No NVIDIA OpenGL context is current (but needs to be) + NVAPI_INVALID_POINTER = -14, //!< An invalid pointer, usually NULL, was passed as a parameter + NVAPI_NO_GL_EXPERT = -12, //!< OpenGL Expert is not supported by the current drivers + NVAPI_INSTRUMENTATION_DISABLED = -13, //!< OpenGL Expert is supported, but driver instrumentation is currently disabled + NVAPI_NO_GL_NSIGHT = -15, //!< OpenGL does not support Nsight + + NVAPI_EXPECTED_LOGICAL_GPU_HANDLE = -100, //!< Expected a logical GPU handle for one or more parameters + NVAPI_EXPECTED_PHYSICAL_GPU_HANDLE = -101, //!< Expected a physical GPU handle for one or more parameters + NVAPI_EXPECTED_DISPLAY_HANDLE = -102, //!< Expected an NV display handle for one or more parameters + NVAPI_INVALID_COMBINATION = -103, //!< The combination of parameters is not valid. + NVAPI_NOT_SUPPORTED = -104, //!< Requested feature is not supported in the selected GPU + NVAPI_PORTID_NOT_FOUND = -105, //!< No port ID was found for the I2C transaction + NVAPI_EXPECTED_UNATTACHED_DISPLAY_HANDLE = -106, //!< Expected an unattached display handle as one of the input parameters. + NVAPI_INVALID_PERF_LEVEL = -107, //!< Invalid perf level + NVAPI_DEVICE_BUSY = -108, //!< Device is busy; request not fulfilled + NVAPI_NV_PERSIST_FILE_NOT_FOUND = -109, //!< NV persist file is not found + NVAPI_PERSIST_DATA_NOT_FOUND = -110, //!< NV persist data is not found + NVAPI_EXPECTED_TV_DISPLAY = -111, //!< Expected a TV output display + NVAPI_EXPECTED_TV_DISPLAY_ON_DCONNECTOR = -112, //!< Expected a TV output on the D Connector - HDTV_EIAJ4120. + NVAPI_NO_ACTIVE_SLI_TOPOLOGY = -113, //!< SLI is not active on this device. + NVAPI_SLI_RENDERING_MODE_NOTALLOWED = -114, //!< Setup of SLI rendering mode is not possible right now. + NVAPI_EXPECTED_DIGITAL_FLAT_PANEL = -115, //!< Expected a digital flat panel. + NVAPI_ARGUMENT_EXCEED_MAX_SIZE = -116, //!< Argument exceeds the expected size. + NVAPI_DEVICE_SWITCHING_NOT_ALLOWED = -117, //!< Inhibit is ON due to one of the flags in NV_GPU_DISPLAY_CHANGE_INHIBIT or SLI active. + NVAPI_TESTING_CLOCKS_NOT_SUPPORTED = -118, //!< Testing of clocks is not supported. + NVAPI_UNKNOWN_UNDERSCAN_CONFIG = -119, //!< The specified underscan config is from an unknown source (e.g. INF) + NVAPI_TIMEOUT_RECONFIGURING_GPU_TOPO = -120, //!< Timeout while reconfiguring GPUs + NVAPI_DATA_NOT_FOUND = -121, //!< Requested data was not found + NVAPI_EXPECTED_ANALOG_DISPLAY = -122, //!< Expected an analog display + NVAPI_NO_VIDLINK = -123, //!< No SLI video bridge is present + NVAPI_REQUIRES_REBOOT = -124, //!< NVAPI requires a reboot for the settings to take effect + NVAPI_INVALID_HYBRID_MODE = -125, //!< The function is not supported with the current Hybrid mode. + NVAPI_MIXED_TARGET_TYPES = -126, //!< The target types are not all the same + NVAPI_SYSWOW64_NOT_SUPPORTED = -127, //!< The function is not supported from 32-bit on a 64-bit system. + NVAPI_IMPLICIT_SET_GPU_TOPOLOGY_CHANGE_NOT_ALLOWED = -128, //!< There is no implicit GPU topology active. Use NVAPI_SetHybridMode to change topology. + NVAPI_REQUEST_USER_TO_CLOSE_NON_MIGRATABLE_APPS = -129, //!< Prompt the user to close all non-migratable applications. + NVAPI_OUT_OF_MEMORY = -130, //!< Could not allocate sufficient memory to complete the call. + NVAPI_WAS_STILL_DRAWING = -131, //!< The previous operation that is transferring information to or from this surface is incomplete. + NVAPI_FILE_NOT_FOUND = -132, //!< The file was not found. + NVAPI_TOO_MANY_UNIQUE_STATE_OBJECTS = -133, //!< There are too many unique instances of a particular type of state object. + NVAPI_INVALID_CALL = -134, //!< The method call is invalid. For example, a method's parameter may not be a valid pointer. + NVAPI_D3D10_1_LIBRARY_NOT_FOUND = -135, //!< d3d10_1.dll cannot be loaded. + NVAPI_FUNCTION_NOT_FOUND = -136, //!< Couldn't find the function in the loaded DLL. + NVAPI_INVALID_USER_PRIVILEGE = -137, //!< Current User is not Admin. + NVAPI_EXPECTED_NON_PRIMARY_DISPLAY_HANDLE = -138, //!< The handle corresponds to GDIPrimary. + NVAPI_EXPECTED_COMPUTE_GPU_HANDLE = -139, //!< Setting Physx GPU requires that the GPU is compute-capable. + NVAPI_STEREO_NOT_INITIALIZED = -140, //!< The Stereo part of NVAPI failed to initialize completely. Check if the stereo driver is installed. + NVAPI_STEREO_REGISTRY_ACCESS_FAILED = -141, //!< Access to stereo-related registry keys or values has failed. + NVAPI_STEREO_REGISTRY_PROFILE_TYPE_NOT_SUPPORTED = -142, //!< The given registry profile type is not supported. + NVAPI_STEREO_REGISTRY_VALUE_NOT_SUPPORTED = -143, //!< The given registry value is not supported. + NVAPI_STEREO_NOT_ENABLED = -144, //!< Stereo is not enabled and the function needed it to execute completely. + NVAPI_STEREO_NOT_TURNED_ON = -145, //!< Stereo is not turned on and the function needed it to execute completely. + NVAPI_STEREO_INVALID_DEVICE_INTERFACE = -146, //!< Invalid device interface. + NVAPI_STEREO_PARAMETER_OUT_OF_RANGE = -147, //!< Separation percentage or JPEG image capture quality is out of [0-100] range. + NVAPI_STEREO_FRUSTUM_ADJUST_MODE_NOT_SUPPORTED = -148, //!< The given frustum adjust mode is not supported. + NVAPI_TOPO_NOT_POSSIBLE = -149, //!< The mosaic topology is not possible given the current state of the hardware. + NVAPI_MODE_CHANGE_FAILED = -150, //!< An attempt to do a display resolution mode change has failed. + NVAPI_D3D11_LIBRARY_NOT_FOUND = -151, //!< d3d11.dll/d3d11_beta.dll cannot be loaded. + NVAPI_INVALID_ADDRESS = -152, //!< Address is outside of valid range. + NVAPI_STRING_TOO_SMALL = -153, //!< The pre-allocated string is too small to hold the result. + NVAPI_MATCHING_DEVICE_NOT_FOUND = -154, //!< The input does not match any of the available devices. + NVAPI_DRIVER_RUNNING = -155, //!< Driver is running. + NVAPI_DRIVER_NOTRUNNING = -156, //!< Driver is not running. + NVAPI_ERROR_DRIVER_RELOAD_REQUIRED = -157, //!< A driver reload is required to apply these settings. + NVAPI_SET_NOT_ALLOWED = -158, //!< Intended setting is not allowed. + NVAPI_ADVANCED_DISPLAY_TOPOLOGY_REQUIRED = -159, //!< Information can't be returned due to "advanced display topology". + NVAPI_SETTING_NOT_FOUND = -160, //!< Setting is not found. + NVAPI_SETTING_SIZE_TOO_LARGE = -161, //!< Setting size is too large. + NVAPI_TOO_MANY_SETTINGS_IN_PROFILE = -162, //!< There are too many settings for a profile. + NVAPI_PROFILE_NOT_FOUND = -163, //!< Profile is not found. + NVAPI_PROFILE_NAME_IN_USE = -164, //!< Profile name is duplicated. + NVAPI_PROFILE_NAME_EMPTY = -165, //!< Profile name is empty. + NVAPI_EXECUTABLE_NOT_FOUND = -166, //!< Application not found in the Profile. + NVAPI_EXECUTABLE_ALREADY_IN_USE = -167, //!< Application already exists in the other profile. + NVAPI_DATATYPE_MISMATCH = -168, //!< Data Type mismatch + NVAPI_PROFILE_REMOVED = -169, //!< The profile passed as parameter has been removed and is no longer valid. + NVAPI_UNREGISTERED_RESOURCE = -170, //!< An unregistered resource was passed as a parameter. + NVAPI_ID_OUT_OF_RANGE = -171, //!< The DisplayId corresponds to a display which is not within the normal outputId range. + NVAPI_DISPLAYCONFIG_VALIDATION_FAILED = -172, //!< Display topology is not valid so the driver cannot do a mode set on this configuration. + NVAPI_DPMST_CHANGED = -173, //!< Display Port Multi-Stream topology has been changed. + NVAPI_INSUFFICIENT_BUFFER = -174, //!< Input buffer is insufficient to hold the contents. + NVAPI_ACCESS_DENIED = -175, //!< No access to the caller. + NVAPI_MOSAIC_NOT_ACTIVE = -176, //!< The requested action cannot be performed without Mosaic being enabled. + NVAPI_SHARE_RESOURCE_RELOCATED = -177, //!< The surface is relocated away from video memory. + NVAPI_REQUEST_USER_TO_DISABLE_DWM = -178, //!< The user should disable DWM before calling NvAPI. + NVAPI_D3D_DEVICE_LOST = -179, //!< D3D device status is D3DERR_DEVICELOST or D3DERR_DEVICENOTRESET - the user has to reset the device. + NVAPI_INVALID_CONFIGURATION = -180, //!< The requested action cannot be performed in the current state. + NVAPI_STEREO_HANDSHAKE_NOT_DONE = -181, //!< Call failed as stereo handshake not completed. + NVAPI_EXECUTABLE_PATH_IS_AMBIGUOUS = -182, //!< The path provided was too short to determine the correct NVDRS_APPLICATION + NVAPI_DEFAULT_STEREO_PROFILE_IS_NOT_DEFINED = -183, //!< Default stereo profile is not currently defined + NVAPI_DEFAULT_STEREO_PROFILE_DOES_NOT_EXIST = -184, //!< Default stereo profile does not exist + NVAPI_CLUSTER_ALREADY_EXISTS = -185, //!< A cluster is already defined with the given configuration. + NVAPI_DPMST_DISPLAY_ID_EXPECTED = -186, //!< The input display id is not that of a multi stream enabled connector or a display device in a multi stream topology + NVAPI_INVALID_DISPLAY_ID = -187, //!< The input display id is not valid or the monitor associated to it does not support the current operation + NVAPI_STREAM_IS_OUT_OF_SYNC = -188, //!< While playing secure audio stream, stream goes out of sync + NVAPI_INCOMPATIBLE_AUDIO_DRIVER = -189, //!< Older audio driver version than required + NVAPI_VALUE_ALREADY_SET = -190, //!< Value already set, setting again not allowed. + NVAPI_TIMEOUT = -191, //!< Requested operation timed out + NVAPI_GPU_WORKSTATION_FEATURE_INCOMPLETE = -192, //!< The requested workstation feature set has incomplete driver internal allocation resources + NVAPI_STEREO_INIT_ACTIVATION_NOT_DONE = -193, //!< Call failed because InitActivation was not called. + NVAPI_SYNC_NOT_ACTIVE = -194, //!< The requested action cannot be performed without Sync being enabled. + NVAPI_SYNC_MASTER_NOT_FOUND = -195, //!< The requested action cannot be performed without Sync Master being enabled. + NVAPI_INVALID_SYNC_TOPOLOGY = -196, //!< Invalid displays passed in the NV_GSYNC_DISPLAY pointer. + NVAPI_ECID_SIGN_ALGO_UNSUPPORTED = -197, //!< The specified signing algorithm is not supported. Either an incorrect value was entered or the current installed driver/hardware does not support the input value. + NVAPI_ECID_KEY_VERIFICATION_FAILED = -198, //!< The encrypted public key verification has failed. + NVAPI_FIRMWARE_OUT_OF_DATE = -199, //!< The device's firmware is out of date. + NVAPI_FIRMWARE_REVISION_NOT_SUPPORTED = -200, //!< The device's firmware is not supported. +} NvAPI_Status; + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_SYS_GetDriverAndBranchVersion +// +//! DESCRIPTION: This API returns display driver version and driver-branch string. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \param [out] pDriverVersion Contains the driver version after successful return. +//! \param [out] szBuildBranchString Contains the driver-branch string after successful return. +//! +//! \retval ::NVAPI_INVALID_ARGUMENT: either pDriverVersion is NULL or enum index too big +//! \retval ::NVAPI_OK - completed request +//! \retval ::NVAPI_API_NOT_INTIALIZED - NVAPI not initialized +//! \retval ::NVAPI_ERROR - miscellaneous error occurred +//! +//! \ingroup driverapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_SYS_GetDriverAndBranchVersion(NvU32* pDriverVersion, NvAPI_ShortString szBuildBranchString); +//! \ingroup driverapi +//! Used in NvAPI_GPU_GetMemoryInfo(). +typedef struct +{ + NvU32 version; //!< Version info + NvU32 dedicatedVideoMemory; //!< Size(in kb) of the physical framebuffer. + NvU32 availableDedicatedVideoMemory; //!< Size(in kb) of the available physical framebuffer for allocating video memory surfaces. + NvU32 systemVideoMemory; //!< Size(in kb) of system memory the driver allocates at load time. + NvU32 sharedSystemMemory; //!< Size(in kb) of shared system memory that driver is allowed to commit for surfaces across all allocations. + +} NV_DISPLAY_DRIVER_MEMORY_INFO_V1; + + +//! \ingroup driverapi +//! Used in NvAPI_GPU_GetMemoryInfo(). +typedef struct +{ + NvU32 version; //!< Version info + NvU32 dedicatedVideoMemory; //!< Size(in kb) of the physical framebuffer. + NvU32 availableDedicatedVideoMemory; //!< Size(in kb) of the available physical framebuffer for allocating video memory surfaces. + NvU32 systemVideoMemory; //!< Size(in kb) of system memory the driver allocates at load time. + NvU32 sharedSystemMemory; //!< Size(in kb) of shared system memory that driver is allowed to commit for surfaces across all allocations. + NvU32 curAvailableDedicatedVideoMemory; //!< Size(in kb) of the current available physical framebuffer for allocating video memory surfaces. + +} NV_DISPLAY_DRIVER_MEMORY_INFO_V2; + + +//! \ingroup driverapi +typedef NV_DISPLAY_DRIVER_MEMORY_INFO_V2 NV_DISPLAY_DRIVER_MEMORY_INFO; + +//! \ingroup driverapi +//! Macro for constructing the version field of NV_DISPLAY_DRIVER_MEMORY_INFO_V1 +#define NV_DISPLAY_DRIVER_MEMORY_INFO_VER_1 MAKE_NVAPI_VERSION(NV_DISPLAY_DRIVER_MEMORY_INFO_V1,1) + +//! \ingroup driverapi +//! Macro for constructing the version field of NV_DISPLAY_DRIVER_MEMORY_INFO_V2 +#define NV_DISPLAY_DRIVER_MEMORY_INFO_VER_2 MAKE_NVAPI_VERSION(NV_DISPLAY_DRIVER_MEMORY_INFO_V2,2) + +//! \ingroup driverapi +#define NV_DISPLAY_DRIVER_MEMORY_INFO_VER NV_DISPLAY_DRIVER_MEMORY_INFO_VER_2 + + + + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_GPU_GetMemoryInfo +// +//! DESCRIPTION: This function retrieves the available driver memory footprint for the specified GPU. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! TCC_SUPPORTED +//! +//! \since Release: 177 +//! +//! \param [in] hPhysicalGpu Handle of the physical GPU for which the memory information is to be extracted. +//! \param [out] pMemoryInfo The memory footprint available in the driver. See NV_DISPLAY_DRIVER_MEMORY_INFO. +//! +//! \retval NVAPI_INVALID_ARGUMENT pMemoryInfo is NULL. +//! \retval NVAPI_OK Call successful. +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found. +//! \retval NVAPI_INCOMPATIBLE_STRUCT_VERSION NV_DISPLAY_DRIVER_MEMORY_INFO structure version mismatch. +//! +//! \ingroup driverapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_GPU_GetMemoryInfo(NvPhysicalGpuHandle hPhysicalGpu, NV_DISPLAY_DRIVER_MEMORY_INFO *pMemoryInfo); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_EnumPhysicalGPUs +// +//! This function returns an array of physical GPU handles. +//! Each handle represents a physical GPU present in the system. +//! That GPU may be part of an SLI configuration, or may not be visible to the OS directly. +//! +//! At least one GPU must be present in the system and running an NVIDIA display driver. +//! +//! The array nvGPUHandle will be filled with physical GPU handle values. The returned +//! gpuCount determines how many entries in the array are valid. +//! +//! \note In drivers older than 105.00, all physical GPU handles get invalidated on a +//! modeset. So the calling applications need to renum the handles after every modeset.\n +//! With drivers 105.00 and up, all physical GPU handles are constant. +//! Physical GPU handles are constant as long as the GPUs are not physically moved and +//! the SBIOS VGA order is unchanged. +//! +//! For GPU handles in TCC MODE please use NvAPI_EnumTCCPhysicalGPUs() +//! +//! SUPPORTED OS: Windows XP and higher, Mac OS X +//! +//! +//! \par Introduced in +//! \since Release: 80 +//! +//! \retval NVAPI_INVALID_ARGUMENT nvGPUHandle or pGpuCount is NULL +//! \retval NVAPI_OK One or more handles were returned +//! \retval NVAPI_NVIDIA_DEVICE_NOT_FOUND No NVIDIA GPU driving a display was found +//! \ingroup gpu +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_EnumPhysicalGPUs(NvPhysicalGpuHandle nvGPUHandle[NVAPI_MAX_PHYSICAL_GPUS], NvU32 *pGpuCount); +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) + +NV_DECLARE_HANDLE(NVDX_ObjectHandle); // DX Objects +static const NVDX_ObjectHandle NVDX_OBJECT_NONE = 0; + +#endif //if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_GetObjectHandleForResource +// +//! DESCRIPTION: This API gets a handle to a resource. +//! +//! \param [in] pDev The ID3D11Device, ID3D10Device or IDirect3DDevice9 to use +//! \param [in] pResource The ID3D10Resource, ID3D10Resource or IDirect3DResource9 from which +//! we want the NvAPI handle +//! \param [out] pHandle A handle to the resource +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \return ::NVAPI_OK if the handle was populated. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D_GetObjectHandleForResource( + IUnknown *pDevice, + IUnknown *pResource, + NVDX_ObjectHandle *pHandle); + + +#endif //if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) + +#include"nvapi_lite_salend.h" +#ifdef __cplusplus +} +#endif +#pragma pack(pop) diff --git a/sdk/include/nvapi/nvapi_lite_d3dext.h b/sdk/include/nvapi/nvapi_lite_d3dext.h new file mode 100644 index 00000000000..fdb5c95c798 --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_d3dext.h @@ -0,0 +1,188 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ +#pragma once +#include"nvapi_lite_salstart.h" +#include"nvapi_lite_common.h" +#pragma pack(push,8) +#ifdef __cplusplus +extern "C" { +#endif +#if defined(__cplusplus) && (defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__)) +//! \ingroup dx +//! D3D_FEATURE_LEVEL supported - used in NvAPI_D3D11_CreateDevice() and NvAPI_D3D11_CreateDeviceAndSwapChain() +typedef enum +{ + NVAPI_DEVICE_FEATURE_LEVEL_NULL = -1, + NVAPI_DEVICE_FEATURE_LEVEL_10_0 = 0, + NVAPI_DEVICE_FEATURE_LEVEL_10_0_PLUS = 1, + NVAPI_DEVICE_FEATURE_LEVEL_10_1 = 2, + NVAPI_DEVICE_FEATURE_LEVEL_11_0 = 3, +} NVAPI_DEVICE_FEATURE_LEVEL; + +#endif //defined(__cplusplus) && (defined(__d3d10_h__) || defined(__d3d10_1_h__) || defined(__d3d11_h__)) +#if defined(__cplusplus) && defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_CreateDevice +// +//! DESCRIPTION: This function tries to create a DirectX 11 device. If the call fails (if we are running +//! on pre-DirectX 11 hardware), depending on the type of hardware it will try to create a DirectX 10.1 OR DirectX 10.0+ +//! OR DirectX 10.0 device. The function call is the same as D3D11CreateDevice(), but with an extra +//! argument (D3D_FEATURE_LEVEL supported by the device) that the function fills in. This argument +//! can contain -1 (NVAPI_DEVICE_FEATURE_LEVEL_NULL), if the requested featureLevel is less than DirecX 10.0. +//! +//! NOTE: When NvAPI_D3D11_CreateDevice is called with 10+ feature level we have an issue on few set of +//! tesla hardware (G80/G84/G86/G92/G94/G96) which does not support all feature level 10+ functionality +//! e.g. calling driver with mismatch between RenderTarget and Depth Buffer. App developers should +//! take into consideration such limitation when using NVAPI on such tesla hardwares. +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pAdapter +//! \param [in] DriverType +//! \param [in] Software +//! \param [in] Flags +//! \param [in] *pFeatureLevels +//! \param [in] FeatureLevels +//! \param [in] SDKVersion +//! \param [in] **ppDevice +//! \param [in] *pFeatureLevel +//! \param [in] **ppImmediateContext +//! \param [in] *pSupportedLevel D3D_FEATURE_LEVEL supported +//! +//! \return NVAPI_OK if the createDevice call succeeded. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_CreateDevice(IDXGIAdapter* pAdapter, + D3D_DRIVER_TYPE DriverType, + HMODULE Software, + UINT Flags, + CONST D3D_FEATURE_LEVEL *pFeatureLevels, + UINT FeatureLevels, + UINT SDKVersion, + ID3D11Device **ppDevice, + D3D_FEATURE_LEVEL *pFeatureLevel, + ID3D11DeviceContext **ppImmediateContext, + NVAPI_DEVICE_FEATURE_LEVEL *pSupportedLevel); + + +#endif //defined(__cplusplus) && defined(__d3d11_h__) +#if defined(__cplusplus) && defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_CreateDeviceAndSwapChain +// +//! DESCRIPTION: This function tries to create a DirectX 11 device and swap chain. If the call fails (if we are +//! running on pre=DirectX 11 hardware), depending on the type of hardware it will try to create a DirectX 10.1 OR +//! DirectX 10.0+ OR DirectX 10.0 device. The function call is the same as D3D11CreateDeviceAndSwapChain, +//! but with an extra argument (D3D_FEATURE_LEVEL supported by the device) that the function fills +//! in. This argument can contain -1 (NVAPI_DEVICE_FEATURE_LEVEL_NULL), if the requested featureLevel +//! is less than DirectX 10.0. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pAdapter +//! \param [in] DriverType +//! \param [in] Software +//! \param [in] Flags +//! \param [in] *pFeatureLevels +//! \param [in] FeatureLevels +//! \param [in] SDKVersion +//! \param [in] *pSwapChainDesc +//! \param [in] **ppSwapChain +//! \param [in] **ppDevice +//! \param [in] *pFeatureLevel +//! \param [in] **ppImmediateContext +//! \param [in] *pSupportedLevel D3D_FEATURE_LEVEL supported +//! +//!return NVAPI_OK if the createDevice with swap chain call succeeded. +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_CreateDeviceAndSwapChain(IDXGIAdapter* pAdapter, + D3D_DRIVER_TYPE DriverType, + HMODULE Software, + UINT Flags, + CONST D3D_FEATURE_LEVEL *pFeatureLevels, + UINT FeatureLevels, + UINT SDKVersion, + CONST DXGI_SWAP_CHAIN_DESC *pSwapChainDesc, + IDXGISwapChain **ppSwapChain, + ID3D11Device **ppDevice, + D3D_FEATURE_LEVEL *pFeatureLevel, + ID3D11DeviceContext **ppImmediateContext, + NVAPI_DEVICE_FEATURE_LEVEL *pSupportedLevel); + + + +#endif //defined(__cplusplus) && defined(__d3d11_h__) +#if defined(__cplusplus) && defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D11_SetDepthBoundsTest +// +//! DESCRIPTION: This function enables/disables the depth bounds test +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] pDeviceOrContext The device or device context to set depth bounds test +//! \param [in] bEnable Enable(non-zero)/disable(zero) the depth bounds test +//! \param [in] fMinDepth The minimum depth for depth bounds test +//! \param [in] fMaxDepth The maximum depth for depth bounds test +//! The valid values for fMinDepth and fMaxDepth +//! are such that 0 <= fMinDepth <= fMaxDepth <= 1 +//! +//! \return ::NVAPI_OK if the depth bounds test was correcly enabled or disabled +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D11_SetDepthBoundsTest(IUnknown* pDeviceOrContext, + NvU32 bEnable, + float fMinDepth, + float fMaxDepth); + +#endif //defined(__cplusplus) && defined(__d3d11_h__) + +#include"nvapi_lite_salend.h" +#ifdef __cplusplus +} +#endif +#pragma pack(pop) diff --git a/sdk/include/nvapi/nvapi_lite_salend.h b/sdk/include/nvapi/nvapi_lite_salend.h new file mode 100644 index 00000000000..e1efc515208 --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_salend.h @@ -0,0 +1,816 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ +#ifndef __NVAPI_EMPTY_SAL +#ifdef __nvapi_undef__ecount + #undef __ecount + #undef __nvapi_undef__ecount +#endif +#ifdef __nvapi_undef__bcount + #undef __bcount + #undef __nvapi_undef__bcount +#endif +#ifdef __nvapi_undef__in + #undef __in + #undef __nvapi_undef__in +#endif +#ifdef __nvapi_undef__in_ecount + #undef __in_ecount + #undef __nvapi_undef__in_ecount +#endif +#ifdef __nvapi_undef__in_bcount + #undef __in_bcount + #undef __nvapi_undef__in_bcount +#endif +#ifdef __nvapi_undef__in_z + #undef __in_z + #undef __nvapi_undef__in_z +#endif +#ifdef __nvapi_undef__in_ecount_z + #undef __in_ecount_z + #undef __nvapi_undef__in_ecount_z +#endif +#ifdef __nvapi_undef__in_bcount_z + #undef __in_bcount_z + #undef __nvapi_undef__in_bcount_z +#endif +#ifdef __nvapi_undef__in_nz + #undef __in_nz + #undef __nvapi_undef__in_nz +#endif +#ifdef __nvapi_undef__in_ecount_nz + #undef __in_ecount_nz + #undef __nvapi_undef__in_ecount_nz +#endif +#ifdef __nvapi_undef__in_bcount_nz + #undef __in_bcount_nz + #undef __nvapi_undef__in_bcount_nz +#endif +#ifdef __nvapi_undef__out + #undef __out + #undef __nvapi_undef__out +#endif +#ifdef __nvapi_undef__out_ecount + #undef __out_ecount + #undef __nvapi_undef__out_ecount +#endif +#ifdef __nvapi_undef__out_bcount + #undef __out_bcount + #undef __nvapi_undef__out_bcount +#endif +#ifdef __nvapi_undef__out_ecount_part + #undef __out_ecount_part + #undef __nvapi_undef__out_ecount_part +#endif +#ifdef __nvapi_undef__out_bcount_part + #undef __out_bcount_part + #undef __nvapi_undef__out_bcount_part +#endif +#ifdef __nvapi_undef__out_ecount_full + #undef __out_ecount_full + #undef __nvapi_undef__out_ecount_full +#endif +#ifdef __nvapi_undef__out_bcount_full + #undef __out_bcount_full + #undef __nvapi_undef__out_bcount_full +#endif +#ifdef __nvapi_undef__out_z + #undef __out_z + #undef __nvapi_undef__out_z +#endif +#ifdef __nvapi_undef__out_z_opt + #undef __out_z_opt + #undef __nvapi_undef__out_z_opt +#endif +#ifdef __nvapi_undef__out_ecount_z + #undef __out_ecount_z + #undef __nvapi_undef__out_ecount_z +#endif +#ifdef __nvapi_undef__out_bcount_z + #undef __out_bcount_z + #undef __nvapi_undef__out_bcount_z +#endif +#ifdef __nvapi_undef__out_ecount_part_z + #undef __out_ecount_part_z + #undef __nvapi_undef__out_ecount_part_z +#endif +#ifdef __nvapi_undef__out_bcount_part_z + #undef __out_bcount_part_z + #undef __nvapi_undef__out_bcount_part_z +#endif +#ifdef __nvapi_undef__out_ecount_full_z + #undef __out_ecount_full_z + #undef __nvapi_undef__out_ecount_full_z +#endif +#ifdef __nvapi_undef__out_bcount_full_z + #undef __out_bcount_full_z + #undef __nvapi_undef__out_bcount_full_z +#endif +#ifdef __nvapi_undef__out_nz + #undef __out_nz + #undef __nvapi_undef__out_nz +#endif +#ifdef __nvapi_undef__out_nz_opt + #undef __out_nz_opt + #undef __nvapi_undef__out_nz_opt +#endif +#ifdef __nvapi_undef__out_ecount_nz + #undef __out_ecount_nz + #undef __nvapi_undef__out_ecount_nz +#endif +#ifdef __nvapi_undef__out_bcount_nz + #undef __out_bcount_nz + #undef __nvapi_undef__out_bcount_nz +#endif +#ifdef __nvapi_undef__inout + #undef __inout + #undef __nvapi_undef__inout +#endif +#ifdef __nvapi_undef__inout_ecount + #undef __inout_ecount + #undef __nvapi_undef__inout_ecount +#endif +#ifdef __nvapi_undef__inout_bcount + #undef __inout_bcount + #undef __nvapi_undef__inout_bcount +#endif +#ifdef __nvapi_undef__inout_ecount_part + #undef __inout_ecount_part + #undef __nvapi_undef__inout_ecount_part +#endif +#ifdef __nvapi_undef__inout_bcount_part + #undef __inout_bcount_part + #undef __nvapi_undef__inout_bcount_part +#endif +#ifdef __nvapi_undef__inout_ecount_full + #undef __inout_ecount_full + #undef __nvapi_undef__inout_ecount_full +#endif +#ifdef __nvapi_undef__inout_bcount_full + #undef __inout_bcount_full + #undef __nvapi_undef__inout_bcount_full +#endif +#ifdef __nvapi_undef__inout_z + #undef __inout_z + #undef __nvapi_undef__inout_z +#endif +#ifdef __nvapi_undef__inout_ecount_z + #undef __inout_ecount_z + #undef __nvapi_undef__inout_ecount_z +#endif +#ifdef __nvapi_undef__inout_bcount_z + #undef __inout_bcount_z + #undef __nvapi_undef__inout_bcount_z +#endif +#ifdef __nvapi_undef__inout_nz + #undef __inout_nz + #undef __nvapi_undef__inout_nz +#endif +#ifdef __nvapi_undef__inout_ecount_nz + #undef __inout_ecount_nz + #undef __nvapi_undef__inout_ecount_nz +#endif +#ifdef __nvapi_undef__inout_bcount_nz + #undef __inout_bcount_nz + #undef __nvapi_undef__inout_bcount_nz +#endif +#ifdef __nvapi_undef__ecount_opt + #undef __ecount_opt + #undef __nvapi_undef__ecount_opt +#endif +#ifdef __nvapi_undef__bcount_opt + #undef __bcount_opt + #undef __nvapi_undef__bcount_opt +#endif +#ifdef __nvapi_undef__in_opt + #undef __in_opt + #undef __nvapi_undef__in_opt +#endif +#ifdef __nvapi_undef__in_ecount_opt + #undef __in_ecount_opt + #undef __nvapi_undef__in_ecount_opt +#endif +#ifdef __nvapi_undef__in_bcount_opt + #undef __in_bcount_opt + #undef __nvapi_undef__in_bcount_opt +#endif +#ifdef __nvapi_undef__in_z_opt + #undef __in_z_opt + #undef __nvapi_undef__in_z_opt +#endif +#ifdef __nvapi_undef__in_ecount_z_opt + #undef __in_ecount_z_opt + #undef __nvapi_undef__in_ecount_z_opt +#endif +#ifdef __nvapi_undef__in_bcount_z_opt + #undef __in_bcount_z_opt + #undef __nvapi_undef__in_bcount_z_opt +#endif +#ifdef __nvapi_undef__in_nz_opt + #undef __in_nz_opt + #undef __nvapi_undef__in_nz_opt +#endif +#ifdef __nvapi_undef__in_ecount_nz_opt + #undef __in_ecount_nz_opt + #undef __nvapi_undef__in_ecount_nz_opt +#endif +#ifdef __nvapi_undef__in_bcount_nz_opt + #undef __in_bcount_nz_opt + #undef __nvapi_undef__in_bcount_nz_opt +#endif +#ifdef __nvapi_undef__out_opt + #undef __out_opt + #undef __nvapi_undef__out_opt +#endif +#ifdef __nvapi_undef__out_ecount_opt + #undef __out_ecount_opt + #undef __nvapi_undef__out_ecount_opt +#endif +#ifdef __nvapi_undef__out_bcount_opt + #undef __out_bcount_opt + #undef __nvapi_undef__out_bcount_opt +#endif +#ifdef __nvapi_undef__out_ecount_part_opt + #undef __out_ecount_part_opt + #undef __nvapi_undef__out_ecount_part_opt +#endif +#ifdef __nvapi_undef__out_bcount_part_opt + #undef __out_bcount_part_opt + #undef __nvapi_undef__out_bcount_part_opt +#endif +#ifdef __nvapi_undef__out_ecount_full_opt + #undef __out_ecount_full_opt + #undef __nvapi_undef__out_ecount_full_opt +#endif +#ifdef __nvapi_undef__out_bcount_full_opt + #undef __out_bcount_full_opt + #undef __nvapi_undef__out_bcount_full_opt +#endif +#ifdef __nvapi_undef__out_ecount_z_opt + #undef __out_ecount_z_opt + #undef __nvapi_undef__out_ecount_z_opt +#endif +#ifdef __nvapi_undef__out_bcount_z_opt + #undef __out_bcount_z_opt + #undef __nvapi_undef__out_bcount_z_opt +#endif +#ifdef __nvapi_undef__out_ecount_part_z_opt + #undef __out_ecount_part_z_opt + #undef __nvapi_undef__out_ecount_part_z_opt +#endif +#ifdef __nvapi_undef__out_bcount_part_z_opt + #undef __out_bcount_part_z_opt + #undef __nvapi_undef__out_bcount_part_z_opt +#endif +#ifdef __nvapi_undef__out_ecount_full_z_opt + #undef __out_ecount_full_z_opt + #undef __nvapi_undef__out_ecount_full_z_opt +#endif +#ifdef __nvapi_undef__out_bcount_full_z_opt + #undef __out_bcount_full_z_opt + #undef __nvapi_undef__out_bcount_full_z_opt +#endif +#ifdef __nvapi_undef__out_ecount_nz_opt + #undef __out_ecount_nz_opt + #undef __nvapi_undef__out_ecount_nz_opt +#endif +#ifdef __nvapi_undef__out_bcount_nz_opt + #undef __out_bcount_nz_opt + #undef __nvapi_undef__out_bcount_nz_opt +#endif +#ifdef __nvapi_undef__inout_opt + #undef __inout_opt + #undef __nvapi_undef__inout_opt +#endif +#ifdef __nvapi_undef__inout_ecount_opt + #undef __inout_ecount_opt + #undef __nvapi_undef__inout_ecount_opt +#endif +#ifdef __nvapi_undef__inout_bcount_opt + #undef __inout_bcount_opt + #undef __nvapi_undef__inout_bcount_opt +#endif +#ifdef __nvapi_undef__inout_ecount_part_opt + #undef __inout_ecount_part_opt + #undef __nvapi_undef__inout_ecount_part_opt +#endif +#ifdef __nvapi_undef__inout_bcount_part_opt + #undef __inout_bcount_part_opt + #undef __nvapi_undef__inout_bcount_part_opt +#endif +#ifdef __nvapi_undef__inout_ecount_full_opt + #undef __inout_ecount_full_opt + #undef __nvapi_undef__inout_ecount_full_opt +#endif +#ifdef __nvapi_undef__inout_bcount_full_opt + #undef __inout_bcount_full_opt + #undef __nvapi_undef__inout_bcount_full_opt +#endif +#ifdef __nvapi_undef__inout_z_opt + #undef __inout_z_opt + #undef __nvapi_undef__inout_z_opt +#endif +#ifdef __nvapi_undef__inout_ecount_z_opt + #undef __inout_ecount_z_opt + #undef __nvapi_undef__inout_ecount_z_opt +#endif +#ifdef __nvapi_undef__inout_ecount_z_opt + #undef __inout_ecount_z_opt + #undef __nvapi_undef__inout_ecount_z_opt +#endif +#ifdef __nvapi_undef__inout_bcount_z_opt + #undef __inout_bcount_z_opt + #undef __nvapi_undef__inout_bcount_z_opt +#endif +#ifdef __nvapi_undef__inout_nz_opt + #undef __inout_nz_opt + #undef __nvapi_undef__inout_nz_opt +#endif +#ifdef __nvapi_undef__inout_ecount_nz_opt + #undef __inout_ecount_nz_opt + #undef __nvapi_undef__inout_ecount_nz_opt +#endif +#ifdef __nvapi_undef__inout_bcount_nz_opt + #undef __inout_bcount_nz_opt + #undef __nvapi_undef__inout_bcount_nz_opt +#endif +#ifdef __nvapi_undef__deref_ecount + #undef __deref_ecount + #undef __nvapi_undef__deref_ecount +#endif +#ifdef __nvapi_undef__deref_bcount + #undef __deref_bcount + #undef __nvapi_undef__deref_bcount +#endif +#ifdef __nvapi_undef__deref_out + #undef __deref_out + #undef __nvapi_undef__deref_out +#endif +#ifdef __nvapi_undef__deref_out_ecount + #undef __deref_out_ecount + #undef __nvapi_undef__deref_out_ecount +#endif +#ifdef __nvapi_undef__deref_out_bcount + #undef __deref_out_bcount + #undef __nvapi_undef__deref_out_bcount +#endif +#ifdef __nvapi_undef__deref_out_ecount_part + #undef __deref_out_ecount_part + #undef __nvapi_undef__deref_out_ecount_part +#endif +#ifdef __nvapi_undef__deref_out_bcount_part + #undef __deref_out_bcount_part + #undef __nvapi_undef__deref_out_bcount_part +#endif +#ifdef __nvapi_undef__deref_out_ecount_full + #undef __deref_out_ecount_full + #undef __nvapi_undef__deref_out_ecount_full +#endif +#ifdef __nvapi_undef__deref_out_bcount_full + #undef __deref_out_bcount_full + #undef __nvapi_undef__deref_out_bcount_full +#endif +#ifdef __nvapi_undef__deref_out_z + #undef __deref_out_z + #undef __nvapi_undef__deref_out_z +#endif +#ifdef __nvapi_undef__deref_out_ecount_z + #undef __deref_out_ecount_z + #undef __nvapi_undef__deref_out_ecount_z +#endif +#ifdef __nvapi_undef__deref_out_bcount_z + #undef __deref_out_bcount_z + #undef __nvapi_undef__deref_out_bcount_z +#endif +#ifdef __nvapi_undef__deref_out_nz + #undef __deref_out_nz + #undef __nvapi_undef__deref_out_nz +#endif +#ifdef __nvapi_undef__deref_out_ecount_nz + #undef __deref_out_ecount_nz + #undef __nvapi_undef__deref_out_ecount_nz +#endif +#ifdef __nvapi_undef__deref_out_bcount_nz + #undef __deref_out_bcount_nz + #undef __nvapi_undef__deref_out_bcount_nz +#endif +#ifdef __nvapi_undef__deref_inout + #undef __deref_inout + #undef __nvapi_undef__deref_inout +#endif +#ifdef __nvapi_undef__deref_inout_z + #undef __deref_inout_z + #undef __nvapi_undef__deref_inout_z +#endif +#ifdef __nvapi_undef__deref_inout_ecount + #undef __deref_inout_ecount + #undef __nvapi_undef__deref_inout_ecount +#endif +#ifdef __nvapi_undef__deref_inout_bcount + #undef __deref_inout_bcount + #undef __nvapi_undef__deref_inout_bcount +#endif +#ifdef __nvapi_undef__deref_inout_ecount_part + #undef __deref_inout_ecount_part + #undef __nvapi_undef__deref_inout_ecount_part +#endif +#ifdef __nvapi_undef__deref_inout_bcount_part + #undef __deref_inout_bcount_part + #undef __nvapi_undef__deref_inout_bcount_part +#endif +#ifdef __nvapi_undef__deref_inout_ecount_full + #undef __deref_inout_ecount_full + #undef __nvapi_undef__deref_inout_ecount_full +#endif +#ifdef __nvapi_undef__deref_inout_bcount_full + #undef __deref_inout_bcount_full + #undef __nvapi_undef__deref_inout_bcount_full +#endif +#ifdef __nvapi_undef__deref_inout_z + #undef __deref_inout_z + #undef __nvapi_undef__deref_inout_z +#endif +#ifdef __nvapi_undef__deref_inout_ecount_z + #undef __deref_inout_ecount_z + #undef __nvapi_undef__deref_inout_ecount_z +#endif +#ifdef __nvapi_undef__deref_inout_bcount_z + #undef __deref_inout_bcount_z + #undef __nvapi_undef__deref_inout_bcount_z +#endif +#ifdef __nvapi_undef__deref_inout_nz + #undef __deref_inout_nz + #undef __nvapi_undef__deref_inout_nz +#endif +#ifdef __nvapi_undef__deref_inout_ecount_nz + #undef __deref_inout_ecount_nz + #undef __nvapi_undef__deref_inout_ecount_nz +#endif +#ifdef __nvapi_undef__deref_inout_bcount_nz + #undef __deref_inout_bcount_nz + #undef __nvapi_undef__deref_inout_bcount_nz +#endif +#ifdef __nvapi_undef__deref_ecount_opt + #undef __deref_ecount_opt + #undef __nvapi_undef__deref_ecount_opt +#endif +#ifdef __nvapi_undef__deref_bcount_opt + #undef __deref_bcount_opt + #undef __nvapi_undef__deref_bcount_opt +#endif +#ifdef __nvapi_undef__deref_out_opt + #undef __deref_out_opt + #undef __nvapi_undef__deref_out_opt +#endif +#ifdef __nvapi_undef__deref_out_ecount_opt + #undef __deref_out_ecount_opt + #undef __nvapi_undef__deref_out_ecount_opt +#endif +#ifdef __nvapi_undef__deref_out_bcount_opt + #undef __deref_out_bcount_opt + #undef __nvapi_undef__deref_out_bcount_opt +#endif +#ifdef __nvapi_undef__deref_out_ecount_part_opt + #undef __deref_out_ecount_part_opt + #undef __nvapi_undef__deref_out_ecount_part_opt +#endif +#ifdef __nvapi_undef__deref_out_bcount_part_opt + #undef __deref_out_bcount_part_opt + #undef __nvapi_undef__deref_out_bcount_part_opt +#endif +#ifdef __nvapi_undef__deref_out_ecount_full_opt + #undef __deref_out_ecount_full_opt + #undef __nvapi_undef__deref_out_ecount_full_opt +#endif +#ifdef __nvapi_undef__deref_out_bcount_full_opt + #undef __deref_out_bcount_full_opt + #undef __nvapi_undef__deref_out_bcount_full_opt +#endif +#ifdef __nvapi_undef__deref_out_z_opt + #undef __deref_out_z_opt + #undef __nvapi_undef__deref_out_z_opt +#endif +#ifdef __nvapi_undef__deref_out_ecount_z_opt + #undef __deref_out_ecount_z_opt + #undef __nvapi_undef__deref_out_ecount_z_opt +#endif +#ifdef __nvapi_undef__deref_out_bcount_z_opt + #undef __deref_out_bcount_z_opt + #undef __nvapi_undef__deref_out_bcount_z_opt +#endif +#ifdef __nvapi_undef__deref_out_nz_opt + #undef __deref_out_nz_opt + #undef __nvapi_undef__deref_out_nz_opt +#endif +#ifdef __nvapi_undef__deref_out_ecount_nz_opt + #undef __deref_out_ecount_nz_opt + #undef __nvapi_undef__deref_out_ecount_nz_opt +#endif +#ifdef __nvapi_undef__deref_out_bcount_nz_opt + #undef __deref_out_bcount_nz_opt + #undef __nvapi_undef__deref_out_bcount_nz_opt +#endif +#ifdef __nvapi_undef__deref_inout_opt + #undef __deref_inout_opt + #undef __nvapi_undef__deref_inout_opt +#endif +#ifdef __nvapi_undef__deref_inout_ecount_opt + #undef __deref_inout_ecount_opt + #undef __nvapi_undef__deref_inout_ecount_opt +#endif +#ifdef __nvapi_undef__deref_inout_bcount_opt + #undef __deref_inout_bcount_opt + #undef __nvapi_undef__deref_inout_bcount_opt +#endif +#ifdef __nvapi_undef__deref_inout_ecount_part_opt + #undef __deref_inout_ecount_part_opt + #undef __nvapi_undef__deref_inout_ecount_part_opt +#endif +#ifdef __nvapi_undef__deref_inout_bcount_part_opt + #undef __deref_inout_bcount_part_opt + #undef __nvapi_undef__deref_inout_bcount_part_opt +#endif +#ifdef __nvapi_undef__deref_inout_ecount_full_opt + #undef __deref_inout_ecount_full_opt + #undef __nvapi_undef__deref_inout_ecount_full_opt +#endif +#ifdef __nvapi_undef__deref_inout_bcount_full_opt + #undef __deref_inout_bcount_full_opt + #undef __nvapi_undef__deref_inout_bcount_full_opt +#endif +#ifdef __nvapi_undef__deref_inout_z_opt + #undef __deref_inout_z_opt + #undef __nvapi_undef__deref_inout_z_opt +#endif +#ifdef __nvapi_undef__deref_inout_ecount_z_opt + #undef __deref_inout_ecount_z_opt + #undef __nvapi_undef__deref_inout_ecount_z_opt +#endif +#ifdef __nvapi_undef__deref_inout_bcount_z_opt + #undef __deref_inout_bcount_z_opt + #undef __nvapi_undef__deref_inout_bcount_z_opt +#endif +#ifdef __nvapi_undef__deref_inout_nz_opt + #undef __deref_inout_nz_opt + #undef __nvapi_undef__deref_inout_nz_opt +#endif +#ifdef __nvapi_undef__deref_inout_ecount_nz_opt + #undef __deref_inout_ecount_nz_opt + #undef __nvapi_undef__deref_inout_ecount_nz_opt +#endif +#ifdef __nvapi_undef__deref_inout_bcount_nz_opt + #undef __deref_inout_bcount_nz_opt + #undef __nvapi_undef__deref_inout_bcount_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_ecount + #undef __deref_opt_ecount + #undef __nvapi_undef__deref_opt_ecount +#endif +#ifdef __nvapi_undef__deref_opt_bcount + #undef __deref_opt_bcount + #undef __nvapi_undef__deref_opt_bcount +#endif +#ifdef __nvapi_undef__deref_opt_out + #undef __deref_opt_out + #undef __nvapi_undef__deref_opt_out +#endif +#ifdef __nvapi_undef__deref_opt_out_z + #undef __deref_opt_out_z + #undef __nvapi_undef__deref_opt_out_z +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount + #undef __deref_opt_out_ecount + #undef __nvapi_undef__deref_opt_out_ecount +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount + #undef __deref_opt_out_bcount + #undef __nvapi_undef__deref_opt_out_bcount +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_part + #undef __deref_opt_out_ecount_part + #undef __nvapi_undef__deref_opt_out_ecount_part +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_part + #undef __deref_opt_out_bcount_part + #undef __nvapi_undef__deref_opt_out_bcount_part +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_full + #undef __deref_opt_out_ecount_full + #undef __nvapi_undef__deref_opt_out_ecount_full +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_full + #undef __deref_opt_out_bcount_full + #undef __nvapi_undef__deref_opt_out_bcount_full +#endif +#ifdef __nvapi_undef__deref_opt_inout + #undef __deref_opt_inout + #undef __nvapi_undef__deref_opt_inout +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount + #undef __deref_opt_inout_ecount + #undef __nvapi_undef__deref_opt_inout_ecount +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount + #undef __deref_opt_inout_bcount + #undef __nvapi_undef__deref_opt_inout_bcount +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_part + #undef __deref_opt_inout_ecount_part + #undef __nvapi_undef__deref_opt_inout_ecount_part +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_part + #undef __deref_opt_inout_bcount_part + #undef __nvapi_undef__deref_opt_inout_bcount_part +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_full + #undef __deref_opt_inout_ecount_full + #undef __nvapi_undef__deref_opt_inout_ecount_full +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_full + #undef __deref_opt_inout_bcount_full + #undef __nvapi_undef__deref_opt_inout_bcount_full +#endif +#ifdef __nvapi_undef__deref_opt_inout_z + #undef __deref_opt_inout_z + #undef __nvapi_undef__deref_opt_inout_z +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_z + #undef __deref_opt_inout_ecount_z + #undef __nvapi_undef__deref_opt_inout_ecount_z +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_z + #undef __deref_opt_inout_bcount_z + #undef __nvapi_undef__deref_opt_inout_bcount_z +#endif +#ifdef __nvapi_undef__deref_opt_inout_nz + #undef __deref_opt_inout_nz + #undef __nvapi_undef__deref_opt_inout_nz +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_nz + #undef __deref_opt_inout_ecount_nz + #undef __nvapi_undef__deref_opt_inout_ecount_nz +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_nz + #undef __deref_opt_inout_bcount_nz + #undef __nvapi_undef__deref_opt_inout_bcount_nz +#endif +#ifdef __nvapi_undef__deref_opt_ecount_opt + #undef __deref_opt_ecount_opt + #undef __nvapi_undef__deref_opt_ecount_opt +#endif +#ifdef __nvapi_undef__deref_opt_bcount_opt + #undef __deref_opt_bcount_opt + #undef __nvapi_undef__deref_opt_bcount_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_opt + #undef __deref_opt_out_opt + #undef __nvapi_undef__deref_opt_out_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_opt + #undef __deref_opt_out_ecount_opt + #undef __nvapi_undef__deref_opt_out_ecount_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_opt + #undef __deref_opt_out_bcount_opt + #undef __nvapi_undef__deref_opt_out_bcount_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_part_opt + #undef __deref_opt_out_ecount_part_opt + #undef __nvapi_undef__deref_opt_out_ecount_part_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_part_opt + #undef __deref_opt_out_bcount_part_opt + #undef __nvapi_undef__deref_opt_out_bcount_part_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_full_opt + #undef __deref_opt_out_ecount_full_opt + #undef __nvapi_undef__deref_opt_out_ecount_full_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_full_opt + #undef __deref_opt_out_bcount_full_opt + #undef __nvapi_undef__deref_opt_out_bcount_full_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_z_opt + #undef __deref_opt_out_z_opt + #undef __nvapi_undef__deref_opt_out_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_z_opt + #undef __deref_opt_out_ecount_z_opt + #undef __nvapi_undef__deref_opt_out_ecount_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_z_opt + #undef __deref_opt_out_bcount_z_opt + #undef __nvapi_undef__deref_opt_out_bcount_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_nz_opt + #undef __deref_opt_out_nz_opt + #undef __nvapi_undef__deref_opt_out_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_ecount_nz_opt + #undef __deref_opt_out_ecount_nz_opt + #undef __nvapi_undef__deref_opt_out_ecount_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_out_bcount_nz_opt + #undef __deref_opt_out_bcount_nz_opt + #undef __nvapi_undef__deref_opt_out_bcount_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_opt + #undef __deref_opt_inout_opt + #undef __nvapi_undef__deref_opt_inout_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_opt + #undef __deref_opt_inout_ecount_opt + #undef __nvapi_undef__deref_opt_inout_ecount_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_opt + #undef __deref_opt_inout_bcount_opt + #undef __nvapi_undef__deref_opt_inout_bcount_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_part_opt + #undef __deref_opt_inout_ecount_part_opt + #undef __nvapi_undef__deref_opt_inout_ecount_part_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_part_opt + #undef __deref_opt_inout_bcount_part_opt + #undef __nvapi_undef__deref_opt_inout_bcount_part_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_full_opt + #undef __deref_opt_inout_ecount_full_opt + #undef __nvapi_undef__deref_opt_inout_ecount_full_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_full_opt + #undef __deref_opt_inout_bcount_full_opt + #undef __nvapi_undef__deref_opt_inout_bcount_full_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_z_opt + #undef __deref_opt_inout_z_opt + #undef __nvapi_undef__deref_opt_inout_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_z_opt + #undef __deref_opt_inout_ecount_z_opt + #undef __nvapi_undef__deref_opt_inout_ecount_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_z_opt + #undef __deref_opt_inout_bcount_z_opt + #undef __nvapi_undef__deref_opt_inout_bcount_z_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_nz_opt + #undef __deref_opt_inout_nz_opt + #undef __nvapi_undef__deref_opt_inout_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_ecount_nz_opt + #undef __deref_opt_inout_ecount_nz_opt + #undef __nvapi_undef__deref_opt_inout_ecount_nz_opt +#endif +#ifdef __nvapi_undef__deref_opt_inout_bcount_nz_opt + #undef __deref_opt_inout_bcount_nz_opt + #undef __nvapi_undef__deref_opt_inout_bcount_nz_opt +#endif +#ifdef __nvapi_success + #undef __success + #undef __nvapi_success +#endif +#ifdef __nvapi__Ret_notnull_ + #undef __nvapi__Ret_notnull_ + #undef _Ret_notnull_ +#endif +#ifdef __nvapi__Post_writable_byte_size_ + #undef __nvapi__Post_writable_byte_size_ + #undef _Post_writable_byte_size_ +#endif +#ifdef __nvapi_Outptr_ + #undef __nvapi_Outptr_ + #undef _Outptr_ +#endif + +#endif // __NVAPI_EMPTY_SAL diff --git a/sdk/include/nvapi/nvapi_lite_salstart.h b/sdk/include/nvapi/nvapi_lite_salstart.h new file mode 100644 index 00000000000..7e463fcbd74 --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_salstart.h @@ -0,0 +1,821 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +// ==================================================== +// SAL related support +// ==================================================== + +#ifndef __ecount + #define __nvapi_undef__ecount + #define __ecount(size) +#endif +#ifndef __bcount + #define __nvapi_undef__bcount + #define __bcount(size) +#endif +#ifndef __in + #define __nvapi_undef__in + #define __in +#endif +#ifndef __in_ecount + #define __nvapi_undef__in_ecount + #define __in_ecount(size) +#endif +#ifndef __in_bcount + #define __nvapi_undef__in_bcount + #define __in_bcount(size) +#endif +#ifndef __in_z + #define __nvapi_undef__in_z + #define __in_z +#endif +#ifndef __in_ecount_z + #define __nvapi_undef__in_ecount_z + #define __in_ecount_z(size) +#endif +#ifndef __in_bcount_z + #define __nvapi_undef__in_bcount_z + #define __in_bcount_z(size) +#endif +#ifndef __in_nz + #define __nvapi_undef__in_nz + #define __in_nz +#endif +#ifndef __in_ecount_nz + #define __nvapi_undef__in_ecount_nz + #define __in_ecount_nz(size) +#endif +#ifndef __in_bcount_nz + #define __nvapi_undef__in_bcount_nz + #define __in_bcount_nz(size) +#endif +#ifndef __out + #define __nvapi_undef__out + #define __out +#endif +#ifndef __out_ecount + #define __nvapi_undef__out_ecount + #define __out_ecount(size) +#endif +#ifndef __out_bcount + #define __nvapi_undef__out_bcount + #define __out_bcount(size) +#endif +#ifndef __out_ecount_part + #define __nvapi_undef__out_ecount_part + #define __out_ecount_part(size,length) +#endif +#ifndef __out_bcount_part + #define __nvapi_undef__out_bcount_part + #define __out_bcount_part(size,length) +#endif +#ifndef __out_ecount_full + #define __nvapi_undef__out_ecount_full + #define __out_ecount_full(size) +#endif +#ifndef __out_bcount_full + #define __nvapi_undef__out_bcount_full + #define __out_bcount_full(size) +#endif +#ifndef __out_z + #define __nvapi_undef__out_z + #define __out_z +#endif +#ifndef __out_z_opt + #define __nvapi_undef__out_z_opt + #define __out_z_opt +#endif +#ifndef __out_ecount_z + #define __nvapi_undef__out_ecount_z + #define __out_ecount_z(size) +#endif +#ifndef __out_bcount_z + #define __nvapi_undef__out_bcount_z + #define __out_bcount_z(size) +#endif +#ifndef __out_ecount_part_z + #define __nvapi_undef__out_ecount_part_z + #define __out_ecount_part_z(size,length) +#endif +#ifndef __out_bcount_part_z + #define __nvapi_undef__out_bcount_part_z + #define __out_bcount_part_z(size,length) +#endif +#ifndef __out_ecount_full_z + #define __nvapi_undef__out_ecount_full_z + #define __out_ecount_full_z(size) +#endif +#ifndef __out_bcount_full_z + #define __nvapi_undef__out_bcount_full_z + #define __out_bcount_full_z(size) +#endif +#ifndef __out_nz + #define __nvapi_undef__out_nz + #define __out_nz +#endif +#ifndef __out_nz_opt + #define __nvapi_undef__out_nz_opt + #define __out_nz_opt +#endif +#ifndef __out_ecount_nz + #define __nvapi_undef__out_ecount_nz + #define __out_ecount_nz(size) +#endif +#ifndef __out_bcount_nz + #define __nvapi_undef__out_bcount_nz + #define __out_bcount_nz(size) +#endif +#ifndef __inout + #define __nvapi_undef__inout + #define __inout +#endif +#ifndef __inout_ecount + #define __nvapi_undef__inout_ecount + #define __inout_ecount(size) +#endif +#ifndef __inout_bcount + #define __nvapi_undef__inout_bcount + #define __inout_bcount(size) +#endif +#ifndef __inout_ecount_part + #define __nvapi_undef__inout_ecount_part + #define __inout_ecount_part(size,length) +#endif +#ifndef __inout_bcount_part + #define __nvapi_undef__inout_bcount_part + #define __inout_bcount_part(size,length) +#endif +#ifndef __inout_ecount_full + #define __nvapi_undef__inout_ecount_full + #define __inout_ecount_full(size) +#endif +#ifndef __inout_bcount_full + #define __nvapi_undef__inout_bcount_full + #define __inout_bcount_full(size) +#endif +#ifndef __inout_z + #define __nvapi_undef__inout_z + #define __inout_z +#endif +#ifndef __inout_ecount_z + #define __nvapi_undef__inout_ecount_z + #define __inout_ecount_z(size) +#endif +#ifndef __inout_bcount_z + #define __nvapi_undef__inout_bcount_z + #define __inout_bcount_z(size) +#endif +#ifndef __inout_nz + #define __nvapi_undef__inout_nz + #define __inout_nz +#endif +#ifndef __inout_ecount_nz + #define __nvapi_undef__inout_ecount_nz + #define __inout_ecount_nz(size) +#endif +#ifndef __inout_bcount_nz + #define __nvapi_undef__inout_bcount_nz + #define __inout_bcount_nz(size) +#endif +#ifndef __ecount_opt + #define __nvapi_undef__ecount_opt + #define __ecount_opt(size) +#endif +#ifndef __bcount_opt + #define __nvapi_undef__bcount_opt + #define __bcount_opt(size) +#endif +#ifndef __in_opt + #define __nvapi_undef__in_opt + #define __in_opt +#endif +#ifndef __in_ecount_opt + #define __nvapi_undef__in_ecount_opt + #define __in_ecount_opt(size) +#endif +#ifndef __in_bcount_opt + #define __nvapi_undef__in_bcount_opt + #define __in_bcount_opt(size) +#endif +#ifndef __in_z_opt + #define __nvapi_undef__in_z_opt + #define __in_z_opt +#endif +#ifndef __in_ecount_z_opt + #define __nvapi_undef__in_ecount_z_opt + #define __in_ecount_z_opt(size) +#endif +#ifndef __in_bcount_z_opt + #define __nvapi_undef__in_bcount_z_opt + #define __in_bcount_z_opt(size) +#endif +#ifndef __in_nz_opt + #define __nvapi_undef__in_nz_opt + #define __in_nz_opt +#endif +#ifndef __in_ecount_nz_opt + #define __nvapi_undef__in_ecount_nz_opt + #define __in_ecount_nz_opt(size) +#endif +#ifndef __in_bcount_nz_opt + #define __nvapi_undef__in_bcount_nz_opt + #define __in_bcount_nz_opt(size) +#endif +#ifndef __out_opt + #define __nvapi_undef__out_opt + #define __out_opt +#endif +#ifndef __out_ecount_opt + #define __nvapi_undef__out_ecount_opt + #define __out_ecount_opt(size) +#endif +#ifndef __out_bcount_opt + #define __nvapi_undef__out_bcount_opt + #define __out_bcount_opt(size) +#endif +#ifndef __out_ecount_part_opt + #define __nvapi_undef__out_ecount_part_opt + #define __out_ecount_part_opt(size,length) +#endif +#ifndef __out_bcount_part_opt + #define __nvapi_undef__out_bcount_part_opt + #define __out_bcount_part_opt(size,length) +#endif +#ifndef __out_ecount_full_opt + #define __nvapi_undef__out_ecount_full_opt + #define __out_ecount_full_opt(size) +#endif +#ifndef __out_bcount_full_opt + #define __nvapi_undef__out_bcount_full_opt + #define __out_bcount_full_opt(size) +#endif +#ifndef __out_ecount_z_opt + #define __nvapi_undef__out_ecount_z_opt + #define __out_ecount_z_opt(size) +#endif +#ifndef __out_bcount_z_opt + #define __nvapi_undef__out_bcount_z_opt + #define __out_bcount_z_opt(size) +#endif +#ifndef __out_ecount_part_z_opt + #define __nvapi_undef__out_ecount_part_z_opt + #define __out_ecount_part_z_opt(size,length) +#endif +#ifndef __out_bcount_part_z_opt + #define __nvapi_undef__out_bcount_part_z_opt + #define __out_bcount_part_z_opt(size,length) +#endif +#ifndef __out_ecount_full_z_opt + #define __nvapi_undef__out_ecount_full_z_opt + #define __out_ecount_full_z_opt(size) +#endif +#ifndef __out_bcount_full_z_opt + #define __nvapi_undef__out_bcount_full_z_opt + #define __out_bcount_full_z_opt(size) +#endif +#ifndef __out_ecount_nz_opt + #define __nvapi_undef__out_ecount_nz_opt + #define __out_ecount_nz_opt(size) +#endif +#ifndef __out_bcount_nz_opt + #define __nvapi_undef__out_bcount_nz_opt + #define __out_bcount_nz_opt(size) +#endif +#ifndef __inout_opt + #define __nvapi_undef__inout_opt + #define __inout_opt +#endif +#ifndef __inout_ecount_opt + #define __nvapi_undef__inout_ecount_opt + #define __inout_ecount_opt(size) +#endif +#ifndef __inout_bcount_opt + #define __nvapi_undef__inout_bcount_opt + #define __inout_bcount_opt(size) +#endif +#ifndef __inout_ecount_part_opt + #define __nvapi_undef__inout_ecount_part_opt + #define __inout_ecount_part_opt(size,length) +#endif +#ifndef __inout_bcount_part_opt + #define __nvapi_undef__inout_bcount_part_opt + #define __inout_bcount_part_opt(size,length) +#endif +#ifndef __inout_ecount_full_opt + #define __nvapi_undef__inout_ecount_full_opt + #define __inout_ecount_full_opt(size) +#endif +#ifndef __inout_bcount_full_opt + #define __nvapi_undef__inout_bcount_full_opt + #define __inout_bcount_full_opt(size) +#endif +#ifndef __inout_z_opt + #define __nvapi_undef__inout_z_opt + #define __inout_z_opt +#endif +#ifndef __inout_ecount_z_opt + #define __nvapi_undef__inout_ecount_z_opt + #define __inout_ecount_z_opt(size) +#endif +#ifndef __inout_ecount_z_opt + #define __nvapi_undef__inout_ecount_z_opt + #define __inout_ecount_z_opt(size) +#endif +#ifndef __inout_bcount_z_opt + #define __nvapi_undef__inout_bcount_z_opt + #define __inout_bcount_z_opt(size) +#endif +#ifndef __inout_nz_opt + #define __nvapi_undef__inout_nz_opt + #define __inout_nz_opt +#endif +#ifndef __inout_ecount_nz_opt + #define __nvapi_undef__inout_ecount_nz_opt + #define __inout_ecount_nz_opt(size) +#endif +#ifndef __inout_bcount_nz_opt + #define __nvapi_undef__inout_bcount_nz_opt + #define __inout_bcount_nz_opt(size) +#endif +#ifndef __deref_ecount + #define __nvapi_undef__deref_ecount + #define __deref_ecount(size) +#endif +#ifndef __deref_bcount + #define __nvapi_undef__deref_bcount + #define __deref_bcount(size) +#endif +#ifndef __deref_out + #define __nvapi_undef__deref_out + #define __deref_out +#endif +#ifndef __deref_out_ecount + #define __nvapi_undef__deref_out_ecount + #define __deref_out_ecount(size) +#endif +#ifndef __deref_out_bcount + #define __nvapi_undef__deref_out_bcount + #define __deref_out_bcount(size) +#endif +#ifndef __deref_out_ecount_part + #define __nvapi_undef__deref_out_ecount_part + #define __deref_out_ecount_part(size,length) +#endif +#ifndef __deref_out_bcount_part + #define __nvapi_undef__deref_out_bcount_part + #define __deref_out_bcount_part(size,length) +#endif +#ifndef __deref_out_ecount_full + #define __nvapi_undef__deref_out_ecount_full + #define __deref_out_ecount_full(size) +#endif +#ifndef __deref_out_bcount_full + #define __nvapi_undef__deref_out_bcount_full + #define __deref_out_bcount_full(size) +#endif +#ifndef __deref_out_z + #define __nvapi_undef__deref_out_z + #define __deref_out_z +#endif +#ifndef __deref_out_ecount_z + #define __nvapi_undef__deref_out_ecount_z + #define __deref_out_ecount_z(size) +#endif +#ifndef __deref_out_bcount_z + #define __nvapi_undef__deref_out_bcount_z + #define __deref_out_bcount_z(size) +#endif +#ifndef __deref_out_nz + #define __nvapi_undef__deref_out_nz + #define __deref_out_nz +#endif +#ifndef __deref_out_ecount_nz + #define __nvapi_undef__deref_out_ecount_nz + #define __deref_out_ecount_nz(size) +#endif +#ifndef __deref_out_bcount_nz + #define __nvapi_undef__deref_out_bcount_nz + #define __deref_out_bcount_nz(size) +#endif +#ifndef __deref_inout + #define __nvapi_undef__deref_inout + #define __deref_inout +#endif +#ifndef __deref_inout_z + #define __nvapi_undef__deref_inout_z + #define __deref_inout_z +#endif +#ifndef __deref_inout_ecount + #define __nvapi_undef__deref_inout_ecount + #define __deref_inout_ecount(size) +#endif +#ifndef __deref_inout_bcount + #define __nvapi_undef__deref_inout_bcount + #define __deref_inout_bcount(size) +#endif +#ifndef __deref_inout_ecount_part + #define __nvapi_undef__deref_inout_ecount_part + #define __deref_inout_ecount_part(size,length) +#endif +#ifndef __deref_inout_bcount_part + #define __nvapi_undef__deref_inout_bcount_part + #define __deref_inout_bcount_part(size,length) +#endif +#ifndef __deref_inout_ecount_full + #define __nvapi_undef__deref_inout_ecount_full + #define __deref_inout_ecount_full(size) +#endif +#ifndef __deref_inout_bcount_full + #define __nvapi_undef__deref_inout_bcount_full + #define __deref_inout_bcount_full(size) +#endif +#ifndef __deref_inout_z + #define __nvapi_undef__deref_inout_z + #define __deref_inout_z +#endif +#ifndef __deref_inout_ecount_z + #define __nvapi_undef__deref_inout_ecount_z + #define __deref_inout_ecount_z(size) +#endif +#ifndef __deref_inout_bcount_z + #define __nvapi_undef__deref_inout_bcount_z + #define __deref_inout_bcount_z(size) +#endif +#ifndef __deref_inout_nz + #define __nvapi_undef__deref_inout_nz + #define __deref_inout_nz +#endif +#ifndef __deref_inout_ecount_nz + #define __nvapi_undef__deref_inout_ecount_nz + #define __deref_inout_ecount_nz(size) +#endif +#ifndef __deref_inout_bcount_nz + #define __nvapi_undef__deref_inout_bcount_nz + #define __deref_inout_bcount_nz(size) +#endif +#ifndef __deref_ecount_opt + #define __nvapi_undef__deref_ecount_opt + #define __deref_ecount_opt(size) +#endif +#ifndef __deref_bcount_opt + #define __nvapi_undef__deref_bcount_opt + #define __deref_bcount_opt(size) +#endif +#ifndef __deref_out_opt + #define __nvapi_undef__deref_out_opt + #define __deref_out_opt +#endif +#ifndef __deref_out_ecount_opt + #define __nvapi_undef__deref_out_ecount_opt + #define __deref_out_ecount_opt(size) +#endif +#ifndef __deref_out_bcount_opt + #define __nvapi_undef__deref_out_bcount_opt + #define __deref_out_bcount_opt(size) +#endif +#ifndef __deref_out_ecount_part_opt + #define __nvapi_undef__deref_out_ecount_part_opt + #define __deref_out_ecount_part_opt(size,length) +#endif +#ifndef __deref_out_bcount_part_opt + #define __nvapi_undef__deref_out_bcount_part_opt + #define __deref_out_bcount_part_opt(size,length) +#endif +#ifndef __deref_out_ecount_full_opt + #define __nvapi_undef__deref_out_ecount_full_opt + #define __deref_out_ecount_full_opt(size) +#endif +#ifndef __deref_out_bcount_full_opt + #define __nvapi_undef__deref_out_bcount_full_opt + #define __deref_out_bcount_full_opt(size) +#endif +#ifndef __deref_out_z_opt + #define __nvapi_undef__deref_out_z_opt + #define __deref_out_z_opt +#endif +#ifndef __deref_out_ecount_z_opt + #define __nvapi_undef__deref_out_ecount_z_opt + #define __deref_out_ecount_z_opt(size) +#endif +#ifndef __deref_out_bcount_z_opt + #define __nvapi_undef__deref_out_bcount_z_opt + #define __deref_out_bcount_z_opt(size) +#endif +#ifndef __deref_out_nz_opt + #define __nvapi_undef__deref_out_nz_opt + #define __deref_out_nz_opt +#endif +#ifndef __deref_out_ecount_nz_opt + #define __nvapi_undef__deref_out_ecount_nz_opt + #define __deref_out_ecount_nz_opt(size) +#endif +#ifndef __deref_out_bcount_nz_opt + #define __nvapi_undef__deref_out_bcount_nz_opt + #define __deref_out_bcount_nz_opt(size) +#endif +#ifndef __deref_inout_opt + #define __nvapi_undef__deref_inout_opt + #define __deref_inout_opt +#endif +#ifndef __deref_inout_ecount_opt + #define __nvapi_undef__deref_inout_ecount_opt + #define __deref_inout_ecount_opt(size) +#endif +#ifndef __deref_inout_bcount_opt + #define __nvapi_undef__deref_inout_bcount_opt + #define __deref_inout_bcount_opt(size) +#endif +#ifndef __deref_inout_ecount_part_opt + #define __nvapi_undef__deref_inout_ecount_part_opt + #define __deref_inout_ecount_part_opt(size,length) +#endif +#ifndef __deref_inout_bcount_part_opt + #define __nvapi_undef__deref_inout_bcount_part_opt + #define __deref_inout_bcount_part_opt(size,length) +#endif +#ifndef __deref_inout_ecount_full_opt + #define __nvapi_undef__deref_inout_ecount_full_opt + #define __deref_inout_ecount_full_opt(size) +#endif +#ifndef __deref_inout_bcount_full_opt + #define __nvapi_undef__deref_inout_bcount_full_opt + #define __deref_inout_bcount_full_opt(size) +#endif +#ifndef __deref_inout_z_opt + #define __nvapi_undef__deref_inout_z_opt + #define __deref_inout_z_opt +#endif +#ifndef __deref_inout_ecount_z_opt + #define __nvapi_undef__deref_inout_ecount_z_opt + #define __deref_inout_ecount_z_opt(size) +#endif +#ifndef __deref_inout_bcount_z_opt + #define __nvapi_undef__deref_inout_bcount_z_opt + #define __deref_inout_bcount_z_opt(size) +#endif +#ifndef __deref_inout_nz_opt + #define __nvapi_undef__deref_inout_nz_opt + #define __deref_inout_nz_opt +#endif +#ifndef __deref_inout_ecount_nz_opt + #define __nvapi_undef__deref_inout_ecount_nz_opt + #define __deref_inout_ecount_nz_opt(size) +#endif +#ifndef __deref_inout_bcount_nz_opt + #define __nvapi_undef__deref_inout_bcount_nz_opt + #define __deref_inout_bcount_nz_opt(size) +#endif +#ifndef __deref_opt_ecount + #define __nvapi_undef__deref_opt_ecount + #define __deref_opt_ecount(size) +#endif +#ifndef __deref_opt_bcount + #define __nvapi_undef__deref_opt_bcount + #define __deref_opt_bcount(size) +#endif +#ifndef __deref_opt_out + #define __nvapi_undef__deref_opt_out + #define __deref_opt_out +#endif +#ifndef __deref_opt_out_z + #define __nvapi_undef__deref_opt_out_z + #define __deref_opt_out_z +#endif +#ifndef __deref_opt_out_ecount + #define __nvapi_undef__deref_opt_out_ecount + #define __deref_opt_out_ecount(size) +#endif +#ifndef __deref_opt_out_bcount + #define __nvapi_undef__deref_opt_out_bcount + #define __deref_opt_out_bcount(size) +#endif +#ifndef __deref_opt_out_ecount_part + #define __nvapi_undef__deref_opt_out_ecount_part + #define __deref_opt_out_ecount_part(size,length) +#endif +#ifndef __deref_opt_out_bcount_part + #define __nvapi_undef__deref_opt_out_bcount_part + #define __deref_opt_out_bcount_part(size,length) +#endif +#ifndef __deref_opt_out_ecount_full + #define __nvapi_undef__deref_opt_out_ecount_full + #define __deref_opt_out_ecount_full(size) +#endif +#ifndef __deref_opt_out_bcount_full + #define __nvapi_undef__deref_opt_out_bcount_full + #define __deref_opt_out_bcount_full(size) +#endif +#ifndef __deref_opt_inout + #define __nvapi_undef__deref_opt_inout + #define __deref_opt_inout +#endif +#ifndef __deref_opt_inout_ecount + #define __nvapi_undef__deref_opt_inout_ecount + #define __deref_opt_inout_ecount(size) +#endif +#ifndef __deref_opt_inout_bcount + #define __nvapi_undef__deref_opt_inout_bcount + #define __deref_opt_inout_bcount(size) +#endif +#ifndef __deref_opt_inout_ecount_part + #define __nvapi_undef__deref_opt_inout_ecount_part + #define __deref_opt_inout_ecount_part(size,length) +#endif +#ifndef __deref_opt_inout_bcount_part + #define __nvapi_undef__deref_opt_inout_bcount_part + #define __deref_opt_inout_bcount_part(size,length) +#endif +#ifndef __deref_opt_inout_ecount_full + #define __nvapi_undef__deref_opt_inout_ecount_full + #define __deref_opt_inout_ecount_full(size) +#endif +#ifndef __deref_opt_inout_bcount_full + #define __nvapi_undef__deref_opt_inout_bcount_full + #define __deref_opt_inout_bcount_full(size) +#endif +#ifndef __deref_opt_inout_z + #define __nvapi_undef__deref_opt_inout_z + #define __deref_opt_inout_z +#endif +#ifndef __deref_opt_inout_ecount_z + #define __nvapi_undef__deref_opt_inout_ecount_z + #define __deref_opt_inout_ecount_z(size) +#endif +#ifndef __deref_opt_inout_bcount_z + #define __nvapi_undef__deref_opt_inout_bcount_z + #define __deref_opt_inout_bcount_z(size) +#endif +#ifndef __deref_opt_inout_nz + #define __nvapi_undef__deref_opt_inout_nz + #define __deref_opt_inout_nz +#endif +#ifndef __deref_opt_inout_ecount_nz + #define __nvapi_undef__deref_opt_inout_ecount_nz + #define __deref_opt_inout_ecount_nz(size) +#endif +#ifndef __deref_opt_inout_bcount_nz + #define __nvapi_undef__deref_opt_inout_bcount_nz + #define __deref_opt_inout_bcount_nz(size) +#endif +#ifndef __deref_opt_ecount_opt + #define __nvapi_undef__deref_opt_ecount_opt + #define __deref_opt_ecount_opt(size) +#endif +#ifndef __deref_opt_bcount_opt + #define __nvapi_undef__deref_opt_bcount_opt + #define __deref_opt_bcount_opt(size) +#endif +#ifndef __deref_opt_out_opt + #define __nvapi_undef__deref_opt_out_opt + #define __deref_opt_out_opt +#endif +#ifndef __deref_opt_out_ecount_opt + #define __nvapi_undef__deref_opt_out_ecount_opt + #define __deref_opt_out_ecount_opt(size) +#endif +#ifndef __deref_opt_out_bcount_opt + #define __nvapi_undef__deref_opt_out_bcount_opt + #define __deref_opt_out_bcount_opt(size) +#endif +#ifndef __deref_opt_out_ecount_part_opt + #define __nvapi_undef__deref_opt_out_ecount_part_opt + #define __deref_opt_out_ecount_part_opt(size,length) +#endif +#ifndef __deref_opt_out_bcount_part_opt + #define __nvapi_undef__deref_opt_out_bcount_part_opt + #define __deref_opt_out_bcount_part_opt(size,length) +#endif +#ifndef __deref_opt_out_ecount_full_opt + #define __nvapi_undef__deref_opt_out_ecount_full_opt + #define __deref_opt_out_ecount_full_opt(size) +#endif +#ifndef __deref_opt_out_bcount_full_opt + #define __nvapi_undef__deref_opt_out_bcount_full_opt + #define __deref_opt_out_bcount_full_opt(size) +#endif +#ifndef __deref_opt_out_z_opt + #define __nvapi_undef__deref_opt_out_z_opt + #define __deref_opt_out_z_opt +#endif +#ifndef __deref_opt_out_ecount_z_opt + #define __nvapi_undef__deref_opt_out_ecount_z_opt + #define __deref_opt_out_ecount_z_opt(size) +#endif +#ifndef __deref_opt_out_bcount_z_opt + #define __nvapi_undef__deref_opt_out_bcount_z_opt + #define __deref_opt_out_bcount_z_opt(size) +#endif +#ifndef __deref_opt_out_nz_opt + #define __nvapi_undef__deref_opt_out_nz_opt + #define __deref_opt_out_nz_opt +#endif +#ifndef __deref_opt_out_ecount_nz_opt + #define __nvapi_undef__deref_opt_out_ecount_nz_opt + #define __deref_opt_out_ecount_nz_opt(size) +#endif +#ifndef __deref_opt_out_bcount_nz_opt + #define __nvapi_undef__deref_opt_out_bcount_nz_opt + #define __deref_opt_out_bcount_nz_opt(size) +#endif +#ifndef __deref_opt_inout_opt + #define __nvapi_undef__deref_opt_inout_opt + #define __deref_opt_inout_opt +#endif +#ifndef __deref_opt_inout_ecount_opt + #define __nvapi_undef__deref_opt_inout_ecount_opt + #define __deref_opt_inout_ecount_opt(size) +#endif +#ifndef __deref_opt_inout_bcount_opt + #define __nvapi_undef__deref_opt_inout_bcount_opt + #define __deref_opt_inout_bcount_opt(size) +#endif +#ifndef __deref_opt_inout_ecount_part_opt + #define __nvapi_undef__deref_opt_inout_ecount_part_opt + #define __deref_opt_inout_ecount_part_opt(size,length) +#endif +#ifndef __deref_opt_inout_bcount_part_opt + #define __nvapi_undef__deref_opt_inout_bcount_part_opt + #define __deref_opt_inout_bcount_part_opt(size,length) +#endif +#ifndef __deref_opt_inout_ecount_full_opt + #define __nvapi_undef__deref_opt_inout_ecount_full_opt + #define __deref_opt_inout_ecount_full_opt(size) +#endif +#ifndef __deref_opt_inout_bcount_full_opt + #define __nvapi_undef__deref_opt_inout_bcount_full_opt + #define __deref_opt_inout_bcount_full_opt(size) +#endif +#ifndef __deref_opt_inout_z_opt + #define __nvapi_undef__deref_opt_inout_z_opt + #define __deref_opt_inout_z_opt +#endif +#ifndef __deref_opt_inout_ecount_z_opt + #define __nvapi_undef__deref_opt_inout_ecount_z_opt + #define __deref_opt_inout_ecount_z_opt(size) +#endif +#ifndef __deref_opt_inout_bcount_z_opt + #define __nvapi_undef__deref_opt_inout_bcount_z_opt + #define __deref_opt_inout_bcount_z_opt(size) +#endif +#ifndef __deref_opt_inout_nz_opt + #define __nvapi_undef__deref_opt_inout_nz_opt + #define __deref_opt_inout_nz_opt +#endif +#ifndef __deref_opt_inout_ecount_nz_opt + #define __nvapi_undef__deref_opt_inout_ecount_nz_opt + #define __deref_opt_inout_ecount_nz_opt(size) +#endif +#ifndef __deref_opt_inout_bcount_nz_opt + #define __nvapi_undef__deref_opt_inout_bcount_nz_opt + #define __deref_opt_inout_bcount_nz_opt(size) +#endif +#ifndef __success + #define __nvapi_success + #define __success(epxr) +#endif +#ifndef _Ret_notnull_ + #define __nvapi__Ret_notnull_ + #define _Ret_notnull_ +#endif +#ifndef _Post_writable_byte_size_ + #define __nvapi__Post_writable_byte_size_ + #define _Post_writable_byte_size_(n) +#endif +#ifndef _Outptr_ + #define __nvapi_Outptr_ + #define _Outptr_ +#endif + + +#define NVAPI_INTERFACE extern __success(return == NVAPI_OK) NvAPI_Status __cdecl diff --git a/sdk/include/nvapi/nvapi_lite_sli.h b/sdk/include/nvapi/nvapi_lite_sli.h new file mode 100644 index 00000000000..7194c90291a --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_sli.h @@ -0,0 +1,218 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +#pragma once +#include"nvapi_lite_salstart.h" +#include"nvapi_lite_common.h" +#pragma pack(push,8) +#ifdef __cplusplus +extern "C" { +#endif +//----------------------------------------------------------------------------- +// DirectX APIs +//----------------------------------------------------------------------------- + + +//! \ingroup dx +//! Used in NvAPI_D3D10_GetCurrentSLIState(), and NvAPI_D3D_GetCurrentSLIState(). +typedef struct +{ + NvU32 version; //!< Structure version + NvU32 maxNumAFRGroups; //!< [OUT] The maximum possible value of numAFRGroups + NvU32 numAFRGroups; //!< [OUT] The number of AFR groups enabled in the system + NvU32 currentAFRIndex; //!< [OUT] The AFR group index for the frame currently being rendered + NvU32 nextFrameAFRIndex; //!< [OUT] What the AFR group index will be for the next frame (i.e. after calling Present) + NvU32 previousFrameAFRIndex; //!< [OUT] The AFR group index that was used for the previous frame (~0 if more than one frame has not been rendered yet) + NvU32 bIsCurAFRGroupNew; //!< [OUT] Boolean: Is this frame the first time running on the current AFR group + +} NV_GET_CURRENT_SLI_STATE; + +//! \ingroup dx +#define NV_GET_CURRENT_SLI_STATE_VER MAKE_NVAPI_VERSION(NV_GET_CURRENT_SLI_STATE,1) +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_GetCurrentSLIState +// +//! DESCRIPTION: This function returns the current SLI state for the specified device. The structure +//! contains the number of AFR groups, the current AFR group index, +//! and what the AFR group index will be for the next frame. \p +//! pDevice can be either a IDirect3DDevice9 or ID3D10Device pointer. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 173 +//! +//! \retval NVAPI_OK Completed request +//! \retval NVAPI_ERROR Error occurred +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D_GetCurrentSLIState(IUnknown *pDevice, NV_GET_CURRENT_SLI_STATE *pSliState); +#endif //if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_SetResourceHint +// +//! \fn NvAPI_D3D_SetResourceHint(IUnknown *pDev, NVDX_ObjectHandle obj, +//! NVAPI_D3D_SETRESOURCEHINT_CATEGORY dwHintCategory, +//! NvU32 dwHintName, +//! NvU32 *pdwHintValue) +//! +//! DESCRIPTION: This is a general purpose function for passing down various resource +//! related hints to the driver. Hints are divided into categories +//! and types within each category. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pDev The ID3D10Device or IDirect3DDevice9 that is a using the resource +//! \param [in] obj Previously obtained HV resource handle +//! \param [in] dwHintCategory Category of the hints +//! \param [in] dwHintName A hint within this category +//! \param [in] *pdwHintValue Pointer to location containing hint value +//! +//! \return an int which could be an NvAPI status or DX HRESULT code +//! +//! \retval ::NVAPI_OK +//! \retval ::NVAPI_INVALID_ARGUMENT +//! \retval ::NVAPI_INVALID_CALL It is illegal to change a hint dynamically when the resource is already bound. +// +//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + + +//! \ingroup dx +//! Valid categories for NvAPI_D3D_SetResourceHint() +typedef enum _NVAPI_D3D_SETRESOURCEHINT_CATEGORY +{ + NVAPI_D3D_SRH_CATEGORY_SLI = 1 +} NVAPI_D3D_SETRESOURCEHINT_CATEGORY; + + +// +// NVAPI_D3D_SRH_SLI_APP_CONTROLLED_INTERFRAME_CONTENT_SYNC: + + +//! \ingroup dx +//! Types of SLI hints; \n +//! NVAPI_D3D_SRH_SLI_APP_CONTROLLED_INTERFRAME_CONTENT_SYNC: Valid values : 0 or 1 \n +//! Default value: 0 \n +//! Explanation: If the value is 1, the driver will not track any rendering operations that would mark this resource as dirty, +//! avoiding any form of synchronization across frames rendered in parallel in multiple GPUs in AFR mode. +typedef enum _NVAPI_D3D_SETRESOURCEHINT_SLI +{ + NVAPI_D3D_SRH_SLI_APP_CONTROLLED_INTERFRAME_CONTENT_SYNC = 1 +} NVAPI_D3D_SETRESOURCEHINT_SLI; + +//! \ingroup dx +NVAPI_INTERFACE NvAPI_D3D_SetResourceHint(IUnknown *pDev, NVDX_ObjectHandle obj, + NVAPI_D3D_SETRESOURCEHINT_CATEGORY dwHintCategory, + NvU32 dwHintName, + NvU32 *pdwHintValue); +#endif //defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_BeginResourceRendering +// +//! \fn NvAPI_D3D_BeginResourceRendering(IUnknown *pDev, NVDX_ObjectHandle obj, NvU32 Flags) +//! DESCRIPTION: This function tells the driver that the resource will begin to receive updates. It must be used in combination with NvAPI_D3D_EndResourceRendering(). +//! The primary use of this function is allow the driver to initiate early inter-frame synchronization of resources while running in AFR SLI mode. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pDev The ID3D10Device or IDirect3DDevice9 that is a using the resource +//! \param [in] obj Previously obtained HV resource handle +//! \param [in] Flags The flags for functionality applied to resource while being used. +//! +//! \retval ::NVAPI_OK Function succeeded, if used properly and driver can initiate proper sync'ing of the resources. +//! \retval ::NVAPI_INVALID_ARGUMENT Bad argument(s) or invalid flag values +//! \retval ::NVAPI_INVALID_CALL Mismatched begin/end calls +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup dx +//! Used in NvAPI_D3D_BeginResourceRendering(). +typedef enum _NVAPI_D3D_RESOURCERENDERING_FLAG +{ + NVAPI_D3D_RR_FLAG_DEFAULTS = 0x00000000, //!< All bits set to 0 are defaults. + NVAPI_D3D_RR_FLAG_FORCE_DISCARD_CONTENT = 0x00000001, //!< (bit 0) The flag forces to discard previous content of the resource regardless of the NvApiHints_Sli_Disable_InterframeSync hint + NVAPI_D3D_RR_FLAG_FORCE_KEEP_CONTENT = 0x00000002, //!< (bit 1) The flag forces to respect previous content of the resource regardless of the NvApiHints_Sli_Disable_InterframeSync hint + NVAPI_D3D_RR_FLAG_MULTI_FRAME = 0x00000004 //!< (bit 2) The flag hints the driver that content will be used for many frames. If not specified then the driver assumes that content is used only on the next frame +} NVAPI_D3D_RESOURCERENDERING_FLAG; + +//! \ingroup dx +NVAPI_INTERFACE NvAPI_D3D_BeginResourceRendering(IUnknown *pDev, NVDX_ObjectHandle obj, NvU32 Flags); + +#endif //defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_D3D_EndResourceRendering +// +//! DESCRIPTION: This function tells the driver that the resource is done receiving updates. It must be used in combination with +//! NvAPI_D3D_BeginResourceRendering(). +//! The primary use of this function is allow the driver to initiate early inter-frame syncs of resources while running in AFR SLI mode. +//! +//! SUPPORTED OS: Windows XP and higher +//! +//! +//! \since Release: 185 +//! +//! \param [in] pDev The ID3D10Device or IDirect3DDevice9 thatis a using the resource +//! \param [in] obj Previously obtained HV resource handle +//! \param [in] Flags Reserved, must be zero +// +//! \retval ::NVAPI_OK Function succeeded, if used properly and driver can initiate proper sync'ing of the resources. +//! \retval ::NVAPI_INVALID_ARGUMENT Bad argument(s) or invalid flag values +//! \retval ::NVAPI_INVALID_CALL Mismatched begin/end calls +//! +//! \ingroup dx +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_D3D_EndResourceRendering(IUnknown *pDev, NVDX_ObjectHandle obj, NvU32 Flags); +#endif //if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) + +#include"nvapi_lite_salend.h" +#ifdef __cplusplus +} +#endif +#pragma pack(pop) diff --git a/sdk/include/nvapi/nvapi_lite_stereo.h b/sdk/include/nvapi/nvapi_lite_stereo.h new file mode 100644 index 00000000000..4747e8d98f3 --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_stereo.h @@ -0,0 +1,600 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +#pragma once +#include"nvapi_lite_salstart.h" +#include"nvapi_lite_common.h" +#pragma pack(push,8) +#ifdef __cplusplus +extern "C" { +#endif +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Enable +// +//! DESCRIPTION: This APU enables stereo mode in the registry. +//! Calls to this function affect the entire system. +//! If stereo is not enabled, then calls to functions that require that stereo is enabled have no effect, +//! and will return the appropriate error code. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \retval ::NVAPI_OK Stereo is now enabled. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Enable(void); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Disable +// +//! DESCRIPTION: This API disables stereo mode in the registry. +//! Calls to this function affect the entire system. +//! If stereo is not enabled, then calls to functions that require that stereo is enabled have no effect, +//! and will return the appropriate error code. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \retval ::NVAPI_OK Stereo is now disabled. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Disable(void); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_IsEnabled +// +//! DESCRIPTION: This API checks if stereo mode is enabled in the registry. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [out] pIsStereoEnabled Address where the result of the inquiry will be placed. +//! +//! \retval ::NVAPI_OK Check was sucessfully completed and result reflects current state of stereo availability. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_IsEnabled(NvU8 *pIsStereoEnabled); +#if defined(_D3D9_H_) || defined(__d3d10_h__) || defined(__d3d11_h__) + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_CreateHandleFromIUnknown +// +//! DESCRIPTION: This API creates a stereo handle that is used in subsequent calls related to a given device interface. +//! This must be called before any other NvAPI_Stereo_ function for that handle. +//! Multiple devices can be used at one time using multiple calls to this function (one per each device). +//! +//! HOW TO USE: After the Direct3D device is created, create the stereo handle. +//! On call success: +//! -# Use all other NvAPI_Stereo_ functions that have stereo handle as first parameter. +//! -# After the device interface that corresponds to the the stereo handle is destroyed, +//! the application should call NvAPI_DestroyStereoHandle() for that stereo handle. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] pDevice Pointer to IUnknown interface that is IDirect3DDevice9* in DX9, ID3D10Device*. +//! \param [out] pStereoHandle Pointer to the newly created stereo handle. +//! +//! \retval ::NVAPI_OK Stereo handle is created for given device interface. +//! \retval ::NVAPI_INVALID_ARGUMENT Provided device interface is invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_CreateHandleFromIUnknown(IUnknown *pDevice, StereoHandle *pStereoHandle); + +#endif // defined(_D3D9_H_) || defined(__d3d10_h__) +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_DestroyHandle +// +//! DESCRIPTION: This API destroys the stereo handle created with one of the NvAPI_Stereo_CreateHandleFrom() functions. +//! This should be called after the device corresponding to the handle has been destroyed. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that is to be destroyed. +//! +//! \retval ::NVAPI_OK Stereo handle is destroyed. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_DestroyHandle(StereoHandle stereoHandle); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Activate +// +//! DESCRIPTION: This API activates stereo for the device interface corresponding to the given stereo handle. +//! Activating stereo is possible only if stereo was enabled previously in the registry. +//! If stereo is not activated, then calls to functions that require that stereo is activated have no effect, +//! and will return the appropriate error code. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle corresponding to the device interface. +//! +//! \retval ::NVAPI_OK Stereo is turned on. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Activate(StereoHandle stereoHandle); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Deactivate +// +//! DESCRIPTION: This API deactivates stereo for the given device interface. +//! If stereo is not activated, then calls to functions that require that stereo is activated have no effect, +//! and will return the appropriate error code. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! +//! \retval ::NVAPI_OK Stereo is turned off. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Deactivate(StereoHandle stereoHandle); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_IsActivated +// +//! DESCRIPTION: This API checks if stereo is activated for the given device interface. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [in] pIsStereoOn Address where result of the inquiry will be placed. +//! +//! \retval ::NVAPI_OK - Check was sucessfully completed and result reflects current state of stereo (on/off). +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE - Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED - NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED - Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR - Something is wrong (generic error). +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_IsActivated(StereoHandle stereoHandle, NvU8 *pIsStereoOn); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_GetSeparation +// +//! DESCRIPTION: This API gets current separation value (in percents). +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [out] pSeparationPercentage Address of @c float type variable to store current separation percentage in. +//! +//! \retval ::NVAPI_OK Retrieval of separation percentage was successfull. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_GetSeparation(StereoHandle stereoHandle, float *pSeparationPercentage); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetSeparation +// +//! DESCRIPTION: This API sets separation to given percentage. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [in] newSeparationPercentage New value for separation percentage. +//! +//! \retval ::NVAPI_OK Setting of separation percentage was successfull. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_STEREO_PARAMETER_OUT_OF_RANGE Given separation percentage is out of [0..100] range. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_SetSeparation(StereoHandle stereoHandle, float newSeparationPercentage); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_GetConvergence +// +//! DESCRIPTION: This API gets the current convergence value. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [out] pConvergence Address of @c float type variable to store current convergence value in. +//! +//! \retval ::NVAPI_OK Retrieval of convergence value was successfull. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_GetConvergence(StereoHandle stereoHandle, float *pConvergence); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetConvergence +// +//! DESCRIPTION: This API sets convergence to the given value. +//! +//! WHEN TO USE: After the stereo handle for the device interface is created via successfull call to the appropriate NvAPI_Stereo_CreateHandleFrom() function. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \since Release: 180 +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [in] newConvergence New value for convergence. +//! +//! \retval ::NVAPI_OK Setting of convergence value was successfull. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_SetConvergence(StereoHandle stereoHandle, float newConvergence); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetActiveEye +// +//! \fn NvAPI_Stereo_SetActiveEye(StereoHandle hStereoHandle, NV_STEREO_ACTIVE_EYE StereoEye); +//! DESCRIPTION: This API sets the back buffer to left or right in Direct stereo mode. +//! +//! HOW TO USE: After the stereo handle for device interface is created via successfull call to appropriate +//! NvAPI_Stereo_CreateHandleFrom function. +//! +//! \since Release: 285 +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [in] StereoEye Defines active eye in Direct stereo mode +//! +//! \retval ::NVAPI_OK - Active eye is set. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE - Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED - NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED - Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_INVALID_ARGUMENT - StereoEye parameter has not allowed value. +//! \retval ::NVAPI_SET_NOT_ALLOWED - Current stereo mode is not Direct +//! \retval ::NVAPI_ERROR - Something is wrong (generic error). +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup stereoapi +typedef enum _NV_StereoActiveEye +{ + NVAPI_STEREO_EYE_RIGHT = 1, + NVAPI_STEREO_EYE_LEFT = 2, + NVAPI_STEREO_EYE_MONO = 3, +} NV_STEREO_ACTIVE_EYE; + +//! \ingroup stereoapi +NVAPI_INTERFACE NvAPI_Stereo_SetActiveEye(StereoHandle hStereoHandle, NV_STEREO_ACTIVE_EYE StereoEye); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetDriverMode +// +//! \fn NvAPI_Stereo_SetDriverMode( NV_STEREO_DRIVER_MODE mode ); +//! DESCRIPTION: This API sets the 3D stereo driver mode: Direct or Automatic +//! +//! HOW TO USE: This API must be called before the device is created. +//! Applies to DirectX 9 and higher. +//! +//! \since Release: 285 +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] mode Defines the 3D stereo driver mode: Direct or Automatic +//! +//! \retval ::NVAPI_OK Active eye is set. +//! \retval ::NVAPI_API_NOT_INTIALIZED NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_INVALID_ARGUMENT mode parameter has not allowed value. +//! \retval ::NVAPI_ERROR Something is wrong (generic error). +// +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup stereoapi +typedef enum _NV_StereoDriverMode +{ + NVAPI_STEREO_DRIVER_MODE_AUTOMATIC = 0, + NVAPI_STEREO_DRIVER_MODE_DIRECT = 2, +} NV_STEREO_DRIVER_MODE; + +//! \ingroup stereoapi +NVAPI_INTERFACE NvAPI_Stereo_SetDriverMode( NV_STEREO_DRIVER_MODE mode ); + +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_GetEyeSeparation +// +//! DESCRIPTION: This API returns eye separation as a ratio of /. +//! +//! HOW TO USE: After the stereo handle for device interface is created via successfull call to appropriate API. Applies only to DirectX 9 and up. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [in] stereoHandle Stereo handle that corresponds to the device interface. +//! \param [out] pSeparation Eye separation. +//! +//! \retval ::NVAPI_OK Active eye is set. +//! \retval ::NVAPI_STEREO_INVALID_DEVICE_INTERFACE Device interface is not valid. Create again, then attach again. +//! \retval ::NVAPI_API_NOT_INTIALIZED NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR (generic error). +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_GetEyeSeparation(StereoHandle hStereoHandle, float *pSeparation ); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_IsWindowedModeSupported +// +//! DESCRIPTION: This API returns availability of windowed mode stereo +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! \param [out] bSupported(OUT) != 0 - supported, \n +//! == 0 - is not supported +//! +//! +//! \retval ::NVAPI_OK Retrieval of frustum adjust mode was successfull. +//! \retval ::NVAPI_API_NOT_INTIALIZED NVAPI not initialized. +//! \retval ::NVAPI_STEREO_NOT_INITIALIZED Stereo part of NVAPI not initialized. +//! \retval ::NVAPI_ERROR Something is wrong (generic error). +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_IsWindowedModeSupported(NvU8* bSupported); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetSurfaceCreationMode +// +//! \function NvAPI_Stereo_SetSurfaceCreationMode(StereoHandle hStereoHandle, NVAPI_STEREO_SURFACECREATEMODE creationMode) +//! \param [in] hStereoHandle Stereo handle that corresponds to the device interface. +//! \param [in] creationMode New surface creation mode for this device interface. +//! +//! \since Release: 285 +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! DESCRIPTION: This API sets surface creation mode for this device interface. +//! +//! WHEN TO USE: After the stereo handle for device interface is created via successful call to appropriate NvAPI_Stereo_CreateHandleFrom function. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! There are no return error codes with specific meaning for this API. +//! +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup stereoapi +typedef enum _NVAPI_STEREO_SURFACECREATEMODE +{ + NVAPI_STEREO_SURFACECREATEMODE_AUTO, //!< Use driver registry profile settings for surface creation mode. + NVAPI_STEREO_SURFACECREATEMODE_FORCESTEREO, //!< Always create stereo surfaces. + NVAPI_STEREO_SURFACECREATEMODE_FORCEMONO //!< Always create mono surfaces. +} NVAPI_STEREO_SURFACECREATEMODE; + +//! \ingroup stereoapi +NVAPI_INTERFACE NvAPI_Stereo_SetSurfaceCreationMode(__in StereoHandle hStereoHandle, __in NVAPI_STEREO_SURFACECREATEMODE creationMode); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_GetSurfaceCreationMode +// +//! \function NvAPI_Stereo_GetSurfaceCreationMode(StereoHandle hStereoHandle, NVAPI_STEREO_SURFACECREATEMODE* pCreationMode) +//! \param [in] hStereoHandle Stereo handle that corresponds to the device interface. +//! \param [out] pCreationMode The current creation mode for this device interface. +//! +//! \since Release: 295 +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! DESCRIPTION: This API gets surface creation mode for this device interface. +//! +//! WHEN TO USE: After the stereo handle for device interface is created via successful call to appropriate NvAPI_Stereo_CreateHandleFrom function. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! There are no return error codes with specific meaning for this API. +//! +/////////////////////////////////////////////////////////////////////////////// + +//! \ingroup stereoapi +NVAPI_INTERFACE NvAPI_Stereo_GetSurfaceCreationMode(__in StereoHandle hStereoHandle, __in NVAPI_STEREO_SURFACECREATEMODE* pCreationMode); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_Debug_WasLastDrawStereoized +// +//! \param [in] hStereoHandle Stereo handle that corresponds to the device interface. +//! \param [out] pWasStereoized Address where result of the inquiry will be placed. +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! DESCRIPTION: This API checks if the last draw call was stereoized. It is a very expensive to call and should be used for debugging purpose *only*. +//! +//! WHEN TO USE: After the stereo handle for device interface is created via successful call to appropriate NvAPI_Stereo_CreateHandleFrom function. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! There are no return error codes with specific meaning for this API. +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_Debug_WasLastDrawStereoized(__in StereoHandle hStereoHandle, __out NvU8 *pWasStereoized); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_SetDefaultProfile +// +//! +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! DESCRIPTION: This API defines the stereo profile used by the driver in case the application has no associated profile. +//! +//! WHEN TO USE: To take effect, this API must be called before D3D device is created. Calling once a device has been created will not affect the current device. +//! +//! \param [in] szProfileName Default profile name. +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! Error codes specific to this API are described below. +//! +//! \retval NVAPI_SUCCESS - Default stereo profile name has been copied into szProfileName. +//! \retval NVAPI_INVALID_ARGUMENT - szProfileName == NULL. +//! \retval NVAPI_DEFAULT_STEREO_PROFILE_DOES_NOT_EXIST - Default stereo profile does not exist +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_SetDefaultProfile(__in const char* szProfileName); +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Stereo_GetDefaultProfile +// +//! SUPPORTED OS: Windows Vista and higher +//! +//! +//! DESCRIPTION: This API retrieves the current default stereo profile. +//! +//! After call cbSizeOut contain 0 if default profile is not set required buffer size cbSizeOut. +//! To get needed buffer size this function can be called with szProfileName==0 and cbSizeIn == 0. +//! +//! WHEN TO USE: This API can be called at any time. +//! +//! +//! \param [in] cbSizeIn Size of buffer allocated for default stereo profile name. +//! \param [out] szProfileName Default stereo profile name. +//! \param [out] pcbSizeOut Required buffer size. +//! # ==0 - there is no default stereo profile name currently set +//! # !=0 - size of buffer required for currently set default stereo profile name including trailing '0'. +//! +//! +//! \return This API can return any of the error codes enumerated in #NvAPI_Status. +//! Error codes specific to this API are described below. +//! +//! \retval NVAPI_SUCCESS - Default stereo profile name has been copied into szProfileName. +//! \retval NVAPI_DEFAULT_STEREO_PROFILE_IS_NOT_DEFINED - There is no default stereo profile set at this time. +//! \retval NVAPI_INVALID_ARGUMENT - pcbSizeOut == 0 or cbSizeIn >= *pcbSizeOut && szProfileName == 0 +//! \retval NVAPI_INSUFFICIENT_BUFFER - cbSizeIn < *pcbSizeOut +//! +//! \ingroup stereoapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Stereo_GetDefaultProfile( __in NvU32 cbSizeIn, __out_bcount_part_opt(cbSizeIn, *pcbSizeOut) char* szProfileName, __out NvU32 *pcbSizeOut); + +#include"nvapi_lite_salend.h" +#ifdef __cplusplus +} +#endif +#pragma pack(pop) diff --git a/sdk/include/nvapi/nvapi_lite_surround.h b/sdk/include/nvapi/nvapi_lite_surround.h new file mode 100644 index 00000000000..d7576d1dd71 --- /dev/null +++ b/sdk/include/nvapi/nvapi_lite_surround.h @@ -0,0 +1,105 @@ + /************************************************************************************************************************************\ +|* *| +|* Copyright © 2012 NVIDIA Corporation. All rights reserved. *| +|* *| +|* NOTICE TO USER: *| +|* *| +|* This software is subject to NVIDIA ownership rights under U.S. and international Copyright laws. *| +|* *| +|* This software and the information contained herein are PROPRIETARY and CONFIDENTIAL to NVIDIA *| +|* and are being provided solely under the terms and conditions of an NVIDIA software license agreement. *| +|* Otherwise, you have no rights to use or access this software in any manner. *| +|* *| +|* If not covered by the applicable NVIDIA software license agreement: *| +|* NVIDIA MAKES NO REPRESENTATION ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. *| +|* IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY KIND. *| +|* NVIDIA DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *| +|* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE. *| +|* IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, *| +|* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, *| +|* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOURCE CODE. *| +|* *| +|* U.S. Government End Users. *| +|* This software is a "commercial item" as that term is defined at 48 C.F.R. 2.101 (OCT 1995), *| +|* consisting of "commercial computer software" and "commercial computer software documentation" *| +|* as such terms are used in 48 C.F.R. 12.212 (SEPT 1995) and is provided to the U.S. Government only as a commercial end item. *| +|* Consistent with 48 C.F.R.12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (JUNE 1995), *| +|* all U.S. Government End Users acquire the software with only those rights set forth herein. *| +|* *| +|* Any use of this software in individual and commercial software must include, *| +|* in the user documentation and internal comments to the code, *| +|* the above Disclaimer (as applicable) and U.S. Government End Users Notice. *| +|* *| + \************************************************************************************************************************************/ + +#pragma once +#include"nvapi_lite_salstart.h" +#include"nvapi_lite_common.h" +#pragma pack(push,8) +#ifdef __cplusplus +extern "C" { +#endif +//! SUPPORTED OS: Windows XP and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_DISP_GetGDIPrimaryDisplayId +// +//! DESCRIPTION: This API returns the Display ID of the GDI Primary. +//! +//! \param [out] displayId Display ID of the GDI Primary display. +//! +//! \retval ::NVAPI_OK: Capabilties have been returned. +//! \retval ::NVAPI_NVIDIA_DEVICE_NOT_FOUND: GDI Primary not on an NVIDIA GPU. +//! \retval ::NVAPI_INVALID_ARGUMENT: One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED: The NvAPI API needs to be initialized first +//! \retval ::NVAPI_NO_IMPLEMENTATION: This entrypoint not available +//! \retval ::NVAPI_ERROR: Miscellaneous error occurred +//! +//! \ingroup dispcontrol +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_DISP_GetGDIPrimaryDisplayId(NvU32* displayId); +#define NV_MOSAIC_MAX_DISPLAYS (64) +//! SUPPORTED OS: Windows Vista and higher +//! +/////////////////////////////////////////////////////////////////////////////// +// +// FUNCTION NAME: NvAPI_Mosaic_GetDisplayViewportsByResolution +// +//! DESCRIPTION: This API returns the viewports that would be applied on +//! the requested display. +//! +//! \param [in] displayId Display ID of a single display in the active +//! mosaic topology to query. +//! \param [in] srcWidth Width of full display topology. If both +//! width and height are 0, the current +//! resolution is used. +//! \param [in] srcHeight Height of full display topology. If both +//! width and height are 0, the current +//! resolution is used. +//! \param [out] viewports Array of NV_RECT viewports which represent +//! the displays as identified in +//! NvAPI_Mosaic_EnumGridTopologies. If the +//! requested resolution is a single-wide +//! resolution, only viewports[0] will +//! contain the viewport details, regardless +//! of which display is driving the display. +//! \param [out] bezelCorrected Returns 1 if the requested resolution is +//! bezel corrected. May be NULL. +//! +//! \retval ::NVAPI_OK Capabilties have been returned. +//! \retval ::NVAPI_INVALID_ARGUMENT One or more args passed in are invalid. +//! \retval ::NVAPI_API_NOT_INTIALIZED The NvAPI API needs to be initialized first +//! \retval ::NVAPI_MOSAIC_NOT_ACTIVE The display does not belong to an active Mosaic Topology +//! \retval ::NVAPI_NO_IMPLEMENTATION This entrypoint not available +//! \retval ::NVAPI_ERROR Miscellaneous error occurred +//! +//! \ingroup mosaicapi +/////////////////////////////////////////////////////////////////////////////// +NVAPI_INTERFACE NvAPI_Mosaic_GetDisplayViewportsByResolution(NvU32 displayId, NvU32 srcWidth, NvU32 srcHeight, NV_RECT viewports[NV_MOSAIC_MAX_DISPLAYS], NvU8* bezelCorrected); + +#include"nvapi_lite_salend.h" +#ifdef __cplusplus +} +#endif +#pragma pack(pop) diff --git a/src/Common.props b/src/Common.props index 587c2c12775..907b6253a9a 100644 --- a/src/Common.props +++ b/src/Common.props @@ -12,6 +12,7 @@ $(SolutionDir)..\sdk\ $(XRAY_16X_GAME) $(xrGameDir)bin\ + $(SolutionDir)3rd party\ E:\STALKER\X-Ray Source\x_ray_1602_VS13\xray-16\src\3rd party;$(IncludePath) @@ -57,5 +58,9 @@ $(xrGameBinDir) true + + $(xr3rdPartyDir) + true + \ No newline at end of file diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 6f1f364f391..fc2d1ae44c8 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -1,32 +1,84 @@ #pragma once +// CALLBACKS + //#define EXTENDED_ITEM_CALLBACKS // (eItemToBelt, eItemToSlot, eItemToRuck) + #define EXTENDED_WEAPON_CALLBACKS // (eOnWeaponZoomIn, eOnWeaponZoomOut, eOnWeaponJammed) + #define INVENTORY_UPGRADE_CALLBACKS // calls lua function inventory_upgrades.effect_upgrade_item + #define ACTOR_BEFORE_DEATH_CALLBACK // For extending the life of the actor to fake death or do other tasks that need to happen before actor is dead + #define INPUT_CALLBACKS // (eKeyPress, eKeyRelease, eKeyHold) + //#define MOUSE_INPUT_CALLBACKS // (eMouseMove, eMouseWheel) + #define ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS // calls lua functions from engine in a script named alife_storage_manager.script (alife_storage_manager.CALifeStorageManager_save) and (alife_storage_manager.CALifeStorageManager_load) + #define ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS // calls lua function named on_before_change_level and on_after_new_game in _G.script when enabled +//-CALLBACKS + // SCRIPTS: -//#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) -#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) -//#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) -/*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed -#define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) -***/ + //#define MORE_INVENTORY_SLOTS // Adds 5 more slots CUSTOM_SLOT_1..5 + #define GAME_OBJECT_EXTENDED_EXPORTS // see: script_game_object*.cpp/h + #define GAME_OBJECT_TESTING_EXPORTS // see: script_game_object4.cpp functions for object testing (ie. is_stalker(), is_heli()) + #define NAMESPACE_LEVEL_EXPORTS // see: level_script.cpp + #define INI_FILE_EXTENDED_EXPORTS // see: script_ini_file_script.cpp + #define ENABLE_CAR // reimplements car along with new callbacks (eOnVehicleAttached, eOnVehicleDetached) and new game_object actor methods get_attached_vehicle(), attach_vehicle() and detach_vehicle() //-SCRIPTS // CORE: -#define NO_BUG_TRAP // dont use bug trap -//#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) -#define NON_FATAL_VERIFY // don't crash game when VERIFY fails -#define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator + #define NO_BUG_TRAP // dont use bug trap + //#define SPAWN_ANTIFREEZE // spread spawn of game objects thoughout multiple frames to prevent lags (by alpet) + #define NON_FATAL_VERIFY // don't crash game when VERIFY fails + #define USE_GSC_MEM_ALLOC // when this is undefined memory allocation for luajit is handled by luajit allocator //-CORE // VISUAL: -#define DETAIL_RADIUS // detail draw radius (by KD) -#define VSYNC_FIX // functional VSync by avbaula -#define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) -#define TREE_WIND_EFFECT // configurable tree sway, can be used to have trees sway more during storms or lightly on clear days. + #define DETAIL_RADIUS // detail draw radius (by KD) + #define VSYNC_FIX // functional VSync by avbaula + #define ECO_RENDER // limit FPS in menu to prevent video card overheat (by alpet) + #define TREE_WIND_EFFECT // configurable tree sway, can be used to have trees sway more during storms or lightly on clear days. //-VISUAL // TWEAKS: -#define FP_DEATH // first person death view -#define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) -#define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define -#define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define -//#define DYNAMIC_SUN_MOVEMENT // use dynamic sun movement. If this is not defined sun will move as configured in weather ltx files -//-TWEAKS \ No newline at end of file + //#define ACTOR_FEEL_GRENADE // When undefined it disables the grenade HUD indicator for thrown grenades + //#define FP_DEATH // first person death view (Note: It's fixed to position and does not follow corpse) + //#define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) (Note: Collides with AI and they can get stuck) + #define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define + //#define DYNAMIC_SUN_MOVEMENT // use dynamic sun movement. If this is not defined sun will move as configured in weather ltx files +//-TWEAKS + +// SOUND: + #define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define + //#define LAYERED_SND_SHOOT // see comment down below +//-SOUND + + + + +/*LAYERED_SND_SHOOT by Alundaio +When defined, it will allow you to play a group of sounds from a specified section for snd_shoot. +You can have as many layers as you want, but you must follow naming convention, + +snd_1_layer +snd_2_layer +snd_3_layer +... + +You can also have different variants for each layer defined, + +snd_1_layer +snd_1_layer1 +snd_1_layer2 +... + +The correct line settings are standard, (ie. snd_1_layer = sound_path, volume, delay) +ex. + +Here is an example usage: +snd_shoot = new_snd_section + +[new_snd_section] +snd_1_layer = weapons\new_sound_shoot1 +snd_1_layer1 = weapons\new_sound_shoot2 +snd_1_layer2 = weapons\new_sound_shoot3 +snd_1_layer3 = weapons\new_sound_shoot4 + +snd_2_layer = weapons\mechanical_noise, 1.0, 0.1 + +snd_3_layer = weapons\gunshot_echo, 1.0, 0.8 +*/ \ No newline at end of file diff --git a/src/xrEngine/stalker_cs.ico b/src/xrEngine/stalker_cs.ico index 076dd02abb34971b98b175c73ca4db990c354d8a..9cd746ec2139470ddce9911b0e5d47ffd4fe12ba 100644 GIT binary patch literal 190921 zcmXte19%5^X@kbLZJP}n+cq0DII(TpwsZd6|K4xr+0V?Lnax>y zz3*OY0RRvHc)))S2ml$t$pHXJ{=E11|8Jfa?(?l90HCk`-+XBz0Kn!60g#sdZ$4ZZ z09Zx=0z^dq_q`|pU|<9Uu(JN|dny3ncM%XkM)tov+GqJuAOH{Vf8{@$US0(P&_194 zr+ss%&+_{~z;6XPDP#l!1ONbl{9Ri7*MHvrC&9sdUbG!cO+PR2_R<at+w0aAoY_{l;h%r=JGFCx)%Tu z)n*TD!FkRHgjey_kDYTH zfG2ANU`~F(ZXtc5lB92eT$-#`W@Y%SX?fc_O4pCi9;PBhAee9D`1AW;CDP`c3?-!uj|YZ)OpVGtX{ z-SDr%Qj7lKM45C&L8EuuATknaOU>1zt>Q33EJ{d-TN5r+H)*UJ#U>@dpF(qah>4NQ zlibtcd{ddfMOT6Irc$1}RqjE1)9-0JP=bbMtsd@z=|o!dXCq+tB9{yJ92B1+o_xEL ze^+1lOD%xE)`WbxWop4PEi*7^BrIoX9O7xSM80!^*yKQxO; z*hnQ*#ErGv*2>ennZuPQn$xUHVM!hf6@q)Ed?eZPHo*3Zp|j+$D4u&aGTasEqZLRf zuzNQVhb*PYJLp>lpjb8rIE`dQ+)<=lAtHU)E77PJKYY^;-wl2ENU<> zZo)-A>&>0|;z841%@h>|#(YJ5uLv9kIhibZ8zF44Rmg>>hvo|%(d*Z%ZDT*s>>yC? z?pd(0Yv?)wLOutM*Oh%s+zzBf1H1`wEV_k3H6m;wX()VRm6TDJgigi>xmUvIBDSL# zP1~7Vm_AN7ntYRQ9>>?x{%VxLpvBE=y}DOxQPq1wqNV1%yu%Mn#t$pt;7hzIH*-_K zmQAOCC@qhOpylGkjsoqG2cyA^*z?cz%ER8w%?iQBrcZtheq9F#(@4d>y8HI}aISWa z10VI1(Yr$GRv8O|KmR}|tv%J1Fe?SPJYw@83gYZ514T+E?tZ%tdXu&N(Q%W@yo^>G zKV#vS?h0k3IVFFHxrKuALa9VdpMdN$#J#Iop~p*xn*xE`m#u>Ay-1arZtXI)UXU2* zFGx-OfeMg}FM^K?2_|&s9tg6Vxbs?-oLD-$iD1BJ--&3c*4ve~nxRNT(^eaRDdJLn zQ8ohrf{i>nYxZtN6zJzZ0z`bB)v~SZMjS6YfgwAYt7^YM9iT1%k3;$^dgcTY2-+3s z2la+B5GikdgM<|cXT#K!e9x@bNt;*WY|1uF5Cbae0@LWJck6>I+!@*40Ba-f@b&?0;`38E5K7wV14l)+ZX0KQVk zq`{-ASHdg5eXpK3B^#F#BX0yi6ODIbd0RD;qN%BlM!Ds#nbjTxe^R831w9$$MM~$m zJ6XSWFA^|_@+#;tM#I>=s*Pk=7;ws}7<*8hBoQ$i4bfFx{bPAQ3Co{mnBgT353 zy^ZgcukE0yol{3ck+Iln#L=q4wyQcZQ_>2hU)|JJ#s2eB1f+wCb(bvQ=(q?8P2#;q zsW)X>0WWk#xpfPw!Xpiw1(qN}qUm#7{R3tApW~&h7pv!KVfH}(%YTWN-MxuwD9HTB zAu9XJ5@wGbG8G<@_7FQ_=>0Wv?Os11XFX$)6wJ=@-m8*uZ#^H3hFNzc05S`JdIoI*aDl|w&kcrvCg>V3-M~d*mf_`9$~ND>OxLAc-TvC9fCdA=zN5rsCAHw4 zyJGb}rcoZ>KjcYFdKyY+P<%fM^Cu0z08QYH$~gR8qfRgMj9@ysRuPyW1_KVyqOTY2 zY!BD66g4pdbzBih=4aEiYs{8mSmTiOf4%(TMS!`ro~v72vbmg;L7gxPu0 z@YDdNBEsiJ6yJGmF`x?S&P{q#GBvL!9F`>r^&hlQgr(v^UG}tK$JX}MVl`L0LUzG> z1Ke?TFY6ux7L5W`JWf?t+MnWs+i#hO+s|EWDs?Q3H0FZ{15UbiWO!saVE4;Men=>} z+$tTaAYVj`R*qHB7u??xSXlKu$kvJ<9oKtY_rtetMbX9}m;D&JlBVVN-N>G}#T~=B zlx0g8QcPA~>nWm!u!i_R>IHbF?juc2TV4ku8nxeO!29$!V9cx-8oy5Cw>rA&>B9q* z9U!}Z0g>T)6wvz|#L$=)i~M=x^ck6qx}Z9vVT>MG5Ok+uBy2`8q^y;p1+_H9F+^-y z154IC-Q>F5yyQClq>?FVq-;Dmk^yYnV|DK;X(7lBN)hOj3zBB* z*>u}X_sa9Jt1w}32vqNWi)?Ao<|l{qCPUMk>(kL=xT6G^p}%m)v{{x>VP!&_0ruNq zL&aL(0|fP2*?Py__J?BhgfdYe(Z(FNzk*&_y%6O*7_njOsRq;=QZzPZ%jF`w+{FlM zeB=V}D~Kp;%i1)1b)&;|?>oLriZ~>ase*7(8FtWr;-CwNOTeq3%c8S^ae?K5p+I`L zK)eHgHT&yZ6gj+ZW^u($0>o{IU1T2)Rv@>fHj*gs#--EfI-iicOT=J~WyIkn#Fkz_ z1#iC_UiJx6F0wnJY0ZaBdDR=TECBe$u%}@%`npc|bmlLE&2Qdce6$s&CkHZsa7~0{ zia38(Rprg`$c!ud{Oq`1MG3t51uL^p3>nW)``$VuvhZsW;{~Pv2h{N39G!SbespMH zaDK284Fuf4I3BdHLd-q%OPtlOoBa&Qp@X0Ln8m(QC;N1NAUfgRFb|*#L$-Sw`pQNC zP?$cC@&TKJ;)iL!-Ak^+hc1|y{ccuNb-g?S)qj-3TFl}D0;@`iDdcihXA%s*gk>@A zNPbnC7eu~jHT)zrPZESIm{h-{OHH-meGuWTullFPARt-KD{vx*Y`R9S%j}9-m*n$WoWV|3I&7gi&&Q)b{1oz_Xqs1G|BvSCcuR7EdHwPCJ*BaXTR%x=U{-*vVBw z${o#Jri+3d&%f0|OtKvSIcdE6T1^B)m%Ut$=)V*p>&fUm+Xe#Lr8@syx8_DGWFhm_ zb8$+M^C*M4gSnxqpM$H>+Rzrhs~uRBX{!q*{rF@L{Qs=5`s%THF35)&XOfdxb^9Vb z!Z9&42X;ghbe!u|{M$S*D_MDyhaOy*C)bE6(J^CCq1gYB9DWENdnv^=v0d({ZowT8 z^(i5gitwKN{6Hz)^4J(u+N2L1$BSg#o z6tGt@6>5Qh0F|JrG0~s!kmR)dmWTNm#+1R!w5k&lJ{IXvtTF|En1Wvtyby2FPG`Nr z)zjnt99$%uknMyGy;q69CEUx|{Bia9pMRMi&Eq<3MNfXe39GT*f6GG8oQAI!C!5bv z?DyiA1W8LzW%t{#kSU^4kR)^T{xr4xhV~5-cTV!1wlvZ7c?R~|e7YKha%H@Ve9z3F zH|{FrsMHz7QnmpKhkq!JrgQGrPDz1!FFdCjhI)ws6cnBb@ZLN?D(CLGC)%RZTQ>A# zE{X>-G_}@<6y_sRDHuLe25E~AFK9F*N|*_kU~A@UR@29_mDYZ9c8>AS6lBr+A40P5 zAj{kSOFZ(KIA|ILhaP&KjL^G1kYZqIDX!RiIQsrPT742RV zQbyQfbk^&057){|b5!HO&? zch*;07V%pyvqr4hymkrSAMp)`TEEw`T%dy-W(otdx?ONs_}!Q0&@NVg-YF!D8PZ;? zupiUP1xH6%#CRS~wNHw%JoJqhCKm^)dP{2BFcKea*|ys%fXq_-tvuihw#$5b%e}Vy zVYsQQORP&JeJC9i`W1$G9`;*{`Bqdp`+@vmog7;=Ot}9(6z@6T^aK$B{2vjSo=`Sr z;H)74d-M3X(S3r?0brAMhkNUd26W`ZTz>x;fau3mj9(tVh*__C zSI+?xi{-XY*Xr;Jc9B+=v|r7mdr=PznFwd_gWya;_X=y&d|cj{3J>`lP&m-jfpaqg zX9e!orWBV4=W&*ZV5O8)Eb{x+jyW3LcOlVXSi_$BWMac+tXvM*I?&Z0kf?WA6NJJb zjDidL{PS?C{jmny4*K>mrqKJY8azP&q#))l%M~Cp5uQ;MMj`uoGc4`d;3iLi*=`Xg zrOQ|BU;8~()y#(BcMsQigt_9;2Jd58J|^CX>XC>BZl;A3^g01Yb;&N$_tZ8S3p5}u zQxjZ>>a=LZ^Q8p3%fL`$ewD@EIL)|sQ|wBv&oa-N8EUwn@^sS4JuZ6-IELG~9CcQm@~u9oLA= z+h3v-<+ICInpw0^^@_&YVXv>!GLxX)8LSbSH%mw1*`21vpGyXDOYt@D!X zv!sjCygfa64F8-wPw!4-dY5O6XY=)acCKT|+k*ttZ!2nqfpAZXluRBDMr@x7>g54@ zRIzSHXhu_H1@S3R9Xd=VCvaHVe?@Q*r>WX?se!I1PDl?W>#A%?XXy_@M4dra06fP7 zAd>N5%g_iASohF{x+Hf0YcmlERR3pmGQx45)a`amN6`>n*3!dK3<)IJ*x>)y2hPm~ zp`s{!-+aD;{{={Iew6#H+GCw!-Z|dhn5SgZ!l2`LAE}k`2_`}oIBhJL!oXwp4Iw_R58iO$YgLN6R@{(gGoP zBfflHVq=UO7hC#{T1Ru`t+a}F%dTTyOvv;lZYoL9XyIs7)dAwKNA%QK<66AcCc6(I zzd0MsGq<8}s5BsXAqk;R@=V>ogI#P%S6mR5N%NO37c0y39#ZbznT71q%?_d=5g{C( z{aC>f&lq3?EWjo;Mm$)F!WiKm6!{w>6Y-71e%cw4I=|$?@@P(;_*LU+$ygipL zwZeWFoBO&&vszcAoyLRHTQ~nHiAV>|MFW^l(g25xz0p*!aJGCLt!XmLs46P6LeE+w zp@k8~6WXWb=S2K(RSvZ=4QQ6ifhlLvN_SgvC)k0KaeYfrBv2$dw%e^BLj!;nYe{Qo zZ6eMI%KY`Q@sB;8oUFvh&a$8jSEDmRuBW+NZd8AD+Inh+hvdYi3Q6&^+7S>Ze+5*v zd7TR9BK6*CckFi)oBI>n!uK-sgZhi2DWPz*7E!jC7dG-n32|r!JTMXTSyP~TmV_eV zbbip2st)CrxJPn$W-}F#>@~(Se)u%;()_0`tUb3qE;Yh+pdlNpKQ>;_W=82ni)IvN z4Tj?O&q=wP#TqNKcLc8!u8$Ex**aD1+NQ!jU4g)?t3UNu3gj}D`WgHGtV{mbvAuLG zgN6PcEqzIEt@J8utkG9y6^`&!RDi7%i5hj3;QQ8x{AYn;W+$%+&Z1c+BBT7h6w=Hl z3XVe1yO0-CFMvd!(iAMBN1X1_E6U*yckrXLnfzNvmhAbkrvIZ2;`ou~E zN4gCFS`I}5cJ2hh#AB+4h?qw9-?&kkupsUI)eL%=QgpmaX0o9Eq%zzLjK+KKRO!ql z*G6Y^hh)>@Pz;MyGEugeAw^`}nK)C^GI(0Te-rN+LvSvXg(J%Q1zR}}Uok(*SD<0* z=jsv!m&b$^pRWt7``Y~rUA7{pi!fq73v&m-L#ohRWswToC8dcKZouH^Mu!bvwB_-4 zK2|%t4enLIJ{OzY%I#c8$RsK6fbQP<{@a|hHgCyr4yZU1+H-Sh7|@85 z+lz_Ji02?#)TN0HC_n8q*GkN4BZcLgfe}K~_He1Q5s9pH+lqtXM1hUb{#ku4B0Th^8LAhk-Oo?10tKh6O2O)`ByElWpiC zn85;Wc~&!xN=V-bzAE>PS~R3BKL|fi>a^X6Ts@Qfb}O65U=ner;_05!H=SWXBNb>P z4Z};8KtQ!SUbbj15~Em6Byavqu40SG^x)6;n@?b9edjCFBEBlv>hJ4g#8c{)VBMY* zK=^|Mcgq~#Kw|;`43`d7-=ljfLA*u{>K7mZ2BHFm^+{9$o=pKMMy`)PM~|AVvPS=H zOm%a(ir3MEZ&6}z{;dfA>jhUr6S?#^ROnj+v3VQez2PphH|9Bx7H#_e!(sJ>!qilN z;aZ=Na|9W-I8b#)j6bsUFc-gMgtauuCHbRykjb^u!Q&}>a$Crc|E4{J@2@A|$z-?R zH0;?Jpye+QY4*zvZgFz8ek9KCsY*`QSy%fkJ_ps1*MpASL`Pm5TO$YewH?A?B_dqK z0vn_IKVwH&cKvq#BCwFk{|Pq9t2wU^in3RR`TfD+=aeyeI; zBuE98z!>MeG!)K8DbgABT^HT>|LcO)W~L7w=9@HKOPS)J>t{FghVPYEFc3@^3&IjtX*n>7NPB*G4W8MDFyuK|AVlP@0tv zjFjlbSLH9(Yh-B93qVwZz^IAknJsM&f4Qy6fJOaGKYd4HX#n#QL7ZDxr`Uw{q0DlZ zpRyZ636r>IgyAI#j+u$v$TwaIv^k9NCc-chVR{pQG_>Vx^uhmMXo!nKc}(t~$b?=( zYnVZ+08s70wRj8;q>SSIwK1S=q9^jjkaE>in{VZCw6o+rbi;2zIly*{du+JRDX`TT z0Bpy5@*2C5H1TCxr&V=ZdK<4;-48kJbFePMc^;j^85+sw^@6QkMO4Xf=d_O+$~pJ1 z)$UeT!cGq2|1S?~eGjqH8{;-&F?3DpD>Kr-bYevA>$Rd<#p#qNZWJ&zSvL5 z!00p7mxteu>DKM~{#{Us`p(;qa8t#V*Cz< znO9>Y4~E95M>Ld>S}EbI{iZqDY~dVE!ln5w$AagK;q+v_id5tIYb*)M9^Z7i=I=Bx zLzTDvas*{!9jnZ6r~pGmypH?OegeNQLXB6ZEaYGXPKkls{zPp<9EzNXSAFYuFSM!) zVNIV2BT*09gK*qo*{%>nTNb}7m|6__ekWXWK1M8=A`2R7lou&lKpT#tskUQq{{m7X z2IU6>#S;J4_c8dspZ(gbpTc%oD%4Z)W{`g;pgYT4)5S}ktipY-LYA+tt~qABi`Nlk)3GVn4SC9QVvZ)o=g zj@E+9vg7)?#`R!eq#U;-)ULp6$TIiZ9Du^98?XU*6PlXXdl@%>2{9XVzf2)zH}77T#edeP-NmSgx5*nPpyFfaU7-s_)TI^d_sU^HNnkeB$Zy)c&85kTs87^ZEg!HN0-|2^q-d*}l@AaZ|u5 zTbrLp#$_T;b8&BS?7J@Rsv2Kn>Ny@{EtY2lFD|k^)mMBUsJsxAs?YVC6< zIv;(YneM(kf92D1`oWm<6#Gr+t)`bqh`+UtIsyK-WD??J^lsaI_9}aNG+D4!Cs*HL zC%-7QK;8V;Bvs#=NMI}}^UShsUDIH<%fS(T2=^0u!w>ZvY!MMvEV!_IBa$F0bs+Kg z$PySx68@8)gR-AyUY4z4Q*GAYJfx$eGT_I+)sYYp_H1R*WDE`d#}w0R2f+- z?i#cdG%vtqC&^%&jQj@6uC)DR$5+&Ima9oMp8qUgSUdKpI6X5kMvBj!E`uPNi`_m=zKvT-a zm(54ogjD75XY9dsug3?{2Vw00#R6O>KzhF*(vf&k{IPFOD|*nCob4_9!>Y{8D?oj2 z^Y;)i@jzhaXD3_szU>U^()-%iY&$07;Egv9pQ8x&zZrc+AQJqQ=wd~*P*dHw%6a<1 zL~c(WP9_IY2PuY){6jx(8!o=e)$!P(Vc(d3Z-XXspH}q#qJZ0ufja%Fo8Ng>v;hya z$_DGXP#v+@5qGb{?RS6U`l*T8h&3*H-NPFgf*PopcJR`qAv0M22HuPbYyKW;X|uW| z$h(G2BHiTc5%{Q!wcAXkN?L%g@yd6`>zOu!Ftc{st0Y#m{&z!__RclYxc18${P555 zt#=Uih|qk4tM$p}q?gIt}1idI4VY0%GlR1z^Bdn03)5UZQ zqOZnBuX78#(@qZ09aVD7cl5KxgVau^ej<+R0~q{k6wWV&$tk$sHcYD8?^~JFv5}Ou zYu!xi+)%%H$krfiPtkL(YIbDQ;G-L0!G!vBKHZalJZ|3Kf+&SP7=dj2HzOZ|5!%;d zP!(-7M+^Np=!eRddfP)vBz})^x)+^x2k4ExXfZiREyrORlJ!Dn){#@mm8s3?F6*7} zeAIR5V{s<>&Dha3ntF}&M`~s>Js3~JouWlptk_M!Mb^<&h|g|q%+e=V9E1Hp)RM0{-O%bAt(soceF7T__da$xkp>|7N zjQ6y_`{ignL60RvRQ4WySjirLmtgg8)}5wT(@n&Cmk<|MbLYiHHKdWTR+Mn=>pQPl zXr-sG{>~$V2{lwhI(D6n`sjGi;|TRlY{ysZ5oQPy)l1t`G0`UDBp5em+vn4?^2-t& zH+XYnc6mm{#m+xJ@r18JjY5R9w-M%8sdHZIkQHPk>vTCDiT6*Xs6jz0PM;Q`*9gK= zTh{zH!sfF}i~?b2vkGW3fYRlNu*Vu71O|r9*l#GY@HYl}eow3187 zMm6MnQ`F=xt4=$oT-Vcc04(`a_)+x{2!s_nAA8X~z=JQX_az}WFAhrhB4|C+C4##4 z9+^$a*H&^It+8pzRygCL&3cUVezyS$j;}0{^TxYuHZXvpI!y8|Usibv=Cd^%@)J3t z3oHIbn;BrI6-<|w2qSjgJQNmw1VtKK!PbduMh+>hW1+D5-3A4opFb(97@a;hl0Mf} zO6onh9)s%`(tXuQ%VYl;9)JDt(!aw@Jd=rXV5dezD4@6vy33HO4qn$Z%^Ebnhp};=~Sa+$o=Up#+&S_mJDyMc6J}ESkc&2aeaYkI&g3;`6GR7+X1&dC39tH8hJ@; z`lby*izU|S+sk_Swgm{wL737E`kAl|Yu~ar`-}Hn z0{t5t5j?D?IO6Yk4PzugLJ>{D_h_h_4b+@Jk3P=op@Yd!)NKcnx5b6{L@2}9%FG?C z%r;CDQI|$dkHT8%A=bhv=?yqd1yHG-5K9<0_>G-4n8o8xrNm<~Winl<5e78R~+|~*OYIF*a`rpNuD=U4{ zdt5r2z8^greg0+u0RnPYM)!pnS^>3`Ko@m{j2rcg2I{KZv`+O;DDX}b)RQ5y5OB<&=QMT$S3*`sZ_}>69ZAUmuXa!`qvF*Tr0K`+n-)&%K=8ZD zRGnBgr+8N>GsrXy?_==K# zffj*|o}`#A0~_h-kuZIS`f_v3@-S*vBges8iLA4WbVE=KFS;kYDLp!Q@#E*Ikf|ql zyjUar0hRb+FF}te*;&$T9o$efe4t$2MK$^=yg?&Ra-Hr9erhsrgG69M|8{0hcCkTD zZfNdW6Fmf-L5bl&(0P#sf{qH=w1b;90Vqb@cjW;>h~c;U%?6L4)xv|@>s^;0^cBGFwwUy=2%_-vNMGh7HxLkYdT4|?*o z_~-jE)qCt`@R&YVi~6*;|9W9oTH2_e*!wTe z=F0lwfA-`YG)hRNyLxdo)36&3*BC19ib`&4e)nOG$Uh^w50kT;s{r?0V~2bbAYU{z zd2ArV(c2O0{H3+R;=Io;>@IxT2J9 z)Q=%^5}U)A##GFl>Oo8-BrQE9(Y_?miINAgoV=;xe$J0yga$+^Ml~e(E>v#8ZFwl2 z;$qpNQXF8J{Kh%EKva+eif)d+n()Kla^KuRCpCisf)fbpA}ATb$m^ZW<( z!-|yWol~pT_}@`3!fW=`u_f-rilXL57LzEUDC~E;%U@S~EZHb~uL9rKO!+$qrf0LRkUHDa798|oMZU|9qc2Y64_N?9e zHDrV95+F$5*Z!=zYiS0GWH^HN;`5JDAZiT*)V1pK&jXyBmmG(ij-0DsiS%)i4f&C_ z3L`IXiYrdew3w z`>y@^eim4bJqgteE(hUu34uWV!VRxE^67lG!a1m|7scqdPX;mkg!(v4foK;kHA7+G zsuVG)oAG0*O>!c2_`DF_h>H;sEzmPz!P$|8yUS$%(g{Jj31L=*mVZ}&rYb*`uDfc~ zW+&%&Loal<$J*gBnyEZn&eZp_%UApHd$D$KLeT8*+5(^tlpKsPSsn9eFw4H%7 z$aLxsIpn4ed~~=pywiB;CuH&I6^i>YGRqcLuRnL>hY*s2SI;K%{x-Z_IJG$1CP`iciSBZ#D3kV<7 zR0cl=lu+4R~EA>Hi@tqRJ|SUKv6f5%c5ogTAr8)Zg}*%&l1 zq8smV5RR?&;IJybMJY6=ZDilvWMSb$k$#XiNMd%Hy5)S4~lG|rkdo9wHQL{ zxO;qlMo`TTm@7DA@mqzd<@^x3$lAY`VOibt$uOmw9^$ULYw@?fEsEdj2KXi@YSK^@~! z&y1=J!v^k)a$JsyZ`HB8!N#bAEoM2B!_HzSb_@qkwK>1AgWCy|#!qzcm}ev*L*t1n zh?afpSZ4MS{fk$Fy}cLyO^1ehcRJh1T(sBJ(ngCk6yZykc|W%`zP)r?i}|qUaE@2M z9?eQTH-qIyuQzI^h0`YsIV11r%TzYTju6NE}>x>0qbH`K8C-008HO=@JTVR)l zzNAJ#Sc9P6GchRa2dKl&51*yiU^ltGq0+NK>dZWf*>(x^^4R`RGB?NGo9pX^jqtu- zrF(ffWj&=bgd8#z>vZi!b6d;Em@r5!A+qiGI_T#2ha#m$qagd6@QE}bR)KolA1*WZ zvlSC`JHhHc=3@Jej3@{=$wxcdD=De9o%RmVL(@q-@UL@fq8r9(9<-|>t1$PQCAyX^ zVdTBYt12zYr{i_XCt2sgt@qfy=bF=5BY&=zLntH!oWrdv~g&PNEE#pCq0TtgIF(hx@o+}!HnwU(blRQKIX z_UEeHYnfcZw(nksue@;*>R0h+4c4-gzrKh?Wh}$a9L@zn#^QMNW3zdxN)E7F{XW62 zlrRrKh$kZ7fa!W`y#jUm=hhk2;Xg4Ckny5m)?py>qGCQd$xupbY44e&2z*(2)o)#VdXSX5We(B+iOU7mS@Xg}N)yP4`-i)RCp2s+;95f55-80yuX+7N(ZdMht>bcCh* zDv3CXFur24UnZndI-Zewp!R6ia^RIF$zt%GTuoWXUWFw{%*3Jf+Sf{G{Osi6{g1qN zXUcmdZQr8zP7Exf_hIskZ|d@0*Jb|lm(tqDXNdLn*|w+@wg9y)aim;CcY}hzcI&j2 zdZd}fWve%{ScHcKy$dw!f`PL6R)%EftpI5|}b<&A5KGg%o@Unv)`s5n{yQX5V zXcwxN-*}*kv{010z?2HU2ig=gZ?~Q-xxXIw=Jl=qcI*5UVcFTvVd^%X%oaF>J}P_N zgMzIuF9yTL?{u$Kah+N4qToI{oB!mpl}<96z}L^=`s$jJT}%$`M75s}>^LjYMC<1E)!Z?oa{E)m6$?`m@6Ba1>n{`#HAabw33aH$@xF6M3+rRqt5Ye9ZxK`p|`tZku9^Snqb( zI3ch7n@`vt>o1Z%s_AnL`57=!o{buXw{3a(x(A3IH zwB?iB?84lAfQdDOIs+wt>=yHC>*!3rgtxxK7x`hhuG`=FsNlC}gHLPjs9^>`ik;jJ z{7+ZX(d5_(A9EX1t%S~V-#6U=9EKCsSnE^KZ<4}I#4Z^4`|N95S4liXCDei;H{8#% zO~F@3t!A4B&auXF2bI)T6we*wZ+_l(4#TJZ@A#+3vokz|v}$*v z9VfCh?nl3OGB?4ZkA58HG54^ZgX_HwXMV~Y-*xJKxxBh&$-NQ=Fcn>@An8*|g2Q0c zr`qoGoEs^l8pHi_|9Z+0>zD%5Yy8Ya*q`BD(pob&2=X+P&vAYBVBJifH*9(_VE9co zxo5x)Om34M_|GSgQh3A1|JRD6}nx^yNj|oe7P}zkQD=z zXl@fQZ-pgg-H29I>h(g41=)F3iDgI%PTP~W>qef2?6EX{IHBdDLGpT3+!iu2GV9+(=>%acK7gV!`2UJuc z_8z0KlxV-%0Q$E*H4obsn{aDah^%7ePhEmv4R-j9|9Hy5@q~r+bsS{$p%O(Lr&?-K zS!&7K{>~fv`)(e_2q_nv5{DD3*Xo^rss1||ZcWUiFeKBlRM!w&q9!+?JS;kFb{*Xa z6*0G>9k*O@9@Cx91|p-T-e)_TFCWA*3^>|BDCWt;32Ftlu(J< z@_Ps=OAMOSGd@(W_;UdAhGrj-Tg;8n9ysXD_S<|wg$c*t?ZrcuXwUrkfU=V)&{&B8G+ zVQky!%@2%DMjN@{*17K0@e^}ynoJ~yJ!gSM3CF8I8=0bQ4Z-r_?lHu>l+(;YcO3?{ zo@8BTXq?cVVWK3y`O=uejUz~80oNGm80Y6b zF;z_-$ARgQIMi~Bd;5qGvBY%jEq!ufX^7e_Ts{AE7bl!1qYUgu3@)$yRh?U)y$R8b zU{fW*JU=)T`Jist8jmRIh#oEs3XOszdvP}2S5W#04hCKwM}O#JUScTI0#sqY)%;XD zAQslx`g9)!Ufs<>5Ek)Sb&PJd7iTd{L|B}Sp`S73QZnSCRUGNun()616Q_S4g~l;X z2*>Q+SgV;~A0sJ=?($I~grv;-*r{`nO)60aPr9ss?j7%r*m7JdXh@{)Z^~z~WmggG zDR*&ZX{`JR(HdBj!6XE8IuwdYO{$1=5+7-0z8-rPdMHFU)HYV}?azf8wGWHVD>r5= zRtcYxhv=JG=w1x@K@}2+bq*Z@>mPQB#d(h5rHA=JUkzRQsay?Y98N^AG=aMeBNu~UFjC!-Bv>*%t-l)_auL%WB~UpKs@)a%5Pp#b$hc)a0R`T+!K-Z zPRaWij3VsDTjrN84~fj72O?E@sPoIX^{DIH?jhD9g&G{MGh>(WL}<>Z zgnS)Y)tiy_2dpy zuL$tYsC$rue9aki96i_Yb=ZXK^8GTIAPVJZjr=Ef=-G$TQSvF@A^?=>NE2OUB{+i5_`Rn1U&cWUNP_UsHM4gXKS$ebMs6a!`2RoI&yz^!DfD z%q%{xk)8X0v#d2Sa~j{L3ok{g#j5V#t?>h!J4-{lUUu}w&UsRsjkCc8VUWM@Wl*w^ z?`*yju=JECQh{H2ep%0m zy5#L-JO4tMmsYq#V05#?2RkKuv%JaV=kwdOb^vp}8POs1AvK?!tmNfab?v$LF0^yh zm|(&AjKeq97!$VbmNZ&q|3mZ2B5MlkmiM1HrcNSaH|?kNt4#>$HBKW6LGAJ?-%Ws? zDevIHZ&13Al~4k1f$P}cIEq+LmF{fv@UF(SUOd)wNcKP35>m0~0Lzzgl(fv71h1R+ zo7mW^RxA1Vi8)^TpU%YHZNUZU{F>!r>MCmyEaZR>HufM5F`+K|rKUO3FYQz>Z# z0qF)6X=!-&o8|a;5P{co-jnb5-|PBa_w3{yGqW?Zv$K2ApZe#J?rmv(y!S>vG@a=5 zsd!n^rtDGrg!b9NTf@E!m`o_N$H=WHOSG}?aJ_S}Vq3d93Y>i1J5tS|dr#p9&_ZN}a zbX%5oIhj(rpoVi(*!4}b=;xcc7P&qDjOwmMv`?Z^tGUnuH}PF5j zrEthSjlX0toT6g1C3?Do>9S6C()zYWc;3W`Yr8rRmR7A?lVq4mVtPi^z1HiX zdDbtS?}TRlzKO7e$VumwLH|z|#hT^UhtAK7pZ?BHU<2$b# zBF;*l>ERVFO*?GR+@o#X6iF@8=`4zmXp2adydJ*qQ=fQs;GLxNWJp4!`z;FY*|u(!ocOMCxBy5 z<{z!*ims2(378^s)Vo_+TDsL^UQB!%UXh+VHu>@Lr2S;!q+^d`gUqPziAF&KdecTv zgd9zI_-tz!WlK`UuEf~c;5{e((QNeI=)@SC6|r$izc5Qs;tA-+B-+Dt>_cYt2WrrJ%F2|X7tp`ieACnvVU$!a-_29 zTt~>M)7Z@snEZB(vDISZZ>3f&lgFgTyF#lu<|t@Ti3^{`GYGl7BUO$oe@QBhK*=*9 zye$|LY^NHe`y#&zb>WG9Ow{eRrN}p;XOvMds1`O~2$)lJ#3`R5=R%pom_8X!uXR8g zbhDO>^rZnV_sPSbqcm1|)JbdM?Pd=Blq|J8zgi;73uAEa-EXs71AMy6%SJE1f zESm4~d)Pd(^stwgYgC!%Zq?{3s$hJF?2|2~k&#*DvXhb;=P{(6JH*dLWYF4;NSuB{ zdvsMoc_@bG!K3NXiG!Fy^gh}bMC|xbLK72mCJJH>nKT7D;h87I(<}0zsFEK(f3Yrx z>-D=iHl@+wx5vYHcs!*hyL}Iy7!it~IpdfhHcA~N;!80TsAqNK-2b6da zNK(&!k&Bwv805QX=y-Kc*UDu%8ysN0%to@mgC%B?qd^TTDUnmOH?4>c|W?2ZTGoxAQD##PhyfFsES7Z^{&){nPvUUMp9J7L4KA}gOWbh zzP8UWl1?!y$v584oP4~1KFTAgd1F?L@$ldX8@ak?bXd((ezt~#HIXUS);--hZ?8y9 z@)TrCb@&rSf3!I?4;j`7`dmD%p#5PUo!cat!bET1P+ZQLS~bN43Kf~Lv+gs!*KVhp z-;8X&=`)CfK|+Lcy{J+ybB|u^TJMJ$vgg$nDE2EC`Y(Du9Xo!eRYU61p72M6RbNDE zy)I-9JU8uDP<39REMA?NQ_ApFl^WDyR?!}w$YCjKRY)}Mg?t2{I+2ejD&A(gI`i!3 z9vtMMB;vO`C+lQ%*V58wP_dVkQr1~VWGqWPwB;IwnA;f7S!3I443v%90@m- z6?IpgRQy!km14JHV&A<%5#^E-l?AJMB{8%2rlgHUO-xYE81kR|s=zr7mL5VvTBDwjjP~`_pR?N1=I?!1`U8Md@K znZ)X#ie=^-RrTh}if-0gZ_Z5qvV|u&;ig~o{cD!VwtcZ86r)uhov-lPP6VWO;h_=S;;+64;J7 zY0o>k#<^9_94VO%Jco{QH%>Qi*|IyA|DBC_6a}Xo1!@9euQ9s(+J}_FZ0+P8ilP38 z52U9~A8hy{dFqQy{3o)PX5lJOxg*OAZ?>3iP3J+;OuJ8=6l9;Tey}6=4?UpB`xK%( zhA26vQE6nwZq$kXeu;fQ6AAj65bWu|qni4`N4oK}&1S@UF!E5Li35qU9%Er)@9kB2 zne6q+h-CwYbQ}l25NKrcX?0$lR+zLL$e#30H#K*?s^p%+?sZiajdc7%qVclB70h{; z=r?km;q1Zj7dqOG*JGiOU}JF|LM2scHNz+9Y?41W!;E8?y?<}KjUQ4-Bji=c>%3>5BaQQ+vugD z-g9gt?jctu^RHpN?=rES=3pAQi>q*zqU?aXcx#^M1)LO9kuY3xnpKUo_mVB4=UC3p zD^8M++>{F?wV;pQHAChl#mRg#n&`%%EURA8ZZf5-#`_HU@|-H;tRSpsxise8)J0;r z>N<^zB+^Wte)Cs@v#e*PefKwd7u~KpHhAChqYRED&jD=Q_s8C&3cC7cCR99)=k)1B zQ1HkFs4HJJxf@rloZIWCJ)^?oDqI`3pUa4}N#eY@ri+F^hbRS9`2NU!^(Cn=v}uzr zdHJLZr`W>wpK0FB_(_d|Pjzmz$y(d7}s#~1Y)azdYMp0c8|_o$jAvrB_F7kh9|+R8WJUTS@{ zB*eHN`PQE~poLo|8nbv{?4tcA?S(!5auL-6Ije!=_ielGT!2mlP3D~dQ!$Zl*zweu7E9F@q2or}V6W0F-uHqjU!=O&$$Fno$7``5x!~$g z#QKaQkNlKv7Ul0eQPte%AX2b!heM#ZBb{qppDW@>ket7bJ;KI`HaAD>?OXv~304HQ z^PP{^P-4oKpE{O|+?IF%Hc+FTa4u@Nj$kmK128HO{ zDr#$x+L)WffVW~!qJBo$?() zrr!%m=u#RlWVMv-#>Z4&e07<^#~9BpD@5y)&@}awVQ!`}oAi9)%cxPW{v$`5FbSJ9#6b@vyh*h${=||wsfVpy=)|NID(|W6aST-AJJ^|&9oDq zPPa)FTu+Ih2wihMTU*UqynMesnK)9hs(pg5xt>QYR`21{pi(u<++i+#ilwfFyrH?l z_JQe;>)rycafz4o3I$x|%dKqn^uRcPYi97cpNEUIMin*pRQD;tWedFBn9|ZUy(R`1 zYWq7^j#L}#9}cn`PO_DCY>*5JN4yj|+4uZmv(rjtVUCa8%^DoJy^^omd(y*QO5V@) z@XUF%le?lzd)nehP*r(Xy0O~csbrXC8>-azaxQ;)$?gSzcJ0uDU(8aC;DXptO{53U zYF*nAskh;skIsS@30yPa*fugjMIlvfM6riZ%`#0$!xb0o)aUfLzW9#UZso2H*!Z5h z82vm%gGeQFIM~mrQmts_7}LUJ_-?gp??wl9`(K-$${GH|)xUpwFjI7;*nfygDtv&c zSWdp-WIOR|$tmz%2uWW%IH2)R2?FioIE0+irffVM*35hx$FY^>h>8T^>VUJm0F1hq`_c*Z}e*Ep;CG$kvk8wbp@Uv ztVNg5qlr`)9~;;tein4|Xs?%(qH1diKx$T&c8Rwi^Pqjw_Z{Bke;DwzqsjYgmd zkB6`t?xQ{4`|rKv)Q4W(S7hr7B_b@*Z5wW)d|;Y3RD8uyal*mwWe---B|CxmiK7w9 zZ-~!QpSiTwdu%4a%j)z=os@|S7o^&He7!}ml^%RS7>3o3k}u%M$38C{y8(Ru_%C6f_;X^u4SC*?29Vp6k#?sE7l|G{yb@b3+lJcVlxs&q?Mihq^t4nVNC9b_HSR^(G zp1SRWONl@k^nk{b{OEf&NkS9S3Ll5?3Fp_)eSZe=@bX zvLxSXj~BkCEuP7%sn>L>@l(YZbR@v#sYod&A`3lxwel6}1ZI&M(Pj4F&`BdA3O;kf z3;V#lhbGV;_j*;zE6Njy3$?+5H%xE&o^`A*;*W#O->3!TVIP&woxF#uyue1A1<@%L zjmNL9q2Dm=BVb4}4KX#hQx(?X~!{q?JK7i1Ybui7szor`e3ie|dx zw947fU0@?xbyJ0qOl7o7i!L6bQ$=KW3`$R*Du1Q#hZa|3oP5Q4#IZ!B#+cDdO8Uze z9M1gU28XP(lI=kQMTM+ii1=@m_FCNK48nF6t#~zPTM%k5sHy7OZ|mX6$n@0Z+0#Bh z+`fntc&A^WEW4!y*L>zKxWrOb^sq9{1T`VV?cTGxLvl1j<1U7?%YO>s`g(Po*6&IvDT z_YB2ZDVo7zrza1!E*W!G4Kiq7(>JuOt8eXkk&VJ@xvDVrc)V)nw#TxRowT<5ISm3- zmkK^xDC0?(B6#f+?%L_L+nCzT;f@9F;$f@YJtr=|m+0+%-jD{8?mVx=|z=D7`3*KNhFAtG6;EC8^+}jcIXBTv5w$2kygCEi^Bx z(=KyQbnjDaef~jaiF*pYwlbIH^jOpyWkrWp*7eG%oYGOo&qf9>h4w1OBJ^=Bne9Jm zE%;{$7cG`lE5*!D`30;_#rRX~LzK6DOq|I)iftdAet(%QmDn!&!9n}e2`IXKwu;XT z+D$x1{VJ9!h&@6d=ML?AGNnlbXLb6zwB>9&_R0rZtz7+*e%psB($eyyC*6a@5i!Y3 z`-JMzRn%7x*pcN#x}(eSzPkN*MA&V5Zyp2Jm^_Y3f6}a(^T@J>coKij6PxydS8;b1 zKe4hZCX$rub8~Ujijk(bLRLQ5ZRN7u(#pnyr0F+qmBJ#oy%Vx?(T#WWQ=F%I$*NS2RG2ewQUzU$KAz*Y_@oe?r*tW;g9AS-nm_D3~Tt8{wUY<;|s_<4zN z3i(CZoa(O`=YYlfHh%ds12~ov-_bAjZmB#ngpi z)jhl)>`&fqQ)bUy@wiEFnsOYQqh+B7ztH1M_=k2(UBb^i*(G+bjYUUhd}UNS+7byI zOF+$V$xrao^i3(SEMB^w_QYJMZd~GsnKfa(z5z|&>dD{+>GutY>OnbQRETCU)bT)k z5ZW;V0@6wJGh9Z5@t$7@Ow;6tMtGl+;x5NNX2qjt{X}7=E}+6cRy1~R)@jZ^Etg)J z(uuI=*o;So^l=jl=Z~%P#!`seFVA-bSbt_1F!v)o!7{AgWR0sB0dYPzz_t>9$D{hl zt4a>RZzARPjC_ywaB?NK{gW!apo5pat+Cb7Cls_gRs7uWFo@uZ= z0KFMXC8#LAANvBdnEKJ;&IY@Jf$NKr!WvN6(7hDn*b3o3D{l{j_9V|ZX~YLF25IPs zv?)2ShO+|nusUbeqv5LXp0rD?*)1$Vs)(uPwJ&}#+MjI`+9q`)>xx&LjZnfhC7;aOQ++23MI{iRH>5bqkHMgmZJA>+KOLq3=arU!WSFLSog}KWGz0zZI8M8Ab?J`7O>326b z=!|L-x(vU*7G+&F@*YhIAu`gWWVANgbLj>anU9XhyFsN{ z*TIsx606t-myq#}+55?_673=`)y342TF$hTRSg`p7kD;tFOXl~`K2bK3`szu$n_Q8 zXJAG0>6^%74gCs$TqtPA$Nr0NzriB*~kvb z5fi!BiW2?WajrBvQq7M{n)6(BuO25ug~-i|)J*e}Il(Y4!v4lV#5}?ot1`Ck{fkfz zO`T*7X?%g+*{JL9N1BpQlk=X@L>lwwPB-Z1C(o4C3_5)(V$8$-d}4(QbCt8t?8TLZ zaQwN)<_kux{MYw%zn3({W@}>fQ06%A=y+d->h|<-#SOD0)SzTH@<``Yg|pJ)rCRxH zXG@OUkF4d=TQjrD&kOP~M`yuI^pQcRwZW~7t%9?-tLpiLw=EVQn6cW2VLMR<3}pyl zm$s>)+LdVU#?U>AIqxdpG1z!dvTfp`N#)4ND#nZF-}_eHX!rtp#iLX!8o|=bNA%F1 z@MWLPy%Xi~kwNgOThnRX{lfoSfcFxFv<_F)wO}) zUR7p(*zi*yW+#pQprAoQ1qlPn)MRpO>x9YQt9%ZhHacS~K9DWFnMd6z) z;Ni>978AS&l*BZ4tfqKvRZ8j#i>lcQIK876DtX`h>CSDTY(LZ+C1NF%JRxX4oVvad z3YW%{O|r5*o~8QLUNLtlR*Gx!j7z_yT{);y6KAlI0=cP=VJj$Q7$ z0`FTJp~}XP!N_9Sp3sqoqE>d5VsTZal?GH7^v`kb)Q>KvlHlzZK1$((mW`Hl*d=ln zl{(bs17mu7AwQqa?D4}vp+`at&m`IL@GTUME-&R{-+5!4cZO2Xfc4EJ!?l>q-0uIIQIT}iU1^dmYHJjcd*G4 ztedVEmH2FBa!4oY?1GkrY|K} zU%T8;^s1oEl>KBMX9zWfsX(6FC~#eXL!0FzUIh==`k)G9FIhP+j zu%JySjBtMg*n`G&x-TvC9GEWf>`Vz+4P!$0WO?$*t9&ZA&M+NEFKi_!&qF&-c@#UN z;ET!Q?#|bjrYlHpBbdF!Fh74*nGW@Eu%Fg)Xjgtkci6e(&b`yYV?C{GI<2?4=!45? zA&GjnrD(ycQ*YefUhH%sS!CmQHR{fBPnR!lWtX>7AD+QJk!aG<&pEGbAF-MSTzXrv z`=J%C3Xfa49m)eU4{N!W%5KM_RqtycObd*q!cu{^LYHPEC|O=TKWZmj0X0@hLgN#& z(zDBwFVr)~*-TO(vx_9X`rMQvpG;5&S#2mx98*~cd^+i6!`W!3(;Ri|!aAo84rrOW z7w05Ais)~l*9Wt8$<9apmgX;qbTq7U7(Y82KZX!Kv(ndJ4v4JINTRPoB}UYd zp_rA1JSfBgCqCoY&^0P!njcj^f1%4?QgRd05^2uaB!t*Xgq<&J>=4D3RM{}IsH z!l%^#SkLy7epVFZWi~ujt6FbcY4`a#uEP;M3(e^lkI;hQIleJ>ujv7uvIlx&YXu8? z{WAHJT6`=i2ANdsyB6LFMJ{$}f24hL>PoeJuB8{M3ySoyaHrLpazkEM>Agbjx2>PL z%d;#&@vq&CZ0qNZhr+^@5-q3c3iTSqqIxN5s7FTy{H7vmO6~BpsqUG+wAq`(r(aV3 zfNAPg4Bc9n?cor)+zfTurOQc)#5k=Es1jP&=}MMf5$G>EGr7!UDyLs7cU-miMu|i( zIz3>G?|VcQ#o)EaimWEVP-}`gn!!lgpsgHmG@;SkjV& z4QNHACUL)E(7cs9Y{{(6lxZVvEIFYnB$gP@VBDnPjW)H?*THaLsho~wwURh<20Qy` z?nU#H?v?^YUQJqb85a^M-d0y;(K9yO1m+xa>Fq6*lM!|uQ}51F?(+&MWAs`cZix0L zcg25Pkwd7DXYuq3X9J#!Pg|e4H9IcWEj^vmTWA#Osj>gcuViOWSzGzd&`nyHESSi>iubVAB<&qO zo_Lk{iXs2AgIC-4E0{<#I+}Sy_LKI`Uq0Ez#LZI<)j2=80mp$lCg4W|> z>rp_IaX4PFxNTsJ=4IU&+HzW?wxG-E+awEZQ$w87>iBWj%fSShBL$tP>4EFjXcF(| zZIe{v7Y+_Or!#iQj8xx~^;kQqCVh$PaAlO5?LLzy;Q8%dqu*;-<&o?)g)bqWbJ6j> zLhFjy&>@_>MS&B{oy|NQY38p76r&u_O!5jCC>Fh4(b_kc$y;^TV1*+g0sOn;Jj=&vN0$XkIS0$f z@*N3TmSAP4IOfjt0`q%E)KTnp?+6DMU~@?e#6HEgv3yslzdCZwd2IfgUfaOKg29uP z{2LF4K(rGg1U66+ULZ8w6= z4UcOs6w5NZEUSb+{`jaXEG2f0(WC>?33-pWBOlF+A~X*UI%6{63CtP5PGuh$)U?ux zE1rGjbE$N~gyjH!OIN9eRy@HO?csykLG!l$bAtx^?2OzcXiqCG-A*Jva8hATKAV4~ z_t@nr`QXcIL^7qm^L`Ge$Q9FvC|rB7>DrdBj5$Q=zI@f-lYg_zR!J+RV^?6RO09-+ z$<4db8af(aetnSAJG+nYC3jV-;*D{0kt4U;vZ5bLMh+lM?|hly#Ex;f66TZKG#}@7 zhVg3uCg$#tk|!?Ms~o9C9iC2sW%#;m zj%x4atLByuQ8K3QVk?;iT{y!QcFO<{&8#I*rQq#-Rjg!U3iUMkJ4OO}hXe{)1-fr0 zM|?~hR!k}N&rbj1mqV*i``+X1JDUAMu2#K64{HR#()FXrY)j$~<#bNz#)XmNbbMKf zbI}nm;&C3hd=%j^PiL_rX;Qkd$GzfFpq6~&^Qrp|)QdB1ae2)%3s6^0K#GrTvfSk- zYm}w*ehUjF+_9fg2)$ySp_I@|J77;y7#O|n<#EVCm+emyagfC2{QocEK{PiZnc_OS5N*tmbtO4!rG5=L-{1I1TRff zaBZ*KxUNkxyPF*LL>yM!ya0J{7@F&I2KN-h8N8vi5`vZo~HPPFc3b$nP(K_fU z+l#6iS_x%WDK9b)WS1Po(K5j0@f;$u!>CciZD*;|ekOMF7Q-?5(;jViC7ST6gmPrd zYx28WbF5AKj~mO_&z*K}kn5^Jv{i})Ux@+B_s`L$gpLl}pufC-;=x|Di`+b}(pji3 zgsW(&!T1&mk_NV;`&wt>m^!QL>&~@`@;~(p>^;;ma7>55OlfzW**l6ii*FN&GjGI? zOE{Vas2Sr6GwBXWokI;KU+qn$I?Jl);yo*ed9|+iPOO>>x?)!XEiWzJ0JAI=ZVrjf z{nVRUQK7rbSUz0f-Aj8o!|P!=XVCNq>NhqEepor?lPE^_!sM+vTpzkZckh{MU(%|^ zL#f@<#_1dC_Ee?^sRDa6-gxg16 zjiic8R;Bh)*vc0?PtW+#8g5Kg5>=;FYccOTxqm26;n7l~k0p3fnF%_d zTW` zI$0(rT8Zt88L#cmb$>28S>^a`j7scK*HE8l2R$`cWM5=G9(x`!*6;@ITV5%E1v%*> zJZeFQRD_k>+S~+<4%&NYz1AYaL-E!#kf<2^wBRZvCgd*W!9Q=|XH$9Aa@mooiz`3t z)+_TUMsho7VK(_?{L(0TX;;3BYx4~n`s~=wNi%PWUI;D1_@4ICXz3;AD>_10uU&kkJW5n7 zV_i}5#6JZ@7Mt-GUtKvO&`W7Dn-_HlZyY0@vNDLO87z}#bzKU!&VNx#mi3tK%~a#% zLr$aZ=Nyit&)M8^AX^leBHmA2LsFxSI%JDp;j?He+;dAz6=i8`B(;1c#d2`oyzRrj zYe$Exy&m1Y!yhG1#NQIES` zs?By7LzV@nj_d3nI;)X_mP?OrPVebo3+VaQZBQLvPTCmIS4%0rZ50w8s%9&^~0mFr>1uLGEEKg#tXRR5s1Wns5oqt@I;ybe(iV^47e1*tlhPipJ1ZV1M zZ4W|~l3QuvpbY{eB9$@sdCUHfl3`-{~%3-pi-g*%>E{E*){*DAwr zSYVHO?s)Pm^SWp*smg=O3o&yOYv}3FoN(TqbVW9XJ=*F?&D6urauv5GB2WgTIy_5G zoJO(7u@M3P4@$$d3=}6n<*q^Dhm&{X#>t7CYlKWW$v)=S#K)H7^`Guy^1pwZ{h*9t zx8SX~vtZW~V_IOs;PIo%*W&DFGKJ@v7zfW^KcSZ*yQaT?R>_URgFU%O_oNY~kvgj4 zIo2sbH$RkYv^q?e1TQqM0wQdFfo}4FnQD{ zRV`1pktX07a3q&}CST>_Ak^+O?2=a~tE>=16;B~dJ?FDD{+?u{3H0yT%em)`?)sR! zi+WJC<%FaKxlQxw-PArpMpU^s;ERvRN1D1ll2#&;Ce3nIBBYlo$0(aiyh5lTsXm|b zJpUtQFVMIMh7WOp1qY+iOKa%R#%E8p{8uRw93d;en;Jbd=mbe+V zN+$(7NFHRW%IUOW<1ETcBoS7RWIfk?(V{qP#Qjj@1~=xj>t(SnwI&x{x7NS%e#}%a zBxw~;?@-p9Y+@0VmUD<_>|Fkt=6Ow30WaK^LTsa!{w1y=amMYnkZ( z%vPsnb4f5`j5|5bj`33tPjXzqk{o5i+F?;DvZz`5kuTv7h1DSTU{%}x)E6k#9tIBr zoav233oyu>M0FOY4P8(*J)JNsg!LCkg&dbs(hepq2N|lPp7vk>e=YIs!}B)8sna&3 z$h_kvrM)bsm|9;NVp*tu+EpFX=G=wSGTH+0%Pu?45yjF|m7%KcS@cCE_}smvY<-dh z1@55(ayO^D^$$~MsiR~bKzZ*gRrNtbab)0;(7oe$Y45;%HxSyJ%4Ekln0B4$SehsP z>lbM8GEYMW>#iHj>?&Z&xznWW8Qg@Q(>TLW8|W-I#b!ega6{tAO{T20Kp@R0e3yyq zxKjuEqC>O~N-p3x<$zgE6}C}~iV@#prQ3}Xqg-fTZe+S=7^uX2d>HT1y4-E|6;X=l zT&TRomqLE%sZUxLv0?fcW9jGiVvNToE$+nzfLAXsjoQzBXKJlp6DbOm@>3fbD)?GI zZ$Q~Y9l2tqXc8_^yBBd)u{9i5BaI70_qna%-TYQuasH`Nh()E&rI$*I489%lc)PJ4 zS89#z6Ovs(4|!P3x{!TNqivedO&zoG{ghEKc2dYttZMD4{!890?>$wi`9qA}v0@sJ zC87A9t1lhHa0m^nt`urs!7y>Ox<&Co*N7XKg--^j!u3NX^{zwI#W!sxdXqx2Myf0fZG-J0DoG9f5o_df!{y=k6*BW!~hHcVgTTWmMB*MzyXpdu>jcs zRRA>r0{}x`F$icK02~I#i3bP(xC)>JAP&F;unPbU;Qy|Fh6d098>|4z0Ji~N0<-{3 z0w4gOKL~JM(*W%Nxd8V7;JU>L0Q2yF*I%OnxP21!`!?Td`J9sQ%z!{vMcNCbfUD)3|M|GR!t z1H>Sn6#(3~F99HJ`1>d-DujxT0ij}ILugpI5E>3Xgh4_P;J41!V=~@gBe)fCAwEo)16?TU>0w&kf)cz{d8t(Y<5)MZ+P0aHv@j zM7**P^)XY#ZbNT~^V)Mr;9eO*B(wt(kN$|*m%0M&OV^coDiBh>%la zy|4H!Jb#V*8Bn+$Fa!MmdJzD@uLHo($&GDgd;5d_7=w@$+9jp{u~|KW_Jnmnk_j{G z_THNY+Vx)y$;4SmB)k`5zw{I$+jn}MHxyK~?fL({Zo@Le{lP5&u#x5en+pR-3eT0` zdDBL_Bi)-RgpN;)AQ3qRvDri*#GZ{pQfbSGz3D68=tlQ%2}8#Hqtc5#`v7rVi$#!1 zo`mZHQVzI2Al=*1E)Yi#03P%HFJFv6ICvdy5#T?z6D%@Xh+fkH5(<0^Nu@48u$}%5 zkV;#Egdes*O!{{qY-*PODCbvQECZSW@V_`VfZIG=zlQvo{uz?YSVl+zeIw~c zH_~r2U61o}86og$1!8%-ilFUSgD84e5daWn&k95Z+_b$b5MAF2f^l#KVjNyUFns`Z zVQdw_G!Ez|P$xz~*w6|@Kd^$J?OTDU`&ST@eX9@!43M6t6V#2SRRn+ODkPD)^3yzS z=3hKv5@Nd)iNL1XjcoJCHnEj%I)LsD{R=Aq{7wX3ublxv%J&0>=j+r;=8$OY2xw!V zpU(vC3~p;1=|=a4Fv+YHNTgr|;;31LXh3@=?E-dc2KIZi1Thp(LiAbv5KVMBM1Cg< zBC&LZ2u>S9xCa#=Y%ysFla&*~U}AwVc5eU+I|$nc;qE^M5vb`yB<43D@>}5$^^?~S zeReO%a~z_tT7oD+8E{$D9l!J`dkR5a1-$&gH~j@$ujIgSBJ~8fFMzUJs(Me-6<*~W(w~zFDYsbC z1jJ}`53D`o>?8v`euCd`!|Nvh#ET3tl?8yT$3Mt|L(2wnd*ne9S<8@QHqg<3fJ6=$ zyOo3X)wBwcy-C_le*{o*2_gLbXCX?*Y=}N$93n4XhNu9~ z++YkT4rKUGa>C)TPWT^GLAXr3JIMs=_6-0Xz(47N`6&W``9sw#@I$-DV}qx^ef2N7iZwKhHvwkp38=ztyIpK!tN z>)<*G^SLFcl+7Wr)G0_3ZVSHwylIONiP}8~gOcrM=S*9cza3wHo`Ps>0coFv##)Z!A|nD0si6liGSy{vCl`gg>MvopUQO64-(H>M8JKyM9%Uy zbn7tj>?Md;_B5=6Z+QauR`*-^A=B&>_A_yQcY0g_Iau}`-z_&%Uz~TcAanwfo#Zb7x`6kk{*@OhC@cVAGaZloWQ?iBVjaeha7RESdZ8jyc!-TvFjjr8A1 zemIQB?==DwybIYNFOqMV!iWQa*VzAx3%0!_z((7{ysZO+gaYF7$buxmy6GPUk(aX& z9^bxiWgyG?r&8?QypVA6*dHc8tViB}N(hUBemfn&wt&}M;B~h@`#KB?m;(5L7gR8R zWpjQGi35KBXmAFUK`3C}y;ZsYC_nHXgXK=fA1*(vPcF~Aoz@HIfga8P{FxUc$h;R| zWB;>m6I2XL1oP!ENGxv|Ar98)kaVLP>9?8g6bBh5mbV0vpSIatF7h7c0qNdMcM3zs z-6_saVLzlNkw1eF%~|-v%;k`6G0Ds1X1u})#ci^(V2bibO z8Mp$O7a?)52Kr|~C~+9VV&wY1?9IIVjrSOo3=rQlu+Q*M)PY$3GQ?yR0Kt3Tez3zY zvcq$NKVzNP3go-`wM=BaTc>0PwII=~Sp+P%SOIAN8|X&&<}l>_PH{Ge?RJiXz#7nZ zY) zKkC{8GJ^Ldz~y`gTo!(4PudtH2Hu1H6%fr|goxx$eaFLQp8k$|JRw;~BzNvF(E+Sy zk*pbrKtN_YJ$wN=H~{cRT-YF!d;qvCWPM+!7(`?Uo{*|_nMDhi5inny=~jNfCC*mq z`C>W{XvAb2`Pu0Hj>oO|-Ymy|h_h4P>t&(h5Fc3?oM%b3PWJC@;6t~JS+$A{c+cMg8BN(0mk6Wchmk> z9l-h*Od5hPw_h8I0DAd7>p~nL-N&tTN@siv5&`eHMdAICe=|tcE&qDEf30i8@>-Bc z(bC_p1K1Y3?ZV-A##`wEKDPkghxuDBc1I4w8{T$33@v;NF9lkEI}kPC%2O= z`X`MKkNJOm?t^Cwo7YQ7@f>HxM2cX-Wq^FjEX z9p_Kf0r=Y^c)pLUN9*;UKwuvvTr`J(%h>aJ`8&FmA2QBPVLub+x1^`B@%^E#0y(zw zL&}DvJH`1fj9mZvKUV&AU6m{#NPbx#-7Fh?e-mJ*3*NsCzdwLw{uSVRC1#grkOd+yO>uR$f@_s#x__z)v z^lJVeFF(>o3|9h?d*(LF76)YA>fIpxeOV8{cl8Dh2M^+jeFyCU-(mb)z@I-3q0=ya zC&y;Fe#<=?(JqK5W8hySKWr!d^g-m_;mvx0*MqitFC_IGu=% z;5`G#_}?hKjSsY^0<`^q8H8Safd~(;e>?C^7Fa%10wM@YKolZ6pbG6etho;2LuwGV zuq1>^yuR1|yZCq#2O+_tsehgPu)UaXgLSbjYzq7y18ltD=Rp+!9RFKgK?Q4Syvd!A zaK$o0805D-{k>txeE*#ETnTLuIw>WDMofwzR?>r*{L>M9xgQ|GSF;GA3UEftuW~_x zufHG!^2eav!8wRs>ZaiP9V!GGAu+@jS+OzRHhTDT`2R)cJLSEz{`hk~K3^SYe@1_F zR`<4Q|8O5~j5I!=9sobo6Be&z2)51t8iasMg4HXKK+P|J-LT*Pnw+pa9FNPkTMLT( zYJd2Q>L2!Xql2|{?!-1os0!%je+2yCddmp;OU91g8uk>d;pZ?dvZP zB}l^y&Tja(%MbHUe%kCi+kUk*Tqgtowp{n2GIB%+f#)L(LC}77qQ5r`neU&K9=1I- zIIoN5NjHMv*g3E_0(Yx+fYi+|VHj8lJUKOpCcG6v)dc!aPzR8FZb$zt{^5Lg${Weg zPI2Hc`fCrilUo(oU+ZgqKKB;!jSpx z6lbTfozioIv*9S8^gtN2oUrYGmF<`3+~)f&Aci!0-N7`+sXAa9qxWrghuH`u{g#ciB9Izi)kC{5QEa%lR|+ID*F@#-izer4EpG z<1PHK-9Gu}KnL*q!0&W~ij4#DZ}K4J`n?pLnEHqO zxxn0j94RBr2h0yrMwm~SUzl&0|BZ5j^`><>f1`}+`h@ig>lfBDtZ!KFK>yUh7MtbY ze2>kv{*AKUjD8!6)pa7JCwB!WJ43Zf4Ocrt}x zh?#;Io&%aR4bJ49MlfUo3ie4e7S13TU(Y~{<$zWLS~rVed^-!)VF2xzg_wE(2EHJe zhQB~egMjt|+6ltiK%8cP2H>s%=_)~buqMS=JcD4!2YF{tBj{gFLmbtM-|+_XiVpq* zwZYy<_jVN4%eG;t*!Vxl&r!Do(Z2+Iz%u53mGRYA8LKwP*aG-(pG7cr0~!0j$~XjQ zACR#N$n_qCzXNCl?pl!U4Untj4=O5d64qK6zR8>jIgXoIgxsVDN?^*^^Md&?p~E2_}gqdEDhbQ zWZr21Z}lHjPz2&^T}22q0{a8-gSpgZx=Zuo#`?6;{Vksjy4~!z`TqB(2YZt#1Ji%t zk?vMBvW%Vb{+T!srH$7Q^3z7IpGWmm>46@Q@wTHo@wijidVY8ZPW>Q1(q^#Tc)@=Q zu;ka@18*)Lwm&=ufXny>c#jM#c&_lnw%-O6CO5vt-NgZkA+@D6Fq@$}!K6B@Uu?|9s7FD5W= zK;5x9z@+X0rA87+y39 zVm!b($`mv|%@f!!2vOg72y749z^43|!CY(C)hLkHKcnx5ZO0r}{R5vH`KIezhEPD8 z{=v?_w0-BV{>Z)vfr5n%?RxVb!3X95>u6f}#l3-Ym3@ZL=~$6z;JlIU&2*=gDb{r_X{I^d)#l0KVr&a*pVa|D(Qp30qK!1MG@z0=R^nd7N!fJ1dy@g~($pfAPj&G+2;<}{vh?_i#G z^8-BXmIrvozXtKV*QfB3Iot3I!8c#o?iE}Dnwj_(l63Ka6Q;aWUs0WU^YUc}O=YHX zR00wfuJL6b;X%+iO{;g=CIpTg@(L@)JAjLZtN&MG-lP6cyZv#Qhjb$SM(i(6ruCP` zUz}%t*yBmPVJJ&q)W{1qH?vBu{Tk&q{#VOnj3XLFm_Ma2YvSp5k7n9ELz1t={$%tQ zchvclFTNFZ4ExZAx{?1&aUW6S>%$};Bfc2*mJg`Y+5pKaApGXrxgG19Rir~7U>`OY z-&jtZIRMEX5}m-)ZhDVr&Tis4SSKw*`F+XXT6hKCoAT&hxp|E|dG;f}a+K5z?b4%fKCpmAG@Oa-EZz;nKxFvT*k~ zJCFPdJ>u&tPKNtS<1fxMKlb_XLGTO0MFz3TMo_f_#7J|D9 z{gmTK<4olTAC;c!m+1u#O-^S;(>MFAqnsaFcp!i5Ctdd75x+mSw;p18 zpTR58Mt#Xo<5$v-!#t$C!mN(yUe-7Oxu*f1X|M+p$LMa$g$nQ*K}7F^1cQe@b^ro{(kC8Zgvv`N}Y7jaapocSta`hcH6ayzA$$KptZY z{SSNgd7k@y3$Iv@@gMbXhRfH~@lf2~YnC5jQg2?gwKy5x=J^x){~xPZ+aUB~CbwE1 z)$f(|%O<=x-XZ1mh1*ha{))@SQ*LVw{_(z*thg!D))~r>x_!fvx8= z(D9&Yh?9BzrSTVMl0SrHKJXFY# z=UDxZ>G=m{ z+5bXthf@Gv_Wz>(g8SAR881M)D#xBvUx4<(ldrp%%6n`9??RTL6MV|$OWq?5w~bnG zT-F5Q|8yDkLBHiJ#JB!XC*x5!Jz!P`RR0$Od^tJ`z5(EoH$1zTM{W3#C+%f~MCh69efV?dA(HIHQ$8IM``^Q(b~<_dA;wGS zyBg`m2b6x*#1k&LLC>qwXDL$ss4Xad8CJCN zCl*=OS;`@4`NEVg=(y;feOU?4SD5jaa`=l2B#qzvn;KXw>ISkOk^D-TedZ@SriF{Y z_0YGJTVj&Y_Fc26o3#0dS#-r2Dn02ZyPveq8;Bc^M3hf~5T5Ln6dpFQeWU2U77`nk#^1epVzywml4U;jny7op#~04TS;CNJ#xijKa?1Zb=Zp5ekS|b2c7eQX0)=N5 z(V0Jm7iBRiYU zw~x5I$+z6cOTKPwwTupo$6?Kk$A0U?zQ)5mvaq)q&t~YpIMB*RI+`PTp9=^L=jpeM z=6NIPc-Y|<9);&XAR2YRUJ>h^?rtXvOVZ&^v%K~Pmj3x z3$8%FXz<`Ad6;3dFr%#g()f#$bVQnO8d>u7cYDYhK-oOYh&@XQ7hlVY*B{XJ>5D(< zJY`=C>%bUK{k)O-K8ri$@4ooo3|WG8>B#UkfN1J~_e!4q@Dgr)r-8>|Z12E0&%*PE zSK>cK+%`tydt9)9MqrKt_mVb}6ui_&r8|fh7lIyT{{a`@l zv%sbR)qTwOP24)Xfm@#3;A?;C51?%W9Ep1vnV1GtF7or(UKca#n{_;QR6UE>hq(v6 z6YgqeC1i`C*6E22VZ~dUc-p|{SqRP;NqR(6@e3Zxe^(sFjf_D2oB%AS~eLmd)N8{c^X0=Tb9~Rf=Qf?hq&us5D@Kl_Qz*xj0 zAXfp_AxbbOEZ&B309f_QFp2X%`J6?-)(Gecnm(|2e?(fHrpzy~KOX+#+AF{P(~Ued zB~9wgXW7E64rcjiHkB)&vK4M`X3-6(d+0i89mf6l>Y4Q&^!>B%^2K8ubn5F{AEE+s zWk_`xAnQqBnrCL-GmTUITi~+g;-TwNbPIR*W{_ z0-V1Tesf$@+rTqle2<0Y;cTX1tcfV^$n)3i^qb!wZU1pn9+Fe~jo4qDOzWMdVBYlOaT{x38x`Ej+=d-@OpT%_l zix&^AuEqcd`_6|frjFK)>6?J$<-(Z9r(E@-sDC@g0PE-m9t~US9XJ&fwEpe@{SLx&a_2*8}u+5E_@lEzfM^RR4C2 zNqLx$Mq%GEjZ-vFv7x;d1=t2iCq>^mxn=BJ9(__@9{0B^1J+ZZ`aIU@l5Y7IkLucs zXT3XKlr0$k4xGQE=c!)zlUzEc`ph*xSk$xI$XuLk!=RQbyINBRR=LCt5 zKAzG4nCkv`7ud(B{%s%Dv)n0Y13xx1lAGQO^58ECDJPRh^S%B|RG!BH~T_qFWi;AcX z{06P+AcxLv;Qd~Vp)}@y0-b&Y7>WM%K|N2q;SFEoK8??TeB(dTwn6iWVF20gB*r^h zJj;4uhUouP|F)0uZZZ*Tgx|X6g!FEZi1mtmtPvD`?_@=o8%V7BWthbN;sQzYOUhpW z-J~37VIj~Jz2n8~fbD*arKC%$f9n6)Pb`7W#SE!;iDm!)1a(9ExZBg&K-_Cx7-6un zW9PZAY!Ut6{xRAs=7Tnj14-BqMDNq4v1kM18(2E* zrG_@*dj;A6o(C-LKnq8EXGLi91cf^=CYWHeFk@POY5c`WI{wo5i))Mgg(!0d#&~?g z6}ky=wy@N7*gG?^f!Q&arur9S>3cu(n4W)@`Zi+PuXi=zSh^>{%*Yx;=5x72LhOKP787!Q#3 z5Bt6eXWxSFWy$!v$wy(3T+eQKi&ZPSG0{V`5_RVOwheiLF^>3d9o5?d8c_P+3 z<@12%hDq2<;K2CzztRTs@lKq42y;A?UGxP!8{@ynvwk+}96B=Af6~Pd`?|k{biW)x z-)fJCqq)F(fSiB0aYzVD=zk05Ec>`^9L6&Af7>MB$-q+^Sk|&e9&rfoh}yh>#y@%{ zpdGM6=%-+(Q()CE!;IKp8h>$;j=wbi;)2ajWy`=G-EbP~@m@r8yzn~QKL{Izq!arT zO-Jbe^vtx4KE#tR89;S!9Pj1-TIjwUa6DZ#nEwbc83(YJW-TxZEfwEA&M_?^PmJ|E+cmm#y^6*R~UD&4r zQ2(<3+r}K`N&km_@7u;E?a%9XJS$$|{U`Y4enHtbT^MTv@%?W?TZT=0+5bO5TSu8~ z)6vFfHgXH@D2(0hbd3e*6Vx}TkECFXwBs3BunS`Wo)5n8k;X}S?UkSEJr!j@z3cs* z#=Gb}PL_@F&o;Y}+3`FSx={MRZ36bm{PjMj)V-%pJ9KD-zOPmEe{^ol1(D6-x zwqD-_$)j>4&y4_To9=ml;*Tor#d2O#8p4ed_^0TYc99sWx@g25tpV8#NsV zV5gU7{&xb+cevXB?Q>A~RR7SA<5TDgHasnBaE=UT&O)8|o+SGbVT_?PPoQxj1Mf^$ zj2ZdV9smXH43duxJToy*iH8g%i=4+wIYXKew;T2Y(ckTOr*kZ5!rn!c3+1z8tW*2H zZ5sAb4W0v=;(qrIQokAiAX_~ry1M`Zs{6(~+jMvYOT6$dZXLVZ)&AA~U(?7${VxDs z1f6|`xiRjaO#h~dNAGts(H3Zq;A#gh3_ra;#5J_=l*277>j1uyqd!s|Ik3KvkFkW> zg)i(Yj`9)>D`;i!$Fm%?zn5Cv}PZDpqZuBV*O?X!jJl= zvCY{3t&{fREb$}QJMQz04E3V}fExfO+L#ZKe7Z9bLu-mqLHI$1WGohBVBZV^AMqO@?v7Fh+!7?2W{nI|lC;)K3%fOisr0BMoyh zGoZL60M#+&p}a)H*tgwvjtyNgl zJKLvzG~N9S{8zv)sqP`JaP)4t4j}u#S6M^il3-)=er}z**JJ!QtA7XT-$D9ag|_eo z*2iI+FAIC2k}%FjAH;J4W3H$xZB0S1C$(K1sh?;9=y@J>2s|;KWYyvwc7sb62j1Zw zD*+^9EA?-kzKfM2r9fbg^ziM|`lc3{N#u2II)|2qm} z!2z%F-@XLnr|AE{sDJw^V9X8B2ABhD|o)%Vi@{qXcOj?Xd?h7-Z9+I5fMgll!nq$o+#MRiQA8}OBnw%Fb~P8#e8iucx?pV z^}t^O!@jVPWi@0%{o9uVqyFtnfsNz;oWm^h=_x$2q>ESi4Z5LtT3fXNehn@fg`jz> z&-X*bVXY&aM|basXTltAU(g_)o$C0n_J7j317m=wf7FFz17H&XZNTw00B2M3w*s)% z?7)628`?zP57;Zc8{_m(unoQk^@(SQfW0_3i!jTNScBbx?`%6ze^`&r$CkQ2kKtX-v~_n(C%dY`|JNymYmlY^4L?($9}L@@1&)<^D}@%z^}>C_X!%yHURv# z|B%RN9&_@aSoSNk(GKtpA;A7m^>6_2c|J&D#49GDm8 z)BKS9SbxgLcPNntb??}YJbL|uChFh585r#=(Ee{ot zzQ0hNi+4HkegHq#7peY58tVHPGu-u$_7Ft>x6RwlGoK#AV}94)-*+3Ta|!es z+dN3}t8mo5{{UD4kUEfk!HC7#df3|GNmt*)az=c{?JFBhpZ~|T|F3GmS&kJv`KAFZ z!cit<4xnsQ){Ow#R~G^JUvu#&@Ew5f0J7d?doaha^%hxHjkCl9dCtenur{y{^DwNh z_<8=fNB_5DJ;{mWE5GHrvsSXKcP5}+y}%Q%{RfNg^9LSoFEpN8mhuSxkiiVg zFq-esyr&94W&O?h)<6!T?gwlJ(B3xE;gJEI!NVCGY8xT3aX53F#={FsTu=lo0bz7D zi_!=?9=Q9}=lQ+BWufmi+W?OP9Dv{I9ZCqo(fr_Izytt&Pmul1h-Du$!)9UaouAh0 zX8^7S(EHAB?&vf??+XQhy8#OTbhh=##)J0DN9&uP0cf3zo@4)u^LZ4z-5sqX(R}eL zzz2XW0D86>`?UPuUj3hJD|`zW1GpYw1CVULxnrw=7_cK77gqva1csu>q$!iR1 z-SL7!jr+flc%b{gVCeoU7%J?9&h*kyy1pLlJ9K~m3VR`d@qevK9|F~={~?gae+V>C zjmLlWF9~S)?;$P(HvI4FAwCMAXpbn_Tl?=(92C&_zt&Tps8;@m)p(|F_5VQ6^dZ6i z_sss=zxLKZu=Qh1U*joYtL>xKklye=%J|>VexnTkz1nwc{iC&bWB)V$H}qFy{~ciH z@5cXLco)F`0UiLn378C^cX2wKwhchvTIkyXy{}Oi#nD`k&P_fHxD?O>kN_Z>zd3Ua zkZy7Tv?fQbWEp_ogQ-nZDWthZfacUU#m6d>@0IE+Lfadf6%Z_wj0k|Kq0MM52 zwNx+ufa-(Zl?DPj0sfcjA{FJm9`GrE^q{uWK-;rSC-KqHXoL*(o_Y%)1Mq8g`6$@a zfbRiPU;f&thzpNT;jy*~o?P9JXZ8C#&%N+oZol#gUU1_}yy&(!1dyM?@-F%}&pPuu zp4{~;9&4}S;R$K2(uXWE4ar2$5?W87$LFub*-?YcFaCmq0sJ8aq6Dp}T9 z*R$d~-saUWtYke$?BadK9A+m?Xkx#c;N)i5EUeGiI@arh-Mq_7YgozM!+FjhZ((uy zomq(Mt^jY|p7PL{Q+kG%0Dh^C<{VD|jCyzJS}Sh|&deltJDV5W{0i&(=4Rd-dOK-i z69BsQz-D1Gjai&`Sf6oqtlQgLdEp&zvXt)U;7)-kwH{Qzl<_d+e;z<%<}byCK+p>T zG$)j0qVl)_b}V9SmE3Xt5Z-@$B)zF4X(WJg%^-zjL7^_b$Ly zfKb4R>}a3kSODo=0?9Ax0ezp**j(|*RMuxwBRgrbllPf~c51+ZhRJ+^rZ-C`X;clG z%ToLNnNxp+yi#VPe>&pmId-BsYV+p;sLhk?o`CyZlDqfkm4j<|pUF)C=sf`FJ;lkp z&v5cipE`NzGVGyUi*s`uaBdEF(phmgkmb7;ZuuVPG;vQ%9^F-jyW}ZN3DR~%p6)Z9 zy!R)8@p8%2#5+F!IoImJvkdMsQD3+OaH8~uD9G{%faa32-AK%03p(?%fsSk8p)Ec2-t7SynvdYPemN{8h@Kj|`{ZiJR<8Wr`h9NvGKE)T$8Q`A@ zI36w!Oz9octDnXdb>SUfS;2cxMHziSFNAkofV-`hLFY9%xAWFlJmvc5d35K~cxb%o zod;fg%y|0>3yDkQQB|k#l)pcPJ1V{uJoCW2YN3;pEWYHV@Xl|3$rF&*2ko^8F9aM* zNBq77sO1sN>?At zz)$*(IMDPW9nJx<=&C>P^gBLe*&iR^IZK?ZY7xdJgRH9DJtrRImcQLA-chu2t30GG9DOq;exw5(LZf1N!Ch}c*NwdQbhIawMS%1xxC-`wQZIj%hi8`}zfaq5I&GCt z+xkOzct!zFzW5nlKJl5%C4}QeMVomQQ*a_J>0@~AALEPBxd3bUr zD}Q=6>qRn7N4wXt>UYQWoYu$^PyUPAen{8qf7LJJ%)%^arSbi#7r+3!VSY### zeMf4GceFo(j>o>>(C9c`He@dEISV>HN+^Y$5;~Wx>HgT^@CaV?AP9x>)t9Xx@jYluPtL(h^k+Cc!JW{8x>Fg(92jEEE$H+)!)FJDFJ9zh5 z4ZO!3=)H}gdcrOqk(00UQ2DioKP)wiclvl+o5?Tqfc9v)@*%S_%tRSz3=h_whYWPi zN3YYkvL3AK)cw5s9JKejSl?2x>X&h5VZP$>9~tfI-G<6UGU#%^FT*4@i!%?y+PCfB zZ?(DnRMu|O53xkp`7p>za$F4v#?iBT6F{dG7MI8>-&*OCd#8)hx`n{I2qL9I=syC+c?;O1bEpE6v{n zb@w5m%u98^bFY1bcb|tg-;PlA5xo<%{n`)7PY{B6L;1U_+qDd&AKRTTnSIY03>gA( z*+@k1(o+8{rl5*{!KB( z8{^EvWE$UbC2uTd9q62}XFu?2&sy1ZS$(F*oVoD1>Bm5RwM?*O_q%gdnaNM{QQGI{ z%iV|wnMaIaMNd!W-S92%SVC9WQ%%2Eyc4uZKS)033f>j=*pFoyh*#Mgi_Ppv-0wsA z5eTP!m$Kcl*wU`ND{KpQ!*>$Gs$YglY!+u0<}bY(*J;|1Ji_9TZGo`rmoiFh7AL~O z(z03A#O=pKezWo>V7{fvE@j+^|7PDU>D(V}8rRc19vH^EE`Z+gjYweCFT*4@i!%%J zm);QP7)0*`uyde{hnio8Ni55zV)4B)?}0auo%|-{EqrpknT%(l97acb11YV5u!I!e zdGkd{<5`#eljKunr1vq}A1EE|!KSqay`Bn(OyOM@qurkXkaO3w`uj|1aw?DO zbsA5*^bVeLJ#2LW(l5V@$N%mu*kEznz0JJt!4pDu(qHM@xUX5!t>*6wEZyDkh;~Cb zJUN|pnzM&>`3&uTag!UX{y^e_O)qI0@^zknkR_da1jnY))$}|cn7+@@*>`n~pXdH#FsojI zb`RN9toj3q3pTx^X_ik7tA<>iu!pLAwUd{xaWe8#m}i<}FTcuPmPKOw!^4d2{{Zw( z^HAE;;1O5+)&kZUd&R0h$KE3atNuXZf=w@Jn&qRgPD^1gbtCp9V!vkw?)=XAp`PdL zs%M$F<1=epGi>xWQ(Xv|ebJCSjJUnimwmL>L&uuVI|KIz=zRnG26@%Y9lRQ4J&~Z2 z_9nt6dd~Q7c*<>$^XT98;}Jz=fKncP(jR#8Ef4dYu^U7h>K7-H>?BLaxj*snv}|3^ zn$9l+z5}4wO%!abc3O0ZbzX}0Pi;xTsy~ppVAD&Q#(Y&P(bhjb#FDRk6n5kiby>AC z(0>tz^<|cL$-UTHcz~h4j=B6sxz+!jKW|{MRXs`ns{FLpN&9&9dP(Sg2JcLIKY_ry zppM7)yH1x;mDkK4d(uTbujT+fBTlGtB%gJOu?)i@|3?75PEyamhId+yu@=yIIi7P0 zR{ep*1)E;dRP$A=aPs6EU#7JLT}Dmk>VMUbGKR3k%N}9n$5?(Jc z`Bk}PStO>ooI9T~%Do2Vl53t6$FuKvf_Ea_65yF9arqaRd*IxO1LsUkv00p1n9T1Z zE`M{g&XagspPwP*BH4n4+<_l>&?@+4l1a}P7f%5!VLlVn{6yc#lm30b~^tXm=Lcbcr<1J@#aGve24vMxvZ z&kpfim#i#zI%rKo*~bEpI>;>VLqEd~@S^z*9=enI%zI{}EQ`duHT~=LlJ(NZywfVQ zK?6A6UBp9UQ+Q~c2H5XK`)37Utu&M%QGq1*36f1f#u1izG#cTSB3`k^%|HL01!mtc zba^4aPrvQ?iF!GzR^z^&@}4d^k3?1}Ct+D$S$@J&FVK`UKIX2Z6JPYrWo#wA#$q z55c>croVQ@S#Q^P@VCA=3AU!i_u#vU$UQtXPcfmAewE}egv(!3vXw|U%Gjd z44MCYhIPQ6Syfi}<$qm%vSE;R(?hHZ?On=W3R($&7bdmb>D+m}X}IHpP9K_-#>?jI z(0NN4s0{G~o|e2MUWGD@RLc}~>)pKKOX&X#oQc92P!-2ipB%J2ijE{tiG9)vjZbCS z)4t~w>qrhwhBZyh`pRS;S?ICf-h)cB&eisgs6?X4L+^@jU+;`x^gNWJb~-1^#NUcU5zM_QDbTQC<)__KKL z5#=-E)s|ri=U(93tWfoVCKAa8Rr`|nM-uF(j1S?O_>9Zev z)k9}e*8DBatV2()^`D0z)9IQnMcsrXB=YnPyE(NTBNWftiuJE!^9&X;g-7y~t6t)n zbL)8_`lL}FU;m4dHnXMyedHaS?T9tDx%T^yI{*tOd|@hQ);9-usLf&IP4?EZ0P@?f zsPDK>SFnmNovaeiEfteLx~n*cY}PIU4I>#Styy~SIGia?IOh&lwyMcX9x0zHBZZaW zS(o(Jht>V;-gMp1SbuSW$*9r7*v~4yXzmo22 zwe)GXJgnT=JD*!{r(Xr08Ad3c_btYt1U;?H z(_T2XcRze%JnSWhQ7*6l>l%3c8ArZ%DCqLw{rCaeZg1wH*IaAV8O?n{0OW1} zP`s$4kn{`|zvBQa$2eNP!O5s>grz^>+{=u0N&f>4lYGq5d&J>c!yMyRdhnJqs95!@ zvKG$3-k~IqvknLp6Y+i)5 z$_mth5$vOvw8b4pIxm&4>QB4nAzr@G>BZkDkH7yJ_hIjlQm%IKV~osuYnrK?C0Nf5 z|9q914Ba4$bm8#OI)q+FVb|Zn(tm2<<(ts{H=+Fl>;8>S7JKSBL{m?1@XI(gUWQ5R zH!h-}oR_ZL>&;t{$4f3HPRd&L#UU2eQJ?qu<%u##*(44qeN?AjXeUi>{U~x|?P}p+ z_hByJsVjQk%CR3_;r@ePonL6Wg+=0y?$XW8tQ_m+WnVcNf%H2jp-w}?^z>?8_=A#P zN$<)BJ7szA%n&>!Kb5x(lh`ay4YQ9ye~l1lLsfaDj1rs0nS~kBhcN30HD3CWvPB(o z^00ymqNCCpg8xQWiU4WDig@s-aWy<^H~IkjkP%Qmo^O9##_qZD^86knM+pfVPQFKyM7p& zlFkc1-Kxu~@+`%-uqfy*_WDPS<^2kJiZLo*`%n8JD7}F2tYRMbRU^;9bD#|L%)s*6 zIJ0w3It@uHP@FaBEmJ;byn_w1(E2-`m4V9QHyzoU8a&LWtl1bhV!mtUk@@1;qw;(O zbbYzrh@g3pX#Zr-D*c5OEWC;F!fnm0^lS71^aT}{;!fD)zu)Cbf0XS%rq5|u`>QwS zW5Qd?qRQhpY;z-vJM#k4g<0PVG)&}AxbSLL`c;FcE;Jd7wl=efM#j_M``WnnL_E$0 z_;S=Q53nTiaTVNy7fD4vvXA#AfR3^0@seZq4DYrien%FBZXnWH)*Iqv}8{Q+S?(=g;3vbi8yxVb&dZ*KK4h=i@qzJw4R&lYa!DHFq)+$T5h% zeY1=^C-cBSOMOpOSXbH_Q0x`{Em4Wd04L9$kSL(`Cm^LQBuW=*6r14s&pkE zvoL>gX6a>E@y3HJs!MMvhs3%(D8FeK?$KqosVhafB`p=x7#)GJI(bDS%lZ%Y4PYLv z(4sZYa{;Y6T95kzKr#r3>HJ4-9ahIwD(0|JQ7FL2fD5-V2vEp|u`i4i8R#M#)kQ`=MgeCm-YF4tf z$tNwHk3wG$lQNja1rU~m`@a?WRKJv2gwg%r_BreP%9ysdg^6)zVgt{4VjT;K7T-x! znghTqP)D{pb^-J{jO~6Qx4vD+Gin-nNHgP^ds?{A1L?p73RdmlvHkw2=T~V-e^^!y z&tJODG`|_mwhk*;vy1Lt_bX#`?^9cqF&p#qkQT<%7B^y?sORy&zuri5Kgw(c1mnnd zKh>YB4q+=l>pwNj`fdYH#<%$p#(2(;&8*~G><#+X$q1xh;-bw5S<0Oc@(xiRcJ@g& zv7a{M={H4QnOQ; zXAc|4inleH$l>M*-SbfBfS!xC59*oqokJ|9>v`X71HE&p;o^P-};ZSEI-)BB^<)^YaFw{ZII-60}^ zCth_E&tLOHtFl>s6uRfpc+a(tZs7L!8(_~E`>XKI>eiRg+cQU^cr8yHFg>?rox%=z zI=2kj#Oxy)xE0Ui=pQlmF~&0R{3${^D8jic(hp(PFT-r}*YV6(N0`RRG-mnC!h%ij zk4E-eqnUNqidN;PGG^^*p)rR=q1{=>HZc1K4Lt9a?JO)!?30(eBD@n2jNL0F_j2bU zgyyb#y+&7^jy`aZ+eeBz;IThAc?UcXk`A@-LVULr^+0v;D+4N9%7GS9R%&trga~2ZQvz+*ddJc_C zX4#K_%59_TnT^K5@r^w5vqrq5i9X8Wv1Vk)9H9{BbEzDj*epz@F^e+`3pRalG#r>) zCg6P&{hEa}FrI-kM79Zy)Yh17Og+nab_Le*GSxOu{zkyx0B!APufziYdKTzB!_xA2 z&NIt&{o5usu)NugJa(s(`YOZxjHe!GVfh%73J_L^eoR>P%P@(};>^N=O&=%?k~JOg z_+iZ$Z*Z?{4Bm5c=Rxn2(8e_VTVDQ>h36FOZBf$+>E&qvjoIztXl;nr@YKG>!_uuh zXUK9+?cY8Tfcq6}(=Z?VqKSvqQ(xdb!in~Sb=iFC5A=LE0igggW$tU?k&u;S4r^@T zXF5hsuSnd6_hlMC(I03WO*`1a9B5O8sEdMK=o1DUXqe0wXnM1BL<4PtrK68h z8zC8KoKL{~Iq%a(W}D$Ei)d45|CU$2fbNT_o$F(Ori&H8t*z}NNt?JNP@%H}9&Lcm zf@Kbv#BG!DY{ESxc4{{>AwR|=%aTSOzr*#uMtz#z*%Rs+x9mmv@h($vjDdI(??gPS zXpAJ8NbhmGVS{ujWS#@rX91vp`!xKYf@kfMb9q>bmkj~Z0oin;^@3yRh~H{}><6y) zfOVpjYX_qa4vY5h(m(pdT$E#eBg68`_Af|GY6fdHh+|piJVsy;?@{)0mS7IG&EiyfFYNn?5Fm zXFGVtBjdPjRz26+Kc_M}U=z&&n?#P!Q5VabcYJxx-70rIc%!{LmI9UlU{g!T z2HT@T|Fi3P*3;8@g!vsWRMzPLYJVq!i-HhO0-6A_9tex?|8Zwr%5p#4B>J{&|8~45 z2>qiUI98&}I5XwIe95|@iDlzkX6h~{kK5;Dkqy|t*MzepO52rfSjY6tBt0uQ)Y*)@ z7|-`RSqjGV>{^^3!y2(;EqJZbcrFKq{_RUV+kfuptvvpZ*OCohwJdU+rEjyZ0^$KD zlB4$ndhhrVp!Wgkr!&jR*F40nQ+Ii^f5$SkJLuoB8UXz}VB^QJ9=8;BuNXEH<(*X2L`?WZFW}O0{HYL|lsqB7%Y^X$(R`HnA&*2GI+{lyvHIS!1 z{ya~A{tfI+)d2pqK`-#+dj|4^t8V78Xa0#tmUqN+G~F+41Mdd>p9bg$pz-t9?C9L( zV89lDvES4GK*Nk}SIwvT{iWLuelG&50l%j9j^ecHXb#;U@HU_pAaxc@yA3ui@%Rq# z9^lV_B*1UZwKuOj6mbt=65v~atPjGfU$$q7&EnKBYU4Dv(0-2IfD`TA2_l_vj^=w7 zz?pzs0Z#)y1k3`^TztI&mf`E=T8- zI`nnpyhf0)ZpUOYj`iR4-akzC7AE0T1GqBH|te!;=z6`84}3O7I}BM8wG zQ8+v28c9L4RtqMgHPR1>21-8|NG~x^{5q=+9fUz3Evm03J^k&gvxQz%zb*oVQ2n(U z5um7A{Aez!M*5&GU;csaG$8@_-Kl@YK1B~56u(dX)VOuwQ_r>TG*Q0%YMuJ>tL;Jc ztL;bi`)F?i)HdniA1DPy8?KRlv~AU2E5p(LbwSZPb%D@dbRqh3t_y+wr89$9b{Nqg zH3p(%YeYqd*NECFy+&vN`L)c#>yl0z6GR4WtPmLnxYAG}Er}4XF9nyOC}#tn2ZVHR z;1`!gUL?@*{Gs*KYQU9%L4Z+!1%QnJdM?vC7y&(3DQpqoBLJgGXiJe3ko7ETUy>V+RrT4xkEfqB$D`8U~;-(yN_Bq~x&7)30L1cMoUX z-uj018GD$WG@&Ud=rgvCbstvCO78iPWu18~i^RSRGhUhuv^H1(INpxN+xr1jcO@v-e)3o5&#Y)O`q{~ylT)qmU-s2JS--`gSRG29q=Q7 z<29al1@G0GEP7o=Bxf?~<^N?pKG?zfOl}GQoUHdJPS$Ixll7eD0`gN>pUDKR)95*J zH?v>!B-)fkmqU?@-iP`Cj+LWl(rti409kK5EH;VdUG^~VF={vKGsVe!PeHj9?D9KV zSKM1)wglhuVdL7i&dDtJPL{KAKg)*gyR6MSS?1R}dG^NLJZIB>X89U>uwZ+wV3jLR z7u>tvdkS<0x+-nStLNxF%y#wTJUk&)mrIke9{AsY_I}pUIqqQ^PrWatp7dwlW!Prc z=M%{P3H0KDovbtN|1HElI=T2Bn>lVHPaE(aOZ>lo@aR5guyA`Zt!Ki9a2(F}L^A;F zaK&=iU|?9Y=Fz=RX9*YI#?u~pn`Mmol3PA+WCfr_G({Wp;N{}o^}Veuy)W)WaM>h~ zx*|LZ&|Yg4wB9sV(+%-rVR1>U@SpFnUQ-%a@2O25&E2K^{FcSb!+z4d(_S=1Y6+Vrz8dVWdA z2iDuB%F`n)%@Yc`v6P#Jam)0>4E5n91IbhU&L$RD+|5XD4QS;8+QKD+$P$2F2gyDA zv+m=5V!fs}`GmrOoK*C^_ zw6Cx7^_2n1B4ozC-i&jwKSwDO{OOt0XmXr6G1^p;k z^&8_X*F8b<5DjD9`TOrLPN$c3+5HUsyyTHGn94Q1j-~wWd?Wo^AYU-90EuaxLFhW# zTEe=H+sS&&MqdsRx=lU6qKm2p9Z9b(a3skzc~8*tko;XI{>)-MWumzptpx<)s9((j zhx3tsP z?ME#Sm8l!{awqmYOO@#d$mQ>>!d;r&JS04Vl@DFayJH^Ttp@t>gZ;(Hyp+Z<@B@;? zv`rYoeWtPAJ5{|R(6%z6d>QB8sLHVeI-qwcqjQftu%Tb^{uiv+^_7|th)p7JUEW~vdRLW%>hv=DA0}y&l zI^{gpbpf7(?F2cuh&hp3XRZ1(ufD(C zS%|hHK>B@QO6Mz1hP%^L&ppVZOR58IKauuQ-f7leO&)K0zInTOww9*kwfU+%G%xN1 zkWP-vEFwLJb(vqs=+61}grcGI=-wT*&dmK-(pmUPX0fVG_e&uWd9=kFTfB0wJVl%`i0{DYPx^< zSU}MVCrf*B3X5>)cD{uiBuluph^0L?nib;y%VQynJ%XOJ z$-eb5Ri4?9=QB+{X1V7%asM;jncLn_FljprjT7Ig)cW%BheRhZ$LP)NE{`m)b>Q2o z3|~Sw^nFq2%!a!aJFS3j=#F6Ej`)UGgnKFqaW4bFANCg~^YT)B>yxxI|M`+yPv-4M zlPlxK$91_%@l8>aB_N*uWT&!G8Pzg7o}Zw~^&NCm3lKW94xK_e(V+_Gi!&cz!ZIFN zz%mB`o&~(PkYx@9ybX9CFlrIL`7L5ulL0dpyI_hdEb}Aa5lAx(@cKfQJMv4NcG{I< zuA$bIPk-t~H|qKFMsH-9uYulMfZ>3V;4v1wCjq8||4hIq@Q+9M#~S~4T>LX%1|EVk zJhgyjJPLShF{@nGpwp(ZJKmeG%0X+Wq#vQPymw~uj;o-bRk&vqxC-ab!n3TZJ}Ix+ zf3q-SS{`-MSvqa|i=}QRbUo4>iCm${8NBkd13GOgvwigEDqYgg zR{){2jORw+{!HjafvA$UTRRR*&t)aJpOffUF0W@XT}~E!C4Vy)jBQR(kMKKd>ybe1~g9sOQZc|U4GKXKO+PL zrWI+j-u_hF!%Fvumd@PDqDniP2E@ zemxxN?09A+-~PI=P1_dyC5_x?MtSg|du1bT7PgmVnTI1S?d1_V3+dU57k&->h&w2u zAKjlGZOQ-cG+47py6j1wySUziS0(h|zFX4ex8i*#>1y2l7bez1 z+%)|6cW<7qHlXLHy)-3rzt!%Hbnz<2yI;r|XX$C6mj?i+09^V?Ok&wz?-zGO(%p*^ z;`*NJikIoy0z*gk5sP&ml9v(Zk6jbkI#G}^#dJH>i??OVVHT2|qn7oL&`lzsPSX*O zpRrKfTSs>zR*3r>n|bcDxQo?)eW^P4mDVFo;<=aMzDe{c{f9HvM+y zLC=SLKGS6X_jSE|l2_tF)P=j8v@e2tE1tQdYuG0i-L3N8jfjy>cV&WTX4p=w3De?tLp+wU32m zc=S!85i~@1Kb4iOZ_w#V`W{&0sfLxo#!T#~{e$Lblrc0Zl@%}DEy^V5gBRWD7PE0X z?Q>J<)4HK_)QKCHiuO6i<{%rf1RJPvNB- z>OEwj`^aKpQ!@%@7?iYhPSoh=>=1qT!8wO;miWmwhWp3Fom6zsl!Sr>TaT!pML3FC z@!I`59Z4@(T(bT!YX zAK_bGSh#N5fM=Pj>~cinNOlm++d@F>_WO}SC5iAj3jLvGsVZRV(52^~h-yRr=I z(TzQfdj#p;BK>|Rmp|+2VRW8G>f0}lKmSrzvIXBL3^b1Pe+lR$UFxx?z&C%`ipd!G z0{DBDfyxwrsD-7^Yh+PnzgP3WVWt=@tP8LcK=%4s)_wDM+}C773-{XK9v!;ZhVJ)~ zIOFkGvEMt4^e%Ppg=uem!P4zq%_sBw!hxhMT(ygbWs5nH7f;AT>-yz_Q8vv9PX+))iI?j(hS*!GT znXav|eZeN2Z4vv41mBp``olilR#UzX)GyrymxgbRws#L>{nF#TdlSkXrRc$*w?86f zd*G?pzr}30MR@}DThZ6#9UFwDzv$aWp7lD;gjgLs`HuTd)5x^`u)jEYSBIJ= z_5LSVShj^{zVI$9+SZ`o)uE=LdWCMp9Z5FaQIdYgN7Of|?a20Xi9dxH;%FR_>x!Jd zQ{_It8FwBuuoT!Z426Aiy8ovLHu>ClZAd@9zkI!)7j8ME#mR6ry$th(14-*nQ&?M% z@Ai8Yc_dv|nq0_AGAF|hBb6cVm2EsMS-dMr{mesosm#H+d?cpzd(m#A%1%ZbI>2ln z)w48w_knF&M)v1%cZawSgYKX>@c?#kF*g>nu0fyr7`BH$ILx9upXC|@TxAPpZ@5u^ z*CN0*r$#$WIO}H852rf>vKBRxjd%w8yxazxf^>rc; z;xx1+*r~@o253je5ehKQ&>aONQ`DYjW|<3H?YI+#^pkr1OU8Hf@hF?|Jv3Nd(fXqP zZjZa?dCK3hzK%O^=w1XH?5(G6z?cNv(GeK`V8@^I)yU>f^9Y^-gVF#RK60$)*sW+kB zc%JK|cdQ~GWj)g15@aO0dL6{~zY%TsfUwtZn+coiuzhcVUFJB{CEasHcMZm4jLL@X zcGz(DunTXr1+V^B{XXo$bE265+QMEoc*T)je(b3rd)>nRJMIv$O*+IA|8kc)-jM7+ z0y+ZP!`tUO4oVggHjuO7O(|mF)Q2=0c8HXwM&P zVbNVqceQuf?p=0aI=6>n6q;7}KL_aTC^R9Jr~UJF=;$yf{Rms%WLKW-tYa>agL}M_ zcRG30A$(twHt)&)KkA+AtHX9Wm7B+*>;P#`UBpouVV9kBOt#pe-z3;XANX7RLaqw-UJYr&o$DM&{b4*U!F5`5w#yK?CuLY z^pJfO>|tYGNj9KuC|3?_KBwdPo3s~e46xxJeb~vO8gQpQ#t<4`$xmSvm$VPx#L;(h zVEfsMJL!e3XR_xFns#aD9Qr}~;g(^`S#*yx&A!o(fsC{l^;kN3_Fo6s4{*0*jDxYK zUBq(U{hZlxmY>RCUj@MYOxVaKd)8mUp7l2XvUR;3fN|Y{`&`H#wgdf*Y-Ect+@(VH zvmIDFB74|&tkIKx?D+mHXcFzEjd&Mb$>RF`&FniO&Hd>6FuhYAFGut2sQ}rIT^Q>} z(cSv;^v8xX+oGRg+uqfF92;QsTjc6X8Ba2bHsnOyD2 zjrIBs%g$rbC->tCSKiE0AAE{uy!bB5dVd1X8abI|jhf7}KA6ZeUV4|MKKwLKy!uua zbLyEq%!2hLPkS0VJ&hOD%{72P*C>$mxH;bzjWBsfDRll(vZUv3^0Mv)l0KXg^+%KWv`)xa7Mk= zh)`E}t>!oCTn$(2NcF3As`}M7ptcRwPwj>rVUKoIL!nxGs}+7%J9II2wNDo_yU44y zVHZ*FHqVKW>!+sZctx3jR=M72E-|J{JA03=&`I$D2v7ohWpJr$n)r`uS! zcWZsv+=RU}*c_}}h&>j|uqKYP7WR!;o7~dOtlt4}|CMbk?w6!9!Z>F@X(|^vS&!*X zjUH@L8fsc|**2A`^2W`ox`i=E08Rte+nc%1AXa%4xT@MiZ0YJQXXk-kx-|!6YHMx%Wo(emP z8o>T4?>HadXXc{JFD~W@f4ZHA=M>PMB#}?%4+!I(KP=0RdlPTQ-9)$(9yF^!n|Mfm zgkj^7=il}U4~>phdC*$^$$++SL}w2`)O%!lE~|WQA?!B72B2a)lKh=u-!0{i_gQ2? z52V%hduZc>%x{8?^{2NlEv<-;w0B|2w+v%d_+B7+tNc5@yp%;{=c{>XUeyn9G_DIW z{{#?pV+%U5E+e)YY%-z_V2e>g((nGP%0T{r$|rf4U_F0Aw=-Z<)XmGq)6Ku@DD1T< z>#6c59h?L>5|@We+W~@qd|5BnZOl$aHWpQowiabr=l8$C`Qs#223>y8Qp2S`p!g6x zUpfx^(u23O_b7Q2?l%4>me9Gcq)m7yAlUg5y-F?8_b}KA6!rzlUZ5FBTYhG785iB5>fcyy`CrN>|9jxHbFV#O{v=cG zH3L-o^ginE9r6aP>^v&3n0KANpLd@J`-(>h)t~&#BV6auNrs>y9QXEip1AXf`IFqR zgUDkFJE^?yf-Gh(27%uK#Cu!Opb1R1tw(+{koNk_;wY@(@iFqds7JjDKCO%o_J`in z?GyT<-x`04FL{0zy+=y^^sYejc%%C}0z{hlPOu+|Z{98&fY9N5l-(z^7T?GdPxYD; zNLdK0?Nbkr?{y~YT0=JfTB9FWd}1#T`-68F3LlF9v=>V7FM4_kBRhD~7M}E*VQEXx zEKcUH97A&gk9Rh`oMz<@iH>CzAAZ?p{7H_ImtptJy{FuGj;Sl;Xrb~)=i^yFzaBQ> z$R3=u2`Bw#SlWU!i*x6<+&M%ov+DP%|LhwdX>?uteeXBRFqdbTDKB$mYW{; zu=&c?_!AH*Dwjbx6;NAaA03}*2soh{B= z6uve`;Z1x3r|&7Zl+m5PYSK12C!zAwcQNYsG|w0Fo#^~>R*n5dWQR?Hw6iAv8*#Al zl~cddX%j6qzcJ1jZ{!_xJn9v8zGNGq`A{+7&j9g!O#90Xyc&00v^T)E882DuY#U7;`Mg|?%=6|-eNh6eqHJ7g+IJ6&p+>JL0Vy3hHNuZrE}N4t!wKE2)e%W{Rf&We)^^sS24co^;F z5;n9HJ7YPs>sZ#TI-Xrq$Fdgzme#ZERe*JXO#qy6%h}$5Gx5MX0N*yS>~8=Y5w{kw zvL5>k8_3p~u;mq+l%bYe`aQ}|=Y?f@#|qF|UeB}FfYy4zX7Jbs_yMpB@I9cmfoE?< z+?RmWfMtNikQKIcvmigpp!1h>6?+D>2Z_F^vCtf>Yktw}(gDUH(nWN~lW;E*-H#N9 zXR`*-9i6oo5DQHAC&d91xcoq%Fur<)-6j^2!dz3$_w2Ll7^5u6CUvaiy z;pgJx=7)QmGF9$!_|Xf8`AxDbiLTPgD=F58EB@l3C^5D*u?y zeYh+S;d0n23bp7qQD~ifl_(?5Y8S4r7k078Mi)WKUvDJdM+dM|nKx-8?2Eyk6l|Vm z{p%UtAtKV7CeD>--1dk_L%gliYtimJ*7Uve1Rz`DIhT5rsd$reLPU@Dl}!VP zddXW<3mac#=gS4z54_TqPy}V@|u26)JQK$E{|mSN?;=_WlEl?e%+}a@lRH z;NxXF-$K}~iaYlPNrU8+elzShKJzZvE>n2h*8Hr_ffs`ItCD`&n7ObMh3{_~6pY2Q z(!KZ6j5me(-7ET$MOCG*rIat z%b0?7Nq73;@ZT!`$2{>It0X&Sut7yofpIrH$9`1&Mfr&z)?X6-a=);FEa|&&GnfC# zPG{mJkD@K=&*#AO>n@L4HWrqe$;wwA)ag^%;$DDm-RbXxzqkA!a?#&d@#bdOUm_b* zE=alJA8k{9@Jxs8I!RaJO5M(si(lryJ-!_rRr!-Hyq2l-OYx04^y+KX^3(S*`Yy0X z=pZwTWq(@_J6n)NgZxQruut8iKGggH%NJQ#!OCFUS<-c5*w<3{m9K+6_)3p;f+N&_ z2(!ZmYQ+XOeam*7pS3%r{D)EI6acwN01+NLa}jI=!3Gj+IBCG+{M#RDT|VsXu??Rq z>3Lvjr%B-lyS$&NXC_*w?{3esY%HeRDX^0TJ7$_as&ec(h+niuk4JguQNcBLHL!>a zyY)_H{}$zk?I#yBb34iN|IK{|cvQvuKBU*(O;0x2&8CMInuu^kP!Sa?>b)Q$^0$F{ z6-C5`5W(InP0@>20Ywo71St}f3knJdh+u($S5Xu}X$k0jzxSQpIXT(vLg1qQ=Xu_p zIa9tVr|da1-}g@4+?ibl!-s93oi(PQQ@cOZDn>{&Y|xi&`34HRww&V0UwIfbnUn;@@1M@}Zkj4t^rd z-vqySc~~wt%CwJby>RxUFM$h+a>9XJQK8e^W8a{xL&^_Mk4Vi>MN78W>Vr)VuIGgL z>v0WR&oTb*2RrM3F!}FysYKZOg2&3@?javg-lVyje*^{XeGJ>agcDCwWw0G%*>EtN zLm|^KE{Ug|A69;#9d+sWu62)_9#q$Fk_5ZzWZ3Q6+I?$q=W*--I47o}vdfeUx;L5R zsoDfiBpXLh#)!x5a>AY;&U5+}u5VD@F3TUTFF!cFaLFd&w<+5d23G&mhThYF%P4z0 zZ24d-N!}z|`7(qz*nb z_V=;-loa9qA?J~W&Di&6NTvCfYta9g@>Z&3!|p(S^xs~#LHO|LC137Sv8}CnTYKO6 zza*|}hN17Zb?rkP#b|TfKBcmtAC=Itx4jJ4c*8la4RcOJ|KDYgSgKN&9gqab0pE`* z0Z)=0Sx-*V-~T$lxjr$EmiyX!R=!ejec8(dhZ~#jnThxID9!g&*B5ZLq$H#<2`G#*NR2t*zrx#W43#!AP z&NjuPZ3*8(w{{xr_@4!zVjUL``_i{D9S`K;^Kml3auQqG2^>7XfIkKME`l>O3LHFc z@C%T4rx^OXhvMJ)GtzVMKSlnkWc)X2KABhcsJND=n0tlSF~4uZJ@b(i(xoDHGr;mH zvD;3Mc0Df8W;m#N7(zmA8kM7XgY2y!}~_R7s6ML^KJsS$$sUXg|U9O zR%wnL@JoO{L1p4Svv51~*ufcKVEAmzaj<_x>5$DjVsP#8`b*h}b3PAzCgh?4CylfB zaP-~MJElIzq5kV_T|8`%|A|^Z1U~MCif2f7t5ymLfg93sK1;RJVy z8|Q}{HRNn51V2D{96B8`Bo{m;PW=CZL(YHS;W?ZK-V*Nu)IS&ffAbfWbb7sc9bN;W z-tiCH(L-e57-&5K_$sFKIOTqRt?oa$Q#3~i_8LpWw@&Qt-&7Nf1KSIp8%f^{PDYGJ z{toiC)aPy~ByWPnz@>IqoDud`w#d*@V=P8;(+9S2L7o39+dcBf5Y?X zclJTZ`-AI)d?Vy$5pt9f3^NYnrSmW^%f$csyQF@5P;%Fka|E)%YohCTAG~1;_mdk& z$PvS~1i<@!0PsgT>Pm6lz>K%VK-V|x$@zXR9de?8>nNYxI-i0g1l)M}cz?{rH$&Do zTpu{UE^w=lcH%?WqR%y#6yBZERiuc&+*CCvV7cr(hgrtNdkqgZhvDfG5R=G4O2#@UG;; ze+79}$Qz1~D z+K``dbNhnR;|Y~LWxmQ=`XzXCz>^Yu{x|PYo)5oP*{?2Csdqo65_?^W zJ&}qi!(88X*?gBLf6k$FnUVabI*vmhpbD`5ClIdRe(K@kJC=L;M5Lw>(iHoj=x^IP z9bJ20P5Fb6MVpNN!2eJEMspfC>Xi)xssQW#5n+43OxX0#9NT@aQE;yEcAy#XS6=6+ z{-~T2rMduof8bi{JHSd{6F}XQ{{ou-m_-1^JZ^n-|1Kdb`I(R}V zd5H0@qL1;frjPTX1>yW?0r`GP6`nV99kTnh9CG$tQ3<#bG@c&M?JHb~WzRMq$b`v&&PoNfj0ptv@gZu*aV}H2Qj04i{ z`LC4k%10%!sI3_T`nNErPL&q-Euj56VC>lG!)9$R^lD+- z(h~aZ&6h*p0D8tP5M~_H{Q2vbY5CA%akW34_C)Lh&&v*g_tXFCq9EW=fY+*ua~G@f zyJxBsX2GUC0N7otmQ|SNTC`VXz5J1KjvRwEwVPDpxqVc8kFzuq&+U!4!AN@+d$2B3 zg^RGiCCad@kwd@PJ#$oiUOC%Ou+C?IXy9lZ--V_F`ut{|afNi4zEc?+@ec1|FMtKL zlK${KNj&9J72!;`Uk4`4c9^i`^V>3^TVIv_AodiPUn?Ev)!CkRz??(Y+1FTkQJ&8% z>XICZi$!L>4+wb_3I>m*Ep@=2ns&{wy_<7D;#-0%(ciw1?L=C*c$U*?ab+h;dvH2a zrXSjlT8eIYk^C!0{zByE{C{H{pUJ$3gnQDI-aTDt3vKM7O_+Yc(1}KVxORq%x7we7 z!!wrr;5y3gn=KJ_x`MBvO_7c0z!2o&8lDsnpCZT4haIy8*wtEL+>h_pNK)IAt+uew zK{#al6I*n~J-y#1pLNx*qh!={``$Wt9;W?#{_?pF`_56cKL*fF3$Tl|!v6S{FRtZz z3fInX@z^ILS~Z{WiA}btC%BFS;u-Xi86$rG93Q3+JU1V)?T+KRtK%?-70PxtR9w!0 zdULyM^I?(ISKIJ5u8xJ6$LwV7eX$zy`CJTk{Sl$S_adz(Z&aaeV__>C!e+MJyxl6+ zTNZrnm@#V*9|K*SwsUrcly%&q&~;S2hIOArhmkcfsPXL2MnJMJy)9tZN&CrQ(B3mR zj>iX7$rJO<|BtC7Z2OBInt4=pxUU>#WN$`W`CVjyFRm9)XM<52NP zlhmI5jeO%bxc*(I{)6(5s*W~ucSvM%ijmDZQ{&!5K+<~+ly*yu-6Z{B7`w^P@vUZk zCy^-`Mn3&|?FWafw0vvJ|5Qh2pBs(*cLR-2hR<(#DINd57`sCH!JsW-a9nVH?{NQr z0{fBJ=5H#o&5073=I7SV8}^JPvoW&lb(#F-lRh@>=W~*CgJ%LNDlJ>JS+XB?ceK4b zdeBa=Xv_lD`h&feoYqVBDcUc#`Oh(sk9pph9G`i<@xAhHKwPI>C~aUrr-AhbD{SKE zA3=QS8vH+FuC)MqTC~Y)Anyod1-B`sXFqce9zxsSVEc2fy+>#>r|sroS7yR?pLSgK zV-vQ=w}xF;?pt3<;+g%x6O@a6R^5_tdLMDWxj`zB7OISiqi>fLF5W%lQPY0DqkY2m z=ifg?ShpXr6|}-8j{f1}3*M^6J)C3YTla5-BSU;|d~s~*czlMDzaDMh%JvscSSS^r z&}IwY9niHegY9JqgpF^p+Fv%M_f1ANeXISf!*%{ZEuVQIJFKh__3Ad6_7%Uh)YQRm zDng20Unv!<&;}r9^bFvj43XJ%;~Ey@gr=h108kLz;1 zr%r?P;QaPu*!)=SE10>~l%<{220+~Zo*&p79(x1artQg1AMHNN*^f;a`)&E8|>#cv9{D-a+^9RX&M@l*F zeZMT)y98vycU*R#owM!GvTWxW`^`zS6}v21@k8!3?RgPxzntxF+VKQ|jS2P?Ck`rS zuK^~H-9K!dX;<75kl~kO_C%+je(i`OlEror$!Gq<+Up$qYD?2@`kRkw)Qv6#p#K~# zS)ctN#;(Bk+A@1xCVa^DM|%pTY~?O3!^oj;P`-M%#1xh{N*3E~;C*SKnEkJ_H|~@s zaeA*n|_n{7pS|Z)4zZp0niNxR8+UKR4(>^)B7u9pW}je*1)bhmh~JK z$vyvJl{4kT`Hl-NJFGliC%%z=Ggeq~^U$`aGyiVN-itiOaZVO(O%TVrT~bQ@dhXc_ zqz|*67h%Ug!r@XyOSk&>mJXCN_6bIg-7j9gO(Ig#*$y+7cHfFmyJ3VSlRE#7FZRIZ zR)0e>Pe;>u_&g6^0^+#!-;!?W$3utx%UVh5d6AKC$!1=I%+b#V^x>)VZU^2G>K)gm zWj!=8q%6qP@rkFNEu~-7Sn@J|#6CWiZp5cDrR#|Ac#;%igm1DHD1q@2!I^uJtU@aud%uUlnio)vC7;ddLaT)yleeIqesjhx7MkKq&VTA|mpz7mU4uxYsD* zeg89+eDUR~=*wTMIFojye$m%^pj&1Sy~q6_-X8zg65E%wp+UGi`a>+e6xV*{g)Y>tf|E}rS((xAhK{eoC$Hui_heda6Z za_PBww%`8D3^cca$9bWpfJFORi)Yey$%QT;?LAVUI|toZ=;a23db+`JMn5-HeE2l( zK^nUg*9^wZ^Y0xJQ+&L>R?!}QCpK0;!-u^5E|9oZCyQtD4)M;a6(@A}W1trY9arqF zh&He<0X4*@xH` zT_kVvHtf$>qufht_45F_s*;X-3wt7pe?LU}!GL~fgE*51dSNJwy$*%4;-N2=^C5IT zvCpCB)$J13rn_nTUbLYLa5Szf3he}7b66}n&tQ)*toK02Qrs&KNHWGg(yyao!ro>M=$~@0JL-&6S2r4dYyb>1E&_V1 zvC!dV-b`L6tDwIY&^`3d->qC%-v@4u1oN!<26gfpI2JAwLS_P#jlIQ-B>k=zC4b3Y z@j?I7=u`Tz2Wb8#=zv1MH1~%C;)dQN$2)gB;-D{@zZrU>$m3g&F!bVmpP=kg?B6$X zl0?_dzq1a`ZRP;S+Fb^L-vRpkMuG#=dDWfb2Jb`uI_Sx=ZJRLfhJDKMpMiVBuLsGn z-dAli(%DDo(B{6iR=Ea_0FQP(TUgG8Tm|r*{*Q7F22b;dweR~`2@eFhRcmeSLfF$6rbWT*>6Q~5H0V{xNfY$@D1^5_v9k?4f8#pFo zO~oVX5>X$lEB#$mBZ6N=EhPAr)OhfpY;K~2Y+8ejgV!WKuwN2dk76ho*c&O#y9;lzUjXi4_;^-9}JcLG2~m*kDFQt8-3(sjoJ%5~=h!f@XBMM&GpJi@#kXY5r4*F2@7lJvUb z50KZrkqzjBd^O3n@ifm}6ApRo zJpRl;S%3Ksv-hgBllw65L7*29$`vDWmlONac9^pl`W)1^Fgh1lpP9S~>&VF=>q9xK zJzVFn`1cnL%6FK%Pq|Jwi~0EO#@o~G@Z@N+I3~-h+P<|th(8_UAK+2Ya0xvyS7y zo81n!J>kkTzT}a2OnyE~j9ZaZaiVJfKJ*Cm+B|&&uGO0`ING24FqmJ*-+$PVmyP@2 zu;n33lG|%r&()}$RewpI4BvtEv^;odPu)uP@~HiJ}}*!zvEE< z9oUORwO;f~U|ksev-Q@Q8y;6I+@aiqA6BK)J}qA=wPyEJgpRk)q`_st9{M z7p<#R#T#n{(BUF{6E(-TLC)=C%=xpn!#jD=YWOQ4b7_r2 z9a!r;pt5hck7fBCyenhKeR>To_ioHxMn-ELD(X>T?Le;|1boeLlzacn;u}A&LH%6c z%X?%R^Z3jA%lgYx77-b(+{4Fde!r~SH806N)W5|w=vKY{<(s(B+?!$j_><1%nyciD z7%Q39cc)=`=Hmrjn>>7B#DHFat#-M!ZkDA{tuGhuP&*$JHP29OSSAIUREo5pO5uF1@M1aWz1cn`Iqu1FAiIt`M|{~ zr7M04a5b5A6wD`o@-uj7Jd_!>Jl0tBx=ZFli`VKbrWp=ncvyoqmDlSYjQqH&-(KXCM}!`&U$MGnEOOV5}!d@yZ`nbU{gj z^O@M~Omg)E@dIHl-o_V{c-ncCZOZELi1HMu;*Y=AJU>~O&yLEkU_9T;jO&4ba$?_* zJbY7=f2H7qFBQunUdtnADC0`2{pocaE%lEJmu?2XseVt;ZHRJvrJ!nq=34Q9bHO!c ziD@6-b&TVG@!B}dZ>MtZ0r@x&UAXdF72iec@~Skv>zTP}zt4GUGmmY;{^RtKkLkMO zJ9SkBE4J!6ZOTkp&9wr(cDDib;j5&cV|!HEwf_>=hJ(Vn)?&eXC#@Cw(FavocyQgBbFgHuY+zrxnD zjxz#tn~gn2pCLnBxIf)buEl?zi{tWoU3CpYoWocXneI{UvFlY9{)dw=XNx&d*yj^y z2iH#yVXtq}StbeX&w>qdF6cNWX#j zT)GX|6Oo*v9Q}tX_ZyfGLmPaUm-K-n$G08#Ddu{8SUd4;!ki=c``k0uh;zU&72!x_ zpZRS%9H6YDbvz%B0eoI5>@P0~XI`kB*WRL1?z)c<=XJwWLeGmZ*QL)fuW`-|KM8n% zW98x@=p5j2pbDr4@b#~;1^!}yb)E-s4y#d4s$dg_XB?*wYB2KxfzE0?m#gr6sKonm z08Ng>*~&Gof}Co|BPg47urAigy7?i*3!@ES<|ziSr$^>Wk^K%}F2J$ic_+34e8;>K zC?6dzpwheb#eRZGza#H#prR3# zG)10Uu`gn6-o?XJhp9iR4&3wd?H$TDW|7K$aI%JP4ES~N&BnA2ul}U+E*YUt(?<3y-kY=92^m%`(*mm8ejauNv&%<-O@y<_`()^-na&-+JmM73E0dIXN{Toa6FI{>@|b9!dUh zROrM9zIWSW?Iy8hC(~}@OG2{_sy+6S49NiyUdzRpv(Aww3gy|np z)P>Hy`3aSG^OKS{^r=JS=YA*P*B)>?<&Onc6h1K%`oYu@4v*#^>{c10p93bS<{$ie z$h?$O^zsGo}qOdS*O*`KvyvOH-l+W^>3G)N|%y_SwxG1;{mi)-{Y}I^i ztz?bU@8s{J?C`jLeqPy(8%Hr;1H@HyP|eoY*75Cr4qcSC`krWzH~pU@biTL&gP3+V z(7b6%hVnvxrF6|N5}jXEzir@a_r3iwbe{O#fO*Wo_d~(#Rpy?s@<)LKqV&_9*z@;* zG)>Q;{MG>7=Z>*+R0-a}^XIIR2xkh@^jM`_IV8ZliSGfdLDuO99aO1Yx@#nkr`*x{*=Z5|Zd=oC- z_$#<43RJYO2y3XH=(6cplaFh48ryfXmhAtDgZEYH;D1Rf^ic|-i$PvGZ`Im>&VqMt^3>8 z|LelYt5WcNmG#&%=+Y$ff9510ldds1T@Up=005*=Hc(ES2QyZ1Tep7oJX;j^%i~0OT}Aa8MpMjt2v8178E2111=r3ETwmJu|FRSOluU!dNvv znXB;WMpRmtZP;Q~LM1}XPp~ZI?83qtWl}cZ!(4z5Fz;dAqHu6{cRaF;i%Iut?^cC2wB;+U|5=pOx{I`j-iF;K zE@yzA?>YBOTTyd*!6FZ)~uYBG&D)s7-l6u`pl{(n(`^H26*8iU% zzH#$Z>a~a;jP&c^Up-Ql&D|=AoliRu-KyQT@(+HfKi=rK>(ZOW^YnD_JoSd8TxLCQ z{bK^%!}7)7Nlfbw+ndD1%q&{HQzdrpZq>(n9p_#GeP+zTL9f}_tG{&~IHuh9q8R@v z&`*8`$5*C4Iaz$OSHTv*zZMnYN|oZ}-&s1T#Vfvt9&4Jen|g@8nIB8)Gq3V^AdnhU z(QS_hIup4s&w)O?OR^rC5YTfpdW{G1-8@kuz_XM4(riIq71Q=qeov$UbijgtuG=TE?vc8r|0fd9oVU_OOjQ|p-e%(&nQzl~LRcYA zGVni^Ryhs!)^W2?EckAWM%-hGJ^KEZGi{}0LpLN7Wis(h%>D-Rv#+m`#MArXQ>!Vz z31j@#hWu@g*e4@%^47+6>bg6wbJyLGIUe3GPXR50OYCyuEIY literal 56390 zcmeFa2bfjWx&J@LL`98ViXy%DHZ#mHFoiP1%rL$8-g|EhQ(zc+@4Z7rKmoge#uj@^ zVv8aE;!SR1G({7yntcDCcf$~CVxq~t|L4hmSe!HG?6db;Yp?RIx2%tg%SA4ix%l|F z@Y>I1n4gPFhl`8LxN+zHJ~-ILv#U|Yg}An@?2c5;nmL1`?ibAU+P@W|GuZo zun8_MIdi*y-_zw_Zx@&4N4tK{-&eZ0xINYN`<^a&7rVH;@v@7{Fz!hfTv|wWUFYDw z|2h6s1OMh47|8u1NKK^Oq=!halinqLbUxX8`^>(xbL?FEjs5ojkB2Lnt|6Tuy+hJJ zne4ZA4ZD_I^Z)X3DVd8U?Iqds{9KtYzx;Cb>eWkQ$Bxz1sZ*UaVZsCrA3j`z1`W~; zH{9^K-+baac1^ps-NWwnf9Z%LGsj4u%Dy+Eh>D#xjQ$JQW?(XgyHf)$Ky6B=$UGw}s>|S=y|Lwz*3~VKROmgzs zty?#zOjlohwe0=3zV$7Qn(8Z`*er!twkmzWT5WpySE}4~LYeb7XzsyNDqOi;IqME+ z;qixc`1ENl+`L&)nVFh6aiT_#9<2cb1~~QCb&vC}c2B#v<>B9bT*M6vNiUI{a$9-( z_3L-xS-Z~;R_3ye>NxeR4*c?cZF=|xwI8@kxvlH8;?_I0V&`FnFcA3U`&s6TpEowV>LLEoXC~NK#)ve#FHAn8&()~x(w0ei?7H?7! zpJ&z1S9(dS;PnNfTFdRpoZOdt9jc|E!lTmt?TxwdHFU~&tI?7`bEkuZBuRAYPBrg zqNQ8Dr;fFIRNuBrg*8i+UEZnWoMz=!EKqWGgGw8gs(SGbC6z2x{l>#O{(&_A-siRb zr8hNf_y~oDh0Dups*?w6gO;!J$?|A<{U#5qQ>W~9FMIAohYn-B?x&tTdnuuDzM2l5 zQTDPu%I(~%(3CRGNiI`nS%;!iN)<)hF0SrWTK-&Rm&{jb?Gj}awkezMt6J78J-11* zoS&Z8s?eAM#io|2qItDK6U#L_zEqnYd|tJC?o!9;=QS-XO#S)~P(os|rc9a2xGr+mfzvPlj=zljc&h=M+@?iab;J`u5aXr-Wz>8|W^98l+y-z8n z&9vVNWtA^hXncvn72^Ns%l=VjG~1~&u>><`$nbawkjoeo{H<&DkXca zGK&`|E^V&jvg?&u*{SUhKBwG8yOq6sr!!{`8#Y2yr+I7KIFlVlXynLIa&>i+jlrL& z1IzQ*9S>|wb;dfItF6sjc?S&|>?EsuyT3h;@#Nl~y{cO_)7Llgegn^cvvSK<^4&(YuG~-G*r}!4Z`azrcc^B`0X40; zO?#euON+n%E4lmls26z{O}`sCa`gE$iaBzOQwP=`zx&;*K3NBr_kVg`VD2uw_~MJX z=65OgKuwr1QGNRKb?!BG>^S7O@lHQ*bN8T6j?~PoavlDqlskXBlFF8PWozv-|xpE#o(CmvLG^#-L> zuGhX-{;1;Z_v^B5S7`8%VH&~n9!lL09cpQqMvWTn)Pd!1;>1a^cKV5SU~}U?d{A~z z`uaT9}2WtM6CSy8BeS zCMSO7gR;jl zmVA8Ob=NtvXV*A4c<_)5{oeZE#7S=Q@buE`z!2Kw2;D;8xc1r`mE1(%-te|6x13c% z`E80V*iAh=sN9x=%9(da`HissdsgKzo8m1aHvM}>_?B8znClsutg?^oHY#FFc}>_Ivp5gd#HzsABmK zl(Xhw-f4Np4OZSRSk`*z>n}Vfu`j zPCu~nTU$L}etSJe`n&5!WY}1%x8A*bQ;)8WylvOAGF!5H3>-LE!$*wdo~}+Fe5d;Suzti%Eq{{WLs(8^eDqQq}@>(BM31zHU`lw15krqCr z>ebJyeCZD~ch?)5xASFn9RIE69{yNGTi;c;t8P%AeuFh+*eJ^HtFhx%>X! zP8+axXnC=AFa?>&=7X+&YU|2R)Pb#?|K`E@du=T~efo5HdwcWDCpp*an)|Gs*|Q%% zVG{T9rp?=XHwA}AYs%E=a&@1oN$y^{xzAwDNy*mY$EEC5QrVXG6kYn1;;LR!33ZX& z@S@@?A5rDHvx+TyLWwm`scPL%l)dy9N^1YT=AV%~Q`%WWUamnynB&IM_D0kG$4=BZ z?q_4|6xNk)$ikL9Jf~{1#}wXAcKU&h1vW2O8>YZr$@B+bdN9YkGSr1`PVr)G>*w!0`)R)ZO+1!obpdX7P9i6o2SM)^B0A- zI(V1#rFtav6E#+L(?3j`HjS}lvhzBgXKr)K;K4(k`DXN(an7?JF>;JE7Ww!EQ2s#j zG=ui(&U2cm39eH$WW+?>aMM6N_U>=Bm-Wkh7PVQ+7|$0=<$I+1BU0^ctZQ~iRh-az zN@{;pTJ)AQC8I*U`;E}(ag#N23~hc0{ms=&lia4#5B!|I;5BW!(*|rTIM)t5s0VLN z^Y(S-LmLZi{2DT3NZ0eXSJS0^;X$82VP%hsic%PIc1TEw(+^C}v3_qdhqZx`qsBP> z-rd8C=P^+;141;_XO@$%N)M54bxF%u|#2{ba8I(kxAM^VYBt{Dp_UK+v}ZS&Fe8Jy2pZEe8U*B6;(s3SL1Xe+<1V?K8Oa(7 zNAEf9tYNDjk+%H;{m=0Sl)rA5iq>pb#cg+L{agR7d#R(M)6#I?Obr@NKc3_xFW(T# z@2@G|v*j^$mb`odG-1*dXFMD`-c93~3rr@keqiI#G;crW`P(>X<+o>P?bviP6xx#M zR6nOzX55Rg^8y0{RZ>#ojC-R-jdJS3WE_(-to*}AjB@IF5Pe~in8m4A!BE% z_n;}Pg;r|eJ!g3D%I_i+6p^KAGa@MWY)zX^TMUTQtU$)uX|t#UPYoP2OcPx_oaZpj zX9ne-E?>Wy^6{Nc`(zBD4VeDS<}oYF`SRPV>DE7WFitjE+b=IKS6yA5^Ez|pOs5Z6 z*)5r@JCL={@Da$I)cFYJWFJ4;2ko&hbJWb)kvyxJ=qG$AJAHH-W0R||ruc@--8)h} z`%cn$&rrEe4biAc{u(iHwl2ToDtSzgm)o>Zjdl&vhzUWO>=UIKL8+QGCslp{aT+th zOQF%(@(+&J>^bqYvpJf~7+`av&4&|ci#7-O_|g_>1JN-F@(&2)InjrhziciuT_OeU zN==_CJb!q3dF{^0$x&=hwtY_{V9IXMm>oMagq|f_y{DfX3j~Mhj$3qm?L+_fY9h1%??RYT28G(B2%2c=HcacVJ`5U z9w2}8V_^|7O3TPmcto_^nYRK00-W+snKDJDk3L@qW@Gu(5gi@jGYn4;j|U}sLTwr{$Q{sUP5()O(mtl!&wG}Xsn9$wbh{b>KlC=W0rkIk0Pj1c+GpsZ0Tnl(F2(`N=z_7Keq2xjbKE}{?E9AIOil_4l7 z$e9Oh9Y>)pnVsoV$DBEHUbkm%<6d!bu~P?TkMQ&JbINaH{{ZB_-naB2_2vB#r|q4a zi)S(}%_arWR;M`Scbnob@0ro^o)x3O$UKE7R%(=cxN0AJMjdZU8I1i=%mw);q&f4Y zh&9ZMhhCMNUz!5K^I0n|pbeyHdSIfaG6s10&XJ!#*P9W__~J!<&s1n+vP|ai;yKI; zn1k%)NuPIf)}pS+#kNi!IdY^khg<)@`R1Fu%K!SO3eO+(`**GU_U!ZX^JTJ+t$oe@ zFobpXWyoRQz3N(h=R23sXRqY_)#`!H^NK5xmHQ6S)z{ppYi_uSbhC3__nU|4roJQ9 zZ^%U2{%j2$eY9gdh{Ma8m5usyw&5TLHh1BJ#^D8gVeoeANA_pPuJhj(@Cg3y2|R< zRcsD4nVzCrGCAl|M^#nTM~#h*PM=RpOOuC(2eSB1wV(XHYHvNI#MW)9+;#Yvn!U!BVnmrqZc5%b}DlL`aM#1`w~TD7OBsm3A%+bJ+E`MD7HeH zDf8XZrvH%+^7jr>`^!@2FQtS{2Q`XuaL8DHWgL1*RnH+GAtO{UZ`M#>l_w>{Ch=B$ zrH@H={EGAp>1U*$kWQ1dBWSI4SbL2qobtK)9B9Llakk-*7T4f z`OYa;&f!;-!by3^hEa1VKXulAAN{4^NzKW+U8#)^D!KN1ns?+mtv~f+RjxY1TIyD9 zeDbWCjy$BcyPwd~2cCDzY|r1;H5A&?=gOa+p8l?ty}23PWpuPWJw4TV@4c*Bjwud( z?ab&xHLgFb%9YqXOxhsCDwnP6{2~C?y3bl zRN1jlb*oOQxa~F-ww+K~-93sbeuOsuvPw7qNyS@P^C8nVKP_E$RSyjrHCZb{wLQ;Rz#LG?S`Tqp4UfI8;Dk2jzzn(0%Fu#mr5vu4yPmq*`8zf2`lXt; zKBeYO536F)UFejshio~imQ~+Va7>djm`6+IuF<>=hqUt8X*HlT-}|eNowc0ltv~Vn zKR5m%>px`UUukKnGv^@>D5tYiCChg!CZ|$K1@$UvTFIPLqOjOP1i2N%yqwwtG znh|qM{z=%tmi-Q!*q@cK==bO^y)@nRQv2#X zYFWOSwz*byi#95&rcE{Lcc}HYd!2HJhK9<@biVz6PX1whXtK6%7Y+=Dc7ysvr>oTys{dpc>#%rphZmMS5aXW4L2sSFCKowS{n z_vlkEDtq2j%4z<-3Yw0gFT6wbiw~=)VTVc^H>+;`R_qDu)w~Fs>$1&iU4agL-EMX4 zKB}tChn0@)(PSXx8)qIoU;fX@zx0g=8~5YmK4150Oi*dgE zpIiUnlQ9t4?;VqYO%AZN&@lW|n3hz$aHX;;npE1fL`hsfHl+w#=6vVAacQ)L^3{sV zScna`O(F4XH%yw>*>l>U81(2la}jw>W-6Lqj$p$V(x&3NKByOgqba*Z-aMlQmh zoX!|k*sxf23)iY*)n+Zb=W&h1Mq%==t!vNA|6jQNrCwa{EjV%P*fFhKxl*?FGvAcs zKm94=$kS?ExlJYY3zbzoS2=}Es%~1Urj8A&Yulj38xE?z16ytGD*1;kQb6QN^w|3p zm30`s-gAnndQ};VKM<;LC9c1V^>By+S=$Cj;5wSHt zWh{LhUw}K6-EW->!n%ZS=SGN-J1O`R9|`v9B$}zKSiiagi2n`<@nT-mkUj z7k2;TO-JT6S!VqB@m;<&U#S1E@-yev96WeXJCXaW{5^a2WIkJ=d3%p3v9Jmo^*qI< z6)^^uV8>pi+_E-hl`K$2(;CI4&*S;m$tR#$W8LyJd3qau8?5c3_A4m+2_+!oC-M9T zjt|h_VH2IT;S`?`)(DY|rP#)@8x;^ysFugyQ9%Bmlu$?8k3Xcy>_f_^I;61VW!TI* zu^F#ZXl%VgqAMALIvM|p6&aVOa-L0gIrj6)W-Z!rNb~j_R!nu1BlFsN_7gg=FV%nH zXXA?Q=Utm8Z5%Lpu?KpS?JxcmAC)E8s+KCfv`*Q@jcVy&{$nnP!)~2j+@YC4Ikd$( zdHU9B!sKj?oLH!7LF?t|ze2N8?o!Hv_Y^wsN%ihO#?cGS3}P)Gn&PZ$145FOn$tkJ zij}?Ms4`YaDf54+faKdK|1RuPMa1SQGO<8eMNP^g zZ+SKI)Vk?_<{dn$39SFjHg2-~dEc_XssFS#z*xC=#*7)x7-+vS*?9#r|A8N#)!Y@E zREs}O6}~97t;WJo6@n$7GQ266&E7+kUkY zvYS=Yz71KSO|fRrZ9S~W!o8Z2cu-mEe$KNWC3o~AezU?Ue}uxKGZmefue{P0HMVb1 zB6X0O+lbuygqm3&2c|Hm7VS`a*(TP+<(d=CT$4xL#vy~n4mHT$zxW<8ZFp$Mge)B%fiK|2( zn2&GFJb9x-n(7zBm{X%U5vhvg8cj<#;VZCBD^B7+ck-0u9}yN7;XFgLV`9(#O7<^n z1N8qmA0MBOZ45Ad*bO(_s9x0Jf!BVmd7Jjp#x^p?tfBqk&q6!M#%C$Ja4vEY>u3CU zTJU3N-*{B5Tkq5I`_Ag{pQNGa@my4^`PlNYz#1)V0>kjmYsS`1ucv4%~(%6 z$YJcsQCcoCb7(ScGDrE2{}SU+-5M?2dAI6zAis1TboAn8C-9p|+2=%Sc5oDSgD?eA z4|BreRny4Wo?oTNm{dofHZvw!m_xCXZpTJ=fcum&R?@!m8t|vd#ZM^P>GO%`7cz=# z)V}*RRc+s|xZ(=Uq}?VZB|ADV>%ZN)b=&F`>L2)zxzLmHzhq;lt%dvcHQ&^mRK0bN z7TkJ5RUK>aRjWew$l@6^lecvGKo;XL&mz~#zf`O7*J?QUta=R|kMF`jd15P@6%dN8 zFh*gKiHe9$R&-pN5~#<5k~*bj6=6p%bZiQvM!TwH^?j<`aJR}jcH%ctrHJ@Eo_#%a zkxxHKS5Zx?l8{SN${V#{-|fooSjt%E&6pQ~-aeMO?-uj7eF;B~f7t)QstSEsp{*H` zk{C-EM@)Zs75=-ozxblIoPJ8x^n=pYWh$s!KwjFFRalP?%QDu+o7A}Wkd~czPK}2j z)s^497CrrB%I|}nEP!$+s(@z}mzd$CgybyBU7(owRE37eDriomyr#{-E?Tc`Pri>% z;|P8sYmoVuGWOdX->QO|`KrKPP&R)h{&t7da`-L{89o|0XM$2vQknBS9iI)_?my-K za=xit#2m1~%5OTs(9m#42W&FIgTMW)7T$KZ(yN=9pPN}16w(&*ltq6`W?V?CU!r*j z9?~TLDEy-aqL=r@>z5($lK{9Dn!Oh$SP4nUb)Jciwl>oWu3MenJmZgeXu_7?adk!8~C-?UbljB z{L}tVRtLz;eXyS#L_g%%1m?^Mb$qye(5vr$;U{X}bE_KG?@~em>*CyUW!7{kwYp9D z?W?u$%*(pw+8Z4I1YgSTkA6BhBtp@#iAqRHS7LI8^BNKsrS!}^M|U3@9_^gx9}vX4 z)mQPQa~XF(P#VuWA-@{E#|Cr`jJb0cYW|+1YDCV9r|g+o*^cfmDk|FXiA2|VkU8(` z`oB5NfOWt)WQY@8x}m_pAbf%b>K6O}kN@z8y7!M#3o>T~>+kvvdsMq|pVmI{6NQyF zsV8HG`RSNlE-)yBaXAq`krc|E=Dgbb80P9w>L4mQ9=}HV0Pknaq@P5_VEgdZ@!$Vm z>wfUM<{i3QjXRI1Vat9kx#P4}Kl;3);uDpcmX5rdNc#+9%yazaPvE=sP5D1Mb-*0z zhEM*9P>pa5(F#IqHv3&;iy=+n)F#{z}``cHj=>GB?(d*Y93;19p;;*kL>! zyL2GuCnToutn$cnmJ+E0dyS5X$6n{|*em>|&%}QzjJk;9`&9fp+*P|_tJXd96BR65 z$K3vXHQshoB`en>_a`{dy{#SjgE4Q)6fe{DoS@Bq)Bdj)+5zL>!9|Of>e#X4TEBiH zx{^6gJV#)1if;YoZ*}Cie^LI*&5A6macqU=m*e3%#j#08$HZZmic;JBg{rJ#j>t#f zn4aZ4XR8~t+070NMsA&rEzi%9Va(6dWBLs3f9sEw{Q>R!#qSiHlIh6wHpi8gmZ`9? zs7q&ckg|WH&)q5bC;nqD?Sn35#UqbAqUWA_PR~4puTp)zV`CnU&ZutDBJKY1kMaMR z?5rUzzQyd1CP$fV$!x2pXUxsbb>`bPkGu@Nv>1^KVvR#=jYQgsHDra3j zhU?iiZ9R{SMw<_HxL4?p}+wr)1R z0n4k|S!~^9<*;P=v@%**&8}#5VRDtN%Pm=%ZGJVM3oDPUSM418+Z$c9#lo2FYVhE} zjxEc|Zoffi&0LrA66@A~XZ*v3I>EN?SzTSd_0?Bj{rE*>f*&##cA_)3XKCd!*~#j` zd}%DtR(_jHtq$zHmCwpy`WZ|18~fbs4^|Imd$wzsF2dGgro*%PwDv@OeoP$IR@SKh zlx%aM5Z}NXo_id6(_^Pjozkth-s!7E0;ZYn@g>H_MLrZulBvo zFV=?ayRLR&{u{O)wR*9&tkol9+%e?Se@LGH28#JNFTwiyQrdYeeRwbW!*{VKs->kx z*wvi+ScNXx>ZGZuiSeq?+O1PYYu{F08yjrR-GT0qx(vpSfeb^O@P(mMmE! ztDi%M4r%Y+y=rZ3b$oEJ$-IN?b%K6hgFot*`mOzoi}STEPre7Ddy8NV)x>zUoBDW& z=lMEq;9c7DN3`vau)DlVdY$(V(bsq5htz~0VgxeG=lqnuR%ZV5|Bs~cP`lXug|6HIbC>eoWR!{=bx+d{=$F5xY{^U z8mViah!*y!_|NgBHEiF4N`Rx^E$Y+jB&nM^332zo-?5@6_tUC-EQJsB zW^}vTl-aZlUB*rwe)~6?nUIcOvzHTFgbtwVdHjg`**(ARaWNN2A-!d7-0ZIwTRg_w zU!_}*XzNSAQtPfGYFoQY4NLL&K<`eQVd{8?Ln_B$;)@u()^$8GDaYp%Jrs|;_QzqjS#pFJ$^zcCw|#fc6e9=3P? ze)#1*sQQBsE46-&qOsTH)-Fa@S)~l@lv&tt3M)FWTdz?0+*SC#uf>*Ej~%hW@vq7) zYsaS3qPU_qEx+qAEqVMW@_)vKHzp!*961<>8+>X7Qu9Yz#CTM^~)h zjp+IPV$-z!jX$b!>+Qs+)?n|jSk^LZQ1gk|U8thkWhx=YH;WkciY8*0b6ZqCZykO? z3$SS}#U9$keg}KB>YnG7)UsNaTzrwEpESRGi>EPN6LUIj$WZiCBc1pvE5l7UUGOV@h0G86 ziUqiWIzMFb^u2rE?C9&y#nzsSH87p=RARbD67P8Mjo+wb#oa1s-l@1;{Aw$=;4jst zgdAdtn|3HZ7dyzjy~Gf%RLz3@s$8^}{Uc6cH#)59&CjZ6!wFq>$)((5oD(-|e$kdj z5zAun!e%SEk~$>cmJX4w_tb?8Z-Hl3RJ#n>Je z7UO7basdAQV~J_7I$zp5H#qwh#{HuTR)8zlU zFDnD{dOqvwkIk>q;`=P$UCCnc$B}=FhngJ}K|E?KI^}SUB4%mVYd_b*yFSLB@CV9h zd>Fr?2N>rcR?+;^*jT@hU+=@J-~5tV_P?(AcYLVw1JdPJvEKo3&*;UqJ3g{DsS2S5obZ%3tuJVk(~|R{X4@N}f^CvY#rx z?rk+v_tOhH#h|X?qsGhK!^er$u$U!_9kh5!_sLTnn}dx<){e&UJZ$_X-~X#Di*M2G9}xGj z4gZGv-{T|tfeJSK4||*ZSy@XzQsthHRdWm<@iXt}hCbMsdh~H(i+u1IaCM)C4b@NH zzQkN%N3^zN&)E~ZhuKdo-ph337Pn5mP3AMX^}@ke>4HyJhw0o*&uF^WY1kJ=4j<#h z&fSc?*sgi5jZVf_fjA>iUnkzoV){mp!;h$Yf8G7c3y$A<(gu9e?~vx+jW6>l-s5cB zgfH`4`mA5UVhtc}+sh{qxxpKsuQ6Q5!-5KnEfD(B+WCONv}^S(+} zhK>uF=MCe0H|qW|(-)eq)O5kN56l?GNE>&?&`)h_FkACf?-|t9bo_06op?Np8L^n8 z!6Q5r5*(`+Spl{_`<{yS;iuWSP?;U;mAm_}?)bxdDm?y{y7$6Qix{q{eqr*QHrt86 zo8}v+QN-Sl9BpGX<0kFYVr{$`dz}2!j!Zv0dh{q{UT061$H?}DHpKiof_SXA%$97v z#-`UdTcV8%HXd7So$YHdj6UW|yRn$xiLO(LE%b9@s$4y1%F`!UeefSmOD~guWSTC! z=xW_~HTy1IM_aj>SjzzHfY^sekDrb|SrNVzA;iuE5Zjr#3>CJG@RI-NjztZ z7xkr`nr$`^TN`nX^h?v%o9s*8ZB8CRat`!z0qF1Fx4O3&LDS<-_nXexGlKp)#Ob?( zk?pPRPoEV`%sS7*iG%cWV&W!GB}SH5IPaM;8aUKbZ4pr|6K=OqXmv&X&yPVtRKQ$IO;HaL^D9CI2=)SZtT?Eb5N9CW~WrCkE4e z75!!>XbyYSc=;u0I{UX&yg+OUF}r2>uy;KBX9eXg=KKi7BFDwC-%C_tspdpwDmXk9 z|By`Ll>!wNm*Mz;1cyZ8>ky8=N+2n~c^1>Le_9!AUM26A(n!uhpRF+4iNz_H9qk&% zS|&2x%o_0WOTXi+t-gCjH}&e#UANGe2N9>=zyDx$CoZW+4`jQ+#E!eobmFS|kDIQ= zfB8@~1kJ>4rr#2aFlzz6_)ke*!9~QYl@VhY!kFl%F{3>+pzl!i>VAuQ-q?@#BXq@8 zH{us{v#z`523>yH707ny_8_|I@=KgC{S*6inNGkt@GYKex_xUqL9+uCUtFjHe6^z+ zmJ#2vMj7+xYouSI+@lKQi9f}p$Vv_IDO6xyp+bvF6pKy3CpbdaUNb-uB^6qaUsVi# z(yQN*81A+7zloiGm)II)=|1#@fX400JNYwZ?IYHF$BW9^`Mh@g=*Qas^s{>Q+2`~$ z_NrT-e_nT!4nF&g=HB~+0`O(J`ijdOTN|0S`ZwK%bI@kynmxnpml451YCd#8YoC8p zvFzWpG4?LvX$l`v(c)*=7v%_Y z^{eVQ_@EZ!=Ywime@Z#kn>8o4g*{*v ztE6>}TJWK6Irg` zDQ)`k%bGNLgfq6B&wm=P&Vel_fck&GhQ2#?zsA?oVTiB@m4L~yhn}1O_bx$TZeCB$%>7d zfqY>529W7bji1=xMqrzM%i549-^b#6u=cJeRXi7;`}wQ!L8`((uZb9hd0c-1>#8-1 zOj}D#$TrQ6Ay%jKX{EQnqZ-<=chNTX25`eSYOMPA8Hdaif)AaIJNUS^zb3*76;u1R zBJ-bd_D)G=ub7JVqdaH!k!xX(pxTwBB`T_DQx!2Di*_7V<96C|euV;N_&G8E0-Y)2ZtdvU4wrm_E4deI7e^jkGMdX=X5 zFDDk^Zq0~&R7q_gs0bNtX5F30WZp6#Ty(*`iZ9qN z|EOgONmwc0zzX677AhpBOljy`%!fQ5Kk6D{13Pa&P2A^nMPTP8uU7w`k{?Wd!w0Y9 z!3Q5y9rKsT+J}GgQ?>87P5Jo5C1()_Qqii$1?x4pbF11{>?MwN1@RT_3W#3A9y{Mt zbn)YgK|U^LTnVgOFE`g&njMyoAAN~Zh$YD*&S%Mgk@wPf@TGhZ|2FoithrUG1sho_ zZ&6atBJ>pPtnKGH{@PVd#2yiEvTXnDTJz)!8b+L9Xh=wx{PQXK%{l>VE`R)oJ~DfD zpI*H*r>H{BJi8QpyJCnfs6YXxlb$CkkR;s2CkN8;3h>>zNLf} ze^!s1hqA6h9wt86KO_Y|)F%9aGgY|v=ZdcTANeOAVGqGw#4c=LtYKfp{H4TD=hDX( zC>UK=Vn#W>n@!aJJT1BHF8s99G-CKL$M1x!eolV2{Bv}pA3tPr!+^eh)uVqO-SP9c z*|%#qd-ipzp$(k~{?MuH;a5_-6o1eTVgiU0!YAHq_Hy~hY@vPsj=s7PnRtX|%t8i0 zHi(QbP#m#!X|xC5gep}YBqloVe)fahqx`xZ%E9+N16@{jX(zg_h4{U zK!?+cuX_zT!PUfXH>-U9_Y{`BTk&l#X@m#y*6e>V!=E)~R621G#7?8f%EqTTmc2_l z9{3~iPj@M%V6&nb3;aV1@bhmbP9hCCt`qi%KgxBF8^R)R+jKWXox*omoIeJTF3y8&Q>>x&DjK z@+z(SKJl~d%eXEvLHK&cQl}Q*kHSG`2@Hy+pGQ*SDS@yeZj2WGLp4+x6HpE}0z zD^E@@R7GvOf`Zxmz{g9AANrk2h?mQ(VC;%3U~F!5e2BA)7epmj=$uGm7H&+o+ ziL~oH$A{V0=Yc_Cni(FY&CmW(rAv0R&ucR}Q}SIBU20=M2!D{KKNq3s3qw4Gpgqimx`}(8T(6Cx2XNZ z)6QN>9_S2av0se&;>Mr%!;OkbP(0&bY|YcR zq|me!-SOUE)QDVMPi$Q0@l#rO;z8P2in22K4Sm+#ee!RJjr?cz=T_Q_nb%VC^77wW zxpK9Ni%QiW-D1hy7VZ4;S*?5e73D79s=nyyMzTlI6t8LIKS;?b>8h!1R91GO((wnk zGMTTe?O!w}B%C#32= z8^#*#z(*f_^x>OtzNxCRG7ZB%+MDO$PTp;gBl9OT`NMor?bX_y>6E&B49(}xKDW;- zc5KMtff_uZpHm-JHopH5-Q@xFu*1G)cE9ZBSE2(*I(hQs6ED2*g0^niqUO1C9luc1 z&vg04nlGXG(V5Q4@@jem^Bc7CSU&Ai{QVsNz4!N_JKVHsle1@r>0``~Z`ZC}+OT26`>a!c zPW?ZI@7qG=RMW#=_SuX6yZ>fhxB22Sbi^Z>yKOC+R#sM4L3^G{JSnAZ|48!OGc zzrLDa>*DR=a?WkZ#pRqE(_dfD+V_{bxOBaqvA-GFKl|EZpA*^huX;UW*Z+e1p0&?E zk-yL8zpGqb<@{{DubuzQzO!@e+;8gW&4t=Yuajt@_&kxi zW5c$1!JBTmg?05!y6&oO;xRklpFh`rW54}6M;bqVgJ$LUFAZaVwzSTb?9*{j^KQLQ z%kF(r^;^+NuGpuOubkBy{OP@B&enJSnvXa5yUmz`oM(y}PvL zzQ?tgIHlFZ4z{w6D{EZB{sxt-zlh^)z^81nY&sZQoiKwy(ssa=0`Mm@DL40*JAz-LBy8X?_!8!x4nro ztM=hz1s_JIQjIQvcx8#aBXL~dzvgVpNYN9&se_1tKf2HWc6Uv=SYQ9r> z^X?+v{gmpqysEbQr0?F)A05XqY=O4#^*NjSIBeCPo>QpTF*8ReH;RDQn)()WBXPp-sD; zx-y&LL|3z$+n$1Edz*sokUeMJ*wgBqo$4$%zrHI2*l8ooh8P^o-lg>M{{08Ccjicb z<8Q5(QK&P*OHBs&OtoXI+Gh`vCc3?hV5Nwc2(OW)7#Gn z+wt4tzGv*-q;A+pUb7g@S=d1b<6CsiRafGJa*2iw>aU6PU5lygk8OU`aC}69)3DV< zDEE#>RD&I-{0a2#OMZY(HG#O)68U)r$P>T6arjV-8#@{OD9i)up+9>(--Hj{6nq;k z#*6#foaM}+wT+E$7w6@&7tAcpAg8v-KJ0qjBut+Rrso6X-uPQ{pw8Yq}EG zwdi-)xbUyp`Dbh~zm|OBi#2gZisF`?kWblmh0I;2+Lar$cI|q#t>466B+HfDzDNTY zkNPlQac`S9o%tKx=G(EXhbmUARL6t#v27=b)qYBOOYn2q^m8RH_`Og|vKN~)idg({ zQ>LpP8*V*&wQa-(w3z$P$!%2xcBHEB^Et-FR(u<(R{dBF8y?cqTOZekyPwjn*ct=T z6J7Bw+TX<&ciq1m>y_66XU<^HvOMCHZJ&U-=;&@`!iZ+U^=M|m(Bc)W_!Q6BRJ=iAp-&vvsYj$8`ScSdiR%O-A zrF~4W`aeT*WG3SO*5#p7^PLlFg3hYG7*t2OfHjGaCUY%w}U|UOnM1|CW zTNL}fvd3~1d#~nqEKxP%P+-zyN?{Yf#JmmUdolYi*xn0e?03SxaO-!g<;Y1*cAMnH zW>WSG;}7qz4-E@D+Z*58+1Yv8!1$6=RLedwZR}ryPLa0dJ{9}6SEHuK;y2dxiU#z# zSu=x)eM~M@bYwhr{{!~!!fsu-kv)f2^Sd_o{=v7kpaI=;iQ0Ez^J{98>$tIIYdLH8 zBwaYrTePRArs}fGFVoiNe@5M*vrf*3wNsIHGzHQ!`N3M zEvHJwe4oNzB=rY=qsScgv}5nqC{jp70eg^?tGszJeq@gle;vn|;Pm~^&OerqUaaNc z?0N0g@`{YprpI1jUkr4+sip8Ta-DsHI*~zEJoO9a0%C+`&QUn~z|0DaM2F4(kF=@A z+n#|7a5uiZW!U7(mB9WuiD|`}xBrAH7B5#g{TU@=j1H( z&!qabJC)M5MAIgtOJe+Ip8qoW!?NJQb68W5osECSMcC_4tK-mdbov=Qg9bGpdqjN( zj*yp!C;MK+um?guV{WpNi0}5tA7nD~{mKX5VE?m)>@&!|Z0r|axqiE1!ouZ;&(V!H zb~icn?;Tg*r?xi*UCIqtU89cu2ekPIFTy5!P*Kf`)cxu!u^j~BPlTSB6w4kQ=JOaD z6)Qh{_lHl3Lz)1#S<&yzfi7}j4N%yHq-5pSS_ zO1p5uf9_3h{9xMA6TNP8wE6Rxz6(8!6Ax{^OC~#Tj-wAVTYGFw%2>SYy~f_hZ)1~sd&PxpP$S_*Lz29;g7Gq z{?-S5Kc%8EwE{W{i>JH#EUJbxXf-UgFjsXYmoGWGzPHyi=YMyWYjj=DuKgFZJ4}A( z?#aDPPho0_exxovh0nM7ToJ3GhDwcprpE%}Dc(Ze6H@AGZ{rFHmEwXhfN?72s^`@M7d_lJ{Y zpV@bIj-6}2Isf|#U;IS&z3|^^Sae)P3x0%O%3l>NAS ze#7rA|HH2%wrR^_FRHR_H$F&vlv?|9r6CIq95qWqhZpU|aj-6}2aejI3zbkI;)${$9 zLnqW~K5Xn^?d=Z-fxXgt-qcT{CU|Jo{XcZRvvcfRe)h@sW4-``Bf~;}*Kx;5HSgS| zA$T`@FyXAL^|4{vA8jy1RuM~njv-q^??$HAhHXv*` z*kG`sU<1L1feiv10yY3__}AdCp|Tn4Z#|KHT-Ju)zGVfSHrFbT@AT9wQeEYYNCRm zRs*euSv_^C_rIZo(13>w8QQ&j4`|fDs9{lqqJ~5bh#C$x7-}fgK&W9*x3Am*ff@ic z{Auvh(5HbyG~8*h(>N*vorXCLa+*k^Nt0avMGpcs0ugW+R@h?{oHR6P zVA8OpK}kcB1|$tf8jLg)X&}-tq(MkSkOm+PKN@^A^l0GGu%kgoLyoRqyaR4D*y!UQ z7&IDYH25Zn(I~^Y1&{cfEd>{(=80a#*wV9SFL2P%pn*Zdf(8W*2^tVI9B44mP@sW8 z!+-_>4FMVeH2i1q&(NQNKf`_o{S5gT@H5`rG9+a{%5apyC__;Oq6|YBgfawW0Lt)_!6!pc2A&K%8FVt_ zWWdRAlffoKO$M4wOex`YSb+d0bNx}20F3MeW{F8W{eL3=Gi@cgFc3Q4EPxC zG1z0M$3Tx^9up3Z1&csI;v9JjqcI0M`RDHcX#UAL-G>fKi>KL>`EzY@`0$Yg!V-@R z&iLFlVHtxmhGY!L7>+R*V<^TzjA0mqFos|Zz!-ip_+seAz>8rQgD!?#47eC>G1y|L z#Vo{lwjhg%*rpW3$g(9S{|Hufb8`n(OdI&>MIiHZ92}GAtLJ(v#@%x*pC(EmAIvjw z#8B#h5yK)*ZrTKi7!WZWVlc#Ys~-eH41*X1F$7`&#PEl~4?`aYJ`8&p^f2UMz{7Bd z!45+mrlx5uggg@!ixHS2a3cyqU!FV}?VuY?mzMk$i-06X{^_Oov++YJpE-pGN*C_a zryqt*c*5X>*&P^|Ff3tE!W}1n3P>1^Fc@Jd!a#&!2!jxYAPhhlelYl8=)u5)VF!Z_ zh8zqy7;Z4wV5q?a+cGe)Bql1EB5(^H1m$5wf)&g=vOxp*D)~nwprp3DovSM{2|py; z{Nqv}ff?8^FmnssqM-o;1BL|*3K$YFAYg3mV1S_j0|ABs3<4MeFaTiqzugs`i2la_&LiL{b0eMt@t$<#bFCLa>+cqUa~LSuJ(7hv zeysfV+~CR6r1FW#pW@|xi@kA!=1Tx5PXm-MBws+jaD1~@8O0ZfFAQH0z7Tu?_`>f6 z-wVALcrWZ;(7p4|2ykz=ZkL1YC4v`dFU($$y$lE#(BZW5kLYupm|^wOis%T8NHmGR zn}0eiA^+4o3I-;@$&)?EKR{NVCY4XMaAkPB;CQKgz<98DLGkhk0P(`%T@HmAxOU^8 zVDN(Ag}@7d7yd5zUFf^OcVX{>-i5pico*(2*j=c*KzCsrg83sVmMg;<1%K)_)rV1< z{Nn~d{+-cpEaTzdC<5yaGSB(~&j6fo`5zZyhA$i=7}G%NQuzRN>1g0|@elx}3riQ2 zE+kz*x^Q&C==$7v>fG%N*B|D6s3p}^|QA6iK&IO!{4hd{7)Lfvs_zr-~ zr6B>#Tn*@~9W@W~@!KBVOX z#D#~;HuunQxhX7M!sa325x*5NA7pv@y7mKlT-^1zoBfj&$8CoZ;F z6j}i>56_mC@8;nR%odg{8GvL9$QF(*7~7-woJJ(Bdc+X6 z5NrY1!mkBi3%wQ_ZqaE&*FvrZTno1rY%La5ptUe->09(=fVJ>ynGR@0JZ|hv)IYtL z{8O>C3g*)<%s)MsZvz7Z2_2^A0&}Dw48!O0Pux5e0+o}^9pKSY`Os*A(N1#r21N^r zmcV~Fv|wnV&;p@_K?{Nw0xbYq__N?=q0a)Jg*^*;7V<3M*=aK(z|KOQ1v(3J7UV3u zP%zZNo28bZ%>tVx_MdG|tP4zXWlE-o$=Da>pWaR5!KWEFVgAPfohC%)`G>#&Q=(hah9(P47M3h1SxB-T(}Lj05;_k>7KkhiSrD=iWC6&+j|CqKJr;N@>{!sT zGlEh9$HI*T8w)iSXe`WFkg*VBok!qGy)eY#h{PiR6-(qlpjc{^CXGn+h52Wv1%hOV zxgz`%>lE*?Q!#Ckd7!Y&w&WioEI?Rzu-pY2EHGGDuoK+8seC}NaA3i}LV*PW3j-De zECg5pu<&2Oze0Zn{tEjQ^eg075AP7TuV7!Hz5;!P`3mxt1_|)>+&~0H0N5-0vw(Vq z^ok=8_C@lKXFN0P=Zk>%I|eQ6ZJ4;QxN#c(@eE%yeike+U1>ZNftJr$2hJ6mD==4B zuAp2YxdL*9;|j(ViYpLT7_J~(A-Do?h2ILk6?!Z1R@kkeTOqdsZiU+lwiRkC&{mkO zAX_1}0&IoX3a%AeE3j5rtu!IJ03DeuVQyp;`od8ZZ*8ibo=fOIMPMn7j|KT>@Bzx& z`<6bvZ|RGd5fi0TKQr0202nJQR`L&t6%Z>NRxqqs@`13zU&3NRI3D!5c= zslZZUrSi}8=gxtqg&~x2{`2`KVi+SS&7Q3u{{S^2q>{HOEkWT@hRy}9f z(+Zrj9yjLc5r=q+PaN9>aIi@LG3&Sr{lp=i0y>3rig<>;h+wME=bwlefIgX-nG^xb zHege@reIB>ngTV2X$sO5qA5UAc&6Y?p_wM&YqQc&riFJ3-#j>`U`(Ny0x@m-jUi0K z+YDfO$ibJEo;G+X>{8IBkV^rV!Yu_`8a3CTrS10_vJ_$|z*2an;7XyD0xN}83aS)R zDWFm~rDU7>M?(92{@FE{%(GWA9hoQ$z@%_V!IDBH1xgB&6eKA`Qh=oJNWqbEFJPpw zNI{W8B28aw98xf(P)LE0hAl7zDFjjgq@V`Dk3t{a%|of)1$q?nDBw}JqhLp&jshKp zISO(V;wZpTc%$G(p^X9?g*6Il6w)Z5Q8=Sy8xev>@cH}`kwed=@gR9JmjM=qD+*Q= zswhxVn4%y>A&LSNg(nJ56q+b7QCOm&L?Madg9Jwuj3^XQAfhltL5M;SZF}DMq2NPt zBm*7_I}~&%apgT&Epv<{2KtX^)04>GG_f5lpLjMH*3HuZDC*;rAHsgMR{S3`H1N0N-C&*8Tp8!AM zeS-Uh_6h70)+eY>NS}Z{anD1%WcP8h_xbwg!-9eW{E--A*~9>_CtOdko=`o3dcyPs z>51nvKu>s{;5?yu0`r9B3Ca_aCm>Hao?twocmnZ+;R(Vse)C=cp71-tcS7$3-U+)C zbSLCaz@2bA!FEFJ1lkF+6J#gEPJo^8I>B{9>jc&bs}ocwq)tGca5~8(QCwv2^ZBP= z(0Ir{_0LEPm=i81SWc*%KsjM@g5-qA36K*WCpb=MoWM9?af0H6#F^aqIvh?goKQG{ zaKhjO!3lvA04M*zZ$jS$z6pC1^d{s@z?*P4!EQp`1iA@x6XYhuO@N#5Ho`c&^kTU^i!p#Jm z2{jXFCd^EbnGiDpX2Qz^mkBKsSSGAYP??Z20cFC;L_(wfF_e5h|9ryaiwMCiz-g#^ zPCHmksF*-8VPb;Bgow$N;bDTqgoX(W6BZ^YOh}l3FyUZ=!GwYd1QP}(2uui=05IWS zg1>}*3H%cFCFo1Ymw+$fUV^=ZdI|Ir<|W8Wh?f8_;r=07K)VEX3F{KnC8SG0m#n>M z+epY?DF2XudN*uK(3S|FSXJO!g0+Nd3Dgp%B}hw%mH;i`S%R~KW(mv^mL(`lNS1&s z;aGyPgklNA5{4xRO9++#Ea6vzuY_I+yb^Y0>SA`o`6=K^xRqclp;iK|gjor)5@IF5 zN_dsvDxp;ZtAtevsuEHqpi0CBCMKfJzRd8%unA)WG$r|GbBw&s6<{f$QUaxfNePk? zA|*gdc$DBMp-}>(ghdI85)vgKN;s5YC==!zgc1fN2ug%f0F>Lk!fn3EtUAx;9Egf|Ip651rNNm!GhCLv7%nnY|sHvZd7NY*TL1bP8; zGz=-Ql29dqO2U)`DG5=M%|PHuf|G}sA_+tih9oO82$BFK zk&wYhLXQL<2|E&WB;-iIk#HlyMna7Q8VNHJWF##IU?lqqfQy6{2`my;B&bM8k$@u6 zCm`7TZ5s_8oG?wgFsC7GfQ5t#2^110BuGezkN_d!L4t#X1_=xj79=Q0NRWUa;Xs0c zgaQc!5(Xp)NC=PsAmKlPe}w)B{1Nse=tszpfFI#Lf_;Sg2=o!=BgjXHj{qOxJ%W3L z_6Y0|)+4A#NRNOXS=;`9?cGgm6lE9y;F7ro9j~MiWnj6Y=0l4{|awG4^0gJQ-tRJeaVaxR~gX14(_p`Iupx?#^yY z`8lv@ySuZ~-EU`RcjkM)cizVb(}88x4{w}k*R1g>PjbXZ5KBh-=Uh;$_R0Uddc zI7gZz%#r1YawIu|9662{M~WlFk>QANBsc;b`HlESdLz7%-H2{f&=TCpZNxTG8=;NN zMr0$g5!lFU#5K|yVU4UtR3oVo)TsZi^J^HWr2QW90e2uLLD80mWu!7f8JUboMj|7S zk;jN*q%p!6S&S$~662*WMmdZaMhYW@(UClYk-!LG5K41_9A+bya-<8E@Bs{ zi_pcxCx?-X#6{p@PyYaJk+uk1WG$i=jce@L({GWA$_nh4x8L?JL&iryU-BsdrnWYy z;_#I(k%~k`prW;aQ=}=v6j_QWMUo;&k)w!Fq$olZ8Hxx+f+9dsmjs_kPlPA36VZv} zL~tTE5t~R&geEc*k%`1aVB#BRhH;6sL|EeGU$3JQNs0aad+m0`HtV+EyK`o^V^O`B z7!HLZG7*u8L_{DW4-tn*Lxdr+5D%ZcKtco|au6|yA}XRo3`7JX0TF=6Kg1u>58;P< z_YLTKk`F)oIk<<|L)qrgL*^m!ka%db=N;k>X@{^w)*LJlE@P-RF6q38jEkU$6^^n)Ly55fo8 zgXlr>Ab5~Fh#jO3LI;_H$U)*DaF92M8>9`w1_dyW92u}64Wrl?>NYz+gU^fh>kdN& zg&^z>h=M>to*+(;CaBQKi8I3}L6RUykRyl@qzFO;8G;DGI7Yw^#0Sy?;epQ05?CV# zf&;mM*g$F^G>{pH3?v2u19^eCKw6-fr_CM}DE2yQ)|2_RHF#UROTSFNpr>cI)kg#b z0`dTHfHXiDAPW!$NCE@_asZ7xPyiu->W&})34j1VfAN3xKfxUKpGV1m;6Lsk_K*4p z{bT+i|A>FUKi(hiZ}7xP+c4{I)vDE1JM0a<1-p#cDN}~Cy?v1)kUT$}AI%Tu$MQq@ zk^De@96v)pB9;(8h99=?z@el5`cZ;}*az=BaB#p4av!*l+lTF=_CfoYeaJpyAFz+t zH*oaW{{07GeZtUHdy5S=KF;QFTAc);tv!4CfP6eY93PDj#>e7A@sapId^<}zdGFw%0q2Ne_o#c&J?0*AkGKciv*dAmKDMwu9j*yA zwbsl&#YjD(9#D^`C%1~G2h(Heq4Y?40;I+`FnYq>5Iu$-LXV&a(BtP>+TN5fCOZ$E zN6xcL@`KHz=0WqAdB{B9c)lumdCI25ZeXqUOk%o@4-pTD$HT+n30A}KSa>Kr<1`Lg z<%x+;+Uw~@2m<@ms6OHwz}`eCUNleFHFmCjv&CSbjvn<6dS|TK#jfA3QxC=7ziKCa z63x#4i=7D2?#7K9I6Ft$4pue5hs%+no~esh*HjG_LG?!L0UfcsXtp(ISVY?#1AEAA zfeu@yFKUIZ1O_$UY{DSwl^D3qzwXrD=7!0UQZt;$CA_Ep{ChQcy*1@PA#YdPfe7EqotU9jK}=caJ98T5Qt#%VMVhG!aPeMb#H? z$N4Tw2ip=f)pnxIJ`@hi)rRrc8uW$c5OHW|$inw=xX&#wED#??8;J$(U8r0Gabvh4 z+*E*ZS4>jb7w-$+#%^=!sUa%iGCN0Ge&MMe>|I?3hkQPR-iu{x71%axBqC!jZrI>` zaT#TPuQlG`lHr2?{~38KxqnL?nsB2M3b4407zhd1;l*8fIGN#QxL$C_+p2{7 z{$Vs+D}^%>uKi=U@{i7k3YX#ZI(ZsTlst_mO0S(m6)q30b5=>3*YtStx>mc>_my6! z?>k)%>2;iW2 zx^P{zE?5_<3)MyH0(Eh^FkO@`NEf3E(M9M2bn&_HT+;a(j{=o6*ruY3A)On+Mc@K( z@wf0>^ey-ndkeiq-U4rNx3F8(E$9|=3%Nzy0&elPa9gx3N2fDq&MJAWx(^A8$`OTX zF}09dL@l5ePYb6-(}HQSv`|_kEsz#R3!_ERG9t;)LTC}R09yPke3q0o#VZ93CVfch zBP?hZQ%@OLh%7=DAd8QM$D(7wvDjE>EHV}ti;IQDqGCa@m{>?GA{G#fhlRru0gyW+ z3(k#+#xZO#B9_ag4=w8OS2iZ|3VB7m0$%a1a96Y|*cIyvbw#=YU2(23SN=k-7*~iZ z!qr!Q2j2>BCBYbOwL(6}%4apHwe{(`YbVZNu}F#rS&1ek>ChpyNx%eQMX&-`@vHDv z^eT82y9!(-a+ewiDR(-AhdwPeXstI6u7OhKj?Q=(pCN-_!gQg|u4 z6kLieg_a^qfu*=oSShL$REjBulp;z2r6d7bSurPB=Bjrm9WFV=U`^EwkZhs(hHq(U z(I1qPrX}&mDFdCI&r701MiHZcQM@Qz6fFuC#fm~jk)l9RoG45bB?=P7h(bgWq5x5{ z6Y)@TsFF-+TlIR2Txy?%@8hPTch-Qy4Xa7FTKbmUGr8O{T4nZ1{DnYC%0fU9prqdM zmGDoW{~qus_7nPv`~-gDK4G8U{`5NZiTQ+la*{0YiT5OxOG2QuRoS+vAptI*HEXT2 zb4^LkxkNs354~3#o0a8tEnE4__39s;9IV=+r^huh#?Jym&zt?sl+8&qY}m>{?V3TOTQ)5 z5@`vv#96{DQI;S}j3vYpVF|D#QxuIuSAr|4QHEBM8V6Pi*`aIKb$53|m3*!X8;`6- zu@Svju_hs0ZShf;4r<$jC^3{IU=x%8N)i$AN%SOm5<3Z)WaD8X zA(4nk>o&Y1u@i?Rr4xq4LP8;tkU&TrBn%P-34+8xLLd>407(2J{1N>Ke#AbK#!Nl} zA90T?A|XLBE5rKv$Q#l%LEuG89fXf*Y}o z&_+X&8-EI}5!Q%m1T|tBA&rPeKqH(E20(2MPwDBibzGEB2H1)rJxi+iWo(R zB0>?Mh);wkq7%W1*hFX|G7*@FOQa1{B4003AoA^z&LP}nWwD4*L?j{*5r+svL?MC@ zF^CXE1R?+te+WNBAA%3DhtNahA@GpWVA!FL{|V?2a|k&^90CsUhHyi)A=nUW2sK0+ z0u6D7Fhi6f$WS3bWHpJBi43!a&_ZM(un<=WD?}AK_`!Efq1P{7Ckg?DctSWKnh;Eg zC3NwRAPIqlI6@b`4~h^(h#`a!dh_c52=RmPLG&Pa5IYDRL=FN6af7fy)F4Yn8h(EH zhz`Y!Q&tcvh!g}0;sjxWC_#`QMi3&15CjO4kdFtV1HpmVK*Sv~5EzIHgauNR0t&Lx59){X1N!0oV16h+kRQem;)n2a=>0$WK6bTqAGi zpnJ$Y;2v%dwujmS?P2yHdx$;29$pWwht>n@VfCPTNIjq)P7kJs(gW!cu`jeo_+68n z%z)-0^MHA{JXjto50r<=gXAId0C{*kI35}gjEBX8;vw;XcsM*59tsbHhrxs3A@Dfu zh`)p1q3^(V*gNPQ@(y^1yMx`K?m%~BsTJBI{w(~<+L0Vj+5zowcBFezb|5>>ltk*U~{NB&>UtCGKZK0%;DwWa%efQ999l0hm-@# z;pAX)C^?WEMh+r}kORo!ohkygX;osnI=r`~i_6_=md;`AW-e7O2H_#jA4f2L~1H9qg;BII) zup8D5>V|X!y5ZblZYVdx+J%J^?+RSoQ=o0gHeegB4c3Ng1GQn=AZ>^?KpUP7&W2_K zvtikwY)CdB8;%XehGGM;Vb~yS2sWoLT;12YKAl;UxhP+nW4-;W*9Sw8Nv);hA)Gcq07K!*fMAtvJ6;;D}$Ax%9NxA z*^eY+CA+ObjtoYIA_I|O$RK27d;w(mG58pI3_OM%gN`A`fMev+U}LB;&=_V6GKLrf zjN!%LVkB?CVpuV#7*Y% zwPC|1R*RGgQj2^EP79`m(qba(1kplh0krU0@GNu|I18Hv%|d1Yv*>b`G@$U1o}+O$ zBSaJy2n&M+!9rjGu<%##EA$oTEpkevI!Jo}uW(neD_R0wVXh!oh%3Mq-U@DowgOvW zt)NzVdv`0`Tr0h{(30$~j`OKgr>QDX6{ZSOg{T5l;i=$MXeuxjmdfEH$4Dw56^@GL zNp+Aaz)(S`5L5sv{1ki&J*Bs|hn*q^KzyU>xi;BLm)xMFKvEbfcoRYjAcc>DN6{a# zR*oMZJbU)s(9pYJ6wb-EZQCtXJviMY{S^NKMB$;}P-rMH6!Yj!l)PLc4>@#Xo*++% zC%_Zl3GT#jo+w94d1zr!*-23AD-3|$0Ev2_N=4fewFKyFx?nVqt~Nh z{wmLtPOpT=y>9V34ny8?N#by1gx!N*QhdMZa>$m8Crp-8y4=#`m<&@|WZ7~abBXor z+B9XW-)x++X3)?~55oo6agQ#Zn8@KsqILd!90!fVI=ah?t-zQYbc4Bp+#qfMH+UPk z4cZ25gSAl%ur>CQU=6MYR)eYm)nIBMHHaEO4W0&0gQfw~U}>N-ER%*SR1ILbzrCPm>0;4 z5FI#snRkJ^pk2T&SQn@Z(go;3=-JVd=y|P|&~oE*i$xYgG=* z?VC2ere@%1X6-10hHiL;3Q}gFbS3fN`fSzSc-xm7zv7mBH|1Q zLo(S**vAV3+RL&doYZaf>bdosxDnV0Y6LWb8G(!-MgSvt5x59i1T2CTfr=nSfFd{% zm~*0s(TQ=nilPwgcLM>;QJ)I$#~B4p0ZC1JZ%$0CeCv z;2dZUFb9?c%7Nqna^N^%94HPD2ZjT}f#48d!qFbR0p7rFKsS&Zzzy66Yy-6c+Q4k^ z{Y-2CHt-s74YUSW1FHemKxzOra2hZTlm6E{0k*(eKrN6KKnt7&%mQTrvcOnCEM(6w*PpHcS70lk z703!;1+D^CfvNyiU@9OLhzbUEcnUZLngUFLrGQc(DS#B5*@97^C_oe#3c7jO^SeP$ zfG4mM&d;b5bOi=0r>!Yz&*eoI6Dq{z&!AkK|BB+7{tLHSbeYq)&c5(bO1Ww9AFM82ap5C z!T9I*70NcSza|@i4Maw;22=y60n-3!Kr{dv@C11K&Tj zLQ9qsx`12&F5nhm3#bLq0%ifSfLH)5;1%EsXa%qWRspJjQ~)aA6krM{1+!;Y*}r6O z$2cpQ08GFoz!Fdipae_;Bmt2CNWdd7Ku#lo5wHkQ1SA3w0fzuX&`8xJy;<-8cK|y; z9e@rn2ap5j-@5=D;0^5Dxr;Uc8(Xy`4BRU|&jcGL$M4&4fUlcdIf#ld3u z9raxven)gA8u?A*q>B3r z@2kJB48Lmpit_t$!(9_SWQOcjl-5^aU!i@q_)S!OUlD#kZn$frhsyP4ti%%ogWYDqqEX zh4a@0}H(@O@9utHOe+-kVr;=4_&`Zs97CO-J(C#O%f`)Bbf#ThVVF XwZcanF@@jaC7mAT3G;^k3IF>a#UMf| diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index af239525d07..cfd296fa692 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -155,8 +155,12 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_pPhysicsShell = NULL; +//Alundaio +#ifdef ACTOR_FEEL_GRENADE m_fFeelGrenadeRadius = 10.0f; m_fFeelGrenadeTime = 1.0f; +#endif +//-Alundaio m_holder = NULL; m_holderID = u16(-1); @@ -191,7 +195,9 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) m_anims = xr_new(); //Alundaio: Needed for car +#ifdef ENABLE_CAR m_vehicle_anims = xr_new(); +#endif //-Alundaio m_entity_condition = NULL; m_iLastHitterID = u16(-1); @@ -237,7 +243,9 @@ CActor::~CActor() xr_delete(m_anims); //Alundaio: For car +#ifdef ENABLE_CAR xr_delete(m_vehicle_anims); +#endif //-Alundaio } @@ -376,9 +384,12 @@ void CActor::Load(LPCSTR section) m_fPickupInfoRadius = pSettings->r_float(section, "pickup_info_radius"); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE m_fFeelGrenadeRadius = pSettings->r_float(section, "feel_grenade_radius"); m_fFeelGrenadeTime = pSettings->r_float(section, "feel_grenade_time"); m_fFeelGrenadeTime *= 1000.0f; +#endif character_physics_support()->in_Load(section); @@ -1236,7 +1247,10 @@ void CActor::shedule_Update(u32 DT) Center(C); R = Radius(); feel_touch_update(C, R); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE Feel_Grenade_Update(m_fFeelGrenadeRadius); +#endif // Dropping if (b_DropActivated) diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index f072cc6f2d0..5b3c561bfc5 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -175,7 +175,11 @@ struct SDefNewsMsg{ void HitSector (CObject* who, CObject* weapon); void HitMark (float P, Fvector dir, CObject* who, s16 element, Fvector position_in_bone_space, float impulse, ALife::EHitType hit_type); +//Alundaio +#ifdef ACTOR_FEEL_GRENADE void Feel_Grenade_Update( float rad ); +#endif +//-Alundaio virtual float GetMass () ; virtual float Radius () const; @@ -275,7 +279,9 @@ struct SDefNewsMsg{ public: SActorMotions* m_anims; +#ifdef ENABLE_CAR SActorVehicleAnims* m_vehicle_anims; +#endif CBlend* m_current_legs_blend; CBlend* m_current_torso_blend; @@ -313,9 +319,10 @@ struct SDefNewsMsg{ IC CCameraBase* cam_FirstEye () {return cameras[eacFirstEye];} //Swartz: actor shadow IC EActorCameras active_cam() {return cam_active;} //KD: need to know which cam active outside actor methods + virtual void cam_Set(EActorCameras style); //Alundaio: made public //-Swartz protected: - virtual void cam_Set (EActorCameras style); + //virtual void cam_Set (EActorCameras style); void cam_Update (float dt, float fFOV); void cam_Lookout ( const Fmatrix &xform, float camera_height ); void camUpdateLadder (float dt); @@ -367,8 +374,12 @@ struct SDefNewsMsg{ //режим подбирания предметов bool m_bPickupMode; //расстояние (в метрах) на котором актер чувствует гранату (любую) +//Alundaio +#ifdef ACTOR_FEEL_GRENADE float m_fFeelGrenadeRadius; float m_fFeelGrenadeTime; //время гранаты (сек) после которого актер чувствует гранату +#endif +//-Alundaio //расстояние подсветки предметов float m_fPickupInfoRadius; diff --git a/src/xrGame/ActorAnimation.cpp b/src/xrGame/ActorAnimation.cpp index e96998311e7..7ffbde2989a 100644 --- a/src/xrGame/ActorAnimation.cpp +++ b/src/xrGame/ActorAnimation.cpp @@ -267,12 +267,14 @@ void CActor::steer_Vehicle(float angle) { if(!m_holder) return; //Alundaio: Re-enable Car +#ifdef ENABLE_CAR CCar* car = smart_cast(m_holder); u16 anim_type = car->DriverAnimationType(); SVehicleAnimCollection& anims=m_vehicle_anims->m_vehicles_type_collections[anim_type]; if(angle==0.f) smart_cast (Visual())->PlayCycle(anims.idles[0]); else if(angle>0.f) smart_cast (Visual())->PlayCycle(anims.steer_right); else smart_cast (Visual())->PlayCycle(anims.steer_left); +#endif //-Alundaio } @@ -342,6 +344,8 @@ void CActor::g_SetAnimation( u32 mstate_rl ) else ST = &m_anims->m_normal; + STorsoWpn* __TW = &ST->m_torso[4]; //Alundaio: Animation Set knife/grenade running animation without weapon by XEM #100 + bool bAccelerated = isActorAccelerated(mstate_rl, IsZoomAimingMode()); if ( bAccelerated ) { diff --git a/src/xrGame/ActorVehicle.cpp b/src/xrGame/ActorVehicle.cpp index 49852b04fe4..45c832b25ff 100644 --- a/src/xrGame/ActorVehicle.cpp +++ b/src/xrGame/ActorVehicle.cpp @@ -28,7 +28,7 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) { - +#ifdef ENABLE_CAR if(!vehicle) return; if(m_holder) return; @@ -64,6 +64,7 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) //Alundaio this->callback(GameObject::eAttachVehicle)(car->lua_game_object()); //-Alundaio +#endif } void CActor::detach_Vehicle() @@ -89,7 +90,9 @@ void CActor::detach_Vehicle() m_holder->detach_Actor();// //Alundaio +#ifdef ENABLE_CAR this->callback(GameObject::eDetachVehicle)(car->lua_game_object()); +#endif //-Alundaio character_physics_support()->movement()->SetPosition(m_holder->ExitPosition()); @@ -139,8 +142,10 @@ bool CActor::use_Vehicle(CHolderCustom* object) else { //Alundaio +#ifdef ENABLE_CAR CCar * car= smart_cast(vehicle); this->callback(GameObject::eUseVehicle)(car->lua_game_object() ); +#endif //-Alundaio } diff --git a/src/xrGame/Actor_Feel.cpp b/src/xrGame/Actor_Feel.cpp index 4f99f06cae4..ad8b29592dc 100644 --- a/src/xrGame/Actor_Feel.cpp +++ b/src/xrGame/Actor_Feel.cpp @@ -309,6 +309,8 @@ void CActor::feel_sound_new(CObject* who, int type, CSound_UserDataPtr user_data m_snd_noise = _max(m_snd_noise, power); } +//Alundaio: Put this behind define so that it can be disabled +#ifdef ACTOR_FEEL_GRENADE void CActor::Feel_Grenade_Update( float rad ) { if ( !IsGameTypeSingle() ) @@ -347,4 +349,5 @@ void CActor::Feel_Grenade_Update( float rad ) HUD().Update_GrenadeView( pos_actor ); } +#endif diff --git a/src/xrGame/Car.cpp b/src/xrGame/Car.cpp index 863634feb9b..6c33c3b5ca2 100644 --- a/src/xrGame/Car.cpp +++ b/src/xrGame/Car.cpp @@ -2045,6 +2045,7 @@ Fvector CCar:: ExitVelocity () } /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ +#ifdef ENABLE_CAR // получить и задать текущее количество топлива float CCar::GetfFuel() { @@ -2114,4 +2115,5 @@ bool CCar::isActiveEngine() { return b_engine_on; } +#endif /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ diff --git a/src/xrGame/Car.h b/src/xrGame/Car.h index fd559190656..ec941491c1e 100644 --- a/src/xrGame/Car.h +++ b/src/xrGame/Car.h @@ -504,6 +504,8 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} float AddFuel (float ammount); //ammount - fuel to load, ret - fuel loaded void CarExplode (); /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ + //Alundaio +#ifdef ENABLE_CAR float GetfFuel(); void SetfFuel(float fuel); float GetfFuelTank(); @@ -515,6 +517,8 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} void PlayDamageParticles(){ m_damage_particles.Play1(this); m_damage_particles.Play2(this); } void StopDamageParticles(){ m_damage_particles.Stop1(this); m_damage_particles.Stop2(this); } bool isActiveEngine(); +#endif + //-Alundaio /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ //////////////////////////////////////////// //////// diff --git a/src/xrGame/CharacterPhysicsSupport.cpp b/src/xrGame/CharacterPhysicsSupport.cpp index d63602f854f..ce337f15353 100644 --- a/src/xrGame/CharacterPhysicsSupport.cpp +++ b/src/xrGame/CharacterPhysicsSupport.cpp @@ -1171,7 +1171,7 @@ void CCharacterPhysicsSupport:: CreateShell ( CObject* who, Fvector& dp, Fv m_pPhysicsShell->SetPrefereExactIntegration ();//use exact integration for ragdolls in single //AVO: turn on collision with dead bodies (thanks malandrinus) #ifndef DEAD_BODY_COLLISION - m_pPhysicsShell->SetRemoveCharacterCollLADisable(); + m_pPhysicsShell->SetRemoveCharacterCollLADisable(); #endif //-AVO } diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 46e6170d9fa..25d69dcf773 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -308,7 +308,7 @@ BOOL CCustomZone::net_Spawn(CSE_Abstract* DC) m_zone_flags.set (eUseOnOffTime, (m_TimeToDisable!=0)&&(m_TimeToEnable!=0) ); //добавить источники света - bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: Renderer R4 to not use R1 lighting, too + bool br1 = (0==psDeviceFlags.test(rsR2|rsR3)); bool render_ver_allowed = !br1 || (br1&&m_zone_flags.test(eIdleLightR1)) ; diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index b1b23bb4e37..67065aa678d 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -251,11 +251,13 @@ void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for act //AVO: allow scripts to process actor condition and prevent actor's death or kill him if desired. //IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed // this will bypass below if block and go to normal KillEntity routine. +#ifdef ACTOR_BEFORE_DEATH_CALLBACK if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) { Actor()->callback(GameObject::eActorBeforeDeath)(whoID); return; } +#endif //-AVO if (whoID != ID()) { diff --git a/src/xrGame/GameObject.cpp b/src/xrGame/GameObject.cpp index 1b1c38270c0..c63a8eee169 100644 --- a/src/xrGame/GameObject.cpp +++ b/src/xrGame/GameObject.cpp @@ -274,15 +274,23 @@ BOOL CGameObject::net_Spawn (CSE_Abstract* DC) cNameSect_set (E->s_name); if (E->name_replace()[0]) cName_set (E->name_replace()); + bool demo_spectator = false; - + + //Alundaio: if (Level().IsDemoPlayStarted() && E->ID == u16(-1)) { Msg("* Spawning demo spectator ..."); demo_spectator = true; } else { - R_ASSERT(Level().Objects.net_Find(E->ID) == NULL); + //R_ASSERT(Level().Objects.net_Find(E->ID) == NULL); + if (Level().Objects.net_Find(E->ID) != NULL) + { + ai().script_engine().script_log(eLuaMessageTypeError, "CGameObject:net_Spawn() | Level().Objects.net_Find(E->ID) != NULL (This mean object already exist on level by this ID) ID=%s s_name=%s", E->ID, E->s_name); + return false; + } } + //-Alundaio setID (E->ID); @@ -503,57 +511,62 @@ void CGameObject::spawn_supplies() if (!spawn_ini()->section_exist("spawn")) return; - LPCSTR N,V; - float p; - bool bScope = false; - bool bSilencer = false; - bool bLauncher = false; - - for (u32 k = 0, j; spawn_ini()->r_line("spawn",k,&N,&V); k++) { - VERIFY (xr_strlen(N)); - j = 1; - p = 1.f; - - float f_cond = 1.0f; - if (V && xr_strlen(V)) { - int n = _GetItemCount(V); - string16 temp; - if (n > 0) - j = atoi(_GetItem(V,0,temp)); //count - - if(NULL!=strstr(V,"prob=")) - p =(float)atof(strstr(V,"prob=")+5); - if (fis_zero(p))p = 1.f; - if (!j) j = 1; - if(NULL!=strstr(V,"cond=")) - f_cond = (float)atof(strstr(V,"cond=")+5); - bScope = (NULL!=strstr(V,"scope")); - bSilencer = (NULL!=strstr(V,"silencer")); - bLauncher = (NULL!=strstr(V,"launcher")); + LPCSTR N, V; + float p; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; - } - for (u32 i=0; ir_line("spawn", k, &N, &V); k++) { + VERIFY(xr_strlen(N)); + if (pSettings->section_exist(N)) //Alundaio: Validate section exists + { + j = 1; + p = 1.f; + + float f_cond = 1.0f; + if (V && xr_strlen(V)) { + int n = _GetItemCount(V); + string16 temp; + if (n > 0) + j = atoi(_GetItem(V, 0, temp)); //count + + if (NULL != strstr(V, "prob=")) + p = (float)atof(strstr(V, "prob=") + 5); + if (fis_zero(p))p = 1.f; + if (!j) j = 1; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + } + for (u32 i = 0; i < j; ++i) + { + if (::Random.randF(1.f) < p) + { + CSE_Abstract* A = Level().spawn_item(N, Position(), ai_location().level_vertex_id(), ID(), true); - CSE_ALifeInventoryItem* pSE_InventoryItem = smart_cast(A); - if(pSE_InventoryItem) + CSE_ALifeInventoryItem* pSE_InventoryItem = smart_cast(A); + if (pSE_InventoryItem) pSE_InventoryItem->m_fCondition = f_cond; - CSE_ALifeItemWeapon* W = smart_cast(A); - if (W) { - if (W->m_scope_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); - if (W->m_silencer_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); - if (W->m_grenade_launcher_status == ALife::eAddonAttachable) - W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + CSE_ALifeItemWeapon* W = smart_cast(A); + if (W) { + if (W->m_scope_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); + if (W->m_silencer_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); + if (W->m_grenade_launcher_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + } + + NET_Packet P; + A->Spawn_Write(P, TRUE); + Level().Send(P, net_flags(TRUE)); + F_entity_Destroy(A); } - - NET_Packet P; - A->Spawn_Write (P,TRUE); - Level().Send (P,net_flags(TRUE)); - F_entity_Destroy (A); + } } } } diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index 7202f2df404..422585a6b53 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -51,6 +51,13 @@ void CHudItem::PlaySound(LPCSTR alias, const Fvector& position) m_sounds.PlaySound(alias, position, object().H_Root(), !!GetHUDmode()); } +//Alundaio: Play at index +void CHudItem::PlaySound(LPCSTR alias, const Fvector& position, u8 index) +{ + m_sounds.PlaySound(alias, position, object().H_Root(), !!GetHUDmode(), false, index); +} +//-Alundaio + void CHudItem::renderable_Render() { UpdateXForm(); diff --git a/src/xrGame/HudItem.h b/src/xrGame/HudItem.h index 6360d94bad1..c1ae5d468b8 100644 --- a/src/xrGame/HudItem.h +++ b/src/xrGame/HudItem.h @@ -81,6 +81,7 @@ class CHudItem :public CHUDState virtual void OnH_A_Independent (); virtual void PlaySound (LPCSTR alias, const Fvector& position); + virtual void PlaySound (LPCSTR alias, const Fvector& position, u8 index); //Alundaio: Play at index virtual bool Action (u16 cmd, u32 flags) {return false;} void OnMovementChanged (ACTOR_DEFS::EMoveCommand cmd) ; diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index 3a96acf7635..71e81aaf276 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -94,8 +94,17 @@ void HUD_SOUND_ITEM::PlaySound( HUD_SOUND_ITEM& hud_snd, if(looped) flags |= sm_Looped; - if(index==u8(-1)) + //Alundaio: Sanity, don't allow PlaySound of index greater then the size, just play last index + if (index == u8(-1)) + { index = (u8)Random.randI(hud_snd.sounds.size()); + } + else + { + if (index >= (u8)hud_snd.sounds.size()) + index = (u8)hud_snd.sounds.size()-1; + } + //-Alundaio hud_snd.m_activeSnd = &hud_snd.sounds[ index ]; @@ -187,11 +196,7 @@ void HUD_SOUND_COLLECTION::StopAllSounds() } } -void HUD_SOUND_COLLECTION::LoadSound( LPCSTR section, - LPCSTR line, - LPCSTR alias, - bool exclusive, - int type) +void HUD_SOUND_COLLECTION::LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive, int type) { R_ASSERT (NULL==FindSoundItem(alias, false)); m_sound_items.resize (m_sound_items.size()+1); @@ -200,3 +205,120 @@ void HUD_SOUND_COLLECTION::LoadSound( LPCSTR section, snd_item.m_alias = alias; snd_item.m_b_exclusive = exclusive; } + +//Alundaio: +/* +It's usage is to play a group of sounds HUD_SOUND_ITEMs as if they were a single layered entity. This is a achieved by +wrapping the class around HUD_SOUND_COLLECTION and tagging them with the same alias. This way, when one for example +sndShot is played, it will play all the sound items with the same alias. +*/ +//---------------------------------------------------------- +#ifdef LAYERED_SND_SHOOT +HUD_SOUND_COLLECTION_LAYERED::~HUD_SOUND_COLLECTION_LAYERED() +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + it->~HUD_SOUND_COLLECTION(); + } + + m_sound_items.clear(); +} + +void HUD_SOUND_COLLECTION_LAYERED::StopAllSounds() +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + it->StopAllSounds(); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::StopSound(LPCSTR alias) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->StopSound(alias); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::SetPosition(LPCSTR alias, const Fvector& pos) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->SetPosition(alias, pos); + } +} + +void HUD_SOUND_COLLECTION_LAYERED::PlaySound(LPCSTR alias,const Fvector& position,const CObject* parent,bool hud_mode,bool looped,u8 index) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + it->PlaySound(alias, position, parent, hud_mode, looped, index); + } +} + + +HUD_SOUND_ITEM* HUD_SOUND_COLLECTION_LAYERED::FindSoundItem(LPCSTR alias, bool b_assert) +{ + xr_vector::iterator it = m_sound_items.begin(); + xr_vector::iterator it_e = m_sound_items.end(); + + for (; it != it_e; ++it) + { + if (it->m_alias == alias) + return it->FindSoundItem(alias, b_assert); + } + return (0); +} + +void HUD_SOUND_COLLECTION_LAYERED::LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive, int type) +{ + LPCSTR str = pSettings->r_string(section, line); + string256 buf_str; + + int count = _GetItemCount(str); + R_ASSERT(count); + + _GetItem(str, 0, buf_str); + + if (pSettings->section_exist(buf_str)) + { + string256 sound_line; + xr_strcpy(sound_line,"snd_1_layer"); + int k=1; + while( pSettings->line_exist(buf_str, sound_line) ) + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(buf_str, sound_line, alias, exclusive, type); + snd_item.m_alias = alias; + xr_sprintf(sound_line,"snd_%d_layer",++k); + } + } + else //For compatibility with normal HUD_SOUND_COLLECTION sounds + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(section, line, alias, exclusive, type); + snd_item.m_alias = alias; + } +} +#endif +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/HudSound.h b/src/xrGame/HudSound.h index cb8cba3d93f..7d920cf4a6c 100644 --- a/src/xrGame/HudSound.h +++ b/src/xrGame/HudSound.h @@ -62,26 +62,39 @@ struct HUD_SOUND_ITEM class HUD_SOUND_COLLECTION { - xr_vector m_sound_items; + //xr_vector m_sound_items; //HUD_SOUND_ITEM* FindSoundItem ( LPCSTR alias, bool b_assert); public: ~HUD_SOUND_COLLECTION(); +#ifdef LAYERED_SND_SHOOT + shared_str m_alias; //Alundaio: For use when it's part of a layered Collection +#endif + xr_vector m_sound_items; //Alundaio: made public + HUD_SOUND_ITEM* FindSoundItem(LPCSTR alias, bool b_assert); //AVO: made public to check if sound is loaded - void PlaySound(LPCSTR alias, - const Fvector& position, - const CObject* parent, - bool hud_mode, - bool looped = false, - u8 index = u8(-1)); + void PlaySound(LPCSTR alias, const Fvector& position, const CObject* parent, bool hud_mode, bool looped = false, u8 index = u8(-1)); void StopSound(LPCSTR alias); - void LoadSound(LPCSTR section, - LPCSTR line, - LPCSTR alias, - bool exclusive = false, - int type = sg_SourceType); + void LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); void SetPosition(LPCSTR alias, const Fvector& pos); void StopAllSounds(); }; + +//Alundaio: +#ifdef LAYERED_SND_SHOOT +class HUD_SOUND_COLLECTION_LAYERED +{ + xr_vector m_sound_items; +public: + ~HUD_SOUND_COLLECTION_LAYERED(); + HUD_SOUND_ITEM* FindSoundItem(LPCSTR alias, bool b_assert); + void PlaySound(LPCSTR alias, const Fvector& position, const CObject* parent, bool hud_mode, bool looped = false, u8 index = u8(-1)); + void StopSound(LPCSTR alias); + void StopAllSounds(); + void LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); + void SetPosition(LPCSTR alias, const Fvector& pos); +}; +#endif +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 2e2a36a8e66..6344f9d61b3 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -50,7 +50,7 @@ CInventory::CInventory() { m_fMaxWeight = pSettings->r_float ("inventory","max_weight"); - u32 sz = pSettings->r_s32 ("inventory","slots_count"); + u32 sz = LAST_SLOT + 1; //pSettings->r_s32("inventory", "slots_count"); //Alundaio: Get slot count directly to automate this process m_slots.resize (sz+1); //first is [1] m_iActiveSlot = NO_ACTIVE_SLOT; @@ -61,10 +61,10 @@ CInventory::CInventory() for(u16 i=FirstSlot(); i<=LastSlot(); ++i ) { xr_sprintf(temp, "slot_persistent_%d", i); - m_slots[i].m_bPersistent = !!pSettings->r_bool("inventory",temp); + m_slots[i].m_bPersistent = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); //Alundaio xr_sprintf (temp, "slot_active_%d", i); - m_slots[i].m_bAct = !!pSettings->r_bool("inventory",temp); + m_slots[i].m_bAct = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); }; m_bSlotsUseful = true; diff --git a/src/xrGame/InventoryOwner.cpp b/src/xrGame/InventoryOwner.cpp index 2d1dd178245..7569ad38c15 100644 --- a/src/xrGame/InventoryOwner.cpp +++ b/src/xrGame/InventoryOwner.cpp @@ -473,18 +473,22 @@ void CInventoryOwner::OnItemDropUpdate() void CInventoryOwner::OnItemBelt(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); - object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()); + object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()) +#endif /* avo: end */ } void CInventoryOwner::OnItemRuck(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); object->callback(GameObject::eItemToRuck)(inventory_item->object().lua_game_object()); +#endif /* avo: end */ detach(inventory_item); @@ -492,9 +496,11 @@ void CInventoryOwner::OnItemRuck(CInventoryItem *inventory_item, const SInvItemP void CInventoryOwner::OnItemSlot(CInventoryItem *inventory_item, const SInvItemPlace& previous_place) { /* avo: script callback */ +#ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); object->callback(GameObject::eItemToSlot)(inventory_item->object().lua_game_object()); +#endif /* avo: end */ attach(inventory_item); diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index b41dd91926a..18d6ff2858e 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -61,7 +61,9 @@ #endif ENGINE_API bool g_dedicated_server; //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE ENGINE_API BOOL g_bootComplete; +#endif //-AVO extern CUISequencer* g_tutorial; extern CUISequencer* g_tutorial2; @@ -70,6 +72,7 @@ float g_cl_lvInterp = 0.1; u32 lvInterpSteps = 0; //AVO: get object ID from spawn data (used by SPAWN_ANTIFREEZE by alpet) +#ifdef SPAWN_ANTIFREEZE u16 GetSpawnInfo(NET_Packet &P, u16 &parent_id) { u16 dummy16, id; @@ -86,6 +89,7 @@ u16 GetSpawnInfo(NET_Packet &P, u16 &parent_id) P.r_pos = 0; return id; } +#endif //-AVO @@ -98,7 +102,9 @@ IPureClient(Device.GetTimerGlobal()) g_bDebugEvents = strstr(Core.Params, "-debug_ge") != nullptr; game_events = xr_new(); //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE spawn_events = xr_new(); +#endif //-AVO eChangeRP = Engine.Event.Handler_Attach("LEVEL:ChangeRP", this); eDemoPlay = Engine.Event.Handler_Attach("LEVEL:PlayDEMO", this); @@ -293,23 +299,6 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { - /* This is not the right place for this (if this is even required...) - //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases - //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash -#ifdef SPAWN_ANTIFREEZE - for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) - { - const NET_Event& E = *it; - NET_Packet P; - if (M_SPAWN != E.ID) continue; - E.implication(P); - u16 parent_id; - if (GO->ID() == GetSpawnInfo(P, parent_id)) - spawn_events->queue.erase(it); // if parent is being destroyed, delete all queued up children - } -#endif - //-AVO - */ Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -346,6 +335,7 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) } } //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE bool CLevel::PostponedSpawn(u16 id) { for (auto it = spawn_events->queue.begin(); it != spawn_events->queue.end(); ++it) @@ -361,6 +351,7 @@ bool CLevel::PostponedSpawn(u16 id) return false; } +#endif //-AVO void CLevel::ProcessGameEvents() diff --git a/src/xrGame/Level.h b/src/xrGame/Level.h index c86c82f13c0..e7214e54dc1 100644 --- a/src/xrGame/Level.h +++ b/src/xrGame/Level.h @@ -159,7 +159,9 @@ class CLevel : bool game_configured = false; NET_Queue_Event* game_events = nullptr; //AVO: queue to hold spawn events for SPAWN_ANTIFREEZE +#ifdef SPAWN_ANTIFREEZE NET_Queue_Event* spawn_events = nullptr; +#endif //-AVO xr_deque game_spawn_queue; xrServer* Server = nullptr; @@ -224,7 +226,9 @@ class CLevel : void cl_Process_Event(u16 dest, u16 type, NET_Packet& P); void cl_Process_Spawn(NET_Packet& P); //AVO: used by SPAWN_ANTIFREEZE (by alpet) +#ifdef SPAWN_ANTIFREEZE bool PostponedSpawn(u16 id); +#endif //-AVO void ProcessGameEvents(); void ProcessGameSpawns(); diff --git a/src/xrGame/Level_input.cpp b/src/xrGame/Level_input.cpp index 2f1ac089c17..d90a5ead1b6 100644 --- a/src/xrGame/Level_input.cpp +++ b/src/xrGame/Level_input.cpp @@ -48,7 +48,9 @@ void CLevel::IR_OnMouseWheel(int direction) if (g_bDisableAllInput) return; /* avo: script callback */ +#ifdef MOUSE_INPUT_CALLBACKS if (g_actor) g_actor->callback(GameObject::eMouseWheel)(direction); +#endif /* avo: end */ if (CurrentGameUI()->IR_UIOnMouseWheel(direction)) return; @@ -84,11 +86,11 @@ void CLevel::IR_OnMouseMove(int dx, int dy) { if (g_bDisableAllInput) return; -#ifdef MOUSE_MOVE_CALLBACK +#ifdef MOUSE_INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eMouseMove)(dx, dy); /* avo: end */ -#endif // MOUSE_MOVE_CALLBACK +#endif // INPUT_CALLBACKS if (CurrentGameUI()->IR_UIOnMouseMove(dx, dy)) return; if (Device.Paused() && !IsDemoPlay() @@ -107,8 +109,10 @@ void CLevel::IR_OnMouseMove(int dx, int dy) extern bool g_block_pause; // Lain: added TEMP!!! -extern float g_separate_factor; -extern float g_separate_radius; +#ifdef DEBUG + extern float g_separate_factor; + extern float g_separate_radius; +#endif #include #include "script_engine.h" @@ -129,7 +133,9 @@ void CLevel::IR_OnKeyboardPress(int key) EGameActions _curr = get_binded_action(key); /* avo: script callback */ +#ifdef INPUT_CALLBACKS if (!g_bDisableAllInput && g_actor) g_actor->callback(GameObject::eKeyPress)(key); +#endif /* avo: end */ if (_curr == kPAUSE) @@ -475,11 +481,11 @@ void CLevel::IR_OnKeyboardRelease(int key) { if (!bReady || g_bDisableAllInput) return; -#ifdef KEY_RELEASE_CALLBACK +#ifdef INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eKeyRelease)(key); /* avo: end */ -#endif // KEY_RELEASE_CALLBACK +#endif // INPUT_CALLBACKS if (CurrentGameUI() && CurrentGameUI()->IR_UIOnKeyboardRelease(key)) return; if (game && game->OnKeyboardRelease(get_binded_action(key))) return; @@ -500,11 +506,11 @@ void CLevel::IR_OnKeyboardHold(int key) { if (g_bDisableAllInput) return; -#ifdef KEY_HOLD_CALLBACK +#ifdef INPUT_CALLBACKS /* avo: script callback */ if (g_actor) g_actor->callback(GameObject::eKeyHold)(key); /* avo: end */ -#endif // KEY_HOLD_CALLBACK +#endif // INPUT_CALLBACKS #ifdef DEBUG diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index d6f9e5c85a4..87f1d58a787 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -79,7 +79,7 @@ void CShootingObject::Load (LPCSTR section) //Cycle down RPM after first 2 shots; used for Abakan/AN-94 if (pSettings->line_exist(section, "cycle_down")) { - bCycleDown = pSettings->r_bool(section, "cycle_down"); + bCycleDown = pSettings->r_bool(section, "cycle_down")?true:false; } else bCycleDown = false; diff --git a/src/xrGame/UIDialogHolder.cpp b/src/xrGame/UIDialogHolder.cpp index 6c4f9cf139d..a78395eeece 100644 --- a/src/xrGame/UIDialogHolder.cpp +++ b/src/xrGame/UIDialogHolder.cpp @@ -50,7 +50,7 @@ void CDialogHolder::StartMenu(CUIDialogWnd* pDialog, bool bDoHideIndicators) AddDialogToRender (pDialog); SetMainInputReceiver (pDialog, false); - if(UseIndicators()) + if (UseIndicators() && !m_input_receivers.empty()) //Alundaio { bool b = !!psHUD_Flags.test(HUD_CROSSHAIR_RT); m_input_receivers.back().m_flags.set(recvItem::eCrosshair, b); @@ -90,7 +90,7 @@ void CDialogHolder::StopMenu(CUIDialogWnd* pDialog) if( TopInputReceiver()==pDialog ) { - if(UseIndicators()) + if (UseIndicators() && !m_input_receivers.empty()) //Alundaio { bool b = !!m_input_receivers.back().m_flags.test(recvItem::eCrosshair); psHUD_Flags.set (HUD_CROSSHAIR_RT, b); diff --git a/src/xrGame/UIGameCustom.cpp b/src/xrGame/UIGameCustom.cpp index 96a5bf8f258..d56143f5ca1 100644 --- a/src/xrGame/UIGameCustom.cpp +++ b/src/xrGame/UIGameCustom.cpp @@ -178,6 +178,14 @@ void CUIGameCustom::HideActorMenu() ActorMenu->HideDialog(); } +//Alundaio: +void CUIGameCustom::UpdateActorMenu() +{ + if (ActorMenu->IsShown()) + ActorMenu->UpdateActor(); +} +//-Alundaio + void CUIGameCustom::HideMessagesWindow() { if (m_pMessagesWnd->IsShown()) diff --git a/src/xrGame/UIGameCustom.h b/src/xrGame/UIGameCustom.h index 66f72e99ea4..9e9c82064b1 100644 --- a/src/xrGame/UIGameCustom.h +++ b/src/xrGame/UIGameCustom.h @@ -103,6 +103,7 @@ class CUIGameCustom : IC CUIPdaWnd& GetPdaMenu() const { return *PdaMenu; } bool ShowActorMenu(); void HideActorMenu(); + void UpdateActorMenu(); //Alundaio bool ShowPdaMenu(); void HidePdaMenu(); void ShowMessagesWindow(); diff --git a/src/xrGame/UIGameCustom_script.cpp b/src/xrGame/UIGameCustom_script.cpp index 3d2664ce78f..2f1ab7dd709 100644 --- a/src/xrGame/UIGameCustom_script.cpp +++ b/src/xrGame/UIGameCustom_script.cpp @@ -24,6 +24,9 @@ void CUIGameCustom::script_register(lua_State *L) .def("AddCustomStatic", &CUIGameCustom::AddCustomStatic) .def("RemoveCustomStatic", &CUIGameCustom::RemoveCustomStatic) .def("HideActorMenu", &CUIGameCustom::HideActorMenu) + //Alundaio + .def("UpdateActorMenu", &CUIGameCustom::UpdateActorMenu) + //-Alundaio .def("HidePdaMenu", &CUIGameCustom::HidePdaMenu) .def("show_messages", &CUIGameCustom::ShowMessagesWindow) .def("hide_messages", &CUIGameCustom::HideMessagesWindow) diff --git a/src/xrGame/Weapon.cpp b/src/xrGame/Weapon.cpp index c2046e26f6d..55a8fee6b22 100644 --- a/src/xrGame/Weapon.cpp +++ b/src/xrGame/Weapon.cpp @@ -1629,6 +1629,14 @@ const CInventoryItem *CWeapon::can_kill(const xr_vector &ite bool CWeapon::ready_to_kill() const { + //Alundaio + const CInventoryOwner* io = smart_cast(H_Parent()); + if (!io) + return false; + + if (io->inventory().ActiveItem() == NULL || io->inventory().ActiveItem()->object().ID() != ID()) + return false; + //-Alundaio return ( !IsMisfire() && ((GetState() == eIdle) || (GetState() == eFire) || (GetState() == eFire2)) && diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 3a7553e1518..dec7fb14a12 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -45,7 +45,9 @@ CWeaponMagazined::CWeaponMagazined(ESoundTypes eSoundType) : CWeapon() m_eSoundShot = ESoundTypes(SOUND_TYPE_WEAPON_SHOOTING | eSoundType); m_eSoundEmptyClick = ESoundTypes(SOUND_TYPE_WEAPON_EMPTY_CLICKING | eSoundType); m_eSoundReload = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); +#ifdef NEW_SOUNDS m_eSoundReloadEmpty = ESoundTypes(SOUND_TYPE_WEAPON_RECHARGING | eSoundType); +#endif m_sounds_enabled = true; m_sSndShotCurrent = NULL; @@ -90,10 +92,18 @@ void CWeaponMagazined::Load(LPCSTR section) inherited::Load(section); // Sounds - m_sounds.LoadSound(section, "snd_draw", "sndShow", false, m_eSoundShow); - m_sounds.LoadSound(section, "snd_holster", "sndHide", false, m_eSoundHide); - m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); - m_sounds.LoadSound(section, "snd_empty", "sndEmptyClick", false, m_eSoundEmptyClick); + m_sounds.LoadSound(section, "snd_draw", "sndShow", true, m_eSoundShow); + m_sounds.LoadSound(section, "snd_holster", "sndHide", true, m_eSoundHide); + + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); +#else + m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); +#endif + //-Alundaio + + m_sounds.LoadSound(section, "snd_empty", "sndEmptyClick", true, m_eSoundEmptyClick); m_sounds.LoadSound(section, "snd_reload", "sndReload", true, m_eSoundReload); #ifdef NEW_SOUNDS //AVO: custom sounds go here @@ -176,9 +186,11 @@ void CWeaponMagazined::FireStart() else {//misfire //Alundaio +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponJammed)(object->lua_game_object(), this->lua_game_object()); +#endif //-Alundaio if (smart_cast(this->H_Parent()) && (Level().CurrentViewEntity() == H_Parent())) @@ -192,9 +204,11 @@ void CWeaponMagazined::FireEnd() { inherited::FireEnd(); + /* Alundaio: Removed auto-reload since it's widely asked by just about everyone who is a gun whore CActor *actor = smart_cast(H_Parent()); if (m_pInventory && !iAmmoElapsed && actor && GetState() != eReload) Reload(); + */ } void CWeaponMagazined::Reload() @@ -623,7 +637,13 @@ void CWeaponMagazined::SetDefaults() void CWeaponMagazined::OnShot() { // Sound - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP()); +//Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); +#else + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) +#endif +//-Alundaio // Camera AddShotEffector(); @@ -677,16 +697,17 @@ void CWeaponMagazined::switch2_Idle() #endif void CWeaponMagazined::switch2_Fire() { - CInventoryOwner* io = smart_cast(H_Parent()); - CInventoryItem* ii = smart_cast(this); -#ifdef DEBUG - if (!io) - return; - //VERIFY2 (io,make_string("no inventory owner, item %s",*cName())); - - if (ii != io->inventory().ActiveItem()) - Msg("! not an active item, item %s, owner %s, active item %s", *cName(), *H_Parent()->cName(), io->inventory().ActiveItem() ? *io->inventory().ActiveItem()->object().cName() : "no_active_item"); + CInventoryOwner* io = smart_cast(H_Parent()); + if (!io) + return; + CInventoryItem* ii = smart_cast(this); + if (ii != io->inventory().ActiveItem()) + { + Msg("WARNING: Not an active item, item %s, owner %s, active item %s", *cName(), *H_Parent()->cName(), io->inventory().ActiveItem() ? *io->inventory().ActiveItem()->object().cName() : "no_active_item"); + return; + } +#ifdef DEBUG if (!(io && (ii == io->inventory().ActiveItem()))) { CAI_Stalker *stalker = smart_cast(H_Parent()); @@ -697,21 +718,8 @@ void CWeaponMagazined::switch2_Fire() stalker->planner().show_target_world_state(); } } -#else - if (!io) - return; #endif // DEBUG - // - // VERIFY2( - // io && (ii == io->inventory().ActiveItem()), - // make_string( - // "item[%s], parent[%s]", - // *cName(), - // H_Parent() ? *H_Parent()->cName() : "no_parent" - // ) - // ); - m_bStopedAfterQueueFired = false; m_bFireSingleShot = true; m_iShotNum = 0; @@ -1196,9 +1204,11 @@ void CWeaponMagazined::OnZoomIn() PlayAnimIdle(); //Alundaio: callback not sure why vs2013 gives error, it's fine +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponZoomIn)(object->lua_game_object(),this->lua_game_object()); +#endif //-Alundaio CActor* pActor = smart_cast(H_Parent()); @@ -1225,9 +1235,11 @@ void CWeaponMagazined::OnZoomOut() PlayAnimIdle(); //Alundaio +#ifdef EXTENDED_WEAPON_CALLBACKS CGameObject *object = smart_cast(H_Parent()); if (object) object->callback(GameObject::eOnWeaponZoomOut)(object->lua_game_object(), this->lua_game_object()); +#endif //-Alundaio CActor* pActor = smart_cast(H_Parent()); @@ -1369,14 +1381,21 @@ bool CWeaponMagazined::GetBriefInfo(II_BriefInfo& info) info.ap_ammo._set(""); info.third_ammo._set(""); - xr_sprintf(int_str, "%d", GetAmmoCount(m_ammoType)); - - if (m_ammoType == 0) - info.fmj_ammo._set(int_str); - else if (m_ammoType == 1) + if (at_size >= 1) + { + xr_sprintf(int_str, "%d", GetAmmoCount(0)); + info.fmj_ammo._set(int_str); + } + if (at_size >= 2) + { + xr_sprintf(int_str, "%d", GetAmmoCount(1)); info.ap_ammo._set(int_str); - else + } + if (at_size >= 3) + { + xr_sprintf(int_str, "%d", GetAmmoCount(2)); info.third_ammo._set(int_str); + } //-Alundaio } diff --git a/src/xrGame/WeaponMagazined.h b/src/xrGame/WeaponMagazined.h index a2820f09835..fb7f160dcf1 100644 --- a/src/xrGame/WeaponMagazined.h +++ b/src/xrGame/WeaponMagazined.h @@ -206,4 +206,10 @@ class CWeaponMagazined : public CWeapon bool send_hit); //AVO: for custom added sounds check if sound exists bool WeaponSoundExist(LPCSTR section, LPCSTR sound_name); + + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + HUD_SOUND_COLLECTION_LAYERED m_layered_sounds; +#endif + //-Alundaio }; diff --git a/src/xrGame/WeaponMagazinedWGrenade.cpp b/src/xrGame/WeaponMagazinedWGrenade.cpp index 56b991d5dd6..6e5f148de82 100644 --- a/src/xrGame/WeaponMagazinedWGrenade.cpp +++ b/src/xrGame/WeaponMagazinedWGrenade.cpp @@ -34,7 +34,7 @@ void CWeaponMagazinedWGrenade::Load(LPCSTR section) CRocketLauncher::Load(section); //// Sounds - m_sounds.LoadSound(section, "snd_shoot_grenade", "sndShotG", false, m_eSoundShot); + m_sounds.LoadSound(section, "snd_shoot_grenade", "sndShotG", true, m_eSoundShot); m_sounds.LoadSound(section, "snd_reload_grenade", "sndReloadG", true, m_eSoundReload); m_sounds.LoadSound(section, "snd_switch", "sndSwitch", true, m_eSoundReload); @@ -972,6 +972,27 @@ bool CWeaponMagazinedWGrenade::GetBriefInfo(II_BriefInfo& info) info.ap_ammo._set(int_str); else info.third_ammo._set(int_str); + + //Alundaio: Added third ammo type and cleanup + info.fmj_ammo._set(""); + info.ap_ammo._set(""); + info.third_ammo._set(""); + + if (at_size >= 1) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(0) : GetAmmoCount(0)); + info.fmj_ammo._set(int_str); + } + if (at_size >= 2) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(1) : GetAmmoCount(1)); + info.ap_ammo._set(int_str); + } + if (at_size >= 3) + { + xr_sprintf(int_str, "%d", m_bGrenadeMode ? GetAmmoCount2(2) : GetAmmoCount(2)); + info.third_ammo._set(int_str); + } //-Alundaio } diff --git a/src/xrGame/WeaponPistol.cpp b/src/xrGame/WeaponPistol.cpp index bca7abebc4b..a846eda7e10 100644 --- a/src/xrGame/WeaponPistol.cpp +++ b/src/xrGame/WeaponPistol.cpp @@ -144,25 +144,7 @@ void CWeaponPistol::OnAnimationEnd(u32 state) void CWeaponPistol::OnShot() { - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP()); - - AddShotEffector(); - - PlayAnimShoot(); - - // Shell Drop - Fvector vel; - PHGetLinearVell(vel); - OnShellDrop(get_LastSP(), vel); - - // Огонь из ствола - - StartFlameParticles(); - R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), - "can't set looped particles system for shoting with pistol"); - - //дым из ствола - StartSmokeParticles(get_LastFP(), vel); + inherited::OnShot(); //Alundaio: not changed from inherited, so instead of copying changes from weaponmagazined, we just do this } void CWeaponPistol::UpdateSounds() diff --git a/src/xrGame/WeaponRevolver.cpp b/src/xrGame/WeaponRevolver.cpp index c89adfe2f35..0459c184f73 100644 --- a/src/xrGame/WeaponRevolver.cpp +++ b/src/xrGame/WeaponRevolver.cpp @@ -148,25 +148,7 @@ void CWeaponRevolver::OnAnimationEnd(u32 state) void CWeaponRevolver::OnShot () { - PlaySound (m_sSndShotCurrent.c_str(),get_LastFP()); - - AddShotEffector (); - - PlayAnimShoot (); - - // Shell Drop - Fvector vel; - PHGetLinearVell(vel); - OnShellDrop (get_LastSP(), vel); - - // Огонь из ствола - - StartFlameParticles (); - R_ASSERT2(!m_pFlameParticles || !m_pFlameParticles->IsLooped(), - "can't set looped particles system for shoting with Revolver"); - - //дым из ствола - StartSmokeParticles (get_LastFP(), vel); + inherited::OnShot(); //Alundaio: not changed from inherited, so instead of copying changes from weaponmagazined, we just do this } void CWeaponRevolver::UpdateSounds() diff --git a/src/xrGame/action_base.h b/src/xrGame/action_base.h index 58dc13c3b71..4ffe31d39fa 100644 --- a/src/xrGame/action_base.h +++ b/src/xrGame/action_base.h @@ -58,6 +58,7 @@ class CActionBase : public GraphEngineSpace::CWorldOperator { #endif public: + LPCSTR m_action_name; //alundaio IC CActionBase (const xr_vector &conditions, const xr_vector &effects, _object_type *object = 0, LPCSTR action_name = ""); IC CActionBase (_object_type *object, LPCSTR action_name = ""); virtual ~CActionBase (); diff --git a/src/xrGame/action_base_inline.h b/src/xrGame/action_base_inline.h index a7d26d4423c..28fbd881667 100644 --- a/src/xrGame/action_base_inline.h +++ b/src/xrGame/action_base_inline.h @@ -45,6 +45,7 @@ void CBaseAction::init (_object_type *object, LPCSTR action_name) // if (xr_strlen(m_action_name)) // debug_log (eActionStateConstructed); #endif + m_action_name = action_name; //alundaio } TEMPLATE_SPECIALIZATION diff --git a/src/xrGame/action_planner_inline.h b/src/xrGame/action_planner_inline.h index 998123db778..fcc20e7f244 100644 --- a/src/xrGame/action_planner_inline.h +++ b/src/xrGame/action_planner_inline.h @@ -63,11 +63,11 @@ IC _object_type &CPlanner::object () const } TEMPLATE_SPECIALIZATION -void CPlanner::update () +void CPlanner::update() { - m_solving = true; - solve (); - m_solving = false; + m_solving = true; + solve(); + m_solving = false; #ifdef LOG_ACTION // printing solution @@ -81,31 +81,36 @@ void CPlanner::update () } } #endif + //Alundaio: debug action + bool bDbgAct = strstr(Core.Params, "-dbgact") != NULL; #ifdef LOG_ACTION - if (m_failed) { + if (m_failed) + { // printing current world state show (); - - Msg ("! ERROR : there is no action sequence, which can transfer current world state to the target one"); - Msg ("Time : %6d",Device.dwTimeGlobal); - Msg ("Object : %s",object_name()); - + Msg("!ERROR: there is no action sequence, which can transfer current world state to the target one action[%s] object[%s]", current_action().m_action_name); show_current_world_state (); show_target_world_state (); -// VERIFY2 (!m_failed,"Problem solver couldn't build a valid path - verify your conditions, effects and goals!"); } +#else + if (bDbgAct && m_failed && current_action().m_action_name) + Msg("!ERROR: there is no action sequence, which can transfer current world state to the target one. action[%s]", current_action().m_action_name); #endif THROW (!solution().empty()); + //Alundaio: + if (solution().empty()) + return; + //-Alundaio if (initialized()) { if (current_action_id() != solution().front()) { current_action().finalize(); m_current_action_id = solution().front(); //Alundaio: More detailed logging for initializing action - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] initializing", m_current_action_id); + if (bDbgAct == true) + Msg("DEBUG: Action [%s] initializing", current_action().m_action_name); current_action().initialize(); } } @@ -113,14 +118,16 @@ void CPlanner::update () m_initialized = true; m_current_action_id = solution().front(); //Alundaio: More detailed logging for initializing action - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] initializing", m_current_action_id); + if (bDbgAct == true) + Msg("DEBUG: Action [%s] initializing", current_action().m_action_name); current_action().initialize(); } //Alundaio: More detailed logging for executing action; Knowing the last executing action before a crash can be very useful for debugging - if (strstr(Core.Params, "-dbgact")) - Msg("DEBUG: Action [%d] executing", m_current_action_id); + if (bDbgAct == true) + Msg("DEBUG: Action [%s] executing", current_action().m_action_name); + + //-Alundaio: Debug Action current_action().execute (); } diff --git a/src/xrGame/alife_object.cpp b/src/xrGame/alife_object.cpp index 2fff6045757..f241326cdb1 100644 --- a/src/xrGame/alife_object.cpp +++ b/src/xrGame/alife_object.cpp @@ -35,52 +35,154 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) ); #pragma warning(pop) - if (ini.section_exist("spawn")) { - LPCSTR N,V; - float p; - for (u32 k = 0, j; ini.r_line("spawn",k,&N,&V); k++) { - VERIFY (xr_strlen(N)); - - float f_cond = 1.0f; - bool bScope = false; - bool bSilencer = false; - bool bLauncher = false; - - - j = 1; - p = 1.f; - - if (V && xr_strlen(V)) { - string64 buf; - j = atoi(_GetItem(V, 0, buf)); - if (!j) j = 1; - - bScope = (NULL!=strstr(V,"scope")); - bSilencer = (NULL!=strstr(V,"silencer")); - bLauncher = (NULL!=strstr(V,"launcher")); - //probability - if(NULL!=strstr(V,"prob=")) - p = (float)atof(strstr(V,"prob=")+5); - if (fis_zero(p)) p = 1.0f; - if(NULL!=strstr(V,"cond=")) - f_cond = (float)atof(strstr(V,"cond=")+5); + // Alundaio: This will spawn a single random section listed in [spawn_loadout] + // No need to spawn ammo, this will automatically spawn 1 box for weapon and if ammo_type is specficied it will spawn that type + // count is used only for ammo boxes (ie wpn_pm = 3) will spawn 3 boxes, not 3 wpn_pm + // Usage: to create random weapon loadouts + if (ini.section_exist("spawn_loadout")) + { + LPCSTR itmSection, V; + xr_vector OnlyOne; + OnlyOne.clear(); + LPCSTR lname = *ai().game_graph().header().level(ai().game_graph().vertex(m_tGraphID)->level_id()).name(); + + for (u32 k = 0; ini.r_line("spawn_loadout", k, &itmSection, &V); k++) + { + // If level= then only spawn items if object on that level + if (strstr(V, "level=") != NULL) + { + if (strstr(V, lname) != NULL) + OnlyOne.push_back(k); } - for (u32 i=0; i(E); - if (W) { + else { + OnlyOne.push_back(k); + } + } + + if (!OnlyOne.empty()) + { + s32 sel = ::Random.randI(0, OnlyOne.size()); + if (ini.r_line("spawn_loadout", OnlyOne.at(sel), &itmSection, &V)) + { + VERIFY(xr_strlen(itmSection)); + if (pSettings->section_exist(itmSection)) + { + u32 spawn_count = 1; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; + float f_cond = 1.0f; + int i_ammo_type = 0, n=0; + + if (V && xr_strlen(V)) { + n = _GetItemCount(V); + if (n > 0) + { + string64 tmp; + spawn_count = atoi(_GetItem(V, 0, tmp)); //count + } + + if (!spawn_count) spawn_count = 1; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + if (NULL != strstr(V, "ammo_type=")) + i_ammo_type = atoi(strstr(V, "ammo_type=") + 10); + } + + + CSE_Abstract* E = alife().spawn_item(itmSection, o_Position, m_tNodeID, m_tGraphID, ID); + CSE_ALifeItemWeapon* W = smart_cast(E); + if (W) + { if (W->m_scope_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); if (W->m_silencer_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); if (W->m_grenade_launcher_status == ALife::eAddonAttachable) W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + + //spawn count box(es) of the correct ammo for weapon + if (pSettings->line_exist(itmSection, "ammo_class")) + { + LPCSTR ammo_class = pSettings->r_string(itmSection, "ammo_class"); + LPCSTR ammoSec = ""; + for (int i = 0, n = _GetItemCount(ammo_class); i < n; ++i) + { + string128 tmp; + ammoSec = _GetItem(ammo_class, i, tmp); + if (i == i_ammo_type) + break; + } + if (xr_strlen(ammoSec) && pSettings->section_exist(ammoSec)) + { + for (u32 i = 1; i <= spawn_count; ++i) + { + alife().spawn_item(ammoSec, o_Position, m_tNodeID, m_tGraphID, ID); + } + } + } } CSE_ALifeInventoryItem* IItem = smart_cast(E); - if(IItem) - IItem->m_fCondition = f_cond; + if (IItem) + IItem->m_fCondition = f_cond; + + } + } + } + } + //-Alundaio + + if (ini.section_exist("spawn")) { + LPCSTR N,V; + float p; + for (u32 k = 0, j; ini.r_line("spawn", k, &N, &V); k++) { + VERIFY(xr_strlen(N)); + + if (pSettings->section_exist(N)) //Alundaio: verify item section exists! + { + float f_cond = 1.0f; + bool bScope = false; + bool bSilencer = false; + bool bLauncher = false; + + j = 1; + p = 1.f; + + if (V && xr_strlen(V)) { + string64 buf; + j = atoi(_GetItem(V, 0, buf)); + if (!j) j = 1; + + bScope = (NULL != strstr(V, "scope")); + bSilencer = (NULL != strstr(V, "silencer")); + bLauncher = (NULL != strstr(V, "launcher")); + //probability + if (NULL != strstr(V, "prob=")) + p = (float)atof(strstr(V, "prob=") + 5); + if (fis_zero(p)) p = 1.0f; + if (NULL != strstr(V, "cond=")) + f_cond = (float)atof(strstr(V, "cond=") + 5); + } + for (u32 i = 0; i < j; ++i) { + if (randF(1.f) < p) { + CSE_Abstract* E = alife().spawn_item(N, o_Position, m_tNodeID, m_tGraphID, ID); + //подсоединить аддоны к оружию, если включены соответствующие флажки + CSE_ALifeItemWeapon* W = smart_cast(E); + if (W) { + if (W->m_scope_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonScope, bScope); + if (W->m_silencer_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonSilencer, bSilencer); + if (W->m_grenade_launcher_status == ALife::eAddonAttachable) + W->m_addon_flags.set(CSE_ALifeItemWeapon::eWeaponAddonGrenadeLauncher, bLauncher); + } + CSE_ALifeInventoryItem* IItem = smart_cast(E); + if (IItem) + IItem->m_fCondition = f_cond; + } } } } diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index cc3c94035d4..ddb91d1fa44 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -314,16 +314,8 @@ void teleport_object(CALifeSimulator *alife, ALife::_OBJECT_ID id, GameGraph::_G { alife->teleport_object(id, game_vertex_id, level_vertex_id, position); } +//-Alundaio -//void disable_info_portion (const CALifeSimulator *self, const ALife::_OBJECT_ID &id) -//{ -// THROW (self); -//} - -//void give_info_portion (const CALifeSimulator *self, const ALife::_OBJECT_ID &id) -//{ -// THROW (self); -//} #pragma optimize("s",on) void CALifeSimulator::script_register (lua_State *L) @@ -358,7 +350,7 @@ void CALifeSimulator::script_register (lua_State *L) .def("has_info", &has_info) .def("dont_has_info", &dont_has_info) .def("switch_distance", &CALifeSimulator::switch_distance) - .def("switch_distance", &CALifeSimulator::set_switch_distance) + .def("set_switch_distance", &CALifeSimulator::set_switch_distance) //Alundaio: renamed to set_switch_distance from switch_distance //Alundaio: extend alife simulator exports .def("teleport_object", &teleport_object) //Alundaio: END diff --git a/src/xrGame/alife_storage_manager.cpp b/src/xrGame/alife_storage_manager.cpp index a89c2e1f570..f02cd5c315e 100644 --- a/src/xrGame/alife_storage_manager.cpp +++ b/src/xrGame/alife_storage_manager.cpp @@ -23,14 +23,18 @@ #include "../xrEngine/igame_persistent.h" #include "autosave_manager.h" //Alundaio +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS #include "pch_script.h" #include "../../xrServerEntities/script_engine.h" +#endif //-Alundaio XRCORE_API string_path g_bug_report_file; using namespace ALife; +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS using namespace luabind; //Alundaio +#endif extern string_path g_last_saved_game; @@ -59,7 +63,15 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) Log ("There is no file name specified!"); return; } - } + } + + //Alundaio: To get the savegame fname to make our own custom save states +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS + luabind::functor funct1; + if (ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_before_save", funct1)) + funct1((LPCSTR)m_save_name); +#endif + //-Alundaio u32 source_count; u32 dest_count; @@ -96,10 +108,11 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) #endif // DEBUG //Alundaio: To get the savegame fname to make our own custom save states - luabind::functor funct; - ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_save", funct); - if (funct) - funct((LPCSTR)m_save_name); +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS + luabind::functor funct2; + if (ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_save", funct2)) + funct2((LPCSTR)m_save_name); +#endif //-Alundaio if (!update_name) @@ -109,10 +122,11 @@ void CALifeStorageManager::save (LPCSTR save_name_no_check, bool update_name) void CALifeStorageManager::load (void *buffer, const u32 &buffer_size, LPCSTR file_name) { //Alundaio: So we can get the fname to make our own custom save states +#ifdef ENGINE_LUA_ALIFE_STORAGE_MANAGER_CALLBACKS luabind::functor funct; - ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_load", funct); - if (funct) + if (ai().script_engine().functor("alife_storage_manager.CALifeStorageManager_load", funct)) funct(file_name); +#endif //-Alundaio IReader source(buffer,buffer_size); diff --git a/src/xrGame/alife_trader_abstract.cpp b/src/xrGame/alife_trader_abstract.cpp index 7433c029b05..ad21b2e3aba 100644 --- a/src/xrGame/alife_trader_abstract.cpp +++ b/src/xrGame/alife_trader_abstract.cpp @@ -163,21 +163,14 @@ void add_online_impl (CSE_ALifeDynamicObject *object, const bool &update_re ALife::OBJECT_IT I = object->children.begin(); ALife::OBJECT_IT E = object->children.end(); for ( ; I != E; ++I) { -// this was for the car only -// if (*I == ai().alife().graph().actor()->ID) -// continue; -// - CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); - //Alundaio: I don't know why this happens but until I do, this will stop crash. I think maybe a deleted object is registered to come back online - if (!l_tpALifeDynamicObject) + //Alundaio: + if (*I == ai().alife().graph().actor()->ID) continue; - //Alundaio End + //-Alundaio + + CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); CSE_ALifeInventoryItem *l_tpALifeInventoryItem = smart_cast(l_tpALifeDynamicObject); - //Alundaio - if (!l_tpALifeInventoryItem) - continue; - //Alundaio End - //R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); l_tpALifeInventoryItem->base()->s_flags.or(M_SPAWN_UPDATE); CSE_Abstract *l_tpAbstract = smart_cast(l_tpALifeInventoryItem); object->alife().server().entity_Destroy(l_tpAbstract); diff --git a/src/xrGame/alife_update_manager.cpp b/src/xrGame/alife_update_manager.cpp index 30594e0351e..cf339a8a8e3 100644 --- a/src/xrGame/alife_update_manager.cpp +++ b/src/xrGame/alife_update_manager.cpp @@ -24,6 +24,9 @@ #include "mt_config.h" using namespace ALife; +#ifdef ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS +using namespace luabind; //Alundaio +#endif extern string_path g_last_saved_game; @@ -154,6 +157,12 @@ bool CALifeUpdateManager::change_level (NET_Packet &net_packet) if (m_changing_level) return (false); +#ifdef ENGINE_LUA_ALIFE_UPDAGE_MANAGER_CALLBACKS + luabind::functor funct; + if (ai().script_engine().functor("_G.CALifeUpdateManager__on_before_change_level", funct)) + funct(&net_packet); +#endif + // prepare_objects_for_save (); // we couldn't use prepare_objects_for_save since we need // get updates from client @@ -255,7 +264,7 @@ void CALifeUpdateManager::new_game (LPCSTR save_name) save (save_name); #endif // #ifdef DEBUG - Msg ("* New game is successfully created!"); + Msg("* New game is successfully created!"); } void CALifeUpdateManager::load (LPCSTR game_name, bool no_assert, bool new_only) diff --git a/src/xrGame/fs_registrator_script.cpp b/src/xrGame/fs_registrator_script.cpp index 392e2cc07d2..b5cab10c619 100644 --- a/src/xrGame/fs_registrator_script.cpp +++ b/src/xrGame/fs_registrator_script.cpp @@ -20,6 +20,13 @@ LPCSTR update_path_script(CLocatorAPI* fs, LPCSTR initial, LPCSTR src) return *temp_2; } +//Alundaio: Set flag to rescan all files in path +void rescan_path_script(CLocatorAPI* fs, LPCSTR initial) +{ + fs->get_path(initial)->m_Flags.set(FS_Path::flNeedRescan, TRUE); +} +//-Alundaio + class FS_file_list{ xr_vector* m_p; public : @@ -211,6 +218,9 @@ void fs_registrator::script_register(lua_State *L) .def("update_path", &update_path_script) .def("get_path", &CLocatorAPI::get_path) .def("append_path", &CLocatorAPI::append_path) + //Alundaio + .def("rescan_path", &rescan_path_script) + //-Alundaio .def("file_delete", (void (CLocatorAPI::*)(LPCSTR,LPCSTR)) (&CLocatorAPI::file_delete)) .def("file_delete", (void (CLocatorAPI::*)(LPCSTR)) (&CLocatorAPI::file_delete)) diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 9ea4ebb2a0a..c0a48515e83 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -53,28 +53,40 @@ namespace GameObject eInvBoxItemTake, eWeaponNoAmmoAvailable, - + //Alundaio: added defines //AVO: custom callbacks - // input +#ifdef INPUT_CALLBACKS + // input eKeyPress, eKeyRelease, eKeyHold, +#endif +#ifdef MOUSE_INPUT_CALLBACKS eMouseMove, eMouseWheel, +#endif +#ifdef EXTENDED_ITEM_CALLBACKS // inventory eItemToBelt, eItemToSlot, eItemToRuck, +#endif +#ifdef EXTENDED_WEAPON_CALLBACKS + // weapon + eOnWeaponZoomIn, + eOnWeaponZoomOut, + eOnWeaponJammed, +#endif // actor +#ifdef ACTOR_BEFORE_DEATH_CALLBACK eActorBeforeDeath, +#endif +#ifdef ENABLE_CAR // vehicle eAttachVehicle, eDetachVehicle, eUseVehicle, - // weapon - eOnWeaponZoomIn, - eOnWeaponZoomOut, - eOnWeaponJammed, +#endif //-AVO eDummy = u32(-1), diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index c9dadb217ce..946b844c811 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -278,7 +278,9 @@ class CInventoryItem : bool has_upgrade_group ( const shared_str& upgrade_group_id ); void add_upgrade ( const shared_str& upgrade_id, bool loading ); bool get_upgrades_str ( string2048& res ) const; +#ifdef GAME_OBJECT_EXTENDED_EXPORTS Upgrades_type get_upgrades() { return m_upgrades; } //Alundaio +#endif bool equal_upgrades ( Upgrades_type const& other_upgrades ) const; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 68f63a38bd5..40ce106176d 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -706,7 +706,7 @@ bool has_active_tutotial() } //Alundaio: namespace level exports extension - +#ifdef NAMESPACE_LEVEL_EXPORTS //ability to update level netpacket void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighPriority = 0, bool bSendImmediately = 0) { @@ -714,7 +714,7 @@ void g_send(NET_Packet& P, bool bReliable = 0, bool bSequential = 1, bool bHighP } //can spawn entities like bolts, phantoms, ammo, etc. which normally crash when using alife():create() -void spawn_section(LPCSTR sSection, Fvector3 vPosition, u32 LevelVertexID, u16 ParentID, bool bReturnItem) +void spawn_section(LPCSTR sSection, Fvector3 vPosition, u32 LevelVertexID, u16 ParentID, bool bReturnItem=false) { Level().spawn_item(sSection, vPosition, LevelVertexID, ParentID, bReturnItem); } @@ -749,6 +749,23 @@ u32 g_get_target_element() } return (0); } + +u8 get_active_cam() +{ + CActor* actor = smart_cast(Level().CurrentViewEntity()); + if (actor) + return (u8)actor->active_cam(); + + return 255; +} + +void set_active_cam(u8 mode) +{ + CActor* actor = smart_cast(Level().CurrentViewEntity()); + if (actor && mode <= ACTOR_DEFS::EActorCameras::eacMaxCam) + actor->cam_Set((ACTOR_DEFS::EActorCameras)mode); +} +#endif //-Alundaio @@ -765,11 +782,15 @@ void CLevel::script_register(lua_State *L) module(L,"level") [ //Alundaio: Extend level namespace exports +#ifdef NAMESPACE_LEVEL_EXPORTS def("send", &g_send), //allow the ability to send netpacket to level def("get_target_obj", &g_get_target_obj), //intentionally named to what is in xray extensions def("get_target_dist", &g_get_target_dist), def("get_target_element", &g_get_target_element), //Can get bone cursor is targetting def("spawn_item", &spawn_section), + def("get_active_cam", &get_active_cam), + def("set_active_cam", &set_active_cam), +#endif //Alundaio: END // obsolete\deprecated def("object_by_id", get_object_by_id), diff --git a/src/xrGame/property_evaluator.h b/src/xrGame/property_evaluator.h index 4fa1a3e6129..03f52c17303 100644 --- a/src/xrGame/property_evaluator.h +++ b/src/xrGame/property_evaluator.h @@ -22,10 +22,11 @@ class CPropertyEvaluator { public: _object_type *m_object; - CPropertyStorage *m_storage; -#ifdef LOG_ACTION + CPropertyStorage *m_storage; +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION LPCSTR m_evaluator_name; -#endif +//#endif public: IC CPropertyEvaluator (_object_type *object = 0, LPCSTR evaluator_name = ""); diff --git a/src/xrGame/property_evaluator_const_inline.h b/src/xrGame/property_evaluator_const_inline.h index 7d01f600402..ead2b929916 100644 --- a/src/xrGame/property_evaluator_const_inline.h +++ b/src/xrGame/property_evaluator_const_inline.h @@ -18,9 +18,10 @@ TEMPLATE_SPECIALIZATION IC CEvaluator::CPropertyEvaluatorConst (_value_type value, LPCSTR evaluator_name) : m_value (value) { -#ifdef LOG_ACTION +//m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif } TEMPLATE_SPECIALIZATION diff --git a/src/xrGame/property_evaluator_inline.h b/src/xrGame/property_evaluator_inline.h index 39efa27b271..68b5b93dc78 100644 --- a/src/xrGame/property_evaluator_inline.h +++ b/src/xrGame/property_evaluator_inline.h @@ -26,9 +26,10 @@ TEMPLATE_SPECIALIZATION IC void CEvaluator::init (_object_type *object, LPCSTR evaluator_name) { m_object = object; -#ifdef LOG_ACTION +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif m_storage = 0; } diff --git a/src/xrGame/property_evaluator_member_inline.h b/src/xrGame/property_evaluator_member_inline.h index e8ca21e54d3..d4235271233 100644 --- a/src/xrGame/property_evaluator_member_inline.h +++ b/src/xrGame/property_evaluator_member_inline.h @@ -17,9 +17,10 @@ CEvaluator::CPropertyEvaluatorMember (CPropertyStorage *storage, _condition_type m_value (value), m_equality (equality) { -#ifdef LOG_ACTION +//Alundaio: m_evaluator_name +//#ifdef LOG_ACTION m_evaluator_name = evaluator_name; -#endif +//#endif m_storage = storage; } diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 24561fc0517..35f0a8048f4 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -587,32 +587,3 @@ LPCSTR CScriptGameObject::get_visual_name() const { return object().cNameVisual().c_str(); } - -bool CScriptGameObject::IsActorIndoors() const -{ - // Check to make sure all the params are available (we're in game and such). - if (!g_pGameLevel) - { - return FALSE; - } - CObject *e = g_pGameLevel->CurrentViewEntity(); - if (!e || !e->renderable_ROS()) - { - return FALSE; - } - // Now do the real check! This is a copy out of another section of code that is also hard coded. - // I don't know what the proper limit for this is supposed to be, but this seems good enough. - return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; -} - -bool CScriptGameObject::IsNPCIndoors() const -{ - CObject *e = smart_cast(&object()); - if (!e || !e->renderable_ROS()) - { - return FALSE; - } - // Now do the real check! This is a copy out of another section of code that is also hard coded. - // I don't know what the proper limit for this is supposed to be, but this seems good enough. - return e->renderable_ROS()->get_luminocity_hemi() > 0.05f; -} \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 69fac805bfa..bd08039f7f4 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -15,7 +15,7 @@ #include "character_info_defs.h" #include "game_graph_space.h" #include "game_location_selector.h" -#include "ui/UIWindow.h" //Alundaio + enum EPdaMsg; enum ESoundTypes; enum ETaskState; @@ -87,7 +87,6 @@ class CScriptGameObject; class CZoneCampfire; class CPhysicObject; class CArtefact; -class CUIWindow; //Alundaio: For ScopeTexture #ifdef DEBUG template @@ -386,31 +385,6 @@ class CScriptGameObject { bool Weapon_IsGrenadeLauncherAttached(); bool Weapon_IsScopeAttached (); bool Weapon_IsSilencerAttached (); - //Alundaio - //Weapon - void Weapon_AddonAttach(CScriptGameObject* item); - void Weapon_AddonDetach(LPCSTR item_section); - - //Weapon & Outfit - bool HasUpgrade(LPCSTR upgrade) const; - void AddUpgrade(LPCSTR upgrade); - void IterateInstalledUpgrades(luabind::functor functor); - - //Car - CScriptGameObject* GetAttachedVehicle(); - void AttachVehicle(CScriptGameObject* veh); - void DetachVehicle(); - - //Any class that has PPhysicsShell - void ForceSetPosition(Fvector pos, bool bActivate); - - //Any class that is derived from CHudItem - u32 PlayHudMotion(LPCSTR M, bool bMixIn,u32 state); - void SwitchState(u32 state); - u32 GetState(); - void ActivateHudItem(); - void DeactivateHudItem(); - //-Alundaio int Weapon_GrenadeLauncher_Status (); int Weapon_Scope_Status (); @@ -614,20 +588,6 @@ class CScriptGameObject { void DisableAnomaly (); float GetAnomalyPower (); void SetAnomalyPower (float p); - - //Alun - float GetArtefactHealthRestoreSpeed (); - float GetArtefactRadiationRestoreSpeed (); - float GetArtefactSatietyRestoreSpeed (); - float GetArtefactPowerRestoreSpeed (); - float GetArtefactBleedingRestoreSpeed (); - - void SetArtefactHealthRestoreSpeed (float value); - void SetArtefactRadiationRestoreSpeed (float value); - void SetArtefactSatietyRestoreSpeed (float value); - void SetArtefactPowerRestoreSpeed (float value); - void SetArtefactBleedingRestoreSpeed (float value); - //-Alun // HELICOPTER CHelicopter* get_helicopter (); @@ -805,10 +765,12 @@ class CScriptGameObject { bool is_door_blocked_by_npc () const; bool is_weapon_going_to_be_strapped ( CScriptGameObject const* object ) const; - //AVO: functions for object testing - _DECLARE_FUNCTION10(IsGameObject, bool); + +#ifdef GAME_OBJECT_TESTING_EXPORTS + //AVO: functions for object testing + //_DECLARE_FUNCTION10(IsGameObject, bool); //_DECLARE_FUNCTION10(IsCar, bool); - _DECLARE_FUNCTION10(IsHeli, bool); + //_DECLARE_FUNCTION10(IsHeli, bool); //_DECLARE_FUNCTION10(IsHolderCustom, bool); _DECLARE_FUNCTION10(IsEntityAlive, bool); _DECLARE_FUNCTION10(IsInventoryItem, bool); @@ -816,9 +778,9 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsActor, bool); _DECLARE_FUNCTION10(IsCustomMonster, bool); _DECLARE_FUNCTION10(IsWeapon, bool); - _DECLARE_FUNCTION10(IsMedkit, bool); - _DECLARE_FUNCTION10(IsEatableItem, bool); - _DECLARE_FUNCTION10(IsAntirad, bool); + //_DECLARE_FUNCTION10(IsMedkit, bool); + //_DECLARE_FUNCTION10(IsEatableItem, bool); + //_DECLARE_FUNCTION10(IsAntirad, bool); _DECLARE_FUNCTION10(IsCustomOutfit, bool); _DECLARE_FUNCTION10(IsScope, bool); _DECLARE_FUNCTION10(IsSilencer, bool); @@ -828,26 +790,66 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsStalker, bool); _DECLARE_FUNCTION10(IsAnomaly, bool); _DECLARE_FUNCTION10(IsMonster, bool); - _DECLARE_FUNCTION10(IsExplosive, bool); - _DECLARE_FUNCTION10(IsScriptZone, bool); - _DECLARE_FUNCTION10(IsProjector, bool); + //_DECLARE_FUNCTION10(IsExplosive, bool); + //_DECLARE_FUNCTION10(IsScriptZone, bool); + //_DECLARE_FUNCTION10(IsProjector, bool); _DECLARE_FUNCTION10(IsTrader, bool); _DECLARE_FUNCTION10(IsHudItem, bool); - _DECLARE_FUNCTION10(IsFoodItem, bool); + //_DECLARE_FUNCTION10(IsFoodItem, bool); _DECLARE_FUNCTION10(IsArtefact, bool); _DECLARE_FUNCTION10(IsAmmo, bool); - _DECLARE_FUNCTION10(IsMissile, bool); - _DECLARE_FUNCTION10(IsPhysicsShellHolder, bool); - _DECLARE_FUNCTION10(IsGrenade, bool); - _DECLARE_FUNCTION10(IsBottleItem, bool); - _DECLARE_FUNCTION10(IsTorch, bool); + //_DECLARE_FUNCTION10(IsMissile, bool); + //_DECLARE_FUNCTION10(IsPhysicsShellHolder, bool); + //_DECLARE_FUNCTION10(IsGrenade, bool); + //_DECLARE_FUNCTION10(IsBottleItem, bool); + //_DECLARE_FUNCTION10(IsTorch, bool); _DECLARE_FUNCTION10(IsWeaponGL, bool); _DECLARE_FUNCTION10(IsInventoryBox, bool); - bool IsActorIndoors() const; - bool IsNPCIndoors() const; - void SetHealthEx(float hp); - //end AVO +#endif +//Alundaio +#ifdef GAME_OBJECT_EXTENDED_EXPORTS + void SetHealthEx(float hp); //AVO + float GetLuminocityHemi(); + float GetLuminocity(); + //Weapon + void Weapon_AddonAttach(CScriptGameObject* item); + void Weapon_AddonDetach(LPCSTR item_section); + + //Weapon & Outfit + bool InstallUpgrade(LPCSTR upgrade); + bool HasUpgrade(LPCSTR upgrade); + void IterateInstalledUpgrades(luabind::functor functor); + + //Car + CScriptGameObject* GetAttachedVehicle(); + void AttachVehicle(CScriptGameObject* veh); + void DetachVehicle(); + //Any class that is derived from CHudItem + u32 PlayHudMotion(LPCSTR M, bool bMixIn, u32 state); + void SwitchState(u32 state); + u32 GetState(); + //Works for anything with visual + bool IsBoneVisible(LPCSTR bone_name); + void SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive = true); + + //Anything with PPhysicShell (ie. car, actor, stalker, monster, heli) + void ForceSetPosition(Fvector pos, bool bActivate = false); + + //Artifacts + float GetArtefactHealthRestoreSpeed(); + float GetArtefactRadiationRestoreSpeed(); + float GetArtefactSatietyRestoreSpeed(); + float GetArtefactPowerRestoreSpeed(); + float GetArtefactBleedingRestoreSpeed(); + + void SetArtefactHealthRestoreSpeed(float value); + void SetArtefactRadiationRestoreSpeed(float value); + void SetArtefactSatietyRestoreSpeed(float value); + void SetArtefactPowerRestoreSpeed(float value); + void SetArtefactBleedingRestoreSpeed(float value); +#endif +//-Alundaio doors::door* m_door; diff --git a/src/xrGame/script_game_object2.cpp b/src/xrGame/script_game_object2.cpp index de2a611c8fe..79d2ed3a50d 100644 --- a/src/xrGame/script_game_object2.cpp +++ b/src/xrGame/script_game_object2.cpp @@ -75,8 +75,15 @@ CScriptGameObject *CScriptGameObject::best_weapon() return (0); } else { + //Alundaio: extra security CGameObject *game_object = object_handler->best_weapon() ? &object_handler->best_weapon()->object() : 0; - return (game_object ? game_object->lua_game_object() : 0); + if (!game_object) + return (0); + + if (!game_object->H_Parent() || game_object->H_Parent()->ID() != object().ID()) + return (0); + //-Alundaio + return (game_object->lua_game_object()); } } diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 84b17104b1f..610061b78a1 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -40,10 +40,12 @@ #include "space_restriction_manager.h" #include "artefact.h" //Alundaio +#ifdef GAME_OBJECT_EXTENDED_EXPORTS #include "holder_custom.h" #include "actor.h" #include "CharacterPhysicsSupport.h" #include "player_hud.h" +#endif //-Alundaio namespace MemorySpace { @@ -1106,7 +1108,8 @@ bool CScriptGameObject::is_weapon_going_to_be_strapped ( CScriptGameObject const return stalker->is_weapon_going_to_be_strapped ( &object->object() ); } -//Alundaio: Taken from Radium +//Alundaio: +#ifdef GAME_OBJECT_EXTENDED_EXPORTS float CScriptGameObject::GetArtefactHealthRestoreSpeed() { CArtefact* artefact = smart_cast(&object()); @@ -1184,7 +1187,7 @@ void CScriptGameObject::SetArtefactBleedingRestoreSpeed(float value) artefact->SetBleedingPower(value); } -//Alundaio + void CScriptGameObject::AttachVehicle(CScriptGameObject* veh) { CActor *actor = smart_cast(&object()); @@ -1277,41 +1280,58 @@ u32 CScriptGameObject::GetState() return 65535; } -void CScriptGameObject::ActivateHudItem() +void CScriptGameObject::SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive) { - CWeapon* Weapon = object().cast_weapon(); - if (Weapon){ - Weapon->ActivateItem(); + IKinematics* k = object().Visual()->dcast_PKinematics(); + + if (!k) return; - } - CInventoryItem* IItem = object().cast_inventory_item(); - if (!IItem) + u16 bone_id = k->LL_BoneID(bone_name); + if (bone_id == BI_NONE) return; - IItem->ActivateItem(); + if (bVisibility == !k->LL_GetBoneVisible(bone_id)) + k->LL_SetBoneVisible(bone_id, bVisibility, bRecursive); return; } -void CScriptGameObject::DeactivateHudItem() +bool CScriptGameObject::IsBoneVisible(LPCSTR bone_name) { - CWeapon* Weapon = object().cast_weapon(); - if (Weapon){ - Weapon->DeactivateItem(); - return; - } + IKinematics* k = object().Visual()->dcast_PKinematics(); - CInventoryItem* IItem = object().cast_inventory_item(); - if (!IItem) - return; + if (!k) + return false; - IItem->DeactivateItem(); + u16 bone_id = k->LL_BoneID(bone_name); + if (bone_id == BI_NONE) + return false; - return; + return k->LL_GetBoneVisible(bone_id)==TRUE?true:false; +} + +float CScriptGameObject::GetLuminocityHemi() +{ + CObject *e = smart_cast(&object()); + if (!e || !e->renderable_ROS()) + { + return 0; + } + return e->renderable_ROS()->get_luminocity_hemi(); } -void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate = false) +float CScriptGameObject::GetLuminocity() +{ + CObject *e = smart_cast(&object()); + if (!e || !e->renderable_ROS()) + { + return 0; + } + return e->renderable_ROS()->get_luminocity(); +} + +void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate) { CPhysicsShellHolder* sh = object().cast_physics_shell_holder(); if (!sh) @@ -1333,4 +1353,5 @@ void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate = false) else ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "force_set_position: object %s has no physics shell!", *object().cName()); } +#endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index 2ee5cdbdb2a..cee3bcc0702 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -366,6 +366,7 @@ void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) } //AVO: directly set entity health instead of going throuhg normal health property which operates on delta +#ifdef GAME_OBJECT_TESTING_EXPORTS void CScriptGameObject::SetHealthEx(float hp) { CEntity *obj = smart_cast(&object()); @@ -378,22 +379,22 @@ void CScriptGameObject::SetHealthEx(float hp) // AVO: functions for testing object class // Credits: KD //#include "car.h" -#include "helicopter.h" +//#include "helicopter.h" #include "actor.h" #include "customoutfit.h" //#include "customzone.h" #include "ai\monsters\basemonster\base_monster.h" //#include "Artifact.h" -#include "medkit.h" -#include "antirad.h" +//#include "medkit.h" +//#include "antirad.h" #include "scope.h" #include "silencer.h" #include "torch.h" #include "GrenadeLauncher.h" #include "searchlight.h" //#include "WeaponAmmo.h" -#include "grenade.h" -#include "BottleItem.h" +//#include "grenade.h" +//#include "BottleItem.h" #include "WeaponMagazinedWGrenade.h" #define TEST_OBJECT_CLASS(A,B)\ @@ -406,9 +407,9 @@ bool A () const\ return true;\ };\ -TEST_OBJECT_CLASS(CScriptGameObject::IsGameObject, CGameObject) +//TEST_OBJECT_CLASS(CScriptGameObject::IsGameObject, CGameObject) //TEST_OBJECT_CLASS(CScriptGameObject::IsCar, CCar) -TEST_OBJECT_CLASS(CScriptGameObject::IsHeli, CHelicopter) +//TEST_OBJECT_CLASS(CScriptGameObject::IsHeli, CHelicopter) //TEST_OBJECT_CLASS(CScriptGameObject::IsHolderCustom, CHolderCustom) TEST_OBJECT_CLASS(CScriptGameObject::IsEntityAlive, CEntityAlive) TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryItem, CInventoryItem) @@ -416,9 +417,9 @@ TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryOwner, CInventoryOwner) TEST_OBJECT_CLASS(CScriptGameObject::IsActor, CActor) TEST_OBJECT_CLASS(CScriptGameObject::IsCustomMonster, CCustomMonster) TEST_OBJECT_CLASS(CScriptGameObject::IsWeapon, CWeapon) -TEST_OBJECT_CLASS(CScriptGameObject::IsMedkit, CMedkit) -TEST_OBJECT_CLASS(CScriptGameObject::IsEatableItem, CEatableItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsAntirad, CAntirad) +//TEST_OBJECT_CLASS(CScriptGameObject::IsMedkit, CMedkit) +//TEST_OBJECT_CLASS(CScriptGameObject::IsEatableItem, CEatableItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsAntirad, CAntirad) TEST_OBJECT_CLASS(CScriptGameObject::IsCustomOutfit, CCustomOutfit) TEST_OBJECT_CLASS(CScriptGameObject::IsScope, CScope) TEST_OBJECT_CLASS(CScriptGameObject::IsSilencer, CSilencer) @@ -428,20 +429,20 @@ TEST_OBJECT_CLASS(CScriptGameObject::IsSpaceRestrictor, CSpaceRestrictor) TEST_OBJECT_CLASS(CScriptGameObject::IsStalker, CAI_Stalker) TEST_OBJECT_CLASS(CScriptGameObject::IsAnomaly, CCustomZone) TEST_OBJECT_CLASS(CScriptGameObject::IsMonster, CBaseMonster) -TEST_OBJECT_CLASS(CScriptGameObject::IsExplosive, CExplosive) -TEST_OBJECT_CLASS(CScriptGameObject::IsScriptZone, CScriptZone) -TEST_OBJECT_CLASS(CScriptGameObject::IsProjector, CProjector) +//TEST_OBJECT_CLASS(CScriptGameObject::IsExplosive, CExplosive) +//TEST_OBJECT_CLASS(CScriptGameObject::IsScriptZone, CScriptZone) +//TEST_OBJECT_CLASS(CScriptGameObject::IsProjector, CProjector) TEST_OBJECT_CLASS(CScriptGameObject::IsTrader, CAI_Trader) TEST_OBJECT_CLASS(CScriptGameObject::IsHudItem, CHudItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsFoodItem, CFoodItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsFoodItem, CFoodItem) TEST_OBJECT_CLASS(CScriptGameObject::IsArtefact, CArtefact) TEST_OBJECT_CLASS(CScriptGameObject::IsAmmo, CWeaponAmmo) -TEST_OBJECT_CLASS(CScriptGameObject::IsMissile, CMissile) -TEST_OBJECT_CLASS(CScriptGameObject::IsPhysicsShellHolder, CPhysicsShellHolder) -TEST_OBJECT_CLASS(CScriptGameObject::IsGrenade, CGrenade) -TEST_OBJECT_CLASS(CScriptGameObject::IsBottleItem, CBottleItem) -TEST_OBJECT_CLASS(CScriptGameObject::IsTorch, CTorch) +//TEST_OBJECT_CLASS(CScriptGameObject::IsMissile, CMissile) +//TEST_OBJECT_CLASS(CScriptGameObject::IsPhysicsShellHolder, CPhysicsShellHolder) +//TEST_OBJECT_CLASS(CScriptGameObject::IsGrenade, CGrenade) +//TEST_OBJECT_CLASS(CScriptGameObject::IsBottleItem, CBottleItem) +//TEST_OBJECT_CLASS(CScriptGameObject::IsTorch, CTorch) TEST_OBJECT_CLASS(CScriptGameObject::IsWeaponGL, CWeaponMagazinedWGrenade) TEST_OBJECT_CLASS(CScriptGameObject::IsInventoryBox, CInventoryBox) - +#endif //end AVO \ No newline at end of file diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 65124f2cd75..e107cbc8453 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -49,6 +49,7 @@ #include "physicobject.h" //Alundaio #include "inventory_upgrade_manager.h" +#include "inventory_upgrade_root.h" #include "inventory_item.h" //-Alundaio @@ -1608,6 +1609,7 @@ bool CScriptGameObject::is_door_blocked_by_npc() const } //Alundaio: Methods for exporting the ability to detach/attach addons for magazined weapons +#ifdef GAME_OBJECT_EXTENDED_EXPORTS void CScriptGameObject::Weapon_AddonAttach(CScriptGameObject* item) { CWeaponMagazined* weapon = smart_cast(&object()); @@ -1643,25 +1645,22 @@ void CScriptGameObject::Weapon_AddonDetach(LPCSTR item_section) } } -void CScriptGameObject::AddUpgrade(LPCSTR upgrade) +bool CScriptGameObject::InstallUpgrade(LPCSTR upgrade) { CInventoryItem* item = smart_cast(&object()); if (!item) { - ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member AddUpgrade!"); - return; + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CInventoryItem : cannot access class member InstallUpgrade!"); + return false; } if (!pSettings->section_exist(upgrade)) - return; - - item->install_upgrade(upgrade); - //ai().alife().inventory_upgrade_manager().upgrade_install(*item, (upgrade), false); + return false; - return; + return ai().alife().inventory_upgrade_manager().upgrade_install(*item, upgrade, false); } -bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) const +bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) { CInventoryItem* item = smart_cast(&object()); if (!item) @@ -1673,7 +1672,7 @@ bool CScriptGameObject::HasUpgrade(LPCSTR upgrade) const if (!pSettings->section_exist(upgrade)) return false; - return item->verify_upgrade(upgrade); + return item->has_upgrade(upgrade); } void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) @@ -1690,4 +1689,5 @@ void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) functor((*ib).c_str(), object().lua_game_object()); } } +#endif //Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index d221a77bd07..2d22d1b4eeb 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -94,25 +94,37 @@ void CScriptGameObject::script_register(lua_State *L) //AVO: custom callbacks // input +#ifdef INPUT_CALLBACKS value("key_press", int(GameObject::eKeyPress)), value("key_release", int(GameObject::eKeyRelease)), value("key_hold", int(GameObject::eKeyHold)), +#endif +#ifdef MOUSE_INPUT_CALLBACKS value("mouse_move", int(GameObject::eMouseMove)), value("mouse_wheel", int(GameObject::eMouseWheel)), - // inventory - value("item_to_belt", int(GameObject::eItemToBelt)), - value("item_to_slot", int(GameObject::eItemToSlot)), - value("item_to_ruck", int(GameObject::eItemToRuck)), +#endif // actor +#ifdef ACTOR_BEFORE_DEATH_CALLBACK value("actor_before_death", int(GameObject::eActorBeforeDeath)), +#endif // vehicle +#ifdef ENABLE_CAR value("on_attach_vehicle", int(GameObject::eAttachVehicle)), value("on_detach_vehicle", int(GameObject::eDetachVehicle)), value("on_use_vehicle", int(GameObject::eUseVehicle)), - // weapon +#endif +#ifdef EXTENDED_WEAPON_CALLBACKS + //weapon value("weapon_jammed", int(GameObject::eOnWeaponJammed)), value("weapon_zoom_in", int(GameObject::eOnWeaponZoomIn)), value("weapon_zoom_out", int(GameObject::eOnWeaponZoomOut)), +#endif +#ifdef EXTENDED_ITEM_CALLBACKS + // inventory + value("item_to_belt", int(GameObject::eItemToBelt)), + value("item_to_slot", int(GameObject::eItemToSlot)), + value("item_to_ruck", int(GameObject::eItemToRuck)), +#endif //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 4d88f8ecb61..d532c0451c6 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -341,32 +341,37 @@ class_ &script_register_game_object2(class_ &script_register_game_object2(class_ &script_register_game_object2(class_ 3.f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } } @@ -616,17 +611,9 @@ void CStalkerActionLookOut::execute() if (!mem_object.m_object) return; - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); object().best_cover(mem_object.m_object_params.m_position); - //-Alundaio if (current_cover(m_object) >= 3.f) { object().movement().set_nearest_accessible_position(); @@ -709,15 +696,7 @@ void CStalkerActionHoldPosition::execute() if (current_cover(m_object) < 3.f) m_storage->set_property(eWorldPropertyLookedOut, false); - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); if (completed()) { if ( @@ -833,15 +812,7 @@ void CStalkerActionDetourEnemy::execute() m_storage->set_property(eWorldPropertyEnemyDetoured, true); } - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } ////////////////////////////////////////////////////////////////////////// @@ -1032,15 +1003,7 @@ void CStalkerActionSuddenAttack::execute() if (visible_now) object().sight().setup(CSightAction(object().memory().enemy().selected(), true)); else { - //Alundaio: Prevent stalkers from staring at floor or ceiling for this action - if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) - { - Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); - } - else - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) diff --git a/src/xrGame/ui/UIHudStatesWnd.cpp b/src/xrGame/ui/UIHudStatesWnd.cpp index d2079c2a5bf..d9cdae19c86 100644 --- a/src/xrGame/ui/UIHudStatesWnd.cpp +++ b/src/xrGame/ui/UIHudStatesWnd.cpp @@ -327,6 +327,7 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_cur_ammo->Show ( true ); m_ui_weapon_fmj_ammo->Show ( true ); m_ui_weapon_ap_ammo->Show ( true ); + m_ui_weapon_third_ammo->Show(true); //Alundaio: third_ammo m_fire_mode->Show ( true ); m_ui_grenade->Show ( true ); @@ -334,24 +335,33 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_fmj_ammo->SetText ( m_item_info.fmj_ammo.c_str() ); m_ui_weapon_ap_ammo->SetText ( m_item_info.ap_ammo.c_str() ); - //Alundaio: + //Alundaio: Third ammo type and also set text color for each ammo type if (m_ui_weapon_third_ammo) m_ui_weapon_third_ammo->SetText(m_item_info.third_ammo.c_str()); - //-Alundaio m_ui_grenade->SetText ( m_item_info.grenade.c_str() ); + m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + m_ui_weapon_ap_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + m_ui_weapon_third_ammo->SetTextColor(color_rgba(238, 155, 23, 150)); + CWeaponMagazinedWGrenade* wpn = smart_cast(item); if(wpn && wpn->m_bGrenadeMode) - { - m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238,155,23,150)); m_ui_grenade->SetTextColor(color_rgba(238,155,23,255)); - } else + m_ui_grenade->SetTextColor(color_rgba(238, 155, 23, 150)); + + CWeaponMagazined* wpnm = smart_cast(item); + if (wpnm) { - m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238,155,23,255)); - m_ui_grenade->SetTextColor(color_rgba(238,155,23,150)); + if (wpnm->m_ammoType == 0) + m_ui_weapon_fmj_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); + else if (wpnm->m_ammoType == 1) + m_ui_weapon_ap_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); + else if (wpnm->m_ammoType == 2) + m_ui_weapon_third_ammo->SetTextColor(color_rgba(238, 155, 23, 255)); } + //-Alundaio } else { @@ -360,6 +370,7 @@ void CUIHudStatesWnd::UpdateActiveItemInfo( CActor* actor ) m_ui_weapon_cur_ammo->Show ( false ); m_ui_weapon_fmj_ammo->Show ( false ); m_ui_weapon_ap_ammo->Show ( false ); + m_ui_weapon_third_ammo->Show(false); //Alundaio: Third Ammo m_fire_mode->Show ( false ); m_ui_grenade->Show ( false ); } diff --git a/src/xrGame/ui/UIInventoryUpgradeWnd.cpp b/src/xrGame/ui/UIInventoryUpgradeWnd.cpp index c2325e2cd61..01d4f8641e6 100644 --- a/src/xrGame/ui/UIInventoryUpgradeWnd.cpp +++ b/src/xrGame/ui/UIInventoryUpgradeWnd.cpp @@ -35,7 +35,9 @@ #include "../WeaponRPG7.h" #include "../CustomOutfit.h" #include "../ActorHelmet.h" +#include "script_game_object.h" //Alundaio +using namespace luabind; //Alundaio // ----- const LPCSTR g_inventory_upgrade_xml = "inventory_upgrade.xml"; @@ -338,6 +340,15 @@ void CUIInventoryUpgradeWnd::OnMesBoxYes() CUIActorMenu* parent_wnd = smart_cast( m_pParentWnd ); if ( parent_wnd ) { + //Alundaio: tell script that item has been upgraded + luabind::functor funct; + ai().script_engine().functor("inventory_upgrades.effect_upgrade_item", funct); + if (funct) + { + CGameObject* GO = m_inv_item->cast_game_object(); + funct(GO->lua_game_object(),m_cur_upgrade_id); + } + //-Alundaio parent_wnd->UpdateActor(); parent_wnd->SeparateUpgradeItem(); } diff --git a/src/xrServerEntities/inventory_space.h b/src/xrServerEntities/inventory_space.h index 26f178315fd..2b426ca6e24 100644 --- a/src/xrServerEntities/inventory_space.h +++ b/src/xrServerEntities/inventory_space.h @@ -18,13 +18,17 @@ enum{ ARTEFACT_SLOT, // artefact HELMET_SLOT, //Alundaio: More slots for custom uses +#ifdef MORE_INVENTORY_SLOTS CUSTOM_SLOT_1, CUSTOM_SLOT_2, CUSTOM_SLOT_3, CUSTOM_SLOT_4, CUSTOM_SLOT_5, - //-Alundaio LAST_SLOT = CUSTOM_SLOT_5 +#else + LAST_SLOT = HELMET_SLOT +#endif + //-Alundaio }; #define RUCK_HEIGHT 280 diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index e57fbd7fbdb..210cf0f9a67 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -102,6 +102,7 @@ Fvector CScriptIniFile::r_fvector3(LPCSTR S, LPCSTR L) } //AVO: additional methods to allow writing to ini files +#ifdef INI_FILE_EXTENDED_EXPORTS void CScriptIniFile::w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment) { THROW3(inherited::section_exist(S), "Cannot find section", S); @@ -240,4 +241,5 @@ void CScriptIniFile::set_override_names(BOOL b) u32 CScriptIniFile::section_count() { return(inherited::section_count()); -} \ No newline at end of file +} +#endif \ No newline at end of file diff --git a/src/xrServerEntities/script_ini_file.h b/src/xrServerEntities/script_ini_file.h index d9e747a70fa..074f1914280 100644 --- a/src/xrServerEntities/script_ini_file.h +++ b/src/xrServerEntities/script_ini_file.h @@ -33,6 +33,7 @@ class CScriptIniFile : public CInifile { float r_float (LPCSTR S, LPCSTR L); Fvector r_fvector3 (LPCSTR S, LPCSTR L); //AVO: additional methods to allow writing to ini files +#ifdef INI_FILE_EXTENDED_EXPORTS void w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment /* = 0 */); void w_color(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment /* = 0 */); void w_fcolor(LPCSTR S, LPCSTR L, const Fcolor& V, LPCSTR comment /* = 0 */); @@ -54,6 +55,7 @@ class CScriptIniFile : public CInifile { void remove_line(LPCSTR S, LPCSTR L); void set_override_names(BOOL b); u32 section_count(); +#endif DECLARE_SCRIPT_REGISTER_FUNCTION }; diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index c432e5b97e3..32433bb238c 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -17,6 +17,7 @@ CScriptIniFile *get_system_ini() } //Alundaio: The extended ability to reload system ini after application launch +#ifdef INI_FILE_EXTENDED_EXPORTS CScriptIniFile *reload_system_ini() { pSettings->Destroy(const_cast(pSettings)); @@ -25,6 +26,7 @@ CScriptIniFile *reload_system_ini() pSettings = xr_new(fname); return ((CScriptIniFile*)pSettings); } +#endif //Alundaio: END #ifdef XRGAME_EXPORTS @@ -78,6 +80,7 @@ void CScriptIniFile::script_register(lua_State *L) class_("ini_file") .def(constructor()) //Alundaio: Extend script ini file +#ifdef INI_FILE_EXTENDED_EXPORTS .def(constructor()) .def("w_bool",&CScriptIniFile::w_bool) .def("w_color", &CScriptIniFile::w_color) @@ -100,6 +103,7 @@ void CScriptIniFile::script_register(lua_State *L) .def("remove_line", &CScriptIniFile::remove_line) .def("set_override_names", &CScriptIniFile::set_override_names) .def("section_count", &CScriptIniFile::section_count) +#endif //Alundaio: END .def("section_exist", &CScriptIniFile::section_exist ) .def("line_exist", &CScriptIniFile::line_exist ) @@ -117,7 +121,9 @@ void CScriptIniFile::script_register(lua_State *L) def("system_ini", &get_system_ini), //Alundaio: extend +#ifdef INI_FILE_EXTENDED_EXPORTS def("reload_system_ini", &reload_system_ini), +#endif //Alundaio:: END #ifdef XRGAME_EXPORTS def("game_ini", &get_game_ini), diff --git a/src/xrServerEntities/script_net_packet_script.cpp b/src/xrServerEntities/script_net_packet_script.cpp index 2c0a2ba5d57..00204210b49 100644 --- a/src/xrServerEntities/script_net_packet_script.cpp +++ b/src/xrServerEntities/script_net_packet_script.cpp @@ -34,10 +34,9 @@ bool r_bool(NET_Packet *self) } //Alundaio: Fix issue with using r_begin -u32 r_begin(NET_Packet *self) +u32 r_begin(NET_Packet *self,u16 type) { - u16 dummy_u16; - return (self->r_begin(dummy_u16)); + return (self->r_begin(type)); } ClientID r_clientID(NET_Packet *self) From 1ee6eb0d458086dcdabf92038b070293f72629b2 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 22 Aug 2015 01:06:46 -0400 Subject: [PATCH 106/166] = fixed inventory cell items not updating progress bar = Corrected some issues with Axel's feature --- src/xrGame/ActorHelmet.cpp | 2 +- src/xrGame/Actor_Events.cpp | 2 +- src/xrGame/CustomOutfit.cpp | 2 +- src/xrGame/Inventory.cpp | 29 +++++++++++++++----------- src/xrGame/alife_trader_abstract.cpp | 9 +++++++- src/xrGame/eatable_item.cpp | 7 ++----- src/xrGame/eatable_item.h | 4 ++-- src/xrGame/ui/UIActorMenu.h | 4 +++- src/xrGame/ui/UIActorMenuInventory.cpp | 3 +++ src/xrGame/ui/UIActorMenu_action.cpp | 6 +++--- src/xrGame/ui/UICellCustomItems.cpp | 1 + src/xrGame/ui/UICellItem.cpp | 28 ++++++++++++------------- src/xrGame/ui/UIDragDropListEx.cpp | 1 - src/xrGame/ui/UIProgressBar.cpp | 6 ++++++ src/xrGame/ui/UIProgressBar.h | 1 + 15 files changed, 63 insertions(+), 42 deletions(-) diff --git a/src/xrGame/ActorHelmet.cpp b/src/xrGame/ActorHelmet.cpp index 22904e5f117..fbbc3e91e9b 100644 --- a/src/xrGame/ActorHelmet.cpp +++ b/src/xrGame/ActorHelmet.cpp @@ -61,7 +61,7 @@ void CHelmet::Load(LPCSTR section) m_fShowNearestEnemiesDistance = READ_IF_EXISTS(pSettings, r_float, section, "nearest_enemies_show_dist", 0.0f ); // Added by Axel, to enable optional condition use on any item - m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); + m_flags.set(FUsingCondition, READ_IF_EXISTS(pSettings, r_bool, section, "use_condition", TRUE)); } void CHelmet::ReloadBonesProtection() diff --git a/src/xrGame/Actor_Events.cpp b/src/xrGame/Actor_Events.cpp index 08cfee019cd..03bc7d650ce 100644 --- a/src/xrGame/Actor_Events.cpp +++ b/src/xrGame/Actor_Events.cpp @@ -239,7 +239,7 @@ void CActor::OnEvent(NET_Packet& P, u16 type) inventory().Ruck( iitem ); break;//2 case GEG_PLAYER_ITEM_EAT: - inventory().Eat( iitem ); + inventory().Eat( iitem ); break;//2 }//switch diff --git a/src/xrGame/CustomOutfit.cpp b/src/xrGame/CustomOutfit.cpp index 52fa33dc4bd..fe1e16905b4 100644 --- a/src/xrGame/CustomOutfit.cpp +++ b/src/xrGame/CustomOutfit.cpp @@ -116,7 +116,7 @@ void CCustomOutfit::Load(LPCSTR section) bIsHelmetAvaliable = !!READ_IF_EXISTS(pSettings, r_bool, section, "helmet_avaliable", true); // Added by Axel, to enable optional condition use on any item - m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); + m_flags.set(FUsingCondition, READ_IF_EXISTS(pSettings, r_bool, section, "use_condition", TRUE)); } void CCustomOutfit::ReloadBonesProtection() diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 8998a2e86cc..8fdb9424117 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1042,19 +1042,19 @@ bool CInventory::Eat(PIItem pIItem) { //устанаовить съедобна ли вещь CEatableItem* pItemToEat = smart_cast(pIItem); - if ( !pItemToEat ) return false; + if (!pItemToEat) return false; CEntityAlive *entity_alive = smart_cast(m_pOwner); - if ( !entity_alive ) return false; + if (!entity_alive) return false; + + CInventoryOwner* IO = smart_cast(entity_alive); + if (!IO) return false; - CInventoryOwner* IO = smart_cast(entity_alive); - if ( !IO ) return false; - CInventory* pInventory = pItemToEat->m_pInventory; - if ( !pInventory || pInventory != this ) return false; - if ( pInventory != IO->m_inventory ) return false; - if ( pItemToEat->object().H_Parent()->ID() != entity_alive->ID() ) return false; - + if (!pInventory || pInventory != this) return false; + if (pInventory != IO->m_inventory) return false; + if (pItemToEat->object().H_Parent()->ID() != entity_alive->ID()) return false; + if (!pItemToEat->UseBy(entity_alive)) return false; @@ -1062,14 +1062,19 @@ bool CInventory::Eat(PIItem pIItem) Msg( "--- Actor [%d] use or eat [%d][%s]", entity_alive->ID(), pItemToEat->object().ID(), pItemToEat->object().cNameSect().c_str() ); #endif // MP_LOGGING - if(IsGameTypeSingle() && Actor()->m_inventory == this) + if (IsGameTypeSingle() && Actor()->m_inventory == this) + { Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); + } - if (pItemToEat->CanDelete()) + if (pItemToEat->Empty()) { + if (!pItemToEat->CanDelete()) + return false; + pIItem->SetDropManual(TRUE); - return false; } + return true; } diff --git a/src/xrGame/alife_trader_abstract.cpp b/src/xrGame/alife_trader_abstract.cpp index ad21b2e3aba..2efe05fea05 100644 --- a/src/xrGame/alife_trader_abstract.cpp +++ b/src/xrGame/alife_trader_abstract.cpp @@ -169,8 +169,15 @@ void add_online_impl (CSE_ALifeDynamicObject *object, const bool &update_re //-Alundaio CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); + if (!l_tpALifeDynamicObject) + continue; + CSE_ALifeInventoryItem *l_tpALifeInventoryItem = smart_cast(l_tpALifeDynamicObject); - R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + if (!l_tpALifeInventoryItem) + continue; + + //R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + l_tpALifeInventoryItem->base()->s_flags.or(M_SPAWN_UPDATE); CSE_Abstract *l_tpAbstract = smart_cast(l_tpALifeInventoryItem); object->alife().server().entity_Destroy(l_tpAbstract); diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 45b50d9cb65..01a701c6080 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -25,7 +25,7 @@ CEatableItem::CEatableItem() m_iMaxUses = 1; m_iRemainingUses = 1; - m_bRemoveAfterUse = true; + m_bRemoveAfterUse = TRUE; } CEatableItem::~CEatableItem() @@ -43,7 +43,7 @@ void CEatableItem::Load(LPCSTR section) inherited::Load(section); m_iRemainingUses = m_iMaxUses = READ_IF_EXISTS( pSettings, r_u16, section, "max_uses", 1 ); - m_bRemoveAfterUse = READ_IF_EXISTS( pSettings, r_bool, section, "remove_after_use", TRUE ); + m_bRemoveAfterUse = READ_IF_EXISTS(pSettings, r_bool, section, "remove_after_use", TRUE); if ( IsUsingCondition()) { @@ -148,8 +148,5 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) } SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - CurrentGameUI()->HideActorMenu(); - CurrentGameUI()->ShowActorMenu(); - return true; } \ No newline at end of file diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 7f53f13f14c..60deaa72774 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -19,7 +19,7 @@ class CEatableItem : public CInventoryItem { u16 m_iMaxUses; u16 m_iRemainingUses; - bool m_bRemoveAfterUse; + BOOL m_bRemoveAfterUse; public: CEatableItem (); @@ -39,7 +39,7 @@ class CEatableItem : public CInventoryItem { virtual bool UseBy (CEntityAlive* npc); bool Empty() const { return m_iRemainingUses == 0; }; - bool CanDelete() const { return ( Empty() && ( m_bRemoveAfterUse == true )); }; + bool CanDelete() const { return m_bRemoveAfterUse==TRUE; }; virtual u16 GetMaxUses() const { return m_iMaxUses; }; virtual u16 GetRemainingUses() const { return m_iRemainingUses; }; }; \ No newline at end of file diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index a4f21179196..9ae9a11e7f1 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -212,7 +212,7 @@ class CUIActorMenu : public CUIDialogWnd, void BindDragDropListEvents (CUIDragDropListEx* lst); EDDListType GetListType (CUIDragDropListEx* l); - CUIDragDropListEx* GetListByType (EDDListType t); + //CUIDragDropListEx* GetListByType (EDDListType t); //Alundaio: Make public CUIDragDropListEx* GetSlotList (u16 slot_idx); bool CanSetItemToList (PIItem item, CUIDragDropListEx* l, u16& ret_slot); @@ -339,4 +339,6 @@ class CUIActorMenu : public CUIDialogWnd, IC UIHint* get_hint_wnd () { return m_hint_wnd; } + CUIDragDropListEx* GetListByType(EDDListType t); //Alundaio: Make public + }; // class CUIActorMenu diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 6ecc95385d5..3e0090bd459 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -739,6 +739,9 @@ bool CUIActorMenu::TryUseItem( CUICellItem* cell_itm ) { return false; } + + cell_itm->UpdateConditionProgressBar(); //Alundaio + u16 recipient = m_pActorInvOwner->object_id(); if ( item->parent_id() != recipient ) { diff --git a/src/xrGame/ui/UIActorMenu_action.cpp b/src/xrGame/ui/UIActorMenu_action.cpp index ed39827a8f0..951f02d3308 100644 --- a/src/xrGame/ui/UIActorMenu_action.cpp +++ b/src/xrGame/ui/UIActorMenu_action.cpp @@ -146,8 +146,8 @@ bool CUIActorMenu::OnItemDrop(CUICellItem* itm) OnItemDropped (CurrentIItem(), new_owner, old_owner); - UpdateItemsPlace (); - UpdateConditionProgressBars (); + UpdateConditionProgressBars(); + UpdateItemsPlace(); return true; } @@ -236,8 +236,8 @@ bool CUIActorMenu::OnItemDbClick(CUICellItem* itm) }; //switch - UpdateItemsPlace(); UpdateConditionProgressBars(); + UpdateItemsPlace(); return true; } diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index 08477d66768..793cc006c9f 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -86,6 +86,7 @@ void CUIInventoryCellItem::SetIsHelper (bool is_helper) void CUIInventoryCellItem::Update() { inherited::Update (); + inherited:UpdateConditionProgressBar(); //Alundaio UpdateItemText(); u32 color = GetTextureColor(); diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index d2410634715..c5b6bec3125 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -132,33 +132,34 @@ void CUICellItem::Update() bool CUICellItem::OnMouseAction(float x, float y, EUIMessages mouse_action) { - if ( mouse_action == WINDOW_LBUTTON_DOWN ) + if (mouse_action == WINDOW_LBUTTON_DOWN) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_LBUTTON_CLICK, NULL ); - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_SELECTED, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_LBUTTON_CLICK, NULL); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_SELECTED, NULL); m_mouse_selected_item = this; return false; } - else if ( mouse_action == WINDOW_MOUSE_MOVE ) + else if (mouse_action == WINDOW_MOUSE_MOVE) { - if ( pInput->iGetAsyncBtnState(0) && m_mouse_selected_item && m_mouse_selected_item == this ) + if (pInput->iGetAsyncBtnState(0) && m_mouse_selected_item && m_mouse_selected_item == this) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DRAG, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DRAG, NULL); return true; } } - else if ( mouse_action == WINDOW_LBUTTON_DB_CLICK ) + else if (mouse_action == WINDOW_LBUTTON_DB_CLICK) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DB_CLICK, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DB_CLICK, NULL); return true; } - else if ( mouse_action == WINDOW_RBUTTON_DOWN ) + else if (mouse_action == WINDOW_RBUTTON_DOWN) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_RBUTTON_CLICK, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_RBUTTON_CLICK, NULL); return true; } - + m_mouse_selected_item = NULL; + return false; }; @@ -168,7 +169,6 @@ bool CUICellItem::OnKeyboardAction(int dik, EUIMessages keyboard_action) { if (GetAccelerator() == dik) { - GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DB_CLICK, NULL); return true; } } @@ -212,7 +212,7 @@ void CUICellItem::UpdateConditionProgressBar() { PIItem itm = (PIItem)m_pData; if ( itm->IsUsingCondition()) - { + { float cond = itm->GetCondition(); CEatableItem* eitm = smart_cast( itm ); @@ -236,7 +236,7 @@ void CUICellItem::UpdateConditionProgressBar() m_pConditionState->ShowBackground( false ); } - m_pConditionState->m_bUseColor = false; + m_pConditionState->m_bNoLerp = true; } } diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index d3cbc27e11a..2ba4014a67f 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -300,7 +300,6 @@ void CUIDragDropListEx::Compact() } } - void CUIDragDropListEx::Draw() { inherited::Draw (); diff --git a/src/xrGame/ui/UIProgressBar.cpp b/src/xrGame/ui/UIProgressBar.cpp index 851e674cc10..e3713f017d8 100644 --- a/src/xrGame/ui/UIProgressBar.cpp +++ b/src/xrGame/ui/UIProgressBar.cpp @@ -10,6 +10,7 @@ CUIProgressBar::CUIProgressBar(void) m_bBackgroundPresent = false; m_bUseColor = false; + m_bNoLerp = false; //Alundaio AttachChild (&m_UIBackgroundItem); AttachChild (&m_UIProgressItem); @@ -55,6 +56,11 @@ void CUIProgressBar::UpdateProgressBar() if(m_bUseColor) { + if (m_bNoLerp) + { + m_UIProgressItem.SetTextureColor(m_maxColor.get()); + return; + } Fcolor curr; curr.lerp (m_minColor,m_middleColor,m_maxColor,fCurrentLength); m_UIProgressItem.SetTextureColor (curr.get()); diff --git a/src/xrGame/ui/UIProgressBar.h b/src/xrGame/ui/UIProgressBar.h index 04ea382c887..8fa00b101cb 100644 --- a/src/xrGame/ui/UIProgressBar.h +++ b/src/xrGame/ui/UIProgressBar.h @@ -32,6 +32,7 @@ class CUIProgressBar : public CUIWindow public: bool m_bUseColor; + bool m_bNoLerp; //Alundaio: use only solid color with m_maxColor Fcolor m_minColor; Fcolor m_middleColor; Fcolor m_maxColor; From 92b923409438530e1acef6606cbf967ba82a8489 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 22 Aug 2015 01:06:46 -0400 Subject: [PATCH 107/166] = fixed inventory cell items not updating progress bar = Corrected some issues with Axel's feature --- src/xrGame/ActorHelmet.cpp | 2 +- src/xrGame/Actor_Events.cpp | 2 +- src/xrGame/CustomOutfit.cpp | 2 +- src/xrGame/Inventory.cpp | 29 +++++++++++++++----------- src/xrGame/alife_trader_abstract.cpp | 9 +++++++- src/xrGame/eatable_item.cpp | 7 ++----- src/xrGame/eatable_item.h | 4 ++-- src/xrGame/ui/UIActorMenu.h | 4 +++- src/xrGame/ui/UIActorMenuInventory.cpp | 3 +++ src/xrGame/ui/UIActorMenu_action.cpp | 6 +++--- src/xrGame/ui/UICellCustomItems.cpp | 1 + src/xrGame/ui/UICellItem.cpp | 28 ++++++++++++------------- src/xrGame/ui/UIDragDropListEx.cpp | 1 - src/xrGame/ui/UIProgressBar.cpp | 6 ++++++ src/xrGame/ui/UIProgressBar.h | 1 + 15 files changed, 63 insertions(+), 42 deletions(-) diff --git a/src/xrGame/ActorHelmet.cpp b/src/xrGame/ActorHelmet.cpp index 22904e5f117..fbbc3e91e9b 100644 --- a/src/xrGame/ActorHelmet.cpp +++ b/src/xrGame/ActorHelmet.cpp @@ -61,7 +61,7 @@ void CHelmet::Load(LPCSTR section) m_fShowNearestEnemiesDistance = READ_IF_EXISTS(pSettings, r_float, section, "nearest_enemies_show_dist", 0.0f ); // Added by Axel, to enable optional condition use on any item - m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); + m_flags.set(FUsingCondition, READ_IF_EXISTS(pSettings, r_bool, section, "use_condition", TRUE)); } void CHelmet::ReloadBonesProtection() diff --git a/src/xrGame/Actor_Events.cpp b/src/xrGame/Actor_Events.cpp index 08cfee019cd..03bc7d650ce 100644 --- a/src/xrGame/Actor_Events.cpp +++ b/src/xrGame/Actor_Events.cpp @@ -239,7 +239,7 @@ void CActor::OnEvent(NET_Packet& P, u16 type) inventory().Ruck( iitem ); break;//2 case GEG_PLAYER_ITEM_EAT: - inventory().Eat( iitem ); + inventory().Eat( iitem ); break;//2 }//switch diff --git a/src/xrGame/CustomOutfit.cpp b/src/xrGame/CustomOutfit.cpp index 52fa33dc4bd..fe1e16905b4 100644 --- a/src/xrGame/CustomOutfit.cpp +++ b/src/xrGame/CustomOutfit.cpp @@ -116,7 +116,7 @@ void CCustomOutfit::Load(LPCSTR section) bIsHelmetAvaliable = !!READ_IF_EXISTS(pSettings, r_bool, section, "helmet_avaliable", true); // Added by Axel, to enable optional condition use on any item - m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", TRUE )); + m_flags.set(FUsingCondition, READ_IF_EXISTS(pSettings, r_bool, section, "use_condition", TRUE)); } void CCustomOutfit::ReloadBonesProtection() diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 8998a2e86cc..8fdb9424117 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1042,19 +1042,19 @@ bool CInventory::Eat(PIItem pIItem) { //устанаовить съедобна ли вещь CEatableItem* pItemToEat = smart_cast(pIItem); - if ( !pItemToEat ) return false; + if (!pItemToEat) return false; CEntityAlive *entity_alive = smart_cast(m_pOwner); - if ( !entity_alive ) return false; + if (!entity_alive) return false; + + CInventoryOwner* IO = smart_cast(entity_alive); + if (!IO) return false; - CInventoryOwner* IO = smart_cast(entity_alive); - if ( !IO ) return false; - CInventory* pInventory = pItemToEat->m_pInventory; - if ( !pInventory || pInventory != this ) return false; - if ( pInventory != IO->m_inventory ) return false; - if ( pItemToEat->object().H_Parent()->ID() != entity_alive->ID() ) return false; - + if (!pInventory || pInventory != this) return false; + if (pInventory != IO->m_inventory) return false; + if (pItemToEat->object().H_Parent()->ID() != entity_alive->ID()) return false; + if (!pItemToEat->UseBy(entity_alive)) return false; @@ -1062,14 +1062,19 @@ bool CInventory::Eat(PIItem pIItem) Msg( "--- Actor [%d] use or eat [%d][%s]", entity_alive->ID(), pItemToEat->object().ID(), pItemToEat->object().cNameSect().c_str() ); #endif // MP_LOGGING - if(IsGameTypeSingle() && Actor()->m_inventory == this) + if (IsGameTypeSingle() && Actor()->m_inventory == this) + { Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); + } - if (pItemToEat->CanDelete()) + if (pItemToEat->Empty()) { + if (!pItemToEat->CanDelete()) + return false; + pIItem->SetDropManual(TRUE); - return false; } + return true; } diff --git a/src/xrGame/alife_trader_abstract.cpp b/src/xrGame/alife_trader_abstract.cpp index ad21b2e3aba..2efe05fea05 100644 --- a/src/xrGame/alife_trader_abstract.cpp +++ b/src/xrGame/alife_trader_abstract.cpp @@ -169,8 +169,15 @@ void add_online_impl (CSE_ALifeDynamicObject *object, const bool &update_re //-Alundaio CSE_ALifeDynamicObject *l_tpALifeDynamicObject = ai().alife().objects().object(*I); + if (!l_tpALifeDynamicObject) + continue; + CSE_ALifeInventoryItem *l_tpALifeInventoryItem = smart_cast(l_tpALifeDynamicObject); - R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + if (!l_tpALifeInventoryItem) + continue; + + //R_ASSERT2 (l_tpALifeInventoryItem,"Non inventory item object has parent?!"); + l_tpALifeInventoryItem->base()->s_flags.or(M_SPAWN_UPDATE); CSE_Abstract *l_tpAbstract = smart_cast(l_tpALifeInventoryItem); object->alife().server().entity_Destroy(l_tpAbstract); diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 45b50d9cb65..01a701c6080 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -25,7 +25,7 @@ CEatableItem::CEatableItem() m_iMaxUses = 1; m_iRemainingUses = 1; - m_bRemoveAfterUse = true; + m_bRemoveAfterUse = TRUE; } CEatableItem::~CEatableItem() @@ -43,7 +43,7 @@ void CEatableItem::Load(LPCSTR section) inherited::Load(section); m_iRemainingUses = m_iMaxUses = READ_IF_EXISTS( pSettings, r_u16, section, "max_uses", 1 ); - m_bRemoveAfterUse = READ_IF_EXISTS( pSettings, r_bool, section, "remove_after_use", TRUE ); + m_bRemoveAfterUse = READ_IF_EXISTS(pSettings, r_bool, section, "remove_after_use", TRUE); if ( IsUsingCondition()) { @@ -148,8 +148,5 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) } SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - CurrentGameUI()->HideActorMenu(); - CurrentGameUI()->ShowActorMenu(); - return true; } \ No newline at end of file diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 7f53f13f14c..60deaa72774 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -19,7 +19,7 @@ class CEatableItem : public CInventoryItem { u16 m_iMaxUses; u16 m_iRemainingUses; - bool m_bRemoveAfterUse; + BOOL m_bRemoveAfterUse; public: CEatableItem (); @@ -39,7 +39,7 @@ class CEatableItem : public CInventoryItem { virtual bool UseBy (CEntityAlive* npc); bool Empty() const { return m_iRemainingUses == 0; }; - bool CanDelete() const { return ( Empty() && ( m_bRemoveAfterUse == true )); }; + bool CanDelete() const { return m_bRemoveAfterUse==TRUE; }; virtual u16 GetMaxUses() const { return m_iMaxUses; }; virtual u16 GetRemainingUses() const { return m_iRemainingUses; }; }; \ No newline at end of file diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index a4f21179196..9ae9a11e7f1 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -212,7 +212,7 @@ class CUIActorMenu : public CUIDialogWnd, void BindDragDropListEvents (CUIDragDropListEx* lst); EDDListType GetListType (CUIDragDropListEx* l); - CUIDragDropListEx* GetListByType (EDDListType t); + //CUIDragDropListEx* GetListByType (EDDListType t); //Alundaio: Make public CUIDragDropListEx* GetSlotList (u16 slot_idx); bool CanSetItemToList (PIItem item, CUIDragDropListEx* l, u16& ret_slot); @@ -339,4 +339,6 @@ class CUIActorMenu : public CUIDialogWnd, IC UIHint* get_hint_wnd () { return m_hint_wnd; } + CUIDragDropListEx* GetListByType(EDDListType t); //Alundaio: Make public + }; // class CUIActorMenu diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 6ecc95385d5..3e0090bd459 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -739,6 +739,9 @@ bool CUIActorMenu::TryUseItem( CUICellItem* cell_itm ) { return false; } + + cell_itm->UpdateConditionProgressBar(); //Alundaio + u16 recipient = m_pActorInvOwner->object_id(); if ( item->parent_id() != recipient ) { diff --git a/src/xrGame/ui/UIActorMenu_action.cpp b/src/xrGame/ui/UIActorMenu_action.cpp index ed39827a8f0..951f02d3308 100644 --- a/src/xrGame/ui/UIActorMenu_action.cpp +++ b/src/xrGame/ui/UIActorMenu_action.cpp @@ -146,8 +146,8 @@ bool CUIActorMenu::OnItemDrop(CUICellItem* itm) OnItemDropped (CurrentIItem(), new_owner, old_owner); - UpdateItemsPlace (); - UpdateConditionProgressBars (); + UpdateConditionProgressBars(); + UpdateItemsPlace(); return true; } @@ -236,8 +236,8 @@ bool CUIActorMenu::OnItemDbClick(CUICellItem* itm) }; //switch - UpdateItemsPlace(); UpdateConditionProgressBars(); + UpdateItemsPlace(); return true; } diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index 08477d66768..a860922f530 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -86,6 +86,7 @@ void CUIInventoryCellItem::SetIsHelper (bool is_helper) void CUIInventoryCellItem::Update() { inherited::Update (); + inherited::UpdateConditionProgressBar(); //Alundaio UpdateItemText(); u32 color = GetTextureColor(); diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index d2410634715..c5b6bec3125 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -132,33 +132,34 @@ void CUICellItem::Update() bool CUICellItem::OnMouseAction(float x, float y, EUIMessages mouse_action) { - if ( mouse_action == WINDOW_LBUTTON_DOWN ) + if (mouse_action == WINDOW_LBUTTON_DOWN) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_LBUTTON_CLICK, NULL ); - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_SELECTED, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_LBUTTON_CLICK, NULL); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_SELECTED, NULL); m_mouse_selected_item = this; return false; } - else if ( mouse_action == WINDOW_MOUSE_MOVE ) + else if (mouse_action == WINDOW_MOUSE_MOVE) { - if ( pInput->iGetAsyncBtnState(0) && m_mouse_selected_item && m_mouse_selected_item == this ) + if (pInput->iGetAsyncBtnState(0) && m_mouse_selected_item && m_mouse_selected_item == this) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DRAG, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DRAG, NULL); return true; } } - else if ( mouse_action == WINDOW_LBUTTON_DB_CLICK ) + else if (mouse_action == WINDOW_LBUTTON_DB_CLICK) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DB_CLICK, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DB_CLICK, NULL); return true; } - else if ( mouse_action == WINDOW_RBUTTON_DOWN ) + else if (mouse_action == WINDOW_RBUTTON_DOWN) { - GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_RBUTTON_CLICK, NULL ); + GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_RBUTTON_CLICK, NULL); return true; } - + m_mouse_selected_item = NULL; + return false; }; @@ -168,7 +169,6 @@ bool CUICellItem::OnKeyboardAction(int dik, EUIMessages keyboard_action) { if (GetAccelerator() == dik) { - GetMessageTarget()->SendMessage(this, DRAG_DROP_ITEM_DB_CLICK, NULL); return true; } } @@ -212,7 +212,7 @@ void CUICellItem::UpdateConditionProgressBar() { PIItem itm = (PIItem)m_pData; if ( itm->IsUsingCondition()) - { + { float cond = itm->GetCondition(); CEatableItem* eitm = smart_cast( itm ); @@ -236,7 +236,7 @@ void CUICellItem::UpdateConditionProgressBar() m_pConditionState->ShowBackground( false ); } - m_pConditionState->m_bUseColor = false; + m_pConditionState->m_bNoLerp = true; } } diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index d3cbc27e11a..2ba4014a67f 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -300,7 +300,6 @@ void CUIDragDropListEx::Compact() } } - void CUIDragDropListEx::Draw() { inherited::Draw (); diff --git a/src/xrGame/ui/UIProgressBar.cpp b/src/xrGame/ui/UIProgressBar.cpp index 851e674cc10..e3713f017d8 100644 --- a/src/xrGame/ui/UIProgressBar.cpp +++ b/src/xrGame/ui/UIProgressBar.cpp @@ -10,6 +10,7 @@ CUIProgressBar::CUIProgressBar(void) m_bBackgroundPresent = false; m_bUseColor = false; + m_bNoLerp = false; //Alundaio AttachChild (&m_UIBackgroundItem); AttachChild (&m_UIProgressItem); @@ -55,6 +56,11 @@ void CUIProgressBar::UpdateProgressBar() if(m_bUseColor) { + if (m_bNoLerp) + { + m_UIProgressItem.SetTextureColor(m_maxColor.get()); + return; + } Fcolor curr; curr.lerp (m_minColor,m_middleColor,m_maxColor,fCurrentLength); m_UIProgressItem.SetTextureColor (curr.get()); diff --git a/src/xrGame/ui/UIProgressBar.h b/src/xrGame/ui/UIProgressBar.h index 04ea382c887..8fa00b101cb 100644 --- a/src/xrGame/ui/UIProgressBar.h +++ b/src/xrGame/ui/UIProgressBar.h @@ -32,6 +32,7 @@ class CUIProgressBar : public CUIWindow public: bool m_bUseColor; + bool m_bNoLerp; //Alundaio: use only solid color with m_maxColor Fcolor m_minColor; Fcolor m_middleColor; Fcolor m_maxColor; From c835abc0e55628a15e5e5f859ecfc2acb95f7496 Mon Sep 17 00:00:00 2001 From: Axel DominatoR Date: Sat, 22 Aug 2015 21:00:16 +0100 Subject: [PATCH 108/166] Various fixes plus progress bars are now green Fixed various issues with the multiple item uses and now the progress bars are green. Also fixed a few issues with the hotbar and progressbar background --- src/xrGame/Inventory.cpp | 6 +++-- src/xrGame/eatable_item.cpp | 5 ++-- src/xrGame/eatable_item.h | 2 +- src/xrGame/ui/UIActorMenu.h | 4 +++ src/xrGame/ui/UIActorMenuInventory.cpp | 37 +++++++++++++++++++++++++- src/xrGame/ui/UICellCustomItems.cpp | 1 + src/xrGame/ui/UICellItem.cpp | 10 ++++++- src/xrGame/ui/UIProgressBar.cpp | 14 +++++++--- src/xrGame/ui/UIProgressBar.h | 1 + 9 files changed, 70 insertions(+), 10 deletions(-) diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 8998a2e86cc..fb069117f9c 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1065,10 +1065,12 @@ bool CInventory::Eat(PIItem pIItem) if(IsGameTypeSingle() && Actor()->m_inventory == this) Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); - if (pItemToEat->CanDelete()) + if (pItemToEat->Empty()) { + if (!pItemToEat->CanDelete()) + return false; + pIItem->SetDropManual(TRUE); - return false; } return true; } diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 45b50d9cb65..fd725521dae 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -18,6 +18,7 @@ #include "EntityCondition.h" #include "InventoryOwner.h" #include "UIGameCustom.h" +#include "ui/UIActorMenu.h" CEatableItem::CEatableItem() { @@ -148,8 +149,8 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) } SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - CurrentGameUI()->HideActorMenu(); - CurrentGameUI()->ShowActorMenu(); + + CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); return true; } \ No newline at end of file diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 7f53f13f14c..e7d8d461c7b 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -39,7 +39,7 @@ class CEatableItem : public CInventoryItem { virtual bool UseBy (CEntityAlive* npc); bool Empty() const { return m_iRemainingUses == 0; }; - bool CanDelete() const { return ( Empty() && ( m_bRemoveAfterUse == true )); }; + bool CanDelete() const { return ( m_bRemoveAfterUse == true ); }; virtual u16 GetMaxUses() const { return m_iMaxUses; }; virtual u16 GetRemainingUses() const { return m_iRemainingUses; }; }; \ No newline at end of file diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index a4f21179196..e024604ab74 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -80,6 +80,7 @@ class CUIActorMenu : public CUIDialogWnd, CUICellItem* m_InfoCellItem; u32 m_InfoCellItem_timer; CUICellItem* m_pCurrentCellItem; + CUICellItem* m_pCurrentConsumable; CUICellItem* m_upgrade_selected; CUIPropertiesBox* m_UIPropertiesBox; @@ -339,4 +340,7 @@ class CUIActorMenu : public CUIDialogWnd, IC UIHint* get_hint_wnd () { return m_hint_wnd; } + CUICellItem* GetCurrentConsumable(){ return m_pCurrentConsumable; }; + void SetCurrentConsumable( CUICellItem* ci ){ m_pCurrentConsumable = ci; }; + void RefreshConsumableCells(); }; // class CUIActorMenu diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 6ecc95385d5..a44ee71fffe 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -1140,7 +1140,10 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_TO_SLOT_ACTION: ToSlot( cell_item, true, item->BaseSlot() ); break; case INVENTORY_TO_BELT_ACTION: ToBelt( cell_item, false ); break; case INVENTORY_TO_BAG_ACTION: ToBag ( cell_item, false ); break; - case INVENTORY_EAT_ACTION: TryUseItem( cell_item ); break; + case INVENTORY_EAT_ACTION: + CurrentGameUI()->GetActorMenu().SetCurrentConsumable( cell_item ); + TryUseItem( cell_item ); + break; case INVENTORY_DROP_ACTION: { void* d = m_UIPropertiesBox->GetClickedItem()->GetData(); @@ -1303,3 +1306,35 @@ void CUIActorMenu::MoveArtefactsToBag() }//for i m_pInventoryBeltList->ClearAll( true ); } + +void CUIActorMenu::RefreshConsumableCells() +{ + CUICellItem* ci = GetCurrentConsumable(); + if ( ci ) + { + CEatableItem* eitm = smart_cast(( CEatableItem* ) ci->m_pData ); + if ( eitm ) + { + Fvector2 cp = GetUICursor().GetCursorPosition(); + CUIDragDropListEx* invlist = GetListByType( iActorBag ); + + CUICellItem* parent = invlist->RemoveItem( ci, true ); + u32 c = parent->ChildsCount(); + if ( c > 0 ) + { + while ( parent->ChildsCount()) + { + CUICellItem* child = parent->PopChild( NULL ); + invlist->SetItem( child ); + } + + invlist->SetItem( parent ); + } + else + { + invlist->SetItem( parent ); + } + } + SetCurrentConsumable( NULL ); + } +} \ No newline at end of file diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index 08477d66768..89d481992a1 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -86,6 +86,7 @@ void CUIInventoryCellItem::SetIsHelper (bool is_helper) void CUIInventoryCellItem::Update() { inherited::Update (); + inherited::UpdateConditionProgressBar(); UpdateItemText(); u32 color = GetTextureColor(); diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index d2410634715..3d2b480e868 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -20,6 +20,9 @@ #include "CustomOutfit.h" #include "ActorHelmet.h" +#include "UIGameCustom.h" +#include "UIActorMenu.h" + CUICellItem* CUICellItem::m_mouse_selected_item = NULL; CUICellItem::CUICellItem() @@ -150,6 +153,7 @@ bool CUICellItem::OnMouseAction(float x, float y, EUIMessages mouse_action) else if ( mouse_action == WINDOW_LBUTTON_DB_CLICK ) { GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DB_CLICK, NULL ); + CurrentGameUI()->GetActorMenu().SetCurrentConsumable( this ); return true; } else if ( mouse_action == WINDOW_RBUTTON_DOWN ) @@ -233,10 +237,14 @@ void CUICellItem::UpdateConditionProgressBar() else { cond = (( float )remaining_uses * 0.125f ) - 0.0625f; + } + + if ( max_uses < 8 ) + { m_pConditionState->ShowBackground( false ); } - m_pConditionState->m_bUseColor = false; + m_pConditionState->m_bUseGradient = false; } } diff --git a/src/xrGame/ui/UIProgressBar.cpp b/src/xrGame/ui/UIProgressBar.cpp index 851e674cc10..760909b8389 100644 --- a/src/xrGame/ui/UIProgressBar.cpp +++ b/src/xrGame/ui/UIProgressBar.cpp @@ -10,6 +10,7 @@ CUIProgressBar::CUIProgressBar(void) m_bBackgroundPresent = false; m_bUseColor = false; + m_bUseGradient = true; AttachChild (&m_UIBackgroundItem); AttachChild (&m_UIProgressItem); @@ -55,9 +56,16 @@ void CUIProgressBar::UpdateProgressBar() if(m_bUseColor) { - Fcolor curr; - curr.lerp (m_minColor,m_middleColor,m_maxColor,fCurrentLength); - m_UIProgressItem.SetTextureColor (curr.get()); + if ( m_bUseGradient ) + { + Fcolor curr; + curr.lerp (m_minColor,m_middleColor,m_maxColor,fCurrentLength); + m_UIProgressItem.SetTextureColor (curr.get()); + } + else + { + m_UIProgressItem.SetTextureColor( m_maxColor.get()); + } } } diff --git a/src/xrGame/ui/UIProgressBar.h b/src/xrGame/ui/UIProgressBar.h index 04ea382c887..a3dd2c7b122 100644 --- a/src/xrGame/ui/UIProgressBar.h +++ b/src/xrGame/ui/UIProgressBar.h @@ -32,6 +32,7 @@ class CUIProgressBar : public CUIWindow public: bool m_bUseColor; + bool m_bUseGradient; Fcolor m_minColor; Fcolor m_middleColor; Fcolor m_maxColor; From 1fac6e05128211556955f6d25d603aee130b62ec Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 22 Aug 2015 19:45:31 -0400 Subject: [PATCH 109/166] ~ polished some minor quirks with consumables due to new use_condition feature ~ enabled MultiProcessorCompilation in Common.props --- src/Common.props | 6 ++++- src/xrGame/eatable_item.cpp | 3 ++- src/xrGame/ui/UIActorMenuInventory.cpp | 37 +++++++++++++------------- 3 files changed, 26 insertions(+), 20 deletions(-) diff --git a/src/Common.props b/src/Common.props index 907b6253a9a..8c2bd403c53 100644 --- a/src/Common.props +++ b/src/Common.props @@ -17,7 +17,11 @@ E:\STALKER\X-Ray Source\x_ray_1602_VS13\xray-16\src\3rd party;$(IncludePath) - + + + true + + $(xrBinRootDir) diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 55415a6a0c7..6eeca51c40f 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -150,7 +150,8 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); + if (IsUsingCondition()) + CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); return true; } \ No newline at end of file diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index eb4857051d6..5eb3204eecb 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -1313,31 +1313,32 @@ void CUIActorMenu::MoveArtefactsToBag() void CUIActorMenu::RefreshConsumableCells() { CUICellItem* ci = GetCurrentConsumable(); - if ( ci ) + if (!ci) + return; + + if (ci->ChildsCount() > 0) { CEatableItem* eitm = smart_cast(( CEatableItem* ) ci->m_pData ); - if ( eitm ) + if (eitm) { - Fvector2 cp = GetUICursor().GetCursorPosition(); - CUIDragDropListEx* invlist = GetListByType( iActorBag ); - - CUICellItem* parent = invlist->RemoveItem( ci, true ); - u32 c = parent->ChildsCount(); - if ( c > 0 ) + CUIDragDropListEx* invlist = GetListByType(iActorBag); + + if (invlist->IsOwner(ci)) { - while ( parent->ChildsCount()) + CUICellItem* parent = invlist->RemoveItem(ci, true); + + if (parent->ChildsCount() > 0) { - CUICellItem* child = parent->PopChild( NULL ); - invlist->SetItem( child ); + while (parent->ChildsCount()) + { + CUICellItem* child = parent->PopChild(NULL); + invlist->SetItem(child); + } } - - invlist->SetItem( parent ); - } - else - { - invlist->SetItem( parent ); + invlist->SetItem(parent); } } - SetCurrentConsumable( NULL ); } + + SetCurrentConsumable(NULL); } From 0f8adad2957be1e7575943b2801448bed99f8cb6 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 22 Aug 2015 20:13:24 -0400 Subject: [PATCH 110/166] ~ moved some consumables code out of eatable_item.cpp UseBy into inventory.cpp Eat() --- src/xrGame/Inventory.cpp | 3 +++ src/xrGame/eatable_item.cpp | 3 --- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 8fdb9424117..3f8dd0a050d 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1075,6 +1075,9 @@ bool CInventory::Eat(PIItem pIItem) pIItem->SetDropManual(TRUE); } + if (pItemToEat->IsUsingCondition() && Actor()->m_inventory == this) + CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); + return true; } diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 6eeca51c40f..0d674fc196c 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -150,8 +150,5 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - if (IsUsingCondition()) - CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); - return true; } \ No newline at end of file From d15d971e415eba899c99d7d7e888e6fb2747a8f8 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 27 Aug 2015 17:57:59 -0400 Subject: [PATCH 111/166] + AxelDominator weight calculations for CEatableItem weight ~ uncommented artefact immunities code to be displayed in tooltip ~ uncommented outfit immunities code to be displayed in tooltip + added new lua exported methods, for game_object class: u8 get_remaining_uses() void set_remaining_uses(u8) u8 get_max_uses() = potential fix for crash when placing item with 0 remaining uses into a container ~ global lua exported method UpdateActorMenu() now updates current item cell + added global lua exported method, game_object CurrentItemAtCell() (**not working apparently) --- src/xrGame/Inventory.cpp | 13 +- src/xrGame/UIGameCustom.cpp | 24 ++++ src/xrGame/UIGameCustom.h | 3 + src/xrGame/UIGameCustom_script.cpp | 1 + src/xrGame/eatable_item.cpp | 64 +++++++--- src/xrGame/eatable_item.h | 12 +- src/xrGame/inventory_item.cpp | 2 +- src/xrGame/script_game_object.h | 5 + src/xrGame/script_game_object3.cpp | 40 ++++++ src/xrGame/script_game_object_script3.cpp | 4 + src/xrGame/ui/UIActorMenu.h | 15 ++- src/xrGame/ui/UIActorMenuInventory.cpp | 142 +++++++++++++++------- src/xrGame/ui/UIActorMenu_action.cpp | 1 + src/xrGame/ui/UICellItem.cpp | 29 ++--- src/xrGame/ui/UIMessages.h | 4 + src/xrGame/ui/UIOutfitInfo.cpp | 4 +- src/xrGame/ui/ui_af_params.cpp | 18 +-- 17 files changed, 277 insertions(+), 104 deletions(-) diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 3f8dd0a050d..797755d47c1 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1062,9 +1062,15 @@ bool CInventory::Eat(PIItem pIItem) Msg( "--- Actor [%d] use or eat [%d][%s]", entity_alive->ID(), pItemToEat->object().ID(), pItemToEat->object().cNameSect().c_str() ); #endif // MP_LOGGING - if (IsGameTypeSingle() && Actor()->m_inventory == this) + if (Actor()->m_inventory == this) { - Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); + if (IsGameTypeSingle()) + Actor()->callback(GameObject::eUseObject)((smart_cast(pIItem))->lua_game_object()); + + if (pItemToEat->IsUsingCondition() && pItemToEat->GetRemainingUses() < 1 && pItemToEat->CanDelete()) + CurrentGameUI()->GetActorMenu().RefreshCurrentItemCell(); + + CurrentGameUI()->GetActorMenu().SetCurrentItem(NULL); } if (pItemToEat->Empty()) @@ -1075,9 +1081,6 @@ bool CInventory::Eat(PIItem pIItem) pIItem->SetDropManual(TRUE); } - if (pItemToEat->IsUsingCondition() && Actor()->m_inventory == this) - CurrentGameUI()->GetActorMenu().RefreshConsumableCells(); - return true; } diff --git a/src/xrGame/UIGameCustom.cpp b/src/xrGame/UIGameCustom.cpp index d56143f5ca1..943a31f5cfe 100644 --- a/src/xrGame/UIGameCustom.cpp +++ b/src/xrGame/UIGameCustom.cpp @@ -18,6 +18,9 @@ #include "xrEngine/x_ray.h" +#include "ui\UICellItem.h" //Alundaio +//#include "script_game_object.h" //Alundaio + EGameIDs ParseStringToGameType(const char* str); struct predicate_find_stat @@ -182,7 +185,28 @@ void CUIGameCustom::HideActorMenu() void CUIGameCustom::UpdateActorMenu() { if (ActorMenu->IsShown()) + { ActorMenu->UpdateActor(); + ActorMenu->RefreshCurrentItemCell(); + } +} + +CScriptGameObject* CUIGameCustom::CurrentItemAtCell() +{ + CUICellItem* itm = ActorMenu->CurrentItem(); + if (!itm->m_pData) + return (0); + + PIItem IItm = (PIItem)itm->m_pData; + if (!IItm) + return (0); + + CGameObject* GO = IItm->cast_game_object(); + + if (GO) + return GO->lua_game_object(); + + return (0); } //-Alundaio diff --git a/src/xrGame/UIGameCustom.h b/src/xrGame/UIGameCustom.h index 9e9c82064b1..eabc57326f5 100644 --- a/src/xrGame/UIGameCustom.h +++ b/src/xrGame/UIGameCustom.h @@ -6,6 +6,8 @@ #include "gametype_chooser.h" #include "UIDialogHolder.h" #include "xrEngine/CustomHUD.h" +#include "script_game_object.h" + // refs class CUI; class CTeamBaseZone; @@ -104,6 +106,7 @@ class CUIGameCustom : bool ShowActorMenu(); void HideActorMenu(); void UpdateActorMenu(); //Alundaio + CScriptGameObject* CurrentItemAtCell(); //Alundaio bool ShowPdaMenu(); void HidePdaMenu(); void ShowMessagesWindow(); diff --git a/src/xrGame/UIGameCustom_script.cpp b/src/xrGame/UIGameCustom_script.cpp index 2f1ab7dd709..555b5cceaf4 100644 --- a/src/xrGame/UIGameCustom_script.cpp +++ b/src/xrGame/UIGameCustom_script.cpp @@ -26,6 +26,7 @@ void CUIGameCustom::script_register(lua_State *L) .def("HideActorMenu", &CUIGameCustom::HideActorMenu) //Alundaio .def("UpdateActorMenu", &CUIGameCustom::UpdateActorMenu) + .def("CurrentItemAtCell", &CUIGameCustom::CurrentItemAtCell) //-Alundaio .def("HidePdaMenu", &CUIGameCustom::HidePdaMenu) .def("show_messages", &CUIGameCustom::ShowMessagesWindow) diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 0d674fc196c..24916a9e29f 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -43,12 +43,17 @@ void CEatableItem::Load(LPCSTR section) { inherited::Load(section); - m_iRemainingUses = m_iMaxUses = READ_IF_EXISTS( pSettings, r_u16, section, "max_uses", 1 ); + m_iRemainingUses = m_iMaxUses = READ_IF_EXISTS( pSettings, r_u8, section, "max_uses", 1 ); m_bRemoveAfterUse = READ_IF_EXISTS( pSettings, r_bool, section, "remove_after_use", TRUE ); + m_fWeightFull = m_weight; + m_fWeightEmpty = READ_IF_EXISTS(pSettings, r_float, section, "empty_weight", 0.0f); - if ( IsUsingCondition()) + if (IsUsingCondition()) { - SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); + if (m_iMaxUses > 0) + SetCondition((float)(m_iRemainingUses / m_iMaxUses)); + else + SetCondition(0); } } @@ -57,23 +62,26 @@ void CEatableItem::load( IReader &packet ) { inherited::load( packet ); - m_iRemainingUses = packet.r_u16(); + m_iRemainingUses = packet.r_u8(); } void CEatableItem::save( NET_Packet &packet ) { inherited::save( packet ); - packet.w_u16( m_iRemainingUses ); + packet.w_u8( m_iRemainingUses ); } BOOL CEatableItem::net_Spawn (CSE_Abstract* DC) { if (!inherited::net_Spawn(DC)) return FALSE; - if ( IsUsingCondition()) + if (IsUsingCondition()) { - SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); + if (m_iMaxUses > 0) + SetCondition((float)(m_iRemainingUses / m_iMaxUses)); + else + SetCondition(0); } return TRUE; @@ -84,7 +92,7 @@ bool CEatableItem::Useful() const if(!inherited::Useful()) return false; //проверить не все ли еще съедено - if ( m_iRemainingUses == 0 ) return false; + //if ( m_iRemainingUses == 0 ) return false; //Alundaio: Commented out to prevent crash when placing items with 0 remaining uses inside inventory boxes return true; } @@ -139,16 +147,40 @@ bool CEatableItem::UseBy (CEntityAlive* entity_alive) Level().Send (tmp_packet); } - if ( m_iRemainingUses > 0 ) - { - --m_iRemainingUses; + // If uses 255, then skip the decrement for infinite usages + if (m_iRemainingUses != (-1)) { + if (m_iRemainingUses > 0) + { + --m_iRemainingUses; + } + else + { + m_iRemainingUses = 0; + } } - else + + if (IsUsingCondition()) { - m_iRemainingUses = 0; + if (m_iMaxUses > 0) + SetCondition((float)(m_iRemainingUses / m_iMaxUses)); + else + SetCondition(0); } - SetCondition(( float ) m_iRemainingUses / ( float ) m_iMaxUses ); - return true; -} \ No newline at end of file +} + +float CEatableItem::Weight() const +{ + float res = inherited::Weight(); + + if (IsUsingCondition()) + { + float net_weight = m_fWeightFull - m_fWeightEmpty; + float use_weight = m_iMaxUses > 0 ? (net_weight / m_iMaxUses) : 0.f; + + res = m_fWeightEmpty + (m_iRemainingUses * use_weight); + } + + return res; +} diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 60deaa72774..8c3c6f4575e 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -17,9 +17,11 @@ class CEatableItem : public CInventoryItem { protected: CPhysicItem *m_physic_item; - u16 m_iMaxUses; - u16 m_iRemainingUses; + u8 m_iMaxUses; + u8 m_iRemainingUses; BOOL m_bRemoveAfterUse; + float m_fWeightFull; + float m_fWeightEmpty; public: CEatableItem (); @@ -40,6 +42,8 @@ class CEatableItem : public CInventoryItem { bool Empty() const { return m_iRemainingUses == 0; }; bool CanDelete() const { return m_bRemoveAfterUse==TRUE; }; - virtual u16 GetMaxUses() const { return m_iMaxUses; }; - virtual u16 GetRemainingUses() const { return m_iRemainingUses; }; + u8 GetMaxUses() const { return m_iMaxUses; }; + u8 GetRemainingUses() const { return m_iRemainingUses; }; + void SetRemainingUses(u8 value) { if (value <= m_iMaxUses && value >= 0) m_iRemainingUses = value; }; + virtual float Weight() const; }; \ No newline at end of file diff --git a/src/xrGame/inventory_item.cpp b/src/xrGame/inventory_item.cpp index 3a245309deb..32dc8caa694 100644 --- a/src/xrGame/inventory_item.cpp +++ b/src/xrGame/inventory_item.cpp @@ -1504,4 +1504,4 @@ void CInventoryItem::SetDropManual(BOOL val) bool CInventoryItem::has_network_synchronization () const { return false; -} \ No newline at end of file +} diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index bd08039f7f4..bab678ac6c7 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -848,6 +848,11 @@ class CScriptGameObject { void SetArtefactSatietyRestoreSpeed(float value); void SetArtefactPowerRestoreSpeed(float value); void SetArtefactBleedingRestoreSpeed(float value); + + //Eatable items + void SetRemainingUses(u8 value); + u8 GetRemainingUses(); + u8 GetMaxUses(); #endif //-Alundaio diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 610061b78a1..45614094925 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -45,6 +45,7 @@ #include "actor.h" #include "CharacterPhysicsSupport.h" #include "player_hud.h" +#include "eatable_item.h" #endif //-Alundaio @@ -1353,5 +1354,44 @@ void CScriptGameObject::ForceSetPosition(Fvector pos, bool bActivate) else ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "force_set_position: object %s has no physics shell!", *object().cName()); } + +void CScriptGameObject::SetRemainingUses(u8 value) +{ + CInventoryItem* IItm = object().cast_inventory_item(); + if (!IItm) + return; + + CEatableItem* eItm = IItm->cast_eatable_item(); + if (!eItm) + return; + + eItm->SetRemainingUses(value); +} + +u8 CScriptGameObject::GetRemainingUses() +{ + CInventoryItem* IItm = object().cast_inventory_item(); + if (!IItm) + return 0; + + CEatableItem* eItm = IItm->cast_eatable_item(); + if (!eItm) + return 0; + + return eItm->GetRemainingUses(); +} + +u8 CScriptGameObject::GetMaxUses() +{ + CInventoryItem* IItm = object().cast_inventory_item(); + if (!IItm) + return 0; + + CEatableItem* eItm = IItm->cast_eatable_item(); + if (!eItm) + return 0; + + return eItm->GetMaxUses(); +} #endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index d532c0451c6..497f9ed1f5d 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -365,6 +365,10 @@ class_ &script_register_game_object2(class_UpdateConditionProgressBar(); //Alundaio - u16 recipient = m_pActorInvOwner->object_id(); if ( item->parent_id() != recipient ) { @@ -751,7 +750,7 @@ bool CUIActorMenu::TryUseItem( CUICellItem* cell_itm ) SendEvent_Item_Eat ( item, recipient ); PlaySnd ( eItemUse ); - SetCurrentItem ( NULL ); + //SetCurrentItem( NULL ); return true; } @@ -1052,41 +1051,69 @@ void CUIActorMenu::PropertiesBoxForAddon( PIItem item, bool& b_show ) void CUIActorMenu::PropertiesBoxForUsing( PIItem item, bool& b_show ) { - CMedkit* pMedkit = smart_cast (item); - CAntirad* pAntirad = smart_cast (item); - CEatableItem* pEatableItem = smart_cast (item); - CBottleItem* pBottleItem = smart_cast (item); - LPCSTR act_str = NULL; - if ( pMedkit || pAntirad ) - { - act_str = "st_use"; - } - else if ( pBottleItem ) + CGameObject* GO = smart_cast(item); + shared_str section_name = GO->cNameSect(); + + //ability to set eat string from settings + act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "default_use_text", 0); + if (act_str) { - act_str = "st_drink"; + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT_ACTION); + b_show = true; } - else if ( pEatableItem ) - { - CObject* pObj = smart_cast (item); - shared_str section_name = pObj->cNameSect(); - if ( !xr_strcmp(section_name,"vodka") || !(xr_strcmp(section_name,"energy_drink")) ) + else { + CMedkit* pMedkit = smart_cast (item); + CAntirad* pAntirad = smart_cast (item); + CEatableItem* pEatableItem = smart_cast (item); + CBottleItem* pBottleItem = smart_cast (item); + + if (pMedkit || pAntirad) + { + act_str = "st_use"; + } + else if (pBottleItem) { act_str = "st_drink"; } - else if( !xr_strcmp(section_name,"bread") || !xr_strcmp(section_name,"kolbasa") || !xr_strcmp(section_name,"conserva")) + else if (pEatableItem) { - act_str = "st_eat"; + + + if (!xr_strcmp(section_name, "vodka") || !(xr_strcmp(section_name, "energy_drink"))) + { + act_str = "st_drink"; + } + else if (!xr_strcmp(section_name, "bread") || !xr_strcmp(section_name, "kolbasa") || !xr_strcmp(section_name, "conserva")) + { + act_str = "st_eat"; + } + else + { + act_str = "st_use"; + } } - else + if (act_str) { - act_str = "st_use"; + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT_ACTION); + b_show = true; } } - if ( act_str ) + + //1st Custom Use action + act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use1_text", 0); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT2_ACTION); + b_show = true; + } + + //2nd Custom Use action + act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use2_text", 0); + if (act_str) { - m_UIPropertiesBox->AddItem( act_str, NULL, INVENTORY_EAT_ACTION ); - b_show = true; + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT3_ACTION); + b_show = true; } } @@ -1144,9 +1171,38 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_TO_BELT_ACTION: ToBelt( cell_item, false ); break; case INVENTORY_TO_BAG_ACTION: ToBag ( cell_item, false ); break; case INVENTORY_EAT_ACTION: - CurrentGameUI()->GetActorMenu().SetCurrentConsumable( cell_item ); TryUseItem( cell_item ); break; + case INVENTORY_EAT2_ACTION: + { + CGameObject* GO = smart_cast(item); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use1_functor", 0); + if (functor_name) + { + luabind::functor funct1; + if (ai().script_engine().functor(functor_name, funct1)) + { + if (funct1(GO->lua_game_object())) + TryUseItem(cell_item); + } + } + break; + } + case INVENTORY_EAT3_ACTION: + { + CGameObject* GO = smart_cast(item); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use2_functor", 0); + if (functor_name) + { + luabind::functor funct2; + if (ai().script_engine().functor(functor_name, funct2)) + { + if (funct2(GO->lua_game_object())) + TryUseItem(cell_item); + } + } + break; + } case INVENTORY_DROP_ACTION: { void* d = m_UIPropertiesBox->GetClickedItem()->GetData(); @@ -1258,7 +1314,7 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) } }//switch - SetCurrentItem( NULL ); + //SetCurrentItem( NULL ); UpdateItemsPlace(); UpdateConditionProgressBars(); }//ProcessPropertiesBoxClicked @@ -1310,35 +1366,29 @@ void CUIActorMenu::MoveArtefactsToBag() m_pInventoryBeltList->ClearAll( true ); } -void CUIActorMenu::RefreshConsumableCells() +void CUIActorMenu::RefreshCurrentItemCell() { - CUICellItem* ci = GetCurrentConsumable(); + CUICellItem* ci = CurrentItem(); if (!ci) return; if (ci->ChildsCount() > 0) { - CEatableItem* eitm = smart_cast(( CEatableItem* ) ci->m_pData ); - if (eitm) - { - CUIDragDropListEx* invlist = GetListByType(iActorBag); + CUIDragDropListEx* invlist = GetListByType(iActorBag); - if (invlist->IsOwner(ci)) - { - CUICellItem* parent = invlist->RemoveItem(ci, true); + if (invlist->IsOwner(ci)) + { + CUICellItem* parent = invlist->RemoveItem(ci, true); - if (parent->ChildsCount() > 0) + if (parent->ChildsCount() > 0) + { + while (parent->ChildsCount()) { - while (parent->ChildsCount()) - { - CUICellItem* child = parent->PopChild(NULL); - invlist->SetItem(child); - } + CUICellItem* child = parent->PopChild(NULL); + invlist->SetItem(child); } - invlist->SetItem(parent); } + invlist->SetItem(parent); } } - - SetCurrentConsumable(NULL); } diff --git a/src/xrGame/ui/UIActorMenu_action.cpp b/src/xrGame/ui/UIActorMenu_action.cpp index 951f02d3308..4b7573475a3 100644 --- a/src/xrGame/ui/UIActorMenu_action.cpp +++ b/src/xrGame/ui/UIActorMenu_action.cpp @@ -160,6 +160,7 @@ bool CUIActorMenu::OnItemStartDrag(CUICellItem* itm) bool CUIActorMenu::OnItemDbClick(CUICellItem* itm) { + SetCurrentItem(itm); InfoCurItem( NULL ); CUIDragDropListEx* old_owner = itm->OwnerList(); EDDListType t_old = GetListType(old_owner); diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index 3d2b480e868..70bdd347ba7 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -20,9 +20,6 @@ #include "CustomOutfit.h" #include "ActorHelmet.h" -#include "UIGameCustom.h" -#include "UIActorMenu.h" - CUICellItem* CUICellItem::m_mouse_selected_item = NULL; CUICellItem::CUICellItem() @@ -153,7 +150,6 @@ bool CUICellItem::OnMouseAction(float x, float y, EUIMessages mouse_action) else if ( mouse_action == WINDOW_LBUTTON_DB_CLICK ) { GetMessageTarget()->SendMessage( this, DRAG_DROP_ITEM_DB_CLICK, NULL ); - CurrentGameUI()->GetActorMenu().SetCurrentConsumable( this ); return true; } else if ( mouse_action == WINDOW_RBUTTON_DOWN ) @@ -206,7 +202,7 @@ CUIDragItem* CUICellItem::CreateDragItem() void CUICellItem::SetOwnerList(CUIDragDropListEx* p) { m_pParentList = p; - UpdateConditionProgressBar(); + //UpdateConditionProgressBar(); } void CUICellItem::UpdateConditionProgressBar() @@ -215,20 +211,26 @@ void CUICellItem::UpdateConditionProgressBar() if(m_pParentList && m_pParentList->GetConditionProgBarVisibility()) { PIItem itm = (PIItem)m_pData; - if ( itm->IsUsingCondition()) + if (itm && itm->IsUsingCondition()) { float cond = itm->GetCondition(); - CEatableItem* eitm = smart_cast( itm ); if ( eitm ) { - u16 max_uses = eitm->GetMaxUses(); - if ( max_uses > 1 ) + u8 max_uses = eitm->GetMaxUses(); + + if (max_uses > 0) { - u16 remaining_uses = eitm->GetRemainingUses(); + u8 remaining_uses = eitm->GetRemainingUses(); + + if (max_uses < 8) + { + m_pConditionState->ShowBackground(false); + } + if ( remaining_uses < 1 ) { - cond = 0.0f; + cond = 0.f; } else if ( max_uses > 8 ) { @@ -239,11 +241,6 @@ void CUICellItem::UpdateConditionProgressBar() cond = (( float )remaining_uses * 0.125f ) - 0.0625f; } - if ( max_uses < 8 ) - { - m_pConditionState->ShowBackground( false ); - } - m_pConditionState->m_bUseGradient = false; } } diff --git a/src/xrGame/ui/UIMessages.h b/src/xrGame/ui/UIMessages.h index c1682b205a3..2a24886508f 100644 --- a/src/xrGame/ui/UIMessages.h +++ b/src/xrGame/ui/UIMessages.h @@ -92,6 +92,10 @@ enum EUIMessages // CUIInventroyWnd INVENTORY_DROP_ACTION, INVENTORY_EAT_ACTION, + //Alundaio + INVENTORY_EAT2_ACTION, + INVENTORY_EAT3_ACTION, + //-Alundaio INVENTORY_PLAY_ACTION, INVENTORY_TO_BELT_ACTION, INVENTORY_TO_SLOT_ACTION, diff --git a/src/xrGame/ui/UIOutfitInfo.cpp b/src/xrGame/ui/UIOutfitInfo.cpp index 9897d741bfe..6b2977d4dd9 100644 --- a/src/xrGame/ui/UIOutfitInfo.cpp +++ b/src/xrGame/ui/UIOutfitInfo.cpp @@ -22,7 +22,7 @@ LPCSTR immunity_names[]= "wound_immunity", "fire_wound_immunity", // "strike_immunity", -// "explosion_immunity", + "explosion_immunity", //Alundaio: uncommented }; LPCSTR immunity_st_names[]= @@ -35,7 +35,7 @@ LPCSTR immunity_st_names[]= "ui_inv_outfit_wound_protection", "ui_inv_outfit_fire_wound_protection", // "ui_inv_outfit_strike_protection", -// "ui_inv_outfit_explosion_protection", + "ui_inv_outfit_explosion_protection", //Alundaio: uncommented }; CUIOutfitImmunity::CUIOutfitImmunity() diff --git a/src/xrGame/ui/ui_af_params.cpp b/src/xrGame/ui/ui_af_params.cpp index 7d2b82ee28a..cd8813d7011 100644 --- a/src/xrGame/ui/ui_af_params.cpp +++ b/src/xrGame/ui/ui_af_params.cpp @@ -41,10 +41,11 @@ LPCSTR af_immunity_section_names[] = // ALife::EInfluenceType "telepatic_immunity", // infl_psi=3 "shock_immunity", // infl_electra=4 -// "strike_immunity", -// "wound_immunity", -// "explosion_immunity", -// "fire_wound_immunity", + //Alundaio: Uncommented + "wound_immunity", + "fire_wound_immunity", + "explosion_immunity", + //"strike_immunity", }; LPCSTR af_restore_section_names[] = // ALife::EConditionRestoreType @@ -64,10 +65,11 @@ LPCSTR af_immunity_caption[] = // ALife::EInfluenceType "ui_inv_outfit_telepatic_protection", // "(telepatic_imm)", "ui_inv_outfit_shock_protection", // "(shock_imm)", -// "ui_inv_outfit_strike_protection", // "(strike_imm)", -// "ui_inv_outfit_wound_protection", // "(wound_imm)", -// "ui_inv_outfit_explosion_protection", // "(explosion_imm)", -// "ui_inv_outfit_fire_wound_protection", // "(fire_wound_imm)", + //Alundaio: Uncommented + "ui_inv_outfit_wound_protection", // "(wound_imm)", + "ui_inv_outfit_explosion_protection", // "(explosion_imm)", + "ui_inv_outfit_fire_wound_protection", // "(fire_wound_imm)", + //"ui_inv_outfit_strike_protection", // "(strike_imm)", }; LPCSTR af_restore_caption[] = // ALife::EConditionRestoreType From 818bfaab425892aafd00d8cf28c27150019eeca6 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 27 Aug 2015 22:20:35 -0400 Subject: [PATCH 112/166] + added code to donate item through context menu during trade (Work in progress) = fixed duplicating items caused by CEatableItem::Useful() and the removal of the remaining uses check + added code to swap equipment slots, including knife and binoc through context menu (Work In Progress) --- src/xrGame/UIGameCustom.cpp | 2 +- src/xrGame/eatable_item.cpp | 2 +- src/xrGame/trade.h | 4 +- src/xrGame/trade2.cpp | 9 ++- src/xrGame/ui/UIActorMenu.h | 2 + src/xrGame/ui/UIActorMenuInventory.cpp | 78 +++++++++++++++++++++++--- src/xrGame/ui/UIActorMenuTrade.cpp | 25 +++++++++ src/xrGame/ui/UIMessages.h | 3 + 8 files changed, 111 insertions(+), 14 deletions(-) diff --git a/src/xrGame/UIGameCustom.cpp b/src/xrGame/UIGameCustom.cpp index 943a31f5cfe..2b226f7b045 100644 --- a/src/xrGame/UIGameCustom.cpp +++ b/src/xrGame/UIGameCustom.cpp @@ -201,7 +201,7 @@ CScriptGameObject* CUIGameCustom::CurrentItemAtCell() if (!IItm) return (0); - CGameObject* GO = IItm->cast_game_object(); + CGameObject* GO = smart_cast(IItm); if (GO) return GO->lua_game_object(); diff --git a/src/xrGame/eatable_item.cpp b/src/xrGame/eatable_item.cpp index 24916a9e29f..b519f25a2e1 100644 --- a/src/xrGame/eatable_item.cpp +++ b/src/xrGame/eatable_item.cpp @@ -92,7 +92,7 @@ bool CEatableItem::Useful() const if(!inherited::Useful()) return false; //проверить не все ли еще съедено - //if ( m_iRemainingUses == 0 ) return false; //Alundaio: Commented out to prevent crash when placing items with 0 remaining uses inside inventory boxes + if ( m_iRemainingUses == 0 && CanDelete() ) return false; return true; } diff --git a/src/xrGame/trade.h b/src/xrGame/trade.h index 2610054c937..3b86c77b2e2 100644 --- a/src/xrGame/trade.h +++ b/src/xrGame/trade.h @@ -51,13 +51,13 @@ class CTrade void OnPerformTrade (u32 money_get, u32 money_put); - void TransferItem (CInventoryItem* pItem, bool bBuying); + void TransferItem (CInventoryItem* pItem, bool bBuying, bool bFree=false); CInventoryOwner* GetPartner (); CTrade* GetPartnerTrade (); CInventory* GetPartnerInventory (); - u32 GetItemPrice (CInventoryItem* pItem, bool b_buying); + u32 GetItemPrice (CInventoryItem* pItem, bool b_buying, bool b_free=false); void UpdateTrade (); diff --git a/src/xrGame/trade2.cpp b/src/xrGame/trade2.cpp index 26426d39397..56838f586a2 100644 --- a/src/xrGame/trade2.cpp +++ b/src/xrGame/trade2.cpp @@ -61,11 +61,11 @@ bool CTrade::CanTrade() return true; } -void CTrade::TransferItem(CInventoryItem* pItem, bool bBuying) +void CTrade::TransferItem(CInventoryItem* pItem, bool bBuying, bool bFree) { // сумма сделки учитывая ценовой коэффициент // актер цену не говорит никогда, все делают за него - u32 dwTransferMoney = GetItemPrice(pItem, bBuying); + u32 dwTransferMoney = GetItemPrice(pItem, bBuying, bFree); if(bBuying) { @@ -146,8 +146,11 @@ CInventoryOwner* CTrade::GetPartner() return pPartner.inv_owner; } -u32 CTrade::GetItemPrice(PIItem pItem, bool b_buying) +u32 CTrade::GetItemPrice(PIItem pItem, bool b_buying, bool b_free) { + if (b_free) + return 0; + CArtefact *pArtefact = smart_cast(pItem); // computing base_cost diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index b723355688e..bfca842963d 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -192,6 +192,7 @@ class CUIActorMenu : public CUIDialogWnd, void PropertiesBoxForPlaying (PIItem item, bool& b_show); void PropertiesBoxForDrop (CUICellItem* cell_item, PIItem item, bool& b_show); void PropertiesBoxForRepair (PIItem item, bool& b_show); + void PropertiesBoxForDonate (PIItem item, bool& b_show); //Alundaio private: void clear_highlight_lists (); @@ -345,5 +346,6 @@ class CUIActorMenu : public CUIDialogWnd, void SetCurrentItem(CUICellItem* itm); //Alundaio: Made public CUICellItem* CurrentItem(); //Alundaio: Made public //-AxelDominator && Alundaio consumable use condition + void DonateCurrentItem(CUICellItem* cell_item); //Alundaio: Donate item via context menu while in trade menu }; // class CUIActorMenu diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 6dfa4e38d42..5e917f3d70d 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -510,9 +510,8 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) if ( slot_id == GRENADE_SLOT || !new_owner ) { return true; //fake, sorry ((( - } - - if(slot_id==OUTFIT_SLOT) + } + else if(slot_id==OUTFIT_SLOT) { CCustomOutfit* pOutfit = smart_cast(iitem); if(pOutfit && !pOutfit->bIsHelmetAvaliable) @@ -526,7 +525,6 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) } } - bool result = (!b_own_item) || m_pActorInvOwner->inventory().Slot(slot_id, iitem); VERIFY (result); @@ -803,7 +801,7 @@ void CUIActorMenu::TryHidePropertiesBox() void CUIActorMenu::ActivatePropertiesBox() { TryHidePropertiesBox(); - if ( !(m_currMenuMode == mmInventory || m_currMenuMode == mmDeadBodySearch || m_currMenuMode == mmUpgrade) ) + if (!(m_currMenuMode == mmInventory || m_currMenuMode == mmDeadBodySearch || m_currMenuMode == mmUpgrade || m_currMenuMode == mmTrade)) { return; } @@ -836,6 +834,14 @@ void CUIActorMenu::ActivatePropertiesBox() { PropertiesBoxForRepair( item, b_show ); } + //Alundaio: Ability to donate item to npc during trade + else if (m_currMenuMode == mmTrade) + { + CUIDragDropListEx* invlist = GetListByType(iActorBag); + if (invlist->IsOwner(cell_item)) + PropertiesBoxForDonate(item, b_show); + } + //-Alundaio if ( b_show ) { @@ -863,8 +869,7 @@ void CUIActorMenu::PropertiesBoxForSlots( PIItem item, bool& b_show ) if ( !pOutfit && !pHelmet && cur_slot != NO_ACTIVE_SLOT && - !inv.SlotIsPersistent(cur_slot) && - inv.CanPutInSlot(item, cur_slot) ) + !inv.SlotIsPersistent(cur_slot) /*&& inv.CanPutInSlot(item, cur_slot)*/ ) { m_UIPropertiesBox->AddItem( "st_move_to_slot", NULL, INVENTORY_TO_SLOT_ACTION ); b_show = true; @@ -1115,6 +1120,22 @@ void CUIActorMenu::PropertiesBoxForUsing( PIItem item, bool& b_show ) m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT3_ACTION); b_show = true; } + + //3rd Custom Use action + act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use3_text", 0); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT4_ACTION); + b_show = true; + } + + //4th Custom Use action + act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use4_text", 0); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT5_ACTION); + b_show = true; + } } void CUIActorMenu::PropertiesBoxForPlaying(PIItem item, bool& b_show) @@ -1155,6 +1176,14 @@ void CUIActorMenu::PropertiesBoxForRepair( PIItem item, bool& b_show ) } } +//Alundaio: Ability to donate item during trade +void CUIActorMenu::PropertiesBoxForDonate(PIItem item, bool& b_show) +{ + m_UIPropertiesBox->AddItem("st_donate", NULL, INVENTORY_DONATE_ACTION); + b_show = true; +} +//-Alundaio + void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) { PIItem item = CurrentIItem(); @@ -1170,6 +1199,11 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_TO_SLOT_ACTION: ToSlot( cell_item, true, item->BaseSlot() ); break; case INVENTORY_TO_BELT_ACTION: ToBelt( cell_item, false ); break; case INVENTORY_TO_BAG_ACTION: ToBag ( cell_item, false ); break; + case INVENTORY_DONATE_ACTION: + { + DonateCurrentItem(cell_item); + break; + } case INVENTORY_EAT_ACTION: TryUseItem( cell_item ); break; @@ -1203,6 +1237,36 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) } break; } + case INVENTORY_EAT4_ACTION: + { + CGameObject* GO = smart_cast(item); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use3_functor", 0); + if (functor_name) + { + luabind::functor funct3; + if (ai().script_engine().functor(functor_name, funct3)) + { + if (funct3(GO->lua_game_object())) + TryUseItem(cell_item); + } + } + break; + } + case INVENTORY_EAT5_ACTION: + { + CGameObject* GO = smart_cast(item); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use4_functor", 0); + if (functor_name) + { + luabind::functor funct4; + if (ai().script_engine().functor(functor_name, funct4)) + { + if (funct4(GO->lua_game_object())) + TryUseItem(cell_item); + } + } + break; + } case INVENTORY_DROP_ACTION: { void* d = m_UIPropertiesBox->GetClickedItem()->GetData(); diff --git a/src/xrGame/ui/UIActorMenuTrade.cpp b/src/xrGame/ui/UIActorMenuTrade.cpp index 4534332aff1..396ab5f0fa9 100644 --- a/src/xrGame/ui/UIActorMenuTrade.cpp +++ b/src/xrGame/ui/UIActorMenuTrade.cpp @@ -526,3 +526,28 @@ void CUIActorMenu::TransferItems( CUIDragDropListEx* pSellList, CUIDragDropListE pTrade->pThis.inv_owner->set_money( pTrade->pThis.inv_owner->get_money(), true ); pTrade->pPartner.inv_owner->set_money( pTrade->pPartner.inv_owner->get_money(), true ); } + +//Alundaio: Donate current item while in trade menu +void CUIActorMenu::DonateCurrentItem(CUICellItem* cell_item) +{ + if (!m_partner_trade || !m_pTradePartnerList) + return; + + CUIDragDropListEx* invlist = GetListByType(iActorBag); + if (!invlist->IsOwner(cell_item)) + return; + + PIItem item = (PIItem)cell_item->m_pData; + if (!item) + return; + + invlist->RemoveItem(cell_item, false); + + m_partner_trade->TransferItem(item,true,true); + + m_pTradePartnerList->SetItem(cell_item); + + SetCurrentItem(NULL); + UpdateItemsPlace(); +} +//-Alundaio \ No newline at end of file diff --git a/src/xrGame/ui/UIMessages.h b/src/xrGame/ui/UIMessages.h index 2a24886508f..ae788edbcbd 100644 --- a/src/xrGame/ui/UIMessages.h +++ b/src/xrGame/ui/UIMessages.h @@ -95,6 +95,9 @@ enum EUIMessages //Alundaio INVENTORY_EAT2_ACTION, INVENTORY_EAT3_ACTION, + INVENTORY_EAT4_ACTION, + INVENTORY_EAT5_ACTION, + INVENTORY_DONATE_ACTION, //-Alundaio INVENTORY_PLAY_ACTION, INVENTORY_TO_BELT_ACTION, From ca40e5cd14976b85a99917d422ee8d8e2ce5e851 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 28 Aug 2015 06:19:24 -0400 Subject: [PATCH 113/166] ~ further improved the new non-slot equip mechanic. slot_persistent = false must be set to enable this feature for a slot. Some minor bugs exist when stacking and a bug where you are unable to equip an item unless you unequip the existing item first. (Still work in progress) --- src/xrGame/ui/UIActorMenu.cpp | 10 +++-- src/xrGame/ui/UIActorMenuInventory.cpp | 57 ++++++++++++++++++-------- src/xrGame/ui/UIActorMenuTrade.cpp | 4 +- src/xrGame/ui/UIDragDropListEx.cpp | 30 +++++++++++++- 4 files changed, 75 insertions(+), 26 deletions(-) diff --git a/src/xrGame/ui/UIActorMenu.cpp b/src/xrGame/ui/UIActorMenu.cpp index 26f961c704e..f91daa54ace 100644 --- a/src/xrGame/ui/UIActorMenu.cpp +++ b/src/xrGame/ui/UIActorMenu.cpp @@ -512,23 +512,25 @@ void CUIActorMenu::highlight_item_slot(CUICellItem* cell_item) CEatableItem* eatable = smart_cast(item); CArtefact* artefact = smart_cast(item); - if(weapon) + u16 slot_id = item->BaseSlot(); + + if (weapon && (slot_id == INV_SLOT_2 || slot_id == INV_SLOT_3)) { m_InvSlot2Highlight->Show(true); m_InvSlot3Highlight->Show(true); return; } - if(helmet) + if(helmet && slot_id == HELMET_SLOT) { m_HelmetSlotHighlight->Show(true); return; } - if(outfit) + if(outfit && slot_id == OUTFIT_SLOT) { m_OutfitSlotHighlight->Show(true); return; } - if(detector) + if(detector && slot_id == DETECTOR_SLOT) { m_DetectorSlotHighlight->Show(true); return; diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 5e917f3d70d..28dd95ed171 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -388,7 +388,7 @@ void CUIActorMenu::DetachAddon(LPCSTR addon_name, PIItem itm) void CUIActorMenu::InitCellForSlot( u16 slot_idx ) { - VERIFY( KNIFE_SLOT <= slot_idx && slot_idx <= LAST_SLOT ); + //VERIFY( KNIFE_SLOT <= slot_idx && slot_idx <= LAST_SLOT ); PIItem item = m_pActorInvOwner->inventory().ItemFromSlot(slot_idx); if ( !item ) { @@ -426,6 +426,15 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) InitCellForSlot (GRENADE_SLOT); InitCellForSlot (HELMET_SLOT); + //Alundaio + if (!m_pActorInvOwner->inventory().SlotIsPersistent(KNIFE_SLOT)) + InitCellForSlot (KNIFE_SLOT); + if (!m_pActorInvOwner->inventory().SlotIsPersistent(BINOCULAR_SLOT)) + InitCellForSlot (BINOCULAR_SLOT); + if (!m_pActorInvOwner->inventory().SlotIsPersistent(ARTEFACT_SLOT)) + InitCellForSlot (ARTEFACT_SLOT); + //-Alundaio + curr_list = m_pInventoryBeltList; TIItemContainer::iterator itb = m_pActorInvOwner->inventory().m_belt.begin(); TIItemContainer::iterator ite = m_pActorInvOwner->inventory().m_belt.end(); @@ -453,8 +462,8 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) CUICellItem* itm = create_cell_item( *itb ); curr_list->SetItem(itm); - if ( m_currMenuMode == mmTrade && m_pPartnerInvOwner ) - ColorizeItem( itm, !CanMoveToPartner( *itb ) ); + if (m_currMenuMode == mmTrade && m_pPartnerInvOwner) + ColorizeItem(itm, !CanMoveToPartner(*itb)); //CCustomOutfit* outfit = smart_cast(*itb); //if(outfit) @@ -507,11 +516,13 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) { CUIDragDropListEx* new_owner = GetSlotList(slot_id); + //Alundaio + /* if ( slot_id == GRENADE_SLOT || !new_owner ) { return true; //fake, sorry ((( } - else if(slot_id==OUTFIT_SLOT) + else*/ if(slot_id==OUTFIT_SLOT) { CCustomOutfit* pOutfit = smart_cast(iitem); if(pOutfit && !pOutfit->bIsHelmetAvaliable) @@ -559,15 +570,24 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) PIItem _iitem = m_pActorInvOwner->inventory().ItemFromSlot(slot_id); CUIDragDropListEx* slot_list = GetSlotList(slot_id); - VERIFY (slot_list->ItemsCount()==1); + if (!slot_list) + return false; + + CUIDragDropListEx* invlist = GetListByType(iActorBag); + if (invlist != slot_list) + { + if (!slot_list->ItemsCount() == 1) + return false; - CUICellItem* slot_cell = slot_list->GetItemIdx(0); - VERIFY (slot_cell && ((PIItem)slot_cell->m_pData)==_iitem); + CUICellItem* slot_cell = slot_list->GetItemIdx(0); + if (!(slot_cell && ((PIItem)slot_cell->m_pData) == _iitem)) + return false; - bool result = ToBag(slot_cell, false); - VERIFY (result); + if (ToBag(slot_cell, false) == false) + return false; + } - result = ToSlot(itm, false, slot_id); + bool result = ToSlot(itm, false, slot_id); if(b_own_item && result && slot_id==DETECTOR_SLOT) { CCustomDetector* det = smart_cast(iitem); @@ -706,6 +726,9 @@ CUIDragDropListEx* CUIActorMenu::GetSlotList(u16 slot_idx) return m_pInventoryDetectorList; break; + case ARTEFACT_SLOT: + case BINOCULAR_SLOT: + case KNIFE_SLOT: case GRENADE_SLOT://fake if ( m_currMenuMode == mmTrade ) { @@ -869,7 +892,7 @@ void CUIActorMenu::PropertiesBoxForSlots( PIItem item, bool& b_show ) if ( !pOutfit && !pHelmet && cur_slot != NO_ACTIVE_SLOT && - !inv.SlotIsPersistent(cur_slot) /*&& inv.CanPutInSlot(item, cur_slot)*/ ) + !inv.SlotIsPersistent(cur_slot) && m_pActorInvOwner->inventory().ItemFromSlot(cur_slot) != item /*&& inv.CanPutInSlot(item, cur_slot)*/) { m_UIPropertiesBox->AddItem( "st_move_to_slot", NULL, INVENTORY_TO_SLOT_ACTION ); b_show = true; @@ -1444,15 +1467,13 @@ void CUIActorMenu::RefreshCurrentItemCell() { CUICellItem* parent = invlist->RemoveItem(ci, true); - if (parent->ChildsCount() > 0) + while (parent->ChildsCount()) { - while (parent->ChildsCount()) - { - CUICellItem* child = parent->PopChild(NULL); - invlist->SetItem(child); - } + CUICellItem* child = parent->PopChild(NULL); + invlist->SetItem(child); } - invlist->SetItem(parent); + + invlist->SetItem(parent, GetUICursor().GetCursorPosition()); } } } diff --git a/src/xrGame/ui/UIActorMenuTrade.cpp b/src/xrGame/ui/UIActorMenuTrade.cpp index 396ab5f0fa9..b1ffdd31cbd 100644 --- a/src/xrGame/ui/UIActorMenuTrade.cpp +++ b/src/xrGame/ui/UIActorMenuTrade.cpp @@ -541,11 +541,11 @@ void CUIActorMenu::DonateCurrentItem(CUICellItem* cell_item) if (!item) return; - invlist->RemoveItem(cell_item, false); + CUICellItem* itm = invlist->RemoveItem(cell_item, false); m_partner_trade->TransferItem(item,true,true); - m_pTradePartnerList->SetItem(cell_item); + m_pTradePartnerList->SetItem(itm); SetCurrentItem(NULL); UpdateItemsPlace(); diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index 2ba4014a67f..1b9d45e5625 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -4,7 +4,9 @@ #include "object_broker.h" #include "UICellItem.h" #include "UICursor.h" - +//Alundaio +#include "../Inventory.h" +//-Alundaio CUIDragItem* CUIDragDropListEx::m_drag_item = NULL; @@ -542,6 +544,9 @@ bool CUICellContainer::AddSimilar(CUICellItem* itm) if(!m_pParentDragDropList->IsGrouping()) return false; CUICellItem* i = FindSimilar(itm); + if (i == NULL) + return false; + R_ASSERT (i!=itm); R_ASSERT (0==itm->ChildsCount()); if(i) @@ -562,7 +567,16 @@ CUICellItem* CUICellContainer::FindSimilar(CUICellItem* itm) #else CUICellItem* i = (CUICellItem*)(*it); #endif - R_ASSERT (i!=itm); + //Alundaio: Don't stack equipped items + PIItem iitem = (PIItem)i->m_pData; + if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) + continue; + + if (i == itm) + continue; + + //R_ASSERT (i!=itm); + //-Alundaio if(i->EqualTo(itm)) return i; } @@ -923,6 +937,18 @@ void CUICellContainer::Draw() { select_mode = 3; } + else + { + //Alundaio: Highlight equipped items + PIItem iitem = (PIItem)ui_cell.m_item->m_pData; + if (iitem) + { + u16 slot = iitem->BaseSlot(); + if (iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(slot) == iitem) + select_mode = 3; + } + //-Alundaio: + } } Fvector2 tp; From b6f451878717fb9e6f4aebd7a4dd5d62aa329ab1 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 28 Aug 2015 06:59:54 -0400 Subject: [PATCH 114/166] = fixed stacking issue with non-slot equip feature but equip when item already equipped still not working. --- src/xrGame/ui/UIActorMenuInventory.cpp | 23 ++++++++++++++++++++--- 1 file changed, 20 insertions(+), 3 deletions(-) diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 28dd95ed171..846d6a5b83d 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -433,6 +433,8 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) InitCellForSlot (BINOCULAR_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(ARTEFACT_SLOT)) InitCellForSlot (ARTEFACT_SLOT); + if (!m_pActorInvOwner->inventory().SlotIsPersistent(TORCH_SLOT)) //Alundaio: TODO find out why this crash when you unequip + InitCellForSlot(TORCH_SLOT); //-Alundaio curr_list = m_pInventoryBeltList; @@ -517,6 +519,9 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) CUIDragDropListEx* new_owner = GetSlotList(slot_id); //Alundaio + if (!new_owner) + return true; + /* if ( slot_id == GRENADE_SLOT || !new_owner ) { @@ -539,7 +544,13 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) bool result = (!b_own_item) || m_pActorInvOwner->inventory().Slot(slot_id, iitem); VERIFY (result); - CUICellItem* i = old_owner->RemoveItem(itm, (old_owner==new_owner) ); + CUICellItem* i = old_owner->RemoveItem(itm, (old_owner==new_owner)); + + while (i->ChildsCount()) + { + CUICellItem* child = i->PopChild(NULL); + old_owner->SetItem(child); + } new_owner->SetItem (i); @@ -568,11 +579,12 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) if ( slot_id == INV_SLOT_3 && m_pActorInvOwner->inventory().CanPutInSlot(iitem, INV_SLOT_2)) return ToSlot(itm, force_place, INV_SLOT_2); - PIItem _iitem = m_pActorInvOwner->inventory().ItemFromSlot(slot_id); CUIDragDropListEx* slot_list = GetSlotList(slot_id); if (!slot_list) return false; - + + PIItem _iitem = m_pActorInvOwner->inventory().ItemFromSlot(slot_id); + CUIDragDropListEx* invlist = GetListByType(iActorBag); if (invlist != slot_list) { @@ -586,6 +598,11 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) if (ToBag(slot_cell, false) == false) return false; } + else + { + SendEvent_Item2Slot(iitem, m_pActorInvOwner->object_id(), slot_id); + SendEvent_ActivateSlot(slot_id, m_pActorInvOwner->object_id()); + } bool result = ToSlot(itm, false, slot_id); if(b_own_item && result && slot_id==DETECTOR_SLOT) From c7d1a1591d0657ce1f096f67e2f0edaa9fb60aac Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 29 Aug 2015 02:34:36 -0400 Subject: [PATCH 115/166] + added decay_rate for detectors when use_condition = true. on animation end this value will be subtracted from the items condition = fixed issue with non-slot equipment mechanic and stacks --- src/xrGame/CustomDetector.cpp | 9 ++++++++ src/xrGame/CustomDetector.h | 1 + src/xrGame/console_commands.cpp | 7 +++--- src/xrGame/sight_manager.cpp | 2 +- src/xrGame/ui/UIActorMenuInventory.cpp | 24 +++++++++++++++++-- src/xrGame/ui/UIActorMenu_action.cpp | 6 ++++- src/xrGame/ui/UIDragDropListEx.cpp | 32 +++++++++++--------------- src/xrGame/ui/UIDragDropListEx.h | 1 + 8 files changed, 57 insertions(+), 25 deletions(-) diff --git a/src/xrGame/CustomDetector.cpp b/src/xrGame/CustomDetector.cpp index c030fc43b21..62bfdb4d5a4 100644 --- a/src/xrGame/CustomDetector.cpp +++ b/src/xrGame/CustomDetector.cpp @@ -155,6 +155,10 @@ void CCustomDetector::OnAnimationEnd(u32 state) case eShowing: { SwitchState (eIdle); + if (IsUsingCondition() && m_fDecayRate > 0.f) + { + this->SetCondition(-m_fDecayRate); + } } break; case eHiding: { @@ -205,6 +209,7 @@ void CCustomDetector::Load(LPCSTR section) m_fAfDetectRadius = pSettings->r_float(section,"af_radius"); m_fAfVisRadius = pSettings->r_float(section,"af_vis_radius"); + m_fDecayRate = READ_IF_EXISTS(pSettings, r_float, section, "decay_rate", 0.f); //Alundaio m_artefacts.load (section, "af"); m_sounds.LoadSound( section, "snd_draw", "sndShow"); @@ -222,6 +227,10 @@ void CCustomDetector::shedule_Update(u32 dt) Fvector P; P.set (H_Parent()->Position()); + + if (IsUsingCondition() && GetCondition() <= 0.01f) + return; + m_artefacts.feel_touch_update(P,m_fAfDetectRadius); } diff --git a/src/xrGame/CustomDetector.h b/src/xrGame/CustomDetector.h index 023eff50d6a..a42b53bc5eb 100644 --- a/src/xrGame/CustomDetector.h +++ b/src/xrGame/CustomDetector.h @@ -162,6 +162,7 @@ class CCustomDetector : public CHudItemObject bool m_bWorking; float m_fAfVisRadius; + float m_fDecayRate; //Alundaio CAfList m_artefacts; }; diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 503f83d1e5b..6d9ca67daf9 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -98,7 +98,7 @@ extern int g_upgrades_log; extern float g_smart_cover_animation_speed_factor; extern BOOL g_ai_use_old_vision; -float g_aim_predict_time = 0.44f; +float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; ENGINE_API extern float g_console_sensitive; @@ -2308,9 +2308,10 @@ void CCC_RegisterCommands() extern BOOL g_ai_dbg_sight; CMD4(CCC_Integer, "ai_dbg_sight", &g_ai_dbg_sight, 0, 1); - extern BOOL g_ai_aim_use_smooth_aim; - CMD4(CCC_Integer, "ai_aim_use_smooth_aim", &g_ai_aim_use_smooth_aim, 0, 1); #endif // #ifdef DEBUG + //Alundaio: Scoped outside DEBUG + extern BOOL g_ai_aim_use_smooth_aim; + CMD4(CCC_Integer, "ai_aim_use_smooth_aim", &g_ai_aim_use_smooth_aim, 0, 1); extern float g_ai_aim_min_speed; CMD4(CCC_Float, "ai_aim_min_speed", &g_ai_aim_min_speed, 0.f, 10.f*PI); diff --git a/src/xrGame/sight_manager.cpp b/src/xrGame/sight_manager.cpp index c92bbb5e273..513f5507206 100644 --- a/src/xrGame/sight_manager.cpp +++ b/src/xrGame/sight_manager.cpp @@ -72,7 +72,7 @@ void CSightManager::vfValidateAngleDependency(float x1, float &x2, float x3) BOOL g_ai_dbg_sight = 0; #endif // #ifdef DEBUG -float g_ai_aim_min_speed = PI_DIV_8/2.f; +float g_ai_aim_min_speed = 0.24f; //PI_DIV_8/2.f; //Alundaio float g_ai_aim_min_angle = PI_DIV_8/2.f; float g_ai_aim_max_angle = PI_DIV_4; BOOL g_ai_aim_use_smooth_aim = 1; diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 846d6a5b83d..5bd161c6b13 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -433,6 +433,8 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) InitCellForSlot (BINOCULAR_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(ARTEFACT_SLOT)) InitCellForSlot (ARTEFACT_SLOT); + if (!m_pActorInvOwner->inventory().SlotIsPersistent(PDA_SLOT)) + InitCellForSlot(PDA_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(TORCH_SLOT)) //Alundaio: TODO find out why this crash when you unequip InitCellForSlot(TORCH_SLOT); //-Alundaio @@ -600,8 +602,26 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) } else { - SendEvent_Item2Slot(iitem, m_pActorInvOwner->object_id(), slot_id); - SendEvent_ActivateSlot(slot_id, m_pActorInvOwner->object_id()); + //Alundaio: Since the player's inventory is being used as a slot we need to search for cell with matching m_pData + CUICellContainer* c = slot_list->GetContainer(); + CUIWindow::WINDOW_LIST child_list = c->GetChildWndList(); + + for (WINDOW_LIST_it it = child_list.begin(); child_list.end() != it; ++it) + { + CUICellItem* i = (CUICellItem*)(*it); + PIItem pitm = (PIItem)i->m_pData; + if (pitm == _iitem) + { + if (ToBag(i, false)) + { + break; + } + else + return false; + } + } + + return ToSlot(itm, false, slot_id); } bool result = ToSlot(itm, false, slot_id); diff --git a/src/xrGame/ui/UIActorMenu_action.cpp b/src/xrGame/ui/UIActorMenu_action.cpp index 4b7573475a3..0744698a821 100644 --- a/src/xrGame/ui/UIActorMenu_action.cpp +++ b/src/xrGame/ui/UIActorMenu_action.cpp @@ -196,7 +196,11 @@ bool CUIActorMenu::OnItemDbClick(CUICellItem* itm) break; } PIItem iitem_to_place = (PIItem)itm->m_pData; - if ( !ToSlot( itm, false, iitem_to_place->BaseSlot() ) ) + if (!m_pActorInvOwner->inventory().SlotIsPersistent(iitem_to_place->BaseSlot()) && m_pActorInvOwner->inventory().ItemFromSlot(iitem_to_place->BaseSlot()) == iitem_to_place) + { + ToBag(itm, false); + } + else if ( !ToSlot( itm, false, iitem_to_place->BaseSlot() ) ) { if ( !ToBelt( itm, false ) ) { diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index 1b9d45e5625..89cb83b7274 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -543,19 +543,20 @@ bool CUICellContainer::AddSimilar(CUICellItem* itm) { if(!m_pParentDragDropList->IsGrouping()) return false; + //Alundaio: Don't stack equipped items + PIItem iitem = (PIItem)itm->m_pData; + if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) + return false; + //-Alundaio + CUICellItem* i = FindSimilar(itm); - if (i == NULL) + if (i == NULL || i == itm || itm->ChildsCount() > 0) return false; - R_ASSERT (i!=itm); - R_ASSERT (0==itm->ChildsCount()); - if(i) - { - i->PushChild (itm); - itm->SetOwnerList (m_pParentDragDropList); - } - - return (i!=NULL); + i->PushChild(itm); + itm->SetOwnerList(m_pParentDragDropList); + + return true; } CUICellItem* CUICellContainer::FindSimilar(CUICellItem* itm) @@ -571,12 +572,11 @@ CUICellItem* CUICellContainer::FindSimilar(CUICellItem* itm) PIItem iitem = (PIItem)i->m_pData; if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) continue; + //-Alundaio if (i == itm) continue; - //R_ASSERT (i!=itm); - //-Alundaio if(i->EqualTo(itm)) return i; } @@ -941,12 +941,8 @@ void CUICellContainer::Draw() { //Alundaio: Highlight equipped items PIItem iitem = (PIItem)ui_cell.m_item->m_pData; - if (iitem) - { - u16 slot = iitem->BaseSlot(); - if (iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(slot) == iitem) - select_mode = 3; - } + if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) + select_mode = 3; //-Alundaio: } } diff --git a/src/xrGame/ui/UIDragDropListEx.h b/src/xrGame/ui/UIDragDropListEx.h index 6dda4debe32..3a54cb62e5a 100644 --- a/src/xrGame/ui/UIDragDropListEx.h +++ b/src/xrGame/ui/UIDragDropListEx.h @@ -132,6 +132,7 @@ class CUIDragDropListEx :public CUIWindow, public CUIWndCallback void clear_select_armament(); Ivector2 PickCell (const Fvector2& abs_pos); CUICell& GetCellAt (const Ivector2& pos); + CUICellContainer* GetContainer() { return m_container; }; //Alundaio public: //UIWindow overriding From f95126bf0e67d2d5052b409cf5b30da89d074f50 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 29 Aug 2015 02:55:59 -0400 Subject: [PATCH 116/166] ~ added PDA_SLOT and TORCH_SLOT to list --- src/xrGame/ui/UIActorMenuInventory.cpp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 5bd161c6b13..a3291cf4c5d 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -428,11 +428,11 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) //Alundaio if (!m_pActorInvOwner->inventory().SlotIsPersistent(KNIFE_SLOT)) - InitCellForSlot (KNIFE_SLOT); + InitCellForSlot(KNIFE_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(BINOCULAR_SLOT)) - InitCellForSlot (BINOCULAR_SLOT); + InitCellForSlot(BINOCULAR_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(ARTEFACT_SLOT)) - InitCellForSlot (ARTEFACT_SLOT); + InitCellForSlot(ARTEFACT_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(PDA_SLOT)) InitCellForSlot(PDA_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(TORCH_SLOT)) //Alundaio: TODO find out why this crash when you unequip @@ -763,6 +763,8 @@ CUIDragDropListEx* CUIActorMenu::GetSlotList(u16 slot_idx) return m_pInventoryDetectorList; break; + case PDA_SLOT: + case TORCH_SLOT: case ARTEFACT_SLOT: case BINOCULAR_SLOT: case KNIFE_SLOT: From a895134b3b1cdb9dbc8c8d1d496f969c2e46d073 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sun, 20 Sep 2015 16:08:02 -0400 Subject: [PATCH 117/166] = fixed fuzzy font in DX11 = fixed being able to repair consumables with more then 1 usage ~ st_unequip is hardcoded string to display text for unequippable slotted items --- src/Layers/xrRender/dxFontRender.cpp | 4 +++- src/Layers/xrRenderPC_R3/stdafx.h | 1 + src/Layers/xrRenderPC_R4/stdafx.h | 1 + src/xrGame/Actor_Feel.cpp | 2 +- src/xrGame/Actor_Weapon.cpp | 28 +++++++++++++++++++++----- src/xrGame/ui/UIActorMenuInventory.cpp | 13 +++++++----- src/xrGame/ui/UIActorMenu_script.cpp | 11 ++++++++++ src/xrGame/ui/UIDragDropListEx.cpp | 2 +- 8 files changed, 49 insertions(+), 13 deletions(-) diff --git a/src/Layers/xrRender/dxFontRender.cpp b/src/Layers/xrRender/dxFontRender.cpp index bb8b107e984..2cd14f931ad 100644 --- a/src/Layers/xrRender/dxFontRender.cpp +++ b/src/Layers/xrRender/dxFontRender.cpp @@ -117,10 +117,12 @@ void dxFontRender::OnRender(CGameFont &owner) // tv = ( l.y / owner.vTS.y ) + ( 0.5f / owner.vTS.y ); tu = ( l.x / owner.vTS.x ); tv = ( l.y / owner.vTS.y ); -#ifndef USE_DX10 +#ifndef USE_DX10 +# ifndef USE_DX11 // Make half pixel offset for 1 to 1 mapping tu +=( 0.5f / owner.vTS.x ); tv +=( 0.5f / owner.vTS.y ); +# endif #endif // USE_DX10 v->set( X , Y2 , clr2 , tu , tv + owner.fTCHeight ); v++; diff --git a/src/Layers/xrRenderPC_R3/stdafx.h b/src/Layers/xrRenderPC_R3/stdafx.h index a25a4b77dc6..4b13f0db18e 100644 --- a/src/Layers/xrRenderPC_R3/stdafx.h +++ b/src/Layers/xrRenderPC_R3/stdafx.h @@ -62,3 +62,4 @@ IC void jitter(CBlender_Compile& C) C.r_dx10Texture ("jitterMipped", r2_jitter_mipped); C.r_dx10Sampler ("smp_jitter"); } +//#pragma comment( lib, "dxguid.lib" ) \ No newline at end of file diff --git a/src/Layers/xrRenderPC_R4/stdafx.h b/src/Layers/xrRenderPC_R4/stdafx.h index 856c4044d57..2debefc1331 100644 --- a/src/Layers/xrRenderPC_R4/stdafx.h +++ b/src/Layers/xrRenderPC_R4/stdafx.h @@ -60,3 +60,4 @@ IC void jitter(CBlender_Compile& C) C.r_dx10Texture ("jitterMipped", r2_jitter_mipped); C.r_dx10Sampler ("smp_jitter"); } +//#pragma comment( lib, "dxguid.lib" ) \ No newline at end of file diff --git a/src/xrGame/Actor_Feel.cpp b/src/xrGame/Actor_Feel.cpp index 1449bd36c24..ad8b29592dc 100644 --- a/src/xrGame/Actor_Feel.cpp +++ b/src/xrGame/Actor_Feel.cpp @@ -145,7 +145,7 @@ void CActor::PickupModeUpdate() } #include "../xrEngine/CameraBase.h" -BOOL g_b_COD_PickUpMode = FALSE; //Alundaio: Set FALSE, screw this magical call of duty item pickup shit +BOOL g_b_COD_PickUpMode = TRUE; void CActor::PickupModeUpdate_COD () { if (Level().CurrentViewEntity() != this || !g_b_COD_PickUpMode) return; diff --git a/src/xrGame/Actor_Weapon.cpp b/src/xrGame/Actor_Weapon.cpp index 2018ee7425d..3e9d573ddf6 100644 --- a/src/xrGame/Actor_Weapon.cpp +++ b/src/xrGame/Actor_Weapon.cpp @@ -25,17 +25,35 @@ static const float VEL_A_MAX = 10.f; //возвращает текуший разброс стрельбы (в радианах)с учетом движения float CActor::GetWeaponAccuracy() const { + CEntity::SEntityState state; + if (g_State(state)) + { CWeapon* W = smart_cast(inventory().ActiveItem()); + int buckShot = 0; + + if (W != NULL) + { + if (!W->m_magazine.empty()) + { + buckShot = W->m_magazine.back().param_s.buckShot; + } + else + { + CWeaponAmmo *pAmmo = (W->m_pCurrentAmmo != NULL) ? W->m_pCurrentAmmo : smart_cast(W->m_pInventory->GetAny(W->m_ammoTypes[W->m_ammoType].c_str())); + buckShot = (pAmmo != NULL) ? pAmmo->cartridge_param.buckShot : 0; + } + } + + if (buckShot > 1) + return 0.0; + + float dispersion = m_fDispBase * GetWeaponParam(W, Get_PDM_Base(), 1.0f); if ( IsZoomAimingMode() && W && !GetWeaponParam(W, IsRotatingToZoom(), false) ) { return m_fDispAim; } - float dispersion = m_fDispBase*GetWeaponParam(W, Get_PDM_Base(), 1.0f); - CEntity::SEntityState state; - if ( g_State(state) ) - { //fAVelocity = angle velocity dispersion *= ( 1.0f + (state.fAVelocity/VEL_A_MAX) * m_fDispVelFactor * GetWeaponParam(W, Get_PDM_Vel_F(), 1.0f) ); //fVelocity = linear velocity @@ -55,8 +73,8 @@ float CActor::GetWeaponAccuracy() const dispersion *= ( 1.0f + m_fDispCrouchNoAccelFactor * GetWeaponParam(W, Get_PDM_Crouch_NA(), 1.0f) ); } } + return dispersion; } - return dispersion; } diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index a3291cf4c5d..5a0c6f41966 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -943,14 +943,17 @@ void CUIActorMenu::PropertiesBoxForSlots( PIItem item, bool& b_show ) b_show = true; } - if ( item->Ruck() && - inv.CanPutInRuck(item) && - ( cur_slot == NO_ACTIVE_SLOT || !inv.SlotIsPersistent(cur_slot) ) ) + if (item->Ruck() && inv.CanPutInRuck(item) && (cur_slot == NO_ACTIVE_SLOT || !inv.SlotIsPersistent(cur_slot))) { if( !pOutfit ) { - if( !pHelmet ) - m_UIPropertiesBox->AddItem( "st_move_to_bag", NULL, INVENTORY_TO_BAG_ACTION ); + if (!pHelmet) + { + if (m_currMenuMode == mmDeadBodySearch) + m_UIPropertiesBox->AddItem("st_move_to_bag", NULL, INVENTORY_TO_BAG_ACTION); + else + m_UIPropertiesBox->AddItem("st_unequip", NULL, INVENTORY_TO_BAG_ACTION); + } else m_UIPropertiesBox->AddItem( "st_undress_helmet", NULL, INVENTORY_TO_BAG_ACTION ); } diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index d4bba7677c4..64b7f0eba79 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -13,6 +13,7 @@ #include "UICellItem.h" #include "../ai_space.h" #include "../../xrServerEntities/script_engine.h" +#include "eatable_item.h" using namespace luabind; @@ -28,6 +29,16 @@ void CUIActorMenu::TryRepairItem(CUIWindow* w, void* d) return; } LPCSTR item_name = item->m_section_id.c_str(); + + CEatableItem* EItm = smart_cast(item); + if (EItm) + { + bool allow_repair = !!READ_IF_EXISTS(pSettings, r_bool, item_name, "allow_repair", false); + if (!allow_repair) + return; + } + + LPCSTR partner = m_pPartnerInvOwner->CharacterInfo().Profile().c_str(); luabind::functor funct; diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index 89cb83b7274..607b6f5e690 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -942,7 +942,7 @@ void CUICellContainer::Draw() //Alundaio: Highlight equipped items PIItem iitem = (PIItem)ui_cell.m_item->m_pData; if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) - select_mode = 3; + select_mode = 2; //-Alundaio: } } From fc79d96d6bb24a5d3c803b6aae8c0337f1b8372a Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 23 Sep 2015 16:38:14 -0400 Subject: [PATCH 118/166] + re-enabled AI dying in anomalies. ai_die_in_anomaly console command has been added and is defaulted disabled. --- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 2 +- src/xrGame/console_commands.cpp | 4 ++++ src/xrGame/space_restrictor.cpp | 7 ++++++- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index 36db3af6bf2..3d6069c38da 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -711,7 +711,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { + if ( zone /* && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) */) { //Alundaio if (smart_cast(zone)) continue; diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 6d9ca67daf9..7e5e731524f 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,6 +101,8 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; +extern BOOL g_ai_die_in_anomaly; //Alundaio + ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -2295,6 +2297,8 @@ void CCC_RegisterCommands() CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); + CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio + CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG diff --git a/src/xrGame/space_restrictor.cpp b/src/xrGame/space_restrictor.cpp index f71bffcaeb8..e09624dcd65 100644 --- a/src/xrGame/space_restrictor.cpp +++ b/src/xrGame/space_restrictor.cpp @@ -33,6 +33,8 @@ float CSpaceRestrictor::Radius () const return (CFORM()->getRadius()); } +BOOL g_ai_die_in_anomaly = 0; //Alundaio + BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) { actual (false); @@ -67,7 +69,10 @@ BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) if (!result) return (FALSE); - spatial.type &= ~STYPE_VISIBLEFORAI; + //Alundaio: Toggle npc die in anomaly via console command + if (g_ai_die_in_anomaly == 0) + spatial.type &= ~STYPE_VISIBLEFORAI; + //-Alundaio setEnabled (FALSE); setVisible (FALSE); From 1c5c0eac984fccc4e1edce19bbed7a12f6924a56 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 24 Sep 2015 18:49:21 -0400 Subject: [PATCH 119/166] = res/gamedata/configs/misc/items.ltx added the new fields with defaults: ;New fields use_condition = false max_uses = 1 remove_after_use = true empty_weight = 0.1 allow_repair = false --- res/gamedata/configs/misc/items.ltx | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/res/gamedata/configs/misc/items.ltx b/res/gamedata/configs/misc/items.ltx index 35cabcd1041..159c5d70788 100644 --- a/res/gamedata/configs/misc/items.ltx +++ b/res/gamedata/configs/misc/items.ltx @@ -49,7 +49,12 @@ boost_explosion_immunity = 0.0 boost_fire_wound_immunity = 0.0 ;use_sound = characters_voice\multiplayer\team_1\voice_roger_3 - +;New fields in Open Xray +use_condition = false +max_uses = 1 +remove_after_use = true +empty_weight = 0.1 +allow_repair = false ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; FOOD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; From e0fa75f4d1324888f5eee63ab0052205f0baf53d Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 2 Oct 2015 18:10:02 -0400 Subject: [PATCH 120/166] = fix volumetric lighting in DX11 --- src/xrGame/CustomZone.cpp | 2 +- src/xrGame/Torch.cpp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 25d69dcf773..73048da6e1d 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -308,7 +308,7 @@ BOOL CCustomZone::net_Spawn(CSE_Abstract* DC) m_zone_flags.set (eUseOnOffTime, (m_TimeToDisable!=0)&&(m_TimeToEnable!=0) ); //добавить источники света - bool br1 = (0==psDeviceFlags.test(rsR2|rsR3)); + bool br1 = (0==psDeviceFlags.test(rsR2|rsR3|rsR4)); //Alundaio: rsR4 flag bool render_ver_allowed = !br1 || (br1&&m_zone_flags.test(eIdleLightR1)) ; diff --git a/src/xrGame/Torch.cpp b/src/xrGame/Torch.cpp index e5761d65c92..f28b47c7bb0 100644 --- a/src/xrGame/Torch.cpp +++ b/src/xrGame/Torch.cpp @@ -212,6 +212,7 @@ BOOL CTorch::net_Spawn(CSE_Abstract* DC) bool b_r2 = !!psDeviceFlags.test(rsR2); b_r2 |= !!psDeviceFlags.test(rsR3); + b_r2 |= !!psDeviceFlags.test(rsR4); //Alundaio IKinematics* K = smart_cast(Visual()); CInifile* pUserData = K->LL_UserData(); From c5085c5a175b61a343b65733712638aac8e539c8 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 2 Oct 2015 19:36:21 -0400 Subject: [PATCH 121/166] - removed ai_die_in_anomaly as it causes severe AI detection issues --- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 2 +- src/xrGame/console_commands.cpp | 4 ---- src/xrGame/space_restrictor.cpp | 7 +------ 3 files changed, 2 insertions(+), 11 deletions(-) diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index 3d6069c38da..36db3af6bf2 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -711,7 +711,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone /* && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) */) { //Alundaio + if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { if (smart_cast(zone)) continue; diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 7e5e731524f..6d9ca67daf9 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,8 +101,6 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; -extern BOOL g_ai_die_in_anomaly; //Alundaio - ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -2297,8 +2295,6 @@ void CCC_RegisterCommands() CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); - CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio - CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG diff --git a/src/xrGame/space_restrictor.cpp b/src/xrGame/space_restrictor.cpp index e09624dcd65..f71bffcaeb8 100644 --- a/src/xrGame/space_restrictor.cpp +++ b/src/xrGame/space_restrictor.cpp @@ -33,8 +33,6 @@ float CSpaceRestrictor::Radius () const return (CFORM()->getRadius()); } -BOOL g_ai_die_in_anomaly = 0; //Alundaio - BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) { actual (false); @@ -69,10 +67,7 @@ BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) if (!result) return (FALSE); - //Alundaio: Toggle npc die in anomaly via console command - if (g_ai_die_in_anomaly == 0) - spatial.type &= ~STYPE_VISIBLEFORAI; - //-Alundaio + spatial.type &= ~STYPE_VISIBLEFORAI; setEnabled (FALSE); setVisible (FALSE); From 658f68a2b6ed0870a20df1a069e2d0d110f61fda Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 7 Oct 2015 21:13:29 -0400 Subject: [PATCH 122/166] + new game object exports (see wiki: https://github.com/revolucas/xray-16/wiki/List-of-Changes) phantom_set_enemy is_on_belt item_on_belt belt_count get_actor_max_weight set_actor_max_weight get_actor_max_walk_weight set_actor_max_walk_weight get_additional_max_weight set_additional_max_weight get_additional_max_walk_weight set_additional_max_walk_weight get_total_weight weight get_actor_jump_speed set_actor_jump_speed get_actor_sprint_koef set_actor_sprint_koef get_actor_run_coef set_actor_run_coef get_actor_runback_coef set_actor_runback_coef + ray_pick class export + linker option LargeAddressAware TRUE in global properties * console command snd_cache_size upper limit increased to 64 (kb) * console command snd_targets range set to 200 to 1000 (increase from 1 to 32) --- src/Common.props | 3 + src/xrEngine/xr_ioc_cmd.cpp | 4 +- src/xrGame/Actor.cpp | 10 + src/xrGame/Actor.h | 27 ++- src/xrGame/TeleWhirlwind.cpp | 7 +- src/xrGame/UIStaticItem.h | 4 + src/xrGame/ai/phantom/phantom.cpp | 8 + src/xrGame/ai/phantom/phantom.h | 2 + src/xrGame/level_script.cpp | 53 +++- src/xrGame/raypick.cpp | 35 +++ src/xrGame/raypick.h | 51 ++++ src/xrGame/script_actor_script.cpp | 137 +++++++++++ src/xrGame/script_actor_script.h | 30 +++ src/xrGame/script_game_object.cpp | 14 ++ src/xrGame/script_game_object.h | 29 +++ .../script_game_object_inventory_owner.cpp | 228 ++++++++++++++++++ src/xrGame/script_game_object_script3.cpp | 26 ++ src/xrGame/script_particles.cpp | 36 ++- src/xrGame/script_particles.h | 6 +- src/xrGame/script_particles_script.cpp | 3 + src/xrGame/stalker_combat_actions.cpp | 75 ++++-- .../xrServer_Objects_ALife_Monsters.cpp | 2 +- 22 files changed, 763 insertions(+), 27 deletions(-) create mode 100644 src/xrGame/raypick.cpp create mode 100644 src/xrGame/raypick.h create mode 100644 src/xrGame/script_actor_script.cpp create mode 100644 src/xrGame/script_actor_script.h diff --git a/src/Common.props b/src/Common.props index 8c2bd403c53..71473a2bf33 100644 --- a/src/Common.props +++ b/src/Common.props @@ -21,6 +21,9 @@ true + + true + diff --git a/src/xrEngine/xr_ioc_cmd.cpp b/src/xrEngine/xr_ioc_cmd.cpp index 0902fb47ff7..5385dd83c02 100644 --- a/src/xrEngine/xr_ioc_cmd.cpp +++ b/src/xrEngine/xr_ioc_cmd.cpp @@ -798,8 +798,8 @@ void CCC_Register() CMD1(CCC_SND_Restart, "snd_restart"); CMD3(CCC_Mask, "snd_acceleration", &psSoundFlags, ss_Hardware); CMD3(CCC_Mask, "snd_efx", &psSoundFlags, ss_EAX); - CMD4(CCC_Integer, "snd_targets", &psSoundTargets, 4, 32); - CMD4(CCC_Integer, "snd_cache_size", &psSoundCacheSizeMB, 4, 32); + CMD4(CCC_Integer, "snd_targets", &psSoundTargets, 200, 1000); + CMD4(CCC_Integer, "snd_cache_size", &psSoundCacheSizeMB, 4, 64); #ifdef DEBUG CMD3(CCC_Mask, "snd_stats", &g_stats_flags, st_sound); diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index cfd296fa692..12ab339c5f5 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -1908,6 +1908,16 @@ void CActor::SetShotRndSeed(s32 Seed) else m_ShotRndSeed = s32(Level().timeServer_Async()); }; +Fvector CActor::GetMissileOffset () const +{ + return m_vMissileOffset; +} + +void CActor::SetMissileOffset (const Fvector &vNewOffset) +{ + m_vMissileOffset.set(vNewOffset); +} + void CActor::spawn_supplies() { inherited::spawn_supplies(); diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index 5b3c561bfc5..c15e27cc86f 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -423,6 +423,7 @@ struct SDefNewsMsg{ BOOL m_bJumpKeyPressed; +public: float m_fWalkAccel; float m_fJumpSpeed; float m_fRunFactor; @@ -480,7 +481,11 @@ struct SDefNewsMsg{ float m_fDispCrouchFactor; //crouch+no acceleration float m_fDispCrouchNoAccelFactor; - + Fvector m_vMissileOffset; +public: + // Получение, и запись смещения для гранат + Fvector GetMissileOffset () const; + void SetMissileOffset (const Fvector &vNewOffset); protected: //косточки используемые при стрельбе int m_r_hand; @@ -763,6 +768,26 @@ virtual void _BCL HideAllWeapons ( bool v ){ SetWeaponHideState(INV_STATE_B bool m_inventory_disabled; //static CPhysicsShell *actor_camera_shell; + IC u32 get_state() const + { + return this->mstate_real; + } + + IC void set_state(u32 state) + { + mstate_real = state; + } + + IC u32 get_state_wishful() const + { + return this->mstate_wishful; + } + + IC void set_state_wishful(u32 state) + { + mstate_wishful = state; + } + DECLARE_SCRIPT_REGISTER_FUNCTION }; add_to_type_list(CActor) diff --git a/src/xrGame/TeleWhirlwind.cpp b/src/xrGame/TeleWhirlwind.cpp index a0bee52fd54..600855c5737 100644 --- a/src/xrGame/TeleWhirlwind.cpp +++ b/src/xrGame/TeleWhirlwind.cpp @@ -56,11 +56,12 @@ void CTeleWhirlwind::set_throw_power(float throw_pow) void CTeleWhirlwind::draw_out_impact(Fvector& dir,float& val) { VERIFY2(m_saved_impacts.size(),"NO IMPACTS ADDED!"); - + if (0==m_saved_impacts.size()) return; dir.set(m_saved_impacts[0].force); val=dir.magnitude(); - if(!fis_zero(val))dir.mul(1.f/val); - m_saved_impacts.erase(m_saved_impacts.begin()); + //if(!fis_zero(val))dir.mul(1.f/val); + //m_saved_impacts.erase(m_saved_impacts.begin()); + m_saved_impacts.erase(m_saved_impacts.begin()); //swartz } static bool RemovePred(CTelekineticObject *tele_object) diff --git a/src/xrGame/UIStaticItem.h b/src/xrGame/UIStaticItem.h index 43fa8decc3d..e1dd152063b 100644 --- a/src/xrGame/UIStaticItem.h +++ b/src/xrGame/UIStaticItem.h @@ -38,6 +38,10 @@ class CUIStaticItem IC void SetTextureColor (u32 clr) {dwColor= clr;} IC u32 GetTextureColor () const {return dwColor;} + IC void SetColor (u32 clr) {dwColor= clr;} + IC void SetColor (Fcolor clr) {dwColor= clr.get();} + IC u32 GetColor () const {return dwColor;} + IC u32& GetColorRef () {return dwColor;} ui_shader& GetShader () {return hShader;} public: diff --git a/src/xrGame/ai/phantom/phantom.cpp b/src/xrGame/ai/phantom/phantom.cpp index b05d27b48f9..11cde32f6b0 100644 --- a/src/xrGame/ai/phantom/phantom.cpp +++ b/src/xrGame/ai/phantom/phantom.cpp @@ -75,6 +75,8 @@ BOOL CPhantom::net_Spawn(CSE_Abstract* DC) // inherited if (!inherited::net_Spawn(DC)) return FALSE; + OBJ->set_killer_id(u16(-1)); // Alundaio: Hack to prevent strange crash with dynamic phantoms + m_enemy = Level().CurrentEntity(); VERIFY (m_enemy); @@ -131,6 +133,9 @@ void CPhantom::animation_end_callback(CBlend* B) //--------------------------------------------------------------------- void CPhantom::SwitchToState_internal(EState new_state) { + if (!m_enemy) + m_enemy = Level().CurrentEntity(); + if (new_state!=m_CurState){ IKinematicsAnimated *K = smart_cast(Visual()); Fmatrix xform = XFORM_center (); @@ -222,6 +227,9 @@ void CPhantom::OnDeadState() } void CPhantom::UpdateFlyMedia() { + if (!m_enemy) + m_enemy = Level().CurrentEntity(); + UpdatePosition (m_enemy->Position()); Fmatrix xform = XFORM_center(); // update particles diff --git a/src/xrGame/ai/phantom/phantom.h b/src/xrGame/ai/phantom/phantom.h index d1b97f134f5..0af689478c3 100644 --- a/src/xrGame/ai/phantom/phantom.h +++ b/src/xrGame/ai/phantom/phantom.h @@ -83,5 +83,7 @@ class CPhantom : public CEntity { virtual BOOL UsedAI_Locations () {return false;} virtual CEntity* cast_entity () {return this;} + + void SetEnemy(CObject* enemy) { m_enemy = enemy; } //Alundaio }; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 40ce106176d..637e7fdc0cc 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -38,6 +38,9 @@ #include "xrServer_Objects_ALife_Monsters.h" #include "hudmanager.h" +#include "raypick.h" +#include "../xrcdb/xr_collide_defs.h" + using namespace luabind; LPCSTR command_line () @@ -768,6 +771,21 @@ void set_active_cam(u8 mode) #endif //-Alundaio +// KD: raypick +bool ray_pick (const Fvector& start, const Fvector& dir, float range, collide::rq_target tgt, script_rq_result& script_R, CScriptGameObject* ignore_object) +{ + collide::rq_result R; + CObject *ignore = NULL; + if (ignore_object) + ignore = smart_cast(&(ignore_object->object())); + if (Level().ObjectSpace.RayPick (start, dir, range, tgt, R, ignore)) + { + script_R.set(R); + return true; + } + else + return false; +} #pragma optimize("s",on) void CLevel::script_register(lua_State *L) @@ -878,7 +896,8 @@ void CLevel::script_register(lua_State *L) def("vertex_id", &vertex_id), - def("game_id", &GameID) + def("game_id", &GameID), + def("ray_pick", &ray_pick) ], module(L,"actor_stats") @@ -887,6 +906,38 @@ void CLevel::script_register(lua_State *L) def("add_points_str", &add_actor_points_str), def("get_points", &get_actor_points) ]; + module(L) + [ + class_("ray_pick") + .def( constructor<>()) + .def( constructor()) + .def("set_position", &CRayPick::set_position) + .def("set_direction", &CRayPick::set_direction) + .def("set_range", &CRayPick::set_range) + .def("set_flags", &CRayPick::set_flags) + .def("set_ignore_object", &CRayPick::set_ignore_object) + .def("query", &CRayPick::query) + .def("get_result", &CRayPick::get_result) + .def("get_object", &CRayPick::get_object) + .def("get_distance", &CRayPick::get_distance) + .def("get_element", &CRayPick::get_element), + class_("rq_result") + .def_readonly("object", &script_rq_result::O) + .def_readonly("range", &script_rq_result::range) + .def_readonly("element", &script_rq_result::element) + .def( constructor<>()), + class_ >("rq_target") + .enum_("targets") + [ + value("rqtNone", int(collide::rqtNone)), + value("rqtObject", int(collide::rqtObject)), + value("rqtStatic", int(collide::rqtStatic)), + value("rqtShape", int(collide::rqtShape)), + value("rqtObstacle", int(collide::rqtObstacle)), + value("rqtBoth", int(collide::rqtBoth)), + value("rqtDyn", int(collide::rqtDyn)) + ] + ]; module(L) [ diff --git a/src/xrGame/raypick.cpp b/src/xrGame/raypick.cpp new file mode 100644 index 00000000000..6b33b080272 --- /dev/null +++ b/src/xrGame/raypick.cpp @@ -0,0 +1,35 @@ +#include "stdafx.h" +#include "raypick.h" +#include "level.h" + +CRayPick::CRayPick() +{ + start_position.set(0,0,0); + direction.set(0,0,0); + range = 0; + flags = collide::rq_target::rqtNone; + ignore = NULL; +}; + +CRayPick::CRayPick(const Fvector& P, const Fvector& D, float R, collide::rq_target F, CScriptGameObject* I) +{ + start_position.set(P); + direction.set(D); + range = R; + flags = F; + ignore = NULL; + if (I) + ignore = smart_cast(&(I->object())); +}; + +bool CRayPick::query () +{ + collide::rq_result R; + if (Level().ObjectSpace.RayPick (start_position, direction, range, flags, R, ignore)) + { + result.set(R); + return true; + } + else + return false; +} \ No newline at end of file diff --git a/src/xrGame/raypick.h b/src/xrGame/raypick.h new file mode 100644 index 00000000000..626d9b4d705 --- /dev/null +++ b/src/xrGame/raypick.h @@ -0,0 +1,51 @@ +#include "pch_script.h" +#include "gameobject.h" +#include "script_game_object.h" +#include "../xrcdb/xr_collide_defs.h" + +struct script_rq_result +{ + CScriptGameObject *O; + float range; + int element; + + script_rq_result() {O = 0; range = 0; element = 0;}; + void set(collide::rq_result& R) + { + if (R.O) + { + CGameObject *go = smart_cast(R.O); + if (go) + O = go->lua_game_object(); + } + range = R.range; + element = R.element; + }; +}; + +// class for performing ray pick +struct CRayPick +{ + Fvector start_position; + Fvector direction; + float range; + collide::rq_target flags; + script_rq_result result; + CObject* ignore; + + CRayPick(); + CRayPick(const Fvector& P, const Fvector& D, float R, collide::rq_target F, CScriptGameObject* I); + + IC void set_position (Fvector& P) {start_position = P;}; + IC void set_direction (Fvector& D) {direction = D;}; + IC void set_range (float R) {range = R;}; + IC void set_flags (collide::rq_target F) {flags = F;}; + void set_ignore_object (CScriptGameObject* I) {if (I) ignore = smart_cast(&(I->object()));}; + + bool query (); + + IC script_rq_result get_result () {return result;}; + IC CScriptGameObject* get_object () {return result.O;}; + IC float get_distance () {return result.range;}; + IC int get_element () {return result.element;}; +}; \ No newline at end of file diff --git a/src/xrGame/script_actor_script.cpp b/src/xrGame/script_actor_script.cpp new file mode 100644 index 00000000000..c443f70fc58 --- /dev/null +++ b/src/xrGame/script_actor_script.cpp @@ -0,0 +1,137 @@ +//////////////////////////////////////////////////////////////////////////// +// Module : script_actor.cpp +// Created : 12.08.2014 +// Modified : 12.08.2014 +// Author : Alexander Petrov +// Description : Script Actor (params) +//////////////////////////////////////////////////////////////////////////// +//#include "stdafx.h" +#include "pch_script.h" +#include "script_game_object.h" +//#include "CharacterPhysicsSupport.h" +#include "script_actor_script.h" +//#include "PHSimpleCharacter.h" +//#include "Inventory.h" +//#include "Wound.h" + +//#include "HUDManager.h" +//#include "ui/UIDialogWnd.h" +//#include "ui/UIInventoryWnd.h" + + +using namespace luabind; + +//CPHMovementControl *get_movement(CActor *pActor) +//{ +// return pActor->character_physics_support()->movement(); +//} + +#pragma optimize("s",on) + +// IC float CScriptActor::get_burn_immunity(CActorCondition *C) { } + +//float get_jump_up_velocity(CPHMovementControl *M) +//{ +// CPHSimpleCharacter *sp = smart_cast (M->PHCharacter()); +// if (sp) return sp->get_jump_up_velocity(); +// return 0; +//} + +//float get_jump_speed(CActor *pActor) { return CScriptActor::jump_speed(pActor); } +//void set_jump_speed(CActor *pActor, float speed) +//{ +// CScriptActor::jump_speed(pActor) = speed; +// get_movement(pActor)->SetJumpUpVelocity(speed); +//} + +void CScriptActor::script_register(lua_State *L) +{ + module(L) + [ + class_ ("CActorCondition") + // .def_readwrite("immunities", &CActorCondition::m_HitTypeK) + + .def_readwrite("alcohol_health", &CActorCondition::m_fAlcohol) + .def_readwrite("alcohol_v", &CActorCondition::m_fV_Alcohol) + .def_readwrite("power", &CActorCondition::m_fPower) + .def_readwrite("power_max", &CActorCondition::m_fPowerMax) + .def_readwrite("psy_health", &CActorCondition::m_fPsyHealth) + .def_readwrite("psy_health_max", &CActorCondition::m_fPsyHealthMax) + .def_readwrite("satiety", &CActorCondition::m_fSatiety) + .def_readwrite("satiety_v", &CActorCondition::m_fV_Satiety) + .def_readwrite("satiety_health_v", &CActorCondition::m_fV_SatietyHealth) + .def_readwrite("thirst", &CActorCondition::m_fThirst) + .def_readwrite("thirst_v", &CActorCondition::m_fV_Thirst) + .def_readwrite("thirst_health_v", &CActorCondition::m_fV_ThirstHealth) + + .def_readwrite("radiation", &CActorCondition::m_fRadiation) + .def_readwrite("radiation_max", &CActorCondition::m_fRadiationMax) + .def_readwrite("morale", &CActorCondition::m_fEntityMorale) + .def_readwrite("morale_max", &CActorCondition::m_fEntityMoraleMax) + .def_readwrite("min_wound_size", &CActorCondition::m_fMinWoundSize) + .def_readonly("is_bleeding", &CActorCondition::m_bIsBleeding) + .def_readwrite("health_hit_part", &CActorCondition::m_fHealthHitPart) + .def_readwrite("power_hit_part", &CActorCondition::m_fPowerHitPart) + .def_readwrite("max_power_leak_speed", &CActorCondition::m_fPowerLeakSpeed) + .def_readwrite("jump_power", &CActorCondition::m_fJumpPower) + .def_readwrite("stand_power", &CActorCondition::m_fStandPower) + .def_readwrite("walk_power", &CActorCondition::m_fWalkPower) + .def_readwrite("jump_weight_power", &CActorCondition::m_fJumpWeightPower) + .def_readwrite("walk_weight_power", &CActorCondition::m_fWalkWeightPower) + .def_readwrite("overweight_walk_k", &CActorCondition::m_fOverweightWalkK) + .def_readwrite("overweight_jump_k", &CActorCondition::m_fOverweightJumpK) + .def_readwrite("accel_k", &CActorCondition::m_fAccelK) + .def_readwrite("sprint_k", &CActorCondition::m_fSprintK) + .def_readwrite("max_walk_weight", &CActorCondition::m_MaxWalkWeight) + + .def_readwrite("limping_power_begin", &CActorCondition::m_fLimpingPowerBegin) + .def_readwrite("limping_power_end", &CActorCondition::m_fLimpingPowerEnd) + .def_readwrite("cant_walk_power_begin", &CActorCondition::m_fCantWalkPowerBegin) + .def_readwrite("cant_walk_power_end", &CActorCondition::m_fCantWalkPowerEnd) + .def_readwrite("cant_spint_power_begin", &CActorCondition::m_fCantSprintPowerBegin) + .def_readwrite("cant_spint_power_end", &CActorCondition::m_fCantSprintPowerEnd) + .def_readwrite("limping_health_begin", &CActorCondition::m_fLimpingHealthBegin) + .def_readwrite("limping_health_end", &CActorCondition::m_fLimpingHealthEnd) + // .def_readwrite("", &CActorCondition::) + .def_readonly("limping", &CActorCondition::m_bLimping) + .def_readonly("cant_walk", &CActorCondition::m_bCantWalk) + .def_readonly("cant_sprint", &CActorCondition::m_bCantSprint) + //, + //class_("CPHMovementControl") + //.def_readwrite("ph_mass", &CPHMovementControl::fMass) + //.def_readwrite("crash_speed_max", &CPHMovementControl::fMaxCrashSpeed) + //.def_readwrite("crash_speed_min", &CPHMovementControl::fMinCrashSpeed) + //.def_readwrite("collision_damage_factor", &CPHMovementControl::fCollisionDamageFactor) + //.def_readwrite("air_control_param", &CPHMovementControl::fAirControlParam) + //.property("jump_up_velocity", &get_jump_up_velocity, &CPHMovementControl::SetJumpUpVelocity) + + //, + //class_("CActor") + + //.def_readonly("condition", &CActor::m_entity_condition) + //.def_readwrite("hit_slowmo", &CActor::m_hit_slowmo) + //.def_readwrite("hit_probability", &CActor::m_hit_probability) + //.def_readwrite("walk_accel", &CActor::m_fWalkAccel) + + //.def_readwrite("run_factor", &CActor::m_fRunFactor) + //.def_readwrite("run_back_factor", &CActor::m_fRunBackFactor) + //.def_readwrite("walk_back_factor", &CActor::m_fWalkBackFactor) + //.def_readwrite("crouch_coef", &CActor::m_fCrouchFactor) + //.def_readwrite("climb_coef", &CActor::m_fClimbFactor) + //.def_readwrite("sprint_koef", &CActor::m_fSprintFactor) + //.def_readwrite("walk_strafe_coef", &CActor::m_fWalk_StrafeFactor) + //.def_readwrite("run_strafe_coef", &CActor::m_fRun_StrafeFactor) + //.def_readwrite("disp_base", &CActor::m_fDispBase) + //.def_readwrite("disp_aim", &CActor::m_fDispAim) + //.def_readwrite("disp_vel_factor", &CActor::m_fDispVelFactor) + //.def_readwrite("disp_accel_factor", &CActor::m_fDispAccelFactor) + //.def_readwrite("disp_crouch_factor", &CActor::m_fDispCrouchFactor) + //.def_readwrite("disp_crouch_no_acc_factor", &CActor::m_fDispCrouchNoAccelFactor) + //.def_readwrite("disp_jump_factor", &CActor::m_vMissileOffset) + + //.property("movement", &get_movement) + //.property("jump_speed", &get_jump_speed, &set_jump_speed) + + + ]; +} \ No newline at end of file diff --git a/src/xrGame/script_actor_script.h b/src/xrGame/script_actor_script.h new file mode 100644 index 00000000000..f7105a3e261 --- /dev/null +++ b/src/xrGame/script_actor_script.h @@ -0,0 +1,30 @@ +//////////////////////////////////////////////////////////////////////////// +// Module : script_actor.h +// Created : 12.08.2014 +// Modified : 12.08.2014 +// Author : Alexander Petrov +// Description : Script Actor (params) +//////////////////////////////////////////////////////////////////////////// + + + +#pragma once + +#include "Actor.h" +#include "ActorCondition.h" +#include "script_export_space.h" + +class CScriptActor +{ +public: + //IC static HitImmunity::HitTypeSVec &immunities (CActorCondition *C) { return C->m_HitTypeK; }; + IC static CActorCondition::SConditionChangeV &sccv (CActorCondition *C) { return C->m_change_v; }; + IC static float &jump_speed(CActor *A) { return A->m_fJumpSpeed; } + + DECLARE_SCRIPT_REGISTER_FUNCTION +}; + +// typedef class_exporter CScriptActor; +add_to_type_list(CScriptActor) +#undef script_type_list +#define script_type_list save_type_list(CScriptActor) diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 2a1f195eab5..045bf1b5b8b 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -41,6 +41,7 @@ #include "physics_shell_scripted.h" #include "CharacterPhysicsSupport.h" //Alundaio: For set_visual #include "damage_manager.h" //Alundaio: For set_visual +#include "ai\phantom\phantom.h" class CScriptBinderObject; @@ -589,3 +590,16 @@ LPCSTR CScriptGameObject::get_visual_name() const { return object().cNameVisual().c_str(); } + +void CScriptGameObject::PhantomSetEnemy(CScriptGameObject* enemy) +{ + CPhantom* phant = smart_cast(&object()); + if (!phant) + return; + + CGameObject* obj = smart_cast(enemy); + if (!obj) + return; + + phant->SetEnemy(obj); +} diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index bab678ac6c7..403b331a2d1 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -469,6 +469,10 @@ class CScriptGameObject { void bind_object (CScriptBinderObject *object); CScriptGameObject *GetCurrentOutfit() const; float GetCurrentOutfitProtection(int hit_type); + + bool IsOnBelt(CScriptGameObject* obj) const; + CScriptGameObject *ItemOnBelt(u32 item_id) const; + u32 BeltSize() const; void deadbody_closed (bool status); bool deadbody_closed_status (); @@ -853,6 +857,31 @@ class CScriptGameObject { void SetRemainingUses(u8 value); u8 GetRemainingUses(); u8 GetMaxUses(); + + //Phantom + void PhantomSetEnemy(CScriptGameObject*); + + //Actor + + float GetActorMaxWeight () const; + void SetActorMaxWeight (float max_weight); + float GetActorMaxWalkWeight () const; + void SetActorMaxWalkWeight (float max_walk_weight); + float GetAdditionalMaxWeight () const; + void SetAdditionalMaxWeight (float add_max_weight); + float GetAdditionalMaxWalkWeight () const; + void SetAdditionalMaxWalkWeight (float add_max_walk_weight); + float GetTotalWeight () const; + float Weight () const; + + float GetActorJumpSpeed () const; + void SetActorJumpSpeed (float jump_speed); + float GetActorSprintKoef () const; + void SetActorSprintKoef (float sprint_koef); + float GetActorRunCoef () const; + void SetActorRunCoef (float run_coef); + float GetActorRunBackCoef () const; + void SetActorRunBackCoef (float run_back_coef); #endif //-Alundaio diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index e107cbc8453..4ddf91ae4a2 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -1689,5 +1689,233 @@ void CScriptGameObject::IterateInstalledUpgrades(luabind::functor functor) functor((*ib).c_str(), object().lua_game_object()); } } + + +#include "inventory_item_impl.h" +#include "inventory_item.h" +#include "inventory.h" +#include "xrserver_objects_alife_items.h" +#include "./xrServerEntities/inventory_space.h" +CScriptGameObject *CScriptGameObject::ItemOnBelt (u32 item_id) const +{ + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member item_on_belt!"); + return (0); + } + + TIItemContainer *belt = &(inventory_owner->inventory().m_belt); + if (belt->size() < item_id) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"item_on_belt: item id outside belt!"); + return (0); + } + + CInventoryItem *result = belt->at(item_id); + return (result ? result->object().lua_game_object() : 0); +} + + +bool CScriptGameObject::IsOnBelt (CScriptGameObject *obj) const + { + CInventoryItem *inventory_item = smart_cast(&(obj->object())); + if (!inventory_item) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryItem : cannot access class member is_on_belt!"); + return (0); + } + + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member is_on_belt!"); + return (0); + } + + return inventory_owner->inventory().InBelt(inventory_item); +} + +u32 CScriptGameObject::BeltSize () const +{ + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member move_to_belt!"); + return (0); + } + + return inventory_owner->inventory().m_belt.size(); +} + +float CScriptGameObject::GetActorMaxWeight() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorMaxWeight!"); + return (false); + } + return (pActor->inventory().GetMaxWeight()); +} +void CScriptGameObject::SetActorMaxWeight(float max_weight) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorMaxWeight!"); + return; + } + pActor->inventory().SetMaxWeight(max_weight); +} +// получить и задать максимальный вес при котором можно ходить +float CScriptGameObject::GetActorMaxWalkWeight() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorMaxWalkWeight!"); + return (false); + } + return (pActor->conditions().m_MaxWalkWeight); +} +void CScriptGameObject::SetActorMaxWalkWeight(float max_walk_weight) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorMaxWalkWeight!"); + return; + } + pActor->conditions().m_MaxWalkWeight = max_walk_weight; +} +//////////////////////////////////////////////////////////////////////////////////////////////////////// +// получить и задать доп. вес для костюма +float CScriptGameObject::GetAdditionalMaxWeight() const +{ + CCustomOutfit* outfit = smart_cast(&object()); + if(!outfit) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomOutfit : cannot access class member GetAdditionalMaxWeight!"); + return (false); + } + return (outfit->m_additional_weight2); +} +float CScriptGameObject::GetAdditionalMaxWalkWeight() const +{ + CCustomOutfit* outfit = smart_cast(&object()); + if(!outfit) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomOutfit : cannot access class member GetAdditionalMaxWalkWeight!"); + return (false); + } + return (outfit->m_additional_weight); +} +void CScriptGameObject::SetAdditionalMaxWeight(float add_max_weight) +{ + CCustomOutfit* outfit = smart_cast(&object()); + if(!outfit) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomOutfit : cannot access class member SetAdditionalMaxWeight!"); + return; + } + outfit->m_additional_weight2 = add_max_weight; +} +void CScriptGameObject::SetAdditionalMaxWalkWeight(float add_max_walk_weight) +{ + CCustomOutfit* outfit = smart_cast(&object()); + if(!outfit) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CCustomOutfit : cannot access class member SetAdditionalMaxWalkWeight!"); + return; + } + outfit->m_additional_weight = add_max_walk_weight; +} +//////////////////////////////////////////////////////////////////////////////////////////////////////// +// получить суммарный вес инвентаря +float CScriptGameObject::GetTotalWeight() const +{ + CInventoryOwner *inventory_owner = smart_cast(&object()); + if (!inventory_owner) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CInventoryOwner : cannot access class member GetTotalWeight!"); + return (false); + } + return (inventory_owner->inventory().TotalWeight()); +} +// получить вес предмета +float CScriptGameObject::Weight() const +{ + CInventoryItem *inventory_item = smart_cast(&object()); + if (!inventory_item) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CSciptEntity : cannot access class member Weight!"); + return (false); + } + return (inventory_item->Weight()); +} + +float CScriptGameObject::GetActorJumpSpeed() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorJumpSpeed!"); + return (false); + } + return (pActor->m_fJumpSpeed); +} + +void CScriptGameObject::SetActorJumpSpeed(float jump_speed) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorJumpSpeed!"); + return; + } + pActor->m_fJumpSpeed = jump_speed; + //character_physics_support()->movement()->SetJumpUpVelocity(m_fJumpSpeed); +} + +float CScriptGameObject::GetActorSprintKoef() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorJumpSpeed!"); + return (false); + } + return (pActor->m_fSprintFactor); +} +void CScriptGameObject::SetActorSprintKoef(float sprint_koef) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorJumpSpeed!"); + return; + } + pActor->m_fSprintFactor = sprint_koef; +} + +float CScriptGameObject::GetActorRunCoef() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorJumpSpeed!"); + return (false); + } + return (pActor->m_fRunFactor); +} +void CScriptGameObject::SetActorRunCoef(float run_coef) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorJumpSpeed!"); + return; + } + pActor->m_fRunFactor = run_coef; +} + +float CScriptGameObject::GetActorRunBackCoef() const +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member GetActorJumpSpeed!"); + return (false); + } + return (pActor->m_fRunBackFactor); +} +void CScriptGameObject::SetActorRunBackCoef(float run_back_coef) +{ + CActor* pActor = smart_cast(&object()); + if(!pActor) { + ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"CActor : cannot access class member SetActorJumpSpeed!"); + return; + } + pActor->m_fRunBackFactor = run_back_coef; +} #endif //Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 497f9ed1f5d..53e356791a7 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -369,6 +369,8 @@ class_ &script_register_game_object2(class_ &script_register_game_object2(class_(this, caParticlesName); + m_transform.identity(); } CScriptParticles::~CScriptParticles() @@ -115,7 +116,11 @@ void CScriptParticles::Play() void CScriptParticles::PlayAtPos(const Fvector &position) { VERIFY (m_particles); - m_particles->play_at_pos (position); + //m_particles->play_at_pos (position); + m_transform.translate_over (position); + m_particles->UpdateParent (m_transform, zero_vel); + m_particles->Play(false); + m_particles->UpdateParent (m_transform, zero_vel); } void CScriptParticles::Stop () @@ -132,10 +137,33 @@ void CScriptParticles::StopDeffered() void CScriptParticles::MoveTo (const Fvector &pos, const Fvector& vel) { + //VERIFY (m_particles); + //Fmatrix XF; + //XF.translate (pos); + //m_particles->UpdateParent (XF,vel); VERIFY (m_particles); - Fmatrix XF; - XF.translate (pos); - m_particles->UpdateParent (XF,vel); + m_transform.translate_over (pos); + m_particles->UpdateParent (m_transform,vel); +} + +void CScriptParticles::SetDirection (const Fvector &dir) +{ + Fmatrix matrix; + matrix.identity (); + matrix.k.set (dir); + Fvector::generate_orthonormal_basis_normalized (matrix.k,matrix.j,matrix.i); + matrix.translate_over (m_transform.c); + m_transform.set (matrix); + m_particles->UpdateParent (matrix, zero_vel); +} + +void CScriptParticles::SetOrientation(float yaw, float pitch, float roll) +{ + Fmatrix matrix; + matrix.setHPB(yaw, pitch, roll); // ?????????? matrix.c + matrix.translate_over (m_transform.c); + m_transform.set (matrix); + m_particles->UpdateParent (matrix, zero_vel); } bool CScriptParticles::IsPlaying() const diff --git a/src/xrGame/script_particles.h b/src/xrGame/script_particles.h index b46e28a139a..7442f57e406 100644 --- a/src/xrGame/script_particles.h +++ b/src/xrGame/script_particles.h @@ -33,6 +33,8 @@ class CScriptParticlesCustom: public CParticlesObject{ }; class CScriptParticles{ +private: + Fmatrix m_transform; public: CScriptParticlesCustom* m_particles; CScriptParticles (LPCSTR caParticlesName); @@ -47,7 +49,9 @@ class CScriptParticles{ bool IsLooped () const; void MoveTo (const Fvector &pos, const Fvector& vel); - + void SetDirection (const Fvector &dir); + void SetOrientation (float yaw, float pitch, float roll); + Fvector LastPosition() const { return m_transform.c; } void LoadPath (LPCSTR caPathName); void StartPath (bool looped); void StopPath (); diff --git a/src/xrGame/script_particles_script.cpp b/src/xrGame/script_particles_script.cpp index 39ccc9e841c..e60e6542e3c 100644 --- a/src/xrGame/script_particles_script.cpp +++ b/src/xrGame/script_particles_script.cpp @@ -27,7 +27,10 @@ void CScriptParticles::script_register(lua_State *L) .def("looped", &CScriptParticles::IsLooped) .def("move_to", &CScriptParticles::MoveTo) + .def("set_direction", &CScriptParticles::SetDirection) + .def("set_orientation", &CScriptParticles::SetOrientation) + .def("last_position", &CScriptParticles::LastPosition) .def("load_path", &CScriptParticles::LoadPath) .def("start_path", &CScriptParticles::StartPath) .def("stop_path", &CScriptParticles::StopPath) diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index eb727327185..11694c0331f 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -418,14 +418,15 @@ void CStalkerActionKillEnemy::execute() if (mem_object.m_object) { object().best_cover(mem_object.m_object_params.m_position); } - + if (object().memory().visual().visible_now(enemy)) { object().sight().setup(CSightAction(enemy, true, true)); fire(); - } else { + } + else { aim_ready(); if (mem_object.m_object) - object().sight().setup(CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } } else @@ -518,13 +519,22 @@ void CStalkerActionTakeCover::execute() m_storage->set_property(eWorldPropertyInCover, true); } - if (object().memory().visual().visible_now(enemy)) + if (object().memory().visual().visible_now(enemy)) { object().sight().setup(CSightAction(enemy, true, true)); fire(); - } else { + } + else { aim_ready(); - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + u32 const level_time = object().memory().visual().visible_object_time_last_seen(mem_object.m_object); + if (Device.dwTimeGlobal >= level_time + 3000 && _abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } } @@ -611,9 +621,18 @@ void CStalkerActionLookOut::execute() if (!mem_object.m_object) return; - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + u32 const level_time = object().memory().visual().visible_object_time_last_seen(mem_object.m_object); + if (Device.dwTimeGlobal >= level_time + 3000 && _abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); object().best_cover(mem_object.m_object_params.m_position); + //-Alundaio if (current_cover(m_object) >= 3.f) { object().movement().set_nearest_accessible_position(); @@ -696,7 +715,16 @@ void CStalkerActionHoldPosition::execute() if (current_cover(m_object) < 3.f) m_storage->set_property(eWorldPropertyLookedOut, false); - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + u32 const level_time = object().memory().visual().visible_object_time_last_seen(mem_object.m_object); + if (Device.dwTimeGlobal >= level_time + 3000 && _abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //-Alundaio if (completed()) { if ( @@ -812,7 +840,16 @@ void CStalkerActionDetourEnemy::execute() m_storage->set_property(eWorldPropertyEnemyDetoured, true); } - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + u32 const level_time = object().memory().visual().visible_object_time_last_seen(mem_object.m_object); + if (Device.dwTimeGlobal >= level_time + 3000 && _abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //-Alundaio } ////////////////////////////////////////////////////////////////////////// @@ -991,19 +1028,29 @@ void CStalkerActionSuddenAttack::execute() // m_storage->set_property (eWorldPropertyUseSuddenness,false); //Alundaio: END - if (!object().memory().enemy().selected()) + const CEntityAlive *enemy = object().memory().enemy().selected(); + if (!enemy) return; - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) return; - bool visible_now = object().memory().visual().visible_now(object().memory().enemy().selected()); + bool visible_now = object().memory().visual().visible_now(enemy); if (visible_now) - object().sight().setup(CSightAction(object().memory().enemy().selected(), true)); + object().sight().setup(CSightAction(enemy, true)); else { - object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //Alundaio: Prevent stalkers from staring at floor or ceiling for this action + u32 const level_time = object().memory().visual().visible_object_time_last_seen(mem_object.m_object); + if (Device.dwTimeGlobal >= level_time + 3000 && _abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.5f) + { + Fvector3 Vpos = { mem_object.m_object_params.m_position.x, object().Position().y + 1.f, mem_object.m_object_params.m_position.z }; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, Vpos, true)); + } + else + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + //-Alundaio } if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp index 82ad9095290..5b35216e05f 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp @@ -998,7 +998,7 @@ void CSE_ALifeCreatureAbstract::STATE_Write (NET_Packet &tNetPacket) save_data (m_dynamic_out_restrictions,tNetPacket); save_data (m_dynamic_in_restrictions,tNetPacket); tNetPacket.w_u16 ( get_killer_id() ); - R_ASSERT(!(get_health() > 0.0f && get_killer_id() != u16(-1))); + //R_ASSERT(!(get_health() > 0.0f && get_killer_id() != u16(-1))); tNetPacket.w_u64 (m_game_death_time); } From f2b926f8adb779b114735f94bf506932790080c1 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 8 Oct 2015 16:15:35 -0400 Subject: [PATCH 123/166] + raypick.cpp ~ made public ActorCondition.h m_MaxWalkWeight --- src/xrGame/Actor.h | 2 +- src/xrGame/ActorCondition.h | 2 ++ src/xrGame/Actor_Weapon.cpp | 30 ++++--------------- .../script_game_object_inventory_owner.cpp | 1 + src/xrGame/xrGame.vcxproj | 1 + src/xrGame/xrGame.vcxproj.filters | 3 ++ 6 files changed, 14 insertions(+), 25 deletions(-) diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index c15e27cc86f..8f1e4f484b8 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -651,7 +651,7 @@ virtual bool can_validate_position_on_spawn (){return false;} Fvector m_AutoPickUp_AABB_Offset; void Check_for_AutoPickUp (); - void SelectBestWeapon (CObject* O); + void SelectBestWeapon(CObject* O); public: void SetWeaponHideState (u16 State, bool bSet); private://IPhysicsShellHolder diff --git a/src/xrGame/ActorCondition.h b/src/xrGame/ActorCondition.h index 617370bdb3c..d2106cf387d 100644 --- a/src/xrGame/ActorCondition.h +++ b/src/xrGame/ActorCondition.h @@ -140,7 +140,9 @@ class CActorCondition: public CEntityCondition { float m_fAccelK; float m_fSprintK; +public: float m_MaxWalkWeight; +protected: float m_zone_max_power[ALife::infl_max_count]; float m_zone_danger[ALife::infl_max_count]; float m_f_time_affected; diff --git a/src/xrGame/Actor_Weapon.cpp b/src/xrGame/Actor_Weapon.cpp index 3e9d573ddf6..1b1651bdaee 100644 --- a/src/xrGame/Actor_Weapon.cpp +++ b/src/xrGame/Actor_Weapon.cpp @@ -25,35 +25,17 @@ static const float VEL_A_MAX = 10.f; //возвращает текуший разброс стрельбы (в радианах)с учетом движения float CActor::GetWeaponAccuracy() const { - CEntity::SEntityState state; - if (g_State(state)) - { CWeapon* W = smart_cast(inventory().ActiveItem()); - int buckShot = 0; - - if (W != NULL) - { - if (!W->m_magazine.empty()) - { - buckShot = W->m_magazine.back().param_s.buckShot; - } - else - { - CWeaponAmmo *pAmmo = (W->m_pCurrentAmmo != NULL) ? W->m_pCurrentAmmo : smart_cast(W->m_pInventory->GetAny(W->m_ammoTypes[W->m_ammoType].c_str())); - buckShot = (pAmmo != NULL) ? pAmmo->cartridge_param.buckShot : 0; - } - } - - if (buckShot > 1) - return 0.0; - - float dispersion = m_fDispBase * GetWeaponParam(W, Get_PDM_Base(), 1.0f); if ( IsZoomAimingMode() && W && !GetWeaponParam(W, IsRotatingToZoom(), false) ) { return m_fDispAim; } + float dispersion = m_fDispBase*GetWeaponParam(W, Get_PDM_Base(), 1.0f); + CEntity::SEntityState state; + if ( g_State(state) ) + { //fAVelocity = angle velocity dispersion *= ( 1.0f + (state.fAVelocity/VEL_A_MAX) * m_fDispVelFactor * GetWeaponParam(W, Get_PDM_Vel_F(), 1.0f) ); //fVelocity = linear velocity @@ -73,8 +55,8 @@ float CActor::GetWeaponAccuracy() const dispersion *= ( 1.0f + m_fDispCrouchNoAccelFactor * GetWeaponParam(W, Get_PDM_Crouch_NA(), 1.0f) ); } } - return dispersion; } + return dispersion; } @@ -137,7 +119,7 @@ static u16 BestWeaponSlots [] = { GRENADE_SLOT , // 3 KNIFE_SLOT , // 0 }; -void CActor::SelectBestWeapon (CObject* O) +void CActor::SelectBestWeapon(CObject* O) { if (!O) return; if ( IsGameTypeSingle() ) return; diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 4ddf91ae4a2..261220e0660 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -47,6 +47,7 @@ #include "doors_door.h" #include "Torch.h" #include "physicobject.h" +#include "customoutfit.h" //Alundaio #include "inventory_upgrade_manager.h" #include "inventory_upgrade_root.h" diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index b618e3da1ee..83490e5bcf3 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -3251,6 +3251,7 @@ + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index 33c0c679fdd..f2bdf7c3d9d 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -11039,6 +11039,9 @@ Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + + Core\Common + From 5a1daf683d2034d759ca723224f1e6e96928e999 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 9 Oct 2015 00:46:06 -0400 Subject: [PATCH 124/166] - reverted actor condition exports --- src/xrGame/EntityCondition.h | 1 + src/xrGame/script_actor_script.cpp | 137 ----------------------------- src/xrGame/script_actor_script.h | 30 ------- 3 files changed, 1 insertion(+), 167 deletions(-) delete mode 100644 src/xrGame/script_actor_script.cpp delete mode 100644 src/xrGame/script_actor_script.h diff --git a/src/xrGame/EntityCondition.h b/src/xrGame/EntityCondition.h index b8ac9e8945f..35c4dab820d 100644 --- a/src/xrGame/EntityCondition.h +++ b/src/xrGame/EntityCondition.h @@ -222,6 +222,7 @@ class CEntityCondition: public CEntityConditionSimple, public CHitImmunity float m_fMinWoundSize; bool m_bIsBleeding; //есть кровотечение + //части хита, затрачиваемые на уменьшение здоровья и силы float m_fHealthHitPart; float m_fPowerHitPart; diff --git a/src/xrGame/script_actor_script.cpp b/src/xrGame/script_actor_script.cpp deleted file mode 100644 index c443f70fc58..00000000000 --- a/src/xrGame/script_actor_script.cpp +++ /dev/null @@ -1,137 +0,0 @@ -//////////////////////////////////////////////////////////////////////////// -// Module : script_actor.cpp -// Created : 12.08.2014 -// Modified : 12.08.2014 -// Author : Alexander Petrov -// Description : Script Actor (params) -//////////////////////////////////////////////////////////////////////////// -//#include "stdafx.h" -#include "pch_script.h" -#include "script_game_object.h" -//#include "CharacterPhysicsSupport.h" -#include "script_actor_script.h" -//#include "PHSimpleCharacter.h" -//#include "Inventory.h" -//#include "Wound.h" - -//#include "HUDManager.h" -//#include "ui/UIDialogWnd.h" -//#include "ui/UIInventoryWnd.h" - - -using namespace luabind; - -//CPHMovementControl *get_movement(CActor *pActor) -//{ -// return pActor->character_physics_support()->movement(); -//} - -#pragma optimize("s",on) - -// IC float CScriptActor::get_burn_immunity(CActorCondition *C) { } - -//float get_jump_up_velocity(CPHMovementControl *M) -//{ -// CPHSimpleCharacter *sp = smart_cast (M->PHCharacter()); -// if (sp) return sp->get_jump_up_velocity(); -// return 0; -//} - -//float get_jump_speed(CActor *pActor) { return CScriptActor::jump_speed(pActor); } -//void set_jump_speed(CActor *pActor, float speed) -//{ -// CScriptActor::jump_speed(pActor) = speed; -// get_movement(pActor)->SetJumpUpVelocity(speed); -//} - -void CScriptActor::script_register(lua_State *L) -{ - module(L) - [ - class_ ("CActorCondition") - // .def_readwrite("immunities", &CActorCondition::m_HitTypeK) - - .def_readwrite("alcohol_health", &CActorCondition::m_fAlcohol) - .def_readwrite("alcohol_v", &CActorCondition::m_fV_Alcohol) - .def_readwrite("power", &CActorCondition::m_fPower) - .def_readwrite("power_max", &CActorCondition::m_fPowerMax) - .def_readwrite("psy_health", &CActorCondition::m_fPsyHealth) - .def_readwrite("psy_health_max", &CActorCondition::m_fPsyHealthMax) - .def_readwrite("satiety", &CActorCondition::m_fSatiety) - .def_readwrite("satiety_v", &CActorCondition::m_fV_Satiety) - .def_readwrite("satiety_health_v", &CActorCondition::m_fV_SatietyHealth) - .def_readwrite("thirst", &CActorCondition::m_fThirst) - .def_readwrite("thirst_v", &CActorCondition::m_fV_Thirst) - .def_readwrite("thirst_health_v", &CActorCondition::m_fV_ThirstHealth) - - .def_readwrite("radiation", &CActorCondition::m_fRadiation) - .def_readwrite("radiation_max", &CActorCondition::m_fRadiationMax) - .def_readwrite("morale", &CActorCondition::m_fEntityMorale) - .def_readwrite("morale_max", &CActorCondition::m_fEntityMoraleMax) - .def_readwrite("min_wound_size", &CActorCondition::m_fMinWoundSize) - .def_readonly("is_bleeding", &CActorCondition::m_bIsBleeding) - .def_readwrite("health_hit_part", &CActorCondition::m_fHealthHitPart) - .def_readwrite("power_hit_part", &CActorCondition::m_fPowerHitPart) - .def_readwrite("max_power_leak_speed", &CActorCondition::m_fPowerLeakSpeed) - .def_readwrite("jump_power", &CActorCondition::m_fJumpPower) - .def_readwrite("stand_power", &CActorCondition::m_fStandPower) - .def_readwrite("walk_power", &CActorCondition::m_fWalkPower) - .def_readwrite("jump_weight_power", &CActorCondition::m_fJumpWeightPower) - .def_readwrite("walk_weight_power", &CActorCondition::m_fWalkWeightPower) - .def_readwrite("overweight_walk_k", &CActorCondition::m_fOverweightWalkK) - .def_readwrite("overweight_jump_k", &CActorCondition::m_fOverweightJumpK) - .def_readwrite("accel_k", &CActorCondition::m_fAccelK) - .def_readwrite("sprint_k", &CActorCondition::m_fSprintK) - .def_readwrite("max_walk_weight", &CActorCondition::m_MaxWalkWeight) - - .def_readwrite("limping_power_begin", &CActorCondition::m_fLimpingPowerBegin) - .def_readwrite("limping_power_end", &CActorCondition::m_fLimpingPowerEnd) - .def_readwrite("cant_walk_power_begin", &CActorCondition::m_fCantWalkPowerBegin) - .def_readwrite("cant_walk_power_end", &CActorCondition::m_fCantWalkPowerEnd) - .def_readwrite("cant_spint_power_begin", &CActorCondition::m_fCantSprintPowerBegin) - .def_readwrite("cant_spint_power_end", &CActorCondition::m_fCantSprintPowerEnd) - .def_readwrite("limping_health_begin", &CActorCondition::m_fLimpingHealthBegin) - .def_readwrite("limping_health_end", &CActorCondition::m_fLimpingHealthEnd) - // .def_readwrite("", &CActorCondition::) - .def_readonly("limping", &CActorCondition::m_bLimping) - .def_readonly("cant_walk", &CActorCondition::m_bCantWalk) - .def_readonly("cant_sprint", &CActorCondition::m_bCantSprint) - //, - //class_("CPHMovementControl") - //.def_readwrite("ph_mass", &CPHMovementControl::fMass) - //.def_readwrite("crash_speed_max", &CPHMovementControl::fMaxCrashSpeed) - //.def_readwrite("crash_speed_min", &CPHMovementControl::fMinCrashSpeed) - //.def_readwrite("collision_damage_factor", &CPHMovementControl::fCollisionDamageFactor) - //.def_readwrite("air_control_param", &CPHMovementControl::fAirControlParam) - //.property("jump_up_velocity", &get_jump_up_velocity, &CPHMovementControl::SetJumpUpVelocity) - - //, - //class_("CActor") - - //.def_readonly("condition", &CActor::m_entity_condition) - //.def_readwrite("hit_slowmo", &CActor::m_hit_slowmo) - //.def_readwrite("hit_probability", &CActor::m_hit_probability) - //.def_readwrite("walk_accel", &CActor::m_fWalkAccel) - - //.def_readwrite("run_factor", &CActor::m_fRunFactor) - //.def_readwrite("run_back_factor", &CActor::m_fRunBackFactor) - //.def_readwrite("walk_back_factor", &CActor::m_fWalkBackFactor) - //.def_readwrite("crouch_coef", &CActor::m_fCrouchFactor) - //.def_readwrite("climb_coef", &CActor::m_fClimbFactor) - //.def_readwrite("sprint_koef", &CActor::m_fSprintFactor) - //.def_readwrite("walk_strafe_coef", &CActor::m_fWalk_StrafeFactor) - //.def_readwrite("run_strafe_coef", &CActor::m_fRun_StrafeFactor) - //.def_readwrite("disp_base", &CActor::m_fDispBase) - //.def_readwrite("disp_aim", &CActor::m_fDispAim) - //.def_readwrite("disp_vel_factor", &CActor::m_fDispVelFactor) - //.def_readwrite("disp_accel_factor", &CActor::m_fDispAccelFactor) - //.def_readwrite("disp_crouch_factor", &CActor::m_fDispCrouchFactor) - //.def_readwrite("disp_crouch_no_acc_factor", &CActor::m_fDispCrouchNoAccelFactor) - //.def_readwrite("disp_jump_factor", &CActor::m_vMissileOffset) - - //.property("movement", &get_movement) - //.property("jump_speed", &get_jump_speed, &set_jump_speed) - - - ]; -} \ No newline at end of file diff --git a/src/xrGame/script_actor_script.h b/src/xrGame/script_actor_script.h deleted file mode 100644 index f7105a3e261..00000000000 --- a/src/xrGame/script_actor_script.h +++ /dev/null @@ -1,30 +0,0 @@ -//////////////////////////////////////////////////////////////////////////// -// Module : script_actor.h -// Created : 12.08.2014 -// Modified : 12.08.2014 -// Author : Alexander Petrov -// Description : Script Actor (params) -//////////////////////////////////////////////////////////////////////////// - - - -#pragma once - -#include "Actor.h" -#include "ActorCondition.h" -#include "script_export_space.h" - -class CScriptActor -{ -public: - //IC static HitImmunity::HitTypeSVec &immunities (CActorCondition *C) { return C->m_HitTypeK; }; - IC static CActorCondition::SConditionChangeV &sccv (CActorCondition *C) { return C->m_change_v; }; - IC static float &jump_speed(CActor *A) { return A->m_fJumpSpeed; } - - DECLARE_SCRIPT_REGISTER_FUNCTION -}; - -// typedef class_exporter CScriptActor; -add_to_type_list(CScriptActor) -#undef script_type_list -#define script_type_list save_type_list(CScriptActor) From f2ea7515f42900231496a29a4d7df2310b370873 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 14 Jan 2016 06:41:20 -0500 Subject: [PATCH 125/166] = Workaround for invalid vertex for object --- src/xrGame/alife_switch_manager.cpp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/xrGame/alife_switch_manager.cpp b/src/xrGame/alife_switch_manager.cpp index f9c441f8d62..6ce41c73458 100644 --- a/src/xrGame/alife_switch_manager.cpp +++ b/src/xrGame/alife_switch_manager.cpp @@ -66,7 +66,8 @@ void CALifeSwitchManager::add_online(CSE_ALifeDynamicObject *object, bool update if (strstr(Core.Params, "-dbg")) Msg("[LSS] Spawning object [%s][%s][%d]", object->name_replace(), *object->s_name, object->ID); - R_ASSERT2(!object->used_ai_locations() || ai().level_graph().valid_vertex_id(object->m_tNodeID), make_string("Invalid vertex for object %s", object->name_replace())); + //Alundaio: Workaround for crash with corpses that end up outside AI map + //R_ASSERT2(!object->used_ai_locations() || ai().level_graph().valid_vertex_id(object->m_tNodeID), make_string("Invalid vertex for object %s", object->name_replace())); object->add_online (update_registries); STOP_PROFILE From 46c1c78c14698764c1e33222adb5e3d189fdc734 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 25 Feb 2016 19:16:15 -0500 Subject: [PATCH 126/166] + added new exported game_object methods for weapons: set_ammo_type(u8 ammo_type) get_ammo_count_for_type(u8 ammo_type) has_ammo_type(u8 ammo_type) get_weapon_substate() get_main_weapon_type() -- deals with ef_main_weapon_type set_main_weapon_type(u16 type) get_weapon_type() -- deals with ef_weapon_type set_weapon_type(u16 type) --- src/xrGame/Weapon.h | 12 +++- src/xrGame/script_game_object.cpp | 69 +++++++++++++++++++++++ src/xrGame/script_game_object.h | 8 +++ src/xrGame/script_game_object_script2.cpp | 10 ++++ 4 files changed, 97 insertions(+), 2 deletions(-) diff --git a/src/xrGame/Weapon.h b/src/xrGame/Weapon.h index b1b28fe9d5b..1b21f8c90c1 100644 --- a/src/xrGame/Weapon.h +++ b/src/xrGame/Weapon.h @@ -150,13 +150,15 @@ class CWeapon : public CHudItemObject, } protected: bool m_bTriStateReload; - u8 m_sub_state; + // a misfire happens, you'll need to rearm weapon bool bMisfire; BOOL m_bAutoSpawnAmmo; virtual bool AllowBore(); public: + u8 m_sub_state; + bool IsGrenadeLauncherAttached() const; bool IsScopeAttached() const; bool IsSilencerAttached() const; @@ -531,7 +533,6 @@ class CWeapon : public CHudItemObject, CParticlesObject* m_pFlameParticles2; protected: - int GetAmmoCount_forType(shared_str const& ammo_type) const; int GetAmmoCount(u8 ammo_type) const; public: @@ -636,6 +637,13 @@ class CWeapon : public CHudItemObject, virtual u32 ef_main_weapon_type() const; virtual u32 ef_weapon_type() const; + //Alundaio + int GetAmmoCount_forType(shared_str const& ammo_type) const; + virtual void set_ef_main_weapon_type(u32 type){ m_ef_main_weapon_type = type; }; + virtual void set_ef_weapon_type(u32 type){ m_ef_weapon_type = type; }; + virtual void SetAmmoType(u8 type) { m_ammoType = type; }; + //-Alundaio + protected: // This is because when scope is attached we can't ask scope for these params // therefore we should hold them by ourself :-(( diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 045bf1b5b8b..79e083f318a 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -340,6 +340,75 @@ void CScriptGameObject::SetAmmoElapsed(int ammo_elapsed) weapon->SetAmmoElapsed(ammo_elapsed); } +//Alundaio +int CScriptGameObject::GetAmmoCount(u8 type) +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return 0; + + if (type < weapon->m_ammoTypes.size()) + return weapon->GetAmmoCount_forType(weapon->m_ammoTypes[type]); + + return 0; +} + +void CScriptGameObject::SetAmmoType(u8 type) +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return; + + weapon->SetAmmoType(type); +} + +void CScriptGameObject::SetMainWeaponType(u32 type) +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return; + + weapon->set_ef_main_weapon_type(type); +} + +void CScriptGameObject::SetWeaponType(u32 type) +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return; + + weapon->set_ef_weapon_type(type); +} + +u32 CScriptGameObject::GetMainWeaponType() +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return 0; + + return weapon->ef_main_weapon_type(); +} + +u32 CScriptGameObject::GetWeaponType() +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return 0; + + return weapon->ef_weapon_type(); +} + +bool CScriptGameObject::HasAmmoType(u8 type) +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return false; + + return type < weapon->m_ammoTypes.size(); +} + +u8 CScriptGameObject::GetWeaponSubstate() +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return 0; + + return weapon->m_sub_state; +} +//-Alundaio + u32 CScriptGameObject::GetSuitableAmmoTotal() const { const CWeapon *weapon = smart_cast(&object()); diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 403b331a2d1..e64117f88d6 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -818,6 +818,14 @@ class CScriptGameObject { //Weapon void Weapon_AddonAttach(CScriptGameObject* item); void Weapon_AddonDetach(LPCSTR item_section); + bool HasAmmoType(u8 type); + int GetAmmoCount(u8 type); + void SetAmmoType(u8 type); + void SetMainWeaponType(u32 type); + void SetWeaponType(u32 type); + u32 GetMainWeaponType(); + u32 GetWeaponType(); + u8 GetWeaponSubstate(); //Weapon & Outfit bool InstallUpgrade(LPCSTR upgrade); diff --git a/src/xrGame/script_game_object_script2.cpp b/src/xrGame/script_game_object_script2.cpp index eacc4a13849..31ae6c0a224 100644 --- a/src/xrGame/script_game_object_script2.cpp +++ b/src/xrGame/script_game_object_script2.cpp @@ -143,6 +143,16 @@ class_ &script_register_game_object1(class_ Date: Tue, 12 Apr 2016 18:37:14 -0400 Subject: [PATCH 127/166] + exports for game_objects: set_weight, use, start_trade, start_upgrade - remove distance check when opening inventory boxes --- src/xrGame/Weapon.h | 1 + src/xrGame/inventory_item.h | 1 + src/xrGame/script_game_object.cpp | 117 +++++++++++++++++- src/xrGame/script_game_object.h | 5 + .../script_game_object_inventory_owner.cpp | 9 ++ src/xrGame/script_game_object_script2.cpp | 5 + src/xrGame/ui/UIActorMenu.cpp | 2 +- 7 files changed, 133 insertions(+), 7 deletions(-) diff --git a/src/xrGame/Weapon.h b/src/xrGame/Weapon.h index 1b21f8c90c1..ee27eb057ab 100644 --- a/src/xrGame/Weapon.h +++ b/src/xrGame/Weapon.h @@ -642,6 +642,7 @@ class CWeapon : public CHudItemObject, virtual void set_ef_main_weapon_type(u32 type){ m_ef_main_weapon_type = type; }; virtual void set_ef_weapon_type(u32 type){ m_ef_weapon_type = type; }; virtual void SetAmmoType(u8 type) { m_ammoType = type; }; + u8 GetAmmoType() { return m_ammoType; }; //-Alundaio protected: diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index ead58892f25..ce82878a3ea 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -140,6 +140,7 @@ class CInventoryItem : virtual u32 Cost () const { return m_cost; } // u32 Cost () const { return m_cost; } virtual float Weight () const { return m_weight;} + void SetWeight(float w) { m_weight = w; }; public: CInventory* m_pInventory; diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 79e083f318a..302ec7dc949 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -43,6 +43,10 @@ #include "damage_manager.h" //Alundaio: For set_visual #include "ai\phantom\phantom.h" +#include "uigamecustom.h" +#include "ui/UIActorMenu.h" +#include "InventoryBox.h" + class CScriptBinderObject; ////////////////////////////////////////////////////////////////////////// @@ -360,6 +364,14 @@ void CScriptGameObject::SetAmmoType(u8 type) weapon->SetAmmoType(type); } +u8 CScriptGameObject::GetAmmoType() +{ + CWeapon *weapon = smart_cast(&object()); + if (!weapon) return 255; + + return weapon->GetAmmoType(); +} + void CScriptGameObject::SetMainWeaponType(u32 type) { CWeapon *weapon = smart_cast(&object()); @@ -379,7 +391,7 @@ void CScriptGameObject::SetWeaponType(u32 type) u32 CScriptGameObject::GetMainWeaponType() { CWeapon *weapon = smart_cast(&object()); - if (!weapon) return 0; + if (!weapon) return 255; return weapon->ef_main_weapon_type(); } @@ -387,7 +399,7 @@ u32 CScriptGameObject::GetMainWeaponType() u32 CScriptGameObject::GetWeaponType() { CWeapon *weapon = smart_cast(&object()); - if (!weapon) return 0; + if (!weapon) return 255; return weapon->ef_weapon_type(); } @@ -403,7 +415,7 @@ bool CScriptGameObject::HasAmmoType(u8 type) u8 CScriptGameObject::GetWeaponSubstate() { CWeapon *weapon = smart_cast(&object()); - if (!weapon) return 0; + if (!weapon) return 255; return weapon->m_sub_state; } @@ -666,9 +678,102 @@ void CScriptGameObject::PhantomSetEnemy(CScriptGameObject* enemy) if (!phant) return; - CGameObject* obj = smart_cast(enemy); - if (!obj) + phant->SetEnemy(&enemy->object()); +} + +//Allows to force use an object if passed obj is the actor +bool CScriptGameObject::Use(CScriptGameObject* obj) +{ + bool ret = object().use(&obj->object()); + + CActor* actor = smart_cast(&obj->object()); + if (!actor) + return ret; + + CInventoryOwner* pActorInv = smart_cast(actor); + if (!pActorInv) + return ret; + + CUIActorMenu& ActorMenu = CurrentGameUI()->GetActorMenu(); + + CInventoryBox* pBox = smart_cast(&object()); + if (pBox) + { + ActorMenu.SetActor(pActorInv); + ActorMenu.SetInvBox(pBox); + + ActorMenu.SetMenuMode(mmDeadBodySearch); + ActorMenu.ShowDialog(true); + + return true; + } else { + CInventoryOwner* pOtherOwner = smart_cast(&object()); + if (!pOtherOwner) + return ret; + + /* + CEntityAlive* e = smart_cast(pOtherOwner); + if (e && e->g_Alive()) + { + actor->RunTalkDialog(pOtherOwner, false); + return true; + } + */ + + ActorMenu.SetActor(pActorInv); + ActorMenu.SetPartner(pOtherOwner); + + ActorMenu.SetMenuMode(mmDeadBodySearch); + ActorMenu.ShowDialog(true); + + return true; + } + + return false; +} + +void CScriptGameObject::StartTrade(CScriptGameObject* obj) +{ + CActor* actor = smart_cast(&obj->object()); + if (!actor) + return; + + CInventoryOwner* pActorInv = smart_cast(actor); + if (!pActorInv) + return; + + CInventoryOwner* pOtherOwner = smart_cast(&object()); + if (!pOtherOwner) return; - phant->SetEnemy(obj); + CUIActorMenu& ActorMenu = CurrentGameUI()->GetActorMenu(); + + ActorMenu.SetActor(pActorInv); + ActorMenu.SetPartner(pOtherOwner); + + ActorMenu.SetMenuMode(mmTrade); + ActorMenu.ShowDialog(true); } + +void CScriptGameObject::StartUpgrade(CScriptGameObject* obj) +{ + CActor* actor = smart_cast(&obj->object()); + if (!actor) + return; + + CInventoryOwner* pActorInv = smart_cast(actor); + if (!pActorInv) + return; + + CInventoryOwner* pOtherOwner = smart_cast(&object()); + if (!pOtherOwner) + return; + + CUIActorMenu& ActorMenu = CurrentGameUI()->GetActorMenu(); + + ActorMenu.SetActor(pActorInv); + ActorMenu.SetPartner(pOtherOwner); + + ActorMenu.SetMenuMode(mmUpgrade); + ActorMenu.ShowDialog(true); +} \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index e64117f88d6..02a86f81a53 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -815,6 +815,10 @@ class CScriptGameObject { void SetHealthEx(float hp); //AVO float GetLuminocityHemi(); float GetLuminocity(); + bool Use(CScriptGameObject* obj); + void StartTrade(CScriptGameObject* obj); + void StartUpgrade(CScriptGameObject* obj); + void SetWeight(float w); //Weapon void Weapon_AddonAttach(CScriptGameObject* item); void Weapon_AddonDetach(LPCSTR item_section); @@ -826,6 +830,7 @@ class CScriptGameObject { u32 GetMainWeaponType(); u32 GetWeaponType(); u8 GetWeaponSubstate(); + u8 GetAmmoType(); //Weapon & Outfit bool InstallUpgrade(LPCSTR upgrade); diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 261220e0660..69a963b0f6d 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -1840,6 +1840,15 @@ float CScriptGameObject::Weight() const } return (inventory_item->Weight()); } +void CScriptGameObject::SetWeight(float w) +{ + CInventoryItem *inventory_item = smart_cast(&object()); + if (!inventory_item) { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CSciptEntity : cannot access class member SetWeight!"); + return; + } + inventory_item->SetWeight(w); +} float CScriptGameObject::GetActorJumpSpeed() const { diff --git a/src/xrGame/script_game_object_script2.cpp b/src/xrGame/script_game_object_script2.cpp index 31ae6c0a224..112e907c6f0 100644 --- a/src/xrGame/script_game_object_script2.cpp +++ b/src/xrGame/script_game_object_script2.cpp @@ -144,7 +144,11 @@ class_ &script_register_game_object1(class_ &script_register_game_object1(class_ Date: Sun, 29 May 2016 18:56:17 -0400 Subject: [PATCH 128/166] + Added cut-content AmebaZone + Added ZS_AMEBA and ZS_NGRAV class registrator ids --- src/xrGame/AmebaZone.cpp | 27 +++++++++---------- src/xrGame/AmebaZone.h | 12 ++++++--- src/xrGame/xrGame.vcxproj | 2 ++ src/xrGame/xrGame.vcxproj.filters | 9 +++++++ .../object_factory_register.cpp | 6 +++-- 5 files changed, 36 insertions(+), 20 deletions(-) diff --git a/src/xrGame/AmebaZone.cpp b/src/xrGame/AmebaZone.cpp index 1ef948a264d..6d919e9f55b 100644 --- a/src/xrGame/AmebaZone.cpp +++ b/src/xrGame/AmebaZone.cpp @@ -1,15 +1,15 @@ #include "stdafx.h" -/* -#include "CustomZone.h" -#include "../Include/xrRender/KinematicsAnimated.h" + +#include "AmebaZone.h" #include "ZoneVisual.h" -#include "PHObject.h" +#include "CustomZone.h" +#include "../xrengine/xr_collide_form.h" +#include "../Include/xrRender/Kinematics.h" +#include "PhysicsShellHolder.h" #include "PHMovementControl.h" -#include "AmebaZone.h" -#include "hudmanager.h" -#include "level.h" -#include "entity_alive.h" #include "CharacterPhysicsSupport.h" +#include "entity_alive.h" + CAmebaZone::CAmebaZone() { @@ -54,22 +54,22 @@ void CAmebaZone::Affect(SZoneObjectInfo* O) Fvector position_in_bone_space; - float power = Power(distance_to_center(O->object)); + float power = Power(distance_to_center(O->object), m_fEffectiveRadius); float power_critical = 0.0f; float impulse = m_fHitImpulseScale*power*pGameObject->GetMass(); if(power > 0.01f) { - m_dwDeltaTime = 0; + //m_dwDeltaTime = 0; position_in_bone_space.set(0.f,0.f,0.f); - CreateHit(pGameObject->ID(),ID(),hit_dir,power,power_critical,0,position_in_bone_space,impulse,m_eHitTypeBlowout); + CreateHit(pGameObject->ID(),ID(),hit_dir,power,0,position_in_bone_space,impulse,m_eHitTypeBlowout); PlayHitParticles(pGameObject); } } -void CAmebaZone::PhTune(dReal step) +void CAmebaZone::PhTune(float step) { OBJECT_INFO_VEC_IT it; for(it = m_ObjectInfoMap.begin(); m_ObjectInfoMap.end() != it; ++it) @@ -80,7 +80,7 @@ void CAmebaZone::PhTune(dReal step) CPHMovementControl* mc = EA->character_physics_support()->movement(); if(mc) { - if(distance_to_center(EA)SetVelocityLimit(m_fVelocityLimit); } } @@ -108,4 +108,3 @@ float CAmebaZone::distance_to_center(CObject* O) Fvector OP;OP.set(O->Position()); return _sqrt((P.x-OP.x)*(P.x-OP.x)+(P.x-OP.x)*(P.x-OP.x)); } -*/ \ No newline at end of file diff --git a/src/xrGame/AmebaZone.h b/src/xrGame/AmebaZone.h index 42596403743..b69ad1e68eb 100644 --- a/src/xrGame/AmebaZone.h +++ b/src/xrGame/AmebaZone.h @@ -1,5 +1,10 @@ #pragma once -/* + +#include "CustomZone.h" +#include "../Include/xrRender/KinematicsAnimated.h" +#include "ZoneVisual.h" +#include "../../../xrphysics/PHUpdateObject.h" + class CAmebaZone : public CVisualZone, public CPHUpdateObject @@ -12,11 +17,10 @@ float m_fVelocityLimit; virtual void Affect (SZoneObjectInfo* O) ; protected: - virtual void PhTune (dReal step) ; - virtual void PhDataUpdate (dReal step) {;} + virtual void PhTune (float step) ; + virtual void PhDataUpdate (float step) {;} virtual bool BlowoutState () ; virtual void SwitchZoneState (EZoneState new_state) ; virtual void Load (LPCSTR section) ; virtual float distance_to_center (CObject* O) ; }; -*/ \ No newline at end of file diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 83490e5bcf3..77b29afe353 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -889,6 +889,7 @@ + @@ -2566,6 +2567,7 @@ + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index f2bdf7c3d9d..c64676e6589 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -2491,6 +2491,9 @@ {71df3723-4ad3-4db1-9eb8-7bf643a66f93} + + {7111b5cd-588d-46ec-81c2-ccc6c70fa4de} + @@ -7386,6 +7389,9 @@ Core\Client\Objects\items & weapons\Weapons\Custom Weapon\Pistol + + Core\Client\Objects\zones\Ameba + @@ -11042,6 +11048,9 @@ Core\Common + + Core\Client\Objects\zones\Ameba + diff --git a/src/xrServerEntities/object_factory_register.cpp b/src/xrServerEntities/object_factory_register.cpp index ab7a1050e77..4fcced62c69 100644 --- a/src/xrServerEntities/object_factory_register.cpp +++ b/src/xrServerEntities/object_factory_register.cpp @@ -135,7 +135,7 @@ # include "torridZone.h" # include "ZoneVisual.h" # include "hairszone.h" -//. # include "amebazone.h" +# include "amebazone.h" # include "nogravityzone.h" # include "simpledetector.h" # include "elitedetector.h" @@ -382,7 +382,7 @@ void CObjectFactory::register_classes () ADD(CTeamBaseZone ,CSE_ALifeTeamBaseZone ,CLSID_Z_TEAM_BASE ,"team_base_zone"); ADD(CTorridZone ,CSE_ALifeTorridZone ,CLSID_Z_TORRID ,"torrid_zone"); ADD(CSpaceRestrictor ,CSE_ALifeSpaceRestrictor ,CLSID_SPACE_RESTRICTOR ,"space_restrictor"); -//. ADD(CAmebaZone ,CSE_ALifeZoneVisual ,CLSID_Z_AMEBA ,"ameba_zone"); + ADD(CAmebaZone ,CSE_ALifeZoneVisual ,CLSID_Z_AMEBA ,"ameba_zone"); ADD(CNoGravityZone ,CSE_ALifeAnomalousZone ,CLSID_Z_NOGRAVITY ,"nogravity_zone"); ADD(CZoneCampfire ,CSE_ALifeAnomalousZone ,CLSID_Z_CAMPFIRE ,"zone_campfire"); // Detectors @@ -449,6 +449,8 @@ void CObjectFactory::register_classes () ADD(CMosquitoBald ,CSE_ALifeAnomalousZone ,TEXT2CLSID("ZS_MBALD") ,"zone_mbald_s"); ADD(CMincer ,CSE_ALifeAnomalousZone ,TEXT2CLSID("ZS_GALAN") ,"zone_galant_s"); ADD(CMincer ,CSE_ALifeAnomalousZone ,TEXT2CLSID("ZS_MINCE") ,"zone_mincer_s"); + ADD(CAmebaZone ,CSE_ALifeZoneVisual ,TEXT2CLSID("ZS_AMEBA") ,"zone_ameba_s"); + ADD(CNoGravityZone ,CSE_ALifeAnomalousZone ,TEXT2CLSID("ZS_NGRAV") ,"zone_nograv_s"); ADD(CSpaceRestrictor ,CSE_ALifeSpaceRestrictor ,TEXT2CLSID("SPC_RS_S") ,"script_restr"); #endif // NO_XR_GAME } From 0b7bb5cc9154c5e0ff296aa689f601bd202284e0 Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 30 May 2016 22:46:48 -0400 Subject: [PATCH 129/166] + AI are now effected by Anomalies inherited from CCustomZone ~ Changed in-game text color for Neutral to yellow + Added game_object:set_character_icon(texture_name) --- src/build_config_defines.h | 2 +- src/xrGame/CustomZone.cpp | 17 +++++++++++++++++ src/xrGame/InventoryOwner.cpp | 2 +- src/xrGame/InventoryOwner.h | 2 ++ src/xrGame/ai/stalker/ai_stalker_feel.cpp | 10 ++++++++++ src/xrGame/ai/stalker/ai_stalker_fire.cpp | 2 +- src/xrGame/console_commands.cpp | 4 ++++ src/xrGame/script_game_object.h | 4 +++- .../script_game_object_inventory_owner.cpp | 12 ++++++++++++ src/xrGame/script_game_object_script3.cpp | 2 ++ src/xrGame/ui/UIInventoryUtilities.cpp | 4 ++-- src/xrGame/xrGame.vcxproj | 4 ++-- 12 files changed, 57 insertions(+), 8 deletions(-) diff --git a/src/build_config_defines.h b/src/build_config_defines.h index fc2d1ae44c8..a5fc78769fb 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -1,7 +1,7 @@ #pragma once // CALLBACKS - //#define EXTENDED_ITEM_CALLBACKS // (eItemToBelt, eItemToSlot, eItemToRuck) + #define EXTENDED_ITEM_CALLBACKS // (eItemToBelt, eItemToSlot, eItemToRuck) #define EXTENDED_WEAPON_CALLBACKS // (eOnWeaponZoomIn, eOnWeaponZoomOut, eOnWeaponJammed) #define INVENTORY_UPGRADE_CALLBACKS // calls lua function inventory_upgrades.effect_upgrade_item #define ACTOR_BEFORE_DEATH_CALLBACK // For extending the life of the actor to fake death or do other tasks that need to happen before actor is dead diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 73048da6e1d..05644948c95 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -1393,8 +1393,25 @@ void CCustomZone::GoEnabledState() bool CCustomZone::feel_touch_on_contact (CObject *O) { + //Alundaio + /* if ((spatial.type | STYPE_VISIBLEFORAI) != spatial.type) return (false); + */ + + if (smart_cast(O)) return false; + if (smart_cast(O)) return false; + if (0==smart_cast(O->Visual())) return false; + if (O->ID() == ID()) return false; + + CGameObject *object = smart_cast(O); + if (!object || !object->IsVisibleForZones()) + return false; + + if (!((CCF_Shape*)CFORM())->Contact(O)) + return false; + + //Alundaio - END return (inherited::feel_touch_on_contact(O)); } diff --git a/src/xrGame/InventoryOwner.cpp b/src/xrGame/InventoryOwner.cpp index 7569ad38c15..448b249d63f 100644 --- a/src/xrGame/InventoryOwner.cpp +++ b/src/xrGame/InventoryOwner.cpp @@ -476,7 +476,7 @@ void CInventoryOwner::OnItemBelt(CInventoryItem *inventory_item, const SInvItemP #ifdef EXTENDED_ITEM_CALLBACKS CGameObject *object = smart_cast(this); VERIFY(object); - object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()) + object->callback(GameObject::eItemToBelt)(inventory_item->object().lua_game_object()); #endif /* avo: end */ } diff --git a/src/xrGame/InventoryOwner.h b/src/xrGame/InventoryOwner.h index 009f6c26f7c..575350a13bf 100644 --- a/src/xrGame/InventoryOwner.h +++ b/src/xrGame/InventoryOwner.h @@ -167,6 +167,8 @@ class CInventoryOwner : public CAttachmentOwner { virtual void SetReputation (CHARACTER_REPUTATION_VALUE); virtual void ChangeReputation(CHARACTER_REPUTATION_VALUE); + virtual void SetIcon(const shared_str& iconName){ CharacterInfo().m_SpecificCharacter.data()->m_icon_name = iconName; }; + //для работы с relation system u16 object_id () const; CHARACTER_COMMUNITY_INDEX Community () const {return CharacterInfo().Community().index();}; diff --git a/src/xrGame/ai/stalker/ai_stalker_feel.cpp b/src/xrGame/ai/stalker/ai_stalker_feel.cpp index 8726df73377..c93063c1c8f 100644 --- a/src/xrGame/ai/stalker/ai_stalker_feel.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_feel.cpp @@ -15,6 +15,9 @@ #include "../../stalker_movement_manager_smart_cover.h" #include "../../stalker_animation_manager.h" +BOOL g_ai_die_in_anomaly = 0; //Alundaio +#include "CustomZone.h" + #ifdef DEBUG # include "../../ai_debug.h" extern Flags32 psAI_Flags; @@ -78,6 +81,13 @@ bool CAI_Stalker::feel_touch_on_contact (CObject *O) { VERIFY (O != this); + //Alundaio + if (g_ai_die_in_anomaly == 1 && smart_cast(O)) + { + return (inherited::feel_touch_on_contact(O)); + } + //-Alundaio + if ((O->spatial.type | STYPE_VISIBLEFORAI) != O->spatial.type) return (false); diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index 36db3af6bf2..ec6af5a4f6f 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -711,7 +711,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { + if ( zone /*&& (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone)*/ ) { //Alundaio if (smart_cast(zone)) continue; diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 6d9ca67daf9..7e5e731524f 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,6 +101,8 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; +extern BOOL g_ai_die_in_anomaly; //Alundaio + ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -2295,6 +2297,8 @@ void CCC_RegisterCommands() CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); + CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio + CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 02a86f81a53..0b6f0c23ae0 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -894,7 +894,9 @@ class CScriptGameObject { float GetActorRunCoef () const; void SetActorRunCoef (float run_coef); float GetActorRunBackCoef () const; - void SetActorRunBackCoef (float run_back_coef); + void SetActorRunBackCoef (float run_back_coef); + + void SetCharacterIcon(LPCSTR iconName); #endif //-Alundaio diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index 69a963b0f6d..ed4762ad173 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -1927,5 +1927,17 @@ void CScriptGameObject::SetActorRunBackCoef(float run_back_coef) } pActor->m_fRunBackFactor = run_back_coef; } + +void CScriptGameObject::SetCharacterIcon(LPCSTR iconName) +{ + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetCharacterIcon available only for InventoryOwner"); + return; + } + return pInventoryOwner->SetIcon(iconName); +} #endif //Alundaio: END \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 53e356791a7..1aa58e23723 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -371,6 +371,8 @@ class_ &script_register_game_object2(class_1000){ res = 0xff00ff00; @@ -581,7 +581,7 @@ u32 InventoryUtilities::GetRelationColor(ALife::ERelationType relation) return 0xff00ff00; break; case ALife::eRelationTypeNeutral: - return 0xffc0c0c0; + return 0xfffce80b; //0xffc0c0c0; break; case ALife::eRelationTypeEnemy: return 0xffff0000; diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 77b29afe353..0a7dc803710 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -233,9 +233,9 @@ true ProgramDatabase 4995;4005;4237;%(DisableSpecificWarnings) - false + true USE_LUAJIT_ONE - true + false NDEBUG;%(PreprocessorDefinitions) From 117a94998f0b8ab0c0185f7c64d8013db06294dc Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 31 May 2016 21:10:08 -0400 Subject: [PATCH 130/166] - remove ai_die_in_anomaly console command + add new game_object exports: u32 get_spatial_type() -- get alife object flags set_spatial_type(u32) -- set alife object flags iterate_feel_touch(funct) ex. obj:iterate_feel_touch(func) -- passes ID as param to a given lua function --- src/xrGame/ai/stalker/ai_stalker_feel.cpp | 10 -------- src/xrGame/console_commands.cpp | 4 ---- src/xrGame/script_game_object.h | 4 ++++ src/xrGame/script_game_object3.cpp | 28 +++++++++++++++++++++++ src/xrGame/script_game_object_script3.cpp | 3 +++ 5 files changed, 35 insertions(+), 14 deletions(-) diff --git a/src/xrGame/ai/stalker/ai_stalker_feel.cpp b/src/xrGame/ai/stalker/ai_stalker_feel.cpp index c93063c1c8f..8726df73377 100644 --- a/src/xrGame/ai/stalker/ai_stalker_feel.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_feel.cpp @@ -15,9 +15,6 @@ #include "../../stalker_movement_manager_smart_cover.h" #include "../../stalker_animation_manager.h" -BOOL g_ai_die_in_anomaly = 0; //Alundaio -#include "CustomZone.h" - #ifdef DEBUG # include "../../ai_debug.h" extern Flags32 psAI_Flags; @@ -81,13 +78,6 @@ bool CAI_Stalker::feel_touch_on_contact (CObject *O) { VERIFY (O != this); - //Alundaio - if (g_ai_die_in_anomaly == 1 && smart_cast(O)) - { - return (inherited::feel_touch_on_contact(O)); - } - //-Alundaio - if ((O->spatial.type | STYPE_VISIBLEFORAI) != O->spatial.type) return (false); diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 7e5e731524f..6d9ca67daf9 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,8 +101,6 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; -extern BOOL g_ai_die_in_anomaly; //Alundaio - ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -2297,8 +2295,6 @@ void CCC_RegisterCommands() CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); - CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio - CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 0b6f0c23ae0..a96656b78a6 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -819,6 +819,10 @@ class CScriptGameObject { void StartTrade(CScriptGameObject* obj); void StartUpgrade(CScriptGameObject* obj); void SetWeight(float w); + void IterateFeelTouch(luabind::functor functor); + u32 GetSpatialType(); + void SetSpatialType(u32 sptype); + //Weapon void Weapon_AddonAttach(CScriptGameObject* item); void Weapon_AddonDetach(LPCSTR item_section); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 45614094925..6a744d26372 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -46,6 +46,8 @@ #include "CharacterPhysicsSupport.h" #include "player_hud.h" #include "eatable_item.h" +#include "script_callback_ex.h" +#include "../xrEngine/feel_touch.h" #endif //-Alundaio @@ -1393,5 +1395,31 @@ u8 CScriptGameObject::GetMaxUses() return eItm->GetMaxUses(); } + +void CScriptGameObject::IterateFeelTouch(luabind::functor functor) +{ + Feel::Touch* touch = smart_cast(&object()); + if (touch) + { + xr_vector::const_iterator I = touch->feel_touch.begin(); + xr_vector::const_iterator E = touch->feel_touch.end(); + for (; I != E; ++I) { + CObject* o = smart_cast(*I); + if (o) + functor(o->ID()); + } + } +} + +void CScriptGameObject::SetSpatialType(u32 sptype) +{ + object().spatial.type = sptype; +} + +u32 CScriptGameObject::GetSpatialType() +{ + return object().spatial.type; +} + #endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 1aa58e23723..8a02c01946b 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -348,12 +348,15 @@ class_ &script_register_game_object2(class_ Date: Tue, 31 May 2016 21:10:08 -0400 Subject: [PATCH 131/166] - remove ai_die_in_anomaly console command + add new game_object exports: u32 get_spatial_type() -- get alife object flags set_spatial_type(u32) -- set alife object flags iterate_feel_touch(funct) ex. obj:iterate_feel_touch(func) -- passes ID as param to a given lua function --- src/xrGame/CustomZone.cpp | 17 -------------- src/xrGame/ai/stalker/ai_stalker_feel.cpp | 10 -------- src/xrGame/console_commands.cpp | 4 ---- src/xrGame/script_game_object.h | 4 ++++ src/xrGame/script_game_object3.cpp | 28 +++++++++++++++++++++++ src/xrGame/script_game_object_script3.cpp | 3 +++ 6 files changed, 35 insertions(+), 31 deletions(-) diff --git a/src/xrGame/CustomZone.cpp b/src/xrGame/CustomZone.cpp index 05644948c95..73048da6e1d 100644 --- a/src/xrGame/CustomZone.cpp +++ b/src/xrGame/CustomZone.cpp @@ -1393,25 +1393,8 @@ void CCustomZone::GoEnabledState() bool CCustomZone::feel_touch_on_contact (CObject *O) { - //Alundaio - /* if ((spatial.type | STYPE_VISIBLEFORAI) != spatial.type) return (false); - */ - - if (smart_cast(O)) return false; - if (smart_cast(O)) return false; - if (0==smart_cast(O->Visual())) return false; - if (O->ID() == ID()) return false; - - CGameObject *object = smart_cast(O); - if (!object || !object->IsVisibleForZones()) - return false; - - if (!((CCF_Shape*)CFORM())->Contact(O)) - return false; - - //Alundaio - END return (inherited::feel_touch_on_contact(O)); } diff --git a/src/xrGame/ai/stalker/ai_stalker_feel.cpp b/src/xrGame/ai/stalker/ai_stalker_feel.cpp index c93063c1c8f..8726df73377 100644 --- a/src/xrGame/ai/stalker/ai_stalker_feel.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_feel.cpp @@ -15,9 +15,6 @@ #include "../../stalker_movement_manager_smart_cover.h" #include "../../stalker_animation_manager.h" -BOOL g_ai_die_in_anomaly = 0; //Alundaio -#include "CustomZone.h" - #ifdef DEBUG # include "../../ai_debug.h" extern Flags32 psAI_Flags; @@ -81,13 +78,6 @@ bool CAI_Stalker::feel_touch_on_contact (CObject *O) { VERIFY (O != this); - //Alundaio - if (g_ai_die_in_anomaly == 1 && smart_cast(O)) - { - return (inherited::feel_touch_on_contact(O)); - } - //-Alundaio - if ((O->spatial.type | STYPE_VISIBLEFORAI) != O->spatial.type) return (false); diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 7e5e731524f..6d9ca67daf9 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,8 +101,6 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; -extern BOOL g_ai_die_in_anomaly; //Alundaio - ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -2297,8 +2295,6 @@ void CCC_RegisterCommands() CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); - CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio - CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 0b6f0c23ae0..a96656b78a6 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -819,6 +819,10 @@ class CScriptGameObject { void StartTrade(CScriptGameObject* obj); void StartUpgrade(CScriptGameObject* obj); void SetWeight(float w); + void IterateFeelTouch(luabind::functor functor); + u32 GetSpatialType(); + void SetSpatialType(u32 sptype); + //Weapon void Weapon_AddonAttach(CScriptGameObject* item); void Weapon_AddonDetach(LPCSTR item_section); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 45614094925..6a744d26372 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -46,6 +46,8 @@ #include "CharacterPhysicsSupport.h" #include "player_hud.h" #include "eatable_item.h" +#include "script_callback_ex.h" +#include "../xrEngine/feel_touch.h" #endif //-Alundaio @@ -1393,5 +1395,31 @@ u8 CScriptGameObject::GetMaxUses() return eItm->GetMaxUses(); } + +void CScriptGameObject::IterateFeelTouch(luabind::functor functor) +{ + Feel::Touch* touch = smart_cast(&object()); + if (touch) + { + xr_vector::const_iterator I = touch->feel_touch.begin(); + xr_vector::const_iterator E = touch->feel_touch.end(); + for (; I != E; ++I) { + CObject* o = smart_cast(*I); + if (o) + functor(o->ID()); + } + } +} + +void CScriptGameObject::SetSpatialType(u32 sptype) +{ + object().spatial.type = sptype; +} + +u32 CScriptGameObject::GetSpatialType() +{ + return object().spatial.type; +} + #endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 1aa58e23723..8a02c01946b 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -348,12 +348,15 @@ class_ &script_register_game_object2(class_ Date: Wed, 1 Jun 2016 00:20:43 -0400 Subject: [PATCH 132/166] + added ai_die_in_anomaly via space_restrictor.cpp (again) --- src/xrGame/console_commands.cpp | 3259 ++++++++++++++++--------------- src/xrGame/space_restrictor.cpp | 9 +- 2 files changed, 1640 insertions(+), 1628 deletions(-) diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 6d9ca67daf9..de91309e5e8 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -101,6 +101,8 @@ extern BOOL g_ai_use_old_vision; float g_aim_predict_time = 0.40f; int g_keypress_on_start = 1; +extern BOOL g_ai_die_in_anomaly; //Alundaio + ENGINE_API extern float g_console_sensitive; void register_mp_console_commands(); @@ -108,9 +110,9 @@ void register_mp_console_commands(); BOOL g_bCheckTime = FALSE; int net_cl_inputupdaterate = 50; -Flags32 g_mt_config = {mtLevelPath | mtDetailPath | mtObjectHandler | mtSoundPlayer | mtAiVision | mtBullets | mtLUA_GC | mtLevelSounds | mtALife | mtMap}; +Flags32 g_mt_config = { mtLevelPath | mtDetailPath | mtObjectHandler | mtSoundPlayer | mtAiVision | mtBullets | mtLUA_GC | mtLevelSounds | mtALife | mtMap }; #ifdef DEBUG -Flags32 dbg_net_Draw_Flags = {0}; +Flags32 dbg_net_Draw_Flags = { 0 }; #endif #ifdef DEBUG @@ -135,7 +137,7 @@ int g_AI_inactive_time = 0; Flags32 g_uCommonFlags; enum E_COMMON_FLAGS { - flAiUseTorchDynamicLights = 1 + flAiUseTorchDynamicLights = 1 }; CUIOptConCom g_OptConCom; @@ -155,61 +157,61 @@ XRCORE_API full_memory_stats_callback_type g_full_memory_stats_callback; static void full_memory_stats() { - Memory.mem_compact(); - size_t _process_heap = ::Memory.mem_usage(); + Memory.mem_compact(); + size_t _process_heap = ::Memory.mem_usage(); #ifdef SEVERAL_ALLOCATORS - u32 _game_lua = game_lua_memory_usage(); - u32 _render = ::Render->memory_usage(); + u32 _game_lua = game_lua_memory_usage(); + u32 _render = ::Render->memory_usage(); #endif // SEVERAL_ALLOCATORS - int _eco_strings = (int) g_pStringContainer->stat_economy(); - int _eco_smem = (int) g_pSharedMemoryContainer->stat_economy(); - u32 m_base = 0, c_base = 0, m_lmaps = 0, c_lmaps = 0; + int _eco_strings = (int)g_pStringContainer->stat_economy(); + int _eco_smem = (int)g_pSharedMemoryContainer->stat_economy(); + u32 m_base = 0, c_base = 0, m_lmaps = 0, c_lmaps = 0; - //if (Device.Resources) Device.Resources->_GetMemoryUsage (m_base,c_base,m_lmaps,c_lmaps); - // Resource check moved to m_pRender - if (Device.m_pRender) Device.m_pRender->ResourcesGetMemoryUsage(m_base, c_base, m_lmaps, c_lmaps); + //if (Device.Resources) Device.Resources->_GetMemoryUsage (m_base,c_base,m_lmaps,c_lmaps); + // Resource check moved to m_pRender + if (Device.m_pRender) Device.m_pRender->ResourcesGetMemoryUsage(m_base, c_base, m_lmaps, c_lmaps); - log_vminfo(); + log_vminfo(); - Msg("* [ D3D ]: textures[%d K]", (m_base + m_lmaps) / 1024); + Msg("* [ D3D ]: textures[%d K]", (m_base + m_lmaps) / 1024); #ifndef SEVERAL_ALLOCATORS - Msg ("* [x-ray]: process heap[%u K]",_process_heap/1024); + Msg("* [x-ray]: process heap[%u K]", _process_heap / 1024); #else // SEVERAL_ALLOCATORS - Msg("* [x-ray]: process heap[%u K], game lua[%d K], render[%d K]", _process_heap / 1024, _game_lua / 1024, _render / 1024); + Msg("* [x-ray]: process heap[%u K], game lua[%d K], render[%d K]", _process_heap / 1024, _game_lua / 1024, _render / 1024); #endif // SEVERAL_ALLOCATORS - Msg("* [x-ray]: economy: strings[%d K], smem[%d K]", _eco_strings / 1024, _eco_smem); + Msg("* [x-ray]: economy: strings[%d K], smem[%d K]", _eco_strings / 1024, _eco_smem); #ifdef FS_DEBUG - Msg ("* [x-ray]: file mapping: memory[%d K], count[%d]",g_file_mapped_memory/1024,g_file_mapped_count); - dump_file_mappings (); + Msg("* [x-ray]: file mapping: memory[%d K], count[%d]", g_file_mapped_memory / 1024, g_file_mapped_count); + dump_file_mappings(); #endif // DEBUG } class CCC_MemStats : public IConsole_Command { public: - CCC_MemStats(LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = TRUE; - g_full_memory_stats_callback = &full_memory_stats; - }; - virtual void Execute(LPCSTR args) - { - full_memory_stats(); - } + CCC_MemStats(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = TRUE; + g_full_memory_stats_callback = &full_memory_stats; + }; + virtual void Execute(LPCSTR args) + { + full_memory_stats(); + } }; #ifdef DEBUG class CCC_MemCheckpoint : public IConsole_Command { public: - CCC_MemCheckpoint(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = FALSE; }; - virtual void Execute(LPCSTR args) - { - memory_monitor::make_checkpoint(args); - } - virtual void Save(IWriter *F) {} + CCC_MemCheckpoint(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = FALSE; }; + virtual void Execute(LPCSTR args) + { + memory_monitor::make_checkpoint(args); + } + virtual void Save(IWriter *F) {} }; #endif // #ifdef DEBUG @@ -217,194 +219,194 @@ class CCC_MemCheckpoint : public IConsole_Command class CCC_GameDifficulty : public CCC_Token { public: - CCC_GameDifficulty(LPCSTR N) : CCC_Token(N, (u32*) &g_SingleGameDifficulty, difficulty_type_token) {}; - virtual void Execute(LPCSTR args) - { - CCC_Token::Execute(args); - if (g_pGameLevel && Level().game) - { - //#ifndef DEBUG - if (GameID() != eGameIDSingle) - { - Msg("For this game type difficulty level is disabled."); - return; - }; - //#endif - - game_cl_Single* game = smart_cast(Level().game); VERIFY(game); - game->OnDifficultyChanged(); - } - } - virtual void Info(TInfo& I) - { - xr_strcpy(I, "game difficulty"); - } + CCC_GameDifficulty(LPCSTR N) : CCC_Token(N, (u32*)&g_SingleGameDifficulty, difficulty_type_token) {}; + virtual void Execute(LPCSTR args) + { + CCC_Token::Execute(args); + if (g_pGameLevel && Level().game) + { + //#ifndef DEBUG + if (GameID() != eGameIDSingle) + { + Msg("For this game type difficulty level is disabled."); + return; + }; + //#endif + + game_cl_Single* game = smart_cast(Level().game); VERIFY(game); + game->OnDifficultyChanged(); + } + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "game difficulty"); + } }; #ifdef DEBUG class CCC_ALifePath : public IConsole_Command { public: - CCC_ALifePath(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if (!ai().get_level_graph()) - Msg("! there is no graph!"); - else - { - int id1 = -1, id2 = -1; - sscanf(args, "%d %d", &id1, &id2); - if ((-1 != id1) && (-1 != id2)) - if (_max(id1, id2) > (int) ai().game_graph().header().vertex_count() - 1) - Msg("! there are only %d vertexes!", ai().game_graph().header().vertex_count()); - else - if (_min(id1, id2) < 0) - Msg("! invalid vertex number (%d)!", _min(id1, id2)); - else - { - // Sleep (1); - // CTimer timer; - // timer.Start (); - // float fValue = ai().m_tpAStar->ffFindMinimalPath(id1,id2); - // Msg ("* %7.2f[%d] : %11I64u cycles (%.3f microseconds)",fValue,ai().m_tpAStar->m_tpaNodes.size(),timer.GetElapsed_ticks(),timer.GetElapsed_ms()*1000.f); - } - else - Msg("! not enough parameters!"); - } - } + CCC_ALifePath(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + Msg("! there is no graph!"); + else + { + int id1 = -1, id2 = -1; + sscanf(args, "%d %d", &id1, &id2); + if ((-1 != id1) && (-1 != id2)) + if (_max(id1, id2) > (int)ai().game_graph().header().vertex_count() - 1) + Msg("! there are only %d vertexes!", ai().game_graph().header().vertex_count()); + else + if (_min(id1, id2) < 0) + Msg("! invalid vertex number (%d)!", _min(id1, id2)); + else + { + // Sleep (1); + // CTimer timer; + // timer.Start (); + // float fValue = ai().m_tpAStar->ffFindMinimalPath(id1,id2); + // Msg ("* %7.2f[%d] : %11I64u cycles (%.3f microseconds)",fValue,ai().m_tpAStar->m_tpaNodes.size(),timer.GetElapsed_ticks(),timer.GetElapsed_ms()*1000.f); + } + else + Msg("! not enough parameters!"); + } + } }; #endif // DEBUG class CCC_ALifeTimeFactor : public IConsole_Command { public: - CCC_ALifeTimeFactor(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - float id1 = 0.0f; - sscanf(args, "%f", &id1); - if (id1 < EPS_L) - Msg("Invalid time factor! (%.4f)", id1); - else - { - if (!OnServer()) - return; - - Level().SetGameTimeFactor(id1); - } - } - - virtual void Save(IWriter *F) {}; - virtual void Status(TStatus& S) - { - if (!g_pGameLevel) return; - - float v = Level().GetGameTimeFactor(); - xr_sprintf(S, sizeof(S), "%3.5f", v); - while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; - } - virtual void Info(TInfo& I) - { - if (!OnServer()) return; - float v = Level().GetGameTimeFactor(); - xr_sprintf(I, sizeof(I), " value = %3.5f", v); - } - virtual void fill_tips(vecTips& tips, u32 mode) - { - if (!OnServer()) return; - float v = Level().GetGameTimeFactor(); - - TStatus str; - xr_sprintf(str, sizeof(str), "%3.5f (current) [0.0,1000.0]", v); - tips.push_back(str); - IConsole_Command::fill_tips(tips, mode); - } + CCC_ALifeTimeFactor(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + float id1 = 0.0f; + sscanf(args, "%f", &id1); + if (id1 < EPS_L) + Msg("Invalid time factor! (%.4f)", id1); + else + { + if (!OnServer()) + return; + + Level().SetGameTimeFactor(id1); + } + } + + virtual void Save(IWriter *F) {}; + virtual void Status(TStatus& S) + { + if (!g_pGameLevel) return; + + float v = Level().GetGameTimeFactor(); + xr_sprintf(S, sizeof(S), "%3.5f", v); + while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; + } + virtual void Info(TInfo& I) + { + if (!OnServer()) return; + float v = Level().GetGameTimeFactor(); + xr_sprintf(I, sizeof(I), " value = %3.5f", v); + } + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (!OnServer()) return; + float v = Level().GetGameTimeFactor(); + + TStatus str; + xr_sprintf(str, sizeof(str), "%3.5f (current) [0.0,1000.0]", v); + tips.push_back(str); + IConsole_Command::fill_tips(tips, mode); + } }; class CCC_ALifeSwitchDistance : public IConsole_Command { public: - CCC_ALifeSwitchDistance(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if ((GameID() == eGameIDSingle) && ai().get_alife()) - { - float id1 = 0.0f; - sscanf(args, "%f", &id1); - if (id1 < 2.0f) - Msg("Invalid online distance! (%.4f)", id1); - else - { - NET_Packet P; - P.w_begin(M_SWITCH_DISTANCE); - P.w_float(id1); - Level().Send(P, net_flags(TRUE, TRUE)); - } - } - else - Log("!Not a single player game!"); - } + CCC_ALifeSwitchDistance(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + float id1 = 0.0f; + sscanf(args, "%f", &id1); + if (id1 < 2.0f) + Msg("Invalid online distance! (%.4f)", id1); + else + { + NET_Packet P; + P.w_begin(M_SWITCH_DISTANCE); + P.w_float(id1); + Level().Send(P, net_flags(TRUE, TRUE)); + } + } + else + Log("!Not a single player game!"); + } }; class CCC_ALifeProcessTime : public IConsole_Command { public: - CCC_ALifeProcessTime(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if ((GameID() == eGameIDSingle) && ai().get_alife()) - { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY(tpGame); - int id1 = 0; - sscanf(args, "%d", &id1); - if (id1 < 1) - Msg("Invalid process time! (%d)", id1); - else - tpGame->alife().set_process_time(id1); - } - else - Log("!Not a single player game!"); - } + CCC_ALifeProcessTime(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + int id1 = 0; + sscanf(args, "%d", &id1); + if (id1 < 1) + Msg("Invalid process time! (%d)", id1); + else + tpGame->alife().set_process_time(id1); + } + else + Log("!Not a single player game!"); + } }; class CCC_ALifeObjectsPerUpdate : public IConsole_Command { public: - CCC_ALifeObjectsPerUpdate(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if ((GameID() == eGameIDSingle) && ai().get_alife()) - { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY(tpGame); - int id1 = 0; - sscanf(args, "%d", &id1); - tpGame->alife().objects_per_update(id1); - } - else - Log("!Not a single player game!"); - } + CCC_ALifeObjectsPerUpdate(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + int id1 = 0; + sscanf(args, "%d", &id1); + tpGame->alife().objects_per_update(id1); + } + else + Log("!Not a single player game!"); + } }; class CCC_ALifeSwitchFactor : public IConsole_Command { public: - CCC_ALifeSwitchFactor(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if ((GameID() == eGameIDSingle) && ai().get_alife()) - { - game_sv_Single *tpGame = smart_cast(Level().Server->game); - VERIFY(tpGame); - float id1 = 0; - sscanf(args, "%f", &id1); - clamp(id1, .1f, 1.f); - tpGame->alife().set_switch_factor(id1); - } - else - Log("!Not a single player game!"); - } + CCC_ALifeSwitchFactor(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if ((GameID() == eGameIDSingle) && ai().get_alife()) + { + game_sv_Single *tpGame = smart_cast(Level().Server->game); + VERIFY(tpGame); + float id1 = 0; + sscanf(args, "%f", &id1); + clamp(id1, .1f, 1.f); + tpGame->alife().set_switch_factor(id1); + } + else + Log("!Not a single player game!"); + } }; //----------------------------------------------------------------------- @@ -412,135 +414,135 @@ class CCC_DemoRecord : public IConsole_Command { public: - CCC_DemoRecord(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { + CCC_DemoRecord(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Record is disabled."); - // return; - //}; + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Record is disabled."); + // return; + //}; #endif - Console->Hide(); + Console->Hide(); - LPSTR fn_; - STRCONCAT(fn_, args, ".xrdemo"); - string_path fn; - FS.update_path(fn, "$game_saves$", fn_); + LPSTR fn_; + STRCONCAT(fn_, args, ".xrdemo"); + string_path fn; + FS.update_path(fn, "$game_saves$", fn_); - g_pGameLevel->Cameras().AddCamEffector(xr_new(fn)); - } + g_pGameLevel->Cameras().AddCamEffector(xr_new(fn)); + } }; class CCC_DemoRecordSetPos : public CCC_Vector3 { - static Fvector p; + static Fvector p; public: - CCC_DemoRecordSetPos(LPCSTR N) : CCC_Vector3(N, &p, Fvector().set(-FLT_MAX, -FLT_MAX, -FLT_MAX), Fvector().set(FLT_MAX, FLT_MAX, FLT_MAX)) {}; - virtual void Execute(LPCSTR args) - { + CCC_DemoRecordSetPos(LPCSTR N) : CCC_Vector3(N, &p, Fvector().set(-FLT_MAX, -FLT_MAX, -FLT_MAX), Fvector().set(FLT_MAX, FLT_MAX, FLT_MAX)) {}; + virtual void Execute(LPCSTR args) + { #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Record is disabled."); - // return; - //}; + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Record is disabled."); + // return; + //}; #endif - CDemoRecord::GetGlobalPosition(p); - CCC_Vector3::Execute(args); - CDemoRecord::SetGlobalPosition(p); - } - virtual void Save(IWriter *F) { ; } + CDemoRecord::GetGlobalPosition(p); + CCC_Vector3::Execute(args); + CDemoRecord::SetGlobalPosition(p); + } + virtual void Save(IWriter *F) { ; } }; -Fvector CCC_DemoRecordSetPos::p = {0, 0, 0}; +Fvector CCC_DemoRecordSetPos::p = { 0, 0, 0 }; class CCC_DemoPlay : public IConsole_Command { public: - CCC_DemoPlay(LPCSTR N) : - IConsole_Command(N) - { - bEmptyArgsHandled = TRUE; - }; - virtual void Execute(LPCSTR args) - { + CCC_DemoPlay(LPCSTR N) : + IConsole_Command(N) + { + bEmptyArgsHandled = TRUE; + }; + virtual void Execute(LPCSTR args) + { #ifndef DEBUG - //if (GameID() != eGameIDSingle) - //{ - // Msg("For this game type Demo Play is disabled."); - // return; - //}; + //if (GameID() != eGameIDSingle) + //{ + // Msg("For this game type Demo Play is disabled."); + // return; + //}; #endif - if (0 == g_pGameLevel) - { - Msg("! There are no level(s) started"); - } - else - { - Console->Hide(); - string_path fn; - u32 loops = 0; - LPSTR comma = strchr(const_cast(args), ','); - if (comma) - { - loops = atoi(comma + 1); - *comma = 0; //. :) - } - strconcat(sizeof(fn), fn, args, ".xrdemo"); - FS.update_path(fn, "$game_saves$", fn); - g_pGameLevel->Cameras().AddCamEffector(xr_new(fn, 1.0f, loops)); - } - } + if (0 == g_pGameLevel) + { + Msg("! There are no level(s) started"); + } + else + { + Console->Hide(); + string_path fn; + u32 loops = 0; + LPSTR comma = strchr(const_cast(args), ','); + if (comma) + { + loops = atoi(comma + 1); + *comma = 0; //. :) + } + strconcat(sizeof(fn), fn, args, ".xrdemo"); + FS.update_path(fn, "$game_saves$", fn); + g_pGameLevel->Cameras().AddCamEffector(xr_new(fn, 1.0f, loops)); + } + } }; // helper functions -------------------------------------------- bool valid_saved_game_name(LPCSTR file_name) { - LPCSTR I = file_name; - LPCSTR E = file_name + xr_strlen(file_name); - for (; I != E; ++I) - { - if (!strchr("/\\:*?\"<>|^()[]%", *I)) - continue; + LPCSTR I = file_name; + LPCSTR E = file_name + xr_strlen(file_name); + for (; I != E; ++I) + { + if (!strchr("/\\:*?\"<>|^()[]%", *I)) + continue; - return (false); - }; + return (false); + }; - return (true); + return (true); } void get_files_list(xr_vector& files, LPCSTR dir, LPCSTR file_ext) { - VERIFY(dir && file_ext); - files.clear_not_free(); - - FS_Path* P = FS.get_path(dir); - P->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.m_Flags.set(CLocatorAPI::flNeedCheck, TRUE); - FS.rescan_pathes(); - - LPCSTR fext; - STRCONCAT(fext, "*", file_ext); - - FS_FileSet files_set; - FS.file_list(files_set, dir, FS_ListFiles, fext); - u32 len_str_ext = xr_strlen(file_ext); - - FS_FileSetIt itb = files_set.begin(); - FS_FileSetIt ite = files_set.end(); - - for (; itb != ite; ++itb) - { - LPCSTR fn_ext = (*itb).name.c_str(); - VERIFY(xr_strlen(fn_ext) > len_str_ext); - string_path fn; - strncpy_s(fn, sizeof(fn), fn_ext, xr_strlen(fn_ext) - len_str_ext); - files.push_back(fn); - } - FS.m_Flags.set(CLocatorAPI::flNeedCheck, FALSE); + VERIFY(dir && file_ext); + files.clear_not_free(); + + FS_Path* P = FS.get_path(dir); + P->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.m_Flags.set(CLocatorAPI::flNeedCheck, TRUE); + FS.rescan_pathes(); + + LPCSTR fext; + STRCONCAT(fext, "*", file_ext); + + FS_FileSet files_set; + FS.file_list(files_set, dir, FS_ListFiles, fext); + u32 len_str_ext = xr_strlen(file_ext); + + FS_FileSetIt itb = files_set.begin(); + FS_FileSetIt ite = files_set.end(); + + for (; itb != ite; ++itb) + { + LPCSTR fn_ext = (*itb).name.c_str(); + VERIFY(xr_strlen(fn_ext) > len_str_ext); + string_path fn; + strncpy_s(fn, sizeof(fn), fn_ext, xr_strlen(fn_ext) - len_str_ext); + files.push_back(fn); + } + FS.m_Flags.set(CLocatorAPI::flNeedCheck, FALSE); } #include "UIGameCustom.h" @@ -548,293 +550,293 @@ void get_files_list(xr_vector& files, LPCSTR dir, LPCSTR file_ext) class CCC_ALifeSave : public IConsole_Command { public: - CCC_ALifeSave(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { + CCC_ALifeSave(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { #if 0 - if (!Level().autosave_manager().ready_for_autosave()) { - Msg ("! Cannot save the game right now!"); - return; - } + if (!Level().autosave_manager().ready_for_autosave()) { + Msg("! Cannot save the game right now!"); + return; + } #endif - if (!IsGameTypeSingle()) - { - Msg("for single-mode only"); - return; - } - if (!g_actor || !Actor()->g_Alive()) - { - Msg("cannot make saved game because actor is dead :("); - return; - } - - Console->Execute("stat_memory"); - - string_path S, S1; - S[0] = 0; - strncpy_s(S, sizeof(S), args, _MAX_PATH - 1); + if (!IsGameTypeSingle()) + { + Msg("for single-mode only"); + return; + } + if (!g_actor || !Actor()->g_Alive()) + { + Msg("cannot make saved game because actor is dead :("); + return; + } + + Console->Execute("stat_memory"); + + string_path S, S1; + S[0] = 0; + strncpy_s(S, sizeof(S), args, _MAX_PATH - 1); #ifdef DEBUG - CTimer timer; - timer.Start(); + CTimer timer; + timer.Start(); #endif - if (!xr_strlen(S)) - { - strconcat(sizeof(S), S, Core.UserName, " - ", "quicksave"); - NET_Packet net_packet; - net_packet.w_begin(M_SAVE_GAME); - net_packet.w_stringZ(S); - net_packet.w_u8(0); - Level().Send(net_packet, net_flags(TRUE)); - } - else - { - if (!valid_saved_game_name(S)) - { - Msg("! Save failed: invalid file name - %s", S); - return; - } - - NET_Packet net_packet; - net_packet.w_begin(M_SAVE_GAME); - net_packet.w_stringZ(S); - net_packet.w_u8(1); - Level().Send(net_packet, net_flags(TRUE)); - } + if (!xr_strlen(S)) + { + strconcat(sizeof(S), S, Core.UserName, " - ", "quicksave"); + NET_Packet net_packet; + net_packet.w_begin(M_SAVE_GAME); + net_packet.w_stringZ(S); + net_packet.w_u8(0); + Level().Send(net_packet, net_flags(TRUE)); + } + else + { + if (!valid_saved_game_name(S)) + { + Msg("! Save failed: invalid file name - %s", S); + return; + } + + NET_Packet net_packet; + net_packet.w_begin(M_SAVE_GAME); + net_packet.w_stringZ(S); + net_packet.w_u8(1); + Level().Send(net_packet, net_flags(TRUE)); + } #ifdef DEBUG - Msg("Game save overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); + Msg("Game save overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); #endif - StaticDrawableWrapper* _s = CurrentGameUI()->AddCustomStatic("game_saved", true); - LPSTR save_name; - STRCONCAT(save_name, CStringTable().translate("st_game_saved").c_str(), ": ", S); - _s->wnd()->TextItemControl()->SetText(save_name); + StaticDrawableWrapper* _s = CurrentGameUI()->AddCustomStatic("game_saved", true); + LPSTR save_name; + STRCONCAT(save_name, CStringTable().translate("st_game_saved").c_str(), ": ", S); + _s->wnd()->TextItemControl()->SetText(save_name); - xr_strcat(S, ".dds"); - FS.update_path(S1, "$game_saves$", S); + xr_strcat(S, ".dds"); + FS.update_path(S1, "$game_saves$", S); #ifdef DEBUG - timer.Start(); + timer.Start(); #endif - MainMenu()->Screenshot(IRender_interface::SM_FOR_GAMESAVE, S1); + MainMenu()->Screenshot(IRender_interface::SM_FOR_GAMESAVE, S1); #ifdef DEBUG - Msg("Screenshot overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); + Msg("Screenshot overhead : %f milliseconds", timer.GetElapsed_sec()*1000.f); #endif - }//virtual void Execute + }//virtual void Execute - virtual void fill_tips(vecTips& tips, u32 mode) - { - get_files_list(tips, "$game_saves$", SAVE_EXTENSION); - } + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_saves$", SAVE_EXTENSION); + } };//CCC_ALifeSave class CCC_ALifeLoadFrom : public IConsole_Command { public: - CCC_ALifeLoadFrom(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - string_path saved_game; - strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); - - if (!ai().get_alife()) - { - Log("! ALife simulator has not been started yet"); - return; - } - - if (!xr_strlen(saved_game)) - { - Log("! Specify file name!"); - return; - } - - if (!CSavedGameWrapper::saved_game_exist(saved_game)) - { - Msg("! Cannot find saved game %s", saved_game); - return; - } - - if (!CSavedGameWrapper::valid_saved_game(saved_game)) - { - Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", saved_game); - return; - } - - if (!valid_saved_game_name(saved_game)) - { - Msg("! Cannot load saved game %s, invalid file name", saved_game); - return; - } - - /* moved to level_network_messages.cpp - CSavedGameWrapper wrapper(args); - if (wrapper.level_id() == ai().level_graph().level_id()) { - if (Device.Paused()) - Device.Pause (FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); - - Level().remove_objects (); - - game_sv_Single *game = smart_cast(Level().Server->game); - R_ASSERT (game); - game->restart_simulator (saved_game); - - return; - } - */ - - if (MainMenu()->IsActive()) - MainMenu()->Activate(false); - - Console->Execute("stat_memory"); - - if (Device.Paused()) - Device.Pause(FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); - - NET_Packet net_packet; - net_packet.w_begin(M_LOAD_GAME); - net_packet.w_stringZ(saved_game); - Level().Send(net_packet, net_flags(TRUE)); - } - - virtual void fill_tips(vecTips& tips, u32 mode) - { - get_files_list(tips, "$game_saves$", SAVE_EXTENSION); - } + CCC_ALifeLoadFrom(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + string_path saved_game; + strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); + + if (!ai().get_alife()) + { + Log("! ALife simulator has not been started yet"); + return; + } + + if (!xr_strlen(saved_game)) + { + Log("! Specify file name!"); + return; + } + + if (!CSavedGameWrapper::saved_game_exist(saved_game)) + { + Msg("! Cannot find saved game %s", saved_game); + return; + } + + if (!CSavedGameWrapper::valid_saved_game(saved_game)) + { + Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", saved_game); + return; + } + + if (!valid_saved_game_name(saved_game)) + { + Msg("! Cannot load saved game %s, invalid file name", saved_game); + return; + } + + /* moved to level_network_messages.cpp + CSavedGameWrapper wrapper(args); + if (wrapper.level_id() == ai().level_graph().level_id()) { + if (Device.Paused()) + Device.Pause (FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); + + Level().remove_objects (); + + game_sv_Single *game = smart_cast(Level().Server->game); + R_ASSERT (game); + game->restart_simulator (saved_game); + + return; + } + */ + + if (MainMenu()->IsActive()) + MainMenu()->Activate(false); + + Console->Execute("stat_memory"); + + if (Device.Paused()) + Device.Pause(FALSE, TRUE, TRUE, "CCC_ALifeLoadFrom"); + + NET_Packet net_packet; + net_packet.w_begin(M_LOAD_GAME); + net_packet.w_stringZ(saved_game); + Level().Send(net_packet, net_flags(TRUE)); + } + + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_saves$", SAVE_EXTENSION); + } };//CCC_ALifeLoadFrom class CCC_LoadLastSave : public IConsole_Command { public: - CCC_LoadLastSave(LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute(LPCSTR args) - { - string_path saved_game = ""; - if (args) - { - strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); - } - - if (saved_game && *saved_game) - { - xr_strcpy(g_last_saved_game, saved_game); - return; - } - - if (!*g_last_saved_game) - { - Msg("! cannot load last saved game since it hasn't been specified"); - return; - } - - if (!CSavedGameWrapper::saved_game_exist(g_last_saved_game)) - { - Msg("! Cannot find saved game %s", g_last_saved_game); - return; - } - - if (!CSavedGameWrapper::valid_saved_game(g_last_saved_game)) - { - Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", g_last_saved_game); - return; - } - - if (!valid_saved_game_name(g_last_saved_game)) - { - Msg("! Cannot load saved game %s, invalid file name", g_last_saved_game); - return; - } - - LPSTR command; - if (ai().get_alife()) - { - STRCONCAT(command, "load ", g_last_saved_game); - Console->Execute(command); - return; - } - - STRCONCAT(command, "start server(", g_last_saved_game, "/single/alife/load)"); - Console->Execute(command); - } - - virtual void Save(IWriter *F) - { - if (!*g_last_saved_game) - return; - - F->w_printf("%s %s\r\n", cName, g_last_saved_game); - } + CCC_LoadLastSave(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + string_path saved_game = ""; + if (args) + { + strncpy_s(saved_game, sizeof(saved_game), args, _MAX_PATH - 1); + } + + if (saved_game && *saved_game) + { + xr_strcpy(g_last_saved_game, saved_game); + return; + } + + if (!*g_last_saved_game) + { + Msg("! cannot load last saved game since it hasn't been specified"); + return; + } + + if (!CSavedGameWrapper::saved_game_exist(g_last_saved_game)) + { + Msg("! Cannot find saved game %s", g_last_saved_game); + return; + } + + if (!CSavedGameWrapper::valid_saved_game(g_last_saved_game)) + { + Msg("! Cannot load saved game %s, version mismatch or saved game is corrupted", g_last_saved_game); + return; + } + + if (!valid_saved_game_name(g_last_saved_game)) + { + Msg("! Cannot load saved game %s, invalid file name", g_last_saved_game); + return; + } + + LPSTR command; + if (ai().get_alife()) + { + STRCONCAT(command, "load ", g_last_saved_game); + Console->Execute(command); + return; + } + + STRCONCAT(command, "start server(", g_last_saved_game, "/single/alife/load)"); + Console->Execute(command); + } + + virtual void Save(IWriter *F) + { + if (!*g_last_saved_game) + return; + + F->w_printf("%s %s\r\n", cName, g_last_saved_game); + } }; class CCC_FlushLog : public IConsole_Command { public: - CCC_FlushLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR /**args/**/) - { - FlushLog(); - Msg("* Log file has been saved successfully!"); - } + CCC_FlushLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR /**args/**/) + { + FlushLog(); + Msg("* Log file has been saved successfully!"); + } }; class CCC_ClearLog : public IConsole_Command { public: - CCC_ClearLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) - { - LogFile->clear_not_free(); - FlushLog(); - Msg("* Log file has been cleaned successfully!"); - } + CCC_ClearLog(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + LogFile->clear_not_free(); + FlushLog(); + Msg("* Log file has been cleaned successfully!"); + } }; class CCC_FloatBlock : public CCC_Float { public: - CCC_FloatBlock(LPCSTR N, float* V, float _min = 0, float _max = 1) : - CCC_Float(N, V, _min, _max) - { - }; + CCC_FloatBlock(LPCSTR N, float* V, float _min = 0, float _max = 1) : + CCC_Float(N, V, _min, _max) + { + }; - virtual void Execute(LPCSTR args) - { + virtual void Execute(LPCSTR args) + { #ifdef _DEBUG - CCC_Float::Execute(args); + CCC_Float::Execute(args); #else - if (!g_pGameLevel || GameID() == eGameIDSingle) - CCC_Float::Execute(args); - else - { - Msg("! Command disabled for this type of game"); - } + if (!g_pGameLevel || GameID() == eGameIDSingle) + CCC_Float::Execute(args); + else + { + Msg("! Command disabled for this type of game"); + } #endif - } + } }; class CCC_Net_CL_InputUpdateRate : public CCC_Integer { protected: - int *value_blin; + int *value_blin; public: - CCC_Net_CL_InputUpdateRate(LPCSTR N, int* V, int _min = 0, int _max = 999) : - CCC_Integer(N, V, _min, _max), - value_blin(V) - { - }; - - virtual void Execute(LPCSTR args) - { - CCC_Integer::Execute(args); - if ((*value_blin > 0) && g_pGameLevel) - { - g_dwInputUpdateDelta = 1000 / (*value_blin); - }; - } + CCC_Net_CL_InputUpdateRate(LPCSTR N, int* V, int _min = 0, int _max = 999) : + CCC_Integer(N, V, _min, _max), + value_blin(V) + { + }; + + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + if ((*value_blin > 0) && g_pGameLevel) + { + g_dwInputUpdateDelta = 1000 / (*value_blin); + }; + } }; #ifdef DEBUG @@ -842,102 +844,103 @@ class CCC_Net_CL_InputUpdateRate : public CCC_Integer class CCC_DrawGameGraphAll : public IConsole_Command { public: - CCC_DrawGameGraphAll(LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute(LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - ai().level_graph().setup_current_level(-1); - } + CCC_DrawGameGraphAll(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + ai().level_graph().setup_current_level(-1); + } }; class CCC_DrawGameGraphCurrent : public IConsole_Command { public: - CCC_DrawGameGraphCurrent(LPCSTR N) : IConsole_Command(N) - { - bEmptyArgsHandled = true; - } - - virtual void Execute(LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - ai().level_graph().setup_current_level( - ai().level_graph().level_id() - ); - } + CCC_DrawGameGraphCurrent(LPCSTR N) : IConsole_Command(N) + { + bEmptyArgsHandled = true; + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + ai().level_graph().setup_current_level( + ai().level_graph().level_id() + ); + } }; class CCC_DrawGameGraphLevel : public IConsole_Command { public: - CCC_DrawGameGraphLevel(LPCSTR N) : IConsole_Command(N) - { - } - - virtual void Execute(LPCSTR args) - { - if (!ai().get_level_graph()) - return; - - if (!*args) - { - ai().level_graph().setup_current_level(-1); - return; - } - - const GameGraph::SLevel *level = ai().game_graph().header().level(args, true); - if (!level) - { - Msg("! There is no level %s in the game graph", args); - return; - } - - ai().level_graph().setup_current_level(level->id()); - } + CCC_DrawGameGraphLevel(LPCSTR N) : IConsole_Command(N) + { + } + + virtual void Execute(LPCSTR args) + { + if (!ai().get_level_graph()) + return; + + if (!*args) + { + ai().level_graph().setup_current_level(-1); + return; + } + + const GameGraph::SLevel *level = ai().game_graph().header().level(args, true); + if (!level) + { + Msg("! There is no level %s in the game graph", args); + return; + } + + ai().level_graph().setup_current_level(level->id()); + } }; #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) class CCC_ScriptDbg : public IConsole_Command { public: - CCC_ScriptDbg(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) { - if(strstr(cName,"script_debug_break")==cName ){ - CScriptDebugger* d = ai().script_engine().debugger(); - if(d){ - if(d->Active()) - d->initiateDebugBreak(); - else - Msg("Script debugger not active."); - }else - Msg("Script debugger not present."); - } - else if(strstr(cName,"script_debug_stop")==cName ){ - ai().script_engine().stopDebugger(); - } - else if(strstr(cName,"script_debug_restart")==cName ){ - ai().script_engine().restartDebugger(); - }; - }; - - virtual void Info (TInfo& I) - { - if(strstr(cName,"script_debug_break")==cName ) - xr_strcpy(I,"initiate script debugger [DebugBreak] command"); - - else if(strstr(cName,"script_debug_stop")==cName ) - xr_strcpy(I,"stop script debugger activity"); - - else if(strstr(cName,"script_debug_restart")==cName ) - xr_strcpy(I,"restarts script debugger or start if no script debugger presents"); - } + CCC_ScriptDbg(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) { + if (strstr(cName, "script_debug_break") == cName){ + CScriptDebugger* d = ai().script_engine().debugger(); + if (d){ + if (d->Active()) + d->initiateDebugBreak(); + else + Msg("Script debugger not active."); + } + else + Msg("Script debugger not present."); + } + else if (strstr(cName, "script_debug_stop") == cName){ + ai().script_engine().stopDebugger(); + } + else if (strstr(cName, "script_debug_restart") == cName){ + ai().script_engine().restartDebugger(); + }; + }; + + virtual void Info(TInfo& I) + { + if (strstr(cName, "script_debug_break") == cName) + xr_strcpy(I, "initiate script debugger [DebugBreak] command"); + + else if (strstr(cName, "script_debug_stop") == cName) + xr_strcpy(I, "stop script debugger activity"); + + else if (strstr(cName, "script_debug_restart") == cName) + xr_strcpy(I, "restarts script debugger or start if no script debugger presents"); + } }; #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) @@ -945,159 +948,159 @@ class CCC_ScriptDbg : public IConsole_Command { class CCC_ScriptLuaStudioConnect : public IConsole_Command { public: - CCC_ScriptLuaStudioConnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - ai().script_engine().try_connect_to_debugger(); - }; + CCC_ScriptLuaStudioConnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + ai().script_engine().try_connect_to_debugger(); + }; }; class CCC_ScriptLuaStudioDisconnect : public IConsole_Command { public: - CCC_ScriptLuaStudioDisconnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - ai().script_engine().disconnect_from_debugger(); - }; + CCC_ScriptLuaStudioDisconnect(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + ai().script_engine().disconnect_from_debugger(); + }; }; #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) class CCC_DumpInfos : public IConsole_Command { public: - CCC_DumpInfos(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - CActor* A = smart_cast(Level().CurrentEntity()); - if (A) - A->DumpInfo(); - } - virtual void Info(TInfo& I) - { - xr_strcpy(I, "dumps all infoportions that actor have"); - } + CCC_DumpInfos(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + CActor* A = smart_cast(Level().CurrentEntity()); + if (A) + A->DumpInfo(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all infoportions that actor have"); + } }; class CCC_DumpTasks : public IConsole_Command { public: - CCC_DumpTasks(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - CActor* A = smart_cast(Level().CurrentEntity()); - if (A) - A->DumpTasks(); - } - virtual void Info(TInfo& I) - { - xr_strcpy(I, "dumps all tasks that actor have"); - } + CCC_DumpTasks(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + CActor* A = smart_cast(Level().CurrentEntity()); + if (A) + A->DumpTasks(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all tasks that actor have"); + } }; #include "map_manager.h" class CCC_DumpMap : public IConsole_Command { public: - CCC_DumpMap(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - Level().MapManager().Dump(); - } - virtual void Info(TInfo& I) - { - xr_strcpy(I, "dumps all currentmap locations"); - } + CCC_DumpMap(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + Level().MapManager().Dump(); + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all currentmap locations"); + } }; #include "alife_graph_registry.h" class CCC_DumpCreatures : public IConsole_Command { public: - CCC_DumpCreatures(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - typedef CSafeMapIterator::_REGISTRY::const_iterator const_iterator; - - const_iterator I = ai().alife().graph().level().objects().begin(); - const_iterator E = ai().alife().graph().level().objects().end(); - for (; I != E; ++I) - { - CSE_ALifeCreatureAbstract *obj = smart_cast(I->second); - if (obj) - { - Msg("\"%s\",", obj->name_replace()); - } - } - } - virtual void Info(TInfo& I) - { - xr_strcpy(I, "dumps all creature names"); - } + CCC_DumpCreatures(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + typedef CSafeMapIterator::_REGISTRY::const_iterator const_iterator; + + const_iterator I = ai().alife().graph().level().objects().begin(); + const_iterator E = ai().alife().graph().level().objects().end(); + for (; I != E; ++I) + { + CSE_ALifeCreatureAbstract *obj = smart_cast(I->second); + if (obj) + { + Msg("\"%s\",", obj->name_replace()); + } + } + } + virtual void Info(TInfo& I) + { + xr_strcpy(I, "dumps all creature names"); + } }; class CCC_DebugFonts : public IConsole_Command { public: - CCC_DebugFonts(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; } - virtual void Execute(LPCSTR args) - { - xr_new()->ShowDialog(true); - } + CCC_DebugFonts(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; } + virtual void Execute(LPCSTR args) + { + xr_new()->ShowDialog(true); + } }; class CCC_DebugNode : public IConsole_Command { public: - CCC_DebugNode(LPCSTR N) : IConsole_Command(N) {}; - - virtual void Execute(LPCSTR args) - { - string128 param1, param2; - VERIFY(xr_strlen(args) < sizeof(string128)); - - _GetItem(args, 0, param1, ' '); - _GetItem(args, 1, param2, ' '); - - u32 value1; - u32 value2; - - sscanf(param1, "%u", &value1); - sscanf(param2, "%u", &value2); - - if ((value1 > 0) && (value2 > 0)) - { - g_bDebugNode = TRUE; - g_dwDebugNodeSource = value1; - g_dwDebugNodeDest = value2; - } - else - { - g_bDebugNode = FALSE; - } - } + CCC_DebugNode(LPCSTR N) : IConsole_Command(N) {}; + + virtual void Execute(LPCSTR args) + { + string128 param1, param2; + VERIFY(xr_strlen(args) < sizeof(string128)); + + _GetItem(args, 0, param1, ' '); + _GetItem(args, 1, param2, ' '); + + u32 value1; + u32 value2; + + sscanf(param1, "%u", &value1); + sscanf(param2, "%u", &value2); + + if ((value1 > 0) && (value2 > 0)) + { + g_bDebugNode = TRUE; + g_dwDebugNodeSource = value1; + g_dwDebugNodeDest = value2; + } + else + { + g_bDebugNode = FALSE; + } + } }; class CCC_ShowMonsterInfo : public IConsole_Command { public: - CCC_ShowMonsterInfo(LPCSTR N) : IConsole_Command(N) {}; + CCC_ShowMonsterInfo(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - string128 param1, param2; - VERIFY(xr_strlen(args) < sizeof(string128)); + virtual void Execute(LPCSTR args) + { + string128 param1, param2; + VERIFY(xr_strlen(args) < sizeof(string128)); - _GetItem(args, 0, param1, ' '); - _GetItem(args, 1, param2, ' '); + _GetItem(args, 0, param1, ' '); + _GetItem(args, 1, param2, ' '); - CObject *obj = Level().Objects.FindObjectByName(param1); - CBaseMonster *monster = smart_cast(obj); - if (!monster) return; + CObject *obj = Level().Objects.FindObjectByName(param1); + CBaseMonster *monster = smart_cast(obj); + if (!monster) return; - u32 value2; + u32 value2; - sscanf(param2, "%u", &value2); - monster->set_show_debug_info(u8(value2)); - } + sscanf(param2, "%u", &value2); + monster->set_show_debug_info(u8(value2)); + } }; void PH_DBG_SetTrackObject(); @@ -1105,103 +1108,103 @@ extern string64 s_dbg_trace_obj_name; class CCC_DbgPhTrackObj : public CCC_String { public: - CCC_DbgPhTrackObj(LPCSTR N) : CCC_String(N, s_dbg_trace_obj_name, sizeof(s_dbg_trace_obj_name)) {}; - virtual void Execute(LPCSTR args/**/) - { - CCC_String::Execute(args); - if (!xr_strcmp(args, "none")) - { - ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, FALSE); - return; - } - ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, TRUE); - PH_DBG_SetTrackObject(); - //CObject* O= Level().Objects.FindObjectByName(args); - //if(O) - //{ - // PH_DBG_SetTrackObject(*(O->cName())); - // ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,TRUE); - //} - } - - //virtual void Info (TInfo& I) - //{ - // xr_strcpy(I,"restart game fast"); - //} + CCC_DbgPhTrackObj(LPCSTR N) : CCC_String(N, s_dbg_trace_obj_name, sizeof(s_dbg_trace_obj_name)) {}; + virtual void Execute(LPCSTR args/**/) + { + CCC_String::Execute(args); + if (!xr_strcmp(args, "none")) + { + ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, FALSE); + return; + } + ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject, TRUE); + PH_DBG_SetTrackObject(); + //CObject* O= Level().Objects.FindObjectByName(args); + //if(O) + //{ + // PH_DBG_SetTrackObject(*(O->cName())); + // ph_dbg_draw_mask1.set(ph_m1_DbgTrackObject,TRUE); + //} + } + + //virtual void Info (TInfo& I) + //{ + // xr_strcpy(I,"restart game fast"); + //} }; #endif class CCC_PHIterations : public CCC_Integer { public: - CCC_PHIterations(LPCSTR N) : - CCC_Integer(N, &phIterations, 15, 50) - { - }; - virtual void Execute(LPCSTR args) - { - CCC_Integer::Execute(args); - // dWorldSetQuickStepNumIterations(NULL,phIterations); - if (physics_world()) - physics_world()->StepNumIterations(phIterations); - } + CCC_PHIterations(LPCSTR N) : + CCC_Integer(N, &phIterations, 15, 50) + { + }; + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + // dWorldSetQuickStepNumIterations(NULL,phIterations); + if (physics_world()) + physics_world()->StepNumIterations(phIterations); + } }; //#ifdef DEBUG class CCC_PHGravity : public IConsole_Command { public: - CCC_PHGravity(LPCSTR N) : - IConsole_Command(N) - { - }; - virtual void Execute(LPCSTR args) - { - if (!physics_world()) - return; + CCC_PHGravity(LPCSTR N) : + IConsole_Command(N) + { + }; + virtual void Execute(LPCSTR args) + { + if (!physics_world()) + return; #ifndef DEBUG - if (g_pGameLevel && Level().game && GameID() != eGameIDSingle) - { - Msg("Command is not available in Multiplayer"); - return; - } + if (g_pGameLevel && Level().game && GameID() != eGameIDSingle) + { + Msg("Command is not available in Multiplayer"); + return; + } #endif - physics_world()->SetGravity(float(atof(args))); - } - virtual void Status(TStatus& S) - { - if (physics_world()) - xr_sprintf(S, "%3.5f", physics_world()->Gravity()); - else - xr_sprintf(S, "%3.5f", default_world_gravity); - while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; - } + physics_world()->SetGravity(float(atof(args))); + } + virtual void Status(TStatus& S) + { + if (physics_world()) + xr_sprintf(S, "%3.5f", physics_world()->Gravity()); + else + xr_sprintf(S, "%3.5f", default_world_gravity); + while (xr_strlen(S) && ('0' == S[xr_strlen(S) - 1])) S[xr_strlen(S) - 1] = 0; + } }; //#endif // DEBUG class CCC_PHFps : public IConsole_Command { public: - CCC_PHFps(LPCSTR N) : - IConsole_Command(N) - { - }; - virtual void Execute(LPCSTR args) - { - float step_count = (float) atof(args); + CCC_PHFps(LPCSTR N) : + IConsole_Command(N) + { + }; + virtual void Execute(LPCSTR args) + { + float step_count = (float)atof(args); #ifndef DEBUG - clamp(step_count, 50.f, 200.f); + clamp(step_count, 50.f, 200.f); #endif - //IPHWorld::SetStep(1.f/step_count); - ph_console::ph_step_time = 1.f / step_count; - //physics_world()->SetStep(1.f/step_count); - if (physics_world()) - physics_world()->SetStep(ph_console::ph_step_time); - } - virtual void Status(TStatus& S) - { - xr_sprintf(S, "%3.5f", 1.f / ph_console::ph_step_time); - } + //IPHWorld::SetStep(1.f/step_count); + ph_console::ph_step_time = 1.f / step_count; + //physics_world()->SetStep(1.f/step_count); + if (physics_world()) + physics_world()->SetStep(ph_console::ph_step_time); + } + virtual void Status(TStatus& S) + { + xr_sprintf(S, "%3.5f", 1.f / ph_console::ph_step_time); + } }; #ifdef DEBUG @@ -1209,32 +1212,32 @@ extern void print_help(lua_State *L); struct CCC_LuaHelp : public IConsole_Command { - CCC_LuaHelp(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + CCC_LuaHelp(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - print_help(ai().script_engine().lua()); - } + virtual void Execute(LPCSTR args) + { + print_help(ai().script_engine().lua()); + } }; struct CCC_ShowSmartCastStats : public IConsole_Command { - CCC_ShowSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + CCC_ShowSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - show_smart_cast_stats(); - } + virtual void Execute(LPCSTR args) + { + show_smart_cast_stats(); + } }; struct CCC_ClearSmartCastStats : public IConsole_Command { - CCC_ClearSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + CCC_ClearSmartCastStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - clear_smart_cast_stats(); - } + virtual void Execute(LPCSTR args) + { + clear_smart_cast_stats(); + } }; /* struct CCC_NoClip : public CCC_Mask @@ -1261,161 +1264,161 @@ actor->character_physics_support()->SetRemoved(); # include "game_graph.h" struct CCC_JumpToLevel : public IConsole_Command { - CCC_JumpToLevel(LPCSTR N) : IConsole_Command(N) {}; - - virtual void Execute(LPCSTR level) - { - if (!ai().get_alife()) - { - Msg("! ALife simulator is needed to perform specified command!"); - return; - } - - GameGraph::LEVEL_MAP::const_iterator I = ai().game_graph().header().levels().begin(); - GameGraph::LEVEL_MAP::const_iterator E = ai().game_graph().header().levels().end(); - for (; I != E; ++I) - if (!xr_strcmp((*I).second.name(), level)) - { - ai().alife().jump_to_level(level); - return; - } - Msg("! There is no level \"%s\" in the game graph!", level); - } - - virtual void Save(IWriter *F) {}; - virtual void fill_tips(vecTips& tips, u32 mode) - { - if (!ai().get_alife()) - { - Msg("! ALife simulator is needed to perform specified command!"); - return; - } - - GameGraph::LEVEL_MAP::const_iterator itb = ai().game_graph().header().levels().begin(); - GameGraph::LEVEL_MAP::const_iterator ite = ai().game_graph().header().levels().end(); - for (; itb != ite; ++itb) - { - tips.push_back((*itb).second.name()); - } - } + CCC_JumpToLevel(LPCSTR N) : IConsole_Command(N) {}; + + virtual void Execute(LPCSTR level) + { + if (!ai().get_alife()) + { + Msg("! ALife simulator is needed to perform specified command!"); + return; + } + + GameGraph::LEVEL_MAP::const_iterator I = ai().game_graph().header().levels().begin(); + GameGraph::LEVEL_MAP::const_iterator E = ai().game_graph().header().levels().end(); + for (; I != E; ++I) + if (!xr_strcmp((*I).second.name(), level)) + { + ai().alife().jump_to_level(level); + return; + } + Msg("! There is no level \"%s\" in the game graph!", level); + } + + virtual void Save(IWriter *F) {}; + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (!ai().get_alife()) + { + Msg("! ALife simulator is needed to perform specified command!"); + return; + } + + GameGraph::LEVEL_MAP::const_iterator itb = ai().game_graph().header().levels().begin(); + GameGraph::LEVEL_MAP::const_iterator ite = ai().game_graph().header().levels().end(); + for (; itb != ite; ++itb) + { + tips.push_back((*itb).second.name()); + } + } }; //#ifndef MASTER_GOLD class CCC_Script : public IConsole_Command { public: - CCC_Script(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - virtual void Execute(LPCSTR args) - { - if (!xr_strlen(args)) - { - Log("* Specify script name!"); - } - else - { - // rescan pathes - FS_Path* P = FS.get_path("$game_scripts$"); - P->m_Flags.set(FS_Path::flNeedRescan, TRUE); - FS.rescan_pathes(); - // run script - if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) - ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, false, true); - } - } - - virtual void Status(TStatus& S) - { - xr_strcpy(S, " (Specify script name!)"); - } - virtual void Save(IWriter* F) {} - - virtual void fill_tips(vecTips& tips, u32 mode) - { - get_files_list(tips, "$game_scripts$", ".script"); - } + CCC_Script(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + virtual void Execute(LPCSTR args) + { + if (!xr_strlen(args)) + { + Log("* Specify script name!"); + } + else + { + // rescan pathes + FS_Path* P = FS.get_path("$game_scripts$"); + P->m_Flags.set(FS_Path::flNeedRescan, TRUE); + FS.rescan_pathes(); + // run script + if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) + ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, false, true); + } + } + + virtual void Status(TStatus& S) + { + xr_strcpy(S, " (Specify script name!)"); + } + virtual void Save(IWriter* F) {} + + virtual void fill_tips(vecTips& tips, u32 mode) + { + get_files_list(tips, "$game_scripts$", ".script"); + } }; class CCC_ScriptCommand : public IConsole_Command { public: - CCC_ScriptCommand(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - - virtual void Execute(LPCSTR args) - { - if (!xr_strlen(args)) - Log("* Specify string to run!"); - else - { - if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) - { - ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, true, true); - return; - } - - string4096 S; - shared_str m_script_name = "console command"; - xr_sprintf(S, "%s\n", args); - int l_iErrorCode = luaL_loadbuffer(ai().script_engine().lua(), S, xr_strlen(S), "@console_command"); - if (!l_iErrorCode) - { - l_iErrorCode = lua_pcall(ai().script_engine().lua(), 0, 0, 0); - if (l_iErrorCode) - { - ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); - ai().script_engine().on_error(ai().script_engine().lua()); - return; - } - } - - ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); - } - }//void Execute - - virtual void Status(TStatus& S) - { - xr_strcpy(S, " (Specify script and function name!)"); - } - virtual void Save(IWriter* F) {} - - virtual void fill_tips(vecTips& tips, u32 mode) - { - if (mode == 1) - { - get_files_list(tips, "$game_scripts$", ".script"); - return; - } - - IConsole_Command::fill_tips(tips, mode); - } + CCC_ScriptCommand(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + + virtual void Execute(LPCSTR args) + { + if (!xr_strlen(args)) + Log("* Specify string to run!"); + else + { + if (ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)) + { + ai().script_engine().script_process(ScriptEngine::eScriptProcessorLevel)->add_script(args, true, true); + return; + } + + string4096 S; + shared_str m_script_name = "console command"; + xr_sprintf(S, "%s\n", args); + int l_iErrorCode = luaL_loadbuffer(ai().script_engine().lua(), S, xr_strlen(S), "@console_command"); + if (!l_iErrorCode) + { + l_iErrorCode = lua_pcall(ai().script_engine().lua(), 0, 0, 0); + if (l_iErrorCode) + { + ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); + ai().script_engine().on_error(ai().script_engine().lua()); + return; + } + } + + ai().script_engine().print_output(ai().script_engine().lua(), *m_script_name, l_iErrorCode); + } + }//void Execute + + virtual void Status(TStatus& S) + { + xr_strcpy(S, " (Specify script and function name!)"); + } + virtual void Save(IWriter* F) {} + + virtual void fill_tips(vecTips& tips, u32 mode) + { + if (mode == 1) + { + get_files_list(tips, "$game_scripts$", ".script"); + return; + } + + IConsole_Command::fill_tips(tips, mode); + } }; class CCC_TimeFactor : public IConsole_Command { public: - CCC_TimeFactor(LPCSTR N) : IConsole_Command(N) {} - virtual void Execute(LPCSTR args) - { - float time_factor = (float) atof(args); - clamp(time_factor, EPS, 1000.f); - Device.time_factor(time_factor); - } - virtual void Status(TStatus &S) - { - xr_sprintf(S, sizeof(S), "%f", Device.time_factor()); - } - - virtual void Info(TInfo& I) - { - xr_strcpy(I, "[0.001 - 1000.0]"); - } - - virtual void fill_tips(vecTips& tips, u32 mode) - { - TStatus str; - xr_sprintf(str, sizeof(str), "%3.3f (current) [0.001 - 1000.0]", Device.time_factor()); - tips.push_back(str); - IConsole_Command::fill_tips(tips, mode); - } + CCC_TimeFactor(LPCSTR N) : IConsole_Command(N) {} + virtual void Execute(LPCSTR args) + { + float time_factor = (float)atof(args); + clamp(time_factor, EPS, 1000.f); + Device.time_factor(time_factor); + } + virtual void Status(TStatus &S) + { + xr_sprintf(S, sizeof(S), "%f", Device.time_factor()); + } + + virtual void Info(TInfo& I) + { + xr_strcpy(I, "[0.001 - 1000.0]"); + } + + virtual void fill_tips(vecTips& tips, u32 mode) + { + TStatus str; + xr_sprintf(str, sizeof(str), "%3.3f (current) [0.001 - 1000.0]", Device.time_factor()); + tips.push_back(str); + IConsole_Command::fill_tips(tips, mode); + } }; //#endif // MASTER_GOLD @@ -1425,128 +1428,128 @@ class CCC_TimeFactor : public IConsole_Command class CCC_MainMenu : public IConsole_Command { public: - CCC_MainMenu(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR args) - { - bool bWhatToDo = TRUE; - if (0 == xr_strlen(args)) - { - bWhatToDo = !MainMenu()->IsActive(); - }; - - if (EQ(args, "on") || EQ(args, "1")) - bWhatToDo = TRUE; - - if (EQ(args, "off") || EQ(args, "0")) - bWhatToDo = FALSE; - - MainMenu()->Activate(bWhatToDo); - } + CCC_MainMenu(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR args) + { + bool bWhatToDo = TRUE; + if (0 == xr_strlen(args)) + { + bWhatToDo = !MainMenu()->IsActive(); + }; + + if (EQ(args, "on") || EQ(args, "1")) + bWhatToDo = TRUE; + + if (EQ(args, "off") || EQ(args, "0")) + bWhatToDo = FALSE; + + MainMenu()->Activate(bWhatToDo); + } }; struct CCC_StartTimeSingle : public IConsole_Command { - CCC_StartTimeSingle(LPCSTR N) : IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; - sscanf(args, "%d.%d.%d %d:%d:%d.%d", &year, &month, &day, &hours, &mins, &secs, &milisecs); - year = _max(year, 1); - month = _max(month, 1); - day = _max(day, 1); - g_qwStartGameTime = generate_time(year, month, day, hours, mins, secs, milisecs); - - if (!g_pGameLevel) - return; - - if (!Level().Server) - return; - - if (!Level().Server->game) - return; - - Level().SetGameTimeFactor(g_qwStartGameTime, g_fTimeFactor); - } - - virtual void Status(TStatus& S) - { - u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; - split_time(g_qwStartGameTime, year, month, day, hours, mins, secs, milisecs); - xr_sprintf(S, "%d.%d.%d %d:%d:%d.%d", year, month, day, hours, mins, secs, milisecs); - } + CCC_StartTimeSingle(LPCSTR N) : IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; + sscanf(args, "%d.%d.%d %d:%d:%d.%d", &year, &month, &day, &hours, &mins, &secs, &milisecs); + year = _max(year, 1); + month = _max(month, 1); + day = _max(day, 1); + g_qwStartGameTime = generate_time(year, month, day, hours, mins, secs, milisecs); + + if (!g_pGameLevel) + return; + + if (!Level().Server) + return; + + if (!Level().Server->game) + return; + + Level().SetGameTimeFactor(g_qwStartGameTime, g_fTimeFactor); + } + + virtual void Status(TStatus& S) + { + u32 year = 1, month = 1, day = 1, hours = 0, mins = 0, secs = 0, milisecs = 0; + split_time(g_qwStartGameTime, year, month, day, hours, mins, secs, milisecs); + xr_sprintf(S, "%d.%d.%d %d:%d:%d.%d", year, month, day, hours, mins, secs, milisecs); + } }; struct CCC_TimeFactorSingle : public CCC_Float { - CCC_TimeFactorSingle(LPCSTR N, float* V, float _min = 0.f, float _max = 1.f) : CCC_Float(N, V, _min, _max) {}; + CCC_TimeFactorSingle(LPCSTR N, float* V, float _min = 0.f, float _max = 1.f) : CCC_Float(N, V, _min, _max) {}; - virtual void Execute(LPCSTR args) - { - CCC_Float::Execute(args); + virtual void Execute(LPCSTR args) + { + CCC_Float::Execute(args); - if (!g_pGameLevel) - return; + if (!g_pGameLevel) + return; - if (!Level().Server) - return; + if (!Level().Server) + return; - if (!Level().Server->game) - return; + if (!Level().Server->game) + return; - Level().SetGameTimeFactor(g_fTimeFactor); - } + Level().SetGameTimeFactor(g_fTimeFactor); + } }; #ifdef DEBUG class CCC_RadioGroupMask2; class CCC_RadioMask :public CCC_Mask { - CCC_RadioGroupMask2 *group; + CCC_RadioGroupMask2 *group; public: - CCC_RadioMask(LPCSTR N, Flags32* V, u32 M) : - CCC_Mask(N, V, M) - { - group = NULL; - } - void SetGroup(CCC_RadioGroupMask2 *G) - { - group = G; - } - virtual void Execute(LPCSTR args); - - IC void Set(BOOL V) - { - value->set(mask, V); - } + CCC_RadioMask(LPCSTR N, Flags32* V, u32 M) : + CCC_Mask(N, V, M) + { + group = NULL; + } + void SetGroup(CCC_RadioGroupMask2 *G) + { + group = G; + } + virtual void Execute(LPCSTR args); + + IC void Set(BOOL V) + { + value->set(mask, V); + } }; class CCC_RadioGroupMask2 { - CCC_RadioMask *mask0; - CCC_RadioMask *mask1; + CCC_RadioMask *mask0; + CCC_RadioMask *mask1; public: - CCC_RadioGroupMask2(CCC_RadioMask *m0, CCC_RadioMask *m1) - { - mask0 = m0; mask1 = m1; - mask0->SetGroup(this); - mask1->SetGroup(this); - } - void Execute(CCC_RadioMask& m, LPCSTR args) - { - BOOL value = m.GetValue(); - if (value) - { - mask0->Set(!value); mask1->Set(!value); - } - m.Set(value); - } + CCC_RadioGroupMask2(CCC_RadioMask *m0, CCC_RadioMask *m1) + { + mask0 = m0; mask1 = m1; + mask0->SetGroup(this); + mask1->SetGroup(this); + } + void Execute(CCC_RadioMask& m, LPCSTR args) + { + BOOL value = m.GetValue(); + if (value) + { + mask0->Set(!value); mask1->Set(!value); + } + m.Set(value); + } }; void CCC_RadioMask::Execute(LPCSTR args) { - CCC_Mask::Execute(args); - VERIFY2(group, "CCC_RadioMask: group not set"); - group->Execute(*this, args); + CCC_Mask::Execute(args); + VERIFY2(group, "CCC_RadioMask: group not set"); + group->Execute(*this, args); } #define CMD_RADIOGROUPMASK2(p1,p2,p3,p4,p5,p6) \ @@ -1558,16 +1561,16 @@ void CCC_RadioMask::Execute(LPCSTR args) struct CCC_DbgBullets : public CCC_Integer { - CCC_DbgBullets(LPCSTR N, int* V, int _min = 0, int _max = 999) : CCC_Integer(N, V, _min, _max) {}; + CCC_DbgBullets(LPCSTR N, int* V, int _min = 0, int _max = 999) : CCC_Integer(N, V, _min, _max) {}; - virtual void Execute(LPCSTR args) - { - extern FvectorVec g_hit[]; - g_hit[0].clear(); - g_hit[1].clear(); - g_hit[2].clear(); - CCC_Integer::Execute(args); - } + virtual void Execute(LPCSTR args) + { + extern FvectorVec g_hit[]; + g_hit[0].clear(); + g_hit[1].clear(); + g_hit[2].clear(); + CCC_Integer::Execute(args); + } }; #include "attachable_item.h" @@ -1577,73 +1580,73 @@ struct CCC_DbgBullets : public CCC_Integer class CCC_TuneAttachableItem : public IConsole_Command { public: - CCC_TuneAttachableItem(LPCSTR N) :IConsole_Command(N) {}; - virtual void Execute(LPCSTR args) - { - if (CAttachableItem::m_dbgItem) - { - CAttachableItem::m_dbgItem = NULL; - Msg("CCC_TuneAttachableItem switched to off"); - return; - }; - - CObject* obj = Level().CurrentViewEntity(); VERIFY(obj); - shared_str ssss = args; - - CAttachmentOwner* owner = smart_cast(obj); - CAttachableItem* itm = owner->attachedItem(ssss); - if (itm) - { - CAttachableItem::m_dbgItem = itm; - } - else - { - CInventoryOwner* iowner = smart_cast(obj); - PIItem active_item = iowner->m_inventory->ActiveItem(); - if (active_item && active_item->object().cNameSect() == ssss) - CAttachableItem::m_dbgItem = active_item->cast_attachable_item(); - } - - if (CAttachableItem::m_dbgItem) - Msg("CCC_TuneAttachableItem switched to ON for [%s]", args); - else - Msg("CCC_TuneAttachableItem cannot find attached item [%s]", args); - } - - virtual void Info(TInfo& I) - { - xr_sprintf(I, "allows to change bind rotation and position offsets for attached item, given as arguments"); - } + CCC_TuneAttachableItem(LPCSTR N) :IConsole_Command(N) {}; + virtual void Execute(LPCSTR args) + { + if (CAttachableItem::m_dbgItem) + { + CAttachableItem::m_dbgItem = NULL; + Msg("CCC_TuneAttachableItem switched to off"); + return; + }; + + CObject* obj = Level().CurrentViewEntity(); VERIFY(obj); + shared_str ssss = args; + + CAttachmentOwner* owner = smart_cast(obj); + CAttachableItem* itm = owner->attachedItem(ssss); + if (itm) + { + CAttachableItem::m_dbgItem = itm; + } + else + { + CInventoryOwner* iowner = smart_cast(obj); + PIItem active_item = iowner->m_inventory->ActiveItem(); + if (active_item && active_item->object().cNameSect() == ssss) + CAttachableItem::m_dbgItem = active_item->cast_attachable_item(); + } + + if (CAttachableItem::m_dbgItem) + Msg("CCC_TuneAttachableItem switched to ON for [%s]", args); + else + Msg("CCC_TuneAttachableItem cannot find attached item [%s]", args); + } + + virtual void Info(TInfo& I) + { + xr_sprintf(I, "allows to change bind rotation and position offsets for attached item, given as arguments"); + } }; class CCC_Crash : public IConsole_Command { public: - CCC_Crash(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR /**args/**/) - { - VERIFY3(false, "This is a test crash", "Do not post it as a bug"); - int *pointer = 0; - *pointer = 0; - } + CCC_Crash(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR /**args/**/) + { + VERIFY3(false, "This is a test crash", "Do not post it as a bug"); + int *pointer = 0; + *pointer = 0; + } }; #ifdef DEBUG_MEMORY_MANAGER class CCC_MemAllocShowStats : public IConsole_Command { public: - CCC_MemAllocShowStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) { - mem_alloc_show_stats (); - } + CCC_MemAllocShowStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) { + mem_alloc_show_stats(); + } }; class CCC_MemAllocClearStats : public IConsole_Command { public: - CCC_MemAllocClearStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) { - mem_alloc_clear_stats (); - } + CCC_MemAllocClearStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) { + mem_alloc_clear_stats(); + } }; #endif // DEBUG_MEMORY_MANAGER @@ -1651,48 +1654,48 @@ class CCC_MemAllocClearStats : public IConsole_Command { class CCC_DumpModelBones : public IConsole_Command { public: - CCC_DumpModelBones(LPCSTR N) : IConsole_Command(N) - { - } - - virtual void Execute(LPCSTR arguments) - { - if (!arguments || !*arguments) - { - Msg("! no arguments passed"); - return; - } - - LPCSTR name; - - if (0 == strext(arguments)) - STRCONCAT(name, arguments, ".ogf"); - else - STRCONCAT(name, arguments); - - string_path fn; - - if (!FS.exist(arguments) && !FS.exist(fn, "$level$", name) && !FS.exist(fn, "$game_meshes$", name)) - { - Msg("! Cannot find visual \"%s\"", arguments); - return; - } - - IRenderVisual *visual = Render->model_Create(arguments); - IKinematics *kinematics = smart_cast(visual); - if (!kinematics) - { - Render->model_Delete(visual); - Msg("! Invalid visual type \"%s\" (not a IKinematics)", arguments); - return; - } - - Msg("bones for model \"%s\"", arguments); - for (u16 i = 0, n = kinematics->LL_BoneCount(); i < n; ++i) - Msg("%s", *kinematics->LL_GetData(i).name); - - Render->model_Delete(visual); - } + CCC_DumpModelBones(LPCSTR N) : IConsole_Command(N) + { + } + + virtual void Execute(LPCSTR arguments) + { + if (!arguments || !*arguments) + { + Msg("! no arguments passed"); + return; + } + + LPCSTR name; + + if (0 == strext(arguments)) + STRCONCAT(name, arguments, ".ogf"); + else + STRCONCAT(name, arguments); + + string_path fn; + + if (!FS.exist(arguments) && !FS.exist(fn, "$level$", name) && !FS.exist(fn, "$game_meshes$", name)) + { + Msg("! Cannot find visual \"%s\"", arguments); + return; + } + + IRenderVisual *visual = Render->model_Create(arguments); + IKinematics *kinematics = smart_cast(visual); + if (!kinematics) + { + Render->model_Delete(visual); + Msg("! Invalid visual type \"%s\" (not a IKinematics)", arguments); + return; + } + + Msg("bones for model \"%s\"", arguments); + for (u16 i = 0, n = kinematics->LL_BoneCount(); i < n; ++i) + Msg("%s", *kinematics->LL_GetData(i).name); + + Render->model_Delete(visual); + } }; extern void show_animation_stats(); @@ -1700,79 +1703,79 @@ extern void show_animation_stats(); class CCC_ShowAnimationStats : public IConsole_Command { public: - CCC_ShowAnimationStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) - { - show_animation_stats(); - } + CCC_ShowAnimationStats(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + show_animation_stats(); + } }; class CCC_InvUpgradesHierarchy : public IConsole_Command { public: - CCC_InvUpgradesHierarchy(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute(LPCSTR args) - { - if (ai().get_alife()) - { - ai().alife().inventory_upgrade_manager().log_hierarchy(); - } - } + CCC_InvUpgradesHierarchy(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (ai().get_alife()) + { + ai().alife().inventory_upgrade_manager().log_hierarchy(); + } + } }; class CCC_InvUpgradesCurItem : public IConsole_Command { public: - CCC_InvUpgradesCurItem(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute(LPCSTR args) - { - if (!g_pGameLevel) - { - return; - } - CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); - if (!ui_game_sp) - { - return; - } - PIItem item = ui_game_sp->GetActorMenu().get_upgrade_item(); - if (item) - { - item->log_upgrades(); - } - else - { - Msg("- Current item in ActorMenu is unknown!"); - } - } + CCC_InvUpgradesCurItem(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (!g_pGameLevel) + { + return; + } + CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); + if (!ui_game_sp) + { + return; + } + PIItem item = ui_game_sp->GetActorMenu().get_upgrade_item(); + if (item) + { + item->log_upgrades(); + } + else + { + Msg("- Current item in ActorMenu is unknown!"); + } + } }; class CCC_InvDropAllItems : public IConsole_Command { public: - CCC_InvDropAllItems(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; - virtual void Execute(LPCSTR args) - { - if (!g_pGameLevel) - { - return; - } - CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); - if (!ui_game_sp) - { - return; - } - int d = 0; - sscanf(args, "%d", &d); - if (ui_game_sp->GetActorMenu().DropAllItemsFromRuck(d == 1)) - { - Msg("- All items from ruck of Actor is dropping now."); - } - else - { - Msg("! ActorMenu is not in state `Inventory`"); - } - } + CCC_InvDropAllItems(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = TRUE; }; + virtual void Execute(LPCSTR args) + { + if (!g_pGameLevel) + { + return; + } + CUIGameSP* ui_game_sp = smart_cast(CurrentGameUI()); + if (!ui_game_sp) + { + return; + } + int d = 0; + sscanf(args, "%d", &d); + if (ui_game_sp->GetActorMenu().DropAllItemsFromRuck(d == 1)) + { + Msg("- All items from ruck of Actor is dropping now."); + } + else + { + Msg("! ActorMenu is not in state `Inventory`"); + } + } }; // CCC_InvDropAllItems #endif // DEBUG @@ -1780,71 +1783,71 @@ class CCC_InvDropAllItems : public IConsole_Command class CCC_DumpObjects : public IConsole_Command { public: - CCC_DumpObjects(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR) - { - Level().Objects.dump_all_objects(); - } + CCC_DumpObjects(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR) + { + Level().Objects.dump_all_objects(); + } }; class CCC_GSCheckForUpdates : public IConsole_Command { public: - CCC_GSCheckForUpdates(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; - virtual void Execute(LPCSTR arguments) - { - if (!MainMenu()) return; - /* - CGameSpy_Available GSA; - shared_str result_string; - if (!GSA.CheckAvailableServices(result_string)) - { - Msg(*result_string); - // return; - }; - CGameSpy_Patching GameSpyPatching; - */ - bool InformOfNoPatch = true; - if (arguments && *arguments) - { - int bInfo = 1; - sscanf(arguments, "%d", &bInfo); - InformOfNoPatch = (bInfo != 0); - } - - // GameSpyPatching.CheckForPatch(InformOfNoPatch); - - MainMenu()->GetGS()->GetGameSpyPatching()->CheckForPatch(InformOfNoPatch); - } + CCC_GSCheckForUpdates(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = true; }; + virtual void Execute(LPCSTR arguments) + { + if (!MainMenu()) return; + /* + CGameSpy_Available GSA; + shared_str result_string; + if (!GSA.CheckAvailableServices(result_string)) + { + Msg(*result_string); + // return; + }; + CGameSpy_Patching GameSpyPatching; + */ + bool InformOfNoPatch = true; + if (arguments && *arguments) + { + int bInfo = 1; + sscanf(arguments, "%d", &bInfo); + InformOfNoPatch = (bInfo != 0); + } + + // GameSpyPatching.CheckForPatch(InformOfNoPatch); + + MainMenu()->GetGS()->GetGameSpyPatching()->CheckForPatch(InformOfNoPatch); + } }; class CCC_Net_SV_GuaranteedPacketMode : public CCC_Integer { protected: - int *value_blin; + int *value_blin; public: - CCC_Net_SV_GuaranteedPacketMode(LPCSTR N, int* V, int _min = 0, int _max = 2) : - CCC_Integer(N, V, _min, _max), - value_blin(V) - { - }; - - virtual void Execute(LPCSTR args) - { - CCC_Integer::Execute(args); - } + CCC_Net_SV_GuaranteedPacketMode(LPCSTR N, int* V, int _min = 0, int _max = 2) : + CCC_Integer(N, V, _min, _max), + value_blin(V) + { + }; + + virtual void Execute(LPCSTR args) + { + CCC_Integer::Execute(args); + } }; #ifdef DEBUG void DBG_CashedClear(); class CCC_DBGDrawCashedClear : public IConsole_Command { public: - CCC_DBGDrawCashedClear(LPCSTR N) :IConsole_Command(N) { bEmptyArgsHandled = true; } + CCC_DBGDrawCashedClear(LPCSTR N) :IConsole_Command(N) { bEmptyArgsHandled = true; } private: - virtual void Execute(LPCSTR args) - { - DBG_CashedClear(); - } + virtual void Execute(LPCSTR args) + { + DBG_CashedClear(); + } }; #endif @@ -1852,488 +1855,490 @@ class CCC_DBGDrawCashedClear : public IConsole_Command class CCC_DbgVar : public IConsole_Command { public: - CCC_DbgVar(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; - virtual void Execute(LPCSTR arguments) - { - if (!arguments || !*arguments) - { - return; - } - - if (_GetItemCount(arguments, ' ') == 1) - { - ai_dbg::show_var(arguments); - } - else - { - char name[1024]; - float f; - sscanf(arguments, "%s %f", name, &f); - ai_dbg::set_var(name, f); - } - } + CCC_DbgVar(LPCSTR N) : IConsole_Command(N) { bEmptyArgsHandled = false; }; + virtual void Execute(LPCSTR arguments) + { + if (!arguments || !*arguments) + { + return; + } + + if (_GetItemCount(arguments, ' ') == 1) + { + ai_dbg::show_var(arguments); + } + else + { + char name[1024]; + float f; + sscanf(arguments, "%s %f", name, &f); + ai_dbg::set_var(name, f); + } + } }; void CCC_RegisterCommands() { - // options - g_OptConCom.Init(); + // options + g_OptConCom.Init(); - CMD1(CCC_MemStats, "stat_memory"); + CMD1(CCC_MemStats, "stat_memory"); #ifdef DEBUG - CMD1(CCC_MemCheckpoint, "stat_memory_checkpoint"); + CMD1(CCC_MemCheckpoint, "stat_memory_checkpoint"); #endif //#ifdef DEBUG - // game - CMD3(CCC_Mask, "g_crouch_toggle", &psActorFlags, AF_CROUCH_TOGGLE); - CMD1(CCC_GameDifficulty, "g_game_difficulty"); + // game + CMD3(CCC_Mask, "g_crouch_toggle", &psActorFlags, AF_CROUCH_TOGGLE); + CMD1(CCC_GameDifficulty, "g_game_difficulty"); - CMD3(CCC_Mask, "g_backrun", &psActorFlags, AF_RUN_BACKWARD); + CMD3(CCC_Mask, "g_backrun", &psActorFlags, AF_RUN_BACKWARD); - // alife + // alife #ifdef DEBUG - CMD1(CCC_ALifePath, "al_path"); // build path + CMD1(CCC_ALifePath, "al_path"); // build path #endif // DEBUG - CMD1(CCC_ALifeSave, "save"); // save game - CMD1(CCC_ALifeLoadFrom, "load"); // load game from ... - CMD1(CCC_LoadLastSave, "load_last_save"); // load last saved game from ... + CMD1(CCC_ALifeSave, "save"); // save game + CMD1(CCC_ALifeLoadFrom, "load"); // load game from ... + CMD1(CCC_LoadLastSave, "load_last_save"); // load last saved game from ... - CMD1(CCC_FlushLog, "flush"); // flush log - CMD1(CCC_ClearLog, "clear_log"); + CMD1(CCC_FlushLog, "flush"); // flush log + CMD1(CCC_ClearLog, "clear_log"); #ifndef MASTER_GOLD - CMD1(CCC_ALifeTimeFactor, "al_time_factor"); // set time factor - CMD1(CCC_ALifeSwitchDistance, "al_switch_distance"); // set switch distance - CMD1(CCC_ALifeProcessTime, "al_process_time"); // set process time - CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update"); // set process time - CMD1(CCC_ALifeSwitchFactor, "al_switch_factor"); // set switch factor + CMD1(CCC_ALifeTimeFactor, "al_time_factor"); // set time factor + CMD1(CCC_ALifeSwitchDistance, "al_switch_distance"); // set switch distance + CMD1(CCC_ALifeProcessTime, "al_process_time"); // set process time + CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update"); // set process time + CMD1(CCC_ALifeSwitchFactor, "al_switch_factor"); // set switch factor #endif // #ifndef MASTER_GOLD - CMD3(CCC_Mask, "hud_weapon", &psHUD_Flags, HUD_WEAPON); - CMD3(CCC_Mask, "hud_info", &psHUD_Flags, HUD_INFO); - CMD3(CCC_Mask, "hud_draw", &psHUD_Flags, HUD_DRAW); + CMD3(CCC_Mask, "hud_weapon", &psHUD_Flags, HUD_WEAPON); + CMD3(CCC_Mask, "hud_info", &psHUD_Flags, HUD_INFO); + CMD3(CCC_Mask, "hud_draw", &psHUD_Flags, HUD_DRAW); - // hud - psHUD_Flags.set(HUD_CROSSHAIR, true); - psHUD_Flags.set(HUD_WEAPON, true); - psHUD_Flags.set(HUD_DRAW, true); - psHUD_Flags.set(HUD_INFO, true); + // hud + psHUD_Flags.set(HUD_CROSSHAIR, true); + psHUD_Flags.set(HUD_WEAPON, true); + psHUD_Flags.set(HUD_DRAW, true); + psHUD_Flags.set(HUD_INFO, true); - CMD3(CCC_Mask, "hud_crosshair", &psHUD_Flags, HUD_CROSSHAIR); - CMD3(CCC_Mask, "hud_crosshair_dist", &psHUD_Flags, HUD_CROSSHAIR_DIST); + CMD3(CCC_Mask, "hud_crosshair", &psHUD_Flags, HUD_CROSSHAIR); + CMD3(CCC_Mask, "hud_crosshair_dist", &psHUD_Flags, HUD_CROSSHAIR_DIST); - //#ifdef DEBUG - CMD4(CCC_Float, "hud_fov", &psHUD_FOV, 0.1f, 1.0f); - CMD4(CCC_Float, "fov", &g_fov, 5.0f, 180.0f); - //#endif // DEBUG + //#ifdef DEBUG + CMD4(CCC_Float, "hud_fov", &psHUD_FOV, 0.1f, 1.0f); + CMD4(CCC_Float, "fov", &g_fov, 5.0f, 180.0f); + //#endif // DEBUG - // Demo - //#ifndef MASTER_GOLD - CMD1(CCC_DemoPlay, "demo_play"); - CMD1(CCC_DemoRecord, "demo_record"); - CMD1(CCC_DemoRecordSetPos, "demo_set_cam_position"); - //#endif // #ifndef MASTER_GOLD + // Demo + //#ifndef MASTER_GOLD + CMD1(CCC_DemoPlay, "demo_play"); + CMD1(CCC_DemoRecord, "demo_record"); + CMD1(CCC_DemoRecordSetPos, "demo_set_cam_position"); + //#endif // #ifndef MASTER_GOLD #ifndef MASTER_GOLD - // ai - CMD3(CCC_Mask, "mt_ai_vision", &g_mt_config, mtAiVision); - CMD3(CCC_Mask, "mt_level_path", &g_mt_config, mtLevelPath); - CMD3(CCC_Mask, "mt_detail_path", &g_mt_config, mtDetailPath); - CMD3(CCC_Mask, "mt_object_handler", &g_mt_config, mtObjectHandler); - CMD3(CCC_Mask, "mt_sound_player", &g_mt_config, mtSoundPlayer); - CMD3(CCC_Mask, "mt_bullets", &g_mt_config, mtBullets); - CMD3(CCC_Mask, "mt_script_gc", &g_mt_config, mtLUA_GC); - CMD3(CCC_Mask, "mt_level_sounds", &g_mt_config, mtLevelSounds); - CMD3(CCC_Mask, "mt_alife", &g_mt_config, mtALife); - CMD3(CCC_Mask, "mt_map", &g_mt_config, mtMap); + // ai + CMD3(CCC_Mask, "mt_ai_vision", &g_mt_config, mtAiVision); + CMD3(CCC_Mask, "mt_level_path", &g_mt_config, mtLevelPath); + CMD3(CCC_Mask, "mt_detail_path", &g_mt_config, mtDetailPath); + CMD3(CCC_Mask, "mt_object_handler", &g_mt_config, mtObjectHandler); + CMD3(CCC_Mask, "mt_sound_player", &g_mt_config, mtSoundPlayer); + CMD3(CCC_Mask, "mt_bullets", &g_mt_config, mtBullets); + CMD3(CCC_Mask, "mt_script_gc", &g_mt_config, mtLUA_GC); + CMD3(CCC_Mask, "mt_level_sounds", &g_mt_config, mtLevelSounds); + CMD3(CCC_Mask, "mt_alife", &g_mt_config, mtALife); + CMD3(CCC_Mask, "mt_map", &g_mt_config, mtMap); #endif // MASTER_GOLD #ifndef MASTER_GOLD - CMD3(CCC_Mask, "ai_obstacles_avoiding", &psAI_Flags, aiObstaclesAvoiding); - CMD3(CCC_Mask, "ai_obstacles_avoiding_static", &psAI_Flags, aiObstaclesAvoidingStatic); - CMD3(CCC_Mask, "ai_use_smart_covers", &psAI_Flags, aiUseSmartCovers); - CMD3(CCC_Mask, "ai_use_smart_covers_animation_slots", &psAI_Flags, (u32) aiUseSmartCoversAnimationSlot); - CMD4(CCC_Float, "ai_smart_factor", &g_smart_cover_factor, 0.f, 1000000.f); - CMD3(CCC_Mask, "ai_dbg_lua", &psAI_Flags, aiLua); + CMD3(CCC_Mask, "ai_obstacles_avoiding", &psAI_Flags, aiObstaclesAvoiding); + CMD3(CCC_Mask, "ai_obstacles_avoiding_static", &psAI_Flags, aiObstaclesAvoidingStatic); + CMD3(CCC_Mask, "ai_use_smart_covers", &psAI_Flags, aiUseSmartCovers); + CMD3(CCC_Mask, "ai_use_smart_covers_animation_slots", &psAI_Flags, (u32)aiUseSmartCoversAnimationSlot); + CMD4(CCC_Float, "ai_smart_factor", &g_smart_cover_factor, 0.f, 1000000.f); + CMD3(CCC_Mask, "ai_dbg_lua", &psAI_Flags, aiLua); #endif // MASTER_GOLD #ifdef DEBUG - CMD4(CCC_Integer, "lua_gcstep", &psLUA_GCSTEP, 1, 1000); - CMD3(CCC_Mask, "ai_debug", &psAI_Flags, aiDebug); - CMD3(CCC_Mask, "ai_dbg_brain", &psAI_Flags, aiBrain); - CMD3(CCC_Mask, "ai_dbg_motion", &psAI_Flags, aiMotion); - CMD3(CCC_Mask, "ai_dbg_frustum", &psAI_Flags, aiFrustum); - CMD3(CCC_Mask, "ai_dbg_funcs", &psAI_Flags, aiFuncs); - CMD3(CCC_Mask, "ai_dbg_alife", &psAI_Flags, aiALife); - CMD3(CCC_Mask, "ai_dbg_goap", &psAI_Flags, aiGOAP); - CMD3(CCC_Mask, "ai_dbg_goap_script", &psAI_Flags, aiGOAPScript); - CMD3(CCC_Mask, "ai_dbg_goap_object", &psAI_Flags, aiGOAPObject); - CMD3(CCC_Mask, "ai_dbg_cover", &psAI_Flags, aiCover); - CMD3(CCC_Mask, "ai_dbg_anim", &psAI_Flags, aiAnimation); - CMD3(CCC_Mask, "ai_dbg_vision", &psAI_Flags, aiVision); - CMD3(CCC_Mask, "ai_dbg_monster", &psAI_Flags, aiMonsterDebug); - CMD3(CCC_Mask, "ai_dbg_stalker", &psAI_Flags, aiStalker); - CMD3(CCC_Mask, "ai_stats", &psAI_Flags, aiStats); - CMD3(CCC_Mask, "ai_dbg_destroy", &psAI_Flags, aiDestroy); - CMD3(CCC_Mask, "ai_dbg_serialize", &psAI_Flags, aiSerialize); - CMD3(CCC_Mask, "ai_dbg_dialogs", &psAI_Flags, aiDialogs); - CMD3(CCC_Mask, "ai_dbg_infoportion", &psAI_Flags, aiInfoPortion); - - CMD3(CCC_Mask, "ai_draw_game_graph", &psAI_Flags, aiDrawGameGraph); - CMD3(CCC_Mask, "ai_draw_game_graph_stalkers", &psAI_Flags, aiDrawGameGraphStalkers); - CMD3(CCC_Mask, "ai_draw_game_graph_objects", &psAI_Flags, aiDrawGameGraphObjects); - CMD3(CCC_Mask, "ai_draw_game_graph_real_pos", &psAI_Flags, aiDrawGameGraphRealPos); - - CMD3(CCC_Mask, "ai_nil_object_access", &psAI_Flags, aiNilObjectAccess); - - CMD3(CCC_Mask, "ai_draw_visibility_rays", &psAI_Flags, aiDrawVisibilityRays); - CMD3(CCC_Mask, "ai_animation_stats", &psAI_Flags, aiAnimationStats); - - /////////////////////////////////////////////HIT ANIMATION//////////////////////////////////////////////////// - //float power_factor = 2.f; - //float rotational_power_factor = 3.f; - //float side_sensitivity_threshold = 0.2f; - //float anim_channel_factor = 3.f; - - CMD4(CCC_Float, "hit_anims_power", &ghit_anims_params.power_factor, 0.0f, 100.0f); - CMD4(CCC_Float, "hit_anims_rotational_power", &ghit_anims_params.rotational_power_factor, 0.0f, 100.0f); - CMD4(CCC_Float, "hit_anims_side_sensitivity_threshold", &ghit_anims_params.side_sensitivity_threshold, 0.0f, 10.0f); - CMD4(CCC_Float, "hit_anims_channel_factor", &ghit_anims_params.anim_channel_factor, 0.0f, 100.0f); - //float block_blend = 0.1f; - //float reduce_blend = 0.5f; - //float reduce_power_factor = 0.5f; - CMD4(CCC_Float, "hit_anims_block_blend", &ghit_anims_params.block_blend, 0.f, 1.f); - CMD4(CCC_Float, "hit_anims_reduce_blend", &ghit_anims_params.reduce_blend, 0.f, 1.f); - CMD4(CCC_Float, "hit_anims_reduce_blend_factor", &ghit_anims_params.reduce_power_factor, 0.0f, 1.0f); - CMD4(CCC_Integer, "hit_anims_tune", &tune_hit_anims, 0, 1); - /////////////////////////////////////////////HIT ANIMATION END//////////////////////////////////////////////////// + CMD4(CCC_Integer, "lua_gcstep", &psLUA_GCSTEP, 1, 1000); + CMD3(CCC_Mask, "ai_debug", &psAI_Flags, aiDebug); + CMD3(CCC_Mask, "ai_dbg_brain", &psAI_Flags, aiBrain); + CMD3(CCC_Mask, "ai_dbg_motion", &psAI_Flags, aiMotion); + CMD3(CCC_Mask, "ai_dbg_frustum", &psAI_Flags, aiFrustum); + CMD3(CCC_Mask, "ai_dbg_funcs", &psAI_Flags, aiFuncs); + CMD3(CCC_Mask, "ai_dbg_alife", &psAI_Flags, aiALife); + CMD3(CCC_Mask, "ai_dbg_goap", &psAI_Flags, aiGOAP); + CMD3(CCC_Mask, "ai_dbg_goap_script", &psAI_Flags, aiGOAPScript); + CMD3(CCC_Mask, "ai_dbg_goap_object", &psAI_Flags, aiGOAPObject); + CMD3(CCC_Mask, "ai_dbg_cover", &psAI_Flags, aiCover); + CMD3(CCC_Mask, "ai_dbg_anim", &psAI_Flags, aiAnimation); + CMD3(CCC_Mask, "ai_dbg_vision", &psAI_Flags, aiVision); + CMD3(CCC_Mask, "ai_dbg_monster", &psAI_Flags, aiMonsterDebug); + CMD3(CCC_Mask, "ai_dbg_stalker", &psAI_Flags, aiStalker); + CMD3(CCC_Mask, "ai_stats", &psAI_Flags, aiStats); + CMD3(CCC_Mask, "ai_dbg_destroy", &psAI_Flags, aiDestroy); + CMD3(CCC_Mask, "ai_dbg_serialize", &psAI_Flags, aiSerialize); + CMD3(CCC_Mask, "ai_dbg_dialogs", &psAI_Flags, aiDialogs); + CMD3(CCC_Mask, "ai_dbg_infoportion", &psAI_Flags, aiInfoPortion); + + CMD3(CCC_Mask, "ai_draw_game_graph", &psAI_Flags, aiDrawGameGraph); + CMD3(CCC_Mask, "ai_draw_game_graph_stalkers", &psAI_Flags, aiDrawGameGraphStalkers); + CMD3(CCC_Mask, "ai_draw_game_graph_objects", &psAI_Flags, aiDrawGameGraphObjects); + CMD3(CCC_Mask, "ai_draw_game_graph_real_pos", &psAI_Flags, aiDrawGameGraphRealPos); + + CMD3(CCC_Mask, "ai_nil_object_access", &psAI_Flags, aiNilObjectAccess); + + CMD3(CCC_Mask, "ai_draw_visibility_rays", &psAI_Flags, aiDrawVisibilityRays); + CMD3(CCC_Mask, "ai_animation_stats", &psAI_Flags, aiAnimationStats); + + /////////////////////////////////////////////HIT ANIMATION//////////////////////////////////////////////////// + //float power_factor = 2.f; + //float rotational_power_factor = 3.f; + //float side_sensitivity_threshold = 0.2f; + //float anim_channel_factor = 3.f; + + CMD4(CCC_Float, "hit_anims_power", &ghit_anims_params.power_factor, 0.0f, 100.0f); + CMD4(CCC_Float, "hit_anims_rotational_power", &ghit_anims_params.rotational_power_factor, 0.0f, 100.0f); + CMD4(CCC_Float, "hit_anims_side_sensitivity_threshold", &ghit_anims_params.side_sensitivity_threshold, 0.0f, 10.0f); + CMD4(CCC_Float, "hit_anims_channel_factor", &ghit_anims_params.anim_channel_factor, 0.0f, 100.0f); + //float block_blend = 0.1f; + //float reduce_blend = 0.5f; + //float reduce_power_factor = 0.5f; + CMD4(CCC_Float, "hit_anims_block_blend", &ghit_anims_params.block_blend, 0.f, 1.f); + CMD4(CCC_Float, "hit_anims_reduce_blend", &ghit_anims_params.reduce_blend, 0.f, 1.f); + CMD4(CCC_Float, "hit_anims_reduce_blend_factor", &ghit_anims_params.reduce_power_factor, 0.0f, 1.0f); + CMD4(CCC_Integer, "hit_anims_tune", &tune_hit_anims, 0, 1); + /////////////////////////////////////////////HIT ANIMATION END//////////////////////////////////////////////////// #ifdef DEBUG_MEMORY_MANAGER - CMD3(CCC_Mask, "debug_on_frame_gather_stats", &psAI_Flags, aiDebugOnFrameAllocs); - CMD4(CCC_Float, "debug_on_frame_gather_stats_frequency", &debug_on_frame_gather_stats_frequency, 0.f, 1.f); - CMD1(CCC_MemAllocShowStats, "debug_on_frame_show_stats"); - CMD1(CCC_MemAllocClearStats,"debug_on_frame_clear_stats"); + CMD3(CCC_Mask, "debug_on_frame_gather_stats", &psAI_Flags, aiDebugOnFrameAllocs); + CMD4(CCC_Float, "debug_on_frame_gather_stats_frequency", &debug_on_frame_gather_stats_frequency, 0.f, 1.f); + CMD1(CCC_MemAllocShowStats, "debug_on_frame_show_stats"); + CMD1(CCC_MemAllocClearStats, "debug_on_frame_clear_stats"); #endif // DEBUG_MEMORY_MANAGER - CMD1(CCC_DumpModelBones, "debug_dump_model_bones"); + CMD1(CCC_DumpModelBones, "debug_dump_model_bones"); - CMD1(CCC_DrawGameGraphAll, "ai_draw_game_graph_all"); - CMD1(CCC_DrawGameGraphCurrent, "ai_draw_game_graph_current_level"); - CMD1(CCC_DrawGameGraphLevel, "ai_draw_game_graph_level"); + CMD1(CCC_DrawGameGraphAll, "ai_draw_game_graph_all"); + CMD1(CCC_DrawGameGraphCurrent, "ai_draw_game_graph_current_level"); + CMD1(CCC_DrawGameGraphLevel, "ai_draw_game_graph_level"); - CMD4(CCC_Integer, "ai_dbg_inactive_time", &g_AI_inactive_time, 0, 1000000); + CMD4(CCC_Integer, "ai_dbg_inactive_time", &g_AI_inactive_time, 0, 1000000); - CMD1(CCC_DebugNode, "ai_dbg_node"); + CMD1(CCC_DebugNode, "ai_dbg_node"); #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) - CMD1(CCC_ScriptDbg, "script_debug_break"); - CMD1(CCC_ScriptDbg, "script_debug_stop"); - CMD1(CCC_ScriptDbg, "script_debug_restart"); + CMD1(CCC_ScriptDbg, "script_debug_break"); + CMD1(CCC_ScriptDbg, "script_debug_stop"); + CMD1(CCC_ScriptDbg, "script_debug_restart"); #endif // #if defined(USE_DEBUGGER) && !defined(USE_LUA_STUDIO) #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) - CMD1(CCC_ScriptLuaStudioConnect, "lua_studio_connect"); - CMD1(CCC_ScriptLuaStudioDisconnect, "lua_studio_disconnect"); + CMD1(CCC_ScriptLuaStudioConnect, "lua_studio_connect"); + CMD1(CCC_ScriptLuaStudioDisconnect, "lua_studio_disconnect"); #endif // #if defined(USE_DEBUGGER) && defined(USE_LUA_STUDIO) - CMD1(CCC_ShowMonsterInfo, "ai_monster_info"); - CMD1(CCC_DebugFonts, "debug_fonts"); - CMD1(CCC_TuneAttachableItem, "dbg_adjust_attachable_item"); + CMD1(CCC_ShowMonsterInfo, "ai_monster_info"); + CMD1(CCC_DebugFonts, "debug_fonts"); + CMD1(CCC_TuneAttachableItem, "dbg_adjust_attachable_item"); - CMD1(CCC_ShowAnimationStats, "ai_show_animation_stats"); + CMD1(CCC_ShowAnimationStats, "ai_show_animation_stats"); #endif // DEBUG #ifndef MASTER_GOLD - CMD3(CCC_Mask, "ai_ignore_actor", &psAI_Flags, aiIgnoreActor); + CMD3(CCC_Mask, "ai_ignore_actor", &psAI_Flags, aiIgnoreActor); #endif // MASTER_GOLD - // Physics - CMD1(CCC_PHFps, "ph_frequency"); - CMD1(CCC_PHIterations, "ph_iterations"); + // Physics + CMD1(CCC_PHFps, "ph_frequency"); + CMD1(CCC_PHIterations, "ph_iterations"); #ifdef DEBUG - CMD1(CCC_PHGravity, "ph_gravity"); - CMD4(CCC_FloatBlock, "ph_timefactor", &phTimefactor, 0.000001f, 1000.f); - CMD4(CCC_FloatBlock, "ph_break_common_factor", &ph_console::phBreakCommonFactor, 0.f, 1000000000.f); - CMD4(CCC_FloatBlock, "ph_rigid_break_weapon_factor", &ph_console::phRigidBreakWeaponFactor, 0.f, 1000000000.f); - CMD4(CCC_Integer, "ph_tri_clear_disable_count", &ph_console::ph_tri_clear_disable_count, 0, 255); - CMD4(CCC_FloatBlock, "ph_tri_query_ex_aabb_rate", &ph_console::ph_tri_query_ex_aabb_rate, 1.01f, 3.f); - CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); - CMD1(CCC_JumpToLevel, "jump_to_level"); - CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); - CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); - CMD1(CCC_Script, "run_script"); - CMD1(CCC_ScriptCommand, "run_string"); - CMD1(CCC_TimeFactor, "time_factor"); + CMD1(CCC_PHGravity, "ph_gravity"); + CMD4(CCC_FloatBlock, "ph_timefactor", &phTimefactor, 0.000001f, 1000.f); + CMD4(CCC_FloatBlock, "ph_break_common_factor", &ph_console::phBreakCommonFactor, 0.f, 1000000000.f); + CMD4(CCC_FloatBlock, "ph_rigid_break_weapon_factor", &ph_console::phRigidBreakWeaponFactor, 0.f, 1000000000.f); + CMD4(CCC_Integer, "ph_tri_clear_disable_count", &ph_console::ph_tri_clear_disable_count, 0, 255); + CMD4(CCC_FloatBlock, "ph_tri_query_ex_aabb_rate", &ph_console::ph_tri_query_ex_aabb_rate, 1.01f, 3.f); + CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); + CMD1(CCC_JumpToLevel, "jump_to_level"); + CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); + CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); + CMD1(CCC_Script, "run_script"); + CMD1(CCC_ScriptCommand, "run_string"); + CMD1(CCC_TimeFactor, "time_factor"); #endif // DEBUG - /* AVO: changing restriction to -dbg key instead of DEBUG */ - //#ifndef MASTER_GOLD + /* AVO: changing restriction to -dbg key instead of DEBUG */ + //#ifndef MASTER_GOLD #ifdef MASTER_GOLD - if (0 != strstr(Core.Params, "-dbg")) - { - CMD1(CCC_JumpToLevel, "jump_to_level"); - CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); - CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); - CMD1(CCC_Script, "run_script"); - CMD1(CCC_ScriptCommand, "run_string"); - CMD1(CCC_TimeFactor, "time_factor"); - //CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); - CMD1(CCC_PHGravity, "ph_gravity"); - } + if (0 != strstr(Core.Params, "-dbg")) + { + CMD1(CCC_JumpToLevel, "jump_to_level"); + CMD3(CCC_Mask, "g_god", &psActorFlags, AF_GODMODE); + CMD3(CCC_Mask, "g_unlimitedammo", &psActorFlags, AF_UNLIMITEDAMMO); + CMD1(CCC_Script, "run_script"); + CMD1(CCC_ScriptCommand, "run_string"); + CMD1(CCC_TimeFactor, "time_factor"); + //CMD3(CCC_Mask, "g_no_clip", &psActorFlags, AF_NO_CLIP); + CMD1(CCC_PHGravity, "ph_gravity"); + } #endif // MASTER_GOLD - //#endif // MASTER_GOLD - /* AVO: end */ + //#endif // MASTER_GOLD + /* AVO: end */ - CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); - CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); - CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); + CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); + CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); + CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); #ifdef DEBUG - CMD1(CCC_LuaHelp, "lua_help"); - CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); - CMD1(CCC_ClearSmartCastStats, "clear_smart_cast_stats"); - - CMD3(CCC_Mask, "dbg_draw_actor_alive", &dbg_net_Draw_Flags, dbg_draw_actor_alive); - CMD3(CCC_Mask, "dbg_draw_actor_dead", &dbg_net_Draw_Flags, dbg_draw_actor_dead); - CMD3(CCC_Mask, "dbg_draw_customzone", &dbg_net_Draw_Flags, dbg_draw_customzone); - CMD3(CCC_Mask, "dbg_draw_teamzone", &dbg_net_Draw_Flags, dbg_draw_teamzone); - CMD3(CCC_Mask, "dbg_draw_invitem", &dbg_net_Draw_Flags, dbg_draw_invitem); - CMD3(CCC_Mask, "dbg_draw_actor_phys", &dbg_net_Draw_Flags, dbg_draw_actor_phys); - CMD3(CCC_Mask, "dbg_draw_customdetector", &dbg_net_Draw_Flags, dbg_draw_customdetector); - CMD3(CCC_Mask, "dbg_destroy", &dbg_net_Draw_Flags, dbg_destroy); - CMD3(CCC_Mask, "dbg_draw_autopickupbox", &dbg_net_Draw_Flags, dbg_draw_autopickupbox); - CMD3(CCC_Mask, "dbg_draw_rp", &dbg_net_Draw_Flags, dbg_draw_rp); - CMD3(CCC_Mask, "dbg_draw_climbable", &dbg_net_Draw_Flags, dbg_draw_climbable); - CMD3(CCC_Mask, "dbg_draw_skeleton", &dbg_net_Draw_Flags, dbg_draw_skeleton); - - CMD3(CCC_Mask, "dbg_draw_ph_contacts", &ph_dbg_draw_mask, phDbgDrawContacts); - CMD3(CCC_Mask, "dbg_draw_ph_enabled_aabbs", &ph_dbg_draw_mask, phDbgDrawEnabledAABBS); - CMD3(CCC_Mask, "dbg_draw_ph_intersected_tries", &ph_dbg_draw_mask, phDBgDrawIntersectedTries); - CMD3(CCC_Mask, "dbg_draw_ph_saved_tries", &ph_dbg_draw_mask, phDbgDrawSavedTries); - CMD3(CCC_Mask, "dbg_draw_ph_tri_trace", &ph_dbg_draw_mask, phDbgDrawTriTrace); - CMD3(CCC_Mask, "dbg_draw_ph_positive_tries", &ph_dbg_draw_mask, phDBgDrawPositiveTries); - CMD3(CCC_Mask, "dbg_draw_ph_negative_tries", &ph_dbg_draw_mask, phDBgDrawNegativeTries); - CMD3(CCC_Mask, "dbg_draw_ph_tri_test_aabb", &ph_dbg_draw_mask, phDbgDrawTriTestAABB); - CMD3(CCC_Mask, "dbg_draw_ph_tries_changes_sign", &ph_dbg_draw_mask, phDBgDrawTriesChangesSign); - CMD3(CCC_Mask, "dbg_draw_ph_tri_point", &ph_dbg_draw_mask, phDbgDrawTriPoint); - CMD3(CCC_Mask, "dbg_draw_ph_explosion_position", &ph_dbg_draw_mask, phDbgDrawExplosionPos); - CMD3(CCC_Mask, "dbg_draw_ph_statistics", &ph_dbg_draw_mask, phDbgDrawObjectStatistics); - CMD3(CCC_Mask, "dbg_draw_ph_mass_centres", &ph_dbg_draw_mask, phDbgDrawMassCenters); - CMD3(CCC_Mask, "dbg_draw_ph_death_boxes", &ph_dbg_draw_mask, phDbgDrawDeathActivationBox); - CMD3(CCC_Mask, "dbg_draw_ph_hit_app_pos", &ph_dbg_draw_mask, phHitApplicationPoints); - CMD3(CCC_Mask, "dbg_draw_ph_cashed_tries_stats", &ph_dbg_draw_mask, phDbgDrawCashedTriesStat); - CMD3(CCC_Mask, "dbg_draw_ph_car_dynamics", &ph_dbg_draw_mask, phDbgDrawCarDynamics); - CMD3(CCC_Mask, "dbg_draw_ph_car_plots", &ph_dbg_draw_mask, phDbgDrawCarPlots); - CMD3(CCC_Mask, "dbg_ph_ladder", &ph_dbg_draw_mask, phDbgLadder); - CMD3(CCC_Mask, "dbg_draw_ph_explosions", &ph_dbg_draw_mask, phDbgDrawExplosions); - CMD3(CCC_Mask, "dbg_draw_car_plots_all_trans", &ph_dbg_draw_mask, phDbgDrawCarAllTrnsm); - CMD3(CCC_Mask, "dbg_draw_ph_zbuffer_disable", &ph_dbg_draw_mask, phDbgDrawZDisable); - CMD3(CCC_Mask, "dbg_ph_obj_collision_damage", &ph_dbg_draw_mask, phDbgDispObjCollisionDammage); - CMD_RADIOGROUPMASK2("dbg_ph_ai_always_phmove", &ph_dbg_draw_mask, phDbgAlwaysUseAiPhMove, "dbg_ph_ai_never_phmove", &ph_dbg_draw_mask, phDbgNeverUseAiPhMove); - CMD3(CCC_Mask, "dbg_ph_ik", &ph_dbg_draw_mask, phDbgIK); - CMD3(CCC_Mask, "dbg_ph_ik_off", &ph_dbg_draw_mask1, phDbgIKOff); - CMD3(CCC_Mask, "dbg_draw_ph_ik_goal", &ph_dbg_draw_mask, phDbgDrawIKGoal); - CMD3(CCC_Mask, "dbg_ph_ik_limits", &ph_dbg_draw_mask, phDbgIKLimits); - CMD3(CCC_Mask, "dbg_ph_character_control", &ph_dbg_draw_mask, phDbgCharacterControl); - CMD3(CCC_Mask, "dbg_draw_ph_ray_motions", &ph_dbg_draw_mask, phDbgDrawRayMotions); - CMD4(CCC_Float, "dbg_ph_vel_collid_damage_to_display", &dbg_vel_collid_damage_to_display, 0.f, 1000.f); - CMD4(CCC_DbgBullets, "dbg_draw_bullet_hit", &g_bDrawBulletHit, 0, 1); - CMD4(CCC_Integer, "dbg_draw_fb_crosshair", &g_bDrawFirstBulletCrosshair, 0, 1); - CMD1(CCC_DbgPhTrackObj, "dbg_track_obj"); - CMD3(CCC_Mask, "dbg_ph_actor_restriction", &ph_dbg_draw_mask1, ph_m1_DbgActorRestriction); - CMD3(CCC_Mask, "dbg_draw_ph_hit_anims", &ph_dbg_draw_mask1, phDbgHitAnims); - CMD3(CCC_Mask, "dbg_draw_ph_ik_limits", &ph_dbg_draw_mask1, phDbgDrawIKLimits); - CMD3(CCC_Mask, "dbg_draw_ph_ik_predict", &ph_dbg_draw_mask1, phDbgDrawIKPredict); - CMD3(CCC_Mask, "dbg_draw_ph_ik_collision", &ph_dbg_draw_mask1, phDbgDrawIKCollision); - CMD3(CCC_Mask, "dbg_draw_ph_ik_shift_object", &ph_dbg_draw_mask1, phDbgDrawIKSHiftObject); - CMD3(CCC_Mask, "dbg_draw_ph_ik_blending", &ph_dbg_draw_mask1, phDbgDrawIKBlending); - CMD1(CCC_DBGDrawCashedClear, "dbg_ph_cashed_clear"); - extern BOOL dbg_draw_character_bones; - extern BOOL dbg_draw_character_physics; - extern BOOL dbg_draw_character_binds; - extern BOOL dbg_draw_character_physics_pones; - extern BOOL ik_cam_shift; - CMD4(CCC_Integer, "dbg_draw_character_bones", &dbg_draw_character_bones, FALSE, TRUE); - CMD4(CCC_Integer, "dbg_draw_character_physics", &dbg_draw_character_physics, FALSE, TRUE); - CMD4(CCC_Integer, "dbg_draw_character_binds", &dbg_draw_character_binds, FALSE, TRUE); - CMD4(CCC_Integer, "dbg_draw_character_physics_pones", &dbg_draw_character_physics_pones, FALSE, TRUE); - - CMD4(CCC_Integer, "ik_cam_shift", &ik_cam_shift, FALSE, TRUE); - - extern float ik_cam_shift_tolerance; - CMD4(CCC_Float, "ik_cam_shift_tolerance", &ik_cam_shift_tolerance, 0.f, 2.f); - float ik_cam_shift_speed; - CMD4(CCC_Float, "ik_cam_shift_speed", &ik_cam_shift_speed, 0.f, 1.f); - extern BOOL dbg_draw_doors; - CMD4(CCC_Integer, "dbg_draw_doors", &dbg_draw_doors, FALSE, TRUE); - - /* - extern int ik_allign_free_foot; - extern int ik_local_blending; - extern int ik_blend_free_foot; - extern int ik_collide_blend; - CMD4(CCC_Integer, "ik_allign_free_foot" ,&ik_allign_free_foot, 0, 1); - CMD4(CCC_Integer, "ik_local_blending" ,&ik_local_blending, 0, 1); - CMD4(CCC_Integer, "ik_blend_free_foot" ,&ik_blend_free_foot, 0, 1); - CMD4(CCC_Integer, "ik_collide_blend" ,&ik_collide_blend, 0, 1); - */ - extern BOOL dbg_draw_ragdoll_spawn; - CMD4(CCC_Integer, "dbg_draw_ragdoll_spawn", &dbg_draw_ragdoll_spawn, FALSE, TRUE); - extern BOOL debug_step_info; - extern BOOL debug_step_info_load; - CMD4(CCC_Integer, "debug_step_info", &debug_step_info, FALSE, TRUE); - CMD4(CCC_Integer, "debug_step_info_load", &debug_step_info_load, FALSE, TRUE); - extern BOOL debug_character_material_load; - CMD4(CCC_Integer, "debug_character_material_load", &debug_character_material_load, FALSE, TRUE); - extern XRPHYSICS_API BOOL dbg_draw_camera_collision; - CMD4(CCC_Integer, "dbg_draw_camera_collision", &dbg_draw_camera_collision, FALSE, TRUE); - extern XRPHYSICS_API float camera_collision_character_skin_depth; - extern XRPHYSICS_API float camera_collision_character_shift_z; - CMD4(CCC_FloatBlock, "camera_collision_character_shift_z", &camera_collision_character_shift_z, 0.f, 1.f); - CMD4(CCC_FloatBlock, "camera_collision_character_skin_depth", &camera_collision_character_skin_depth, 0.f, 1.f); - extern BOOL dbg_draw_animation_movement_controller; - CMD4(CCC_Integer, "dbg_draw_animation_movement_controller", &dbg_draw_animation_movement_controller, FALSE, TRUE); - - /* - enum - { - dbg_track_obj_blends_bp_0 = 1<< 0, - dbg_track_obj_blends_bp_1 = 1<< 1, - dbg_track_obj_blends_bp_2 = 1<< 2, - dbg_track_obj_blends_bp_3 = 1<< 3, - dbg_track_obj_blends_motion_name = 1<< 4, - dbg_track_obj_blends_time = 1<< 5, - dbg_track_obj_blends_ammount = 1<< 6, - dbg_track_obj_blends_mix_params = 1<< 7, - dbg_track_obj_blends_flags = 1<< 8, - dbg_track_obj_blends_state = 1<< 9, - dbg_track_obj_blends_dump = 1<< 10 - }; - */ - extern Flags32 dbg_track_obj_flags; - CMD3(CCC_Mask, "dbg_track_obj_blends_bp_0", &dbg_track_obj_flags, dbg_track_obj_blends_bp_0); - CMD3(CCC_Mask, "dbg_track_obj_blends_bp_1", &dbg_track_obj_flags, dbg_track_obj_blends_bp_1); - CMD3(CCC_Mask, "dbg_track_obj_blends_bp_2", &dbg_track_obj_flags, dbg_track_obj_blends_bp_2); - CMD3(CCC_Mask, "dbg_track_obj_blends_bp_3", &dbg_track_obj_flags, dbg_track_obj_blends_bp_3); - CMD3(CCC_Mask, "dbg_track_obj_blends_motion_name", &dbg_track_obj_flags, dbg_track_obj_blends_motion_name); - CMD3(CCC_Mask, "dbg_track_obj_blends_time", &dbg_track_obj_flags, dbg_track_obj_blends_time); - - CMD3(CCC_Mask, "dbg_track_obj_blends_ammount", &dbg_track_obj_flags, dbg_track_obj_blends_ammount); - CMD3(CCC_Mask, "dbg_track_obj_blends_mix_params", &dbg_track_obj_flags, dbg_track_obj_blends_mix_params); - CMD3(CCC_Mask, "dbg_track_obj_blends_flags", &dbg_track_obj_flags, dbg_track_obj_blends_flags); - CMD3(CCC_Mask, "dbg_track_obj_blends_state", &dbg_track_obj_flags, dbg_track_obj_blends_state); - CMD3(CCC_Mask, "dbg_track_obj_blends_dump", &dbg_track_obj_flags, dbg_track_obj_blends_dump); - - CMD1(CCC_DbgVar, "dbg_var"); - - extern float dbg_text_height_scale; - CMD4(CCC_FloatBlock, "dbg_text_height_scale", &dbg_text_height_scale, 0.2f, 5.f); + CMD1(CCC_LuaHelp, "lua_help"); + CMD1(CCC_ShowSmartCastStats, "show_smart_cast_stats"); + CMD1(CCC_ClearSmartCastStats, "clear_smart_cast_stats"); + + CMD3(CCC_Mask, "dbg_draw_actor_alive", &dbg_net_Draw_Flags, dbg_draw_actor_alive); + CMD3(CCC_Mask, "dbg_draw_actor_dead", &dbg_net_Draw_Flags, dbg_draw_actor_dead); + CMD3(CCC_Mask, "dbg_draw_customzone", &dbg_net_Draw_Flags, dbg_draw_customzone); + CMD3(CCC_Mask, "dbg_draw_teamzone", &dbg_net_Draw_Flags, dbg_draw_teamzone); + CMD3(CCC_Mask, "dbg_draw_invitem", &dbg_net_Draw_Flags, dbg_draw_invitem); + CMD3(CCC_Mask, "dbg_draw_actor_phys", &dbg_net_Draw_Flags, dbg_draw_actor_phys); + CMD3(CCC_Mask, "dbg_draw_customdetector", &dbg_net_Draw_Flags, dbg_draw_customdetector); + CMD3(CCC_Mask, "dbg_destroy", &dbg_net_Draw_Flags, dbg_destroy); + CMD3(CCC_Mask, "dbg_draw_autopickupbox", &dbg_net_Draw_Flags, dbg_draw_autopickupbox); + CMD3(CCC_Mask, "dbg_draw_rp", &dbg_net_Draw_Flags, dbg_draw_rp); + CMD3(CCC_Mask, "dbg_draw_climbable", &dbg_net_Draw_Flags, dbg_draw_climbable); + CMD3(CCC_Mask, "dbg_draw_skeleton", &dbg_net_Draw_Flags, dbg_draw_skeleton); + + CMD3(CCC_Mask, "dbg_draw_ph_contacts", &ph_dbg_draw_mask, phDbgDrawContacts); + CMD3(CCC_Mask, "dbg_draw_ph_enabled_aabbs", &ph_dbg_draw_mask, phDbgDrawEnabledAABBS); + CMD3(CCC_Mask, "dbg_draw_ph_intersected_tries", &ph_dbg_draw_mask, phDBgDrawIntersectedTries); + CMD3(CCC_Mask, "dbg_draw_ph_saved_tries", &ph_dbg_draw_mask, phDbgDrawSavedTries); + CMD3(CCC_Mask, "dbg_draw_ph_tri_trace", &ph_dbg_draw_mask, phDbgDrawTriTrace); + CMD3(CCC_Mask, "dbg_draw_ph_positive_tries", &ph_dbg_draw_mask, phDBgDrawPositiveTries); + CMD3(CCC_Mask, "dbg_draw_ph_negative_tries", &ph_dbg_draw_mask, phDBgDrawNegativeTries); + CMD3(CCC_Mask, "dbg_draw_ph_tri_test_aabb", &ph_dbg_draw_mask, phDbgDrawTriTestAABB); + CMD3(CCC_Mask, "dbg_draw_ph_tries_changes_sign", &ph_dbg_draw_mask, phDBgDrawTriesChangesSign); + CMD3(CCC_Mask, "dbg_draw_ph_tri_point", &ph_dbg_draw_mask, phDbgDrawTriPoint); + CMD3(CCC_Mask, "dbg_draw_ph_explosion_position", &ph_dbg_draw_mask, phDbgDrawExplosionPos); + CMD3(CCC_Mask, "dbg_draw_ph_statistics", &ph_dbg_draw_mask, phDbgDrawObjectStatistics); + CMD3(CCC_Mask, "dbg_draw_ph_mass_centres", &ph_dbg_draw_mask, phDbgDrawMassCenters); + CMD3(CCC_Mask, "dbg_draw_ph_death_boxes", &ph_dbg_draw_mask, phDbgDrawDeathActivationBox); + CMD3(CCC_Mask, "dbg_draw_ph_hit_app_pos", &ph_dbg_draw_mask, phHitApplicationPoints); + CMD3(CCC_Mask, "dbg_draw_ph_cashed_tries_stats", &ph_dbg_draw_mask, phDbgDrawCashedTriesStat); + CMD3(CCC_Mask, "dbg_draw_ph_car_dynamics", &ph_dbg_draw_mask, phDbgDrawCarDynamics); + CMD3(CCC_Mask, "dbg_draw_ph_car_plots", &ph_dbg_draw_mask, phDbgDrawCarPlots); + CMD3(CCC_Mask, "dbg_ph_ladder", &ph_dbg_draw_mask, phDbgLadder); + CMD3(CCC_Mask, "dbg_draw_ph_explosions", &ph_dbg_draw_mask, phDbgDrawExplosions); + CMD3(CCC_Mask, "dbg_draw_car_plots_all_trans", &ph_dbg_draw_mask, phDbgDrawCarAllTrnsm); + CMD3(CCC_Mask, "dbg_draw_ph_zbuffer_disable", &ph_dbg_draw_mask, phDbgDrawZDisable); + CMD3(CCC_Mask, "dbg_ph_obj_collision_damage", &ph_dbg_draw_mask, phDbgDispObjCollisionDammage); + CMD_RADIOGROUPMASK2("dbg_ph_ai_always_phmove", &ph_dbg_draw_mask, phDbgAlwaysUseAiPhMove, "dbg_ph_ai_never_phmove", &ph_dbg_draw_mask, phDbgNeverUseAiPhMove); + CMD3(CCC_Mask, "dbg_ph_ik", &ph_dbg_draw_mask, phDbgIK); + CMD3(CCC_Mask, "dbg_ph_ik_off", &ph_dbg_draw_mask1, phDbgIKOff); + CMD3(CCC_Mask, "dbg_draw_ph_ik_goal", &ph_dbg_draw_mask, phDbgDrawIKGoal); + CMD3(CCC_Mask, "dbg_ph_ik_limits", &ph_dbg_draw_mask, phDbgIKLimits); + CMD3(CCC_Mask, "dbg_ph_character_control", &ph_dbg_draw_mask, phDbgCharacterControl); + CMD3(CCC_Mask, "dbg_draw_ph_ray_motions", &ph_dbg_draw_mask, phDbgDrawRayMotions); + CMD4(CCC_Float, "dbg_ph_vel_collid_damage_to_display", &dbg_vel_collid_damage_to_display, 0.f, 1000.f); + CMD4(CCC_DbgBullets, "dbg_draw_bullet_hit", &g_bDrawBulletHit, 0, 1); + CMD4(CCC_Integer, "dbg_draw_fb_crosshair", &g_bDrawFirstBulletCrosshair, 0, 1); + CMD1(CCC_DbgPhTrackObj, "dbg_track_obj"); + CMD3(CCC_Mask, "dbg_ph_actor_restriction", &ph_dbg_draw_mask1, ph_m1_DbgActorRestriction); + CMD3(CCC_Mask, "dbg_draw_ph_hit_anims", &ph_dbg_draw_mask1, phDbgHitAnims); + CMD3(CCC_Mask, "dbg_draw_ph_ik_limits", &ph_dbg_draw_mask1, phDbgDrawIKLimits); + CMD3(CCC_Mask, "dbg_draw_ph_ik_predict", &ph_dbg_draw_mask1, phDbgDrawIKPredict); + CMD3(CCC_Mask, "dbg_draw_ph_ik_collision", &ph_dbg_draw_mask1, phDbgDrawIKCollision); + CMD3(CCC_Mask, "dbg_draw_ph_ik_shift_object", &ph_dbg_draw_mask1, phDbgDrawIKSHiftObject); + CMD3(CCC_Mask, "dbg_draw_ph_ik_blending", &ph_dbg_draw_mask1, phDbgDrawIKBlending); + CMD1(CCC_DBGDrawCashedClear, "dbg_ph_cashed_clear"); + extern BOOL dbg_draw_character_bones; + extern BOOL dbg_draw_character_physics; + extern BOOL dbg_draw_character_binds; + extern BOOL dbg_draw_character_physics_pones; + extern BOOL ik_cam_shift; + CMD4(CCC_Integer, "dbg_draw_character_bones", &dbg_draw_character_bones, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_physics", &dbg_draw_character_physics, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_binds", &dbg_draw_character_binds, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_draw_character_physics_pones", &dbg_draw_character_physics_pones, FALSE, TRUE); + + CMD4(CCC_Integer, "ik_cam_shift", &ik_cam_shift, FALSE, TRUE); + + extern float ik_cam_shift_tolerance; + CMD4(CCC_Float, "ik_cam_shift_tolerance", &ik_cam_shift_tolerance, 0.f, 2.f); + float ik_cam_shift_speed; + CMD4(CCC_Float, "ik_cam_shift_speed", &ik_cam_shift_speed, 0.f, 1.f); + extern BOOL dbg_draw_doors; + CMD4(CCC_Integer, "dbg_draw_doors", &dbg_draw_doors, FALSE, TRUE); + + /* + extern int ik_allign_free_foot; + extern int ik_local_blending; + extern int ik_blend_free_foot; + extern int ik_collide_blend; + CMD4(CCC_Integer, "ik_allign_free_foot" ,&ik_allign_free_foot, 0, 1); + CMD4(CCC_Integer, "ik_local_blending" ,&ik_local_blending, 0, 1); + CMD4(CCC_Integer, "ik_blend_free_foot" ,&ik_blend_free_foot, 0, 1); + CMD4(CCC_Integer, "ik_collide_blend" ,&ik_collide_blend, 0, 1); + */ + extern BOOL dbg_draw_ragdoll_spawn; + CMD4(CCC_Integer, "dbg_draw_ragdoll_spawn", &dbg_draw_ragdoll_spawn, FALSE, TRUE); + extern BOOL debug_step_info; + extern BOOL debug_step_info_load; + CMD4(CCC_Integer, "debug_step_info", &debug_step_info, FALSE, TRUE); + CMD4(CCC_Integer, "debug_step_info_load", &debug_step_info_load, FALSE, TRUE); + extern BOOL debug_character_material_load; + CMD4(CCC_Integer, "debug_character_material_load", &debug_character_material_load, FALSE, TRUE); + extern XRPHYSICS_API BOOL dbg_draw_camera_collision; + CMD4(CCC_Integer, "dbg_draw_camera_collision", &dbg_draw_camera_collision, FALSE, TRUE); + extern XRPHYSICS_API float camera_collision_character_skin_depth; + extern XRPHYSICS_API float camera_collision_character_shift_z; + CMD4(CCC_FloatBlock, "camera_collision_character_shift_z", &camera_collision_character_shift_z, 0.f, 1.f); + CMD4(CCC_FloatBlock, "camera_collision_character_skin_depth", &camera_collision_character_skin_depth, 0.f, 1.f); + extern BOOL dbg_draw_animation_movement_controller; + CMD4(CCC_Integer, "dbg_draw_animation_movement_controller", &dbg_draw_animation_movement_controller, FALSE, TRUE); + + /* + enum + { + dbg_track_obj_blends_bp_0 = 1<< 0, + dbg_track_obj_blends_bp_1 = 1<< 1, + dbg_track_obj_blends_bp_2 = 1<< 2, + dbg_track_obj_blends_bp_3 = 1<< 3, + dbg_track_obj_blends_motion_name = 1<< 4, + dbg_track_obj_blends_time = 1<< 5, + dbg_track_obj_blends_ammount = 1<< 6, + dbg_track_obj_blends_mix_params = 1<< 7, + dbg_track_obj_blends_flags = 1<< 8, + dbg_track_obj_blends_state = 1<< 9, + dbg_track_obj_blends_dump = 1<< 10 + }; + */ + extern Flags32 dbg_track_obj_flags; + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_0", &dbg_track_obj_flags, dbg_track_obj_blends_bp_0); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_1", &dbg_track_obj_flags, dbg_track_obj_blends_bp_1); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_2", &dbg_track_obj_flags, dbg_track_obj_blends_bp_2); + CMD3(CCC_Mask, "dbg_track_obj_blends_bp_3", &dbg_track_obj_flags, dbg_track_obj_blends_bp_3); + CMD3(CCC_Mask, "dbg_track_obj_blends_motion_name", &dbg_track_obj_flags, dbg_track_obj_blends_motion_name); + CMD3(CCC_Mask, "dbg_track_obj_blends_time", &dbg_track_obj_flags, dbg_track_obj_blends_time); + + CMD3(CCC_Mask, "dbg_track_obj_blends_ammount", &dbg_track_obj_flags, dbg_track_obj_blends_ammount); + CMD3(CCC_Mask, "dbg_track_obj_blends_mix_params", &dbg_track_obj_flags, dbg_track_obj_blends_mix_params); + CMD3(CCC_Mask, "dbg_track_obj_blends_flags", &dbg_track_obj_flags, dbg_track_obj_blends_flags); + CMD3(CCC_Mask, "dbg_track_obj_blends_state", &dbg_track_obj_flags, dbg_track_obj_blends_state); + CMD3(CCC_Mask, "dbg_track_obj_blends_dump", &dbg_track_obj_flags, dbg_track_obj_blends_dump); + + CMD1(CCC_DbgVar, "dbg_var"); + + extern float dbg_text_height_scale; + CMD4(CCC_FloatBlock, "dbg_text_height_scale", &dbg_text_height_scale, 0.2f, 5.f); #endif #ifdef DEBUG - CMD4(CCC_Integer, "string_table_error_msg", &CStringTable::m_bWriteErrorsToLog, 0, 1); + CMD4(CCC_Integer, "string_table_error_msg", &CStringTable::m_bWriteErrorsToLog, 0, 1); - CMD1(CCC_DumpInfos, "dump_infos"); - CMD1(CCC_DumpTasks, "dump_tasks"); - CMD1(CCC_DumpMap, "dump_map"); - CMD1(CCC_DumpCreatures, "dump_creatures"); + CMD1(CCC_DumpInfos, "dump_infos"); + CMD1(CCC_DumpTasks, "dump_tasks"); + CMD1(CCC_DumpMap, "dump_map"); + CMD1(CCC_DumpCreatures, "dump_creatures"); #endif - CMD3(CCC_Mask, "cl_dynamiccrosshair", &psHUD_Flags, HUD_CROSSHAIR_DYNAMIC); - CMD1(CCC_MainMenu, "main_menu"); + CMD3(CCC_Mask, "cl_dynamiccrosshair", &psHUD_Flags, HUD_CROSSHAIR_DYNAMIC); + CMD1(CCC_MainMenu, "main_menu"); #ifndef MASTER_GOLD - CMD1(CCC_StartTimeSingle, "start_time_single"); - CMD4(CCC_TimeFactorSingle, "time_factor_single", &g_fTimeFactor, 0.f, 1000.0f); + CMD1(CCC_StartTimeSingle, "start_time_single"); + CMD4(CCC_TimeFactorSingle, "time_factor_single", &g_fTimeFactor, 0.f, 1000.0f); #endif // MASTER_GOLD - g_uCommonFlags.zero(); - g_uCommonFlags.set(flAiUseTorchDynamicLights, TRUE); + g_uCommonFlags.zero(); + g_uCommonFlags.set(flAiUseTorchDynamicLights, TRUE); - CMD3(CCC_Mask, "ai_use_torch_dynamic_lights", &g_uCommonFlags, flAiUseTorchDynamicLights); + CMD3(CCC_Mask, "ai_use_torch_dynamic_lights", &g_uCommonFlags, flAiUseTorchDynamicLights); #ifndef MASTER_GOLD - CMD4(CCC_Vector3, "psp_cam_offset", &CCameraLook2::m_cam_offset, Fvector().set(-1000, -1000, -1000), Fvector().set(1000, 1000, 1000)); + CMD4(CCC_Vector3, "psp_cam_offset", &CCameraLook2::m_cam_offset, Fvector().set(-1000, -1000, -1000), Fvector().set(1000, 1000, 1000)); #endif // MASTER_GOLD - CMD1(CCC_GSCheckForUpdates, "check_for_updates"); + CMD1(CCC_GSCheckForUpdates, "check_for_updates"); #ifdef DEBUG - CMD1(CCC_Crash, "crash"); - CMD1(CCC_DumpObjects, "dump_all_objects"); - CMD3(CCC_String, "stalker_death_anim", dbg_stalker_death_anim, 32); - CMD4(CCC_Integer, "death_anim_debug", &death_anim_debug, FALSE, TRUE); - CMD4(CCC_Integer, "death_anim_velocity", &b_death_anim_velocity, FALSE, TRUE); - CMD4(CCC_Integer, "dbg_imotion_draw_velocity", &dbg_imotion_draw_velocity, FALSE, TRUE); - CMD4(CCC_Integer, "dbg_imotion_collide_debug", &dbg_imotion_collide_debug, FALSE, TRUE); - - CMD4(CCC_Integer, "dbg_imotion_draw_skeleton", &dbg_imotion_draw_skeleton, FALSE, TRUE); - CMD4(CCC_Float, "dbg_imotion_draw_velocity_scale", &dbg_imotion_draw_velocity_scale, 0.0001f, 100.0f); - - CMD4(CCC_Integer, "show_wnd_rect_all", &g_show_wnd_rect2, 0, 1); - CMD4(CCC_Integer, "dbg_show_ani_info", &g_ShowAnimationInfo, 0, 1); - CMD4(CCC_Integer, "dbg_dump_physics_step", &ph_console::g_bDebugDumpPhysicsStep, 0, 1); - CMD1(CCC_InvUpgradesHierarchy, "inv_upgrades_hierarchy"); - CMD1(CCC_InvUpgradesCurItem, "inv_upgrades_cur_item"); - CMD4(CCC_Integer, "inv_upgrades_log", &g_upgrades_log, 0, 1); - CMD1(CCC_InvDropAllItems, "inv_drop_all_items"); - - extern BOOL dbg_moving_bones_snd_player; - CMD4(CCC_Integer, "dbg_bones_snd_player", &dbg_moving_bones_snd_player, FALSE, TRUE); + CMD1(CCC_Crash, "crash"); + CMD1(CCC_DumpObjects, "dump_all_objects"); + CMD3(CCC_String, "stalker_death_anim", dbg_stalker_death_anim, 32); + CMD4(CCC_Integer, "death_anim_debug", &death_anim_debug, FALSE, TRUE); + CMD4(CCC_Integer, "death_anim_velocity", &b_death_anim_velocity, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_imotion_draw_velocity", &dbg_imotion_draw_velocity, FALSE, TRUE); + CMD4(CCC_Integer, "dbg_imotion_collide_debug", &dbg_imotion_collide_debug, FALSE, TRUE); + + CMD4(CCC_Integer, "dbg_imotion_draw_skeleton", &dbg_imotion_draw_skeleton, FALSE, TRUE); + CMD4(CCC_Float, "dbg_imotion_draw_velocity_scale", &dbg_imotion_draw_velocity_scale, 0.0001f, 100.0f); + + CMD4(CCC_Integer, "show_wnd_rect_all", &g_show_wnd_rect2, 0, 1); + CMD4(CCC_Integer, "dbg_show_ani_info", &g_ShowAnimationInfo, 0, 1); + CMD4(CCC_Integer, "dbg_dump_physics_step", &ph_console::g_bDebugDumpPhysicsStep, 0, 1); + CMD1(CCC_InvUpgradesHierarchy, "inv_upgrades_hierarchy"); + CMD1(CCC_InvUpgradesCurItem, "inv_upgrades_cur_item"); + CMD4(CCC_Integer, "inv_upgrades_log", &g_upgrades_log, 0, 1); + CMD1(CCC_InvDropAllItems, "inv_drop_all_items"); + + extern BOOL dbg_moving_bones_snd_player; + CMD4(CCC_Integer, "dbg_bones_snd_player", &dbg_moving_bones_snd_player, FALSE, TRUE); #endif - CMD4(CCC_Float, "con_sensitive", &g_console_sensitive, 0.01f, 1.0f); - CMD4(CCC_Integer, "wpn_aim_toggle", &b_toggle_weapon_aim, 0, 1); - // CMD4(CCC_Integer, "hud_old_style", &g_old_style_ui_hud, 0, 1); + CMD4(CCC_Float, "con_sensitive", &g_console_sensitive, 0.01f, 1.0f); + CMD4(CCC_Integer, "wpn_aim_toggle", &b_toggle_weapon_aim, 0, 1); + // CMD4(CCC_Integer, "hud_old_style", &g_old_style_ui_hud, 0, 1); #ifdef DEBUG - CMD4(CCC_Float, "ai_smart_cover_animation_speed_factor", &g_smart_cover_animation_speed_factor, .1f, 10.f); - CMD4(CCC_Float, "air_resistance_epsilon", &air_resistance_epsilon, .0f, 1.f); + CMD4(CCC_Float, "ai_smart_cover_animation_speed_factor", &g_smart_cover_animation_speed_factor, .1f, 10.f); + CMD4(CCC_Float, "air_resistance_epsilon", &air_resistance_epsilon, .0f, 1.f); #endif // #ifdef DEBUG - CMD4(CCC_Integer, "g_sleep_time", &psActorSleepTime, 1, 24); + CMD4(CCC_Integer, "g_sleep_time", &psActorSleepTime, 1, 24); + + CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); - CMD4(CCC_Integer, "ai_use_old_vision", &g_ai_use_old_vision, 0, 1); + CMD4(CCC_Integer, "ai_die_in_anomaly", &g_ai_die_in_anomaly, 0, 1); //Alundaio - CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); + CMD4(CCC_Float, "ai_aim_predict_time", &g_aim_predict_time, 0.f, 10.f); #ifdef DEBUG - //extern BOOL g_use_new_ballistics; - //CMD4(CCC_Integer, "use_new_ballistics", &g_use_new_ballistics, 0, 1); - extern float g_bullet_time_factor; - CMD4(CCC_Float, "g_bullet_time_factor", &g_bullet_time_factor, 0.f, 10.f); + //extern BOOL g_use_new_ballistics; + //CMD4(CCC_Integer, "use_new_ballistics", &g_use_new_ballistics, 0, 1); + extern float g_bullet_time_factor; + CMD4(CCC_Float, "g_bullet_time_factor", &g_bullet_time_factor, 0.f, 10.f); #endif #ifdef DEBUG - extern BOOL g_ai_dbg_sight; - CMD4(CCC_Integer, "ai_dbg_sight", &g_ai_dbg_sight, 0, 1); + extern BOOL g_ai_dbg_sight; + CMD4(CCC_Integer, "ai_dbg_sight", &g_ai_dbg_sight, 0, 1); #endif // #ifdef DEBUG //Alundaio: Scoped outside DEBUG extern BOOL g_ai_aim_use_smooth_aim; CMD4(CCC_Integer, "ai_aim_use_smooth_aim", &g_ai_aim_use_smooth_aim, 0, 1); - extern float g_ai_aim_min_speed; - CMD4(CCC_Float, "ai_aim_min_speed", &g_ai_aim_min_speed, 0.f, 10.f*PI); + extern float g_ai_aim_min_speed; + CMD4(CCC_Float, "ai_aim_min_speed", &g_ai_aim_min_speed, 0.f, 10.f*PI); - extern float g_ai_aim_min_angle; - CMD4(CCC_Float, "ai_aim_min_angle", &g_ai_aim_min_angle, 0.f, 10.f*PI); + extern float g_ai_aim_min_angle; + CMD4(CCC_Float, "ai_aim_min_angle", &g_ai_aim_min_angle, 0.f, 10.f*PI); - extern float g_ai_aim_max_angle; - CMD4(CCC_Float, "ai_aim_max_angle", &g_ai_aim_max_angle, 0.f, 10.f*PI); + extern float g_ai_aim_max_angle; + CMD4(CCC_Float, "ai_aim_max_angle", &g_ai_aim_max_angle, 0.f, 10.f*PI); #ifdef DEBUG - extern BOOL g_debug_doors; - CMD4(CCC_Integer, "ai_debug_doors", &g_debug_doors, 0, 1); + extern BOOL g_debug_doors; + CMD4(CCC_Integer, "ai_debug_doors", &g_debug_doors, 0, 1); #endif // #ifdef DEBUG - *g_last_saved_game = 0; + *g_last_saved_game = 0; - CMD3(CCC_String, "slot_0", g_quick_use_slots[0], 32); - CMD3(CCC_String, "slot_1", g_quick_use_slots[1], 32); - CMD3(CCC_String, "slot_2", g_quick_use_slots[2], 32); - CMD3(CCC_String, "slot_3", g_quick_use_slots[3], 32); + CMD3(CCC_String, "slot_0", g_quick_use_slots[0], 32); + CMD3(CCC_String, "slot_1", g_quick_use_slots[1], 32); + CMD3(CCC_String, "slot_2", g_quick_use_slots[2], 32); + CMD3(CCC_String, "slot_3", g_quick_use_slots[3], 32); - CMD4(CCC_Integer, "keypress_on_start", &g_keypress_on_start, 0, 1); - register_mp_console_commands(); + CMD4(CCC_Integer, "keypress_on_start", &g_keypress_on_start, 0, 1); + register_mp_console_commands(); } \ No newline at end of file diff --git a/src/xrGame/space_restrictor.cpp b/src/xrGame/space_restrictor.cpp index f71bffcaeb8..5f991823d7e 100644 --- a/src/xrGame/space_restrictor.cpp +++ b/src/xrGame/space_restrictor.cpp @@ -19,6 +19,11 @@ # include "debug_renderer.h" #endif +//Alundaio +#include "RadioactiveZone.h" +BOOL g_ai_die_in_anomaly = 0; +//-Alundaio + CSpaceRestrictor::~CSpaceRestrictor () { } @@ -67,7 +72,9 @@ BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) if (!result) return (FALSE); - spatial.type &= ~STYPE_VISIBLEFORAI; + CCustomZone* zone = smart_cast(this); + if (g_ai_die_in_anomaly == 0 || !zone || smart_cast(zone)) + spatial.type &= ~STYPE_VISIBLEFORAI; setEnabled (FALSE); setVisible (FALSE); From a12d8b05bf2537902368c4f42291664baa6bceed Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 1 Jun 2016 19:24:58 -0400 Subject: [PATCH 133/166] = fix third person camera --- src/xrGame/Actor.cpp | 29 ++++++++++++++++++----------- src/xrGame/ActorCameras.cpp | 15 +++++++++------ 2 files changed, 27 insertions(+), 17 deletions(-) diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 12ab339c5f5..8d1055397f5 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -106,21 +106,25 @@ CActor::CActor() : CEntityAlive(), current_ik_cam_shift(0) cameras[eacFirstEye] = xr_new(this); cameras[eacFirstEye]->Load("actor_firsteye_cam"); + //Alundaio -psp always + /* if (strstr(Core.Params, "-psp")) psActorFlags.set(AF_PSP, TRUE); else psActorFlags.set(AF_PSP, FALSE); + */ - if (psActorFlags.test(AF_PSP)) - { + //if (psActorFlags.test(AF_PSP)) + //{ cameras[eacLookAt] = xr_new(this); cameras[eacLookAt]->Load("actor_look_cam_psp"); - } - else - { - cameras[eacLookAt] = xr_new(this); - cameras[eacLookAt]->Load("actor_look_cam"); - } + //} + //else + //{ + // cameras[eacLookAt] = xr_new(this); + // cameras[eacLookAt]->Load("actor_look_cam"); + //} + //-Alundaio cameras[eacFreeLook] = xr_new(this); cameras[eacFreeLook]->Load("actor_free_cam"); cameras[eacFixedLookAt] = xr_new(this); @@ -421,9 +425,12 @@ void CActor::Load(LPCSTR section) m_DangerSnd.create(pSettings->r_string(section, "heavy_danger_snd"), st_Effect, SOUND_TYPE_MONSTER_INJURING); } } - if (psActorFlags.test(AF_PSP)) - cam_Set(eacLookAt); - else + + //Alundaio -psp always + //if (psActorFlags.test(AF_PSP)) + // cam_Set(eacLookAt); + //else + //-Alundaio cam_Set(eacFirstEye); // sheduler diff --git a/src/xrGame/ActorCameras.cpp b/src/xrGame/ActorCameras.cpp index 5365dd464b4..b0a0e0911a7 100644 --- a/src/xrGame/ActorCameras.cpp +++ b/src/xrGame/ActorCameras.cpp @@ -369,13 +369,16 @@ void CActor::cam_Update(float dt, float fFOV) { collide_camera( *cameras[eacFirstEye], _viewport_near, this ); } - if( psActorFlags.test(AF_PSP) ) - { + + //Alundaio -psp always + //if( psActorFlags.test(AF_PSP) ) + //{ Cameras().UpdateFromCamera (C); - }else - { - Cameras().UpdateFromCamera (cameras[eacFirstEye]); - } + //}else + //{ + // Cameras().UpdateFromCamera (cameras[eacFirstEye]); + //} + //-Alundaio fCurAVelocity = vPrevCamDir.sub(cameras[eacFirstEye]->vDirection).magnitude()/Device.fTimeDelta; vPrevCamDir = cameras[eacFirstEye]->vDirection; From 6b1773a4d8c989e9c57b943552d3e591bef023f0 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 2 Jun 2016 19:43:02 -0400 Subject: [PATCH 134/166] + added set_restrictor_type and get_restrictor_type game_object methods ex. anom:set_restrictor_type(4) anom:get_restrictor_type() --[[ eDefaultRestrictorTypeNone = u8(0), eDefaultRestrictorTypeOut = u8(1), eDefaultRestrictorTypeIn = u8(2), eRestrictorTypeNone = u8(3), eRestrictorTypeIn = u8(4), eRestrictorTypeOut = u8(5), --]] --- src/xrGame/script_game_object.h | 2 ++ src/xrGame/script_game_object3.cpp | 19 +++++++++++++++++++ src/xrGame/script_game_object_script3.cpp | 2 ++ src/xrGame/space_restrictor.h | 2 +- 4 files changed, 24 insertions(+), 1 deletion(-) diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index a96656b78a6..80220d223b2 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -822,6 +822,8 @@ class CScriptGameObject { void IterateFeelTouch(luabind::functor functor); u32 GetSpatialType(); void SetSpatialType(u32 sptype); + u8 GetRestrictionType(); + void SetRestrictionType(u8 typ); //Weapon void Weapon_AddonAttach(CScriptGameObject* item); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 6a744d26372..a69a7292a2e 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -1421,5 +1421,24 @@ u32 CScriptGameObject::GetSpatialType() return object().spatial.type; } +u8 CScriptGameObject::GetRestrictionType() +{ + CSpaceRestrictor* restr = smart_cast(&object()); + if (restr) + return restr->m_space_restrictor_type; + + return (-1); +} + +void CScriptGameObject::SetRestrictionType(u8 typ) +{ + CSpaceRestrictor* restr = smart_cast(&object()); + if (restr) + { + restr->m_space_restrictor_type = typ; + if (typ != RestrictionSpace::eRestrictorTypeNone) + Level().space_restriction_manager().register_restrictor(restr, RestrictionSpace::ERestrictorTypes(typ)); + } +} #endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 8a02c01946b..e82ed085100 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -235,6 +235,8 @@ class_ &script_register_game_object2(class_ Date: Tue, 21 Jun 2016 17:17:38 -0400 Subject: [PATCH 135/166] = fixed some warnings by PVS Studio ~ updated splash screen + added lua function call for best_weapon (requires ai_stalker.script with update_best_weapon function. Passes npc,cur_wpn) ~ _mp keybinds to work for _both + added lua function calls for icon drag&drop in actor menu: actor_menu_inventory.CUIActorMenu_OnItemDropped. Passes the item. + added lua function calls for item hover (focus) in actor menu: actor_menu_inventory.CUIActorMenu_OnItemFocusReceive, actor_menu_inventory.CUIActorMenu_OnItemFocusLost and + exported CActorMenu to lua + Now call lua function level_input.script for level_input.on_key_press(key,bind). This allows for overriding engine keybinds like quicksave and quickload to be done in lua * added/change use1_functor and use1_action_functor to added up to 5 custom context menu options. use1_functor must return string or nil. If it's a string then it will be displayed in the context menu on right-click. If it returns nil then option won't appear. use1_action_functor will execute when clicking the option. --- src/Layers/xrRenderPC_R2/r2_rendertarget.cpp | 2 +- src/Layers/xrRenderPC_R3/r3_rendertarget.cpp | 2 +- src/Layers/xrRenderPC_R4/r4_rendertarget.cpp | 2 +- src/utils/xrDXT/dds/tPixel.h | 2 +- src/utils/xrQSlim/src/MxQMetric.cpp | 2 +- src/xrCDB/xrCDB.cpp | 7 +- src/xrCore/LocatorAPI.cpp | 4 + src/xrEngine/splash_xrcs_en.bmp | Bin 402054 -> 402054 bytes src/xrGame/ActorAnimation.cpp | 2 +- src/xrGame/BoneProtections.cpp | 2 +- src/xrGame/DestroyablePhysicsObject.cpp | 2 +- src/xrGame/GameObject.cpp | 6 +- src/xrGame/HairsZone_script.cpp | 8 +- src/xrGame/HudSound.cpp | 3 +- src/xrGame/Level_bullet_manager_firetrace.cpp | 156 ++++++------- src/xrGame/Level_input.cpp | 13 ++ .../basemonster/base_monster_startup.cpp | 4 +- src/xrGame/ai/stalker/ai_stalker_fire.cpp | 19 +- src/xrGame/alife_group_abstract.cpp | 3 +- src/xrGame/alife_online_offline_group.cpp | 3 +- src/xrGame/alife_simulator_script.cpp | 14 ++ src/xrGame/cameralook.cpp | 3 +- src/xrGame/key_binding_registrator_script.cpp | 19 ++ src/xrGame/relation_registry.cpp | 2 +- src/xrGame/script_game_object.h | 4 +- src/xrGame/script_game_object2.cpp | 2 +- .../script_game_object_inventory_owner.cpp | 14 +- src/xrGame/space_restriction.cpp | 2 +- src/xrGame/space_restrictor.cpp | 4 +- src/xrGame/ui/UIActorMenu.h | 13 +- src/xrGame/ui/UIActorMenuInventory.cpp | 72 ++++-- src/xrGame/ui/UIActorMenu_action.cpp | 84 ++++++- src/xrGame/ui/UIActorMenu_script.cpp | 117 ++++++++++ src/xrGame/ui/UICellCustomItems.cpp | 215 +++++++++++++++++- src/xrGame/ui/UICellCustomItems.h | 36 ++- src/xrGame/ui/UIDragDropListEx.cpp | 22 +- src/xrGame/ui/UIDragDropListEx.h | 10 +- src/xrGame/ui_export_script.cpp | 2 + src/xrGame/xr_level_controller.cpp | 44 ++-- src/xrGame/xr_level_controller.h | 20 +- src/xrServerEntities/object_item_script.cpp | 4 +- 41 files changed, 778 insertions(+), 167 deletions(-) diff --git a/src/Layers/xrRenderPC_R2/r2_rendertarget.cpp b/src/Layers/xrRenderPC_R2/r2_rendertarget.cpp index c9596f89ef6..3b8276c5a4e 100644 --- a/src/Layers/xrRenderPC_R2/r2_rendertarget.cpp +++ b/src/Layers/xrRenderPC_R2/r2_rendertarget.cpp @@ -187,7 +187,7 @@ CRenderTarget::CRenderTarget () param_noise_fps = 25.f; param_noise_scale = 1.f; - im_noise_time = 1/100; + im_noise_time = 1/100.0f; //Alundaio ? should be float im_noise_shift_w = 0; im_noise_shift_h = 0; diff --git a/src/Layers/xrRenderPC_R3/r3_rendertarget.cpp b/src/Layers/xrRenderPC_R3/r3_rendertarget.cpp index 076779cbf1d..58f336a0e42 100644 --- a/src/Layers/xrRenderPC_R3/r3_rendertarget.cpp +++ b/src/Layers/xrRenderPC_R3/r3_rendertarget.cpp @@ -286,7 +286,7 @@ CRenderTarget::CRenderTarget () param_noise_fps = 25.f; param_noise_scale = 1.f; - im_noise_time = 1/100; + im_noise_time = 1/100.0f; //Alundaio should be float? im_noise_shift_w = 0; im_noise_shift_h = 0; diff --git a/src/Layers/xrRenderPC_R4/r4_rendertarget.cpp b/src/Layers/xrRenderPC_R4/r4_rendertarget.cpp index 69314116026..2b00358471b 100644 --- a/src/Layers/xrRenderPC_R4/r4_rendertarget.cpp +++ b/src/Layers/xrRenderPC_R4/r4_rendertarget.cpp @@ -288,7 +288,7 @@ CRenderTarget::CRenderTarget () param_noise_fps = 25.f; param_noise_scale = 1.f; - im_noise_time = 1/100; + im_noise_time = 1/100.0f; //Alundaio should be float? im_noise_shift_w = 0; im_noise_shift_h = 0; diff --git a/src/utils/xrDXT/dds/tPixel.h b/src/utils/xrDXT/dds/tPixel.h index e99909ed63b..17135f2d583 100644 --- a/src/utils/xrDXT/dds/tPixel.h +++ b/src/utils/xrDXT/dds/tPixel.h @@ -1089,7 +1089,7 @@ class RGBAMipMappedCubeMap size_t width() const { - return cubeFaces[0].height(); + return cubeFaces[0].width(); } void clear() diff --git a/src/utils/xrQSlim/src/MxQMetric.cpp b/src/utils/xrQSlim/src/MxQMetric.cpp index b89089f0336..d8cb2b45b9c 100644 --- a/src/utils/xrQSlim/src/MxQMetric.cpp +++ b/src/utils/xrQSlim/src/MxQMetric.cpp @@ -73,7 +73,7 @@ MxMatrix& MxQuadric::homogeneous(MxMatrix& H) const unsigned int i, j; - for(i=0; i

    1TdNoHJp*aiIa*i-km}9DQD&CSRoF_#$NrqN$U$)>9USTu~YqsUB9m1j{Wp^883 z;TtzG0>tM{d=wjgrp5!*GR$79o^-Dc@d!Ta{R9hC}aFCH$og6wDPQ#-w(-?9FdV|CYDp}+osEU}XU`(2C3KAa3tUcN-dzc->^Otpt4~9O9mei;f!LIMhXtgcT27>U2&a zGN*2x#498r12E;b-VB$(1WrDu~w3oH+*GXa1M8X@#j4Rglt1f}kDFQ1bOm z6=`P8SgavxqIh=D3`R90(fkqTp%_e5B|Rs7gxAIVlcY8RC$%J70hd%TROZ0dd4?bEYodjjld3EF?)n2wfiS3U)_6@)FTfg-}sP&Ui zf9~zS{_DT~?ce_GulqV|Aqn6G-k*E_7yjsf{?C8>(T{xivB$o$TqeQ?;rS7sSx9P# zFvAG@mtSh3qQNc7=rlT4g83z?vscx)LRo9H*=ipcgKL-=DB+IQIg~o|9MZu$jtHPy z065zKJ+8R`EZANI(gnz~1H0k2UCpyjdDCHy@^g_!V=7WeRnMH^qUO2sn*5`T9d`~s z2Dag}=4=Jj=@Se{qmTxjq&$iFb389T1Fv6jM7pj=Q8b^=_xAQXy*?3$*xFP51i&!p z6k$Ej0onK(@^&=*;S7dcpjidqh}Jq>l+t7uWnt&oFUf3;6l58}g z5hw9E;|57QicG(!NBFMa_^O{EPkalQokk!17+;m;$JKw5)BRjywqHe@D1b&}=H zR;$RtlVoOOmfhDYytSz5BuC@W%y&bji|bfIcO*bA^|PG{wE%X8Mh?ZkBE7eyv;m?9 z4;+5Un%SXB%O7qU(Li^@FiqM$yu8x>V(g^!nesLdwjpXXkAR=vrUvfiY8xlyF5Zds zn`8s8;hjZ4A5I-k>v?nx1v_=C$E`;q@ovCCTu@4xv#bmnu$@Hr#$pyCT#? zs0umU7|l^F)!*6UM3TxNRR`FS2T6G>jk&3l(;WtVJs!7G+#|=N0G#oTKi#D%ww=w8 z<?gT;kmBhp7Qp)_^EIwqUU5n)n$NR~l@jV=Nn>~RkCq}NJNz;-aS zq<WEA>Nmt~l_Y+JZiYvsI`%kR2=MLj>}*IMy}VB=y+N?Z zyDQ&L!T5TelQu-kyVjuLY`DsZETIUz9}O2;8%P3Lp-M;Qc%HkJN=^hf2E%dXiea|S zrML#`Bd)CV=Caf@d~R&d$qIt@Z$2hu-chPji2C)%LHj?G`h6N39kU;IV0#f!AH4m^ z|M`VO>)&b5r=R}SzjtgeKENOU@gM*6PrdK4N586ECie<$b>v{L#ck>x=v+eZqsF_6 zJ!e!EFz;PX_ivC!M}Vh9a|Cs2|FXGwz!={2=J!Dn|o>)!?}dnh65pb7r5ph z)3khHe;xw&h+6SqB5%7+t3I@6_`KCkke}F_eTo-kTLud%UjSs3>ck8U9fSH-c7dxE zWRqkcx><_a@~7}Do+9T)-WZqgkIQ&9!)2o)t@DXcmbR zh{me~n-DJ>ME^3fs>$h+i0 zGQyHP=7G>4q$fH-6VC7=qEdpRI(aJ2&jtVG zlA(JzD2*AiD&S9OBm_=Px~}8{fv8M@dikx0z^TTq=y-id`B!4%H*Cu3)=hKo1<>@;4P-b=;^853Plbg#cTam(I z|0u<1(pG~bg``UA#884G95VaE0ocwM3QLx&WHs96p6B~E=@FJm4V^}%QfEU6%k-Tw zaLbw1jLb%zYqqgafOH~?X81#0Q#Vm@_gh|1^(fe%9p1ct_4ch~&~uVFXvY>7i^Eae z?TY-*i)%vKqZRMa8eXwdy47g$fC^AON|XKo_QuPy;qKnn{$g{F9)%aQY%AQkL{c&w zW5tu!?ZD~`gn7d{l86^CVhpvgIc|}h#|(Alu*af1$l-r|iG<48bHJuG2yjzXV6JxDFL`e8c8QA6qj zr$;e1nszLVbp~0|1eA*8wG86fm{0d4V{+=8;ZOKFU|eb?6tetuuu5p?yjCMIgv*lw zheiw!uxsI%0h&<&dJtBhccFix=&dTmLK3={Q7)5xQk%zb5k5b*(}cA0?5ZAS+M=^?Qj2Y58Dfb|M&m?li&aSKal4m_^o8Ag`H;HRg*rpQAolz znw0*{6;~Rqw&*E?DV*KYx)-TQH%8Z$bl0BW@9jMTX#jcwnSz>m&Xfbq5kcD0G7Wsd zNN@|P7w^Fl&%5sdc3?gtXk=!{pX55S5~F(nMiD>rDAzj+ugNXI%->AjrB4&C^1w2B zbtZ3=mN-a095I_B7Ly+=WysP?5fWay zVoBgF7MfL!B!x_}az=|;IX|^{`&a0097xL~uzkI7Q?DN%tE2z(%xM{=B6h6QkFQF~ zg8)8HdGLbL4(}+>_3}qw{>UT9cV!_%s2gJBUaq5#7PsfsGU`@-Ct3qZl@rPw#t6x( zi;P*k#ej4uDF!#q&_|PD6ow4c47TVA(Z@oRtu_7gB#6l%TR69fn-&)I;(pdbRf5wC zT`KxSwl$+$ZN*}Xr?tzJ?74W?_v>gsyv*&+aCj42&hchASdjDeqSy*a`%+g5%iTc( zQ$sdS6L2gd#j3YMBrNUcP&Xk*ar~%_HIQis&c*AO>~23??78zjN`a_HW5lGg6)Si! zmQHhYQz8zRb4+1?))}xtQ!|Ls5ISUI!-N7l!eRz@W`K<6AiUr$ja(sZs1ec(JMKp# zdfm>#ZHk+=lKECN-%ci5*sU9F{3N016O0_?bGmJ0jnrIFMv9%C*a&3vm~QNg3*qb{ zZtW_{e5^0sRE=;m;J9Pe+mKo<4Rdd)OIkt2BpDFu3aPZ>-RX!*@0BXa0?2l+-9Z<_ z5DX{7&P4CXBZW=fpdbag)H2ao9DKRu;Bp?8byD_;$gzmwm2iVTp7;}L^djj&!axqd z)im5}y)JxXaqUopBD&;ymGhr@v5YNTo$4~=2y<-z;4)OsIhi7#SmYK-GLlIBB3aK| zK2{HImCjt1d(Pf>oThwUY=77CE&hHto-J;NvHAOYqYr)PgD0__0I%6u&}fNz4VXh{ zRfgS)k!jiGW_uf>NPqW%R=j0&_O03d{^kQ}=aRGekYIZr&4OYQpL2LXV^Ux`Ejp;e z?7G3{h;sm5_F-ob8{mcgrplgvKsB54YCLRr$fd}Ox$$> z`m|zT2sq$W2`x}W>^ucz1l4&Sug}7#gUdt=V@HTs=3aY*SOrTZTHVpxH0Vy+Ll~;l z3$5|!k=mW_4|lJ1CY%PJv!H40Om^VO{j^V#j8YNX3os0Umi(OkN~K(2S>*&hb^o1z z<^x$iK7sN~7LMl#ckcNQbI%f`U-;XB?eBf>dtdneFJw=xd3vn5^I6o=0`GORS5^=N z;6wZgQsuZ2@L+clCo#dmPO zgeY_(=dvg6Vag4mRc+KszleB^83wG(X}`@K&;FFqe*yHM^YcV-5W%XNwm#_jT>K95x9Rj>Nz z3~(o3>cgLl?UZAnhpE~W!lc+tkt`!p!toC&UB#YYNJ!bEJ-VjTk$Lvw*5ICIcG=r` zgbGtY6eSqzPGakP$Rvdq=!WO zd1Q-#LKq%y;Znpdl`s!lhIHro4XJV>dPHK4kdm;0E_(>2b8?=s18j$8Zz8BZPV9n} z1V)7J)S?FM0pfPQGe!WJ^d^oQ+aBWB)63%W1HG+F-Pu8Byo2%MsfWF|hX=8U2Oyn_a~igm_=BMa$qVfX>}}eEI^AA88W>5c1@y3; z^mjJ(7!MzD4AWD3Bn=y+GUGl{nQSyk`@{L(?tk}>AN{JYdc|nmx7q^}J*3Z@+PWW! zmL6cohDFEQIRK(jKhk>?{4D1H2zAZO3j`O}A=Hl)EDxu|13XG34~{ZVM0~;%X^@Hy z0<9UPzKI?uG#9aK42Y81wl_KOVBq_6J*Faw)anq|%3v^IpurD^zIbHo`M~%dAmeO> zR4&h3(TGCYW`Hd}-kvfz%&W_vJ z^833D8pqVB&WIpk!4MXvs8Ez7p1dHS;sYfF*p3m!@mqv1C~hy!4ddF^ecj`~@$0|- zNB`+R{o1en+LwOm>vDK60CS0-d(Y0vJWt&I@sIy@f$9MJa^;? zpD(uO8pz2>ct3^hHE(8&uEx`gtz^>}UT17_vNqta@Jxyo!}L-i28VZjS2FL zJC~r^o9$<_Lk5V1neuQm8g2%?Mc79M$=pzu+qZ8Q8*W>kZl`3fWqC=y6x+q^m;9qI zIr-Gx3)1Ufuu@TcfDu1 zKAA6{_`g5F`n$jVyUX?6KlbjgK3-n)Rj(=5lV6Ze%NOBW6zd}o3!igzd(7=DPoClz zC|<94k>zhfx>@lSO0=Lecr}fc0QDcxW1d8qM zfUa|1H?!NFus=*lkCJslu!Q5TlW1YvOnP)IqT5|G>ZgOuPU0xbAPsc%`)Q<8e%l$+ zAgSfS-o!NWV1h}y-AmejD#k%58zm8MIu$Ioz;K+zVALVQTNV(iW1No41@o3h6CxX0 zn=_W69b!-%Cu#~CFy1w!$d*r=JP1q|V|n_6Fb{P?Z?s9%RSX`3$*xO}7{$=SVJo1z zYO5JdjA*17NnMYu_88cgS_3acUQ3M4HA0Ulq8;7>;-y?edWx8#N=|@msibx2fr#l7 zY13Sa56%EvN8wn@iOOi{ri10F^V=p%rC9Zq*R zPUDP$;?7DIsyh^UOvRv$ED1HPbq=?Xs)UQHtLO_xG7;ORg4lRsHP>+k>m@4xqd{WsIe7oQ;8LHN%T+kgM}|6>?FwuJPP8^HT>NALd? zupMF~nBpSh_jdGjVRZLUL1RKfp+Q9@X(iL%s!1cT&CdQq`ux%4+N=D-N3rrK!s8;w z&dG2&I56#`#wfZ+DF%iU&U0vTpgt-rf|G%d#r=AtiK@-u99yG)O@i|^cFU8lG7I2f z6TYLeM%0a?h!oPI(-VcZ%SnJBYB}H3lrIFEIe8Tbz-Ut$xKCkb^ruZJzmmvU`1ccrUVcrP(66`OE|PR<_vFgSfYO zNL^|=-sbwnVh|$&{QXYtshU2TcE$Ld$;-)oPGbA*`;JD0Vu#1R__5_$;25_j17jc& zR6qG@r?!`))e_rZ^1w@$>%$K|T6bL%1t6;w>#*1dA(7|IcmEJ`b;NxSEtaGBuc5kTt{;31{HkWXuWa z7HW4gr!#PRROJsBSFT!Vn|PQSZA$r!F!i%hG8%yVZnqnE+jfd^Pz113nQZvBfflHf zx@p>QunwahL?<98VG5ms=Q*?tR1A!|Oc*U{izw*z zyooup2TQ{b(m||_lNbsm!t7N9?K=8Q6>O)-4%I2#3#=%b1}3^tpTzKD<0D)W`BPf+ zK*Fd9Bpxr=&Z^|dcK`4*gnK<7C+o@$H8V5sw6pl{K!sd&bEbydD zPXPwpy3uVoLx4r~CpE53j6@1S0++qmQ!t(&z$CeJWCN3bx4)sMWvACjptHWvMb!*uk*Mar&=>mu;rT_}{v0oS zS8Ok$_vN!5{h~*S*q{0HWserX&TWC}AiTuyZtq0=KmKk*D zBf=|VMz(>An(jyqp-R0&3;ivzQ_FM&t2tSlxEw>stbxI+xGj>(rX!)!#3KkV8n|?H zyns1$s5GLbFB?6os0}BA?;(VE`sok7`qkf@!~5rh?SJ@(f4EpM!N2ru*nau)*PMLEQ``UW*p6@5 zIw88#=eYbsE*KoaE=rM(YQo-&1}0Y;e&L^i%Xt+Q98H|XYQ9b1=dv^m&8ptCLW(Vz zvHgX=%kmX4M_q3Jx3%$X*bclu_ZI=!+2M%3$wPO5{r0_|Gy8b%S2*?PNo*&t%*772 zqn1HSzuc41z1Ys%uh=TaN9`F&B8XhlrZsEGkPWtPDA-yi*s!SWtwu6e;wh_ipiV}1 zf77D0KknH*Db>VG!0ga%syn-I1;q=stF0hHor|jgf_AsvK_^KwyQXcaj%~#;ebLQ; zh`X(r23<;tuE~eOrC$CfW2apR778vdAe1K6Ww1~c3gY699<|Bj(w`bPFg*ycq~OE&Sw9?-LZulivK+Ke z4c>r~C^DdU;t`x zEtGS@YCTak6y3)sIhr@J?)}B=hmd-}-AG z|M*}1)nAJ~YTdqrP^VB}4{v$FFFXVfje3#`1X5-}j#rCahax6~1CNRESPwrp* zw%q>i@BQxk|F`!)@f}aF@tUuA&B=Y9V;j1jM?d|?pZ?f~KX!6AOlWIZJv2$rp#Z63 z=!Y5RTJAe^a<`M)OX%j#0^7ORQA4fkI3s<|LVc6w7-nyMYc$#iGiaO@hjw2q_4 zsVZXigd)?RlbJZB`!TS_HzJP3RgxCi>_!b5!6jrnj0SyQ2(5``DG|+eGH#`+V3i2^ z5d=fdP(dJ;JN4XZK(iPRNT8CAY0q~NKVp_k-}Z)qc|sGT0F>}FMWO>>RYh`!fk4}e z)9!RkeH?DAgx0K07mo<~UyB>0o^)}xqzx0IVtmr@Fy=GMjKDN85ChxA5Qd(ZsABjr zDU_i01eZLHOQR``!t>85q6IuiF-tW)P<^$oLak%LA?aO8Q(-=Fa?YiXP(%2)OV0wD zDc`N{lDIb4jJlIGEOORcc89bnzVs7mzQ!_J5#&}XxoSNoLG^N zb3?p?z^se`5A@Y~t$KXy!&BJ)$xnXjqaXdqpa1!vFTr!U@q54bA7AyVZ$<|B+Sh)^ zoe2Ng&wlnde&aXZ``({e?$5@t(+m3cXU(PJ4|D(hUzf-2cZTlVbLqhczv<*_p4vXf zb}5oN`Ovdqdm)nH7C9dkNlQzaT!0A3 zdzs6e+~+NCdJF4QKl{`-zu}v&U%SpNG%V{$Z2$3mflXaL@eOZy!&4u4id%58xU=0s zv_RDc*&MO7rI3fg8iX$%EpQ1|`3%V>Z7r(rC^e0a& z#XXzbn?LydKghQzmXj~V_IrNpJ)AbhvOIQ6p8P%UdFIh~z3W}YbG06VC|O?l%2zI* z0@4>Xl#mO4iqY&1+fT|Ni&$EDrJV zrIs7KDZmb@^QLSp?=Lor1Iq34@D=wjvHe@WZ^Z&z9nzlh`hEbLhD%hzwFlh)+2wzxUC`H((1&?mRN{TJ8#31u== zXJBYwOSUS~h@@?FHnsK^s}gN0?HwhWsp+EC-8KgM+3v+`XP@5IPJi0j+_loKRP;n` zyEDWPtl=Qoi!n#VqlUumGRkm?MVr`2`dOETt?Xd~FCsPBNT?$UYXOtw6 z9pbD`MQ0fwBFdu0ut<0n-0fYQ=jm|Z(jgtKJ656)^-T&+-4N!45rh0G0|kN>%DOs} zQExt`j~)h-TpcxwZsxS@rk3A@e(|%O9$|x%Ap1wXpP^KtTfo|4;Hu`bH_V;L+Ce6~dpCD|d>65Vh5$TxB3=B7LNu zj>-gisk?D9v_7Hp3-Wcv={wnuWKKP@s1r42(zHzyr0HZZ-Ye%FgsZ>RQSftY+ zS_la=1rnmQbb%I13)K{qR6rLJ1yTtifhZvm%cvWAM%^<&PeXHhX8Oa-Y0jDc&>#4q z`CWVNFDyJFvr+~0X-hknFU)OobF=@u?|<+8U!Z^r5NL8|viOwE(eGXku>DAL;AXb^ zlTUs;l{yeSoV*Ayrc#HW{G>egW0R_yq*oqc`_1!G(eM4($9NwF#!sD}efE?S=~KKa zYzNq10o%X!wLjIT2(TT9<6a$`)GM#C9bm_LXNxelGw%M=um35t!giL-3fsf1EFi$? z@Rw-kwJ)}uZJmp=d5&jai%L3KT|{*gx>QK+T1 z1lYL-fc?Gy?7eCYnjW}Ksp}ebnsZh$mT$%i3-QttRbtf!Ea^1>b~S5krxC_>eaFCf zwWGrJ@VC$h?|KjOi=Tc` z&!D=VKJn2{FzYK<4X_=%UCkgo5l7(-)DOzJ`0nBLs{PE*KcgBN;qxu3uaTRFsa`0}Ttk$}_bWqy8ob7F97SGo% zJ?!t?YcF25dgqd@Jt;WoH0G^lvNT9SzgL%$-bxe}5=F*q-DG(gH@ZWmp~gn8xl&)= zu5axZ2Ah?wgN-Y9VJZ_jL(m`*gQPM^wd+C~)h{XzK-Z(vFdIn`k%EDZ*gJ>^u!G*1 z!I;^k9pSI!F%~UfAzxgc#-cJghj*&6Ma@P~Oh<7y9V!U{kYuvP3~Hf8O#LEJWODxPXD5@U51=!Dw-&el&L5hB^8|!Vr4m1qX!&L znCk$$iZ)T$u1xn^W4qc}^;4Mcql1YdeG6A&0`xo*X*D|dgt9RDw>}LCyyuno*sfo%)EWea# z?xq{NR%bum*h#l`v&|j5y+e>BAfIV&X0YMwtMMF_@&-&toT`4jM}n7p}B%po#{<7ZGy zhC-p*9ojWHiXI{#M=4m}D%Rt9>aEn0Bv}yTnU|`6Xt|SG%P;{RDM@f9BM#I%F^M5P zFo{WeCWt*L!RiDJlO;Z#Oj3T0`csTI*d1V}O|%RF?em0g!oc7!5Ep>B2IzDcjfjGu zF=rS#Bar+#$g2L;*=qC(|-siih{_5*cj7a2Gd{sTxDI; z9q4TujmGNAYQ04YTLDoEo<<_t^{1R25PRp3y;FmX>SaFhiBAB+ci(-)DqwJeOJL5E zPd=%3$9j=!jIf0ev$;BCd%Vz1RR*NlstrIYI)WERlM2j!`om8%>yC^qHD-R}-+n{w z$k$|gXv@u88MQ%A}c`qv(Kul{j2}*SL{1x*z>76?@4UG|N8y>SVsps-bxZQ=s*=0(ep%LMzXY?sco3eZK2{@I~fqZvzKjdqj8sQZqlD73tf(5HrLCmSDJfw*zMKw!e*(9 zk=Y{6o=S6oe6G1Df$NMYkp?vjl#{^438xLf;=3f`L_~ct;E{hMS_TR|5Rf6s6qq8Q z5yKnfTs8n3$<9cSnu@86r&4OKVCRFDWH~|6*B96L6QTwthYV0ugo0?vyi^s*Is~`F zJ14zjJXbMm3+WOrNQzHoD2h#V4I(z_GGh(IWD3ZL#WFcrN!3Uc14wtJT!`ra>>|5_ z4NQz0k&QuCDLMlbwW6@*EK%zeheCoTk500OpA?fGnh2FVh8tv;h(tU-f;0(M$m~1h zu?km125XYowo|a3pRCy1ZY-Z~49=D5Jt^8-=(@Gl%Hmm)XP5Tx9_(GKE}koNwkQeF zT));>z65oTR>K?_RigYXdcVNBK)W=C1Nl)5 zLqi=%s&!1=3%r-h_kQkke=vG8j{Xl}`*TNYZ_>i4`qE3k^TZQBspen)<UMBrk zDs1OMPhvZExZ12*tu8GtE)A9u;Gp(I7~8=s1?+064-2j;Y-g!g0_;oxyT*3xA`!EV zz~p11WDxp}=bA}Gxl2PM8Ek+24UYrwECHG8cMh>sA5%3nT%W}D|Mp*xjU6<$gX&`k z(SM$b?UcG!8-%f4?{X5`xdRGgxi(GgfRGyA)xKlcuKI=R_gz=;uKNXjA{rd_zx==d zg&AOH`K@BR{#j{Yke{T}yGu(Rv9G0}=a<{gugnjp`$v5-I&_~=I!fl%)vNj=)ku_A zpw`XCHuib4yqYEpwZ4aWpRR96N6&}fP{gNN6eoBQn*LSHl@x-27aSLNnFIwVY91f7mHKCE45cv z1dyoR1;x%da_g`$NOEuqNOr)bh+;uHxZFotf0Q_Hx6 zQiD_pw;ZwC6JWl?Iq)s;ED#gKFoc6}GzcZWCf|DOr{PcdRm&%)y>C|rrG@S4;$FVK zns2Sv1_#~s3rjoK)-T*&?rhXnE_HXWx3{i$cOOh5Wrl7r9yih05rHUXh#8WtLV9%N zlXm-)PkuC&!eg~$Oh0VIe#VG@$e4eV)Sd&|MI{W=9c&LtLC$@TF#!p`b@Aex@VADM zG{AOj``wRx_?59;?fCzVrtooY(f&up_P_q?|Lf65-w}w(fbGX7P@Ngejiq)<9^1k& zl-(`{;op5zV>{nPp$$vD{i)clUw^e3jPAn1!sg~CeyC^~YX_~@9in#oZgg_j!JU;K?1 z)p{;~?gr!p+cDiWE^)zX=m3!z;eygOhCLQ9 zfiZ9$QNn2?pA-!lkIiUf^g=5Ei8zHZU?8qxV~`gUASLwC$~lE1+DZug68DaIoC@kF zf$G%o3f>D#ER&2&h7^^OkaI^X%xX{pt%ut;=~dH|R&Os*&)W5Ug4-Pmg;bi^z<&y{ zuaH~@u*5Es-%TnL4%WDY#NheB*-FJ&sCBv$EOw#R*^FUD5>z*#)(KH&hyf?h2J}}1 z?IZU_osJ+W6S49NTkdX`2bYGT(k$*V^6 z$Bp>U8u5=BvG<+8c16pmx=W*)dNYq0XZBL5i%&lJOz5Qp*ah1^eB0Qr_r1-=2;1dE zx4FyhY{tmt$tRyqr8q43HpG+BO_To>wu9c-?Rx#<)h8PJHwx=F)S3@G^#T3*W3H=} zoc$!W!$JUMe5CDmfIUpeux~DxTU}k<+}z4h{Kc)KUW@xo9h3K6S?pm>hL3I&+o|I` zF-?ij^yCa>Bho)p8k1>O3`rExph zu5KW^E09-Tgr!=qOn2^>ULS5Ki(SEcczw8y9Hw~v%wY`VYaS-oTPC})X*SQBy^D$Z zR;;ud%~2M-Np4!Qv=(<;W}DhELl3puo@KJKk|+;EK#UOU${I6zR;0$)7FMa5(i?1) zdn@JcO2)4vMiGI5$>itF9N385C~-0vzy#8x(=I_TQr_AWY64D%NN=)D^Y|_adW0}{ zF~y?-j2o2@PS{Z+5g_gnp3rH)j4vDK<|JEcY)xdX4!PT{~Zsod(v zZJ&^sVIAI-U^{t9;yVb28-eN=;o(wYa^{#386f{O5SM1S!536S zz3S8$o}ed;T9dxRx{+WY(cNq=pDT8@nrjya=kD3NcH{E>uUk8J7whxgUB7?9sc&_6 z?r&{AP+z&b(B9?DAUUQTHN&MIF|p7Iln@x-SXAa39l5Nq{m=gFe?K^QgYqYeif{bG zM*JfIwm&T(KaZ|2cKd0xOk{-Zk+&Q3Z!sp}b+_yFhk#sO>XF^P^ZfHK@#jCr6vlSi zqxoOI{PHd4fA#XqWAoQ>F6cQJxj^9KUB%yeY>H)vrY!FxFC*qw*y3uR|E}u(W96OK zseSObDmNTUutmj7(>RIkh)1cL1LpAlGLdG^pg^(E>S$g*e|UI!`Hs6xk7V#RVP*`$ z)JI@DaH=REjjMcg{{#1vPX)s`%Uk@?6+-u<3;GYU{E#bTdLo|!^YEGf0UQu(Rb z1l7c%c0p}`ZlNZhb;eC@aM4@3;;-K0uiT|J`#R2%zx(D#Kk`wH|7?scO_Dxf$nq^e z@D{ZtH-U+-{Fz_-jGCVbP3jI1vcl2SmKs;7siBVW{BzH%JN7sK@o&@`mN+-{GsZzw zyuDh(ar8mhlD0bX2R|fy+Ff_w#Sf}~7Zn4~-5bga1e=EAD%HMPd_WriO(X^Ml|1!< zr?~CRVZQzP-PgH7glbsoEomH{KZIh!Q$zca*FBo*vOy-A zTB*AUyVy(Q$X8lPwJv14=LltomVtFomDV9=QmuWvcc6B8^Y_15HFEt!ysK7s&umhG zbTd_2N|yRDx0!FFzSU1rRpvs3DW~S!C@Bshk=b&FYG#=Rsa(c2I87%MiQDLiEPRdn_mjyxzxY&skKOrB+Piq z8PuCCD##%GPNWJDN-!j4UUT&>s?=V+0|}F*08@Rz?V%gL<93$Os6+$DuQqDUMzhnd z^}24MWEIP)ToI=#_HI0bf_)r59A_`~Hf8Ea9SJU;2pkl8<7Aa$fm0X}TN$w(h7|<= zFybKPL}*~s4K7s&R~8Q*?(N=JU%S*;zgS+}ArOeD9xyxzqatC7tBnNJ zWl7paz#%a@I95>a&O5&=uugf?`^MyD1CjPHw&OMxY=@Rn*bXg&-F}>wi3FAPBJVIF zKWfZ!Qk}@?e(ko57PLvKl{srgYVa834|Xhld9&eAXRou{_$jF zJCQRu-I$Mu%}neXvyVtk?a-7it)`1Zv{$GOAZTna?L1o9dwuJ|clYo4LA?_+tb+F; z8U+7o4AGnEyP>fiR9CJ#z0Jnv=AC!mU0K+HDnahUDlH)LsXhf&wBJ@E10TKP$KC<9 z>$pm_F~E*H6@1Xx4q-SwFFFQ9&Wq+ulJZPZbVan0OxJS~+pX@tvvA(+U+@+$t0OCH zX9>KkH459m{;$6ds;imxL?^1d!MFZT|L1>VmaiX*Q6an>WIh$!=MqEU(%Am{zxVs< zTr6J&w(|?Jzv`S94b--%gOgi2C*GEetnr9HEAU^Vu#o%5O6wzGUC(>nOW^2o8z`bwL$TYWd{j;UTZLhnEB5rN%tlwGl+UqXbEY&3<#vMvUBP^En zQ-mGbWq1{-^9H1&k_X)kXP%V|Ca~SiSFq>7ZI-fLoTP}ci%E~Y4UA)l;{&4PB8o0p zyda%FUYi;b?GFL-{*FQ7nH&bl11n8~_@a*YhrDuuS&NS!y__OitAbl0uUT5+&m z>MtWYkD8fNse8?qQ?9yXT@`C&KP6osFY0`fB7+Xfj&SS*J>tnCE08dD0CScC(>PTL zbfMrirB9IjA`yu~tFj|Q63UtfRWVR`lJHI&ridOb2G~lONFmx${H5j?)w0MMMkHkT zlZ5`G7ppDo)fRRsPF$q2?7{Vo%MUK>-BVk?(%ZeGv30qze|LTBn!m6^H^(4?tD@)v zr^R$fo;!h-f7VK*iKRzX4Oew?bZo))U~W%OwFTQ}ULRolhmPP~P+ehrm~tOQ%Se5_ zkm;`AJ@RA5G*L7R^nh7t4K?rHd+*zBE&Qb+?iCvZPdxhQPX^&JqvKDUHKs2F^Pw@V z=JUoh^Fc75Gp3o@hI!wZ-ZQ3mgL%i8-j?|cAis1J5;;l0=i|oAw~ua=;r6f8mM?DH z`FgzuR0kOpIIyyF>3f?8kCoT&Ev??Cx1sU(!FCW{9}20rQoT2yDW@vy6hVvG*h{*P zHk8p0LXKfOyT2l~lQmB9P((#A*O9iEP5NkDPSED+trC!{yni>T>#5lU^{0K&<<>JwY@sKzJ5MZ zK}~9#@VMY+*shKMXuqPE3c}k9t;2NlAl2AO6qfAnerfHl;`%+Mjl1i+SE`%myBF>g2WxLX z*V(aZ%ekdJzqgt1?NpYw+e=&2v?X4V>bp<}Ko7JAOgpLq)S*MenF@52PsftaIzFiE zQNl^AcZe74^9ry@c@ERbqeozQMPz%SYm#0w<5h@|bWvY-^TleDij9pbfs{Esq4;6( ztI}(bScKvn;W`d#?G*|?HL7b{rQR|cbYv%yvgFkfB1TP@?9?*VYJ)^1{F^v;DXk@i zPjKK$WIGY##6SjNkWvT_w{IXXK(%W^UtDTJWh|)*hPD8vxrhk_F+cHyO>IL8BE-l( zOYkd1=VuAgq~slH0Enxr1O$DDb;EQDz4e2ooy&_mSDLHmYfF3WtxL6y!}`v>rS-dV zy?ya~xs_~jfpg+KRUA9sU4&%8dF=LB6frY;QS`zrGPXuXR@g3aR#Q_A!S?wd9{NwU z=|2Cx#{Bo)1}zgZ-Lc+*_xXQnOkN)W`w-qi<0qf|7dMNUd__oC8*qeF>WTvPGseM; z@%FU1NeU_z#KW@bgw*C-#ubY6*Hs3gvRaL?JzSM z-j|jKwN^jdI#=9y0Gc#Y=n_k&FGl-q$FLo{UCnw+0hWN1(QA;)o1q?D#3mw|n!M05 zP&8As@!8CflQ|XJsR23{C)%wzpO)u`Nn<$l-*7n zkFB=b!<>xTYz*7gN|wNgL`_hJn|Urtwd?Z2Ij6Rjbm~#Fk}fV&I3}GZpmEP8vK^mk zt`*Og_3o-s+Pv;8UW%8u=ABl|?W7v#GSyw+-RWIQmDkY9OBNOjgY%`O^Hf%iyR}H3 zqS)Ou$|sITGO2_zlH-#`k{1^$O6;~c8KvemY)l%08HEAU&bwaO@k^NH`C{F#w46dK zUv9yQ=ln{kwQTxrQ7y}N;kuJ#mD&Z-jdVPM+nWmm$MuLEH{}Rr4vy@YQ|-Wn*rg_M zJFSgf2zIa9D0YcI;bkc!9dA;738~3)BUh@#2zNwwFKSZAo9+hVoVZ7DlR_I{xWqsb zVK_sB>hp70^29cxa6pcg=@q3u0%a>vU$kt_%jLnt%uY{H7X$q>AUzh36SN{y0CNlr zPy|l%qbSMNvHQ%Q5L5Z~TE4sEbarx!=bgnnoRxdb_O6ZiFbP&}m2NTPmhJKaVKxNA zD9>q>DvFfZk%~N0aVtsjB@`>Et(eK2JjIZfiT$)-yQXEtk*cwMELui;RBvLsN8V{L z6GbBw&CcBH#p$UF0U+;!%+Egio41MN;muxr@vG(XgX$n0bK3assPT!Y@v*4!@d*Rg zSHXK2+ZC`YYzNpCwku#ij_s2K*M+d1Zf^EFjJY=$6GPjzuyudy@J3~0nBJ~#U^tcD zTewy~`yKwq4QuH&wev^jz1osEz5mUh{TqHSmTHYUH3^sFRf3Zx&W5kCk>>K(rPcYM9M%v7~CQ?g|}xjR+5vej=;h3=c;`VFCFT0anGUU znP`0Bb6;S7+gskYy|%4Zs^3L#%#TQKH3a;>lRjFXSN){=3ZMJbbBe{Hzfda+y*4(;szqdvBtKPM(Cow%t?gW^Z`{$@xzld$#c<0y4aCohY==DYNxmTSh@>RTg&xPQ z25W&P!mcpj5k-UsNqb0j6-7xP(1@%wdql5Sr7TygQ0eAKcg>d&c%iTBU+*A0?||48ODZ(!FVK_0ur~`0F~h5UY7K0jKTjWk^^O1zdN{ex zz^ZoLCRv{)l1AxYrsuO>rAg=x-4OQq#I)3^rt&Sd3Qx4vz2Ge0 z<1F2Q)GDqDzPMjsqHYi2l+-um+i?n@o^&w2T@dI<;YEt6QAv?AP>FFqlT1XTa5UWP z* zmAiw%qqk4OkEnIok$KX1Fk(CvGkzgvd@^DD8VwLWfcGsS$%hs@cKfZ3c4fEk8Z*1b z6wEx>zNm9ljhXud+b79pl?nYKc{QpGKx8_p36NjBAG;lFcUE3wwvW*=Y_A-tLxc~2 z0K5emf`b{SVmt7zphIo5eeP_n-7_0Iq>Fl64;8i_sh)jQeRSiI8ybHA(&0*?TW;Lo zENW6KSt@K-K198e2IhJo8djQ)kb;+`iU-~?wZW;_4k<)L#9Z7ap-*iFwrjiv)mh1@ zX{eP-o`sdq{M<8K151L;HMW1_fBlC33fQY`Hiqp$w2mW{gM_d>jIp{eV4Ht%Y{#B| z*Sp_!Gi)a&M}sZE4!kpKY@?(A??OzJ04w}_>Jbezt7L~?Pki2=N;q-F*0VEd`? zuBjNcmtF?CVHE4Mq-xAuRASEEuGQR6dEoXcH7Vu`8?)|8#9eS&tI=#dU0z8y&*5V= ztLrJZW7SqO<)uuaL&RgT30XZz=IVZ9HCJEHR#qse9kuEdoK0k@g;6B9g)nalCc33c zK%{seJT6WNJ0~|YiPQ;8!UA(p?xL?^Ap%1#D*C@YCtoGiy51dRy>g+{$`@;h0wd&` zE4AnakPOXMmNH%q5;DnbdzN1!(J5bRJEa=uisSK5+FK zwavoHHtTJ!ZDFm@Tav<0rZa2$$XRFd1rVDN1XzrXE!kCMFu|v!QY7z7iAstX!FfQu zi*^&MVw{vsX#n!J>%~$3q0hnRb z{o!l>YHR8FL=4Jeh|wW^;r>+RLPecC5M2r?AGSy~@#g3_Y%x+)0VYTke4<4*t z_`c#k?rE76`M_9SWBX@b_>6{Jh3yaB_t4F-U0LtyQ0wRR>m8~pY^Gc1qJ=f9b2-yL z$~M)&NFxAs5itN%71n{V>LAbl{IeR{$KYKo@N@-V>RhIbX5bV9QKzZ)Iu+aFP8DI& zm|4>P&0qY5U)0#HF_u&7mB2d(#BNvD0JbZ5XBoc!Q?Z>~QFR;@P5R~E{<1!-vYFLV zpO+J8q)$0wSd`76Ks6@5C)W@Vydw-c+WW~_IHCkXSZC3wsBEW!3Kzx?Hs*v@z4 z>|@xj;9X;Tw$w{|b#*`0*H>+@9aPtI7~4U0ZMp;OTwwt4!^j!6JIgS>TkhODld8P2;XxZ=+FMMy`jlASQ8@ zX(=#WU!q`lf_RuYQUVgdHsb;@xbgjBfP>G}R7fB+mauGxOeFYhYE1*!xOd^$3Ctlx zhe!qqEssQqfeDK2&?CTt&!;fmDd#aO$Ci>!i5R2~e$~_bsPY>k%Zvp>hVqz(0W)tOneHQapZQJ*lg-6X zJ#giJzIOIcm={|g4pTHYBjH2T`tBLy{EYGD0M&mXZhSgvd{F^=(D-7)_*~5R`H1ne z6UH^E1|{%5hV5fad&p=XV!JZhSrYw7$k4tq_oy-RZR!?r9}zp!w@abALU_Hhy8T#w z?X~{)(7~04nCJD&8B>6e5+HRitW*iPp(QF zfr9Liwo-(QI=TMhG!!Ajk`7KCP+dmoGLPb9FyPfTAUyXed>pm?-v`?@r0WL#;7M!; z;lsa|+8AJG*1%4K%TwJ)@O#Qa=Njvu~rAmLZ zy>`C2da<&&Tj}q))j^@L>=e7X$^tNM`dx57U7)DPqE!FMqfA)0eY}&rCda0P<-=x> z@<|XlPD!F;&~gN_U{OFVa*LcI1P&fjWLSJG?P9&-Rk~us<5%@cR<2xW4Z2GkHYxm0 z$t^Eg1$q$l0V-CmYC7nvx5-*^im>{==~ehM-y|@mY8UHXr3Nq)Bx&c1l+TV^c4cAJ zZ4R8~aYjCtl8l=wLnkJ=8gnPsuVs znz~T7m5W1X6Ze>;I$jz}UZ5RxC3h9BCKk7`)8kRpE9aycGYa?4)~ZO_ zvHKPLfiriG&X*H$%m{kSffN|xY1tAbP&r50ij7ibOEl=_)YVxlWdWl^(Us zl;>tWCzDPl0&I^$%d2xuO%(;(=iYpCY`+ETK9V4ifEmrq9EW%Os>XJw`rd2%e_Txd z?pF5?fcHx~Un%E*B%o*@I(EzD2f`#gbPa1p<~`K<8=}U~0qk+(mlMWsj!+$=9fW88 zE#`#r*{JbM#Q5-paYq2}XK&&{JUyVF%bLaH&s>+xu|Lv1!5orECg+}5(At0(MKL-R%=i~VyIf- zxy2Dy9;C{fZvT#0iBM0ODEFhy&M^LPdD>`KG4m?460Fd(Izrs7Blk)^OT=wO5gmnz zEe-i$jf6Cat5n;cT!z1vm`BJE}7Af_{@HA>Knh_0lwJ{cJz%v)@em*myj zAQjHjbiR%O55wWt+LT;`r73kbEHXH#3-5;nlrxNaNS~5RN{qW z53q9DH1PpsfyBw_sWc@lV?ZvHI|Au4#fX*RBB6U%~c3IKLY zcw#B3L=2^4XHmFuJl~`AD{HXkF~#-0(hW4eVo9_YoCsA`*#dSQc8HoyDRgyWH1Jk% z9vB;X9}IP_7I;_e{TUSdRc92B6Q$!?sbn(7S7127*g>6Qa*|xOo`F70?4JjA`^cjj z{ZV87yGN$GhIh@nD+z)zX67dFe&#R{eejO`KW^v00y2Z}=T`m@gg?LW1vB-!5yI~r z9DLu4Fa91&y#{K1-uS5zwf?!J@!KO{SExP&_N4Iz=7jMZbO90LLleeTsn$IOjGyX4 zJ#Mt0itWIA2-~?)1aGO^1zdpY=$12sH;;U~1SH>VItlM!y9Rdl0?!qqbQAU{4YbhT748=hQ)t$LMRPvG=9#VAtn;?%C&#O!2?{TTq>ZEIu7U`wpy*~YM)#pgot{1BvU~B zJCUuD?TFG>t+(A=xv;c%y}xnL9>8`Uo9dnAwR2aq#a^SoNo={9?_}~lJKx9_TF@_U zxdpY7E_T&E+8{we9_m6yxEY819UOp=?UH8%8a18+gfe)S4u5H z-%A_>cP&x?2~_Vglx>2?D8{W~GT%XP7_~8x;f-LQ*Rs^+h>Ca@B49u?m@FmrEEAvx z7=wTlm~EgIJ9!eEgnI#3Vc|WuY-NjuLJd9!(;Q9*a~ohsa~C~e%4Pz{!p+amWYX|F zB#b7^jAc{J6lwaAEgins!ncs%lrIu?gYOhsOa4lEP2qUw>+p|PEn1WBHR_gi5*;7QdLD)=~cx3=ci*Q))kN_V$0xY%C5S|1!1S|oSK zqziC2md-lm4n;*xBCAPCb*P|Mw+l@hOWP@%g;v~aJ7qvaCjHQ2v=f&o+y&7rBESV# zZ8e(ROxCk8^(~|W5DKV3-4J<*elM&HHhj{pC9_59pPDYIPla546~Je+BsJzrEr&my zI*1MJAIs#);iT>upIYTkj?B|?gF5Uax^hN@S;zyzV@t0=C}h+sAYVpL6gP9wL`k;< zK}2d2Gc353@zIE<_z5E$F~R4M=}nP-1h%sViyc)1JgZpsAS#~LbUG~*2vrNGr;C22 zR_)BsCs1&~mIlxvV&=eh{vj1i`B&Vn5h@^2N-IkVEyv9v>X}TU?lr6KSa>Pyc|1|9 zH9>VoC4_Nu>ne+TgcT8Z59z{LNr@r~Gw5ru$>(XH`KU~Ha9%1aPvc^pNhMQU8PTM! z-+(3>orNyAXT&}b!uG&)kG?A)+fSPAC!MM~Q}wvc3|a&dHbWnQmuIV9{GaaF`=dhg z%bG1Wr+#}-{VH4ybGQ1wfP~)(qSoI8L<8(`<6j1pi}*}O42%MH;bDSVEcT=jHO!x9 z#>Yz7OvLzUdIzZ|G6ja87WWv&_9eb}Xq}4f3fNf!@@jj$JUn1Aam2@SUgg4-2Wsv0a=p*f7LP{8j(M{` zHMRrnYSwmp)T$D)n>puGZy=~y>n^}-XGmi{jd5nSzWWcyNMDbvelHoR6-KGx#(3EYlA(% zzLT#lXGa$J_q~bnvP?c@AnGgG>Wb-BGZgHwYbih;qum2$OVJGBE4^%mcSI(Q?bsgT z-6MnFa!DPQn3oWLyu?uI@v}f5D~#>A^e`NxV1&ZG^}FBt}my( zCebf3%cnzOyhD7EnX9=dI%eq_s!69Ttb23WCPAq_fFL3W9J@pn(*vHer;{-!aWC;N!u;}FKV@qR_W4Wi(8KPY`XdAzWq)J7+epuwwZ5v`NUc{vY*J)33llFa3@I62iF z3op@I;2dcu=lUfwvw(N#J5z>8O$s(~KV?jj&Vu=zL*9!(^-)F$!3)9#O$OXME&~E{ zN~Ln8*=;QDLn4jN0=9PpY!Ab`3UvRF5&H=v0+pXDA%&Tvn3-3C_sKh^r_Nv8 z`tnZy_m89Wm+ZOU*kNE_E5f(P%%WvY#0*|%Np26MmwFIgh9T}nBpUuVvGQLN7ffH zFihZBm=jj!x7wbd@wxb^sRZ&lUAx*$+4&p?(%{)=hDa{CNZOD44$C9^X4#G_FV zkEiFtm3y1Lwf%!@pgo7;al);S5-AU*$rDv5W-GO{>m^_g`6QiI2Vn_HP-_pnk$HP- zn^}G2)+ylCN>B?sTTSHqv0OV{3c*njb)x`KaU*KUHS4JC@OpL3xuidzE=A4Syjh-2 zP%+9U+%9J0el0`55>0^-qBu{;Cf+4pGu{vk8Eh4d5niRBRNMqr-9c%vnwI_|V-3O* z@JCHfOr0?%Xs~gFJe0|4)~J=LElcRpP{@-y4i~TCU9Dk=gjzVk6=}CjwK#NC03x@x z=pC>&uOyX(AEZMSF3!$FYJHyFG4TmOmIo9Ak5 z8-@7C#fBv?LK$mCbm*PfDp>?4UiEUpQ#2 z>=%LY=8$~T!gu-BhF4pF; zAU7U;LeL4_^+2B2rc9EX_W=GhuF`6cC3i$$QK}vh~!r~PdTT) zS?)Wfc8>cm0W%dUC}oQ{Sb0jjLg{3S6o@C5CT5m#+QP0waX{w4?WdfwB;-cp*=&X` zN7(H7Ig?i;lg9HHi>1>Ei@-&q2O(uLrpc&SbOvx~M$iht3Pue~qT_f7k>n!x6XJzu z2Z#n=vE@xf(#U>FIl*H~C_CX6kp8CcBiia)*{tPc5d=WS3}0-4aw#;-<=4@Zpm zO&AxY+|m>kM#8|3=D?;g!Dtld9s~BkXdhxbsxl*NhXia6-HZGvVDb>nMzM2P?_q35 z>=cc-lfR}~L(i)kLgEC6I*IL1Jn@9ac2XdSUj^G4i}93J8|{3l%A-^$l)*!(vq_Ew zHdBh2Vx;zf_Y!sY<|U>}CVd$U{57^KgjXMt-jc1XN9_gBIAT>1gEh;;S6*$P9S30y z4`VwxrgDWepfMImNFhiBa9T;Ll(33Uu@^UqMkC6LKwONA6o$tc{8iJG6i)GwVwUg* zvVs?iNgmrE(V7H|AQ~c5|cL-NZ7_w)P9%p-2Ayd+%4f=dg-PZDQRsKJ|d=xiS_zaxqQJ zW;m0STce@`KVtaow5epBmU2j#sWuVdl1PIBSSm~MCQl{dC1QF|6xDQ5hD^IftI%-j z%L$zL5GkM;cDvssTZeedB*5;LQC4^B3zV57Q^~6?6wt28RS1tHtldMr*C)fYW%~7K zreNmkr1wPA1xlboQ^(RC4q0q5Xc8WRl-S)wucQfM0o#4gCf6qc`=2ePlUb~8Y+#a% zY{!D8<_*Gbw_S($LJS7=90K^_EtSwl@tN`meHLNuIj4q>3>srRy%{1A<4GAy<~+Wu zO_`OPLt#DGcES^#TrL(rdJXlh<3Weep&|)RXJ{D)M|gWl{vtG#CmI)kl+%Lj&p5mX zF!@}7yd$_!kANN1UH-%(!esIa702_kt~WYGfbEpb6Iy1>bSKtbtA~9=B!3ZaAF2?9 z;2qc(X?Ogp%6cE;-be60d39>){DsXgAFTa>ITg0Rk6=8XP>8M9Xgm)yFkw_5QZY&6 zB?8?Qu;WyPc#j(|M2!zdjDI#^kP^FWOl=Jn2BxJ%|e{;UAr_xkDD#TvSpqDao_MH$&WLR?b>MP zuz|t;*)Zq8qa+z_0ZQ{|@oV$E*6N+jtzFO?DGB^6hzO;#4$mi5akKosULLf^{fgVZ zy*wmX)Ws`{J#4oV9!LhI6>hWg zjBzHwYM~j`o5nLw9|7q|SD-Om?E;vKtsbCy7~6q&upgXPHw54A$cHdQU0!3x`+jTH zt#q@%NVQLmvuvqd860%>udiHvZEyb`=Jw{*^3tAD?U7SYc!oNfT2eJbV>rch)JkQy zYs_!=*DB3Leaoc)E+H(bp&BB z-FvuAxuvLqS>=Va*FYIKPx4fW?9>j0L}M0y;UW?Bnern2COOp6q^K`)4f6?yPho_B zUo3C97(Z{Dh)_~G!!nCS&v8u40>BeCi9(jg!^dMoe2bMO)zsnfgSD|eqBJw0E7*%Q z#Zzh77CjP)N@NSgQ*Jk zCR|2dnaN3P3~sCI@ICC&S?WX6{mim4{g9+ANx;kr(_IVy@{xqlXbmwf5qT2c!}R-) z7;|qTI?>KNer5M-OO=;Lq{?1>$|)c+Z4E z()zM72?GPlf$C~LVYE-;V|_qEA7Ntvc9xUFw+YrOiJVd4*!w%Wfv5aWGCoWh%h?EO zcxKYB(HH0Pl{AlCsSG;nedr)`TQ#uQ6|l2ZYk1W3#{%9fg4iRe+jUl+ z#P+mX^D8Um=6X6yCN*l_8DwgBsZGk$%+uh#NMe^mxd@00HWQZ}V@M3qF4!&x{glXP z&>>1RT3~OVnJ|d`V!ce__Tm+W=tNIdV#cB|V%ij*W8~A|5Ns^AI>%(mx`3sTF@boY zZc510N1z{GU%MbeRd(LWR|y5oRk7h$Tbq{__U~FexW0P%HRaw0QR400d%VU{sXrvR z^j+1BxHYtL6}D?UtaaCmr3JTetPfRtVYFYlg2PCZi?rRY4>&(Jt=qbxI2ryVMGMoN zrT$1YN^6(A{y{2-BI3ZU_S1ep=`ULK@yoVrD^%G-2P~ayqfU@14TxRz8_SkYx@Z%Z zCD!aoY)@zGTAe7tw3#&tYp3T1x*^*|fIZC`V%-T;p|)uT$R(+Y81h6i?jrNZvzyM6 z5=0(9Hb3`@!39hO6_nDIrIg>!l$YZs9@t7cM-XO{9+q5GyS4ypmM$(b%!HZ2@~3x5 z(;#Om!iiiS4qO1R>D7{3ulf+zWEx@V1U(B6TEsH*d8e3&rZI-GiCL2`_`rBN!)02+ z!^GqAn4CGo1~M!}0&H%USsP6?#Tiy(Qa@{kLj zqv9SI?Sa$`&o*xb*1ZhWk9?_ewuy;ifbc!>t4>}NDHxF;7{x;>W=6w1Wjk0S$xYN_ z8bw8plQYVC*YF<1&rH7tcpr2=c6s+}bsJ_z!}aYnG^8J)`U!JgEOrI#$Po}=18)!U zK5x8x!Z;t&^3_Ir;6Ftij6~E~4D}$U9Z1KKI;lA;xj*Ih62V>h)_}}Ar+Lf_mXA+N zF_Zf2uz%?MQx2wT*@ZOhVu}%4X?0__yTAo}3lqT3gUZC?h0+|VZ&p_PHE4V)iGD`F zBpyS;P#kjXxQ@@M&E2baRT?*qtKkhw`CaU^s9BhqPsOqbD>c&jRw~!PP8&PmZT^|a z_o%;vE&&cBLN{mTk~8yy=QDG$X@pag3}&Mw!1B=Y2GM8n+)9Yo%#8XI0FgFhO_5!V zfcwIwOiU_sUSzAq$j6ETB(S*hIiz2EeQbCj9b+u8+vz$aIfWgicL;2C=@n^&yF{ojZDG?{2Ig zRu*?~`Pt>6iGJ#lDJia`+SRAk=1RG?jM>jSsF1`qGm`-RRb zNldxg0CGD4x0bf~UHD1HcHvKp4Ap8G!xbhW;}l>ou-N5!M2Q`&5qp;o9n}Ggu_Q6= z@K_KfkRw^Ukf%Vl1%m+?QmMc(&1A9QLutd+Q$~-C6Isv7qjKPz$Pwf!X++u!lm_eK z1fdoxA(z;zWZQF6%o+@9WL?OL0yc@;F)5HOR8a<82Vf;KWR* zZ^3rL7P-!hl_51XaG}l$wnM^*!xWVmtfv&*J4sq}5?JHObfQ#g`K229CtyE&V}kKr zB@U8scZ49Zw~4orQ=js%0nv1VXu-tb?UOE8!Q~+rPdO(HLeVs%u2Y0LDR|BxR~}}b zP1*>Wi6SxiVj^)S@Xm+4K@?Yv(z~7ffr2$)8VFDR4kX6w45DR*0%9TU-}uu~l_~x) zgNB6DK*a~v`w_g4@iQTWpSUnJb+Enk!sXpR$VK5^0P0%+dl=8dkgh^vl({Yhdtk1g z1olsp#2Pc6j~MTtH-2KmI5=*xFB(X-OFYbDqA(!9{-`mvf9h>1H2YEzth0*xT(P&A z@tTC`N~CVaBSMK{VNsl?j6CQ0(JG3DKTeRehaEv2D?O?po75_ZR%%T$n#WFL z*?J^3_Q}zo06PP`WGw2~w#3l#Jc+NL(V>{c0o^hFv--_8I%BO~uT-tNwOXma)LdEb zpFO{H`R?ZSp6yYatd#T`RIH1m7MS+Ycuab&NXlcVoAO#HJwLoH zHHT$Nl9y^7BdLxq6iq_2kSZ(^Rxvx5m?PtZV1;=i!IEdF^F;1nIy*(q2Pq^oGil2a zYF)^6YWrei%Rm?q27NK!1)s?rq>v>kgrxZe?4p=iF|pX8J_%0+;N5)Q%@=s%!q=eM z0U?QrG$*#a3<{3mUH+VsK(evDFzK`9UZKBB7zQael6+KbeWZO zyLa}_-m`S!!PfeP&K4@rdk9;>RF55M>`#rlW9#`-lY3a*V7nR$f$$pJwbI(jeOUvr zYZ=M#S;Fvs>W*q9#FYLN8Ah|%aX|joMy}k0l1i8Qxq^>}ah9JbgzYL*fE_)%VB)qE zx;P7giNzjR=7LfDC|JCVtuWrx$S0a&y<^P7OY=0_jE`#FEM0dK#eDu$%ydP zVt#|YnAc9uE3jN$JGZj31%t_$!g6iPbvOmjDFDuaQyDSoc@**W2Q<5w#6YhQ?-Klu zUIB-s5h<73IfeiUh?IE-jrhp~NZ z`9=Qu$W@0XPh9xeXG8 zaH`TxBs0mZO@xfFE{rYU-fqB6lzO1!;Pu>CK*5Lgzlwz0C=uM~8ERk7&U$wam83F-<90b)^sNNExP9j+nPA-x{ zmJ_J2@L&*dODtA8?XPXzYrEA}cQb94YVGk%z?0`4TXW+zl1F*7i6{HyN3Y^lJ$aD- zo@+pFo>{CN-U2b*10J4M&}T(Kb%WTL?KVx^+qndUF^M>3zINprGr-PX z3f{596};bl_ub)NRsp***P&uSbv3j7n8mId?&0YS%H^bK=mMXs5$Q~EkJnn zAQuUDDmF9h2L=@sNYqL@77>`@WR)OEvFyQh%zZqebTdIj?#b^ioe$#nBAbaDHw_6u zd`=Si8iIrqmPif6(||TU*#O(+xC}p83Uwo*?Mc$Eq~xERijzp3JzAJV-4H5ISt~}n zz&qn%b|*6RfTKWLDYbPV1VKNG-v{O82NmwY7^JfjSFh44Cx=B>u; zW5@z1c)zss``rTE`>Bxr(uh$%719+6bIe>%7{bFSbDdBb1?)Ig(V`(4Dq{TPyz!$G z2E+^Fk&Aa+ga4OFzbxu$*H0`N3fx}HuSsEa0&5-5sV?9YbsNiQ2=Poo>*2ol8w(T* zqr;`PJK1)TcvdL7xabVQ)yzi`sa_#d?cng0jM9W536WeCor=h2&;0x|y#5lA8BBV| zcRu+}AVL8JD>;b%h=$7dXGxoKLTUzQ6v(iA>xy5TQo$9ziNX(WtYJ{Y*d;xD*8P$byJXG!>Z<%Vh~RGAY$`>`Xm#C46Ny zDI8YIKm4OVe0MO>Af`o6oSL(!>4Q&wkXePYb2@!$wzH0>8eRDSe_YgN8a0&RM*)6#h_u z(m>o^&2T|Xd_k6cBc31i2=N?p6V#n&`PLtjcuO^_oGEq9a(_l)WBR7?qqAN=546<} z#8S1@t)s2~{PeGU`o_aI)ck?>ec+Mr5Lpkk47QSmIxLMuEMh_gCF4@&2`U77h3p~Q z#!8?xo{WqGx)N|3B74YsC$g;8S|6+(c*uxJ)oy$N;tde0oeU<20^DZCbg~2}T8>+) zIr*~0E1=wqyVcAR$WFkag*!NH6W|HFJGRGb&rpJcU_djTW+J-~Np~nmeet>>L=i3s z5x{q8#=!HSq7$+106ShOqDko@I3nmR#*c7AF-RDOC6pB5l@Yt0rMRDjo`taTYc0Yx z2)-nEgRg`oF9aqT2XPJ}6Va&p0zwV)3Ilj&DMdx!D9+X)_paeRK==d*|B*l?cnsk~ zX1rAH*q)j?yV`s9()L$3doTM5G-1Y!b66KOW1_1WJpYaC?C0`{mx7s335mg0*XH^d zu!HIX?7{p?fn4Of=8d;c7<({IXABBX-D<*B9gSINO8c$F{@xWV^I~_+%9pZb^yrG* zd6Yoo=v@@5Y1>E3f}aMtXHY$w_PCim2zbEZ+a14O@9kGw>u$bD;R|)jFg}CohZhdj zl26BA8GBEG{HfPUfku76k(oBccGXR=RH&|&pt_#l_&sk_GuRFY0CWo5fplixS(X61 zHU+_U-A9ChT?05!!;7qlUzQ4a^kwsv*-O8edOZ!PI~;H_0j`fi+=I+JtQ#3!M{t4N zuH6o*>w|;*O#07L8`rK~12$PQu>sJ2>Skjr@4Dlzu{G*X5dP$PFj>K}It7UaoDrmD z24-2Z%f-<|8<}6F^s9v;6}BJs3qi$g1@EA`!tlo*dpwNotOV87tUD17PFuq}kgl;^ zA+1`fhev%8{gcr+clI3ct`MFlgmMOIn_Dc^^Kgp|Zt>9=s*i0Mfh&pNY$Ci8lb1mH zEDfk{BG0K0jaxT`Xnex7vQCP8emhTgpX2zL;{+qPj??X*?R1xmm~A!%nkrHlFJoiC z(?P&m1B@h=z;DoLU=#<&vV=*BjT|E$Kmr`a9e}AmHzTq*g?hmS-bG1<5PHV#gn?Q( zj^h~Kvtw7zpKvk|FX&`S#aI*CpIU_UG5900)SP9B+zhaclYm4p3jDD-o>L))sP2TL zRvcCdLY;{;;03`5^(YHosu${=N_Uy?58JQM!BL%x5Iym+LJ;ADNFj&mA08Z>yq;hU z4kJK*$vCqfgiZd$2;m`TM*Iv0ydXTzR&?Nj^wU6o?u|iZ)%B|Xj)V0tUIgL0zgx}z zR(eVi=|^~;Pkg?b{lZf1OB>zaIo$lp;pWRSZ@hed<9C_Y+Fz_YFPXEyrU~|u#eNLf z_VM# zjp!;9PKq0ka4g7~Iia_Jpa>2`yd-nt+Ca=XN(J{;@6zh-cbvWYrp>dDX5CllP;PNO zr+!3$z^UuM)s>*SA_Q38&c3|nOt-UTcpGKphu5e!15E4+Tty&!K&?w`q*(I6dl2h_ z>CQuba>rBGgt7h94Nk5EGf%F3b!$$=c6F%mS%CN3IX;m7_!}M%+wE#EB-EG{wj)6d zs)O(>;d3zB)ly+Q%NKt21&!^hHv!xE#aU`>N1{hR0JrlD0PkS??R*8jjWXBupMU=b z(3K&r)MS|vL`_i(g8-QX{2qS^R{<{qBO!Xc!jmuz#6rNE&Pv9I^;+-Rm8-4pfXGGS z!m-Xn4SkZb2K-8nDZ z4hd6GJXB=@3T_hLPW(ldLR8`@uv`Q%vDJZeHAB=8?gK4E$Hk!-w*ufo1cB`VuMS;F zOqkH@K~Ds>JAO4+pu|bL++A)Cwp&Y^NFP@hR-Am1U?qOje5o|p+O9Y158QRf>mRzW z;_ED@V?V{j1ThjSP<+XlxM0lvlc3z{aRXi^*|;LeyxG59k^KY$mTF{4zIt zxmkYKx%J<=u=RV)2kTz}#+eV+UcRvPl?x+0U+Fy4DE&kw|0AiyL(H!AUG2(yw-$f( z-1_e@Z*+gFWc_+-Qc*D)*nf#g$PuuE?Vm&q7{BVA@wN$3C+itTHT=cAN(I3l4{e5( zZg*|HzqVX$E~V{u*6+E+jf}Tg>YNvKJAWyjDM68?oCUkORcW_Nt%ZEGh5~jbKQNtz zq*?PSn?#226Yv8N86xthmQS)#_;lZDo6%ySv6!zf=JNSQr`20pB=YK8J;_KT4*4k%;~XRoc4OQx#kbfMJ;zW=|HMN;Wi+*Nc7Du5OCUrdp7*O;`16;$d0P=zHJI9fOco>PAWEc7Z#+$?@=j>v^D+yhaNbra;B{A%0NHv-m z`#SuIxepJ6t&V*zwt7m;^=QImCVV<=<&q}Zh$t8{%*bN-OH`$3{|e2*HwCOo_+@Cp z5P|?Cq-lsarDjU8-mUl7+k@@K!g_NF+0PZPSVg&vxcO?g(_R`peD6Is?z**VGnNi_1VVoxlaq@y_zZh%j z#KTqp?cLh@fpO+e_5Bt9M{?OW#v*qI8?19gIXGsquVsb_Zw?Ruz>ev&;r|dk=M*xLrd=W-f*@Ht8(p*jeDwL3L&b zMF>Vln%pQ!R+8}DAO%lscnZyf-f=7ztatvTEs^O6XpkkCrl_$+Wgm9WQg$JgVbAfi z1Q@Qs9AGEtktO73unYprM%{rHR8iaTs-imXw%5(d0^*0{?;v31wO5FyPCDavpwJrd zv*zkNNT*Er3G?^zjxn5cD34E-!eU9uaMXpYE}U33`0(iL|DT| z`g~B+s;xW-dc96lg_y#CXURwC(xXVPw$a6~^e*8>sal4$c3qLGB`k!;38*EoA?N+lxzI~yTCte+=9~3c>E5MN21Q?Jz)0Q_{G7pKEP*iuKoUt#ijaV4JPnZZCSi&P{0TyiWR=R3BNlEV z&eMXOTap(Dg_le|kK__OIYbSz?Pj+#=(M`Xz)&Iqnw)nLBN?UzYKK>l7m&ykNe`q~ z2x4QPZDd5i^@s$SOdMbNiMXm-sZq@Nj3CIWQ%~=_yyfCZ3g1=LhHpnG0G}Q3j?EyR z(|JPV1=~sKML>i$&SLVv__n+PaO_cvgCx@gcQTLw&zbX;22_mn0=Q6#?kqQ|z17Cz zW_z&JSXc$vbA;c!xiq~SDhZ9s#k0HLe&6-)xPH&MwUq)YWsEe4HBBbh7JJt(9h|&K z)=W%b{VFqlU`$>UGhX7-SL&$cN_u%vnFN zVN9Z7rLcX7>IM=46Ke)ZwZ?$iOx@_#p4wme;@-+{4Vs@Tnb7ZwiV=%l0Xx`E*bGvW z_*LhOADWs#F1P^aYkI&@MHMAU82NUV^ivvHyxgVkrYoO@Gj3}V5tfS;WkfNQYjw4 zc|vMU62~hVD|8_#iEEPW?eyIZN(yGEWdY=~oc~-4kFt%0;KhIZDAYv%o7D zP32=&C7JJ1cA3EVxmYGe1}z& z#6;mM)4+h|@n+_I<4qCM1?9bXk{}7}7O`IDqbD_Ilzq-reG5xwp(3+ZB+4?XWIvqp%&HGHtC(ul5D= zne=hOjdG;~q~Sr#`);X}msrPGT=JDj^qWQ6fCMUA zQr*)QED~i(DxJkrt8eGaZn0t#r(LSo7uHb1Z!WHvTYa}s!REIZQJCq1pYL~D2fJIP zg5R#yiaGnz{>DbH#of$1)?%|(E_haYa zfXSbccpFK2((^x&xI{D?r}vC${P^Lov}TB*C*T-_(1#c!=3g#=yZcttu{x=zWqV_+4xAj%T9$E^mS(1YN& zK%|rck>y5L%ypoP$0CzWW!;2DAS)Vr^Ys4o<3!7oU;)IF1I4dwx>9kBvIP_`fYs-R z#{5Sy1InmSD%nUwlV%}la6mdwrPK^yl7~<_1V)rtf0j*r7Y-EP-#&X#ERiZwtrQE* zMy=kc)EYJ4ckl>DEEEQ^7G>h8o8~tXP8od8EH+VAh9HODR36&l4mAUUWF9SWDc1@6bozl?iMxLB3y(w%-DhtQTyh~4e&&@^-?<{ z5GTaiSL-#l>&!9o`bPTtQ^O9-0*pPbr~zC&Ys9zEY?V|8(@R&ChW zlN5nwyi2xf0Xgv`#;w|gYf}xh&4C>FYBEoedBHr!sLs0;FIPrFQ7k4*Y6&};Cl-ZA z8t7&M-m{X>gf)<0CFwy}H}vT|9ej#q1S}J??|rZEPA&@))A)pE}FoJu)Y zDuV5t9%d+AueU12n&%bsg&a9m7(})!*bXETPRK}@N=z{LJbpZ}j9CEnQo#YT$)B}t zB*KV#MkS0<0P*f|bSC*0WS~PV(GOyYus!c49KZVF;Uzf0fEKJEcbgCwszS}f_zmBE z0w7btlaIl}*a7QBj6L-5MW2VhBulM7FPke=+Dld3!F5Vd74!8@xwBkqEoJj13GBzK z3&+lwD-~}yE1T=f?Pi@0ZFR87-fq@ByRx)gE_=3lc60gc=Ek5;Vc$yBE@w+p0EKL| z@YU+}($PnSZ@O>I6ZJ)7ds23#pP0O;5OR1QiZ1xSi?_)!2xQ?<4jhAjjD5jILj<4 zROl>WnmHgP(mx`c(FFhyi_Hfj>eh1^Tf7{_*uc{&BmB61k}>)Z4% zVw{lsf!z-G!ho8wC$^E)M@VoF1&?I}o=Rn`AdQt58{!cd#BOI}#x<#v*ba=V83Yg{ zha#hIkcctSmL$y;Ppx`#j<7wTZm`}H6mh0%XSw6l`_XK{t}ZmUF49?23|j4?v7HLe zTx#eEJl2c_hL&1&65HvNxPkQ9dk;QT-`K#Gz@HWs*~IZXrj7v5ORvq>IChTU4`sJY zAY&j443H|LU1588`&-!UiA+A8&LbD?xR5YrccD$F$NEaE*(mv?k`#$M&2BH13;#cH zZvtyccGh{8vvPUseRp5u#*MfUci*>n-+lYbe7R>sZX*@eqhWn<)S7-M7>yNzkj zw5NJ#GX^)tgBcncY$#+3s)2T+8HCh;P%~}Wa<^xY5G^!_9vEw^wpyrFLOoK??~Cug zlacqmDw~l;6BQMCUfdJ=IsfyW|F?NHf7EZ~^NwHf1$#0~8IxF=0J+8m!(cnqH@M1~ z^Z7KR2H1{AXEtNGjtBKjJmB!%QVyUU$^1NXAUs&5e+Zq20uvfj%*Ywu5dh##22}#u< zd^^|WLr4JuM%p>~@`w_gL~>_FU=^U7h^|d0jv(A5jLyoE=Qb){CrM91M8OLNwd^v1 z?9RY;o*;>Tcf6QNJB4C1ldr}ScD_(^%LB`*=kj%$H+_Ky8_X6+;$3pxs^?c7hcG6& z6od*~ShbCaUTzKxZZ)3HW6LMbsINA-Ft`A*c@z4yw1>ad+tdf=tn;akb5G=pW6$> zc-VN=w;INV!cPX#X}(vy{x1@+>ttO(bs~M8pFV_i0=d<2#)r+siFCxAFQ=-HN>(3GFefhBuFFp2s=g6Zi(z_FW1kv9u6T&WAuC#DZ zJ-BnPH5l&PeS5LiEw-k9e@kKSCz z%=MC(#(Gt^-S>K9Y-lomjp$yuDAT4la@J}hh0uV$Coq4-ZkL2I66Oy19|~xdK-F%& zBcIWSr}X(E)m6q7T&^$&}WT4g?FC?yWCTarLWknPJtt&>%oR6inU z4~8>=fu&+AhGfhx)(J}(xa~0`IFZ}UM_1}bj@n3)haz6A6}vle;t6=Y`qq_r*2lwoCNV*3NESgp=Lw(%3dCOdjLNMA8nk3$sZLh|0V~I0@v&BU+TJG)k!YRCYci_>qtP$o1pvY(a7*VE}e`bq(fBK`9z@l5ioQWd2I`kS{wD z&BJjO^5hLlce)L7!tHGnm#*Pe${2SuKhl~Q_8Yl9OEPKPJ{mQWaJ0L1!sJ>7l5<#0 zACW(qT+m+R!TeMBIt0vQWhmGgnu#(?IVe>84-~AX|N1Ag{aaT1k zhG|9C?s~nF}$~2IszVB>zUe$P&8uX&z>luTqD9LV$>U4VnaMH1ly4WX+A|p$$Xhi z#|1`1r5V}MzXItehTs(RFDWp?g<$0;fErT1P;%0F96;y`^B!a{1Z-DYMuZsQyU6J& zTonYZP&u4yc~RchfHNZGGnm=+#=+D6^akM*(W@33!=&ZJPs~4z?f``~Q;Be!p-jKv zCS~Z)0+liS^)$9Kd%&gw6YS2`O!SUfS^`Osv3ZzdJE)Eq6{|Tvh{5OvyrZI{)tLQX z{1;zjH3YlCb}E4IrrPO37~9u3aJZxC#hp?P&ZO3;mEGd7Td7oB+8s>}jMFn<^kQ_W zLg%_=Viuu$t=3(?QWnD(w*F;03^wBNfLU&3a($YJ_qT zUT&SA+Y1$dc6ArC7QD?1i1icZ8^a-3Wy4a?8OFH*9z z{iahSfp-p8Ge(|ylI3CUPLLZ;$Z(1B6iy5qa^?c@Yz}@?!rpxZ?Q z47*YTCzO(jBavEEI&a6xA-?C03#rHeb|;@_Wke{p?~Eyn@J@SjtGiy~deNWy-9cqA>u&G!u(i$0*-|;s=;1d(qzMd5(#u#` zWpac8BCwG}u};BbtP5DJ3Y^pjL#NeoI^#mM?RQ4C!Nh5H2*V4j5KHF^Zq2QBh!r1& z!%q>3x{!A(Ff%y^?e~x-CvF;e(82T(ww<5{Xjd01qL}{R76>Op$DnheV+9{XyNzduSPsN7gJi6P zqsAODsEo{C0zVBWV{T04c2QR=55xNc9bgGyeaH<2fCqv-NG>YWla-@HdcSZfTJWvz z4uO1$omFUUTeSi4ep3Zk&u_3DNA%N#Dqu*DlXts8=1gQ;};)+z$n^S zgIbk3S{qsomQGqzfgOaue)YO}E^I=%MIas}i`j|X4z}|rayv{rtIF*dNh-D*N`yL? zTwvv`$D&|0HzrX~7?R-sYrsgRH-L3aF{#Jl1*1lZijj(mEBA>-5>RR zuh{OjA-(+yjm!dnU@I7WXvQW-bKwy%9?x*J16V_*FgAy+eaHf zM?w`FEuu`xmN3;3pC?i=q3i&xY4fzbOP7+QLO^E(ZzjP8;TVl&F;gyvsEu16671BtA z1g^+txL#%RB+e_9N(9Vg2O}^VV=+8fqEAT@RmLD>LFO+^@u9g0EeHwKsaM*y8Y3CP zhU@zb7f5;x-@W1R>3cV??o6kn-m~}bcwQ9{z}$nxD66q7$%sUTm&k9T-bE@SJUP0* zlwFSH?Tx%m%Qj#0(ZY$@BsecY1AbB)@z7Y$qd#?#gHf z2&L1ZM?hUk?_eBcee{a@7t%gNO@QzgHj}@x+4*O!@~@^>F`F^){=MfOI|JU)NXOIl z^_b_@yQO+}>(;ZjSE)~rE4>NAwV1fBk%=*7m7AzOmk3*jUX|O(NDfCx+6&?-EY4wK zmq>n;-j?Mx-AaulN{JMyYOwBJMz5OpY8YEKwhwAsdnwx^QjJq<6FA6jbVf(VoynN* z$(&Ji-?S4C@v24NDiOM| zCy@-D4C~Ph7mc6hWDMDktd3}?<~N*SL&QYDeU(Wpf;!j^o>O3zIk1BK;}_Nm8%0(K zzfEY_e0^GMZDyPraJ}#d^l&a+sCGf=M7Dswj|mY3FP#oxLz*(!ZUTiFu3iucNi&m$ z0>;P;ya!fiJP#&eXcQ5oD_&93OIjHWR8X{{;w&?hD5R*2gOOdt`UYfX z2An}-<(8VQ_P*yeh&%~HF53u`N^$MS#|cA8I3LV7c_*A1>7D^1n~vpjJjI5UgZy8v zm2*&}5IGv(23v)0cj7vA5hWOVR>&rH7AJE7K?b>9A{%HgV8Eqq0tJLVeH-z{7&b80 zVdzK6A~%7tXrb9`V)28bnkfl*F6>JH?8M6v`-w#XR$v)TrBlE0cLD z?`VzK+OpWTb^XfG-uC4E-}SDSo_(t1dT%xl?pHeIhJE}VNC1dfXFfcfRemV!|5=t(b<0`EjtKgntrK9KSf>@Jt- z%+N0vYD08(l1tHT7d<~)stCs?Vjh0SXCgeD9)nBc(#7qv_0i4tKVxmVitsAEpAGNP zcqNiNgW+e+f(<0Y3pUuioLX1&xME|VydX;v^u2vB? zpk*=)@s0y?ORUsF$#!P#nT7Aclm+C;yZSc39etXL? z>Ypyq3jjd7RDf&{B0)SNF$P-EnqYf4j1M~zSw-s&(^@QDq%sQh6izFT2t_77%-y?p z%@ygPh?nM13h#ga`+w<|e~H2~Pd&p*0nP-EC*5jIV<%5uP;*!O#3i%>yn=*4i9~(R zhI;69{E`C~4Z&hLo+F`pPu!MYdif=Tz0d}jVbL*krk}vu^uO=x`a|B;Zd5dDiIfvH}xLaa%T8^W*oYQHwjqL2;jb;9L z$%K>7`J~t5!5Pxd#CEYOi!dp+NMyYpwc?3#CJPia6PZ>tQ6b*}AkT0w)|`Pw5y~|o zT^Vr`2?h4YVB`@-f`u0a$V(U*CcM0j)m7#$9;`|(JJ}jD1?K*d|7kOf2YBYTT8&D@ zzj}0V_xhFhzVHH;OOhUtjD84Iq!e7mZc?}@9vPh$oD2-5NJdDuKp$n>aaHyUe38 z6J#g^-kHlI7M^kZV+P@8h4l9f8?R27v93CJ8(D2H$@ADE6d^Ze_e%pX}7e2U)ivdQz{NDc7u4uTbwmc_BgPTt8PX zH@5bhyGO09-J(}5*J?0sXP&S%nKXxkVzr84SqzOnYOrjMR?ZX*ex`A7(;Q_GrdU9Q z6p4^)lJvpw?Mdt6GFl=lR%~t%)ID8Fq;tsOE9)7Fq8&xWlfh(5&ttHiq>n2R;5`fc z!pVrKf68GFYc59t4xGj8F{DHwu|#=+f!j4%vuQ;sg?B;tggEN~&ooV@uACFA0S5F; z(OrelVS>PW&K4LH7(kg;D6ot8JvUz`kG8}J2Gf~T3q>E;pn~D%PQnGDVuDP3oB>j1 zBVSJW{d}cQ#PCR=TB!CD*eN+^aAYx-minh|3F3hTwdAh1#D^W|M#M54wNfAE<%bUp zm&1mR2H5c-rH+yOnY^G@3?Bus1Mk21Pk#|R8Mfh{KJ#fgHoS;W#L0+*g!~ZOfnOka zH3FE&VzFMw3$Q(fE(pV0S^!X^=LuswCXEFvgXLfN5?V&%higm>2<8il(a3UA2$}do zO`0g2rP&Fvlc3zh$D>Cx34)tL7mkq6TupZ1XC!JUq1+ijp+eL7tnJ`wc!|-{whPs& z&1D%E!1h8e1-5f6CYPzi29AK)3_}5Y`$pC8*2t(;8_cFX;W?0mk{QGa=sK_+ax4;$ z2LT0j0)L9I6Vl5*UkvI~qVP`~9-%oT_W_d>bjKGV!5ELxl#uD9(QIH!!3-guLW`G+#))0L?3N1jda_8Mk$>vm z-M#Hu$*&THW+Q>RhZy^~aWR_~5|th&Zyuoz(t*);jacR4Vu`ec~k9OSgL9x4;t@U$mozbCKX{H^&zO~;!yw;fPV6d7hxlW@~-`X1-UGMH5 zR(hjAlAmidRB$pT5RJj0+UdHjj#aDY90#&JV_EqU`MDCHy+6c^f4&edOiT1LwC~OS zDC6}~ZZnqm1lvigSFEokY;5|W3zo?|vP!s77zRvbV(>F3rQP+bxJ5xE^SI}z`v(#VgXxM2{h)Yz(B_ zR$q-)7)Y1b&@_>MM8dfTR$=1$gmMZ(CWjWS=wblj;*wIS4hDnW-CdX&+A4vIY0?Zs zU@S5@Z-)1Py1*{bSe;BVS+cN{#>Ex$X(Z4x9;`*jgP=!yA|4BPHX()-tY)*7EI7qV z8-vVvvY5>J@nmTuZso0NCWpC2x9E<&+Rkw6UVnUNFu66EJ?M_^L$|lc&fYsV;tul z5`?)5eG@(^RGuUJrHeDy`r!cKf7Q1>vHCcMk(;Mgs~i|W`$KHU+7V+#jZSfT)YosyTUub9>R8sxlO;w6!}sq*ezUou^2~skLL|HjuENG&{a=5jtL}uX76}#UlxaCSNUH#V0Pp&17~8{N zfnQDBW6HD{t*_W_M0XB1a=TVIbBo+=IGHmmptVOmfz7V|8pd`BQHub&fnF%%l*w+F ztJXYZRLjm6abwP5hd1W~!`P0t9Yt!sFc&$(ja)B5P9}mPip?V6g%!%$yhofC*r;!? z{f)nVLl5T*a#y@sWKNMwV`6ZK*Ismeg(TJN1k=P@DxFT}(g^c-ZD8e?&BUP-;A>!6 z3b@u2y(Wg?5)4PI-6RoSLgprMJd)NuzgDl{vrWw;P>zT`-aMS}Cg-U|;*KNf2^uTvwtcRCB>PNUQZ32!BS^$M*TYa0}@ zsDJ`gM@$Ma|KfdRBu8m_3WNn`kxvvxhSptz&lw?Zd0B zgDd2`tIYOuIFGjawefaq`>;Bmb;euW-ovR4r~1OLeBp)XU(jO_E+E(oZn@kP)*Taf z#$_QhmoK>;Sg-l=%0GOCRsW!=R-4Vuy~E*bPYl;1SfOu_E*a4szf@QnvR5OpBW_88 z`@rQEX&L)=@g2cz2JMWrJuyTN+C~IFR>B?QK*6sk7nCvmec$yywY6r;t9$?V%tuC4 zhvJS$qBNB9c;01cRAe_!Bd&||p3Y+)fi4wcTiSVG$;=y;X`%#Y0N&HgiX{{P6AZ_L zEz|}nQq9RinVqtq|Hb}gPRM*Rh_6e4M1q#fr*AvX~Jz8X?cyMU?9nLydzUFoSExv1wYe0L~~bwTyKNuSLsj*>7%xw`cZ~ zH3RFHKmYSTr+_F+{CV@!nFY?t{b;;RV(*9Rn0ZrpC*^RPWSGWsoc;?d?v_E3LcP_* z*1g&E>oo=|+XSh2>0K|G^I%PZ)vftcW@umd!V53FfZktsdS%?3cp>n=wpWG*p4%|L z`y_4yA%)H1Sor*x|NLKAIf?Fsa?a+(;{)0lsF5gfKw%|=JMH; zl~2M=5|jpF9N8OK!ZFG!q+EyiV#%_bula@Ppd!3V0rH)|0z#(Oe0wr!Gim_WxKD$QbGOf6X zA0yLn$F{Hn^&H#t%3>|dt{>znSwcamzwPtVF9nQwvySUq1l?G-o zL@f8}-JI=ai%y|bE|e?K!tBqLt5~CzJ7d2$@ml>trJW^|jR)!RZ~@y*iU;C8@sUVu zl(W5}7=%FE#xefEqPTZ(gJ*eom`3;yu-)u@?|a{C%2sVewo1D-A><2FDLOlHoy_iW z7mWc*NDUHuN9%_hk~zakVFBS^EhIjA8s0zf{ttw)-EMSg0EKcRWw{vbETQ*H5yJ|D zhZNrkPE1dZG(|sBnTkE*r@r&#q7VNaUAr;5`9$ydW_|advb9%WA_m&;9d(bcdc(=X zdO=CC9eCIMjI1;{=u-Gi{73MAWy*;R3F+sIrsi0HJ!~)C9u7y_yS45xmiI{lhz(?_ zScwVC^bP_TD3&6i)I=9fotpv%oR;R z5#9hh`*AI22<8Kcrv=s%*+7e$A%rqS5C#@#=X2OD$O^9(bTm4ZC`jRpVc_9pgvmjv zN;v(TlX`dVgLvH0#o>#=HFPlpb+X%Me zJcSYgB&QC1PqkW}j2ez((RUEn?XtsDvqH8bz(~+Aw7}^N7y7%b+1ett6Xy4vKm2~QEMtlY?Zh;bRqflCFc^*{FRn+C4-rD} zOUx!Vvc#(q`y%XQ9julJc?R)Es7xgG0M##n>?m!yaYkbZC~Vq^9L0FU)Icowm}$g_ z0wJ+Ea|Pt~c%{~#5Z(eI8X+1<0 zbNKb^*NxDwJA0d(z0Iv;o)|LjYBYUeX}vl=TtTIhl^{0EW6@TC?a=9BJQ%?jN#gGX zBnbszJSN%=JXOh~oh+j9WOSp^QebPY`(_0ULit$YA0g5OgK~_Om`JGl5IL~2!0Br} zYmr)vH_S*Pk0^P>a9k4KC4?MStZPtkke9qY96*N9{Y3)D(j_Qx6l4s0xCdnU)3)g5 z-l#?esf9xzHjo(`Jl`P4S;C50^~&^0#;s+Fb8Ocpgv4(29h?U_5J3wz7V|S)V$7Mf z0JbBp>$f&ve4$SGPe4-TcD5|xpWdu|CboyOW19o%j4Bw1v7KL&S)1<*k5qI@Xb(q| zE~XiSQQNC{!$BjN&gvP!cJl~Ep}NU>}q(qn`V z-GtF5XJ$G8r2%B(eHBlmLtH~HDmW$7tO&+xX)Gr1C?AQ!2j@cA4(=vX%w&t0KSVPY z@(I@0`BE8+7K|2=QlJeJNxaX;Mf6r=);N*w!uJ^eO0^a$KkPS1{)xMNZLrxIZ`a4$ z&B;!w+9q%o6KV`sz-oeAp`lCV3Is$YUZOsce)KT5b79^dOeyxwv0O<)z>!k+;-zBi z5djroS8NB^!`Kc_$f_rId)vL;n|n9zwg-KJx-eT8{}&WKpqn&tdLL6 z_Q>Sd?4)4&2<7I%mFfKlAiOi&Y+t@s84b6t9uIELRdsrl86Cj(M>!dpe~ATrCP&!e zw2!Ih;-c6dre&zn9&cj(7|&OUHh>1Fy?=)=0*L}nwOH{cAet7>68sHCBkD~U7~qz` zFOf8CJX9@Q9O_Oco51@jJC~93ACB**PgQSqah}dum=)!jX`Zg||6&hv4o1nSU=iTy zTyz1I;RA4gNRgdBvzQFOO>8N__SMAMwx)WNX+PnU*j9$AG1+~bBI?LF6{!`_gu=-v zw)4fqAKmdizyv}SQrkY!NYYs=iL-@ol|RqK_HZ2t z_R+WtV^(i?jb>$gYXG)r1+d-BcMxiIr=C-XB({c=f!4-0MraUTP5L1W>xO_kCYM-xNw5w~FCpJa z=K*O0MJ-Hzz2Kjcz;xRDIGFqoW;Z#~SwtJ)T=B(4*tl->KYv<&WasnKH#;qYR#@DEyKuXkUK=Bm-swZq>2aV=t)pqx!bY_J z)qnGExf#=0rgvU!Y#w06C!;Mh#vow606T+M$N-Xo>64%Qe*6Z`AQ{+B-gkziRcnj($_(`M}5 zO0I7XqyVrZz_4X~{q@&5iEgzHEtw@;pN7r%HT*w6z5eU3zxcw7qx^!%5}ws zD$Sh`To2L+d(LjF;Sud2h%JDYCzeQamrNgkf6l;7VVj^PH#M#?Dcw^ zyZcA`2RGu0wBH_-nnSNWZj81|tx0#bn=Lop_N3Gt;L}m=jh)sgX;<@ZwN&jLdxQT+?AeSwy#z^+@c-6XgPpM<-%E6wnp(`8zIxbYVn z2aU=dh;slp=)0uKM|&wOq)dQyR1x0bc{<3I5!gY9|=m|+Q<4|_mdQ~ZB% z=t_tftiOV*VEeth_ZHy&@{#Z@5WiZDEr}0tw?rk{-#Ver$0bs`)1xPo`Ye6n% zQwNPBF^nLe(e0X@bZ1s>03#(`z;;%1|5>lQktyfuvyH5cCe$3bP&mGNOwv!*@P3SE zuv9^)fxE!(Cj8Tzl^M=h^}*k)4#=ruAzLQ+pdvZo*b>}O54rc`J>AKE_B{9WbFY5x zRkr#o5hWGU0cu3|H@gb^v0z+i59}052Ltk)qX(+t#{wG9e>%~P>Yr?x8lx-(hs>Tc zu^oUnM*dn8=hPzB_upzt zd*lzr^}f{X7aK#X+9RBMzTC{%J|2byzLU&EMJMMs;+BUilX)t|cI0*y-I2h7CPgQD zs98k3{Ke0|@z-y#g6gb_@G7yhWkG0HxqSiQyPL;@>219t+yz{sZfWy@j3XP6zBI3(m`7-MQ!UOO3?#*o;^gP5{fcRyCb&gm@P;)6fal|}Z zf8~ilbzRJL73BbSo&~l<_h*S*WS8w))9dy-)44(cR5z;u_TTxReuuY5=jDayu`A@~ zB}gn$>P}*qfQpaihV${x0SCMH=rB18Y`s&kgl1Ph~{IhLt9Pno6|Q6`)&OSxI`G#@sTB8xwN@G`6CX zO~vs|&TvWO4*}*CpARh3W0-o5!d)5+{xvWDbc)@;UOqBxR^Xjfskh30Wq0rJ*6pXBe(?5tPd;_?#_bz7Z&~nwt%2R>qbhA|9{K%Q zsWB+lM{aLs*N5f)tT8#N^tXzQzS|n)+$wS7aoX!6k#6Y)+U!lIFnyWB%dPR&;pNWkG9ime zbS@TsCwf3&Q|}OXr|{FC{d}RYuhP5Y90Kp=(#3KWS_V#r@sfazsQd{1iC$Ho9c))r zRM8z+Gx(-YVMOA`5!cPCFA!ii*bc&LHCSe0yVIm7n9J?F*oVN5 z=pI_a*iL+Mt2v7m%BW!VRJl#rniI^{RH4Rfn}GJXm^-Op3aEaCSSE*oH{5PmLm!s+%fiYp5d+N(_H zJ;)0E>D$5fFfD`2Qmy7egBMR!%m&+)ka-Ji=Zcte>vb7M_32dbP`QXkrPvO{0gb=%|8QlMjg^($Z1?ip@}ANarr)G3dvM2T{cnB(Ek|C68Rs4xBN zFR}jGum0LszWf#K5vr;A{onijTX%2ijTLHx=6JiaxlN2m=31ziFD$R=Ps$1CZLkG` zNbmlSKJi&a_;h+|9*u(KwQx&^F=J?8phe}qoO~#6(67lj|H^;&3fs?q=CkTJ!&Z^) zvp@Y=Jr!nGII9!s7acvusJioO|MqLY{V#rd-lGE{{I|dO+t`Zh9$LFrgZe{_o3M)H zOVvHxvpz4cPTtAKlag&Y4_KozV@}R@!i?J`YW$~@+Us|{0q*n;XTbY5^?cbdtdG`!HF?}x2cqqB1$T4Mc^ zv77t(o4@%Rv!!5`lh^r8t<1Js_2Ed#*Pwd@JVVP@zVsEd>al1)wI-Gi$mG~CyOoDJ z3#?VY@r`eo%PkcC?_lBdOkVUP?|JWg^tAu-_x|NKzWxofhHl}JqIq@-^ua&+*MG!H zLC?na`t^PI<5tt(*_$+5HS)RWPxK3O=j@@iuo_jGxrQ0?;5-Pz0E=PHY=$|ygZ2w< z9{n2pp$_q3*Kcza62e>(K>PMT{wxn}uB8R7$?O{z1u%!q0A_>u>UhnI>%6Su!pY2R zo~4>b0-IeZ`?&XGY?+68cS^AOgndIWKwbjmiFPLLu-NvlujVodqDtbON>WO4n4rxh zwCF0a%Ls-P~ z;aML%^#EWu*v>$SQ$!>n`iMuOCkI_Ya^Rf;sLreS+E=BZGK|4?2*h~a%6bp=aooS6 zI$P<#-~6Vax-LPsH9bG}59z>%&X7^sTLE@f{R#%#>9Cwu4~(Y@Sm)At(ASW|S9b#J zT7V@0;W-dgXW`X>?Z5vAzt74!fp^*iD`naKr#FCiZ655=7yf1l|CfLDm(=;o|3kJc zr?DMQ22^JYX6ns=?W{_k>ruKj?Ln)t1>Ttvn?Fs9RfIQxQZS9mRQ5dbN3Ro+O80zA zY&Y{hbB1u?Er8wJhCT(9CI^1%CqKn40qkLHXMmv9g&*0J|KczHLLdJ>e)B(S?^AeJ z`jivixwTiY?RLXE+8E=)Tx4)zlS-YavYMAxo* zcCA8wHM>~IL)1$aK5TGMwTj#9e9{qq7R(46eOQ9*8kv!a=IvC-on-qh!c1Xjn00E1 z^znitf;x6N%mEtZ?o3BR%>4! z?>uPruJ%S(+k>M@d&jAf-DxZ5wxM8&WrwC9&_PQNGY_SGdETS{`VEC0KptR+Z292# zeUSC_-+EnF(=PyaKDSo>&ENb@kWFz0kfE@I9+-Y8mB_KZh!Wl{H(5kJbJDVefUE`wYjlex>(OR-K;l? z7V3#|dp%nzREm=`r5ng{aTcYYScYw#k4geL2?pIV-BvDjn3)(MWJO1Je zX6wh$wL81H`uNc`$s zw}-Jkd?%)?^`~1Suo1Hj{qxqXTiOxATj1SHY5;kSerDbz1ynYCXi(k2J94{O^om-a z?t|_z$YF&6WP%75IFOZ&z(=uN;r)Hz{XShmc)m4+4A{;VR7bDGmimhA)L(dM8MlcskM2}# zM`&jS)lHvL>u$D&lj-hUCRUJLZQ9a<)4)4a4Djw+F7S@rt`&64n1}@(iYKSpX!vu@CNK`b z>Z(G!Zozidb?UL0zY;CPoQ<0Y+kte2_YeNS2f6=W_}nk(QvmG1yH+MrceP$^b(`dV z)IHi$xFYXOrFVVjx;66Hcx#W`t60di`;%;8ZbX6H9>#X0cdm%UuB+i>D3I$}FZ8AV znj*bcBOB2iE*HS;DUMS40N+FS)}H}}ltXwR6(sD%uu z7^XG!kOin$xgCVp;f$Bh70u01;C}QebZfAkf)XrTM71#H*efE{E@RS&C=DMiLObes`*S0bh3fV$oJlopb*?!`g zC!cus$s5nzA0F+Os+HbwbnW)-&FL0FY5Kh$k#y_r4nA6Vox|i47!U_r0)3zkkT3_i z5*B-SW|0Ge=%ztP1l&T23ZCM&h*N2vh?kFUPSta4f9#V#rt3>Dy@ZXcuBcS_rnZd;~`5I^dx`!b^SFB%5Tf)svPtF9EmJd0J6`AfaxTk+A6bKMKs)vP# zrL&(WsKUnFj**&*&$>lzrz$+QDx4Ulp#(Nb#?dtCCHT0&FHaFPTS;%k7yQ&GKXvEk zd;rpFZ?>iNntR5sDf~{%ehTLP7YgAaAdI(kJ>&uHhJW<0{z!kKpnVE|C|1R7Zmd7* z!vD8hm2S6gyJV}L3mYWV=9Z|yR$DSPR@RodZS`HB?t=rlWq8wYMI0T z!N>mrO-{E)F=`I^_{TpE6zKi4lWU=iH@{M#dFY=|DA3e={PX;W?oaqRbc=8>^F?V5 zu$_g^O?-iR)$R1a_GPpl*lMQWF^E*g)W?#99H%c_OW5-7@Ji zvKYyrQ}xR(f;!V@rU}Umyyiv5H_VE*)t`7oP^ho1Sz6UkWFPs)2=80>1N@J(EVBU(?GKT>@3W}47_Ux zS-^JVnn$KTLZ%aZz-f*3B-%dNYC(6NxvlmlU@`(fnU4r)O1=Q%UzwU=Y0&IEUFaU& zb6X>5_DeWCWC|o-BNQ!Jfd~V-P#J_b-NF21kbt~m zyKVt?R!k1G8cZS~{IslQ?Z7*og*^bf?mrXWN4wiCEH3xArnC9m3uC(+etgWgFsqSN zC$s(Da9VE<{Ax2>m@`P!4~O_ukXLv&pIC23w*Whf%GJ6J;}~67L4$1=+ktf62J4yF z4y#3oGv<{9tkbI)Jk&qm4BL_E5c0^}ed#2cF-;d3=O{&WJzV#I>cG41VT-7S;sPz2 z*~5qCa2DFF!FKbjDVSK1>@m%i0{0AfDt_u)(k*+;<0z!R`gySeWu>66Mdgs!f<=i7 z6>*JGD=!vES9t&KzXR|3K_fDmd%$0*-fZ@I^-i~rt1T&|^qvj2FSO)0!}bQcI zXY{`Xy23hGdYx z#Aw32e+_v#OO(_+1~8>&yN$yvGC9D`nw9uTty;a=?sQ;ZWP))1ar~$7+6CY-!X)Su z?ydxc9Zh5^e zf{+tPoX9~Kx5u*Nh9+Vd=B9Jeap90N|D6?k3YKeY_Jo1Fybz~}w;^UrTz+21*sZtqRZPdFwLR`CLf zpLa1jE0 z0koW3MD7%^c+oHtzX<&ZrkJmCIwapOlD75uw?8gUv3!5W~@6FeD5+CxnL~H9YrEbUebI3gsjP@z>xE z5jn|nUMl;Ot)t!jTQ9%&eee6g_qNB=RMAh{<%H!xG63dayF~X&W(nMf)nBgMKnu&8 zkw~q?-xfg23alkED<{zx7oLt!!#sLn=jlKB7%D3&wtwXBeMGUH=BLvY;0fKz4cUvK$O*P|L|t6L}2F(p%*YfLW!_&IDZnC zhR9=tnzZX}uRp_b^3Hpn96$N4NUWB18u@ZBnwA_u`rw>IJeY{GixCw8#7>lY;nQAR znoE^tXR?q#dh(g$2hWc7XQc1Z{p#EJEwP=?O2`azs&A*jB!#eco4d2S&p&f;Wp8t9 zF1PEkO31v$d3vKQyxwZfZfCGrAbg%bw~>2`L-Z#M7cQ>;ErvWjO5cM@q_hnrc4!#` zWd_)(%!~LikUBU9lbMT|3mb1MHk(0oxfS^t39s1L+_KI>BUsAV&e->;@Fgb=vhlr4v(ibj*W{zJaxTIkF(o$rNRE!MWM3NDKABG1N zE8*Lj4G{KKZ0OO{in3Ph>A_x+=7}37aVnS3#CC~l0ed3G(u78cW6d6bQV>sOWewYL z;y}U$!NAmdec~SAcf(29g`uWpm+Fo7V7S@q^&7QDx$JYp)FcBB!F+{zlHhofiHXsJ z0YeRJqCpljT%Za?*Dlreu3x|T;JFN81nNC8&dEDTtBi>bnF{hwnTMwb0rf-=OBb;Y zEhht(hTyty@d?aN2vMhXN&HF#!v2kSnQB^qviOl7p7XbuVX*V5dr#3e*lLC0?mlKk zDW^p=vvnN4u(%Fl$m4>GUpy%%n4ybqf^ZEoPme;1wI?&LH`}~?9f}D<)5g{nVqF#_ zE|E{9&D9O)GP0;hm`Xl8+KosY?TuY1d$lfcbv8@Y{r>(FjnTBX`%qd&=IVBYO+1t zJ>JDspi+NmUmd<&Z@d-$lQKp!{mHC1ngZ<8or6ZFPn~M3H<)Y_|G!deV58zy&whkh zIx7vBiDckd?YDZZ;g(hQ#peQn2#qq)ePd(+SSQ*SHpUB=)<56<^1IQ#o%vG|QKs4m z3+-oCJH3e460N^rJ4Xg=DW4RLqc zlpR9|JrD&YVOKy+TrSr)Qbhj?zq)YwV5c+aRx#Zl;4x03c<_z>JVVX_G^06@}P$+<)rY0cW5CIAdstQp8- z*<`wi=`SAHNPXn3BPI|b-3b$nRWPFlEDh2=SR1}iEz{1qL$V|j0W26>2spZf@1XQ#>al(MNx~F!^&(;Ft+`6^^qrr% z$8R4ND~E3VI8i9WNAbxZ+qndaRFX{-S)B0rfo1I)6EDVlzFNE9#M>_x@5M3`x4zk^ zHwoj$XuP#|ZTs?-(ayG0D(;L2XI}2ioy_2nCGyouvGunmMrizxtvzPWR-wRgxm-8~>^Xt@5jEF&OY#EXO=t3-+<9W*gW z{pNWD9rAHRHb{)hSgeLFXmH-_Y{2{JpGYc+SyyjoFB}FztLa?+^dV-ChQgNUsBa!x z$5aj%uujWn=ku)7t(uyEB1T8%5QA(6+c5*proK~mWXrUimGj+b5LLsnOi4xrxAvvC>JL7u~AY(ngwu;5eC6Kz1&$`9z z_GWv~C7T?)3U=QFU_slmW)<^|nk`guE=!U zV^XFE(#?18zdWApnDZ3PjMd7Q$Jt^pnX6}u zovbrRTMcAyQCL92MU(aJwA$NiOs?D2S##^|`06{`d(U)dcUqI9qW`ypDee$8u0PyM z5d9usU4pm6oiTG@DuKA*R=_d#;8w;IX?c0AyLJ8W$~$*=4!n}zZWBehhf{W^-yck; z{qcA>8QHGgt@^`yO`rY!Cy9zEsL>1iQICc(gj9}^M7&V-i|vP^^4;6Q(0gmuHX(2$(nRx>k`CUKn1M)u+iHh>+0cQ%^g!JJQ!o4&^j>H zs3TPusoKobH;^ura+x`weEL`RfQqO01MC`CC#(d~YJfbDu0lIo+Pqm6u}`1v^d1F& zI+wybeeiT0x<~|7Ki9hj!TkO_!F!c z371${k7f|kKwzY6A;HOTv9_Ad3bR<3AcgQ1lIU5W9|QOGb#j6*WgxsT2}0?J*sTy8 zfI2ug5pYHXW@Psjkdv5lmm(WdR#F`h#fb?n1Zo6FPo@Hdcq9m467f74CGr>n6-8W6 zXoiRsWdga&1Ru71El%Jsuw4QRZ$yxwPd_H;kVvH9f1O$b@gBV=){7uKEBFkk1NG<5 zT|{n|!s8O*3YLa0fL;J3_bZKj!D3RtZID%!Fp~VpD6~wrJA9X9$PzCn;dRIx!U&N} ztm3ki5AO%nbyZ;3nVn+0mg!|+ zJBKK?n`4QBIJ)yfyEhkE5ki>pv4x5O)!DMrv_N%j>IUD4W105at(_a|Nz8SKga$1` zJOt9}+3}2L*RQlUU#Ru(70R=mGwJPqM|*s`Ik|D|!Mpex1z1<@WCkhkEw3}FOR=urWcie61`GItWceZNN$d;8`V$nL0 zRFX_ESx!=)PdXq)S@{)A(*^4qJr!HUH$4`cG0c9KR@UI?P&5#?f%pR?CuG_=oNQwZ zGu=6yZ0)g?!t4OF2jl|-$YFQ13AT4f50$WbS8&Ccdg=4bui;=o;e**_lW#gS~>@x!IDlGg}*Y!#!NS zCC6{cA08Z`meLAnOBL01t0pCE!FEucHEeN5&;X|Mv6G0Pd~0M6v#1S^L3nIC%{`<~ zLJgQbz|wnOe#!j#w<@67M4O=SPC;9{ZV}oSPKCK0F5?S3&7TN%v|E6k1)<&S*Mf0# z;N%NGE&Qq2&Z)j-&4mL|V->6nSu+;)f6G5@2FwgLEOGJ7j1gTnMnZPJFw{00Pq3Yd z046JtBm{nxq#0I02v1~Y5FTuIi)37qGmxU(%A-zY{PoDwK`w3R_9(8VX`#d=7WyT| zbZ8fX{sM`xI;oUo)5ad2Apl4R=Rsp=uC*_Q*B%l$4z_=t1+mO6f%i2cA8e2c z2ju{sr^|5ZV0cV;;}nx$iJ?HN#m+|3KS>2q{)*hr?Mo0&8SlvSok~|oauy3^jSio-y-lxmxz;^w46nsf%#u80S3M^HP8ZYl2Y=uPmFm|a2Gl}f zWVBrw>{Q(*;~?fkgrni3V?adAG_(>#Z(EPy5dhVX`PJ%`8}HeD;s^Jh`$%=`S(F;I zOu{Mq)i%lG^OjSsw@7!`C(qBI3$L%Yq4Q@ zJqpDZ>mLRSkHEh`ggP$aL1t|1sSKsJp0XJeA7_$l`H@tS{3bjCji*1}+S)zZ-oL^M z0~28T{ut36U+3+E>F(id{}7=ac-M>4@%fsVvVh?RLiyY*dOv(YlU`(vyztnI+HSh! zB?=zQ9)2LA{y`3rEGL*7rSLT%rxF4@^8E1d5V46!tFRv=Um&$5|I_!FebW`=MURB; zB={yFafKPiwVU)iy(_+ywjAB^CkuYB_;VS)0^rih$XaxYcxg^;@gNLIfBEnKQr&#? zDcB;18`ow%kdPxdt^3s)b8%wzH7b>g=Y8nIKcv6Xmb3uUqRP|q>8;`?!5)bWX6}sw z^vI__CB2EQvNz#lvD1K+g>Xo$M>2`|h^7^|&x73q8UPKLJ%$V7n`;GHh0b3-^OK)p z4WE{>k)6zb{lxkw77;)JuIpd?=U-$?Kp38mo7cr0LV*zOoz7ftH_u2ltwSU?3c6pn zx*t(o3=Y$xvV>(NCDf%QcrmMci&iFgbnpTs&+f`}!sv_Aveq3ekXS8I2?W>*r^ zBr=Q$7;Ij+fP96!6W2^!IKM7T%z6yQC?H!z4HS#R=SQJvXrkD?zzf0H^Dvk(UGj>ROv&Pa!Lfon~7jxsrm>`_NoZg|Z;sWbIev*lCj2Q_;Z3I_HS-T`)c zhr#yQ){GU5*Iu@O?V^H=MMuX^x%Ih9T?HiIg8F~(`+uNEDYUC|qQQ2zGfUb&(adlQ zU5=nR6`iR>?phWRn%R@avx3eg?JS`h`_t{}V0z>2FJnS_@Z<|SH}6l5ZWA-XZ%>oC z`N(3h-8`eR{cPtF>2vcAOB7AJ(W`DA6NVcj9Myd%vyu%KKLRF1@l1|(n9ZaoTbGZY zc>nD33t5XKl-2z!w;|Ay$&~A3t2!i@PrpYJ7;oI`6bo|%0MgA0u#46#KzODzta@)K zZTY-W0y>}M^i&iAVCmO?_U{Db>BTC*Q{ev1L)qQ^Qtu#=v6=eC3w|VB#4QfRJwYWq z{Rz5J=sgggEo6JZx9=-CBY#e3!|C>THg~hqj?ecpz|Ply<-dIeY}YMc&|o`G6Q~JN zmcu|8FSseUg{kf1Bp`^Vu_Fc2S12$XFOxx!nNYMfo1qgS+7t9E-X-{#5auIhIi!In zDH&21CdQKSG8QYiKGE;#clwOngSH&qg6g{BrAy1y=_HV%m66+-$tL|xb1cBF!zl2s zZxz5~QAhX8J_q+5w2HT-)@oyxaIJ7a67M5%DKIBZT zW^hlj{l`A>W4eOvh}^nW0!RCo9(5l5Gu{nRQUynFjntiN^=?6R+JM=q1q`vZfY-AY z0QP&g1!GyT7}3I+TfVR208qdRsxwvs@2uhXOdBwVSF7dyt)BkLGlJ?oAVk#`IB*k0?=Q=f?=6R=;=sO zVk#2eM;I6cd))RRE!P?M(?rVZb;$mT&k@$5Xy3>k!n;6}hr{AOlnbOoOJ=I=0ZLW;o-SX#)tPL^ zi*w}~6M6lbY|VXAFp3rZ;`)=eJ-U@HfP5gn$wnIhz`lU(SgaA6ez3i@eK^&V(28_< zq|KZqw^t|o(R`WAtw>xXrD7$^8|%_4<0&ySC4H*So_PODtLva~cjxNt`dz%QhR630 zZr&R1UH0%jE*F`6>DB3vD(CF1~0U&C9c*0lU)XZx6JgG~Q0fK25aGB0NGCEN+{ zQX`5oeDSbT-yZe$_m0bcuQlF0xP8a=d_*1O&{k)>vwwB}@Vb@Hd!=ICCqKZve<`r* zd|aa_fbA3jc6?g(HqZni(;{z>V@CHFY^RHX?W~CFpgLQm_b|4*lWWbxr{cvLA>7kW zn`n^0J4{F+n;VR`Mq9fA?^x0Vz|L0xWQz?XoJ?;#Wz~y@v0cAA5fAv{&@!j7oea6G z06QQb&zDGOo-IS}S)}S?2u7q|LH=R#OYee<$z|PE%W1Xn9$CW!lo8Z&2_Z^FhC%&AQ2)Z(&?DL!wi^T zsQ~nWd!V}Nl_)5xhvjypcLjM4Bz6e~Mf7CMG7M-#htdYPTPm1ltXE;nRkUodov_13 zZbv_8YHH!&VE&1jl(Ep$RfYuUpwEgIZuc!?+V=N`Qhln?tjJE+WX>#3SIJg?zrAOry*d5k*(t z666dE7ug_WTZ9&99bda+SKAqXK0h@#X|Nrh#Oz!sC?{ipoo1<&jQRLPG@{Jb$lm!< zCyD4hJ!qcr?I+Ma&!M2lBC+d40E{;mEjA{|oMHo+Dv?z-uxLszug4)>Ny!>udnQQF zE!Lz+^*P%iBK`4G??6OpZeQQLa$|Po*sV8FyWq2{rwwB}k`KVH*v^&;hLEA`b*Fi^ zGCaD`nH@346CjbWp_#l(&W;Q|s_6m)Xw5Aij=SSt!>?73ZasbP`R^bsws^c{ae@NLlYf2Y~7VP0YVp*4DHFx51*=&iO%gC|(dAp`9M2tATV=h~;v0 zSA4@EXPEEnsk8x@>xK&$hB2V%9>d9mu^ls7ui{Te&Ep_F$5Z#O93IWh8~C^^9Bbem zU^lDj-4q_dcDvB(%r!wgATJ+yX93v5*bclSx3lWK;n0e$i|1Nst|Utl7K37bwn4xj zX5|d!7_{L2pU?u<&veM5gAY;4Di!dhlCeJ${eLKX^BBpp z>&y@A>RK`@m&n*7-o8e>*w>86$bG5Gs;ug&>RNhVxTvWXo0}+#5=BYFfoMtsH5!jG z7?~Q*P~b?S#gR;dHbFoG+B5_igxWNOp-qepSbz*zfB-`JM*v~Sfc?91B5y@!7JD>- zSFdioeDUJF7x#Vl+;hJ3ol6TVcz2gz7#5&U6qU1mTG)C@J0w49%{16K|6{N{Q)%^# zuo2aoVEfdeiVrD`@8t>!cUMsNh0O>XlNp8bL7n0}#=T0p;^0NgMx&3nRFQ}B4QrTd zhXVsupY6yzp2olrVtnpfpu z=3(!xKuuS?bi%1c*ybwpNO@+Iw}F{HIb43d-`l?pbrYLE?v3N&UOe0msucn!a#%0{ z-Wm&UDcw#iQZH=Lvurz=_{|%6v+vgqi?+%&z*Ai?03Q^UU7{w4JLc1=tzKhu&}ep> zHy*um{NR=DZ~!b(1d=%u6pxLq!|S&n+wZJ8@U7%9mG#cPGi=3*` zFTHvd|1-JJvPEWCBq55yPveWf{Y93Cj~)V0ga~CfuYcfl_Wk}rK5Va*yhZL&(1Ikx zEi%i-`o`{fb8ln&fJI`dxY=>GgY7inw+|=Vz`ORzoZ+0y-P2++Xb#LrEpsIsc*lY% zdSQellOIY>!GH!O2Ub>v7nnHo_MN;>YR>_S@UPQ%TyD{+lTbWXs z+4wa7d$nkJJS+egKnJr@u8}oh!VAmVA$6DV9y(eZr*q-%gTq*1a?KDu0=}V*l zC`BrZe3r64IBD@AC^rI6bw0;q4!aC_QhHt43D>eFMm36l1P0OGRFICT39gekdCH&E zr@`5Z?(SE9_bV)jAJX~ZA<%$ABfIHFigHh02-d--z_OFS-hXhPL0sCO`Nhw$=!4VX zd6&10AkskELj2ymWwPHL41CWxIKBq*9UN}PK%|oQTimgOH)yVKV%CHJ_WymhfY`)Y^>Eo%RvaFj9Uh~g-e64$eIz6HI(#~ zwF0sdn9pF^!U{QwR5HT(2}mNuQotuewN?bYu+~6k;2mUc)ZN~2v08kJ@XcrTO<#h+V7zws&yC=GK4JZG=~*ui-$ zcHYv)xM$X~rpS;G8qsV7%vE+IUOi>B1N9K`DZsk2npbuGY&sVX9AXoSZl6k}QJm)r zDAyiU95292zluE^)G41vnvy=fCpO5!W|{vJL%bk6<{ZD>x4-@E>BFJq{+JB1(9qaU z)+c`BOu=@eh8#p=JCIJ_<|VvGF`>nNX3w18?d{%Zk0xkl=A0@&+0yh^8$COkB_9d4!`#!@ z4yp^h&trQyzUlT3Yg;G9u#+waR6fl*HJDM$Yem;I`%|9GaH8yXz+B9AS@U*%vID9^ ziNti5(_l?L5sM6nyp@CHnL%Zl+TvGd$`u!t zfs~?Ni5XQolW}un41*o=sOfs)a4(!(W2#&Tnpiw2xhh2$)rAOlxzv%@XN8G4MRx`7 zvJqg%_7)RV??wZ!J+75-=b>y=NHymZmfj1t^H+eKV}AX=o;eU;VNajAG$P)Lx0i;D zooWoXlHp#-rn=X5!3>$shjCmeq626vnl>+dtYr$4&*F^wOn4{++gS^?i@YtINd|O{ z>ast6MaW&4W;lxpF6)Cx=$yAq@%9h)=iyz)Qs=Q9c$d$DRRn`-Rkt%5!~feqoV0s0 z>KYHYVEgXwuJE<^2j%-I6so5L9OiYaTb*UpJB@ zz>|U!7a69|TBcqXHO*0$^U_iteXUiT5{0!KrReNS%cX_o(v`(5^ogYvq#W_dn8;XS zt~1u7{X!LK=6DEb@#vd2wc$|5B2upwI{a#;2=N=oOFp|=35`w@XK5Zc4mjU#1tp5$ zLbg<#94us1vyfF+8SY^FYOcrtL0na!n2b}#Zf-BbH$mPf#!|srJ5G$CW(5^!kaT>k zL73?P`_q?jE47~`_YhuwnRDcZH1 zk)#WL*?%{~Uf^A@T^-9XlEYht%| zGG^d5$98?ltya=5D%e2*qarK{00aYm>c~Y?9sSHzgz1vb;P|DVbfRi0YDWF7y$7$3 z_Yd=yM}nk2xLBTGJFoq{eNdg=D;-$xv%Y)Kne5?`Q_>a7OO(sB%`$O#-*bBXUbSAM zUaeis^}4OQufFfKw|?oxpZtZ%&aPpao@0@V5m&lJ!=7v({lriG^sPJ3c|k-qY%9%DR5WGXUjaJ;!8ZIHRm+Y!_lSYff9>owdfaVB@yaJBY`}cxDJ+W{P$p z>fy@*+bI^WAbn$pKq{0N)~W#$a!ZjR6}I!&O|^`+cJ!%A;C&VhYZ?k9|K+Tq2&#+w4s1u-R6cdy zZkIBD`j~E|j)k#*Z6CN8j7fBu1((IfU^i6Y1ltAJ!S;>GhCCVq@7np+?xOhZ*k-|x ze0_X@cL8?UpFe3-m))v~2UUg|cEm9Ob7g`m;anB>1l7Q=bhZp7ZF#l0nl@L`BxRJ9 z?$&Z4ok4t{gs?E*idP4E4D>20YY@Y3v>GVmqJfkz82|+)H`SG}ADH7q5ws{)SIkgc zDGV$MXDe1rE**xJ>*8il8RO(wK2LZV&>8Eg%PZeJ;LP5Vo)elt~N$D6YF8aQY zs~>S;eaX6k4<9~W(Fv@mPL4m_o{1+&{+_28oJp^sWD+r51@cgCSc^{vw8vn?1jkk< zA!`|7gEfNZc&75O?YTd|JAYCr1SKVnPu(lqN-=;(0$&pvS0r%NTOFcQ?e#6wZD;aP z(Q6g_4n8^*<4Mm!aWPeP@NAZ;mC0;~Fy36vYkmH@0gM3bPsDcic?Y&DVu_2(-w0C#D&=`4i45UfS)_{h zo+HDB`04eRK8QfA(;N+NJfJ9ca|lVsu%nq{ke(*k&RVct!#llEzM2^;#+b5~7*D5x zJdAeNGWND7&)ht&#IZ`H$>(a-X!G#eDyj;=A<_z@HTixM} zle>q9C*8q>2_B?(CXo6b{zn^TwPrP1UVr4C(nrB|Jfb-BHMRrkJbLod2dwVDYSkz8 z!K zTc$DDNf1_v_*|q)G4XD6BFLtwtH~)`P$Hpr7-JMIrAvs{rSgR=YIr=Nl*g&n{G@6} z6}wVJDg_$OTPN_y4C;lC!^bnazmwLia=rt zEiRhPZT%;(U4LA>F(5n*P@M(qUH0U0BfN{D7=%7}4tIh%K66GU?<};D#OAEq%RSz(5S9={&5XVVc16$BE=Jpq}x;-UFBG!Jq%9fe`EiB=wC@x&h5iMkL z1i#&JEV583W(s5@I6%Fd4U}z~HALx)hJ`lN&w~=Zu&rK*S+Q7UKE&D}vU7 z8EwUN$aQ7MHN9|((qt+r_lq*ur`#B^-r@6u_M|4knIVqM@P?7kSVcW4v<;bkkamha zkEe+3)1WHh0Maw@3-N?8yoG4AG6e89WOAZv8lMdd=ijzk4Uv{e4Fx0AF!{Fc}`nCmRkkmMTH%#P*q*NO<< zRGC>6+<5+mfU!JEg#ToDWBQr~A!pJ2-Fq)rx9@t*ac#I8wgvz@?ibdeIt{q3*zm;T zu-KAJ4-Z*(cCB8z?8eV^3L`@@Vz;c0QuD|{BpZmNlaDg7qy$%i!^ghy< z`n4_-NHdLcuhrPy+T0kAaRK2fVH%FL)*fwcA3YOQyQH@a5I9o6b`?v-#?CzM zz4QAE$VO)Na6i;j4TZ52t}5k)oKlmM31oSjiM#IXprC0`3KsYt`%bkFMV! zA9;Hp=G0Mdw4SsmLwpw7g`x=pfAtT(Dr>x3XNJp?Fqe{v@AoTJ7g*`oQ&{Oua7!<9~v*b@B;S%Q-S?i@ahQNh>i2R z>2{-8t#?{wqu6T1t>!!Yy0=fuspy@5Tw`^4k)lS~)N+P=5heO_5w9slM$7E{qjCr3eqylK5b6c(^-^;{bm_1e_dF#~92LbK!jMvAppM`g#ynwDqEZ-4CCew$nk$(7(O%LT*4snO zef&j4Sg&BkLFcnV0+BPo;YfRjOEJ8!98#Gq%#Eqy}(c3z-5@XkgWaOyO?%Wj)D?pR4L?>AdJ*9%@% z={)4oc_=|p;mMssdVwe*3+<`-gknKJ%+Lo_)!S8)}LT-{Q0uw*HEDZ&0G;@&d(PXMO3>v&wrZz^N~H|R#1D$DPXb9W-1i5&1=oimbcN~a;$j*LYyBwa#o*^!#>nJn zKACqvEB#k~9iEC+=FC|$?asof`mZzu+gSteOhq-ti$9eOW(=x&W}?c2f;b=#BL?&3 ztO~I){4l{IJ_kmif@0Zs?myVwyMFuG=f*pPEheM!L9e%CIgkB;`g=i6Q2p)y`E6MM z_OsYdl^`b3DtjG@;3YEAFDU20Reb~+QZG+$!9y!;=Ecm8rDG6q*E`UtCE@YO5fhF1 zjR3pGb_w6e=);=Za^}SNV5?E_e7Dw2$p4Q*yM_s0dk4JFAAG*8{gAQ|7Z$^BI-QqA z{Zd@-74VFpYKn>ym#*UdE-3aR{&qSCvCmSDVv&wd0u+XTdO8~o5{BY#ryBSkBpK$6 zPhUpb0xf8`fon)K*DE+{>0(y3##95rZ#tc2*`)ZFvUvpCQ)HcEv_Ez6B3h15Us*&1 zhSTD+I73(ivzYA{$;Mb!?hyi*j0N)-C2jtyY-$(zrkWQgmSdwcwm^0XgG4FhMA8{M zS3un>DU@sZVwB58g>q6dDkUQp8sNWdwm4jJRzjC@3foARR+FKX_{p5tdTQ8%6Tq0#r6T z#FZf$?>vPhkZ=NWA!4)(wgd0-!g|+sJ43&|eB^dHRsEKTlDx#vDKlb4k)Oglrn~Iv z)cST~(%RfRe&Ky?YaJCq;9bd@!EDDBqwID9E@}<)T=`@ae&2ZBDZP-Em?IEDKw1;y3cSf< zvNuO)I>15^$!82qB!im6&BJFNzWm0Aov;c<5M#@p#!~rearv?au?4i{d`L6YnTA*h z`1#;R$)AV-N@L!Ibq3qBcEj!-Wvs*>ow(~KgzwE{Sgvg%mPHi4-E1lU$!N1u?+`6* z^aeyQqZ(nChzW)3`4~o7!zTHHgh2VOlj9Q>Ma-T`wah!*WCzy#DCp6lnuhk>1u{;F z6DsUdwI8lrwd`3m7=?pEf=B|WaVnB?I#IgJ~Ie&CdGRX!v1#A zbxHe0tN@=3T{>e0h)xq|%N6|9HA8n&cMB_M2&T&MQX#mU zDyGfKyil-UyV&hhN8@97r_?5MR%jKYK~trXkcSSiW4+U$6H@J<1U`@?u9UCPf{`@Hp@FBQW^8*dC;H)H^@A>Z>f z$@6DDy}&!>iX5ET@$6fs6<(xG_c#OZvR$tQ*zx>}e-CWecDq>b=f@pBTdla)4kuAk zB`Vrzzk?JiMa`aQy$iPMuO>J_SCLUtr4Av)j&>I`ZxEH#mDSv0s+P6;Uk<&c5; z$jHFhkbz@BC`uK^mSl6~-&T=J&POq1_z4s_bB*K%l}n2pJI}bj1l_j zxZ^P0nYhU*skkbUCt{8We`9SkH|TEEIwN=nyGM6&1*@~Z1H%%1GN@?qPYQ~G92eaH zXDoA>#kD+Mdc`#*%B-}?;UVYnBQXzvsG!S0Pi^*@-F^z~Gv|!BXy_i=ba#?2=caFh z-e1SCXvjuEc-hmaZ8mmq6Jp!E`(k5bkNg*?d3EL2gm%BUT4ql9AZlo zXLWI)b-}@DZ^idI25*WKH_f?{y;b-dCR8^ z*=oVWZa3;fbP{051Ml?-Hhcy1DekY6_M6E8@3XW!8Q@r}Wva#l!t3*SjCc$sm_3B7 zir!MrT_hyuw-FT8dkU&U!)7^y?L7X_?O^LQ>H$;=93x;6D8#eLSjGk{YUb)#SVX{+Km1amw5);84v+>{+bUB_)fj@5^ zEM&njjY!ggu0|MQC1)y1;nE85brm8?wv0Vb16PuY+MgCnC51s2Fj)#Io@oHrI&IL5 znix3p6XST%*e(qz{;S(GbZ788yUq3Svu}Lt=5sF+YXc$xbG++BRE6R`^~~UY$G?ga zKGPY)R?1qvxVLeIG}YFmy?fKE_ZVvBm~=dj&zM9xY^jJXy;tlL{k^&Y*Lv&tUZ-Ab zCDs1UjVdN(XUv@;e+_IWvV+J~Fxaz`zEy2_NhhyThO;Pc^#^-lGN?93_nv)zvU~LU z2i|(_<@b_V5O_0E!FT`ky8+S_24;uTNv3 zZ&G^ZjW_3Y8@L3;s$!nSoYt(al-?2a;jhFB8D5z!vevzthFm+ecJw^SFp#%;&4URj zF$q^Q^eNyHb|;v!xx3pQ3_9z`utu-D;7@vdvAYFtLxvmzTF?R5m3P$)mxvr?hygT0AOffXL&&f zdh4g&`jbEXli&KS-XZaRhG^O#)07v16=vu}_ZHX6!24pVaCtdL zCOG^UWZUT&giQfCIO@ehE~-S$Cb{Ph1Vt>^%U6*YrJ93c$QOzQ$IMgRqh1fYy?Uz| zk$c2b>$$~x;-mVm5?C{c44623F-Y)BDBp-mPIR#tRp>vJQ!*nK-X4>livtG_3HICh zdyYc}bxKSWRmwAJdX2UbR^ToI>3}(qF4ss`1Uhi;v5{Vcseq9HrJuAZ*znW3ehAz+ z_;?8t;+A2Wi;Iex@D$#m$`IWz77gaYQB)r`2ixQQ+s6-I$6ROHKmt3Hb4BXG|61^j z0IG~{_)Lerm0S@|J6(qzRURmbLgb-PB(!MZ>&_GnCJ1s-`YAa54gWvtZRs`*dIc}p znOH4RPHCUV_W4iI<~aJkx!uF9o6p>R?TyXj6CowN8Zu_)dlTg z1rtB5_9xhfW->^|2h_y_BJ?r&ig~bNjx1@6m=Jm&t?1&^(ah|dL3OzOg!w*`HIyi< z#=74a`Hg|s8o5#3Fdc~4Br6R!pXu+Oki!4q`8PiF=BJNu+{GEv?9BYV=dqo$`rY4C z`VTrckn@31M{k!Cd-bJP*+<$sw4u+Lh8_{-H|jPP2%alsDv6d7MI~`*|Juz)cijpS z+;r{U#%QuT+1TrKagFa3N~G+~<_q(;OWHsas4nvbJ!=?l?R#OfQtMS~eJ>;tHM?3e zs4TKd7(Px4ZjiSrIBP1Y0V_^3VGLXOplKxP5r7p8Wsr)rYld5{H1WgJKM`WpCoc`W zG0@@kM!^c!ESwnduCX0{p#BjtOJLT)u_#7QaJF+aP@Vj&Ct^GFX&7|6T9*E5c{ZUy zV3;ZUinG0V5gzrT0vyp%!*v^98 zUM$&Yequ|*=E9Hz+hJf_O_$dSl!PXEk%w}-((KJ=!YIJo?*%~t!n{%| zS`)Vn`>QB-KJ9u&r5g6S31S7Fi+E&yGE5-P5LAVKgke)e_^1dso^co*_>in~B8_C> z0qod~@bUO7f-T~u!LR;Ae>(;^Ij$9uHZ>!RD1j1yAex%x;p{FTM6a|9@WV*p z2ArosoP6Ob1pX2kQ#kh+t&A`!`U%s2x)$&buq&U8s=+}ZmB|g|E^AS(S8I>9jvqaI z^V2{5tN-HU;cLh(5Rg(+Z~6-#%9^F9Mn)3_^@zCPW~cuU!l1{(yFz{hZ4eAF{tC7u zD~!P)KjJ*LYrCDFQrfJi(0+>TRNl><+c_(+UGN!%mv4cXt-o#_+r{yP0ncPvcEE1e zpOP)wX|Im}GK7A(xpPP?RV6EJZ1=}I-O)~OxZUY(_WE1H{`R21HQv~1HoKS^^1-kE zz9K}Od10H0(XO$bN-ib4V)<~?sgq?~P351aOeI-!7IK;urF(C=q;jti5VzutUq`>U z5O<75FKo3OSnl;2oXM>1FbZU#Z#mwoVe2!O##)BwYqk-hoyH1i)!J_NOphN?7Wott zQV=pt@yyD)J|N~g3vZ!tzYDfwxBEU^rPI*EDTSV=75%6S7ZrC7yB*6aUt|O!7Xcn< z1NvikxOIH{-b?R&?@xX7WAdf**v`#l`Xfd=z|IR`*Ng0rq_yg7 zHad^(JZQkXpt>MDzn4ClS~DJxTksF@B+%1{sK9?pt>u-TGl@yKzR6WwD_&UzcFI#C z91%v;Knw8Oi9|S_1z&~4Ql%YgQGm$BEy38T5=)ggMrFHTGn4c~oxOa4-ejq;QsPdD zPis+VRjW=CJB*T-7SJOjF$yEzPG`-0(ItVx@T#VtJR z>DT`G?{xZOLIX-n4A&jkjn6Zvklq5eGeTX#>8b=A7NHXH)g%g0ssn7tA)~}|PO+V& z4}o_?atuV#=Y13JJ)ODZKt~j^#ZF;g;N>R zbMV{Y;lq<5RRQKUf1)!W4w=KtgxUbIQ+{^~A)BDHS+ZvyT8@m*6I9o_QsPt;p9~^h zf(aVi@#j=}n`!(E;fx+n+6(<(t_5ZY4>Yk3ui6PGx1(+7^w)5CK_X==^Mcye?)3pQ zl)amAb=|ZQq^P&AJtLoe7i<^PU3TMVk_Kyy?c$RWco%FJkLVd}=Ogp3d*0%@3mhAr zCc>r^M*zPr&RC&+4VYUowE66%d zu`;s;b$`efT--A9bznP?E^XFW?3|dG?q_~PehyWfk<_AiX18-dAe}`J{*1*=$EJJB zk;yX_vYh@RX<%+qGe=E?k^JFDLL5Gw9&T)G?(AGUzVY0PFaG>5{?f00;WvK$pZw+< zA9_oFmaeXECe97&Tv(4p)v21ncsfC zjkzxH&RYIDgLh;Qrtl87i`_13ZMWaNu{-EiUVL~Xj3d0n^4as)j?vD7TLz!Z{O?s! z-tP_q9VnRNVpdLXv|n;1{9H>I~cs8e8W+V|WFBS_*pvd!Vyg*T4WKp8Z^VUFl9%3Z3d!;?Nl%e#G z>D5+qcF6_OD~8vI8$&WQs9}_MkjOSKUBztXw6dfZVHlskli*K^rznogVI%CUHzx2B z8$RmLCOzl5K+$C&^af-GhLpDD>-ah#4)4bF?-WU~Y z#_{8XUPXD@$2+%Pc;ClA`H%nUCqMsR{FC4Q{onb6|Mv9{ei-|f-l#eyDS~Am%L*1c z1yWbDM6Xo3?iHmliNY#lUO9s{p8t}>hRGg}S`5ivXGVObEKExhKj9siZ(&*oKe;EL zC2eZ{l4)}$EMTUNL9-`wM%f>ik$i-)>C3E3XZ7&GEC!8XsoZ5~xIwkbl_`No^p=P=gry}sdu0=@ORDUa;xwoqWiBgx>ba~q!dDo-OnFln*`U9wru z*Y*9Q8-#{l`q(Fa<`bX#xmR9${r)5JI3LNOSaZT+5&h|({3)a?-V%2F&j0Wo*8KIO zAOEP{lLqrs=-jZ~)T65C8B~*;VLLylenyI3qjfID4DyT|3VRRkhf-ODzeLn`dDflg zzvxVxgVV=&y1)K!zb?=CU;Lkc@i#yG8%845SV4OKovmKKTiMteqq-v-vCLWYZKNSv z=+fFEVo#F&+ueF^*u+9dGYF0`!e8V;(1o(t?I}1bxS-RQmzD`LEW+7SDbUNSXGSGeku=K9vbotyWd;Qic(KJkw}^Pm0azxvO9`}&;+?XS*5PRar}86eY@df{AYI;`!FEPu zuQoH8o`~&#^S6IPH=r`REbg0oO?mqWY@7j%| z)w%Qh%sS$`c!K7i0;UoW37DSC7s;CBJ87KXUp_0?E}6FTAEYgFeC@ww3o~EWgaEvx z(!9}BM^tWF>s{$2G4mt40w)TFR61QrYFj%yazIIt2jTVE0`GE{ShL7(m>E2PAd*Bw zrX5v{x#W8g#L1XWF=~L@rAix5dnp;RSlu0~J#yRYW_>_#qyX%DN!F?2h#-v=wuBs6 zucslE$1n>v%8MOL4>nPoyDNcU5kjnp=U?P~gbwZA?(x_*3e=kCK7UVQf9qr3O-Pj+@{jTuFd zvjy7$cCd~$kbZgvfBSpC|9f(7tg$~~$UtMjUrcBocRPjAaUCoy&rB4(Cyi3FLE19T zK9@P>XciUHIZbp?Y(nhPr_o5ivJAEZ4P~p;?zQF*a;6Qu1MIQ@??5_>;QTzc5Bhb~ zx%#6af{k(nL2~9zKls56;n~8)@}i+_4BIR=J2kxYO0PeY#yV2iZkj6BEUn5s!<8ZC zuB>?w7mgyY*@C$qpi;Q!pGn2gyMyu1h6GQIJBFs>$H`mH+{d zkD{-0;Y-WKu!fb0#SXAfY3*4?c~}W#q&hyDWW({!@%6RNM97UNFmQG=m0Hj{R;hX{n>qLCkQ9@{mf z1MJd1gY7)^PTY_Wf>9dYfpiub4&<@=;(z%?7TwdbcGd6h!Odo9OWC9#mAEGY?=(R8 zsS`%cchs2^yi@B8&}0U&9Yk?|Gi;BtRz!lE98-K0%n-$N|IOd{O|jbr+c81KXxDZ- zWTgJyjp5NPGoC%3^VrT9%H2j4jJ)Rh)~)W*{lUTQ!QtK7#^H#({-YZ&e&mx6-}?C8 zy+`%I2x{ExANu4ok6zRF0c;m|7Y7k{fRoYJPUGT*3na_y{k5t8_SGizR8yDZr4 z^PhcU8;4*LcnZf67+-=HxI~>W6w1?xRZs*8rWIuiNOfCF<5=wg1ZuWAuYc@s>c|FYmC2>n$4XY_nArC9g zIT4RKObKkdLN;yJ`i;#4)O`uH;I4%B{P@Ja@)f~GKm$nUMepK8+77_ZTK2?fr_MVJ zH+ML@C>(2Ix67K55u;t(?HbtmIDEM%bUchh8(@bfXDi!@vI|!hh-c#LEo9e_5`?y= zxMvFsbcchZYsWWFSYCeZHJmeq8{^6>uSc*Qpu=bfe3>CGJjawufO~{i?-ecY>cUGgk8z2dDh zuu~c2UC2^oohRxy-mcVZxINiU;WkhmH~SRKk;Wnuv!q~FJs_ucJ9+ntio6WV1>aK% zc|8pNDMN-l3i7p3(`cL#HdH8U0rXU(JrCn_p2Tnp{2 z8gzza1rU00m;O zwRiIb+nY(*l&po@=P|tNlbm*|*-CGe2G1G}83?Vyd zu6Q|I!w_7vsK}PU4NPdp*zFkY$}RK04~XfGTLy=W_Q`lrV1-rK-PGO%4kaAFQvHE znyp0d8=E(w7!eALZ4vq3~-`)by`n(=Z*Gh;VNYGZID1&k8X^$tQD#ZC{0a2VFA z6!xlixhmqZP+(XQb$ zXAmbf0AS|^lc8G55&2eSkT73yL__OmOc%T&!0Or-T70B3Ga@kT2C;{LJR*>dRzeaP z{sAI9P?WKp`Hf)6;9$2*m`+G^Qg{^>Wt#G-wo`_aPu3F31qIU)Y+qPK4Wv@`8zsLH zHuv0Q%dSAf*sKq)7yZssA#{=v_XniK;qgQrNQmf6PE?*%I?dlg1~`4Mp=3VP3+Fn|Bp8v{lG?`$X9B|9V13#&)k@+-gk@~bRw zy#I}_{a0U;g`?yFNCOo>lF3kDg7|cgtj2w)#~6auIPHjqg7H%FP!(c=rQ8Q_Rnv0>zCu zInhjs=@XzQh z;H>4%T+qreIIb0a$5s~$q$3B71WE?IRla8#w!7hZY_Qp@tiFMd(#UcLQiZ?j-$vdE{H&Z80maXO0K9FE{=`d(IHNDldIvPmFF zPeB3!={z=K0KOo_u<&4iw%P zK+(cdwl2;)we5^u+>b^qC}4XikeDUqS~f%*b{eLRrNXy z!X-*%fbYTwL;W?3c7}RFmRQ30BDiW&JjmpH>I%Z6)tUukuh zl@K0YD=Z)7yO{c96rYND<)w>+S)l(o1iWy~@ze8N3_XOvl-C_;noJ3+K7)2arGrf`G2Rt&Kj-@9Y8Z)^q!DR=sEIMP*kuTx*G5<2oJEcsL0bCwi~S-tABHF z_r0X{uNFh{#N`rLW2H0j(cpe^&Wgh`%_&oY=RiHNapEqP!+_0voP2+MGBnO(JMa$3 z>%0uTGihk$xQ#zEY7S(h#xdSv$U#(N`T!sXZA{R9s^~cl#)9i^ec(hb%F=a*qkAvB z@77Ci-g@mL{jEcNWEz6)($LsGzk@0!_M~1kzt4|r1LJJfcpkP-vXWYRRFr>r&QO%BY%6nPR!osP~86Pk;I&&po;WpSNsN&CsIy z6$yFgzfSqt|Mizab^gR!c!08&oz(};$AoZxM1UPsmzVh2SPQmmItRcG1sZoQmfkj` zj$*N38q{B=Kr?0$726OYEWqCEQoC)PxZY0^6AjUsz+Lvnzv%-`jF)ZNELq z`7;YjTh|L~&XqO)aw=TN1&jHRDLKgu)h(E$qx~pkaEdwNs<@T>O6Ue&T#Xrg z@qRG80*tWGiSQcSAtWEs((nxWd7(uA!tBX~%gAp@Ea@zRTwXkui2qB}1k|Rsw z+=xi}R@yR27v&lKOG(cZyIuYIQ-lZDWt3+NJy~`Rn*-Djr7hTwONT{(UH5PrGlV~- z7KG!IV0bdP`vw{7)YRsw=j6Ex>~k&wc%S-V3Wz66xseR)OttV#8I&+LZ5yFC*1RQ5 zqfeX08En_4J4XBbZnO!pGbt{5Nzk3hpMV8k(pInt4l?D>rj4kTvDNdKDpBCI+dsU! zd-7=S=G}u^50370fBuxR!j8_BO$wcJqPKaHreQJBft?Xt+B&aVsc z%=LQyPfy$eQJ*|4tYi4Vlt2LEWjBrOU;5IQAhhcRpN!b;to04iM>d_%4HI%e0A&0j z_{1^>^_XyLC?z`NMwvJ-r1ELMSsfW!$Ok!FvD?4~=BQ z&)DtAQo+H9Bd6U-w#IFO<~$8W)JaNICB6(%uZUb#fru)FeW;neLUejzk?Nl)!m5I2 zaW#4L;>#cU$j5G;+>)>6i2%}N!M`CrA7JMNuxo5b)d#&PoTcyqvSkM!FV0#lQaOnB zw=8Bb@Ti5`S8VF>R{!97F_>Yyw%Zri-qG_p0*(d7$C5+(OEqa!$*v-mAH$F7CuP~P z<(XGUzKb<>yIAZz(eiX_Z08X5&O7F_8rw12fp@|7^LD#R&oRrLcBRv*l9YoOh7u;k zwS~Qbzn#>1mA{mO)`h&nG*=WqLk@PkV_F%=Je>wkiACnU zs#k5B)m|}}P5Q8|rDtlRouB^9OJlp6^oaS&O%QCy+Gm+Z_4ziAXxW)!3gO_Oar8pe z>SNL2`RDxgRdAB@$u*((q>u{DL8T%YAy=Tn19KTv*MJraY)80R4*2CS%}VtC?P=K^ z@%gg`;l&{%o*CI6pCqQcy8PBiw#={5q$^_xV7j9<;3v!E&~cJQe+?H~XB)AClLs$u z9~|!-o{e%cuIcZkA*e2EZi{xyBnjMMq$Rv+>{+GRv=?571cGHv436ca(-+i7;Xuxx zq%PbrzwwD}{F5Mj4xZSwaG31FkEl;i{1vj6SgNe`?{yyJsdC8F2~IBaDV0l-rdk&H zB>3KwOxQ~Mjbd%x?CzPJ9jm)-v^LGwW_|0%^RK;hc;ouD8;73KShILkO4MEOeWqYq zA(`u%?=zbBGLP+==FJD4*38)su=7DsT{@v!&%Ne-GCasg!ct1TQIF6HgE0fJQ{@wE zzkKN;o?^-lDJBL!;v8x6qy#F}ac06#UAUz5$S*S$B3{|7wPvIgZl~vBUOeft}b{o$QxmTDhG0Qss^AEn$V1i zLci9i0@qN~;s_o}5LUu&m%u@k%D^flhJ+*+KI$cvvKmvotp$a(*N!-<=V0{}C!?BW zqPK_uFT@)IA!V=9U_L{rv81Tu4L2Du9Wo=*F4oI_pNd6gzZ2BQIHigB64}0R;ex&v z-9SB(DFdK{Gc9XaU~JJ13qDzUHpTF!gdA!CmlP|NPz@P;)5z3v3e7GRDdrYPl#1Vi zG$N)kOaoGO14lG-07#Wq)WEw!qAT`2VPz;RDF?EnHi0yyYy0q=4x^Rd)Y)x5R%D(r3Dbh7<7= z@LbhUL?M4)q5868Q`6& zG)meqH{)L7JtIl#D_{N!jn97ev)mb3f9qS{0`q0f4thM&N0Wx*d0rS0b#Qzi>lW=V z;;Kt%7Uis^qMNVuD6K^?j>_c78ytzO~7?0G=cK$IyU3gfW`q zkXkNBe(!7VorC0AlPDe+OL=i18lzF447#qhy=Ubu-I6}QJ^z3H{v9eAY~g+inP2vV zEEj|>08*<(gHD~4cGI;X*djEmusx-)9k&cMx#$9fzZkqQHCLfSE4@!8&XXb`xBk0tCDoa|ExWmt0SFSzcD(LRSb-OZ-9lJZ{;Jo@MQ?GfK-zWG z+o+Lrq53(Ed4{7LryPC1EgjLy#yuDWNb7qpW>gjTlDppcO>ebHnm%b`f z+WGs;t&_MIhsEJ$ot86We@zdN+bdTpW3G7201Y`A=DQ#y4D&E@NgX8{C|fE5^2GPS zcIAS{Gox}t;KmeEfS#(14AV64IVRW+h2--f={?)Q*;cW#iAF3d-z_MtAgr;pU`jQ zLR2_FrE8ImRa#!oQv?sA9U3GE&w_sjswy6(E6~;u(!oG4dZn;Q1$LDoLV6e2o+kE6 zi6{u4@Y?8KiiE=g!Yi|X>d+v6NomrO$8vRrfdHFIsn44}h3TP0!oq@c!VH>_Dnd^f z?d51TOwVJx#&g|o0Uv%}Uh-2~6-xEZGDFz{CrWyY-d{K5P#W8}pM8I+y5V&8D*a7H z)vVJJyZzJ~gR@<6UkSKCqM-ld_XOKPbr!*S)>FHE=09W>&soXW$#-dB|L&iCS0Vcp z+ksy>b0-W}0B6&&liA!;KO^ugizU;}WmyP+5X8n7EyvxJjLA6bc6QQbA5vjKVf)Ne zI*;v~11F$ST2AQRaq;w_m!lYnQ^_f$zrObB|lUCD;+ zJUR^ht=h(3XZI)?AGY^S4xfGa6CZo))i>XdbxBF4`6JM_9h>}r+4w|kr(X%S1Me&v z-l_i9y7`KHP-DB?b6ImI`8jyaV>?>iRBdJoPv(nh+E%%>hbm^m|XYmsaV zaS6FFh%1E7z;0AXB>jD_I9tn!ZqBYQWXy|D#w$%=N8c#j0Ne3wD`o|Tx2h1w zq|S#~2^offHTooJ0`ED48eLFdlrA(rNu2EqQ~^+#SqjoAMM3pv)!?FOtm3z%Dh>57 zC_h&l@8p#vyN!(f)hP%5BEBIqOi4 z(<_K`K{8>sl6N9Z2rkNqPa*EXqgl^9ovf+8dfMj4r4R6u3op9~6n8i+^7ah2)79mJ zx}mXs|GD=Ey=|*837b7~X0vWv&Kz@H;C*@(MfhM;A3?v3r%q5ENXJUVdI#!RYr9>r zT|Znj1ls|2!fHUeykw5d*)qD54aZGz>StrAIBL*fE$7lK1pDwG!tpCbZGIrq>h0Ec zIqJfARaI4Wlvda zY@gq#+Zx!}Ql#z{0;-gN4|(Wj&+I(5&)e;S?b>eF2c&Tx*xBfMXbDHEn#`Qq^ZciD z`?(MP#Qv?5s9rODS8tR?HHkTnw0|77L#xJU7t>vT+{DJ)ct*daXJWLUx7+z8=CPgq zy}-rmPLWM&+fg<`DGi|Qy|N_Oj$Ka74{cfa*a+`Yy9Z}GmJ$ohG!oPm+MG%^a5Ta8 z$G`U}wqv^USB>o!c6&Jcx%D~!Cp9#-Kk-wSudL!5zIb`%DWy}BrIH0sW~gybU3%#C>v^toP6p)xr0&x7skBd^C7c#7>j(O~=h$t+yH9N=uMM<_lj z?*cxV)m1{B+*1Ao-(6Kh#r2Nk0!sip6Q>^8_O{t=*OMwL2L(d0Xtu}IsG0=LRwamh zIH;=nAo}TUsTNxsgCwNrf=`KZNRNo^rx;C$*f6vAf|$Y<2$mv^TWj^b7zP(#<$%tF zZtcc)WpJ%Ax*j$rR?sP%l}pRz6z=cNwqG3?UYpG8`D>9jx^X}#un#FERUqbWrOOT; z5Ax;^i)T)kp>9;hWd2E*m^3H~wGl}}_62MQb)mRO`UZg&{PSEtQ3F`7sgg^*53kYp zYF)}7WJ(UvMzV~l6vFjFa6>J`Jae>8|`6o{_meV8$w-z{Esu!WnGWAJ+|y?RIlq zs*cdNvMNu^}sbWC7ReUTXClj@Ppf1DbEl?F0*Nm!fRb3Ip@-%YTc!Y;%XS%c^Rivo6DQywF0y+00K zcl4ZoD}4YMm)pospnruk*p4fSf_f0H@!&EAED+vS)0?wq8zv_0WfDnel_AJ>vZs5C}cD+%rC<>Ef)$3JatJ@pxok<(5 zFlO$!pkb)iBC}qx`rRrfJ+W8Uw+UV1Nh5;^o(v#cYxdVS4qClQtGm(e44Gb)s7)Kz zmZs%1%9YXN_=U;!hvU6xY`;ak&5Z|fdpqeJ)cc1;yZ!X#mGd`NDLSNJt(OUZ6FQxG zKWYy35uzHx<9Tv$5Ldv}LZN3R`K5$~agL#o01F+~qS9|?iVx*a$sXdj!O6DP&{sWFChMKNdAymEUGssY+E7KqE9mG?_w#%5=y10}o$y$pvDmDid~^ zq)hS@%>EF5IC8{jA!49fAu6o3)%?uq_aDV)30BG-U_?Nn7v`0`RS~6keE}D;XJ!2; z9v=1%Zu{K{nFe<6h|}ggS(sBXM6!@h!UTqFLA4Y}9#mySR`3_&ZiB%94;G`%emuLM z$9COm|NPJY{A+*kHSt<#?=4hTj=#47M(uFM`8_&F@FgSdMA)iiWq_m98z$MeMt7@ZKRs@46iNqv8B<_+WS ziLEYcsY$__xS{53bCNvW7;h{HpvgJsohr#_hGDkqQ5-%V?BuWA7Uf5**tc*jPllcG zVD@$VRlef0|M;_Sz4aE*_eWpYsTtf+ zMk8?!w%UyvO1{Vfml#2aA(hYvp0XeNe0 z!>w!gqt@1n(sM=je;pAj(cHHh{Sr6Pj`X1Y?FXT;b{5%xEBMKMo6JjyAz-^wmC2L(o3X%Ru$}N3ZWQt(@`{KK zMmOsf#2n$qkn@Dyj&p`}Eg?OKN_H9B=1{N;Ge|7r(%3&kBs7Y#|pus}ty z)^jRtM6T>g3vm|w0B{t6lnYF>RHICx!Jw`sCRJx;)<0i z&K!gK+G$WzHDlNFLEEg45J&Rb6Q_ps_dzl~@)4yWg8-fwxC-|Jl1jk<&jEHlywYGh zYe6$89Pon(GOU&>_{PmzkJ{D>gr{joa4AXWAP63+ZELl*A`g-8KgX!xT%o3;>@7+ zRzUy9L7D@WyGt<4b>+-?ayfI(RU8XNTNutT5dvrLy zc5UNme|We*MsY4hniwfz7Z)y5{tQnmr9(+YK6PWB!FCWvUYP6LuJhQwF=}(zy)BY> zl1^)8#A<98DJLLZFZ$dt;04>~=jQm?@M|Se)NUZRRH#(~upKb3Rea#R5<>qnY4_T- zaj!YE~e*b3M#M+Vz5+Qn`M*nxLhuo7j5d-osvJ@mC`#ZN~85;&$GsMeoE|iupPTyeo7g1SnK2SI2T&S`Dhk2;U0qOz`N*O zNY_>Peh%9?f>F*x)x%g|7KUCwb-A^CiatJ+Y-;0>(gLqYbNlIlF3@<)QaMg86|_DUJMG%2$X^W!&63SC&F^4KVrG_EAtaiwa~N68B`WksSA$7x8o7w zG{AP9iau|*^F%y`^izi6Jhn3hfMx@+Q@Yj@v7LiRpQj^fyFD1)bn5G+WZP~|tfW({ zj^U6K^dK0GPevB}Fk-ZGL%2G^-w3afgafuSgT`MM<^&ey7gKwA*JR9r`0!?6R=s47Pvm_rLb)i?8ZEb0xRXJ<)aO=z*XO3q4JM zU9W*$2=Mw><_OIHEUQF%8df0mW^x*Is9hhQ_#9PW7Z;aR-qICHvr->HIXzG=q@j0{ zUZ=aC#&+NxpN#B=twx$o(T?%KqPM0$D-G;4wA_(GKo6fB!!v)?Z^a>_-_AGIvL;** zxYsEfB?qP@5Bq9PwUM#adxGsh{OcbA@2oj(d67v0wr_3DynGazM!t Qo9v=N<{X ziz|lP%g0%Z>F&9YnR4t;1Q0iX<&by)qmTT&RqiULyY|W8MuEbP&=z((0W*^LNi-)2 z1I8l)Mnx2*hMrDg;PZpn7H;`fCya@P5RNSuGtCArJ%^GUWVfImW1AH9pcLuI0va%9XtLQLzm5LKZ7Tw^#(Yb6BqsEda$T8RdzOeMHO_$$bGQm~A@gc5>+XdFtX393pi zel<-*MUmXqq=0Dx0uD$DXBk=8B;Q4w2^@#QEu*hR(EIdf|IrVB_(SQdvgWDbH)7r1 zk&xVB8pZ9$CnL5xH%ED6mIpxeC@4 zM3xfm6l7Hnu@0tlCIC)b>c{oBlq|A`rS^aUF#1TgF$^f?st0qdb8Q-A_WyzD`XGF zv|5dNt6tG(g_~O1G#Ij_36LZA9^rhm$!pXk}Crpjv>M2{c4Wn??K)r8$yc&y}ulFmFIOQpcKlI@!2 znG)Q@0|S;XFE3-a7$xUD%AcB8Y;)10nMgWfTCM zBrH-v;l)vx$#aSn@}jz(qDqqWr&McJ@Z?~|V;EXdSb|9t`enjS3G%i@N*WI2Sk|Fp=n%1h)41pDoN-EfnbBQ$uydo1S^%y0{!yJt@*1Iy`RXthd z|G{XVB0S#vWo@@}EfAjh?T`eNheBifcmDhDu*~C?N^VtD)fr_PHCo`E<@?|N{uyk? z4rI~&JZ*+#@soV3t_$^JDzK3FIZa0e+h^faroBX9z;<*s$!E_S2sjk+qNo5l`krO@ z?eqS2!FGV1Ix?&U+rRp|Up;S(Sq8eGIO1ILvhe}yA5j{OX1u-AQ%3u>;nB`!r$*N? z0|);N(@7BQYQBU-*)sBMh4R_R3y^}DEx^v*JM-Y^9PQn$-ri<+Z_+*7c?`3hzhFCS zgakn$Ucfu+`7nqouw8y}2q|DYiw*+be*V?FFTd~3i?8lpKiu74 z-`nr)?GE<$7;rk(N=O-Fd@{t72v4KFt?p{2G932b`p_F6{qTpH6e1gRCgaZD?)vpx z$NSHa)%)D-XYUV&gIXo(HR{b;t=m*jWfT0`C%bd;+%PX7t)A=P}o4 z9^0YW2)wiA(!h3J8r#=W%TQww;R(aAUaz~31DAdNR@26APiMWARiy@rCdqr=gTg9f z06n05=?WIwtmg~1Q!4BKr|do8qpH&X|E~fey-(_7CX+Vlz4zWpNJv5m1VZmMp@*Uf z2m*=%Hteiz70cRtL$M=RKtQnqHgwnhy1V+_{lCwBlEWC?{q28V=XG-C=FYw6o_p`- zJm)E&hXT9{ssrrk(DXA8e5?12RK*Z?;~>Z?d!#c7=Ts^pAMylw5_-vco_7`*o`60- z!p7qYeL`c>3yL5bmyT&{2OkJ*Q3o`U785BQFN+9olf}y)|F>|j04tfMsYzW&?Gt1J z^Yx{Pp%#!A!5jJ`{V!=ipaL-$@G@jOLkF;f@Ph4{r$War#l}XGKmhd#+7cMD!7$|# zXnY_ewFL8g;OT}h1P=+;(>RE>pofCrBM2tMh;URj2>fwLFdih4oQkL>l5hZnB;HjN z0-+!`Tm&(Id1NFS8O81!Vh#*L5gCmA%tXq&$i#&3gg9GL0>&rr0F%3~Ph3heB{n$; zY>!Pz_VD*}@%Dz#Cm}sMAw4HPBj28u2k8o)&zM4h{UMjkS0rsWxVI9rA`-F^vx>>$ z9hY7Rmko}dXphNLBUw{b&Qqmw@l>)jGPYQX4L=!x-4NYLpMe6CFqy}Ug^u{vGEN)zakT0r^W$e2(}}%Bf4w3 z-OWd3S@JhWlfsqWl3>fj7Y`zQqF`^cC~Q{-bb{>Ab|^kKm^H&AV}VqED77)NtH4o9 zgdL}7NUH{HsbC|JPEiS%3~UG35!!!??NH1@d|@WO!D5L|7^)daN{%Tj&8jZXuCJud zFUU>9?paV^$f%j|spV{yu0J~s2suBa>e}(PrAC^|(6%yf1e2O{7%@6K~7#y*1>4}Q4U{1x6jFOR-ke!j3 zk`$el5uchAlN2Ax*Zj;TG!m1 zTbxx?o>@|oTv(Eknw=6J6`7Kjq5=+K{XvBt8Umj}c2;U-W$9HrFHKHO$V_8-l9!uT zSXR?8e#-o|uEnD#EE+RyY3H1kHSNNay#(OYLQxi9fao~0_=|1j=}&^A8bu=_Q5}tqfnMOJG%}WJ_7R{zCrHm!K z;hpGYxGCb@=j7^Uq_R>AbzW-a|K{lphoLe;nc!FhrHATpoL%vOX0-(TS$$2U2MvZD z!v_T&SsQ{POo28Ze^Pu}+}tr$M*069JG5ZC^xv`eC9)XSMj}mE2K+keoM9KCU1R%i zLmt3(WOGH=6BSOBDCA%vIJ&UVR#cFlK`QedmVb*Cm)z(mbA-(j2}6Pv4<(#)2suKe zw?;;iYY8y75c2FtdJ9hk@(^2iKnUR`%n7h-!%cJ8pa| z4!6p&CO9~PT&nT$wuFR;`ImWjRx7cA!#f z!=kFr&TW#70`=tPqYnT(XQ3y8@Jv1WqC{?&7aZvwkY^G1yV#EJrQ_rds*6tMJh0Om zjN<^_wG4w;!UIgI7*`Ux;-ljSLm=tS15p^Fm!ZQHXwxVtWT3|cHPE-?k&fC8nh!KH zSeTIyt$YUkWTeB?8ryjSMQ%qM!$&R<@ioF4N{TNO2RL{nB>l=~gMCQRRaB5xTajB| zkyTTgo0pMTT9}FEBs(LaAV0mNI3p_~wx%+#vNWrqD!-21%5yNe%E7^Q(q2=fGa|Q3 z4Ys3T(StmsA!ZJS8tkH`u(QbRG=x}2|0F!8F}9{BEVatV9OnkWTgUPftAZf<63R(f(_{s7Ygzzz_hlW|PvC!Kf1 zc7T1%xM^d%X0&%stZ!;8ttu%h$*Zib%E-&lE+|e;Plu0PMd=3wSR*5{b8|+Iu3s>3 zMtV+0en~-oL4Hk5Ls41X=&otqGy5h?Ur|49Ui<9T;}={sdGW@HbJz9EUDn(=C9kA9 zZ!n)Y;=0xwNTyE5e4V0}k$74@&w_|7-h4h zB}676^uu&Q7>0^m@EB9Zd)(illP6{0wZ6GwRS^cs%Q9(OD+m8=;JyqlMDqHsJ8 zZD*y2g;tR8c8iw}8VP8oQ~}8;Y?OlM2o1;I0_ha3UzLY*h)%{JE`W#zgX(}&D4Be5 zni7d!R>b@exm~bb%k7+qSTOYD2-U#5%4lJ@$H3bj1f7w|han9M3uWo89Fr_zkX52H zks7XFfSVlCwir7xLBm~KnDqz%M$!hcVRj2gbru;BYz~WwjZIF0V?G{}O=?hl=QJT6b0px2t7Ud6bUkHRB^AU| z$E9V)W@L{X%=P0qVjv{hPmrL(qLb4LDl-bJtg&gSIR%hxfUC-IiPh2oQk6(u88^L^ z6z%N?4Gp&yJq(X1${BDQkO%6yaac=HS21gIm$4Jz27|k%FC@SQfEzV)1b&<7>3ks{ z@b*_ckV<1?U9&LOUB#cc}ENi0jNO#w;U3J6+ zys}Sfat!$*>#OpR+v|#Rs`4}H%kpbVLCUzYqO7vQbbM}W%5&-~@*2u>8_RPW%5%y~ zGUT`DY0nP=9WXxFqZ!8g?oml9Sx0DWk)QCDkHkG`<2AqICtB1LNA$|_0bx5NwIaTL znl-K39p$PIj17q_@bS(@&7PZ;lAg-yGYMH3Lnom^c{%AB>4|Bn36&Ma<)wwWIhjSp zg=H1xa(2mAg)l~udp*!;BS?**?WopqQyRxk@0h-{XVFD9owFJz zFKM2!YQo~nCM??Cy>Q2*MLVYU?d(~wW$ucdayq8S^TVh+M8mkJj!2SRGmg}9evt#? z&%)4gcWLX#k9m_VjP~HjLy3$j%m-JWxEL$;2&miOUWWA^HLeOwRxTK*;moXa(W)9G zka)i;Y7;_o_^MspIUq-t6Hz<9HIRbJ>8N?rVZ1|n$Eh1pj6A0h1M=j1`yKK0Ycg-cZgcLnrIN zE(D=rGvU8%x2L4qQ`3`ja^tgeB9qf%QZqs$5b1+Z9fUN+tR#@t3 z3e=aZ8{BEQu=%fIPjWl*(EQDPEJB2%o>VpP%Rv}nOmzOpeccFAQn?0|1EDBn zm^%P-6z_Z$^*dXX06!?J3$Tj}PnYCcM1XXBIES<~wzCW*oEg2G{Lm5G_1h#517Bqe z^SoY=Chp4 z#LBXqy2{)-u)QR=p){|)G_STaFFQ4^tRS-tr}wP*nu=T`_67sqYfCbU3sR&H)Mvju zE2mcV;QOvxMt}Y@wyWI+r$vTcUL3H9h*98OpTe418(B8NJ0u!Kq-UVb6rRKki$f@@ z;NpVJtc(;~W>Cu{C&wk>8}#I1VDyA(*`*a}=_&REyWI#o zP0q@SOHGeW%Zx}&FQ{#8pVnK`wQ$`0%^mYDu9~=DeDCI#*&Dk1_KaI{^@P3~#xJ?4 zyYH4s%Wj#x{8l*~#!$yGRAcftgZ}F`*q&J2gpaT8Bzqou`;g-$$b%*XbHZM3TSp@<<0bs%~d=veGkmz`c4AD*n>#4+=DwVm52aYZ# zWo3g|)H?#D_B%+T=JdyoL5kAAzT!{_~H8>C^Y06Sz7XxZribqB4<%EqpuGh zEM(|lcu6NtCSP+fq*9oA@rz;DVxwY6)Ior&x`nvJ*vUzRmcs<+KvY6X zR8ksT;!!CXaT)m}pN&Y$Al_d^Ao>I*W#!r8Q?RRMmQ|$|mEwb~pC#R3o(0=+o#$be znmnZVGBG{~%=kSDkdlFeo6A}XO)>%XXlzCrJ~N__VacXucIeSm2oKQ*M4A%2>gg3| z@d`8}w5$G@f}vJG=mprF4R3aCI;K^Yim(TZ+%8}a$P1VwtAp*Jx`^@Eb7i72GXE-l zyL{CTfPON6x4~_dJ+UR}%ctRp?d-!xKkE9c#&!>XGczE-4!bXUMJ`{Z@OHsW$)t=w zstqznn3Biq8jnfTbmqy&III~zg0AU78SXh~UhRe4Qy zWnFz$!+?g0!y>wa?R?~ROP{41Y|-a!o4mYz%Ify1{bQ!BY@fBNZPwZ`b2c>3SXNtBi&TZvIyNRS&ph zW5{#J5=r)liybxw(mfNpZih-XKALbCeAxk^WE8d`&`yx5idAtSPv)=-M+_hCjMEuj zWf-<_ba5jgrssgQQ9pZ}m!Xr9q(-V`gje~|W}1!Or3u%nY2rln*o54w9Q~kwyW`V~|U+u7dM+ycrS_X(*u`pCYs{QFcpo zYy?>>6H{W6Q*Cyn{a8yxGz)oTzsT4Gi?IW{QE;lk%1N$I^3Iv@|BXwDNJu52Mp#^O zY+6Bda&BZw4*V^!ctLcI9?ab@(4Li>T3!{GlZPNJm+V-(z~tZ;+__U@n!HW=ouVOajqO}A&oF}^9F<&- zyQj$$AJ`x(>p>zKj6%M?Sg;+O3gjL}MIjWnlP@=SF4cWEA9Om6jCfp3Ac* z=aSAKx6?pFsB;NL8ze&^ex^u^B_%FCHDM^WSA*@PIklBQcTQDVZcSN!Wmz6RA(+`S z$)H=1l3kcuUQoyz z9-Lefo-@YRn&=yz;Oyy#Fp1X~QUB4AR&+ASiFl7EvSdw7OUcX6r693a;~Y~{T~S+8 zSzljK-=qf(xn0gBwRBcvyH?Az&)U#2XH)0GtsP4?cJyxOTDG-&<>ll0wzbSzKYDU+ zdCSD4oWi_{y4tqx&Y6AnU2`V)Z5}&iQFZI2%JK6?&Azy0(ax!B@0hfD-{kdoG|k*O z_oDk|uD!o!-GkFNJwExOM2U<{vl8cQge89<(UcOKqH56RiNjGS&!USs+7*X4c0PXtRVR#o-l=+mV^z8-h@=p29GT z2HX>8GsyScfoN>0?#{o5?VMdk5=f+DV7r#vQMn8lx!e)deUXklyn>(-{w#k& zg91fp5689@Mx2s~Oob>^B4h1{?vb%^W{A+uick@(CIm7P*F<}4RBRlUb>Lkkn3A*D#=jgn+?QMf z)(Fz|`4d$YNs4DU6BJduVfRG$LimCTS;CKzaZ^IIp|Mf;Y}iJrk>^2RWNg}~DNH7V z4Gho5KrR!x9VZ!x$WTfXQmS+^13y%L?YE>nJ)z1McGcxT&y%g zhHngy8ESSxcixRB?*J2gaU&7@7$2M{;^bMs`MNSxyWERE{wqRPrb>4u~1q!No5eR%Wr zHz`z&z%omWL>)(~@H|)8dN@Gm8r|$_i1ZV>ZpIDo1F~uc^u}D=#Q3 z%P%i4EGf%RO;5}(%*roFFDOi}sm8&(sI;uOqN2RKvb?mqysWlLj?Xpfcj31Uo!Ulr z*7bFJuftsExIe@8<(FTIFCwYEd7ETsYhHU$N>xyNfi-6g`gXs_R97#UqTLY&U@C++ z4xd8u2*;UY2u{=wq_k z9^BvYIb5`Gk?fC$j4j-Z-+E|#czjk|TzV`yatS>4@$`VX9c@Cm1#t2Y2#sc`OKwwy zEb!IHi%m{i82E$wssh5GPNYZpU}AiAhdc#PpexEx(i74=9B<5?-l1T)hgXQVFWU7m zz5?=mrMS2uG7VrmeL!w!h?py7y3{<_ufO@aqwLKqiOSS%&@dsFKrQbSLcYueM6>R^ zYA3noS)RxRT5)28*$Db=C_!**2@aA1!czq8At7iT+c|0W!b$U%GR zX$lB|-zPTSmY77b#>5dQf#;AJHhD0gsW(13IxZi(uOGFHg@|I|OObWWe?3mP?*tEQ;q+I_ndw?wtEl+4f0^EPNnY-cy6PFsE zmJ^kchuump#Ife(Vn7rtH~BuyRzj{&fGBE5BTK2eSsuvh0@{YxAM}?7*E;wHJ`0`$ z=@dKwv8|8?idmjuXd;u;!C`~(f-zDN#Q^DyJTa|v&SSfg9E4tRAqv=y zsm<5OS3)Xrp|Upxn^Q6}&@4p9kxeF?2|ceUzoa5RBL~Qe&dJNDt|_mnudJvlm2Rl_ z%Sit>1P27$wcJkPT(T?>F+#eEg!pJ&Uvu+PadFIpbgnR+Qd$DfKu&pSc1=}bd1XOm zZE;0SadBC0c3x_JaaMX}LSa#6b#-Z3MQLqaeNEk{YM>I=k;VZh;s1>7dc=k_#190S zAGTFNc&;d|i)7ZPPd z*003$gw%}Gq}1f(%#6&uyi9yKOH1=gD~c*>N@^QR>PO4bz;+6c(Ugf(1m5++L55Ld z`>1JaTV`I|I(u{TyseE3x79D&-rT#hedW~?*55L5!)=}Y*LTcZS3AD1ysNLKXI1me zH94auj+(R}r4+6F&Ym^(FL z=-FTxMhr%3LNf#qC?a&?WL0i%cPAHwI}*p4-93X0R5ufmBdQqxKpQ&t0lD2Pm>r~( z)GWzCb(TUu{_rE?;fU>y_E6qOR{g{v$q)Y>wzC~zr^pJ0orxTwm%xus>TlV;B8-!Nn4n(a65yXv;vr}y<)65>~E+B9$Nx{ld%%G%mvGjmAK zganLCj*dkXG7(7Z$!Yc!T+P$NVPdo=M8)Isiw-9VT`kHPWO(YB_$1sVi3KB7wmm5o zu|GN~1B!si_>3THtevRR#4H*nGcm$sVKzgwYfaAd3=KyT)?=j`BVAljl4Ah`sQ`Hp zp09}6z!a%B1gy}gFld70BDVu>>}<@EiV}^l6r~vV4Zy&vVw!NcV*Tan3b%uj)s;L? zA`fE*(1a>s}Rwj;oc zq6U#3kVihj7fa$Jc#u^1n+K+O4;n_n|H@-Xj5$vrPx8PEWXMYZJ7DD)#{_E0h|vuS zW2H!Pj717d8^m=k1Z-!-Xv051#~D ze2~V9_X~6qc>nuP1GZFv9a%*KJ7>>GPs10Rtj6KtX50mHa?^A3GYSeR=|zPZl#=4C zlH%;rlAN-V?7~t!q;e=U^6`GmOUf_FEG*B%39zER8fWj$o~aG3IEpmYw~vua`!BH_ z?R{1{F*`BxE5Ua7w1rZefs&B~-uWQ6Q)EwbW}_)8%g2&nvgf$LzYs-^wjhtd2#;X9 z5@P+s70ZP4NK3c{kC~LTv~)aU3{S=EqSEZ*@|-fv1GRaT4RSQ81=~e>=e&+0sK)lD z`In8JzrA_>j>ZL-H!QlUVbSi!#k-rAUfsIly7tvKw5`0MbJ^8xy}K%=T~aq^TgTF? zN+zysoVKdCeSU6R@6ugQ_g(k;+&ynj-u`OOme;0je|y^HN2Y9lZ^q8!<2N1Z+4SnP z%ibEh{^jXc9F_iPFySlMKJZZSXHX8;a=TA(IBw_itNZpVHyA;6q<0#!KS3GrC+LG{ zY$tw**mQWmXZEd_HE&^7ZULlK1RRsh4D*73Mid5qj3fk9 zjB&#UIJoG5K0c$T`>*vs(nDiS?ZxX!c4l=3Wg{Vvf}fv<$hpRA zY^eadbQO@-*sjM@`iZo_>j^f>SEeVqA{kF{t&uGvy6gAa0!I^h#qorp4hlqQ2i1Xh z8y?G{W+l3-T$aAAT@xnGU%F!JRh1n*tGDmo_sG+CJo-%e=#D==`Rol(J$1tqPu%qA zV_UAh9=P*#^@__YsO%VXBceOCmfM-& zWQ8KVqLU0VqeLMmxSA005DK#(Oyk-V5gVJ5l|>LcxyWD-V}+KMor~*KMSb1a?(w5L z+NBQzK9E2E0=$b(Mu4685wKmudv;DXiP%t0TdkJ-0%B^i@(L)Kc?B7Hg;|vRqU^$w z++3qkRF+LCt;{Q_$feHCPbsd-FRd#ntuHUBt12JWSlu$Fwzai>OiSa~fo{;5A@EK( z63(Bj(D_JLGt&|>QsXo5&P}q*7QuFec4k9?ca0T8u-%f^;un$TXG=FlWq1XKho+R_ z207ft(^}B(9uVnf3U>{#4RgXII1&f`v<%$Yv$(db0wyZ-SykC()!AjW*=2QdUa3WB z*VxXfHN0zVuUovUq3@c8rPnpDys3HRtz%Z*J$lt`E&aE&uDQ8=?Y^<=?;N{ffA^*b zr(X8(#7*~g^xsxEWy|D?Zf%~wy=3yH#=e`E?fYQKzT>m5KRV;;6CIo1Y}@o!%Z9gS zUUz1~6(29U^_xYvo$I~puZ!>cU+Is=Mx^)iLOb31`Co_LJVdRr2&Ow&tmRjN?Rwl) z==uG7u#{wBM*`_EF?WUKQb!8)y>CggzHEk8jLK|0Ya#?gGZ=sn1=8% zL*P+<-{1z%KSX?b7#+3x(tmC@4S-SmpCH|_nnv#8J%#Dj$$6y8{z+)6s}HC1;DtqE z=fCbOv`t_;A})|FALMowHRY|mCIEIk;YJp`r8)hLKJ-@?W_kR51eY)cPI)?^2^hw zMSw*{Ze~^KxoO!NqP#NU`E#k(vs;lfE137~E{c@x~l( zgT}#Pi-?L%h>At3Pm4*+2#ZW4oltZ_R#HZxB`PVzYG+a49USE1>l>b!Xo-&-=6Zgz z)&qhZ3u~nyC%^@M8on;jjKlCi#!r+&kt=T~)@a_` zc{gn0zR;*e_yxf-ZB`NQiarY;8y*LLEcYy+Mj%lu{~7gcP&gy^RNY@zb}Ac`(tA+r z2HRbdOVkF>%+U{zKJmm8n8WV<S!jpcKZ40rj{Y;nalBs%Jm|Zs;WY#J8XSs)Sj#h`8jW zlB%-u+KS5R%7G_v@4yo%Po4CHmN7ls^%tKyK7on8rxc% zIy)Rsq~4aBZW5*i*)I9GrH%hNd|6mKAq0>uGBIImrXX1<;c8GuMNEPM@~#ik>4dSs?fgxwOwdRe74^1I|k!?n(O(hoh4T3bcj<1M>K^YoT3s${T-t=K0-!xN~M-UqWUk4q6eA zU&O~ztH>8SX^hC=<`a{YR8U?;9QA}5bEnMf9Y1s7#XI&~v3Fl>>-eb)m(N+cX6k}o zJYHC*jA|R3l9M0#8?QM=K*g%TFk%3y;1#fm6%{-eR0n2(EH%{{7!IHT{@iFmHr-%6 z(fKHCi8q{;_`Z_Nk;o)vR|V?5@w&kdYjDvxyW4A+b|LJP>%N zSNNQ8E>XyEI)lGOMV#S{gA*nN(?7Dh*1DsdQAFi~*v=!NKl&LE~adQT~J*R-Vxi^J%4t?Ykyh$;<>&@KAU^j(J6c1p0xMn4KJSB`0_`K z?tgpT)1NeNd#-isGi{eVP&)70iCZ5Zv;I%h_q;x3_gk}XKGy%ppI1Ne(~2j5?tS#9 z)zAKY_49vUbKvi*U;f{f2Yy`p#@{bK^z)@3{Ic_-U-o?Zcj?9*f4D=iorcEt@4o)- zx7bdss3tk&83W!ySAd;@yQy|i5o~uHM%rL1*p6xre}a)tYu0lAJbxJjpmz zax;G$erUt+W>;~jPU?(C)-%}RNRfb6MGmWPoWQ%rcD-0*Hvp3dTglisw7a+t8*zcV zy9;FAzA((V66J$;v>)++yaFu5M!2})L+FU@C}#k6CwQsI1{I)y-HGTJH=N%6sGVK? zef%u))!9{jrS0U*AqM=2c#-MkAU3PNydy(^olcH)!G{NsQNAB?X?nss^wuE?2u~4U z2N{@pWH)MCa4;F~$ z?N7aU_=~fz9{;$ivwPQ_e|-PkU*Gxa`}e;4@zs-`21h5kdIr|Ec0KdjJJXh}xqAOY zcOQK7u2Dp%M2o^<`O5z6K-m+ha`?}DtK9$X_)uHb|eIzBG8gEA_FVE z9KJNT&Keqc;2jwlHfhd9U@YfCR@Z778i)+~e(^}0Z?_J#2bA!fSGn$c>K!z;%W@C7 zoi|Rfof=VA_M}&gfD9LHrJ*u%i(ndNrDJ%@1i|MM6mIjyglQRm-(~GN8iYqhAYctF1GX~{$jqS}1%^*D3 z&e=7*Gno38UG@Ior`_|;?1w&_^U#UT8(+ET#qa0d|IX$^XRi40-1hgr-Soz}-iOaj zy8f-2{(G9&+&g;B{bM&iGwI4h)ApX6cGIbux1X84|A#pb{?zy6FRKsyvhK~lZ9e|X z_D}w?>-5jpe)Y>OU;XXw?|!=HoA32#XkZ81=@O_e<=U%NhQxyh4pPg`&Iqp&iPGjt z<0GgJu!AB00o${(lMss{qirS=J}Qv;Ije|MSe)T#hfUxDXHpH5mpBKRz&eUhlzA zzI@>Icdowo!DkM?H*fuhcRoLJ-}A40@b&k{zWvL~?|ldfo`0bAfybV?dfP!NI}9EshfYv6u^Te1;HM8 zr>&%V!-JiOB*GgcE@`-nyKDp@IS2>jIMN0xMU1Cr?ZAIIDaS#WryHC|IZ5)6C|O;_ zF#+<(@PxeStK)fKc9yTYVc1o%s4CthBoO&867mpi2jLOdb)%B#RonEb=IcW}%lr6g5Vky^Q0PR-k-9zTbV^h9bXSsX?8 zu<&TiVRpN{s#^In7FU#)R8HD@Qd~H@DP}X{&D^*EGJnbwYP@M@K_z zOYNw}x>0rY&2_a+bu~>5Rg}@AYDPEJH=Wn~XmOneoY>Mm&5SKyYZ^zFSJ#yfy1uaS z-(kD>o9Tp2>}e?+7gjLNFCrr(vDC|)7+E^OGblpM+MeV=cEU{K%fB+}-2x+nQ>sUL zm=qRydfC&mGpk1B)->nVwG=kA7d8wytx12VwN8d%L}=GK8GXwp?Rsd=9}cX0{^P5T z{qNSp->rW3i$#yV-~0FnYhL>JtUoIC%bJ(|cFCc??)>yG*M0lLt>1ln&50A+Uw!@Nw+=mi>J!}= ztq@j?L4^zrP@RJG4#>;SBMHqM%y=t08BiT~2iU36$snxJ+JV$sS$byu1RC(oxeO)5AThB>R!f0a$U* z^T`PM@v=|^45{fP*v?0Ki~4@}NHQb2I~gemIS!1t%A!WrDn4%54wPr(1tZ*t!xI!@ z3m`BZ>KPQr*y+#%m~fdu-B11?eB+fu7TOMX*!Dc&AH%WN?Cufl;X!(`Acn=s-Q?^E zv0ga5g?eBaI)EL+gvNGW5P+Rp-)OzFZVbF!U!VIewlkSJ%Izp&P|Ki`L2d`z1AKiH z+khduvppg-C?<>`rqCs;S3UOj;frtn!waXrIPl4rht7O=%{>op*nR!+Z~lDOV^8hc zch|A6zW?y_Hz>)yeS;4idGETr?m6+zxqF{}cF!GmA3yiQduP9X_v}}PPoFt>@_2f2 zku@q34oQoRfGIQdu#ip#2IJLFoU5gK%Jj)|=3RdM-uF&@cI?z=M?U`S(D74;PkwUf z_{WD&e)i7EPhL54m>?Qxh)pDA_Vo|5{Z4KU6mLKfV5K}54VGF*02fFXORGRD{{`HD zR^CcL7;M)FtgMQLc+Uq_dIN*kIho5$3(bvBOeYU=79 z(=%=C^qFI(Olj@z9@ROvu5C;sPJ?6H$8?Py)!y3B)>7BjQs2?mIIdH=L4EA#F-DA9 zKuHYBSV*y!;>0eywM?DXGI?t2lz{+A4F$+T7*ZXP4WlscBdDd1AC}c>EuS8g-VhjH zFFJ}}XtE6>z#)-mYLEuEJPs}MTtm`apoKP`(N@-({ z9Pm2h!(xFVp{e@pGIV;-lG<0McCXEwyREwahJqzm6)w6aXWkXbQ#aSFzPV=AZF%#q z$(ymeaK^6ES-Wc%-c;9ndu`u+O{*SnTmO9f#)A`fzBl>WPv-vN+~T``=>6jt3--Ui z_Qhjc-+BMG)1N)`=Wm|*>tEmf`R9-SF`#T85`v^39^Ek-FTD7I^nZk_uO1n>(PFq~ z#MJ)Ayg;lCnVYx}eJ#<^1gVEv%)tpMNx6Ax_Qaf&+{Q3lj+bvJX|-@}bQu9xDsnkX zQs|80Ew)ToP?ywOWMDErAUxiZ46Hso_wI)ul;bzGPD00j9WfJUb@k$Sc=B^lo!J3I zr=jKx)(XRhVXg(VStA$`@uY$GBZLVJ4vZwIW}(BP7vyW8Ul$A;j^c=N!G*&wxZpwz zuV@a2k0gDb+i)k(3x=Wa!8tyZ*r?%70~P_%x65sH98B6oPcS%Ia?=+@gVY-jKlCvB zP;c9@?dbbQrF?Y4Alp3g5$ubN~7)b{+Zb%+WJnzxTzN56*sl?DW@ZIfZ6x6gYhHt8Y(! z{oToLzn|T|_Tcf4j-2`G$mz51o;myKM<=>wOh*G_wuXg;TZo6nhz7jFAxZc!>a;uV zd+^YSk8Zr{o`ow`zxvL*Z+`gUTPKdced2^sjvxByHl z4P{jEGlAZ~yGW!UCvC8c8bFq>)B&H!~@9M4{+tt!DwPV_>_UW_6&7C)P_N*~er!@C;kM5Z`ZrapI zGiP@8Od3CJO6TN>9g`<^&z(JE#Y#D{!X*be)3NP{?Zu;-3TkTd$_Ermdd;i*KQMrU z?)o5=UJit$jt)w$3rQOlmfz-OjtR>i?HLjY89wq{Vn({fX3H%siB8G!3XO5`4-HN# zhSI?&EDjNo9P6o7oefi$=e5kL=<1aY<2b=bkB^L@j2^XYmp#))ElC~Sm(sR8rF}(w z>(a!Q74gl>Qrh~{JJzRnT%6pxF1zEB;t5;ICT*{repT75>&qA3UcY#M`^v{#Ry{Fx z!>g?qy^do{_Z25+-}*)W)8Fs-;II3>|LMMe{P@T}|NQ3v{o|AW`{mnThGM&PMvsY} zxY?qy{elaJN%yFww|aloaJUza*OHuKM_)jG)F^vYV2CLqsW7W?es;sWl-zopeU+<> zn-8%?9$ukvmHGw51ep^;EJ-ddu*!hw>Vw1%GHYxnIR%q4s4i#M*nZQk%D%7RJt`_X zE+H|@X2ZFX-?BouaM&{VHe^I;X}3xW)G(k18Z;=6vzqsz0eKmvy9Jg z5q|ERxv~TGgAYFFIHb}B#Ef7O0JnabZsAW*O<1GWu<1GWZOau$1upr1~lJoQS z-2Y(pv>A6DII#bfgHIiP_u6~*@4oGhw@#iq{OK1*&wg|K+jC%hVrCBJ#XBE*^yJxZ zkDvYa=;^Oeo8R^1Glx%~edo(FN6wu6;G3@&ujvPz0roIR0L|q52n&W`%-;lSR+ufi zt$WhT@4o-;r=LG@@U`w)bKd*xlebQM_|8Ws51;zzosUl*`sl=4$B(^y_|SW&KE8AR zeKjQ4nchn<11bB{MT6<5zOKK9}QjOIvqLUkHav z$LPut|F)T6q_H&2*IX__#xecFuibLV!>p4B#UTGP~? zmYykNx~DXCjc@55-!frb`^2tsGbWGj83?=nFR?w!ZpUXIe`V>vpl0?RT_=X)tO@{YqL8xQ1ZrY%IUnM zpleG}*Orp;TZ+23r;gnk-+p;o=bo%_*OtxtW81n{y0?5V^~%p?-|+qHyMLPd@L!j| z`qxdT{&LNaKi>7vpAP@>kJJDBzyJN`KjlP2tQ2UC| zu5>kF=BRL7BGG>MFJ8OmihJ&za?yre_uqTR^UvP@%7K;JFWb0#*Xti1d-LSU!=Hcl z-s#iF&z_AlR57(1?dOndq0)@Ja$dt%L)(RJ;u^&MmC+gnFZ=o&Syb5uuH%Y=z7 z6DKuKnmA_0)aI!@ty89V&6wXgZD!k~9Dc)JFMY=C=U*JLJtU&L?&^gP zbY1e={kzScEu(__=hO@WaCLD9kHI7>u|#g^_L6m5=(HAloj`iIV3>)RF3Ieh*dwxhjQ z0zYYXhh2EVh~XEYt{*n+e~{Zp;M0VC)}8snY4~tg=aIf%?g8l6eY`_V{=j>nzb}+F zU_1Vg-q8LbQn};fjwzP_Sr6Rg;0J&^47Ch)EBxzl!=NCuK_JLix$1w1?Q|S?*YAil zxbMDboqH91Xz_Xu3s40uQ1j>Ik{g2Z6vpfIi{z<=XaS6=(jBiB6k z#HF{~c>A+Y?tkgI4ZE-0xJv==!DC0?I`#39&p$i*<(EmBnZBlgtyk{(BOTrk#BW*S^zFWgk$gn0tbVpL{o;u_3N2gwV_x&Z8 zY<%&^dvAVtqI2qWV)vT5CiKi(u>IP-Zyo;#70s*1K6vfKhX;>-@aXd|MMOr+SUJ{e zDMYrE!DM!*ZU9fiYY{cFVNO+kGRmD>Ii~vJ;_i@@jJip0oc_z;6&;dVvR`(wno7N42qep;nEXk969yx*18MYs^#t< zl3!UrcG~Qg?#cDz##eWCRdtLlt*fdSRa@3jQ#q=xwza9QwYj0K9e5uzX>#ZE>D}|^ zcFvtWabe%&h0D9=F6x>&yJPC)`u3KZ(e<^X>j%0q=2!gf`n)uh0C(=3?B-?)Vb+$m z)O3t}=)BZ&6&he!O7mjMo<7!0?_hgiWM*7(hhIc$Y@T8<{z&gpcBnZ9?=J^LIT*0KM~Zh2wb zqeriJ`q<`2-d%Oa!6i38*MHaR3$A%~`E743x$(gKz0b_p_2SH3FHYL}_}Gj8GKRN%wwfipvVbO`n zaYO>e$4AG-s)Rhjfu@A&@jZKAnACqI8IPc-b%PWoEXEXIB}(4i1209ZuU{BeOI)21 z-SNV9S9SIEawCJB&0--*tzxP)A>a|FM1ZP#@k#cF z2Q_KSh_@O+a1`!1gHIYAV_1H>E~E4Bzo)pr^oQpGaf150bKfcB(XnIlKvFyYTyNBj z`WQ?_X5n`7N;r-BcFe9@|$lO#hTkcH(c`k;Umwy`Q{6U-tE71 z+s+$rz5l7_uGo9aqH_4Pjc&YMphdgIYoU%BtG$D5l6c$OTWE|zKHvWU+KV+*R& zV6jAMJ{|;LpFqPNZt?-aFmaG6k5z+@uR94iVg4~BSYA0`767M4q-Uc6*UHog?itz@ zh1-ID)XLgu_<@7lN{yo&U=;HJU@pMU&hk|z4)zB#)fR&pm^lJyl>!&#NJH_i94rUY zb_~UKfSm%!4*_<^LHO^no%3>~6uN;}4$T^uz=g=H#I^8M);R1ba~XT$lkXiEjBg~Y zaWH$TG{unvah?Aqw(H({_}PkTJKCo$Y?(Z3^yH~^U0rn(#x;-Ys%dF0ZyZIbY93wJ z+TJ{&yJNyL%%i1t7^Lgwg<(Q`onD!q7v$P1x48N>pg;_ z;7mr%svJ1Zf7CY@uK-_Ly0O>o?uHM)zy8>Fx19R(EuZ{( z#~WX5I`GwwLw{TP$k)Ap`h3;nr?(#b{_@wqzvhh}_Z|BC9moHE!^eMH{=&H#5C5g- z-oLE8=iKUte&~O6VB&);nkyDy2iwsMh;qPjSbi7VQEUH~*j`*#jAsO4E+HX)#4-|^ zYE7=lsGVkx$r?%S-Vh7PI&GnW*5ClLa^ibvhHTT_6J5L5J<0zWfVIxU17~*`M*1e$ z4t{FC5jM(pjqMlU(XOnYPH1C>al=@;`M?D0>BQO>mKax86fI07Xx9UMRMrics9_}& z^$T`b6~P2`m@jD`ED=%Bp58u0;nCYrD9<9z))=dcms_X><7c!jJR&JJCN|RQ@97yH zK9Iadu-y@#rH8+*_2c(nHZV8HIDqZS9|r9@Dj~xMQqZ34cV_sz755?$iN5`tF53Un z^LIS^)B`U(b^nXcKJx0zQ@5(7WNH4Od<9z;n;s^UM~;B;e&nx>>#01;E+pkz_BEd*H#L^hyX80 z4zNQqLrsw%8Yfb?$|>Zeq<<1dN}TN#|FFS1AXkU;n8@t_ds<=|wZ?Yc(Bt5U?H`@` zh!>C#iIw%kqvdwFMmalE7@fh0%!M#Lv1}Q%GSdfeEW&i49_j=J{t@}{Qh zmX>;sh{1H$jEQsSOq@G!(!2!|=P&M@J%7xMIa8LdoYTL4!Mcm5Eb5!Ouy0!5vat*1 z%aJvsA$=d0)<9I@Ri$nNfEadP(^$wCYa zuq1njM&o6HU5*b*+<}iW(+y(_me#P0S`v8##O8U0#ku(gquS*ka(0dF`YqPjPJ=Ep z46>)apfkFl(_YeTub2{D))P}PIk{^pch6pXkUmf>FxJRXNF!d=xhsMPmy?tB((ZE!|M}7Z+Tk z=oJ?KlI=9#&BFr8?fy}J*>@0i;y>s%5q?7+yZom7^ zyQK_y0`-{xZsXxUJv?{jK&%00iL`_P>C`|v@Gdyd7L@SjfFN5ixfuci{d`t$+;G!TkqbdGzf=&%S@Ocgwbm_FVJa2OmCr{LIUzzS(@ut($jWKXu+B)Y{&r(5vsd zZ{O3;?|uB48=rjc#wVV+^{E&B@chfSKJ&tDPd|0f^UqX`8BKClu$_2E29tsHHmM;^ zDa^lg_f^}jy?V{oOUp+!Tz2i%mt1wl#@##DY}=AkUEY7$=2crZ^_-H3Uxh_40DaqV0 zBGY+#$h8=ksiFY*7w}G@t;`Vcumvk$cl;QUPqf@l2Y><|KY$%P6nMu;8(`;+13&oy z@6ylc)Lfs?=%P`r6Xz}JoH?s$;)KQtUA1G|>pI3%wltSC)Yo^kw*mNVt+lPqqr1j- zOzG*FH+Rz9`QvBL>6|%xe*fCZ3l^cZD<3twZcImM)2Ph4ayc>rj7aPNJ1%EaCQYFz zCay_SkSh7eZXPfy48}9kF*Z^&KEHi^Lb-Pt$z!V!ekIK!iYJM;)QZxv8uAUT4% z0(8Ug8es#$UAc8QIl1!?vT{V5fb)!xQWPVAN>9LcydZJW)Th?iE;<=~i%~PGN7^7T z;W>ffSuu`cwZ}%ItUu<^*aB;Mqb;i`EUCl9(9LONh_6?anba-8CX>y>-4~{R zFF&Zcy+XnwlC$!Woq^e4^&-5J(3+1>QBk3JuvJyCJs*8I-1p$;nv#n29|J zn!)!49~dH+u-Bo2^*f*KNPdMA8`#b?2ey-#BQ`$4YKtH(g`X(^oX;Rhdq!q{etuR~ zwvU%jOjJw?IetruD^M-gSFvtu?i#SI+;g{)Om=V(Wl4xOhC-%eIahaAHwZ7{910nV z>@MRhZIL&m4Y1qH1M32g5M_l*^Ss;+s)O(-;lXy=Hay)(c;@fhzxh%^mj3YK>vz2P z#_i9)dix8n_FcYv>Y9uH@a%zoFT8s1!MC%k>YefK@HGVnTT%*2uKL5B+xFeQ>9&0r z?Y(is^*3I0?e%M}xn|X#J?pOB-GAlw?5eUL!eGOIg#c>8mqy~9?dO|aRy=oE@4{6p z7WJ=OxN7;l6-yWNFQ2`9@yw-*#?72k+*mzt)zZ1EdS@+PJa1Lsg8mh4lP8faLdLQJL7z88}#al{^e_$SdoZU^BB9%Lm&MsKhkM?Md-G5RYDsUR2}_0mS5 z1^uW6dzGr$(4Px#E8PVSFh=|`FfLLq4cQ0L7kJb%JW3crc;t54$nzYQvv7O?ShZ5{ z@+C_MeQ>-YX*Z5)#ASEKWjpvvO(7nqvZ9hF4cy*&^$HD$uWo6 zF~J6T{AjFSzh0l3MtEGRPp~z!sIa`gzND_UsJ4puqs)>*m>-L3s!AJbD^y%kBkhu^ z($cEZ^18}~F)hklvSoBheI0bZ1jH7Qd#R*2r>KyW6nVwDj>nfa+_^LeJJM7zdLK)2 zp1*ZKnRz}XJwwU%>+cmBg`Jcv1iTA`-r$2l zc%@Rz5Mzluhm#WxT&4+lBz|5cSsn@Xx2LalVBGLn=CFhhe{|At2E{7X+#v~e4c#A(AE5FSoaAJ`WC;_@0MFWZq>T*si1tr|bQ@DLIN5egLG;^NIT zdg1V4!Pex+xXj=%3-AQvRRD%q|Dmr8i&-WVxg5zwD>WzOqk^gv$UK-58y6oO62htq zUUt?105@zhsPbjEA+`D!BWhqf-hISVhet*twcm8R^a6|y1S>Op$P_rV0(04 zO}X?1&=z8~(Dn@q95=ap{?a9?EL*a8 z<+8s1l}pwxqb%RBdda%wHEoS!dd4ojXyuarWlPtsUb=40{FTcg#FlGutPx{)+Er8_ zetL!gk9iu$LZyu%p2!25ee!|&sNgmvV?O{E4goI@R(63(DCH6Wa6Bg|GypV^mNys4 z78vBeB9@D$1q`Hs^EiZ4<6gpc5$Q#|=PM13>NKP++c}`j9h`+WXF(x@+|EYFE0Q+Q z4YtGSK}BlT=jXy-keQKA7*uLTT2^jOUSRf_YI21tP=dJo=_jB5Ew(>+--C|WP5?DD7fz&2XHw>2#`(&NWbOuU1_aTF@h)zPAXI55 z(dwarRNhu>$4gf6Me}y}2k~|w^C0{<5gFk`in{YWij7SJzD6`abpdw9r>(sWY`^xp zYiY>h%Msgw7eHpn>?zoum;XEQ<1*kuWM%eIFQ2csy9(wduaS>`Krm`{3)W21iUaH6 zApthxU;+bOTzy%gxOoPJSkeQ{$+q|me~hW70Nk8#gx7a)NCS8W)!FDcZ9)D3En!4V zTy%6aaLo*iD31IOqYSR>s9zipq9Yohq(*KB5;-li0N9SW9&L{WMsi^0FE1--Xs91M z5h@AippfY7jN(zF3hU|$tIM*B^Kg+*EgE<@h2LJoJEO`gBWIL`V7tx~z`t0B3a}6C z<^b+BL9)?fAO;xVuq{)4Mg;FCxU(iW^H%@U-6kEAM~q;@clxbJPAcd++MM z?zUw+uU@ue=aQ}4mTca%eCw9JjT_fqwyk&FI)95bIw`St?V7o(SIk+xV&1A1OIEF1 zylUy>5}m?r)L)y$dx+QU^^r~ zDARyeZ2w$VLMb}IZl9q@L(xNZr~2Q zrGRF-2HSyaWN#5}k<}^SIhq*?4Zsj!M5Gmv1jeOcJ`-%GW(!9ER5>#91)$1#6~Yrk zWU!XW6|L=G3uS~LHoz{}u0?l|+Xdcv-DEcqULt6_T$47Gp~1cJoa6JjE)axR`viO?5#AA;?U zqPxu+9cT)PjkKgE#b&1^<+G+uPA-J^5m3*|F38Ky%g!KwbWwgzPIgi%a#mtgVsdP1 zW(o)oQDkmOesNW4Reekw>5VyFLnlmw6T?jX0j z`I&KggxWVaxxzoDfRr4=M!G@@uOIAS7bfJbzDl6dy$J9%m4`Fp#gptUN4r|KCqx;+lsM- zr@1)0`vyjbMx>hw5hbv61U?9X;&Z5vuN#8x`YVly==dm=nKd>tG7?lr9|N!h+Njxm znO+9vcA2o4v*fpMxQ7G>qX@IX*E7e?Mx{oM#vDMAoF|l=%dhQ*(0C z3X9T&;DOxyZ(s+b}R^g8R&*=7wH`VUQa!2Crk;&3u<rm_sO>|zWwoaH}CJi?)DYC_AcJKqi^eFy_+{JxoGX; z^=lWd?eE>Ne*T(%&#+KSgl*}XRj5`LtX#He`O?0neSJ$8EnGT(cJJI-i|5Q)Jg0lo zc$QFwD^9>sktFN`MS7-9oIYpz^x4xWGw04&(7Ry4^7*~}OO~%+*0;8I#l_23 zZdkec;#F%ltX;e5;%$4bTD$eq!m=`b`MQD7;^#~5LNFHnFe$vFC3md{QO1UdPM|TX zSHvEqdZqvZotOo@asM;)$-tLLr_^AYl2Hc@tiU^4Kx~n^fj;nA!#JqUzxc|32i4SM ziBfT?BD&KC)v4Ky28wq&z^M_RfJcg&kBELUB3tEh1ltAGHMS$VOF>-MMcz0qw`+Ju zXxH$LLPm5lTBnB;gf<49j9e*ar*OSkiq(J^(OzoCF#-hm7fB3dIm5qHSH1lhC8T%Q zW=NO_>x^_8YTWi~Ozr_ng~1_wEY$)#rT9{JZ8<)u~fezw(H{bfM>u-A7mFHf#_WEb9Jag~*v-hq(bK}ZWH!k11 ze)#0AEBEg@BM7b=FWfkP_1@L%Pio*yxpMmo<>K{=2UiYuF7EguzV80+bNjnkxntr! zG*T!Ohw;lL;m(DNXAjPA9-QBzT)cGd>WvGx?p=H8^|$XmedC!o-ha#6UwG$_zv~|n zKK3VG{3k#A(?9mU_l=c~Go{=b{=#|`WUW=q#2po|(h?5BDz^x{WAuoao!m)cDv9_} z)~Comfh>@!3SycED}>bG8<@{e8X#l_oP~RbzlA@CZ|A2Ju$=4SB8p$UaFJYuY>cYt-BcJx8i4jP&giLYqi1wAS^dp6A1t)S zMLWXQ)G&n{2F6HFt1|*;jwoIlKU{lzXOYjV{bJa|4E|?Facs18LUnSHOMmd6eo!_3 z-ig~cYcUP#4>{GUDP@jr&%ORRDTH>UyyNZf`1zmz`Tz6>4{WP=jvxQ{$0d4+3}EJCPyF%gIj&>d*bo=YH~^{v zk2UZFg5F@zAC6+VO)xSNZ5T~3=J4$ecq&O_J|!vYSTnCER+ncQj21&E7WGBKv2+@7 zuGQB0_lX|=2?J~p8}yVK7EvMA}(iOa%6ju7VVX0>JoL6cTd^#sOughM6-5K z-LT=W|1Se6HtpJoq8e^MpLqgo#}8Go-EA?rfp@dcV$>~coxS~zA3OitTP{BR#!FAW z{=(h6m+#%aeCOKb+gC5$J-l@9%0<}nyEiW0y5WsS8ug8<=hkjMeFH%XTsQUMtt*#r z9A3P3>C*Mf1I0l?*z6qa?jG!|Z*6pR=XdsZCnifccg0e%h2{DE3wy%1A6`GadGFTk zr|#Umck|Z$Tet4te)9ECKKrKUo_p(?-uk0I@|Jh~@SEQLmf}P$_F(<35tI#^Qo>=-eDYc=Sw`e=p&HzIie!-02@3iyIYg{_4E z^ng1EtyFPa1kr-zz`Hq;L$c>1GR9#(}j zaz_tiJCIKK^Dq86wR|%2DN%y}s#dO)3RgAaXj9nEbS7?D+$IHt=LV^{Sy*%e`8Hs= zRmE`30@%qoXk2}D)}y81yv%y!uEixny3M4ca7nx75w^?RL@mw0c9$z)*6eU?PP5ga z*9R~p!$#OnY*Let7$XiVKdGUEPFs)wN9=)iSi`XNZU?-*$7%I?92DTatEXm%$wz&3 zuSb86`k*>fBaZ&hU%?`UNcF%jtz?81w)+QGEZLH8Xu~tG9vD66=oq&o2aTb8t1D&* z_8ywrIupLwvVCPAJ?O*yYU#g8s{TNn9L6mREu>5}unbQJDIk%y}shWxeMoRK6MM(__cf2Z#{kc&eQj9+`C2l-Ae~%r)>kB>Fpa=Z(P4}XsFO+{~;u1Oq{o9c@PVa|^ak5SrJR0XaG8 ziHQ9|;C%z2uc=w9wltb-1YE7g6C;bO02(p}5Dci7{UE(8Pc5MpaCm0T%bBHzzRAo3Klc7c|gG@%mGGeibVhdgB$>!R6kUOf!cAg-tyYQ1> zyGDHd>k5d}i=n+LM}e)hoezDF?EBh(`aJz%?b=_6cHeSmKl?^?OK5!Vm9+iY<)oIL3;nnHGa*kSeB&3-3J zM-9NibJ+E;+X0e8fa(;#4R3RchVATe*(pA1L^ol7A`z7{t4~|Hq1E-{P)|Q-aU9## ze~uxT!uA$l){!fPM%F!jbIHjA-{`sE@Me7Wig#c$I(Nr6ylu-)*s>+*(!;f@bH*GW zmi?@_>#n#k#*@4AsL`!}JjGiut|nzsgQV?~K`lDKoZtm=b#IEiH|9i)PsNxE2&wbLBqS zsD)!X(a>5|7Mo7DSsRS@W($dl9Zh5-wK<3*>(j>Q0MC6eMT~jRp1rPRhfr?=ZA{K*lV8|8yL@hU zYkz0^{NB0qyBDrpxNznC)mw*`Ze6^5`|{!KD_8Gazkcub?WgbGedhk1XYSsF(|+pC z4eF=wVDWPO{++|yHzS#3I-i5ScJKDJySEN+UB7Yv&iyw$lkCW@o!z?s+;cmJhYp|b z{Eh2(-tdOIZ+zoZ&%g2ZGf&@n_L-+&c%E|i_0QgZ^4^{McVXaP{{zq5d-g`Y_Z1on zxp!78A-{jBTn+^S9-l85iLi76)kzcN^7$di2XTf-6;(mEo-9rT)yKI>3tCY; zU#L?NBZGAym;f4VyasDkE*%VqOBYDjaJ%ZY1dh)7Et=6k*9{_d;Ktsu7U@Z(tv`Bw* z;zZcvjyh~nklYEcZVuY5A((TgJ>qgisGWpa)Hrqlc4(kJqBYjQACUKh^B!l=TeI)| z|BvktGwm|S)C$}6feu5s%aRzx7l|;xtse3&IgFuBW4PBC9WX|Ft=TbK`=pG?!?mM- z!`fXlc;>&gC#5b^CDbqq-wv=NnGvS_;SmI3TYe9pXbj^&!g2!U_dZ6~InS z5vE<>T>(3UV7svH55G&Qd#~*EtNubDQ!gWGHefzvHG6_&AJ*ACPL~zy2JDO;JK2ac z07_pip=6u+wAn)>MU61ITU>FgFG2!eGvQ<%aL_uN&4^}G?j4oHt6@6~ymU)pyDt(7 z#Bdpn;-JaJz;?pL=vk)MVLPZUth>T?_;#>eM-C+%V$i%It0$&2JS2)Iy%`f9tnbLV zr^ zG&P=T!xE{j8NMB{48ZQe$=9rR+x1SnuB$t@vbMIixv{ywiNJj4;<G1S-Zb~=N>Ala5l`3j`#%x0(82fX7$ ziSAA$Awa9c?XTgyxfU@JR0qZd(?InjY}Y^x9u?Of<=q3kGgHH#3$_b@D@L84z&JlO zX1>bCgYDpd74Wr)WLy_kd|4HFrc%rI zE*xF`bAL5j#!U-ZUlp@dQC(Z4K)|t6gVp>C43`mL&BCw{^-=ACpbh_(!r&mok<)^H z$F7U?6-g}K^jPV<=O5MLC>q-k{5bG2K#w2wx)SI~eXgY68S~m>E(ayyamC%vu-zJQ zXc%6P?V4D|UMoTPc@W<1@HuNjA;gt@AoYEyA1k%chIq9$YX7mXk4L~Jw`qv>+p^>4 zWYLlycXU>Q#dD6_1gh0GZ`Pa|V~-=h;^zV0dB**Q{6a&uima#BVg=>!K<+1OuS-(O$b+gRV**w|m& zKG@pY-`c&fzkA{Q`NK<>Zd?V}uid!?XAaKadg|WQ`*+Jr3#~RQ{w6n`efrYf+v9T; zk|}KN?<}9)>K-1nxE*IN9&GKM+t}US+&eouHIeRY-#*wqx3_tAZ{zIV`nmnh{R`&~ zE|R!o``Y#G+qd@b-o13~>Ta$*rAAB|~KMS&4s$&yEQK@w>r-)w-rUrDzdjw4@c9og_FWM`>IuhV&-Q z22wPtK)2vIkPb}&`DtLbyUFwiW(tdo_ytjX6K*f9W)zx4jl)ip@at%J>5ICTdTi%4 z0N%mIW7w`a;#C8Is-qwX;|#!RrEcS`P@6Pn*(=Km%?%cbkjBPWQ0Zj0DF7blL@&p zA$QW}PWe6539mEkutZ(9kljpy)_#KIHdDx9fwu?PDe&`J9vN$G$@3c6&REH)%38Z_ zcz&)rkXpsZ^6*E;y|4*l$mr>OX;W-K@6VE4$(9*4hP(8^oH5pK&5SrYOP17tIofTE zbm~JLxm(}br>6l!% zzHYR|^ocQZY|s>Xg<*evn@7?h48Z>Izkqi^bwXl7fa=pnsjNT`fe~$dj@E-DS3;nK zXU!wAox6~Gc^KH+?0%iy*J^gP8tef3Y1X+0o5p2fu-8QFFG9vN5*6Q;956Y27;0e# zPdZ{fu@y1Mby#g=60nh_r_D=X6jRMd0G%oCm~gf-o*(Jk#F9bKxfxe0kr z!|9Xy)@HlOfcLLmr*o1T8?lVdKq(CNtSv9BZY-{xTUy&$re4}!SlrUe^5)XY=JM+1 z^2!GF>c-jibGzGn`#T30_V>NF)x-V6i?geXSU=zmd#0Hr zv#0U79-bIo-dbJUSYBLTT3B10UtQ=Q87PbouWoIvZSg49ch0Tt@2(x}tzJ6VxO#E> z`r*#C%exnLH`2+Nx*bK>ZMK2l{zNQ+WxnR>W+ShJCL*qaswQxN;HPk#0JVnFRiQfZ zqY28#!iw5pCZGp1nz?s#6UBmWtz|)ScW6+!OyCY7kLUqA*_JqNCC%|s@ z+e{j~J3x4|&r+Kf1!vSJ@YSz=RlWaUm!P`p1BCFgY7dQ%$=C&8Ibl7v+fyT^aLyd* zGR3+~k#19@N9RkCVyVTQG{uGt0faMsw)Qbgvfmi#)de~%so@r9*qkf?{;l4$IXR>Y zw3|{jJKlP1m!8*u_;g8i&zu;*4u@&Q7}4U=kc_+89%*sLTU|+(3~ipyCVQgUov|bf zgs*AyX1wi#n2W2!|6T%s0@$Sn+l6(PqZGU=z@(Y{OW<9NGemv=>#;rFQ#A3=Q~l0Z zr#saj$@G|<0gFFj4`;m5l*4Ijvsf*GxW$*&IRmbMCbsVH&BS6svY+8P+S=Tx*EQqS zHEI#`w*nSgyXzK z&=_gMt--eg?7U72+l{DxabM!ow^%p?B(Daa(E<_j6Pj~s2J^%)!Fb~&Sy#`1%<%2h z>eA}XJocc!_{A@N@{^xr=P_*OaB_po;je-1iglMfda&-Kw6eLdy1ux)I=`~Eu)4Mgy}r4$y|ucv zv9h_bwz0jry1ub-?reK^7b&PVcXtriZ|$Gm+}qkZe|Bweb9QaTXeCH^>*C7d{L0+i z%G}J-EWl0;!iN&!Y-jh%`o`M&+SbP6*2et7x#f$yYljEhluNrC``at2Bi)%AGzcCI zZooF1oq)I4$zUOaFR^f&)D!?pz!_ME0JsF+;n=}gI0r#^upJ>hu#A8mxjMB7*tI2O z6`wg4F$D%Bgun#`1sH)!;n)S(Ioxdb;M2sS0KOdkjO?bCyI#yWs69l-? zVO5TZ241?RPF2{>Ruw7mW_8h}@PF_D0e=iMg!@5&z0AAG^&~5fGB?0&pxfh_D zGjrDh~zLp%w@Dh;L`rAU%Az7QP+mkiMCTHpa5e?h3h&``XYT8}b42u;Zlgy0ZvTn*RC^2%!r4g*`?bA?d=em%Ck zyXKtjV~$MGnJZdT1BO7xo*uBqyY0yVy*F)24x8fxuD%sd@1iv`>S!iksKG1H6(8KC)4fi_wSJinGp@pxkGc~Elc7R<9AP+v%4cP?S zf8pme(SbS-1h(;?`OIf(ZH_w6T_|if1u`a2$mH~~P&L?nERBg@VQ~0yg5y+3V>B4V zIE`4NSZCX9c9#eL3EbAu=MXWHJtX9`+cZIl*K3P}-QkGOY_>`tlq-k)1m004fbF7F z0NWMQP6NDI!CS2B@lYq`0FrYegOOaR@hF%-{b3WajIu((_JkqYRA%Z;9WD~ z{l7mehpP#f6UvR_!6eo)=u#25lN1VU2iPe-;%Zv4LnFKl>GsScg@Kt$c@B67cUKk` zmgX>4gjmt=e0FK2GBZccoXLfy$)%O))uq{$rP<}h`Q_!MrInR|LV=~u8?GB<_!P&^S|T_z>w z{MpS#u>JDh`jvxCDd*3vq!SUjm-?DvaJt;SP)IY9u~@KyY_n+Qe4vwvM8GA$99)9` z6x0H;04T6sgx)|p(s*h>9&k2TonX7hc$@5?v`hptBUIIkc4QX-JMf4!hFWOaQ)rJB z4e$;>%(dhwEIyI@q^HdtM5a0%@ z{IkYpbEkNwBkHNj^HJh!_6F*-LTDYXMk)rt5yj94CNH@Q5i4;N_X3Tk^-P<_oOADt zo&t6zN5+t$V*s^jOIQ2EIDdVg>uK@JP_7w#1h@?IjU4Nn{Dg0hdmO-c%#8_+CXE5! z16HHYtfvOjeb82;8>PR+p#41J+a;b7o?N1UfZ&AUQ1i$O9oxz9%2!jv*dzJFpZ&?7 zi8GG0ceamKfqlx`yJAfa839;dO6SX4Vneq0pgG!)8H_D6WeVmE{!UY9z!d5+h5I4& zfj(orU`h;|Qlp0OE3jRS6_)w+&zhx>T-4q%WsDci$x-kKUVYb;Vm;G3J*>vr8B0YNOlHZhaV$ zQLQIxG%#o(u&{IkLJ3}&I%RxRuhbzBGL3R0v{B0+*y;K?k7jbg zMA8$Ay243kAlzoqm>dwEbgC}5(~O5ShFW&3(?{O6fZykI5yZ%4PsTz4pR28{CX-QC zL+V=Wd3Y!P#Tk|m?wV+yB~2Yitqv4|$pY2C(*Cm(aXXNUF&;u9HfZ+n0t?g5Pl0!8 z5MHpIf3a~D+RJI>Da#nX;!Ugmcvx4i@$CeeKiYUMZ~dXSNZ2zA2f9>> zrb|6TsPRVPS8Bmz;MmP(AEDg^+pVU;VBg&A)WY1%%HjfLd46tretv0gZmu%DK*IUS z!t6|Owt}*BXp-nn6C*Q|<8#x5bebzoOxPWcbS6DJ2d6eUIW=CHEl*C5j!zC3Cr8Fg zV_u&(5sOsVKV6)e9-FOipLF{Q2G0OS@~Ac2+5e zd+Yn#i^*6}-HRf$F(r(E7O)rPpuWXyCN?|KXh9@_Rv2bzkP1)&57`MWQMZ6vMBm4b zQ4_Fhz>Z`FrdqM?B2gDK)8>MzOD3m6c&@=?Rk8s=0TL0#PylwUqMY6kvjeU`TvWSa zb#l>I_a@S(6SBa{waB4~!WX`s00`<{9*ON(wkvE`Ex84HLgDTxkDqR&fbF37NuF)h zVn-SiUQ8V&eP-UF&tSNi0MTuMbhvl^MO~H2*X9oTuSO4SXAoGt$S}6*YN|}mkN8Di zV2CgM#g{1jq&|l2tYn>TuTHO1T|#EUnp%DW?4Wwm=Rz_=4Xs#r4eF8AR9Sc7-eKTT zw#tFzsG>j%ysMKxOr*-^I~MM?&tA<;U(S?j)_@AzYhPa#+W~g$2~}_vPUUPb1%|i7 zqx-SRYq818{{AI*=a@S;;m(z8sUcge*XT>P*rT@Ouq!|B$c)<46MBD6@6G5u*(MvZ z6j=9cn>#7J;=_FZ``-_w%ecK7wwsdUx=^9X7He@No1Jk0+1|b4=-UX+-E?$Stm#o_ zVLdo^+cmImiVgzfI;N7?lqpJ71XKe(I&Vj-E3NZ)Q@44$bfH0Apd0-!Ee)}uhsQ_Y z9bDIl57eBeAV77B%FbDTp!AMS zu*AoX0^92?yZA2=fDyz1?7%p(7dGBukeuD@5isZE>_LwTpUEZILMC1MH**?~P|HdL7I>e7lD2 zFzv#(5A^}F^RrWP(-T$PF3pt3rc1?%(ZT7`U}?0kJk~!oK2R$5PK@-Fii73RVX(bY zE}@lZJacAbXkcMxYG!JpG*%cX^b8Gjjud+e#h#JjexpI(oy(3F2g;>^^7!CXsW4q0 zo}C_@tBftoPLR8PZMo8wON0Xs_;!tT-(I+|J$LEc!sVUC-L>gNM(zb!vbe_8at*18GkY z(?Ot5Ae}a#B6uiFJ|M{k6?Bz*gWyRO~~?7G_XYJ_rJq5)hweU=V`?Z7w_8J*{LLY{_5Gidcg$4ti_?u%M)bQ&$SkTQG`pt@|lt1!~M&tSWRKT<)E5T9y`Z<|Sa3$V*u zsyZ(+nW~!A54}B)j* z)J4L6#N=|q?*-ctk7&4y`N&aL6xA6evQv8?#3EGokm~vrhr*l#)=1Y$eo6e9YFJ?5 z(y2MOV7n$r(NgUp^3iJcV-hLnQP^HDd}Ea4XFcBzs%t_jZPUX4)OSqLU^}SJhTy9{ zWW8ztaf0BP20gk|pUv*KBbL#y-EBAb_vWW2$IIh|a>D5M8838C4EL5s`pU)b z$K;b8@_od7)hFn;IXSogAK@E-q9?*A~jF3+45tsq%Qg&us?qcQQAG@BN)waJL{mA%zwYakvoxihMqE%lkI_yW}@&A@g^pQrKLn#>tJ zDH3=GHn%X_oQ$Y+AYLoFR8oi%2MqC!p6E}lEk@!4=nz(D2exRgrhp`2{aO*!gXA`^ z&f>DUf+nj6A03kg$vozQV56pog&`sSA!=E>%V#iK%~pFT9I@K$nAKZcM-jKG*iI}U zL~t0lQ+Oo=*ui#q$a-vtf96Ku-X9*2V|!#Nr*vOs73wNezKFL5O~f=QnVx;F7nP0IiRN1;){?Mm~I2J6pd+zAsKrGLqa#q27NqO zvrDhS8zy(}Q{9Vu>PXoc;M3<4>Qn+<5g z@%M1)3^kb&pNSw+?Q=Vl$sFU`P2pa>zvGM!pQ}!HqVG&I$#C16@cfGp+0(=B&M9l8 ztHta)(a?6f#d502(qwSz>_KZNPXtJ8Kg|BD?MT>8Png%(1ly^Jfxxp?@Gf1YwkHbC zT*=$B=tz&)pgU(hJ&VrVG&6`f3}}zo(^J+&(HQL4xif}fzcE&H^z4{pWpiT2*|}_s zPnrS+gMZW*DI3EjW4Pbm`C6(6bzR}x;n)@TuKsn5sK<8TUD#5^x5Eh|E>`gFjb)vo zgxwFM2h4WtY>{D-#o6X`yR1$}I2=MBLuR93I2;ZJtPXdsJ#9m}ZMO$P_&}K49!Dhn zfWdn;3Cyt`%1@i=f$&rI(DQnko9sNsx09g>C;AhJ>X{rG8wi@Gh2=ce2!vzKj>{5Z zXi*n5G&K-wnP_KEAoe+Zirk8*S5F)Xe-ySWJeN_Dn$LtHS7#;y+d+7QNT*Ie(8kJt zr3TVv1LW)X*V8cYFzwaI?N+Z%lebsJGKTJ4vOGFi8tI)F2FA4-5H64OmW#dRLcTnl zFBLi`N4h7di(r0#ai~8U3F~!j1o4|3AIj$v8fQK}Se_Ut4tI@?bdMA|M~AzI`ns$p z!^mLoSfOiTI6n!nkM_?@49!grFH9AeDr4&l6PqhjVEg9E%s_9}@3ziO44>avIKMH! zzh2o|7>kE$m{5NgB1Ztow@JVVYubu6W7U)qh8e#hO%8+I ziw8 z3wy8KV>QYp1WO@8xD)-Rkr@-ORh!f9ajUZ_)>lAM#Ty|zk8G-?)2L7TYl>8{U4(T9 z<)lH}ZKWhUHZ-cDR8o3x9|1bP{G~5b^VQ&hL!JmqmB)FodhMK8 zBV$FVb6N%aecyZE$2co^=UAb+sd_;~n?2a(iaC=*-tHM!=cF$`~>NS`s-Wos{6(lfTqjH7+dk*#?1vzBPLJzX(J%9hxiJvCh|ViD7G2yb3lB4YYxI2>dC$oWg$`?rlA)-llFyzE7#bU*kpAfEmzj&7ue#+wZI{l$o zI>QRrAC0=)UWe0x2a@W5JXuKss8RtQUG`ORj}MS-cXt=lL{tfCZ6c@TZG`1emq6D_ z82-mkKJi4uiIYUR(c8bTK~KWOGtDjEf9f<@a*>{#Xlyun2GhfnkDoq8l0Gsz5z>V` zM9^}cpZjO8$ju=`^sR4e3mn;){-mYw?ZEpnD@yK;Hgb=&q|YDxsSh6O`R@KMMfDs) z6s$z*AYPN#W_DY2z1i4Qv1f9mXA1a*buU2om4|yLhkGl9d}XA&G}r;WmxlAB1MSI( z-+*#fuSWyI8ft1RKR%Mr=VFr+g9zluNBhQ^5k~vV#et4=Lf_WX*WEEW);BrYJv}-w zGd@%q8(f$y&X-3Pr$*Oif%nqJ;^g+~EW(+9$KlkstyiY@R~HV}X3s8+B|`4{o(qjZ zshybg4i8Q-coXBzOokNAZdQvPhIZB2q_;Nckd`A7A<~N$QilJcwTA}zc?Jkl3|1mv z1wDbN-R|~y(dGoSGZ5-rv-gABN0LJbMEGzb&ufA|IC&uMG{%htv9UYaaEfqx0ds@N z5eP)_f3sOwZYD6B$3aQ6(8X*9Y%~~%?T_rv>-E?y7Ascv@FYhDUA$>WkNWSv`8Tgn zsmt1p&yD$7?pj-nRE==trvQa~j{*_L>hgH`;h}rAJ@D!*VUSsAYTs%?SjpDWMo?|L zi&>93)a-PVX+@nudR`BY?D_gvzdl^uKmZV48v7i!T)4LW5=^fDl#*V1J+>o(SC^0_G*%Vr`f+p(i8C^)7keFAhxeRsvjVJ|Tq<6{^NCmP3 z?nuU)=<=oqW4)8kP{tL>I3sCiC}s7=?EZv~aK6~6SbSz*(iY6&Xs<4$2%e)nGP!Q; za&`Tu!>VyT!P3B$9&)6I-05Lgy6DY4`mtKWJ+9;s6O9#LT35p8&6$Ip=1`X&+LMtJ zUb}LQQh#!cn$(MQ{9QU4pn7a)GCcHoG+%sbM=0R30m!$3};#F*sopc;{5w z(&&h7P?u2H&LO-xYQGS&mgH3OlYBmpJwY5Zq%VY`vYu!(KXzL8x)X%cKTU*$6OB5e z+`R6I(?mSeLi(RPfsG{yPl5ivCmxrRC~U`9aTG=ugKZ1bP@6>?w`)%}))?lnU+f(9~FArc|6B9~mq3K~Ikj^>$_(8%_s( z?#YS%nbLql^|{jU>_mZju{@-~`+RAAae8xQ775J!)Oa%NuZ;Fz+FaaSm`FYf+p+oa zIPLA}RKV-;xm}rL0&7q58j@(nh}Kf`Dut8BDG7Hp6UkFhfe>1sQq^V>5T<64u4UaK z^KLXwZmdKi>Gt?EKEZ*j1>zU11hI$Fq55pYCd%bTT}$SeMkW!9r44*`yTe48^LV{3 z4=E#h^Ibu|p9s&PNHo`(hcMykfOH)VJFX9Uy|&`?`!SuxSk~#RF|n_K?Ys}dz$=SZ z^rvDfBQK9Ubn0V}u6~LXQKCYDsH$N5t?UEU!WpX`AiXM(v7(%Xhev&Y6bP9Ns4gz6 z7KhvFsM)t8^iywaJpuPFs9w*y$AW=l*k1qjWdbg^dWvXNk<7>qUOa!1A~ZGFuE}a# zwGRA)u-#%J6Me&}rU(2d*sj1_8^c#_3ft|mqS4b1R@;JI?)YGf(M|pff_vMsF@v*l zxSV!70t9?pPB%MFH?kgdH#A#G@hshDcxB_KGGmiVJrdj1WTfu;7!l|w9otj?)88>3 z?ilgLdTjo7vo~vSCR%L~og;3G4yb1T8`uu(t_}y=>xT+pM-)S0r&@c0?X-t=S4aK5 zgv}Rp1cDX}n*$-UKWGjmt+Vkcpp%d?+G^SSA4i`We{*$MO7wKwhwx2wuBXT@=4rlnpY2D)|+nzYt`uIt_ zYnxA;#F(LpMBCs01TmGhK!v11k&DV_h&?m2XZ?r?&9&6!z;;j_?j3lSV*z&F&-!~* z*bc#HgY7cxg6-54ITpU%tz}{|6A;pA*86OR{*EMgK07`zUmBbnAE=D>PQ%6zcZ2Gs zq0UkvpNhKj+0gJnZlsVO>g~4bTl3jCa+}IT-{SP(LU}BoOwE_e^Q97|GhM0F?8N8{ zTz-3s;KH5lsj2b)+42Bj4(l%5JJ=5EzC1O&HZ!&Xw$GQhSLWIi;mx(V`N^Wo*s@X@ z+FLBA9wl#g+bzR=9sQl@_E^wiXbZXQ*>EtQh;$~R$#9TWoY7!5VZ5iuMVRd6IF@PV zOaN>Pi8J*8zJ=6){L^T**`4lOt|JsAcXvGON8c0h^1-^j06T(lF-ONX3ki8EHm^BOx$ke@BMgaW!H5MLwDp*H?RA3iN zYIOiX9t1Dj!_QsVNZBvXR~iep1Ml)vJ$eP^#|TY|`1W^5E!?u;p;*)d?-ccdG2fZ& zZq_rxv}@W2On?ZIfEfcZ*ZCL5qD)uTno5+D&_e}}^>7IoQZ{aQFF;iE*0%e$MTtYJmf#q=0Bs4oNOX4O5|i~?Lq*%8sP`etNy~T znwO;ofdz}ohrCfL#oX&;(OuS zUjy5@6_|E#29Q_S4(qOzAP+O}sso6=)fA6n%V4v?L0R1%i_=YjIg3ApR|IB|82K@S z%26^nkHmHvR0Y%!BApY2M;fEXU)~&1E7Z4F1AeC2aN-o7!r7B&Pw z?(cuR`DBCkUouFXJlS%lffR>2f)bM}hz8UY>1yp`tbf*38rB_ru0Gz{GJ*C0JMa$3 z%dr6aYhb%#+Gz~aF2H^a+hN)rCOtvJ!1kf8%tE=aP#T;c@0%OzrBsSt)5Az(x~37c z1L?i#@u5z*_wnJp(`qI-@WfD_HnZd13zPjTKzw^#`HX*JcAz;j*aNY&IL_ zn!r6N%gK{Pm;&@Q2>rUdyN8E{#)e1ABgH~@PhYk@5{;UzHV;V>EmmS0U~dU%qxZ4d z?Or!Q#eIozq|nnfIoREsjSh9CCq{awCJMuY-Jx(e7K>#t>Gyic&r54}WxCwkaovH0Bc&k;FX z$}xGJ8dBu#7#1V265|e|$ zggYXBzx)&ynxm>CR~x$ec}jieW@oztdAnw>7mZ+d?Q_S;7!vTr!@g8Bkd6ft5kEvS z7SN*fJ9?iuh37H>47102%TJk7Wloe1tE)rE)tT#2!BER{rv}Xw=U;zL*(ngAdTVk; z3`Cd@bekWR6q1HA5zBxm}gN|tPZcw>U3gyV0Jj2e&VkC z?M{}7FzrrIUpl~@s;jHfBlFjv{n?)hma6Ce>Hqj?S+NR#OMl+{188(si;2UL3q zFkh~M%vQ_wqi2B+_h-fPlXOvlfZpUd-C}xztbYw8YlgAM61(*zIZ&P;&KEJ~$@B^v zUt6-tnbiYZa3<1O$|6q zBR%b_Gh?gMBg>`!MOg8PzPZuvS)hBQYks(UVWhh<*jXun^IgOFgt@J?I~AK8$}NrO z7bvBHWdu5z=t60Dd1`dEG7eC$RK^#l$DI~K(C?j{F3*(FpAOEJG&u~A4!lzqr-~bu z(XF|O&Dn|RLT@VI80*bnSev`FF?VreesgXj8+HY~HSvY?Txy@qIA7{r81K2hyRtrA z%##Wv7CKw%oyv!c?ZIr&o(X#cE*q{}CX*2coRu_7Vy`1}Nz17b;ljtC_d zkHsUA&QyA}GP5vVS}IK@;&Fcf3B0ExmxJX-{Y^$KzZZWBU(n|xw=U>k87VAH3|2;Z zXD0^dr$$z0$Je;w(a~%s6OBgWu~@#NBSLa_kE@la6GR-+>m;R%7C!4JySl=5^`gql zz>6V-d~0&oVru?KY?s$S4w0G@)?@ptLAn}MgfJ8WRW>7R$H-H&`M0;U5*{IFccN1O z;Rzk!@;GbaZs{R!DO>$@zwn1&5NxML1S;pxCqwyIjg@6jJ+{NHgX-N0twBeWQp5H~ z8sG_+B8I_&?eJX;ks2-;2ku?IENbb1$wp>1KW1I>Q@(4}7((5JV46Zp+=?6VEN->y zt>G4fm)yuP;631p1wD~~n-UFbI1kZcj+nf?4XxfV@fCcvP~LJmsUODn`f(E)RHrfD zDUi-qe>gOFer(UNpTUmNbpJ#=+vAUQxWieiJ8Ji*&EAAHn8jkp9`102a)Eev&&Z5A zP_UgOL9&NO#?^T(>#-d@wQ3I={BXC~^Ns&e%hSP_^Jswd;li*wN(kUx`FHohlLV@8WuruA{6$`jeOsTrOPnatxD zKQ`+KN)OJTYG{_O$~oyB6CY=Wc+lZ$pi!`0z2vWf?X?4|>pNyKit-IPHiq&OY$w;A z(`-a0<8xSicH>A-c71MqV|H|Hy09`ixH>hoRO(-v=vx}^+bj*Oj`gpM_AeHDrw8+K zmpSJ1PLB*Mjdib;x>icvOOu0e(S>|+VPa^tGP*H8u|7AkQW={q74^*x(MYH=IW{*v zf=s3|IxvSQrc_v*99b+6(`IXCY_l@DJXsvfB`d|gh0@6N?S<=Gb2qjYFK;bQ4)-*j zKJoA^WTWAOt(j~4i`RB$4mYRAd(tVtbE()f-Vy7;L&9T;_?@KraafFgx0ATayg3Nc zLtZ8dx5wj&hC;=`!LIgPC>V&uq9n^r#v|o{{e|>~Ur$#@E|acIj8zJS zOpLq}I+MQ1=eGO3xMQ#sAkID#@9@|Biie#q#<>7FizHG;i6>NWa z^kh#H7LPgq?AeZ^nJx5Kn6Z0}FSy5cp^2H20;@U%y~xu~xr=GU-2@&Ma~W0$bx^=nVbSfQ}J z{_+Z<85a3|rMF&}6PbVFD0_k$^ZH|jMz#QP;Ne=6k5h6Bl%baNOK6bM9tn0D8{z)mC>k8klc(7M{cCWVI zYWLu#VYd6sj;Il^yOTr8E1$3p2;IFXF^b?21P__3?khOU~E9nj;I zfL*7^^99vE@{x~74aY8hfOsUZbBMxrLdD>cVaH0tqDMwS5+JA9iZ~a8>c>xM!uFF5 z1T|~ZArc_=Z)=-oN>3)Blh{9=Lb@UsdX0BXx?PX$qE1!1R3(#<;nmvLVY}knA3ssM zmRwP4Ql?_xjx@&WFp~iXcrSFN&draUohzK3A3Zlex-~PrH9N9BTU?(WTCNPPR|?yh zqmK;?_2dl3*0KKd+<5Q&7{K1MG1a?X>RLlpI@q~9KCm`5jF<%t>0-GsTOLhDf_|T8 za-ujpRhXX|1gw{*ki(2@R5<_e_T0$U!o=3XRMPJ`yEI$u&1^0eukTcD?Nsibo4dEO zba`XJYOKkx>if^Scz=2P+Sb&~&C>PN@!9?~BK|I)rOR*Wjk;1UQ^IA*hCQ9ha3&s# zl5;Z>^txUBo%!}eoaD<9pQi^oc`BJn;xmC1C0Hu-k9K#gmd4J_RR+_^q~9C%yZgG@ z%RQZweLW_-iD)@wmE~y%$p{_vF8*e=HHAbkDH!z)zZzMg(0 zwreqAjFyuvtxZNNmi!onHa1rgo}f36%EHFAOvFwH)?#6Xy)PYASFgWTJuQ5DJ+}8I zqYB$O9C%k83qN^MTIjGKVZ^+Imyz?U`jOZ!z)lU{u0}w{P-^+IsO3Bn?SXnDfd>;4 z|5EK`MgY~-)S$4Ppd$HXG@poeYTBGgM?9PX=RtVb^`OSRM?;=az-@A+!@*!0vAaLg zY)<3Az;Ib@{>RVQA3s&IS$#EZm!Xr+D89Wue&bVbeUBOqAwKmdU;XbdfA|0U%fCeQ z^)o;Fvp@LeH^1}U@A|+8fAS|k_`$cn?QL&)+uLy2&>KB(|B-ip_~W1W>3{hv&-~Dj z7_Ff*qyQrxxycdAbY=T$@GjU+9}viJaLQj=V~%8|zQgg}(fXf4 zdy^S|BIS;TVa;*=AoGGF5DMi+vVD{B&SI*)lVBv#Sb(*2B;*4*)fwt94Xuq^758`< z;NAgtUKp5m2vA+bG9Y|CwsR`Qx?}vws)T!o_`v&X3njAWp^CGjGb4#R->goLrDk&z zi4Sl9rx56a>`j;o>VbD{UEkb{?^4zI=oB{U(p6cK(?bzhNw?K2$Ip714A{;_G&4C? z^g;EF)jcwWDQrK%)lQ#$>=d)g6OgB#cw94XN0DlVUAF{WWIH2UrDd=)0k-cijqWau z?=P43mM3V`e7|E;- zcg%DpCNjY_6a?MLLc-e@b`EC3z3q{XWFX)$WTSyXzP*soW}^O~&UC3ij}TyNARiC9 z<01EOKHDAjPxW>zjt-7>XOTGdcjdY=v59=9)Sa_BEneQRaLDC$MZf!*sjP>s86ZBeLbyS9#$O~x?l;zyucYC@b)^56_C-a z8Qu_>lE4B8idt*4M*UDjJA9r9z#j6a!#>30@?S2ba+#@|2<+rWebFq-Xdm`kGhrF>6VXW{<>xf7E$q1QZ zqD|(GCUZLE_u8C^21D#jQ*9o9&(S8|X|1k%U_4L&fgUOiBlI(GfA2ef;-7!yQ=k8f zZ@&EHZ+-W(fBYA}{`o)oy)S?BYk&Kl|M~KF{^mR1{@d?-=Wkwq8Ty;w`S!QJ`(5a- z{Ez>>ytdY&v(ByU|Mp9N`lsLc_J=9Gj-YbX()?2G(tq`JW+f>ygpz@doVmB}+@{oD@$Z#o)i;L5bOOXC z4w4oqjA%%WO?oWtnvlcb(A13V1<^Y;`5Ir3CctbVA^~$Eu?PTm%+%#HU?73oGLn*GiW+rw+HKu53@AUl~7G9y`A}etvoU-27N~!f$J9$Y&C( zQzQME@NyX>?_VnS&5z{~-4xoR<)O}{NklG#7*CE3cCOA%wkKmufrKMio*&;>oY-EN zJi9ctvpjWnevJ8o8RYDIX(FG#vNm^hV_~!-a&fbA`~1S4gM}v#mM$)rx|4n)1*s8G zM966$PI?b2eHUkXFHCoB6f+A$sr9k$V%oP-$n8${ZI5=AQtr{tP_ZjI+8rxogJWHZ z@<4ko;zBVnl8Y@D`)2w(#(T4!abGH6?@I=U)8VP^%;HENa;HK^ZlF6m+?U;&8W~K5 z3ApBshRJ*D#2_agDs*KFoyiMZ3s-hmuN`b$zp!=n!sg|J^>Z6@i{(L04L#H`-kluk zh;$`=9dUo$=LkBjKBqO8;_LU5YruA7Nyr`5zN0EC0*tcBYXHrE)m=B~YuWB(k9zcV z@bC&!VLQ_SvU*~|K!EKaJi(9jR)XP>7!qewuaP+Tn&nVUV}(orb=aHVTwBI+IhWg! zj)pqp5Ac~Q)nhwdRo9j~Qd1I#_oO4JW7Lhz&uSQ=wp`4om8g%9ziKB0kX|1~K#66D zLr4*LR~OZYBW%Z&=~y2$V8^}DSJT}9;Dim7Hq`I_v3HB+moJp%2Eaa5s`=ftnv+Ib z5X)8gH}D#Sr?f|d8p6kdIC`M8wx! zDK|BqWvZ+6n(T*i7d+61v0aY+!hiYtSN{5M{`AXV{nFR}#~**~8-MimZ+-o5zxB=U zzWlB4zWg^J{C8je%kRGYjqkkt&F_BqufO}k!JWEZvbj^U<6&=2g@3|gp1ozM%hR(Z8O2gU3M?uS{y%BFA^G; zJreR`VyZ4(dum6(4!o0ljty+b&{3Lo_jIfF{~H9@PH->`Cx{)7y3U9_1_+N2V`C#O zs11#03?>tS&Tvr0QX2goQvj?x*e>QSa>Ykty8t`2e7w>URA&>ByX-;g_(*IgCMVdg z?g(uE{>NYU{X|5241j;^%*hi7WKc0`vBI!3f+N-PS6YU<(w8=-4>u;SZdY#Z&R;(_ z3vpv-?%HP8ua-&-xuPYi^e#`W2Wt=S3ms^fjxm1*>$gL9?crOBa%iGhXk&@$TC znc~t+ab<2|ZGH+9!C=6*G+$Xm9KBxIS(!PvJiWUzy}MjGzcxuh7r9;@xwbxgXLoU- z*ts@SxOsl@-i4)m7gnxq&!69%Pu1axx+!e(7e@M4M)T+A3;VMJXQ%s0eerYiMZkQk z+;hG%aG}z7IMcT`*SA{kTpCI5P4`Xa!$WCrHei}9bd2Z1D?=UY#jcsbEU-V(n<}IN zg}862(6upHD0U?Zx%ONFnS6R@Zg`|U;`6!;#Hn*RY!+ia9@<%)UYr;_++MhSuyOao z*0tTWtGlav>oZJhlSBE5-t0t2ax@$5LL=nRhh3()*A6P?Q?W#lxM*(9=5`b7t|okt z&qTg%sgL2Lx@%w=I~lll+4B#=cAML$vFlZA*G$%RS_D&UGFf$oSczHm4l|k;x19MA z*iJ4ypL-yeQk{X{JG^xG>EHUaAUr*%+jI#+zCP|t8uunby{S;w5w<_`)H4)y9*E9( z0AV}Wo;z|;k^j~MyX=8!2jKZVlKIfg0Z~@nEG5 zz`l2|C$b1J@2Th8+Z+R-fi*{Lrp*#WRl@{%PLXfTa=OoX@{Hfx|iOsK+4rz<%b zh((go0NPbNHE5Kl9t4`K?cX;&*@Vx4!Vj zKl##Mee=Kn?f?Aim%k;z{*9Mk{_@{^>yN(j_22uGFMa-tfARZ&{H1^YyMOrOAN){9 zzR&4NJ^jWP-uF*`G8pf@b^p1EspV|@z(4tk5B&7M_`g(_UYj7~k-~Q1S2dRR_S662 z)07uqe32SUDd1$z9D_im zrPXdSInXIpRglysz74Kd&4+!Gz}$MH%R<~OEyEE35QvR*>huYGCkZ&y*rs=Q0)V_g zI^Zl2tuBh<_!oXj^Y)dEx3nJH72hrbnfhZN#&%F$fSngrogaBS&a;o7CNamUhLb0V zIe@_^GbjoIupR9f*iI(Ok)F)8b8|O$W^e7z-PvEbd$34(`f&ZJi!09_EL`21I@kcW z;@!#M!RqYJ{M1He41<~V+40r6(bc))N~Nf|AkB`g&5tk7j;=3HuFjX1XUoI=Js!7n zY-Dg{p|rJJ2HW@6X5riSS2bWi+@8&G!u6S(=jM>Z+&;fFQS7{Nap}(a#rqdl?qA%v zzQ3MMKH&G%O?e%bou&DO@qxv$t_vHb-PMWGaQne#r88!m8_r%{DPCVG-dP>KwlQ+J zIeNG>bY*eq!tB7xSZ;YDzc`%RD0XfX+SiA&3q$GIq0Aieoc_$>VEcBdZ*`(~tT#TA z%XK6|>6mR{I6KjmfO!Dhjc!N4>%=SfV7an2J9c4p<{E)37pKlu#+JwWD?|D5?sPGq zp6Ed^?kZ8ahSrRxA2pLNjBlW8H05Q`l`E$kyT+vMPKvY^VRn zu)UB952hpeI&81M9KcQi*pa#`Y*(w!`j$cqwgc>f@W@nUtTf5Y5w;_%Ifm`<)KLxF zAJ|+8-~Q{r@#_FP1$JEoGRI{y#<aYIjzy8R9>I@9;zU-`&q z{_v$={jJ||dS0La|c#bhzI+3g5~SV3s9TWt=f7YBGOqU}}(Zk~3GB8}KW5K`>1Q>XFN z4hBP{lOU>?7+S-?t3H73?|A1srZbhy7wL0PjSzPygnp zU;ObGVb_KIP}u(1ND;_wv zQrTLa+E^{0U70$&G`XQg4=AlKO|C3VtZQKe=En*H1dYe$WMZ@@m-H-6j_j|^UD%vI zSf9SIJ_WoF7xD*Z=Wp)M-Mv8U$I8}L<>sZ8yO)-qI^1~uwcT5XJK0QJ4T2(~e)r|g zh1=&h#`-f?_E(;{zQ0-?MEZU8?Ce;F|JL5}QwK|LIVisQQt7!1)6efuJ-ao2cYXBg z%JA+?_s&$u=2&L4m|ia=R|k{ph0Inlw>{c%Zalv;(X~_Rp6`i{cE<;Wda49pzJgWE(6hHQx9uU$55_)p~wpe~2}LI(8r(>1%&Q9RA{HQT_Mt zB@%wOY6I*es}V~QYHnXmi*!I}4cMz|b~!5Iw#U5AIC)wF56+{F-nX?vaIjB(>Qfxc zK}-hke&_f8;NN`omp=Y0 z|LoU(EHP1zxn9));5U~1`6fDp^4E^;%QHg z4CAs7-r=%3 zgs#%zU;gkfO98}~0x0kN;dg%G6Q5858QOcJ9f4$DB0o&pVxv3hig$)Gz5Y;~nZ-_Y z$au;^pxRcwi(q0-2VrBITeQf!4x;}xG$fPB#f1etHq~`SeDtx8eT+pM<)tsYgyvKV zQ%t?8g3#?)E}~C5jY~4Zl-E6mO4LGL_EvJCH9HK1G&Oo{x&U98G%eu9sH;lwbp zBjdLb1dvc;*xF%C$jTPIBo0B?+Vc~u2nva(n@HH#aDw<@t<7gzTbdw9@QM^#dW&Wp z6|MHBee;`WY^miN;Vot8)EyDGh5}BjJ)-K>Cdz;QFDMY`PZ`qsQGMNGxWk@A!q0{x zRSWama8gT_YBgZ@7$gBD#ZE#5(`Z-p##ZUZcKL9la(SzAeQ)Xh)w3@=b@<%93vYeq z@VPq&w=ZuU?k!(DyL|cF%4ID8@AB|K=lb&e*4o0kwYjq^GaCzF`{deOd3$+gb8&im zW%lg)VtIUo#nr~j;_l}B_HwB&ml*EKtXC%XmuD`oFYL`tR>pdW<$HC1`P#wi?aQ0D zE^pmA+f8@Ji%reUt;_pw zyt%tSKUC_9{?P5cAHTQsp1TY0y0!3Qx0c>{W%dUTCZ9SxdUd(){7ingoZA}Juzhnl zvr$NI7jwI%?w#@cRuN`Cz0#i;?+Ev$5?yf(t|xmiw80zIMF<*;+lA%ZR6fPdQXiVu zn1<)M&}c_^JRhCNM>%l3GXl1c=Mxj%nX#_)SXZ(t)%ORTMzgLl0;gwaVd2L+Aa^9o zSb6C3)k8mw?XZiKe-O5dYOH?TP?NFM?}6rXsQ)6^v$VVfw$m}{V~yn}yqU&!)@`ci z?5n=ZTJ^|dIVUM!-ukw;KJvfEcE&t5!pi{5psV^z7)B-0K0Um9@{yP*@2VP z&k{Sl+ab#WVEGLjlp(xW~V2R&2{?xm=R%z5sF5W zc$29A))UESNY~neTtnkypLpD2vp#X+#MJck{=ossHB`&m_j0sGV?347qjW&ALuA*` zQvbw`1Bkh`+1T7{)#(C!)dYukn0-!@*KYC>N5o1>3wGKa)nd`LfZ>2Ss1Cft22+Ed zsxz-mFo0O#s9{lK#p}xGsd-$ptsw~Hk@2Lm;rZO>KF6`tY}kXzRuAtO=WwVNVfdtm z?Wa#X=CJ79HiWB2P(5U`gsQpBiuu@$t@5q2)0ekrFKtyWot?Y7w{+*q_N_}BZ+hzT z^Y<^k;qJxz*Y<8+JbUZ%?ww005H}Yp6X!Np4|X;VwwFnwv9mFIZhdxZW%}%DWqY-< zrLpu2y`zV!61OHbaseC^VHEc!ryr$(|Xm%VcS!VAwmhimiy`QG=u{Vi{~d+qug z?%#U*vsa%#T-llKd;W0kgU_A)sW+^A@Y$80dTQkZcjsTcHUIAGl@|`i?`{qs&UWvY zb35bh+r{+ONaiej`$#+G>`43iU~03Fo<}T`i4W(}<<8J-Pp~KDA$$#qzQ_QZiF)Vq z$x3H0Q-T zbxxf+_0_I@cBn;Jyopnk=7IUFl5K!@7Ty9C1sqB~bXm|mXA$fAg~C)D3G^0@c^AT29c$H3)6A z29#MT1-fBaF}XCEbTk1~$}|K?{`{&exurHhw-^NXLHJHG3oz1{-BeNa>K+SFK-%nCAXS*cI?21}@P6h$}Z@duBVq zlh{ri^6!*cn_xq=95Vdc6%fl8BUmdeU=XAX8Qd4&H}9%2oDRK3fIOIg=bYFFos-!% zVu%tYI*`Qn8E3->Z{|@1e+}9{Bs&&I0oCyygmpb+e!x5Ac3}IOb}&RSApEp_jT1 zN{>=I~fa>}zemTcQl zuoZx?t}u5ij3{!pPQSBm#CGC&`PbNkws{x?wGJY-@q%nFO^ASt%ib zL&foJ*baCn5T3Y4!Pn_6w z{>b1XQ*9^4lLv+(2M1yY`=a}Mg8O;`2L{5UEiO5at`smdl4=A|n!loO>(&CTN|v=b zyQei$A9X7v(+ZaV7TXD{d$gyhw1Q|AIh?)?+cC7r3t6%>3$o0Xm8-H=uFhJsE;nmB zNG84(fx{#eSJBIX?TD)ayh3-uQxJi3n>yP05-~DfkZ1dEu^q#Y+&Pn(@hOz~7x+!< zRv<)S-qy`&QxniK*s?8KdjEVVUO<5NOaY!aR;^Tnz@r3EW4ZcSJpEmaVKW2Uu}VB6 zDA9q~e?}XKRr2x4WHO&wazNq@2%~zG>7P50Tk4LLOYdK~?EVeF_7#h=RxaDTdd0e> zi&R2p)TIsElo6L9rza^PQb!Rl-2>a|YpDE(EN9z0y$z)S~ zvOXS)2JJqF)@xS--mQ8G$gGuARutbiZ|>I38%=tZQdnct3DrWjO(S*a<&2VC6ZG~b zwF?>^n>Oe&*11g~kGalc3VE$zuMHG*n>;q%(nZ(JpUAGDmlf_A9_a08-m`0L|K!Bc z1C#x&jS4aUfjvEEch`?6jjc{$M4WeF)cHie@u?o;V;%ZO+jS>fG>4MPL8oBEE9rI$ z>b2DY8PzMI_yiO;x7fugcCw3X%zP)i(8bErR24FdHbHyi7vwou1<;~zS-))6>iZDC z#!y|XVB|_Fb7b`Gaz>7vzFkJ!uB^;cROTwLZV^(lc%{Jhw9ayb{Rie5u|HWa!N9>Vja1)UW;7muLL9~Z#Nnv! z_19hpMZ?h}hmRaTd>n-HkY^^NK4w0HgheT`@gsz#r{ zEa&*KdP8UO_9EHf~&H+bx^C%*Uc&!2wr#pl2G{iiNmxbVdJbB{cD z=7Fg*4^EwZ@X(%-_5&kL4~(Xc55c| ze%!ZsTWJa1q*HIpE*|ZU4R=Pn8vI0E5CzHMK@NsAb8R6}Xwi~s{RRQBD9H<%!Qi@x zlcQX@eEp`CE3%fa*t%-fW=uD)-$49z&E9|7GYeTB08q$L0X+ju5ElblS1j-7?%upL z3(@(=vl03$qB`RCW!|{VJ|qqyKOS+7nL;oACI14yW%H`yoXz>Ld|JJHHDX606*nUM z&6^9keGzg$-Fr7=cpy9h^<-m6hQN6O>dB3n&q!t?!Qc2@NxbQBEGf5N7Y44`eIbnt z7P1z|?ErOXX7El#*Uh@)Hefp;w`Z+fye*wde#Pn~OEeOGL&%W|TH}6e+-FVIIg+5T z3!okIS)yKZ)St%Nkk3))bH)SKSkTqdRNvRz+uzgE(vV1oeDQ$GXEV6XT8Cb#lL;z{ zwsUG|@JL<1X0=hLau{TGoyepRiI_C27AktF)u6PPlx~X#l+KZA)gb?Mz-9D0%pQjc z5}jo&AH&5tT%=f2i?$$9e`sih;0dz{5S( zAbDok_H>{5La+IJr{QFa`T&&h0mbe*#jsD-Y3DbZ*l|rwTwNViRz?(zkc<`(m-|JO zh@{lYqrk>8q^w9OOXAXU2ale=c}2nY)e3f*fmsBT8%Yfurtk^?<*O_6bTtJaO?95O zra)DlFQw%OE4FjWwsA{yLHvrMT3E?!T9dnRE%FEEZ{1v3P9ZJ_4-N+8j7Q`8NVuw3 zB;;gb)^%ELnQ_3i)f=&$sD*rf!4L{Plvs#one14CA+a4#DBwNwIVE-=V^d$N_9nlC zOA)HT;lyyoPQZ2mJ4&GXja6qx^d%}PL>RHFCgphu%mtgntZ7&v{+)sCM5o;d*JuE_ z5a3L#qCMo!I2Iep%K)}RbR@7Hs7}5Vh4^oA12;);sTi@B1&k{m!30 z{Osb7fBeEDM|Ymu*?D|0b)r9cv_E`&D0*x-dU!ZGH3W(s98Me=N=yyJ(QgZvAnwB2 ztSwtNY%UpU3k|gRyBfSiBQYef5Ik}oAG#I}nrIJ7;xClT)=&vP6WfVCoG!2Bp1|dh z@4@8@@85*HRm+xcS+OD?(Ni~VBu+wLJ7M;ZEfr-&x8HUvZ2Dj^vSjI!d+(XIZp|8t z*$gX`tSwt!c{<#!6=F4Mr_B`0o%z+ z0qp3jw95VV+kowJ?!0~Va?JLoW5{H$S(?3S`9@4AELoygNZXQiEiqqX$lVZj$NaX4 z-m{x{2CPL%mW5b-EJj7aHm5~nF)A$jqGT04a7`#1@Ga>zVo{pr;^%7 z``k|t`JNqhKRasw-l*-_0n^j{rboMsr&{#KQ_9JxbT};Q@=Cj0(ssL~(Z+`wC!z;& zqgr-I#SE*e>vZXv<*gRE7n|56 zMpm&IWof7Wc9Gi*lnLYMxJQ3-1MkFyv@7KoH^NA|J(6$_4`}_@C)@30MLpJm>8xYW7ZPuoB+tR@qHep)urq@Lv52?ihgX+kI z#3dX%G1T?^(-(gE`maCw=!?&<{MV(+fBE$DzkYP(t53fC+n+x8_{x`myY$uH-~H(0 z*Is|+krPu7?d?Cax8v;I){{Gu4~)l8??{~f5J~O2Q#Jwb#BK$-+irm;4t#O$xMS_gRdesTCp#zC=5WHi5CUF* zXFb^rU^{X9$X7Gb0Bj`t5DZp{1qb39f$D_lerEIrippg>(@dyk7NMO=$~&4uWRB2f$c<@*`7=uE_ejt zJOrfUqA=#k^Aq`1=OA3!Y^1}6-TfV_ml1Z4i?_g2Z|zDLcCKBv(5Msx+neHnkl!Bk zSbPpcoy!>YS)*P{ox|j}!$?LC&575c5BaQ-pgkUO_jEQM*gHNk($mopiTNBpt3iOo z*-W}dj1VhgiyEPNMKS>gfy;#)q~4I~} z?G}~Qq)2ONtZJWC8+7P>R!zap?Axii8;28y-OaWg4d%UVuJM%VNN=#gshVsH?5j7P zZZ|zpFaO?%@3}G8bK{Qh?{vH{Zhdyx`oy69T)*>lr|n>?b)wNanzW53oC9H7t4G!B zQZ+af35z%ZD^Qals^`T_f}}&*>{E33K(PKfK7BaPs%1N&8MN6YcN%ox2` zCF1~Oo*{F$e~skEf3C|{k6e9?$ zI1WdVttGaQzz%FDD52H^ zq0q9$F#cP!Y-QG>B`cB5cDUU)*y?SLS%|s_&?6BZ*gk!Chz4Dg+l%wISJ9?FHgRC4 z?Jn8XxHKX@Ij)Pu_VtSv7jIZi*}Q_5v#vCE-OAn-28<-3qY zkyGuqJ8oz5dCl$ZKrjifrZeTef9`Ce!GzpSc4KDk*P5LECHodK2?^{tLt2!-x?l&= z2L#(mUB`;03s){%v>54^=g(h^O!D*Zg;hM__QS9p9!yswhooJZmLZQr+V3fCAxR4M z(BTk`!~>Onc&{!*3%}9M48K~koii9rLQN-&{ICC;3F*Z7r#0<&&7ONVlDnp7&5_~{ z0S5@1_6>+kxN3Pi^1$+iuwAT&lpb{Wy_SI2TIaDweYS+(9{1V8E_={v4!I${LzXr` zukM0s9gg-Mb0Xwuiu)1)yWg(2>EtkRgcjYbmcR_ss*zY!LXAvx-@JQ}EJG;~Yvp3S zRw@><%z6bxbeCD}w++>iNjWVZE4tIW^MHO=Dy%rTTV8pd#mI&>h zGP63|qQS6gD54&YYWB7{+MLpEkK|0h_o+e0sb}CNtk)C|F1I%>I{N_p6686TBTK13B#?Z324}L8ctNp4XIdONoAd~)+eoU z@GFd*GPufWITU$yiM*zSUA7IT?*eKGpH@O%(F}Mb#{d|TCr5JTXvyS>J&EB#K31p# zUZ{5?yX*an;QF_4*;0g+hxY|OrpVfF%DnN~8=0>ak|#cFiIS*`cnc7gifA{hW4?lBq%xop z`DdQL-VE|CUXANWb}!NMcprH^UibwgS{)IOw6QtuA`KrgFyxdL9GaHFW&8g7f#(FO z1J6l#2f|~OAn;2NLgeaXE8rb-uTaYqjU+!R$tQwrGZ^Bb$lOBkBFlyW;9TzbH`*=`s1c%=g&#b`{kBc<ajl9 zp?|2`@X&zc#GrS7r|)2I^2lJ*sa^f2_Kcj|Gj?Rh;E~?W-HoB~gncBY?+a^sV*36% zQ*Y4N?$`E2%)=?`P|P$C(DeHt-pd-@$^`s&E#jb_kJvkIHQS|TdDWbtjvvZ_SfbC$2i0&{h0Rpi2W{K30djj`UUqT8_LAaU3Z;-r zE32%b5vL*$29S;gEkXI4U;YL}KoDWnB;ZY(oqzt;sf z>346x_{-n_B~<(yZGmKfA{Lop8fGtM}GR`k)K>R{@j_V zcYpoTAAj+~r%q0s+MRrOck{`KHV%t7|9-d!mD3nCW9`AtxGmvMtDUh-&y4@q|0Pzx z4cjT(H&M24EYF?RmSg8kY=8Ncmoxh|6Wg~gU&_p0&(B%Q&f8E~l(TUDb)%O|Y`_1$ zdEdDesYBB)Id{*VgXGd;DThX*%)0aTh|lgais#-wovsd5ymrz1pHvS+z=sUTxQ_O=>BoRxLWINh31r#BeXQYsDUu z0@&`esta?bEvAUuL6pT?*Cw^BE{9~mrx*#T#$)QqM#EIIqtnKDu+#cbm-$$;_F$7{ zf4yOE(y%wBnQAc|=yp$b1r80Tjtn#$?oFN?Z9h9XbY}n9iCqJyMth#z-E($0dc4!M zr_nN&vQEUDV=>2Y!a3UF-_hb5Z*Yu8Ekkvt&VZrGr%Soijc$E|TOV_(>a6mxMINy# z;xpE3+iIzpvvO&`d)sH{;n3UB?2EKLFUbu~xpC)SFR?xHzpSuMyB!T3Bbd>3sW4T+X1>0za+2l3i^O|S_KEpG$ zD`bsi`ystwxpIZAV}#%WH1B=Ll8)W`2_=P2SIu# zD1XbwysS;xTc+i9U^_&2Xpf8Y^C-ndR9ZzfyOua7f$f;8K7Z~!(F_1P#7+X<32Y~? z>ys~_VE^(zKfnC`rO$r<-o+oj@#gp6c=Km(z4z<)KK;|D_@w{q#miq``Rbov{{6o` z|I6n;efj%8e(v;7o_gTv)00o1-uvng&OC8?&$(kmr}wv?J3R9EiAlZIbl1Ek^B1q% zl1&+E4>d=vLC1B?Em>(MgOrPzsdX!|*VA&=Gx9fT1k;fR@D?Dj2*3{WC&d1R#Eu0F z#1$;W*@`!>R#CSpOV){sHdGa6-*?Y-h|a`z?EKx^ZUw>e1A)2jxqFtutSKrfM(~!_ z<_4`?ICs|d1Bsb#q7O+t1jr)}ZMV(3?bbPW+zxks5K`y?>Jf|ysJ;rHz(~ZlXyL;7^ML0N*D=isga^En=OjlO zm>H;!E#xDUxf^*c7$lJVv5;p&V1n=5a_e_tB6`d1ch60SCWE#Lkq1C9ZoeAi_jY_o zz+`LF>g7Oqv}YZ1$FEv~Tu8w7WSzY!=IZN6bhjj?c8{GrdhqCh{fGBV40blRrb58> zWXPF{xaxd1uhZzk)F)Ic2BlN4fVd7{Q~?Z-Z*GUNsh1j)nCT5%b=ZeRsWmZ%1%%fBn>O z^TD3*@t(-J9W77q?|*n_$Nui<@t)X|J5m=$0_XeP5BCM8T73tb!Ux-9lO2)0y@{#5 z#AHWkS7TsD%HJ3Fbj7`0abHh7(1AB#$l4GvwFE8gAzOn--&SXBaVR1h4#agRWI)im z`z18LjNulgmGBM$)h?hJ_!U|%Ma8B_Yp;v$7?YW|m>dZt7=p>fr5R&`94A03QX#W^ z&3Z(VLFO1}FH7?gnRpY_!T>Ay;O8MD$*N_Hq8tIOL`*GGFbb7bW$M~;MfJ4y;9p=n zDZ2j)xt(kec~RIxY@Ej7Yx+j=o>rCQFw63*OY#_n+d=e#Y!Iy=yCQ#UIz({JW}td` zUKUmX?DV4TneaY+&J0yHS#O%TCbttWM|2|=@PKq22p|Fx*p8CK_H;n7EkN(-*pCFT zm*#9mICsSJE!?`9M0i4OCzb6$b;#{S`8mb;`IM64a%y=Mi%DE2g4h7w0qh_`bO)-R zIC_G_cCt6Xyz}X2f4+3(-HV^U^YP{1{_&$9{qn76e)9TDzkKVJ-@W_Ww?F#ylfPW~ z@}HN#`af6x_WynHx3B;F(YwF+>GMCjaPrxQ_dW68_)Aaj|H(54o_S>K+4EB`zxepi zzyDl!Ya1p~@0~Y)?Z%wedhbAI#Os`v+cPT_2(LSI_p;Wr7n!s$2V-= zg0IeB|MquC?mPd!g;NhdMzrdt*bZRCm?WSb42kW4cK|!IF$583_!lLER-Bu&ar4Gi zh{z40eg550Y0m<}1LyC&^%j(KXWa>q2atjQ=Jz4gz`b`v(Y@fFyFd%?orZT}5R$_l zvIqHGljAc}^1;STY|m^VZ2rG{>#g6p<@Q@{n>}at+_^~hbn9&hYY({{bE(j`;}>v` zsa^yJ!=nvgUxmy>D?(4a5aPX16eGlyJJ3Q7k zHPE`FH8$2!KhPQ<>S!2jZ|G@?wMIQ%$v|&os5j~BPq>ESjxMjZ-Yg2MS^o6ADjnqH zl{wOc=#=FyafMgLaEci=A@8ciZ{A$6EsK)3jY}(~=566pOQcLHk6M^Helq#Y zdda$8`PnNFZy+aQ%NxIV1A0pcX~dr7FvdvEJeHKt!Tjbo-v~)f>_%G3u`BYJl)M@Q zYA7#cQHxMADfzV(1=VG_KyrFvHlt{JWpOTI@6(HO=q0&uksuqKsemP)8j>N~gO&q= z($j2L7oszvWlfuyUR^S0*7DQ#Ik3rr1}5!LT%5fb;p0l6EXv&qghw(aQh-m(@LM-Q zA+tSeWB&H60^omPZbfM!rMQq%Qb?gv=*%jjsSsuHW<>Ad)d_JOCEA9sAtG8J*%jFN zkqgg$|CQHY{_UHu|KZQS`SVA=d;7!Je*dSR|Mm~BzWMI!Z@&M=TmSjT_dosg^RK`7 z>Yso6$N%~2AOHOFA76iY<>U8$|JrLWJ^3F`KlH;VkNoJuk(XaM^P?9p{Py*q|K!E* zKXUS-jT zuBO+y@9w*1&AWTf-E&}<0?Wf&?}TB`E#IAU`)%{*LX$IV-kj+PUz|BT@G|`45VI7^ zbW<~)akBB543R2@Y~K8N^AJw#J9zcYnuCe)xwB^@HOM`4=iWOHk%!TkISUcH@}7Iv zBYEhml^a$pL!{hw%NK1}v3SFZg<>|NDduZW1$&yp69cWIJuL%mjlInceJzb$4WW+u zx|W2$F$!IcrzI6=PKFv{!3b>KofeqKgq-G}!xXR^{WgQgto4|*fO?lvODicB3xx|7 zE>!812xWw+QinmOk&10PwOOgqOT}B)tl?GDELyq4pn&}E(8=6-dBCEovuh&mwDXk5 zqRh*_Nz8$Yyey}*ro*k+8P)HOYA56ReR0!BOgj`-^#>JQE=ikB)M1wl)aiFO`S!Pm z4tB+cqxLS3uHC8b_NjM96{ot5Pma3Ije1TEd7d0eJT(+N*JXKn*!AR)=dqFCxjyIP zBf;kncAwur@W_Fk2PZ}*hr18%=sCEfZ}(vP#9;gAV0(W@swWZbN(4KizMh0JQ0}>2*Hzefyo4)%>D$b&oGBW zT*`E4N+kQs-Z*W032i^VAo8*(`Pr1b?5hGir1x|z_kwMk5c`oJj97eZmKNk-MiqYa zWfdh1)-<*gpFElUnb|h-gR7;pYi!rbJUw`q%XCJ-wo7X=065m1a)5Jm`eCBxDGr5Os65;Wb zX_iAO+h?5LV%Gb-POHVB(<=2ExmGFBD8y>HNGjyWL|i^+`V)*iYQem_5#5Yj&1BLy zHv`+hF*5%r*uHV)>dhOF8GPlOdC0x6Xu+Jj;4%Q4Oeol4**tXmG7 z_7xkJE?c`~!N!%q_JwPf%vT7QFlFp%P7Jg`G_4g=b%S9`msi)}(lp!T z-5&W=N_VP5|I~=>!cPBFyCTnwMbGy*9%Ey1# zLlYw>_w6`)XxI7Udmh+3xOb>!-*C&0&iGKOt}E2*Q(l{NJyQCP)tNh+%gZ*q0yWdh;JXCDtf9yfyU3})g3 z)Sl!anM`(e_KKCOKn2-b=_Lhuo7QmXMG8)Zl1%}yt6Axi*dGrm7UCHpO0r%snRR9I znfs8y4u;&GmXnVjA|E$$JIRn}hGr<(6bYM(904*8L&Bnh1l488_5xy66he$gsw^&z z!l9M2=%s8%8A?#*^^!b59#~C2N@xbmX|RAHA9gS#l;H!PJeFXH6s~DtM_~D@!6J&G z^M~di3jh4AtDY5`pd7r{_3l*Fyrv~<%@s)^73E5`0OuVUb+1Fm!Dm^a`CgzKDl)9kAHgm zu_qq2TlGX^h&};71J%iHA^VEhAEif8H4;_tO6iC#xP6!-AmnzG9teg`o7U1J zsSp-~u>~5FOXi;cFZ}TbkCWpKGCSE465AoY6BaUrwM_c4y0#GY8lZ^qID9Y!)Z#Nn zAQy4vLXMQr60)m7QZ8#o^Td1>tNQxH8Tl_BsPs7hUtv2$6f%P?PPlUMlDlWkT8vD2 z8#df?-~1H|?nht*OyfdL1Wh|=9zGf7%*Kbq+7-(;tXQ#X(ISKz*tBx#`elpOELk9C zRd+TddRyzq`r5~P+lD(DyX&Kkb?(N1vp#5Q4%?e!uI88*qB~|oTNE#TPHa-h1$pfxKbcoASi zRx9I|=4@69m_fVVsZ}7)h0hGAM{r1J>?PZ;IjWGI1_sHJ%r)Cb>tu)OwTJ7qQwiU4=)t%7C~zs)M?aw>ZL+M$T0-KA=EDB7H=W~;o(BJK6a_e5lmbZQ^#Gh7(+ zJkswx)oOgOS$8a{IF^(@(4;)ss(GSIcdpa$*r4yiWZM%5M;@LUJ3lr4_`&f9cXb~b zYdttvf1o$MzcV`79v`a@52Zqb5l?^6*zebN`LuYIKy(Mxw;~3*4*HyK!AvelFhQ z1zB4v^0r87sYnPVXHk?_Aw4a(vnV?5HCGgA`kR^*e(=PRK~up%74yXTCqQ5_u^kGT zmtTIFP|FZNN+=Hr=mvCTUIjoNIvG4rh|7u+`{0qn_$T%OuBub~Q7;qhY+ z?s@2u1CKs&`nexG^Rri9dF!3G-~Zr)k1u}u$;FGGUb=MY^Di!c@ztd(UtIq3%g?^J z0{fYdKl|*%i=Tb)$tQpM&kx@E^EK8{(9u0?FL}Q4mQ3Bg<3hyK^!Ucmkq{+nW zc5&Oy3}SUgxp={1AQE{L7<4igTyINL3wB0HL?%ax`3_W#kw!LyV6Fje`WGESNE$d6 zOlEal4mWd^mXK8~ zWmOY(k+Ym)UbT=neSfhL>Opc~qy07uzLRV_uP(4xf8&ie@T5R9bN=jkl86}}LVHA@ zIsxq0?d{J)!q>AZmvi4fmFzcNg9tu?=tIbMzzIc$jQmsx@EIc#v=vqEUq3SB0t$1HOi-~h$Xz9EVT`gZ$grhRq;=JU%Y!HJmtX zW+e2Ggc?&aVoF+ARvDEu>m-3QFfH!$TyrcwL0 zIW-JYLIeUswhcp?cm|2L1JIKE>!u9$C!{9Q8ci#pBQd%~#&v5YE{({R&br7(UUeCV zE~uf1YAOVk6j3!*!mJe6&;?cHAaM;%RD+a`)kvs7}c3gifZSAPwmRsuLhz0wli*=|y?lD8+eYMY*8T;{0+-F}0$!s`4gp zAG~)!|G}%j`qh8@{AVx!;uk-A?H51z@lSsG+N&@9 z?5B@Ed*RqaCx!<*h`NBTpz*Qs%&M=NK}`|g7bMJ*FP$zstHnTX(oUNWW*!J0Va9Pe zM2S`Ml|jPbjQxpKoE#P16yfm~PIzM%;e_PIW6i1~&FTY<%A212f3cBQTg|GXgOJBw zR9huvR!Z14GH$Ju!$hg%&(z8AYRWmx>qZebtr0gGAChE$g8A2df|KA;BCm1Dq6G+V zvlPx$_ujpD;R2-0TLlvdNQCq5fkGx7gy#;-u+F+`&MaU%Txj7@wRXwk^-GtmgW2=K zg>oKesIz0Bvvr`iwWkdzooq{ln!?`tpsPM;Px>q|uO;L%hF#{c+ZORo6BIH4_J*hr z*gn+LzIS4zvpE$Ddi+jHz-4xr)droax~3Xx|5eKtBMB2Ec957^>4Np6MqyRSY-))~ zF0d%YIw_A=T~U_5)t)wSmsqs|n^s_uv$t(tdt-M|@;CJdm6Ivci4ON3OreGhg8@UY zN73(7_qY}9Hfg6_(d|%mc~qTV4fG`4etmDi2z~oNz_2@_J(^NI+OB+}TXVKc`%s(y zFzhEAOp__|o|Iu%TrruD9Zx9Ew3{C9cRexee{4AL*l_S{yZzA)_cQz29zWP~Zh!B& zJv|SPw82jP!JYjlb`2dK>)qeiG|>{=k#a%*GY~R$`*n?0Ny;cpso6%01}!Hdt*H}NdPJ2j1-rJa0G=?7IhGw6t-KS{x!WvWM*YQ-W5);3|Bdvx}y+@k1sE0D&ETq{b zRS0WiWS5z_6eEvf;7|}b0haa}R$Aq*<=hN&u4Y(3pMM*?-*`Lz7h8bpB(URft&m}o z)>x!$tBi|;R!)`BCg&N1OpO4zO_y^jmE3AMyGmTc5LMF!mE{CUm~;iF8t^V-S4vn6 z1+PZVtH#r(;MdG(lAyZ0wxXm8?!YB8Cpa?q1hzvP160q{$pG64Z44o_r*$#~+i@Nc z6?3KqIVj5u(_mg+48xdw8l{LzDPmAdY1A@0je?Rv|8JiC%r<}zxHS>KA>z}ga~Z%8 zD{Sws_YAfNM|-0?29r~}x{vM~JGO7{q5bEr@l2B8dZLFl05t3fNI=~UIoj4Y1d@w|L)3eRk2pa&*#)7`B_8I#V zs}BI%>*a?U)i?e3#*JE&-r;q)gC1WbP?w4(nj2%Oq}6CrNyH*ft&mj%NEZOr*-SB~ zR>fl}c`OCD76hSGClRQ`>>20eR#7rT2v$#nKyS9qWCUEe47PGz>#*3 zou8gZO-CD;d(T|N3&R?){l0tdUcMw9iykq2*1&D{z6HYSnvt%q@&2CCp{~Kcw%#_# z@bUH}>|lK@5qG`coFa8p80qh5sZWIcL9fH- zGP`YBvq{J1u-C6$tB{Baw!-CbD^xKSr4$5UhlPwqE;P#oW`)Qg7wF^yI^rc3ZZ;@6 z77gE|;_79!$RVB^tbE*A7 zNYR$Th!u0GBT>gtopD#4`gpziY>WJSyZltM@<_dMZ(O%KW!~N7+S%aP(+HbM^@)`J zWTWxn7Sm(hwli(I^IfJ#n^fo9437@@PLIVO+uwbDch|X{T_<<7pV~hJJ^abNqsPX( zrutG-t^UbI_jt_O?NzthWsMd|t4YwPWjEBCZD6q%%d4869qu*4SnL%|0^@Ay!rN?Mm7<1$C>OnkAubkx*}9&PwcQl2n-x z!$DXBY`4pKHaXWUVIhf@PQ+C5t5p0N1-nwgu9C3;?{rA)!YWAe<8fGQ4wz9SsCXkiPYC3G>sAUBVYVl3`N+4jWsN-&AJu|e_nfvP9qaDHVuE_3zrpb}+$&taa!M;8FcAtFY?SACU8PNU%`+NJl5ryog4fuC9c3Nwj zbd~K^cC)dz#l-6J^1D6!M$1gN`?gad1@^4ja}FFn{LzOWzxk_Qe%o%}w!I@_yYa6h zjR1DVfd=)Slx8BS8Hs5IqK2JK=J9&Nc&kUR;9oVUynXgvcZn4;xlS!n%b;*k>S2Mc zHNX@k8uA7M787Ewh-7@Wl+Tv%SRiO)<)IRqbP_(hqA+KjMFRtPo>9)eDYjP?XEo@V!$D1tPd5;`Sjgx4aE4-AWS0l<0;E^e+R>Ly3Sq?VaCL;O)ud>r2L{h&Fm$1_z z?sQ68ZK5u>q7AwlJ)l^KV8@Jt?EKAZ)#6$Sw~}31DypUOs>*VOIZ#X+oj+*??Nf1l%IUNVHx4ZqLg*-J+)Acf zg)Fgbhl*v9Rhy+%CP}4H%rJ^*Mx-OZ8dt|6q?-BV7B0n5Tdb`vKzK|gJx5N>2B~P< z6}0V$hkWDtb^LO(lwpw2jlxQ^xEf>I2oJzl32H$E@+ogwRj|6JB2^+RGbwqXDrzCh+Ul~J zsxmGT6Vz66IW;^Uiw7q?K9bw9cn}9U)iegByu6q}DWR7ZRbHi%>1;xf6l zl|p{CT*k3lRd5UsLj~$J!xGqSka-NUfGO=3*Mg~>h@~&(9`C8280r}6@9OGo>FMp* zy=UTq(Bd`7k(XUroO9#$h?3fDuI}-$hwJzQo|-`~tJ_}F=jM$BWTOGuL>+$z!tTY? zBd!1a`{HW!-rH`!^NyYSCO^9T`FkIJ{L44q*fl=()Y(UFte4obdC9!3%kJw6+w<2h zUA^F*!KCg$r{zSS|IA2qszHCKL3yA_vbRYz)u1?#((O%}$D^hpqybIZN7}q2oq?Vf zuSqMJeLJ!^-GTgiOaV`h+!D|ah-yWAj)2SIvuk1ZA`-A=NbW4<0AQuUTCuQJB&bm$ z6SRn>5c9NBflA2Li}^;W&?G~4IX=AaA-&6>3FKBwInc(_`OI=|HHA|}sil>%>E&!j z1-FI{BBoz46{`?)RRX3?3SpJ2lW_D%Q77R-_CSfjsg-b$RK+M4q{R~a1rg<{d;(rA z<8nFlvf}OQkS}C0V%p4uSboo4NU@Yo!v}o~oB?jd)y=vS=9qWiJ1?E0l>Gg(XTUt~}ztZF%Ab-eouHm_$C<$=fB zP!G+jnr~L|p@H!j#7-U0p_L%-9^4Xb0DKu2$t-TX^&HB!p@1A&P{$L_k%VU~=^2eX zhoiO~DfhmXz<9#8BW@jy7)D~op_H{h*OH3Gku>j8!<(|GPx)%rDTKY}W#YCTFO z$OWB`hT~M$I#n#Yf@zgiTcwqVsACb+iGXP~enmP#A&6ayEVR0+d}O56R^{uF)2cF0 z&B#TRdqq{AqB>v8D$=q`H0%-`k75$jEV5}}*K(-_0YlHH>v%LBpP}V5G(5VRO9P`5 zRB8p4YHqcPQ<1wtND5g^j=oJMFN`4h3k5;seTClaEU@Nt7TX{iNMd4Ojadu^CE>Z~t_ZUUl zRmC|~CAqN1#LiXJ{Ay}JRYiUct*{oxJhc^k2y&cCxtJpraYX`-P{`$qI0%-f)*)-V z0N-L2lpm*AB5svZ%GIj)W}U>QliIXm zhfeC$NxisJMp48jO~Ar7>Fa2XM??O2EY#ST?CNeGofw%qy#K+6Ph5EB@e9v9_W0wE zoPOx&kpq*Hd&Y)_x_bNC5Qn>^B@v1G%odGODHe;l__!!7%)#tH!FE{eXETcPYs&Kk zm4(vke4T(2P}M}$%w`L>+r=9W3WxoiJ#q15Tr?Ko40+hSj@oWJd(bNykH~kW^g9~u zyL#*AFNBg!KG^XyN4`qQ7k`U(P(BOf%1aZ|w^4Dl!+gBmcC5_=J4I1IFU4uByEE&b%%F#oH{nKYe$b( zEl)dc!Yq8w>_RHV>UD`#5{XCZ_K3m=#Oc48I01sO<{LX%Q}^MecuzQ?Q%xlApIKua>%81p9r z?zqn#^|*9WF|&$VR-BKVM=O>sopmQ%sc!r3?eOPCFoIidfwBEJNVe8T8{&2Kv0$vu6AilJb)HxNiWhHvG|&+7H^qXk0wnc4UVz4&{$XfL~rx%zNQls9S;mA_BL5|C$$rC%~0IX z7d8z+6OZ!lO;09nFC~&7sMbz|N#~5)hqK9&J*dZc?6Yl$~vmoM{lAX%s)y zAbzM(e7ZsOV7>TQN^zuKcc|X5FQ(obk?#pfcLybV!}7_HY$~SQjaq{8;h=Ib{gt8a z^s2i9x^{=M#UgDn%Og5bRlz1vRS6|~ZP=!2uCupAoUIW@Z$ogXIXv1L9czv5Y>$pN z2YbSnj*z}Hr0ogn`Xk2Ppl&1qU6ZjLUjc4en@iT}l(sk|txmi<)IEOvK-kh#XX*$T zT7B9kx2nmbZi2m#N89Q#fa=|vs7)3&%c3@A)TWBq)hOdObr?-D%R&ZWK*t5D2eq7# zo`({`KT5DZd7}CKVDspHm|cab$8K#6mWcK`Se)D20l?kWpI1 zC@ZE@V4q)tva-CKNu#srbQYb)t)y`oXc(2trU`hJu)dJ+s_?=xs)R-r*QVt-4SbhX z>TsxSPJ`K?F&VXXgu<@#)ipP+YGw`+T82<0IWI&B<6K7LS#c zQ|2$af7g){Qzy@|#R_N*(k6Si+;RIYNEI}%v8D6vKmX@D|M|&Bm%li9_8ekAlGr}$ zw%Y@4&(yvH_s+RX&0{tOEUV_-S+;fkXuW2Cv+7Wj=4g}tWS9Lwi{U_vet$}Jpk95X zQNO?0yr;!J*67&L+wj2Qoe!Nnc*sopWZd+OWQJaKIO-vp8*ftr~7x za*;qK6~cmDs}k8vh&Qe?n>1RzQlpg{vu)zT%%F2|`-2x=kTr{#PR%P7B!>OvL-b)Y(=bgLQ; z_>g!dAh_&bg?9mv5LMW;62DE0bV!{Iq3)(gBQz&LS5uw0Efz}oJ&7=0?hU(ljGQ`o z+~@V+g?J0F{Z_=!y!DP-Z-E!>>SYk}7cO0R-{J-L-h0<72z?QY)HmKtjg?P~HJXmK2DHtve4cE+_k;`)h3+hkYx zfnB}F_Y9mnHgRgQ`#?9M2Uv!qhJl#5J7()ixO)?UzNT1zbNygj<4Aksct>igEw#Tn zydN)%r1e&P`&z*M#b4i>7z~JQ}vSLO`5|g)#148U`%p2sf2isx4`bC8490? zka}00Vlph-7m*x@NcKdPJ7cQ7_2#`To`J9#kPGSy7@;`oa42ED6E=$LOk%T$(dgB+ z1HzGjzBw4X4SX2w zV73>0g&tuu)Al^Ynp#9iE>*G06txJUS){Bj)o{wSJgQDW*YW9k0mC4yG(mNfrYgK7 zb;3$Lcu9>(%7o;vh1k!dX}DCBMj=BbtW=4a7Ct!t%we{T-fk4$^=X*{0h}lwn51@tJ!9Q$Y@enTxN?|CzA-2N~sZE z;a*2L8IIP+lg;(5oo&dM17W_cwJ{kF#p1qb46gQO0K3huQ>%p{5r@sHtSE!qY+iXu zer0(vn@Lqkk;0y9lvO!ZH9-Tb-pcIs@VdR+fdFqb$QuuE_C$nx!lKEzY&;?z@QV?D zwc9Hh_H!o_@~KA6REN!PQRfwLM!T9vyIPy#;Y2Ko5Jq{$MGrrX2$e7Pj_)yAo%hV0 zH}{U&b8fx!HsI~7yF?QCTYq~0;$Q#XGd%iTh@7|F0+<30-*v~GCypFFdh8*%es(sc zB5u?CJ8r8fD^S!HRA;YjwX&z0%?}TU9^Kt^;ZWcH7WeLyVRuTir@^=zUl1+ck*?&S z{o|+3oO=3uFEFaAA+z6wc(}7>-FyH2{X2IwcXbD&QJ2%{u$XNog9kqbwcV<5JIsEc zJFRqZTCENXwjvX#MK3dH(y__`wl0IhV^n%gP?SLmmDn^$NWn44*cftJ0YlAWz^qFH zovo?L}XFH zhD7K#%IX~2`nvz0t+x)3^S-u)Z<`q6pp&MU(}0uMF|#C#nMcFS%*@O@qtSpg8qG*E zVkR?V9IyjT>NIVW21-d9D&KSN{o~tXpRf0iQ$PE8pI0N<&q#^ZyMJr1y%yJ@6I+x# zJqQ$q41<_sk_t3@whnTUOqzjMFgKLsvgqXvCLn0QhiB79Fhc-r2N~o~fBb#maKM)B zu?IFB*|o!E&^q)AuciE$Fe?QXwFm;3${vqk?JFwhE@@<3qgrIvN(@?+#h?dlx0noY zuhXcsa6-I`?P|G5DHQCxfcnH|-VAhBQ-A`%E%2HWrv8w&(8v2Z%<9SOPfUTeXnn{dfz?7~?Kd)7>zvtSo(=p`F=(niTUMMDmG zzg_?i27?xM%EXGBI1!UzKrc+{xJflNt084o=z0A zQ%pjfRYLM=d497jVABNbI0g9*gd0r9-@xfTSMzUMui5x4DaPmp4wSSZa+%tr~v&BuI&i62>~*}y_KF;Rf<4a~d60z)=<1=#?mJ=AUx0##AFs>{_~P3ZwvrydW& z{?1xbcO4Oq1MSDau?^o{hwiLFb=Dv|YkJ$NupKq%wqwYaN)%YSb<~g%O$>Y|84dck zT0|>s%O2@$JcMY1)UBhK_9}d5HKDtfhH55s)l&PKah-Lz?nZ2P6S}hz+0oe6RND%3 z)tbr%n71B12n>JIQE2t6yIY%jyW26CzCLs>hCn2e84M~*oVhrkpv=^E93~I0--{pGU(*x zPD`uNs)Zr}n@wl2$XqUsM#ItQcm|V*$M^O0v{hFhsRW7U;eFLd55N={g>2_A@eEQo zpVFyfb{jdpW?qMt-{BB+1jOB8Nq0!p8JG4BC{X=!jGNbEVs=^uXor*-P?BRBO2*2~ zdZl&^dtW8itdS4Jeer-Z;C8|~JgCZV-hS)a>u-$D&YP|F#~yy2i9PZUPs#19`*37ERdLt7u*{P@EUg4yrZE%&pL zjdmV-$Sy8LO>bRVT`Htf4r#(fPZ+3aBR>mTHNPRRo7 z;DZ~tY|+{sp=3sHcd0a5`1werVln*OBs>nEE|&1+O1VO#mT6TowUWc2B^o3QlMK{}GzFg| z;}R7-s)9#T3z-^lUkBqamB{NbMf`57Q7aL09(m|Ns4^A*;Fj-ieeBsE|K#Z(L$=6c zPd>Kgp$+$ukzF>8Oeba=Wn7(@r3Sepk1A)Aln};ox3pp=baw_B*9x*3E!YmIEkNDq z{GfPLw1AEkF$q*G zqW16}P*<{uy}eCGYY)88T(O&n?~%}uQc9nY*tK{2Gyjus?>@F`)Xts?C?_NK=~V3G zY2J>XvEwIvqOpGG zP&63xdIo%!q(?L0Qig0Yk69Mg$>Vy-kV%v?u?u=iUW*;kcbBsV2gfLAPeW zBuSgZDZL=2<))2-0kbe^6{T&GL5FM*h6V7USvc%gj{4MDr*zmU$vK51PJYhD&Dl6Z zX4Z&>lQXdfHPm4pbwEW*=_pAJIb)#1;{%wen2HR#An4oSbl{WIJqo%{&2np49u3>2 zX4~X+yNqd-FzhmtTSX6BB~hn35p<+uJ_!0rg}4HB<{;}no>T&#(SG&1^t zy|;2PwsN6tymDDM$a_~ayT`=p)=^ru1V|WfQlV=Vm^vw{8ax&N;o*9(B#0^rvRZ*T~#oCy+`A4FimB`AJYUkTx>HR-wIbIvK|6c;5cx%YT#dn8%A#(qo=m#A1}6d-4ZvIguI1AKq)zuVAlra(t?p~BMYPm)w$!)QA8Q7mgsLM@?bQ{nRTUle zwTO;ZXt_z?bS>nvMN*y3lYMHq?Tj{2>_M@84N*XfI%UOZ~B4Kp|o;iwcV;NF4`Zfd888HVePg!tHSI zJAC49zpy(X?Dep_?5r+5twYB`*km-1Q8eK9oR}-!dF{%b+t*&Xc0r-Gx3_l1{kBZp zKav^P`tZYIE`Mfr{_Mp|m#$nf=(SrPeYmdj=nozTYn1P7+<4z6;NLfGdg1vOcf9Zt zAUoJ$mC2J08=ib@YfpQ}4}b6jNQ`@E^9C4(f_)0GD&P4Iur*t@KCtoWhc;=L=(JmV zer4{ptCv?M1`APL(!@<_c^SQAIAWR^ADo(-I)DAzlRx+YP|gsc0)e9UKd>1|AWbf= zh7wta*JpOvb!LN9BNHn{0y$TvmYA((r{8OWVTRQ#l1ey$?Q{&3m`egrS}_w3wzLW$ zF!^MFcffWwzKezHWTIf`Uk7V|l+HS8XCoA;s}X=5h(S8Gi%mo@fkj8P1KAEeEi~#N zlK_Z@YZ=VJfa|W;B6RN}20_BaOPN>|muQ6FP>sN*!Xi=t=ab;d-Mm7KKk?zfB4fMeebF7Kl<2~`+xM<7Gqh* zE>Q7kN)9AqlNAi2l!}!z@Jbd*1}70JMoP!Y83cF*J`1U)YAG9Hn4~zn`f%`S!G9v6TJvxh zt)vArd0IypRij6==z^Y5G|-EB)}%?8H}VHkKQJw3N!TbJ z30lS?_Tiv$IAlzf9}}u<&^R&Ro(kH=J%*x7HR)4M`Q>9SLCMKo>sPNum6LYXjFUNT zAp_YsYGVu=$)h$_$<8Y|_(OU|T*HW{Xnr^jXgMyOz@--jjG~}b<~2$DCRxw`M2#$B zmPD=6xJ#1^Sw{!MlVh2=(d^XFKt35Bin#`TrU9!grsjm;SRtVX#1tqGpAZz2BT}3X zOcf+xaZCo~hD}5OjXiMwHcp>~-f5<^m`F_qe3KSauff$SaWxX`F$wON7+WPqRZCDc zGEBV`)gVJPND+0?zFIMOWA@Z=y6c#ob&Spieoqyzr-IW}$%X>Prn?5Rs~8=X)Yc=w z&%@xA2-mI(Qcoqdw;Gf=(4up(EfP|vnBFd?bx3HPN=CPw+9AR>anKEH81I74|E{~T z2-PS=H}auSjo{Ko?W$q+HM0Ba*=2gURZPcfM06P&BOrH{v$R08(^m`PA1b1T&{=^2 z%l(!LbQ2sOj-nb5ARG2!nh!$Z%WtNN&<>$mN09XgF^v`2wu-)%gNWvX$ks|!+p*r( z%C4rvZFL8Lx(9HELu*$<6#_Vx_7*%E$>VbEc2_c8m|Z$Ey>#iq)jOB2-C3AF@3eWi z3=*cNwWqln(Og4Cv=KWRG0n}WW{`lkQ;~ff67+lUTLnAuSPCB0d;|gpMJJOu(4*6+ zuq`jtXgD$jS1hBk*hCTu3ND>(Ev-#;)fI=U4j(wOf6q~nfF9fpzT6%4NAc}VOk5X> z+#zCht6AMW+unpd-K)h$1&;z<^xa09 zbMKjQ&+r^xSBuJjQOTvNAS?-*e=ZIBXIx+B_MblW*nj7TA0y;dT0KL)o3htpG zUkToS{lS-n1ca1~l2b5h21ZFof$qAuc0Zrcz3-)e!^yNA*)eEjjQb_yA>~ZJVJ=~s z3Tf6Nszo<%#YtOpkXJ0EIX!+%jU1NsyPC+y5Qf58sj9ZfpT9aN!)a6V? zV9Iet+Hajd!>*VPk8{+Gk*Ob1VV+)<4N~q)H&)i7X7*rrxaTEVF!N<(A&u$ zv#@eTYTiJ~X|aPE?5LHQ))F&%%AlS;Xkw-S+x6_Yo)TBZ5SvIku909Jr%a6 zL$;L1IOsB^To5~DoybIHM$>DvW2aYUPcP1{PfyO5a;0p4F%<&e%d|xvS978YCRA8P z_lwA&ER8G3Atl`h69En1qk*{qE1+fu;T0GY3otHruY=KHrL>s|%~ooQfz+rW)v3vK zT1tbKSg#?}Y48miENr{ft1t};RE->2BkDQE?>WZptmbsr2+L$nCAYhh2e0&0b9-vb z$lrC0(OyAqJ6a}cIx48$RkXfpHl~3G%1lTK}SOi=!GNk|<6 zY_ka0q9AsF(=tS*D2VL}a;Fp|KBI@?_*6cyn?MF52M?zq3?cToHJzd9MLN`GS?p}a;MBN_v0(AXBWWxbu z^L|w8AynH@RGGkm`Ru;-x&!UChdS%-PGg&EVO0T#?4^;22Ca5}cJ9re{p`x?x6Z%% z=35_r{)^xL<(Hp+edU$g$JdXC{eCu$tQB%xT3OO-(aAVs4n-~F8Fg}((x0G>GL=2~oL9Sz^YA-2frU3z*qFmD=KmzdPVBQyzVJpgM$7E#2d%f$k{ zUhfWtW7*vNsSB5Gzjx>3uRi(wA7B0D|Ni-(|Ml%Z{-!lL!RqFN4?mF0r4K*!z+kHX z=Wo8UHd~Ci%^mfXPd)L7PRa#wbuu1pX=&L2;+YMb0n#^@M}c7Py8-5@Ad-O*>Zb3M zr5~H2ao@CI(}oRTqWjbDKh}C=H@mmdCcs5?tbVI-BIUYzZtV|WeD%@qKKso_zkluJ zo7q?>V%Pd?%9YZU}|aK7Pz2Oj_a4^CWuwJ>`snjH(IGJ*c2 z#p%==)M|xTtCFf!GQB}BSF3<(fNVGx6%A4)c$~?2(6{3iJc33*(u=7E2~EwxE14KM z4JpER0=C~}1sg%KOGh-ZP^~;nr-;xaCiel!EMXCaOd_z;G7ylW zyi=82I0ck}9S|PC5C9wsBIn>Lg<}Gbq5?4IQ{f&8pb`pvw`44ej6;>(jXKpxc`6bA zafn}n=hwz98{r}N*uzgg@#y#9;I!#}TxUzrq_sIUcMn`utu-$L~DIYzU-~&kz!l{!C29HD#_JeMnMF5dZ zc~}6&#P@JWeE{;{)(-EPPwK1Ly-md=0K6-JZepMnbd(JG1Y*y=o&PT!^Izml+u;`m zK#O7`=Nzn(Uo__8PrAh?=h*>Ri&PXU}up=t`h@Me!ioxl(7`7Cm zj$Fu*4SRF(XfhlgNoPj0x$&`y$%)z7+2z@VwdJ+5r!T*H{_3rjl@rs2{K8OlE#+K~ z=oUk|gLG&C`m8y^}fBod?9OevcIc+aQ$hx^01{_s#VFck6*1ssE3zf7y}z<(_E)Dt1J{1jC%LoDoygV|re{RgnNM9XGsxMZZ-XHw$Ar4v2O_ zG9uXZgap_i4;kS1x!7GUZl|5y4p%3;&CYByQJPHTCIh)iPi)Wu)MIPqeO0o)Dlwu8 zhOiPug|G*Jy%JoJp>+p%=l9ldI;#NQnVrDWRDcg5v$vXqsukjzL8vK(!7dx6<>6EU z9Eby5T8>pt)$ws^Hd@a?YnXi+das(?2?;4WYPX)=qoskozeS2|fB}J?)@fw*giQR> zpfBhIIU!HX0efncf{Bz;;TIDkaoec9wSp)C``kCbi=;Bx;;I$yL)PO zbyn@@uHFgPo@2XkjR(-Ry9urP={;41jtXRRdEVMuy{D~aUt7(Aj@rWrSYT{!z@rg- z7Cr3uP818*E?*eUC8lR`Z{2z8ci(*d+poX*-k&N2|eiL6v#`U%Kwb!*bR5VuYZ>~Pn*;v`r+5qA`2Ad|7OL$@toeA?+ z7Kup2ppb3Njj$@)SX)_hbpMfkyN~Vzktf(D>;{e$;Jvl-KzIFN91J_afSTAUBX>(c zlS69b(YknCtWqOV>Vd=8X$?k$#b)&e!h<8p(rjjGv9NY#;lj%&Z@hK$oew_v>`%Y{ z^EX#-zW&~?KK$o@{TC=9pMCZjaI!pia%F9m9?IT)?KTQW zf`N@MD??1fr8K;UBGtgsNQbbLRXz2qE z#i_Z{FYny>;?Mv2**E|E-50<@@g6j3=Oqx!hJb z3&5k|fd_r@^u)r+WPWOJY-(_1G?htNOgf!LVbCbdpyZZHc<|U{P?;1o3s@Iop8%R$ zEpqdxgXv5gi8; zQeaWQcMFt+AU-r}rADOyoLh8KV81yA83(v-fbKG4vtg)81~9+Z?%w+l?%}iWI(!KC zWnKuL0(7Db;2pSnAXT`ua`(>TJoeDTn>KIRxcQ;Y4?GA@)hD0WTDAb*yve0k1ua^a zQmE%qG;F+zg;TR|fUyAY3OYu~!~&{AyAB91CL`b~B=zzMU2L!}foTG&mEH&6S348g zPD8?Qp_7j5X5f2ZR0@(95caT%NYMPS2!QH+0O@5jC@g%~3&0LF?;gF znUg2Zp1pAW%C*-np1V8?(IjEVT*NT%kuAq8s}qCMlcQt#;hEgfLT+e!bYvnwJXy#= zO^+2O3xz^~LsltbZXN1%vC>d-zEoJ9nLf9;aC&)Rb$)VTs<2QRTF58ovjYpm z;B1*aIX87~rTp0|Cr`b8_1asny?XKF`i0en;}iMus59@;q%9Jd{K9ZHrsYO8oB<;* z<5J}!j$%4AJ{T@0J%zZv5VhvueBo7RtirUBo6@sjSvaMkCRD@$4KXUm1jUGu7!edB z{UU@*0O$Q4Gpo}~Yqd~Y&E@vKL4&ISv{z$lROo6k%v-xF*d0f?T~*N13lP=N$umJ? z(^bJnRB;ehLUg?Z-vY8s0}rG=WEdghvjc+dn5e5agd6%$Q-w26x}b75Ej`&_MR zQmcUucvSwFb?QTTvZh-XmiWi|eD!0S6w+41^_mCTRFbz-~9cz-~Q#?l^elm>dQa>?QlgUXjFdp$3H-9;H}%QuBJz>+g)Ybu>GwJxK+rI55KYDZvJS8^LS^Sj~XO~W0nqN6t7#W_-4`ve~ zP~$iZI={4>|Ln(eUY zQQq~ywsA0RTx^Gc&@CY$rQ|+ni9r?uGf<;KXwxa|W<7{oY zfZN)%Wz!Q|AA971E!&@aCO;5~IgAbk&m^L$?_xXPIe_^+66Rjte((O?i!vHgNC4lD zE;bs}#Vu@f+0T%JZig!XJ^(U@(9I_FfKr`_M^KO*pzWl=UJ1Gjfc+k}!-xT}9o{D# zN#ua-fbbkr-Qk@eR93P;Wld1Pw?o6g4C191{te$=yZb2*wLT{3jLQ1r3QS1QlaOLc zHrAY*GixI)+6Z%I+=LE2roj!XaRUlmNI{4iIDP}a->J?5-g+$&izeYRCw4M_UVV6s+3vM zuY>(rKJ4Kpwd^FwY4rSrS(I=n(tblGV#}xeQ~A`wcy497xIRC3c5VI2nX@#p#9dk(JW$nd!obiQM``?)Y5s?CR{<)rE^|t5;5*xO(>Fg%issX2zyd;qj;) z!Usp(>LI&)&?W=n&7fVLb;)z^1Ia|@ibM0o%$~0 z5@#L!oKpbNCpjBCt*7>@2!m#3+QuC)!`2nktE9NZI6Dt%=OG-NZYQVH&Fi)^+5qPj z=wkry{O$^9;6)&(0ktG3D!Y$zL3;xOSzLpf*rp+Mm^c`xl9FEdF??k? zKRxIfPulWMpv=X4op&3a0sj@+Oj)`R&=sz1UN=qpNBMKziHJ7g~=z z4>!=a1K=~-4hgyr>Iro&Znu)$O6@&H?5XQ(I*e#IjBKbRbTshseKH{<)9)V}g7cku zD4<##@l1Mn(@xHmi$Cs`%!gG=F~veiuoz%2`5DVT#)_A|3cZS#Hs@kYyVxZcFRCOd zNv+hj!yOfSJ0Pj*$nHi68Qk+i2Y1vS-c?hzuc@J;x#3t_!?EVN>c+ZbO(3H` zwC@1qiQly;hE$P?-7g({aoeHo&mP|X%+Z≫3i1!!Mzl4}tVZOh-jr#%wk@F+a0> z>g>$%bJM3Ur{`7&rWe!W^S;4?BboILjk+^==irEMtmqob56-SZ(%(m4{_S_){_V$j?F8)2EU>~{r=OAmqIo#LSZl-dGxW;^t3k^gjp&T*B!OVd^%3tChd1BAz)%^ zvh>Ou?|k@&Z@>8Se?dmc*MI%zmw)?Dcn`n&{I9?M==bZh#gx}vb8tWGZ`#eu@oc>Q z@ZPPkq`&FGUAy;;jE-Kqdh_P>msh3>Lw?iwg|YEWJZLin9ftm}&uUP^OaUa0d}6l< z7W&FNAkgcgR1AcQURDL`n0-1nO3i}vUAKhNB_elbTZ(EiQx231mkihrcnAe8`oFsLdyo#? zHAG0?qq2eh781|`B3eMk3Me=cjR2~fgL`+u_U(7>-}s%44?up$cQ<_ZdyhZ9Wy2;0 zi8x!x4*0A-y~r%3D*@X%1O*Exhjty zLyhTilO}9YgD#W@srZBf6_H`QVw_V(u}W!fSPRmN{d%!O&h~0VZne;@5xXtQsHYsI z6twCS9!DnV8%uc$32!#+9Emu_0>+Y8Js*(G`4#g)>tZyxmQAe|22Rf8PA$!!UWKQ? zI-vT=wUg&gpF6vLdUbwzacXXUVrITHF#$AwGFpiFiXj^$_m$id(AZ3cwd=X?*_pwm z@qt3poAesuc2#-7%B6}sfPt6BY_h?C0SZQ|*??g*Y#Z^JG7e3~u1;H3gEqyWRSxa+ zutSk|tFsQ}uveD}7>DAn{9tHeEVVj6etc>6{K@s}7caej?dChLzxCejcW%A>+I3h& zKfb&&Gqy4{vNoPvE2S34l1r1>lS|_#SEf$QO)i%TOB4Co(ez?rU_KLE&iI!G{c}n8 zuvlPUx&p8SxddQ49088c7cQ+&u1{s=bK%8YXfEwugzc~a>v+OA7Ez7I z)TOX|)C(MxaM;QlgmQ=@W}ZvMaH<(TCBw?c*##K42oqG`!3iWF>~nLvfV5GdpnHd= zy+YJmB?6@lqDlm#SWK-LQ>&+T*qI0y4;NCihJ89X+MJvo%(}&1DbCJEICuyfyUWJx zG;w+@T!c%638^SS5Cs88B*lS(G^W6fSn1<->a2$j;JNCdEcp3z5!Lm%awy$wt$I-owdv`SK zd9ilqw(1?vHSgb9yZ8CpgWIc*>^xSnr@s17OZDOA>Z7p1SY3Gt@)Qs3eD1)`XAive z?12}z?c4V3{^y@L@cd5?zxeb~sJ+iOR_w;MR)E+;#=?7Tx}nj+%7rUeZomKfFaB`j z&L?x1uIHB5a|>&hcuM1s*b-?=f6AR5j!jNPOH;%1$FIKe%MU;M_MRUWHf?%j;{#7Tw$)@Zq*IyFNcPlpb}XoaWA$**8ZfHtI$6+RvBMxl!c}mHz#G6S zpO%Z)@o;)D3E^SQTny}egSm%=hcgQBYBoy2>Qk_gN>-W5gN_$+lN}0%?8HzX!I`Q9l zPC?(pOj!Kkl7Qq#35h5X87riKTnDRQQz69}6ChPf;Q98Gs!cdp#(h`2-acDW@Ss#E$a% zIj&U*z>aPcVqi-V))nD#hTsvpfp}qn>C@d};kudkxEdk?U>u%4_uegdx{7I79vSR> z5lk|&x2wM4@Gj_ZSeR}qvJ>oEcfR;f^zvh6yd*Q5wq z)ls{Cz-<}wSu#Fz4zNAy9`;)cUh}A5GZQmS1+8OY=X5$W9W_q|^@~H%Q^oXpF|#zD zKefJg;rz7=r>~q|J9T_%d1ZcfetK$tVFB=Sd;l6+>(YR2HlUmf$QPoP<#cE^6VAsy zVVfdi7ssrkezQ2~P{hn4zm6L)@FSp3v`ga-S-(}51SGdA(-uYABF$K3&_aV$GUHU_ zyy`;441-so6mkhqX*ddl(Z$L9sm0lgCr{kGdi7_w-u(4@AAI(^FaGq0FF*d(Z{EFq z`{naz&aKR@PK>MkC}VzTfTr?T;>q3G0bY&_+i8T3ykoeLT7seE*0&_C+a z=G=<$uwf=)Eye94A@fAWUmS4f;`R~{2)XF|NNlx~S{fTz7>&>6Dj5fxCZAJ_j>r<&@(%konB6# zONev|kZ~;)<{gmO;uZEpWT?0l85egCYteZvV!=&Z^HWznQ2dAQO7^6+d&{$C~so^ENp0pfZpMY@j#9SUwnN|`_%YQ&;Ovpz5Mfife^2$HecQq`rFH=&P9?bPtfo1 zxF3G((fdLAxM}l44?P44*xPsPSY2Ct`st_l9zJ^e-FIsn>$g7n_^Gp}XBQXy`y=UO ztW?Y|E-qZWdiD63i?`ms^TEfz|J`R`U;nq?fAzO_Kl%LJt)E|d?Pu4noU`hrKYsFw zA8&m$pyfyGYPU(Z?YS2>JpdUO4@gBUkKF=9P28!8TSXx~+pS{S;x~RkwCA~)zY}}?!4l=peicsj>?k@ z2+9V__u+K1luM_BuBb!jGb+FqObrrB5W0X?AGmsEnITcqaXKyumKN_qBGJIbsbT5_ z9v8%32_7NBb_-CQP~5(DA*NdZA7Z^9m>w3UhYcIMm>yW#WfPF)_YB-S z4mx=df1(&z*zf|IwH_dC;BioU=p{0u9jqJ3hz>$`>&_SdP2XO>=NUVr(LrxE5nHr4 zAZ$CJoda(=H?t$k?M({N2@xtRMg@g*!_Iuf6|>1h22Q`3KVUAydp|(BMI1JZ!WL1;ER0$uaiF^`(lWN26@cnP zb}6(OgHCzQuN{k+ib>aK(mR$3PUd2BW0~dY{Hf(>7>r&&fByE%H{W~volk%B>DQls z{pDw0{`SM)ymRaI*DjvDaeDQ{RN+K%@OUw^UL0B|xqX~30_S>drV44+MS=7yu^m&T4yXJ_*9 z@!`nyaCmMwG@f!76VB3r6Z-s=Tb*>N!e+5Y$8%}976rp7r|IQXy_5z&e;e2!2=Oj4 z#xFs~RK&0xywnhovEpDM%uEC%Sh?7J0U;Jl8-i+b)WC+vM8+mcnK;8%PFfGzesWZS z42pY$l0FZw8wR*`dY6OK#f{z zuTV9+h|T-yt@|162L*jqB4o7)StG^NnJ8T`11DO-ezEW9E>!i-o|?VQ6?-f1+E>=>-%$;W`re%tkny+U`Tfs7 zz3ZnxI=Jnb1Ka*%|8q|rgrcLcVvqsG2l~%my8iYr zKfU?$kI%jS?&Qe}{lyvAz_7s+R9MV%v&k9^nL`mvB<@KKhlj_qGb_`_FD;z8v2^ie zgEP?4gB%zxp1geX{Eb_0y#K)mpMU#{&;Rn)r(fRw;P;nry*sh6l1Qf=E}O}y;c*$T zi3&t9`~e9%^zRJ~4O3H7k3aE5TMzP=AN_XUfdl&v9{BK+Pp{p6t1vNMoGcwbb@J@_ z^Ye4_`H}qblV@(;{@JCguiSd`y*KXs=9QoSX8yvBGuK`}cjh=~v!8tA;T=Eue%c}& z4B9TAJN3%zZ<$=7&OU578gzr~J$GGefavIj;t){6 za?&Vt?>HDpLfzeCCCI^QhCxzLL6J_Cuo=%k`*a!2?=A@3yMZg1ht=0qf-gZb?2R~0 z0gJ|MP?!}Wy#&l28L%n^3sZ6q1;jHZKEo;FcvO7w?J){TdM+GN2q2G?gUSUSA~=Be zUIDtB+tOh?9svZCXebUID4ISt9tm$7z6&TSvWtR*y{%qY$OYRR z#$EOX@-ZQ#gV@tf?du|Twd{KSr~m7J{HfXXjFD7pAvYKafbDGxY>S%MZlbg~nOy;P zZv+nDygn}v4)`b=EZwltcOfD~JifI-J6GFgkT8Z1J3_Hy+ zmpvKq7?8unhD z8+>KGv_2M_O z|9mO4I5B);Vf_5@g)3)|zjEoqE0-_7a^=c9x8L~9FMj#qFW&$3*T1@b^!nyg0%j*l5k1t<5v3z=QZf$B}E}xxB$4W8JTspXr_ARA6;~~?i zS2OBUjrvt(Y|qEePG)8^et4e)ZgtwHE5w`t@6*}v9B1&_Vf= zF!EwLZX6nQEdw+{LpE*(_Omp!pcETb;!C3N@%kj+qHlHqx?(x*nhbs;>vAYkta#7hWN)cqq$m^1Kba;BaF) zWLnV^mv#pEEoM3-s#L47)gb8s3k6c^K^iQ~g6SF9TGs4F9oq?BmxPABl$QOp)&teDVc|+dxESOt z2UyDi<{Gr_Va9TRI_DyR8Qp@1I;umuIISu)%peXUkG|NtXIt&|XKJ=TRlVcsnw{HP z4(_6~*QiKc4n9JHuIaAaS-XGx(Vg3%4(%u>j2wRHxxLRlwfpHG0jeK@dg19K+n+tU z<2fk6_Ub*`8xQYAG}qE_NSTOdcUlseHM@K&N|S1B=Hm%&(rESv~XeJ0IM9 z@3&Xp{&4o><#cg+U?>+3hg~+aNh1f>S72lA${#mEUecBa9|TW?XeF=DiOfjO5cBFTXrCT9}-Mp}_f-rJJrh@vC$ixWfA#LifB5|8AN}$Ct8b4kEC=HWht29Rs@-}K zK(tfMaclV=ozO04Im$%`pztagcO?WoaGLc>C@uly`w$}CBR8U;QrxBOhta&4eR z7c)&V4gfo-Ulal=*mwew4txD}y*%c#52yRn{h?&S558@oP{8kX+e~V$lmmOFpkoBM z2K0u_CU6WZ<6&PX6x;w*3SnT%Ai?@7>^H%3)4e^`@^&hZrs7c5Y^s6{jtB@)kb+&q zT@7j3EbJc0Z`r(2ArbV413{MsR?a;pr9&e%gN=*=Jjb|dAq!Y~y@Y2L!8uyw)k(ZM zkxL_Rs(DT&#~>i`(|YGFA%D6hL@1x{Z{D1rpX#ZbFw?C!DRU1KBfo@cw zo8_1mC81SAZnH4pNZ#w?p}aisLPXlRXd4G6YZxo|B68q(MQ{SPOGpkm%`T-n5#Fla=u$5^%>P+yQ$v;3#XxCGCG!u7Ki#LbID>VI^G`|4wV(@V-DFwKtC2WO@q+I zqnvgNXZ_-ZfE=tKM+}sbjX7eYjoQg2Bc`B5j_I(IX6lHEKIY_?JQ7ggL-#%%x0a&j zV$?ViH01;4A%|+jCIQub-m4uA8HzD0WcER?3$mF)#FP&ibKnUdG{b&VK4={Y03+lm z#obfs;A}QJmy0hJGs~0t6Z54r(5|0czH#x)ts7V0ef`$!SFgT)<;oi`Uw`Z7joa6+ zy>+zG9t79ELeQ3V z>Qh#E7LExK{a9GNkaAua?_Y{rGde~;I4UTxK{+-g0jC9QM1mTG)nh$=NP|qNuo(?L zt0$#YxR|6bBJNE}Fu=|YDR9Fo+>jiV7WWLpvV*2?&P84IGuHf!<9_NowCg_diiZpV ziwiEwe7UGgPQrv4J*eo4irW2xj*z_9FYdO|8;ry{1+tRadH`F$tA581yAD1F=9XY< z3EstUB{uE{%qO-SpmrW*c2_aFE4jVZ20}wXg7%2}B1+r<2yuj zu$F@S^?TSJ7A^(3Oa8kf)F5L%K$-WEXB>oi7aS$1^A1`@PtstI(d&0&D|U44eZF(g ziyeEO={@oiy7rKkg*dQu|w4#+|^!P386wPDp{}7*xjzgU}m^DHdHKS#%D(sj*l&$ z1g!5LDY|0=2D?qFl8WRazD%sp>x?#s&SFy;jcSugYc}gGHk;Gt@OkY4UnH3v9Vw{Pj2Hk6&Cpdu8>^xgw-&1DWIZ_^n1TSO6<>kgtHh%nyJ3qX)KZF>A*rk+*5~>HRpVXYNiVauqT{CU3ga&{g zF$o78@{maqGReYbdBCJ7rx!`tS&;tXuD|rmq_JXfb@`2&u=%qZZ z1Rf$Ry^v)D({&;5;O?CpHr)5!`@Vbc&v(A_9RPX2`X7G(iJ-^fwV8c(qt~K^Hv_+Y zR<*u=#@dMF6_{UfwZwITt)!6cPsIe_p~ ze3{`VpacY@fP?}11sv4Q$rH*%B1;$QEjEBeJ{p z$blCs_ibnPbuhY`_WirQ{pgOTl-Mc_woZp@lVjVI_;#?g0uL+jIkB-(;EwJE+e1Fq z#>WA$1H41uZs+0LA`-y68B7tyB#V$_m(ZLtrc1{5D!4(7sNbULcbb5k8jb~u>G*sx zH(SchlyWd$Tq+C!Q!yIQjXNc?Va<5VFc~z=2Mx>phLaiRTEes#l#j!5s0N+Yph`yU zxUO%~fGO$m<7QgX#u>HqMy#AXbnijcY`=Lbsv8Taz+0x^(~r2+V@@S-J97i>#cW_H z7h23mR*U`f!$F|Crw3e<{m#jRYa$6s$iPf0GN0{V%q5o!nblHubuza;Gj@7u`r`4$ zOQ+VaUpV*b^{a2ba`Vm`Z@l&L%Qr8ay>|Neh1JE=3)5$2M^8+S93Rh}m>4-TGkSi$ zbmheSYZp(vdF|5sZ@u~1C%^p)Vl_Ye>ZA96{mv_|Tmk{)*x<@=7?}3OlxI2$#|=GT zdk!@A4sq5FAg?QcCdZ{7uq)DTHE6IiK4a3OPY2CIkP@D7rz3W-Uw{=7zfBo&>%11Z zQ!jC-#dgSf0aVvYfD3h)lmV}Ga3EeRfM4I@%JFp=Q>@R;EtQI;baW)@9E)1VW9Eqv zcrpu%HbEAI{aR{VM+t-3zKWJmkrPTH2w$NYo^rC_hYUVK!v->-{eZGBF6+t2uz>Bu zYJ5(OA6BA9ROnG7X2L<3a{->y*S+);Ui!L+vgReNddc$+(yW6ru!Th$}|p_%cqvBKEG z;=}Won zj7B_Gk4fzUpfkv=3Z6?XaI0Z2kMGm-eOf^P*1B~9pN8*Na@-1zTf@1lc~C|y@{~uP zbn8P_wM`>3DtOSeTjBq6v%+On4TK%Zh$|j;LDW$!?2U(gKDQ|pbfwb+!$TSPKOex> zsu4pAeGlFNCjs6m$S%NkXxjgqkfGvLd1k?LGYioI;g$chZ?D?xEqvGZzamUQWIi5-lPExZ2u)CFA3PD+9_M3SPI1Nnm*E5R<)f zmQTTnXhmtGC}|X>t@1$+z?7vp5S+?omZnN;i?b(I7f#GipO~IlDP^YnEdVkze%W-t zzUWnzT$-h{=ge5*R4%;MZ<({PXTZBggP$@Ir!ABz8-3Cx7`E_69m1kZT(I*;9sJ3F zbiQ9(^a%5I{)j`CbE-z1YB&O{X1tKNeSUiI^5V$(h1{9hp|xWF$QP8j(y|gCO5^g9IGP<2?>NmN22%MVLH=$XL_$p zW0+wEhCY-5hB|Z*LPA}#niWZwRc#eZmTlRNv)SxEdw0*sclS;1>wRTC=lMS)Krs9S zXU_ke@A-T~cHV@EIjklIw1fc_s#{X$6_mT#6+V7lr=Yf52t@r#;OhHjRbx8nazJhe zBQ4~-4z-|1&KnWXje!yBkP-nYv{!=Ym(=#FP(5n=REKJ^%LK|L6(P$&%m$NCQFSsQ zFS;&cUuE(h$m)>N8(v>A*@w}2@pZsDdrc|^rVS`4xQ%5zVyT!~rRSqPD%Mnosm}uU zYaG9wJJ!mZ?GR13amQ?wAXMzlWN6MzfJnxKgPsi7zKrRxBN|MvyrE4{ZDEz#xs`5q zt%+2uYlIcB92FL}z%rRdFy2j~lpJB!WHD-vvg%WC1#yLOkw>7}9F?XlZ8 z?c4Tl^!7g;-uZswt`AZpx1~gGhoT*_`jP0!?D!Z+>;);XW|dr-o7PZKgvTQILXJwS zGP_z@y1N{`1HDu8!?Vl2fni^tAEb#&Ab@ko3_6ZMCorINr%@Rc5`#*FWhok%iGbvT zjFCz>HoLOTsn9ZNZRAo1rPRr7fD>qz^Xz72hsWC2+c7f*zgxp9iQwIT`z=(R;Zf?_ zZ*AVb?YDpY!`Rg1f!Kq;`{N(_r)JU$3g7(I+u$c*Y;DmxUEbkfXye?K2TyK3d3o!} z*LR+N^U2d!51xPf>GQwdfAa0E&t9!xyWc%?!qPotb+yJNr~LG1Z;=^-q5l4{VCcc4 z7f)Y&`}m9R9zOr>`n?y^r>+dltqo7lOiTvbU)#mOO$3bFG)+wSan%c9=EZ>QZI-i* zQie`M)r)CrJ_%Ns^&+xW!E`9uHaT=ngK8I{9=h2~i4`Lo=6H^ISKC?J0{mnOi`jemikk`Z4ADT08ttlziNkv+T&=>|G zO7*HHkUtsaLih}j)gj;x+N5Z*YL)E{OLv>Sy~XG-DXa#m)1-hkZ8Z#D*L>^U69cXmEm8^)(e-Scg-7)88@)oJS4#7$*j+|(piLj> zY#Z(GhFiz+VgKCN(8AcjWVg!?B0vSjucZu_+5I|}U&n`g;e|fuT$g36SvaI1jw2pJ^@2Vvt4l`gl3@cz>V%C0uMXWZ0sx8!4D4PVd)OhLYB$bz zHA6aG3$(2VeaC~HivzBee&<4ueXhG@VZd{2y#LtLz}k3VeKNQ*r4Y62&o zZ=Vj0FZc|r?aC#Wa-qXCKjb|*8{C*1KRq3o?P^)-Y7RLi3r@khR}!*wLpIigi9Djk zjcBn0Di~H)cZq8{#kD=6+I~@OP=$n+%ecA@3iUYyV%~t7H((bGm<5=qLPJK29#CWa zI?{|sJmZm%*oD0&_LxW0ZI>%~L^VEN1!`M#nzSAuIfFDq=OW4kSC#NZzhbJ@KYAjgs~C2@x3yXg;gab77H4S)PzzoGFOf-RFR9d^imli zM}WxXBLJb0MXkxg7K6DtEX>Aa#qLen8ZhDlfghI15`-OaSC887CA8bvAQzo6F#Gx%|T| z-F|QXaEE`u)zzVC);Gz40LyCi@53hcy8Kiw?kc(B}Z*0YW9=z*p2sd0H_CUKdnC zxRqw=Wqi9q(doALcwC+C7SQOjR+#TmWZq-zrHrs0e>ER^a{ZT2b3_ig;_OVWSpB)k)2eXom7{bQkMfb)?~0| z0FD!Qz13vK!C&|7*!0hJd)%Hsvn!8^Kxu{!_hCS)1Ve2h3C5!+85JQX*Fk-*q138@ zYDKMwVK>-e>nQaG3c^fByPIe|dLFFsTj5TY1v9%wHy7&>!io*kr{VQB%Z5OC;%x3| zb#%H~2f8}P2jGX>*6%QOYQ#SHJ=IVLbTq%3I%wcdb?6p)OjB;(S_jzI&x-z*HYC?{RY`7YCH zf6Ivx@9FWb^+5aaLC+2xt@$7ZjcI(Fyc z*@qup{^a_Vdw;op`=je0UHyG9p1XeLJ1weC8*m#y3~BCfHFeoF-40EAGh}#aXS3R=65HiMn~WPy z<~)*`h0}3x1_99^1PKraN}X1~@7SPVaEo@N|e)s|!s;?fu{ObAh z7fk3dkA@ZI1%3UD9x!frzkz&m zto8Eh(E4=$XuEO9sT}j@dqCvrHg?D3Nh8$q{=M7;}F0Dr9PX| zkVQqn6_y8c8!G^PnGMk6qSSr4@%xTO?@HXWC2{v=DAAL5Z%K^!^PwH@9^Uz3|4JIaHQ?6j5FXmh@0-K^h^wUOB;|>lsXjR3TGnRZ^otYO$*A ztyWJ@=g^pcBIxStHM>1}o7L?BY9)vjaEn&QyXBOW#Tu2 z{Ix^N1k-jiy8)0C775WHqZkyBcIY05Nv)8>Hs#NL@&#YZ`V7& z{%!QZgL1VJ0cJKMu z*FSx6;^wEpjq6>(S!0Xm_kVi-?O*;{s<*g@CYH`z{^;T7cb|Xr=&Qd$T)+QxV&$YS z5Nz%0Y4x;uT3cIfX1hTJOD=jD55fffXSE1g@g@~dD}h3nZjkbt6(YMv=G4e+3Q@DX z$)XfnH4?K@4Bc!%3j7da9$mzt3fLrB6H})Y>Qy4h@Mf)4E#m~q`vK3|u+4br6Yj*sE;<=H%<(P;h`apc7Cu z0*HG-feE{`byTo5sVfgVl~m*d*0=$H#(C-0*+1~Klk4+RAP{*e=z=5Iq9gdSbW&v| z7&n7)!+{s3U9DgH8Ezr3edgx8%6$R`AoZGsi$Mg=Nj|5Mmpiz z8f~I>@g10-uFp5O<@STypFV&3^4m`zzdU{6!|PYC zeev+|iziQ?zj*QemoJ}OKC|3onDfY&Jd#NhZB&g7s$hQ;AJpJRRhTIQ5gts#9*}|1 ztHk*f6u8kCgyjOacEKeNndx)J#yK6-?e%j;#DWR2WJJt26GBezgj>Eb>p!(P67qX{ zZ1T}IZK%h(9B4ncIJVSdhTT;)AzO}3XV)fDtCJa(shpZLU>Ykhd1_pqj#y-&mOEJ} zU$b_6Y+`C+b_y7xW|c=l_3F5Ok7?uB+|{cWPMv>oV!#o}R*@A^?p@#gsA7Wqe$@hKV-v(OPyxQ)4N35Wv>k*{R;;p;oV+ zZ5B3~gm}A}WjFA3QmRqL=xTGY=rmxshjaVS|LgC5_Zz6&(Rhm4(e}pA->Rx>;L4Q0 z_|>+Y3LpWS%&^8DRLz#Vq@x?tdIu>k=> zVSu)e9EOQ(osm+8Cz@T6&g%lZ&q?d4^KDTRS4z<*x5QRf6vFqf}%2tWF zA}&n`36M>JEGl3SIlxF~;F`E3rI@9Wanw?_Qp}VHs6rM2_LU@js*p_(u)qrg_Ep)? z#u0HyJO&Q-nAl_l?efCR-@fzK zufPoZ7hs?I#=pD?mM1@f2XDXmM#jD9H z^BOx3eR!ZBKnDqc17Jh~{!_K!fR=Z(Iy>Blsn1J>g*apZ;I)t7i^I3Kgwixpc{;Ts z17Dm9!=Qhz+v6j*iV(1_9QnJ6O*X<#DEY%oqm zJNW2UKB_~~IIO1+Ye_v4WGk=M*@SV)DOLp+O!r!ivbJWm$Ex!=&7BTwx2v_?!CT|mo|X;*Pt8$W4mD`dPGGU*D=QRylJa=&a0a5&@OeGL+$#x zPV=h2b#18g;sN^>fE>U*5QVY5nrCsf~%=i=m<0D?{hT+AhuX zot+KbJbU8ly*r;jeDL(n$JaL2FD!+wAD=lN^3Qi!rW~SiYty(*Jk_F@bgCwu>Yzs( z^yc5SCc)6uMU>BWE)v&h+2WjO3A z4lLoi4dOPl)MJwLfe6QA4Rp0nj*QOE&aSKi`MT-KS6QfAR9`Z@>TMyZ`?3)!(0g z`TetJFCW~ydv1Ajx!)3UNoH-F1v_KjP8roT_5iV8N$oR>0L3h(VM&Mz6!<&jr&Z;I z?FB2dfGQmJd#cD!F3U|S$qqY)WP!5%(4Hd)A|SUXLFo?i$lY5~Bex{)-3$RmdwLAe zZzAFMsp#n8%KWt2l5BKsDThu}NkQDvKtol+Iyt616JJ+|Z772bPbXnTuyJEHxVyW$ z1_K@bK>H}bDNe3^cw_nGDT}R{$0iAAHB?kS86v#XYI#b@5C&uK;8jCfQ z8ZE8ft7DrbFl|AAiGT)d&LkAIfM5{QEE;KEb`~gP0OI@hFMa_Xcc6obRVJ~<{PSP_ znj=#XnCv&+d@DI4Tcpx5g<=}NiN<7884Ns~L4rzIqtp6&x`0|R=*P$~TRZ5w> zi31G^8FV~2cnzNnrj`);CR($cZIaSKB&ilqG$ICwb)itVsikIllTOTSR*7K<3!#wm zr9zef#3!$-cLALMIu;HY3FfpS7Bo`8R2svlV+D}C$zg5`18DI0dXT|OcqE;iBNx&H zOdOYnZekNSR3z9&qpDz>nh7LENbm4!3%kt>LM@jHpAaPif#U0B966sV;=un>S$#!O zT2fp}T+HsR?{9zqkMI8;j5&Ubsx1fkIs;b+W>^r+#(D_Ab^!qZ_HDVu1|A6^q@tx9 zqE62BIt=~oEyLaIq0ym1pT}WTz${h6rK%W2HH!?8F(~qXko0g#7!Xf_ZU@pkd~uNO zu<$4tu;OdVK z#qF?x*Fd|~*yXT53&ID&MKQ65TQ}5HHy}j}sVSp?_VTn$^!sPWrj}-xmlsy%W@e|x zMn`)(2VE^A4z*v;0i)i2848N_LFmRn1HnicG15oP+@OgU)U!i&klctuZrQ9?z0hem zKImK@ZaXs-IJY=?aed+X+2aqcoPT=t!%wfBzOpuXYN`*KHfJZguFUn{nCZMQWV;yj zo(y=eERR3DcJ}_|GdEAnoto&s5E}YuY4rGzYo<*z`}#3tZ8wGN5&nJahGzo(>Ucbfre+)YZ&qx zM>?&e;RV=EAdig){8PidlS4hhfsR05o4?c1+in4%jo;ha>vnWH%^sV!&7yW$v|f0{ zbea7fAS-PdXtxh{wG6kZr~KaIb8}ZOU%z$d?(KW`?tk|3$+K5qeeunc2ampf{@J%* zKK=B`r+4q(e{}oa_piSC`ilpXULBBCX7qKlM#QuZF{8swYA{n8?4$-ARKqSO0opQS zI`TpbKh&mP8*aO>Fn;~S(v4HAW9_yv*fKM-ri`RnGj7g|o^8e~SaA#1#*mFN@0Fe$ zYrn8ExiLR+c{#Y)V;!>!+eDzWuK}AvGquP_&Nfl94U`;vQ*DQd<&t9C1a&TYk(XB3 zMk{c$i`s>yUGgfoj%){Gh{3kiP*01R3eeGEpL1q9bp6i5yU)IQ^6IaD{r-Rb_4|K+ z^|$~1>Tm!4#aDlO^5p9aCssoJ?&CwADd>Q?BtZu^VBz`nJYf6l#9&WMfjf6-gV&W6 zR_14wXCEogNUlgvC{K$oNQ(tizq}(c`A1@MQ=`)pB9F%GO5V2}#-@bA6~ z?XYv2aWEn?c31Xc;8pG`JrY}z77yKZD6tw*)qIft>Xc+e6$$uGRlqRJB-G>~%QGnr z72wgMk_${0gQwfq-qYO~7#%-#Vf6T!#S2%L&z|x1dih+u5SPzGW{6N3a%6_G;i#tJ zs0@`R$7Cq6+2J7tHeZV`(U8lvj2Z>CN=~hjlB$%HS|bN*7Slnqv3tjMkYj^J23D2; z4)*5TztmV;wa#{t(FWEU6?F*6?Nyk@CXJ3QmeIHZCYMKLGH_(D{9#fgQkl~QYWCH$ zx6WO?6|s&cxDiRjBGbRAnyehs0i)i?0EzrV<*al7Xw{k{X0`w1kb9bE(i> z39Dsb+)2ejj)iq3GOC({ssafBs*Hv%V_++I z#5#ZvNSLsXPqRT;YgTl-P1nw>pIKUPn&c)4OAA#!9jm0{H8w%Noq&cAQW_z+ zL^LFM1`Ywsv*fyp#)=|bSnHUDEX@F$OK__JM@v*u8oD?IQ=Ez|O2L;LAr>E@lpdvl z+d^d)t2&(9c@2f2(f#M#4hTCLzREyHg0+x|PcjLp1_1?fyN*vXKyVvPY;Y#Um{}+j zv);_8v$AWP0$^1&bSg1DNi@CCYh#{2rm z{Db}7z3py~$LVZ$Hh0^bd+pZl7E6~++i&3ZiIC$8bU=Y0GjJwdhUxB(`QZ5C^!&p7 z+S1b6$_fCtCW76*A(vy!Wgd5`yOoq~DQ-YRfp*X^kOwTnNtXr^c*v_A1wxdAH{}$~ zv`XgMlxzLg(_`-Qlbsi#)x5rN@znC=vnQ^dSo?T=?P_S~Ou&0$z?r|IL-aM!#vcRXXcdtoK>wJnAW@eA31mG111YoN*g(#LOA7 za3@*?FgKiXOD5g&Nw;d+tDA2(FLqg$x-6k~L#RU^a7c%3qJTv>WEBM*vOue9uvHB` znO?Wf-)R&pP!hRn;4rK861JxM7L*Tpl@twXmns8;O`&o?dt3D z4*KDjX?SWJ)=PpDBmQZi?euyA9_?aq@Wz!J4<5aI_SN4WfBEW@r(Zq!{L6bcu1|Kh zjM^0&qt2Trpx++Y80opNIQs17`lyLGrLLXO)V$s#h1`yw(V`|mF0Mh0sF5Q&SklLj zT38ES`J~UZGU{8O=%4X90(QkPtOo1oV@AqSD{I5YUvyBWnn_a@;+%~bveSb$R>-3| zGu3@{Y4r41`%1TdNP`D7K^wcoK`U@ja~;$iD=E`V$r*PEPmH?S71)lZs!mR6JEg!2 zv^r)cFgqZiJdx$>6>AAkBKC^WwO=DY8|`Ny~4{P$Pi z|Kpp#{m<|J{_o#^_rG2~`~2kc%DF*x3L#ED>bw5r2lBOxpg4tmxgj zhxQgEMwO%9Pℜbb#)chpz>5b7Dm*zA~+`I*WlQ z5s}eiSm=X0bc@04u=NZL{pG>atG6GVI(unpF4PTn1#F}a4@`zMWka$SnWCysP}j$c z8;(LKk!gBdriGAW#%1bp*(zKv6!U6gkp^F^!xovTwP2!QlnJ-I_a0Q&KmGZefF0Ph zY18lD-4t3s8(2Cqu&_3B=0Z+E(c8cJ4K&!bEv*8TMj)1PgkbO{By-s~27@J27}~sn z`L+3zADy}M(Qshc2qxSz?#8LrzVYdV)KuWBut5GVVj#f|pb)73{Khg7sS03pK#fpxa7qD5BVot{6giIu zdKC!=AXI##Rthf;dc908=ZOS#=*ht1r;8 zIRuXwehZ6O%Ouv4(Pczr2^A7PwgOiV=Gx%almk5(93=MYd_rv@zP1ot_Lz{{iNNzm z$UuG%&w)*DqT#p%1RGb!g47KJU@$)dL?osf{&NA(MQbP}R~G<|5;*N)s4ub{fM66v zF%4D9#8$v_6Hpq&bQHWs=w+~AC2*P~ey?*WINEO0fPIga3ASrUH4UR?HVQ~+J`uws zpamq*)#KpG!Gl_+77}}SBNb2sWd*p>JXBc*vLp<#hs2I8Ne9AMBN(EAISv@&lpG=d zklV{MSXDXv`U0rTVI-Oq74grxJvMSXm^GVN*k&HVzy~vHnyHCymN4O2nMG8ykZ9on zP8{3J0^~Tzq3d0OT7Yu6_~jlE0D)nqiR+c%d@{1n)Z}w$yW3j*ogE{6y<`3U$$_Ei zf#Ip)z(imKHZMB8zIJ!3&t>n2_PZ63wvKMQ9{57N64ao$KA?i(SJOhbb8*N1bDYI`-T9wjMY;zCxRc57GrUB^dz&W1)NJD~f) z1M$pEOH;@tUh*oJJgQlj;>4iy>dMTO^~Liim#>^zzkTN9wfUJ-y^f7;>)8RvX}|6I zRLAw{_RFI!Cp)#PUghb2(}j_i)lSVqTho$*K5e3cJ=3I>KVsqz>R16IdBjW~X=V&J zGe<1!Q9HbpKyW9W{AssjqD3;(rdsgoW<6TS?MuD3*)H>>M+3B$5kTnJB|~=UV2c7a zVZkw^&u#R3EkS?##7O_l7}J(i%TmDi_3HK z3!%CBwG$g>E?&8G<)e$2J_JJi#0a1=z0>`z0INK;apCdj-+lh-A5Xse?%wlP_Z~fl zw*PXUb65-WMC1@OuM~|VDwtd|r(E1IZQYEz8n#C#)OC{@pah^7OgNZ|1`X&jJ;=gw zlMePukNWsf^RZyZ+Cn{-I#9Q;{3ch;3BWUgcsdXSRhk z>lQ4wD`q=1qjqVphT1K|`1s|WoI)=n-$l!BrRBM3xh>=@J1y5lD+J&e{4BYd`R&YN zAFHyBTiYT;tOUGw&!1ikv@iRu0hiLFm(C3NKmPcm8y|mi>E?rv?!Wl-+1CI)`S$C- ze*NXQUwrlLtMC5XU;p}#|Mu-az6Zk9ts5WTxc2quk3ak5R%mLh+XtI28kI)Ofje-R zS`jcv3=)NCKq2a}^)-m{;`+ke+Puu#tkmj^K*F!!pa(7%fMS$Xl-MW0ew`DOw}Wk zb%-P_B0-Nz5Z3`wCryP;*J08Os1!3Q$$(7NB9Ev+XoStuV6x5FJOi%8q2R(e@}0Ne z{^`$t4#hd3WPok8eb?TNYq!^~-&wwVbNSNMypr+{cI;~F_k&zVq}7R)YKacSd|JLj zPUdo%BB{>a(mOueKYcv3bo|({)s8j?XvjN!?%@3L?tM{jzx5UtgQ2ikL^h8pXlhcZ z6ndiua04w+tNCp17L8FQ76X|cq#zgpl-B4H4!V#9gnvXn6OqS87Vv?0L8?(P5E58; zWaH#KBDA}qi7kPngVs8aW`L)omZ)K1YLF?!9N@-inm8IhQ^6vNX-Gb?7CtR7BsrK0 zKA~DdL5N7;XIBPzuCT8M3dk_vc9Dy&%0X0QK}rYfMr2hkG-NQZXQ@EbCDj#?8%l^^ zEs89I-2Q`!s)|oma413wmJi#hkk|p(i>?57X*#l!+E5Mw58y70TvJG{DFFA4a8_?9 z1)hA^eFIfW59juBxN`7SB5+S*;MF3ESq*zAT#HiBX42SIeDL%!aEMwOM$f<+*?18d zBOqaTVC_Lb3CI{e+$MyrU28$2i3fx`@CRVisuXr<)5ATz${akfjw`YW6~GzG#Frj{ zu_>h@jaHFHuS^G*9FR3iv9R$`Z)BpA5A6Qu+#a!cQ)6|Zj!)F{$VNWhEMzq|v8`gR zLm{xqxpq0zAtHe%wVi{qvFcsy%63kPmsQlxF81-Nx`o&t8Kqat=`uC-*pYcr!Esok85;xGS6^pGm)G6yw6!}Oz7|IpXhHz|W#akejeaq5+(ZE- z$(+Aqeq?lEYIZrayt23){yAHkUziHa_&vck)2LlJ?vRa|IfG!{ZDLJ0CCiYXC;C4; zHg|3*6zX^s*Atm^vF=4^xp$hzJ=#F4 z8ssssD*KuYqZ@D;hTF`e9rme#uG!$o%mh%P;Pvd-`pJz`r_LQ;+gM&WzC3??Wo_g5 znR6TGKRol{jrB7h0>}02mD|@od3@{97k58laQHqnV*-No7Vk57!Bp6Z+KcCQ9{K~p;KH-*|{Gp&l*PV@1R_Dc(c z_s`Fq9rwUFhgzFLP7pZ3e@#=cMdUY7Iz)hmF7h&RJ&Zyxr`pXfb~5tp)NC6ytA(BG zWaoLAdC-b!Vb!$BX#Fkf&_LVQkMDi;{N=OH9-lk4arWfu%uvsCpYJbME?>WX{p_U= zH!fZM@b>+ypL}-j>B}cyy!!mhZ@>NP-@pC#yU!jzdivtUore#fz5Mdo%U7R&@#@Ye zk4ML+H6~+|OvY;x5^0o15;!&EF$6pjyin;BA`y*7Ro2xOBZ~8CbJ8m^l8TPR=BMn> zjNh4icxPq|z}I?-D6`gK5DlqSxRDo7MG@N zOxI%4jObJ&D%F5Y(KRG#>k}aq4T*rwRG`x#nd^{8jL1YCB2j}#)*w>Us5B)eONP#r zVDq6T({49WNtD>QW{y^uzU~gY9ikKEMF78MOr3?+|9C$flK<6haw~ zAY{NMX&skP$s<%Km@aAFVA(uPw=JD9r=| z*09BPWiCWxO#z{y7^bTb;G@a|NFxRLdK^F!LO&l5iM@t_hTL8WhNL7Uyb2USWll$e zk5VxeNW8#otS|cE0bId;nhD@XL8*U?~!JU=OLj zR7?R|XM&PRg3$8;kSnl5dRK6)B8r8LGg9jfq$)GM*hc))Fg&oDMLG7$()j0UHI!O`J?;huKCs~Hdhz~Jpvv$|mKMnUXW zkOz&N5vwxP)p{Z{4i*@boz7v4Xjo12t0;a8ci6%Y>ezE&;n%8M@Vn2>3|A$n&MLtx>T@Eh3}MMVe|lG^>%4vmx|h_WezrrCfhBu{T-m3Sq$`y`K-o$fgC@5acS+$B4DE~Tt9vFTfJ^JXz{lDCNaO0z!A6-1XKGi#974`xDR$9|1svMHl0>5iOTr~_xmZr*KN!6&j zW(;rvdQ4D*9Z}=PG`OISH0uydyJgcIN`H%d*kd}gFasLV%f}a>fM4+2$2^9)0nbvf ze|3CtE!clyVRY8l9Iy%k7FNHG;5SmbG=w1o*~u=olCrFXOe-O~gN=k6yD?|=62!DsjH-+%Pr-qmxb7lN?(HW3^d znVOjfVEM?*{M7RL+L_B&Z{5B5$-_JM9^Je5aA{%j?CG<2KDqbs)5rH8J-L1F(XIQB zkDWTFw^*UKOr%j8FzEW%B|DBpqA-|rHk-reu-FVD35TdDuPDkc%RO3>2|gYBa}%L- z-w9%vv;#Xc4(`r~h1Dc5dx|g1%i*!XCJt1|HMpu`Ar9dNvIYz6e$dcBmT^hA+9Fgz zJR&=$u_%Fu$dzD=xOLg=`fNVFjD;(Qkssj9VfSWcW_qaK$HtWj5b4so1W8T2v?fte zo2aNskXOe`E91l!ha{DUxs~yZvcrsuL}pncw<1wg6)&!g7sItWiC>+}t4S3!WbjeB z&;pY47(KpDp;+>r|&-5|>zU<(uqD9M#FS(~eEe(AWw(_?71|Kja;{_PKcghRs; z2^f4ModsacJ6#yE&0Wj~mxXMhh;cF;Lg!mGIKT#zBv$3Z5if*^L!Y&kMt!0k*2>N_<^06;nw+oLK+Q?2il${cvla^eNonD-u0|qr^C1qvh6=h}M1z(Vxm6el~nU#^2eiR6!N$E$E zGt*KslM-`Nk~5PMvQiRrQxo!!#DhXO@5tfYqlpDMStW%<;m=S~S`JZKT2fS4oR?Fa zlU9_Ll9zfoKlM<4a&$p*RDRNdf|QtoR1i6&*OZksR8`iN6jWrTRAwfC$iJc>ts*b2 zA~U5jJEgiXqb|IFoKu;ZQjic;l(erfDY7ILdZ%FMw!bK8ZwdT09Pj|%wZG(OEVNQf zQV$d+?FH}7;*u6bic6CW1qN*Go6lSItWTq6t6UaOQ0hVnA5SeKOS?L8inMHXyB}E10r6m>c zr?RrTwyvV8x}v(KqO!WGrmniap&o%kps}?LsEVrE^6L63B)SgW*nq(|ps-;F&#DUe zw@4(CNTLwQbRwBXB2(Zofk-Bisbn&RgvTLjD~r+&=f>?Sh~EW{7zJ?=g<q;8QXj~YFpg?ov~37F;Tk?f?-p_;SBgSNQjNw zzau^pX0`7n?fO&V?oEks-Swx0hA#O{1IX6Jhcw!gQ3+n-`~Y&sONDJ~rE#qHX3 zXxIC(5u0Ln{W*5emVY46LPBC`oO_Mu?J%h9*m8NIe6eeOca<|#O&J@6S?zX zJKsOFd&{BSn-A~V0udV~t!<70Zo}@a2X=3bj@^?zW5k$8;^{O-W_)UVpk$uqaqIN-3|!- zeLFwcyW{=H9e>`vZBxXS_ae4#+PUSuom)5U+VV#c5Q?AM(+tnOyu^1ukBh6MeU5;w<8=;I}h&tk2fYn?|~g>J;|ctD0zaO>k0Es1@Uh}q#(hhKvRYYQ>KkbmPMP9B}G}w zDrcQi>?EbiRBB3-shUd7RBff^$>iD8yn}fM`!?of>xxem<7ASf=*?qK?*3scX z|GRJBzJ2buPoKWsee>=KmYZ={?}(FlXXv@K0QA_Pn#AO7tJx*N({?B{`li3+E^jB+h?+^ zo6WXjPFuyq&ZaVxR^`}#_=kVk>t^+@oxVAl6rTFfDf85+Q!1bkT767?D@wC`-^=_O z{osbIZsrqDJYkjWQLh-|!R0gO_gQAT?sWO7ePS6qHJ!3#=1kXm(4LkvE#a}r^x!h) zSomw(M{D% zc)z>Y|J4HjdCT`h<{0Iert|gVt2=iG=m#_h_n)`LtkuhBnA5OP3V+fp4>pdC_ASN< z{WXUBtm?|khld3}5xi)3aciZ%npZw&H z$BAvS$crz&_`(Y>eE<934`)z4Q)hed9=5BMO?T*NpK1F~t2%8%b(ppouq#1PnewLv z`lS9=Pko}NrRAr--LaVCe{Jsgk5*xIp4P25{t3g0AP&|GkI|1&uaeSK!&Z6;Su(pY zt!-bR8!05q$Nqil_WLZ;H^G=LKebOR(_M7B%*tRE@QJ`h|%xRhbpV&FX|I?x@_O;7AZ2tdr;jdls_ni5)i`inI-;J-W z#)C8eSC@aVgz53^$5ij@HY0~JbJ+cuPU-Pr$-jF}FJFO{EUdT59x3+0{mNpNWW>Yi z7+gIz;7oU?<2}Eok1N6Q9U%Vfb~kLI+b8;wpE6l76T*k>G`ff9T?g#`1ol^7eKo~q z`SARY{^*bXw>Fs>;M@1U7cqKUG5WR`D)92lFQ*!*)pO51#~9nP{+%xWJIWb$=Bxiq zm!I0xGA~@XV5R73wWlRb*PYI{r+u2vci_HudRRHrb*FWh+QVUM|4fhRbeZ3$oQJJD zEoW*^%beQN`b_6f*PYrA+xO}GsXg_9Y5Bj8{rjx@ux&kT-9BHC^RRWN^QS)cusTnd z@8zE`rprw2>0;CJr}H1S{B)V=x(_>E4_kh^?!%Uu&i{SvX_?ddPwitECPNs>hO@(~r2`=6rX|C% z+Z4|K^rt_)apT66?RM~6-})9Ew$lpX9%?>y683a|Eq|#^j0gAScd&h9W8*|QO30)f zyE83qb#>LBefgD@6_*|+bLers`nR*4@$9qD_L{RZIh5JKl=jRs&nTHT+0&kOYQ+!A z)^~PxXp>8uJ}E(&DaV;nIkZVLW)lnrPV3O^=`np6pQkO*S3F@nY~2%!^*^U&PVH%Z zrt^ggroKAEX^zfb)4XoFe4l^9=+1d!`RTe3v#0B7*y&ZPJCc}eO*z}4=eLw+npBvuyr%vo}SoQyWdxLn5Mp}GiHm^ zGW)_OjOjArMi!XP|J}BZW`Sw3)BT;=({g%aT2X(*fsixHr&~R&ZKvCsmiaJydQ7Lw zOzSqar^`(3)G&HlhpGLr{xzNdAlrd`e}5l*I^LUuFZMJ@=F@sT?^K31{d_Y0`Jey!+i$`IAB_{Fn`6EyYenaGm0}zm9H6?}2PWQy zz4UZ4r$KrZvKVV^0(Sof1|kzBZX$9A)B= z>SpWo<;#~-2S-+WI;Iev(~4u4cGeReF9*>{kdx@bDoI<|4w`8(2GS~lR$x}Nq0c`1 z%z-xFVvOt~edWp(#hO&W^s}G+%=z7X+LG$8P3UCyGy+3jPJ}?4l;68Ue7patVr)A5 zl|E<{PGUp0=qFR#?B%gZUbVCC@0d@Uv`h{h%_Z*KxsxOEUYowtCMBnJwTWHJq@2yo z&3?ozZrQBGB`gyU=}yIe?DG5XzfYU|`rF_BHp@&xp&$RdfA{ayguBv??4OL2;}U;R zhuh<1roH>#IB{cML7S%a(O>@humAd}O)Ai*Y+XY!v`^RXj?))keDUFjAF76l(d()8 zZnen~@o(BzgE*jR?dX2c{n-zM#)PKQZ^n zH%>>+onJcr#OY%>E!r=cdup+7_f(be^;0irYCQhrocpp7C7=4{*@*3)d2+tX*{2pF zZO+1(Cl?<1h6NVRoSi>)=In!VT!Sah9#>fT(}ho;J=Nv0)2F(eK69#x7MNDGx5?C~ zCBHeybm2DN?vzaDv&U98|B)_cP8Z9HCsx-o$NS|_jcsMc(~pdDYN)&lv~8W~wLK%4 z>hjIAXC9DKkDZye&m*Vjx|}*Q7kRV}@bM;2pE-Lhlgjn#@Qz2g&?u8dzGC(bl`$@S z!kDh`mE}kOtjd3LF2X%}`*bg2oM^+Zl=%&=UUKU6{8u(TX@@LuLZAAkkp@FwXvT4= z4=rc1k6e8sr{|wpBX;=)_2aHd9p-RPMtm5rLX%tjMHc5 zBIQ4$k3IU>nXk6_P^B|Z&YgMUY=mQ+=AxsVdg5%PoMAjhr=K`GE$4X0Cr(x6e5Fl} z+h^{HxnmijQw}+)=W(Y#eYS7cGJU&qPn_s=|@kUiJW@u zxDUE*b?RT8iBw1KlghVgWo>ik`e6d>=!D`R?@x<6HTRW-Jvq@hk7VYE_NRfJJ?`%C zZ`iKDusvs9NMC$rH4?VZF3%Xnz;8Sn(G;Bty?u7~Ztm{wE?y|#BNw0FjPN~sY42!q zZvNcL^2+AMCaqY7leOp8dO0VIlop+za%6M7c&{!=H;*maw>gD(eX6s4Zf;T6=0)a^ z)0Ur`AH`qF9akV}3ghm@U&n6~)B<0r`!M56|A-k+%N=PT-IJKld+v%?w zM^-JEJyrENmR8SHJ78zm^o`SDdpCfc9kvf-R@9@X9-+qx*h&7X#xb>R2}Mlt=d(`M zPdX_apKVS*wJ>*ni7Z~YIRETQWRdf1%*f*M+T8rY<4-M~e|B|{XI9TYv-h3xqSa{l~Mmvak?)mc_n zNmcBb#mM5~QkOYB`)R>UNo_QBXkBCM5!EjuqM&%=+=aywyQ#MG^Rz=iax7A275miO z>= z_&4-}g1JJ{1r$~D%@lx+Kk>EN3Wghp(zHLThC^RFn=Y1KHf)HKKT#w4=#t5lBVPUJ zn`a=sx=#~eZ+Bda@Q|)%1@^H+0lSjh2%6GrXWlvgXXRJO=t69;xKmOFh#S0hVoz@)!cE&*U)r%k>un(Ia!Cp}9V1G(@QwOo*-QgbXA#N|{9OL$a zd^^cTLwdj-wgWr4*fx#rX|6QjfXz@ncyCk>;Xx+O#z@c(>>4d#*EnJO+|$GP*V&;~ zDd;wU>rfo2afUzHF5Q98ALGFBw>WKdmW&>Hs18#7bhsYZuWiBtL-n4}D{4yIj_Qft zc`3YGtcq%E=eQ+8vI^>kxZNBJh~5ix72!O<_C!1SMq|66JtFm#?b1c|`FTL5rEyF` zcZ5$oPg|RRrq9X03D-}s9pO!3yS)qBGXhiSK8@Rz)A2sAy%ApXRy!x^8&6wyZR66$ zG2S&w1G~Kr+v%`fv6)hMqIXme-sy|aUj%kqnWCEcrx(-R;!E9QIcmfq>!LRuON-Ls zD7X%~_0Yr#W9SZji@|#bSDgjEVFwCgoFR=FUC3%AFL!ESk2W(ur6#?7be|Se4N$H5 z%|A=GpuK|d@f=~-0`nHASM)xSAuLydaO**~58c*js}WwAZ4-^{JvY+gb_cx*(Raoj z@h7AwbPwBW-3Im;`b)vTogb@lI9O-9;6x;%4d)iin3Nf?V|(FUSdLDO?OHZ$$Ec7* z5}@#o&m-P}Jp%8E*u(89&%0fOAFmS&@=XT3x40eQu?x}@x-(Fvz%sf}nu|6C>_wLr zw=0nGwQNt^K4tqU2c|{Bt?F^%5cd$?6cI{S} z9Ygo#U=<{Hws*p3zf`7$Jr)17T^`t;xV_`uQE-?X2nM8gya((;cLMAhs2WOgCdf?) z!Kqs44$G>cg=rNtS(t-CXyW!M+egCBJL|!FNt>z=nAa@&+t>sv{%+nvR+&-NJJPj)A# zA%=3|*mU-{mz>U6PCI{2tI}lZ&sHEw>13@mqXRUzxI`9L*Uvh~wFYN&yXLg4NVLLx z8hpx=RICD|mh(x%r)rWT*mRb?uR0?vpj8}zL5{^CTD`~ z^gB1ii|lRcFmGso&b-Vio{wyIv-m-_+f!+iTW=l2d7ADm@s)N<%L6;S@9ykI5I$h1 z?eBDQWRK;Exv<@71=Ty=*Iw9~?d)=XGO0jOofpNO%nu}slViVQKzhX?jqUNG(U)4R zj*91(fqnj&)mnId5!eax&~fJIkScD;S0g$|_9cV~*hBd2lrrrv|FmTAK5TvPv7$QB zL8@6A-aF)Zl&$o3v!}hx#S5#zPDa8HU@yF1xR`*AJ_|eJ=^z`j6>Lxcinf)SnTwP$ zkE-h}J+~IThwZ_8Rltr2!zv$Dkr;{7CU4f+-Zv4jt13gW6#%!bpnAu9z>e)D4eXum z!8^8hyfeb>jh#IL>0Juxmv$l>m-l9`9uf&hw!}O81G|_W%1&=dR2viePMB7buDu7@-DE4 z?I6FpxsB}+Y)`I?VHdJTO6X$WWBWBm`s0-CbIU7yhJ(?h{Cs44R;NiF-&L_n;XO#F z=bwT4i!sMLZ*6XGUYaer0=YCJ z8{0cw1nph=M#~V-Z)}lv?B-BCgkSli_3Cj$WOdAT-jyYDOjRicw$CptMRdl@OaPg% zCu~pXj_`FNXhHilZm;wH7}FM-ny=N>G3O*C{xJUtBGl?rgUV$Yb4n;}61z?R=6^ovR{( zx*oBixUTa^I-TA`uzmCLEO>9%*K)S4N$oorj%>G~X1m?+mAE}cX{%5@^{kH6f_8>* zJwf}$OEUxmVR~cxhUmJ-?Eux|_MCGAdALUP+5TaZqm7;Y;C*A~#%%8}g6$C{D-+ml z6x;hjQFB52=H=ZXbRTz z>PF9tf?N)S@cifEx&raJoMgpCP-zYswu{?0cXm;oFi7xT&NklQW@KNor{!G@$aGF# z!(KaWHFxFPh4fLlR$Q7<-KR?{L^D=@+?Z(z$B1;8hwahjmdmSI*D|1O>pB`ER3GB- z##mhKHDp*uoh>|c&j$7^&n49j*crn0^wUCHV|!|1rkbax=s~qF1KtO)OV)L&_wAZf zct154sQ|tuk%ITyM4LL>6S^m8H>$|QN$_xI4zT;YrBqy^oWxq zT6Ph!7d&6s#&-MCC4A$13=KP#VpX3)3D2}m&IcP z_Qj1&MmkHpI$pss%1N3(pI|$}`xVc_Rrawgx7+0*d^;~xcN@<#NLkT%BP!i|^((sf z&HAa~y=&Yvooyq9LU>yz*>pN@@ZQ}rMp3=pVei%G2C%D!Y)nFTI#;+oCu581Tp@d# zu-(52+Ivn0*d=7>u$}f05L_$DgyF-=<6FF7-vS=eQCe=QG7O=2QD8~q`C)wi=}KiV zR-fOH4A{`5AAkB;^k={Ne0OjE=$(5d@80XzkJu=m5_ujup4u5c@%*bcI`t0rxkFM4WRv7W>=$t`zzH@N!$MMfDy2CmExWOF zVV$s7R+|&9tgq??4&rl{i20>2v}4-z`b$?e1z~K?_GYgis0rizg*Ebc5_gIAnjUEX zjnn6rR6o6 zWSzd&WK1&XJCA0Bq`R(opi70d>eXMyGx}lBhCe=9zpo)2X7zU|ClC_-to@sfc^Td1CYOW|Ksi1HFHRM zakOx80Q>4Xut&1kGETPTU2Z#e2%ns4*zS<^poO6?Cw0uQ@Zuj8f9R#>H^TM?`J#IE zQLl6jOzO`TbJB1fw)frlt4m-qcYcNV1KyRKbAduoz2iNN6TFM}0(Nd+p>ONLRpIe? zVY|{?i3I5}*o^dUOEQ4n1yt~k71&MUSFU!pcd#=cJ;__WNsmBvg7E1S zz+N4sMe^|8`r{1Mu^r@#KZ^sA)bn?+9o`o&tYdrdPKWJ-Zfw7La74m(`u0zLdF!1I zf_EC&mtNS8tX$m7oohGP$^X+>QiP*ljeT~37x9MQNdi`Mi z#htL7;TWNMMDhgH;hoNzS~-l3m#&fET~T#F6K^!C13LkBRFC9b6T(l>UYCuizW(jq z6KscczG}bf9!K+sxQD~Nvc5$++jFcT9ovVV*e?2VFCNn()kLj_o?tsS#`bhEy^K!= z??$Wk3&6S);zEiR9`s10PIEw{U2@WYzKA|!UMaf#p!@OY!{Pz3b?a9U=Q1I{-4M8a+1Zx ztt(f9_eAVwZe6|t?Bezzbf3iS5FH8I4{sk40elkd9D^Z2)A8Qfe$v43*)@1C`LN{r zTLt-{N3?!{?c~%EsSqn0`{B>EYr%b zvjzxkT)sw%2BX9C*s#68etv0TyePnS7=KXUJ#42%@5-r)HJvz6+^)-SytbF1oq_Eg z@0_ZK?qNIK*}2-p&9I%JlEA*UF(ZlFfxWX`+z#)F+bxXnvz?o9~v@QxuunW9oxym>Ux*%sO78eq`&GwH?RlqmGgP+#_Y{QaeEniH#^%CvFCPt zDu!u=K}S@UZ*c|QjGcpJKKT1`tr&~qyqR3_KFFM?ZJDfPLme1eyz6jvQI8bt?!mx(-(wDDD zp3oKu*fm|x$q3y^rQhE?gm*e%k9G-w>U@K7g6$Tbg1zTtu$@%s{#FUFmvQSLK|7uH z7rGNv&%FSIKf!ijhxh7$Em%T$l87DHi6cdFM%D!g^by@8d1HF_&BNe5Y)|NJNnj@z zFYT6YIT>tEfvDc&b}g2DuW-HLJ#qU9wp)edOp%`;T{k4~9$%$-{`4FK%kbX7KE&@e(R(4i$?n@nySEQXEu+sq@<=YnO1pjhWDSRApn4?zLZ=Y7 zS6ZeeWa!zeyAm?V$*nnv(%GKO3@?(CAz?ePZ@OJ&vD-%oPh?|~kfH0m znS_kyy|}*VDyb1Z{_M~*fc;n|Y|ptE;ftb;W}SrooW||Cu>PC=l{iY!UQ~}v#>1ex z(!zG=;9xBw115FzwDG(~$RsC23wVnspT_O*&SM8kG+ZPnlWIFyVSDv`cd^INJycIf z59#9egzkyhd)$ud53)Tk4oc|W*)BQby*)IO= zW8RtiDcfD5lZi?Tq^(xhH|oCF#^x7)`z5(?>p=IPy-~SAlFa$7@7*pryxZmW4~`=8 zCr9typY7g=#4Dn?y-Q5Og_3(g;0mpEmIma~?W#6CW$F1#Wc~6rjJk4dFCszo$uE8t z`G^1bk6--TFYo{9FK&GAPBl1&zOqL`65g`$(v`AX9zNJN9*0=C^re~SN4R1=MY6m~ z;wN=#zPL%RzBr@TE?rrEew$X$h?19{tIX=caz*S5GMwvM={4?oCB|d;sqenMhVfdZ zW$oslU5lumK_H6t)7ESI4N$x5R}5yDMXLTSKbfPGHc7EdFKiJZSryxo|8yC0U#~b9|RBZbnpo_Qq{; z^x%ApYOf(ZpPaj9MzKayC3{&_WCV{ERxZQvsZ5&zVpGxl^bNvIG-yw z`nDLeS1RP*+`j5v92?u$$ZE^yn7O-mNH(`Q_D(g$=FaxFZ){$vGn8-7FfHoclhb&@BI3&um0d22ZcWP=`Y8DLx&f4cDsl}wqLzL81{5|eS7Vt zD~y1BYj2++DJR6z3kv3oMJ-NPnLy)|+69z3kl0;R1(u$>wEmI{jcctZZmhmgfuHN$ z<5Y}H@)#cT0e#0q#IS#6{`{$LJ{}P=71*CIuyd*eQH=E~J4-LDNB7vk{hGCxXWQ5J z(S~7u7vonPj(8I?3Hym8LOvSC#1GQ5oO!r$KIAw;=MhRbKo7@gO`<1?dQmoa+W zZlH^y?3vi2@x<*@wp)D|4cY#A7~5MeXbIa%XFDTpq7lOO`#=8#+vzFWAsybgh2O=@ zlHmOq?2YZgd*N<$SFxz}3E24nwxc?&Um#l?4}Jwd325nXEIJE3sM8bSoph?JTfiPY zMDp!6YduvhMv87=Kfkg@;-B#oNRNb&z@9x7*(xw$u>A_yK_1)d^ess%+c~nm2+wY( z01Kz@q%}I&T?m^Kwrd2PS2@7W2$SL6zT~*jJkyyjg;bgCx+8cWsNTF5$%Eh{88oYblupdh3eeyY~6Gmq{!Uyah|LO~P$M!B$w(lRlOG5b0_SxP-e>YWufI)#_l+xis2;rM;C8kL@AT29U+n$h9^o68-Z+R{yQBWa z_Gn<|Ex~&^5^re&>{GTM-{M&)&XXd%d}AAsFzDwl!8_4sfjw*w*h6^7eMsg!;l5DC zMZtTh4o!@}ygUTq+hE@>ZCT&?&CxQI~wyY#)9Xt8s4i@G`2@; z^RT@RhkJ12crC6Nhoo0u+>T7y4)VHT7n??Pn~DH?2*2`NQ9Yu?EPr-kndF)}gtrQ+ z!#6?oE-3uY7Y_E`goWk}*?^CvWYi|qND{jYjkUSB$SLi;T z@-&Wc9n}eAbEo2sNZ1~{Z(rFv5w};+KC&I&iJlvG4ckTR1l!FF+u^-~9ow@ojqP*~ zQy-*y=Jbj&?tS<%>4X=wN3fkJobJ_xZdwY~J{@Lrm0QM={fxVon{Hjh{ zp|^g7>IvPGaRPSr>1=1{J0xqRLm_3jeCuLSL%{mmB)R1e!39qeJdD*}Wk*e+u4YZodC9s?!A6<4$Xrc2GTFr^9xd0Q>gN-hg)*yv1d%m;m0ox+1nG zXzvjSs;fz7dk8;Jz2(^JxVMxJ!snH4I<@Y@uTWj|&Pc>gUj*AW*eu#mA3;07HoPB? zjZuD=P@RT-NRJ4;biLr6u0I>z{aVisw7A_73EM3hst4~4IcwOSRUlo&-oP$aaY<4) z6o{aG%65$tykk4bDIl?#&YQSh3uC(mN!;FEnOJNeUaD~Vbl5y)dngU;CO|fgVf#yN zq`vaXD~a20-n=<-eaOiK>{g$$-8-wlmhGyPWK^|kV>{jBc5H8^S<=pM8e;al7;bT5E6u+su~aXVy%?S73| zrg}r7^mz(B0-rKfgI;JG@7@MCGEJ zR$+&XAbi-K&^;uF_bJ;edjH`Eo$X*NXeZbns?$WcP7=3cyM#S4x2lP+k^K6?c#QX z7q=&9X9Vn5om@WsJYbiQA$DI{h6vz8b$A!OCt^?NZYzxkx*bds}1G_e_GV7V&HhQhGJ$UDn7VAN~#ZY|&yUT&1 z`tH8_Tsy#SHIEH=^dIu8P|X>G8Wq?-jHO;EduxR5aVz=qIja zj(eRQhWXV@QZv1>(&)aG4fm~VF|h|D@oJsTjk$FrY+Zy<+q(7E-Ft>j?zG&y$Dl^x zr2-7%{L<3A>+u$&BdX3XT-v&FEpdK!&F;Ge6G`1HMsi`BK9Wi*r*=V3sqN#E!87CY zFX=d0ksbc$6oBgH+Y#p-=g?0T#$S5%xR@Tz{;nsr5T!irjt9x;t+i5PNa$_Fcl5j&Iz(aS(A(vi!l(ed1Q;)i>|n`s4d# z=jPk)s7ChhzL&)qN5)FM_w&8ml{U{ETiQ6QyC3|5eD=3rl6%JPe*8FHm+;kciFW6mk<-)GwHpj)nb~W|e6;y;y;q?q z+TO0<$ZlW1z4r31i=CVAPNdxs$!(FDb>BQ%fB7omHcsEOSLiDbyq#Wm8;@(39*8jHYS-G3jSxAMrgi^Msez$1u+kiSl*~Q`Ripsjs5N$H^`*Q&S}`rKy`Qz+aVp>X;UHH%Z{QAd2-#+-hJd)ci!qmVf&3YZ(}>K>)JH1 zqx$TX>-;th-2S!;&q}|C?Q|f9?M1B%7qOkV6WYOESZlfHu)T2C2C>k6KF{ndHB)ni z?R4iVv?fwTc*_I3fRHZ2Hvoq49qf#N-4^l0h=SmV0qMlKn}q60V1(6lv3hcEG|r~q!#k-B>H3ZBbU?a(xyoc?x@7!Vp?AT7WcK5XsjqUgU{I}RnhwbnV>GU)zUtc#lB(aUQAp0LGGIup0nxY}INVYnQi{57-OxuN@Tmo8*{= z?Wm6Jz|OGNrEAy8weK0jzpL3uyRy55>Q&lnvPSzA6|@V|4t5u+)~(*uLMAN?@6{QN zu4xIG>Npj;ACGUG)*)2qJdBEsD{xu{OsNllVmlqM)7TE_1Ym6_V2{T3F3BN;?YWx? zjEr~=w$~}3c}oI=P`z>;mH#ZUq?ml5x`&VY{0lVzvR&~F`Id*VT_M;Wyz2$P?&<*B zA)O4Tt#%(_7&FtxH?|ip9fKO)d*1#8+g0iKbkH6%58hE7tMj3a81#qGgEs1EN5+Y+?LCn3FK zP`LitUwjVifmQGxwxfFRe)#>P&Y#Zh+FWD1)@EdW!Mr6sQcf+ivXRjJYuT>aq=UV) zJs#^N1|(n?t_LP`e|VDt>DZpJ%~{K?5xYNtT3UOoRaLU}ju1ZA4$d;wq1su%ZZf!B z?L|wovl-E0J5AD~(>*)bK_1)js-e zgWm31-Us^*c}blEtHh`lmM7%Oxi z*Cby|8b%FFQ4v?*IMXrnO>0d1=QE~gm-E*a+_!*o;b{cpU+@ zqxzKXiP$SvZ*hA$iK1G>p7RtysBXK+3*=}?2Zoi0bV(;vJXM0s+ zxw-?L3Ph_9$rVH)U5h1pZ~ZHK#Qnl{J#P55u|2=0U(Y=)vKm5nU?)O%I$)#rV4KfnP`;>*fHVy(R)X~`aF0SxA)Lp#18KX-4nD2eUNT-!kB5jw~v6G zHu@!^>!okX+f-Vn-7ll960nExkPh#i?ZMBZ#PjrQmL3Yfe^c0o29oQMzE+In%?FcVoPw0;D z8a#1(HU5O{iQ9vBL3>5)?blkqv7JWsfF0o-eMC)K2GWz0>2Z734co=-j4G$a?a9du zh4cS$zyKo`!omA7*eAKfgdC{u<{D7}oh9)D@9KDm(6GInyaBeeJz%dF(L6oAFS_Mq z0_3D+x-AtGsmx5vX@u}Y-)RZG26 zTg0)(_M~NKY!7x4w}^5#H$jPX8&aa|@SKpdhDTq&H^*Rn@6=^a+Ek{vW|nXJ#;b#jAgld&<|>oMeN4b=4Z z!jc;L+n%4QwsK6jX0zA!JukEK-P;lCF5^HGPrj^4gE#H4GP*-W{xybKoW>vYkrhv=dp*(HLqeGG$)Eow@(=&{pYGoOd1UL=y(?Gu$$LNh zCGqIc7yscO-~I4c1kbl$-zSVaKmNHp^@Oo=Ba|bzi_nsSz%K6DJ zfBo^_d_f<5^jVkWi0B)4r0DAbv8&%bB>RU)`E&QXhX+5t??gbmh`96KeRBQwU2^+9 zLo4stDWc8Y$Dthp#|1?rp`xSavC}&9wqb|sm#%n{k*IbpykX3hXFSWu**SMll;BSy zj?_gd@1#k@wqGHeTw#9+3?NNH7IyD=1Z6^(EzKau8L8~s)Jq{2`4GdW!KjE<_fd^)A_k(uRfiSBv)-;I#J#x@K__48zqhF`-vFburT} zhwZ29Rpi3{v!^wJ7vOly=gJBV?|{r^*q|w+ACVcrX|cKwh$n6rkYjttd)N-_k~UMe z`zm+9PN(S>o>?iwyQUl7r)=lCyWcs$c7p8zd$jvR2_a~x;XH22)7r|Ym_5C3WV@Ms zBUGfZ{piQ{JKi}@|LFwV&BylA%@3P{l^>EJEz^Q$3xw_Z3*p-ieF7C)HS+F@O0YMu zXZSIy!~4~}di703wjO_8uZ~u!?-p#=jZVRT!#lQT6pC?%^@xz;+Wd_U)$@wKX?}Z} zpGnP!ON^91vR(BMK5Q?0gnaOx&Wq~4E2Jx>ku$t)X?=#wq=@7O+>2KoEIL#V;luW{ zSZ6!JTg&Y^rB#9BP4JL>`O=I8^5!ggtk`RCMzAw-&=H<&)G+vfUFxhJBp2ksJM^8q zuuK?U1C$MkEw3Nk#dct)KmWI1cDx7dU;JASp#38zqk8ZT=^gK%{mqwQJL8`Fr$=== zwX+@AJKN#?-B0Qq@%B$Y0rs%nT4eY8M`1g#Gay~-iC-9y4)3%%l^6Q){jlA(P@P72 zY!~f^@LIcz%R2i=ldW&>|uK)U=tUG@Qv!g4yxGhyiCJ;N~1aO@(ZfUVO-B{ z0(;nAKAFh2jaP@z0DQ{uA~~dwc*ph(lnvVxeuwSQjoX#g8SBG!D{St=EL{$Gm?DI4 zFA(rk-P~*d$J=^L33fW(C(l_xdKYZ(qSK*zfxXT$1K2_Sc%$`6+~(T@;k|f3l-06B zjYZf_a^ef#6=i=TMRmjG;k~gP-rWYpcHhDSb~Yh5j_vF1<#HMmZ6bcsR=^&% zhsl`6;7h1pVE@rQYfvLCqw!1jK7x3`0)5Uwxwp^q(MuPu%dl-48JO7;uYD`IbWPs9$G)gTu(gLm3t zf_EC*GpZ2Vvx79kdu$xiBOsrXfLEO^m)|%4_hdv|Ty-Zqs zYfP*=^6hOE0e;N{|0ioae0~kXm0-Jx#?#}f?~hgL@iQaKoqbk zL)@O{p%DIwc}O>9hzq2f61NBJiQ7><6Ua~F_D~((P1tS{x0`^y=VYdA57n!wABfx2 z$TYSSIT>sp?%XxDOT~1yhdGJcQC-{~Muo-&w021d?0eS_2=7Yhj_q6v+xZV8V2}1^ zd0qSTK+36OQFkHby*Gxed+SFWJ8ZWV<&ac9F)+5P4DHoM$6z<+wt+nwjdig^?~tCH zOyYJ$rNH5-&s^j}ePcTf=?UF!Mcm#)_o{7sjhLNPvEc;QV((%*X-Ln`irZ@+&1rGF z-LY15*j|P3_{J7mgF||9GBl)D#4cgW@cKkg@z)E-hL54t$bpgViQd%*-suz4!*zI{ zvfUub;9U}1LMGDiUO{`} zL3>{e)%$$en6Mq>!*&T761FEN6RNu(-Ns%T1AmZHhTRF<8KJsAv0ZDEu-%*_WEj2u z8IVpo+jC#W&SqU;XK*Uc!!b&?9Z6aSe(UP8wZCP8_xh8wjgQw^>qOixXje#Ipyy=x zKS_af-&Q%8w+%P0cpy2WjH=o|fU04lb=sC0G^P5uV|wVS7dI;{ZPn zk7>skZ&a_~oV0k}S|wxL$msF83gC8^)F(P@$5_kv1*(wtou-UP91<^e0lqp$9TmOX zE(zg7_2gt!wYp~;QJILn{`3^~LcJH4E@?R#+qHwh9=6-4pxsFX;R&kq3ODH(p?alV z8ry+AgdcJ;Ei;4aU_NDg2tQ?e=ne1Uc0*;7lkqKV7(Y5Xx^d%%vx@ttCgeBy3Fqm< z!$YqWOAK#py!uPXXehgud#Q;OG(tW_B0XA9d%By=-rS^0{!b08^8C0i63c8FvZReV5 z8I`FP8{f)%Z2L(9s!81st;>z3+j**1#PD{-5xsoz60uAfV=jn+z{{>;nzREkJolZ} zUbXXM|Bzx0T~-1e^2D0kUS0s{NJey}X;a zopzO81NPi$eSTxZXx_@mZD?4Jc(}-}$*^YgB_eQmk-ckfv1??zyx%%h)w;(4Mk z|MNdxy0%-%Se;>fJ-(Z0VLN^IPkyoYy+gA8a^*J9Ei85MXI|Ll<%;eIUq8H?Tc3A- z{)^larA6;u_TRZjfPHrB_Vu^!>W_Df-udt|Mi;jOh_eQX->zS7V^L;%I&k&jw~uyj z-PzcYhMLj2=_x+9a9uPtc;cspgH=fTP~lKKm0jn@0DP4Db0zXj2E`^sgZ(nyT|QifMnr9WnxKqn{Vnl zj@6GYtPrn2cVKnH#pgDNttX|!uvm|666cGh&CGER&yRhe;l-cXue_Bv@Az^O$>Vs8 z#N>5ty;$Q?>fU9mUKmR&f93gl>hqi{(Kb5WH#ml^v{=Hro>CLKHuZ; zp?P1KkJOi*+Kw=g+&7ZKb3A-L$>E9Rr`GXu@_kTOl3WTd2O(+3sCo zQ?^?rY^Q-ecrWAY#*_Tkm6jqMra)4^`B_zAFw z?H%u)3e0og-q)nFFFY%`XOO>QFD8Pj%VdYCCGc|Rkk#k6ND;uR#m5J)YMF5m zj&ia`z%Dm}>H&M$UN3zb(}wjzflD3__ttkQ%|U$Ystd5AI_i?4$4Qeu!1mp@?h<(a z$)Ei)U=Q1^0_rxxlx66cpfbuT}kvb|{50y$xS%h(q#h!s&iKxXHujKt`zFp zWW2#zzqU75hwxdLt_zL!oIboWu)Uue{5WNMz;2m*BQ+Y^F*$4(x%jA`-4ENn+Oe}e zLn38VfZh0(AUzt%O`Yuko;lI#(BpPl_a3)*urtzV3EiEDUGwI2tiMB9!q>#@+=c<^ zIY1ykWxHR4cm4+KiQ5J6kRCCjz_`ac`Xk#Dx4V+XcA-1Ale_P{M~20O3hgqsVup6T zP|@;uHIW*2beH3e*A#Lun2g?LR){`=J#4R4RyW!Lg-1cVVK6;tUoU(W?(93ACyPV) z4t(?NZ>XND34ez6!@4Td`W?2nCD)cVwj%JJgp#orc6eum z_VAUs-6=rmPJo@Hgs`0!y?b^Q*hBb4>~z>}i`<|DlV{^&StBzYzObDZx{KS7L-&jT zZzpkV@4^p<2ULwUYVA*BZ_XMBPvWZ%9~6hfadoIShcxC_8YhH@ba*c(Z<|YB8z4Wq zKWjxBvNK;82l<9|l-`JL@Uv&@}asME(Fy>8tI z+Y@ZlAm8J5ga`I%+@9o2XFI%i!eh7q{-cjRN>QEd;&wkx<92K}SwK!^%65CI#jrhb zd%#{h+t?nwmwPvvvK_1Iq10Ee$KSYFMBEPS@DA*xugh>vdU)rEC|?vEw!84mGL?{7 z-5g^0mXqOBxfrC8vnO7{y3}o$*?ivdLiJ?EAU&dbxwi=HJ#IG>u9K6=lfu28*q*pO zEzpB@%l9@ZqvePay7zT!X3NGTZl7P2x6yZGlh%Pf1Fo<=UROTmCUqM>59|y`Pg;U z-l{r=?%3Y(4(SnuPc}PjNA=`n7}%bi3>{Yob_)mWKC{ArbZ0$5``5DFS`V^47^fe3 z_+u^;>6upO;wB!t`AE#yBJnZRrY!BG!uw6n%=pL$j?+2N(UAUgmy~pjz$s8J8 z+0rt}$%xw{@c}j?K|60`^l%z>ln-Tz-UINkU3W-~ot%sn%_oW2^@1|mRT#~6b9FrQ zxHd4%Ruov95MqsN&ncs>2u841Jk#FdlFUq~K4fOv*Ip2wwu#HC}k(WoAo zf?ep|<92Kpu|M|MV?A!4vRzsxV25<{mR(`=xZNO`yj3h(GRKWq(|5k}9rsV6o|duk z1=Wssd#Z1G`ypZ1jxR3zOkVaEIr$QMW!?R(diyRuXUFqZ>yEXlvDqHVph=}l5^Ugk zyTwW4RW;o>swAwYJ@$L^_94-Ei4lqFlf}YPTY=Nmjdo)csrt~GUXH~qU-WMG_jB(x z(Q@ipyV(}7Ob}|_Jd4e!U2cKBUo%EME#sAmebb%l%1N9|m)jd9yRx?CBU4`L)c_m4 z{?ayyJL!YBZr%RiXCINz|KjtA!9w1#*5&$lrF<{a#7$=)irl&LF3DoOGQY#fxz7T2 zs$X|#1a&ABw5Jr)ZeBQ6sfilhaV@737t6?S?wMt-s|E6s*m@cG{-JLxXJ2@G8i$dj zrFcv?$xN$Q{_datg6#e9T_Y;pvW&ca|C4h%OG~!*xE)xaY}Fg=op|1;H@73Xk*N*@ z>EBuIU}t#CnS~>(v${!2G6u#6IC2`IJ-$k=-+gcEJGY!%E_oY(_pV&t^?9RwoK*e8 z2PauizG#bxc1!zgc?q8L?4I|n)u*dzf3CeWWNZZOS~a1&dz~5XLT`=zrFu;wkZ2L+ zm?B#?%&dt9_qI}QpLdoj5XM2i;&W%}cB8~v=1W=xwj$Br&ax4@ou3gAU&pEBgTJ1&&`#?%+<%} z3AU4bxzBe%ND?pVZ;SPT`*vMf&>ru-_JBOw^_UVdUarF}h)ereru<)M(R@|h!o34? zhS8UW?kDF6AfG-{_fJc*aB3)N@3mtF*DWj=B;&EuHdtmDEd%coG72%_wi~I4ZGmXC z&za&uw!^z=%6534vfbwTp^RZL9=2n$Lm4vUP1^9z*uQlR~b+whOfMP$aKSx9=C%YbWc^x(Q2TyR|Zu(dOXYd@n2L8~RQ z?~%Zc_j+51054yKYix&WkoP*i2idM8>qrr7pMCc>suQcIbJ)(7DJ#)xf*QRJ9miqTwCV}lIyRPT5P*a7U`57}bo zN`^GvT0NEV>8@jGRL>zUq#Lr{KGBL+Zs7X#sKu8BFJbaW)%ly8;QeYlP1Bxu@pgot%2&tXidC=qXT8+iGkN*l9@b z)0FLEbx)xN@15=c=|BCaMC||Nzx)?Qz&?%J1^L+CgLa0kcf5<({h4oDcP5uHeg~)C zR=u-}>RJHg8F50ovz?&}^h0dNNzN3p2i<~pi#^D85qp+V8NYJuG!YuxQ0Z1Cw(Clr z?F?v0;A9nGwu4W6toLjT(QIS;kk!exO#6mWLwbG8!ir(L z@;lpeYfreYiRdZYw=ZA2_5C}j9_e6bbhb0X_Ah?>*Z=gN|M4IG!#{lTXTJ#BLv_(R zN!(5&eBRqYOLN`y6}fg<6y2M;pQ9Na?1lGsB8x#2c#k1&58D&8i`y9iduKbUCv@+P zS%ws=yJHWqUBpg+-Ec&AHnBaSyKoxYBO>+$?Pau}9oReD5nh}3xIJBX>-Ad>Af0z4 zB0T9qJGP^G1mWF55U~gE*dDwi{DW){-V?One6zjp@yZ^&CvFeh>D5iSpn9JSuy?j6 zdJot!Hf-nQ@a~$(tyr5IWQ^POdSFL&?Z!yZo^B;*XH?KGWNPOEcxNOg&oU`(II``{ z)wW)TpaojMPUQMfT?3LHvsUjRJO>^t??$zVRH}BeoK}Ct}ao?~Hzl z7Op2~rxQHW6-e7w13Mkks(_k=mOXU0r-F91O59GvyFaa-+7>(w&1yqs^5wpq^pkjr zXVxCoD}Rf_HW5(wjoNPZ9oUsg*XhQ^McYK0$imhd;_#MrT1~jKmN!6n6lkssGjLWP6pUXPspfA*zUlgddMJR zFK=m?na=hTaeI7;mfY(>d!f4r|LsYlltbsK{9!0Ku+-Djo5{(XU^{Q;uAyj%nnJ?% zhVdD&7v#r_VqL5U?NhefyRVcpf*syFN$L-jDZTuLe!l!XKuqSkp7gTJszHHi~jAp}zQ^qhNcU_b4e3)OY^NVNU85ZPebRUZ!Y3yayoa2q zP70xIEK1m}4gq^Ut-kcahB@$_pxwfZ;&VF<`6-$97-4(Q$pr7&qu`n@j3-6k!u9OF zeGk|No+ne(-cb;?hyS*c+eyjEaPr(%=xpc0m5OoU&_Z`{dk@_K)>a~@?xtthp8KH> z=4A5g3AUq2rVl^-kRfCLt#5rRd3$kwu^@D8oyNktAg3d^Ny_15^?> zA{>7B$XC1U(ltbDbhchSD4C@;($$!#y2Ii;ah%InmgzWmMICViUb7 zGBzN3D9y>@nPq+L_T8i1@9Z;r2RZujJs5x2E$0@lfA;BT;Tzy9o(zx~bU7nf&SxRtIJ`Z~6LCW!}vDtTT-F*Mv&HE)wn;XOn%JzQvPGsrQ?CgbA z12br6Qd=SX$K@gM@^hcSa6mmW1{&ntvyd~RNfuu9-o5YL-Ffp}a`4_S$l?2+MP@hd zIJ2x@+l%bnJPh+!w!F0ev=n$9#RLaGG-oAEf-S)(gYs~Ue2hkj26lILAZ9S*gIs_w^d?2Ha zZwtbU=acuq$CqdWC$wIgu}W*X7i%%B?kn@Hglb`u&D9*c+_W9)q7G(8d?UlxsA;ma zw1mC1DR~t-al3n|>+9=ueJhw!=qcN)-yQhM(vTkC0Kl;gPq1AJBn^^~I}K8ECTv%}qB_+Xd@?%zSuWbjAHEKA zVb!5`+{*#Rd>WTP^)4whHN@d6u(2J|gLj6)bv>F4R}lG-sz(s9qqlokL`2^JGKLRXM3J0pb_2|j{1H%CIbrUKjjDXFIApU(`@-xBlNe4B@feioi}67TTM)u{|+o&K&_ejqRvT zLU>?LAvCbVd)SWZ*beL<@8Si(%bkSE<4eO5Kb!AY!U-k2GCVS5rps;GgCVuzi&yf_ znLN8%Xlh-oP8Oq&)nX0u3^TEvKQml!R`fo;<|1Bgi;$IT^WdG%_nlj3H*UiN_SOBd zJp%9PT+=Q~lpgTITqGMeE_uZwZ79xphqeJx$_9Vu`_Dc09Tp#;* z1y}9m0Cd=H^*VwG-@tC9O-UPf5xnGtsP)o?F&UYg48gOVsL8Be4;j3Ln(0_t) zYne%6`?K0@jFUMb4ku{0Esk33ZFrA=<}4s$Pa$-UAkF>4cK#rrBgV5`NlV5w7g0+# zyeDoy!FFE32eOqxPw(wc;#-BMiHh*;JG@n(aH91)al7ap*u!>O&`u7%f0qu}X}PS# z?PyFAvD4TtVkg)xZV%gOY&Qqhv7PL`zDt64Z0~p%w-aD5**hQ~`|!}6cg5{JbT{ZU zaXY+!AN4y94iQ7>3pEj_qMibniPl8kpNn%n9CO6!486bn(@OlmmMm@kV&vDqsisu)WcExW03s z_0wYG_*vdW?49i@3?^0y+Y`N4vZ96AZFMxL%z5d$3aDG3VY`l;Tt{EH;x`QU_39SA ztB;Z$I~vj*Cc?14ZLx~hw1026#M{Ap?MsW>8HwAoBl>T^4)XnkRp`#!5?b`0vqM66 zKV|pn3TYbN=}^6zx4xQP*RVwlPhB;tMt<}NK4%=x{ z5;DPiXFH>iUe}};Iec^}JsR8fV!C#}r77qjmyw)ImK^lRb}!{1JuMTSpV0nvER-`y zOP(m4bhg(ipuH(KX8{p=QN0{>tvjCM?nZpTj_qm^u+u3mr;HFdVRpbSh|<5}57i&X zt5@5q&5dlYv&n?*PI*;<_U)3eojchDNS9HMK>F^D{XyE;^#|E5Aw$A;NGBQj+2eME z?`)Tu3EOwQVBGoZl4$K~BoTWE59twj&ux)J?}mT$=f!-SG)W11>)Ye!z`UT%xQ;P& z*PdDf+Zoe#NW@-bH;o;(oV+=6jIbTp8N92DKS|D$tyc{= z@`N$W88b8GMUmB2{$Pup?Rl#Vs;3%ybhaMd<8~FWVn1+&^!CtG(lU0I0DIW(5ZGJ~ z+EbaTVN14WLkZpUQjzHFU6}85lM@X?Ihvg?rpt)f7oV?lSu-{hy4QVy)*yNWwu{?4 z-n|VbY)?)mY=2nX{#SqXSDo$u^}qhte0L+CL#;OgFDwANVel`%{BrQlaPClYV)*)A z>bPkG%Odl}{*6f(pgTS&l^EY3J9|>0_j-Tde)(EGrqm9c2bV@8RQ4Gz4^cfd(b z7L~wv%4qntm4a}xCCPG(A0$e6PuGc{y<0Nmr+q?QR6`h!wJSBU@!gb|X@UfW&Wl1JJi>Q8%*-Nn_5^w#Cs7k~Rjm$!d#H@8#ijZLp` z5mA@8@su%Rt(#QuBg-$WZ(K4`SC*jU=9@RW?0@feM1|k^$;T0|(z$i}?p_tH9!3Z(n^$sm5hc=U<0U3ARHpI$ug zKJ}&Dvw~y?<>3gI4_`I9;y&qSJ~B1C zaSPRzvpK7G>C9fQ;qk*b9ABt$ihO1GMm%@zJZFdV-V)iR=HzRS&9(fQP`^l?41C@j z(5`0_pNMBTe4?5vvkmdJa3~bdH=oSc&4`BC_PHN;!RMfiuAjztl`Oi`ak@>QlTHc{hJ+Q|9J9+YwX z`6RDu>2-E@+ta4Bnoo1!6=)%?B*}9ddT~U9AbDEMv2%J+-8D4@UZfRFE zzHT2`Yj5&dzjQUSw&8Wz!!0V?T3+2E)fdK@jIX$*Zzg*As*w13Cv>4>y-SKX7r5mb zalzqTVbKhu*=cVK@bZD+n)c}pw^OB7=zst3|9#?iA$_RsQ`)9K_=7*l@?krwyG5JO zy|dj3C4H08!OlqMjWz_%k)=x-+k@(_dmc zO@8vz`%|{BKDSChUN`~oAv~l{GVu@2BSKO=4j?yhHl@3tKeV zezm@HI^<+ty&166iJ1rOzRvzlV5cFyvprxR@qQ26Bf#Ee%62Uf#1%an+XrI!TktF~ za=AW8YOGGaZ4|cC@E*3qJ7=4{ev53ra=r3M^)kS#ktEoYhpFgMeCf)lojMsoy+e}+ zr9nPm&-}#aRw<+1graRLbkz-spTc$;$LiPdu?1j{6w*iOkOXk0BaN%ADZX$KM2wFa;=1~`mwPt`1$Q=4e zj`vU<*iW#1`O;1V!+jgYYKL zB8Bby`}^Ju3GY+3i`x;tgB|Bx7j(9Fu!rr^SisJ;?48CL_OyAFX4E)gyZ$R~2liXv zdwYo9dvNlA?+To<9o20Y-ch|ge0iC%_Tp9q;luXC?V)b-JxER(tA(+&Flrxq84(cd#?8h3(1u z2HN(w&^_i%Dh3{dc32)F_IBqK+sz@C$#!#Q>HV~!`1pNFiP*#T{yu>s{DsvndLnd# zHY0dfA9Fa2a}B9iAGCZOZ2@sR0d{U+e-pGMuC0IqxOisa{$t9G567I z#qKMF0J}}Mi@1uzd)zK!4>TCtJGV#(kL_ERuSYg6?H;~;kL>Q<-r74b3YSLsu$?B5 z-UZto@v!}sS6=yAw)ddjIQGrWO?VI6pM3Jk6KoIO6Ss%$kS<~uw=;h9qaU4MJ5Q)< z>IQafmy>D7Vi=Ja(3Ovkal5_%@&nbAk^U;u`zndp!*)59arEBvQ+aubw&c*hu8RqwMwj0cl5UtqL_D}lB)2CI(`Fm{|7qCmD zO(U>NVEfD8YY0=iJzy7*A>9*@;Xzw8CZhe%vE6d31@8zSwnw+y=ScT?Ux;p($)no? zb~}+sOonHu?q-JVquXs|;TTDounfGTdQM^O;XOg-0{e#T3LVJTcnEdz#g`v zy0PWIqX55q5UPjpVF<#PiSc%2StWi{(P_H9!ZK!xeEcjH-JUBzvB!>AY^UA@WFp!n zupQW`h~OQxv0WZ!Yqq00!k6Dvn977D*Rv)~zKO{c#9dUYaBZ5vp?V$%_CT?RjpKv& zX!0y9bT{W4^0!buW7=eS)5{aD>58HW)T{LENd)VINKGm&{3KESOwnw^C z?`z#2w!`}?Y&Vd*=Yse=bZZj-AOGWjnd7w*-Clk1Uw-w~#>8GOty{tze{foM zX6j6%F_hoCd&IWiHFrh{?|t2jKDc*o8uPZ}pB}rjwE1Vh{lmpa&)8T0^-t`{)6Z0x zR(0y$e(F_|_9qMTv;5(MhwS9u3A1NE!I#}XPcWYs(_z88CcW(V>_lWKPqF1$_T^X8 z_0?B;B4@;j2Twi)-cNq{TQ6>|-sy*rSlx(fZ?lYqw!ME4gOs$Rh&EpCU;(P;J{uE7 zIsTbK^t=-KHEVow_x#}gqiw?q9URr5@%1n=bz@B>aP;AmPhbAw?Bkl8o!4qb+jX6l zm>H{!gmnA4L#px3Htp`*)jiU^#QJ@0V2;=u8i#Cce@FG4f=8xy*k90o@BX8myJz-! z`s7my2f2IKXqKl2tG@Wf3y-1vgeQfmIZ8+y&0cHy9vrW{_K-(QyT?E{N_z$blOW5H z++dFdpB^$@g0`8?N>0B`q^jmebOK83N5m#Tcw+()BONU3E-RSWabS##L zX6{XPl<^EB>C!n(*&uHLDUbE1`te<_&x_sc&b)eliFGK&42StC?{z^mhv+OMarK4( z`^Jobx8>K{Hm^3S1Tcw0Aa+XdUd`|NEy(!O_Fdc8;q99dkp+9I9KKBUg!bL*(a2)t?=@v7PtP z)^QSsg2d|7<{9Hxn8k;BSMeI%j_ts19X^S$9o|u0Z7hHHF2o$a!uAlprYUc{yNyl( zhnWPDyZAgv#{1JH+J5I~*zVE+dp#PiEfpMn`?~#-uQG>4tLV8q5^fNi@#S2`%mf$0 z2kgmFlLzefs@Yu|@0I97Eo$A-#P^8RfxTB()mJ%%P~CnczR7l(lW?+p3=0{s>zwtQ z|MZ90D{Ozc`uyhCzZrY_$!84S%m3=dqmQ37S})nIW>bezHf$fTBRa6h!ghFPVf%0X z@k?x%PuP$=VE8uj zDR_rgcn5YgHrOw`13PcX$~D^~+OZwd12=ew^diI7wsN}E=Wf^z?8EjjL~Hi29o`wR z58EMq|EMNfk^pw=XS~N~Y*#@^2kPKd!k@q%wkL-pUf7-{kv4(!JPvqN58mrBA*9oW z@aFugjIAN@ma#Y=`%-JyP8AfZeSO?W5-d_Uc4n zc((?7JQOcre`nJQE+LU-d-Pj{UN>wfs76x(d-Y1Thh6WRH4cx*3do0$u9!dPBDfB2 z98*ifZftwsDRT=_gIR(Z-ZyO5Z{p~rhIfkv?8o;FvZ`AA(}117efROO{pCOZk=Y@O zhR1e;gNfBxWNY}ih{ z_c|r2srQ0*i}vznYx}71HEfS`hjFV7%)@r5Pl6}iqu6T;Rq zy>qoIe15POL$;MhNV4ZKMNw=!?daxT6LzQ z!9sPST_X88Y#*eTfZsIyt4{Z=+cUKaxgLY}D0aEA5}SB?N%WfE$_Vq6Qnj(kSLJKi zkek?U)c4n~yb+_@k+~Fmn=^`Zck%OX?lHsM`kZf_a=$FQ-3nktyFD;S4<32fa4c5< zG#I+Zpw}MOx_trr)_$5~pBqrL#uR-XytjHU-M$dM+5Y%fUqrV@v?F}jPQ9~;_V}=U zbo-5WHKr=VcH4&V4mj|sbJr=j!Oo9pM|FG-+llt*_C!}QHwUmw=&2gEn>!WK!*+Ow zber>u$$YDB?`wW5Y>#NKoZuifokQygyXFzt!*+kVJJQ&GL%MGq(Vj=71gei&Xb&NL z-U71cuw9O2(e1hKbbF+`oxAnMV=u6GEM;`Hf&=e-*bY8KJCf&S<(`^ z58H$Hx@eCc2k(4WJ1){4)l*+EzVL zw?tKhDWbtUq^BxGB2+iENzm-VznrQU@xd+6*uYZm^`gFxNu+cn15%in$R$9qiqH`v$ATyWX=l*1|rJ-`Nw|RnZ{BYs6R|3Fa_zFm+%*t1eO6 zc2=*b>iT-2Sq}f;qX(ioo?H^n?!m{8p8x8_6N|(nfAe|#%iq3y_KRmR?e^c?+Ci1W zd#8zJgpIP3tW|fm+NxCmoCn^+52_(LfA;YwhEhEL`HOoGo~2YCoIGG@ONQqMA3WgI zZXSL3lu78*dj9-H#vgm}FMoXWzx`8MtsFo3WXyyLF~5hvZ@j$|d-K*dd;R(i{<}Ri z0sp;fh9?tx`jjQ-Bx;du?ZoDW0&|4&3}3?|v~;ZT!S39f>EKh5y5x2ev=Ply9b2~# zQk(Bv^bW=|ZdjGG*8}VO=}JvyiyYy$E%=Bw&7EjU2s2Ci0;8O zBp%LD{RjWhwU_f z*e+95B}@7{^uP;iwpWqq5EjCNC(K5u^ESlQop%ozw$E^pYVB(iRIj#(Zem&39-g}k zzIBz{Uw%$p2J;oR^KycnFuzz2l)jt8_L>8w=Y>I!gX1%7XEkSN8$f*v+kMsJ!=xzj z_0y}Gg&dnD!}h{^v%Ok-KK*pSE@8kf_sFLR|LF^C*8sHu`0z>0l?m11onh(N!TSee zMcwz6zQS^&cX25@!*&-SHV=hLG}y!T!#juBN$s#}SNU4!T~neI+xhHz*gkkqM^|iz z^spV+S>8vm9NQrs+Y9W!dNE*^7`96c+a<6)VCMsNvLS4T0g-Tq>KX45+o2NP19l$R z6+^z3H{0PI((gU~geS0%KYkvt^T!{5!VtdfU;p^%xBnE=#%Az7VDEgjAGQlApt@&G z*scwO53uv{0I)L&eMOlKnJmPTZ6XNq#}Z)Q>PC+|wx_8KUz>M*s06kHJKP~WusgNv zjov7A)T(3jxdgVyI!_w5NYCq%Kuk%2_psfcVY~dSsfl9*d6zmDyndpUvu`DU-PL0f z!*+@6GlWmj-sXtq%59wMNAs2l3M!uAl`dDT;?*{ajg| zM|IaBgim>|$JU|X>gC+xP8{1wZvGXv58lIeVApXnYzKA*>0_wQ>cwc5I({+(O#G7H?%p z`j%mPX6``vvXyQR)!kfdPmQX~CgJ`rU=QS5HaPbY?N*zg^NZL%(mfLw#)s{}2(U-G zOY9w=!TUn^=yuRH&itkvN#qzHJx7v1d1urmvCr=K4ArqcHh9lH0`{;S*nJS5VvlI& zhwb~G^>>bTv_fyA+r##-H*Dv3f4s}wol3M~=Py3gsvoAKc6fhQW2uMfgony<#t28I*TPJWQYx z+rv7g$>8QsoMJ%1M78|+Xl;Q(Col;wzaU@vRk4(yd^-7Yvoy(53X&VvBF z^UU62An&yzO(NH9C*8yLc=0ZHPXsKwop(l2^;yTI$f?ye>DsO}+fxUzer{qru%ms) zX-l!Qg8YN(U&avL`DToL9@}61{;RN^Zg=(Qb_VQL3*MbC#h$wRD0X1aQ5|1AOCmmD z8S9Thx+9N8w`2P(NrG;Ncha5Z+UD|x%wapQ=Y#6e?P;bigpSoAyrCV#b}^aIoA*`f zQV~9EpP0;_V|#Lf(`T+s@Sd0qyyr||cFp!ur!C!8fx-Ji_e{>WgoVu zp$o!8`h;sTIKav2iA0Su^Qoa7A5@~-QpRVUcq01ZXXo)I!=3(3*f0eiwSsGgV%wnKWtG7=Mzp-E&Ux}AT;us!xowg>MO8@b<;jCT=+ z^wI5d2$&-?AO7ULcz9*MPx~GFrR?B^KR1z6; zV7Wvla5P$7o2(_iSalYB1^wjMHg9>xg#72P_^msqJ3qbP*==u&yGM)N7Op9)o%D-m z(CQbXlk2COx_)G{n>LQ@nNq$#N-oioqEAYs0}o_(cayAyx9jb0f9LPsBgum z%3!(&c0dN+-JMH@cgb>aI*8#8yz*Ot;FFSzdgtpM8e(E2Om8NZ_$;V-oN0D zfjPFjFQQ0a5#dXKJuO%+J~Z6=Q=S2`o%oY|@^_y|2hq}&W)!Mg;7e|T`nByxn=d%5Lh!`jfKVpFQM_0ME>$Q3+vBaTpWQJ$QCG!SqQ5 z;SaiBD!;F>S%!rKrGt~$(dk1$m~*=QS1%>@HEjFU@0r9U+hxKZ_uwAwhi{cAZMntp zO7^2pg=P43kWBBz&{(Bj*`|GX>DX@bkb)23K*U!bYYCbx7ZsW?vfMT5B}*o@oOlbL zCGpk|+vUAfGNyjtFG{HHcb#u`?@s>KD!^V~H^f#Cx5d|e@o4K2!(?4snN>{!YJ{p{ z9)GpGM^H=)$;Ee%Cnrn2zj?dfZeBME!C`f3UWeZ?Ki4X~{4xqt%1)?mIKI5d*GYAG z%)5g>vzi1N%%jZ^e;K1&Lh(-sh0mK2fBw<)0~4ud>RW9aP97iZpLtc^x^;N{ErG{s z{U~v8?*Ws$JWOSkn96!${^D<6_)+G1QV~qGX>^E*0QStTb?0pBox_+ski(NegPc?y zd_VCs=hQH&u<3=x6ay-@Ofm4*woUT3QlV_Eud4}4&5=Y3@>;yS-ygk@@-d1#VoT$^ zkAkUf1zbnB`!jQS;5Nvkx|PFrR9~~*a*ZLY?^55#0_=wEI;GaI1I_k*lh$=3QdF;# z`Zl&d_~i40`w!^>Hf+Cj=N`iI8ky|Af5z&1qGjJrKF{ui-9q(5WAg5>yiPXTeXDfX zoQ1%^K5U2dx~f&}vant2LFHGbtrC~_(5^)->E6%l?8H7@{OmS+wp_yUWW0FAfgyYy zvpw_^3fuFeJjjRYA#K`RZAQY>RICi!p>+&$QJt<{vpq1k&MRyW@B?< z^MGM{jv+r}g`s*NpXUM(@}32e4f4!@9oxl=f_EO+Kl_K5?5ltKQ>YH_dk5cAL*#0+ zu>C}AzQLYOqwtREy6y9j60q-Usrd0TRIl0`kKig|FX7z;MtiDIjhEPX=dpb(V9%AW zQCynsJfsiaAN_if?y}$R=|%8fcUcx1Yp^4HL7v~RJ+O*T3y}D#jcO6QW_x9iRW?w9 z2I&YNA<9Qf6loQn78`jAtTlO-g#30Jp)29^S(=B1@WH!V2JG=O?nI3mw;4yVINvSa zgZIpp$;-FczSonCRAod{J>EISg7kQ7M|Esp@GdOVcz20d`gryOvBvp#79j65a|#L< zum|t8u*Yjkk<2#B5K5??am63};srx^TZQVt9=4rk7&0}bbGw3y@0*&-T|4)U{!S+w)0gyH0Ott0|_@V;jI?w!-o?bQ3|cGq0yNfl~zJGMXj=l|>Fzy14* zFaH?4W4m7*>F&=PWWb(LC3oB?j9RnZ!ISPV)qtu|uZQhLxfS>P$(HQV<2@$)vex8D z^I)FrB(qiaSdI7SPp6Q$W!ATHL8C|O4MRe5-r=R;ZcuNZ6noS=j5DWGCXBP0LK@qr zziQZCJJGta*$(d#mW-vHWX==~!gfAj58D%&$uBz8h<4t6zZ_L>Q=pvSn(e55skJs^ zfH>I*A^eC)@(<0(%qv?o~d26cSyh<3)Mq-ay@3v z5$#rwNY4>?Y{^u$^?L@B?h?UkJ))gQT04o!&n)bXU;u@%^RC#1U{?U+nOvGJkzB-U&PaF(wE#uh~A!CBpVl zogZ9hKUP??-NIqJ#H=il)k1hVDtMm^mc&5dl?1R)Gk{@xn#AYsqY-C7KBsZUs~ywrAz+0o4gw z*-s*h-GPmCAGRkTgYcPJl*je~dnNQD?+#5x_!Yzb7OFD|iallpCs?iD(;Tah(+Z>8 zsdvE{KLPI)JG?7{VY}60@E+Zs;!tJh_R{}|dJo(EP$i;%`y64@BPq6Kds?%&=`M00 znaIp#0VJ(kvA=@%`m@1~?GmF0BywP3`{;IwHQSAVny`$Omr~ykp!##egv<#Z@BT)D zI<+<1L-iba*v>tPx0(pNk5EjW2n4)gA^RoZHOp1H zX)|fMJ+-kunJ_Uku(*{nE$_jt*T5~h0#VI+M1ZtPgay*b9ueP)-iPbtS4qr-^~Ut z9}{)J9w;lz=5=2->Uzh|^dC{0?8UR^Y*u(> z9g{lwQIcMxm(#OLiC$0nYd5bMV6X-otl=h@g6(-n0gf6>g@{XMBAlBC$Hr-t7~3{( zxjKkvFL-wG%ir78GDR{ZIeLiSFLNsKn#neR1~5=j>1{=)*@h?;P{YL*z~4h6x?ln4+b1uV?BX z!^kLC8P!&dt|cpvSJ)MN1!ZVfU~lCkZt3R2wb9Z%fEdE}?Jm@7c%Tq73HwRl(HSL^ zlzc6H_^O5ZDOoa)Tx9I88QL)u67hB9T~nYxQ6(HkhYfiJ=knHcgLZ6Df0_bS@LA?C z>Zwt84P{)-3FP)XeXOuNsRioIrrPG`Qr09g2J9PeZ?lX(n)ije^(}9zC>aK%IyTl| zam-Zd%+o3iSE5S;_h@VxnQb+}7T!aFuK^#r{gNh3x%evOlQ=$q%5t@LfBNv|{t2%?g$dA^K_IP` zQm^3W-Z{;M5A{_k#_-!iJ7~V57aFzqRMA*&`+g&9YJXCjI!gdewh49VxL|4N0_*^Ca z*Z=tCgI|26V9pW=c@^|R?}g;eb~k0%9`c9nl@B$HX|@OK@s;;BPs|V=+pqr6$Vf7C zjgPeT-r>&C8B>0N-TG`eFCF&!T?Xlv@F1U?CF|yvRi5log`>~o-CxVy-!gsQ-rf)4 zv$ys6O8cRdN|`~~wB!}GpMP);@6d{+!reTikA>>-Y2^|hRtMlw*YOh=r?j(8!EKR5~7`C)t3nMc5|9o`+=4uJgd1`q5kH7SB`!}hu$jd$KTx@eY20DBDBZ_uu7 z)yb$ERM$YhA6!8C(MM0%^MC#d)pZ;kwnrOmZN|2B4dLAjBg6J5zy2p+58L@r9oX5+ zfBO@vhw#`Qyoc?1-1VjN;CAvjrT33o<1@Gt@wz z@K=Z&c9Eoi4ny)N@u!3$TtC!r?!)#Q8*7#vNH9k*-P(2>rAw8eb z?RJapnNiCfA>gr{GU=N_=oZ-HDfS7QySz8IRDbMCILA{{qxRL%#XE`dK*vh;Jx}EtnfR_+w%Lm>;8@*!*j1SvqdD^tc&vU__*dDxN`@nzLp2}Qu-Lrsa zYqpc?3)t(KwY|>)$QBZPOGou>A~wi(NeTbMcI9r^9?r`-wQ{#< zr`sdlc~nPKglAF9{M?8Tetc!!?yt18Y&Y#`6#GWEFA>W{1=T?Y>}pT!bIl?r?kn+6 zc*k~%y+pWqiZQ<@4saORJmnER?4fqjY#+QQ>XNcNY*#jS?kx8FcV7+IL4LrllzBq2 z;QdmxcicN*Kl$0C_1x|y*EejJc}RCxK9C3Y;5}@QCq+;_>OJ=;e%M}wPs{C=eCrT$n`2vWPr%3Zc`h)hw8bETEYkHJhrn6$b4P5zxbE0 zhV69wNO#kuCLoiT%-|i{kDtAWbRV|M4~_xVV|4qlJ-WRbJ=XXDT76V!Z63#X7PePy zR8tz$0(Ms*#I{_ba%_iX=yv;&f6^)}ahu3y%PTi-BJ=*l_UQH$1X*ZeG7baMVJ&zs zoNmVB_0!C~h>vLJWoclCMBY}z*sQ;1yR#@;)rlt>gYcE;vDUGjh3)VzF}hts3Cd0Y z(EcYZGY=FA(3`R>8Z(CN6gyk9U1VkgG7_OWujHmCB9~%ByK#PWW+B?6+Z{vjUcSMe zw?B6$Y$xDDb<&*yyO>OjVvlI&Bii{oshnB}zX`lVw>PwxVYMpVgttkgGC$8s*AvxE zdm6S!uJeQUEWvh5^3hExF&R8pPpZx|A8gMDC42?@;fc{BE%zW$$MLqc{MJv;Z(lsF zC&=zSURl#Za?CnwyLGzh1MW>hO;!hjwhzx>hi6;ObACyf^74*|!Q)$dwR7IyX6zk_ z?af$r+JV#O_#9=vX77Ogl|)qi@ZaWH;f6Qdjs3a(%*wCq)1UL2kUjGw@)M%LcC8%c z0hU*%6iL8An>@LcWp>@ky2xDvQl(o$YY?yG-T|?~#F3ce9mk8?j%LOW6hLJi^-3eVH+_0t{$~FlG+HxdlHLnKvZUh6i`6jiH!-B%L%#r(S8)ma8_`GfPPOo081fBpBDU;c@mTzrP@ zyZfh1f#tV$jy&;IuS#9(jyXopp9M2XCBcgH}2WvVi@uuWeH{^h^^ zDfaAt|1aMDcFrDc-7&md4H}#_fez2D$!)5uas76gE5?WI*Uaj&7wNt%>FbsdrA-#m zt`vAgUcbpJfamAuI;G|Vzc8LpX3BfTBR2IOw%a6Z?`D#J6|k#v4cM(IVdtpsD|_~t zF@A^efjqVc?=o8e2=5Y*Zp{!rY=`%-{n67GYqm$XXAT`+`9k%8eb|oh$}FT;ZB$22 zkbJ;iKi9)<6z99`<=){vR?_Zl8HyRe$8=ykIC~VfXJLW8*?#l3imkGpcMjOr)-KC= zZ561>WuXawgBUn8I|KL}Lb{28QkS=7x}0V^AA%Lc3TWLN>qiEPFYO2K zF;xFnwgQ? zUtv4B6~YJXd^5bMj`kb2ZY%`CSm5&3EL$gy`Jo8Xt7~?##)SQL-?@W zxP@%Zc2qxk^hqpK=Wp(vp!&sUFL}22;3=?&?T|ir57@E2P~Ux#_#%8yHo=!}-^}lv zgvp62ZqrncSMW;@iwv|uI$0i@_fQE)XRZl&306e zT1Ist!lhM4Utvfeu-9&zd)d}c*K4Vo5n~coMOE1_HUfr{8N3hMq1!@KXZ56$Xts;f zhV9E_OwD#+cP@eago7YG=1BZvid&&i;KG!GU6bPFZtxE5Pk;F(wzJe}hV5xL6~AVC z+EIt?w;B|{?z$C$8}BuH>4xnR0ec7!=`oWq0z0$3Y}1iPVxGSe8>$2Q?W?HXV8`~v zWL%vJ)btB%uJHKOr2_l6vR$;?2i^fZU`OdBAo`nZhj+9m-BI1gI%~Fr2Bg2jc7(6P zTWNS;x1>7z16ou4=%)`QqS!~b!+YMCP<^EPLiJ`f(H`B7?R5LF{rc_0*M4|AY#*@O zFdeZY*W+bQ31LiDqFt5{;y8O48?cj$z|Qh~v0PrF+e^B)ZU^>yK&VLF+701{?K=(j z+f8_QuXpN=bPv@-_^>^APnul=`l$M)#$yyIAY?u$^>=bS8((4>z0Y z6#;93TC{KG*H>onG?D`W-vEhM+=6!=(y41cY+nY2fcMQ9>Cx?ZMDo~PR1|6^;GaB$ z_ieo?tFrPuV3$DkSlB+gJ#3E$b_X2kj_tyJVf%L+oOg{C+kssM$Xj95yR*>Q5Z+T@ zBj+lOQJY$RY?qz*PL%3)HJF31418F#b%gC1MQXSa-JT28+|vT5wk=M!Jg&oYF&pdv z>yZ+wk8ZDTH|jlUoVV4=gi5OI0rL}%bIo>muk)=oLd!TX5#;fq`mi0sSwX&D%4)jO z+OS#;E$8cU4%_Dd5I#>XziY$dWaFJk9=0QVbUVBk;m@A1C_34IV#oH1+Fd+866M>} zJNt>SJ&GOSN4NWlu>Ioci*#kxF?9^m2k#@=u|3DO_E48 zjI`6tnL5p?p!vbIQt$GAvz<5Ez({vgHxA6VvK`gK_UV@@ID_ig?lWu;;jQcg^4PxC z?RXxfyGp}$s2|bpyv{FN(&yODlI9bWnNS$f9=0EUpk8AcZDXlnY|)PG+B`?PgFLpg z(e1fJ<3o6bB4FpkcA_2LQ|{ugzf-Xn#a05?N%!b>y9(ZU0U2OVSSDciN(=AvbENyC z*fpsVqVF6VAJNWx*Pz&e9pOv53oChv^JZZbosPx;dlA0gvdzL!HhCM{adq0RKyhr? z9%6r!?QYhe1N)z2`z!kl?IYE?s}FnXsuCn!0RfS0@<7F5Pv?jEfnfI zAj7X?G7dFtPfR9Yr`yT(#AGV5sY^wL#NqieL9iC>@hR-Za|MZfaQTcv5TE=I z^o5*>eqj6HJ<%9GY!BEIlL_159oTCCs}0+M-NoTUbzqkmJ}Z)=+Y$bYfB9qBPQdTq ze-7_VVo~g^+ijbe%;@&qsoE#So|w#y;|1^6E1m}Iebbi)V|jj|`mlWhG7>^7rmN0) zGQdt|hwZd_qBvbY(1mrVJ#t+ zzG+8+31jJ{%PTLsrzs8@Vj|@tMPuvTYH!aZ45{bl3a-`gdYf3B#G!$pJ0LGnGX>C8 zJ!OEhf8E=bH!pH1QQ{6GXTY%x7wk}-Z_N5T1}W+`)ddH)(!hOc0gf+J(^O53a;K_y z(*>hm=iBN9zu#xK-`fRkFvs?wb$S&6FVm|iJ(8?r1-+0Ghl$=U;0rYyeC(qqyp?TY z{jvOM!xx`d3r3c&vOHVG+u=MuLVMnC<%bfhaXOcVA>Kw~eZhC{Rt!z})7>|}n8eLH z_pa|AF$ou3#;(%cD^DUYNuE!gowjzqt-LXhkIlHRe%%DefO9=F9q;U1Hx%{h>9G_1 z@+)S3Z8Gxt@4py3di;dlJUGJYH*VhCJw1(WA0M;*3(a+^{*-C`DAVs8pRpQTuJb^S zmbdwhoeI>jt8Z1akoffL;g!}bbnr|)BTM4e{t=T)-!S@LhcS64n0MHS9OIAOFuY{j z>u-`aC3@>j4bRn$53$s#rQVi*{YFh}#J~Bj47OXxZ^CyK>pk0eJV_V}TJt(kzGqCR zr|l1`LHPE&2TU51{o;b|erKCVe(GnntJDs!cK)NAES%4A-V}1zXRF^GuD`R?t<+KV zi(4M?_1e+{ebl*Bm);rzRA+MweN_(&-*!D02$xRim%)_8Tr1yV4s@h5AYYHgO;b0c z5!TbZXN!Pzdq_QXPCvIY4WXCj(3`Oiieo>2ar4K=yQhyN(vs??3CHzT?wL*8M+t+? zI!JlX>;KIjpr(GVrhcw5X0N@emxti0*Z;-pl6C;r0hp-h(o88%um9*~nTuIH-O6hZ zgSxyCy|iy3vw50aEovC9|EWJic>dtv;1#x8f6aD(0(;ng|NebL)P(I4h4jWd!e{mt z-a#1O#VLRF?l}&hH-#vMV?RAUazsKNx&31Ul_OX_H9k8YST*U@EqDHhwt_S88f^Z0& zCHapSuJ*$g5oIn6Sjn zcMpL*-qis1usvlYJ|)XFPh$S0)>52HD{lI+g8cS7)zgGYl=L$9Twbx?*@JiGt8Bw| zct8KeCk*`<=p8?P$`C$rczAcT3Ied7|LO$~>>6DK@1Z)6MOtRA*)A*QP;HLwv0*s8 zhwV+OWiDxP6{k6DccURaZ0B>bsYOcu54FN}o?-i&hCXPv1N-3J6+rd$nR1R{yJH@( zhwVU-qk@#MT}vGbvm(RLv|&5K`-zmM8#NGXu|2rv9rnobX)tf|u-#9%&a-lDsNG|m z#{stA+&_r9ddgAgS`hBQl>KDPJE7418p`zEL zh*v(@;5|8K_EQO~d3H@N@ zTQu!aJh0Dux|+u#X9)jwwolWedN*#i6Ya3pbbBRsy>gaNk6r%RSI;#py!W%1be9<2K5QSbC*geu z*u!=n(#IC6Z`h9N?qm7QV940+rR?DDSqM+AFQQ$-t~T}x+flvVJ~nK}aBPF zD-<`_ttna#@5A=+nQjl&$4l6WU48be&w!mtSjeK`hwZk_-mL6kz#5)HsAL2|{iyxAW0Uc0_?mNFQyr$pEFY_>~4 zdJ(1xAF9WPdpCZ3z)&6DN4Jl3k8bDP(`obwk^wsp@&_M2!uHsJT>{csnzf`e{^)ks zgoW*HadO(|cKH*@oo{$P=_(+t*w<_i;pI1M=RrPTcaHE*u}8EI*ztDF_Ii&fby(6J zHv{$%J}<&Rw!?enip{nb`ZEBpYgOauZnENPdDx!e#H|z2UVig{ zupfognT7Df_CDX+*zPBa@U7UBC&P9@B)2k?L|7T*`%x%d)~zF&?eH$oV-(#E@66AI z?I3URXf|x8*sGf6z1_5dbV=Q+fE~Ao?GPQFuYJJ2X8XistnU-Hi@o@KE8G1Lq%SwF zV={g{F&X!L@IFF4g?ju1Wa?z8<&%qqW!&+>J3NMyP$}D2&Tr|SUM(q86OgG=)2%7u zFToBq-K!#mU+Z>Y7yJ+5F@LIB5|cUWIW7}NiuWK+KnB|@8?2BNrQikmVcE}CMEr-*jq1c~cJG^5ru*3U8 zpp6n5RrcdmU2xURB4a zMYkh-g@`-OSslRNtpRERc5DasWLMA*)p{s;)$SXc> zblvNk%W@eL%qC&GizX4p9{n8A?y>-~O~%{9T&qj4cie22yLXFXZ{04#Ex3WYH zFR5y>y+1Sk0WTUlc1z#UJzYd^Rl+0nt()x153W=Z`~KB8uHRtpl#z&7DqH!~x283k z997GO{Wms!2Hhz&wh}MB`fBrn)#7w9jn{_1ei1Cc@ys)wXKom^g896mpiSA|Wa!GhbIMZNUH^sf5p2ge+ z<*vSJFQMd?b>BS~x!Q^Kpm2PB+v8}(XUXwt9j%wL{3(%q_4*I4vZln%kX9w5>ZC6?M{VzVVb+^ZDI`C`X_Iskv z0%>=|i~dyr@UX&wa+*xSN>{JMgB+!IQasX@!tB~@q{<{geq!!RMQN%Xi>Ieu?cUtl zyZ)vT)v7h%tRwNwqgs}1p4WDg-of!ZX1_YR7k}^cg5^kVy|Z(3Ym4`0baQK)T~{f8 z^{P<$d=JaT%&@BWhz9@vxFByz8@z3{$bJFugAyp@4HY|m38cn{b!D%PxBh1a@byXp<6E;oIQ+bp@HozuThtc=QnIWzHf@#=XyjQ zZ@NZ8dY!V01CsuOM@*jxexj)oxd_1^w&!^vf$hcB#(TgX!lODnIXUI0z2dqd4YvD} zX*tPb`=xcS()2BzM}XUHwb@npA0MzE{^SVWUtznjObEYFJ;MTjo$W}qSicu1!k~O9 z1@Vvq@A254V&Yzup4q%^hwW)6mN7q<)w-On*={+!C*~&Y1ugk%*pA+jtf)SQ>fes{ z?xR%5!cx8F+v;W9wCrTq59^H{(%~K3;X3y*Y!B6=+Z{vL9^74d^TxHUZ5Fn}J9D&i zt#0j~1n+O$+Qs(c4Nfm_><9XKS_}-o1#yd%Yj^AX(XYD!*wY?AJ-5|!?W3nlh`a(e#YNj$2%cj+mN>H)jVv&0RK zPaTg7h3&yRusi-?yVmURu7%7x2or$wMEjs!;N_car`w0^q&vKSlkElvj&9Fc!26o* zM7s+c0*CFo_(=e}TIR65u4)h0Fl?6@zLo7I+BXceGQ2BF1`y^+cWfWL1A9&TCLrMb z`q~>2?L4G^=P$k!=|2525q`i9EWo~Iy9^UcYiiyV4%>tGa`a)j~K)xGWbLu1b_ zY1a%id_win?e2wd z`4aFQ|ExbZZB6^Nbkka_n~kNwT4zdYc22HGx`*v=Zfy_SiT1?3ORleU`<3oeI=cPV zPmas(lmYv&9oW6FhwVJJqk1fC2li3j0)URNe8=1t(!OiR*{i|3bH8$3W0GP!u-D!1 zs3WA$PS$K+>vsD@btVz258HDV2tSOK2-x3vdy9>3uh_U4PU9Wn!*-&b=>m3k@suIF zu~tw$9@Rx-5^qmCv=ska@9hTfyfgKS9xHX?Y5mx2FS)*9yA^z!b>w!1NZtT>Y){?@ z+b;p$Z1*&DNwbi2mzYB8FpxQvmI&LU+b5r7&m#tGKDs?m1l}*$Rq$SLFz}a%Vuxse zonjx|9=7w?ZmSS}#xXEP&B@sXQz96!$Kc&#mqoYN>9llr>({#d6}CsW!~2MK38G!( zJcJM1srNP8t+Qr(qA|d(eS4@L|IL_8bbFP!mhLVHw#!%UQ5ED??D6C}s$)CD_R;MS z4b-v928YLA{Fgue`~Um@z5MbEryNscs?>BVrsRC<+dr_!eCv+0wQe_4Uf4dNCtzm+ zGSThG2JHOsL?U2MSVl}nB00yA1n&~4UU|}Rj*h%DWF1V`i2(ap0y5>RWp&|QBUs()cF4y@d`$`W1MB~hxZb-M(xCu~)|x@j*h8C<1W zrwMP9n3&8m150-dPY$u#*mlo<=TB6JcS6X`0(Ln+F&X(Yc!v(UJ=%4^p0JEw#xY=5 ztrNVb?kqJX71H0tWRgGQg<@E+9K{ao!}dt%DE49d0(STA&#+xU=6Ivqg<=wrxzY1z zq{zTK(JmUp;2jgf_VOK*;aRB8ONZ^GyOlj(SO^dD@SfWdsz|Zos z-LOXw4%siQ->Y12LUzbw%{sz&QZrJ+kZSXj-lkO-aPc_iIJb=P)vYL983|R2Mi*o^ z_YU)Pv)sdOoevG+1))r0=qhpR_Rd(C9A76^@6QGKY9hB8C?NUg264!GlD_!M6=uy& zVEer97#@NZ1lspisyAy#<=K(Ln{k7&eR;3Edve4!jgBnD0p`+G9Ah)Wl?$5@u9jza zKkqyOT+#$&+z|;rOLBv%gI`{Ug5v@{VU9pD_5`a zA_IxHU%7IXEt&l4)pK-t39J=%0&=}a!4OQgK;u1`wPwYSZS@rKpjc>9)!BHKB6bfbFgD!k9~ zgyrXC-A8Go2isZ35ca%~D-!Lwd0VyY?yX&r)SQ0L!N)v7JV)~D_0v5pgFWQ=!tdTO zG>2wp8b5m_zg^FipPpGRYNv%pnpjsGyn3c|XTX!kh4)Qgay;3)WB%D{Wqp3}?D?lJ zdA9W~eO`i)UF!Vi`ABza%}g9T3cetOh^Fubf>PQFLmo_(T5K zV66`|HF(ZWKQsu^b3IEWmU3}?va|cOvRvn~tCx*8^O7RWBxRcJrED5p*Uw$^4(4hL zoq6`Y^_GFcGTs**uG^{41ZU{>S3aZL$-*_;Jtky$c$cs@>2I>#PirdU2y@E(n(e?I zwrc?x!l&KKw45n~ZrBd&3h!_J@egaZhw6OQW`4K~hF=q<-G4rK_oHdM&Yxd+{FNa* z_$U*O8Laly5*yRwts9lNW9$yijSBBFq}$VHWreq?~4o4_8n=kbK?rIBv$ym9S1?*!-LHs#|^ zVSDWL@4dcIi!A%=H(vXz*T#IsvYNa!kAvv;)K(14UrD&OT2JNGAZ*V#Hjuva?k=lD z_xXwshxxEQNRPL|a)mb$8@JP4a8+|J1}Wiuwc@y4)wQ_=eC>SGHrw*N$Hn`TVS7g+ zUklr7$zNT;_6q!p>(;p0H#)1A#J#bz6ARmcefQouq>ml_&69v#0@7KIaM-@x)%{_6 zGY1g8LEfy_6hI2e4>~H>=M{+ z7N>Y@w*t@XCu6C(;E-Na?>C5Hd*MAxHf(oig7>s@i{Cfe-o~O8A*Jwgs8IwCJmYuv z?lDbJ!uA=r2iTE3c&|hS?ThdMdkF6s0(J>k4BKP!%$_K&w=M0lo9e;)`NK!>&O-Ho z-3w{B4eVsq&27VDx&ow5k#i09upQoSzO5?rCSMm;dllXPuU@BDaae;E9^?~a;j#UH z>dz}+_vf%(;6>M@;GHbLWWt8+_8Hx79V7kn%#?@z0y>RjT*)i5Z6N;YpA(V0WBBP`x>B#Ajt%>b>EUW0p54_5ypw>z3z2MEj09 z1%;GQX~pgel&Lf7_TCc1b}Qt~F(JVLJGKM+)gN4qy=D@(vAIcKPXIM;CkpqqZ#Hbt zSL0`8OJ;o)7SdO*y+O3|;>0)JHZ&iO*7!EV_8Fth10rBwa&ogh_t)jhMRU1Ex94pr zVCStlaU1s{z)XUV`E7gnR<>W_y$2G+b`R{5>#f`2J?9m?Usj|VvV)G-|1r|NBN%{F zkQa-)cV5HSe4Xu2{^2*Vm;dsWxu1?ddb;3UPR56gdXH!i+i$#E-MA2b&Gtfii}tWR zVHqCMgLeWxY$x5rcJvP0L-pnPrSa!UHNt1b>XGg;48>O?Ro0v77)AwC02{Uw?a}Qk z>0VT41iT9#wpWJVR76^W>M=J?!7mD#?4v4bOSC(M==Mr9;jh14je>w(BBL?X0Z{MT zw@*GiV+jA?$)gyy7c07+-3r!B<7$4`?$pwfCq6lC&Grx;)v=v)=M!rMTM1>hifuRY zRA#X~OUQMG?QFpA7*O3|4BKlb-M((v9^Iauz&p9l;GHQE0Xw#Pi^*#^w!b3U!*=3I zQ3~E`V!HGmD+Vq zOa|MD_8Nct;;EQ3-Ck7xZ?gUT9NrC;4JshBiOJXl=^ngeJEPl2 zx-N+m*uPR!Iave0*6oWFADF+A7!Y^D%0**sR-5fn=3iT7!*=RD-wxI1&#$eY z-8ST3`-|^fS}(7j57)2Dhw#pa?YZnApR$JJtfY144T-{d4?pgbUV>d+Sl34&12snP9W`-1n@?Zftnc5Elq zpa1ScJT?wM7mcd?yw9W z(LQV+yi@F9y98DzAXC2C9xr=O_^}||4eVvJL}SD%S-`#t%PhKGWG44wdA4@`be!_1 z`#X3~3_l*s!}e0|UE%92>O@+H`*n$kb_am%kpB4D<5)V-0ejemP>gtpYLupQVDK5UN`iWiUx+oRhN9@T?)UO>ht(jC$x-AA{>`&zn- z!wlOEBO~PQCS-*vi8ft?A$ral;4`lgk!v3 zgx;I#)k(vudQd{*`Qm$2_8L&@r6 z@m*F4yZYYZdpEToiMj6*;?&F)yY|=DO46%{kM&CSKrm!Kw)OF#$L%XUXKpc}$I8%T zw5Yq8nnXc!XY)pE7OG4~H7jH_>nw%TQ2(1?=`1XH;Nt5?)^%i+@mkn>3b<~sU3r6D zee+hK+X$sMZoQ^iwFB<)Nv5jNw@K${leX}CLiBAR?biMYOAy9zGzS+?cJ4onz1BK; z?`IE9md&4h^wes*Cq|i2dtM>&#N z-`KK;ZeVHWI|f|(=qayOcbbOUKimC48)NlT4!#CR=hG0#8;a`_2&;;%2S2*@m@R_O zs5Nbe>N0lob$QYdSljQP-`G-lQR7)%+GgO&x;XWWsNtka*Y*6Wb}Q>9Z)e2gH{af7 zumA7{ziuZv4F)6(@5T(^$*17&?AGuR)!gmmjF+zKwrO5+8N}<3rE*SeV(AixKRJ!? zuF%TiF{=ZsMiDg}-@#8$+4lQKZ11=l-3@S5@9*9@3f?6`^~LuAI1)` zLRMX>4^cf07X@3CL3kH_$!E&18IJy9tinn!^)>XFKwFbr)LL z95n}@x5c_f?)f>;U2v6mDq%-l|D#ksRa-`xwIbBU?F^{-cNygv(w%_c<-KZ z>HAD=2JcSR3YA+nL$gj92ln7yLSaeQKMBQT@Geb-I@405=JaW>OSnNW3hz8J*Po4O zw<-7T6%XmJESW#E`TQwiC)rODbGs|iuL;18@B?-a0Bibkd^Y5jbcUA7W5CXb?ZLQ` z<&?b$V>`1@PT(!ST!Gx$u$>YZ-8Bm-H0gkym+?m77jv5G!8@wQusv;b`RZFIEZ;-m z@($H8OE_#)58l7)+pZ@C_Ja?fLOQha@c!V}zaPAB|KtSNW7;dCI>PhAWO0&!T})=! z9=t=k!>AsbYJ&QFyZ7h;wu`Z2yM>++c9kbZz>e*XM3fTS9U_Bt(+gJY=!5e@db7Pc z-gboowu3yR!@C`pZ?MM$I}72f{BFh*Sg5|WXaBZJ^GgZ5a#^OWpi7slhwYxDd=*&7 ze0z6!RvN7Ahc}qz(*RzJ8l}UIYu{=u4cYYWeoegMx!F|T(lFdk8tZex&We-acRU(=$^*#nx;O*u(aS_Qe}0OjfMG`1MeI@J_c6+XwGc zel>A4qHjvNXTdbENwJ;Pk_g)kIO9)Xm#FTjE#2J+V6W`ac(1Ut_D{|Bh3d`rDE8nT z)sr`x@P}Ks7jvDpmdVwIbgi9Zm2DdDeApiKo~Jfn0$!WCpPqT}!MpxG!F$*qu!rsN z4!NviL>snK>|y(~Z;_zhy?R_Wx%9fxJ!D5r23Bjfr(9Rr)I6pY`?92UJG|FfH`{rp zun_Grq(XH|itt8TifF%5t@w(kJqUl%IKsOjA2=^}u&YN)z_((LFY*7EHPk1+JQ4c2 zU`cd)_F(tfNv*jV8Z>M#u!DRn_WHKv`s9shew&x(?>@g_dwO`q=Z@3lmFTmcIA_g} z*y=s^F|@Z1ab7RiCdBNDun^u7w9ngjqIL#iWwyNx-Mo1V*z3YdG}|NHElJnu`fA1Y z(d}V7yaRIB9?>4QKltTuu$?!v>ad+$hxgb*^_K1>8yd@QJ*r2vSIB*dPLy;8^J}n-x9pSUXdq2Bi3)P$L z19k~zJb0(xL-lyNJy!Ad7VW?uwg>O=*q)}3Yw11(bItbuu5KsVeZuw(DK>1E2bNsX zIhJk@-X%(|H`r@QN5BxC4cjFGb}LA@CL`TZJ)*rJe^|YTBHgh)V0V9WXX9O&gssB% zbmv6)^ZRANd#D~i`3m8u(zAjyJpfcn9Iz)QQ|(^FSl(Tlx`ik4!*+?;C%orZ1Y|6X zXm`MLyJ*Z<6_x~HTCV$Z&GrTFt=MrD;rXy#SSDQMJ=Uk8iwu*>8etg;P5mb(W5Wb< z%6A0Dw!t!=Px6LumAv_o?$zh{d*Acx-~7x@qJEtt3)M9SCf(h449`6p(eCnE60j!} zBb{}86}IzXyBo_;J%;euUR3X)_JBP%LL!RY9we|G*eiXtXdme=kt5_Ca9%X>RD$%d zy}aD${%K10=}Sl-wgda%eeQK7n(Fbn?||$vL9R!%^A!@2%S#Zp5XxjsTid7}uwy&X zp0JGLv^leLJ2Z9;=^hK)`D$jMRmQJgB79;p_Rm0Gd8~Jku2~45gZJoO0F;Pg=fBDJ zD$#9;(tRmoH)u_e~|0OcBs=>t6rK+8@g!fV9ou*BWMAx<$B_FW! z?)8|;2#pS7`zk^9v>@8K@goyB_N!d4Y0g~hfAOz>oUI1$#~&=62LQ-h6;JNeOq^_1t}Tm+jP`I`wB=VGQYyDhK~(lMvfiNo0j@_12kB_Le>5 zVB(?vGV%S_uK(y}dQv;DWs)f;)gudS-8qFmoF9hQW!%5F^^Ts`s=6x9c4SH4Rz1S% z+xPG7>PTYhG*xC@S+jR^vAushN%0D>807Gs z-8XOVzW(OTc!x37j?y#kdScY6dCayq%+q9C0*?cmyt_wu7=nIVi=79Lc=J-S^rfmf zM+{ST{}F?r$YVal=1ozmA>y<}+_`&tbnzs1)7X*$`+I_frQ0LjRdLFtAk0)9)?v4w z3e8Gv#-EYMRdvVRGLW}EE86!ck%>X&p~K%)JG`0Sq1rb02y*tIGpQRrhTEoJ$qXzu z32%Gz?!RnS9oDmK^IC}S>>a3>jhSyT+g9T4>G?-bc;@`d ztBzoc9=l`K%c_hc@2yaAo7U`TRM4_x)v7 zAOjH`9Nim#nRx%mI?T0onuhc=dAh{)AF4|&yXMcUS53^3qDoLjv@3ucT~?7&%avIJ z|4M*)l$ghXbf#W{_bI>D!FK!kR<;N4l|#f9j69%?{SURwtl3*`sT}N@LHPvOWe;Fa z$C>g?^>}y3S=4IH_OpvepZ@x#Kgo4qjC2p%3+zXyp*qh7$P&Uk*p41Nu*cvX*xmXV zu=^=&XQ&>$142pernE$B!Wvzl4cH}6-HdFDZ=HZG2=Ax!d~viap&su7!0s&KE3tpf zB;@40vVnZq4(|oSjzaTc`}H@k1@G?WU^#bouq+Xb^T0kn3$s-=`KF(JYVM+0&Ugtc z^Hz{g>?(xMpVFE~j#+cEislyBo{O-aLlE0{dj2eUk5JFOE2Qt=bHCudPk&)Mq_gz= zMRnyJ;jw+8x@nGUnwy%7mO<-OUf2nwGXdv*aVV-MS{VKyJgbQDW~x)mfjt(sWB!fZ zgJHX|B2j&++JPO_L-;6j2apI%AP)$TE}fBVhwT!;9_~pD*d;>srB#WiaNB?#+lBN4 z_7J|FN*lJrqbDZ9GqkzvAKK8a5db!9_XP11VS6`Sdvfc2(-1GVJYN!-F`$`aP~-D; zwri&1hgl^G_}hl6(OAW0AIk~my&!KWiE`kxOdLexHoOninnba#Z80Cubn-hqA0Yj}8$?ew0T z?oU3Voo<(abPpQRouORD>Egq7zMch!_Ub_$v6o_xt#x}f#d+`u*m)Ooz)reDdf3im z&cr<+UFoXs|L$yBn74ZObEDe_>=H%(9xH})uV&{POTk%uQ$2)7^(?GJ2NK;Z`9Hcn zKFZ&z)rlM1P+w+1))lLxcEG-;Sy4~gLbOX_5$YN zQSi=>ZkMQMM@x6xKL6DVU{79(XwM}I*h6^NO_8WlAuh42TrZZ04bSWf)v=u=(#{`! za0=<9JM}2>;`d)fv19v--@QcjfIVzKIKIas)FEAhkA{~gvAr%1(eCLfs&@5Sq&vAD z19_tT>C>kvo3F4ve}?UdosR)$)@=VD)a}6TL$t@-WmH#EQnebk^Tqk@%tf@bi1w&= zn-J}hmrl*y$xJkm4(xP$*q)dSzsU8Y)37~*F4j9>i|uGdR1erE`N?JI0g zeoIT~5FXOUAbknQY+9@({Oi|P4(`B>IwDp z7>=h1&quL$POI9tu$@m3KDxb7zhQf1b9?~K7vurF4dIV39u3|D_F;QME9H%8^JYzN z$7DiOPgq7eR*>%?c_JsncH2_yiOEz`oM&a&UU>H`>*)Y^p%_$;MNeWEsMgQ*uq|P` z!^jh4&Gy+z*lrz%6t=ri@Lmt>Zsn4E%SW`sJEXHn_hEY#1WhY9VHxKIn4{YV(L{UU zckgJ}9^L-@S1-q~9Zo~(JQ3`z314ite()aMzGi!Yx}P1qoe0PzCga$gj%XF{64__M z>=I#nj@IQ`vwZ=(7Vj;Kt-3}$Ny%K-_87ri>EHAvbZU=T3Gk#gJ zVmqpjB^nd;?rxl%oTRJ;=0<�Pt^R`^031`JheAZ`w=#&tf&c^2r>m#(Vc|x(08v+H- zj8dXSQ%oiJ_FfHA7q;`B{#rd&LiPB^kJ1~$SUrmEEj{LHuDS)|5_t!#I0+Hnv3Fy) zN+fSA?{uvJmfTX0Dl_L+|5GDkL39mN{`PiyEmloi7TP>};H`h~{=uxaJ{QODHu6?8Y_jXjB(D7R8?KcXqF6=II~`^2R@Rap z12CcWxz}kDV+GICuAXq|E^YVy(^y&}rNwD<{u0LNa=j;9Q+->O>YmCEeGAeS&I32k zT;6@Cc5xl))#ZnU!>|AK4W=@IPrtJz65Bc%OTCrc*g4oceIUM3Edb?>A0NehyM1g{ zzN%jky1&`7ANI|rapleHG6TY6NZOY3ZZ`8WtgVabGf;h*AgQ69So+b!Cp*WdRikRp zM`tq}p9~-A>j194g~sOoFu-qNc^Q<S|Rc)4;pB zP3gVWe#7DCpS<{|FaL`X4?g+)CA)a~jA>iJI}B!0c*QW!FJtWA+U;qP(-^)ATD7N* zYJ&PaQ1~cqe&_IL_b10Eo{Sx>I)3!{;7p}z$4L7*o5w`v4bSFXz<0NWI<-@}S92)y zgrXq@4(}S}@gWc3X)2>S_0iL^^S^my9n5+7EAp-b#0$`7boS^ z19aFvgxA><+bhF=o$VQNlP9pVTZxL37`bc1c6XtAMr_!=zQSv^%g;<6M)k!u?*iDK zHHYo9lW->CDPV{95FXNF@Hl~PvN_-l-UsPnvdbRK#%G~)67le!2ZTRE>?FeNEU|MR z>Gcl%X(3QctamcMXo#?!i(Y#Yz|OK{2F8~euzm0zp0C-yEa}?P;=DT3LuE%dlk(FZ zMgqwXjxWOVT4D1isxyQy$oC!)o_QPqd(2UV;W@nebM=s|##bP3Qh;4eBbLcu=6Wob%YON*&&Z?Fl!PRNgtjQfz0?x_f#N+xzgsw>%5muX{5+JO*|K>>ZQ2tnNg0 z;Jq$bv0-}%Uq7Mp<`*v*q_YryCcaUTA*)wG=*WhHiGgsy9$!rEu#aCsb$ADMYliLT zpTA^lwgY?cjyb4qt2#V{-vn(C9@xhW_mQDL0`^zft_bY?#Q0s0i|Wl)U>{2X@k3vH z`PCo)>z{&mgopH_^K>=-p!$QS~lx+P)zG?hVhYzOx8e&ym3yvsI}d5(X) zZNqk8AGYT(YLsl@O|2iry4Bh=)eT@Pk+Hgct4(8|9l~$W{vW1NRbtKd)6>&Xo%i`B z+mYwL!FE)Sje1Y{^<1Oa<*9gJk5PNk?Yxr$c6XmA*CX0_5JvTwZ^xp(WN8Vx1=xA& zy>j^8VenprKR%}0srS0hXBW}!VSBt1i|w@^Gi!H?cOKpotec2m;(nE{dSX+)6={if zM?Sh8>)fy8RUY0W+Ox!(2~WALA}#P9!b3XC1KAah0>^e}jbSpjukjufhvD(SYvs^8 zkPnvm*$-mdaQ;jp47Z`Lvbp6J7WDhALE5p|52Q!B^Uie4=|s2lIT(Zw+iP6qR_}6x zCZO0ZaT$0aeS7YzsBToJ*mOE`^-hthWcTA$>dW-fW!H}JU7`CH2(T@dxB_G$99CrcAF6Gz|IrxquV3eD;y-C+H7B>d$T<)YJi=%4c-IxW!w+b zQyiT{r$Kr$|M}xbVY`NZ4A`%T;&!x6oNDtm6h<3K%ouuD{?!)$YqbGfn?W8-TN4JA~T0f@yQoxSz z4An=sJG%s4c!-EuxYq3h6Fj-5Rm{dR>qOX|R_My3L=<~G&Ij+Wuw9R&JOVrvL}Mb| zZ98nYtLXMM+b1T23Boe`AU)EZvQ>~3I*L7p?V>Re?bQ2#y-3nAncyAUW7sZc6|mdS zfL%gnX38l)0hzG96nhgM+t)FfVLOcn>|y)pc8O3ugiow5zru&@JpIE$csI!Hhy`?( zNYn})laafyov-CaPwMzU@E+0L%j+3EA4qp4V;DQI9ky4ZM}`c*z2+*j*`zHO+Nv)txkyIswJ`4#7q;ZOO|?Um@DTL|y*7wOI`Twy!BC$1jI zL-Ckf9Npe|=CU1oggWUC#Vi_L!fFxi5_U2k)knHxc*J@6?t6~#ZfNT0v%@I%_+h(j zfbB7G_UD9UAU$S)*N&V(JF3S-X6z>cnR=SE zXs6p*=Dw-e{(CifTr6yt{eZp9*fMY4h@~zy9@~LE7PbRB0WTVpfJ`Me1JT2KqA}QB zl^5^UY#=PUT^SGFquaxF#Zz%kX${-?=byhI+Q(46p8j-Ehgp;nhII+Z4BJti3Co1) z(YKK9s1Sa1`$oEV&$w3ap}KvB?ZLagkRfiW0t448lyfdgLHj_?;j1PmB3AOa#_z<>b*1`HT5;QiKKSx4n7;lcazE^VDW zm3hv|)BN^-uf6u#j9eDN>+`Fn1$JdSc*nrIQk@@yDchAN7TEc^{7fTL^<$JACqK=C z32axz&U$_BRJv1IY)7}_8wcz^o$Wlo%62}lV5d73&%DKU1v@1^8PWxltcIv~BIj9v zRN6@@=j3fZie$Qom761s8$(Q0lX=Q6wvM43vK{06Yh)DVt3UUJv)fNvfNjkV>*GC2 zY;hlw)hN#*Vtow z#DdjuqxrT&gjJjLp{68Us0h;E z?|J}~x<>c4=)ExJG_ zvv|eK%zD5o*B-|T3#}-M(Rh{Bz07Tc=`egRr`-&J#J#^2i(w@0!II^MW#!Q!maI!< z5o3Z3V=``<{Ox8c5N3LkGeCwJbKW@kZH5gR^AcL0$gG>$>zH>*dUdHR_<#XvrqaN4 zAh!xn%|3Yy7ae0_4 zMYfYV8L)FpDBA%$cK5NnupI;P%66F;<$P`wzzzXGy0v}4t_I$@RUnvNSxV{YHoe~5 z22h=oPYLvtv6N8mTu4XQ}7Pb86>6UTMo~-+03GV>N`2A zytsvTCA`Jo$FdS$?;;(lscff&?YK=uy2qpg)PpPWyk%;!UGUDNrRT=& z4b_!Alh=`~=7@B|ByyRtDmR37S>G9`R0Cz;kDJVxk_x@9N< zI~iCZ52jS7WU~r(N@Y7|Pw`FzO*gI!3@?>^!YrdJ=T!*+~A zI*+t8Q=&w|J4HqsGJh81G{v}rlxz*Evq4Ibt`^HmTZtM?&C;&2U@Gwi;Z3Kox|o>J z3A}Tk~1E+4b-eu3@N zgEJJns&@rDCEV7%AD&)8x+~jNy{lqJv|rTiNIUIqp+vy*b6`7LfbIG`!ZGd{mNg6& zymPc%VvIjobY%gUtLYtXaoz$uwZ_3-NN1}7J3m~0`?>#+UwUyb zE=EKCq;yvS&rJf}0XrpZNBmOqRI&!DV=O>*OlxqRxRcV<#mr51tj1Rq@07@OzNH4+ z`C`4dhpBGYy4wOf3+7Hkr-?0|Zu6Kc+jYKx``EsB_bFvNNLSI0XTV}R>K&wW>#BNZ zA%|y11(@kKRNu1ROR!ziXPM`H-LtK1mu#DgcQiASz^Hd|#nerT?9m~jT@Me!E7-M^ z+O07F?>HPpfuHO4i)`2VQUN;)upL9RbAR%Az>X3lH;8V0fp^*(2JiBdC6bVQdIsi3 zu`dX3BEd8&jQS9;Q*uH;x*A{9ya7B%EGQV|<~NF6rMtf6W|ft>T(Q|jx~qDJ?TU9w zuC;Po@J_5?LsE??+j%M>{OpQ+fMtx+{&w9C;o-3Oc>A>J79MXFv>Ju&Sa%-~4V3M8 zX^`$vUBM39QS9tgb-O(EW`k@~e*$1vw(Ctosn;6B!FH&wms@o^XT~^Tc0ju7b}4Db z8N9Oq)p`CFrQ2lQGrHYkI|R1a4&I@<*_031*+qa`LEc{qmOP^wo?)q zuij%VmF<-B;26cObj2Z~cvrUbOZ9wOkhjXT8nQ}X!l_L0{l4o6C=yoCPxoigM zY8(c6Dj>O*EGXVN5N6 z4zAJdeC&bEP4G^Mde_)~7|sHs-D0~cc5%p@D|SRX_qi{bbB7bo?GWY*#>hMOO`&SR*ldX!ge**s6lwxeo?n8 z-sw)Yz|H~>vPyTLl@O<&nM;~Q@ z$P;i!3Ep||BUI~n5xL4ZIlEJ}VrSIeJ7XmaoUXxiiXEQ9-i2#L7WS`9uie222^d|y zh4FMye&Lti{J^W9R9A`C2wLhIE%%PkM*D|qt@$A~I61>Oli0OK?%WmKE|Lc8&T-C< ztzBy_{jTxyF(@iokPv#x2I;tsiBHn#aP_WeZ;oCaE&+GNLbwu+mB>gMe*<>CdE_hP z>tIcqlr=jlsx7oy{u6kp%U126;4SPFGKmbvLY$T_olVp?+#b7hX6;a7yA2!{Ev#Cv zRx1mmrRH<_-WrR_ajK<~)*z;QHXn<|?z40%%^Ip~ebN8Ic0$3BmRecJh_zgfN`#5C zDY+?`QVg^9p5Iw)ITVe`7R)OYiehZ%qGi+BPJe1yvp<~f9jo=H^XbuXwceo_%@Ds9 zDLa^e(j@MXHOBa4XFONyj}I^&{MKNvGn(h>ooYw6)|pJzSW{|=@CiLr2LS!~teq+DKitUBB_S72?^L%QJE zt!FWap%43ZDCuzc_>3=^#$uIfESd9#qM9E7n$fL^AA<$0Of`g_w>+oXHKy_H!Auz= zgC$#5BWGzSSHkkGKBo($8;b@LDHd|IN}`a@WvhvJ-sg*9p>R5p%47027)xXerFu)w zwz;O%4p_A}#5kD%aLWuD+8|7uq+v8Z8A6-MZH1x^mk;xW647+2)E(0LDECHGUUXBc zp|ne_KGxYgPUK2H8o>1q7TqaDcQ~RdCB}Kk73-LskYJ3ONXtYnk8#~Y@pNZ8KfZn= zTWfM`O5R)3`8fkLg@Xl+;{Sj1UX)65St?Ml#M| z5Yh;o8`LT=*Pd~;nOtxT>oW{D{+39w!0aj!Gm4o$5f<1xBwvKeY_LxvA-5qrt`)^Q z3l^VQP|>acSN993=dGpN^;=eHh0|DTaMxID2kgprz|N6~8McFWWxL|NJ3j{OP#t4E zY=`QKcK|!sKf_qyS1aBr73`{l9(nqC@V+4V{A7A^v#aI)$>{hRws++b{O#af4Y0E* zExAm4M^`XqJ52hzhZXNib>>o0X|0Nys|LN*SfgT_Qc_4aTEuGMyX!(B$2G}~$wG}~^o z(I1qVrlDFZ?$(R7MwEc zj~;#oyjLg3fSvmmwnKGnZPP7Z422c!igb(Z{7I<3YLkU!+XD|sX$bFDyhHeOy+3{A zUSsbX`1J)7YRYy#7^=h)sM4<{RF+HUmq|NOH>>OA)odvd(%PwCuT?Fh{uF{6>SRj*UJ@=J5 z#;N5?&0ewDlNuyfjP4ZKAcR-8SKB~d2+!xST%m>mc4a$XiDwz}p29)|yX-a?B}$1! zGg&N_$!3d{-FiEh&8e{|z9m4zb7I)8c!#hGc1n5b3q>WovR$iG?XZ>-*CqMA&EQk2 zT5es~o}oJxZANoI^7Aj)u3!%mkWc4`0lTstp}tV;Tibvgyl-vD+#GLbyDE0@4$P6? z#Lp?=Qp}IQ|WWnz8F5B#OmxuDw>bfyu`>K6& z)uHCJZTVLnE{8Yj0DH9_c*pAVtI=!;wns9>%x=>gPujhHN(^RVUTRD%6j!zbaFC9{ zb}SHzJ6vAJme(%}qLbaBc(mNE%nrR^Jdw?`3C=IJW(UDc0kozoBx>97h2!2})DsMC zdHgQ6o=K-t#b_ks_s8At&^CD>J>e*g&Rogsj}SzWuhfh+@>OOrF5wG8nU9XIM6x^3 z*y&#!495f5bLC1Xm2n0m-eAldh=r5+OsVNl=ltm%wP+%XXMMbXFxo$8PWP#6uvjJ^ z&KA7Um^T`au#kw75GIn#aw*I8K9*tMgFRXRYGH1?bT*pKrVGVDB$2{ZKNw*wr1Ql{ zDlK*%R4h+ottD+YQ#Ifof$bOZj&$cXr&P9=%~X0&U7Je_-Of|PGs_qd%_>kP8(vvO zJ8Wk`*`5R!7j*qWh)a|fc-7+BEGQfUOw=YEd{6yrsNj<>= zR9DwJC2WW4TH=jSyQtgMC$m#+sHsl|ZnJ=BXA7#{0lVTIy`&;sb-VU%t9n;&jQX5a zv@7BHl!l~g(DL>j%Fq@Re!LoyzYhW*=q787yg`C|MLN5b{p_K_DN zoJbQopOg)z({$o64#LvsEWq;w!}k&?cn|MT!Kl(5_h$QuH}H-u>(a)?k`4SWsX2Xqo6EK7L%F4V(Ik@s@6?Br zlSjdOWqb(L5uDiCrVBpvl@(HuQ8g?rt=Jt~+kUq%=<)_YrOmOmY};7g*jU-HGh^kY zrL~m}hwgfVWUB5E(?l_Qb+X#2P0y6@(M&O%E`*XhZeQ3Hjs!U7Ox7KVZMfW_Xet~{ zdHf;!mdC#36^y%lHmB%+QeSD4SU!Km?&LF`NU;$v)Jd4?jwUe{{Ha`RF!d+1 z+ldT=0p0$vgRPMO-z}xf=XWCdgNa}u?)8S~w{d%dEVx_&mn#VQ`CZ8@-T5`TP1E_Z zJCblS?kSn-OsP_vRGQv!#21M|cr074Q0WH}$)!y<2`cdXVToKdS8K8N9aMCk%o1g~ z&ali*iSvd>gjhsIc4@TqB zRGP$TQbUDerDh9@X7kZxI-M(`k*6v^|ai)`?M}t<%=Ks*}ZFzU{L+5zxpOy_}NdsP6_-6 zhgS}7-ofZz!T8MRgbL!&vhl$&))-Hz99!KHcJtO05TrMU2G@CKB6wHdi;yxcp<>$KEuAA~Oav1@ zGC>9}T-KaGi{6TN>#e2Xt@W&7o4lomNbU_&5=~KV))R>I`Yv286eZ0ISY{q@db;Tf zr-2SRfjnPCLRV^)oifv-6qw=#4-5q7W{2w0NR*G^W8sTrbOi6zI~*ZzdGRL<_Yp9s zmB$*cFx3H!;Jdk^c-lc(+3y9!b{66DX#5IunWz zk0D3Mt|{GKNo~Q)@Apf!LQ|qrqn(f}lreb_8l7ryga>A{cQD>RM8XaCkGuT|v)X|4 zJXHV_qLnLJ7HhoS1={HUa-)$c78!yN=kT&LODdUCHM>(vWvJ0|$y6?q-U%f#Jovdn z;WxkeP4~8cOCk?~&}D0Os8mA^Uku3&KS9<54_;ogIhJj<72AewYs=~P(I{Ygs!OY@Ok)MrS>Ub1 z>!%91%pADeA)Cuf0-I%~vGyXog+;?_XP#*4fn^crzC^+kiEeS~f>C#nG=0&_o10Fr zZ#%*S8Qbd)C)E&@5e*IJc0|22cDI)`3`n6L4TzHU)#mYU&|qTN-A*Z4YB;IUl5`*J z*xf;2C~0>E-2SL@JGesav*8%e<{$m&t7{t$ha0u;C0~Mb%e!i`H=A8n(J$_DZ@ayL zO_!HTz2VrR9^Ve~K;#J)Tz5L7$t-hW5c~#~iR<&8w;E({UoyAllS!5x?f^LT2BO;` zS|vDC8lB;&Js8pi==R54sV!-bggkx@j4={;SK>Z;W6Kq}mk23g~akt{h$!2mTw`@PaWpV`q z)D+Y{QR;nWdNRSELOJ7yQLRp?4jEB{_-z=KK(m$jG)6a=30Nh=nE9gikTR*aWi*JA zWip*gPn?bs5Pq62OIi@{2V=SuHHkf-qlFNKfb^wu9reW?mC4+euv%|U4QuCV1=PHF zviOYtiL0-lr?l9vvR~KpfGgYeEqDj%a$u%ZuN3gI*bb1f@#!rLwqqb2JGml3O%}|- z`^_iBbd3de*sfcE?HEXx6q<(ZARXhAd?ta>CVsJmVjMu$r=6uPJO_fc>29N^+>nf-)R3>w>Pd z*7KGP>R*-WdZ@{A8N7G;omRJ1*{vXy;d3a=Sfg#GUZVG$Yl`zE;13|eh2F-mNZS*? zN+OluPuu?OP((iO^ZGyE7bWM`T8#5Z>zxY`J7pY?jh#{&B#(Uq07scQ0^WV=z!`EEiI9NZ)JUBX>DzJ-G+c)TC-tz zW+>Mko9mlSn{&(V_5j{&qlvB-w%hHVXcS$?db~Oh@!bu(&Fyjdwq4uX@OITkE5PCO zMb=R4xRR*j-CjNk_8nVWHiu&!$lL83P}&#tMiPuI#Wvht*5Ki}yyhTy$LS5OZfv3U z8BI);^vu0yfB3^6uB_WuI50amgU7k)aoD$BdF6etz4p3oV{^mqM_>66qYbAp7x0qWq9eoc126h`s*6hLhtB;`G}om1F4)RhDDR<@S+SKHwyD z5OLyib8M^Y8`zr7&c43fN5K!GgsHl%9eebxIH+z=Z9T7)YnYSuK?viO>z$A-n~4 z7N9ztBB=~d4NYc??LZq2E4nEa?5yF*;spc{@YV<3k?p8=OSdcAdF1&DWwY6Y>X>Hc zF?%GU8EaAw3iyS zcCX#)v=Hstoh%yo$N%4tQOjI+YVH5{kN@a&I&hXfN*;+)fx9J^Nuze4^wH4~Ppbjy z22-w-%jJLir+@nFXFp3x#m#!#y6v^sUi-#3zQHoL1fPL^bmDNszh6JDe+~@xMfB)~F`}C(<9pWyeZ|KDrU;Ocp zfBdI^`ltW+kN+r2a&r@xAjk9Uv(JJeo>}LX>(BrE&)NGg{^Bog`vdWmB>y6+xz!sE zrubxL#cG|0{k`vf`A0wc5mgj&ks9G8^EOB;B$*7ysUspxVfGh)@fTnG(wAO;__zy99$zW4g;Z@@a#_^QpuzJBe^H~;lt|Mi(?pIu&C2mZ799(%mByz=0s z%an3Lo_h|$J8<9xV-GCbG32)^6iQWgYt1Gb{M~PV`}H^8fKEVfZNpCW!4CmkqDZ$R zo4%0X-7eo+b8Le2z5RVYu(q+Wy5U%Nx}3hiy3>ssXJ5~~@FLm5S8YygW!=FV4(#&k z8Wqzs&pg9{v7^8Fo4+9fZe^9pc^${Pyjj2=MJ-khj!0 ztLy6=gU#-sqFLXtfBDN_=6>S}^1GH+*Oxg3cIUUh{hjZ9?~m9u*Tv=bUS3(r?&LW? z8{B_{^dOUHx@IzO*X_!7|-BivutPo;E)4A zk0I#zr5pfj8ubR;c5FKFpz`bRIX?dQ<6r#Z7nxL&hJU$M=kWN2cDrL~d4;q3Yrpnu zP?`;1y1ew@(lQ2tfg8Zbo#OOIvej;$Fw6EJoW_m3gDVEuj>cm)PK}MPbD8MkO~)$Q zdwZLWzwiC;hw#rla}TyNP<*z(&&s9MHNpGkC3bX=%5IC<8GOz_M19wpMvEX5qT)aG z+H0Tu)TcPT|MqYHX5VsMHZ=mJ{E*f4Rc3T?dZcePo+eTJ#+D1u4;9L6KIa1*22}|@ z7U{hO@|#=i>xCCzBJCi~D0%^wR&A_-?GG(2v(2ZUdB*(e%U}7*SFc{b&V~T{>gxK( zKmKtp)7{4(=bEkC>@c6B`mNvkt&hGcS5|HSr|Z)4@^~`kW1(2W?F*pNagvAA`7l8> z#cGg{B)9idpL&gogZ2=DBoZYgLmE>nHaj)K@BjYqqyIThM0KOp{`Y_X_x;1e`QDzN z0XW>04hMVujcJ;dmDpxo_@tnmxDv(#Sw_#5O4ux3?@^y+uh>%h*Tv!B^W0an2bLX zzxrZ^KGyRV+S5qiZ6K}dxVW|d6qkq&TWxxSPD99hPnRJXIBFYbA+yXfkzEgW$?LEresZ~o?Qe)Hv* zUkQ_glsF2X|K(R+p-%b4C;kUO=DBv@Qm{LartMA#gmPcu3nIBF8!44aU;WBgdHU8? z*%{;I*4Z^|=l*03JA#>dRJB?S=MUkVX!YS>zu%kF4k93jEORfs=S9B7j?h^=)Gxg7 z9)7q73IxMMPy4omYyt41ei585n(&fa-up*?^haO&+Sfk(;Sc}zZ-0v~I-Rbayr{L+ zwY4Xnc=AhM`jVTP!s{zns~n!og+JNpK=j&djb`(AfA@FUBU%*pg2yMGe3G~CedU## zkKDpbLn^K6XzWd-m$y7ibfnr4MN7{=|2)V7-S2wvAw)ajH+GK~M~BDnzj5;>yMUYq zwkxwe(d`_@gO@KO-P!Wf&)gH$i!VAz^iFs?noCsLWB`E1ANZ$TfdtgfK&p*^+mr_R~VSZmnM zDcp2!_4<94?wlOFKvd=I4kh#4bI)5W3!R1^ z3FTHMPlAbH=V>)o-ffGzJ~s`Pqw`4rs#(jRgepS=3K`^uT;wavvcwvl#|m#C2H5$e zP~GH#q*E2sw>(6&%F)}r0E>FdwFK|Hl+vsbL1tb&;Oevi1w6SH)wM35WQ~3cp6iRf zFx|Grc0Eoo4%o@SjIpeQ2l9JYZoP$fiEkIML-;Rz>8qNHgAzwN2HP7CZJSKrkPA@Vf%%|6z?A9=dDz}+)oWD-;G7)0Q#4+F<9sRYhe(k&8{qC!;zRJGv z^Rqj44cqlLW2fL39}%7t-*!Mc3G!uPG>NDrj13l>Ht&IFxz!geogzjSF8w%>a6Q8rG~2T%PfKi0QxbGZp?!4E(~fYU|rKav%>KHC%B zuHH{3S1>2!-ldhbRovx4l9}X^J2iJWjywg_e2Wvv3*O?c-@v=Ry8eL=e2{&CV&F`G ziZ_}ejxklP!*=#~d2L%WdSYKg6Hd4BlAA5kY# z2XSEco_&rJ%hAF{PR@qIwYuSiu^b_U$C0wzY!Q<~4F$%za2(aEuYL@+BY^3g0JhZc zkKVaMcaI|wbaQR$?dJRhpNv16#2ZhizWFKN{mf@R1Dn`CH5#XyT@V7#2Jtv~wgYaT z4|$Jw`Jlq!8Sx~kMCC)n{Jyv24sROLA(Y=8B&H!#4CSzy2Y z)Qcb;d-B~+scyH}zIW}GCEd~OYB;e0yM_1r*bYh6F0vh}bMjH|;=8EqV#;=q&U#Al zPW6FeS3}Z6bv2Rqyxlvdn&w)lZl@HvZv5&n9J$U_L%Opdgg1lkDfzsm+hIF88L;!> zDyV3O)vQ#2v!GyCfb$l}^Cyfo;9ZSni|txp@RpTQeGIzVm)dXD)7b)U2#?$S^wUqH zreF@VWWV&HT5NANn(UFci1|vT!qcj4G&(c60dSX4!d_%KE*Gvo%AZGu8;K`|QXYh2 z(fHw{kCorGx^8DAA!Gjnff#{pW)i(H4h^2fZGVWKP`Xy>wZv~j$1O%+4Bb?FDjrw;v(9)A*pdV7!C)2PlAYs;%>fFZMKI*q?dLZ5>&}KkH#m{8NXsD zUkHR4M8k$bH<4~Rf;H)b%M(zPMC?h2sZ4T0U{E|sl3M!OpakNcKXIJewJP1a#(;+Q zw9>|cw46h8$mBYUEv>ITv`hymk&4Wmw0VgZhtq|Geu%DBzz$Xj3W}%B+3vo4nW=4- z*)e4M^rt^vYc!}0w}{yYg(>;gl5JxZhp@{HKN0E^qi^XCduW-SR$=>d&p!{4*Bl;i zh~dPwa$|&6^QZD_cuj54X^no^HHQ;JZxb-XoW&gTWH!hDPp6~N?GmOQFI4=oB%$@{ zlOfgIV~;(CuZ-Liu7H1=9_K{T=?|`Nx(UfZ@O#4XpZR}&w%s3y(*}3?mJ3RAeyEv| z!A>`Ulzyhd+@eEv%e(2?j%V}CvxMA)z;vU_$&EyDNzn(5LT0BN6|o+Pd_I)TCwH6s z4?o%3JB?4DNpc!mH3x;UN06R&2DKR3Gk?s&)%nV>uyjyHX zx+ByvC}BXcNYDW`c?;ebW)wU8hwX}Vw!p)vY-f$K9qG=U$y51`Y*&(N$y21ElDy?B zfLy_@Z0FIwsM~q=E#1z?la8TH8+u1lfx))Iy*#wp*vUYsq4?K%e&c;_>~oEC)Yb_F{t zEw&S?Sz?ZWVkMW!Al-pE_x7DTcaXMnofsXi&$Y2v;w}Eg7Pd&rvf+4yxj}DJuzIgjr zSGlz~HYm-ADL{=}Co@0=z1JRscV+}a%=6#vJ9lr~e1v{g(kiotU^YVU2y`UUB9=zzPZUiiE8;&}h$R>SKyuDBkrL!4q$=S#1}y9lMT+M>5{VLS z#A|ia4tR-ITyt)&Z%IaPBF`lFjMzoH6QRBth@|U`WGAg|df7>P*=D5sGI=2Ailqne z?AmpA805yi@%Y-7d)4W}KLb38Y@ydRS1Nt}3tt507;^p9k9}AT~5RYl;W97kr&XPY&R32lF2uDofa3Rv)wH=@*)PxkKh(rqB|S+$WEXmt7{?nrvx{RDRj+tndM3D|)xV231tUBj>`mF)|>?=WPkpz$P1 zC;B2)x2sQv5~N$Ev=`AHPU?=-Gs7dGNT-DA3U*e4bY;6rbPMm6ZYMTIbvry~f%VFH z9xEf#7lqup8yos{{VoqaFCKHM114$Wg=B?n>aSqjngsKh$tm>LF{RYWt!J&|Et*^4 z?Cj>B^>I;t?K&Aw_$q+mVBPSdYE0ik?QzC|~S}s*eB_bJd_Y)Y8n;r3w9zbl9=>W<`;wj{rIE%tj z$WH*g%jdBOi*T5N~0)pe&lJxrnP*T4u&O4$KjyM z0PSk0HvykiGAZk+t+qT-zLG6mUZ;K`s53~m7@&$n1W$U1(G!g6Y_dXVvknHruB)LG}Z_PVh`H zl7R53ViC7nD4r_SyI8T-p<8V4%FX?&4aye|+@W2b5%CY}g}_?a|05hMU#;@ffKcs#_ZGKh@M zkx(X^D3mmXAh}_2yz>AQssL(c#dvgQhdcSQWdvF%D4>LPq-wMbZ;b+6c-qm!igz*z zKrl+CuTr*Cmyt4#E>!JKrG!69c-Rh*c_H3lxCM3=EVi?Z0DgjcqYk8Z;D=_%=UB`p{W_-8D(gLF0UZm}K0>u;n~ z2RNm!f$AUr@2>)OjC5+sc1fOzquUG-Vu7m(PAP@(g$3S~?L4Q-cKt9VgoNrWXbIIh zZ2X51{vzA;VlizKCmE!(7YL6*b+d+{PHhD{TY!_wcFOzM-fb>=0h_5-dtX z^?JLD!FKCZa03visf3rWH|5|Nm0#=4s+~!x(T`c5#xPKP(3gg_@`1VU?Tf>NGw24rlcSs2!oL%@b7?_+ZmQHPl0>nFG zGP*UtL)|o+jQJfHglAusdSg5q*BedFd8gaKhT|dCAFZ3=V2F{vU^1ba9yi)U_Qi`o zfqg;;@$PV~@Q_qk%U|2WG*GEDij_K50)n54mf4bNL>wL*@-5CAjag2D#uHL{Lt%F? zW*GxN)wamff-@?WrzEia()#A5HHRU*&4qu85u0R2?F<|~%xr)^TOE8BP5 zlIfjNjKr{Lw!B18DBFcdCaEJO(J~kxzG&)ohaO6Go^IIA3FPyXxB@}Crh4NuD&PS- zF9ka#=(hSpmDLudk?Z`G7mx?kKZWh!-TIcYU3EL(x{vJ~C(<2b0Z7U`u!ik4TcElU z9=R^Fo}AspsQX|$V3+d%($7s!nmIF2T}^d6NLT6pj%-J?;}%o4E8byyw>P+`+f}+N z+f}zC*8w{wEd`_70lN_1%*~<6+by=sf|<9P?JL{CJB;9qa7IfU8Vjn^p1|0Yu@?13 zi@`=MZUf3euWLzni|r!dOJpq)uv59HVyEP6aP=+e4%IPwoEe5cI=p&#^Y(6Mk}lLq z5x^M1BHFZ22HH>;Fe=-%tcS74T8yhnbwJ%Dpf_$DgsU3NXHA|odG!`U z0g9Ch@x(lyczR?DZE`BMvEgWpSqq1g*`3qtlo$~&){C?wyW|#N*r_C>siChp254WZ zHyBcy%I^ds$2@#m+{6swrQUfLE9u-sTbP) zcxBgzAS8OVH!gR_rOuF0VU)IgJB;Dg@nv%HdNa{zC7bQ>tw$%1-Y)cqu$^skQnVy} zA_FJY;-xwkBjmV0uMFqa(f;n_pf)`UWJ{PkngH*i9j1e<#_}XiEHP*Zt?mg$gkU5b zTPMifj}qqiv5;hF&!(#-+Ha7ML^X7jZ}|eLe37hcl~x;9IVA?7v1)IEkq9WgQ^Z)v z6l>mS${R@ndFsVwD#v;w-DvV#6zuQ{utQhWJ0%-w&nJs)jpg?2_zHIY(c9PWK7IZ1 zXU6-d*yQv&)*Q|9wMMqutn?&O4Lu5vnWRp*p5`r=ElD5De1_j*|n;RJ!At z5%q2qyW(9=l$oZAQhhQDHEuw+=DH zKMT-SNk}cAV5C&v4pb)_DpB>46SdvJG053q`=jv$ydM*qMqM+W;`r; zonyy)$C9tCkgL}Ld9zfhQL+&rkEex_oq`K|BBb@B{Q%n)?^G(>53v2_l@q*XY?keV zZmAiYZvv?TnYf^(us^_XR+HDAlFj~vG5i$r8!|8Z ze3qd+Eu%I`*P5mFFq|)ivw22_W_Md?c*4%H0R7I%G+W?LTZI2*cNmh1lSvJ*V+;Yt zBcV(=*Dd=r)M`><9VUp#5idjyc)-orAvddTuJ5gwN{g!eMyhDNKhQ3Lzb(S zFOham%2Kt3>2>5=Semppamm9>hEqVZ#{CG1thu}2heJdFt|rK80}F7us})g z1{Y!xeHsq#wp(h`{gdNsR2EW`YVRtule54PvQ5?hBn~GSrd%a8Iv)5Fat30Yf7S4m z>=&N_>Jg1cDg1A=w&`SZZ?Yc0FE*a<4W@_KSOP3(!|}n8RJ7A$vfK#-$MYOTsc7r!!h-2P|jy_ zSW3xCjO=ifz+C+Q(;1_&NIQmugJs<~<>X*qWkglGaqZ@{+gGn$+1r2kh%wf4|>BM zKlbqCaJYX!UhdHW6X_n(*UWJbXA>HZ{Mf5ku2NEWP;Jq#Lfb`bJfQicHoowpMx&8J zf?`UXS9p**y^h@HCZ;!-AZS@K{J&+)t&rH^mZvPtj>Gk?mcB@Kd7Uil#(c5%^fX#* zVdMdhl3={l5GzzuyX_R&hDV2)&Qz>Bs~ldR+`U~pI#kQnDl41YYA$aOx5t);RAT`U zL^u&iw`az)kw|NFH4xT4Qc~YB-Cbo?}#^B!LDr2q{uC>U^`S-Q?SE!98mN5DX!q@c%63Y?t_I!#I|v1C`$tzO0q=A&Iy#*1pB%yV$>GuUhp&^%3qyS3 zcG#QjaptvD_MV-dsac$7J-!Vs_YU?j@J@-VL)7?i#P3q$EjAbsdAV5NTYw$Bv!JFM zpC0b*c3a^6#v?aC`c;rSnSyr})uY)2gX(yb6z`fKLQB(Sj6-EcQhFK!dJoeM5~N!; z-=k`P@Exk2gEC_B5G5t&59^o`HsC z()Ca%QW0R?KE1M1k->JTj=^xj_)oGuR$9!my2)H}^)A-A{us@9z@FXh2;_Y+1v}Fr zF)Nc!y+=v66f^Nb_;jt4?ai_3(G6_+_?>jKt+o{;Ggy?2VHgfrvaJf(aq`>kILzI_ zATjeqxBzzYr4y@zF)k9YOR5oK8YN|!+vy27gVCimJ72Wnnz*1#NzCrXiA1t=GbJ1g zyyZUU4!5K=JEdAt!jlONaje#v97A=qE`D#o4&HIp8@vap0qGqUGZQG2F^m?|jVJC6 z56+a9fSo@r@E-K_=kwldhS3709a`_tiIGz^I6xrH_qxm&czlz*G#JkdW3*A!l(4;A z+a;BDj!d~>dX=+y-SXukU{r#!Pf@&z)NF%bYQCZpRabw}h#4aUNh+!6}* zi);t)N_7rK*=zda4yMyp4n+VSkLGn6@llK8DdgJQp^{X_Oij|@gQo#<}MY^Bk7hSCcW`UK5$A=hrmlC9pM{4@JV7t`I#uW9i zosCnPcgjaj&#oOD0`@!Ct|P6n0rk=8QD-c8=j2dY@dn_1 zFp-ELEot154FIt7!U=Yf?Ok(V;C(cew#MF}EI@T`AtgLpreagP^F^(XSWv1HNkjFA z6QDW5jUWOZ*>16&eq`9LXAH1IbqBf?E=`dMKTS?cr=T zlFPwr;7p=g;s%LkAvBR#7m`43c>P4zUu63N^5?Qs$OiC1Jwe@|!>H>;X-Gn90*pXz zO28s-k!t5Y6DF?4V7n}&Wl}%NLcNV61_SIC+abJB?}qBcpZn-x&8oq61}BaVuPiVt zUGie=Zm_qN|4OVDFJC4bDcvRUVRM-6yox&a!?`%9rrBJ2^pQKm>vYzN)EwO;=f+qvPkerWET9D^0 z8eZ9MYSlJuSKZEoZ?XO8>W$7|!aZk7jd>%>sG$u53pq(7V@SSk`X){qO(4z&p}i>pt*q>GsxuhnLjs zV&6u9d_wJF7Xv;SIu2BgGru&QnOLpUlx~6% z^CNTPNsN$+cG=_J6rYUdx|GblJ|?=219{c$`FbBAnrnBUx)MHA>x6dOfl6cd;3}z! z6NO!GC=KD!?Kke+>&(uKdavV?$+kuqiap<*;H5#p19o2&mv1hTuaP|_w3AQOYq@SG zkVu3eV7;ok-MCpu(B-x{okaUE&{C2{l4ac&M7pbb2l6a{ch!5!G-hkX%-6{jEPi;@ zJBDtD7#7mOJ8Q&GV&Yiv$>7|;6+?xh?S*`;iD)M)8jprjUGa`$$8?@M^~L~pF&Dw= z8Ei7gZ+41q&sSR*id|z2SWvcSs$~|4y8!GsWH4MYax)mhqiGfF%69OMDcce1)nQp7m)+JKspft#M%-0 zKmu$ko?sw`ZYNc@`r9>wJ=cyH227tsFv7FRTRI#u7FctJvK0YIXDc|zJ1sS}UUV(B zmy?pS1P%23Jp0nioFB_{9$QL2hHqSr>C(IHF1x1W*j8*S7*WC^wtUh*ZQ&Ot2rOTDsTmSzV%R z1opBKbyINIoE)}>v2nQy#v#wbf}9BB;mG)bm|e8m?zZ)pvQ4&64=hnLOukddmpQ^7 z*#{n6|FJudk%5Gtz)CtW3Ay2#a?kV#J?)LOR^`#KOxvXT*m4*|@+jLW z3E<%%xpqvW3d||7!;|B|SW0Z~NZjm{7;|h*4i31)GMnCL%=9H_zvf_AZM7PmHjh6t zkB!4^f&u8+-9Or=HYB$J9gOgwQ>XP53u%J=yb-a0c!tk==%kYo=wT#90bUqR7+j*!BgxYse33T z^Zn&3gz@l}uWaJlP35fq%?BiC6X%Sbz!EPbvrMFll3Zs&#n&Crl$Y&ZW1giAvbo1G z_QEn^o&nuV0@kLh=;%he*wiYC%36bnG^UY!?1Ui7R35~o6OP+zcIOjV9l?`Y+iebq z$458%!#R2k*+$1MrhUZC(VSWH;@Ki$7>8GHW6j~5p#j_^Wizd|ED%UGlBj9sz3mNW zJX4HqBeaop#LqtWJpKE4Puks~WI6Eps&p>&#%3yqp-5|{XKJ=m8D@`?I?ET9{!>aS z#4s@`#j?2x>pN8;@J<7lT^Hl)5F2!(97c1TeuqTZV!O?ODZ3hzEIo+^^{}1=dd_g_ zVl3!(*a8bEI*hxTQn9a^pIUe^5wmG1!@AR#VJk zyOIhy3fQ5|o!fV&qyZcZYrX!Jvnz}`lN17Epvvxe{b30k@cL~|GDAngVP=}3Zf`Ka zr%KYIYQ5i^(1Ap@Ad7PR5Qqj~73?(UyWKAFALu|Ph3ocvt3e_gr2b;#u_#^kTW*)sT13KA-P9U2em;pDaSid6+mGJ9diCn@ z@o^g$Xg*IK11cK)8wDmA98Kt4Ls`)W%F~MErc|mgN)uD6aYq*0IV5E}$Ej?W3B1nP zu3)DG?DRei=kt1hzyVd;ZKhsgJ|I%7MiNP=9Aa#2Os0tC29|ni*iSGTHJ2jFh>J$w zE9ZxERVmjBg>slIE>6jj2&r^>Anp_T92xw={3D4%*#kn??HRIQk&SqMklJl*1;W4Z zm9LPNii}}0cXlLE-9N~*yRL9NK$@vSWrKN3iR+G}NgY|hO&!aUJ(6K)lK9<4PI7NF zks`khf{j`unk&1*1Sm>uj4Pd6a=MurT#=IQfHaI-UM9;UR3=DmLKVgwdDPeOY=zdVYdcIv z_e-nxOAMWLiSL(qPX^UQlG)+mDG}_$IT=N+rV0&jB+JaRwQf%yrBXSPNHeoZD!0SX zR3}NBNq><{#Iu=9p^)I=X*PGM>3fsjV1};7t_yRH($0 zS&ooDNf3UnKx{pMn9L#KWio>dJ-H=3SAzFOOW1B^HC3?FDF)t^?L=_Hb{-QofxO8X zODWbfaqswQdi2^0+xHF*mF;|8*t+PG7bem#QUH*O$gI zD#j^Qw_9%kJMoQ_7TW=oQr+UehC4#|x3it+f|r7Qfp-ITdLl3gfGN_ETWY*zrKyEB zS+>|N3#Zo%`3X$2!>nN>@F$_%8Uw&d*}X}|2`8yXf+?o-rLmbMsaL69 z?=XF6HY?LW(|mzfEPy-eL{1T%&J3<3YK~B%L@LSWi1#a38DzsDFe}NS#Kv?6$eS3^ z1xN*E)gglk(@dv`vDh&On`5)gOP5OWFvN*>N~Rd2Le8W`!$F{0E*DA#1{Fak89eIq zF)1E_f{gkkCoPQSTa?mKgv`DqPY$UM8*8GJf9;lF%?S19u&XC>eRm@zBY|)*in3@ZR1Y z`(^##{oUUo;EAw`##0S$eNv5_oXm*BIXQ*xILyh_Ii4I^x?K;+lI|P^rXCo!4BIWy zuDbo&Bewwi{E!)%_K6yzr?p(GFGHl9k6{+H4DNq)@42$Zf_lVYj@fi zbxT8-$X*GyFO^|_G!o+;Ao(Q$1QhQd+i^jTW9$t+0ZdmW4k z4lk6eBy1tmJ3~^Lo`bBuj4fqCCEJ#JnF%kp+$%263Q3X!5yB(U!|M#-jFO7EifCux zKYSy11ZfY+`n3Vwv!z%bpG?Y?%tmTW`cqx8B$KQD;D^qpEM3Z1tCH9!!rVz= za=(zkpTwIaW@OMiUnG&2-MQ&-Z8=DALNcL9h~cH^YC3RH@36hz9WoOl+$PB|M@5cG zzE9SDQUowcl<~Z@n`kt_c1+uMfW64f=8QWl*GrW;nId?Y$n8l=HW_B?WCBYhCb>xlOx8!(x`d;tc2GIGoB4TQ*+KnDj=lnfbO=yvc9+Z(tyW$rc%ysKh| z?Lui{k`3NPx}VSEgL+4?tD!tWI(Cum;+ZkJUGdJnZGl}K)Rt~1^bx`%+F9U6)p4od z{T%J0+bxn?(p?3)uIDMd$aVnEb9$d{=l*|3wu263J3g6I@i|MpM3YbKli!M|KT70A##Yv6 z`cH8%l2VBbd>eKW;{_@Cq?5Dk_K*;rgW*y->~^+H=29*PNsuU=%$(-+qRhD;NO!@D z4{~6jlCRU#?XWwze0+w?ineVrrZsA7p2;X0ra0Ze^I zEkhzENeITo0Z79LzAYM8y&hw*uHR7U4%n6Ll=|RM-Y4BH-7fdft(#Kmj|K98ox26L z6FEcd5GkB#-B2@f8s!Ei0vt&id8cDuUuT{TY~8jF2529_c5ZBbEa&|4<)x#eW9|wr z4hd-;MpfbkA^9S>B6BYZ9%VL-r4_`mE0(Lz_7L8C6<`7gV?)xR;IMu+GY$s@F9`q%DNp&GxuDc;f=d3f4<~RXM?m9 z;wgqt5|dA2u2s7eNkxtV{68>MX8KrOAx9!kn@fCM=F3jwqVdF13}U4sAkKld9^p37Lv!#zW-3VKoUp(yUo0_q*-43F*c z*$v_w(XZ4Ra{QZ{>_y43-u1l36zug??@ zHLeGFuE?uk)-yA}%E~H}fl<+{tgiB0lWK+S^LS8+kqV7@T}d>$V7m;fU$|vdu`Am_ zI(S#zE^^)YWQgYh<3e>~;>j@v;Q>3hCmAw7d9wWN7Vve!((NK=$dSfKHG1LAi#wPXi_n7?&UV_@-1)jA7BVTxXP%5@ z;&eun4lyJe62m!wL|0;{Xs4tvj}oEFdKNzX(#yy&qP3s8dzXPJ3|v7q05>fKMVKo_ch?A}vPKmXkGT2oLe2d*FjaT=T84_ekN+6kZEYe@5o{z3CnqW!f9b`Sps{+V@udvA?RstZ{qKJt3EAIx z;|&BhA0|)WXgGZI(MO3=VWa^o*(obI5=!y`GW`$_2#*P(mprJXf_eGnmzfm>mLi51 zTNsUQ-MWP{gbVu9wlJNMI~Uv$M#b^qD;(-FXZi}Rms0Kk?#D%&}A+=Mu4$el&KMjnIN@$u2=32w}j zD`#iNd)KZUp6t&s)V>_Xo(Ofl+1MJF_1ft%_UeCs6?^iDC-wL#Z$5hK-g{moriBhr zMh$fP!<~Hoi6@@;$zy)(ryTQp-t!)^Q{q*lHsSTdA4qCSF1>!`>1Un+%^r8a@N?}i z|MD-nZGOkRNUj@8B)A9c_-J-pOkhN{!?(ChP>@u{q=o-Kq}^AOT}PJKdpZyvD4@Le z-k=<+Q1IRt3MhCF6ad0|!V#7PnrwDcY<3T$CwkP;t(nnC5t@lngeGF{`@AYb4|>qo z(4$`OFZU{Jo;hH1`s!|EB(nC|Hh1PfSFT*SvaY_KGkIBOzXZ>ap3P^~IPTrM7c)tl zT6_^PoP7MzoVf($q_%)0r6eukQZE7YajuRwU9>ees2Q_v>H(TJz69g(hc` zx8-BUEw4kV#b%N($8Wy*#*y+w=4e^;do6~@>RuZ{H_p7L-jvSa(H;}t)~uyz=TYe9 zty|1kvpO|fBh&>of?T1E(1-oeI>rC<#*G`l`s(La0pJ!)|Jh0$<{8n}(5+Sk+WjOy6W93YJeIw7X8mxT3gbGe~Vh+KAr3{uyDu3#44_&dE#}9ilc(ilN%L(nZWtA2G^MC%&{4peuFrGPf7G{?{7cX4Y?oen`W%KCejvPzc z?=Zf#CCGBRDjnV38`n(Gs1V(;9oXT0`oM0nXD~R6?Y8I&iHq2N=k^_ki3MQ)f$bZ% zvdrQypy-(q>8GDrL+qJ(QR8+vn%8(cU-{g*^9vSObCc%HGCtjkSjw7 z;e=@`pB_1KwD1bvk>mZsJ%wM{+mVfp7B#hXaO_-kcMU`|WclfZ=gN&*^n-KNb3 zWw3qf$kDO&8*7?cDGvVmZF?H$K79C)w#T>^mvrWkCeuwujBnX)>}J)(>finDcZD^= z=+ghEIwj|IT{tT+p_OYdU=Oyd3&6g6+wL?alHOo*3W}T<*oDvzp*jwSE*16<1Xqimm^p2j7uDXNFuPG}G5J*nIWhk_em2qXR!!Uiwoc7zYA1ADMNz@D=m z*o8|-ef4_8CypGBkoH`>gzb+XJq9Ig7qDG$c(5JbgX$N~UyyJZ`w&Xzp6;IN+G;&? z!UI?TckbN58JMlL=6Pcyv7F+XC`DRU&fQ^3RQM&r;Ek* z8`p2B4&*WNj|z@UMl^3NzRRVG2r+J>&4hgr`5NmnaWB*@Y z0l4VmC?Dbj(ZHnsPDXW!V7me=u%9Hi53d}qYpnMHwJBCUCGUAPoK$j*oSNIOb(3AW zi0e6BKXsJYcdT7)jFoG6=N7&QC-d~)t!-_la_!i@b=OXwp=Q}0gwLS972X9BdlX{{ zLi@z%P{{2;^*3LEt`2exnAwr1@H#!Zl`B_$-sGxJ(3>l9krHX|cN&rDF!1{uZh ztt}ezU;lBI#)<)!TI3{2(aA0O5>6$5`!YZVM0y7;+eEy;u`zd|G&=>k;fwA>WxzO3!jPd`Owl|tu>W>2NiP#!vTNZ&R` zG)dT!7QExKb56soH8p?u!yo_3-EZHv77~4(ML^g@sUQaZ^)bKv^2_|zckkV!&F}2% zU$=P++lFBK&V5ruV`ElG3`O7L$B%tD#fGku4NSL@CVpf3`fIJ~mD%L?42^UR3>w2< zzN~`Q!mIsX*9bXZT4^wu2g^=C4v9VDob4&W=xzDxVO1QL6Q?jR5BYJK26sGh)n^?EL}Q_FzaiA}it>iW23N2o87Tz`|I90(E&_Uw|SX$ctPIAqQf$B*mYGAZ=H9tkA%FEnA~cD@|3-Fkn8ZwE?* z2O4R%qO)>)DlNNdW0KHbpp(IN;(D;%lLy-`&CI|%qyu{dY!_%|=wx>7*=MDsRn`SF z6{W4MrnA4NBO4oywAOdcy?3T~$xeh_OATUuLbq>T+FA#dSAN)JL& zR0>o}i-YjApH^n6F@B1WQ~-1!hmRbgd^5}r%jH#;)hKQ6?9d;ns;ah76tx}`0iy|{ zM(X*z*trYac?R1xwV%%=>#P5d|M5TEG%3tWmeEiduQvKlk3lCBY$vqCdtFPr2`Qs| zueEeoLXlF7mM`iQfd2V4LdAC%BdSb;xC|;}dy;c9p&i%-KZQ;vgM1R&fgR*SVi)IZ zr;rJq45|z1#7rj>aad~y+aX;dLI~}^F1Qr76WZaO&aR`KBl*aID zmoAC#-@N|x?)^JguSI-;D*o0Tfe3!KTMc5a}7BfRas3*T7i` z+UOxfcXxIp;mF_!`#B2+k?Z^_e$#eJ zem6~4F5Hzcaj_!6a&EiRc&J9iN*Sk5pC;tMh)QQu1?Vv}p!Pg__Kc{>5}nN7*4i@I z-j$2}3gt9a)lV3Tl?%KP5&z^m|QfGw0r`47%DY|s&6Y{Y8 zDgXgtdVUIa%Ve-)-@ap~hJd(EFxH!(k+vW>eTp&rhMvB(Om<`Qf@RBn4{Gp66I$z= zsyci5WG$<0u{57f2L*dvR!oWEa~M%gw_a?S4>odK$SzyB(3qrA$kP6S6%;}>4GnCB z3&_8&-tj_cNK?B&{P)tc0YZenuQt?FrTi6SN+ zF-KpuW}{KXj%-~9bC6iE13qILuHE$=SSuMdFiPP$OO`F;yUw77xUfzgJ9fOiy1l2VV z5~?bC=WKU70oy}dmv(D^s??Nw9tp?TLI60OuucSvKCp!^S|eI+mq>)kCYsjaO61hRS?bH|>pz8)r%oo2!|Hl&3! z+|;8&koL&83sV-~-9x4eX6>>Yxk9p0Y-7ON=L;H{4Yn(UgKetsOEDtaf8fZP)f<`` zo3-5<_IPFwOlUVZlLZU8eQ`j!#UOW3_%$O1R#Zq;(NP zdf=VppQhgJv%Ezz6f9(Wvj55P{ub=;p4-WwvBHVlYPuMUVvA~080Ty!tiGjt(zgS< zjbKy6c0c882lfcqo;(InI{9#KCH6piNY2s$UU(0-!@EFkzjS`qBt|0G9-@0Lw@U=o zbGD;;grIte?jf;<=pM3qepA(X|I~h>yAP-6cz!S>f#Zx9WVsFalqWO^fnU^`oSd|i z(t~=If0?HGrm@j6G9Kaq_51JBDSjYtsY>9T^q$P^mMqbIMFU@z<@y-=S+0Tr z)6ogV7#=wsA})#4ey%lK#6VsT4l4Q#vaBXY;I$eagZXye5Ls`ux3;!4H8v16DH+mI zh@}an-o@8($HD$Vtrg`7;(JK&jAfPVbbwdTvoKF;)x;{g2;5E>e;bJFf`S@skI$6s zWK8lJ8b)*J=;3p{}-uMx6^}{mU?V*oo^AdW%G`nIwcM1c@txg5Tbj|cA`6RJ%o0N`?v20-oJSI#b=-1 zyLk2tlNtU>4Dgo|!OP1mHbqe1vU%gF6UWb=J->7NcJ^GA6&3m*>~^&8lw%s)ZQFNK zDN1Opsf-i=&9?_P+GtKqT7+m>8LAt3WXeJzLxQD_V613O(x&beD6JJB;`#|Txpqo+ z;fpNQR7<2!7Kx2*W))Sp@WEKk?p?rb%WB|fTETPaa{6-;gOVj^+9|ZHyT^R7l$l>; zt)>AvT{DT$8W%H{jI`F)EzMSi)7(?cl4IlG+SK5Df$hCY&XeK z_sv*=XP$5A>W_)L%Rl~jZYHxNn@y|KS?pUg9*dJwzUij!ot&(%Z`inTlclk(E7Qh3 zLRWV>va0$ct(bh#@u0wGH&#_Uz$LU5JvzG>ky^m&=+UDTQ0Cz!&;M)I?>~49+Yd}1 z*|}%`?mbhcVv~hPE6MPfMrPS^Lpi=Xysz81b^ES;9QFdckO}RpEY;G~*3QEvXnQ+f zMZ#PQeGRLaSDU=UB$!%=iDYL_b+*oo{MJ&UO-1C}axRPG~3j11f$9-U74tcLTOHef{^x%-Y(yDIfvmGe%L?X(Q~%)~{(mk+VRz!)~;R0_LmP}bNN?O@~s&f8G`!y`ntFR#eRMTA6mb|XX@!! zV|q0@gee*)-4K9^pua%1lJ<;qakbU}Xd0%>U@lJr>^bK{XisQezu8&Z9K)}kRz4U$ zHcUpgG(y1yuB)e?{DXe9#75<0sg1PB)Qtki0-a{}TQraCC1;F_u{x7KdJXbK-$gzX z-LXANOI~IqegJzWx7!n~9?$7fbVsUdyA% z%5}XXYcvuYHf*Hrr(>rJFwm@Zroym1t0kE%mb$Q{RI`#sg}B`YP$H;l!4_lc8?cVj zufF>(p4qKE0KJWw6edQo=qqn%qcqoQD6x*ox3DeY2b}1xJvw~&h(ha)XnVY!>+IRH z*8`a0qiLgKp-D3aPw_wlZ_Rz@$!~H4%dye;De#9ZPW4L3mJ#;eIu8QZPJFtgx zp4@)@?)}ioP|F0{XQlU=WWE)6&*gS(NA=i#g6*&nzdAnOAWOSoLnoU*Z3qt<1XS=> z{Fq78`8Q{)bvHMdVxbF_g0WQd(@A|1pjGgCfmsP5cAhpgOBEB#)+`6?n}%3 z+J=T&K}y%cr!pMiU0N)z+0$EAR$llM z$e4D-olIFa-;Khg@K-SG>h1lwq{LFSi%ORN&ENcO;jciakQmmqGWF1g9kqSKOB*_c zI=(Ch$5%{j7+A$=*pOwIOd={W+H@U|EHP=-!f;7e9Z;f_Odmq*%B$C|w*+=oYxlxs zWlx@bR``LO+tW8-w(N@WjrCo9MhdV!$Xxh%PRY=|h}64w-8$`5;jda5y%i>i=5t!p zys%O@k;T^1lG5d66$=(FW>ipgccwMYO5Qx$yI9&3{;HZ7jat2S-PC~tM^BtMu>bg> zqo<~i9v>Z>pt>o10BJ+sP0cMvyG%00c0xPPTDzwYZ{0Ix;SII&-5NoKUcukbiouT2 zmE#+?THh)Ud`UF+bP8kZd9K^RgW1L{I}aQ>o*c!j+eESwZ_4Czu>jfua0zoN1!|fU z-pc1hbT%;IBwWllim-mu4#9~rr&WRc>2YgYq#&4l4*i= zSC553)5;x|Lgd8EP;x_Ca#jhsHU(8b{Vm#)+#W)^INuowhXvcw8{6~PufcY;$xa)v z+gu!}eqeh;YuL${-!23hg6$Cp)q}k`Z$nFi?ZD2)(Vv0$>z`bKbZoza=$8`Jg$K9p z2$9Z_E}<@qu^r6g`j9S2=X+dPum{`iq)tZ(??qf!azI9jHGrjmN`5A$5_D;>XJ&q| zNpOI13tdhHiBz1IJ;hZsAzKV++GLlBPRcD4I0B4cja6Yg%@5FlKa4Af1Xp$@DiP_( zrSxAZDd2s@$cS;J@N>?1K;Vlh0?7BR+Q9phg??wRFgclDVV3PxNrA5siO@-n^ER-{ zkB}*L$osRK1xfQz$klMa>U{Gwl`RT(CB(oVh}n?Y$RHA$g{rhrXBoZ1`H-?Ab5eb5 z|eU3bs$}oos1pK6&Cq;WNK{`J%V0110p}$nDB-;WO(H`H1aS=%#F6yrht01P7gc zBcBgT3)s%IvR?!Ccvc( zcg|b3yrHXKFqhvjsNBfUjf5lZHy%sP&MqL{$S3ytME9YgVe&kEkx^5YJW!vX?nFp0 zS!VR9Qlh)3`0ljpr2QtJwY80YB_ADj1&v)}WAobe8_%4(6l_0nZf5$}agw}>;7EDv zEgVUN(7!V^%y3mjbwjY-+Nnp+oZGs0%34a5RaIGy_^z-{1>0K(hsHK;B^1fzEqe|K z600_D6b>9Yp2DHy=EI&ieL>*oI>4R?&vnd1vWmfWao{~?JG^6Wu9J~qVV|6YXM~6J z9Pgm*^oX}wQ)iOAHM+aeiddeUlRiC!FDGWu^ry|s|>0~oZGbL2?#1u z$mDDfuxAucLVM13a(k|m$=R-IfIM+MiSB~cLo&99+^$^%b^%m#DLuz*Bv3urp78$3 z6+(N&1z^7e-8tBkNS_hj&SXWC#cK5ZyZ1wMhi+F6wnv=b-7{eO;X{X2O!{psQhJp! zW}N!wG}80~`gFz(!QTNDW#vS4QWIl!vnLF}G&D95UAP6Hkx;d9n^sxY$u#1tj*J{* zVaQ%Zr{Mba>#B(^In|aAL0?VgWcuhB%3BI*id=*E3b5hs(liCTv7xyc+s$3e!#MA+ zgK4FL5;>RoJJ+*D0o69)SGS$fMEy>coh zy~v@7@z$O`dRS8tg9+L-cySRXYEG%ENpn}R-DqYmlLx*1Ss0Ybl!4qPWLwDXn*M(! zw?BLF`tfJ49)I@fwHwouQwD*|frOxV=JV&zYqf`04D8=GdGgpXgl}(a(^4}-jb~N> zygO~)?wz|myzfiwXU)Qr1^o=VQQ?xD`;?Oo&1SpVTUI-f|K_MJT3*`HH&l_<2QSar zPMP4XnT7A(vv&y#@YeQno(UVf>bV%r0{OG1Ymf|I+1k_GKj;|EMBb)oyV-;fkBlzm zOr)*bC@lp@{;Q%(g!q?#`4_H6*m*2kUa@)WR(Wf*RO9HeJ!Cacrai;JuFHV!(?u^wRQXC?W5 z0g7stIzz*qW8>Jqb?o+mxhXCm`AxV~I=$J(AT|&TKB zz+Nb~V?M=82<_r9fDC%0I=tsXyF|$C@oPx$PR|3dlh_3b5_`z)*bcegw21A*^)TuP zwg>8^Z8_Vs;lDt8ilg!-jZ6XC4ZgU(8f{B#e+zbOSMA_EXFG)qv_^p3P{I_-?YYn{ zk%Jw;Lt5 zFrQdR;Z3ulv{aOrv*b=z9hnCT(?<*^l~>j?cfP?y7vzP+>8g@q%-R9}wKa_`Eo`LHViTrFWQ4cSOy8OQbr{eWu;y1troxFOsA^8 zVR>m8s)q~)8nRl6N)|v%7HT+vJ?;#xsR(6TkUZWc(vFcp^#Hr^cVJHvduV1TWT<6c ze*Ws|^G|QyJ~X+nyQA~sg$o+ccxDf5c_n(OsmZ;kjvm5xy%t>(UpcD;^L!>vup&gN zr}Q?QSDpN@_9>^Z`!iu#*LfTuis#?zir$0 zrj|C##%n3psCzXAo;0tEmsosffp$=(aB<(-i}RODCj;-s z0(c2?tW`Q)MA4;)v!}kXZE$!^O>LuZ%D~dYJ6FT)+4TAv8e0wU@UY5}m%;aWTYDOrey7ctXqzs7w@2H+U z|7UnNTAH*mndlyJdm-C{@Q_}}_Ly)Q6O?kc=hsh(1oK(7Os$SPOP% z^HO`elfwaW`;Kip448_|KQi-3kO;XNcvYe+O0u!h^JgWlT)1-K^aY5%dF`gDsW&fQ zGZ*Q~%*>r@Hy_--!~cNz&ebclH{u63Z#wdER<9*g^DF1iMbLI6(QDUkgQwyMQwOH} z$yXRV8R}N*bPul>lR!w<#2CEt%Em(}et9VNzUG#z(kiyhVV78I7hAci>IJM6vXy58 z?$VJX`HL}9su@^@wKHE0J1h;TW@7+cU^0DZDaeArA*Xo zjn30{j*qYMT-Zyaoff(49cUdKSzc4evq8zSBwf6h0L=u_VoJ+7<8=_@9rA*`#AbHy z%S+3-v8`$8?ipLx(l<Le2NaO%wZ$w|SRgK3 zQi|;if%F!g;1*ulht|4L#Z}ifw|5R!*EE5>=W(tsLx@bgXqJ}p&ofw+e4$Y5agviZ zxsAhZU7cHZZr{0Ya`Mo@nTs>$X3pty@7%j*cyy&qP&a`+p=M1$N^II(5a4Q9xnh*?Y+9~~mJxhNTwzR z+mSq|j!3oud+cm|%XZ=fu?-N!HdGJ1r`WWDmJT6jd*B^!1MJuyqP197Lprbr+kqX` z5k7^P83Eft9@{g=GB+iFJr6IQJSMP-5gyeo?sNL^VL{!*b|e?V37b9GZYO!{$l)VQ zcRIT}L8(ahXf~zFNT&fcL?gel3Bd#jL;TH6jjIf@4&z>zopk9Mg-8(fWtv=46iqmK z`SK+_0L`ZZNHQRnK{%n<=g^2?0;>`|Vl9gUQvRzs6t$}HB9eAh9?HvW17`+}*E~5An(lpe#jxr(0ru(c;vV#{*TB<%VBL?=nF{=>TWP zUEI+YRFAZ>#FptP$vlbWXNX*nVJglB?vR5nkVghH8la z-r*s`0Y%SD+%n9>HwTb7UPJy-7v~+T_WvtmD(;voHaBCvi+4D1u zFRPk5DjQl2R>zgaQMMf^p$lL_t=4A&Hl+DcWa-sXi ziBar-``f>SdXr+a$y|$?n_Kd`JB%)c$gR~YXCA+_k?rn^nH#yL`PT~;Ets=#&em;PuU@_yY(Fz|;oz}jX5Yzy zQ>RaBiRc5p3u~x5ckfc2?bx~ZC)f@?*d88T!~NLVgdFDBUDH$EX0fF0y#!9HZ> zcERyQZ1+>NAh}Kk-cg+?8n6q=?mff%t|`5S$-uifz@D=m-h=RJM^sgboZ+dN&t$5o zJCG6^;iQo5nS7c=_ae3j2N2$-ko(glN{JBK5xzD9JE6UZ?XnTuQC&cIf0B#DDV$~@ zGwTX0sE+VC+rzy~8cxkbcXB&%ozNa~JE}(rwujJ;@FBE|g<$*M$-NT6cJpG?+;GUC z@Z_akf^_Gt;YFLMkQDx;jvK=m?6-z`w<{F>ByEICqX32meJC)A9EAsHSY6N{9f;BY z6#gVlNb`Xf%vnsJ<-zv&xZ;HLxAA))%@cy~`2q2( z!{W$4#dd{6tE7d3i~QE|iu6t@j?zWlk^dA46-}dn?Iy&~(){XI-xeMq=V{>e5tKa& z8U9;z6Fg6Jvf>Ge>jCy6wkMds#k=&EpMQ?+LKs8(>ACTjJ9iHq*iXiO^zb3h6yDmS zb`!t5lRt#Q{n8qDPGOl*vBWc$RP?JN!ETej&cG9-6RismFv0g@vpW|qAx`J|_BcRB z{ri9a`wxM?s&4M`a?2i(*n{nKxf$F0>)U#2>RQO{hA&Y)PJ}@TI%*Swta-;23QK8w z3hygDI6RW(QY|jg;O0O1Sf(L={`nXDj4iLKx5%nth5XmTgw{4$hA%E5y`MXOzVIjY z+`AChjg`~Y|EK@-p9_C=BK;y&JZYcD%EG(HVJZUU&3o^sC7a`2^3xH!rml8q<;v}Q z_nbI)`tq$CXU?5r>TWH?k(Dc%$mT~%xX!%!^F~HT%u2}Fe)00N$=R6sGg~1k}Ce{l`y9Xg$%rt-sxn7klTam zv(mfS=ZB{W?eI>FH!qdYuI5_X&B%hnUsx*eihe-Nl?lY}!kHpuzUAz%6x23O+cCso`m+0+dWcnlEe<|vv|*hb`1gP-LJuRan5!w(BdoX(8Lm z?LW$P^e$vOyhpGzB>Cr`J-dJF=BeYyeJ}RO9<}h+y*)j~LCpnY>{|59*|%8M+?3Wd zQ7Hht@I=0mo12?WbW(C;g&CcNznZ;n1**9+`MviEsD(d;1U}as$;Bnup3Cj$ zhxP5f^$qQ2mY7AUStRr4S1`=Mkr(&8iK27oQsC!5Nsxj0ft+uR>;;Pp=}IO)d+wYD zw9HJ#rdAVRjTaZ5n5R9S5g(@;E#>Pn-!DPql(C)v`NVea(F%WcqFG8*ARdfjhw7{F zS7|-FU^`VzQD&-NY{R%6IB?|9m77B}t z+TlH~rxL;TP`OCwqI=GEbt-4OIt~bg7F$xvyxq*{h-=1Aj0EzHqn`8tV#=AOW}Vpx z)G|h$1U%2^J#&`yE}S@R=256tk{;&r6<8Kuxpd{`)tdtN`}M)SG=u4mp1iSCwlQH9 zlQI0og9k#eJ;u?VQt(~7E?mz#1^NZ=2HbGp>8a`cd-ty%UrjzQl-vj**se?7-QC65 zhs>$gM6Ry&YinFtuH7}%2!J}lvO!PUo{Y&VzVgA zmJ9Yr|4Zy!Yg2@{m+$_=R#yc=X82XsRyterq|>L0rlZfgOV#x)Jhwc0{J8Mq)Yr+>aCtdrkMF<#A!FTm zB<0iV&~os=SXtL-xuqjVjuxIs%)oZQv9y!5CyH8}{Bsy<_RMS`-Gog}Xk+46SHO1M z=K3<3X3hDyuu^Dr$nD(e(AfBiRwTb>Bor7*d7}>qUs!Gx9%3P{Xe$Osr>3WA+K-(+ zdFk?{BS(*LL4@svZz1Qko1HzqyC$bDUb%ez_N^;7Z(h7{~h zPHQ%qW7BEPZZ<;Q105sd5v*rzutTWt9!kracMWumt`#I23{^L@3YKksPlHun6~UhF z(FwnbhxmTXLf7~PVH{tS!Xbv0BRW(9DR(tOHBazKKR= zZxZ0MB}Zukgz5c9FPy)=iNXBFt(Ily9z1%J!+^gmHHXS>g2h9D&aaTMWa*$(d+*mZ;@#KCqCoRsb7XCh!bz{2|_ z9v#`V)4(L3?TPI{b%e)uNRN=3fK0HD`0?F4iRyRnu#E|YOcL7fnr!|Q-UVzwn;E)` zBXNRP$)m~KeQI(_!1g`6_N-r>=0%dzlp-ZfeE!_|moHw@>}}bw9>V!~QLv-TU^O9= z`SVubgPiKeeFjR-N0 zcz^NqvloxUsF5X;rx^;2 zZ5Aw+WdGy)8q<+=iZ`n37x;bXw(LaRk)efi)sWToGK>8oH`DVEv;=z5;%;v_rZJ4_TDv{?DSLM9kB!8 zL3nJ>@ecLyZogo{h7fqK>KF*TOF(*#cVHKKN7jn%?C2XEU9~~T*)9=a7f(xX-w}9E z@&2O`Fag_9T|oGlyCha6mBYY00_SXhTMHB3?Tq>xHofXsRAIeNwHt86e=gh8SZXG> zw{=50q1}T;2(agJJG_V74(uVl1AEBr@E%mBijg3+W4kzo`ws~1Vgc0y?+6crM0ath zWdiR+_nhi@u4xFci=)3k%l0+v+gjQT4w^1!#tL-H0p3MMhKF{`;;mZ-2L_HDKD=q; zM)~6~95DUZveYX_hAYdH12GMpW|7Gk;gI*+aVw{{x6yl3_!w)8p$%P8(>EAs0ee+N zmHANcsE1+9j(MbRsXi~vGD>H?!(_l%>b*PnWLkh-qPDI9mVsSh#IbbAGDCIbNfWH% z3ZBh1-No`=o{HQq#89mMqf!)KncN;h*+5#G@0)%Ks%M%XI28~+g?aNFDR7tNvPzEP zAx1nuNjROtnS3ivC!;uZbabffEJ^fD>^Hzl>9J<@8Yj}a==bGSI}&7m2WwFP^Xsp^ z=3K~?DS70S_+7S>*h6$Du?OlU$nDuE>iv|+_>b*xUT`P#>CGz_xsT+02c48;kX$f- zz8=}c_}JEs8>aV7Zdhx!`I^Ir4{gT)|+%@xccl8ZKm@V(MmTP5rXUnh)lDYz3mCmt|;3>aJ<*XlU(i z?ieVoZnDy-P}kI6ZAF{z0c@{r?rCi6U0Pa61Jm5nqE8`1G;`XHG}KvMNhL0`QCG>) z!YTlyG>(N!%4;j?JIm|Z=PfR$S|Mg@0(34|v+?#&QClwkIHaJakbxLxHx;L(XsI($Bs-*A0oFOIdSax$>SqqD|z4)AcOlq5tCqY=`pqov!eT= zOxd1kX53UmCMNJF75#^ElgOS%T4w{UQpfU ztCQKbaUE!De7&rWr;dTqe+rpBJGP%WcJ$!+GK{PmC+a#tdKd^$#?(w6*p0TL?oNYJVZy z@gLu^2?&iAMHMo)+;yxL`G6{~X{@$fT(?DqhU;6p5?xc4v$LHe>lQ6ao*R>0pB1#t z8~tdGz6Q&4R=WtV*{W}B{?M37nU-4=qAwWzXfM>ssFi;v+ff~VkWJ+cwi^>9 zkjNh!X~#FRNwD=qbM`FA3s=~i zUcD|BNZmKDUW<^_FIl*M^OpS)o<4k>#Ir1bcI?D+vU<+^WG3;MIV@>?)h}PYCdfU! zmoyuKrsRik_{8x;#}Dh;O-~OE3=yPYElWhdWjL{xpOCu zpE`Qv+{qK4oS!*!{1_(il1AFWC2XgKkQLk%7!X{$YJ!VM-pkFScR`g1{lw}Hf4^nc zk*}#wo?bJJ~Od;f}OyDLx+fMJ_k2OPoKXzbmWBbL~JiNFR8Rr z{U$@}{HijV4_6@f#uaoubQZ{02G!_=3{4ss;|k2khO*&;J{)>4UbNWcDWLN~eeopc zXKYX3m}BAUDq->Rk}OzjUWJ{@NgN}Hk3Rm0wSyW5XrwPpV8rN-GA(Dj0wXsxk={BX zG%cB%d?tHkVgS4=SBM7=N!Red|F<4fh#7_(e)02PFn1&>c+`CB>m8tZi}32%1L4b; zNjUeFUp;vsWSkEz&ExdxXEipDpFbqEU-jWe2Uk#_Sv1p=>+EQYeKl-n-2Tb=v$sDv zckTSCi>HoWICad&y>)fw_O(wQ+`e-5)bZ7;#<;cIvUxN4(WR(ROBY1zLN!4vqNQ^-mADx5i4%FlVO*6g&B}4X^6K)MrbCC1XpF$q zSMcOb)-_wbdcb7mfdTJM6JngmXqZRQta}Sr-m!Bhy-i6nv#jP>02N=pdgUU%ueYNo z8yX&=ieFw(tR>$5Qw|#-$+V42(vGJ?=M8pY(K`=YC4#r z!0hSnJg|Sy%`2BadwlQVZBA@%+`GYI=emXcu3fyOsp4msX>MM*0#=4uIp39uv6=jbzB-5VvjX)(vY`gZZ;h?>&ET z=Zoi0Uz+T6@8*;Hx8J<{^xn-YhYwDz80b?x3SZ~nOkcfv%}kz}hE`t?=kpO6G$UrK zO)!Y?tdc-@iom0o26@z7&L(xr}HpN+ateG>L zY0ZZ9Q-_bvT)A}S(#10~XA;|w9@@Bdqat*kHQm3i5!`9gk~MerH+8KDw!?cvR~iq^ zb?n&Qy=rq~|5!ucXnAwj@~Q@*s;Q@@rLVHJ3){)+;@Y+jR2Qd^VLS+*^#T&u{aM?R zIt4;UKO^|P0rp^f;5}!15FXWYytCgUx?{T-*d-D|M@G9l(g>y?QOI^x1Jz>-Xcxsv zBU-TiDBBD1{w~|${av<0x(6e-TN4cl3)zm4A-$vh52E||8Gi=biRdXSifdH)i=>1FFX<&EQPbB zxoOX?ZFlcnGyCP)gZsjh`***1`sCrAyZ3J1nc6dHdMQK{p6E|RrJt|0s@I~0`tOCm zN+*A|`rN&J*lsJT0uIo7wd$NTyZH1N9$Q6d_xT9zLPcirg6#s=vSvX+#Jg7@1G8f# z5YlWD-LXBF+g-|r>Y;c^f_k>`yg_{wa(l2H*vaj{E|Fbeu{GrlqML9JO9cC(_flaA z=Na0Q%AG7%cz}nba-r|?6Pp>@-NIkhdZZ#nP~5plq1=w`T>}H~PHsOoeJJpb;Sq}1 zPI}M59tmvc;P=Ye6Wcaz(B|fNad%&emEfM;yRCzD`qYcS1+GY&TO2ugu_&nbZ?2 zC$N3ru6=z&!&No4Bp=!*`Brq6j*QvQ)G|j;9Y25hVzB-EC+GL=-#0ooT3z!ajT%Ea zj(s{;jC2oM5i(h`5ZXg}5AAwr+Cy${=p8ZjVE5jAYu0aGUe%~|o?BWOqI)!<7u|3B-xjpbM_5fEdFv~f&Z`V%C z(iO2?cT&}8Zf@MYbL)*O7oU83=hc%(>0XZ>yngoCSD$}%|K{EOd-t_8H5IX)$wXy^ ziPe2|)phT`_ulJwjQtowV|xPo2OlZb?^ZxkcSB<%3p8wJ!ABbd??SMhDyFHnDcG)C z|Ni?was`8T`UKdH)kSRgU3~5k+Qkk~2GCth8boz_#7WU=sDm=hzYCyGmex>};x%Mlm@9+Qq?AtUY#KHELk3W6&=$`o!o7SzVEH5u)k-O87?Ap0=Y-ITSsgutL>Q5hj z{W;IT_g{VX;Abx%J-&D6*44{L4j$;~>f~gs@OA#p^s85&WBcM|6-!F1sMe`asF`uB zP=!)-5hTPzOs0*gYw4+^&sms8QHu`y=|5?H*qCcjjG`6^)$COwx8n*_h*m_Rd$*X# zyKHB{9_sX>+flVzE6}4iy^L9V6d-r|0svBN0 zJhEaWt#?vWs~2h5NSn@mMSh(~C`)_~S;l~Y-KFc7C}b{Py?FWNVhf#BH-_9!8$-J;c1+U7WC6_cfbhUR z`)3ArLOZsT+ez#ZfPG@qbcpV`PKH_r+xd+Q(LIok>JlNh2i~b}a=Zh(1&;#ns4n+% zxm`M_E>_oU*bdh=HA|ecT?bkB*|3q=mg{7QZ6!Pc z8{M#G1AY4pbHsg9;_H{ML}1@2gj+B!AAc}_%&goWe|led@$~60zy4)}*Pp)zZy{-5 zUc55sW~q+YBjL{oApG^4*WWtn&Fk1N7HD!Fe)=$U?s{ch4YM3%tqHSe76YE zAzQff_O08x>7PCREN=Sp`AdQ61>ZRG=db_zum9y={)Mj6aG@cg-~ayiat7OJ!|*C< z4Wtm@W4;D$XXKCK#Ht*FN#nH#D$#eb+md2PY1;YkIG19npEWgY$tX)op!=yDP-swGzyji z@$Q{now9m*dfGC9wC;vJZ60Immd!#m@!0Va}9}Cg=YJWffETvKU_2YXl z?%%r2NM_?Y4up$v=Nb0y*|TPR+`?W@KYjRxjLtlay?R2=^WynKgY`E~9y!X%{hQaX zv6ra;cpBR9z|Jk&d}T7ZTlh829$jM1r8HD(0x9hWf)$a_>4;ajGtCEGYS_BPC@Oz4 zMBt{T=EA!uMY4`&DHn;u!Z41ZZ>OK1w`ke?l2RI>fBeV)>H|4I>@E_8kInr;O?@L5 z@NBeV~Dvw3e4C`J^CU+3163pbTNf zCVN_T4y(sjUcGQ$`}>kpiO=ple0=Nrjf>m1Ze+UjZk=Kz&p%sTYv=H~ zUE^D(xKZs!`0@2zs+RIvmW77F(dNGH%GMU4qNTZ^t-qqaeQ8BQWn-sSpou`v`Jn}= zvk9t^4y%~-tMOBFiu;DTc;X$M=v}j+zJFAhu*}V#X}0wdn)@cYSFRu0uvOeVIw91u zt7)RW=l*MmgfAEr+dE}tkmO8wYlKXY#8c*ApElgig1nhHBPIq6|s%2RnkvD4)VXxlGa43??0_A?No z!DCyhM)MH|-4J1q!j{`G>@~XWtBFCr;&R#+&0kGJjGZxO_ZFWLhtG6#Xxd9dlK&7L*I^LiUG38u2rihczBar z(m4aW*~b!98{6wMUty*Q~wze6!RkRo`I?*b7L2OuFYS4UHIm`Cax+d#o zGgXkKKD9onK^%{YpX`@dEix3RKWS>WX3@%qmiFm`hvW=I)2Q$^X0cT6$Sk_IVZ$av zqVA>K5*S>es;YY7!lh-kO&k}bG1EC8vyU=1`a!aOnUnN?OO`FB#8|l05{{lzNpSbH z9$*?mcF>3Kz5jj+@4d%XRJ))n5$zOVAT1rWaEWU z^mKI`-an<^4G}l4UA+I``t_R^*{4}9j|RrzZ()sKpJuIYleSv=23M@vI=*G+;JPh2 z+q>6phW8{$)4ug}H}!TU!Z&sbbC*^wt+bBS5P*kOOeBKjkPh!*9s}tNV*>AmY@a@T zp?6|aA=?A*!S;s!5n%x8&7WJjKG+_354H!`5gt65BEV^i+q#48Ecf#bSmaM^YFSpT z>Bf?CFqjt$4?Ia{N?9D!h2e{>FR}x7Zi1PVZcnh zj2BlD9DoL{<5va)T1bri@WZ*AHg3^^-23$DedYkCY% zF1Fbj30DZVYkKVTULMs&QqE*H@E$nGFLr&JD=*^ut|==VuTj&f!FH|HpUHLtd??-} zLT*>I$n8mJf0{&hY=8Obtw;Cn?A^J&rLp0=@4l109?vIEkFjV`TTAog&Ycf$-F{)b z{>7`bq6fFYPuSbMdG_GbN4M{sJa}kqWYqHHo-&Wxu5{(UHl8FIS5(-RHCvikPjf!&xR!<&}wfzb^+x`tPppyY#5kjd(-1g1imZy;-J zk!mXhboEx&alN(J5UApdzi@!ACe@adRZzKWec}q~$k!?s$;u=?M6#WESl3s@lwx*;D=x-iVW`&hZvvmp4qg|nm+ao zg-yHt*iK?6w@Z-QLv%-YR1dHd-Gk}~Pi{x`2!(Px(H+uB>=B5O!FG7h*6T0QLjyg=}|<>sDZjj{FGot(8iXpB}Z`{29=*i0? zM^9n94EOnf1r^1MTrv$wfCnA9ZWTqap!7piYf_mxzG2OfJMtJt8 z%j(gv>UX*_MkmAJKcU?wt3x5<8OZHdW-iPQyF7pVee(2}G&7-%L3qlUSyjyQr?ZKt z%&QXH?_K+3?~bh|E*Yl=*!-ETPTSVfGP!fty=&KBK6;{$l-O=e=lP45j~{*Y{N?@Y zH}>t>+u7FsAO6FCFp@&&Mm3>t_2kJD+U7Jrw5(j>i{o%?%a7gEwg-R zrwO-ECRfo031QjtL*}Knb@uWq5W4H-rP+iwK=0}=uWM^)>t$nORXa5)^etknbA48_ zu0W(W(yHwymMaEy9qzcKWO+k-cl*Ft`@j&_?w&_!^s>s8@|l-R2~YToU;ff0riQl8 zvZ@+Qo=@p8FX*SQzWTXKQ4e`de}*z7Dg~=`6PGNvT3Xx0UAwn-B8fUqWTj(S7NWc6 zLFR-S%4L;Llb37jk`|qqf$a)^{$3I~P)vq2bLLq2)|#sL)%&VG{=|Rsj~b*xiD{ok zMtBPwp_~~U=-;(x+o=&l-X#L;2%kbp3dHHErY^W9wC7;Q_Q3mWf%KgD+S5dgAP)&7>Q2#FIO!N9(FHzyuFZ|Vho01@=hjG)z%N8pM z78Cj4{SQcwg?E%j9+&q@KcGrF}c5=B5gnEH*SW4EXK^sfqK~; zi=L|RPhxY4*{!t=%pHpgVY&s4$@~Rgv+xvY8g&|*C6)D6jV-J-i%!%xaUyx%t3z?o zx!~~O9CMo%eDKi+g>69_I5~U5@a4nu!mi!M09Yf=!@%l_Fj>djX zikG3Ws!U2x=zgnO4~8c* z^V+oldro+42X=wD9%>nJ4t5Eo4ag_X7i_`yU;p;Ef@81|o>TbQ*Psz`u$@3|EOlsb z5KoHAgTlF@f5puC8EpT}_rLkgcPTK>GrmbDL#bkR{JRCX@FFUm(q6bn8n;2rf*=MK zf0XS+4qAHJ>@};`@PuH&U-L;RF!}uoB{`8u2)6&JD^Mn1xNy;26(1M7lh!?34a%Q6 z$s>`Mhxju;Kp7yz2iv1Hp^f23(Ods1wu83f;esymF55|Qp4Krob9sug#Zasg<-}k+ zu-o|X%pVWi1MK3j|J^SIco%>Bt6$=I#1cP*jP3vKjj0ZgAKtx96HCS;@)h1UvAv;T z=k{%PZ{2wQ?6a@Gd?S4R>IJat7*hLF+j-^wzBJ9Ma05m?p317m%Ie0CKAMZTYepV!!nwyeQKau3)kI|y&S3L`z8ct9Z?4qB3`cDlIA0WQ( z>0?JWu3M`Vz57(^)b2fduHU#hb@1r=-3PZFyfk(8{>HthHcg&hzwca*cSvvO9>R7p zstdIpePG_&KO!J}f;?5s(3oI<4tDC7B(B#raXUli&%rK{v%RE&O21jac7fGpK4&U= z3J8zwRvQt3T|o5!yO=*oU>8haMArxiuiC!L_Naq?f^@MzRb*QbK1uEGy~idw!2YM$ zo}~7S?Rgw**N>10kCX}QYiGeuXcw?O$9sT1*p9aX_X0%s9PHR`XRtkB{`0D{SXX4CVCx3JV^hs(Mr|Ch6E@DLIX3QFsg$3IlI!r+@xYGJ`*O zTGeQt{`@>%^_Bp8usudU|4p{1DDT>HL`tr!mjdo__So6nSO?HVBfyU zPw(IR{Ka#^`Y(U>`WHWYP3I;&`|O$C+1TiqVZ{6`Bq)9l9z3+na;bHe9%IO{#ERwK zG?$+p<7KfO=nTr!Srwj6#j$#|$w6fe+&&JjZ0Z~oIDr&5cG$57;d@q$E=iV?tZRx} z4X698mUPrOP=FNScW`LfFlcpy!SsK{b}w7_3?8+)*#cNqEG_F>I}RT?TG%{gZ2wrp zRCsYODEBsR*-}zoY1PIh#!{CopP9K}1flTC)IWE)emi$~r!eFao^ceD;c|uphS5ReC$)b0W!v;+(!*KG*q1EGDeHQm7T*SZxHC79G zedEquM`w=RcysRIcQcRw;=+^fPuzSX%;LSQ8Qz2K&@Es)!sl!!x}$p6*xCr8RHuOf z`CM)XYI1vs?qV>9cX1)x$?aiLA9xSBePDcj$nDrpZWqYI5sZLid&uqB4(TNJh}BlV z2Hw?Bn@W_}oz?W8W_!}bWE+J{2<;Lfw`(G`zd6+-9c&M^47Mk2Oaa>o?IE|*kO<^< z;<^yt1JY!rw;p4#-Jie?ssN7dev*Ln2qCct=ixor9xmJZ1>iFGCJc%By*Y>zq$^qp?BHt zI{CKLB57qM6KlpoCljK3&h}hxpH<3z`_1>icq3r@zkBoI@%_68_DxzHm0nku!7F&L z-Me>_T`kys^w`n6cW=LX`sA|*_itRga`%Q|_GB5wVUb>&#kG8B%>hI^-K;Caze^UE zlvfzc>=anTELyZ!Zsd4`HE#{<@TgQ2wPN%_oPBZjR^5>F>X1&++HHyRuA!#R0eHvu z#btHmcG9m*Q*sJ7hO(iPQMaB=3hB$sJgvg%Tm_FQiv&0; zieSsxc4izcWfJ38*LOh*8N=`d9v?35uBdxQ%ko`1?QR6+b1ud?R}E#TV8AN#=P~RR-^r9Gkk&lajHEsr^%TtON4!fg#re2d1}e z+fE?YWn%Y*W-YC0#uGiEDnL?2Hd!QRtgUI4RZs#qJ1JO{Nk&=fl(d}&@$G-_z2r?X zFNZPag#&gv#$yC3vHkrIKN1W=W@%5}o!ly}CblU9 zL2sCq4*5KGx_kU2j!p59a8_V88JT>LjAZ115obcI79Ycns>fme)bA#Pz0c`Pwh`^T zIP}GPIX$i*w#Olk^vrq$eC&KY|6_Zyp8M>h`p+KsRSrEWEEDDhGx+FC^0FcE>+gO^ z{Vo=M`>St+zxev~w{Kq1$?Tup+tJoW_G4@rd24ND+~z{lvbmP;xqRW`{ymnh+`MjL z^@jE9xy+v2yLbDR&3)b7bTWXfJpyXy^5U}4g4D}OO;0OXT(WS!)^k2EdPq$)5Jw!&z$Wv^`sNOP+D(CPLiG&qwJiztHO<{i%InH1sx5U znOIfRVsR~&u0|ncqk(BSwKR7{Wi4YHgR`xzZOj9V(Q7vgl~JR~+2j1m8a@t3yZVMX z{xZ_e-pA*#YyyGJa4nI5@r<3mopS5@`bx)-pWt@BuC2Shf2_4Klo=h#6GlvO*gL%L)ZB}2BF(+-393!afI@$CKQ6zvtT=SM)Ta)@4S}VJ!j6GIdeGYy+3E|wb$lP&!xz{ zY5gvZ7r|TjWb&tH&CQ<~8x=8e{HqlG`kvx8As*Ng8k<{GGpC}dYWen>l^=j#;mWnCQ$IGK&Xap}xgrRv#SU=SONO3PAYqL@20wC(e5EBzikO1KvoDGyYKb-SfQ&Yp$#e!5rw7`7M zm|&2z$5ls8%z%gj#$y^Q(XL9j^DZ~9C@z>lyTBuZd{FoUPOXuy*$(i9?fe~I zy9X6Y{5JV!3F3HPwIM@Pbd5lgQr&N=iBVwJPIc<6;gVp{6%K}%yu~7Hr^35@oCgq5 zjPhW@*}yOZYV7XuJp{uvpyP+$?4@4;Ne>Xj(jMb#--qerA%(5w0-V zQOy8|SOtJ|7Sq^qPH?cpf5mo{_4jRS7Ey=)P;T@D0%6SL@*V9!0C1rW-}O?L20j16h7t-P9ys#vfEQD3crr@%EnR;KV_4{*m+?x%Eyw zJ-t*!ji(u(&}27HA}51`LpXT;OdLFMDSQRGo$;!Oc|OZdSjh(bMz}o@e3?T@XhxR- z8Q^H#`5-M0za0@ydqf!H2g64A`ug!f&KM7LWMCkah*p3`jUPn>7k^gTN@87LyIcb* z23}nUL&!O4eYDhJJMe)m+#Os4*6;GS;KFowac0Kbw4^BkX5TTRMy_0Gdrv90zy0o8 z?+$zGy^%2~({n49%&2UsT>4>oTSsBjy1C68ikEDH@UUG>5k5T+unXJ4GJm76So&U5 zt=SIPF=w+`;oZdpN*jHtX26cYe_=a#7X$3zT}-om%w#5M8eltk7q(}R^mUN!VNuZ- zU>CN7cMW#f&i$zI&c!B+oKi||UVW#)d8y00Z(=()vasEd?TYOv_JNXVO)S9>UbCI3 z9(22ic40db9fu5x-CDp?N3H{Qa7`&-KihK_J9gw4CKXD+e(Lxs?8M0v7~4}GIerwX zQ;KdEwkyaRRHwvUBW$M>wtu{H=e7@b)Yi>MX>*CnH3Mn6M0t$mr;(3wPSKpiq(r7b z)mId^Ir;?0K4%p_o?fp%&Y9uT6q0(498RWRyzYvN92K9X!h!KE93eje2vh2X4dn9Rs-P|< z?^5AYd{#FQoCoWlhQQ;4e6!mB+kdigM6e}nXNT;B`xF{*UlSq2#U?9}?gPdaoFGHO z$vKqWa%Hk-7-ia~MCtg@_cQ;_+zl z?O>VKilG4`Mvg}F$_>H~9oOIGZ?<>Y5sx&G-s50eG*gueW}SZ<*-e zNWL3)p8$FrN=wVE-<3K5hwfw^IA+XUD7uAH{qW&Kt_tOKd6&y$2pwYjvwR);hcR4+ z9vQ+To_tQAAI^EVQ_^Jfyan`4tex9E0Z zyQ8-m6T*vU2C%DbQgaaPu$@XyNiBF66U9Ct-3Qq&x*f2KbO-5(c04n1Ucf#e-HDJH z)a{_yhV9%b+%nu&EZnxdYfE}SOx?L3eKzZzhfE~7w(_4q5e&4~tq^D^!deaK1Usleq0uMq7VAvZYf0?R9~Q!_?mNr^+| z?6+rOJEdkj(M_vYtpvr44z@Wej+wa>iATaS!$@J9cX>(l4s8kUCi}OLvJ9|wnCO7_ zK|12Cx1k}UV;ScIU3>6{1jCys8Xqa&$4_X}A9%+rV~IIcERuj!sU-6WO~wF>>Z@z7)O0^}`j*iM4qP zC4l3_oT*sIIQ2_~UPJ6)Xe2ZHcIb!)bZPe!~kgVKG#Cu75Qp*p%9w+!FH#_W%Z zcF3eL%ctR!0q>ZA9m2zQ83DWaWMDhD1|ijY!(1>X zPp>0ierfYAcPp5(*BETZ{fK6!!x8bUo#Fc9Jd*P+{%}g#6un+o@YW(!SeQ(KeE@Sr zI}(my45Dl3&E&b8PJf;;(LaB@hb1jbh$vRRYvlF^Y7h810krguO3y6tA2yT$HFVJ7 zRezW9s{Af0lmJuevZZ7a6DJ9czCK{7a4&24^BZm6+7w&tcok);-zb1C%!$4eRbyav2V_7+WO)2nX>}zLK!(`fD;uP8yX&tFWvro znZXAEgBQ*o7l;9@@0hcScasPQOdn?M>~;!PPh!2!1860!L#FZnov zeEdWwlUE?$f=kE#66LgTHE^A6*bvR#IM7R95a`X4*S7Q>_=nE$J)t3E;0FgpW+j%9>qXyR4(2zCCPefsJL%t@4dZ zP!4nDjTs1u4@k&zwuE86F{zl0Z*nsSNNhZvuw)e@qTbm%a3F*}Fos9A=#=b&>Lz6d z+jH{^kn2n@6&4XGrsn4G^#bgeGdYe8<2KY_m(fY^93donjFN?yoIP3i6R>bov%vPj z)haf|Xat7Ab^$vjE@J6N1Ml2-uw6z@NeSCAz~0o_)V#O_6Sf~da9G$*Mc5AByN{g^ zste)aFL=jL+8|xWiuYldC0CWX*O3ijEu>JVy9?f>B4&fEv4XRV}61E@t>cqj% zkJK-0Ae9i(i~AR!A7#`0P@Q9@B;o}F>0%7bMQ-Zs4~J)A2V!^iJS5!w)2R=)eheAc*sX|sn|YdjGwO`{&st|Ll{mlV>9j5 zFa4V&U?jh~!FKn_u0F2b{umVp2M^MBVG}31I=Fbg|G{wjJ@q$Ah2!UmU^u}!BsBP7 zxb;_qR$kI@uzMaE=n}R0EHC*Xz<-jXi>teNvWq7nKlYa>&rQg0_OPhA*=7&0od_J* zjyvA|gYX%uvww6u-_Bo<+e%AxI_9C7v!3%m~TIW|Z=-upN2})#=L|&s3*Dk$_#;uG<1%gYDow zV^*mm{2<%2vUAcH+-l&RiyW{sa6w8QHccKTO4tt44b83!h3vQ9;)*q(J^*%J3d6Z~ z0K0^!u^F8g{|VbcI>=%XwgYyuA7EOy!*-}Hc<(ygjbg_`0@yLAE@sbms1A-PMYL01 zymA%MuJI1lFJ8Xbd!v`~9LzTiwgYx8-3O?SXg@z7+F65u7q)-WwZFNg4S?6z*Aslf zPv+WyFkF`C2VXxkk430==3uh9qQra5_BMAtm_kb}ripx!& z-lTTnFxVSCj2r{UjQqi6%?04$VX{AFrXWGyplT#1jP+qNeKY;r;6vjFa@o-H zNGJ|JBrPqCjz}0jY}g2K_i>iwL_to#NaA1eJvzJl(pXJ)^~O}I1!^XnT->~2`veD9 zC_UNP#U{)K2L=38x_#tWt|M@&kBT$NmjZU)LOgTH(e%^GNE{=rC;UXEkjiGfgNwIc zsEZp@6pd+bU#j;Y6@W~f3~=YOwY7CL%KQX=AU6da5X7#JcW`EalD#Kt#fp`5F~Cn` z2q%HIk4u-sV7Cw+u<+L>K_yp-y|0oMpX-P1?b*&}c?*Y(lau3X+0GTsz%);j$HWN} za&mHr7qY*nIB5(SL9{!Q=V7v&k)qRWqLZtOcVJL#V#t&fYu%1|7q%nXOBb?uv@boup`}J zJFT9^I})7}C?ypxb?U-)0lPKZ<-!)cTkCf2GWIFD9iNP_osvcFI0beB@2zyZD0WKN zj%bJK5{nMf#qi1WJ$iWN;zco#{>pCj^%@4-5$V*yyRn9Hz(Bfe1L1qG^ul&Ah4d@E z1Le2p5bc0n*#7m|^RRuA+{MM!Jic`8Osmj;SwweQnhOLzB2r zfi9zytZxnUJlCPRh7FX7(}uf%+luRrE#Vd7mWzy%KMj8Z9u{D}z6W7DaO2}6hmHio zP+djEfOIv2Nhx;0yXyDS5Lc!YyJ13gz>d*0D5_6TR0rKqT?kJp zCh8rw3*JSya~W_I(YMHv^BXx!-0U1YN6zoU<-$t9&cSn!3efbK0YN~Y5AwU%0E*J# zCFhw=RepkemUr2LoHg`_8Kp{6N@pcs&85hx1MFPtTx06$N=<|Ca^=JJhxcE=_E*Ns z`!5vRuiX3e@K>{oNI$A&YXbc4~caZDb^Kx><028pahvA}S9=NlJ4 zv5~1MsT>l=#@_fiJ@V4lliQOh6T%T;osuM1uF#qjYXx9wP*BUv!7=axPspibf+2uK%Yh`WNS1uwaO>MyFx-y>_8aRj5~aS!(_xWjW1`I z;~|)Y7J;vZfq{WRcx)y)n}WipI5~TbXGXt&Pwm22kf~+TBu8Q(0Xr`_SL{I=2x9xu z-Xu0B5(XV^ePGlPbo^eTfK*@Vv17C>9Fn-@ISl^p+!wqB+quZCKg)4)epGk*>)1|@ z43`J0p5V&YvYmU$(P0wv9>R9KWNiGpdy2K&vb-O=rsh;}J8*ux^}Dvc8p-7XFp zE^kCTco&}xiXFEM2H{_U9cf}L$Q2fD78YR6X_Q4?0(M#GCeyl|dx{5AS!jhh|CA^w zN>I;B9+b$AqI~Wa3x7uz?zMnm@>RxR93C0wYpQDqTqpAI*vVtqfx`#H$I^HI;niDx z=X-mxn|J%@`UK7oA3eNr`|jQT`@Pq%X}fy!#*KS-F)CMY3>cgB-R{%Yd-F!$y}Ohc zZwcpBX{_Nb2!HnCS+R@PdoTB1zI@~QmtP%Q(%#MlyPFMxZGFAb_2xL)$=lDz!O77^ zYO>jg5k#Pj(0cW9CNSxy-}UlcTaZW}dm6oF<2chI=uy zxScD2QyLK!osynzA#yS;&HBeu$5B6i9GoHlvl^iZ8)=vbg5{|&Ha3nc2Z8Ns@|x`I z$^;Y>COD0s;52H~_@P6IJDfDh$$jiNCkMrL&WRe@Y`t^Nq;i-H9nP>c4o{95ZO?^= ze&C()6DHyDLDJKRSbvZ@jT#Pi_U~>AbT*lp;Aza*iTpa7%|7@*9R~xf*rCl^r0q4j zh?Pg3hSla>R>FK9DmVRME-8_r(kBZG*1NnJYRrWfza|UP*B!0`j6Q5(?`k}KG zF1`Q0n(yhg_Y{v3j0YhCVZ>Mmhw&a5kAT=@Z+{sUNfc*liBrOIPMTtW_VJu6qm z$x!Cx7i2JXYzlF?aRGs5%-7okb7p1`7gvni7~#Q!;$q6zb_}Y+_J>bZ1+YVP z$V^4RPAfn~vt1D$q#GX;$fM*1@4|M$yX;5sE^DN`dbba%i^28_y_b)DeTuQB;Su3q z+Vz$q;2EQWa{FNDP#M-|eI>iNxWY{&4BF3nJyMplCubG?zqb7QiI=%w^9 zy{gMfVY`%GXgg0YVLO))@{iWv=6h*hl(;gw>5&k)p{zIHm-3U{J$+m~yyA^G8S8f$ zZ_ahb6mN8GxVgHxxi}Ng#z1n0fHCxd;Pb|Xjim7*;e*7n3)>|{BtHkX1NPUl{rc^j z*Y4fjz5ml0`LmM#Jx>A$z%kPp$-{_)ql3*c^Bm{w>=F?fg=>zS?bZiOecbr*2&%M< zOdmh9y~~cy8fRzP#L0x$a%b@v$L+?+;S3o*IhuERFVsLwQtC3=XDFCqwiv_@?1N6WWB_ z^AM+S^ai$b80x|@#&O$s*3fF8aL5M6!x0MKX3uhj+!3&y^d00Uo{S%Cyt?+oV&lkP z57-gXz+CxB45K4e^=rHN0(L3G;-+A$ zn6Mp>4bB#j4%?M7H|oT_z;;T}=Tg!@NE;!|1Yl>Ml z@=~)sE+G!tz&KD(lP7YWONfido^>2QzZU@pi+KFkKSwIi8xb286&n%}J$Br98y_;; zM90LiTbwWB#*J-kY@l^u+CFC4n_V!wt)*@IhucXCBw(k6?IPOwM%XT*9k!ppa#5RH zSFruur3)W+?#Rs}P5WyiVYu?&e9SlLevOQZ#wEAx-)B7MfKjmifkE+!NrX{Ba+}}F z8bmb#dpx16Tel9MbNkYzJj8Kf5X6Xpr;7n(G58MNLM=96OH$F|X9e;TCOTQnfulxo zd%kDGcCILN7eAc6@yKKSy@Zkm1O}@N>Th5>AHj#ufL2eRP)ksZyUF6{=*l>2>zz>N zvPbqK!fhU8cne<#o)&Hjo1>CF%qc8XQ>>2~$H(nk7Cy+&MEvk^n{VWTp>2H=+i_}v zc40fC&ul)+4*B8scY*b0+*3v$hoi6^xvq2#*#nFuje>V;-A?3^D0acSOn54Ihw5UH ziP>3m>a~e(r&N${?i9R3c%iyxJ9yV@*U}xN!*;=YLQ0axyR~jtsUW>QV7rMp87tim zgt^QF@4|MG?mS!z+o_0d|6{fTc5B^k!*;+fY)7$cwp;sT@W$A%9ZHL07wHa)l{e-_ zpAzTa-Ph08LUmv+2HvFt(lOP+O65wgW;imk7DW#zver==R#0T9W6Z+pXCyq8-E`+OEsJ&3AFbY`Ne&F{95;@r4>d6p?6UcY&Db1ym&=Aeqwy0R8PG}y&1-dg z6{weJ!|e&AdoP9`oc&gQ0|W#NErjz_=b0f(dnBgRa?Wn}X_ z%QiG>^mpiutt+$?JoJgL!2V%@D_lJi8oC_?Zv8>(IH~v`&l=1m#l?fuMn~r8Ejc-e zDIR!z(+Xe3;+R^RSY)7|4b=HVkvt67gQjT%4Xu}nQ;gi8o>`+|@pHtF~MQ65gs}w&Rl#s>?oMxW+r)7%}n5h(m^wVWEh2A-qtX63>jVoqL=LNN0gClsH%f z@9>!$N6s^Who=$5_0nju*#Ym5->6_sq3>t z$G<)Wmc@&5xBu?_hspzkfosaU-#xg|*N0K*yWjWV`^PVT`JIv`KzL3mJRhL?wX5eY zT@(}V4b6d)`nUV;-e>Rq>Wc<>PUSwkGTx%nd%N%cv!@qsT;KnBcV%7eYwuruZP--M zT@3E?_VqJ)dAZpo_qN&C`X%AzJmBz`nlfby=b4|;TqbMTpzTwsdS4o0ZeLgS~4sB1N{kFU?h~i0JHwF*7fA%l;F_N>3OrV zb7uww1!rbuS-(qNN138y^;cEck>mkq`M6;cdIpf6=pU3pG+8s*u; zT_?Wi7CXFW*Rg|L*wF*~4tzvP$M(vy!jK?;KVRSf{Fs@Cjwq>&%uIAUvsdV&k_z)y zfU?lYC^rw&YuQe#>SZ#K$=Sx$BOkXXs@^~RKQ-)x2vlsG6UC>&7R4u_yHkQ!^tP}0g~9}-8a4DrWiqQ zfwSw-(c_4}r*&Y>n>Mytk4HrT=WR8b&;ELb?Qa>rdc-^3G}fO*u0tNx&pLz@Mus#0 ztv}goD()$sm5CN~a`AR?_w(=!Hd{#g9_Q#{arF%LvP4i)N3IVzWDKg){Q3HaVJ7b| z3pd7$g0SQ);k=Yy=18Ww!l*EwDmIWrX4#f0qwcGwQmVJwOr zylZHS6c?~lf^_Wpk3UnY=D_f=Q?X{d4cNtjgEI%h3)>amA3c2h?CFaiUSJ?yuYd63 zIUQ}cA3Z#K`SPX@KTJ$XAtjFWW%H&wN`||hezfQ*@e$E6_*CgQd(+0&>k%iMWP~Vb z$w^MdC|w#;Ym~{xJifQr^&lDYh3>XV0D&8k0zzgZ&=3 zH^}*fb)&W;`#QUKbzp}(H*epvx~;iBH)oowi_3p_%yg6> z%ZtnA(ZE{#{q0?LG)7L&E`gz;9&hl;;N%Jk4n|E$yTC8fidXr}?FIv6t?z{W$l< zm@#9OLq^%Fx%TwNTnVfP;1o9gc2f7Sl7>u;0pV$3)EJ@^>@O|u2s#=JZ?vnYUnm#{ z?@|g;!8g=hwT`!1?+-%VS8|F1_s`tI-iP5&7lI=ld=k|*$&~^ZR*TY zF$fRU#gwPr06QfnY$sU_2gBDv^@74u2>)8P19|N}<@s7d8Ns-)9jePBU>9dQNQXS) ziTz`?TkCdfw(}`#wkM}&0rt3rG)ma6MZ2&aybIw4>6A*k_W}GDl$!0L-gyfXykER} zLmOZ>Sa@McS;LanRubJCR39Mxx;04F)oWL;Shb?AzG-S^HtNoP4=N64=+LCpG-l8) zuc)o8s&8MmhExyQq%TrRW-ietGuBB-GGuK6cFLVQwrtq+VO4cqVNq#ta43%<)(8LE zI_MxM9k2D=lG25XTNW-}GBbZpP-qyBe)iPD9}CY}khO>h{6b8PL0{_fWy^8OsGiha zookjY*KAigLN~0`#^l$qT}sjIl*d2+>`>Pp=3<;*TOA)4&-s7taayk=-Y+mHD6e4l ziZ$yNG&V)W#2i0<+g@=hiKU>ux0h=;Ln#pun%W8>oCXYvj4G+8`JOZ&R%nP4M1h?zT@Y?JJV1GD}* z`#Oyg-X3P(_B02CPf3bS$rwJ~;RA9aOq}#ux4iWpxCZFCAUKj3T@2}NKdFaeJJdJW z&hP>2j}x?vm?z%e5)vDinrjY@V!{!!Sz2$y38e3U9%?r)H9$<+q&s*Q(GKC2bT@Q6CC}gz{2=Nb8pCa2J7O>DQ(?XP9KNOu7{q8;fjR2Ot>u;Y^v(GJ@&?Y9xUU+o(Rl>zA@-Epvh zbiq679ja@*3)=xZ0v^#WZ_xw*_P&P?M7m$Qdxx~Jv*ye(`}>nw8WF<6&CBCzef@lT zOSwdG%o60x_@=nT#Jc$lcklaj*S@ae^2*R~@_UDJe|h`(6c^9sM&Oy6yMv4YjK>jt z;Q-|629hTxB$k(zlOCL0I=C7b)oAnl$YqSvCLtv?H@~o%iLh6$wr4v)Te*7W{DsZg z)AO9&z3lfeZu|toR_S3cEvu}kWD58-|3BESMLUGoY^Snm%Z~XA8ylKhh)E`BGG-jJGXaipI_G) zAD@5%k!Wp>8411ISmc-qP$!Is4hmYLja#?v`t;MbWh)p?!U)Z;zyA96ojV*Ge^Z_> z5X|$+%co7xO-xB;02ddG<_XZwQTfNFF_AitX^f`fEnLBbK}zILWJFA8XoSTa5a1t( z>&Ati8y8oCOqfxWZVmL()Xb>`vkNjZGkD(NlF)m$uW*eqLW;TZ0K1dB-*{(lLOaGg zx{n?+v7zDLWCJJJ)60jjc^40hPe5c)a1c3B(y|H*^?7sTur)g5r+D*F;YQPalfy zc;i*9%-iS$_QuB%@C0uRA2rs+(?32VFD?<@?mkhfqv z5eve0Z~@p^*cEGNEO6ADOeQW`z=gmd%9jekbYZc{aZ__J8M{|&NbIQB@{j8_sReDZkOG-ZV z_}TOR2M?rt`2FLD&z`DMDtrrje)jb4qsJI^yzaN|efRa5b89zkDk(3IjgQCW;_K(f zL$L~Lw)lJd`30cPBO{YC(r1^HE?&Nhn7WhSp55B{G1KJW0gH{El8}&0LT}C?=Y&&) zmzCy{lvxwTPhcPPU%UnIEERyGv=07mCUPYS<;S) zXlI}FOYYdbMU44IcYe4H-M(exMk;JWMYfb&`qcT-<*Qa|ysuloaZyWKeM4hYLsQQ5 zoB+}qhJ;{vfd~sEaEPoRJPEqHx)XRA6&^*hxU!hPV zc=%h$A3#fleyFLbp^;+Qv112dC$P4?t(~|L=0jPva#d4P^Xj#mH+L{qYG-avp2>*h zTsXg$qdK&6i&z(#+qZAj*1f;;;^|X;c=N9G-nxD7>h)U}uiV;y=*Y6Q>t@WJot&P| z-^|O`*N<-s3c|G#7!n#19ub$2m|rxvefi2=d%I4bzu0r(;(;T_m#x`QSX_$lotE8f z@dv(^fPlF8`0}c%mSsy9E?Sh4nZ<-hSy|JPl9K&!!iR>>%AeELzH-y%&XSU<>C=-@wRo*xuxNOU5}fl2@F<`cx!tH^WSA|M9$ zS6W(ncz6V(nZ}NHa(43z2#WLZkM<9Y_4E!#;nNCmPvgS@tEhB7xd zH&4q%M;F9!WMnj>vGCO}2`onJJuB&oWp=;u4wL-?h~|oN^$kdxQRwa;Lbev4z;G8& zU;2c31i)KNPblJ9ImX3?5aq5|&6o&onE|c&9+{6+q-fKkMZ_K(JZI?MyVIxVGE7fJ zr@#Hyn6YDsw;})V@X=DgtmpHy#yP zM61hNw33?bY{o}k%XYfeU^^uXY_|kP3f^HmU|-nS2-`cDI>EsEk>jU&PM;Tp@H%!8 zZbS7O5WBzMfcyhMEgl=_E%7syP+h>TM844vJ6OINx&qjR?ciNC3L5V~US87WN{Eip zeB62X=*Hc9H}CYHy>NM3XJ>P3TUljgQCV3@Ma8`8+A3Tyi<(>8mo+b4v3m2?&QA{> z{PN@(Mn2uSU0ypsG(2X(g68V#1tldFaWV0D^f*NNz-G8jKssO-whP!PnbePrn#2Jz zdkEbGUS3{&oVJ_47s`-_TpD70KDBiX_4AuF*ah0ccBsB<`%VZC%*9~42D?;bt}7r9 z+nZY3H*H#vt!J{T_GPQra1iSoni`5ridB?RY6@TskBVl&5sX!$ z1zgm$sI6`3x(!=l`@)6IVZ^O@m@?ASq`3j<+EDDm_9F*&o%-^SW_#bA{`-$!JbL!a zjXU2T`{wk{uCBIKs}{Dj)HXFOXj!sk<;vF8tCy}>w{qiVW=}kL?D(atHy%8B-v9Wi zy2kE3`1;!myFWd+b^G?!Yu7h2rOc9+hQ-YrJGSoKf8fg#CqMi0=%%gPn%mln%gV5- znz|J$*Y52)c>eO$o^zMBeE3mSZT;t;e^FgOf78~Fdd~IU?0<0k;e&54UOIj5{GOeA zHf`Lr`;)z#YW~)Hckh)@&rf!J^6|$X^H9T_k7#BeUyHYoFO&x64o>urG4tMvkI5~SdIuQYjhu_Q9!_Uh%*wZ(}#}eTm66+Tj<>?zV!O?93vlf_q zm;l-2VC7Lx?Y&7sl$QSkvWiI{(Mf`3HZBxmpO4sN5zJK?v- z7d~d}1kxfAB+1CDx8HpqR%@z@u%ra?tR!jaTfiSvUK+7?8Fn<5=(6!-3-I*|ii7I$ znX@zUtNbETM?3qCb~cZm>^s>zWZ3A5?+qKp3?Kxw(-L9KPQ@VL$xf!&n!oHL5>a4a;=%U@N5?Op+q7*vPYY5Ap;iuN(7xM+m!;2qO!7s5+2 zNy!5b+vAvh+b4`laBwuHz#f&L!4Bj>x)^W4b{GQKsc5!Sv1U7+%K~;v$RljG20N~p zLA3jz;b{WoUAEM0{{!6)(yiI9@ovv{zz*TNzc?WV;R#&S;fu<(BBEV!8@b*mYzN2! za6_dVYXjw9$eERfOIhkufPt&MXpQ5knylxq&t;c_rJUU_-SANgD*~< zJpAR+U3)*>_t|HA4jkO~`H`;AzdZW&=>uPW)qVW*$qT(#A3p4R{_I-+y_*ld`}ouS z*rG*kjg3nnd~Iz5oz$Ez7XBhQUKl}%YrSD%0~}txYBf`EqQe=00~M*aE@|amCjG(f zfMYf#IVERW4&n{4)6?3rxP`cG?ssIfmhRSUuc@plFD(a;ObLg_gNFjXl);;H)UsRp zQ>fI{H)_!i(lK;9ga_=R+wr%6bZfn&5}Vg9TZ>j-v~Y21Mz*Mq&1*Na2AZ|B zE~~6rSX@?JGPk4{(ONWjUfDc;QN_FpkiMXP0ivB=)b{q}oUV=Zh;H49XcxANXxF-3 z@UFqG*$&<@t_{Ka^vVbM?w;9C~-}pTBjxxBt5v zkG{YE{j=|X`04r2FR@2I{Cw~G=fD2**FXQ|&o}PeyKv>|)myi(-@g0!=?@Q|K7aD# zPxl@@zVqnO#p~Cj6G-yJ`33OjM~YwY;Z<0RrZ`PE4hS)cyq^og%dFs%$? zfJ_~&OP4h^FD@)D%bhj5aq*Ip@~VvNnK`qH(XK`F>Qkr9g6hx)qvGxx;^rNMGDpC> zdk3KEDP2tdgmMIjCHV!$xch{f17gD>Qh6B|5^o8J4hc*2^bR35(%T&F<{cOuo){95 z92lMu7#1&tH<1-LV_L%0?8MBR$b>XyiRn>E8Ga#A=CBxd|6mXQ5U3uLkqh@yXO*N( zpXKCkc66on@g^`5pAGV!TrNCkV1Sxb8XD==74SaR#ciy!8>LrxjCV+^PiWkf>2u>} zl%(ZWC1;l%Al|-e^ik&*g9F^|i6{5iIYquZgn zsCRqaK71rk?_R21FsAuXdr(MM(%ry&G*lNO#Q|OpQSTz!(e0QhcENk{lw@r-Y!~TH z39ivdEI?ko>-4j;AlFfV5FWM@BWlfdV1;P^W442Ld@_`P{Y`8K>|&bjRG_Y~of4UZ z4Y*|tN&{-8-i>53iqD2mMx;BXu$`4gWuPs9@B;Q1KfhGbIIx`$!gDR!2c^4e2n^3m z-**ps`}!{3yxDW<;;A#|dM;e}_R5uS&R_Wan=@aWK70Dg^&_XhJ$LO+@4bf?Z{EN5 z-S@X1KG30+OvDP_v8JY0C@py#kl*N1g!k4hTQP`A9hx!MD!}9=cxM9EML3{a+UjcR zKp9RLngf8geCcw4#(JPCY{w^qdZ&c#FdrlDeaW1XxwGe1&Z}I~N-EzLc_?7~=HlkX ze2^yynh9&g4%opprLbM_4%?CFz+5YKVLK%oV;nOk3VE>XY+1S-yrbT$n_3%Nmo~Jt zS1f2w$wZZBdRzRk4>x_dv~?-A94xQhyk+f{#f>e+bIY?*8DVXyudHXy+I5>2wXCS9 zTinpxPQxb?(Q;boiQot+<*{Y?iq%W#QC__cu#0H7Vf%?My0lvcwnO!^C%ds%qJ3~! z1bD|eLnD6o!Q=Z+pWl1(^wzVd_x}7NjrHvp&u>3{ar@a1S06mS@#x9j$KPM>yVd{X zDR%4O^MCyJfB*XX?+;)6^z7%qJpJkCpa1rc-~Q|Weff{ye);WRzyAJTlz;v0w?F^= z??3+ftFpiT?Js}(?U#T4*RQ|*_b>nY*R#L;rT@v3o4DYgJfWHR>2JTi{Qdv@_4nVj zJ^$&ix9;3Kedb&2o0H#My?pgr?=?J+JbCut>A!vRHfxMWfD5Nie~agEch~;C`wuN$ zy*@HNBPBC$+1jlu*KenPu(ZBOfJ5nn^T99F+dsmcSs?-=z06_0fl=O;2;{n7U@RF_ z%t3Ln@!8-#X3Dg{kOT#MOSCfoXviNLksKPCVh)OBCqWU3lvz1*c`GbBB{RP;GruT) z>hz-e1tHPN2~%_ZBc^x+go*{mCc*XryyxcAX*Aix^8RoVWlRzyNf$xp?=ThcNR=pf zw4*ELV2Lm#bMx2kcaY>PUA8&uetMl<0QA zjw#3|q(Sxe=5}E_&$+_(oT)h?-6^>RFbEINaiI&_(e0Y;RIJ$!)ivAMSlBL97pIN* zWM~oOC2tXoLCMb96$?P4)41rb6rUQFgqkW^q?$=Y5#eZeJ7lnifC zK7RCAOkOHKOaB8d`@2NK8+PORjk|Z1E1n7%r?ZAFDIY(0%zZ&ArhN1d9;@={)BZ<~ z35KMifG^mG@DCn{UA}M`yMF!pHDlq`84?Cxy3~8)CY1}lSJXHu5)NOw*n5q8?#ivc zTZcYBqNL@rc6vSmvIhxh4Z|{wED7@>#&_Wb~f<*zh<-8<`t_pE?>D}*@_Ko z)+}GKYRTfIE5RCZFl)Ea`$E8~tiHY}Gd-J-o9wJ?6h2hvaex*9 z^3z_>aG-I?0iKqg1?1tRZX*QO9qT$+iCNQ|1B2l-C6Y6rimYKXSwksn*i3fI$N3^w zV)8TRmCob0CnY3p*|7za=BcS=ImcX3T7@#HsjtbIk%QXb_vyahA+ZcFu&RV8(8*n*aITXyW@kgBR`CB}@M?D@E}mwXi1nI7x} z!Rc4g6`V~6v zj?}oar2oEM+_m`K-jP=j{_Lrx> z{`~!)f4zSH;gQoPulGMVa`xQOa~Eh;vFuqTJ3sx5vT9*VQ|lUGJN`5H?UZ4$X}lhW5S)OqWndW6Js~wCKQuap zcT=Y3W3lnm#6lxdpcw+#H!zw?aHR5AU;r~Ur?8-;HY`5NBOsQhM=UC38j?P{v@XAX zNx}SWPP3 z^?tgUnCLBxFqpB9?!WIXIg=3}3eyu7*ToMud5EOiDIJS0=^= zvJE9XN2rTdXU~?9I4)cG-fGNtfews-dM9XY`nqe9z?sk0pz z>EWv!_=Le=j6b56mXc0bQoHAsRwiWSs$}n>akSdWnR!@hYIbdTQ$b!S+Y=jR@wH$) zhxq!K#TW(%by@JovhcKyXs4vlf{uGSFA(HZ7)m3HY%FZoBp06ZQm+B*EVK^)E87Kq zupQHE7qC;x8p`{3?{kl7jH@_E!@#?&O|I1zhKr2l6-XeRui#jjzA?`r_4V-}HQQ z?$YJcXHNH=?m61?%~e8lE?&S$CW-f?wY^o@l2*Ly!gdBn<19sgVoO)7#oCvzX z1u|>%cI=~$k6=5tY2CU_YzETTtZQps(cZSQZRu(ZQBMTqN1c1IbsIX?Zcs5QxF)8i zW%+se3EL6sf?SX;8kaU~Zz#91=9OTUFtY{X@;1G zjy+IkpRE6I>xZ~sc*$n60S^wW=UvvYJtben8hVQP?PVop>o%+d>=+fCi-C8pz*qMC>HR^w`{enZ@1I@hyG8lnadeKJ_V^zhJ~j>b$~+&;bjdgF<(oxfE~ii_OLxBJ}WFHRc#iNsw@(P zsk$IBs4i?*6|`t%5|)sXYYL1LwgdT$*`)>bO_Z3B9I)q<)n}B{OX5VzjM5qmyq7k& z7t}VV7FCL6%&n1R=~QwGo8mGG%|w+m*|a4Luwyj$uwC#@InK#rFqD8@@GfkJ>KJ&BNy*i0XERhiB_Bk7 z3)o-Fc5_e!tQN3S@>h`gJ1D_BVAptu>KKGq&4JaT!A`C)fQ&4+W;>mCEU0eS&O${r zJmvq&cEP*oc40doL9x^6Bf32-IssFUFh+2@=ynK$ZWrm!ZE~jP%<*H#5%9uxq`R=4 z`$J3=JCqi-vywV|7TvDyFP7^A#tzl(d4;?92BnC0E!~Ci+;Xs8z)odAv?JY#dpC6Z zjhlU#3d=OaKPBmIFa#BC0dAjxiJzGM>C#2MPSiVLKihWfkoJq;h|^f2IO5{tL>^Nv zU$q`X=vFnfG`6i-vvx}-y|##OT;JG6LbBI@^p0&EluZroP0c(Atf3U$j$+3LVy)Zp zY~Y+HQe{AjZ&p$q#sWYwu3mII8;G%T+oo+8q8;N?($vZk0(oRPb=I?`l(Z4jYOr4F zvN7*c;g{;BL|#%7-pOyLB%WnGy{?tv%C9~Op z-MM>h&@SHY({|!gFV^u%7i`bTFNN)ZoeD@7L%<_J2e53g9Y~4EN|ElsO7O0z6%?nG zyuo%Q*U{mYXiP*qpQ2*JcJMBQ2k9E`vVXxlY!^eiN2g{(b@6zBbiuo@9lXm+kd6u4 zp*ncSXyWHKwqt-D(_mM4cQJu?j0&P16Uc*BZDSlg96ih!2L{qn?39Y7gSs8O3)?A8 z1V+ZD$!1j0;o^j$!U<7l$sjyA?KIodW|V?=A-u3%z8bb`=}s7vNO#fgNOya-BiaS; z@;3$V{6R6mj&6tTRJ3kad?rNGknX~E0XtYmu|svFJ0*&pMYCO~4z9`E`@iaTVLK(d zUD(c?EY@sScsJNCW0#--7`I_NgcquVUrdxa6-fT`Uw{7n|M?xTvyz*Om6WW9?EoD0 zuGx-T2FQbSHc%@O@HhGZJ0+rB_RObXJ75=wjAHwsPewhVKl%Pz9}GWFTAOQq*Er7e zXU}7oZ}c5KcJ$Z@vXq=Ysl1(Mh^0Aw{?fstUmiXF)fY#<#6CN6?Bh@NuG_c~LnPxN ziHeLOTzR6?#DanXvN;j%$k2t1g0iBDx;gV|^5)ggDxcrdx^n5VHS1QbTHD&bddp^P z=`v1Y zd@}G{JTvyXUGNU)#XqB9Zs>MCqAD8fhHk%co5UB4lDpd9e^g+LU>W^;N6<-2zcbWmhNGsF)xEWFd%^51MCC<2;KoN2-Wx% z2m@ar{NwW=V6s$f%Da7cFYS_&x{g24{OAAjM> z_1;Up-=6-KNt5?|vhTC*&yIY4L}C?szWI9hM?2_eR3dcKrh^9#c6WClI&^3=G+wd1 zv0>pdh_-miru7?Jni>~3EUc=oDk&`q2@7#{b)GbCjKA53AeQpV^7_Ti*+s?C=~<)! z@{J&eb5dx^v{}^)=2q2Cn^Ra_yP&AFqOhu=qG@T$oZ30_+e(|3r5BV>FR7kdP})de zW9zcTE$z#fuBvZnD6OcRRZvh^Qc_!AyL9I0w)b4 z(bsbe=i*D}<80Q{*hEM+kvYtMTUAqwKdO02b7fUE@hyzO4Db&iNQO{P_D_)ZlEq8v z7A`6%nwOP3r(;Lwwk?}DZ%qpq)Yqt3Ak|^Ie#7FG%U5swaP_9`J3l#q@p!`13bt+g zuFkz(VhbCa!$K`$Th=b??KvTK?yK&z$CRD=tc#MD*ucAI@VeuTS7jgIWe%5fJ(M>u z_B_1ZD<!#28)Ul(?^f)lHfQCHJBUWtzz?aEo4D#caKimCfH%~yj znIV)%EyK9unp;{Jw@Vori%$l!DT5>;6e*SX#4#S3Kq)SifY1bM6F5_{k_`gF6MTaP zN@&j-N_zunbk52Ke2|LT10UyG%<4=uq@`RKu>XevddCJL} zQBY7!NN^+@(^q1ctA_{1AU;^l0*Z-Llsqs*#eijA$|9))fU|5VQ{f=p*$jpY*k8+b z-nC&nDJV%aDr^_9*VNR59iciUkQb`UU4XzA#ZC#;v6nx;guu^#e2#(l2M-KyjKTK) zdrFOKnCpt{N^S?W!C(g~6}CZ&u|pxe#yem~dR@MLi>(1WN2Nvs6_+qtyrZLoQK&3i zH*cz~uFjpFlbfAQ-za%wVCnkx>xpa0NK1=}jEo2mPf1EHD=w|BsF*b)mysq!dHeeL zk~d()u%RP|51SG{Wm@*M{Nkd7j12$KP{tg%dHV%N#YUxM$4GPr2Qfs5;V?^@mw;UAGjnGWcuxpD+t36+SKcBTpNMpN z3K+9FEoWMFO>O(KRRkq+IT4@F_)v^Gp_O=?($mrbI2fn^Gi_>CbX+3QuuGOMZ(Y>H!yO}@(o<6yqB~<|US)0V!qz1V+g5(G zd%tG8qB?_NF@x=ZJ%eV^U^`%k;XU157#OF7>e$gPl|AOf{!UEZIt%u-9Y1pR_z~Dn zdH$p_2#;Mnb4m?B&ld1njU~*~M4(pRoPvrC#jfnX_OVszYyW-TS*RAP?AC z3EQchINbdvw)0dg2G}t*7o?g9__%nWENnu zr6}Qmh-3^DV_qQ%;GK5`?66(vE%|tPT*V=YDH(6DT}s)H95Xu^$RQB_3he424XUdS z2*M*{Q>BAd9kxY9!tf~tdG?IApLtOeRP-ZYr{s7v*oEyl`2jno&%au)&W0*syHK4{ z;~lnRd2`A&+o8I~yKyt7YPM7H^5$Vgv7LTW*vo!@V6+c8@?LNcJ?WTXlIdUYS!KBzxUObUm+tI{l{=-O8CQIY6g$g*3`_( z%X|Fj5d*QwC<3wwRY&(upEm8~%a;t9XY4cILe3M_s)mKJ+0mm%i9h`P_usv|JU4FK zxOMB+u<)?>)Rcgb;4hCJWpFo1?e5;Yx4C0$+KgG#b7w_FM)N6l;^FNVg$t{wVs1^- zjIz48^lWEOUyi4-sVOBXC3pIag!n{~vhi_-V}JMEcMRbyE-h|tUrH~ixMCnYtmcP+ zU(zG+Sq9fLEC|>l+6lJL&&y}f>%DvTc5L5~l$gX=eu6LoJ}c!I7$Hl1IawD<%E}3q z=itfL%}{hwEitr~7J)s(d5#u0)i>XKlaVnsIVCkFmLZ!7d>uomXz1mH5P^y2=giPh zGHg6GeJW2Jl~t7$73E)kd4y5n{0W$XEi-pI&lStpb!gpAFYbV7A7ndVCpG}KmloxT zN(bNqc40eU7rgUQ*sdx@xt??!#ReV8^UC>!B$bv~xYD zu%m|$QTARuhlzSeu8UnfcV2@Xyd&4G@h)sv7vsQ$k1)>hf7iS;I$U4{U>C2k)@mR=OLVyle*EMX}4wbh(v{+6YsGqJnohe!z}y zhw1`$SSq3&4~gjZ0dcMZW(L?!MOLCS@q5UAC^>TZ?UWEcj=}y3SpyA_L3M$==ys&L zs?eYqzI~30>@k2HysKm~#`A@g!geVU?HG8cq+#XEV|=wJc1kaEupnL3yXbaAI|kcD zx>G4FuYHAgL$_N?cVRp97O+zhunW31*ol7BY)8FA`2UdY);<~LK7j24c8zy&$bfgv zcJK~kk?t53*se`{GOUE~!gej%p}H3BqQEI3IUCDMWIx_`c1{Ui@W~7i-b%OQhhcl9 zyJq{7r%%qDzp!Wb9y|{ifMUQqV8jCh(3trb!jnj3)X0&95)r`9(0F8UeqJ79pJ6M*&n}3WmzSx zCJ_*+LP(E5tK{kFm6(*AJ0lNSPOLs_*qB_q{K+^am%PCY*4*Rb{90ZW;=%j;YGKLbZ5;#f2$Ew3fRTO zAtQu`?U>P~sJvu?cMeb3E*}@RBifmFySAZS@DAZ&JKh+iJA_9)DgkNbmVxaUx02x9 zn(b(E8@5Ar2v4bfGByqw`e9`e-Oe*Ow{x(u&@;>blqLp_dz%77g0VOr+erdR)Q1uB zaq8H0s_P{`p#}6M<%3HEtb(9Xe z>%lv3QA&k6M)xahr-6`%09pC{lkdMi`8A!A406xS%>_{SsBsr8TdGD6;l4n?llu$& zBGef*$si;A((wuLBY{akXn1DM^u(l85;?M-?P&$bvK2oio?OjonK|K6v5rp891nS!m`#_Ifb8ML zix+$yy!G<&B?V>8{Dn;|1WT@ETn{0TL|oFBn_pIL4hjb3d=}MBT9V@85??>dl$a?~ z;u755JYYM5oV4?)Y3YSUB``e8$fnL=kkE!whWz7AB1JhrkiO}hoE#bmwnX96`M}Y# z83$8STg%)-987SCnqrRxMmzwre|mFLQc_9S;^OMc#{2{trVJc6Q?nR;`{cLZbv-Hy9O8R)uJ|;=WIyMulGhp--kb*$0bMqQ9v}4Ei?mX4Ci;9%8lDe|}yN>SN zq2AiR>%@LgKVV1p?!tIUNuC+8L;H4UZc};js1MU?j&$u3JKD8}m6WFr>_1}EDUTi4 zFGgKfvW;wi>Wd?1kDVAW!@+*^;GyolU59q>K63D|SXU=eQXQ1oo?W}ejvPKLY(Gk; z&LG=G0x?*%he_N|^-$rl7dv_c8FBR3F`P2$apTArhorJ+_fA^*h4l-?2&jmRO%)rU zZg6w}le>}mM8&rgDq{rW4Ki7=)bPDf5%P-^mzUI8DH~7$?5b|W)ljOoz^bvJvsK7X zg?A;ilF|}1@W?=gw<6=S#GgcLaA2}t%Hy~Opqo6!Ee!y>!Z=0@RIXR?DC-{fX zVoD${7L%OImqsUNXUtTgK6uncobxS_(aC9Kk_m{!__4ARN>@`bKh4Wm32R$Nq0iM6yW$I45q7`UXs9u+5Mrm6BL@`qn)LOw}fD&485 zN*0mjs4sM#@EM-VLV`8!P1yjkDsFahxofZ^{sFtNT|N%gWf8XHUyYeEI5$T{O=U$5 z588Y79uT~X2p7U1KiTv07Y2~trG)KjMr^WqKzM`C&!0S(iU1sO4%I0EJBwyMphl3> zB8W?ePhqU&v!s56>S_ZLxj#1A2*YX5np@XzF#rjN41JNxrEKKuqa=kFSpw)x#H&zN zRtCh7=)}KI%bd2LcERGt#ksjT;E}cfw@lZ*eF+IuvNNYfMMU7)0EW19Nc=_0J3dG* z#1X?sxHzjsfAElZDRIsuBqj0ZA`7~(9oAJF@Nm890$x@|jDCp{O9tOh%kBBQ$bz6h|*a3xfN{|lNh49uq2k9tnVY^Tr zB~JxO58f%^^Qj|8ko1(`9kzFE>wxW40J|7$=O@Er$vLs@?|d z@)EYQPuQM2Emzo{HLU==0~22Z>;t7Sa7OUXTN*e5a2rswfeqNz-VDwwp=*T1tJ3hv z$Y+6@m5}bk#P=IfYn8agBf-!duTJEugk$J7C8^y7H)dS}?$l0a8_Z zSO{?$z`MbA!8`8)b_kCS2khDi-G3DbWbhoe19{DM!eF2}Y{xiDw28uYDzF^`?0lUx zc9fV<9l}$QhXu|Fcn9q2$;BW%CxNe~S>fB!=TKeP4%lZ*&l7{{8t=);sTc|$ybIWc z?I0bz>o^$@jUZ=H@i7M5;WJ3#ftrO10W-pOJ|$GQXFDIaVY}#d>^V!PlSwyTW? z!7gmab;EEZ{0wwEN+MIr$cRWn2gwxx-Vv6xn4}Yj^YcpPZCbZ!$JQMS>T8+8rmd}Y z?%bk`^wjFAd90Z=V+Q@Ou#|k=%o#_?@TKwN#`BCriMI->qq^UxJ)Jm-No6y#vs2Ti zB4}kj&rtY4AS4G65zWxKh)GT^yrgxYb2dC8(&Xuh&mS4g-@@Hwii(NNn>~j-z)O~` zShry_5sGWqZ)#t*a&|>!Kv?)RBPlD-4(ygZ-nf-WC(E@F5gO6lyqKO5$~lE|D=TZD zYkUHeszg***YHR}p0T2WB05reeo4e>z(K<9NT*xJuO-Dk00kcan%NtH4vf`7!Ju7=UPI%e~&I~OhCkj`; z#Aj~%aK{c(v+wPq)NIcpRjeV}Av|n9@X;0lJCGNcQ+9vUf!VVi-F|524l#(@MY>3X z?Ub-xQGGvMoE-vlz^vmzgDE3od9f#_o&js&Vv*V_LLR;W!2CltOjQb`kAN_og~G zjig>iT)G9Y^GlKLuwC#jY{$0)-VyLxJVRP*qzl_6#1XcWzgKj-W;=uzsw=P~-3QMJ zza6A&=`LO%@d&XE#;<_z^1ZMfgYDTf3#EkWwbe~RcmX>lx?TJ>!gkzTTDL=Wy@>V} zyj!zfz%C^Y2d&$|yEs=tihLGW$;V+kgx9(qlp)>48$*eJmz)ECz;<{J*d-`}3UYlw zv=8cbz^>UofN?{yOMz||1M=v0p}O+b_dn2rAEaYQcL*=f3qpA6H?Q5ie(gG98#gu1 z6TIcHlycL?O|bpo{)1n1e}Ox@4v^K%$j+VH+gg{@GKo=j<*L<7 zcYm^D_s84UuUko&4dRv#M+lahloT5kMJ8l?UnKkG{Ih4sOy< zW=f*>kBB5MuB$hPgk&3isrY2@DM8o5q9PKA;DITcTgJ3YDlgge8RZpKEp5w@%@vh3 zGiK(eq)weRV;1e#qJ~BE7ZU&piqq)?&6ujXVr%OOWhbVwvZ`)Yeqq7vqLR{ziptt~ z6*c6-VG1g;i1Tzp!m^@*{Hm&&n%cUY+!>_#rCXWqV0v4NO3H}IAykr72_(kMoB98- zcK_dcm-U_R*P36ZXV%PFozC=>b8PFkjsulysVHJ82%<%kodlCMo!uvpYrI;hY4(})(A$Ire5=b8z^~0qY?F06#!mfAg z-hDgwj_t&^SJKW4!`b1MTY9;^klw%^q$eWz_`|+1Y=`&pnv7goCcZsonbxT~lw}60 zHv>P;_Cm2C9F6UrQBYjaZa50+MGp(njr?+}q#0<#yN6jl4X{06*9Izs_dz>Mt;WTved(H{lgZE$i_eU9#POR-t%&zPBhv6v??0L3`+rl#mc%N{D73UHO}5Fgm(?Hpi{a<( z(;yM&CExz$x19nEMR0-5+E1-DV9%vS#yT1d$+6$E`BywUGLW17-WUAp{?j*{_;&La{_)%2`JNAac=<;^xpC9x z$&H`euyN|bi`Sby(soP?WsS+BZLQ=Z$lFuAAPs zb5>Grd~Rmn4YQ;dRopvoB;?%wn-;3HenTs;x5~`kn-=P+8|F)6{ind*F>d+6TXrQL z`uv`QH}C4Y{icQFdv?xI?RRJGh*HU~&Dup9;b|`_V02@4Djv8SzesZaZ+V zIq44Gb^kqM7rpxM-*fkUUpho}P1e}>_IvNTt3Pxz5!XW<`eN1I5A565b?1IupO1RY zXWP`qHRqqV{JqN!dK6XCK7n_vTaS*MY_K&Li1-S2yYsQ*|Bx_V+48({KKtuQgw>NWcE?Urk59@kGMa z73ZxbiCcdqmgO;;?l?2j^zCh+l^tsUd$JcD8E|=~|wA z^2y_D*O7|t0Xw$CV?Lit*#6?rUZfCS0|p!0AOBlWuRo0qaeusl-FyKahU!oM;Az74 zbghcKI$VoYkon&CYnV-o*v{LhZWH$o?4;$7{_~HXeB#Lmzw+R|z5A49Tx$vMB8WNH zxGq&e{@dUBw)oJ44~c#eeDmwyBpWpQ$bBd_4}9xuU$en)eC=xw|Mg#g z^($YY2kyP+n(bH3UcGJQxo7|OD}TH0TKk*-?oG$NNulGc_n!69kA3vwiHk41Wc|l3 zSpDwzyyukD-tqQ#y#0)2XS{#K`!WBL^_PC?!izt&>iiF$y%N=p%rR>Hl8H-P;`HwK zyzkW0&p7?v?>YP2mF|D^o)2HR=8{e8H%x8Wx^46HRUiN4`cM4nx(}ZFkz@Yognxb1 z@A!u^LPqi2)k&XT_vyNHc4~V1in^fH*@s~^zy_j|7-qA5`!!czeeI^tO`AV_=Z$~% zXP^J`9rFvMJY@;6YyVj&wy&+*6v@p>Mj!py`R3IA-T&~qi>{bmxB0q@x9s@T=Iv`f zw{`8*=9APamw#y0$1nQ8d28SQiHVCZ`^;5WU$^7>o3?JBbv5hfHeY$gm0Mkn+rcjB zV25{92hs@AJKin9c7&%rI}YQ$cb+Cmy-HeH`p)4D5H`x>qEtzEW?Bn)#??Qf5Kd^T%!Uyc*Y`^awBPxsSJUq6GhrW0) zvK-sHP`%?l9zJ;QV3&-ued^M6@ZQ;u>ImQ29#n?yqgZT*<#OP0?f9DdjM&+( z8J>$Fyco7;v{Fu>iKrgDhwZ_8*q&RS)fFfTr!QqYykk4C!#joT?6<$*eMIPgqgO6$ z=hY$FAH0hkW@me-o*3UA>psqQU>|2Y$9~*fRPdIvz2iNFl=$|rJ$Nsq|Lx;p`;$*S z86mvcdIR=;Ug&IR+Jkp!O&un9w-DQLKKlyZvAyFx&6IIKTXE*Dzqkv}Z@cw2b(p`r z=Pv=Dt9M5DyC42t#?OnEIDOa)eeb*9`^Ljx6(4>0Yh=lHzx~)#-+P?C`|WT4=g0r{ z5%ZRO^`V_RX6LWF)*!>*dDZW{;&)$Rtm)b3p6gmpH#~Kvk$YR1KTFNreC2D_uDNu> zrE1#iFI~U+O4CDLp?L1nBy|i$>FFz{{UR`i`NB&kT|f1yi`RepG9%l~E_UUOH(Uqo zLY|HK8q^@>;h@w?u0 z>Gm7xvh6oseAVnl)7Px}^cBm_|Mc3)D?fUXInj1rdF`$n7jM}-z5SZ&cDh#}q&pe8 zrn1J#OwTOta-rp3iQg$P?UD|5NoTu+U9Tlf`xx6nK3-ZJXFI~z@^0O4oV)AJeJRCs zgDtsz*8-}G2%psxty|2$c^CKI*mG3y@Ne$N7N)ovOO^GH40k`+nI9-a@JF+z`uF8__S7O z{i;km_s+4$W=l|g#U~~QT{wm9E8KgO)=UQM2%pM)+&j}wnQ^y+eF@tk9oU2SlTJA! zR2S<-wb7fBVRiz2zGhT=(}}^m1k%%uD~9c!QlIHYJ*GVmS8PZ)jqAr&#Fes}^sZ>({Ly{Ec&9 zf5ZH>^MCrOOAJ}mC!oy2Z(noOHD*np-!Y$mh`RDq-{m#4I8Sy#+qTzrLpxfVxw)Na zzqtDr0{^U)sIpJnu9@Zj>7-L?3a^!)Tt7Lp7)@;7VZz4`to_`1lhf1J-8^~a^;>t` zeAV17TdtZR9R!t_Qn+0#FA3O1_y6r+uf2~sg(Dl>-;-Fv8vx(Ml&w212a_U)lX!}wi1b@0HT=G%dtfe+a8ZlJo`PDR)r zO|4%WwkKkH1n-b;{9ZIr{r6l1T?KYDhF`o5hbw2xS#*@kK=)pd(Fv=lQp4tJ#0zxu z;aXZ4-=0`VZIXu09rs14igZR6^#iJPg=HEqmURVI$vr;)(CovtrD=sC^1G!E%ol zS}R+yFARU~C(nVog;s(0AAIizp7pRxvwobwn^^Dn<}pXRt=_BWW~OM@wOb=Sq{hSSx_Zl? z=G!rC*W647!0fuNlD1@a&(3*C@w{o*wTJz@B~N^37!`BZ9d()NzMJMFsNco;r(!cd zw{X?8#@1cDW?NKSyM70CKcDUQm{s;(H@CQb8%aF1c=fiS!KfBgyV$8FU&Cxlqk_C7 zgBTODe9-}1J9Ep<`AGZTX7PHjcW!>$R+_zHBdTxRFhNrjt9$O@_6_ScO{|%`aP^i; z*UG0ZSv&cuHS0dH`kZrCsu)M7pI&pAki_UGqfG`KecbUTpGh36Z}*8M`Oi=~vGW|O zkN$mQIZBWS*Pcq0zaYyXPscCfE~J)L;!ie(>O z7oDQ^02#$J~U zj0#pZJ9KKa^mm_i{+hMAzb?OGD@i6V*|_?{t3^i3oEs+O`?%o> zAG_eRcb-PTu3NK%y-H6<9rgRa|NElSO8AWJ?n{X6;B2IvsK*VZ6J5cSnvAhA>Nfcc z+wnZKw@TP7JwOhn??j0?Wvtv9g?QHMhwWL7$xQoFX z^MCYoXL#C(+L!~RKV0JHJJMP1pk88?Y&ksFt4noVQw>xa{)tF1RR@d?NgoE4Fr=njUI) zZk}qU+~yB~o!^G^u)W3ExvK}+*RZ3_Q!mSQ3lD>RbUZn#En8>TPHZ#gP}v+b>b92KM9r@HDY_&ht0Cmv0|k z9wpIUV?uTC7kTWk9fDvP+k^Ml|Ix{&M(nad!uFLPx!~+o7c60W2p_Q9NZZa*wy*lw z$HR6nEy8xHNj2MObFcK2cP~fyfL*UEwjclI!n;W9Isv;Q$!Jnwr+TrYY1XQ@dPMkf zwxfE$j_m=vxbvpnkRHK%s4f}<*})#Rcf1=01HWR*=BS>(akeYY{CC+7<~cRM`#9SR z=|>%+v%ExVXtSO{!uB<*28v!C_XpS zp5+-oqvQ_qX(J+hVv-K_u-#KZw}<1q*36QANQaN}$tU@CD!cxJa__{?^X;+jX_@GR z((&HeZhlAVDx7ZKj_TMh;c>gd_Vt%+q{+*j%jdUTH7lB(65d5J{d>ndTT;&C zYD2ge+vN`JB(ix*k)Oa^jANHeu-){J(aMj0oWk~iJ#622*`}~v61LY=V4qkG>BA3` zF}5T8Ssy(6xVQR*p9t~+``-O`+AOdy@$GT%%g#Eh9DCEUGfo-6-h6u_XW>0V*%!8M zqO$9a?FISyy1W$O#c{R|rI?X>fA}x&E3kVw=AWyQGdCOG9;6q{o3J|2#&*8Fa1HY9 zsqnnFT#^K^1L55Qe#7L@V9S(+gD#)M_PNBXrd)EnsI277(sFnwYsIvO?Z6(@22G6L zBD)^Jb$D*?9qian9xlOqXFIBsX`0Xf=y?&suR^wl_cPyh)+y#B99j2(Jq!e^!`8hG zl~k6g5_*Gnh>hw2JII4J74b$5!t-!G9zJcBu$^z`*ik(K_BdYA)(F_^W(Sv!sa*xn zw8Q(+Z+uI~JKrAb9^cNiceaE1N$)tzOAFh9T>|NpR}JYg?Glb1)f0i;G5BF3fpiN8 z!vE1pDPD!@d9fhxu;1{OlZbVP^vL%jYzKDA)!FbaVcO%{JKKHTdQGNGyW69Wv3hbz>exs3NpcaXS*S<*beLwq^BkmwsY(VFRIDJw`050 zM?aNh{^vx4EW1K=<0_qzfBn~wded7@3ftNBNKK}jcE`Z9`yJ7JyAK=dt}>HqOsson zJL}G_!+Y4yvB$JC@Nw+oiSP6ibp-aa&gx*7D8-;U%9VBBx+!IuimfIihU&q)yh<^; zb*e$x^={e^gZ&7$!+W&Ex7%s(zQnf=pdOt9JUmSAEFAgvIvtFj)n;6%eprp?q54Z= zV|#X&^MwfS0sClcWyJ@znoQ?;e7lFht|mjZhq(EQh}NRY77t96HTjS33`iG)JDrBX)kuR!+WYRBfkyLg?F)o{a3R+ z1(_q+t{`Ljt*{-~qktXTNsj7ayJ}3>E{5&!?hQ#z2Hq7R+!|T_7Gl8rdxNuony}*(;i{Ff=uzf`SvAj58mNgHHLLhO~zzd zo$cu}6}9PX=l`=@|7=Pzzx7+cWxrPUWmkEKyqxnsae;e)`r`L^O;o9bCo*7_|v|-?Tn;^O) z-NT$XBwE^XB-hFN%#WVQF0!v|L@p84f1Y`!8i>#Q-BbEcMSA`xPe1*4PXN29tJw54 ziFp8MRDXxsJ~o0{1^>xYA5u!UYDG6=_wmdrC*OKw=~+H~cNk-#LG+qKxW z-7R0|7uQ|3fvl3%ZNXHfC!c)MnvZ{c?yBvxTQ_arJV_8eKU2R=5*M#CHl`})qCTc> zzjxg*PkU}!&~n%O{K9o?{9>Yn9)9qlC%*HTXQMhDw4%+zHC4(kHN2zf!uD-lf$GvY z&A`{KvgW4CSIZ9y(g=v>=!LG16(Y?02hRS>!U8#GKhLI$#zJZe_Z~Tqle8sQ*+OL!3sQ>G= z^s4{x20HeQ#@inw)&TYQpF{cmxb{!ixK(6y(I+mTsY@r#JzX;~zV>L56n5V5hemfV zcV&mpeDYC9P_7`mz;kFP>cXo)zmZsz|QlIsVP3L~;1b z-nWwan^Q^qeX;!9k57DNOY%g+1~T+lGJE}EzlY1+_uPNr3wQ0k^?l=` zS+VkzQ-+@{W_%*k_xbL))JQGGWK$9sq5IR3Du(kY?WtUaxBCNjv9q0NU&3}@Q+RRRG^+33eG5s#_BIpJAyjt{ny}p*yaU*OJb)eBU-gq29+i$;hZ^yeCwh!ZdjO{a5&tkhsh!nOL-W%KDojTj=^W%Ja^fAHv) z-X6Tec-Srp)kOk!Cloil!*)~;-fOb-nYpviHmbJR4(VaImPfKZ+d*}oE{I;j_PHDP zM%X?DgS!^RZ98^^>LS8-u-gK#qk2?Gzj_OS{K9oJU2`+j5w`D|pX~~<;k`P18`Y5? zh z>MixUitvrp>n#q_ndU)aL;rw#hMB)9i32aAoyQ}DGhv_Zd!^8WKU%D=A7nd(z(eWO3o%!ywC@?(Z zo$sZS|K#+rT{6!0s(6g>p3#q~;h;L%nuv`7JGT1?+1c*5WM}&cZ#z9~hj(B<_3dYb z@SW`vNRO7CdK$1F|CSRw+XHrS^?9o=F}mZrIbVejefT^I;eCwH{@^O|qC)la&cA>< z+u?ogxf{C2U9a zl%2zNz=8KT_S{Ajp}P*7_8&hD>GAEc?qD0o7k# zwj(*P+qgW5Jm(H=vQx=ZKh$kn>TECCGw^@+1gg`EKYc!q-L2Uq-}+WvkQHHj$9wLc zAg=t_`El$b_a3%yx_nDn_c6A!>+n7`vq+Oy4GP<1+T+`q_Gp~#{dZGmJ7|MEw&xZY zVSB(1@}2EVe0zW|nobRt2h(nF$nL!{LSkooCA$_;9os2X2X>_)>qd2I7=gVoxOEe- z4}_nY#&-N+-MO+@cZ9bP+hg71+r3MyJEVu|iT=F^n zb@dF@pqCo=vIy)Ud?-E6c03<<@7=d&cZKxNZ5r0{GDmo~g>YNaEPYvYNvK}FUFGD` zbusoLbf>oz;eov>>W%Ozyod~Z9J{qp{jh1rc~p-so2YGeyiaez_W1Tr_)6N?cwlGX zJzR6a1tC17U+~fMNdoCe7`C7Fp5+AWby?-gx`}ht!7jme);;QM_Zh~H)j&!lo_U)b{S% zQ9agu-|Yt|cn{cveN^B3g}X(*echVDx^wU2zFjY;zpy>fMtFEXlI_8JXFESX&UR~c z>mJ`OX5Proc3)W5J?_1;U1cVYJ%mw^p;-6$_Re+>gZI>ALijj#gm;NkNE;5vglCCw zaj(Wm!g)!jdQJqv_;`f(KszW%LB{r#Wo+5P&UQ)iP(AKlJgf%xRAwN(tAkylCQtCL zGSk`4y*rQhnoJyfXM4vxyB_O4&UOaAgT1qT+_#_gzO#I8>*I0ZI`6+c1sO4HPfbPy zcD^0hOAy@@wzKZ3$z-7ugzv9^>%p|+-mQ1OEZYNiFAdvMkV(zoy3Py3>SJt2^)5(< z@x<=ieT!3*8LWG&$uR8&`H@`*>ilbl*rvp#5Pmo#%*~c>9~EjCcqG?2JnsqA4^$tq z9oP|GbW(_Q7hybJI!U8?ElD*-g!i!BT9P<+cyEN?(D5Fsr!rG`Z(tWY+cgN-(@7et zr^cSDJM#CMOnkeC@XoYXOiiZw_ON}38zxhh5ixw+w+HVPTX8;khja)fcvlq(*d;y^ z*j`}&@T$p)bsg_&*QoyLSGo4{_psegxp!UFC9o1R- za`o?9iR#!+VLPhByQtTRf_L9{Y)|CdDTMDe8F-Irk8j8Jj`z#}oSFu{!0B>&dB;r8y| zD{kC45r#!6NaD4YA<6e-QaQ=z!JV8%B-jcD^t(XSY=B2gwY%_#^=Eu(r zdiI%TMyf7>XP23(UbJllaI?i_4s%HMsyM4$3L>_nBRMK#H*Zm z@@cC+zFOZ(+1-(L-Li`oZd?G>-3tpThDf$tQ`$5Q7WJ9gW`(8s?xKep$3R2G?A$ zx(@s3V=^>doSIwQcGKQTCj}j*x8Aw&s##jMVQTeSKYophEKOXv)?hoI5L)%#6*HT+ zV6q5(3w}OawS89`nhx6Vp4d6h#}0!@^e49V8e4tOjV=Opf&VU`uCh#%e>j~Tedzf9 zTlQ#>s973|x9_f*)uYAv#XUFKNX1<{7YrRAkFFr{(1o=N*Ud$?8rlMgB; zk4o#?HcrxxE2hL5W%DK^@3N%8-lD{cynPa#tuq_eN82xL;~OUw)yubcrN*8zd-v@d zERfP1Z3s=+hC2MW4$}&no8zyLrO>L->yI4N~HmpbETBv&8w8_r_<$Y(9 zrm4xv$&1#JvGKI^^2u6j*3hyuSDbmKn_&(*=l$on$;H|~T`SQgdcmKr_4%Kg+LDUBh*UL-?9wW^b2xsX zAoH3}u9Gb8**mq>@ZEK8O)k>Z^j2}*rIXQavt!?OySv$nY>a~H)~jY{_sx42Zr*Dx z7ffx~vhDUmcisQ>hsCL@j6L4Iuz1VCFMXNr`>XrS`IdO+7w*3MUJvgs9lCq*=Dpiy zcG#xwu=7`6K(6<%pXzm|mHPcs^ZB+vtnTwbrr2(YZcuU5=**+vvWHlU`O>RY=2rkYF4`>n3WTS$5>9?4mdDu!CKj=YRHm z*e*f!XkdHr{@gRb-U;8?j_|g*`=-Ut_Kx=sb_uFuyVIfs(h0J{c2vi9gkRWMrE;+d z-`HNbZfwW%&USbQb{}ab{BW#GlLkRLyn9wM2KE}0`Q>}=qr!V*`x);z&0#NFc2;LQ zsuR3p`_>zFQ`p|Ye%iav3e`oB4}^jJNVbRPWy=kB8I5}Zc9y#a3Le3Bm<`^u&4>T` zA#ZF4dy;@1&%3M=wu`jy<`S@%76;*Z^18wl-Whu*L}wN?s8J_xBfJ`mDtZk~q@Ww6 z!*;Rk@n!3~0&@>T`^3JM6>0iXS0SwfWJ$3d*y-}gs+_lO(;yw^Lv=`xLiH^M#uy%R z;rXZ@+0^Xi>%(?QVZ5=ZV9 zRk59Kr%*S@RW?Z?2E}6BwFvCYTYvcElfz7sX;bY-Y`6WsI@4~I*!yf>?DZKfYmchy zKdy=m0ekQ+zSsos+*Fc1R~|r#SWy*eR95c2vi9NIy*V5S~A8rXAsdJ;L@y<6d^miI&H-dt0!bV-MJ| z-2m6lcD{WH+e3J4XWa|zY{siz&9?(PFye5)E@9fcZ-;aj>=)QydM#4G9=2=Dw0Ga$ zacxrp`&|bQjfLcJ1mFr zV%Q!$cCbr8yT?v=iB+CBzRE9caAWY^ArI*RyV%)2GdTh2 zf_GqkwPw0E{U3y1A|dj~trqI&KtUB7%A)r0qjrUH9s zJL}$kJ9mxkNZ#2F>>clg^oDo7y|cXx{5^N0dKBLt!iVay?ik+H!T!V#p0<#0kGgMf z*8L@HR~L$J$7+A@8@B5q?WX3SD69!?%T%+zvy(p_Fp?EcD5JXnwbyYQ;qT3L4K&l{NAe(zJp!DvB$KF_MW~!4Aj)by)3Tgz%X?Anu)AA58o9=?->@O#yX?op&;;_xGwN<5W-H!5+5v zmg8VY`0U9#s7@h#FR<|8x>i$=Nlhj^2kpqiEJ-4U?ZG>$YnIB)VA>1p zLro@ZXWF4YB^pbdM22_-+kw5*sxjD3Kn>{#Z>>~g#7&n@V0&OLdbZ~hjy(_KkP*I; z_S#4BFxx%Fv4`!UI>LwTRgL+>6T!hK*?>JY8FHATFGYMiwzta6iNKz+47+|Uyo-#%FP%<9&@Q=EBcJFxr9JOdr< z$}+Iex~DRuaeRAfFDc8U8k1Tr6|!AHG2^DxLJlr>;DA zRkY>G?Sv16ioS+H|A3oI%7KRS=<>B@Qx2m~LDP>1RJ3hGKg5 zg=e4DH!A-8r`6R<5)TcPA<45pt{)fHO0;oDl{{NZPq8JY8a77(bIWN*CR(4kcp@kk z>$VOfAxzLMhP`w13nZVz>c~*T3nyG`Xq#(l4Dj}-mGl=gJZ9&Oi{xINboivOV`sLR zICK4c)5;I z-OO%O1Gjvqic|G9bS4M#vVVr(*b&Z)h5FG2P5M=5jI`fs zFzS}Tyg$qm56kU0SMP<-PH*iWFv+}mD%xw8>GT)z&S`4Vcg$qUh^7JeMVO)Ec2wb0_l&d zsC?%!v9lf3%PP0QhgBFs&c=4}*}pHmC-w;>$Jri_9h}y#8{6$vB3ja8XRn0;yJ(b7 zmzEU52kByvo`;Z5_66^GrQ_R|TbTEu^}asqjF4@L2;ccBG1YCy`}VEdBZLogpjDz0 z9I8uv41hf`z8cK*`d0fhV7`n;nK-E;AVHrpG$Vm2k#PKAHY~Wl^#|Dkk7`KuzlB! z4gRPey!XyiHTDs!D`|6Zp|Ql|iebCN68AHW(jM5u_8N%Rz}}HAIk<)T z*beXY?l-oJyRMmu3h#~WqJNM1ZQE*;dn5e(l~Wz;{Q0cwm0l_fA)Si4jqNj^oy7LS zyLvm|H^M`D7o>N#qdL4#u324pzi6!_rxk49a;dY%l!)qnSr~XDiF=QYFQku#L}ECA zM?IHBS&r?f9{D`XY@11h^kBBL-9Is;hwV5oH}C`AJKKR>!9;{~Y>y`l+kqY4A$`UB zSBQ2Iwokdy%Z81pzHNG#c4>zTDVprPu25=Ptt`BLJ*sarPIbg~pD}pXZIZ82eUENj z#P((HJWUL>I@{rW;-ZPLeb3E%gLg-3D!*Vnx5q;GPIU>k=ONk`@V|0@z>e^p?UMUF z{OUu%9=6~2z(c^EDEa5u4)4BS2)u;tAvt2R?jp#i>hAg@c>iByJF186Mt;J32=9(j z0ei>^ViJm59uV5t4(w0;T{(8tjj-Jno_ssDcd%o%(nm~tXSxuNC!*3aUq8 zd#pR8r^HnJZ$Apcc1ZUXF4GRJG4{dxuF-Hu7$0MMe0yRy?R@)iC)0*^?NR;Sg9j6f3Ce&ZJGdu_OF7Gq8d)pH|4Bm_IkUnRcvLbvrXDoYQP$JfYK8BYeO<#7&dI zy9nbnbfh-I=V2Us@DAzN9=u!5v=hAJ{8nAA&A@LrC~@T5<=9S=BK$>bS$8qMeTeOv zsrdF@dx7^3c3yp)=bi8!?2e?`u-i7suHi>n=vv4(t)r-i7S}J9t8R zOncZKu=}8f>N$P%-*l2J8D9?X+&iiV?49jXmv7?Rv7L2K^m&VKhxf4EKR3K{>=~pD z@9a9kJMrxifMYwbN1f`}PQFTsL&c`mZNhfey%HBLef6Oswi*twhwc0BI7q&$-M3ej zyG`Kv-(`DjdDsr@nEyY;b~Tw4WX65FvP@@t@a|s<+hg6Auzeh-96PF$h3tCw?Wm6J zz#g^_1(^}sfn9M1(wX-7cJOB16T^03uX91GsEF8JfNcetf_xk6n6pfdCp7NN*La-m zsNOYh*JIk1Xewznnd}ksZFZdAdDwplNXDN{j_`ooIVnl!g}+S% zc|2b(R7dHQWkPjusFuyK$GT@1Da&9xu!r!2W5@Pe_IfAvpW0OQpN_GeT?cl{#X@?j zF)eoA9>)&sbq~8kcdN;eqO7l_TRdXyy0SA6tL%*>##XMC!NOjA+}NROnZDg z;BfC$quj5YibC}xBXV}3dU@;?L-iq61%49V8{w-O1Llb-%M|3tYBCBk9DA&L_wBX} z&N1y0Y#%BxErE0}cO;U-$J27nEX)tC#86%Ic?i{&WoWz&s^_7EX{WgNfW108M?!dc zxXricV`j_Ikqp;>d(U##U6OSZed;>f+4TtCQ9S~4pSKib5I&CGzcmHyvF;u00PgU{ z%Q9L9@?yt(3NqL(8E5;QK5`s;tIu$-o$V^{9qddyuy@~H)fiwug6+CHW8F4RL^q&oEcbI;c=g&)*F>z_RPZ1nS=z3|Ml&p8vhs8!OhfwI;Ms`O2@{VLHsCmLXr z3VaBkx$F|1K;46nCe}}^x#*%4Sj1hUI=qC_+_`gsd>#Bloc^w5TmA(7GK=t&Hrll44 z8NOhHP619cR%tQ(-?zA{p9u0zJamxnI;ivOpm7c(8&==e$Zzd~hnz1C`tjMSJ^T07 z&>EYq0XA*Sq!(LY8NG*2KpyV8VS$P>qcQmz5tN4&M}_*z+f}h*p?=F28cOu7VxKzs z%oSz{DAiN0MEhqnYrMVEx@Sj4eq(s5m|rs+lxDYX%?2xJc%Q#|W_Ihehj~hLNHbS# zqFFQKm`S*izZ-jrB^cgc!u*U2%?9NJVPYSN%fx7Y`!vm6w|!=dX+`UNp;WSd?OKvd zeb#J6uA8ed>dgO|^VZOcGglb&;!VbXN&PI+1=D&roJqZ_d)k!(+&2fp@=`|f{;>H<|a zlD_SLTjl7|Wsc8$Pu=&HPI#MJtDJJ|8;|#;X3otCrpE3sV<2lznSb#w6xCgd^c%nN z8;Ul43?#Pu8?U!3*CY9odi#-VXW;!|I{|woBd}vTs(UN$z5Cwc^JwOFQ$dEMp>B*f zyua}C7he3Q7oYow=Yd_4XTw`mN5VvG2ljEchw2=-RXXA2gxJPdY_f6kD|7lU_T|K&fu=#pD8YzJ+GukDY<(g3>`t^>he zz;1Q2>)yw@gzfMi)m&TeI5l{$>zI@a7+@uIRfLg%-9N|Lwd?2tGun)F*89)y(pMF2 z_{;`p6I3V3MHf$GLQx5@JM0iFU>E(iMfGBM6Uvd_9aKwVr}ym#b{-hmi|~kd!$Jt( z!QPIzdMb;|AU_&s?xC;V5;=^!?tF{49|#ZWcGv1fdv@;%+bgy~n|<`ABuX)7h@h-p_*ZI z-Y;6awzuDO=_U%>QGJIYfKB%0jly=(KP9jy!R_F^Q{6*b%R>JgOBxt+0Pp0fYSs=I z9E}p9eDR)K=?ho_vBNN7`)4S_vw9Kc_3haS+?gC0P?5~ z@0ooC+q=fut{C+z*pBdF`zv1Y3Sbul@Fi?F!LO+uJKF>H|3S9Lx1+ktrnvVdY=?Jj zC%^am1izi7AcpOzF5-FE4)4?fD+$$u#IT)dF9Y8Ij_QQ!zW7Vno*h{pj01aoyXE~D z0)K6?HOnOdYzMoCo$c_B>OcAM)4@9*Ui)oxh=uL7?sGZ|p61vI z>weWE-2SZ9cKVztgL5Q_T#3KsA6QNu?5sQA-mQDUo|tPN;9bI{`{#&${kM#_Cc;`W{QS`kC+dI;Gf{FpVWLW4J_8H1qRHyFSvAvY?O^Y$@ zz~0$zN3hwUoy0Mi;88xDICA=c+ovt&#?_hI8)O&K&2QzEH7r7-l1N?v?RV=EEyg@!n?c+*t>NfXM4b2Z_$YDHjD7x znTO#4ySzT4zAz*5%ZDWm>><1(v_ZS>Z1+kD)w^$xX~%Yi2lmLv1KT^^19maKy-fU9 z9x&ly*q#{EZm^jiRY=G7`yaZWb+=0Jj_?6{lCV8PF|nPxZ&z}UZ#VmHz&_6QU*X&T z7unuxGGV(zN=+uF{YbX^o)Ub;w=V(v61Hm-yh~8siol-LZ2`~6***?Nd71&ZJV@_& z5Ac;}`lixevye6k!jn==@LrcwjZC}R3s!er$FT!@*q)jU$oHB|L4IV~B`L^2d#E1k zE{?wh$JSNVzx5Nq4)T0^tUJPYw)5?s?O=xO-MWugW`=4^Dl?;cg0Dc>9^c-)<`6odFKpgW1$%;*EP*##8p?3rKf;;b4`yMqsxjD<%Rv z4c59{d^BvfRpyJmyN7X)<0}r<{kGfV+Z*8z)zKchyJFX92*jZ;l!p)7gZF{zjqs2j zm36;$Z}2Ww7jPTNpX6{Hy|lc*myM9#5gNAp7nIaOmrTk{qg^%pEh1G(r>psDY%j<+ zY9#`DSSqRQ3Ajxfh9{g|djGC&bUXq-7P<%Sw*u=e8i!F$0Z`TsG))$1VB{~dkiifSB5yI!wo`qk&=gSh2 z4%~XXFAG-d#|({`;liddDx=;{6{XsE*q*VDt^dN?+u4}@&Fb7VaJ_YL>ITh0CaHx^ zRW^I`9=DgqYF8?S`CR?}y?#zqkAPJ&HbzTF;;_T;d%twop#ujTp?IkMh3ff9l6d>A z{QN=DMr_&1V$f~-Z~wdlYZrpGDvg&@%-`)S(@t2D_PYE?kvNPRmgL%EzSmq6H!esD zn5|+woRQUPcFy}3(GA@TJMg<;K96R7C2$(4etT-Xyxj9@HdTQ58mPYNXrSnDO zv#7zmoA++tMxBse4&|XZ94(mJ@3kY%&&^&nJ%8=Y5XYT=>!rwaE{=N2n-o?wqRVVvz+t*L`{Pvh!zBK6Imk#yrRJ9Ab%M3GZ6ipvdljT|H z^FWI?EpFSst;Wfmf5Gziu5kI)32!@*j(uZYnhL!BG7lJ}8{+8C)V`hh7WR5OP@6Qe zmurG|Rr(HgiRm9Lhj-B&1xhitAGWIr!+U2tj0ErFYzOw-3kf1RSIeL_wuj71Fy5a6 zz5W!o1A8Lt8{(B29zP?D3hyC2EMRzIk}OXQ(miWaViJU}~9 zb^Pt;faO*ne-_n)cY}Gtb}>Is4C9A)DzMvr!+SQ1?ZLaVk|nkouqS4+oxJ26s)(+@ zPR^bb#3lNWV7qz?Tq~h>yvJbc*OBzk6}D@J*uX9Z?D?c+Yxe8+m#0E?(XM^zw2@?+ ziMCnYoy`Mxw%5P_KS=MnJ8VbMfD}~wbw>5wX;cqDJS@llgQ9v~ucWo9>P-j_=8eoX zaIs*X@_xZ~Uj*;iduU&EMNrtDx=p|?wxpe98s4!zco%(n(LG<`oWJtA+>$Lwcqx!+y_EX`#v7M!tctyc`#nG$q60jn;Kn(9QRHi}|j)f|H;Hacmcq9RJod|Xm zS`VxB8wTm(07ekws2kqJ#p`#VdLp)WyxSvUQ$c>mj>8%OKMi`bu-&f9u^R&FzJyJ{ z?kUj;g846okA4DFNxu!4&w!ldszcSXI(7%unMGfKQ`iW_b{c?t13S{~#lwKtv%rq$ zVzp_IAC_=FZKfbG^cKez$ct$J>~%6tPi{ux=3lL`-A>y-+@5_dmurNSi+H|-?PcrR z-x9W``}J3_-AYHYz1(~A?bu!yeRrMhl2ASI!TTTdZu^{2|C}Ja ze-0XNDTnub-bAcMb=wcU$Jq|)u=A~Ne2em|h!~Jg$$POK-tBh);0W))ZXv1%>dLW)JN@kpAF@zxGhTu7Tl>Ua2G+XFIA#VSDi2*)9S0C2V&vtb3@Q zwVY^T-5phZ<3@M~c0avIG8}U&Jpnu4PLi-azCEU0tfbZ9N2T}!2lfuiSt_&ADtH?7NU1>+y9=x|$mH$ro{0E}8T_z7z5cvE{a_HDV@Gw7{G%gz*q%I)m&df51hSjwctf?`$9U?E}+C z|2yG?6UKe}uV6dV{<6M3Wf@fO;@c@~N0N?rfDJq=Hs6lh1J+t)CX~*?;62gunD!7p zHJJhLBe2)H%J{7;BLRed9_bHXasbVH+j|{MYmaY9s%+kTqa;)xXM0~Iyv^}jaY%ml zd<~1#Q!uK@1n;Ub60wq(B7Moju-(SPc6iT@5`Q(@^Pc;hbb0?3Ucz=r?@4F7BwK!2 zw!=GNyHkb+8vESFw5? z?Z`{+4{Z?PW7q4v&@Lt&PvnF4-x<8u95TH0jf*ME^pisO?GDCEs8Y;<1A}#MV9&dh zR~N!}-(E?rQr5lVZT0h^4&%1{y$&zAd;i_oo>+E$^t+?kzxtV9cn{UnOFKG?_1D`I zR8NjGR3?0^=v}ZKl^4eGUJG~B-O_2eWz}dGo*Gx!UiFrS_pm(+YavfHpb`K#vueV}*S3x^{ z^kKVC0@WF<6=y6QU*2mneHW5|JrUS#IkCTi2;Xzb;R9&L5Yz5p`WG`vOnZF$61Kl= zP3B$ide@Sg%(!n?V+q$)X8!1p{;0DZ|Etvga({r|$5pmzAb(ro-LQEDnUvg{Z$IwD zx1JnjK8MRMpVG4cO^^TW<3D-&Clphfh$n$6vLy*&JnLcj)*0TPN+R;fRE@*-){mL( zh-sFGaOa_zhuOPmzvHJ553^Y@Fv&(xz3U%;{*Pq%qWI#AFFyU;v-JE6FF4CQ{ge7B z@r3)RnnmFsRAFj51?MZ{^I!O{|45$w`7eGEdFq8<{9@35`PqyA^vgl*t;hk`%cGAx znwX+iFKwk$*el}a!)nPx4?JW%Qq;NaSxdAOEyQ*>5+C?a4_G2ed(lhwaQuVkVPs)H zp=5Xa_w6U&3o)yNd*eSDEU`x)+IkA~lpmu}eLi2h9!-ar;)$34@K^3nSw8Xpd+vSu z2T#kp-?l-1`aZ*q@42_~FCL;pcQ{|%d9N~l>k^gZ!lgs|GeWe!j|8v>omobwzbXy2 z;=j{PYDcbba-q|~0|zp0O}zK6ySnn8gH0YLwe! z&?)-0D2ZT7v%{zCcCN7(=Z?;(DiF1EK_T&~?G4>CGbURw@dYbx`huq7cI%d{Avdja zc3S7G5u2@VS4+U3cTH8Yt?h=0)cturlxv1JN&G0E~`_UlVcrf zJHq5*9_H}mS)OKfVZzwC%(H2hH`WWJp0}6mOrf4%+OueAZtZS~cD2d>#XUE_0M;~iy!L!<*4pV=8d;S1fwcOwD{_gL(^@ci3{;=IuNb&91p8KeZ0G~1KqWnm< zn@?t(?NxF=y4db6Erji;9<~E}*e-^~q3aS32c%+3CE8TpZi-RlY$t;FaJgr*De*|Q z2Sg#fJZzU_BiZ|K4C6KbQCFsB<-wKOeRmGgC-^;RS35`8vYJcF9xD zV2$mP4t8uu^%@!ZbCOB_Q+jM!Aw3>`cPXE9s!8fn^(QkYUh<|GN{!}dIj z?fXB!kLucl)?Q3|i8r<{%vn2x3h7;q?KyI$-K&ed zsDM4b9ZQ38yp@w?S(5hbx~FgnpgPhewqs#pPki?&5X(aA`gkv4yEehQ1mZZ@5YH|S zvz=oP-oH2uhW8=&fzOvE5!JoGxOZS@-Gldhi-DbW2lm>|Nb&6;AKzYB{$h<$M|F9* zcm1Ji@@+mD-*-nCwpR(googfkyGW?+6qDHrZvXt=E(_ru*u}6tZ)0ApXv?X(4<(xY z2M;w3kZ*XGV|y2#caLZL9TDBP7vvj!;w{Uxw-UORxD7cW%!6 z4Db7H-G}WWqt5wJ7uLu{sM+rXAa>!3gh$N`~!i;A{0g4euMI6TIKD?||X49D9?G zdOq!8d#rnBdqyUA(;l{?df09<?2Yjw=B>lTuQVY^7c9@CEPN-?@k3E_KRsw7lj!ghpD#ip>|*pBKt zUc+{K$q@p3OgoIkw@W;gS0@^u59#5m2+_(i7UN-JV{FP%Sw-~H0(OvR*Ms+7oLRzl z1@nO2_9c)G=0_@Q7r`@N7wb^XHUQ=hc6`u|%8W~y+MpUS;DvXIhrpf~w&!iJ_ngRT zv)Z)UdqMuz+77(;noJu-b8z2oLo{vBpq(nkM7Cd5l4krYfpm?_GdH#uQd(K2*xu%9 zK=>@d8eYAK)9W@3`?0%_4(~-swVLMJ<=8$HVH)8BKzJ{;;ZJ#g0`}~>v)$;CUITBe zc4<}BWGXhWV|!^dPJS3I-^((ixohh1QmEfHvuKi|5!(^9gB?V3oWXmj?v)aHJ8VZ7 zl6Qt@iI@gr-qK;M=HB~L{RMiB^2D$`RBx~Sa80KBc5gQE?G(bJy0^~zCKlCit!uHx z&h|RLx8JI^8Maq7CSzrrZ^w4-ecZRJ#suu*INOzEfW5Ol<7CEtyRwXV2EaMiz1L)1 z#N^(o{g27d{Zd7GRK<(DLygJoV&{pAjwe zR0hWAKdrU?+b`((DzMk3xG(&d>Rk=z^8>;Qq3=KOBspepU@i?{&gDpMAz7Fho{L@H zYQPbD`CU$FnST*%kAb&5pE{q+z$#yD=$42O9oc4fZ9AU&*2CqZ$;TD#Ju3$LmSmg% zT+A*KQTK1Y{iqKEJ^a9ff%Bu^e573W7w$}yJaoT{KT26E9^3MwdaJsRQ@!u^fX>ZU zcuxe|uDV2Jq`+Z_tn5fHnFnlCM8)CV*U!FWl~yuZy2Q8jrr}B}Z%Eg^-M8$yVW&tM zbU|(kCTTeoXV9%xMFw<_25DEXU!!`K_c0+B#;6DB^X>XjX9S5QKodv2*~n#Iz{oCoIFofTuqed@}bf1zFYklpRQ-9Sk4lrIP!I(XNUA5h7(St*B*1UD;D41{tz3Ae{b}smR_UY z+aJGexQi}SfB*46{>POoSEeTO-uJ%u^wUqr_QcM13AX#Q!MD8SEs(By6T*k>@E*3i zVPe?6u&{vb!8<1S=7um5Ahkp+mbUnmzcw~9gIK~?h^xlx;Q_nk<)%-}7OaxB`Y;$t zXbjPPr#XG}{Ytdy=ag)u8XJY4*@WZmn`yVirXam5e1><^;B>aP2`!%r*e$FfF%9ns z-@%UUq58A`@PZ_4AL0n?4}ZO29 z3ER6xx3BOM*vHwjEWNy!<@0d&;_hr;^b)+=1n;Pa+68&tQXiZHF%KF)Sa@~oYr`rh5UE8e(xzzsN>0`^<3pQpv0JEFPisoBjN z;W`5L-Pdf3rZ2l_etK%qw(055Ow4baro)Zh%64wH>y~zN+r$obJMGM=dPt+Xs6?R6 z;+!(eoa9Kh7r>jP9Kg<*x3L_FVfYfZgFHY5?7ZGw$lJw7RYh+}qK6&t4y;ZMBep~Ot{ZlVRaC#R zezT+>a|zqyv@71UD|i>Rfoot7+np2ZO%t8wcDM?lUd662WPgzXyGm*_KJRBv+0LtWH1V!L^>eH!5%(h1uaZycuFfOksOS{!FPyz8$7 zc6fj9yWe}_JC}8~>*56AC2X(y$q4Lt59#nO`aAX1Q^WR&iHQ$==tIEnPgMuf{W0x% zHom>HJ$Mh>ft}cOV2Aha+rxHv0R&%R5sFD-Ve-KFaBlEn-u^8L!eCOKhrG zJ-VEKI6Jfv?D5;8U0a^LBl-C6g@8ST>1>ybvt4c@S;DkecWNViOuJ|X%VyVWnqmpl zPL1}@#Iy(UkWTWFveJL~dDuQG`M>atAvYtoy9OEhP&$N1b;lpyp5-1&yp7>`Y`HvO z7cB|c#pGgl>^5t;W>GioHmlSVu>06UdVG6;>{+rMjvd(V{Zfs7?*n%`+kMXKx97h7 zNS-L^vMD?5U`KThoNW0>wmew!_wAmohogyB`1ZOsr`-u_VF$N7sMlL0 z+c$4V^>Maa2=4)M4YnNlc08}`kM2cPcppQ0AJZ7r$GU6J;oCyC)7jps9=3alK3xRh z;yBx@S{03Tq~@K;yTq=C?INmsjbZy91CW{!KCB)X-oTy@xoDx!ttjW%L-;&QbUeLT zKJAIX&bmh(>|O_?hwa_BhwX9f-M6#u@$J}->Jhe6e0yf}?QAz27?>Z)_JCbfoEi7+ zz@D-Uyr(A9+0MEj$#!@T+kstKW}NK+LIDB}`+5e;5(@`<$GVS=d$(MJ;o0Wf2g0}W zLbkv{XM<^3TTWS~wLxsp0w?aX_O;8~AEvU)Jvz8=CA74@}8{ye? z%GAWJ(8(0^Z5DcvuYybn5AWgmINO08-aFe--KZD}+sm{!-yR0SVBSM)2l=o)?`^oP z89{E?-f3?M<=HIETD(Mjd!F(zpK64ciu5#A$t4ns3khxg8QRL|E?v^8Lt_;&bx z9kxrtb`Nc*gFW0%y#?4)jX~)w7qLChdfPn=!$lSy)guqH#6lbIY)6j{Jqe`KFbi(G znO$ya*I8Z3g@*;^FRLZ(;oVwdCeaPytE9|1=N^15dWhbO*Rj(jgdcB{XM^_~vo}xz z;9do+d5Bsf75PVC2km}wz4icJn`$KYP+kjLO(suOY*bHWCSXtXI}yVR@>dT6c_)JS zcCq_*jbS|VRZ2XBchT-rhe;Bzj_@8v$@@7%(#F7)T@TxP(%CM_`%wR&ts7!|980(N z-WIzUXM3tW{p6K*BZq% z7T?aalW*L^UwQc6FZl-D2k&LqO?lVicugj3XWir5W8Kwcn08f}&h}Jg!giCoOXAy6 zJ(U@E=m@ksF^?lTbO zp@&l>7r#9A=hv3an%%d4c75&PyY9ZLmt?>7&2Q1Y_ul*EyT6=&TuFWYM^|kaC~mVN zV_6i^E!bi~zTN6VeE6Zd=9DCN9XLR-+;{QbUs1O|L@4c7wisM{b8;GrOYc;de97Sm#wGPz)kD65qyaYhK^jjBe?57K*}mN%Dqe+Ar!%8XG{gNqdF+BGX!N=CDXk0 zX#ob_nlxtnHdhj%pQ}g3`K!$vSyz%e4fW-9sB2#dvNO*oiW7GU`R_w zH|evTZJ*mhJKRL0Z8_U)jNQItyIIRBx>`E)_VL2Cq+m7-m5>@{;=J6MSoZ=0=SY4wsYenF#iXgs&WlF+XHqn6V3$h z9s;{53)1(>)mzJnKY`VWpj`J|J>_EqPtTEg})%{MgIgbrjtykJ)B+#c8t@15{% z089~ngz>O_JZAO6V`F3X^88Ppf7(r*Udnb)Wp|?XtYE$T@dhTcxNT zyg&NLgAY82?c#%98T81v9?`z9VzXVS{`hwvkDh$|Nh+{6wxc%%Wl2QGnZfPI$%;E> z4X`~<9^Q-a4e3~i@P+g*-xvAlh3yYN@-Viedft;9dGHSHxBU4nB=JQH-Zfalc2vjq zylJK;a2O)D)A0`JxfH0125kWF!rX!c+q<%Nq^iqQ4;(n~`Mn{0s4jXcU{ADhdlV^b z_u3itPWT!vsm8u{ZG97u>lpEn)s-$y%OV$?2n_$1^VSD11 z%O<;KJ~tI1e3d&!GIL|i==f5?&tJW5N1Ns`F>Eie7vanCQlH36QcK#o0N7`@=<6JA zjf#8uae?sUVJ;voTDrYm8`%i*({2c|d58h~fcKg0Zo{gv*x4?z{alXPw;#6GbY!FH zYr^)0od!ehNFPLJdrB_MIkwwE!0xjuPq}II0u8FHA1_gzXtr)eb+OcLEH%VwGQjAy?#HLiGZ>-?^xc?JhX_(unH!-5s`@^)ZA8_TXLYY`=5AYn1NZ zbMx(F-lGn7N!T8|WBaNPtqR*uJ9QbsJGK|lU-O!<9nz7RSC`~YOksPo+ed-3ip|L< zpZw3UJ%kV2JKnA3ud_XPKkluk1?&iq?e0G{?%P2i@+GBErGqrE?W`WCKEiud+8f?e zU`gzp_pm#8Nw#mH1luDpvG-ci7%tjlkDiiy*6~P4lI@5NRRs1ZtWM0U5E1?`*dKT> zP7>j_@P)~%-9I8^h!H?{-2H$hy&_8=YG^FG(>z3)DbJ*HjE#>4gwb_t}@ z)SA`Q!M^E&^JCiKeeJntLwdkoam4oc_VbsWMPd8uGfxZNQ9WYd*L`3Gs)z6a`{ajL zNKk!D=i&KeEiA43@QNYvL%=VH$l*01yt|!J@IJk9Q`eRaEa=umNT02a%WYvhut(V5 z#i)13o?i!+lzUgPXAD$T zU7*x&vCXju?^7Ezs2lc)w$H9d@SfQw6X&mWjq0G@0Ritrr6p5--B8`5Av~%F>>{?K zI?Y~XWM&;h4g=W9ea6MSzq*hJsAtR1e|1X|FSj)ten1_w9^&sGe9zZ*>*1A)QxW(ePdc znSt;xWqWEetKPW`)hT%IY;Va5cn{lAy$isXC{*tY>*0B;x&rpZusw0|!gU1iNknX? z^dP{yWZUH%3CG0kS4|PTSAx=Q>fM07KV;W|u1tIL?ZIyWaKv_rg;`z+yFR)c3DsHm zxc7h^+ov|HE836H8n!1|y+airhMPFLli=7q^T6)5O;kzip+NYsJ-)p@v}*GswpW{0 zlj&^t$5AO}+q41c?byDgCd0a?AoIFEcmv<=nxpR9 zAswqd^w-%gVb}eI?TRe{_#5B&#yjq~Bj^@gzT{kBf&z)B7G`T1#5ysv-+J-sK^)jpt0^L=YQq zN%o#LVVc9p!H8LsM9sv*Cx7rHNy2joLiEbcOLVOIWLI8dyY!9N0OxRS0DVUWc=J=FL!%_? zesB&#eeC-f7-tiTUBBhV-PIG<1hYBRyAB@Oy>sW?hwc>VB|IOi6&vYG2X5X=UUE)D zIX8Xz&>`~LohI(P=gU!j2XDS5$~N7`sBS{qs_Sv=o7Sw^@QDHG2*2TD=ZWk8-}dhK z>94cA@B9zjPBWeCgh`Vbw?M~^iN`7qMMX9i2nz`rMM93^#}+aIVOy%OEFmEyOUMX6 zNXRHL2!T@7#*Vwjj={v(;5rywC(f|2P_~(*+v#k#JDKTB{)hen`?~JW`CiYlWU|{| zcXH;M>$#ruz0ZBlxxeSU&*yuc``l;ePI%wDW9iVYoqTvpwC}rZ8{NKd`?ermT816k zar^#Tx9|I%&HHcL#=eXJ6niIC1a(<@*jX z)H-v#-l-j5xs>}4pE>ye3rm+jbByKw@AAoq{i($=Ol2 zZin?zmtb%{-D7HSX8+b4nq+hpi^h2NThCl#QwDzY1bg}kV`$V;Pdxhg#dBZftGAK< zrFq|<+XUy&ojiGhxtD6}*68;5tAF!q_fic7MsMr8?g>*g)(vJ*`AS{fq27es$(&z* z{q+J#^=5m6T`;;#zA4v*Iok{AV`{cvebv>?c3^))wl`OyHF1mf%;95boR9MFJPvrf zWDW2#13Q@e7YcZUZ{Vvi^LufhD#k-ZX0}h@(@^w9HXy%s9Me@aztaZAJ_?C0) zJZ$$=TC@G-@4p9 zNZ|Niv2i<0wPCyYzz*+WJFp8N9owCB@c!y6uP}t?9jpEB4`BD}JJxI$*v=;|J__u7 zsBV+O_PjIXe=_|H(_x_LX4Bn6Ixf9jnvAywr@>2&_?Eb^p z9`g-0&`#cWG+^fe9KAz$Z1+((kLu7J>rZTUgvS=es9@b0~+z|KzG zSHMp@@K%~J?VTFU_9nd7gE|5qdvwax2r_zSM)LHL%?RP2^8WO1J%i_S!kdZe?9qQ^ z7*c;858L4#)v?_ss{zWw)4&Q5Ptpo^i`+uK4&|svsKrvVxjupeS2ASJMqcTvJGRKqGH^RiQ9r=K7si`aTdg%E*Y5n zHv&GWhk_Ic+llth)mS#4T4{p#)NCpLPMfEj`s+nIu+!~oh#`EqJ`sM5x*r6!Xb;=J z_nc=Zs}J@I-+3Vh@A=3~&{Ne4-v9jy-otjAgzyTWcT6TEU>EdER}+f;nJ0~6QST&b z``MrWtidjD%m?gm$acEj-VLNr*pFxjc6b+G!uH@DTK&X^ck2Cew!ir8=k#NQ^jwB& z8)l|YopYAAVGZ_XJJDW=^fAgo+O~5_@ZO5O*$(gZjyXT`$DmbwgS}EQ_a3C%L-=O9 z0Mf&Dc$bZ7yhpKz@W4*AAN|O#lJ0}g6QY+~0yZld-45@-UVZ`ggSSkI9oP%#PfPXl&} zT~Plnt_vzrGF%k^JM(1??-#_0df&GjwZ~WNp<^fEoqA`$o|laCkXSu7#}Va_&JAMg zif9kpgY?Nm`Y_w99nuuavw92Fcx4Haqq;2OC6K@P2j_zKu-)oH_#BzRyORsa8N4UR znTYCb&32m|w)61bU_Y>b-yG}+-)yJbP0{U;PPd!%RF|u1=^n+7?Pl_CsN2JK9^UEp zu-%QAkUNu z*aL9?c77(fP9*{Rur0y%q-A7dvi+pHYz(S1x;>(uZck1o>!RBsJz(d< z_Vi|S9bw7I_zH&vkpDexzlv9nxb6Pp%iVb&>&jfL)q= zvN70R8hatU>nc#4XEt|EW)kgkGFvtl)rTb^L$|luuU!3LJFqjEnSh<&b!&k=Y=`%- zJ-(1W@a|J=2X=<=6nh)0uh?LF@;1%(5fs})Hq^!TWM;58y1o3!$?#=^?ZD2Um^lC{ zctF-=lI~%?8p?)H57?E=zku(f@O&yZt_9{qw@;Vjq1c0Wa=jpb-%*gq_TU}i^KQW$ zLQ`-2!FFJeS!t+V_fMr|j+JzedT*qM>U=iIBETLG>F}OAM1q)qu|0UNV1Rw{L$qT% z!}FF^^B}dwlk05S{*jYOS|)4<_FX%cE@!)h4Esg8J!5|*EraduqK56AlljIszH#%- zH^aCI(p?C0Es&Wv{JZOgp6%<_tusJP`polIcjeozju}-(jwtV4aO7E?(T9S~iwXEuPxu^E1=7CBfbw z{p3eKVRpxyMlRmkHOzt5Jgp-Z0FH-!f}M2F&OJekLzCFu#*~?cYFWH5qo_D?UxfkHj0%F@wVh zp8KO3kCzFmPrFCUzjo2G=N^3Ml^%IzkL)s^FO!Owy4ktYZPxwzJ$`s;bfMvw_S5ig!qV8cY~^Enw`?uckF?C8+iv&o z{@>Zo5@b$E^zB2a5AWZ$R8s5Rv2h2{ zyU?CLc5m4cH)r+O_o-jd`}QU{a$r9bpT6%1kS-rO-tzJoP$0NjN@kY5A|9BC=ZM@aKoif864lR%uA z=CJgBaWK~%+Y{BRhe~IDXq-8Dj0t32PJa3jJ9=L$o*B0U>P98EQocZ}XT< zVzA7xouPV$z$)=G#tgxB?FQ@_u$K?j3+&o+ust=PdccnDAcpF}yBm&;cL0ZXhNbj8 zP>1mT^-=H+`@kNyANr{7G)?$=cB#NlpMPZ6K6h7#L2=kFffJtdkj?`63Px}F+@;;; zUTvFv{*K$##;d%jo@b`URVIWtzwplQsq{OGTrZ3du$LcH58+WA(1Q2){5w(o&>@fy z*iXB!>fx#Tj_QOH!iVkY12boPzA4|eZ!_QHbdz)>-p#?upm+*K_J%h0QP@7|{{^l= zJ9jp*JwbS0yd9A53Y+j@JFwSf;`6n}$?mToBiMfOeh-2b)r0r`k>b;1hxfCCe$lwc zdax|Z0(;ob=NLZoz)5%q_EYyCp9ufZ5cb2LT|SBJv3~QQz;Rnt9}f$M?S5rMz~^z` zX1fNwob87{xgXf!J#4?>T{kdbhxeFQIw? zKO+V#269C27_i5Bj>^pmzy#54Oi+d*j{MwlTZ{_85|5d%zCe_-4-HCCiUQv=alsJ_f0-;bF=3W_vn} zVSCwv?R5Ks>cM+;fC+C4>CZmv*yB;%(HOk*FMRWv;61t>-W7AElkPD{ZwuSwwOhc> zTZ?sNbpd#@Jz$6EDE8@Bt?uqaw`&t~!gh`Dy>CCu3haaJ0XrYCBYD_Px<|d6({eX# z55`xL@Fn0UJzv-#VCSiKY-iE!hd#2CMP{RV@J@a=*aelDA4nGj?2{jTZ%B7|-@o&A zY=`Iya&;Iak7&p6!uv<-N5qt73EKzW`{t=Vf^>-&qP_fJJI_e;DE4?{qucpH`Vj4N zw!=HH`zl%Wq94yC`Cg*iDRycWCH-k?xi?ldr``px9J$tZ3@BKDw`0%4NZJR98=d9pn%0uS?s({bi88knRCHwio0F z+oRjV_IOke-g#h;!F#s3cEmHhgYEI=-HAy;jmqfZdafnzhJw-M=jlb8vYmF<>$R= zbc{foam)ER+tvKKF;WKD!*<2Oc0LIicu!6yYzKL458io5hxbYL8^UPlcEWzn+azQP z>@qXYJ=b^#_JCU9X1jn~r`yAJ-*4D1usss>t=myOnVEn+X9~6l>^v-o?d4~;gMmFp zx<54x-otiP(e0g+k&TI=Is@~0P9|)R)@{))NFF|ST0?t2qCFnlL)Q?#!5-Znv0bWL zeje(F58L^$9p^L0r)@3=s6G*XDE8Lv0ekt8jfsz9uYT`)?!xw%oocoVjCDh_^9A{l zkl~x{2`Uvc*j|~LMM9>KHGVw>?=Xq#VLPg0d#vUx@^86k%IB-(VK#UdCx~LNf88@3 z8T;1lA$Bo*^h@l^L6-Gt&q*Bb)3DtZ3al}ybv}w6$;%d^y@HXD$$Z(EHdGJZ`P`L= zbZ@X1-+#D*F|INn-M#?3=RO_+_GUY< zU(WV`Jsz}8(e31V>-G>kUI957U^f|jCTzEe@;&u)tnQ+s`mg-TukgkS%Rn?q^>~Hf zwX5Eq@nq6tXX$sBY`@!!hWB8v{Ml=HTAwe@|K(ryP%2U5lQN&>&tX={@SOKrX^WH} zcTw>cVByz-YKRZIvq)bH^44r#W+vQjw*UO!|NKAyr~k}U6;oht>1x>BSFBXbvw)q~ zecjRF;edH-(z(N7>W1cpVsR&FLdtLI(xwo?B}UW z-YN{2lrf_+7+}qDqi6Q6v`)?lGJYUW!{cN+y=Th<_PKW>`1wD6PKEqyue_2BOsMYF z$uE89xme-)(Z?OGf>&O8nI&*8TzL4)TISiOO4VOH_hovXfBX+FxE93cqVU4A&q~&j z`WMe#h_`tUd%43fa!5Wi8B6G9iPL*C{>h8=el#t^r@xR`@XVu+vx_beZYX^I%)=*6 zvfPPVK78oJ!Tn``cHdDR9;4NZmLs`wbk838naA)GpBVj2`0;7{kvs1^_KAHw{2q~n z9|HT>-YKi&T3}8{9v^@o8QGN-o|YQ9^v3&COm=0(QQaF9!T^G(uq{E}0@B{4a-MH-G z9Dyrwjp8UvJj~bU!B{?lXO|$FRWQt3mhjD|oK9lmd#3T(rP(*J%P?Dg*if1QQyJHq-} z;37EXaE_J!KQ=xp&acS$Dcw{%^7&<3UJvKi>!m=xlILvscnt^SYRIQC#YTz<^EC)_ z35YrPV@Ho1VSDc0!;H1a-u<3+?7Dyc4tC{lUUTg~dwa|?q+V~THwzRSYJeK&O}e$1 z{A&Vy6I{#8_&02qcsB^78>zv&e^K3Yte3DI)zkG|fbG*jVej;^)V07)v^U!k9@|6I z5IZl43*Mm^nGv-hp8?p%?NKFz;;>rbzy81fnx!5n_7lK@vF3T|Nu9hpo9%+$27ynp z-2+7B$K$1ewi>AP^oN1LfE~Wbbp`yJKpaTMr-vT4`!{UI?U!^{9FPy&3+%8z*j|Ej zh7c|>dn{fgy!mxeXRGlQBenxDk1i^de zKzi`rY!BhFJ?2!h6sr#KUwG)br=Q8cJfx=q1uy*3Gr-O>RG)*r&XHlxg>zpxTXzAz zaMlooz#g9)RkPbwm1#Hhy4}oUr-k?P<59tjkAXa@TRX5bt%~hW=z%cU9;)-e&WG(q zLj41Wr`2OcPDmg2(4nKt2M@8}{SvkV`$YJU?*?jSWH8*O{KpO1yL7pU!8@uS+qZ`m z-jit=R|NT%V|VUO)12zUe^Dg{Z(TfX$=#9Sz<$-n=zzzv^vQp*p;W@W5^Yc2h9UH`_ya zU~hfyl^mC_J$TQ(SL$8hDqvC}-9Be~gMIZIv7K(OvCYRIiqY-ZjstmH9F{hs!}cb; zk60o4zy8;NJ-Qv$li{&oT@e<#J^yAAJ|98)fBMV+6jK!rq*_S7gzc^uwkmm;W_uW@ zuVcW)N4lHe9Uy@n8(|jJ&5sY&`I7F7A+73R`JqLDUC^Svb-Mz19=0dI_6h7>RXix& z=bGoQi}s$L8?SY6zzCY{(d}7;pZ9ogxjrYn7}8Z3PqB9@CW;;2oe>VybbyEV20Qhh z_95LFxz1i#usw49#c!8fXA(!uxe(os?e+-U3lyhL(e07$t=^px&I_h-CiSl8&!Bp< zU045Rd+;9J9=zjQ2oLhW-fZ_nyYb#&KY7mqRA+TL7`pw$fdlN=-aSNn45$P46772{ zIsc2;P8C-c$Q{qcwLk#o#CiKU+l%UV@8wVI*~fsr{9wCHwZRQ`crT<6wiEDmzxYr+ zjvBVZJFtiC6Xy>Zoot2ewu-=xhx8WhNfi4=n(Zy!JMdiu@1@>r=&cguBY^rdA$;+C zV7&a$_Pm*ewZ$t_quZl<3;T;P$3k@rmW}y=e+opjI~40^9LfCCpF7cbcN7KerQR1$ zDpfGR9=4->Bz+5bV6Xm}qf<>h#g6R`*Z9V}9Fb*=4_Y-w^RQCufYqkgP&33xI*$(e>wiDRFyCAIQ;XPmv;pe*D2m{T0 zRHxXp6slvp-vXDj9o3VTiEh6nClj_e-tz)b-ZY2v3e~-GbT%RZq{A}lUViZmRCGH~ z_oX3JSD|9zydb(g6jGpZ6vZCG!y2&rwAmi%uCR|H-NUYcJ#oAO*dDw$+XczSM7=9B ziFS}5uMn+-%#7_a@CB|R)Z>G9Vm>*UO2|k)58a-$Oy^`m_~2auw^NgT$Ip`ML;v$( zdwjE9VB1`nViE10^i)1z=aJbQhVbwnu%{Uzopg7s`d4e9x>F#!9ouvELAo098$49+ zoJ@4PbAdU?6DYZY_i=Va@bGjyU;mD=2s$TY?XBB$=`87f_FQr@^R!H5W)4kwNBHDX z!%S>P^?0H^7X^Vm3fp;#J*-A}avjy-=e*w`(S$(q40_J()mNQ$NM+B zJ$Q$7y8RNiN4IAiBHh#f#~f4-!?ArTFz`;X$Li~-ZXu=Q1;9?U$ABH)TeOGjz7ZCl zC&)WBYL3jqa$SonSP&a{^AJSv9?@O^9DE++AD4iUrJ3+Ps2Dtk+Z7LO5APOqA+Xt1 z^A{e1bk;$1d%S*wVS7RTs7JAmG5d(&5$!zP&TKQU&dRrpTdR;RX5;Xygc7#%kRGao z{G`~A9y@7RhDExmb^Emai-e35P)_FPA*(p*SoJB>P!*4Rtj-sZ57;#`~@84lT%gcnp)-!)MPjyQ9|+9WJujz3)xOMP6SQ_e=%ITv?T0`4uC<=*sxEx4kXhU_SW44MGYNW;6sA~aSLwC%-v9LX? z=Jj&vV){MianU*3%~7nEdc%5fsSS&Q^x%D-hY8i?TUg#b2Zk^XuvjhNQ&0X?2Gvt0 zY=3TW+oufMS=b)D2kh9+P&as2Ij{%s6nnG%xo;KxQ9aDpE2gb;HCYzh(s$t7Enh*ijwZ1;7sP4BJC>H8k5p_<&ukNa4z28@qOZ zYbBQaOztM|AP?+eI}hnG^{jwhTE^)=4BH>kNmyU9vuBI&Uq1KD#fwaE;jH=9MW2Us zZ0Dc&(z#H**?y|VLV1W^{I-Al2H)il8__P!9wsBapxG{fM02tfpJHa_qm*pjPQ3$uz+PpB zXs6p5q}M}9L%oOXb%V8@X?hyfd4}z%{_N9kvraE<4BW zpcib1_i!HJ1t@Ltw&2~r0Xy#&XQ&RmDW6LQkL~e3(ry7e|6l%NN%!b>ay?+@^HykV z7g%I&Vf#zpelDu)nJ1sps`jGsz9QQFMxfyb-dndj$4k0@>71{lM7xC5xvx%Of3V~_ z19qlbxonz zhoO4FUebNR_EPT$545>(1n+_%y>8~Zpd9jAs0H4~z1=E#u;hB1jcn0g_eK|ZZ|0i= z=~x$Es5yQ#hV42c4qa;C$D%rp2`F~^61*4EM?Y;^9oU=gkQ=-gpU2Crlg0_y^VZZZ z5WHs)mR9tcR|gsTeNvINQrh9^^U+6361Sn>-MnS9D8I(V%Q#H z=W-CF*HUA!O5U8{U9o1n)|hPcgaQA$ZMx9y)ccBPcX3(h_6i<6NwiIIW!gh*1IT?6wwv+Dm!oDzPADtY7DNJA?Fk&~}TW<%UxnbIPS5iDjdJFhe7%!{u z(vWM%ob5jCs;nrAollT8hV2pUVY~SOxFBo~)l)uY6i6A0JqGg0)l{O!_+XU(56Xw_ zz@G60LUn{^(e2IlmhMD5%R66yT|Sw|cFpJ>E6=L>T)t5Pp*^hF>I&XOSBKR!+Wwl0ednq5;Dc!fp?0XNys$YLwMwj zfqd9L`PZ`@*e46sJ@h&N($d}ASAl(GQ3~uvj1S>Ub<6hOv%k_ZMd=0J4;-j}hkBn= zJ#4Qz_pBuUYYU0U?y2z|Q+32ou7qzjb?$ffi_Ikt#4o8^&{Syg->+#qsGafoYby8 z_MzEJv`et)6_cEd+&iSF#jP`n~Tw|KrzQ z;{jhuW+_i&{pgifn83fP%H_bauYCWNG_`91p1=D2mzgsqg9!_=Qa(9eZ!Y#?`Xa`u zQx|^kEE9b5ktf(!zi^g0F*78r0O8Lb8)FF~=SZq2{Zi1=DdIl25s#g^Z?cmVGKzl6 zID{upfBJ-vn%IR?qf`y@Pc=AO>HP7;t7oI?QbGftI3|U1%KR}p&E!WX8KcLay03mF zuv}{ZKd<&HPhQ@4Fg|Np@$THQS~Y*HXwPTPG=I7tDU&_wT}!}In~k!Jn(JSNhe{Z|(RkAC$+9#nMiY5%_c%MUK|MixHls~NU$@1Cuku z?bd?rz|QaZ-JK0~z=U*o*Cy}|=}$jhuUh7%D}Mg7pEE&JXz(7ePk0}FW0Y^OM}g;G zFb_%i5Z-(-Zt!9I3vD#z2pH7?^<&L?9I(T?!oY4RQoQ`QZK{=ES(yyj&RYcAP88a}$eFOW$ z4=l$pIRy&Neti$H3oOo1y{-b4Y&jOZ7ZS%Mpq8@i0;heAFkgXK4P0~L7^=sXrDzsb z{J-zW*<;68*dD(E_Q7^wXAfJKYs$EYRFL(WX-=qKm#W2lGZ$B!EE1S!@3Mou?M${I zzSutWDj(t%*kzADr}K6t9Pkj^(M(edR=_^k4%GFLk+KHWeJ>SAG7IVk>-73*-?EQf z3j+4KDA42{)eOc*K1V%ayA_#Vm|fhI^wl@m)5p?Y0C;C+qTy|}`Bqec9|EVU&wP10 ze+-6DK_^v4;r=)E*FG+vvXR+T-mevvjCxLCI};b=2i27i)eXjLwNRFAR>n3fV-C|3 zGHmDJJumpsyl850#{*+1Ynr8bv|I=)rUUfQNc#3saZ551M$96t!FRG8swgN1` zB-dHk{=#>jiTXS-FTs<54M4%>rwzQNvX$8)RZ8}A`}I0@;tXYw9&9R~6N zyGwwesv5rq5Wd;2iENA>m<~J!>|r}kt_SR;-iO`}nJIQdJ!D+p!RP5`PQXsITV1XK zwoUNTA3qmplkRioKj#tNZ`O;Gcm*i-W_!Rsyur;%4HiZgdatDWxNtdJC{+e zMuNTXXsP#OCnDY99nzC{sbGlq&=1u~_xLDwz5@Ly7Sg?{Wk_p~^F_ZJ0ma^9ku}&! zcZE-X`eT{~3nTC?&ZywdFe8xOgW?t<3sfC zOqNQ^K(hBCBG^aoc={k+Cbe^xvP#~WmzFG-^m-X;DUA7qLrh-MTNx-VY z(HlPvn*<>Gr+*4kjT3g8@5Fy@%?-d$S#)DfUd*j_O!6=>94` z`xLQ*Yd}bBW_T`OA-pmy<@siNQ$1a7EEu-)bGED8w#IBgz>e+ETG$`C6!Tfi0DGi+ zrDfbCebET*MfhZ6e)MOr72bdFL(5X{0&*SLCtKuXuss?0;2nooP&{~Uy$g(&=xynq z`PrVZJvkzH7liFm?^BtPb)U1n!QN~S-hn;R-ELZA@Lp{@z|ON~yJeG*0d}S^j4RAT zI%p>?ldmQ_;+I8CC82uo?waUiNm@od&JMT`IJqL-`B0tY79<;!vvuO$g6+XOW}t++qhSMfHIEpm!J!>EV3)u_aZl#l0+P+{x`-%QdAoBdMN?F`&+Mj`)c;?8`jqN!?*5w?6D_wsAJA+!)-A^ zi*}GNiTm=)QQCQGHR#Tb)ZBjc`svVHpk%nMo-D-D}b+-a^j8!@@YWFY+*gSHJ&5miI>>c761N zO1#9=;bM1DSGw7ZTz&E|P$}6m^^F{t0}!qSM_)=ysjVKssk^HZGL@Mjp;;}p=npT* zoStuv^)l`0Vc6-}*zufHR#(+7ENlm7LEn3=V30Z9bs>SP(rbU_b=cJb{`o(CHdN=w z9JgHSWw`7oKl+iG{44+Vr62#+x~&ZCQ8y%78A!w=gLp5>%2C_T9R?7w*`C@Zg5%&{7uwt`O|JNp^ZeS)fg zGw1BdWk#!4Dy9lN}Qu*wWMIMF+PeKfn8t3?FG^8F!=Z%Tx4PUW4<7l-Qm5ET7|571Lj`p z(Bwdxe|x4mHFJ@;d-%aZdZasGTDy|g&IgPS8<^tv>$;Hb5x6<)&aC^hHD{5}=}#@o zY>7EcfaGmS{%giqZU@+yZ2aV@bU!KlvM^}s$O>k@eYAHqXR(iujBKGz^*A9DocWyL z?#pzB@dTEd4~`MrPLDz0;~mBi96Qd-%pX5;B$W%cZQHhX-P-sY-nBMeQ+VS*zV)gr zV>jM-BNXGgd!w+N+oo7e%$v-NXg4yLsr2@$Rmr!by76Q}bv`q7cQ>KBNwsd#LOQnd zrcgb2NA;_&T=j-*M_v6r>X*w%$Rz6?w*T~hTY0hxX)zqtyAz9(+C>4YyYdP{I<^Pzz#c2Sd&sd;=4F9lz>dj9xrO}@x?>BrD-6** zzzUk}MflgV9gx)q?=QVrR$%{=l?y?ww1$h6dmrArJQlZB^+F+Qi`CCPXL0rLRh56M ze9bpyxPz>sF9F$?_?N!>JjU|aZca|IOV|$VD|r92SLak0Ox+Ql2wxWzB0o0R zo>wfXIZ2FWdoWlyU35Xr9RCLL1<8l%jiq6G6CT*Z_QIV9>h+wgTdS39;hCn37nm7e zcpocr_+fkN_5$@FbJb8Vceh2JXByn5H!__nd62h=#Z!XM>ZW!}i`D zJYTs5FvicR?^o(?TyFeSJU7^0VE4;nevf!iJ%mT~6&ql8)_6`F(t+JUs5NXr!0y>t zR1erOaL)F-cI|Gw-}$jSfjw;BxMAzM_iTt^JG=UtYvCQ+0X%Gn=sDX1c5FxW;QA7_ z2kcSom#`h!E%JtJH^?x^1N&UJdnO>#-6=eQeXt$aV?_HUV9(G5z#hEgu#=jF?dqvt z@gwVk(!qPc&PURR_P|~?L_4+%Qmok?(aty91uAFMJL?Gmq0;7NB~!i@iD<7IyES$}45h<%crRN#7*&K{fZeKl9GilC$UmN+ zQi;Bu@jv?W*8=vi-ArKbXPqL~+gD=ekDsN|Be@q;Ut#+zKX`?DC)Xp|{pe`jj_s)a z^7mgtcpes>|JJh;;s0Gpci$s(bz`J^srNzkW;?LAZh!n=Kblj!!46z>`-Lx_Wzp?U zC<^>6P=DqGo>wk?2>3bMQT=kZ&*ggJu)X;iZ5$?BOAlorNSTm4Y*&C4W=DEl0O?Ez z&Kk#TD0YMo+bMQtUy?Tn-lN#z7keQc+j$1*C{$n{Y_HhO1rOc01u)EdC&fMpUsSgZ z!=t)Si}uzvYPJ^jYt>F`gsAWsq$e1REwC#Y-A=TJ?N9oG7P=kVV+F~<_Tb${`nTXY z3ktRmp0WWdFT9WbgggOnEm@!5e+qf<$qmqbW9^11$cHDYV zy|P1#t~&x7P^celj}O&>-QgPG^FGRzD<0S%d-RcbNYCgWJfsKj(e0={5&qtTxDz%B^e;Wh8ngZE~;o-iiRj&4sX=Knj}la}e6%$)6# zGmzeC8Eg;UlarB_3Eo%0{-txtxAV^HIoLyW;#`n!=kN~5<|LmJ-EJu}c_a_05k51` z$;>ErpVI0P?bx2ebGFm%fAtqXYqm$X2k+&_jnohxOEX^p={U@j?osKby@!Br)CcB3 zU9A4rH%a&S@Kz-Z)g#?2nB{Pa?E!oF>W&x>=`bFzo_SS`cWn1l2-vfV6yw#v++5If zVSDTLJj6O@dnLgC;;&GhFB=&cK46FXNcR@)VLQCXbd`z8$v`?oc!kw~?J-r6?#ao7 z?Gxdj_o}Jqo9zKRodfJS9STGvci}{Hs?zOYd*MB46It{Jmgh)s!dI$f5C-0h@SiE0 z)cfdE1A~yx>H;zD#v-RhLhpb*KDu3Qwg#>lbX5#vts;2m{o5Z2n(a6P?D2Z$Cm{px z_9zDLQ!wriHrNH({)zC5^{PBu70A2Hy)GvM?5;B7@l20uB78~rao2bv{9yZ3^Pu{i zt}x32cD{lyJk-)XnHhv9-J9(d41JzD?I{zRIiDZ4^R3$xrn-Y^g33)(I^iv&>uNC);wy)QnZ=TY5P!vlCkJG{GT z*kC7$!ggS1sm(SZJfyb;>|whKgZHgBZ^ibO?ou(Rp3Kag?Gf$R4#>aqMmZTwCf6$? z^ZJ~Oe{=tohxF)nUOoTQm}K&GvyrYhfS7x%xOd?oJs#^;>33hindH?4vHZ*bJu_DHd=(y@GkIeLWMj(bx{$@k+ExCeKYjIwFTPZp^uxMMkiz3> zgV};(J}v#b%06=_#WGq;ouz&zEZ*T#y}Qpy zeUvSqs4{0yow;C`{YuSE_r&{cycPtjJpGh$oBcZ_nkwm3=&p^|$#9+*8f#S2%}1Ld zs7l;O9UWJ44Xy8PkuU0Jh&(9T{1IzJ2r_4xnjk?vaK-le^mY&>K%!ThV|^U4fw zMEdgh1u@OHg^QfhSEW#>i*buV4;kh#HjbKyGGeYN=e{_-HBXyNHH<65vhT=s%?;MW zM?9ls+!(&n_=|IaZujs0e_1nk?bx;bmRs69wRFRp8#b=n$m9Gqzj@7@|EW=Z-;BC? zs+)ja7nk&75oB~<9-lpe>ZWQY-D86BIos!87th(=<4IyWu*Vwg&GyDS2w*$H3(}#T z4?W@=^0|Ks=>fX{grnG%gk>ZTs|AUh?EyOv>|uKs=qp0l?xz7$ZP*^L|NJLE{_&r_ z3Pivz$moJ$JFx%MP2rI}!1LDUa3l^bv7I`+mmmBbZjrM>qztcVr(pI$6k1U z4Rzu7hd*S^=dk@X-E2Ji^pe3|o@s;h{Gg}}Sg^f<%h;~dk!u#J!+Wf%T@YRn4*&ee zKS6c&mp}ixnay?qw*UCgf5eyA9`{&Xydvxy@&UWi zb9J|rfqd8=pOYHcSz0@IzXa*|_xW!>|J*m83Q>6gOn>t771w|R9v2G0gZF?PiVM-B zpG@?5r8@@R1=vC%hljW)2-|@j)oa1>?!ca8u#-BgbH%7uJyprLMw~xA(kZ7;&)MFO zZ5FJ?b3Gw^v)$9UX&hh=+u=PqoKT$y`LJEXlIu-%KVI^~q1k@o@DXM&0(QQ-#Q0${ zz>e^tx_vCjpE`}M;j@=>f#LM6g;XbMghOlx_OLx~Y0N9Ve0LU%HQV7m-)Zn3um{m$ zdog@m4g^_sa#Javjw@k%6nlKwu9HdF9=uD-1AE51IBT@wF>+UdT_f9(#pN>W#nOg9 zyobr~9>V)Hi}0u(whOcdwgY<+e!+Hu+|k9aoUcm0g89{R;OM81^U#gzVS6!rJc8=^ z(>@mz2-uGwJs!5pc)&X!winn9@p4^R*beC?qkHk_jqN6E&*;9`?qBoa-SqBvzxxf@ zPPzy0M7uN&woB=xZ+zGu-7X=+TDMc|v4B0&9Rz&sVSDvjAI~fCE!5#c%#zK3^w?kh z=gPpa;2lx|XCAJDcRt-zE0MhduQ`nxv zn@9D4{prUZ&q%_KYGo`7@4Pb(TNt)iu*gdYQ2n{5o(kb*axTZa#S5VeTPXG;f`C0f zY)_gcg#%%8l7Zn1=4AQ6GQEw-h4i7@i;6=bmt22P#(UTRdvv>9P+{1f{7H%Sq1)9^ za~5oW#JkmGk4L^@Le1bnk^>nPEyFDMG++Is2;+LZ9K3a zb%7gVxOICyyELRbpB)U_8|;Pm@C_|XqZY3s-2?Wpy{R7E-m)K)gLg~iJDpfP^5NKS zU(9d3XF+pp03W>b)vBo~3HgySsvMD$ZaTa5OxrIK^48U0hyCL7m+A#}wed3@UjL%= zxI5rehVAUkgQuG9%Cq3Tb-TcFS)_G)QvG3jf&DAz&zw5Vuw5r`=w?yx7DV+}*nZ~p znWOg|ZMF;Cc#Uqyc2tjr?a}RTy5dbm_66G^UHat`w!?cAJGO7$yt&z~KMazidVI58 zVc8gLPflj8+fhAi?`#aV>xVBJlZ1@R7O=N&$DhV~RC*{OPQW+Y1p#~1JCX#~A$A~R zjxvl^NA-X`a}-ON4)Skm1DUchhE)hpu7e5Bkd1W5b{4|$*pBMKU@P|N-^IgC1M<^N z(t`O=`wk0`|K`(AM7r~ko>d3(E7JW3CEbH}KByO{2i{X#5;CNF;eGrNunn!-3!Z=W z8l+dYXOWYE_gJ>JYW~S`tX-Pgxo?>C}&T{UgS3Evo zJFp8{t5h(?_{tenNN=059dlyYWq22KW`=0D_6EB^LZ+p=3V}W9J<1%(3+5w#f*5R? zGZO5Sb_|M(^KQC<26`apV0)o&P<D@@X4bwe(lsd~ zAtSI2!F$Tj7fCU?Jvo^IyJOh6cHe#x(%zyF^A7jShKlgiQ-9za{?ykWW#&zQ(l_a+r87&Ph7aj z@_a!*1S%-pEezxh>cv-ZX-s_%A=W+!oHCKK6hBy;<@A0aW{d(Z46g zGfJ7S*Ugj=u3M|)0emZxGa1){eB_nN*|keNfXGPjETrPkEbjR#eEQ@YEU0l9B(~YG zqxT+QwS|lE5Cl>vZCa8Y+_z7A9zQ%;?^=SBi_y;nC+*N3O=* z)s#Pc??H7|%Zw)Fn~j1q1_55&lsWAh@uhS8anGQQy?EgM*33fRMTBv*q41AqViqkr^|_^=(`fqj)5sSCEld)N-|4AtL|?a#mX61$x3 z0lV)O-k*KuITm(BMI($Ll;!~(*kgM7!MHiO13UMYQn)%3K0DQxSZ@tLd*bVlu}XIg zYzm%x=GnF$^fa>h{p~F0|pEx9AUxY8(3_3|`B;d_7x^Ek{ z2k$(jn;*Y??0DyJnjwLFE^20m?eNYZz3uq@M_Irgh*itj+0i)7_6H8w-;+G5AG~`{ ze6#)7J^K%R;y|-qGqSX5-PGH=FNE*?s^HUQp=j6+?+n}9fUfZl>FK;DK=pu~hu^k& z{l^aei)ZJFwrh?xs+E)pge~U}tZ>@=AFB`+xuMqdF9uC~!HM;Qb$rNnXYLP@Tv4 zb?ess?QEypb9IOZ_DpZccG8_;d*dD0x8AaZ@GPP|JdY3FLnq#4G2a)Ou?y!P4c_^_ zzbOdYaYN9Zw*~2Wc)4$|2kHEy7awI)XS}aJX1#s0Qt;%XkF^m4@E*cneDp$F#2``er*qiu>}JKc^XDjbAMvPFRQIsn>)B4Uv%S0bGI)$t zv4h?^RBRW7?eRxGaga^p@g6x!x=(i4u#jc-o{kzO@d&W<0Xw!cU~dc3tw@kKK46b} zKXK#;19skg1@fuAhWD5at{ogcaEo6)ew-;8lLn6+Jan+}e!K<^ILViN@^BlZv%`1Z z$xwZ-*KH5HAMuLSd-k(~yZ7$Da}T^TK`xa1-rc*x_TW8xWb-N*Z0C=9`N;h=e|c=r zR>8Xf*jb*e57>Fh1aiGC5T>zZo2Qz`B~r0`?*grwhOGhzy^4A=NM~Vtbo;m@9gJd6 z&1ntI64C3}V~$B1jOq;GA-yeB=Rsa;pn96c<{kOuVR+|{f9gn^)HnUiv*QK`8h95R zzwdZkz#eby_{>8zsyEmh?{l_$5h|)T-hCIAn(OwkJyiE1Y=-J{-9ETJu^re=2>*s` z*Y*AXmF@b*%gGS!YJ_(>{}Q&lpiuA8?Z7Uu3oN=F*crmJGhcl8;Gv^D%deXdJ~}XS zLa=DdlMjH~qal2<2f!|f8ob=2`aIRpF_`C8AP?!y&#W=NSqE7lmy z{EO%73Fug}QP5*Y2vFTu8R-t`dbBcl`}_l6}1*u@Ri3dTU7lh;9RfZcovMQrC8 zq)W)~Og0A9W0$bqN^=S5jTg+fKl4NQ`8MQ)ntOz2bGB!{_>r9XCaOD;S)JPBG{^RU zJs$<^IqM;aVUY?O?AV@9CqL>@6~affFP5#VK&)P?ab$XTQr@5xpKX}7gQkJW3K2H8URu-#G>EQl=#)eD~ZJT7WhBuJS{@NQBL7aakrLt<=dv2MCW&;w@%{1_5ngkMHfo_JaAIeUlBUo5NB+uvf6y zP5~gd5J%=%vps|-+TlIYT|$P1id(l7-g#yb7Q$QIB-)L;I21b{wnwzXEYbeA>vqze zTqoLffWh|8$w0SsO)ddZ^6H7gcO%vOJpH79dr~_3$^ZHlZ~oO^`*kL`;vc_t)pe_k zKft7D)~#K)ci&#-A*M|mw=uzgI2uio#Ixuw3adHlOXaWQ>H^f@)+{~x>7$m~^U*y#tc7()bwx0C_xNqd zS3CsRkpl-Rm@j_l;L`RTjzA9-?^s&eym_mX8eb1A{PwnRvg@f}A>;)4alP+O`O>2Y zig=U8BLK450u6X#G4+M)%&C=R=_PGA=Xut9=-?p+r`6^oL+d-r*Tgr;58QJg2X>!X z-p0cGyJz=ZE2qG~6jC|zmybPQbovVqf7Qvp=i_%Cb%8&4NU;0EJ5@_V3U)0mu{}F? z@ppafF6O7PZT4j?eP}!Xiwwr^+I1JpsvGQg+;&HEug>eG+gJV_*N!`GTVg9SL2}IB z_2JtqSTM7eomn&Ca(3o>4kWVW4)mZ<|{KELDb z+qZA~&^BgH1zWe>w0^2N+-~pQs8=cZ*L~7=uX#7m)~{P1$d|u)>-rnlvo+VPx%!`8 z%}|stw7%u4FgBu^*fvq@h5|E%*x|E>n=-knis!nihvdeS>0*L$iMW*Q77W<=u-&RL zfA}$O*gt-2*dDywcT~UOT{kfSu)}+^J?P-OgOK3RfkUT0cPbXP7itFHgJK@C-q4^M z?fJP~GADKNtSc1Ew;}N10r22G2itbJJbiRe@P4rRIhEmg2VzujJ20E}eEcp3>@4?6 zn(g=o?;wBZz=7DEAKiuFZK%F;X=iNLj-5R}zwd%~T;I26U+AuJG+OMgkL@~s^l0qF z{m0u5-@CspRKN4%cQR)U%d!pjeRtPwpgkYo1MGZ@7TdY&!@KB{W;?v^+OdOgJtM#b zU=Q0v_34#t)zT^4+n0M;oNaK<19^ zOYD}LxAH0}N)Ns{RRebZmMvQ$C}#fB_U%qIc%SBcWS8LfTW@FEw`}LrJ`-E+-h0=F zZi($uRW~fOZrRFiuf|-u{kGdVxI zUCY-l47PV$X)Z`-fXUyqZXLDc^R`&n&eug@fI9SE z_wKch2Ij!%OG7>?vfaFi-Sobjm^+>otS<}UH*eY$TYcRsVAn@Icn9`@FjQ=4{t%z46{`7bu+hbGENvzdjcf z>lM)LMu@LL;tBY-tqR+z_f>CO&BAtIkAXZ~v_*HtV|!ZzN^sunF@Jq&$q_!*>z_Oh@wN_T@bLxhv&{3Jm>Q--(W9cFgQ6;X#0+^ zoq7+|dB;qs?zm!5>12z?@L)WPx6l0e92H@EgI(b4u$wtYussIv`#yeG+Z{W0v>|Q4 zE-12%&E|bUlykl&y94YoTUb;dx@bBRKfDXxi_bfD@MT*jJsGwKfCRkTVH4Q>ARTPy z%d*rUJjD+0(=Kn=gz6h_Tw8wK#tG~*wkrngDJ-~U>n&}*mu7omZCoal4A3U54gMfJ zgLJzO?<{lTw{F0t?O}Vs62Id^OV}QRbY|E1W}u+j;kF_?p93trKQ_Ct#_~PxSkiVo zV5)8Vhi+Lh=pMG!IIADpt~Fw2niIUMGkBk~9pTeB*?n8Sb@SHvc{>1mPe}fTMy|(d zgI#uS*`As=e_&JF)|)qCdwg0igb&+;_wB#49ou>Jqy^#~OJO^|Wy>wt&X*9nac$$> zVQJ%IX{c-i#U68zgzY?Qw$~{(sGg_z;}O0%ztHVAC_0?SYHY``;N7L6EnqinBWt!- zU-UJru|0m>jUFjoHNbvD*dDw$+XcYRsQ0p=*s*<;fqREyC)(fokKal*2ke4?9kc}j zd)N-nz;5WUlG$TY#zcX)ZpZeO_4%K-U zCd4~;8t;z(u)R)%*ZqE+lBhTw-nNH#F~5=!m?g(9nR$7g!F$fT>FnDAJ4?ZP))KY@ zX5$^kq2m$@+vQ9UK5Wl{S0}>u9WlDS6EYR7SqtxV;H_C3zBSu>*4nRe>hwZ_8%24k^z^@=$1I8>Eu=CjNa+wvC zA5^E?o9#&#&-WMAS8V)}b@CSEhi>O>K*xfBJ^K~i&d#>3e7eCi{Cv9rda8oBr5#x>UUmJzo}I1jug%!F!28Pe zF7xwIFF1mYgX$V;rLAhdYr*ERQ^R*7Y`l46Tfn~Z(Ktw|9mcUS`9&kB6W9yC!;jTv zrFCer#r1J)|4{F#0oz%qt`b3xrQjXaV_|#aeeBwFwW_5S&83O3J^!#jiY$ogD>lF$wugA}Qs{Jh2#=7#d-);S3+z`` zDkfmR;@7SS+j;sq#O9mrf>z_rb_zTto9*v;&wF5;_v}(0U(z4avK~h@Uk#mmH@YvR zuUWI^O}~6a+yDH_Z(_enxBuEzzy79QfAg=sIrgSsyMn#>E%mbORo7m(_Qs8?->K8) zyVt*Gy|0F6TE0=>``xs$9)N1gzm=_8%xpgU`LiT>y|54o%msd0HvD((-piJD+~Me5 zyJ6!d3TUP{!4N^9MIGK{kH# z`!}z?cC{UkUrRE)YmFA**#^HE?fW2Jj^VZMUduMUZ?erF@IZ2rE#@%GF4TcHN^ZDm zg9Y>3P`in@Y}(T8wuFSkHm|Rrlgz2dZ`;1amUiqa4Y*-*%u*3cyx7n7PGu~OY3qlo z8E?N;reZQ%wRywl_&Eo5-MaPm50!2I;MOg_y=~VWck<5GWT@hoZgp#EtKZQZZ>$G5 z>=7}Op!RN9{^f19#W$?m5Uy^rJHza+zy|QO?;ohf-0;4e1ohFnn_{W$rnT!>&)oce zz$}JuTDR$@8OXAboj#3BVhV|>%(#;$Bu#4Y(^K<}LYlHbMOWQuUjcs1PS(i2o zT6-*U&GhYT*~;Ja-kUbRf65`)eT#2)A7*0(sej#j*Ok4e-i*Mr^;%#Y1A+}VtqV>C z>)*S6TIBk5^Y+io*VUFfuV1(Joog+%?s{##UbAT1(vUY*9ymU2HGLP?ug!Y-DmE73 z)A%>7y@~l=m<_ggHSc<#RbGx8BA3_Z`; zy<^pCre#*YV|CR$yxO|LRLifrrZjfUzgNBGDt;pQwX3ha>e?&+$(7D@1t@U7i2YCA zYT(@1m4k{Y|JJvR0#{xwKucTY5mSNTA7iW6tZlYa;CVoa_tcV(E+)cT$H?(Qyvc!l zbh`yZ_4ssj=iO{=wtFfnV8?dPv;zB8*RBrUo9*!areA&&up>NcwqNr$?`FC#U=P~^ zcHfr+{)QWGU;;<`4e!2zk2y^e=+EQKitl?Cf-T#&Y}mAc3Fgy0e~9WVcn9|Fz*s(O$(3o~@fL*mA56=Sjc$ApHvZmnU-}q1+*aaAl-n?G{ zs%`Al;WuM`z^*{HWFq|H_jt2CgrD;#RF8-B-WT-;@9hO;@4cznzVXJ@@XqQ`S+G3> zvx)>ayh~zpvUO{2U?KckuS^(*?GVjCsaU;!16yZ^Wp6*E5Rz1S6y+HpxN#kgzZ;dc@@vr{PQ(2gkSZ}RbhMKeXt$g z+roCImESwqZi+6A57^_A0pmfQL{I(@5&F0%vLEm74_c`0UeAvPVoN91}MQ(#Mgee?T=bRSR(nnLw08`m>(J?5U=bO9YQvcXQePb42audnj` zo0{!8u=#+!L_0AsMEk_^>u*R<{yheLo!IWRYYf{FzS%Aa+k^Mylf(Aa?_7Js_3PLm z{P-2{UjJ74i1vc~?3Ym=lh~fto{q7>_7L72ANfXdAr9W{U@bDhE^q<$n}UyS57>R7 z`M%;K+Ico_tNh?qKeku9t@kavBG*-e)kWu~_4Kx5fR6>O@QdomX$vbDS&oVa+lh8y z=TV)lT?5gzcyxQ%4(}m+s2;q}*l);ps~Yb*QldIPH*;1JS+k_pIDG1k#^n|! z!@HnwuZfeBiEp+yoE=Nz2=dU|BGK*ePPAu5bh}Si@V-c3Ry{L;>-bb5yz_WYw8t)C zyFD$L^q%#hdVw8;-?^FskA>|LGJ^Dx3uhE-OZjGdE_}7MqfGD~s?+VvCb7+1HkWPP zn&uKDA%pOAdleX66r$Vxo1FvpShejU2TQj%*s(qHU6BQs=yqU_&2uuz#_(VZ7uLmB z;O9T>xnR5btafVTWbBs%!@pq*yyHMy*j^>ySE9YGbHau9q2!a&uX+aFc~n=7XKC&D zP@UJdwglDPB?;TjLHL?~<3`e*VfzZqBi9@9X@cpk|TcsNNQ~N4gi%2Oj5auZzO?H54DV!=s?*+fH*TK@q~wt_417 zOXb>}LAv=GnV&KhMkZfR7Z2k^yVyj!o0E(TwqtU1J7}A4668jzk6Z}! zw=u_*yRj)lvw4mw8F*ukePA}NUAs1A_^TF^3Kdh{kdk~Vv^!Sq7J$@!CYxsopYpcN zM#h_yL2UTGFbU>AG;C^5+5Y(X%7kE=lPvZcb z+zqp--_CH@r+o4Fla`-vVdD9*F+VKl z$7HvXz{dL`!i3cM!4G~=aP!SK_a^mvHDk8N0VznE$M^U9yTALp_%r{g~8{}3V25;x+=zJU-GX*-4_u;qIc`|%!v=yfLEZc99rJi zVe+X1Y2(I?AOHBriP%01=11nd9_^5S1-*lU>@{x#=JRt58^=b_Wd!s3=W%aJD;y{E}24%9K(TAnmyj9Q$}89cQ(z-7@w^tKa_ehAZMlzeaKS~E0Yda zJ$2=RUQn=lHqFoO`SIW9qaB>L+x+|Tb@W6G^fdo2=I4>?a!>Q~Xdchoc7BG=x6@Jj z;l<>A>w6cI4$qmi<$Qk~fj!+cn|^yX-8!2xJNjYXCi8unf6?>#^X;5{rRx@Yr2fvo z-}yey`8i*2LsBrWe|}Az*WVXM!Mx0zWApXS4w*iHEn(zC3d*e}MwbgA1n# z?8ncy&GvM)^LCrpIiEk@o_U%1In@;k`h*gM+u8RV@V;4RsIAH&p^QbMX~|~f6lbaU z=yvUsRk%(;dS(h>w(%ae+fysLb4(!Pi_joemub$5d91==D!i<@h>Vfujd!Vxt7Jxzma?q@$>DUYn%DL z&&yo0u0G7L9fIQL#}B;pJ?M{&>3w6GUq}2FQ;at`s2rj>w6t53)e#6s{M~oo{ps1{ zLH2*Wm_9$7@?2MrTU-xDZ2Wv*=Er~U$R)v?Cv(Qm&;2)&&xP5`??QApIA(X7n8d`_su3_oAh-5Vv@Ja zHl$(a$Mz6(lbat`bG4d=)0{5YTU^K!Q5TWdHA^8IFyADK;G`qG#F z<(NExqj4O5nX+tl1_pbYV`u)I&iA+X(MHarCtnb#k@X zvqN{?brzAXBf)mS^qxT@x+sQ*F{^1lni*m5B*D z0!+2O`Xfh<@CdVS-@f>J?zu;5-H~8fN0hD2aTT$h>w>+rx)p7`Z5yii7uI^Z?Y7&p z8G>D7IyI)>`@P?5-EM!KR*uF!d-hDK{a^eG-=l3vg9&64(vth#qbmwPi|9mzQ;RV=kR4S9e2A?~3E}PxueP6j;q-HJV`-+mWFV^l~khhN? z9h0vk=e|!r`N>cEnHf~(_ogrOV;}n%uf=j0J29Pu4pih6_}9Uiv$c0npnRnJSHAL< zROlNqITU3nKlQ0kS#Rd>HUy(=uyyg!j(B`r6mN=6H75$J-(zco;mrjS=#fuktlYMz?OoHr7yp42> zId1J{ppmO~>n?3LXTs%d*Q(CMP~D!IwEQJg*q%>$2n{XmW9xP^fherz;XNk>I0$mG z^R}nUToTN4FQNM1!glNGYo(y;7i8nLt=M*gK(;o=9^?ufQ91DiPC8A*JG`BkIX(H( z>x-%PUEmlnWsTNi?RH8K9fIvGNUTeo?TljdZ{RPOZ}U73*fXcEWdi$UJF|D$9uyVW z)Sl+L-7%R<8{Y*4^L72AxEB=6zovPcx1P}&0ek$s&Uw4dwaPr6m&unB-}N}uI~L6M zrH>O|+`P_?RW;Y`IRV3D*zCoVBlYPexxx9m<{EY0Ci6Jua}dDiZ->+qKX1dij=iK!`rp>=2=CPEDI6Xr=x^E6zO1AjuwC$m^<(>d zUs|*a`Z!nH{CJq}Z`7>gN6;Iii6A{qCsaUAJPmqp~yvbpZgEQhG$0xkIl=Rd& y1c7S}Ch#VQdPKXE6#pFzyp6>6Znt^+Cl1^H&i`Et{9OzDT?_nO3;h4A1^yp$mCfV; diff --git a/src/xrGame/ActorAnimation.cpp b/src/xrGame/ActorAnimation.cpp index 7ffbde2989a..7e7f42589b1 100644 --- a/src/xrGame/ActorAnimation.cpp +++ b/src/xrGame/ActorAnimation.cpp @@ -291,7 +291,7 @@ void CActor::g_SetSprintAnimation( u32 mstate_rl,MotionID &head,MotionID &torso, bool jump = (mstate_rl&mcFall) || (mstate_rl&mcLanding) || - (mstate_rl&mcLanding) || + //(mstate_rl&mcLanding) || (mstate_rl&mcLanding2) || (mstate_rl&mcJump) ; diff --git a/src/xrGame/BoneProtections.cpp b/src/xrGame/BoneProtections.cpp index f14d24735bc..8bff68591f4 100644 --- a/src/xrGame/BoneProtections.cpp +++ b/src/xrGame/BoneProtections.cpp @@ -51,7 +51,7 @@ void SBoneProtections::reload(const shared_str& bone_sect, IKinematics* kinemati BP.koeff = (float)atof( _GetItem( i->second.c_str(), 0, buffer) ); BP.armor = (float)atof( _GetItem( i->second.c_str(), 1, buffer) ); - BP.BonePassBullet = (BOOL) (atoi( _GetItem(i->second.c_str(), 2, buffer) )>0.5f); + BP.BonePassBullet = (BOOL) (atof( _GetItem(i->second.c_str(), 2, buffer) )>0.5f); //Alundaio change atoi to atof if (!xr_strcmp(i->first.c_str(), "default")) { diff --git a/src/xrGame/DestroyablePhysicsObject.cpp b/src/xrGame/DestroyablePhysicsObject.cpp index 9f6b1b5771c..f2bc84b0740 100644 --- a/src/xrGame/DestroyablePhysicsObject.cpp +++ b/src/xrGame/DestroyablePhysicsObject.cpp @@ -30,7 +30,7 @@ CDestroyablePhysicsObject::~CDestroyablePhysicsObject() void CDestroyablePhysicsObject::OnChangeVisual() { if (m_pPhysicsShell){ - if(m_pPhysicsShell)m_pPhysicsShell->Deactivate(); + m_pPhysicsShell->Deactivate(); xr_delete (m_pPhysicsShell); VERIFY (0==Visual()); } diff --git a/src/xrGame/GameObject.cpp b/src/xrGame/GameObject.cpp index c63a8eee169..b547b301fd0 100644 --- a/src/xrGame/GameObject.cpp +++ b/src/xrGame/GameObject.cpp @@ -284,9 +284,11 @@ BOOL CGameObject::net_Spawn (CSE_Abstract* DC) demo_spectator = true; } else { //R_ASSERT(Level().Objects.net_Find(E->ID) == NULL); - if (Level().Objects.net_Find(E->ID) != NULL) + CObject* o = Level().Objects.net_Find(E->ID); + if (o != NULL) { - ai().script_engine().script_log(eLuaMessageTypeError, "CGameObject:net_Spawn() | Level().Objects.net_Find(E->ID) != NULL (This mean object already exist on level by this ID) ID=%s s_name=%s", E->ID, E->s_name); + Msg("ERROR: CGameObject:net_spawn() Object with ID already exists! ID=%d self=%s other=%s", E->ID, *(cName()), *(o->cName())); + //ai().script_engine().script_log(eLuaMessageTypeError, "CGameObject:net_Spawn() | Level().Objects.net_Find(E->ID) != NULL (This mean object already exist on level by this ID) ID=%d s_name=%s", E->ID, *(E->s_name)); return false; } } diff --git a/src/xrGame/HairsZone_script.cpp b/src/xrGame/HairsZone_script.cpp index f8d10e76bbf..3d9b795ee91 100644 --- a/src/xrGame/HairsZone_script.cpp +++ b/src/xrGame/HairsZone_script.cpp @@ -1,5 +1,7 @@ #include "pch_script.h" #include "HairsZone.h" +#include "AmebaZone.h" +#include "NoGravityZone.h" using namespace luabind; @@ -9,6 +11,10 @@ void CHairsZone::script_register (lua_State *L) module(L) [ class_("CHairsZone") - .def(constructor<>()) + .def(constructor<>()), + class_("CAmebaZone") + .def(constructor<>()), + class_("CNoGravityZone") + .def(constructor<>()) ]; } diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index 71e81aaf276..4801aad3a51 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -114,7 +114,8 @@ void HUD_SOUND_ITEM::PlaySound( HUD_SOUND_ITEM& hud_snd, flags, hud_snd.m_activeSnd->delay); - hud_snd.m_activeSnd->snd.set_volume (hud_snd.m_activeSnd->volume * b_hud_mode?psHUDSoundVolume:1.0f); + //hud_snd.m_activeSnd->snd.set_volume (hud_snd.m_activeSnd->volume * b_hud_mode?psHUDSoundVolume:1.0f); + hud_snd.m_activeSnd->snd.set_volume(hud_snd.m_activeSnd->volume * (b_hud_mode ? psHUDSoundVolume : 1.0f)); } void HUD_SOUND_ITEM::StopSound(HUD_SOUND_ITEM& hud_snd) diff --git a/src/xrGame/Level_bullet_manager_firetrace.cpp b/src/xrGame/Level_bullet_manager_firetrace.cpp index 52257e52ca4..4ea0c22fe88 100644 --- a/src/xrGame/Level_bullet_manager_firetrace.cpp +++ b/src/xrGame/Level_bullet_manager_firetrace.cpp @@ -36,6 +36,9 @@ extern float gCheckHitK; //return TRUE-тестировать объект / FALSE-пропустить объект BOOL CBulletManager::test_callback(const collide::ray_defs& rd, CObject* object, LPVOID params) { + if (!object) + return TRUE; + bullet_test_callback_data* pData = (bullet_test_callback_data*)params; SBullet* bullet = pData->pBullet; @@ -44,100 +47,99 @@ BOOL CBulletManager::test_callback(const collide::ray_defs& rd, CObject* object, (!bullet->flags.ricochet_was)) return FALSE; BOOL bRes = TRUE; - if (object){ - CEntity* entity = smart_cast(object); - if (entity&&entity->g_Alive()&&(entity->ID()!=bullet->parent_id)){ - ICollisionForm* cform = entity->collidable.model; - if ((NULL!=cform) && (cftObject==cform->Type())){ - CActor* actor = smart_cast(entity); - CAI_Stalker* stalker= smart_cast(entity); - // в кого попали? - if (actor && IsGameTypeSingle()/**/||stalker/**/){ - // попали в актера или сталкера - Fsphere S = cform->getSphere(); - entity->XFORM().transform_tiny (S.P) ; - float dist = rd.range; - // проверим попали ли мы в описывающую сферу - if (Fsphere::rpNone!=S.intersect_full(bullet->bullet_pos, bullet->dir, dist)) - { - // да попали, найдем кто стрелял - bool play_whine = true; - CObject* initiator = Level().Objects.net_Find (bullet->parent_id); - if (actor){ - // попали в актера - float hpf = 1.f; - float ahp = actor->HitProbability(); + CEntity* entity = smart_cast(object); + if (entity&&entity->g_Alive()&&(entity->ID()!=bullet->parent_id)){ + ICollisionForm* cform = entity->collidable.model; + if ((NULL!=cform) && (cftObject==cform->Type())){ + CActor* actor = smart_cast(entity); + CAI_Stalker* stalker= smart_cast(entity); + // в кого попали? + if (actor && IsGameTypeSingle()/**/||stalker/**/){ + // попали в актера или сталкера + Fsphere S = cform->getSphere(); + entity->XFORM().transform_tiny (S.P) ; + float dist = rd.range; + // проверим попали ли мы в описывающую сферу + if (Fsphere::rpNone!=S.intersect_full(bullet->bullet_pos, bullet->dir, dist)) + { + // да попали, найдем кто стрелял + bool play_whine = true; + CObject* initiator = Level().Objects.net_Find (bullet->parent_id); + if (actor){ + // попали в актера + float hpf = 1.f; + float ahp = actor->HitProbability(); #if 1 # if 0 - CObject *weapon_object = Level().Objects.net_Find (bullet->weapon_id); - if (weapon_object) { - CWeapon *weapon = smart_cast(weapon_object); - if (weapon) { - float fly_dist = bullet->fly_dist+dist; - float dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); - ahp = dist_factor*weapon->hit_probability() + (1.f-dist_factor)*1.f; - } + CObject *weapon_object = Level().Objects.net_Find (bullet->weapon_id); + if (weapon_object) { + CWeapon *weapon = smart_cast(weapon_object); + if (weapon) { + float fly_dist = bullet->fly_dist+dist; + float dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); + ahp = dist_factor*weapon->hit_probability() + (1.f-dist_factor)*1.f; } + } # else - float game_difficulty_hit_probability = actor->HitProbability(); - CAI_Stalker *stalker = smart_cast(initiator); - if (stalker) - hpf = stalker->SpecificCharacter().hit_probability_factor(); - - float dist_factor = 1.f; - CObject *weapon_object = Level().Objects.net_Find (bullet->weapon_id); - if (weapon_object) { - CWeapon *weapon = smart_cast(weapon_object); - if (weapon) { - game_difficulty_hit_probability = weapon->hit_probability(); - float fly_dist = bullet->fly_dist+dist; - dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); - } + float game_difficulty_hit_probability = actor->HitProbability(); + CAI_Stalker *stalker = smart_cast(initiator); + if (stalker) + hpf = stalker->SpecificCharacter().hit_probability_factor(); + + float dist_factor = 1.f; + CObject *weapon_object = Level().Objects.net_Find (bullet->weapon_id); + if (weapon_object) { + CWeapon *weapon = smart_cast(weapon_object); + if (weapon) { + game_difficulty_hit_probability = weapon->hit_probability(); + float fly_dist = bullet->fly_dist+dist; + dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); } + } - ahp = dist_factor*game_difficulty_hit_probability + (1.f-dist_factor)*1.f; + ahp = dist_factor*game_difficulty_hit_probability + (1.f-dist_factor)*1.f; # endif #else - CAI_Stalker* i_stalker = smart_cast(initiator); - // если стрелял сталкер, учитываем - hit_probability_factor сталкерa иначе - 1.0 - if (i_stalker) { - hpf = i_stalker->SpecificCharacter().hit_probability_factor(); - float fly_dist = bullet->fly_dist+dist; - float dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); - ahp = dist_factor*actor->HitProbability() + (1.f-dist_factor)*1.f; - } + CAI_Stalker* i_stalker = smart_cast(initiator); + // если стрелял сталкер, учитываем - hit_probability_factor сталкерa иначе - 1.0 + if (i_stalker) { + hpf = i_stalker->SpecificCharacter().hit_probability_factor(); + float fly_dist = bullet->fly_dist+dist; + float dist_factor = _min(1.f,fly_dist/Level().BulletManager().m_fHPMaxDist); + ahp = dist_factor*actor->HitProbability() + (1.f-dist_factor)*1.f; + } #endif - if (Random.randF(0.f,1.f)>(ahp*hpf)){ - bRes = FALSE; // don't hit actor - play_whine = true; // play whine sound + if (Random.randF(0.f,1.f)>(ahp*hpf)){ + bRes = FALSE; // don't hit actor + play_whine = true; // play whine sound + }else{ + // real test actor CFORM + Level().BulletManager().m_rq_results.r_clear(); + + if (cform->_RayQuery(rd,Level().BulletManager().m_rq_results)){ + bRes = TRUE; // hit actor + play_whine = false; // don't play whine sound }else{ - // real test actor CFORM - Level().BulletManager().m_rq_results.r_clear(); - - if (cform->_RayQuery(rd,Level().BulletManager().m_rq_results)){ - bRes = TRUE; // hit actor - play_whine = false; // don't play whine sound - }else{ - bRes = FALSE; // don't hit actor - play_whine = true; // play whine sound - } + bRes = FALSE; // don't hit actor + play_whine = true; // play whine sound } } - // play whine sound - if (play_whine){ - Fvector pt; - pt.mad (bullet->bullet_pos, bullet->dir, dist); - Level().BulletManager().PlayWhineSound (bullet,initiator,pt); - } - }else{ - // don't test this object again (return FALSE) - bRes = FALSE; } - + // play whine sound + if (play_whine){ + Fvector pt; + pt.mad (bullet->bullet_pos, bullet->dir, dist); + Level().BulletManager().PlayWhineSound (bullet,initiator,pt); + } + }else{ + // don't test this object again (return FALSE) + bRes = FALSE; } + } } } + return bRes; } diff --git a/src/xrGame/Level_input.cpp b/src/xrGame/Level_input.cpp index d90a5ead1b6..3816e21009b 100644 --- a/src/xrGame/Level_input.cpp +++ b/src/xrGame/Level_input.cpp @@ -26,6 +26,12 @@ #include "build_config_defines.h" +//Alundaio +#include "pch_script.h" +#include "../../xrServerEntities/script_engine.h" +using namespace luabind; +//-Alundaio + #ifdef DEBUG # include "ai/monsters/BaseMonster/base_monster.h" @@ -196,6 +202,13 @@ void CLevel::IR_OnKeyboardPress(int key) if (game && game->OnKeyboardPress(get_binded_action(key))) return; + luabind::functor funct; + if (ai().script_engine().functor("level_input.on_key_press", funct)) + { + if (funct(key, _curr)) + return; + } + if (_curr == kQUICK_SAVE && IsGameTypeSingle()) { Console->Execute("save"); diff --git a/src/xrGame/ai/monsters/basemonster/base_monster_startup.cpp b/src/xrGame/ai/monsters/basemonster/base_monster_startup.cpp index 9d8eeccf2ed..42a2892edae 100644 --- a/src/xrGame/ai/monsters/basemonster/base_monster_startup.cpp +++ b/src/xrGame/ai/monsters/basemonster/base_monster_startup.cpp @@ -445,9 +445,9 @@ void CBaseMonster::settings_read(CInifile const * ini, LPCSTR section, SMonsterS if (ini->line_exist(ppi_section,"color_base")) sscanf(ini->r_string(ppi_section,"color_base"), "%f,%f,%f", &data.m_attack_effector.ppi.color_base.r, &data.m_attack_effector.ppi.color_base.g, &data.m_attack_effector.ppi.color_base.b); - if (ini->line_exist(ppi_section,"color_base")) + if (ini->line_exist(ppi_section,"color_gray")) sscanf(ini->r_string(ppi_section,"color_gray"), "%f,%f,%f", &data.m_attack_effector.ppi.color_gray.r, &data.m_attack_effector.ppi.color_gray.g, &data.m_attack_effector.ppi.color_gray.b); - if (ini->line_exist(ppi_section,"color_base")) + if (ini->line_exist(ppi_section,"color_add")) sscanf(ini->r_string(ppi_section,"color_add"), "%f,%f,%f", &data.m_attack_effector.ppi.color_add.r, &data.m_attack_effector.ppi.color_add.g, &data.m_attack_effector.ppi.color_add.b); READ_SETTINGS(data.m_attack_effector.time, "time", r_float, ini, ppi_section); diff --git a/src/xrGame/ai/stalker/ai_stalker_fire.cpp b/src/xrGame/ai/stalker/ai_stalker_fire.cpp index ec6af5a4f6f..992c4cda044 100644 --- a/src/xrGame/ai/stalker/ai_stalker_fire.cpp +++ b/src/xrGame/ai/stalker/ai_stalker_fire.cpp @@ -54,6 +54,7 @@ #include "../../trajectories.h" using namespace StalkerSpace; +using namespace luabind; static float const DANGER_DISTANCE = 3.f; static u32 const DANGER_INTERVAL = 120000; @@ -378,7 +379,22 @@ void CAI_Stalker::update_best_item_info () void CAI_Stalker::update_best_item_info_impl() { + luabind::functor funct; + if (ai().script_engine().functor("ai_stalker.update_best_weapon", funct)) + { + CGameObject* cur_itm = smart_cast(m_best_item_to_kill); + CScriptGameObject* GO = funct(this->lua_game_object(),cur_itm ? cur_itm->lua_game_object() : NULL); + CInventoryItem* bw = GO ? smart_cast(&GO->object()): NULL; + if (bw) + { + m_best_item_to_kill = bw; + m_best_ammo = bw; + return; + } + } + ai().ef_storage().alife_evaluation(false); + /* Alundaio: This is what causes stalkers to switch weapons during combat; It's stupid if ( m_item_actuality && m_best_item_to_kill && @@ -396,6 +412,7 @@ void CAI_Stalker::update_best_item_info_impl() if (fsimilar(value,m_best_item_value)) return; } + */ // initialize parameters m_item_actuality = true; @@ -711,7 +728,7 @@ bool CAI_Stalker::inside_anomaly () xr_vector::const_iterator E = feel_touch.end(); for ( ; I != E; ++I) { CCustomZone *zone = smart_cast(*I); - if ( zone /*&& (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone)*/ ) { //Alundaio + if ( zone && (zone->restrictor_type() != RestrictionSpace::eRestrictorTypeNone) ) { if (smart_cast(zone)) continue; diff --git a/src/xrGame/alife_group_abstract.cpp b/src/xrGame/alife_group_abstract.cpp index fc7433bf9ee..9a005c69e6a 100644 --- a/src/xrGame/alife_group_abstract.cpp +++ b/src/xrGame/alife_group_abstract.cpp @@ -37,7 +37,8 @@ void CSE_ALifeGroupAbstract::switch_online () if (l_tpALifeMonsterAbstract) l_tpALifeMonsterAbstract->o_torso.yaw = angle_normalize_signed((I - B)/N*PI_MUL_2); } - object->alife().add_online (J, false); + if (J->m_bOnline == false) + object->alife().add_online (J, false); } m_bCreateSpawnPositions = false; object->alife().scheduled().remove (object); diff --git a/src/xrGame/alife_online_offline_group.cpp b/src/xrGame/alife_online_offline_group.cpp index 00fa300ff25..c5e9f1cba0a 100644 --- a/src/xrGame/alife_online_offline_group.cpp +++ b/src/xrGame/alife_online_offline_group.cpp @@ -231,7 +231,8 @@ void CSE_ALifeOnlineOfflineGroup::switch_online () MEMBERS::iterator I = m_members.begin(); MEMBERS::iterator E = m_members.end(); for ( ; I != E; ++I){ - alife().add_online ((*I).second, false); + if ((*I).second->m_bOnline == false) + alife().add_online ((*I).second, false); } alife().scheduled().remove (this); diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index ddb91d1fa44..36b54aa97db 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -314,6 +314,19 @@ void teleport_object(CALifeSimulator *alife, ALife::_OBJECT_ID id, GameGraph::_G { alife->teleport_object(id, game_vertex_id, level_vertex_id, position); } + +void IterateInfo(const CALifeSimulator *alife, const ALife::_OBJECT_ID &id, luabind::functor functor) +{ + const KNOWN_INFO_VECTOR *known_info = registry(alife, id); + if (!known_info) + return; + + xr_vector::const_iterator I = known_info->begin(); + xr_vector::const_iterator E = known_info->end(); + for (; I != E; ++I) + functor(id, (LPCSTR)(*I).c_str()); +} + //-Alundaio @@ -353,6 +366,7 @@ void CALifeSimulator::script_register (lua_State *L) .def("set_switch_distance", &CALifeSimulator::set_switch_distance) //Alundaio: renamed to set_switch_distance from switch_distance //Alundaio: extend alife simulator exports .def("teleport_object", &teleport_object) + .def("iterate_info", &IterateInfo) //Alundaio: END ,def("alife", &alife) diff --git a/src/xrGame/cameralook.cpp b/src/xrGame/cameralook.cpp index 9028c63443f..9188884ecb1 100644 --- a/src/xrGame/cameralook.cpp +++ b/src/xrGame/cameralook.cpp @@ -86,7 +86,7 @@ void CCameraLook::OnActivate( CCameraBase* old_cam ) #include "visual_memory_manager.h" #include "actor_memory.h" -int cam_dik = DIK_LSHIFT; +//int cam_dik = DIK_LSHIFT; Fvector CCameraLook2::m_cam_offset; void CCameraLook2::OnActivate( CCameraBase* old_cam ) @@ -96,6 +96,7 @@ void CCameraLook2::OnActivate( CCameraBase* old_cam ) void CCameraLook2::Update(Fvector& point, Fvector&) { + int cam_dik = get_action_dik(kCAM_AUTOAIM, 0); if(!m_locked_enemy) {//autoaim if( pInput->iGetAsyncKeyState(cam_dik) ) diff --git a/src/xrGame/key_binding_registrator_script.cpp b/src/xrGame/key_binding_registrator_script.cpp index 8b3aa09a49b..d0f31ba6694 100644 --- a/src/xrGame/key_binding_registrator_script.cpp +++ b/src/xrGame/key_binding_registrator_script.cpp @@ -20,6 +20,7 @@ void key_binding_registrator::script_register(lua_State *L) .enum_("commands") [ value("kFWD", int(kFWD)), + value("kARTEFACT", int(kARTEFACT)), value("kBACK", int(kBACK)), value("kL_STRAFE", int(kL_STRAFE)), value("kR_STRAFE", int(kR_STRAFE)), @@ -37,6 +38,24 @@ void key_binding_registrator::script_register(lua_State *L) value("kCAM_3", int(kCAM_3)), value("kCAM_ZOOM_IN", int(kCAM_ZOOM_IN)), value("kCAM_ZOOM_OUT", int(kCAM_ZOOM_OUT)), + value("kQUICK_SAVE", int(kQUICK_SAVE)), + value("kQUICK_LOAD", int(kQUICK_LOAD)), + value("kCAM_AUTOAIM", int(kCAM_AUTOAIM)), + value("kCUSTOM1", int(kCUSTOM1)), + value("kCUSTOM2", int(kCUSTOM2)), + value("kCUSTOM3", int(kCUSTOM3)), + value("kCUSTOM4", int(kCUSTOM4)), + value("kCUSTOM5", int(kCUSTOM5)), + value("kCUSTOM6", int(kCUSTOM6)), + value("kCUSTOM7", int(kCUSTOM7)), + value("kCUSTOM8", int(kCUSTOM8)), + value("kCUSTOM9", int(kCUSTOM9)), + value("kCUSTOM10", int(kCUSTOM10)), + value("kCUSTOM11", int(kCUSTOM11)), + value("kCUSTOM12", int(kCUSTOM12)), + value("kCUSTOM13", int(kCUSTOM13)), + value("kCUSTOM14", int(kCUSTOM14)), + value("kCUSTOM15", int(kCUSTOM15)), value("kTORCH", int(kTORCH)), value("kNIGHT_VISION", int(kNIGHT_VISION)), value("kWPN_1", int(kWPN_1)), diff --git a/src/xrGame/relation_registry.cpp b/src/xrGame/relation_registry.cpp index d9486945d95..db555afeab0 100644 --- a/src/xrGame/relation_registry.cpp +++ b/src/xrGame/relation_registry.cpp @@ -55,7 +55,7 @@ RELATION_REGISTRY::RELATION_MAP_SPOTS::RELATION_MAP_SPOTS() spot_names[ALife::eRelationTypeNeutral] = "neutral_location"; spot_names[ALife::eRelationTypeEnemy] = "enemy_location"; spot_names[ALife::eRelationTypeWorstEnemy] = "enemy_location"; - spot_names[ALife::eRelationTypeWorstEnemy] = "enemy_location"; + //spot_names[ALife::eRelationTypeWorstEnemy] = "enemy_location"; spot_names[ALife::eRelationTypeLast] = "neutral_location"; } ////////////////////////////////////////////////////////////////////////// diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 80220d223b2..ded2d7f5bfa 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -337,8 +337,8 @@ class CScriptGameObject { void ActorLookAtPoint (Fvector point); - void IterateInventory (luabind::functor functor, luabind::object object); - void IterateInventoryBox (luabind::functor functor, luabind::object object); + void IterateInventory (luabind::functor functor, luabind::object object); + void IterateInventoryBox (luabind::functor functor, luabind::object object); void MarkItemDropped (CScriptGameObject *item); bool MarkedDropped (CScriptGameObject *item); void UnloadMagazine (); diff --git a/src/xrGame/script_game_object2.cpp b/src/xrGame/script_game_object2.cpp index 79d2ed3a50d..3aa6f7a95cf 100644 --- a/src/xrGame/script_game_object2.cpp +++ b/src/xrGame/script_game_object2.cpp @@ -76,7 +76,7 @@ CScriptGameObject *CScriptGameObject::best_weapon() } else { //Alundaio: extra security - CGameObject *game_object = object_handler->best_weapon() ? &object_handler->best_weapon()->object() : 0; + CGameObject *game_object = object_handler->best_weapon() ? &object_handler->best_weapon()->object() : NULL; if (!game_object) return (0); diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index ed4762ad173..d5ece37b75f 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -231,7 +231,7 @@ void CScriptGameObject::ForEachInventoryItems(const luabind::functor &func } //1 -void CScriptGameObject::IterateInventory(luabind::functor functor, luabind::object object) +void CScriptGameObject::IterateInventory(luabind::functor functor, luabind::object object) { CInventoryOwner *inventory_owner = smart_cast(&this->object()); if (!inventory_owner) @@ -242,12 +242,13 @@ void CScriptGameObject::IterateInventory(luabind::functor functor, luabind TIItemContainer::iterator I = inventory_owner->inventory().m_all.begin(); TIItemContainer::iterator E = inventory_owner->inventory().m_all.end(); - for (; I != E; ++I) - functor(object, (*I)->object().lua_game_object()); + for (; I != E; ++I) + if (functor(object, (*I)->object().lua_game_object()) == true) + return; } #include "InventoryBox.h" -void CScriptGameObject::IterateInventoryBox(luabind::functor functor, luabind::object object) +void CScriptGameObject::IterateInventoryBox(luabind::functor functor, luabind::object object) { CInventoryBox *inventory_box = smart_cast(&this->object()); if (!inventory_box) @@ -261,8 +262,9 @@ void CScriptGameObject::IterateInventoryBox(luabind::functor functor, luab for (; I != E; ++I) { CGameObject* GO = smart_cast(Level().Objects.net_Find(*I)); - if (GO) - functor(object, GO->lua_game_object()); + if (GO) + if (functor(object, GO->lua_game_object()) == true) + return; } } diff --git a/src/xrGame/space_restriction.cpp b/src/xrGame/space_restriction.cpp index c8ff34f9eae..e8542aabc6b 100644 --- a/src/xrGame/space_restriction.cpp +++ b/src/xrGame/space_restriction.cpp @@ -198,7 +198,7 @@ CSpaceRestriction::CBaseRestrictionPtr CSpaceRestriction::merge (CBaseRestrictio RESTRICTIONS::const_iterator I = temp_restrictions.begin(); RESTRICTIONS::const_iterator E = temp_restrictions.end(); for ( ; I != E; ++I) - temp = strconcat(sizeof(S),S,*temp,",",*(*I)->name()); + temp = strconcat(strlen(S),S,*temp,",",*(*I)->name()); //SizeOf to strlen because S is LPSTR pointer xr_free (S); diff --git a/src/xrGame/space_restrictor.cpp b/src/xrGame/space_restrictor.cpp index 5f991823d7e..72f11e8f312 100644 --- a/src/xrGame/space_restrictor.cpp +++ b/src/xrGame/space_restrictor.cpp @@ -21,6 +21,7 @@ //Alundaio #include "RadioactiveZone.h" +#include "ZoneCampfire.h" BOOL g_ai_die_in_anomaly = 0; //-Alundaio @@ -72,8 +73,9 @@ BOOL CSpaceRestrictor::net_Spawn (CSE_Abstract* data) if (!result) return (FALSE); + //Alundaio: zone visible for ai if g_ai_die_in_anomaly = 1 unless it's Radioactive Zone or Campfire CCustomZone* zone = smart_cast(this); - if (g_ai_die_in_anomaly == 0 || !zone || smart_cast(zone)) + if (g_ai_die_in_anomaly == 0 || !zone || smart_cast(zone) || smart_cast(zone)) spatial.type &= ~STYPE_VISIBLEFORAI; setEnabled (FALSE); diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index bfca842963d..628e9de6d64 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -1,10 +1,14 @@ #pragma once +#include "script_export_space.h" + #include "UIDialogWnd.h" #include "UIWndCallback.h" #include "../../xrServerEntities/inventory_space.h" #include "UIHint.h" +#include "script_game_object.h" //Alundaio + class CUICharacterInfo; class CUIDragDropListEx; class CUIDragDropReferenceList; @@ -345,7 +349,14 @@ class CUIActorMenu : public CUIDialogWnd, void RefreshCurrentItemCell(); void SetCurrentItem(CUICellItem* itm); //Alundaio: Made public CUICellItem* CurrentItem(); //Alundaio: Made public + + CScriptGameObject* GetCurrentItemAsGameObject(); + void HighlightSectionInSlot(LPCSTR section, u8 type, u16 slot_id = 0); + //-AxelDominator && Alundaio consumable use condition void DonateCurrentItem(CUICellItem* cell_item); //Alundaio: Donate item via context menu while in trade menu - + DECLARE_SCRIPT_REGISTER_FUNCTION }; // class CUIActorMenu +add_to_type_list(CUIActorMenu) +#undef script_type_list +#define script_type_list save_type_list(CUIActorMenu) \ No newline at end of file diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 5a0c6f41966..b03362099de 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -1171,35 +1171,67 @@ void CUIActorMenu::PropertiesBoxForUsing( PIItem item, bool& b_show ) } //1st Custom Use action - act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use1_text", 0); - if (act_str) + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use1_functor", 0); + if (functor_name) { - m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT2_ACTION); - b_show = true; + luabind::functor funct1; + if (ai().script_engine().functor(functor_name, funct1)) + { + act_str = funct1(GO->lua_game_object()); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT2_ACTION); + b_show = true; + } + } } //2nd Custom Use action - act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use2_text", 0); - if (act_str) + functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use2_functor", 0); + if (functor_name) { - m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT3_ACTION); - b_show = true; + luabind::functor funct1; + if (ai().script_engine().functor(functor_name, funct1)) + { + act_str = funct1(GO->lua_game_object()); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT3_ACTION); + b_show = true; + } + } } //3rd Custom Use action - act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use3_text", 0); - if (act_str) + functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use3_functor", 0); + if (functor_name) { - m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT4_ACTION); - b_show = true; + luabind::functor funct1; + if (ai().script_engine().functor(functor_name, funct1)) + { + act_str = funct1(GO->lua_game_object()); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT4_ACTION); + b_show = true; + } + } } //4th Custom Use action - act_str = READ_IF_EXISTS(pSettings, r_string, section_name, "use4_text", 0); - if (act_str) + functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use4_functor", 0); + if (functor_name) { - m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT5_ACTION); - b_show = true; + luabind::functor funct1; + if (ai().script_engine().functor(functor_name, funct1)) + { + act_str = funct1(GO->lua_game_object()); + if (act_str) + { + m_UIPropertiesBox->AddItem(act_str, NULL, INVENTORY_EAT5_ACTION); + b_show = true; + } + } } } @@ -1275,7 +1307,7 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_EAT2_ACTION: { CGameObject* GO = smart_cast(item); - LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use1_functor", 0); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use1_action_functor", 0); if (functor_name) { luabind::functor funct1; @@ -1290,7 +1322,7 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_EAT3_ACTION: { CGameObject* GO = smart_cast(item); - LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use2_functor", 0); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use2_action_functor", 0); if (functor_name) { luabind::functor funct2; @@ -1305,7 +1337,7 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_EAT4_ACTION: { CGameObject* GO = smart_cast(item); - LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use3_functor", 0); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use3_action_functor", 0); if (functor_name) { luabind::functor funct3; @@ -1320,7 +1352,7 @@ void CUIActorMenu::ProcessPropertiesBoxClicked( CUIWindow* w, void* d ) case INVENTORY_EAT5_ACTION: { CGameObject* GO = smart_cast(item); - LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use4_functor", 0); + LPCSTR functor_name = READ_IF_EXISTS(pSettings, r_string, GO->cNameSect(), "use4_action_functor", 0); if (functor_name) { luabind::functor funct4; diff --git a/src/xrGame/ui/UIActorMenu_action.cpp b/src/xrGame/ui/UIActorMenu_action.cpp index 0744698a821..5ba80df4f2f 100644 --- a/src/xrGame/ui/UIActorMenu_action.cpp +++ b/src/xrGame/ui/UIActorMenu_action.cpp @@ -29,6 +29,7 @@ #include "UIPropertiesBox.h" #include "UIMainIngameWnd.h" +using namespace luabind; //Alundaio bool CUIActorMenu::AllowItemDrops(EDDListType from, EDDListType to) { @@ -76,7 +77,7 @@ bool CUIActorMenu::OnItemDrop(CUICellItem* itm) InfoCurItem( NULL ); CUIDragDropListEx* old_owner = itm->OwnerList(); CUIDragDropListEx* new_owner = CUIDragDropListEx::m_drag_item->BackList(); - if ( old_owner==new_owner || !old_owner || !new_owner ) + if (!old_owner || !new_owner ) { return false; } @@ -88,6 +89,37 @@ bool CUIActorMenu::OnItemDrop(CUICellItem* itm) Msg("incorrect action [%d]->[%d]",t_old, t_new); return true; } + + if (old_owner == new_owner){ + //Alundaio: Here we export the action of dragging one inventory item ontop of another! + luabind::functor funct1; + if (ai().script_engine().functor("actor_menu_inventory.CUIActorMenu_OnItemDropped", funct1)) + { + //If list only has 1 item, get it, otherwise try to get item at current drag position + CUICellItem* _citem = (new_owner->ItemsCount() == 1) ? new_owner->GetItemIdx(0) : NULL; + if (!_citem) + { + CUICellContainer* c = old_owner->GetContainer(); + Ivector2 c_pos = c->PickCell(old_owner->GetDragItemPosition()); + if (c->ValidCell(c_pos)) + { + CUICell& ui_cell = c->GetCellAt(c_pos); + if (!ui_cell.Empty()) + _citem = ui_cell.m_item; + } + } + + PIItem _iitem = _citem ? (PIItem)_citem->m_pData : NULL; + + CGameObject* GO1 = smart_cast(CurrentIItem()); + CGameObject* GO2 = _iitem ? smart_cast(_iitem) : NULL; + if (funct1(GO1 ? GO1->lua_game_object() : (0), GO2 ? GO2->lua_game_object() : (0), (int)t_old, (int)t_new) == false) + return false; + } + //-Alundaio + return false; + } + switch(t_new) { case iTrashSlot: @@ -144,7 +176,34 @@ bool CUIActorMenu::OnItemDrop(CUICellItem* itm) }break; }; - OnItemDropped (CurrentIItem(), new_owner, old_owner); + OnItemDropped(CurrentIItem(), new_owner, old_owner); + + //Alundaio: Here we export the action of dragging one inventory item ontop of another! + luabind::functor funct1; + if (ai().script_engine().functor("actor_menu_inventory.CUIActorMenu_OnItemDropped", funct1)) + { + //If list only has 1 item, get it, otherwise try to get item at current drag position + CUICellItem* _citem = (new_owner->ItemsCount() == 1) ? new_owner->GetItemIdx(0) : NULL; + if (!_citem) + { + CUICellContainer* c = old_owner->GetContainer(); + Ivector2 c_pos = c->PickCell(old_owner->GetDragItemPosition()); + if (c->ValidCell(c_pos)) + { + CUICell& ui_cell = c->GetCellAt(c_pos); + if (!ui_cell.Empty()) + _citem = ui_cell.m_item; + } + } + + PIItem _iitem = _citem ? (PIItem)_citem->m_pData : NULL; + + CGameObject* GO1 = smart_cast(CurrentIItem()); + CGameObject* GO2 = _iitem ? smart_cast(_iitem) : NULL; + if (funct1(GO1 ? GO1->lua_game_object() : (0), GO2 ? GO2->lua_game_object() : (0), (int)t_old, (int)t_new) == false) + return false; + } + //-Alundaio UpdateConditionProgressBars(); UpdateItemsPlace(); @@ -271,6 +330,17 @@ bool CUIActorMenu::OnItemFocusReceive(CUICellItem* itm) itm->m_selected = true; set_highlight_item( itm ); + + luabind::functor funct1; + if (ai().script_engine().functor("actor_menu_inventory.CUIActorMenu_OnItemFocusReceive", funct1)) + { + PIItem _iitem = (PIItem)itm->m_pData; + + CGameObject* GO = _iitem ? smart_cast(_iitem) : NULL; + if (GO) + funct1(GO->lua_game_object()); + } + return true; } @@ -283,6 +353,16 @@ bool CUIActorMenu::OnItemFocusLost(CUICellItem* itm) InfoCurItem( NULL ); clear_highlight_lists(); + luabind::functor funct1; + if (ai().script_engine().functor("actor_menu_inventory.CUIActorMenu_OnItemFocusLost", funct1)) + { + PIItem _iitem = (PIItem)itm->m_pData; + + CGameObject* GO = _iitem ? smart_cast(_iitem) : NULL; + if (GO) + funct1(GO->lua_game_object()); + } + return true; } diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index 64b7f0eba79..4fb2f395d2b 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -7,6 +7,13 @@ #include "pch_script.h" #include "UIActorMenu.h" +#include "../UIGameCustom.h" + +#include "UIWindow.h" +#include "UICellItemFactory.h" +#include "UIDragDropListEx.h" +#include "UIDragDropReferenceList.h" +#include "UICellCustomItems.h" #include "../actor.h" #include "../inventory_item.h" @@ -17,6 +24,25 @@ using namespace luabind; +CUIActorMenu* GetActorMenu() +{ + return &CurrentGameUI()->GetActorMenu(); +} + +u8 GrabMenuMode() +{ + return (u8)(CurrentGameUI()->GetActorMenu().GetMenuMode()); +} + +CScriptGameObject* CUIActorMenu::GetCurrentItemAsGameObject() +{ + CGameObject* GO = smart_cast(CurrentIItem()); + if (GO) + return GO->lua_game_object(); + + return (0); +} + void CUIActorMenu::TryRepairItem(CUIWindow* w, void* d) { PIItem item = get_upgrade_item(); @@ -108,3 +134,94 @@ void CUIActorMenu::CurModeToScript() R_ASSERT( ai().script_engine().functor( "actor_menu.actor_menu_mode", funct ) ); funct( mode ); } + +void CUIActorMenu::HighlightSectionInSlot(LPCSTR section, u8 type, u16 slot_id) +{ + CUIDragDropListEx* slot_list = m_pInventoryBagList; + switch (type) + { + case EDDListType::iActorBag: + slot_list = m_pInventoryBagList; + break; + case EDDListType::iActorBelt: + slot_list = m_pInventoryBeltList; + break; + case EDDListType::iActorSlot: + slot_list = GetSlotList(slot_id); + break; + case EDDListType::iActorTrade: + slot_list = m_pTradeActorBagList; + break; + case EDDListType::iDeadBodyBag: + slot_list = m_pDeadBodyBagList; + break; + case EDDListType::iPartnerTrade: + slot_list = m_pTradePartnerList; + break; + case EDDListType::iPartnerTradeBag: + slot_list = m_pTradePartnerBagList; + break; + case EDDListType::iQuickSlot: + slot_list = m_pQuickSlot; + break; + case EDDListType::iTrashSlot: + slot_list = m_pTrashList; + break; + } + + if (!slot_list) + return; + + u32 const cnt = slot_list->ItemsCount(); + for (u32 i = 0; i < cnt; ++i) + { + CUICellItem* ci = slot_list->GetItemIdx(i); + PIItem item = (PIItem)ci->m_pData; + if (!item) + continue; + + if (!strcmp(section, item->m_section_id.c_str()) == 0) + continue; + + ci->m_select_armament = true; + } + + m_highlight_clear = false; +} + +#pragma optimize("s",on) +void CUIActorMenu::script_register(lua_State *L) +{ + module(L) + [ + class_< enum_exporter >("EDDListType") + .enum_("EDDListType") + [ + value("iActorBag", int(EDDListType::iActorBag)), + value("iActorBelt", int(EDDListType::iActorBelt)), + value("iActorSlot", int(EDDListType::iActorSlot)), + value("iActorTrade", int(EDDListType::iActorTrade)), + value("iDeadBodyBag", int(EDDListType::iDeadBodyBag)), + value("iInvalid", int(EDDListType::iInvalid)), + value("iPartnerTrade", int(EDDListType::iPartnerTrade)), + value("iPartnerTradeBag", int(EDDListType::iPartnerTradeBag)), + value("iQuickSlot", int(EDDListType::iQuickSlot)), + value("iTrashSlot", int(EDDListType::iTrashSlot)) + ], + + class_< CUIActorMenu, CUIDialogWnd, CUIWndCallback>("CUIActorMenu") + .def(constructor<>()) + .def("get_drag_item", &CUIActorMenu::GetCurrentItemAsGameObject) + .def("highlight_section_in_slot", &CUIActorMenu::HighlightSectionInSlot) + .def("refresh_current_cell_item", &CUIActorMenu::RefreshCurrentItemCell) + .def("IsShown", &CUIActorMenu::IsShown) + .def("ShowDialog", &CUIActorMenu::ShowDialog) + .def("HideDialog", &CUIActorMenu::HideDialog) + ]; + + module(L, "ActorMenu") + [ + def("get_actor_menu", &GetActorMenu), + def("get_menu_mode", &GrabMenuMode) + ]; +} \ No newline at end of file diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index a860922f530..ac05fbf57d8 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -39,8 +39,91 @@ CUIInventoryCellItem::CUIInventoryCellItem(CInventoryItem* itm) inherited::SetTextureRect (rect); inherited::SetStretchTexture (true); + + //Alundaio; Layered icon + LPCSTR section = pSettings->line_exist(itm->m_section_id,"1icon_layer") ? pSettings->r_string(itm->m_section_id, "1icon_layer") : NULL; + if (section && pSettings->section_exist(section)) + { + Fvector2 offset; + offset.x = pSettings->r_float(itm->m_section_id, "1icon_layer_x"); + offset.y = pSettings->r_float(itm->m_section_id, "1icon_layer_y"); + + float scale = pSettings->line_exist(itm->m_section_id, "1icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "1icon_layer_scale") : 1.0f; + u32 color; + if (pSettings->line_exist(itm->m_section_id, "1icon_layer_color")) + color = pSettings->r_color(itm->m_section_id, "1icon_layer_color"); + + CreateLayer(section, offset, color, scale); + } + section = pSettings->line_exist(itm->m_section_id, "2icon_layer") ? pSettings->r_string(itm->m_section_id, "2icon_layer") : NULL; + if (section && pSettings->section_exist(section)) + { + Fvector2 offset; + offset.x = pSettings->r_float(itm->m_section_id, "2icon_layer_x"); + offset.y = pSettings->r_float(itm->m_section_id, "2icon_layer_y"); + + float scale = pSettings->line_exist(itm->m_section_id, "2icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "2icon_layer_scale") : 1.0f; + u32 color; + if (pSettings->line_exist(itm->m_section_id, "2icon_layer_color")) + color = pSettings->r_color(itm->m_section_id, "2icon_layer_color"); + + CreateLayer(section, offset, color, scale); + } + section = pSettings->line_exist(itm->m_section_id, "3icon_layer") ? pSettings->r_string(itm->m_section_id, "3icon_layer") : NULL; + if (section && pSettings->section_exist(section)) + { + Fvector2 offset; + offset.x = pSettings->r_float(itm->m_section_id, "3icon_layer_x"); + offset.y = pSettings->r_float(itm->m_section_id, "3icon_layer_y"); + + float scale = pSettings->line_exist(itm->m_section_id, "3icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "3icon_layer_scale") : 1.0f; + u32 color; + if (pSettings->line_exist(itm->m_section_id, "3icon_layer_color")) + color = pSettings->r_color(itm->m_section_id, "3icon_layer_color"); + + CreateLayer(section, offset, color, scale); + } + section = pSettings->line_exist(itm->m_section_id, "4icon_layer") ? pSettings->r_string(itm->m_section_id, "4icon_layer") : NULL; + if (section && pSettings->section_exist(section)) + { + Fvector2 offset; + offset.x = pSettings->r_float(itm->m_section_id, "4icon_layer_x"); + offset.y = pSettings->r_float(itm->m_section_id, "4icon_layer_y"); + + float scale = pSettings->line_exist(itm->m_section_id, "4icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "4icon_layer_scale") : 1.0f; + u32 color; + if (pSettings->line_exist(itm->m_section_id, "4icon_layer_color")) + color = pSettings->r_color(itm->m_section_id, "4icon_layer_color"); + + CreateLayer(section, offset, color, scale); + } + section = pSettings->line_exist(itm->m_section_id, "5icon_layer") ? pSettings->r_string(itm->m_section_id, "5icon_layer") : NULL; + if (section && pSettings->section_exist(section)) + { + Fvector2 offset; + offset.x = pSettings->r_float(itm->m_section_id, "5icon_layer_x"); + offset.y = pSettings->r_float(itm->m_section_id, "5icon_layer_y"); + + float scale = pSettings->line_exist(itm->m_section_id, "5icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "5icon_layer_scale") : 1.0f; + u32 color; + if (pSettings->line_exist(itm->m_section_id, "5icon_layer_color")) + color = pSettings->r_color(itm->m_section_id, "5icon_layer_color"); + + CreateLayer(section, offset, color, scale); + } + //-Alundaio } +void CUIInventoryCellItem::OnAfterChild(CUIDragDropListEx* parent_list) +{ + + for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) + { + (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, parent_list->GetVerticalPlacement(), (*it)->m_color, (*it)->m_scale); + } +} + + bool CUIInventoryCellItem::EqualTo(CUICellItem* itm) { CUIInventoryCellItem* ci = smart_cast( itm ); @@ -70,7 +153,32 @@ bool CUIInventoryCellItem::IsHelperOrHasHelperChild() CUIDragItem* CUIInventoryCellItem::CreateDragItem() { - return IsHelperOrHasHelperChild() ? NULL : inherited::CreateDragItem(); + if (IsHelperOrHasHelperChild()) + return NULL; + + CUIDragItem* i = inherited::CreateDragItem(); + CUIStatic* s = NULL; + + for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) + { + s = xr_new(); + s->SetAutoDelete(true); + s->SetShader(InventoryUtilities::GetEquipmentIconsShader()); + InitLayer(s, (*it)->m_name, (*it)->offset, false, (*it)->m_color, (*it)->m_scale); + s->SetTextureColor(i->wnd()->GetTextureColor()); + i->wnd()->AttachChild(s); + } + + return i; +} + +void CUIInventoryCellItem::SetTextureColor(u32 color) +{ + for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) + { + if ((*it)->m_icon) + (*it)->m_icon->SetTextureColor((*it)->m_color ? (*it)->m_color : color); + } } bool CUIInventoryCellItem::IsHelper () @@ -83,9 +191,107 @@ void CUIInventoryCellItem::SetIsHelper (bool is_helper) object()->set_is_helper(is_helper); } +//Alundaio +void CUIInventoryCellItem::RemoveLayer(SIconLayer* layer) +{ + if (m_layers.empty()) + return; + + for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) + { + if ((*it) == layer) + { + DetachChild((*it)->m_icon); + m_layers.erase(it); + return; + } + } +} + +void CUIInventoryCellItem::CreateLayer(LPCSTR section, Fvector2 offset, u32 color, float scale) +{ + SIconLayer* layer = xr_new(); + layer->m_name = section; + layer->offset = offset; + layer->m_color = color; + layer->m_scale = scale; + m_layers.push_back(layer); +} + +CUIStatic* CUIInventoryCellItem::InitLayer(CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, u32 color, float scale) +{ + + if (!s) + { + s = xr_new(); + s->SetAutoDelete(true); + AttachChild(s); + s->SetShader(InventoryUtilities::GetEquipmentIconsShader()); + s->SetTextureColor(color ? color : GetTextureColor()); + } + + Frect tex_rect; + Fvector2 base_scale; + + if (Heading()) + { + base_scale.x = (GetHeight() / (INV_GRID_WIDTHF*m_grid_size.x))*scale; + base_scale.y = (GetWidth() / (INV_GRID_HEIGHTF*m_grid_size.y))*scale; + } + else + { + base_scale.x = (GetWidth() / (INV_GRID_WIDTHF*m_grid_size.x))*scale; + base_scale.y = (GetHeight() / (INV_GRID_HEIGHTF*m_grid_size.y))*scale; + } + Fvector2 cell_size; + cell_size.x = pSettings->r_float(section, "inv_grid_width")*INV_GRID_WIDTHF; + cell_size.y = pSettings->r_float(section, "inv_grid_height")*INV_GRID_HEIGHTF; + + tex_rect.x1 = pSettings->r_float(section, "inv_grid_x")*INV_GRID_WIDTHF; + tex_rect.y1 = pSettings->r_float(section, "inv_grid_y")*INV_GRID_HEIGHTF; + + tex_rect.rb.add(tex_rect.lt, cell_size); + + cell_size.mul(base_scale); + + if (b_rotate) + { + s->SetWndSize(Fvector2().set(cell_size.y, cell_size.x)); + Fvector2 new_offset; + new_offset.x = addon_offset.y*base_scale.x; + new_offset.y = GetHeight() - addon_offset.x*base_scale.x - cell_size.x; + addon_offset = new_offset; + addon_offset.x *= UI().get_current_kx(); + } + else + { + s->SetWndSize(cell_size); + addon_offset.mul(base_scale); + } + + s->SetWndPos(addon_offset); + s->SetTextureRect(tex_rect); + s->SetStretchTexture(true); + + s->EnableHeading(b_rotate); + + if (b_rotate) + { + s->SetHeading(GetHeading()); + Fvector2 offs; + offs.set(0.0f, s->GetWndSize().y); + s->SetHeadingPivot(Fvector2().set(0.0f, 0.0f), /*Fvector2().set(0.0f,0.0f)*/offs, true); + } + + return s; +} + +//-Alundaio void CUIInventoryCellItem::Update() { - inherited::Update (); + bool b = Heading(); + inherited::Update(); + inherited::UpdateConditionProgressBar(); //Alundaio UpdateItemText(); @@ -100,6 +306,11 @@ void CUIInventoryCellItem::Update() } SetTextureColor(color); + + for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) + { + (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, Heading(), (*it)->m_color, (*it)->m_scale); + } } void CUIInventoryCellItem::UpdateItemText() diff --git a/src/xrGame/ui/UICellCustomItems.h b/src/xrGame/ui/UICellCustomItems.h index 97f7c901e4f..f2703a7c0c0 100644 --- a/src/xrGame/ui/UICellCustomItems.h +++ b/src/xrGame/ui/UICellCustomItems.h @@ -3,19 +3,37 @@ #include "../Weapon.h" +struct SIconLayer +{ + LPCSTR m_name; + CUIStatic* m_icon; + Fvector2 offset; + u32 m_color; + float m_scale; +}; + class CUIInventoryCellItem :public CUICellItem { typedef CUICellItem inherited; public: - CUIInventoryCellItem (CInventoryItem* itm); - virtual bool EqualTo (CUICellItem* itm); - virtual void UpdateItemText (); - CUIDragItem* CreateDragItem (); - virtual bool IsHelper (); - virtual void SetIsHelper (bool is_helper); - bool IsHelperOrHasHelperChild (); - void Update (); - CInventoryItem* object () {return (CInventoryItem*)m_pData;} + CUIInventoryCellItem (CInventoryItem* itm); + virtual bool EqualTo (CUICellItem* itm); + virtual void UpdateItemText (); + CUIDragItem* CreateDragItem (); + virtual bool IsHelper (); + virtual void SetIsHelper (bool is_helper); + bool IsHelperOrHasHelperChild (); + void Update (); + CInventoryItem* object () {return (CInventoryItem*)m_pData;} + //Alundaio + virtual void OnAfterChild(CUIDragDropListEx* parent_list); + virtual void SetTextureColor(u32 color); + + xr_vector m_layers; + void RemoveLayer (SIconLayer* layer); + void CreateLayer (LPCSTR name, Fvector2 offset, u32 color, float scale); + CUIStatic* InitLayer (CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, u32 color, float scale); + //-Alundaio }; class CUIAmmoCellItem :public CUIInventoryCellItem diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index 607b6f5e690..ffe552f1106 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -545,8 +545,15 @@ bool CUICellContainer::AddSimilar(CUICellItem* itm) //Alundaio: Don't stack equipped items PIItem iitem = (PIItem)itm->m_pData; - if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) - return false; + if (iitem && iitem->m_pInventory) + { + if (iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) + return false; + + if (pSettings->line_exist(iitem->m_section_id, "dont_stack") && pSettings->r_bool(iitem->m_section_id, "dont_stack") == TRUE) + return false; + + } //-Alundaio CUICellItem* i = FindSimilar(itm); @@ -570,8 +577,15 @@ CUICellItem* CUICellContainer::FindSimilar(CUICellItem* itm) #endif //Alundaio: Don't stack equipped items PIItem iitem = (PIItem)i->m_pData; - if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) - continue; + if (iitem && iitem->m_pInventory) + { + if (iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) + continue; + + if (pSettings->line_exist(iitem->m_section_id, "dont_stack") && pSettings->r_bool(iitem->m_section_id, "dont_stack") == TRUE) + continue; + + } //-Alundaio if (i == itm) diff --git a/src/xrGame/ui/UIDragDropListEx.h b/src/xrGame/ui/UIDragDropListEx.h index 3a54cb62e5a..bc463604af7 100644 --- a/src/xrGame/ui/UIDragDropListEx.h +++ b/src/xrGame/ui/UIDragDropListEx.h @@ -169,6 +169,10 @@ class CUICellContainer :public CUIWindow public: CUICellContainer (CUIDragDropListEx* parent); virtual ~CUICellContainer (); + Ivector2 PickCell(const Fvector2& abs_pos); //Alundaio made public + bool ValidCell(const Ivector2& pos) const; //Alundaio made public + CUICell& GetCellAt(const Ivector2& pos); + protected: virtual void Draw (); @@ -179,8 +183,8 @@ class CUICellContainer :public CUIWindow IC const Ivector2& CellsSpacing () {return m_cellSpacing;}; void SetCellsSpacing (const Ivector2& new_sz); Ivector2 TopVisibleCell (); - CUICell& GetCellAt (const Ivector2& pos); - Ivector2 PickCell (const Fvector2& abs_pos); + + Ivector2 GetItemPos (CUICellItem* itm); Ivector2 FindFreeCell (const Ivector2& size); bool HasFreeSpace (const Ivector2& size); @@ -191,7 +195,7 @@ class CUICellContainer :public CUIWindow void PlaceItemAtPos (CUICellItem* itm, Ivector2& cell_pos); CUICellItem* RemoveItem (CUICellItem* itm, bool force_root); - bool ValidCell (const Ivector2& pos) const; + void Grow (); void Shrink (); diff --git a/src/xrGame/ui_export_script.cpp b/src/xrGame/ui_export_script.cpp index 32f9c9ff223..37b669ee78d 100644 --- a/src/xrGame/ui_export_script.cpp +++ b/src/xrGame/ui_export_script.cpp @@ -15,6 +15,7 @@ #include "ui/UIOptionsManagerScript.h" #include "ui/UIMapInfo.h" #include "ScriptXmlInit.h" +#include "ui/UIActorMenu.h" #include "login_manager.h" #include "account_manager.h" @@ -42,6 +43,7 @@ void UIRegistrator::script_register(lua_State *L) CUIMapInfo::script_register(L); CScriptXmlInit::script_register(L); CUIGameCustom::script_register(L); + CUIActorMenu::script_register(L); module(L) [ diff --git a/src/xrGame/xr_level_controller.cpp b/src/xrGame/xr_level_controller.cpp index ded12019d43..aa3ba0b05c0 100644 --- a/src/xrGame/xr_level_controller.cpp +++ b/src/xrGame/xr_level_controller.cpp @@ -31,7 +31,7 @@ _action actions[] = { { "cam_2", kCAM_2 ,_both}, { "cam_3", kCAM_3 ,_both}, { "cam_zoom_in", kCAM_ZOOM_IN ,_both}, - { "cam_zoom_out", kCAM_ZOOM_OUT ,_both}, + { "cam_zoom_out", kCAM_ZOOM_OUT ,_both}, { "torch", kTORCH ,_both}, { "night_vision", kNIGHT_VISION ,_both}, @@ -58,28 +58,28 @@ _action actions[] = { { "drop", kDROP ,_both}, { "use", kUSE ,_both}, { "scores", kSCORES ,_both}, - { "chat", kCHAT ,_mp}, - { "chat_team", kCHAT_TEAM ,_mp}, + { "chat", kCHAT ,_both}, + { "chat_team", kCHAT_TEAM ,_both}, { "screenshot", kSCREENSHOT ,_both}, { "quit", kQUIT ,_both}, { "console", kCONSOLE ,_both}, { "inventory", kINVENTORY ,_both}, - { "buy_menu", kBUY ,_mp}, - { "skin_menu", kSKIN ,_mp}, - { "team_menu", kTEAM ,_mp}, + { "buy_menu", kBUY ,_both}, + { "skin_menu", kSKIN ,_both}, + { "team_menu", kTEAM ,_both}, { "active_jobs", kACTIVE_JOBS ,_sp}, - { "vote_begin", kVOTE_BEGIN ,_mp}, - { "show_admin_menu", kSHOW_ADMIN_MENU ,_mp}, - { "vote", kVOTE ,_mp}, - { "vote_yes", kVOTEYES ,_mp}, - { "vote_no", kVOTENO ,_mp}, + { "vote_begin", kVOTE_BEGIN ,_both}, + { "show_admin_menu", kSHOW_ADMIN_MENU ,_both}, + { "vote", kVOTE ,_both}, + { "vote_yes", kVOTEYES ,_both}, + { "vote_no", kVOTENO ,_both}, { "next_slot", kNEXT_SLOT ,_both}, { "prev_slot", kPREV_SLOT ,_both}, - { "speech_menu_0", kSPEECH_MENU_0 ,_mp}, - { "speech_menu_1", kSPEECH_MENU_1 ,_mp}, + { "speech_menu_0", kSPEECH_MENU_0 ,_both}, + { "speech_menu_1", kSPEECH_MENU_1 ,_both}, { "quick_use_1", kQUICK_USE_1 ,_both}, { "quick_use_2", kQUICK_USE_2 ,_both}, @@ -89,8 +89,22 @@ _action actions[] = { { "quick_save", kQUICK_SAVE ,_sp}, { "quick_load", kQUICK_LOAD ,_sp}, // { "alife_command", kALIFE_CMD ,_sp}, - - + { "custom1", kCUSTOM1, _sp }, + { "custom2", kCUSTOM2, _sp }, + { "custom3", kCUSTOM3, _sp }, + { "custom4", kCUSTOM4, _sp }, + { "custom5", kCUSTOM5, _sp }, + { "custom6", kCUSTOM6, _sp }, + { "custom7", kCUSTOM7, _sp }, + { "custom8", kCUSTOM8, _sp }, + { "custom9", kCUSTOM9, _sp }, + { "custom10", kCUSTOM10, _sp }, + { "custom11", kCUSTOM11, _sp }, + { "custom12", kCUSTOM12, _sp }, + { "custom13", kCUSTOM13, _sp }, + { "custom14", kCUSTOM14, _sp }, + { "custom15", kCUSTOM15, _sp }, + { "cam_autoaim", kCAM_AUTOAIM, _sp }, { NULL, kLASTACTION ,_both} }; diff --git a/src/xrGame/xr_level_controller.h b/src/xrGame/xr_level_controller.h index 5e5700b278d..66e3c6c00d9 100644 --- a/src/xrGame/xr_level_controller.h +++ b/src/xrGame/xr_level_controller.h @@ -79,7 +79,25 @@ enum EGameActions kQUICK_SAVE, kQUICK_LOAD, - kALIFE_CMD, +// kALIFE_CMD, + + kCUSTOM1, + kCUSTOM2, + kCUSTOM3, + kCUSTOM4, + kCUSTOM5, + kCUSTOM6, + kCUSTOM7, + kCUSTOM8, + kCUSTOM9, + kCUSTOM10, + kCUSTOM11, + kCUSTOM12, + kCUSTOM13, + kCUSTOM14, + kCUSTOM15, + + kCAM_AUTOAIM, kLASTACTION, kNOTBINDED, diff --git a/src/xrServerEntities/object_item_script.cpp b/src/xrServerEntities/object_item_script.cpp index bc49da5a224..8d1b2f7a021 100644 --- a/src/xrServerEntities/object_item_script.cpp +++ b/src/xrServerEntities/object_item_script.cpp @@ -39,7 +39,7 @@ ObjectFactory::SERVER_BASE_CLASS *CObjectItemScript::server_object (LPCSTR secti try { instance = xr_new((luabind::object)(m_server_creator(section))); } - catch(std::exception e) { + catch (const std::exception& e) { Msg ("Exception [%s] raised while creating server object from section [%s]", e.what(),section); return (0); } @@ -50,7 +50,7 @@ ObjectFactory::SERVER_BASE_CLASS *CObjectItemScript::server_object (LPCSTR secti object = luabind::object_cast(*instance,luabind::adopt(luabind::result)); xr_delete (instance); } - catch(std::exception e) { + catch (const std::exception& e) { Msg ("Exception [%s] raised while casting and adopting script server object from section [%s]", e.what(),section); return (0); } From 67867d650b56cafc60e885a563c6664cf61068e9 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 9 Jul 2016 15:30:09 -0400 Subject: [PATCH 136/166] = fix rain = PVS Studio Warning fixes --- src/Layers/xrRender/dxRainRender.cpp | 4 +- src/xrCore/_matrix33.h | 1 + src/xrCore/xrstring.h | 2 +- src/xrEngine/Feel_Vision.h | 4 +- src/xrEngine/Rain.cpp | 6 +- src/xrEngine/SkeletonMotions.h | 8 +- src/xrEngine/StatGraph.h | 2 +- src/xrEngine/bone.h | 2 +- src/xrEngine/stdafx.h | 3 +- src/xrGame/ActorAnimation.cpp | 2 +- src/xrGame/AmebaZone.cpp | 2 +- src/xrGame/ParticlesPlayer.h | 2 +- src/xrGame/StdAfx.h | 9 ++- src/xrGame/ZoneCampfire.h | 1 + src/xrGame/ai/monsters/monster_sound_memory.h | 2 +- src/xrGame/alife_object.cpp | 12 ++- src/xrGame/edge_path_inline.h | 2 +- src/xrGame/graph_vertex_inline.h | 8 +- src/xrGame/ini_id_loader.h | 2 +- src/xrGame/level_graph_inline.h | 7 +- src/xrGame/script_movement_action.h | 2 +- src/xrGame/script_movement_action_inline.h | 10 +-- src/xrGame/script_sound_info.h | 2 +- src/xrGame/ui/UICellCustomItems.cpp | 73 ++++--------------- src/xrGame/ui/UIComboBox.cpp | 52 +++++++------ src/xrGame/ui/UIComboBox.h | 3 +- src/xrGame/ui/UIComboBox_script.cpp | 3 +- src/xrGame/vertex_path_inline.h | 2 +- src/xrGame/xrServer.h | 2 +- src/xrNetServer/NET_Server.h | 2 +- src/xrServerEntities/alife_space.h | 22 +++--- src/xrServerEntities/script_engine_inline.h | 4 +- src/xrServerEntities/xml_str_id_loader.h | 6 +- 33 files changed, 122 insertions(+), 142 deletions(-) diff --git a/src/Layers/xrRender/dxRainRender.cpp b/src/Layers/xrRender/dxRainRender.cpp index bc8c00f1274..790d824f95f 100644 --- a/src/Layers/xrRender/dxRainRender.cpp +++ b/src/Layers/xrRender/dxRainRender.cpp @@ -2,7 +2,7 @@ #include "dxRainRender.h" #include "../../xrEngine/Rain.h" - +#include "../../xrEngine/iGame_persistent.h" // Warning: duplicated in rain.cpp static const int max_desired_items = 2500; static const float source_radius = 12.5f; @@ -46,8 +46,6 @@ void dxRainRender::Copy(IRainRender &_in) *this = *(dxRainRender*)&_in; } -#include "../../xrEngine/iGame_persistent.h" - void dxRainRender::Render(CEffect_Rain &owner) { float factor = g_pGamePersistent->Environment().CurrentEnv->rain_density; diff --git a/src/xrCore/_matrix33.h b/src/xrCore/_matrix33.h index b630b6f1378..74db1d34d2e 100644 --- a/src/xrCore/_matrix33.h +++ b/src/xrCore/_matrix33.h @@ -432,6 +432,7 @@ struct _matrix33 R.x = s1*(m[0][0] * V1.x + m[1][0] * V1.y + m[2][0] * V1.z); R.y = s1*(m[0][1] * V1.x + m[1][1] * V1.y + m[2][1] * V1.z); R.z = s1*(m[0][2] * V1.x + m[1][2] * V1.y + m[2][2] * V1.z); + return *this; } IC SelfRef MxV(Tvector& R, const Tvector& V1) const { diff --git a/src/xrCore/xrstring.h b/src/xrCore/xrstring.h index c68f42254d8..2644d2579a6 100644 --- a/src/xrCore/xrstring.h +++ b/src/xrCore/xrstring.h @@ -125,7 +125,7 @@ IC int xr_strcmp(const shared_str& a, const shared_str& b) if (a.equal(b)) return 0; else return xr_strcmp(*a, *b); } -IC void xr_strlwr(xr_string& src) { for (xr_string::iterator it = src.begin(); it != src.end(); it++) *it = xr_string::value_type(tolower(*it)); } +IC void xr_strlwr(xr_string& src) { for (xr_string::iterator it = src.begin(); it != src.end(); ++it) *it = xr_string::value_type(tolower(*it)); } IC void xr_strlwr(shared_str& src) { if (*src) { LPSTR lp = xr_strdup(*src); xr_strlwr(lp); src = lp; xr_free(lp); } } #pragma pack(pop) diff --git a/src/xrEngine/Feel_Vision.h b/src/xrEngine/Feel_Vision.h index 64e5e578b6f..2e14f06296d 100644 --- a/src/xrEngine/Feel_Vision.h +++ b/src/xrEngine/Feel_Vision.h @@ -53,12 +53,12 @@ class ENGINE_API Vision : private pure_relcase { R.clear(); xr_vector::iterator I = feel_visible.begin(), E = feel_visible.end(); - for (; I != E; I++) if (positive(I->fuzzy)) R.push_back(I->O); + for (; I != E; ++I) if (positive(I->fuzzy)) R.push_back(I->O); } Fvector feel_vision_get_vispoint(CObject* _O) { xr_vector::iterator I = feel_visible.begin(), E = feel_visible.end(); - for (; I != E; I++) if (_O == I->O) + for (; I != E; ++I) if (_O == I->O) { VERIFY(positive(I->fuzzy)); return I->cp_LAST; diff --git a/src/xrEngine/Rain.cpp b/src/xrEngine/Rain.cpp index 55d7b6daeb9..5f4fe70c935 100644 --- a/src/xrEngine/Rain.cpp +++ b/src/xrEngine/Rain.cpp @@ -178,9 +178,9 @@ void CEffect_Rain::OnFrame() // ambient sound if (snd_Ambient._feedback()) { - // Fvector sndP; - // sndP.mad (Device.vCameraPosition,Fvector().set(0,1,0),source_offset); - // snd_Ambient.set_position(sndP); + Fvector sndP; + sndP.mad (Device.vCameraPosition,Fvector().set(0,1,0),source_offset); + snd_Ambient.set_position(sndP); snd_Ambient.set_volume(_max(0.1f, factor) * hemi_factor); } } diff --git a/src/xrEngine/SkeletonMotions.h b/src/xrEngine/SkeletonMotions.h index 24f949188a4..9cb2f50bd42 100644 --- a/src/xrEngine/SkeletonMotions.h +++ b/src/xrEngine/SkeletonMotions.h @@ -188,10 +188,10 @@ struct ENGINE_API motions_value u32 mem_usage() { u32 sz = sizeof(*this) + m_motion_map.size() * 6 + m_partition.mem_usage(); - for (MotionDefVecIt it = m_mdefs.begin(); it != m_mdefs.end(); it++) + for (MotionDefVecIt it = m_mdefs.begin(); it != m_mdefs.end(); ++it) sz += it->mem_usage(); - for (BoneMotionMapIt bm_it = m_motions.begin(); bm_it != m_motions.end(); bm_it++) - for (MotionVecIt m_it = bm_it->second.begin(); m_it != bm_it->second.end(); m_it++) + for (BoneMotionMapIt bm_it = m_motions.begin(); bm_it != m_motions.end(); ++bm_it) + for (MotionVecIt m_it = bm_it->second.begin(); m_it != bm_it->second.end(); ++m_it) sz += m_it->mem_usage(); return sz; } @@ -233,7 +233,7 @@ class ENGINE_API shared_motions bool operator== (shared_motions const& rhs) const { return (p_ == rhs.p_); } // misc func - MotionVec* bone_motions(shared_str bone_name) { VERIFY(p_); return p_->bone_motions(bone_name); } + MotionVec* bone_motions(const shared_str &bone_name) { VERIFY(p_); return p_->bone_motions(bone_name); } accel_map* motion_map() { VERIFY(p_); return &p_->m_motion_map; } accel_map* cycle() { VERIFY(p_); return &p_->m_cycle; } accel_map* fx() { VERIFY(p_); return &p_->m_fx; } diff --git a/src/xrEngine/StatGraph.h b/src/xrEngine/StatGraph.h index 252565cf5e2..3fffe6c5757 100644 --- a/src/xrEngine/StatGraph.h +++ b/src/xrEngine/StatGraph.h @@ -112,7 +112,7 @@ class ENGINE_API CStatGraph : public pureRender mn = _mn; mx = _mx; max_item_count = item_count; - for (SubGraphVecIt it = subgraphs.begin(); it != subgraphs.end(); it++) + for (SubGraphVecIt it = subgraphs.begin(); it != subgraphs.end(); ++it) { while (it->elements.size() > max_item_count) it->elements.pop_front(); }; diff --git a/src/xrEngine/bone.h b/src/xrEngine/bone.h index 3794cc47e45..7425e9800d9 100644 --- a/src/xrEngine/bone.h +++ b/src/xrEngine/bone.h @@ -524,7 +524,7 @@ class ENGINE_API CBoneData : virtual u32 mem_usage() { u32 sz = sizeof(*this) + sizeof(vecBones::value_type)*children.size(); - for (ChildFacesVecIt c_it = child_faces.begin(); c_it != child_faces.end(); c_it++) + for (ChildFacesVecIt c_it = child_faces.begin(); c_it != child_faces.end(); ++c_it) sz += c_it->size()*sizeof(FacesVec::value_type) + sizeof(*c_it); return sz; } diff --git a/src/xrEngine/stdafx.h b/src/xrEngine/stdafx.h index e06d05af951..ad86186c6bf 100644 --- a/src/xrEngine/stdafx.h +++ b/src/xrEngine/stdafx.h @@ -23,10 +23,11 @@ # define D3D_DEBUG_INFO #endif +#pragma warning(push) #pragma warning(disable:4995) #include //#include -#pragma warning(default:4995) +#pragma warning(pop) // you must define ENGINE_BUILD then building the engine itself // and not define it if you are about to build DLL diff --git a/src/xrGame/ActorAnimation.cpp b/src/xrGame/ActorAnimation.cpp index 7e7f42589b1..040dff96e93 100644 --- a/src/xrGame/ActorAnimation.cpp +++ b/src/xrGame/ActorAnimation.cpp @@ -344,7 +344,7 @@ void CActor::g_SetAnimation( u32 mstate_rl ) else ST = &m_anims->m_normal; - STorsoWpn* __TW = &ST->m_torso[4]; //Alundaio: Animation Set knife/grenade running animation without weapon by XEM #100 + //STorsoWpn* __TW = &ST->m_torso[4]; //Alundaio: Animation Set knife/grenade running animation without weapon by XEM #100 bool bAccelerated = isActorAccelerated(mstate_rl, IsZoomAimingMode()); if ( bAccelerated ) diff --git a/src/xrGame/AmebaZone.cpp b/src/xrGame/AmebaZone.cpp index 6d919e9f55b..dc4580a7871 100644 --- a/src/xrGame/AmebaZone.cpp +++ b/src/xrGame/AmebaZone.cpp @@ -55,7 +55,7 @@ void CAmebaZone::Affect(SZoneObjectInfo* O) Fvector position_in_bone_space; float power = Power(distance_to_center(O->object), m_fEffectiveRadius); - float power_critical = 0.0f; + //float power_critical = 0.0f; float impulse = m_fHitImpulseScale*power*pGameObject->GetMass(); if(power > 0.01f) diff --git a/src/xrGame/ParticlesPlayer.h b/src/xrGame/ParticlesPlayer.h index 3cd915502f0..eb58f9a877c 100644 --- a/src/xrGame/ParticlesPlayer.h +++ b/src/xrGame/ParticlesPlayer.h @@ -56,7 +56,7 @@ protected : IC SBoneInfo* get_bone_info (u16 bone_index) { if (BI_NONE==bone_index) return 0; - for (BoneInfoVecIt it=m_Bones.begin(); it!=m_Bones.end(); it++) + for (BoneInfoVecIt it=m_Bones.begin(); it!=m_Bones.end(); ++it) if (it->index==bone_index) return &(*it); return 0; } diff --git a/src/xrGame/StdAfx.h b/src/xrGame/StdAfx.h index 230f47e661b..7baf8c13b8f 100644 --- a/src/xrGame/StdAfx.h +++ b/src/xrGame/StdAfx.h @@ -1,13 +1,20 @@ #pragma once +#pragma warning(push) #pragma warning(disable:4995) #include "../xrEngine/stdafx.h" #include "DPlay/dplay8.h" -#pragma warning(default:4995) +#pragma warning(pop) +//#pragma warning(default:4995) #pragma warning( 4 : 4018 ) #pragma warning( 4 : 4244 ) #pragma warning(disable:4505) +#pragma warning(disable:4251) +#pragma warning(disable:4127) +#pragma warning(disable:4100) +#pragma warning(disable:4201) + //AVO: print, don't fail #include "../build_config_defines.h" #ifdef NON_FATAL_VERIFY diff --git a/src/xrGame/ZoneCampfire.h b/src/xrGame/ZoneCampfire.h index e06d18586f8..0e4d91e7a74 100644 --- a/src/xrGame/ZoneCampfire.h +++ b/src/xrGame/ZoneCampfire.h @@ -3,6 +3,7 @@ class CZoneCampfire :public CMosquitoBald { +private: typedef CMosquitoBald inherited; protected: CParticlesObject* m_pEnablingParticles; diff --git a/src/xrGame/ai/monsters/monster_sound_memory.h b/src/xrGame/ai/monsters/monster_sound_memory.h index 208b2dd2ff0..f5e54f5a177 100644 --- a/src/xrGame/ai/monsters/monster_sound_memory.h +++ b/src/xrGame/ai/monsters/monster_sound_memory.h @@ -58,7 +58,7 @@ typedef struct tagSoundElement } TSoundDangerValue ConvertSoundType(ESoundTypes stype); - void CalcValue(TTime cur_time, Fvector cur_pos) { + void CalcValue(TTime cur_time, const Fvector &cur_pos) { value = FACTOR_SOUND_TYPE * u32(NONE_DANGEROUS_SOUND - WEAPON_SHOOTING) - iFloor(FACTOR_DISTANCE * cur_pos.distance_to(position)) - FACTOR_DELTA_TIME * iFloor(float((cur_time - time) / 1000)) + FACTOR_SOUND_POWER * iFloor(power); } diff --git a/src/xrGame/alife_object.cpp b/src/xrGame/alife_object.cpp index f241326cdb1..17271dcf15f 100644 --- a/src/xrGame/alife_object.cpp +++ b/src/xrGame/alife_object.cpp @@ -39,14 +39,16 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) // No need to spawn ammo, this will automatically spawn 1 box for weapon and if ammo_type is specficied it will spawn that type // count is used only for ammo boxes (ie wpn_pm = 3) will spawn 3 boxes, not 3 wpn_pm // Usage: to create random weapon loadouts - if (ini.section_exist("spawn_loadout")) + LPCSTR loadout_section = "spawn_loadout"; + u8 iItr = 1; + while (ini.section_exist(loadout_section)) { LPCSTR itmSection, V; xr_vector OnlyOne; OnlyOne.clear(); LPCSTR lname = *ai().game_graph().header().level(ai().game_graph().vertex(m_tGraphID)->level_id()).name(); - for (u32 k = 0; ini.r_line("spawn_loadout", k, &itmSection, &V); k++) + for (u32 k = 0; ini.r_line(loadout_section, k, &itmSection, &V); k++) { // If level= then only spawn items if object on that level if (strstr(V, "level=") != NULL) @@ -62,7 +64,7 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) if (!OnlyOne.empty()) { s32 sel = ::Random.randI(0, OnlyOne.size()); - if (ini.r_line("spawn_loadout", OnlyOne.at(sel), &itmSection, &V)) + if (ini.r_line(loadout_section, OnlyOne.at(sel), &itmSection, &V)) { VERIFY(xr_strlen(itmSection)); if (pSettings->section_exist(itmSection)) @@ -132,6 +134,10 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) } } } + + iItr++; + string32 buf; + loadout_section = strconcat(sizeof(buf),buf,"spawn_loadout", std::to_string(iItr).c_str()); } //-Alundaio diff --git a/src/xrGame/edge_path_inline.h b/src/xrGame/edge_path_inline.h index a23b30e51af..b74e6c9a769 100644 --- a/src/xrGame/edge_path_inline.h +++ b/src/xrGame/edge_path_inline.h @@ -51,7 +51,7 @@ IC void CEdgePathBuilder::get_edge_path (xr_vector<_edge_type> &path, CGraphVert if (!reverse_order) { xr_vector<_edge_type>::reverse_iterator I = path.rbegin(); - xr_vector<_edge_type>::reverse_iterator E = path.rend(); + //xr_vector<_edge_type>::reverse_iterator E = path.rend(); for (; t2->back() ; t2 = t2->back(), ++I) *I = t2->edge(); } diff --git a/src/xrGame/graph_vertex_inline.h b/src/xrGame/graph_vertex_inline.h index d7039cd378a..612ff8e81e6 100644 --- a/src/xrGame/graph_vertex_inline.h +++ b/src/xrGame/graph_vertex_inline.h @@ -66,8 +66,8 @@ IC typename CSGraphVertex::_edge_type *CSGraphVertex::edge (const _vertex_id_t TEMPLATE_SPECIALIZATION IC void CSGraphVertex::add_edge (CVertex *vertex, const _edge_weight_type &edge_weight) { - EDGES::iterator I = std::find(m_edges.begin(),m_edges.end(),vertex->vertex_id()); - VERIFY (m_edges.end() == I); +// EDGES::iterator I = std::find(m_edges.begin(),m_edges.end(),vertex->vertex_id()); +// VERIFY (m_edges.end() == I); vertex->on_edge_addition(this); m_edges.push_back (_edge_type(edge_weight,vertex)); ++*m_edge_count; @@ -87,8 +87,8 @@ IC void CSGraphVertex::remove_edge (const _vertex_id_type &vertex_id) TEMPLATE_SPECIALIZATION IC void CSGraphVertex::on_edge_addition (CVertex *vertex) { - VERTICES::const_iterator I = std::find(m_vertices.begin(),m_vertices.end(),vertex); - VERIFY (I == m_vertices.end()); +// VERTICES::const_iterator I = std::find(m_vertices.begin(),m_vertices.end(),vertex); +// VERIFY (I == m_vertices.end()); m_vertices.push_back (vertex); } diff --git a/src/xrGame/ini_id_loader.h b/src/xrGame/ini_id_loader.h index 128106088b7..16145ef8c00 100644 --- a/src/xrGame/ini_id_loader.h +++ b/src/xrGame/ini_id_loader.h @@ -123,7 +123,7 @@ TEMPLATE_SPECIALIZATION const typename ITEM_DATA* CSINI_IdToIndex::GetById (const T_ID& str_id, bool no_assert) { for(T_VECTOR::iterator it = m_pItemDataVector->begin(); - m_pItemDataVector->end() != it; it++) + m_pItemDataVector->end() != it; ++it) { if(!xr_strcmp((*it).id, str_id)) break; diff --git a/src/xrGame/level_graph_inline.h b/src/xrGame/level_graph_inline.h index 93541459e20..4ce6b346482 100644 --- a/src/xrGame/level_graph_inline.h +++ b/src/xrGame/level_graph_inline.h @@ -565,13 +565,14 @@ IC u32 CLevelGraph::row_length () const IC bool CLevelGraph::valid_vertex_position (const Fvector &position) const { - if ((position.x < header().box().min.x - header().cell_size()*.5f) || (position.x > header().box().max.x + header().cell_size()*.5f) || (position.z < header().box().min.z - header().cell_size()*.5f) || (position.z > header().box().max.z + header().cell_size()*.5f)) + const Fbox* box = &header().box(); + if ((position.x < box->min.x - header().cell_size()*.5f) || (position.x > box->max.x + header().cell_size()*.5f) || (position.z < box->min.z - header().cell_size()*.5f) || (position.z > box->max.z + header().cell_size()*.5f)) return (false); - if (!(iFloor((position.z - header().box().min.z)/header().cell_size() + .5f) < (int)m_row_length)) + if (!(iFloor((position.z - box->min.z) / header().cell_size() + .5f) < (int)m_row_length)) return (false); - if (!(iFloor((position.x - header().box().min.x)/header().cell_size() + .5f) < (int)m_column_length)) + if (!(iFloor((position.x - box->min.x) / header().cell_size() + .5f) < (int)m_column_length)) return (false); return ((vertex_position(position).xz() < (1 << MAX_NODE_BIT_COUNT) - 1)); diff --git a/src/xrGame/script_movement_action.h b/src/xrGame/script_movement_action.h index 744e8a59be0..1f6298d5585 100644 --- a/src/xrGame/script_movement_action.h +++ b/src/xrGame/script_movement_action.h @@ -104,7 +104,7 @@ class CScriptMovementAction : public CScriptAbstractAction { IC void SetMovementType (const MonsterSpace::EMovementType tMovementType); IC void SetPathType (const DetailPathManager::EDetailPathType tPathType); void SetObjectToGo (CScriptGameObject *tpObjectToGo); - IC void SetPatrolPath (const CPatrolPath *path, shared_str path_name); + IC void SetPatrolPath (const CPatrolPath *path, const shared_str &path_name); IC void SetPosition (const Fvector &tPosition); IC void SetSpeed (float fSpeed); IC void SetPatrolStart (PatrolPathManager::EPatrolStartType tPatrolPathStart); diff --git a/src/xrGame/script_movement_action_inline.h b/src/xrGame/script_movement_action_inline.h index fd679e8e1f7..70530306861 100644 --- a/src/xrGame/script_movement_action_inline.h +++ b/src/xrGame/script_movement_action_inline.h @@ -70,19 +70,19 @@ IC void CScriptMovementAction::SetPathType (const DetailPathManager::EDetailPa m_bCompleted = false; } -IC void CScriptMovementAction::SetPatrolPath (const CPatrolPath *path, shared_str path_name) +IC void CScriptMovementAction::SetPatrolPath (const CPatrolPath *path, const shared_str &path_name) { m_path = path; m_path_name = path_name; - m_tGoalType = eGoalTypePatrolPath; + m_tGoalType = EGoalType::eGoalTypePatrolPath; m_bCompleted = false; } IC void CScriptMovementAction::SetPosition (const Fvector &tPosition) { m_tDestinationPosition = tPosition; - m_tGoalType = eGoalTypePathPosition; - m_bCompleted = false; + m_tGoalType = EGoalType::eGoalTypePathPosition; + m_bCompleted = false; } IC void CScriptMovementAction::SetSpeed (float fSpeed) @@ -112,7 +112,7 @@ IC void CScriptMovementAction::SetPatrolRandom (bool bRandom) IC void CScriptMovementAction::SetInputKeys (const EInputKeys tInputKeys) { m_tInputKeys = tInputKeys; - m_tGoalType = eGoalTypeInput; + m_tGoalType = EGoalType::eGoalTypeInput; m_bCompleted = false; } diff --git a/src/xrGame/script_sound_info.h b/src/xrGame/script_sound_info.h index 3630ff8c191..f4dcd096bb1 100644 --- a/src/xrGame/script_sound_info.h +++ b/src/xrGame/script_sound_info.h @@ -22,7 +22,7 @@ class CScriptSoundInfo { position = Fvector().set(0.f,0.f,0.f); } - void set(CScriptGameObject *p_who, bool p_danger, Fvector p_position, float p_power, int p_time) { + void set(CScriptGameObject *p_who, bool p_danger,Fvector p_position, float p_power, int p_time) { who = p_who; position = p_position; power = p_power; diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index ac05fbf57d8..ce476781f96 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -41,75 +41,30 @@ CUIInventoryCellItem::CUIInventoryCellItem(CInventoryItem* itm) inherited::SetStretchTexture (true); //Alundaio; Layered icon - LPCSTR section = pSettings->line_exist(itm->m_section_id,"1icon_layer") ? pSettings->r_string(itm->m_section_id, "1icon_layer") : NULL; - if (section && pSettings->section_exist(section)) + u8 itrNum = 1; + LPCSTR field = "1icon_layer"; + while (pSettings->line_exist(itm->m_section_id, field)) { - Fvector2 offset; - offset.x = pSettings->r_float(itm->m_section_id, "1icon_layer_x"); - offset.y = pSettings->r_float(itm->m_section_id, "1icon_layer_y"); + string32 buf; - float scale = pSettings->line_exist(itm->m_section_id, "1icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "1icon_layer_scale") : 1.0f; - u32 color; - if (pSettings->line_exist(itm->m_section_id, "1icon_layer_color")) - color = pSettings->r_color(itm->m_section_id, "1icon_layer_color"); + LPCSTR section = pSettings->r_string(itm->m_section_id, field); + if (!section) + continue; - CreateLayer(section, offset, color, scale); - } - section = pSettings->line_exist(itm->m_section_id, "2icon_layer") ? pSettings->r_string(itm->m_section_id, "2icon_layer") : NULL; - if (section && pSettings->section_exist(section)) - { Fvector2 offset; - offset.x = pSettings->r_float(itm->m_section_id, "2icon_layer_x"); - offset.y = pSettings->r_float(itm->m_section_id, "2icon_layer_y"); - - float scale = pSettings->line_exist(itm->m_section_id, "2icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "2icon_layer_scale") : 1.0f; - u32 color; - if (pSettings->line_exist(itm->m_section_id, "2icon_layer_color")) - color = pSettings->r_color(itm->m_section_id, "2icon_layer_color"); + offset.x = pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf),buf,std::to_string(itrNum).c_str(),"icon_layer_x")); + offset.x = pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_y")); - CreateLayer(section, offset, color, scale); - } - section = pSettings->line_exist(itm->m_section_id, "3icon_layer") ? pSettings->r_string(itm->m_section_id, "3icon_layer") : NULL; - if (section && pSettings->section_exist(section)) - { - Fvector2 offset; - offset.x = pSettings->r_float(itm->m_section_id, "3icon_layer_x"); - offset.y = pSettings->r_float(itm->m_section_id, "3icon_layer_y"); + float scale = pSettings->line_exist(itm->m_section_id, field) ? pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_scale")) : 1.0f; - float scale = pSettings->line_exist(itm->m_section_id, "3icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "3icon_layer_scale") : 1.0f; - u32 color; - if (pSettings->line_exist(itm->m_section_id, "3icon_layer_color")) - color = pSettings->r_color(itm->m_section_id, "3icon_layer_color"); + LPCSTR field_color = strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_color"); + u32 color = pSettings->line_exist(itm->m_section_id, field_color) ? pSettings->r_color(itm->m_section_id, field_color) : GetTextureColor(); CreateLayer(section, offset, color, scale); - } - section = pSettings->line_exist(itm->m_section_id, "4icon_layer") ? pSettings->r_string(itm->m_section_id, "4icon_layer") : NULL; - if (section && pSettings->section_exist(section)) - { - Fvector2 offset; - offset.x = pSettings->r_float(itm->m_section_id, "4icon_layer_x"); - offset.y = pSettings->r_float(itm->m_section_id, "4icon_layer_y"); - float scale = pSettings->line_exist(itm->m_section_id, "4icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "4icon_layer_scale") : 1.0f; - u32 color; - if (pSettings->line_exist(itm->m_section_id, "4icon_layer_color")) - color = pSettings->r_color(itm->m_section_id, "4icon_layer_color"); + itrNum++; - CreateLayer(section, offset, color, scale); - } - section = pSettings->line_exist(itm->m_section_id, "5icon_layer") ? pSettings->r_string(itm->m_section_id, "5icon_layer") : NULL; - if (section && pSettings->section_exist(section)) - { - Fvector2 offset; - offset.x = pSettings->r_float(itm->m_section_id, "5icon_layer_x"); - offset.y = pSettings->r_float(itm->m_section_id, "5icon_layer_y"); - - float scale = pSettings->line_exist(itm->m_section_id, "5icon_layer_scale") ? pSettings->r_float(itm->m_section_id, "5icon_layer_scale") : 1.0f; - u32 color; - if (pSettings->line_exist(itm->m_section_id, "5icon_layer_color")) - color = pSettings->r_color(itm->m_section_id, "5icon_layer_color"); - - CreateLayer(section, offset, color, scale); + field = strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer"); } //-Alundaio } diff --git a/src/xrGame/ui/UIComboBox.cpp b/src/xrGame/ui/UIComboBox.cpp index 0364655c83a..c769556fd15 100644 --- a/src/xrGame/ui/UIComboBox.cpp +++ b/src/xrGame/ui/UIComboBox.cpp @@ -270,32 +270,30 @@ void CUIComboBox::OnFocusReceive() } bool CUIComboBox::OnMouseAction(float x, float y, EUIMessages mouse_action){ - if(CUIWindow::OnMouseAction(x, y, mouse_action)) - return true; - bool bCursorOverScb = false; - bCursorOverScb = m_list_box.ScrollBar()->CursorOverWindow(); - switch (m_eState){ - case LIST_EXPANDED: + if (CUIWindow::OnMouseAction(x, y, mouse_action)) + return true; - if ( (!bCursorOverScb) && mouse_action == WINDOW_LBUTTON_DOWN) - { - ShowList(false); - return true; - } - break; - case LIST_FONDED: - if(mouse_action==WINDOW_LBUTTON_DOWN) - { + if (mouse_action == WINDOW_LBUTTON_DOWN) + { + switch (m_eState) + { + case LIST_EXPANDED: + if (!m_list_box.ScrollBar()->CursorOverWindow()) + { + ShowList(false); + return true; + } + break; + case LIST_FONDED: OnBtnClicked(); - return true; - }break; - default: - break; - } - + return true; + default: + break; + } + } - return false; + return false; } void CUIComboBox::SendMessage(CUIWindow* pWnd, s16 msg, void* pData) @@ -338,3 +336,13 @@ void CUIComboBox::ClearList() ShowList(false); m_disabled.clear(); } + +void CUIComboBox::SetSelectedIDX(u32 idx) +{ + m_list_box.SetSelectedIDX(idx); +} + +u32 CUIComboBox::GetSelectedIDX() +{ + return m_list_box.GetSelectedIDX(); +} \ No newline at end of file diff --git a/src/xrGame/ui/UIComboBox.h b/src/xrGame/ui/UIComboBox.h index abac8221d30..b411cc3c705 100644 --- a/src/xrGame/ui/UIComboBox.h +++ b/src/xrGame/ui/UIComboBox.h @@ -38,7 +38,8 @@ class CUIComboBox : public CUIWindow, public CUIOptionsItem, public pureRender void InitComboBox (Fvector2 pos, float width); void SetItemIDX (int idx); void SetItemToken (int tok); - + u32 GetSelectedIDX (); + void SetSelectedIDX (u32 idx); virtual void SendMessage (CUIWindow *pWnd, s16 msg, void* pData = 0); virtual void OnFocusLost (); virtual void OnFocusReceive (); diff --git a/src/xrGame/ui/UIComboBox_script.cpp b/src/xrGame/ui/UIComboBox_script.cpp index 9e7398f4102..1e775bff59a 100644 --- a/src/xrGame/ui/UIComboBox_script.cpp +++ b/src/xrGame/ui/UIComboBox_script.cpp @@ -31,6 +31,7 @@ void CUIComboBox::script_register(lua_State *L) .def("SetText", &CUIComboBox::SetText) .def("ClearList", &CUIComboBox::ClearList) .def("SetCurrentOptValue", &CUIComboBox::SetCurrentOptValue) - + .def("SetCurrentIdx", &CUIComboBox::SetSelectedIDX) + .def("GetCurrentIdx", &CUIComboBox::GetSelectedIDX) ]; } \ No newline at end of file diff --git a/src/xrGame/vertex_path_inline.h b/src/xrGame/vertex_path_inline.h index f5cc869bc73..c1bbb30a49b 100644 --- a/src/xrGame/vertex_path_inline.h +++ b/src/xrGame/vertex_path_inline.h @@ -62,7 +62,7 @@ IC void CVertexPathBuilder::get_node_path (xr_vector<_index_type> &path, CGraphV t2 = t1->back(); xr_vector<_index_type>::reverse_iterator I = path.rbegin(); - xr_vector<_index_type>::reverse_iterator E = path.rend(); + //xr_vector<_index_type>::reverse_iterator E = path.rend(); for (++I ; t2; t2 = t2->back(), ++I) *I = t2->index(); } diff --git a/src/xrGame/xrServer.h b/src/xrGame/xrServer.h index c51dfe1cc60..22ae9f8ac7b 100644 --- a/src/xrGame/xrServer.h +++ b/src/xrGame/xrServer.h @@ -250,7 +250,7 @@ class xrServer : public IPureServer CSE_Abstract* GetEntity (u32 Num); u32 const GetLastUpdatesSize () const { return m_last_updates_size; }; - xrClientData* ID_to_client (ClientID ID, bool ScanAll = false ) { return (xrClientData*)(IPureServer::ID_to_client( ID, ScanAll)); } + xrClientData* ID_to_client (ClientID const &ID, bool ScanAll = false ) { return (xrClientData*)(IPureServer::ID_to_client( ID, ScanAll)); } CSE_Abstract* ID_to_entity (u16 ID); // main diff --git a/src/xrNetServer/NET_Server.h b/src/xrNetServer/NET_Server.h index f8e6ed683c9..cf867507a09 100644 --- a/src/xrNetServer/NET_Server.h +++ b/src/xrNetServer/NET_Server.h @@ -278,7 +278,7 @@ IPureServer bool IsPlayerIPDenied(u32 ip_address); //WARNING! very bad method :( //IClient* client_Get (u32 index) {return net_players.GetClientByIndex(index);}; - IClient* GetClientByID (ClientID clientId) {return net_players.GetFoundClient(ClientIdSearchPredicate(clientId));}; + IClient* GetClientByID (const ClientID &clientId) {return net_players.GetFoundClient(ClientIdSearchPredicate(clientId));}; //IClient* GetDisconnectedClientByID(ClientID clientId) {return net_players.GetFoundDisconnectedClient(ClientIdSearchPredicate(clientId));} diff --git a/src/xrServerEntities/alife_space.h b/src/xrServerEntities/alife_space.h index 5543e1310c1..80897248ec8 100644 --- a/src/xrServerEntities/alife_space.h +++ b/src/xrServerEntities/alife_space.h @@ -148,27 +148,27 @@ namespace ALife { IC EHitType g_tfString2HitType(LPCSTR caHitType) { - if (!stricmp(caHitType,"burn")) + if (!_stricmp(caHitType,"burn")) return(eHitTypeBurn); - else if (!stricmp(caHitType,"light_burn")) + else if (!_stricmp(caHitType,"light_burn")) return(eHitTypeLightBurn); - else if (!stricmp(caHitType,"shock")) + else if (!_stricmp(caHitType,"shock")) return(eHitTypeShock); - else if (!stricmp(caHitType,"strike")) + else if (!_stricmp(caHitType,"strike")) return(eHitTypeStrike); - else if (!stricmp(caHitType,"wound")) + else if (!_stricmp(caHitType,"wound")) return(eHitTypeWound); - else if (!stricmp(caHitType,"radiation")) + else if (!_stricmp(caHitType,"radiation")) return(eHitTypeRadiation); - else if (!stricmp(caHitType,"telepatic")) + else if (!_stricmp(caHitType,"telepatic")) return(eHitTypeTelepatic); - else if (!stricmp(caHitType,"fire_wound")) + else if (!_stricmp(caHitType,"fire_wound")) return(eHitTypeFireWound); - else if (!stricmp(caHitType,"chemical_burn")) + else if (!_stricmp(caHitType,"chemical_burn")) return(eHitTypeChemicalBurn); - else if (!stricmp(caHitType,"explosion")) + else if (!_stricmp(caHitType,"explosion")) return(eHitTypeExplosion); - else if (!stricmp(caHitType,"wound_2")) + else if (!_stricmp(caHitType,"wound_2")) return(eHitTypeWound_2); else FATAL ("Unsupported hit type!"); diff --git a/src/xrServerEntities/script_engine_inline.h b/src/xrServerEntities/script_engine_inline.h index 5f4948f4ed1..7f1625a7286 100644 --- a/src/xrServerEntities/script_engine_inline.h +++ b/src/xrServerEntities/script_engine_inline.h @@ -10,8 +10,8 @@ IC void CScriptEngine::add_script_process (const EScriptProcessors &process_id, CScriptProcess *script_process) { - CScriptProcessStorage::const_iterator I = m_script_processes.find(process_id); - VERIFY (I == m_script_processes.end()); +// CScriptProcessStorage::const_iterator I = m_script_processes.find(process_id); +// VERIFY (I == m_script_processes.end()); m_script_processes.insert (std::make_pair(process_id,script_process)); } diff --git a/src/xrServerEntities/xml_str_id_loader.h b/src/xrServerEntities/xml_str_id_loader.h index 5fc7ece39e3..4213cd31b1d 100644 --- a/src/xrServerEntities/xml_str_id_loader.h +++ b/src/xrServerEntities/xml_str_id_loader.h @@ -97,7 +97,7 @@ const typename ITEM_DATA* CSXML_IdToIndex::GetById (const shared_str& str_id, bo T_INIT::InitXmlIdToIndex(); for(T_VECTOR::iterator it = m_pItemDataVector->begin(); - m_pItemDataVector->end() != it; it++) + m_pItemDataVector->end() != it; ++it) { if( (*it).id == str_id) break; @@ -106,7 +106,7 @@ const typename ITEM_DATA* CSXML_IdToIndex::GetById (const shared_str& str_id, bo if(m_pItemDataVector->end() == it) { int i=0; - for(T_VECTOR::iterator it = m_pItemDataVector->begin(); m_pItemDataVector->end() != it; it++,i++) + for(T_VECTOR::iterator it = m_pItemDataVector->begin(); m_pItemDataVector->end() != it; ++it,i++) Msg("[%d]=[%s]",i,*(*it).id ); R_ASSERT3(no_assert, "item not found, id", *str_id); @@ -174,7 +174,7 @@ typename void CSXML_IdToIndex::InitInternal () //проверетить ID на уникальность T_VECTOR::iterator t_it = m_pItemDataVector->begin(); - for(;m_pItemDataVector->end() != t_it; t_it++) + for(;m_pItemDataVector->end() != t_it; ++t_it) { if(shared_str((*t_it).id) == shared_str(item_name)) break; From a74284a241de5570d4045e72f91219da5c9e43c0 Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 11 Jul 2016 01:49:50 -0400 Subject: [PATCH 137/166] + now disable the use of precompiled shaders by default. Can be re-enabled with r__use_precompiled_shaders 1 in dev console = fix layered icons * enabled layered sounds in build_config_defines.h --- src/Layers/xrRender/PSLibrary.cpp | 8 +-- src/Layers/xrRender/ParticleEffectDef.h | 4 +- src/Layers/xrRender/SkeletonCustom.h | 2 +- src/Layers/xrRender/r__dsgraph_build.cpp | 56 +++++++++---------- src/Layers/xrRender/r__dsgraph_render.cpp | 6 +- src/Layers/xrRender/xrRender_console.cpp | 6 +- src/Layers/xrRender/xrRender_console.h | 5 ++ src/Layers/xrRenderDX9/dx9R_Backend_Runtime.h | 2 +- src/Layers/xrRenderPC_R1/FStaticRender.cpp | 11 ++-- .../xrRenderPC_R1/FStaticRender_Loader.cpp | 43 +++++++------- .../FStaticRender_RenderTarget.cpp | 2 +- src/Layers/xrRenderPC_R2/r2.cpp | 11 ++-- src/Layers/xrRenderPC_R2/r2_loader.cpp | 19 ++++--- src/Layers/xrRenderPC_R3/r3.cpp | 15 ++--- src/Layers/xrRenderPC_R3/r3_loader.cpp | 16 +++--- src/Layers/xrRenderPC_R4/r4.cpp | 17 +++--- src/Layers/xrRenderPC_R4/r4_loader.cpp | 10 ++++ src/build_config_defines.h | 2 +- src/xrGame/HudSound.cpp | 13 ++++- src/xrGame/eatable_item.h | 4 +- src/xrGame/ui/UICellCustomItems.cpp | 28 +++++----- src/xrGame/ui/UICellCustomItems.h | 6 +- src/xrXMLParser/tinyxml.h | 2 +- 23 files changed, 166 insertions(+), 122 deletions(-) diff --git a/src/Layers/xrRender/PSLibrary.cpp b/src/Layers/xrRender/PSLibrary.cpp index 8501ef0c979..8bab03fe63e 100644 --- a/src/Layers/xrRender/PSLibrary.cpp +++ b/src/Layers/xrRender/PSLibrary.cpp @@ -38,14 +38,14 @@ void CPSLibrary::OnCreate() void CPSLibrary::OnDestroy() { - for (PS::PEDIt e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); e_it++) + for (PS::PEDIt e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); ++e_it) (*e_it)->DestroyShader(); for (e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); e_it++) xr_delete (*e_it); m_PEDs.clear (); - for (PS::PGDIt g_it = m_PGDs.begin(); g_it!=m_PGDs.end(); g_it++) + for (PS::PGDIt g_it = m_PGDs.begin(); g_it!=m_PGDs.end(); ++g_it) xr_delete (*g_it); m_PGDs.clear (); } @@ -176,7 +176,7 @@ bool CPSLibrary::Load2() std::sort (m_PEDs.begin(),m_PEDs.end(),ped_sort_pred); std::sort (m_PGDs.begin(),m_PGDs.end(),pgd_sort_pred); - for (PS::PEDIt e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); e_it++) + for (PS::PEDIt e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); ++e_it) (*e_it)->CreateShader(); #ifdef _EDITOR @@ -236,7 +236,7 @@ bool CPSLibrary::Load(const char* nm) std::sort (m_PEDs.begin(),m_PEDs.end(),ped_sort_pred); std::sort (m_PGDs.begin(),m_PGDs.end(),pgd_sort_pred); - for (PS::PEDIt e_it = m_PEDs.begin(); e_it!=m_PEDs.end(); e_it++) + for (PS::PEDIt e_it = m_PEDs.begin(); e_it != m_PEDs.end(); ++e_it) (*e_it)->CreateShader(); return bRes; diff --git a/src/Layers/xrRender/ParticleEffectDef.h b/src/Layers/xrRender/ParticleEffectDef.h index bb1f67b26e2..ec5c78e9fac 100644 --- a/src/Layers/xrRender/ParticleEffectDef.h +++ b/src/Layers/xrRender/ParticleEffectDef.h @@ -39,8 +39,8 @@ namespace PS } IC void CalculateTC(int frame, Fvector2& lt, Fvector2& rb) { - lt.x = (frame%m_iFrameDimX)*m_fTexSize.x; - lt.y = (frame/m_iFrameDimX)*m_fTexSize.y; + lt.x = (float)((frame%m_iFrameDimX)*m_fTexSize.x); + lt.y = (float)((frame/m_iFrameDimX)*m_fTexSize.y); rb.x = lt.x+m_fTexSize.x; rb.y = lt.y+m_fTexSize.y; } diff --git a/src/Layers/xrRender/SkeletonCustom.h b/src/Layers/xrRender/SkeletonCustom.h index dfde483028e..643415e4f50 100644 --- a/src/Layers/xrRender/SkeletonCustom.h +++ b/src/Layers/xrRender/SkeletonCustom.h @@ -246,7 +246,7 @@ class CKinematics: public FHierrarhyVisual, public IKinematics sz += bone_instances?bone_instances->mem_usage():0; if (!bInstance){ // sz += pUserData?pUserData->mem_usage():0; - for (vecBonesIt b_it=bones->begin(); b_it!=bones->end(); b_it++) + for (vecBonesIt b_it=bones->begin(); b_it!=bones->end(); ++b_it) sz += sizeof(vecBones::value_type)+(*b_it)->mem_usage(); } return sz; diff --git a/src/Layers/xrRender/r__dsgraph_build.cpp b/src/Layers/xrRender/r__dsgraph_build.cpp index 29a3b465d88..59a7d8b2c5f 100644 --- a/src/Layers/xrRender/r__dsgraph_build.cpp +++ b/src/Layers/xrRender/r__dsgraph_build.cpp @@ -403,11 +403,11 @@ void CRender::add_leafs_Dynamic (dxRender_Visual *pVisual) { // Add all children, doesn't perform any tests PS::CParticleGroup* pG = (PS::CParticleGroup*)pVisual; - for (PS::CParticleGroup::SItemVecIt i_it=pG->items.begin(); i_it!=pG->items.end(); i_it++) { + for (PS::CParticleGroup::SItemVecIt i_it=pG->items.begin(); i_it!=pG->items.end(); ++i_it) { PS::CParticleGroup::SItem& I = *i_it; if (I._effect) add_leafs_Dynamic (I._effect); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_leafs_Dynamic(*pit); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); ++pit) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); ++pit) add_leafs_Dynamic(*pit); } } return; @@ -417,7 +417,7 @@ void CRender::add_leafs_Dynamic (dxRender_Visual *pVisual) FHierrarhyVisual* pV = (FHierrarhyVisual*)pVisual; I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Dynamic (*I); + for (; I!=E; ++I) add_leafs_Dynamic (*I); } return; case MT_SKELETON_ANIM: @@ -441,7 +441,7 @@ void CRender::add_leafs_Dynamic (dxRender_Visual *pVisual) pV->CalculateWallmarks (); //. bug? I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Dynamic (*I); + for (; I!=E; ++I) add_leafs_Dynamic (*I); } } return; @@ -469,11 +469,11 @@ void CRender::add_leafs_Static(dxRender_Visual *pVisual) { // Add all children, doesn't perform any tests PS::CParticleGroup* pG = (PS::CParticleGroup*)pVisual; - for (PS::CParticleGroup::SItemVecIt i_it=pG->items.begin(); i_it!=pG->items.end(); i_it++){ + for (PS::CParticleGroup::SItemVecIt i_it = pG->items.begin(); i_it != pG->items.end(); ++i_it){ PS::CParticleGroup::SItem& I = *i_it; if (I._effect) add_leafs_Dynamic (I._effect); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_leafs_Dynamic(*pit); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_related.begin(); pit != I._children_related.end(); ++pit) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_free.begin(); pit != I._children_free.end(); ++pit) add_leafs_Dynamic(*pit); } } return; @@ -483,7 +483,7 @@ void CRender::add_leafs_Static(dxRender_Visual *pVisual) FHierrarhyVisual* pV = (FHierrarhyVisual*)pVisual; I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Static (*I); + for (; I!=E; ++I) add_leafs_Static (*I); } return; case MT_SKELETON_ANIM: @@ -494,7 +494,7 @@ void CRender::add_leafs_Static(dxRender_Visual *pVisual) pV->CalculateBones (TRUE); I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Static (*I); + for (; I!=E; ++I) add_leafs_Static (*I); } return; case MT_LOD: @@ -519,7 +519,7 @@ void CRender::add_leafs_Static(dxRender_Visual *pVisual) // Add all children, doesn't perform any tests I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Static (*I); + for (; I != E; ++I) add_leafs_Static(*I); } } return; @@ -566,13 +566,13 @@ BOOL CRender::add_Dynamic(dxRender_Visual *pVisual, u32 planes) if (fcvPartial==VIS) { if (I._effect) add_Dynamic (I._effect,planes); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_Dynamic(*pit,planes); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_Dynamic(*pit,planes); + for (xr_vector::iterator pit = I._children_related.begin(); pit != I._children_related.end(); ++pit) add_Dynamic(*pit, planes); + for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); ++pit) add_Dynamic(*pit,planes); } else { if (I._effect) add_leafs_Dynamic (I._effect); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_leafs_Dynamic(*pit); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_related.begin(); pit != I._children_related.end(); ++pit) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); ++pit) add_leafs_Dynamic(*pit); } } } @@ -585,9 +585,9 @@ BOOL CRender::add_Dynamic(dxRender_Visual *pVisual, u32 planes) E = pV->children.end (); if (fcvPartial==VIS) { - for (; I!=E; I++) add_Dynamic (*I,planes); + for (; I != E; ++I) add_Dynamic(*I, planes); } else { - for (; I!=E; I++) add_leafs_Dynamic (*I); + for (; I != E; ++I) add_leafs_Dynamic(*I); } } break; @@ -613,7 +613,7 @@ BOOL CRender::add_Dynamic(dxRender_Visual *pVisual, u32 planes) pV->CalculateWallmarks (); //. bug? I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Dynamic (*I); + for (; I != E; ++I) add_leafs_Dynamic(*I); } /* I = pV->children.begin (); @@ -656,16 +656,16 @@ void CRender::add_Static(dxRender_Visual *pVisual, u32 planes) { // Add all children, doesn't perform any tests PS::CParticleGroup* pG = (PS::CParticleGroup*)pVisual; - for (PS::CParticleGroup::SItemVecIt i_it=pG->items.begin(); i_it!=pG->items.end(); i_it++){ + for (PS::CParticleGroup::SItemVecIt i_it = pG->items.begin(); i_it != pG->items.end(); ++i_it){ PS::CParticleGroup::SItem& I = *i_it; if (fcvPartial==VIS) { if (I._effect) add_Dynamic (I._effect,planes); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_Dynamic(*pit,planes); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_Dynamic(*pit,planes); + for (xr_vector::iterator pit = I._children_related.begin(); pit != I._children_related.end(); ++pit) add_Dynamic(*pit, planes); + for (xr_vector::iterator pit = I._children_free.begin(); pit != I._children_free.end(); ++pit) add_Dynamic(*pit, planes); } else { if (I._effect) add_leafs_Dynamic (I._effect); - for (xr_vector::iterator pit = I._children_related.begin(); pit!=I._children_related.end(); pit++) add_leafs_Dynamic(*pit); - for (xr_vector::iterator pit = I._children_free.begin(); pit!=I._children_free.end(); pit++) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_related.begin(); pit != I._children_related.end(); ++pit) add_leafs_Dynamic(*pit); + for (xr_vector::iterator pit = I._children_free.begin(); pit != I._children_free.end(); ++pit) add_leafs_Dynamic(*pit); } } } @@ -677,9 +677,9 @@ void CRender::add_Static(dxRender_Visual *pVisual, u32 planes) I = pV->children.begin (); E = pV->children.end (); if (fcvPartial==VIS) { - for (; I!=E; I++) add_Static (*I,planes); + for (; I != E; ++I) add_Static(*I, planes); } else { - for (; I!=E; I++) add_leafs_Static (*I); + for (; I != E; ++I) add_leafs_Static(*I); } } break; @@ -692,9 +692,9 @@ void CRender::add_Static(dxRender_Visual *pVisual, u32 planes) I = pV->children.begin (); E = pV->children.end (); if (fcvPartial==VIS) { - for (; I!=E; I++) add_Static (*I,planes); + for (; I != E; ++I) add_Static(*I, planes); } else { - for (; I!=E; I++) add_leafs_Static (*I); + for (; I != E; ++I) add_leafs_Static(*I); } } break; @@ -720,7 +720,7 @@ void CRender::add_Static(dxRender_Visual *pVisual, u32 planes) // Add all children, perform tests I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) add_leafs_Static (*I); + for (; I != E; ++I) add_leafs_Static(*I); } } break; diff --git a/src/Layers/xrRender/r__dsgraph_render.cpp b/src/Layers/xrRender/r__dsgraph_render.cpp index ba6089e81f1..2cd072b041b 100644 --- a/src/Layers/xrRender/r__dsgraph_render.cpp +++ b/src/Layers/xrRender/r__dsgraph_render.cpp @@ -752,7 +752,7 @@ void R_dsgraph_structure::r_dsgraph_render_R1_box (IRender_Sector* _S, Fbox& BB, FHierrarhyVisual* pV = (FHierrarhyVisual*)V; I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) { + for (; I != E; ++I) { dxRender_Visual* T = *I; if (BB.intersect(T->vis.box)) lstVisuals.push_back(T); } @@ -766,7 +766,7 @@ void R_dsgraph_structure::r_dsgraph_render_R1_box (IRender_Sector* _S, Fbox& BB, pV->CalculateBones (TRUE); I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) { + for (; I != E; ++I) { dxRender_Visual* T = *I; if (BB.intersect(T->vis.box)) lstVisuals.push_back(T); } @@ -777,7 +777,7 @@ void R_dsgraph_structure::r_dsgraph_render_R1_box (IRender_Sector* _S, Fbox& BB, FLOD * pV = (FLOD*) V; I = pV->children.begin (); E = pV->children.end (); - for (; I!=E; I++) { + for (; I != E; ++I) { dxRender_Visual* T = *I; if (BB.intersect(T->vis.box)) lstVisuals.push_back(T); } diff --git a/src/Layers/xrRender/xrRender_console.cpp b/src/Layers/xrRender/xrRender_console.cpp index df7f17d059f..ac67dac0eb4 100644 --- a/src/Layers/xrRender/xrRender_console.cpp +++ b/src/Layers/xrRender/xrRender_console.cpp @@ -166,6 +166,8 @@ Flags32 ps_r2_ls_flags_ext = { |R2FLAGEXT_ENABLE_TESSELLATION }; +BOOL ps_clear_models_on_unload = 0; //Alundaio +BOOL ps_use_precompiled_shaders = 0; //Alundaio float ps_r2_df_parallax_h = 0.02f; float ps_r2_df_parallax_range = 75.f; float ps_r2_tonemap_middlegray = 1.f; // r2-only @@ -930,7 +932,9 @@ void xrRender_initconsole () CMD3(CCC_Token, "r3_minmax_sm", &ps_r3_minmax_sm, qminmax_sm_token); #ifdef DETAIL_RADIUS - CMD4(CCC_detail_radius, "r__detail_radius", &ps_r__detail_radius, 49, 300); + CMD4(CCC_detail_radius, "r__detail_radius", &ps_r__detail_radius, 10, 300); + CMD4(CCC_Integer, "r__clear_models_on_unload", &ps_clear_models_on_unload, 0, 1); //Alundaio + CMD4(CCC_Integer, "r__use_precompiled_shaders", &ps_use_precompiled_shaders, 0, 1); //Alundaio #endif // Allow real-time fog config reload diff --git a/src/Layers/xrRender/xrRender_console.h b/src/Layers/xrRender/xrRender_console.h index 1c77ce5804a..43e7cfbec64 100644 --- a/src/Layers/xrRender/xrRender_console.h +++ b/src/Layers/xrRender/xrRender_console.h @@ -3,6 +3,11 @@ #pragma once // Common +//Alundaio +extern ECORE_API BOOL ps_clear_models_on_unload; +extern ECORE_API BOOL ps_use_precompiled_shaders; +//-Alundaio + extern ECORE_API u32 ps_r_sun_shafts; //= 0; extern ECORE_API xr_token qsun_shafts_token[]; diff --git a/src/Layers/xrRenderDX9/dx9R_Backend_Runtime.h b/src/Layers/xrRenderDX9/dx9R_Backend_Runtime.h index d02b364316a..5b80fdc5287 100644 --- a/src/Layers/xrRenderDX9/dx9R_Backend_Runtime.h +++ b/src/Layers/xrRenderDX9/dx9R_Backend_Runtime.h @@ -224,7 +224,7 @@ IC void CBackend::set_Constants (R_constant_table* C) // process constant-loaders R_constant_table::c_table::iterator it = C->table.begin(); R_constant_table::c_table::iterator end = C->table.end (); - for (; it!=end; it++) { + for (; it!=end; ++it) { R_constant* Cs = &**it; VERIFY(Cs); if (Cs && Cs->handler) diff --git a/src/Layers/xrRenderPC_R1/FStaticRender.cpp b/src/Layers/xrRenderPC_R1/FStaticRender.cpp index cbe17ca0e57..618203e940c 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender.cpp @@ -589,8 +589,9 @@ void CRender::Render () if(Details)Details->Render (); // grass / details r_dsgraph_render_lods (true,false); // lods - FB - g_pGamePersistent->Environment().RenderSky (); // sky / sun - g_pGamePersistent->Environment().RenderClouds (); // clouds + CEnvironment* Env = &g_pGamePersistent->Environment(); + Env->RenderSky(); // sky / sun + Env->RenderClouds(); // clouds r_pmask (true,false); // disable priority "1" o.vis_intersect = TRUE ; @@ -611,8 +612,8 @@ void CRender::Render () PortalTraverser.fade_render (); // faded-portals r_dsgraph_render_sorted (); // strict-sorted geoms if(L_Glows)L_Glows->Render (); // glows - g_pGamePersistent->Environment().RenderFlares (); // lens-flares - g_pGamePersistent->Environment().RenderLast (); // rain/thunder-bolts + Env->RenderFlares(); // lens-flares + Env->RenderLast(); // rain/thunder-bolts #if DEBUG for (int _priority=0; _priority<2; ++_priority) @@ -866,7 +867,7 @@ HRESULT CRender::shader_compile ( FS.file_list ( m_file_set, folder_name, FS_ListFiles | FS_RootOnly, "*"); string_path temp_file_name, file_name; - if ( !match_shader_id(name, sh_name, m_file_set, temp_file_name) ) { + if (ps_use_precompiled_shaders == 0 || !match_shader_id(name, sh_name, m_file_set, temp_file_name)) { string_path file; xr_strcpy ( file, "shaders_cache\\r1\\" ); xr_strcat ( file, name ); diff --git a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp index 8e0cd342b90..0b7f012e8a0 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp @@ -181,37 +181,40 @@ void CRender::LoadBuffers (CStreamReader *base_fs) u32 count = fs->r_u32(); DCL.resize (count); VB.resize (count); + + u32 buffer_size = (MAXD3DDECLLENGTH + 1)*sizeof(D3DVERTEXELEMENT9); + D3DVERTEXELEMENT9 *dcl = (D3DVERTEXELEMENT9*)_alloca(buffer_size); //Alundaio: moved out of loop! + for (u32 i=0; ipointer(); - u32 buffer_size = (MAXD3DDECLLENGTH+1)*sizeof(D3DVERTEXELEMENT9); - D3DVERTEXELEMENT9 *dcl = (D3DVERTEXELEMENT9*)_alloca(buffer_size); - fs->r (dcl,buffer_size); - fs->advance (-(int)buffer_size); + // D3DVERTEXELEMENT9 *dcl = (D3DVERTEXELEMENT9*) fs->pointer(); - u32 dcl_len = D3DXGetDeclLength (dcl)+1; + fs->r(dcl, buffer_size); + fs->advance(-(int)buffer_size); - DCL[i].resize (dcl_len); - fs->r (DCL[i].begin(),dcl_len*sizeof(D3DVERTEXELEMENT9)); + u32 dcl_len = D3DXGetDeclLength(dcl) + 1; + + DCL[i].resize(dcl_len); + fs->r(DCL[i].begin(), dcl_len*sizeof(D3DVERTEXELEMENT9)); //.????????? remove T&B from DCL[] // count, size - u32 vCount = fs->r_u32 (); - u32 vSize = D3DXGetDeclVertexSize (dcl,0); - Msg ("* [Loading VB] %d verts, %d Kb",vCount,(vCount*vSize)/1024); + u32 vCount = fs->r_u32(); + u32 vSize = D3DXGetDeclVertexSize(dcl, 0); + Msg("* [Loading VB] %d verts, %d Kb", vCount, (vCount*vSize) / 1024); // Create and fill - BYTE* pData = 0; - R_CHK (HW.pDevice->CreateVertexBuffer(vCount*vSize,dwUsage,0,D3DPOOL_MANAGED,&VB[i],0)); - HW.stats_manager.increment_stats ( vCount*vSize, enum_stats_buffer_type_vertex, D3DPOOL_MANAGED); - R_CHK (VB[i]->Lock(0,0,(void**)&pData,0)); - fs->r (pData,vCount*vSize); -// CopyMemory (pData,fs->pointer(),vCount*vSize); //.???? copy while skip T&B - VB[i]->Unlock (); - -// fs->advance (vCount*vSize); + BYTE* pData = 0; + R_CHK(HW.pDevice->CreateVertexBuffer(vCount*vSize, dwUsage, 0, D3DPOOL_MANAGED, &VB[i], 0)); + HW.stats_manager.increment_stats(vCount*vSize, enum_stats_buffer_type_vertex, D3DPOOL_MANAGED); + R_CHK(VB[i]->Lock(0, 0, (void**)&pData, 0)); + fs->r(pData, vCount*vSize); + // CopyMemory (pData,fs->pointer(),vCount*vSize); //.???? copy while skip T&B + VB[i]->Unlock(); + + // fs->advance (vCount*vSize); } fs->close (); } else { diff --git a/src/Layers/xrRenderPC_R1/FStaticRender_RenderTarget.cpp b/src/Layers/xrRenderPC_R1/FStaticRender_RenderTarget.cpp index 2a4c9ce8d6a..fb4755cc79b 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender_RenderTarget.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender_RenderTarget.cpp @@ -27,7 +27,7 @@ CRenderTarget::CRenderTarget() param_color_map_influence = 0.0f; param_color_map_interpolate = 0.0f; - im_noise_time = 1/100; + im_noise_time = 1/100.0f; im_noise_shift_w = 0; im_noise_shift_h = 0; diff --git a/src/Layers/xrRenderPC_R2/r2.cpp b/src/Layers/xrRenderPC_R2/r2.cpp index 54ad24a8fb7..74856073fb4 100644 --- a/src/Layers/xrRenderPC_R2/r2.cpp +++ b/src/Layers/xrRenderPC_R2/r2.cpp @@ -272,10 +272,11 @@ void CRender::create () } // constants - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("parallax", &binder_parallax); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("water_intensity", &binder_water_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("sun_shafts_intensity", &binder_sun_shafts_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("pos_decompression_params", &binder_pos_decompress_params); + CResourceManager* RM = dxRenderDeviceRender::Instance().Resources; + RM->RegisterConstantSetup("parallax", &binder_parallax); + RM->RegisterConstantSetup("water_intensity", &binder_water_intensity); + RM->RegisterConstantSetup("sun_shafts_intensity", &binder_sun_shafts_intensity); + RM->RegisterConstantSetup("pos_decompression_params", &binder_pos_decompress_params); c_lmaterial = "L_material"; c_sbase = "s_base"; @@ -1004,7 +1005,7 @@ HRESULT CRender::shader_compile ( FS.file_list ( m_file_set, folder_name, FS_ListFiles | FS_RootOnly, "*"); string_path temp_file_name, file_name; - if ( !match_shader_id(name, sh_name, m_file_set, temp_file_name) ) { + if (ps_use_precompiled_shaders == 0 || !match_shader_id(name, sh_name, m_file_set, temp_file_name)) { // Msg ( "no library shader found" ); string_path file; xr_strcpy ( file, "shaders_cache\\r2\\" ); diff --git a/src/Layers/xrRenderPC_R2/r2_loader.cpp b/src/Layers/xrRenderPC_R2/r2_loader.cpp index 228f1d09f73..178a5ebdfaf 100644 --- a/src/Layers/xrRenderPC_R2/r2_loader.cpp +++ b/src/Layers/xrRenderPC_R2/r2_loader.cpp @@ -185,14 +185,17 @@ void CRender::level_Unload() //*** Shaders Shaders.clear_and_free (); - b_loaded = FALSE; -/* - Models->ClearPool( true ); - Visuals.clear_and_free(); - dxRenderDeviceRender::Instance().Resources->Dump(false); - static int unload_counter = 0; - Msg("The Level Unloaded.======================== %d", ++unload_counter); -*/ + + if (ps_clear_models_on_unload == 1) + { + Models->ClearPool(true); + Visuals.clear_and_free(); + dxRenderDeviceRender::Instance().Resources->Dump(false); + //static int unload_counter = 0; + //Msg("The Level Unloaded.======================== %d", ++unload_counter); + } + + b_loaded = FALSE; } void CRender::LoadBuffers (CStreamReader *base_fs, BOOL _alternative) diff --git a/src/Layers/xrRenderPC_R3/r3.cpp b/src/Layers/xrRenderPC_R3/r3.cpp index b411cde4116..0cf4a0221ad 100644 --- a/src/Layers/xrRenderPC_R3/r3.cpp +++ b/src/Layers/xrRenderPC_R3/r3.cpp @@ -374,12 +374,13 @@ void CRender::create () } // constants - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("parallax", &binder_parallax); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("water_intensity", &binder_water_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("sun_shafts_intensity", &binder_sun_shafts_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("m_AlphaRef", &binder_alpha_ref); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("pos_decompression_params", &binder_pos_decompress_params); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("pos_decompression_params2", &binder_pos_decompress_params2); + CResourceManager* RM = dxRenderDeviceRender::Instance().Resources; + RM->RegisterConstantSetup("parallax", &binder_parallax); + RM->RegisterConstantSetup("water_intensity", &binder_water_intensity); + RM->RegisterConstantSetup("sun_shafts_intensity", &binder_sun_shafts_intensity); + RM->RegisterConstantSetup("m_AlphaRef", &binder_alpha_ref); + RM->RegisterConstantSetup("pos_decompression_params", &binder_pos_decompress_params); + RM->RegisterConstantSetup("pos_decompression_params2", &binder_pos_decompress_params2); c_lmaterial = "L_material"; c_sbase = "s_base"; @@ -1360,7 +1361,7 @@ HRESULT CRender::shader_compile ( FS.file_list ( m_file_set, folder_name, FS_ListFiles | FS_RootOnly, "*"); string_path temp_file_name, file_name; - if ( !match_shader_id(name, sh_name, m_file_set, temp_file_name) ) { + if (ps_use_precompiled_shaders == 0 || !match_shader_id(name, sh_name, m_file_set, temp_file_name)) { string_path file; xr_strcpy ( file, "shaders_cache\\r3\\" ); xr_strcat ( file, name ); diff --git a/src/Layers/xrRenderPC_R3/r3_loader.cpp b/src/Layers/xrRenderPC_R3/r3_loader.cpp index c776e1acd8b..8b7518fc23b 100644 --- a/src/Layers/xrRenderPC_R3/r3_loader.cpp +++ b/src/Layers/xrRenderPC_R3/r3_loader.cpp @@ -191,13 +191,15 @@ void CRender::level_Unload() //*** Shaders Shaders.clear_and_free (); -/* - Models->ClearPool( true ); - Visuals.clear_and_free(); - dxRenderDeviceRender::Instance().Resources->Dump(false); - static int unload_counter = 0; - Msg("The Level Unloaded.======================== %d", ++unload_counter); -*/ + if (ps_clear_models_on_unload == 1) + { + Models->ClearPool(true); + Visuals.clear_and_free(); + dxRenderDeviceRender::Instance().Resources->Dump(false); + //static int unload_counter = 0; + //Msg("The Level Unloaded.======================== %d", ++unload_counter); + } + b_loaded = FALSE; } diff --git a/src/Layers/xrRenderPC_R4/r4.cpp b/src/Layers/xrRenderPC_R4/r4.cpp index 1464aa4bbb1..6f84348bb3b 100644 --- a/src/Layers/xrRenderPC_R4/r4.cpp +++ b/src/Layers/xrRenderPC_R4/r4.cpp @@ -387,13 +387,14 @@ void CRender::create () } // constants - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("parallax", &binder_parallax); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("water_intensity", &binder_water_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("sun_shafts_intensity", &binder_sun_shafts_intensity); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("m_AlphaRef", &binder_alpha_ref); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("pos_decompression_params", &binder_pos_decompress_params); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("pos_decompression_params2", &binder_pos_decompress_params2); - dxRenderDeviceRender::Instance().Resources->RegisterConstantSetup ("triLOD", &binder_LOD); + CResourceManager* RM = dxRenderDeviceRender::Instance().Resources; + RM->RegisterConstantSetup("parallax", &binder_parallax); + RM->RegisterConstantSetup("water_intensity", &binder_water_intensity); + RM->RegisterConstantSetup("sun_shafts_intensity", &binder_sun_shafts_intensity); + RM->RegisterConstantSetup("m_AlphaRef", &binder_alpha_ref); + RM->RegisterConstantSetup("pos_decompression_params", &binder_pos_decompress_params); + RM->RegisterConstantSetup("pos_decompression_params2", &binder_pos_decompress_params2); + RM->RegisterConstantSetup("triLOD", &binder_LOD); c_lmaterial = "L_material"; c_sbase = "s_base"; @@ -1498,7 +1499,7 @@ HRESULT CRender::shader_compile ( FS.file_list ( m_file_set, folder_name, FS_ListFiles | FS_RootOnly, "*"); string_path temp_file_name, file_name; - if ( !match_shader_id(name, sh_name, m_file_set, temp_file_name) ) { + if (ps_use_precompiled_shaders == 0 || !match_shader_id(name, sh_name, m_file_set, temp_file_name)) { string_path file; xr_strcpy ( file, "shaders_cache\\r4\\" ); xr_strcat ( file, name ); diff --git a/src/Layers/xrRenderPC_R4/r4_loader.cpp b/src/Layers/xrRenderPC_R4/r4_loader.cpp index 8db50d54b0e..ded45cb262b 100644 --- a/src/Layers/xrRenderPC_R4/r4_loader.cpp +++ b/src/Layers/xrRenderPC_R4/r4_loader.cpp @@ -173,6 +173,16 @@ void CRender::level_Unload() //*** Shaders Shaders.clear_and_free (); + + if (ps_clear_models_on_unload == 1) + { + Models->ClearPool(true); + Visuals.clear_and_free(); + dxRenderDeviceRender::Instance().Resources->Dump(false); + //static int unload_counter = 0; + //Msg("The Level Unloaded.======================== %d", ++unload_counter); + } + b_loaded = FALSE; } diff --git a/src/build_config_defines.h b/src/build_config_defines.h index a5fc78769fb..449a9f6885e 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -44,7 +44,7 @@ // SOUND: #define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define - //#define LAYERED_SND_SHOOT // see comment down below + #define LAYERED_SND_SHOOT // see comment down below //-SOUND diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index 4801aad3a51..d72c4d159f7 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -108,11 +108,22 @@ void HUD_SOUND_ITEM::PlaySound( HUD_SOUND_ITEM& hud_snd, hud_snd.m_activeSnd = &hud_snd.sounds[ index ]; - + if (hud_snd.m_b_exclusive) + { hud_snd.m_activeSnd->snd.play_at_pos( const_cast(parent), flags&sm_2D?Fvector().set(0,0,0):position, flags, hud_snd.m_activeSnd->delay); + } + else + { + + hud_snd.m_activeSnd->snd.play_no_feedback(const_cast(parent), + flags, + hud_snd.m_activeSnd->delay, + flags&sm_2D ? &Fvector().set(0, 0, 0) : &Fvector().set(position.x,position.y,position.z), + 0, 0, 0); + } //hud_snd.m_activeSnd->snd.set_volume (hud_snd.m_activeSnd->volume * b_hud_mode?psHUDSoundVolume:1.0f); hud_snd.m_activeSnd->snd.set_volume(hud_snd.m_activeSnd->volume * (b_hud_mode ? psHUDSoundVolume : 1.0f)); diff --git a/src/xrGame/eatable_item.h b/src/xrGame/eatable_item.h index 8c3c6f4575e..10d6fcc78d5 100644 --- a/src/xrGame/eatable_item.h +++ b/src/xrGame/eatable_item.h @@ -41,9 +41,9 @@ class CEatableItem : public CInventoryItem { virtual bool UseBy (CEntityAlive* npc); bool Empty() const { return m_iRemainingUses == 0; }; - bool CanDelete() const { return m_bRemoveAfterUse==TRUE; }; + bool CanDelete() const { return m_bRemoveAfterUse==1; }; u8 GetMaxUses() const { return m_iMaxUses; }; u8 GetRemainingUses() const { return m_iRemainingUses; }; - void SetRemainingUses(u8 value) { if (value <= m_iMaxUses && value >= 0) m_iRemainingUses = value; }; + void SetRemainingUses(u8 value) { if (value <= m_iMaxUses) m_iRemainingUses = value; }; virtual float Weight() const; }; \ No newline at end of file diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index ce476781f96..d6ea78d0fa4 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -53,14 +53,15 @@ CUIInventoryCellItem::CUIInventoryCellItem(CInventoryItem* itm) Fvector2 offset; offset.x = pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf),buf,std::to_string(itrNum).c_str(),"icon_layer_x")); - offset.x = pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_y")); + offset.y = pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_y")); - float scale = pSettings->line_exist(itm->m_section_id, field) ? pSettings->r_float(itm->m_section_id, strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_scale")) : 1.0f; + LPCSTR field_scale = strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_scale"); + float scale = pSettings->line_exist(itm->m_section_id, field_scale) ? pSettings->r_float(itm->m_section_id, field_scale) : 1.0f; - LPCSTR field_color = strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_color"); - u32 color = pSettings->line_exist(itm->m_section_id, field_color) ? pSettings->r_color(itm->m_section_id, field_color) : GetTextureColor(); + //LPCSTR field_color = strconcat(sizeof(buf), buf, std::to_string(itrNum).c_str(), "icon_layer_color"); + //u32 color = pSettings->line_exist(itm->m_section_id, field_color) ? pSettings->r_color(itm->m_section_id, field_color) : 0; - CreateLayer(section, offset, color, scale); + CreateLayer(section, offset, scale); itrNum++; @@ -74,7 +75,7 @@ void CUIInventoryCellItem::OnAfterChild(CUIDragDropListEx* parent_list) for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) { - (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, parent_list->GetVerticalPlacement(), (*it)->m_color, (*it)->m_scale); + (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, parent_list->GetVerticalPlacement(), (*it)->m_scale); } } @@ -119,7 +120,7 @@ CUIDragItem* CUIInventoryCellItem::CreateDragItem() s = xr_new(); s->SetAutoDelete(true); s->SetShader(InventoryUtilities::GetEquipmentIconsShader()); - InitLayer(s, (*it)->m_name, (*it)->offset, false, (*it)->m_color, (*it)->m_scale); + InitLayer(s, (*it)->m_name, (*it)->offset, false, (*it)->m_scale); s->SetTextureColor(i->wnd()->GetTextureColor()); i->wnd()->AttachChild(s); } @@ -132,7 +133,7 @@ void CUIInventoryCellItem::SetTextureColor(u32 color) for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) { if ((*it)->m_icon) - (*it)->m_icon->SetTextureColor((*it)->m_color ? (*it)->m_color : color); + (*it)->m_icon->SetTextureColor(color); } } @@ -163,17 +164,17 @@ void CUIInventoryCellItem::RemoveLayer(SIconLayer* layer) } } -void CUIInventoryCellItem::CreateLayer(LPCSTR section, Fvector2 offset, u32 color, float scale) +void CUIInventoryCellItem::CreateLayer(LPCSTR section, Fvector2 offset, float scale) { SIconLayer* layer = xr_new(); layer->m_name = section; layer->offset = offset; - layer->m_color = color; + //layer->m_color = color; layer->m_scale = scale; m_layers.push_back(layer); } -CUIStatic* CUIInventoryCellItem::InitLayer(CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, u32 color, float scale) +CUIStatic* CUIInventoryCellItem::InitLayer(CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, float scale) { if (!s) @@ -182,7 +183,7 @@ CUIStatic* CUIInventoryCellItem::InitLayer(CUIStatic* s, LPCSTR section, Fvector s->SetAutoDelete(true); AttachChild(s); s->SetShader(InventoryUtilities::GetEquipmentIconsShader()); - s->SetTextureColor(color ? color : GetTextureColor()); + s->SetTextureColor(GetTextureColor()); } Frect tex_rect; @@ -264,7 +265,8 @@ void CUIInventoryCellItem::Update() for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) { - (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, Heading(), (*it)->m_color, (*it)->m_scale); + (*it)->m_icon = InitLayer((*it)->m_icon, (*it)->m_name, (*it)->offset, Heading(), (*it)->m_scale); + (*it)->m_icon->SetTextureColor(color); } } diff --git a/src/xrGame/ui/UICellCustomItems.h b/src/xrGame/ui/UICellCustomItems.h index f2703a7c0c0..515c267e29e 100644 --- a/src/xrGame/ui/UICellCustomItems.h +++ b/src/xrGame/ui/UICellCustomItems.h @@ -8,7 +8,7 @@ struct SIconLayer LPCSTR m_name; CUIStatic* m_icon; Fvector2 offset; - u32 m_color; + //u32 m_color; float m_scale; }; @@ -31,8 +31,8 @@ class CUIInventoryCellItem :public CUICellItem xr_vector m_layers; void RemoveLayer (SIconLayer* layer); - void CreateLayer (LPCSTR name, Fvector2 offset, u32 color, float scale); - CUIStatic* InitLayer (CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, u32 color, float scale); + void CreateLayer (LPCSTR name, Fvector2 offset, float scale); + CUIStatic* InitLayer (CUIStatic* s, LPCSTR section, Fvector2 addon_offset, bool b_rotate, float scale); //-Alundaio }; diff --git a/src/xrXMLParser/tinyxml.h b/src/xrXMLParser/tinyxml.h index e6d416a7b19..151be89125b 100644 --- a/src/xrXMLParser/tinyxml.h +++ b/src/xrXMLParser/tinyxml.h @@ -1247,7 +1247,7 @@ class TiXmlDocument : public TiXmlNode */ void ClearError() { error = false; errorId = 0; - errorDesc = ""; + errorDesc.clear(); errorLocation.row = errorLocation.col = 0; //errorLocation.last = 0; } From ccdac10a8c16d1039806b6f9f87b57bb50dc99de Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 11 Jul 2016 23:17:35 -0400 Subject: [PATCH 138/166] + Optional snd_shoot_actor and snd_silencr_shot_actor sounds (can be layered) = fix to static renderer --- .../xrRenderPC_R1/FStaticRender_Loader.cpp | 7 +++- src/xrGame/WeaponMagazined.cpp | 38 ++++++++++++++++++- 2 files changed, 43 insertions(+), 2 deletions(-) diff --git a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp index 0b7f012e8a0..d57a90b9784 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp @@ -41,7 +41,12 @@ void CRender::level_Load(IReader *fs) LPSTR delim = strchr(n_sh,'/'); *delim = 0; xr_strcpy (n_tlist,delim+1); - Shaders[i] = dxRenderDeviceRender::Instance().Resources->Create(n_sh,n_tlist); + + //Alundaio: Fix Static Renderer issue with 'default' shader! Force change to 'def_shaders\def_vertex' + if (xr_strcmp(n_sh, "default")==0) + Shaders[i] = dxRenderDeviceRender::Instance().Resources->Create("def_shaders\\def_vertex", n_tlist); + else + Shaders[i] = dxRenderDeviceRender::Instance().Resources->Create(n_sh,n_tlist); } chunk->close(); } diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index dec7fb14a12..9ee85d3fbd1 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -98,8 +98,12 @@ void CWeaponMagazined::Load(LPCSTR section) //Alundaio: LAYERED_SND_SHOOT #ifdef LAYERED_SND_SHOOT m_layered_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); + if (WeaponSoundExist(section, "snd_shoot_actor")) + m_layered_sounds.LoadSound(section, "snd_shoot_actor", "sndShotActor", false, m_eSoundShot); #else m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); + if (WeaponSoundExist(section, "snd_shoot_actor")) + m_sounds.LoadSound(section, "snd_shoot_actor", "sndShot", false, m_eSoundShot); #endif //-Alundaio @@ -123,7 +127,18 @@ void CWeaponMagazined::Load(LPCSTR section) if (pSettings->line_exist(section, "silencer_smoke_particles")) m_sSilencerSmokeParticles = pSettings->r_string(section, "silencer_smoke_particles"); - m_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); + //Alundaio: LAYERED_SND_SHOOT Silencer +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); + if (WeaponSoundExist(section, "snd_silncer_shot_actor")) + m_layered_sounds.LoadSound(section, "snd_silncer_shot_actor", "sndSilencerShotActor", false, m_eSoundShot); +#else + m_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); + if (WeaponSoundExist(section, "snd_silncer_shot_actor")) + m_sounds.LoadSound(section, "snd_silncer_shot_actor", "sndSilencerShotActor", false, m_eSoundShot); +#endif + //-Alundaio + } m_iBaseDispersionedBulletsCount = READ_IF_EXISTS(pSettings, r_u8, section, "base_dispersioned_bullets_count", 0); @@ -637,10 +652,31 @@ void CWeaponMagazined::SetDefaults() void CWeaponMagazined::OnShot() { // Sound + + + //Alundaio: LAYERED_SND_SHOOT #ifdef LAYERED_SND_SHOOT + //Alundaio: Actor sounds + if (ParentIsActor()) + { + if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id,"snd_shoot_actor") && m_layered_sounds.FindSoundItem("sndShotActor", false)) + m_sSndShotCurrent = "sndShotActor"; + else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id,"snd_silncer_shot_actor") && m_layered_sounds.FindSoundItem("sndSilencerShotActor", false)) + m_sSndShotCurrent = "sndSilencerShotActor"; + } + //-Alundaio m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); #else + //Alundaio: Actor sounds + if (ParentIsActor()) + { + if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id, "snd_shoot_actor")&& snd_silncer_shot m_sounds.FindSoundItem("sndShotActor", false)) + m_sSndShotCurrent = "sndShotActor"; + else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id, "snd_silncer_shot_actor") && m_sounds.FindSoundItem("sndSilencerShotActor", false)) + m_sSndShotCurrent = "sndSilencerShotActor"; + } + //-Alundaio PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) #endif //-Alundaio From 4b155c623ce6d6edcce20a4a198dd88f537ec7f3 Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 11 Jul 2016 23:54:26 -0400 Subject: [PATCH 139/166] ~ last commit --- src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp index d57a90b9784..4cfa2c76b74 100644 --- a/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp +++ b/src/Layers/xrRenderPC_R1/FStaticRender_Loader.cpp @@ -42,8 +42,8 @@ void CRender::level_Load(IReader *fs) *delim = 0; xr_strcpy (n_tlist,delim+1); - //Alundaio: Fix Static Renderer issue with 'default' shader! Force change to 'def_shaders\def_vertex' - if (xr_strcmp(n_sh, "default")==0) + //Alundaio: Fix Static Renderer issue with 'default' shader and only a single texture (we know this because string won't have comma present! Force change to 'def_shaders\def_vertex' + if (xr_strcmp(n_sh, "default")==0 && !strstr(n_tlist,",")) Shaders[i] = dxRenderDeviceRender::Instance().Resources->Create("def_shaders\\def_vertex", n_tlist); else Shaders[i] = dxRenderDeviceRender::Instance().Resources->Create(n_sh,n_tlist); From ef38dca99864f3249e1c85df8972abe9cc03b71a Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 15 Jul 2016 18:08:41 -0400 Subject: [PATCH 140/166] ~ inifile changes --- src/xrCore/xr_ini.h | 4 +-- src/xrGame/Artefact.cpp | 2 +- src/xrGame/WeaponMagazined.cpp | 25 +++++++++++-------- src/xrServerEntities/script_ini_file.cpp | 13 +++++++--- src/xrServerEntities/script_ini_file.h | 9 ++++--- .../script_ini_file_script.cpp | 18 ++++++++++++- 6 files changed, 48 insertions(+), 23 deletions(-) diff --git a/src/xrCore/xr_ini.h b/src/xrCore/xr_ini.h index dccdedf5797..0851e80ccc2 100644 --- a/src/xrCore/xr_ini.h +++ b/src/xrCore/xr_ini.h @@ -45,8 +45,6 @@ class XRCORE_API CInifile static void Destroy(CInifile*); static IC BOOL IsBOOL(LPCSTR B) { return (xr_strcmp(B, "on") == 0 || xr_strcmp(B, "yes") == 0 || xr_strcmp(B, "true") == 0 || xr_strcmp(B, "1") == 0); } private: - enum { eSaveAtEnd = (1 << 0), eReadOnly = (1 << 1), eOverrideNames = (1 << 2), }; - Flags8 m_flags; string_path m_file_name; Root DATA; @@ -56,6 +54,8 @@ class XRCORE_API CInifile #endif ); public: + enum { eSaveAtEnd = (1 << 0), eReadOnly = (1 << 1), eOverrideNames = (1 << 2), }; + Flags8 m_flags; CInifile(IReader* F, LPCSTR path = 0 #ifndef _EDITOR diff --git a/src/xrGame/Artefact.cpp b/src/xrGame/Artefact.cpp index 21f1051da6f..245b4337807 100644 --- a/src/xrGame/Artefact.cpp +++ b/src/xrGame/Artefact.cpp @@ -88,7 +88,7 @@ BOOL CArtefact::net_Spawn(CSE_Abstract* DC) StartLights(); m_CarringBoneID = u16(-1); IKinematicsAnimated *K = smart_cast(Visual()); - if(K) + if(K && K->ID_Cycle_Safe("idle")) K->PlayCycle("idle"); o_fastmode = FALSE; // start initially with fast-mode enabled diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 9ee85d3fbd1..a080abb875d 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -651,7 +651,7 @@ void CWeaponMagazined::SetDefaults() void CWeaponMagazined::OnShot() { - // Sound + // SoundWeaponMagazined.cpp @@ -661,23 +661,26 @@ void CWeaponMagazined::OnShot() if (ParentIsActor()) { if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id,"snd_shoot_actor") && m_layered_sounds.FindSoundItem("sndShotActor", false)) - m_sSndShotCurrent = "sndShotActor"; + m_layered_sounds.PlaySound("sndShotActor", get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id,"snd_silncer_shot_actor") && m_layered_sounds.FindSoundItem("sndSilencerShotActor", false)) - m_sSndShotCurrent = "sndSilencerShotActor"; - } - //-Alundaio - m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); + m_layered_sounds.PlaySound("sndSilencerShotActor", get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); + else + m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); + } else + m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); #else //Alundaio: Actor sounds if (ParentIsActor()) { if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id, "snd_shoot_actor")&& snd_silncer_shot m_sounds.FindSoundItem("sndShotActor", false)) - m_sSndShotCurrent = "sndShotActor"; - else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id, "snd_silncer_shot_actor") && m_sounds.FindSoundItem("sndSilencerShotActor", false)) - m_sSndShotCurrent = "sndSilencerShotActor"; + PlaySound("sndShotActor", get_LastFP(), (u8)(m_iShotNum - 1)); + else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id, "snd_silncer_shot_actor") && m_sounds.FindSoundItem("sndSilencerShotActor", false)) + PlaySound("sndSilencerShotActor", get_LastFP(), (u8)(m_iShotNum - 1)); + else + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); } - //-Alundaio - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) + else + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) #endif //-Alundaio diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index 210cf0f9a67..71ec81a0426 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -103,7 +103,7 @@ Fvector CScriptIniFile::r_fvector3(LPCSTR S, LPCSTR L) //AVO: additional methods to allow writing to ini files #ifdef INI_FILE_EXTENDED_EXPORTS -void CScriptIniFile::w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment) +void CScriptIniFile::w_bool(LPCSTR S, LPCSTR L, bool V, LPCSTR comment) { THROW3(inherited::section_exist(S), "Cannot find section", S); THROW3(inherited::line_exist(S, L), "Cannot find line", L); @@ -221,7 +221,7 @@ bool CScriptIniFile::save_as(LPCSTR new_fname) return(inherited::save_as(new_fname)); } -void CScriptIniFile::save_at_end(BOOL b) +void CScriptIniFile::save_at_end(bool b) { inherited::save_at_end(b); } @@ -233,13 +233,18 @@ void CScriptIniFile::remove_line(LPCSTR S, LPCSTR L) inherited::remove_line(S, L); } -void CScriptIniFile::set_override_names(BOOL b) +void CScriptIniFile::set_override_names(bool b) { inherited::set_override_names(b); } +void CScriptIniFile::set_readonly(bool b) +{ + inherited::m_flags.set(eReadOnly, b); +} + u32 CScriptIniFile::section_count() { - return(inherited::section_count()); + return (inherited::section_count()); } #endif \ No newline at end of file diff --git a/src/xrServerEntities/script_ini_file.h b/src/xrServerEntities/script_ini_file.h index 074f1914280..11fbfa9bbb4 100644 --- a/src/xrServerEntities/script_ini_file.h +++ b/src/xrServerEntities/script_ini_file.h @@ -34,7 +34,7 @@ class CScriptIniFile : public CInifile { Fvector r_fvector3 (LPCSTR S, LPCSTR L); //AVO: additional methods to allow writing to ini files #ifdef INI_FILE_EXTENDED_EXPORTS - void w_bool(LPCSTR S, LPCSTR L, BOOL V, LPCSTR comment /* = 0 */); + void w_bool(LPCSTR S, LPCSTR L, bool V, LPCSTR comment /* = 0 */); void w_color(LPCSTR S, LPCSTR L, u32 V, LPCSTR comment /* = 0 */); void w_fcolor(LPCSTR S, LPCSTR L, const Fcolor& V, LPCSTR comment /* = 0 */); void w_float(LPCSTR S, LPCSTR L, float V, LPCSTR comment /* = 0 */); @@ -51,10 +51,11 @@ class CScriptIniFile : public CInifile { void w_u64(LPCSTR S, LPCSTR L, u64 V, LPCSTR comment /* = 0 */); void w_u8(LPCSTR S, LPCSTR L, u8 V, LPCSTR comment /* = 0 */); bool save_as(LPCSTR new_fname /* = 0 */); - void save_at_end(BOOL b); + void save_at_end(bool b); void remove_line(LPCSTR S, LPCSTR L); - void set_override_names(BOOL b); - u32 section_count(); + void set_override_names(bool b); + u32 section_count(); + void set_readonly(bool b); #endif DECLARE_SCRIPT_REGISTER_FUNCTION diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index 32433bb238c..7750fe3efd3 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -26,6 +26,20 @@ CScriptIniFile *reload_system_ini() pSettings = xr_new(fname); return ((CScriptIniFile*)pSettings); } + +void section_for_each(CScriptIniFile* self, luabind::functor functor) +{ + typedef CInifile::Root sections_type; + sections_type& sections = self->sections(); + + sections_type::const_iterator i = sections.begin(); + sections_type::const_iterator e = sections.end(); + for (; i != e; ++i) + { + if (functor((LPCSTR)(*i)->Name.c_str()) == true) + return; + } +} #endif //Alundaio: END @@ -81,7 +95,7 @@ void CScriptIniFile::script_register(lua_State *L) .def(constructor()) //Alundaio: Extend script ini file #ifdef INI_FILE_EXTENDED_EXPORTS - .def(constructor()) + //.def(constructor()) .def("w_bool",&CScriptIniFile::w_bool) .def("w_color", &CScriptIniFile::w_color) .def("w_fcolor", &CScriptIniFile::w_fcolor) @@ -103,6 +117,8 @@ void CScriptIniFile::script_register(lua_State *L) .def("remove_line", &CScriptIniFile::remove_line) .def("set_override_names", &CScriptIniFile::set_override_names) .def("section_count", &CScriptIniFile::section_count) + .def("section_for_each", &::section_for_each) + .def("set_readonly", &CScriptIniFile::set_readonly) #endif //Alundaio: END .def("section_exist", &CScriptIniFile::section_exist ) From 9de4ee59ee83aed4bba916d587a100a54e91b42c Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 21 Jul 2016 22:46:08 -0400 Subject: [PATCH 141/166] - disabled some compiler security features which should improve game performance and aren't necessary. --- src/Common.props | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Common.props b/src/Common.props index 71473a2bf33..5dd268f1f1a 100644 --- a/src/Common.props +++ b/src/Common.props @@ -20,9 +20,14 @@ true + false + Full + AnySuitable + Fast true + false From ebb4886623869b92af24784b7427b116c04e78b8 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 30 Jul 2016 15:29:59 -0400 Subject: [PATCH 142/166] + snd_explode is now a layered sound collection + added weapon_magazine_empty callback for actor + added engine to lua call for _G.CActor__BeforeHitCallback(actor,hit,bone_id). Can edit hit properties before hit actually occurs, like reducing or increasing hit.power, hit.impulse, hit.direction, hit.type. If the function returns false then hit is ignored + added engine to lua call for _G.CInventoryItem__Eat(npc,item). This function is called before inventory item is used. If function returns false then item isn't used/eaten. --- src/xrGame/Actor.cpp | 28 +++++++++ src/xrGame/Explosive.cpp | 15 +++++ src/xrGame/Explosive.h | 8 +++ src/xrGame/HudItem.cpp | 8 +++ src/xrGame/HudSound.cpp | 33 +++++++++++ src/xrGame/HudSound.h | 1 + src/xrGame/Inventory.cpp | 11 ++++ src/xrGame/WeaponMagazined.cpp | 15 +++++ src/xrGame/game_object_space.h | 74 ++++++++++++------------ src/xrGame/script_game_object_script.cpp | 3 + 10 files changed, 160 insertions(+), 36 deletions(-) diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 8d1055397f5..cbd5f14effc 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -76,6 +76,12 @@ #include "build_config_defines.h" +//Alundaio +#include "script_hit.h" +#include "../../xrServerEntities/script_engine.h" +using namespace luabind; +//-Alundaio + const u32 patch_frames = 50; const float respawn_delay = 1.f; const float respawn_auto = 7.f; @@ -618,6 +624,28 @@ void CActor::Hit(SHit* pHDS) HDS.add_wound = true; if (g_Alive()) { + CScriptHit tLuaHit; + + tLuaHit.m_fPower = HDS.power; + tLuaHit.m_fImpulse = HDS.impulse; + tLuaHit.m_tDirection = HDS.direction(); + tLuaHit.m_tHitType = HDS.hit_type; + tLuaHit.m_tpDraftsman = smart_cast(HDS.who)->lua_game_object(); + + luabind::functor funct; + if (ai().script_engine().functor("_G.CActor__BeforeHitCallback", funct)) + { + if ( !funct(smart_cast(this->lua_game_object()), &tLuaHit, HDS.boneID) ) + return; + } + + HDS.power = tLuaHit.m_fPower; + HDS.impulse = tLuaHit.m_fImpulse; + HDS.dir = tLuaHit.m_tDirection; + HDS.hit_type = (ALife::EHitType)(tLuaHit.m_tHitType); + //HDS.who = smart_cast(tLuaHit.m_tpDraftsman->object()); + //HDS.whoID = tLuaHit.m_tpDraftsman->ID(); + /* AVO: send script callback*/ callback(GameObject::eHit)( this->lua_game_object(), diff --git a/src/xrGame/Explosive.cpp b/src/xrGame/Explosive.cpp index f589f0d4d92..97dd21f9cef 100644 --- a/src/xrGame/Explosive.cpp +++ b/src/xrGame/Explosive.cpp @@ -20,6 +20,8 @@ #include "level_bullet_manager.h" #include "xrmessages.h" #include "../xrEngine/gamemtllib.h" +#include "hudsound.h" +#include "script_game_object.h" #ifdef DEBUG # include "../xrEngine/StatGraph.h" @@ -84,7 +86,11 @@ void CExplosive::LightDestroy() CExplosive::~CExplosive(void) { +#ifdef LAYERED_SND_SHOOT + +#else sndExplode.destroy (); +#endif } void CExplosive::Load(LPCSTR section) @@ -121,8 +127,13 @@ void CExplosive::Load(CInifile const *ini,LPCSTR section) //трассы для разлета осколков m_fFragmentSpeed = ini->r_float (section,"fragment_speed" ); + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(ini,section, "snd_explode", "sndExplode", false, m_eSoundExplode); +#else LPCSTR snd_name = ini->r_string(section,"snd_explode"); sndExplode.create (snd_name, st_Effect,m_eSoundExplode); +#endif m_fExplodeDurationMax = ini->r_float(section, "explode_duration"); @@ -332,7 +343,11 @@ void CExplosive::Explode() // Msg("---------CExplosive Explode [%d] frame[%d]",cast_game_object()->ID(), Device.dwFrame); OnBeforeExplosion(); //играем звук взрыва +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.PlaySound("sndExplode", pos, smart_cast(this), false, false, (u8)-1); +#else Sound->play_at_pos(sndExplode, 0, pos, false); +#endif //показываем эффекты diff --git a/src/xrGame/Explosive.h b/src/xrGame/Explosive.h index 04722818c18..c0158d0247b 100644 --- a/src/xrGame/Explosive.h +++ b/src/xrGame/Explosive.h @@ -12,6 +12,8 @@ #include "../xrphysics/DamageSource.h" #include "wallmark_manager.h" #include "ParticlesObject.h" +#include "hudsound.h" + class IRender_Light; DEFINE_VECTOR(CPhysicsShellHolder*,BLASTED_OBJECTS_V,BLASTED_OBJECTS_I); class CExplosive : @@ -78,6 +80,12 @@ static float TestPassEffect (const Fvector &source_p, const Fvector &dir,f void LightDestroy (); protected: + //Alundaio: LAYERED_SND_SHOOT +#ifdef LAYERED_SND_SHOOT + HUD_SOUND_COLLECTION_LAYERED m_layered_sounds; +#endif + //-Alundaio + CWalmarkManager m_wallmark_manager; //ID персонажа который иницировал действие u16 m_iCurrentParentID; diff --git a/src/xrGame/HudItem.cpp b/src/xrGame/HudItem.cpp index 422585a6b53..7198854f299 100644 --- a/src/xrGame/HudItem.cpp +++ b/src/xrGame/HudItem.cpp @@ -14,6 +14,9 @@ #include "../build_config_defines.h" #include "ui_base.h" +#include "script_callback_ex.h" +#include "script_game_object.h" + CHudItem::CHudItem() { RenderHud(TRUE); @@ -141,6 +144,11 @@ void CHudItem::OnStateSwitch(u32 S) void CHudItem::OnAnimationEnd(u32 state) { + + CActor* A = smart_cast(object().H_Parent()); + if (A) + A->callback(GameObject::eActorHudAnimationEnd)(smart_cast(this)->lua_game_object(),this->hud_sect.c_str(), this->m_current_motion.c_str(), state, this->animation_slot()); + switch (state) { case eBore: diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index d72c4d159f7..1c0c5429373 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -332,5 +332,38 @@ void HUD_SOUND_COLLECTION_LAYERED::LoadSound(LPCSTR section, LPCSTR line, LPCSTR snd_item.m_alias = alias; } } + +void HUD_SOUND_COLLECTION_LAYERED::LoadSound(CInifile const *ini, LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive, int type) +{ + LPCSTR str = ini->r_string(section, line); + string256 buf_str; + + int count = _GetItemCount(str); + R_ASSERT(count); + + _GetItem(str, 0, buf_str); + + if (ini->section_exist(buf_str)) + { + string256 sound_line; + xr_strcpy(sound_line, "snd_1_layer"); + int k = 1; + while (ini->line_exist(buf_str, sound_line)) + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(buf_str, sound_line, alias, exclusive, type); + snd_item.m_alias = alias; + xr_sprintf(sound_line, "snd_%d_layer", ++k); + } + } + else //For compatibility with normal HUD_SOUND_COLLECTION sounds + { + m_sound_items.resize(m_sound_items.size() + 1); + HUD_SOUND_COLLECTION& snd_item = m_sound_items.back(); + snd_item.LoadSound(section, line, alias, exclusive, type); + snd_item.m_alias = alias; + } +} #endif //-Alundaio \ No newline at end of file diff --git a/src/xrGame/HudSound.h b/src/xrGame/HudSound.h index 7d920cf4a6c..10f2ada9071 100644 --- a/src/xrGame/HudSound.h +++ b/src/xrGame/HudSound.h @@ -94,6 +94,7 @@ class HUD_SOUND_COLLECTION_LAYERED void StopSound(LPCSTR alias); void StopAllSounds(); void LoadSound(LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); + void LoadSound(CInifile const *ini, LPCSTR section, LPCSTR line, LPCSTR alias, bool exclusive = false, int type = sg_SourceType); void SetPosition(LPCSTR alias, const Fvector& pos); }; #endif diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 797755d47c1..1375d93eb2d 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -27,6 +27,10 @@ #include "player_hud.h" using namespace InventoryUtilities; +//Alundaio +#include "../../xrServerEntities/script_engine.h" +using namespace luabind; +//-Alundaio // what to block u16 INV_STATE_LADDER = (1<ID(), pItemToEat->object().ID(), pItemToEat->object().cNameSect().c_str() ); #endif // MP_LOGGING + luabind::functor funct; + if (ai().script_engine().functor("_G.CInventory__eat", funct)) + { + if (!funct(smart_cast(pItemToEat->object().H_Parent())->lua_game_object(), (smart_cast(pIItem))->lua_game_object())) + return false; + } + if (Actor()->m_inventory == this) { if (IsGameTypeSingle()) diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index a080abb875d..1306f54468c 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -289,6 +289,13 @@ bool CWeaponMagazined::IsAmmoAvailable() void CWeaponMagazined::OnMagazineEmpty() { +#ifdef EXTENDED_WEAPON_CALLBACKS + if (IsGameTypeSingle() && ParentIsActor()) + { + int AC = GetSuitableAmmoTotal(); + Actor()->callback(GameObject::eOnWeaponMagazineEmpty)(lua_game_object(), AC); + } +#endif if (GetState() == eIdle) { OnEmptyClick(); @@ -327,6 +334,14 @@ void CWeaponMagazined::UnloadMagazine(bool spawn_ammo) VERIFY((u32) iAmmoElapsed == m_magazine.size()); +#ifdef EXTENDED_WEAPON_CALLBACKS + if (IsGameTypeSingle() && ParentIsActor()) + { + int AC = GetSuitableAmmoTotal(); + Actor()->callback(GameObject::eOnWeaponMagazineEmpty)(lua_game_object(), AC); + } +#endif + if (!spawn_ammo) return; diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index c0a48515e83..2c33f9bc971 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -4,56 +4,57 @@ namespace GameObject { enum ECallbackType { - eTradeStart = u32(0), - eTradeStop, - eTradeSellBuyItem, - eTradePerformTradeOperation, + eTradeStart = u32(0), + eTradeStop, + eTradeSellBuyItem, + eTradePerformTradeOperation, - eZoneEnter, - eZoneExit, - eExitLevelBorder, - eEnterLevelBorder, - eDeath, + eZoneEnter, + eZoneExit, + eExitLevelBorder, + eEnterLevelBorder, + eDeath, - ePatrolPathInPoint, + ePatrolPathInPoint, - eInventoryPda, - eInventoryInfo, - eArticleInfo, - eTaskStateChange, - eMapLocationAdded, + eInventoryPda, + eInventoryInfo, + eArticleInfo, + eTaskStateChange, + eMapLocationAdded, - eUseObject, + eUseObject, - eHit, + eHit, - eSound, + eSound, - eActionTypeMovement, - eActionTypeWatch, - eActionTypeRemoved, - eActionTypeAnimation, - eActionTypeSound, - eActionTypeParticle, - eActionTypeObject, + eActionTypeMovement, + eActionTypeWatch, + eActionTypeRemoved, + eActionTypeAnimation, + eActionTypeSound, + eActionTypeParticle, + eActionTypeObject, - eActorSleep, + eActorSleep, - eHelicopterOnPoint, - eHelicopterOnHit, + eHelicopterOnPoint, + eHelicopterOnHit, - eOnItemTake, - eOnItemDrop, + eOnItemTake, + eOnItemDrop, - eScriptAnimation, + eScriptAnimation, - eTraderGlobalAnimationRequest, - eTraderHeadAnimationRequest, - eTraderSoundEnd, + eTraderGlobalAnimationRequest, + eTraderHeadAnimationRequest, + eTraderSoundEnd, - eInvBoxItemTake, - eWeaponNoAmmoAvailable, + eInvBoxItemTake, + eWeaponNoAmmoAvailable, //Alundaio: added defines + eActorHudAnimationEnd, //AVO: custom callbacks #ifdef INPUT_CALLBACKS // input @@ -76,6 +77,7 @@ namespace GameObject eOnWeaponZoomIn, eOnWeaponZoomOut, eOnWeaponJammed, + eOnWeaponMagazineEmpty, #endif // actor #ifdef ACTOR_BEFORE_DEATH_CALLBACK diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index 2d22d1b4eeb..e13a03bba3c 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -92,6 +92,8 @@ void CScriptGameObject::script_register(lua_State *L) value("take_item_from_box", int(GameObject::eInvBoxItemTake)), value("weapon_no_ammo", int(GameObject::eWeaponNoAmmoAvailable)), + //Alundaio: + value("hud_animation_end", int(GameObject::eActorHudAnimationEnd)), //AVO: custom callbacks // input #ifdef INPUT_CALLBACKS @@ -118,6 +120,7 @@ void CScriptGameObject::script_register(lua_State *L) value("weapon_jammed", int(GameObject::eOnWeaponJammed)), value("weapon_zoom_in", int(GameObject::eOnWeaponZoomIn)), value("weapon_zoom_out", int(GameObject::eOnWeaponZoomOut)), + value("weapon_magazine_empty", int(GameObject::eOnWeaponMagazineEmpty)), #endif #ifdef EXTENDED_ITEM_CALLBACKS // inventory From 6b0c37bd7ba3444e84a990099932f8f74b0bd00e Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 10 Aug 2016 17:57:18 -0400 Subject: [PATCH 143/166] ~ changed splash screen --- src/xrEngine/splash_xrcs_en.bmp | Bin 402054 -> 402054 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/src/xrEngine/splash_xrcs_en.bmp b/src/xrEngine/splash_xrcs_en.bmp index a7b2d4bc137506659ba56d51e28e169388bd57e0..ad3fda22f325f8c8320cd6375f624ebb29b8db89 100644 GIT binary patch literal 402054 zcmZU+SF_{Twxw59nYj%;3DAJ>-VyZPY?pgyW@TlWQ^(wM{fQ&>RY!L#6zT`Pbx3;A zqn`DH^po@h^i5z_-lI^)D%2u2NP^_TSYwSj=ET#F|A%+=jr`m4U&4R?&$r)v)8M~v zzZuEy^56g6`sN$?@3()qjqYtzsWp4`mdf_(w(;(!F}6b|NP}=fqhmVJ*z^oLw7tX) zbN0}wTKOqQecOl?25{6w>YdRu99292)P=#Cq`al3DH24=gjtC}+~14R#R+sd1F z*YB=xZX4~ZoBG?U+v{5Mw$*uab^Yyk-+lMy?M<_JU8}u)%O9Ip^*a4ptNr%o_Ug8F zU2D9(x%uwxyEpG>SG22}+c)yC?BCX^4tw5SUswHiH@EL@YqYml*RR`~+uLUQw%OwK z>#gq9O|7F0I!eFY>)+HG*SB@H&92H>@jCCW-Gmu+!~r)-BZnQ zwW7|@==QZRoA!nVzvFeIb6s!K-rh8Lc-!c-dxNp%4-L0JwtFM9*&8-`qxR73>0Wze z4cxTe8(z12&B3^#4zC-nc7N3A5BW|y>hR6mt9LgwTD{xr3`WiVfY#`#wN95kbeg@s zqM0MhGyK@}<0zZPlUcFYEVswSdY@01)5V51nXP8a?e2JYx_f`Tyx;6Di`9Yc`TqUk zbbon#xqJF>x_esh&+FZ3f4o1OAGU{!^iTJ+&Hl{8)%L)POqXjqwDtZtUvIPNe6iXt zH+#0z`D(p8o-g-@(|LD1ZV!j~nlstWR-0n6;wih+g{M?~d4=7Ht-R6pyxrf?=q%Sq zwwvvFy*cgn_w(hxm~Ya2!8hzgxf`VUbe&9Bif*Zk{h7qfV%D~1-#hvB+wW<77-^;T+n z=}({g@#eZS>>1H@Q)!Kyjv3!@$#->5>Fsr$%Z)+E1$Eu(Ffy+hoVPW0zP-M=sx_q5 z%dHHm7OlK++Et&+M_PGZ+%(&@c9(61F4ZeAwz)jHpssFZ%wN@N*YyT(!LzRGP2PxW zu-@r5m3~thHG89aTjeT~5!>q4I|^S^qt~a^yDHlj-%?iwTX!&~-yLYmXiV!3HClgc z_J(6#3M9GW#mf=Pr;rbF%je>K8x_2K1qbj1aNslYqx7vn^K(5YG&i&2nVrn7cv1yLd&1I;Zhko4OQzKA+XlhUH04I!i`s&l?;q{U}vfs@j5g& zTY34~FLv?r-klt+XznF*Gn$ONY-p#vuXLP5^OB(*3^@}}*NsPZI5dNS?sod)Mn`RP zZ97q%&4XwXr?WI)=96U*2_}0{FQUF@2cLZwUj2$>JA$1{!P98?xt>d ziRHx{Z+Qt@ni~S(ne8WzUp=f|ZSoc5Ifgz{z)*Kara!g=b!0X=!+KY%vF(kT3LrlM zyLy`4)4ZFe{F;rf!dL>o`R0eF!%xhw&{jua_)W9Lc&PqV@APWz4!=04$WWm%NEkVc zM)n9?-`oP@G=4a?{Ha7s`BT+l2=SB()yqlYir-X5SFK)ebr==RPS3Pm#|tgjxBZZ2 zxPdY@bT1g`R-@ek%4$t6N5gajb!>Dsy=%JTe9>{!?qshnA6j0nPL4G_=(@>`I&5fG z$MQR-*BBaY%j?)47mkef64-04j-2`R4cF8+-+o(NAhkwI1>3pg)qYd$clykXeJ&Qz zKu|#l>6e^qEk=b`YM6 zr90FaB%0~Y>iAhZMClqMoNFk9LK!FmBPhH zztK_nrCNjGZKqr7_F4)Tnx>8|JI84ZN0smIT0=!-2v-K2ITx@5n!(w})(OK@! zz~=6FUxDf#sJ}b{_#pZ5^0YfVfcESCWqr82JbgUgJ#RSjaCf{s?#~ai)o!slFl9^y z-nZN1<#4$_ULLml(`>Px1MbJmcE1PJ&zA@KyTci@2fFF7Ul2wK)|trl(ClU8Th`%4Vzmg&A#Nd40=mYkF%q2BKR7 zy~)?83_D}Hrf6-=?HYc4XxBA&5M;Mq@JivZ_D~1d>j0O^L^)~>G`1thpR9MuZ0Ao8 z+Uz`z*4Ff7Z9aJW-+70htmVD6cnY^a4*hxCh+2A78#s-Tr$n2!ncMUCN_Ys5zcY%< zDA_CSbQrHX?$lVl)CYFgO1kz$aSP5wi|4nU{vh7fM}Bo3F%G}|?rl>U0EsvC7FUg2 zL|mA{tfT=83?bdLu9JhH0l+YxgRU2j{_owmM|nfKGH300i#Q z8;)8~i!Nlc*MMoXWkwKeuQj;dA&{H~jIqLYIy{s;C5%-2dC2)R)luJ$ji4~XV&tUb zpm4Gkm>f(uUa=0Q+p(MVMvgjmm61JyYnc&94u+4+c%b{r$QkH??&hXfjO}bN4n_vB z9FE)+RClwbm#>0iL-UIbefH3-XljN`CF$793}5Dyv7e0`;618Py{|jU&}eo0T@~IG z0m6QigX+?fDF_e!2I`|^?u65^liA^n(@-^!)8nd#u{T=E-(oww-Si?sa+wbD3fS3J z{cGfbG@R_IcKX?bwN0%ILPG*1JLxnUq`VxH~jELmMOkt5r>h127Q_ z8DOY@wC&zaqkY?I-?lsaOmAVi*EctfCO;)3;T58pg(2$YuLD9d#$JD^azHX#WMr1G zPe&lV{3+RTaMhO%yuHzC_80d;Rddj@)~JE+0l`+7%n z>fHesZ+kGV_4+--YpO%&x(Xdq2Q4nx^4DR@RM=>DX-sgf{$OaiZk%eC%lFeAYKmdG z>BP&5dJ<%4M6L`Kq zKe46pM6ez32iRA8{&c1-OF)K%?@xDtGbjy!A5M4M!x4Dj9Zu}2z#Nc2l~B(^8WREU zI9;r(6JS{Zyz}lXC3tI49e9VggY$>u!|C###*D)rRv92X2TT_`X#8Zl&Wd%bH|UOx z?%3>%_)avw$@a*gK?NJ?sB8MofqvT^w1D?6KT01AS4{Z{=Vg_A)%*W-;BFAY1=qD8p-aS&}9Bd4w!HAQa@ok6`<>pc|FQpf?0uF1hSwiE!qwXf%Wa@Fh$mrEK+%(Io|M4u2YHgtqjWB$ z+VD+}X=TD`46V=%Css1Ou6GbmYOv_;u-@)p*M#69syIQ((jo0YdOTtKwPOd#*JiN* z_hMk&aAhuFT>!DKKpt_%aAChuZ)gfX?7>2ZY+H&B!&F8Vt0&e_Ot`GD7(e_9fFAgO z3d66~9gX3NNCEu%{3r|+87y~yYraodbKMuUVOx@BJI^hKO$bZTuTh;d)D7z}h;{qc3P3+IQ$we^6`4fFdzZ}bLD1&Lq?g_8wu zf2j1eE>qZG#JuAMOnh+==f!-5>M~#+inFws`RT-ov%YCFz34%x`(dTYfbcZ%bGq71 z0M+eb0iv#VIRtxi1o_j+4EQbi^9iU&b%DJ@o>4`h#9y%;p3g&o_k91dJv~C>tG^=M zl=9Bg?s!?Ocf1tuRlVSL54_VvY$;|-wzP_|^AOQSK)%#)s%OntJ2{P=Xfg|?p*6_A zW1@ksBgn}4Y)$|>sD3;%^*qu6*yqc`Y>w1(&@7)7P~Y;~V^#!g#z zT0)ST*=pq>NSw{5xgDzhu-tE_I22x%UYl!ORC{2y2DZ{NT;g9n!Vtf9h$xt zE=T!&*I)PSq>0Wsj+GnJdo91zhru{r5B!DVOzO%Q3dLJ@-KjP?tHI*B zJ68QU2iLW>{QQ1U_8Rw%(=tE;a9`R|~J z<+D1P?G}e|IMaiP5l+oy9dABl`yaF8&&Bx{cmBy=|L7L)`$jU*!;um7$9}hO0PqE4B21=XTui1Lz&uW7CAQCkWQtBQ&>)1qGBjb)FoA)c=+ScM&xXPLrrxP{ z`p6)SP9Kn$wS1ky7=i5&b+(MOinr6L`k*)Oh-kw|MErrx0^{)fs>3m0dwBrZ9s%#V z&GN+WsAJ}idIxw%DAU1q)==HSXrNp21KrjDbItYny^uZtc?JnT5I=|DGkP6krX&Lu zTtg2S6^yHDELF%aKb9arI-yL;z$OQ9SoI=2kq*cI?P#o&Lq*e>V)~;ojNS5l5FTtd z{ir<{4ZWbHjhpHK5DTKz@gv>#R2X}wd(&dbb+|TfG)LJy^|$XErr(cdbt7trv*Bcm z%yh-DY;_rCTrcvzrFJCeP_i02a*{VU1H%fkJjgOc6*r%n#c~`KD1KHn8$@#jlHkU6 zGU*#OqWZgfyJP3KidiR+frg_8Ej_HOcF&4ePro;^?Ny_Dg$Pq4E--*D0`G#`{jq55 z-F|OiwAC@NUuQ5_>2=@gx|0?I)d*N#@q#MLz_HB|Ae}CUV-sL!3ueM>lY9yqSB-DO z3*xMp0g}aHolY01YW#v`n2anJX&o|*y8gPItmXyG*lX}T^Km{d;+&0&JWLs z?QCJoU@45928LHM4iXKR4|%Tku$8}xwgY+}W%`(}Vg9^t*%!SX(5A`h&6aF|ZjPaY zbOXp&e`Ti}v)a)_li8o?@FILzUT3{MBDQlfyf0fY9E7h3JRPtdgkP;sNw%1-4sJ3X z+F{Slyz`Ix@h9uy_k-zOKVG#p2fd}G8C^GRv*<2%E#2#weiyy2uic_|DFfB8ffk0G zn-p=evGWz6(N-Y##6Ct6Pl;B>=23~(qvSYp`&N} zaR0dNJ7yu$Mu2k@}Oc4m#Q(z+}M1pj5O5%k~{ z=+HPAWT;*cZ09f<(*f6}yw}w=d}bWX#sOekh(ez4(!-DYAOGX*`7eDU7v@BD=6bkM z#xQD{j~W9xN8AS62S%i5{?JM_Cm$im7|1p33EbiwZJyKhV>H`WsLr+`@RcBA1QXrQ z1=}s=g-{i)t`V&4A)W?ll+J+kD4yoUnkFngo;p4pz5vzXX+zy@_eQt%Hq0Dtka)p3 zT3XY4d-`k@PZCRo*VPa`20*R=LQ5Gtp=P>ZHB|hoGQ-2MK+?bP@!a68V_|LPB^b@U5P9+hSFPKBI{y)8v$tfnkeSaZ>~R5MB__5dXnyVFJxI z-#^rxK&Om~5~Ue(;2|TBm7ugrX(=&NFuXiWe)KAAT9WqamGAqeIawDAdtdNVY z)z>Ae;zTR~V13Q8rRD4T$ko#AAVp|RSe5sktgE@Z-~DHO`W_jU)jH^X(^dd*5T2-R zQ-!M==<0QrY3)AI*z0DmJq|kle3bey!(yJzmX;qP%fQ&HC?xU9 ze72wuJZ6*GWV(O=(|}6gJt<~m*GuQiAe#`T%%*5ELYPrIm=u7}{rT>6{{)inPIoi( zjqPcBx~J{VXz35=Eksd?v4WytCj1<3&oPx&&qLIb&HfG!4{rz9*~6BdfUp4d8q&UF zHmMjm*j@=QasnlugYXkVy7M&+k`HMI!+Bx_?@UER^JV~nlm&#)EGZsx|40bdW3o*kE>2T$hN9KBXZh{7K7qaA7`SynAsrN z*0i7>?wsWZfVwkgvWRO#ucjD%e@TF~h2EQNbz(FlZy3y)t|*jL8k$eB&=eoc=* zh0AAuB6OVwu!qwf9q4+6>Tq=!d#S)^P%l(d(+*K!;-ttX%VM@pvqczAP+)+1v~Gwx z#|Ww;s5Xc~c3Qm=x{&TBXggNEPxe2s*6`--@gZ@v2s00%<))h$ zju3ARq|$A}^ldldEiCy{CCF!G)KwTh@GeZ=4xsBq(|~vQKk#0%_ekaoJM0c%yo9`m zydB>*KLpqassrOUaNu@V)h$9N{1(VEL@vR6nYf9($n+{50mk2CJ^7^&(1`Cd8p~nE zF|^mgSrT;);3;3>osKjHZQ0Odcx7TSEkzybMwCsG3{gw?IWoHyrl7hW#6$_;|BEYpC6JdMp@$M8!>8ntj_*>pitIB95j)fe4vZG=tA|+XTkp(iI(g-LhX| zk%-n|>_rIx=tnUp5GJV?rdB*1g~h;2`(6f(AED1^Hinial2E*8>#>#|T2^tR+Jj); zCVrjl9{=@!SF?M4dSB~1H=RKpIyd61PuH^FaN9FFdI;I8_l;q)QKNa+ zjwM9f>>(Go)X~5WtuP}X%0x35Gv|fiXPi$_&QW73Ff7GttS>7%;32TdUn7Y9lu2R1 zya1X5p&Yz9Ug+}*sN$zPG;{1Or_J#Wgg+1iCER(su#<@D;UrPiB~%Grn~$||(lCp0 zeroF>0t>nvxZTjg`Z#G>)3%kdC%*eb)12IP`O$p|)3{TV8909@zKo_%#_HMLzc{Do zQL())V_ucCBKnCSJPJ9=hUo1jz+P3<9VRAI0Oaa7LRCS!i1xqzLvoP|^9}J?Y+zNR zFRdcavMpEHmG)9$yES>=^A6GB&#XzgsKIuo66wgQf!U#C_!1kf=(>ah0E(&!SFee@ z$!T*IyllDXX!6SJk#)TgDmZ^B5S1Nv@{m)l0EE{;jp3p*BG`L@>P{n^nr|O~ZV8o+ zJ zA^bkDjA(`jMje{qCqzArCwT!6S>^d6Nv4jM_~FF$(;?$z>_FEsQ^D;K(h0^XnuCXe z5U?$?(hU8_o$QQgX=fYVjlp&rlM$N9J0go+23l4z^RXEW$2M(jxHjIKcp9@}ECWei zDbak5u0rE6Nmi5|cMT0xXHr0%0q0p^5Xi$nLu0WoCO!Fj%Ws=+7{r6eRuK?lB8V6) zvaTg0TIuJE6QS0n`RX0U$m;ldqeAkp=*`Id3flaX?B^jb!dChfq*rm(3fN^`KmeU^ zqUMA#DsmX7Nk-gxBG4Kny)n8+zfpM@RA$#S$p!fhFC+pbK`~`e2Juz4(wZIo4|UvJ z{gGgMs{=8R`Ky!)IXwczOk|u}dF?a^^b;gvkKqSloW*JG$4OeS5X;eBy?E+p3%DFV zlanr4;Pf=BH+J+Oho$%Itb^^rUtISLYktt;MSYyEe)-SF>IZxEsbfuAT2Mp&8d{3Y zQr(tyy_u?Zfp-pToDy#8eaw4dLp5%C#QOsAGO6R<*djKI;%E99)|Z}!VaDJm!<~Za z0?`G=!B6;Y*)YQ(wyg8%0@e#KLWYIa(?GoWaFl(Um_76X}^G94^is?7d;p0v8^hZeb zINx{2ZqM=*mh%pAwA6|g{$$&?lVJbRUOWwhRb%K9<5sQk24!aCxvTfRWY@5B)@zD8 zxgL6*a6MkU?}e+DJsB1cEoa$rFg-444I@?JUB_ibc0prDsOdTdfIm#PHFex!C8)<& ztzj2sPu1%K9W#}TUOWt?Cc{7lx&d~vi>5(PQ=){%o@Q5Y8@kx+%>z z3ol*x*^;Z6xT+n`On<^;f!_v^9F#`9fE(k#f;Pj|v&kY#kYWnJHc4iL;_yFcL{~=^ zT)ioVMuNyHXh7g~?B!_nnwL8142xQbB{G*cakpEjWFS!2sOy>j6DgLFjKcGsAT(! z;U()};0c~rk<;Jer?RJ%=-FRAw~YxzQ87RwwnW(knH`Mv0<50Vz;bad-gLTH)cUpu zA;%jNq>~`Y+Jhk{41l-rIl$FBDyt8!4o;~$Lm~4e=MhZ?Hx5&P96(I7d5xo94&$>E z=F(y81Is4vAc0z3IzbG3kJ3r`Fve<<6{~c%O{W_|&tf7f-xr@KY^^@>T1G-FwK+tz znHkyL%YXO34W=LM^(TMxNsG5#J!)&7>P!aVVia%m^f-+7O{)MCn%<_Nr`WAor8Sgs z&+xD6EfkwB@jk<|!bEeiZ^ig$^kn741ynqrufX$CKYta{0d~Rj^_B)Cf}&NQouwu- zN5f&N;uA3=&;kDee_(un7CZ;lc@}U=Uml*t61l}2b9@vfq*UgSJFv&IAGikF!EoB{ z{6Ir;he*@T4=+cQoYMoxR5tiZmJvutW0}lELNE36WeMOV)bkORJ7x_`HJB$?qQ>*L+_^0?SvfcFHK%k~`Zp3Uu-ad8(P zpNq>+;o_*rQ?!vmej+%6si5AHE1Gpv*GSCui;jKK#i6mllA+pJ4=QLzy|F#80w&*< zm1)_rsmJ|j(KLgm;hEXGKJ+`@rWak(=f7IppW5CEpA5$^*SF2IAFppz3kgUoPJMqe zir4*ci)cga=BC}h?P)~k-_;n6r4A#qA*=f~?nfE`$YsSytA;d7Y=}CSC+)kpLboLT zShfmpE8J#39f9lrAKG&;#0(&1%+u#Ge0|E-Bg=_E3&Hl2RiJHRm0>m!A7=R$S7^ET zF;I-LN>m{LXm+iMm97Ut!tK^l23Rs09R;9f=HT@OMk)-yt#NK#_~Os`E$mxe{$CwC z9KiTDlcgTbk=*nSD z^u-)y`UGF_s6)RQJe`4ooqk|N&~?@tBE=xuWOAPIY|RNn;N#_mbMEWj$cl6ysUZXE zk^btKx`?KgJRE**ipCycoJLpo;|b*IaJV}i?@y=u>3k!>)6zMkI{^_@Sm?eBG*HjVy;C2azwuuy4srYNN?WHV5O43xN)&M}`GMS*{4$Epk(bDWJl9Ip=1p z)>AkPoQH340=NhJV*@>(#e(gjb4$n)Wrh_5_#-@dw!}Pxj{+9Wy5L6gp+=37t$Nd* zlVP83lO2O2uJ0#L|Ew)PsqultnbsJYWu!V8W(ltJj<*=5$EG>$$Hz7VFFLi|Wvy=! z>FZkw@Qyft(^0WrC`PD91-88ghE>Ep=64_7zCk=kep!|>3rHw*eYRL`c49azi7xm| z8WD$8WS&pKF+8jqefIN2T7~B&Ll#u0Lqne-gX!V@NAUS@e&yk-G9(JjLez=6me0LF z&S|369PiQO;m?Ber82XHv15-E83+0;?48E5n3Cjt@aOPBW=kd-8iEp$f@-ZHz`mF8 zYZZ;9LnGSD!htC8Y`vdA(Q$I}YAiiY_X~{iyiqyh@R0r#Z|C;BKiqB4clr4_dHz#$ z|I=jukexnFRtKUFSc^x|EId4I9={~>Q!+W*i^n$dcz!>gf9fY^Yx!(0UxwhY6E|5d zc{u9=Fs(+sjA%%A)D`ayRvf=J@&=R3^!vXK7e831zf-aY90|rv?YS68j3_zx`HE z??>^SV$a6;<88bDR@{$}8Ll$YJ@o5F4+HSGZ{G2&D(!_=6H6qfT(Q0@)qElN@LQ0J zE1jtU(e;&|zmr5ramSS+0DaMT%ZM!#0kKrCIM|atmZUOOaDpa-L=zUP1adXog2^MB zwY(3iBdV+8NY!yUN)#2*X5h1S({jW!WoNw%?=oHND|00yf1>h8y8lPqtyWKOdMm~#esv~!W)6fNwFk< z1XM=`-N9Zq`;b#AE$$qnTP#>gjs3T6#n?reVWudx8gv^`;7c+;wtba6nv%3Lz+~Oj zXreze7}U}DmLH?#m-(4G@x4l1t*wm`iYw>V4ypR;0^i84bv5{X5AE(siI;JiGY&yx%rNf!{rux!yW!T| zer_4L>P~xP#(5(1_OQbd;ty7m%orcwMM{j_VvCPX!Lk+1>WY31B^Wwa?E!X+t`&8S z5Un25b#JKi<-ovcfFuU;GCAl(#1UXz@Amr>6qig-DEE=v&ng3y&SH(mjvCL50K6}l z2$&!kFn}ssfE37AOM#>nRK~ z%)-P<6sKrtQPZAv!h<&dhy-V@zi5kRWAWT^7sOQu(bk?l5^y0qwI8hY{N&G1&5>`; zKeU~-;!MHJa*f<1I*-iD^(FKPaa%aCm`Q-^G7eR8_*bYGmcpO07z@!VO@q*?(%CL3 z4TSPnQEVj7RMf~4_9ex&g3}U3#USz9)hh0EE79S;z%dgK$4hTmEft1F;%2^ zyvJl7g~frC1UKJ0+1g6iEWxa7XT~dHtf=$@%u(u?#L|)O#3?-e?(+WU<^E|h+vbx+ znvsh%^MZ^}sXDYqIx`4D5ScX|D$vMHVCg_QTauyR;Y<@&SOf_8`BGZ8%-0W-{YQUx zv9i5e9R1l5VgSHOv=pZz78-D#trIgz5tFr?NXWJ?l$$iAkSy2fily=0!^`8t%brE( ze2qp_d1flH{VSMPoeIP0S5pI9<|BDi3lovlF<|vUzm4e^drXPR=oRQBU6Rg}fe7zN zZ4&jafr@YNG%|ilU>C;T?yyDcs7N?JnT)7%A@;QcjF&t?(4NLa{=|_GW@ZplFJbAH z8#v@8#TjNuaze=gZ;tevj?%^z8O204;nhrk3O=DEH~bKB1`j#jV?lV8r3dz4&Xb8o zW*-S9h%1JNOjRPz(77p-psyHIOhY*8QF~fllx;+_Au}WK)2xV6k=%ng4N-@Z-1Z5q zWjBvVEY_53`Z+>Iv>q_5tpHXc`U%!l5D zsB6ca-3&bfZ3NvKzA~N9z)?T+Q}jk=4aO2<%pq$6 z`2~&+QzbVa2nFs$T{+VDKS(a@{cwa|vn>|#N3fmLe}El?FBU?TE9v8v9xvB)sy~#Vu-Rl9M~W>OHsvLL)x)*war<_h{*Z?=Mfbtl0ab%++V7{Xldkk ztD^if4-wufbC=i({eJVdS~vjmrM@J^5O{0woVB^M65%CRvE0MyNn@2E7J5m5#k+zz zjm%IpB%(?%bQTtyY`&YU&Xe^SA0tvZx{8}F;LM5+r^3NbwqS%)9rsI6kdCy3>O1kw z5d~&tMhjj_qK!ifvm(+8rt~zQXZd2ez2BTaX7iI17NnYbVFocC=nf%HNIRkpmPo@* zB_j#tKP=>|%2O)s_XVfw#XsY{5rt9EWyMg-UKdwKrmlSxkB1mdXT5jX>(ol zO?T*q)Q&KcMbD8!JptH0nc{@Riiy*nMhB=zewXPrThx04@|YBN*49&u&DYFKc1*&r zLdd&#AV`NJ*UC0y3&OlSLe z@rV;9UR{#qU9$V$Ts#`H7w7PcyL$GP4_Y{*D3Dw1jcn7^!>%(kDqp{#>j6>3p5r~o6lxRE1j^p|JrZw&POETKJ$ZpZ08}DyPT4`qT)3m?*s{jfXFpwfs+(m{&R4E=0+3Af`M$eDJV4N z5@3lcA*9k6z}RL;izB6S*OU$xF5dDw6?o^m6UI)%8%A*eWr#<&p;D#6!sQEw*9Q&* zxF25_vGu+)2-eq~5d*R|bomqBPGKg_tZ61~(F|vJw#$^9KE6RD4*E$Y&;Qo|654sbzUKzX{c<#ensgkiKgmT+mY!pa`-v;&PjrhLSE(f&qMKI zm3&yl_L6urBlA}|pk(7@LiGkxSwcucnfT0%T%mf!WtCVSy zOmK#rpgk~-T!Z#9()%Nw6%?WkaZJfkB9z(2*3x8^LHtyxxY+DDRq^M;XV_Md4zCbk zm-U4>+XdSZFtH+ZdI&PSDJRJ)fW$)*SBbI_H3LC4!x`!(wGM2I^gi_s60ghyMG+!9 z3>?OSPYE(D-SoW~A-2xQCRqSl-m^0I@Q391%jV-hQ-NgYP02~`Ig^@dg7ZqaH5Z@a z%b!^FkLMpd&Z?$b?U5H02i#Kw3;N+R3pn#Ts?*e{Z>Ek_i+T%zN`<14)71kDA#t)# zmWL@TwcQb{0}O#;pij{FNIvNuSWP4v%ml^}ZP?ENpt^8iaUqsFcSo2%gQ%kYZ0Ykv zm^1PS&y^`-%@Tl-CdownmByUHD*)`!3ATdyW$CaT?#I%3PJMu?4h-7`miW>?NlgP{ zoe*i@9T^;{97P3e$L#}l&Cp?_ZO~ZIVet9TB*r1wE~f$PbLNOM80PuBoJ@uD$mWDU zXmEAW;emIljX=4ZdrUhE-e@UrL>?|u{QmA~iC6z{KUtqRjbiu7N;b**KED4w!BhAA zCj#H*;m_vsvpc;9B@8d?+o_rD6f>qW06?+2`!c`(6Hrg|^HwqH0}mSvVN(jo7}Luj zJq#xIgZyqZdrzKn&6@U;t;(P9&jc&%j!gR0olxVwv;IiwFfH3V#h#jDCPT=d4{*vQ z3*62WR1)XP)h&`E#@8sD$|^FO2FV132iW0nR*;g~+%A<#>gTZDgm^QU#RgWYjv|vX z=7D#yz||ly!rm)YL=0oMq=Zmpk86!`7PXFw{|bQ{@xP|(tU6nm_K6c&g-XSw?zm?y z6qju4$v8h;wTHkveaXK@mVpB!Pl;gYv{aptLFuWJs2sCNB`dMemzXaen{U4b#-Vu< zi6aDnd{o*m=`ahRK7lPIlE|kpgA{B>c!92aAnIfdS5Ftmba_sfr*yst^Qrd*A$QZY zmx)uIg&5c_s)&>nSW}AzaRzlA+aV%Mt2e~oQdRWA`U0?1YmQ7eXlPp7-Ae2avnCk!z0OuR9`JBP9C!pQ@+M+F4|f*dQ(f>j2G5x3<` zScO$VPpSv-USNnVPIc*UGF&_2B3tii8VKS z$3Wc~f&4N9mJeY2h#F9`A5IRiGZCY-Pv{T)iCO^f?}qFOUw&;hZVL zV%Sn7N+mg03fYk;)POU4F*8VSpbe-fGBPMfMjj{y%4j4F(Ps~)*1q9%4M%lC>I#x+ z&ShK5CJ8Hgl+}*A^%u|n>cuIJ1BzN?XFz~uEIi*_e=niB?6DIad)dQi`qFb}@OA<{ zed=I%7<2<8UQjvED9+g3?c#tjhB1R6Lq<&3UmBb5;g-?nZiPXeN?cnp3RX?97exi5 z%l=f7Vevp#n9rXoY^Sq3f&b^@h2SPhprj5-MHhsd$xO1JAj}b70c?|^feUR0z!!jg zS;z~ci)insdwH+Y#{$CB5C^H*1rMh_01aT5q^H9jcuuR_ETB3vIKZCHu%K5^jG5kGnCyo!8BZbJ z8%oVE^^?~?Scmb9XA-Y$*O`n0QI8EjGol4K>3Xy<0&;LzYbS)0u(UC@zd}0SjKn6S zo+qJ}6*fJVv=qJUYEt*6MZttpgkji&@Pw0~Mzm7Nf6XeAi&Roqgx+&C-I6z_47-{o zC3iZw&ZO1>LQ`vG-}JQ7dp}2*0>)XJ4C8ap+c1pr_O!-P*UE7L>5CU^|9l)Q1e8H@ zS5Fp-7UDB%2GrN~$fd55==nst?W3V0GnH-=4;MF$BpoiXUSFeD5;>AB(fq*y6+Tag zT6?H2g3=|hQy&aSkLL%$_W6;BYE*240(!io$P8r!Xc0+C*#bO=%)^!eUM%Z`K0Aum z=d@xJ7%A0=0VawHfpi!+8a}nQ%2JIKk)Ze(EFCRfCIyyh(G2&CIMvgIVEc@Mdt2U` z^amypAe~$%JdI2o;@hFDE^d`%9;Sf`Sp0-j+IE&zN$2gv4QF0pMeI*P`MG(F0uQv3XnjkNMx^C*;gbN;l0$`*~0-$ z(*Qe-oq#`$yaphhnnhKE;n!P~?X9yKg-(cck40AP-#|r>0?*ll{x6^{$sGi6D{L1Gf5$2VrCpw)$c%uxj@%?KJ0$&_H3FZGtAkj{z)h$$ zBG^u$EsA7PKMF@BwcCa|Q=t@dz-VO3$Yj-qjKlR#t^~D1>wR7Ea*7XVlRGYlVRG)7 zS+IN@$4eY^gyfv%GY)owt>fhfef7g|_H69GD6^Nr^uwUI8#o2mg%++xR>-vm3li&{ zBPKeW7*cB}$f?Q9)X)nSYIZUf57YH|C&j+R@wi2J-yuhr#+5zAcqRFWsh>ZwxC68S ze4rSdXUl$!G)Nq5k#W{L_V7^HIET?Vj3-w83b%!vZy9goqEb5S5o?yD|C0(@3fiDL zeJDCY`ecqsf|W%wMpxxdxI_dT%{LHuVau2j=Nq=PIsSPGjGoZLC&WgnIZT@Ba+^%x zQDiqDdnR!<38IuR2f&_8rWLRY+Ee{(g0)688Q>kg0&K^tGp8hPna4zDP34*M#A__^{F+3- zDawb;*i@vLFhywXY&k&p!<8pB4VF$+_{j{JH%N0<$9=;@j`rew%o@A=Xp{^B*jb*G zYZLi;gM2o$JyQ8F0MJk=dHu>Nz?MEVzM}3hdDs_}SQf3dnxyjKQAFrdG*J{$5s}&Z z8f7uANtP!@jLn;XDTzPPrfbi8CY36K1{IR?6Q%I9{49*!nUa~MCWkr}Ag3^j(|8q|qd(N8K9Vw|lsBz`N`R44n#l6x z^+1e4MVhEFt1~Tuw=a&_;vix1DD?SK14&R=prwCXVVM zV@DL5^7snO+0rTkUqL;uKs=XG zkZ7dO^0RE57-0Uj$xci%6ga}(Lq%(VovaF$uIi`;)fb-(sZHnuq5~(~bm_=}5T1geEN zFoh}MlSDj>3W6`WpBEL^6&?!$mTCLIdlh-)A=u8gYT)+YIv!#BK>gP}Rqj&t5YG&O z)JlOVO9x0L#;QCQS~|3xK?pOaiKtE?mr{E{RIi+nAUt_b;5qy}qm_6Lwxf^$^#B_E z84?hSf(?;PfPKgC#;*=9Mfrru_z@+8GSqmaFmWiAi3ZFvd`v|H>c!kuWF`6MgzJES}BdAGGbS>g>~a z`)f10YX^HWlBiKuCsl#$GZIw{yk69tRFFX^7EML@c)BF$7EM<|#Z#=v@=4<)W(LDs zOI=gaqRBgktAp)GG5oBR^u!0`)1kZa72%PKrz`67Q-&HIPX02|3d_>hB)%r;8?PQ< zD*tn_(75vg=YScegC~D}YFTMR^C*nTNkZBw2LNxUv;uIg1}pJ#S=8B>QIUQ$xzx>~ z?QZb)==ntsU~%d#sjz_#kA^c!Hk4lA0X!F~t2MZ9bThEv`I05Pem>S7)z96ZoW za?X{(7`jdqNEgp136i)vt3o$YFdP}jA;?JChin-YJ7o6h`fj?p&qR$OD-Dux0^3pD zDLBL02Z>SGz#NBFu{;R8&v!KRc51n|Rf=DcAHl69V6C8p66RQO zLL?fgmXIzjDM3aa(-J@ic&lwi-K)qZOPes8L3LJCNurL&@g8psg3O1HKYaT1MKqbG zk5BJElf=ZcD&kGL6Lg)I5=C9AjY+?R^h}f)LG`kg2~DLx=hdP^A8#027<(C=cL>=_ zhy-HLXoGuIAX4xX-y;}aRsa@YFB6o2YdS5o%EZ zJFp4fBFG@i2stk?oXRlN9pz0?W1!_&d|5b<63btKZm=DTuLv&;X+dd8`~kyh|IXV< z3<0j06llB@VI4Sw;gGw{Q`jlM{x`XMRox_p89VvZa#)%1%_pk-U1HX1_l4KF#k9*>Omv)uov8F$sA9gXv@r`{K;OcFw9g0L0_OfPEUv2hNRmm$ie;EK-hu zuN1CDn(7iCK0DWErrpaw{IAjBm;C(2+k7!MA4j{NsruD1r)_`R^S9pWgFAnsrur~h zV-9hqq&v;1Ph~HD@OMA!i|?KN&xAyk^xTThDkT#Sf3WZV(Y^oEh!8Cm3!nbpTz&M` zFY)$;g1}75kOzjeLZB{;ab8hAf(}J35S_?X32@j>n6RdNA!zKZRseGmWKzUiVr>&} zo;}o#$mbhq9`;eb3bc1bX(>>tQ>L3bMWe3nAS$w00Lht6Dscvo$HXE~Pdz>EyFsZm zj33$7B)itlx`x-LvOT8#9#t~L&E}rWe@zWH+ zu;mnR67lOcmAa}^91jOC_0TAS*Bv69>f~=KBOQGS3pGZF7WyX?of1qPv=@n`iogz@ zW9BT27|;RUIZuEB)t9wug19}|#0A{ofVByPPiB~%1lWt!5rB=STRbpsLb#dq(tON0 z5DxB-D-R4>I-^DEKQAb4#GPE0)DR&52)mJv@PhHoAcu5DqSL@mhi*>O1Ibw<2!eAG zy6z-PA?kX@(H5#HwLi8bA7?nGOfei47#GJQBv}kj;+Un+ z*A6!Z+z5gLq+q)MX~m!U>#dMp{xRp`Uj^6&gkKAaO67lkO zFyy1MU(P{Yw&*bLu)g=$cCPqSY4y3nOCuHbUK8|wI|TuCqFU1U$I0P0es?ABe#`x0 z-te2&21eJ(u3H1DKaHl3qscQ(pFdqI+^WM%w(s#p!`l&RItCd@+}Ve!-O(sLN}Z^1 zM*<5zc`DLSHX)v!hUvv!y)YOkG))aL#DB~flI8~YSY24cgYCpy`_VeQ`+2gyJB$Ai zgZlw(j;f1OfOkrMbndz#^?zZz5=-46mCG%bP*+}68uS*?VMM?I#zA{<9xw;VD{QCF zU+Kf!X$U^>M(`6sfQIye20{m@p$}W8m0AH?Vasf>IKrRV(g&!k8-f5z02hp%d{Tg& zJ_J6R5KCQ#889^s)47BW^BD*D0(bb{=lBP_2xlN6B+3WDZ*$W3l57gFW9H%HCCplu z$AQL+?j#Xa6e00F5=g}^2ncW`@{UX>#B&S8`7QU<_^|rjf7SQD`Vaq-JpZe^{oY)C zY6XWbK@e|2#zFewU+vXr;)&MesCu(-b~2z|t52$n6K10%MSFLeHvv4J=qWsV$lXfvk2ig;s+<1z)wWOkDBI?bAfdF ztWa2q&_H#vS=b7^r?NWZ`{B!h=21pTB5Nh99LI!Zmjs)zyGZq5YFbjAqy2h=B(gsc z*vW4#pf+*1peQ0CRidk6!Y@>*nBc&O8!WrfH_+R|*)CojGRQMO==?yzl^|cE zc%W&M3e@fEJ?i+GA)!p9k7Bk3*cp2%u0qN-PL|*yz87GhQd(4K2i3>n&Rcv4)*rn2 zy^(H-bBU>P0u*n#2?$okaP}~J`19iBpR?_UVugG5zSz+2ChMno{-8QD1R2&l)Mme` zS2tGc;HbyyAmQD77tGG{%jenYQ?$4%We~Z8-dE~Qi5MEcBjX%4!io~!ez<$y9v=|c zKYah=`wu@nynM!2Ms5f@E9*Pd9hVDhB7E|a4<*S^A%)1ua#g7lJJ0}detpneCUnuv z#e+lxxJuQINV+=D9BkV9xc%iyOb-W=6nlB))k6+qd6FkM`KgL z&C-(El9Z*D`$x!qSbE+5kb3aoHZB^D>2rsm{;1cNl%)>0ge%o}equN?QvlpU6mrU! zm7!9g9wyH_g6Gti=Jd)=sh=|$wR@E@hSRI?ob4;%mx~J?iozo>-h{VPrSJ zQ--&zc~lYC_|yKEVE;!gJ`zu%WQ4!}8B2`&^3S8q=WfW2lOjDklJ9^Al85N_9Wqj> zIpE}I+T4!eW>t^{@%eu6SXtG>ekY>y`% zS&Ea@m{tG$NbRDYF1H%NWTm>XVz}ss2sM}l=#*L_H&)}WQVKd}i>gGr*W|WDQ?j9p zu2&4>g;YASV(2$6O={*0(;X%mZT_tI%UcCMRQ}$7tL{krx$`jr8RK~m{@CM zkW-^iMEfSbN>wTnRHh5b!@9yEQxc>S%!MZXdmXc{7af2P`^7f-8-cuq7~?!4HkvOE z+?DcCOXK9^rGo$~u`5!jLUSt&4yBPL7A&qR=XI^R)-mryBRRONvI(gDC8cdMj+ zFU)*;F((i4{^!ZVpZ)Dm_UfZGdvGRuq3Emo$?;3R{}3+E;qs+;_^0&lAClb{$~i7B zKh5^fn}=WbKmL!~&;N1y{MVs7ziN#ds^1xsvpl+PsPXbSTRlV7qUkB$zR$KV@%lMf zJff@981^)mTPy+W<()XH4t>PQbh-&rc+?iCrwZTh{B(T$IOEH!oTU)SVwE`x0lB2&lu9o1+VCDBtuRYc7Jvp~ml8*17es|7I!U>h3fP473`h9R-Gk8dCdmQfsOeyq;;Y8)n+*U&! zG7*eT+prv3UmK&z%Zdzok6(-1yQo9aRj{C|16H-fSh)!rD2*UfN$6}vu3-wGygUoK zaysBC98=CdoDzS+QPXCX!RwR=->VPCH{HQaZ*Z$Sop8#WE8$=WLm8!&PI>l85sm5p)93)VW^%EtziRVQg%DOW+up4Y}X%UD8e6dR%P05@8~{zMGj&exO{WKG1d zmohTb_iDH?rw2Uv;^Y_vA2UfmnupD_s4{WDsBz41(0sRS8Wk4x6 z-+8MSGg*-!NzMfp7RoHHu}mFKL^=WY%lYnnzPnuR&Zi3&njQ7nxwF!03wl5lv5rf* zFw*>S6_y3W0QL&rE9wqor&BR`K%T}P2tV^e8L5=?PaqvU$4|}{P-RPl$%E|`X-5qP z-s!W4RtYRDJkeVq?H-;Vaet8p5_6+i>SN%y) z2=C&-KohvB!`so@QC-lwQM|*l zFfZ5($P+vbu{a_q$?XqFEe)CPq8t&ArQ9BPC)JeTX@m$b>7OBFp3x;E3dhU*7;HaB zhu>xQ|FHi4f0(`eHGlZ$<)?ou?*AMuAN_ovZ$D0+{zG*7BNnx>I~h>wZ5%ZR-tyyL z_dopG_Tyj9fB0Y4zy7z~m;d7K|J?W1T|Mpl`}Qcl?dtEEgToJhSw8$RSw3Z(5ApVg z+F}ZiGrRY=2PRDwlLu z?1i$^@yDiv4i968IWq?_n^f6JkPR3+r+SNFo>o!!($fgGbJ}1#NY0GI)B~_fq_u?i zis1vQ3~2%OQri)wogxz4X^|UkP_R+6ugQMmGxF9_H%wH02?2}rBsZA?)q#5YZ28`V zhoBH%-B2P-T3735r@`c*WiLoPv`IEMb4s{V>4FG*d&qqN9i{`!X6$TJ{neRvtW5D& zqvDBV86{YX_A;~YRp%~U6Vj`>2R9W5;N-|J zB=~U0=FJkEk`r1NRu+?-5w=uCI5b*>bBU{3l>?UM7UX z*nxLih3A+g(FA~ZQ2kYqIZ7c5$r38*I@n%GG4OW!l|J(u$csa!3iGkdtX7&lq?Njg z7{CB(){hjXQ>1u;!G+)KN}da%CG}D1ytb~~o(Ah0nI>cr(pYcuT!L%dZj2HcNHly3 z@|Q^#hTJli$m+shhX(_TokOZmz7QQre3CePB<8z6J<$$lZZ-10*gZ}@|I6g(|0#R< z@8`##r>7r-(=X%}wf&7Y{isc!$CF1j-Ze)-wEbX6;z==dC)^a(-2SBcD`)@v)zANh z#0083V_(q4``Ow5)G#Ob-ifLctmI;3c?!w4#kE3|-Wv zj*v6i)=KkOa}RS%n0BstJkb25DP-fimRcp1CXmE)2Bs8CF)YeS7Ng;X0-uk}U9f<; zLUoFE4r!YTsV+A1e2(I6*6}|lv<|9PIi#VJDZxeK;aw4;PHb54s`^5&@rIG|ae zUs%nl)gjf3WFbMS)2T5UkkV*i7-biufCypP;wmZBca3uWxH`MjKYFLL|FnDXYdGk+Q^ z?b)=fCq43J$KF(91Fw;-JMrdGdGVlg@NWC~!|wI3nm4~M9RJqDbF=E8(vX8OnJ7_B z(p&}x^QA_%SOd?C)egYk87yesmYKz958)>X0g=}bor$;|lK4R194#X4a$&zYOlXqA zSiw7hrVyKd5+a?dm6}{06$4|&Z7B7Nq@pl$N@WhbbIvY+cZ4?xWeaH$3H)9hF7qwp zWX&$~p8Rw`p6*^Ek*3)fkEcL*&N+$2W#$bNco9SjQW4obPK*ST2!>nChPV?&rWd`%sXbc8hY(*5(wa&X zkolUH?*(y)_2Z2ewTF^8$yhNl@P)%^n&~B8Oca<{vNPns_!>rA!%hzv9}S4v7`2++ zf-Y`CtV(2vGnYiBX&bRDDb(W$vqn99+NrloH4q-{I&8ctn*qI{Yd8ntDbxXWTB{H; zvn`UZr_}B82{1FNVh72=c@xzs*EvjVhY|tLsWW*L#y}K(LYQ;#3?HH({SnoHZgiy} zIXFN`032{RF|7kJOE-%2F}zJ|PR;2PcxU3919>vM4L3D33x6ZY1sbu}jI#wIye6rP zPMub%u?&eK2;bl)iy9MKkWhq%5TD&A-FsH7v=KvAdt1fH&ECz=D@X5UyE~=fQM|Uz z=%uLsay_pxccfatT1cNTV#b@OL0rVD$k#o^Z4`h3V|n}Ye--K6;Eluf)1ItDO<1u2 z6}c3~N4W79qV-)C0yue^FY7*nxg%gZA$?3lQt)t4#_*eKLD}BQpCHM+adx;U1Ch4# z4BBt*dhrfS;kU=twYVkzLZ?(sa053wO6RB@wo3QSUd$Vm%Zs1IH z+}R#YBE<_OnvqC8HoV{xPc~bJWU|=|O zl#n>_>QxbeL}{4f6&VrhMFJO6Six5k#U|LEs7~{po$Bit}O(%OAk+j%omoS|o2+d#krO~gy5g>&8Z$&2B=KlN{YZybJRES}VE{vosVfg|42 zjI&ttjxXKc^rcF(d$ofX^@}gsH^1rM`Qz;I-;EyqZT-d{7@2Wt^>l9TAc~S62*MIJCTclE(!1}r7Ip0g6&Ggf|ie0+w^Kch%Qwq z;LM}c?c$Lrhk~_Nq`LVG1dGY8BZ~#-_!2k|08g4ubYP~ul~?!;nMf9?48kzBjfhYq30N0u54d5}ux4>?5-cVy!@!Zu z9H|mr7#Jl}H-Q~&=MSb=1zn@?TpFyvwN(2IQv;476rr?Ng>;s9<1Xc_!CAq7DqB zMj)mKF=QGFH0FYqacbO*jHn=H2HA)V<9(-fj`JbIo)qjjPQbk|iA3FAG%A!bG_@H9 z@dhGlgt@F)I*%~zrWXMSuPAyPciAB#LTkg5 zqjEur&Lu~`l1tGn=6U2$O)DwUfpqqm;JIv#rAbOxR8}0i`ARPlWDRxDjEN*dkp!+3 zTtnQ~K>E5B({gSl?tPl<9=qGmJP4a^s2gTsQ2wJ>W?K!~Bfwy?3`grysZpu4a06kp z!J`a)kf4oMFa|hGPBpPeo%9DYGFAJ7MXNVQ7sv149_(Z*lkD;h8mYPAQLMF}=-==b z=6>kq>Q11xg;2y@=!dJzc>72eXs}DmVglyKjzZ;aZ*JH;{iuHQQ%fLC;AygZ95m)0 zG&AT1!TD&pFulRdCV=lm0i}00*{=nnAe)jC;Ka`DBfPxB!}4SpSr zcys59NJcQbG%E=Gp4y5ZJ- ze0Y^9Ek}~HkvwxuI2+RvB6mijWLzO@AjdbsY7A@#4X~Kuey46X50g%(CYPNrPm1CW zcPSZrHw#7n30y*E%=7dCdH2C{vC_g=fEZI|_dKX>!ff2=Ces@g(hmt1<*tNKQ&E(V zH3I2~FoARqtoZSM!4XKj-$C_KH&W~%X9dQM&b-p!&NZg#GPVGWyN*!8l$t}MHEqr> zI{T06J8y>zvsJ6#O0WW>#}OmbIv(Bq!{p&#HLm@>eEL=6;y2}+f1W-0y;DDn51)nV zH*6tp_E>gwr+wq=!M#6qZ~tlh_-_Xf|E7KCFRItS7Z_K0MnAS2%pDCMny(M;XXtRy zj8%rm!-L1=_7Y)Fp(LVumUXYs52sCclJR^f5xYiiyPIC8Nwo<+E3b7a%N5NoRj%ry zO2sRrgiPg2M^bsSaL$SPkOrc-#@8%EXy%>kW1u=tQ zWeCnrv^SZ9Y(>M|(d?k9TPV?)SK{Xi0!wQ(z)D1IgIhbzCc61tft2MkZR!iiMd)IV zNi>Zn{UX0G3x^_POq}PRkh^eLJYwh0-vX7vcaWMK&453?&VDmvkce&3BAc|5S&!)B zJEZdGr|^ZaQoKa3Xe(A9h4#EGyeXm!Qj#J5WL~rlC&`#$_OP2;k^%G0L>oXRE=^b$ zEzSrMP9vCxMRLtZ0Vh34&s^6Mh#uk68Ar0k3U0<*(u}ANnIFNygH3UHc?VDLpaiS! z2Z~cqUKAI^bUFeFi<>IfPvOdSOU!N}S7m}DNzv zwP9iC7!0rCpVjHX#)Imd@K~olZ}sq_hk~b13XDswtHzqB*f}>fll+rt3mY9BBbp{x zT?1@~&xHCDEsAQV!ptaOXYikTUQ{s@>L5Ii!Y!+V?I%MPK8j3YrX^OGcbo1?G6pY4 zKZuLR!WH6kcu+gjf^*&7+s6Q75QkMXU^)70?7?C6kvLY`RVJ8J z^eO^RI4B^UE(6ma3{_FF6Z1D1&PGgK^(Lu&883q6c-9#m?Y#Mi&hc}jy%R1@G};_I z7RNq}ZOaRI25){q?V9PGhGhgP?n>5u`h%2qYS2hqq$=!({)+lOMTCi`4Xb zsI?bt>;&t(h3!Y^Z9?UlCCvP0WrGR*U<@b|d4M8Cxeb4mh?oSa+8&Cxl2lDU++5sx zW;tQr`z9W$3JNM!T<`cyP?3U)PvcG$YTc{ht>*|t97KK-$cyeB65bziM`_tZ)QFQF zl@Irn-A}M1(i;51BKUnt3E>G7fX&v@8ZKV8`=O*9VFO=%*>`awpx_#Tww6(toDk&BX5Xw zm9laeV>SU)Z$w!mu!3w%$xCITP;bwxy?L!SD|Huob4K$tUmYTzuZRX_qPG`WGO$Y9 zyZ3)*4U|~TnN|ztI@#U@Mf>oz3v3ldrYB&B+y7Tv~xBsni{#|P87m?l*zrJJD z^4ZB7mGiFw|K|1YI(PmYRIgtDgK_>1Z@O$%RN|re?wi;y+ZobtU%x~<2_tbDQibMD zXK`I;twF1!sv|4bwO}bhcwRq~mE_w&!%8*D?EEL5+LXw)n*sc8x0P-ZfM?b0n(^b0HvgVMl0hx~?& z6fusZ^f2goq*HIfD@?E*sHfcJU*-E_N{`QTzInyrU3L5I(aeU&&u`8G!Kca6fZDDA;)u-IqU@1#+csi7;zY9>@#A|CeXBdxOK(WhEv zPS^*{DPi5cK}^gF)i#P&{ELcZL?HcKrOVYwu~F~OnRXZrMjUVx{;&|a2*R1A#f%wg zG<7(wRVm%a6Ar3(D*SrA(diD!lo7`{>{gUnI*%ZHO%d#Z@BluxV3^53t=FODWqK6; zoF=}yxx~l?LdMj|0Os6oJaU-K3?vNL&LdJ=$OPtmot^+UwbR4p8HS$|b}pG_G8zmI zLRKh;I$tm$+ml!Z9)|s#-4}C5bgL%{s^h%M-_9rsiwIsZ_!!7|6slv|xJ1NaR-izh zM;sD3_*;lrWy}g%24HV>rp@72bFl1>wtADJ#T$PdTz%P@UyGLKbWH52MyNuYdl;_m zTEhmd5HP{YUl%tQ0SPvfqTB(FgJS;?_Z~p%7_!=tDwCz(+A{j@dkZZccvT2 zxBc0w@X~f%Mo}`b84-J1IjAMGg90hDYe;GoZxQSfnx@-T?5E=dU0Y zb9f;w)nOyc8@>haN?1W(VW{C^TAg`wt&Ko7J2|H^fqrzQnt;Ff3`BBRxa0Z@--x+A zRgFK_!7GV4Z!TJJ81futyUpn}p_^ZizfOKhu`HHIdQs@%5Y7pU)ap9VSg@}bYi`n- zaD`&E4}sOtFHSZjNu~f8M#iTaf4MeJ<`CC3CE@y{en{ywOxe?67lv~S^oxo*YJlny z%m;AkVP3V=&9~--?tXoFvpPC1x2KhsRO#)lYn9=l(VAB}a~vj1%`xp-%$+ioMfdP$ z&g3B8y;+#tj~b(N_o99K`_`R5)^GoL<XW{N~d7^*VU`PFJF99x%OS@>UX)5uK^JCc1xU!`Bw5M6Fo{e#QVLjin#ge1QZkGskz^9j6J{49RZI_-EYf2~%l(?#=? z(4vA~1hPq}%jvl0GBZUZHH^amS2fWXtOZQrrAScn_z(<83P!P{g=Lfv@=%oRC?^47 zs}$HkHwVj#$Y9hXRW$!f1+Iv949{`r^IoD4LJg^8+r-PBNQ^w>|!6&?*rE`Ec94;`N$#! zGwIH-db+$C-Bs`$cn8=glPL$T(3I{Hnb+(Uj4JwY(~pZR0ECXz>af<3Gt}_Hx8q$v zvlS`3>ZpR}pgl#q3G4+$xdZQNphl)?=nz53aL@qavV{DEaKpX9MrBSWEWH&i7zl;a zc>-=E^n|)gBeWZTk0LWlB@x495cuKX!Hi);^ai~nEm;f3Y4f%SmzRx0Q=AIW{nl}e zY2k#^QwL-_ATP1nz&i^Q6pfPqkLaRy2HW_w8-s(!WWO>#sO{WuU;VkU|Gc{YX0mrk z3p-d|;uYp?9Qw;knB-{tFjCtpEyV2&x5mvt)|qZ1h+@MPDlIaTTk-x?V{y-&8*W4@ z-u%dC%pCDZsmg?ga`CU+XnY}TFB&RP9r^_mBY?f$9I#*GB1sTw5yid$KX58`F=Iz& zfT>rkP@_c0)h&sr200Cr{zeOg=g8JZnfkOcx!T@)+*;nQj}9Ay-S+&nK0B`r_5t~F zdse`#rq*Xu%*Zg&9+~PQRNZIHL7(0Y7Y4EFLGA3T){XC|*p0K_HE(`ffAo(#U;dAk zd;gf*|2jGSC{#Xkges~2gUacb)r;TNu77I)@)zHguKgi*`a9YF|8VebN&(M%d`a@h z=|}MQ2Gh+#?=;moNLS~~*wRtL)ZG--nD0Jcf_4R9=R+C73*s5j25gVTX{Dxv z-!6ELngWj_A!>X)DkS%+j;dF1o)zEe#dmtm6Wl*)NPAO@i)A5AVFa*oDjKL8h%YpKg zFbLGPqyO9ulIWW z!C*ixOAVV`e0uAx2BtAhNJs`-@V<*82#2PiXrE4J9Kbv05bzLRR=X=F##7|3ig&td zt%_eFI$L-@ie3)0o~O+UX3|vU5itL;R_7cEqN$uQ`F68zr?v;=;Xm0dQ;oRz#GE*}oz-su{5I&e^!+v7z%uGagd=A_);uC!)_-fp(D zv;F2DyEi`1^^cfa!B{5JI=1C!{^kMGrmLQ)68H@=gR6w4Vw^=+h35e}WKPuQ>He8L z*+DJoO!xfy$ewO_E6V_S$ku^9H}I5ZzCu4}^knsq=~pZ+?mns@=`AW7JNRoj z5MY-N)rg$jr|NkS9@yk&2Hp{$fbggauWTYq-X!hl5()ut1R?sm+mA><3N|H6mc}LD z=+YI;*pVZG2K2?GwDyI>kpR&$6iq1Z&)40lij`SucLZu>-4%o|N6HQjWew$5U6Bnu zWWt6^AJYzA3+7V8^H}E)7kYnj#C|j0Jak5@_*y%HnN=G$1$e3D`40Fg`HNkw#-Mj- zDq1nR$AygU7&n@bFfzTUB0N~;*tx6u8dbvs>CiHplvvVgk$+Wsb!59DWvn&&K z+0_q*hi}v;SMhevRL8~U7%Ky@8dG1w(!c_NS6B?Cs5j2N9Ab-2*nNIv?0#51{<(4R zGPnD&aqzKm>#yg(`X9=7|1q=md2I00Q2Epmrf$DmJo&;n`I6GTc=B6C$b4Ho|CaZf zgT2tTn4fSM8YleUy{{jY8p*2=aF((kX(e~L z!;g#4hmVDFa|9zBc-$$<-GuRV8c7-%0a5-=^$d)E0PFKcFJN-tzfdUd{iy;D5%Ur=|!M-4x8JME?;jm9GQVV?@ zj1Bi1T6gp|NN5z+q9nh+pXck7#`J+Ug-0C#rmY)p6A-ax5v7tc6L(193y6! zU-|VxW%G4F+{F|;Tv0L;N3zmu0JaQJm{mIG+^yXHw3bwLq4*XVW~Zkw#JfB~ zV%yLR_}5%PODJoLWY^pQ5rC=o84JOW6+S=l$Nwb3$sz?d2loh5s2C}%d1KfVOA-fr zOt?f}6kzw_Gas*DZKNUS(lR`wA(D{+CBqgr)_s^Jl^C}57nrj)oUyz&+1T(Uk-JmU zNK4Bd_GcT82t`!%vW1SS2sYqbWJ?04AfZbV6et+3t_04hSGg*LV5hc+nXx)3nh*lf z8wJco3{dOn#X8+mP@QTPO*}({ywMbg=DWOYEcGYIW>PTZy)5Bk3zB3c?A7mH2$Vmf|07hst06B8V(Ht>L6C zl!A)qPbTkv-5Vt5m){mJXHXYZ=Rh+IAtSsfyTx#ZdW?WnF$#+pJ-Idl32p&AQR$)* zK*s&ziR7b37Y{K80PVP8r%JX^BHB6%G>-kv!_5%czBNafzG^wvI|`PDNn=>vepp-H z%Cxqk{cDcg7>Mv@(M&S*7jXsSzF4}peG{D?BqVL4a%;eJXWpn_3OX81ImTl7i=e%Y z^bxru;TarA+`CMz63B#7QZX~w%+XF|b3`$~eFQIEEK|MXqbMW%oN(lHLo8xiJ<4*z z>=46KqL=DS&4{5op9a*!y5wZ`zriq_NYs=?K#uutjJ0v?ptlt!{5N4IMTPwrBf!!x zb2vSInW>kf!WUkpb3FDK<7xe z(0jWx19J32&4XZT7vyJtjp`l!Bw?w16`d4BS;}7#MnZUIHn41Lxr#WHDA5J7QEzjT zn)fEau9g6ql>^MV-I$@~dP8<1Xs_|akFqD1^@ql zT!<2p9|76UHBTrQhdY+G`J+%q1S&D6wC=)UH0Qvron|Qg(_ntxlduHy{^H=0P2+?~ z>X1IPg$f|QJ**=TLJ39)EYSmwP{!(uf#i^oaGq=doWV4W208-#b*w7<;V9yO2nu*! z0Z`p6-FXDtUwtU~uq5jVV?(!{&I?vBQmBj6ss^xAB#?aARj3CP0ldmdQzXjX%vu}83rEXU;JkIH}ynaRY zYdjgwGgibi&mV<78qC8m|Q#@kk6tgQMwwgH|lm- zDTJ1nN}jjUq;yQ8hKijJ0Y>TXC?4M2P|!}bIh^G5@#yhs9-p5#orM4|UnDn-a02oy z2mEMo7>xn7I);rV(@x<5KJ(*PZsfA(%7KulXXOIh%+hck2NAObc&1D^7cg&5( zE5=$LOVfuUl7JQxVnwYqVLF>#yuUJM&u*v9WcMMMiIxUIy@gDUoou+&g&lREdmo%e z+K17`wkX@9`Cx{`mbxpHj+eJfdv6=NPlNh0Sl!cl*W9&jtpN?m6>7x+{)?+A@!gV;9fbBBDgvxs$WIMDBQ%-<90u}74 zfNsIhiX=CI*gR6D!@zI?3C};7VihU`tC6D@B?- zwpyA@CwWACF8?u=qqGnXR)ivX90h}{6EOjUpU3PpUBt%^TLAu?W@m(4q1>63n_|FT z>F*yu`nnZ_B-;{ko2&-Q3wM4<00)agZhSr7J#}Ztk=6+cSWCQW7wT_-t2wp(X2d||sTi;wJXaNz$R4=%xbMiXR5KbL zd#ot?2ohm}Dcmh&-%5!hdUCq7E>z8|3$k9oK;gGB+HCv*lw zJh5er~&M?XZmkt#Jfb+;k!EK1)9UG$x&2>3 z%frc(ul)f|M#^<%a?9Hd_Cj<}2}7X4sKAq>NU8M}N7tWRz5lc84`1GX_~FUf{X(&Y zLk@ihz;n$;+ms%J578@EltOQ%)<%3K(@COH=k4ZOaUztva!>@sr05m$871Va@_-Kk zK)Jfq3Fn*uYrs2vpxP&j_FEWuso@3l<%C0E(}~oaM{0XHmkXG0F8mKGI6t4=89NJR zlxZ=kof?JBy3Akr{6hF!2)Xl8?eklK?V^prk%pc-Io(PyBOouadYV+-AUy3PyXP`G zI?PlHO?$Dkjx@JAv10ZTEx7fzS8rZ|-1`CBrEcfoE=wAl34OyC@fK?9TGW!zS3N-s z@kx=4J(^vGpHwcCtT-%E<}ar7w<7Nm0Y6zDzDU^U;|&Yt?kY|rox>pTo~~K^I0ht9 zg;~S7pfN#Bq3IoHcEt85c7m-fPq9aNgA0c@UDYVyqegl82!|PuKGE?2?;c?o8*Uyr zA{hq5Jt~aJ2M^Of=^edQX$}ZEqA2Z=H_?J|r%5^k+b2UoZ#)N@%@*j*0lQ8Mm4mun zYI`M>K`TQ)6(T+yPg1=D;AE0gjnjOjoCe|5f%LHfms6ptuc+BlsCAE zr1S=2aO}83<(U(g7HVA@TjeGbg3E`$KX~sS#y7uc&(2|2TKFjmuOe&=_Uzr!c6Yot zTAnYD?$3`NQS(gpA8ehzG1mmgsSL1i9o?H~wTKKRz1ZPL`XMT)4HG-FOpP9_B>?%X&~*>z$9Y0T}3 zDoeQ|CN(e>H3Lwg+Jc=OwJR5i%!krSc5B!v(0=mz1Gp!#fkg>Q_t0z|a=%Lp6)hb7 zRK=VN9r~ltmwmC^YZUNSSZ-UaXp0%d+Y!>oWxwGh1zzY=09^2s_*64W+mtA?0axuy z?j~VTiUXVzs77Ga9g#dbTT!_n=yf1b2uh@sH^JHztZrLl)y<&3uH`giMw=M%X8@UK zzDFK@><`vA8*5`NQ=cPEsrjXqvkbV3X+NMW4^XFJ>-1qTa^7^Z`0N(*a3m2hW-*q=VCPq}Snq$Ps!RXWY?!92 zy-anG0O9K+W3X2m?5E1ZOm(Dpca8DYLjMHIue=2F_3?Zru{veoU?3lIdEoAt!*jK@ z8`1}e;Tb9yY-j(jre)!gHj$N^DJ`i+5G7lt6)H~0&;Q-_NB@;pyY8=F^Xc1;pl*+L zvb&!a_CGBgeo;REws`hU>Ee6i{990*MV9}}N*ipKE~@I1U%H~C??R`0nZRA{T|GI! zbM5-08#mvaZk^D3VzQXm5E_AvFWAmT?(snd=1GndRZC;NW?F8Ll_5TCN|&TGDWo1;S+fC`Bl?<;#^RjeMH&2T6o}!&}7-$(WV0W7*>%I`wx+AGu zk&73a9=+|>JHFP^Q5k#dvyEup63K1^leTz)rYf`y-gi(sFff$pK>cNm7UPDa&}8Gh z=8sxJY0fd|w9<{0zn9Au0h<`tu+>F5#;;)(6{g0_rVIh-y}~idjh&tKmr?6(95{d6iQ`EaUh+F9qcu+z1nJm?ez}cVwgJC3)rNS6QQCa z6d@yY5Ouq<85gI%QhQqJ?&O+V1k%Ow9e*^>FkK>*ild3rLPcfUD0>79$+N`AM_}Sa z&B!Ea9rMOsPOlfpEv=39O1C*ZZ7;6VJk{%y^6cK=)>p~y9U}00j3AA-I0ln#4$AV; zl*F;a@#1*v;P&3dTeE}5i{mGggNNh&`{VsPgRN_|-ZpZGVsq9S?bS%JuXd}oUaiUY zd^&&hRc3ZOTP0z$LtJU1+(!}v!;Fqyj3W}n=GJ;=FN5Wgs*rK-93|TH6UTwtlK%Kc zsHBw^A$eyP(v)=gh_ry&(0G>_TuR|(kqTG(h}$>3QA{L)i2@;~X%g`;fh3%fr7f$I zpeMtFk|x7edR-c(igM>kN-1s}lwg+>)T>WJ-^(Cgn4zIHW?kdbzJGlkDu!kdlcyda zog0TaKoV3%?oL@HM2E;x3N6|8>dguP4c2WgACmbwuCJ)bv-2Q40!t>awd&o4z`iAs6^o@E0N}O^% zL)H@eM3Os%ByWm&W2pnMryya<{X%!UG$M+6hZI@_?Unh>^73J(e>L0OEwyHd*twaA zaDthq*{WP0dzo@y@9tOTchcSChz=)HatGpT8|d@xw05Br=?iG_JOPXDNP#r-KuQm0 zYr)a`%lH0uxc_FLdBc_7bkXq15sj{pLm(yQ^T`Vgq^HGidm8YYJO)f zJVKFhXhauBQ4O|>DF@xsLKnL~Qf)%USc0(ii6_G}x52EUGhGig=9q&)Li+WtCuywN zkObql=l2x4q1wK`b)K2t@kVq44uZz;lEo`^dxeJG3Cz43-Y=zN0D{Hz&fQPDhwnl- zhlS8JAKlAAK34kgpBz)Ja(1;fLX&Mo8-%&+?i=Am84!T7$vZs zIvhd|-#QDy>ZF`F$H%CPPoGArZ8C{i3p z5RBzo0J~8tK_3~7QH4P2RtI2*$!Ct9jVK)rqQ{yY2{t7f3Db=3*0t*Rl!n*c5C3v{ z?>F=7FY43lr*D5hy8CVK{1@f^ad${&!S-mnBLel|ayZ$U&i59}gZbiMv3s$7_IP># z@&3l*^v%WD+tb6xlY{$%<<y7V+H(oLb=8xn6 zC^9MF+daiTm3g$fAWT3=646BRSbTU|10c7a$EO^^uhsapyCLRuqQBb;USP`9~GNDn9J^^H) zqiuR4^RK8Pkv;;yv_!#h=oFc)pd|KV#6fnRpNL)?jxo&xpD`1Afn3u@@3^%W>Fh(o z^HtV};Uyg`PrhE44ziRe-l!HY^0?|`E;R$|?n#$?iGrviwRpJHr-0|ip)#j50_063 z7s_3cGt_cGx-y_3c}-XvS&ul(*%_x7#{e=1Iaq&*BL~=l^c-m&qEze>egUedOEB#t zP#sTQz`WSmu1(H5J9q2z^K4_5ZY)tLG>@J)kKU`y@8()NxPjr#sCSpy+JF@yrnhOr z#_@&I`&iASTl>7HI0!-hFgkZ--KqwxSR9?6NY)e0^G|+SGwFID-_wsj-~Hgf433{i zTK9s+fiqB~ooXC@oSeR0IQT{JVUjiA%pGeWL@A(Y6D@d z@zDZT&1b-Bt}a;=2whY=E2;#(W1;>52x%isgk6>;cw=D=;&lF@1axmF5DD0sbgO zxGQ70b9G1DxZ+RR%R^Uv>aWkewVA~jIOX*%m#xo;+ae)kHlR^4?|4qD-9%mUrhY*A>tYF zbqCnRaG=)A5@1@vdc70}k@94~iBE491NLHtL&;;r@gq}THg?`|`7w^jB6dX&LtWG! z??I&J3z9Ab5rG^+RDP=)Bmh&%_a*FgHrc<0Bj4=$&(EIyaem|Dix2*4@97^ZTaT`P z{Li+Y{?pUve>XpUb1>Z<&xoNp7%Dx?WWK*x9xay#+uMiJ#ZiBDx_$O!_u8}F>+kGd ze|PKr*;LAS(EcHv*5wIw&He8DYQ8baG?&ThpuYWhcJ&2u4EX=hLUm;N$^MBeRi+Nd z&lW3Yc=gKSAtRY|x&x&?EVNdHY@hh@9jrd-Fya7gkLrO;9RWE_bL@O^M}&BX$A$*i zQbl((6RXbR{fkgzJCtvt{9)E3nbzSUkqThy!(f-(ATlbV#!D5k395thTqN{iY3p3J zd9T=gq@u4Pk3r3nZ>;;1s9YRz{G|~9gs@(hmKLOND9%bjS_k(gmnEY>^vctCJ|IlW zA_z}OJ#WK|)^M?TRAK=9H@FLkV&{@3jW?k8FigXHflMXre5vpqsb-`@994hS8BBHd z(GJl7+6-nLq%wu`Xa*p2B%6h@T1**jh;fX0 z#R{f2N|btu%BaxZ1K69(+r7QJ_3>e$Im4E@dGexj_DN;uEn|Mavh@b?Cq_++qpOUm z0_=Pfl#{F-;anr4cS%1dojg_?CXDfh%?tEiUPHraLBtDZGZ4I{^zN!PcpkNfnp)U6)c0ykTarefpx!3 zd))03j!tuH_-y!Heo_v79O%QD00nj^)B$;cP&gT%MoA2$qkc58o$tV*Kpvt-Y`$1A zA>z2MOk`H0{Z3&~oMQ5fOr2MldRtY|q7~t)pq!?z;HqO4pr#dgSC9^db8(t{J34T_ zC-^U4vSDEtCe^Q!R?;s(FTsw3*lT_(S;v(#FhmdoEmGCn9qc}!+Mu>p*KIhFVgKle z=iF6_ADxz{Gi6ZjVvTM|VqSl&}O)IeJ*#)3FO{b_WX5%h5~$e|4OxFpkE>5%&O<&y`_b76WRa9tYh-u7rh7 zqH|Njv7Ee-90@rKfW0-`5*yx3VS`B=DwRvCkPlSuh+!bWyMrmhmB!>`c>a8H@2lqF z^U?9s!S=n`@muYq=jR`R?SFsz{BIVgkB8H3YIW*%I;1>O!;hysliBWku{WCRj^@Y9 z!@E1@Z*HH{T77%8_h51I*7Eep*69=E2h)QG@I3YDMP+ze7@Q~D^JryB#4|ugQO&@S zRz2|Q<26qN1t3DlXnj99xVCus+w|zR%$@1uSo6>xH}F>x9Uu+UknYom@%G+kFvrG? zFlgE9QAKcv&m;W#=U^b5X`}A=Two*Z_S4w3gsesoCWAl(I)) zgnJY9i!{O<9->!i=B|0do=k0nDXMVZm20tyfJL-M@}6wXiYo;=Z&HfH0}oOmf?3`Zx0E;h`zT1pu9&0eb2vV4?!9=e8Rs|!RDqK12o85#5;PKHiuL|{Xk5Ng09iWhNlFSYW7 zF2Sysd*OUNS>|Mztc+6id9iy?9v$n0Q-aP*J=_B(`N4VX`2F6sm))zM)s8;S&fhln ze%d_yq<;83%?3H&31u6hOa+jKW)J6Epwy_Us+R2BDQ`V@#4u{8TmAV}o3`eTr@L4E)r-o(r{#ms^E>rPVxF)$e76|hl&-W*p*^Lh`f|}d@*TLM zIFV|c?@w8-CQ^~&2wvgqBF4EOIa4_#wh&+^qpX~-^NgZdzklyeQ4QpI)MeutELhX zO(M3X*ie(k70Ei2RScJ~WT9@y;EMuYhJ$eWs*gRDvAeeAs7xKXx;?2oGKMXZ#+w@E z6HWL_JKK6@-_h>~>E#DvYeAiQFSL z8V5+m^XqL@MAaMeP7WN>1*1-G1T?Nfr#K4#kZKftk}{rNj8SjO!rkzRZr2@SQ8j+lX7jrW+e5 z+&_x-VR3NH7~eU5?{5d!etGu(-ygpF_q*@>!~CuP?Ckm9EKeTI76-HW-gLG*nr_dR z2g|L)`4-tUhs*5)9v3^O)9v%U^Ct&apY5JM+d6%^d-3kh`Lms~XY<21hP(HS(Q&%7 z6VXROc;oV5arYOMt%oGgxw8#lbvMyDrf)*Piodjsw+^s9jMlev1Y{#yt?p$;H$3?< ztrK6SO)N#EI>)G=R1U2?-@sXmJz9cnH=}b}Eh)<&sk5Vad9df0yFXlewvSd<;oI7|JN?-VsRcC-JWG#^2h?X7cI@487 zB)AyLg;`k&_()?4jX0KeEo=sr6_PLuLw^L{uoj1+-e>|l0@e}WlsBE9E^McjZM)co z;Y$S&BM#_LSS+zb;i)a=02nj5ku=*>3Pv~;3#K;2G6JGjm0E=KOCYvAzdoU#kR zD9Ii*JlQs0G`tAD922ZnXnZaeT%;JapsyZ{rI|{GG7@G6L8chU2vsYpAqaWJu}f)3 zCC2mo2@Ve>_lWX9!5@oo0F`rQQ3+&a?XA%iR27YH%|88fNKvXAH^E7nuvB zR;ommWp~G~Y|t7eW{7fhJzU=MW&0QaqLTF|u>H*CkABs@|Cj55;uQu!FD-B6D72XYK98PbD(U*ZpG?$y8;1!Eb5CyHXST&yaJTd zFz0k$=yC$iE~kd~HP$FlcCRLt%)J1(Bq!_A&Ex=GDdSm{coNL#x)N6013pV)FV0=8 z6nrSppdP1CS2B2N34j`bu3Vg~1^koP3jl+%wN!0Kp()q}@FbF2E@}3dz&_jyfX|{p z7!&dsu0YlZRt;Dneijoem3%oACJAdW;!77D>58+^vBU}+;WW+1aBJdB z!(-z<8gi!@5^TBhZ2c5;RbRh>3&py(-Oq|EAKPujgWFO$C8aJwod)^?1>V*brBZwLDRorOV&N92CL;`^N zy7295o7ubp^PIr2HzmErWHyflYkqROa{O|5>-W8jFPkU7I{n#yfminM{FBM<9oU%h zbayb`QnmX2e7QT{I+!gv_U2proJu%l2_4lLo zF$}OT-`0%&@)1Ac=k%#Pxkh4m0d5mz9;xk+ifB(X?2&S+KK0>$m2I+t(yF`ofWbwR zZ%dU918<2Iy~RG?hgM6hz9r8DGR_#+ZNU*L+I>l1IEC;L83{@%Z!{xSgz^zpcN{%B z0W^S}>Xe&8?hcA8sUlwOqknQ`ozl zLeLtG?M!2iGS*M}8`e?+^2{nm)ZSdsn}gki`BG5k@v=ZrfGx1ig6&Rsf&|9KFjMI! z3~718pQKgMPV^FWJG1kYBIm*FYD_R_e@?&T^cdA+FUh}8NneI_U@2%PW zVh~r~r|0gAm;Fqjlnz7X6MtrE)pD*t%FFgG)AS~4TsF>7$(!nh%7?Muqs;Q-w&29)m9pPZ|8WSzFA)r(aNgbeIA$c*7RdpZ~2+~Q$f7NSOR8eWrW2ef&2 z*xv!~X5&NZPo;i0PhfJW@OcC(xyDc}a&2=BP{fM;3sY&#@58s#dsU4CCS2U!0D=lC zdEBwMO0{^}N5pMsJJjCxm)fp$$&qWY>9gl5_7v6@30Q86KeEX%HIq&L$eI>mwiGcu zRk2%dXr;EFHhs2gMd%pKc=@VmdW{s|NYWk8ybgpaKL^nyng0m|d>Jr@%aZ*Ls(zUt zff#la0AwZw8HaKyL>s_>dRKo* z@qpEHSV+H`Gu@6hb}&mJfFsr1p${H1CMeYtgKNRYp|`XMRQDa376NaStDa1KowOq? z&PpAv(1(13QbQc2(N#~@pgY{b2sUxJb2uQMRrnG0xT%zY*aW+9>Ap=bigJ>0$ zj-9ohN(t>NirEbu=kSw+1)@dEJXF4G!$CAvv*8_09EOt$MB0v0T*Qy za3%GmOZL=k8JM$XxI>1gD7S=(TA6AWx~ojfOTO#Xv-3pd>MEv#Cny4&}~z zfeaENB~j|+>Z3IBnA#-W-m5R~H+CMi_MfELb~ShUC+{~;J}NIBlA@TQs)u-y30A^P zdn9UwB!iymrwU1Ds4KOEt|f~STbb)5+ei7yeOtI~@s}X+0DQ1LP}&O^JM`0;%=Hz< zp~gwHb2r?$<~O#T_))}|UL0Wh=g&_(*xhG(-r|<8dWQNvI(`n)f+teCbKrX}{0Swy zaOoRP3Op;45?#GVsfrgy`vm~_j6{;{z~t4RQSC`Vt%sjkAZ3G+H<-BA<}0E@qnR)Xwm{9 zO$(7wfGs@w5IBu!bIRiFiez1dHqvo!C?b>C^U^AHrgCeT0FzmuH{7}?7%fB<)G_bs zaOGdYf(9Q&iH3|{1~z5rTRK)0>HzrQ=mOaDLRSWh!;?h&gzF!RS8Fh34MfSr)pBG_`ly605jug-2zZ|kb+ zE}%B&Tym4;gfhEWs=(L)(KR9}NU0_XyCZJxxC+3xfZO~Nj5?nQ<{Km;m1^SSqQ;bf zbks5+JjhQ~FP|g6TV2LZWfzaNUo?f0I9`ro&nSmj^4i_R;Src9j^buh?9!Sg5DF5- z1-FKsXM#h!h-cWe9XjqTGX^CJfR9*uVIO%EP6=2v4i?n*K^>U2dXkG>h){6)0V zaV2Oh=J5)!B--%mT4~3fpFqn1Xo=dKVCd}lc4~A7*-~o!z+c~kd;q|``Hm0qOfb6c z3FZdJSfEq3iHAAiEOa3wMM_x?cQ|Q^9N1rT&rzUa#ZTn`YH486t5U>m}!XhuwhNqEy+fJc{c{BN)sFpT>8*K8ntMyP$_tD+{K;?)*XI+jXkv= z(i@XKy7tojruO~BR_-6q!n zLU;ZsI&SFqrJJBURiI_rM1buqZPcRN1tt$HyL$;@W(lyz^9Ch4Fdi>L%QV6{r0kMa z9nDoiY2=Q0uxBeu)81a{)0^%6cZ<{Oh0#Tq-SqO z+Si@Qt}D?ESI)xq8@}RhpmG>)oJU&MW1U;^)@@DS4OLGfo!kEA-SFUPZ1lbW`wyi% zs4EnT@G4Y~G6IixmM96ygQi^fVRXPeDU`TFor~K5O;zX=7D3LXZdZ;mz=aSFN+e?n zW=wcDe-9q z9uOzQGeNx5bBU&Mu}mSB(?g^+WeTBuIZz!q^WF7O4qC>Ftg+DY6dKlq?ncJI*m!#m z^$p(+`vGz)TE>Y!AGrPj$^Vo8XIECnD=X!dmHx`g^gsDG^F!W+4GZK@G@aKO_JNi$ zUr97eQrpXlX>&&lc(4=A!@i#4$`VX(FxKQ1dtPBRC4z*7*ejh2H*q08%(Qu}*zbt8 zN=8e_!`k4}ctPZs58~rdWuwjKkk`rPH`Coq76}xqP49eOU*5x03p_7Xkf2)TNEal; zq1h!Yet-Muj>uz<9}Tx}P51B4_U}Wv*S2nkY9mM$hJ_~&z8>B9Jl>hRvUT1y;m@<9 zXy+_Y*@1EoS7tcB6-Fn~_Hl9VslM~3yR?lld$@Jv(+7?OCHNznhskqE&-RQ z=yuY3+5Hog-0iunh9mZIY~&HAS_d5f+)qAt}s1;T9|GQBdgTg zt5!D-161feQP?m{T3^1MXDup*$8%oxg z7r_ickZc(uWphlG#6VYJ;>-?+kjChe>zs}lf_ZE=HkeM0&{Ni-ZhYux;zp!8pywNF zEm>75)M0~ZyZm^630?sOl1qZJT?W{JBNM^EI!M|A67*t+VjIdmoK>_8!>6TYw%TRF zw9uN#fKq$6Fuhq?K5iYnZ_IBO2m4W@mmi#UE?(A-KCJA&lkT2j=A7=Hv`N5TtZZ>YSkA3?xdy%3=Nd*UtC^CxJCj+Lf8)w%*U~eU@B&oSc22 zRW4k~o|YQ{>B-r%?Cy*B?7isVt!VpB(Ac*}+y2UFZ2Vqi`XW4f&hxJ-c13`54*UuN zs}o>Em|nOPh0;KQGG-T*IFL^5E#uoP1BN9knTt z#tl!ZauL=A&O|sFdZ}XP$YQ~;u$TtGpQx_AIlii}9Z=#ulJ+8KPjZ&%wPd~(RA*e2 zlEa-U1&lgZ(Yhx9NkXj-iQz2wtjQvrGoQ>C+WkR(5OoVyw0OKz!1KrqBhd{cWz&CQ zuo2&|2p#rl9L(2J1zM;9{1t1{XnSePH^pHflBKw^XIu7EX(+j6<8jTOtBSjr2* zE+bl|lvf;>D-6XT-@;bA| zn6#%x)A`BK!Tnoj&mLd@_`L@&pFjRoQ2otMe){Go??3tE!)G6T^5V1KeD(F8{prhZ zzW?2KfA;ma-+l1O%l(tn(QG-KE!(3xZUe2stkIVP+ktv#!p;K6$ZQdbW+jm;hhtfS zGRf=lCvpKxN=6G)re6wa=H%kxzHF#g`yi#wC*27n+-l zb|P&hx5(lNdt(JxH0un8aE+h-HodfE$tG*~^sY6Sy=-wq zO#KM#=6$CM8@9s?=18G#qPmnr;{L4>HwFU}1K10V5bRmD#w==~)}fc0tMxOrQK~j2 z+d4nGS)4yAOdjM%ccPV@5F<{tQGM%a<>15Y>{)r|r)<7pkjNRyHuv+rlX$U*8yJKP zAq&2wfuK>u#)%?s+ghr^Gg`75AKa;4|JI&92sN+eXU~$u$FbpCq0u|B+4Erc4Uchx z$$%$2@s^H4y*Com7qQ8U`1EJt{u|!viLZPd?c9s@9)+8?o#`!0xDD!xh(*=vKc2rL zY7|K>#k^?(EHbLse|T|J<5jg^8RUo8q8bOW!E;dEBxIy*%6GtOfcYj7@{#aD3XGLP z)O8dZ^MdY0B?Q}+y2(Ax`UuXm1n~JZ#c(c#kYp?!P9v7D;SrZM%*oL9 z;=ylf%R2@k6vWuoF!B|6&xr*(Zi+gL3Y9qpyb1LtdP^B!Z<=NTCeDNZIK%KHhl<{i z6#;7(zNaE#I)dm zI0ietA#W&!XFCEf+}AfTTFMzDgxt7#{MP-851!tA`O`N(d;ifdfA;v7FW&t0XK()E z#k0>pdH(XlXP^A+*(V=7`_<1s;P~kMXKy^bx4p$6>a5YjUS@y=aeFlFjOUn!73-ZE ze!mzI3}!e9aLD;^f!j=Hv}_KSmEN?!b=p~+)y7Aa(Q$rwoa`UQa0x39gPle7#;5JG zms({S>754g=FRrqg$b!B3@8Q5Gt}L%4XNgyC)@WHCs-~A8iz8`lWyT1M6O)8y6|Qp z*du74V$FS;jQkU&FM=6ZYw*nx(Xn)N$BUwyVoKT_FzG%hK@-hrkoLk&nbP z&LCWh?D#-kayQ`5FHy;dQq&Bvk^atZV0huL&FM5jusBeW!LfL-noL@m+^o&rrLiTF zr*NX>_T_CVSh zEB=J!k3M}lTQlv1z$FLjQX5;y@gZU<_0ZUng(gkjcv(GT0QtUH+m4Q?Z=yE`RU`v!TYJs z39ap54o!PKoCeGbaO^?R$yCu;`iYxIjh}5HmkQ~9tmL!;ehark%^RA&;7IoFWft#K zjmP>=g7s^`@{zZ&tyRt%}?`ea4ABIk83B_HZMlZ|Q?uW-ZO5 z6z~enO@tTIu>a3%@`^5IUqgth2+P;a#SU(quLX@wYFz=l@_VFiR})Mos++3=D+nhh z!^1TQu=BG7%z0t4K%~@EQ%H)ellW0t{ly|iHjhG;+e8cr)T5-5-Xfgg+J-BhbEL{x zreAXUJjDjj!}!@_m{f%9slrA)8yIa-j!Jp2MwW!B_#vVcH4X2q*vmlX(=Jz2t_Xhc zR+57lcOoiC|E-UL^@$JeJyQ!b=JssOm9M$WgS7~{-)6YG1F?_BW>uQGF4%SR0$N-7 z2m8wZ@spK+ZRLNlto)13m49nKZ(sSp)>nSR`TELt)|LP8+KP1j94r6(`pVavEC2cG z%BSY1kp%AYcnR!=d3J|V?r4s2l@09gHo;`4Ct*mT4qqX~dj{)!)C2$w&TK{F~A$QjuIsWz@TosHDr7YLF+g`*d&h>V|lb+R`^=^^kAKLatvBit#3@&-G7GV{{qN_$po4sdyj z7W@1-Y|L(5JAV7&wa?yv{MiRje)Z9_FFtzf^N-*9>_d*XKmFk8XCJ-$ix1!V<;PDy z|LETHEeBel7SPBK(k@ur*Zbd%5u zaWc=rQDkG)1!{Y5suLo9?Ea*HP9$B7Njx+%J!kO5X#h0;}dMeHVShL5$VMkGA&Ts zsNL0IeZiAPidhS$OVd6TcNewNM~dlCMS?3`S2ovdw4#!fN{Xdp)6*!*fuEh(uhYgbT&Gg_*W^lGJ*e5F? zGdf|eUxrG`P_$P@T%UwANh}UDyUoK`=K)q{ddDjlp0=6 zEj^`=pD>o6jSOyu+SkI}ht$Chee#4peoSp&iPTTKlEb-3*%fOf>)VCiezAYLI5?N- zo||<_MQtNICxGp})(7T*rA)25*)rP8Jb*w*@s>`c-sxdewQhCgggwT))YYv%B5G4Z&fndl76C^y99OxL?LatqVy*fF^ z5D-ugAI=GnsZ1XJgl9Mb)p;gcC}kyhv4|yau2jhsnQ9To7`uiC@Jkf)%%9fjrQ-dC zx>BO?aESrlZG<-wuvkr1!F(j{Oi*S_32fC;wpxbiD*9jcf#8AlO%hJ2KSLU3ee_*1 zN@V~%9M2MnuyXp&$bs_nDh7J`KX( ze(9N8FFp0})3+`^d+kD>y%0EG8I#8$4O8q>Abcv5{P?U| zS=D;SH1YUt+lW!LSzUT|K5t%WXNiIf$= z#fu37kj@}tJSt~EiPb^48d2VgOPJ`fS?i^jN)J?Ob+&c0B7F~&>>R9)rvn;OMU-un zvNTpaM$to8y)ueTb^_&IsI?MmFCn;^6C)sKe3|s*ei=RFTTc=O#?@&oV@(D~xxlph`!_gGf%Zs5o#6ID#0 zxO~BQ%4S{IMuF12fwGOV;GIVSb~%?rfSt09pPZ$W9<-$d;sqL9$&lXt%$U~>I$fyWS3Ql+wQE^f%A3^^6 zwY`YjAz@era;ybrrBJQ{^5sUGNhJ>Kzj(BCGF>cy^VMdd*2HbOBW0He%PLIq6o>yssT$>9|zIyY;x1V|bxhHR3dhZigUVQS}OHV)i z{^xGI|5=Lm+b=(V=Y7vV`o0$)d+$@X=%qe?=h~Auubw(_Y-xF=Jy>jyC!lwGFc|>m z!wETh?a>mHdv9?K`lSI0Gn#%yF}ei*r+c*5UC8E$4pD+m>6cs)*{80 zQE3^4l94Y8wnsJ9NV91rKZ_%n#%NbX^vkl2*w{vRx0d!2D?s))9x1~Uk$ejyP#nb> zBJ-&_*Fz|g^%*5H>|7d#qMD1|J>fF36jTh=ls?*-BfKL4@116Ijz|f{j8DoQT%sk% zCq;}kKOW43D@M;W!{8N03g9_RI}zT2!hi$;EPto*az|Hhjsb9oR`KYy8J{k>?d26* zPeY{zZ>~3wxHnGlcNIB7I6u&vYig-S2nfD9GID~CYam2P!~HJXSWBU2SE}}{4X6QA z@{AA>qGaR5qek6K;>Qw+B31xQjMhPHTz2EkBb3lU;_lnf@|Zw&1*@~LqqJ_z5azK= zEu5((YRlQ)Ud-&PnG)8KSRcgm9TnSEqm1)dFp(2;7?i6t!3EE=xW}MI4M}kMhX)0rPSm$({6!3$O)c+>b#$J(P%$101E;GGOU||V-)j3)F6xu zizG(KWZ*O)X?Ni`?VDh2*~tuMmRan=VL^V@3tzB;*KWz*7$O%@7musWB{WyaCTYv^ z0)8YEK3vIc6`8RDLRH^uM-HXl#nN|AsN+R$VHNgvRnO03aZpHu_>rVO=Rm$5Z7!0y zI2Vyz<@8$J>H^5zA$h*T6NT=VS2S>~)0RuEcFlsb^E7%cE^vr+P?iRA}B zN}vGdfh2|l)zs&(GNce{3@9a%i~v*baO1Ep@b>eFgoH$FGBQATB&IMWz&@BykT6H=@D1CkP%s{piJKUwim{Z@%xNpZ@6EpLqWZPrm=DM_zvF`YX@ec;(rfuRMF} zJx>Z7^TGE#%Hw;Vy#Dl^E00{gu(CA4C!sf9Y7Q0}y%8LHy*mcgYpp@0*{je;mUxaa z2f?YFlju=ubgS(FQQf?lXQ~8b_ZL9;GD6S+IKS9g*ywGXt{y#KK6WLydM>$mTJ3Ij zF1#|i@H&cddZ__(IaJ@GXNt8Wg}3<0=r!!lk#Gk~3uVLc2^Ca`5NYw1Ecnaz8`Q0u91(r_|| zqQ(HdKq`l4bs&~>lP@NYA3;fG55?dCkpy_7x;Z(6!@pb7E(orISAhvcB}f)UWKX-Sq&BNAvanq|vbd?Ok_mTvx5HxBXFP;giWu7-!(_yU zU9d3iV0*qE%hlD4&@w{5Gsk515ISNS5KNXRylwS6-F#pi8Zc2^%65+$l$Y5GDIWCG zW4S6Ny6q}SmCi;x5HF!zr9=nMeUYR$qI)8I3c5SQY(m^gy-GBdPn-Ag-Wu)*xq&2A zrM+?7>B}?jm@8-mwE|iwJ=-EXyU^YR(hI#aU^_!k=0G0vom0846!5gsS$r+)W5oPK z)mVmIR%=z%G8V#%`VL}z9>oHhxnM97<&apq2ukA!;&!TcFhmZ^kJkY~Vd>Ao2i`-e z=P_otI<}ONc2x=HOSx#b?;Q@737MvGK_ifS1nEbU6oV`uevGb2j3SvupVA$v6)c1| zTMyLN=8UQ%k;ejkPEEjdV~38GFVvinTZ&#cj7Vv1pEfHE9Y`L4m$IL*Y`&G#kG+OS zS@<)q|G$peCF}HO9@xxby1->12Ts=(&Wj*i2!Am~U|Zo->1tIETcRBx@uz{E@AZQp z{4X}V^Z4T*|F1mr?w6cA`snlaGs&b-f`9(!fA#L)uC8wL%)LJp6&5i##rA=$ZC}`E zOmIvhg9ep5od{MOR#o0T=~=J5b*@Xp)sKaU)|hZdMi9s%cIJC8gMcgOe?wXd(grZ`;W?wF^UcYb+wXtm#aCZ=ZT{P-Jhz4iL5ue|j96ED&; zeeU-ApSdB5$ER+*_es=`*I#)2p{H(MI=Q=rTd_0+`eVUr(yqH>ARUuQ+{tjI;Kv4( z_(`y@A=E=M?sFwQN3KUj4iZ|$#0(`Qx$4ynVcceo?MB9Iqza@KF16P$x3+J#c5bzH zZyST%)|rr7h<5asP#_z zD(leiKC<)bYnjO@$Qg91q%Va^OEAxv&-l?%_XwlwlI=*!fJ@c<@szoA&KXD$03?zm2Q+3fpyN}A zrJg1dcYl;AX%_(mKJNV>7=nhu!AzewOg=9)9}~eqI~4-6LR=xN_`H*ddYPK{MAHb@ z=fgTmNK~Ma`evZK8Z7dQtRnR%(tXZH3rPT(58_mEjG8;zPzoXU3S*o(bPQLBW`AM zn6mLn;Ro_iCV5p2c}%p>iV4|XN5m3NSC}V_75ZvnXf!tBrJ>5sC|$Oga~@6dHR8o# zoIspHPi9UTM>0$`Re@J$Kp1QfKxD;I1Ss$^MT;X3{SgbyJ;GB!CQg*P09#m~ruDW4c*fGV>;u{dtoY~cJVKbT*( z{~S&?eG{-<;MAHevUzf=t_I|(`Gp&?5uR$FTAghIaKtmVe1%7uSLM^8w+>=+(0q}) z)XKtuX7{TOqv&s}y3L+DX(swBqWI!{?rz5W#}X^2r_~IqMU?-H8XXWyS?u@Oqrvmo z>kB9Z*>dl*o|+z%|I!G5{@{V1Dd2^Mx7?4JdV+U);VnAT^?(APt`2gl<-rgQ|YV5)5TaSPt^wxV;Aj~VR#H9EH(~ml8vn%&sD;D z?#6Q;dFhQ$eBg~YKm6M3AO6UzufF!7*I)a<%P&3s-e+z+`^42}AHVw2lUJXA^ue1~ z&tH4+;`Z(y;zlBzNWd|x2zwg%-{L=ptdYc3-UJpDFFrr~?c z=`J-q6@IlnEY&#*5J8aYg9()~TM8ogm1I||&We0n=jpqaZ7FE0m)0#WlSB21$U_YMKV z9m=8rq5|?B3=l}opq>xL=)KbHW<$p&PD^Eh_jtAhm7$_K(@Qh3=;(Y93zl;SvShjyWO}m8dDiW7;3Cl>4rdxG;vOFeAKrePFn|Dp03U=;FhJH$v1GNk#N>x;!#4qDj{& z*A3PebE(ieUJ!QuT%q?sX>hSTxLE9+rD8Ak&Xk5cbDl#8Z8YSV2vI3zi&Sd>g>cIh z*dlhk^xW%h0e^H zh3#N0Km`5>C`p+oxWxDXizaU`dnF2EM&`L-L@Ue4FnxARe!@CNyUg^tvQ=MYG>h2_ z(RHEtY$)L}Dv8B&q4A#E9L5GmBkiR?sV)d?ts@{XpEYZ@@I^up2^vf3ZdIy$%A>}= z8CL&t?(m62GBGMGhM)c;1GQ53iVl+tMq07fFDoD>ySxMMexLjQD$mJ<3)gJWwjW!q z5hp+V;Xi-vwYNF>$VWbAKmY8rFWM*evX?c#(2LaoqXt#J6`J^zhv5Y>btN>(Wkyy*?oZ5R0K9V_3FBuuPTtkSQnz`p#CRro(3y~4D>sA zPAf21X@>MHb)g^TUr*($z0PEJehJaOaF zwTq{>x3)&BJN@-@TA@o~0!{_!)hWWIu+%f;tI?cgs*wR1XE26Qxf2!$?+CV#VKo>x zm~F||+Sy98+#0~caF8Thtao#jR;JVlv+%_yi3;3>{tnn8#d5EitCL z?MDP|juY*p@y>RBaz4>T7dOUP9h%)6O$9N~2-7-=GQoirgPhPj4RWHgM!Pv;2^v@~ zHanRj@iEkm>;Z9!@x{{~&7h>GyO(b7MlvlD07H5HU+entN^axH!q)SRQ!kf~J(XNI zt9Fh?;GCJ0MKBpjcy(e0GOkb@v7crxP@sBANA;`pyW!iR=2+1A(CLgvF}AHPBH*OU z0Lz4tX=>rrT+B+o4rid7LfH=f1MWl#)`eY6tiAzyvzI~4k28aVB-vO2kjE>Majigc z9B*wCJLSuFkp>|m!fy)DklIo>SQ(|CWAc4oE=zl74W!$bC^rtz$d^*c9kM%shv()H zT8QOKv8yw_WOl;Y7Mez*cQ!M;Xms`vTLz^dFH@Wc<5}{Uq3_3}XZ_I$|;WJv|s1?t7B2rL4cBw|Bo1SvrULNPT8GhELt<|V_LL{jV8Z{U83}{|>xM=h|Xjcr&3=t$nC$KS5f7dg(#f zy=k%ik$xE;keF;!r@^R8#2E54W`bB81fS<=YSS5KAe}rNrr2g-0>O41kl@T2+vgy? zi0}ozgp|WUh?0zN$hT!9z<1zZQSeK}PW3K)tIWvAHqAQtdALq^J$gJnUBK)YmLp$6 zAx|&04zT0BUIfoejas8uso~{LW=9vFb}D&>g(GoH1xh4eBb(8vTImHudvTD{O(8XtcoULNBp7)jCR zV!xbVJ5R5il>&wV_bSE=nf*Z}A4+DSFOWS)WZa;Tu`nEXH=BL_FU&3x0>!8o{((3i z;K}0(YKP|-+=!w%Aqfa)FpT#jrA~eC$?@fnW>(L~1}FU0Rc&-4y?hRpqcJ?GN^0IB zr6~v|C1|!wS+3SM!0?`d{Z;x+$dGPQTD;GY|zwr-7*S}QXc_zesXn8RP$=q1gu6ym#cqU>XeaT}TfD9%?fFNm2B7n(92sJjU9yE=5HBwyCyBD;^4gwfw z$Z!U+qE%hNgeROLTW7}MXUG~z_lJ{ef@W4NnXV*Lh2Z0C-be{ zLi<>;d%}cT@1HFXAE=C=U(V*x(szOSlQ}ktJ?QuSLU%vgI?jg<2!jT)owv^U#pPrg zR~b@ee@ZEBs|1CR2MXr6PI#k)Cugt}&zTVAjf6*w(3*cG?~-_V@uduzT7-s-y`xcQ z9g*iLgY9%w%Yee;rg)$!hHghlc!+m)2Pn+-+*~BdD5$SINOYDhV}DdMZnBNQcKY=M zAqAQ%5hg6gCnJMxwYRO0j(LqdV?;m-pOkDE{b5*lz>xij{F*E=7-&$sBZIjwYvEHK zH~)BJaMw3?b9U;*Bg&lvN@YqhtxsPh===fU;a=>8-hPJ1L(2LgWyM+x+y|8PDFs)7 zf}%7OC4WE}O)2#$#W+OH=L+$^rY`)@gMyAxAW?kTY#NF7inQ}URcl7ny30_3NZ z#VMuA3#JtPfNU$a?)~!v2Y4r~0$#30XNZ7TIe52O96@y|77(6^FrML&x0DrDbTTsA zg}j7n0jQ_;COnJf*aaw<4RKF}Mmj52#mVcrq=$liR4yTgRJ&8pH>N>&awgu`oEH(lSov)KnH! zkLOIiP|m<3q3!1fYxT`~kE2j+6RVwoZNQ>mmK*V%qqi%>X(+(}raOh{TnCP&w)f=1 zwKwD4typgtePf8>)A6a);<@DDM54PBVSFjWn13S(?NC{Yw08CO8oER&6zL~c79#CU zwR0@g*;Bi_4C%zXyNEPcM(dl`lI?X?Vi;XMK2}&6*5H<8c-)#+!@`14Bz9+(E@B#$ z0%p8;lLoUD#zVY_Vah#bQ5gtgE*13)sYaERtCh`1>t{dGx%T;m+rPN@*st^+{)O)4 z&n(=2XYuwsh1DC;%6hhY(!g`Rw;QjoOC(UD;Eouoxfn04#~HRl(HFsZU&q7Ko?FKP zLb705#BiYGEHJVZEXY_coXm764Q~4|hpaAR&Vbr~K9V7Pgh5@=Luy4j3vt|&a>K;n z1nZqEQ4w;cv>M1SuxB9%QfqDb^Mgov!Z?69UB@#ZfcOoH1s3EC(l{|rnHRT1Q5|rt zN`WMKa3XKEZW9LN<=z3BP{`0Z6-TdZGhSQG4o+nkF2!4WneJY$w;N73pwO8*@kWv% zy~q)a=fVs##r)&+fje%Y7mVaba+blM>$I)yrPy2BU6o;r-# zY_gnSi8M@|T0K)WII?8>)>Gz!+1WAM$IZ^k^59IdbF$Drk#Fr)M(4^S=$A7#l7s50 z`cAfaJlom>=i%GU;dw!Ii|*z`3UyX_AknJZZEOc=S>QPAC%IcW;hh0ttTO%xa7ULJ zPLif4JRX+~B{z2pds4n+4P{)yX5Ept3M?aWvc|X@G8+nnw z3!mT)<_OiwW=9*?+)a}=8pSTgLt+sfG$$8ltv92lX7oy+u^j5G1_wL-&Q@%+7wKT4@&<++6F~^PY(^%aqeRrdG*Ej$2obuM3^6HH8;vwaX zqA-pG0sdeAIiU31%D;Cj|JJAc7pL;C_-iEV2bI%`LVFZ!cQS=~NV#}eIX$oZn7^G> zzB;AMc@O=mL-~Wy?A<9vRg@;r&nZ8cRX)#&L-~ddF$zQu@;<+vDD^_0pc@barU;`vh0>;)a;opd%WY8lhW7O30lm{>ho zE>!uvq+A3;BoJ9n>~h_PcN^Oo1XJ}ijC}%0WvOAL3+bE*j03zVB(XA(N!2#qVgl(D z?Htw#Q%-fjA2z<+=;j%2$`k_{#;}QShMjLA!mtvIO1?x#HJHd~88b%FUhh)yH+y50 zjfh@2I44;?Yu4+%WpthqJqw@1x{$1P^-4F8%*zZrwgqM*tY^IB4QV-ag8(}REyz&Z z0O8FhK9h2wmf0#BpMVBwk;Uc8TA_%kA>~B{t8*@4?(tL zUm!-N@w69;m^|_26KZ3~{fJ;Y4SBor(CERp7a#q_$qQd!e&U_#{)ekOPc=@wxbWb| zO3PO>3zz!mU$38h|MJ5>H-7M=-4jp8m^{)eiS|yUv?drU?Lzouxv03ip$%DgaHN4d z!tr=Mk|G5avIWM89Q3$}arL*R zHLZ>+6+6Wbk3tB$p;9X1Ic$zK`W;YVt)uC|=~&|!?FKc|_OmeIcub}PYd4CQXhzNV zktg9bL5Q|LYCx?MEQQFT}$RMbQ*>l`wzgRwoUV?}RfcCv{nI=aIw!z$$QeQM{#n2rHU=Js zFFEM3BAAigv@L9~G%bP#Y-D75U6c~sn7||VFHZ{C0+JvGQFm4u!2N4=_hdvA=m1`z zP?$CLX-V4dSO#$p_l0K#vy-@kx*|HT?9rH6&~P_P_Hfpn5qnBM3|}Zn=TYdX&GNQf7}RSEiLKJnK|` z=b(~{9JXJ>6YzdQyf~C!^D6%vC$q{gxRh^l!XLNtSAhd}UCQq{mH(M9{mTD0r@S$v zykadh@&ayBJUOY@?QsBpHLhgfokvzrAselA4U-T)9qS$N0qK4nvqz10p5>L##cp}? zNY5*jF@wpRmsT}YvjxtCm#tm@ShBi6GA}!8N^Yh)(7MnD1)qa4{QTJt(5;3AlFgc3 zu7mCNmvRX~%UDhkyoSq$`VDMH34_oP5(do-%nXVYTO-<@2wS8R@Jqobw%S`1SuC{Par{R`OrA;098HHsA@UuKZX62_EM z1)MB#&bc>B%QD2yg1!J=_xwCssz6)?mtk1XYPnjnf@@!OCY(mxPRZ>rFV#;zH@W_? zP<>rrdLX%cCDhz87S1NeXA2uwYr8igUIY?T4eYtx95Ytz!`o;$XrWa)t{=)?6W1g+~?669&A2 zQk|56v@hRsX4<*Q{(KmsK#OME)a|*&OZENtjc?kozAQ8jNMhg`1 zT61GAl5?nqIL&2q00k`bk*|?v`Or=99779KK<=O>@E*&u zu0^svXfXu*(jKK>{?4PXk_o>)RgR^Gubg6%)GCWruov(}^fR=%8uMFv> zLb(e+V{0H`;|tx>{36_RQg?BCO6Z|*r+g4{!&W%RZ=5pu*4a=1YJG5)>`PftVciyR~Fvyc}M8_^m{F#Al5p6qN;d1GZCj0}F)Hmspk|UV^$uRS0ea@9-@E`@3~J z_-SH0S#6c8!pxv8B;O~LFuai%5qqfL>8nCPFhAHDtQO2BVtB9`ypH9oMx{-cvn*By zB1AXq9W?4l9C@t37@(V4w`Nr6NVf5JF|Q&yPzIXv)4@dQ7%9 z6>PWrUyMA*jQnV8K9-NxCp1R&rL!Tp%~Hz?hn(vyoOq(X{%H5&E5Z74y?MTU@l$K> z`$6ZCUv6Ica{s|k=htp8KlaY*dw+ZK%&#pz{ZCpCf4Oz#Q@QoqMr$`e*vAYZkgP#C zvm`-lIQ$s7WK>$n=xNf0&51$Vemgk}or|7A#q< zz;=fhr8jkN7+%E{N)m?`)N%c)BjBW5hf()yCYH;YhzNX%rC1qfaTsH0(d-daO6AEeSh7de z1TtOB52;$Mp9;(uD z=9OP{D8J%R{?V-RscGdEK%SC&UU_F$d7D=%%8W<(%X#G&=9JGLyvNVq+Xc9lKjE)k z${*V0J>X3B&x?w!(|ik$;0CReVbGY3uq zCDNXU~+H1?cWtCtGgEvo-PkD74azQNBHH_Lsn0VcOdR;8(_r z+5S^dyFQjpSELrvwq^4&V>)6 zlPPXpQ@h9Y!AbMzwdCYNcIA@R-*WP zOBjL?QlO2FNBUdA`p`kS1wWJP))}_Sj?zc(G%vl`J@?V%;?1Qe-WlHfrPh@%x6i+s z=$%`<_4kgx^sUwBzrOh7S9`bL8Q%Cx<-|+T>V}sIqkI=lIA&!t5JTxQTMW^w&<1jP zGYf*lcwnN>r*4N!r@c5wNT@eLlY$mD@;^u|Rvbo_JUWC-Sy=Z_oIDOUQ$Ju}XA5Qq zS4^Ouv_Y&Gf+ghrORS+eMu1B_%1aP~-&bZKE%6xVP|da~1{kMqp+pxcg;lY04zSzG zKpWw)4N2BlB84TD1MiyRkSJS5V!c|?s~TRFfg^(fQgE^L~_hd;3cB$1lY@Dx*FL2ZrFIUHxLHO#zgJlYM>!=PdnZ5I1IESD*uxWL~ zxT$dvaE_1Oc8%S2UibI0rp|dKegt zJrP+^s|SF00sIv6q~Su1=(iyG3qcJrXQH+cz#Up{e6W{x=PdtIgpm--mQGTX9+2mr zWQGWgxiI3iFomc)S@IeMs0lb62Mn-=Yp4z>VJRxb!zeA}b^o6w=V zaO@a4g1R2%|B24r%||H6^&`rsYx-SaJne&5`QHyId%U2Y#7w3DZxcFvccahCpl%|b zssF>H{Cobkm60O97{05!?j9Y&@BrY`KILy+%3n+=QT{6FzUx)~Ix>w5%|pW9Oijrr zB^0-ekhdTJ+j?uTk|%ervk6}uo_su{A_|F8cG}B9I59>J5h>S_qT;zYTx8lPM zXrLed%tD9a@@BT7C_xz3WfucD79j($gK6Bed=OkM!fMLeZOM|Io^YO-sYa|mP7XKc z!a6%*Qc#m+GULXHVkh0&inR78x4+al|5o$DTkVUV*m&yKnioG;JNd!n@KXQkr`lIP zJG}md&V!$+oc^e}^J1{E=gW^!wnQo;x|t5u5XUFX+?aksH}3XOp^3L-b(!H=wKQfl z>4-bxL+qU}>BL!RBiO=uqA>y6U2&MG0%4bP!PpU3&=V&awn)ezW-^3TY2?O+v#vzd z=pR>W>tx8107&GYY!IYB=yuRKWoZ*40)uODQvuk8dpRP~Wyn}YS3r2HRu>fwJyzHo ztC#AIvTEVJ>RfPLvl@%%_@3v#%F0G#KlQCXvV2 z+{(9h@?GK8b1e$^)3!XOI=;wJ8lIOgMfwOKbJ6UdFZR!KQe=p!cOI4oV7G2Ssjn!) z?Lv!t)-K(7qqrZzeE!xpSCMx^rdCC50uJ*o@eD76_mCDU(a++^FW%8$4ivXPRiK;C z#tPnvDv=>&K5p3fSZydZJe~Adk~_lXk2Tj$2hhsmS>%rZARYiG!n8$<=oZR6RLvqn zvlO|=hG)p!k;=b18`6TwJgK|j2^bC|Bs?1uFA{;NZKQo5$xX8K1S0kl2F~zX^H)^7 z1Vl12Mn4fwiA9P<+}^u^rTiJ!e{yv2H-1{HQy+s`aVo#!RKDs`zJ+1qjPl%^@|q=> z?Ak9rD1w>EA!V0R9fb@h2bJ~#rFu~5NSQ5)8e!cJDhmgd#$h@4DN2rBEm|7uZy%sJ zdssPpQ0cN391xKVFFtli*;K^foh{|$pt5*Sd64Jjuh62>CkjV7m?h+3dm{Y~RD8HV z$RZm7?FI1Bjz*I>Rl>A8!iivx?UDg83sGiyIK%)qSXQR{smuW=u?nR1JUfpG+v?4a zGi}YziBFuCoKPZ6^jJc7aRs-CJ4!OSq3|&Pz-l{a{o?5;T?Hxx4=&!6sn(HWPpjKoCCn$<~ zsfa?vzQpEY>1b;uR+*3`$Gv9JjLb)iLO`?-PDoMiQ0h z(p0)*>|VL4QCvI1Y1smcQ#A2OK~R)>iG4S&bQIN@;hEgpEpzuhsr4uF+s{(H=a=um zJd-DqU%sAQd8E8~JG=Cd+By*|Ez=M6Uk24#qZj|K!1VX9e5{I4R{B!xmiGXp5(>>zGULw4x6Kfx6+8H zl(_MMI9`lt9@>7|xD=>N9(m}N5@i@px`PQ0r%+7%QZi(O@`qy@Lk6eM6J+#*+1ql= zC`XO5ZZYSnVoysqq*a>l>gJ+RT~Ff`SzR;CNwPFCiVIq%12Yp#n(<^MluAONaCwZK&LNVrHn`YLi7*sPasYfm`W2LnGA|+nSuuo8G#oAF8Yl#nZEva-yfX}16hpVv4FB{sTy|yiyC_wDsx5-`I5X6igtK) z7SqGj7{Ry|=dHodxEL^J=8Hfy_B8+q`8e3rM9tPgYz*_E zuq2?(A7%*%#}Xu0p@C#oWeiGy+Df8CzAhk-53|M0aKc3;9>Su5l<79=0rZv}-0xge z#O5Kwp`%J`)dqG@oug0|h^BNe)jJ@(06TJb>q}6bXHY`Ifm4&`>%B~4pjR;Z80K0F zCFG8c4n$49+JZuXNWl$&gOemOMLo;S$WO(#l%Ge0pmZE?jhJ;%vhH4bETZSYdFH{f z@5_%*f$jK&<5-w&PVkv5_14PW!z#dckm*aVe-R*wJccfu?*p`{#1o;3)0FuZbyAt zZW!oB7z<)b%a8P>ICMm_AUVnk07Ud%)~pR1PY>hmY{Q|I!m1}hXPK2Q!Ts(}WlsKXiIO64@oJ)?~bz{Rf@<#F|G21!a*$#c8Sz~cFu-( zp=j)4-tMc)6w6_GF@$J^mky-Y zjY2zJ9wu^~XsQvV&^L+0~GKBYbdpkDiX}6 zfIkD~n&NX9=8*_!z z&I=-Fu|*oxkd%}&9-4I7Iog`Sc!#J%Sc35a(wZv{t^}h(N?p+G;;7>%>JDQ%K2unN zpb9wf{}NOeevFZJF4t+^dq7?`_58F*iCm&}7seQg2rv%og3M18An2Vi|AC4L2;9+9 zMCOM9xL9CeeM9LI;D#0UG8m^QIyeh)9mdh0{}Gc|I6vMeXM_ytl)t?_y6c&}J*Rx! zsl4M<{*hDp$I$N}yi@rNxAFtTE%SojpLZ*N2tz)r{JcZ?o?H22hw@#V+j*r$*Td)h zmP7d}^*{6uQ5{oaDKM`bUR919Rc1Do!&}P1MP&-HC6JCFhwT6gNosz+^eBfeDvp1s z9I*BF3VokxQe`7iHcBj}u4tUmU1%BDbyiP&pLna?#CBWm+^7_00#Uy?3{@8KW#vif zXsbz&p5^sI-N-^I@l1SP?pQLA%z+Oa6hKQ?UyYev2+v5hEj%rLLeYdwqYzV-%HrH5 zOTR3mA~&TZu$0U)6-!|tsP6TH{Px}uuHfDw%$~T(ad4wE4GP~5wo|d&RXUFX@6{GZ z5l#kj22{V_6@B-l(GfeZa$}IMcT$yRV{xO{8lyZf)!SgZNjJ7(A$+xkz$TF`a$p6I z%28%=p&aK?WFhGRPne;0a2a&gPGb=)LxNanl@=>&7e$;LOi%#i+bdX+=_Vn_6E-r? z`}Br@N0E=RM&M6{tGqWvfx-7DlBras|63RuvLwLisnmU19q-dTki*Mk90xw>HzFwaTXUNnD7kjgzB*iwRplH~r1VoG{94tRD zL)Ii^I3wb6BiJIlayoYzhnA1F*WFoJ8kl2B_O^V5Ark>uF8DGHh)2YARvp4vF;_Jp zEWpJ`j%`Kz(-pgo?H~*%puK(2cf+2Gln`JXS4L61SZ)B6>$G`Un;cm7MUrUI<7tQ& zbm`S(u9Yry4BUXT4L#q=R2K=*Lg-?kpDZmQCC)WAgn=n7>BS+KAJ!`FFg19fcmDPC@?+lA$S5zR%FFOJMs15jFRv%78+v6U)!53kq?pe%kEQE7soIW( z@Zu6?AD}uUJVXs&$|f37E_0gV2LjBC0W3IA^#x8+Wl`1h8V(j;z*g!v5x~o~T8#Y# z*pZ{$E0S&DA|SxZ3+4b906WeJ)}9N^hV0P@ObnM6kZh^!Ra*>{Eqbz5zh3a_S^BCj zP4~u$?l{Y@ z0AS}t#>N9t8{4@JnH==$1!mu@!MY^}Od0|MEypy0{lDPdu!$5!2?6hm&40N!xf^hN zaDM7-Xc?+^P}-^dnoIebOZjz|@>_1@`%dMX4#E6?;E>+ymqC7>_b9*bQGV!Fe%G!1 zQ&s`aJ<5-q%6ItZsN4^WY0SKGsHecCF+wohBJ50FsLr%SWq|_LYnBsL6uXw1MITA zN(C#Xe}Z)uX~4qDg~982lSND*1|(=m=njjou<)PHbteiuZd99tKVZY{w{Aa?p^Vn{_mbJceRes$%QG ztT&Y^4H}*Mm%DY&M~RqR*}oA<<{?$+SH_!LoxMjfXw^-^?we+3rQF*n_qWRZ&0KvU znkrkn4~(gWbd`bYSxV?RriGn86%jo1vl+7$FHJVCznNZqkV%|q=cu`PdvNh1@!`JO z-&F^Df%-x5|V!}uD6j4X$$i+CV-ER~KM zhnb}5FSfk7n#9M)4K7XrZHuELus&89`bl>sj1mjqe4j-DLr5AqyhdbQ6d~4+3J&qZ zgUPZSFk3ANo+9OC*^<_(mKUv~R*0HCk5P?vjwZUB&_Sx%gGEF;O56irju0252mIOQfbf33sumY{i)LLwoDk{M05nfo;Gza%SL`X+ zm(}8#x~LYJZ_2cixwesSBT7f>0<{9F=j&^EQKzqP80JVX^tCK*Gc6Szd#b6XJAMq% z2;fLoBZQ1Ik=oqoU;lFN>F>SEB z_D$FgQ7h8Ov)M~bYOX!q#5mF4uUc|!wvcnq1BWn{ z5uV)s)2n{>^cwIEIr9nF7z?_;?h^W)$A7}3Q~8EV`Lwl> zG2L@^uhXu;!8s3%_bi=R@)1ydz&0~MpKVM>v+?l>cM(U*#bA9o)Lfg#dc8P`;J->L zccC*MO}UJcuTWLink816(~uFUF^FWbg@1nVBE6uGD@Q^zAt=X`*b zMcTMzieZ5@O=AK=hC~Tzt;!=H54H=_j?bzkgJckf5HIO6 z2XmuRuBWRUV0$v(G0c9lI838^DRd#&(`G+i8t2jN)K)V%z;KX=U0H;j(er~8tb1`G zn(h_}>@XL6xG042GEHOZtCvRYb01rJ@h8jg`=jNT|EJNNuje-37cT8Yi>rF|C+_Abk5|=KeS;z|PbXk0@$5aNVbp0WG=vV5F@qn=qvpmjR_aMXWSWrU6?mrb_dY4EDH5p1)6V1IudpF*FAW840woRmLKr6B<^e4*U zT#u14cFm|;iCknbN~m?ly~W2{gZ$wa;gB&*3*lK}IAQM6eg*)fSH*nXoKFjuM!wpF zgfD)iV4)q*3p5icIQee0*!acSHCR~645`wu{m%XhPVQCIfu|wm7?F_mm zl|!4#{AZL|QA_fNEew56K-+DU0+msq)SafM5Ku$KI>0^;VjCrYc@VDj$UB<}Xufng zVm86;X+EH6DpF`$y4(cAFCL>rCC?(u8i6pCoDpJB;N;uew|Qrx-6cmXE!!o_=FtvZ zKp>B)qdjCwUzOw|Nzh1IWwE`t(VWBho76k%NXQWqi3gFq{2+qnktY zSnsAwO&Y95p&E)aauUVC71b8@M1evN{RxGikK~I?6+A!j&`X$supUvc#poieEt@JFgnyLOa}Di&Pgv zm0_p~?SOQI*lW$LBX=xtH`#9^V`$d7M+h0Z9$fRh{{dJIwysfh3ve2I7P41j+<>t) zZ#bB5`wBfz4v+MTJKG{+hCsStwuU&FjCD`0<0%YWMvZeOo1D0#G?sC{(N@k!m(Ii| zr(9VKUaI2D*V%NWnr<4Jtu<$w45pHokZYslN|)Ii&XAW1FKSJf9K=8to<}Y%BU~DI ztr!v1p6GL?#UEG<23eb6lc3yb^@_xWHmJZmzZ8s<_`>r&sM&BQn+a+fk=)r< zpfn1WN732{cF_}MFVCQd$h|}h?e=h|%+5RMmfDB#0Aigj?Nm9lfPLzq(7hB(T&R?w z$Y8vYbR=O~b$Bxg(*lfV8ypD>)wML$LW2@rnxusuHlKF|2zg-#v|xCezyE+@#ZLVLQ1t zWE=qLRP1!Nr1}LUgE6uXXi&nMjok6dUKcDTK;Pilq;|)b!*OJ597wAw5Gwq`mVfJ%wn>j3mq1?up@* z&vhUA(&A&kF?sI0i%)&0arv|P)u)OZkLQlQP=DZ)qg%h+dH9|2jdz;+FO%DXXOx$? z_J}-k&}=1NfJc4|i<61KCj>Mk0rZl%@}qO11mUNFOv@N-JM>DVOe%2)OAW~mNHCj_ zKo90cNfL-2nI(zL)~gFSv)uWk)9ZIb&Q~2%KW72^H=x|nMp|GFq(jaC<2I55=62D} zBSkyMyJ&B}hG*dF`3}D|t-MdP?T5j34#*jf6*(y24>I3m^D{8;L1p@mGWSJg3a(x` zz~;&q3YXhnLSdHn0_FZJzcS@It8i2-vZpZ!?H~0Pn$CC*&rDZ5gJ}Z-$Z6!bS{`er zSY?USV8U+P=~}cgg54#lY6jH@lf`-t_9l|1n5@kw(rE1<$!VQioEX)g`1|2)9@BAj z%taFheo#zX`=Tk)R9n+bw)7ofhYhd~yJ)v62T8wzMD^j7ZRDhjTCT&)6e|tXkJR2~ zl|XH#Q>99Wgptx6W`^OT7UIS(kLcA=u!H9yJdiF@a}KmI06rj(LI#;l8{e2wzCJ|L zLhBO}f~&#}y^OzHvJ58p^BwqY#u(YlLk?_Rd=9@>SS)AQ(3(e^$Dh`!<7BC2$HK8-eNqs{rP`Ff+k&cQ%Bb4$UkpWqaODj;b-*RvUQN?=q!D z@0IXwQM^dQONF#StLV0!{ zCg$x3GXi?rGFB37CqW55ireIW^apIGbVmtEB`<#CR?{D!1T9^rpQ1ya=bA}|6bM~n z{J+pi7rXS-q1G+HZyUvKii$no(aG1#*0mHY4g5@7BZv@$FE1v_tLf%8!kAR;C^;G_ z$Qd+{r3o~$x4zc9^Nq=K|7`s9@2ZHKdMKR5{T^Dzm#*Qi94-$*4CWk#)Wze4xfr|dKoIcY_+xB*NMHOzV{`{gn|FYL1jgmQk7|lcbJ(q3*M>WVc^%4gXA>X{0tyJr_8)5vKjtNVHf6b z#?#YUM(wUmtA-?`HG!DbBWR&g$z^}nszaQVBgBFBu%-bbQ}~m> z^g5#%-Y6$Sos^mcoTclFCvJrd3iu=rgj##2vHLXm6U*0(JZYg~DZu2^9Qrq;HPkJL ztf*88CuOD*{}8@UqR2mtl~)%Zc>m@@uXQ&bIrhlg=RWkE;>Il&6v~Fe_|)R%H;`vz zhXOAVDD=6BqOJ8vdm~hvBs#0}u`F?)kjPTeHpBX|lHlq?0mCx{Zrp5ECAW z_5;AnQDTLwi-$u=wK|%WqP?vRjyZE(it|8aDM$`fg<=2fyp{{smq2(|q2n#}J#6|a z3%=TlXntB7!N!UsRpaN!)<#(OOa;n_2^Si{N6<|Xl9g}Z&Fjha2^k4iR_K0$^Q^FZ z3iC0p!!o-AX6TuOPB+6;oJ;{6qqoQG159UJis1H*JFrwGQDhTySa9Ca{hzs4}T^- zdMH|4%hjckO7$KukemXr3sGO4TqqxXqPlUTe)MK;ct)>n#yhxfe!PD6Q;my%Z}Exm zj2{2i@X7D3zw)owKl~@_ANu3bdw;U{^f${p@6ns5V&+DoyqOUC9V&i1-Plewwk_jd zTz~h)5VCy|9^S@w+NPB5fV>q?87I^RsUhG-4Ua!RihV$yT8-^zD2vl_hOG8LndGm< zP_fOWA{$8>b6BLx6l9W-H#S++%ofxm&?VI+iDVIOlh1-I6@;T6J?GF1iPnV8BQ$#` z-|z3<5p`&)oM~FHC2?o)M79s|{{^5ZQMi#I3ZNG(W(K;LVPrbFE|OnVgIo_^X%Q1S zU#9*4v-TEXl9gxPcMXiTR+qcGyL(l;&UBCT^tdnsqYMm#4i;c=82tk5H z2m~TTfEd}3WaGHJ+3a_{-)86gJ*S2ak(F!rtDLKHs=BJC={n~=_w&F1f>cl&$Z%?a z!;1j~OmCB2uHk4=E$U<$sGd)_7BW*@U}8_sjUSVD?Cz4?B$aX4GHpPn-M3TNDdz2a zQPq3ILk6i-^#^)S_(b2rPtf7ZWsk{^_w$TdpXio-g-@297?mv@eIJ&gb*IkPrSgt% zFy)=Os$X`3OV)X-Z0QBOoCB2c0pAE{E!M{XTnb;DV$KrYkgOR}b-6dy{BpO^MkFZ8fnYJm|zz03}u z$>MCYA4Opg$6+v1-l5Il?(2^Ln5V&KL{)#kytj3xH0>1jHZ0TL5gogS%+j2`wDZ z!V9rq6p*MG9FoNk5JO?qs(R0NF z^|B@F{3rBzv*b)^;!RbeN~kgaEpnrSSTPPQ5MTz=OxUT+mEQf>0X>N(x6I6x|Xug zu^Jr#hd<#7WvS|Jcu=9DCzxl)=})n_gK1AV=LTe;<_AH`b8M1sG(&SPmHIS=nprAs zd3N}u*4%lcTd!Po;MNrf?^}Q5x!H@J8rpe_Bfml8ZQ9_y1hHYynp{cR`^?zh@Wi=+ z!Ts^cvm!(L-Q`V|@~+70qj7{_;~$EyzA3ck*3!O5st3PVKjSO4gHQFJ^IY@L)9D=# zWVYWMo;Y708ZiV~mQafzY)i0Z6+q3XGd}7}jJi`|*ou^uju+Euuon;*N_x9>C#?(+ zp7JhLcw%scU8iVhNi)~mRjd<(eQJzN~w}%~Bbss)Mluws3zOghAy5z%G|PDQ%DSEI6v_xIF9q zN!s;Z*Mg7t$)1+Wo{}m&mH$h;c$w^G4m|<03uLCe%=IwgAWjhyjgq7WYv);`J_@ zUmMPJXw9(Pmq94fTe$*?aVppjxxiL8-zHEeaVnCYm)2bptev>9lQC|Og5V6&l#F&4 zwcSecd%V#DXOGiU>dcv3@GbOVBx?tVbDN@tJ_qS4UQ7s0z6hOzf=nP=dx{zcRG|qM z#B~rANxK9f)1IFK&QRN_>Xdpq_BJMSyrfHbyMSfjx=R~vJZ6v7c0L3mA|?QOu6it6 zn7>0;Ho6t=v@zBo&qe7@C|n>j**=5Z|wD}$0gu|Dz`>+B? zIb{5jPkW@c=fTFlFSJhmLT>Bb=`Hsp zw|p|b?zZ6QVQqL?>up)XgSP09EjmnLcfmo7!qb-)c0ZUu^>KUkWZ%@)gXetJ zwc_TfOJ1D5>^t>+4`w#r92`2JbLTY{{4gV33ix&U9+XF5_^@B-&n1wbYdW=E7?%lt z4oo~PT_(IT_Q7PtfC-WeRuyR6Y%v|Dxyi|Nn93$$IC@B!IDrF3@f$8vTNW+>n>@ha!4|&If-^T5Fiq%tN)-9%)KW!kT1XAWUXB0oiD-XotAof#abXCel=I zvEmGaT-|^zp`bxRjgZX2B=Q56aiXnt`1|Yu{&lYP*d5TfqY}~@?H0S2zTHhcM-UAu z;dBJmm1Efo#C2enP(q+C7{Um~V?xYQ1K9s2bMPLM`C2?z4W~-6Y&96eH>NY7%^D10%>)6 zkaS+!zE>;YEBAVMPFWF$WQdx!b(CD z0t`uq`T`Y1Nk~nX7%+`*^)i9QHxdjVTlHvF5hyAG`3{qh!p>T_2bQKI)MN2@V>qj?VwtUa6GY9TmfB17N4?ncx!l$M#cxvR(7p4w>Y4o(u>iqrfOM_I~bE%QN z*6JQpZi_j)NgH2n%y0G&oa!Dr92mPWHhsCbu{Sb)9&LPf`@My2_f&S=pWAj{dea@T z)ij z!k-%e_mB$vkf^9V56OByA?tlywy?^R)zmXvXO1a54s^-r-f6!@(=IU~pODMM2F1Pm z#7iuSkDj^f*!ia&>*{bzA0_S<%Ybwcw|-VGd?26hlYJfC>oVD`vIPp+;<5Mp_Uik@ zNNKuC%}2y4ludTo30c91TnIx_h6-RYv7UA;dg59?aW-jXAg4&w4T(CZA#HQF!McQ5 z8y13gU$--)3g@lmA*DN_vbY3^LUcY@0J+f1D7ftQ@eu25F*nzGBZv-!s00HsVZS4E zN%T}g>_DUkB34E!0IFTY-FrQ0)EOB}X?j#zAu(GnkWXs0lQk3c_@iE5lt7J;G#&+431_OYd^4VJQoR|E!hWHohhphOwwTISsp^qT zC0=NSvyD)ukthtLiv8hKk(UX=3>GwGHbv;lA{HMWbm$6E!B}z1)kDno7s)Up*p47J zQ=*A|IYHdtA1j#N=k;M@qnh0qCP&yyR4InRj$IH`-2aH3Yl8ph19 zKHbtJ#`1G#tJ4j8b1g2Beesqm+3Imd_1PAUy*89H<_4I+S_mCiYtsWgHm}MSRO1Sss;e_Y8mRS|5k;`n=g(oB ztMaA#d~t?N6x%+dFjv>tR;$y)uymM+X(A;MrR;KE73!JVrAe~-+o&jsG-QUOZ+#4sP9$hV}ilrJ0P?9`Q#1KF4Ih_c@fW7T!|q@s8jKYpJUyCl)3?MqA&Qs(?ZTC{-qXloY z=!=%Tk)k&u?mgk6OVs(Iw3S^UDtxgtcG9X-Z{2dyBik=~a{J{^uD;;$m6v{N_^c;~ z4t-(dtS2W9en#hSL7~Cy(L~ggH;)ItyRp~T*zL-#)dt5kfl*I+OKjwzt9pt#vr(T| zrxgtGxG`;r5^x7L@GgtV>E(%Xy6`8p8}hmx)`*lFOo??H0QEE)1DD?Yjqi`(o( zDoc2Q7n^#*ZUhBIp`rI9kP+n(#evox_b>r~gSXSU8SG+hZu1g&3Z<6JvR*T@KbUw) zmY>B9*ZK!{j*7+G;~bLVGl1DAQLo3-{Rgi`JukqV&+%M{S; z_3+S0q>}5%JM#)Ze62-+Jcm4SS{j{MaJGRUC}{L-RDPwN?F{0ok%MWS!T_7ESVl!Qv0L zuLPXAynDgzH0o$n8IMXJ%mdvg9MN=LTZ{dA_l9GGrLTyO!9`)=!l|h>?R|tx%VZzz z6dgX`%rm{Rr#of$3$@guaoLhVi7Ep!1M1$!XV^i+$|VM3B;_47(@t5(odPN1N`Z)p z*h*(m?uqs~!_Z)q$(kx&>cdXW?CgNi4Z31+cbQz;cuAM6!CU4E*ln>1hd0t;w8Dab z+DqTgk_Si)N6lWlm$8W66Jq@fUlCdh9TaDffI}q@f5D7J$UwS}hGc4cur%(DSM^pG zi(cwK!&C4g7E=(Y*r@R0OQ9sX0)i#W^TGzwV-Y-=kQ-Y7Z`g^KdyrWwiP9)i1#3N= zEKU<@bEJ(;q5}u5osJkGc0F+jQ z7*;voyFDp{>X8QBwIwq~fSn07D67}xu*#QD4{or9%N$5u_%k>%g_UOze@S8*jkd(z zCzFV2jlE+YuHvK|1Ja_AYy8xq)X)(OLa;e zCHtuXy58fCFC~y7Qt0!ih@@918~W^!B9QB}c)G1L3*KjLve)4PVsIR`F44KADO`dO8_-60Z0giDuZH^{-nEC zNopj{pLTE5DIxH_2;t^MA0<61whxqdWT$0Mq=Ff58-aI+ilxz$<_>;r-QfpTpZoa@ z7eBW4LtmM_=Eu`l{9yFlugqNdqk9S~&eF$LMn=z|v8Qy~tGoPzr-R{yCoc?7UgRA-8uw$qJc!^pi<(p~M^&ORGRJ5aV3p$AG^Y_)Xu zZdl?y3jP8{8+OD2izC3f00)?XIAbO{UTBbvKSW7~orRhS*Izi;YzQZ*|L7md9guo{ z*wie~NsF-8H#H7?J}`V*_VjN?_B<2b^UdsmZ))Qtzw8W6U1rQ|)47Xeg{#f}KBL#{ z7pf4b{+RZF3NX1tAx`)XCtcfc5>SX5f*?fz4sd1!-~gZ5Loi>TFUu-b0kd645kr$` z=wr1mwE1Am7P-T(@x_G!4%r_#0wFfH_#_1rwbLLw!7A(fmaO+aS=Y_7C7Wd(hh&}C z$d;_I zxslIdals^14Pk&BUVlm-FDrsMrqy)gYUZJ?FkQXEpP;at^Q3TQh%H8#fSC--E5_Wy z@|R&N?Y*24iCvIbaE7F#GZWD+$yZSjAghsNgRF}=oA4h15fu(ISchTfh!bvQdAK+( zh=SskP}gve>7pu9>RH(tT-bFAeG0XabQ?5ooUkZciN?k&%;gid0|4yc>LBWZ=q`jv zfG|KYU^1n2slU{m$X13@#a1F;r?AKK^>k@4QyBd;1HWbO%WBFRD*yN(% z_LFoF6nrNO2%$ygifLR)@;6n{x}`j=lwuv!p}MuQ)?A#n=f^YS+bq!<#4Utu0O`4z z)5zC=xDH+iVkr@^IK0J0su#wujwPy?<@LIfy7aI zdqS1ISiLV+RVHdZo)l&UTINAEM65wwD9c)&vybza{!lJx8`#!anX)s-Asd$pkJubj zIn+<>5)Bk1XfQ&=1VKowB{>?|B*X^CzfP1&SRWlH$%uR<0U@%%ilOGW_j!aIlWNa> zC!|UehY>x=neWqz=$HT!dJZUI^TpkmElY*n9m>0d1vgk3Te!sLiEv-!-Ww^GhPO=b zx^Bby4{W&P%O@ZG-u9b*xbx08wtxJM&DXxrzvCn5M8btpt`3;G3qOHi8Rkr=xQb}J zSQ#V7)#2irNNF}&o{N^(;o=*^xwpC{Qrn&y*d48(6s>PBtT-n%aZnu?4Yc;^lc;_+ z88TaJ#jWPtCPQwkF1yW;+iuKlGiNvIqmxQ!Mdjq*@+eJi&ELpw1Q`zKROZAF4;g^b>Wnht897%>n_ICX@`6bYj>e_KB;YU&UGkD-ZOWK$;yY%fcnXI8G!ZK|b$$S=RGOS?@!# zC9|?+r-|C$F7FE`cttJ!>`Al7RGnvZEx4+C(b;bO{fACDwqfd+^mcLQbOz^xu;+Jv z`OCNGUx4>xuk0s)@C#)lVq&{wQbJ?E+X3Dw=^*fw_xJZtWTJ|o$tYX2QP%l!38)ds z43!yNh1HM{r?WyQG#tBWPYl;hQ>Qa8LK$<(o3+fl)Y)?Kpp#eIm@9ak8G&4pSgQd!QLPN@f-7ItBT zu`bZtMGwmJ!7j0nPrN`?c1*61OspWftGHAIWPeQum!X*4> zAROY+f!7(vcL+$K+Bzbd)F8F7lMJ2I07ahQW<#WkB1vEuq%(`rkI|DE=r*DN&C*EA zEk0v7uSUhmY%$hQM4Kc+(!)C&8~x(HO2c>u^`b^|>)j zgY~H)ZF&^V5j_%9MZUFVMt83xp-K&a5m~B}8icO?tU@matoqV$U$|h%3}|ThE6X+c zNmG4|IzQPLZFGgJTn<3Xl{E0F5hK#1=BzF=VoD8|qcu}~rKvfa+jNeze?2TmZK`Fa z<(33Wy`F?VToG%5XiLPoI4GhQt53 z_rovlzwMQMcmDdoKfJf=u6Op{{`3CrH`dpjooTG{$4U+WoLI}3!n|TdC^sFnceXhe^V|LvoW5qw6Ja;S^xW0XOsnxoNAAV}Sp8xI6?Chqc zOTm1^twVPEV%fzqqEwemOI&w2Gec5g=bk#>RyOs^77a?Rdr-E(BI~$X*7@P~+v(o< z*~dlx!50C&+bH1(68`lrO4JRe;>74A7nxj-bYe36)dr3;@?G z>D6El-fKpKj3tE`oj!G#VlK3e?RyN_g!!|0NaJl5F?qgNYc^b-BF~55Y?XlpwU#jr z=dAD_0KiB7Al%2=kpJXM{n46P{-uF5s1vvtb;6a_z&Yb7cp#4xGt9);PZum>R- zGB(xFsHaABh_+lwF~5)KH&0gAiLR z9Na)df~2Iyk_G>bP*Ii&l;g}LhbEA`nm_R_SOi%xdj zRG8F+Yu3yF({OS0Vz0sY+Y#0!>h#8P77p0~RDt?rLm~BSv?#RM#_XUvoR?GKYcs~` z8e4N#lNmBrSJ=lk8OsxjP*I&3)|Hnlll_*)jD-(}-k%#XSEikE-jb=vosJtzOtF8+U>isR;%SGSbrNluUSAlk6Z{Jhc*@*MzAr|yFx+tlH z-O3(?j_DEs#0C;-ph<&lz=3pxImiWZPAcr2#gHrL(kbtN@G7fA_!6)*M(bn`qHrfv zz0VOeKp$Q8(c*bO??3B{;i>Z~=e=CI=%4e4e-_*GlzZZQ;>)dwBYas)Fh>E`Aro*# zOy~uo!|9FJ!}ctl`gv@n`y5HVKgpR33)jT?5=`o&5v|Qy$_Yo7HXpv}UEv_=x zrXeH~Yl!HwLu+T9PTn7axOQRu5AGAP1x8uVXJkDem-XB$Tee@e?0~G}pseFUS;u9v zMcZYIPL?gcP|Z;ScgeP-v*gY9=M5G==l?1X}B zAO zbL(v`;1P5Rokkn(1PX_r{J~ydQqRiT6;ik;8g^;fSTwW@^kg1e(*Wy3bFd6 zw)4wCWkHmRy?{3y_h8;07cwQF81CubxkrLZZI5S5(M&#;EhkFNLTe)1U=y`HRUN0! z7YA15Dfs;>()G!9g-=%}2+My6AdZ&hfyK&6(^>0w7 zmuGf8QoHEah4Wsioc$eB^_0-S$yO}WM^2K*2F$fpSc>sEWH3P_?lF^D=I*iwG{j_Q zNBaCFU19)Rm|la&Q6`+Iyp-<|wxKTrO{K%?H&-U~)frQBjk!LpN%yOg17I&I%6_uS zz9v1Q$qjeI*=|ictIIu;JL78(dzzb_g_Zi`3V4{x2rAU7I$E$*#!)JPv?ya$q!TzH zEF%sN_GY+*VglN{3P>=PgN3WlFo$JZZmzDg*49Iq2lKIy>^3(yDgA{`1FJwXpw62QZRP>6A-Wnzhb}vtcpY?FYanYva*sA zQQ)A3f)_A(s|Pjr-Yg<7Yf&%rALp1e|{Bm@DA4BbxCmxI`(D9~zwAv+C5FH(d1CzFS^C z?e5>4_7CswzUSSOKK}ZK>t9}e!BM=8Nf-hX+Y1MLBx-maE`*u1e2x$!;{9j z&z8>rdGoBtgOleD9Qkei@>f%5y<9x)dzlT$mv%a{D@@_KEn2gLN|blCH9$aZZ2IET z?)xV%dOpABLC=~?b%ix>2^_kL+(U7%kchcD;~Mr{7D-V>Bt9DRIE zE>R+wZ{k|us7-WPJ-Qg^O`(J2YY(DJ?D4gg$y0J8n`7lshJm2>T(9YuIPcmP$~07f z=3e;Z;Y6%C7h&|~@pBzP?1Q%tYwb2b&6S^cPxFm7!JTp;h_*nL_`nd~+sKo6NPA)7z)( zY^VZN>=!itk}b1b8y;4A3cc0{ zsX)1z13d<8kS(l6`Q=e#0mXnyvB9jS1Tpo~SzT%i9~HHxM|4~b&Hip%1nQ|UIpLuz z0dmsqOjwcwB%jKiFx#n|Jlco0dPmL-j$e?Uy~5qttppTmtS}TudV|?MR=&xWB3|zcmo+gg!dzPZyx|gv zkSfvN>59v7d4+=%>+b_zPSjMHmcF<=ynMf@vf4U+djI*)mbc$+&dnJkb&MSG3V<7` zKuOJ52Xs^+C>cUJE&K-6Vpf85gbf6|4_(+{90HOi{@L>J+vEO7zrR5imKI z^m-z3fC^6~r+XLWT`KZRdqDVco)Om(LDA_$z8NbItsUHW{^;&o_uTm1LwEh|jDL9V zlsn(pb?57wZ+v;?Lr+)dE(}nv(>PJL{PC(gTBfQ?Z9JWP#T%un*L<;tKhea3hRq!n zrQRKF_!5+QLa|39`Q_2#bgVcNDb9rR(~-hVSZphSbOJem9f9x!3#&-q3lwMlg;}lL zuaN*2nscf*jTzxk6nT*q)uZZST@PsxQK}e&YG9s-PM#DJtOFRp!83#y24D+g8J?9Z z0Wgli6vT1{reNI~nAM`?W5$Xy$k@S;7`%qkrbGz~Q!HE{Vl^**v2p3|2hRPnfBc-` zD_^T#{`>p||6IM~7uAb@S~&PjdC#Y#Yp#v2ywu;=ZVuJ8&V)YHADucszUp#yeM4;P zhlkI6Se_VCgc_Q}kRgRWI;&@D<1d)+|WGy3bR^|3~`)lb_N9y>#sY;ua>k%9^X zrq<#vMZ13f+rJ(AAXy~aEwH} zuC88c^}Fwif;~RI{J0@-W#D_?`?+}Pe{{R*s-qfBJG?{22Ymng|NPQRY`=K%#h<_U z!p~m#?oVHM;iupE&Od$o+b@6p>o0wS?HeyW_w4tcefGOw``UM(dFDIc`qmHbyYFGA zbDnGotR%|2&SN&h@JUaeXq6wvls$$%P=b z3WFMJvbHi&9@jZS3>jh05Z)o6PAa@gOER^_Xtmhfz~%vTsrhl{P;^;RLq#|UvutE0 zdK8)H9hg5#O}j`r7Z(WB&`@QZK98_`gw`UgWAFrvCIu`5SsgYbmoCP# zrDU#>%vNE}M6=aQb%Yu&TKB=#`PNDr_`=XksyUf%t;{x7rfSQ>rIB!X%$9803*)#{ z!7cAL`V0)3jgVjwcxH8xrh+iLSW_P#vE?{g`uhkZ(z!Fs_YuJi-YCYYTBERem#nQB zCDSVkuw9|WX9nG?gZA4i+-rqq$LK{+-xscG)BP|l6-;bH6XY|P#du5%eGFLe8Wd7Wr<2oj)D;-uuD5WkNb2KdXRp?cF0V>1g z;P@6>W7=36GnFR+VGPw7U4E3AsiifmudXr=ZZtP(t;fuj<(B4pXKPn}+lNa#uhnIS z`+`|MS)4n#ih;T(`}M_fFdSok1RWee4b#Sf+(>U2%nPYjbDgwkI`9@T5{cO!0cL|_Ch>LCkK)NSTIbd?gd z1BY`Pq%7fe*4^7{0NlfmP7LL_1OUrGTjEK%k%^l@_!O}Opc=#4g)rIK4V%4Jgt(cJ zEGe1H;!sVLrxZiLKAV*CrlEo75&$v-?F&IGN1d`$u+Ock(q~J8;`i&$#!keV=%3-yOf+dE<*)uK03&_MAX! zFqmxm6ZK%C9-xLts~*4^Dm+`1#J!5tx7U4%W*{{nwq!pW)jpV#c9Q+xcq^D5_9n2K z9uLvX=a>6a<3W~_xyA~+|OtcjpF-ic0vwOF$Du`aX@bLDnx76``C99&C)`7a`Y(I6b-EciKXB=< z1`fYeI{6=c{kxpWL5n}@N{^?f&M2(EF}LqiflVLL7Mb|ZxQ4cnZUD|n-4^NzPuA1F z$y%8N|5>VWqEG4d=PZ?JTW%F?Pj>mCK3iDrPUzwzi#p})+CE=~pLym5=^3heUc{0v zJx5e^(X@Y5wq#D$ak^~TVX@)3D|6%MKmW#RRWRN=I=bec`QPmP)o=Ab_^2;`@vBxV zDNf=BXMlC6!RoMid=6j4;GM#fhgO!>9Rw0j82n@`o`A1B?JJD;fwUuABRrAALv7M{gux)5 z1MR5vc5R2EgNT?*fY#!&x;q|r!ib!>3GDcb6>#e411F0r=N zYrG{}cB3`B!H`>FNDNc1O^qFqjUNwfyw5*(mwo(lb!y!*mE(kk0^qWfKeTbe)lQ1WH1eGzXjMsZ{y@QAnD{(SHe_BKWa+jQ`frfw; zccRCWG2{jzBGO~)IUV}f7>W~ef|JV2HAt4~YmAN6mg@5EU_oD*F|}r$qr2_(4ft2U zV>DJ)7z<XVFsLmH&+*nPvahwDyl=QxCA zYDA7IGC`Quu~rfQdzW0qU!qRJ^s=M#3o!0dRc_(9PU(gs64WHeEXH_FMeplHP3DN$PZ^O`})`!pP$_S$#`qCC(#PT zD}i{`AEzy^d1IvR(yLdF*LG3iEAD8;9ihlqz45x#z}Kk%{#aGI7BsjVgtJ4@+-NvE z47L+U4guZxl0(7FxIaA_&MgmSCIjh-Kzf|bpBmMpxig3VLySbn4Rq;@VLb=5xI|@OxWkf)7gPCpB@hiwJ99~Q zambb%)JF>{UjjT_j`I?Zsj2>fbDyf8|D*o1A5Y9)QMvdx^{d}$Uio(Q@;58ze0Su? z%R^WFs(Ime3fpdT<>&b0xS|z9ux3t-`$u+H_C4G<^ASUHy@s&w^|zP@Pw9&dD1&8e z;R~zxLhG`Wrcg$Jy_n(F7FO!2v)OI8mkvIWSbwEyXq&dU!Vqbo7Hofy^TqRtC!Up_ zp|&FnS|U@tCF^@hCVyVA*&!Tu-X!b%l%UNBRGh#&(OS1}#bS|%NZ;On;(zu3fAw4a zk3Z`RUwFFxQJvjHDmm>QKO#^FhgMIJx~(wNoEz|Xk%#jP;MCq&uMPW0M;A26wlD!- zDMo>CsIbR0TA4e;q|b?BMQ>DVY_8 zR4_`-kEV*$c2bs5vpRhclH;yWDwM4zt7Eb9cy@5k9&cI#q+`2PR?-1*#t;iPZ4Aq- z2w*tV(jF_oAm&JcZd0h&5|UeE_+0?e;PfK$)C^u%W`a6QF&7Rw*pe_jU8Y2*Dc)s_FHzVQEEF@Ky{GJb=%I(i*T?K+@iJ+?kLy}5oh>06_`uLJ zcbYu}CN9M97Xpt`zoaeAv-!{%!f_%*6-ReU6289ZL-F#`gmT^96h6Il)YkemRoywh z-O^ZXZLTupC+!34Y?Ud7p2pgYZ3sKQwTbbAkpEGqg2TX>S8@Ut#-PxvQbTn6%G4m! zQotE~aZHmz4ptY&zvVUB$~sMPrFCeVb@E{4?5{R2{aNkOf39Eh^V)?k#n#`d2{ggm zB?(nU5faK)C^yV-acjc(z!;kFP03Qy%^E3FSwJW^@-pQEaODXHy0YxL!j13vTsbD``E;Rdlc~eG3hec5CmDgaa#~xW!@J%&a@Gu)wU!mL;zpG87jKO zR^Xn3@8en!tx@XP*r$^ZrUpZq;YfCb`%s!XKOD-AiaMVd^2GrJf^Iz@kdw2@BS)BV5>d7iGM8=#kXA>uQ(0TDkJA z+L71$FZ!`My$vZ=V$-KQlQ$+-T^|`g$Csb>CK}FoLkDi@ExO9P-J@qX#!rdNeaN@= zVp|J_=eQh%`Y5&Sw@?#Ap=y$A6Qkh^>6G*@ePA4ApAbF(`i2(G(5z4fDAX8*!v z$G^w<;`x4U$CZon4y`@c{-U*737JPUx`1bVQdcifV1fh2@QHtjpAT3CcBu7U~AcdDZmn0@vOP8_4W_oFG_`|+fmNwoK zN*FCpP*auGV6?fM!5I2+f3oHX=jivC4nR{`iX>SCJNoqKgPa+)Gsa@=#3h~FFO};~ z?4Yy7Q&G9NS4XL56KPy%bMWs~=!LpLI-~g;S}cD(t#1Ee{~Pzmox|r}>GS!DCA>X( zUR*C&R=vM3y;Ar{h+8-m<{ND9|HVBA8HqVuCYE-xBi<`+$Nv@SxqeOw)#OIuEqG_n&Ykud{pji1i8C7) zf46b@tJSOCs9*7F|B=_LhoATK?{%ccbg{Y$24bpumMuuLuxOLKq)jf;8b| zJ_dR%*qEe@{(>=B#5@P3hQb@~v$;9g=nd39%o8fgP(=k{o=Z<4i|rUF4HA2F zfHNe8fi?gjW2r|OM_G&nTdMHf^P09WN~HZ_?@517QYXk87i%fF88DM?hldn=_>#gm zQi@w8+8a!ss*XDuwv(M|b+=yEtJiyzmD1GifvwlBJ^!%{*SxUy`X5hU_KlH4pOt*1 zF-tV}Xi4ZJ#zJrj;DJ+VB@=_ZE11Q3QX*Ii?;6R_KuBLjGasRQmvH!K%@YNar^2^@ zcfy&WPFoJWh{Km zgxYxV(ib8NyU&`c8Z!-hu7)#)F_0|pyt{Szulf&tKD*9Od3JWxEvQv@mb3&1z4M|4m4cTbjIpewonTN%)-Cz&e{qbO;5XshQ z=KaweeqVZ)wXUVHtG1XXltodD@e`-~*tJ@UvSiA0jpjk4vU3qM4Gg)T))jHlv>OR)1+ z&X@F?Zn}v-;L)Q;`GY?E;KQj@>i&D~|Hu3P@y?Ik$us}X|BfBI{f^tYzwiG0ELO{V z@4a{9jW_=Er$7Du?|=X5tFQj>r5|dwT0X&OG@g3k)cyPSw;#5@6yC+{Q}=)B7r*+& zYp=cbqwoLdy|>@{?svZX;tMan^wLXz`qQ8I>9?Q%_P_kgzr6bTtD81&+PZb?{sa53 zxcUma!`}Xcn{U1O*=L^BYP5kspkAx@$@}85_%qKuLrLfIio<^_k&Hy5x88c|zJ2?6 z%d^itw+Me`XB5q>DmQ5CU)2|_VD<|`MhlIzwa!o^r@LjUt)g60w^i5_WbvYG_69L( zXlk>gw#u}owvsl!4+~<1tEFkz$YxL)OL>*9G;Qpk^UYpbyx^aT7yrC=$%a*ROu7e&l!I%^$ZF=NzS#+T3toposUop!cI=<#))8*+J=p1xtL?7=j4oCw#}A zT5gC9J1d)#tB!OS+;ZIJjV@t84F^(VRAO3)DNwKqVvlf)SUva~w3M)>iAvA{C4${U`-hJ@_&OvExVS-43^*8ipjolA219=7DJ*xkD9XUPW|`~HXVJ%Fmi5q?reQyvlC)fX;o(ZVGGA(eU^Y2 zE6(sx&U^^2v%19K@PUuzw|!#!M}Bh6v;R`R?6>txepx#BJx6&fIV&GL%Q%(ZukCc^ z;+D@h#Oe2e+p=ZHx#%*PgBQ&Ij_rW7 z@uu(^vXW_ThZaTr6B(dD(95(|f+v=+1jgjb;(~J`Xb^#6+s{**mvwXrin6e&fugA<_KqnJ zp{S%_Qm6s0Ph8TqxQo)=DfP+6KaBso_nv#1o3L~9t+%i=kgEEEe|qJgp8LjgPkiZ# zFMa7t{D^O-{f2dO>rOxI^!EN=-9PjNfuHcoM<08%m@ih#)k>*y>BX0}U-oyu-^Gg; z^L)G7KmGL6fBLsSwLgLTj*dSc8!vtDrBhEm^^q?;!i#Ud<>t?R{* z`sq)7nxA?-0w?4qNchXT7A#)M4iBmA{8ap4!2)r@da^2b^;pv+E3~`1WDBDMYi&jg z;XhinRhL`fw2y7Gj-4cc_xcLk;Of3a(_WoJbEI$180)J6aA==|{%dHnb?oHs@Q`=x zWMg%ms<|P#=d*(L^OMDM3J{*sk6(TVPwnDKEV%(zyy(gJs z@sbYews4P^HUY(Oa00kVup56fpf(Agk+M7luNXPZLTK zsWSvQ+59X>sp@p{g!Hw|H)8v;vV*6#0nQXxc^Jo)(3jmcHG+YrGMv zI(-)?3Or|06e+(DBPs6+Jk0eLgVQg8=Pb;PTsPJ37#7W4q>W<`jbsmJ7I0G)`;f3*~y8kemQd8+pW{?FYLN^ z@}ut!ee~^#+uj>J^4;Xht1fuzon806I&@Xa4D*e)Sh0{r-c$`tS!Id|G;j_ksvf&$*|hvqOcap0mW@ zAxhPdOjhQV?|;m(`PvR-E43fJs5Vag^Fm&n>>$I~IuVhHCig@RV+z6|8rp@T28!iB z!fa88rNzDgncGk^M>{*B@)HaJ$Z50%hPIm1qiR4HH{>Y3cOBp}ui>8-rIjuSJQJ&V zoA94J{yCCg6SW;~gFnEMflXanfW4Pbh+8f{V`ScmjmkvGG<-#aKCrON5cpT}xaU?B} zpBV?};!SgU95Wm-%S%*6JOR;ZG%#Xbj}F?>#pR58E?x9-fh4{h-3LvD9B_(Lxo?s6k(7W`6_x1`XBCTS>Zy4bCW~s z&YwE8S``QJGG({D}P^yV1-{0(o6ANiTBx_9QtOQlnv$!`0!d-=Kg z@|OJCOYF6cn$&XmX1XYbtLf0_cH)N395c;z*8UxdH5ZZb(Y)aK^B(*^Q%B#Nyy4Bp zInNuC%PBbRb7B6}yZY*zdU|@l@|Ca6Kl2~$+;r33y!ZFNf3y99|Gc)h{}t4$Qem%2 z_Y`W`#sLf;7qQNN3bIs$Lw7P>pogj#~Qui zW@6i|jf-9$zy9^1qi+q}^4{p}?~UK~?$oXCj2(T0led1w>(wjX9=hW9L#KZ=Jbs3= zzTVN?VIMl#)_-bb?PbZ6KAt`BL}=sP$=Rc!@q>=Wj>O6%k+nDG_B@u|`4A?|YDkif z5CsR>qrwqZ3k%{VQd~`>D)$uy@E%Cx;UoBXX0Mh3EAWES$O;ZdjU+vzszXO7F4K$| zg^q+E@MK&NY2e#+9!gl3SVaQn2)-rzc%QO*s}(d#k71?~>7 zIGoz{$;yF88oTbYXV>7t?nw+f!WG;JoZ+&AacZIBJ2-qeGfcaV4*(Mu3|)=!iXoE6Tbn5uC<<2@QYz@Z$*Tos5xHH2J9Mjv zuYwN)xq`VW(^ZkpVe?_;+3ktIc*KugSVA#|!{eGj@MK+wS)36*1_~w{#xM3LP--ij z8w?bPEjy$Cs^2ZY{`J=W`!ZYa9=!VP!4JPPdCPnK=YG{**}wO$pEUPBmD~QQ;d8z^ zc-@=h*S|Y?^sV7bUv@MP4xja)Z}layxyww=t;*D}I^1#=rge#7HFm+McSp99^N7WV zsj=QRxYN=)rFG!m_~v`+XFNS|>B~SsV^_afIrR%#PYLL?eeTRx(O>`ixAXh+JNx#L zXDU1IyesCPY45!F;t#(6{o}LCc5UZnfAyO7Lyw2uj(@v4+o`O$>7yr=wXU_NS(&rs7rz<8_eEObGKladL z$NnTr2QQX>Ds#KsKYK;|K1VJ+a$w(q_J_28R4SEtI5;@ie)#s=Z}afLfdf1Qsa{6R zvDxFStj3mH706+;Cfa^}bixTYTzdlm!b1-~#OvGdZQplycb|6ZY3yHr)%8?hJ_Dix z#xgE%(CH1~`pb|MkVU!}$$%Po`|p1HJMJ|a4fi9%TqVVC{_L~Qa^L>UKfL#cd+)vX zCqMbg6<*o&{&Htq$=KT%z}aE45dkBX3SWc zFc!zGwP|SW%ul<$WnFr8Z04fC^x3Y;91c9z#!6RXmSL+Hx#qb9;FdOse?n;b67THY zxm^$D&iwiWRsFViSKR!jd&}n%r+gv3`(gjKPmf&lT72Ilp;gxy3hT|aIqUE?%jn74 z@;X!VB;Ts@Bde}+4D8j%$L+~+b8N&M2PxW>-toEG{x4G7yL3)Vei$Q4GR2_h^*N*X z*x;ED(*~?QIIFJo>nu~cOiO}m=NEvM2NRNKO6WDK5^&Kbv(sz+_< zRa-jcT4|Msa7h?z0FuDN=|rr=4t_OAQu_XsPK;~(2>Dx8HL>ky)OZiuns^H9d{W!fT03UE7W9djP%)Yjg!Vob6t<;W z>tc;X;f@g^1{VVCof)eby+NdrtAT2v$}9!l!VDagm1p>)Aym;>5P&;kHM=(%Ox9A( zRhiWv8ol9-+G&qhc7Al=^v4FSeq;EC0!Vz4|+qQywp!{P}g){qyK` zZx3Dd*5H-D?LYi2eQ{6uq>q_f`@>Tg@4D`5j@DK^GkP@9p&C*MZKT=jOsgUdbA5Ac z{RQUXQ+(s6_V2wrw&@eIS3Ea+!!O5fe0TilJFT<6tn=1r7~AJX`{erD`)_{pdAr>& zUUPzxyHctDYhU}u-@c4z{`1=Y$}4Y5|BzND8C@!IcRJLl|kK6T%xe)p^2ef{fSfBlWu zqcN@*vYwuvKmPHLymFo{!v0fFJ;jdzUgYkCGE@qW?IcvF(-wlB!Skh}xEwtAz=PcX z_IKinsZ=T-c;Eqk)V}e|h7B9O@tk1tAUR}Q#XQz7M!i0x#YM))qD71O(e1b1e%Bp$ z#iFr;ryt}k2Tm0i9pGqw#7_Ix{=hR2o%y{NzDId)Kji+$KmIW<_#F5K$8m0 z!+%4ucI=p3eq7_g>(y#?`(^FV=RdIh@Qyp~Xn$t=;Ro-Zd+s@YM7e(Ii{iz9c=r!4 z|LEo4{Q5UM|M0^P-+TAHzxu_m+VAB)8jbRrFMjch*IaeY{F9*W{HfcYIsYU(Kl<^H zxaTT%&N=6>BU*7Ro&s4Q6#m+{7Mv*kop~dlF#pCYue_3dR$-iX5Ky6x8&l0rTUhRj z6aS%3PiO!w^AoP29qz^k*U(Pa^y%u-8WgX>C_Xo$BcZ;sT%8{=mM1ZOakbW)D^u~Q zJtMo0nk(BeWzt1!3_xMFt23ke(h3w+xJtr}*A^zsr8VBki&$%KxbgSZ3x7Oy>w7b| zy*G37JG=kky^#xE*!_uD3%ehmyy5i?cf2)o@wY?EFLRFUw@vPKtvS;?e3Ez7IsT28 zSNGrFzwaM(snwRmur*qDmgX`$KAAuCjmCLjR|YD~?0OwRT!QVTaZ|h^e0Va0x_G}T zRPnYpcn8*ZyW{XEfbk8L)#}2Gy?=|fx*Ah`YX+asS$B1_yLFO(Xm@ycm$$rD=WiJO z4ZXXpb)+!{?38dD8d?;`^s(^0@izdjT*y5$R%kQgVFx>s#-Zytza59+?p{Q!i*T*! zgg>T+J#KVGG4l1~rc+aA#+IKGoj8P^qC+PNJ5)*ZvxJxNIS^(rIwNVzHNGdj_Gs?Z zuP1jukluJ}Z1{9O!R9A@HI5Z6zFsohNYl%XKF$=gWT*oE&FsqCz0@evywUWxDVG$(2d|~;k*VuxtWIwtU#tLxE z?Ah7Tt6nYdez36V+SY-`hp+g}*bQ$@edMj>AAN23+Fy)Z`ObKd{i@0tu|-F^S>`@P@y&2N6= zGtWFTnMCG(?z!&!zOH??v9%6~^E@(|Y(fga>}Tl6L!r01R~UF!8M16EejHqPx45Zx z$~x}}2fT|8`4#OIPCpyd*{|&ElQ-VA<7Is{`mdM_^@w5n?%i(|7S`k=19o5SYC;b> zM<`i>aYleuq#34Z{P(sU!`83gNnY)X<>t+Yn$!Q%phjsrPn$?fY^nUEc_?N%F zJaPO4%)6DP)!Mad?d|Oo5)!B@eEvmr*UML6;4>Fyvyu2J+>T1|FHa21xU+XobyYKY#w5+70jz zFf=fv+Sva4-~T>y_Kart_3PJ~kHD9G^Y+c&y?b%==GB{;{tFj|Z%osJ2F853i#9+N z9aIjI!gjuTc5Z-Zs9`T&zW8$FhqoW_KZGh;Lu7`7eHW?YsKy0HkcY?$d8*M9X`&o% z!2*;f*-CS{+4C9UQIr2PaP!b~~4MdSNK^#g}?IcMaNs~NND|q=$&aqWAK{B9t zYriNOKg!%+X&D%2D@n6g6xzu0XrZ|d$}+pKLYuIPjJAix-ETwdZ^E|6uTjNy^_TDO zk86Egee`egx!0qYzR%t~n7rswV$&_JZPo* z=cl_VXG>=MD4cawJnLr*PdVx=;2#2Jhvo<<;*k;$nqmt-8Tq=wm7xF)JV@4lVJNe* zljUN@afzMk5IxaBIoU0)#yhFeBeBslc@Z~rrGHMRYxEqpc#2cV6o;Tv7jdbTTcoj# zyRikN50P7CIu@7=(!(ePD0LY!Rj@`{dmVkXmLKS45KA>Br5}*1X>CtZutJgm>XtMI z6tXc~_^1+b{7jbKU20Vj5#tPkpl^k94HED{7C^L^3I`Tga9-W zo>2;c*Ko*ekNEg!>M`@)(( z$eTV$>Ru?CKS=9th1Hz4Q_kh(cUX#YSs~dp-*6{sik&2#9#LY6*orWo9z8j-@my5< ztH|~~TqnAtC%o;0Y^f@8Wq(-nQ`e}PF*?IOo90QR8h(C4@?jZaLGs3cKt_8ip@X%8 z&}}BPH&V~hg$qx=JnMgJ+o{3P(U}PeMccL=`SRTV+@?O_KllHi_B^=vr>DMiStr|` zE#M1&`teUTA0LM+|MrjHKD_$?tB&2JOP8W&{rdGH(J-ojtUUBknHW@p2X-+MEPM;;xrRSAC%9)u=x7=;wap5Y7F&t^78Vq3pxSGbcj~zQUA)cIuG@ochcq{&F%rWNW^OqR2X4M+Bfwz$35g0*{lz|!P zw0{ngy1ToVm6d6(hDLk)ViYcck`dabAZbLl!)PQd(VgJvIz<#Qf(z|J#@UAE*vco+ zBd0KvDpAcBkTJu^86rv|(7)S-<t%jae&h$2MJ+)!ock@-npkHo(>B6@BsD{ZkKpid+1k_SD}a z=iiK3-ka2|QZzh`ZF;7tIvP~EOHlQbqU8w^;d0h}l-Hl1vg@N)Za07Y2Iu$%aN5J_ zu7%Xzl*~M9&5eSYGC?UsfXr49Zsg<*f*@$w(~v6f>JLJA8WgO+mcx@-BIgI$JK=f2 zV{JkU9h8+WP^pV=bxm&fOj#O`yCyKV(>;2gW5{$)NQHxVvZJiVMLNTp6AJEfJp^9W zIlv@|kg)~WK4Isv!ZoFcCg9Serh~L;$g8yFfE3zMlxoECHgoa=0kWNkz*`&_C{Iqz zoEVoiMVVdYADQbahyf*wA;ZCtZl?p*T##L>#m>x}eJs3%+B9&Ga`o7rK52_Q!b^1x z!8S|>F)tXs7*1SUdpD4Gk!9V`Dz#ljK^rVn8ea z(vUh(;PQe_x;KP(;eo^KW3od&GdO#ZVTI~N{66sHNx?5vxRC6Bq{KYwwC3#Odq zO+4v0@tEJFlic#}e9F~hCLHDEt+iK7v~tCF#s-{$(c|!X}T=F{Yjf>M_K2f zwYI6dN#1xJ5XbSP99b^@ypeK)ei-nbJ9jFhl<{%#)G%cFQP-#9s_^;Go;|yK*>W42 z4F%0^XDUPgu0G;I~+K`1(EyxuYdoGI`rWF zgL6Nh!>fmzo7-^Dg9jM%#figBCnqQL_kZdi8XEfY=<8pH-)N}LlgCd|_e{OK;2x-5 zD(M|#qNAhHgZb{udSq%a($R4UQ_nyD`A^M9ynOkRx&pP;^#A?u!x%o*gQLdA#+Xbo zVWEeD?)M+qk2aU9{*NQA`X4_6`ZcH#+6W>eNdRxtki^wvA`_Jkhd)pdghU7kp;|$w zl^4s9uAMSnsOCZ5C;MEeNd8ZaJr>1$uXv!89mdzc)N1Zb7{>DU<;A8H$>H!VA!ME`w~{E z(mEaoP5&ut`Ger9pAuL0#&y1v)jbTIbyG6!Owjc6;YgF~=u@=4O>B88n0Pd^?Y?Kh z-nh0`vIUPMbvJ@*u1l&f22DL_;}_=;2<9Je=&>?EV_<$xzdq`uD8DAVfwkW~C z0Yo}dlA> zV-LR_QB+hX!M8^|6s|Zz7(lmB*Jkb`hU*S<4Fn#KGyZ;1%!rI){2-`O#{_}N4)X#? z!wi5IIr);8f@n3{-PRRy15mE9v-1wmYB-%f=On1+-Gb7*q9*4pxu4zLo7FX#yMAEY zmVxox28y-}7H%Fa+A>hKePHsg{>i)g%6ImZZ0pV6_`Yz{$8j6pB($9iul*)u$|iRB z6wizWps+|@^n+m1R%|Qkt#? zWVNUz^T=lePt($+tBj3J(I&K~lcc`-YY4q1#F#WftDMj(BXp*y*Xbmsj7~L4I&*Dz*lub<7b~12mo~yNC>=< zk?NoW1)IEiNyaO2bl0w3l)(uN4aF`}+NnDMW{zFTCBAt1B5WFR4)MPXnI{){o*Bn) zj1lr`M!=Ko=;%Q7^Uj?+)Mw!el>aFdkncoDXnFGF$(8F@D6ANqOyK3CqqK_c1n(U} zPGqXNdZ9iSFcGzjS%9i2!7dKHdGiKdJ$2~%HL}_lr9;o2K0^LYe$S5||11FpsqZyE% zk*?}fVM?l-TX*Q&L+C$p^vL!d+tHxTLT1jvZw^x9QGbfS>nNl>*tr-m+)#B3Yme9g zN^wmbxyJ4y8*#Q@dMh_`sc6-g5k@y)lwDla6= zJ0Cdpc+wh`yx|p$c}mM;|B{pAyWa69pGsQsF@EVQ<-7;sFxt~j1XcVL+o1|?{itku z7&-HlPu{kiwp*SBd!m>0NL$_s=iC#_xD+<)97bAsDj)#l5FAa4YeRy81Gy_1UNNi! zBA|`J3d!(L7Mr?=7$F&SSspWTyrnROn>n8yHH{NjA?m9YKEu{SbDTf ztxVYN`YcyyltA2&EW+YPTOl4D7z43yx+ofKY=+K4TR#O#fOQ|D=YcVZXqbBQ zO}PSFvC={mYZ0KJ31Y|_mZW;5&G$^Nh1iz0uS^d>iUq^k(U%R|?hiq*=| zgGSbjfJ2+>1Zq2uCrZ14Xl@a=5jw1Y7Qgb&cJ1&4zP!wsQQc>AdHRpUASAOS;q z3~(DD?I?rNL+*sNy$#4kUHA@u3J1uqTe1-juy*p(w*YgLgQ<-p%P-0)I4dA^e#qo+ zgC=a`l^hG6cR#ZES$N~i@TTYCWaGJF(d)#{p0sXN%Ic44t9vp!KPI*Rn!e;^cIUg~ z#n0p0?$6=T6jF3QmIT%NyapR z9+aJ0&}9DJD4>~9UxzyM+t6>+HJ?9w4#ybn=@rwl zMa+~MFgP?wHK;8T1#uK@D&vI$=h1`Z%#Xu3IkiiDO^l>o%1TOx(Rht**ZAQWfBDK~ z>iU#zFD)&_F5U~UrRGPf2fG+d6|_>Hf-O3)Ub;#hqBZ0r#!vQ9 zRkk77w&F}XX%-ASOEJkIsm4w@)g!aft!Q(?n!d1x2Z5D8iK@>b;UT#GddlX3xD|b= z8~URg?}p5}6t&=v|CFB-$xzpW!1B|)(&OI6`(-uPquNOdsmMjI1m! z7P}Ol{72cs=fTxi1e1>hPdQ@i9RpQOQz)uImDwju^D9~_oOGB!`J`~#8FBR)|I&lVz6;1)?I0?ndnK^> z8TR4%$g8n(lUN}d>)-<`r)%p3;U0LWaM4kM2YGZeN0i+;gSQ+!W+WRb6r&(+1$Jl@ zd~w6AgHi=~3+SRW&}Qm6^OzC@`{Y&ukt9{VcQ8$yfEOH_kPMnQ5t4{D;uM+)yUEP( zY#K20zzpxyIYxpcjx@u-0@ATGJtHe9;#oQIEWyCf_AqhqLW(IgZQ;5jz-=eVu)*tz zB*j{s<`g-}zj#w<-8IRKixD-KJu}w}#%<(gc8kis)w85&L!Hnwkmka*X1jxu-HO4n zWw~OdJ9yY}ype@&!F07?yXu2oSuIqAcLXaJ9uRe!i!W#&^hxL39@1=MNDu~LQwvg0 z8KF|(McyJC&tO|GG21Uv*MwmK>P07>EmUdfAggggvXHZ{B4W;u%C^_BoqbWud*sM( zU!jUz-7j0NLZW-*s=n~WuVo!Qk<0sH)~I4vA~e&Blq$vYSE4!hg63Wq)LfO!y&K;2 zEV$vRy!CZN`{S4;?-k46gtxtxFMb=*@h*D#$MD5(N0BvY9?F*1o5olcBSAVwz> zqvMIuG3u?77>yO}Xkv7Px(y{JDDeRlLK2-2hzRkOoY2`sT}nsK(9pyR9y+!A;>8Qx z723d3jA?9CqUqbRM}Rm5&iUtnAdEj8PE^ffBxT!KpV4CqC0M&|?Z5uxUvY79>TAL) z1Xqa;IM1OO2kuApPfGmz|NA#izj^B>^|^cY?U9Aa8W%QdYm@P7q+z2pr+Q{JRe}Tt zCNMaGG=QYLv3D}Jrh{w`!gUr%%zK76eSGqm*rjJ58OA?O$#CXTO~aIsmt)t^f)G>J;o! z$u`)1^cdXBSI`p^6N6pKOCKC0rsGX}pnc{vIjvB;)D|e& zx~_Hj!I6adWk21Hj?TiOLPWQzb2UdXrAnj{YPWvwe54-fS}=_q{ZLeBXzzn8bXstd zZ_Z-Dv>(HpUP$X7hR%Ny+4NpE|AlDUk4_O)rVavAd%mNj*d=AYf7wd;oL@3m4a6<` z7_;P^qVc&;{%Y7R6ra)+#jNmRhlr_8@w2?ftq{%pF{14mo?itLmGP*q>`Uw(i0x7( zbgSam^e3(z$l5-Xxos$A!$9h$!Njh?q^X5mx}gYS<8EQE4IC1O&_HVZ{*D% z6pMSXhAw;~o&Q`u|54biJD%gWOUe&fc`H#Y5B3ssCr@i{fdyA$>J@6`ue1{;fSQIO zN)Z(`5SUM_?sn+4?u116met~x85e=}s(Rq5+_Eh#z-DOgiie+bQk5evMUq~tg9 z>b*itxpMo+33d?^y^7H>1e#8iK@;d4~jVDhA@WB30mPwN;sk7k2>JmHj zh+|)o6{aS{DCp=xSr3w_P{a;ZH$sWgLF76{M2ryhVCKcgI#I%;ZSS~`JrII(>A@Bv%O3q`_= zy6^W%lgJmGQ{SJ$E(L4DvX4ZqtDcFqOQ5x{WUM8VN^YkRk6X8IQC9}`f>f5;n%eYq z5<;OMAY6nx3Uml`0bnz;vv>T`w&PZ*&z)aCA0uJg!P$yrNy@g5FC72x{~%`&>LP~@ z9YQi8+Q?(UHZ>&`TXC=$F9>L8{Ay}Ew*UO?pV%Voi=))?^`5WMgN54t?z`bU8H&J} z%Jad|b=~Wz0cZoFp~hoEX>Dl*KY)*y4<;-G6wt5cn*rRn6yvdn%p7ddK7E>exdWn3 zT?Z2-cCk>q)OOXXRWoMHz&CpE=mB!(K@>y9ozqg&P>Jy3`HS+2WJvcfXMvsIkBg8F zybg3)E!{-OSG4etcT-k#OSTJ3kMPTm2qu0boP10$`6PeJ@qm&8J~>^SxO#`Ec^+vi zcqLn1(ieH=ZWc^E#hZMTSAN8Q(sAG7ZM2YLc4QGFyp$1LMUR=rNT_zpTgjh%EV%L) z(e#VLX_v*-*MqCCimES*W?hxcx)w6)R#@#_`P|#`dACAlUzg3fDV=>yQhgagG|{y4 zLDSC(rk@W&*=f}!QRVsI%Jck+a{(1UiK{R8mz@-r9~YDz<`wJ;9KT7J*98R!D<`g% zqpLaSN?g25IXK?{cl-esw93qP_ zBiQ>Z7(Ssimmp8YM31=HR@@jScs2cFA*V}XJ|W5YMuA0LoU~@w?BzkzPlVRqPFU89 z*POT|A0;(cLu)UJXI_YGxDUENFf^i0+>r|k8X?<*&+-Ulxd))Sis8zmJ98P%K6XxE z{Pv(ZaiJz-?IWhS2ihRh(%FyW;qU0qMG`)eLLs83YeCb8Y6IxSp!UUfcM&Pg9Q~1} zO7jYL5M*1jh1M>7#{ebW6-sCR7EXMyzMHv9;yT~NcJ;?^P^Io1O5Cc-+%uSWU?^wv z>!hxyv7JvMJAaK^^*Uo)Pu}67{BH-w9~;Ww{ULkP>*!_A6-$3j?pCF4RK;!SiEMuo zzq&VdlPYOzZ}yIX^gV+~J5*WwhYG&!pKx@r=i&3nbhD5^H0?)M#C^btMH@ER zz|slPa5dyU?A2@TM1wpda~quiE~qa+rB5ThL{rX#3jvPPvUIR<2TiMwKGPMp-QB}o z^M$Ev!aM?GfFn%>XDN_p{sPislM7g448R=BfNiI<97&!5wcoDEFmG;dR*xD1+8Ee& z>gz;CL{guEL%2`GAF&IZr8+lm+(`9c ziyqC)5)u-EUBLC!(c0N$-X@kW2VcK_y`#OO`}3REm*r6`7Aqqw1A|qcNXQE(f~E!y zgaD{|0kr*ie$*lLg~<(Sm#7{lgNf`W4u^wWEUG6tDH#ncaNseKeOWbt6Cd1spt%Ts z+0nYjhU@@(R1rHkQ<~nStUr_7bT47iqqx>bsmtG`uINcw*^|8NU2OBixJCC8+n*$L zyiV)v$z9c(xl)zBsy}^oU)r+wfHVPYhE{&ZiJdJjUZ1ewe9VH=qG{j8x7-K#nYOAo zV+|r@z1dwonQMCT*7oIMUEiC9&NaO`-5*IHbY)M{viB*=KO`-Eo3!M0(vp`6txppc zJ&S938sGdRX8xV1x@*eWzsRQ_mrUF*8n-PdcP%fi-8Zq$Goso(tkf+ygXzhqyZYET zqxjuH2XFz))yhX;%;6%{pDu`Yk0`c*I3V10kl_R;+XX}clx9TbJH?l?6chXlmwM)} zlFm98Qh!G>=Vo|4{Pz2T%Cmu}ph1Fk#tJv(4Ew+&OHQDPy%&O&06kDOW8lm)g+8nU zsUWY<^nik!AxMcmg22P0=jd%KNw$j^XD!VFR7DFfU?M9k}&DYk&*TFl;)i=nMD|F$CuyQ>4E1 zm?)inErI+noNd^iwve9&8c*pOTOf{1gU+(P6)AF!tQaI=nzCF;DrQTDYe<@tAd&7S z27#)NJm1DW(u^Z#1Y|P&lPtXy37zlb*Y;BKY=ftJT1wRTZPPi5y zge#J^{%yw2fxJUQB}WJRD)x(Kp5xEF&Z|5h*>F8+{j;ot1LF?&k3TRZtNDR9ez$A* z)UgI+NL0<}>q{7XOXxOz_S0-vi_uYz^}hpMJk zQTIG<+&Jvsy?Yl~F6bez1K|&bvzH>z&M(~9iHrIgN`jUek1a3?P4*ymDGY=tPh_}*+7UeM;OwPrJ75QDB;~hb7^1FP+F*$xZ}|4@KLKC3CAjVgXl~lL z2}k8}InG784rsVg8%tdWTPjh9+J)D>Wy=<-ZEbChcqP?FwG-8#JZcIs*Sx$SWf7!{ zngUe{e%DMxI58z9<>L8^8R;2ywRPCV%~01F{QI!qUQ<(p{_gH>iZB7~eFw-l6pYj? zR6!GVk(G)=)I!BCz(s}>BV+{ODDwaDl@T1#R1KqZ+s183??^+)@t5_{qFg@yv7~&Ek1?Jv5=bEg6Wq7C!Y?Ocq(A>Sup8|XWb2%`&c^v zNyyxXqFJ}Zb8d+0Zi;4~b4p$06gAsUUga1yk2h|2P{p~h`iHWG&%&EuMYp~WUkJg4 z#}NykE1G^)w7x{JOxExm884BI&mtS1M>jo-YIqb`e@9V&GrHkUSnU->!#!o=BW2@b zW#a?stV^<4=R+#L51oEeUU6Jnx;LnBy&!*yAgzNJKhr0CyrrX`g}pn}Z_QXPWUe*J z-g&_Q6f)FQOvoA|jur#4+rn13_5`9}QA177kHkb2QPC6>GhWC7U-;*33m>3*S*=>$q+ zOA+1HjnHToXkZ&g&T!ajs;FVg;g^BbV$`% z>CB7bYP^7j7J?L#S>d%ef6%~^SS((X^Z zs+)5z4z%1J%HH=W@8Cf3-l4FX6VtccTYLSt=&BnT9rwqtdzrQFyrtca|-!+uKV<>p)iIVki$8GBkTkxdi@~7GhL%9csviA3lJN!vp^=-z= zJB1xP4XmA!pN!HFLTfsqzmZI0*KJq(?Kx_{y_Cdc$W;xzLk{~7*B#~^K0KUuG+^E< z3B67{Sssqd5<>feJTJn?hw)FMhgx>;KKA(;MIe$-b&eqHbcwI^h$H&MF$3b1A@Q9d zaoCVJVnCcUAdcz~J4ceFF-F8F7YjzmJVJ{puKN!4{yA5CuY&B=%ZxoGa~%LbLlQczHUPVmE{auXvzzW=y> z-Fj3Bsm}wvGX~7t)`5{`t^#A08(6B)UsggUd;Ies!@ev8ZE)_z>F6J!kqJeb%FOem5Mn;lv zG2*ZYTSe=KW(J_Nyx`30=BB{F)yZS>^XP;t4 zzie4==n~YAypLMdt6bd|zOpxLS)Y7)Uqt6e#fqMYj-IgQH`1n8;`%3onYV;9Z;9vL zk3>MN?TxJceOT)|LEXc^>TCX07x-1@1r=v~OTO_b*y5ep>7CHx6|A{4 z94}jrmkAWy?A=UVeZiDs?atR@y0Ami9YS;XsgoT9$>v^iOJN)>D8U|`;rULAa*w20 z!g0&PN;bz$+aELI+o)M5<i!jCe(41lgT`4aW+d{K$m2o z_>mQsWfPof2F-L{oTYz)5jWOGl4l=Y&W@T9P`phv^^|nRFM_gzffKf3N)jS%yW%9T zXrEu^Vh%rz?i=f@oXn6Q)SCigH2Cc{VcCYRLhx1M{(<};d7CB6vI>avPH*(cYIV!* z2%fx6TJg1H>V9SY<;eOQ(e>9N=iOA!Ih(TJv}0;p+`^l2i|)iUJyJB@ify?c-S{M? z=~?2ES4kajlb5`UZh4Z>@gfaLCQIL@EPKxYt0bbjt^sUNjd=>-qQhu&e1vSz0Jev} zy*m#PRdA`?@#iJWyeZ#C0o27w8p&FyDmKN&~4cDdk{f zV-IQ?Glnx#iL4yFN&OT@o}Z$O>7Q=M3bEy8umW@J#HF!odXu*drfgNE?;1!29=>%T zc~gI2&i3g$pS1ik5HkB#*OPxVULH!>Gnjn{fXtw8$)>3ruB^WFNm_9&z3p1viNED; z?e$A)-FpAG@(pi-XWX2%?@h_KJ=q8QvJVXA>>d(NJGlJD-{xQWTU6VVU46gJxunWE z^eOM#Pr3VsMAHt>KlLhqaksXKEglDQ(FW4Kg3xOvSBU6o!EZ+_wMgx~!-1cqcHQB( zQ#muR>TudCJ_GM)*ATib#8)1;Qhn9$dSl{Dw5R37{@&5>yT0BZiFWtz52-&4n-N;X zA_L-*9qcH4-#6dI+i0|}?Z}f=oN03okePUE7>9>ZItJo*8QP-!hNdR3KGMFmCF0HEa-&fXUM2oU(2aCl=a=-@@C4t;qw$~2)LkUOsP z>eZ`(!2x89WMyTc6Sf_kP7IExoxQUq%?>>6=mZtH<_gpWzuamL<>%+4jacfR&}Nb( zUl+uTnqeE(Zus(aO`95EZDoyGA=TL-ds4Q78mkhnz^v%U|JFC@$)Y#fN&08Yq$&_c$n?MI9? zdZj9*TLtecW7|-|`hobafrKtq+^YU~G9wN}i@%00d@QZK8ZzT2QRyB*-ZDpjCCCpQ zJp&xveVH!ah}Kzq1nNMW&s)e2jsjgFLy|z3q}%cpPC@Zr%3?cFJR+)0QC3iX6N=N_ zlV%CVb%{#1@=NxMtImjLUqvduc;=W2Y3Op!G=5fhixJ(kox64%|wdzQ5Bp=8!QTaGVQL{YKAuru8PuyybfLb-AIr=9$@De!zs5Y9eSo~gz|Iqb=XAMG$whRW9e_OKU*NOW-$`(9X^ZXyB$9q$D4W;iL zOxoHLPTZTQv0%U49CF0osm zIBq~300Lu3oHQhk84}-qHtgRR666ZtU5^Z{{xFhc12ZQ^0cM8-k3gzAeoC5mG+^F^ zq+?Iw?U-3y3Br~b9ZBeu764WgG>epTj>rG|Q{NXAk~VpD=W1|*0rG8YYf}&V?>4|y zcI?=J)4w_V4aOmt67BkV_0&1A?PHD2%{+yc+zOuC*-qppEM`t|j(;@5t%^3yCVi32Iti^x1L%`r)($Q$n#YkKY?>|(SSkwPyLu1>A z3rL5LsmXZB-$8RH>KCOy^$dRzB-MO*LAd4k;#3d7F*J~Xitw&x3|^_Id4%eTj)_Ln zJCntvQk$X_QGnNQ$c}DD1r$c>7+d)#^CoQNSNtrReKBCl5BynIqgVGQc0Ug+?9ef# zyL-Bagi1&2ntEq7C3Zi_`FbF#`F23%&jC};@MoMB)?b$_JZC4$!B2-919`HUYdEiH zd-RI?1qX*RcMhg*c^9?(p``I~@VpDMw%d98@G?FWy{S*J=%JwI3V-%_0c>gGuTdRO z#j`H*t1g7iyB53TF;XLt+mN|=P}Y1~Tz^~Aa659r?S#&^D0+%)dJ#VVcF6RTLB(60 z1Ck3LpR)H3rf(lg-8zuEaR7k; z#q1Nld28Ksm-EWE`Apsu-f+Qv+y=M2HPOv4;+FPBFYOU8yc4&$FKt~vnaBZ(%i6o~ z%T>{kgP%2q_pOpg$+kLDZy|LPGe6dp5GUS%y z!*b(UgTL3z78-w6OjkVhSRD>5jfaBRZSyAI9=gdP6wFRmSvG*m=b;yyG0B7KF9+Ms)T^ts1~fTy(c8 zs#}F=-79Bf_}t48^Y6QsU5Z=$Ds@8-yo=cN{b7q$u4yYHtG|n1bl0Qsn6&zA$h7ma zsw;F!Z9(Ug@ail4sb^yAuO)W%#BLsp+1Q)7X}~*ocUI@C==PWV8TX2J;vL~*?1uNs z4FmZ4?sWl!Ms4AdEkjv&c<+MH zF!iwTXaIPhLFjG317&3<&s6@dH@Xt|x!#CnCR)v&tYZ~Lzh_1djUDZ-OLUKSUDy@#DuJQDHHME8_8x4%cSFB!adY@}Oh2K?pMf z{MAUC{EU8p@^Ra?Z5Z6Ph@1#ug^(wyu{jC2ews98oPlU=@idDhHXEiEm!w&Z&gY&%L*QIzWF;>mPyHn+5*Br~Xj zAbb`DXrO_GBGIMV*y407xH33|$y$30roN@aSVL=QCXNCxE_k`e;CtzS=yi;q38bra ztsD((I3TBdc6!Dr z|ECPT25+YVub2zQ8iUpz@~pmNjcm1zY(U!xRa1Qs60&?u8C*jfH!TAT>KDdWc=7bb zmldqI2e|Rn6h?lvk)%lL=NtRuU;J-szCL;>E;8z8!7q$PWO!tDW;Pn@*RIFcL6&1o z-M*w{cZ;{b8^7g^xb}WDT<8^#_yr4fjm@P}Dc*oajnVZ^u1#8fKW+O!{>m50Ess(b zJ(_c*Us8Wty5Is^HXhFluzmb89`YRNlmp3YUT5tb$l5trw6}ly$xo4uzfRn(ifFh8 zi=DE)4{zde3-5+jpHFRhkiO(uB(V1d*F!6R3YmU3Yx(ogIoGnc52SA!NMEbU?EY0a z{an)0Uxkyti*J8{u%NR2Lv+VG*_^9_l6{sg5>q+{$$MrtY(wC^mUbpcrM6~)830U= z<~ELY++h2Nbb3f4CoGK>k^-_~m#7kY)C7;5xo%l)(wWDi7Tye>{~)UMW%SZsm`&u# zq^uhRB|^sbp>f|1|_0<*~K-S`Eb<2Jb_wb}+3cqUcYigTEeC3eaR$JB+M#Tz8GXB7+X3Z|VC&bT0~ zzM@=$^lw#UM{gt&yqljRA4WR+a>9z|>6=w48wZls_a}7sC3bzt+N?_7IuMUHqprTh z)jjc@Ju%BZA|DmD9V-kwf)u2AN2L|H`j9JvryOr{ItMfh2%e&$Z)yXo87n6bx{I&9 zhmh_fu=k1JE5}6@%wYM7!GsU)N^tCua%M2^@Y_+V3mI`6mKodK!d1eHuJ%@zbAn1Z zl1eA(OczcJSK zyGvU7JX4niPuNwk^s#%!9%f{{OWeAs+PfUt+!#c_XPxy(-EAwGABA}tlkXP14EA_u zbQi6BmeT%f$c)R=c7BXo*&|=wCj*~MYp-LzGLMK1mJEzR}*kRk@#>2LwXC9%|go|YOo}p?z6w--BNcY2=4?XXC za3|P>+>JTj3&DWx?8bE9Sc7~+7qkQ9NGgY1bHiv*us<4@7qA6@54%pPI2l^%+c+86 zd6+Pv{{@X6XQ*0ho3o7U+_g;UdX_953zojEn<3N3!~s%M0mk;;y5@G;Cf4K}M9pQG z&cOYSdH{VR&~1&@H$^QT3h^K@W)m1`;vQrUC3h#TT4;=CX5gMSzY*@De4TwnkC09hx z`>uG~lge)gB=ep`tm%_2eZntZf|_(!XIE4WYa3bn@rDmsOCC3V zKNwbjUEToOUIa7-mjeGMH?|>uF%lt=s9boUuj=$5mO#SWH$G*@ zB#p20ck~NqUP(ob)$9wQvo9sD{+O|8Kw5J?xb#5wA_z>JjA(t5xOOmd@f$(O*RIJO zQ4Qz(^0)D8ZbrAh;*DEF^9g5%PH;-9_sQK5(e@bEPwDOtocx1t{&vO8pM1t2QMA7e zU#5y!+9zv#<~8a2kU5uJ$9yE!4YIbVY;xeof$q{bvB5oRhNF10 zYec1!yxKKlmRIJw$kx8-PP|9-%2%nv*9>4QU(v&iUCzne>6X9CA!A3t)FaZ?7t*Eu z;`Wc?)?S;aR^R+RlCqNy(d#UQmCmti0w{Z&%BPOj!LzAN5G-O$7HOFQ zWf<%r^g9V%Bty0k`pXD|&4m62Lc4-A?_<-*tjOVX_bwaoggW*)`z%MUW1u8UQiIB4K8%E(rO-g9Q0Jh=q|9)`rHE#0E--z!Sc0?_scpt$21IM?o4^WF zw?TzR&CSU8ENr`(g_SMCo?-7mW3Vl4?DP#yzWR*YV*u)yfFL2m@LF{FE1It7^8a}60jrjCJn)*NG|rv-;^Xzyq4A_8roxofZi(+jrU z&5jVAY+V`%m+TFp_Ris1_{eO*aPB3x@R6E=1wA0v zfFpn&1aeW3qlgy`Fb0ppGFG1!nB$hY-Fw1bJLLjHZZsWSxPD4&Uxl@IWI#rH=#*~& zBYUPaTe!(bjU`Pb7ELN9wF^Q6yd0seV?wv(<?e)i}Y8aub|ymjps8klrUY&qQcD&_32^H*Q@n|4~%{2*Y?Ij^i1 z6tIw!+K7>cG&k>@4%yOsQET57ZtTfi`D@zZM+;8&OKL8Ns!z~(@pw6cbQJz(Ttky0 zXYC8ByQEwPZ|Y;(_ID+R`hw@&nz%%D|PP{^vhk&2`8$Mc6rCz4@CGgEL-Cz>;p3qC=fMk}3g$oHx4#cw)PqY2 z7WevY#z;pJyVmU@4381I2(2zA^pQ5xNmiXxof;Bs(!CEqznEm&`r9f)P+;$`Xyywz061y-2 z-yLlGS5Oc9jLeWfk9wi9vSGv2d!&;K+YTpR+rY@c+MXnC@|9@OoIrv^12r7oP20>C za;1oCSh)mff$But5cXmCTGT%ypeCXbf-?`}Kd@kLZ0%|1v~K74`8wvfTLSr_!?6^7e&S zeeapSLp=AaXzm&D{Ig+IC;f}|NTwXY(SXU{iKZVHjNj#!yfR|iey4;rf*C)H8g7I& zK2BKtk~isR6gu(79}RDO627cAs&gO$Ok$0%`IVRG!f{sap`5@tjv&#L6=>-wz^8-8 z#K6=JFB%ZWr7=B`0LhK7^h;TUuxU`?CSLLa(S-GGDILM3Tf!<1NG2VURGbW-eJ*0| z&9Hg*keL~^=$#CVvM7&Tp^8QA~tuPWw?g=ZXnH1? z@V+X4!9`4xY|pZ!SM+9z%66SwsRF8s)E>T;Y}f;#YjuZ{m4j*#$xQFIc@MU6!|h zi0JGMT~5vdL5uqM%{`LVzL0k8s)E{8!nQvCB66A#HudqFdi-i%2F!cUn|;SMdy}zq z#8+AdUl=hz`~edqeF?qYguzile>rK}^_P-9ynYv909d}0q=+OfJWv{dGhaIJ>Y66q zHWC#fh`fZ~z3ji!8(FV5?^GHLg~MPAla7@#_*DDwXAtIVj5i?m8W8&ph}~-Qz867N z0PlLlZXIIl2oiV!j-(EojzIZpETOZQ&{;s}E+gp(J}(d-F=Kc-iLzW3)9j@cc7if1 zuS8=8U(eD-*Br_zj=C1kCQM&#OBMs-CLCYzAQ@OPKpqV`68N!@o`F08LZ$z;fmMGJ z86Jd-Jr+ff@L<77Me;0}+G&}wbj|EgJEOMbq#Y&&^?+25#WnwG+hL!{+;uG-u!Ly? zj?p)O&^*F+U;L+h{#Mk#_|VU`9Ul)j64wObFrXoT25@n)#Rp*?fgZO3jbmWr20APY z7m%Zh&71;kxpMgJmaYO_3x*by?x{&l--smoGq-`P7;qTq)W-#;nmAmU-S3%76!_qio^3&(ABOWoD!(Kks z+B@2jpY8-%4JRQe&&}C5K9qNi+}l>?U>QN~TI3(Ra66s+avuM5cT3@Y8j z%UC8T-XWN<8!Lap9>6=n6{mz1KL%Bvm(0E`u6-zNd>7R6K?YbD@xJvc#rl5e04m$w z@+Mu3Zu-@4@=sAq-YHl2hcE4mYI@{5@u#Gg``!fyWsBZKwf1nQT!~!p*thI-XzhLR ztb5YNU&H6z3n)9C-1Ja5`8!$5GuiTfc}H(T`y0X3UlLmHxfdJ=u6rzQ>I+)%QQr7I zu;OCq%&V>i`-5w4AuuXK7<9qIfQdgS7Tot4cQ~Z>e)ytZ*`nU?);9rDe@^OnA*ebl zsCgjo=$9|+#clJZUXj(@^DI6Qy6_RwP?3EUI`_VB@pp+04}|3>$d?*@GsMraf>Rw1 zj6O&{v05--^NpNjgTiXMc0ehG+9ZtTx1=ClUJ})3+zLArkvAqY#bM$GB z26o^mW}DcsjA#txLz+U1oZ;#yogm8X6z8v&OxP++U&xJb^i62xCNA+!Uh0#&+%0Pp zcfwI&1&HI$dldiZRdU9y@RUc%8J|f%dz5|8n})KZ8@%Zk11it^Og`f?^@^bKj$8Tx z@7xn!`A5Ce_Bm%9^vpWuns?fz;AgLi7vybyl6IA(<)di+YvG({J{8w}D{t^?9tPGt z;Lm*`nDwQ zFw%?At|v)mz#(R^p3ny!0gU`w!eBRP>QS#cHkZ&U`s}>}mZ9=zkTbJ_7@;?IjAcpY z?{16(`lIIP6Wi6!Ib3wC8mkVM9wr?tK$!jdq%lVuzB(GaD64Kje63IH)+4q8)zKpk zAQY<(t%77gix`zQLTmO2@F9R?W(1u1KNdW_`X*LPZ<%MrM9H{LZrXDH%r(AQZSKhn zyyF`@W9!{x=6c1>4@hse56Lxh2{3gI)~9oH%&Z`S0I5XKzClw4wjDq;Y1#g_i`v4& zX5f(@qXQ91`e6%!MH82`EhLk+UaCKq~l|?gr56Bq*^T(k7j~9nOAENfi z&&9+WIsAbjQDD}|MSTa5fK!P1LCT9GoskzKOY?aH&hym7R)$h($Us5s1X!h z4^eNMf?UXXb0j7;Sa8^X zOpzn-ZmYhatBdO&ABr!6IPd3`96ti{AXYN7h+1(4@*<8 zNbCg}Zju~NagL`X1H_5kh+^O52LFsUzpPaOdELHg9f3vL+@k9P#%=a1*b+E?M?ld| z-=e(`>GLZ-=m#S4slUM47SFyL-1r8lF96|)?g9B4pftUxv<;Z}V@CT^|MH{qrSBtv z6))*cX?x~hba>*rcishuWX-RXO|SVC=VR*c`IjA*&c82R+!ws0*R|-Fd+uJ;*!oWR zM%w%=WT{HJxF>AEUGMP+Q6c4Da>%#xVo>XcpvK;i`d5M}7iBZ9@WvnWpK(*%p$c8z z?@@BnEo)a$#Tk$6{eG14Tiru_k~Z%nc#}^ z+|pD3i?R2Bj^n!0gqxH|B8LXhKqGd}Ip+j)ZZvXEM9w(}0t5&GB$z1%F^V~pq7tnv zN>omxoF&V$C0QPs^mzWAGrN1d`oHR?Xz$FN-K|rn@KF7#s!^!=-hJP__q&eG-x6^$ z`)mh@)}T!kdSdk z90DYgvU%}29F&-Wm-HTEaP*<0nB8-@oGmL`pkZ56TZ4C;l0v~23vstXdHT>L07J4i z2Il(Tty##+96tIhZXh;$eZ!3>Z=ip9MR|QgedtgU(o~UK3ONEuIEMEOj|?NN{?LBH ze-SP%7v3MvNJabhKi_`)jkl4o|GPi@?yGOVDk&}*92mTE=?YxNVfmM>o42kkt?XLa z6%X0%6j~}zAD<;e2?nANFeM`)i$l)g#-wDTrr4V3Sp3s(K7I4%Q#WzuaA8(xwnN1Q z83EzH@xT4+e+xJMuiG0pZv0~(obcYS|MTDOs>k3KnGN z?1)dLC-9u{O!MpSeMuGscn#-Ov)@=(Zs(#R&&qA%^vCI%`ZS(}Whgh*Zxsfo#le{j zk&C7&i_erMq|l?uS!r}}3R5R4+$b$u5tr{#*BulUE*aX+Wt;m{4aem5C)CYQzCEXF zJ!@<`r*1r@XgH;7dsx?bL)G=Xe#6(MZMRK3Zku=g#kTjhbMGD5;5)Lem$iehX$D_L zYz8z8366K-ZBff_bOX1szO(H9OWvNpNZX$g);w$( zdP~)H%eD1K&z^tr?z-cc{D5Eeu)h6SMbneoq4$g%|6p7CQ9b-FyYdQ#332^Z_4s@C zUAG;({v>LDno)W}(fyR9^$Fd?hsOCIY@2>GO?@P;yQ=SaO44-0F#WY@>7Q-eZfhq$ zW>sHNwLOlxfNkMx*RH<=_TG`SKTR(EyxRj{))aXRQyoZ84-_^x;4vSpfeBTh=-b@u~le2gTW!HF` z;IU#G$|Rmap?6H*u-7?w-QIK6(s52-wnE1Gy|`3N*?68rlj6UiEo3*J&A_cJtFarOS}^z?}X4ZA@NPi0&|MsCakK$MS1?b zA|ELR8x*i$J(F_Zq|7yfYh_Cd$XW7r(Mbe#0PE%M0#hf%Fh@+2;%<`Su8?An683!T zep1|7f~bj_BdskaJgtP-I}jc#it+6xt%3)W6m6q0!WA2}cxxY6)qBkvWM;7^LYV6MFHLWqL=b~5bk0G6jAzccgIT8dP3-)kqL%EGR%KP^h_3k!S@0Aqor@5zd zY%O$0HJNXYPN&CYK-H6nP!lpw6_Z7X@Wc2A$b<_nfAhO<28RdFoIiu>;H|uOwNF3# z^lm$3*Wr%AT!-n7uYk--NT$!t%^{TW)6YLWb@tS=FFcE5KmYRck3Re8^|xPt`Sq89 zAzy#<^`~EaiY-0@tPKtgq7hzx`0fW3Aw_%pw(Uz8jE7k`uwzfE`arAfRrH7azJ zrtxiA3O|*lO`>ZPsoW$=RxFvClF2616jB5kmTVQ4?T}aQ=6W}1n@-W~Bl7CQvYKP^ z+9T51!;l?NHJ%n#KFA90l-3+mG@Ow&UX%8}X<7y${IhoHXXCcp=IxmK|HZs?+q87s zvh{ZEUV`Se?YN^ILoV$PglZ)y;vIMF%YQa6|IxJvD6+kbE@eQlflL^be62FF4dSh84(Y_>9+tI1-kGoX;nk|RecgCWUc zNm1A7?uslYHnBf7M}!jLsO85qmS;bU5BV~# zLs~fP9s7-U>>1DS|IY$#sVJ9#QG<%=A;c_f9FFSWaT7QUFa!Awj48LGI z-_b92^om@QV$YP!J0WooOPm8DXTR7vsPK%5@&={uaZ%ogI=E5k+n@=|VXF>oQ2D17 z-YJP^MC=_Ec}B&aF`m7LWoXJ07o;*x(PY}1h*-eYujVU)%;Afqk=FGP1(@QVAi_}~ zEEfA95iN;!O<=$~bbwb#t2ub06@mj5zF#W5zld_4XQZA_PdJ>Da+aBP zR>l4@VE!fF{0qQ8-}Yy}<#$2rf3NiaVv+onk#>$8u^6>_B4*Y85UO7cZ80dE1mH)J z_C}D7tR@sALouA8w+8e5wGq(4%|zYCRGKVXM@#FYQ;0*YZx z#MIeQ-;(TpCiJ=B#|v8a}*g0dzQwPEYu^n5%K3l5#;E2;5-_bvtWn}5AL6T^7*e< z14iMNfUd@08jlrm8lWJ;pF-Uw+z9nR_)z2;aQ+doknTa;_&-j9(2Y0>%nYQN4Z5%n zaOl{(cNMu>;Zq?%DBSq+rVt%Mlz>lJE)+J`IjicTl zjob%hJ&>a)+*C<%wrwQSK9*(a%e0NL3Lg+PT$VImQ?xybGRNY&lPr6CipZVB)TMLG z$uyJ`l7S_TOUX%0$w3{r7;J7g&Z2qHh?)Ml1a##KWr=DTwUkp3{Y}or3!|vO*tv~CQ z|5-KjtzztJ<@Ar5g&(b3{$$?tldSiaV(bI;+&7xp@APxO*Uo&Wp8ifZ_k(usd-xW$ zOScWc^QGIG**~c_VCPS|#Xp-@ezq@tFYJ6>Gx@b@_6POGAG8~P(r)-sx#16*O+V>3 z{n@Z|+e{21cZ~2+&i@H#Fl_y2%bq*-J$DQXzm*QWZ7LebE$M-V3`?j^XDU;9)^uTR zd@3`6Ld&3w8C(^EuVo6gOo4_e&@uTsmQcqM>-kcvNP$w?F0nR`qskRoYXFI^u5+$| zbC#Bew3VBg`mzLuo@1;^$W}NSx4A~2&Kr3~SG$8}YuDGGlUJYC)}2$=UsSKZs&Bbs zYI=z6o)875#J(|Ea7ykUlljJ#1q%xAq}0D44a}!mV@U2A6FY{a&T*M% zQsJAEd1vIl4HD0^+&3+CO`xa9F(Awxl6j`Y&Pj=DLX3qng=j6ljg zmaF-;!1{|z_mfWYG&_4HF-~#ceNo{K;q99H6Os}vHuV=R6~8zXf6Yod8g*ZD)T+gh zwSOj>bOP`mO}ZFGIuSuyTum|%`AVS$uVE}X9jKng(=$aTj?BW<=JPDAvixOL(Oya6 z1Ip3^s`CBvibIl$2926_6wynb+*yn(B1WzJY9Rz!HN)EDtz-&W+dR;>LnpjYLWQ12@`U8-J8IJ*g zXd^KSjy!^-C47`&HzklRG>8z$iFimjR@bb>x^4{`q4j>mYKCZkXm+8d67jc&FgA2H zBu~WvW5ET5U8wiQ6r2kK4FVnGvP7|&+$6p}nWsyjiQ{3tX!6KBZJNxMBC|)aR2ioH zsPr5J14JifqPP$A?qU;Dk&6wl0fF$L%dLx!k4-`h4=PTIX-YpsT};;$(^1MZgGWs9 zAOZU4zhH|tg)W1yib@k?aG_pk$rhVvA~PjNj1hr275dx)eDdKZAnkD{q2!M}=m6I>7L-{;8=QZr8@#MBG0442UxFs!E!&GDlU- zQ5CV2LAKJHC2&yK`XrVHAsLrC-8MyY z&2fUu{G#2mnukQy$3)dfq;)3+<$J}IhsBl0BvlXb%8#(i4}*CS)twd8oRKwMQ+51C z+IC&qdYw~oicxfsS@IyO?5LpnG_z!Xx_6mY_yD8mFfF*3S#*$9_#nOLKz48+tK=BF z>?o)5B%}N|yW%0Vx#cHO(?rb(1wkN zubNv=>T0&LP4!G;HPcv6W*BspOWyIPoukj>cAS(4rbMo3P5n82(`9|*C4JLXUDG3) zhD+M!vxQSnD#~{UCLXia@6!fGWxh!>l>fbx+Q5W5Fslj7tNioIz^u^GoyagpB{5>D z!W3yGr{Dou^>QPP#=xvAmM3U7uFmbAw};dt=mAvpa16t zJ6Bmk$w!E3l#o_&Nvl}*dPzB_5GwD|{*6vK6Mg^ss8ySzNrytF`$N&BOVOmG5v1L# zNa&vvI%HKu6cU1kY>`>0$m1#8Je7}ctmaq;l;wvc<;N9OCzRD^RJG?Z$SUj3IR|g> z3O1(eO30YF>3nG#U#c=MMeY##nkZ5)l_iQ#XCzQ*sdOGb6Vec<7D4Ur`x^;7MZ1 zk@3lhMFA{_@P93`sAA&DiAfZ4a%yO$pp7*?F&P5Cfc?-|0I0hkg9Q#;6B)ZECK36b z;0cl55=+HbVng%9;c(W~H6rjblnN?|%M>JLa^O%%6KD{M8G}iUDvvBQrU;FxQhTDr zPRpwys_j6tIwh0B(I#Yy(rDtOY+)>w2S5fG0q8NWf`wwkjePl*_6xwj%?yzrP=MCO%D&B`sj-8koAeG)YM^&%c%kyd=PR zdScq3!{CmCLVjBk3B^Q4M@O*(YLFn_F`EFZ1~wjh{`Noq7S5c-fpENHOB@(l(8f@L z=GsVPeK}dWMuDwgoHr_SPx7t3nIb<17knBnhK0tunB*K;smwR0E?iRhHj2HoLgxrw zRf&KXJNAz{t2;OHaT)(iT{cLnV)2pS%N!z(h&ND%}$=61}u z1(r6fd~2)F)+VyF2+fT`OQXnwZ37&pbeTUXTb9gFB{NmYc;1j)j09v1#EDdLDnT8m za!hn%U5X?>4V)_1mB6&e<`~EvTM{pqBJ?u#wJbv|-_fEi7}pn1gKf}P%^PdBnCrG# z*6*~g-(zcfz}9lW()^&K^C4^dVRP$YN7u>R?$gjT&h0vlwz>0^q5X<^N%*j;dF|+|y!GyJT zMOnO{t=gupTCp_kwRfCz4L=o_dM+^al(idn_#wV)P!gOG7i{FahO|vb1LMyYO}y%a zyj#m9L)kWC^+9v%HErvY#`b5d?T?vTAJ=x=DA@RpZ~C>m{l9D4_MR=+tqb(2OP6FI zOaidv=ahj>^1vn;lnzzHR~=v02Dq>!N~Ac1#W0AeBI&Yom}tP7pPisD>9Up$33uO(`jAPl$>~M9pzh>_eou zi$vuPqJ$Gbem%j-NAwcOq-%Yl!bvEf6eQj6C9Tp!C7lRaU&SY_7LnHEks>Nd>pZ0U z?9fdNUqi^;m8(vAqyj*#XIffATRC#KR^0ux(P zY%H5|w(d7H9FdkCk(EEBtUd`mSJz$CG+a^EUQ*Ux^bEgX>$_%YKY+3VITlpct+6*w zWE#pv!C_O~5-2!Iwtyzm!7U5-D1sQ*L?Oo~J`#pHg_b5ZMr8`fd?Quiip`NE(j_tJ zT!=ZxAr73%jzm&_O!C^8q$qMm426!&(6|gvY#IX~A3;VDc0L+#)|6qO&j z>alcQT(*F&DoUj5DQtBb%N&!+!`$R=|MoWkY;ulRXeyUEn`Q1+Szd#sbf{?jim7%d z&$>RILIbKl|C{H*!%$gDrYfKg^cYGetYs6b{6U3(P++R2(j*8KMXivbfg#LJ;wkJD z7`mCVs901RS$qA_C*qRn6s93M5d-}ycqqdEceDwFlokr{OnN4TdE+A2I9<1XT|BfJ zRzX3csGum+6A>uUk+A9sKha$;woo9HN~9? zRk6too~1(`SkM%0(-f_!3zlTQS*Er=hD;a_ApFB;z!=0(RpH&#m2Ow$Z8?=J~D}VcFiCf}Hbd!(%Y=-KG6_5b>Pe;26Vth=bZH7r z8lQ=Ow1LVq=16k|rV^#IPUUG*pj5QKTOH_A<`1fi#!Y22hLUMb@r1ip6t z5n=sF`=%dcGk=u#y_BM;&yiFL-Baeq{kd%iF-BOM59D**kRE(S6p{f6?84A%EnWZ}3uJh4qx+*JnR|1hOxjm@-X(~^<8icTy_pzaSvVf4_$V4pLX`1H@2SeckT<+ zFXZ}4wD|*y!g;!;EK}m9GF4QjoGGzzYnjB~t*_oJD_geroX;D$nmh0) z1dx4`&*zT(#xwDPXX0kz!t1^bH*Et?xJRD!jbeKvF!Q2&>>1a@OYW&x3pT!)KmD?~ z^MB}>O+#*Qbgollv2Zj>#5;GcP|`N;1ZSKf4$4_PZ_IQ~VEYglS; zQ+o#ug_HV%Id%S=COEI~Z-60@%J*Oj#!wY9)y4Rd0$ruZSjRWi3#^?|7lLrWw@)j4 z(-POH1n8XyW~Nt^+YhJ@W4kyHcKZ}Y0SSDs`SUVNxa_?`M=#ghfu~wv?-JO$1-4#E z-mnz*KThbH5W9%;2y8t(Qwv>Dn$B~OGenVbsdy{#_J!UK1S*3;m6KL83B~o;Yoz!W z35o_TSAwWHMkG3|ttR9P?iUeqj%&iXr91-Fi8vey>3%aIP!_SC&|^n@;tgtAuU_E!B{+CEgewg)}>|(a1x)_S6EPpfgpjxL?B;cmh_RUPezlW zkIkgyD5xBB44J@o!xbT!@yGuwH}GNKx!@&n@c6u z3W=>snp-D#H!FSZN?)tS-=XkzO9P{ts%_ea-B1knG;Q{@A1I&tjlJcFp>mV4dQn%2 zb;(q>-CVz2Te+mG*KVrh}ICJ91n0>ua`I8~5h6A98n}aCRQc>w3uBf7aW7F0cE9qw9pd z^Ei6ucAfAJp7#x11jze_0qK_k_0Hb2uHJLjw&NBY)qBP}d>J6`?7x^la;0$eif{0& ztLKEL?-X84XV*i4!E^aT7u?+^{R3xxgBLsl7wjF!>}`khx{l{|9xv|NUEI3GkXI}; z6pIbz61`Wb%NOWMrS?`s=_Y6EvHZcSs_L!snnhFRasTv--szVEvoHEL+$z}kR?*@= zl`MZ)vhqpAw$G}ze^I*Q^Wv3{gPYzd*!+IM;`@*qF52=*@wP9jR=%p-`E|*zFMadx zxyN7kjK1obyp=!soOj@{!s%E18{YR%zweoSw{XiRCELHO-1kk%+;i5F;o$J4qK&Wn z2Cq08_Xyl$ENhR@J)tgI)D|yki#MzN^P0eN0cS;1ODtxKV5v(xC#V$Bcr)Ay^LicRv-j6!>e=M+dz~%>}bIqMR zE6AB1fvpSHJ1BRh7o`ElmHsK23-eQ)VF=U>=zWg9E=Q6Nq6UTvrq%yo#^b>U!4is% zk2yz*f1a@3k@OUQnv`&pNO!uAOUOB{0{sF*h(RcQtwm*}d?Fue)vuW>c%?x=tc`** zE;M}H3)dk|j77n}-ca(3lJ|M+x`wFxCK2?GHG;Gf%3385AsSi(?g2yRjRHz1Q-SRuYSOb=Su{>& z4m%^8m7c|*X3*16l{hwWU34sz0oFxDCy-NM#zVm%DuI#=$%`CCbh*|M6;AYI)G}eNOvFsydqucrtsW+ zV+-Hhz&F*iwN*Lt{3N;tfB2oh{0n3mviL@kxk42jwzeJ$_CKTv4!PTpn30!PFvL;1 zvUyr$#BsjF30IIb-k)fWw_i-*mHU9ce;>Hw7`hj)O-<(W-p{DWeWvMC&MB3+Z5 zBj*~*a^(Ijp({%g01qF=_Hfk_;$I0jfUHoQ+mG3(*fYa-O*3`tW0MKL8~8-+{_=^GsbZvG5iPoTCCqXPUA$G6nVwaYe*L;jKxe3h43zp1zK6S}(P(Hx$oS z&pc|cT}o!@aL36s5jjViL|0PSCL&cTTN0DXiA(399g9g>8a+9kNWdg#^3#|yp2{UL z2Bqc_iKRkjtCl+I6wU@kZmq~#D{%FzYaT%9RcT-{w_>bx=tTAASKPx_EH#@-L}Tvmi4(aSgl-GZZ6@<*@vhOapL&cWul zb{xe3;pso`8zjaB@8AXB(51i-<^o4B7&$wS=5-yjqi9I=thsPVVh-}P`EqBswtP`l zv_)HaKv#1_ReMa?a9Xqeimv&JZv7>=K7CWKI45svHNLr&r^o( zXUu&sS^I9~4&1W$ykH)DseIcv{*CX|?D@QG;t{>Cr*iq-k}V$xmp?08`M7B7XGKfz z6)(J1IP+5JhMS(gtNQXCm}RH}Gg|MM#11C2MPzNpxX&{-h#fsD-;^e}QI)?@TePS^ z#G`)}-cpHsObqVbIV=VJg1N106rNUKzR)vUzw&P5uJ^?DhID~jU~1%>TLrdGzNJHG z>kPv?hq_tpX^rZVlp`-9B6S7y3Oia!YWw1?| zTuVx}G?tvX7K(+07$EUdtXf56oy0_|^wQ^Cy1z*nZzjjg0^uW8O@N%aFEp~?rA^F~ zND4RRjXa(^`mC|z5mVbG-Fp0I4;Wg`IQpJ+kH6}jdaH2L2l!{2A?gBVDVeD=6?Cie2Vfdm8+OTD9o178K~XB4jaeKOU1Vmf z{PMi@=F(AP>8P$~NFC@#NU+FUQP?v5^N}-BeyacA(WrXC6Sc?VzLmL3htFS2qauQ=b0QVPJRlp7su&!xjkd?LR|U@&Npy3ozON&H#32 zxI@ngch3pmz{SvdAuxOqtAFUCr~e#QXU~be?qlvgSnn7zPPuz=Dq`#GI%;j&hnYfN z=i$6g5dIHZp<1uSM5ZE$abfI+qwj{g`lO-ujJ$YT^@hiSL)UWKPU~vVYU{6S8n2>a zly~|C|AyE6^Zx|PJh=QtaPx=3&F>fQ_@;K}H&y%p=-vEjVDmo(Hh)mG`HPY*pA{^B z;ahmGblX?uyS}T~{eySnU3>5I)~+XW`=9m>J?|ZOKCkb2L)WvWj_1vNFIMdMrf}iC zvQ01hTK21QTdKBwoWJ?Q!YyCb?*47rj&Jd4@wPAXmp?1t@>R*o=apMOE}nbS-F;PG zwnrOWP=p zePHIrwl1L!EIoWc-F#CUOI@2S3ucKu#VW6Tybmm9wPIbcQ-HjU9yy_g@XI(3wg1 z-|#b1YSy%(Sv? zL-NX#x|YZC7e0c>MqtAm{ta)qCtr4sKc`=R7^Mbtl!cihM*@WoqdkKmPRZgSXatGO zkRynQO^ksi`bOX)ZRf-tB| z$FnK(npmh8HgTnJ?3|%!P~&aM5!>QZvWT%MIw2)nz&DoY3i=(@Gv@LMYt4eKasx+K z;cZ&cl}=^x_3;0O|7*mT!}p3#geZ#4-R15)$}&{(^r+q7gf|BtBCR0o^n`3X0xl^u zRkp}Smj-B96-8989e^J`6+jY;&2Gc5AltJ=Ub?I>B9`#9LcRm{B|H{ zGpsNl5kt-t*eF~pIZGYp_qiGkQ-r2U#(X!9hw8!3d zFt6iKUi*Wt&cnH_`|M2*K(!{f^FbF3@~&fEtUbp(-A8lV4mrC{B(UH|CJGrwOx|Dm<%n7QpSed`ki^B;O=kYoE!aQ@Bet?v|p zd)fF#>Ehc3D__>`{-)}{_YmPJ-12_W@;{Yre!pzXKjm+PVgCl0nerXqRPFwQb?}y{ z<4JS#mF?%hzxw9CpMC9LX3u=(==zPL>t*Zks|2<$z7IKQOXU(6q3V@)OE$k#zVb!g zp6@F5d|$oiyXt*^DBt~U-L@|(wtrN*^Ru!YpO$a`xP0sTfvIPa^r{SQl6eup7lDcR~iS#J{jKV*q%-^8M->CG@$$c{t?*?P#)|%zFYUiId zc-sUrE0wLIN!&tnvjm|vd4n<#{>~w65gxDfO@N#sXc=($uDj1Ix`}f8@E8*yZ|fD< zJJki#9P4^SnB(F9PYa^lV@a!WNb3Sb4c7l^xql60t2kL)D?=I(8*AkDMyaJ%s4o?& z^Z5!lS88Vpw3$33QiJbB)7?7_H)mIw=NFUoPGVGF#C=U6y>|jY;?g)YeG^UFgpdqa z{=hoKe8i;**sfXS`m2STKY~Lfe-=jjyMcKKuRSdeOeH{FJc@`_M$jYhHaVS@lEFpL zUSuL=wR}dOuh;TPvb~(*y8kTZcKb~R2*_$ zf$gOCK70?>I|{)9+hImA2<6s@(mR` zqyR2Vp#TxF90}(7lSLU1RwzEvtY*lHN#2%eU#F-$I7k%~}*ca-#3JUy@u_?fF z%njoxED$pIqwo=+8xb{6J^fU;O;8-^!c>MH;gr~e*mWYW_UmuaEnNB*JHPtuD{P5n z)oRctaTHD%+tDX%x05p^nA?V9j{)p5OmFkXnCgl!wzsslgufNA9rR0zHGw{MQ}or*A6pAU~SNs zOc>!>t(vpdE|{tpOf`#+_1ny~OMrJ*`+f&l_m+Lu#@){L2R&U!K)C?kL)%0C{*!^h z)Bb@|KA6)z$K72=ot?*h{bvLHr{LUd*!x+_q3`??PZUgCB`om4i|+2z0Pup5O9dg; zrC{tz@#OWw@oNQRfcLWqhC$E^a2{k128gyJKeQhCL;l#qg`<}VYrprDtMiz*_k?c{ z7CS)xu)p`Hr|UsS<1TCMa$Y0+1>5XRyX}qJxQ1f2r`@rBmuLL>;M^g!J#+aA-lK31^#J@?$}fsJq2I?n|L&dMtGNlUj&i?#=s-Y;GG zwBo?;1Dif7TzFI0gg@=9sAQ|4U{O%G2^4+t)=w*Uew#b;imv5RMBnB2U#^&Xv~=uY zbMskC$CH-Mo0br^gWD;Zf4O4xg0*T3tVtel3Q`NhFSHAa$n!VrG?EAia`zPLh zkiaLTRR<(xJ1l)SDt3Ndwd0%m-CtHLycrmL*iyZMELXs|rf^ADyrL`GYAoHVEnZd^ zApsWf4t{1v8JJP!BR6WJ#62bR&#Hs7!O3SZp6Z2BkGH{xkRZNjDu?>w~cP)=43IgyNRcq?O*X;ikBDfjR-1p-Zw2jtO~v88!z6l!6a z#es2}t~xGV2td4h&R>5-u4Cw>w_N&P#Pr9>(L<|3F*XFUC1gb>F@T^5azHUVbcYu! zM_Hw)JXN^xu4m>oucjfGklLTEDiQ4|K~@#v&< z%uw((>Kf{Jd>%j^c|8Eh*rc?SbXsaAi<-?vU6*7k2$`%zN@i?gN>pqDp$xeOq4M_= zmN+!Uh#;8+oC^A8iBuXQ2=SLf6eXOk|J&dG7U%El?Yr~y9h`q1V*bUpETtWaN%5%l zs42+c88i7thN+UOu4I~0A zKXV8dJ2?{GBlaWw6Aw(WPeA8>aa0?6n0p9u89 zem)L__w<5=;==Ia5xA9Hmb@N^x> zYu;(DThdo-G?Z7X3|YH(u>a;Mle6uNa!I>sxUhf7^{lSrX-n_TqNNXfu)`PMDHyrZwe=}`>(TCQ&sU9KtK9Kf$(Bz`c7K(>_+iQB zw{6Xbc(y){bC_vvk@$v+=U*>e`lxc-SC+o#&7Du#x}G+4KWXiI${~`XP$fG)i)59hNm6x7a$@jjlq)T71mGH4ey5! zJ&o^xBaf-@Sy~UvgX7sUKeA85Z_3^6uP@G;`x8a1Q$6c{;pbdih0vW}KgLfsi*T+r zH8sIzOQak5MSJ`k-*(NsQ8@Q1GB{}F)(mw;Y$_XH5}nbrrltm8Cn72i1wJrSAYv2~ z$g#;3P%#9slPNI(_Bb+FnsqTq(u6~q7_AN-Af!UVsqwJS6Vh3D<6=`8WaL9-aH7c6 z`$9%LdLoZLBNG$^ZV@P)L{whLpz+glc$rLbI#WQU3#iD0&S1x-qyzcE)esW_tSG|) zqaE2@l*|ma7~WW-zCcP2KEkP>HotSnP6Tp8w;W$%&(1x#q0oCIGo`@TR3t7jwR}gH zvSh)~e$F!TjD7s2+>vKY9T!Bzv~EaWx!vA+z*f5gv}dVHg^0v6H*hrN9BlDWA5Bi%dfw@C$JNi5x}SStOA^5_nzI@V)@|@ zKj0&Li02JGLhZX7e2Pc$*0Zv3-sv?3LSFKvwyhNkX(0^StIU$u38f8eRiUkoH1k3~H0r(doo=#B6aQl}*WDre?7ynJicWVE-_N!nOzI!{$dsR$>+}m1jV7 z4S0LP@tVcXV(>CqQq&bfc%&S4?u^9}YpL2cZ9DBHE{F1Bhw0GcaVEBB&$i?9Bg~HKGX!r-t1c%QSjUx;aEPCjKod;Cj zZcpP%$-YOcsfJ@+tzMi94{XNIr?FU_Ld-K+>5O`j`L02+qC>b%AjmUl7 z3}a=Q$dy7@CUJ9pBiFrCFXeA~-`w%2s`i3r{bfVrH5*c#S{~N7J*n$@O4t6Rt?Q-Y zh0onHZxzhF;qE$FIdRd@aNyXpKP;d7qI}z@!G({@c77RLct3ysE$ru*+WEeTEOiCf z(O$M0e!BNdmp`-gJZI^A*3$8;rRzm&&r7!6m+}T*b@spN=zGOC|8WuArpuod%)i#K z_)O8r)yB zE!d&!Y`??_yS+~VM#zbH_&%n#A(bJ=3xbFC#aCVgIf({Pk(?n! zejg=AnV2p}%95o*gPN`Z+K1o4YmZ!mEYjnGO=0c&~q5tg5fA@_%1*Kj!#2Ivy+>_33%!_?GN_@W&h9k^WB zUyLU=nvxxpoDrX#jtWYNY0Oln3e(ag1hglid|MW*qGNl=OLzciy zQ|71fO^|}m5t;ZJkHTIqbyO?djaq-Zsd&I#I%cVuu~u(%Hg0t`ZL>A3yWSWL3|B&>t09Q=G^L;-0Ep#(U8Cf$53G^*PJTIr3iA<#d)ca zP^Q~`V~-VVd^NcEfvNowb;AYa`ittu>$;XF_3ckPI&WD!pD}klW$%8ec=IQo4X@=- z-4X_us%CGP+fEE0cy;I?0$M&TSooxN&$syt?>RTTW@3-hS_KdmxS!>sGj=o#=fmd<|U$^(aX6t*^H}_%jmd{I;KJiRGj{&Z9>IsZf zr*7S;-u6k&1K-yl`cvbfI}Hc!lx_d0Wa>uE#^;JA9y#~=o%OrEtULUt_Ct4S_x={H zThGYTm80j&r=O_a@aRJ?-fr6cUd8sWYIlBByZoMi4%3IhB}G}BxQ(`G9`%kN~8)C zQn`^RlM$K=BRKic(L<<79eyj3tPO=gc+h|YIU-x@%$eG$^Ty6ARF*EAZ%odXWXXfT zoV8IzP80N6=NISEK;8;XQ_6RArZ9AoaVhr@J}Dtz4<9R;7%Z@4XXT*08pIXxNB<9JMoUQm@I6=iiIMf2yIMNqLXuopf#ElrW6uI@A(rEO?TknfiMpY1i(oE z?n&v0pP|L$4JD%{V|H?;Fb-L+F~m_=iQ;{0BM>bU8Jz%f9@rk0K+O=^p&XvVHXu&wF=lC@CQ)q76)RG2@f%2V`JgU-NZRpttO`nc)H4L zsV^>#7b>Ah%F4|8`irj}4o7iGarirg*`)Awk?D*)WmH0siU+wzA@nPf(xVb7h|9vQ zgKdB<;ZDsGQ+b9|wl+uZp^BYQ1_ObU#!_Z+WErR&2W>;tp-9aE_fBv!m?a_4B7>LA zR41{tX9-o$rEmDI7UV*yke`OUBL@j9q{kpFeO0JVVLY<>26{{Qi>wf1I|Y z|A@Ju-{7t*={s05`B>}0uc{ZH^Y}}uYZr$aqUoaK-OKp`bl@Ez> zISOAI-<%<|qCx>xoJSQoOcjfkuFJmZ7YpX!D&6w2weML&`we6JlZK9`&7IF%x^L$8 z+_Lt*VCs3n()$WHli=Lz!I@V<%zDS4$)CB2+$GQCOZoHf7Hs}_{lT9Kmp=B-y$OW@ z*XR@eDPo&D^f;&nG;0?#%8wK;9Rqy^o`L-{- z(=YiapUt0n!9VpvVEPsq__}>R)gJhB?f#z|_WiMR`J>>>OT}}y0vm1yH@;TA3}CuCA$5-^edA!}wZU1ilt|6SJU2RusGEbg50MGshZ%1Hp3=|? z#`y1c7d~CwyofFOU${unm=IP)J50`?z60G*Cn=njmMlh+bJj+a@tgyD!-E1k!?Z)# z1GJ$K5|g8=wzQoV~uEnYFDY|W1*n~!Sx%J|$u(~*Y#hIfMlL=;qOo0u5&w09WZsX~P zPNT!yZ@+!_Fv4zM8wvSnGJ@WD(CoTrS0m^e5{0-5QD8K*z#IiFgQ9N~rYtrk6VwLY zdK?}Gkb5U2Fy;O=afp^ophPB6V5d=7T2z7qdf%H4{JrzN7J-XVDF1}1&6+6G^$V+! zV>}{;q+gftum8A{polT*>0`f4kKwdDuSaK%k zKYt|<6!+YkI0}Db0%}4r)bW|ZHKEWKKA(^Mkb->ir5Br;nkFYF!zagIfKeMWKrjyo zMh({r#|^Biu6p9e6Q6zl8N9}KZr=%aCL+~;UBcKd5)nf!lCYLH6VpS8%>4Q}k!p%I zM&yGB58m4eb_I3_M_ny}Ysodh)K4inK6x7Oe&pB@=(FL^N1RU* z4g84`;Va>B+~fBA_4Z$(KM6f&N3H{h$mMdJ1Y4XCe+yt7w-gW#1`jL7FWi>!Lq0P( zgZ{XU>*7-4(>XB3DQs$OuVDLOJI&(&V5~&S_>e$^n5; zB_3z59Nxwza-{?|c2}Yn?uQ`gEA? zI(4f4^)DY3ZyOI}weL7GO@PIkz>hMKJQRT5f!8A8F|gyrA7kS+(OF{UrM7Zc+PEtS zWwmw+wDph?zdXTJGR0eC;VzrxEMZJX^20UZCO7%&0Y6Xk*OmHfa{W|>K(#S6IxjS? zG%Bw)W_oXQIo6n=m@)t}L&~C_sG0auaing=dJ}OCK{|6pYK_b=Uy#qe zmodes*1VK5cT38w*AlAM#a3;I#HcbI+s=lh*)PRbtV^g^%Yg|f?fI)EQF+p++?c#t zbzX;Q#rye9hZs=e$_Aom^y&*+i0cfEE_DmiIm7Pd9q!~Uvvrr+_(nK{CfEf;S$nI; zF{$y<>ZfmtTYfUW_B??_=}lMFvkocC_iCyLLf;=b`)KU^Q@S}PBIX{$4XU4aBBS|g z^zu_lb(a(BE^tT+!1dLa)0#dvwB1N;zL7g{KcW5-HOZ?lqQIv#Tu5!aL?ONTdRp`6 zrmmY23rJa+!^xFzRemtNA%I~%=-q~~Xo>u;vF-AQY^ZRogd?z(O0y=&^b zo7wSIR?nTB{_k>!zRwwYm^<`{znsDE^Va@QwBh@_p$GYE9-9Xq<*s{T8n~a{@r|kL zPEPOb+}^LVd%iZce}VTFfQ_O1+pL~%%+z$VB_t6sUQd8ta8gqUF?y-(l8m0v^saDYZy+yvgn^6BNQ|LrTF=C_Npld~zyR6MPiX8ZT;=X-<( zq_exTbh;pWS$L%(GIi0FTlvI_tRrGQ*`LJ%?A$1Clo5E=UV7E^SL2o*i(Y(Kk~aXI zwI~(;?HYRf*DqQmOpTG@gz7|A@6gTL7rW$e^n$(2x$J{dsQ>sQfr%G2Y(!~}Vt^l_QITqr>-)z8{tb!reYUW+EX)6Kq|_5P520KQd1l zX)hK?7`pw%q}?172-i{rC-!+ylKIa)586>F#oQYm}Hg4tlZ*u>E|8P%{{DNcq)3y`B?rIeG<1!kkaw>my=e1 zp4@OPrTIpB+gF)gcTC-PjNNy#`o80jn$(sXsbp(y{VKElmZ6iq-x%8On0xO6UyNFM zE^6V~xFzS~S9}`3>T-PTwWRv%Np+v4t-hAgbSt~>L1x!IL)Ukvp6`tP53<)h%3Jq1 zZ|&o}^-q!B<~5JA*FH84d~fXkK6mX?D)Tq|n7ig__RtTxv|0BgtM8$??_qZT_c?=) z`J*Ox&10eEnkU(VkMf2d8G7y-dcR{V$Q%5=VDNtSz&EDe+osO1qL-YBT6ipG@rmeV z$KqFXe)}KnQJDFU6I({<}C>YXFsPMWH8u|Q0;j`*)@BZn>pAH>7L>tnd;phb6 zMwz2%{M;A|?EeWX&&1VV)69C`J|ula1E)=0U9+2;hxonBoVh$OFm#f|xEC;}?>I;d9QEOQANKe6@7}druh%2A%V(BvShoTD68#80j2iXq=&@rht;bHb z0*Ock^~a7JD=I8{_~0Ry1P+`wO#p9*vk&GP0#}&8rZtKzZ`8BgzIEGZFyes263eF0 z>;L+X=f_!&v2=kSSd`VI`Je|l4EKDzhc-{1KKaw1h3pvQ6$0)!nmhuNrecz1B10;o z)x*g{Z+vm%=&_@;QL22wPgF1T>+!tl_>xHj$u3nxog34{X{u3@$y8}YMGae*ida4AL@>@9?t z@gyyrf>GTkkO`E)=Sg;xoP#DpF9!dNYY1Zjj#LLPDO_;a^YQFYat0?K0z4i_JZMQU zla^lKsnWdkRo+qaJR=u+L@y3cUltNw;wecAjx4};8CTX9KLd|yZ+yi-VnuIC)nH=9 zAi_DJ3R}&_s2Tlnl^|I9qNepFR`jKo52jZ1rBn^Xmk-2NtkF;FjW1uLFTrl#7FXUM zJEK3gbO6yEUD_8nV<4iiLtoOVE@)QeH%1k=MisV1N(lYW3rv6g`JnZr%YYCo;bwh27x6YZS@63*@yCy z-5NMvroXQ$`$#!+ueK7`=RSGaA?=(Knawv7>n^7?exBZZEw$--M(Y=e4WFg9d|~Rn zm(`E7e307wMS9B(>eHLQ$Y}jCweebV!#O#J6}-v4E6P63tiPIEdoiW%B94Z% z)mPFQt|in$s&FNG;sb^O%7 zeJ{V={P~|h|0g*Wh8M`L`G5YbpgWO3hwqvKFF9+zcfk%bY=%93;xsi^KD)AG`wlTL z1Dh=3xPb6+3OB_qI~G^>xwdM@6yG>5W5I$2VjFS&&9^_;+B)z}g@?zYmqHjT$?lF^ zbR?Lo)j!yB)@@%V?wkdxCG7$lFBp2;6XV=)R6 zyP{I@ zkN^C~pa1e_#>$`m{1Z1W_Q3k-PfvlbQ{X_Z=ehAy$!#>j-VbdMWGq!%w{HD)?=w5! z-MRIpt-~#!5pSPgjZKV8&kE7OznI`?&(FcD`1baNXja?sWvoejx1%q%3KHNU2a(E6Ire@*DFk`NLcBk zpRUVm&=+-T3)O@6B;uQej4gS5P^k|c&eWsd8Hsd2PyqE`3R_zPMYJgKY0sWVgx;tHM)eGktLO zQ@Z)dP}g0&LXqumK9Z?!flw7$+PP2QIZT+s?2>6CM3f12XA|nq3&xX%&%#P~%Sw02 z3twHZ_FCJvZx;<+Dr!2RE&D)*Y@d57y%AaWDW21e=If@8uhUz(-Q15v zy_ekZd3wwB^wt~3j@!o0uTz_DWVC&OVvpXQ)pb`@btG!mL0Q4p+Sk8X{p#%nL!YJ0 zKM*nNq_X;CM#EPIL12EF-u7h{Lbw-MeUDJq+%>4>PqK%e!W6Ui zX%0I15V}1|`+Z~2*BPB(a~bCT2U#56^BwgFfAsb|)O$ghN2Gsm9{3@vAM?%+=04#R zIbGl3($!TR)Rli&)qlCN_p_45PlAmbHI;{@GY@1m!GZH>V$(;G9Jwsy=shYse)2U3U#Iwn7+k&$WM0d+$Cb$PMtVaT~+<^ z%P)($m67eFkQVh!!XZEZ?DO3_cmMo%L4=Aq-6(Kt^uv&WO&ca*PT}C-@a~Rx(dy}k z1`ySy)Mbixo#4e2LXpZ`=CZAEr;EG?Ma;lL5cS?XcmD#$CK z!1DOZ+bsA6@Io96Z{*_l=5jRES57u&l!ynl`ys(R( zgVFiB2j89fUq6CCQ9L-VsHb zoK;rDr${qwLy|T5?b`fK@5lvEUD*a0th}P8xJNii^1PxJg{9X^4XYJ7EvlSWO>U<= zt3_^ZR^_#7avH;v=XfbhzVam30F|q+)X^i<(IW)$?&2jOeG+s}lWg2xm@tJPU&7q@ zgeB>#WTjh&xnC}&H(m)Y-XSU47M8nq(Yo_}JHKju^KyRuetqS83ev64Igz&da*DtM zb}pjk{fO!h;RxgJ79|R?T&C`N)Pw^%&H;GwsK8b;>?gAHV9=M;~_no5rV{OGpadSW1 zwEy8d=l{>(hxcUpYa?q8DyxrVwp>qXyodz`TXgEmV~HzH#xFeA6ooc>jY}UVi2CD}n@L7LQ891eRBtA8VpR@UvqD9OI&ei`dHy zolwM8D^`&NZS$thSW`($$6iw0hGwqT%|D19E-&6V*+YlkUQ}GfAzNPBf-qUKbjeFE zzl7D|!NUiew{GSTe2W38Dgj^ggd12gcD!59PLof?{n3+S3-hmRdPaEKI~8#ZhZgUS&^NF* zG@ie39+7zb#6Jqw##Y@@d>_7eVCsEvC-C}g0AM|zt zQK2$GZ|62~RlNT4>%(Vw21y+z$_lP6%8*jWp z17thvojZ5_@c0MujI2f3PGdN$(M#!yfdG6GgEa%qgYO>Tk->5`cg|cIi>KpeRch^s zX<;gXiKbN%`9f5OaW8Xi<@2)Yw*1?*AQOIo?dFspF2-Po49M|uALBzMMp(1 zT_`v)vBNxX?E}0V%nA2T4JIDHd&Ll4MwZdm?vp&U z5~v>17X(C>PI8oZ5WB55c!uaOKHIqmkO11kO@fv_!Ooj^W1O8kx;jp38y__uRXe|E z8?R`mz(_x>DJ*&3cxNTtlJ1IJ_~oYfM%soXNz#_fOtm42ONc|98j@k@73mae^3=}_ zH#Q;ORXJ@qH$pNg^sfiw+}I40t!l8CNr**Kb?juv zaqzNQ0qL5qE*VN*1$iTuhl>QCh8MjpFMLy7^t!efi2Dw8>ASkhePPr0=;oh7FHNaG ztFPH^SoC(>%q`N~c3DGQYAb9)t8ZPLQE#*S;5 z?Oz(2Zz*T)Q_px`l1px;ZMw2|)YIV%e_vO9Qc-@`&~($#_GNa*&6qhKm{;!6lxz;o z?g=n-nmcdh2*#Q3@`fJf4ctpzeo$Sq&Of8sEpD+_W|Oh&dUoHP+!ya>ci+zI`7&wI zhXr+eh+3894uqI`NlKnQ_)l{nMI#l2^M$&YtWl$5p_f!WYoql+!MEOzduCB@hhBFGbT7lgm3c?f7rZX^Iv`xKHj*Pxcr=a3dE%6 z(_D1 zfRyguyDK(0eCROa2)|-epe(u$ct2e&5ar^{W<1n*WzhL1kLQln(czE&iQZAn%c;s1riB28P zPUSf4*B0x=_G^aLhy`)|2FS!IU=n!V!d-9&Ot2M=b#2XU%rx=BF#nk@wlLmOxr5 zvrx$^O=>?>_r*&VE0hX`TG6N_HW1e|Yiw*Jsa9WapNJ5k9v}4P&6|aXPnbk#LO^Vl zCU=!8uQ52j+R8(NsPvXZc?Ze8gGdhLW$hd=#aCtR19P%3ka!z^t+kiJ+EY2%T{g}> zkW@jgiUOjHeRTy6Qo}?y>-@QbSQBkx<}JeaTK zCdQFQpXizi&T^2wW9&i{naibFt-74mVTn~L!%|C6y%nfVS2@ACij*3^hyp)VmTO2l zfpyM7DfT{*R*u0o&OxQ~dMY{*VqjW6OK-R&pZ=a|#)k^nU#EYlDBG*3IHIXIuBtd9 zt2z|D>^#gcDfJiiHSZKP?l#WfW?uAW^D7rJRvkCB-%M}4iE@rb!q9xdwBo&@l^?`a zzSOzxVqx=PbN5#$!0Ci#mJ`n5T|hZASNQ@i!k*?q^02EWZgZ{P5wVB=4P>mKK{o?kF@I$_>B zwHr^BHt#POyqi7vAiM8g#Oz~Hv#|dkQdJ#`s6HB1eK@?}UH$Cik@HTO+Ha*ad}eC? z%&>G%S>s2MGhS@iddjrw5H^|2&YPy*Zw-(ew|{P4^|5*Bj-**HFC03UJb!0cPA~5j zS<-k>SrBx$@7zXxMGry1@~*zI?Tv|(gm_Y70Lc@L7WDEfFJm!4W5In1iU7YM4psyX zZJvF8OxBFWaWngH?jYxpMO2P3rBD_Z-h9+ow}^_kxjR(3oyvlKORkczHR&Q!^aQpKXm8IJ64vMg%JtA5FocSwh-`68+sFw z@ZEjg;wCZ>Q9$s~IDBxUC!&`I1qoT+SgLBOkU#zb{tRIwse%xjqb*&gcqxfw0cXNV zn(CXxi$uau*ne>Urx!jIYs5988%d70;_!jPm<7bn#kB~M!3rdjlW*N3*pOe|`ts2e zM|ZuqtAD7UO#vM=X0k9-5DeqLOjXj-(niW+S5c9G4@doxmNs6`jkDrLa5{)aGmP6b z<}5tMu<)?=K6sB!%y-XCoGN5@8rF(=D|n0}_rB%DEwuT~f@xY<@DZ@)<>935ZS7i( z7SlJ1F5c(bRkb6xhS%fM^PjRQunI#Q`oasAmX-)r>?#OMY9OV=U(bbIyl@dyKX_EU zJdAW4!VHTBT;Onw(pdbe!<)~%xL#2HDT^RX3gXja9wb_vsKGo4RukKicnIzJEwBoH zdsnbMGK<8@MeS!}@C(b16_7L0p%NhpX+!a@Un-9L_jaKOSl$~U^&At=o;EE~qQ z@eUyYQALv-{U=ZLw6Jv>V@2$-l(lAb1dPi9MMA`Z!x~Qgw zBrfodD4pydHN{tJ4FJ+jG09yCtC)qSa-4%yVO$|eS?Qs!@>G|>C<3oYY-ma0yEsXXj(% ztF!jjISQObnbtum#JZ|-JILwmrRPfK3Y@gV1cp9Qi@{*Sa3wP~`o{^nnXO;sc>7>^ z#!`u)L7CGUZm5%)o2&y;E!|X>9-0?y{p9J(LerN?$o!?QbX8ZntI9l;#dbb1_CES$ z9orVJKW}XPECcb|a1n63wDf)Hv|Y-XA1KQ|Qk3t(@~o~rsI1(Zu;M(9#e`*_sw>|~ zTJTET%$Kqj@7Qtvr`)y+gb1ZI3+8B$Hi;`w#gh=K`gL8|mN(BloxKie4++?3hNf%k z>U~OZ^5q92s}JK&RaKwR&N`{BK7t@MG=G`gaMjR!MVi0Py!cHLQT6S**7v?Z5e5b_ zXXtzLnkPAf-zlbV^-Wq9YHD^0&-ad9SlDwbulHfzhDT|wH&a@!MVG&lz5H!$+3UUU z-Clp-K|%l5d21f$uYFvw@yGmikJ4&SY& z>dM2Kn!^#*hcsn-wBY%x4``scY5OX%{!(h~*~Hm9jPqWPD%Uo@l>L^j~JuGmaOrW0NN=m zDr64ACGi7|1}$kxhC#uCF|y2>HA^gedwP#l{`UeZx>(7GK!FL)Z{tt#dQb^|i6o~K za7M5eGnrBlmv`QI2jPszmQBo1tUtT@nOdV3_x|_w`ZeqAr`l652;yNOFXFz$O|gb3 zEr5u^gBtZaam4@njxgB-BRY59TpwQ_4i}#)1%7(LG4bnLisPH-@8;@;PC_MZF)ST6p64dn3*?YsT|i*k`jUZ* zq%D&@z`dlnYl=OzRS3YKq&XH|dMk8kPZel+D=(#$w|;6!qP1Vt82b?Nl!YWMBQ=Sj zRO{#Zkd!BSepqHhn6Uw!AC^}O7nv%%0ofi|(knI8lE{yKT%{&`ew!x0JKWSPNnT(d z5I4z1$#lTRCxRF&yWkirzX;pF7~8}Dj#}UwyTmJM zVQ^|K69h@d3jdfITc1cf|Jd>NlF;M@lFT|~P8*z)L8&Y3LQPhlk+!~3W9`-H0cxV-u}co>0*e%UEm$?NfR-j$cUoV{{) z0>om=PD7bUCXuxIPhdP&Pum<@xz#Uz5q!~DszKon%aH%_O<;TZ;DZlFs*n=AuK)Xa zK|2*InfRk$QD!R58p8{y4+;o894N?YW&V(rt89!l;TS&rVfL~1(s{@-y);F>DRt7K zjgfOdid}IQh6mNOO$oE#mge>{O8O@)W{5|JM8XPJ#f<)Uq#1pdQ;)IswF}Ml%jgl} z(Uud-@Ugadjc&$fRnb8Df^88MuLT=h9sHw4kGFyyWz0A$?06uSr?^OclqS2-5@+4Q zsnY4Z(zdRFBhvEUAlzI(Una8akAltN7gGk6|KkE>0hn!wBF9*xfH@9w z5z(a5W{CO2b7Xx2y$neRiPb3vq^G z+1s>b)ASkBdA0CSrlh9)=`Vl6nLH39qbxjqMM%mD4_%F?ZmxIKLLap2s0DaY(V1P8MN|9|m>$cs8g+%eP%NT;Tfn_S?e59+`r!L>C zt~!9w)6G7H#M4%vR8<~Jt-qE~_o;r_$+(rDBrPW~$N8kDbEM};t-F}o@R>ld-gP@} z#W^_GvEIklp263dvhvfUx=V?x1u%)R`KyRory^&6!df%;ROEuQk@G)^AT)LE8SUKD z;0ZI^Z)UV!Cy|G-9Ye<#X)V_>T0hTdhuZg>%--)zeGdV{WOsdO?!1xFam&zlEw|@p zR?manzQ=i+e$48=pVo0Zu?70y8-}i%r1>zle4gHUH>dCWf_^YO5AnK!+c9GIhB>D+b52JuI2~59T|eirZq70F+>>~R<7>|))t^sT@kzpp z(+SItX=l6^lG7cSS|6U>tDCbsa?!!4WoP0R9v~VNvl}vGOOBD#CW&K+z5^BCDn zw5fwM$5~N;gdeHo>!94z(IeL2L8HK@VeOwNA(ck;Zdql3RrpZFW|WdCd`d_+Moa9}cSQv*T<7-SzWh z7afRNdMs+msl>$xq8A^*J`+3lL;buDqUL=hPg_n(^eJw^woV~aJ(VFb1+v(ZsGL=9 z`lX(6tDIp)lcY^?M60B`Uk0g>+Yt+b-TsA%<83_A;sjFP|MwyY&*#UFwRRIy?M(HC zS?k&HR)}#yoxWfBzu2&Xt@i5uzuS>d?kLZ5#n+155i2&Q+oR2Prv<{ zL{TiZ6yJ@e)q>IK%dfx0o&$sl0nR2dr=6XhLBYZl0}pards}R5EPD6{yZ@z2unXsf z=-0-x$@Gv8?|gFyoS|GMr;H8i!dW3x-hq7wl9H3e)3FwpJ$v?y;IeRA{Ps7VO92oae z-R%Pt975A=gED;dNbD*}>dN56c@B~^fR4VAGcCL$1EMQz1C#ut%Dp3J1|=<%nHqc{ zdW~M_8@t#qezAA#5@mL~(%cl5z9KwhMOZ3%v@u=wAZ(Sn-3mOXStMO;QRnx@Oka<` zRca!`(LzV5$uZohBBN7wOK@D3eTcy?svMq4MNT7d8h!C#P>K-k?gxc36jh1Pn2^3| zg(R&(k<}8GUZ=>cQy6Li=OE`5CTJd8bwvY`%zC-8mOlzoQ)^hpa!JN&iD5M!Uf-A{ z3=Jft;15n_;^pJ!Y(rZXjP0#Al2%=cntLL8-Z2t1#4bLWu~mK#6;$+$s)5~y;}j~K3zgrFi3@|o>l7}~$c6!LN0&FcOZ`DyO? zCbRWs!tzUr%PuA?2dQ#7wc%>&>KiGwU!>JtPp!X-{!CyIz(q5Sg+SCtSpqu!hk|uK z6mEE&1DbLDlcEhE9v_+4Jk8tiW68#+MH_{frtGy(bJqia7uqAqa|a*htO4Rk)Y7AZ z^^XfTJ|T#SKqvlkh8_cwFW&To_Cn~>+Q)>oX7}7nSaBt8`Q^A3pC;CRmRk3@rt+ht z+N%k*pQqGcA<&h?BHT^}V3@iK+RANi+ET#?FxiEG4i{x!c>W-OaJ;u}n(5Dtx8WTo z73S_8yRmIHH3^!`v17+hpE(WMgf9Z8s_1FLM1vK@GkSJlY8{M=dhkbA%kj7)1zD%l61BV#B(@py+&|0r@?0!N(XjxMb&b@EZzcx!At6&PelVrbzawRDkMIDvHx z2jyt%AMYqHaM#bU4TvSg39gt)ZZapS(Fa1m=y~K>^MyhrZ5e8|o2o!=Tq!ly+J>3X zv=PyAL}*q6#JqBIOJLH9pp@m3v|7kxL(_n@fPul}0)o9qSJ15|J9hD4M9Gl0xSw20 zk)=aXrSNz4MNS*UECXN$tc$m42wsMpTeL>ME4FbTEiK zs2Y`(2Q+gJM9ev&sXoSES|fVxS)vEida8#`{9I&UYfz9z$kT75z@`#2O~dQ|s$XCvlaP|rD|TX4?Mc{in5U_wtvkXrGj8@xTLRn7i*g^87EWlxN(7jK}2Uva+cZnCs;U3 z1+2*MCv)+$i%fXQEHB~~qGO^P8XETQ-OI-URE8Ks@v8yg;ij+lj$I&(2+ur&$rRum zyCB77&4SOA_36{6=@z+UX4Y$- ziY#w=rfS-HRQJTjtGZe55y!;012zVzA;D1K*60&K%KGJ(US^_=vJIt7P)1YKqNDgq zQtHoxK~1VV7r*K(DARPzJK0UnemW;#rIWXm`LAcxEEi3=vv!tyM2)ky%3d*Tifd_t5Z;*>uSZX!$?p@eLIZoIWHsTuYva&|HJ<xhV*HoQwRpk366oJMs=5G!FWtuJQsi=LQE}3 zpDf$o-Y$|KQYLmD;WpV_>zCXdp1)OE^hQ|0t6_OtL$hBB%iSU`cr`TlmEhbpA*TKi z<6uxmmrvXZH&wZPX!g|5Y0VL(pW0fak%xjv6I` z>VIAId@{Tb3^5PyJ{)O`HGcoz{cO^wuMgMu%fi&)*P`&By{yNK9kYDZa?}!$H;fuD zFE5b^hszVfA4sBM?KV7_9fcwR*hx6}zb@PhHu-T=JaFzzc9u+Zk&!)?03x!Pzrdu- zRW`w0>Y|Tuiv}%&(r)dgvI$5;`|`vq8Y9?P(2AuQt7L|H>?cxF3+#@VL1ab&z8-D@!QQ4c zclg9CL237e{WWowe>|k{8Jv7GqF!Nc86H-8fLzM6TR}T0vfE^42!~sMWeU6U+O>J@0dWhwB4>L= z&G(F&;~6#AHFANjY!i5O#5LLR;+LM1&)6j|+bN&^wyykreZ`)LijTDAACo&nHe-KA z^B2f=fib4(O3JXFpVD|O5xM~M^PaoJrD8uxZuksEH?{d@YRgv{ZMa827bs%7@0t7V zCDwheuEA@$FQV#$h}j49a}Vlf9n@AH)l?o=*Bm!@-%D%0VQ57|zMay3kEl{~eq^tC z=tuM5Q}f^xXh~L-^#UCn7UBn`n%zd12pt`%Uq+UAJ)^klkZP zg#ab-^Q4|KUL?^V$tEFt9x-z~^wsF8Y@$ISmuRzn`*w7D=GvgF*@WDcZ~XVqPn_%` zb%kSAZg2}t;_WKvzf(GRt9bD1f}y(w>%J=-xcTDk# zUS0dqpsh$4ww@dp{OxNM@C~}t*xu& zq{#L^j3yl(5_psdb>{47n<9Z#Wksb(8c9o@CX9%96UeZJ&~^(+pkU*r!MHIsFlLI6 zc9Lt@6mPYqhm}2B)^O` z{>F{|h7Ezn^+CqZ_Vztk?Ydar~gztj%Dv~CY| zDQ0$@9rk`Yhzhw>h&qQ)C9D7|5|7i{F95|03JZoM_A}4pp|ExzzUybi5KAZ)FMoC! z*^XC{sT@oc7&@d@*pS>Pfo@QR!tW^9(3+mP)9C@FHtvPa5P;ZIf2r!F4U;ixKErz=^bDe67qx4?&SP+R4$ zsvs$L;)>Jw;Nt5p>*gJm74FcKylGmz{k4;S+Irw=|Bm~*8N0O=xEc?lx5uvhB)Q>I zB8fKIuV=Pg!E>6@cqOC#Caf~Z_LS!9%;>4l#E#K*2OB%qp5)eBX&v99SH~#N6~^z8Z}vJBvg!1SBlbtk3qY9`{n4I_`BQKvOs!`fr$`yqSqNgjUB zHAv$pj1lIZJDEKXa|G&`ho*stnSBp(*8Gs#b|=04Rz}ASbN^kUQ|RqIkmXB80{C$@aC_zz#@-_wqh(lTEpMH=c#XVpowE2PMP7ekOohk|h~5a2lPiC3*L!cg z_6Ep3u>G8c1vnhZ_ynl)s8M{*v=IYsh^(P8n@G8@zWi#qC2WyCc79RzfpOOE8apq& zwVTq>KibAyZ|4^SAi>&8Yvrl2_EZo5siykJPp}KX9?r4Eu8NZ#IJk&BqFb;QqF++5 zDhNiB5M+Chab1vkbAWMUaMnhz_|~fp!!kU=3@!n206{@oLJ(x-7~~WX z?cg8h8k+7NYH$zBbPG)-ZbekWfgNK0!ptH@F&HupL_OTSf0u6e?AyZ{Up(oh$P+r% zTPHp!eivar$V_LLFOC93swjaml(jauQp3|D@gIff$JtEvPj(75I!m%9P7OlTqnQIu zhqwlUG8pY3M*=npxQIiTezH(N;L{REkKpSW_N7wEq~`k7>$y3(lv$vxgd9&e`+xjF zV1RK~du#Hoy<>4r5;0^Koa_*m=B>)JLpXcId8uZOb(G>&^p9T@lDfh{mhY}E3`&~s z6d3CrJ15Z89-a^Pe!WlP64!_d1hS_(*TPe07ntB8&Gd_!KEX}zBF&!UtQyBVpqL(* zv@Fa}7nZpqC~=M?b%`>!3n57asMH8O;1YRu6JTU#x&sQ?hQ56t{YjuG=&mLnZfg@s!jjvC1wX*C@vfBgagC9(i|E4TY zz&DmP?3vwtENA)du)J4PGxmg)egtI-)*I-vg7ZnAx>Z`RE-h1)O!~& zOfvKZi}y!Xydf!kIXHVwps6=z>Cx1d>zHMt7oV4x?opR+H!S&}y7Nd)&tdcO50xd` z!KkRJk7W0Jn+gj}<3&~J>&oI6gYz~7X7$NtY{Lj|f+7H78T9SG`}$e$Yo>1v%6l=` zJQ!O1s(IjUX5amsp$EV(O|9276>rFjP{20&nz}Z_eXYVYj`>43?gP77yLiASoVO8}(aQjL17gK7_ zfROP`TxsF1L(3Ixp(M%~Cs-Kd3KA=TyAw1hahYmA_4~))6NLnn9SobO#PTNp^)G)N zexv^h(-$qrSbGE}FPY#LMOY}CXFoZ6+uzmH7D~nhUfH#m^vj{?TZEvRrj5VTzo8Q@sYIEXEWMv5L^~uUh9+I=Ax_M_eE|H zMs)nx@j0{RfV97MViSB1#Jd9##Yq9Rv`?+EwZ%&GHm-*qNP! z)28|*I0U93SX{!*u3;uOSvE|w5U{&R%|eYd*Va>uipW`zS3ut>ps~YR_S2t!dTaYz z+%hMk61&D^&ls<`)q%#fA?6nm;GyP?eu;HBNy6PmRFjKk65H zG>BZpyrtK!U1QK+wQ3c14}23yX0pQBxl0`VBE4iLFL{oK#6Z$sTMw0;x7IZ{#ao`| zt<3jU75Hk3NG0s6E*eq7MT0+s+Wdv{$wC6qaqq`_F;8(B$4?y>Y;Mnvo$3|gCe60@ zje(1v`nTSG3+E067}pWe6u2D`?81KFGmdgywC%S3vgOfv(7kX-{$P$9dJs@E*Xh6~l+4#j# za1T%QOI|FU`KF@$^^ok2pwwkn-qGV6WiHCX(DW7dA(@sQTHmNLH-IHd?3vTO)zd+e z1STxU9uC@sPF!VK^6U<&ATt{#dB$*fNXi0SrJfOUT@^E&!}DCE1<3Zmq*VxQnW5Io zH))D*VtDFeOx!5#5e1!$IJ}THL74=o3el;#9T7#{_L6K5MYgLvS4d-8(4#5r(HHeQ zN{bw&Sp=#mGFM`b(ZDWhi3W3 z%qE?#I=_p-0&`7R`Vx0-iFd>_4{dQs@&aXcBXAwR*aa98$tA%^F~-J^Z(kBu9#Q>P zQr(%v)#tUd_7R@RpR{P3s^nc&>3ga&QgT4#zDG85UrPODnAp>5Pe+z*bq^zHj1+n{9V*RHnb)UeXUebVmzLil1t{eDC(B2KLHzF6Dme1Iygcg4Kd(d!c zD);HC4*+ggRUFdIJ^|X0A;7Tu6PS?mmu-hiF}-Gke%8C@zPmZZE)6`ua-KhMFJ<2L z!rBiarf)XP+7ea0J*)Ryfu^kQHmo&y?KgZAmN_bCN{k)WVTBMWWOd%i?7lNh7km!` ze#*Re@|W&ZmuyI%^HOBh8^f~wZc5!XMcIC?N>xVM){n!A-hnGjU3FMdd00F51b$&| zDzo9VdF4lmGuH+t%p=Jr@Tzfke)u;@djz(MTn|_jef|6iKH^0c7iQ&%8a{mS9cIlE z7!W90fceTBzd9Xdwg`7smntLtOuzN0RE z$zN@r8k`ntZdR9W%v`!Ny5glR`@U{^<3?uFZx7|M~|?n-kR|)Qo%M7km(Uy@14+K6<~G@O`dG;jnMwvKmK;>n_KOj zLcA>tLW~I3uAVOB16UVGoUko0ERr4+>@@d98^Tx+K40DbYWN620t;CLT|q3TxP+v+ zg{8Z~uoRN!DnV&9IZMpWA(`TzyOh+WCKMh%y{U+-(Ly3lQE{a!`hls8HFjVz=@pj; z+T2N1>Yd!-Z(I|UwJy-KHpsNbFQv^tX=OliV_4RDMah;B(_l!}dPI7#aV@%fh;eOT z=3uaCC@`}>B(2U{SL&fEuyI#Svhl*uLI1cEIh{!A3lAsZx(gRBr2comgFDA!f{o8a zTOaY-h_V##ku@ZfEHqUqFG){B7pFp>Ko;y zuk?zZ?XH>T6IJCCJY0SQY00SdakPi$yrEf8GK zsG6|SH)LgR1RI(H6X#obM@?|mi4#o6uq@J0dg)5##(EF^ECJRSG0!J*5osD^hB`EV zvJ^Q5CnDITS&h<+VnQNLn9-Iw|*`uJAGs3`a~}P;^G~(2z$HSxLR(go#3n?zsXpKaOd!BWi~20 zJOIou8pBc-j&qdr>EUShR2L|7n$h9OY3rdT%5{#X3iFQeXDV+`SomT5%2O$g7Zl|m z%8IwkN_NPK-&IU|Pd@E^^51F7_sVAMQC1#It-Ats44f+A=AJ3RW~M(={F6d6>M|P6 zC#*bYY`>AX@{`n6Cu3*tDqa0yeC5j(Eg!bNe#NxfF)}VGE8s9WEikt&3pssv&Aqo18b8l!x#S*EZ7(efOU=zwqoWu6$}2muSsFd|nBez(h)F86f)f`lA9(Q4+> z{-{~-Gi(h|8XSX@LUYmV)G)$Bq`he{%5TDLs6V|v|N6>a;|>yAe+ zIUJU{*u_`lmB>tu#NLLQyMxo~iJr6d)-&;^Pkp4G2uCX`E6U=s ze&c#>R*>zJY++(Sf}lwM`LBPb8PE~XEKGCo{Q+!Y0Aeq>j7ge+VHtm-CHxo;0ai{D zvVnU@QavPTE`hO@WVd$+wR8x!atw6|O7sXfxCF;Tla5tEJR@u~Vj(3hMJyoA2)45J z&;@3+N^)M57rg>ooxJcBWyx#uk~b8kuc=C2lNP=upRr9=@`il+t7K4>PJ2lTH$}-y z@{*TiMK4JUHU-5mbO}mu3Wz1ap9Sf>f2FP+CT0}QgTwk?r+a?fI12|08_!AB?#~Mm zRsRc&BF1*mk2A}J;3gJqP+}p#KY$nFg|U{l&cXH`G6zq&gO}3Tk9>{^E+Hwdp{Zo? z^HO97>r1f4U^e$87npXMOGxsVNe=YP(}oAQY-ZX02luhLRg_oIEr@sVVt5-T+Xs0_ zjHI`7ljd5xDgN+0s{1d~OxP)r&#-Zdjag%pnK5$)1v(L3Mb8srEwHH!2B&sdd&Yoy zLQ97nm^KWZM6-(NlbC-|gS7`1i|{akaAS<6$5g*~``}dabnwfv_tK?HcvxTtD=#l+ zv;G$bNC2n*K{D=1E-H6TA!ZO~d4ZR{!aJ%uI2nugG!M-*ggNL(&xkpw-2TzC-DEkF zU7#xu_m*eip77F_ON-V640h9&VT~c82Q`>O!i}o|v|D&Yd+KJ$vzoA1ctzlio$npF zFfeg>So(5sGS=P@KSqWb>%gvqA-D97vv5-nPvz=8^>YNl8@0eEYMyuWLhy=U%R`bE zP4SJl^w0%FmZNy1w_|&8lw?f}h@I>fLF|&Yuv=0?P1^a_d9X|2%gECi7@=mZ0D^6W; zJZAC9%$6I`i;pKQ-Y+o^WG&hjSNTfus+}+He{5KF0>njH!)Kc61L4!&lhIY_9+iN@ z*{`WMqAWioFWXOCDw(VkSDi~wn^WW`s&lZNlOEgmj$KOTKJ{{83AeM=m@PIrosFbeF8;T_uwgVseYNMO5vVR~(X-9n{V~ z2Cr}Il9SPMK8&q?J7fO#xXMj0?tciOR_yZAsr8>mE;^~5cThfUvtxL!gCu>7jsJ62 zz7~!l1YGdy^3fsH`9>hx5-F$7pFaP?gC8C}e#Bm&kACqBT*$sR&XP?QXi5J0pZ|1s zb4R^LpUFti5bFujiOgCUS^c`AcpWoPTmQuH?9LElcSPwrS>8Zdn}jIX~a zFhVrIGknS=dJ(VdWbgPtj3e`=AoSkb{T`HJ3+68XU|CdDgpXj^ie=O@7@>!R<*w1q zCIESR+{}$&y7HF4UDA9oe#ya@#Rmf7s-1mQPTp!KPl=sRl!tbXt9FiqcDB2Io|AUA zoot$;ylAqA9=2}rYX65dzTiJT5A8Vtw&FLAZ-Qn=4jw_G!yGbl2q~n;Otgi4+SGBzZJmQ`9Qhcf2J>5td=fddm))TGWEWtnm z;hXIE2ck{kD|QtuS1g3?@+(K^B5G@E;h7QD<}u@~ZCyefJQeo8$o2@=;5au)vb!XO zKfJ51|Cg`#0F&dY(!UYW#+Ix+d8TvDIp>+~=?R*gbJ8ehjlx)R#0Doh$`M;mvSi7U zCE1p2oNX}1i^=Q)Yrwk;EcUXn{C8Q{1-{>{I~r?&=j-P@HPziURn^^9?>+aN_q@l~ zB$CViRpv;yCDy0&6c?9jX{#sqiMA(#mT1u3a^RL5Z@!V}(8T0~c#8?k;<6Rhu4-%6 z67SdeTgy$+i$&qp$9C=5g%gSVh})oC4RgD0@v(t!lQRZnc>^A2Fs#7iswT9+9(ViPzO}i_76z=sR_5u-+C=Gb43J+Jh znvwj<419rT3^5b3RAr27uHvHVU}_LH`^~66W`=Jjx>8|pKqUr`h(J2nZp>^krMG~| z${@0vamP}-1Hl0#9DQxGW%kBOM`4L3TJ3HlO2Y`nfaT+CJ7>%7d9|kjvTmiL$Oq*7 z(ZCVF&UlpFDJ{}{bz%1_#8ujb-+mUqJv4qYJaIa<`W&Gc%2DIfblH0$y6!~^OKD(H zH}h&>^g&<$?a`@2=zha4DDHW^aQWA|Zv098a)y#lspx4s1*zWJK(HSK#Ry5?}**0b?Vr;0mH z752Q@{sn|${;B(xpF*=_YLHxeG`IbQ?3U;1>DhPrmtoYS_tksn&zi6QhnB0q;p{mW zo_sj7?Nn^-W3@ZZHh=EhZ8!ZG-af&KRo8t#v*m2vwzHYd&(v>wwmAD{*Ugkc{iN~o zuLs9Z2gigtdmeRmA4+e0CA#j_=ms>6--N?ifBDz)lqRh|k=t}Kx$#7H(}~*MZ_>x4 zn|)sU?ffjAq@GKzekeG4pSSN8Pxp1Y#JH$SRVaB}`8=dn_RzqPyqJIcpCT>|XHp{~ zY2AW632o-$i^;UI^4zn}vE;u{HIxPKRMXUWRz-&Iba#Btk{AiJ>`so~?d-fEGH^?1 z@D5++_2HhIGV6}iZaP`m{8a7cr!(80Pi#Jw-Fn*5aXoGIaP64&(}#jt1AFE{n3v^` z-v1HHPks`KU&JSNB-WqIZvRqh)2aNnGpUUya~qD=&Aiey`>HKFWpJjo_O#wc7`!t# z`ao*rfz7%)Ihm)gs=psFG_96EEw;njvh_il1>7#^(j9R7sf4};FPd)h* z>ufF?C<8+mU9xy-iKe8|R90gxtF|e?ZZ8AgYi#8L?J45*)~n zQXUtc0v{i_n^Jv{+U*KYD{i5uxY3?l7iik8k4{m;VlQqpr`JbXuQtYpYV7$Mdk#(S zDr>URoDgP8l^L*Pr6J1TQlUkHiH6IL%a&IOe$?N3P{j3_ix*wCtg=K5QjU@;3oU_o zg){k!&H0tdH3)@U;_XWXw$lt3tFgp1_O!uQG=lA+RuCRkS37f<)>Cf?G$TB&vS;Zh zJ3m`t&!lnD+YuMspZ|NC?nt>Jikip-m@-?cw^~^iu>=KC{Hoowzkh0mh zek1CgdV_v&a8SNQP=&rQWX$D%f!{?>Z)*M0gSw@Fo>uj*&Dqq_* zmi$gS+PfPrcNX`8?e3O+(AR?<^w5Oj{yF^QK>JmQ>xMe73KI|Mz1~rz2xzyH#+tN6 zF3$Rh$@JV1>bWjPE>-A;T?eWYJV9JN+Iww$;JSFvb;*HS@Xv|WvjOV9$=)jht$RfF zbAY_+&9EpLJ}4t~)Nke}$$^^_{Wn_cc0$6j)$SCLpZwlAY-e5!wztk|LIe0DmEJZ( zWSA&ZyiWvVeC<~T+V?Iu=V0z4Msk`lUdy->!)?fY> z)^YtegVR9znds_gqG*M!eStQqB8sx+#pv{xV(VW*;5WVXmHe(Z@-wgIXI??=wtn~P z^}F6EUj9yD_8p`kvomkj?V>N+D}|X?>vr?{TlrnD2-ul+yoZJ3YNRa&|47Xg)utUc{=OJYN zfDB{X=ifuru~o>bf6v-SFdvecz1o88^HVTl;ci?F+fhucS7;9^3e4 zZ2ha*onLLF(Z;T?6ldQq&Z6$i1mwGQd%oUyCG9!B-Tj3hHSB+f!499fe)hHeuD1%8 zzm?s3)>glBp87&qRk_vX76e|Nd*(TwfaGGbtdF8%C#eg(NPJ#yM_VGMuH?C76$!32 zy{)y;QDb7#o}RL0*IH6*wUBjF6PD~6Q)azAx6zbYXG*Tu1pB?K_7pZhEl90byb~I} zi?Vlc19m+D8Hg(~CIg;8V7vXU+quV(|E2LM?U@qOPt@=Ia{c9BZJm9I;TZja;@-E~ z_r2-LthNOTMo*m)$>?AU3<0kH)c8H|@dt&X=J3Hl`xRB@Bp)Xn4wF8{>qB|?+N-av zuBvAL|NP!R2mAqmm#~cDWG*1N40naM_^{GxpVu}4{Fl=CwA`?=!nCr|Qd(^*uW^>E zfN^Q=3bngj<1QCVPr2GtrgoP?2wbU_?(2Q`-uL{u=V|vzf{!vNN%P=9_|Z!%OfU>_ zS<9hN>O)n)jXfn@`ob8@XIzFHfZM1nvYU#E?&Q-vmUG19MyG_GSf&?h(Q z6B~?*a8`-6%}hKew-eAK6F>A(Szu~o5hW0>w9iJn_J!JKLv4FQZTkr01lq4fd<+BF<*qW5_vd%L zS(tgPY0vAi>1Uz@+lf)26}ILq>CWVaS298??3LP`U&-%A+Uw=amX}hSUdn8Jg=j|Y z_Al3Nf2(%qTe%%?wqE%S-b!wKDYjm;F3N5B5*uVT)2)fP#~Z8mznfflE8kG+_MyA}z5L#< zH|&0^cGuUMXTK`SNU!)Nqefx&@9Ot`J-6%4?96L*GhZ(5`D$^`TaA0a(RBIO>u0}_ zpZ#XtuD1(&|1P%!&B-@1J72He$=LKx-R^gYsN{FQUAN;a^oJ$4i`YVHy~yyAS%_?S zBeC(dhQ04XaYu7Lxt7jTjC5bhZFxmd^tZl|+5QFyAK&s?bS=z(2EOO`IO$Cb*{pE&ef0>H=bbSc zp2QH@s1EP(-uv%m8vx`ppP_~L5*pWCvT((c<&`Dn1`&HvyQ(y9X%!ON)xfM*V7tn( z1Q+@|YegO#ruWz0{u((BP?WKT-J)8#TZtQoX#>@|kjfBNE2ct7P#3D!`O9luWi`%91{#%XS&8;jLbyi!#C)q{%x}E$Mwm{6 z{euuA=`JBY%f~-~>t0&J%)(AshM5IYIJ{1#lK&!g$?}hX_#;b-k=dMfPNmF5)XwD< zMw%>?X}wx^!4L%7+jYcbyp1Ynty+vn4TNPho(6i!$%zAMFzf{8p%j7P3#TMaY68$? ziX(FU&`7jY=N03cAzWbymuTDy!E!O*%x5qDEV&OhlMi~)Qa>x#B|(u|Jefd|n)w9V zw`|_RTapzZ%hQPSQ-}4rYd(i0GADyH4ZkI|OKNYcDZP48sTu!-F^Ezr$xUS&9tfIU zdDWGyC`AzT%Uhy@sOd%-pxcr``J9TR9keTT)NS?@38!p9F2I`IY|C#4(hc#ohWHvZ z4~@yST(Q=aSlWn?Ct;+oGbT405*rQ4jYgp!v(c8qjTiht1_+pq_WW*7!#={%*6dbY ze6781Cot|V&LR$ml%hH^4YS?Vu+Ng+VM%S)h9;`K1J>M(K>ONl>;Xl-rN%~UmLl1$ z#3xPJZPaMjght`OFm_n-+Yl>26PPGH=f+?G*b1G5!VG~OYyEClVW&B_iJ`>Vu$RGt zafG8|&icKs;^i(R2~yWM?{db%HqtUeYPKI|KK($jx5*#BTfU{aOX z8kss78hzNHN5{HkDpN@_@{$CUyMzi3y(h&Tl;)|=F1`adW@d* zjXY^c?^vO)bv0ZSo_Lm6M`ZGu`kh}E44jeUfx%<0&U=??b2ZV;j3fTBX9MHUH0*da zvi4cm@ROm@rz1m;Ez#vxI{TvI#{;8h!y~6X!zVqX&v?gA2gc4MM~_{qDVA6}{DV(= zhoAP35dzB5lKROKYhA(ZJ|w-^eLf|8ei|N&nbs|M2P1;1ib_ znl9Dm-97gNhEDm1&%~yl$*e!;A35n8KJ6cPWT`H5kt!dacrq|`HaK;zUJ!ep3yeP% z9z7N5KXi#Ee~Gpsv*tv2@*F{`#@%nnrqB4tp79Nzakk#{*_up+Z#q2kWOZ;7nHKI2 zF4|xHQeZm|NtluAK)vj1fOwY_O`TVBl^a~RRPHiJH6By_wT|wGk{h3Q4Ls=Vd)(9a z_;O3z5`Es@c9(bLq<82kPv22b|C8R46Q04R1HE5dsLd^`rl?2IIk@lU_c`BUTi(B@ zKY=qBEiBa}wmI7G(u5{HwXouo7caSZaTPtXt;K5%p-z=0rLrcgP0?ywF4(xcYQWiawzI2~r^4Mu2lBF#6;;+{W%|!3{Q=K^I&q#d81no76tq~$llknz<%|N$ z%k_Z#!X+ik$_;8~));INu6uBm*4vn6{u%kVX-4J@Z+6cAKkio0V!!RJrmyL02Eh zNzEx^M`6a1-$ks(w`xCryHM_`n*rM$4fxMHKzjxS{Cs?AbiJ5Ih$3aio#<*3PsY?% zV|pvo0bZ`-Q|%s8 z?Y`LPiSYQD(8SYq+h4^$g#8XahsTaN+i#ei@Bwzm%-rk4YZ3o=l4}``9{02u(6t=(YA3x<6nww7Dn?RUq<&ji8Mk&}_h z)64>V!^d62C%q#K9Cvz<3h6%z^81DWx~F`@Cj+CW1i}wL>FYe`>-wVjN05K?L~PCJ z_`1{X;iJmXa3nlEd-#NxabfIaa{Opw>}Y)ITwwf# zz{GRKy>Fu`<{LWB&=Vd#nuKdH@g$k(n&3Dbc&=?OTKX@ul-+h%kr`FIDO@b&HW7kd ztjIb+HsHa=WMJ7+D$ghl=@u+3wd-?Nx_ch3+wvvfz!ScqW4=Mg-^T)jN1S|1Bd5J1 zXI%YHd4`_$j-K(3oehmY6YRaW!qxo=B@Q4vpwSu+Rs&r;R<*2RrXbIdJC_w=?v;UY zL-F(IWs&w;yLR2eg^NCO>B?&Vpb^*6kuo?ET3cGN$=P&uY~=p<$bF9b zZK6r{#}@qPA4K0D9`qSu37L~U_x1O|f@Vdebd?W#>&>?kFp)>UeD-p-WLWa823xxBu~5raZvAta4?~3}muJIIQgD zm6jTPP;HK0Xev`g4SHW-8guMI<1LjTR90t;1wEzDDb#|vZIw%79#WV^ytY#7YzDdz4P`vh#`}O`LEv!3Z>lm5^9uc>`O~E zc9%aKOD`?c5?wb1Tg_o;kgfRbYFD0MyWZDm@RM3?0-xoGCR+ru9|B@zQr>v;4SG~j zzQp8(f?x3+UWCM&waP>oKT&Opkq!pfiBl2CA{0+>h5}fIDrjAI-E$Y)&lOy=_J1Ez z5)&_lg4WfmSL4h>hCFb~0c3pe5TLcc`No?^j~tc7X#6W}-O4RVU9fvenE~jYZ+*+D zQs?!Z?|p~y=!qjw@RW_2)|DFLj{2?M=H1>^dudVXZ`tQ-+U0HB4)asP#LAjdTZNB- zr%{8MlPs%D@oGz=${ee*#F3XFE8)tGSQGt@%&09jY)K56;{&$Z)#&09Ga+rN4YU|S zEyiFM1A#d@V2KUcl4GvyYDh2c{3a)YGlYZcw=+}lHtcjmO01<62sc~sSOSfE=#ivP zY&4~|0Ijwx$iG!#Fzzs>P`P1hFvqI_u3@bM_{4}+765hnqmeX z`({URhMxz?Co&tPPS#*<^?ZT{x{W@1q3O_uZ)b#SaEFzCd$&u)k1=%yzTgdYx_ z+*D#~U1n)==7}BcaToW8+pe|cw!!3G#G5;O)AfY?^QI5l{ca?!HHS zgU3Q+C!!N4!(*r5kVGe+uHXJ@cEh>oB(FRjoj4tzJ{6lj9bbJmItjPrRAlOOaprX) z(=mM1KXe55m4s|){6rMW&FE3@(6Ri^*L_2Wy#Rav6TZPGC=Lpa9>?J11V)b5ZawE6 ze9Y7Huy62D_t0UE9vM0289EUde-^Y444sTJe2ky=jRDceK{o%;nZU^D06yx_@sNlh zJ?-gYJUZ+hc+A)Pcx2$Xum6~T_$lwuad+QQ|L_S6@OKY9?(I7g7(VSDI_)1j5gd6c z0j+)Q3!%}|k+IXHkHf3a5t)fi@uAK|rq1Peqy0-~@MnXQr-D;_*cTF0&qXG&XX2|* zHO+p7ZzDE&B0P0GHhDU^`dnn1IGiB;!Wbr$D<{td{zliQaoB)GSrEgGQ zH+xy72Ly(ie$AEFfW|9yv1(5X#gdS0DeKdvHW&(*YjZQ^{H(RG&xWg0ze^h&ym+yw ze~~rpsJ{ZOOxU3@vvXRr@fOelaYFjKFwb%H<{Li|!$IznnLZnLw02C4POws+umAQp zzD*4m@U>(`4FImdFC6>-gTwgS)pR{RpHk!>|LxyJr))q&GL)#Gw^~G8m+%FiFeC~! z&~1s&o7x=z3)2vaS4;~L(GpjiV)*lfR)~kEvw4_`1Y|Bnb6~*&Voe;8&@ua$=MSPv z3Zfj5foq(6xiK+q99>!|(foq3k1K&1Rat|qR;&4j5K<im#W~4<8ewHlPaisFFd=29Y(R zwj|3n-b*f9IWx2CjhEl}6!^PRMMc49>4c($jNm{bLC-((jnVFu*ZC9@|K(7^m2An4#FHAyj0<88jJ?EnSW5AO}!NZ1VY4YOohl& zP0Z6gqfbq0q7#UE;c`QUG^eJ_v3|h_C6DaLYOH*Uv>MiyvIOb@e6=;Lv9Qb-+>QS1 zm^U-#%T3zjBkuI1BQfI2P9e#X9JwdlutR6d)L0l4(tH&vTSn{5)4)RQEZCDnw#2X} zzt&Z|-c#J{$*%|SZRshXUPRP;ZgLd1Xel=cw&+8hnqU`obC%eMF+9Lb!J1laNv*a+ z+Dxyr=QcsnbivY3uHpP`IS4Qqq%TWXa8IP?_SoP(5YqDNpNRM073`o9-u;Aw!h?qmxho8H*Tlyj z4-7u)A9x}>ax^@0EI2~h>7%ic$D<=h7(t@Lhr;~_6Jv)`V~2uWxB5G8^-(9=bB~{j z!rr^x?FSsIZuIxu;qSgP*n3y7_wG>dy}|ywgG2WQ2kwmwJP_@_7p4c4=J3#CvC+pv zV~1m_k0n+=8J{?kSbYp9JUaEHzwg25@MGc8M}p&rVq=fQNAC*{(Y@ln_`t!sHHXDc zhVPGz+#MUdKRNVZa^(I{_bqf+l(HN1k!N{5&pVT-OG#{}Qu5Oxdb2>*fXrX^^6sDr zg;%)jc`RJ6CSz_d?C`Z;Z6Uc+zsJ|G&rI%q@IGJP;lS`wsGEU-Cjx^{1o@Um`Es5h z@Kxz*BR{od@e=k!@{8s1qsOV%q_r6pf^yID5Hw<@i;bmj+oDpqIt$ngdK*x@wAw}d zFg1QKH~moUy2o-GjzY*OY&zDo?dklcGld;z8n!=;e%`igM4>>`Q8uT8y*~{U{jutTz=`CP-XzE1SXeiYYbtHC5h)IZte4?wvYmdR~bUk z5hX7D^q+qE`~N{M>%Vae`L-zzl}BNpc+N{oG}Y|KnqmSXP3}r-WzYYArn1Cf$gHTK zgS>_%B$*{E=Vl6W|5V%q=D->`V#3|LC|YAI5b4pC6=t%oe5Fvk<;H)#MAe+Hnh^?S zyV?>bms&-?2?qh0RzY`+c3UFd#(;o#y|39Az?1KypsCUn6QQ2-jkEcEfmVp+^ZQr6 zNvKClN>pxCBQ*9}t-V%b&5&zYMBkH7ewr_hcVTH(=z}a_^6)QJl~qa!#sUh7OI2b+$65B~epl-@Z(y3gw^I!z$`#~`e8lhM4*r(NzF-P4NLLb`LxH&y-iVh&Tpmo*> zbL2FRoZ9|>&6dTn$JE4aT=gnfgFe`yrSL7(Nw&fg>G0G|LRq&nM&R}f=YP)FRgE=G zEwDE?=FE(^Yp1;VwUO4H;l@p#+9_*l)S2H%S~D?lfHoOb)|}2R2xDScQ4F1>Dr>5W zr9JD;O_7&(rpFmdJhf|lg$=IU8gG7sJvC)Xg8x%Y1RTX(?uI?a*ckQH#`uUOJ>|@; zwL|Plt#+oTZP^X>+-3|4P^e|rL4KibD>YosB2lB=j@n&>Wni#}I<6*?PvA&ogzGPN z)$b*`j(<*QJ<<0ClFp1E7KPmID$MF!b(J0>c+KiSyWZcS540M5s1^0adTtE$+(hm* z)Q1?(q3G~^fxd&Wkq6_WhmsSAl2Z>vhVKdw+!^XU5bQZX(XOMgk*^fKR*k(@=g8C; zL-;(^M%fTeS_Ht6<-ONZ(CC^wxTA zN(|hV7``ty{KeG7!|BNfqk~^ej6M?Xzun)C!Y!I?xB6;VbHD4IdB$s_r--tI*43bK z71b_Q>UF&CDHz;&NU+LE!605Q=sbBovYzCWr#&}$S9thfu>0mf_l>CaMn~_7job^# zIoN*?1zk_)&A!eX(v$a7C=}|s1@e-?m4lfk+$V1l)A<^i2AaH0M)696$=zUZ1a5oxaHix#f9tVBb`Ws4N%g2b^ z)|eA!e>1g;cy88EyE)XM3HJDVZg%uM?j1PHXzT5L#L;;_sLn(wHuglY|4wSzKEpjz zUUA^21GEQXw|jQ&LEQUi|N1j#-^5qtfjByvCsocSV`5CU!2bTXzfV=T0GtYIu=j@A z9nXbFAMkX2AxgCcRIbs3*|m=*S0BL{NK8EBTeX+o@jw|oZ9W&Dk-lk?^8@Iyb8vuw zJk5C}n?)uQ=`#fvi2B4o{{D|Y`_j_X_V{%uQEvu?FMzppZkz4#gtv#m^meo0Ug)4S$33~ir zs}-Puzh{b7F-_o-HbvpLOC)4&f_eY}3d*k}VU=Ua9-{)=my}b!bdf@ch5H0SXkc)F zL6cwP-LJn(VLm4**)?RDSCpHy_KeXbINN%%sQxBPq{|lXvnBdjTEO!_8xFiB+-Z&V znWMcmwk%8>4#$ju{SY1}I72Taikf-)_SfDvnMKV1(k10EY6#SG<%?i73{OKC?me#i zC5uXymKrLl0=DIJEouR=Y{*fLeRmOzI!A-=q-3YE$ThnBpOI0o?l$Wj4 z5U!W{1Dr!F93#pkzjGutSdrg3RGDgfJ<)!qs9YXQRj69pwtX8{2-i8ym?(6D;m_d~ zqnHF3wqN6F+T&`R(IqF4k4EIdQP^(JOliG>+pl#Obx!dqG+?-+P9V8h)~eAdRZQhb z*Eq9?xmDUxlF8S2>Z%=Sl_SLlDo0kOY$Ke1IS?>FIBHe4oXTD+xTb+tYqZ;*=yRrq z-05LYX2_Wy@Yk^|p-Mc;?@4i;$YOWT8LK1aKw9%?;h$b=OWRXs)w$)YJ^D0L{ z?JSzZJ;1&>HEK#u+Oiw%*>$$`8qroYx0Vry=Bl3h9iI9bZ^I0JySM2|GO)@1>rwgk z6t}wzJG}KG-mWqRD#$TW5C^LkU&xw37^=!z$0*=xzrnNWbJ6|-DP$@~?@WvytXubJ zcIuHFHhCyJ`arbjK&bQc{)Qssc%WxSVyge~|cW&|l zp};eAXKL*J`0yQ(zS}|r2V(Ha^J{dLnBJMyiZ48;w`Yy^Is+??w2`GVt8=Dx&J3n^ z=k)Gcohz$#*Xliatt+ST=2f2N-01Czk$cf;Vdu$-2a}Tz#K-TC4Bed=xhFMxw;0-b zKOY~vBQkU_)bWK_>n^h=YZSt>MIk@yt7a2(B#SDt#+&(KcHO?YUf7qBSe{y1SRr4zJ^bp8p8zeypR;X1>*l9Fh zT5V03gDuubhb7!?jda_hU5+9>=yLT@^T6%f{=_oYHF5YYjwt$(GuMzAeI7haT0_;N$Z!^+E#cv7g4B=_7>Tum1c_J-phBHQLTupnypbY35dqF4CvbA#f=3NaLYDNb}c`-(a zY&FKHA%+ZyNkXEno{TN8C_$l|${|eoFFXXrNnmfzI+qv@#E9U_jREh0!gR2Ht-r9w zoty9%*ZJ$$`-QmrHL31v4Bi%|4;pK%l3Axn7Q|~z%s>+&HfV~8Frxt%B8sz$?`lgA zTT>(6!g^Qjlq)ysNRMHr*nlzI#}va;w+2#lyz81o-vP+;k@kJn&ZcUH22X?V)sf9K zQ|25|TcR8e(R+=RtXWFqC}a@?Zo8fiu(5$#!Pxi^FnBjAG4)K$rw(PO9!`zj7wNkh z$DZb`+5YPgRn}R9I+Lfe%2-jUt*X|SS8C=A7%$ggV7oM4FRM_ORj?FRS*0nfGC30i zwIc^&y*I$yXN*e@-WKn_H8p&9cJ%)A$i3;Yds8EKNBeJ24&M#nr^oJgCWo}>~=hpDL!(=>{R65wX+zBV+usi6)%84OmHg^Lm@6pYT_U?{`ZOb)&Zbmx2TQ%h=c$Py-3%nP;BCrwjapfL_>(aPm=}A>1qAec>`hv=*^W8m4o$hkrJ9CA?t$}(FlxiQQ<(M;mpz!?y$xCZ7CrjV@-}wQmVvf zdaSX26vM2EVU;ugS!H~Yp?*Y1Wjj31ga>DanlwMTvlPMyCE4Pk(t!XkdM zOP5w5Wv2DF!8|06LE9s;B22Y}Xaf%a(yB^hyvCB#x+sQiCV|UT(H84z7P+}B6C=QEd- zn$qRou5kC =BuedhEALvl@pr^k}rKto=gUuZArQDE@4=zXLfnm#g5lh)m+bvIxj zzcAPN71llVn1cBQWgKVuktwtI3*QxEz4D^?NBQoBdr;y+Ty+A>2@7Ci0w{cVLEvGI zqj46r7~_j_CQLLqD={V#BMS5y!~OQypxRy#IRa1}Re3WAAFUBdA2RrH6>~#Fn2A-T zF|2jvJyc#~Cp>kl?dcJg0@yQS?%Fk!NRwZ7WhX&tt2akFb-^wpfSDTL3p7T$HNI6yR2jn^ zrf>(rI<99^s1sQ#eW)9+$?PwhgH4doxY|wP9%Q}A6l~%}X(nHNh0Y_fU6Q^eWnHHB z2+l~V4AOs~JG?yFu3fBE|u0S|}kzeuNkCny9-4ODc4?)%b$@X1_T~B*w;>bfiOES$&y-!8+;XO{_x1Fe z$K#{-Mn?{2*F2b6{ZMA=(Zu8zt*!fX$q|MHh7Z!gaBmng)^Au3+DN$LQ?PSD6;!XW zCd#yKA@i#g#-@^~*}b#ZTzw4_bIuL#o!1v$iX!623Ei-O8_z3Z3=|DsKLJ7#xL`%( z_!cf(S!07DsP*K_^#QbM*bcOWQUBU&ul?&U{}ubnTVLVm$Dce7hR6n;kw_F$C8Ol> zDr*HqM@OwPE;lK_MMXbutwfAwSSZr;{`0@Jui5NtBKU?!jgPmy!pv!KP&$kdRiMMj z!MhH=_mA(9BH=|kR=oc&?~7An{&tCwS-_`dOqaRWUw!zi2ksN|GP2Cy`R;d==-kH` zDY&B*R7YU|p)g`EU5@0CBR!7UQ=``SfLZ86_Ob%n!|qVIifAeD{cs@m_Q5Yd_|qT% zM7{%w7{YEnJv~CIQ9yJhT57sLr!LTeBZu|^^Tfu6rgdx9Bgiz_TycjGRUbtxvLs)**HR9Uia zuixd!Z$keQoY4ia4qdQa8*I}eBBvMw7Ly1$G0}UQG4VSh(cs6L7%mB%$~3fCUbqhR z2pnb(E{ySA{Q9i$R1Wcs{&HPB1*OH)dX2k)QF+cP5GPmcda#{ zu$nUniRf%8Ue{Y=MqA8ajp+%4SRnldRC-U1)>*Bwt4sm4HKH>|_2#ff?4DctkV)7M4@Z8sE z3N%`RjpkspCD?2YHQTUovt8IK2g}eZ9A@UEmSBr1NL)^Y=EU6>Xd_5s3bk0mt+t3T zYq-T4Y^>0_WnqgfT;h)7g1->qc}j$qtDWG(@=BA8+yZgp#yJ1L!@qEPOV*59MQfzp zk?7%9CK6~%54p0#h?PZGACFI;Oszi?n}!Z_IKAlM4x4 zb8)|?^%h_I9mf1FimH%AU}L0-FWk9Y@9gZvm*yUaszF4w+8X=pWulf!7Uy2LJ+qrX z{ozl@XYsClNZB;jM<+(1#LE}aiwO(o#u14NUAX1^`iKAi zA5&0bi1Q-V|y69r4DME$VlB=}Ul^GJq0&uGF zczoRkF@L16lz7YA@4QQk*a}k&Zy8xOYkbg=9(C8^Lr$2&y(`szTy8c-|BZOm{AsX) zTD7>s7t&D4CaDD-9UTOYF5HH76m?i~$uYr%3h3>;!O=j)DDZwcOKX0&nX3Qdj6ODO zhz{u^gD5;3BE4uo>d=T&OwZEaArRhAx*5sPHeH}qCzrt%-QTqH8)&Ek^9e(EP0R}d ztt_=-TxiijOj1lw3Y!&%e#Nw0Bnn|k3=?9ckdwYfbmYXi;4Tv5BA*N3ga7k^BQXUK z7mtYHNNg9JCAc~=t4k!@LL@v<4U^LtL2MsvXGMW}vOJJilPtwkBb?84l_gEYUhTj^ zrC_|kH3QWXHWBf8&{~5UOIQoG8$8u&(xV1})#Wt`yo2!SQsJcwXMWCj3cOzc z>}+32K)yy_t#|1hNya!bAVNdKMbwKp80bA`dKXa_CGY~~i@^~jFX)y2YxFx40dRra zMKf->uV}&3{!44H2AfR2MzfzOaHBEUB=9`UZPjE6H(SH2?2%QrNHfNYBfQEfaJ!SJ zBhzHU-PTB#G(0O(@ZhaA(q@l#*rV;hJ7Yw-#wnAA^Ov#oWaLx)H!2z7RB+{UM=vSW zN+*Bw=FM`0c}OQjFGmD%?=xpNhBzGa3uk)Bo*uGgMqPDdfxbIky$|^YA15Z`8+a5R zDMbYSVYvNA9GwTt?5$97_;=a;jj%sE{LO!gTQ0nY8VLL2b+-IU$+O8xActMKOq9f) zk-*Akb4&p)U0hbC_2F&_EDg1B_rU-sQMkOqM9t=s3S$YRdb03L*1{c3%<+YIi>yIO zjf11}^U2nP%*gmn<-81RN3DytT=zY2AIB2VzHkL|4dVZt!~BDv7_JmgfAyPR$w~+E z3zhna$=_x{(Kpy(4uS1mw!{FPDTHi$a?~6L*1D=9eEsYj>3<{uK4Cf zPDeodpKm>I>pO3~^TWUYA>TZRU1o?bt8y?4BWuseaOUERP=+4h{o+L>`2TeJW+dW8 zGVGKlDeuoM7z;`?UMgV$bBKb@41t1an2joX0TnX2H!{Ld8J|A&G+m`|$Tv zzo^7Guiwt=I4$B7m4;$ciImtQTVArPS|1zrb=}}-ywctv%m&G}exI#)g|l&%{=A07 zm?1uDjEx$j1A27(L%o?e^#5Wz z`Br^JH3jD8YJ*RN%JJJ>5LUB#k77zPRK(KHo6eKfxN|yp&gjYFffN1K5$^Uk=mX@T z8Z3cEYoJM3u*o7V&}0cTo3Y?33$=cMW-BY&x|t+7^XjDU8#Bi^Q1t0UI# zQj8F{!Pm-CguCNC!j!nTTsq>UHM<%;J%j+2gkSlP%l{;Es zJ8^V55YU{Ojlo_X+@v7nyz9=cgkNWlS`&S=8*}BxU9}K^S9=T7{$8;CkZry2Fj}rh@{@?E*GW?c?o*a?52ObyuN8GH;*{n&f zQHOdE!#Q~HZoF~YF{$IL>$acCBSta)P^j;Akz|?rVtV>eX3gWtsV7{m2UhCh5)*#< zlb^~Dd*SlvlSkLAUxPPD&AZkMe<`n2u!^$N3pb-d1Ii?%7t{|Dq^BZ&mJQ zS~(-7>u$Q*)p)fNkS~Jm`<+df8&gvXwvU+-hKMOCXpb}BP3%-O za0&Gp0Dlq5VI31{|N082wvceq!FHWft#?+btu;EuZ?}Z#m8`V{)kas1#!@Eyc9Nv{?KL7SQ=ulJ zK4%KN3v8F6m?|Renu=;&6^7HUv9N!WCj%qJ?8#Yub<#}UI)gWFRLtbfD^_dr)mnVD zwm{w%YOsd!x*M&3Ww_q}xEYJIn8R>`QNw2D)no|bnYY{Hq=#5`5$mug3F8ZMC3`&S zK3@v!^``oGYL7!O7BwTra4YN1WREk|>rD4K(u7BPUFklTSoS(oY}r|9m@6t7=pW$f zoxkJc?aV8`_}MQcznwtwqVsZs7xwyOn+qRY{9t>HE#=6Jc=FSp;u>#pt-rX*-MAst zcei)oQR3|)mrC(h|D(Y%a;c)eEHHRjm!KJ|AmO~IbmC^83>g6X@BaIDH{Em-jfp85 zl}fPmY%Q}E%6)yVReM($;y6*4RalqlV&%@(=3QqHL$)+sqlvGs4i2H7TInBfwq9dv zKWM4Hc3F*A<_hVW#QurQFiH96_r-0?!|ic%bg+GCnZbxJEcUNIgmF6epzfwdRl^g%Kg6Vo zi7gQ}?yQB&D$Q0)Br1~EGuvkl-f<9wM?{y1E6fnJJ;P`cizoOjBGN9#nvYS5&k<>- zLYu;;jy*-hn*hrnelOa9Dh!YX_`@q}+>{5g@f~;E!Rv^6vE(7I3aZ#}_<5Jz62mw7 zSHXb70C^h4mTSpAYta^f?uf^3j)3j`B+;Cd)uhHMj4_FsvdymCEeRS{Bpvb2+wNqy zXuK~iw~%M};1?hK?ERk|JA918QMGjQ4L7sp4cFap%MG{SW8Ze`ZM1HeAByTTR%nF! z_B(I0a@U;)KfAaD&YmgOLpaD&yVjTAXbSZ#tFRDhry7g>eDL81P<9DFO7G>LfBMg) zNf=FF>CoDB9@~HX{*T%C&;KhHfImrFWa9qy!+%A*j_-A8rQH-Ch27_@+hVJw$ebU5>;T~F#Vd7s{7o&+7 z8uZ~V=2l{ukaGkjQiLP|BK$h9FvYjWt8av@ErK@EVCKNaw866#6;+BGKgXZPdxuL? zK}Oq}t~A6UlY{L94u-Xu!a2ttZ;JsSouhs^T=|C1+?@UUY2lM%r z^RLGgY!4f35sB?M?F3{1_VQ{IAg{Ls*#MUw8CbQ!RZ*=k75qkl?J_Jg59~x;gjM6E zYbB(E>e8xebk!<7KA4U6s6fi^_T+-7wrPlo92yZxv)r+ z2(3h0Y_V2Llrj+EmV>?a1nI~QR-9O(gQxaHw*y#C&0)JU+3QL5c~kuWJ0K5qyEFaP zSf@KP;L7y7(*3M>a)a*NkYcQSWR6sCwIxE8H#dds)X7~eZ)9;nD-Y^){ui%D{k;MZuB*73N~)@Hg5|L-0vNFEHHK?GI`uP_&5O>M0-M$ zPY1`J_75F374~1UT(A>mn1Wpq17Y$m4@Aa|2CvCfk_`y0QxB+0PCHxaXj8keM7Oxw zqY8GZQ|k&lpKH3}E!(QA3<$1fH*3N}RpD`cewVKPI&ErZVVO|V+SkUBt{CFKS!>6l0tgh>cCQBE)mjag*}{j>IC0BE3(A^BJe^YQc1|x(CjZZ z$drM49A9A*qs+1jGh+v8z;nk|v?gS1it&ye^6q6Nx)myqjLEav2fq@LDEUA&6iyMb zGQ@=#9NBnDnaLFGch;^0-d*)5z3g!0x6>!uNeNGGgEhNOSY|CWZ(Dk;H8l;|W5(nZ zUOgmm;x?u@Ui~;rLu`})4pDkxIQCJo6qqk;ND18!&>K-75lgWW9uTibSW#d+Iym>g z#QEbR)P0;cb~`fvmfShg&<3{We%U%?^ZU4+?1a3(1NhSoG8_iAI5ybP3erGHHrQjMr|LwN%;2CFa-o~8!c zfE1%Py3^7OuGEDFu=A9q&LOZ}$akN|cCA_X?J6BH8B2}Mfj>_)UPqc$!S-skiGYlP z;hL&yEubx|npc#k$}8p78myv*0K2w=x0G!Jwrj0sR~%Hg2MfXi!W_YRXQ;syYQ&sj z#UhPPVGXWG14~DwNyNsZE%WA#wMuiv+nwYY(T_9j!(8 ze%nbnGvToZYd4*Wj@(yatCNLV!~sZL!mlPAfyOVXwAWsK&EMYWy@0b> zFC3~3@-ig9ETTAQfTY+8==T&|eo927*^+JGFO?g^CJG7?_;p<>SAM11wQxl>wFb)J z7R(pXql*|0g*nRngUALuA(TNHeG(w!-|O$`(oQ`rp9uW~9DY`)OJZ=rjpyB^mDW;yMESZt2CaSmgR{bUlFi5e zAv{PULca24Rdz~H?b$W<+Kn!XF_GS-83!hc?y1(?!0Rk+S!($=T5}ueqhU&~Gp47F znboGuv^fLRPboHS!pR5okq#qJuQ>MeOQQN-xS%7h4QW*W7KEiyN_7#H&n9p>eTPp~touV?7Y_H(z3mPYs9-=f# z#pQ)Q{2aUs2c8D>l1oFOlagZv((%<{NJ4#;WK|0Hhm3!iPuNR2Qt$1}n6F zGOA`@1~YlnMo&tyv=R>?B$73{GXm}1NxeO6utzXf2+pXD-fFE~ZJ+~=MPqauZ6QIS zv13sJHMr#pu;aR`1)dXfQLGXSpND!0_=>NtcZI*@it(5&Ippn+uaFao@A#t)$K`jyOUj>RF^m1jrntZbC&J% zX8Sx?4p&^5w|3B9H|(z+3Dk`Q@*`rsFe0G4FcK_`2J)l+!l)0+E9-gjmIU@daUAm$ zMhrp7Y0J4aB({U4OjH4L{44srPo*|Io7wOj8o%ic&u4`QGrdmeTKJr+ z?Z(BGq85pp=&@|NI@niu>;qOc*ki)Wd$_)1TF)r<2>xq_;n7uHX8Z zMJxaFxBo?U)tH@*Z#k9O_jcXv%bxC=ecg9BI_VE`z~1tCOYureVNYdve2FR~>uPVm z?RGwzXvF;Di?qN7&tEZ{8A=e2M|HBXdft#ID%K6ex z00%C*@K?j#?)-Xpag(#K!I59*tXu1>TjMHBy9=vb`6*Z3q&+(Zo8{7_FsK(mp+vJC zk_@_+QZ|RVkDL(kVL@w(XiC&>44qrp4v@wHNk?joj&(YJbEP@9Lghs1eMz~VDrw}W z5MZ<>d#$MfbF$YM>CpHZs_hv>;FnbqoY{dTB1keue+z0SMEDQfcE@E)OW-`1 z8Da>DB>LPruzk#)8ir=TJc9ouQO*|#a-!dU*By7s-9Gl%W4uMqq|6l6P%7@OFExf& zs9nod&J|i;sWDp4WZx7k(}z~nI2eP-x5zP?I9-{ zP2S=Tf8%aPc0F~J^A5Q@==@SjxI>RA*T>b)Cb&9$8_XImTYMSYuyeYA!6?ATKwB~v zjqwUc<3QHLs3Rx3Im3;iABU~5%Z^B69)fm|=fia*m6$n^zl=ZtmCm+SS` z_IYdjy>$avpnf=5KN>8IePqS)V8eK@I2J07hKggXh^GxaWu27?EYvtDEm%Kpi>z9- zOz;P!o(VTQ*E66>9EPNu?C{P^maBcyvU0Fp#;ft4QJQ+`#h2!95ctwJec>j_+`DMu z60NW3Z{8f~+#TuK9qrs3@1z~%Y_R8ESKlMV*rV`d2A}W`LXtU#Dw=ojm}lUyv4GzW z&G_R)HNW}pH-GtyU%vg-x8?pRpW%iQ4`$pe)JQ`&&c2e_@|?5vswLHKl(ZLD*xXGs zbz9HW?xpj{TlL$X!}8nDHS9RswDWB1?5nHxzSOwunNY`m7}V_M+0)OG#FUc`qOTl9 z%1Mc^xtN=4jj;i(zeQ3z;GA#Ux{W|F#5q27v7sotbtoq!YNh}jt*;60pRZv{uw|FO zWv8cUtGi({=4sgEuHWD;uJaVv0rHNzDdNCOD~x!FVEebeHpl8j(13Fw67t;H=b+HA zXMFWCeSr2N6fc;g^bZ}hr$^5d$j5BV2;%6(b{fNN#!!nX+-8X|*Xy*!yRC6p<-J1J z1)>yeNnaDSv5d>|Y*|J^5hUFhO<3ncq3X#Bzb^v>8F0}v@qCH_g>$knc&adzC=lih zsb*rz#s*+Je0!0dkM~%^?J($Q7fX5qgs(D3nLcoCmKY4@At!T|k|XU)Q~xa7Va<#y2faa z%2QlgWo5wf2LsJ5tH60&?iyFY5bm`k#_ZW?>fG(M8{GBVd=0w;tM(zit8z8UR00RW z+ozfpeHhWi@ce^=Q`|(}bES%;jF_Ct2SpZ~Cy&9QL8fo4@HzuYr8#9!Pde*1+Uqtu z5InD^`Q2`7-7Z^xr!~KwHrdv~HcRami^O&X-UYU&!1lG~>^hdHuh?n&u9yp91)W< zW^#meCTES>pi(LDuDIm_*i~ArTCJ;A>o2q#jb5cSs5C~E&WvdcR;|(L@Mj6Lcw&u; zHF;wod9x?p>`pX$63r6KedmGQmu&GSTRe$YccRskZ1ttv{h1D5ro)?N+3C-AVS!w? zSZ2FH_@H8;y8dv!Ka>aLdjqvSzPf&Ye!ySA1_Sj&!6NWJ5~?2y)sM3bH;hM`#v_g6 zk%rN5!$`PkEZ8&_Y8neSjfNXpPKKMN&f8?9VcZd&!}gUcRzC6g6Wn^#r!Ymubw6|J z%s`(=uyQfu%~H{G*@{X)fTzFsmtS19|Ej}}9~Kuq4<+BkU#7aeOBzw@F9upRMZ0## zdUnTqW>YYZfWkPNN+51F%2( z@T2S#g>Cjpxe(PfK;jC06ow2Db!*#o{@xo@!OrE{;7U`vCN$vd`g~!}i?qp(PdywN zy(cmGKz_}AwQC5-980V@7G3?gqiHwEGCs@;XJ3G{4?CLu6GEr@i4Xx!>9@WuV%>Dy ztMN2cTGO~^JSB>Y>;Oa^0yq+dkl4a$mrO;1AppClxIVCISEwCvq|1XHv;MYS-qxLf zyl)jsr&|QV7dN=-*V^+;nFn!4C0&OoE-?xkLvtE3u7!{b>l_qpC&priTbQK$2bTD- zBQ=8GuDI?a_9Rb-F!-gSkS#%-PB*QVt%5*>gi9y%S4X77Nog>YXx_#3Mgg+fSNK` z;hCog-PA9{dZ5|kS94QSA7_d8m}0a^MPa5Fx)eUV&YdSj&ryi&v(GQw@CBCd|M-2h zJ>kWsfxg$y&@)Vx7VuH9kBN}W!JmV~Beicm7LxD0wb<@Vux z{YajE5Xtd!bv?Ntc3pQa4EXYP0&u&U(PS7J2V*m&9nDq{6(yUI--!+b;T?0VM1BXo zhas~tyTJ%=%2I;2TXWP55C)4(@0ykzb#o4w9Qk!M?F4EDnAI(7W0he~kUY@JDr-T# zvustIxjQiQPKZ64BPZOREdjSv1c~VmZifQTcV(2;WRyBHN*PZ}a67M(xJokI4sR&x z7@y>JnC?lp8RWf0o(*`&;Ohiy0nWM*-a+q#*coo8);p;cn~e&>0*2dp_&%{kTDDln z5$n(bC8CNF5juK~*uW9#fI_~O1#agk@;HiIwv1IG$zX9o!f9CrD>4eQ^GkD!C3%GT z<@s!B7OOZl9Rv;<&!m(-%j%hg$wA}kECNF5*%=wE3{X0VJtH?YD>pqSKO?uKNT?~6 z7}+u-M`q&4%^Vp(xE=k3p{}s`8#? z`5LF7tOgKjYZ{*6nCCIg3OIyfGLX$J)O*RRQ41Gkt(xhhW8xY)JU*>_s( z+qr`8xH*-xBv-{!hH83GTE?D1o%AC6x+2R2+qNb+aNHc9QbmpxyN(vu9?mImUzE;) zyErBvF)}1~v`|9mQIO~i9UKM3i&Ad4q_OF59Pa&dcSC9sxd(`?L%Kem7+Y12Z8jGa&S0K391V+ zkmGqITj(HD#wuT)!jrG`CV^RoTz(}Ikx|1SIWk0S+Q+?;e(X1`D9DyL3n9^$*B6vG z6jU@8Ag~eYmZ7EC(7`t2fe4wVP-6}WV^PV-vw~|$fetM77a4kaRcpDg3s^mf?lAXvs` z2D{1{P@4k)lN0qD8aR=`3B6}a1Ms3GHoP3Ot{{JKJ1MP*ZUA!WzFsD$E zS1e_?U6xlO$z~O&XF_1f275DP&RFKmORNOaGg%p+@ywizOjcG_ZdP_)R(5_S+MN9C zyuz&f61KREBR6v7gxI+X3s+%fP|1T?&Y)BYCby%d9rOiihd^B|q#!1GHBUpBd@h9L zE>T4-T7m?(*NQ6KB7GfS=PqR+(A5d_UV#CoJB3$h@QRH-hTHuzyE@frcm7`_0)=##CE3Rg;Pz~Og~Z;XaQCV_{ffFFjb}*dUnLA5EA^j}G@^X@ z=~CZGe&948)2R&)2*a3Ky|=)!X+a9f4}*w!Iws*>=7|9Dn+W#&^8A;u+ZSdC3oWB! zQ-@!eY&6=*Mh`}dpE_&J(5%Ax8H>LcVovj$xc-oZwfD;kTA&S(k6wnq^#< zDvd5o<6{t1ENRbWM=fcpmY-^SAxtDWeIL4R8P4b^qx;*em#W>q|ty!s}m@oEs0+M!`lmlRjBT94as}< z6B=|(4}xnU-Y?AM!#^JvjS5N#ce;{!RKeq0^1p!nlb;Vn4A3Kn!ea$OSMsHen4G1K=f991cDEVUxe`w}IKPU>SRPk>#2j5U}=>WN2k|ja?4;~N3*Clu4v4nin=rmo0&12p?LdXGc%&MKMNhPm%e297Ag%K=3@+^EEMLG zq2G{&I|3r4(6bCXzUQ+mg1XvMb zCm_UbOXpP*VkiEP32w)vDgr=Av?fh!iR=W-bZUaw5zvI>GqBrPh*w3@Jd%}^$TCEb z`Cqx6D>uyrNR_dfVKy7t;C6`t+@8l(<^voBMQ*V;gT(>8LygJj$O_o<0*(T6pamRR zP97W7&9FC%Fg&rLhsU|3M5|r17%WEX%wc>J@SX&E-v<0Add?#2$j(F0nAJF(5NC+zxs- zg7&e4uUKNZ;UD?n>T+U{cX}hY}kk10_bkI7huhY z?-QF7+@2$-kXE;->UuPuK9y&v+&8ESt`^lF=lSkLwgE{aYMq=G)!!pR4aCR;A`}w| z-CJPYykLa@+>R0GnP7a{K~bc~9(in_Zva2Qn^L)a|31^`ul0k!kVH;osiI4YbeZz7 zvhlECr=%cjxi^_>q^v_GJV-GyXv<;}?Aex|(XbXoJ=is0UCsSlD14w1-C{Cz?U zp{~x~{q;L+f*a)gB{}mKlWbIYiM+TtjU*eO_#I?wI61>-61M@kvgen_Mcy5f5V9`s zk%so+rXvqdAvvcaxK9z-E%k1dp(wCtgUqvDRJ(?4?Mo@q(aB8|8^Xw#UZh-ybD*aI z(SY1v7H4K5u0e&mJTTEATtk8Jg3Jk@s}br;P^f{YpQi}>sA}OH3&}lS?kJ#;+4BLB zZAGqxCMcsHCOq3|2Q4xupp`Iw@`!{&{$V&_49+&8I6I@L3 zq=wHEpF0xrql9{~rMJY~%{F(jktE96&8`~Y*v3HSY}+u~KEkoDEUn(at=Y_WZD7}~ zW7lrv)$Wl5P6`_y=Et7lcfQIW_$|NxEn)u~#m&!@cD}@kJ+)LEqhWE>znxwbj1xo_ z(>hRiPJ#FPjY|p^=W3JXgXwPY@}&kmCRslE=pz&Y!{sA(brDOETi#M&>?ttz78v^r z3A7#jb1z~q(cLN z6FZz6#c)=^N;d;|IeN22pj>~J$cH^M1@L?KW)WZ$eAjD$bWt5~p(MtCL$)l+)MiB) zRy^0lvt%&TOdO?!t+JMC z65wkp1!Xo-nFH)iA!f-Qh0NeZM`rMl^+t~r zFnNCja5%HZM_RL2Zt*EBKBdL4v;-6uzrsv9Dr-n-4aqCRvZ{J{RfD_|2rCF062SV( zaA|q20=H*mAjL76i-c}~Z~piH=lg&CgOCFj z%1%i6i>=q*upn2YQ@Gm7yuB5^fimB4g@3rbex0J}v^@3@{A85PXO&Hls9JumZhsOL z$x%R7+449%TNb8?>FtA#NzBE661Qp??N~E5GDeK6RIVU=L^t}XVdC|Q!DnRgJ9)^o z96GKacv3gFm{yR9Hkqw)2JC1^@o7^>tBI9sV!Eup}9xcRYtjERv>>5(84t*MiiA{9D zKl&g4C-EU*VjVjm)^$l%X+C1&%5i$k8CHZj`bI8hjrC0&WQzsKS2VD71SJ*W9B~!6 z9T$aVcGN^*Eav601{ut7=o^<5vNS!#Rhx=YYSY|bVqu8gv6AcDz;kUZb#E?3Dp$`g z6fEF-_VRsuOTByefg=KB6OBG0=y-wG_1n_1PdIBnf`{6n)}kPCA&xgqsS|5!7bzs?*rkv|>~$L~<}|8m9_|G*SmZ zC&?(aq(d-4hyh7NfD8t1ghXWv1Gpn(i~QtvkYH>$wEM_CLIU9>lmq!i1o_271}}AG z;Lbw$oB$eoI**ZJ$a#`@Rg$KFhl3gb630X=c9M}818mDpePis)|aLg{4aH zIb<1Dp`d^(2jLe1Aa<^b+U+^H1;i{TC_tZ;SI9z}i?+CkEi4tPg)*H)X)cviaD-)I zb){HSB`mWF$}DI_N#*NDJ6RTDzzmtwXGJNVHCwzD90v$qls%qg!M2sEr<# z$)hxR6s9`4$t^S00aEnMScCOGxxuS2`jjR=g~IHkkehun0d&u0SI$xnOkf}i~STak%}yKq_h<(L0-_3G7lGKC`zzV_7W!*m$+ z8O9pw|9tHYH|0xBn!0XnV9*dAHiTE1>nAEAn?wzFpeP~SAjOgU@O#7)G(UX5p#A}V z=)Th6nOx)A`OCTZjp67R3JbYk5bpUmswAMj;rbh3NMkNl8k`g~oGk16rFr!$`iYmy zhF(zjg3pgBx*s!-zor}h4I-f+>?1si<3YvklL&z2dQPD&avaQ14_>zrX}B%}nP5y1 zJ7j^RcXP=@kM&}4FRbFmwyJK@1XZC5-*Flx+Ci1!X;>Lqz>#|BCBgYx#r z_o~A`I$gBgLP-kz;H^s2a!A#xu8ajLmF)91cPR`gpF)wJ;?g4@7V{ z#AwtKz(fX0>|r#lVU7<~gi}y4&Z|Div2QN1j+9jPm)M3l&b8dyZM?c|0`ERi;D|VM z2OtO^7oa5}5!PJ9@rk&2-_W3+xS_^HzV#TlHto*q;h}-cB)YxZ=87 za0o0o)_cEu4>Ai)RfLyi0FoAF7GP=E;kcoYJO-t3adhI|!T7*{y2;IgG0{n>ZsHrmWU3)+a00|=x1@sA z=Wsg?#2mUjwGcVPP&W|xFLrxM9%H>joXJ5}84|?A5PQOOPm1ldBPp{2Qewy%+N2SWh^gr!3+si#Rfv;;g(9 zwD~2XB90VhIh!jfD&iIuaq^3Jd`X$CtV)IhC1977+of8EtfE?`bI5g0nXX!Nhr)-C4nyqm4)y&X+hxDfT}W}tO_ct z0;;Njx++*^3zgYJ<+f0{J)D4}zT8frodZJkjz~pyw89zFR>!o?CT&f;+(n>uHPKF4 zOBDN-EW& z6zqKh|CxN^CxePem(%EY3`L_$Frx}SK}ufaU_oZErA2yq;|XQQqvb=-R<3*9yzXto z+INhr-q7?vTR!@NapfDvu~$$loZ~%H8n~x4ct6j7FR$)yf$t0-gzq_-XWXzLMFnZ<&nSA%$$QQzdVizrdr{u?D@DgMaN{p)e@Yp92xaK6 zxsg0O&;>O|KKR227?bK+=pbu4P6L_BSYjK;5a$_@xjM?xM*yxN!ZSt*!xO_eLfM{+ z^?CD8Euv=4b08#5mW-IEEIsshv1~n%miycC;LG2Y{6& z26(oF;Pyl3rs+6nsmz6<*f=7Njt_JG(xSYwUaoy7$FZ)YY6Kz-w|W(~b`yx5=h-Rn zACiRckcCg8Y9v2|iTJakhF^-CUoY+c19$w>;FkjY7F)Jl!KAZDYE9%B?fd_WbD)=lqhGxseVL$bQBmDbuOg9Uh?#|p>_;Ddgnh73 zV`kUxUFegYufJt!K}EJKoI{+_qq&L(7EKE#LIwZ;YKb#lU`yv$AyrozSQ;hIz}s9D zp+KP=V*;p2LG%sSz@TUXCP^>Zhvw!5S7RkHm6=qHOk&0|r0s%B5-PSJon2}n$}lkn z`^%tR@3uCqPvZav+A-A;l!Xq=*EoQxI8(;r10QApjZ&=v*qL z^yO5O$tqRoobrllK&7t%l=>Q&$5LI5Sm%^ztEB)W5v4_}vWk^fq0ESBQ=!}>QkVg; z(jvin73r4<$~b&g2~U<^EGXg0`BHtURF9U+R~8nR77z%;N~20&t<=@va5yeGoS{Z( zbg4|WDwA7fb}Jbu%;H)q#IUBq)vT>;*3#D9 zQc>6XBWT?%Wv;l&5fSKIS;dlT=Mft(u^{69`uRB=nbhou{*#u+yYgowavTvH%vb*3 z@KjvCZvEMZ&mt$u>#x4fWEBIqFDz14l?R4(jq8l@Etb|D=9X>x_&#OiBwS*|jSmUy z@8_eiIE?nlLj>UmMZtUXbrbV$$;MB7=k}c#9D>ZnnTv3?eCFwA=*eKh3*?YeYFD=2 z14l>0%2$nR-?VP}ebt6{tJc3|S^I{0_3PF(uNy~xgDF}(Ai$Ac6uws!zK0|?z~O@M zr9WBZ*tIC%i~uN%snKZO|HJz@);Iq{JYL|f@$Fx}Wds>so;H4Kwiw)w3Y*vgI>yeO zJOB3W-;$3KDE72_ayOnMZp)E!U7Ms$cS~FDl{TN2H{B(RpO!a2plJWOs{0vL&-1F@ zmzBM*D0^N~bUm+Ve@+p5w4h=j$?b2w`qtaOeH$rFa1=Zjz-|Yn;5mqJ`~2IGP^i=p z7nqv(rZ^XdvA%%|7{KIFo<7FaV`Y?rXNXc@H?|&RTaTS_3jqD5mS`xqqkJBYQdwDv zYUAi&fzkr@W-{E;&zQ6{b33$XDD(IiU^ggr$Z7fDeGkH0iN=s#gS29NW0AhT#1t!L zz_GUT?7cikAIH(dv2}5)x_Gu8o(=9Ryapczq*KA7U-bD3-ZID z!{j|c?%cfG@+P)z72C0z>s%+S+amI87kGE_eY=GIJ;LxIVf|52__(nCl&s~KiniCJ zZSM$sKjMykS-5UGf749CrkTP`GkIHPSUYEOCTFrIXEL|Xq_6tmR@3UAUPC5X5PyVY zL0f~_@XcSyOg*gviBEgp68>`e%3F*4l-se}_y70%mtP_d?N|_fj23e=ciwp?#<_OE zvXo*I@o6E+VZwyi#YhN)JS|XH7)6B;du4hl$*zyMvvibAL4I8xT2fsFB*}oJSWjbX z=K?{0sU>BowTGM)X>5R*tSl}=t~q2AqNSHel_dt0+h^NEh$yYNoeHMSMe;61Y91_V zu)P}fQjzK>r2tj@%2pKVkWnA3zM`-U#RpNUZ$&|QNPCKb%Ie4o3D?J@hfIRr8E!|mfh3<(dZ)w=rJbg5 zM_XoszEP_-xF{3`m(1Xj8fyWW(G3AasduRiwHl*ajZQ_4KxV}L31B_hR4XgDmr4zU z$wg&FTsg!Rf!xGbSkQ7r<;6T%skls}G$S6X@z%XVIeb0OTe39If8-0~oyRdImaAo7UYd)VY?X=fhSX z9U8s+uDjtF01t3Hso#c#rY2v7yOpglf$H(yPUdgNcfPr)8DD!uqoC{>I@k(jzC>+@ z#cpZeS=BjZ?bvH++g;IgKn89PKLD{^5&`9&ku+dZ^+8GWtSE9;7`!J(-F?;d#6{u0 zGxs526GOqSLn%FUUOY$i6KsOrzNAnqiX1WwKW`X+y?o_M#IpBG!1|x+yCf)w^ePVKfo($fFz@?NDy`XNBJbFYHKPG8BC~KIK)=$YI2j#Kj z%GP@kV5R8zg{tR8WzQ?Jo>vszFUev*&sMfydCh#((R=rIBwIVi!EFK^y1=Al(k;Sq zY5|@v8fkip#97i^^ zYou_I`bq8=lDrGrxC4})$%g<=bQN4O68({^>7?=k$(>G2Us5T9wxr6^Tw+i3OJJF+ z(u>tV8af1OB7LAnMiEj^gY99iYm!JQB#ez5=}0uhAW=aZd<(A?7}dmg1rFy0N@VaO zC{z(u2Q*IV@s%^2kM|OK$9ihmr?E}Ms)sQTrHDCg@?=5w#~YdF1ypX$*B}Hn!RMfK zLhK}|`>g9D3QEp`B}@Sr*GEF^vxYjILItZ+hSyl?5-_{f#9)SY?V-XoTJ%+n3<3t$ znCi+v#mq}^GDFK?W`>+ib+Elb@-WC@`KyezDx+IztWz25)VL{_TxF)(GIJe3wG=WM zKq%d-wgNsF+dvu7x*4I{UaxaB08m0m2YSey4v|Ny33S!E^cr)8QslB(l!}9O-66C$=7P~w;TPP zfWhAZFnx5e62MEK9s8Jk?PfpFnS?3WX%2Pky{#OD>G}mkmTYfrr(a|E6`*td{Dp#Y zhr!cuTi>y& zzT2&R_bOtip|mSn9*5~Js((Ndc}N<4RNVLoIwIelX@Ve~#(LoX2dFFn_sieC^*b1u zm_?=b5}w;{Sd_)BS!)=64u0&FtDdV`{an?m7Y)NtTgHEB8T*BK_z6S*W75c-^2R$A zjdv>Jcgdr7%AVKYT?UFy zFEwz?@lsm{z_YarojqdLpx8YobdL+_#)WlbyqclX>H)r^U*LetVjr>Fd3yTzfDFkG zJ@C+`jl`$@+^^2<*tP=`^q9h6G?}~tV;9e}P2k%Brz1&dN{DLjfdk_35yUdfnjV(5 zJS=N{Qrh{7sQ-`riLXjFTwv{(&e%PZv3DkG58?A{^mk#+bmpGv%)Qg;yQi0}eETMC z-{n^mr3JIbD4})#{rBVAai>P|$+HigMW0;PWmjA=Z`n_;PRR0ioxBU{-+%9Y{DY8+ z8D+{pJ^v}$jWIB8URs#Rb+Cvdx)<5ESW-U=*}agJQG{f?Hd1Jb)LJ5TJ5wyfOe!xh zJP)d5WEQ3z5@?eMGFsT`Y3vH7B{qCI!|lZLWDZsof|k`Fc7Wk|%J!s9ay$BSxgC_A zTA%<{6oA-CCpjSQ3$wLWagRXGUc3=Q;jY1OKCRyhtG>7l4-w=HLF`2u435n0a~-p&1X-opDnCVer4J~pBs8nE z5PgI4tp+lP)muj3DYtqFm_3s%-lD1WYAWkAl^*P-vEt=ifUyZ_mlOD5euKTWb~0J1 zbtF&*dBhPecYvrHbkz+8SHxJ;XmUj<&^NjoO;}SC0gN>fy(>~tL!fuT*oMgsRwu+x zt!^z0ZxFaUt^;X%noQnii?8v*mh^)?XsyBS%3xPzsLL9{4jlkG31CyGr>ef!THmYpwB+*SS6+2> zvNQv}#;?BmDgr{Uy5_nfkrpaF{DQ8TM}8woW%!@}B1AWL!Pe^++{)AWt!?KEo z^@yCe$(QJ)rKKTxRF1M<(fOct{OSCPPN8e9b?i|~-yP=eBj(QifT?4@p=GzBc~TeO zrEl7;Z`xDQyhq!%x4d<)Jh&lS>Y%yNFdAkGKK(PvVgBapZz4(&p)>~$AAk)W1~{g!#Hx3QtS_q}(?tsof@YZjiXQs>AzK;r+_+0YFi|UmiXnt3RNO z?3V{8;X`;^mH_v%xmoCw4vn}Ry5KaD3yQa5C33vL$fxs(m~Ou3%ssf{piUF+cQ@XK z2Yol+-Yu-@m$(L{wIdSunB2QY9@r%FZd~8X1bg z@fpI8ln}w=_7D-`mdzkG9SGE0V<&{_z!$n_%_sEKoK-lw}eE4x*?c6 zMFD6`j{;O$r!BST!KFx}np&tzWw;$JK)9WBREQOt6=8_j4nS!Ez|XU3)f09*CHB+; zIpKDa=|w@SX&})$*|SicD6vhrof`b0ZlcmN5=|MB5vAauMM|6uDLe#gA88)p@xlZm zfxVX^Ck%lA*#npak2KRGc0dtTvJ&&BDMX4PxgQaKO04v`V5;d6K?bEdGB}`jy(2_X zVF&BNY$n_b!x-WQAz@pX(LDm?WD|v7YyS~~T1QY@?Jsxu%k6=3JEkUsfR<^?9bsK{ zL|@>8Ua+H|U*=vh8fBARwv;D4J*^m$*7&az`z-1Xg#PBJr{|R#_V}*G7$Q801ks z14CWRR2MgSn$301XbqlbU0qWWU~)p;-d3x(-QsPx`a7+`4s)Q*9B4HKT1Hvqkkh8}xEPi1{~70}Q_ zVT<%75FOBan==Ya;VJ`mMW(w$hl#5jU4Hu0D^_F|%FT5}qOz;6orjh9o

    R_ze1` zzY(m#LjA+9zj+DY+FaRpr*q=5+I7!4H@#-t_K{=qtICZZ7{_0>Ys;x-l*L0 zx@GN4mi4bzuKz7^^QM;C!0oVR=}>4vK_tG0S!j$ZBECUWOAB@4mQ&ShpW>;53g@74 z_#SiroyMNSrk?%go&)Bd!{)97rmp?QPT-)a`v_p^K5FVbF86Q5Hx`~hsi~>Sqs;BV zdzmN$%L-o&)b$6|%@09R_+4eu+sor8D_YKITka`uxmVjtP|md4mb;aaBPEu; zn^zQLh8hACj)fZs{Yb&C$y9GxKl`sHf2rO+_r#KY#QtEY8yBHMa=q9yCiSn81=q=g z>*c|Xs`~9}Jhnvk$s6`6>vzaQTcy4Y63-fG-D-(zyjUN*EuD@39ZUs`Mh}f#=;$NE zCtBh#Lwq3f3oR3n(CUD|sRR zd3T$eBZ$pr(>?uufATG~<95065g}RG@*-`vq>d%^q7rMKG?*(1vQT}4aao7^I+M{6 zJ~LrB&mdhSQ`Zu;Wl7~D%uy0qo{99#Ahqq7IZC9@MImgaxH$}ae}gc9OQ2o&_xJa>m$(eqsW9yWzXW} zamM@xZyP;LW)CsTD}8O1{`RUsM`eI$Bc?#7G0;Ip5^JEV5`abR?*@lgg}Q9vPQV&$ zvjkhMp$>+|du;W+wuZhcAkt6J*l&vtIATN2=#aB<5O6dO*rJ0#6$5*sKTs7Nu*a~H zwDzXK>gM6>d-S$U4%nL# z9Xa#wNkf;vfB*M`hYo^a<}F;YI9CBTMO^rYe;|T?asf9cA0@CeG2xbE6&stx!F96G zW<_|rs$q{NepJ(Zry_p4A_4<`yCSqn72c)_?Nl}#R5jlt2;a4+u@(^XNDoBpLlPCWG*9IhRCP=2T~gPCEWA%1JE4f3kVlWJn@^Ut-mPspt!+D_?ZUIq zqw3Db%DaF^%Q_z^Z$GPTKU>!RAiVC`w$(Q+C)|!HgXC49lhl9cN?d7jL5gy^5(yAU z=O6SHX^D?0WHHdRxf72ks^~#=?2syYSRFf99zUpQI;n1bSkd}`I(|$UJxrz^!g~Q( zXm_!x=cW{L8Yo?KX*i}w{Z)|s6I+o`D8F)25PPn)^)+7W+okOvbGyDM==+K_@Kw(E zbiwd+(cpC9&~)DTboTn`%xyE7duB2ZT+D#EK1Gm87@nBx%MVX4IW)8U;7rQi3(Ln} zyR4i=GJ_9fgv5ucIx|(>IqI%#gtRSwq-}wRAyT80 z?C8W{hKMs@b!K)|zXH>ggxd+dCxsM3>_l22Oq&E=rWVLj^Akv8NH`VkkB}!@kw<1Z zi5@=NF3pt!WM#f|MZP2@PqI8uigaxN)*}@RHbHek*=r{Fi1?^8u8av=oh17Lfm0Km zCWm31)v0m5IFn0-bn=oI=bXjqY$WnUOFK(4Q7M(ZB%QsCX;D)THt-J-Gr8jgbr7GS zQR8LITo?Z#ViphRHvtnYXHVP=aRWxOw+VeH*c6aNhZTVp?MLFoV?>iAG~eApQqcEyHkV#Ch(5EvW4dIIba z8^lW|!{qcO!|g-hc0liGUcoAYVMRTV@ioQ+X?IsQiejJ!J!Vv4v0roD_2}TcO_}`b zZ@>N;o)drjD~LB~1Y+wAw;{xBOZD~-T~q&4yXQj9&d+N0OuG+#<37w_>TA#L&wac9 z=-KnBd+&Moo{!x--nI_hkLf4a?RYzl8KJ+UWJ{yP2?PA(C#bR{3huRyK7k0$Qd?)u z=;^AVQ`UjoD+i8O_8ql$9|o$>c21dFCyh;8jj>IDzHx(~s%7EwOOfw%aJWn$K{1{_ zre~(XX5g-C=iho;dI_|2919CA(gYI5{%GOqOm8}ScJIN?NUdH_<`cVzWPu4qaE&6g zK@r}pitbj%rc^*=QW@T^iR~|MI-za39i+#v+qx)Eg-nCVs^3sQaCP7Q?c4AF{r$m% z2XPdHzLJrVBD}m_WbcvMJES#3^59l=^nj*uzbv>NPXx-q4rO4cEV5tSc2d=L8c;T! z)U=#ZH=k0)PN?E1l+hFNh9f2Bp&J+HVl-Mk3ey&-6-A3;BtKhp=#|nI8POA)m>VA) z-4Wr1(uTMXBK-nk;M;OJw#};MC(7EMDew4|rtL{}+asFR$5idls(M~icE7A_e@fBz zn6mv5Y4Zcp<_Cdd$F`eR@G%#D?%X-}pJ04=B`Fk&WXhoJTeoB6d5cPNY~^qv&fbf} zH)hv#7S>PBqyf8UQg&ZhGXBy$zU#6p$XAOpHocAF(BO9Ha!8kfg&GftO2fGg4-eCP zmFOoP(-OQ+J{XKcxSa)VuR#eC6#hW{zD(rT5_xjOA(jkYk;vcDldb8`(F|m%dNQO@ zP&x{25MmbxGeo`&CM6fV%?Y=&jmVaaAfVJ@HNbS>uL6r5COT2b!QPbK8CC~5gNISu z=n|i=05j)Fm{tms2Zyh~KL3G)*Gj@QkuW^cL<0=rOE3bs9ej=&NsF?DNa0AzTO+nK zM~qBgD62tPJ=rDx;YW>~^W5JILa32)DWAztupB}2IuUz?S&nPE0lR0i7t>|pY>7|7c})NK|Y z6z>)a&@!cK?2v>RCOVir2%>Jcg*xV_C9NBR+`r*y?HrPY4c2jJFp?*Ri95x1r z41s|Pf1kha-HPCPB_xr+MoG=M!m~!<-yrj?m3Y?(YbJP>zEo}{oU!pw zq1B`4zYpOF=s@MhvFJkA({`>bhONn`C-jK}50sN-e75VfqVoeq=Z9r|pQyXv(R96z zR?+{7eCTue(0Td5hti(kD*E0~^u8kPc}>{)VxjxUf^;QZMt}WlLY_&#R%G9zC$MG1 z7L0t|qM|I@9r?{46}5d{(D5a!`-|-UuULa$+dp}Ur+CRD{b_T>FdAB z+%}!Lb2=S!sql5&Im6mIle>8)e*?6dX?V`CHeATwGLyRPt0luP%;VNv#?*nORs3kE z8vfn%eoar{|6|K!U?%kkktP%~r}>iFJh6+~9T z_KCWVm9=f-uGX8>}{I%_)fU|iBY7atd7u*6DL}HfHA0YhS5Lu53(O825(8x%T zWB~d@_`~~uczU0~ax^LfaeLJ7`ZhX+ue*ob&)Kw2A6VzY`KJ+(8M@E`)xHs7Cc1YYy zbA_gsUA1eUtXuO4RCmYt1J2<)or5RfmSb(-WsGmsM^@{>>Y)*xuUB8!sjq9-*R@sD zwTVrhB^h}bVPtp&mjJz`+FlLwd$4~H1=_F%kLP$Wx#6Z;Z(fvwM;P2taLKgBUy=vN zgZy`Y#m=}d;NzON;Fdy}MP`pHYC2W!UbS~XT-_nEx5{g~6`nqsvqNNSQn&}y{?)4R z7U(mjRb5MR1eafNB~AZG%|(oM@f+evK67yfE%}^LzVlXul61>FTjbu23jaoBV5{7} zL*d`5fIEsME;Nvo&PdCTj@ZyZpbv}m4U(!BMNPNZ-pSU6F^LAz9(oMMqe3?ZM^ZSv z)M~ZKE22k4ff5?XgHIq?`U;y6IEL$`vyg~ifS`4AmVxbiQr`20yytWE;AhI7chuc) zs`~yU9h%{f%m{~Pq{GwVzK^BdZz=oUlJ&nM>3)mtIdfZ{?XsU9pj zss2ZD`aaB=_=>f9ItN%YowJGvHTk0#3Pvv!PD~fAoJO0!YC3E6SIgU9yrH=IvY(Q; z44T&zhnu?u13{#zfBUVs=dMJbKAfUMKPVU*`U*V;!RLt#|A-7l-pgE}BS%n`EwE*x zM!BGdXfFs~LMla)>;-}R2;O&OliJf&S#WfRv`)fE85hSQ%w{Sx60@anWr3_M1^p7U ze3q7}p9z>57B%rFr0uL@A)$1N+5MR}Qj0yo?R13YtOQrX>ShR>aQKgbNzz=#zXimO z*-!MDL;=VELvnnPK3R_uh|Es4^ejH4b>xR3^Q0sJJMnb^5|p0FMW5kzHX-x>;PW5R zJCqs9#&cU6hN{?(F05i5rfPy0=5Q-9tj1T>ey(>^x`bAgT3(*Y>{pP zylWO@5TLOSsA4*3s~UR%TeOe1*a3ox14ebE*AeZzgxIVR9_@3*2VC*N+W4TmdAP1+ z#0^?*9s^y2y6c+9JT2pOZDRl->ekUZ!q`|dQHS+p>zKD?41IUo1VwGzgsW`=ZC(3> zr+vJxW3;Yw%-glv)48UuV-?`(Smo_l>BS~y*hJfb5k}4a7M@bSaPe}m8NRw$;7D-% zC&>_Nd;8IO`pKtJA!ulLh-_x)4i%hfq80oou;vfHC(iA(l;pBvt$y?g&#~#? z$!`KDzVUmW__lyX?bvRgXVVJAAyl_kg2&pS@#eWz%|N zWK3qmX~al_WcNW=1BoeHw{F%iH1PmoG=noy*_| z3VO#a0JDnN6Gz8_+YQo2f&9^-KX!yK5pJKqus~{*RYv8GRz*#_vbICyhzcv~C61`r z5f@j6_$H6k8WLM05__|>rnA%ix53;3H|rITDlA^Py&@2vPshuK&&e|sPKZo*k^w63^?!1Qxn|S#D^yopcN@~eTzSK?o7v$^{}cH=e<~dKiYV~Fz=guT3sB~< zreN>_H2K0I(z1HKObb4LV=ithKTAtXqgPDliD0g%)oP??$2q{|9x0b`nQ#h4fh~N` zu_ylf&!2mK_CxyjV~;+DJ+YwZ-r{r~iA54rX2Xe{#+i~SQHbYeMn7j}NZGnfwl;&P z=vsIZLT^b2lf#FQSmsbvh<<_zO42Eiq!x%*%slD;#_fyKO91fvvUIisoJrBx?*JmuG=7BH z9hlu9Uo$=-y;YGOP%iq=uB#h+0XuYTn9#9)d-M_T*{Fe1EdvE^>xIJ{o zHvw4hcYN!+{Tu(WzXXm<2afzHaNrOAy>EE7J?&Y4uXok$zKO%`;VHGJ`{pI-7>G`E zLLR|@a}6!jO2}iO4E@gvRaKU@4fehR)~$S6xG|^wiy_Xa@&ElostX*K&FC(*WUPYjPn* z`(OV`^&(ipl-rA>M!Bs~QQf3)Hmhn{WcG-pG9;}Gi>$%Yikf1%u|T9PK%oJpnWwGc z>gv)8#aA*#?jSg0GJ=>Mwb#W(0#X;(_zL_%ovT6Vmv@qTnH(V_mMY0TT#_dzw4ovrj#npO;Sr8Isoc zs)f0#yz0%I@Ex4UDQ^8~r0Om3oJcopzA;rv4R4prg*~snDQkscXMX(U!mf`>dOt7e zxlqsxWuA!h1$`F^`!9gu^LxK2?ENyo?XwK;xf^pF;C8(6_19ic{wrZZV9n4FF<1Wn zx4*AjyAB2+=h#Efy@wgog=AO_87^E=d}IARrP4R9ul+qRT4L zp+x{GqmY2NWmIEHEre`N`V@>RPMlSU@B&uP6El2H=$$dYnVC%@l2F2D9L49@=c)Nn zV5G*mw-8I70qk(bS&?o+8B^kmPF5x+OliOosiVPE zuckAn*kL(jb_R^a4q~6>_Dsef25Jm(afH&&rH(Okt#m4|qfM@)Yn-tWit5-11!fPE zE77Tr4kdw?FrF{XHZt>x&Uk-Kyx$ogaDunN*hGIO^vlQ;RI(U%wTw|w8j3U{ZVbEI zNQc2#Z96bdz?jOe)`?m$^Q;L?I_(q?LtsmQT;p_AX%pZuo&&Wqt=pN9{95Zd=vc=wB;UFX6(p7C#Zz_;pzf8wBj z{D5b8uh!Rj+X{%`L=?hM$YTJPZ`keVgG*7f*lM+6)797Az&8b}x^}yVjyZb{*7hH) z>E2V*zQx(PzNU4JBR*ak88+AVo5H=Oa1Ua#%$}sX<|@S32X$>bTMolU3GBEn%rCAgFNV zm8zDc<=%AL@|zbeUxv!*$YLZjr?9xFbwUq!=)j?=y;I4VXgC64;u4Q1%+|}0m~sBC zDT^~o(z$w;!jq>)o^2;Q)8;Qq!xm)zx%%4cZ@hW&(zJriLTMgfpC_`i1g5lN<$}fO zkbUSO9)IfbZ9BI)oQ{`Ydl~=1TW=!|N4POLolZO^P(LWTCv7q7N;{jkZN|4^?j|D0 z?3uLZJ#~4wNy@iEMre1+p~wx-b?yaX|sV!*i^3hNX$3oWd%6Fc3Xxdl)KhVGoO^OO72PO>G6I(VBUTs8+w;myc^YUvc&^r!%Ap7e}JBL!yBjWa)A;ok~2|;T40HV0Qj=Zf8kai8Bt< z_Yz!9&@skpuqFnvdX&6u9fc&FxQ$?FD}!y}q3z+}9iidvA*>nP78=+V8r%^Y+!^TK4tmESaE~A-)`P>X z^K`Dl%tBTX?}{rDiBs^cM>x{+FFX&1M;&T-k5G2SdL%hPC=(P{JVYne^)q*$Ik^8I zw$i!}`2Hg(hg~yNyZ^n0yZ#coeY)Y)*O8MK8V|qQF!^l#wzGlt_XO9T3amL5TyrY0 z>UePCU~pn8FuuQTc(>NyxhNF{fG$JTHs;62G(@QQHzJI_{p+_7+d-x`ELm$zI7uYq zLU}k`PAC{crEgpmN;|#s$}32&i~4aWDF|mj{GzcZl&H7fe(U_7&wu>k$JAWM`OsNN zB+^N6yUYk~S5-G6Cy&C`AhQPLmY_uMLAjR2DOn@~53cI6%Mk*$C?yLSdu~~l0rL-4 zJOB9cAE9I8a2WG%-;w!iId?f;#~?ABnsmC}GR%FT6grd&*twHX4n%%=4d;M%l^$djUhW^>JXPPpxwCO_Ox-W#oAIkgR6(W0c?dHOY7KBgI%=zS;fASNg?ZQn2&O#`+ zP1oQ;uDS8nRGzg!*Uq-~axDENrrx}YmL-Kc( z_u1Wl$nO1s)%(Ys&Ofr+KFM$UQ-0f@SS5iMR)SBx}FU|qTHTnDR0AHogsW`u`kcyrDSlHXCgES zgRp^RnQ(e6S(aYBEFCS8VknlTm0*-nN?_K93X7gH4&styKdSCxW zPam+s153Dnldpf1w{K$t{hP?9-VHtoAblHreH;CKo503CVn3rL!ic|jZJ=juu!or3 zej=4@#3m0&dths5co$GVwkI;auW@`|{m8ERk;%x&Zi3Ot$ms6I(LIsTJ&mJ#f!NsY z*!b@F#O~O{WPD;WwsLoD4Jrx0{OUGiYDU_nM}sOYb~`r32PTuSgre_6Dpvz&9+&_2HZKbyCJ>l*Uxda>c) zThXaE;zvG;9sGUc&Zi^mPd2PN6dd0d9NPyn2dn$X4~D?);|Buc`@AEQ75)y&?JvCW z0!E{v=s*7t5!=DH;6Rwopvd`)(-jSy>o)zOX8eq2?4)<}SZ)7aPuCV#%bMDjRruHA zn*b?{OoEUYE=1{eRWg(2I#(pKuoPl@G8xW)p8x;L8hk9+3b7q6`rrq+YA3l}RvA*+ z8z>Z&A%!(8HF%3f6*t|w6eYsxumYhFFH>3U8*jP|7m|!!!k9_Boeuu_=bz(~O!{6@ zR>50nhqk!aVCTC|-!*sTkNWqXzSnBDj*pFF?idt}>E2s4Zb||Uz|JvoHlYtBcKf5!&@>qStv512^Ez!6rrr1Ca{<#p`}dd{>(LA zcKxE9Om%ZX&17-#OkwOCtNHg?t?y^Iewf|-5d(BSU^Ts;6Z_o?`uz1bN&vA$B2{2ts-W7`~(|0h-Ai zNxh0@YgG^r##t+Uj>{q=l1tO_WE70~4RxI)OQeDfmDABuqE5cV8yP+adxOJCPDKjP zI7pc6%&bZMVFxei8qzYLYmzNiF3%yk8RsH}zQn{R=0nN!=xpTCEUVLLQ);DCYa9Yg zq62?*Vxn_XvPx6XW^fYpp2c3C%~_5%vt&7;_mX94KL9Lhf>{9s`ZK&i7!MHQ2ZBBk zH)er8M334w_>Ih>eT=FfAXq}PP%Zj4fR;hm0K?B4yaO8!$@2F?cFuXGijO}h%IaR-M ze_(7+aOG6P>Vx5l1NAEpMphq=u07PSa(~0B{f(;*M1j=@qH7Mt*Bp+oJsMkcEWY+w z^ZH})HAk>Ay82*r^&xZ`S089xHPyI!svhmSBhig_M%Et1+Z!kLHH_`4AKmRA*v?$V z7XQE&+)8lYF$X)ArjZ{VWjy-BfAJ-fn``E)8Dy72(HZ2~2CpW62>5M+j$o)GW)t}S zZ{O2+dF+56#Z};TTZ?3&6 z`jv;n69)q$dkul^CF!|fFcfIUP&fpkP$pmm9t$e9>W$amzj#fuhKJF1cUtGlB+BRvDd zPJcQ5=p&E*{U3in|JivwWFdn7(m|Pj>D;j5OPiSU`OzI5>J8+qThawZx)xp)3V#ov z@HcWk2Gd2A9qh69-bI?dcM!2*Z!v0$Nla4{Q%sZt-h1Es z`_7)jmYBT%_rE{uGt8bnXLe!lXVyGx&6>7?QStZpm#2OM*qNe%uR9eO@3iP({$5l3 z!QPTi{xb56dcinriQc?*=dO0$1h%{NvUCkqq^AX@(uTNR(j6V{#SEXuMyM_s_y!xO zfOk_I8bwI+*FuRZvivm&3k*k>ZX^WDZNOy81$koarBo2q3ivMx7DHbkdjvaQQ~QSA zp`n9Ne=A#%jgT4uTueSPu;^+D&@DNZKXB&KY--`w(b5fV-`L8tE2+5~NRH}m5DRt{ zF?TgKdo4z$E(UB@5FQo<2S3OS0pK{32=ZjcIE|38>C+7v%}hZ}3k#zVp(^XWKxbfu@Pm*G!tZcFN3kQ)d97>p{^e zGuKR-zH+ibR!y1NAhT9a5wd2=taVdoub)KC+3Tmy-WW4$QyemT%hcJMrp(zqWnNLt zqOz%r%cd;c9<#6{ZgF|c{NmVo#c>PEVi%RfEZ82qs5EX-N&Mo{_$8(BOUn|L?Mz&@ zJ7L+L#ASOEmh6pRyfulbOqjlQ+_ZHQW^S4^W8>tRqVt+M zbIa73o2Sg!1h!8sSl53-Mi<3FkqJt&afx;KR7<<6uy%o^?Yjn#pB9<3byU{c@w#Q> zGM0``UpzW}F2F7vhmsh<6^I#I!tI|~1G$4^a)-v|4~fg`J1ViOjq^YL@ixvLjW3=k zfBzf4snz6_s7`T|)8FxwRBRWV41~j-Nj|-X!?$;_aA@1vv|VS@ zu2xRU;_QLw?flTh#DsQ0Z~1I#T;&SrPkEAFUS6bZ{CA*b1kLhC)g7ZVrVv@D=0eSp zgGY$&#Z!XP!EMRd$T&4MReCd`u1}scnbR>MJ8|*^8N82(->WX0MF|_!6P-KVne4*k zd@;&#>1oF6M^q z#IyEe_t}js>Dnvj-Iju`$4(@FE(c#SFVnqy_ELdBL+wqSnziY|^On;A)H>2tRoW)r zYeIZ~FR@Oji-2?~l3}u_4Z0SLYZVaI0AY@zs_O7NvjD@%un+R-|l(_Kg z!^aQKM6o$av*Wmo4=3tAoS*~4@fA@7Iwf<#gzQDg#GJ)KvLU6Hp~Oy^zGku_g1A7l zoxXPRv^55ye1;G-=c(wuGdC%+IR;RgNeQUFA%4!L__>>6KinAm;f9zwihQ_nDl&I{ z?7R)Jb2rA$-4ru#OWcC(aSMuL7lG0x2}{f4m+p*TA|zqyt^`ne<-UY92NTvFN<`Ki zN?Ls=Y2|^G6+)6%?n_*?KWX&=B$0IO{-iYrlGh$hUUwpS?TMtd#}ikdOj>m!Wp!oh z`pd~%?xt*gkh1ws(z^308_p!IIhC}!B5C#UxW&8UKHNrcA{6^so8#tyx0|QV*%V7= z_C~bmK~r-(DJ(bcfAUQR+fh?bojCRNmtPZFoI*;Jh~g4OL>ksFjOFtHH#Ww(aHo*f z)Z|dhwjI%sCl;=Zoy|aFee9fdF>}__uT7q{e$vbh6KAeR!1kC~TezN>85<@~-!O@^ zaCP`(ow1c8pA|C}X-e8IMdm;MzIp2=0|cT$(mu9SpZ;Sa5@rogo;^4wZ{T=M`1rKQ zDVZY@3-J`izX*iKA4$0VV{MU=I3qG~djGMhrnW4l^folFoEk~vY?5qAOG}fxJIi+7 z{pfCWbu}Y#Jlk;uLXnn-WGZp~!Gi~aIU#UX>-L@@;UUAO^c*s^$Dm0e5tEVbgC+%s zPaxvGPw(NZ`RK}u?S6e(_R%Xi+{L#S%nY}w&P%01(1zAXCCe>Baw!`<(fce_-odzI zS8G^$%%&eSZHfI9VK@N4#4v0^&m}9>zhY+G~Mcexgwe}L&E=|v~XU=B67?r6>FM~}JKTm6)aI1i5C)O>E zD0GaNWf!r)F?zGZ*xmNgTOA_iTKCnMcny26xiBBI$vdL|QoB)k0eklfY-i;`&egKL z2|cO$Imil9!wC%yr5XfL2UBMgTp1M~b&2QrHwqU==?vr0&CIczxnnoMqP!^vbzLau z%JR@=wuX${B{dScs7|^tHlTqX3(`Nz%haD9P>yl~_@XWqDU~ z4**sbr72H=u|jABby^%%5xzk)mw@jrcoj<}ReBRqlek{O9_rG?!o|pvMqChfg>o*K z7J=JRjM2=^UAvgM2roy$(uistlIpsVsk4!(6JksW<)%&&!zKGIQVfC_a~1h;tX3%G zld={}%3dgCBJLtMjpPU zJeRcoO!C^3@k{o^FDy-%zderO!2FVgCA(sm?222uJAUb&_@#T}7VnMHE;hDyK_^sa znloXCH($&#SH3t>IopM|nrcj3eS`R=T-~V9)z&#YCTr4+wJ~&jbaQjp$IV@b&;w5W zaQ&1yJkkx|{1o7Q_SP6Ne%Uf*)~1QmRu7KJGb|v45*U9UN(EyY!+sHeJ>44a^rzHI4teRpdSNy9z}~b9Xz`a42hW3bMT}d z5eQ^Ew$yQf1IGmn9P8hIbO39bi?z;&`}bl!^r3G4ecN_4<~C(K8F{B~r1Bbs?bX=I z(!s~hGsMBCm%VqWja!g~qo29G4`OPIw&v2s%)WgWi)Jm`VN2!7&}DE*Fel{c#K_5} zCQY0~rs_-;Cz>=_XD^-21c*bbb!0qKg60jmYl3jCy8A-V$w871vJgu5;JdW%)ITOqAD?Si(}?)kDa?c zW?oV3{G!-}#c_*E6PBQp3(h2d8B!jC$Bk_xcXq?>cfd^jwG%<62JCn z;>J@+n@>wg*?c-}^BL`yv)awbxr{C6GPYLhwx87%pVgHJ$tbSQ*m_#Cr6OZXg?4L& zc3V|OQB6kC^^Bt1+U>V9w%^hg-Pe|UtKIWlbF?<~NUi3;ubS<>4wVf@U00Asnyt=&1Xf?nW zYwj=(U>BPntSQfPCt#(W!Grr+qjw zZFcxL1GeLI$DI~VDSSuyrju#wjwYaeCo_AbRR?1k+YR4!mdg6>yYDz1CR&x;V3$oLf8;~Bc;TXa<}%oe zjN!u}l;<`bP0gLUIRNj$!`*v~fSGaaKFT?Gv}2F)4y>Rza-sLgHU817{YI>HAF(&S?eQ2)xU);DkxIQQXT}3IvlSTEpMpZPCJhh(-U!_Pz7X zy+*b-_a^9E(^ef>?3L%tuUOmb;>C;d=Qsu7;9=n*^mamZIrd3*3e$+RPl8jgDNbBZ z$T-Iy<51AVx0uNMPM#a9Y~ix=LR#V0^o-Ah6I31?{UQuQ8M9; zQ)$W+p5y?#Kw3{@8zEh--KAiK6ne6tvW3pv#oQTOm8dSPla{Vst-xw$dVGW0+*o^; z22G^|Bc?!9f&b{$Lh}dw=`}?6VeM&TjSlZFQbr0~iO}llJ0!3(z0_3-jTnBbwD5*i zlwF`(s^tQ=6;$tJ?%Wws;9ZoMIw54FkRP2TY@OIW$7N&X#3s0SY|av7T+UKtV%~CG zN~WNn=dGAR1{V={X25*r2GS|h6Zx2Zt>3e#k-KWB|GDm3W*0lSL{t#xj$j$fy9-E5>_8c-cXsk zsXBSn*@O+%Nt$Dx>&}w&aSg?0)91uXMY<(e3&+WA{_t zfnRmUUuurONI(7}M(%&dkZH-^BFLG4YN8 zp)9LPq<6~I4O6U>6Me*6MwSj(MaSi?nmBF!_~~oM&s;YVzJ2cIsq?qRE-pz}hRL8b zc0qB>{F3-ZJ1{H6^LRhp0*4coT-Ad<@YB=NId4Z}a{@JwPMI}cJAXp@hoh5cj1nGGGondTXCvX`(+PA*M*x`Y z+P#aj)Lg2OlQh-4AVU|{#mv^$y&Lqn1V$NiKwg6kinx92b{AI{Dsx_xaPRH|dxo=M zq7W8CWHkX6!)4*}Zlr*G*vNps(Ez)D@8K-n?(7@ds$FOB0n;H4mR~&lf|g}!IE4Zr zurB6yo}NJieR>Y{4ISp)bBI@u!CpOwc=i~Ic!Ugb7f=u25AqBi;tR)^kI;v!c z;@qd?a_0zXWw}5e(9dkvm7<0?z7Lir=0K`y~m#=$j2UZ z)7^1e^wf6gW6R8{7G9A=V(i(g=Y)w9)YkrxA?k4_w@&^^rrmX2oWh&6HAl}^x>tef zazn@FdPJV#QrpfJPTlOh`#JaybO;y0C%D%YJhPdofZ@^bL`wm z#^%f)m%DI$&Y}sqOD5vJl8?U%#=%vSgvArP=bD)5LZ-}EGZk83maurn0^^E6l8elT zkmQ@<=WR)tzl~HORkp<~*cQ8>2#H&`9or?Uc-)ebSY&ZotODJ!%XTKL*p;+$Z_0;&8&64$#EIQ)a|;5WKGpXzphl(qYI=I%SXUAMJ6 zZe{Gal__QC-HhFzXB>KxdFppv#S3l4OKsIl?b%xGS-qz6rKX}b zOhCkhpy6>n$7%+|Pm9c0JZ{D&xS(XZKc3j)-SLZdCM+n8o4XAjY(n0$sFdk`eTRLZ zto^}BiD8bD`LW~2h$L_LqVZ(-r=T5hB zBB3yRyr%bvxLzY-2TafojV~mSvbnv7#CG`;ECnpnIdj%bnpHnxIu~<$w{Bt4o*@I_ zTPT-vZ}|y)xHLYp;Na=1)03x678ld0t4~OH&q3qmDvF^I6QuUeVlgQ2fP66Pf`yHM zkn!#w?(E&u)Y|#|4}_0B@p*`NP;s(?g@mz5AqL{8_L7peTpr$ zNed#=64a%gk&QaJOkO3^^svA1uR-mXCE_B`6Fz9!s)IRBBY2W4K8oEGdnmweP}fZb zZX0+NnQzd>1=AwL#>2!KA>(ZVuuE(g1iJy=QPd@~ZGd-c1Gb~X!^{{68R=LkO2Bpn z*cE0*MPSLpv)cf$f7II{?G@gh3UUab3=l;7DuvDurKT-YgHHZO!n|=Ic+Re|B4pT= zql*J$c63$urkVo*Z{UGK#ODg5lWm<{%s4 z#_`z@D!Rgx$Ik`Tw*u^>@o4D_5P0(K35$vo78l1YDUMrOny|baiC?}We#M@IRr}&s z9*D!}xoRKg&Xlz$Qq~<$g(_c1=48TZ_>Ggv@Y@?NByFro*?cv<=$2;t?X2<#nL9tt z*!`tu&*Rj6&r%QkoO0low1dyJ2cK&W{i->v$kE@lCtqZouGLiOk&M&&?8@4lQ_r)H zJjprqSfoduW*>Q)d*o@((WiMwe#|}gbJoe{8E0N-&gs)H=+kTT>6dHMujtb+>C@Py z@T@+)3XuO@bLxe*vNoeqpH-pHI`K05_>1i0wOL1>i|*s_W6gnY()WL-J@`Xv`Io)p z7B+3&k=GRuI=<*5$BumY=*ye8Z-Qg^QGl+z{~Sg4a|jw3I$qb&+@6=3)oNH9`qc4L zlO{~syL<2XbLXYzDPMcu`G3Cm0ds9ogg$7|rdgYgZMs;PIQsexnmQ_fTjILPly#?* zmmN%8yeDbF&iJ{-STUwd-!w|Q$hU8ly7mX>rI-2f*^f`23O=0Kqm`AFj1D*jFy5}S z3A_n&38jk#6grsf8QgzV^7IM1MPt%F3>%qf?-_&(5MtxrEeNGLI?hDl+rcLq)ai71 z$lxD{eSsLir6r|=P{51}h|#=P_b|wO?82OGaKvEh)7kNSINiVh^>03KZXZgPMTq&ydNzg|IpdOO{W8cn99Q4;&+~y`m|>7r(y77EV}Qc|@qb@^rMB5T7t~$WZC2f-4Tf8gtlHVQe_c zHfrQ3D0fLLi;nDn@Cp^1JW7TLGh7;!MQ1B_OZQMqkA5PmVbDaQ$Sk9b4Q9(uTWtQ+ zal_Xx%O1Kc{>)+Hw^rppT9iKNGVQ=S=C0fleeuID9vUo?%1QyU<%U$iCBm+ZfU4>f}Gj!7tp-cc86rxP@CE%%e2jqInB( zGmSPT#L2yV`}WZ+x_C#XPg;95$5lqT3>H#6c<`V+yP268v+87?G$lPHUB_hYw=k`? z?qCLsf^VUiNhBN^rSqZCz!f}~=acSa`vP9VO9f!4Gi&r2fcX`@2Dw_Rxu#FQuGieCOTQ^3?YchwYOVGvm@hZ;_`CzF>QO zu5#-h!2m(F53s1SUul^_%$+g=jJImvnM;yiD^n&p3YUUS6KBW?c`KrlXL@#*%m0C* zZ$Tds{?WlVv~>p@RNj)L#2Z(x?&1XvBw9OrIs5ixLO(6bh$~c}uOS7BW#vmXmuRh3 z`%Yfn2eQz)SSL4fD$C&Zj*JN%Hnqp#Nnm?OxPbSdu#p}?VI7UkX_*G)rh4Y6r&co! zRfO@Ha1hN2(Am|>!okbNr5m8#v_%^M+Ju0A_x&~q2?KJO*?T&98SAF5K@PWgMFKyO+Yq{$44sq+=Zg0xZ zXq@oH04Wox$V1|(mlqcoM_(!0RyH}3!r)7_hB7f~n>Wueko=%UTh;>-Y)qig*gMP>%aHOy?{W&19`tm%TA_F5HAW9Bb0W71}>EF24ko~ zn=4@60QCac4cIObzHur*+e)F(1;;K#rDfj8C^ZeVi~x2EVY^gCF?Tj-@`9^@v4N9! zrFZBoQsLa9DDAFY$ym5Zk@`P4ua>A870G4hb*flS)m;^_C9rofecczxL!x&8*i8(W z5As8s3sJmTBxf$r8|$aAgl=KNPTbtB4D;jX79oOfQCRf2`P&e|rK6(bF}|c67CnA( znSk`grAbT5lb7yDTDA+<@%ZJ?=DQPC>`7d)CuzlA2!xbXhf-Dvk3=M8)&BIgN7C0G z)vPFm;=?si|($K}PvUnzCD(;u~q(Z>8_}EbYK| zX@`DHJNzq(dRk>|${Bsy8GU-S9t~Vu15no@+ROS31&uQ=>JiETXOLWXO`mzaE(^J( z&%9HYai>muyH0aUuf0>J`KT`aqq@|)`qX=MNczY6jE_VG&|Z71PJ2hMyIrTdS*N{L zCr)vh9;7z&N}Y}q)zoS()FvPNCM16D8`v&MNQv+=MPYvHAOGlN@9r2D^?pk+?}k^M z`RSx^6nH1fg=y5UfQ5s<{^IoIr1Qc+iyeWKi2A1Fw#@%-MnQ_Fc>v9LTSgIrS7aY2M1O@9@!? zOPK~WXmXZ`jd1>X{O#kThmNA&qrT!yD4A!N0YkGahS6x^m7MR-QGRG-ZfoJ-A;Jax z?Qg86D(g#BSNlGcUUX4-8?T<>y@$uJd^xT=eMcnpj*9O!JT`P#Oemf+;S)jzj_=-o zjAyt0itFQB%(0crq^h@uEtNKThLHJ^^Vz(4Gm+|nK78Q00M3GGl@-Y$&zm%B1xyiw zlF6Ya(UzAqF5~3^Hcy*rv^zzt_dO%hZJq>ppfZ zsCG-<=d3;AoPX9n?|kRTS^sPyMnKq$)%F`_h}eJYmWbj-JVxn|NoBPH5u}-t0Qk!i zZh@mXnG@~G&VR6Dw@3&7A@+XIGD8tNzX&^@0YExbypo2QyM#1vYs5p7oD80yDz?kj zep6CXxB%Kj18-ww)1sXS?`&#fDo@9I$igHKA3gm32NAIW8xa3Kdieu~4=h`;j1qoG z@A2k;2dX5$#d(-^6xh0;cfO79QG6y~H15-j;Zn^ZDC_EW|=r ziq~KK!m?9-29_tSoVPdCIbK?ed)&%Xey*?@C*-Cw0ZXq*VtJ z*WlSABpEGzjX?6$)rV47A4byFAcsh`>yK+Uo=V?zI(75elE zcl8-}^dNsGAb+nmasto%f728&AP2mJ@Z{p&Abm<3-4dm ze*lFUr~z=~yA9|0`0-=luC0}wP2ceMS_l^c4iVCdYU+edIW?6aV;sem`p!*(hh?Q@ z1aI{A@+O*ML_`D;Ub|;aPprC^|KNGS=g;#W{E~I~ySxie^3Olh9eorvXNQ@4cgDg} zp@kEW7eGp^708gB?3|f1X43u#&0Cw;c@bHKd}L%K709$`+aYA=qzQSeClsvh8J*Zd z8D9{JDmW;(ag0Z5LfguY<5m4Dc?wBB$O$_HHU|gVbusO1YC~V3t_%*O$ZD$I4gv#i zEd{nm^ofoO8=cf|loCuhI=&b19+l85GB$L`l-@(9_8Kz9KXe$eWze_n?Cj{0xC~Cs z%wKr{To0JTd?M+3%DO*|RcJa#oCX;qa6Mcb&u7Jo74nD7U250K#M!flSKt7jkikAZ zpk;=-cN=Kq5{UmK8oo3KbGqMt{SC5Rob)HdN!5SxS6_Zb1vdU)vRRoz%8?-`=-1zT zefY>>^6S>Ft2kA0{LpdOl^4$ip@HW-JqVd8Q>VTQugxT;+=ITcYrTdPxD3s89X;P; z@_Mt-#CMt+R03*pUS2kC8DA_`#HK{;F6Ymi4=KbG{`8Yiv$L{4oc$q3i97oE`^U1H z{Ks*r@F!iYy={C3+WA7iC=3j!?jK?A7mnU;4-fA<05dC*{#9%@Yl!hnQ@pN>3gtUS zYrN#7Kzhp#W;j>!kmcZx|F|UQMgRLB(HCNn;$@~X8(};z)(F2HUPUN+{1sKd7l2)Q zlB=}2^mS>hnaezQt7g=^Kxu2&uGSDQ0^3zZT~**^<_&CDpj*LqMak!kDsR&O?1r%b z<@}aHDPTCLZU(|z31Bz35gCc?ihWje4Q~i4y()s?F>lcD&B1&jMi!2WV0Be&sec9U zZ=gM7OT5s`x5h!OC<3G>EG&*^^5!D+@bb7t<*^IP;_$&h7L!3U-;sztR0<9)f=Dlq zTd^a4`OcITyVF#q2|E%nMVY+XH?gw zoUcu+(Wk(ZUs4E`>jK+_+!P3mT27h?6f0<)b4Q>1ksd(KyjQ1tP?sS^!aKV9eSPYE zead}(+I@Y-eek?4<72%RVfWKo-NSk$^NYHy&+BqNug^oisLTJdF8_ z+C(hLVNjF!$|Uo^Yb@8e2iO^#gY9jsY^?kBe@_YJ%~3QuUU)Y7xltlFnu4yMGHD7K zx&8g^x8G^fq*>?A&e0=A??0&h?4j<{hlw?pr&LzQpT3lF<6+JxKj++iK6cv)Grt}T z5F`hJEl=fSs?Su@_=a^GWQf<6xc3DOk&bFa8|DxvYT4c>WJL1h*`*VwZ|OF83R9d) zwv;qng8194c{6JE?$aA1CYl(k8s32N;=yh8E+n=Swh@ahAGl)4~+#J1Q+~v}V9qZI}ohpBy$ax%cpd;DO^Dyn5jMD8~+54;S;( z)1OH3!6R+Ff$daaI+!%DimU(I-*)fb-K41?$E2z(3(@C|%xv9!d;0{1`}Y{?*K?TA z-h&3a2Ml!d3bk_d!<;H9*AOoSD2|J^Tvd5lE*d4lpXVQ=d0nJc0lG_vP<`k&~CyIHmFj z&DwP6>L6XjIoi9EBVh2iTW@=R1Xu;*vdyOZVW~orFTZd|&E{ z{i!SWCqtgEME1q6IuNs(*`P<6IwVkfV}*88rFK&luIA}m&!!2t^V4ZttJ1ff(QG@D zv8`GNp66TfKL@KTHNxk-Dt%)``UWunc-p!nnso=#*BwkOQ5>$P95Bf z?jw;3O&hsgmwgjXrY`H_x~%(kIsp8xo(j6Vb-Irg9sXWj+5>&Y=XJoi?#sH2NA=oA zb-HirGQX?O_#UatdR(9Lq(1L)ecsbLB>#u{{HOKVU;R92#fBC}!a%8hcPh|HHI;ER zfCl7taB{XC82(;MgWj(Ck4aQi)ok^(#{s@+hYsy*?X3Is@r{oUTex8S(WB`f-%Gf8 zGjii5?}-!b2Mll@Jvw6L^2BS`vcGve;qVEwpkO)?=}#^{LzxOSueP39^P=&$-s)uM z;WaF-S=-K1sg`GK(b1$=?5xQvD<;g}7cexQkclHAN8oYCH+!n;)QC|dun})9+PZM@ zLe{N&{NypZsB9dRmeVlV#g`j{9baqPP9~`CFgdRY96-3iwkU5I7k4hEMcaE3s;TVLWWjCTti<d1j3)W2GD_2Fj^C0(OJF?Bf9qT^x|!d9Nu`y4rNI=)xRN=J+U1>0NP3w*t?F8;q&2jY@1M6&New_YDlE zP(Y{vYU&tjHm)OoB~w+6SJm>yN6AZUSJOWp71(Y9@nY>^Aw*Hp4IPApeZ~ulC~Ut0 z`33RrEYV)3!sPl#F*b*mK?D`k)k0vqk)?!p1=u;HvNwO7ae{tPP#rL5#!z_zKIbCb ziXdBXK966vBX;R79PJX9?@wBJIAzVzw6(|6*PPO>Ii*>963>=|b;lFdpG??Tk+``k zW$U^0q8i=yD>`NaZM&9HbTy;+igtTV+P3P{ZPn@9FK9|GDN>^?xs*|IIfHcj#f+kJ z+U@7H+n8-snX&P>X8pnRwfoc8?bEE?uUUH_ZR3&TO~;eAoJ!eRsVzRAQFcwU>%QjD z_u3P`VLVMcEogSldBMgcDcGKh-hSz&_DXHW)jAMfa56XQK=@2pl#lf~bajP4$pqD} z)(PVMBfSo6zh9U6aUHCSNWpnD`A_P!5A~Vf)aN{{&v{mttw`=q^*KM)=l)!u|I4ew zUtdl8_0^09nfd(HjOVZNo;@G6dtW;{J6>!iC-MTLr8ItxWu65?K{>OaAlK*-?<*_o zQQkOemiiOO6Y-6}RCMj?JZxCMS+ho$m&czwmvQf2?xRNqPo88wd^oDK)FLQ|iGO@< zZ@>F)2M34V)2F9gy*g&sE+bD*e#?A+8vMQX_vbI3t1Yu)HIWUJ5Ag4%e%%9NG%Y%d zE{TmgECAZV$h2?X()iuCCa$RHHX@C%HXOoDaaiQAv**s$N#ZQ6VE7}PI1sXvPP zIPHLm1SrcN8e1?VHjfzc{YJB#Uvi)5gpk3LLk3L@4jX0V>?5ZJ(3*5HHBjG;l=p&y zf?>mk$qAuw{?P1ZHf|{4wr)X=UOfo{Z{^}|<;-rNn_n;Q;DG@>hj!}~84x;5=`^Zll+0Cez;kixAynd3HN?i^_C-Pg58w0p0y9=*nT_8RNfVmmZEbAjN##;a^t0@; zKoXr@>yBm?PC@qG{RM_Yus0F~?L~==&j4%h{^qVdTXqorshnzxo&e_q3ByV0OeJnJ zC7G7-TBq42ir&ud(IaBk65~_(sx!o3?iI0-IfSvbRr{{(jjWK4Cbrls1ttrE-C#MD zz^@YsIGAG(&{SBuObz=ZQ+F1E@@XwAtHm(wt;mw&mZaO3tSjpVO4o=yqJy?Yx??<8lU>@~fHU zS2D{kWtK3d=%Q}>`OIzAx-GyvM%5#lO~*1epI}#4bVgHpUQ=G9Ew9Pkc_n-AN12De z%sla9=IP%vt6$=*qB~ccb>U^^g%_D3eW|`O1RYF_Ft{HioY&D)qSGR`lK%Vle(-2b(s(J>}GymoApI~*4K3ad;ZU_ z3VwN&|LZG(=Rd!i_VcS5zq|s;XZ`kS&hLu6cr{0n*)LvAdtN)`%z4wmAYfLV*?|Iy zj>Pzv7h5Ve;16vD4M~8g=68dW5?(y3|Wu2HID^*#X z6DYwaP3dKVedFSrv=?TAl*ANLwpQjAeP%C+J9>HS`Xio0CgJlyAwL;1WQcP7Zw&dF zbl*3uFOGch8{!1YCPPg=xc311mjW|0GoZuNo=JIxG5II{)vyH8({kSYc@-xrWNUfZ zf;Iu$o40P~(ycGJ9U2+mZ*=;=iJ3!U^9ghlF*OIjdN>(a_ujb8L`>`vF}X+hIBOR_ zTwnNU^zdlX#*uBFK6xrHX~v8hF)=ZsePXYD(9G1@)g!RKZ_h{q7x)prpm!8e$ozT_ z_vrZi1g|{%q?JmnT-b!EL)@f0Ds}#VQOlM2j-d6 zX8<<;WnP3OdNas$8K}p7#&yfY8VP{U4l5h~gN@ zD=JF(_rLv4b0*wcdD?jNwnt0%Q@EE#*e-D%gqLFJ*0W7#;Wb1cHT8C+(S-4u91cjn z{oVJQwe4ahu^sEbw6sb}O8#*F-u>cI#cJsc?CgcHQu-n)1PH*c&N%|r8{v6FxBw9` zz<}*4Apa$>H!cK+8v{Fe^|${&Gqfg$0K5r8fN^VgNOf~kYsGS^pm$@n9C$YXyTZ}{ z?0C*JhIfU5dCk(O7~VM37~4fTz;1wgq2U_|-5!BZO6OKzl>TuUpus42Rj zD`g(&HC@^D%<}6QWtTI6<{R$s$vFF{k`e&hG0u`)}tSyqkC6PVW9Yxd$KQocJoM;&D#J4|!*P%CG(Ys9}p5-IeKa1USzvf){E$71X?9)GFS3J!*`y7`Td|d?Pa!;T6NnPfrdffx~c3}nu z)iXZ>%hqqFsn7qhe%ep3rvFqw{pb1_ztqos zUO)S{S05t3znc3($cF;k>k_ZtvL7@U=w{;umOu)mgYfEy!0U{1RJZ`-z2OIW^Hs?7Vwf zy9J_PqpE2&S}HJ0S8A0^rC}~7CF|F&=R3#Q-p(r+qzw!k-DAjCoLQttFqtR$tbI?d`!tOqUCNQ|CAK|x#zs-~H_MOO=Z zCN2dH7}Fh>n*rmx4;UNRZ)yh@Jj~-`4!@3^S!CO+9yJU}Jp+mPJj@^bi2=gUecRw4? z-nQO-9lAxhhKvxv9y&&dfcI#^i#2T}LSMFS-8wxjouI^%r%uL1OIOS4eyVAb_CasD zp%0q1YTB}0%XUW0J#E*;vTaAR*6oa2w(UX*K@U0_+nU;VTf2qYp|txz$Osi()z!&Z zd-Sz(?``GQ)5^7nrAr8*0NQkBF_eGGdt@lb|4y1(&>SS|GCXoPCucAMw&Q_Ap0@=L z$?_e-2NKntS!UA;rpXrQCR(;P2J8L|;BVl$x~tM7A_HgASPWFmU(n`_5x#N$4?l0* zR71XTWs$cwV7s}E2LiS;GeXIuy}wq=1*xv^Fr?C`3cRa2yy#OJ!8^F!SPanJNG+#C zV*6`^Z@_j+OdxqgYfjA6FzET_4hc(l6W$g)Pg=e|Vflfim4}ko924`2ko5%GI*q!X zxaMf`h7*`XQ#VyARF1HI^IL&O1-gZ+4lb&MOVJdyE}p*S|l#0K1g`CAJe8Sib+HfUu%#;fMVWg2E+s zh1Z;6V-41_;xf4-DmNSgV5RX?UJO^l^~lr7vAMX~=FQdm!=v~x#l~6QZPpCWNDe`> z3(#N&P^-4BOe_dAKn3`g<0p=X4+@5AN8}~nE?ozOFO88o5hg7iy&Swk{KKOAj85r4F>B!DoQRmbAye}P zPs$uTF=Ox~UH>sDzC9z_bTHzooSmJq-wg;GAhAVussDcUZ;Xbt&xyDU8OEoxk+F%D zqkr#VJqJ(hJye++HF!dgLE~|)q^H1hKCs`&ZhfPX0Kys&k*s&LkX}(>JL1zb(%H8k zYA%RGn|KY8Hr^mQSdzPO33(p)kfB4ebF#-z7%vYoa*=Bq;-F$==j#wS%&qr0myl5o z{)5e&gNOvxfoX=8ZWb=x9Rmir1}l*v2@cs~giA=2wP$aM?JPBgUrlLQDIiZ@IcDsb zg^L!ty18QAmS@2N-rmTXB?3E|*mp9;I_YL==WF2@VBruzkTgrDKx>!owr;)bJo?&u zD{e5}VK!cpa%Xn{P;c$t%hbWYvxQ50V_OIormr#)2}VeEZ6}VMAb1W>7_%}H*2u^g zKsozcoSh!z?RN~pG^DF4o~}%JfF+YxNXmb_bq5nLQ&KJxz!lIIQ;<|VS2HTGQ}SnQ ze-nod)c0$s|38uZ&lQB$ttjVYgpe1rU(wY)EbKgm-frt=W~->~HiD>ueix{&K(|oN zrPAJ@%nL|wznEswp1kdPF)U8j33u!->b{MUzhVqea@$K*`L*A;|BAvE?0QJ)aNTQ z?W_7c03Z3TJ|B>OT$lU3KJQ6g;g4wYucia_zrfzqC*Qp15a5RtM9+eK)f_AVa~f6Zyf)VSuJ)%>N`H8|J2-w_`;~9 znNbPThsPI2#^&`M5pU<-t#QDdMveXVx97i|K7AUWItpQdppsaehzn@hwu6&*aF0P_ z`VODkFKTMv$jN<%P9|_o1GY2ibyT;$ApEF+J|jSNskbW#Kf*UO3f7%qVr@DyF;myGBY zJJUj40*AT;4Rr|~<{UK4(!EC$WquqU`;D7r9+SE&RS0ax&0BXwP~Gu_L3?lAp=$?Y z>rN(iT`Zi;9Q>@^L+!l!2`WZqg3L=xkux?0o9l`Cbn7Hv9XNfg-LK(IHE zEdtwBF#oH}AC>k$A^D%7{?E{@mPo%!xvS>MfZmP86acq%GeuXob+@qf0M$(tY?pOj zb1w~GPKkv2*9a`8#0pER#Cgh9rM-b>dF{|HOAMf`uA9@3vqH+xW$(P0v+Gjk&KkmYW$n1YZuZU^uss`8 z-*q`>&(-Wbm$UX<$=!P`f8ULQy*CQ?-7MIDD}Ue3ynWa6_T9`qaI*l}f4%U))xv{U zryaObc;HIGfvfq4Zsni&B=_V)B=5w-oMWF!$vgHi_xQui<6mZ-`W{U_=j^kbbH8L? ze4c&fx9m#_V{_q`oQu!%F2BgV@-p{YZSD=wUY~>i3{*Vwab3}JhF6-O6?C)`ysmp!}Ij_%t{37nkU8ktgsI`)BS68X1 zf5oCo1`l)jwySzFEBo-mV~CU=h}1kOVQZY1C43!(2$p%7&R;N}SxAjb$lrf(|LbqR zUcO{GfxP4)nv$)_vw*z~Vu;;b_j@q~ch4q`L4UaE~U=gU~StC+rMJLS|7LyY+U=$|WcJ10X zY0`xH@;23!AX&_MfQu1889k-z^J$ZBV$2$ror|Iho2dX z>K+_68VL#;4Z{2Nit>eW4;}6kN>t$y-aVr{f`{69^dJO0(AB1m=r`q4RnIFk>dndv z!^Ejpz!er!LahdX8{7FiqM3(|bLcj>y@@@;9D3@pW5>c{FkiKcg{!@Hn3I3Fb3nLL zw?Qt!Lv1{IHEq?N3n0|6Xa|4Fe+kPm|5>O%sU!%8Qf1>clW&@!-^tNuy!{TkG;l4L z5F2kx*Pc>W7x3<*_&N%Im@pfUKDaw}B8p>^7X8EeV~xe}J|Q82UXngVHZF%n{0Fg& zld|zN`0tBlU;ens`z4i+iw7cEN^wb|dqapVL+CBx zk%;e#a90Bu31H;5Vj>b61zw%d8I z@)tq#L!Pl~$=E3LUi@PHESl)UG{|y83A9I{eQohv7045*&D{Y>U|qUly=mYmNjyO3ReQIQMTU^oJ>m!Heoc|La+ zyXPs%*&%jwcGl!V#h|?lkiVF{s|N7TMRs1w*-?|X>vH~{tNFVw7YMnMxBE&i$iMq? z?w*>Q-4}EATqKjb7rBzN|3=;c^!eNQLdn0Chi)(QeB`4%i2B1H=N-GBd-Or>(NFW} z0xG`BIrWuP^7E^{&prKpPSum#>L2sY{giwDSg{}M zDyqwcu)7C$U$%6a`tD1tlivk3F-zg|fLjY60(Bszr4u9khWdffCVm%k_w!FahrMKg z&o1Um>Aj#fPDU=fhDOb2MJlabs-i^&pl`~QDKO-p-2VhMjK#PY%wIq`fRB$~(Y7Ko zMa4zv(k1}`WA-1;{_1JU^?N;YW;W|6*56^0BdNR?d8gb9yE3{6IL3-adv@>Huwet$ z)S4WX6uoL(!}**jH>Rehp*=$f8dunu%GxBCHC{Lb>o0^-=RE_a6(etJv->f<{JphmP>+HIme$`%r7wAn69Vy=c33-Sdy^Fg!LoXEu1%fimbT)?|< zcSK`15w4Fy3?aP!#I6fqXJrlGTJe*41Ev4BUGQA;Dh9T^kuRlyeK>Q4a*^;Z85R6t zq*^X`bp_QWu!HT22%JX@@ZR8=`MML4B+P3Drh&0h5MDS*Hn21brSn>iSM~Wu;17Dg z7FjL^3)Zft*6=^hs%X~Zc6dxoGFp3#xGpI|P9la$MjK9~Y&^kyB0<7z5u!y=-%5|@IPx;O{U0*HuH8}Kq$}ObGdM@lq&^FzF^!2Z#Dc}E}Q9s3l?K5{?n*n_;vukx$DLGr4; z&%gLn;iX^lFFwn?@MFQHUkfh(W{_*YPrt37_L08eZe1Q4zEJY(@W8<`8&~zfEqXH8 z-k5LaWoDD_KN*l2KwG(drBeJC$#1p4>Hj67VFv{Z3m}{HW0W5(0mmre=#A?)#4%+X z89h=qL_kF{4aI+hCzs`Fs(yfy<)$WwWPAV^Z>AB+5;cw!7D-Cb_?ma_9GIS-cKybj zUtbh_`+Vw&OCFaJ8)ogtYnI%(1*n%Y^q zlexD_t57JN{Q5=>OPC&+I(JygoXDiv(X0%TG!v(Hmw-Mv)nGkPYW__wLiENNxeR{b`BtJn7n1;p~2X`!?FCG_nJeASb11FhuFA<+PLCzCc z2hJb$9*-9~0&0t&G}^fjbQ zGQR=afp=9j8;@!>9L?BpRI?tv{aBJ%V~&uFEMRn;8KdbNkEL%unZ6lpugus2s-MQh^cFBdD(u=ueH3*rUvJ1Hl$eddaG7E^#1)q1E2hwxOs&h)K zvrEool~iSwRb`f)&MK|UDm|TDT9sW!;Thfb(~JVLim6kbQ+77D{A}Ki^Z7e3?wW$VmkRe@D%dTgaQ9_{?76~l zAaBpLJdwGaxA$uP{u>4RVSW_yhy1}i1&2S*KYTCu$b-U@Ursyq)wENO3Qv7iSn;T^ z>e2M7ucudiGp*{|>F1slp8uhs=GSRgU*tpST(8Z$QI~h8F1hLppNVPjG-)awS9qm) z!=-A9P9-$ShNvU|dG#Ot3;hq@8`x=TN~MdB6l|B@i~NlE{N>i@tNPpaE!!_tUy!k1 zWVt+-)S1c4SbVY_QmL*>JeP&4!p!cUzq=kiddOz~`N0QG+O_N8=n#;cJn7ic{KwzV zsnbt?QJ?kbX>{3s>t6lQJgKRkh*NMQTn0BHp@vh-ehod1>6~iKH%`g|cC_>57hjS_ zM+%2V<`dy_j;qXw^hG0eOQJOMqtoV%)+`v6K7VNZw7>x)EgamLe*`m6WjQNK-X?<@ z&Mu!Pw@LRw1?DPw2KNbznmll1>_8$Fj{w+3iu4;km0&eJal9O)#H$%F7B8B>{-cQ% zufY3AupPbKv&V3v{#rZxOKfL8lp#P3pLMA9MNZzu%9yy%( z?S=RkEB_<00246}Z9Mx}I0ZJt0Y=$4s{9M+-8x&l^>Fkb0I<7sBOLKyNB@Duh(MjD z;-8Hd+&Fj+w#yZ)OM{rH7SR zhnn?|x*6N}bhdD9XKd4=tr2q^m|jF*Aphh1Tu$KP4d)-t-N_sL=KI$JOitH$`{AkK zZKogS=WvOncnY=YXpR#mt58|k`$~8R;f2_EncI=U%U$4hW9Sxh{1rMyM1xeYR3f$n zRi!e3X>e$1ysP9DyAf-@J0-3Z}L@nZy{r6{Vn0jMR-ZtDgKqe8lxk$StDg6I5- zW(`b^aE}zznuMRE;w_0MJXnpT6>RUKU^~DrvHdT>yfLux?KcZm! z(d6~V1gdWW&j|u>LbK^O8Hw$>t!H%Gga~ZkreHh%ipA%%iiNJ8TYgDkdpTmjb}|5a zPTBcfpuX&UPU*Q^l=f19{Y*~rne5`KtYXNVN?pmR%QrV#c%Q^0!__@7&P zCa>&FetC7l4iFv@3O@wCXhcYLUTJlHX?1~U_FOI^PA3FaKX2#7yj_C!LGpH9%HLU& zzwII)(~f;sc=S_JAtyea ze)97fCm&8b^+n;SFAFNZDLnmjTJ^Jnb3YfIy%3&|NGHi$}zkmNeU$^`WrHTdU$$kek=6hFR|J(0{>pP2d&~Vd^9o@%{ z?=@p~RB>6-wVMS`f0(VWo%8C|>{s=(^m^UHFT$6tXxY`2ngANVk_430PPrEeuouo> zV9^SB88W2;H%rPUZy!$&aUb+y!vE(VmKIj;e$dq1$u~4QDKcr!sEj3}bW2BQ7K})r zKUTYVeAcp2ngxTWWcQAo;t||mS)1bz&fZtAT>YPa{|~c-etGr_eQ0uGGHs)`y9f5} z7d0h(WPJFj`2HhfCARmEj_W%-w%5=pJqJ(j6)`Dv(8L~t2pT^zc;HwC-bV-Y9R;>S z$awaQbPEi(at>&!Oih*dBBSd(`{~&)&wr_XA*cyCCkUz>^Rci${_Stlq+458i|>&9 zmF(jP!>C+X%dR$Fu;^erRz;~Ezxeruv!gTl=50EH?ap}1bQ|OrNE+efKhWAOSkN+W z{av-*vL>vYKc%nNi}yzm@c(`C{gZ#y{fkgV@}w9h$V{0!g_Kv1Q_q+=gFI(}d^fT2 zw8d@4H3WobdX%MeFxR65QD>zLKNNeI|BfaO?ToBhqzOidpG(^)|4J3uX^j9BG>%WE zc)t}I@I~zlYyxtPU{_by*De8a)X=(9Co^Xj+Tbh}4*uq(a71?g7Ph|TjWl`5%)F_G zLzojrz{U^+K*Fg3iW|@sfTaY*SeA?WhC>3_g($9!G6jtTH>3@}ZqrL!k^!AO% zw9NMx^b4pifF03pX6-qlt7qU3gKVzK+zPP6x1SL>FY;%z1UYj)Q@Eo8;{wUEO9VgD zAZN3R&*qeXy5|AjoDv`%(5}oXIxS>7*e-V~vx_RSij;B+1%WThbBa&rmQ>}IoX#z+ z%q^?TLrPEQu`A>hDd3-7T%B8dCa<^(DJVTtSXM11zx-T&`S}9y9O@n+vrEz5_gv0b zboG4va1MS{aO8ge@lP?r=AQg2|HPLCC%!5;{w0~blaF#weqC_#+x!z>=N+f;Yau7U zEj;<{G?9K+aO(SM6;EbVJe^+otg!0mg7Yu(YxH^7YO`v79=ZCUsdsl?{^aCjUUhW? zJXIK{P-4D3D%Dz90wj`o@ZbU84xZ{bv5zS)XUfv#qesW@-8;IpbRZM?qodo~*u2-g zInFB7p(dN*M2rg*{J=9omT-ufq~ukVUOhEXOrCNsfKB!+kAHYfWw0HfHS+O`D%qcW zp5=c1a{AMHF=2`o>zA(+4f5A#zj6xNCw@EYz+y!mI69&KsMvlZr}i5$ zwSRPM7}$=tJfS9sVpPRvMl8}AI%G0w;J~p#{l|3cH_pHB81K+1_mH8Ee*MiI{BSs- zK`#&C{wI;D@y!ZC31`t3EF@$s9Yt7&LROHb6Y_Gtiw0k`I@J4tN+ zZ|#2-Y!}f0EL{Sf{06!NM7Rb-xL{HB?{DiFild7R??wx_xzgt6UwkglqCQ)>WFZD+ z>YP1umW33HONz;>;TKMvJTYbR6t0%>0s&iWoP({MgDjncEJPYC1%ziEYE~>YcVsOj ze^Wc3ww)|c^=XHx6Y9N?k+W0D@T$uj1l##vzo-+FJ0Rgn`IX$@l!(2CvpvDDP|htK zd@UWo_5cfee=GX{M8Lb9P~)Yb#slwv# hl?g-!4P2rz7*0k?1D<;b$Q9HI2GBP# zT!OPy#Tx^)LiA zzmT30vgM3UILwHn5Heu94uogIk)PY|_rK@tv*qmGyA^jr z9D=($G>y}EASA?-vXocF9rq-}-9y|75+Fd3#@$^4Ny>VR`@eIoN|C1T_!)DoUiH;i zUkS~#-tS#=%_YaUz(Sr@D@&_Wq%|l~>v2$)T&ql})1)^bv><$Xqbj{YiIyxKSU0Cs z*{9XS_A_c&F$L!}g_qPtSJkCA)D`!X6%S>VPi0llR8`N_)i2exZ`Acz4E0{w@LtpK z0TI~Prak^C@c3tK)91j(PeF}sLG-W<{lJFL+QxRx37zJ&UVBy-*rHdrw0jm^p0Gvu zU#wO+{%7WYfKdEDjy`;5s9AKdP9Nqre-;AAqG0(EJ{$Evy?QO#y&L5PLO*__c>g~1 z&0F>T2OiZmi^9VlSFGqga^&B>#e5?D;V-0?<>PGMzTLyqgC`bp?jZx2i*ud{$w`jW z`9DK+@WC+pJbOvofYM?guzl3{jX8CaOCKc{JLMPKWi9Vj7eA;ky;HWnQeJo`ZF%om zb90s?{O_zh8ZzJTLX1ilw&U&S9hnUU!tkLDZt&A*bZY>xq^709I^bLKVe4f3IqT

    {@EvLxp@CNb<#Rz+^?ctYXz|zz;?;5jpE%KB|A3+#B7wrZW70C5=1X`mJhNY z2h<=}AJ>HGeel3Rbne}{hcqE{@P{(nQ5pXGp5tdNTfEl$=k?x;*Ly5nhcdzl_xWqK z&sn{l*uKJb7Oi#NGVNz<)k<4|K)O#|v}wwMjT7guA2)lA)0AJVModSgroaCEU;H=c zEldx~!}PRt>eB+-9@t%x7YA6lXd(Y3D8+^e;!a(sP$a~<08~N5x#0hIJqKX>1}rRs zv&}Ds^9K$Xh(2r(yyH-Z$-_p#51%pAY5Gvo)ziUPBscQ=0xvHwetpPexIHk~A3c1; z7YoA?!bPB#&z(7kbNIzAZDb7HIACP__YeJGec)YKOc`tsuumIkKLz{!4YVbsBS3h_ zc$5Ob8Yu4ecOR-O{}zqjJ3Bi=GyKMYB} z+6inYy#EQ*gRMz~cZ)9>GUkI_FBxnDq<`Uj7uzXw23e5^uJZ>B9d6O;{0jJxtXKi# zGb;j&8Cz}^b!%z9wI2f0qk}O+%8c|Ojswu4KGJMx+P7QKEr5CEm)#>s;;Nw75yFHT zVPc&qu@0?yJ0y{yTLdt>93>jKUntqB1pA4{{g#8Yr^8naM^C#7V>If42 z4BEn^Y78Hsw0_PCqF&wb-sZFVpq}0e# zYUCh)3cXyGSglB|Wl^U{u9K(KDS`bI==?@yMw2S@q$-QK@wv_FycSLVMP&h77*%>p zQFd2W{zy^rR8{#5Y**F3QPu(tHEYEE^kPU}>s z_3AS^?Kxe@S$*I+UBK}dYxflN89p9D6p4KNADyMegc{I_)je35j=CZ!OAGe^z5!0q z8z}*v|G_^`EFH4_WvP49@v!#xXp@#Fbf$kM@kec#_^_O{@SVOd+E3S6QKU874} zqY7O@(>Ey(Z;Bn2bE7f2DKxhB#-7^A>uRk?*{( zF#z5OHikoT3D?h9+l%vIVxz?$q`xA0_4PY4x3Q`S^^3kLS;^nj(*EVI|3r;6pcP=Z za-71{`?Nt0Q!$r{wNB9UsM&>~q`wXJCms1?AFIFp^IJZqV8ImLqFvW+Fc~gfyufcC z@V_7GPGI^N>$C6&CvYDgHW7bE6l#N92ZbQlIn@Dn9)ls*Z6?B#;Q_Yu7(#d-i?F!y zjOs|IArU@c7!jUFcee9B0e{#i4tdrm;SGR;%-w@i8b^j$e;wU8-^F}}bpG=0c;|h} ziiA<$W$94AD?{G$@tE+&@sR^r;HIM+)xmi)s4Z;o3&Ia|9Dp#h9m@f}I8o?x$m2Se z=~{7I4FdaOh$wxXDhVJYiN`6AJ&9FoG<)n2@FxRMQXu)1B<&O>!!W8dwsWeVqU0GY zUrIrx$9f*ZM9{cF#zZ?uy(pGQt||O^iv??PpHz#nO9~u zDGBme0NbK0xTq?;tSGv!ICfiEc28CDNDZ@v;ayb^(cTu+)EUgdeuD6>YSt@H>y*uU z)mgpjoL+qvTAiq_Y}Ub$(KhQs&**`7&6&@>MZZnjD)}4R9+ds-q<^qT_s0L{_|skC z@FSMi^3M$kdp}rPFN%p(K71HyFvKvn1Mi54PoLbXtL>I70sJlJqr)!(Vq30;PV=c| z%R_J*JmKP*yD^rhc*-UICE~M@(*8gHXWF!BxMolLacg&%3kvQFvTq2|TfO7zJr9<7 z9w>I-U+S?R6YfnuaZOuei>GZ6f7=IpaM08tvc4_4-E#fz9lSL!mW6}w-n`@4>HqoH ze+-|!dX;qF*2rv^=z?ugc`gw-TSGHlLQ=N{C%XhEZwpCr4b9jVl;x~Uc2*`iE7P6T zX&aSkE2T;HGge}P@2iD8-QN+P3N;=_O_;rOz3*z5fK^+?%eM#?ZSq;T(QDy4P~8n| zpZ}}(yfr>^S9{J{?lyJt<|&IeOxM9v|HuD> z!eYn?N9rKz!{J$85E4$y=rLpyS^nTDOP_Zz#gA13->^y-c$S0#ZZZD#BeD&L*fX$$ z?T%B1IzqQk8DKLG3tF*g^xGZ-dJeQhN;d8+{`>F$wEO~mF7>Oo;8y?F2iar(MX(GnSb!W~y_x55(O83x222-Jcm^166OHY&8>}Wx@mO-Pum4XD|oPdB80hY&{ym zI~>%10J!aF3*?8`jvit&YN+jK#2?P-2K+%Rt=;mHuR3Pblkz9ehon1h5E$yev@m3t zsbXP12Q^2!1?(_e`eAOArM{TiZe@OmgWbmh3+M6OaZP@kAc}9`Ax;3*j|UuWk{mrD zL7PZP>{N-DmE>jW9c)M0Mih`aiNXS~Vj$GPcK9%$x+Li&olhlv&0wbv)9s+TC2)`x z^{wO2a>9#~Nv@M(XXkUgv$k4vv-_=&(NI-IxG`T7uxgsE`5?~KVtd=I# z$dYOiiliE_U71p^PHRx5HLB8%qoYiNjBik89tYkr)2c@PJj1)P@Hf@5o2v5rnyM%8 z(ls?NwRLZ`4IhGw}s*gU;wQ zXR*=V>y3vioR&L(H_+<8{{9aLc>aI&;zf%w`Gr5>;o(ZTQYw*R^$=1WaBmAsHa&}O z=dq^sA3y%sXY{C9N`?2SQ=uO|aHLz>u#X=%=jCC7)z01?ZUY21yL>tl<3($D&*oe?FUqUvyms=NmAx$@b8AQ%O2=;vN&?=|-xihQx}(%>Pp$jzI*;A; z+xMPy-`~7tNBz2(@<|(n7#ffm|K~4=BaEN_fgLxd&0n+1MYh&Wy>^@8*KM*DTg6K@ z`a-}jSnE0eSFZ)X`Yu@GH*bv>YLQJ@ym`{XjT6a=*#N~3u#cR!%x277ESAI!DLyln zB*12W`|?ZHI`_f&2Y~T{bKs>wo&M{)-jLQvmBf-IH&-`U@fjHzNMhkVDry!d;Ir*{}qMTWHK3kaO6PZD`1))NsmZ0<)Q_=Ngki`AK!crYFXJ$9BMyti2cODb`vbR9ZO}q2c|ag6!+dC;JdsUf;=?* zAjp2}(OqmeOLwzA{}b3b-ih$t{1#5{!8W4_=@eszpl<`Pk3sPMS1k#C9yS;ez6#t3 zuwmkht3!DIg7of?=SrT9MEo=J`wlbSneop2b92f%b``4X%1OX7)u#1qi%B;A=OgH@;^lm$BqB@ch*q&Vq>2rE*#!48id zRA)ngh@B6%TXZ|;xdrbq-uY5itbSsr(Xv)r%8Hp&%&R8XLDHMqo>XTR`H=ldq~{s= zs|oU5oR{F7q&g`*TP;ngmLU=;x< z(-d4#6||}fuV{{4*HqlqRzK2KJ=In{53GKvt$iKX@IJ5+@sZs1<89ieP7TyMIWW-h zuwo$B^{N(~>bxF-JQ?+Qo%)|Hv3>K=R16zi4du63Hs(Z1b zF4#Va|09|?i!xjA2i^#@8Fs_8`1wfH1FOLtZ*T8)>(+5@U?~beA1&S-`(J}Iy?Xb; z)x5mD92^}`qt$7#v+KSxQQ9g0q())labaQ;q`OyqgU``M?}R3ggeJFy6K+S(xW%7Z zA5$`Cdx+g+q+SohtR=n?1fk{n)aSvpB79dkz<3sWl=gHSGsQ)^OmT2iNTOSGIyQoF zjmmNfOLY!P*sMLWB{1G4ByDS0#`c&Z_x;D+PsHl&forxYS8bIna~3Y$ zBv`W1fAM<1g=>8m{OSYs4(UGiXJh<5AIb6|r&FymwMAG~j$zDU={ zeF|=f&Yn4ogU_EoN6TIG|NP5ezwbHlhhBq`;s}1?d-Gr8>BFZs);6dcW?2D|cr+2j z2KVqch;sKB^3dWh5zORoWNERHblj0R?ABz-y~JPWvxm=cW!yBO!T_8x%h<}_?oTZ~ zMpxieD(vtLY?eV##Z+DfF^S`Sko^RtlwgyLQDY`x(i1zzqO>3qGEpQM#V$}YnXg&n z*MIcj5x~yx8Qr(LV_hx&BKThi#v|@oq4@vfdyny+|3oDP*k+8m4=cvPXLJbcW4p&t+p(4yVgtg1 z^J6U?>URse?4N_~5xU$PK9pejDqqCfWz^7IsudPVLD(ashFTu|s1O+$GO$*dZiha{ zUQrHc!FIEa4|)$}!Rj8+mH(Kf1GeKJuMER8VK75V!L4-=o2AEylA72*>f`8$lOfI# z#Pfh;0y|82^hJpb{_t=}?f8IR=SvgAfN44)Lrv7tzYT(6NQ)yk9V6bQ0n>M_%*OvQX_BZ4|< z$i2ZNY`q-$lbI)w6{*fcG9+Vr$u)K9O?BBFZRJA^QerBeYN}pn>)vSVkp}Y)8a@#7 zs!bhgcrs`7O6JL^TJ*~EdMsI0UhP!=rc+(jD=+Jj<*vG**R<+Xmpc`gKS{2<_BnlX z%dw_aN3!S0BS&v=vstig@btL@r_MkLM`Sjl9Xx&d&^dGLmoJ~>#vGZ*M0jo(ze9U)aP4ZE{93TJw<69j*Ld;2&F@ zhB7bMu=TIse1~j3V1Yl68*N%RgUQF9{b##s;k^jr>wOMZ`y9r;SB>6@4Zf)-{nO6* zrJeImzu=MH>XCWHBjuv&fd=RB93-?Xb{3CcxWQ`Vl%M(y#YP+d^RFNN{Zqdm2iW%* zI_ihPj{o?f_g|1E{kMN$uKC{shuSRLus9}VYeJLjo=TUPZ0x%08kMmnENyE@(x$*8 z8&!v#1LL-ZrMpCAd&HJ{9Xjoqc-iAftLM=xqKdbIW}W(`A^627>_svsFr=r$2z;GC zIN@y9JQPCghgF^4JGR7>ZHq13q&d3UH+rR;W`&Dvxr<~u2){-0%VzQ74gL#Jlx&?Z zr2F(=TqZAcp1fewr1=}*$xN8H)@kZe+p%+zC5W6B{7NX!@Wms@Pw{Q6TBTlQSteH1=9y*u<9XEzDUGay!mj6KUH-vc<;K%3AnTzc_u(t(& z$XoimL#p}z{tM2>D{*Upt+c;GjmKVt|M_h%q`u<_{cm8tAS>sKzu>?84J5~+T1*-I z{h!~#FM{8K;<`v9C$KwA0c^o`5FU63b>WBi=x_a9kN!XQ8q{a713>gs-=WC=#23Nu zjDdmPy=%(w(VyGvraEojEyJ5+zGHE=Q!EkYU|xN|QLHQG{Sa1BMJK zOSwVTjUwf^G8NIl0}KcArOEX&7K-Es1;|fquT`Yh$Wv-*YBhz@Y%sx!Y)Pa|VpSAl zJJvDLysEMQDUrWvO0R3n?rJL@YAccG_*&ceQFG$6=46NVWJeHMz~mgETX_i>2fcM@ z71wmCTL#TtgXWe2eJo$X3F?bF&81HD)ehB-PW7Em<;^x}>uW*deXp`s*TR#|dG(v~ zt6hq!T}!IBl~ub{*Sgi!c%C{TymCeJ^lA8~Hqz=wBQTEOv#3n58+VutJB-FygE8#= zdr@oa(%rj<%$$kkq7eL~{QuYgLfOV|QOIWEq#@I1^l}{W-N3>B>eKJr{sVp(GW18Q zVc!iL^i8kc|I?$#H@$j&KWOm436mx`d(M-_%op#Nyg_6=b;qTf?*5 zf)iXcN7l*@uMos8bk)w=qMYNbp6?m^vovK{Xu?=m$*e|xkhGei_F*>0)stqYw%I$pm^tyB-f~H*XZ2sJ4-!}ob*j<^^Cvd zm3~K9`w<(jps-KqCxiOc8}HK>mhMRyzSOn1{Uq9d`KSK>>OHu}u#r}ie;K<(F(4p&99})9R&l96l9R5Ew*#U<@^8NHi>X!a zx?^GK4}GnBqiUkns9uAI|Jc|1UqAHw+c!VpmH{VVR`(y@_P}OI-}f2X6IH&4II?*+ zeE}JfrG31-xaMhme$`h@W=j`&o~I@&0}9L8zAYFVuwm zcMo{}_&k^k#s{PSbN=^#;y3xrfBzjL2!{24{_97?|9ta3Ja)_wV9ghPK$JbPvY!aH zTaTEEK?I`-mJA>Uqcml=7-UPyGd$qT^I(vlfZeYK!>+d(OQyZuIE)S)?;yN|>K3uh zCAUR*TS(3kZGpMvVfW5god4>fF>ef%n3!fAhKL*}v3wioEk6oo+hfjGOJ@1xu!6WmUSI%AUf~S5}ZzX5nNw0qpUw`X={;6l7CH(^l@u-j-SIk$1tT=$^9W zZOrS=s1N$kdmWPMJ8Oe;mU+jl^a@_#pz#?qYiY-}@54mK^ z%q7lPtcn_9*r5YEV%v|IgS&prCsOhA?|NaX^oL$U(SGx7Psm^dYKVb&-}f8@#oil5 zKPY>Fg0iv)4@Z{ccRdIG^WQxnn*sm7{e$!~77d}AdXL^iDQ}sUSdIpA`wkw_v!Bg( zKlT3~@cHlGK!-zbgZVJVv4Hf4-otwI$1V&QGVFiqXNR`uKlh~7g+^%~^# zQ-6ma`r3To$NGnUwmq=DCf3VAl+^!?Y%;WzYr*>Ob`v`XhEt>NV)6-a~rzvqr%an$)ww zz(LX98efWbqlV#tmsmMWvKcrm0ki#L& z#k@t&lZ zv}RH2DG*zn)+|Xs8<2huwco{QEdlB0Wf>O~nHQ9qt;(!ximcz{Sy!c5mjkj|#ThNA z1~0*TrJa(cosg$AnF9->!1?qhMLJpv&TTn!V8~`i_G3nqISs#$!~$>4}+_p2iLp_s`;p`ZPy&{RAT0|S+8L3Ix-%$U_0#e zR-O7XDuxlpS=}(b=C&SS*WA==Zs;`E^r|a56@x#uQ24F%676}syj^pqLwn|v_QYFF z<6BMBXH}Cf_@X}ex<2r6XUKbfc&9Ovfj!D#is&>%>5Ra8tbqtmz&Dv9O{ORYd2YPN z=nat{+XA0GlU=_qx^MxZymKe`&71J{j)-<$#K-oC4<92xzK?GE5dG;>%%{)MAKN0{ zz72cxI`rMU$hNkqj~(I9b-{N!)n_~96|V!bZ;O)7x$i7+4Nr0jOT?xve*23A0QqLjoNuAGeouEahxUE+`)5{)E*?hl~pWLfI`jtKRNjd8lo3}kQ#XTf>duZDBs9cYo zW!raDxbCQQ-C5{Y3_UoefBZ>?Z+( zWMPj#GN0`yQCW3|$wTZW;Vn=y3%lNT0o(!AU3$}=M5u)ejF0X$cqB-U0MfB%G?sRv z1>}1U9MNOI2;d#jV*r-4kLZK(V%TT|@)(irgH=dC`q1IitVSSP9!pTCU_(9Rv=iHL z9Pf@(bD4X#fUuXKG1i-E)0&Z*A(s0cCC zemp>J7ShZx|AKcgzsphK9Zu|F7M|OWALcLtY{#=`as1C=<$$NgA{fbO5|&IJ*gJM( zcu=3k5F8=@htIK^Ctm*uf5Luu)y?|^XBhIV{1m)^%Cd4SDuWW$tZN z9^#HN_Z~u(e^-%zTb_3_Ap0`y<&<$wnsEl1Ir6lV%CwUT$osSt%Jh@UjFZ&zKp)Fv z*-BVtCRU`LSLa@&N|LBN0~3ZRc6An8%9P!#$-6*>;)}0okKGI`e-KptI=JqAV9kfX z+IDSir?yd#nN#GnQyR=EofhWIsSZeY^##4^5=nP}9YS4uo7@=XZyl%`2C#$q+H3kC zwD4rke^#CStT^#ObNpRU?aRRO$C}DV>WYWT@`p-zKJ_2e$3F+2)dxZ0-`9t}rOlg2 zt|JVlD4ij?lZ8%?K910FiX&zTAK2j%0Xu{UF((H@k?2DotM5`pDMUZ&HKcN8yLRmEVCN%q{T=Y%7?4S2g zP~L`pY<*5s2u^qUHGLLfXT!_17p>qT_Ac-6u6XN_|Hw1-qWhjQ_o#Hwh!pqGH20`H z@4Z#thfca5KJR(-H}9ld-YIvzQtx?YKK3nqB|P@tr}&ju&J(|kNB&@Y!5g2-c40Hy z1NUwx7R=(y?(Z}m)|(C)Ooxo7c#|>SWH@Xz9x@vD8;m?~_Bi!+1x!JC>%-UgiP;kC^_mGYYvoP5#+-^z30H zfh+_WRaTE%$aIh2GhoD{-MIX?9kW;ULBY<~H zV9~3&94>8IN1X2my*+GPf9vt2+a0H3ff5#<4u&nmbUWohI!praS#WJXiN5m4>DHrW zpyh%6r!2t~IAs51E3C0%^u{P)J#v=KC~W*OYnamvgw4oV)=o3gv38nfGm?Uj4rsY< z2i}LVu;QKJxRlwkL47tW+-_h5foX%x8HjdR^t{6i8Sc!`5CFC_ymLNxcStzx&6>PB z%o)JDALn@gGuzG5on8yPj~j}x1L4iHt29{H)0i@t2gVoNO~6_DqbJV{9BBJ5V&2jR zkiVdwsxSy;c~H zf7Ir%*fKyp*iP%1m=6Q3E>AzJ$bf~?B2PQ7NWGv)1K6)BGJjKKLVMqkXWo!!T$g8D zlVx6)W`okVBssSOa&7@5^8EXXf=9}N$L1(}qGX{ee5x*drYd}*E`FjadZ;M43%pBn zE(c^@kY%{vt2-LC3IIYY)t;{&B&S*xcGMa&Ob@o|B_BloF6?M@qZSfst z{$b%XxJK6TBe%StjPu2QAXyL;uwb%Xkr9$<&-BEQ(FxrixLz4}6@`rPNBvu&FC=gP|a zii%q@WLK8m)*QQ`Ex8g@@>@{ZJx%p<^@$HCG8TNPGxUZ& zaToAT7xc6vDsZaS^zq-#p4edU4oxYWA-bIgnQ(Cs~t#FOVbPr4M z2u+1(caO^P-dE*ysA>BNjh$n=$64 zG4fiwvf=^q^EZd2IcpL&N%#Kh7q-G(4U6U%7wN(ce%Nk%?rN$Z@Mj>f zM^2~j-W7IZ=GZcHqorV@o;3;b>9(V0+KirQJ9>`Yn7Iga0C}|hOq)?NY)8$o8;y3l zMfr1Q#%9D6Yarcm5?bmr#|APUVCQTf%J5EX=Zjd;lCUSsou9z^;6E_iO}*O^e$7I? z8`U|_xiaT{eh%19(Iwig9VYPTIx@k^j>p8Vj^!a8!7T=Ye`em{7sOlev4*vOU^~RW zh47XR$2e~(d-F^353RlG4)d@2obBQx72?AcA|8h-MGW%L@Yu5hnhnYgc;{f}8Xm<5 zFu_V}PbQ~bns!E>aZaAuqR4<;zaUS)D2GtbydulGMpVzbrO3Xc$hjxaeSnbWJ(Lza zmKHvd7Cb>KFMOsfd8sOSsVsS=JoZXe`dVH7R#l34t-_JwXUgJ7^1^%4JPZWai0xUe z^6U%BtnbwLgKphjI#W2d(61Ljo& zt6!@dJ}6IgD4KN&mLU^(nJjk_>M&u>w5glksjvx1^`n6NOS0S+Y5E!D6e0N^h3G+b zZOK(cNZI|cP3!JP&Mf2Pd4)1LBbbf%p;(=G!O_MN7%x4JO66L0hYJ2ZT3rwO7REzXJh zXkgNv*41KBZD31ha7#zfiI1vE{Ea+U7Cn?^T@T2*2Cz#rFNspl36rr~;yF?JdF+$x zmw8o?_drzqR#@65Dr*xIzY!F_@-KWLD175x{K~iRv2WH5pY$u<8P`2?9{7~L^R4;p zQ`P2`|JXh0qUW9xm+(|q#1`h8r za5xv|Jq9>-4;<_Q`|#ca9C~u9_qF}0uPyN2v%ftV^=JnUhlc~a_rt9RV>>r$;GAGy z)hyakVP-f4JY@VNNN(`lal!(4QwXXjKXx7mI68O=svc~&8#%*%%xnw+pgNA@G>&&- zJH|v7cB5z7kDh6VAz&oL|1@sPSdBnkg(=YL(CrZF=$L(*;gi70VGa|A+D#Z{2Y6C2 zw(|*AfPFmpkC#|R0Z4a_Rx2>S8_WS`dib@GPMI()#t*|={0Zr1wmV|}mtxp(y1(eU z{={LJ7k1#mJ}1BFV1p6eZt!tx_#~WzGw~JZ(;}FvC*=>R4|#7h2J)UOeBLp)ln4YX zhSpwD@LPbchsl-aV7c&MIXEvoTq!tQiS??$ zJKLwjOn8WPuw7bz?2W4AsiOFSyy%X+;I<FUy{yQ&sLp9sXFYe+*yZ9O8x_jnT*MkjPqw}4E;x;PxZC31|kni0r-@jRPV3RgsV@Ueu=psz)y6mst zdf>Rrku&b;*P;BqOJ8{9KXOaGxjpfosN`e7sn3|j4t{U)v78BdY&9xgl2l%ofI-%hC z^r7TqOz9##&*-D956}iJTxf8f2awJkVU=%*;Ccgv?S#b@=K(60XT$XCAv_Z`kbp9SP&m>Wu0?^|e8;he+BP_Cp_Q zY=^b(L+E_Koa5TsZajkbyI|fu<8i!|t(oooB|y53<0J$}I<-Lb2=B?|!{(}YkRjAT1Nkzxqocqd73GUBNtCR1Ej8_)W9h+rcEUPv$RdaZGviGuTguimt~!?e2{ zrnElt4IFqw$W4Rd0w$4l^6FRO>?5MS7)j#FBfBJp@jEBOkhl2bU(wYw0X>3HR z6E}B=tKP$z5oWadC7p0TQ0BcW-!leD>A9{uOWfm5x*lzDjceY1sKGfh*Eu+0lXA~` zDN26DZltPTG3!N9>qRje#5*=h_pFy6*rbWy6qvLjC}~4*>ZY(PmtDuU?5%R%U%hRA zwadO!+Y@dHtKS9RGlac1M!YeEJ~YT%^r8lxu)fo$p;LTGuXtimz16GU8Pu;0@ZqCA z>+!?xG#W!b>9uc-fw$Xy3eIng$XX@dw@R>Ug?GdfXZaFm$=mvH*0^EoJ#3skY2o^@Gnb8+yvT9le8&l9!rP6V4gbM<6uHopM#3i| zIj$*Joa8rC;A9sw$Ro9nmB!*}9t>hu00j#uJ$^pDgdAqv1)xF~RoUg948RWQ4*%So zCu4>=z;4?EsPB)o87OlHfc>XFwmLr0D`NXJM&?;SHwQZhxJAihqi~AxW^K>qeV1;ZZ9RHA!e-QT>~d~D zdWQYzSr`jQx-bnI;z2!U7Q)J^K|8oo%|J>&xTk6$zNWk7&gWG*+s&4H+F3dBThcEEWL(CSD5x&YyC*AnATM~V zD0;3adZ{dWtt@(_C?>5g1>29kk|Ii;^N<~TfsmKImX!kd&y^+c*dJ*?^@2N!{9CHR z+v;Ml{U+Eh&ATegxuk$B&%U6@I;VgOlz9$)gfgpzI(e5A`M;53FMkS;MRx1~G`YIy zMqtTpP1yrliv&}p@uQ;ly`tuWvhI_*v0aTUM^t^Rd9A8@uWbCRIMs=)7+RXt49z6q*&3f~@!b_0+sN-Jk;P}xA1P$dJp_vQ!e%@yy<74FSJi1ubn_Tf3AbFKf&11~xnoJpDH0+~<&sy1=UjnC&4?Fp+8?ZE0j?0&~$h z*ooU+Rt)e?glCh3glMMl*+4+F2g4Is9R2qU_pgyD$w!tiwhv=QqCk?Vv}>%}ot^)UdkYlCd>Ce4uzLD2I@okLTcW2!vU zZmQ0I4t=T*L&0I}X?V8Nv+%8F!AFn6_nvj_f(ttF4ZZI*o%bc3&t;wPc6-=I1F>Ci z41K59-0u)J+;TfyzFrgmt8CwT`9ZLK!CC>;99Zu;f3@4}l`b<^Y@M~z1$YP8XDr=1 zeTnm|rJJ$u9@vhYnF;gOjGD1@P~R80Z*KajFc~l-)vBzNmW!mWnkSqB&$P* zD^BWU$90NEouWyHKB@GRo#didy`XyRCq8LT!Ebr1s(&FXhaGfX4(B|x8P9rXS)+d1l!@RZRMN23D`5D@uX=i?pIjtC214ci^;6E;QWZcjR^IQ=&4p+4fJG5DbY ztAPD0+uRG@_*H)PuKnbHwo}ro_it(6UjJ^(vA5eB+x;$gYF`?nJ{hCl7=v!MiyQB| zCf2P9PFX2E_-kM??hBTAN6lU9KWDW&@qD?zigehc+=E{ zYo{$*H+9kanZInA_KWl6MeAv!y;&>9&0Ica+ApK0E*UlXXN1!vxX|+*;4qJ!LxwZC z@suKHNi0E!atM(e$P!V&Z7RBmK4uR`PPG|5!+O*-tC3Sl8xudtg+~4%06P@3tE@UA z*v@O)k~zb7h#utBcaT#baDD(X-l5xJs>6G+?b+83c!&1_wljcpj9U}c!E?g9)en8h znW3N&!It%hVGUFdBxmA+lrTRUE1Qt|Vn-=4$a?{-rduOh29v5_`?&c4JD}Yq&M|X3 z$6*|9XXfMJpHa_`+v1lYxemX57R8v^bY)-=(tVUUbH;4HGvl2^J5;gbWPqJo#zx?s zyX(}_?GFiEm@@=7JHYKr&{IT663lSyZP@5Q7r_{T-ygSEY!Vh1v|t>7wSafnh)D>3 zOJ!j@Cpo7v#v=qjLM;P3NN$h6MD~sBMo%YnJ59B7nqoI{vh7I1e)q5+HQiw}W|n8- zFa4{TWj@C7VGiGdFYH2x_j$%C?g8-~@$JxZ@ejOXq{GCk@G!tmY{%A1*rcN?XsZr! ze6=XPT0r|^Q^1ok+cM0PL47b;Iwn%jD>7P@nU@t=R~6aU^t4{t*rq7Er$s#(+Lhy;4BMxc;JchfeFLgL z8DA>eUm)6@E7*}Cj5#WdiW5d15kwvmL>v}S|EM@7NwOnFvNKh(J3|7weh_TWmmC1z zivy07QpA@^63VdEh>~{tJ156h;2FoUpA@!y#cr+YlW&49cLd%u1iheXzHpr$8SIz` zgo{qIsLV@;D~@?p*yg(o4PIcqIM)d$P%hNc^2J&QHdf z=yRzbhtYvC9~Z~cSNPIlPYr>WIs%V>2q?TGEx0O!D^>RamF={yn$6`)(yKJx_J`Uh43_ z{MrB18`s<$+YU8uh{#`~O02HTYbJV%+|IV-o% zU5U+@TxUYMV;|L@H=spIB%QX@1r>l%9CG5EUnkC9Gk(VM(NlgwjGDZ}3ESR{o9{So zF2_6cE#>=-!UW=Ma1VjL4VXUy+Z#co;h+Bu%C|u_Ak-bpKS77H9j*mfY6ZcMn(B=0 zNR{OKL^Hy(t)fxPeDEj)Iq=Z%m^Q^aCKkQ=IRNi4WXv!(OLQ~gzhi6%-dUIlk28t( zeW`^N|0A6If!GpgG^+d3i~u|tK$sck@Sxb&p#&HU+wmRk@lCt3XdK4OCcHC?hEUIp z8m{4K2!N$CX13#4bdWqlX*0~0G3U$!aXh&70jSy{CEgL%2W8Pf9$RuFIq15#lwIE~ z2zvbfh!Y-EXNnpv-6OCug0RonZl*WGHGX^qyOro-dl$p)MotB;!DIxDM`qWBh|L(z zT5_4_3f4{pa|_#H)NruVmtv5|rMk17-x*nc0St4T@VMQ>k}*qQjqm{5aR{*8yqK2~ zFT0F-^sUE;j+BUw6pIcYgJQ?N*#2>qesPsTi1zquDGPA|HejNyI#Ac0@3q8>{YtS| zDg7)mWRSR`Vj<7GAkDfMkaH;@_o@^Ib>1~a0YH5l3LK%xzoRaEs4je@DFVZvsEVIb zlsr`*d#*uZ%(0h>lE;c-_&GP_g*QNWf_(8ERmnX}Vya5+s!Q*x8PZkd&oq@U1FPR? zt6n1`9kZpHvZn}j`Ezx}OLh56b?GzpvB#?Nm#WIws_M7u>Nl7SRaKxc`$uI{ha7kZ z+Z#F*jp)OB=}^|ZRuo-RVz0fdGXYs=M46|tjZ{Eloj9&kc(6#gKVP^fN4PV?KRU%f zD&9Zxh=1f^zlbA#5$GR=3U;ImccqDTr3?3D!;pct7wyTS&b~a+{yfQ{LUCM) zG`SMnNFjJ3dfHC}HEpn|Yvmnv^E)KQ2R}80eAI{O4H0@{1X2^<8X{rTyf-4VCHA8+ z_N_7c4dw3v@|Y(DpE;$8?M5VWe{o&VhjdT={rA-0e@|f@Vms^OA^K+K|84^6Ssz{v zvHgGn)3}BmCW3av3q#N)z4iotoR`YVmnuvsBZcNxXXHEmJ_E^ncFRE1zVQ5!q8au< zkEu+`0zKK`mw(SQ^@>k?i^steo(CE|_SJjtt#{vDwLP`~Suxv!4sX*Qc2OK~4%oX@ zy3<*@V^hG+EwWu(0;0Eyqqm46oyAdGq&u9YyIkb^oVD>=B68d!OI>5@P(#MI`n~u@ zr{bwzdtWbY>F_Oo>6v%mz3`EH)qC#~I-irBo)yoxq+i^8xWVO6z4O82n~$E|UVP83 z;)!$KjZKG}HbxY#3(8odNm?74y{sY%$4r5u!4!acPjroZ;kh?m98^aZJW8ub^3~}Q-0YrWicuM|2k>z>hZHyjGeJ` z^t2@-r!0m=Gkn5)1m;`8KxlQe=tI&EM{dcu`L+Nc%OnBTFbW{xIpYX_NOO^+XsVHN zNSv^HDLLL&cHQu9HFkg%?Ip@Jyd`Z0(!KXUsCN*aqBo{i`;ybcNDXB$r%?>w1r`mnZg7x>2{yls zF^>M~yZSg2pNHMP(c}xCn&$%imZ@>r zeW}7fz7l&dNfN50@e~0^tEGvsnyHo->iyF08!1?|gc`qKU^5mI$uf{|PATq4h78DP zkz`(!WM7iNp3QCr=cT!qF%2ruzpluGb8=T*bYD~SP+k0(<*ozr4^_nvRV9yA$DXK; z!N$3xD7*<1Mp*>5-&7RcQk2}0mmulo4xZJNJ=d0Dvh@X2x&}Eg$L>=U--Vc0V-zTT zpelc&EPJXz(qs8kRqY3L?FUWO8)fM;`LQR8vS*O=O7Of%7f}02R{2U^^-NiV)W_$j z+^)z&PX37i)Rx3fg7G!DVL{+tMsNTNGYbTJa|Jsy{bSPvG0A>WM-l!ppn9?(CW#_8 zMG%`RfHM=DB;1iE+Lnzdv6bcP!v&g*35Bo=6qu71#|H8-nLF z%d74yn?Im}LC^z31QypoGk-wJhhBSK7jmN$i7Vkxkw{}e8;(@T4~E?ann;C7&UHH& z3xfqbhw%c}g|}(Hn=*d?9g)rm56Gj#kEF4F=I_5}nSMu`@;e3v$^Zx00d1K47&~^h zo5CLHk>MF~$q;_EGxSPl2->^4n73F2ME*R#FF;Ep0yB$Z+l?Vu`+tG2s*jB|LKrO2mYxQD%EYnny$$GTU9$@h);g{bq42 z!Z~2~W)yPQ96>F2w|%vq@fX|@uXz_e$D$|kRlVwtUe@x_r~K)*^jljJF1aLKam%^q zS^U&9@6OgEjq4(^e+@jk7K@TJiK~Ot);%q@85q8+-u zdmtr-vz<9GN%+i`uY+%ddluY-z{Ww?jluNmY>aXESuo7un~t2YfU}+Boq#rG1}7?q zDq3b}kRAs8%-X&SxzNL3tQ$73!6hy!aGu$MWEJy3Fqxz^Ak54zd%8`aKG(*>y6zG1 zkf=-Nd?7afBzQS4h0nn0O`ocZ?dVwgglKc%Ixu#K>R;Fnyu-`tnmFd1=Piv0T}ZdE z9UcB5|IBtk-jZI6tXjVInQH04m7>+nm_DX_d*PvC;XyPd|D2@vqY=mcR@0$NdQydX9~0K)G| z6+_SO$rA3%3pi3HJ6eOP@@f>5Pd}~7ZdDh+b-x#S;X}v`eb8-v*h5|PJHw6+Q{*dS z$aMp)S8dTnT+@d?G(^8JM!rM_i(yA6OLsJ{&>`_m_PdG9b53>OJfwY%9RITl*3+=MgZK4w$ zqM9~w&Mminb)JVBy^oyqKGf{BzhQe!>GsGXx8O84&0!bip3PE#eaBYWo-H!4J$`Fs zp4;J5KKV~PkG=M&`sj)Et>-#Lr$2igd$KL%`j#VCTn?Szda!xRfz!^r8`p&vtOz)` z%r9nzZ^R0p@D;w1%l&sO^WVABf7dF%9V>k!mwE&*bq`rB+Wl)_+Qyw#>tiby3HHof zFPMdz?W;Uyt#pT0pN-|Ht342KX=bm&CaNCu)(aN9X_k0~E^<-KUF|&&8h)+!tX1wa zuy^({7gkJcg9YzQ!2dFG$|8hig4KQ;WBbGfV7}8N784gbbp_)&wC*g2v9m`^obNPg z!H5YEv=kigv_c9c6S0b)3K7s^%t5G>#adRBfHL0y%yyprNYF;EBNOn%`EGdsvG=eq z!A^s)XSNI}d`!sp?2oDl4z%v6KV?+H)$ccCG~clrOIe4Eph^XxI^RtdMGS^GA}wSF z1~PMYC~}7wHaRdEx@YlWZumrEJH94788*PtBn7@Kegy8%aEzk`@f=ui;?c9+)G`Td z$XY-iSt#tiAk<-%TaTD%gK(N;J8BB<1@IC^V6z^^EHLhga4B4qF33g=bQsmi9qKxt zpl#tcKZx8O_$LlyW;%?+P=&=={K{X>w6NWN6m!?{8Js5J*250(!sNR79YIuC;zU+r9UEjP)(aEsMJPm&bXv{Jy%W!Qpbv)}4hh(9nL-6}EmjP-T)1wB zO6RoaUJaO^V){KE>F%FRv9FCWZ;U%W7^7bqq1dCI8e-q-cYiYN)0vk_;Vm$NutCIl z)MUi<`CCA`1bkn=*2de`INIS*82kI6?;%{I-Ut@2%4Wjoze`&^a#w`t>DBlA4s&iR$S z_B-C`drIeZyxpt()wZl#Ta&JCjk~z@;Q4I_o44(2+_I}?eQ@4pP0Cu~UhJK{!aID0 zS2z-2R`^7(@QqpN9lgREU=LfoJ#dL@&`SRu>$GVbB8paNQs%h^&RpvY-9GnM-`T6Z zXTo(^<24gSAXjaNdI!Mgtnr?=QM|+>Xt{6X5;x7?0>HrU2n5E<`(u^+7o@WJuo6qtm*u z5AG3jpnjP@k6Bli5@}v^&+!g(hEgKQkU`FjgE?TlvxTT#neDbc`r09W>SKdo`7_o( z_5MQ;`OR~z@MNfuX<3eUPI!*@{zIv14btGds?bcP{7kHw#V&aEm{kPjXj%aVJ6cO} zBe2Qg4E2s7%n^ef{U-C7ZpY0FpMWL@9(ds{h`9AtcQl1}k@2W0ysyH+v(_3z|0@4$9> zyEDCaru#sy z?@aUGndZAQov}Sb5R>K~4aJ_|7k=0$biZ%de!qyrevxrF!tj1XK!$uA;4j>rDcYAW zI#e2Pv|f?cjD=m80#-G=4Z7GFdfO0=@Z54w{+%Q@0{lk{)xH0N zDdLVU;O#O-?F=Y%l?yF z_aArOTeW#-*@n=pjjH(dqP=VUNusaviCpC!xzallgkSCz0kAJ|3;x+H=;!UBQ1a`w zX}_vce({c)zgaS8z2AaO;`!@EbJq!GBi4A&SOHH4j=J0Iwcc|!2zPg}Ze`jRacwsYw|dH$Nou-~UI1K!6_{tVggfY`{%0Q&;ap2OV2 z_R&**M&KcIERfFB?EI0F0RP2!$fP?-Ss3pe?<^$}bqUPXRDgH0bVnuOL5>Iu-obVX zKCjx}zIQ(d%&zhYRt9-Wq4_E-)(!8#rD1rt2iy6AslJ0pg6;ib_*-Mnj!Mt~@|1Yb z*beCq;G<{^jCV{c0PpalSn>}t|EHk?2GV!o#t5@$FzR7A>tZ{%r_6XaV|ENKg~5@W zc}F<*jPU%a?mX|_w;w$fETy?i8c>MaATS?F_|MC1u?3Ff@OE_)?5nQF&B$*3vl^W@JjglFat=nbof10TN( zuET#H{6ySe;?_EMU@YDXFm4G8=g~25P{PzZ_hg7^2Z}_8i14IZDM}HNBV_?`<{v}@#MtaAz|Pp7dMY6OG%OBj<{7X(0ASBPFUz^`{}J{c zURj-8zwRG##@Ks*-}~k@&1f{S_d-)?ied#7YhsIvC@LL6P*Fs&WAD8r(L_x#mNa9G zvBlVXub{%y$Qb9EbFODe%(u@OV~#Zzi>L9JT=!hR`J403-2PkE_LH!kd|OiP9cM(G z*@ZYmx_*`FYK~M_Z)WegmGQ;R^e=Bs`r=mlo|_rFZ|8jZ09RxN0|&Oy6#0|P3S+|9 z=9B4kzv6+XaTSBj*Uz)QtI9m+$-?4zs4557`k@y&2g~!md&17ASzq1G`0950*Y`8O zd7ORVY3{d=v%kEVx$RUIyj>GYccjeSmON)GkurDtxcNI%7KB-8rY{*+xR6MhwkT!#67Vj?)>$j?&rFy> zy>;pMl2sE*xA65&Uba7T?e}>*PUlnqWy7YERRvdl(@Bya_-EV^nH>zyr)ks^D0%KL ze&{E2MrogR-Ge?;{KAJN5{EX0OVVR&HN_Zdw4WE$XVe%e3JC&BsYmSGrG6Ze!g!0IS92-6Vz=%bM z#%?+@;p>N~KUSr&iODH%<}vT2Zz_^E{xN#-!O`>gk15?ZnvL^jZX3abnZng0XYcxC z&GFRl9^q`9^lN4Eu8SWp{Pv^Sy9UqPKB#EhppxAK=j=|JxwY@KjY);;5;K0c7k{RNHjw-99EEG$yfKr`~NMdbSGh-ZHFPi;%cx?K%@AXWzjf0?)*)MrTDWzep%UGOeuNEhcJY9YegkEHSZfsI?oG-?^sNc=?v&KUuw(N#_$ zu#{XiI1fHRTc60faoSrO6l}C}Y$qa&i##IjQ5_n!iezEc`zC2dkb5X@n&cSMgq4NY z#ID04qM_1|74iOI|MrY+yckwB%HC~W_FGE`rMIP+b) z4j*9tKqj&7`%ENv1R0uKG!SGmw*1QY7p4SAAh|2pmFPY|m8e+J(WxlwZ^X0vq zy$`bYKg`_!Fn!w?q|27%G__BW$wA1@#*Ev&n}AB`txfUdv0W5j5&b1Qjz`5 z%dGF9x+n8U6-Cm_gO%BbUSe^~`MxUmFbVv#oNw_!KFR#{aV9NG>}`FpeCpQ^Q0cQ7 zJI{=Tx!Y4qwxpD7N@kvI2_z>)-!x9;mvOV#Cl{?6JAFAZu4p9*dGd_qEMq58M~Z>Bu$mJS zWXRiPya1{Q#ZZ!M6-IEg%&PF9ipX`Zf1%&UZ%bbWN}hQEIPho63a_)^MPNExhx}MM z?X0Kdo}Y;X)KYn*JS!;s@J6;Ya7REvc3XAz_UeE}_15ZFvANn$0hctMhb`gm5N0#hEKN-E{?8HNlGfsMP&U=aUlipOuLTI1j@}I`;IG_66!wH9;%PUDhwVY(UzlqfY0|=h=}U|X^T#={A7#Z1nv4h|-0nR(DrtP@p=l)co%)aO2=Eif zMD!U=bn1gRKSsoP$=e5uJu+?}>AETHZ94S|iB4!A*{5yCUTq?}6RpF$wIn%rc^=xe znda*7oW%a0YWXyGRZwi%2V5o^m30GUE*2|TGg1H}H#kYP8J^G17@ z`4mQ}kV@3T$}awPtnUEa;(z`7e_*@)inYL|(2&5}je!05-*0^=1Bzwaqqc9?Z}-jz z?fFzP<}t{2`OM8D>NaD*ZwNhECXb6Sj<*w|3nIDDFH$`-F-=;tmRWUGplSg{QMMbl z7LaoLWAzBAOXe)Pw?;yj|u_Fb?7s+kttI?XvZrvvD?)MKz!2D4S2|T98`y z8RgVT%f65ZBHgH-wqk!U#1bij%&KoEul|l1DH&@I%ZOc>vioE9hM%&CjYsJZWhMZT zvGvysCVFi@mA(CR&h|68JI*4KldEeWwx4G_W*_q8GSTJG%e;fnryP8dbD$#YKzY`870fxw{lSwB%ny0eiNg}$ zJ?n5~_V-onRZV*-eMxfu{mUGtdmX8iUw!v1@0-W?Ct+;nhM!Z*_K~Qk&fPkG?xt}i z8&YPi8#in1xZ<_rX00JVCo@l;PG(+4q)4E>EJ-d{OpMK6G$wz+n0%r7XbmBJ;ezC8 z3&%|>gYC%(GP72XpS^j)yq%Nrx3B&_WAmvgUtG&S^0?sCOM2vIJn}P;u#|Z2D=im| zeRd_S@g7E_6u~hiVvCXrB6yNnvJLj2x(lhs#Z^=uM&8euue}b7> zOrBXx53F=W`GGcx`i|=A&#D8TR|hzL8mQh?UAWZI|*PTe&eQDB9k26kJvKL;~Sud&kgkL;p=_z|3O#J+2>X#2w4?G{Y z|KX^0CqF6uderRCN0fdwYRUH_R~&`vsbAk4v-QkJCA$YrS=o2e+{Dz`eJ2zrj-Qz@ zZbo8CQPRY@Wb6ad77xr^HZXH3=e@_y=rLkS_YqTijzm$JuG)J^uW_^DM@{cOqJR_~ znH_Y;kDA(TWC3g^dyi&B7K$98W zvF8Zfl3{TJLp$S>5v84^y;X-Eu)Td$AM$o#dxswFI`(YK#qjQ}MWX52Dl8tkhJ3y? z5z#}A;XOE!^ggs}bB&ha@fMchtBgQ(6?aXn_$Ql3x+8PzHVUW4%6t-GyKVo$oOTT$ zZ}a21v$3}F;ze#zUVldCmG&@y>e6xk6r) z8CDk1EeneHd?E>MCHO72AHAp05=lE*m2^D759_;v&DL_{(>~ zS7Cu$2A&f}cuufunjm9rCkcP+eP?7e^bX?vZ(z6UZ`EPiK#=WA%mDc}uuHDKd@ni- zkw&gg(4(s9x`16Xc7~{DZukjE5?LF6$&tqY-?McrfTrtGInCXP_F^!<1k7_OkBTuy zI+B>aHD%vDJnB$A??AcG`@844_^1z6GNg;ix*T(lcp2N3&y?LGp4{(sn);94Tp9V| zVb_eT@8S8Ypf8DmFxfv<6s7Gl3ePzyfPvyQ~AErl{55x8%lgjo| z<)lJ7ws>vI%+<+7E0c>>Xnwvd8JHI?9$T=mW(eD-E*U#jkMgSp$p!Pr6-dTDZrT#c zsi{S)Cy0v%yZf&6B?r=1{y2Hv@w9E{nO#8HbjEoKqf%ZZ6$i+R$*aBoC3;SdJr}16 z)YW9$ln`Y&5{I;rS|=%2C|`>yN6;Yrae- zdR_HpobpckrHVaIQ+}+P{6kgRp%)Xrdp=>`!*ScLj9PhO#Nr=DmHoh$9HW>0_Q|rN zC(a#^Q8qAZSyI}gJ3#pEEyB7IoLIC76S-d18we*I)CfJqdLUr5niGBV4^$z=V;A{-yU8fU}flEl2Q$3T} zN#_5b|E_JCjLUYFZt9@G!*e%~Yfye<2Eu!20?ps7)0{B{@6us}Kc9*!33>a@jLjr_ zhhs9@U7d`NY_DwNTl^& zM0?qCJag;sncGe>@+Do5BC0bA;Im6PpD{GxD!uNd_apu~T;*H}=woWSB$Gn}44Zr3vHet_| z{6milj*IBQ)W?~y^r^pu92-?U;9KJNL1PpT!pY3lPlzfGR4H_#ZvbTQ ziwmX~0+9s23N1+divA-K>}68-qyXweiospOQZoIrciLs|tULbF3UQ~48sqnumSa}; zls*^zgvawld+riXfUKM4hPQ_5ypcq!~b4>x5bTCrs~~ zB5Y4cF6c9Mx&VLjynd7B^+}o4ebkh0AE&c}QWu7R4bSbJQrtIfaqkHW@IZDMk`^~` zLLBoR2c>ppr__(L;y%ud9xySoU$XcfH3aV(u>;4mgKA8Y{wiS2|9luQo(+p&$0qz=XHq6%*|4DPElj$sUogvR8NrVwMb(f@_9YFLB-DuBI zq2luSveG2s-7U0jWD%O)&uB4F=2C zM)hqj6C=TRlQ7Dur0%et^H&mtupO}5mQ3gpA$3H4C!2Lv1oOa4M*s!gTTToASl^&e#LDF$vLZ=o3}%9@^+2} zb{FsTTbU-K$2Nv{u|CS&2}|7@X#)Q$duP)M%oO?M2=YtDh9B^;%dU1}hWROD^DpUCOSc_Q-})O?mJBJ9p3Rm?FMo(r@$(DP zQo83_&KIl6#(#2VSIga(mv(-gF_kz3xv$U6o{;1!8?Q`FQ|Wq*^GUx_IDu3v%_( z1Jz#y0$&CK9KWcp{-T;=;LGajJpo6b*(HSc%UUC!gnJ4v%gq{}f0Z||$`e@b@h_sU z_MvYk?tL-*&{`|E6?0zrXFu@IWc9gKHRHN>)_Gs<&lSmgu8rAwC3)BFu{-Zg{_1i1 z_s=IEd75$LZqAXLS>Iiqu=yu8%O1?MvB@O^C3P?AH-1LHlxh7_rVp4<%oxdj6H#4? z;y=mjCR?CRj2}8NZph@gVc9*$&FV90QSb2!`iz;;^`p$rgC}$zloB^6HGXJXw;_|_ z#3z#~N;_Rky+?%i8XnbmOf+MD`;Cd|pUio9kB`G-lFZ;RdQrO!XcyhDO{aub5k0|g zi%^kS0DDB|q_CL2?a9(R^$vmC(IoQ;5wU$cbe4#SP2|`ywr?kXjO`b}TA*wP?8f$* zct@Wht0ZYhkXO8G0w3fLv?RZ+XI4Y)Z^Ar-^X)a5yFUg`7#-R8U+>U`1m49esgM^B zjH9C0qK}mVt7CD8?OJK2*ecyj|69Rs0*-;5MS<2=@LogqQNlCjh8>_N>eXvmhnZfVxlOk{2h`&e<5FGMUo zPG6O)$;bmtmie%)n4=o7*`o9-5iZ+}@a_?qGY1l|%SN&F*&v`fewd&FBe^=;>ZPsx zHhuL$HY81F_YHA2qP@`FBmJjrdz8NE*L3zj+IAv+`-w?APE6YMd)m&^={rx822XMN zk}k205fgNCzPx2r&-vVX)sr0J>!+E_csW$bjC2VF`_v!2d9eK_4;vf7 zZ8v0}qhPof1?{DfzQZIW_=N$Lu@R~odOu%`M^u-?+VQ0!W zx3YGg&fI)Vy!uRxVcu8qD(a`mG7J_#Z=X=SP6U?XHREUEY(zg_H*pSw!nUTA?m$SN zL@d}jY02*FwMViyoygjCK5Or_%>8%sj#T9TQk8eIQnu-Q;4h(0%4T-u{-S3d_J)v& z;yS+(o!pQv#uarEip&zICIdIHlQvrbUh-!}dSGj{f16Xvw1TD_sc+JkWc^AU>0PoX z;!a#Ct{6W@u2{~`tGU5zvN~Aqy#tv=wDjsd)zxr&Uv=m{< zkAdyGHBjJ5>G>qQ8iYrg=V&LK^Wl+?mWyiS6oO4+V)a=>@wYOtfW7dZ2TJdHi!b=5 z9`|G(e$Ffi)@yoo3oiNc&Q|3ddzN$LPVRSCChs^ldeNR?Me7IWFCCmQufL9q95lIf zz(hunEgF=uNTirg^5aKj#t)ku|Ix(wA(Ofep4@$8L5~Tgy(cg3Gk$*0(Z%s2rgR=U zDF&nuN$V;xx$EGGXfKg{lM!3!HjU{0aa7;Y1Ovo6^%@q@ZBVjMeFdxJOLYWN?zR&A=hdU9+EF~ce`@Sqp5?l`9FMmjx!jhPsv!2Tok8Rv-i8-zw- zt#QT|G}lc%U^pqdr0!iBwPn~QExppx1!+Z%3DzaGQYrQoLPT|Hrc_;_am$X4TXkxT z*9ACZZnu&vj}dJovO$~3#_eJpwyS?eirO;RGdR^VXs74B1ng~{GOnUqM0KtkpDo9B zG;{7Ctnk{3=?_qGxGM9Z;R^Q0*8{~y=jo@aw2Ms?#IVA+_r@iyERcQO{XDcJhwXlXsm-`|Ny%%<`g>^l~;@x(r2k za&;Nowf|A}*N?Kkek7^#f#>v!W*?}?JXnc77 zyY*Naety#LIqQ;VuS;>}I&PXcf7fKDF_d9||6)=Zg9zA*Ej;bl2pP#zt z^3*SH7JPMo`r(Qh$E%9YdT0FUopHfebj4SE$2YIsKktQq!Ami{;DITHV^~=Lnh7sX zqAs%;0Wb7}fvDEN5ab#j(L*d?rY7nn(g9HXS_F+N4($c?8t&7Lv|Mzq=(}){E4&oy z%5Eh#(B4;Fy+2UB|F6G*dCdUq#&${9YXnaO>{eaX>|GWb3trq#cq9HI78=&Fn!z0k zcPmsDmihwAXp$=T7hm?~{`w;O=StdI5s`3Fa=$a}ig!9y*Kcm7efj6)Pfw=rIF-8j zw-HOe88m&}G+=k*wtA3vOhATNG+CS_CHkC9j(aklpyCW8eMKMC*g zQQMfltvmH*7wnc2Jz7Qx(m{b)Tr96P$irlEZ}1+`xj#sU)#&YDxm84Wr1$pi9UBcn zDdBOlB+rp$uUVs=I8LUMEAVOL%-KDA=ULVoKDolP0aA2-q$?qzZq_ z!=(V~vR$1s+#)p(jbqWIIv~JrhxOfQl|pF;>`mG^?Fla1c`5K)Q$jJv3l}XpN0Wi= zfL+<%p-CIZ!^tbyi-_f>g=q3J$^fu8b=q&OIZIzT^u2~C?GD=|X|Lbnt$O^M8rVgX z3C3$|f3;PgAbr&V67_U-zlfU=Eq$FJ9ZzG1Oo@?Q>TbZOA`hUQjuB@*g(=?PtFsF+l00*nG7}9lEhPq_4 z!x7T@kDmOW2royH_9=M3C8{hTm*iZ6FkusqkUomOtLvPUoFSBH60zwZF zql;8I&E+CSama>{jtqiqLP#g6qlXC04Tdn>0t-sbpmu3;H^-U*QC~wnS1_@Nk0ltd zy(UVFU16mF?64Z7e^vb#ROiH^CfL7Guych>-q;S(C1dBPY_|`_ODWzRy(st=LU`5` zZWg#bu~79%Y6Pk~=|!J^`HR4uD^=M)KA!yD<0&U!%(z*Fy=OKy(VO1li@s^c9#8r9 zV%DCsY;u}==t;)cOsY9GY5mcZvTx~W9agw*Sizc)@>dQ>n~!HEVa!z7`Sg=1J;zLw zCZ=)4eNyMKcV6GLWxXaYN@S!=^6cId7AIz|=$%&9W8Ca+!*XH=O^i%PX7D3p9y|6L zZj;;F#rA83`=t|ezmea@)u1m)Y%SfWc%qG~#U+k&kWQjb-p)m!0VoK#0q40+ z-rgY=vAvH)NF;)c)>}LE2#q9qg+!9ZcgLY8>aN%}BAbSEmP#wj1j|Z9JRbnIle(i1 zz;;-KADhNi{3qnbHexU zzmliCV!H@mAzfO8bZHjaxmj43#_d@y`S;=}LFK2V+Ajs~=ARTY+p;3J3~E-iG@H~N zyu)haIiDZ4TP>9%_YpjckHM!6;$1$8*k*VgRs_1Mc!1uL*c|~cXt_F6Cu7&7y@laj z*29Ef%ib=NTSQA| z^zQD9lnArGU|9N%>@RO+GBW*(n@s4+q3eI&gS`EZn6;ZruKv~IY%Jvm$}_&J$T&!% z4%jiDYlo2-TD0^j#Zaq_dXdB>5L>8|s^mhZJwQ6KQCfhuYU$1q`30Dhs{{6L_4u_U^MARTj43mUcgfo=T(7|=jbzz$80 zn?iW5JNN0feX_?Bv%cSazxjXaHX$Iquw4tRDDW!6Tf37S$=={g(`x zsgHES@n1}vk&wJyLQ{8mE=X6rJ8TEFMlhO`^WxXeRq8vE9ZdZ0c-0jql}D#`ZIrJO7kTOPTSq=PHH5%r9?c ze0eMV%iEcI?`H3Rz_b?nJt>do94Kdy%M>Pbsqm5w&kw)MrmF~txlK)HA5uh^AHAsG znxA7(lzooS!(GWm+0MSqBD{#k@|(BdcaM?WFh2EERpDt#!r}H*Bw0NXhFd`3GqPjd zv~xZQF#bm{&I!_Ioc9%7@XfsFn|?`x#{c|3nP=-MI9f67$H&u-JSzO^TJEk>=uY`x z-z)s(<%~akvoFiurbRb>MYk9T;Ad-5vdZH7I&np17RJ0_birQ2=5+Jv71E2^1SI84 zl2x>B!X4)Y$}kq%m>1ZNYQf|#UV-mqv%= zfWzyvKyc3W&#V1=G#iKQZUAs&`!|36bs!ku{`Hs0GJpN$KFm&nkau3weN#R|@Gp`R z7B8}QQ=CwrY^DuL6k*>3U&6WyU)hzaIVY;79xl&0R9<}6v-qLE?0KNpvSUee_IDdU7gr=(qtcEF)xmp2 zx1k}OWq2>@`v1uG8c28W4$`?uA`L^VHOX2^HE9&@9RE`{Yu_1?i{2iLFpM;jy*Ng6 zPH5k;N2|~{8lBp8L~obmP(uU<*h0qs8s14bQ4$Ckh0cIHYpJ_SOHJ2>>TJNO9_cnn z-=LMSeLc)VW9?2xcsT|eTK{eJR_rwR;pt8#MX#mB(^`n_^+k$d5P^nEa)Eh`s3o=; z0lS52!WcZHgOd19oyKpz-;9~B*FIv*jt5lYl$FZO1o+@ zT(=jre*zYQrXdWAkXtZIxedhzVLl!whIdZ*z@+XHust|uOuAF?^XQlY%m3}AoX#m7 zsv`@N{)@{?G4mg`%l=%Fu^ZAk%1s%XjL0%H6f_}TV|y*W(mIX6J79mOPLp@*Hla>R zqMp9~=kyInGuYUA^KY4(f6v-_GHctJobBRH&td@k?yKyDk-PtH_P%@B`=om``zw*q zRcs+Sf0oS%mm`&6Jo|7}_929qm(nXlf9MZXEybgVQxT-+|LC1c{OrwFT^+n<9rb4Z zB6v5pgLKmMJaYA8Dv6&EksPEu8F&qP=b!Ofps`FP_XhI(mgF40MHBLA=e^U<3&|yr z!TP4xqo^~ zl?iT^8VG40xH8t1c928nwPrj_5FGF9tDe zjjFE8kMPYh_KnqnEkWc0TUX!U#6p2@8Mpx1;LkBAvkN)5vovVz&^5x?ZtDeU^FI@Q zdmUxFV|sz-BDM>_|3aV9jQuZo4%@%e;N+WX`IW2NaN;KX2s^xst{ty#7TmiA<2;{} z6aH8nIGY$;p!OcXE`uu-{+s>P8=nW3-SEx$wS4N26{Y7rOCJQ5mix;dc~{)=Ex+`# z?0k9Ig_nyi`sSXiD*E+l?%oS2D-Vt+**;>%+Tn#OC2!9y85B$tl?^V~ z&^K#kzsZY;1oZZ_Wr>r^5^^^7oBi#81wRj*b08sief03W&O;|-iRmaA`*2}<*C8RX zN$p~^9SJd{15%8p?qOKaC2#*H+qq(s+Yt@Wz#%#0ksfw!a+D4iZBcI-+NEuHJcK82 zkD$yNonXDI?K;uE6emrNZKIooAjmkm9AYv>H}PfztB@`&!@ISO?1i1OO-KCj@vS>_ zCz^**U5$bXXaeG%ydz=C(QcZ)aPYxM8h z4gd9S!~cFq42>3V1ZNkJ!;2Y4W%+-zwUfrbWjEy^bpg zbK-Qw8`$|3Y$qu7zNuA!H{WB3K{LGBKpsh%R-Je1%fwnF`ns}-9?3kG8<{GMfFseE zp)q8_GF^?^BETs9LBX(Z8$m|M&sa7ZfvJ-44<~mzfLd7HobOY+30g6hS*Pw}$U);` z<_`}bqn6UG=J_lHypBonU|Bhg-Y#l6N1QN*W#|p+jqQ@XW0H|EWfIaqgHu5HxOidbLG6^{e223!gjLvpyX~}HQ#w- zVS62ox=l0LUqdE0GOFdbbaM4=$S>!ZwXWN0Tw;g2O!|y)ys)>$R}62VF#050Q*=gh z$sVJJB{|PMQi*tOfzRARwv+zZlPeg<{i4qEpFL0=wil>hQIdARE_N3&y&$J+qOO9u zX6z=vkfl#M>(lT~3(~s)QH41F>PU(%S^9Y=1m>EblcLYO=(Papv#9K2{Kp%8WtBA_^Gf_x z-Jk}1p}GRoPIw*ny5XG{=U2hkc|~0=@?fs-R_hBHxUn5{ldHpUq!?9W1n(AH7foJe z8GEpSo#&FebL6EA@4PIZR&O+3eIEOSLAEoF#*bl=1x|w6t}n3BTCHMUVS77_HD=(K`EMIW0V$RvhStno4JpQck(CxJCr<0c*{-pG?kwqJa z=dT%(y<|}OLOe4ACeNdlsejtS#PqWMIjfSUtnHVxvQJuBLi$oBMkdYNpIES~`{c!4 zKFN>$D6RA0Ns)cWptOtFPE%6cp!PBSam7$Y#lh~d-SqZO5EVTk>{sVrUKq z1o(fJqv*yGqPU6_+%Bedcs$-1+EIZ9%K?G_kA%;VoT(#1Dz$=e?^Kd3mlB? zfE`z)MQ|d`E1|};nwrWy=a#Xv3IvmLVYt!eKY(3C17WpYbk4=SBVlY89X=Ruz1Q?@ zc|7hKa(Gc5*y~valB+V$kpT;Ja0BXYv;3LwHx4C-m+>$9b=i0Be)D|Q!H5FdEWWZX z>unBlnGALar9L8^Vy&oRgfR%Bi;`aycsqgr;Fs@Kc&=>MD^_g911URq0Cs@P8`(d! zygMeD;EYPBj!Vaaaw`As&Ea`yXKn-<;l1JBLGK6{F40sxmSU0=1)e%A`-U`Dwu{Bc z()Ffq*O#PSzL|Q>Bp|#fGk?Q7-=2Jd%=^VQQ>SU>mfy7P=u{@6I$M!`b}{R-%bA~F zp)i{9#r2H6H`!O3t&5nfm~-Hnj95JMGW#&5^vYazFVev1BE6!jv`9;ld0iYUqlo7g zdB2GHT!P8u_!TLVYWFA}#at}tYF{*q3rM$Iy^yV<&w2^emFXIsh-QAyD^w3g;RRoz zA^n1H270&zvkkqFy!bLfxzj_%6Z^`{Yt%jcCAWaKf7UG@({%A;%;I>Pw48C}o;kOC zrMLa_?)c{4_bqtnpHDo}cy_x%eW`*CyQ{9dV3&)*W`7ssypDz8lyg98Z0E?i zJ)Pfj&ih(E&p8n01x;FU@lHh*hFdKaWyZo%`kGlfpVN?TPvqR#ZtDm~Yg~0dq)=UV z12I{~G#S1e$=gZSJ=Ggt_|{hVS3eD`d>B}I+rRXdf9W0n(tG};cRkB)zFc|j#fnSM zR$Y9w_|GTv&OV=g>gBB8U(7o8H2=W8v>g}6uljlP+|P&Qtr?s?50`t=#M%8O%t{zL zorwf}GZrTmY#&sze{jj(#QY7tvRCxYU!Rb*5?5r`QPVnqlo>TJHM;*ew&aLl7<>02 z;qgO5;|8{g=_fm);*i0$!p_&>J(`8}XdcG#Rnl$^FHM=^*uHCHZ5lPh9$RmiLE6~D z|L-o_IahmLq-1MSFeTyCy((06wcC7-Jj`V~CtP7SRjkw`b`mgCr9SgFx)$o7r!a>K<`F%8(>6y07%9|+Rbgh>mP{AWP0 zeAp9Rwu=FhYuZd z(aqdFjCr|*{K8P&>~9`re^;J;up&#cbP><-w@7#Y_nsW>HbQ2R8Ym>EZ-~B8?H&c@ zj#_SIP-GSh@hE!mFcVZr*`_D=H;=Rz{chpO|J}=0Zm28M6zNs~rRZq|P&X}?6rBwq zF8HQjuoKR`GcI{%UiHnA@XmtaS4MFG zlm@UOK)OVb>ei7&#?HeCz)r?4XjQ5kkV(!VFr-!giKNq<3(57m!MWxYLnzO3#d$Zw ze~s<@$kTZ|Cz>{^yssaC=kl5^qF>?tFUij}MHliL#_ebZNbWD}#GY%+x6f?vr5{XI z9F!uK62hbyM0MCMR!`e2#9zI|SG}dGdfUtDt@u%FMjQycfhVfI;@5{^hFXN$c=aFH^+KSbBz(n zk&Xeio1*h9{ZRlOe3{+8)vEm^i?@4UvM$@8}}l1n<9f~Cn$Fl6E)hHUsHdpIu=lK-Qj{32&jbjiob%qzlkFb=~dEw{MspF`a7&%G-F(j~z7JumJH7(SnD zoLS`$eG(6RK;D9j3ytm1{7cY#D+0@(2bRC^ud4LZXt~B#JUk)iz6 zI|yI(uF3$h<7Hsyi@?ru|ITOLZI3-$AH3Xrr((;Uip{s4ZMgAh-PQZ+uH0XD^#N>O zefjaq3lEo_e_D3Fa?yG30#x@uD~nFN$ob~Z_|3;hEZ8%mc>BlG)_*j0^}vk9G%@u} znVC3w!Qk1uhc5f|<5g#e%s<#WV+DJ5#0|}e9W)_!=)~Az88JgAvlB-sxq8<@;&=q< z9eXrK#71N9*pnkkyM&lzNZPyCKzcXon;2K5#2IN07A)xElWZ0e-?UxVCX&fZ7o-9Q zWyS$G6*Rdq*Mgna=ETBbDgntPC(M3C>4o8L_71op6-VH2*GV{Kj)Am03Er7e1|oP2 z87#_-jBNqt*iOjUHE9?3wQNqrATKS_smg&kLr71PvniX%Ba9`1>i^L&fXgvhHs!=} zb&h6NJ126kGXz#1dJ@FSeJpx$aFS2#@OFO5_-VN5kQZkqI;QY3myzyHa0vUd|_Na^`4*}I7C79prK zV$|WeF59u(up(>Tu3t-CsNUqQ+KmZL%nW08M?0D~MhG8F;JE|J+6~olGu{zJecwY` zjhM2V`Sp{GZ=Yp;SCM(>g}7Xp!6nmLB&0B^3b~BrqUB$Y%mfgg)9M*?t3&H?yiNzo-ZeLM{Vu-D;pEft;;qQHoWT_tx*>7g9BgStjnc#D26C|0(+ zNw3iuNE+>3Y+6?DCiDE3N4g7vJxj~1PPWXu@ZxUO)!x*7cOJ=eX)kqgEw8UXx`ej` zo*(Toki2Gak#ya?%iy_uR6Z5&s63a2&+cd_8N+tKzSF4w!v9&h|Fep~u8P2p3jfxp zo^6jSx7;t^eCO$=TaP#2da~u_qfOTzZoK+n{nbZnu0LCOhas5{vfb8~=Am6$GT7e) z8FF~VJI^&SM+&k`QESxxy#{UM>*5&rXL?|l!vH+t*6M&SKj-0T_xcJ)2NcEXey zj_e$r`Q;r%^{o95vT&pe(#ug`vW~nosxvGXIbEuv>Shs`Yh)j-l8`}*PVYZR2jisc z(%S!Pl_c#p*99&8H<{n1?sN~+0P;_IojB#0N}Tc1RYa~X@rT&a9nJ&xv-&ICjOQh0 zuvZa5#(o6_##?;dkA5zy%Pqg?|dQTu2Vp$-tin7L^AUJ`0eO za{|2=KMO2+A|cuf7x~pQ8YD%2Stg0P$}d%d^tHa~b^hx0YV8QZ%5n4|G6=B&m&P_d z@*{yEga=!$?oeGC^O+mq5AxO#RlqD{Hj=xnwi9RxGmWVK1gy|CIM;>8^CHG}^bnCm zG(T6oJ9h_U&XPQvHATv}juzxDADr--ZpO|Dk_+$7MfWi*E}ZjrEKCH2U^C%cEx?v4 zoG`Y!v8eG4$cpBx-c}XZ@xs5eyz;a1%Fmy9K7HodRqoyXtO~I2c=U41-KQIGKG<;m z{)TH3>#yEhf93v$>rYnSe6jSlcM&f4JN|jM{iU}kbNl98^;0D;WX{;Z`;&HGO5b}e z?TagEdoE<``D5a?qobGZ8#Z@4n=uWTwmosmnx2#A%l4_G@|h17oir}0A7dWD`y@6$ zZ5^42sE!31RlHt{4%R!PT{C3eGFF#!2A<%%lMYaITpMP^xY8lMb*CO}JM|>mun~4x zH*s0Cb(zJaWqx~ZQ-`= zHzPJx&Pw3YQxG{n{QR|{`Px~-m2a3&DxAsZb$+z7vE?0BLfG-Wh8mKlrY3) zO2HbBI^h@^84Gae1-n|{LT9WN={iBXC_=h{oufitL>Pzg!ghhY^o^?U;x%#>`qszKcRa4x_4wt^rE?s=*Y2*pdS~_3JFBkVT65*rn#*_BUU{_qYQ^Fkp7}TZr8oU^uK9~E`DS8gJ?EQo z#y9oX7n$GQnXvm})`2?{zq~YI^U>rr2SzXbV&wcC!)9;ln^o3x!koBI^5TYN#C?<& zH+WL#q-5-l412^F({3ccwIg!33H(e)VH>#6MBM3{NldHO-nvACFARRP8Y#7xLfk@DebK4Cq z@``p;w*mWmO4zTsBIpi=JnWSP$f*w7Z(Y&J!8>);mNKm!W~`6Sg}ARu&7aGTeahFU4xb(u|D8S4Zm3{mc8!BoNhW z^RGaeqrscC8@yFV5_qI|xt*aZp<=t`?Ucx~z7l6+u6kf{)%~I~yF^G=5k_Xb5axB^ zXhw8SXgDI&$0#ELY#@NsH!8jVucAh^RMK@7*vZD#m(I~JZa?Zk0L+b8Uo26V`l&P= zd5bRku)fT^s&;3g(Bn0vmeiC(%zU+m6*-JlE2kEPQqQIc5DA;98qUkMm1dl4D2+H7_fm%~p zfwpo_jz&Byo08VL4=|FuJcrLFZfK{cm?6Qbg`K->=i+Osh=H9~=IsbwQ{+=w{>c?DwyrsES93w(E#!-$Z0fJxD%(cCk4}|o=p!bwmz!Z_Ta_l`_DH$DBp1R;o6&b*Ic``>hg^hm#!~8e`WExOAG(F zxaf}y3(sC!aQ4Q$^AC&vd^+uqr-f&q<2180;P78?FdfZZy3V-7Snif-|_!)Feh{p zY}hNe{K2iRVLMb;!fOt%%8ckU=GKrsn83d5wP#08Bt?`YUkZFYl7!se0zl!HvlNj` zQU^}P3ZRm}JrBVzk?it7*C z35G&&9vLT7-3a4+c<03S(F%F`h%Ke>*rNsR8pcWl$BQ*+Eu#z?w&8Xl5}}36PHqgm5&r(;AnuwVCcdp`G;e=bR#vR$%wJc^Hk@i^#pDfcZX_bw>+ zTY&n-N_B_lApM1Zd1YXErGG`0AFwl`*6c3-WV_2rvSI@}$*K|0#jN3-qkG-5Vt(W? zPKI1V=!V!XPFg~^~H$AS}aKB>X zgYxxvo~^m@X!XqpE3e;Pe&y=Y^B0%=abeM!^Yc%gn|tDH$??<0$4<>Wc6!>+XYzkI zmvQjiqyuMDzdn<)=iKO>mqzTkF?#RAQTy(X{rXrw z->9fT$({O-jqE!*wEK{@aY^mE^lw9{G%BHOj6};$y_$u`i;&*F3+XqbWl7orJKKG- zxwCEY{8s%oZ!s60&8D@lld_$$-A-OPG@4Q9>|}}!-rpP0jsEepxpWHI2 ztDDUJ54O{f1G+)FY$2y?4-#HzUyo4(?7OGrugPl8-TMyCbtr+=4%l~9n?PA3RDA;S z5{=tq5hovp>S*cO=hgjh>!X<4nam^ec^J_K(xbZdkL=pdqEpv?QC*W54I$BmivuL3 z@6tCkrcbDJoFy<3i1gm3y0J9a;@c3Hi%2v_g9UkI;Nn zm2<>H7~3UL|4B_Rzj*Q`q)r-4-Nn90T5kHeBeRH)Q7|snms1?8L~k)IT_*!*mhKUN zlarqp15Dw0ue6R*7`=q)#mD$Wl5+`8E|8yl@TE(W5$^O$9^w_)uXzFcoM6noA-C!r zh492}AF2C-2Yym_%ib412`rKDV`ZdTin^|4Q*4cRU>pTT!2S}pOUABF7-9QrpU?1K zQ;;#RgECMF!OSZT+g*$sV=aY-e#TplE`eXMT{CkxRW`B3a9Z>D|I2n;DeUzPzwY~T zV!9BVH`LqFvUff|58wkE-gz!dMorC!kHN>Q`O5ZSdptJ?fZc8iNYPPXSTe-%sNalW z-&egAf8&elZO?`3+bRN^9(&i_d%61dlU27Kt-Ahj+0}bxS8gsme|hmAApOjo<0ngg z{k{0;iJ~8m7ach^{o9}N_kW-D*`W!Wz8brB|0k>VezM}rQ3&Zvz8zBb{m6}HhVQ(b zyyxmC>woH3u&T${0;cuSd=%PkP)J--`?#dGo%^fNkE_ofl?O~NURc5O`SN~ny4 z!U%_0ilG7yvzr@mrr{B=8`Z%(VPF@wTi1+ExO(rywsk&e_udEGCJXANeTIBkrFhyT zUA9~D3}YS6i+#eGH$^^=6o4jxj89;aq0H*$`KT_0<@{v(2ro9Bh7$|wt)}fD;P5L1 z8I+muSeZOYlFw4&zO@nFMY?;!2PU%x8t~9XqGiG)@Y3?Hv}6H~1L(NuW1hCJ$@pGT%xA_95LH5c#nN&*fbI3OhP0 zLK7KBV|`w2r5eH))srvBR!>g&4y6cA1|Hp~Lzl#uZb>omNzvW<6P!T!=&t>v;`(WD zF)6Amz^2k{LK^Hs61L}Cw~@KiwN8qhE(2bIGhW1wu9LesA!E-w<;go;WnLF?r;~@1 zr89l;Pp=?d!b48(niyx&)Q`Y|eva=2E8`_EC#t##*h{cOT=51&`$@TYO_KJx*Ca}> z`RCp6qr|>q`z;@Mr>IKyPLt81hyKNn{7W7Oh((Wmi!iPen#?Z|f1?QO2r^46WDcPt z#du|oy6sY-8&x=BJM6OTl%r|vmYpgg9iO2gog>Ut-CK^FyVqf(p%P{q)!ma|k{rzH z^#S}AbaQl(tGxYN-tI00me2Eedl!zDU7I9s`MgVbqdlLE#~7=P?Yx?M2Vw8d>sY9+ z?))wG2l7>zLdEj;s%ENq-%Q3{>EHU?x3%22t-N|$xqr(OjO$gaZDddjPMn@~?Dv^Rf1CcpFVhbHJmssyIlB*J?%bccYRBk>>qpLA`*G2VAqC3@ z=PenKyJ*mqB?I%8^(|OCc-|L-%Z`j(d-UUlySq;;?mT32m!xqK@k6mPN^&0Er#0?$ z@*<>BB9zAS&IDj@#GpT`f+1fJWZlg>!gkHuL)p_=!7fQVRDVlKc;d%!1GY;j+oc^I z9lkNz0)VF+1^z8wb*9VPv9kl7Mox4D7G`*49CUTW7CUi`9Hi?o zoFGMaATK*TIpQcO^XsqslZcWL}e}098`rwjBlR)&d~6Lg8IG zr!Sx#lYH1MB`%SSJ+^yNO!onT_joypj_)5u>K@lGQt-~XgwS3Sd+;97xsPZyF%qxv z9`*|F=rd4V2rnYM<9+4x5Y$y`vb`0u3>8%wR)#G$ws{ES%S3zUkyH(Y?akTv!|qKa zdl$zrj!;y^L zg6hs6@i>zO2H((qwkk*v+qK78gs}$xca1B~*eS zDK$0*3F*`mU53{@0iMQ2foBlu#%hi(nFZSFc(FX(J@PC&=K(z4mA>uqHN_cwDPueD zXrI9rm*83>Nwp;HHGG&{;W0c|Kb|AGgLip-l6Gl><+r$ioNbjhR{LdlRNZlpuZZsl zCqGtCg4-Ob5^`(ftKL)@*izx&{KUWhiGTA`PQ2?Myj*qbS=pugi!a_<@aMHTXU@+& zaeBtDr>FgNyx`!`f&)KI`R4naeFrl?{W@*a?&PwKL#HiC%AV72@~mE?^LmcTW%EI%14@zbR8nM34#Q?QH=&87x>MHARKiY_>Hm{7xw9 z1@BrGq(PD`_e#A40cJ!jRD!UJ386E zj2w~17E(=f*T5wTe*!Cy|RKeg;0ztB>?rGpTlI@wH$$VF&|ZvsM_tP^W2oa90N#zkt01fu1G+WIUJLk5Dhx zXc57;A>SCiUE%6Y>d>7Wo<%S$woiDM1Om24qQ(RxD!zYokEE#XWa(t@11zGt4UCQ- z2>&$(MAwjO&}w)!Y&K{+BF@kqtg;MbZq!D0Yr+*{g%Y_J(<#CHgTi*J0?=Q~KP%I0 zTF^FypUN%71S>3vGd3}}elu=)_>YaHle;Qv)+l3QaW}_%E%0tpTjY20c1_&{@*tfK zQ;;s9+e}Nf)Iy~gp*n?871FH|YL0YE&P6<@42pgZ(n-syf#OV~X;f^AvR&rPtDYHG zJnY)Zk8*`P{HhPC(`{7DxdL1S7JQ8OUQBPfL2Wb`=;}J@C78YQbdNmjnvZ9Zu9LLS zzvY`px_&G86rRf~-0+s(7PgbRFO*QcKlUwtA_}~Ky+T4ts5sc^OM2nKJ?l@~}y zVU$S?97TlDbks#UNvxX*TVh-@tu?M1)m=Cn*f|=6Upu;4w@Y<9an}WY6xaq)FF*cW zco!P0XU1Jw4C$7cbJ0F9vdL>~x4oQrn7xI*vTUVi-h1G`q1q3+*~pdoIg4~CJ=1b% z$YLBlJ8Q@u+>F807A<Z1ATeiL?`lf?`JCII!`i3)U(%Pv33Jias;ZOTWhXv~x|AIOpxlo{@PInN zpId-d9b0vXhv#j=yD?yswgS$>y7cYPEh#*%AEw8!*o5%dgow_GC^H@7`T}{_E_jb0 z5Y>$sNW}CQOmyxs&?2VW07Q7%7*T_-U0pP?uL@SlW(o%}!|EY^~s;sOZZ0jcuLb|^d;_wmAuKWgBa35M2H@in2( zsISTTlB6R^9qfqe(oY(cUrbjwusex5B$xbL=AX+Z7s0L~;W>kIFMDTP^%fD=WT4h; zncU)=&8Qao{ckV?z&HDbuY?ec3$zu{P}(<_k|>(F2KqTzo<}g<<)&N*<0bNV_|J1C zIWN88Cu5&~TaxyLcl- zb!8=B_sd`t6_8DPAw}oJ^kfrZl-_QN{y(rCJiZn#iroa;*zR(kNiqZv`@e;;{k50n zqCFlCTY@b%8$~_WUAEh^xZ=JDe*()BxUQMN+seg!0CDwDJJ4KxhZ^!J@phl_s;Ri-cs{D0S4MHs8qd+acYcrxalpu z?p=8K>B0+lXP>-U_~Y4v!zZ%$AIaSFZQ5u1(|7Hgyk+)9;4SJSW_1SdojX&_=60CNCz$f~{?N2`~o>u_Dt;8$KgJAW4; zx?x-KidcZYzlZs>p)ryXhCQ&r|M+BvsJnn&*zP#wnFEPczGoX1XE?!Qqs_1~e~i3c zC4D3y2+t5IC8U-BG#{2)0M~`>$VY0)aO934>Rn$-u-ICo;Yg8gVE@0doma!B&4gPE zO{ZmVXuvKb7xZq$7%thY{(&q{oVd#w+@scvLzQR@>$vl38_UXNv=?0qKR zHaSx1riBy~$as-8T877kM6ul=%U>@FpkbX8!@BnG5I-QaOJ8n$w9=}{yo^~+q>38T zV_g#&2Yj7PIR0(QIYQaMPs%?fwe z4&j{$6W|N;gTaIOx8}(Az`qoB%7zS+q*|eDrz4DDHalQ<>ZEWpHZ5loiDsA(3S@ywy3e$eTrCOZpp)V0I^5| zyz^jsTco{(NniK;lv71)M`;gc>E!3;U0?n(K&*J_r{NSI`wF^~yfW;?q+R^<|nt?5UUH@xiDYG4*ND%`&I|M>~qRo`nl!)!W&h&m#e1Stjd4rEqLmi`qYux7-Z6(1GOADTC(&-lE~AHnl+5q(C6_8cD4T7hla2T zwG31r)Hz^H5|*#^k&xr*?w zjEERiTvN?^4O*iQ)NRmOqMQZ9V*Ev};>6!* ze`%?gWx9Ge?;w!!T&xMTN0oq7xoi|a=#vH4X@A;AWN874A5DF&YR8Vu4q_Zmz9_NZYiE6!(61}y>}e=s5CCvIpM3Y zwHvL5wU6~(_KM=G3#RVxH$W?E4&Grq0o5&mf5+LC1DAUv~qAhbCVrA703z|Imt0$+MVF4{sMV87#Ed`IvuYzOIgB^KQGE_~pVT>WW) zf~gGnB1L}@Sc-l9CH8ea;&rsZ7=wTyy0PEbZVHUC9qqz0cDUyz?f+!s|BdZNV~$2w zU~8#$O#)kL?H*kYyC=2^7_sdIQCbZ0_85D>Ye%~~5IsL2?`}_gZAmhi*F1`-t`a%} za~PEX)k~iHr$6@RUh$=!@}!;i=3Ma=-1AMn@0)VlmvP=R;do`rFO}(MyqTB0nOA&S zSG~D6z0)50r$6!)F%tQff97@W?_Oqo&t@*C(m(rg(vBY{ZaJ8|?DN5e%aU?R6EkM_ znLMM{go5}{SzU)s?vVINo2~;}ckbUjrcblzK24(%nny~s?35@;cvyGQSVFosB=>I9 zxpC{*#;rRyXhkB2evZ=8Rib@d185%%d1R34M0m}RqeRO`F+y)uiE%(e+VuynS{G#eRo(5P)^ z8&<|2YsszTw+Ppox^om;zG^w zi*4U;)aHGVu3#4*JC+z-9e4%z1;x=P;MHi+QKzLb5z#RY*pL>0&&QEHhlY1e;$>AQ=X;Y$_$cS7G~rzmJCTzIlXfs36`zD$ zW4?EORNxQl4Ea^1i9x-IOG2gTsD!5i0>)W=Fsagsz=|wu7NSr`S*vrkfJlIQz+lmr_f3zH!^A#euiZYbF2-SmlguHokDXfMKZGJISy*NyG6$r>H# zi|_fD-19Hygdgwt7vA$PB3DO*d8o#iV7hK&zOXn7)hqoL%d7CQ2UdFggwFo*udDW3 z@zlzuj>R!3Uzms?9zWGI;9*Vq-PmpoO4f#N6m^#aPV72IyJ&s-?vKtZ)OeWtc*yL6 z-7Sf}T1`|xvB$WHI-EDBy2>@OeJY>L-j^rx;e&sLH99%XvkXI^PD){Pg)dNsx>6pP ze$$(M&Xa!1oBC^2>hY?yGv4gWz9~0-xz~JI=e#LDJRkMdXti zy`1!CRqjn+-feH;b#LJn#sPVbq!=~@DAHmlQGCUQat1EF54}2$A{eQNRgHvglnz*It_{>@G@jH zYY9~evUjmwly-D9rNuM8p8(s1>I!y}cDp-x-vvaO(d`u~t&5MPrR&~JO3_+m0M~YX zXB10dn^i$K3;GE{N-|ms`Ey|n&Hyk|q^iZa3q+49n~x7CU5GmMuM!pu#ETL#{5duK zc}?pp`Y6Ybme#K-@^=(eclat>GD_-F3W7=5RdhmPv&NA-3%3&ejiTG6@C`Tq2R zKpMXqB`2#QnRa(X_`+ajaS*oWklvHJ7X&l&oa`OV$J%BD;BiH8vFl8yo?C$1*xbb| zgjz<-N#K}1H!)*wQr5gBOe@F;t;p}mdHBiGlP@n(9|@YfP;B^jaf_TWhr+asGFiin z!}ckV#~f1gd4^bRk`$!Vn$B#IxB=*iS1_dqhP`!csbfBrz8AV&ZW<#J4cxWTRkllJ z?#L<5$-YnMW|`Ri$%Lfb|BUP>Gk2+OsF#=U8~{#yBrzr!*N3F{dJ(Wo-Y$YngaM@k zP@OoZ0o6Z~o_5rA%BF6Yqh#y?cC~OMOBWsHhJ*|#LG_6k@c=VQYU)LUhsSmkVT|YA z5txI0m~V-0JlhSMLgSke>JiwUz|pvBXyvCyT6;r#=snXr@se{+NY}k5$3Fq88`$IZ z8P4sYu-(0<*vq{m@(ac<wtlE`RL?Y5c&c8*7QT zt`GkCV$ZYhcRcym@ZKMXww?%Wd^ouNfy%)H1+62?Dm#-38xjj@6Y@d}ebw_a%jPaC z5wI)O=cYLIP`uNrgi0#D2y{C#vW*LIylZayopYExTEh7sAx8AwHiRlYS;O+dDX>NY*l3Z8U-OP6V z5zHr<2k&S&%Ju|Q8ezMJG~SpaimLHw9Uk88L~tstAQWfmw^=-Wj&unEd07VG^pK#& zgL-L+p*=&HhUc(2k8$p{(5uGo>g`Aw0Dq>qi!VbEHpX%!hvz+|-WnIG!#laReVd@w zQyV^w^V-(PoDn-RT()~)HwDJSyVXqj74l`lilka2hJg!GieT*0yx`K@z|x#*fw_hQ zcFwaa9k%CJBd25)hcgO7qqry8mKYuIk>HJA4PYc^=;&L-~^cjWo<_~f$#<#6ar>+nE<%_}JU0V6_7d{X~$2`bUgKT!$WV>Kk#P5L#LV^d%OOzQ+1EO+x*PO9nYQXeEzfc z=RR%!`TOlZd8g&c*BXwz7~c7G^~eL2tM*m)?mTUdHXa=pMWeOC>THTHw;|n4LOpcFJ^iuA#Kd zre9i`C^*u!g5qHfiky?KiwGmRdLr>%0sA8Ar&dBWdV6f=#JMtk-Ys{`m6$f~7B&{S zRJW7=iS0VSN%k&mXPKR3@8YQo?a^~Yu`%u4tF#*4P0)@Emx?nyoH0Ae%h>I+d9NjJckf4LUoVTQ@j51tU6fv$QQDYM-jZHi zpPC<9>Z?j3`_)+DtCYyDT$S;V}>tk}yUJhmIy`MplW70tO#PfKblumW5nRNDF)fi#BwlC^@s5Y_S;52qN!Xy#dHMuuHwuIc!eUL2O zgEQ^u|8xqVP8k&DtClX!Fxt(&>YUy?@aJp2)-#0JhV*Sj^2|w0mAT{MjF%=7!Iy2 zjgK#?dTh57?>Y8NyB+W$y|>ldM~sikeTv`C-HmTC`!3wz&b#ULYyH3atn0^TyPi4I z_0xZM{p>==Pd{({(Z5=s`FHov&$plau;s*?%@6&x;m9lX`<@H$ezs=pd5PW62FHFL z*!^s1|4ZRRzYQJyP0junLwldC-f^;O(&Iu&=XkwHO#yQ%)2;1kN#w^LVq+QvbrP(-{x%5R_GI^&ox}?JPJ7%Ta zajzJ{XrQ9Q@FWpipf`2WnF-j!NNeKE1PAGQ(QAwWvEi?|^MW_MtI!Yrmq(XR9cWZQ%xg@>an67TAyK{7VFY#d1Wfq9-upP?f zk#A>Jw&jIZWL0%8D{V^6uL03XK$2uW$IsCsB`=_C50i3dl{IFSH~PvOv&$QEDw+sR z2=KnFAe5dT#QTLrH@&!_sBLX%-Tumf(ZZ&ooT?6ASwm)Vn1;qQo|9EB#`~I4djvKJ z^IFqJYKOB`68@BciwoCS|oR3f4A^A509vUR!u!WP5 zE41xK@J&Q}T;+u4aMu9r{4N`k;vv^TZv4}{b8Ct5z;4-iJmI}7UO_gV{Ca-Vo9oAp z%3VfAkiOFy`r>H6UZy+8T1`^TTQKXtb4iGQ^G;7r%a zPg);&qw(Oc8}~fhF#1g0mM216eo(#fvC6d%RINGYA3B2RV%gx~(!s+e0|!c0?yDF$ zP}Vnwvuir$jYE7=f?IsX(K_426UoYFetS2d-pE=o=hG&eTDi}Sx4id|ktkYgM2)An{2pnH*LfmokLRDvBrIlSETrH>w{LI@kl9%0PUo8Xs(!9n zH<=#fhY9l>sfxd$WbAJ0&bhJO!#m1}-6LSTz})h7JxT*P$-Lz7jAHTkUrZVa?eVsv zk>eh>W@<9Fk)I&l3)s$mgs1UxdGa^djx8|rPTOnm)lTdY8WZtezGViio5Up9g=o@;%^X-bqc7wl1X%FB$jk^XpGi>L` zTXBOxIr$&(E;759ghO(V^Tu#PI_Fkt^}1;6r+S>cYw(efn^;9H-yOJ}MZQL@qFHq3 zX_h2j?D^3LosYfVb>g*-$KUCC>P*LzAGADjs_o&oT2GvAf9!PA;ompx`gy~)r|LGI z2(No60M%C?E$`o7zI?Q-dwWsarh?`T1x@P^<*Os(xD(xUq-&owXk?X#?q0I0= zcI}|AZZJLAv$VJouqWjOlX3#YVqbMaW+fJ0^KI-XnRdP+z;0bG^tV{RCBQC{3shJ4 zzuUDKs$h4z)2Vw}#|wnNm0lNRyEMHx`uRLd$ld&$C#l=;oW06NVju4;W^$zue(y~tuiHQ0uHFh#0L0F z+`U-Vp;~h$7o8y~@eSZEAhL-zG@42;ct;o^4_8Iq7JYj8xyaxy;hpSV`tBSNUTUl= z&Ui=g0@yXAVUkQzz%K9a_Bv|Qqb2YRS4v$#zf*AgpzI6JtzDD401f#|vTKT))|Rs6 zFuXFOq9voa4!oyA_g%C`gRrxu)h zDiBn+*V;W|@}`rLKRc17=PA-O%lEi@7EPat>3w`Gq&+e|$lGB%U?&9fe~)ZA71{bu zWSjIlPHaCNA$HIhqao*~BRk)l@In%7jj<1+WABge`5*%1C3}bSn#Lol5G3=W*dX1w z8V)%>!p=74RmDlhZKu>>Rj!NYfZ4O_wo_W=(P2zf*Nojs*F}@LEH1tW88W>VC7d>x z@!0W*1_e{jHDf;!i7}l7)xo%ioRGjvkjcBjXe!q|q#M;Cut3<&)ycGBBda$EtwmCf zq!cUXR40Y@BI!7uz+BP6f4K!vY=!WaxATU)2|x920i5t7OXGQ(UAONA-Vw-~_F}XL z?D6*wyL}kdC+`&cOVu=t#&tnD8>3F(4-gTj1v*7BN#69vSA#En-1X#J?GOC1^Zr*` zkG$G`{7qV>@{}9qGi3Iq7%ahqS&_#y{_+XG6NLq1pG?0V*LQrH)|kHZf`+;{teo z%XFbPq6#N2*wN4D5;QK}3fOPQ+g9vtrvz$@i}!nRPsJAdmT5PK-V1J-&O6V!Rh@6) zyu7WJQ*YCTNl|0Ik+E~dz^ubF?x&1EoH7M9;EJDfWp-znI zx(Y4Ms*JygjzkD=khg|&j&{W%KP}USP1=)Z&Rcr7gghax<||<5P9b*?aZ@Qu#AVA@0p8g;C0>_lWd(JErEMFF z*kBv%$*5>0lTRzEO)Cti6@;|R>QBk5ra?Wgx+5>x?en+g1Us_>9UOCOx{8_xD!Vq7 zv zm`VCAGLGB`mKBR!FLSJA{A&D}nPZi$ANUoh*)Q)5(&4$?2sp6>p4ajtj_{wMSN;R> zpNz=}O4zt46JmNVgiqu|O51Wp3IF|tma98#hw!H&Zr(lt+qa#TL|t^4xEMt z;+y63~_*qO-KhvOW9x%4icjmQ;A!ethfjGe;kjx*!v_BanP z@dV7t(iuDDM;0=^sxz%N0JVn>d9`GhEqE%en-n9m3`x7H>ryafOSQXDLnIdoSz3*$ zBLIKYVY`7{sBUbZ6l$>cRY898O62SKVO0`rkusFYB;F+I@EKHkA+ENnx^oxcN9H-k zGrgMvkcY8gpSytG2xJG7U4gnL0r4vg(FSdg>UILs;}!M)4cniJN+H1c@O*yEUdF#Z zaV`2V4r!NSG%sy>^UCU9on8LKf43g}P0PM#+jjq?Vb|03qr}OE(UbK%p03;Wblv73 zgw{P6Tzxn=aG-kS-pbywqK+*EE$a(gh6|fk=Qpg%4zI|r>0wu0PH1ILcpxX-@2gpv z8R(@SCWW$TVLdG|i4;!@>JoB8i!%N5U4H;ZP3NaNR7Z#Lq?jpeXOeUZ+nMMWi0N<; z@-@Suma&6(f&3)iML8FYE87k4CZ5|dp6!~V-^=bHBfOBDJ<+$%V&n6-F=D#?-l<@R z^Oni8RN7%XD!n7xOE#`ay9ahtV5S`Hr=;s9#Ym-0Eg2^XuUfsA{0rpO0YJLz#q>t1 zw7i7BhP_aJ%A4Q{tNt(uJ8<5WcO1tUe##ZZTLQHl!ryI@3t76#I3~HP>aNBwF598E zBh)C{XVRi6N&8Zd?RE>`g_CNGel?)$o0YOi=&1$P7!yq5%UWuwueztCd0k<{P%i)f zuso%*jRNbkl7@5$50eXOATzppVa@X5hW^63{-TCe6>aM)yEYQRl{@Q)4}}KzRdjDH zZdy~)G*nXGmy}aIKczS=KkTb$$*yWay+OlCD-0!(QH#MB&5A--sBUbhlUyQMlXe9= zeJO;o-IN()tee=2ExfUvE}ArER7P zp&vu~`HkMN-FbpSo^$&Oz)uP80+ds^^YULxMi0;=mGE~8&lABrV5hV#U8(mh#GT+y zWjjMjB4$$f z7Nx_4ctn$S@^*p*9%z&8n}ZfhvH7V&TYS_JLsSnz5|O2Qx`t1#b0grR@_|XGjqOJA zDLFY0$;nNG@l+b=y^IS_it+Mxz;0}R5>tiouOGb@d-O`|!Ar6GKaWxJ-bP3IOCNVW z_`8<<&ozynY~1=-^X7*eH$E6%cQiD7Bs_eicKC2;=s>W4ufK1!vUf*W_qJm6^A_Zn z;ey7Yyt@9J+7-Fso}8L)Urm> zlh6XdjFN_ovX-SeLHx2E;`rtys=&A>MhG=wiFyS|6Lcx*extl%7F)2Q^r z;7o$q*TtypHpRtJx0-@El_ngFH7_c0T#>7o4M#WZdF(UPd zO`^wtm2sSpA&r`J;7>$Q;4RNLVaF19JGY~UZV2z;J^qC2Q#BctcK|!-`omWv4_=NQ zyAVBkE_MjR%zuop|HH-pr(bW~`}3C3lTACGY})!r(}v>>!}o_)9jNKw6YLuctk~&a zvAw)|OG)P@Y|;zb*5@~`$*UjCtsBU#B}HG69a^3p>dp!EaN-O1a?w|_LcorxS3zx3 zK4AA_y_@LsL-mEoFBwSd(#LMTUi8Dv6@lFWyT^7c0^BNUrfD)}6oB3?vW$$t-;}r0 zMsC*YR!jBpe(Rko$RNcqG%B@GC*<7GWacQSXL+FJ#0alPVY`G-cLpnuS#QdYr0Ms`xeUX~ zB&;1J;h({8pQkCkoXEzF8FOXz2E$Vdb~`cb!+*jcPkGd&8`fmlrVKlA+j0c#j?|-1 zpjAfF$om$)RYyj7YidbTR)GI`R`>$wEuB7p z2TKn#Dw-wAn=?pjVtZhw2=Ww8BB-ppHX4RJ3wL2R&>}lS5sCE01rp*WH z*6(T9aG-wu!G^W_{NTN|ucUFHs&j2w>tJDRPj*!+Y)8Ns!6d7S%o*{V!YH`5bluc- zcgx{T{#`uBWEqd`s>wKcJM5+Domp33MMHKa6<&=B;rz0qFqHyW4b{z}*}x95Q?mUj zzG^YvXI~6ex1$Unre=zhfD})oEI)U5y_5GDaM|5}`gwHs<>>`LtT zrRed`V@E%Y9-`RshjabUyxn#DrIuYMTLAmcCmXgtR=?o^a`l=)vY_47eLJgqwpMg) zDr?^$T`o=HwVO|_9$sOQ9qP>q^>Rd$$*R=|^&d*zV@-;@k+^r^zUdIGl(Fqc#xUHdCzE-7q^x z#!Hzzif6m1>s~;6)!U^v=GJMHP^aP@f!*q-LVE%Jea7~i@NVSCor&EyPAzqk?YAr2 zL3%vf0lW3R$mf^fA(Q*G#JIFq!h3Ajw`G~Be9l`~SFH-aoU2~MNqi+&@Gc=p7phx& zuWSeJ@gb?Z-UWp4>`qea00=+*UTMz3{*jPwOgo{37Z=lKCC>Q1%q~gNNajCVLI_U| zuL_SC`NpxGDlOBR^OrE5Q?MwbY-xU&K3J%p8R*Wf>&vU_^VM``Rd@Mxq3yDY=4Itg zX{GEytjqGZ=7oCsU#`4;xVmq1P2a}AiVfAhBY~A0>(=aO0_p4a)D7*dS+%ux^=RYB z!Nv`T>(}fB@1*xt-Rnx*R~OXwWGUO}lLWTOq#5a@R7K4jAGXh64*{2e#+>Tk@(~@&e7d{$^^sITekWXiB-&@R_>_VQjY! zc`g!c-^R5pF+&<@2)zq9JvOBJmhE%om!h}J%Iw4}ta9XQ5#NvaQw!c{i{4Gub3w>(SAV4eZfT#rUp&M|b@@GN$?Y*tvZ&Bej?aKx(GAx;)01D&aK4H? z2+w(EoM-gLaquFJG-8ZHF_*m|Y!AT+4aduMr*OXqt@4+WflJ`L%-ub*n^pQSC+5^?uHM;gwn8zO0&FoEy_C+m{wM zEG`Hq<_4u^>hsgSE?{2<*vl6p$fSuNqkaPHwv(8R6oczmVlE~yPN=n)rS8Ud!~2Xm zsZ>-olBdl|!ZMd`8S(p~XJ*oj(P8^{q&>!JrewJyzjz@Dyrk|D0!*!t#;5Me^LVxk zy;Xs?6Q#YQAuv|<-V6<`Ld(5z<4L!=VPkR{-xjw8|20^a5GO9n`SAd0Ut5cg*^>RsoFd#(DdV-pMaNTdKN-%i2~GoCJD7 z{iZGK()cP#m7%3%>{2-u zusb0;Y6a|kR0{|1V#ez&Jr`>)9*Q{tP3+4`up>Za$}DX_`C;_6pr*Yb*q&G23f>WF z(()O(MOu;JRvF8p#+p&WtLUy58&6%ajmdyQo;g{ou8PHtvE7c`T<{sghzz`A3r|au zr0(co_a)&WM%+0o!3dAZkDIqAY-NF+wl%UiL&9lsv_{9s*3*R3Ed$|qN|Ve@S-oWV zS_!qj7u!;8NcWCRu);~vVLpwHeiq%OV$0aMC>Y;!DQdC%Vsz|6gd<^B_A-m~g$3hC z6V~Dg;TejzqxG?Kw9zEZy`99H+#ADzLsug9D%M^fphHrwh!KIfhrx5r(vOp(UydHS z5X0adEeOLgG=F%`SnkjpH-`RpWA&e}4gTS)-WM-+KL2^wFF)`7^_A{lU+MkhR|Bu# z7-ffZZ}5eM zES+F@cE`UW8$Y|-XkALZZFfRBArm)>peeDE&fJ}1coTPhbjARXmo3~4o3{CZmsilg(fz<#4U3x_u@?A;G z+S1lx8eK}7hjYXI#`eteW>B0~98N0=qsin1=!Y5f!}h@)H3M6~bz%Jqg!J;(!LruX zrENpy?So})tE#$(!vot$+8fvJYgo5CxN2+Fa@f8mU-I_0^rCv44d`sQ`X(R4(P7-; zX*|+BwmXDZM=z7#?P(mjJHU35Z8R3@r+i?PpZs7~QK+jh*pVM-BaKIyNh_qEQ|uIA zJ4Xtv3vmOc0n#<~wYOS;pP0G?8^Ag8{(MM+6P}E*3}9CeVXQA%Swj7qKlPHC;N4nM zHG4O4B4|7JV}_tU0M`AE{7wRIpoa6`3~O%WI!}`x9-8NA-HAFK zKJ@uWv0x(lFyCmXKA)3eu^n$+9sJolE&HEs*#2bw#s}+09te*d4{v-(V&r(u@X_GV zp}^pQs+GGdR*aVSY%l5DQq;aFzhxw^aX7beZBE0Q+=d}vcvTiP({NvAs5c|HJl)?( zCYDm#oP-opNc}XFkWJDaSd>M^&K~MY8e?pC22JeoY$s_qu^rFedlPfX-tEMc86$kW z@E(VEF&U74NDaZe?oNtlyLQV+>MjB}RZb^wM{=j#QH~y*9rWEX=l`GWpx7&+nkTT^ zvM#MGBEl%uF`}HNMmN)D3*PV0Rn9KnZA?`-PbUm-I0^7L!QT^zCQsZJ&8ckH?-x>H z5Xegac6*LPcsI#M!(r!ge7KyKnMXd4DDyPh(RarQsXKy7u7Hq~9&ZeqKE zU7OosI}5%Gv3#MG1zUb(y~3td#VxB#TGkXbNnPF-?8?wSnRFW6mF?*z^@#8#&8sWB zHw0F0B~dSFStV_d)oq30MyEaQPHucrf*BQe|vafM|f~M0#0T32nl~a z-z6*B(+V4wFh-FsO^F7~|2^9=Z*4f{S6E8k+~iyu9Wi#s+0rT$-Y=DxuyIe9 z?xDJa_j~50qRhz6R7J46?h~U(N1st~X6xy31-KyH3&1YJN)~RQXa((5_LtgafLPv7m|M|HBb2Ddg9_|LX|oZlVQr-3A@U1~`XM?h&$C}O zii0J!0O_}XUv|6>|M$eIKi*jR;+5`aK5lv7jfMlShIYLW-1%H^?1j36zY87uQ^SLQ zZ+har`X}D6fBgO0W2b75o@#pZqvog1wLHy){`t12FSPyeQuE^%n;yH={KOX>Ke{~l z+Z)UdpnYxP&0im1_1B61zfAP~MclWB-Yr2UuG~pn>%T$zd z8_siXp}jXwA0}-!gvj_b+aTJbt4~B_o%guZ6fmwoawT$@Kf-5Gwu+Cues%DLGi~?3 z#1v9^`2Oml{ndl}tA`HNjND(d{{GAUWBSc`J9@jeK3bEEaUS8_w09caz0}<*s>XKQV{Eg=?IgW!m{*KjOI>JVry{wd z%uJ^oIqCETDm|)uCvx%sC2u#?-HyBoF9*UF@ocvwT*MXwJ8k*1mk8Lg8dl#M*6<12 z0ltHGZc>ET-Z{zkNro%or#$=?jhb5LmFu^C-C?Xb(k6w(JxDT|hs(YTJ-LYsPSXn8^X%KSPj%J;x_ zG?`4qc9iPE5Ccak1t{}v7{Zjduk-hAs_q^sXMp5YSp?*3mshk5 z`a9MURh=m9BY?fKYkf)cU|wK(MoDW*UR_dV^`bNxSt1h#?7$gv+L03v+TMwAReq#w zx9i4a&biL}aHo*eJ-1q>Wh+|<#;LL^8gYpyNZQkBiNwSb|AfqP@_c?T@22){nXFIc zFQcpXma)SZs)KG$)F6m)1IE76z_Ag_ECK zvm)vD{;M%6p$2xcYcg{I`{7#%m)oBCqW|UbHGkrZ!1$_HuJyd|WzUN@mXqQCdA$G4 ziM3QTC@AyI;!E%zJ8&&_@J96Lgs|NVDmhvLZ}bM>Q-YeTgcfJ9wWNrw_Qg^`roMbX zf7o;KUk5|x?e9(u|KWV^Pu^)g_ELEJ4{J9(QZsbOKd{F?u-iYlw|dP1A^_@F@AD(b z4DPR7IaboWwSc*#*7bSK>vHOca_U#-)D32b2hi11D?3ukTa!uDb%{nI>Uw@SF{dUW zE0CB;x{exCv(Oh@;0rFy2`}&k=4Vx52uA9Tf(yOc5P7MP) zN9}S?o5FUeE}_fp*k?!JEx^cJ0&hwTb>%(&PXf;SF+IJeQdk2A2E!}I2Z z^Gn_8t<%60|M0e1x7;@C+uytQTi?6K*iNgD_nEyD1H1jm&D(EcdpzDfwqsWkpSROi zO;Az2>s~5)OYfScEs-p9D(@jU)SKeKK!RdWFQk^OUw z?SNV&cbXe>{N(M{md^|W(^@! zUzjelW6UVI{ydVR)7H*$5spCVycVzv+qo}b5FvF{v1Pt{E}f`yW0jDi_F_xXQCgTh zMN60YQ%%=BfHNYho2j+qMHiJ?oz#w^W1zYy+bv56=|*+HzVH0_{!8QV8H^*LkU(P0 zh}OMNK`j@xdl@yn`_r_0tqUOw`8+4>Wu!;hA)d!l^Zlcj5)s95(@`Np4B?s&0k^!NVJ zKl(>suHN-(_y7ipXX_t3-}uzk#vfg8`Puc(=dX7?f34#eS391$*!+X@oxix&^UC;& zzfBChGr`)6EtDZB9P@?ct0-}hvM)Yn(m5}}JDoEe!8>6m@ocw?fE|^dP_{dxxR?nX z;pX@`4Nh{;8hUNK|2LOtttgaPT1SSQQA(#uV_vAUAl!{&Blm*( z{`?SXOlw+kLvmhiQdS@-qmrE$@oeWK8L=%J|K`ycZh3P2PwkFiY$tVRDk`O*CON-` z`_W=w1;PvBIfYScgI`G16(x!<3#dAavlYwOGCO#emi75eTT^@yuYN-PenZlXvm%BlDN-gmcCDNB-tFv;F@7`bVo# literal 402054 zcmeFa*OMe^cIB5{sX|A1xC#&V5FT1kh96#j7=a%~;D-_TVFZ2{fgeWT zhY|Q;1b!HSA4cGZ5%^&Qei(rtM&O4L_+bS8|1bidJlp-`lilxMcRu-K=aXl=vT@X+IRdjp3a|Nf!NrC5<7iGXSy z29!N-&=pc#A=NEuQY5Cv(jh$-&||KEa^RKN$XNx{SU?ktY^4+{r6+QVl~%2^Vr3$! zVl-1W(q$`KHS8kWB_qk6N-Se!%4#C7CyTk(Fj;J-%I!p<9?Mo`GsSx~-fkvCsu_u; zq)414q{YHUf=>?{$q+w&T+yv?G$ut8URe+6rcaIfRZB5>OCrerkpzbd8@4!REW;bQ zsE{7#m3_j|q-wFzmZNqgnb%@jIV#@BBKFi`dNP-*_Zs6>sXNQJCwj6VMeP7bjwD^a z;QpbT(HN}H=4UtCo9ENx%hqr%X@+9OgAr4W*;2&fHEbrWOhGZ@UP)0cJC-doL<%3I zCqi1BS3XNNZ0EDHnJOf571c^{`7F*paj_m@XU2gmvOARif>J|#Ko!>zlvqbe0QF(&f-_i zpdJhAmQQ@YCI=V$uyZ6X8+>joq_Ht3ZU!Y9)GY2v-gOv|0vZPod&1nVs-znMMdO}- zw#y^=Y=_5fmnX=z=kgtTf+0B)2y0<2s#}RfCU4nXujvbGhyKvM$G^wp;|q9$VUHBv z_xKKcK9@hR=W_2J9J1^ky7ySwJK$+zoh>}zd?SY*j_lnN8^v~BclQr=4|$OJTy{Qm z_IL5h&Ic~Hcy)UYon_zc*>`zdz5t(l=ne1{yZs?|K=K5`Zhw&N-jG<~DfR~VRnQj- zvn3#_hwK@UTmebE%g^H+I`juwe3Ja}Ee9TPOm`sYm&9B4TpmzjmviH^_YOYU6+k55 zi!oxIvDyW+xJFKUpUV_i0rKqa@9yvI9&jNJnz0Y->?5}Ci?@q6?m5TV6^CWCKY1pW zUDh376bBcO_)NS-42T%aeKDT92b_#p7&MpH$1B6adF}yp;G56y_JduFt&cMoi^sRe zaCy8eyNok?GMKzYyh{u_BN>!sFQe!8GtT0~fau@z$H8qb?7(&44m{g)i?bCtzt1^? z@B*kgX93H548pVhgJ*j#mfd|m&U@f?AApwojN#rhPX2%`oEvz{nR|B+xD$NbY`g-k zd#=ERq&>Iz-ube;Qp6k5{F2H|t{BN^vLHti zA)rIEWbS|N`9LTT49lt|>z1Nfk$6r8qcoFe#3yN1rXodorc61OQxm0tRb&0^*&i+V^|VjVxRrPyR#fwyV4|v|>sqF+*$pk#unL`QeZXTI2Br)vT`HCvt!j6` znrfGWMkhIyiY4o;@sY-(0@= zdUo}yK07ZBwwdlG+dIm2kL>0=UL6XB@#FgRf;jnC_w`|0h6#lwg8_Hlak>G<-^_UWsm=U+6JH@)rS)w`cI z7gwY67psTQ$LDVv%bWJmeSLn_SX?&eSLM+*SsPpBL83B>m;1%R(ct8HfBTs0Z>#f* z*5=x7O{_{^%arWKz$~>=?XlgP>4lbA>E{MVmHE}=_CsU+kZP{t)#>E?_2Beny0gx8 zH--K--`keQXYI{Hb9tNZZ;Qi|((sfe*_dZLYj!9OPEw6UvA-?!*L-wsdQlmlSEpCC z#cl8Ob#49FJAIXH&U3A4qCT~IYa`#%%bj>@XjM9y=D@0Tt!lS0T;&I=(&VJMxwl*M zNUoWv46@x#X>eK|oo8F?RAZiLEmL*znrSW4jb*yIsv6BySGR9QXO9KWs<%!xC;9%0uOrnO#p_+G(#m&-iE7&@R8#d9 zzz8@AI^j5ESf7M9|S^HCU4r=NIan$ zQMWJP!2555I{}DT!;QiDAGl$>!M#I2?3$P&VvrMt1jpVx*xM5kjoskGy9b10zmL)I zhrGVvfeYyNg5DefrpL!0-!VZUy>Rr^q}4+7CWuMFT5 zTn@Y;k3Z}V>QHD%OQGJEBT0CmYGoA@#+y{4wyeh`SydyTx)HYvCbZCqS(y_2P>JQ? zifSw`xLKm0XPQc)A|*;{rezd*nfgddwWLftXchgjir>r!Q;l%0D`(n~d^=L?l%}Uz zt{pA*%t9wo?%9>Lnarfi)n>c7Iz5jUngka;(+WrJRCAhajuYZ_Vbo?;ZD!VHkf9Or?x$$4XaQ<|I=ho{;8ak{gyYST!0lcz^)#rZ%bWiWTxc$*zoV@$P+2dEkt9QMNH{FvL!^=;{SDy|q1fsI^ zPo5SxpAJr*nv0tb0KT~DY#yr9%Y1KB8K2hYm)pnBj~+kptKsR(@#X8m*~{L^Q+0Nc z>8=Pg1Qe^(S2Oi!b(kRB)Mx3=QF(f4ch**8%CKa|$9ip`m3xt5FV#CPFRsV;Usu;p z<>g&&e3|NzNb^M|{y{^n}hUcGFW;gS@FFPkM8_WB~ z>b^3)tW3c33tlt?nq9TVzoi8 zze+SGpl+(SwA-`V>MGHgS>@jF@{Ie|hCkl%Dy*Mp;n+U$xQQjKMKblO>6_cwQ?;kGh4EssyEax+%%L~EVq z;;b=0lam!ST{8+T*)GemtS_1jGUKqh!D?Q`Vq%EILB2tM^>esX%CD--7GcLY$Y7a_!RxX8-N-e_%-hBP`qO1+Df9VrfO269OnK{ zmZVrV%wncNLSV})rVoZs)?_Q;X7U&e9|Fr^#Vc#xunG$K!V0j=t3Rv&M;_)2k^-c& z0%r!Y0C2(lS@@Np-y#t3E8fEEM^q20k$`G|T0t$!vlEWSgUp`Hq+~E{VM=H-8wJCa zc#d#nFuy2NqM0I`N>3FPJFoC)+XW+6QPKs~&Z~AV5MjbAqKuYIMN(P69``ckiN<{q z6G-%g_~@`dEE8^^oj{tHfH2EAIM{c=NcUZCH(b~4gCxV5T|y#od0^2luNOS?1VTYc zg8Ux_6(U_gQNy}+;C8wEK~IS75|HfspTsxe4e3 zLEu4k2hRz4jEtC}9Jqu|B6eo#C6HW*CoGP-!nDf`hKuoZ;+GIu_8oZNcR}nS@VjDi z!L<`BBVNTm3`P$_=0PxW=+^~x_bCTHZm_6Vi3KCvgo#pT6159@Jm(AROj<)mN-|R6 zh^^}Jh?y)@yK!!bXxvKXoBdg5b_}pvX@Y(^nyQ%DdNc)TshYWFI9ZKWrePk;WWjEX z{dOy0Rn%-ZknYR*zLXzmrD38zj@4(8d2|g;w{k=xZs3ZZYQQtglk>vpG}Ajyw$_Q(`uO!v&OiOd z>ha6*<=g)0i~jbhw|(9_eyY!Ja=k4`4)d>$PCE0;_TmaW2j}baYtX4YKJ9JpAkvNb zRds&ZSl`v=*PvN#am`BS=rPmTWQW^$V`?`S7W0VdMeFp{@b1g?+dn*d|I69)pSDk4 zWxB_;?TggltT?}Ioxg2ge%8DFa`O0-`P)BkoqgK9{CxcIqv_Mn`!`=UPTtlwFDi>W zfW5xFtIlsL%e&^$^V;fRboBvvuPyHYaJYSKdf8aqRA$%3(K*n{dTn+C!ml2_8eV)l zy8f_!^Yd5#_&%zo;&* z2dA%^>w7|Kws*n>Rwoz0c(%2Iv@=&K^p6{}8|DbD)m?LW&6w0Dr$j&oAz5D*hsW&0 zbe6{o(oMFmrRsKbmTIr!%|*Pih!lsB(lAo!>xGV09q6T| z%&l8)+nq^aw8{=v+2N+ecQ-kMz32LCcz&kCoij}#wblEHT1Q7vN|iLwFH?~d1trta z3th7^0L&2;BX-HI_2cDMln`L10(#u9Szg8Pgj9gt4|RteN~$NQAbqfaneHGHY6&U} zC<(+4B6I-kGJr3z9b82iadZ-xxqz>rcxB5+&4hi33+(TgHTXXfgpYFxbx{vStRQkz zBp%RAzzRT?L8n}a*KjyyzMB1;JZrKPy;A3_$npEtpZfB$E ze8kQwF`J118Xe5muS7&xk%%&aU<)7;f&+2{s4nCn6ebuus1EC9uE9PB9`LL_C4t3QhQz=ZcrO$z6TTwAqA})v4zFq z-VpBth&THPdXJ{ZZ}%YNA}k(o$y~j|+ua-id5Y+;@A7jH7jezy6#~wIhzKHT`Xy(Q z686fbC(Ilqb{OKTCoq}ru;rFxu8`pln}JBmr`!HWT2I%ld>zn3*i_@i5IU+7mGz`) z7t_UNI#-HB5i&c)#w1&)snJ-q*PXA?NmkKRIg-d5c9{nXY}eB5NTDZLc_m)dGOb_| zy55)4ZMiT}^23nb38i_y`j9|9-$}J*`3_Jpw(Ap+*2*_|md$L1=Q?0ykWwSnkx`rQ zU;@kGR7=ftG=bzJy*g2gLpj$~vu!Y6EA-StPs#V$Xf~J0{z-0h4rwRK=%tBSg~Bb& z${0k=!=KwM%hK?;xxQ;3J)n)`dYfcp2B96Ez381hADzEyEN`pxD`basYXSK4#&~I% ztWGMUQz}>J^-lBslT2ru>%x#PQEvd-+Uz=3nKkA&oDwl>{o>p4{g*72 z^?kfKi?s-yP>~A)A zA8He*`*EU%9JI-_*HC3>JffD}Kzmt~2FJM$L`+}ch=XH{yI_V z+O08DDpV9CbP4vDFUcTMt|X=MzJ%>bqE0qY-ed-g z!f=~v&9l8Fu_n=&BI(3x!$e~YjZe2Yu^#t5%-<}v?WWims|?Iy2O&#}<>Yt{x=td) zugAP{)a#@J1W`w=4MC*>2T0jM#3q@A94aJV2f!tARUp_$bOOCWCjn66U9ty}0ntWm z`8CwTY+XUI55O+4T~g3YL|l+mCIYZik7A(Ac*95vid$AZy6!Wg{;0(w#gb;e6f2Z@ zHL_(uJ{-^Zjf77J2cWVEP+g9vSVCeQl_v2K0|UAVFoq11PeJQA@cB7m7&Xu;fSo@` z4g1Img2MyzZm;**!2xo&BWwFyJ|QV1fcrusT0zT2oC->i>VOgVOX z^FcDOjL;1^_b4Lo=JKmhS&+>e455uUVz?t#d%b&J1RuCPW5|p~lDHf>;+G>5a2--4 zLYswd49=TMTx5>m?ZiHCp5?$F6qy2Kf1-vba6sOWuZ+=?b$`@U6G=T5VJ51z%Nth0(FD0UZ`k0L^Mo{?V!DC| zP22_vubT90X{fuLC?YcFnj<4!4eCkBN{7@q;!MO!r*fryscNV4ozbRP@5StFSc^~R z%lAL|#d5WpZIA1{alSpvwkFBiAXXY^HZo=%RaUawa=HawS4-n?exMWvYEi5h6=ui% ze0Lfxbd6jKnL@KGvQ^O1B{N@>tSlRuQ-tEhK(ggF%N`Tmz9?j+uobil9wYCuDpID& zEF1Mc5G#l5dN3&#Ip5Wa!(@AdOpR6mKF@C7*5+4MWdecE^^aSi@yUz+#iz@sAB}F_ zBeqN~-?Z2FFxzAUp?HyME@R~}uw#Qly)Dp`?r!pfEyNzFr#wAl3IIi~&dwW)Ykr$Y zkRKsLoY!Ypo%LN~b_Jj{7PsxyU1ND!TU@YnYkku`eke^ZyT{K{ou$>7n6=^H;&pbg zJ$m)y<2OGk%+6DzEo`|sxoRH2D2}hHDB;(i*N$Ga&)>CAKdo+_j^F>u@an_t{u{)Q z{^^_M(NleO--kIPu*|LpCoii)jrn|a{{=J{rD$>Y`S|kF;rW~K#iyO4=jG{DWp;&B zg-8OIwo$R#o9g(YwY(dhza~w9^t62VVs`gMd;6lkegMXsM=z?&`{w3(bM=5ekHXVC zegRkK(jqyS^DI%HRVPK<%|lQV`OIpfJF713(OXBI>ky{?Tm zwMw@)vFe0_L~;!&Syl=#_F=3#iZN5DjKk@=&&&kuyp%15G6gqEuMv~;)u3IptHW$( z@$lKte*72z{O!;F>B}GeDI**$^#fKx$+aQpW@8fTu5+`Sc<0#e9;dt8!uTRPJWUTz zGo#Zyr%@WhOVwOiFE*mpwq9<8Gr81YZ4triQ$kywur<5PjnQY$bAwHmj6i!@njE9> znq4ab}<~!h0IjYuzAYJ0=rOsg&vNJ0OIOo?tCCQf;p&&J}jhW zbP0YWq3LXdd5TOW@aXbO1Oh?PMGiFN3WR_`TnfD9!0Q84+0J2ECp7FqhMhgd6d)+v z0tZYABv~wB#U(2)MT3q4Vn`5S(%*@!lFZnZ2Gl)drC@r8Ar%Q)Cf9EXRM%3Okd+Yf zd)!%&=%Y;SnS&riJ0en$V8r=z0@yR$z!bStr zm5|-?$Et@~&Sw<8k-X2y2Mn=)7Dcqs(ld=jbx4|QdiAPz{6O}QJQ}1CE&cS(kHBrR zgx&2!b#c>J-Bsq-!^^jur*9^gZ>N`U<~Q$JYsBZP!sxs(xy+8v07vl?Pc4zxkT3nZ>7wO&>HL0+;E~4HnZ|m!OGN;Y;L-+Lc>g7*P z-~Z9<;Va1b=H<_dql@v)=P!T$m#gPrFQ0$iJA2(ddD%IB+1NY>duz*k5~FOaEN{{9 zr#GLqkAUSz4%Oa1bxvQDXV<04B}BbAxyTPrk!1k+#{8}_*eF&u)0lnwvp;|T^Ix@& z9*dJpW-jH)Wqxp$?K7Sygn-iMyf`>5qO>foVzqIyy(mmhW7Qcjj_MV!&554iwhd3N zEefLxG_Jz%BHcYsHrH`})!Qapi(LOC)j3LawyEwm-9OEYFOr>&RvN_HYrB7}mj-IS zrDTcMIZq@VvT`0h;Z`k!d$Ku-_m8x4SIITeRg%qVqSR|FiP~c=*NPN6O152C+@?ks zcKaH&ew|8R9)Sb(8sn<+0mKFyf4#GvK2K~*GmnxR8{iTXuX~2t!&O} zcwSjQR@V>Z`Azryb^G|SKEL3;YHe=Nks6DO_WGtgCCR?AO6^Ft8p%}1H)+7Tl|_m{ zvlR{>7C$*eA5(9*H}sXKR{ZEF#*Q(=2XzPf8~`LW25IzS#S!QYu!EmiSwMC8sw2oa zI*d?b1eA$G@kS=~E>_^T0FfU-#t*rb4xs|VyR!zx0G8i%c=0B|ICBUesV z8qs{kr^no3gSUt9XbGhP(r&BC6m*>oEC?SmZ6RC$7i8Ql_@N<`B{UPSh){xCBBTrF z-ZOv^ZA1hnUq~?`-XQQU)B{cx@F8(2MWT8#tzOz1UnMSTr96(sjMTFV}2vj zxkS8U(iBE}IS8nSL4KvX!Vyv-K{JV{j%5&Amk5*$z8a-A(G&pfb0wE z2OffZ$RAR51S0Y#QW*IK{T=>~!sVEtM6%TrK(dn$+~jAufB4?L9$!$lGJ&um4&|5l z`nU=_hkQXH)d-VN5PG2P(K0?Q?NPC-kr{`9)Km5G;{2i5S!l6>ktpJXNo2~oT)9$j zwff^&GE*PSW4HlRMKfK_HHWpqVsvy>?k>~y(eJzJ9a5j+bSIqdhSKeDrfs#Bh0zAk zi&ch3x+X=lN~)%2s#d9~*yTVJw_CvzPN?a&p6vksk$g88N9t_G%0naHiRL;?4NAjJ zwmmQO7N!2Cv%XzDygzyU&G-T><*K>FpmJSbT=FEs6+7GeqZeP^eDRCRPk;RQ)gL~7 z`HRuTOMoTTT*um*ME5w}J+@j$Jk(}=iMEXVq9%&iDP#F&vfM2Xj-Z7Cw|lF~=-7l7 z7J5d$4?b`S45p;S3++&e>1=RY;^Gk3Wf%yp6(nc>ZD(f?cQmscUqj^=h13rH<`g%Zg7@tZBW=U z-4jj#ds4EqwFl=&K*i-#W_FjJ-kPmVw6Rq3q&ORaL|Mu-e9=rGl0>5=xe$)iEiXSbLpkCeND+8_f`GsNDf#{qMAJBMPyFcXX>(CSG+ zifki52PSiT{5-v1;IX)0e0-u5|R#iSeMU-;!RjVx<|}s z2JvyM5Oa`Uki-FYR4-Hu)C@Eh!1Eb0h@kf(j3T)p-R$A*K@^g;1144hRBPQG2Jp2Y zXQ-PVHR29O4uU9JI@tJ# z>@I?-VE!W4;0p$1lXYSNqE=AWF)9<>nOp>wC`!94WVz&|OU-!IY|tuesb-=&O;#p@ z&21vz>?|+K{gqwr#j^Eep_xb*3Z+^$S1i`L#YVqaADF3%UGCb2RV6+ zx3gn@zeOvK<$TX9_i!K>#ag85FIJBd1kS|^-mt^YY6Q{ra9%~(v1mW zPEXaeY)ehol~h%+E71b$4K-B`#|u#s2hCZgJueS9y={N{e0cK6#00eGfF=Ahi|agk z%jg7ozqz`_me~POXVgn5mdi>(s_2UXB&%Yj>zZssrUEX~T6bp~X^13iR&yKf|#srZkJ=nlk7f)Z$ z?!O?fiY$XtR7E)%UL?g;_t8m!3Q8Oy*=Y{z_kX~Lt)wi#!n^%c}51reu>nCqw9SN2=ny&|fj9L)(Y@1tJ(N63mN{I&pn~eh1K2EOsGP0JRWggmi!)>}1W* zk3k;6X~9MS%Hi`~5KkD|$!ijV!o{?f{IhnJHH7#9{l3CR*V0uKQfxwd^@KL8A z5~(7W8j2>-XTWw2C}5wrodOZP+{JNkQOM?6OqEV2S@8*1lf}`u)*} zo=#eZrlPFl5JGKN6-5dwP5GBXu6SFg?D#y?h8TR)xGYW-+YV^=2@B0k5nmdqE zZYApqr-HGnWL4mzn%$J+6(&Jyyc{d_D}!xyxW&7hEcMFGL9S4X+nHRco-Nif&P0>N zY;A}KGGf=XWbOOQbXEX%p#Hbeey6)SC#98a4Y4A`OWjl*XWCH7Hen0Y{sba9qtwAU z7K#+YsU~C|QyB|z8qIfchDXvh#fIJwQq4K~HlCJfb(ZWMM;xqcL5#Y)_KyajGlKmU^zPWoy{) zW5s^FG9asKWEflW{5{sv(U!s6D#+bUs$*n8{DIJ={CsqVBz}!7gNvrQz9~%3(u3{r>TTobVRrZV=<0p{;_dAAi^=up`SDGzf06H< zmB6(Ad2w`|A7AE&7lq+@b@@hw}PGiq!VtG)pL%ULwfk0ePW&Jk^d~<;K^k{zbY^e&J;})vX`B%#ALI zzuoh9#E9nk+sg6F{{7e4$#rgi7w?=zs}qFu?lp(KM_MGr53b&kS4Bd>#)ASw{0%2d z>CUo$_NssO(#Unl<}j1OAC)MNvp91Gr+jGp`s>Q}Rr~rwX?dR=oni{gP0puJ-@g0v zzrFbUkGjV%nnw@FWz(zI-J{#1yLT5anajMYEv|6&BnSj#!^?fF&tVID33l-WFvX;p z(mdgW@iKkJ^B^*b4s{o$D1x8ExAB4R9}2pAKn4xzSOB#H>_K!G2it)lhpr1$B%Lb! zkWf>wU8vkXKej{FqB_jr_`ngW!X8OF)x^h0dNgR-p!6YZP`BWs`y^ov!(~Lnc1B7d zq-Ws6cw9037}+W&e53|s?L#tgiseVPrT&XNBXr$J60k@gkf&pu-C+%m9n>PgFWR+p zGN?n$JFtRK1$ii(Dv0fZPpZO)?**%{GLD=iOvFWzqd$P%ofHH9lXyBUn>aI* zVY{dn>X_aW#ayOQ)9t*R$jQtX3^At&sByB=hhC~|$l_Ars0VS1V)BQ^6F~yOT`ZTJ zfbi82AA>@lAsNAFdmR6y@X|O_3~&{%4y6GhN!aFL?`YkDz%E5eLb)O_5pg>UNG`Sn z_M_3`KNJmgPW53UJbXlDlC% zK?2x4SfZ%P)O`UtB1-|+wXA5uj;FF=n7MGGYZM|C zYW-xP71R?@dv}l&jEJ*-IlAu-KRXQW`t$=S>DF_HTGksW`HiBU9r~1{M@EjTLQw5$ zUrUs7jd8r#O(Pd~mx*FK-}wD{%kN(1&d&G1{(Ip4_wB!a3=dR1g)9KPZsdEE z5uwQ_X%ez^qu7s@M$j{>Jc^YkMiKLTN6GcI(pWD~6dW>zwwi5dqzUl7=Xz-Jp?DQp zo`s{yc2mpsqGf^SdcLP+n!#8hXl3r*_LMz$kt($x{h`$TnMkPbGp zp=e4=7RW>pcQ9Jx?Tlt>My3|!6G;{%%H)oPz2C0#qk(CkjA6NtERP`1{2i@;oMXO! zT%4SzyX(UE1VspO0QCcn;kRc= zk5J3ExSoLD4}bGNwQjzwoxQ7_zN;L)1nnCapB0wRfzZaqhsydT@)uspMC-_GAgyCT zpSLbwL6VEJJ3zj?cz`XF!$oD~~7_z%7#QA7t!bxhGP6F%B=qy>Ak+XRC z=|5Y%{5C&3t*(V&)j54?Ztt1>5f=NW&+$XHR#;xwl*RRq?_2BJYj6$B4+h7`hIH71Muo7)nja(_v}D8sXT#o#ID9znvmV5DAYT=}{jn z6wWD}Gh{-MVw|)fQUFKB10zT&qO_`-*>t>+%Qow!Ue~ZQB7KR`9Vd*g3C~^(vW-j~ zK|)7K5X@5%l0qO#*DULjKn+o9OD%bT->;VTQ!LKpi6Xc*#uqDO*Mx zG2%Ye#9ArJpvZgrfw0I&(~hIb2&=hc!^ZUpa0Ncvd$<-qT0|FXMyheiFfw$a z%GH_ge9Su_2SLKoxO_k-ffW@9=*B?Ey9hKvP%$hVn<6*{5NbRgNjmT&m$~V)71dS9dRPjX5O7sV#w$75={j{5x*1($Og4UaP@qlP_9%;)n>L>*0c!j zM@BfFDyIsKShnH|M_oR}uP|GTyF8(1`&0o?xFqj|VlFuYuzU4_mZeOu>keQL$_6wN z#1$=p*fK~}`q|n5ww!6rl9j%ZuK(8g{Cj@P@9dO*XR-c0JO5@g&Y4)L>(jH6-N5T8 z*-f~&oNCJ{Dxro3=H$YFIXfjwT5+W2yHcttXWIe0iX`h#l+a7bzWJjtlVZ@Mratf2 zQbC=1{Is}F3_FajNJV^v!u)hNn!%GFP1j<%Ci!ALS>~CILFY@!d-0aqBY~oGIDo^5-Df$m?9152Z^MQ2XqH&ClsOy}= z_zG^1CH@uyPkuAiJpurQ(!%Uue4QDYJzh{HC;gpv6dSyzenCO14YN@HdRTxoOjz^Njt)E74lLS=fodx6iBWHFUx zowGM(%$y{S@pB$MBK3gnh(ZMlwPx33P6<_<28CBvduBGKi7p#E_Kyp<`F(}xk zEyXcp!hRFsLwB!KbEN!N|T(b4kp5{2v7)WM4WE4FizPp%Vw`8jX zZ%1i2(=~E}`R1t5nv9R{zdMh_??CtOg8BdVEx$f0MVeZo7)sQFcxJ3h(4t>KB^a-T z67cqxlxPIvRelUu)qr?qpL{T$_Zmz zTaJ1G_*+23L>dnnY01LgT*Panr)x4f=uFcrbg=`G>C0fE8*G6@N7wfe}7L3I@DO#he^BM(6mpRJ?k9Sn`jyY?E`#A7e2jW_`k$EiMh9%n|EJKEd0WiBMykLFgWx zS2y{J?$mU0)DxtT15Wbhq&H2kO@Ys{PIl6yCT89K{ zx-}o3KlV>(4Y8rtDN<}$#Rhe$&?iuv5bsk&Z6-9^0cW^3tXr(Z%sB3|eq*w+#C*O)Yl+-Xn4HAtf9QA2bXj0)QtTOOeq6Tgp<`KJx2fHrOC`S0ScX#2X zfKO1N4N;Qp9!RbylhITX9T;U++kBGh$krBq#k*g=_;1l_{`(^Habi+(}336#dacFiRT;NeSG3z=S%m_ zUq0IzdUyV7*7tWlWyQ7gN4}l^-n;X+-kpEFzw_L^^H==H!U{WlT<5p^%D401vGA6? zoogpdhyw$RXc~u@l<=}T3)x;450eg!+6oG+GWZ^;vGVJfaxIr*d1WR@azsd%qE(So zL&1Fpq@!vIvh=YZ8egf#u#k!HJ5x4hi}({@6g;OCK_H-!WGAdUb869~i)^?rq?45v zwo=L&+$3Lw^@!VsTg4q9NrV?d6`3PJ+qm0h7EcH#ErGxY(N4s!#w#Q0v#7zu^GTLL zG(!*-qxbdYBTkZB|1{B9<*;_FZgB}Bq=S|y(xfko(p-93TdGR+}0U@{~-nWE&D-Z+)9fnA)UApw$S*tx-NjD@i}=ED=@6y6TT!v8bq z-m}~E_!=-zA?&k0y!gofYiI8(r=K=2zU*9o(>!|*ZgU)#kPH4SVMc;M0;%@qcs+4mKHG+P8D*FI8U%(Mo=bqu)O7> zkd;vW%d3a{><-LN_c;GE-b+nxdHGO3Cf#{WvxV~Vo=TfkO9L1fHA4YmMk=OP3GHjbCY?#LhMiVpNh5>3wvnnelI2>gT(e5(nZhy}j2F}t zO{L1V=zdU+q%+J-P=uI4AdJw9kI6DAX;)AckF(P|5nvZXC%TJ?zF}l4(0e?=0P)3% zn4;GK-w3EK^cGIi$z_X*q@aj^Y;^fa@`fGi4j~uLe-Qq_$FztdR_e1vw*ju59t$LY z35%#S!Yu>BQ%J>hiD>Q*eTRg<`5T$X3$BCU9=Al@ZJ3O&FW~cqLjb%VHJ%>7 zVcPMVckZCir2fH=zh0$GfS!$BYQeavoVQWX1Xx9_cz_87+g%=H9x7Y+sc9lXjO)fv z+MS+4q($f=825(oou-0X$`6^B=!Tc}$uT`uhwA5=W1Bt$*&04TUaS4(cPH=>+yCk# zdV6;MhQ&ekfAz@@=Jv9KP$J^@isz&$N0i^XU0E~HTb`##wuRK-d?T<$Q&*6IQ89~DDTbZjSBU+mTzs|?;A zyK|CgtOZdYo&)I^S1`$t^h7gBqL$#dA77(srw5m*?s23t!=;Hx0@#)oH@Lwe>N@St z24?_cqO*mrC(*InTQUpS`IrJA4gL5RE;_@*&z0F}?K?y&8 zmtWvK`O)CU;OIqoByzX^99;S33tupg3nF$wvcc#-H{TFar$O`!D2L)@y=0la7JD`$qu+{ zrZ>6C6`9uR<|Wpe#@VNh)3@=)iqGwwzt5sp&F*vK8w}@#=}l$xa&Y@~WAh~BAV#LU zfyNK$2yyaaaQ0&L_&MSdrb?t3QSgh;cDS{hQ>vb)=TDv0RlGJdOPzRaQW$KV!C7L+ zkJsn;ktpNJ^^S-IJ-X9eyr@i0D${c|b~ZR3uZakhEZOx@fN7deNlO~D1oJp&ZU~G( zswuq}_l9tuJMI^OMM5+XXe?xQUO{q4fe|{4GneFn6)=U!0Cg8;NRjUoEZw1<+-72- zgcB1uUiV;7yb)VFJtWzIs#Qs$sfa7!M@c3XOBs<*!8^fQn6x6qq9-VUXw+$zVoI?@ zuGJ~_hHAd1=j(bN$5%B>N6j27WQ&S=sziY*78-av8jja-QDWx?@q|Dv9w^VQn+{k! z2qXxY6q6|stz)P~73TI``s>iAE3C!rSfQfvarFkR4C1*$IBHU`54IP(Z7ZFod77Rr zw^plce;TcHX)%!~HEFLJFEx_YW~$oItvGGa$eg;t_k7tYcM9$Fdnq077AqN zCs_R2`3VROhW^icAcX8F1(bk4!lw$Mkn4N zsa0=Kr#Tq(GHj%v>s~2}bQr?lE^)g?{o%MLpdWgL$A&hKG*;E(IZBxpXSbc%(RWvp z{K&)M=es*6zMa2g0mZ`i{6vz-wu4%+`~UO{;0E#klq z4$}z-VE@=B&EetvDB5FkS;AC6frP+(BDk2K@%V@iJp7(T;J?$>mzq@_sQ zgSr@vM45n>XV4G)ias7*R2m=}b1a^sAdexVBqF}>9s}UK-GOnhc)M7f>cWra(vL|o zcIHWBPdgqL(Aosf<`pSOg`XP78Y=(19s;JQCAjV}e|7VQ(42=dtN za$~$ArvNz3WJsH$#uw*zuxo*DlUvqNEh@_g&>s0c)>@_q7c`tnQsCb|Egik8Uw&R# zy-4@bJ&tIwVAO@lGv3*nwIyg=T#?XxlV3bfjjwCRZ#&mt@mk%!Xuz1Wb zp0E)XmXE}gB8daR$K2wi&VTZq)TL>w;}zC-*vcsXp{cNHq%+qriPk0P(4xZkmU#1{fddln>t5`fkQC3 z0Y1tmGz{VHb->3#azI-wAJI=>`2HsjEfJOYBn7cSgO=>z{DG2z@D5#fy3{%uSOA|p zjeATGc-EoEc=mv9`jgg}MqG$jbN~xsRtMUt1+z;=rfQ^0sd_ijnN&w(BVV?w4b!&cm9~;0nl#Pk zSSfV$ay!=<8_85Eo2?9|u|kP1QnWau53^UZDOFYz!hHmyi74qze0V%XAOXP{F6R$2 zhx0S3Rr-*-iI|M=p^roWCM67;8nztjO~u!Y0Xn>UNKkMREc5njwn#B7E68ABeT={hz}@J)alWxo(nujsE%VuH#n zcaWBGagStqL#9u%LXjM#-5oGI0Xl7x*9P7t)lAXskw&}q;k-9qb?4jfPA0Xxa|%T7 z@4N$qnL)_MIGhdV#xT`aDh zKmQ)vIk;$XCc-ZBFQKiGQF0of@gwOPo)m6=7uYVkXNxU7FD}uYo;GWI-ybDSnlp&$ ziD-Sy3V`n98dVsg!$K(7X2T@YFgK<(sW9DXhY84&_R z5sDChoX}7GAlpAmtPY-2AtH2m%ABL3XL1-{fr%7P20@J#v^b65n>cXvY%gBLh_X$! zw~$7&GPPS9(f4L}1}jcu6dYgKbQQ+;IJzv&FmF7S=J%Pw1&R$44O@zkZG>_Bg#F{f z>;lV&&f{_O>CKP+V*UP4Kues58M2dT9joU`x|QsmtUvs6`Tozq&*9S_z{X+hIMR_s z8gw%_dg`6MrAtg7K70nN|D1ABiYaJ1@!`+@iD)t8O4_oev*bCbsDyYlKqW%JZI|E#)tL~g3Do+_*7G{79*eA{B0 zaPqcu@!9y{8yt_#?Q`0cCFmhMIBCwW$ypagYno+ub2Gnr(^}t6Zr`7N`txXs4h9o! zKcbq9tOu24{Z*w>WZO~Ts2odew!TDtf* z5CoAsuYThF5YF?fB=`$V&fmecf2v(0a2zy6H7FC&EQR7Jg4h66{ zpM`B+9G`=TX(s>jf}ceg|ESQ}=Y+#L!i${BE9tzH$O?fyo(p0*rX?U zYnf`UH!2Uuvy-)%jM18pz$zu_S5`olpJ z4#%_TKLidSlfi+u!MnsDJ0r$bI&4;;hG4@?D8&2%)rB-PJ@dVIBdMRlq7$U4PKc>G zSTE`Y7#6oA`E?4Es636h!tw#`Q(4=mDWw!fz1ambk-S2paRfVvlHRCAZ7;2LVEfEs zzC*&_{4J!IKtRS2q$q@K8Pj8cq$=V%s88W2LOcH)2I>*s{D2&mB#9<7zvZ|29^QXH z!Xr;aq9&sa!t)PjU<9QA3Jx#op2!^pY0F7k5EQaRKbauC>0;g>?k37tW3=K4$QC_h z_$MCt*AU|AVyaYck7x9XX$&34Yi_chEjUPSR8Sm^=KH2H)?wqkW zKUSaZtUvy^vs2}_-~DREdb9DGw>w989|{e=JM50Qu|^fzOK;n!JmKnNV&jL?BdfX&Z3Q$|GKT|%XS_7g8q;V5wC zpMjuy#p&r9L3{Tp)Nx}g1ry2J3@M%+ALO+=#nnxLI-d!QB zQ^i?9x^bF13Jxy>cIqyLK94jFuqRtvBiqKANyRQbhr4I=_2m zX!Y*ThL1m~u3ykz5@wFyvVQyqTVv<;%duBUp^MruiE!N?cV&T zvUy#cKiXZ=xVPQ&&p>ZF=QOvkXgiZ>Z)=-Zz&?>K*FVFwPoo=5M5JQzNg}+^oQ+aD zibfs(%sDyhvS)B@>^ahd=~A3Ta$ceMq`0Yb7WUKdb&(izMp@W*Zg_rqFzKY|rfQYm!q_1}c;KC12^%~v#9xcCULP|WT@T2@GlNe?6gTmG@s?0% zk2olWXvO1IwU8ByX0gE0#+*h3G=#L!nrK(p7P}o3k&W6+CggG%GusaFX zUuRJ9&ETcyAK@V3id$1SLw_qR`w!v$_anTIaKU^kD1~Ijj}J){rQ)0v1{>`0065;r zkV=EcY9wA%qiLD6g)oGeG%D5Nc?wSXHw&zEF`2KV%B|k)sL~#Oe-(i9-~avp`S1S0 zpMU#r|F>lF*uijM{QqrPEI$1G-~V6#;I04e=H_Sr4`c83C0CkVcLtC?GrYYKH@x@W zXGEm;-WzzJfI^{cTef9&lif5ekxgnwWUm=Ynk9-(Y>J)~HS<5{b>8$e&suB#g87~A zCK5nbQKMY9vLXYSk&zMi?(cm2?6bGYlrSEgO$TSboYkXq%ydK8uEzL96K1FS zacXjm8YJw-sM5i9L3QCg#Ya@O0AjX$)8sOWD@8)GOO>jg8I7A5AeK)0s)%Zk6G$1) zG#}PI5iN$LYLQ{6AZAvn1|W~-BrB6jJK#K)1<3nDm>3{g>Fz*`L=dR7=#vW6XNO0? zJ8tbv*_RhjvV;9(YmGn0Mm&m-0h5$N&qOPORClAbdll>NV4{*|E%~+6%+d)I4XxG8=z#7jL=YS!y(sNmHBaAf9KWyU+SUE%iS~AV4RGxEyrKE2V&H(paR}wUqUZYQ7SSFH^sEE9`DA^iI@}v= zU*RObbbyrcf*ApNuXq|`Kmq;E&_Sd;;H74M0V#X9Jj`MpR$?ZiCWiT>jo@?fc-iNWj(CEwnpk0r`qAzZX*c^~N@(Q_KsQG<9O1yF7cXrc zrOFeu=k^Rms9fAYjsUs(pn!jUQ~obduLL&Y4JbW9NO-XF*;1lf_hc%W-jGWYN>j|%yaA(p@=I;T3I}t!Eq&}r&4+{6+mL7 zu$@)oEik;fNvSDHP!?{cqLA-MuX!4H=gs7)u;2(6FaMLs+pO;P>Ux2}97* zrA5ZTCC_u9lAm?!Hjp7&(sBeU^)NAxmHLbuxZ~Aec{$!iRS3JjAILVn@uJk>sRl9_ zx}OyA;o2&F#_X~T!b5$~LKQQ^K7+l>B$CixOplI{#2`co;eniKQp4-@wQzeYJv@oF z_c9}@?u+c`q_%OtzVV>8{h&doa`QoE;jFazDAhkoboPc1ekn75wDI_}y=Pzj@biBO znO|MM2;j|&mHp@-(%aRWtBvF5gNu(?6o^1txOkNq9k?m@2m8V1W)jUzcRRm)4i)c( zZfc0fnlC?JSUJaM9${p0=`g=??8#Miq5-;#iKX4q^Y2#nAN3!8JzO6`*H`vmqup~4H!oLDpEYD;U_8pKGK3V!oihC4zrw# zPEh|qtz9ynHFUS0OFAMi}Quj*f~C^Qbu&ql?Z-De)&kcNjD&%CFcy#zaFxcP zhmq1`sp*Sl0}RQ=Qr>7%izNb?O0-5e&O(%|wBBZ@w^mu%O4VA?ax+qH=(%#S+owdC zb6^f1!FU{*CF=-~u6hu{M@jYv%sv$t+9Wf3c62%H?!|u+c!%5oA*tZm4gstD6P7M& zF=Bxew;3Ldy@v9lblTjQUb;bem!^@m;q;698BUwy!Z=yro$Q)M#F8E-jwFG%yp~Ky zi)Fl#T`)6xn14d8{)=d(_+;K1UJ3{qo{Z3IiY4Z~;EAyof%CFWgL9B>fCYr7fLEu1 zEbH$+pul^?|5dO3L&bpr?_ZAaPLE&HBQCEVLg_?gB-(5{qffy(mSn<}TpCdC(h_<& z<NqtE$}V|XwoVYP?aD;>9-0GBco@CIbq0^g|&M3xknK) z(qDjJcVU7dcJvrs>cpOA2|tA`F?$kZ{7pMT6J|HjR0v}v_hgohv$RBc94UKv1hq^U zPeW0rsABK{k;w?YlWzdhiRlF1DesM6hruQySX|ner?Uq$&Tzq-LKBWax*sSol~0O9 z!x73`wIqpt@!nqJ@B_fMxO!dPdd%=6sq9Tz>fN!tkiEeV;+p%)(w_`AjP=W3A(Zj%ckV`}?dfXRp5f>^na>e)XNk-h=wi zBc$*C)^>LDVQh39?(N1FkJJ3d&TeVrUTWbu(%uPx?c6_q6zlBfmQQG{&Y!>B`rrqv zFTUSC`yjV^l3PD><*Lbro%m>{hS>s6^%tM!c=CtO8G~YsD~`Lq8r{WhCWk8~Zg2Bj z>}aB$)%pGV%mUWWWJvWdy?66OPu z#wgvxj0j_PHW!T`k-MFRG%QU+0z^cs-`ykzksB-uArY4@tHh8EjOA$yx?@>Xc~rlm zn7TRH2+@#sDqA*1h6AvGkJOf|^>EPuJD)*gY3tMdRKxFV@wi8fR%YQ0%&};cT{$=p zl7mrP;J}n|L+W-_y$jTfY=CGvcu0}5bB=KyvR;7v>>OoYRZ?83*hOF|wVcv-32Utm z<~U%4gkxb~$K_)BhU_E@)|!l(GS&pMEpVz$Dxp z&Qh(E$)}xOFS>1NMiP_6tzB^JuGGmE7dgVAWIh;A>(Mj;!3o~(a%-@LjoV_XH6JQ< zp~9jKT%gzT^NYz&AA3MotYmgVW)df%u?9hJ@Y)ev?9%zyo1tn2SSroekl|4t(ClbO3u|HlZA^BB3(G|b6|0p9Tt zqo8$=2<#2fWDF&%foOsGF~l(I`)B>djg{?_;o4qjk;2>fU>50ZvZYK-{_pnCiM)L* z%9JHis~hzRC5qfHBnhjzN|03ZXq^8_<)ZA4xqv*_8j~NLLa5Iys)MOjs0@uDlH{x_ zI)^&Qjdfle7KLr5DA{J=GeK!~0fw@jIzcKibw=GVGpsVIPJ_K+uT8B^@&YM2e)RL= z-eW@~&oEs8vjWV=Y=Jacu@*16U1_|zLS@EFH-X>6%Dw9L)6v84EI8(+%(=2qmg`FpX=3aX3apmx%*7;`}pZ-R2;XJ?opt#O@ zaTy&RhWmSt!o07x9vhy8x_e$&n%YWX^I`AN_geSAwes=5oPYND&M*Dz!L!fv+fTyn zjq={Jn5=`UCYgjA-~3iRJ9)|j}i^CW!EqT%Jo*tgAF~`prdN_h8e~|OKhkX1xppG0H^9e z$Efyn(vhL$pw#5ExDCi{IZ@?KPFDD@y2y8S3Nin zT!@vo$OG6EP+h2|s`#YyrR;FI98@2c%9%(G_L~fcieTI0_XK(73|e|zVXP9cvGpJY z5$&IcJSNhGPWAeQC^O$l`LP>;j+>}#j^>5{kUbc)H9(z2H1t4 z;TfvoSz+m4cM7-x2+O>xSjvmZuo6YHACVMVIC+bQh!YZ2iLb(`z&lCHl8`=4bfmyL z(@ZR>21dR8nfI5)ea`Nt4&=>Z@4(Yw?dDC!B1|-RGHWAgdTgvzKT+Oc1J!xQWf3Pb z`<)L3@4@dC6F+m#d~4G5NGZ(!*%}^q8Zy}(u7JxM48_yYWKPrLfp8|8uHogI%GFzg z)y0jyt>eqx)9a zcZxTQfI>tL+@LutUveSH2nm9DwKs?1=eOg1!Q2zR1W>Y|{j8nqi_s6}wRIL0#+8{` z#mWXtoFoa+GN8JLmoHYgNxX2eL#(a1;|(a6P;E7Y)c~siSsNE0pnJ(Ko-iL&-h7Dq zrGN3Y?!{LMYxl5cNy6A8S=oJF*m#TvGBr3(_7ADLnO#jZ_}7E<=%l&#q_Oj`w)qfC zM!XZ}PhN1Nx%;Swl5m5e`#q?Y%;Irn{gT0`K#c^w#SC7ZrA~YAN^dSDN4vR3w^&NY z^R@cP$EE!b+E-t%9DR~py|2|)BWPw8P9y!p^y*b%`@Q7yy4~Sb5~y!SI=ivn zUViNoJ$!cUUj6uk#>q$9U;CZiZ~k88;8pM5H!6GYt$+60t<#SPB}ufF0+o44ZzjK( zX)SL*@RWM)NJ90v-aGv~pA+IYSnMEx zY%cEPJ4A_a{NwC66la+NBVdno1P9`2$Dp|W=c zY}nB=M~{7$)v5=BUawaa6U;6mS(Lupjjr#OrIB9*97z3dn;=n6W;Dd2mV4MT$i7u5 zXtuN>B%r)!hLJk~KmgW-L8VALM4@f>`&~g?$|a(L?kdiQxJPor6N-W1A)gVFac(;a zwZ}%%DdRiH8?j@{`+ZsBrikk!aeq^AkD;qiGTq-dN7VR-ql{7jT!%?&y zMU$*{DCk4xa9|KmdwL4Mf?8WySqxSSNDyFWD`ec@w!(Q{dkSbUnH#cDs@Y-DIU_{J zn~{`N%-e-)qGLivtxH-AD1{hr;eG~J#b-t=?m3{jc!qCq>haUtcVp>q+Vvg%pT z-NCwuW`?FG?=KWN;vxnXSXqQ>mUD?W`u2n6ktP21;~D?If%iuKPjuI>%$UADX}bI$ zBmA6=2CIhwVK>aPgGxReh~}ej#!laT_;D14jr(u! zjQ#e^J^)C9#QU9=}R0U+{z%p8c?W{f*Y;S5U%-tNnPJD!u6;s4LqE zHr7J85G)+U=l4R*weICtimR8{KVpeVbYOGiV*TvB-FqMIKm4@Jl^*> zkZCd9CRSQ5H*rG&z>;k{*EO9rew;@(u6N^C$flLVOpDzjw(#H~CRZdek@_J_GN>+H zr%5Pxseb@`4r*GY<{p(I$CxKIs?{$=I4w2WK%Cy#8`9{<>7DsgPTDC9TR3Bxv&Jii zr{~tZ!3aMX&16%BoF0v6p^(k(Wp694>=4&HUAG&3F$fA0^Vf&K88(~1yR4gIA|GYV<;|dG=Qbbgtw4C-T|i#A5ZM|D<||2(&^Uan`20+xVv@!g z4N%o4W;GG&hL;*jouq86dpusOCt2Z;K8g({HZR@)Kl??f0)=c0)nXt?g(*$Io1GL3 zJLNpe7GtCVR7Z&?B1U!}YW#}RhUZLgop+xipWE*~_zk=_3qMbXe|PTgH{L>c!-+Bc z?)S@AE`P+~2@#DKNtYt2|6gc@W@j!*3i2-;coE29w-0~tgP+}2=^#H}a_8dWdqxe< z4dXl2=Py1E&*4iZv%dJud2M-pSZ$qN#QDBitcc|n8wlg9Tu?CP9 zm+av(y}v+?OmLD|$xa<5nrmnXpkqk6Km9bn@i@JBnO?j|kIs_==AMp) zeqX}H-GgWGJ~0{0Mv)}GlpO3LTrY22l{PMM z@g+I2P|9k>;XFFVg_Hi(*P2H!gYEso<|D1Vlv=t>tv+a6f1`2rOUdO2p2AYNy&r6B zxih0cWi!;=h0h6h5A&H+iarHBwe__B^p{7^e^fvF%JA_oRkp878yET2 zQ%u^!y}f9EKezcv$$qx!8dO%#b9fyr9+Ih-s18v)CYmDx??|WZt)8OxA6Sc0#zks;4|npVRP$myD|hpBDruFgP8%kg=)rj206EQ*y2Bf6EA&X`iTg?*?!K&vIPhk3>B?7Ny11N zsZZigN&AVuBxk!A4oH7c=BkjdNK!K*NtqHNSBL>g<<^2(fjmB660u4pY_s#3HiVgG zgi88`Py+Y(6}+}QF}k-D(lbIIMdi9vCdn|aptO)GOnKT#@$d>QqjCm~7YZ;GY**ci z+vSyi;x>00Z3xlbNqKIRXVYGO& zB+kj@v7)Y#MeR$lT?FTz00$y-o-@n3uqH-G_h)rW}G?3`_5k> zw3ZS{a?iV0>W-=L+DaXduV4H?0EuJdyZ5pXK!Ag^ z9N;;q&W&Gy;u}1F3#*NLY9>?d@#A0S;Kthrz#ffmf8qQ2sb6?xzBGQd@%e2kzGytp zL?Wr{q0!<>t=0EOvU;K#h?RZ8L?Ds~#q&1N=M(TzisYNV{4mzSSL(XGdB5CQueBGV zMW)~v1EnQzb{MK`q}%K6L__j|@yc+KM5g**HrHK|<$&H;`ZKS@^`dT1pq5eNu}Y{w zxx)UAf0c_)gvYE1#3j7Oe?zXOu1ZzgBUGSF!XYO#=f)yCWeed;-yqkUv3D}5Nv6Yk zks*EDz!)jjYpYm+G4k0yemT1SN_OcIrDApKVSf3lPN5Fby>h+%>2Ixm_>dY9GDGEuBNo)HbeV zFbeO-{yv2+=;zJjm$>RJ4E6S=j;yh^7GlP#xmjGhM1`Kk4O23-#`ABt2#Vc$*g5?Ox~YHljkWiG)IE7sTsh4R zFc~J4P_#63G$O@@o-J!g>~i(a>Iv=vYe)A!{MHXK0i%O}M=^GhwT-L((R+YAkI+4S z**SXIJ9*hZdC}Oqrcp~qIrFV071R~3^plN2sx``WMy^nrAqZvHAGdfANF=!`sjPhH zq9L4B1N0X`*y!lN#HfEYutkbP>H*G*Y1A^DCsJ?Ikd@DPN>K`We0)ET48q@D=G5@A zG)V1FO(9q$MK^0A2oA__AI`Au?9Z+{5S&?o6NQClJ z{t)VOs#YM;;&xfQV(uYB`dGfB0cN0vFd$7QBUICa0bO@%0nGZ?Xw#Omy0MD{?VU7d z0YV6N!#!A79bPN;AXL;UzC?m2gs5Reg&{;60VwdXAUC0`3^t)XVM#Qg8wQJYhbPH$ zz|Kgh8+ln2ZKe7k(#R9do01s8vmvu&wgo7L5s?l8bd;B6i06iu#_I7{p`lbynF1ch zM*iwA<=a`_@WNsf#1y=W%~5?cpKpvWmVIxzY z!t~%4=lQ)8rhCQ#)K8i|m@r-6%4r(aTD@M+SDKkZx!D=EM;q^1x(tZ8VF`0?6OO+rrDpGb_FNxJ`su0=fY%9 zw8V308z2A`VguSz$&XLTR1}4Z2rq^CXGD(41gio5sz72)j~Ex~cCJKxKWto&TuQ>y zPgA+EyL7?TNdCAtVGZW2#MDNa1cwmlvc;f9=NvzSk+wdyz$@!HF7#QaL z>-*0tTTcSjwfx$>)Z$fc<7wwY)Fzqb>&ni1&67`Cr=PZtKd$Y+U)*@o=EmNO=E1AR z{tNh=-pL2ulb2Y^^p4-Bbf;+x$&a5vd;cj94l%Cf2kE8D?CSkU??5Xp>5YvDjor}^ zL!+s|Apwx#MA}C(GUn3VtYG&}z4mZ!MpEv>q;SXQok3X6CqK;M|h@3*lK>uqM2a6j9uZ86!pUtc{dk{e61ZGSyW z@!uRoO7JiQiB@sDrP@TrN;1xjOy$HF{bQ8eP!|Nov`!d2Dr!(ss62QECkO_%gGM|cj{r{HJ|>kXHHM;>r3VD!!BJ3MQ%lna z1mUH+5Db?LCiz7oI5)=k)Pf>jh*Y5v$hg{4f_kMG24@($hXulFj2e`4URkGtt>{lc zPOR5a*YNl91%gQ(sl&xC7GJDUD{GKJ>gjJMwQrTXc-&Sv>t(@0LEc* zpq?-=_Xc!dK*##g8winn=L*Ih#5su@uq%;GFvCe@4jV%k6@Z2M08xb`A)e0VaS$*^ zE0Zp;7G}%NGv~@foWlX6OYN;%)!dMtCQOcm?jcFyqLbY>FFvA8{&0CCSVcsbYL;1; zDHWc=pCE%~VyB>fBcuvzhWtf*$sY?L!1H8I%}fzUmea)4TY!0UlZh!HeHvDl)|(Ky zkV4bEv*JWx#WM`qqXePyvoZzARE}DZ3}EN&<{O~qbX`v-lc`iH9*=)1yvKvzZx{ax zc(;!ITf7!$O+TJ7eT!q#bdS+d1@Bbj(Jwwdz!L~HoBk~az>cYx#q=jrCN!4o7So?i znx4Of?E>Q#)1L#>>c-C}P4Ambb@1G3`uQDG&uaP$v+3W=ntq#u`)`j~({FJYXg_EA zU(KdJ#E8IfD&SWD?_;L@G1H#K^ry3?-<&di)nfYNyQVdZ>5ryO-@3(ip8599?(yl# z;_7Crzr4D2+!}0j7q>T#?v2*>&YpbI9<3+JgA(CBrDb=t70GvTc3nSvKiArJ>3Mv@ z(KDlSE3cfB?!=&nKrt+t*?~NsVunO@QH41I+%H2S(yKB$R)Xi8$qL)KcH|Hxk5un! zgv!8t>MOin1>5O)@yIYU*0CA3&(h(A`9Z-u<79L_&az^Ulw9$eJyLN*D@2XhV+~Tj z-RUl&;d%|rtSyXiJC$!|U=ZawK=eO5bszjyvo^Y}$+>q&Oy zUU~CL=jc`c>{HwWO6w1s*m-R|s&7ADy!r%2y}I#WaQZU0aEXd0w~R>g5ex|qU9s-2 zC>WdTLE5j2m&4~j&a6F-k4~clNiR)`N!K-wVVs$S3%JN_$EP}5_u)K=Gvx53u=BEc z|NGUGujRI$r&jNk4?gTZ`YuzkWKws}KS_?xLiG)Ae$iK00@A(36?b;g5%0OugJ2ac z&~|okM0!+b_x|yFUtPa`g)v%w?L6GZsZ#vdLH@$(b^GMQ+TOF);WJXSyoH8V?&#Hi ztheTcA+IekcH~MHy*ZIelCtMXHL>(3Qn0pmR9QNh-@YQ0N)+-N7i*6`F07vn&YzF& zf6&@{h$k@FAJ|BujfvL>iN<`S)Y9_^oC@AZ8p@iDxfmyg^C2vhvrQ6n{FrcSnwy+7 z4_@6jJUR5U!KLsSZ09o{U^}n_#Q}f-9du_Xn>i(@V-d*%jC6Kns?_G8GUw_x{6?g7 zf2(NcL1(C)Uhn|?Ddye=pZ}`g4pf>@5l*Qq-HTX z1k)hG-A+B=AZ}?^T89{y!?##n3`_brZQS%+HNVY{C|kE{VSt_G13xfGj8FoDceI7G zFsssxz&x3`RF~Tu4#OEoa;P29Y&$Wi7!-{l@t~a|3S;6J)6iL+ANkYzdmF7_KfK}lcooEOf5yWKyjqs z`dNVe9#}eU`t}`Dn-cntsiQC!JICi1(|^2cV)FD2%>tNPOg{(M$4!?Y`MBu_0G}~^ zZZ-WUZu5D{^w}+>-`|#^Dx_wydEmzuWn+KPpjlDp<}{QoYMPGRg$(v)wjCGF*LBHGsL&RdU;fEMa0As3*|SGik%iB5d|zT%4Zs zrObhxIgoKD8~)sY;6Gn(-jVLP^9x#K6)RmJJw3v<@tBBDjJ9$s=vy8(cApm3?l<J2?xaQ0ZNSYoTJ+G}@Eu22@9X|4v7yR`lFIt`cR-n0B*}O~)c1S9x8(Tm8V07 zBfdfEb5-^mKW<#|3fL!@GnL&RXQ0r1d`2{4y$ewzW`H0$+zA7Eq70;U0r=1SQ1JQr5yb1NB0NU@fR9ZXOK+L5K@Q zHZsb@KY?9rHyFs}Z=opS`LHhlC*3-^qB@;NaES>K^y6-S5YU#y1hStbubJfQKscFk z;-f1uH%VuJaKHdg?+!1fWGtpQ?CFkR9Qwsh2REHd*Xn_E&aUZV3r|o8)?i*}c{bNH zYAq;^;NCGqpmQPg4jngRme%ePo*XTZXk%omQK~Xn5o7)f)a7qfypw3{WVp#nH$Q{+oAuN19@^~&qtVEiA%2Ht|y=t3lnjN^Yscr%k^EO5ZW{ z!Elg#&h-0prr)8?x0?QP+;q%m<>mW3+-VZR|K{M^_-3recm!4C|Aq0eQ>Jek8v%Zo zT1x&57KmqJ>>YU68PgBdio=fM<|CXaM^p7;ZLqR^yu5wZ9&Wt)`sd&M_1}5);kWj$ zUv*Y4YV*5``%jM^fBod~XNx&PbQd+I9FTPYJNIyieuj4e`c45pmmUZ&Iw)b_m2yVvc2&bq zi)?GB^*9E`oy#ef}cQKaY&ABZJG>@G>%g0_>N!9^=Qw zyb^6wH0@-Pw)dZRln-PTqnNe(>G`wN;spzbR$BI#7IUj-VYUeir}^~@Xm%9x*bxBo zs2QoH-H|L1f?o$pHzXgV#I|?t;o{zV`pdn?pO+6mt(|>+^|RkyeD4Qj-r?fw&ktOQ z1~a(?8gkp4>FL!qSF+_wv@LqcnP|Jy^U3yJnuaNT+pX&$mhXi@ez<2()qItquR4nK z#W8;K`qjxtKYaNc|HszzZ%6A(_~H98hONxUdK>wTdx_=q%HGSu{)@`)^Ze%h%y0)! z8-JdqgrMzJ1`0g6uD?3cDnnDiX5E0HxKP|@!|0N)$+ZMm#BhM`1oD~BDb-gq=)jgX%;6gaRA5b10cWrs*P0p}p|r&O4M zR4trEx*YTAL5GJHEg{pEa5NlC#9X*z0eW-z+sH&DEQBah7%~#VT+o}Morb2+%RECM z*x`f~qPCPWm0!X4ONFWUB_Id^C-?J%4E`{GjYJ2E!{Q+Dj(V6=n)%#0uMVXHy0YyB zU|BV&qM<|_-T-QAtQ{?G4b~lC2fCBF0`q;oXa+S7CXm5I+!src>xW^BGZYEsNbAUx z(9QH;tXPXzZ~)E_LgDmb(Uy=#Dkd|^dy^$;n*OX0O{p73!|wCLS-AoM(W{d}K5HR9 zNvzV;L@=}rO&M`$rW}=7pJxC}m6Q7t;GMp$f z8>Op<+hN6g4MK1J&uU6*gC+uJ4p7d!2LCQQAnBDzP6SPJ))8q;u&nT&DrDzfzCCR? zc?@b!V4wG0*c;hCuxP&dHFE1UyqAIZ|707(hF4-TFmF^;34Xl4OpOiSGA7lybS=kB zy9NXE8r!Qzxjt!n0rxUz`U60iO8cz}{HFjopiQ064KSSC4eETW>9593Cwx|3zT|ZL zu1Sa>!S=hR6~0q_^UwHl!t_Kf3cp7&&+}1e|4n`uj6F*UHo`0})28q8m^_GDDSltU zJH1``sLbzHduzG+sMJ~-ZC#u_{_yniCtDXEREOue)=sfax&CPH>Z85OkDE&;{_=XL zzLy(b_>&E*AODu7g$X8qe8x_40mTN>)*kApaf!Z#5oMbx2rrFP2zEuwu6p4b&B~b5EyvR z^Elo8cpuv5IJ-=9^8(Xgx}2E>G?Q1EMZ}Y5rL~J#cOT(Ba%CyXC=umc)`?uyD2>&7$%9&{Rvh(hA+a4`@GcB6P zB$ZT`CA^iyy=Y?{y^uTA3b!^P{N05i8<}KhyRdMwarseg^SZTjef0br7zj&D9*t*oW-}xZb|X^jV|z;qD!I~_-+H2C&lRZKNtXlU#Rt+YT|z0FiLe&p!9f8} zxdk{YNCx#q^8h&whEU(KxC7vja^ix8bc8~krJq?L)tX_Mn4(am0+*Fx+PK(nfSqO` z#14-`u_ur#E|C;`q6tBGVReXUxl(!<1s?b#-9yk1=!1@y@27N^cB4RqVgpna$_&V? z7$9(F%E?K^E&vF%0(A2wjRtP>^A7Gz7XAs&t(k=RlM|Jx&#<7gr$S@`sa*2B%8#LdC~IRIX~VoI4l{rBXIc z52P}YTsDx-=;@4>z)v!RYXL(djJv|mljs3XN>m3lmomDiXs6w&OxG!vAUq9KgO%C| zvp$F&{tBLqD2pTt5OZ%F{B#I>7<&c{#Ha6L9Q1Rn8EH?zmPoQD|RRh?e#K%n+Fee6`{u#G8ky&T*l$+g?1YEnEb0OoQ&nduR4o z&lB&=xkHmy@@*3qozz{z3u1`e*iV{$QL{IUrN)FIhJ>kulM!YHh*qr2v{@?l*LW@$ z6jhNZokX6h3?jIw<=wHE&AfF;;Gok)pDd-9P&$03a^Tvr=^3k@v*SDvNYA)JaPO0L zvgyMUe0GFqwe++%J*(wre7R{~&YtKvvx~m+x+_0&r2Fn{&lztATiemWX?%1Z?w^Lb z$6900mR+I;8fx!^y9a^xQMh}mw+=j&Enod0F;9p#N}Ho_>mWBeE3I5(sGAv`r$-lf z|HivVq55`u;Uc$u#YmJ^U57j&bc6XR&^3xb{PJ0(4ZpDxsxA{??TO{l5>V|?C_s9u2r1WJb25VM43&#Y3L=*VJ&H%@7njT*i7rJN?v#=Acj)PWGg3a|UWlW+ z!gFC`)Wy#NL3PauCbTR}zG`KvQe4tP4QU@0J92T#R5>6JW@zexKjJ?lUy6u@&v1rx z5~KP#Rs^pcd;5$OmdjAYDVl!Qat z3_)gYP)j^!9qdH>EFaJsbG{JW1dIzp$y6+t3nkNmc+y7_Qy@Y%N1{~M#F#zf38%GK zA(XG^sa&X7akKl-W8OGvsw5YueX*!Fk#@&Z?oi4SNZ9lwaeVG@g0%^fQ@LxBlt;(G z%rmjMywE|6&{B7?`bcY73_xI(WC8_P=9Q6bZY+>0gUU}6hQmq z@)RTkH%Vxbh0Iow+Y#H!=ctl3(wLxgP3bKePp>id&HurCbb7vU(y6hQu|`DAPCo`j z7|*hTSWrQe=|DysM59s0+1N#~rvU%Op&hHwDK#u95{_S} z-XUA^iO}cW^50g|e`OmpP@T_zXg2)^4vXCQJ=&%yY9QpHwEDBlgTeKgNZMCsJiV< zFKhYraFz7BN7epOcl|os+Agj<^%i#A@qsg3W6__+ZvhigPsFSx%{rxWlIT_RDh#O3 zYKduAXxfQgo<44NDQve1yrYe|A!h{Jg`80xdM-vj41SgJ$|%_Qtaep0Y_5h_loXop zSKS{j6Rs()CU*DaAYfNw^CxGW;Yq81PD{_Yqh>vAjTYUxZfxn&Ra&qloAyl4A;*9k z-Ug468~R(jq0Uis{v^~p2-LScTcLxxySeAwaE=7R`FdmH|W zWFay8JRP1;vhI5Ws+3Zi40|{>ykjG4HBh=e(J^Vbq_9Q$!Nv_;;XXk^pwc)FuJM*)|q*m6>Q}blJZXzPu``~-1*+b2hP@@d7NHlA!%MU)q(4celeC6I}oxR8F4?bNuc~M(GBaao4JVwFHD`Crwl@_%+ z4qBM5*z`ETqgD+9O~&)ZF-#4$fn!o-F~2j*?4b*USCB5nyKzduV?d`UPKIg|jWnnZ zB*GPQAQ!(WGT9GO6R6YYMq^{BAAxsHDU{=&^(5{n@H|qAvuKEtW@1VSvl*_J5DFSS zEF$p6K!FV7xP4wA2uO#J$4gIWbL`Do1%#r9NFugLm}-C#`3K`5KqCCPJ((@BC4ZZL3Gim!(8n5EH4Nlbh^s2(CaFBFgE z3xK>Yk|JC_S?>6vIj1kKCGunw2h-w^AFOnX-L9U=d7{a9v7pC^;VZ(rXIpJ@0Ihx! zf|8yP!Sp(RAg(VwA6f(aA*#6y)ybkJuYmN+=CJxPvelR~MM%jef&eu%LOylq%JEDX zbs80Vf_#dMlegI8caaqyN-)ejYolm~ieb_crPSEKj>Bdu9o?0+ZbSe3+#WSz#KgP6R7w((X0FmZYYlZ zw<*^ZwALp~k73lQt~u_SRzPMb7Zfa%<*$#gPYC3K?d>VkHzrKa(baI{_TYXF8lzLD zuPY&C3!LX?$4&RuBk)ihQpT$Sp0(p8RJ__FNb44I#*j*~l~8=qjpL;+x1d)yBXx2) zxBSI*UvVo~l_OLq2a`MZ3;m;fAB)0MM{49Q?hv<1IP9F84kiOc$vF*{J4uCX(TUYA zSVQ?4+{3)lX?*M*`lLM|(@bVKQl)-W?20fgLVGGU=I%HH5UjZdq_gt!?ii()v9aO` zGm2x72j0r2ueuwV zKM!_~0r159Sz>ewurtk+7@lg)eMfO~F4S@4mTj43PifN@AGix^zS_2@v=*qNe%y=> zR`uq5usMkKmbBW)SA`yFSpz9Htrm8;RvYnW%&YncZezgNpYSECvE~}aykI*HIWmOR z+D;FTqlCj^P1#sO_JcwxH#%YJ7EKP0ky^gTlqe)jkkPI7c53xudhJo`!S~WD_k;D# z*zlyd^Q?9Kwc6Q>>^h@ZhYXo!M`ZAANXAo#%WFkb@3WyTWv*m0YcI*1K5!zqgdkv;50BUSk3{)HkDKZ zLV!_6co-&?07DUFQOO%Z7fvVGY$|jva6YSQUG3Fhld*96aMzM{1U|Db;F#s0_NGaP zEM9C6;mifJY1&c&@_ekKlOdSefh~YYV$hHv=R=d?z}gFsFIXh;B38i@%n$*^6zwjE zW$7=V1g1EL-*C$*O3{eG(r7JBvI~$Jc-952#9jjwmB~Joy)zbSV0@2tTbLebfZ#bd z@kyb$7RvyYLX}GmpAIIoP%+V5(-9zwG{f#MRBAb6Ie)&IpC2Y0?QpIX&5}VMa>n!a zNX8j263m3Um9%ccYFTH+WCr;tdl1$vvcGW&aJY%pP*(QX&M>Y;OP4YXEsz+xDk5}_ zw}I4X0G~rvKn^%4GLk)h2!ECyFkFjBz??Udl4xc(wjn&{n8O?N=`lMY;BG&@TP$iU zsr(#`Xt|=_{gCdc*~Kyu!e1^?aR#x5PI^PdaJu0R=BeMzgxrz-%nYNIWx~r2gHz>p zqsMxS+KNX;eIYW}S;lw?K#@|Prw!kQILY|_cYiJRGKFOLhyCi`*D`-&8~YS1;KnPSNQwaPz*kpJPhsN(VXy=jBqQY%Is{`#}vwsG7wZK7bjV;bDvb93Vk4+78g z<~!AGsqt9`kX4h@o!rhTY_arv>B}L#9D{p#%{PtVRjJi zoKdN2#ci!}7;GGb8{47wu`@LfO3&DtgC-b}{FI0zmiMOX=npNSf+bX(3uFc7y>Yl2 zARVxs^@K?lL#(K<-H^%%u&XYrU_0*x9{@X-GdFl&*p)Ls&Na^V3Kg``$&!ReDSKWY zOd`_}gQ6cJCdLNCkI66tO>7pB%}kMj#T2AB!IPQur6;WZN%)yS)*3EaBNcb5&B&D} zH+1KaN3Q!yYo7cnpS8-CtGK4sx18A}S82mj-_<+E@rCQy;DRI4J&tsa1kx9Xz&n$H z(Ds2=+cL*{_H=(nFU^Fj_Gpy`?p(Av>o2>~eMh$MOwW6;Wyp_Qsjeelb7va1NZ!g3 z&YOKP>QA|XFp{+p(%`Oi=RH0jnL9MU7zYmLnt^oP6Um25J>1g#O!4PBk@_+tTE1k> z!=PD?45OSQnDJ%1jJ__s_)+)a_bUes#M5JtPelI`2kApp79}Km%R?jdiz$lm;RV`5^kIWTJlZ5V16}3ds8O`7TY4z$r z3hg#HTR;N>P6|RMXi!nJI2lL} zHm#CtpiG=NX{nHr(BN!?2-C)X7JCh-D*BJJv><&UvvAj%r1gc<^elp@9Ca`4NX7|y zVMA#`REcLLfV&hfx1$Bf_5|4+jb3}Wx$F-SA>r|6s<`gh!&!f^?TAXEt3&gn(elT$ zu0WUx zKE^Z{*l_F7a0-Gb>5CxRiCeu9iEs=XXp1Ebx1a#?;~auqc$=)27drNCuq@$Ipyo+VlfjrFW#x@0h^$iAB@Y zifMAmG_hbBAId#%p#JtTzku-Ld#0IBOA{ntLseVP{6S+)AxQc?Pgkx$(ZBe1D*?ERKow*T2jjyuoL@ilg^OQGZ^9Q}-C$a8cq;n93MQ`uvjqOPHkRo4iZhLF% zp2~_VKb#8|&B6RM2AIAmK2g8}dw+&CAR$@Kcry486H8$aW^KV7i_VNY!izIw=f!l& ztS(9+`pBxvWC^2TgsP3ppHUh#5|l$Yj$*!KwYxodPtgbq(-$lINwkk-g1L6AI`WZJ z5-r%YIG7MCw94I;a9$#13DHP)HiM;=aAUK!`~K+h=kxc!CAqFUkBQsECEi~g_=`hK zkMX@p_V=QV4V)Q}P-2f$AXc@_#%;k}=;MT$TRe|oWkX8%U~l94)z-Zi{q3tT#8GXr zw78S*Z)OLZn9cTguHucAaH$_Db_q#wLWp@Ifq32lOd*^Ir9AN*{WZFBG7!pUpK_Pv zH3p6tAcC-UGkQsekIy&_Sm-$!z+`9>(V8H76rmurHv4O7R*s2`9NI+1cp2+Hz)nG? zY-Eh<_m+_11cSk*xe3{#+N1Pq#IzO$o);U@G_Sdgv1k+E5!mT@nqdI!mq z*#x6VO2>|%9fX&X-l=I!T#8&r8V4>Ki=y_VK4f0W<2OVFfF#8^r!E>8dU=5b8tS@WkNNnFOKf0v}E`fnAR};^|*+J_Jb`o$soPnKN{B~Vd@t`%>9xhV9u^Iy1NF$-zdFzdFRBA%V_HiND*<3Ie#t?)y z4Z`!Q-9b626dT7`!N=|IRX1`d9#fHDov;04Bl~yuF;M+Wf&J$w8x3|{aW#LS0#E-H zpP}WaP2cCBu%9y_ZZW|8_fby5+p95yw@BS^Ou}L~9^r1+wB?2rxWz}cIi9Il73s2gD<7N!I^eLM@K8qaJ zH!;g@n)6nObb`99Z0-U{iyvAhHLImq6sGa}^(BFKce-u~W@o(d8RCEiW3_RNo*>>u zyT~A$$lBRNv-{?y=7TB;c;|yxo2#2k3af>8NsB8%KmN=Tf|leHw4cND(R~yZ1q6<8iRQ;X!9o7d(q!iKnUUtQ zi~uT0ou~uJdFLBY2vXRxAh>lOJ9H|%)?#gOFHs@ut(ya zKif+8w-TK-E!#sviEkvfoHR_WdJ=TPq7c7O(wrq?iH4dt3?YlA9fT)T3l>GuGI)Q{ z6}2;7YW7mBGRQ9)NX`LX4gNL*pQ**=9`Ot1br#_wz^JscGTkX67Nm)Q64UM|W2wc- zk^I63Zv%t#(6fA}C|l^=iV?1)I?ApAkSF$9dDv3PL&yMqRPs{O+8KMt(F@BZcdn2` zC<5yuR1%Dg2M^wu*$Yg;t2pVL8r(agK^((GmWhoRGup`SX$?r|455MYOW~PCim4`p zpsJ+oRO3r{yf8~e#)mtS@+J#-efSfFK)P&0XawJqWC|<;*AYq;0oV23_yc8Mky}3p>OFVqAN+5(WAS)(CrWKRS^o%12d>GKd<-iTx2}CDp_Nqh)hbZ)91fCPXj;SnX zmwXQ^xccD6yO5Yy@cyGg{XaKze{Ub7Z3-Lnrg=&S^A^~ZSdoUQbW2r94@>`V)FH!A zl>JuIf20#?GyTI`$3NOkZw@-A%#+eQofWYS-USr!J%#P7Zx9}+r=-72V4uO*d;#I_ zbWGDP1>OPqw?5b*Qjky1(XS6r@!6A_^=4WWM_FIc%M=(C;9-FZXyibWv z2Ixk#Bnb6-=ztr*m$2>hyhM8@I!UE?=d&b3$!&r~#JNIwS@7jJU#bFL##e!NKbwUK zmLyhl*nXRTjOUCspC6ucFb77#X2NDu{hzp*Y<41rQs3sdms;}@0y zX%U<5urkQPz<=D}^${&rvZE_6TTEK0qlWE;I^Ut7JwI?8E-(3p1|ea zs=>k5{OOK0kafmtf%1w2IZ$I$D`Skgk?QS4>#GC~`U^vJl{g_sk=E2#2YU~8AAA%p zFWSP`^9~te!cjAcS3`R}+uN=!A0}Iyf#L`k5<^@wP zhHPnA@_=+v5;8GLlBsx@aEOReolp zkhF;>016PF?ssTDD0M}BBj$UH?XnLY?IiC%Uym*lX!$&zz=qs(FXxPfmiQE|?I z4h6s{J?2+<*h0w2zlxKsPs|~0n7!))?8@>EVGn<-=y;LsO(3MC6>Fchy5TM$r3r(u zlQZZGqIK~^)1C+=x`+V1(HwbI82Nfaapa2#)C0*}qST6K%aL>;o-byrm1s7Tsg}{V z`_g4^y6jHmgC*#@CWaD;_ApeyfwPdWRf6$2_LeM#1oeP!0_>o=Y}Vh5#km!TxIoyx^U*}Skx;dKik(eXv{p;X=-AP6xM^OZ849+$6Hr+4j?+Mw%b!jP zhLs|mQ#KU%b`m5fJ2f@2rmFFq!hk=K#7{GuM4}9psXiNjzy~p;@+i2)b^xC9?e*_A z{tvlPPDg$`Z2VI*_Yd|lLlVR1KYt6@MYVD(gHc)+6fb{gljHASAO9?*zYXu)=5drX z{eNdV$pm|Ur~ew>LHM^o9)y2G)EEf=nt{JNGR=G@@IJnH`?pNYy7_zI6X00J%&602 z6Ej$q`loIBq%}C@PEO3x@efYgLgUo!g75+U$$~?dRP6Lm)70noNWqn?T3~X#DYKpz zNB3~ioo)n5^X5=t)|W(cu8>w6n{(b(Y8g?yt1UF3#B0k-eGBsJ$K~p#0F&CD;(Ur2 zK5+&%a9*xrv17$ygl|x#`>Z&U;bk$$Gsoh9XRb|H8AA6@n7Nv;b#h8S7lh|srnk#K z!6x~$tUf-TxK>&02U;7oNbvDz$h%2>&&B|sa7!KJ!WI0IaW+KLN7fi>3$!bP4t zNG#$P22AmPb;xf)cOm>T&jEQhzl0Y}3#Xm1WT;Raemzwxbg8S`?nKuaBSfR6mliz4 z1wz;7=Wzj|C+p301NnK9Uh%_;RF?I8Kg?VzrF*uk7e>_lkm}Le647|rY}!I4d%Wz; z)`P_^{nKP^(MoSCjQTW3&a4@_340%;Q{JF07^53#4H+q-QpVF1kQSbX+5v@(pQ$B^ zc44k$tA(~i;)>9R$m_zjr!2w@Z0D6xf4yXOKo@W_@cG6ZfK!53K&UOGFIbBpXGS;y zB_?&aI%G7A0WsD{-Yqc%gGq2}LhmE7fCz(;Eyk)G4GoL0|#h90-y$!7vfTFslR7K`j>b1Op^K&oRyuVv!BAaFL#w??rh^A3Z2yB|(xZC?IN2}tE-q^5$6 z5$**gCj^n)gO;Cef`dO+mcOaVSR_cMAC6u$L}(W9RC(Gkg`2dvIoDkPUri+lu*y0;^s|l^0eDKy&a`gZmsb8C?PH+&{|vBy5!K(6=nBvOv(5C+ z9sfX`Z#MnGjOkbJm_}cK_qPxpmgb!T{x!Uh@87`tT|6ppKBjHb7{wxB(w!Nf(S0hFoSc~RPs~CmhN#tT06R*LKn5E|Te#qgmt6^(iIuqkMSI4M zmwUAANYu=syzBy8Yytd8S$L0Vf&=Wb3Zqw74Q}HVHs)5iuKD0?qBfIcRmI*2k_*V+ z)bK#M3X|f}W}1~XWFoU3A7GXwp0;Of)-^__Ku{fHdG|P8!RVw?O|_u zJ6COHDxGY#m#%d3wQjN5OJpmtbU7GJkr#;|MrKmP9%c-KzMxzS#9|_qN#sh2Qj?IKVyjo{jZ)<%%xWZA@CRc|s>BGqAaIA6 z`$SQXWwk_3i)P({2(WIaorj>;;s~&$=KF!tLaKilAttX)F5Z?e*L8-AKD0EIkye=J zUlB3#IaFTL@?;AxXqka6Ty{sQ@&t9+7WjM|LJP*&0zMnr{;5nNIPi?L^?K9MiEP#JxK49CKY z!(wI5l(|u-7o9np7BQHWG(8GPH-nZAaTLVlT1t9}3YuXM(k2KDl(8JZ;Yi1j1Gg4h zbm55AA96)-MlCQ*G)+~HlF)3$YZ2}mu%bYrK`9!WIl2I{8|9e;HfA^GsQz&g5F*)? zxG0jv;GCVX8UBb5F?X&SN)*Vxar===l_Hq}yqX_vOejs;6b)gr*!0KJdL*967Ay67 zB#}&Iv%zRQk;&1ZNfxV#S~uQWjMe8g__4+kV`$0Va-z`-7i!*EhA~)xPk0!48JQCt z7p1+>gR=kS#T7pR%+Qqd1q~#xI7{ISNwsdYC4d0ZcL)$!{_v>b>1eUEMhKKYE)hBL z5-I0It~fc{y%A^`Z!GO)@0Q?C$a=#Wo{44Pnm=e3xi` z(8a^{??;)KU+P#THHC^Ieh^B4>nG^YkS4cVzDuwtM+n@e!9{v zcSkvvgIX_DZpU-gY_*fFwsVbMrrM6>YWemkQ|l$5QVaD&xs@olGtCiUY8m3}o5M)1 zk*fE?nMycS3MAPD7nC9n1E>@gl#HUo3DCs@wLCGfIyE?Q#p{GmdD2~TsDi7TGsfau zi?vrn-PKSHC*&b>tl{d4zqI5pkma$WW&1$7BU+WFRjT8PH}LA$GHq9^>Pa>e%@u#P z2c-Kz^@6x4YndK*x*`SQJ0tLjC7gmI!WaadNofJj8#JH51&Ymr1Sl8qz^=~6uk!5%Mau_DAvGFJ|#i=lLhiq{p)Myd-` zO}x?Ra-%m|C^g#oN~2gR_WFbQ#f9VR)5d72zOJ2p(RIbvT)?F-)7C9Rv!cs8=h;tgU4;m~NF zh8TS!h>g&BM=-^v%+7d)%%8?2$-;-N4N0S3hfhY9JmC~FBmQa59YFv&YbOmH`6wZz zK7vaC<+niS_U2tEcdl-kRh0R3SSqeWf~_Z=F)H>MM)m| z*3A6==l`AWd}qTHex?p-6H@P4)?-SRs72+Pg;u4*doyS&G19(4+3uH}ei@a!kyh-^ zh8}I0;kxFZZ&;u%8CCKixuYYtaw1GEhR%W|LjZ|vMhdigS8Mc+?iv0 z!4T%Rr88%XRd8O00Hjk@GPa~p&sB}ph6TtoWHSe0&Wqqs%p^sPMnfnHsi0ofRmEOm zT&o&jj_L&6+0JWd%UzxCks(mnHww-%T0U0lA6-&${WkPH`-oeM#C)W_|%Gw4othua5(#X)zn z)f;Vs_8A!7?kB^|{(QeP+YeD1w1-h|;-@_dO_0k3*_b|0O?XBxtya4T6@!ag}+8I^J zBSJMOX)u(SNU;;u>!R2+(-}4tir=TofLj!>)EaO&a2&#hVx`K_XO1tj&pgC}KbQO+ z2|EBECcJ=gqF?d-Mqvn@BGN>O0fe`Lu#x1oC^yJ106`>Eh}!{niI2s(5!E8vIVy3G zqmZs3Ga;UVM0Ah|k`~Ncw8Oyg`l0|K7Dccj$-ycPx^A36r03W!vK+<&3EidKRa)kO z%v4_r_}5kBC6s^mCIi!V(Ym(``l4zLlMYR`(e9L;XajY+;o508=noVNCKDx|R?(@u z7i&l14^fJst#mk!LnrLQpQnROzcbOizMqZK-lQ|xhU-X&62`A2HXCKMpp}OxPw7NXXoPqMigu={7B+R266BrwIQ1F&v%vy!H`E&+;4RdUUMjuTrFr11C^OBWH_t5EZMH?J@_8Pv`~ zvkTwCc*F!>rWmY5-`o;m?oY9gtrl{IQm1rO?TrfcLYvO6y-M@O}nK=h0F#LQ1z_|D+aR zt-kJz%j8vC@kT4D1e+ULA5=fDCg*Bi&7F{Ml_&_-6q=NZU?$_?pz36lH4(kzrJ4I^4_0q??)Nb*`%XmAn9fb9&O{K)*q44|a12{0sL7dD14qZpbQojEO8 zxkoHX1sw9gE+@8gzFPPF{vdH1sbACI{oo2 z>t+i(7JGDPPp{b{{9&a36#ZKp;Q~1*wrOg6r)rOo zkdX>e(pfE<;Vo0Qdqm(`n{a&>O}mMm+Ta4)dS|cZj(~Baz3pVXTC!Pl5vWgap&T6C z){{*&n66PaPCg({ZqlH<=_1aY(x%zXwg}hZ=<3Kmy&eGoMA>@FT|?}h(=U)_cn=bi z=Y%!{FR4j!bQF0B><4PcdfoI~CkV*siE1Se!nuBlwS=C@6&*wcY)Jle9Ro252EZb& z;DQnn-AfI%9w)PyI#Q0r{nWW5J29iQsTm~lfC4!1^%|!E0|}!d0VS8q@JWNBgt;zPxOJJB?O7$_?vMag_NQVeipYv; zaRQqG<5Z)+T<8F*3}j;1f~AV0xt(dPh0#jeYY(kxWXD4y3{HdL;?T>cz&jMWn!$$M zu-ZEb{%ng&+2#dCe9QKAH>NADo=mO&mer^BVbAT)$A_2P;k0hSglKTfGMS|kR=icK zNNN>)H)+pJwUH;Sy`?&pf?s|~G0|npBX*bEDFtQpqQ!zBPC;fB`v|Ea>L{Mr+TiQL zErt?)4@E9!H9fmCbnrs}_N|yR7GFvX#K=vMN$2=-OPdnt5kMHigdYbU3`Gma^B8`f z`Cl&i^HA&SFFJD`oG(GY3)+)iqBaf9Fwf#jmr1&G0zJnRkfTXU2;rAt(wMRl#*;qC z4dkofKLRR9(Uui7HMfOqkF1Tf;w@%}dF=y>dg(b<*|REk2k$sjy1!J~FP#U{i|G9%ymM!c z@GBQjNAIg&dM7he)_npSq%REft9rKHOxBx}9eGsZtZEs2`?{XttXuOIWvwfOBZDpt?ModE0n3hzWY{P(-X+zp@&sxiex>?17peedU;k|R}TVkp_Dg)IC+A&)O z;l*?2xVT9eHfCf*7R^PR4^hw4x%Q=Ig(EH=@?1MQ0!|EV5Vhi0 z2FH%tQ*c21$531d;San+|H9R*OMz{>l@J2$fMYd(taaw-xAoyAoM)QdeT){%W*612 z-yITKk9RL5{gLHGgW0SzoMJ&<2TV4=2&%Tlqf%_FKoisQ;n0bM zD%Fk@zu=ok9S2~-nGY>MiHD%HLXRF43-I(|qh*jZ+dtTG9G41x6klk-m^TU7rrRcR z&EAD(d&?YOQi!E{7qkKEVXM1~V2SGBsyAjJu6dJ+KSA@OW(UpAzQ1`t?L4dz$%UKJ zIcsuL&uF1_$?Rb}wxcCm1|AfX3nq% zx`6?ttJU2yQ-%Wqdr=la#WaIHZUao0DhAbLVhgqolH)QYHJAt?Wb!Q3hqTq8U{J^F zk4|VU)3Sp=N=s+YILf)OAeLZ)gLs+!V^nq8C@=}psRq>l; zPu$mKo(?C2*ivk$C7*8LUfwY5reRi9T{Ii8b4oh0tjthWf?H zlLEjy7FBB9!7j;O$6f$8b<5bfa?s!1aohCfwpxA!U4w+CW#e{*_@||Ku``_7Ns0>r z69mJvnuf-?3l0&V0B&gGn_jYmxJ#I7SZ0;HFlkfl<}pJs9I`x0i|E>7BWETG-L=@7~RwBI|+i5Q=6E}%8$QS3_JMhlQBdnUx zEhKXzN&>mWAmf>l9K{I|ElB7N_h*v!H4`Tqy3qh%Ts#_1d>}Td0A2LrH(%TRg}w0y zl$Edn6cyd#OcgPG}FyssW)V(6s# zt8f}>d!2I5R$OtW=jxa%4%hVFYL&9PPSxy*D>cPslDd-WW7Mh$445f%y^{vzq~Zb; zm@RrI;rmfU%djGNu}TsR;1!`PR~|nxR1DcFx}|6uzN4c4<=Pii7phI@Qqh{^8Ey8L z!@&VLUbsgXGsqkW9FCQsD{=^zxP7Hc^ks|4v*^x)M*66|PA=#buOv*U8u0MM?Pa^W zZuVfO>;AkJ&TF0BdUjB6?@^6gjd!ZyCMue$*6xlslfi7dcZtce6LvLXxznS~dw&F7CPl9qTshm1aZc%ZR<1^>bOlw4gL-P_Lxw z)Tp{q;v^l*kAVFbKXAR<3FFXZoT5c6roNb-)#L42yj>S#oZV(P%`U$*K725}@Q~WO zKrg>$d#@gCR{X76xTSWfiao>x7+R(lZPp{KMYfc9$DQ0VdY6s<6>mx>j_X*)sUhXA z3oV{2{zwfcRU=jDNXua70Pll_H_pfFtmcksQwxtFLD5=S@eomOf$D${p*z(LW@kZP zY`eE;*a@F`6=4#xb_f}g9TbzIKFS+uN!%rx4Uw-bW(tY$9tGDn|Ufh|&z6CDut8^{nsl9jVP-ccptZd?H0rKnxF(4hG>z1`WA;MxJ|sv8^3eiS%)m+z zbq8z*6DBNVEj4O|sKW};dj}}h(FVusI>{zK$Ur{^4qlLYG=*6wafW7YmYRGH`ptCalqDQ;P=p7wMg$79}9LnRF3k`hz*uE_%f2?L(wfW=o13t_H${ zA()RL>Q>qiQ>A74FDR`b2`bm}z zjU3TCw<7-~J_pt1u6}^j@43_|H0vd*yw^Nj=WPV|SRpxgvnfdidjz&~`45^&RLY^?O5`hy} zC>3zx-^(EYp^G1R$Bamok-A?K?6q$ff zX1i|mHyq@ei*;|Y5$x337nS~%a=c##w>uZt>~Y22tjD_*XD&lhumh?$ll?}tRdt6O zT4D^Y#+$dPMfJwl+~JjwcCLd9@$|Yu3N@UfjaU5_gp)h9S3H2LCZYFjL?irhSM$R+20hrNKU^PUCX2sH+G{73$#VhHP+v81x0?r8rdT z?g4f}ccMFfKqB_Ks?sWme$Yj`B5)h}O&B=r0wnz^p57GNfbB4EG6mzb;Bppai!?T3 zg@ln)N2*7qK!$NaDwoTEjD--LP#g(5w|pcNFO(xub|j1n7Kk|RqGPElZWQYVjl=NE z!b+W534^d-N>Hg3Ht@4`RL7?ah82@zCHnO@fVi+r(LGJ>r~z%dDYc^3U|4m-I@AO* zddfC^>h7B~HO*bmn@r7E4aal?+wgpHi*+-Qv_*UFWLtVVZv_+88(QJS@9l-XU9Z3I z^>)-~*bFE~ni`#1%j;r?D=qBHB4z`)&^k6~M60UA-6DNit2lAgnNGZ{r#ntVsk73O z4>b$f0xKgK8tF+NF>q?Mx!Cqo=aYKY+Qu5mk{ zEwgMgVszd-Pa({Dj_T(qXcE^EY5gF{-yGXlNvguJh-nyX3<%FfU8HiD%25-7c!@~@ z=WUH9IA*!Q)X9LA=X@y^kS9;$oVWcRL3=vb@uQLB)0OFHIe$Kupnc_~rP@16=co+Y z8l>NGWADQUlV51AoXVUQR7?@EFT?dEsxKk^sYdB3W9{j^!N=~q^vk=$pTU<5^&<*N z?$6ido%b2nyYLyLt^2uAks>V}%EDhPVvY=;}>ROw!6 zM3c2vhN=XgQsNxN_BJqM#PABu5}~zpTA`t&1}zE42&Bsoj*=FRi=R>WQVs-_u;L;@ zTBKmTWCYEZCC(RfrQ^Hhe;xwW!AzobfE_{xz-OUr4-0>gB$D}>MEeXJVjzatlAv9x zN5OXVu~Ok8HLW>^FQUr4R|vBV&>oFYSD0j@Yb10wYn95L44lmTv)fqWq-5Q-mfP6Wq-Tk&MW*G?^QgB-s|yJE#9dF z3o2?ETfyxftrEBIHM6T~vWKBi-JNLhb`w_|cU&`>gSV@eXxA~-q!wVq?5-)k8jY;} zUe)eX5{2@C*%`=8T?1YpRSW6k2s==5b3!;_#!?-eb0AdH6JV21%&T}X_>#DtQ5BOH zA!MLvWX0L3L9HN7A!r-K{GI4dusvr`1-*rk!6}leNomSP8u!c^j$xGDHN-wQ2XF>{ z7#M(^umHAC1X%T&Jdt4`w~l1OSkWCfvA69jCIWIYq$p%sh$+yhgV@40H&j0i zYzsH41~dW&kH|mhe8kgXBya;5o*)i2;b>_9zfD(oNN& z>T|5RJ=N}Dy#=A9xsVJ2tRHf7@Cs2OlT%K33OC4qq2#1HZBA~3wM+s?(YlaD06X(r zeptSa)9Ev_XqcuEQ)EQv1+Qk~s+Wp7LS!u-{Zo*QY01dyj0XD`y#Cm3XRRPr(Cu3^ zh7j+$VQj&=b4{H&yH2TbPRr!36#1|YIuI*@?K#gP8XI9|=qKJJ zheC;*m%G`xoJyPzoE7W_&J+*?#T#XFFP=DlC;6P9eJ)b-$`hs950`51ES;kl#`Yln z&YSxmIh=g3xpFFVdJ@=|;rbG*1-e@+9~g%p0oCun^vlcw&aGTOSNig@RI_3x{N6_C zXO9t{oqwJhD43aZ(q$Fa9kTsaj_r5C`*CXZ8Rg7oY01p2TwngU5R%ZLXk&;}Tiwg< z>|O;kfreZ5cFWd6>0hjQ({);uVoyzu3EUH#QzXhvd888xaw!x7A}1yrC4~=6pCPv) z#5fidowl&=<`RRl0P6W+S-233XdJ9Ap!+14gXApBeW+Q*kpRyb1{Sz$I)gQM>oR0Z zk!I!Kk`m%g#W9{h5$1<5Kys$})eYG$0f3w>tFpm}0JFy_gw#rGbI|iQ$*yv7F?EFx zQJPvVm0IJ9YkFO)M+MMD7EnR~7*!jzM@z8Mf|<9%6qTc*TVZd= z>;TzJHsABe%^9sAaNwO_IWSVLVzz8_l=e2vOf5awh;}QiE)A#lYP7_1W@Tp%&MVzZ z{JCM_qBE=eQ#IYyx;x0&lKHJx_i#{6L#hzdqMTPF#)WwkKY6!{KNT`6vEn3=S`*I)qIV%ru+Ukf1V*}o z<^)}CGbol&T*%xb9p#wC;24%0xm1CmLNU%|DA1l0)Bw9AcTm*8$;b$fEe|@G+@OKb zy`XN6Tzy0*LvcJ$B&Z{uhlHMv7uXBK{L>+tabG;fEl*a{A~%ZMQNd2X32o78$~|DY z(`kncJtP*S${Mt=+?|QTH*Cl23NlNf8J7EY!qIfHiPxJ9_YM#4xn|LrZ$7u$y@qa>WKQX+ zEd!+}g0v_D;hSz;x1yF8VIzYmw_$sjDrgQh-L#IPyaR+sn1n8|20tV7{YrfaJI`!@ z2xy*m2n z4yPYdS59S4i-`SHxLyS0Pj$@?-*W(}|H|IvJsWGh4k{N}UsSrbTKY!dofRr3XJ(F` zl85e33bvm`Fax$fH@siXtqG20Gg8fjX69>3XPo6%65b34MQhv$_mv*yhch*VP0b^A ze{aK{RooHrERbF^DIq6{2#KU=F5dL8qcJLwZ?xD`j6BN15D7UMG&{*w(IsO4D`qdG z9VHf%Ocxl)HXC?%1M(m|_p<=wJS5S1-rt-Zh}((9h zDoiJ9EoR^HTW;>&;3%%(At_4?E5SuW*r8Oy>VIT{8 zV~U=vxJ&sGuZhbO7d!MLZY4zcXg~3j;p+wMEQPtH@ue5rQQP!W#+N7?cISJ2v^S$o zDE%byRZSW|GenlPXr&&k)Phyg*3ops8L!*(HDg4NY^8lb7+?11m0-IPY{B8I>b>)7 zw;nF&$0wz!vukt=C)2vF_sV*&N*6+J0=CzkA!$?671bUCDUOd8tOFcT1$IfNqQ!~t-DWmz%*gps2; zoj4+r#D^2-=n8Af1G$2clS7a>KT){;q-04Toyk}3BXo}8yGhsPTqgr3BaCao%*&|) z-^DC1=W}3$Dorv+0URCJPApADKVo%SOJJ`|^(Zt;!=(2#4N39ul@PjVQhDYnwrdCR zbdr%?ln$iQW~fC#&OiXEF6O@uU%yX%kb)0Pm?`PFjuO}kG3ISj-$XN9FLb+oxa+D# zv8vY$QZ?aMLiMfDW{%?1hDE@iZip*OYFMOS(Obe)lSh!ss|Hdi$U4ieV}0DB(_E9( zOg0!`gif849Va+EU`l}TJ6R9a=}?hJ(tpEh<7vZ?1k@u>CHLByE|Ol>9*xW>3fifc zrcKMKn>L!HXtV`IgSZ75FdwGrc3NQ%PKFg*c)K_8`ip3?H#oQwjAs1Vgj7T<*vk+% zg5e5nIHDdN@|Xn?tMd>hlT2;u8k!t5o;`+gJU=xWCn;*RCZbsqnxsXL84*`6G3Uev z9vrA*0Pt$guZrLS;hbEm(CkdT3EIU*Os3&txJMMuNy2H9S7sGxEr1QY08$tm*7XL3 zmKx?ZDOQKV(dD7Lu*58R^v-jM`AH3&_!w-?g=UA1k)ZuYN|o;_ZG2;C=5n z+i$&f@X-s?534JuGN&hj{RpCi#s{w~ehE~+w)-z^!9UDxkhZl5XLyDsMN*b76^ z{B)!A0b+RAc)a4zmR?$V5jJ84wm&z#)8G}aVBkHkS1qcUPWa5gxm9%R3X?{HF75^t z?y3^ooqcC`Lj^IMtqQa)+Gav@JECkHQ)rSSaFul{q_P7dj*E!+99is!P6mpip%$Hc zaeCP>BZQGm4Wx8sOZG!5B7zUhYFZc_|k04DKcL{~N?KB*)Cb#Jz`KnhEqo3|5V>!E-CV_;iCSRkqah}-d833v zgG#(DM~ApwIx>?1=l2)+kYp=l)MpWF&z*izPr>PNP0AdQfDNLLSdQ5i@+Y!9VkZjy z!jA}H$8)*XnGnhA`Xt`-Vl{+)$|m+K!pvXXGahH1CWllIex9on>Hl5iA~L*zjF|DI=#^_ zmOO7FG&l)jY=1kG#f7W%`#>;^`vI{xj0y@yLKi0+Q2^y-1L&7{GHLpmbPqwGjyWmq zpPa;OkL}(x7%y7T?;68_SJ!Na7aqs09r-;{0WnysA-W`&iq@1yPQuU<*l4B$D1R=N z=6~Unc%Wwb&;V~%7N%)_Kkf(*m30h_uy`K_B9y2po1TPDk&Rh~br1;D{lO4tfl9K#p zx=RkuUEJr;hc4dUFow?JVI{j!^@nRpz-6+*(IoJ&-1C@SqkgGU!4cqJEq+kAsW+|j z4RHXF>W`*NyK2f;*QoT@BL+;aUDy?noC}aZi$6g*kQ|7U+-Od)1L?&gybLsZ4S8W> zl{REB_JslmgqJ{0GP60t3o|3balR1j$$$*2LL5lVwN$pEn=P#184C(h2>&7E)*B+C zVA@V{AJ1O&oaat4q;#}%(a$DKlbNv^UWn3|+C378@Bxh)4Jjz6 zBagg>`4UNcFUjK3EbR8(w1;O1Lkv+6;&y(7$uQB47OleoMvAhZGsm<}hC zS2W~8DVa=>K!@$j6JAC5L?TT3Ye1kev^L?RjT-Qt>stid^D9wCf&5Bj`VGIwwG6_8 z?JGI9Q?CSW$heUA7MEka3WTtmT*aV0><~g+xz(cvuJU$5E236}k+ru$fJ)5lVQYqL zkNP!o*}mbqC}aTnx(@x)M77v7jnSlMn!5O#!IH?Fi@X42hz>8^aO0}OrT5%#sm2q#0SlyFlZpehfW=IEQqk!5e||PTT8GweFM|9M7ugE-v>*m|(cgs2O#K zo$)*#jLGRx>5mZsDNBF2JKoyUbA5~3n^U#q4)Abd2hkp5tVl@9>q=cwvz~X0V=&qd%pl9h$h4}-&Rf8NHrNN@6!`)eL zc|Ow;j_(pnmm88QCI3Zyjv4qlvST^C7ubFV%gS6LC1#b7c;s%R?3B|(!1G$g4*dK0#3H<6J8O)>cB1GpNAiZ$+1?s?g?&s8C zA8v`k*nmsHY)a;vc!MAh$h+{sx)2aTzR6iZWm5s`Ig7RG1g1?FfH4-`ILBA`Vh z-H?i zz61{rHxJVO_{IY-9nLouasdq-pjtjIP?p9AaH16VkKSyD{>5Q7HiNc=e}>Ihgnr76 zi^ScE(u=S=gq(NM3|bzCC<>QUi#G9Y*qex(hed-T)$>fH3E@mTW>oq{o?u0ZO^ix4 zXq(bAqrEWFt-7e(M-_WiaVJJ+Z+7{icy<-zFB0NqQeYukjxnTqBbXt80oBWxMdW>=^*|hD3i)+xRX7>@yNRE{;nv^IPPnq7J^vR8?l73CrTk*OYV4*MAUX|)# zq%1JU*SlE%oC>Ni^?Ocf> zyW&D-g?wX77jv*YAcUo_32DZG5v{CbaO8+{aZBT7o#78mEwNt`cB>or|?!nTnd{+@*vZ5~hgT^Kcz)8`zF_naZ?L@->3y zOxTaG8ekWTW&%Y{CsnJOox0O+Vd!dij%0hei;e(APR_HzsR-|S41WAi3U#kk{oWkg z-zlNHKzdHd9AW!6l{UVqv_glwy>aJl_g?rvF3o{=ApHo~JLZS3?+6LAH+@g7LhHSP zTEB4LeP8>&_dWGTfAmM7`pE^H|Imj%`skytE0wSUV-*s9t@MVRqWM9@kS{91rC%(q z-t(OBejK{5VmNcm%!mWl$qSH&xXfv#G`N48<0Tv4}IU8J; z#O=U4#5?vf{8@19T%>F;{xe39&?nsDlEf26K)za>02LrY(%<>moe#w_J7a^F<<$x; z4fJq6?h9EbK|Y#HYMG_kA2a=mF!NHcD$_k#nF!=MpS2C-xJ`^QRMU$GbJQ#aoCrBA z@_R8oBk{U<^}hX^Uo<5T+ciwpG{_mIbAU6K zDv?!z?aS+tcYhHI3N#Zaj6@9Is<-GW-e71XgGzcta%%uQIFBx{x2w`s)(D#ZpkcMa zc7*1NcvztUfa2CS=n>hp0c0ST1Fbn8Imebw22--D@H3iYc}diAg~#xM1Xn{Wr>H!| zqo68YI$};uUet{`U4Q z%p$Z*3dfK~!huszhTc`}AGD^Itl7mTJtYYwa_J7!>V}0P%fpo(jS!PZ$SCPsO*9{- zfU_BNDS!6TLC8?jo~q%{z%h8Zi8@He0!%)kE4_BZ>zHZZNxOV8w z;dn_5gxnF=8a^`@JVgXTG0D745!hADyJ9=4Mm$MK)8Gfr$%AVv2+zd`+Ca|0(#Y(O zWFJ&OUB_9JEG?)GXcyPJ%+qr(P=dl1G#V9ZX7>bWKmX?0vsCMoLjCGe?T3yCnaVO~ z&j}fc+rjqNmp1-+Y2}Lwc)u<1{;}4|Q%>dS!^tlqgSoczGoJZBEKz+vf7SPW-~aNd zPkrid{^oB^qWa10Pk;K;KlzhC!=44a^V~C~2O;6<@o~2Fh`f|w`zd%Yn3<&{vVixi z(!A-2bzeyS7g~niOwYdfll!1&?a2)xWa!3TQL2q*8*N?$PZ%Nas9GM?d8A^SPQ)2v zws9bt(ZrS+T-aOK7>4iMN0i8g3Ca<+6Hc=M{1)h)$6Ug|GY@6~<=8k1l}bH%Zg}L z==z+omuL{~U5Gf&7G8=aKU)A!TKxqr(??Rqq>_m~A{Rat;3G!jE9Wsq-M#l^S04J3 z?JM_=7Q2`4dCC6OdkFIg@lCzuT9C7RCy8|lya~lghY^#*#A5tKJA+1}F5iKMIE3vG zTre|;iXk(*quuNGx^Zd~DOsX^rzcu4*p~B_q#px@rb;Y?b`Ay!BUTD9$rp<`IWjY( zzB~(HCz1{KC&nx1~4&vQ&zgNUun^MG8b| zlC%~{y!bJSYb*Lv-0vCcc?B}Rw2Wcgp^2f?TvvsFrN<~>PGW`04vl>Y+UZ+bBX@v8 zTX&hJQL1S;Hm(AM?%cvy1MgT0P`CtfN1nB1I8gDeAVvpH@|5x%?0JdU$$ny9p^#Ti zhBf+?#{+&Y%1e=#Xq}N3^&o1b3u@TwOgE#^!s;S1B2d?`&q9_!t{+Pidgf9Dq}u`X zPfZ+gDT>2i%c2TGL3T)ku4F*K>~`l=r)FC;VZs0HDnWY%ALd}#ie&_$(4dM-KsdFx zt~V0$-Mxk_#J*&K@gsEtGW%7;Y>cS}!hUkK2ANPMl1Ml0?u@*NnGWr2iZ77W#mhHv zxBNfY-Hb9uB{V{IcSIPE>!X6>7IRx^m{?_`!w3$#iK;Y=Pq93p^q9Bf z5rP@~+ri{J!G=qcd=`a=Vii&~Xc!?5-qe^g0TeqCCIT`I#Gwv{NeZ8f!X>U!uw5`- zWHX|Z22<$B>G{E(Z}EKh(1i3-4(vr1^&NKv?I*B(;|)2y?~l9Ref#1sJ#hJ#(Kp^Y z_#o8!l7z9W7r*}X-~Btk^E=QlCz1TF+aUiZKl#bGzx~}j>v&u^Tq(VRwNyGNoksw9 z65j7rydPsbW@6ILh9!p?Q) zTt_76tFcI+g7eklMs!i2--QgZ15*fXPBVYHEnkc+vB1Zl{H#-)U)sdg&j1r zdlEWAyyr>tW4$ZyTf9y&vhX1xez_{0s0%Yg`X6Ty%Iu)W`CvI43`w{F{2tu@*u9T_ zIcd|$V($QLlrs?i>0pAB7-3a+Gcr8>h#3fY+%gQ)^ZX=5G^j{TDA~6%;zKbTN4K2w?L3PF8Alk}mLZrSA7cT45m6s- zAwj$3;$?^=gGbar+D^u`W@ZmWhv&J=PV zhfhv${**{t(Mba-rf(&5@yH~9noJ!kn@~OB!fLjws6lE@!)GX2@ELG>Q^K)1*kXL4 zeTL>GIyThQ$N9{uF~Ff_$`JnC3n651p4THuM);Ghbhd?<)9E5>AB(p@)J3jIQUDbV zS2unvv}x>*!fHR+*7VhHbda(U~_2c3$4o=)(W4YpG3j$`Ec7f7| zw;!1w-pnT3xcSX@FKk`BO!Xn3M^_a~Z&C{1QXAAWZ5~`saNeeiu^%CZfk>w)RcM*K zcV1qy3fM&By^ClV94sH*hz%47Bvmo{MbR-mxMm=BwoPyhV8qds&rn0ahmKmuT3iw$ zl#r9-rlg%#Be?I;6qvP)JsS4)3i7br5FqatpOfTBn_NtuX5#Y_#FSt9F{k@)>g_)ocV?G$Z8dWl)47g>E_&45&qt0OgeomI zs1W2p;S5Q#gWoVFRQ8-8GX0POAB+}BvC#Gc0|6p2fper8@N-Cf0g92;9$cT%Dd z@^*Iu3^Gw7WYt_0QFWH-r-)VUS{+t z9~-El)N|>b9;r+##r7>RlQfzx{Lw5JPTe+1*iJr_7_HbL@6trm~cc|SjY3z?rZ&BwXlJFjYm8Cm>Dqv*J+_e%9W5N#b;@T zW**fg*E@3`W(Q;(BsXov{HhQ&xV}S%GZ%x9!Bh=`orWXm+l8D#`-rxnPPs7xfTE|~ zU344lDYfX}j zMt6}Hz4GoX1-uJ{90&hI{=(Cw?r7Rb^mVoc# zO@J3h#f~y3Y^Q^1MZ}!kFhEIMNe>?!CNZMvP8Rr&(QA@W%1QfV>v)*-A>V?8Ehz~u zJ%=}?wGGuKqMG&y;NiGnauye^z{x8OLLp{3&|?NY+L*8tTw%Tk8%e$imXd*tm_#+0VC>Y`ID=dBs;?)W|$-#(VX-9 z=25$NMZ@Qa^8@N=?1iNX7b2PUR=QzjHH7*`hayTMWZ<;iz#<8nUAR8tXVRT5jMLHk z;cw~DU81MBG(z$cjs_nP*Mt2PNk|#9U19~F5xkn89cIxV9oxl z?9-KulCH$;_RJ`DlD6B;I`&hlf(5XH%8gVK!04g7!16lpHqF(ljKW-San-GSboTir#C zYzu-GVl7DuFn-Zc!(p7FmmjE(RWI<4s?$wz93^?`Akm2i_`i{tL22oeOC>kKOuUtj zz24mJOqn>KBc-hpLR=&_&}y<$KO)Vw$r6aQCcsW*2pk$m3QmdBl%Sm*Kz^9aQ;@=+ zFzRQ^m`%|h3ri@OnByi&Dx5hc`F&=Hf0Do56_@8oY&k32zn@Sts za2&Vi3YlCU1D1Z-m%Z+t@BBAE@*}do``tg4!+RcAmk#IiFGbn-+|>GA!Thdw@;d+a z-~R9O`784wqj-z`@A;m0z3px9WPRd^A7*{)Ti@~4xBk#~eHZHwvVP}x{=j#92kZC0 zE>A^4q`tyT9$*zWduAf7|1aKk@j#eCt=d`s;O_ zNe5s2WYN~qZ$>RSm3>yWonCs0-ky@C7Xh9-(BcUvPc1&ssDey38=dR=@J7wwY_>1L z>Y#FAj0J%KF%}S_Kv%Z86Kv-&6~Hd(vm9&%MR0SHb}Be^i_V;hxrkMmrwa`uOa5ZQ z-phc&v8Lb=V6Rd^gZ&^)iV^TYHFzt;t8hvbH6NQx6i?(8cwe3lqyv}yvu!&~Q`54T zNRrdR5F<|;C6olhqHs}=MdjV{5eBt4P5rcr<~d29?jF+%w+5RBaW*D4!*c+40h;mf zEkqSVOR<`g_WGmEohT!n8d0KT1^5iKk-oqc^D!8vnAR|jr8WRxGH7;~O!W3>g~{sn z=9@Ux;7(vOxo$R)(~~e>7dK-%(G!p}Z>4sIyefiZ_$XbPXED{y<91MeokrnRovte@ zM+pexYK+~uHpLW6251$JHB}znP+)b6!qS}Ztn*7UWyUCm5seU<$rNgTw3kp51okV) z?8$%SoR3hZ3@)fuMcgjMr&5?8>NQzKnvQEh1#vqUz3PNv(#_iafght4j2Oz$BZ

    1TdNoHJp*aiIa*i-km}9DQD&CSRoF_#$NrqN$U$)>9USTu~YqsUB9m1j{Wp^883 z;TtzG0>tM{d=wjgrp5!*GR$79o^-Dc@d!Ta{R9hC}aFCH$og6wDPQ#-w(-?9FdV|CYDp}+osEU}XU`(2C3KAa3tUcN-dzc->^Otpt4~9O9mei;f!LIMhXtgcT27>U2&a zGN*2x#498r12E;b-VB$(1WrDu~w3oH+*GXa1M8X@#j4Rglt1f}kDFQ1bOm z6=`P8SgavxqIh=D3`R90(fkqTp%_e5B|Rs7gxAIVlcY8RC$%J70hd%TROZ0dd4?bEYodjjld3EF?)n2wfiS3U)_6@)FTfg-}sP&Ui zf9~zS{_DT~?ce_GulqV|Aqn6G-k*E_7yjsf{?C8>(T{xivB$o$TqeQ?;rS7sSx9P# zFvAG@mtSh3qQNc7=rlT4g83z?vscx)LRo9H*=ipcgKL-=DB+IQIg~o|9MZu$jtHPy z065zKJ+8R`EZANI(gnz~1H0k2UCpyjdDCHy@^g_!V=7WeRnMH^qUO2sn*5`T9d`~s z2Dag}=4=Jj=@Se{qmTxjq&$iFb389T1Fv6jM7pj=Q8b^=_xAQXy*?3$*xFP51i&!p z6k$Ej0onK(@^&=*;S7dcpjidqh}Jq>l+t7uWnt&oFUf3;6l58}g z5hw9E;|57QicG(!NBFMa_^O{EPkalQokk!17+;m;$JKw5)BRjywqHe@D1b&}=H zR;$RtlVoOOmfhDYytSz5BuC@W%y&bji|bfIcO*bA^|PG{wE%X8Mh?ZkBE7eyv;m?9 z4;+5Un%SXB%O7qU(Li^@FiqM$yu8x>V(g^!nesLdwjpXXkAR=vrUvfiY8xlyF5Zds zn`8s8;hjZ4A5I-k>v?nx1v_=C$E`;q@ovCCTu@4xv#bmnu$@Hr#$pyCT#? zs0umU7|l^F)!*6UM3TxNRR`FS2T6G>jk&3l(;WtVJs!7G+#|=N0G#oTKi#D%ww=w8 z<?gT;kmBhp7Qp)_^EIwqUU5n)n$NR~l@jV=Nn>~RkCq}NJNz;-aS zq<WEA>Nmt~l_Y+JZiYvsI`%kR2=MLj>}*IMy}VB=y+N?Z zyDQ&L!T5TelQu-kyVjuLY`DsZETIUz9}O2;8%P3Lp-M;Qc%HkJN=^hf2E%dXiea|S zrML#`Bd)CV=Caf@d~R&d$qIt@Z$2hu-chPji2C)%LHj?G`h6N39kU;IV0#f!AH4m^ z|M`VO>)&b5r=R}SzjtgeKENOU@gM*6PrdK4N586ECie<$b>v{L#ck>x=v+eZqsF_6 zJ!e!EFz;PX_ivC!M}Vh9a|Cs2|FXGwz!={2=J!Dn|o>)!?}dnh65pb7r5ph z)3khHe;xw&h+6SqB5%7+t3I@6_`KCkke}F_eTo-kTLud%UjSs3>ck8U9fSH-c7dxE zWRqkcx><_a@~7}Do+9T)-WZqgkIQ&9!)2o)t@DXcmbR zh{me~n-DJ>ME^3fs>$h+i0 zGQyHP=7G>4q$fH-6VC7=qEdpRI(aJ2&jtVG zlA(JzD2*AiD&S9OBm_=Px~}8{fv8M@dikx0z^TTq=y-id`B!4%H*Cu3)=hKo1<>@;4P-b=;^853Plbg#cTam(I z|0u<1(pG~bg``UA#884G95VaE0ocwM3QLx&WHs96p6B~E=@FJm4V^}%QfEU6%k-Tw zaLbw1jLb%zYqqgafOH~?X81#0Q#Vm@_gh|1^(fe%9p1ct_4ch~&~uVFXvY>7i^Eae z?TY-*i)%vKqZRMa8eXwdy47g$fC^AON|XKo_QuPy;qKnn{$g{F9)%aQY%AQkL{c&w zW5tu!?ZD~`gn7d{l86^CVhpvgIc|}h#|(Alu*af1$l-r|iG<48bHJuG2yjzXV6JxDFL`e8c8QA6qj zr$;e1nszLVbp~0|1eA*8wG86fm{0d4V{+=8;ZOKFU|eb?6tetuuu5p?yjCMIgv*lw zheiw!uxsI%0h&<&dJtBhccFix=&dTmLK3={Q7)5xQk%zb5k5b*(}cA0?5ZAS+M=^?Qj2Y58Dfb|M&m?li&aSKal4m_^o8Ag`H;HRg*rpQAolz znw0*{6;~Rqw&*E?DV*KYx)-TQH%8Z$bl0BW@9jMTX#jcwnSz>m&Xfbq5kcD0G7Wsd zNN@|P7w^Fl&%5sdc3?gtXk=!{pX55S5~F(nMiD>rDAzj+ugNXI%->AjrB4&C^1w2B zbtZ3=mN-a095I_B7Ly+=WysP?5fWay zVoBgF7MfL!B!x_}az=|;IX|^{`&a0097xL~uzkI7Q?DN%tE2z(%xM{=B6h6QkFQF~ zg8)8HdGLbL4(}+>_3}qw{>UT9cV!_%s2gJBUaq5#7PsfsGU`@-Ct3qZl@rPw#t6x( zi;P*k#ej4uDF!#q&_|PD6ow4c47TVA(Z@oRtu_7gB#6l%TR69fn-&)I;(pdbRf5wC zT`KxSwl$+$ZN*}Xr?tzJ?74W?_v>gsyv*&+aCj42&hchASdjDeqSy*a`%+g5%iTc( zQ$sdS6L2gd#j3YMBrNUcP&Xk*ar~%_HIQis&c*AO>~23??78zjN`a_HW5lGg6)Si! zmQHhYQz8zRb4+1?))}xtQ!|Ls5ISUI!-N7l!eRz@W`K<6AiUr$ja(sZs1ec(JMKp# zdfm>#ZHk+=lKECN-%ci5*sU9F{3N016O0_?bGmJ0jnrIFMv9%C*a&3vm~QNg3*qb{ zZtW_{e5^0sRE=;m;J9Pe+mKo<4Rdd)OIkt2BpDFu3aPZ>-RX!*@0BXa0?2l+-9Z<_ z5DX{7&P4CXBZW=fpdbag)H2ao9DKRu;Bp?8byD_;$gzmwm2iVTp7;}L^djj&!axqd z)im5}y)JxXaqUopBD&;ymGhr@v5YNTo$4~=2y<-z;4)OsIhi7#SmYK-GLlIBB3aK| zK2{HImCjt1d(Pf>oThwUY=77CE&hHto-J;NvHAOYqYr)PgD0__0I%6u&}fNz4VXh{ zRfgS)k!jiGW_uf>NPqW%R=j0&_O03d{^kQ}=aRGekYIZr&4OYQpL2LXV^Ux`Ejp;e z?7G3{h;sm5_F-ob8{mcgrplgvKsB54YCLRr$fd}Ox$$> z`m|zT2sq$W2`x}W>^ucz1l4&Sug}7#gUdt=V@HTs=3aY*SOrTZTHVpxH0Vy+Ll~;l z3$5|!k=mW_4|lJ1CY%PJv!H40Om^VO{j^V#j8YNX3os0Umi(OkN~K(2S>*&hb^o1z z<^x$iK7sN~7LMl#ckcNQbI%f`U-;XB?eBf>dtdneFJw=xd3vn5^I6o=0`GORS5^=N z;6wZgQsuZ2@L+clCo#dmPO zgeY_(=dvg6Vag4mRc+KszleB^83wG(X}`@K&;FFqe*yHM^YcV-5W%XNwm#_jT>K95x9Rj>Nz z3~(o3>cgLl?UZAnhpE~W!lc+tkt`!p!toC&UB#YYNJ!bEJ-VjTk$Lvw*5ICIcG=r` zgbGtY6eSqzPGakP$Rvdq=!WO zd1Q-#LKq%y;Znpdl`s!lhIHro4XJV>dPHK4kdm;0E_(>2b8?=s18j$8Zz8BZPV9n} z1V)7J)S?FM0pfPQGe!WJ^d^oQ+aBWB)63%W1HG+F-Pu8Byo2%MsfWF|hX=8U2Oyn_a~igm_=BMa$qVfX>}}eEI^AA88W>5c1@y3; z^mjJ(7!MzD4AWD3Bn=y+GUGl{nQSyk`@{L(?tk}>AN{JYdc|nmx7q^}J*3Z@+PWW! zmL6cohDFEQIRK(jKhk>?{4D1H2zAZO3j`O}A=Hl)EDxu|13XG34~{ZVM0~;%X^@Hy z0<9UPzKI?uG#9aK42Y81wl_KOVBq_6J*Faw)anq|%3v^IpurD^zIbHo`M~%dAmeO> zR4&h3(TGCYW`Hd}-kvfz%&W_vJ z^833D8pqVB&WIpk!4MXvs8Ez7p1dHS;sYfF*p3m!@mqv1C~hy!4ddF^ecj`~@$0|- zNB`+R{o1en+LwOm>vDK60CS0-d(Y0vJWt&I@sIy@f$9MJa^;? zpD(uO8pz2>ct3^hHE(8&uEx`gtz^>}UT17_vNqta@Jxyo!}L-i28VZjS2FL zJC~r^o9$<_Lk5V1neuQm8g2%?Mc79M$=pzu+qZ8Q8*W>kZl`3fWqC=y6x+q^m;9qI zIr-Gx3)1Ufuu@TcfDu1 zKAA6{_`g5F`n$jVyUX?6KlbjgK3-n)Rj(=5lV6Ze%NOBW6zd}o3!igzd(7=DPoClz zC|<94k>zhfx>@lSO0=Lecr}fc0QDcxW1d8qM zfUa|1H?!NFus=*lkCJslu!Q5TlW1YvOnP)IqT5|G>ZgOuPU0xbAPsc%`)Q<8e%l$+ zAgSfS-o!NWV1h}y-AmejD#k%58zm8MIu$Ioz;K+zVALVQTNV(iW1No41@o3h6CxX0 zn=_W69b!-%Cu#~CFy1w!$d*r=JP1q|V|n_6Fb{P?Z?s9%RSX`3$*xO}7{$=SVJo1z zYO5JdjA*17NnMYu_88cgS_3acUQ3M4HA0Ulq8;7>;-y?edWx8#N=|@msibx2fr#l7 zY13Sa56%EvN8wn@iOOi{ri10F^V=p%rC9Zq*R zPUDP$;?7DIsyh^UOvRv$ED1HPbq=?Xs)UQHtLO_xG7;ORg4lRsHP>+k>m@4xqd{WsIe7oQ;8LHN%T+kgM}|6>?FwuJPP8^HT>NALd? zupMF~nBpSh_jdGjVRZLUL1RKfp+Q9@X(iL%s!1cT&CdQq`ux%4+N=D-N3rrK!s8;w z&dG2&I56#`#wfZ+DF%iU&U0vTpgt-rf|G%d#r=AtiK@-u99yG)O@i|^cFU8lG7I2f z6TYLeM%0a?h!oPI(-VcZ%SnJBYB}H3lrIFEIe8Tbz-Ut$xKCkb^ruZJzmmvU`1ccrUVcrP(66`OE|PR<_vFgSfYO zNL^|=-sbwnVh|$&{QXYtshU2TcE$Ld$;-)oPGbA*`;JD0Vu#1R__5_$;25_j17jc& zR6qG@r?!`))e_rZ^1w@$>%$K|T6bL%1t6;w>#*1dA(7|IcmEJ`b;NxSEtaGBuc5kTt{;31{HkWXuWa z7HW4gr!#PRROJsBSFT!Vn|PQSZA$r!F!i%hG8%yVZnqnE+jfd^Pz113nQZvBfflHf zx@p>QunwahL?<98VG5ms=Q*?tR1A!|Oc*U{izw*z zyooup2TQ{b(m||_lNbsm!t7N9?K=8Q6>O)-4%I2#3#=%b1}3^tpTzKD<0D)W`BPf+ zK*Fd9Bpxr=&Z^|dcK`4*gnK<7C+o@$H8V5sw6pl{K!sd&bEbydD zPXPwpy3uVoLx4r~CpE53j6@1S0++qmQ!t(&z$CeJWCN3bx4)sMWvACjptHWvMb!*uk*Mar&=>mu;rT_}{v0oS zS8Ok$_vN!5{h~*S*q{0HWserX&TWC}AiTuyZtq0=KmKk*D zBf=|VMz(>An(jyqp-R0&3;ivzQ_FM&t2tSlxEw>stbxI+xGj>(rX!)!#3KkV8n|?H zyns1$s5GLbFB?6os0}BA?;(VE`sok7`qkf@!~5rh?SJ@(f4EpM!N2ru*nau)*PMLEQ``UW*p6@5 zIw88#=eYbsE*KoaE=rM(YQo-&1}0Y;e&L^i%Xt+Q98H|XYQ9b1=dv^m&8ptCLW(Vz zvHgX=%kmX4M_q3Jx3%$X*bclu_ZI=!+2M%3$wPO5{r0_|Gy8b%S2*?PNo*&t%*772 zqn1HSzuc41z1Ys%uh=TaN9`F&B8XhlrZsEGkPWtPDA-yi*s!SWtwu6e;wh_ipiV}1 zf77D0KknH*Db>VG!0ga%syn-I1;q=stF0hHor|jgf_AsvK_^KwyQXcaj%~#;ebLQ; zh`X(r23<;tuE~eOrC$CfW2apR778vdAe1K6Ww1~c3gY699<|Bj(w`bPFg*ycq~OE&Sw9?-LZulivK+Ke z4c>r~C^DdU;t`x zEtGS@YCTak6y3)sIhr@J?)}B=hmd-}-AG z|M*}1)nAJ~YTdqrP^VB}4{v$FFFXVfje3#`1X5-}j#rCahax6~1CNRESPwrp* zw%q>i@BQxk|F`!)@f}aF@tUuA&B=Y9V;j1jM?d|?pZ?f~KX!6AOlWIZJv2$rp#Z63 z=!Y5RTJAe^a<`M)OX%j#0^7ORQA4fkI3s<|LVc6w7-nyMYc$#iGiaO@hjw2q_4 zsVZXigd)?RlbJZB`!TS_HzJP3RgxCi>_!b5!6jrnj0SyQ2(5``DG|+eGH#`+V3i2^ z5d=fdP(dJ;JN4XZK(iPRNT8CAY0q~NKVp_k-}Z)qc|sGT0F>}FMWO>>RYh`!fk4}e z)9!RkeH?DAgx0K07mo<~UyB>0o^)}xqzx0IVtmr@Fy=GMjKDN85ChxA5Qd(ZsABjr zDU_i01eZLHOQR``!t>85q6IuiF-tW)P<^$oLak%LA?aO8Q(-=Fa?YiXP(%2)OV0wD zDc`N{lDIb4jJlIGEOORcc89bnzVs7mzQ!_J5#&}XxoSNoLG^N zb3?p?z^se`5A@Y~t$KXy!&BJ)$xnXjqaXdqpa1!vFTr!U@q54bA7AyVZ$<|B+Sh)^ zoe2Ng&wlnde&aXZ``({e?$5@t(+m3cXU(PJ4|D(hUzf-2cZTlVbLqhczv<*_p4vXf zb}5oN`Ovdqdm)nH7C9dkNlQzaT!0A3 zdzs6e+~+NCdJF4QKl{`-zu}v&U%SpNG%V{$Z2$3mflXaL@eOZy!&4u4id%58xU=0s zv_RDc*&MO7rI3fg8iX$%EpQ1|`3%V>Z7r(rC^e0a& z#XXzbn?LydKghQzmXj~V_IrNpJ)AbhvOIQ6p8P%UdFIh~z3W}YbG06VC|O?l%2zI* z0@4>Xl#mO4iqY&1+fT|Ni&$EDrJV zrIs7KDZmb@^QLSp?=Lor1Iq34@D=wjvHe@WZ^Z&z9nzlh`hEbLhD%hzwFlh)+2wzxUC`H((1&?mRN{TJ8#31u== zXJBYwOSUS~h@@?FHnsK^s}gN0?HwhWsp+EC-8KgM+3v+`XP@5IPJi0j+_loKRP;n` zyEDWPtl=Qoi!n#VqlUumGRkm?MVr`2`dOETt?Xd~FCsPBNT?$UYXOtw6 z9pbD`MQ0fwBFdu0ut<0n-0fYQ=jm|Z(jgtKJ656)^-T&+-4N!45rh0G0|kN>%DOs} zQExt`j~)h-TpcxwZsxS@rk3A@e(|%O9$|x%Ap1wXpP^KtTfo|4;Hu`bH_V;L+Ce6~dpCD|d>65Vh5$TxB3=B7LNu zj>-gisk?D9v_7Hp3-Wcv={wnuWKKP@s1r42(zHzyr0HZZ-Ye%FgsZ>RQSftY+ zS_la=1rnmQbb%I13)K{qR6rLJ1yTtifhZvm%cvWAM%^<&PeXHhX8Oa-Y0jDc&>#4q z`CWVNFDyJFvr+~0X-hknFU)OobF=@u?|<+8U!Z^r5NL8|viOwE(eGXku>DAL;AXb^ zlTUs;l{yeSoV*Ayrc#HW{G>egW0R_yq*oqc`_1!G(eM4($9NwF#!sD}efE?S=~KKa zYzNq10o%X!wLjIT2(TT9<6a$`)GM#C9bm_LXNxelGw%M=um35t!giL-3fsf1EFi$? z@Rw-kwJ)}uZJmp=d5&jai%L3KT|{*gx>QK+T1 z1lYL-fc?Gy?7eCYnjW}Ksp}ebnsZh$mT$%i3-QttRbtf!Ea^1>b~S5krxC_>eaFCf zwWGrJ@VC$h?|KjOi=Tc` z&!D=VKJn2{FzYK<4X_=%UCkgo5l7(-)DOzJ`0nBLs{PE*KcgBN;qxu3uaTRFsa`0}Ttk$}_bWqy8ob7F97SGo% zJ?!t?YcF25dgqd@Jt;WoH0G^lvNT9SzgL%$-bxe}5=F*q-DG(gH@ZWmp~gn8xl&)= zu5axZ2Ah?wgN-Y9VJZ_jL(m`*gQPM^wd+C~)h{XzK-Z(vFdIn`k%EDZ*gJ>^u!G*1 z!I;^k9pSI!F%~UfAzxgc#-cJghj*&6Ma@P~Oh<7y9V!U{kYuvP3~Hf8O#LEJWODxPXD5@U51=!Dw-&el&L5hB^8|!Vr4m1qX!&L znCk$$iZ)T$u1xn^W4qc}^;4Mcql1YdeG6A&0`xo*X*D|dgt9RDw>}LCyyuno*sfo%)EWea# z?xq{NR%bum*h#l`v&|j5y+e>BAfIV&X0YMwtMMF_@&-&toT`4jM}n7p}B%po#{<7ZGy zhC-p*9ojWHiXI{#M=4m}D%Rt9>aEn0Bv}yTnU|`6Xt|SG%P;{RDM@f9BM#I%F^M5P zFo{WeCWt*L!RiDJlO;Z#Oj3T0`csTI*d1V}O|%RF?em0g!oc7!5Ep>B2IzDcjfjGu zF=rS#Bar+#$g2L;*=qC(|-siih{_5*cj7a2Gd{sTxDI; z9q4TujmGNAYQ04YTLDoEo<<_t^{1R25PRp3y;FmX>SaFhiBAB+ci(-)DqwJeOJL5E zPd=%3$9j=!jIf0ev$;BCd%Vz1RR*NlstrIYI)WERlM2j!`om8%>yC^qHD-R}-+n{w z$k$|gXv@u88MQ%A}c`qv(Kul{j2}*SL{1x*z>76?@4UG|N8y>SVsps-bxZQ=s*=0(ep%LMzXY?sco3eZK2{@I~fqZvzKjdqj8sQZqlD73tf(5HrLCmSDJfw*zMKw!e*(9 zk=Y{6o=S6oe6G1Df$NMYkp?vjl#{^438xLf;=3f`L_~ct;E{hMS_TR|5Rf6s6qq8Q z5yKnfTs8n3$<9cSnu@86r&4OKVCRFDWH~|6*B96L6QTwthYV0ugo0?vyi^s*Is~`F zJ14zjJXbMm3+WOrNQzHoD2h#V4I(z_GGh(IWD3ZL#WFcrN!3Uc14wtJT!`ra>>|5_ z4NQz0k&QuCDLMlbwW6@*EK%zeheCoTk500OpA?fGnh2FVh8tv;h(tU-f;0(M$m~1h zu?km125XYowo|a3pRCy1ZY-Z~49=D5Jt^8-=(@Gl%Hmm)XP5Tx9_(GKE}koNwkQeF zT));>z65oTR>K?_RigYXdcVNBK)W=C1Nl)5 zLqi=%s&!1=3%r-h_kQkke=vG8j{Xl}`*TNYZ_>i4`qE3k^TZQBspen)<UMBrk zDs1OMPhvZExZ12*tu8GtE)A9u;Gp(I7~8=s1?+064-2j;Y-g!g0_;oxyT*3xA`!EV zz~p11WDxp}=bA}Gxl2PM8Ek+24UYrwECHG8cMh>sA5%3nT%W}D|Mp*xjU6<$gX&`k z(SM$b?UcG!8-%f4?{X5`xdRGgxi(GgfRGyA)xKlcuKI=R_gz=;uKNXjA{rd_zx==d zg&AOH`K@BR{#j{Yke{T}yGu(Rv9G0}=a<{gugnjp`$v5-I&_~=I!fl%)vNj=)ku_A zpw`XCHuib4yqYEpwZ4aWpRR96N6&}fP{gNN6eoBQn*LSHl@x-27aSLNnFIwVY91f7mHKCE45cv z1dyoR1;x%da_g`$NOEuqNOr)bh+;uHxZFotf0Q_Hx6 zQiD_pw;ZwC6JWl?Iq)s;ED#gKFoc6}GzcZWCf|DOr{PcdRm&%)y>C|rrG@S4;$FVK zns2Sv1_#~s3rjoK)-T*&?rhXnE_HXWx3{i$cOOh5Wrl7r9yih05rHUXh#8WtLV9%N zlXm-)PkuC&!eg~$Oh0VIe#VG@$e4eV)Sd&|MI{W=9c&LtLC$@TF#!p`b@Aex@VADM zG{AOj``wRx_?59;?fCzVrtooY(f&up_P_q?|Lf65-w}w(fbGX7P@Ngejiq)<9^1k& zl-(`{;op5zV>{nPp$$vD{i)clUw^e3jPAn1!sg~CeyC^~YX_~@9in#oZgg_j!JU;K?1 z)p{;~?gr!p+cDiWE^)zX=m3!z;eygOhCLQ9 zfiZ9$QNn2?pA-!lkIiUf^g=5Ei8zHZU?8qxV~`gUASLwC$~lE1+DZug68DaIoC@kF zf$G%o3f>D#ER&2&h7^^OkaI^X%xX{pt%ut;=~dH|R&Os*&)W5Ug4-Pmg;bi^z<&y{ zuaH~@u*5Es-%TnL4%WDY#NheB*-FJ&sCBv$EOw#R*^FUD5>z*#)(KH&hyf?h2J}}1 z?IZU_osJ+W6S49NTkdX`2bYGT(k$*V^6 z$Bp>U8u5=BvG<+8c16pmx=W*)dNYq0XZBL5i%&lJOz5Qp*ah1^eB0Qr_r1-=2;1dE zx4FyhY{tmt$tRyqr8q43HpG+BO_To>wu9c-?Rx#<)h8PJHwx=F)S3@G^#T3*W3H=} zoc$!W!$JUMe5CDmfIUpeux~DxTU}k<+}z4h{Kc)KUW@xo9h3K6S?pm>hL3I&+o|I` zF-?ij^yCa>Bho)p8k1>O3`rExph zu5KW^E09-Tgr!=qOn2^>ULS5Ki(SEcczw8y9Hw~v%wY`VYaS-oTPC})X*SQBy^D$Z zR;;ud%~2M-Np4!Qv=(<;W}DhELl3puo@KJKk|+;EK#UOU${I6zR;0$)7FMa5(i?1) zdn@JcO2)4vMiGI5$>itF9N385C~-0vzy#8x(=I_TQr_AWY64D%NN=)D^Y|_adW0}{ zF~y?-j2o2@PS{Z+5g_gnp3rH)j4vDK<|JEcY)xdX4!PT{~Zsod(v zZJ&^sVIAI-U^{t9;yVb28-eN=;o(wYa^{#386f{O5SM1S!536S zz3S8$o}ed;T9dxRx{+WY(cNq=pDT8@nrjya=kD3NcH{E>uUk8J7whxgUB7?9sc&_6 z?r&{AP+z&b(B9?DAUUQTHN&MIF|p7Iln@x-SXAa39l5Nq{m=gFe?K^QgYqYeif{bG zM*JfIwm&T(KaZ|2cKd0xOk{-Zk+&Q3Z!sp}b+_yFhk#sO>XF^P^ZfHK@#jCr6vlSi zqxoOI{PHd4fA#XqWAoQ>F6cQJxj^9KUB%yeY>H)vrY!FxFC*qw*y3uR|E}u(W96OK zseSObDmNTUutmj7(>RIkh)1cL1LpAlGLdG^pg^(E>S$g*e|UI!`Hs6xk7V#RVP*`$ z)JI@DaH=REjjMcg{{#1vPX)s`%Uk@?6+-u<3;GYU{E#bTdLo|!^YEGf0UQu(Rb z1l7c%c0p}`ZlNZhb;eC@aM4@3;;-K0uiT|J`#R2%zx(D#Kk`wH|7?scO_Dxf$nq^e z@D{ZtH-U+-{Fz_-jGCVbP3jI1vcl2SmKs;7siBVW{BzH%JN7sK@o&@`mN+-{GsZzw zyuDh(ar8mhlD0bX2R|fy+Ff_w#Sf}~7Zn4~-5bga1e=EAD%HMPd_WriO(X^Ml|1!< zr?~CRVZQzP-PgH7glbsoEomH{KZIh!Q$zca*FBo*vOy-A zTB*AUyVy(Q$X8lPwJv14=LltomVtFomDV9=QmuWvcc6B8^Y_15HFEt!ysK7s&umhG zbTd_2N|yRDx0!FFzSU1rRpvs3DW~S!C@Bshk=b&FYG#=Rsa(c2I87%MiQDLiEPRdn_mjyxzxY&skKOrB+Piq z8PuCCD##%GPNWJDN-!j4UUT&>s?=V+0|}F*08@Rz?V%gL<93$Os6+$DuQqDUMzhnd z^}24MWEIP)ToI=#_HI0bf_)r59A_`~Hf8Ea9SJU;2pkl8<7Aa$fm0X}TN$w(h7|<= zFybKPL}*~s4K7s&R~8Q*?(N=JU%S*;zgS+}ArOeD9xyxzqatC7tBnNJ zWl7paz#%a@I95>a&O5&=uugf?`^MyD1CjPHw&OMxY=@Rn*bXg&-F}>wi3FAPBJVIF zKWfZ!Qk}@?e(ko57PLvKl{srgYVa834|Xhld9&eAXRou{_$jF zJCQRu-I$Mu%}neXvyVtk?a-7it)`1Zv{$GOAZTna?L1o9dwuJ|clYo4LA?_+tb+F; z8U+7o4AGnEyP>fiR9CJ#z0Jnv=AC!mU0K+HDnahUDlH)LsXhf&wBJ@E10TKP$KC<9 z>$pm_F~E*H6@1Xx4q-SwFFFQ9&Wq+ulJZPZbVan0OxJS~+pX@tvvA(+U+@+$t0OCH zX9>KkH459m{;$6ds;imxL?^1d!MFZT|L1>VmaiX*Q6an>WIh$!=MqEU(%Am{zxVs< zTr6J&w(|?Jzv`S94b--%gOgi2C*GEetnr9HEAU^Vu#o%5O6wzGUC(>nOW^2o8z`bwL$TYWd{j;UTZLhnEB5rN%tlwGl+UqXbEY&3<#vMvUBP^En zQ-mGbWq1{-^9H1&k_X)kXP%V|Ca~SiSFq>7ZI-fLoTP}ci%E~Y4UA)l;{&4PB8o0p zyda%FUYi;b?GFL-{*FQ7nH&bl11n8~_@a*YhrDuuS&NS!y__OitAbl0uUT5+&m z>MtWYkD8fNse8?qQ?9yXT@`C&KP6osFY0`fB7+Xfj&SS*J>tnCE08dD0CScC(>PTL zbfMrirB9IjA`yu~tFj|Q63UtfRWVR`lJHI&ridOb2G~lONFmx${H5j?)w0MMMkHkT zlZ5`G7ppDo)fRRsPF$q2?7{Vo%MUK>-BVk?(%ZeGv30qze|LTBn!m6^H^(4?tD@)v zr^R$fo;!h-f7VK*iKRzX4Oew?bZo))U~W%OwFTQ}ULRolhmPP~P+ehrm~tOQ%Se5_ zkm;`AJ@RA5G*L7R^nh7t4K?rHd+*zBE&Qb+?iCvZPdxhQPX^&JqvKDUHKs2F^Pw@V z=JUoh^Fc75Gp3o@hI!wZ-ZQ3mgL%i8-j?|cAis1J5;;l0=i|oAw~ua=;r6f8mM?DH z`FgzuR0kOpIIyyF>3f?8kCoT&Ev??Cx1sU(!FCW{9}20rQoT2yDW@vy6hVvG*h{*P zHk8p0LXKfOyT2l~lQmB9P((#A*O9iEP5NkDPSED+trC!{yni>T>#5lU^{0K&<<>JwY@sKzJ5MZ zK}~9#@VMY+*shKMXuqPE3c}k9t;2NlAl2AO6qfAnerfHl;`%+Mjl1i+SE`%myBF>g2WxLX z*V(aZ%ekdJzqgt1?NpYw+e=&2v?X4V>bp<}Ko7JAOgpLq)S*MenF@52PsftaIzFiE zQNl^AcZe74^9ry@c@ERbqeozQMPz%SYm#0w<5h@|bWvY-^TleDij9pbfs{Esq4;6( ztI}(bScKvn;W`d#?G*|?HL7b{rQR|cbYv%yvgFkfB1TP@?9?*VYJ)^1{F^v;DXk@i zPjKK$WIGY##6SjNkWvT_w{IXXK(%W^UtDTJWh|)*hPD8vxrhk_F+cHyO>IL8BE-l( zOYkd1=VuAgq~slH0Enxr1O$DDb;EQDz4e2ooy&_mSDLHmYfF3WtxL6y!}`v>rS-dV zy?ya~xs_~jfpg+KRUA9sU4&%8dF=LB6frY;QS`zrGPXuXR@g3aR#Q_A!S?wd9{NwU z=|2Cx#{Bo)1}zgZ-Lc+*_xXQnOkN)W`w-qi<0qf|7dMNUd__oC8*qeF>WTvPGseM; z@%FU1NeU_z#KW@bgw*C-#ubY6*Hs3gvRaL?JzSM z-j|jKwN^jdI#=9y0Gc#Y=n_k&FGl-q$FLo{UCnw+0hWN1(QA;)o1q?D#3mw|n!M05 zP&8As@!8CflQ|XJsR23{C)%wzpO)u`Nn<$l-*7n zkFB=b!<>xTYz*7gN|wNgL`_hJn|Urtwd?Z2Ij6Rjbm~#Fk}fV&I3}GZpmEP8vK^mk zt`*Og_3o-s+Pv;8UW%8u=ABl|?W7v#GSyw+-RWIQmDkY9OBNOjgY%`O^Hf%iyR}H3 zqS)Ou$|sITGO2_zlH-#`k{1^$O6;~c8KvemY)l%08HEAU&bwaO@k^NH`C{F#w46dK zUv9yQ=ln{kwQTxrQ7y}N;kuJ#mD&Z-jdVPM+nWmm$MuLEH{}Rr4vy@YQ|-Wn*rg_M zJFSgf2zIa9D0YcI;bkc!9dA;738~3)BUh@#2zNwwFKSZAo9+hVoVZ7DlR_I{xWqsb zVK_sB>hp70^29cxa6pcg=@q3u0%a>vU$kt_%jLnt%uY{H7X$q>AUzh36SN{y0CNlr zPy|l%qbSMNvHQ%Q5L5Z~TE4sEbarx!=bgnnoRxdb_O6ZiFbP&}m2NTPmhJKaVKxNA zD9>q>DvFfZk%~N0aVtsjB@`>Et(eK2JjIZfiT$)-yQXEtk*cwMELui;RBvLsN8V{L z6GbBw&CcBH#p$UF0U+;!%+Egio41MN;muxr@vG(XgX$n0bK3assPT!Y@v*4!@d*Rg zSHXK2+ZC`YYzNpCwku#ij_s2K*M+d1Zf^EFjJY=$6GPjzuyudy@J3~0nBJ~#U^tcD zTewy~`yKwq4QuH&wev^jz1osEz5mUh{TqHSmTHYUH3^sFRf3Zx&W5kCk>>K(rPcYM9M%v7~CQ?g|}xjR+5vej=;h3=c;`VFCFT0anGUU znP`0Bb6;S7+gskYy|%4Zs^3L#%#TQKH3a;>lRjFXSN){=3ZMJbbBe{Hzfda+y*4(;szqdvBtKPM(Cow%t?gW^Z`{$@xzld$#c<0y4aCohY==DYNxmTSh@>RTg&xPQ z25W&P!mcpj5k-UsNqb0j6-7xP(1@%wdql5Sr7TygQ0eAKcg>d&c%iTBU+*A0?||48ODZ(!FVK_0ur~`0F~h5UY7K0jKTjWk^^O1zdN{ex zz^ZoLCRv{)l1AxYrsuO>rAg=x-4OQq#I)3^rt&Sd3Qx4vz2Ge0 z<1F2Q)GDqDzPMjsqHYi2l+-um+i?n@o^&w2T@dI<;YEt6QAv?AP>FFqlT1XTa5UWP z* zmAiw%qqk4OkEnIok$KX1Fk(CvGkzgvd@^DD8VwLWfcGsS$%hs@cKfZ3c4fEk8Z*1b z6wEx>zNm9ljhXud+b79pl?nYKc{QpGKx8_p36NjBAG;lFcUE3wwvW*=Y_A-tLxc~2 z0K5emf`b{SVmt7zphIo5eeP_n-7_0Iq>Fl64;8i_sh)jQeRSiI8ybHA(&0*?TW;Lo zENW6KSt@K-K198e2IhJo8djQ)kb;+`iU-~?wZW;_4k<)L#9Z7ap-*iFwrjiv)mh1@ zX{eP-o`sdq{M<8K151L;HMW1_fBlC33fQY`Hiqp$w2mW{gM_d>jIp{eV4Ht%Y{#B| z*Sp_!Gi)a&M}sZE4!kpKY@?(A??OzJ04w}_>Jbezt7L~?Pki2=N;q-F*0VEd`? zuBjNcmtF?CVHE4Mq-xAuRASEEuGQR6dEoXcH7Vu`8?)|8#9eS&tI=#dU0z8y&*5V= ztLrJZW7SqO<)uuaL&RgT30XZz=IVZ9HCJEHR#qse9kuEdoK0k@g;6B9g)nalCc33c zK%{seJT6WNJ0~|YiPQ;8!UA(p?xL?^Ap%1#D*C@YCtoGiy51dRy>g+{$`@;h0wd&` zE4AnakPOXMmNH%q5;DnbdzN1!(J5bRJEa=uisSK5+FK zwavoHHtTJ!ZDFm@Tav<0rZa2$$XRFd1rVDN1XzrXE!kCMFu|v!QY7z7iAstX!FfQu zi*^&MVw{vsX#n!J>%~$3q0hnRb z{o!l>YHR8FL=4Jeh|wW^;r>+RLPecC5M2r?AGSy~@#g3_Y%x+)0VYTke4<4*t z_`c#k?rE76`M_9SWBX@b_>6{Jh3yaB_t4F-U0LtyQ0wRR>m8~pY^Gc1qJ=f9b2-yL z$~M)&NFxAs5itN%71n{V>LAbl{IeR{$KYKo@N@-V>RhIbX5bV9QKzZ)Iu+aFP8DI& zm|4>P&0qY5U)0#HF_u&7mB2d(#BNvD0JbZ5XBoc!Q?Z>~QFR;@P5R~E{<1!-vYFLV zpO+J8q)$0wSd`76Ks6@5C)W@Vydw-c+WW~_IHCkXSZC3wsBEW!3Kzx?Hs*v@z4 z>|@xj;9X;Tw$w{|b#*`0*H>+@9aPtI7~4U0ZMp;OTwwt4!^j!6JIgS>TkhODld8P2;XxZ=+FMMy`jlASQ8@ zX(=#WU!q`lf_RuYQUVgdHsb;@xbgjBfP>G}R7fB+mauGxOeFYhYE1*!xOd^$3Ctlx zhe!qqEssQqfeDK2&?CTt&!;fmDd#aO$Ci>!i5R2~e$~_bsPY>k%Zvp>hVqz(0W)tOneHQapZQJ*lg-6X zJ#giJzIOIcm={|g4pTHYBjH2T`tBLy{EYGD0M&mXZhSgvd{F^=(D-7)_*~5R`H1ne z6UH^E1|{%5hV5fad&p=XV!JZhSrYw7$k4tq_oy-RZR!?r9}zp!w@abALU_Hhy8T#w z?X~{)(7~04nCJD&8B>6e5+HRitW*iPp(QF zfr9Liwo-(QI=TMhG!!Ajk`7KCP+dmoGLPb9FyPfTAUyXed>pm?-v`?@r0WL#;7M!; z;lsa|+8AJG*1%4K%TwJ)@O#Qa=Njvu~rAmLZ zy>`C2da<&&Tj}q))j^@L>=e7X$^tNM`dx57U7)DPqE!FMqfA)0eY}&rCda0P<-=x> z@<|XlPD!F;&~gN_U{OFVa*LcI1P&fjWLSJG?P9&-Rk~us<5%@cR<2xW4Z2GkHYxm0 z$t^Eg1$q$l0V-CmYC7nvx5-*^im>{==~ehM-y|@mY8UHXr3Nq)Bx&c1l+TV^c4cAJ zZ4R8~aYjCtl8l=wLnkJ=8gnPsuVs znz~T7m5W1X6Ze>;I$jz}UZ5RxC3h9BCKk7`)8kRpE9aycGYa?4)~ZO_ zvHKPLfiriG&X*H$%m{kSffN|xY1tAbP&r50ij7ibOEl=_)YVxlWdWl^(Us zl;>tWCzDPl0&I^$%d2xuO%(;(=iYpCY`+ETK9V4ifEmrq9EW%Os>XJw`rd2%e_Txd z?pF5?fcHx~Un%E*B%o*@I(EzD2f`#gbPa1p<~`K<8=}U~0qk+(mlMWsj!+$=9fW88 zE#`#r*{JbM#Q5-paYq2}XK&&{JUyVF%bLaH&s>+xu|Lv1!5orECg+}5(At0(MKL-R%=i~VyIf- zxy2Dy9;C{fZvT#0iBM0ODEFhy&M^LPdD>`KG4m?460Fd(Izrs7Blk)^OT=wO5gmnz zEe-i$jf6Cat5n;cT!z1vm`BJE}7Af_{@HA>Knh_0lwJ{cJz%v)@em*myj zAQjHjbiR%O55wWt+LT;`r73kbEHXH#3-5;nlrxNaNS~5RN{qW z53q9DH1PpsfyBw_sWc@lV?ZvHI|Au4#fX*RBB6U%~c3IKLY zcw#B3L=2^4XHmFuJl~`AD{HXkF~#-0(hW4eVo9_YoCsA`*#dSQc8HoyDRgyWH1Jk% z9vB;X9}IP_7I;_e{TUSdRc92B6Q$!?sbn(7S7127*g>6Qa*|xOo`F70?4JjA`^cjj z{ZV87yGN$GhIh@nD+z)zX67dFe&#R{eejO`KW^v00y2Z}=T`m@gg?LW1vB-!5yI~r z9DLu4Fa91&y#{K1-uS5zwf?!J@!KO{SExP&_N4Iz=7jMZbO90LLleeTsn$IOjGyX4 zJ#Mt0itWIA2-~?)1aGO^1zdpY=$12sH;;U~1SH>VItlM!y9Rdl0?!qqbQAU{4YbhT748=hQ)t$LMRPvG=9#VAtn;?%C&#O!2?{TTq>ZEIu7U`wpy*~YM)#pgot{1BvU~B zJCUuD?TFG>t+(A=xv;c%y}xnL9>8`Uo9dnAwR2aq#a^SoNo={9?_}~lJKx9_TF@_U zxdpY7E_T&E+8{we9_m6yxEY819UOp=?UH8%8a18+gfe)S4u5H z-%A_>cP&x?2~_Vglx>2?D8{W~GT%XP7_~8x;f-LQ*Rs^+h>Ca@B49u?m@FmrEEAvx z7=wTlm~EgIJ9!eEgnI#3Vc|WuY-NjuLJd9!(;Q9*a~ohsa~C~e%4Pz{!p+amWYX|F zB#b7^jAc{J6lwaAEgins!ncs%lrIu?gYOhsOa4lEP2qUw>+p|PEn1WBHR_gi5*;7QdLD)=~cx3=ci*Q))kN_V$0xY%C5S|1!1S|oSK zqziC2md-lm4n;*xBCAPCb*P|Mw+l@hOWP@%g;v~aJ7qvaCjHQ2v=f&o+y&7rBESV# zZ8e(ROxCk8^(~|W5DKV3-4J<*elM&HHhj{pC9_59pPDYIPla546~Je+BsJzrEr&my zI*1MJAIs#);iT>upIYTkj?B|?gF5Uax^hN@S;zyzV@t0=C}h+sAYVpL6gP9wL`k;< zK}2d2Gc353@zIE<_z5E$F~R4M=}nP-1h%sViyc)1JgZpsAS#~LbUG~*2vrNGr;C22 zR_)BsCs1&~mIlxvV&=eh{vj1i`B&Vn5h@^2N-IkVEyv9v>X}TU?lr6KSa>Pyc|1|9 zH9>VoC4_Nu>ne+TgcT8Z59z{LNr@r~Gw5ru$>(XH`KU~Ha9%1aPvc^pNhMQU8PTM! z-+(3>orNyAXT&}b!uG&)kG?A)+fSPAC!MM~Q}wvc3|a&dHbWnQmuIV9{GaaF`=dhg z%bG1Wr+#}-{VH4ybGQ1wfP~)(qSoI8L<8(`<6j1pi}*}O42%MH;bDSVEcT=jHO!x9 z#>Yz7OvLzUdIzZ|G6ja87WWv&_9eb}Xq}4f3fNf!@@jj$JUn1Aam2@SUgg4-2Wsv0a=p*f7LP{8j(M{` zHMRrnYSwmp)T$D)n>puGZy=~y>n^}-XGmi{jd5nSzWWcyNMDbvelHoR6-KGx#(3EYlA(% zzLT#lXGa$J_q~bnvP?c@AnGgG>Wb-BGZgHwYbih;qum2$OVJGBE4^%mcSI(Q?bsgT z-6MnFa!DPQn3oWLyu?uI@v}f5D~#>A^e`NxV1&ZG^}FBt}my( zCebf3%cnzOyhD7EnX9=dI%eq_s!69Ttb23WCPAq_fFL3W9J@pn(*vHer;{-!aWC;N!u;}FKV@qR_W4Wi(8KPY`XdAzWq)J7+epuwwZ5v`NUc{vY*J)33llFa3@I62iF z3op@I;2dcu=lUfwvw(N#J5z>8O$s(~KV?jj&Vu=zL*9!(^-)F$!3)9#O$OXME&~E{ zN~Ln8*=;QDLn4jN0=9PpY!Ab`3UvRF5&H=v0+pXDA%&Tvn3-3C_sKh^r_Nv8 z`tnZy_m89Wm+ZOU*kNE_E5f(P%%WvY#0*|%Np26MmwFIgh9T}nBpUuVvGQLN7ffH zFihZBm=jj!x7wbd@wxb^sRZ&lUAx*$+4&p?(%{)=hDa{CNZOD44$C9^X4#G_FV zkEiFtm3y1Lwf%!@pgo7;al);S5-AU*$rDv5W-GO{>m^_g`6QiI2Vn_HP-_pnk$HP- zn^}G2)+ylCN>B?sTTSHqv0OV{3c*njb)x`KaU*KUHS4JC@OpL3xuidzE=A4Syjh-2 zP%+9U+%9J0el0`55>0^-qBu{;Cf+4pGu{vk8Eh4d5niRBRNMqr-9c%vnwI_|V-3O* z@JCHfOr0?%Xs~gFJe0|4)~J=LElcRpP{@-y4i~TCU9Dk=gjzVk6=}CjwK#NC03x@x z=pC>&uOyX(AEZMSF3!$FYJHyFG4TmOmIo9Ak5 z8-@7C#fBv?LK$mCbm*PfDp>?4UiEUpQ#2 z>=%LY=8$~T!gu-BhF4pF; zAU7U;LeL4_^+2B2rc9EX_W=GhuF`6cC3i$$QK}vh~!r~PdTT) zS?)Wfc8>cm0W%dUC}oQ{Sb0jjLg{3S6o@C5CT5m#+QP0waX{w4?WdfwB;-cp*=&X` zN7(H7Ig?i;lg9HHi>1>Ei@-&q2O(uLrpc&SbOvx~M$iht3Pue~qT_f7k>n!x6XJzu z2Z#n=vE@xf(#U>FIl*H~C_CX6kp8CcBiia)*{tPc5d=WS3}0-4aw#;-<=4@Zpm zO&AxY+|m>kM#8|3=D?;g!Dtld9s~BkXdhxbsxl*NhXia6-HZGvVDb>nMzM2P?_q35 z>=cc-lfR}~L(i)kLgEC6I*IL1Jn@9ac2XdSUj^G4i}93J8|{3l%A-^$l)*!(vq_Ew zHdBh2Vx;zf_Y!sY<|U>}CVd$U{57^KgjXMt-jc1XN9_gBIAT>1gEh;;S6*$P9S30y z4`VwxrgDWepfMImNFhiBa9T;Ll(33Uu@^UqMkC6LKwONA6o$tc{8iJG6i)GwVwUg* zvVs?iNgmrE(V7H|AQ~c5|cL-NZ7_w)P9%p-2Ayd+%4f=dg-PZDQRsKJ|d=xiS_zaxqQJ zW;m0STce@`KVtaow5epBmU2j#sWuVdl1PIBSSm~MCQl{dC1QF|6xDQ5hD^IftI%-j z%L$zL5GkM;cDvssTZeedB*5;LQC4^B3zV57Q^~6?6wt28RS1tHtldMr*C)fYW%~7K zreNmkr1wPA1xlboQ^(RC4q0q5Xc8WRl-S)wucQfM0o#4gCf6qc`=2ePlUb~8Y+#a% zY{!D8<_*Gbw_S($LJS7=90K^_EtSwl@tN`meHLNuIj4q>3>srRy%{1A<4GAy<~+Wu zO_`OPLt#DGcES^#TrL(rdJXlh<3Weep&|)RXJ{D)M|gWl{vtG#CmI)kl+%Lj&p5mX zF!@}7yd$_!kANN1UH-%(!esIa702_kt~WYGfbEpb6Iy1>bSKtbtA~9=B!3ZaAF2?9 z;2qc(X?Ogp%6cE;-be60d39>){DsXgAFTa>ITg0Rk6=8XP>8M9Xgm)yFkw_5QZY&6 zB?8?Qu;WyPc#j(|M2!zdjDI#^kP^FWOl=Jn2BxJ%|e{;UAr_xkDD#TvSpqDao_MH$&WLR?b>MP zuz|t;*)Zq8qa+z_0ZQ{|@oV$E*6N+jtzFO?DGB^6hzO;#4$mi5akKosULLf^{fgVZ zy*wmX)Ws`{J#4oV9!LhI6>hWg zjBzHwYM~j`o5nLw9|7q|SD-Om?E;vKtsbCy7~6q&upgXPHw54A$cHdQU0!3x`+jTH zt#q@%NVQLmvuvqd860%>udiHvZEyb`=Jw{*^3tAD?U7SYc!oNfT2eJbV>rch)JkQy zYs_!=*DB3Leaoc)E+H(bp&BB z-FvuAxuvLqS>=Va*FYIKPx4fW?9>j0L}M0y;UW?Bnern2COOp6q^K`)4f6?yPho_B zUo3C97(Z{Dh)_~G!!nCS&v8u40>BeCi9(jg!^dMoe2bMO)zsnfgSD|eqBJw0E7*%Q z#Zzh77CjP)N@NSgQ*Jk zCR|2dnaN3P3~sCI@ICC&S?WX6{mim4{g9+ANx;kr(_IVy@{xqlXbmwf5qT2c!}R-) z7;|qTI?>KNer5M-OO=;Lq{?1>$|)c+Z4E z()zM72?GPlf$C~LVYE-;V|_qEA7Ntvc9xUFw+YrOiJVd4*!w%Wfv5aWGCoWh%h?EO zcxKYB(HH0Pl{AlCsSG;nedr)`TQ#uQ6|l2ZYk1W3#{%9fg4iRe+jUl+ z#P+mX^D8Um=6X6yCN*l_8DwgBsZGk$%+uh#NMe^mxd@00HWQZ}V@M3qF4!&x{glXP z&>>1RT3~OVnJ|d`V!ce__Tm+W=tNIdV#cB|V%ij*W8~A|5Ns^AI>%(mx`3sTF@boY zZc510N1z{GU%MbeRd(LWR|y5oRk7h$Tbq{__U~FexW0P%HRaw0QR400d%VU{sXrvR z^j+1BxHYtL6}D?UtaaCmr3JTetPfRtVYFYlg2PCZi?rRY4>&(Jt=qbxI2ryVMGMoN zrT$1YN^6(A{y{2-BI3ZU_S1ep=`ULK@yoVrD^%G-2P~ayqfU@14TxRz8_SkYx@Z%Z zCD!aoY)@zGTAe7tw3#&tYp3T1x*^*|fIZC`V%-T;p|)uT$R(+Y81h6i?jrNZvzyM6 z5=0(9Hb3`@!39hO6_nDIrIg>!l$YZs9@t7cM-XO{9+q5GyS4ypmM$(b%!HZ2@~3x5 z(;#Om!iiiS4qO1R>D7{3ulf+zWEx@V1U(B6TEsH*d8e3&rZI-GiCL2`_`rBN!)02+ z!^GqAn4CGo1~M!}0&H%USsP6?#Tiy(Qa@{kLj zqv9SI?Sa$`&o*xb*1ZhWk9?_ewuy;ifbc!>t4>}NDHxF;7{x;>W=6w1Wjk0S$xYN_ z8bw8plQYVC*YF<1&rH7tcpr2=c6s+}bsJ_z!}aYnG^8J)`U!JgEOrI#$Po}=18)!U zK5x8x!Z;t&^3_Ir;6Ftij6~E~4D}$U9Z1KKI;lA;xj*Ih62V>h)_}}Ar+Lf_mXA+N zF_Zf2uz%?MQx2wT*@ZOhVu}%4X?0__yTAo}3lqT3gUZC?h0+|VZ&p_PHE4V)iGD`F zBpyS;P#kjXxQ@@M&E2baRT?*qtKkhw`CaU^s9BhqPsOqbD>c&jRw~!PP8&PmZT^|a z_o%;vE&&cBLN{mTk~8yy=QDG$X@pag3}&Mw!1B=Y2GM8n+)9Yo%#8XI0FgFhO_5!V zfcwIwOiU_sUSzAq$j6ETB(S*hIiz2EeQbCj9b+u8+vz$aIfWgicL;2C=@n^&yF{ojZDG?{2Ig zRu*?~`Pt>6iGJ#lDJia`+SRAk=1RG?jM>jSsF1`qGm`-RRb zNldxg0CGD4x0bf~UHD1HcHvKp4Ap8G!xbhW;}l>ou-N5!M2Q`&5qp;o9n}Ggu_Q6= z@K_KfkRw^Ukf%Vl1%m+?QmMc(&1A9QLutd+Q$~-C6Isv7qjKPz$Pwf!X++u!lm_eK z1fdoxA(z;zWZQF6%o+@9WL?OL0yc@;F)5HOR8a<82Vf;KWR* zZ^3rL7P-!hl_51XaG}l$wnM^*!xWVmtfv&*J4sq}5?JHObfQ#g`K229CtyE&V}kKr zB@U8scZ49Zw~4orQ=js%0nv1VXu-tb?UOE8!Q~+rPdO(HLeVs%u2Y0LDR|BxR~}}b zP1*>Wi6SxiVj^)S@Xm+4K@?Yv(z~7ffr2$)8VFDR4kX6w45DR*0%9TU-}uu~l_~x) zgNB6DK*a~v`w_g4@iQTWpSUnJb+Enk!sXpR$VK5^0P0%+dl=8dkgh^vl({Yhdtk1g z1olsp#2Pc6j~MTtH-2KmI5=*xFB(X-OFYbDqA(!9{-`mvf9h>1H2YEzth0*xT(P&A z@tTC`N~CVaBSMK{VNsl?j6CQ0(JG3DKTeRehaEv2D?O?po75_ZR%%T$n#WFL z*?J^3_Q}zo06PP`WGw2~w#3l#Jc+NL(V>{c0o^hFv--_8I%BO~uT-tNwOXma)LdEb zpFO{H`R?ZSp6yYatd#T`RIH1m7MS+Ycuab&NXlcVoAO#HJwLoH zHHT$Nl9y^7BdLxq6iq_2kSZ(^Rxvx5m?PtZV1;=i!IEdF^F;1nIy*(q2Pq^oGil2a zYF)^6YWrei%Rm?q27NK!1)s?rq>v>kgrxZe?4p=iF|pX8J_%0+;N5)Q%@=s%!q=eM z0U?QrG$*#a3<{3mUH+VsK(evDFzK`9UZKBB7zQael6+KbeWZO zyLa}_-m`S!!PfeP&K4@rdk9;>RF55M>`#rlW9#`-lY3a*V7nR$f$$pJwbI(jeOUvr zYZ=M#S;Fvs>W*q9#FYLN8Ah|%aX|joMy}k0l1i8Qxq^>}ah9JbgzYL*fE_)%VB)qE zx;P7giNzjR=7LfDC|JCVtuWrx$S0a&y<^P7OY=0_jE`#FEM0dK#eDu$%ydP zVt#|YnAc9uE3jN$JGZj31%t_$!g6iPbvOmjDFDuaQyDSoc@**W2Q<5w#6YhQ?-Klu zUIB-s5h<73IfeiUh?IE-jrhp~NZ z`9=Qu$W@0XPh9xeXG8 zaH`TxBs0mZO@xfFE{rYU-fqB6lzO1!;Pu>CK*5Lgzlwz0C=uM~8ERk7&U$wam83F-<90b)^sNNExP9j+nPA-x{ zmJ_J2@L&*dODtA8?XPXzYrEA}cQb94YVGk%z?0`4TXW+zl1F*7i6{HyN3Y^lJ$aD- zo@+pFo>{CN-U2b*10J4M&}T(Kb%WTL?KVx^+qndUF^M>3zINprGr-PX z3f{596};bl_ub)NRsp***P&uSbv3j7n8mId?&0YS%H^bK=mMXs5$Q~EkJnn zAQuUDDmF9h2L=@sNYqL@77>`@WR)OEvFyQh%zZqebTdIj?#b^ioe$#nBAbaDHw_6u zd`=Si8iIrqmPif6(||TU*#O(+xC}p83Uwo*?Mc$Eq~xERijzp3JzAJV-4H5ISt~}n zz&qn%b|*6RfTKWLDYbPV1VKNG-v{O82NmwY7^JfjSFh44Cx=B>u; zW5@z1c)zss``rTE`>Bxr(uh$%719+6bIe>%7{bFSbDdBb1?)Ig(V`(4Dq{TPyz!$G z2E+^Fk&Aa+ga4OFzbxu$*H0`N3fx}HuSsEa0&5-5sV?9YbsNiQ2=Poo>*2ol8w(T* zqr;`PJK1)TcvdL7xabVQ)yzi`sa_#d?cng0jM9W536WeCor=h2&;0x|y#5lA8BBV| zcRu+}AVL8JD>;b%h=$7dXGxoKLTUzQ6v(iA>xy5TQo$9ziNX(WtYJ{Y*d;xD*8P$byJXG!>Z<%Vh~RGAY$`>`Xm#C46Ny zDI8YIKm4OVe0MO>Af`o6oSL(!>4Q&wkXePYb2@!$wzH0>8eRDSe_YgN8a0&RM*)6#h_u z(m>o^&2T|Xd_k6cBc31i2=N?p6V#n&`PLtjcuO^_oGEq9a(_l)WBR7?qqAN=546<} z#8S1@t)s2~{PeGU`o_aI)ck?>ec+Mr5Lpkk47QSmIxLMuEMh_gCF4@&2`U77h3p~Q z#!8?xo{WqGx)N|3B74YsC$g;8S|6+(c*uxJ)oy$N;tde0oeU<20^DZCbg~2}T8>+) zIr*~0E1=wqyVcAR$WFkag*!NH6W|HFJGRGb&rpJcU_djTW+J-~Np~nmeet>>L=i3s z5x{q8#=!HSq7$+106ShOqDko@I3nmR#*c7AF-RDOC6pB5l@Yt0rMRDjo`taTYc0Yx z2)-nEgRg`oF9aqT2XPJ}6Va&p0zwV)3Ilj&DMdx!D9+X)_paeRK==d*|B*l?cnsk~ zX1rAH*q)j?yV`s9()L$3doTM5G-1Y!b66KOW1_1WJpYaC?C0`{mx7s335mg0*XH^d zu!HIX?7{p?fn4Of=8d;c7<({IXABBX-D<*B9gSINO8c$F{@xWV^I~_+%9pZb^yrG* zd6Yoo=v@@5Y1>E3f}aMtXHY$w_PCim2zbEZ+a14O@9kGw>u$bD;R|)jFg}CohZhdj zl26BA8GBEG{HfPUfku76k(oBccGXR=RH&|&pt_#l_&sk_GuRFY0CWo5fplixS(X61 zHU+_U-A9ChT?05!!;7qlUzQ4a^kwsv*-O8edOZ!PI~;H_0j`fi+=I+JtQ#3!M{t4N zuH6o*>w|;*O#07L8`rK~12$PQu>sJ2>Skjr@4Dlzu{G*X5dP$PFj>K}It7UaoDrmD z24-2Z%f-<|8<}6F^s9v;6}BJs3qi$g1@EA`!tlo*dpwNotOV87tUD17PFuq}kgl;^ zA+1`fhev%8{gcr+clI3ct`MFlgmMOIn_Dc^^Kgp|Zt>9=s*i0Mfh&pNY$Ci8lb1mH zEDfk{BG0K0jaxT`Xnex7vQCP8emhTgpX2zL;{+qPj??X*?R1xmm~A!%nkrHlFJoiC z(?P&m1B@h=z;DoLU=#<&vV=*BjT|E$Kmr`a9e}AmHzTq*g?hmS-bG1<5PHV#gn?Q( zj^h~Kvtw7zpKvk|FX&`S#aI*CpIU_UG5900)SP9B+zhaclYm4p3jDD-o>L))sP2TL zRvcCdLY;{;;03`5^(YHosu${=N_Uy?58JQM!BL%x5Iym+LJ;ADNFj&mA08Z>yq;hU z4kJK*$vCqfgiZd$2;m`TM*Iv0ydXTzR&?Nj^wU6o?u|iZ)%B|Xj)V0tUIgL0zgx}z zR(eVi=|^~;Pkg?b{lZf1OB>zaIo$lp;pWRSZ@hed<9C_Y+Fz_YFPXEyrU~|u#eNLf z_VM# zjp!;9PKq0ka4g7~Iia_Jpa>2`yd-nt+Ca=XN(J{;@6zh-cbvWYrp>dDX5CllP;PNO zr+!3$z^UuM)s>*SA_Q38&c3|nOt-UTcpGKphu5e!15E4+Tty&!K&?w`q*(I6dl2h_ z>CQuba>rBGgt7h94Nk5EGf%F3b!$$=c6F%mS%CN3IX;m7_!}M%+wE#EB-EG{wj)6d zs)O(>;d3zB)ly+Q%NKt21&!^hHv!xE#aU`>N1{hR0JrlD0PkS??R*8jjWXBupMU=b z(3K&r)MS|vL`_i(g8-QX{2qS^R{<{qBO!Xc!jmuz#6rNE&Pv9I^;+-Rm8-4pfXGGS z!m-Xn4SkZb2K-8nDZ z4hd6GJXB=@3T_hLPW(ldLR8`@uv`Q%vDJZeHAB=8?gK4E$Hk!-w*ufo1cB`VuMS;F zOqkH@K~Ds>JAO4+pu|bL++A)Cwp&Y^NFP@hR-Am1U?qOje5o|p+O9Y158QRf>mRzW z;_ED@V?V{j1ThjSP<+XlxM0lvlc3z{aRXi^*|;LeyxG59k^KY$mTF{4zIt zxmkYKx%J<=u=RV)2kTz}#+eV+UcRvPl?x+0U+Fy4DE&kw|0AiyL(H!AUG2(yw-$f( z-1_e@Z*+gFWc_+-Qc*D)*nf#g$PuuE?Vm&q7{BVA@wN$3C+itTHT=cAN(I3l4{e5( zZg*|HzqVX$E~V{u*6+E+jf}Tg>YNvKJAWyjDM68?oCUkORcW_Nt%ZEGh5~jbKQNtz zq*?PSn?#226Yv8N86xthmQS)#_;lZDo6%ySv6!zf=JNSQr`20pB=YK8J;_KT4*4k%;~XRoc4OQx#kbfMJ;zW=|HMN;Wi+*Nc7Du5OCUrdp7*O;`16;$d0P=zHJI9fOco>PAWEc7Z#+$?@=j>v^D+yhaNbra;B{A%0NHv-m z`#SuIxepJ6t&V*zwt7m;^=QImCVV<=<&q}Zh$t8{%*bN-OH`$3{|e2*HwCOo_+@Cp z5P|?Cq-lsarDjU8-mUl7+k@@K!g_NF+0PZPSVg&vxcO?g(_R`peD6Is?z**VGnNi_1VVoxlaq@y_zZh%j z#KTqp?cLh@fpO+e_5Bt9M{?OW#v*qI8?19gIXGsquVsb_Zw?Ruz>ev&;r|dk=M*xLrd=W-f*@Ht8(p*jeDwL3L&b zMF>Vln%pQ!R+8}DAO%lscnZyf-f=7ztatvTEs^O6XpkkCrl_$+Wgm9WQg$JgVbAfi z1Q@Qs9AGEtktO73unYprM%{rHR8iaTs-imXw%5(d0^*0{?;v31wO5FyPCDavpwJrd zv*zkNNT*Er3G?^zjxn5cD34E-!eU9uaMXpYE}U33`0(iL|DT| z`g~B+s;xW-dc96lg_y#CXURwC(xXVPw$a6~^e*8>sal4$c3qLGB`k!;38*EoA?N+lxzI~yTCte+=9~3c>E5MN21Q?Jz)0Q_{G7pKEP*iuKoUt#ijaV4JPnZZCSi&P{0TyiWR=R3BNlEV z&eMXOTap(Dg_le|kK__OIYbSz?Pj+#=(M`Xz)&Iqnw)nLBN?UzYKK>l7m&ykNe`q~ z2x4QPZDd5i^@s$SOdMbNiMXm-sZq@Nj3CIWQ%~=_yyfCZ3g1=LhHpnG0G}Q3j?EyR z(|JPV1=~sKML>i$&SLVv__n+PaO_cvgCx@gcQTLw&zbX;22_mn0=Q6#?kqQ|z17Cz zW_z&JSXc$vbA;c!xiq~SDhZ9s#k0HLe&6-)xPH&MwUq)YWsEe4HBBbh7JJt(9h|&K z)=W%b{VFqlU`$>UGhX7-SL&$cN_u%vnFN zVN9Z7rLcX7>IM=46Ke)ZwZ?$iOx@_#p4wme;@-+{4Vs@Tnb7ZwiV=%l0Xx`E*bGvW z_*LhOADWs#F1P^aYkI&@MHMAU82NUV^ivvHyxgVkrYoO@Gj3}V5tfS;WkfNQYjw4 zc|vMU62~hVD|8_#iEEPW?eyIZN(yGEWdY=~oc~-4kFt%0;KhIZDAYv%o7D zP32=&C7JJ1cA3EVxmYGe1}z& z#6;mM)4+h|@n+_I<4qCM1?9bXk{}7}7O`IDqbD_Ilzq-reG5xwp(3+ZB+4?XWIvqp%&HGHtC(ul5D= zne=hOjdG;~q~Sr#`);X}msrPGT=JDj^qWQ6fCMUA zQr*)QED~i(DxJkrt8eGaZn0t#r(LSo7uHb1Z!WHvTYa}s!REIZQJCq1pYL~D2fJIP zg5R#yiaGnz{>DbH#of$1)?%|(E_haYa zfXSbccpFK2((^x&xI{D?r}vC${P^Lov}TB*C*T-_(1#c!=3g#=yZcttu{x=zWqV_+4xAj%T9$E^mS(1YN& zK%|rck>y5L%ypoP$0CzWW!;2DAS)Vr^Ys4o<3!7oU;)IF1I4dwx>9kBvIP_`fYs-R z#{5Sy1InmSD%nUwlV%}la6mdwrPK^yl7~<_1V)rtf0j*r7Y-EP-#&X#ERiZwtrQE* zMy=kc)EYJ4ckl>DEEEQ^7G>h8o8~tXP8od8EH+VAh9HODR36&l4mAUUWF9SWDc1@6bozl?iMxLB3y(w%-DhtQTyh~4e&&@^-?<{ z5GTaiSL-#l>&!9o`bPTtQ^O9-0*pPbr~zC&Ys9zEY?V|8(@R&ChW zlN5nwyi2xf0Xgv`#;w|gYf}xh&4C>FYBEoedBHr!sLs0;FIPrFQ7k4*Y6&};Cl-ZA z8t7&M-m{X>gf)<0CFwy}H}vT|9ej#q1S}J??|rZEPA&@))A)pE}FoJu)Y zDuV5t9%d+AueU12n&%bsg&a9m7(})!*bXETPRK}@N=z{LJbpZ}j9CEnQo#YT$)B}t zB*KV#MkS0<0P*f|bSC*0WS~PV(GOyYus!c49KZVF;Uzf0fEKJEcbgCwszS}f_zmBE z0w7btlaIl}*a7QBj6L-5MW2VhBulM7FPke=+Dld3!F5Vd74!8@xwBkqEoJj13GBzK z3&+lwD-~}yE1T=f?Pi@0ZFR87-fq@ByRx)gE_=3lc60gc=Ek5;Vc$yBE@w+p0EKL| z@YU+}($PnSZ@O>I6ZJ)7ds23#pP0O;5OR1QiZ1xSi?_)!2xQ?<4jhAjjD5jILj<4 zROl>WnmHgP(mx`c(FFhyi_Hfj>eh1^Tf7{_*uc{&BmB61k}>)Z4% zVw{lsf!z-G!ho8wC$^E)M@VoF1&?I}o=Rn`AdQt58{!cd#BOI}#x<#v*ba=V83Yg{ zha#hIkcctSmL$y;Ppx`#j<7wTZm`}H6mh0%XSw6l`_XK{t}ZmUF49?23|j4?v7HLe zTx#eEJl2c_hL&1&65HvNxPkQ9dk;QT-`K#Gz@HWs*~IZXrj7v5ORvq>IChTU4`sJY zAY&j443H|LU1588`&-!UiA+A8&LbD?xR5YrccD$F$NEaE*(mv?k`#$M&2BH13;#cH zZvtyccGh{8vvPUseRp5u#*MfUci*>n-+lYbe7R>sZX*@eqhWn<)S7-M7>yNzkj zw5NJ#GX^)tgBcncY$#+3s)2T+8HCh;P%~}Wa<^xY5G^!_9vEw^wpyrFLOoK??~Cug zlacqmDw~l;6BQMCUfdJ=IsfyW|F?NHf7EZ~^NwHf1$#0~8IxF=0J+8m!(cnqH@M1~ z^Z7KR2H1{AXEtNGjtBKjJmB!%QVyUU$^1NXAUs&5e+Zq20uvfj%*Ywu5dh##22}#u< zd^^|WLr4JuM%p>~@`w_gL~>_FU=^U7h^|d0jv(A5jLyoE=Qb){CrM91M8OLNwd^v1 z?9RY;o*;>Tcf6QNJB4C1ldr}ScD_(^%LB`*=kj%$H+_Ky8_X6+;$3pxs^?c7hcG6& z6od*~ShbCaUTzKxZZ)3HW6LMbsINA-Ft`A*c@z4yw1>ad+tdf=tn;akb5G=pW6$> zc-VN=w;INV!cPX#X}(vy{x1@+>ttO(bs~M8pFV_i0=d<2#)r+siFCxAFQ=-HN>(3GFefhBuFFp2s=g6Zi(z_FW1kv9u6T&WAuC#DZ zJ-BnPH5l&PeS5LiEw-k9e@kKSCz z%=MC(#(Gt^-S>K9Y-lomjp$yuDAT4la@J}hh0uV$Coq4-ZkL2I66Oy19|~xdK-F%& zBcIWSr}X(E)m6q7T&^$&}WT4g?FC?yWCTarLWknPJtt&>%oR6inU z4~8>=fu&+AhGfhx)(J}(xa~0`IFZ}UM_1}bj@n3)haz6A6}vle;t6=Y`qq_r*2lwoCNV*3NESgp=Lw(%3dCOdjLNMA8nk3$sZLh|0V~I0@v&BU+TJG)k!YRCYci_>qtP$o1pvY(a7*VE}e`bq(fBK`9z@l5ioQWd2I`kS{wD z&BJjO^5hLlce)L7!tHGnm#*Pe${2SuKhl~Q_8Yl9OEPKPJ{mQWaJ0L1!sJ>7l5<#0 zACW(qT+m+R!TeMBIt0vQWhmGgnu#(?IVe>84-~AX|N1Ag{aaT1k zhG|9C?s~nF}$~2IszVB>zUe$P&8uX&z>luTqD9LV$>U4VnaMH1ly4WX+A|p$$Xhi z#|1`1r5V}MzXItehTs(RFDWp?g<$0;fErT1P;%0F96;y`^B!a{1Z-DYMuZsQyU6J& zTonYZP&u4yc~RchfHNZGGnm=+#=+D6^akM*(W@33!=&ZJPs~4z?f``~Q;Be!p-jKv zCS~Z)0+liS^)$9Kd%&gw6YS2`O!SUfS^`Osv3ZzdJE)Eq6{|Tvh{5OvyrZI{)tLQX z{1;zjH3YlCb}E4IrrPO37~9u3aJZxC#hp?P&ZO3;mEGd7Td7oB+8s>}jMFn<^kQ_W zLg%_=Viuu$t=3(?QWnD(w*F;03^wBNfLU&3a($YJ_qT zUT&SA+Y1$dc6ArC7QD?1i1icZ8^a-3Wy4a?8OFH*9z z{iahSfp-p8Ge(|ylI3CUPLLZ;$Z(1B6iy5qa^?c@Yz}@?!rpxZ?Q z47*YTCzO(jBavEEI&a6xA-?C03#rHeb|;@_Wke{p?~Eyn@J@SjtGiy~deNWy-9cqA>u&G!u(i$0*-|;s=;1d(qzMd5(#u#` zWpac8BCwG}u};BbtP5DJ3Y^pjL#NeoI^#mM?RQ4C!Nh5H2*V4j5KHF^Zq2QBh!r1& z!%q>3x{!A(Ff%y^?e~x-CvF;e(82T(ww<5{Xjd01qL}{R76>Op$DnheV+9{XyNzduSPsN7gJi6P zqsAODsEo{C0zVBWV{T04c2QR=55xNc9bgGyeaH<2fCqv-NG>YWla-@HdcSZfTJWvz z4uO1$omFUUTeSi4ep3Zk&u_3DNA%N#Dqu*DlXts8=1gQ;};)+z$n^S zgIbk3S{qsomQGqzfgOaue)YO}E^I=%MIas}i`j|X4z}|rayv{rtIF*dNh-D*N`yL? zTwvv`$D&|0HzrX~7?R-sYrsgRH-L3aF{#Jl1*1lZijj(mEBA>-5>RR zuh{OjA-(+yjm!dnU@I7WXvQW-bKwy%9?x*J16V_*FgAy+eaHf zM?w`FEuu`xmN3;3pC?i=q3i&xY4fzbOP7+QLO^E(ZzjP8;TVl&F;gyvsEu16671BtA z1g^+txL#%RB+e_9N(9Vg2O}^VV=+8fqEAT@RmLD>LFO+^@u9g0EeHwKsaM*y8Y3CP zhU@zb7f5;x-@W1R>3cV??o6kn-m~}bcwQ9{z}$nxD66q7$%sUTm&k9T-bE@SJUP0* zlwFSH?Tx%m%Qj#0(ZY$@BsecY1AbB)@z7Y$qd#?#gHf z2&L1ZM?hUk?_eBcee{a@7t%gNO@QzgHj}@x+4*O!@~@^>F`F^){=MfOI|JU)NXOIl z^_b_@yQO+}>(;ZjSE)~rE4>NAwV1fBk%=*7m7AzOmk3*jUX|O(NDfCx+6&?-EY4wK zmq>n;-j?Mx-AaulN{JMyYOwBJMz5OpY8YEKwhwAsdnwx^QjJq<6FA6jbVf(VoynN* z$(&Ji-?S4C@v24NDiOM| zCy@-D4C~Ph7mc6hWDMDktd3}?<~N*SL&QYDeU(Wpf;!j^o>O3zIk1BK;}_Nm8%0(K zzfEY_e0^GMZDyPraJ}#d^l&a+sCGf=M7Dswj|mY3FP#oxLz*(!ZUTiFu3iucNi&m$ z0>;P;ya!fiJP#&eXcQ5oD_&93OIjHWR8X{{;w&?hD5R*2gOOdt`UYfX z2An}-<(8VQ_P*yeh&%~HF53u`N^$MS#|cA8I3LV7c_*A1>7D^1n~vpjJjI5UgZy8v zm2*&}5IGv(23v)0cj7vA5hWOVR>&rH7AJE7K?b>9A{%HgV8Eqq0tJLVeH-z{7&b80 zVdzK6A~%7tXrb9`V)28bnkfl*F6>JH?8M6v`-w#XR$v)TrBlE0cLD z?`VzK+OpWTb^XfG-uC4E-}SDSo_(t1dT%xl?pHeIhJE}VNC1dfXFfcfRemV!|5=t(b<0`EjtKgntrK9KSf>@Jt- z%+N0vYD08(l1tHT7d<~)stCs?Vjh0SXCgeD9)nBc(#7qv_0i4tKVxmVitsAEpAGNP zcqNiNgW+e+f(<0Y3pUuioLX1&xME|VydX;v^u2vB? zpk*=)@s0y?ORUsF$#!P#nT7Aclm+C;yZSc39etXL? z>Ypyq3jjd7RDf&{B0)SNF$P-EnqYf4j1M~zSw-s&(^@QDq%sQh6izFT2t_77%-y?p z%@ygPh?nM13h#ga`+w<|e~H2~Pd&p*0nP-EC*5jIV<%5uP;*!O#3i%>yn=*4i9~(R zhI;69{E`C~4Z&hLo+F`pPu!MYdif=Tz0d}jVbL*krk}vu^uO=x`a|B;Zd5dDiIfvH}xLaa%T8^W*oYQHwjqL2;jb;9L z$%K>7`J~t5!5Pxd#CEYOi!dp+NMyYpwc?3#CJPia6PZ>tQ6b*}AkT0w)|`Pw5y~|o zT^Vr`2?h4YVB`@-f`u0a$V(U*CcM0j)m7#$9;`|(JJ}jD1?K*d|7kOf2YBYTT8&D@ zzj}0V_xhFhzVHH;OOhUtjD84Iq!e7mZc?}@9vPh$oD2-5NJdDuKp$n>aaHyUe38 z6J#g^-kHlI7M^kZV+P@8h4l9f8?R27v93CJ8(D2H$@ADE6d^Ze_e%pX}7e2U)ivdQz{NDc7u4uTbwmc_BgPTt8PX zH@5bhyGO09-J(}5*J?0sXP&S%nKXxkVzr84SqzOnYOrjMR?ZX*ex`A7(;Q_GrdU9Q z6p4^)lJvpw?Mdt6GFl=lR%~t%)ID8Fq;tsOE9)7Fq8&xWlfh(5&ttHiq>n2R;5`fc z!pVrKf68GFYc59t4xGj8F{DHwu|#=+f!j4%vuQ;sg?B;tggEN~&ooV@uACFA0S5F; z(OrelVS>PW&K4LH7(kg;D6ot8JvUz`kG8}J2Gf~T3q>E;pn~D%PQnGDVuDP3oB>j1 zBVSJW{d}cQ#PCR=TB!CD*eN+^aAYx-minh|3F3hTwdAh1#D^W|M#M54wNfAE<%bUp zm&1mR2H5c-rH+yOnY^G@3?Bus1Mk21Pk#|R8Mfh{KJ#fgHoS;W#L0+*g!~ZOfnOka zH3FE&VzFMw3$Q(fE(pV0S^!X^=LuswCXEFvgXLfN5?V&%higm>2<8il(a3UA2$}do zO`0g2rP&Fvlc3zh$D>Cx34)tL7mkq6TupZ1XC!JUq1+ijp+eL7tnJ`wc!|-{whPs& z&1D%E!1h8e1-5f6CYPzi29AK)3_}5Y`$pC8*2t(;8_cFX;W?0mk{QGa=sK_+ax4;$ z2LT0j0)L9I6Vl5*UkvI~qVP`~9-%oT_W_d>bjKGV!5ELxl#uD9(QIH!!3-guLW`G+#))0L?3N1jda_8Mk$>vm z-M#Hu$*&THW+Q>RhZy^~aWR_~5|th&Zyuoz(t*);jacR4Vu`ec~k9OSgL9x4;t@U$mozbCKX{H^&zO~;!yw;fPV6d7hxlW@~-`X1-UGMH5 zR(hjAlAmidRB$pT5RJj0+UdHjj#aDY90#&JV_EqU`MDCHy+6c^f4&edOiT1LwC~OS zDC6}~ZZnqm1lvigSFEokY;5|W3zo?|vP!s77zRvbV(>F3rQP+bxJ5xE^SI}z`v(#VgXxM2{h)Yz(B_ zR$q-)7)Y1b&@_>MM8dfTR$=1$gmMZ(CWjWS=wblj;*wIS4hDnW-CdX&+A4vIY0?Zs zU@S5@Z-)1Py1*{bSe;BVS+cN{#>Ex$X(Z4x9;`*jgP=!yA|4BPHX()-tY)*7EI7qV z8-vVvvY5>J@nmTuZso0NCWpC2x9E<&+Rkw6UVnUNFu66EJ?M_^L$|lc&fYsV;tul z5`?)5eG@(^RGuUJrHeDy`r!cKf7Q1>vHCcMk(;Mgs~i|W`$KHU+7V+#jZSfT)YosyTUub9>R8sxlO;w6!}sq*ezUou^2~skLL|HjuENG&{a=5jtL}uX76}#UlxaCSNUH#V0Pp&17~8{N zfnQDBW6HD{t*_W_M0XB1a=TVIbBo+=IGHmmptVOmfz7V|8pd`BQHub&fnF%%l*w+F ztJXYZRLjm6abwP5hd1W~!`P0t9Yt!sFc&$(ja)B5P9}mPip?V6g%!%$yhofC*r;!? z{f)nVLl5T*a#y@sWKNMwV`6ZK*Ismeg(TJN1k=P@DxFT}(g^c-ZD8e?&BUP-;A>!6 z3b@u2y(Wg?5)4PI-6RoSLgprMJd)NuzgDl{vrWw;P>zT`-aMS}Cg-U|;*KNf2^uTvwtcRCB>PNUQZ32!BS^$M*TYa0}@ zsDJ`gM@$Ma|KfdRBu8m_3WNn`kxvvxhSptz&lw?Zd0B zgDd2`tIYOuIFGjawefaq`>;Bmb;euW-ovR4r~1OLeBp)XU(jO_E+E(oZn@kP)*Taf z#$_QhmoK>;Sg-l=%0GOCRsW!=R-4Vuy~E*bPYl;1SfOu_E*a4szf@QnvR5OpBW_88 z`@rQEX&L)=@g2cz2JMWrJuyTN+C~IFR>B?QK*6sk7nCvmec$yywY6r;t9$?V%tuC4 zhvJS$qBNB9c;01cRAe_!Bd&||p3Y+)fi4wcTiSVG$;=y;X`%#Y0N&HgiX{{P6AZ_L zEz|}nQq9RinVqtq|Hb}gPRM*Rh_6e4M1q#fr*AvX~Jz8X?cyMU?9nLydzUFoSExv1wYe0L~~bwTyKNuSLsj*>7%xw`cZ~ zH3RFHKmYSTr+_F+{CV@!nFY?t{b;;RV(*9Rn0ZrpC*^RPWSGWsoc;?d?v_E3LcP_* z*1g&E>oo=|+XSh2>0K|G^I%PZ)vftcW@umd!V53FfZktsdS%?3cp>n=wpWG*p4%|L z`y_4yA%)H1Sor*x|NLKAIf?Fsa?a+(;{)0lsF5gfKw%|=JMH; zl~2M=5|jpF9N8OK!ZFG!q+EyiV#%_bula@Ppd!3V0rH)|0z#(Oe0wr!Gim_WxKD$QbGOf6X zA0yLn$F{Hn^&H#t%3>|dt{>znSwcamzwPtVF9nQwvySUq1l?G-o zL@f8}-JI=ai%y|bE|e?K!tBqLt5~CzJ7d2$@ml>trJW^|jR)!RZ~@y*iU;C8@sUVu zl(W5}7=%FE#xefEqPTZ(gJ*eom`3;yu-)u@?|a{C%2sVewo1D-A><2FDLOlHoy_iW z7mWc*NDUHuN9%_hk~zakVFBS^EhIjA8s0zf{ttw)-EMSg0EKcRWw{vbETQ*H5yJ|D zhZNrkPE1dZG(|sBnTkE*r@r&#q7VNaUAr;5`9$ydW_|advb9%WA_m&;9d(bcdc(=X zdO=CC9eCIMjI1;{=u-Gi{73MAWy*;R3F+sIrsi0HJ!~)C9u7y_yS45xmiI{lhz(?_ zScwVC^bP_TD3&6i)I=9fotpv%oR;R z5#9hh`*AI22<8Kcrv=s%*+7e$A%rqS5C#@#=X2OD$O^9(bTm4ZC`jRpVc_9pgvmjv zN;v(TlX`dVgLvH0#o>#=HFPlpb+X%Me zJcSYgB&QC1PqkW}j2ez((RUEn?XtsDvqH8bz(~+Aw7}^N7y7%b+1ett6Xy4vKm2~QEMtlY?Zh;bRqflCFc^*{FRn+C4-rD} zOUx!Vvc#(q`y%XQ9julJc?R)Es7xgG0M##n>?m!yaYkbZC~Vq^9L0FU)Icowm}$g_ z0wJ+Ea|Pt~c%{~#5Z(eI8X+1<0 zbNKb^*NxDwJA0d(z0Iv;o)|LjYBYUeX}vl=TtTIhl^{0EW6@TC?a=9BJQ%?jN#gGX zBnbszJSN%=JXOh~oh+j9WOSp^QebPY`(_0ULit$YA0g5OgK~_Om`JGl5IL~2!0Br} zYmr)vH_S*Pk0^P>a9k4KC4?MStZPtkke9qY96*N9{Y3)D(j_Qx6l4s0xCdnU)3)g5 z-l#?esf9xzHjo(`Jl`P4S;C50^~&^0#;s+Fb8Ocpgv4(29h?U_5J3wz7V|S)V$7Mf z0JbBp>$f&ve4$SGPe4-TcD5|xpWdu|CboyOW19o%j4Bw1v7KL&S)1<*k5qI@Xb(q| zE~XiSQQNC{!$BjN&gvP!cJl~Ep}NU>}q(qn`V z-GtF5XJ$G8r2%B(eHBlmLtH~HDmW$7tO&+xX)Gr1C?AQ!2j@cA4(=vX%w&t0KSVPY z@(I@0`BE8+7K|2=QlJeJNxaX;Mf6r=);N*w!uJ^eO0^a$KkPS1{)xMNZLrxIZ`a4$ z&B;!w+9q%o6KV`sz-oeAp`lCV3Is$YUZOsce)KT5b79^dOeyxwv0O<)z>!k+;-zBi z5djroS8NB^!`Kc_$f_rId)vL;n|n9zwg-KJx-eT8{}&WKpqn&tdLL6 z_Q>Sd?4)4&2<7I%mFfKlAiOi&Y+t@s84b6t9uIELRdsrl86Cj(M>!dpe~ATrCP&!e zw2!Ih;-c6dre&zn9&cj(7|&OUHh>1Fy?=)=0*L}nwOH{cAet7>68sHCBkD~U7~qz` zFOf8CJX9@Q9O_Oco51@jJC~93ACB**PgQSqah}dum=)!jX`Zg||6&hv4o1nSU=iTy zTyz1I;RA4gNRgdBvzQFOO>8N__SMAMwx)WNX+PnU*j9$AG1+~bBI?LF6{!`_gu=-v zw)4fqAKmdizyv}SQrkY!NYYs=iL-@ol|RqK_HZ2t z_R+WtV^(i?jb>$gYXG)r1+d-BcMxiIr=C-XB({c=f!4-0MraUTP5L1W>xO_kCYM-xNw5w~FCpJa z=K*O0MJ-Hzz2Kjcz;xRDIGFqoW;Z#~SwtJ)T=B(4*tl->KYv<&WasnKH#;qYR#@DEyKuXkUK=Bm-swZq>2aV=t)pqx!bY_J z)qnGExf#=0rgvU!Y#w06C!;Mh#vow606T+M$N-Xo>64%Qe*6Z`AQ{+B-gkziRcnj($_(`M}5 zO0I7XqyVrZz_4X~{q@&5iEgzHEtw@;pN7r%HT*w6z5eU3zxcw7qx^!%5}ws zD$Sh`To2L+d(LjF;Sud2h%JDYCzeQamrNgkf6l;7VVj^PH#M#?Dcw^ zyZcA`2RGu0wBH_-nnSNWZj81|tx0#bn=Lop_N3Gt;L}m=jh)sgX;<@ZwN&jLdxQT+?AeSwy#z^+@c-6XgPpM<-%E6wnp(`8zIxbYVn z2aU=dh;slp=)0uKM|&wOq)dQyR1x0bc{<3I5!gY9|=m|+Q<4|_mdQ~ZB% z=t_tftiOV*VEeth_ZHy&@{#Z@5WiZDEr}0tw?rk{-#Ver$0bs`)1xPo`Ye6n% zQwNPBF^nLe(e0X@bZ1s>03#(`z;;%1|5>lQktyfuvyH5cCe$3bP&mGNOwv!*@P3SE zuv9^)fxE!(Cj8Tzl^M=h^}*k)4#=ruAzLQ+pdvZo*b>}O54rc`J>AKE_B{9WbFY5x zRkr#o5hWGU0cu3|H@gb^v0z+i59}052Ltk)qX(+t#{wG9e>%~P>Yr?x8lx-(hs>Tc zu^oUnM*dn8=hPzB_upzt zd*lzr^}f{X7aK#X+9RBMzTC{%J|2byzLU&EMJMMs;+BUilX)t|cI0*y-I2h7CPgQD zs98k3{Ke0|@z-y#g6gb_@G7yhWkG0HxqSiQyPL;@>219t+yz{sZfWy@j3XP6zBI3(m`7-MQ!UOO3?#*o;^gP5{fcRyCb&gm@P;)6fal|}Z zf8~ilbzRJL73BbSo&~l<_h*S*WS8w))9dy-)44(cR5z;u_TTxReuuY5=jDayu`A@~ zB}gn$>P}*qfQpaihV${x0SCMH=rB18Y`s&kgl1Ph~{IhLt9Pno6|Q6`)&OSxI`G#@sTB8xwN@G`6CX zO~vs|&TvWO4*}*CpARh3W0-o5!d)5+{xvWDbc)@;UOqBxR^Xjfskh30Wq0rJ*6pXBe(?5tPd;_?#_bz7Z&~nwt%2R>qbhA|9{K%Q zsWB+lM{aLs*N5f)tT8#N^tXzQzS|n)+$wS7aoX!6k#6Y)+U!lIFnyWB%dPR&;pNWkG9ime zbS@TsCwf3&Q|}OXr|{FC{d}RYuhP5Y90Kp=(#3KWS_V#r@sfazsQd{1iC$Ho9c))r zRM8z+Gx(-YVMOA`5!cPCFA!ii*bc&LHCSe0yVIm7n9J?F*oVN5 z=pI_a*iL+Mt2v7m%BW!VRJl#rniI^{RH4Rfn}GJXm^-Op3aEaCSSE*oH{5PmLm!s+%fiYp5d+N(_H zJ;)0E>D$5fFfD`2Qmy7egBMR!%m&+)ka-Ji=Zcte>vb7M_32dbP`QXkrPvO{0gb=%|8QlMjg^($Z1?ip@}ANarr)G3dvM2T{cnB(Ek|C68Rs4xBN zFR}jGum0LszWf#K5vr;A{onijTX%2ijTLHx=6JiaxlN2m=31ziFD$R=Ps$1CZLkG` zNbmlSKJi&a_;h+|9*u(KwQx&^F=J?8phe}qoO~#6(67lj|H^;&3fs?q=CkTJ!&Z^) zvp@Y=Jr!nGII9!s7acvusJioO|MqLY{V#rd-lGE{{I|dO+t`Zh9$LFrgZe{_o3M)H zOVvHxvpz4cPTtAKlag&Y4_KozV@}R@!i?J`YW$~@+Us|{0q*n;XTbY5^?cbdtdG`!HF?}x2cqqB1$T4Mc^ zv77t(o4@%Rv!!5`lh^r8t<1Js_2Ed#*Pwd@JVVP@zVsEd>al1)wI-Gi$mG~CyOoDJ z3#?VY@r`eo%PkcC?_lBdOkVUP?|JWg^tAu-_x|NKzWxofhHl}JqIq@-^ua&+*MG!H zLC?na`t^PI<5tt(*_$+5HS)RWPxK3O=j@@iuo_jGxrQ0?;5-Pz0E=PHY=$|ygZ2w< z9{n2pp$_q3*Kcza62e>(K>PMT{wxn}uB8R7$?O{z1u%!q0A_>u>UhnI>%6Su!pY2R zo~4>b0-IeZ`?&XGY?+68cS^AOgndIWKwbjmiFPLLu-NvlujVodqDtbON>WO4n4rxh zwCF0a%Ls-P~ z;aML%^#EWu*v>$SQ$!>n`iMuOCkI_Ya^Rf;sLreS+E=BZGK|4?2*h~a%6bp=aooS6 zI$P<#-~6Vax-LPsH9bG}59z>%&X7^sTLE@f{R#%#>9Cwu4~(Y@Sm)At(ASW|S9b#J zT7V@0;W-dgXW`X>?Z5vAzt74!fp^*iD`naKr#FCiZ655=7yf1l|CfLDm(=;o|3kJc zr?DMQ22^JYX6ns=?W{_k>ruKj?Ln)t1>Ttvn?Fs9RfIQxQZS9mRQ5dbN3Ro+O80zA zY&Y{hbB1u?Er8wJhCT(9CI^1%CqKn40qkLHXMmv9g&*0J|KczHLLdJ>e)B(S?^AeJ z`jivixwTiY?RLXE+8E=)Tx4)zlS-YavYMAxo* zcCA8wHM>~IL)1$aK5TGMwTj#9e9{qq7R(46eOQ9*8kv!a=IvC-on-qh!c1Xjn00E1 z^znitf;x6N%mEtZ?o3BR%>4! z?>uPruJ%S(+k>M@d&jAf-DxZ5wxM8&WrwC9&_PQNGY_SGdETS{`VEC0KptR+Z292# zeUSC_-+EnF(=PyaKDSo>&ENb@kWFz0kfE@I9+-Y8mB_KZh!Wl{H(5kJbJDVefUE`wYjlex>(OR-K;l? z7V3#|dp%nzREm=`r5ng{aTcYYScYw#k4geL2?pIV-BvDjn3)(MWJO1Je zX6wh$wL81H`uNc`$s zw}-Jkd?%)?^`~1Suo1Hj{qxqXTiOxATj1SHY5;kSerDbz1ynYCXi(k2J94{O^om-a z?t|_z$YF&6WP%75IFOZ&z(=uN;r)Hz{XShmc)m4+4A{;VR7bDGmimhA)L(dM8MlcskM2}# zM`&jS)lHvL>u$D&lj-hUCRUJLZQ9a<)4)4a4Djw+F7S@rt`&64n1}@(iYKSpX!vu@CNK`b z>Z(G!Zozidb?UL0zY;CPoQ<0Y+kte2_YeNS2f6=W_}nk(QvmG1yH+MrceP$^b(`dV z)IHi$xFYXOrFVVjx;66Hcx#W`t60di`;%;8ZbX6H9>#X0cdm%UuB+i>D3I$}FZ8AV znj*bcBOB2iE*HS;DUMS40N+FS)}H}}ltXwR6(sD%uu z7^XG!kOin$xgCVp;f$Bh70u01;C}QebZfAkf)XrTM71#H*efE{E@RS&C=DMiLObes`*S0bh3fV$oJlopb*?!`g zC!cus$s5nzA0F+Os+HbwbnW)-&FL0FY5Kh$k#y_r4nA6Vox|i47!U_r0)3zkkT3_i z5*B-SW|0Ge=%ztP1l&T23ZCM&h*N2vh?kFUPSta4f9#V#rt3>Dy@ZXcuBcS_rnZd;~`5I^dx`!b^SFB%5Tf)svPtF9EmJd0J6`AfaxTk+A6bKMKs)vP# zrL&(WsKUnFj**&*&$>lzrz$+QDx4Ulp#(Nb#?dtCCHT0&FHaFPTS;%k7yQ&GKXvEk zd;rpFZ?>iNntR5sDf~{%ehTLP7YgAaAdI(kJ>&uHhJW<0{z!kKpnVE|C|1R7Zmd7* z!vD8hm2S6gyJV}L3mYWV=9Z|yR$DSPR@RodZS`HB?t=rlWq8wYMI0T z!N>mrO-{E)F=`I^_{TpE6zKi4lWU=iH@{M#dFY=|DA3e={PX;W?oaqRbc=8>^F?V5 zu$_g^O?-iR)$R1a_GPpl*lMQWF^E*g)W?#99H%c_OW5-7@Ji zvKYyrQ}xR(f;!V@rU}Umyyiv5H_VE*)t`7oP^ho1Sz6UkWFPs)2=80>1N@J(EVBU(?GKT>@3W}47_Ux zS-^JVnn$KTLZ%aZz-f*3B-%dNYC(6NxvlmlU@`(fnU4r)O1=Q%UzwU=Y0&IEUFaU& zb6X>5_DeWCWC|o-BNQ!Jfd~V-P#J_b-NF21kbt~m zyKVt?R!k1G8cZS~{IslQ?Z7*og*^bf?mrXWN4wiCEH3xArnC9m3uC(+etgWgFsqSN zC$s(Da9VE<{Ax2>m@`P!4~O_ukXLv&pIC23w*Whf%GJ6J;}~67L4$1=+ktf62J4yF z4y#3oGv<{9tkbI)Jk&qm4BL_E5c0^}ed#2cF-;d3=O{&WJzV#I>cG41VT-7S;sPz2 z*~5qCa2DFF!FKbjDVSK1>@m%i0{0AfDt_u)(k*+;<0z!R`gySeWu>66Mdgs!f<=i7 z6>*JGD=!vES9t&KzXR|3K_fDmd%$0*-fZ@I^-i~rt1T&|^qvj2FSO)0!}bQcI zXY{`Xy23hGdYx z#Aw32e+_v#OO(_+1~8>&yN$yvGC9D`nw9uTty;a=?sQ;ZWP))1ar~$7+6CY-!X)Su z?ydxc9Zh5^e zf{+tPoX9~Kx5u*Nh9+Vd=B9Jeap90N|D6?k3YKeY_Jo1Fybz~}w;^UrTz+21*sZtqRZPdFwLR`CLf zpLa1jE0 z0koW3MD7%^c+oHtzX<&ZrkJmCIwapOlD75uw?8gUv3!5W~@6FeD5+CxnL~H9YrEbUebI3gsjP@z>xE z5jn|nUMl;Ot)t!jTQ9%&eee6g_qNB=RMAh{<%H!xG63dayF~X&W(nMf)nBgMKnu&8 zkw~q?-xfg23alkED<{zx7oLt!!#sLn=jlKB7%D3&wtwXBeMGUH=BLvY;0fKz4cUvK$O*P|L|t6L}2F(p%*YfLW!_&IDZnC zhR9=tnzZX}uRp_b^3Hpn96$N4NUWB18u@ZBnwA_u`rw>IJeY{GixCw8#7>lY;nQAR znoE^tXR?q#dh(g$2hWc7XQc1Z{p#EJEwP=?O2`azs&A*jB!#eco4d2S&p&f;Wp8t9 zF1PEkO31v$d3vKQyxwZfZfCGrAbg%bw~>2`L-Z#M7cQ>;ErvWjO5cM@q_hnrc4!#` zWd_)(%!~LikUBU9lbMT|3mb1MHk(0oxfS^t39s1L+_KI>BUsAV&e->;@Fgb=vhlr4v(ibj*W{zJaxTIkF(o$rNRE!MWM3NDKABG1N zE8*Lj4G{KKZ0OO{in3Ph>A_x+=7}37aVnS3#CC~l0ed3G(u78cW6d6bQV>sOWewYL z;y}U$!NAmdec~SAcf(29g`uWpm+Fo7V7S@q^&7QDx$JYp)FcBB!F+{zlHhofiHXsJ z0YeRJqCpljT%Za?*Dlreu3x|T;JFN81nNC8&dEDTtBi>bnF{hwnTMwb0rf-=OBb;Y zEhht(hTyty@d?aN2vMhXN&HF#!v2kSnQB^qviOl7p7XbuVX*V5dr#3e*lLC0?mlKk zDW^p=vvnN4u(%Fl$m4>GUpy%%n4ybqf^ZEoPme;1wI?&LH`}~?9f}D<)5g{nVqF#_ zE|E{9&D9O)GP0;hm`Xl8+KosY?TuY1d$lfcbv8@Y{r>(FjnTBX`%qd&=IVBYO+1t zJ>JDspi+NmUmd<&Z@d-$lQKp!{mHC1ngZ<8or6ZFPn~M3H<)Y_|G!deV58zy&whkh zIx7vBiDckd?YDZZ;g(hQ#peQn2#qq)ePd(+SSQ*SHpUB=)<56<^1IQ#o%vG|QKs4m z3+-oCJH3e460N^rJ4Xg=DW4RLqc zlpR9|JrD&YVOKy+TrSr)Qbhj?zq)YwV5c+aRx#Zl;4x03c<_z>JVVX_G^06@}P$+<)rY0cW5CIAdstQp8- z*<`wi=`SAHNPXn3BPI|b-3b$nRWPFlEDh2=SR1}iEz{1qL$V|j0W26>2spZf@1XQ#>al(MNx~F!^&(;Ft+`6^^qrr% z$8R4ND~E3VI8i9WNAbxZ+qndaRFX{-S)B0rfo1I)6EDVlzFNE9#M>_x@5M3`x4zk^ zHwoj$XuP#|ZTs?-(ayG0D(;L2XI}2ioy_2nCGyouvGunmMrizxtvzPWR-wRgxm-8~>^Xt@5jEF&OY#EXO=t3-+<9W*gW z{pNWD9rAHRHb{)hSgeLFXmH-_Y{2{JpGYc+SyyjoFB}FztLa?+^dV-ChQgNUsBa!x z$5aj%uujWn=ku)7t(uyEB1T8%5QA(6+c5*proK~mWXrUimGj+b5LLsnOi4xrxAvvC>JL7u~AY(ngwu;5eC6Kz1&$`9z z_GWv~C7T?)3U=QFU_slmW)<^|nk`guE=!U zV^XFE(#?18zdWApnDZ3PjMd7Q$Jt^pnX6}u zovbrRTMcAyQCL92MU(aJwA$NiOs?D2S##^|`06{`d(U)dcUqI9qW`ypDee$8u0PyM z5d9usU4pm6oiTG@DuKA*R=_d#;8w;IX?c0AyLJ8W$~$*=4!n}zZWBehhf{W^-yck; z{qcA>8QHGgt@^`yO`rY!Cy9zEsL>1iQICc(gj9}^M7&V-i|vP^^4;6Q(0gmuHX(2$(nRx>k`CUKn1M)u+iHh>+0cQ%^g!JJQ!o4&^j>H zs3TPusoKobH;^ura+x`weEL`RfQqO01MC`CC#(d~YJfbDu0lIo+Pqm6u}`1v^d1F& zI+wybeeiT0x<~|7Ki9hj!TkO_!F!c z371${k7f|kKwzY6A;HOTv9_Ad3bR<3AcgQ1lIU5W9|QOGb#j6*WgxsT2}0?J*sTy8 zfI2ug5pYHXW@Psjkdv5lmm(WdR#F`h#fb?n1Zo6FPo@Hdcq9m467f74CGr>n6-8W6 zXoiRsWdga&1Ru71El%Jsuw4QRZ$yxwPd_H;kVvH9f1O$b@gBV=){7uKEBFkk1NG<5 zT|{n|!s8O*3YLa0fL;J3_bZKj!D3RtZID%!Fp~VpD6~wrJA9X9$PzCn;dRIx!U&N} ztm3ki5AO%nbyZ;3nVn+0mg!|+ zJBKK?n`4QBIJ)yfyEhkE5ki>pv4x5O)!DMrv_N%j>IUD4W105at(_a|Nz8SKga$1` zJOt9}+3}2L*RQlUU#Ru(70R=mGwJPqM|*s`Ik|D|!Mpex1z1<@WCkhkEw3}FOR=urWcie61`GItWceZNN$d;8`V$nL0 zRFX_ESx!=)PdXq)S@{)A(*^4qJr!HUH$4`cG0c9KR@UI?P&5#?f%pR?CuG_=oNQwZ zGu=6yZ0)g?!t4OF2jl|-$YFQ13AT4f50$WbS8&Ccdg=4bui;=o;e**_lW#gS~>@x!IDlGg}*Y!#!NS zCC6{cA08Z`meLAnOBL01t0pCE!FEucHEeN5&;X|Mv6G0Pd~0M6v#1S^L3nIC%{`<~ zLJgQbz|wnOe#!j#w<@67M4O=SPC;9{ZV}oSPKCK0F5?S3&7TN%v|E6k1)<&S*Mf0# z;N%NGE&Qq2&Z)j-&4mL|V->6nSu+;)f6G5@2FwgLEOGJ7j1gTnMnZPJFw{00Pq3Yd z046JtBm{nxq#0I02v1~Y5FTuIi)37qGmxU(%A-zY{PoDwK`w3R_9(8VX`#d=7WyT| zbZ8fX{sM`xI;oUo)5ad2Apl4R=Rsp=uC*_Q*B%l$4z_=t1+mO6f%i2cA8e2c z2ju{sr^|5ZV0cV;;}nx$iJ?HN#m+|3KS>2q{)*hr?Mo0&8SlvSok~|oauy3^jSio-y-lxmxz;^w46nsf%#u80S3M^HP8ZYl2Y=uPmFm|a2Gl}f zWVBrw>{Q(*;~?fkgrni3V?adAG_(>#Z(EPy5dhVX`PJ%`8}HeD;s^Jh`$%=`S(F;I zOu{Mq)i%lG^OjSsw@7!`C(qBI3$L%Yq4Q@ zJqpDZ>mLRSkHEh`ggP$aL1t|1sSKsJp0XJeA7_$l`H@tS{3bjCji*1}+S)zZ-oL^M z0~28T{ut36U+3+E>F(id{}7=ac-M>4@%fsVvVh?RLiyY*dOv(YlU`(vyztnI+HSh! zB?=zQ9)2LA{y`3rEGL*7rSLT%rxF4@^8E1d5V46!tFRv=Um&$5|I_!FebW`=MURB; zB={yFafKPiwVU)iy(_+ywjAB^CkuYB_;VS)0^rih$XaxYcxg^;@gNLIfBEnKQr&#? zDcB;18`ow%kdPxdt^3s)b8%wzH7b>g=Y8nIKcv6Xmb3uUqRP|q>8;`?!5)bWX6}sw z^vI__CB2EQvNz#lvD1K+g>Xo$M>2`|h^7^|&x73q8UPKLJ%$V7n`;GHh0b3-^OK)p z4WE{>k)6zb{lxkw77;)JuIpd?=U-$?Kp38mo7cr0LV*zOoz7ftH_u2ltwSU?3c6pn zx*t(o3=Y$xvV>(NCDf%QcrmMci&iFgbnpTs&+f`}!sv_Aveq3ekXS8I2?W>*r^ zBr=Q$7;Ij+fP96!6W2^!IKM7T%z6yQC?H!z4HS#R=SQJvXrkD?zzf0H^Dvk(UGj>ROv&Pa!Lfon~7jxsrm>`_NoZg|Z;sWbIev*lCj2Q_;Z3I_HS-T`)c zhr#yQ){GU5*Iu@O?V^H=MMuX^x%Ih9T?HiIg8F~(`+uNEDYUC|qQQ2zGfUb&(adlQ zU5=nR6`iR>?phWRn%R@avx3eg?JS`h`_t{}V0z>2FJnS_@Z<|SH}6l5ZWA-XZ%>oC z`N(3h-8`eR{cPtF>2vcAOB7AJ(W`DA6NVcj9Myd%vyu%KKLRF1@l1|(n9ZaoTbGZY zc>nD33t5XKl-2z!w;|Ay$&~A3t2!i@PrpYJ7;oI`6bo|%0MgA0u#46#KzODzta@)K zZTY-W0y>}M^i&iAVCmO?_U{Db>BTC*Q{ev1L)qQ^Qtu#=v6=eC3w|VB#4QfRJwYWq z{Rz5J=sgggEo6JZx9=-CBY#e3!|C>THg~hqj?ecpz|Ply<-dIeY}YMc&|o`G6Q~JN zmcu|8FSseUg{kf1Bp`^Vu_Fc2S12$XFOxx!nNYMfo1qgS+7t9E-X-{#5auIhIi!In zDH&21CdQKSG8QYiKGE;#clwOngSH&qg6g{BrAy1y=_HV%m66+-$tL|xb1cBF!zl2s zZxz5~QAhX8J_q+5w2HT-)@oyxaIJ7a67M5%DKIBZT zW^hlj{l`A>W4eOvh}^nW0!RCo9(5l5Gu{nRQUynFjntiN^=?6R+JM=q1q`vZfY-AY z0QP&g1!GyT7}3I+TfVR208qdRsxwvs@2uhXOdBwVSF7dyt)BkLGlJ?oAVk#`IB*k0?=Q=f?=6R=;=sO zVk#2eM;I6cd))RRE!P?M(?rVZb;$mT&k@$5Xy3>k!n;6}hr{AOlnbOoOJ=I=0ZLW;o-SX#)tPL^ zi*w}~6M6lbY|VXAFp3rZ;`)=eJ-U@HfP5gn$wnIhz`lU(SgaA6ez3i@eK^&V(28_< zq|KZqw^t|o(R`WAtw>xXrD7$^8|%_4<0&ySC4H*So_PODtLva~cjxNt`dz%QhR630 zZr&R1UH0%jE*F`6>DB3vD(CF1~0U&C9c*0lU)XZx6JgG~Q0fK25aGB0NGCEN+{ zQX`5oeDSbT-yZe$_m0bcuQlF0xP8a=d_*1O&{k)>vwwB}@Vb@Hd!=ICCqKZve<`r* zd|aa_fbA3jc6?g(HqZni(;{z>V@CHFY^RHX?W~CFpgLQm_b|4*lWWbxr{cvLA>7kW zn`n^0J4{F+n;VR`Mq9fA?^x0Vz|L0xWQz?XoJ?;#Wz~y@v0cAA5fAv{&@!j7oea6G z06QQb&zDGOo-IS}S)}S?2u7q|LH=R#OYee<$z|PE%W1Xn9$CW!lo8Z&2_Z^FhC%&AQ2)Z(&?DL!wi^T zsQ~nWd!V}Nl_)5xhvjypcLjM4Bz6e~Mf7CMG7M-#htdYPTPm1ltXE;nRkUodov_13 zZbv_8YHH!&VE&1jl(Ep$RfYuUpwEgIZuc!?+V=N`Qhln?tjJE+WX>#3SIJg?zrAOry*d5k*(t z666dE7ug_WTZ9&99bda+SKAqXK0h@#X|Nrh#Oz!sC?{ipoo1<&jQRLPG@{Jb$lm!< zCyD4hJ!qcr?I+Ma&!M2lBC+d40E{;mEjA{|oMHo+Dv?z-uxLszug4)>Ny!>udnQQF zE!Lz+^*P%iBK`4G??6OpZeQQLa$|Po*sV8FyWq2{rwwB}k`KVH*v^&;hLEA`b*Fi^ zGCaD`nH@346CjbWp_#l(&W;Q|s_6m)Xw5Aij=SSt!>?73ZasbP`R^bsws^c{ae@NLlYf2Y~7VP0YVp*4DHFx51*=&iO%gC|(dAp`9M2tATV=h~;v0 zSA4@EXPEEnsk8x@>xK&$hB2V%9>d9mu^ls7ui{Te&Ep_F$5Z#O93IWh8~C^^9Bbem zU^lDj-4q_dcDvB(%r!wgATJ+yX93v5*bclSx3lWK;n0e$i|1Nst|Utl7K37bwn4xj zX5|d!7_{L2pU?u<&veM5gAY;4Di!dhlCeJ${eLKX^BBpp z>&y@A>RK`@m&n*7-o8e>*w>86$bG5Gs;ug&>RNhVxTvWXo0}+#5=BYFfoMtsH5!jG z7?~Q*P~b?S#gR;dHbFoG+B5_igxWNOp-qepSbz*zfB-`JM*v~Sfc?91B5y@!7JD>- zSFdioeDUJF7x#Vl+;hJ3ol6TVcz2gz7#5&U6qU1mTG)C@J0w49%{16K|6{N{Q)%^# zuo2aoVEfdeiVrD`@8t>!cUMsNh0O>XlNp8bL7n0}#=T0p;^0NgMx&3nRFQ}B4QrTd zhXVsupY6yzp2olrVtnpfpu z=3(!xKuuS?bi%1c*ybwpNO@+Iw}F{HIb43d-`l?pbrYLE?v3N&UOe0msucn!a#%0{ z-Wm&UDcw#iQZH=Lvurz=_{|%6v+vgqi?+%&z*Ai?03Q^UU7{w4JLc1=tzKhu&}ep> zHy*um{NR=DZ~!b(1d=%u6pxLq!|S&n+wZJ8@U7%9mG#cPGi=3*` zFTHvd|1-JJvPEWCBq55yPveWf{Y93Cj~)V0ga~CfuYcfl_Wk}rK5Va*yhZL&(1Ikx zEi%i-`o`{fb8ln&fJI`dxY=>GgY7inw+|=Vz`ORzoZ+0y-P2++Xb#LrEpsIsc*lY% zdSQellOIY>!GH!O2Ub>v7nnHo_MN;>YR>_S@UPQ%TyD{+lTbWXs z+4wa7d$nkJJS+egKnJr@u8}oh!VAmVA$6DV9y(eZr*q-%gTq*1a?KDu0=}V*l zC`BrZe3r64IBD@AC^rI6bw0;q4!aC_QhHt43D>eFMm36l1P0OGRFICT39gekdCH&E zr@`5Z?(SE9_bV)jAJX~ZA<%$ABfIHFigHh02-d--z_OFS-hXhPL0sCO`Nhw$=!4VX zd6&10AkskELj2ymWwPHL41CWxIKBq*9UN}PK%|oQTimgOH)yVKV%CHJ_WymhfY`)Y^>Eo%RvaFj9Uh~g-e64$eIz6HI(#~ zwF0sdn9pF^!U{QwR5HT(2}mNuQotuewN?bYu+~6k;2mUc)ZN~2v08kJ@XcrTO<#h+V7zws&yC=GK4JZG=~*ui-$ zcHYv)xM$X~rpS;G8qsV7%vE+IUOi>B1N9K`DZsk2npbuGY&sVX9AXoSZl6k}QJm)r zDAyiU95292zluE^)G41vnvy=fCpO5!W|{vJL%bk6<{ZD>x4-@E>BFJq{+JB1(9qaU z)+c`BOu=@eh8#p=JCIJ_<|VvGF`>nNX3w18?d{%Zk0xkl=A0@&+0yh^8$COkB_9d4!`#!@ z4yp^h&trQyzUlT3Yg;G9u#+waR6fl*HJDM$Yem;I`%|9GaH8yXz+B9AS@U*%vID9^ ziNti5(_l?L5sM6nyp@CHnL%Zl+TvGd$`u!t zfs~?Ni5XQolW}un41*o=sOfs)a4(!(W2#&Tnpiw2xhh2$)rAOlxzv%@XN8G4MRx`7 zvJqg%_7)RV??wZ!J+75-=b>y=NHymZmfj1t^H+eKV}AX=o;eU;VNajAG$P)Lx0i;D zooWoXlHp#-rn=X5!3>$shjCmeq626vnl>+dtYr$4&*F^wOn4{++gS^?i@YtINd|O{ z>ast6MaW&4W;lxpF6)Cx=$yAq@%9h)=iyz)Qs=Q9c$d$DRRn`-Rkt%5!~feqoV0s0 z>KYHYVEgXwuJE<^2j%-I6so5L9OiYaTb*UpJB@ zz>|U!7a69|TBcqXHO*0$^U_iteXUiT5{0!KrReNS%cX_o(v`(5^ogYvq#W_dn8;XS zt~1u7{X!LK=6DEb@#vd2wc$|5B2upwI{a#;2=N=oOFp|=35`w@XK5Zc4mjU#1tp5$ zLbg<#94us1vyfF+8SY^FYOcrtL0na!n2b}#Zf-BbH$mPf#!|srJ5G$CW(5^!kaT>k zL73?P`_q?jE47~`_YhuwnRDcZH1 zk)#WL*?%{~Uf^A@T^-9XlEYht%| zGG^d5$98?ltya=5D%e2*qarK{00aYm>c~Y?9sSHzgz1vb;P|DVbfRi0YDWF7y$7$3 z_Yd=yM}nk2xLBTGJFoq{eNdg=D;-$xv%Y)Kne5?`Q_>a7OO(sB%`$O#-*bBXUbSAM zUaeis^}4OQufFfKw|?oxpZtZ%&aPpao@0@V5m&lJ!=7v({lriG^sPJ3c|k-qY%9%DR5WGXUjaJ;!8ZIHRm+Y!_lSYff9>owdfaVB@yaJBY`}cxDJ+W{P$p z>fy@*+bI^WAbn$pKq{0N)~W#$a!ZjR6}I!&O|^`+cJ!%A;C&VhYZ?k9|K+Tq2&#+w4s1u-R6cdy zZkIBD`j~E|j)k#*Z6CN8j7fBu1((IfU^i6Y1ltAJ!S;>GhCCVq@7np+?xOhZ*k-|x ze0_X@cL8?UpFe3-m))v~2UUg|cEm9Ob7g`m;anB>1l7Q=bhZp7ZF#l0nl@L`BxRJ9 z?$&Z4ok4t{gs?E*idP4E4D>20YY@Y3v>GVmqJfkz82|+)H`SG}ADH7q5ws{)SIkgc zDGV$MXDe1rE**xJ>*8il8RO(wK2LZV&>8Eg%PZeJ;LP5Vo)elt~N$D6YF8aQY zs~>S;eaX6k4<9~W(Fv@mPL4m_o{1+&{+_28oJp^sWD+r51@cgCSc^{vw8vn?1jkk< zA!`|7gEfNZc&75O?YTd|JAYCr1SKVnPu(lqN-=;(0$&pvS0r%NTOFcQ?e#6wZD;aP z(Q6g_4n8^*<4Mm!aWPeP@NAZ;mC0;~Fy36vYkmH@0gM3bPsDcic?Y&DVu_2(-w0C#D&=`4i45UfS)_{h zo+HDB`04eRK8QfA(;N+NJfJ9ca|lVsu%nq{ke(*k&RVct!#llEzM2^;#+b5~7*D5x zJdAeNGWND7&)ht&#IZ`H$>(a-X!G#eDyj;=A<_z@HTixM} zle>q9C*8q>2_B?(CXo6b{zn^TwPrP1UVr4C(nrB|Jfb-BHMRrkJbLod2dwVDYSkz8 z!K zTc$DDNf1_v_*|q)G4XD6BFLtwtH~)`P$Hpr7-JMIrAvs{rSgR=YIr=Nl*g&n{G@6} z6}wVJDg_$OTPN_y4C;lC!^bnazmwLia=rt zEiRhPZT%;(U4LA>F(5n*P@M(qUH0U0BfN{D7=%7}4tIh%K66GU?<};D#OAEq%RSz(5S9={&5XVVc16$BE=Jpq}x;-UFBG!Jq%9fe`EiB=wC@x&h5iMkL z1i#&JEV583W(s5@I6%Fd4U}z~HALx)hJ`lN&w~=Zu&rK*S+Q7UKE&D}vU7 z8EwUN$aQ7MHN9|((qt+r_lq*ur`#B^-r@6u_M|4knIVqM@P?7kSVcW4v<;bkkamha zkEe+3)1WHh0Maw@3-N?8yoG4AG6e89WOAZv8lMdd=ijzk4Uv{e4Fx0AF!{Fc}`nCmRkkmMTH%#P*q*NO<< zRGC>6+<5+mfU!JEg#ToDWBQr~A!pJ2-Fq)rx9@t*ac#I8wgvz@?ibdeIt{q3*zm;T zu-KAJ4-Z*(cCB8z?8eV^3L`@@Vz;c0QuD|{BpZmNlaDg7qy$%i!^ghy< z`n4_-NHdLcuhrPy+T0kAaRK2fVH%FL)*fwcA3YOQyQH@a5I9o6b`?v-#?CzM zz4QAE$VO)Na6i;j4TZ52t}5k)oKlmM31oSjiM#IXprC0`3KsYt`%bkFMV! zA9;Hp=G0Mdw4SsmLwpw7g`x=pfAtT(Dr>x3XNJp?Fqe{v@AoTJ7g*`oQ&{Oua7!<9~v*b@B;S%Q-S?i@ahQNh>i2R z>2{-8t#?{wqu6T1t>!!Yy0=fuspy@5Tw`^4k)lS~)N+P=5heO_5w9slM$7E{qjCr3eqylK5b6c(^-^;{bm_1e_dF#~92LbK!jMvAppM`g#ynwDqEZ-4CCew$nk$(7(O%LT*4snO zef&j4Sg&BkLFcnV0+BPo;YfRjOEJ8!98#Gq%#Eqy}(c3z-5@XkgWaOyO?%Wj)D?pR4L?>AdJ*9%@% z={)4oc_=|p;mMssdVwe*3+<`-gknKJ%+Lo_)!S8)}LT-{Q0uw*HEDZ&0G;@&d(PXMO3>v&wrZz^N~H|R#1D$DPXb9W-1i5&1=oimbcN~a;$j*LYyBwa#o*^!#>nJn zKACqvEB#k~9iEC+=FC|$?asof`mZzu+gSteOhq-ti$9eOW(=x&W}?c2f;b=#BL?&3 ztO~I){4l{IJ_kmif@0Zs?myVwyMFuG=f*pPEheM!L9e%CIgkB;`g=i6Q2p)y`E6MM z_OsYdl^`b3DtjG@;3YEAFDU20Reb~+QZG+$!9y!;=Ecm8rDG6q*E`UtCE@YO5fhF1 zjR3pGb_w6e=);=Za^}SNV5?E_e7Dw2$p4Q*yM_s0dk4JFAAG*8{gAQ|7Z$^BI-QqA z{Zd@-74VFpYKn>ym#*UdE-3aR{&qSCvCmSDVv&wd0u+XTdO8~o5{BY#ryBSkBpK$6 zPhUpb0xf8`fon)K*DE+{>0(y3##95rZ#tc2*`)ZFvUvpCQ)HcEv_Ez6B3h15Us*&1 zhSTD+I73(ivzYA{$;Mb!?hyi*j0N)-C2jtyY-$(zrkWQgmSdwcwm^0XgG4FhMA8{M zS3un>DU@sZVwB58g>q6dDkUQp8sNWdwm4jJRzjC@3foARR+FKX_{p5tdTQ8%6Tq0#r6T z#FZf$?>vPhkZ=NWA!4)(wgd0-!g|+sJ43&|eB^dHRsEKTlDx#vDKlb4k)Oglrn~Iv z)cST~(%RfRe&Ky?YaJCq;9bd@!EDDBqwID9E@}<)T=`@ae&2ZBDZP-Em?IEDKw1;y3cSf< zvNuO)I>15^$!82qB!im6&BJFNzWm0Aov;c<5M#@p#!~rearv?au?4i{d`L6YnTA*h z`1#;R$)AV-N@L!Ibq3qBcEj!-Wvs*>ow(~KgzwE{Sgvg%mPHi4-E1lU$!N1u?+`6* z^aeyQqZ(nChzW)3`4~o7!zTHHgh2VOlj9Q>Ma-T`wah!*WCzy#DCp6lnuhk>1u{;F z6DsUdwI8lrwd`3m7=?pEf=B|WaVnB?I#IgJ~Ie&CdGRX!v1#A zbxHe0tN@=3T{>e0h)xq|%N6|9HA8n&cMB_M2&T&MQX#mU zDyGfKyil-UyV&hhN8@97r_?5MR%jKYK~trXkcSSiW4+U$6H@J<1U`@?u9UCPf{`@Hp@FBQW^8*dC;H)H^@A>Z>f z$@6DDy}&!>iX5ET@$6fs6<(xG_c#OZvR$tQ*zx>}e-CWecDq>b=f@pBTdla)4kuAk zB`Vrzzk?JiMa`aQy$iPMuO>J_SCLUtr4Av)j&>I`ZxEH#mDSv0s+P6;Uk<&c5; z$jHFhkbz@BC`uK^mSl6~-&T=J&POq1_z4s_bB*K%l}n2pJI}bj1l_j zxZ^P0nYhU*skkbUCt{8We`9SkH|TEEIwN=nyGM6&1*@~Z1H%%1GN@?qPYQ~G92eaH zXDoA>#kD+Mdc`#*%B-}?;UVYnBQXzvsG!S0Pi^*@-F^z~Gv|!BXy_i=ba#?2=caFh z-e1SCXvjuEc-hmaZ8mmq6Jp!E`(k5bkNg*?d3EL2gm%BUT4ql9AZlo zXLWI)b-}@DZ^idI25*WKH_f?{y;b-dCR8^ z*=oVWZa3;fbP{051Ml?-Hhcy1DekY6_M6E8@3XW!8Q@r}Wva#l!t3*SjCc$sm_3B7 zir!MrT_hyuw-FT8dkU&U!)7^y?L7X_?O^LQ>H$;=93x;6D8#eLSjGk{YUb)#SVX{+Km1amw5);84v+>{+bUB_)fj@5^ zEM&njjY!ggu0|MQC1)y1;nE85brm8?wv0Vb16PuY+MgCnC51s2Fj)#Io@oHrI&IL5 znix3p6XST%*e(qz{;S(GbZ788yUq3Svu}Lt=5sF+YXc$xbG++BRE6R`^~~UY$G?ga zKGPY)R?1qvxVLeIG}YFmy?fKE_ZVvBm~=dj&zM9xY^jJXy;tlL{k^&Y*Lv&tUZ-Ab zCDs1UjVdN(XUv@;e+_IWvV+J~Fxaz`zEy2_NhhyThO;Pc^#^-lGN?93_nv)zvU~LU z2i|(_<@b_V5O_0E!FT`ky8+S_24;uTNv3 zZ&G^ZjW_3Y8@L3;s$!nSoYt(al-?2a;jhFB8D5z!vevzthFm+ecJw^SFp#%;&4URj zF$q^Q^eNyHb|;v!xx3pQ3_9z`utu-D;7@vdvAYFtLxvmzTF?R5m3P$)mxvr?hygT0AOffXL&&f zdh4g&`jbEXli&KS-XZaRhG^O#)07v16=vu}_ZHX6!24pVaCtdL zCOG^UWZUT&giQfCIO@ehE~-S$Cb{Ph1Vt>^%U6*YrJ93c$QOzQ$IMgRqh1fYy?Uz| zk$c2b>$$~x;-mVm5?C{c44623F-Y)BDBp-mPIR#tRp>vJQ!*nK-X4>livtG_3HICh zdyYc}bxKSWRmwAJdX2UbR^ToI>3}(qF4ss`1Uhi;v5{Vcseq9HrJuAZ*znW3ehAz+ z_;?8t;+A2Wi;Iex@D$#m$`IWz77gaYQB)r`2ixQQ+s6-I$6ROHKmt3Hb4BXG|61^j z0IG~{_)Lerm0S@|J6(qzRURmbLgb-PB(!MZ>&_GnCJ1s-`YAa54gWvtZRs`*dIc}p znOH4RPHCUV_W4iI<~aJkx!uF9o6p>R?TyXj6CowN8Zu_)dlTg z1rtB5_9xhfW->^|2h_y_BJ?r&ig~bNjx1@6m=Jm&t?1&^(ah|dL3OzOg!w*`HIyi< z#=74a`Hg|s8o5#3Fdc~4Br6R!pXu+Oki!4q`8PiF=BJNu+{GEv?9BYV=dqo$`rY4C z`VTrckn@31M{k!Cd-bJP*+<$sw4u+Lh8_{-H|jPP2%alsDv6d7MI~`*|Juz)cijpS z+;r{U#%QuT+1TrKagFa3N~G+~<_q(;OWHsas4nvbJ!=?l?R#OfQtMS~eJ>;tHM?3e zs4TKd7(Px4ZjiSrIBP1Y0V_^3VGLXOplKxP5r7p8Wsr)rYld5{H1WgJKM`WpCoc`W zG0@@kM!^c!ESwnduCX0{p#BjtOJLT)u_#7QaJF+aP@Vj&Ct^GFX&7|6T9*E5c{ZUy zV3;ZUinG0V5gzrT0vyp%!*v^98 zUM$&Yequ|*=E9Hz+hJf_O_$dSl!PXEk%w}-((KJ=!YIJo?*%~t!n{%| zS`)Vn`>QB-KJ9u&r5g6S31S7Fi+E&yGE5-P5LAVKgke)e_^1dso^co*_>in~B8_C> z0qod~@bUO7f-T~u!LR;Ae>(;^Ij$9uHZ>!RD1j1yAex%x;p{FTM6a|9@WV*p z2ArosoP6Ob1pX2kQ#kh+t&A`!`U%s2x)$&buq&U8s=+}ZmB|g|E^AS(S8I>9jvqaI z^V2{5tN-HU;cLh(5Rg(+Z~6-#%9^F9Mn)3_^@zCPW~cuU!l1{(yFz{hZ4eAF{tC7u zD~!P)KjJ*LYrCDFQrfJi(0+>TRNl><+c_(+UGN!%mv4cXt-o#_+r{yP0ncPvcEE1e zpOP)wX|Im}GK7A(xpPP?RV6EJZ1=}I-O)~OxZUY(_WE1H{`R21HQv~1HoKS^^1-kE zz9K}Od10H0(XO$bN-ib4V)<~?sgq?~P351aOeI-!7IK;urF(C=q;jti5VzutUq`>U z5O<75FKo3OSnl;2oXM>1FbZU#Z#mwoVe2!O##)BwYqk-hoyH1i)!J_NOphN?7Wott zQV=pt@yyD)J|N~g3vZ!tzYDfwxBEU^rPI*EDTSV=75%6S7ZrC7yB*6aUt|O!7Xcn< z1NvikxOIH{-b?R&?@xX7WAdf**v`#l`Xfd=z|IR`*Ng0rq_yg7 zHad^(JZQkXpt>MDzn4ClS~DJxTksF@B+%1{sK9?pt>u-TGl@yKzR6WwD_&UzcFI#C z91%v;Knw8Oi9|S_1z&~4Ql%YgQGm$BEy38T5=)ggMrFHTGn4c~oxOa4-ejq;QsPdD zPis+VRjW=CJB*T-7SJOjF$yEzPG`-0(ItVx@T#VtJR z>DT`G?{xZOLIX-n4A&jkjn6Zvklq5eGeTX#>8b=A7NHXH)g%g0ssn7tA)~}|PO+V& z4}o_?atuV#=Y13JJ)ODZKt~j^#ZF;g;N>R zbMV{Y;lq<5RRQKUf1)!W4w=KtgxUbIQ+{^~A)BDHS+ZvyT8@m*6I9o_QsPt;p9~^h zf(aVi@#j=}n`!(E;fx+n+6(<(t_5ZY4>Yk3ui6PGx1(+7^w)5CK_X==^Mcye?)3pQ zl)amAb=|ZQq^P&AJtLoe7i<^PU3TMVk_Kyy?c$RWco%FJkLVd}=Ogp3d*0%@3mhAr zCc>r^M*zPr&RC&+4VYUowE66%d zu`;s;b$`efT--A9bznP?E^XFW?3|dG?q_~PehyWfk<_AiX18-dAe}`J{*1*=$EJJB zk;yX_vYh@RX<%+qGe=E?k^JFDLL5Gw9&T)G?(AGUzVY0PFaG>5{?f00;WvK$pZw+< zA9_oFmaeXECe97&Tv(4p)v21ncsfC zjkzxH&RYIDgLh;Qrtl87i`_13ZMWaNu{-EiUVL~Xj3d0n^4as)j?vD7TLz!Z{O?s! z-tP_q9VnRNVpdLXv|n;1{9H>I~cs8e8W+V|WFBS_*pvd!Vyg*T4WKp8Z^VUFl9%3Z3d!;?Nl%e#G z>D5+qcF6_OD~8vI8$&WQs9}_MkjOSKUBztXw6dfZVHlskli*K^rznogVI%CUHzx2B z8$RmLCOzl5K+$C&^af-GhLpDD>-ah#4)4bF?-WU~Y z#_{8XUPXD@$2+%Pc;ClA`H%nUCqMsR{FC4Q{onb6|Mv9{ei-|f-l#eyDS~Am%L*1c z1yWbDM6Xo3?iHmliNY#lUO9s{p8t}>hRGg}S`5ivXGVObEKExhKj9siZ(&*oKe;EL zC2eZ{l4)}$EMTUNL9-`wM%f>ik$i-)>C3E3XZ7&GEC!8XsoZ5~xIwkbl_`No^p=P=gry}sdu0=@ORDUa;xwoqWiBgx>ba~q!dDo-OnFln*`U9wru z*Y*9Q8-#{l`q(Fa<`bX#xmR9${r)5JI3LNOSaZT+5&h|({3)a?-V%2F&j0Wo*8KIO zAOEP{lLqrs=-jZ~)T65C8B~*;VLLylenyI3qjfID4DyT|3VRRkhf-ODzeLn`dDflg zzvxVxgVV=&y1)K!zb?=CU;Lkc@i#yG8%845SV4OKovmKKTiMteqq-v-vCLWYZKNSv z=+fFEVo#F&+ueF^*u+9dGYF0`!e8V;(1o(t?I}1bxS-RQmzD`LEW+7SDbUNSXGSGeku=K9vbotyWd;Qic(KJkw}^Pm0azxvO9`}&;+?XS*5PRar}86eY@df{AYI;`!FEPu zuQoH8o`~&#^S6IPH=r`REbg0oO?mqWY@7j%| z)w%Qh%sS$`c!K7i0;UoW37DSC7s;CBJ87KXUp_0?E}6FTAEYgFeC@ww3o~EWgaEvx z(!9}BM^tWF>s{$2G4mt40w)TFR61QrYFj%yazIIt2jTVE0`GE{ShL7(m>E2PAd*Bw zrX5v{x#W8g#L1XWF=~L@rAix5dnp;RSlu0~J#yRYW_>_#qyX%DN!F?2h#-v=wuBs6 zucslE$1n>v%8MOL4>nPoyDNcU5kjnp=U?P~gbwZA?(x_*3e=kCK7UVQf9qr3O-Pj+@{jTuFd zvjy7$cCd~$kbZgvfBSpC|9f(7tg$~~$UtMjUrcBocRPjAaUCoy&rB4(Cyi3FLE19T zK9@P>XciUHIZbp?Y(nhPr_o5ivJAEZ4P~p;?zQF*a;6Qu1MIQ@??5_>;QTzc5Bhb~ zx%#6af{k(nL2~9zKls56;n~8)@}i+_4BIR=J2kxYO0PeY#yV2iZkj6BEUn5s!<8ZC zuB>?w7mgyY*@C$qpi;Q!pGn2gyMyu1h6GQIJBFs>$H`mH+{d zkD{-0;Y-WKu!fb0#SXAfY3*4?c~}W#q&hyDWW({!@%6RNM97UNFmQG=m0Hj{R;hX{n>qLCkQ9@{mf z1MJd1gY7)^PTY_Wf>9dYfpiub4&<@=;(z%?7TwdbcGd6h!Odo9OWC9#mAEGY?=(R8 zsS`%cchs2^yi@B8&}0U&9Yk?|Gi;BtRz!lE98-K0%n-$N|IOd{O|jbr+c81KXxDZ- zWTgJyjp5NPGoC%3^VrT9%H2j4jJ)Rh)~)W*{lUTQ!QtK7#^H#({-YZ&e&mx6-}?C8 zy+`%I2x{ExANu4ok6zRF0c;m|7Y7k{fRoYJPUGT*3na_y{k5t8_SGizR8yDZr4 z^PhcU8;4*LcnZf67+-=HxI~>W6w1?xRZs*8rWIuiNOfCF<5=wg1ZuWAuYc@s>c|FYmC2>n$4XY_nArC9g zIT4RKObKkdLN;yJ`i;#4)O`uH;I4%B{P@Ja@)f~GKm$nUMepK8+77_ZTK2?fr_MVJ zH+ML@C>(2Ix67K55u;t(?HbtmIDEM%bUchh8(@bfXDi!@vI|!hh-c#LEo9e_5`?y= zxMvFsbcchZYsWWFSYCeZHJmeq8{^6>uSc*Qpu=bfe3>CGJjawufO~{i?-ecY>cUGgk8z2dDh zuu~c2UC2^oohRxy-mcVZxINiU;WkhmH~SRKk;Wnuv!q~FJs_ucJ9+ntio6WV1>aK% zc|8pNDMN-l3i7p3(`cL#HdH8U0rXU(JrCn_p2Tnp{2 z8gzza1rU00m;O zwRiIb+nY(*l&po@=P|tNlbm*|*-CGe2G1G}83?Vyd zu6Q|I!w_7vsK}PU4NPdp*zFkY$}RK04~XfGTLy=W_Q`lrV1-rK-PGO%4kaAFQvHE znyp0d8=E(w7!eALZ4vq3~-`)by`n(=Z*Gh;VNYGZID1&k8X^$tQD#ZC{0a2VFA z6!xlixhmqZP+(XQb$ zXAmbf0AS|^lc8G55&2eSkT73yL__OmOc%T&!0Or-T70B3Ga@kT2C;{LJR*>dRzeaP z{sAI9P?WKp`Hf)6;9$2*m`+G^Qg{^>Wt#G-wo`_aPu3F31qIU)Y+qPK4Wv@`8zsLH zHuv0Q%dSAf*sKq)7yZssA#{=v_XniK;qgQrNQmf6PE?*%I?dlg1~`4Mp=3VP3+Fn|Bp8v{lG?`$X9B|9V13#&)k@+-gk@~bRw zy#I}_{a0U;g`?yFNCOo>lF3kDg7|cgtj2w)#~6auIPHjqg7H%FP!(c=rQ8Q_Rnv0>zCu zInhjs=@XzQh z;H>4%T+qreIIb0a$5s~$q$3B71WE?IRla8#w!7hZY_Qp@tiFMd(#UcLQiZ?j-$vdE{H&Z80maXO0K9FE{=`d(IHNDldIvPmFF zPeB3!={z=K0KOo_u<&4iw%P zK+(cdwl2;)we5^u+>b^qC}4XikeDUqS~f%*b{eLRrNXy z!X-*%fbYTwL;W?3c7}RFmRQ30BDiW&JjmpH>I%Z6)tUukuh zl@K0YD=Z)7yO{c96rYND<)w>+S)l(o1iWy~@ze8N3_XOvl-C_;noJ3+K7)2arGrf`G2Rt&Kj-@9Y8Z)^q!DR=sEIMP*kuTx*G5<2oJEcsL0bCwi~S-tABHF z_r0X{uNFh{#N`rLW2H0j(cpe^&Wgh`%_&oY=RiHNapEqP!+_0voP2+MGBnO(JMa$3 z>%0uTGihk$xQ#zEY7S(h#xdSv$U#(N`T!sXZA{R9s^~cl#)9i^ec(hb%F=a*qkAvB z@77Ci-g@mL{jEcNWEz6)($LsGzk@0!_M~1kzt4|r1LJJfcpkP-vXWYRRFr>r&QO%BY%6nPR!osP~86Pk;I&&po;WpSNsN&CsIy z6$yFgzfSqt|Mizab^gR!c!08&oz(};$AoZxM1UPsmzVh2SPQmmItRcG1sZoQmfkj` zj$*N38q{B=Kr?0$726OYEWqCEQoC)PxZY0^6AjUsz+Lvnzv%-`jF)ZNELq z`7;YjTh|L~&XqO)aw=TN1&jHRDLKgu)h(E$qx~pkaEdwNs<@T>O6Ue&T#Xrg z@qRG80*tWGiSQcSAtWEs((nxWd7(uA!tBX~%gAp@Ea@zRTwXkui2qB}1k|Rsw z+=xi}R@yR27v&lKOG(cZyIuYIQ-lZDWt3+NJy~`Rn*-Djr7hTwONT{(UH5PrGlV~- z7KG!IV0bdP`vw{7)YRsw=j6Ex>~k&wc%S-V3Wz66xseR)OttV#8I&+LZ5yFC*1RQ5 zqfeX08En_4J4XBbZnO!pGbt{5Nzk3hpMV8k(pInt4l?D>rj4kTvDNdKDpBCI+dsU! zd-7=S=G}u^50370fBuxR!j8_BO$wcJqPKaHreQJBft?Xt+B&aVsc z%=LQyPfy$eQJ*|4tYi4Vlt2LEWjBrOU;5IQAhhcRpN!b;to04iM>d_%4HI%e0A&0j z_{1^>^_XyLC?z`NMwvJ-r1ELMSsfW!$Ok!FvD?4~=BQ z&)DtAQo+H9Bd6U-w#IFO<~$8W)JaNICB6(%uZUb#fru)FeW;neLUejzk?Nl)!m5I2 zaW#4L;>#cU$j5G;+>)>6i2%}N!M`CrA7JMNuxo5b)d#&PoTcyqvSkM!FV0#lQaOnB zw=8Bb@Ti5`S8VF>R{!97F_>Yyw%Zri-qG_p0*(d7$C5+(OEqa!$*v-mAH$F7CuP~P z<(XGUzKb<>yIAZz(eiX_Z08X5&O7F_8rw12fp@|7^LD#R&oRrLcBRv*l9YoOh7u;k zwS~Qbzn#>1mA{mO)`h&nG*=WqLk@PkV_F%=Je>wkiACnU zs#k5B)m|}}P5Q8|rDtlRouB^9OJlp6^oaS&O%QCy+Gm+Z_4ziAXxW)!3gO_Oar8pe z>SNL2`RDxgRdAB@$u*((q>u{DL8T%YAy=Tn19KTv*MJraY)80R4*2CS%}VtC?P=K^ z@%gg`;l&{%o*CI6pCqQcy8PBiw#={5q$^_xV7j9<;3v!E&~cJQe+?H~XB)AClLs$u z9~|!-o{e%cuIcZkA*e2EZi{xyBnjMMq$Rv+>{+GRv=?571cGHv436ca(-+i7;Xuxx zq%PbrzwwD}{F5Mj4xZSwaG31FkEl;i{1vj6SgNe`?{yyJsdC8F2~IBaDV0l-rdk&H zB>3KwOxQ~Mjbd%x?CzPJ9jm)-v^LGwW_|0%^RK;hc;ouD8;73KShILkO4MEOeWqYq zA(`u%?=zbBGLP+==FJD4*38)su=7DsT{@v!&%Ne-GCasg!ct1TQIF6HgE0fJQ{@wE zzkKN;o?^-lDJBL!;v8x6qy#F}ac06#UAUz5$S*S$B3{|7wPvIgZl~vBUOeft}b{o$QxmTDhG0Qss^AEn$V1i zLci9i0@qN~;s_o}5LUu&m%u@k%D^flhJ+*+KI$cvvKmvotp$a(*N!-<=V0{}C!?BW zqPK_uFT@)IA!V=9U_L{rv81Tu4L2Du9Wo=*F4oI_pNd6gzZ2BQIHigB64}0R;ex&v z-9SB(DFdK{Gc9XaU~JJ13qDzUHpTF!gdA!CmlP|NPz@P;)5z3v3e7GRDdrYPl#1Vi zG$N)kOaoGO14lG-07#Wq)WEw!qAT`2VPz;RDF?EnHi0yyYy0q=4x^Rd)Y)x5R%D(r3Dbh7<7= z@LbhUL?M4)q5868Q`6& zG)meqH{)L7JtIl#D_{N!jn97ev)mb3f9qS{0`q0f4thM&N0Wx*d0rS0b#Qzi>lW=V z;;Kt%7Uis^qMNVuD6K^?j>_c78ytzO~7?0G=cK$IyU3gfW`q zkXkNBe(!7VorC0AlPDe+OL=i18lzF447#qhy=Ubu-I6}QJ^z3H{v9eAY~g+inP2vV zEEj|>08*<(gHD~4cGI;X*djEmusx-)9k&cMx#$9fzZkqQHCLfSE4@!8&XXb`xBk0tCDoa|ExWmt0SFSzcD(LRSb-OZ-9lJZ{;Jo@MQ?GfK-zWG z+o+Lrq53(Ed4{7LryPC1EgjLy#yuDWNb7qpW>gjTlDppcO>ebHnm%b`f z+WGs;t&_MIhsEJ$ot86We@zdN+bdTpW3G7201Y`A=DQ#y4D&E@NgX8{C|fE5^2GPS zcIAS{Gox}t;KmeEfS#(14AV64IVRW+h2--f={?)Q*;cW#iAF3d-z_MtAgr;pU`jQ zLR2_FrE8ImRa#!oQv?sA9U3GE&w_sjswy6(E6~;u(!oG4dZn;Q1$LDoLV6e2o+kE6 zi6{u4@Y?8KiiE=g!Yi|X>d+v6NomrO$8vRrfdHFIsn44}h3TP0!oq@c!VH>_Dnd^f z?d51TOwVJx#&g|o0Uv%}Uh-2~6-xEZGDFz{CrWyY-d{K5P#W8}pM8I+y5V&8D*a7H z)vVJJyZzJ~gR@<6UkSKCqM-ld_XOKPbr!*S)>FHE=09W>&soXW$#-dB|L&iCS0Vcp z+ksy>b0-W}0B6&&liA!;KO^ugizU;}WmyP+5X8n7EyvxJjLA6bc6QQbA5vjKVf)Ne zI*;v~11F$ST2AQRaq;w_m!lYnQ^_f$zrObB|lUCD;+ zJUR^ht=h(3XZI)?AGY^S4xfGa6CZo))i>XdbxBF4`6JM_9h>}r+4w|kr(X%S1Me&v z-l_i9y7`KHP-DB?b6ImI`8jyaV>?>iRBdJoPv(nh+E%%>hbm^m|XYmsaV zaS6FFh%1E7z;0AXB>jD_I9tn!ZqBYQWXy|D#w$%=N8c#j0Ne3wD`o|Tx2h1w zq|S#~2^offHTooJ0`ED48eLFdlrA(rNu2EqQ~^+#SqjoAMM3pv)!?FOtm3z%Dh>57 zC_h&l@8p#vyN!(f)hP%5BEBIqOi4 z(<_K`K{8>sl6N9Z2rkNqPa*EXqgl^9ovf+8dfMj4r4R6u3op9~6n8i+^7ah2)79mJ zx}mXs|GD=Ey=|*837b7~X0vWv&Kz@H;C*@(MfhM;A3?v3r%q5ENXJUVdI#!RYr9>r zT|Znj1ls|2!fHUeykw5d*)qD54aZGz>StrAIBL*fE$7lK1pDwG!tpCbZGIrq>h0Ec zIqJfARaI4Wlvda zY@gq#+Zx!}Ql#z{0;-gN4|(Wj&+I(5&)e;S?b>eF2c&Tx*xBfMXbDHEn#`Qq^ZciD z`?(MP#Qv?5s9rODS8tR?HHkTnw0|77L#xJU7t>vT+{DJ)ct*daXJWLUx7+z8=CPgq zy}-rmPLWM&+fg<`DGi|Qy|N_Oj$Ka74{cfa*a+`Yy9Z}GmJ$ohG!oPm+MG%^a5Ta8 z$G`U}wqv^USB>o!c6&Jcx%D~!Cp9#-Kk-wSudL!5zIb`%DWy}BrIH0sW~gybU3%#C>v^toP6p)xr0&x7skBd^C7c#7>j(O~=h$t+yH9N=uMM<_lj z?*cxV)m1{B+*1Ao-(6Kh#r2Nk0!sip6Q>^8_O{t=*OMwL2L(d0Xtu}IsG0=LRwamh zIH;=nAo}TUsTNxsgCwNrf=`KZNRNo^rx;C$*f6vAf|$Y<2$mv^TWj^b7zP(#<$%tF zZtcc)WpJ%Ax*j$rR?sP%l}pRz6z=cNwqG3?UYpG8`D>9jx^X}#un#FERUqbWrOOT; z5Ax;^i)T)kp>9;hWd2E*m^3H~wGl}}_62MQb)mRO`UZg&{PSEtQ3F`7sgg^*53kYp zYF)}7WJ(UvMzV~l6vFjFa6>J`Jae>8|`6o{_meV8$w-z{Esu!WnGWAJ+|y?RIlq zs*cdNvMNu^}sbWC7ReUTXClj@Ppf1DbEl?F0*Nm!fRb3Ip@-%YTc!Y;%XS%c^Rivo6DQywF0y+00K zcl4ZoD}4YMm)pospnruk*p4fSf_f0H@!&EAED+vS)0?wq8zv_0WfDnel_AJ>vZs5C}cD+%rC<>Ef)$3JatJ@pxok<(5 zFlO$!pkb)iBC}qx`rRrfJ+W8Uw+UV1Nh5;^o(v#cYxdVS4qClQtGm(e44Gb)s7)Kz zmZs%1%9YXN_=U;!hvU6xY`;ak&5Z|fdpqeJ)cc1;yZ!X#mGd`NDLSNJt(OUZ6FQxG zKWYy35uzHx<9Tv$5Ldv}LZN3R`K5$~agL#o01F+~qS9|?iVx*a$sXdj!O6DP&{sWFChMKNdAymEUGssY+E7KqE9mG?_w#%5=y10}o$y$pvDmDid~^ zq)hS@%>EF5IC8{jA!49fAu6o3)%?uq_aDV)30BG-U_?Nn7v`0`RS~6keE}D;XJ!2; z9v=1%Zu{K{nFe<6h|}ggS(sBXM6!@h!UTqFLA4Y}9#mySR`3_&ZiB%94;G`%emuLM z$9COm|NPJY{A+*kHSt<#?=4hTj=#47M(uFM`8_&F@FgSdMA)iiWq_m98z$MeMt7@ZKRs@46iNqv8B<_+WS ziLEYcsY$__xS{53bCNvW7;h{HpvgJsohr#_hGDkqQ5-%V?BuWA7Uf5**tc*jPllcG zVD@$VRlef0|M;_Sz4aE*_eWpYsTtf+ zMk8?!w%UyvO1{Vfml#2aA(hYvp0XeNe0 z!>w!gqt@1n(sM=je;pAj(cHHh{Sr6Pj`X1Y?FXT;b{5%xEBMKMo6JjyAz-^wmC2L(o3X%Ru$}N3ZWQt(@`{KK zMmOsf#2n$qkn@Dyj&p`}Eg?OKN_H9B=1{N;Ge|7r(%3&kBs7Y#|pus}ty z)^jRtM6T>g3vm|w0B{t6lnYF>RHICx!Jw`sCRJx;)<0i z&K!gK+G$WzHDlNFLEEg45J&Rb6Q_ps_dzl~@)4yWg8-fwxC-|Jl1jk<&jEHlywYGh zYe6$89Pon(GOU&>_{PmzkJ{D>gr{joa4AXWAP63+ZELl*A`g-8KgX!xT%o3;>@7+ zRzUy9L7D@WyGt<4b>+-?ayfI(RU8XNTNutT5dvrLy zc5UNme|We*MsY4hniwfz7Z)y5{tQnmr9(+YK6PWB!FCWvUYP6LuJhQwF=}(zy)BY> zl1^)8#A<98DJLLZFZ$dt;04>~=jQm?@M|Se)NUZRRH#(~upKb3Rea#R5<>qnY4_T- zaj!YE~e*b3M#M+Vz5+Qn`M*nxLhuo7j5d-osvJ@mC`#ZN~85;&$GsMeoE|iupPTyeo7g1SnK2SI2T&S`Dhk2;U0qOz`N*O zNY_>Peh%9?f>F*x)x%g|7KUCwb-A^CiatJ+Y-;0>(gLqYbNlIlF3@<)QaMg86|_DUJMG%2$X^W!&63SC&F^4KVrG_EAtaiwa~N68B`WksSA$7x8o7w zG{AP9iau|*^F%y`^izi6Jhn3hfMx@+Q@Yj@v7LiRpQj^fyFD1)bn5G+WZP~|tfW({ zj^U6K^dK0GPevB}Fk-ZGL%2G^-w3afgafuSgT`MM<^&ey7gKwA*JR9r`0!?6R=s47Pvm_rLb)i?8ZEb0xRXJ<)aO=z*XO3q4JM zU9W*$2=Mw><_OIHEUQF%8df0mW^x*Is9hhQ_#9PW7Z;aR-qICHvr->HIXzG=q@j0{ zUZ=aC#&+NxpN#B=twx$o(T?%KqPM0$D-G;4wA_(GKo6fB!!v)?Z^a>_-_AGIvL;** zxYsEfB?qP@5Bq9PwUM#adxGsh{OcbA@2oj(d67v0wr_3DynGazM!t Qo9v=N<{X ziz|lP%g0%Z>F&9YnR4t;1Q0iX<&by)qmTT&RqiULyY|W8MuEbP&=z((0W*^LNi-)2 z1I8l)Mnx2*hMrDg;PZpn7H;`fCya@P5RNSuGtCArJ%^GUWVfImW1AH9pcLuI0va%9XtLQLzm5LKZ7Tw^#(Yb6BqsEda$T8RdzOeMHO_$$bGQm~A@gc5>+XdFtX393pi zel<-*MUmXqq=0Dx0uD$DXBk=8B;Q4w2^@#QEu*hR(EIdf|IrVB_(SQdvgWDbH)7r1 zk&xVB8pZ9$CnL5xH%ED6mIpxeC@4 zM3xfm6l7Hnu@0tlCIC)b>c{oBlq|A`rS^aUF#1TgF$^f?st0qdb8Q-A_WyzD`XGF zv|5dNt6tG(g_~O1G#Ij_36LZA9^rhm$!pXk}Crpjv>M2{c4Wn??K)r8$yc&y}ulFmFIOQpcKlI@!2 znG)Q@0|S;XFE3-a7$xUD%AcB8Y;)10nMgWfTCM zBrH-v;l)vx$#aSn@}jz(qDqqWr&McJ@Z?~|V;EXdSb|9t`enjS3G%i@N*WI2Sk|Fp=n%1h)41pDoN-EfnbBQ$uydo1S^%y0{!yJt@*1Iy`RXthd z|G{XVB0S#vWo@@}EfAjh?T`eNheBifcmDhDu*~C?N^VtD)fr_PHCo`E<@?|N{uyk? z4rI~&JZ*+#@soV3t_$^JDzK3FIZa0e+h^faroBX9z;<*s$!E_S2sjk+qNo5l`krO@ z?eqS2!FGV1Ix?&U+rRp|Up;S(Sq8eGIO1ILvhe}yA5j{OX1u-AQ%3u>;nB`!r$*N? z0|);N(@7BQYQBU-*)sBMh4R_R3y^}DEx^v*JM-Y^9PQn$-ri<+Z_+*7c?`3hzhFCS zgakn$Ucfu+`7nqouw8y}2q|DYiw*+be*V?FFTd~3i?8lpKiu74 z-`nr)?GE<$7;rk(N=O-Fd@{t72v4KFt?p{2G932b`p_F6{qTpH6e1gRCgaZD?)vpx z$NSHa)%)D-XYUV&gIXo(HR{b;t=m*jWfT0`C%bd;+%PX7t)A=P}o4 z9^0YW2)wiA(!h3J8r#=W%TQww;R(aAUaz~31DAdNR@26APiMWARiy@rCdqr=gTg9f z06n05=?WIwtmg~1Q!4BKr|do8qpH&X|E~fey-(_7CX+Vlz4zWpNJv5m1VZmMp@*Uf z2m*=%Hteiz70cRtL$M=RKtQnqHgwnhy1V+_{lCwBlEWC?{q28V=XG-C=FYw6o_p`- zJm)E&hXT9{ssrrk(DXA8e5?12RK*Z?;~>Z?d!#c7=Ts^pAMylw5_-vco_7`*o`60- z!p7qYeL`c>3yL5bmyT&{2OkJ*Q3o`U785BQFN+9olf}y)|F>|j04tfMsYzW&?Gt1J z^Yx{Pp%#!A!5jJ`{V!=ipaL-$@G@jOLkF;f@Ph4{r$War#l}XGKmhd#+7cMD!7$|# zXnY_ewFL8g;OT}h1P=+;(>RE>pofCrBM2tMh;URj2>fwLFdih4oQkL>l5hZnB;HjN z0-+!`Tm&(Id1NFS8O81!Vh#*L5gCmA%tXq&$i#&3gg9GL0>&rr0F%3~Ph3heB{n$; zY>!Pz_VD*}@%Dz#Cm}sMAw4HPBj28u2k8o)&zM4h{UMjkS0rsWxVI9rA`-F^vx>>$ z9hY7Rmko}dXphNLBUw{b&Qqmw@l>)jGPYQX4L=!x-4NYLpMe6CFqy}Ug^u{vGEN)zakT0r^W$e2(}}%Bf4w3 z-OWd3S@JhWlfsqWl3>fj7Y`zQqF`^cC~Q{-bb{>Ab|^kKm^H&AV}VqED77)NtH4o9 zgdL}7NUH{HsbC|JPEiS%3~UG35!!!??NH1@d|@WO!D5L|7^)daN{%Tj&8jZXuCJud zFUU>9?paV^$f%j|spV{yu0J~s2suBa>e}(PrAC^|(6%yf1e2O{7%@6K~7#y*1>4}Q4U{1x6jFOR-ke!j3 zk`$el5uchAlN2Ax*Zj;TG!m1 zTbxx?o>@|oTv(Eknw=6J6`7Kjq5=+K{XvBt8Umj}c2;U-W$9HrFHKHO$V_8-l9!uT zSXR?8e#-o|uEnD#EE+RyY3H1kHSNNay#(OYLQxi9fao~0_=|1j=}&^A8bu=_Q5}tqfnMOJG%}WJ_7R{zCrHm!K z;hpGYxGCb@=j7^Uq_R>AbzW-a|K{lphoLe;nc!FhrHATpoL%vOX0-(TS$$2U2MvZD z!v_T&SsQ{POo28Ze^Pu}+}tr$M*069JG5ZC^xv`eC9)XSMj}mE2K+keoM9KCU1R%i zLmt3(WOGH=6BSOBDCA%vIJ&UVR#cFlK`QedmVb*Cm)z(mbA-(j2}6Pv4<(#)2suKe zw?;;iYY8y75c2FtdJ9hk@(^2iKnUR`%n7h-!%cJ8pa| z4!6p&CO9~PT&nT$wuFR;`ImWjRx7cA!#f z!=kFr&TW#70`=tPqYnT(XQ3y8@Jv1WqC{?&7aZvwkY^G1yV#EJrQ_rds*6tMJh0Om zjN<^_wG4w;!UIgI7*`Ux;-ljSLm=tS15p^Fm!ZQHXwxVtWT3|cHPE-?k&fC8nh!KH zSeTIyt$YUkWTeB?8ryjSMQ%qM!$&R<@ioF4N{TNO2RL{nB>l=~gMCQRRaB5xTajB| zkyTTgo0pMTT9}FEBs(LaAV0mNI3p_~wx%+#vNWrqD!-21%5yNe%E7^Q(q2=fGa|Q3 z4Ys3T(StmsA!ZJS8tkH`u(QbRG=x}2|0F!8F}9{BEVatV9OnkWTgUPftAZf<63R(f(_{s7Ygzzz_hlW|PvC!Kf1 zc7T1%xM^d%X0&%stZ!;8ttu%h$*Zib%E-&lE+|e;Plu0PMd=3wSR*5{b8|+Iu3s>3 zMtV+0en~-oL4Hk5Ls41X=&otqGy5h?Ur|49Ui<9T;}={sdGW@HbJz9EUDn(=C9kA9 zZ!n)Y;=0xwNTyE5e4V0}k$74@&w_|7-h4h zB}676^uu&Q7>0^m@EB9Zd)(illP6{0wZ6GwRS^cs%Q9(OD+m8=;JyqlMDqHsJ8 zZD*y2g;tR8c8iw}8VP8oQ~}8;Y?OlM2o1;I0_ha3UzLY*h)%{JE`W#zgX(}&D4Be5 zni7d!R>b@exm~bb%k7+qSTOYD2-U#5%4lJ@$H3bj1f7w|han9M3uWo89Fr_zkX52H zks7XFfSVlCwir7xLBm~KnDqz%M$!hcVRj2gbru;BYz~WwjZIF0V?G{}O=?hl=QJT6b0px2t7Ud6bUkHRB^AU| z$E9V)W@L{X%=P0qVjv{hPmrL(qLb4LDl-bJtg&gSIR%hxfUC-IiPh2oQk6(u88^L^ z6z%N?4Gp&yJq(X1${BDQkO%6yaac=HS21gIm$4Jz27|k%FC@SQfEzV)1b&<7>3ks{ z@b*_ckV<1?U9&LOUB#cc}ENi0jNO#w;U3J6+ zys}Sfat!$*>#OpR+v|#Rs`4}H%kpbVLCUzYqO7vQbbM}W%5&-~@*2u>8_RPW%5%y~ zGUT`DY0nP=9WXxFqZ!8g?oml9Sx0DWk)QCDkHkG`<2AqICtB1LNA$|_0bx5NwIaTL znl-K39p$PIj17q_@bS(@&7PZ;lAg-yGYMH3Lnom^c{%AB>4|Bn36&Ma<)wwWIhjSp zg=H1xa(2mAg)l~udp*!;BS?**?WopqQyRxk@0h-{XVFD9owFJz zFKM2!YQo~nCM??Cy>Q2*MLVYU?d(~wW$ucdayq8S^TVh+M8mkJj!2SRGmg}9evt#? z&%)4gcWLX#k9m_VjP~HjLy3$j%m-JWxEL$;2&miOUWWA^HLeOwRxTK*;moXa(W)9G zka)i;Y7;_o_^MspIUq-t6Hz<9HIRbJ>8N?rVZ1|n$Eh1pj6A0h1M=j1`yKK0Ycg-cZgcLnrIN zE(D=rGvU8%x2L4qQ`3`ja^tgeB9qf%QZqs$5b1+Z9fUN+tR#@t3 z3e=aZ8{BEQu=%fIPjWl*(EQDPEJB2%o>VpP%Rv}nOmzOpeccFAQn?0|1EDBn zm^%P-6z_Z$^*dXX06!?J3$Tj}PnYCcM1XXBIES<~wzCW*oEg2G{Lm5G_1h#517Bqe z^SoY=Chp4 z#LBXqy2{)-u)QR=p){|)G_STaFFQ4^tRS-tr}wP*nu=T`_67sqYfCbU3sR&H)Mvju zE2mcV;QOvxMt}Y@wyWI+r$vTcUL3H9h*98OpTe418(B8NJ0u!Kq-UVb6rRKki$f@@ z;NpVJtc(;~W>Cu{C&wk>8}#I1VDyA(*`*a}=_&REyWI#o zP0q@SOHGeW%Zx}&FQ{#8pVnK`wQ$`0%^mYDu9~=DeDCI#*&Dk1_KaI{^@P3~#xJ?4 zyYH4s%Wj#x{8l*~#!$yGRAcftgZ}F`*q&J2gpaT8Bzqou`;g-$$b%*XbHZM3TSp@<<0bs%~d=veGkmz`c4AD*n>#4+=DwVm52aYZ# zWo3g|)H?#D_B%+T=JdyoL5kAAzT!{_~H8>C^Y06Sz7XxZribqB4<%EqpuGh zEM(|lcu6NtCSP+fq*9oA@rz;DVxwY6)Ior&x`nvJ*vUzRmcs<+KvY6X zR8ksT;!!CXaT)m}pN&Y$Al_d^Ao>I*W#!r8Q?RRMmQ|$|mEwb~pC#R3o(0=+o#$be znmnZVGBG{~%=kSDkdlFeo6A}XO)>%XXlzCrJ~N__VacXucIeSm2oKQ*M4A%2>gg3| z@d`8}w5$G@f}vJG=mprF4R3aCI;K^Yim(TZ+%8}a$P1VwtAp*Jx`^@Eb7i72GXE-l zyL{CTfPON6x4~_dJ+UR}%ctRp?d-!xKkE9c#&!>XGczE-4!bXUMJ`{Z@OHsW$)t=w zstqznn3Biq8jnfTbmqy&III~zg0AU78SXh~UhRe4Qy zWnFz$!+?g0!y>wa?R?~ROP{41Y|-a!o4mYz%Ify1{bQ!BY@fBNZPwZ`b2c>3SXNtBi&TZvIyNRS&ph zW5{#J5=r)liybxw(mfNpZih-XKALbCeAxk^WE8d`&`yx5idAtSPv)=-M+_hCjMEuj zWf-<_ba5jgrssgQQ9pZ}m!Xr9q(-V`gje~|W}1!Or3u%nY2rln*o54w9Q~kwyW`V~|U+u7dM+ycrS_X(*u`pCYs{QFcpo zYy?>>6H{W6Q*Cyn{a8yxGz)oTzsT4Gi?IW{QE;lk%1N$I^3Iv@|BXwDNJu52Mp#^O zY+6Bda&BZw4*V^!ctLcI9?ab@(4Li>T3!{GlZPNJm+V-(z~tZ;+__U@n!HW=ouVOajqO}A&oF}^9F<&- zyQj$$AJ`x(>p>zKj6%M?Sg;+O3gjL}MIjWnlP@=SF4cWEA9Om6jCfp3Ac* z=aSAKx6?pFsB;NL8ze&^ex^u^B_%FCHDM^WSA*@PIklBQcTQDVZcSN!Wmz6RA(+`S z$)H=1l3kcuUQoyz z9-Lefo-@YRn&=yz;Oyy#Fp1X~QUB4AR&+ASiFl7EvSdw7OUcX6r693a;~Y~{T~S+8 zSzljK-=qf(xn0gBwRBcvyH?Az&)U#2XH)0GtsP4?cJyxOTDG-&<>ll0wzbSzKYDU+ zdCSD4oWi_{y4tqx&Y6AnU2`V)Z5}&iQFZI2%JK6?&Azy0(ax!B@0hfD-{kdoG|k*O z_oDk|uD!o!-GkFNJwExOM2U<{vl8cQge89<(UcOKqH56RiNjGS&!USs+7*X4c0PXtRVR#o-l=+mV^z8-h@=p29GT z2HX>8GsyScfoN>0?#{o5?VMdk5=f+DV7r#vQMn8lx!e)deUXklyn>(-{w#k& zg91fp5689@Mx2s~Oob>^B4h1{?vb%^W{A+uick@(CIm7P*F<}4RBRlUb>Lkkn3A*D#=jgn+?QMf z)(Fz|`4d$YNs4DU6BJduVfRG$LimCTS;CKzaZ^IIp|Mf;Y}iJrk>^2RWNg}~DNH7V z4Gho5KrR!x9VZ!x$WTfXQmS+^13y%L?YE>nJ)z1McGcxT&y%g zhHngy8ESSxcixRB?*J2gaU&7@7$2M{;^bMs`MNSxyWERE{wqRPrb>4u~1q!No5eR%Wr zHz`z&z%omWL>)(~@H|)8dN@Gm8r|$_i1ZV>ZpIDo1F~uc^u}D=#Q3 z%P%i4EGf%RO;5}(%*roFFDOi}sm8&(sI;uOqN2RKvb?mqysWlLj?Xpfcj31Uo!Ulr z*7bFJuftsExIe@8<(FTIFCwYEd7ETsYhHU$N>xyNfi-6g`gXs_R97#UqTLY&U@C++ z4xd8u2*;UY2u{=wq_k z9^BvYIb5`Gk?fC$j4j-Z-+E|#czjk|TzV`yatS>4@$`VX9c@Cm1#t2Y2#sc`OKwwy zEb!IHi%m{i82E$wssh5GPNYZpU}AiAhdc#PpexEx(i74=9B<5?-l1T)hgXQVFWU7m zz5?=mrMS2uG7VrmeL!w!h?py7y3{<_ufO@aqwLKqiOSS%&@dsFKrQbSLcYueM6>R^ zYA3noS)RxRT5)28*$Db=C_!**2@aA1!czq8At7iT+c|0W!b$U%GR zX$lB|-zPTSmY77b#>5dQf#;AJHhD0gsW(13IxZi(uOGFHg@|I|OObWWe?3mP?*tEQ;q+I_ndw?wtEl+4f0^EPNnY-cy6PFsE zmJ^kchuump#Ife(Vn7rtH~BuyRzj{&fGBE5BTK2eSsuvh0@{YxAM}?7*E;wHJ`0`$ z=@dKwv8|8?idmjuXd;u;!C`~(f-zDN#Q^DyJTa|v&SSfg9E4tRAqv=y zsm<5OS3)Xrp|Upxn^Q6}&@4p9kxeF?2|ceUzoa5RBL~Qe&dJNDt|_mnudJvlm2Rl_ z%Sit>1P27$wcJkPT(T?>F+#eEg!pJ&Uvu+PadFIpbgnR+Qd$DfKu&pSc1=}bd1XOm zZE;0SadBC0c3x_JaaMX}LSa#6b#-Z3MQLqaeNEk{YM>I=k;VZh;s1>7dc=k_#190S zAGTFNc&;d|i)7ZPPd z*003$gw%}Gq}1f(%#6&uyi9yKOH1=gD~c*>N@^QR>PO4bz;+6c(Ugf(1m5++L55Ld z`>1JaTV`I|I(u{TyseE3x79D&-rT#hedW~?*55L5!)=}Y*LTcZS3AD1ysNLKXI1me zH94auj+(R}r4+6F&Ym^(FL z=-FTxMhr%3LNf#qC?a&?WL0i%cPAHwI}*p4-93X0R5ufmBdQqxKpQ&t0lD2Pm>r~( z)GWzCb(TUu{_rE?;fU>y_E6qOR{g{v$q)Y>wzC~zr^pJ0orxTwm%xus>TlV;B8-!Nn4n(a65yXv;vr}y<)65>~E+B9$Nx{ld%%G%mvGjmAK zganLCj*dkXG7(7Z$!Yc!T+P$NVPdo=M8)Isiw-9VT`kHPWO(YB_$1sVi3KB7wmm5o zu|GN~1B!si_>3THtevRR#4H*nGcm$sVKzgwYfaAd3=KyT)?=j`BVAljl4Ah`sQ`Hp zp09}6z!a%B1gy}gFld70BDVu>>}<@EiV}^l6r~vV4Zy&vVw!NcV*Tan3b%uj)s;L? zA`fE*(1a>s}Rwj;oc zq6U#3kVihj7fa$Jc#u^1n+K+O4;n_n|H@-Xj5$vrPx8PEWXMYZJ7DD)#{_E0h|vuS zW2H!Pj717d8^m=k1Z-!-Xv051#~D ze2~V9_X~6qc>nuP1GZFv9a%*KJ7>>GPs10Rtj6KtX50mHa?^A3GYSeR=|zPZl#=4C zlH%;rlAN-V?7~t!q;e=U^6`GmOUf_FEG*B%39zER8fWj$o~aG3IEpmYw~vua`!BH_ z?R{1{F*`BxE5Ua7w1rZefs&B~-uWQ6Q)EwbW}_)8%g2&nvgf$LzYs-^wjhtd2#;X9 z5@P+s70ZP4NK3c{kC~LTv~)aU3{S=EqSEZ*@|-fv1GRaT4RSQ81=~e>=e&+0sK)lD z`In8JzrA_>j>ZL-H!QlUVbSi!#k-rAUfsIly7tvKw5`0MbJ^8xy}K%=T~aq^TgTF? zN+zysoVKdCeSU6R@6ugQ_g(k;+&ynj-u`OOme;0je|y^HN2Y9lZ^q8!<2N1Z+4SnP z%ibEh{^jXc9F_iPFySlMKJZZSXHX8;a=TA(IBw_itNZpVHyA;6q<0#!KS3GrC+LG{ zY$tw**mQWmXZEd_HE&^7ZULlK1RRsh4D*73Mid5qj3fk9 zjB&#UIJoG5K0c$T`>*vs(nDiS?ZxX!c4l=3Wg{Vvf}fv<$hpRA zY^eadbQO@-*sjM@`iZo_>j^f>SEeVqA{kF{t&uGvy6gAa0!I^h#qorp4hlqQ2i1Xh z8y?G{W+l3-T$aAAT@xnGU%F!JRh1n*tGDmo_sG+CJo-%e=#D==`Rol(J$1tqPu%qA zV_UAh9=P*#^@__YsO%VXBceOCmfM-& zWQ8KVqLU0VqeLMmxSA005DK#(Oyk-V5gVJ5l|>LcxyWD-V}+KMor~*KMSb1a?(w5L z+NBQzK9E2E0=$b(Mu4685wKmudv;DXiP%t0TdkJ-0%B^i@(L)Kc?B7Hg;|vRqU^$w z++3qkRF+LCt;{Q_$feHCPbsd-FRd#ntuHUBt12JWSlu$Fwzai>OiSa~fo{;5A@EK( z63(Bj(D_JLGt&|>QsXo5&P}q*7QuFec4k9?ca0T8u-%f^;un$TXG=FlWq1XKho+R_ z207ft(^}B(9uVnf3U>{#4RgXII1&f`v<%$Yv$(db0wyZ-SykC()!AjW*=2QdUa3WB z*VxXfHN0zVuUovUq3@c8rPnpDys3HRtz%Z*J$lt`E&aE&uDQ8=?Y^<=?;N{ffA^*b zr(X8(#7*~g^xsxEWy|D?Zf%~wy=3yH#=e`E?fYQKzT>m5KRV;;6CIo1Y}@o!%Z9gS zUUz1~6(29U^_xYvo$I~puZ!>cU+Is=Mx^)iLOb31`Co_LJVdRr2&Ow&tmRjN?Rwl) z==uG7u#{wBM*`_EF?WUKQb!8)y>CggzHEk8jLK|0Ya#?gGZ=sn1=8% zL*P+<-{1z%KSX?b7#+3x(tmC@4S-SmpCH|_nnv#8J%#Dj$$6y8{z+)6s}HC1;DtqE z=fCbOv`t_;A})|FALMowHRY|mCIEIk;YJp`r8)hLKJ-@?W_kR51eY)cPI)?^2^hw zMSw*{Ze~^KxoO!NqP#NU`E#k(vs;lfE137~E{c@x~l( zgT}#Pi-?L%h>At3Pm4*+2#ZW4oltZ_R#HZxB`PVzYG+a49USE1>l>b!Xo-&-=6Zgz z)&qhZ3u~nyC%^@M8on;jjKlCi#!r+&kt=T~)@a_` zc{gn0zR;*e_yxf-ZB`NQiarY;8y*LLEcYy+Mj%lu{~7gcP&gy^RNY@zb}Ac`(tA+r z2HRbdOVkF>%+U{zKJmm8n8WV<S!jpcKZ40rj{Y;nalBs%Jm|Zs;WY#J8XSs)Sj#h`8jW zlB%-u+KS5R%7G_v@4yo%Po4CHmN7ls^%tKyK7on8rxc% zIy)Rsq~4aBZW5*i*)I9GrH%hNd|6mKAq0>uGBIImrXX1<;c8GuMNEPM@~#ik>4dSs?fgxwOwdRe74^1I|k!?n(O(hoh4T3bcj<1M>K^YoT3s${T-t=K0-!xN~M-UqWUk4q6eA zU&O~ztH>8SX^hC=<`a{YR8U?;9QA}5bEnMf9Y1s7#XI&~v3Fl>>-eb)m(N+cX6k}o zJYHC*jA|R3l9M0#8?QM=K*g%TFk%3y;1#fm6%{-eR0n2(EH%{{7!IHT{@iFmHr-%6 z(fKHCi8q{;_`Z_Nk;o)vR|V?5@w&kdYjDvxyW4A+b|LJP>%N zSNNQ8E>XyEI)lGOMV#S{gA*nN(?7Dh*1DsdQAFi~*v=!NKl&LE~adQT~J*R-Vxi^J%4t?Ykyh$;<>&@KAU^j(J6c1p0xMn4KJSB`0_`K z?tgpT)1NeNd#-isGi{eVP&)70iCZ5Zv;I%h_q;x3_gk}XKGy%ppI1Ne(~2j5?tS#9 z)zAKY_49vUbKvi*U;f{f2Yy`p#@{bK^z)@3{Ic_-U-o?Zcj?9*f4D=iorcEt@4o)- zx7bdss3tk&83W!ySAd;@yQy|i5o~uHM%rL1*p6xre}a)tYu0lAJbxJjpmz zax;G$erUt+W>;~jPU?(C)-%}RNRfb6MGmWPoWQ%rcD-0*Hvp3dTglisw7a+t8*zcV zy9;FAzA((V66J$;v>)++yaFu5M!2})L+FU@C}#k6CwQsI1{I)y-HGTJH=N%6sGVK? zef%u))!9{jrS0U*AqM=2c#-MkAU3PNydy(^olcH)!G{NsQNAB?X?nss^wuE?2u~4U z2N{@pWH)MCa4;F~$ z?N7aU_=~fz9{;$ivwPQ_e|-PkU*Gxa`}e;4@zs-`21h5kdIr|Ec0KdjJJXh}xqAOY zcOQK7u2Dp%M2o^<`O5z6K-m+ha`?}DtK9$X_)uHb|eIzBG8gEA_FVE z9KJNT&Keqc;2jwlHfhd9U@YfCR@Z778i)+~e(^}0Z?_J#2bA!fSGn$c>K!z;%W@C7 zoi|Rfof=VA_M}&gfD9LHrJ*u%i(ndNrDJ%@1i|MM6mIjyglQRm-(~GN8iYqhAYctF1GX~{$jqS}1%^*D3 z&e=7*Gno38UG@Ior`_|;?1w&_^U#UT8(+ET#qa0d|IX$^XRi40-1hgr-Soz}-iOaj zy8f-2{(G9&+&g;B{bM&iGwI4h)ApX6cGIbux1X84|A#pb{?zy6FRKsyvhK~lZ9e|X z_D}w?>-5jpe)Y>OU;XXw?|!=HoA32#XkZ81=@O_e<=U%NhQxyh4pPg`&Iqp&iPGjt z<0GgJu!AB00o${(lMss{qirS=J}Qv;Ije|MSe)T#hfUxDXHpH5mpBKRz&eUhlzA zzI@>Icdowo!DkM?H*fuhcRoLJ-}A40@b&k{zWvL~?|ldfo`0bAfybV?dfP!NI}9EshfYv6u^Te1;HM8 zr>&%V!-JiOB*GgcE@`-nyKDp@IS2>jIMN0xMU1Cr?ZAIIDaS#WryHC|IZ5)6C|O;_ zF#+<(@PxeStK)fKc9yTYVc1o%s4CthBoO&867mpi2jLOdb)%B#RonEb=IcW}%lr6g5Vky^Q0PR-k-9zTbV^h9bXSsX?8 zu<&TiVRpN{s#^In7FU#)R8HD@Qd~H@DP}X{&D^*EGJnbwYP@M@K_z zOYNw}x>0rY&2_a+bu~>5Rg}@AYDPEJH=Wn~XmOneoY>Mm&5SKyYZ^zFSJ#yfy1uaS z-(kD>o9Tp2>}e?+7gjLNFCrr(vDC|)7+E^OGblpM+MeV=cEU{K%fB+}-2x+nQ>sUL zm=qRydfC&mGpk1B)->nVwG=kA7d8wytx12VwN8d%L}=GK8GXwp?Rsd=9}cX0{^P5T z{qNSp->rW3i$#yV-~0FnYhL>JtUoIC%bJ(|cFCc??)>yG*M0lLt>1ln&50A+Uw!@Nw+=mi>J!}= ztq@j?L4^zrP@RJG4#>;SBMHqM%y=t08BiT~2iU36$snxJ+JV$sS$byu1RC(oxeO)5AThB>R!f0a$U* z^T`PM@v=|^45{fP*v?0Ki~4@}NHQb2I~gemIS!1t%A!WrDn4%54wPr(1tZ*t!xI!@ z3m`BZ>KPQr*y+#%m~fdu-B11?eB+fu7TOMX*!Dc&AH%WN?Cufl;X!(`Acn=s-Q?^E zv0ga5g?eBaI)EL+gvNGW5P+Rp-)OzFZVbF!U!VIewlkSJ%Izp&P|Ki`L2d`z1AKiH z+khduvppg-C?<>`rqCs;S3UOj;frtn!waXrIPl4rht7O=%{>op*nR!+Z~lDOV^8hc zch|A6zW?y_Hz>)yeS;4idGETr?m6+zxqF{}cF!GmA3yiQduP9X_v}}PPoFt>@_2f2 zku@q34oQoRfGIQdu#ip#2IJLFoU5gK%Jj)|=3RdM-uF&@cI?z=M?U`S(D74;PkwUf z_{WD&e)i7EPhL54m>?Qxh)pDA_Vo|5{Z4KU6mLKfV5K}54VGF*02fFXORGRD{{`HD zR^CcL7;M)FtgMQLc+Uq_dIN*kIho5$3(bvBOeYU=79 z(=%=C^qFI(Olj@z9@ROvu5C;sPJ?6H$8?Py)!y3B)>7BjQs2?mIIdH=L4EA#F-DA9 zKuHYBSV*y!;>0eywM?DXGI?t2lz{+A4F$+T7*ZXP4WlscBdDd1AC}c>EuS8g-VhjH zFFJ}}XtE6>z#)-mYLEuEJPs}MTtm`apoKP`(N@-({ z9Pm2h!(xFVp{e@pGIV;-lG<0McCXEwyREwahJqzm6)w6aXWkXbQ#aSFzPV=AZF%#q z$(ymeaK^6ES-Wc%-c;9ndu`u+O{*SnTmO9f#)A`fzBl>WPv-vN+~T``=>6jt3--Ui z_Qhjc-+BMG)1N)`=Wm|*>tEmf`R9-SF`#T85`v^39^Ek-FTD7I^nZk_uO1n>(PFq~ z#MJ)Ayg;lCnVYx}eJ#<^1gVEv%)tpMNx6Ax_Qaf&+{Q3lj+bvJX|-@}bQu9xDsnkX zQs|80Ew)ToP?ywOWMDErAUxiZ46Hso_wI)ul;bzGPD00j9WfJUb@k$Sc=B^lo!J3I zr=jKx)(XRhVXg(VStA$`@uY$GBZLVJ4vZwIW}(BP7vyW8Ul$A;j^c=N!G*&wxZpwz zuV@a2k0gDb+i)k(3x=Wa!8tyZ*r?%70~P_%x65sH98B6oPcS%Ia?=+@gVY-jKlCvB zP;c9@?dbbQrF?Y4Alp3g5$ubN~7)b{+Zb%+WJnzxTzN56*sl?DW@ZIfZ6x6gYhHt8Y(! z{oToLzn|T|_Tcf4j-2`G$mz51o;myKM<=>wOh*G_wuXg;TZo6nhz7jFAxZc!>a;uV zd+^YSk8Zr{o`ow`zxvL*Z+`gUTPKdced2^sjvxByHl z4P{jEGlAZ~yGW!UCvC8c8bFq>)B&H!~@9M4{+tt!DwPV_>_UW_6&7C)P_N*~er!@C;kM5Z`ZrapI zGiP@8Od3CJO6TN>9g`<^&z(JE#Y#D{!X*be)3NP{?Zu;-3TkTd$_Ermdd;i*KQMrU z?)o5=UJit$jt)w$3rQOlmfz-OjtR>i?HLjY89wq{Vn({fX3H%siB8G!3XO5`4-HN# zhSI?&EDjNo9P6o7oefi$=e5kL=<1aY<2b=bkB^L@j2^XYmp#))ElC~Sm(sR8rF}(w z>(a!Q74gl>Qrh~{JJzRnT%6pxF1zEB;t5;ICT*{repT75>&qA3UcY#M`^v{#Ry{Fx z!>g?qy^do{_Z25+-}*)W)8Fs-;II3>|LMMe{P@T}|NQ3v{o|AW`{mnThGM&PMvsY} zxY?qy{elaJN%yFww|aloaJUza*OHuKM_)jG)F^vYV2CLqsW7W?es;sWl-zopeU+<> zn-8%?9$ukvmHGw51ep^;EJ-ddu*!hw>Vw1%GHYxnIR%q4s4i#M*nZQk%D%7RJt`_X zE+H|@X2ZFX-?BouaM&{VHe^I;X}3xW)G(k18Z;=6vzqsz0eKmvy9Jg z5q|ERxv~TGgAYFFIHb}B#Ef7O0JnabZsAW*O<1GWu<1GWZOau$1upr1~lJoQS z-2Y(pv>A6DII#bfgHIiP_u6~*@4oGhw@#iq{OK1*&wg|K+jC%hVrCBJ#XBE*^yJxZ zkDvYa=;^Oeo8R^1Glx%~edo(FN6wu6;G3@&ujvPz0roIR0L|q52n&W`%-;lSR+ufi zt$WhT@4o-;r=LG@@U`w)bKd*xlebQM_|8Ws51;zzosUl*`sl=4$B(^y_|SW&KE8AR zeKjQ4nchn<11bB{MT6<5zOKK9}QjOIvqLUkHav z$LPut|F)T6q_H&2*IX__#xecFuibLV!>p4B#UTGP~? zmYykNx~DXCjc@55-!frb`^2tsGbWGj83?=nFR?w!ZpUXIe`V>vpl0?RT_=X)tO@{YqL8xQ1ZrY%IUnM zpleG}*Orp;TZ+23r;gnk-+p;o=bo%_*OtxtW81n{y0?5V^~%p?-|+qHyMLPd@L!j| z`qxdT{&LNaKi>7vpAP@>kJJDBzyJN`KjlP2tQ2UC| zu5>kF=BRL7BGG>MFJ8OmihJ&za?yre_uqTR^UvP@%7K;JFWb0#*Xti1d-LSU!=Hcl z-s#iF&z_AlR57(1?dOndq0)@Ja$dt%L)(RJ;u^&MmC+gnFZ=o&Syb5uuH%Y=z7 z6DKuKnmA_0)aI!@ty89V&6wXgZD!k~9Dc)JFMY=C=U*JLJtU&L?&^gP zbY1e={kzScEu(__=hO@WaCLD9kHI7>u|#g^_L6m5=(HAloj`iIV3>)RF3Ieh*dwxhjQ z0zYYXhh2EVh~XEYt{*n+e~{Zp;M0VC)}8snY4~tg=aIf%?g8l6eY`_V{=j>nzb}+F zU_1Vg-q8LbQn};fjwzP_Sr6Rg;0J&^47Ch)EBxzl!=NCuK_JLix$1w1?Q|S?*YAil zxbMDboqH91Xz_Xu3s40uQ1j>Ik{g2Z6vpfIi{z<=XaS6=(jBiB6k z#HF{~c>A+Y?tkgI4ZE-0xJv==!DC0?I`#39&p$i*<(EmBnZBlgtyk{(BOTrk#BW*S^zFWgk$gn0tbVpL{o;u_3N2gwV_x&Z8 zY<%&^dvAVtqI2qWV)vT5CiKi(u>IP-Zyo;#70s*1K6vfKhX;>-@aXd|MMOr+SUJ{e zDMYrE!DM!*ZU9fiYY{cFVNO+kGRmD>Ii~vJ;_i@@jJip0oc_z;6&;dVvR`(wno7N42qep;nEXk969yx*18MYs^#t< zl3!UrcG~Qg?#cDz##eWCRdtLlt*fdSRa@3jQ#q=xwza9QwYj0K9e5uzX>#ZE>D}|^ zcFvtWabe%&h0D9=F6x>&yJPC)`u3KZ(e<^X>j%0q=2!gf`n)uh0C(=3?B-?)Vb+$m z)O3t}=)BZ&6&he!O7mjMo<7!0?_hgiWM*7(hhIc$Y@T8<{z&gpcBnZ9?=J^LIT*0KM~Zh2wb zqeriJ`q<`2-d%Oa!6i38*MHaR3$A%~`E743x$(gKz0b_p_2SH3FHYL}_}Gj8GKRN%wwfipvVbO`n zaYO>e$4AG-s)Rhjfu@A&@jZKAnACqI8IPc-b%PWoEXEXIB}(4i1209ZuU{BeOI)21 z-SNV9S9SIEawCJB&0--*tzxP)A>a|FM1ZP#@k#cF z2Q_KSh_@O+a1`!1gHIYAV_1H>E~E4Bzo)pr^oQpGaf150bKfcB(XnIlKvFyYTyNBj z`WQ?_X5n`7N;r-BcFe9@|$lO#hTkcH(c`k;Umwy`Q{6U-tE71 z+s+$rz5l7_uGo9aqH_4Pjc&YMphdgIYoU%BtG$D5l6c$OTWE|zKHvWU+KV+*R& zV6jAMJ{|;LpFqPNZt?-aFmaG6k5z+@uR94iVg4~BSYA0`767M4q-Uc6*UHog?itz@ zh1-ID)XLgu_<@7lN{yo&U=;HJU@pMU&hk|z4)zB#)fR&pm^lJyl>!&#NJH_i94rUY zb_~UKfSm%!4*_<^LHO^no%3>~6uN;}4$T^uz=g=H#I^8M);R1ba~XT$lkXiEjBg~Y zaWH$TG{unvah?Aqw(H({_}PkTJKCo$Y?(Z3^yH~^U0rn(#x;-Ys%dF0ZyZIbY93wJ z+TJ{&yJNyL%%i1t7^Lgwg<(Q`onD!q7v$P1x48N>pg;_ z;7mr%svJ1Zf7CY@uK-_Ly0O>o?uHM)zy8>Fx19R(EuZ{( z#~WX5I`GwwLw{TP$k)Ap`h3;nr?(#b{_@wqzvhh}_Z|BC9moHE!^eMH{=&H#5C5g- z-oLE8=iKUte&~O6VB&);nkyDy2iwsMh;qPjSbi7VQEUH~*j`*#jAsO4E+HX)#4-|^ zYE7=lsGVkx$r?%S-Vh7PI&GnW*5ClLa^ibvhHTT_6J5L5J<0zWfVIxU17~*`M*1e$ z4t{FC5jM(pjqMlU(XOnYPH1C>al=@;`M?D0>BQO>mKax86fI07Xx9UMRMrics9_}& z^$T`b6~P2`m@jD`ED=%Bp58u0;nCYrD9<9z))=dcms_X><7c!jJR&JJCN|RQ@97yH zK9Iadu-y@#rH8+*_2c(nHZV8HIDqZS9|r9@Dj~xMQqZ34cV_sz755?$iN5`tF53Un z^LIS^)B`U(b^nXcKJx0zQ@5(7WNH4Od<9z;n;s^UM~;B;e&nx>>#01;E+pkz_BEd*H#L^hyX80 z4zNQqLrsw%8Yfb?$|>Zeq<<1dN}TN#|FFS1AXkU;n8@t_ds<=|wZ?Yc(Bt5U?H`@` zh!>C#iIw%kqvdwFMmalE7@fh0%!M#Lv1}Q%GSdfeEW&i49_j=J{t@}{Qh zmX>;sh{1H$jEQsSOq@G!(!2!|=P&M@J%7xMIa8LdoYTL4!Mcm5Eb5!Ouy0!5vat*1 z%aJvsA$=d0)<9I@Ri$nNfEadP(^$wCYa zuq1njM&o6HU5*b*+<}iW(+y(_me#P0S`v8##O8U0#ku(gquS*ka(0dF`YqPjPJ=Ep z46>)apfkFl(_YeTub2{D))P}PIk{^pch6pXkUmf>FxJRXNF!d=xhsMPmy?tB((ZE!|M}7Z+Tk z=oJ?KlI=9#&BFr8?fy}J*>@0i;y>s%5q?7+yZom7^ zyQK_y0`-{xZsXxUJv?{jK&%00iL`_P>C`|v@Gdyd7L@SjfFN5ixfuci{d`t$+;G!TkqbdGzf=&%S@Ocgwbm_FVJa2OmCr{LIUzzS(@ut($jWKXu+B)Y{&r(5vsd zZ{O3;?|uB48=rjc#wVV+^{E&B@chfSKJ&tDPd|0f^UqX`8BKClu$_2E29tsHHmM;^ zDa^lg_f^}jy?V{oOUp+!Tz2i%mt1wl#@##DY}=AkUEY7$=2crZ^_-H3Uxh_40DaqV0 zBGY+#$h8=ksiFY*7w}G@t;`Vcumvk$cl;QUPqf@l2Y><|KY$%P6nMu;8(`;+13&oy z@6ylc)Lfs?=%P`r6Xz}JoH?s$;)KQtUA1G|>pI3%wltSC)Yo^kw*mNVt+lPqqr1j- zOzG*FH+Rz9`QvBL>6|%xe*fCZ3l^cZD<3twZcImM)2Ph4ayc>rj7aPNJ1%EaCQYFz zCay_SkSh7eZXPfy48}9kF*Z^&KEHi^Lb-Pt$z!V!ekIK!iYJM;)QZxv8uAUT4% z0(8Ug8es#$UAc8QIl1!?vT{V5fb)!xQWPVAN>9LcydZJW)Th?iE;<=~i%~PGN7^7T z;W>ffSuu`cwZ}%ItUu<^*aB;Mqb;i`EUCl9(9LONh_6?anba-8CX>y>-4~{R zFF&Zcy+XnwlC$!Woq^e4^&-5J(3+1>QBk3JuvJyCJs*8I-1p$;nv#n29|J zn!)!49~dH+u-Bo2^*f*KNPdMA8`#b?2ey-#BQ`$4YKtH(g`X(^oX;Rhdq!q{etuR~ zwvU%jOjJw?IetruD^M-gSFvtu?i#SI+;g{)Om=V(Wl4xOhC-%eIahaAHwZ7{910nV z>@MRhZIL&m4Y1qH1M32g5M_l*^Ss;+s)O(-;lXy=Hay)(c;@fhzxh%^mj3YK>vz2P z#_i9)dix8n_FcYv>Y9uH@a%zoFT8s1!MC%k>YefK@HGVnTT%*2uKL5B+xFeQ>9&0r z?Y(is^*3I0?e%M}xn|X#J?pOB-GAlw?5eUL!eGOIg#c>8mqy~9?dO|aRy=oE@4{6p z7WJ=OxN7;l6-yWNFQ2`9@yw-*#?72k+*mzt)zZ1EdS@+PJa1Lsg8mh4lP8faLdLQJL7z88}#al{^e_$SdoZU^BB9%Lm&MsKhkM?Md-G5RYDsUR2}_0mS5 z1^uW6dzGr$(4Px#E8PVSFh=|`FfLLq4cQ0L7kJb%JW3crc;t54$nzYQvv7O?ShZ5{ z@+C_MeQ>-YX*Z5)#ASEKWjpvvO(7nqvZ9hF4cy*&^$HD$uWo6 zF~J6T{AjFSzh0l3MtEGRPp~z!sIa`gzND_UsJ4puqs)>*m>-L3s!AJbD^y%kBkhu^ z($cEZ^18}~F)hklvSoBheI0bZ1jH7Qd#R*2r>KyW6nVwDj>nfa+_^LeJJM7zdLK)2 zp1*ZKnRz}XJwwU%>+cmBg`Jcv1iTA`-r$2l zc%@Rz5Mzluhm#WxT&4+lBz|5cSsn@Xx2LalVBGLn=CFhhe{|At2E{7X+#v~e4c#A(AE5FSoaAJ`WC;_@0MFWZq>T*si1tr|bQ@DLIN5egLG;^NIT zdg1V4!Pex+xXj=%3-AQvRRD%q|Dmr8i&-WVxg5zwD>WzOqk^gv$UK-58y6oO62htq zUUt?105@zhsPbjEA+`D!BWhqf-hISVhet*twcm8R^a6|y1S>Op$P_rV0(04 zO}X?1&=z8~(Dn@q95=ap{?a9?EL*a8 z<+8s1l}pwxqb%RBdda%wHEoS!dd4ojXyuarWlPtsUb=40{FTcg#FlGutPx{)+Er8_ zetL!gk9iu$LZyu%p2!25ee!|&sNgmvV?O{E4goI@R(63(DCH6Wa6Bg|GypV^mNys4 z78vBeB9@D$1q`Hs^EiZ4<6gpc5$Q#|=PM13>NKP++c}`j9h`+WXF(x@+|EYFE0Q+Q z4YtGSK}BlT=jXy-keQKA7*uLTT2^jOUSRf_YI21tP=dJo=_jB5Ew(>+--C|WP5?DD7fz&2XHw>2#`(&NWbOuU1_aTF@h)zPAXI55 z(dwarRNhu>$4gf6Me}y}2k~|w^C0{<5gFk`in{YWij7SJzD6`abpdw9r>(sWY`^xp zYiY>h%Msgw7eHpn>?zoum;XEQ<1*kuWM%eIFQ2csy9(wduaS>`Krm`{3)W21iUaH6 zApthxU;+bOTzy%gxOoPJSkeQ{$+q|me~hW70Nk8#gx7a)NCS8W)!FDcZ9)D3En!4V zTy%6aaLo*iD31IOqYSR>s9zipq9Yohq(*KB5;-li0N9SW9&L{WMsi^0FE1--Xs91M z5h@AippfY7jN(zF3hU|$tIM*B^Kg+*EgE<@h2LJoJEO`gBWIL`V7tx~z`t0B3a}6C z<^b+BL9)?fAO;xVuq{)4Mg;FCxU(iW^H%@U-6kEAM~q;@clxbJPAcd++MM z?zUw+uU@ue=aQ}4mTca%eCw9JjT_fqwyk&FI)95bIw`St?V7o(SIk+xV&1A1OIEF1 zylUy>5}m?r)L)y$dx+QU^^r~ zDARyeZ2w$VLMb}IZl9q@L(xNZr~2Q zrGRF-2HSyaWN#5}k<}^SIhq*?4Zsj!M5Gmv1jeOcJ`-%GW(!9ER5>#91)$1#6~Yrk zWU!XW6|L=G3uS~LHoz{}u0?l|+Xdcv-DEcqULt6_T$47Gp~1cJoa6JjE)axR`viO?5#AA;?U zqPxu+9cT)PjkKgE#b&1^<+G+uPA-J^5m3*|F38Ky%g!KwbWwgzPIgi%a#mtgVsdP1 zW(o)oQDkmOesNW4Reekw>5VyFLnlmw6T?jX0j z`I&KggxWVaxxzoDfRr4=M!G@@uOIAS7bfJbzDl6dy$J9%m4`Fp#gptUN4r|KCqx;+lsM- zr@1)0`vyjbMx>hw5hbv61U?9X;&Z5vuN#8x`YVly==dm=nKd>tG7?lr9|N!h+Njxm znO+9vcA2o4v*fpMxQ7G>qX@IX*E7e?Mx{oM#vDMAoF|l=%dhQ*(0C z3X9T&;DOxyZ(s+b}R^g8R&*=7wH`VUQa!2Crk;&3u<rm_sO>|zWwoaH}CJi?)DYC_AcJKqi^eFy_+{JxoGX; z^=lWd?eE>Ne*T(%&#+KSgl*}XRj5`LtX#He`O?0neSJ$8EnGT(cJJI-i|5Q)Jg0lo zc$QFwD^9>sktFN`MS7-9oIYpz^x4xWGw04&(7Ry4^7*~}OO~%+*0;8I#l_23 zZdkec;#F%ltX;e5;%$4bTD$eq!m=`b`MQD7;^#~5LNFHnFe$vFC3md{QO1UdPM|TX zSHvEqdZqvZotOo@asM;)$-tLLr_^AYl2Hc@tiU^4Kx~n^fj;nA!#JqUzxc|32i4SM ziBfT?BD&KC)v4Ky28wq&z^M_RfJcg&kBELUB3tEh1ltAGHMS$VOF>-MMcz0qw`+Ju zXxH$LLPm5lTBnB;gf<49j9e*ar*OSkiq(J^(OzoCF#-hm7fB3dIm5qHSH1lhC8T%Q zW=NO_>x^_8YTWi~Ozr_ng~1_wEY$)#rT9{JZ8<)u~fezw(H{bfM>u-A7mFHf#_WEb9Jag~*v-hq(bK}ZWH!k11 ze)#0AEBEg@BM7b=FWfkP_1@L%Pio*yxpMmo<>K{=2UiYuF7EguzV80+bNjnkxntr! zG*T!Ohw;lL;m(DNXAjPA9-QBzT)cGd>WvGx?p=H8^|$XmedC!o-ha#6UwG$_zv~|n zKK3VG{3k#A(?9mU_l=c~Go{=b{=#|`WUW=q#2po|(h?5BDz^x{WAuoao!m)cDv9_} z)~Comfh>@!3SycED}>bG8<@{e8X#l_oP~RbzlA@CZ|A2Ju$=4SB8p$UaFJYuY>cYt-BcJx8i4jP&giLYqi1wAS^dp6A1t)S zMLWXQ)G&n{2F6HFt1|*;jwoIlKU{lzXOYjV{bJa|4E|?Facs18LUnSHOMmd6eo!_3 z-ig~cYcUP#4>{GUDP@jr&%ORRDTH>UyyNZf`1zmz`Tz6>4{WP=jvxQ{$0d4+3}EJCPyF%gIj&>d*bo=YH~^{v zk2UZFg5F@zAC6+VO)xSNZ5T~3=J4$ecq&O_J|!vYSTnCER+ncQj21&E7WGBKv2+@7 zuGQB0_lX|=2?J~p8}yVK7EvMA}(iOa%6ju7VVX0>JoL6cTd^#sOughM6-5K z-LT=W|1Se6HtpJoq8e^MpLqgo#}8Go-EA?rfp@dcV$>~coxS~zA3OitTP{BR#!FAW z{=(h6m+#%aeCOKb+gC5$J-l@9%0<}nyEiW0y5WsS8ug8<=hkjMeFH%XTsQUMtt*#r z9A3P3>C*Mf1I0l?*z6qa?jG!|Z*6pR=XdsZCnifccg0e%h2{DE3wy%1A6`GadGFTk zr|#Umck|Z$Tet4te)9ECKKrKUo_p(?-uk0I@|Jh~@SEQLmf}P$_F(<35tI#^Qo>=-eDYc=Sw`e=p&HzIie!-02@3iyIYg{_4E z^ng1EtyFPa1kr-zz`Hq;L$c>1GR9#(}j zaz_tiJCIKK^Dq86wR|%2DN%y}s#dO)3RgAaXj9nEbS7?D+$IHt=LV^{Sy*%e`8Hs= zRmE`30@%qoXk2}D)}y81yv%y!uEixny3M4ca7nx75w^?RL@mw0c9$z)*6eU?PP5ga z*9R~p!$#OnY*Let7$XiVKdGUEPFs)wN9=)iSi`XNZU?-*$7%I?92DTatEXm%$wz&3 zuSb86`k*>fBaZ&hU%?`UNcF%jtz?81w)+QGEZLH8Xu~tG9vD66=oq&o2aTb8t1D&* z_8ywrIupLwvVCPAJ?O*yYU#g8s{TNn9L6mREu>5}unbQJDIk%y}shWxeMoRK6MM(__cf2Z#{kc&eQj9+`C2l-Ae~%r)>kB>Fpa=Z(P4}XsFO+{~;u1Oq{o9c@PVa|^ak5SrJR0XaG8 ziHQ9|;C%z2uc=w9wltb-1YE7g6C;bO02(p}5Dci7{UE(8Pc5MpaCm0T%bBHzzRAo3Klc7c|gG@%mGGeibVhdgB$>!R6kUOf!cAg-tyYQ1> zyGDHd>k5d}i=n+LM}e)hoezDF?EBh(`aJz%?b=_6cHeSmKl?^?OK5!Vm9+iY<)oIL3;nnHGa*kSeB&3-3J zM-9NibJ+E;+X0e8fa(;#4R3RchVATe*(pA1L^ol7A`z7{t4~|Hq1E-{P)|Q-aU9## ze~uxT!uA$l){!fPM%F!jbIHjA-{`sE@Me7Wig#c$I(Nr6ylu-)*s>+*(!;f@bH*GW zmi?@_>#n#k#*@4AsL`!}JjGiut|nzsgQV?~K`lDKoZtm=b#IEiH|9i)PsNxE2&wbLBqS zsD)!X(a>5|7Mo7DSsRS@W($dl9Zh5-wK<3*>(j>Q0MC6eMT~jRp1rPRhfr?=ZA{K*lV8|8yL@hU zYkz0^{NB0qyBDrpxNznC)mw*`Ze6^5`|{!KD_8Gazkcub?WgbGedhk1XYSsF(|+pC z4eF=wVDWPO{++|yHzS#3I-i5ScJKDJySEN+UB7Yv&iyw$lkCW@o!z?s+;cmJhYp|b z{Eh2(-tdOIZ+zoZ&%g2ZGf&@n_L-+&c%E|i_0QgZ^4^{McVXaP{{zq5d-g`Y_Z1on zxp!78A-{jBTn+^S9-l85iLi76)kzcN^7$di2XTf-6;(mEo-9rT)yKI>3tCY; zU#L?NBZGAym;f4VyasDkE*%VqOBYDjaJ%ZY1dh)7Et=6k*9{_d;Ktsu7U@Z(tv`Bw* z;zZcvjyh~nklYEcZVuY5A((TgJ>qgisGWpa)Hrqlc4(kJqBYjQACUKh^B!l=TeI)| z|BvktGwm|S)C$}6feu5s%aRzx7l|;xtse3&IgFuBW4PBC9WX|Ft=TbK`=pG?!?mM- z!`fXlc;>&gC#5b^CDbqq-wv=NnGvS_;SmI3TYe9pXbj^&!g2!U_dZ6~InS z5vE<>T>(3UV7svH55G&Qd#~*EtNubDQ!gWGHefzvHG6_&AJ*ACPL~zy2JDO;JK2ac z07_pip=6u+wAn)>MU61ITU>FgFG2!eGvQ<%aL_uN&4^}G?j4oHt6@6~ymU)pyDt(7 z#Bdpn;-JaJz;?pL=vk)MVLPZUth>T?_;#>eM-C+%V$i%It0$&2JS2)Iy%`f9tnbLV zr^ zG&P=T!xE{j8NMB{48ZQe$=9rR+x1SnuB$t@vbMIixv{ywiNJj4;<G1S-Zb~=N>Ala5l`3j`#%x0(82fX7$ ziSAA$Awa9c?XTgyxfU@JR0qZd(?InjY}Y^x9u?Of<=q3kGgHH#3$_b@D@L84z&JlO zX1>bCgYDpd74Wr)WLy_kd|4HFrc%rI zE*xF`bAL5j#!U-ZUlp@dQC(Z4K)|t6gVp>C43`mL&BCw{^-=ACpbh_(!r&mok<)^H z$F7U?6-g}K^jPV<=O5MLC>q-k{5bG2K#w2wx)SI~eXgY68S~m>E(ayyamC%vu-zJQ zXc%6P?V4D|UMoTPc@W<1@HuNjA;gt@AoYEyA1k%chIq9$YX7mXk4L~Jw`qv>+p^>4 zWYLlycXU>Q#dD6_1gh0GZ`Pa|V~-=h;^zV0dB**Q{6a&uima#BVg=>!K<+1OuS-(O$b+gRV**w|m& zKG@pY-`c&fzkA{Q`NK<>Zd?V}uid!?XAaKadg|WQ`*+Jr3#~RQ{w6n`efrYf+v9T; zk|}KN?<}9)>K-1nxE*IN9&GKM+t}US+&eouHIeRY-#*wqx3_tAZ{zIV`nmnh{R`&~ zE|R!o``Y#G+qd@b-o13~>Ta$*rAAB|~KMS&4s$&yEQK@w>r-)w-rUrDzdjw4@c9og_FWM`>IuhV&-Q z22wPtK)2vIkPb}&`DtLbyUFwiW(tdo_ytjX6K*f9W)zx4jl)ip@at%J>5ICTdTi%4 z0N%mIW7w`a;#C8Is-qwX;|#!RrEcS`P@6Pn*(=Km%?%cbkjBPWQ0Zj0DF7blL@&p zA$QW}PWe6539mEkutZ(9kljpy)_#KIHdDx9fwu?PDe&`J9vN$G$@3c6&REH)%38Z_ zcz&)rkXpsZ^6*E;y|4*l$mr>OX;W-K@6VE4$(9*4hP(8^oH5pK&5SrYOP17tIofTE zbm~JLxm(}br>6l!% zzHYR|^ocQZY|s>Xg<*evn@7?h48Z>Izkqi^bwXl7fa=pnsjNT`fe~$dj@E-DS3;nK zXU!wAox6~Gc^KH+?0%iy*J^gP8tef3Y1X+0o5p2fu-8QFFG9vN5*6Q;956Y27;0e# zPdZ{fu@y1Mby#g=60nh_r_D=X6jRMd0G%oCm~gf-o*(Jk#F9bKxfxe0kr z!|9Xy)@HlOfcLLmr*o1T8?lVdKq(CNtSv9BZY-{xTUy&$re4}!SlrUe^5)XY=JM+1 z^2!GF>c-jibGzGn`#T30_V>NF)x-V6i?geXSU=zmd#0Hr zv#0U79-bIo-dbJUSYBLTT3B10UtQ=Q87PbouWoIvZSg49ch0Tt@2(x}tzJ6VxO#E> z`r*#C%exnLH`2+Nx*bK>ZMK2l{zNQ+WxnR>W+ShJCL*qaswQxN;HPk#0JVnFRiQfZ zqY28#!iw5pCZGp1nz?s#6UBmWtz|)ScW6+!OyCY7kLUqA*_JqNCC%|s@ z+e{j~J3x4|&r+Kf1!vSJ@YSz=RlWaUm!P`p1BCFgY7dQ%$=C&8Ibl7v+fyT^aLyd* zGR3+~k#19@N9RkCVyVTQG{uGt0faMsw)Qbgvfmi#)de~%so@r9*qkf?{;l4$IXR>Y zw3|{jJKlP1m!8*u_;g8i&zu;*4u@&Q7}4U=kc_+89%*sLTU|+(3~ipyCVQgUov|bf zgs*AyX1wi#n2W2!|6T%s0@$Sn+l6(PqZGU=z@(Y{OW<9NGemv=>#;rFQ#A3=Q~l0Z zr#saj$@G|<0gFFj4`;m5l*4Ijvsf*GxW$*&IRmbMCbsVH&BS6svY+8P+S=Tx*EQqS zHEI#`w*nSgyXzK z&=_gMt--eg?7U72+l{DxabM!ow^%p?B(Daa(E<_j6Pj~s2J^%)!Fb~&Sy#`1%<%2h z>eA}XJocc!_{A@N@{^xr=P_*OaB_po;je-1iglMfda&-Kw6eLdy1ux)I=`~Eu)4Mgy}r4$y|ucv zv9h_bwz0jry1ub-?reK^7b&PVcXtriZ|$Gm+}qkZe|Bweb9QaTXeCH^>*C7d{L0+i z%G}J-EWl0;!iN&!Y-jh%`o`M&+SbP6*2et7x#f$yYljEhluNrC``at2Bi)%AGzcCI zZooF1oq)I4$zUOaFR^f&)D!?pz!_ME0JsF+;n=}gI0r#^upJ>hu#A8mxjMB7*tI2O z6`wg4F$D%Bgun#`1sH)!;n)S(Ioxdb;M2sS0KOdkjO?bCyI#yWs69l-? zVO5TZ241?RPF2{>Ruw7mW_8h}@PF_D0e=iMg!@5&z0AAG^&~5fGB?0&pxfh_D zGjrDh~zLp%w@Dh;L`rAU%Az7QP+mkiMCTHpa5e?h3h&``XYT8}b42u;Zlgy0ZvTn*RC^2%!r4g*`?bA?d=em%Ck zyXKtjV~$MGnJZdT1BO7xo*uBqyY0yVy*F)24x8fxuD%sd@1iv`>S!iksKG1H6(8KC)4fi_wSJinGp@pxkGc~Elc7R<9AP+v%4cP?S zf8pme(SbS-1h(;?`OIf(ZH_w6T_|if1u`a2$mH~~P&L?nERBg@VQ~0yg5y+3V>B4V zIE`4NSZCX9c9#eL3EbAu=MXWHJtX9`+cZIl*K3P}-QkGOY_>`tlq-k)1m004fbF7F z0NWMQP6NDI!CS2B@lYq`0FrYegOOaR@hF%-{b3WajIu((_JkqYRA%Z;9WD~ z{l7mehpP#f6UvR_!6eo)=u#25lN1VU2iPe-;%Zv4LnFKl>GsScg@Kt$c@B67cUKk` zmgX>4gjmt=e0FK2GBZccoXLfy$)%O))uq{$rP<}h`Q_!MrInR|LV=~u8?GB<_!P&^S|T_z>w z{MpS#u>JDh`jvxCDd*3vq!SUjm-?DvaJt;SP)IY9u~@KyY_n+Qe4vwvM8GA$99)9` z6x0H;04T6sgx)|p(s*h>9&k2TonX7hc$@5?v`hptBUIIkc4QX-JMf4!hFWOaQ)rJB z4e$;>%(dhwEIyI@q^HdtM5a0%@ z{IkYpbEkNwBkHNj^HJh!_6F*-LTDYXMk)rt5yj94CNH@Q5i4;N_X3Tk^-P<_oOADt zo&t6zN5+t$V*s^jOIQ2EIDdVg>uK@JP_7w#1h@?IjU4Nn{Dg0hdmO-c%#8_+CXE5! z16HHYtfvOjeb82;8>PR+p#41J+a;b7o?N1UfZ&AUQ1i$O9oxz9%2!jv*dzJFpZ&?7 zi8GG0ceamKfqlx`yJAfa839;dO6SX4Vneq0pgG!)8H_D6WeVmE{!UY9z!d5+h5I4& zfj(orU`h;|Qlp0OE3jRS6_)w+&zhx>T-4q%WsDci$x-kKUVYb;Vm;G3J*>vr8B0YNOlHZhaV$ zQLQIxG%#o(u&{IkLJ3}&I%RxRuhbzBGL3R0v{B0+*y;K?k7jbg zMA8$Ay243kAlzoqm>dwEbgC}5(~O5ShFW&3(?{O6fZykI5yZ%4PsTz4pR28{CX-QC zL+V=Wd3Y!P#Tk|m?wV+yB~2Yitqv4|$pY2C(*Cm(aXXNUF&;u9HfZ+n0t?g5Pl0!8 z5MHpIf3a~D+RJI>Da#nX;!Ugmcvx4i@$CeeKiYUMZ~dXSNZ2zA2f9>> zrb|6TsPRVPS8Bmz;MmP(AEDg^+pVU;VBg&A)WY1%%HjfLd46tretv0gZmu%DK*IUS z!t6|Owt}*BXp-nn6C*Q|<8#x5bebzoOxPWcbS6DJ2d6eUIW=CHEl*C5j!zC3Cr8Fg zV_u&(5sOsVKV6)e9-FOipLF{Q2G0OS@~Ac2+5e zd+Yn#i^*6}-HRf$F(r(E7O)rPpuWXyCN?|KXh9@_Rv2bzkP1)&57`MWQMZ6vMBm4b zQ4_Fhz>Z`FrdqM?B2gDK)8>MzOD3m6c&@=?Rk8s=0TL0#PylwUqMY6kvjeU`TvWSa zb#l>I_a@S(6SBa{waB4~!WX`s00`<{9*ON(wkvE`Ex84HLgDTxkDqR&fbF37NuF)h zVn-SiUQ8V&eP-UF&tSNi0MTuMbhvl^MO~H2*X9oTuSO4SXAoGt$S}6*YN|}mkN8Di zV2CgM#g{1jq&|l2tYn>TuTHO1T|#EUnp%DW?4Wwm=Rz_=4Xs#r4eF8AR9Sc7-eKTT zw#tFzsG>j%ysMKxOr*-^I~MM?&tA<;U(S?j)_@AzYhPa#+W~g$2~}_vPUUPb1%|i7 zqx-SRYq818{{AI*=a@S;;m(z8sUcge*XT>P*rT@Ouq!|B$c)<46MBD6@6G5u*(MvZ z6j=9cn>#7J;=_FZ``-_w%ecK7wwsdUx=^9X7He@No1Jk0+1|b4=-UX+-E?$Stm#o_ zVLdo^+cmImiVgzfI;N7?lqpJ71XKe(I&Vj-E3NZ)Q@44$bfH0Apd0-!Ee)}uhsQ_Y z9bDIl57eBeAV77B%FbDTp!AMS zu*AoX0^92?yZA2=fDyz1?7%p(7dGBukeuD@5isZE>_LwTpUEZILMC1MH**?~P|HdL7I>e7lD2 zFzv#(5A^}F^RrWP(-T$PF3pt3rc1?%(ZT7`U}?0kJk~!oK2R$5PK@-Fii73RVX(bY zE}@lZJacAbXkcMxYG!JpG*%cX^b8Gjjud+e#h#JjexpI(oy(3F2g;>^^7!CXsW4q0 zo}C_@tBftoPLR8PZMo8wON0Xs_;!tT-(I+|J$LEc!sVUC-L>gNM(zb!vbe_8at*18GkY z(?Ot5Ae}a#B6uiFJ|M{k6?Bz*gWyRO~~?7G_XYJ_rJq5)hweU=V`?Z7w_8J*{LLY{_5Gidcg$4ti_?u%M)bQ&$SkTQG`pt@|lt1!~M&tSWRKT<)E5T9y`Z<|Sa3$V*u zsyZ(+nW~!A54}B)j* z)J4L6#N=|q?*-ctk7&4y`N&aL6xA6evQv8?#3EGokm~vrhr*l#)=1Y$eo6e9YFJ?5 z(y2MOV7n$r(NgUp^3iJcV-hLnQP^HDd}Ea4XFcBzs%t_jZPUX4)OSqLU^}SJhTy9{ zWW8ztaf0BP20gk|pUv*KBbL#y-EBAb_vWW2$IIh|a>D5M8838C4EL5s`pU)b z$K;b8@_od7)hFn;IXSogAK@E-q9?*A~jF3+45tsq%Qg&us?qcQQAG@BN)waJL{mA%zwYakvoxihMqE%lkI_yW}@&A@g^pQrKLn#>tJ zDH3=GHn%X_oQ$Y+AYLoFR8oi%2MqC!p6E}lEk@!4=nz(D2exRgrhp`2{aO*!gXA`^ z&f>DUf+nj6A03kg$vozQV56pog&`sSA!=E>%V#iK%~pFT9I@K$nAKZcM-jKG*iI}U zL~t0lQ+Oo=*ui#q$a-vtf96Ku-X9*2V|!#Nr*vOs73wNezKFL5O~f=QnVx;F7nP0IiRN1;){?Mm~I2J6pd+zAsKrGLqa#q27NqO zvrDhS8zy(}Q{9Vu>PXoc;M3<4>Qn+<5g z@%M1)3^kb&pNSw+?Q=Vl$sFU`P2pa>zvGM!pQ}!HqVG&I$#C16@cfGp+0(=B&M9l8 ztHta)(a?6f#d502(qwSz>_KZNPXtJ8Kg|BD?MT>8Png%(1ly^Jfxxp?@Gf1YwkHbC zT*=$B=tz&)pgU(hJ&VrVG&6`f3}}zo(^J+&(HQL4xif}fzcE&H^z4{pWpiT2*|}_s zPnrS+gMZW*DI3EjW4Pbm`C6(6bzR}x;n)@TuKsn5sK<8TUD#5^x5Eh|E>`gFjb)vo zgxwFM2h4WtY>{D-#o6X`yR1$}I2=MBLuR93I2;ZJtPXdsJ#9m}ZMO$P_&}K49!Dhn zfWdn;3Cyt`%1@i=f$&rI(DQnko9sNsx09g>C;AhJ>X{rG8wi@Gh2=ce2!vzKj>{5Z zXi*n5G&K-wnP_KEAoe+Zirk8*S5F)Xe-ySWJeN_Dn$LtHS7#;y+d+7QNT*Ie(8kJt zr3TVv1LW)X*V8cYFzwaI?N+Z%lebsJGKTJ4vOGFi8tI)F2FA4-5H64OmW#dRLcTnl zFBLi`N4h7di(r0#ai~8U3F~!j1o4|3AIj$v8fQK}Se_Ut4tI@?bdMA|M~AzI`ns$p z!^mLoSfOiTI6n!nkM_?@49!grFH9AeDr4&l6PqhjVEg9E%s_9}@3ziO44>avIKMH! zzh2o|7>kE$m{5NgB1Ztow@JVVYubu6W7U)qh8e#hO%8+I ziw8 z3wy8KV>QYp1WO@8xD)-Rkr@-ORh!f9ajUZ_)>lAM#Ty|zk8G-?)2L7TYl>8{U4(T9 z<)lH}ZKWhUHZ-cDR8o3x9|1bP{G~5b^VQ&hL!JmqmB)FodhMK8 zBV$FVb6N%aecyZE$2co^=UAb+sd_;~n?2a(iaC=*-tHM!=cF$`~>NS`s-Wos{6(lfTqjH7+dk*#?1vzBPLJzX(J%9hxiJvCh|ViD7G2yb3lB4YYxI2>dC$oWg$`?rlA)-llFyzE7#bU*kpAfEmzj&7ue#+wZI{l$o zI>QRrAC0=)UWe0x2a@W5JXuKss8RtQUG`ORj}MS-cXt=lL{tfCZ6c@TZG`1emq6D_ z82-mkKJi4uiIYUR(c8bTK~KWOGtDjEf9f<@a*>{#Xlyun2GhfnkDoq8l0Gsz5z>V` zM9^}cpZjO8$ju=`^sR4e3mn;){-mYw?ZEpnD@yK;Hgb=&q|YDxsSh6O`R@KMMfDs) z6s$z*AYPN#W_DY2z1i4Qv1f9mXA1a*buU2om4|yLhkGl9d}XA&G}r;WmxlAB1MSI( z-+*#fuSWyI8ft1RKR%Mr=VFr+g9zluNBhQ^5k~vV#et4=Lf_WX*WEEW);BrYJv}-w zGd@%q8(f$y&X-3Pr$*Oif%nqJ;^g+~EW(+9$KlkstyiY@R~HV}X3s8+B|`4{o(qjZ zshybg4i8Q-coXBzOokNAZdQvPhIZB2q_;Nckd`A7A<~N$QilJcwTA}zc?Jkl3|1mv z1wDbN-R|~y(dGoSGZ5-rv-gABN0LJbMEGzb&ufA|IC&uMG{%htv9UYaaEfqx0ds@N z5eP)_f3sOwZYD6B$3aQ6(8X*9Y%~~%?T_rv>-E?y7Ascv@FYhDUA$>WkNWSv`8Tgn zsmt1p&yD$7?pj-nRE==trvQa~j{*_L>hgH`;h}rAJ@D!*VUSsAYTs%?SjpDWMo?|L zi&>93)a-PVX+@nudR`BY?D_gvzdl^uKmZV48v7i!T)4LW5=^fDl#*V1J+>o(SC^0_G*%Vr`f+p(i8C^)7keFAhxeRsvjVJ|Tq<6{^NCmP3 z?nuU)=<=oqW4)8kP{tL>I3sCiC}s7=?EZv~aK6~6SbSz*(iY6&Xs<4$2%e)nGP!Q; za&`Tu!>VyT!P3B$9&)6I-05Lgy6DY4`mtKWJ+9;s6O9#LT35p8&6$Ip=1`X&+LMtJ zUb}LQQh#!cn$(MQ{9QU4pn7a)GCcHoG+%sbM=0R30m!$3};#F*sopc;{5w z(&&h7P?u2H&LO-xYQGS&mgH3OlYBmpJwY5Zq%VY`vYu!(KXzL8x)X%cKTU*$6OB5e z+`R6I(?mSeLi(RPfsG{yPl5ivCmxrRC~U`9aTG=ugKZ1bP@6>?w`)%}))?lnU+f(9~FArc|6B9~mq3K~Ikj^>$_(8%_s( z?#YS%nbLql^|{jU>_mZju{@-~`+RAAae8xQ775J!)Oa%NuZ;Fz+FaaSm`FYf+p+oa zIPLA}RKV-;xm}rL0&7q58j@(nh}Kf`Dut8BDG7Hp6UkFhfe>1sQq^V>5T<64u4UaK z^KLXwZmdKi>Gt?EKEZ*j1>zU11hI$Fq55pYCd%bTT}$SeMkW!9r44*`yTe48^LV{3 z4=E#h^Ibu|p9s&PNHo`(hcMykfOH)VJFX9Uy|&`?`!SuxSk~#RF|n_K?Ys}dz$=SZ z^rvDfBQK9Ubn0V}u6~LXQKCYDsH$N5t?UEU!WpX`AiXM(v7(%Xhev&Y6bP9Ns4gz6 z7KhvFsM)t8^iywaJpuPFs9w*y$AW=l*k1qjWdbg^dWvXNk<7>qUOa!1A~ZGFuE}a# zwGRA)u-#%J6Me&}rU(2d*sj1_8^c#_3ft|mqS4b1R@;JI?)YGf(M|pff_vMsF@v*l zxSV!70t9?pPB%MFH?kgdH#A#G@hshDcxB_KGGmiVJrdj1WTfu;7!l|w9otj?)88>3 z?ilgLdTjo7vo~vSCR%L~og;3G4yb1T8`uu(t_}y=>xT+pM-)S0r&@c0?X-t=S4aK5 zgv}Rp1cDX}n*$-UKWGjmt+Vkcpp%d?+G^SSA4i`We{*$MO7wKwhwx2wuBXT@=4rlnpY2D)|+nzYt`uIt_ zYnxA;#F(LpMBCs01TmGhK!v11k&DV_h&?m2XZ?r?&9&6!z;;j_?j3lSV*z&F&-!~* z*bc#HgY7cxg6-54ITpU%tz}{|6A;pA*86OR{*EMgK07`zUmBbnAE=D>PQ%6zcZ2Gs zq0UkvpNhKj+0gJnZlsVO>g~4bTl3jCa+}IT-{SP(LU}BoOwE_e^Q97|GhM0F?8N8{ zTz-3s;KH5lsj2b)+42Bj4(l%5JJ=5EzC1O&HZ!&Xw$GQhSLWIi;mx(V`N^Wo*s@X@ z+FLBA9wl#g+bzR=9sQl@_E^wiXbZXQ*>EtQh;$~R$#9TWoY7!5VZ5iuMVRd6IF@PV zOaN>Pi8J*8zJ=6){L^T**`4lOt|JsAcXvGON8c0h^1-^j06T(lF-ONX3ki8EHm^BOx$ke@BMgaW!H5MLwDp*H?RA3iN zYIOiX9t1Dj!_QsVNZBvXR~iep1Ml)vJ$eP^#|TY|`1W^5E!?u;p;*)d?-ccdG2fZ& zZq_rxv}@W2On?ZIfEfcZ*ZCL5qD)uTno5+D&_e}}^>7IoQZ{aQFF;iE*0%e$MTtYJmf#q=0Bs4oNOX4O5|i~?Lq*%8sP`etNy~T znwO;ofdz}ohrCfL#oX&;(OuS zUjy5@6_|E#29Q_S4(qOzAP+O}sso6=)fA6n%V4v?L0R1%i_=YjIg3ApR|IB|82K@S z%26^nkHmHvR0Y%!BApY2M;fEXU)~&1E7Z4F1AeC2aN-o7!r7B&Pw z?(cuR`DBCkUouFXJlS%lffR>2f)bM}hz8UY>1yp`tbf*38rB_ru0Gz{GJ*C0JMa$3 z%dr6aYhb%#+Gz~aF2H^a+hN)rCOtvJ!1kf8%tE=aP#T;c@0%OzrBsSt)5Az(x~37c z1L?i#@u5z*_wnJp(`qI-@WfD_HnZd13zPjTKzw^#`HX*JcAz;j*aNY&IL_ zn!r6N%gK{Pm;&@Q2>rUdyN8E{#)e1ABgH~@PhYk@5{;UzHV;V>EmmS0U~dU%qxZ4d z?Or!Q#eIozq|nnfIoREsjSh9CCq{awCJMuY-Jx(e7K>#t>Gyic&r54}WxCwkaovH0Bc&k;FX z$}xGJ8dBu#7#1V265|e|$ zggYXBzx)&ynxm>CR~x$ec}jieW@oztdAnw>7mZ+d?Q_S;7!vTr!@g8Bkd6ft5kEvS z7SN*fJ9?iuh37H>47102%TJk7Wloe1tE)rE)tT#2!BER{rv}Xw=U;zL*(ngAdTVk; z3`Cd@bekWR6q1HA5zBxm}gN|tPZcw>U3gyV0Jj2e&VkC z?M{}7FzrrIUpl~@s;jHfBlFjv{n?)hma6Ce>Hqj?S+NR#OMl+{188(si;2UL3q zFkh~M%vQ_wqi2B+_h-fPlXOvlfZpUd-C}xztbYw8YlgAM61(*zIZ&P;&KEJ~$@B^v zUt6-tnbiYZa3<1O$|6q zBR%b_Gh?gMBg>`!MOg8PzPZuvS)hBQYks(UVWhh<*jXun^IgOFgt@J?I~AK8$}NrO z7bvBHWdu5z=t60Dd1`dEG7eC$RK^#l$DI~K(C?j{F3*(FpAOEJG&u~A4!lzqr-~bu z(XF|O&Dn|RLT@VI80*bnSev`FF?VreesgXj8+HY~HSvY?Txy@qIA7{r81K2hyRtrA z%##Wv7CKw%oyv!c?ZIr&o(X#cE*q{}CX*2coRu_7Vy`1}Nz17b;ljtC_d zkHsUA&QyA}GP5vVS}IK@;&Fcf3B0ExmxJX-{Y^$KzZZWBU(n|xw=U>k87VAH3|2;Z zXD0^dr$$z0$Je;w(a~%s6OBgWu~@#NBSLa_kE@la6GR-+>m;R%7C!4JySl=5^`gql zz>6V-d~0&oVru?KY?s$S4w0G@)?@ptLAn}MgfJ8WRW>7R$H-H&`M0;U5*{IFccN1O z;Rzk!@;GbaZs{R!DO>$@zwn1&5NxML1S;pxCqwyIjg@6jJ+{NHgX-N0twBeWQp5H~ z8sG_+B8I_&?eJX;ks2-;2ku?IENbb1$wp>1KW1I>Q@(4}7((5JV46Zp+=?6VEN->y zt>G4fm)yuP;631p1wD~~n-UFbI1kZcj+nf?4XxfV@fCcvP~LJmsUODn`f(E)RHrfD zDUi-qe>gOFer(UNpTUmNbpJ#=+vAUQxWieiJ8Ji*&EAAHn8jkp9`102a)Eev&&Z5A zP_UgOL9&NO#?^T(>#-d@wQ3I={BXC~^Ns&e%hSP_^Jswd;li*wN(kUx`FHohlLV@8WuruA{6$`jeOsTrOPnatxD zKQ`+KN)OJTYG{_O$~oyB6CY=Wc+lZ$pi!`0z2vWf?X?4|>pNyKit-IPHiq&OY$w;A z(`-a0<8xSicH>A-c71MqV|H|Hy09`ixH>hoRO(-v=vx}^+bj*Oj`gpM_AeHDrw8+K zmpSJ1PLB*Mjdib;x>icvOOu0e(S>|+VPa^tGP*H8u|7AkQW={q74^*x(MYH=IW{*v zf=s3|IxvSQrc_v*99b+6(`IXCY_l@DJXsvfB`d|gh0@6N?S<=Gb2qjYFK;bQ4)-*j zKJoA^WTWAOt(j~4i`RB$4mYRAd(tVtbE()f-Vy7;L&9T;_?@KraafFgx0ATayg3Nc zLtZ8dx5wj&hC;=`!LIgPC>V&uq9n^r#v|o{{e|>~Ur$#@E|acIj8zJS zOpLq}I+MQ1=eGO3xMQ#sAkID#@9@|Biie#q#<>7FizHG;i6>NWa z^kh#H7LPgq?AeZ^nJx5Kn6Z0}FSy5cp^2H20;@U%y~xu~xr=GU-2@&Ma~W0$bx^=nVbSfQ}J z{_+Z<85a3|rMF&}6PbVFD0_k$^ZH|jMz#QP;Ne=6k5h6Bl%baNOK6bM9tn0D8{z)mC>k8klc(7M{cCWVI zYWLu#VYd6sj;Il^yOTr8E1$3p2;IFXF^b?21P__3?khOU~E9nj;I zfL*7^^99vE@{x~74aY8hfOsUZbBMxrLdD>cVaH0tqDMwS5+JA9iZ~a8>c>xM!uFF5 z1T|~ZArc_=Z)=-oN>3)Blh{9=Lb@UsdX0BXx?PX$qE1!1R3(#<;nmvLVY}knA3ssM zmRwP4Ql?_xjx@&WFp~iXcrSFN&draUohzK3A3Zlex-~PrH9N9BTU?(WTCNPPR|?yh zqmK;?_2dl3*0KKd+<5Q&7{K1MG1a?X>RLlpI@q~9KCm`5jF<%t>0-GsTOLhDf_|T8 za-ujpRhXX|1gw{*ki(2@R5<_e_T0$U!o=3XRMPJ`yEI$u&1^0eukTcD?Nsibo4dEO zba`XJYOKkx>if^Scz=2P+Sb&~&C>PN@!9?~BK|I)rOR*Wjk;1UQ^IA*hCQ9ha3&s# zl5;Z>^txUBo%!}eoaD<9pQi^oc`BJn;xmC1C0Hu-k9K#gmd4J_RR+_^q~9C%yZgG@ z%RQZweLW_-iD)@wmE~y%$p{_vF8*e=HHAbkDH!z)zZzMg(0 zwreqAjFyuvtxZNNmi!onHa1rgo}f36%EHFAOvFwH)?#6Xy)PYASFgWTJuQ5DJ+}8I zqYB$O9C%k83qN^MTIjGKVZ^+Imyz?U`jOZ!z)lU{u0}w{P-^+IsO3Bn?SXnDfd>;4 z|5EK`MgY~-)S$4Ppd$HXG@poeYTBGgM?9PX=RtVb^`OSRM?;=az-@A+!@*!0vAaLg zY)<3Az;Ib@{>RVQA3s&IS$#EZm!Xr+D89Wue&bVbeUBOqAwKmdU;XbdfA|0U%fCeQ z^)o;Fvp@LeH^1}U@A|+8fAS|k_`$cn?QL&)+uLy2&>KB(|B-ip_~W1W>3{hv&-~Dj z7_Ff*qyQrxxycdAbY=T$@GjU+9}viJaLQj=V~%8|zQgg}(fXf4 zdy^S|BIS;TVa;*=AoGGF5DMi+vVD{B&SI*)lVBv#Sb(*2B;*4*)fwt94Xuq^758`< z;NAgtUKp5m2vA+bG9Y|CwsR`Qx?}vws)T!o_`v&X3njAWp^CGjGb4#R->goLrDk&z zi4Sl9rx56a>`j;o>VbD{UEkb{?^4zI=oB{U(p6cK(?bzhNw?K2$Ip714A{;_G&4C? z^g;EF)jcwWDQrK%)lQ#$>=d)g6OgB#cw94XN0DlVUAF{WWIH2UrDd=)0k-cijqWau z?=P43mM3V`e7|E;- zcg%DpCNjY_6a?MLLc-e@b`EC3z3q{XWFX)$WTSyXzP*soW}^O~&UC3ij}TyNARiC9 z<01EOKHDAjPxW>zjt-7>XOTGdcjdY=v59=9)Sa_BEneQRaLDC$MZf!*sjP>s86ZBeLbyS9#$O~x?l;zyucYC@b)^56_C-a z8Qu_>lE4B8idt*4M*UDjJA9r9z#j6a!#>30@?S2ba+#@|2<+rWebFq-Xdm`kGhrF>6VXW{<>xf7E$q1QZ zqD|(GCUZLE_u8C^21D#jQ*9o9&(S8|X|1k%U_4L&fgUOiBlI(GfA2ef;-7!yQ=k8f zZ@&EHZ+-W(fBYA}{`o)oy)S?BYk&Kl|M~KF{^mR1{@d?-=Wkwq8Ty;w`S!QJ`(5a- z{Ez>>ytdY&v(ByU|Mp9N`lsLc_J=9Gj-YbX()?2G(tq`JW+f>ygpz@doVmB}+@{oD@$Z#o)i;L5bOOXC z4w4oqjA%%WO?oWtnvlcb(A13V1<^Y;`5Ir3CctbVA^~$Eu?PTm%+%#HU?73oGLn*GiW+rw+HKu53@AUl~7G9y`A}etvoU-27N~!f$J9$Y&C( zQzQME@NyX>?_VnS&5z{~-4xoR<)O}{NklG#7*CE3cCOA%wkKmufrKMio*&;>oY-EN zJi9ctvpjWnevJ8o8RYDIX(FG#vNm^hV_~!-a&fbA`~1S4gM}v#mM$)rx|4n)1*s8G zM966$PI?b2eHUkXFHCoB6f+A$sr9k$V%oP-$n8${ZI5=AQtr{tP_ZjI+8rxogJWHZ z@<4ko;zBVnl8Y@D`)2w(#(T4!abGH6?@I=U)8VP^%;HENa;HK^ZlF6m+?U;&8W~K5 z3ApBshRJ*D#2_agDs*KFoyiMZ3s-hmuN`b$zp!=n!sg|J^>Z6@i{(L04L#H`-kluk zh;$`=9dUo$=LkBjKBqO8;_LU5YruA7Nyr`5zN0EC0*tcBYXHrE)m=B~YuWB(k9zcV z@bC&!VLQ_SvU*~|K!EKaJi(9jR)XP>7!qewuaP+Tn&nVUV}(orb=aHVTwBI+IhWg! zj)pqp5Ac~Q)nhwdRo9j~Qd1I#_oO4JW7Lhz&uSQ=wp`4om8g%9ziKB0kX|1~K#66D zLr4*LR~OZYBW%Z&=~y2$V8^}DSJT}9;Dim7Hq`I_v3HB+moJp%2Eaa5s`=ftnv+Ib z5X)8gH}D#Sr?f|d8p6kdIC`M8wx! zDK|BqWvZ+6n(T*i7d+61v0aY+!hiYtSN{5M{`AXV{nFR}#~**~8-MimZ+-o5zxB=U zzWlB4zWg^J{C8je%kRGYjqkkt&F_BqufO}k!JWEZvbj^U<6&=2g@3|gp1ozM%hR(Z8O2gU3M?uS{y%BFA^G; zJreR`VyZ4(dum6(4!o0ljty+b&{3Lo_jIfF{~H9@PH->`Cx{)7y3U9_1_+N2V`C#O zs11#03?>tS&Tvr0QX2goQvj?x*e>QSa>Ykty8t`2e7w>URA&>ByX-;g_(*IgCMVdg z?g(uE{>NYU{X|5241j;^%*hi7WKc0`vBI!3f+N-PS6YU<(w8=-4>u;SZdY#Z&R;(_ z3vpv-?%HP8ua-&-xuPYi^e#`W2Wt=S3ms^fjxm1*>$gL9?crOBa%iGhXk&@$TC znc~t+ab<2|ZGH+9!C=6*G+$Xm9KBxIS(!PvJiWUzy}MjGzcxuh7r9;@xwbxgXLoU- z*ts@SxOsl@-i4)m7gnxq&!69%Pu1axx+!e(7e@M4M)T+A3;VMJXQ%s0eerYiMZkQk z+;hG%aG}z7IMcT`*SA{kTpCI5P4`Xa!$WCrHei}9bd2Z1D?=UY#jcsbEU-V(n<}IN zg}862(6upHD0U?Zx%ONFnS6R@Zg`|U;`6!;#Hn*RY!+ia9@<%)UYr;_++MhSuyOao z*0tTWtGlav>oZJhlSBE5-t0t2ax@$5LL=nRhh3()*A6P?Q?W#lxM*(9=5`b7t|okt z&qTg%sgL2Lx@%w=I~lll+4B#=cAML$vFlZA*G$%RS_D&UGFf$oSczHm4l|k;x19MA z*iJ4ypL-yeQk{X{JG^xG>EHUaAUr*%+jI#+zCP|t8uunby{S;w5w<_`)H4)y9*E9( z0AV}Wo;z|;k^j~MyX=8!2jKZVlKIfg0Z~@nEG5 zz`l2|C$b1J@2Th8+Z+R-fi*{Lrp*#WRl@{%PLXfTa=OoX@{Hfx|iOsK+4rz<%b zh((go0NPbNHE5Kl9t4`K?cX;&*@Vx4!Vj zKl##Mee=Kn?f?Aim%k;z{*9Mk{_@{^>yN(j_22uGFMa-tfARZ&{H1^YyMOrOAN){9 zzR&4NJ^jWP-uF*`G8pf@b^p1EspV|@z(4tk5B&7M_`g(_UYj7~k-~Q1S2dRR_S662 z)07uqe32SUDd1$z9D_im zrPXdSInXIpRglysz74Kd&4+!Gz}$MH%R<~OEyEE35QvR*>huYGCkZ&y*rs=Q0)V_g zI^Zl2tuBh<_!oXj^Y)dEx3nJH72hrbnfhZN#&%F$fSngrogaBS&a;o7CNamUhLb0V zIe@_^GbjoIupR9f*iI(Ok)F)8b8|O$W^e7z-PvEbd$34(`f&ZJi!09_EL`21I@kcW z;@!#M!RqYJ{M1He41<~V+40r6(bc))N~Nf|AkB`g&5tk7j;=3HuFjX1XUoI=Js!7n zY-Dg{p|rJJ2HW@6X5riSS2bWi+@8&G!u6S(=jM>Z+&;fFQS7{Nap}(a#rqdl?qA%v zzQ3MMKH&G%O?e%bou&DO@qxv$t_vHb-PMWGaQne#r88!m8_r%{DPCVG-dP>KwlQ+J zIeNG>bY*eq!tB7xSZ;YDzc`%RD0XfX+SiA&3q$GIq0Aieoc_$>VEcBdZ*`(~tT#TA z%XK6|>6mR{I6KjmfO!Dhjc!N4>%=SfV7an2J9c4p<{E)37pKlu#+JwWD?|D5?sPGq zp6Ed^?kZ8ahSrRxA2pLNjBlW8H05Q`l`E$kyT+vMPKvY^VRn zu)UB952hpeI&81M9KcQi*pa#`Y*(w!`j$cqwgc>f@W@nUtTf5Y5w;_%Ifm`<)KLxF zAJ|+8-~Q{r@#_FP1$JEoGRI{y#<aYIjzy8R9>I@9;zU-`&q z{_v$={jJ||dS0La|c#bhzI+3g5~SV3s9TWt=f7YBGOqU}}(Zk~3GB8}KW5K`>1Q>XFN z4hBP{lOU>?7+S-?t3H73?|A1srZbhy7wL0PjSzPygnp zU;ObGVb_KIP}u(1ND;_wv zQrTLa+E^{0U70$&G`XQg4=AlKO|C3VtZQKe=En*H1dYe$WMZ@@m-H-6j_j|^UD%vI zSf9SIJ_WoF7xD*Z=Wp)M-Mv8U$I8}L<>sZ8yO)-qI^1~uwcT5XJK0QJ4T2(~e)r|g zh1=&h#`-f?_E(;{zQ0-?MEZU8?Ce;F|JL5}QwK|LIVisQQt7!1)6efuJ-ao2cYXBg z%JA+?_s&$u=2&L4m|ia=R|k{ph0Inlw>{c%Zalv;(X~_Rp6`i{cE<;Wda49pzJgWE(6hHQx9uU$55_)p~wpe~2}LI(8r(>1%&Q9RA{HQT_Mt zB@%wOY6I*es}V~QYHnXmi*!I}4cMz|b~!5Iw#U5AIC)wF56+{F-nX?vaIjB(>Qfxc zK}-hke&_f8;NN`omp=Y0 z|LoU(EHP1zxn9));5U~1`6fDp^4E^;%QHg z4CAs7-r=%3 zgs#%zU;gkfO98}~0x0kN;dg%G6Q5858QOcJ9f4$DB0o&pVxv3hig$)Gz5Y;~nZ-_Y z$au;^pxRcwi(q0-2VrBITeQf!4x;}xG$fPB#f1etHq~`SeDtx8eT+pM<)tsYgyvKV zQ%t?8g3#?)E}~C5jY~4Zl-E6mO4LGL_EvJCH9HK1G&Oo{x&U98G%eu9sH;lwbp zBjdLb1dvc;*xF%C$jTPIBo0B?+Vc~u2nva(n@HH#aDw<@t<7gzTbdw9@QM^#dW&Wp z6|MHBee;`WY^miN;Vot8)EyDGh5}BjJ)-K>Cdz;QFDMY`PZ`qsQGMNGxWk@A!q0{x zRSWama8gT_YBgZ@7$gBD#ZE#5(`Z-p##ZUZcKL9la(SzAeQ)Xh)w3@=b@<%93vYeq z@VPq&w=ZuU?k!(DyL|cF%4ID8@AB|K=lb&e*4o0kwYjq^GaCzF`{deOd3$+gb8&im zW%lg)VtIUo#nr~j;_l}B_HwB&ml*EKtXC%XmuD`oFYL`tR>pdW<$HC1`P#wi?aQ0D zE^pmA+f8@Ji%reUt;_pw zyt%tSKUC_9{?P5cAHTQsp1TY0y0!3Qx0c>{W%dUTCZ9SxdUd(){7ingoZA}Juzhnl zvr$NI7jwI%?w#@cRuN`Cz0#i;?+Ev$5?yf(t|xmiw80zIMF<*;+lA%ZR6fPdQXiVu zn1<)M&}c_^JRhCNM>%l3GXl1c=Mxj%nX#_)SXZ(t)%ORTMzgLl0;gwaVd2L+Aa^9o zSb6C3)k8mw?XZiKe-O5dYOH?TP?NFM?}6rXsQ)6^v$VVfw$m}{V~yn}yqU&!)@`ci z?5n=ZTJ^|dIVUM!-ukw;KJvfEcE&t5!pi{5psV^z7)B-0K0Um9@{yP*@2VP z&k{Sl+ab#WVEGLjlp(xW~V2R&2{?xm=R%z5sF5W zc$29A))UESNY~neTtnkypLpD2vp#X+#MJck{=ossHB`&m_j0sGV?347qjW&ALuA*` zQvbw`1Bkh`+1T7{)#(C!)dYukn0-!@*KYC>N5o1>3wGKa)nd`LfZ>2Ss1Cft22+Ed zsxz-mFo0O#s9{lK#p}xGsd-$ptsw~Hk@2Lm;rZO>KF6`tY}kXzRuAtO=WwVNVfdtm z?Wa#X=CJ79HiWB2P(5U`gsQpBiuu@$t@5q2)0ekrFKtyWot?Y7w{+*q_N_}BZ+hzT z^Y<^k;qJxz*Y<8+JbUZ%?ww005H}Yp6X!Np4|X;VwwFnwv9mFIZhdxZW%}%DWqY-< zrLpu2y`zV!61OHbaseC^VHEc!ryr$(|Xm%VcS!VAwmhimiy`QG=u{Vi{~d+qug z?%#U*vsa%#T-llKd;W0kgU_A)sW+^A@Y$80dTQkZcjsTcHUIAGl@|`i?`{qs&UWvY zb35bh+r{+ONaiej`$#+G>`43iU~03Fo<}T`i4W(}<<8J-Pp~KDA$$#qzQ_QZiF)Vq z$x3H0Q-T zbxxf+_0_I@cBn;Jyopnk=7IUFl5K!@7Ty9C1sqB~bXm|mXA$fAg~C)D3G^0@c^AT29c$H3)6A z29#MT1-fBaF}XCEbTk1~$}|K?{`{&exurHhw-^NXLHJHG3oz1{-BeNa>K+SFK-%nCAXS*cI?21}@P6h$}Z@duBVq zlh{ri^6!*cn_xq=95Vdc6%fl8BUmdeU=XAX8Qd4&H}9%2oDRK3fIOIg=bYFFos-!% zVu%tYI*`Qn8E3->Z{|@1e+}9{Bs&&I0oCyygmpb+e!x5Ac3}IOb}&RSApEp_jT1 zN{>=I~fa>}zemTcQl zuoZx?t}u5ij3{!pPQSBm#CGC&`PbNkws{x?wGJY-@q%nFO^ASt%ib zL&foJ*baCn5T3Y4!Pn_6w z{>b1XQ*9^4lLv+(2M1yY`=a}Mg8O;`2L{5UEiO5at`smdl4=A|n!loO>(&CTN|v=b zyQei$A9X7v(+ZaV7TXD{d$gyhw1Q|AIh?)?+cC7r3t6%>3$o0Xm8-H=uFhJsE;nmB zNG84(fx{#eSJBIX?TD)ayh3-uQxJi3n>yP05-~DfkZ1dEu^q#Y+&Pn(@hOz~7x+!< zRv<)S-qy`&QxniK*s?8KdjEVVUO<5NOaY!aR;^Tnz@r3EW4ZcSJpEmaVKW2Uu}VB6 zDA9q~e?}XKRr2x4WHO&wazNq@2%~zG>7P50Tk4LLOYdK~?EVeF_7#h=RxaDTdd0e> zi&R2p)TIsElo6L9rza^PQb!Rl-2>a|YpDE(EN9z0y$z)S~ zvOXS)2JJqF)@xS--mQ8G$gGuARutbiZ|>I38%=tZQdnct3DrWjO(S*a<&2VC6ZG~b zwF?>^n>Oe&*11g~kGalc3VE$zuMHG*n>;q%(nZ(JpUAGDmlf_A9_a08-m`0L|K!Bc z1C#x&jS4aUfjvEEch`?6jjc{$M4WeF)cHie@u?o;V;%ZO+jS>fG>4MPL8oBEE9rI$ z>b2DY8PzMI_yiO;x7fugcCw3X%zP)i(8bErR24FdHbHyi7vwou1<;~zS-))6>iZDC z#!y|XVB|_Fb7b`Gaz>7vzFkJ!uB^;cROTwLZV^(lc%{Jhw9ayb{Rie5u|HWa!N9>Vja1)UW;7muLL9~Z#Nnv! z_19hpMZ?h}hmRaTd>n-HkY^^NK4w0HgheT`@gsz#r{ zEa&*KdP8UO_9EHf~&H+bx^C%*Uc&!2wr#pl2G{iiNmxbVdJbB{cD z=7Fg*4^EwZ@X(%-_5&kL4~(Xc55c| ze%!ZsTWJa1q*HIpE*|ZU4R=Pn8vI0E5CzHMK@NsAb8R6}Xwi~s{RRQBD9H<%!Qi@x zlcQX@eEp`CE3%fa*t%-fW=uD)-$49z&E9|7GYeTB08q$L0X+ju5ElblS1j-7?%upL z3(@(=vl03$qB`RCW!|{VJ|qqyKOS+7nL;oACI14yW%H`yoXz>Ld|JJHHDX606*nUM z&6^9keGzg$-Fr7=cpy9h^<-m6hQN6O>dB3n&q!t?!Qc2@NxbQBEGf5N7Y44`eIbnt z7P1z|?ErOXX7El#*Uh@)Hefp;w`Z+fye*wde#Pn~OEeOGL&%W|TH}6e+-FVIIg+5T z3!okIS)yKZ)St%Nkk3))bH)SKSkTqdRNvRz+uzgE(vV1oeDQ$GXEV6XT8Cb#lL;z{ zwsUG|@JL<1X0=hLau{TGoyepRiI_C27AktF)u6PPlx~X#l+KZA)gb?Mz-9D0%pQjc z5}jo&AH&5tT%=f2i?$$9e`sih;0dz{5S( zAbDok_H>{5La+IJr{QFa`T&&h0mbe*#jsD-Y3DbZ*l|rwTwNViRz?(zkc<`(m-|JO zh@{lYqrk>8q^w9OOXAXU2ale=c}2nY)e3f*fmsBT8%Yfurtk^?<*O_6bTtJaO?95O zra)DlFQw%OE4FjWwsA{yLHvrMT3E?!T9dnRE%FEEZ{1v3P9ZJ_4-N+8j7Q`8NVuw3 zB;;gb)^%ELnQ_3i)f=&$sD*rf!4L{Plvs#one14CA+a4#DBwNwIVE-=V^d$N_9nlC zOA)HT;lyyoPQZ2mJ4&GXja6qx^d%}PL>RHFCgphu%mtgntZ7&v{+)sCM5o;d*JuE_ z5a3L#qCMo!I2Iep%K)}RbR@7Hs7}5Vh4^oA12;);sTi@B1&k{m!30 z{Osb7fBeEDM|Ymu*?D|0b)r9cv_E`&D0*x-dU!ZGH3W(s98Me=N=yyJ(QgZvAnwB2 ztSwtNY%UpU3k|gRyBfSiBQYef5Ik}oAG#I}nrIJ7;xClT)=&vP6WfVCoG!2Bp1|dh z@4@8@@85*HRm+xcS+OD?(Ni~VBu+wLJ7M;ZEfr-&x8HUvZ2Dj^vSjI!d+(XIZp|8t z*$gX`tSwt!c{<#!6=F4Mr_B`0o%z+ z0qp3jw95VV+kowJ?!0~Va?JLoW5{H$S(?3S`9@4AELoygNZXQiEiqqX$lVZj$NaX4 z-m{x{2CPL%mW5b-EJj7aHm5~nF)A$jqGT04a7`#1@Ga>zVo{pr;^%7 z``k|t`JNqhKRasw-l*-_0n^j{rboMsr&{#KQ_9JxbT};Q@=Cj0(ssL~(Z+`wC!z;& zqgr-I#SE*e>vZXv<*gRE7n|56 zMpm&IWof7Wc9Gi*lnLYMxJQ3-1MkFyv@7KoH^NA|J(6$_4`}_@C)@30MLpJm>8xYW7ZPuoB+tR@qHep)urq@Lv52?ihgX+kI z#3dX%G1T?^(-(gE`maCw=!?&<{MV(+fBE$DzkYP(t53fC+n+x8_{x`myY$uH-~H(0 z*Is|+krPu7?d?Cax8v;I){{Gu4~)l8??{~f5J~O2Q#Jwb#BK$-+irm;4t#O$xMS_gRdesTCp#zC=5WHi5CUF* zXFb^rU^{X9$X7Gb0Bj`t5DZp{1qb39f$D_lerEIrippg>(@dyk7NMO=$~&4uWRB2f$c<@*`7=uE_ejt zJOrfUqA=#k^Aq`1=OA3!Y^1}6-TfV_ml1Z4i?_g2Z|zDLcCKBv(5Msx+neHnkl!Bk zSbPpcoy!>YS)*P{ox|j}!$?LC&575c5BaQ-pgkUO_jEQM*gHNk($mopiTNBpt3iOo z*-W}dj1VhgiyEPNMKS>gfy;#)q~4I~} z?G}~Qq)2ONtZJWC8+7P>R!zap?Axii8;28y-OaWg4d%UVuJM%VNN=#gshVsH?5j7P zZZ|zpFaO?%@3}G8bK{Qh?{vH{Zhdyx`oy69T)*>lr|n>?b)wNanzW53oC9H7t4G!B zQZ+af35z%ZD^Qals^`T_f}}&*>{E33K(PKfK7BaPs%1N&8MN6YcN%ox2` zCF1~Oo*{F$e~skEf3C|{k6e9?$ zI1WdVttGaQzz%FDD52H^ zq0q9$F#cP!Y-QG>B`cB5cDUU)*y?SLS%|s_&?6BZ*gk!Chz4Dg+l%wISJ9?FHgRC4 z?Jn8XxHKX@Ij)Pu_VtSv7jIZi*}Q_5v#vCE-OAn-28<-3qY zkyGuqJ8oz5dCl$ZKrjifrZeTef9`Ce!GzpSc4KDk*P5LECHodK2?^{tLt2!-x?l&= z2L#(mUB`;03s){%v>54^=g(h^O!D*Zg;hM__QS9p9!yswhooJZmLZQr+V3fCAxR4M z(BTk`!~>Onc&{!*3%}9M48K~koii9rLQN-&{ICC;3F*Z7r#0<&&7ONVlDnp7&5_~{ z0S5@1_6>+kxN3Pi^1$+iuwAT&lpb{Wy_SI2TIaDweYS+(9{1V8E_={v4!I${LzXr` zukM0s9gg-Mb0Xwuiu)1)yWg(2>EtkRgcjYbmcR_ss*zY!LXAvx-@JQ}EJG;~Yvp3S zRw@><%z6bxbeCD}w++>iNjWVZE4tIW^MHO=Dy%rTTV8pd#mI&>h zGP63|qQS6gD54&YYWB7{+MLpEkK|0h_o+e0sb}CNtk)C|F1I%>I{N_p6686TBTK13B#?Z324}L8ctNp4XIdONoAd~)+eoU z@GFd*GPufWITU$yiM*zSUA7IT?*eKGpH@O%(F}Mb#{d|TCr5JTXvyS>J&EB#K31p# zUZ{5?yX*an;QF_4*;0g+hxY|OrpVfF%DnN~8=0>ak|#cFiIS*`cnc7gifA{hW4?lBq%xop z`DdQL-VE|CUXANWb}!NMcprH^UibwgS{)IOw6QtuA`KrgFyxdL9GaHFW&8g7f#(FO z1J6l#2f|~OAn;2NLgeaXE8rb-uTaYqjU+!R$tQwrGZ^Bb$lOBkBFlyW;9TzbH`*=`s1c%=g&#b`{kBc<ajl9 zp?|2`@X&zc#GrS7r|)2I^2lJ*sa^f2_Kcj|Gj?Rh;E~?W-HoB~gncBY?+a^sV*36% zQ*Y4N?$`E2%)=?`P|P$C(DeHt-pd-@$^`s&E#jb_kJvkIHQS|TdDWbtjvvZ_SfbC$2i0&{h0Rpi2W{K30djj`UUqT8_LAaU3Z;-r zE32%b5vL*$29S;gEkXI4U;YL}KoDWnB;ZY(oqzt;sf z>346x_{-n_B~<(yZGmKfA{Lop8fGtM}GR`k)K>R{@j_V zcYpoTAAj+~r%q0s+MRrOck{`KHV%t7|9-d!mD3nCW9`AtxGmvMtDUh-&y4@q|0Pzx z4cjT(H&M24EYF?RmSg8kY=8Ncmoxh|6Wg~gU&_p0&(B%Q&f8E~l(TUDb)%O|Y`_1$ zdEdDesYBB)Id{*VgXGd;DThX*%)0aTh|lgais#-wovsd5ymrz1pHvS+z=sUTxQ_O=>BoRxLWINh31r#BeXQYsDUu z0@&`esta?bEvAUuL6pT?*Cw^BE{9~mrx*#T#$)QqM#EIIqtnKDu+#cbm-$$;_F$7{ zf4yOE(y%wBnQAc|=yp$b1r80Tjtn#$?oFN?Z9h9XbY}n9iCqJyMth#z-E($0dc4!M zr_nN&vQEUDV=>2Y!a3UF-_hb5Z*Yu8Ekkvt&VZrGr%Soijc$E|TOV_(>a6mxMINy# z;xpE3+iIzpvvO&`d)sH{;n3UB?2EKLFUbu~xpC)SFR?xHzpSuMyB!T3Bbd>3sW4T+X1>0za+2l3i^O|S_KEpG$ zD`bsi`ystwxpIZAV}#%WH1B=Ll8)W`2_=P2SIu# zD1XbwysS;xTc+i9U^_&2Xpf8Y^C-ndR9ZzfyOua7f$f;8K7Z~!(F_1P#7+X<32Y~? z>ys~_VE^(zKfnC`rO$r<-o+oj@#gp6c=Km(z4z<)KK;|D_@w{q#miq``Rbov{{6o` z|I6n;efj%8e(v;7o_gTv)00o1-uvng&OC8?&$(kmr}wv?J3R9EiAlZIbl1Ek^B1q% zl1&+E4>d=vLC1B?Em>(MgOrPzsdX!|*VA&=Gx9fT1k;fR@D?Dj2*3{WC&d1R#Eu0F z#1$;W*@`!>R#CSpOV){sHdGa6-*?Y-h|a`z?EKx^ZUw>e1A)2jxqFtutSKrfM(~!_ z<_4`?ICs|d1Bsb#q7O+t1jr)}ZMV(3?bbPW+zxks5K`y?>Jf|ysJ;rHz(~ZlXyL;7^ML0N*D=isga^En=OjlO zm>H;!E#xDUxf^*c7$lJVv5;p&V1n=5a_e_tB6`d1ch60SCWE#Lkq1C9ZoeAi_jY_o zz+`LF>g7Oqv}YZ1$FEv~Tu8w7WSzY!=IZN6bhjj?c8{GrdhqCh{fGBV40blRrb58> zWXPF{xaxd1uhZzk)F)Ic2BlN4fVd7{Q~?Z-Z*GUNsh1j)nCT5%b=ZeRsWmZ%1%%fBn>O z^TD3*@t(-J9W77q?|*n_$Nui<@t)X|J5m=$0_XeP5BCM8T73tb!Ux-9lO2)0y@{#5 z#AHWkS7TsD%HJ3Fbj7`0abHh7(1AB#$l4GvwFE8gAzOn--&SXBaVR1h4#agRWI)im z`z18LjNulgmGBM$)h?hJ_!U|%Ma8B_Yp;v$7?YW|m>dZt7=p>fr5R&`94A03QX#W^ z&3Z(VLFO1}FH7?gnRpY_!T>Ay;O8MD$*N_Hq8tIOL`*GGFbb7bW$M~;MfJ4y;9p=n zDZ2j)xt(kec~RIxY@Ej7Yx+j=o>rCQFw63*OY#_n+d=e#Y!Iy=yCQ#UIz({JW}td` zUKUmX?DV4TneaY+&J0yHS#O%TCbttWM|2|=@PKq22p|Fx*p8CK_H;n7EkN(-*pCFT zm*#9mICsSJE!?`9M0i4OCzb6$b;#{S`8mb;`IM64a%y=Mi%DE2g4h7w0qh_`bO)-R zIC_G_cCt6Xyz}X2f4+3(-HV^U^YP{1{_&$9{qn76e)9TDzkKVJ-@W_Ww?F#ylfPW~ z@}HN#`af6x_WynHx3B;F(YwF+>GMCjaPrxQ_dW68_)Aaj|H(54o_S>K+4EB`zxepi zzyDl!Ya1p~@0~Y)?Z%wedhbAI#Os`v+cPT_2(LSI_p;Wr7n!s$2V-= zg0IeB|MquC?mPd!g;NhdMzrdt*bZRCm?WSb42kW4cK|!IF$583_!lLER-Bu&ar4Gi zh{z40eg550Y0m<}1LyC&^%j(KXWa>q2atjQ=Jz4gz`b`v(Y@fFyFd%?orZT}5R$_l zvIqHGljAc}^1;STY|m^VZ2rG{>#g6p<@Q@{n>}at+_^~hbn9&hYY({{bE(j`;}>v` zsa^yJ!=nvgUxmy>D?(4a5aPX16eGlyJJ3Q7k zHPE`FH8$2!KhPQ<>S!2jZ|G@?wMIQ%$v|&os5j~BPq>ESjxMjZ-Yg2MS^o6ADjnqH zl{wOc=#=FyafMgLaEci=A@8ciZ{A$6EsK)3jY}(~=566pOQcLHk6M^Helq#Y zdda$8`PnNFZy+aQ%NxIV1A0pcX~dr7FvdvEJeHKt!Tjbo-v~)f>_%G3u`BYJl)M@Q zYA7#cQHxMADfzV(1=VG_KyrFvHlt{JWpOTI@6(HO=q0&uksuqKsemP)8j>N~gO&q= z($j2L7oszvWlfuyUR^S0*7DQ#Ik3rr1}5!LT%5fb;p0l6EXv&qghw(aQh-m(@LM-Q zA+tSeWB&H60^omPZbfM!rMQq%Qb?gv=*%jjsSsuHW<>Ad)d_JOCEA9sAtG8J*%jFN zkqgg$|CQHY{_UHu|KZQS`SVA=d;7!Je*dSR|Mm~BzWMI!Z@&M=TmSjT_dosg^RK`7 z>Yso6$N%~2AOHOFA76iY<>U8$|JrLWJ^3F`KlH;VkNoJuk(XaM^P?9p{Py*q|K!E* zKXUS-jT zuBO+y@9w*1&AWTf-E&}<0?Wf&?}TB`E#IAU`)%{*LX$IV-kj+PUz|BT@G|`45VI7^ zbW<~)akBB543R2@Y~K8N^AJw#J9zcYnuCe)xwB^@HOM`4=iWOHk%!TkISUcH@}7Iv zBYEhml^a$pL!{hw%NK1}v3SFZg<>|NDduZW1$&yp69cWIJuL%mjlInceJzb$4WW+u zx|W2$F$!IcrzI6=PKFv{!3b>KofeqKgq-G}!xXR^{WgQgto4|*fO?lvODicB3xx|7 zE>!812xWw+QinmOk&10PwOOgqOT}B)tl?GDELyq4pn&}E(8=6-dBCEovuh&mwDXk5 zqRh*_Nz8$Yyey}*ro*k+8P)HOYA56ReR0!BOgj`-^#>JQE=ikB)M1wl)aiFO`S!Pm z4tB+cqxLS3uHC8b_NjM96{ot5Pma3Ije1TEd7d0eJT(+N*JXKn*!AR)=dqFCxjyIP zBf;kncAwur@W_Fk2PZ}*hr18%=sCEfZ}(vP#9;gAV0(W@swWZbN(4KizMh0JQ0}>2*Hzefyo4)%>D$b&oGBW zT*`E4N+kQs-Z*W032i^VAo8*(`Pr1b?5hGir1x|z_kwMk5c`oJj97eZmKNk-MiqYa zWfdh1)-<*gpFElUnb|h-gR7;pYi!rbJUw`q%XCJ-wo7X=065m1a)5Jm`eCBxDGr5Os65;Wb zX_iAO+h?5LV%Gb-POHVB(<=2ExmGFBD8y>HNGjyWL|i^+`V)*iYQem_5#5Yj&1BLy zHv`+hF*5%r*uHV)>dhOF8GPlOdC0x6Xu+Jj;4%Q4Oeol4**tXmG7 z_7xkJE?c`~!N!%q_JwPf%vT7QFlFp%P7Jg`G_4g=b%S9`msi)}(lp!T z-5&W=N_VP5|I~=>!cPBFyCTnwMbGy*9%Ey1# zLlYw>_w6`)XxI7Udmh+3xOb>!-*C&0&iGKOt}E2*Q(l{NJyQCP)tNh+%gZ*q0yWdh;JXCDtf9yfyU3})g3 z)Sl!anM`(e_KKCOKn2-b=_Lhuo7QmXMG8)Zl1%}yt6Axi*dGrm7UCHpO0r%snRR9I znfs8y4u;&GmXnVjA|E$$JIRn}hGr<(6bYM(904*8L&Bnh1l488_5xy66he$gsw^&z z!l9M2=%s8%8A?#*^^!b59#~C2N@xbmX|RAHA9gS#l;H!PJeFXH6s~DtM_~D@!6J&G z^M~di3jh4AtDY5`pd7r{_3l*Fyrv~<%@s)^73E5`0OuVUb+1Fm!Dm^a`CgzKDl)9kAHgm zu_qq2TlGX^h&};71J%iHA^VEhAEif8H4;_tO6iC#xP6!-AmnzG9teg`o7U1J zsSp-~u>~5FOXi;cFZ}TbkCWpKGCSE465AoY6BaUrwM_c4y0#GY8lZ^qID9Y!)Z#Nn zAQy4vLXMQr60)m7QZ8#o^Td1>tNQxH8Tl_BsPs7hUtv2$6f%P?PPlUMlDlWkT8vD2 z8#df?-~1H|?nht*OyfdL1Wh|=9zGf7%*Kbq+7-(;tXQ#X(ISKz*tBx#`elpOELk9C zRd+TddRyzq`r5~P+lD(DyX&Kkb?(N1vp#5Q4%?e!uI88*qB~|oTNE#TPHa-h1$pfxKbcoASi zRx9I|=4@69m_fVVsZ}7)h0hGAM{r1J>?PZ;IjWGI1_sHJ%r)Cb>tu)OwTJ7qQwiU4=)t%7C~zs)M?aw>ZL+M$T0-KA=EDB7H=W~;o(BJK6a_e5lmbZQ^#Gh7(+ zJkswx)oOgOS$8a{IF^(@(4;)ss(GSIcdpa$*r4yiWZM%5M;@LUJ3lr4_`&f9cXb~b zYdttvf1o$MzcV`79v`a@52Zqb5l?^6*zebN`LuYIKy(Mxw;~3*4*HyK!AvelFhQ z1zB4v^0r87sYnPVXHk?_Aw4a(vnV?5HCGgA`kR^*e(=PRK~up%74yXTCqQ5_u^kGT zmtTIFP|FZNN+=Hr=mvCTUIjoNIvG4rh|7u+`{0qn_$T%OuBub~Q7;qhY+ z?s@2u1CKs&`nexG^Rri9dF!3G-~Zr)k1u}u$;FGGUb=MY^Di!c@ztd(UtIq3%g?^J z0{fYdKl|*%i=Tb)$tQpM&kx@E^EK8{(9u0?FL}Q4mQ3Bg<3hyK^!Ucmkq{+nW zc5&Oy3}SUgxp={1AQE{L7<4igTyINL3wB0HL?%ax`3_W#kw!LyV6Fje`WGESNE$d6 zOlEal4mWd^mXK8~ zWmOY(k+Ym)UbT=neSfhL>Opc~qy07uzLRV_uP(4xf8&ie@T5R9bN=jkl86}}LVHA@ zIsxq0?d{J)!q>AZmvi4fmFzcNg9tu?=tIbMzzIc$jQmsx@EIc#v=vqEUq3SB0t$1HOi-~h$Xz9EVT`gZ$grhRq;=JU%Y!HJmtX zW+e2Ggc?&aVoF+ARvDEu>m-3QFfH!$TyrcwL0 zIW-JYLIeUswhcp?cm|2L1JIKE>!u9$C!{9Q8ci#pBQd%~#&v5YE{({R&br7(UUeCV zE~uf1YAOVk6j3!*!mJe6&;?cHAaM;%RD+a`)kvs7}c3gifZSAPwmRsuLhz0wli*=|y?lD8+eYMY*8T;{0+-F}0$!s`4gp zAG~)!|G}%j`qh8@{AVx!;uk-A?H51z@lSsG+N&@9 z?5B@Ed*RqaCx!<*h`NBTpz*Qs%&M=NK}`|g7bMJ*FP$zstHnTX(oUNWW*!J0Va9Pe zM2S`Ml|jPbjQxpKoE#P16yfm~PIzM%;e_PIW6i1~&FTY<%A212f3cBQTg|GXgOJBw zR9huvR!Z14GH$Ju!$hg%&(z8AYRWmx>qZebtr0gGAChE$g8A2df|KA;BCm1Dq6G+V zvlPx$_ujpD;R2-0TLlvdNQCq5fkGx7gy#;-u+F+`&MaU%Txj7@wRXwk^-GtmgW2=K zg>oKesIz0Bvvr`iwWkdzooq{ln!?`tpsPM;Px>q|uO;L%hF#{c+ZORo6BIH4_J*hr z*gn+LzIS4zvpE$Ddi+jHz-4xr)droax~3Xx|5eKtBMB2Ec957^>4Np6MqyRSY-))~ zF0d%YIw_A=T~U_5)t)wSmsqs|n^s_uv$t(tdt-M|@;CJdm6Ivci4ON3OreGhg8@UY zN73(7_qY}9Hfg6_(d|%mc~qTV4fG`4etmDi2z~oNz_2@_J(^NI+OB+}TXVKc`%s(y zFzhEAOp__|o|Iu%TrruD9Zx9Ew3{C9cRexee{4AL*l_S{yZzA)_cQz29zWP~Zh!B& zJv|SPw82jP!JYjlb`2dK>)qeiG|>{=k#a%*GY~R$`*n?0Ny;cpso6%01}!Hdt*H}NdPJ2j1-rJa0G=?7IhGw6t-KS{x!WvWM*YQ-W5);3|Bdvx}y+@k1sE0D&ETq{b zRS0WiWS5z_6eEvf;7|}b0haa}R$Aq*<=hN&u4Y(3pMM*?-*`Lz7h8bpB(URft&m}o z)>x!$tBi|;R!)`BCg&N1OpO4zO_y^jmE3AMyGmTc5LMF!mE{CUm~;iF8t^V-S4vn6 z1+PZVtH#r(;MdG(lAyZ0wxXm8?!YB8Cpa?q1hzvP160q{$pG64Z44o_r*$#~+i@Nc z6?3KqIVj5u(_mg+48xdw8l{LzDPmAdY1A@0je?Rv|8JiC%r<}zxHS>KA>z}ga~Z%8 zD{Sws_YAfNM|-0?29r~}x{vM~JGO7{q5bEr@l2B8dZLFl05t3fNI=~UIoj4Y1d@w|L)3eRk2pa&*#)7`B_8I#V zs}BI%>*a?U)i?e3#*JE&-r;q)gC1WbP?w4(nj2%Oq}6CrNyH*ft&mj%NEZOr*-SB~ zR>fl}c`OCD76hSGClRQ`>>20eR#7rT2v$#nKyS9qWCUEe47PGz>#*3 zou8gZO-CD;d(T|N3&R?){l0tdUcMw9iykq2*1&D{z6HYSnvt%q@&2CCp{~Kcw%#_# z@bUH}>|lK@5qG`coFa8p80qh5sZWIcL9fH- zGP`YBvq{J1u-C6$tB{Baw!-CbD^xKSr4$5UhlPwqE;P#oW`)Qg7wF^yI^rc3ZZ;@6 z77gE|;_79!$RVB^tbE*A7 zNYR$Th!u0GBT>gtopD#4`gpziY>WJSyZltM@<_dMZ(O%KW!~N7+S%aP(+HbM^@)`J zWTWxn7Sm(hwli(I^IfJ#n^fo9437@@PLIVO+uwbDch|X{T_<<7pV~hJJ^abNqsPX( zrutG-t^UbI_jt_O?NzthWsMd|t4YwPWjEBCZD6q%%d4869qu*4SnL%|0^@Ay!rN?Mm7<1$C>OnkAubkx*}9&PwcQl2n-x z!$DXBY`4pKHaXWUVIhf@PQ+C5t5p0N1-nwgu9C3;?{rA)!YWAe<8fGQ4wz9SsCXkiPYC3G>sAUBVYVl3`N+4jWsN-&AJu|e_nfvP9qaDHVuE_3zrpb}+$&taa!M;8FcAtFY?SACU8PNU%`+NJl5ryog4fuC9c3Nwj zbd~K^cC)dz#l-6J^1D6!M$1gN`?gad1@^4ja}FFn{LzOWzxk_Qe%o%}w!I@_yYa6h zjR1DVfd=)Slx8BS8Hs5IqK2JK=J9&Nc&kUR;9oVUynXgvcZn4;xlS!n%b;*k>S2Mc zHNX@k8uA7M787Ewh-7@Wl+Tv%SRiO)<)IRqbP_(hqA+KjMFRtPo>9)eDYjP?XEo@V!$D1tPd5;`Sjgx4aE4-AWS0l<0;E^e+R>Ly3Sq?VaCL;O)ud>r2L{h&Fm$1_z z?sQ68ZK5u>q7AwlJ)l^KV8@Jt?EKAZ)#6$Sw~}31DypUOs>*VOIZ#X+oj+*??Nf1l%IUNVHx4ZqLg*-J+)Acf zg)Fgbhl*v9Rhy+%CP}4H%rJ^*Mx-OZ8dt|6q?-BV7B0n5Tdb`vKzK|gJx5N>2B~P< z6}0V$hkWDtb^LO(lwpw2jlxQ^xEf>I2oJzl32H$E@+ogwRj|6JB2^+RGbwqXDrzCh+Ul~J zsxmGT6Vz66IW;^Uiw7q?K9bw9cn}9U)iegByu6q}DWR7ZRbHi%>1;xf6l zl|p{CT*k3lRd5UsLj~$J!xGqSka-NUfGO=3*Mg~>h@~&(9`C8280r}6@9OGo>FMp* zy=UTq(Bd`7k(XUroO9#$h?3fDuI}-$hwJzQo|-`~tJ_}F=jM$BWTOGuL>+$z!tTY? zBd!1a`{HW!-rH`!^NyYSCO^9T`FkIJ{L44q*fl=()Y(UFte4obdC9!3%kJw6+w<2h zUA^F*!KCg$r{zSS|IA2qszHCKL3yA_vbRYz)u1?#((O%}$D^hpqybIZN7}q2oq?Vf zuSqMJeLJ!^-GTgiOaV`h+!D|ah-yWAj)2SIvuk1ZA`-A=NbW4<0AQuUTCuQJB&bm$ z6SRn>5c9NBflA2Li}^;W&?G~4IX=AaA-&6>3FKBwInc(_`OI=|HHA|}sil>%>E&!j z1-FI{BBoz46{`?)RRX3?3SpJ2lW_D%Q77R-_CSfjsg-b$RK+M4q{R~a1rg<{d;(rA z<8nFlvf}OQkS}C0V%p4uSboo4NU@Yo!v}o~oB?jd)y=vS=9qWiJ1?E0l>Gg(XTUt~}ztZF%Ab-eouHm_$C<$=fB zP!G+jnr~L|p@H!j#7-U0p_L%-9^4Xb0DKu2$t-TX^&HB!p@1A&P{$L_k%VU~=^2eX zhoiO~DfhmXz<9#8BW@jy7)D~op_H{h*OH3Gku>j8!<(|GPx)%rDTKY}W#YCTFO z$OWB`hT~M$I#n#Yf@zgiTcwqVsACb+iGXP~enmP#A&6ayEVR0+d}O56R^{uF)2cF0 z&B#TRdqq{AqB>v8D$=q`H0%-`k75$jEV5}}*K(-_0YlHH>v%LBpP}V5G(5VRO9P`5 zRB8p4YHqcPQ<1wtND5g^j=oJMFN`4h3k5;seTClaEU@Nt7TX{iNMd4Ojadu^CE>Z~t_ZUUl zRmC|~CAqN1#LiXJ{Ay}JRYiUct*{oxJhc^k2y&cCxtJpraYX`-P{`$qI0%-f)*)-V z0N-L2lpm*AB5svZ%GIj)W}U>QliIXm zhfeC$NxisJMp48jO~Ar7>Fa2XM??O2EY#ST?CNeGofw%qy#K+6Ph5EB@e9v9_W0wE zoPOx&kpq*Hd&Y)_x_bNC5Qn>^B@v1G%odGODHe;l__!!7%)#tH!FE{eXETcPYs&Kk zm4(vke4T(2P}M}$%w`L>+r=9W3WxoiJ#q15Tr?Ko40+hSj@oWJd(bNykH~kW^g9~u zyL#*AFNBg!KG^XyN4`qQ7k`U(P(BOf%1aZ|w^4Dl!+gBmcC5_=J4I1IFU4uByEE&b%%F#oH{nKYe$b( zEl)dc!Yq8w>_RHV>UD`#5{XCZ_K3m=#Oc48I01sO<{LX%Q}^MecuzQ?Q%xlApIKua>%81p9r z?zqn#^|*9WF|&$VR-BKVM=O>sopmQ%sc!r3?eOPCFoIidfwBEJNVe8T8{&2Kv0$vu6AilJb)HxNiWhHvG|&+7H^qXk0wnc4UVz4&{$XfL~rx%zNQls9S;mA_BL5|C$$rC%~0IX z7d8z+6OZ!lO;09nFC~&7sMbz|N#~5)hqK9&J*dZc?6Yl$~vmoM{lAX%s)y zAbzM(e7ZsOV7>TQN^zuKcc|X5FQ(obk?#pfcLybV!}7_HY$~SQjaq{8;h=Ib{gt8a z^s2i9x^{=M#UgDn%Og5bRlz1vRS6|~ZP=!2uCupAoUIW@Z$ogXIXv1L9czv5Y>$pN z2YbSnj*z}Hr0ogn`Xk2Ppl&1qU6ZjLUjc4en@iT}l(sk|txmi<)IEOvK-kh#XX*$T zT7B9kx2nmbZi2m#N89Q#fa=|vs7)3&%c3@A)TWBq)hOdObr?-D%R&ZWK*t5D2eq7# zo`({`KT5DZd7}CKVDspHm|cab$8K#6mWcK`Se)D20l?kWpI1 zC@ZE@V4q)tva-CKNu#srbQYb)t)y`oXc(2trU`hJu)dJ+s_?=xs)R-r*QVt-4SbhX z>TsxSPJ`K?F&VXXgu<@#)ipP+YGw`+T82<0IWI&B<6K7LS#c zQ|2$af7g){Qzy@|#R_N*(k6Si+;RIYNEI}%v8D6vKmX@D|M|&Bm%li9_8ekAlGr}$ zw%Y@4&(yvH_s+RX&0{tOEUV_-S+;fkXuW2Cv+7Wj=4g}tWS9Lwi{U_vet$}Jpk95X zQNO?0yr;!J*67&L+wj2Qoe!Nnc*sopWZd+OWQJaKIO-vp8*ftr~7x za*;qK6~cmDs}k8vh&Qe?n>1RzQlpg{vu)zT%%F2|`-2x=kTr{#PR%P7B!>OvL-b)Y(=bgLQ; z_>g!dAh_&bg?9mv5LMW;62DE0bV!{Iq3)(gBQz&LS5uw0Efz}oJ&7=0?hU(ljGQ`o z+~@V+g?J0F{Z_=!y!DP-Z-E!>>SYk}7cO0R-{J-L-h0<72z?QY)HmKtjg?P~HJXmK2DHtve4cE+_k;`)h3+hkYx zfnB}F_Y9mnHgRgQ`#?9M2Uv!qhJl#5J7()ixO)?UzNT1zbNygj<4Aksct>igEw#Tn zydN)%r1e&P`&z*M#b4i>7z~JQ}vSLO`5|g)#148U`%p2sf2isx4`bC8490? zka}00Vlph-7m*x@NcKdPJ7cQ7_2#`To`J9#kPGSy7@;`oa42ED6E=$LOk%T$(dgB+ z1HzGjzBw4X4SX2w zV73>0g&tuu)Al^Ynp#9iE>*G06txJUS){Bj)o{wSJgQDW*YW9k0mC4yG(mNfrYgK7 zb;3$Lcu9>(%7o;vh1k!dX}DCBMj=BbtW=4a7Ct!t%we{T-fk4$^=X*{0h}lwn51@tJ!9Q$Y@enTxN?|CzA-2N~sZE z;a*2L8IIP+lg;(5oo&dM17W_cwJ{kF#p1qb46gQO0K3huQ>%p{5r@sHtSE!qY+iXu zer0(vn@Lqkk;0y9lvO!ZH9-Tb-pcIs@VdR+fdFqb$QuuE_C$nx!lKEzY&;?z@QV?D zwc9Hh_H!o_@~KA6REN!PQRfwLM!T9vyIPy#;Y2Ko5Jq{$MGrrX2$e7Pj_)yAo%hV0 zH}{U&b8fx!HsI~7yF?QCTYq~0;$Q#XGd%iTh@7|F0+<30-*v~GCypFFdh8*%es(sc zB5u?CJ8r8fD^S!HRA;YjwX&z0%?}TU9^Kt^;ZWcH7WeLyVRuTir@^=zUl1+ck*?&S z{o|+3oO=3uFEFaAA+z6wc(}7>-FyH2{X2IwcXbD&QJ2%{u$XNog9kqbwcV<5JIsEc zJFRqZTCENXwjvX#MK3dH(y__`wl0IhV^n%gP?SLmmDn^$NWn44*cftJ0YlAWz^qFH zovo?L}XFH zhD7K#%IX~2`nvz0t+x)3^S-u)Z<`q6pp&MU(}0uMF|#C#nMcFS%*@O@qtSpg8qG*E zVkR?V9IyjT>NIVW21-d9D&KSN{o~tXpRf0iQ$PE8pI0N<&q#^ZyMJr1y%yJ@6I+x# zJqQ$q41<_sk_t3@whnTUOqzjMFgKLsvgqXvCLn0QhiB79Fhc-r2N~o~fBb#maKM)B zu?IFB*|o!E&^q)AuciE$Fe?QXwFm;3${vqk?JFwhE@@<3qgrIvN(@?+#h?dlx0noY zuhXcsa6-I`?P|G5DHQCxfcnH|-VAhBQ-A`%E%2HWrv8w&(8v2Z%<9SOPfUTeXnn{dfz?7~?Kd)7>zvtSo(=p`F=(niTUMMDmG zzg_?i27?xM%EXGBI1!UzKrc+{xJflNt084o=z0A zQ%pjfRYLM=d497jVABNbI0g9*gd0r9-@xfTSMzUMui5x4DaPmp4wSSZa+%tr~v&BuI&i62>~*}y_KF;Rf<4a~d60z)=<1=#?mJ=AUx0##AFs>{_~P3ZwvrydW& z{?1xbcO4Oq1MSDau?^o{hwiLFb=Dv|YkJ$NupKq%wqwYaN)%YSb<~g%O$>Y|84dck zT0|>s%O2@$JcMY1)UBhK_9}d5HKDtfhH55s)l&PKah-Lz?nZ2P6S}hz+0oe6RND%3 z)tbr%n71B12n>JIQE2t6yIY%jyW26CzCLs>hCn2e84M~*oVhrkpv=^E93~I0--{pGU(*x zPD`uNs)Zr}n@wl2$XqUsM#ItQcm|V*$M^O0v{hFhsRW7U;eFLd55N={g>2_A@eEQo zpVFyfb{jdpW?qMt-{BB+1jOB8Nq0!p8JG4BC{X=!jGNbEVs=^uXor*-P?BRBO2*2~ zdZl&^dtW8itdS4Jeer-Z;C8|~JgCZV-hS)a>u-$D&YP|F#~yy2i9PZUPs#19`*37ERdLt7u*{P@EUg4yrZE%&pL zjdmV-$Sy8LO>bRVT`Htf4r#(fPZ+3aBR>mTHNPRRo7 z;DZ~tY|+{sp=3sHcd0a5`1werVln*OBs>nEE|&1+O1VO#mT6TowUWc2B^o3QlMK{}GzFg| z;}R7-s)9#T3z-^lUkBqamB{NbMf`57Q7aL09(m|Ns4^A*;Fj-ieeBsE|K#Z(L$=6c zPd>Kgp$+$ukzF>8Oeba=Wn7(@r3Sepk1A)Aln};ox3pp=baw_B*9x*3E!YmIEkNDq z{GfPLw1AEkF$q*G zqW16}P*<{uy}eCGYY)88T(O&n?~%}uQc9nY*tK{2Gyjus?>@F`)Xts?C?_NK=~V3G zY2J>XvEwIvqOpGG zP&63xdIo%!q(?L0Qig0Yk69Mg$>Vy-kV%v?u?u=iUW*;kcbBsV2gfLAPeW zBuSgZDZL=2<))2-0kbe^6{T&GL5FM*h6V7USvc%gj{4MDr*zmU$vK51PJYhD&Dl6Z zX4Z&>lQXdfHPm4pbwEW*=_pAJIb)#1;{%wen2HR#An4oSbl{WIJqo%{&2np49u3>2 zX4~X+yNqd-FzhmtTSX6BB~hn35p<+uJ_!0rg}4HB<{;}no>T&#(SG&1^t zy|;2PwsN6tymDDM$a_~ayT`=p)=^ru1V|WfQlV=Vm^vw{8ax&N;o*9(B#0^rvRZ*T~#oCy+`A4FimB`AJYUkTx>HR-wIbIvK|6c;5cx%YT#dn8%A#(qo=m#A1}6d-4ZvIguI1AKq)zuVAlra(t?p~BMYPm)w$!)QA8Q7mgsLM@?bQ{nRTUle zwTO;ZXt_z?bS>nvMN*y3lYMHq?Tj{2>_M@84N*XfI%UOZ~B4Kp|o;iwcV;NF4`Zfd888HVePg!tHSI zJAC49zpy(X?Dep_?5r+5twYB`*km-1Q8eK9oR}-!dF{%b+t*&Xc0r-Gx3_l1{kBZp zKav^P`tZYIE`Mfr{_Mp|m#$nf=(SrPeYmdj=nozTYn1P7+<4z6;NLfGdg1vOcf9Zt zAUoJ$mC2J08=ib@YfpQ}4}b6jNQ`@E^9C4(f_)0GD&P4Iur*t@KCtoWhc;=L=(JmV zer4{ptCv?M1`APL(!@<_c^SQAIAWR^ADo(-I)DAzlRx+YP|gsc0)e9UKd>1|AWbf= zh7wta*JpOvb!LN9BNHn{0y$TvmYA((r{8OWVTRQ#l1ey$?Q{&3m`egrS}_w3wzLW$ zF!^MFcffWwzKezHWTIf`Uk7V|l+HS8XCoA;s}X=5h(S8Gi%mo@fkj8P1KAEeEi~#N zlK_Z@YZ=VJfa|W;B6RN}20_BaOPN>|muQ6FP>sN*!Xi=t=ab;d-Mm7KKk?zfB4fMeebF7Kl<2~`+xM<7Gqh* zE>Q7kN)9AqlNAi2l!}!z@Jbd*1}70JMoP!Y83cF*J`1U)YAG9Hn4~zn`f%`S!G9v6TJvxh zt)vArd0IypRij6==z^Y5G|-EB)}%?8H}VHkKQJw3N!TbJ z30lS?_Tiv$IAlzf9}}u<&^R&Ro(kH=J%*x7HR)4M`Q>9SLCMKo>sPNum6LYXjFUNT zAp_YsYGVu=$)h$_$<8Y|_(OU|T*HW{Xnr^jXgMyOz@--jjG~}b<~2$DCRxw`M2#$B zmPD=6xJ#1^Sw{!MlVh2=(d^XFKt35Bin#`TrU9!grsjm;SRtVX#1tqGpAZz2BT}3X zOcf+xaZCo~hD}5OjXiMwHcp>~-f5<^m`F_qe3KSauff$SaWxX`F$wON7+WPqRZCDc zGEBV`)gVJPND+0?zFIMOWA@Z=y6c#ob&Spieoqyzr-IW}$%X>Prn?5Rs~8=X)Yc=w z&%@xA2-mI(Qcoqdw;Gf=(4up(EfP|vnBFd?bx3HPN=CPw+9AR>anKEH81I74|E{~T z2-PS=H}auSjo{Ko?W$q+HM0Ba*=2gURZPcfM06P&BOrH{v$R08(^m`PA1b1T&{=^2 z%l(!LbQ2sOj-nb5ARG2!nh!$Z%WtNN&<>$mN09XgF^v`2wu-)%gNWvX$ks|!+p*r( z%C4rvZFL8Lx(9HELu*$<6#_Vx_7*%E$>VbEc2_c8m|Z$Ey>#iq)jOB2-C3AF@3eWi z3=*cNwWqln(Og4Cv=KWRG0n}WW{`lkQ;~ff67+lUTLnAuSPCB0d;|gpMJJOu(4*6+ zuq`jtXgD$jS1hBk*hCTu3ND>(Ev-#;)fI=U4j(wOf6q~nfF9fpzT6%4NAc}VOk5X> z+#zCht6AMW+unpd-K)h$1&;z<^xa09 zbMKjQ&+r^xSBuJjQOTvNAS?-*e=ZIBXIx+B_MblW*nj7TA0y;dT0KL)o3htpG zUkToS{lS-n1ca1~l2b5h21ZFof$qAuc0Zrcz3-)e!^yNA*)eEjjQb_yA>~ZJVJ=~s z3Tf6Nszo<%#YtOpkXJ0EIX!+%jU1NsyPC+y5Qf58sj9ZfpT9aN!)a6V? zV9Iet+Hajd!>*VPk8{+Gk*Ob1VV+)<4N~q)H&)i7X7*rrxaTEVF!N<(A&u$ zv#@eTYTiJ~X|aPE?5LHQ))F&%%AlS;Xkw-S+x6_Yo)TBZ5SvIku909Jr%a6 zL$;L1IOsB^To5~DoybIHM$>DvW2aYUPcP1{PfyO5a;0p4F%<&e%d|xvS978YCRA8P z_lwA&ER8G3Atl`h69En1qk*{qE1+fu;T0GY3otHruY=KHrL>s|%~ooQfz+rW)v3vK zT1tbKSg#?}Y48miENr{ft1t};RE->2BkDQE?>WZptmbsr2+L$nCAYhh2e0&0b9-vb z$lrC0(OyAqJ6a}cIx48$RkXfpHl~3G%1lTK}SOi=!GNk|<6 zY_ka0q9AsF(=tS*D2VL}a;Fp|KBI@?_*6cyn?MF52M?zq3?cToHJzd9MLN`GS?p}a;MBN_v0(AXBWWxbu z^L|w8AynH@RGGkm`Ru;-x&!UChdS%-PGg&EVO0T#?4^;22Ca5}cJ9re{p`x?x6Z%% z=35_r{)^xL<(Hp+edU$g$JdXC{eCu$tQB%xT3OO-(aAVs4n-~F8Fg}((x0G>GL=2~oL9Sz^YA-2frU3z*qFmD=KmzdPVBQyzVJpgM$7E#2d%f$k{ zUhfWtW7*vNsSB5Gzjx>3uRi(wA7B0D|Ni-(|Ml%Z{-!lL!RqFN4?mF0r4K*!z+kHX z=Wo8UHd~Ci%^mfXPd)L7PRa#wbuu1pX=&L2;+YMb0n#^@M}c7Py8-5@Ad-O*>Zb3M zr5~H2ao@CI(}oRTqWjbDKh}C=H@mmdCcs5?tbVI-BIUYzZtV|WeD%@qKKso_zkluJ zo7q?>V%Pd?%9YZU}|aK7Pz2Oj_a4^CWuwJ>`snjH(IGJ*c2 z#p%==)M|xTtCFf!GQB}BSF3<(fNVGx6%A4)c$~?2(6{3iJc33*(u=7E2~EwxE14KM z4JpER0=C~}1sg%KOGh-ZP^~;nr-;xaCiel!EMXCaOd_z;G7ylW zyi=82I0ck}9S|PC5C9wsBIn>Lg<}Gbq5?4IQ{f&8pb`pvw`44ej6;>(jXKpxc`6bA zafn}n=hwz98{r}N*uzgg@#y#9;I!#}TxUzrq_sIUcMn`utu-$L~DIYzU-~&kz!l{!C29HD#_JeMnMF5dZ zc~}6&#P@JWeE{;{)(-EPPwK1Ly-md=0K6-JZepMnbd(JG1Y*y=o&PT!^Izml+u;`m zK#O7`=Nzn(Uo__8PrAh?=h*>Ri&PXU}up=t`h@Me!ioxl(7`7Cm zj$Fu*4SRF(XfhlgNoPj0x$&`y$%)z7+2z@VwdJ+5r!T*H{_3rjl@rs2{K8OlE#+K~ z=oUk|gLG&C`m8y^}fBod?9OevcIc+aQ$hx^01{_s#VFck6*1ssE3zf7y}z<(_E)Dt1J{1jC%LoDoygV|re{RgnNM9XGsxMZZ-XHw$Ar4v2O_ zG9uXZgap_i4;kS1x!7GUZl|5y4p%3;&CYByQJPHTCIh)iPi)Wu)MIPqeO0o)Dlwu8 zhOiPug|G*Jy%JoJp>+p%=l9ldI;#NQnVrDWRDcg5v$vXqsukjzL8vK(!7dx6<>6EU z9Eby5T8>pt)$ws^Hd@a?YnXi+das(?2?;4WYPX)=qoskozeS2|fB}J?)@fw*giQR> zpfBhIIU!HX0efncf{Bz;;TIDkaoec9wSp)C``kCbi=;Bx;;I$yL)PO zbyn@@uHFgPo@2XkjR(-Ry9urP={;41jtXRRdEVMuy{D~aUt7(Aj@rWrSYT{!z@rg- z7Cr3uP818*E?*eUC8lR`Z{2z8ci(*d+poX*-k&N2|eiL6v#`U%Kwb!*bR5VuYZ>~Pn*;v`r+5qA`2Ad|7OL$@toeA?+ z7Kup2ppb3Njj$@)SX)_hbpMfkyN~Vzktf(D>;{e$;Jvl-KzIFN91J_afSTAUBX>(c zlS69b(YknCtWqOV>Vd=8X$?k$#b)&e!h<8p(rjjGv9NY#;lj%&Z@hK$oew_v>`%Y{ z^EX#-zW&~?KK$o@{TC=9pMCZjaI!pia%F9m9?IT)?KTQW zf`N@MD??1fr8K;UBGtgsNQbbLRXz2qE z#i_Z{FYny>;?Mv2**E|E-50<@@g6j3=Oqx!hJb z3&5k|fd_r@^u)r+WPWOJY-(_1G?htNOgf!LVbCbdpyZZHc<|U{P?;1o3s@Iop8%R$ zEpqdxgXv5gi8; zQeaWQcMFt+AU-r}rADOyoLh8KV81yA83(v-fbKG4vtg)81~9+Z?%w+l?%}iWI(!KC zWnKuL0(7Db;2pSnAXT`ua`(>TJoeDTn>KIRxcQ;Y4?GA@)hD0WTDAb*yve0k1ua^a zQmE%qG;F+zg;TR|fUyAY3OYu~!~&{AyAB91CL`b~B=zzMU2L!}foTG&mEH&6S348g zPD8?Qp_7j5X5f2ZR0@(95caT%NYMPS2!QH+0O@5jC@g%~3&0LF?;gF znUg2Zp1pAW%C*-np1V8?(IjEVT*NT%kuAq8s}qCMlcQt#;hEgfLT+e!bYvnwJXy#= zO^+2O3xz^~LsltbZXN1%vC>d-zEoJ9nLf9;aC&)Rb$)VTs<2QRTF58ovjYpm z;B1*aIX87~rTp0|Cr`b8_1asny?XKF`i0en;}iMus59@;q%9Jd{K9ZHrsYO8oB<;* z<5J}!j$%4AJ{T@0J%zZv5VhvueBo7RtirUBo6@sjSvaMkCRD@$4KXUm1jUGu7!edB z{UU@*0O$Q4Gpo}~Yqd~Y&E@vKL4&ISv{z$lROo6k%v-xF*d0f?T~*N13lP=N$umJ? z(^bJnRB;ehLUg?Z-vY8s0}rG=WEdghvjc+dn5e5agd6%$Q-w26x}b75Ej`&_MR zQmcUucvSwFb?QTTvZh-XmiWi|eD!0S6w+41^_mCTRFbz-~9cz-~Q#?l^elm>dQa>?QlgUXjFdp$3H-9;H}%QuBJz>+g)Ybu>GwJxK+rI55KYDZvJS8^LS^Sj~XO~W0nqN6t7#W_-4`ve~ zP~$iZI={4>|Ln(eUY zQQq~ywsA0RTx^Gc&@CY$rQ|+ni9r?uGf<;KXwxa|W<7{oY zfZN)%Wz!Q|AA971E!&@aCO;5~IgAbk&m^L$?_xXPIe_^+66Rjte((O?i!vHgNC4lD zE;bs}#Vu@f+0T%JZig!XJ^(U@(9I_FfKr`_M^KO*pzWl=UJ1Gjfc+k}!-xT}9o{D# zN#ua-fbbkr-Qk@eR93P;Wld1Pw?o6g4C191{te$=yZb2*wLT{3jLQ1r3QS1QlaOLc zHrAY*GixI)+6Z%I+=LE2roj!XaRUlmNI{4iIDP}a->J?5-g+$&izeYRCw4M_UVV6s+3vM zuY>(rKJ4Kpwd^FwY4rSrS(I=n(tblGV#}xeQ~A`wcy497xIRC3c5VI2nX@#p#9dk(JW$nd!obiQM``?)Y5s?CR{<)rE^|t5;5*xO(>Fg%issX2zyd;qj;) z!Usp(>LI&)&?W=n&7fVLb;)z^1Ia|@ibM0o%$~0 z5@#L!oKpbNCpjBCt*7>@2!m#3+QuC)!`2nktE9NZI6Dt%=OG-NZYQVH&Fi)^+5qPj z=wkry{O$^9;6)&(0ktG3D!Y$zL3;xOSzLpf*rp+Mm^c`xl9FEdF??k? zKRxIfPulWMpv=X4op&3a0sj@+Oj)`R&=sz1UN=qpNBMKziHJ7g~=z z4>!=a1K=~-4hgyr>Iro&Znu)$O6@&H?5XQ(I*e#IjBKbRbTshseKH{<)9)V}g7cku zD4<##@l1Mn(@xHmi$Cs`%!gG=F~veiuoz%2`5DVT#)_A|3cZS#Hs@kYyVxZcFRCOd zNv+hj!yOfSJ0Pj*$nHi68Qk+i2Y1vS-c?hzuc@J;x#3t_!?EVN>c+ZbO(3H` zwC@1qiQly;hE$P?-7g({aoeHo&mP|X%+Z≫3i1!!Mzl4}tVZOh-jr#%wk@F+a0> z>g>$%bJM3Ur{`7&rWe!W^S;4?BboILjk+^==irEMtmqob56-SZ(%(m4{_S_){_V$j?F8)2EU>~{r=OAmqIo#LSZl-dGxW;^t3k^gjp&T*B!OVd^%3tChd1BAz)%^ zvh>Ou?|k@&Z@>8Se?dmc*MI%zmw)?Dcn`n&{I9?M==bZh#gx}vb8tWGZ`#eu@oc>Q z@ZPPkq`&FGUAy;;jE-Kqdh_P>msh3>Lw?iwg|YEWJZLin9ftm}&uUP^OaUa0d}6l< z7W&FNAkgcgR1AcQURDL`n0-1nO3i}vUAKhNB_elbTZ(EiQx231mkihrcnAe8`oFsLdyo#? zHAG0?qq2eh781|`B3eMk3Me=cjR2~fgL`+u_U(7>-}s%44?up$cQ<_ZdyhZ9Wy2;0 zi8x!x4*0A-y~r%3D*@X%1O*Exhjty zLyhTilO}9YgD#W@srZBf6_H`QVw_V(u}W!fSPRmN{d%!O&h~0VZne;@5xXtQsHYsI z6twCS9!DnV8%uc$32!#+9Emu_0>+Y8Js*(G`4#g)>tZyxmQAe|22Rf8PA$!!UWKQ? zI-vT=wUg&gpF6vLdUbwzacXXUVrITHF#$AwGFpiFiXj^$_m$id(AZ3cwd=X?*_pwm z@qt3poAesuc2#-7%B6}sfPt6BY_h?C0SZQ|*??g*Y#Z^JG7e3~u1;H3gEqyWRSxa+ zutSk|tFsQ}uveD}7>DAn{9tHeEVVj6etc>6{K@s}7caej?dChLzxCejcW%A>+I3h& zKfb&&Gqy4{vNoPvE2S34l1r1>lS|_#SEf$QO)i%TOB4Co(ez?rU_KLE&iI!G{c}n8 zuvlPUx&p8SxddQ49088c7cQ+&u1{s=bK%8YXfEwugzc~a>v+OA7Ez7I z)TOX|)C(MxaM;QlgmQ=@W}ZvMaH<(TCBw?c*##K42oqG`!3iWF>~nLvfV5GdpnHd= zy+YJmB?6@lqDlm#SWK-LQ>&+T*qI0y4;NCihJ89X+MJvo%(}&1DbCJEICuyfyUWJx zG;w+@T!c%638^SS5Cs88B*lS(G^W6fSn1<->a2$j;JNCdEcp3z5!Lm%awy$wt$I-owdv`SK zd9ilqw(1?vHSgb9yZ8CpgWIc*>^xSnr@s17OZDOA>Z7p1SY3Gt@)Qs3eD1)`XAive z?12}z?c4V3{^y@L@cd5?zxeb~sJ+iOR_w;MR)E+;#=?7Tx}nj+%7rUeZomKfFaB`j z&L?x1uIHB5a|>&hcuM1s*b-?=f6AR5j!jNPOH;%1$FIKe%MU;M_MRUWHf?%j;{#7Tw$)@Zq*IyFNcPlpb}XoaWA$**8ZfHtI$6+RvBMxl!c}mHz#G6S zpO%Z)@o;)D3E^SQTny}egSm%=hcgQBYBoy2>Qk_gN>-W5gN_$+lN}0%?8HzX!I`Q9l zPC?(pOj!Kkl7Qq#35h5X87riKTnDRQQz69}6ChPf;Q98Gs!cdp#(h`2-acDW@Ss#E$a% zIj&U*z>aPcVqi-V))nD#hTsvpfp}qn>C@d};kudkxEdk?U>u%4_uegdx{7I79vSR> z5lk|&x2wM4@Gj_ZSeR}qvJ>oEcfR;f^zvh6yd*Q5wq z)ls{Cz-<}wSu#Fz4zNAy9`;)cUh}A5GZQmS1+8OY=X5$W9W_q|^@~H%Q^oXpF|#zD zKefJg;rz7=r>~q|J9T_%d1ZcfetK$tVFB=Sd;l6+>(YR2HlUmf$QPoP<#cE^6VAsy zVVfdi7ssrkezQ2~P{hn4zm6L)@FSp3v`ga-S-(}51SGdA(-uYABF$K3&_aV$GUHU_ zyy`;441-so6mkhqX*ddl(Z$L9sm0lgCr{kGdi7_w-u(4@AAI(^FaGq0FF*d(Z{EFq z`{naz&aKR@PK>MkC}VzTfTr?T;>q3G0bY&_+i8T3ykoeLT7seE*0&_C+a z=G=<$uwf=)Eye94A@fAWUmS4f;`R~{2)XF|NNlx~S{fTz7>&>6Dj5fxCZAJ_j>r<&@(%konB6# zONev|kZ~;)<{gmO;uZEpWT?0l85egCYteZvV!=&Z^HWznQ2dAQO7^6+d&{$C~so^ENp0pfZpMY@j#9SUwnN|`_%YQ&;Ovpz5Mfife^2$HecQq`rFH=&P9?bPtfo1 zxF3G((fdLAxM}l44?P44*xPsPSY2Ct`st_l9zJ^e-FIsn>$g7n_^Gp}XBQXy`y=UO ztW?Y|E-qZWdiD63i?`ms^TEfz|J`R`U;nq?fAzO_Kl%LJt)E|d?Pu4noU`hrKYsFw zA8&m$pyfyGYPU(Z?YS2>JpdUO4@gBUkKF=9P28!8TSXx~+pS{S;x~RkwCA~)zY}}?!4l=peicsj>?k@ z2+9V__u+K1luM_BuBb!jGb+FqObrrB5W0X?AGmsEnITcqaXKyumKN_qBGJIbsbT5_ z9v8%32_7NBb_-CQP~5(DA*NdZA7Z^9m>w3UhYcIMm>yW#WfPF)_YB-S z4mx=df1(&z*zf|IwH_dC;BioU=p{0u9jqJ3hz>$`>&_SdP2XO>=NUVr(LrxE5nHr4 zAZ$CJoda(=H?t$k?M({N2@xtRMg@g*!_Iuf6|>1h22Q`3KVUAydp|(BMI1JZ!WL1;ER0$uaiF^`(lWN26@cnP zb}6(OgHCzQuN{k+ib>aK(mR$3PUd2BW0~dY{Hf(>7>r&&fByE%H{W~volk%B>DQls z{pDw0{`SM)ymRaI*DjvDaeDQ{RN+K%@OUw^UL0B|xqX~30_S>drV44+MS=7yu^m&T4yXJ_*9 z@!`nyaCmMwG@f!76VB3r6Z-s=Tb*>N!e+5Y$8%}976rp7r|IQXy_5z&e;e2!2=Oj4 z#xFs~RK&0xywnhovEpDM%uEC%Sh?7J0U;Jl8-i+b)WC+vM8+mcnK;8%PFfGzesWZS z42pY$l0FZw8wR*`dY6OK#f{z zuTV9+h|T-yt@|162L*jqB4o7)StG^NnJ8T`11DO-ezEW9E>!i-o|?VQ6?-f1+E>=>-%$;W`re%tkny+U`Tfs7 zz3ZnxI=Jnb1Ka*%|8q|rgrcLcVvqsG2l~%my8iYr zKfU?$kI%jS?&Qe}{lyvAz_7s+R9MV%v&k9^nL`mvB<@KKhlj_qGb_`_FD;z8v2^ie zgEP?4gB%zxp1geX{Eb_0y#K)mpMU#{&;Rn)r(fRw;P;nry*sh6l1Qf=E}O}y;c*$T zi3&t9`~e9%^zRJ~4O3H7k3aE5TMzP=AN_XUfdl&v9{BK+Pp{p6t1vNMoGcwbb@J@_ z^Ye4_`H}qblV@(;{@JCguiSd`y*KXs=9QoSX8yvBGuK`}cjh=~v!8tA;T=Eue%c}& z4B9TAJN3%zZ<$=7&OU578gzr~J$GGefavIj;t){6 za?&Vt?>HDpLfzeCCCI^QhCxzLL6J_Cuo=%k`*a!2?=A@3yMZg1ht=0qf-gZb?2R~0 z0gJ|MP?!}Wy#&l28L%n^3sZ6q1;jHZKEo;FcvO7w?J){TdM+GN2q2G?gUSUSA~=Be zUIDtB+tOh?9svZCXebUID4ISt9tm$7z6&TSvWtR*y{%qY$OYRR z#$EOX@-ZQ#gV@tf?du|Twd{KSr~m7J{HfXXjFD7pAvYKafbDGxY>S%MZlbg~nOy;P zZv+nDygn}v4)`b=EZwltcOfD~JifI-J6GFgkT8Z1J3_Hy+ zmpvKq7?8unhD z8+>KGv_2M_O z|9mO4I5B);Vf_5@g)3)|zjEoqE0-_7a^=c9x8L~9FMj#qFW&$3*T1@b^!nyg0%j*l5k1t<5v3z=QZf$B}E}xxB$4W8JTspXr_ARA6;~~?i zS2OBUjrvt(Y|qEePG)8^et4e)ZgtwHE5w`t@6*}v9B1&_Vf= zF!EwLZX6nQEdw+{LpE*(_Omp!pcETb;!C3N@%kj+qHlHqx?(x*nhbs;>vAYkta#7hWN)cqq$m^1Kba;BaF) zWLnV^mv#pEEoM3-s#L47)gb8s3k6c^K^iQ~g6SF9TGs4F9oq?BmxPABl$QOp)&teDVc|+dxESOt z2UyDi<{Gr_Va9TRI_DyR8Qp@1I;umuIISu)%peXUkG|NtXIt&|XKJ=TRlVcsnw{HP z4(_6~*QiKc4n9JHuIaAaS-XGx(Vg3%4(%u>j2wRHxxLRlwfpHG0jeK@dg19K+n+tU z<2fk6_Ub*`8xQYAG}qE_NSTOdcUlseHM@K&N|S1B=Hm%&(rESv~XeJ0IM9 z@3&Xp{&4o><#cg+U?>+3hg~+aNh1f>S72lA${#mEUecBa9|TW?XeF=DiOfjO5cBFTXrCT9}-Mp}_f-rJJrh@vC$ixWfA#LifB5|8AN}$Ct8b4kEC=HWht29Rs@-}K zK(tfMaclV=ozO04Im$%`pztagcO?WoaGLc>C@uly`w$}CBR8U;QrxBOhta&4eR z7c)&V4gfo-Ulal=*mwew4txD}y*%c#52yRn{h?&S558@oP{8kX+e~V$lmmOFpkoBM z2K0u_CU6WZ<6&PX6x;w*3SnT%Ai?@7>^H%3)4e^`@^&hZrs7c5Y^s6{jtB@)kb+&q zT@7j3EbJc0Z`r(2ArbV413{MsR?a;pr9&e%gN=*=Jjb|dAq!Y~y@Y2L!8uyw)k(ZM zkxL_Rs(DT&#~>i`(|YGFA%D6hL@1x{Z{D1rpX#ZbFw?C!DRU1KBfo@cw zo8_1mC81SAZnH4pNZ#w?p}aisLPXlRXd4G6YZxo|B68q(MQ{SPOGpkm%`T-n5#Fla=u$5^%>P+yQ$v;3#XxCGCG!u7Ki#LbID>VI^G`|4wV(@V-DFwKtC2WO@q+I zqnvgNXZ_-ZfE=tKM+}sbjX7eYjoQg2Bc`B5j_I(IX6lHEKIY_?JQ7ggL-#%%x0a&j zV$?ViH01;4A%|+jCIQub-m4uA8HzD0WcER?3$mF)#FP&ibKnUdG{b&VK4={Y03+lm z#obfs;A}QJmy0hJGs~0t6Z54r(5|0czH#x)ts7V0ef`$!SFgT)<;oi`Uw`Z7joa6+ zy>+zG9t79ELeQ3V z>Qh#E7LExK{a9GNkaAua?_Y{rGde~;I4UTxK{+-g0jC9QM1mTG)nh$=NP|qNuo(?L zt0$#YxR|6bBJNE}Fu=|YDR9Fo+>jiV7WWLpvV*2?&P84IGuHf!<9_NowCg_diiZpV ziwiEwe7UGgPQrv4J*eo4irW2xj*z_9FYdO|8;ry{1+tRadH`F$tA581yAD1F=9XY< z3EstUB{uE{%qO-SpmrW*c2_aFE4jVZ20}wXg7%2}B1+r<2yuj zu$F@S^?TSJ7A^(3Oa8kf)F5L%K$-WEXB>oi7aS$1^A1`@PtstI(d&0&D|U44eZF(g ziyeEO={@oiy7rKkg*dQu|w4#+|^!P386wPDp{}7*xjzgU}m^DHdHKS#%D(sj*l&$ z1g!5LDY|0=2D?qFl8WRazD%sp>x?#s&SFy;jcSugYc}gGHk;Gt@OkY4UnH3v9Vw{Pj2Hk6&Cpdu8>^xgw-&1DWIZ_^n1TSO6<>kgtHh%nyJ3qX)KZF>A*rk+*5~>HRpVXYNiVauqT{CU3ga&{g zF$o78@{maqGReYbdBCJ7rx!`tS&;tXuD|rmq_JXfb@`2&u=%qZZ z1Rf$Ry^v)D({&;5;O?CpHr)5!`@Vbc&v(A_9RPX2`X7G(iJ-^fwV8c(qt~K^Hv_+Y zR<*u=#@dMF6_{UfwZwITt)!6cPsIe_p~ ze3{`VpacY@fP?}11sv4Q$rH*%B1;$QEjEBeJ{p z$blCs_ibnPbuhY`_WirQ{pgOTl-Mc_woZp@lVjVI_;#?g0uL+jIkB-(;EwJE+e1Fq z#>WA$1H41uZs+0LA`-y68B7tyB#V$_m(ZLtrc1{5D!4(7sNbULcbb5k8jb~u>G*sx zH(SchlyWd$Tq+C!Q!yIQjXNc?Va<5VFc~z=2Mx>phLaiRTEes#l#j!5s0N+Yph`yU zxUO%~fGO$m<7QgX#u>HqMy#AXbnijcY`=Lbsv8Taz+0x^(~r2+V@@S-J97i>#cW_H z7h23mR*U`f!$F|Crw3e<{m#jRYa$6s$iPf0GN0{V%q5o!nblHubuza;Gj@7u`r`4$ zOQ+VaUpV*b^{a2ba`Vm`Z@l&L%Qr8ay>|Neh1JE=3)5$2M^8+S93Rh}m>4-TGkSi$ zbmheSYZp(vdF|5sZ@u~1C%^p)Vl_Ye>ZA96{mv_|Tmk{)*x<@=7?}3OlxI2$#|=GT zdk!@A4sq5FAg?QcCdZ{7uq)DTHE6IiK4a3OPY2CIkP@D7rz3W-Uw{=7zfBo&>%11Z zQ!jC-#dgSf0aVvYfD3h)lmV}Ga3EeRfM4I@%JFp=Q>@R;EtQI;baW)@9E)1VW9Eqv zcrpu%HbEAI{aR{VM+t-3zKWJmkrPTH2w$NYo^rC_hYUVK!v->-{eZGBF6+t2uz>Bu zYJ5(OA6BA9ROnG7X2L<3a{->y*S+);Ui!L+vgReNddc$+(yW6ru!Th$}|p_%cqvBKEG z;=}Won zj7B_Gk4fzUpfkv=3Z6?XaI0Z2kMGm-eOf^P*1B~9pN8*Na@-1zTf@1lc~C|y@{~uP zbn8P_wM`>3DtOSeTjBq6v%+On4TK%Zh$|j;LDW$!?2U(gKDQ|pbfwb+!$TSPKOex> zsu4pAeGlFNCjs6m$S%NkXxjgqkfGvLd1k?LGYioI;g$chZ?D?xEqvGZzamUQWIi5-lPExZ2u)CFA3PD+9_M3SPI1Nnm*E5R<)f zmQTTnXhmtGC}|X>t@1$+z?7vp5S+?omZnN;i?b(I7f#GipO~IlDP^YnEdVkze%W-t zzUWnzT$-h{=ge5*R4%;MZ<({PXTZBggP$@Ir!ABz8-3Cx7`E_69m1kZT(I*;9sJ3F zbiQ9(^a%5I{)j`CbE-z1YB&O{X1tKNeSUiI^5V$(h1{9hp|xWF$QP8j(y|gCO5^g9IGP<2?>NmN22%MVLH=$XL_$p zW0+wEhCY-5hB|Z*LPA}#niWZwRc#eZmTlRNv)SxEdw0*sclS;1>wRTC=lMS)Krs9S zXU_ke@A-T~cHV@EIjklIw1fc_s#{X$6_mT#6+V7lr=Yf52t@r#;OhHjRbx8nazJhe zBQ4~-4z-|1&KnWXje!yBkP-nYv{!=Ym(=#FP(5n=REKJ^%LK|L6(P$&%m$NCQFSsQ zFS;&cUuE(h$m)>N8(v>A*@w}2@pZsDdrc|^rVS`4xQ%5zVyT!~rRSqPD%Mnosm}uU zYaG9wJJ!mZ?GR13amQ?wAXMzlWN6MzfJnxKgPsi7zKrRxBN|MvyrE4{ZDEz#xs`5q zt%+2uYlIcB92FL}z%rRdFy2j~lpJB!WHD-vvg%WC1#yLOkw>7}9F?XlZ8 z?c4Tl^!7g;-uZswt`AZpx1~gGhoT*_`jP0!?D!Z+>;);XW|dr-o7PZKgvTQILXJwS zGP_z@y1N{`1HDu8!?Vl2fni^tAEb#&Ab@ko3_6ZMCorINr%@Rc5`#*FWhok%iGbvT zjFCz>HoLOTsn9ZNZRAo1rPRr7fD>qz^Xz72hsWC2+c7f*zgxp9iQwIT`z=(R;Zf?_ zZ*AVb?YDpY!`Rg1f!Kq;`{N(_r)JU$3g7(I+u$c*Y;DmxUEbkfXye?K2TyK3d3o!} z*LR+N^U2d!51xPf>GQwdfAa0E&t9!xyWc%?!qPotb+yJNr~LG1Z;=^-q5l4{VCcc4 z7f)Y&`}m9R9zOr>`n?y^r>+dltqo7lOiTvbU)#mOO$3bFG)+wSan%c9=EZ>QZI-i* zQie`M)r)CrJ_%Ns^&+xW!E`9uHaT=ngK8I{9=h2~i4`Lo=6H^ISKC?J0{mnOi`jemikk`Z4ADT08ttlziNkv+T&=>|G zO7*HHkUtsaLih}j)gj;x+N5Z*YL)E{OLv>Sy~XG-DXa#m)1-hkZ8Z#D*L>^U69cXmEm8^)(e-Scg-7)88@)oJS4#7$*j+|(piLj> zY#Z(GhFiz+VgKCN(8AcjWVg!?B0vSjucZu_+5I|}U&n`g;e|fuT$g36SvaI1jw2pJ^@2Vvt4l`gl3@cz>V%C0uMXWZ0sx8!4D4PVd)OhLYB$bz zHA6aG3$(2VeaC~HivzBee&<4ueXhG@VZd{2y#LtLz}k3VeKNQ*r4Y62&o zZ=Vj0FZc|r?aC#Wa-qXCKjb|*8{C*1KRq3o?P^)-Y7RLi3r@khR}!*wLpIigi9Djk zjcBn0Di~H)cZq8{#kD=6+I~@OP=$n+%ecA@3iUYyV%~t7H((bGm<5=qLPJK29#CWa zI?{|sJmZm%*oD0&_LxW0ZI>%~L^VEN1!`M#nzSAuIfFDq=OW4kSC#NZzhbJ@KYAjgs~C2@x3yXg;gab77H4S)PzzoGFOf-RFR9d^imli zM}WxXBLJb0MXkxg7K6DtEX>Aa#qLen8ZhDlfghI15`-OaSC887CA8bvAQzo6F#Gx%|T| z-F|QXaEE`u)zzVC);Gz40LyCi@53hcy8Kiw?kc(B}Z*0YW9=z*p2sd0H_CUKdnC zxRqw=Wqi9q(doALcwC+C7SQOjR+#TmWZq-zrHrs0e>ER^a{ZT2b3_ig;_OVWSpB)k)2eXom7{bQkMfb)?~0| z0FD!Qz13vK!C&|7*!0hJd)%Hsvn!8^Kxu{!_hCS)1Ve2h3C5!+85JQX*Fk-*q138@ zYDKMwVK>-e>nQaG3c^fByPIe|dLFFsTj5TY1v9%wHy7&>!io*kr{VQB%Z5OC;%x3| zb#%H~2f8}P2jGX>*6%QOYQ#SHJ=IVLbTq%3I%wcdb?6p)OjB;(S_jzI&x-z*HYC?{RY`7YCH zf6Ivx@9FWb^+5aaLC+2xt@$7ZjcI(Fyc z*@qup{^a_Vdw;op`=je0UHyG9p1XeLJ1weC8*m#y3~BCfHFeoF-40EAGh}#aXS3R=65HiMn~WPy z<~)*`h0}3x1_99^1PKraN}X1~@7SPVaEo@N|e)s|!s;?fu{ObAh z7fk3dkA@ZI1%3UD9x!frzkz&m zto8Eh(E4=$XuEO9sT}j@dqCvrHg?D3Nh8$q{=M7;}F0Dr9PX| zkVQqn6_y8c8!G^PnGMk6qSSr4@%xTO?@HXWC2{v=DAAL5Z%K^!^PwH@9^Uz3|4JIaHQ?6j5FXmh@0-K^h^wUOB;|>lsXjR3TGnRZ^otYO$*A ztyWJ@=g^pcBIxStHM>1}o7L?BY9)vjaEn&QyXBOW#Tu2 z{Ix^N1k-jiy8)0C775WHqZkyBcIY05Nv)8>Hs#NL@&#YZ`V7& z{%!QZgL1VJ0cJKMu z*FSx6;^wEpjq6>(S!0Xm_kVi-?O*;{s<*g@CYH`z{^;T7cb|Xr=&Qd$T)+QxV&$YS z5Nz%0Y4x;uT3cIfX1hTJOD=jD55fffXSE1g@g@~dD}h3nZjkbt6(YMv=G4e+3Q@DX z$)XfnH4?K@4Bc!%3j7da9$mzt3fLrB6H})Y>Qy4h@Mf)4E#m~q`vK3|u+4br6Yj*sE;<=H%<(P;h`apc7Cu z0*HG-feE{`byTo5sVfgVl~m*d*0=$H#(C-0*+1~Klk4+RAP{*e=z=5Iq9gdSbW&v| z7&n7)!+{s3U9DgH8Ezr3edgx8%6$R`AoZGsi$Mg=Nj|5Mmpiz z8f~I>@g10-uFp5O<@STypFV&3^4m`zzdU{6!|PYC zeev+|iziQ?zj*QemoJ}OKC|3onDfY&Jd#NhZB&g7s$hQ;AJpJRRhTIQ5gts#9*}|1 ztHk*f6u8kCgyjOacEKeNndx)J#yK6-?e%j;#DWR2WJJt26GBezgj>Eb>p!(P67qX{ zZ1T}IZK%h(9B4ncIJVSdhTT;)AzO}3XV)fDtCJa(shpZLU>Ykhd1_pqj#y-&mOEJ} zU$b_6Y+`C+b_y7xW|c=l_3F5Ok7?uB+|{cWPMv>oV!#o}R*@A^?p@#gsA7Wqe$@hKV-v(OPyxQ)4N35Wv>k*{R;;p;oV+ zZ5B3~gm}A}WjFA3QmRqL=xTGY=rmxshjaVS|LgC5_Zz6&(Rhm4(e}pA->Rx>;L4Q0 z_|>+Y3LpWS%&^8DRLz#Vq@x?tdIu>k=> zVSu)e9EOQ(osm+8Cz@T6&g%lZ&q?d4^KDTRS4z<*x5QRf6vFqf}%2tWF zA}&n`36M>JEGl3SIlxF~;F`E3rI@9Wanw?_Qp}VHs6rM2_LU@js*p_(u)qrg_Ep)? z#u0HyJO&Q-nAl_l?efCR-@fzK zufPoZ7hs?I#=pD?mM1@f2XDXmM#jD9H z^BOx3eR!ZBKnDqc17Jh~{!_K!fR=Z(Iy>Blsn1J>g*apZ;I)t7i^I3Kgwixpc{;Ts z17Dm9!=Qhz+v6j*iV(1_9QnJ6O*X<#DEY%oqm zJNW2UKB_~~IIO1+Ye_v4WGk=M*@SV)DOLp+O!r!ivbJWm$Ex!=&7BTwx2v_?!CT|mo|X;*Pt8$W4mD`dPGGU*D=QRylJa=&a0a5&@OeGL+$#x zPV=h2b#18g;sN^>fE>U*5QVY5nrCsf~%=i=m<0D?{hT+AhuX zot+KbJbU8ly*r;jeDL(n$JaL2FD!+wAD=lN^3Qi!rW~SiYty(*Jk_F@bgCwu>Yzs( z^yc5SCc)6uMU>BWE)v&h+2WjO3A z4lLoi4dOPl)MJwLfe6QA4Rp0nj*QOE&aSKi`MT-KS6QfAR9`Z@>TMyZ`?3)!(0g z`TetJFCW~ydv1Ajx!)3UNoH-F1v_KjP8roT_5iV8N$oR>0L3h(VM&Mz6!<&jr&Z;I z?FB2dfGQmJd#cD!F3U|S$qqY)WP!5%(4Hd)A|SUXLFo?i$lY5~Bex{)-3$RmdwLAe zZzAFMsp#n8%KWt2l5BKsDThu}NkQDvKtol+Iyt616JJ+|Z772bPbXnTuyJEHxVyW$ z1_K@bK>H}bDNe3^cw_nGDT}R{$0iAAHB?kS86v#XYI#b@5C&uK;8jCfQ z8ZE8ft7DrbFl|AAiGT)d&LkAIfM5{QEE;KEb`~gP0OI@hFMa_Xcc6obRVJ~<{PSP_ znj=#XnCv&+d@DI4Tcpx5g<=}NiN<7884Ns~L4rzIqtp6&x`0|R=*P$~TRZ5w> zi31G^8FV~2cnzNnrj`);CR($cZIaSKB&ilqG$ICwb)itVsikIllTOTSR*7K<3!#wm zr9zef#3!$-cLALMIu;HY3FfpS7Bo`8R2svlV+D}C$zg5`18DI0dXT|OcqE;iBNx&H zOdOYnZekNSR3z9&qpDz>nh7LENbm4!3%kt>LM@jHpAaPif#U0B966sV;=un>S$#!O zT2fp}T+HsR?{9zqkMI8;j5&Ubsx1fkIs;b+W>^r+#(D_Ab^!qZ_HDVu1|A6^q@tx9 zqE62BIt=~oEyLaIq0ym1pT}WTz${h6rK%W2HH!?8F(~qXko0g#7!Xf_ZU@pkd~uNO zu<$4tu;OdVK z#qF?x*Fd|~*yXT53&ID&MKQ65TQ}5HHy}j}sVSp?_VTn$^!sPWrj}-xmlsy%W@e|x zMn`)(2VE^A4z*v;0i)i2848N_LFmRn1HnicG15oP+@OgU)U!i&klctuZrQ9?z0hem zKImK@ZaXs-IJY=?aed+X+2aqcoPT=t!%wfBzOpuXYN`*KHfJZguFUn{nCZMQWV;yj zo(y=eERR3DcJ}_|GdEAnoto&s5E}YuY4rGzYo<*z`}#3tZ8wGN5&nJahGzo(>Ucbfre+)YZ&qx zM>?&e;RV=EAdig){8PidlS4hhfsR05o4?c1+in4%jo;ha>vnWH%^sV!&7yW$v|f0{ zbea7fAS-PdXtxh{wG6kZr~KaIb8}ZOU%z$d?(KW`?tk|3$+K5qeeunc2ampf{@J%* zKK=B`r+4q(e{}oa_piSC`ilpXULBBCX7qKlM#QuZF{8swYA{n8?4$-ARKqSO0opQS zI`TpbKh&mP8*aO>Fn;~S(v4HAW9_yv*fKM-ri`RnGj7g|o^8e~SaA#1#*mFN@0Fe$ zYrn8ExiLR+c{#Y)V;!>!+eDzWuK}AvGquP_&Nfl94U`;vQ*DQd<&t9C1a&TYk(XB3 zMk{c$i`s>yUGgfoj%){Gh{3kiP*01R3eeGEpL1q9bp6i5yU)IQ^6IaD{r-Rb_4|K+ z^|$~1>Tm!4#aDlO^5p9aCssoJ?&CwADd>Q?BtZu^VBz`nJYf6l#9&WMfjf6-gV&W6 zR_14wXCEogNUlgvC{K$oNQ(tizq}(c`A1@MQ=`)pB9F%GO5V2}#-@bA6~ z?XYv2aWEn?c31Xc;8pG`JrY}z77yKZD6tw*)qIft>Xc+e6$$uGRlqRJB-G>~%QGnr z72wgMk_${0gQwfq-qYO~7#%-#Vf6T!#S2%L&z|x1dih+u5SPzGW{6N3a%6_G;i#tJ zs0@`R$7Cq6+2J7tHeZV`(U8lvj2Z>CN=~hjlB$%HS|bN*7Slnqv3tjMkYj^J23D2; z4)*5TztmV;wa#{t(FWEU6?F*6?Nyk@CXJ3QmeIHZCYMKLGH_(D{9#fgQkl~QYWCH$ zx6WO?6|s&cxDiRjBGbRAnyehs0i)i?0EzrV<*al7Xw{k{X0`w1kb9bE(i> z39Dsb+)2ejj)iq3GOC({ssafBs*Hv%V_++I z#5#ZvNSLsXPqRT;YgTl-P1nw>pIKUPn&c)4OAA#!9jm0{H8w%Noq&cAQW_z+ zL^LFM1`Ywsv*fyp#)=|bSnHUDEX@F$OK__JM@v*u8oD?IQ=Ez|O2L;LAr>E@lpdvl z+d^d)t2&(9c@2f2(f#M#4hTCLzREyHg0+x|PcjLp1_1?fyN*vXKyVvPY;Y#Um{}+j zv);_8v$AWP0$^1&bSg1DNi@CCYh#{2rm z{Db}7z3py~$LVZ$Hh0^bd+pZl7E6~++i&3ZiIC$8bU=Y0GjJwdhUxB(`QZ5C^!&p7 z+S1b6$_fCtCW76*A(vy!Wgd5`yOoq~DQ-YRfp*X^kOwTnNtXr^c*v_A1wxdAH{}$~ zv`XgMlxzLg(_`-Qlbsi#)x5rN@znC=vnQ^dSo?T=?P_S~Ou&0$z?r|IL-aM!#vcRXXcdtoK>wJnAW@eA31mG111YoN*g(#LOA7 za3@*?FgKiXOD5g&Nw;d+tDA2(FLqg$x-6k~L#RU^a7c%3qJTv>WEBM*vOue9uvHB` znO?Wf-)R&pP!hRn;4rK861JxM7L*Tpl@twXmns8;O`&o?dt3D z4*KDjX?SWJ)=PpDBmQZi?euyA9_?aq@Wz!J4<5aI_SN4WfBEW@r(Zq!{L6bcu1|Kh zjM^0&qt2Trpx++Y80opNIQs17`lyLGrLLXO)V$s#h1`yw(V`|mF0Mh0sF5Q&SklLj zT38ES`J~UZGU{8O=%4X90(QkPtOo1oV@AqSD{I5YUvyBWnn_a@;+%~bveSb$R>-3| zGu3@{Y4r41`%1TdNP`D7K^wcoK`U@ja~;$iD=E`V$r*PEPmH?S71)lZs!mR6JEg!2 zv^r)cFgqZiJdx$>6>AAkBKC^WwO=DY8|`Ny~4{P$Pi z|Kpp#{m<|J{_o#^_rG2~`~2kc%DF*x3L#ED>bw5r2lBOxpg4tmxgj zhxQgEMwO%9Pℜbb#)chpz>5b7Dm*zA~+`I*WlQ z5s}eiSm=X0bc@04u=NZL{pG>atG6GVI(unpF4PTn1#F}a4@`zMWka$SnWCysP}j$c z8;(LKk!gBdriGAW#%1bp*(zKv6!U6gkp^F^!xovTwP2!QlnJ-I_a0Q&KmGZefF0Ph zY18lD-4t3s8(2Cqu&_3B=0Z+E(c8cJ4K&!bEv*8TMj)1PgkbO{By-s~27@J27}~sn z`L+3zADy}M(Qshc2qxSz?#8LrzVYdV)KuWBut5GVVj#f|pb)73{Khg7sS03pK#fpxa7qD5BVot{6giIu zdKC!=AXI##Rthf;dc908=ZOS#=*ht1r;8 zIRuXwehZ6O%Ouv4(Pczr2^A7PwgOiV=Gx%almk5(93=MYd_rv@zP1ot_Lz{{iNNzm z$UuG%&w)*DqT#p%1RGb!g47KJU@$)dL?osf{&NA(MQbP}R~G<|5;*N)s4ub{fM66v zF%4D9#8$v_6Hpq&bQHWs=w+~AC2*P~ey?*WINEO0fPIga3ASrUH4UR?HVQ~+J`uws zpamq*)#KpG!Gl_+77}}SBNb2sWd*p>JXBc*vLp<#hs2I8Ne9AMBN(EAISv@&lpG=d zklV{MSXDXv`U0rTVI-Oq74grxJvMSXm^GVN*k&HVzy~vHnyHCymN4O2nMG8ykZ9on zP8{3J0^~Tzq3d0OT7Yu6_~jlE0D)nqiR+c%d@{1n)Z}w$yW3j*ogE{6y<`3U$$_Ei zf#Ip)z(imKHZMB8zIJ!3&t>n2_PZ63wvKMQ9{57N64ao$KA?i(SJOhbb8*N1bDYI`-T9wjMY;zCxRc57GrUB^dz&W1)NJD~f) z1M$pEOH;@tUh*oJJgQlj;>4iy>dMTO^~Liim#>^zzkTN9wfUJ-y^f7;>)8RvX}|6I zRLAw{_RFI!Cp)#PUghb2(}j_i)lSVqTho$*K5e3cJ=3I>KVsqz>R16IdBjW~X=V&J zGe<1!Q9HbpKyW9W{AssjqD3;(rdsgoW<6TS?MuD3*)H>>M+3B$5kTnJB|~=UV2c7a zVZkw^&u#R3EkS?##7O_l7}J(i%TmDi_3HK z3!%CBwG$g>E?&8G<)e$2J_JJi#0a1=z0>`z0INK;apCdj-+lh-A5Xse?%wlP_Z~fl zw*PXUb65-WMC1@OuM~|VDwtd|r(E1IZQYEz8n#C#)OC{@pah^7OgNZ|1`X&jJ;=gw zlMePukNWsf^RZyZ+Cn{-I#9Q;{3ch;3BWUgcsdXSRhk z>lQ4wD`q=1qjqVphT1K|`1s|WoI)=n-$l!BrRBM3xh>=@J1y5lD+J&e{4BYd`R&YN zAFHyBTiYT;tOUGw&!1ikv@iRu0hiLFm(C3NKmPcm8y|mi>E?rv?!Wl-+1CI)`S$C- ze*NXQUwrlLtMC5XU;p}#|Mu-az6Zk9ts5WTxc2quk3ak5R%mLh+XtI28kI)Ofje-R zS`jcv3=)NCKq2a}^)-m{;`+ke+Puu#tkmj^K*F!!pa(7%fMS$Xl-MW0ew`DOw}Wk zb%-P_B0-Nz5Z3`wCryP;*J08Os1!3Q$$(7NB9Ev+XoStuV6x5FJOi%8q2R(e@}0Ne z{^`$t4#hd3WPok8eb?TNYq!^~-&wwVbNSNMypr+{cI;~F_k&zVq}7R)YKacSd|JLj zPUdo%BB{>a(mOueKYcv3bo|({)s8j?XvjN!?%@3L?tM{jzx5UtgQ2ikL^h8pXlhcZ z6ndiua04w+tNCp17L8FQ76X|cq#zgpl-B4H4!V#9gnvXn6OqS87Vv?0L8?(P5E58; zWaH#KBDA}qi7kPngVs8aW`L)omZ)K1YLF?!9N@-inm8IhQ^6vNX-Gb?7CtR7BsrK0 zKA~DdL5N7;XIBPzuCT8M3dk_vc9Dy&%0X0QK}rYfMr2hkG-NQZXQ@EbCDj#?8%l^^ zEs89I-2Q`!s)|oma413wmJi#hkk|p(i>?57X*#l!+E5Mw58y70TvJG{DFFA4a8_?9 z1)hA^eFIfW59juBxN`7SB5+S*;MF3ESq*zAT#HiBX42SIeDL%!aEMwOM$f<+*?18d zBOqaTVC_Lb3CI{e+$MyrU28$2i3fx`@CRVisuXr<)5ATz${akfjw`YW6~GzG#Frj{ zu_>h@jaHFHuS^G*9FR3iv9R$`Z)BpA5A6Qu+#a!cQ)6|Zj!)F{$VNWhEMzq|v8`gR zLm{xqxpq0zAtHe%wVi{qvFcsy%63kPmsQlxF81-Nx`o&t8Kqat=`uC-*pYcr!Esok85;xGS6^pGm)G6yw6!}Oz7|IpXhHz|W#akejeaq5+(ZE- z$(+Aqeq?lEYIZrayt23){yAHkUziHa_&vck)2LlJ?vRa|IfG!{ZDLJ0CCiYXC;C4; zHg|3*6zX^s*Atm^vF=4^xp$hzJ=#F4 z8ssssD*KuYqZ@D;hTF`e9rme#uG!$o%mh%P;Pvd-`pJz`r_LQ;+gM&WzC3??Wo_g5 znR6TGKRol{jrB7h0>}02mD|@od3@{97k58laQHqnV*-No7Vk57!Bp6Z+KcCQ9{K~p;KH-*|{Gp&l*PV@1R_Dc(c z_s`Fq9rwUFhgzFLP7pZ3e@#=cMdUY7Iz)hmF7h&RJ&Zyxr`pXfb~5tp)NC6ytA(BG zWaoLAdC-b!Vb!$BX#Fkf&_LVQkMDi;{N=OH9-lk4arWfu%uvsCpYJbME?>WX{p_U= zH!fZM@b>+ypL}-j>B}cyy!!mhZ@>NP-@pC#yU!jzdivtUore#fz5Mdo%U7R&@#@Ye zk4ML+H6~+|OvY;x5^0o15;!&EF$6pjyin;BA`y*7Ro2xOBZ~8CbJ8m^l8TPR=BMn> zjNh4icxPq|z}I?-D6`gK5DlqSxRDo7MG@N zOxI%4jObJ&D%F5Y(KRG#>k}aq4T*rwRG`x#nd^{8jL1YCB2j}#)*w>Us5B)eONP#r zVDq6T({49WNtD>QW{y^uzU~gY9ikKEMF78MOr3?+|9C$flK<6haw~ zAY{NMX&skP$s<%Km@aAFVA(uPw=JD9r=| z*09BPWiCWxO#z{y7^bTb;G@a|NFxRLdK^F!LO&l5iM@t_hTL8WhNL7Uyb2USWll$e zk5VxeNW8#otS|cE0bId;nhD@XL8*U?~!JU=OLj zR7?R|XM&PRg3$8;kSnl5dRK6)B8r8LGg9jfq$)GM*hc))Fg&oDMLG7$()j0UHI!O`J?;huKCs~Hdhz~Jpvv$|mKMnUXW zkOz&N5vwxP)p{Z{4i*@boz7v4Xjo12t0;a8ci6%Y>ezE&;n%8M@Vn2>3|A$n&MLtx>T@Eh3}MMVe|lG^>%4vmx|h_WezrrCfhBu{T-m3Sq$`y`K-o$fgC@5acS+$B4DE~Tt9vFTfJ^JXz{lDCNaO0z!A6-1XKGi#974`xDR$9|1svMHl0>5iOTr~_xmZr*KN!6&j zW(;rvdQ4D*9Z}=PG`OISH0uydyJgcIN`H%d*kd}gFasLV%f}a>fM4+2$2^9)0nbvf ze|3CtE!clyVRY8l9Iy%k7FNHG;5SmbG=w1o*~u=olCrFXOe-O~gN=k6yD?|=62!DsjH-+%Pr-qmxb7lN?(HW3^d znVOjfVEM?*{M7RL+L_B&Z{5B5$-_JM9^Je5aA{%j?CG<2KDqbs)5rH8J-L1F(XIQB zkDWTFw^*UKOr%j8FzEW%B|DBpqA-|rHk-reu-FVD35TdDuPDkc%RO3>2|gYBa}%L- z-w9%vv;#Xc4(`r~h1Dc5dx|g1%i*!XCJt1|HMpu`Ar9dNvIYz6e$dcBmT^hA+9Fgz zJR&=$u_%Fu$dzD=xOLg=`fNVFjD;(Qkssj9VfSWcW_qaK$HtWj5b4so1W8T2v?fte zo2aNskXOe`E91l!ha{DUxs~yZvcrsuL}pncw<1wg6)&!g7sItWiC>+}t4S3!WbjeB z&;pY47(KpDp;+>r|&-5|>zU<(uqD9M#FS(~eEe(AWw(_?71|Kja;{_PKcghRs; z2^f4ModsacJ6#yE&0Wj~mxXMhh;cF;Lg!mGIKT#zBv$3Z5if*^L!Y&kMt!0k*2>N_<^06;nw+oLK+Q?2il${cvla^eNonD-u0|qr^C1qvh6=h}M1z(Vxm6el~nU#^2eiR6!N$E$E zGt*KslM-`Nk~5PMvQiRrQxo!!#DhXO@5tfYqlpDMStW%<;m=S~S`JZKT2fS4oR?Fa zlU9_Ll9zfoKlM<4a&$p*RDRNdf|QtoR1i6&*OZksR8`iN6jWrTRAwfC$iJc>ts*b2 zA~U5jJEgiXqb|IFoKu;ZQjic;l(erfDY7ILdZ%FMw!bK8ZwdT09Pj|%wZG(OEVNQf zQV$d+?FH}7;*u6bic6CW1qN*Go6lSItWTq6t6UaOQ0hVnA5SeKOS?L8inMHXyB}E10r6m>c zr?RrTwyvV8x}v(KqO!WGrmniap&o%kps}?LsEVrE^6L63B)SgW*nq(|ps-;F&#DUe zw@4(CNTLwQbRwBXB2(Zofk-Bisbn&RgvTLjD~r+&=f>?Sh~EW{7zJ?=g<q;8QXj~YFpg?ov~37F;Tk?f?-p_;SBgSNQjNw zzau^pX0`7n?fO&V?oEks-Swx0hA#O{1IX6Jhcw!gQ3+n-`~Y&sONDJ~rE#qHX3 zXxIC(5u0Ln{W*5emVY46LPBC`oO_Mu?J%h9*m8NIe6eeOca<|#O&J@6S?zX zJKsOFd&{BSn-A~V0udV~t!<70Zo}@a2X=3bj@^?zW5k$8;^{O-W_)UVpk$uqaqIN-3|!- zeLFwcyW{=H9e>`vZBxXS_ae4#+PUSuom)5U+VV#c5Q?AM(+tnOyu^1ukBh6MeU5;w<8=;I}h&tk2fYn?|~g>J;|ctD0zaO>k0 Date: Wed, 10 Aug 2016 17:57:36 -0400 Subject: [PATCH 144/166] ~ reverted changes to rain --- src/Layers/xrRender/dxRainRender.cpp | 4 +++- src/Layers/xrRender/xrRender_console.cpp | 2 +- src/xrEngine/Rain.cpp | 6 +++--- 3 files changed, 7 insertions(+), 5 deletions(-) diff --git a/src/Layers/xrRender/dxRainRender.cpp b/src/Layers/xrRender/dxRainRender.cpp index 790d824f95f..bc8c00f1274 100644 --- a/src/Layers/xrRender/dxRainRender.cpp +++ b/src/Layers/xrRender/dxRainRender.cpp @@ -2,7 +2,7 @@ #include "dxRainRender.h" #include "../../xrEngine/Rain.h" -#include "../../xrEngine/iGame_persistent.h" + // Warning: duplicated in rain.cpp static const int max_desired_items = 2500; static const float source_radius = 12.5f; @@ -46,6 +46,8 @@ void dxRainRender::Copy(IRainRender &_in) *this = *(dxRainRender*)&_in; } +#include "../../xrEngine/iGame_persistent.h" + void dxRainRender::Render(CEffect_Rain &owner) { float factor = g_pGamePersistent->Environment().CurrentEnv->rain_density; diff --git a/src/Layers/xrRender/xrRender_console.cpp b/src/Layers/xrRender/xrRender_console.cpp index ac67dac0eb4..33ee5765eec 100644 --- a/src/Layers/xrRender/xrRender_console.cpp +++ b/src/Layers/xrRender/xrRender_console.cpp @@ -932,7 +932,7 @@ void xrRender_initconsole () CMD3(CCC_Token, "r3_minmax_sm", &ps_r3_minmax_sm, qminmax_sm_token); #ifdef DETAIL_RADIUS - CMD4(CCC_detail_radius, "r__detail_radius", &ps_r__detail_radius, 10, 300); + CMD4(CCC_detail_radius, "r__detail_radius", &ps_r__detail_radius, 49, 300); CMD4(CCC_Integer, "r__clear_models_on_unload", &ps_clear_models_on_unload, 0, 1); //Alundaio CMD4(CCC_Integer, "r__use_precompiled_shaders", &ps_use_precompiled_shaders, 0, 1); //Alundaio #endif diff --git a/src/xrEngine/Rain.cpp b/src/xrEngine/Rain.cpp index 5f4fe70c935..55d7b6daeb9 100644 --- a/src/xrEngine/Rain.cpp +++ b/src/xrEngine/Rain.cpp @@ -178,9 +178,9 @@ void CEffect_Rain::OnFrame() // ambient sound if (snd_Ambient._feedback()) { - Fvector sndP; - sndP.mad (Device.vCameraPosition,Fvector().set(0,1,0),source_offset); - snd_Ambient.set_position(sndP); + // Fvector sndP; + // sndP.mad (Device.vCameraPosition,Fvector().set(0,1,0),source_offset); + // snd_Ambient.set_position(sndP); snd_Ambient.set_volume(_max(0.1f, factor) * hemi_factor); } } From 1bc0e677d9ac91ebff01720706f3b4def708a750 Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 10 Aug 2016 17:59:37 -0400 Subject: [PATCH 145/166] = No longer display weapon params for melee weapons (check for ammo = 0) --- src/xrGame/ui/UIWpnParams.cpp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/xrGame/ui/UIWpnParams.cpp b/src/xrGame/ui/UIWpnParams.cpp index f8d059b4f31..f94a4f9c2d1 100644 --- a/src/xrGame/ui/UIWpnParams.cpp +++ b/src/xrGame/ui/UIWpnParams.cpp @@ -226,6 +226,11 @@ bool CUIWpnParams::Check(const shared_str& wpn_section) { if (pSettings->line_exist(wpn_section, "fire_dispersion_base")) { + //Alundaio: Most likely a fake weapon or melee weapon + if (pSettings->line_exist(wpn_section, "ammo_mag_size")) + if (pSettings->r_u32(wpn_section, "ammo_mag_size") == 0) + return false; + if (0==xr_strcmp(wpn_section, "wpn_addon_silencer")) return false; if (0==xr_strcmp(wpn_section, "wpn_binoc")) From cdd0ef22e19f4631c3aef068543cb02f146234e2 Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 31 Aug 2016 16:40:15 -0400 Subject: [PATCH 146/166] ~ I will amend this commit message later --- src/Layers/xrRender/xrRender_console.cpp | 2 +- src/xrGame/DestroyablePhysicsObject.cpp | 2 +- src/xrGame/Inventory.cpp | 50 +++-- src/xrGame/Inventory.h | 5 +- src/xrGame/UIGameCustom.cpp | 8 +- src/xrGame/ai/stalker/ai_stalker.cpp | 21 ++ src/xrGame/ai/stalker/ai_stalker.h | 1 + src/xrGame/alife_simulator_script.cpp | 82 +++++++ src/xrGame/console_commands.cpp | 5 +- src/xrGame/inventory_item.cpp | 2 + src/xrGame/inventory_item.h | 1 + src/xrGame/inventory_upgrade.h | 2 +- src/xrGame/inventory_upgrade_manager.cpp | 22 +- src/xrGame/level_script.cpp | 6 + src/xrGame/script_game_object.cpp | 11 - src/xrGame/script_game_object.h | 7 + src/xrGame/script_game_object2.cpp | 27 +++ src/xrGame/script_game_object3.cpp | 28 +++ src/xrGame/script_game_object_script3.cpp | 5 + src/xrGame/ui/UIActorMenu.cpp | 18 ++ src/xrGame/ui/UIActorMenu.h | 2 + src/xrGame/ui/UIActorMenuInventory.cpp | 56 +++-- src/xrGame/ui/UIActorMenu_script.cpp | 75 +++++++ src/xrGame/ui/UICellCustomItems.cpp | 3 +- src/xrGame/ui/UICellItem.cpp | 1 + src/xrGame/ui/UICellItem.h | 1 + src/xrGame/ui/UIDragDropListEx.cpp | 6 +- src/xrGame/ui/UIInventoryUtilities.cpp | 6 +- src/xrGame/ui/UIOutfitInfo.cpp | 79 ++++++- src/xrGame/ui/UIOutfitInfo.h | 2 +- src/xrGame/ui/UIPdaWnd.h | 5 +- src/xrGame/ui/UIRankingWnd.cpp | 201 ++++++++---------- src/xrGame/ui/UIRankingWnd.h | 44 ++-- src/xrGame/ui/UIRankingsCoC.cpp | 163 ++++++++++++++ src/xrGame/ui/UIRankingsCoC.h | 40 ++++ src/xrGame/ui/ui_af_params.cpp | 4 +- src/xrGame/xrGame.vcxproj | 5 + src/xrGame/xrGame.vcxproj.filters | 6 + .../xrServer_Objects_ALife_Items.cpp | 7 +- .../xrServer_Objects_ALife_Items.h | 1 + .../xrServer_Objects_ALife_Items_script.cpp | 15 ++ .../xrServer_Objects_ALife_Monsters.cpp | 4 + .../xrServer_Objects_ALife_Monsters.h | 3 +- ...xrServer_Objects_ALife_Monsters_script.cpp | 33 +++ 44 files changed, 852 insertions(+), 215 deletions(-) create mode 100644 src/xrGame/ui/UIRankingsCoC.cpp create mode 100644 src/xrGame/ui/UIRankingsCoC.h diff --git a/src/Layers/xrRender/xrRender_console.cpp b/src/Layers/xrRender/xrRender_console.cpp index 33ee5765eec..f26dab95991 100644 --- a/src/Layers/xrRender/xrRender_console.cpp +++ b/src/Layers/xrRender/xrRender_console.cpp @@ -741,7 +741,7 @@ void xrRender_initconsole () Fvector tw_min,tw_max; - CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, /*1.2f*/ 3.f ); //AVO: extended from 1.2f to 3.f + CMD4(CCC_Float, "r__geometry_lod", &ps_r__LOD, 0.1f, 1.5f ); //. CMD4(CCC_Float, "r__geometry_lod_pow", &ps_r__LOD_Power, 0, 2 ); //. CMD4(CCC_Float, "r__detail_density", &ps_r__Detail_density, .05f, 0.99f ); diff --git a/src/xrGame/DestroyablePhysicsObject.cpp b/src/xrGame/DestroyablePhysicsObject.cpp index f2bc84b0740..ce22b43fa80 100644 --- a/src/xrGame/DestroyablePhysicsObject.cpp +++ b/src/xrGame/DestroyablePhysicsObject.cpp @@ -99,7 +99,7 @@ void CDestroyablePhysicsObject::Destroy() { VERIFY(!physics_world()->Processing()); const CGameObject *who_object = smart_cast(FatalHit().initiator()); - callback(GameObject::eDeath)(lua_game_object(),who_object ? who_object : 0); + callback(GameObject::eDeath)(lua_game_object(),who_object ? who_object->lua_game_object() : 0); CPHDestroyable::Destroy(ID(),"physic_destroyable_object"); if(m_destroy_sound._handle()) { diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 1375d93eb2d..1adfd8a4ee6 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -58,23 +58,38 @@ bool CInventorySlot::CanBeActivated() const CInventory::CInventory() { m_fMaxWeight = pSettings->r_float ("inventory","max_weight"); - - u32 sz = LAST_SLOT + 1; //pSettings->r_s32("inventory", "slots_count"); //Alundaio: Get slot count directly to automate this process - m_slots.resize (sz+1); //first is [1] - m_iActiveSlot = NO_ACTIVE_SLOT; m_iNextActiveSlot = NO_ACTIVE_SLOT; m_iPrevActiveSlot = NO_ACTIVE_SLOT; - string256 temp; - for(u16 i=FirstSlot(); i<=LastSlot(); ++i ) - { - xr_sprintf(temp, "slot_persistent_%d", i); - m_slots[i].m_bPersistent = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); //Alundaio + //Alundaio: Dynamically create as many slots as we may define in system.ltx + string256 slot_persistent; + string256 slot_active; + xr_strcpy(slot_persistent,"slot_persistent_1"); + xr_strcpy(slot_active,"slot_active_1"); + + u16 k=1; + while( pSettings->line_exist("inventory", slot_persistent) && pSettings->line_exist("inventory", slot_active)){ + m_last_slot = k; + + m_slots.resize(k+1); //slot+1 because [0] is the inactive slot + + m_slots[k].m_bPersistent = !!pSettings->r_bool("inventory",slot_persistent); + m_slots[k].m_bAct = !!pSettings->r_bool("inventory",slot_active); + + k++; - xr_sprintf (temp, "slot_active_%d", i); - m_slots[i].m_bAct = !!READ_IF_EXISTS(pSettings, r_bool, "inventory", temp, false);//!!pSettings->r_bool("inventory",temp); - }; + xr_sprintf (slot_persistent,"%s%d","slot_persistent_",k); + xr_sprintf (slot_active,"%s%d","slot_active_",k); + } + + m_blocked_slots.resize(k+1); + + for (u16 i = 0; i <= k; ++i) + { + m_blocked_slots[i] = 0; + } + //-Alundaio m_bSlotsUseful = true; m_bBeltUseful = false; @@ -85,11 +100,6 @@ CInventory::CInventory() InitPriorityGroupsForQSwitch (); m_next_item_iteration_time = 0; - - for (u16 i = 0; i < LAST_SLOT+1; ++i) - { - m_blocked_slots[i] = 0; - } } @@ -1403,7 +1413,7 @@ void CInventory::TryDeactivateActiveSlot () void CInventory::BlockSlot(u16 slot_id) { - VERIFY(slot_id <= LAST_SLOT); + //VERIFY(slot_id <= LAST_SLOT); ++m_blocked_slots[slot_id]; @@ -1413,7 +1423,7 @@ void CInventory::BlockSlot(u16 slot_id) void CInventory::UnblockSlot(u16 slot_id) { - VERIFY(slot_id <= LAST_SLOT); + //VERIFY(slot_id <= LAST_SLOT); VERIFY2(m_blocked_slots[slot_id] > 0, make_string("blocked slot [%d] underflow").c_str()); @@ -1422,7 +1432,7 @@ void CInventory::UnblockSlot(u16 slot_id) bool CInventory::IsSlotBlocked(u16 slot_id) const { - VERIFY(slot_id <= LAST_SLOT); + //VERIFY(slot_id <= LAST_SLOT); return m_blocked_slots[slot_id] > 0; } diff --git a/src/xrGame/Inventory.h b/src/xrGame/Inventory.h index 21e68eb8574..66044a6bad1 100644 --- a/src/xrGame/Inventory.h +++ b/src/xrGame/Inventory.h @@ -47,8 +47,9 @@ class CInventory bool DropItem (CGameObject *pObj, bool just_before_destroy, bool dont_create_shell); void Clear (); + u16 m_last_slot; IC u16 FirstSlot () const {return KNIFE_SLOT;} - IC u16 LastSlot () const {return LAST_SLOT;} // not "end" + IC u16 LastSlot () const {return m_last_slot;} // not "end" IC bool SlotIsPersistent (u16 slot_id) const {return m_slots[slot_id].m_bPersistent;} bool Slot (u16 slot_id, PIItem pIItem, bool bNotActivate = false, bool strict_placement=false); bool Belt (PIItem pIItem, bool strict_placement=false); @@ -189,7 +190,7 @@ class CInventory except_next_items_t m_next_items_exceptions; u32 m_next_item_iteration_time; - u8 m_blocked_slots[LAST_SLOT+1]; + std::vector m_blocked_slots; bool IsSlotBlocked(u16 slot_id) const; void TryActivatePrevSlot (); void TryDeactivateActiveSlot (); diff --git a/src/xrGame/UIGameCustom.cpp b/src/xrGame/UIGameCustom.cpp index 2b226f7b045..c15b60f621c 100644 --- a/src/xrGame/UIGameCustom.cpp +++ b/src/xrGame/UIGameCustom.cpp @@ -225,8 +225,12 @@ void CUIGameCustom::ShowMessagesWindow() bool CUIGameCustom::ShowPdaMenu() { HideActorMenu(); - PdaMenu->ShowDialog(true); - return true; + if (!PdaMenu->IsShown()) + { + PdaMenu->ShowDialog(true); + return true; + } + return false; } void CUIGameCustom::HidePdaMenu() diff --git a/src/xrGame/ai/stalker/ai_stalker.cpp b/src/xrGame/ai/stalker/ai_stalker.cpp index 88dd6454818..3ffb36d2f05 100644 --- a/src/xrGame/ai/stalker/ai_stalker.cpp +++ b/src/xrGame/ai/stalker/ai_stalker.cpp @@ -1384,3 +1384,24 @@ bool CAI_Stalker::unlimited_ammo() { return infinite_ammo() && CObjectHandler::planner().object().g_Alive(); } + +void CAI_Stalker::ResetBoneProtections(LPCSTR imm_sect, LPCSTR bone_sect) +{ + IKinematics* pKinematics = renderable.visual->dcast_PKinematics(); + CInifile* ini = pKinematics->LL_UserData(); + if (ini) + { + if (imm_sect || ini->section_exist("immunities")) + { + imm_sect = imm_sect ? imm_sect : ini->r_string("immunities", "immunities_sect"); + conditions().LoadImmunities(imm_sect, pSettings); + } + + if (bone_sect || ini->line_exist("bone_protection", "bones_protection_sect")) + { + //m_boneHitProtection = xr_new(); + bone_sect = ini->r_string("bone_protection", "bones_protection_sect"); + m_boneHitProtection->reload(bone_sect, pKinematics); + } + } +} \ No newline at end of file diff --git a/src/xrGame/ai/stalker/ai_stalker.h b/src/xrGame/ai/stalker/ai_stalker.h index 141ce6dfdcb..4df77420337 100644 --- a/src/xrGame/ai/stalker/ai_stalker.h +++ b/src/xrGame/ai/stalker/ai_stalker.h @@ -270,6 +270,7 @@ class CAI_Stalker : bool ready_to_detour (); void update_best_item_info (); void update_best_item_info_impl(); + void ResetBoneProtections(LPCSTR imm_sect, LPCSTR bone_sect); virtual float GetWeaponAccuracy () const; virtual bool unlimited_ammo (); virtual void spawn_supplies (); diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index 36b54aa97db..0a8fec2d0ea 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -197,6 +197,29 @@ CSE_Abstract *CALifeSimulator__spawn_item2 (CALifeSimulator *self, LPCSTR secti return (self->server().Process_spawn(packet,clientID)); } +//Alundaio: Allows to call alife():register(se_obj) manually afterward so that packet editing can be done safely when spawning object with a parent +CSE_Abstract *CALifeSimulator__spawn_item3(CALifeSimulator *self, LPCSTR section, const Fvector &position, u32 level_vertex_id, GameGraph::_GRAPH_ID game_vertex_id, ALife::_OBJECT_ID id_parent, bool reg = true) +{ + if (reg == true) + return CALifeSimulator__spawn_item2(self, section, position, level_vertex_id, game_vertex_id, id_parent); + + if (id_parent == ALife::_OBJECT_ID(-1)) + return (self->spawn_item(section, position, level_vertex_id, game_vertex_id, id_parent)); + + CSE_ALifeDynamicObject *object = ai().alife().objects().object(id_parent, true); + if (!object) { + Msg("! invalid parent id [%d] specified", id_parent); + return (0); + } + + if (!object->m_bOnline) + return (self->spawn_item(section, position, level_vertex_id, game_vertex_id, id_parent)); + + CSE_Abstract *item = self->spawn_item(section, position, level_vertex_id, game_vertex_id, id_parent, false); + + return (item); +} + CSE_Abstract *CALifeSimulator__spawn_ammo (CALifeSimulator *self, LPCSTR section, const Fvector &position, u32 level_vertex_id, GameGraph::_GRAPH_ID game_vertex_id, ALife::_OBJECT_ID id_parent, int ammo_to_spawn) { // if (id_parent == ALife::_OBJECT_ID(-1)) @@ -327,6 +350,60 @@ void IterateInfo(const CALifeSimulator *alife, const ALife::_OBJECT_ID &id, luab functor(id, (LPCSTR)(*I).c_str()); } +CSE_Abstract* reprocess_spawn(CALifeSimulator *self, CSE_Abstract *object) +{ + NET_Packet packet; + packet.w_begin(M_SPAWN); + packet.w_stringZ(object->s_name); + + object->Spawn_Write(packet, FALSE); + self->server().FreeID(object->ID, 0); + F_entity_Destroy(object); + + ClientID clientID; + clientID.set(0xffff); + + u16 dummy; + packet.r_begin(dummy); + + return (self->server().Process_spawn(packet, clientID)); +} + +CSE_Abstract* try_to_clone_object(CALifeSimulator *self, CSE_Abstract *object, LPCSTR section, const Fvector &position, u32 level_vertex_id, GameGraph::_GRAPH_ID game_vertex_id, ALife::_OBJECT_ID id_parent, bool bRegister = true) +{ + CSE_ALifeItemWeaponMagazined* wpnmag = smart_cast(object); + if (wpnmag) + { + CSE_Abstract *absClone = self->spawn_item(section, position, level_vertex_id, game_vertex_id, id_parent, false); + if (!absClone) + return (0); + + CSE_ALifeItemWeaponMagazined *clone = smart_cast(absClone); + if (!clone) + return (0); + + clone->wpn_flags = wpnmag->wpn_flags; + clone->m_addon_flags = wpnmag->m_addon_flags; + clone->m_fCondition = wpnmag->m_fCondition; + clone->ammo_type = wpnmag->ammo_type; + clone->m_upgrades = wpnmag->m_upgrades; + clone->set_ammo_elapsed(wpnmag->get_ammo_elapsed()); + + return bRegister ? reprocess_spawn(self, absClone) : absClone;// (self->server().Process_spawn(packet, clientID)); + } + + return (0); +} + +void set_objects_per_update(CALifeSimulator *self,u32 count) +{ + self->objects_per_update(count); +} + +void set_process_time(CALifeSimulator *self, int micro) +{ + self->set_process_time(micro); +} //-Alundaio @@ -356,6 +433,7 @@ void CALifeSimulator::script_register (lua_State *L) .def("create", &CALifeSimulator__create) .def("create", &CALifeSimulator__spawn_item2) .def("create", &CALifeSimulator__spawn_item) + .def("create", &CALifeSimulator__spawn_item3) .def("create_ammo", &CALifeSimulator__spawn_ammo) .def("release", &CALifeSimulator__release) .def("spawn_id", &CALifeSimulator__spawn_id) @@ -367,6 +445,10 @@ void CALifeSimulator::script_register (lua_State *L) //Alundaio: extend alife simulator exports .def("teleport_object", &teleport_object) .def("iterate_info", &IterateInfo) + .def("clone_weapon", &try_to_clone_object) + .def("register", &reprocess_spawn) + .def("set_objects_per_update", &set_objects_per_update) + .def("set_process_time", &set_process_time) //Alundaio: END ,def("alife", &alife) diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index de91309e5e8..7c008e00a7a 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -1908,11 +1908,12 @@ void CCC_RegisterCommands() #ifndef MASTER_GOLD CMD1(CCC_ALifeTimeFactor, "al_time_factor"); // set time factor CMD1(CCC_ALifeSwitchDistance, "al_switch_distance"); // set switch distance - CMD1(CCC_ALifeProcessTime, "al_process_time"); // set process time - CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update"); // set process time CMD1(CCC_ALifeSwitchFactor, "al_switch_factor"); // set switch factor #endif // #ifndef MASTER_GOLD + CMD1(CCC_ALifeProcessTime, "al_process_time"); // set process time + CMD1(CCC_ALifeObjectsPerUpdate, "al_objects_per_update"); // set process time + CMD3(CCC_Mask, "hud_weapon", &psHUD_Flags, HUD_WEAPON); CMD3(CCC_Mask, "hud_info", &psHUD_Flags, HUD_INFO); CMD3(CCC_Mask, "hud_draw", &psHUD_Flags, HUD_DRAW); diff --git a/src/xrGame/inventory_item.cpp b/src/xrGame/inventory_item.cpp index 32dc8caa694..3edca164746 100644 --- a/src/xrGame/inventory_item.cpp +++ b/src/xrGame/inventory_item.cpp @@ -120,6 +120,8 @@ void CInventoryItem::Load(LPCSTR section) // Added by Axel, to enable optional condition use on any item m_flags.set( FUsingCondition, READ_IF_EXISTS( pSettings, r_bool, section, "use_condition", FALSE )); + m_highlight_equipped = !!READ_IF_EXISTS(pSettings, r_bool, section, "highlight_equipped", FALSE); + if ( BaseSlot() != NO_ACTIVE_SLOT || Belt()) { m_flags.set (FRuckDefault, pSettings->r_bool(section, "default_to_ruck" )); diff --git a/src/xrGame/inventory_item.h b/src/xrGame/inventory_item.h index ce82878a3ea..fded63f17cb 100644 --- a/src/xrGame/inventory_item.h +++ b/src/xrGame/inventory_item.h @@ -148,6 +148,7 @@ class CInventoryItem : shared_str m_name; shared_str m_nameShort; shared_str m_nameComplex; + bool m_highlight_equipped; SInvItemPlace m_ItemCurrPlace; diff --git a/src/xrGame/inventory_upgrade.h b/src/xrGame/inventory_upgrade.h index e3fd18199ba..6e416d31a69 100644 --- a/src/xrGame/inventory_upgrade.h +++ b/src/xrGame/inventory_upgrade.h @@ -92,7 +92,7 @@ struct functor3 : public functor2 enum EMaxProps { - max_properties_count = 3, + max_properties_count = 4, }; class Upgrade : public UpgradeBase diff --git a/src/xrGame/inventory_upgrade_manager.cpp b/src/xrGame/inventory_upgrade_manager.cpp index 1bd821e4931..f8ce4cde07e 100644 --- a/src/xrGame/inventory_upgrade_manager.cpp +++ b/src/xrGame/inventory_upgrade_manager.cpp @@ -14,7 +14,6 @@ #include "inventory_upgrade_group.h" #include "inventory_upgrade_property.h" - extern int g_upgrades_log = 0; namespace inventory @@ -158,6 +157,7 @@ bool Manager::item_upgrades_exist( shared_str const& item_id ) void Manager::load_all_inventory() { + /* LPCSTR items_section = "upgraded_inventory"; VERIFY2( pSettings->section_exist( items_section ), make_string( "Section [%s] does not exist !", items_section ) ); @@ -183,7 +183,27 @@ void Manager::load_all_inventory() { Msg( "# Upgrades of inventory items loaded." ); } + */ + + //Alundaio: No longer the need to define upgradable sections in [upgraded_inventory] + typedef CInifile::Root sections_type; + sections_type sections = pSettings->sections(); + + sections_type::const_iterator i = sections.begin(); + sections_type::const_iterator e = sections.end(); + for (; i != e; ++i) + { + if (!pSettings->line_exist((*i)->Name, "upgrades") || !pSettings->r_string((*i)->Name, "upgrades")) + continue; + + if (!pSettings->line_exist((*i)->Name, "upgrade_scheme") || !pSettings->r_string((*i)->Name, "upgrade_scheme")) + continue; + + add_root((*i)->Name); + } + //-Alundaio + /* float low, high; ///? <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< LPCSTR param = "cost"; diff --git a/src/xrGame/level_script.cpp b/src/xrGame/level_script.cpp index 637e7fdc0cc..cfe7f791487 100644 --- a/src/xrGame/level_script.cpp +++ b/src/xrGame/level_script.cpp @@ -787,6 +787,11 @@ bool ray_pick (const Fvector& start, const Fvector& dir, float range, collide::r return false; } +xrTime get_start_time() +{ + return (xrTime(Level().GetStartGameTime())); +} + #pragma optimize("s",on) void CLevel::script_register(lua_State *L) { @@ -808,6 +813,7 @@ void CLevel::script_register(lua_State *L) def("spawn_item", &spawn_section), def("get_active_cam", &get_active_cam), def("set_active_cam", &set_active_cam), + def("get_start_time", &get_start_time), #endif //Alundaio: END // obsolete\deprecated diff --git a/src/xrGame/script_game_object.cpp b/src/xrGame/script_game_object.cpp index 302ec7dc949..9ff8a406e3e 100644 --- a/src/xrGame/script_game_object.cpp +++ b/src/xrGame/script_game_object.cpp @@ -39,8 +39,6 @@ #include "smart_cover.h" #include "smart_cover_description.h" #include "physics_shell_scripted.h" -#include "CharacterPhysicsSupport.h" //Alundaio: For set_visual -#include "damage_manager.h" //Alundaio: For set_visual #include "ai\phantom\phantom.h" #include "uigamecustom.h" @@ -663,15 +661,6 @@ LPCSTR CScriptGameObject::get_smart_cover_description() const return smart_cover_object->cover().description()->table_id().c_str(); } -void CScriptGameObject::set_visual_name(LPCSTR visual) -{ - object().cNameVisual_set(visual); -} -LPCSTR CScriptGameObject::get_visual_name() const -{ - return object().cNameVisual().c_str(); -} - void CScriptGameObject::PhantomSetEnemy(CScriptGameObject* enemy) { CPhantom* phant = smart_cast(&object()); diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index ded2d7f5bfa..cc51d7e1154 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -838,6 +838,11 @@ class CScriptGameObject { u8 GetWeaponSubstate(); u8 GetAmmoType(); + //CWeaponAmmo + u16 AmmoGetCount(); + void AmmoSetCount(u16 count); + u16 AmmoBoxSize(); + //Weapon & Outfit bool InstallUpgrade(LPCSTR upgrade); bool HasUpgrade(LPCSTR upgrade); @@ -856,6 +861,8 @@ class CScriptGameObject { bool IsBoneVisible(LPCSTR bone_name); void SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive = true); + //CAI_Stalker + void ResetBoneProtections(LPCSTR imm_sect, LPCSTR bone_sect); //Anything with PPhysicShell (ie. car, actor, stalker, monster, heli) void ForceSetPosition(Fvector pos, bool bActivate = false); diff --git a/src/xrGame/script_game_object2.cpp b/src/xrGame/script_game_object2.cpp index 3aa6f7a95cf..bfa13015429 100644 --- a/src/xrGame/script_game_object2.cpp +++ b/src/xrGame/script_game_object2.cpp @@ -514,3 +514,30 @@ bool CScriptGameObject::is_there_items_to_pickup () const } return (!!stalker->memory().item().selected()); } + +void CScriptGameObject::ResetBoneProtections(LPCSTR imm_sect, LPCSTR bone_sect) +{ + CAI_Stalker* stalker = smart_cast(&object()); + if (!stalker) + return; + + stalker->ResetBoneProtections(imm_sect,bone_sect); +} + +void CScriptGameObject::set_visual_name(LPCSTR visual) +{ + object().cNameVisual_set(visual); + + /* + CAI_Stalker* stalker = smart_cast(&object()); + if (!stalker) + return; + + stalker->ResetBoneProtections(NULL,NULL); + */ +} + +LPCSTR CScriptGameObject::get_visual_name() const +{ + return object().cNameVisual().c_str(); +} \ No newline at end of file diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index a69a7292a2e..10baf0ef638 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -48,6 +48,7 @@ #include "eatable_item.h" #include "script_callback_ex.h" #include "../xrEngine/feel_touch.h" +#include "weaponammo.h" #endif //-Alundaio @@ -1113,6 +1114,33 @@ bool CScriptGameObject::is_weapon_going_to_be_strapped ( CScriptGameObject const } //Alundaio: #ifdef GAME_OBJECT_EXTENDED_EXPORTS +u16 CScriptGameObject::AmmoGetCount() +{ + CWeaponAmmo* ammo = smart_cast(&object()); + if (!ammo) + return 0; + + return ammo->m_boxCurr; +} + +void CScriptGameObject::AmmoSetCount(u16 count) +{ + CWeaponAmmo* ammo = smart_cast(&object()); + if (!ammo) + return; + + ammo->m_boxCurr = count; +} + +u16 CScriptGameObject::AmmoBoxSize() +{ + CWeaponAmmo* ammo = smart_cast(&object()); + if (!ammo) + return 0; + + return ammo->m_boxSize; +} + float CScriptGameObject::GetArtefactHealthRestoreSpeed() { CArtefact* artefact = smart_cast(&object()); diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index e82ed085100..2612286606f 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -350,6 +350,7 @@ class_ &script_register_game_object2(class_ &script_register_game_object2(class_SetProgressPos(iCeil(itm->GetCondition()*15.0f)/15.0f); else m_Helmet_progress->SetProgressPos(0); + + //Highlight 'equipped' items in actor bag + CUIDragDropListEx* slot_list = m_pInventoryBagList; + u32 const cnt = slot_list->ItemsCount(); + for (u32 i = 0; i < cnt; ++i) + { + CUICellItem* ci = slot_list->GetItemIdx(i); + PIItem item = (PIItem)ci->m_pData; + if (!item) + continue; + + if (item->m_highlight_equipped && item->m_pInventory && item->m_pInventory->ItemFromSlot(item->BaseSlot()) == item) + ci->m_select_equipped = true; + else + ci->m_select_equipped = false; + } + } diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index 628e9de6d64..368a5d225fa 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -268,6 +268,7 @@ class CUIActorMenu : public CUIDialogWnd, void UpdateButtonsLayout (); // inventory + bool ToSlotScript (CScriptGameObject* GO, bool force_place, u16 slot_id); bool ToSlot (CUICellItem* itm, bool force_place, u16 slot_id); bool ToBag (CUICellItem* itm, bool b_use_cursor_pos); bool ToBelt (CUICellItem* itm, bool b_use_cursor_pos); @@ -352,6 +353,7 @@ class CUIActorMenu : public CUIDialogWnd, CScriptGameObject* GetCurrentItemAsGameObject(); void HighlightSectionInSlot(LPCSTR section, u8 type, u16 slot_id = 0); + void HighlightForEachInSlot(luabind::functor functor, u8 type, u16 slot_id); //-AxelDominator && Alundaio consumable use condition void DonateCurrentItem(CUICellItem* cell_item); //Alundaio: Donate item via context menu while in trade menu diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index b03362099de..78205dee57c 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -435,8 +435,15 @@ void CUIActorMenu::InitInventoryContents(CUIDragDropListEx* pBagList) InitCellForSlot(ARTEFACT_SLOT); if (!m_pActorInvOwner->inventory().SlotIsPersistent(PDA_SLOT)) InitCellForSlot(PDA_SLOT); - if (!m_pActorInvOwner->inventory().SlotIsPersistent(TORCH_SLOT)) //Alundaio: TODO find out why this crash when you unequip - InitCellForSlot(TORCH_SLOT); + //if (!m_pActorInvOwner->inventory().SlotIsPersistent(TORCH_SLOT)) //Alundaio: TODO find out why this crash when you unequip + // InitCellForSlot(TORCH_SLOT); + + //for custom slots that exist past LAST_SLOT + for (u16 i = LAST_SLOT+1; i <= m_pActorInvOwner->inventory().LastSlot(); ++i) + { + if (!m_pActorInvOwner->inventory().SlotIsPersistent(i)) + InitCellForSlot(i); + } //-Alundaio curr_list = m_pInventoryBeltList; @@ -503,6 +510,33 @@ bool CUIActorMenu::TryActiveSlot(CUICellItem* itm) return false; } +bool CUIActorMenu::ToSlotScript(CScriptGameObject* GO, bool force_place, u16 slot_id) +{ + if (GO->ID() != m_pActorInvOwner->object_id()) + return false; + + CInventoryItem* iitem = smart_cast(GO->object().dcast_CObject()); + + if (!iitem || !m_pActorInvOwner->inventory().InRuck(iitem)) + return false; + + CUIDragDropListEx* invlist = GetListByType(iActorBag); + CUICellContainer* c = invlist->GetContainer(); + CUIWindow::WINDOW_LIST child_list = c->GetChildWndList(); + + for (WINDOW_LIST_it it = child_list.begin(); child_list.end() != it; ++it) + { + CUICellItem* i = (CUICellItem*)(*it); + PIItem pitm = (PIItem)i->m_pData; + if (pitm == iitem) + { + ToSlot(i, force_place, slot_id); + return true; + } + } + return false; +} + bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) { CUIDragDropListEx* old_owner = itm->OwnerList(); @@ -666,8 +700,8 @@ bool CUIActorMenu::ToBag(CUICellItem* itm, bool b_use_cursor_pos) else new_owner->SetItem (i); - if(!b_already || !b_own_item) - SendEvent_Item2Ruck (iitem, m_pActorInvOwner->object_id()); + if (!b_already || !b_own_item) + SendEvent_Item2Ruck(iitem, m_pActorInvOwner->object_id()); if ( m_currMenuMode == mmTrade && m_pPartnerInvOwner ) { @@ -763,12 +797,7 @@ CUIDragDropListEx* CUIActorMenu::GetSlotList(u16 slot_idx) return m_pInventoryDetectorList; break; - case PDA_SLOT: - case TORCH_SLOT: - case ARTEFACT_SLOT: - case BINOCULAR_SLOT: - case KNIFE_SLOT: - case GRENADE_SLOT://fake + default: if ( m_currMenuMode == mmTrade ) { return m_pTradeActorBagList; @@ -1276,8 +1305,11 @@ void CUIActorMenu::PropertiesBoxForRepair( PIItem item, bool& b_show ) //Alundaio: Ability to donate item during trade void CUIActorMenu::PropertiesBoxForDonate(PIItem item, bool& b_show) { - m_UIPropertiesBox->AddItem("st_donate", NULL, INVENTORY_DONATE_ACTION); - b_show = true; + if (item->IsQuestItem()) + { + m_UIPropertiesBox->AddItem("st_donate", NULL, INVENTORY_DONATE_ACTION); + b_show = true; + } } //-Alundaio diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index 4fb2f395d2b..b9e21aad46b 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -22,6 +22,8 @@ #include "../../xrServerEntities/script_engine.h" #include "eatable_item.h" +#include "UIPdaWnd.h" + using namespace luabind; CUIActorMenu* GetActorMenu() @@ -29,6 +31,11 @@ CUIActorMenu* GetActorMenu() return &CurrentGameUI()->GetActorMenu(); } +CUIPdaWnd* GetPDAMenu() +{ + return &CurrentGameUI()->GetPdaMenu(); +} + u8 GrabMenuMode() { return (u8)(CurrentGameUI()->GetActorMenu().GetMenuMode()); @@ -189,6 +196,64 @@ void CUIActorMenu::HighlightSectionInSlot(LPCSTR section, u8 type, u16 slot_id) m_highlight_clear = false; } + +void CUIActorMenu::HighlightForEachInSlot(luabind::functor functor, u8 type, u16 slot_id) +{ + if (!functor) + return; + + CUIDragDropListEx* slot_list = m_pInventoryBagList; + switch (type) + { + case EDDListType::iActorBag: + slot_list = m_pInventoryBagList; + break; + case EDDListType::iActorBelt: + slot_list = m_pInventoryBeltList; + break; + case EDDListType::iActorSlot: + slot_list = GetSlotList(slot_id); + break; + case EDDListType::iActorTrade: + slot_list = m_pTradeActorBagList; + break; + case EDDListType::iDeadBodyBag: + slot_list = m_pDeadBodyBagList; + break; + case EDDListType::iPartnerTrade: + slot_list = m_pTradePartnerList; + break; + case EDDListType::iPartnerTradeBag: + slot_list = m_pTradePartnerBagList; + break; + case EDDListType::iQuickSlot: + slot_list = m_pQuickSlot; + break; + case EDDListType::iTrashSlot: + slot_list = m_pTrashList; + break; + } + + if (!slot_list) + return; + + u32 const cnt = slot_list->ItemsCount(); + for (u32 i = 0; i < cnt; ++i) + { + CUICellItem* ci = slot_list->GetItemIdx(i); + PIItem item = (PIItem)ci->m_pData; + if (!item) + continue; + + if (functor(item->object().cast_game_object()->lua_game_object()) == false) + continue; + + ci->m_select_armament = true; + } + + m_highlight_clear = false; +} + #pragma optimize("s",on) void CUIActorMenu::script_register(lua_State *L) { @@ -213,14 +278,24 @@ void CUIActorMenu::script_register(lua_State *L) .def(constructor<>()) .def("get_drag_item", &CUIActorMenu::GetCurrentItemAsGameObject) .def("highlight_section_in_slot", &CUIActorMenu::HighlightSectionInSlot) + .def("highlight_for_each_in_slot", &CUIActorMenu::HighlightForEachInSlot) .def("refresh_current_cell_item", &CUIActorMenu::RefreshCurrentItemCell) .def("IsShown", &CUIActorMenu::IsShown) .def("ShowDialog", &CUIActorMenu::ShowDialog) .def("HideDialog", &CUIActorMenu::HideDialog) + .def("ToSlot", &CUIActorMenu::ToSlotScript), + + class_< CUIPdaWnd, CUIDialogWnd>("CUIPdaWnd") + .def(constructor<>()) + .def("IsShown", &CUIPdaWnd::IsShown) + .def("ShowDialog", &CUIPdaWnd::ShowDialog) + .def("HideDialog", &CUIPdaWnd::HideDialog) + .def("SetActiveSubdialog", &CUIPdaWnd::SetActiveSubdialog) ]; module(L, "ActorMenu") [ + def("get_pda_menu", &GetPDAMenu), def("get_actor_menu", &GetActorMenu), def("get_menu_mode", &GrabMenuMode) ]; diff --git a/src/xrGame/ui/UICellCustomItems.cpp b/src/xrGame/ui/UICellCustomItems.cpp index d6ea78d0fa4..3ad2d8b8dc5 100644 --- a/src/xrGame/ui/UICellCustomItems.cpp +++ b/src/xrGame/ui/UICellCustomItems.cpp @@ -129,7 +129,8 @@ CUIDragItem* CUIInventoryCellItem::CreateDragItem() } void CUIInventoryCellItem::SetTextureColor(u32 color) -{ +{ + inherited::SetTextureColor(color); for (xr_vector::iterator it = m_layers.begin(); m_layers.end() != it; ++it) { if ((*it)->m_icon) diff --git a/src/xrGame/ui/UICellItem.cpp b/src/xrGame/ui/UICellItem.cpp index 70bdd347ba7..578b2e6a3b9 100644 --- a/src/xrGame/ui/UICellItem.cpp +++ b/src/xrGame/ui/UICellItem.cpp @@ -36,6 +36,7 @@ CUICellItem::CUICellItem() m_b_destroy_childs = true; m_selected = false; m_select_armament = false; + m_select_equipped = false; m_cur_mark = false; m_has_upgrade = false; diff --git a/src/xrGame/ui/UICellItem.h b/src/xrGame/ui/UICellItem.h index 1f348f72bd9..6c1a0d3ba98 100644 --- a/src/xrGame/ui/UICellItem.h +++ b/src/xrGame/ui/UICellItem.h @@ -80,6 +80,7 @@ class CUICellItem :public CUIStatic bool m_b_destroy_childs; bool m_selected; bool m_select_armament; + bool m_select_equipped; bool m_cur_mark; bool m_has_upgrade; }; diff --git a/src/xrGame/ui/UIDragDropListEx.cpp b/src/xrGame/ui/UIDragDropListEx.cpp index ffe552f1106..58f663ca4f1 100644 --- a/src/xrGame/ui/UIDragDropListEx.cpp +++ b/src/xrGame/ui/UIDragDropListEx.cpp @@ -951,13 +951,9 @@ void CUICellContainer::Draw() { select_mode = 3; } - else + else if (ui_cell.m_item->m_select_equipped) { - //Alundaio: Highlight equipped items - PIItem iitem = (PIItem)ui_cell.m_item->m_pData; - if (iitem && iitem->m_pInventory && iitem->m_pInventory->ItemFromSlot(iitem->BaseSlot()) == iitem) select_mode = 2; - //-Alundaio: } } diff --git a/src/xrGame/ui/UIInventoryUtilities.cpp b/src/xrGame/ui/UIInventoryUtilities.cpp index 1e4f4fa77fa..3e4b1b8bd97 100644 --- a/src/xrGame/ui/UIInventoryUtilities.cpp +++ b/src/xrGame/ui/UIInventoryUtilities.cpp @@ -365,8 +365,10 @@ LPCSTR InventoryUtilities::GetTimePeriodAsString(LPSTR _buff, u32 buff_sz, ALife int cnt = 0; _buff[0] = 0; - if(month1!=month2) - cnt = xr_sprintf(_buff+cnt,buff_sz-cnt,"%d %s ",month2-month1, *CStringTable().translate("ui_st_months")); + u8 yrdiff = ((year2 - year1) * 12); + + if (month1 != month2 || yrdiff > 0) + cnt = xr_sprintf(_buff + cnt, buff_sz - cnt, "%d %s", month2 + (yrdiff - month1), *CStringTable().translate("ui_st_months")); if(!cnt && day1!=day2) cnt = xr_sprintf(_buff+cnt,buff_sz-cnt,"%d %s",day2-day1, *CStringTable().translate("ui_st_days")); diff --git a/src/xrGame/ui/UIOutfitInfo.cpp b/src/xrGame/ui/UIOutfitInfo.cpp index 6b2977d4dd9..9030e42117d 100644 --- a/src/xrGame/ui/UIOutfitInfo.cpp +++ b/src/xrGame/ui/UIOutfitInfo.cpp @@ -11,7 +11,17 @@ #include "..\ActorCondition.h" #include "..\player_hud.h" - +/* +eHitTypeBurn = u32(0), +eHitTypeShock, +eHitTypeChemicalBurn, +eHitTypeRadiation, +eHitTypeTelepatic, +eHitTypeWound, +eHitTypeFireWound, +eHitTypeStrike, +eHitTypeExplosion, +*/ LPCSTR immunity_names[]= { "burn_immunity", @@ -21,8 +31,8 @@ LPCSTR immunity_names[]= "telepatic_immunity", "wound_immunity", "fire_wound_immunity", -// "strike_immunity", - "explosion_immunity", //Alundaio: uncommented + "strike_immunity", + "explosion_immunity", }; LPCSTR immunity_st_names[]= @@ -34,8 +44,8 @@ LPCSTR immunity_st_names[]= "ui_inv_outfit_telepatic_protection", "ui_inv_outfit_wound_protection", "ui_inv_outfit_fire_wound_protection", -// "ui_inv_outfit_strike_protection", - "ui_inv_outfit_explosion_protection", //Alundaio: uncommented + "ui_inv_outfit_strike_protection", + "ui_inv_outfit_explosion_protection", }; CUIOutfitImmunity::CUIOutfitImmunity() @@ -119,10 +129,10 @@ void CUIOutfitInfo::InitFromXml( CUIXml& xml_doc ) strconcat( sizeof(buf), buf, base_str, ":", "prop_line" ); CUIXmlInit::InitStatic( xml_doc, buf, 0, m_Prop_line ); - Fvector2 pos; pos.set( 0.0f, m_Prop_line->GetWndPos().y+m_Prop_line->GetWndSize().y ); + /* for ( u32 i = 0; i < max_count; ++i ) { m_items[i] = xr_new(); @@ -131,6 +141,63 @@ void CUIOutfitInfo::InitFromXml( CUIXml& xml_doc ) m_items[i]->SetWndPos( pos ); pos.y += m_items[i]->GetWndSize().y; } + */ + + //Alundaio: Specific Display Order + m_items[ALife::eHitTypeFireWound] = xr_new(); + m_items[ALife::eHitTypeFireWound]->InitFromXml( xml_doc, base_str, ALife::eHitTypeFireWound ); + AttachChild( m_items[ALife::eHitTypeFireWound] ); + m_items[ALife::eHitTypeFireWound]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeFireWound]->GetWndSize().y; + + m_items[ALife::eHitTypeWound] = xr_new(); + m_items[ALife::eHitTypeWound]->InitFromXml( xml_doc, base_str, ALife::eHitTypeWound ); + AttachChild( m_items[ALife::eHitTypeWound] ); + m_items[ALife::eHitTypeWound]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeWound]->GetWndSize().y; + + m_items[ALife::eHitTypeStrike] = xr_new(); + m_items[ALife::eHitTypeStrike]->InitFromXml( xml_doc, base_str, ALife::eHitTypeStrike ); + AttachChild( m_items[ALife::eHitTypeStrike] ); + m_items[ALife::eHitTypeStrike]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeStrike]->GetWndSize().y; + + m_items[ALife::eHitTypeExplosion] = xr_new(); + m_items[ALife::eHitTypeExplosion]->InitFromXml( xml_doc, base_str, ALife::eHitTypeExplosion ); + AttachChild( m_items[ALife::eHitTypeExplosion] ); + m_items[ALife::eHitTypeExplosion]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeExplosion]->GetWndSize().y; + + m_items[ALife::eHitTypeBurn] = xr_new(); + m_items[ALife::eHitTypeBurn]->InitFromXml( xml_doc, base_str, ALife::eHitTypeBurn ); + AttachChild( m_items[ALife::eHitTypeBurn] ); + m_items[ALife::eHitTypeBurn]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeBurn]->GetWndSize().y; + + m_items[ALife::eHitTypeShock] = xr_new(); + m_items[ALife::eHitTypeShock]->InitFromXml( xml_doc, base_str, ALife::eHitTypeShock ); + AttachChild( m_items[ALife::eHitTypeShock] ); + m_items[ALife::eHitTypeShock]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeShock]->GetWndSize().y; + + m_items[ALife::eHitTypeChemicalBurn] = xr_new(); + m_items[ALife::eHitTypeChemicalBurn]->InitFromXml( xml_doc, base_str, ALife::eHitTypeChemicalBurn ); + AttachChild( m_items[ALife::eHitTypeChemicalBurn] ); + m_items[ALife::eHitTypeChemicalBurn]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeChemicalBurn]->GetWndSize().y; + + m_items[ALife::eHitTypeRadiation] = xr_new(); + m_items[ALife::eHitTypeRadiation]->InitFromXml( xml_doc, base_str, ALife::eHitTypeRadiation ); + AttachChild( m_items[ALife::eHitTypeRadiation] ); + m_items[ALife::eHitTypeRadiation]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeRadiation]->GetWndSize().y; + + m_items[ALife::eHitTypeTelepatic] = xr_new(); + m_items[ALife::eHitTypeTelepatic]->InitFromXml( xml_doc, base_str, ALife::eHitTypeTelepatic ); + AttachChild( m_items[ALife::eHitTypeTelepatic] ); + m_items[ALife::eHitTypeTelepatic]->SetWndPos( pos ); + pos.y += m_items[ALife::eHitTypeTelepatic]->GetWndSize().y; + pos.x = GetWndSize().x; SetWndSize( pos ); } diff --git a/src/xrGame/ui/UIOutfitInfo.h b/src/xrGame/ui/UIOutfitInfo.h index 3482f517165..586b44f0e85 100644 --- a/src/xrGame/ui/UIOutfitInfo.h +++ b/src/xrGame/ui/UIOutfitInfo.h @@ -39,7 +39,7 @@ class CUIOutfitInfo : public CUIWindow void UpdateInfo ( CCustomOutfit* cur_outfit, CCustomOutfit* slot_outfit = NULL ); void UpdateInfo ( CHelmet* cur_helmet, CHelmet* slot_helmet = NULL ); protected: - enum { max_count = ALife::eHitTypeMax-4 }; + enum { max_count = ALife::eHitTypeMax-2 }; // CUIStatic* m_caption; CUIStatic* m_Prop_line; diff --git a/src/xrGame/ui/UIPdaWnd.h b/src/xrGame/ui/UIPdaWnd.h index a75053571e9..e2c39cefb16 100644 --- a/src/xrGame/ui/UIPdaWnd.h +++ b/src/xrGame/ui/UIPdaWnd.h @@ -77,5 +77,8 @@ class CUIPdaWnd: public CUIDialogWnd void UpdatePda (); void UpdateRankingWnd (); - + DECLARE_SCRIPT_REGISTER_FUNCTION }; +add_to_type_list(CUIPdaWnd) +#undef script_type_list +#define script_type_list save_type_list(CUIPdaWnd) \ No newline at end of file diff --git a/src/xrGame/ui/UIRankingWnd.cpp b/src/xrGame/ui/UIRankingWnd.cpp index 504846aa981..31b409a96c5 100644 --- a/src/xrGame/ui/UIRankingWnd.cpp +++ b/src/xrGame/ui/UIRankingWnd.cpp @@ -30,14 +30,12 @@ #define PDA_RANKING_XML "pda_ranking.xml" +using namespace luabind; + CUIRankingWnd::CUIRankingWnd() { - m_actor_ch_info = NULL; m_previous_time = Device.dwTimeGlobal; m_delay = 3000; - m_last_monster_icon_back = ""; - m_last_monster_icon = ""; - m_last_weapon_icon = ""; } CUIRankingWnd::~CUIRankingWnd() @@ -46,18 +44,21 @@ CUIRankingWnd::~CUIRankingWnd() for(; b!=e; b++) xr_delete(*b); m_achieves_vec.clear(); + + //Alundaio: CoC Rankings + RANKINGCOC_VEC_IT be = m_coc_ranking_vec.begin(), en = m_coc_ranking_vec.end(); + for (; be != en; be++) + xr_delete(*be); + m_coc_ranking_vec.clear(); + + xr_delete(m_coc_ranking_actor); + //-Alundaio } void CUIRankingWnd::Show( bool status ) { if ( status ) { - m_actor_ch_info->InitCharacter( Actor()->object_id() ); - - string64 buf; - xr_sprintf( buf, sizeof(buf), "%d %s", Actor()->get_money(), "RU" ); - m_money_value->SetText( buf ); - m_money_value->AdjustWidthToText(); update_info(); } inherited::Show( status ); @@ -84,23 +85,7 @@ void CUIRankingWnd::Init() m_background = UIHelper::CreateFrameWindow(xml, "background", this); m_down_background = UIHelper::CreateFrameWindow(xml, "down_background", this); - m_actor_ch_info = xr_new(); - m_actor_ch_info->SetAutoDelete( true ); - AttachChild( m_actor_ch_info ); - m_actor_ch_info->InitCharacterInfo( &xml, "actor_ch_info" ); - - m_icon_overlay = UIHelper::CreateFrameWindow( xml, "actor_icon_over", this ); - m_money_caption = UIHelper::CreateTextWnd( xml, "money_caption", this ); - m_money_value = UIHelper::CreateTextWnd( xml, "money_value", this ); - - m_money_caption->AdjustWidthToText(); - pos = m_money_caption->GetWndPos(); - pos.x += m_money_caption->GetWndSize().x + 10.0f; - m_money_value->SetWndPos( pos ); - - - m_center_caption = UIHelper::CreateTextWnd( xml, "center_caption", this ); - + //Dynamic stats XML_NODE* stored_root = xml.GetLocalRoot(); XML_NODE* node = xml.NavigateToNode( "stat_info", 0 ); xml.SetLocalRoot( node ); @@ -129,23 +114,7 @@ void CUIRankingWnd::Init() } xml.SetLocalRoot( stored_root ); - string256 buf; - xr_strcpy( buf, sizeof(buf), m_center_caption->GetText() ); - xr_strcat( buf, sizeof(buf), CStringTable().translate("ui_ranking_center_caption").c_str() ); - m_center_caption->SetText( buf ); - - - m_monster_icon_back = UIHelper::CreateStatic(xml, "monster_icon_back", this); - m_monster_icon = UIHelper::CreateStatic(xml, "monster_icon", this); - m_monster_background = UIHelper::CreateFrameWindow(xml, "monster_background", this); - m_monster_over = UIHelper::CreateFrameWindow(xml, "monster_over", this); - - m_favorite_weapon_bckgrnd = UIHelper::CreateStatic(xml, "favorite_weapon_back", this); - m_favorite_weapon_icon = UIHelper::CreateStatic(xml, "favorite_weapon_icon", this); - m_favorite_weapon_ramka = UIHelper::CreateFrameWindow(xml, "favorite_weapon_ramka", this); - m_favorite_weapon_over = UIHelper::CreateFrameWindow(xml, "favorite_weapon_over", this); - - + //Achievements m_achievements_background = UIHelper::CreateFrameWindow(xml, "achievements_background", this); m_achievements = xr_new(); CUIXmlInit::InitScrollView(xml, "achievements_wnd", 0, m_achievements); @@ -162,6 +131,40 @@ void CUIRankingWnd::Init() for(u8 i = 0; ib != ie ; ++ib, ++i) add_achievement(xml, (*ib).first); + + //Alundaio: CoC Rankings + m_coc_ranking_background = UIHelper::CreateFrameWindow(xml, "coc_ranking_background", this); + m_coc_ranking = xr_new(); + CUIXmlInit::InitScrollView(xml, "coc_ranking_wnd", 0, m_coc_ranking); + m_coc_ranking->SetAutoDelete(true); + AttachChild(m_coc_ranking); + m_coc_ranking->SetWindowName("coc_ranking_list"); + + u8 topRankCount = 50; + luabind::functor getRankingArraySize; + + if (ai().script_engine().functor("pda.get_rankings_array_size", getRankingArraySize)) + { + topRankCount = getRankingArraySize(); + } + + for(u8 i=1; i <= topRankCount; i++) + { + CUIRankingsCoC* character_rank_item = xr_new(m_coc_ranking); + character_rank_item->init_from_xml(xml,i, false); + m_coc_ranking_vec.push_back(character_rank_item); + } + + m_coc_ranking_actor_view = xr_new(); + CUIXmlInit::InitScrollView(xml, "coc_ranking_wnd_actor", 0, m_coc_ranking_actor_view); + m_coc_ranking_actor_view->SetAutoDelete(true); + AttachChild(m_coc_ranking_actor_view); + m_coc_ranking_actor_view->SetWindowName("coc_ranking_list_actor"); + + m_coc_ranking_actor = xr_new(m_coc_ranking_actor_view); + m_coc_ranking_actor->init_from_xml(xml, topRankCount + 1, true); + //-Alundaio + xml.SetLocalRoot(stored_root); } @@ -186,9 +189,16 @@ void CUIRankingWnd::update_info() ACHIEVES_VEC_IT b = m_achieves_vec.begin(), e = m_achieves_vec.end(); for(; b!=e; b++) (*b)->Update(); + + //Alundaio: CoC Ranking + RANKINGCOC_VEC_IT begin = m_coc_ranking_vec.begin(), end = m_coc_ranking_vec.end(); + for (; begin != end; begin++) + (*begin)->Update(); + + m_coc_ranking_actor->Update(); + //-Alundaio + get_statistic(); - get_best_monster(); - get_favorite_weapon(); } void CUIRankingWnd::DrawHint() @@ -199,96 +209,55 @@ void CUIRankingWnd::DrawHint() if((*b)->IsShown()) (*b)->DrawHint(); } + + //Alundaio: CoC Ranking + RANKINGCOC_VEC_IT begin = m_coc_ranking_vec.begin(), end = m_coc_ranking_vec.end(); + for(; begin!=end; begin++) + { + if((*begin)->IsShown()) + (*begin)->DrawHint(); + } + + if (m_coc_ranking_actor->IsShown()) + m_coc_ranking_actor->DrawHint(); + //-Alundaio } void CUIRankingWnd::get_statistic() { + /* string128 buf; InventoryUtilities::GetTimePeriodAsString(buf, sizeof(buf), Level().GetStartGameTime(), Level().GetGameTime()); m_stat_info[0]->SetTextColor(color_rgba(170,170,170,255)); m_stat_info[0]->SetText(buf); + */ - for(u8 i = 1; i < m_stat_count; ++i) + for(u8 i = 0; i < m_stat_count; ++i) { luabind::functor funct; - R_ASSERT( ai().script_engine().functor("pda.get_stat", funct)); - LPCSTR str = funct(i); - m_stat_info[i]->SetTextColor(color_rgba(170,170,170,255)); - m_stat_info[i]->SetTextST(str); - } - -} -void CUIRankingWnd::get_best_monster() -{ - luabind::functor funct; - R_ASSERT(ai().script_engine().functor("pda.get_monster_back", funct)); - LPCSTR str = funct(); - if(!xr_strcmp(str, "")) - return; - - if(xr_strcmp(str, m_last_monster_icon_back)) - { - m_monster_icon_back->TextureOn(); - m_monster_icon_back->InitTexture(str); - m_last_monster_icon_back = str; - } - - R_ASSERT(ai().script_engine().functor("pda.get_monster_icon", funct)); - str = funct(); - if(!xr_strcmp(str, "")) - return; - - if(xr_strcmp(str, m_last_monster_icon)) - { - m_monster_icon->TextureOn(); - m_monster_icon->InitTexture(str); - m_last_monster_icon = str; - } -} -void CUIRankingWnd::get_favorite_weapon() -{ - luabind::functor funct; - R_ASSERT(ai().script_engine().functor("pda.get_favorite_weapon", funct)); - LPCSTR str = funct(); - - if(!xr_strcmp(str, "")) - return; - - if(xr_strcmp(str, m_last_weapon_icon)) - { - if(pSettings->section_exist(str) && pSettings->line_exist(str, "upgr_icon_x")) + if (ai().script_engine().functor("pda.get_stat", funct)) { - m_favorite_weapon_icon->SetShader(InventoryUtilities::GetWeaponUpgradeIconsShader()); - if(!xr_strcmp(str, "wpn_rpg7")) - m_favorite_weapon_icon->SetShader(InventoryUtilities::GetOutfitUpgradeIconsShader()); - - Frect tex_rect; - tex_rect.x1 = float(pSettings->r_u32(str, "upgr_icon_x")); - tex_rect.y1 = float(pSettings->r_u32(str, "upgr_icon_y")); - tex_rect.x2 = float(pSettings->r_u32(str, "upgr_icon_width")); - tex_rect.y2 = float(pSettings->r_u32(str, "upgr_icon_height")); - tex_rect.rb.add (tex_rect.lt); - m_favorite_weapon_icon->SetTextureRect(tex_rect); - m_favorite_weapon_icon->TextureOn(); - m_favorite_weapon_icon->SetTextureColor(color_rgba(255,255,255,255)); - m_favorite_weapon_icon->SetWndSize(Fvector2().set((tex_rect.x2-tex_rect.x1)*UI().get_current_kx()*0.8, (tex_rect.y2-tex_rect.y1)*0.8)); - m_favorite_weapon_icon->SetStretchTexture(true); + LPCSTR str = funct(i); + m_stat_info[i]->SetTextColor(color_rgba(170,170,170,255)); + m_stat_info[i]->TextItemControl().SetColoringMode(true); + m_stat_info[i]->SetTextST(str); } - m_last_weapon_icon = str; } } void CUIRankingWnd::ResetAll() { - m_last_monster_icon_back = ""; - m_last_monster_icon = ""; - m_last_weapon_icon = ""; - m_monster_icon_back->TextureOff(); - m_monster_icon->TextureOff(); - m_favorite_weapon_icon->TextureOff(); ACHIEVES_VEC_IT b = m_achieves_vec.begin(), e = m_achieves_vec.end(); for(; b!=e; b++) (*b)->Reset(); - + + //Alundaio: CoC Rankings + RANKINGCOC_VEC_IT be = m_coc_ranking_vec.begin(), ed = m_coc_ranking_vec.end(); + for(; be!=ed; be++) + (*be)->Reset(); + + m_coc_ranking_actor->Reset(); + //-Alundaio + inherited::ResetAll(); } \ No newline at end of file diff --git a/src/xrGame/ui/UIRankingWnd.h b/src/xrGame/ui/UIRankingWnd.h index bb407d5328f..c8a9312fe80 100644 --- a/src/xrGame/ui/UIRankingWnd.h +++ b/src/xrGame/ui/UIRankingWnd.h @@ -2,14 +2,15 @@ // Module : UIRankingWnd.h // Created : 17.01.2008 // Author : Evgeniy Sokolov +// Modified By : Alundaio (8/22/2016) // Description : UI Ranking window class //////////////////////////////////////////////////////////////////////////// #pragma once #include "UIWindow.h" #include "UIWndCallback.h" -//#include "UIRankFaction.h" #include "UIAchievements.h" +#include "UIRankingsCoC.h" class CUIStatic; class CUIXml; @@ -26,39 +27,33 @@ class CUIRankingWnd : public CUIWindow, public CUIWndCallback CUIFrameWindow* m_background; CUIFrameWindow* m_down_background; - CUIFrameWindow* m_icon_overlay; - - CUICharacterInfo* m_actor_ch_info; - - CUITextWnd* m_money_caption; - CUITextWnd* m_money_value; - - CUITextWnd* m_center_caption; CUIScrollView* m_achievements; CUIFrameWindow* m_achievements_background; - CUIFrameWindow* m_monster_background; - CUIFrameWindow* m_monster_over; - CUIFrameWindow* m_favorite_weapon_ramka; - CUIFrameWindow* m_favorite_weapon_over; - CUIStatic* m_monster_icon_back; - CUIStatic* m_monster_icon; - CUIStatic* m_favorite_weapon_bckgrnd; - CUIStatic* m_favorite_weapon_icon; - + + //Alundaio: CoC Rankings + CUIScrollView* m_coc_ranking; + CUIScrollView* m_coc_ranking_actor_view; + CUIFrameWindow* m_coc_ranking_background; + //-Alundaio + DEFINE_VECTOR (CUIAchievements*, ACHIEVES_VEC, ACHIEVES_VEC_IT); ACHIEVES_VEC m_achieves_vec; - - enum { max_stat_info = 15 }; + + //Alundaio: CoC Rankings + DEFINE_VECTOR (CUIRankingsCoC*, RANKINGCOC_VEC, RANKINGCOC_VEC_IT); + RANKINGCOC_VEC m_coc_ranking_vec; + + CUIRankingsCoC* m_coc_ranking_actor; + //-Alundaio + + enum { max_stat_info = 32 }; CUITextWnd* m_stat_caption[max_stat_info]; CUITextWnd* m_stat_info[max_stat_info]; u32 m_delay; u32 m_previous_time; u32 m_stat_count; - LPCSTR m_last_monster_icon_back; - LPCSTR m_last_monster_icon; - LPCSTR m_last_weapon_icon; public: CUIRankingWnd (); @@ -75,7 +70,4 @@ class CUIRankingWnd : public CUIWindow, public CUIWndCallback protected: void add_achievement (CUIXml& xml, shared_str const& faction_id); void get_statistic (); - void get_best_monster (); - void get_favorite_weapon (); - }; // class CUIRankingWnd diff --git a/src/xrGame/ui/UIRankingsCoC.cpp b/src/xrGame/ui/UIRankingsCoC.cpp new file mode 100644 index 00000000000..7650243042d --- /dev/null +++ b/src/xrGame/ui/UIRankingsCoC.cpp @@ -0,0 +1,163 @@ +#include "pch_script.h" +#include "UIRankingsCoC.h" +#include "UIScrollView.h" +#include "UIXmlInit.h" +#include "UIHelper.h" +#include "UIHint.h" +#include "UIStatic.h" +#include "UICursor.h" +#include "../ai_space.h" +#include "../../xrServerEntities/script_engine.h" +#include "../string_table.h" + +using namespace luabind; + +CUIRankingsCoC::CUIRankingsCoC(CUIScrollView* parent):m_parent(parent) +{ +} + +CUIRankingsCoC::~CUIRankingsCoC() +{ + xr_delete(m_hint); +} + +void CUIRankingsCoC::init_from_xml(CUIXml& xml, u8 index, bool bUnique) +{ + string128 tmp; + xr_sprintf(tmp, sizeof(tmp), "%s", bUnique ? "coc_ranking_itm_actor" : "coc_ranking_itm"); + + CUIXmlInit::InitWindow(xml, tmp, 0, this); + + XML_NODE* stored_root = xml.GetLocalRoot(); + XML_NODE* node = xml.NavigateToNode(tmp, 0); + + xml.SetLocalRoot(node); + + m_index = index; + m_name = UIHelper::CreateTextWnd (xml, "name", this); + m_descr = UIHelper::CreateTextWnd (xml, "descr", this); + m_icon = UIHelper::CreateStatic (xml, "icon", this); + m_hint = UIHelper::CreateHint (xml, "hint_wnd"); + //m_border = UIHelper::CreateStatic(xml, "border", this); + + xml.SetLocalRoot(stored_root); + Show(false); +} +void CUIRankingsCoC::Update() +{ + //if(ParentHasMe()) + // return; + + luabind::functor functorCanShow; + if (ai().script_engine().functor("pda.coc_rankings_can_show", functorCanShow)) + { + if (functorCanShow(m_index)) + { + if(!ParentHasMe()) + { + luabind::functor functorSetName; + if (ai().script_engine().functor("pda.coc_rankings_set_name", functorSetName)) + SetName(functorSetName(m_index)); + + luabind::functor functorSetDescription; + if (ai().script_engine().functor("pda.coc_rankings_set_description", functorSetDescription)) + SetDescription(functorSetDescription(m_index)); + + + luabind::functor functorSetHint; + if (ai().script_engine().functor("pda.coc_rankings_set_hint", functorSetHint)) + SetHint(functorSetHint(m_index)); + + + luabind::functor functorSetIcon; + if (ai().script_engine().functor("pda.coc_rankings_set_icon", functorSetIcon)) + SetIcon(functorSetIcon(m_index)); + + /* + luabind::functor functorShowBorder; + if (ai().script_engine().functor("pda.coc_rankings_show_border", functorShowBorder)) + { + if (functorShowBorder(m_index)) + { + if (!m_border->IsShown()) + m_border->Show(true); + } + else + { + if (m_border->IsShown()) + m_border->Show(false); + } + } + */ + + m_parent->AddWindow(this, false); + if (!this->IsShown()) + Show(true); + } + } + else + { + if(ParentHasMe()) + { + m_parent->RemoveWindow(this); + if (IsShown()) + Show(false); + } + } + } +} +bool CUIRankingsCoC::ParentHasMe() +{ + WINDOW_LIST::const_iterator it = std::find(m_parent->Items().begin(), m_parent->Items().end(), this); + return it != m_parent->Items().end(); +} +void CUIRankingsCoC::SetName(LPCSTR name) +{ + m_name->TextItemControl().SetColoringMode(true); + m_name->TextItemControl().SetUseNewLineMode(true); + m_name->SetText(name); +} + +void CUIRankingsCoC::SetDescription(LPCSTR desc) +{ + m_descr->TextItemControl().SetColoringMode(true); + m_descr->TextItemControl().SetUseNewLineMode(true); + m_descr->SetText(desc); + m_descr->AdjustHeightToText(); + Fvector2 descr_size = m_descr->GetWndSize(); + descr_size.y += 30.0f; + if(descr_size.y>GetWndSize().y) + SetWndSize(Fvector2().set(GetWndSize().x, descr_size.y)); +} + +void CUIRankingsCoC::SetHint(LPCSTR hint) +{ + m_hint->set_text(CStringTable().translate(hint).c_str()); +} + +void CUIRankingsCoC::SetIcon(LPCSTR icon) +{ + if (!xr_strcmp(icon, "")) + return; + + m_icon->InitTexture(icon); +} + +void CUIRankingsCoC::DrawHint() +{ + Frect r; + GetAbsoluteRect(r); + Fvector2 pos = UI().GetUICursor().GetCursorPosition(); + if(r.in(pos)) + m_hint->Draw(); +} + +void CUIRankingsCoC::Reset() +{ + if(ParentHasMe()) + { + m_parent->RemoveWindow(this); + Show(false); + } + inherited::Reset(); +} \ No newline at end of file diff --git a/src/xrGame/ui/UIRankingsCoC.h b/src/xrGame/ui/UIRankingsCoC.h new file mode 100644 index 00000000000..9535daa6975 --- /dev/null +++ b/src/xrGame/ui/UIRankingsCoC.h @@ -0,0 +1,40 @@ +#pragma once +#include "UIWindow.h" + +class CUIXml; +class CUIStatic; +class CUITextWnd; +class UIHint; +class CUIScrollView; + +class CUIRankingsCoC : public CUIWindow +{ + typedef CUIWindow inherited; +private: + CUIScrollView* m_parent; + CUITextWnd* m_name; + CUITextWnd* m_descr; + CUIStatic* m_icon; + //CUIStatic* m_border; + UIHint* m_hint; + u8 m_index; + +public: + CUIRankingsCoC (CUIScrollView* parent); + virtual ~CUIRankingsCoC (); + + void init_from_xml (CUIXml& xml,u8 index,bool bUnique); + void Update (); + + void SetName (LPCSTR name); + void SetDescription (LPCSTR desc); + void SetHint (LPCSTR hint); + void SetIcon (LPCSTR icon); + void SetFunctor (LPCSTR func); + + virtual void DrawHint (); + virtual void Reset (); + +protected: + bool ParentHasMe (); +}; diff --git a/src/xrGame/ui/ui_af_params.cpp b/src/xrGame/ui/ui_af_params.cpp index cd8813d7011..a967986e58a 100644 --- a/src/xrGame/ui/ui_af_params.cpp +++ b/src/xrGame/ui/ui_af_params.cpp @@ -45,7 +45,7 @@ LPCSTR af_immunity_section_names[] = // ALife::EInfluenceType "wound_immunity", "fire_wound_immunity", "explosion_immunity", - //"strike_immunity", + "strike_immunity", }; LPCSTR af_restore_section_names[] = // ALife::EConditionRestoreType @@ -69,7 +69,7 @@ LPCSTR af_immunity_caption[] = // ALife::EInfluenceType "ui_inv_outfit_wound_protection", // "(wound_imm)", "ui_inv_outfit_explosion_protection", // "(explosion_imm)", "ui_inv_outfit_fire_wound_protection", // "(fire_wound_imm)", - //"ui_inv_outfit_strike_protection", // "(strike_imm)", + "ui_inv_outfit_strike_protection", // "(strike_imm)", }; LPCSTR af_restore_caption[] = // ALife::EConditionRestoreType diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 0a7dc803710..0e361c13c7c 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -1751,6 +1751,7 @@ + @@ -3794,6 +3795,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch + + pch_script.h + $(IntDir)$(ProjectName)_script.pch + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index c64676e6589..4bef7e66c77 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -6741,6 +6741,9 @@ UI\Common\PDA\Statistics & Rankings + + UI\Common\PDA\Statistics & Rankings + UI\Common\PDA\Statistics & Rankings @@ -10346,6 +10349,9 @@ UI\Common\PDA\Statistics & Rankings + + UI\Common\PDA\Statistics & Rankings + UI\Common\PDA\Statistics & Rankings diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Items.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Items.cpp index 24b528fca08..2c6224e3b2e 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Items.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Items.cpp @@ -316,7 +316,7 @@ void CSE_ALifeInventoryItem::add_upgrade( const shared_str& upgrade_id ) //////////////////////////////////////////////////////////////////////////// CSE_ALifeItem::CSE_ALifeItem (LPCSTR caSection) : CSE_ALifeDynamicObjectVisual(caSection), CSE_ALifeInventoryItem(caSection) { - m_physics_disabled = false; + m_physics_disabled = false; } CSE_ALifeItem::~CSE_ALifeItem () @@ -618,6 +618,11 @@ u16 CSE_ALifeItemWeapon::get_ammo_elapsed () return ((u16)a_elapsed); } +void CSE_ALifeItemWeapon::set_ammo_elapsed(u16 count) +{ + a_elapsed = count; +} + u16 CSE_ALifeItemWeapon::get_ammo_magsize () { if (pSettings->line_exist(s_name,"ammo_mag_size")) diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Items.h b/src/xrServerEntities/xrServer_Objects_ALife_Items.h index b9ca75150b4..204d2909e73 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Items.h +++ b/src/xrServerEntities/xrServer_Objects_ALife_Items.h @@ -193,6 +193,7 @@ SERVER_ENTITY_DECLARE_BEGIN(CSE_ALifeItemWeapon,CSE_ALifeItem) u16 get_ammo_limit (); u16 get_ammo_total (); u16 get_ammo_elapsed (); + void set_ammo_elapsed (u16 count); u16 get_ammo_magsize (); void clone_addons (CSE_ALifeItemWeapon* parent); diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Items_script.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Items_script.cpp index c10906ce3b6..9d8aa4a0712 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Items_script.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Items_script.cpp @@ -10,6 +10,16 @@ #include "xrServer_Objects_ALife_Items.h" #include "xrServer_script_macroses.h" +void add_upgrade_script(CSE_ALifeInventoryItem* ta, LPCSTR str) +{ + ta->add_upgrade(str); +} + +bool has_upgrade_script(CSE_ALifeInventoryItem* ta,LPCSTR str) +{ + return ta->has_upgrade(str); +} + using namespace luabind; #pragma optimize("s",on) @@ -19,6 +29,8 @@ void CSE_ALifeInventoryItem::script_register(lua_State *L) class_ ("cse_alife_inventory_item") // .def( constructor()) + .def("has_upgrade", &has_upgrade) + .def("add_upgrade", &add_upgrade) ]; } @@ -66,6 +78,9 @@ void CSE_ALifeItemWeapon::script_register(lua_State *L) CSE_ALifeItem ) .def("clone_addons", &CSE_ALifeItemWeapon::clone_addons) + .def("set_ammo_elapsed", &CSE_ALifeItemWeapon::set_ammo_elapsed) + .def("get_ammo_elapsed", &CSE_ALifeItemWeapon::get_ammo_elapsed) + .def("get_ammo_magsize", &CSE_ALifeItemWeapon::get_ammo_magsize) ]; } diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp index 5b35216e05f..64aba722a8f 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp @@ -268,6 +268,8 @@ void CSE_ALifeTraderAbstract::OnChangeProfile(PropValue* sender) base()->set_editor_flag (ISE_Abstract::flVisualChange); } + + #ifndef AI_COMPILER @@ -421,6 +423,8 @@ void CSE_ALifeTraderAbstract::set_specific_character (shared_str new_spec_char) if(NO_REPUTATION == m_reputation) m_reputation = selected_char.Reputation(); + m_icon_name = selected_char.IconName(); + m_character_name = *(CStringTable().translate(selected_char.Name())); LPCSTR gen_name = "GENERATE_NAME_"; diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h index 8fd0641436c..d540288c1b4 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.h @@ -15,6 +15,7 @@ #include "associative_vector.h" #include "alife_movement_manager_holder.h" + class CALifeMonsterBrain; class CALifeHumanBrain; class CALifeOnlineOfflineGroupBrain; @@ -46,7 +47,7 @@ SERVER_ENTITY_DECLARE_BEGIN0(CSE_ALifeTraderAbstract) CHARACTER_REPUTATION_VALUE m_reputation; CHARACTER_RANK_VALUE m_rank; xr_string m_character_name; - + shared_str m_icon_name; bool m_deadbody_can_take; bool m_deadbody_closed; diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters_script.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Monsters_script.cpp index 7159741c7a0..b071aadeb29 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters_script.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters_script.cpp @@ -9,6 +9,7 @@ #include "pch_script.h" #include "xrServer_Objects_ALife_Monsters.h" #include "xrServer_script_macroses.h" +#include "specific_character.h" using namespace luabind; @@ -17,6 +18,33 @@ LPCSTR profile_name_script (CSE_ALifeTraderAbstract* ta) return *ta->character_profile(); } +void profile_name_set_script(CSE_ALifeTraderAbstract* ta, LPCSTR str) +{ + ta->set_character_profile(str); +} + +void set_character_name_script(CSE_ALifeTraderAbstract* ta, LPCSTR str) +{ + ta->m_character_name = str; +} + +LPCSTR character_name_script(CSE_ALifeTraderAbstract* ta) +{ + return ta->m_character_name.c_str(); +} + +LPCSTR icon_name_script(CSE_ALifeTraderAbstract* ta) +{ + ta->specific_character(); + if (!ta->m_icon_name.size()) + { + CSpecificCharacter selected_char; + selected_char.Load(ta->m_SpecificCharacter); + ta->m_icon_name = selected_char.IconName(); + } + return *ta->m_icon_name; +} + #pragma optimize("s",on) void CSE_ALifeTraderAbstract::script_register(lua_State *L) { @@ -27,8 +55,13 @@ void CSE_ALifeTraderAbstract::script_register(lua_State *L) #ifdef XRGAME_EXPORTS .def("community", &CommunityName) .def("profile_name", &profile_name_script) + .def("set_profile_name", &profile_name_set_script) + .def("character_name", &character_name_script) + .def("set_character_name", &set_character_name_script) .def("rank", &Rank) + .def("set_rank", &SetRank) .def("reputation", &Reputation) + .def("character_icon", &icon_name_script) #endif // XRGAME_EXPORTS ]; } From 06ea42cb1c8544ea1eabc83821385a02ae5dd517 Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 7 Sep 2016 17:33:25 -0400 Subject: [PATCH 147/166] ~ display condition in Artefact UI stat info (for degradation) ~ Refactor renderer GPU support detection = Fix Main/Worker thread sync = Fix xrDebug expression/description mismatch, added nosegment default on BugTrap error msgbox (not used in CoC) = Fix memory leak with file handles in dx10ResourceManager_Resources.cpp = Fix R3/R4 SM_4_1 shader name = Fix IReader:close() - Remove CopyProtection, Securom and Parental controls --- .../dx10ResourceManager_Resources.cpp | 7 +- src/Layers/xrRenderPC_R3/r3.cpp | 2 +- src/Layers/xrRenderPC_R4/r4.cpp | 2 +- src/editors/ECore/Editor/device.h | 6 +- .../mp_screenshots_info/xr_dsa_signer.cpp | 1 + src/xrCore/Event.cpp | 16 ++ src/xrCore/Event.hpp | 23 ++ src/xrCore/FS.cpp | 4 +- src/xrCore/LocatorAPI_auth.cpp | 2 +- src/xrCore/xrCore.vcxproj | 2 + src/xrCore/xrCore.vcxproj.filters | 2 + src/xrCore/xrDebugNew.cpp | 25 +- src/xrEngine/CopyProtection.h | 51 ---- src/xrEngine/Device_create.cpp | 6 +- src/xrEngine/Device_wndproc.cpp | 4 + src/xrEngine/EngineAPI.cpp | 155 ++--------- src/xrEngine/Environment_misc.cpp | 6 +- src/xrEngine/IGame_Level.cpp | 6 +- src/xrEngine/XR_IOConsole.cpp | 6 +- src/xrEngine/device.cpp | 262 +++++------------- src/xrEngine/device.h | 75 ++--- src/xrEngine/securom_api.h | 180 ------------ src/xrEngine/x_ray.cpp | 94 +------ src/xrEngine/xrEngine.vcxproj | 1 - src/xrEngine/xrEngine.vcxproj.filters | 3 - src/xrGame/accumulative_states.h | 2 + src/xrGame/ui/UIActorMenu.h | 1 + src/xrGame/ui/UIActorMenuInventory.cpp | 28 +- src/xrGame/ui/UIActorMenu_script.cpp | 3 +- src/xrGame/ui/UIItemInfo.cpp | 8 +- src/xrGame/ui/UIItemInfo.h | 2 +- src/xrGame/ui/ui_af_params.cpp | 25 +- src/xrGame/ui/ui_af_params.h | 5 +- src/xrServerEntities/alife_space.h | 2 +- src/xrServerEntities/object_interfaces.h | 16 ++ src/xrServerEntities/script_engine_script.cpp | 4 +- src/xrServerEntities/smart_cast.h | 7 +- .../xrServer_Objects_Abstract.h | 7 + src/xrSound/SoundRender_Source.cpp | 1 + 39 files changed, 301 insertions(+), 751 deletions(-) create mode 100644 src/xrCore/Event.cpp create mode 100644 src/xrCore/Event.hpp delete mode 100644 src/xrEngine/CopyProtection.h delete mode 100644 src/xrEngine/securom_api.h diff --git a/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp b/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp index 6892fdc775e..3a27bd2cade 100644 --- a/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp +++ b/src/Layers/xrRenderDX10/dx10ResourceManager_Resources.cpp @@ -270,9 +270,9 @@ SPS* CResourceManager::_CreatePS (LPCSTR _name) FS.update_path (cname, "$game_shaders$", cname); // duplicate and zero-terminate - IReader* R = FS.r_open(cname); + IReader* file = FS.r_open(cname); // TODO: DX10: HACK: Implement all shaders. Remove this for PS - if (!R) + if (!file) { string1024 tmp; // TODO: HACK: Test failure @@ -281,10 +281,9 @@ SPS* CResourceManager::_CreatePS (LPCSTR _name) Msg (tmp); strconcat (sizeof(cname), cname,::Render->getShaderPath(),"stub_default",".ps"); FS.update_path (cname, "$game_shaders$", cname); - R = FS.r_open(cname); + file = FS.r_open(cname); } - IReader* file = FS.r_open(cname); R_ASSERT2 ( file, cname ); u32 const size = file->length(); char* const data = (LPSTR)_alloca(size + 1); diff --git a/src/Layers/xrRenderPC_R3/r3.cpp b/src/Layers/xrRenderPC_R3/r3.cpp index 0cf4a0221ad..243a4483bae 100644 --- a/src/Layers/xrRenderPC_R3/r3.cpp +++ b/src/Layers/xrRenderPC_R3/r3.cpp @@ -1221,7 +1221,7 @@ HRESULT CRender::shader_compile ( defines[def_it].Definition = "1"; def_it++; } - sh_name[len]='0'+0*char(o.dx10_sm4_1); ++len; + sh_name[len]='0'+char(o.dx10_sm4_1); ++len; if (o.dx10_minmax_sm) { diff --git a/src/Layers/xrRenderPC_R4/r4.cpp b/src/Layers/xrRenderPC_R4/r4.cpp index 6f84348bb3b..8fa85da02f7 100644 --- a/src/Layers/xrRenderPC_R4/r4.cpp +++ b/src/Layers/xrRenderPC_R4/r4.cpp @@ -1350,7 +1350,7 @@ HRESULT CRender::shader_compile ( defines[def_it].Definition = "1"; def_it++; } - sh_name[len]='0'+0*char(o.dx10_sm4_1); ++len; + sh_name[len]='0'+char(o.dx10_sm4_1); ++len; R_ASSERT ( HW.FeatureLevel>=D3D_FEATURE_LEVEL_11_0 ); if( HW.FeatureLevel>=D3D_FEATURE_LEVEL_11_0 ) diff --git a/src/editors/ECore/Editor/device.h b/src/editors/ECore/Editor/device.h index 4bd932469f6..d204eb9b33e 100644 --- a/src/editors/ECore/Editor/device.h +++ b/src/editors/ECore/Editor/device.h @@ -45,8 +45,10 @@ class ECORE_API CEditorRenderDevice : Fmaterial m_DefaultMat; public: // u32 dwWidth, dwHeight; - u32 m_RenderWidth_2, m_RenderHeight_2; - u32 m_RealWidth, m_RealHeight; + u32 m_RenderWidth_2; + u32 m_RenderHeight_2; + u32 m_RealWidth; + u32 m_RealHeight; float m_RenderArea; float m_ScreenQuality; diff --git a/src/utils/mp_screenshots_info/xr_dsa_signer.cpp b/src/utils/mp_screenshots_info/xr_dsa_signer.cpp index c41d3256889..b1b3a8f645a 100644 --- a/src/utils/mp_screenshots_info/xr_dsa_signer.cpp +++ b/src/utils/mp_screenshots_info/xr_dsa_signer.cpp @@ -1,5 +1,6 @@ #include "pch.h" #include "xr_dsa_signer.h" +#include xr_dsa_signer::xr_dsa_signer(u8 const p_number[crypto::xr_dsa::public_key_length], u8 const q_number[crypto::xr_dsa::private_key_length], diff --git a/src/xrCore/Event.cpp b/src/xrCore/Event.cpp new file mode 100644 index 00000000000..081fb1973ff --- /dev/null +++ b/src/xrCore/Event.cpp @@ -0,0 +1,16 @@ +#include "stdafx.h" +#include "Event.hpp" +#include + +Event::Event() { handle = (void*)CreateEvent(NULL, FALSE, FALSE, NULL); } + +Event::~Event() { CloseHandle(handle); } + +void Event::Reset() { ResetEvent(handle); } + +void Event::Set() { SetEvent(handle); } + +void Event::Wait() const { WaitForSingleObject(handle, INFINITE); } + +bool Event::Wait(u32 millisecondsTimeout) const +{ return WaitForSingleObject(handle, millisecondsTimeout)!=WAIT_TIMEOUT; } diff --git a/src/xrCore/Event.hpp b/src/xrCore/Event.hpp new file mode 100644 index 00000000000..6f2d334aa69 --- /dev/null +++ b/src/xrCore/Event.hpp @@ -0,0 +1,23 @@ +#pragma once +#include "xrCore.h" + +class XRCORE_API Event +{ +private: + void *handle; + +public: + Event(); + ~Event(); + + // Reset the event to the unsignalled state. + void Reset(); + // Set the event to the signalled state. + void Set(); + // Wait indefinitely for the object to become signalled. + void Wait() const; + // Wait, with a time limit, for the object to become signalled. + bool Wait(u32 millisecondsTimeout) const; + + void *GetHandle() const { return handle; } +}; diff --git a/src/xrCore/FS.cpp b/src/xrCore/FS.cpp index 92347177114..cb404dd7907 100644 --- a/src/xrCore/FS.cpp +++ b/src/xrCore/FS.cpp @@ -362,7 +362,9 @@ IReader* IReader::open_chunk(u32 ID) }; void IReader::close() { - xr_delete((IReader*)this); + //xr_delete((IReader*)this); + IReader *self = this; + xr_delete(self); } #include "FS_impl.h" diff --git a/src/xrCore/LocatorAPI_auth.cpp b/src/xrCore/LocatorAPI_auth.cpp index 831d760ca35..1cf0ec6dc71 100644 --- a/src/xrCore/LocatorAPI_auth.cpp +++ b/src/xrCore/LocatorAPI_auth.cpp @@ -75,7 +75,7 @@ void CLocatorAPI::auth_runtime(void* params) continue; // test for important - for (s = 0; s < _o->important.size(); s++) + for (u32 s = 0; s < _o->important.size(); s++) { if ((f.size_real != 0) && strstr(f.name, _o->important[s].c_str())) { diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index a83f238e9ef..4a3c18df4c7 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -377,6 +377,7 @@ + @@ -514,6 +515,7 @@ + diff --git a/src/xrCore/xrCore.vcxproj.filters b/src/xrCore/xrCore.vcxproj.filters index 58a469a772b..db17af56182 100644 --- a/src/xrCore/xrCore.vcxproj.filters +++ b/src/xrCore/xrCore.vcxproj.filters @@ -289,6 +289,7 @@ OS + @@ -599,6 +600,7 @@ + diff --git a/src/xrCore/xrDebugNew.cpp b/src/xrCore/xrDebugNew.cpp index 874a8f40b43..bdd089a00ed 100644 --- a/src/xrCore/xrDebugNew.cpp +++ b/src/xrCore/xrDebugNew.cpp @@ -86,6 +86,8 @@ void LogStackTrace(LPCSTR header) void xrDebug::gather_info(const char* expression, const char* description, const char* argument0, const char* argument1, const char* file, int line, const char* function, LPSTR assertion_info, u32 const assertion_info_size) { + if (!expression) + expression = ""; LPSTR buffer_base = assertion_info; LPSTR buffer = assertion_info; int assertion_size = (int) assertion_info_size; @@ -243,10 +245,10 @@ void xrDebug::backend(const char* expression, const char* description, const cha #ifdef USE_OWN_ERROR_MESSAGE_WINDOW LPCSTR endline = "\r\n"; LPSTR buffer = assertion_info + xr_strlen(assertion_info); - buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress OK to abort execution%s", endline, endline); - /*buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress CANCEL to abort execution%s", endline, endline); + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "%sPress CANCEL to abort execution%s", endline, endline); + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press TRY AGAIN to continue execution%s", endline); - buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press CONTINUE to continue execution and ignore all the errors of this type%s%s", endline, endline);*/ + buffer += xr_sprintf(buffer, sizeof(assertion_info) - u32(buffer - &assertion_info[0]), "Press CONTINUE to continue execution and ignore all the errors of this type%s%s", endline, endline); #endif // USE_OWN_ERROR_MESSAGE_WINDOW if (handler) @@ -334,17 +336,17 @@ LPCSTR xrDebug::error2string(long code) void xrDebug::error(long hr, const char* expr, const char* file, int line, const char* function, bool& ignore_always) { - backend(error2string(hr), expr, 0, 0, file, line, function, ignore_always); + backend(expr, error2string(hr), 0, 0, file, line, function, ignore_always); } void xrDebug::error(long hr, const char* expr, const char* e2, const char* file, int line, const char* function, bool& ignore_always) { - backend(error2string(hr), expr, e2, 0, file, line, function, ignore_always); + backend(expr, error2string(hr), e2, 0, file, line, function, ignore_always); } void xrDebug::fail(const char* e1, const char* file, int line, const char* function, bool& ignore_always) { - backend("assertion failed", e1, 0, 0, file, line, function, ignore_always); + backend(e1, "assertion failed", 0, 0, file, line, function, ignore_always); } void xrDebug::fail(const char* e1, const std::string& e2, const char* file, int line, const char* function, bool& ignore_always) @@ -405,7 +407,7 @@ void __cdecl xrDebug::fatal(const char* file, int line, const char* function, co bool ignore_always = true; - backend("fatal error", "", buffer, 0, file, line, function, ignore_always); + backend(nullptr, "fatal error", buffer, 0, file, line, function, ignore_always); } typedef void(*full_memory_stats_callback_type) (); @@ -473,6 +475,8 @@ void CALLBACK PreErrorHandler(INT_PTR) #ifdef USE_BUG_TRAP void SetupExceptionHandler(const bool& dedicated) { + UINT prevMode = SetErrorMode(SEM_NOGPFAULTERRORBOX); + SetErrorMode(prevMode|SEM_NOGPFAULTERRORBOX); BT_InstallSehFilter(); #if 1//ndef USE_OWN_ERROR_MESSAGE_WINDOW if (!dedicated && !strstr(GetCommandLine(), "-silent_error_mode")) @@ -884,8 +888,7 @@ void _terminate() string4096 assertion_info; Debug.gather_info ( - //gather_info ( - "", + nullptr, "Unexpected application termination", 0, 0, @@ -925,7 +928,7 @@ static void handler_base(LPCSTR reason_string) { bool ignore_always = false; Debug.backend( - "error handler is invoked!", + nullptr, reason_string, 0, 0, @@ -986,8 +989,8 @@ static void invalid_parameter_handler( } Debug.backend( - "error handler is invoked!", expression_, + "invalid parameter", 0, 0, file_, diff --git a/src/xrEngine/CopyProtection.h b/src/xrEngine/CopyProtection.h deleted file mode 100644 index 0f8a63bcb3f..00000000000 --- a/src/xrEngine/CopyProtection.h +++ /dev/null @@ -1,51 +0,0 @@ -#pragma once - -#ifndef DEBUG -//#define USE_COPYPROTECTION -#endif - -// [4/28/2004] -#ifdef USE_COPYPROTECTION - -#pragma pack(push,1) -typedef struct SECUROM_PID -{ - int pid_error; - unsigned long pid_version; - union - { - unsigned char pid_buf[264]; - struct - { - unsigned char pid_reserved[3]; - unsigned char pid_type; - unsigned long pid_length; - unsigned char pid_data[256]; - }; - }; -} tSECUROM_PID; -#pragma pack(pop) - -IC void CheckCopyProtection() -{ - u32 ret; - - __asm - { - mov eax, 8791h; - mov ebx, 2107h; - mov ecx, 6345h; - }; - ret = GetVersion(); - - if (ret != 0x6345) - { - MessageBox(NULL, "Copy protection violation!", "Error", MB_OK | MB_ICONHAND); - TerminateProcess(GetCurrentProcess(), 0x66); - } -} -#else -IC void CheckCopyProtection() -{ -} -#endif diff --git a/src/xrEngine/Device_create.cpp b/src/xrEngine/Device_create.cpp index bfa907a30ca..7c306001650 100644 --- a/src/xrEngine/Device_create.cpp +++ b/src/xrEngine/Device_create.cpp @@ -7,7 +7,7 @@ #include "dedicated_server_only.h" #include "../xrcdb/xrxrc.h" -#include "securom_api.h" +//#include "securom_api.h" extern XRCDB_API BOOL* cdb_bDebug; @@ -162,7 +162,7 @@ void CRenderDevice::ConnectToRender() PROTECT_API void CRenderDevice::Create() { - SECUROM_MARKER_SECURITY_ON(4) + //SECUROM_MARKER_SECURITY_ON(4) if (b_is_Ready) return; // prevent double call Statistic = xr_new(); @@ -206,5 +206,5 @@ PROTECT_API void CRenderDevice::Create() PreCache(0, false, false); - SECUROM_MARKER_SECURITY_OFF(4) + //SECUROM_MARKER_SECURITY_OFF(4) } \ No newline at end of file diff --git a/src/xrEngine/Device_wndproc.cpp b/src/xrEngine/Device_wndproc.cpp index 20af8b286ad..4730badfcfe 100644 --- a/src/xrEngine/Device_wndproc.cpp +++ b/src/xrEngine/Device_wndproc.cpp @@ -59,6 +59,10 @@ bool CRenderDevice::on_message(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lPara result = 0; return (true); } + case WM_HOTKEY: // prevent 'ding' sounds caused by Alt+key combinations + case WM_SYSCHAR: + result = 0; + return true; } return (false); diff --git a/src/xrEngine/EngineAPI.cpp b/src/xrEngine/EngineAPI.cpp index 9b4e0c7d0d6..0b9d468fa2c 100644 --- a/src/xrEngine/EngineAPI.cpp +++ b/src/xrEngine/EngineAPI.cpp @@ -6,7 +6,7 @@ #include "EngineAPI.h" #include "../xrcdb/xrXRC.h" -#include "securom_api.h" +//#include "securom_api.h" extern xr_token* vid_quality_token; @@ -33,10 +33,6 @@ CEngineAPI::~CEngineAPI() // destroy quality token here if (vid_quality_token) { - for (int i = 0; vid_quality_token[i].name; i++) - { - xr_free(vid_quality_token[i].name); - } xr_free(vid_quality_token); vid_quality_token = NULL; } @@ -48,13 +44,7 @@ ENGINE_API int g_current_renderer = 0; ENGINE_API bool is_enough_address_space_available() { SYSTEM_INFO system_info; - - SECUROM_MARKER_HIGH_SECURITY_ON(12) - GetSystemInfo(&system_info); - - SECUROM_MARKER_HIGH_SECURITY_OFF(12) - return (*(u32*)&system_info.lpMaximumApplicationAddress) > 0x90000000; } @@ -62,12 +52,9 @@ ENGINE_API bool is_enough_address_space_available() void CEngineAPI::InitializeNotDedicated() { - SECUROM_MARKER_HIGH_SECURITY_ON(2) - - LPCSTR r2_name = "xrRender_R2.dll"; + LPCSTR r2_name = "xrRender_R2.dll"; LPCSTR r3_name = "xrRender_R3.dll"; LPCSTR r4_name = "xrRender_R4.dll"; - if (psDeviceFlags.test(rsR4)) { // try to initialize R4 @@ -111,8 +98,6 @@ void CEngineAPI::InitializeNotDedicated() else g_current_renderer = 2; } - - SECUROM_MARKER_HIGH_SECURITY_OFF(2) } #endif // DEDICATED_SERVER @@ -233,7 +218,7 @@ void CEngineAPI::CreateRendererList() SupportsAdvancedRendering* test_rendering = (SupportsAdvancedRendering*)GetProcAddress(hRender, "SupportsAdvancedRendering"); R_ASSERT(test_rendering); bSupports_r2_5 = test_rendering(); - FreeLibrary(hRender); + //FreeLibrary(hRender); } // try to initialize R3 @@ -248,7 +233,7 @@ void CEngineAPI::CreateRendererList() SupportsDX10Rendering* test_dx10_rendering = (SupportsDX10Rendering*)GetProcAddress(hRender, "SupportsDX10Rendering"); R_ASSERT(test_dx10_rendering); bSupports_r3 = test_dx10_rendering(); - FreeLibrary(hRender); + //FreeLibrary(hRender); } // try to initialize R4 @@ -263,72 +248,32 @@ void CEngineAPI::CreateRendererList() SupportsDX11Rendering* test_dx11_rendering = (SupportsDX11Rendering*)GetProcAddress(hRender, "SupportsDX11Rendering"); R_ASSERT(test_dx11_rendering); bSupports_r4 = test_dx11_rendering(); - FreeLibrary(hRender); + //FreeLibrary(hRender); } } hRender = 0; - + bool proceed = true; xr_vector _tmp; - u32 i = 0; - bool bBreakLoop = false; - for (; i < 6; ++i) + _tmp.push_back("renderer_r1"); + + if (proceed && (proceed = bSupports_r2)) { - switch (i) - { - case 1: - if (!bSupports_r2) - bBreakLoop = true; - break; - case 3: //"renderer_r2.5" - if (!bSupports_r2_5) - bBreakLoop = true; - break; - case 4: //"renderer_r_dx10" - if (!bSupports_r3) - bBreakLoop = true; - break; - case 5: //"renderer_r_dx11" - if (!bSupports_r4) - bBreakLoop = true; - break; - default: - ; - } - - if (bBreakLoop) break; - - _tmp.push_back(NULL); - LPCSTR val = NULL; - switch (i) - { - case 0: - val = "renderer_r1"; - break; - case 1: - val = "renderer_r2a"; - break; - case 2: - val = "renderer_r2"; - break; - case 3: - val = "renderer_r2.5"; - break; - case 4: - val = "renderer_r3"; - break; // -) - case 5: - val = "renderer_r4"; - break; // -) - } - if (bBreakLoop) break; - _tmp.back() = xr_strdup(val); + _tmp.push_back("renderer_r2a"); + _tmp.push_back("renderer_r2"); } - u32 _cnt = _tmp.size() + 1; + if (proceed && (proceed = bSupports_r2_5)) + _tmp.push_back("renderer_r2.5"); + if (proceed && (proceed = bSupports_r3)) + _tmp.push_back("renderer_r3"); + if (proceed && (proceed = bSupports_r4)) + _tmp.push_back("renderer_r4"); + + u32 _cnt = _tmp.size() + 1; vid_quality_token = xr_alloc(_cnt); vid_quality_token[_cnt - 1].id = -1; - vid_quality_token[_cnt - 1].name = NULL; + vid_quality_token[_cnt - 1].name = NULL; #ifdef DEBUG Msg("Available render modes[%d]:", _tmp.size()); @@ -341,65 +286,5 @@ void CEngineAPI::CreateRendererList() Msg("[%s]", _tmp[i]); #endif // DEBUG } - - /* - if(vid_quality_token != NULL) return; - - D3DCAPS9 caps; - CHW _HW; - _HW.CreateD3D (); - _HW.pD3D->GetDeviceCaps (D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,&caps); - _HW.DestroyD3D (); - u16 ps_ver_major = u16 ( u32(u32(caps.PixelShaderVersion)&u32(0xf << 8ul))>>8 ); - - xr_vector _tmp; - u32 i = 0; - for(; i<5; ++i) - { - bool bBreakLoop = false; - switch (i) - { - case 3: //"renderer_r2.5" - if (ps_ver_major < 3) - bBreakLoop = true; - break; - case 4: //"renderer_r_dx10" - bBreakLoop = true; - break; - default: ; - } - - if (bBreakLoop) break; - - _tmp.push_back (NULL); - LPCSTR val = NULL; - switch (i) - { - case 0: val ="renderer_r1"; break; - case 1: val ="renderer_r2a"; break; - case 2: val ="renderer_r2"; break; - case 3: val ="renderer_r2.5"; break; - case 4: val ="renderer_r_dx10"; break; // -) - } - _tmp.back() = xr_strdup(val); - } - u32 _cnt = _tmp.size()+1; - vid_quality_token = xr_alloc(_cnt); - - vid_quality_token[_cnt-1].id = -1; - vid_quality_token[_cnt-1].name = NULL; - - #ifdef DEBUG - Msg("Available render modes[%d]:",_tmp.size()); - #endif // DEBUG - for(u32 i=0; i<_tmp.size();++i) - { - vid_quality_token[i].id = i; - vid_quality_token[i].name = _tmp[i]; - #ifdef DEBUG - Msg ("[%s]",_tmp[i]); - #endif // DEBUG - } - */ #endif //#ifndef DEDICATED_SERVER } \ No newline at end of file diff --git a/src/xrEngine/Environment_misc.cpp b/src/xrEngine/Environment_misc.cpp index 4a5672bd1c1..2096f8ce056 100644 --- a/src/xrEngine/Environment_misc.cpp +++ b/src/xrEngine/Environment_misc.cpp @@ -10,7 +10,7 @@ #include "../xrServerEntities/object_broker.h" #include "../xrServerEntities/LevelGameDef.h" -#include "securom_api.h" +//#include "securom_api.h" void CEnvModifier::load(IReader* fs, u32 version) { @@ -553,7 +553,7 @@ void CEnvironment::mods_unload() void CEnvironment::load_level_specific_ambients() { - SECUROM_MARKER_PERFORMANCE_ON(13) + //SECUROM_MARKER_PERFORMANCE_ON(13) const shared_str level_name = g_pGameLevel->name(); @@ -588,7 +588,7 @@ void CEnvironment::load_level_specific_ambients() xr_delete(level_ambients); - SECUROM_MARKER_PERFORMANCE_OFF(13) + //SECUROM_MARKER_PERFORMANCE_OFF(13) } CEnvDescriptor* CEnvironment::create_descriptor(shared_str const& identifier, CInifile* config) diff --git a/src/xrEngine/IGame_Level.cpp b/src/xrEngine/IGame_Level.cpp index 177e58b29f6..60dcd9ff0cb 100644 --- a/src/xrEngine/IGame_Level.cpp +++ b/src/xrEngine/IGame_Level.cpp @@ -12,7 +12,7 @@ #include "xr_object.h" #include "feel_sound.h" -#include "securom_api.h" +//#include "securom_api.h" ENGINE_API IGame_Level* g_pGameLevel = NULL; extern BOOL g_bLoaded; @@ -81,7 +81,7 @@ static void __stdcall build_callback(Fvector* V, int Vcnt, CDB::TRI* T, int Tcnt bool IGame_Level::Load(u32 dwNum) { - SECUROM_MARKER_PERFORMANCE_ON(10) + //SECUROM_MARKER_PERFORMANCE_ON(10) // Initialize level data pApp->Level_Set(dwNum); @@ -137,7 +137,7 @@ bool IGame_Level::Load(u32 dwNum) Device.seqFrame.Add(this); - SECUROM_MARKER_PERFORMANCE_OFF(10) + //SECUROM_MARKER_PERFORMANCE_OFF(10) return true; } diff --git a/src/xrEngine/XR_IOConsole.cpp b/src/xrEngine/XR_IOConsole.cpp index 1ec0389b64e..872e71037ba 100644 --- a/src/xrEngine/XR_IOConsole.cpp +++ b/src/xrEngine/XR_IOConsole.cpp @@ -15,7 +15,7 @@ #include "../Include/xrRender/UIRender.h" -#include "securom_api.h" +//#include "securom_api.h" static float const UI_BASE_WIDTH = 1024.0f; static float const UI_BASE_HEIGHT = 768.0f; @@ -650,7 +650,7 @@ void CConsole::ExecuteCommand(LPCSTR cmd_str, bool record_cmd) void CConsole::Show() { - SECUROM_MARKER_HIGH_SECURITY_ON(11) + //SECUROM_MARKER_HIGH_SECURITY_ON(11) if (bVisible) { @@ -670,7 +670,7 @@ void CConsole::Show() Device.seqRender.Add(this, 1); Device.seqFrame.Add(this); - SECUROM_MARKER_HIGH_SECURITY_OFF(11) + //SECUROM_MARKER_HIGH_SECURITY_OFF(11) } extern CInput* pInput; diff --git a/src/xrEngine/device.cpp b/src/xrEngine/device.cpp index 3e5238d3473..9d7f920e3db 100644 --- a/src/xrEngine/device.cpp +++ b/src/xrEngine/device.cpp @@ -44,26 +44,6 @@ ref_light precache_light = 0; BOOL CRenderDevice::Begin() { #ifndef DEDICATED_SERVER - - /* - HW.Validate (); - HRESULT _hr = HW.pDevice->TestCooperativeLevel(); - if (FAILED(_hr)) - { - // If the device was lost, do not render until we get it back - if (D3DERR_DEVICELOST==_hr) { - Sleep (33); - return FALSE; - } - - // Check if the device is ready to be reset - if (D3DERR_DEVICENOTRESET==_hr) - { - Reset (); - } - } - */ - switch (m_pRender->GetDeviceState()) { case IRenderDeviceRender::dsOK: @@ -86,14 +66,6 @@ BOOL CRenderDevice::Begin() m_pRender->Begin(); - /* - CHK_DX (HW.pDevice->BeginScene()); - RCache.OnFrameBegin (); - RCache.set_CullMode (CULL_CW); - RCache.set_CullMode (CULL_CCW); - if (HW.Caps.SceneMode) overdrawBegin (); - */ - FPU::m24r(); g_bRendering = TRUE; #endif @@ -120,20 +92,22 @@ void CRenderDevice::End(void) { ::Sound->set_master_volume(0.f); dwPrecacheFrame--; - //. pApp->load_draw_internal (); - if (0 == dwPrecacheFrame) + + if (!dwPrecacheFrame) { #ifdef INGAME_EDITOR load_finished = true; #endif // #ifdef INGAME_EDITOR - //Gamma.Update (); + m_pRender->updateGamma(); - if (precache_light) precache_light->set_active(false); - if (precache_light) precache_light.destroy(); + if (precache_light) + { + precache_light->set_active(false); + precache_light.destroy(); + } ::Sound->set_master_volume(1.f); - // pApp->destroy_loading_shaders (); m_pRender->ResourcesDestroyNecessaryTextures(); Memory.mem_compact(); @@ -162,13 +136,7 @@ void CRenderDevice::End(void) if (g_SASH.IsBenchmarkRunning()) g_SASH.DisplayFrame(Device.fTimeGlobal); m_pRender->End(); - //RCache.OnFrameEnd (); - //Memory.dbg_check (); - //CHK_DX (HW.pDevice->EndScene()); - //HRESULT _hr = HW.pDevice->Present( NULL, NULL, NULL, NULL ); - //if (D3DERR_DEVICELOST==_hr) return; // we will handle this later - //R_ASSERT2 (SUCCEEDED(_hr), "Presentation failed. Driver upgrade needed?"); # ifdef INGAME_EDITOR if (load_finished && m_editor) m_editor->on_load_finished(); @@ -176,46 +144,37 @@ void CRenderDevice::End(void) #endif } - -volatile u32 mt_Thread_marker = 0x12345678; -void mt_Thread(void* ptr) +void CRenderDevice::SecondaryThreadProc(void *context) { + auto &device = *static_cast(context); while (true) { - // waiting for Device permission to execute - Device.mt_csEnter.Enter(); - - if (Device.mt_bMustExit) + device.syncProcessFrame.Wait(); + if (device.mt_bMustExit) { - Device.mt_bMustExit = FALSE; // Important!!! - Device.mt_csEnter.Leave(); // Important!!! + device.mt_bMustExit = FALSE; + device.syncThreadExit.Set(); return; - } - // we has granted permission to execute - mt_Thread_marker = Device.dwFrame; - - for (u32 pit = 0; pit < Device.seqParallel.size(); pit++) - Device.seqParallel[pit](); - Device.seqParallel.clear_not_free(); - Device.seqFrameMT.Process(rp_Frame); - - // now we give control to device - signals that we are ended our work - Device.mt_csEnter.Leave(); - // waits for device signal to continue - to start again - Device.mt_csLeave.Enter(); - // returns sync signal to device - Device.mt_csLeave.Leave(); - } + } + + for (u32 pit = 0; pit < device.seqParallel.size(); pit++) + device.seqParallel[pit](); + device.seqParallel.clear_not_free(); + device.seqFrameMT.Process(rp_Frame); + device.syncFrameDone.Set(); + } } #include "igame_level.h" void CRenderDevice::PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_user_input) { - if (m_pRender->GetForceGPU_REF()) amount = 0; #ifdef DEDICATED_SERVER amount = 0; +#else + if (m_pRender->GetForceGPU_REF()) + amount = 0; #endif - // Msg ("* PCACHE: start for %d...",amount); + dwPrecacheFrame = dwPrecacheTotal = amount; if (amount && !precache_light && g_pGameLevel && g_loading_events.empty()) { @@ -227,13 +186,12 @@ void CRenderDevice::PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_use precache_light->set_active(true); } - if (amount && b_draw_loadscreen && load_screen_renderer.b_registered == false) + if (amount && b_draw_loadscreen && !load_screen_renderer.b_registered) { load_screen_renderer.start(b_wait_user_input); } } - int g_svDedicateServerUpdateReate = 100; ENGINE_API xr_list g_loading_events; @@ -251,7 +209,8 @@ void CRenderDevice::on_idle() #ifdef DEDICATED_SERVER u32 FrameStartTime = TimerGlobal.GetElapsed_ms(); #endif - if (psDeviceFlags.test(rsStatistic)) g_bEnableStatGather = TRUE; + if (psDeviceFlags.test(rsStatistic)) + g_bEnableStatGather = TRUE; else g_bEnableStatGather = FALSE; if (g_loading_events.size()) { @@ -260,14 +219,11 @@ void CRenderDevice::on_idle() pApp->LoadDraw(); return; } - else - { - if ((!Device.dwPrecacheFrame) && (!g_SASH.IsBenchmarkRunning()) - && g_bLoaded) - g_SASH.StartBenchmark(); + + if (!Device.dwPrecacheFrame && !g_SASH.IsBenchmarkRunning() && g_bLoaded) + g_SASH.StartBenchmark(); - FrameMove(); - } + FrameMove(); // Precache if (dwPrecacheFrame) @@ -293,13 +249,8 @@ void CRenderDevice::on_idle() mFullTransform_saved = mFullTransform; mView_saved = mView; mProject_saved = mProject; - - // *** Resume threads - // Capture end point - thread must run only ONE cycle - // Release start point - allow thread to run - mt_csLeave.Enter(); - mt_csEnter.Leave(); - + + syncProcessFrame.Set(); // allow secondary thread to do its job #ifdef ECO_RENDER // ECO_RENDER START static u32 time_frame = 0; u32 time_curr = timeGetTime(); @@ -315,71 +266,30 @@ void CRenderDevice::on_idle() #endif // ECO_RENDER END #ifndef DEDICATED_SERVER - Statistic->RenderTOTAL_Real.FrameStart(); - Statistic->RenderTOTAL_Real.Begin(); - if (b_is_Active) + // all rendering is done here + CStatTimer renderTotalReal; + renderTotalReal.FrameStart(); + renderTotalReal.Begin(); + + if (b_is_Active && Begin()) { - if (Begin()) - { - - seqRender.Process(rp_Render); - if (psDeviceFlags.test(rsCameraPos) || psDeviceFlags.test(rsStatistic) || Statistic->errors.size()) - Statistic->Show(); - // TEST!!! - //Statistic->RenderTOTAL_Real.End (); - // Present goes here - End(); - } + seqRender.Process(rp_Render); + if (psDeviceFlags.test(rsCameraPos) || psDeviceFlags.test(rsStatistic) || Statistic->errors.size()) + Statistic->Show(); + End(); } - Statistic->RenderTOTAL_Real.End(); - Statistic->RenderTOTAL_Real.FrameEnd(); - Statistic->RenderTOTAL.accum = Statistic->RenderTOTAL_Real.accum; + renderTotalReal.End(); + renderTotalReal.FrameEnd(); + Statistic->RenderTOTAL.accum = renderTotalReal.accum; #endif // #ifndef DEDICATED_SERVER - // *** Suspend threads - // Capture startup point - // Release end point - allow thread to wait for startup point - mt_csEnter.Enter(); - mt_csLeave.Leave(); - - // Ensure, that second thread gets chance to execute anyway - if (dwFrame != mt_Thread_marker) - { - for (u32 pit = 0; pit < Device.seqParallel.size(); pit++) - Device.seqParallel[pit](); - Device.seqParallel.clear_not_free(); - seqFrameMT.Process(rp_Frame); - } - + syncFrameDone.Wait(); // wait until secondary thread finish its job #ifdef DEDICATED_SERVER u32 FrameEndTime = TimerGlobal.GetElapsed_ms(); u32 FrameTime = (FrameEndTime - FrameStartTime); - /* - string1024 FPS_str = ""; - string64 tmp; - xr_strcat(FPS_str, "FPS Real - "); - if (dwTimeDelta != 0) - xr_strcat(FPS_str, ltoa(1000/dwTimeDelta, tmp, 10)); - else - xr_strcat(FPS_str, "~~~"); - - xr_strcat(FPS_str, ", FPS Proj - "); - if (FrameTime != 0) - xr_strcat(FPS_str, ltoa(1000/FrameTime, tmp, 10)); - else - xr_strcat(FPS_str, "~~~"); - - */ u32 DSUpdateDelta = 1000 / g_svDedicateServerUpdateReate; if (FrameTime < DSUpdateDelta) - { Sleep(DSUpdateDelta - FrameTime); - // Msg("sleep for %d", DSUpdateDelta - FrameTime); - // xr_strcat(FPS_str, ", sleeped for "); - // xr_strcat(FPS_str, ltoa(DSUpdateDelta - FrameTime, tmp, 10)); - } - // Msg(FPS_str); -#endif // #ifdef DEDICATED_SERVER - +#endif if (!b_is_Active) Sleep(1); } @@ -401,8 +311,7 @@ void CRenderDevice::message_loop() message_loop_editor(); return; } -#endif // #ifdef INGAME_EDITOR - +#endif MSG msg; PeekMessage(&msg, NULL, 0U, 0U, PM_NOREMOVE); while (msg.message != WM_QUIT) @@ -413,18 +322,15 @@ void CRenderDevice::message_loop() DispatchMessage(&msg); continue; } - on_idle(); } } void CRenderDevice::Run() { - // DUMP_PHASE; g_bLoaded = FALSE; Log("Starting engine..."); thread_name("X-RAY Primary thread"); - // Startup timers and calculate timer delta dwTimeGlobal = 0; Timer_MM_Delta = 0; @@ -435,44 +341,31 @@ void CRenderDevice::Run() u32 time_local = TimerAsync(); Timer_MM_Delta = time_system - time_local; } - // Start all threads - // InitializeCriticalSection (&mt_csEnter); - // InitializeCriticalSection (&mt_csLeave); - mt_csEnter.Enter(); mt_bMustExit = FALSE; - thread_spawn(mt_Thread, "X-RAY Secondary thread", 0, 0); - + thread_spawn(SecondaryThreadProc, "X-RAY Secondary thread", 0, this); // Message cycle seqAppStart.Process(rp_AppStart); - //CHK_DX(HW.pDevice->Clear(0,0,D3DCLEAR_TARGET,D3DCOLOR_XRGB(0,0,0),1,0)); m_pRender->ClearTarget(); - message_loop(); - seqAppEnd.Process(rp_AppEnd); - // Stop Balance-Thread mt_bMustExit = TRUE; - mt_csEnter.Leave(); - while (mt_bMustExit) Sleep(0); - // DeleteCriticalSection (&mt_csEnter); - // DeleteCriticalSection (&mt_csLeave); + syncProcessFrame.Set(); + syncThreadExit.Wait(); + while (mt_bMustExit) + Sleep(0); } u32 app_inactive_time = 0; u32 app_inactive_time_start = 0; -void ProcessLoading(RP_FUNC* f); void CRenderDevice::FrameMove() { dwFrame++; - Core.dwFrame = dwFrame; - dwTimeContinual = TimerMM.GetElapsed_ms() - app_inactive_time; - if (psDeviceFlags.test(rsConstantFPS)) { // 20ms = 50fps @@ -495,37 +388,28 @@ void CRenderDevice::FrameMove() //fTimeDelta = 0.7f * fTimeDelta + 0.3f*fPreviousFrameTime; // smooth random system activity if (fTimeDelta > .1f) fTimeDelta = .1f; // limit to 15fps minimum - if (fTimeDelta <= 0.f) fTimeDelta = EPS_S + EPS_S; // limit to 15fps minimum - if (Paused()) fTimeDelta = 0.0f; - // u64 qTime = TimerGlobal.GetElapsed_clk(); fTimeGlobal = TimerGlobal.GetElapsed_sec(); //float(qTime)*CPU::cycles2seconds; u32 _old_global = dwTimeGlobal; dwTimeGlobal = TimerGlobal.GetElapsed_ms(); dwTimeDelta = dwTimeGlobal - _old_global; } - // Frame move - Statistic->EngineTOTAL.Begin(); - + Statistic->EngineTOTAL.FrameStart(); + Statistic->EngineTOTAL.Begin(); // TODO: HACK to test loading screen. //if(!g_bLoaded) - ProcessLoading(rp_Frame); - //else - // seqFrame.Process (rp_Frame); - Statistic->EngineTOTAL.End(); -} - -void ProcessLoading(RP_FUNC* f) -{ Device.seqFrame.Process(rp_Frame); g_bLoaded = TRUE; + //else + // seqFrame.Process(rp_Frame); + Statistic->EngineTOTAL.End(); + Statistic->EngineTOTAL.FrameEnd(); } - ENGINE_API BOOL bShowPauseString = TRUE; #include "IGame_Persistent.h" @@ -533,15 +417,9 @@ void CRenderDevice::Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason) { static int snd_emitters_ = -1; - if (g_bBenchmark) return; - - -#ifdef DEBUG - // Msg("pause [%s] timer=[%s] sound=[%s] reason=%s",bOn?"ON":"OFF", bTimer?"ON":"OFF", bSound?"ON":"OFF", reason); -#endif // DEBUG - + if (g_bBenchmark) + return; #ifndef DEDICATED_SERVER - if (bOn) { if (!Paused()) @@ -573,7 +451,7 @@ void CRenderDevice::Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason) } else { - if (bTimer && /*g_pGamePersistent->CanBePaused() &&*/ g_pauseMngr.Paused()) + if (bTimer && g_pauseMngr.Paused()) { fTimeDelta = EPS_S + EPS_S; g_pauseMngr.Pause(FALSE); @@ -586,13 +464,13 @@ void CRenderDevice::Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason) snd_emitters_ = ::Sound->pause_emitters(false); #ifdef DEBUG // Log("snd_emitters_[false]",snd_emitters_); -#endif // DEBUG +#endif } else { #ifdef DEBUG Log("Sound->pause_emitters underflow"); -#endif // DEBUG +#endif } } } @@ -604,7 +482,7 @@ void CRenderDevice::Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason) BOOL CRenderDevice::Paused() { return g_pauseMngr.Paused(); -}; +} void CRenderDevice::OnWM_Activate(WPARAM wParam, LPARAM lParam) { @@ -643,7 +521,6 @@ void CRenderDevice::AddSeqFrame(pureFrame* f, bool mt) seqFrameMT.Add(f, REG_PRIORITY_HIGH); else seqFrame.Add(f, REG_PRIORITY_LOW); - } void CRenderDevice::RemoveSeqFrame(pureFrame* f) @@ -665,7 +542,8 @@ void CLoadScreenRenderer::start(bool b_user_input) void CLoadScreenRenderer::stop() { - if (!b_registered) return; + if (!b_registered) + return; Device.seqRender.Remove(this); pApp->destroy_loading_shaders(); b_registered = false; diff --git a/src/xrEngine/device.h b/src/xrEngine/device.h index 29c81f6548e..c168964b061 100644 --- a/src/xrEngine/device.h +++ b/src/xrEngine/device.h @@ -10,11 +10,10 @@ //class ENGINE_API CGammaControl; #include "pure.h" -//#include "hw.h" + #include "../xrcore/ftimer.h" #include "stats.h" -//#include "shader.h" -//#include "R_Backend.h" +#include "../xrCore/Event.hpp" #define VIEWPORT_NEAR 0.2f @@ -25,18 +24,19 @@ #ifdef INGAME_EDITOR # include "../Include/editor/interfaces.hpp" -#endif // #ifdef INGAME_EDITOR +#endif class engine_impl; #pragma pack(push,4) -class IRenderDevice +class ENGINE_API IRenderDevice { public: - virtual CStatsPhysics* _BCL StatPhysics() = 0; - virtual void _BCL AddSeqFrame(pureFrame* f, bool mt) = 0; - virtual void _BCL RemoveSeqFrame(pureFrame* f) = 0; + virtual ~IRenderDevice() {} + virtual CStatsPhysics* StatPhysics() = 0; + virtual void AddSeqFrame(pureFrame* f, bool mt) = 0; + virtual void RemoveSeqFrame(pureFrame* f) = 0; }; class ENGINE_API CRenderDeviceData @@ -100,8 +100,6 @@ class ENGINE_API CRenderDeviceData CRegistrator seqResolutionChanged; HWND m_hWnd; - // CStats* Statistic; - }; class ENGINE_API CRenderDeviceBase : @@ -109,6 +107,7 @@ class ENGINE_API CRenderDeviceBase : public CRenderDeviceData { public: + CStats* Statistic; }; #pragma pack(pop) @@ -121,9 +120,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase RECT m_rcWindowBounds; RECT m_rcWindowClient; - //u32 Timer_MM_Delta; - //CTimer_paused Timer; - //CTimer_paused TimerGlobal; CTimer TimerMM; void _Create(LPCSTR shName); @@ -169,47 +165,12 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void DumpResourcesMemoryUsage() { m_pRender->ResourcesDumpMemoryUsage(); } public: - // Registrators - //CRegistrator seqRender; - // CRegistrator seqAppActivate; - // CRegistrator seqAppDeactivate; - // CRegistrator seqAppStart; - // CRegistrator seqAppEnd; - //CRegistrator seqFrame; CRegistrator seqFrameMT; CRegistrator seqDeviceReset; xr_vector > seqParallel; - - // Dependent classes - //CResourceManager* Resources; - - CStats* Statistic; - - // Engine flow-control - //float fTimeDelta; - //float fTimeGlobal; - //u32 dwTimeDelta; - //u32 dwTimeGlobal; - //u32 dwTimeContinual; - - // Cameras & projection - //Fvector vCameraPosition; - //Fvector vCameraDirection; - //Fvector vCameraTop; - //Fvector vCameraRight; - - //Fmatrix mView; - //Fmatrix mProject; - //Fmatrix mFullTransform; - Fmatrix mInvFullTransform; - //float fFOV; - //float fASPECT; - - CRenderDevice() - : - m_pRender(0) + CRenderDevice():m_pRender(0) #ifdef INGAME_EDITOR , m_editor_module(0), m_editor_initialize(0), @@ -231,6 +192,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason); BOOL Paused(); +private: + static void SecondaryThreadProc(void *context); +public: // Scene control void PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_user_input); @@ -257,7 +221,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Initialize(void); void ShutDown(void); - public: void time_factor(const float& time_factor) { @@ -270,10 +233,10 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase VERIFY(Timer.time_factor() == TimerGlobal.time_factor()); return (Timer.time_factor()); } +private: + Event syncProcessFrame, syncFrameDone, syncThreadExit; +public: - // Multi-threading - xrCriticalSection mt_csEnter; - xrCriticalSection mt_csLeave; volatile BOOL mt_bMustExit; ICF void remove_from_seq_parallel(const fastdelegate::FastDelegate0<>& delegate) @@ -299,9 +262,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase private: void message_loop(); - virtual void _BCL AddSeqFrame(pureFrame* f, bool mt); - virtual void _BCL RemoveSeqFrame(pureFrame* f); - virtual CStatsPhysics* _BCL StatPhysics() { return Statistic; } + virtual void AddSeqFrame(pureFrame* f, bool mt); + virtual void RemoveSeqFrame(pureFrame* f); + virtual CStatsPhysics* StatPhysics() { return Statistic; } #ifdef INGAME_EDITOR public: IC editor::ide* editor() const { return m_editor; } diff --git a/src/xrEngine/securom_api.h b/src/xrEngine/securom_api.h deleted file mode 100644 index 0d35d31cb52..00000000000 --- a/src/xrEngine/securom_api.h +++ /dev/null @@ -1,180 +0,0 @@ -//***************************************************************************************** -// Copyright (c) 2005 Sony DADC -// All rights reserved. -// -// $FileName : securom_api.h -// $ProjectName : SDK -// $Created : 02.03.2005 12:14 -// -// Content: -// -//***************************************************************************************** - -#ifndef SECUROM_SDK_H -#define SECUROM_SDK_H - -#undef USE_SECUROM_MARKERS_API - -#ifdef DEDICATED_SERVER - #undef USE_SECUROM_MARKERS_API -#endif // DEDICATED_SERVER - -#ifdef _EDITOR - #undef USE_SECUROM_MARKERS_API -#endif // _EDITOR - -#ifndef USE_SECUROM_MARKERS_API - - #define SECUROM_MARKER_PERFORMANCE_ON(id) - #define SECUROM_MARKER_PERFORMANCE_OFF(id) - - #define SECUROM_MARKER_SECURITY_ON(id) - #define SECUROM_MARKER_SECURITY_OFF(id) - - #define SECUROM_MARKER_HIGH_SECURITY_ON(id) - #define SECUROM_MARKER_HIGH_SECURITY_OFF(id) - -#else // USE_SECUROM_MARKERS_API - -#include -#include - -#if 0 -static BOOL SecuROM_Tripwire() -{ - char event_name[50]; - - sprintf(event_name, "v7_%04d", (GetCurrentProcessId() ^ 0x19EA3FD3) ); - - if(HANDLE S7hnd = OpenEventA(EVENT_MODIFY_STATE, FALSE, event_name)) - { - CloseHandle(S7hnd); - return TRUE; - } - - return FALSE; -} -#endif // 0 - -#define SECUROM_MARKER_PERFORMANCE_ON(id) { { __asm _emit 0xEB __asm _emit 0x0E __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x01 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } -#define SECUROM_MARKER_PERFORMANCE_OFF(id) { __asm _emit 0xEB __asm _emit 0x0E __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x02 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } } - -#define SECUROM_MARKER_SECURITY_ON(id) { { __asm _emit 0xEB __asm _emit 0x0E __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x11 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } -#define SECUROM_MARKER_SECURITY_OFF(id) { __asm _emit 0xEB __asm _emit 0x0E __asm __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x12 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } } - -#define SECUROM_MARKER_HIGH_SECURITY_ON(id) { { __asm _emit 0xEB __asm _emit 0x0E __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x21 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } -#define SECUROM_MARKER_HIGH_SECURITY_OFF(id) { __asm _emit 0xEB __asm _emit 0x0E __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' __asm _emit 0x22 __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) } } - - -#define SECUROM_MARKER_VM_CALL(id, code, data) { __asm _emit 0xEB __asm _emit 0x18 \ - __asm _emit 'M' __asm _emit 'a' __asm _emit '0' __asm _emit 'W' __asm _emit 'y' __asm _emit 'G' __asm _emit '1' __asm _emit 'k' __asm _emit 'm' \ - __asm _emit 0x31 \ - __asm _emit (id & 0xFF) __asm _emit ((id >> 8) & 0xFF) __asm _emit ((id >> 16) & 0xFF) __asm _emit ((id >> 24) & 0xFF) \ - __asm push offset code \ - __asm push offset data } - - -static unsigned char MACRO_ADD[] = -{ - 0xEC,0xAF,0xCA,0x36,0xB7,0x0D,0x59,0xC1,0xFA,0xA7,0x71,0xB1,0x23,0xC5,0x8E,0x65,0xD1,0x36,0x03,0x12, - 0x7A,0x2C,0x31,0x3A,0x3E,0x14,0x5D,0xD2,0x0C,0x51,0x66,0xC7,0xE1,0x60,0x98,0x6A,0x16,0x9D,0xA8,0x80, - 0xE4,0x7A,0x94,0xB2,0xA2,0xF5,0x6E,0x27,0xF5,0x0A,0x3F,0xC5,0xFF,0x20,0x4C,0xB8,0xC5,0x72,0x71,0x9A, - 0xA9,0xA0,0xDD,0x4F,0x68,0x53,0xB1,0xFA,0x26,0x14,0x85,0x94,0x21,0x14,0x80,0x5C,0x70,0xBA,0xC5,0xF6, - 0x58,0xDB,0xAE,0xE5,0x8D,0xCD,0xDC,0x6A,0x9C,0x11,0xFC,0x6D,0x33,0x17,0xFB,0xF2,0x30,0xF2,0xE0,0xD3, - 0xE3,0x92,0xAC,0x46,0xC7,0x86,0x9B,0x6E,0x74,0x5D,0xB1,0x05,0xB9,0xFA,0x75,0x9F,0x84,0x57,0x2A,0x40, - 0x72,0xE7,0xC9,0xCB -}; - -static unsigned char MACRO_SUB[] = -{ - 0xEC,0xAF,0xCA,0x36,0xB7,0x0D,0x59,0xC1,0xFA,0xA7,0x71,0xB1,0x23,0xC5,0x8E,0x65,0xD1,0x36,0x03,0x12, - 0x7A,0x2C,0x31,0x3A,0x3E,0x14,0x5D,0xD2,0x0C,0x51,0x66,0xC7,0xE1,0x60,0x98,0x6A,0x16,0x9D,0xA8,0x80, - 0xE4,0x7A,0x94,0xB2,0xA2,0xF5,0x6E,0x27,0xF5,0x0A,0x3F,0xC5,0xFF,0x20,0x4C,0xB8,0xC5,0x72,0x71,0x9A, - 0xA9,0xA0,0xDD,0x4F,0x68,0x53,0xB1,0xFA,0x26,0x14,0x85,0x94,0x21,0x14,0x80,0x5C,0x70,0xBA,0xC5,0xF6, - 0x58,0xDB,0xAE,0xE5,0x8D,0xCD,0xDC,0x6A,0x9C,0x11,0xFC,0x6D,0x33,0x17,0xFB,0xF2,0x22,0xEC,0xB5,0xFD, - 0x75,0xCA,0x2B,0x55,0xCC,0x2B,0xBE,0xFC,0xC6,0x73,0x3C,0xEF,0xFD,0xD7,0x8B,0x86,0x69,0x4A,0x6A,0x80, - 0xF0,0x6E,0xA7,0x09 -}; - -static unsigned char MACRO_IF_EQL[] = -{ - 0xEC,0xAF,0xAA,0x93,0x2D,0x04,0xA3,0x8F,0x8A,0x10,0x67,0x91,0xC9,0xE1,0xDA,0x2C,0x31,0x1D,0x82,0xE2, - 0x07,0xF9,0xE8,0x24,0x75,0xE9,0x9D,0x54,0x70,0x36,0x4F,0xFF,0xDD,0x4A,0x82,0x14,0x88,0x48,0x74,0x51, - 0x3F,0xBA,0x51,0x98,0xE9,0x1D,0x27,0xB1,0x7B,0x97,0x27,0x46,0x9A,0x46,0x64,0xD4,0xEF,0x92,0xF0,0x05, - 0x5E,0x79,0xED,0x8D,0x34,0x52,0x8A,0x90,0xE9,0xBA,0x3C,0xBE,0x8B,0xE5,0xCA,0x28,0xB0,0x92,0xDE,0x4C, - 0xD8,0x31,0xCE,0xCE,0x8E,0x22,0x78,0xF8,0x7C,0xCE,0xF6,0x4E,0x84,0xD0,0xEE,0xB5,0x0B,0x8E,0x53,0xD5, - 0xCE,0x7C,0x4F,0x2F,0xFA,0xF6,0xBF,0xC8,0x70,0x5A,0x0E,0x00,0xDB,0x93,0x44,0x83,0xF4,0xFC,0xEB,0x2F, - 0x31,0x1D,0x02,0x23,0x9E,0x8A,0xB5,0x13,0x68,0x48,0x3D,0x76,0x01,0xFE,0x40,0x78,0x2C,0xB7,0x09,0x39, - 0xCF,0xA4,0x58,0x87,0x72,0xF8,0xA0,0xBC,0xE9,0xA3,0xD0,0xC0,0x78,0x80,0xFA,0xDC,0x05,0x9A,0x0C,0x40, - 0x9C,0xB6,0x62,0xD4,0x6E,0xA0,0x18,0x9A,0xEE,0x85,0x4A,0xB0,0x63,0xD3,0x2A,0x84,0xCA,0x3C,0x55,0xA9, - 0xD2,0x18,0xAE,0x4D,0x40,0x80,0xE5,0x7A,0x95,0x33,0x90,0xF2,0xF6,0x06,0xD9,0x65,0x4D,0x2B,0x95,0x29, - 0x02,0xB9,0xF9,0xA6,0x05,0x56,0x13,0x2B,0x9F,0x69,0xFA,0xF1,0xBB,0x28,0xA6,0x71,0x40,0x11,0xD7,0x86, - 0x04,0xEE,0xB6,0xEE,0xBA,0xC6,0x45,0x07,0x75,0xEC,0xC5,0xD0,0x7D,0x8C,0xC5,0x51,0x63,0xB4,0xEA,0x51, - 0x63,0xB4,0xEA,0xD6,0x61,0xB1,0xE1,0xBF,0xD4,0x5E,0xAD,0x7D,0xD5,0x03,0x53,0x50,0x9C,0x68,0x1B,0xA5, - 0xB4,0xF8,0x66,0x1E,0xC6,0x76,0x19,0xA9,0x2F,0x54,0xE6,0xC1,0x41,0x47,0xF1,0x1A,0x37,0x47,0x78,0xC5, - 0x40,0x7A,0x28,0xA6,0xF1,0x44,0x14,0x8E,0x88,0x15,0xAE,0xF0,0x91,0x0F,0x6A,0xE3,0x9D,0x9B,0x71,0x99, - 0x02,0x34,0xE8,0x5F,0x02,0xB5,0x6F,0x45,0x2A,0x5A,0xEF,0x4B,0xD2,0x7A,0xEF,0x4B,0x53,0x58,0x73,0xA4, - 0x1A,0x1B,0x15,0xE8,0x04,0xC2,0xC3,0x65,0xA5,0x0B,0x16,0xCC,0x26,0xF0,0x26,0xDB,0xCA,0x4A,0x37,0x03, - 0x79,0x64,0x0D,0x2A,0xBA,0x57,0x61,0xBD,0xFC,0xE7,0x0D,0xCD,0x72,0xF9,0xDE,0xAB,0x87,0x54,0x8F,0x0E, - 0x26,0xD5,0x8A,0x78,0x15,0x6C,0x4B,0xDB,0x15,0x6C,0x4B,0xDB,0x15,0x6C,0x4B,0xDB,0x95,0x12,0xF0,0xF9, - 0x1D,0x10,0x9F,0xC3,0xA8,0x84,0xB0,0x47,0x58,0x67,0x94,0x58,0x6D,0x8A,0xFE,0x64,0xDA,0x71,0xCF,0x2D, - 0xDA,0xD3,0x6D,0x83,0xE2,0x07,0x1F,0x47,0xB7,0x1B,0xAF,0x88,0x21,0xDE,0x8C,0x98,0x52,0xA8,0x70,0x32, - 0x92,0x80,0x1B,0x00,0xFD,0x49,0x32,0xF0,0x1E,0xB8,0xDB,0x65,0x33,0x93,0x93,0x8E,0xA0,0x97,0xEF,0xA7, - 0xE3,0xD2,0x84,0x49,0x2C,0xE0,0xD9,0xC0,0x59,0xF8,0xCD,0x62,0x83,0xEF,0x7B,0x55,0x5D,0x6B,0x7F -}; - -#pragma pack(push, 1) -typedef struct -{ - void *code_ptr; - - union - { - struct - { - DWORD Param1; - DWORD Param2; - DWORD Param3; - DWORD Param4; - DWORD Param5; - DWORD Param6; - }std; - struct - { - DWORD dest; - DWORD src; - DWORD Param3; - DWORD Param4; - DWORD Param5; - DWORD Param6; - }arithmetic; - struct - { - DWORD compare_me; - DWORD with_value; - DWORD if_equal; - DWORD if_not_equal; - DWORD Param5; - DWORD Param6; - }cmp; - }; - - -} VirtualMachine_t; -#pragma pack(pop) - -#define SET_LABEL_ADDR(param, label_addr) \ - { \ - DWORD addr; \ - __asm { mov addr, offset label_addr } \ - param = addr; \ - } - -#endif // USE_SECUROM_MARKERS_API - -#endif // SECUROM_SDK_H - - - - - diff --git a/src/xrEngine/x_ray.cpp b/src/xrEngine/x_ray.cpp index a31ea85fdc4..bb2ce3bf3cb 100644 --- a/src/xrEngine/x_ray.cpp +++ b/src/xrEngine/x_ray.cpp @@ -21,14 +21,13 @@ #include "resource.h" #include "LightAnimLibrary.h" #include "../xrcdb/ispatial.h" -#include "CopyProtection.h" #include "Text_Console.h" #include #include #include "xrSash.h" -#include "securom_api.h" +//#include "securom_api.h" //--------------------------------------------------------------------- ENGINE_API CInifile* pGameIni = NULL; @@ -73,7 +72,7 @@ static char szEngineHash[33] = DEFAULT_MODULE_HASH; PROTECT_API char* ComputeModuleHash(char* pszHash) { - SECUROM_MARKER_HIGH_SECURITY_ON(3) + //SECUROM_MARKER_HIGH_SECURITY_ON(3) char szModuleFileName[MAX_PATH]; HANDLE hModuleHandle = NULL, hFileMapping = NULL; @@ -122,7 +121,7 @@ PROTECT_API char* ComputeModuleHash(char* pszHash) CloseHandle(hFileMapping); CloseHandle(hModuleHandle); - SECUROM_MARKER_HIGH_SECURITY_OFF(3) + //SECUROM_MARKER_HIGH_SECURITY_OFF(3) return pszHash; } @@ -193,7 +192,6 @@ void InitEngine() Engine.Initialize(); while (!g_bIntroFinished) Sleep(100); Device.Initialize(); - CheckCopyProtection(); } struct path_excluder_predicate @@ -248,7 +246,7 @@ PROTECT_API void InitSettings() } PROTECT_API void InitConsole() { - SECUROM_MARKER_SECURITY_ON(5) + ////SECUROM_MARKER_SECURITY_ON(5) #ifdef DEDICATED_SERVER { @@ -270,7 +268,7 @@ PROTECT_API void InitConsole() xr_strcpy(Console->ConfigFile, c_name); } - SECUROM_MARKER_SECURITY_OFF(5) + ////SECUROM_MARKER_SECURITY_OFF(5) } PROTECT_API void InitInput() @@ -385,7 +383,6 @@ void Startup() logoWindow = NULL; // Main cycle - CheckCopyProtection(); Memory.mem_usage(); Device.Run(); @@ -614,7 +611,7 @@ BOOL IsOutOfVirtualMemory() #define VIRT_ERROR_SIZE 256 #define VIRT_MESSAGE_SIZE 512 - SECUROM_MARKER_HIGH_SECURITY_ON(1) + //SECUROM_MARKER_HIGH_SECURITY_ON(1) MEMORYSTATUSEX statex; DWORD dwPageFileInMB = 0; @@ -646,7 +643,7 @@ BOOL IsOutOfVirtualMemory() MessageBox(NULL, pszMessage, pszError, MB_OK | MB_ICONHAND); - SECUROM_MARKER_HIGH_SECURITY_OFF(1) + //SECUROM_MARKER_HIGH_SECURITY_OFF(1) return 1; } @@ -698,8 +695,7 @@ void foo() ENGINE_API bool g_dedicated_server = false; #ifndef DEDICATED_SERVER -// forward declaration for Parental Control checks -BOOL IsPCAccessAllowed(); + #endif // DEDICATED_SERVER int APIENTRY WinMain_impl(HINSTANCE hInstance, @@ -745,13 +741,6 @@ int APIENTRY WinMain_impl(HINSTANCE hInstance, if ((strstr(lpCmdLine, "--skipmemcheck") == NULL) && IsOutOfVirtualMemory()) return 0; - // Parental Control for Vista and upper - if (!IsPCAccessAllowed()) - { - MessageBox(NULL, "Access restricted", "Parental Control", MB_OK | MB_ICONERROR); - return 1; - } - // Check for another instance #ifdef NO_MULTI_INSTANCES #define STALKER_PRESENCE_MUTEX "Local\\STALKER-COP" @@ -1222,7 +1211,6 @@ void CApplication::LoadBegin() phase_timer.Start(); load_stage = 0; - CheckCopyProtection(); } } @@ -1268,7 +1256,6 @@ PROTECT_API void CApplication::LoadDraw() load_draw_internal(); Device.End(); - CheckCopyProtection(); } void CApplication::LoadTitleInt(LPCSTR str1, LPCSTR str2, LPCSTR str3) @@ -1330,7 +1317,7 @@ void CApplication::Level_Append(LPCSTR folder) void CApplication::Level_Scan() { - SECUROM_MARKER_PERFORMANCE_ON(8) + //SECUROM_MARKER_PERFORMANCE_ON(8) for (u32 i = 0; i < Levels.size(); i++) { @@ -1348,7 +1335,7 @@ void CApplication::Level_Scan() FS.file_list_close(folder); - SECUROM_MARKER_PERFORMANCE_OFF(8) + //SECUROM_MARKER_PERFORMANCE_OFF(8) } void gen_logo_name(string_path& dest, LPCSTR level_name, int num) @@ -1366,7 +1353,7 @@ void gen_logo_name(string_path& dest, LPCSTR level_name, int num) void CApplication::Level_Set(u32 L) { - SECUROM_MARKER_PERFORMANCE_ON(9) + //SECUROM_MARKER_PERFORMANCE_ON(9) if (L >= Levels.size()) return; FS.get_path("$level$")->_set(Levels[L].folder); @@ -1400,16 +1387,14 @@ void CApplication::Level_Set(u32 L) if (path[0]) m_pRender->setLevelLogo(path); - CheckCopyProtection(); - - SECUROM_MARKER_PERFORMANCE_OFF(9) + //SECUROM_MARKER_PERFORMANCE_OFF(9) } int CApplication::Level_ID(LPCSTR name, LPCSTR ver, bool bSet) { int result = -1; - SECUROM_MARKER_SECURITY_ON(7) + ////SECUROM_MARKER_SECURITY_ON(7) CLocatorAPI::archives_it it = FS.m_archives.begin(); CLocatorAPI::archives_it it_e = FS.m_archives.end(); @@ -1450,7 +1435,7 @@ int CApplication::Level_ID(LPCSTR name, LPCSTR ver, bool bSet) if (arch_res) g_pGamePersistent->OnAssetsChanged(); - SECUROM_MARKER_SECURITY_OFF(7) + ////SECUROM_MARKER_SECURITY_OFF(7) return result; } @@ -1483,57 +1468,6 @@ void CApplication::LoadAllArchives() } } -#ifndef DEDICATED_SERVER -// Parential control for Vista and upper -typedef BOOL(*PCCPROC)(CHAR*); - -BOOL IsPCAccessAllowed() -{ - CHAR szPCtrlChk[MAX_PATH], szGDF[MAX_PATH], *pszLastSlash; - HINSTANCE hPCtrlChk = NULL; - PCCPROC pctrlchk = NULL; - BOOL bAllowed = TRUE; - - if (!GetModuleFileName(NULL, szPCtrlChk, MAX_PATH)) - return TRUE; - - if ((pszLastSlash = strrchr(szPCtrlChk, '\\')) == NULL) - return TRUE; - - *pszLastSlash = '\0'; - - strcpy_s(szGDF, szPCtrlChk); - - strcat_s(szPCtrlChk, "\\pctrlchk.dll"); - if (GetFileAttributes(szPCtrlChk) == INVALID_FILE_ATTRIBUTES) - return TRUE; - - if ((pszLastSlash = strrchr(szGDF, '\\')) == NULL) - return TRUE; - - *pszLastSlash = '\0'; - - strcat_s(szGDF, "\\Stalker-COP.exe"); - if (GetFileAttributes(szGDF) == INVALID_FILE_ATTRIBUTES) - return TRUE; - - if ((hPCtrlChk = LoadLibrary(szPCtrlChk)) == NULL) - return TRUE; - - if ((pctrlchk = (PCCPROC)GetProcAddress(hPCtrlChk, "pctrlchk")) == NULL) - { - FreeLibrary(hPCtrlChk); - return TRUE; - } - - bAllowed = pctrlchk(szGDF); - - FreeLibrary(hPCtrlChk); - - return bAllowed; -} -#endif // DEDICATED_SERVER - //launcher stuff---------------------------- extern "C" { typedef int __cdecl LauncherFunc(int); diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 1b9fece3ea7..230fe063836 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -523,7 +523,6 @@ - diff --git a/src/xrEngine/xrEngine.vcxproj.filters b/src/xrEngine/xrEngine.vcxproj.filters index 94eb2e3e1bb..a4db5a45042 100644 --- a/src/xrEngine/xrEngine.vcxproj.filters +++ b/src/xrEngine/xrEngine.vcxproj.filters @@ -255,9 +255,6 @@ General - - General - General diff --git a/src/xrGame/accumulative_states.h b/src/xrGame/accumulative_states.h index c3850833150..8680748d25a 100644 --- a/src/xrGame/accumulative_states.h +++ b/src/xrGame/accumulative_states.h @@ -1,6 +1,8 @@ #ifndef ACCUMULATIVE_STATES_INCLUDED #define ACCUMULATIVE_STATES_INCLUDED +#include + namespace award_system { diff --git a/src/xrGame/ui/UIActorMenu.h b/src/xrGame/ui/UIActorMenu.h index 368a5d225fa..806f0c4d3bc 100644 --- a/src/xrGame/ui/UIActorMenu.h +++ b/src/xrGame/ui/UIActorMenu.h @@ -271,6 +271,7 @@ class CUIActorMenu : public CUIDialogWnd, bool ToSlotScript (CScriptGameObject* GO, bool force_place, u16 slot_id); bool ToSlot (CUICellItem* itm, bool force_place, u16 slot_id); bool ToBag (CUICellItem* itm, bool b_use_cursor_pos); + bool ToBeltScript (CScriptGameObject* GO, bool b_use_cursor_pos); bool ToBelt (CUICellItem* itm, bool b_use_cursor_pos); bool TryUseItem (CUICellItem* cell_itm); bool ToQuickSlot (CUICellItem* itm); diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 78205dee57c..63db2b27761 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -512,9 +512,6 @@ bool CUIActorMenu::TryActiveSlot(CUICellItem* itm) bool CUIActorMenu::ToSlotScript(CScriptGameObject* GO, bool force_place, u16 slot_id) { - if (GO->ID() != m_pActorInvOwner->object_id()) - return false; - CInventoryItem* iitem = smart_cast(GO->object().dcast_CObject()); if (!iitem || !m_pActorInvOwner->inventory().InRuck(iitem)) @@ -669,7 +666,6 @@ bool CUIActorMenu::ToSlot(CUICellItem* itm, bool force_place, u16 slot_id) } } - bool CUIActorMenu::ToBag(CUICellItem* itm, bool b_use_cursor_pos) { PIItem iitem = (PIItem)itm->m_pData; @@ -712,6 +708,30 @@ bool CUIActorMenu::ToBag(CUICellItem* itm, bool b_use_cursor_pos) return false; } +bool CUIActorMenu::ToBeltScript(CScriptGameObject* GO, bool b_use_cursor_pos) +{ + CInventoryItem* iitem = smart_cast(GO->object().dcast_CObject()); + + if (!iitem || !m_pActorInvOwner->inventory().InRuck(iitem)) + return false; + + CUIDragDropListEx* invlist = GetListByType(iActorBag); + CUICellContainer* c = invlist->GetContainer(); + CUIWindow::WINDOW_LIST child_list = c->GetChildWndList(); + + for (WINDOW_LIST_it it = child_list.begin(); child_list.end() != it; ++it) + { + CUICellItem* i = (CUICellItem*)(*it); + PIItem pitm = (PIItem)i->m_pData; + if (pitm == iitem) + { + ToBelt(i, b_use_cursor_pos); + return true; + } + } + return false; +} + bool CUIActorMenu::ToBelt(CUICellItem* itm, bool b_use_cursor_pos) { PIItem iitem = (PIItem)itm->m_pData; diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index b9e21aad46b..2b4536330ba 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -283,7 +283,8 @@ void CUIActorMenu::script_register(lua_State *L) .def("IsShown", &CUIActorMenu::IsShown) .def("ShowDialog", &CUIActorMenu::ShowDialog) .def("HideDialog", &CUIActorMenu::HideDialog) - .def("ToSlot", &CUIActorMenu::ToSlotScript), + .def("ToSlot", &CUIActorMenu::ToSlotScript) + .def("ToBelt", &CUIActorMenu::ToBeltScript), class_< CUIPdaWnd, CUIDialogWnd>("CUIPdaWnd") .def(constructor<>()) diff --git a/src/xrGame/ui/UIItemInfo.cpp b/src/xrGame/ui/UIItemInfo.cpp index 56da187e0e0..f03c03ae7ea 100644 --- a/src/xrGame/ui/UIItemInfo.cpp +++ b/src/xrGame/ui/UIItemInfo.cpp @@ -300,7 +300,7 @@ void CUIItemInfo::InitItem(CUICellItem* pCellItem, CInventoryItem* pCompareItem, } TryAddConditionInfo (*pInvItem, pCompareItem); TryAddWpnInfo (*pInvItem, pCompareItem); - TryAddArtefactInfo (pInvItem->object().cNameSect()); + TryAddArtefactInfo (*pInvItem); //pInvItem->object().cNameSect()); TryAddOutfitInfo (*pInvItem, pCompareItem); TryAddUpgradeInfo (*pInvItem); TryAddBoosterInfo (*pInvItem); @@ -365,11 +365,11 @@ void CUIItemInfo::TryAddWpnInfo( CInventoryItem& pInvItem, CInventoryItem* pComp } } -void CUIItemInfo::TryAddArtefactInfo (const shared_str& af_section) +void CUIItemInfo::TryAddArtefactInfo (CInventoryItem& pInvItem) { - if ( UIArtefactParams->Check( af_section ) ) + if ( UIArtefactParams->Check( pInvItem.object().cNameSect() ) ) { - UIArtefactParams->SetInfo( af_section ); + UIArtefactParams->SetInfo( pInvItem ); UIDesc->AddWindow( UIArtefactParams, false ); } } diff --git a/src/xrGame/ui/UIItemInfo.h b/src/xrGame/ui/UIItemInfo.h index 442a414999f..6da161c5388 100644 --- a/src/xrGame/ui/UIItemInfo.h +++ b/src/xrGame/ui/UIItemInfo.h @@ -41,7 +41,7 @@ class CUIItemInfo: public CUIWindow void TryAddConditionInfo (CInventoryItem& pInvItem, CInventoryItem* pCompareItem); void TryAddWpnInfo (CInventoryItem& pInvItem, CInventoryItem* pCompareItem); - void TryAddArtefactInfo (const shared_str& af_section); + void TryAddArtefactInfo (CInventoryItem& pInvItem); //(const shared_str& af_section); void TryAddOutfitInfo (CInventoryItem& pInvItem, CInventoryItem* pCompareItem); void TryAddUpgradeInfo (CInventoryItem& pInvItem); void TryAddBoosterInfo (CInventoryItem& pInvItem); diff --git a/src/xrGame/ui/ui_af_params.cpp b/src/xrGame/ui/ui_af_params.cpp index a967986e58a..a213c07f5ff 100644 --- a/src/xrGame/ui/ui_af_params.cpp +++ b/src/xrGame/ui/ui_af_params.cpp @@ -8,6 +8,7 @@ #include "UIXmlInit.h" #include "UIHelper.h" #include "../string_table.h" +#include "../Inventory_Item.h" u32 const red_clr = color_argb(255,210,50,50); u32 const green_clr = color_argb(255,170,170,170); @@ -109,7 +110,16 @@ void CUIArtefactParams::InitFromXml( CUIXml& xml ) AttachChild( m_Prop_line ); m_Prop_line->SetAutoDelete( false ); CUIXmlInit::InitStatic( xml, "prop_line", 0, m_Prop_line ); - + + //Alundaio: Show AF Condition + m_disp_condition = xr_new(); + m_disp_condition->Init(xml,"condition"); + m_disp_condition->SetAutoDelete(false); + LPCSTR name = CStringTable().translate( "ui_inv_af_condition" ).c_str(); + m_disp_condition->SetCaption(name); + xml.SetLocalRoot(base_node); + //-Alundaio + for ( u32 i = 0; i < ALife::infl_max_count; ++i ) { m_immunity_item[i] = xr_new(); @@ -153,7 +163,7 @@ bool CUIArtefactParams::Check(const shared_str& af_section) return !!pSettings->line_exist(af_section, "af_actor_properties"); } -void CUIArtefactParams::SetInfo( shared_str const& af_section ) +void CUIArtefactParams::SetInfo( CInventoryItem& pInvItem ) { DetachAll(); AttachChild( m_Prop_line ); @@ -163,11 +173,22 @@ void CUIArtefactParams::SetInfo( shared_str const& af_section ) { return; } + + const shared_str& af_section = pInvItem.object().cNameSect(); float val = 0.0f, max_val = 1.0f; Fvector2 pos; float h = m_Prop_line->GetWndPos().y+m_Prop_line->GetWndSize().y; + //Alundaio: Show AF Condition + m_disp_condition->SetValue(pInvItem.GetCondition()); + pos.set(m_disp_condition->GetWndPos()); + pos.y = h; + m_disp_condition->SetWndPos(pos); + h += m_disp_condition->GetWndSize().y; + AttachChild(m_disp_condition); + //-Alundaio + for ( u32 i = 0; i < ALife::infl_max_count; ++i ) { shared_str const& sect = pSettings->r_string( af_section, "hit_absorbation_sect" ); diff --git a/src/xrGame/ui/ui_af_params.h b/src/xrGame/ui/ui_af_params.h index dede71681d4..3439a36ca3b 100644 --- a/src/xrGame/ui/ui_af_params.h +++ b/src/xrGame/ui/ui_af_params.h @@ -2,7 +2,7 @@ #include "UIWindow.h" #include "..\..\xrServerEntities\alife_space.h" - +class CInventoryItem; class CUIXml; class CUIStatic; class CUITextWnd; @@ -15,12 +15,13 @@ class CUIArtefactParams : public CUIWindow virtual ~CUIArtefactParams (); void InitFromXml (CUIXml& xml); bool Check (const shared_str& af_section); - void SetInfo (const shared_str& af_section); + void SetInfo (CInventoryItem& pInvItem); protected: UIArtefactParamItem* m_immunity_item[ALife::infl_max_count]; UIArtefactParamItem* m_restore_item[ALife::eRestoreTypeMax]; UIArtefactParamItem* m_additional_weight; + UIArtefactParamItem* m_disp_condition; //Alundaio: Show AF Condition CUIStatic* m_Prop_line; diff --git a/src/xrServerEntities/alife_space.h b/src/xrServerEntities/alife_space.h index 80897248ec8..ba265a28a1d 100644 --- a/src/xrServerEntities/alife_space.h +++ b/src/xrServerEntities/alife_space.h @@ -178,7 +178,7 @@ namespace ALife { #endif } #ifndef _EDITOR -xr_token hit_types_token [ ]; +extern xr_token hit_types_token [ ]; IC LPCSTR g_cafHitType2String(EHitType tHitType) { diff --git a/src/xrServerEntities/object_interfaces.h b/src/xrServerEntities/object_interfaces.h index 4aad4892a42..23b0c7537ab 100644 --- a/src/xrServerEntities/object_interfaces.h +++ b/src/xrServerEntities/object_interfaces.h @@ -12,35 +12,51 @@ class NET_Packet; class IPureDestroyableObject { public: + virtual ~IPureDestroyableObject() = 0; virtual void destroy() = 0; }; +IC IPureDestroyableObject::~IPureDestroyableObject() {} template class IPureLoadableObject { public: + virtual ~IPureLoadableObject() = 0; virtual void load(_storage_type &storage) = 0; }; +template +IC IPureLoadableObject<_storage_type>::~IPureLoadableObject() {} template class IPureSavableObject { public: + virtual ~IPureSavableObject() = 0; virtual void save(_storage_type &storage) = 0; }; +template +IC IPureSavableObject<_storage_type>::~IPureSavableObject() {} template class IPureSerializeObject : public IPureLoadableObject<_storage_type_load>, public IPureSavableObject<_storage_type_save> { public: + virtual ~IPureSerializeObject() = 0; }; +template +IC IPureSerializeObject::~IPureSerializeObject() {} class IPureServerObject : public IPureSerializeObject { public: + virtual ~IPureServerObject() = 0; virtual void STATE_Write (NET_Packet &tNetPacket) = 0; virtual void STATE_Read (NET_Packet &tNetPacket, u16 size) = 0; virtual void UPDATE_Write(NET_Packet &tNetPacket) = 0; virtual void UPDATE_Read (NET_Packet &tNetPacket) = 0; }; +IC IPureServerObject::~IPureServerObject() {} class IPureSchedulableObject { public: + virtual ~IPureSchedulableObject() = 0; virtual void update () = 0; }; + +IC IPureSchedulableObject::~IPureSchedulableObject() {} diff --git a/src/xrServerEntities/script_engine_script.cpp b/src/xrServerEntities/script_engine_script.cpp index 818e7257588..52638f1d2bd 100644 --- a/src/xrServerEntities/script_engine_script.cpp +++ b/src/xrServerEntities/script_engine_script.cpp @@ -167,7 +167,9 @@ struct profile_timer_script IC void stop() { - THROW(m_recurse_mark); + if (!m_recurse_mark) + return; + --m_recurse_mark; if (m_recurse_mark) diff --git a/src/xrServerEntities/smart_cast.h b/src/xrServerEntities/smart_cast.h index 87179556779..ff3d2616b4b 100644 --- a/src/xrServerEntities/smart_cast.h +++ b/src/xrServerEntities/smart_cast.h @@ -13,13 +13,12 @@ # define PURE_DYNAMIC_CAST #endif // DEBUG -#define TL_FAST_COMPILATION -#undef STATIC_CHECK -#include - #ifdef PURE_DYNAMIC_CAST # define smart_cast dynamic_cast #else +#define TL_FAST_COMPILATION +#undef STATIC_CHECK +#include # define PURE_DYNAMIC_CAST_COMPATIBILITY_CHECK # ifdef DEBUG diff --git a/src/xrServerEntities/xrServer_Objects_Abstract.h b/src/xrServerEntities/xrServer_Objects_Abstract.h index de6f3ae7ad3..07ac95581dd 100644 --- a/src/xrServerEntities/xrServer_Objects_Abstract.h +++ b/src/xrServerEntities/xrServer_Objects_Abstract.h @@ -38,9 +38,12 @@ class CDUInterface; class ISE_Shape{ public: + virtual ~ISE_Shape() = 0; virtual void __stdcall assign_shapes (CShapeData::shape_def* shapes, u32 cnt)=0; }; +IC ISE_Shape::~ISE_Shape() {} + SERVER_ENTITY_DECLARE_BEGIN0(CSE_Visual) void __stdcall OnChangeVisual (PropValue* sender); void __stdcall OnChangeAnim (PropValue* sender); @@ -94,9 +97,11 @@ add_to_type_list(CSE_Motion) #define script_type_list save_type_list(CSE_Motion) struct ISE_AbstractLEOwner{ + virtual ~ISE_AbstractLEOwner() = 0; virtual void __stdcall get_bone_xform (LPCSTR name, Fmatrix& xform) = 0; }; +IC ISE_AbstractLEOwner::~ISE_AbstractLEOwner() {} #pragma pack(push,1) struct visual_data { Fmatrix matrix; @@ -113,6 +118,7 @@ struct ISE_Abstract { flMotionChange = u32(1 << 3), flVisualAnimationPauseChange= u32(1 << 4), }; + virtual ~ISE_Abstract() = 0; Flags32 m_editor_flags; IC void set_editor_flag (u32 mask) {m_editor_flags.set (mask,TRUE);} @@ -139,6 +145,7 @@ struct ISE_Abstract { virtual bool __stdcall validate () = 0; }; +IC ISE_Abstract::~ISE_Abstract() {} #pragma warning(pop) #pragma pack(pop) diff --git a/src/xrSound/SoundRender_Source.cpp b/src/xrSound/SoundRender_Source.cpp index 25d8680eed0..a91c8c81490 100644 --- a/src/xrSound/SoundRender_Source.cpp +++ b/src/xrSound/SoundRender_Source.cpp @@ -62,6 +62,7 @@ void CSoundRender_Source::i_decompress_fr(OggVorbis_File* ovf, char* _dest, u32 if (ret == 0) break; else if (ret < 0) // Error in bitstream { + break; // } else From cd26cc5d8f27deb5be0e495efe53f3d267035e4c Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 7 Sep 2016 18:49:54 -0400 Subject: [PATCH 148/166] ~ revert threading back to GSC version. Open X-Ray 'thread sync' fix makes loading times much longer and also stuttering slightly more apparent --- src/xrCore/xrCore.vcxproj | 2 - src/xrCore/xrCore.vcxproj.filters | 2 - src/xrEngine/device.cpp | 87 +++++++++++++++++++++---------- src/xrEngine/device.h | 75 +++++++++++++++++++------- 4 files changed, 115 insertions(+), 51 deletions(-) diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 4a3c18df4c7..a83f238e9ef 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -377,7 +377,6 @@ - @@ -515,7 +514,6 @@ - diff --git a/src/xrCore/xrCore.vcxproj.filters b/src/xrCore/xrCore.vcxproj.filters index db17af56182..58a469a772b 100644 --- a/src/xrCore/xrCore.vcxproj.filters +++ b/src/xrCore/xrCore.vcxproj.filters @@ -289,7 +289,6 @@ OS - @@ -600,7 +599,6 @@ - diff --git a/src/xrEngine/device.cpp b/src/xrEngine/device.cpp index 9d7f920e3db..b780ffd66d4 100644 --- a/src/xrEngine/device.cpp +++ b/src/xrEngine/device.cpp @@ -144,24 +144,36 @@ void CRenderDevice::End(void) #endif } -void CRenderDevice::SecondaryThreadProc(void *context) + +volatile u32 mt_Thread_marker = 0x12345678; +void mt_Thread(void* ptr) { - auto &device = *static_cast(context); + auto &device = *static_cast(ptr); while (true) { - device.syncProcessFrame.Wait(); - if (device.mt_bMustExit) + // waiting for Device permission to execute + device.mt_csEnter.Enter(); + + if (device.mt_bMustExit) { - device.mt_bMustExit = FALSE; - device.syncThreadExit.Set(); + device.mt_bMustExit = FALSE; // Important!!! + device.mt_csEnter.Leave(); // Important!!! return; } - - for (u32 pit = 0; pit < device.seqParallel.size(); pit++) - device.seqParallel[pit](); - device.seqParallel.clear_not_free(); - device.seqFrameMT.Process(rp_Frame); - device.syncFrameDone.Set(); + // we has granted permission to execute + mt_Thread_marker = device.dwFrame; + + for (u32 pit = 0; pit < device.seqParallel.size(); pit++) + device.seqParallel[pit](); + device.seqParallel.clear_not_free(); + device.seqFrameMT.Process(rp_Frame); + + // now we give control to device - signals that we are ended our work + device.mt_csEnter.Leave(); + // waits for device signal to continue - to start again + device.mt_csLeave.Enter(); + // returns sync signal to device + device.mt_csLeave.Leave(); } } @@ -250,7 +262,12 @@ void CRenderDevice::on_idle() mView_saved = mView; mProject_saved = mProject; - syncProcessFrame.Set(); // allow secondary thread to do its job + // *** Resume threads + // Capture end point - thread must run only ONE cycle + // Release start point - allow thread to run + mt_csLeave.Enter(); + mt_csEnter.Leave(); + #ifdef ECO_RENDER // ECO_RENDER START static u32 time_frame = 0; u32 time_curr = timeGetTime(); @@ -266,10 +283,8 @@ void CRenderDevice::on_idle() #endif // ECO_RENDER END #ifndef DEDICATED_SERVER - // all rendering is done here - CStatTimer renderTotalReal; - renderTotalReal.FrameStart(); - renderTotalReal.Begin(); + Statistic->RenderTOTAL_Real.FrameStart(); + Statistic->RenderTOTAL_Real.Begin(); if (b_is_Active && Begin()) { @@ -278,11 +293,25 @@ void CRenderDevice::on_idle() Statistic->Show(); End(); } - renderTotalReal.End(); - renderTotalReal.FrameEnd(); - Statistic->RenderTOTAL.accum = renderTotalReal.accum; + Statistic->RenderTOTAL_Real.End(); + Statistic->RenderTOTAL_Real.FrameEnd(); + Statistic->RenderTOTAL.accum = Statistic->RenderTOTAL_Real.accum; #endif // #ifndef DEDICATED_SERVER - syncFrameDone.Wait(); // wait until secondary thread finish its job + // *** Suspend threads + // Capture startup point + // Release end point - allow thread to wait for startup point + mt_csEnter.Enter(); + mt_csLeave.Leave(); + + // Ensure, that second thread gets chance to execute anyway + if (dwFrame != mt_Thread_marker) + { + for (u32 pit = 0; pit < Device.seqParallel.size(); pit++) + Device.seqParallel[pit](); + Device.seqParallel.clear_not_free(); + seqFrameMT.Process(rp_Frame); + } + #ifdef DEDICATED_SERVER u32 FrameEndTime = TimerGlobal.GetElapsed_ms(); u32 FrameTime = (FrameEndTime - FrameStartTime); @@ -328,6 +357,7 @@ void CRenderDevice::message_loop() void CRenderDevice::Run() { + // DUMP_PHASE; g_bLoaded = FALSE; Log("Starting engine..."); thread_name("X-RAY Primary thread"); @@ -342,8 +372,11 @@ void CRenderDevice::Run() Timer_MM_Delta = time_system - time_local; } // Start all threads + // InitializeCriticalSection (&mt_csEnter); + // InitializeCriticalSection (&mt_csLeave); + mt_csEnter.Enter(); mt_bMustExit = FALSE; - thread_spawn(SecondaryThreadProc, "X-RAY Secondary thread", 0, this); + thread_spawn(mt_Thread, "X-RAY Secondary thread", 0, this); // Message cycle seqAppStart.Process(rp_AppStart); @@ -352,10 +385,10 @@ void CRenderDevice::Run() seqAppEnd.Process(rp_AppEnd); // Stop Balance-Thread mt_bMustExit = TRUE; - syncProcessFrame.Set(); - syncThreadExit.Wait(); - while (mt_bMustExit) - Sleep(0); + mt_csEnter.Leave(); + while (mt_bMustExit) Sleep(0); + // DeleteCriticalSection (&mt_csEnter); + // DeleteCriticalSection (&mt_csLeave); } u32 app_inactive_time = 0; @@ -399,7 +432,6 @@ void CRenderDevice::FrameMove() dwTimeDelta = dwTimeGlobal - _old_global; } // Frame move - Statistic->EngineTOTAL.FrameStart(); Statistic->EngineTOTAL.Begin(); // TODO: HACK to test loading screen. //if(!g_bLoaded) @@ -408,7 +440,6 @@ void CRenderDevice::FrameMove() //else // seqFrame.Process(rp_Frame); Statistic->EngineTOTAL.End(); - Statistic->EngineTOTAL.FrameEnd(); } ENGINE_API BOOL bShowPauseString = TRUE; #include "IGame_Persistent.h" diff --git a/src/xrEngine/device.h b/src/xrEngine/device.h index c168964b061..29c81f6548e 100644 --- a/src/xrEngine/device.h +++ b/src/xrEngine/device.h @@ -10,10 +10,11 @@ //class ENGINE_API CGammaControl; #include "pure.h" - +//#include "hw.h" #include "../xrcore/ftimer.h" #include "stats.h" -#include "../xrCore/Event.hpp" +//#include "shader.h" +//#include "R_Backend.h" #define VIEWPORT_NEAR 0.2f @@ -24,19 +25,18 @@ #ifdef INGAME_EDITOR # include "../Include/editor/interfaces.hpp" -#endif +#endif // #ifdef INGAME_EDITOR class engine_impl; #pragma pack(push,4) -class ENGINE_API IRenderDevice +class IRenderDevice { public: - virtual ~IRenderDevice() {} - virtual CStatsPhysics* StatPhysics() = 0; - virtual void AddSeqFrame(pureFrame* f, bool mt) = 0; - virtual void RemoveSeqFrame(pureFrame* f) = 0; + virtual CStatsPhysics* _BCL StatPhysics() = 0; + virtual void _BCL AddSeqFrame(pureFrame* f, bool mt) = 0; + virtual void _BCL RemoveSeqFrame(pureFrame* f) = 0; }; class ENGINE_API CRenderDeviceData @@ -100,6 +100,8 @@ class ENGINE_API CRenderDeviceData CRegistrator seqResolutionChanged; HWND m_hWnd; + // CStats* Statistic; + }; class ENGINE_API CRenderDeviceBase : @@ -107,7 +109,6 @@ class ENGINE_API CRenderDeviceBase : public CRenderDeviceData { public: - CStats* Statistic; }; #pragma pack(pop) @@ -120,6 +121,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase RECT m_rcWindowBounds; RECT m_rcWindowClient; + //u32 Timer_MM_Delta; + //CTimer_paused Timer; + //CTimer_paused TimerGlobal; CTimer TimerMM; void _Create(LPCSTR shName); @@ -165,12 +169,47 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void DumpResourcesMemoryUsage() { m_pRender->ResourcesDumpMemoryUsage(); } public: + // Registrators + //CRegistrator seqRender; + // CRegistrator seqAppActivate; + // CRegistrator seqAppDeactivate; + // CRegistrator seqAppStart; + // CRegistrator seqAppEnd; + //CRegistrator seqFrame; CRegistrator seqFrameMT; CRegistrator seqDeviceReset; xr_vector > seqParallel; + + // Dependent classes + //CResourceManager* Resources; + + CStats* Statistic; + + // Engine flow-control + //float fTimeDelta; + //float fTimeGlobal; + //u32 dwTimeDelta; + //u32 dwTimeGlobal; + //u32 dwTimeContinual; + + // Cameras & projection + //Fvector vCameraPosition; + //Fvector vCameraDirection; + //Fvector vCameraTop; + //Fvector vCameraRight; + + //Fmatrix mView; + //Fmatrix mProject; + //Fmatrix mFullTransform; + Fmatrix mInvFullTransform; - CRenderDevice():m_pRender(0) + //float fFOV; + //float fASPECT; + + CRenderDevice() + : + m_pRender(0) #ifdef INGAME_EDITOR , m_editor_module(0), m_editor_initialize(0), @@ -192,9 +231,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason); BOOL Paused(); -private: - static void SecondaryThreadProc(void *context); -public: // Scene control void PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_user_input); @@ -221,6 +257,7 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Initialize(void); void ShutDown(void); + public: void time_factor(const float& time_factor) { @@ -233,10 +270,10 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase VERIFY(Timer.time_factor() == TimerGlobal.time_factor()); return (Timer.time_factor()); } -private: - Event syncProcessFrame, syncFrameDone, syncThreadExit; -public: + // Multi-threading + xrCriticalSection mt_csEnter; + xrCriticalSection mt_csLeave; volatile BOOL mt_bMustExit; ICF void remove_from_seq_parallel(const fastdelegate::FastDelegate0<>& delegate) @@ -262,9 +299,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase private: void message_loop(); - virtual void AddSeqFrame(pureFrame* f, bool mt); - virtual void RemoveSeqFrame(pureFrame* f); - virtual CStatsPhysics* StatPhysics() { return Statistic; } + virtual void _BCL AddSeqFrame(pureFrame* f, bool mt); + virtual void _BCL RemoveSeqFrame(pureFrame* f); + virtual CStatsPhysics* _BCL StatPhysics() { return Statistic; } #ifdef INGAME_EDITOR public: IC editor::ide* editor() const { return m_editor; } From 2acb4e1127f78e9687f8ea4c08abc84ef2384e7e Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 7 Sep 2016 20:58:21 -0400 Subject: [PATCH 149/166] ~ revert back to thread sync fix --- src/xrCore/xrCore.vcxproj | 2 + src/xrCore/xrCore.vcxproj.filters | 2 + src/xrEngine/device.cpp | 87 ++++++++++--------------------- src/xrEngine/device.h | 75 +++++++------------------- 4 files changed, 51 insertions(+), 115 deletions(-) diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index a83f238e9ef..4a3c18df4c7 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -377,6 +377,7 @@ + @@ -514,6 +515,7 @@ + diff --git a/src/xrCore/xrCore.vcxproj.filters b/src/xrCore/xrCore.vcxproj.filters index 58a469a772b..db17af56182 100644 --- a/src/xrCore/xrCore.vcxproj.filters +++ b/src/xrCore/xrCore.vcxproj.filters @@ -289,6 +289,7 @@ OS + @@ -599,6 +600,7 @@ + diff --git a/src/xrEngine/device.cpp b/src/xrEngine/device.cpp index b780ffd66d4..9d7f920e3db 100644 --- a/src/xrEngine/device.cpp +++ b/src/xrEngine/device.cpp @@ -144,36 +144,24 @@ void CRenderDevice::End(void) #endif } - -volatile u32 mt_Thread_marker = 0x12345678; -void mt_Thread(void* ptr) +void CRenderDevice::SecondaryThreadProc(void *context) { - auto &device = *static_cast(ptr); + auto &device = *static_cast(context); while (true) { - // waiting for Device permission to execute - device.mt_csEnter.Enter(); - - if (device.mt_bMustExit) + device.syncProcessFrame.Wait(); + if (device.mt_bMustExit) { - device.mt_bMustExit = FALSE; // Important!!! - device.mt_csEnter.Leave(); // Important!!! + device.mt_bMustExit = FALSE; + device.syncThreadExit.Set(); return; } - // we has granted permission to execute - mt_Thread_marker = device.dwFrame; - - for (u32 pit = 0; pit < device.seqParallel.size(); pit++) - device.seqParallel[pit](); - device.seqParallel.clear_not_free(); - device.seqFrameMT.Process(rp_Frame); - - // now we give control to device - signals that we are ended our work - device.mt_csEnter.Leave(); - // waits for device signal to continue - to start again - device.mt_csLeave.Enter(); - // returns sync signal to device - device.mt_csLeave.Leave(); + + for (u32 pit = 0; pit < device.seqParallel.size(); pit++) + device.seqParallel[pit](); + device.seqParallel.clear_not_free(); + device.seqFrameMT.Process(rp_Frame); + device.syncFrameDone.Set(); } } @@ -262,12 +250,7 @@ void CRenderDevice::on_idle() mView_saved = mView; mProject_saved = mProject; - // *** Resume threads - // Capture end point - thread must run only ONE cycle - // Release start point - allow thread to run - mt_csLeave.Enter(); - mt_csEnter.Leave(); - + syncProcessFrame.Set(); // allow secondary thread to do its job #ifdef ECO_RENDER // ECO_RENDER START static u32 time_frame = 0; u32 time_curr = timeGetTime(); @@ -283,8 +266,10 @@ void CRenderDevice::on_idle() #endif // ECO_RENDER END #ifndef DEDICATED_SERVER - Statistic->RenderTOTAL_Real.FrameStart(); - Statistic->RenderTOTAL_Real.Begin(); + // all rendering is done here + CStatTimer renderTotalReal; + renderTotalReal.FrameStart(); + renderTotalReal.Begin(); if (b_is_Active && Begin()) { @@ -293,25 +278,11 @@ void CRenderDevice::on_idle() Statistic->Show(); End(); } - Statistic->RenderTOTAL_Real.End(); - Statistic->RenderTOTAL_Real.FrameEnd(); - Statistic->RenderTOTAL.accum = Statistic->RenderTOTAL_Real.accum; + renderTotalReal.End(); + renderTotalReal.FrameEnd(); + Statistic->RenderTOTAL.accum = renderTotalReal.accum; #endif // #ifndef DEDICATED_SERVER - // *** Suspend threads - // Capture startup point - // Release end point - allow thread to wait for startup point - mt_csEnter.Enter(); - mt_csLeave.Leave(); - - // Ensure, that second thread gets chance to execute anyway - if (dwFrame != mt_Thread_marker) - { - for (u32 pit = 0; pit < Device.seqParallel.size(); pit++) - Device.seqParallel[pit](); - Device.seqParallel.clear_not_free(); - seqFrameMT.Process(rp_Frame); - } - + syncFrameDone.Wait(); // wait until secondary thread finish its job #ifdef DEDICATED_SERVER u32 FrameEndTime = TimerGlobal.GetElapsed_ms(); u32 FrameTime = (FrameEndTime - FrameStartTime); @@ -357,7 +328,6 @@ void CRenderDevice::message_loop() void CRenderDevice::Run() { - // DUMP_PHASE; g_bLoaded = FALSE; Log("Starting engine..."); thread_name("X-RAY Primary thread"); @@ -372,11 +342,8 @@ void CRenderDevice::Run() Timer_MM_Delta = time_system - time_local; } // Start all threads - // InitializeCriticalSection (&mt_csEnter); - // InitializeCriticalSection (&mt_csLeave); - mt_csEnter.Enter(); mt_bMustExit = FALSE; - thread_spawn(mt_Thread, "X-RAY Secondary thread", 0, this); + thread_spawn(SecondaryThreadProc, "X-RAY Secondary thread", 0, this); // Message cycle seqAppStart.Process(rp_AppStart); @@ -385,10 +352,10 @@ void CRenderDevice::Run() seqAppEnd.Process(rp_AppEnd); // Stop Balance-Thread mt_bMustExit = TRUE; - mt_csEnter.Leave(); - while (mt_bMustExit) Sleep(0); - // DeleteCriticalSection (&mt_csEnter); - // DeleteCriticalSection (&mt_csLeave); + syncProcessFrame.Set(); + syncThreadExit.Wait(); + while (mt_bMustExit) + Sleep(0); } u32 app_inactive_time = 0; @@ -432,6 +399,7 @@ void CRenderDevice::FrameMove() dwTimeDelta = dwTimeGlobal - _old_global; } // Frame move + Statistic->EngineTOTAL.FrameStart(); Statistic->EngineTOTAL.Begin(); // TODO: HACK to test loading screen. //if(!g_bLoaded) @@ -440,6 +408,7 @@ void CRenderDevice::FrameMove() //else // seqFrame.Process(rp_Frame); Statistic->EngineTOTAL.End(); + Statistic->EngineTOTAL.FrameEnd(); } ENGINE_API BOOL bShowPauseString = TRUE; #include "IGame_Persistent.h" diff --git a/src/xrEngine/device.h b/src/xrEngine/device.h index 29c81f6548e..c168964b061 100644 --- a/src/xrEngine/device.h +++ b/src/xrEngine/device.h @@ -10,11 +10,10 @@ //class ENGINE_API CGammaControl; #include "pure.h" -//#include "hw.h" + #include "../xrcore/ftimer.h" #include "stats.h" -//#include "shader.h" -//#include "R_Backend.h" +#include "../xrCore/Event.hpp" #define VIEWPORT_NEAR 0.2f @@ -25,18 +24,19 @@ #ifdef INGAME_EDITOR # include "../Include/editor/interfaces.hpp" -#endif // #ifdef INGAME_EDITOR +#endif class engine_impl; #pragma pack(push,4) -class IRenderDevice +class ENGINE_API IRenderDevice { public: - virtual CStatsPhysics* _BCL StatPhysics() = 0; - virtual void _BCL AddSeqFrame(pureFrame* f, bool mt) = 0; - virtual void _BCL RemoveSeqFrame(pureFrame* f) = 0; + virtual ~IRenderDevice() {} + virtual CStatsPhysics* StatPhysics() = 0; + virtual void AddSeqFrame(pureFrame* f, bool mt) = 0; + virtual void RemoveSeqFrame(pureFrame* f) = 0; }; class ENGINE_API CRenderDeviceData @@ -100,8 +100,6 @@ class ENGINE_API CRenderDeviceData CRegistrator seqResolutionChanged; HWND m_hWnd; - // CStats* Statistic; - }; class ENGINE_API CRenderDeviceBase : @@ -109,6 +107,7 @@ class ENGINE_API CRenderDeviceBase : public CRenderDeviceData { public: + CStats* Statistic; }; #pragma pack(pop) @@ -121,9 +120,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase RECT m_rcWindowBounds; RECT m_rcWindowClient; - //u32 Timer_MM_Delta; - //CTimer_paused Timer; - //CTimer_paused TimerGlobal; CTimer TimerMM; void _Create(LPCSTR shName); @@ -169,47 +165,12 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void DumpResourcesMemoryUsage() { m_pRender->ResourcesDumpMemoryUsage(); } public: - // Registrators - //CRegistrator seqRender; - // CRegistrator seqAppActivate; - // CRegistrator seqAppDeactivate; - // CRegistrator seqAppStart; - // CRegistrator seqAppEnd; - //CRegistrator seqFrame; CRegistrator seqFrameMT; CRegistrator seqDeviceReset; xr_vector > seqParallel; - - // Dependent classes - //CResourceManager* Resources; - - CStats* Statistic; - - // Engine flow-control - //float fTimeDelta; - //float fTimeGlobal; - //u32 dwTimeDelta; - //u32 dwTimeGlobal; - //u32 dwTimeContinual; - - // Cameras & projection - //Fvector vCameraPosition; - //Fvector vCameraDirection; - //Fvector vCameraTop; - //Fvector vCameraRight; - - //Fmatrix mView; - //Fmatrix mProject; - //Fmatrix mFullTransform; - Fmatrix mInvFullTransform; - //float fFOV; - //float fASPECT; - - CRenderDevice() - : - m_pRender(0) + CRenderDevice():m_pRender(0) #ifdef INGAME_EDITOR , m_editor_module(0), m_editor_initialize(0), @@ -231,6 +192,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason); BOOL Paused(); +private: + static void SecondaryThreadProc(void *context); +public: // Scene control void PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_user_input); @@ -257,7 +221,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Initialize(void); void ShutDown(void); - public: void time_factor(const float& time_factor) { @@ -270,10 +233,10 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase VERIFY(Timer.time_factor() == TimerGlobal.time_factor()); return (Timer.time_factor()); } +private: + Event syncProcessFrame, syncFrameDone, syncThreadExit; +public: - // Multi-threading - xrCriticalSection mt_csEnter; - xrCriticalSection mt_csLeave; volatile BOOL mt_bMustExit; ICF void remove_from_seq_parallel(const fastdelegate::FastDelegate0<>& delegate) @@ -299,9 +262,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase private: void message_loop(); - virtual void _BCL AddSeqFrame(pureFrame* f, bool mt); - virtual void _BCL RemoveSeqFrame(pureFrame* f); - virtual CStatsPhysics* _BCL StatPhysics() { return Statistic; } + virtual void AddSeqFrame(pureFrame* f, bool mt); + virtual void RemoveSeqFrame(pureFrame* f); + virtual CStatsPhysics* StatPhysics() { return Statistic; } #ifdef INGAME_EDITOR public: IC editor::ide* editor() const { return m_editor; } From b1357602aef7676205d8ee53fac1854ac95a7c69 Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 7 Sep 2016 22:26:49 -0400 Subject: [PATCH 150/166] = fix real culprit of slow loading times --- src/xrEngine/EngineAPI.cpp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/xrEngine/EngineAPI.cpp b/src/xrEngine/EngineAPI.cpp index 0b9d468fa2c..11964857111 100644 --- a/src/xrEngine/EngineAPI.cpp +++ b/src/xrEngine/EngineAPI.cpp @@ -218,7 +218,7 @@ void CEngineAPI::CreateRendererList() SupportsAdvancedRendering* test_rendering = (SupportsAdvancedRendering*)GetProcAddress(hRender, "SupportsAdvancedRendering"); R_ASSERT(test_rendering); bSupports_r2_5 = test_rendering(); - //FreeLibrary(hRender); + FreeLibrary(hRender); } // try to initialize R3 @@ -233,7 +233,7 @@ void CEngineAPI::CreateRendererList() SupportsDX10Rendering* test_dx10_rendering = (SupportsDX10Rendering*)GetProcAddress(hRender, "SupportsDX10Rendering"); R_ASSERT(test_dx10_rendering); bSupports_r3 = test_dx10_rendering(); - //FreeLibrary(hRender); + FreeLibrary(hRender); } // try to initialize R4 @@ -248,25 +248,24 @@ void CEngineAPI::CreateRendererList() SupportsDX11Rendering* test_dx11_rendering = (SupportsDX11Rendering*)GetProcAddress(hRender, "SupportsDX11Rendering"); R_ASSERT(test_dx11_rendering); bSupports_r4 = test_dx11_rendering(); - //FreeLibrary(hRender); + FreeLibrary(hRender); } } hRender = 0; bool proceed = true; xr_vector _tmp; - _tmp.push_back("renderer_r1"); - - if (proceed && (proceed = bSupports_r2)) + _tmp.push_back("renderer_r1"); + if (proceed &= bSupports_r2, proceed) { _tmp.push_back("renderer_r2a"); _tmp.push_back("renderer_r2"); } - if (proceed && (proceed = bSupports_r2_5)) + if (proceed &= bSupports_r2_5, proceed) _tmp.push_back("renderer_r2.5"); - if (proceed && (proceed = bSupports_r3)) + if (proceed &= bSupports_r3, proceed) _tmp.push_back("renderer_r3"); - if (proceed && (proceed = bSupports_r4)) + if (proceed &= bSupports_r4, proceed) _tmp.push_back("renderer_r4"); u32 _cnt = _tmp.size() + 1; From de1bcf2938acda494182814b9ee41ddbb50c799e Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 8 Sep 2016 18:37:43 -0400 Subject: [PATCH 151/166] * artefact bonuses are now multiplied by it's condition --- src/xrGame/Actor.cpp | 27 ++++++++++++++------------- src/xrGame/Actor_Movement.cpp | 2 +- src/xrGame/ui/ui_af_params.cpp | 4 ++++ 3 files changed, 19 insertions(+), 14 deletions(-) diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index cbd5f14effc..0c89b3aa932 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -1861,18 +1861,19 @@ void CActor::UpdateArtefactsOnBeltAndOutfit() CArtefact* artefact = smart_cast(*it); if (artefact) { - conditions().ChangeBleeding(artefact->m_fBleedingRestoreSpeed * f_update_time); - conditions().ChangeHealth(artefact->m_fHealthRestoreSpeed * f_update_time); - conditions().ChangePower(artefact->m_fPowerRestoreSpeed * f_update_time); - conditions().ChangeSatiety(artefact->m_fSatietyRestoreSpeed * f_update_time); - if (artefact->m_fRadiationRestoreSpeed > 0.0f) + float art_cond = artefact->GetCondition(); + conditions().ChangeBleeding((artefact->m_fBleedingRestoreSpeed*art_cond) * f_update_time); + conditions().ChangeHealth((artefact->m_fHealthRestoreSpeed*art_cond) * f_update_time); + conditions().ChangePower((artefact->m_fPowerRestoreSpeed*art_cond) * f_update_time); + conditions().ChangeSatiety((artefact->m_fSatietyRestoreSpeed*art_cond) * f_update_time); + if ((artefact->m_fRadiationRestoreSpeed*art_cond) > 0.0f) { - float val = artefact->m_fRadiationRestoreSpeed - conditions().GetBoostRadiationImmunity(); + float val = (artefact->m_fRadiationRestoreSpeed*art_cond) - conditions().GetBoostRadiationImmunity(); clamp(val, 0.0f, val); conditions().ChangeRadiation(val * f_update_time); } else - conditions().ChangeRadiation(artefact->m_fRadiationRestoreSpeed * f_update_time); + conditions().ChangeRadiation((artefact->m_fRadiationRestoreSpeed*art_cond) * f_update_time); } } CCustomOutfit* outfit = GetOutfit(); @@ -1925,7 +1926,7 @@ float CActor::GetProtection_ArtefactsOnBelt(ALife::EHitType hit_type) CArtefact* artefact = smart_cast(*it); if (artefact) { - sum += artefact->m_ArtefactHitImmunities.AffectHit(1.0f, hit_type); + sum += (artefact->m_ArtefactHitImmunities.AffectHit(1.0f, hit_type)*artefact->GetCondition()); } } return sum; @@ -2098,7 +2099,7 @@ float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) CArtefact* artefact = smart_cast(*itb); if (artefact) { - res += artefact->m_fHealthRestoreSpeed; + res += (artefact->m_fHealthRestoreSpeed*artefact->GetCondition()); } } CCustomOutfit* outfit = GetOutfit(); @@ -2117,7 +2118,7 @@ float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) CArtefact* artefact = smart_cast(*itb); if (artefact) { - res += artefact->m_fRadiationRestoreSpeed; + res += (artefact->m_fRadiationRestoreSpeed*artefact->GetCondition()); } } CCustomOutfit* outfit = GetOutfit(); @@ -2138,7 +2139,7 @@ float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) CArtefact* artefact = smart_cast(*itb); if (artefact) { - res += artefact->m_fSatietyRestoreSpeed; + res += (artefact->m_fSatietyRestoreSpeed*artefact->GetCondition()); } } CCustomOutfit* outfit = GetOutfit(); @@ -2159,7 +2160,7 @@ float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) CArtefact* artefact = smart_cast(*itb); if (artefact) { - res += artefact->m_fPowerRestoreSpeed; + res += (artefact->m_fPowerRestoreSpeed*artefact->GetCondition()); } } CCustomOutfit* outfit = GetOutfit(); @@ -2184,7 +2185,7 @@ float CActor::GetRestoreSpeed(ALife::EConditionRestoreType const& type) CArtefact* artefact = smart_cast(*itb); if (artefact) { - res += artefact->m_fBleedingRestoreSpeed; + res += (artefact->m_fBleedingRestoreSpeed*artefact->GetCondition()); } } CCustomOutfit* outfit = GetOutfit(); diff --git a/src/xrGame/Actor_Movement.cpp b/src/xrGame/Actor_Movement.cpp index 03612c33f90..53530cf3202 100644 --- a/src/xrGame/Actor_Movement.cpp +++ b/src/xrGame/Actor_Movement.cpp @@ -634,7 +634,7 @@ float CActor::get_additional_weight() const { CArtefact* artefact = smart_cast(*it); if(artefact) - res += artefact->AdditionalInventoryWeight(); + res += (artefact->AdditionalInventoryWeight()*artefact->GetCondition()); } return res; diff --git a/src/xrGame/ui/ui_af_params.cpp b/src/xrGame/ui/ui_af_params.cpp index a213c07f5ff..e83197a47d5 100644 --- a/src/xrGame/ui/ui_af_params.cpp +++ b/src/xrGame/ui/ui_af_params.cpp @@ -197,6 +197,8 @@ void CUIArtefactParams::SetInfo( CInventoryItem& pInvItem ) { continue; } + + val *= pInvItem.GetCondition(); max_val = actor->conditions().GetZoneMaxPower( (ALife::EInfluenceType)i ); val /= max_val; m_immunity_item[i]->SetValue( val ); @@ -213,6 +215,7 @@ void CUIArtefactParams::SetInfo( CInventoryItem& pInvItem ) val = pSettings->r_float( af_section, "additional_inventory_weight" ); if ( !fis_zero(val) ) { + val *= pInvItem.GetCondition(); m_additional_weight->SetValue( val ); pos.set( m_additional_weight->GetWndPos() ); @@ -231,6 +234,7 @@ void CUIArtefactParams::SetInfo( CInventoryItem& pInvItem ) { continue; } + val *= pInvItem.GetCondition(); m_restore_item[i]->SetValue( val ); pos.set( m_restore_item[i]->GetWndPos() ); From 70ee978c9c2d1d9c74e7e277d3c8a305985de275 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 10 Sep 2016 05:41:43 -0400 Subject: [PATCH 152/166] = fix donate item only working for quest items, should be the reverse + Added fire_wound_immunity, wound_immunity, explosion_immunity and strike_immunity to the list of properties that can be shown on Artefact UI, assuming the values are not zero. --- src/xrGame/ui/UIActorMenuInventory.cpp | 2 +- src/xrGame/ui/ui_af_params.cpp | 6 +++--- src/xrGame/ui/ui_af_params.h | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/xrGame/ui/UIActorMenuInventory.cpp b/src/xrGame/ui/UIActorMenuInventory.cpp index 63db2b27761..50e83ef2631 100644 --- a/src/xrGame/ui/UIActorMenuInventory.cpp +++ b/src/xrGame/ui/UIActorMenuInventory.cpp @@ -1325,7 +1325,7 @@ void CUIActorMenu::PropertiesBoxForRepair( PIItem item, bool& b_show ) //Alundaio: Ability to donate item during trade void CUIActorMenu::PropertiesBoxForDonate(PIItem item, bool& b_show) { - if (item->IsQuestItem()) + if (!item->IsQuestItem()) { m_UIPropertiesBox->AddItem("st_donate", NULL, INVENTORY_DONATE_ACTION); b_show = true; diff --git a/src/xrGame/ui/ui_af_params.cpp b/src/xrGame/ui/ui_af_params.cpp index e83197a47d5..76b59697913 100644 --- a/src/xrGame/ui/ui_af_params.cpp +++ b/src/xrGame/ui/ui_af_params.cpp @@ -15,7 +15,7 @@ u32 const green_clr = color_argb(255,170,170,170); CUIArtefactParams::CUIArtefactParams() { - for ( u32 i = 0; i < ALife::infl_max_count; ++i ) + for ( u32 i = 0; i < 9; ++i ) { m_immunity_item[i] = NULL; } @@ -120,7 +120,7 @@ void CUIArtefactParams::InitFromXml( CUIXml& xml ) xml.SetLocalRoot(base_node); //-Alundaio - for ( u32 i = 0; i < ALife::infl_max_count; ++i ) + for ( u32 i = 0; i < 9; ++i ) { m_immunity_item[i] = xr_new(); m_immunity_item[i]->Init( xml, af_immunity_section_names[i] ); @@ -189,7 +189,7 @@ void CUIArtefactParams::SetInfo( CInventoryItem& pInvItem ) AttachChild(m_disp_condition); //-Alundaio - for ( u32 i = 0; i < ALife::infl_max_count; ++i ) + for (u32 i = 0; i < 9; ++i) { shared_str const& sect = pSettings->r_string( af_section, "hit_absorbation_sect" ); val = pSettings->r_float( sect, af_immunity_section_names[i] ); diff --git a/src/xrGame/ui/ui_af_params.h b/src/xrGame/ui/ui_af_params.h index 3439a36ca3b..80f2303caa3 100644 --- a/src/xrGame/ui/ui_af_params.h +++ b/src/xrGame/ui/ui_af_params.h @@ -18,7 +18,7 @@ class CUIArtefactParams : public CUIWindow void SetInfo (CInventoryItem& pInvItem); protected: - UIArtefactParamItem* m_immunity_item[ALife::infl_max_count]; + UIArtefactParamItem* m_immunity_item[9]; UIArtefactParamItem* m_restore_item[ALife::eRestoreTypeMax]; UIArtefactParamItem* m_additional_weight; UIArtefactParamItem* m_disp_condition; //Alundaio: Show AF Condition From ea1e477113101fbee1f0cd56079b459112a178d5 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 10 Sep 2016 06:37:59 -0400 Subject: [PATCH 153/166] ~ verify member is online before switching offline --- src/xrGame/alife_online_offline_group.cpp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/xrGame/alife_online_offline_group.cpp b/src/xrGame/alife_online_offline_group.cpp index c5e9f1cba0a..d2d30b2bbdf 100644 --- a/src/xrGame/alife_online_offline_group.cpp +++ b/src/xrGame/alife_online_offline_group.cpp @@ -258,8 +258,11 @@ void CSE_ALifeOnlineOfflineGroup::switch_offline () MEMBERS::iterator I = m_members.begin(); MEMBERS::iterator E = m_members.end(); for ( ; I != E; ++I){ - (*I).second->clear_client_data(); - alife().remove_online ((*I).second, false); + if ((*I).second->m_bOnline == true) + { + (*I).second->clear_client_data(); + alife().remove_online ((*I).second, false); + } } alife().scheduled().add (this); From 76c7047e9ae6efad9e15a7bcd1428ba480c91e15 Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 12 Sep 2016 01:44:38 -0400 Subject: [PATCH 154/166] = Prevent recursive failure in xrDebug::backend. --- src/xrCore/xrDebugNew.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xrCore/xrDebugNew.cpp b/src/xrCore/xrDebugNew.cpp index bdd089a00ed..0dbd338dc34 100644 --- a/src/xrCore/xrDebugNew.cpp +++ b/src/xrCore/xrDebugNew.cpp @@ -300,7 +300,7 @@ void xrDebug::backend(const char* expression, const char* description, const cha TerminateProcess(GetCurrentProcess(), 1); } default: - NODEFAULT; + DEBUG_INVOKE; } # else // USE_OWN_ERROR_MESSAGE_WINDOW # ifdef USE_BUG_TRAP From 4f312ea6b148adf87342f9de1cc75ec2c3f96609 Mon Sep 17 00:00:00 2001 From: revolucas Date: Wed, 14 Sep 2016 07:19:38 -0400 Subject: [PATCH 155/166] + added bool CScriptGameObject::WeaponInGrenadeMode --- src/xrGame/script_game_object.h | 1 + src/xrGame/script_game_object3.cpp | 10 ++++++++++ src/xrGame/script_game_object_script3.cpp | 1 + 3 files changed, 12 insertions(+) diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index cc51d7e1154..4bcf83ab0f2 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -847,6 +847,7 @@ class CScriptGameObject { bool InstallUpgrade(LPCSTR upgrade); bool HasUpgrade(LPCSTR upgrade); void IterateInstalledUpgrades(luabind::functor functor); + bool WeaponInGrenadeMode(); //Car CScriptGameObject* GetAttachedVehicle(); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 10baf0ef638..9b559a3de05 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -49,6 +49,7 @@ #include "script_callback_ex.h" #include "../xrEngine/feel_touch.h" #include "weaponammo.h" +#include "WeaponMagazinedWGrenade.h" #endif //-Alundaio @@ -1311,6 +1312,15 @@ u32 CScriptGameObject::GetState() return 65535; } +bool CScriptGameObject::WeaponInGrenadeMode() +{ + CWeaponMagazinedWGrenade* wpn = smart_cast(&object()); + if (!wpn) + return false; + + return wpn->m_bGrenadeMode; +} + void CScriptGameObject::SetBoneVisible(LPCSTR bone_name, bool bVisibility, bool bRecursive) { IKinematics* k = object().Visual()->dcast_PKinematics(); diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 2612286606f..81cbc82d5af 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -371,6 +371,7 @@ class_ &script_register_game_object2(class_ Date: Fri, 16 Sep 2016 23:07:53 -0400 Subject: [PATCH 156/166] = Fix crash when actor dies while entered to Vehicle or Mounted Weapon + Added cut content, Mounted Weapon --- src/xrGame/Actor.h | 3 +-- src/xrGame/ActorMountedWeapon.cpp | 32 ++++++++++++++++---------- src/xrGame/CharacterPhysicsSupport.cpp | 9 -------- src/xrGame/Entity.cpp | 2 ++ 4 files changed, 23 insertions(+), 23 deletions(-) diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index 8f1e4f484b8..a56b6312cf2 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -250,15 +250,14 @@ struct SDefNewsMsg{ void detach_Vehicle (); void steer_Vehicle (float angle); void attach_Vehicle (CHolderCustom* vehicle); + bool use_MountedWeapon (CHolderCustom* object); virtual bool can_attach (const CInventoryItem *inventory_item) const; protected: CHolderCustom* m_holder; u16 m_holderID; bool use_Holder (CHolderCustom* holder); - bool use_Vehicle (CHolderCustom* object); - bool use_MountedWeapon (CHolderCustom* object); void ActorUse (); protected: diff --git a/src/xrGame/ActorMountedWeapon.cpp b/src/xrGame/ActorMountedWeapon.cpp index 6a26da0622f..54f0f102af3 100644 --- a/src/xrGame/ActorMountedWeapon.cpp +++ b/src/xrGame/ActorMountedWeapon.cpp @@ -5,36 +5,44 @@ #include "../xrEngine/CameraBase.h" #include "ActorEffector.h" #include "CharacterPhysicsSupport.h" +#include "holder_custom.h" +#include "script_callback_ex.h" +#include "script_game_object.h" bool CActor::use_MountedWeapon(CHolderCustom* object) { -/* - CHolderCustom* wpn =object; - if(m_holder){ - if(!wpn||(m_holder==wpn)){ + CHolderCustom* wpn = object; + if (m_holder){ + if (!wpn || (m_holder == wpn)){ m_holder->detach_Actor(); + CGameObject* go = smart_cast(m_holder); + if (go) + this->callback(GameObject::eDetachVehicle)(go->lua_game_object()); character_physics_support()->movement()->CreateCharacter(); - m_holder=NULL; + m_holder = NULL; } return true; - }else{ - if(wpn){ + } + else{ + if (wpn){ Fvector center; Center(center); - if(wpn->Use(Device.vCameraPosition, Device.vCameraDirection,center)){ - if(wpn->attach_Actor(this)){ + if (wpn->Use(Device.vCameraPosition, Device.vCameraDirection, center)){ + if (wpn->attach_Actor(this)){ // destroy actor character character_physics_support()->movement()->DestroyCharacter(); - PickupModeOff(); - m_holder=wpn; + //PickupModeOff(); + m_holder = wpn; if (pCamBobbing){ Cameras().RemoveCamEffector(eCEBobbing); pCamBobbing = NULL; } + CGameObject* go = smart_cast(m_holder); + if (go) + this->callback(GameObject::eAttachVehicle)(go->lua_game_object()); return true; } } } } -*/ return false; } diff --git a/src/xrGame/CharacterPhysicsSupport.cpp b/src/xrGame/CharacterPhysicsSupport.cpp index 9add185e5f5..ce337f15353 100644 --- a/src/xrGame/CharacterPhysicsSupport.cpp +++ b/src/xrGame/CharacterPhysicsSupport.cpp @@ -1170,18 +1170,9 @@ void CCharacterPhysicsSupport:: CreateShell ( CObject* who, Fvector& dp, Fv { m_pPhysicsShell->SetPrefereExactIntegration ();//use exact integration for ragdolls in single //AVO: turn on collision with dead bodies (thanks malandrinus) - //Alundaio: DEAD_BODY_COLLSION ONLY FOR ACTOR, NPC get stuck on bodies in chokepoints - CActor* A=smart_cast( &m_EntityAlife ); - if (A) - { #ifndef DEAD_BODY_COLLISION m_pPhysicsShell->SetRemoveCharacterCollLADisable(); #endif - } - else { - m_pPhysicsShell->SetRemoveCharacterCollLADisable(); - } - //-Alundaio //-AVO } else diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index 67065aa678d..80d84340176 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -254,6 +254,8 @@ void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for act #ifdef ACTOR_BEFORE_DEATH_CALLBACK if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) { + Actor()->detach_Vehicle(); + Actor()->use_MountedWeapon(NULL); Actor()->callback(GameObject::eActorBeforeDeath)(whoID); return; } From 01c24800c68b3487a82bc0ee584c4b8dc9929a4f Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 29 Sep 2016 04:09:43 -0400 Subject: [PATCH 157/166] = fix phantom + added new CHolderEntityObject class, which is a holder object that can use any visual, can lock/unlock enter or exit of the holder as well as other things. + add ability to use cut stationary mgun ~ unified some holder and enter vehicle code --- src/xrGame/Actor.cpp | 6 +- src/xrGame/Actor.h | 2 +- src/xrGame/ActorInput.cpp | 8 +- src/xrGame/ActorMountedWeapon.cpp | 57 +++-- src/xrGame/ActorVehicle.cpp | 5 +- src/xrGame/Entity.cpp | 3 +- src/xrGame/HolderEntityObject.cpp | 207 ++++++++++++++++++ src/xrGame/HolderEntityObject.h | 78 +++++++ src/xrGame/StaticHolderEntity.h | 77 +++++++ src/xrGame/WeaponStatMgun.cpp | 18 ++ src/xrGame/WeaponStatMgun.h | 8 + src/xrGame/WeaponStatMgunFire.cpp | 56 ++++- src/xrGame/ai/phantom/phantom.cpp | 4 +- src/xrGame/holder_custom.h | 10 +- src/xrGame/holder_custom_script.cpp | 3 + src/xrGame/script_game_object.h | 4 +- src/xrGame/script_game_object3.cpp | 14 +- src/xrGame/xrGame.vcxproj | 2 + src/xrGame/xrGame.vcxproj.filters | 6 + src/xrServerEntities/clsid_game.h | 2 +- .../object_factory_register.cpp | 5 +- 21 files changed, 533 insertions(+), 42 deletions(-) create mode 100644 src/xrGame/HolderEntityObject.cpp create mode 100644 src/xrGame/HolderEntityObject.h create mode 100644 src/xrGame/StaticHolderEntity.h diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 0c89b3aa932..7152ccef78f 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -1470,9 +1470,9 @@ void CActor::shedule_Update(u32 DT) } } // m_pPersonWeLookingAt } - else if (m_pVehicleWeLookingAt) - { - m_sDefaultObjAction = m_sCarCharacterUseAction; + else if (m_pVehicleWeLookingAt) + { + m_sDefaultObjAction = m_pVehicleWeLookingAt->m_sUseAction == 0 ? m_sCarCharacterUseAction : m_pVehicleWeLookingAt->m_sUseAction; } else if (m_pObjectWeLookingAt && m_pObjectWeLookingAt->cast_inventory_item() && diff --git a/src/xrGame/Actor.h b/src/xrGame/Actor.h index a56b6312cf2..3c6f3100a55 100644 --- a/src/xrGame/Actor.h +++ b/src/xrGame/Actor.h @@ -250,7 +250,7 @@ struct SDefNewsMsg{ void detach_Vehicle (); void steer_Vehicle (float angle); void attach_Vehicle (CHolderCustom* vehicle); - bool use_MountedWeapon (CHolderCustom* object); + bool use_HolderEx (CHolderCustom* object, bool bForce); virtual bool can_attach (const CInventoryItem *inventory_item) const; protected: diff --git a/src/xrGame/ActorInput.cpp b/src/xrGame/ActorInput.cpp index a646552c79b..f4ff7c4ac07 100644 --- a/src/xrGame/ActorInput.cpp +++ b/src/xrGame/ActorInput.cpp @@ -333,8 +333,8 @@ bool CActor::use_Holder (CHolderCustom* holder) if(smart_cast(holderGO)) b = use_Vehicle(0); else - if (holderGO->CLS_ID==CLSID_OBJECT_W_STATMGUN) - b = use_MountedWeapon(0); + if (holderGO->CLS_ID==CLSID_OBJECT_W_STATMGUN || holderGO->CLS_ID==CLSID_OBJECT_HOLDER_ENT) + b = use_HolderEx(0,false); if(inventory().ActiveItem()){ CHudItem* hi = smart_cast(inventory().ActiveItem()); @@ -348,8 +348,8 @@ bool CActor::use_Holder (CHolderCustom* holder) if(smart_cast(holder)) b = use_Vehicle(holder); - if (holderGO->CLS_ID==CLSID_OBJECT_W_STATMGUN) - b = use_MountedWeapon(holder); + if (holderGO->CLS_ID==CLSID_OBJECT_W_STATMGUN || holderGO->CLS_ID==CLSID_OBJECT_HOLDER_ENT) + b = use_HolderEx(holder,false); if(b){//used succesfully // switch off torch... diff --git a/src/xrGame/ActorMountedWeapon.cpp b/src/xrGame/ActorMountedWeapon.cpp index 54f0f102af3..53aa5533398 100644 --- a/src/xrGame/ActorMountedWeapon.cpp +++ b/src/xrGame/ActorMountedWeapon.cpp @@ -8,34 +8,55 @@ #include "holder_custom.h" #include "script_callback_ex.h" #include "script_game_object.h" +#include "Car.h" -bool CActor::use_MountedWeapon(CHolderCustom* object) +bool CActor::use_HolderEx(CHolderCustom* object, bool bForce) { - CHolderCustom* wpn = object; - if (m_holder){ - if (!wpn || (m_holder == wpn)){ - m_holder->detach_Actor(); - CGameObject* go = smart_cast(m_holder); - if (go) - this->callback(GameObject::eDetachVehicle)(go->lua_game_object()); - character_physics_support()->movement()->CreateCharacter(); - m_holder = NULL; + if (m_holder) + { + CCar* car = smart_cast(m_holder); + if (car) + { + detach_Vehicle(); + return true; + } + if (!m_holder->ExitLocked()) + { + if (!object || (m_holder == object)){ + m_holder->detach_Actor(); + + CGameObject* go = smart_cast(m_holder); + if (go) + this->callback(GameObject::eDetachVehicle)(go->lua_game_object()); + + character_physics_support()->movement()->CreateCharacter(); + m_holder = NULL; + } } return true; - } - else{ - if (wpn){ + } + else + { + CCar* car = smart_cast(m_holder); + if (car) + { + attach_Vehicle(object); + return true; + } + if (object && !object->EnterLocked()) + { Fvector center; Center(center); - if (wpn->Use(Device.vCameraPosition, Device.vCameraDirection, center)){ - if (wpn->attach_Actor(this)){ + if (object->Use(Device.vCameraPosition, Device.vCameraDirection, center)){ + if (object->attach_Actor(this)){ // destroy actor character character_physics_support()->movement()->DestroyCharacter(); - //PickupModeOff(); - m_holder = wpn; + + m_holder = object; if (pCamBobbing){ Cameras().RemoveCamEffector(eCEBobbing); pCamBobbing = NULL; } + CGameObject* go = smart_cast(m_holder); if (go) this->callback(GameObject::eAttachVehicle)(go->lua_game_object()); @@ -45,4 +66,4 @@ bool CActor::use_MountedWeapon(CHolderCustom* object) } } return false; -} +} \ No newline at end of file diff --git a/src/xrGame/ActorVehicle.cpp b/src/xrGame/ActorVehicle.cpp index 45c832b25ff..5cd00dc76dc 100644 --- a/src/xrGame/ActorVehicle.cpp +++ b/src/xrGame/ActorVehicle.cpp @@ -31,6 +31,9 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) #ifdef ENABLE_CAR if(!vehicle) return; if(m_holder) return; + CCar* car = smart_cast(vehicle); + if (!car) + return; //PickupModeOff (); m_holder=vehicle; @@ -44,7 +47,7 @@ void CActor::attach_Vehicle(CHolderCustom* vehicle) return; } // temp play animation - CCar* car = smart_cast(m_holder); + u16 anim_type = car->DriverAnimationType(); SVehicleAnimCollection& anims = m_vehicle_anims->m_vehicles_type_collections[anim_type]; V->PlayCycle (anims.idles[0],FALSE); diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index 80d84340176..6daa7ba3bc9 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -254,8 +254,7 @@ void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for act #ifdef ACTOR_BEFORE_DEATH_CALLBACK if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) { - Actor()->detach_Vehicle(); - Actor()->use_MountedWeapon(NULL); + Actor()->use_HolderEx(NULL,true); Actor()->callback(GameObject::eActorBeforeDeath)(whoID); return; } diff --git a/src/xrGame/HolderEntityObject.cpp b/src/xrGame/HolderEntityObject.cpp new file mode 100644 index 00000000000..6da56d3d2f2 --- /dev/null +++ b/src/xrGame/HolderEntityObject.cpp @@ -0,0 +1,207 @@ +#include "stdafx.h" +#include "HolderEntityObject.h" +#include "../Include/xrRender/Kinematics.h" +#include "../xrphysics/PhysicsShell.h" +#include "object_broker.h" +#include "actor.h" +#include "actorEffector.h" +#include "camerafirsteye.h" +#include "xr_level_controller.h" +#include "game_object_space.h" +#include "level.h" + +void CHolderEntityObject::BoneCallbackX(CBoneInstance *B) +{ + +} + +void CHolderEntityObject::BoneCallbackY(CBoneInstance *B) +{ + +} + +CHolderEntityObject::CHolderEntityObject() +{ + m_camera_position = Fvector().set(0.0f, 0.0f, 0.0f); + camera = xr_new(this, CCameraBase::flRelativeLink|CCameraBase::flPositionRigid|CCameraBase::flDirectionRigid); + camera->Load("holder_entity_object_cam"); +} + +CHolderEntityObject::~CHolderEntityObject() +{ + xr_delete(camera); +} + +void CHolderEntityObject::SetBoneCallbacks() +{ + m_pPhysicsShell->EnabledCallbacks(FALSE); +} + +void CHolderEntityObject::ResetBoneCallbacks() +{ + m_pPhysicsShell->EnabledCallbacks(TRUE); +} + +void CHolderEntityObject::Load(LPCSTR section) +{ + inheritedPH::Load(section); + m_bAllowWeapon = !!pSettings->r_bool(section,"allow_weapon"); + m_bExitLocked = !!pSettings->r_bool(section, "lock_exit"); + m_bEnterLocked = !!pSettings->r_bool(section, "lock_enter"); + + m_exit_position = READ_IF_EXISTS(pSettings, r_fvector3, section, "exit_pos", Fvector().set(0.0f, 0.0f, 0.0f)); + m_camera_position = READ_IF_EXISTS(pSettings, r_fvector3, section, "camera_pos", Fvector().set(0.0f, 0.0f, 0.0f)); + m_camera_angle = READ_IF_EXISTS(pSettings, r_fvector3, section, "camera_angle", Fvector().set(0.0f, 0.0f, 0.0f)); + m_sUseAction = READ_IF_EXISTS(pSettings, r_string, section, "use_action_hint", NULL); +} + +BOOL CHolderEntityObject::net_Spawn(CSE_Abstract* DC) +{ + if(!inheritedPH::net_Spawn (DC)) return FALSE; + + IKinematics* K = smart_cast(Visual()); + U16Vec fixed_bones; + fixed_bones.push_back(K->LL_GetBoneRoot()); + PPhysicsShell() = P_build_Shell(this,false,fixed_bones); + + processing_activate(); + setVisible(TRUE); + setEnabled(TRUE); + return TRUE; +} + +void CHolderEntityObject::net_Destroy() +{ + inheritedPH::net_Destroy (); + processing_deactivate (); +} + +void CHolderEntityObject::net_Export(NET_Packet& P) // export to server +{ + inheritedPH::net_Export (P); +} + +void CHolderEntityObject::net_Import(NET_Packet& P) // import from server +{ + inheritedPH::net_Import (P); +} + +void CHolderEntityObject::attach_actor_script(bool bForce) +{ + Actor()->use_HolderEx(smart_cast(this), bForce); +} + +void CHolderEntityObject::detach_actor_script(bool bForce) +{ + Actor()->use_HolderEx(NULL, bForce); +} + +void CHolderEntityObject::UpdateCL() +{ + inheritedPH::UpdateCL(); + + if(OwnerActor() && OwnerActor()->IsMyCamera()) + { + cam_Update(Device.fTimeDelta, g_fov); + OwnerActor()->Cameras().UpdateFromCamera(Camera()); + OwnerActor()->Cameras().ApplyDevice(VIEWPORT_NEAR); + } +} + +void CHolderEntityObject::Hit(SHit* pHDS) +{ + if(NULL==Owner()) + inheritedPH::Hit(pHDS); +} + +void CHolderEntityObject::cam_Update(float dt, float fov) +{ + Fvector P; + + XFORM().transform_tiny(P, m_camera_position); + + if(OwnerActor()){ + // rotate head + OwnerActor()->Orientation().yaw = -Camera()->yaw; + OwnerActor()->Orientation().pitch = -Camera()->pitch; + } + + Camera()->f_fov = fov; + Camera()->Update(P, m_camera_angle); + Level().Cameras().UpdateFromCamera(Camera()); +} + +void CHolderEntityObject::renderable_Render () +{ + inheritedPH::renderable_Render (); +} + +void CHolderEntityObject::Action(u16 id, u32 flags) +{ + inheritedHolder::Action(id,flags); + /* + switch (id){ + case kWPN_FIRE:{ + if(flags==CMD_START) FireStart (); + else FireEnd (); + }break; + } + */ +} + +void CHolderEntityObject::SetParam(int id, Fvector2 val) +{ + inheritedHolder::SetParam(id, val); +} + +bool CHolderEntityObject::attach_Actor(CGameObject* actor) +{ + inheritedHolder::attach_Actor(actor); + SetBoneCallbacks(); + return true; +} + +void CHolderEntityObject::detach_Actor() +{ + inheritedHolder::detach_Actor(); + ResetBoneCallbacks(); +} + +void CHolderEntityObject::OnMouseMove(int dx, int dy) +{ + if (Remote()) return; + CCameraBase* C = camera; + float scale = (C->f_fov / g_fov)*psMouseSens * psMouseSensScale / 50.f; + if (dx){ + float d = float(dx)*scale; + C->Move((d<0) ? kLEFT : kRIGHT, _abs(d)); + } + if (dy){ + float d = ((psMouseInvert.test(1)) ? -1 : 1)*float(dy)*scale*3.f / 4.f; + C->Move((d>0) ? kUP : kDOWN, _abs(d)); + } +} + +void CHolderEntityObject::OnKeyboardPress(int dik) +{ + if (Remote()) return; + + switch (dik) + { + case kWPN_FIRE: + break; + }; +} + +void CHolderEntityObject::OnKeyboardRelease (int dik) +{ + if (Remote()) return; + switch (dik) + { + case kWPN_FIRE: + break; + }; +} + +void CHolderEntityObject::OnKeyboardHold (int dik) +{} \ No newline at end of file diff --git a/src/xrGame/HolderEntityObject.h b/src/xrGame/HolderEntityObject.h new file mode 100644 index 00000000000..80d66514d16 --- /dev/null +++ b/src/xrGame/HolderEntityObject.h @@ -0,0 +1,78 @@ +#pragma once + +#include "holder_custom.h" +#include "physicsshellholder.h" +class CCameraBase; + +class CHolderEntityObject: public CPhysicsShellHolder, + public CHolderCustom +{ +private: + typedef CPhysicsShellHolder inheritedPH; + typedef CHolderCustom inheritedHolder; + +private: + CCameraBase* camera; + // + static void _BCL BoneCallbackX (CBoneInstance *B); + static void _BCL BoneCallbackY (CBoneInstance *B); + void SetBoneCallbacks (); + void ResetBoneCallbacks (); + +//casts +public: + virtual CHolderCustom *cast_holder_custom () {return this;} + +//general +public: + CHolderEntityObject (); + virtual ~CHolderEntityObject (); + + virtual void Load (LPCSTR section); + + virtual BOOL net_Spawn (CSE_Abstract* DC); + virtual void net_Destroy (); + virtual void net_Export (NET_Packet& P); // export to server + virtual void net_Import (NET_Packet& P); // import from server + + virtual void UpdateCL (); + + virtual void Hit (SHit* pHDS); + +//shooting +private: + Fvector3 m_camera_position; + Fvector3 m_exit_position; + Fvector3 m_camera_angle; + + Fvector2 m_lim_x_rot, m_lim_y_rot; //in bone space + bool m_bAllowWeapon; +protected: + virtual bool IsHudModeNow (){return false;}; + +//HolderCustom +public: + virtual bool Use (const Fvector& pos,const Fvector& dir,const Fvector& foot_pos) {return !Owner();}; + virtual void OnMouseMove (int x, int y); + virtual void OnKeyboardPress (int dik); + virtual void OnKeyboardRelease (int dik); + virtual void OnKeyboardHold (int dik); + virtual CInventory* GetInventory (){return NULL;}; + virtual void cam_Update (float dt, float fov=90.0f); + + virtual void renderable_Render (); + + virtual void attach_actor_script(bool bForce = false); + virtual void detach_actor_script(bool bForce = false); + + virtual bool attach_Actor (CGameObject* actor); + virtual void detach_Actor (); + virtual bool allowWeapon () const {return m_bAllowWeapon;}; + virtual bool HUDView () const {return true;}; + virtual Fvector ExitPosition() { return m_exit_position; }; + + virtual CCameraBase* Camera () {return camera;}; + + virtual void Action (u16 id, u32 flags); + virtual void SetParam (int id, Fvector2 val); +}; \ No newline at end of file diff --git a/src/xrGame/StaticHolderEntity.h b/src/xrGame/StaticHolderEntity.h new file mode 100644 index 00000000000..9467e9303de --- /dev/null +++ b/src/xrGame/StaticHolderEntity.h @@ -0,0 +1,77 @@ +#pragma once + +#include "holder_custom.h" +#include "physicsshellholder.h" +class CCameraBase; + +class CHolderEntityObject: public CPhysicsShellHolder, + public CHolderCustom +{ +private: + typedef CPhysicsShellHolder inheritedPH; + typedef CHolderCustom inheritedHolder; + +private: + CCameraBase* camera; + // + static void _BCL BoneCallbackX (CBoneInstance *B); + static void _BCL BoneCallbackY (CBoneInstance *B); + void SetBoneCallbacks (); + void ResetBoneCallbacks (); + +//casts +public: + virtual CHolderCustom *cast_holder_custom () {return this;} + +//general +public: + CHolderEntityObject (); + virtual ~CHolderEntityObject (); + + virtual void Load (LPCSTR section); + + virtual BOOL net_Spawn (CSE_Abstract* DC); + virtual void net_Destroy (); + virtual void net_Export (NET_Packet& P); // export to server + virtual void net_Import (NET_Packet& P); // import from server + + virtual void UpdateCL (); + + virtual void Hit (SHit* pHDS); + +//shooting +private: + u16 m_rotate_x_bone, m_rotate_y_bone, m_camera_bone; + float m_tgt_x_rot, m_tgt_y_rot, m_cur_x_rot, m_cur_y_rot, m_bind_x_rot, m_bind_y_rot; + Fvector m_bind_x, m_bind_y; + + Fmatrix m_i_bind_x_xform, m_i_bind_y_xform, m_fire_bone_xform; + Fvector2 m_lim_x_rot, m_lim_y_rot; //in bone space + bool m_bAllowWeapon; +protected: + void SetDesiredDir (float h, float p); + virtual bool IsHudModeNow (){return false;}; + +//HolderCustom +public: + virtual bool Use (const Fvector& pos,const Fvector& dir,const Fvector& foot_pos) {return !Owner();}; + virtual void OnMouseMove (int x, int y); + virtual void OnKeyboardPress (int dik); + virtual void OnKeyboardRelease (int dik); + virtual void OnKeyboardHold (int dik); + virtual CInventory* GetInventory (){return NULL;}; + virtual void cam_Update (float dt, float fov=90.0f); + + virtual void renderable_Render (); + + virtual bool attach_Actor (CGameObject* actor); + virtual void detach_Actor (); + virtual bool allowWeapon () const {return m_bAllowWeapon;}; + virtual bool HUDView () const {return true;}; + virtual Fvector ExitPosition () {return Fvector().set(0.0f,0.0f,0.0f);}; + + virtual CCameraBase* Camera () {return camera;}; + + virtual void Action (u16 id, u32 flags); + virtual void SetParam (int id, Fvector2 val); +}; \ No newline at end of file diff --git a/src/xrGame/WeaponStatMgun.cpp b/src/xrGame/WeaponStatMgun.cpp index 455fb11ca0c..e2aab2a34e2 100644 --- a/src/xrGame/WeaponStatMgun.cpp +++ b/src/xrGame/WeaponStatMgun.cpp @@ -28,9 +28,12 @@ void CWeaponStatMgun::BoneCallbackY (CBoneInstance *B) CWeaponStatMgun::CWeaponStatMgun() { + m_firing_disabled = false; m_Ammo = xr_new(); camera = xr_new (this, CCameraBase::flRelativeLink|CCameraBase::flPositionRigid|CCameraBase::flDirectionRigid); camera->Load("mounted_weapon_cam"); + + p_overheat = NULL; } CWeaponStatMgun::~CWeaponStatMgun() @@ -71,6 +74,15 @@ void CWeaponStatMgun::Load(LPCSTR section) camRelaxSpeed = pSettings->r_float (section,"cam_relax_speed" ); camRelaxSpeed = _abs( deg2rad (camRelaxSpeed) ); + m_overheat_enabled = pSettings->line_exist(section, "overheat_enabled") ? !!pSettings->r_bool(section, "overheat_enabled") : false; + m_overheat_time_quant = READ_IF_EXISTS(pSettings, r_float, section, "overheat_time_quant", 0.025f); + m_overheat_decr_quant = READ_IF_EXISTS(pSettings, r_float, section, "overheat_decr_quant", 0.002f); + m_overheat_threshold = READ_IF_EXISTS(pSettings, r_float, section, "overheat_threshold", 110.f); + m_overheat_particles = READ_IF_EXISTS(pSettings, r_string, section, "overheat_particles", "damage_fx\\burn_creatures00"); + + m_bEnterLocked = !!READ_IF_EXISTS(pSettings, r_bool, section, "lock_enter", false); + m_bExitLocked = !!READ_IF_EXISTS(pSettings, r_bool, section, "lock_exit", false); + VERIFY( !fis_zero(camMaxAngle) ); VERIFY( !fis_zero(camRelaxSpeed) ); } @@ -125,6 +137,12 @@ BOOL CWeaponStatMgun::net_Spawn(CSE_Abstract* DC) void CWeaponStatMgun::net_Destroy() { + if (p_overheat) + { + if (p_overheat->IsPlaying()) + p_overheat->Stop(FALSE); + CParticlesObject::Destroy(p_overheat); + } inheritedPH::net_Destroy (); processing_deactivate (); } diff --git a/src/xrGame/WeaponStatMgun.h b/src/xrGame/WeaponStatMgun.h index 7e0b6e7cfc0..035f5e75999 100644 --- a/src/xrGame/WeaponStatMgun.h +++ b/src/xrGame/WeaponStatMgun.h @@ -65,6 +65,14 @@ class CWeaponStatMgun: public CPhysicsShellHolder, float camRelaxSpeed; float camMaxAngle; + bool m_firing_disabled; + bool m_overheat_enabled; + float m_overheat_value; + float m_overheat_time_quant; + float m_overheat_decr_quant; + float m_overheat_threshold; + shared_str m_overheat_particles; + CParticlesObject* p_overheat; protected: void UpdateBarrelDir (); virtual const Fvector& get_CurrentFirePoint(); diff --git a/src/xrGame/WeaponStatMgunFire.cpp b/src/xrGame/WeaponStatMgunFire.cpp index 442a34617bf..81de4848d12 100644 --- a/src/xrGame/WeaponStatMgunFire.cpp +++ b/src/xrGame/WeaponStatMgunFire.cpp @@ -20,6 +20,9 @@ const Fmatrix& CWeaponStatMgun::get_ParticlesXFORM () void CWeaponStatMgun::FireStart() { + if (m_firing_disabled) + return; + m_dAngle.set(0.0f,0.0f); inheritedShooting::FireStart(); } @@ -35,16 +38,67 @@ void CWeaponStatMgun::FireEnd() void CWeaponStatMgun::UpdateFire() { fShotTimeCounter -= Device.fTimeDelta; - inheritedShooting::UpdateFlameParticles(); inheritedShooting::UpdateLight(); + + if (m_overheat_enabled) + { + m_overheat_value -= m_overheat_decr_quant; + if (m_overheat_value < 100.f) + { + if (p_overheat) + { + if (p_overheat->IsPlaying()) + p_overheat->Stop(FALSE); + CParticlesObject::Destroy(p_overheat); + } + if (m_firing_disabled) + m_firing_disabled = false; + } + else { + if (p_overheat) + { + Fmatrix pos; + pos.set(get_ParticlesXFORM()); + pos.c.set(get_CurrentFirePoint()); + p_overheat->SetXFORM(pos); + } + } + } if(!IsWorking()){ clamp(fShotTimeCounter,0.0f, flt_max); + clamp(m_overheat_value, 0.0f, m_overheat_threshold); return; } + if (m_overheat_enabled) + { + m_overheat_value += m_overheat_time_quant; + clamp(m_overheat_value, 0.0f, m_overheat_threshold); + + if (m_overheat_value >= 100.f) + { + if (!p_overheat) + { + p_overheat = CParticlesObject::Create(m_overheat_particles.c_str(),FALSE); + Fmatrix pos; + pos.set(get_ParticlesXFORM()); + pos.c.set(get_CurrentFirePoint()); + p_overheat->SetXFORM(pos); + p_overheat->Play(false); + } + + if (m_overheat_value >= m_overheat_threshold) + { + m_firing_disabled = true; + FireEnd(); + return; + } + } + } + if(fShotTimeCounter<=0) { OnShot (); diff --git a/src/xrGame/ai/phantom/phantom.cpp b/src/xrGame/ai/phantom/phantom.cpp index 11cde32f6b0..31830042173 100644 --- a/src/xrGame/ai/phantom/phantom.cpp +++ b/src/xrGame/ai/phantom/phantom.cpp @@ -72,11 +72,11 @@ BOOL CPhantom::net_Spawn(CSE_Abstract* DC) SwitchToState (stBirth); // initial state (changed on load method in inherited::) + OBJ->set_killer_id(u16(-1)); // Alundaio: Hack to prevent strange crash with dynamic phantoms + // inherited if (!inherited::net_Spawn(DC)) return FALSE; - OBJ->set_killer_id(u16(-1)); // Alundaio: Hack to prevent strange crash with dynamic phantoms - m_enemy = Level().CurrentEntity(); VERIFY (m_enemy); diff --git a/src/xrGame/holder_custom.h b/src/xrGame/holder_custom.h index b5fb17eaf10..375fbaccfc9 100644 --- a/src/xrGame/holder_custom.h +++ b/src/xrGame/holder_custom.h @@ -17,8 +17,10 @@ class CHolderCustom protected: CGameObject* Owner (){return m_owner;} CActor* OwnerActor (){return m_ownerActor;} + bool m_bEnterLocked; + bool m_bExitLocked; public: - CHolderCustom () {m_owner=NULL;m_ownerActor=NULL;} + CHolderCustom() { m_owner = NULL; m_ownerActor = NULL; m_bEnterLocked = false; m_bExitLocked = false; } virtual ~CHolderCustom () {;} virtual void UpdateEx (float fov){}; //called by owner virtual CHolderCustom *cast_holder_custom () {return this;} @@ -32,6 +34,10 @@ class CHolderCustom virtual void cam_Update (float dt, float fov=90.0f) = 0; + virtual bool EnterLocked() { return m_bEnterLocked; } + virtual bool ExitLocked() { return m_bExitLocked; } + virtual void SetEnterLocked(bool v) { m_bEnterLocked = v; } + virtual void SetExitLocked(bool v) { m_bExitLocked = v; } virtual bool Use (const Fvector& pos,const Fvector& dir,const Fvector& foot_pos)=0; virtual bool attach_Actor (CGameObject* actor); virtual void detach_Actor (); @@ -43,6 +49,8 @@ class CHolderCustom virtual void Action (u16 id, u32 flags) {}; virtual void SetParam (int id, Fvector2 val) {}; virtual void SetParam (int id, Fvector val) {}; + + shared_str m_sUseAction; DECLARE_SCRIPT_REGISTER_FUNCTION }; diff --git a/src/xrGame/holder_custom_script.cpp b/src/xrGame/holder_custom_script.cpp index 949a49401b0..07ed5c18563 100644 --- a/src/xrGame/holder_custom_script.cpp +++ b/src/xrGame/holder_custom_script.cpp @@ -1,5 +1,6 @@ #include "pch_script.h" #include "holder_custom.h" +#include "HolderEntityObject.h" using namespace luabind; @@ -13,5 +14,7 @@ void CHolderCustom::script_register(lua_State *L) .def("Action", &CHolderCustom::Action) // .def("SetParam", (void (CHolderCustom::*)(int,Fvector2)) &CHolderCustom::SetParam) .def("SetParam", (void (CHolderCustom::*)(int,Fvector)) &CHolderCustom::SetParam) + .def("SetEnterLocked", &CHolderCustom::SetEnterLocked) + .def("SetExitLocked", &CHolderCustom::SetExitLocked) ]; } \ No newline at end of file diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 4bcf83ab0f2..c8c8cd1ceab 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -851,8 +851,8 @@ class CScriptGameObject { //Car CScriptGameObject* GetAttachedVehicle(); - void AttachVehicle(CScriptGameObject* veh); - void DetachVehicle(); + void AttachVehicle(CScriptGameObject* veh, bool bForce = false); + void DetachVehicle(bool bForce = false); //Any class that is derived from CHudItem u32 PlayHudMotion(LPCSTR M, bool bMixIn, u32 state); diff --git a/src/xrGame/script_game_object3.cpp b/src/xrGame/script_game_object3.cpp index 9b559a3de05..f2aca9eec9d 100644 --- a/src/xrGame/script_game_object3.cpp +++ b/src/xrGame/script_game_object3.cpp @@ -1220,22 +1220,26 @@ void CScriptGameObject::SetArtefactBleedingRestoreSpeed(float value) artefact->SetBleedingPower(value); } -void CScriptGameObject::AttachVehicle(CScriptGameObject* veh) +void CScriptGameObject::AttachVehicle(CScriptGameObject* veh, bool bForce) { CActor *actor = smart_cast(&object()); if (actor) { - CHolderCustom* vehicle = veh->object().cast_holder_custom();//smart_cast(veh->object()); + CHolderCustom* vehicle = veh->object().cast_holder_custom(); if (vehicle) - actor->attach_Vehicle(vehicle); + { + actor->use_HolderEx(vehicle, bForce); + } } } -void CScriptGameObject::DetachVehicle() +void CScriptGameObject::DetachVehicle(bool bForce) { CActor *actor = smart_cast(&object()); if (actor) - actor->detach_Vehicle(); + { + actor->use_HolderEx(NULL, bForce); + } } CScriptGameObject* CScriptGameObject::GetAttachedVehicle() diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 0e361c13c7c..5f695fe6861 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -1932,6 +1932,7 @@ + @@ -4154,6 +4155,7 @@ $(IntDir)$(ProjectName)_script.pch + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index 4bef7e66c77..c07411cd081 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -5856,6 +5856,9 @@ Core\Client\Objects\items & weapons\Weapons\StationaryMgun + + Core\Client\Objects\items & HolderEntityObject + Core\Client\Objects\items & weapons\Artifacts @@ -9434,6 +9437,9 @@ Core\Client\Objects\items & weapons\Weapons\StationaryMgun + + Core\Client\Objects\items & HolderEntityObject + Core\Client\Objects\items & weapons\Weapons\StationaryMgun diff --git a/src/xrServerEntities/clsid_game.h b/src/xrServerEntities/clsid_game.h index e233f5e5191..3c0366126c8 100644 --- a/src/xrServerEntities/clsid_game.h +++ b/src/xrServerEntities/clsid_game.h @@ -128,7 +128,7 @@ #define CLSID_OBJECT_ITEM_STD MK_CLSID('O','_','I','T','E','M',' ',' ') #define CLSID_OBJECT_BREAKABLE MK_CLSID('O','_','B','R','K','B','L',' ') #define CLSID_OBJECT_CLIMABLE MK_CLSID('O','_','C','L','M','B','L',' ') - +#define CLSID_OBJECT_HOLDER_ENT MK_CLSID('O','_','H','L','D','R','_','E') // #define CLSID_PH_SKELETON_OBJECT MK_CLSID('P','_','S','K','E','L','E','T') #define CLSID_OBJECT_PHYSIC MK_CLSID('O','_','P','H','Y','S','I','C') diff --git a/src/xrServerEntities/object_factory_register.cpp b/src/xrServerEntities/object_factory_register.cpp index 4fcced62c69..f9f04f377e1 100644 --- a/src/xrServerEntities/object_factory_register.cpp +++ b/src/xrServerEntities/object_factory_register.cpp @@ -178,6 +178,8 @@ # include "actor_mp_server.h" # include "actor_mp_client.h" # include "smart_cover_object.h" + +#include "..\xrGame\HolderEntityObject.h" #endif // NO_XR_GAME #ifndef NO_XR_GAME @@ -409,7 +411,8 @@ void CObjectFactory::register_classes () ADD(CClimableObject ,CSE_ALifeObjectClimable ,CLSID_OBJECT_CLIMABLE ,"obj_climable"); ADD(CPhysicsSkeletonObject ,CSE_ALifePHSkeletonObject ,CLSID_PH_SKELETON_OBJECT ,"obj_phskeleton"); ADD(CDestroyablePhysicsObject,CSE_ALifeObjectPhysic ,CLSID_PHYSICS_DESTROYABLE ,"obj_phys_destroyable"); - + ADD(CHolderEntityObject ,CSE_ALifeDynamicObjectVisual ,CLSID_OBJECT_HOLDER_ENT ,"obj_holder_ent"); + ADD(CInventoryBox ,CSE_ALifeInventoryBox ,CLSID_INVENTORY_BOX ,"inventory_box"); #ifndef NO_SINGLE ADD(smart_cover::object ,CSE_SmartCover ,TEXT2CLSID("SMRTCOVR") ,"smart_cover"); From 1bc7d2692c21049e77b55fe15f2cf91ce300c961 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 1 Oct 2016 11:48:12 -0400 Subject: [PATCH 158/166] = some fixes to phantom = exported visual_memory_manager.cpp --- src/xrGame/ai/phantom/phantom.cpp | 6 ++--- src/xrGame/visual_memory_manager.cpp | 25 ++++++++++++++++--- src/xrGame/visual_memory_manager.h | 2 +- src/xrServerEntities/script_ini_file.cpp | 4 +-- src/xrServerEntities/script_ini_file.h | 2 +- .../script_ini_file_script.cpp | 2 +- .../xrServer_Objects_ALife_Monsters.cpp | 2 +- 7 files changed, 30 insertions(+), 13 deletions(-) diff --git a/src/xrGame/ai/phantom/phantom.cpp b/src/xrGame/ai/phantom/phantom.cpp index 31830042173..01754257ca5 100644 --- a/src/xrGame/ai/phantom/phantom.cpp +++ b/src/xrGame/ai/phantom/phantom.cpp @@ -267,7 +267,7 @@ void CPhantom::Hit (SHit* pHDS) { if (m_TgtState==stFly) SwitchToState(stShoot); if (g_Alive()){ - SetfHealth (-1.f); +// SetfHealth (-1.f); // inherited::Hit (P,dir,who,element,p_in_object_space,impulse/100.f, hit_type); inherited::Hit (pHDS); } @@ -329,11 +329,11 @@ void CPhantom::PsyHit(const CObject *object, float value) // Core events void CPhantom::save(NET_Packet &output_packet) { - output_packet.w_s32 (s32(m_CurState)); + //output_packet.w_s32 (s32(m_CurState)); } void CPhantom::load(IReader &input_packet) { - SwitchToState (EState(input_packet.r_s32())); + //SwitchToState (EState(input_packet.r_s32())); } void CPhantom::net_Export (NET_Packet& P) // export to server { diff --git a/src/xrGame/visual_memory_manager.cpp b/src/xrGame/visual_memory_manager.cpp index 50a75aa91fd..2f4140e6c7d 100644 --- a/src/xrGame/visual_memory_manager.cpp +++ b/src/xrGame/visual_memory_manager.cpp @@ -33,6 +33,12 @@ # include "ai_debug.h" #endif // MASTER_GOLD +//Alundaio +#include "../../xrServerEntities/script_engine.h" +#include "script_game_object.h" +using namespace luabind; //Alundaio +//-Alundaio + void SetActorVisibility(u16 who, float value); struct SRemoveOfflinePredicate { @@ -289,7 +295,7 @@ float CVisualMemoryManager::object_visible_distance(const CGameObject *game_obje float CVisualMemoryManager::object_luminocity (const CGameObject *game_object) const { - if (!smart_cast(game_object)) + if (!smart_cast(game_object)) //Alundaio return (1.f); float luminocity = const_cast(game_object)->ROS()->get_luminocity(); float power = log(luminocity > .001f ? luminocity : .001f)*current_state().m_luminocity_factor; @@ -298,6 +304,11 @@ float CVisualMemoryManager::object_luminocity (const CGameObject *game_object) c float CVisualMemoryManager::get_object_velocity (const CGameObject *game_object, const CNotYetVisibleObject ¬_yet_visible_object) const { + //Alundaio: no need to check velocity on anything but stalkers, mutants and actor + if (!smart_cast(game_object)) + return (0.f); + //-Alundaio + if ((game_object->ps_Size() < 2) || (not_yet_visible_object.m_prev_time == game_object->ps_Element(game_object->ps_Size() - 2).dwTime)) return (0.f); @@ -313,13 +324,19 @@ float CVisualMemoryManager::get_object_velocity (const CGameObject *game_object, ); } -float CVisualMemoryManager::get_visible_value (float distance, float object_distance, float time_delta, float object_velocity, float luminocity) const +float CVisualMemoryManager::get_visible_value(const CGameObject *game_object, float distance, float object_distance, float time_delta, float object_velocity, float luminocity) const { float always_visible_distance = current_state().m_always_visible_distance; if (distance <= always_visible_distance + EPS_L) return (current_state().m_visibility_threshold); + //Alundaio: hijack not_yet_visible_object to lua + luabind::functor funct; + if (ai().script_engine().functor("visual_memory_manager.get_visible_value", funct)) + return (funct(m_object?m_object->lua_game_object():0,game_object?game_object->lua_game_object():0, time_delta, current_state().m_time_quant, luminocity, current_state().m_velocity_factor, object_velocity, distance, object_distance, always_visible_distance)); + //-Alundaio + return ( time_delta / current_state().m_time_quant * @@ -395,7 +412,7 @@ bool CVisualMemoryManager::visible (const CGameObject *game_object, float tim CNotYetVisibleObject new_object; new_object.m_object = game_object; new_object.m_prev_time = 0; - new_object.m_value = get_visible_value(distance,object_distance,time_delta,get_object_velocity(game_object,new_object),object_luminocity(game_object)); + new_object.m_value = get_visible_value(game_object,distance, object_distance, time_delta, get_object_velocity(game_object, new_object), object_luminocity(game_object)); clamp (new_object.m_value,0.f,current_state().m_visibility_threshold + EPS_L); new_object.m_update_time = Device.dwTimeGlobal; new_object.m_prev_time = get_prev_time(game_object); @@ -404,7 +421,7 @@ bool CVisualMemoryManager::visible (const CGameObject *game_object, float tim } object->m_update_time = Device.dwTimeGlobal; - object->m_value += get_visible_value(distance,object_distance,time_delta,get_object_velocity(game_object,*object),object_luminocity(game_object)); + object->m_value += get_visible_value(game_object,distance, object_distance, time_delta, get_object_velocity(game_object, *object), object_luminocity(game_object)); clamp (object->m_value,0.f,current_state().m_visibility_threshold + EPS_L); object->m_prev_time = get_prev_time(game_object); diff --git a/src/xrGame/visual_memory_manager.h b/src/xrGame/visual_memory_manager.h index b99f734e4a6..e4ef3604119 100644 --- a/src/xrGame/visual_memory_manager.h +++ b/src/xrGame/visual_memory_manager.h @@ -66,7 +66,7 @@ class CVisualMemoryManager { void add_visible_object (const CVisibleObject visible_object); float object_visible_distance (const CGameObject *game_object, float &object_distance) const; float object_luminocity (const CGameObject *game_object) const; - float get_visible_value (float distance, float object_distance, float time_delta, float object_velocity, float luminocity) const; + float get_visible_value (const CGameObject *game_object,float distance, float object_distance, float time_delta, float object_velocity, float luminocity) const; float get_object_velocity (const CGameObject *game_object, const CNotYetVisibleObject ¬_yet_visible_object) const; u32 get_prev_time (const CGameObject *game_object) const; diff --git a/src/xrServerEntities/script_ini_file.cpp b/src/xrServerEntities/script_ini_file.cpp index 71ec81a0426..79f1ee31b80 100644 --- a/src/xrServerEntities/script_ini_file.cpp +++ b/src/xrServerEntities/script_ini_file.cpp @@ -16,8 +16,8 @@ CScriptIniFile::CScriptIniFile(IReader *F, LPCSTR path) : inherited(F, path) {} -CScriptIniFile::CScriptIniFile(LPCSTR szFileName, BOOL ReadOnly, BOOL bLoadAtStart, BOOL SaveAtEnd) : -inherited(update(szFileName), ReadOnly, bLoadAtStart, SaveAtEnd) +CScriptIniFile::CScriptIniFile(LPCSTR szFileName, BOOL ReadOnly, BOOL bLoadAtStart, BOOL SaveAtEnd, LPCSTR path) : +inherited(path?path:update(szFileName), ReadOnly, bLoadAtStart, SaveAtEnd) {} CScriptIniFile::~CScriptIniFile() diff --git a/src/xrServerEntities/script_ini_file.h b/src/xrServerEntities/script_ini_file.h index 11fbfa9bbb4..087200b09a3 100644 --- a/src/xrServerEntities/script_ini_file.h +++ b/src/xrServerEntities/script_ini_file.h @@ -17,7 +17,7 @@ class CScriptIniFile : public CInifile { public: CScriptIniFile (IReader *F, LPCSTR path=0); - CScriptIniFile (LPCSTR szFileName, BOOL ReadOnly=TRUE, BOOL bLoadAtStart=TRUE, BOOL SaveAtEnd=TRUE); + CScriptIniFile (LPCSTR szFileName, BOOL ReadOnly=TRUE, BOOL bLoadAtStart=TRUE, BOOL SaveAtEnd=TRUE, LPCSTR path=NULL); virtual ~CScriptIniFile (); bool line_exist (LPCSTR S, LPCSTR L); bool section_exist (LPCSTR S); diff --git a/src/xrServerEntities/script_ini_file_script.cpp b/src/xrServerEntities/script_ini_file_script.cpp index 7750fe3efd3..4db25fe7034 100644 --- a/src/xrServerEntities/script_ini_file_script.cpp +++ b/src/xrServerEntities/script_ini_file_script.cpp @@ -95,7 +95,7 @@ void CScriptIniFile::script_register(lua_State *L) .def(constructor()) //Alundaio: Extend script ini file #ifdef INI_FILE_EXTENDED_EXPORTS - //.def(constructor()) + .def(constructor()) .def("w_bool",&CScriptIniFile::w_bool) .def("w_color", &CScriptIniFile::w_color) .def("w_fcolor", &CScriptIniFile::w_fcolor) diff --git a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp index 64aba722a8f..a608ec41dcd 100644 --- a/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp +++ b/src/xrServerEntities/xrServer_Objects_ALife_Monsters.cpp @@ -986,7 +986,7 @@ u32 CSE_ALifeCreatureAbstract::ef_detector_type() const #ifdef XRGAME_EXPORTS void CSE_ALifeCreatureAbstract::on_death (CSE_Abstract *killer) { - VERIFY (!m_game_death_time); + //VERIFY (!m_game_death_time); m_game_death_time = ai().get_alife() ? alife().time_manager().game_time() : Level().GetGameTime(); fHealth = -1.f; } From a74242d3483a36e2c67952c1cd71f1a6be63b1a1 Mon Sep 17 00:00:00 2001 From: revolucas Date: Fri, 28 Oct 2016 11:56:47 -0400 Subject: [PATCH 159/166] ~ revert OXR thread sync fix due to Pure Virtual Function call crashes emanating from device.cpp = Fix HUD sound issue + added -no_bump_mode1 and -no_bump_mode2 command line params. mode 1 disabled _bump#.dds and mode 2 disables _bump.dds --- src/Layers/xrRender/Texture.cpp | 34 +++++++++- src/Layers/xrRenderDX10/dx10Texture.cpp | 34 +++++++++- src/xrCore/xrCore.vcxproj | 2 - src/xrCore/xrCore.vcxproj.filters | 2 - src/xrEngine/device.cpp | 87 +++++++++++++++++-------- src/xrEngine/device.h | 75 +++++++++++++++------ src/xrGame/HudSound.cpp | 10 +-- src/xrGame/alife_simulator_script.cpp | 5 ++ src/xrGame/ui/UIWpnParams.cpp | 2 + 9 files changed, 193 insertions(+), 58 deletions(-) diff --git a/src/Layers/xrRender/Texture.cpp b/src/Layers/xrRender/Texture.cpp index d0e4ccf1b68..04156d5e2c4 100644 --- a/src/Layers/xrRender/Texture.cpp +++ b/src/Layers/xrRender/Texture.cpp @@ -305,7 +305,39 @@ ID3DBaseTexture* CRender::texture_load(LPCSTR fRName, u32& ret_msize) fix_texture_name (fname); IReader* S = NULL; //if (FS.exist(fn,"$game_textures$",fname, ".dds") && strstr(fname,"_bump")) goto _BUMP; - if (!FS.exist(fn,"$game_textures$", fname, ".dds") && strstr(fname,"_bump")) goto _BUMP_from_base; + if (strstr(fname,"_bump")) + { + if (!FS.exist(fn,"$game_textures$", fname, ".dds")) + goto _BUMP_from_base; + else if (strstr(Core.Params,"-no_bump_mode2")) + { + if (strstr(fname,"_bump#")) + { + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump#", ".dds"), "ed_dummy_bump#"); + S = FS.r_open (fn); + R_ASSERT2 (S, fn); + img_size = S->length (); + goto _DDS_2D; + } + + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump", ".dds"),"ed_dummy_bump"); + S = FS.r_open (fn); + + R_ASSERT2 (S, fn); + + img_size = S->length (); + goto _DDS_2D; + } + else if (strstr(Core.Params,"-no_bump_mode1") && strstr(fname,"_bump#")) + { + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump#", ".dds"), "ed_dummy_bump#"); + S = FS.r_open (fn); + R_ASSERT2 (S, fn); + img_size = S->length (); + goto _DDS_2D; + } + } + if (FS.exist(fn,"$level$", fname, ".dds")) goto _DDS; if (FS.exist(fn,"$game_saves$", fname, ".dds")) goto _DDS; if (FS.exist(fn,"$game_textures$", fname, ".dds")) goto _DDS; diff --git a/src/Layers/xrRenderDX10/dx10Texture.cpp b/src/Layers/xrRenderDX10/dx10Texture.cpp index 44e4bd55846..38bf779e503 100644 --- a/src/Layers/xrRenderDX10/dx10Texture.cpp +++ b/src/Layers/xrRenderDX10/dx10Texture.cpp @@ -328,7 +328,39 @@ ID3DBaseTexture* CRender::texture_load(LPCSTR fRName, u32& ret_msize, bool bStag xr_strcpy(fname,fRName); //. andy if (strext(fname)) *strext(fname)=0; fix_texture_name (fname); IReader* S = NULL; - if (!FS.exist(fn,"$game_textures$", fname, ".dds") && strstr(fname,"_bump")) goto _BUMP_from_base; + //if (!FS.exist(fn,"$game_textures$", fname, ".dds") && strstr(fname,"_bump")) goto _BUMP_from_base; + if (strstr(fname,"_bump")) + { + if (!FS.exist(fn,"$game_textures$", fname, ".dds")) + goto _BUMP_from_base; + else if (strstr(Core.Params,"-no_bump_mode2")) + { + if (strstr(fname,"_bump#")) + { + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump#", ".dds"), "ed_dummy_bump#"); + S = FS.r_open (fn); + R_ASSERT2 (S, fn); + img_size = S->length (); + goto _DDS_2D; + } + + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump", ".dds"),"ed_dummy_bump"); + S = FS.r_open (fn); + + R_ASSERT2 (S, fn); + + img_size = S->length (); + goto _DDS_2D; + } + else if (strstr(Core.Params,"-no_bump_mode1") && strstr(fname,"_bump#")) + { + R_ASSERT2 (FS.exist(fn,"$game_textures$", "ed\\ed_dummy_bump#", ".dds"), "ed_dummy_bump#"); + S = FS.r_open (fn); + R_ASSERT2 (S, fn); + img_size = S->length (); + goto _DDS_2D; + } + } if (FS.exist(fn,"$level$", fname, ".dds")) goto _DDS; if (FS.exist(fn,"$game_saves$", fname, ".dds")) goto _DDS; if (FS.exist(fn,"$game_textures$", fname, ".dds")) goto _DDS; diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index 4a3c18df4c7..a83f238e9ef 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -377,7 +377,6 @@ - @@ -515,7 +514,6 @@ - diff --git a/src/xrCore/xrCore.vcxproj.filters b/src/xrCore/xrCore.vcxproj.filters index db17af56182..58a469a772b 100644 --- a/src/xrCore/xrCore.vcxproj.filters +++ b/src/xrCore/xrCore.vcxproj.filters @@ -289,7 +289,6 @@ OS - @@ -600,7 +599,6 @@ - diff --git a/src/xrEngine/device.cpp b/src/xrEngine/device.cpp index 9d7f920e3db..b780ffd66d4 100644 --- a/src/xrEngine/device.cpp +++ b/src/xrEngine/device.cpp @@ -144,24 +144,36 @@ void CRenderDevice::End(void) #endif } -void CRenderDevice::SecondaryThreadProc(void *context) + +volatile u32 mt_Thread_marker = 0x12345678; +void mt_Thread(void* ptr) { - auto &device = *static_cast(context); + auto &device = *static_cast(ptr); while (true) { - device.syncProcessFrame.Wait(); - if (device.mt_bMustExit) + // waiting for Device permission to execute + device.mt_csEnter.Enter(); + + if (device.mt_bMustExit) { - device.mt_bMustExit = FALSE; - device.syncThreadExit.Set(); + device.mt_bMustExit = FALSE; // Important!!! + device.mt_csEnter.Leave(); // Important!!! return; } - - for (u32 pit = 0; pit < device.seqParallel.size(); pit++) - device.seqParallel[pit](); - device.seqParallel.clear_not_free(); - device.seqFrameMT.Process(rp_Frame); - device.syncFrameDone.Set(); + // we has granted permission to execute + mt_Thread_marker = device.dwFrame; + + for (u32 pit = 0; pit < device.seqParallel.size(); pit++) + device.seqParallel[pit](); + device.seqParallel.clear_not_free(); + device.seqFrameMT.Process(rp_Frame); + + // now we give control to device - signals that we are ended our work + device.mt_csEnter.Leave(); + // waits for device signal to continue - to start again + device.mt_csLeave.Enter(); + // returns sync signal to device + device.mt_csLeave.Leave(); } } @@ -250,7 +262,12 @@ void CRenderDevice::on_idle() mView_saved = mView; mProject_saved = mProject; - syncProcessFrame.Set(); // allow secondary thread to do its job + // *** Resume threads + // Capture end point - thread must run only ONE cycle + // Release start point - allow thread to run + mt_csLeave.Enter(); + mt_csEnter.Leave(); + #ifdef ECO_RENDER // ECO_RENDER START static u32 time_frame = 0; u32 time_curr = timeGetTime(); @@ -266,10 +283,8 @@ void CRenderDevice::on_idle() #endif // ECO_RENDER END #ifndef DEDICATED_SERVER - // all rendering is done here - CStatTimer renderTotalReal; - renderTotalReal.FrameStart(); - renderTotalReal.Begin(); + Statistic->RenderTOTAL_Real.FrameStart(); + Statistic->RenderTOTAL_Real.Begin(); if (b_is_Active && Begin()) { @@ -278,11 +293,25 @@ void CRenderDevice::on_idle() Statistic->Show(); End(); } - renderTotalReal.End(); - renderTotalReal.FrameEnd(); - Statistic->RenderTOTAL.accum = renderTotalReal.accum; + Statistic->RenderTOTAL_Real.End(); + Statistic->RenderTOTAL_Real.FrameEnd(); + Statistic->RenderTOTAL.accum = Statistic->RenderTOTAL_Real.accum; #endif // #ifndef DEDICATED_SERVER - syncFrameDone.Wait(); // wait until secondary thread finish its job + // *** Suspend threads + // Capture startup point + // Release end point - allow thread to wait for startup point + mt_csEnter.Enter(); + mt_csLeave.Leave(); + + // Ensure, that second thread gets chance to execute anyway + if (dwFrame != mt_Thread_marker) + { + for (u32 pit = 0; pit < Device.seqParallel.size(); pit++) + Device.seqParallel[pit](); + Device.seqParallel.clear_not_free(); + seqFrameMT.Process(rp_Frame); + } + #ifdef DEDICATED_SERVER u32 FrameEndTime = TimerGlobal.GetElapsed_ms(); u32 FrameTime = (FrameEndTime - FrameStartTime); @@ -328,6 +357,7 @@ void CRenderDevice::message_loop() void CRenderDevice::Run() { + // DUMP_PHASE; g_bLoaded = FALSE; Log("Starting engine..."); thread_name("X-RAY Primary thread"); @@ -342,8 +372,11 @@ void CRenderDevice::Run() Timer_MM_Delta = time_system - time_local; } // Start all threads + // InitializeCriticalSection (&mt_csEnter); + // InitializeCriticalSection (&mt_csLeave); + mt_csEnter.Enter(); mt_bMustExit = FALSE; - thread_spawn(SecondaryThreadProc, "X-RAY Secondary thread", 0, this); + thread_spawn(mt_Thread, "X-RAY Secondary thread", 0, this); // Message cycle seqAppStart.Process(rp_AppStart); @@ -352,10 +385,10 @@ void CRenderDevice::Run() seqAppEnd.Process(rp_AppEnd); // Stop Balance-Thread mt_bMustExit = TRUE; - syncProcessFrame.Set(); - syncThreadExit.Wait(); - while (mt_bMustExit) - Sleep(0); + mt_csEnter.Leave(); + while (mt_bMustExit) Sleep(0); + // DeleteCriticalSection (&mt_csEnter); + // DeleteCriticalSection (&mt_csLeave); } u32 app_inactive_time = 0; @@ -399,7 +432,6 @@ void CRenderDevice::FrameMove() dwTimeDelta = dwTimeGlobal - _old_global; } // Frame move - Statistic->EngineTOTAL.FrameStart(); Statistic->EngineTOTAL.Begin(); // TODO: HACK to test loading screen. //if(!g_bLoaded) @@ -408,7 +440,6 @@ void CRenderDevice::FrameMove() //else // seqFrame.Process(rp_Frame); Statistic->EngineTOTAL.End(); - Statistic->EngineTOTAL.FrameEnd(); } ENGINE_API BOOL bShowPauseString = TRUE; #include "IGame_Persistent.h" diff --git a/src/xrEngine/device.h b/src/xrEngine/device.h index c168964b061..29c81f6548e 100644 --- a/src/xrEngine/device.h +++ b/src/xrEngine/device.h @@ -10,10 +10,11 @@ //class ENGINE_API CGammaControl; #include "pure.h" - +//#include "hw.h" #include "../xrcore/ftimer.h" #include "stats.h" -#include "../xrCore/Event.hpp" +//#include "shader.h" +//#include "R_Backend.h" #define VIEWPORT_NEAR 0.2f @@ -24,19 +25,18 @@ #ifdef INGAME_EDITOR # include "../Include/editor/interfaces.hpp" -#endif +#endif // #ifdef INGAME_EDITOR class engine_impl; #pragma pack(push,4) -class ENGINE_API IRenderDevice +class IRenderDevice { public: - virtual ~IRenderDevice() {} - virtual CStatsPhysics* StatPhysics() = 0; - virtual void AddSeqFrame(pureFrame* f, bool mt) = 0; - virtual void RemoveSeqFrame(pureFrame* f) = 0; + virtual CStatsPhysics* _BCL StatPhysics() = 0; + virtual void _BCL AddSeqFrame(pureFrame* f, bool mt) = 0; + virtual void _BCL RemoveSeqFrame(pureFrame* f) = 0; }; class ENGINE_API CRenderDeviceData @@ -100,6 +100,8 @@ class ENGINE_API CRenderDeviceData CRegistrator seqResolutionChanged; HWND m_hWnd; + // CStats* Statistic; + }; class ENGINE_API CRenderDeviceBase : @@ -107,7 +109,6 @@ class ENGINE_API CRenderDeviceBase : public CRenderDeviceData { public: - CStats* Statistic; }; #pragma pack(pop) @@ -120,6 +121,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase RECT m_rcWindowBounds; RECT m_rcWindowClient; + //u32 Timer_MM_Delta; + //CTimer_paused Timer; + //CTimer_paused TimerGlobal; CTimer TimerMM; void _Create(LPCSTR shName); @@ -165,12 +169,47 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void DumpResourcesMemoryUsage() { m_pRender->ResourcesDumpMemoryUsage(); } public: + // Registrators + //CRegistrator seqRender; + // CRegistrator seqAppActivate; + // CRegistrator seqAppDeactivate; + // CRegistrator seqAppStart; + // CRegistrator seqAppEnd; + //CRegistrator seqFrame; CRegistrator seqFrameMT; CRegistrator seqDeviceReset; xr_vector > seqParallel; + + // Dependent classes + //CResourceManager* Resources; + + CStats* Statistic; + + // Engine flow-control + //float fTimeDelta; + //float fTimeGlobal; + //u32 dwTimeDelta; + //u32 dwTimeGlobal; + //u32 dwTimeContinual; + + // Cameras & projection + //Fvector vCameraPosition; + //Fvector vCameraDirection; + //Fvector vCameraTop; + //Fvector vCameraRight; + + //Fmatrix mView; + //Fmatrix mProject; + //Fmatrix mFullTransform; + Fmatrix mInvFullTransform; - CRenderDevice():m_pRender(0) + //float fFOV; + //float fASPECT; + + CRenderDevice() + : + m_pRender(0) #ifdef INGAME_EDITOR , m_editor_module(0), m_editor_initialize(0), @@ -192,9 +231,6 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Pause(BOOL bOn, BOOL bTimer, BOOL bSound, LPCSTR reason); BOOL Paused(); -private: - static void SecondaryThreadProc(void *context); -public: // Scene control void PreCache(u32 amount, bool b_draw_loadscreen, bool b_wait_user_input); @@ -221,6 +257,7 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase void Initialize(void); void ShutDown(void); + public: void time_factor(const float& time_factor) { @@ -233,10 +270,10 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase VERIFY(Timer.time_factor() == TimerGlobal.time_factor()); return (Timer.time_factor()); } -private: - Event syncProcessFrame, syncFrameDone, syncThreadExit; -public: + // Multi-threading + xrCriticalSection mt_csEnter; + xrCriticalSection mt_csLeave; volatile BOOL mt_bMustExit; ICF void remove_from_seq_parallel(const fastdelegate::FastDelegate0<>& delegate) @@ -262,9 +299,9 @@ class ENGINE_API CRenderDevice : public CRenderDeviceBase private: void message_loop(); - virtual void AddSeqFrame(pureFrame* f, bool mt); - virtual void RemoveSeqFrame(pureFrame* f); - virtual CStatsPhysics* StatPhysics() { return Statistic; } + virtual void _BCL AddSeqFrame(pureFrame* f, bool mt); + virtual void _BCL RemoveSeqFrame(pureFrame* f); + virtual CStatsPhysics* _BCL StatPhysics() { return Statistic; } #ifdef INGAME_EDITOR public: IC editor::ide* editor() const { return m_editor; } diff --git a/src/xrGame/HudSound.cpp b/src/xrGame/HudSound.cpp index 1c0c5429373..47d2eecf571 100644 --- a/src/xrGame/HudSound.cpp +++ b/src/xrGame/HudSound.cpp @@ -179,9 +179,9 @@ void HUD_SOUND_COLLECTION::PlaySound( LPCSTR alias, HUD_SOUND_ITEM::StopSound (*it); } - - HUD_SOUND_ITEM* snd_item = FindSoundItem(alias, true); - HUD_SOUND_ITEM::PlaySound (*snd_item, position, parent, hud_mode, looped, index); + HUD_SOUND_ITEM* snd_item = FindSoundItem(alias, false); + if (snd_item) + HUD_SOUND_ITEM::PlaySound (*snd_item, position, parent, hud_mode, looped, index); } void HUD_SOUND_COLLECTION::StopSound(LPCSTR alias) @@ -192,8 +192,8 @@ void HUD_SOUND_COLLECTION::StopSound(LPCSTR alias) void HUD_SOUND_COLLECTION::SetPosition(LPCSTR alias, const Fvector& pos) { - HUD_SOUND_ITEM* snd_item = FindSoundItem(alias, true); - if(snd_item->playing()) + HUD_SOUND_ITEM* snd_item = FindSoundItem(alias, false); + if(snd_item && snd_item->playing()) snd_item->set_position (pos); } diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp index 0a8fec2d0ea..9b11f3e7967 100644 --- a/src/xrGame/alife_simulator_script.cpp +++ b/src/xrGame/alife_simulator_script.cpp @@ -37,6 +37,11 @@ CALifeSimulator *alife () CSE_ALifeDynamicObject *alife_object (const CALifeSimulator *self, ALife::_OBJECT_ID object_id) { VERIFY (self); + if (object_id == 0xffff) + { + Msg("alife():object(id) ! invalid id specified"); + return (0); + } return (self->objects().object(object_id,true)); } diff --git a/src/xrGame/ui/UIWpnParams.cpp b/src/xrGame/ui/UIWpnParams.cpp index f94a4f9c2d1..e94848256c7 100644 --- a/src/xrGame/ui/UIWpnParams.cpp +++ b/src/xrGame/ui/UIWpnParams.cpp @@ -231,6 +231,8 @@ bool CUIWpnParams::Check(const shared_str& wpn_section) if (pSettings->r_u32(wpn_section, "ammo_mag_size") == 0) return false; + if (0==xr_strcmp(pSettings->r_string(wpn_section,"class"),"WP_KNIFE")) + return false; if (0==xr_strcmp(wpn_section, "wpn_addon_silencer")) return false; if (0==xr_strcmp(wpn_section, "wpn_binoc")) From f72f399e5f7773650d7d71096315b6c5be365c0c Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 6 Dec 2016 08:36:26 -0500 Subject: [PATCH 160/166] ******** --- src/xrEngine/FDemoRecord.cpp | 2 +- src/xrGame/Actor.cpp | 2 +- src/xrGame/Actor_Flags.h | 1 + src/xrGame/CarWeapon.cpp | 2 +- src/xrGame/GameTask.cpp | 10 +- src/xrGame/GameTask.h | 3 +- src/xrGame/GameTask_script.cpp | 54 ++++++----- src/xrGame/HelicopterWeapon.cpp | 2 +- src/xrGame/Inventory.cpp | 41 ++++++++- src/xrGame/Level_Bullet_Manager.cpp | 17 +++- src/xrGame/Level_Bullet_Manager.h | 5 +- src/xrGame/ScriptXMLInit.cpp | 8 ++ src/xrGame/ScriptXMLInit.h | 4 + src/xrGame/ShootingObject.cpp | 6 +- src/xrGame/ShootingObject.h | 3 +- src/xrGame/WeaponAmmo.cpp | 8 ++ src/xrGame/WeaponAmmo.h | 2 + src/xrGame/WeaponFire.cpp | 2 +- src/xrGame/WeaponMagazined.cpp | 31 +++++-- src/xrGame/WeaponStatMgunFire.cpp | 2 +- src/xrGame/alife_dynamic_object.cpp | 3 + src/xrGame/alife_object.cpp | 2 +- src/xrGame/console_commands.cpp | 1 + src/xrGame/map_spot.cpp | 5 + src/xrGame/script_game_object.h | 1 + src/xrGame/script_game_object4.cpp | 10 +- .../script_game_object_inventory_owner.cpp | 12 +++ src/xrGame/script_game_object_script3.cpp | 2 + src/xrGame/ui/UIActorMenuDeadBodySearch.cpp | 2 +- src/xrGame/ui/UIActorMenu_script.cpp | 3 + src/xrGame/ui/UIDialogWnd.cpp | 5 +- src/xrGame/ui/UIEncyclopediaArticleWnd.cpp | 4 +- src/xrGame/ui/UIEncyclopediaWnd.cpp | 5 +- src/xrGame/ui/UIEncyclopediaWnd.h | 4 +- src/xrGame/ui/UIHint.h | 13 ++- src/xrGame/ui/UIListBoxItem.cpp | 7 +- src/xrGame/ui/UIListBox_script.cpp | 3 +- src/xrGame/ui/UIMap.cpp | 14 ++- src/xrGame/ui/UIMapWnd.cpp | 44 +++++++++ src/xrGame/ui/UIMapWnd.h | 4 +- src/xrGame/ui/UIMessages.h | 1 + src/xrGame/ui/UIMultiTextStatic.cpp | 1 + src/xrGame/ui/UIPdaWnd.cpp | 92 +++++++++++-------- src/xrGame/ui/UIPdaWnd.h | 8 ++ src/xrGame/ui/UIPropertiesBox_script.cpp | 4 +- src/xrGame/ui/UIStatic_script.cpp | 5 + src/xrGame/ui/UIWindow.cpp | 80 +++++++++++++++- src/xrGame/ui/UIWindow.h | 22 ++++- src/xrGame/ui/UIWindow_script.cpp | 43 ++++++++- src/xrGame/ui/UIXmlInit.cpp | 12 --- src/xrGame/ui/UIXmlInit.h | 2 - src/xrGame/xrGame.vcxproj | 25 +---- src/xrGame/xrGame.vcxproj.filters | 41 +-------- 53 files changed, 484 insertions(+), 201 deletions(-) diff --git a/src/xrEngine/FDemoRecord.cpp b/src/xrEngine/FDemoRecord.cpp index 8c78de2f439..581139b54be 100644 --- a/src/xrEngine/FDemoRecord.cpp +++ b/src/xrEngine/FDemoRecord.cpp @@ -569,7 +569,7 @@ void CDemoRecord::MakeScreenshot() void CDemoRecord::MakeLevelMapScreenshot(BOOL bHQ) { - Console->Execute("run_string level.set_weather(\"map\",true)"); + //Console->Execute("run_string level.set_weather(\"map\",true)"); if (!bHQ) m_iLMScreenshotFragment = -1; diff --git a/src/xrGame/Actor.cpp b/src/xrGame/Actor.cpp index 7152ccef78f..1d9cdd17400 100644 --- a/src/xrGame/Actor.cpp +++ b/src/xrGame/Actor.cpp @@ -100,7 +100,7 @@ static Fbox bbCrouchBox; static Fvector vFootCenter; static Fvector vFootExt; -Flags32 psActorFlags = {AF_GODMODE_RT | AF_AUTOPICKUP | AF_RUN_BACKWARD | AF_IMPORTANT_SAVE}; +Flags32 psActorFlags = {AF_GODMODE_RT | AF_AUTOPICKUP | AF_RUN_BACKWARD | AF_IMPORTANT_SAVE | AF_USE_TRACERS}; int psActorSleepTime = 1; diff --git a/src/xrGame/Actor_Flags.h b/src/xrGame/Actor_Flags.h index 8ff67a9837e..bdc157f188a 100644 --- a/src/xrGame/Actor_Flags.h +++ b/src/xrGame/Actor_Flags.h @@ -11,6 +11,7 @@ enum{ AF_GODMODE_RT =(1<<8), AF_IMPORTANT_SAVE =(1<<9), AF_CROUCH_TOGGLE =(1<<10), + AF_USE_TRACERS =(1<<11) }; extern Flags32 psActorFlags; diff --git a/src/xrGame/CarWeapon.cpp b/src/xrGame/CarWeapon.cpp index fe0c98f29b0..c1e88ee59dc 100644 --- a/src/xrGame/CarWeapon.cpp +++ b/src/xrGame/CarWeapon.cpp @@ -226,7 +226,7 @@ void CCarWeapon::FireEnd() void CCarWeapon::OnShot() { FireBullet ( m_fire_pos, m_fire_dir, fireDispersionBase, *m_Ammo, - m_object->ID(), m_object->ID(), SendHitAllowed(m_object)); + m_object->ID(), m_object->ID(), SendHitAllowed(m_object), ::Random.randI(0,30)); StartShotParticles (); diff --git a/src/xrGame/GameTask.cpp b/src/xrGame/GameTask.cpp index e6a7a3b15cb..16b49341a35 100644 --- a/src/xrGame/GameTask.cpp +++ b/src/xrGame/GameTask.cpp @@ -92,20 +92,18 @@ void CGameTask::CreateMapLocation( bool on_load ) { m_linked_map_location = Level().MapManager().AddMapLocation(m_map_location, m_map_object_id); m_linked_map_location->m_owner_task_id = m_ID; - } - - VERIFY( m_linked_map_location ); - - if ( !on_load ) - { + if ( m_map_hint.size() ) { m_linked_map_location->SetHint( m_map_hint ); } + m_linked_map_location->DisablePointer(); m_linked_map_location->SetSerializable( true ); } + VERIFY( m_linked_map_location ); + if ( m_linked_map_location->complex_spot() ) { m_linked_map_location->complex_spot()->SetTimerFinish( m_timer_finish ); diff --git a/src/xrGame/GameTask.h b/src/xrGame/GameTask.h index 98d22728d4c..aea1588f791 100644 --- a/src/xrGame/GameTask.h +++ b/src/xrGame/GameTask.h @@ -114,7 +114,8 @@ class CGameTask void SetMapLocation_script (LPCSTR _mls) {m_map_location = _mls;} void SetMapObjectID_script (int _id) {m_map_object_id = (u16)_id;} - + LPCSTR GetMapLocation_script () { return m_map_location.c_str();} + u16 GetMapObjectID_script () { return m_map_object_id;} void AddCompleteInfo_script (LPCSTR _str); void AddFailInfo_script (LPCSTR _str); void AddOnCompleteInfo_script(LPCSTR _str); diff --git a/src/xrGame/GameTask_script.cpp b/src/xrGame/GameTask_script.cpp index 3710fc80480..1c7a99b09b4 100644 --- a/src/xrGame/GameTask_script.cpp +++ b/src/xrGame/GameTask_script.cpp @@ -24,34 +24,38 @@ void CGameTask::script_register(lua_State *L) class_("CGameTask") - .def( constructor<>() ) - .def("set_title", &CGameTask::SetTitle_script ) - .def("get_title", &CGameTask::GetTitle_script ) - .def("set_priority", &CGameTask::SetPriority_script ) - .def("get_priority", &CGameTask::GetPriority_script ) - .def("get_id", &CGameTask::GetID_script ) - .def("set_id", &CGameTask::SetID_script ) - .def("set_type", &CGameTask::SetType_script ) -// .def("get_type", &CGameTask::GetType_script ) - .def("set_icon_name", &CGameTask::SetIconName_script ) - .def("get_icon_name", &CGameTask::GetIconName_script ) - .def("set_description", &CGameTask::SetDescription_script ) + .def( constructor<>()) + .def("set_title", &CGameTask::SetTitle_script) + .def("get_title", &CGameTask::GetTitle_script) + .def("set_priority", &CGameTask::SetPriority_script) + .def("get_priority", &CGameTask::GetPriority_script) + .def("get_id", &CGameTask::GetID_script) + .def("set_id", &CGameTask::SetID_script) + .def("set_type", &CGameTask::SetType_script) +// .def("get_type", &CGameTask::GetType_script) + .def("set_icon_name", &CGameTask::SetIconName_script) + .def("get_icon_name", &CGameTask::GetIconName_script) + .def("set_description", &CGameTask::SetDescription_script) - .def("set_map_hint", &CGameTask::SetMapHint_script ) - .def("set_map_location", &CGameTask::SetMapLocation_script ) - .def("set_map_object_id", &CGameTask::SetMapObjectID_script ) + .def("set_map_hint", &CGameTask::SetMapHint_script) + .def("set_map_location", &CGameTask::SetMapLocation_script) + .def("set_map_object_id", &CGameTask::SetMapObjectID_script) - .def("add_complete_info", &CGameTask::AddCompleteInfo_script ) - .def("add_fail_info", &CGameTask::AddFailInfo_script ) - .def("add_on_complete_info", &CGameTask::AddOnCompleteInfo_script ) - .def("add_on_fail_info", &CGameTask::AddOnFailInfo_script ) + .def("get_map_location", &CGameTask::GetMapLocation_script) + .def("get_map_object_id", &CGameTask::GetMapObjectID_script) + .def("create_map_location", &CGameTask::CreateMapLocation) - .def("add_complete_func", &CGameTask::AddCompleteFunc_script ) - .def("add_fail_func", &CGameTask::AddFailFunc_script ) - .def("add_on_complete_func", &CGameTask::AddOnCompleteFunc_script ) - .def("add_on_fail_func", &CGameTask::AddOnFailFunc_script ) + .def("add_complete_info", &CGameTask::AddCompleteInfo_script) + .def("add_fail_info", &CGameTask::AddFailInfo_script) + .def("add_on_complete_info", &CGameTask::AddOnCompleteInfo_script) + .def("add_on_fail_info", &CGameTask::AddOnFailInfo_script) + + .def("add_complete_func", &CGameTask::AddCompleteFunc_script) + .def("add_fail_func", &CGameTask::AddFailFunc_script) + .def("add_on_complete_func", &CGameTask::AddOnCompleteFunc_script) + .def("add_on_fail_func", &CGameTask::AddOnFailFunc_script) - .def("remove_map_locations", &CGameTask::RemoveMapLocations ) - .def("change_map_location", &CGameTask::ChangeMapLocation ) + .def("remove_map_locations", &CGameTask::RemoveMapLocations) + .def("change_map_location", &CGameTask::ChangeMapLocation) ]; } \ No newline at end of file diff --git a/src/xrGame/HelicopterWeapon.cpp b/src/xrGame/HelicopterWeapon.cpp index 28ee6cbe471..4e0a83b0c77 100644 --- a/src/xrGame/HelicopterWeapon.cpp +++ b/src/xrGame/HelicopterWeapon.cpp @@ -133,7 +133,7 @@ void CHelicopter::OnShot () fire_dir.sub(enemy_pos,fire_pos).normalize_safe(); }; - FireBullet(fire_pos, fire_dir, fireDispersionBase, m_CurrentAmmo, ID(), ID(), OnServer()); + FireBullet(fire_pos, fire_dir, fireDispersionBase, m_CurrentAmmo, ID(), ID(), OnServer(), ::Random.randI(0,30)); StartShotParticles (); if(m_bLightShotEnabled) diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index 1adfd8a4ee6..ff305b55fe2 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1267,17 +1267,39 @@ void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_t for(TIItemContainer::const_iterator it = m_ruck.begin(); m_ruck.end() != it; ++it) { PIItem pIItem = *it; - if(!for_trade || pIItem->CanTrade()) + if (!for_trade || pIItem->CanTrade()) + { + if (m_pOwner->is_alive()) + { + luabind::functor funct; + if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) + { + if (!funct(m_pOwner->cast_game_object()->lua_game_object(),pIItem->cast_game_object()->lua_game_object())) + continue; + } + } items_container.push_back(pIItem); + } } if(m_bBeltUseful) { - for(TIItemContainer::const_iterator it = m_belt.begin(); m_belt.end() != it; ++it) + for (TIItemContainer::const_iterator it = m_belt.begin(); m_belt.end() != it; ++it) { PIItem pIItem = *it; - if(!for_trade || pIItem->CanTrade()) + if (!for_trade || pIItem->CanTrade()) + { + if (m_pOwner->is_alive()) + { + luabind::functor funct; + if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) + { + if (!funct(m_pOwner->cast_game_object()->lua_game_object(), pIItem->cast_game_object()->lua_game_object())) + continue; + } + } items_container.push_back(pIItem); + } } } @@ -1290,8 +1312,19 @@ void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_t PIItem item = ItemFromSlot(I); if(item && (!for_trade || item->CanTrade()) ) { - if(!SlotIsPersistent(I) || item->BaseSlot()==GRENADE_SLOT ) + if (!SlotIsPersistent(I) || item->BaseSlot() == GRENADE_SLOT) + { + if (m_pOwner->is_alive()) + { + luabind::functor funct; + if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) + { + if (!funct(m_pOwner->cast_game_object()->lua_game_object(), item->cast_game_object()->lua_game_object())) + continue; + } + } items_container.push_back(item); + } } } } diff --git a/src/xrGame/Level_Bullet_Manager.cpp b/src/xrGame/Level_Bullet_Manager.cpp index 95cfb111874..6a5e1f83ed2 100644 --- a/src/xrGame/Level_Bullet_Manager.cpp +++ b/src/xrGame/Level_Bullet_Manager.cpp @@ -54,7 +54,7 @@ void SBullet::Init(const Fvector& position, float maximum_distance, const CCartridge& cartridge, float const air_resistance_factor, - bool SendHit) + bool SendHit, int iShotNum) { flags._storage = 0; bullet_pos = position; @@ -89,7 +89,13 @@ void SBullet::Init(const Fvector& position, bullet_material_idx = cartridge.bullet_material_idx; VERIFY ( u16(-1) != bullet_material_idx ); - flags.allow_tracer = !!cartridge.m_flags.test(CCartridge::cfTracer); + flags.allow_tracer = !!cartridge.m_flags.test(CCartridge::cfTracer); + + //Alundaio: Tracer for every 5th bullet + if (flags.allow_tracer && cartridge.m_4to1_tracer && iShotNum % 5 != 0) + flags.allow_tracer = false; + //-Alundaio + flags.allow_ricochet = !!cartridge.m_flags.test(CCartridge::cfRicochet); flags.explosive = !!cartridge.m_flags.test(CCartridge::cfExplosive); flags.magnetic_beam = !!cartridge.m_flags.test(CCartridge::cfMagneticBeam); @@ -206,7 +212,8 @@ void CBulletManager::AddBullet(const Fvector& position, const CCartridge& cartridge, float const air_resistance_factor, bool SendHit, - bool AimBullet) + bool AimBullet, + int iShotNum) { VERIFY ( m_thread_id == GetCurrentThreadId() ); @@ -215,7 +222,7 @@ void CBulletManager::AddBullet(const Fvector& position, // u32 OwnerID = sender_id; m_Bullets.push_back (SBullet()); SBullet& bullet = m_Bullets.back(); - bullet.Init (position, direction, starting_speed, power, /*power_critical,*/ impulse, sender_id, sendersweapon_id, e_hit_type, maximum_distance, cartridge, air_resistance_factor, SendHit); + bullet.Init (position, direction, starting_speed, power, /*power_critical,*/ impulse, sender_id, sendersweapon_id, e_hit_type, maximum_distance, cartridge, air_resistance_factor, SendHit, iShotNum); // bullet.frame_num = Device.dwFrame; bullet.flags.aim_bullet = AimBullet; if (!IsGameTypeSingle()) @@ -975,6 +982,8 @@ void CBulletManager::Render () SBullet* bullet = &(*it); if(!bullet->flags.allow_tracer) continue; + if (!psActorFlags.test(AF_USE_TRACERS)) + continue; if (!bullet->CanBeRenderedNow()) continue; diff --git a/src/xrGame/Level_Bullet_Manager.h b/src/xrGame/Level_Bullet_Manager.h index 532d3b2f4b6..e2f8745d216 100644 --- a/src/xrGame/Level_Bullet_Manager.h +++ b/src/xrGame/Level_Bullet_Manager.h @@ -93,7 +93,8 @@ struct SBullet float maximum_distance, const CCartridge& cartridge, float const air_resistance_factor, - bool SendHit); + bool SendHit, + int iShotNum = 0); }; class CLevel; @@ -233,7 +234,7 @@ class CBulletManager ALife::EHitType e_hit_type, float maximum_distance, const CCartridge& cartridge, float const air_resistance_factor, - bool SendHit,bool AimBullet=false); + bool SendHit,bool AimBullet=false, int iShotNum = 0); void CommitEvents (); // @ the start of frame void CommitRenderSet (); // @ the end of frame diff --git a/src/xrGame/ScriptXMLInit.cpp b/src/xrGame/ScriptXMLInit.cpp index d4b29b476b1..426ca5059df 100644 --- a/src/xrGame/ScriptXMLInit.cpp +++ b/src/xrGame/ScriptXMLInit.cpp @@ -20,6 +20,8 @@ #include "ui\UIMMShniaga.h" #include "ui\UIScrollView.h" #include "ui\UIProgressBar.h" +#include "ui\UIHint.h" +#include "ui\UIHelper.h" using namespace luabind; @@ -45,6 +47,11 @@ void CScriptXmlInit::InitWindow(LPCSTR path, int index, CUIWindow* pWnd) CUIXmlInit::InitWindow(m_xml, path, index, pWnd); } +UIHint* CScriptXmlInit::InitHint(LPCSTR path, CUIWindow* parent) +{ + UIHint* pWnd = UIHelper::CreateHint(m_xml, path); + return pWnd; +} CUIFrameWindow* CScriptXmlInit::InitFrame(LPCSTR path, CUIWindow* parent) { @@ -257,6 +264,7 @@ void CScriptXmlInit::script_register(lua_State *L){ .def( constructor<>()) .def("ParseFile", &CScriptXmlInit::ParseFile) .def("InitWindow", &CScriptXmlInit::InitWindow) + .def("InitHint", &CScriptXmlInit::InitHint) .def("InitFrame", &CScriptXmlInit::InitFrame) .def("InitFrameLine", &CScriptXmlInit::InitFrameLine) .def("InitEditBox", &CScriptXmlInit::InitEditBox) diff --git a/src/xrGame/ScriptXMLInit.h b/src/xrGame/ScriptXMLInit.h index 9f6fa0c5ea4..751317efabd 100644 --- a/src/xrGame/ScriptXMLInit.h +++ b/src/xrGame/ScriptXMLInit.h @@ -29,12 +29,14 @@ class CUIMMShniaga; class CUIScrollView; class CUIListBox; class CUIProgressBar; +class UIHint; class CScriptXmlInit { public: void ParseFile (LPCSTR xml_file); void InitWindow(LPCSTR path, int index, CUIWindow* pWnd); + UIHint* InitHint(LPCSTR path, CUIWindow* parent); CUIFrameWindow* InitFrame(LPCSTR path, CUIWindow* parent); CUIFrameLineWnd* InitFrameLine(LPCSTR path, CUIWindow* parent); CUIEditBox* InitEditBox(LPCSTR path, CUIWindow* parent); @@ -61,6 +63,8 @@ class CScriptXmlInit CUIScrollView* InitScrollView(LPCSTR path, CUIWindow* parent); CUIListBox* InitListBox(LPCSTR path, CUIWindow* parent); CUIProgressBar* InitProgressBar(LPCSTR path, CUIWindow* parent); + + CUIXml& GetXml() { return m_xml; }; protected: CUIXml m_xml; public: diff --git a/src/xrGame/ShootingObject.cpp b/src/xrGame/ShootingObject.cpp index 87f1d58a787..5d596fd31bd 100644 --- a/src/xrGame/ShootingObject.cpp +++ b/src/xrGame/ShootingObject.cpp @@ -456,8 +456,9 @@ void CShootingObject::FireBullet(const Fvector& pos, const CCartridge& cartridge, u16 parent_id, u16 weapon_id, - bool send_hit) + bool send_hit, int iShotNum) { + Fvector dir; random_dir(dir,shot_dir,fire_disp); @@ -526,7 +527,8 @@ void CShootingObject::FireBullet(const Fvector& pos, cartridge, m_air_resistance_factor, send_hit, - aim_bullet); + aim_bullet, + iShotNum); } void CShootingObject::FireStart () { diff --git a/src/xrGame/ShootingObject.h b/src/xrGame/ShootingObject.h index 755f7ee6285..d9ef1dd0715 100644 --- a/src/xrGame/ShootingObject.h +++ b/src/xrGame/ShootingObject.h @@ -51,7 +51,8 @@ class CShootingObject : public IAnticheatDumpable const CCartridge& cartridge, u16 parent_id, u16 weapon_id, - bool send_hit); + bool send_hit, + int iShotNum = 0); void SetBulletSpeed(float new_speed) {m_fStartBulletSpeed = new_speed;} float GetBulletSpeed() {return m_fStartBulletSpeed;} diff --git a/src/xrGame/WeaponAmmo.cpp b/src/xrGame/WeaponAmmo.cpp index 142cbe2338d..aee649bbe0a 100644 --- a/src/xrGame/WeaponAmmo.cpp +++ b/src/xrGame/WeaponAmmo.cpp @@ -58,6 +58,9 @@ void CCartridge::Load(LPCSTR section, u8 LocalAmmoType) m_flags.set(cfMagneticBeam, TRUE); } + if (pSettings->line_exist(section, "4to1_tracer")) + m_4to1_tracer = !!pSettings->r_bool(section, "4to1_tracer");; + if(pSettings->line_exist(section,"can_be_unlimited")) m_flags.set(cfCanBeUnlimited, pSettings->r_bool(section, "can_be_unlimited")); @@ -96,6 +99,10 @@ void CWeaponAmmo::Load(LPCSTR section) else cartridge_param.kAirRes = pSettings->r_float(BULLET_MANAGER_SECTION, "air_resistance_k"); m_tracer = !!pSettings->r_bool(section, "tracer"); + + if (pSettings->line_exist(section, "4to1_tracer")) + m_4to1_tracer = !!pSettings->r_bool(section, "4to1_tracer");; + cartridge_param.buckShot = pSettings->r_s32( section, "buck_shot"); cartridge_param.impair = pSettings->r_float(section, "impair"); cartridge_param.fWallmarkSize = pSettings->r_float(section, "wm_size"); @@ -166,6 +173,7 @@ bool CWeaponAmmo::Get(CCartridge &cartridge) cartridge.param_s = cartridge_param; cartridge.m_flags.set(CCartridge::cfTracer ,m_tracer); + cartridge.m_4to1_tracer = m_4to1_tracer; cartridge.bullet_material_idx = GMLib.GetMaterialIdx(WEAPON_MATERIAL_NAME); cartridge.m_InvShortName = NameShort(); --m_boxCurr; diff --git a/src/xrGame/WeaponAmmo.h b/src/xrGame/WeaponAmmo.h index 2190db24616..13c8175a4be 100644 --- a/src/xrGame/WeaponAmmo.h +++ b/src/xrGame/WeaponAmmo.h @@ -40,6 +40,7 @@ class CCartridge : public IAnticheatDumpable SCartridgeParam param_s; u8 m_LocalAmmoType; + bool m_4to1_tracer; u16 bullet_material_idx; Flags8 m_flags; @@ -78,6 +79,7 @@ class CWeaponAmmo : u16 m_boxSize; u16 m_boxCurr; bool m_tracer; + bool m_4to1_tracer; public: virtual CInventoryItem *can_make_killing (const CInventory *inventory) const; diff --git a/src/xrGame/WeaponFire.cpp b/src/xrGame/WeaponFire.cpp index c79528e4394..40c89c5f584 100644 --- a/src/xrGame/WeaponFire.cpp +++ b/src/xrGame/WeaponFire.cpp @@ -111,7 +111,7 @@ void CWeapon::FireTrace (const Fvector& P, const Fvector& D) //выстерлить пулю (с учетом возможной стрельбы дробью) for(int i = 0; i < l_cartridge.param_s.buckShot; ++i) { - FireBullet(P, D, fire_disp, l_cartridge, H_Parent()->ID(), ID(), SendHit); + FireBullet(P, D, fire_disp, l_cartridge, H_Parent()->ID(), ID(), SendHit, iAmmoElapsed); } StartShotParticles (); diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 1306f54468c..fdb2509c3b4 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -98,12 +98,12 @@ void CWeaponMagazined::Load(LPCSTR section) //Alundaio: LAYERED_SND_SHOOT #ifdef LAYERED_SND_SHOOT m_layered_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); - if (WeaponSoundExist(section, "snd_shoot_actor")) - m_layered_sounds.LoadSound(section, "snd_shoot_actor", "sndShotActor", false, m_eSoundShot); + //if (WeaponSoundExist(section, "snd_shoot_actor")) + // m_layered_sounds.LoadSound(section, "snd_shoot_actor", "sndShotActor", false, m_eSoundShot); #else m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); - if (WeaponSoundExist(section, "snd_shoot_actor")) - m_sounds.LoadSound(section, "snd_shoot_actor", "sndShot", false, m_eSoundShot); + //if (WeaponSoundExist(section, "snd_shoot_actor")) + // m_sounds.LoadSound(section, "snd_shoot_actor", "sndShot", false, m_eSoundShot); #endif //-Alundaio @@ -117,7 +117,7 @@ void CWeaponMagazined::Load(LPCSTR section) m_sounds.LoadSound(section, "snd_reload_misfire", "sndReloadMisfire", true, m_eSoundReloadMisfire); #endif //-NEW_SOUNDS - m_sSndShotCurrent = "sndShot"; + m_sSndShotCurrent = IsSilencerAttached() ? "sndSilencerShot" : "sndShot"; //звуки и партиклы глушителя, еслит такой есть if (m_eSilencerStatus == ALife::eAddonAttachable || m_eSilencerStatus == ALife::eAddonPermanent) @@ -675,11 +675,13 @@ void CWeaponMagazined::OnShot() //Alundaio: Actor sounds if (ParentIsActor()) { + /* if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id,"snd_shoot_actor") && m_layered_sounds.FindSoundItem("sndShotActor", false)) m_layered_sounds.PlaySound("sndShotActor", get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id,"snd_silncer_shot_actor") && m_layered_sounds.FindSoundItem("sndSilencerShotActor", false)) m_layered_sounds.PlaySound("sndSilencerShotActor", get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); else + */ m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); } else m_layered_sounds.PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), H_Root(), !!GetHUDmode(), false, (u8)-1); @@ -687,15 +689,17 @@ void CWeaponMagazined::OnShot() //Alundaio: Actor sounds if (ParentIsActor()) { + /* if (strcmp(m_sSndShotCurrent.c_str(), "sndShot") == 0 && pSettings->line_exist(m_section_id, "snd_shoot_actor")&& snd_silncer_shot m_sounds.FindSoundItem("sndShotActor", false)) PlaySound("sndShotActor", get_LastFP(), (u8)(m_iShotNum - 1)); else if (strcmp(m_sSndShotCurrent.c_str(), "sndSilencerShot") == 0 && pSettings->line_exist(m_section_id, "snd_silncer_shot_actor") && m_sounds.FindSoundItem("sndSilencerShotActor", false)) PlaySound("sndSilencerShotActor", get_LastFP(), (u8)(m_iShotNum - 1)); else - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); + */ + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)-1); } else - PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)(m_iShotNum - 1)); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) + PlaySound(m_sSndShotCurrent.c_str(), get_LastFP(), (u8)-1); //Alundaio: Play sound at index (ie. snd_shoot, snd_shoot1, snd_shoot2, snd_shoot3) #endif //-Alundaio @@ -1510,7 +1514,11 @@ bool CWeaponMagazined::install_upgrade_impl(LPCSTR section, bool test) result2 = process_if_exists_set(section, "snd_shoot", &CInifile::r_string, str, test); if (result2 && !test) { +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); +#else m_sounds.LoadSound(section, "snd_shoot", "sndShot", false, m_eSoundShot); +#endif } result |= result2; @@ -1549,7 +1557,11 @@ bool CWeaponMagazined::install_upgrade_impl(LPCSTR section, bool test) result2 = process_if_exists_set(section, "snd_silncer_shot", &CInifile::r_string, str, test); if (result2 && !test) { - m_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); +#ifdef LAYERED_SND_SHOOT + m_layered_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); +#else + m_sounds.LoadSound(section, "snd_silncer_shot", "sndSilencerShot", false, m_eSoundShot); +#endif } result |= result2; } @@ -1604,5 +1616,6 @@ void CWeaponMagazined::FireBullet(const Fvector& pos, SetBulletSpeed(m_fOldBulletSpeed); } } - inherited::FireBullet(pos, shot_dir, fire_disp, cartridge, parent_id, weapon_id, send_hit); + + inherited::FireBullet(pos, shot_dir, fire_disp, cartridge, parent_id, weapon_id, send_hit, GetAmmoElapsed()); } \ No newline at end of file diff --git a/src/xrGame/WeaponStatMgunFire.cpp b/src/xrGame/WeaponStatMgunFire.cpp index 81de4848d12..1e2647379fb 100644 --- a/src/xrGame/WeaponStatMgunFire.cpp +++ b/src/xrGame/WeaponStatMgunFire.cpp @@ -116,7 +116,7 @@ void CWeaponStatMgun::OnShot() VERIFY(Owner()); FireBullet ( m_fire_pos, m_fire_dir, fireDispersionBase, *m_Ammo, - Owner()->ID(),ID(), SendHitAllowed(Owner())); + Owner()->ID(),ID(), SendHitAllowed(Owner()),::Random.randI(0,30)); StartShotParticles (); diff --git a/src/xrGame/alife_dynamic_object.cpp b/src/xrGame/alife_dynamic_object.cpp index 141db3d69e2..6cc4ff698bc 100644 --- a/src/xrGame/alife_dynamic_object.cpp +++ b/src/xrGame/alife_dynamic_object.cpp @@ -45,6 +45,9 @@ void CSE_ALifeDynamicObject::on_before_register () void CSE_ALifeDynamicObject::on_unregister() { + luabind::functor funct; + if (ai().script_engine().functor("_G.CSE_ALifeDynamicObject_on_unregister", funct)) + funct((u16)ID); Level().MapManager().OnObjectDestroyNotify(ID); } diff --git a/src/xrGame/alife_object.cpp b/src/xrGame/alife_object.cpp index 17271dcf15f..1b3b256ef45 100644 --- a/src/xrGame/alife_object.cpp +++ b/src/xrGame/alife_object.cpp @@ -63,7 +63,7 @@ void CSE_ALifeObject::spawn_supplies (LPCSTR ini_string) if (!OnlyOne.empty()) { - s32 sel = ::Random.randI(0, OnlyOne.size()); + s32 sel = ::Random.randI(0, OnlyOne.size()-1); if (ini.r_line(loadout_section, OnlyOne.at(sel), &itmSection, &V)) { VERIFY(xr_strlen(itmSection)); diff --git a/src/xrGame/console_commands.cpp b/src/xrGame/console_commands.cpp index 7c008e00a7a..9052587d648 100644 --- a/src/xrGame/console_commands.cpp +++ b/src/xrGame/console_commands.cpp @@ -2089,6 +2089,7 @@ void CCC_RegisterCommands() //#endif // MASTER_GOLD /* AVO: end */ + CMD3(CCC_Mask, "g_use_tracers", &psActorFlags, AF_USE_TRACERS); CMD3(CCC_Mask, "g_autopickup", &psActorFlags, AF_AUTOPICKUP); CMD3(CCC_Mask, "g_dynamic_music", &psActorFlags, AF_DYNAMIC_MUSIC); CMD3(CCC_Mask, "g_important_save", &psActorFlags, AF_IMPORTANT_SAVE); diff --git a/src/xrGame/map_spot.cpp b/src/xrGame/map_spot.cpp index a8e4fff0fe6..bf417e2b446 100644 --- a/src/xrGame/map_spot.cpp +++ b/src/xrGame/map_spot.cpp @@ -98,6 +98,11 @@ bool CMapSpot::OnMouseDown( int mouse_btn ) } return false; } + else if (mouse_btn == MOUSE_2) + { + GetMessageTarget()->SendMessage(this, MAP_SELECT_SPOT2); + return true; + } else { return false; diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index c8c8cd1ceab..cff25a1e211 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -401,6 +401,7 @@ class CScriptGameObject { void SetCharacterRank (int); void ChangeCharacterRank (int); void ChangeCharacterReputation (int); + void SetCharacterReputation (int); void SetCharacterCommunity (LPCSTR,int,int); diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index cee3bcc0702..64d4af0c358 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -338,7 +338,10 @@ void CScriptGameObject::start_particles(LPCSTR pname, LPCSTR bone) if (!PP) return; IKinematics* K = smart_cast(object().Visual()); - R_ASSERT(K); + if (!K) + return; + + //R_ASSERT(K); u16 play_bone = K->LL_BoneID(bone); R_ASSERT(play_bone != BI_NONE); @@ -354,7 +357,10 @@ void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) if (!PP) return; IKinematics* K = smart_cast(object().Visual()); - R_ASSERT(K); + if (!K) + return; + + //R_ASSERT(K); u16 play_bone = K->LL_BoneID(bone); R_ASSERT(play_bone != BI_NONE); diff --git a/src/xrGame/script_game_object_inventory_owner.cpp b/src/xrGame/script_game_object_inventory_owner.cpp index d5ece37b75f..fd7877a6546 100644 --- a/src/xrGame/script_game_object_inventory_owner.cpp +++ b/src/xrGame/script_game_object_inventory_owner.cpp @@ -676,6 +676,18 @@ void CScriptGameObject::ChangeCharacterReputation(int char_rep) pInventoryOwner->ChangeReputation(char_rep); } +void CScriptGameObject::SetCharacterReputation(int char_rep) +{ + CInventoryOwner* pInventoryOwner = smart_cast(&object()); + + if (!pInventoryOwner) + { + ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "SetCharacterReputation available only for InventoryOwner"); + return; + } + pInventoryOwner->SetReputation(char_rep); +} + LPCSTR CScriptGameObject::CharacterCommunity() { CInventoryOwner* pInventoryOwner = smart_cast(&object()); diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 81cbc82d5af..16d070ef644 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -212,7 +212,9 @@ class_ &script_register_game_object2(class_( m_pPartnerInvOwner ); //only for partner, box = no, monster = no - if ( m_pPartnerInvOwner && !monster ) + if (m_pPartnerInvOwner && !monster && !m_pPartnerInvOwner->is_alive()) { CInfoPortionWrapper known_info_registry; known_info_registry.registry().init (m_pPartnerInvOwner->object_id()); diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index 2b4536330ba..03ff1aaacec 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -292,6 +292,9 @@ void CUIActorMenu::script_register(lua_State *L) .def("ShowDialog", &CUIPdaWnd::ShowDialog) .def("HideDialog", &CUIPdaWnd::HideDialog) .def("SetActiveSubdialog", &CUIPdaWnd::SetActiveSubdialog) + .def("SetActiveDialog", &CUIPdaWnd::SetActiveDialog) + .def("GetActiveDialog", &CUIPdaWnd::GetActiveDialog) + .def("GetActiveSection", &CUIPdaWnd::GetActiveSection) ]; module(L, "ActorMenu") diff --git a/src/xrGame/ui/UIDialogWnd.cpp b/src/xrGame/ui/UIDialogWnd.cpp index 46eacf2a6ae..a6dfdd3ee61 100644 --- a/src/xrGame/ui/UIDialogWnd.cpp +++ b/src/xrGame/ui/UIDialogWnd.cpp @@ -37,7 +37,7 @@ bool CUIDialogWnd::IR_process() { if(!IsEnabled()) return false; - if(GetHolder()->IgnorePause()) return true; + if (GetHolder() && GetHolder()->IgnorePause()) return true; if(Device.Paused()&&!WorkInPause()) return false; @@ -55,5 +55,6 @@ void CUIDialogWnd::ShowDialog(bool bDoHideIndicators) void CUIDialogWnd::HideDialog() { R_ASSERT2(IsShown(), "dialog already hidden"); - GetHolder()->StopDialog (this); + if (GetHolder()) + GetHolder()->StopDialog (this); } \ No newline at end of file diff --git a/src/xrGame/ui/UIEncyclopediaArticleWnd.cpp b/src/xrGame/ui/UIEncyclopediaArticleWnd.cpp index bc3bb0e1bd0..86581718572 100644 --- a/src/xrGame/ui/UIEncyclopediaArticleWnd.cpp +++ b/src/xrGame/ui/UIEncyclopediaArticleWnd.cpp @@ -43,14 +43,14 @@ void CUIEncyclopediaArticleWnd::SetArticle(CEncyclopediaArticle* article) if( article->data()->image.GetShader() && article->data()->image.GetShader()->inited()) { m_UIImage->SetShader (article->data()->image.GetShader()); - m_UIImage->SetOriginalRect (article->data()->image.GetStaticItem()->GetOriginalRect()); + //m_UIImage->SetOriginalRect (article->data()->image.GetStaticItem()->GetOriginalRect()); m_UIImage->SetWndSize (article->data()->image.GetWndSize()); float img_x = (GetWidth()-m_UIImage->GetWidth())/2.0f; img_x = _max(0.0f, img_x); m_UIImage->SetWndPos (Fvector2().set(img_x ,m_UIImage->GetWndPos().y) ); }; - m_UIText->SetText (*CStringTable().translate(article->data()->text.c_str())); + m_UIText->TextItemControl()->SetTextST(article->data()->text.c_str()); m_UIText->AdjustHeightToText (); AdjustLauout (); diff --git a/src/xrGame/ui/UIEncyclopediaWnd.cpp b/src/xrGame/ui/UIEncyclopediaWnd.cpp index 5d4c72f4de9..3fff5a6d847 100644 --- a/src/xrGame/ui/UIEncyclopediaWnd.cpp +++ b/src/xrGame/ui/UIEncyclopediaWnd.cpp @@ -8,7 +8,7 @@ #include "StdAfx.h" #include "UIEncyclopediaWnd.h" -/*#include "UIXmlInit.h" +#include "UIXmlInit.h" #include "UIFrameWindow.h" #include "UIFrameLineWnd.h" #include "UIAnimatedStatic.h" @@ -123,7 +123,7 @@ void CUIEncyclopediaWnd::SendMessage(CUIWindow *pWnd, s16 msg, void* pData) caption += "/"; caption += CStringTable().translate(A->data()->name).c_str(); UIEncyclopediaInfoHeader->UITitleText.SetText(caption.c_str()); -* +*/ SetCurrentArtice (pTVItem); UIArticleHeader->SetTextST(*(A->data()->name)); } @@ -249,4 +249,3 @@ void CUIEncyclopediaWnd::Reset() inherited::Reset (); ReloadArticles (); } -*/ \ No newline at end of file diff --git a/src/xrGame/ui/UIEncyclopediaWnd.h b/src/xrGame/ui/UIEncyclopediaWnd.h index b077b338f93..16f31d92148 100644 --- a/src/xrGame/ui/UIEncyclopediaWnd.h +++ b/src/xrGame/ui/UIEncyclopediaWnd.h @@ -9,7 +9,6 @@ #pragma once #include "UIWindow.h" -/* #include "../encyclopedia_article_defs.h" class CEncyclopediaArticle; @@ -67,5 +66,4 @@ class CUIEncyclopediaWnd: public CUIWindow CUIScrollView* UIInfoList; void SetCurrentArtice(CUITreeViewItem *pTVItem); -}; -*/ \ No newline at end of file +}; \ No newline at end of file diff --git a/src/xrGame/ui/UIHint.h b/src/xrGame/ui/UIHint.h index 8f4d88b7815..c8231fd6c5e 100644 --- a/src/xrGame/ui/UIHint.h +++ b/src/xrGame/ui/UIHint.h @@ -4,11 +4,12 @@ // Author : Evgeniy Sokolov // Description : UI Hint (for UIHintWindow) window class //////////////////////////////////////////////////////////////////////////// - +#pragma once #ifndef UI_HINT_H_INCLUDED #define UI_HINT_H_INCLUDED #include "UIWindow.h" +#include "../../xrServerEntities/script_export_space.h" class CUIStatic; class CUITextWnd; @@ -45,6 +46,7 @@ class UIHint : public CUIWindow bool m_visible; float m_border; Frect m_rect; + DECLARE_SCRIPT_REGISTER_FUNCTION }; // class UIHint // ================================================================================================= @@ -72,12 +74,19 @@ class UIHintWindow : public CUIWindow void set_hint_text ( shared_str const& text ); void set_hint_text_ST( shared_str const& text ); void update_hint_text(); + + void set_hint_text_script(LPCSTR text) { set_hint_text(text); }; + LPCSTR get_hint_text_script() {return m_hint_text.c_str();} ; private: UIHint* m_hint_wnd; u32 m_hint_delay; shared_str m_hint_text; bool m_enable; -};// class UIHintWindow + DECLARE_SCRIPT_REGISTER_FUNCTION +}; +add_to_type_list(UIHintWindow) +#undef script_type_list +#define script_type_list save_type_list(UIHintWindow) #endif // UI_HINT_H_INCLUDED diff --git a/src/xrGame/ui/UIListBoxItem.cpp b/src/xrGame/ui/UIListBoxItem.cpp index f8a8099f036..5b76cef3181 100644 --- a/src/xrGame/ui/UIListBoxItem.cpp +++ b/src/xrGame/ui/UIListBoxItem.cpp @@ -8,7 +8,7 @@ CUIListBoxItem::CUIListBoxItem(float height) :m_text(NULL),tag(u32(-1)) { SetHeight (height); - m_text = AddTextField("---", 10.0f); + m_text = AddTextField("", 10.0f); } void CUIListBoxItem::SetTAG(u32 value) @@ -58,7 +58,10 @@ bool CUIListBoxItem::OnMouseDown(int mouse_btn) GetMessageTarget()->SendMessage(this, LIST_ITEM_SELECT, &tag); GetMessageTarget()->SendMessage(this, LIST_ITEM_CLICKED, &tag); return true; - }else + }else if (mouse_btn==MOUSE_2) { + GetMessageTarget()->SendMessage(this, WINDOW_RBUTTON_DOWN, &tag); + return true; + } return false; } diff --git a/src/xrGame/ui/UIListBox_script.cpp b/src/xrGame/ui/UIListBox_script.cpp index 00fc79bf37f..fb72cb8c543 100644 --- a/src/xrGame/ui/UIListBox_script.cpp +++ b/src/xrGame/ui/UIListBox_script.cpp @@ -36,7 +36,8 @@ void CUIListBox::script_register(lua_State *L) .def("GetSize", &CUIListBox::GetSize) .def("GetSelectedItem", &CUIListBox::GetSelectedItem) .def("GetSelectedIndex", &CUIListBox::GetSelectedIDX) - + .def("SetItemHeight", &CUIListBox::SetItemHeight) + .def("GetItemHeight", &CUIListBox::GetItemHeight) .def("GetItemByIndex", &CUIListBox::GetItemByIDX) .def("GetItem", &CUIListBox::GetItem) .def("RemoveItem", &CUIListBox::RemoveWindow) diff --git a/src/xrGame/ui/UIMap.cpp b/src/xrGame/ui/UIMap.cpp index 7185a4aa13c..acf99d2b6dd 100644 --- a/src/xrGame/ui/UIMap.cpp +++ b/src/xrGame/ui/UIMap.cpp @@ -539,13 +539,19 @@ void CUILevelMap::SendMessage(CUIWindow* pWnd, s16 msg, void* pData) { MapWnd()->ShowHintSpot( sp ); } - }else - if(msg==MAP_HIDE_HINT) + } + else if(msg==MAP_HIDE_HINT) { MapWnd()->HideHint (pWnd); - }else - if(msg==MAP_SELECT_SPOT) + } + else if(msg==MAP_SELECT_SPOT) + { MapWnd()->SpotSelected (pWnd); + } + else if (msg == MAP_SELECT_SPOT2) + { + MapWnd()->ActivatePropertiesBox(pWnd); + } } void CUILevelMap::OnFocusLost() diff --git a/src/xrGame/ui/UIMapWnd.cpp b/src/xrGame/ui/UIMapWnd.cpp index e9b559a72b0..7188b593537 100644 --- a/src/xrGame/ui/UIMapWnd.cpp +++ b/src/xrGame/ui/UIMapWnd.cpp @@ -20,6 +20,9 @@ #include "map_hint.h" #include "uicursor.h" +#include "UIPropertiesBox.h" +#include "UIListBoxItem.h" + #include "../../xrEngine/xr_input.h" //remove me !!! CUIMapWnd* g_map_wnd = NULL; // quick temporary solution -( @@ -185,6 +188,13 @@ void CUIMapWnd::Init(LPCSTR xml_name, LPCSTR start_from) m_ActionPlanner = xr_new(); m_ActionPlanner->setup (this); m_view_actor = true; + + m_UIPropertiesBox = xr_new(); + m_UIPropertiesBox->SetAutoDelete(true); + m_UIPropertiesBox->InitPropertiesBox(Fvector2().set(0,0),Fvector2().set(300,300)); + AttachChild(m_UIPropertiesBox); + m_UIPropertiesBox->Hide(); + m_UIPropertiesBox->SetWindowName( "property_box" ); } void CUIMapWnd::Show(bool status) @@ -414,6 +424,9 @@ bool CUIMapWnd::OnMouseAction(float x, float y, EUIMessages mouse_action) { switch ( mouse_action ) { + case WINDOW_RBUTTON_UP: + ActivatePropertiesBox(NULL); + break; case WINDOW_MOUSE_MOVE: if( pInput->iGetAsyncBtnState(0) ) { @@ -478,6 +491,37 @@ void CUIMapWnd::SendMessage(CUIWindow* pWnd, s16 msg, void* pData) { // inherited::SendMessage( pWnd, msg, pData); CUIWndCallback::OnEvent(pWnd, msg, pData); + if(pWnd == m_UIPropertiesBox && msg == PROPERTY_CLICKED && m_UIPropertiesBox->GetClickedItem()) + { + luabind::functor funct; + if (ai().script_engine().functor("pda.property_box_clicked", funct)) + funct(m_UIPropertiesBox); + } +} + +void CUIMapWnd::ActivatePropertiesBox(CUIWindow* w) +{ + m_UIPropertiesBox->RemoveAll(); + luabind::functor funct; + if (ai().script_engine().functor("pda.property_box_add_properties", funct)) + { + CMapSpot* sp = smart_cast(w); + if (sp) + funct(m_UIPropertiesBox, sp->MapLocation()->ObjectID(), (LPCSTR)sp->MapLocation()->GetLevelName().c_str(), (LPCSTR)sp->MapLocation()->GetHint()); + } + + if (m_UIPropertiesBox->GetItemsCount() > 0) + { + m_UIPropertiesBox->AutoUpdateSize(); + + Fvector2 cursor_pos; + Frect vis_rect; + + GetAbsoluteRect(vis_rect); + cursor_pos = GetUICursor().GetCursorPosition(); + cursor_pos.sub(vis_rect.lt); + m_UIPropertiesBox->Show(vis_rect, cursor_pos); + } } CUICustomMap* CUIMapWnd::GetMapByIdx(u16 idx) diff --git a/src/xrGame/ui/UIMapWnd.h b/src/xrGame/ui/UIMapWnd.h index 40c498a263c..12a088921a9 100644 --- a/src/xrGame/ui/UIMapWnd.h +++ b/src/xrGame/ui/UIMapWnd.h @@ -20,6 +20,7 @@ class CMapSpot; class CGameTask; class CUIXml; class UIHint; +class CUIPropertiesBox; DEFINE_MAP(shared_str,CUICustomMap*,GameMaps,GameMapsPairIt); @@ -100,6 +101,7 @@ class CUIMapWnd: public CUIWindow, public CUIWndCallback void MoveScrollV ( float dy ); void MoveScrollH ( float dx ); + void ActivatePropertiesBox(CUIWindow* w); public: CUICustomMap* m_tgtMap; @@ -110,7 +112,7 @@ class CUIMapWnd: public CUIWindow, public CUIWndCallback void init_xml_nav (CUIXml& xml); void ShowHint (bool extra = false); void Activated (); - + CUIPropertiesBox* m_UIPropertiesBox; public: CUIMapWnd (); virtual ~CUIMapWnd (); diff --git a/src/xrGame/ui/UIMessages.h b/src/xrGame/ui/UIMessages.h index ae788edbcbd..aa082b0e45a 100644 --- a/src/xrGame/ui/UIMessages.h +++ b/src/xrGame/ui/UIMessages.h @@ -127,4 +127,5 @@ enum EUIMessages MAP_SELECT_SPOT, MAIN_MENU_RELOADED, + MAP_SELECT_SPOT2, }; diff --git a/src/xrGame/ui/UIMultiTextStatic.cpp b/src/xrGame/ui/UIMultiTextStatic.cpp index c734285b6ee..f83e171b873 100644 --- a/src/xrGame/ui/UIMultiTextStatic.cpp +++ b/src/xrGame/ui/UIMultiTextStatic.cpp @@ -47,6 +47,7 @@ void CUIMultiTextStatic::Draw() } inherited::Draw(); + DrawHintWnd(); } ////////////////////////////////////////////////////////////////////////// diff --git a/src/xrGame/ui/UIPdaWnd.cpp b/src/xrGame/ui/UIPdaWnd.cpp index 507e87343ba..5f52ab5a2ca 100644 --- a/src/xrGame/ui/UIPdaWnd.cpp +++ b/src/xrGame/ui/UIPdaWnd.cpp @@ -27,6 +27,8 @@ #include "UIRankingWnd.h" #include "UILogsWnd.h" +#include "UIScriptWnd.h" + #define PDA_XML "pda.xml" u32 g_pda_info_state = 0; @@ -35,18 +37,16 @@ void RearrangeTabButtons(CUITabControl* pTab); CUIPdaWnd::CUIPdaWnd() { - pUITaskWnd = NULL; -//- pUIFactionWarWnd = NULL; - pUIRankingWnd = NULL; - pUILogsWnd = NULL; - m_hint_wnd = NULL; + pUITaskWnd = NULL; + pUIRankingWnd = NULL; + pUILogsWnd = NULL; + m_hint_wnd = NULL; Init(); } CUIPdaWnd::~CUIPdaWnd() { delete_data( pUITaskWnd ); -//- delete_data( pUIFactionWarWnd ); delete_data( pUIRankingWnd ); delete_data( pUILogsWnd ); delete_data( m_hint_wnd ); @@ -130,8 +130,9 @@ void CUIPdaWnd::SendMessage(CUIWindow* pWnd, s16 msg, void* pData) } default: { - R_ASSERT (m_pActiveDialog); - m_pActiveDialog->SendMessage (pWnd, msg, pData); + //R_ASSERT (m_pActiveDialog); + if (m_pActiveDialog) + m_pActiveDialog->SendMessage(pWnd, msg, pData); } }; } @@ -142,17 +143,24 @@ void CUIPdaWnd::Show(bool status) if(status) { InventoryUtilities::SendInfoToActor ("ui_pda"); - - if ( !m_pActiveDialog ) + + if (m_sActiveSection == NULL || strcmp(m_sActiveSection.c_str(), "") == 0) { - SetActiveSubdialog ("eptTasks"); + SetActiveSubdialog("eptTasks"); + UITabControl->SetActiveTab("eptTasks"); } - m_pActiveDialog->Show (true); + else + SetActiveSubdialog(m_sActiveSection); + }else { InventoryUtilities::SendInfoToActor ("ui_pda_hide"); CurrentGameUI()->UIMainIngameWnd->SetFlashIconState_(CUIMainIngameWnd::efiPdaTask, false); - m_pActiveDialog->Show (false); + if (m_pActiveDialog) + { + m_pActiveDialog->Show(false); + m_pActiveDialog = pUITaskWnd; //hack for script window + } g_btnHint->Discard (); g_statHint->Discard (); } @@ -161,7 +169,9 @@ void CUIPdaWnd::Show(bool status) void CUIPdaWnd::Update() { inherited::Update(); - m_pActiveDialog->Update(); + if (m_pActiveDialog) + m_pActiveDialog->Update(); + m_clock->TextItemControl().SetText(InventoryUtilities::GetGameTimeAsString(InventoryUtilities::etpTimeToMinutes).c_str()); Device.seqParallel.push_back (fastdelegate::FastDelegate0<>(pUILogsWnd,&CUILogsWnd::PerformWork)); @@ -169,22 +179,23 @@ void CUIPdaWnd::Update() void CUIPdaWnd::SetActiveSubdialog(const shared_str& section) { - if ( m_sActiveSection == section ) return; - if ( m_pActiveDialog ) { - UIMainPdaFrame->DetachChild( m_pActiveDialog ); + //if (m_sActiveSection == section) return; + if (UIMainPdaFrame->IsChild(m_pActiveDialog)) + UIMainPdaFrame->DetachChild( m_pActiveDialog ); m_pActiveDialog->Show( false ); } + //if (UITabControl->GetActiveId() != section) + //{ + // UITabControl->SetActiveTab(section); + //} + if ( section == "eptTasks" ) { m_pActiveDialog = pUITaskWnd; } -//- else if ( section == "eptFractionWar" ) -//- { -//- m_pActiveDialog = pUIFactionWarWnd; -//- } else if ( section == "eptRanking" ) { m_pActiveDialog = pUIRankingWnd; @@ -193,17 +204,27 @@ void CUIPdaWnd::SetActiveSubdialog(const shared_str& section) { m_pActiveDialog = pUILogsWnd; } + + luabind::functor funct; + if (ai().script_engine().functor("pda.set_active_subdialog", funct)) + { + CUIDialogWndEx* ret = funct((LPCSTR)section.c_str()); + CUIWindow* pScriptWnd = ret ? smart_cast(ret) : (0); + if (pScriptWnd) + m_pActiveDialog = pScriptWnd; + } - R_ASSERT (m_pActiveDialog); - UIMainPdaFrame->AttachChild (m_pActiveDialog); - m_pActiveDialog->Show (true); - - if ( UITabControl->GetActiveId() != section ) + if (m_pActiveDialog) { - UITabControl->SetActiveTab( section ); + if (!UIMainPdaFrame->IsChild(m_pActiveDialog)) + UIMainPdaFrame->AttachChild(m_pActiveDialog); + m_pActiveDialog->Show(true); + m_sActiveSection = section; + SetActiveCaption(); + } + else { + m_sActiveSection = ""; } - m_sActiveSection = section; - SetActiveCaption(); } void CUIPdaWnd::SetActiveCaption() @@ -252,19 +273,15 @@ void CUIPdaWnd::Draw() void CUIPdaWnd::DrawHint() { - if ( m_pActiveDialog == pUITaskWnd ) + if (m_sActiveSection == "eptTasks") { pUITaskWnd->DrawHint(); } -//- else if ( m_pActiveDialog == pUIFactionWarWnd ) -//- { -// m_hint_wnd->Draw(); -//- } - else if ( m_pActiveDialog == pUIRankingWnd ) + else if (m_sActiveSection == "eptRanking") { pUIRankingWnd->DrawHint(); } - else if ( m_pActiveDialog == pUILogsWnd ) + else if (m_sActiveSection == "eptLogs") { } @@ -275,7 +292,7 @@ void CUIPdaWnd::UpdatePda() { pUILogsWnd->UpdateNews(); - if ( m_pActiveDialog == pUITaskWnd ) + if (m_sActiveSection == "eptTasks") { pUITaskWnd->ReloadTaskInfo(); } @@ -291,7 +308,6 @@ void CUIPdaWnd::Reset() inherited::ResetAll (); if ( pUITaskWnd ) pUITaskWnd->ResetAll(); -//- if ( pUIFactionWarWnd ) pUITaskWnd->ResetAll(); if ( pUIRankingWnd ) pUIRankingWnd->ResetAll(); if ( pUILogsWnd ) pUILogsWnd->ResetAll(); } diff --git a/src/xrGame/ui/UIPdaWnd.h b/src/xrGame/ui/UIPdaWnd.h index e2c39cefb16..c5e73a7d3ab 100644 --- a/src/xrGame/ui/UIPdaWnd.h +++ b/src/xrGame/ui/UIPdaWnd.h @@ -20,6 +20,8 @@ class CUILogsWnd; class CUIAnimatedStatic; class UIHint; +class CMapSpot; + class CUIPdaWnd: public CUIDialogWnd { @@ -47,6 +49,8 @@ class CUIPdaWnd: public CUIDialogWnd //- CUIFactionWarWnd* pUIFactionWarWnd; CUIRankingWnd* pUIRankingWnd; CUILogsWnd* pUILogsWnd; + + CMapSpot* pSelectedMapSpot; virtual void Reset (); @@ -72,6 +76,10 @@ class CUIPdaWnd: public CUIDialogWnd void Show_SecondTaskWnd (bool status); void Show_MapLegendWnd (bool status); + void SetActiveDialog (CUIWindow* pUI) { m_pActiveDialog = pUI; }; + CUIWindow* GetActiveDialog () {return m_pActiveDialog;}; + LPCSTR GetActiveSection () {return m_sActiveSection.c_str();}; + void SetActiveSubdialog (const shared_str& section); virtual bool StopAnyMove (){return false;} diff --git a/src/xrGame/ui/UIPropertiesBox_script.cpp b/src/xrGame/ui/UIPropertiesBox_script.cpp index bbf156954a9..0df2e0c47e3 100644 --- a/src/xrGame/ui/UIPropertiesBox_script.cpp +++ b/src/xrGame/ui/UIPropertiesBox_script.cpp @@ -1,5 +1,6 @@ #include "pch_script.h" #include "UIPropertiesBox.h" +#include "UIListBoxItem.h" using namespace luabind; @@ -15,9 +16,10 @@ void CUIPropertiesBox::script_register(lua_State *L) .def("RemoveAll", &CUIPropertiesBox::RemoveAll) .def("Show", (void(CUIPropertiesBox::*)(int,int))&CUIPropertiesBox::Show) .def("Hide", &CUIPropertiesBox::Hide) -// .def("GetClickedIndex", &CUIPropertiesBox::GetClickedIndex) + .def("GetSelectedItem", &CUIPropertiesBox::GetClickedItem) .def("AutoUpdateSize", &CUIPropertiesBox::AutoUpdateSize) .def("AddItem", &CUIPropertiesBox::AddItem_script) + .def("InitPropertiesBox", &CUIPropertiesBox::InitPropertiesBox) // .def("", &CUIPropertiesBox::) ]; } diff --git a/src/xrGame/ui/UIStatic_script.cpp b/src/xrGame/ui/UIStatic_script.cpp index 9588523cb08..6f1f2ed6af3 100644 --- a/src/xrGame/ui/UIStatic_script.cpp +++ b/src/xrGame/ui/UIStatic_script.cpp @@ -21,6 +21,11 @@ void CUIStatic::script_register(lua_State *L) class_("CUIStatic") .def( constructor<>()) + .def("SetTextureColor", &CUIStatic::SetTextureColor) + .def("GetTextureColor", &CUIStatic::GetTextureColor) + .def("AdjustHeightToText", &CUIStatic::AdjustHeightToText) + .def("AdjustWidthToText", &CUIStatic::AdjustWidthToText) + .def("GetStretchTexture", &CUIStatic::GetStretchTexture) .def("TextControl", &CUIStatic::TextItemControl) .def("InitTexture", &CUIStatic::InitTexture ) .def("SetTextureRect", &CUIStatic::SetTextureRect_script) diff --git a/src/xrGame/ui/UIWindow.cpp b/src/xrGame/ui/UIWindow.cpp index 33d7ec5447b..25ca7a90b8b 100644 --- a/src/xrGame/ui/UIWindow.cpp +++ b/src/xrGame/ui/UIWindow.cpp @@ -5,6 +5,10 @@ #include "../Include/xrRender/DebugRender.h" #include "../Include/xrRender/UIRender.h" +//#include "UIHelper.h" +//#include "UIHint.h" +//#include "../ScriptXMLInit.h" + poolSS< _12b, 128> ui_allocator; @@ -100,9 +104,13 @@ m_pMouseCapturer(NULL), m_pMessageTarget(NULL), m_pKeyboardCapturer(NULL), m_bAutoDelete(false), +//m_pHint(NULL), m_bCursorOverWindow(false), m_bPP(false), m_dwFocusReceiveTime(0), +//dwHintDelay(1000), +//bShowHint(false), +//m_sHint(""), m_bCustomDraw(false) { Show (true); @@ -120,6 +128,9 @@ CUIWindow::~CUIWindow() { VERIFY( !(GetParent()&&IsAutoDelete()) ); + //if (m_pHint) + // xr_delete(m_pHint); + CUIWindow* parent = GetParent(); bool ad = IsAutoDelete(); if( parent && !ad ) @@ -170,8 +181,8 @@ void CUIWindow::Draw() void CUIWindow::Draw(float x, float y) { - SetWndPos (Fvector2().set(x,y)); - Draw (); + SetWndPos(Fvector2().set(x,y)); + Draw(); } void CUIWindow::Update() @@ -198,6 +209,15 @@ void CUIWindow::Update() if(!(*it)->IsShown()) continue; (*it)->Update(); } + + /* + if (m_pHint && bShowHint) + { + if (Device.dwTimeGlobal < (m_dwFocusReceiveTime + dwHintDelay)) + return; + m_pHint->set_text(m_sHint); + } + */ } void CUIWindow::AttachChild(CUIWindow* pChild) @@ -376,6 +396,9 @@ void CUIWindow::OnFocusReceive() if (GetMessageTarget()) GetMessageTarget()->SendMessage(this, WINDOW_FOCUS_RECEIVED, NULL); + + //if (m_pHint) + // bShowHint = true; } void CUIWindow::OnFocusLost() @@ -385,6 +408,8 @@ void CUIWindow::OnFocusLost() if (GetMessageTarget()) GetMessageTarget()->SendMessage(this, WINDOW_FOCUS_LOST, NULL); + + //bShowHint = false; } @@ -614,3 +639,54 @@ bool fit_in_rect(CUIWindow* w, Frect const& vis_rect, float border, float dx16po w->SetWndPos( rect.lt ); return true; } + +/* +void CUIWindow::DisableHint() +{ + bShowHint = false; +} + +void CUIWindow::EnableHint() +{ + bShowHint = true; +} + +u32 CUIWindow::GetHintDelay() +{ + return dwHintDelay; +} + +void CUIWindow::SetHintDelay(u32 val) +{ + dwHintDelay = val; +} + +void CUIWindow::DrawHintWnd() +{ + if (m_pHint && bShowHint) + { + Frect r; + GetAbsoluteRect(r); + Fvector2 pos = UI().GetUICursor().GetCursorPosition(); + if (r.in(pos)) + m_pHint->Draw(); + } +} + +void CUIWindow::RemoveHint() +{ + if (m_pHint) + xr_delete(m_pHint); + m_pHint = NULL; +} + +void CUIWindow::SetHintText(LPCSTR text) +{ + m_sHint = text; +} + +LPCSTR CUIWindow::GetHintText() +{ + return m_sHint; +} +*/ \ No newline at end of file diff --git a/src/xrGame/ui/UIWindow.h b/src/xrGame/ui/UIWindow.h index 4d2061d5004..f0458e5a173 100644 --- a/src/xrGame/ui/UIWindow.h +++ b/src/xrGame/ui/UIWindow.h @@ -1,5 +1,8 @@ #pragma once #include "../xr_level_controller.h" + +class UIHint; +class CScriptXmlInit; class CUIWindow; struct _12b { DWORD _[3]; }; @@ -106,7 +109,22 @@ class CUIWindow : public CUISimpleWindow virtual void OnFocusReceive (); virtual void OnFocusLost (); - + + //Alundaio + /* + void DisableHint (); + void EnableHint (); + void SetHintDelay (u32 val); + u32 GetHintDelay (); + void DrawHintWnd (); + void RemoveHint (); + void SetHintText (LPCSTR text); + LPCSTR GetHintText (); + void SetHintWnd (UIHint* hintWnd) { m_pHint = hintWnd; }; + UIHint* GetHintWnd () { return m_pHint; }; + */ + //-Alundaio + //захватить/освободить мышь окном //сообщение посылается дочерним окном родительскому void SetCapture (CUIWindow* pChildWindow, bool capture_status); @@ -131,7 +149,7 @@ class CUIWindow : public CUISimpleWindow bool IsEnabled () {return m_bIsEnabled;} //убрать/показать окно и его дочерние окна - virtual void Show (bool status) {SetVisible(status); Enable(status); } + virtual void Show(bool status) { SetVisible(status); Enable(status); } IC bool IsShown () {return GetVisible();} void ShowChildren (bool show); diff --git a/src/xrGame/ui/UIWindow_script.cpp b/src/xrGame/ui/UIWindow_script.cpp index 05a41af3338..e81df60fbf3 100644 --- a/src/xrGame/ui/UIWindow_script.cpp +++ b/src/xrGame/ui/UIWindow_script.cpp @@ -9,7 +9,9 @@ #include "UIMMShniaga.h" #include "UITextureMaster.h" #include "UIScrollView.h" - +#include "UIHint.h" +#include "../ScriptXMLInit.h" +#include "../UICursor.h" CFontManager& mngr(){ return UI().Font(); } @@ -46,6 +48,17 @@ const Fvector2* get_wnd_pos(CUIWindow* w) { return &w->GetWndPos(); } + +Fvector2 GetCursorPosition_script() +{ + return GetUICursor().GetCursorPosition(); +} + +void SetCursorPosition_script(Fvector2& pos) +{ + GetUICursor().SetUICursorPosition(pos); +} + using namespace luabind; #pragma optimize("s",on) void CUIWindow::script_register(lua_State *L) @@ -63,6 +76,9 @@ void CUIWindow::script_register(lua_State *L) def("GetFontGraffiti32Russian", &GetFontGraffiti32Russian), def("GetFontGraffiti50Russian", &GetFontGraffiti50Russian), def("GetFontLetterica25", &GetFontLetterica25), + def("GetCursorPosition", &GetCursorPosition_script), + def("SetCursorPosition", &SetCursorPosition_script), + def("FitInRect", &fit_in_rect), class_("CUIWindow") .def( constructor<>()) @@ -70,7 +86,23 @@ void CUIWindow::script_register(lua_State *L) .def("DetachChild", &CUIWindow::DetachChild) .def("SetAutoDelete", &CUIWindow::SetAutoDelete) .def("IsAutoDelete", &CUIWindow::IsAutoDelete) - + + .def("IsCursorOverWindow", &CUIWindow::CursorOverWindow) + .def("FocusReceiveTime", &CUIWindow::FocusReceiveTime) + .def("GetAbsoluteRect", &CUIWindow::GetAbsoluteRect) + + /* + .def("DisableHint", &CUIWindow::DisableHint) + .def("EnableHint", &CUIWindow::EnableHint) + .def("SetHintDelay", &CUIWindow::SetHintDelay) + .def("GetHintDelay", &CUIWindow::GetHintDelay) + .def("RemoveHint", &CUIWindow::RemoveHint) + .def("SetHintWnd", &CUIWindow::SetHintWnd) + .def("GetHintWnd", &CUIWindow::GetHintWnd) + .def("SetHintText", &CUIWindow::SetHintText) + .def("GetHintText", &CUIWindow::GetHintText) + */ + .def("SetWndRect", (void (CUIWindow::*)(Frect)) &CUIWindow::SetWndRect_script) .def("SetWndPos", (void (CUIWindow::*)(Fvector2)) &CUIWindow::SetWndPos_script) .def("SetWndSize", (void (CUIWindow::*)(Fvector2)) &CUIWindow::SetWndSize_script) @@ -109,6 +141,13 @@ void CUIWindow::script_register(lua_State *L) .def("SetHeight", &CUIFrameLineWnd::SetHeight) .def("SetColor", &CUIFrameLineWnd::SetTextureColor), + class_("UIHint") + .def( constructor<>()) + .def("SetWidth", &UIHint::SetWidth) + .def("SetHeight", &UIHint::SetHeight) + .def("SetHintText", &UIHint::set_text) + .def("GetHintText", &UIHint::get_text), + class_("CUIMMShniaga") .enum_("enum_page_id") [ diff --git a/src/xrGame/ui/UIXmlInit.cpp b/src/xrGame/ui/UIXmlInit.cpp index 2079eab6a9d..9545fd37a83 100644 --- a/src/xrGame/ui/UIXmlInit.cpp +++ b/src/xrGame/ui/UIXmlInit.cpp @@ -15,7 +15,6 @@ #include "UIListBox.h" #include "UIComboBox.h" #include "UITrackBar.h" -#include "UIHint.h" #include "game_base_space.h" #include "UITextureMaster.h" @@ -1292,15 +1291,4 @@ u32 CUIXmlInit::GetColor(CUIXml& xml_doc, LPCSTR path, int index, u32 def_clr) return color_argb(a,r,g,b); } -} - -bool CUIXmlInit::InitHintWindow(CUIXml& xml_doc, LPCSTR path, int index, UIHintWindow* pWnd) -{ - VERIFY( pWnd ); - InitWindow( xml_doc, path, index, pWnd ); - LPCSTR hint_text = xml_doc.Read( path, index, "no hint" ); - pWnd->set_hint_text_ST( hint_text ); - - pWnd->set_hint_delay( (u32)xml_doc.ReadAttribInt( path, index, "delay" ) ); - return true; } \ No newline at end of file diff --git a/src/xrGame/ui/UIXmlInit.h b/src/xrGame/ui/UIXmlInit.h index 59260c6986f..a31f84646a0 100644 --- a/src/xrGame/ui/UIXmlInit.h +++ b/src/xrGame/ui/UIXmlInit.h @@ -29,7 +29,6 @@ class CUIDragDropListEx; class CUIComboBox; class CUITabButtonMP; class CUITrackBar; -class UIHintWindow; class CUILines; class CUITextWnd; @@ -68,7 +67,6 @@ class CUIXmlInit static bool InitListBox (CUIXml& xml_doc, LPCSTR path, int index, CUIListBox* pWnd); static bool InitComboBox (CUIXml& xml_doc, LPCSTR path, int index, CUIComboBox* pWnd); static bool InitTrackBar (CUIXml& xml_doc, LPCSTR path, int index, CUITrackBar* pWnd); - static bool InitHintWindow (CUIXml& xml_doc, LPCSTR path, int index, UIHintWindow* pWnd); static Frect GetFRect (CUIXml& xml_doc, LPCSTR path, int index); static u32 GetColor (CUIXml& xml_doc, LPCSTR path, int index, u32 def_clr); public: diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 5f695fe6861..4ffdd15326e 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -1740,8 +1740,6 @@ - - @@ -1751,7 +1749,7 @@ - + @@ -1783,7 +1781,6 @@ - @@ -1845,9 +1842,6 @@ - - true - @@ -1882,7 +1876,6 @@ - @@ -1932,7 +1925,7 @@ - + @@ -3781,10 +3774,6 @@ - - pch_script.h - $(IntDir)$(ProjectName)_script.pch - @@ -3861,10 +3850,6 @@ $(IntDir)$(ProjectName)_script.pch - - pch_script.h - $(IntDir)$(ProjectName)_script.pch - @@ -3984,9 +3969,6 @@ $(IntDir)$(ProjectName)_script.pch - - true - pch_script.h @@ -4042,7 +4024,6 @@ - pch_script.h @@ -4155,7 +4136,7 @@ $(IntDir)$(ProjectName)_script.pch - + diff --git a/src/xrGame/xrGame.vcxproj.filters b/src/xrGame/xrGame.vcxproj.filters index c07411cd081..960e9a232bd 100644 --- a/src/xrGame/xrGame.vcxproj.filters +++ b/src/xrGame/xrGame.vcxproj.filters @@ -2140,9 +2140,6 @@ {ddf96ea9-ef48-422b-9ac9-d1c7aafa5cd6} - - {73dc453e-a9d1-4200-83b7-3564dbf9fc80} - {88b2008c-d91b-4387-b903-9223e6800188} @@ -2494,6 +2491,9 @@ {7111b5cd-588d-46ec-81c2-ccc6c70fa4de} + + {73dc453e-a9d1-4200-83b7-3564dbf9fc80} + @@ -5856,9 +5856,6 @@ Core\Client\Objects\items & weapons\Weapons\StationaryMgun - - Core\Client\Objects\items & HolderEntityObject - Core\Client\Objects\items & weapons\Artifacts @@ -6759,18 +6756,6 @@ UI\Common\PDA\Tasks - - UI\Common\PDA\FactionWar - - - UI\Common\PDA\FactionWar - - - UI\Common\PDA\FactionWar - - - UI\Common\PDA\FactionWar - UI\Common\PDA\logs @@ -7398,6 +7383,7 @@ Core\Client\Objects\zones\Ameba + @@ -9437,9 +9423,6 @@ Core\Client\Objects\items & weapons\Weapons\StationaryMgun - - Core\Client\Objects\items & HolderEntityObject - Core\Client\Objects\items & weapons\Weapons\StationaryMgun @@ -10358,9 +10341,6 @@ UI\Common\PDA\Statistics & Rankings - - UI\Common\PDA\Statistics & Rankings - UI\Common\PDA\Statistics & Rankings @@ -10373,15 +10353,6 @@ UI\Common\PDA\Tasks - - UI\Common\PDA\FactionWar - - - UI\Common\PDA\FactionWar - - - UI\Common\PDA\FactionWar - UI\Common\PDA\logs @@ -11063,6 +11034,7 @@ Core\Client\Objects\zones\Ameba + @@ -11080,9 +11052,6 @@ Core\Client\Objects\items & weapons\Explosives - - UI\Common\PDA\Statistics & Rankings - From ef36ce7fff115fb8728de4ea2ed5cc6996852296 Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 8 Dec 2016 08:18:04 -0500 Subject: [PATCH 161/166] = Fix Use Suddeness combat action (would activate even if npc had no enemy) = SetActiveSubdialog fix for pda wnd --- src/xrGame/stalker_combat_planner.cpp | 1 + src/xrGame/ui/UIActorMenu_script.cpp | 2 +- src/xrGame/ui/UIPdaWnd.h | 3 ++- src/xrGame/ui/UIWindow_script.cpp | 1 + 4 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/xrGame/stalker_combat_planner.cpp b/src/xrGame/stalker_combat_planner.cpp index 2a83419dfed..9f28bf9a5a8 100644 --- a/src/xrGame/stalker_combat_planner.cpp +++ b/src/xrGame/stalker_combat_planner.cpp @@ -446,6 +446,7 @@ void CStalkerCombatPlanner::add_actions () add_condition (action,eWorldPropertyUseSuddenness, true); add_condition (action,eWorldPropertyEnemyWounded, false); add_condition (action,eWorldPropertyInSmartCover, false); + add_condition (action,eWorldPropertyEnemy, true); add_effect (action,eWorldPropertyEnemy, false); add_operator (eWorldOperatorSuddenAttack, action); diff --git a/src/xrGame/ui/UIActorMenu_script.cpp b/src/xrGame/ui/UIActorMenu_script.cpp index 03ff1aaacec..8d8748bd1a9 100644 --- a/src/xrGame/ui/UIActorMenu_script.cpp +++ b/src/xrGame/ui/UIActorMenu_script.cpp @@ -291,7 +291,7 @@ void CUIActorMenu::script_register(lua_State *L) .def("IsShown", &CUIPdaWnd::IsShown) .def("ShowDialog", &CUIPdaWnd::ShowDialog) .def("HideDialog", &CUIPdaWnd::HideDialog) - .def("SetActiveSubdialog", &CUIPdaWnd::SetActiveSubdialog) + .def("SetActiveSubdialog", &CUIPdaWnd::SetActiveSubdialog_script) .def("SetActiveDialog", &CUIPdaWnd::SetActiveDialog) .def("GetActiveDialog", &CUIPdaWnd::GetActiveDialog) .def("GetActiveSection", &CUIPdaWnd::GetActiveSection) diff --git a/src/xrGame/ui/UIPdaWnd.h b/src/xrGame/ui/UIPdaWnd.h index c5e73a7d3ab..00e85e655c6 100644 --- a/src/xrGame/ui/UIPdaWnd.h +++ b/src/xrGame/ui/UIPdaWnd.h @@ -80,7 +80,8 @@ class CUIPdaWnd: public CUIDialogWnd CUIWindow* GetActiveDialog () {return m_pActiveDialog;}; LPCSTR GetActiveSection () {return m_sActiveSection.c_str();}; - void SetActiveSubdialog (const shared_str& section); + void SetActiveSubdialog (const shared_str& section); + void SetActiveSubdialog_script(LPCSTR section) { SetActiveSubdialog((const shared_str&)section); }; virtual bool StopAnyMove (){return false;} void UpdatePda (); diff --git a/src/xrGame/ui/UIWindow_script.cpp b/src/xrGame/ui/UIWindow_script.cpp index e81df60fbf3..e753b6610d2 100644 --- a/src/xrGame/ui/UIWindow_script.cpp +++ b/src/xrGame/ui/UIWindow_script.cpp @@ -172,6 +172,7 @@ void CUIWindow::script_register(lua_State *L) .def("GetMinScrollPos", &CUIScrollView::GetMinScrollPos) .def("GetMaxScrollPos", &CUIScrollView::GetMaxScrollPos) .def("GetCurrentScrollPos", &CUIScrollView::GetCurrentScrollPos) + .def("SetFixedScrollBar", &CUIScrollView::SetFixedScrollBar) .def("SetScrollPos", &CUIScrollView::SetScrollPos), class_ >("ui_events") From 25ab6e89b709a0671ad2fcd310f0422053c60344 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sun, 11 Dec 2016 11:06:35 -0500 Subject: [PATCH 162/166] - remove debug line by avo = some fixes to sudden attack ai action --- src/xrGame/WeaponMagazined.cpp | 2 +- src/xrGame/stalker_combat_actions.cpp | 19 +++++++++++++------ 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index fdb2509c3b4..50f667fb868 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -1207,7 +1207,7 @@ void CWeaponMagazined::PlayAnimReload() #ifdef NEW_ANIMS //AVO: use new animations if (bMisfire) { - Msg("AVO: ------ MISFIRE"); + //Msg("AVO: ------ MISFIRE"); if (HudAnimationExist("anm_reload_misfire")) PlayHUDMotion("anm_reload_misfire", TRUE, this, GetState()); else diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index 11694c0331f..99348f7068c 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -1030,14 +1030,20 @@ void CStalkerActionSuddenAttack::execute() const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) + { + m_storage->set_property (eWorldPropertyUseSuddenness,false); return; + } CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) + { + m_storage->set_property (eWorldPropertyUseSuddenness,false); return; + } - bool visible_now = object().memory().visual().visible_now(enemy); + bool visible_now = object().memory().visual().visible_now(enemy); if (visible_now) object().sight().setup(CSightAction(enemy, true)); else { @@ -1058,15 +1064,16 @@ void CStalkerActionSuddenAttack::execute() else object().movement().set_nearest_accessible_position(ai().level_graph().vertex_position(mem_object.m_object_params.m_level_vertex_id), mem_object.m_object_params.m_level_vertex_id); - if (!visible_now) { +/* if (!visible_now) + { u32 target_vertex_id = object().movement().level_path().dest_vertex_id(); if (object().ai_location().level_vertex_id() == target_vertex_id) { m_storage->set_property(eWorldPropertyUseSuddenness, false); return; } - } + } */ - float distance = object().Position().distance_to(mem_object.m_object_params.m_position); + float distance = object().Position().distance_to(mem_object.m_object_params.m_position); if (distance >= 15.f) { object().movement().set_body_state(eBodyStateStand); object().movement().set_movement_type(eMovementTypeRun); @@ -1096,9 +1103,9 @@ void CStalkerActionSuddenAttack::execute() } } - CVisualMemoryManager *visual_memory_manager = object().memory().enemy().selected()->visual_memory(); + CVisualMemoryManager *visual_memory_manager = enemy->visual_memory(); VERIFY(visual_memory_manager); - if (object().memory().enemy().selected()->g_Alive() && !visual_memory_manager->visible_now(&object())) + if (enemy->g_Alive() && !visual_memory_manager->visible_now(&object())) return; m_storage->set_property(eWorldPropertyUseSuddenness, false); From fe8302309258e487b6c67c67d287c2b730ade94f Mon Sep 17 00:00:00 2001 From: revolucas Date: Thu, 15 Dec 2016 15:42:40 -0500 Subject: [PATCH 163/166] SetSelectedItem export for CUIListBox some buy/sell and supplies condition checks to prevent error if item section doesn't exist or incorrect params --- src/xrGame/purchase_list.cpp | 17 +++++++++++++---- src/xrGame/trade2.cpp | 4 ++++ src/xrGame/trade_parameters_inline.h | 12 +++++++++--- src/xrGame/ui/UIActorMenu.cpp | 6 +----- src/xrGame/ui/UIListBox_script.cpp | 3 ++- 5 files changed, 29 insertions(+), 13 deletions(-) diff --git a/src/xrGame/purchase_list.cpp b/src/xrGame/purchase_list.cpp index c99961526cd..159564181dc 100644 --- a/src/xrGame/purchase_list.cpp +++ b/src/xrGame/purchase_list.cpp @@ -26,15 +26,24 @@ void CPurchaseList::process (CInifile &ini_file, LPCSTR section, CInventoryOwner CInifile::SectCIt I = S.Data.begin(); CInifile::SectCIt E = S.Data.end(); for ( ; I != E; ++I) { - VERIFY3 ((*I).second.size(),"PurchaseList : cannot handle lines in section without values",section); + if (!(*I).second.size()) + continue; + + if (!pSettings->section_exist((*I).first)) + continue; + //VERIFY3 ((*I).second.size(),"PurchaseList : cannot handle lines in section without values",section); string256 temp0, temp1; - THROW3 (_GetItemCount(*(*I).second) == 2,"Invalid parameters in section",section); + //THROW3 (_GetItemCount(*(*I).second) == 2,"Invalid parameters in section",section); + + LPCSTR count = _GetItem(*(*I).second, 0, temp0); + LPCSTR prob = _GetItemCount(*(*I).second) >= 2 ? _GetItem(*(*I).second, 1, temp1) : "1.0f"; + process ( game_object, (*I).first, - atoi(_GetItem(*(*I).second,0,temp0)), - (float)atof(_GetItem(*(*I).second,1,temp1)) + atoi(count), + (float)atof(prob) ); } } diff --git a/src/xrGame/trade2.cpp b/src/xrGame/trade2.cpp index 56838f586a2..69c6ec6568e 100644 --- a/src/xrGame/trade2.cpp +++ b/src/xrGame/trade2.cpp @@ -229,6 +229,9 @@ u32 CTrade::GetItemPrice(PIItem pItem, bool b_buying, bool b_free) _min(trade_factors.enemy_factor(),trade_factors.friend_factor()), _max(trade_factors.enemy_factor(),trade_factors.friend_factor()) ); + + if (action_factor == 0) + return 0; // computing deficit_factor #if 0 @@ -245,6 +248,7 @@ u32 CTrade::GetItemPrice(PIItem pItem, bool b_buying, bool b_free) action_factor* deficit_factor ); + // use some script discounts luabind::functor func; if(b_buying) diff --git a/src/xrGame/trade_parameters_inline.h b/src/xrGame/trade_parameters_inline.h index ba422c2e117..d2630570f33 100644 --- a/src/xrGame/trade_parameters_inline.h +++ b/src/xrGame/trade_parameters_inline.h @@ -117,18 +117,24 @@ IC void CTradeParameters::process (_action_type type, CInifile &ini_file, CInifile::SectCIt I = S.Data.begin(); CInifile::SectCIt E = S.Data.end(); for ( ; I != E; ++I) { + if (!pSettings->section_exist((*I).first)) + continue; + if (!(*I).second.size()) { _action.disable ((*I).first); continue; } string256 temp0, temp1; - THROW3 (_GetItemCount(*(*I).second) == 2,"Invalid parameters in section",*section); + //THROW3 (_GetItemCount(*(*I).second) == 2,"Invalid parameters in section",*section); + LPCSTR param1 = _GetItem(*(*I).second, 0, temp0); + LPCSTR param2 = _GetItemCount(*(*I).second) >= 2 ? _GetItem(*(*I).second, 1, temp1) : param1; + _action.enable ( (*I).first, CTradeFactors ( - (float)atof(_GetItem(*(*I).second,0,temp0)), - (float)atof(_GetItem(*(*I).second,1,temp1)) + (float)atof(param1), + (float)atof(param2) ) ); } diff --git a/src/xrGame/ui/UIActorMenu.cpp b/src/xrGame/ui/UIActorMenu.cpp index ddc77e43cd2..cb92cb795ed 100644 --- a/src/xrGame/ui/UIActorMenu.cpp +++ b/src/xrGame/ui/UIActorMenu.cpp @@ -411,11 +411,7 @@ void CUIActorMenu::InfoCurItem( CUICellItem* cell_item ) } } - if( !current_item->CanTrade() || - (!m_pPartnerInvOwner->trade_parameters().enabled(CTradeParameters::action_buy(0), - current_item->object().cNameSect()) && - item_owner && item_owner==m_pActorInvOwner) - ) + if (!current_item->CanTrade() || (!m_pPartnerInvOwner->trade_parameters().enabled(CTradeParameters::action_buy(0), current_item->object().cNameSect()) && item_owner && item_owner==m_pActorInvOwner)) m_ItemInfo->InitItem ( cell_item, compare_item, u32(-1), "st_no_trade_tip_1" ); else if(current_item->GetCondition()trade_parameters().buy_item_condition_factor) m_ItemInfo->InitItem ( cell_item, compare_item, u32(-1), "st_no_trade_tip_2" ); diff --git a/src/xrGame/ui/UIListBox_script.cpp b/src/xrGame/ui/UIListBox_script.cpp index fb72cb8c543..5ebee2dc961 100644 --- a/src/xrGame/ui/UIListBox_script.cpp +++ b/src/xrGame/ui/UIListBox_script.cpp @@ -35,7 +35,8 @@ void CUIListBox::script_register(lua_State *L) .def("RemoveAll", &CUIListBox::Clear) .def("GetSize", &CUIListBox::GetSize) .def("GetSelectedItem", &CUIListBox::GetSelectedItem) - .def("GetSelectedIndex", &CUIListBox::GetSelectedIDX) + .def("GetSelectedIndex", &CUIListBox::GetSelectedIDX) + .def("SetSelectedIndex", &CUIListBox::SetSelectedIDX) .def("SetItemHeight", &CUIListBox::SetItemHeight) .def("GetItemHeight", &CUIListBox::GetItemHeight) .def("GetItemByIndex", &CUIListBox::GetItemByIDX) From a528a6f37b09fd572dc9d94887851ad093590f3d Mon Sep 17 00:00:00 2001 From: revolucas Date: Sun, 18 Dec 2016 20:35:01 -0500 Subject: [PATCH 164/166] car exports --- src/xrGame/Car.h | 2 ++ src/xrGame/CarScript.cpp | 22 +++++++++++++--------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/src/xrGame/Car.h b/src/xrGame/Car.h index ec941491c1e..48fff4af576 100644 --- a/src/xrGame/Car.h +++ b/src/xrGame/Car.h @@ -517,6 +517,8 @@ IC size_t CurrentTransmission (){return m_current_transmission_num;} void PlayDamageParticles(){ m_damage_particles.Play1(this); m_damage_particles.Play2(this); } void StopDamageParticles(){ m_damage_particles.Stop1(this); m_damage_particles.Stop2(this); } bool isActiveEngine(); + float GetRPM() { return m_current_rpm; } + void SetRPM(float val) { m_current_rpm = val; } #endif //-Alundaio /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ diff --git a/src/xrGame/CarScript.cpp b/src/xrGame/CarScript.cpp index 56808f25c0a..7c217aa7bdc 100644 --- a/src/xrGame/CarScript.cpp +++ b/src/xrGame/CarScript.cpp @@ -35,19 +35,23 @@ void CCar::script_register(lua_State *L) .def("ExplodeTime", &CCar::ExplodeTime) .def("CarExplode", &CCar::CarExplode) /************************************************** added by Ray Twitty (aka Shadows) START **************************************************/ - .def("GetfFuel", &CCar::GetfFuel) - .def("SetfFuel", &CCar::SetfFuel) - .def("GetfFuelTank", &CCar::GetfFuelTank) - .def("SetfFuelTank", &CCar::SetfFuelTank) + .def("GetfFuel", &CCar::GetfFuel) + .def("SetfFuel", &CCar::SetfFuel) + .def("GetfFuelTank", &CCar::GetfFuelTank) + .def("SetfFuelTank", &CCar::SetfFuelTank) .def("GetfFuelConsumption", &CCar::GetfFuelConsumption) .def("SetfFuelConsumption", &CCar::SetfFuelConsumption) - .def("ChangefFuel", &CCar::ChangefFuel) - .def("ChangefHealth", &CCar::ChangefHealth) + .def("ChangefFuel", &CCar::ChangefFuel) + .def("ChangefHealth", &CCar::ChangefHealth) .def("PlayDamageParticles", &CCar::PlayDamageParticles) .def("StopDamageParticles", &CCar::StopDamageParticles) - .def("StartEngine", &CCar::StartEngine) - .def("StopEngine", &CCar::StopEngine) - .def("IsActiveEngine", &CCar::isActiveEngine) + .def("StartEngine", &CCar::StartEngine) + .def("StopEngine", &CCar::StopEngine) + .def("IsActiveEngine", &CCar::isActiveEngine) + .def("HandBreak", &CCar::HandBreak) + .def("ReleaseHandBreak", &CCar::ReleaseHandBreak) + .def("GetRPM", &CCar::GetRPM) + .def("SetRPM", &CCar::SetRPM) /*************************************************** added by Ray Twitty (aka Shadows) END ***************************************************/ .def(constructor<>()) ]; From 15115843b34a507f8d75c1d14ae46a18fa05f1c1 Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 19 Dec 2016 16:09:00 -0500 Subject: [PATCH 165/166] ~ trying to get debug to compile. Still cannot: Loki errors 'Loki is not a class or namespace name' --- .../LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj | 58 +++++ src/3rd party/NVTT/NVTT.vcxproj | 54 ++++ src/3rd party/crypto/crypto.vcxproj | 44 ++++ src/3rd party/cximage/cximage.vcxproj | 69 +++++ .../lua-extensions/lua_extensions.vcxproj | 61 ++++- .../luabind/luabind.beta7-devel.rc4.vcxproj | 69 ++++- src/3rd party/luajit/lua.JIT.1.1.4.vcxproj | 59 +++++ .../contrib/msvc7/ode_default/default.vcxproj | 83 ++++++ .../OpenAL-Windows/Router/Router.vcxproj | 88 +++++++ src/Common.props | 11 +- src/Layers/xrAPI/xrAPI.vcxproj | 50 ++++ src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 68 ++++- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 67 ++++- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 69 ++++- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 72 +++++- src/editor/editor.vcxproj | 44 ++++ src/editor_controls/editor_controls.vcxproj | 46 ++++ src/engine.sln | 134 +++++++++- src/plugins/Max/MAX_Export60.vcxproj | 72 ++++++ src/plugins/Max/MAX_Material60.vcxproj | 67 +++++ src/plugins/Maya/Maya_Export2008.vcxproj | 72 ++++++ src/plugins/Maya/Maya_Export2009.vcxproj | 72 ++++++ src/plugins/Maya/Maya_Material2008.vcxproj | 62 +++++ src/plugins/Maya/Maya_Material2009.vcxproj | 62 +++++ src/plugins/lw/LW_Export80.vcxproj | 105 ++++++++ src/plugins/lw/LW_Server.vcxproj | 48 ++++ src/plugins/lw/LW_Shader80.vcxproj | 69 +++++ .../CompressionTest/CompressionTest.vcxproj | 46 ++++ src/utils/ETools/ETools.vcxproj | 83 ++++++ src/utils/LWO/LWO.vcxproj | 54 ++++ src/utils/ctool/ctool.vcxproj | 42 +++ .../mp_configs_verifyer.vcxproj | 41 +++ .../mp_screenshots_info.vcxproj | 46 ++++ src/utils/xrAI/xrAI.vcxproj | 93 ++++++- src/utils/xrCompress/xrCompress.vcxproj | 209 +++++++++++++++ src/utils/xrDO_Light/xrDO_Light.vcxproj | 74 ++++++ src/utils/xrDXT/DXT.vcxproj | 83 ++++++ src/utils/xrLC/xrLC.vcxproj | 104 ++++++++ src/utils/xrLC_Light/xrLC_Light.vcxproj | 60 +++++ .../xrLC_LightStab/xrLC_LightStab.vcxproj | 45 ++++ src/utils/xrQSlim/xrQSlim.vcxproj | 45 ++++ src/utils/xrSE_Factory/script_space.h | 13 +- src/utils/xrSE_Factory/xrSE_Factory.cpp | 9 +- src/utils/xrSE_Factory/xrSE_Factory.vcxproj | 145 ++++++++++- src/xrCDB/xrCDB.vcxproj | 84 ++++++ src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 81 ++++++ src/xrCore/xrCore.vcxproj | 107 +++++++- src/xrCore/xrCoreStatic.vcxproj | 88 +++++++ src/xrD3D9-Null/xrD3D9-Null.vcxproj | 58 +++++ src/xrEngine/xrEngine.vcxproj | 86 ++++++- src/xrGame/CarDamageParticles.cpp | 2 +- src/xrGame/action_base.h | 2 + src/xrGame/xrGame.vcxproj | 94 ++++++- src/xrGameSpy/xrGameSpy.vcxproj | 239 ++++++++++++++++++ src/xrNetServer/xrNetServer.vcxproj | 75 ++++++ src/xrParticles/xrParticles.vcxproj | 74 ++++++ src/xrPhysics/xrPhysics.vcxproj | 62 +++++ src/xrServerEntities/script_engine.cpp | 10 +- src/xrServerEntities/script_storage.h | 2 +- src/xrSound/xrSound.vcxproj | 65 +++++ src/xrXMLParser/xrXMLParser.vcxproj | 75 ++++++ 61 files changed, 4124 insertions(+), 47 deletions(-) diff --git a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj index c8cc849bb63..acaf67b4685 100644 --- a/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj +++ b/src/3rd party/LuaJIT-1.1.8/LuaJIT-1.1.8.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -32,6 +36,13 @@ true MultiByte + + DynamicLibrary + false + v120 + true + MultiByte + DynamicLibrary false @@ -50,6 +61,10 @@ + + + + @@ -63,6 +78,14 @@ false true + + $(xrIntDir)$(ProjectName)\ + $(xrGameDir)bin_rel\ + .dll + $(ProjectName) + false + true + $(xrIntDir)$(ProjectName)\ $(xrGameDir)bin_rel\ @@ -134,6 +157,41 @@ + + + Level4 + MaxSpeed + + + true + true + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + AnySuitable + Speed + true + true + LUA_BUILD_AS_DLL;WIN32;NDEBUG;%(PreprocessorDefinitions) + true + + + false + StreamingSIMDExtensions2 + Fast + 4996;4530;4100;4714;4127;4055;%(DisableSpecificWarnings) + + + true + true + true + + + Windows + false + $(xrLibDir)$(TargetName).lib + + + + Level3 diff --git a/src/3rd party/NVTT/NVTT.vcxproj b/src/3rd party/NVTT/NVTT.vcxproj index 1b991d3f908..5e00d985e79 100644 --- a/src/3rd party/NVTT/NVTT.vcxproj +++ b/src/3rd party/NVTT/NVTT.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -114,6 +118,8 @@ + + @@ -186,6 +192,13 @@ MultiByte v120 + + StaticLibrary + false + true + MultiByte + v120 + StaticLibrary false @@ -199,6 +212,12 @@ true MultiByte + + StaticLibrary + false + true + MultiByte + StaticLibrary false @@ -220,6 +239,10 @@ + + + + @@ -228,6 +251,10 @@ + + + + @@ -237,6 +264,10 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -251,6 +282,7 @@ Disabled $(ProjectDir)include;$(ProjectDir)src;$(ProjectDir)src\nvcore;$(ProjectDir)src\nvtt\squish;%(AdditionalIncludeDirectories) WIN32;DEBUG;NVTT_EXPORTS;_MBCS;%(PreprocessorDefinitions) + Disabled true @@ -278,6 +310,28 @@ true + + + Level3 + MaxSpeed + true + true + $(ProjectDir)include;$(ProjectDir)src;$(ProjectDir)src\nvcore;$(ProjectDir)src\nvtt\squish;%(AdditionalIncludeDirectories) + WIN32;DEBUG;NVTT_EXPORTS;_MBCS;%(PreprocessorDefinitions) + StreamingSIMDExtensions2 + Speed + AnySuitable + true + true + true + 4005 + + + true + true + true + + Level3 diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index 50e7cc0da2c..e9b8eed117e 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + false + DynamicLibrary v120 @@ -43,6 +53,10 @@ + + + + @@ -65,6 +79,12 @@ $(ProjectName) .dll + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + $(ProjectName) + .dll + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -81,6 +101,7 @@ Fast Level4 EditAndContinue + Disabled $(xrLibDir);%(AdditionalLibraryDirectories) @@ -112,6 +133,29 @@ $(xrLibDir)$(TargetName).lib + + + openssl;$(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) + DEBUG;CRYPTO_BUILD;CRYPTO_AS_SHARED_LIBRARY;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + Sync + MultiThreadedDLL + Fast + Level4 + ProgramDatabase + StreamingSIMDExtensions2 + true + Speed + Disabled + true + true + 4005;4996 + Disabled + + + $(xrLibDir)$(TargetName).lib + $(xrLibDir);%(AdditionalLibraryDirectories) + + openssl;$(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) diff --git a/src/3rd party/cximage/cximage.vcxproj b/src/3rd party/cximage/cximage.vcxproj index 45c729e13e5..b29766d80c8 100644 --- a/src/3rd party/cximage/cximage.vcxproj +++ b/src/3rd party/cximage/cximage.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -36,6 +40,14 @@ false true + + StaticLibrary + v120 + false + MultiByte + false + true + StaticLibrary v120 @@ -57,6 +69,11 @@ + + + + + @@ -73,6 +90,13 @@ .lib $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(ProjectName) + .lib + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86) + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -129,6 +153,51 @@ $(xrLibDir)$(TargetName).lib + + + MaxSpeed + AnySuitable + true + Speed + true + true + $(XRAY_16X_LIBS);$(SolutionDir);%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_LIB;JAS_WIN_MSVC_BUILD;CXIMAGE_BUILD;CXIMAGE_AS_SHARED_LIBRARY;%(PreprocessorDefinitions) + true + false + + + Default + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + Level4 + true + 4995;4100;4702;%(DisableSpecificWarnings) + + + NDEBUG;%(PreprocessorDefinitions) + 0x0809 + + + /ignore:4075 %(AdditionalOptions) + $(OutDir)$(ProjectName).lib + $(XRAY_16X_LIBS)\jpeg\libraries\Release;$(xrLibDir);%(AdditionalLibraryDirectories) + true + true + + + true + .\Release/cximage.bsc + + + + $(XRAY_16X_LIBS)\jpeg-8c\Release\;$(xrLibDir);%(AdditionalLibraryDirectories) + $(xrLibDir)$(TargetName).lib + + MaxSpeed diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index 2dd35018c6c..3ea3d165f9b 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,14 @@ false v120 + + DynamicLibrary + false + true + MultiByte + false + v120 + DynamicLibrary false @@ -54,6 +66,10 @@ + + + + @@ -67,6 +83,14 @@ $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ + + $(ProjectName) + $(VC_IncludePath);$(WindowsSDK_IncludePath); + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); + true + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + $(ProjectName) $(VC_IncludePath);$(WindowsSDK_IncludePath); @@ -81,12 +105,14 @@ false + $(VC_LibraryPath_x86);$(WindowsSDK_LibraryPath_x86); + $(VC_IncludePath);$(WindowsSDK_IncludePath); Level3 Disabled - ..\LuaJIT-1.1.8\src;%(AdditionalIncludeDirectories) + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalIncludeDirectories) false SyncCThrow Fast @@ -95,10 +121,11 @@ Default true ProgramDatabase + USE_LUAJIT_ONE true - $(xrLibDir);%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalLibraryDirectories) true false false @@ -135,6 +162,36 @@ $(xrLibDir)$(TargetName).lib + + + Level3 + MaxSpeed + false + true + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalIncludeDirectories) + Speed + true + SyncCThrow + false + Fast + Default + _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + true + true + StreamingSIMDExtensions2 + 4996;4244;4018 + USE_LUAJIT_ONE + + + true + true + true + $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalLibraryDirectories) + true + false + $(xrLibDir)$(TargetName).lib + + Level3 diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index 959205b971f..e5c6ee4a1fb 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -24,6 +28,7 @@ DynamicLibrary v120 MultiByte + false DynamicLibrary @@ -31,6 +36,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -48,6 +59,10 @@ + + + + @@ -61,6 +76,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -111,6 +131,47 @@ lua51.lib;%(AdditionalDependencies) + + + MaxSpeed + AnySuitable + true + Speed + true + true + $(ProjectDir);$(ProjectDir)..\luajit-2\src\;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) + true + false + Sync + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + pch.h + Level3 + ProgramDatabase + 4530;4100;4714;4127;%(DisableSpecificWarnings) + USE_LUAJIT_ONE + + + $(ProjectDir)..\luajit-2\src\;%(AdditionalLibraryDirectories) + true + false + + + true + true + false + + + $(xrLibDir)$(TargetName).lib + MachineX86 + true + lua51.lib;%(AdditionalDependencies) + + MaxSpeed @@ -154,8 +215,8 @@ Disabled - $(xrSdkDir)include;$(SolutionDir)include;%(AdditionalIncludeDirectories) - WIN32;DEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) + $(ProjectDir);$(ProjectDir)..\luajit-2\src\;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;DEBUG;LUABIND_BUILDING;_SECURE_SCL=0;_HAS_ITERATOR_DEBUGGING=0;%(PreprocessorDefinitions) false true Sync @@ -170,7 +231,7 @@ 4100;%(DisableSpecificWarnings) - $(xrLibDir);%(AdditionalLibraryDirectories) + $(ProjectDir)..\luajit-2\src\;%(AdditionalLibraryDirectories) true false Windows @@ -178,6 +239,7 @@ $(xrLibDir)$(TargetName).lib MachineX86 + lua51.lib;kernel32.lib;user32.lib;gdi32.lib;winspool.lib;comdlg32.lib;advapi32.lib;shell32.lib;ole32.lib;oleaut32.lib;uuid.lib;odbc32.lib;odbccp32.lib;%(AdditionalDependencies) @@ -186,6 +248,7 @@ Create Create + Create Create diff --git a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj index 87002fa0497..35c93132f04 100644 --- a/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj +++ b/src/3rd party/luajit/lua.JIT.1.1.4.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -27,6 +31,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + @@ -38,6 +48,10 @@ + + + + <_ProjectFileVersion>12.0.30501.0 @@ -48,6 +62,12 @@ true false + + $(xrGameDir)_bin_rel\ + $(xrIntDir)$(ProjectName)\ + true + false + $(xrGameBinDir) $(xrIntDir)$(ProjectName)\ @@ -87,6 +107,42 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + $(xrSdkDir)include;$(SolutionDir)include;dynasm;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + + + Level4 + ProgramDatabase + 4996;4530;4100;4714;4127;4055;%(DisableSpecificWarnings) + + + true + false + Windows + true + true + false + + + $(xrLibDir)$(TargetName).lib + MachineX86 + + Disabled @@ -213,10 +269,12 @@ true true + true true true + true @@ -224,6 +282,7 @@ true true + true diff --git a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj index 33830f9ecd2..df6c06fd6d0 100644 --- a/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj +++ b/src/3rd party/ode/contrib/msvc7/ode_default/default.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -38,6 +42,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -64,6 +75,11 @@ + + + + + @@ -92,6 +108,13 @@ false false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + true + false + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -208,6 +231,64 @@ regsvr32 /s /c "$(TargetPath)" + + + NDEBUG;%(PreprocessorDefinitions) + false + Win32 + true + $(IntDir)default.tlb + default.h + + + default_i.c + default_p.c + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + ../../../include;%(AdditionalIncludeDirectories) + WIN32;_WINDOWS;NDEBUG;_USRDLL;dSINGLE;MSVC;dNODEBUG;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Level3 + ProgramDatabase + 4100;4505;%(DisableSpecificWarnings) + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + $(IntDir);%(AdditionalIncludeDirectories) + + + ../../../config/msvcdefs.def + false + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + + Performing registration + regsvr32 /s /c "$(TargetPath)" + + NDEBUG;%(PreprocessorDefinitions) @@ -371,6 +452,7 @@ 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) + 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) @@ -378,6 +460,7 @@ 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) + 4244;%(DisableSpecificWarnings) 4244;%(DisableSpecificWarnings) diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index 418a1f2696e..e4cc920a5c9 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -27,6 +31,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -47,6 +58,10 @@ + + + + @@ -70,6 +85,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -165,6 +185,58 @@ MachineX86 + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(SolutionDir)3rd party\openal\include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;ROUTER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + + + + + $(IntDir) + $(IntDir) + $(IntDir) + + + Level3 + true + CompileAsCpp + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + version.lib;winmm.lib;%(AdditionalDependencies) + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + NDEBUG;%(PreprocessorDefinitions) @@ -226,11 +298,15 @@ MaxSpeed + MaxSpeed MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + @@ -241,11 +317,15 @@ MaxSpeed + MaxSpeed MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + @@ -256,11 +336,15 @@ MaxSpeed + MaxSpeed MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + @@ -271,11 +355,15 @@ MaxSpeed + MaxSpeed MaxSpeed WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS WIN32;NDEBUG;_WINDOWS;_MBCS;_USRDLL;ROUTER_EXPORTS + + diff --git a/src/Common.props b/src/Common.props index 5dd268f1f1a..f6941430a2f 100644 --- a/src/Common.props +++ b/src/Common.props @@ -13,9 +13,11 @@ $(XRAY_16X_GAME) $(xrGameDir)bin\ $(SolutionDir)3rd party\ + $(xrSdkDir)include\dxsdk\ - E:\STALKER\X-Ray Source\x_ray_1602_VS13\xray-16\src\3rd party;$(IncludePath) + E:\STALKER\X-Ray Source\x_ray_1602_VS13\xray-16\src\3rd party;$(IncludePath);$(xrSdkDir)include; + $(xrGameDir)bin_dbg\ @@ -24,6 +26,9 @@ Full AnySuitable Fast + USE_LUAJIT_ONE + USE_LUAJIT_ONE;_VC80_UPGRADE=0x0710;%(PreprocessorDefinitions) + Speed true @@ -74,5 +79,9 @@ $(xr3rdPartyDir) true + + $(dxSdkDir) + true + \ No newline at end of file diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index f4ee4366251..ce54bb1621f 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -26,6 +30,12 @@ Unicode true + + DynamicLibrary + v120 + Unicode + true + DynamicLibrary v120 @@ -44,6 +54,10 @@ + + + + @@ -66,6 +80,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -123,6 +142,36 @@ MachineX86 + + + AnySuitable + true + Speed + true + true + WIN32;DEBUG;_WINDOWS;_USRDLL;XRAPI_EXPORTS;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + Level4 + ProgramDatabase + USE_LUAJIT_ONE + + + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + AnySuitable @@ -156,6 +205,7 @@ Create Create + Create Create diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 0eeabd00ab9..2e9f12bb438 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -84,6 +99,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -98,7 +118,7 @@ Disabled true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) true Sync @@ -112,11 +132,12 @@ Use Level4 ProgramDatabase + USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) true - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true Windows true @@ -124,6 +145,7 @@ false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT @@ -167,6 +189,47 @@ LIBCMT + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R1_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + USE_LUAJIT_ONE + + + nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + false + $(xrLibDir)$(TargetName).lib + MachineX86 + LIBCMT + + MaxSpeed @@ -527,6 +590,7 @@ Create Create Create + Create Create diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index 19a3f9f4fb1..6991700698f 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -84,6 +99,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -98,7 +118,7 @@ Disabled true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;USE_RESOURCE_DEBUGGER;%(PreprocessorDefinitions) true Sync @@ -112,17 +132,19 @@ Use Level4 ProgramDatabase + USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) true - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true Windows true false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT @@ -165,6 +187,46 @@ LIBCMT + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R2_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + USE_LUAJIT_ONE + + + nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + LIBCMT + + MaxSpeed @@ -566,6 +628,7 @@ Create Create Create + Create Create diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index 914193ca90a..a64c799c0e6 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -84,6 +99,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -98,7 +118,7 @@ Disabled true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) MSAA_DX10_1;MSAA_SAMPLES=4;USE_MSAA;GBUFFER_OPTIMIZATION;USE_DX10;WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;USE_RESOURCE_DEBUGGER;%(PreprocessorDefinitions) true Sync @@ -113,17 +133,19 @@ Level4 ProgramDatabase -Zm110 %(AdditionalOptions) + USE_LUAJIT_ONE dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) true - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true Windows true false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT @@ -168,6 +190,48 @@ LIBCMT + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_DX10;WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R3_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + -Zm110 %(AdditionalOptions) + USE_LUAJIT_ONE + 4005;4099 + + + dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + LIBCMT + + MaxSpeed @@ -623,6 +687,7 @@ Create Create Create + Create Create diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index e2e25d12239..c963dda5a63 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -84,6 +99,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -98,8 +118,8 @@ Disabled true - .;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) - MSAA_DX10_1;MSAA_SAMPLES=4;USE_MSAA;GBUFFER_OPTIMIZATION;WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;USE_DX11;USE_RESOURCE_DEBUGGER;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;MSAA_DX10_1;MSAA_SAMPLES=4;USE_MSAA;GBUFFER_OPTIMIZATION;WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;USE_DX11;USE_RESOURCE_DEBUGGER;%(PreprocessorDefinitions) true Sync EnableFastChecks @@ -113,17 +133,20 @@ Level4 ProgramDatabase -Zm113 %(AdditionalOptions) + USE_LUAJIT_ONE + Disabled dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) true - $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) true Windows true false $(xrLibDir)$(TargetName).lib MachineX86 + LIBCMT @@ -168,6 +191,48 @@ LIBCMT + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)nvapi;$(DXSDK_DIR)Include;%(AdditionalIncludeDirectories) + USE_DX11;WIN32;DEBUG;_WINDOWS;_USRDLL;XRRENDER_R4_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + ProgramDatabase + -Zm113 %(AdditionalOptions) + USE_LUAJIT_ONE + 4005;4099 + + + dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + LIBCMT + + MaxSpeed @@ -634,6 +699,7 @@ Create Create Create + Create Create diff --git a/src/editor/editor.vcxproj b/src/editor/editor.vcxproj index 382d7a5284e..3b124af2b60 100644 --- a/src/editor/editor.vcxproj +++ b/src/editor/editor.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -27,6 +31,13 @@ true true + + DynamicLibrary + v120 + MultiByte + true + true + DynamicLibrary v120 @@ -47,6 +58,10 @@ + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -120,6 +140,29 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;EDITOR_LIBRARY;%(PreprocessorDefinitions) + MultiThreadedDLL + Fast + Use + pch.hpp + Level4 + ProgramDatabase + + + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) @@ -189,6 +232,7 @@ Create Create + Create Create diff --git a/src/editor_controls/editor_controls.vcxproj b/src/editor_controls/editor_controls.vcxproj index 857ee4063f0..c98ade3537d 100644 --- a/src/editor_controls/editor_controls.vcxproj +++ b/src/editor_controls/editor_controls.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -27,6 +31,13 @@ true true + + DynamicLibrary + v120 + Unicode + true + true + DynamicLibrary v120 @@ -47,6 +58,10 @@ + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -120,6 +140,31 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;EDITOR_CONTROLS_LIBRARY;%(PreprocessorDefinitions) + + + MultiThreadedDLL + Fast + Use + pch.hpp + Level4 + ProgramDatabase + + + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) @@ -175,6 +220,7 @@ Create Create + Create Create diff --git a/src/engine.sln b/src/engine.sln index 99f1cb7e10a..49ee7791c82 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -140,6 +140,8 @@ Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug_Dedicated|Any CPU = Debug_Dedicated|Any CPU Debug_Dedicated|Win32 = Debug_Dedicated|Win32 + Debug_NEW|Any CPU = Debug_NEW|Any CPU + Debug_NEW|Win32 = Debug_NEW|Win32 Debug|Any CPU = Debug|Any CPU Debug|Win32 = Debug|Win32 Mixed_Dedicated|Any CPU = Mixed_Dedicated|Any CPU @@ -156,6 +158,9 @@ Global GlobalSection(ProjectConfigurationPlatforms) = postSolution {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Win32.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Win32.Build.0 = Debug|Win32 @@ -174,6 +179,9 @@ Global {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Win32.Build.0 = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Any CPU.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Win32.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Win32.Build.0 = Debug|Win32 @@ -192,6 +200,9 @@ Global {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Win32.Build.0 = Release|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_Dedicated|Win32.ActiveCfg = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Any CPU.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Win32.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Win32.Build.0 = Debug|Win32 @@ -210,6 +221,8 @@ Global {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.Build.0 = Release|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Win32.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -225,6 +238,8 @@ Global {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Any CPU.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -240,6 +255,8 @@ Global {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -255,6 +272,8 @@ Global {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.ActiveCfg = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Any CPU.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -270,6 +289,8 @@ Global {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -285,6 +306,8 @@ Global {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.ActiveCfg = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -300,6 +323,8 @@ Global {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.ActiveCfg = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -315,6 +340,8 @@ Global {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.ActiveCfg = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -330,6 +357,9 @@ Global {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Win32.ActiveCfg = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.Build.0 = Debug|Win32 @@ -348,6 +378,8 @@ Global {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.Build.0 = Release|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Win32.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -363,6 +395,8 @@ Global {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.ActiveCfg = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -378,6 +412,8 @@ Global {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.ActiveCfg = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Any CPU.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -393,6 +429,9 @@ Global {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Win32.ActiveCfg = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.Build.0 = Debug|Win32 @@ -411,6 +450,9 @@ Global {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Win32.Build.0 = Release|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Win32.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Win32.Build.0 = Debug|Win32 @@ -429,6 +471,9 @@ Global {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Win32.Build.0 = Release|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Win32.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Win32.Build.0 = Debug|Win32 @@ -447,6 +492,9 @@ Global {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Win32.Build.0 = Release|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Win32.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Win32.Build.0 = Debug|Win32 @@ -465,9 +513,11 @@ Global {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Win32.Build.0 = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Any CPU.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Win32.ActiveCfg = Debug|Win32 - {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Win32.Build.0 = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -483,6 +533,9 @@ Global {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Win32.Build.0 = Release|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Any CPU.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Win32.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Win32.Build.0 = Debug|Win32 @@ -501,6 +554,9 @@ Global {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Win32.Build.0 = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Win32.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Win32.Build.0 = Debug|Win32 @@ -519,6 +575,9 @@ Global {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Win32.Build.0 = Release|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Any CPU.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Win32.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Win32.Build.0 = Debug|Win32 @@ -537,6 +596,9 @@ Global {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Win32.Build.0 = Release|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Any CPU.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Win32.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Win32.Build.0 = Debug|Win32 @@ -555,6 +617,9 @@ Global {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Win32.Build.0 = Release|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Win32.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Win32.Build.0 = Debug|Win32 @@ -573,6 +638,9 @@ Global {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Win32.Build.0 = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Win32.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Win32.Build.0 = Debug|Win32 @@ -592,6 +660,8 @@ Global {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -610,6 +680,8 @@ Global {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Any CPU.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -628,6 +700,8 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Any CPU.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -645,6 +719,8 @@ Global {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Any CPU.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -661,6 +737,8 @@ Global {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Any CPU.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -678,6 +756,8 @@ Global {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Any CPU.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -696,6 +776,8 @@ Global {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Any CPU.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -713,6 +795,9 @@ Global {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Win32.ActiveCfg = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.Build.0 = Debug|Win32 @@ -731,6 +816,9 @@ Global {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Win32.Build.0 = Release|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Any CPU.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Win32.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Win32.Build.0 = Debug|Win32 @@ -749,6 +837,8 @@ Global {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.Build.0 = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Win32.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -764,6 +854,8 @@ Global {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.ActiveCfg = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Any CPU.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -780,6 +872,9 @@ Global {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Any CPU.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.Build.0 = Debug_Dedicated|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Win32.ActiveCfg = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Win32.Build.0 = Debug|Win32 @@ -800,6 +895,9 @@ Global {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Win32.Build.0 = Release|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Win32.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Win32.Build.0 = Debug|Win32 @@ -818,6 +916,8 @@ Global {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.Build.0 = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed_Dedicated|Any CPU.ActiveCfg = Release|Win32 @@ -833,6 +933,8 @@ Global {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -848,6 +950,8 @@ Global {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.ActiveCfg = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 @@ -863,6 +967,9 @@ Global {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Win32.ActiveCfg = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Any CPU.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.Build.0 = Debug|Win32 @@ -882,6 +989,8 @@ Global {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Any CPU.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Win32.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -900,6 +1009,8 @@ Global {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Any CPU.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -917,6 +1028,9 @@ Global {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Win32.ActiveCfg = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.Build.0 = Debug|Win32 @@ -935,6 +1049,9 @@ Global {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Win32.Build.0 = Release|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Win32.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Win32.Build.0 = Debug|Win32 @@ -953,6 +1070,8 @@ Global {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.Build.0 = Release|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Any CPU.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -968,6 +1087,8 @@ Global {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.ActiveCfg = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 @@ -984,6 +1105,9 @@ Global {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Any CPU.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Win32.Build.0 = Debug|Win32 @@ -1005,6 +1129,9 @@ Global {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Any CPU.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Win32.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Win32.Build.0 = Debug|Win32 @@ -1026,6 +1153,8 @@ Global {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.Build.0 = Debug|Win32 @@ -1046,6 +1175,9 @@ Global {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_NEW|Any CPU.ActiveCfg = Debug_NEW|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_NEW|Win32.ActiveCfg = Debug_NEW|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_NEW|Win32.Build.0 = Debug_NEW|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Any CPU.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.Build.0 = Debug|Win32 diff --git a/src/plugins/Max/MAX_Export60.vcxproj b/src/plugins/Max/MAX_Export60.vcxproj index c35b15460be..689a115437c 100644 --- a/src/plugins/Max/MAX_Export60.vcxproj +++ b/src/plugins/Max/MAX_Export60.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -37,6 +41,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -63,6 +74,11 @@ + + + + + @@ -89,6 +105,12 @@ true false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + true + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -191,6 +213,54 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + AnySuitable + true + $(DXSDK_DIR)Include;$(SolutionDir);$(XRAY_16X_LIBS)3dsmax/ver-6.0/include;$(XRAY_16X_LIBS)3dsmax/ver-6.0/cssdk/include;$(SolutionDir)plugins\shared;%(AdditionalIncludeDirectories) + UTILITY_EXPORTS;WIN32;_WINDOWS;_USRDLL;_MAX_EXPORT;_MAX_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + stdafx.h + + + Level3 + true + false + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0809 + + + /MACHINE:I386 %(AdditionalOptions) + mesh.lib;geom.lib;gfx.lib;maxutil.lib;core.lib;paramblk2.lib;comctl32.lib;odbc32.lib;odbccp32.lib;Winmm.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_export.dlu + true + $(XRAY_16X_LIBS)\bugtrap\bin;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)3dsmax/ver-6.0/lib;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + Export\Utility.def + $(OutDir)xray_export.pdb + true + 0x08970000 + false + + NDEBUG;%(PreprocessorDefinitions) @@ -308,6 +378,7 @@ true true true + true true @@ -318,6 +389,7 @@ Create Create Create + Create Create diff --git a/src/plugins/Max/MAX_Material60.vcxproj b/src/plugins/Max/MAX_Material60.vcxproj index 1d8238d290a..851a974bbd0 100644 --- a/src/plugins/Max/MAX_Material60.vcxproj +++ b/src/plugins/Max/MAX_Material60.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -162,6 +181,53 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + /LD %(AdditionalOptions) + OnlyExplicitInline + $(XRAY_16X_LIBS)3dsmax/ver-6.0/include;$(XRAY_16X_LIBS)3dsmax/ver-6.0/cssdk/include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;_MAX_MATERIAL;_MAX_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Cdecl + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + Winmm.lib;comctl32.lib;core.lib;geom.lib;gfx.lib;mesh.lib;maxutil.lib;maxscrpt.lib;manipsys.lib;paramblk2.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_material.dlt + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(XRAY_16X_LIBS)3dsmax/ver-6.0/lib;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + ..\Shared\GameMaterial.def + $(OutDir)xray_material.pdb + Windows + true + 0x3e0e0000 + false + + NDEBUG;%(PreprocessorDefinitions) @@ -219,6 +285,7 @@ Create Create + Create Create diff --git a/src/plugins/Maya/Maya_Export2008.vcxproj b/src/plugins/Maya/Maya_Export2008.vcxproj index 761eac9c9d6..62ea1a24be8 100644 --- a/src/plugins/Maya/Maya_Export2008.vcxproj +++ b/src/plugins/Maya/Maya_Export2008.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -154,6 +173,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(DXSDK_DIR)Include;$(XRAY_16X_LIBS)maya/ver-2008/include;../Shared;$(SolutionDir)xrEngine;$(SolutionDir)utils/xrQSlim/src;$(XRAY_16X_LIBS)MagicSoftware\FreeMagic\Include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_EXPORT;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaAnim.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_export.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2008/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_export.pdb + Windows + false + + NDEBUG;%(PreprocessorDefinitions) @@ -201,8 +262,10 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -228,6 +291,8 @@ + + @@ -237,6 +302,8 @@ + + @@ -249,6 +316,8 @@ + + @@ -258,6 +327,8 @@ + + @@ -282,6 +353,7 @@ Create Create + Create Create diff --git a/src/plugins/Maya/Maya_Export2009.vcxproj b/src/plugins/Maya/Maya_Export2009.vcxproj index 68fe7d7ef92..b2c5d4a5b1c 100644 --- a/src/plugins/Maya/Maya_Export2009.vcxproj +++ b/src/plugins/Maya/Maya_Export2009.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -155,6 +174,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(DXSDK_DIR)Include;$(XRAY_16X_LIBS)maya/ver-2009/include;../Shared;$(SolutionDir)xrEngine;$(SolutionDir)utils/xrQSlim/src/;$(XRAY_16X_LIBS)MagicSoftware\FreeMagic\Include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_EXPORT;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaAnim.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_export.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2009/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_export.pdb + Windows + false + + NDEBUG;%(PreprocessorDefinitions) @@ -202,8 +263,10 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -229,6 +292,8 @@ + + @@ -238,6 +303,8 @@ + + @@ -250,6 +317,8 @@ + + @@ -259,6 +328,8 @@ + + @@ -283,6 +354,7 @@ Create Create + Create Create diff --git a/src/plugins/Maya/Maya_Material2008.vcxproj b/src/plugins/Maya/Maya_Material2008.vcxproj index 29dd489fe1c..0dfc4605621 100644 --- a/src/plugins/Maya/Maya_Material2008.vcxproj +++ b/src/plugins/Maya/Maya_Material2008.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -155,6 +174,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)maya/ver-2008/include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_MATERIAL;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaRender.lib;OpenMayaUI.lib;glu32.lib;opengl32.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_material.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2008/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_material.pdb + Windows + false + + NDEBUG;%(PreprocessorDefinitions) @@ -206,6 +267,7 @@ Create Create + Create Create diff --git a/src/plugins/Maya/Maya_Material2009.vcxproj b/src/plugins/Maya/Maya_Material2009.vcxproj index 8a3b7ec73db..83cedce6ab5 100644 --- a/src/plugins/Maya/Maya_Material2009.vcxproj +++ b/src/plugins/Maya/Maya_Material2009.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 false + + DynamicLibrary + v120 + false + DynamicLibrary v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -155,6 +174,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)maya/ver-2009/include;%(AdditionalIncludeDirectories) + NDEBUG;WIN32;_WINDOWS;NT_PLUGIN;_MAYA_MATERIAL;_MAYA_PLUGIN;XRCORE_STATIC;%(PreprocessorDefinitions) + true + false + + + MultiThreadedDLL + true + Fast + false + true + Use + Level3 + true + Default + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 /export:initializePlugin /export:uninitializePlugin %(AdditionalOptions) + odbc32.lib;odbccp32.lib;Foundation.lib;OpenMaya.lib;OpenMayaRender.lib;OpenMayaUI.lib;glu32.lib;opengl32.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xrayMaya_material.mll + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)maya/ver-2009/lib;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);$(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + $(OutDir)xrayMaya_material.pdb + Windows + false + + NDEBUG;%(PreprocessorDefinitions) @@ -206,6 +267,7 @@ Create Create + Create Create diff --git a/src/plugins/lw/LW_Export80.vcxproj b/src/plugins/lw/LW_Export80.vcxproj index a1ee5a7e339..260c59f1df6 100644 --- a/src/plugins/lw/LW_Export80.vcxproj +++ b/src/plugins/lw/LW_Export80.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -31,6 +35,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + DynamicLibrary v120 @@ -50,6 +60,11 @@ + + + + + @@ -64,6 +79,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -120,6 +140,55 @@ + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;$(XRAY_16X_LIBS)lightwave/ver-8.0/include/lwsdk;../Shared;$(ProjectDir)export;%(AdditionalIncludeDirectories) + NDEBUG;_X86_;_WIN32;WIN32;_WINDOWS;_USRDLL;_LW_PLUGIN;_LW_EXPORT;XRCORE_STATIC;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + true + Fast + false + true + Use + stdafx.h + $(IntDir)$(TargetName).pch + $(IntDir) + $(IntDir) + $(IntDir) + false + Level3 + true + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;lw_server.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_export.p + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;Server\$(Configuration);$(xrLibDir);%(AdditionalLibraryDirectories) + Server\serv.def + + + false + + + + NDEBUG;%(PreprocessorDefinitions) @@ -254,6 +323,8 @@ false + + @@ -263,11 +334,15 @@ false + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -276,6 +351,8 @@ false + + @@ -285,6 +362,8 @@ false + + @@ -294,6 +373,8 @@ false + + @@ -303,6 +384,8 @@ false + + @@ -312,6 +395,8 @@ false + + @@ -321,6 +406,8 @@ false + + @@ -330,6 +417,8 @@ false + + @@ -341,11 +430,15 @@ $(IntDir)%(Filename)1.xdc + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -354,6 +447,8 @@ false + + @@ -365,11 +460,15 @@ $(IntDir)%(Filename)1.xdc + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -386,6 +485,8 @@ false + + @@ -401,6 +502,7 @@ Create Create + Create Create @@ -411,9 +513,12 @@ $(IntDir)%(Filename).xdc + + $(IntDir)%(Filename).obj + $(IntDir)%(Filename).obj $(IntDir)%(Filename).obj diff --git a/src/plugins/lw/LW_Server.vcxproj b/src/plugins/lw/LW_Server.vcxproj index b5ff52c39ca..3bdc01c39ea 100644 --- a/src/plugins/lw/LW_Server.vcxproj +++ b/src/plugins/lw/LW_Server.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -30,6 +34,12 @@ false MultiByte + + StaticLibrary + v120 + false + MultiByte + StaticLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -62,6 +77,10 @@ $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -96,6 +115,33 @@ true + + + MaxSpeed + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;%(AdditionalIncludeDirectories) + _X86_;_WIN32;WIN32;NDEBUG;_LIB;%(PreprocessorDefinitions) + true + true + + + MultiThreadedDLL + true + Fast + false + Level3 + true + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + $(xrLibDir)$(TargetName).lib + true + + MaxSpeed @@ -153,8 +199,10 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc diff --git a/src/plugins/lw/LW_Shader80.vcxproj b/src/plugins/lw/LW_Shader80.vcxproj index 9ba04f04bc1..1e7eff4b719 100644 --- a/src/plugins/lw/LW_Shader80.vcxproj +++ b/src/plugins/lw/LW_Shader80.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -31,6 +35,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + DynamicLibrary v120 @@ -50,6 +60,11 @@ + + + + + @@ -64,6 +79,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinPlugDir)$(ProjectName)\ + $(xrIntDir)$(ProjectName)\ + false + $(xrBinPlugDir)$(ProjectName)\ $(xrIntDir)$(ProjectName)\ @@ -114,6 +134,48 @@ false + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + $(XRAY_16X_LIBS)lightwave/ver-8.0/include;$(XRAY_16X_LIBS)lightwave/ver-8.0/include/lwsdk;../Shared;%(AdditionalIncludeDirectories) + NDEBUG;_X86_;_WIN32;WIN32;_WINDOWS;_USRDLL;_LW_PLUGIN;_LW_SHADER;XRCORE_STATIC;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + true + Precise + true + Use + stdafx.h + + + Level3 + true + Cdecl + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;lw_server.lib;xrcorestatic.lib;%(AdditionalDependencies) + $(OutDir)xray_shader.p + true + $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) + Server\serv.def + false + + NDEBUG;%(PreprocessorDefinitions) @@ -212,10 +274,14 @@ + + + + @@ -224,6 +290,8 @@ + + @@ -231,6 +299,7 @@ Create Create + Create Create diff --git a/src/utils/CompressionTest/CompressionTest.vcxproj b/src/utils/CompressionTest/CompressionTest.vcxproj index 2ed6f451b54..8776c081b51 100644 --- a/src/utils/CompressionTest/CompressionTest.vcxproj +++ b/src/utils/CompressionTest/CompressionTest.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,11 @@ v120 MultiByte + + Application + v120 + MultiByte + Application v120 @@ -43,6 +52,11 @@ + + + + + @@ -67,6 +81,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -115,6 +134,31 @@ MachineX86 + + + %(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions) + + + MultiThreadedDLL + false + true + + + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + Console + true + true + false + MachineX86 + + %(AdditionalIncludeDirectories) @@ -187,6 +231,7 @@ Level1 Level1 + Level1 Level1 @@ -262,6 +307,7 @@ _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) _CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) diff --git a/src/utils/ETools/ETools.vcxproj b/src/utils/ETools/ETools.vcxproj index 4f86280ec32..fa118206bfd 100644 --- a/src/utils/ETools/ETools.vcxproj +++ b/src/utils/ETools/ETools.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -41,6 +45,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -66,6 +77,11 @@ + + + + + @@ -80,6 +96,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -149,6 +170,60 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)utils\xrQSlim\src;$(XRAY_16X_LIBS)libvorbis-1.2.3\include;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;ETOOLS_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + Level3 + true + ProgramDatabase + Cdecl + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + /MACHINE:I386 %(AdditionalOptions) + libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;%(AdditionalDependencies) + false + $(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)libvorbis-1.2.3\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;%(AdditionalLibraryDirectories) + user32.lib;%(IgnoreSpecificDefaultLibraries) + true + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -304,6 +379,7 @@ Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -313,8 +389,10 @@ $(IntDir)%(Filename)1.obj TurnOffAllWarnings $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -326,18 +404,21 @@ Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings true true true + true true Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -345,12 +426,14 @@ Level4 TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings Create Create Create + Create Create diff --git a/src/utils/LWO/LWO.vcxproj b/src/utils/LWO/LWO.vcxproj index b3cafe51ad6..096236778cf 100644 --- a/src/utils/LWO/LWO.vcxproj +++ b/src/utils/LWO/LWO.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -30,6 +34,12 @@ false MultiByte + + DynamicLibrary + v120 + false + MultiByte + DynamicLibrary v120 @@ -49,6 +59,11 @@ + + + + + @@ -63,6 +78,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -107,6 +127,40 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + OnlyExplicitInline + WIN32;NDEBUG;_WINDOWS;_USRDLL;LWO_EXPORTS;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + true + MultiThreadedDLL + true + $(IntDir) + $(IntDir) + $(IntDir) + Level3 + true + StdCall + StreamingSIMDExtensions2 + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + odbc32.lib;odbccp32.lib;%(AdditionalDependencies) + true + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) diff --git a/src/utils/ctool/ctool.vcxproj b/src/utils/ctool/ctool.vcxproj index 8bd8c0ee509..ace3a6ad237 100644 --- a/src/utils/ctool/ctool.vcxproj +++ b/src/utils/ctool/ctool.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -26,6 +30,12 @@ Unicode true + + Application + v120 + Unicode + true + Application v120 @@ -44,6 +54,10 @@ + + + + @@ -66,6 +80,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -113,6 +132,29 @@ MachineX86 + + + %(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) + MultiThreadedDLL + + + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;%(AdditionalLibraryDirectories) + true + Console + true + true + false + + + MachineX86 + + %(AdditionalIncludeDirectories) diff --git a/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj b/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj index f558ee584af..d5e7ba07cbc 100644 --- a/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj +++ b/src/utils/mp_configs_verifyer/mp_configs_verifyer.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,12 @@ MultiByte true + + Application + v120 + MultiByte + true + Application v120 @@ -43,6 +53,10 @@ + + + + @@ -63,6 +77,10 @@ $(xrBinDir) $(xrIntDir)$(ProjectName)\ + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -110,6 +128,29 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + true + true + false + + + MachineX86 + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) diff --git a/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj b/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj index e613e6231b1..205caca0da8 100644 --- a/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj +++ b/src/utils/mp_screenshots_info/mp_screenshots_info.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,12 @@ MultiByte true + + Application + v120 + MultiByte + true + Application v120 @@ -43,6 +53,10 @@ + + + + @@ -63,6 +77,10 @@ $(xrBinDir) $(xrIntDir)$(ProjectName)\ + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -116,6 +134,33 @@ MachineX86 + + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + Use + pch.h + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + $(OutDir)$(ProjectName).pdb + Console + true + true + false + + + MachineX86 + + $(xrSdkDir)include;%(AdditionalIncludeDirectories) @@ -148,6 +193,7 @@ Create Create + Create Create diff --git a/src/utils/xrAI/xrAI.vcxproj b/src/utils/xrAI/xrAI.vcxproj index 3ec8e594fee..e19a9e99558 100644 --- a/src/utils/xrAI/xrAI.vcxproj +++ b/src/utils/xrAI/xrAI.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -61,6 +72,11 @@ + + + + + @@ -85,6 +101,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -105,7 +126,7 @@ Disabled - .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) + .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) WIN32;_WINDOWS;DEBUG;AI_COMPILER;_SECURE_SCL=0;%(PreprocessorDefinitions) Sync EnableFastChecks @@ -129,7 +150,7 @@ /MACHINE:I386 %(AdditionalOptions) true - $(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\DebugDLL;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\DebugDLL;%(AdditionalLibraryDirectories) true false Windows @@ -158,7 +179,7 @@ true true true - .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) + .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) WIN32;NDEBUG;_WINDOWS;AI_COMPILER;_SECURE_SCL=0;%(PreprocessorDefinitions) true @@ -183,7 +204,63 @@ /MACHINE:I386 %(AdditionalOptions) true - $(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) + true + Windows + 0 + 0 + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + NotSet + FreeImage.lib;%(AdditionalDependencies) + + + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;$(XRAY_16X_LIBS)FreeImage\Dist;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;AI_COMPILER;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) true Windows 0 @@ -325,6 +402,7 @@ AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode @@ -337,6 +415,7 @@ true true true + true true @@ -344,17 +423,20 @@ true true true + true true true true true + true true AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode @@ -364,6 +446,7 @@ Use Use Use + Use Use @@ -381,6 +464,7 @@ Create Create Create + Create Create @@ -393,6 +477,7 @@ true true true + true true diff --git a/src/utils/xrCompress/xrCompress.vcxproj b/src/utils/xrCompress/xrCompress.vcxproj index e1d941653d1..a7ceb49b716 100644 --- a/src/utils/xrCompress/xrCompress.vcxproj +++ b/src/utils/xrCompress/xrCompress.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -42,6 +46,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -67,6 +78,11 @@ + + + + + @@ -81,6 +97,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -140,6 +161,53 @@ false + + + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_CONSOLE;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + stdafx.h + + + Level3 + true + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Console + true + true + true + UseLinkTimeCodeGeneration + false + + $(OutDir)$(TargetName).tlb @@ -273,6 +341,8 @@ + + @@ -283,6 +353,8 @@ + + @@ -293,6 +365,8 @@ + + @@ -303,6 +377,8 @@ + + @@ -313,6 +389,8 @@ + + @@ -323,6 +401,8 @@ + + @@ -333,6 +413,8 @@ + + @@ -343,6 +425,8 @@ + + @@ -353,6 +437,8 @@ + + @@ -363,6 +449,8 @@ + + @@ -373,6 +461,8 @@ + + @@ -383,6 +473,8 @@ + + @@ -393,6 +485,8 @@ + + @@ -403,6 +497,8 @@ + + @@ -413,6 +509,8 @@ + + @@ -423,6 +521,8 @@ + + @@ -433,6 +533,8 @@ + + @@ -443,6 +545,8 @@ + + @@ -453,6 +557,8 @@ + + @@ -463,6 +569,8 @@ + + @@ -473,6 +581,8 @@ + + @@ -483,6 +593,8 @@ + + @@ -493,6 +605,8 @@ + + @@ -503,6 +617,8 @@ + + @@ -513,6 +629,8 @@ + + @@ -523,6 +641,8 @@ + + @@ -533,6 +653,8 @@ + + @@ -543,6 +665,8 @@ + + @@ -553,6 +677,8 @@ + + @@ -563,6 +689,8 @@ + + @@ -573,6 +701,8 @@ + + @@ -583,6 +713,8 @@ + + @@ -593,6 +725,8 @@ + + @@ -603,6 +737,8 @@ + + @@ -613,6 +749,8 @@ + + @@ -623,6 +761,8 @@ + + @@ -633,6 +773,8 @@ + + @@ -643,6 +785,8 @@ + + @@ -653,6 +797,8 @@ + + @@ -663,6 +809,8 @@ + + @@ -673,6 +821,8 @@ + + @@ -683,6 +833,8 @@ + + @@ -693,6 +845,8 @@ + + @@ -703,6 +857,8 @@ + + @@ -713,6 +869,8 @@ + + @@ -723,6 +881,8 @@ + + @@ -733,6 +893,8 @@ + + @@ -743,6 +905,8 @@ + + @@ -753,6 +917,8 @@ + + @@ -763,6 +929,8 @@ + + @@ -773,6 +941,8 @@ + + @@ -783,6 +953,8 @@ + + @@ -793,6 +965,8 @@ + + @@ -803,6 +977,8 @@ + + @@ -813,6 +989,8 @@ + + @@ -823,6 +1001,8 @@ + + @@ -833,6 +1013,8 @@ + + @@ -843,6 +1025,8 @@ + + @@ -853,6 +1037,8 @@ + + @@ -863,6 +1049,8 @@ + + @@ -873,6 +1061,8 @@ + + @@ -883,6 +1073,8 @@ + + @@ -893,6 +1085,8 @@ + + @@ -903,6 +1097,8 @@ + + @@ -913,6 +1109,8 @@ + + @@ -923,6 +1121,8 @@ + + @@ -933,6 +1133,8 @@ + + @@ -943,6 +1145,8 @@ + + @@ -953,6 +1157,8 @@ + + @@ -963,6 +1169,8 @@ + + @@ -971,6 +1179,7 @@ Create Create Create + Create Create diff --git a/src/utils/xrDO_Light/xrDO_Light.vcxproj b/src/utils/xrDO_Light/xrDO_Light.vcxproj index 4ffb6cb6e90..293c32ad942 100644 --- a/src/utils/xrDO_Light/xrDO_Light.vcxproj +++ b/src/utils/xrDO_Light/xrDO_Light.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -61,6 +72,11 @@ + + + + + @@ -85,6 +101,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -184,6 +205,58 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -298,6 +371,7 @@ Create Create Create + Create Create diff --git a/src/utils/xrDXT/DXT.vcxproj b/src/utils/xrDXT/DXT.vcxproj index dcf97015e91..cdec127afbc 100644 --- a/src/utils/xrDXT/DXT.vcxproj +++ b/src/utils/xrDXT/DXT.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -43,6 +47,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -68,6 +79,11 @@ + + + + + @@ -83,6 +99,12 @@ false .dll + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + .dll + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -156,6 +178,65 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + Release\DXT.tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)3rd party\nvtt\include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;DXT_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + stdafx.h + $(IntDir)$(ProjectName).pch + $(IntDir) + $(IntDir) + $(IntDir) + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrLibDir);%(AdditionalLibraryDirectories) + %(IgnoreSpecificDefaultLibraries) + true + $(OutDir)$(TargetName).pdb + false + + + true + true + true + UseLinkTimeCodeGeneration + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -334,6 +415,7 @@ TurnOffAllWarnings TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -345,6 +427,7 @@ Create Create Create + Create Create diff --git a/src/utils/xrLC/xrLC.vcxproj b/src/utils/xrLC/xrLC.vcxproj index b996edac783..559e7f46421 100644 --- a/src/utils/xrLC/xrLC.vcxproj +++ b/src/utils/xrLC/xrLC.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -43,6 +47,14 @@ MultiByte true + + Application + v120 + false + false + MultiByte + true + Application v120 @@ -69,6 +81,11 @@ + + + + + @@ -83,6 +100,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -153,6 +175,63 @@ NotSet + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + /Gs %(AdditionalOptions) + Full + AnySuitable + true + Speed + true + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)utils\xrQSlim\src;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Include;%(AdditionalIncludeDirectories) + _USE_MATH_DEFINES;WIN32;_WINDOWS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level3 + true + ProgramDatabase + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + NotSet + true + $(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + NotSet + + NDEBUG;%(PreprocessorDefinitions) @@ -362,14 +441,20 @@ + + + + + + @@ -379,8 +464,10 @@ $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.xdc + $(IntDir)%(Filename)1.xdc $(IntDir)%(Filename)1.xdc @@ -392,6 +479,7 @@ true true true + true true @@ -405,6 +493,7 @@ true true true + true true @@ -417,6 +506,7 @@ Create Create Create + Create Create @@ -426,12 +516,14 @@ true true true + true true true true true + true true @@ -439,6 +531,7 @@ true true true + true true @@ -448,12 +541,14 @@ true true true + true true true true true + true true @@ -462,6 +557,7 @@ true true true + true true @@ -475,6 +571,7 @@ All + All All @@ -484,6 +581,7 @@ true true true + true true @@ -492,12 +590,14 @@ true true true + true true true true true + true true @@ -507,12 +607,14 @@ true true true + true true true true true + true true @@ -520,12 +622,14 @@ true true true + true true true true true + true true diff --git a/src/utils/xrLC_Light/xrLC_Light.vcxproj b/src/utils/xrLC_Light/xrLC_Light.vcxproj index d0dbaf0259e..af0a7dcc0b1 100644 --- a/src/utils/xrLC_Light/xrLC_Light.vcxproj +++ b/src/utils/xrLC_Light/xrLC_Light.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -58,6 +68,10 @@ + + + + @@ -81,6 +95,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -146,6 +165,37 @@ zlibMS.lib;%(AdditionalDependencies) + + + Full + AnySuitable + true + Speed + true + true + $(DXSDK_DIR)Include;$(xrSdkDir)include;$(SolutionDir)xrQSlim\src;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)zlib\include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRLC_LIGHT_EXPORTS;%(PreprocessorDefinitions) + + + MultiThreadedDLL + StreamingSIMDExtensions2 + Fast + Use + Level3 + ProgramDatabase + + + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)zlib\bin;%(AdditionalLibraryDirectories) + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + zlibMS.lib;%(AdditionalDependencies) + + Full @@ -305,14 +355,20 @@ + + + + + + @@ -364,6 +420,7 @@ true true true + true true @@ -373,6 +430,7 @@ true true true + true true @@ -380,6 +438,7 @@ true true true + true true @@ -389,6 +448,7 @@ Create Create Create + Create Create diff --git a/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj b/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj index 6fb5f290830..a17edc72016 100644 --- a/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj +++ b/src/utils/xrLC_LightStab/xrLC_LightStab.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -58,6 +68,10 @@ + + + + @@ -81,6 +95,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -139,6 +158,30 @@ MachineX86 + + + $(xrSdkDir)include;$(SolutionDir)xrQSlim\src;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRLC_LIGHT_STAB_EXPORTS;%(PreprocessorDefinitions) + + + MultiThreadedDLL + Fast + Use + Level3 + ProgramDatabase + StreamingSIMDExtensions2 + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + $(xrSdkDir)include;$(SolutionDir)xrQSlim\src;%(AdditionalIncludeDirectories) @@ -196,6 +239,8 @@ + + diff --git a/src/utils/xrQSlim/xrQSlim.vcxproj b/src/utils/xrQSlim/xrQSlim.vcxproj index f15bddd6fd5..61743da0dbb 100644 --- a/src/utils/xrQSlim/xrQSlim.vcxproj +++ b/src/utils/xrQSlim/xrQSlim.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -34,6 +38,11 @@ v120 MultiByte + + StaticLibrary + v120 + MultiByte + StaticLibrary v120 @@ -57,6 +66,11 @@ + + + + + @@ -79,6 +93,10 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -129,6 +147,32 @@ ProgramDatabase + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;XR_QSLIM_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level3 + ProgramDatabase + + MaxSpeed @@ -220,6 +264,7 @@ Create Create Create + Create Create diff --git a/src/utils/xrSE_Factory/script_space.h b/src/utils/xrSE_Factory/script_space.h index ce020a64cfa..595da0e44e0 100644 --- a/src/utils/xrSE_Factory/script_space.h +++ b/src/utils/xrSE_Factory/script_space.h @@ -17,11 +17,14 @@ #pragma warning(disable:4530) #pragma warning(disable:4267) -extern "C" { - #include - #include - #include -}; +//AVO: lua re-org +#include "lua.hpp" +/*extern "C" { +#include +#include +#include +}*/ +//-AVO #include #include diff --git a/src/utils/xrSE_Factory/xrSE_Factory.cpp b/src/utils/xrSE_Factory/xrSE_Factory.cpp index 49acfcd4636..5c6267b7e5d 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.cpp +++ b/src/utils/xrSE_Factory/xrSE_Factory.cpp @@ -22,7 +22,14 @@ //#include "character_rank.h" //#include "character_reputation.h" -#include +//AVO: lua re-org +#ifdef USE_LUAJIT_ONE //defined in project props +#pragma comment(lib, "LuaJIT-1.1.8.lib") +#else +#pragma comment(lib, "lua51.lib" ) +#endif +//#include "lua/library_linkage.h" +//-AVO #include #pragma comment(lib,"xrCore.lib") diff --git a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj index b22e7ad7904..1245d06e952 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj +++ b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -30,6 +34,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -55,6 +65,11 @@ + + + + + @@ -90,6 +105,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrBinDir) + $(xrIntDir)$(ProjectName)\ + false + $(xrBinDir) $(xrIntDir)$(ProjectName)\ @@ -99,7 +119,7 @@ Disabled false - .;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;%(AdditionalIncludeDirectories) WIN32;DEBUG;_WINDOWS;_USRDLL;XRSE_FACTORY_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) false false @@ -120,7 +140,7 @@ /MACHINE:I386 %(AdditionalOptions) true - $(XRAY_16X_LIBS)bugtrap\Bin;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) true Windows true @@ -216,6 +236,45 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(SolutionDir)xrServerEntities;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRSE_FACTORY_EXPORTS;LUABIND_NO_ERROR_CHECKING;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + + + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + Level4 + ProgramDatabase + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + MaxSpeed @@ -401,8 +460,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -412,8 +473,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -422,8 +485,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -432,8 +497,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -444,10 +511,13 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch Create + Create Create pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -461,8 +531,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -471,8 +543,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -481,8 +555,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -491,8 +567,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -501,8 +579,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -511,8 +591,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -521,8 +603,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -532,8 +616,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -542,8 +628,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -552,8 +640,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -562,8 +652,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -572,8 +664,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -582,8 +676,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -592,8 +688,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -602,10 +700,13 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch true + true true pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -614,8 +715,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -624,8 +727,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -635,8 +740,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -653,8 +760,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -663,8 +772,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -673,8 +784,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -684,8 +797,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -694,8 +809,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -704,8 +821,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -714,8 +833,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -724,8 +845,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -734,8 +857,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -744,8 +869,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -754,8 +881,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -764,8 +893,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -774,8 +905,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -784,8 +917,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -799,6 +934,7 @@ Create Create Create + Create Create @@ -807,8 +943,10 @@ pch_script.h $(IntDir)$(ProjectName)_script.pch pch_script.h + pch_script.h pch_script.h $(IntDir)$(ProjectName)_script.pch + $(IntDir)$(ProjectName)_script.pch $(IntDir)$(ProjectName)_script.pch @@ -820,9 +958,12 @@ true + true true + + diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 78f745094ea..77ca8d5f5a7 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -42,6 +46,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -67,6 +78,11 @@ + + + + + @@ -81,6 +97,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -153,6 +174,64 @@ NotSet + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRCDB_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + + + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + + + $(xrLibDir)$(TargetName).lib + NotSet + + NDEBUG;%(PreprocessorDefinitions) @@ -309,6 +388,7 @@ false true true + true true @@ -393,6 +473,7 @@ Create Create Create + Create Create @@ -401,6 +482,7 @@ false AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode @@ -409,12 +491,14 @@ false AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode false AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index 5d323a98309..a029230838b 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -50,6 +54,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -79,6 +90,11 @@ + + + + + @@ -93,6 +109,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -166,6 +187,61 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRCPU_PIPE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + 4995 + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -330,6 +406,7 @@ Create Create Create + Create Create @@ -340,12 +417,16 @@ AssemblyAndSourceCode MaxSpeed + MaxSpeed MaxSpeed false + false false false + false false AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index a83f238e9ef..b2cde8ab5a3 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -83,6 +98,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -97,7 +117,7 @@ Disabled .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) - WIN32;DEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + USE_LUAJIT_ONE;WIN32;DEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) false true Sync @@ -167,6 +187,48 @@ NotSet + + + Disabled + Default + true + Speed + true + true + false + .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + true + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + EditAndContinue + USE_LUAJIT_ONE + + + $(xrSdkDir)libraries;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + Default + false + + + $(xrLibDir)$(TargetName).lib + NotSet + + MaxSpeed @@ -252,9 +314,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -266,9 +331,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -280,9 +348,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -294,12 +365,16 @@ TurnOffAllWarnings true + true true + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -311,9 +386,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -325,9 +403,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -339,9 +420,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -353,9 +437,12 @@ $(IntDir)%(Filename)1.obj + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj @@ -367,9 +454,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -389,6 +479,7 @@ true true true + true true @@ -406,9 +497,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -421,11 +515,14 @@ + + 4702 4702 4702 + 4702 4702 @@ -435,6 +532,8 @@ + + @@ -451,6 +550,7 @@ Create false Create + Create Create @@ -460,6 +560,7 @@ true true true + true true @@ -470,16 +571,19 @@ AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode AssemblyAndSourceCode + AssemblyAndSourceCode AssemblyAndSourceCode @@ -532,6 +636,7 @@ true true true + true true diff --git a/src/xrCore/xrCoreStatic.vcxproj b/src/xrCore/xrCoreStatic.vcxproj index 971a4c0bb2b..b75d912edff 100644 --- a/src/xrCore/xrCoreStatic.vcxproj +++ b/src/xrCore/xrCoreStatic.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -35,6 +39,12 @@ MultiByte true + + StaticLibrary + v120 + MultiByte + true + StaticLibrary v120 @@ -59,6 +69,11 @@ + + + + + @@ -81,6 +96,10 @@ $(xrLibDir) $(xrIntDir)$(ProjectName)\ + + $(xrLibDir) + $(xrIntDir)$(ProjectName)\ + $(xrLibDir) $(xrIntDir)$(ProjectName)\ @@ -139,6 +158,33 @@ ProgramDatabase + + + Full + AnySuitable + true + Speed + true + true + .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS);$(xrSdkDir)include;%(AdditionalIncludeDirectories) + XRCORE_STATIC;WIN32;NDEBUG;_WINDOWS;_USRDLL;XRCORE_EXPORTS;%(PreprocessorDefinitions) + true + true + + + MultiThreadedDLL + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + + Full @@ -201,9 +247,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -215,9 +264,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -229,9 +281,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -243,12 +298,16 @@ TurnOffAllWarnings true + true true + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -260,9 +319,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -274,9 +336,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -288,9 +353,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -302,9 +370,12 @@ $(IntDir)%(Filename)1.obj + + $(IntDir)%(Filename)1.obj + $(IntDir)%(Filename)1.obj $(IntDir)%(Filename)1.obj @@ -316,9 +387,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -335,6 +409,7 @@ true true true + true true @@ -343,6 +418,7 @@ true true true + true true @@ -356,9 +432,12 @@ TurnOffAllWarnings + + TurnOffAllWarnings + TurnOffAllWarnings TurnOffAllWarnings @@ -378,8 +457,10 @@ Create false true + true true Create + Create Create @@ -388,12 +469,14 @@ Create Create Create + Create Create true true true + true true @@ -408,6 +491,8 @@ + + @@ -415,6 +500,7 @@ true true true + true true @@ -426,6 +512,7 @@ true true true + true true @@ -467,6 +554,7 @@ true true true + true true diff --git a/src/xrD3D9-Null/xrD3D9-Null.vcxproj b/src/xrD3D9-Null/xrD3D9-Null.vcxproj index 9e6e9a3fab3..073a404b44d 100644 --- a/src/xrD3D9-Null/xrD3D9-Null.vcxproj +++ b/src/xrD3D9-Null/xrD3D9-Null.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -25,6 +29,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -44,6 +54,11 @@ + + + + + @@ -68,6 +83,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -85,6 +105,7 @@ Use Level3 EditAndContinue + Disabled xrD3D9-Null.def @@ -132,6 +153,42 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + WIN32;DEBUG;_WINDOWS;_USRDLL;XRD3D9NULL_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + Level3 + ProgramDatabase + + + xrD3D9-Null.def + false + Windows + true + true + true + UseLinkTimeCodeGeneration + false + + + $(xrLibDir)$(TargetName).lib + MachineX86 + + MaxSpeed @@ -185,6 +242,7 @@ Create Create + Create Create diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 230fe063836..687436439b9 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -5,6 +5,10 @@ Debug_Dedicated Win32 + + Debug_NEW + Win32 + Debug Win32 @@ -61,6 +65,13 @@ MultiByte true + + Application + v120 + false + MultiByte + true + Application v120 @@ -103,6 +114,11 @@ + + + + + @@ -139,6 +155,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -168,8 +189,8 @@ false Neither true - .;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) - INGAME_EDITOR;DEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;INGAME_EDITOR;DEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) false true Sync @@ -198,7 +219,7 @@ vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) NotSet true - $(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Debug;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Debug;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) true false @@ -311,6 +332,60 @@ as-invoker-manifest-part.xml;%(AdditionalManifestFiles) + + + Disabled + Disabled + true + Speed + true + true + false + .;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(XRAY_16X_LIBS)libtheora-1.1.1\include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + DEBUG;WIN32;_WINDOWS;ENGINE_BUILD;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + Default + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0422 + + + vfw32.lib;libogg_static.lib;libtheora_static.lib;oalib.lib;%(AdditionalDependencies) + true + $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + %(IgnoreSpecificDefaultLibraries) + true + NotSet + true + true + true + Default + false + false + $(xrLibDir)$(TargetName).lib + /ignore:4099 + + + as-invoker-manifest-part.xml;%(AdditionalManifestFiles) + + MaxSpeed @@ -671,9 +746,12 @@ 4127; 4267;%(DisableSpecificWarnings) + + 4127; 4267;%(DisableSpecificWarnings) + 4127; 4267;%(DisableSpecificWarnings) 4127; 4267;%(DisableSpecificWarnings) @@ -692,6 +770,7 @@ true true true + true true @@ -766,6 +845,7 @@ Create Create Create + Create Create diff --git a/src/xrGame/CarDamageParticles.cpp b/src/xrGame/CarDamageParticles.cpp index aa593acba72..ebc0abba1cf 100644 --- a/src/xrGame/CarDamageParticles.cpp +++ b/src/xrGame/CarDamageParticles.cpp @@ -75,7 +75,7 @@ void CCarDamageParticles::Stop1(CCar* car) void CCarDamageParticles::Stop2(CCar* car) { - VERIFY(!ph_world->Processing()); + VERIFY(!physics_world()->Processing()); if(*m_car_damage_particles2) { BIDS_I i=bones2.begin(),e=bones2.end(); diff --git a/src/xrGame/action_base.h b/src/xrGame/action_base.h index 4ffe31d39fa..85bf6b6112a 100644 --- a/src/xrGame/action_base.h +++ b/src/xrGame/action_base.h @@ -58,7 +58,9 @@ class CActionBase : public GraphEngineSpace::CWorldOperator { #endif public: +#ifndef LOG_ACTION LPCSTR m_action_name; //alundaio +#endif IC CActionBase (const xr_vector &conditions, const xr_vector &effects, _object_type *object = 0, LPCSTR action_name = ""); IC CActionBase (_object_type *object, LPCSTR action_name = ""); virtual ~CActionBase (); diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 4ffdd15326e..91f6b40f87e 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -30,6 +34,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -57,6 +68,11 @@ + + + + + @@ -80,8 +96,7 @@ $(xrGameDir)bin_dbg\ $(xrIntDir)$(ProjectName)\ *.idb%3b*.obj%3b*.ilk%3b*.pdb%3b*.tlb%3b*.tli%3b*.tlh%3b*.tmp%3b*.rsp%3b*.bat%3b$(TargetPath) - true - true + false $(xrBinDir) @@ -93,6 +108,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -111,8 +131,8 @@ false Neither true - .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) - WIN32;DEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(xrSdkDir)include\loki;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) + USE_LUAJIT_ONE;WIN32;DEBUG;XRGAME_EXPORTS;_WINDOWS;_USRDLL;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) false false Sync @@ -138,11 +158,11 @@ 0x0419 - /MACHINE:I386 + /ignore:4075 %(AdditionalOptions) NotSet true - $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) true false true @@ -255,6 +275,64 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + Disabled + Disabled + true + Speed + true + true + false + .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + false + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + stdafx.h + + + Level4 + true + ProgramDatabase + 4995;4005;4237;%(DisableSpecificWarnings) + true + USE_LUAJIT_ONE + false + + + NDEBUG;%(PreprocessorDefinitions) + 0x0419 + + + /ignore:4099 + true + $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + Default + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -1051,6 +1129,7 @@ true + true true @@ -1957,6 +2036,7 @@ NotUsing NotUsing NotUsing + NotUsing NotUsing @@ -3228,6 +3308,7 @@ true + true true @@ -3836,6 +3917,7 @@ true + true true diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index b21e6bd6680..81da73c7f72 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -26,6 +30,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -45,6 +55,11 @@ + + + + + @@ -69,6 +84,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_rel\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -137,6 +157,43 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAMESPY_EXPORTS;_SECURE_SCL=0;XRAY_DISABLE_GAMESPY_WARNINGS;%(PreprocessorDefinitions) + true + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + Use + Level3 + ProgramDatabase + 4996;%(DisableSpecificWarnings) + USE_LUAJIT_ONE + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + Windows + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + MaxSpeed @@ -180,9 +237,12 @@ true + true true + + @@ -191,6 +251,8 @@ + + @@ -199,6 +261,8 @@ + + @@ -207,6 +271,8 @@ + + @@ -215,9 +281,12 @@ true + true true + + @@ -226,6 +295,8 @@ + + @@ -234,9 +305,12 @@ true + true true + + @@ -245,9 +319,12 @@ true + true true + + @@ -256,9 +333,12 @@ true + true true + + @@ -267,9 +347,12 @@ true + true true + + @@ -278,9 +361,12 @@ true + true true + + @@ -289,6 +375,8 @@ + + @@ -297,6 +385,8 @@ + + @@ -305,6 +395,8 @@ + + @@ -313,6 +405,8 @@ + + @@ -321,6 +415,8 @@ + + @@ -329,6 +425,8 @@ + + @@ -337,6 +435,8 @@ + + @@ -345,9 +445,12 @@ true + true true + + @@ -356,9 +459,12 @@ true + true true + + @@ -367,9 +473,12 @@ true + true true + + @@ -378,9 +487,12 @@ true + true true + + @@ -389,6 +501,8 @@ + + @@ -397,6 +511,8 @@ + + @@ -405,6 +521,8 @@ + + @@ -413,6 +531,8 @@ + + @@ -421,6 +541,8 @@ + + @@ -429,6 +551,8 @@ + + @@ -437,6 +561,8 @@ + + @@ -445,6 +571,8 @@ + + @@ -453,6 +581,8 @@ + + @@ -461,6 +591,8 @@ + + @@ -469,6 +601,8 @@ + + @@ -477,6 +611,8 @@ + + @@ -485,6 +621,8 @@ + + @@ -493,6 +631,8 @@ + + @@ -501,6 +641,8 @@ + + @@ -509,6 +651,8 @@ + + @@ -517,6 +661,8 @@ + + @@ -525,6 +671,8 @@ + + @@ -533,6 +681,8 @@ + + @@ -541,6 +691,8 @@ + + @@ -549,6 +701,8 @@ + + @@ -557,6 +711,8 @@ + + @@ -565,6 +721,8 @@ + + @@ -573,6 +731,8 @@ + + @@ -581,6 +741,8 @@ + + @@ -589,6 +751,8 @@ + + @@ -597,6 +761,8 @@ + + @@ -605,6 +771,8 @@ + + @@ -613,6 +781,8 @@ + + @@ -621,6 +791,8 @@ + + @@ -629,6 +801,8 @@ + + @@ -637,6 +811,8 @@ + + @@ -645,6 +821,8 @@ + + @@ -653,6 +831,8 @@ + + @@ -661,6 +841,8 @@ + + @@ -669,6 +851,8 @@ + + @@ -677,6 +861,8 @@ + + @@ -685,6 +871,8 @@ + + @@ -693,6 +881,8 @@ + + @@ -701,6 +891,8 @@ + + @@ -709,6 +901,8 @@ + + @@ -717,6 +911,8 @@ + + @@ -725,6 +921,8 @@ + + @@ -733,6 +931,8 @@ + + @@ -741,6 +941,8 @@ + + @@ -749,6 +951,8 @@ + + @@ -757,6 +961,8 @@ + + @@ -765,6 +971,8 @@ + + @@ -773,6 +981,8 @@ + + @@ -781,6 +991,8 @@ + + @@ -789,6 +1001,8 @@ + + @@ -797,6 +1011,8 @@ + + @@ -805,6 +1021,8 @@ + + @@ -813,6 +1031,8 @@ + + @@ -821,6 +1041,8 @@ + + @@ -829,6 +1051,8 @@ + + @@ -837,6 +1061,8 @@ + + @@ -845,6 +1071,8 @@ + + @@ -853,6 +1081,8 @@ + + @@ -861,6 +1091,8 @@ + + @@ -869,6 +1101,8 @@ + + @@ -877,6 +1111,8 @@ + + @@ -885,12 +1121,15 @@ + + Create Create + Create Create diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index b267bbd42b6..22869f49c08 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -39,6 +43,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -64,6 +75,11 @@ + + + + + @@ -78,6 +94,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -147,6 +168,59 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + .;$(DXSDK_DIR)Include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + DEBUG;WIN32;_WINDOWS;XR_NETSERVER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + Ws2_32.lib;dxerr.lib;%(AdditionalDependencies) + true + $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -302,6 +376,7 @@ Create Create Create + Create Create diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 39465d6203b..69899c82ce5 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -40,6 +44,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -65,6 +76,11 @@ + + + + + @@ -79,6 +95,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -146,6 +167,58 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + DEBUG;WIN32;_WINDOWS;XR_PARTICLES_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -305,6 +378,7 @@ Create Create Create + Create Create diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index a726c9c7b95..87aad40ffb7 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -34,6 +38,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -58,6 +68,11 @@ + + + + + @@ -83,6 +98,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -169,6 +189,46 @@ MachineX86 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;dSINGLE;_USRDLL;XRPHYSICS_EXPORTS;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + USE_LUAJIT_ONE + + + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + + MaxSpeed @@ -298,12 +358,14 @@ Create Create Create + Create Create true true true + true true diff --git a/src/xrServerEntities/script_engine.cpp b/src/xrServerEntities/script_engine.cpp index 4a946c246e8..2c6cba900ee 100644 --- a/src/xrServerEntities/script_engine.cpp +++ b/src/xrServerEntities/script_engine.cpp @@ -92,7 +92,7 @@ static void initialize_lua_studio ( lua_State* state, cs::lua_studio::world*& wo jit_command (state, "debug=2"); jit_command (state, "off"); #else - luaJIT_setmode(lua(), 0, LUAJIT_MODE_ENGINE | LUAJIT_MODE_OFF); + luaJIT_setmode(state, 0, LUAJIT_MODE_ENGINE | LUAJIT_MODE_OFF); #endif world->add (state); @@ -154,13 +154,9 @@ CScriptEngine::~CScriptEngine() while (!m_script_processes.empty()) remove_script_process(m_script_processes.begin()->first); -#ifdef DEBUG - flush_log(); -#else -# ifdef LUA_DEBUG_PRINT +#ifdef LUA_DEBUG_PRINT flush_log(); -# endif //-LUA_DEBUG_PRINT -#endif //-DEBUG +#endif //-LUA_DEBUG_PRINT #ifdef USE_DEBUGGER # ifndef USE_LUA_STUDIO diff --git a/src/xrServerEntities/script_storage.h b/src/xrServerEntities/script_storage.h index 62d9de3d56a..1150b1dccf5 100644 --- a/src/xrServerEntities/script_storage.h +++ b/src/xrServerEntities/script_storage.h @@ -30,7 +30,7 @@ class CScriptThread; #endif //-XRGAME_EXPORTS //AVO: allow LUA debug prints (i.e.: ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "CWeapon : cannot access class member Weapon_IsScopeAttached!");) -#include "build_config_defines.h" +#include "..\build_config_defines.h" #ifndef DEBUG # ifdef LUA_DEBUG_PRINT # define PRINT_CALL_STACK diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index 18322dfb3d1..4b83b6a74b7 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -34,6 +38,12 @@ MultiByte true + + DynamicLibrary + v120 + MultiByte + true + DynamicLibrary v120 @@ -58,6 +68,11 @@ + + + + + @@ -83,6 +98,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -172,6 +192,48 @@ /ignore:4099 + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;$(XRAY_16X_LIBS)libvorbis-1.2.3\include;$(XRAY_16X_LIBS)libogg-1.1.4\include;$(SolutionDir)3rd party\OpenAL\include;%(AdditionalIncludeDirectories) + WIN32;DEBUG;_WINDOWS;_USRDLL;XRSOUND_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + + + Level4 + ProgramDatabase + USE_LUAJIT_ONE + + + libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;OpenAL32.lib;%(AdditionalDependencies) + $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)libvorbis-1.2.3\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + MachineX86 + /ignore:4099 + + MaxSpeed @@ -270,6 +332,8 @@ + + @@ -297,6 +361,7 @@ Create Create Create + Create Create diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index 6a9730c83b2..d90c0aca9e6 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -1,6 +1,10 @@ п»ї + + Debug_NEW + Win32 + Debug Win32 @@ -40,6 +44,13 @@ MultiByte true + + DynamicLibrary + v120 + false + MultiByte + true + DynamicLibrary v120 @@ -65,6 +76,11 @@ + + + + + @@ -79,6 +95,11 @@ $(xrIntDir)$(ProjectName)\ false + + $(xrGameDir)bin_dbg\ + $(xrIntDir)$(ProjectName)\ + false + $(xrGameDir)bin_rel\ $(xrIntDir)$(ProjectName)\ @@ -148,6 +169,59 @@ $(xrLibDir)$(TargetName).lib + + + NDEBUG;%(PreprocessorDefinitions) + true + true + Win32 + $(OutDir)$(TargetName).tlb + + + MaxSpeed + AnySuitable + true + Speed + true + true + true + $(xrSdkDir)include;$(xrSdkDir)include;%(AdditionalIncludeDirectories) + DEBUG;WIN32;_WINDOWS;XRXMLPARSER_EXPORTS;_SECURE_SCL=0;%(PreprocessorDefinitions) + true + Sync + Default + MultiThreadedDLL + false + false + StreamingSIMDExtensions2 + Fast + false + true + Use + Level4 + true + ProgramDatabase + CompileAsCpp + USE_LUAJIT_ONE + + + NDEBUG;%(PreprocessorDefinitions) + 0x0409 + + + /MACHINE:I386 %(AdditionalOptions) + true + $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) + true + NotSet + true + true + true + UseLinkTimeCodeGeneration + false + $(xrLibDir)$(TargetName).lib + + NDEBUG;%(PreprocessorDefinitions) @@ -295,6 +369,7 @@ Create Create Create + Create Create From 7e63b74f2dcd3c434118602be2630581a9a6f933 Mon Sep 17 00:00:00 2001 From: revolucas Date: Sat, 24 Dec 2016 01:09:53 -0500 Subject: [PATCH 166/166] ~ adjusted some project properties = Fixed GSC mistake can_trade was being forced same value as can_take --- src/3rd party/crypto/crypto.vcxproj | 4 +++- .../lua-extensions/lua_extensions.vcxproj | 5 ++-- .../luabind/luabind.beta7-devel.rc4.vcxproj | 6 ++--- src/3rd party/luabind/src/class_info.cpp | 9 ++++---- .../OpenAL-Windows/Router/Router.vcxproj | 4 ++-- .../openal/OpenAL-Windows/Router/alc.cpp | 23 ++++++++++--------- src/Common.props | 6 +++-- src/Layers/xrAPI/xrAPI.vcxproj | 7 +++--- src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj | 11 ++++----- src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj | 7 +++--- src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj | 7 +++--- src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj | 5 ++-- src/utils/xrAI/xrAI.vcxproj | 1 - src/utils/xrCompress/xrCompress.vcxproj | 5 ++-- src/utils/xrDXT/DXT.vcxproj | 7 +++--- src/utils/xrDXT/dds/tPixel.h | 2 +- src/utils/xrDXT/dds/tVector.h | 4 +++- src/utils/xrQSlim/xrQSlim.vcxproj | 6 ++--- src/utils/xrSE_Factory/xrSE_Factory.vcxproj | 7 +++--- src/xrCDB/xrCDB.vcxproj | 3 +-- src/xrCPU_Pipe/xrCPU_Pipe.vcxproj | 3 +-- src/xrCore/_math.h | 3 ++- src/xrCore/xrCore.vcxproj | 7 +++--- src/xrCore/xrsharedmem.h | 3 ++- src/xrCore/xrstring.h | 3 ++- src/xrEngine/xrEngine.vcxproj | 7 +++--- src/xrGame/Inventory.cpp | 8 +++---- src/xrGame/Inventory.h | 2 +- src/xrGame/inventory_item.cpp | 6 ++--- src/xrGame/level_graph_inline.h | 4 ++-- src/xrGame/ui/UIActorMenuDeadBodySearch.cpp | 2 +- src/xrGame/xrGame.vcxproj | 7 +++--- src/xrGameSpy/xrGameSpy.vcxproj | 1 - src/xrNetServer/xrNetServer.vcxproj | 7 +++--- src/xrParticles/xrParticles.vcxproj | 7 +++--- src/xrPhysics/xrPhysics.vcxproj | 7 +++--- src/xrSound/xrSound.vcxproj | 5 ++-- src/xrXMLParser/xrXMLParser.vcxproj | 7 +++--- 38 files changed, 105 insertions(+), 113 deletions(-) diff --git a/src/3rd party/crypto/crypto.vcxproj b/src/3rd party/crypto/crypto.vcxproj index e9b8eed117e..97821e02eb7 100644 --- a/src/3rd party/crypto/crypto.vcxproj +++ b/src/3rd party/crypto/crypto.vcxproj @@ -120,7 +120,7 @@ MultiThreadedDLL Fast Level4 - ProgramDatabase + None StreamingSIMDExtensions2 true Speed @@ -128,6 +128,8 @@ true true 4005;4996 + MaxSpeed + true $(xrLibDir)$(TargetName).lib diff --git a/src/3rd party/lua-extensions/lua_extensions.vcxproj b/src/3rd party/lua-extensions/lua_extensions.vcxproj index 3ea3d165f9b..91225414d2d 100644 --- a/src/3rd party/lua-extensions/lua_extensions.vcxproj +++ b/src/3rd party/lua-extensions/lua_extensions.vcxproj @@ -136,14 +136,14 @@ Level3 MaxSpeed - false + true true $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalIncludeDirectories) Speed true SyncCThrow false - Fast + Precise Default _WINDLL;_CRT_SECURE_NO_WARNINGS;%(PreprocessorDefinitions) true @@ -153,7 +153,6 @@ USE_LUAJIT_ONE - true true true $(SolutionDir)3rd party\luajit-2\src\;%(AdditionalLibraryDirectories) diff --git a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj index e5c6ee4a1fb..ed0b716ddb1 100644 --- a/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj +++ b/src/3rd party/luabind/luabind.beta7-devel.rc4.vcxproj @@ -107,17 +107,17 @@ MultiThreadedDLL false StreamingSIMDExtensions2 - Fast + Precise Use pch.h Level3 - ProgramDatabase + None 4530;4100;4714;4127;%(DisableSpecificWarnings) USE_LUAJIT_ONE + true $(ProjectDir)..\luajit-2\src\;%(AdditionalLibraryDirectories) - true false diff --git a/src/3rd party/luabind/src/class_info.cpp b/src/3rd party/luabind/src/class_info.cpp index 39cd5a84b5a..e9c03332dc6 100644 --- a/src/3rd party/luabind/src/class_info.cpp +++ b/src/3rd party/luabind/src/class_info.cpp @@ -39,8 +39,9 @@ namespace luabind detail::object_rep* obj = static_cast(lua_touserdata(L, -1)); lua_pop(L, 1); - result.name = obj->crep()->name(); - obj->crep()->get_table(L); + detail::class_rep* crep = obj->crep(); + result.name = crep->name(); + crep->get_table(L); result.methods.set(); result.attributes = newtable(L); @@ -49,8 +50,8 @@ namespace luabind unsigned int index = 1; - for (map_type::const_iterator i = obj->crep()->properties().begin(); - i != obj->crep()->properties().end(); ++i) + for (map_type::const_iterator i = crep->properties().begin(); + i != crep->properties().end(); ++i) { result.attributes[index] = i->first; } diff --git a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj index e4cc920a5c9..bfbe5a0b379 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj +++ b/src/3rd party/openal/OpenAL-Windows/Router/Router.vcxproj @@ -157,9 +157,9 @@ true MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false diff --git a/src/3rd party/openal/OpenAL-Windows/Router/alc.cpp b/src/3rd party/openal/OpenAL-Windows/Router/alc.cpp index d1a058b2f6a..e9ed5e2326e 100644 --- a/src/3rd party/openal/OpenAL-Windows/Router/alc.cpp +++ b/src/3rd party/openal/OpenAL-Windows/Router/alc.cpp @@ -449,7 +449,7 @@ ALvoid BuildDeviceSpecifierList() list += specifierSize + 1; } specifier += strlen(specifier) + 1; - } while (strlen(specifier) > 0); + } while (specifier[0] != '\0'/*strlen(specifier) > 0*/); } } else { @@ -558,7 +558,7 @@ ALvoid CleanDeviceSpecifierList() // dump new terminator into copy list, so that string searches are easier int len; - while (strlen((const char *)copyList) > 0) + while (copyList[0] != '\0'/*strlen((const char *)copyList) > 0*/) { len = (int)strlen(copyList); copyList[len] = ';'; @@ -568,7 +568,7 @@ ALvoid CleanDeviceSpecifierList() AlLog("CleanDeviceSpecifierList %s", list); // create new list - while (strlen(list) > 0) + while (list[0] != '\0'/*strlen(list) > 0*/) { strcpy_s (newListPtr, MAX_PATH, list); advancePtr = TRUE; @@ -991,7 +991,7 @@ HINSTANCE FindDllWithMatchingSpecifier(TCHAR* dllSearchPattern, char* specifier, found = false; } deviceSpecifier += strlen(deviceSpecifier) + 1; - } while (!found && (strlen(deviceSpecifier) > 0)); + } while (!found && (deviceSpecifier[0] != '\0'/*strlen(deviceSpecifier) > 0*/)); } } else { // no enumeration ability @@ -1057,7 +1057,7 @@ HINSTANCE FindDllWithMatchingSpecifier(TCHAR* dllSearchPattern, char* specifier, found = false; } deviceSpecifier += strlen(deviceSpecifier) + 1; - } while (!found && (strlen(deviceSpecifier) > 0)); + } while (!found && (deviceSpecifier[0] != '\0'/*strlen(deviceSpecifier) > 0*/)); } } } @@ -1552,7 +1552,8 @@ ALCAPI ALvoid ALCAPIENTRY alcGetIntegerv(ALCdevice* device, ALenum param, ALsize default: { - device->LastError = ALC_INVALID_ENUM; + if (device) + device->LastError = ALC_INVALID_ENUM; } break; } @@ -1687,11 +1688,11 @@ ALCAPI ALboolean ALCAPIENTRY alcMakeContextCurrent(ALCcontext* context) { alCurrentContext->Device->AlcApi.alcMakeContextCurrent(alCurrentContext->DllContext); } - - else - { - alCurrentContext->Device->AlcApi.alcMakeContextCurrent(0); - } + //Alun: Figure out what should be here instead + //else + // { + // alCurrentContext->Device->AlcApi.alcMakeContextCurrent(0); + // } } } } else { diff --git a/src/Common.props b/src/Common.props index f6941430a2f..f399f17725b 100644 --- a/src/Common.props +++ b/src/Common.props @@ -25,14 +25,16 @@ false Full AnySuitable - Fast + Precise USE_LUAJIT_ONE - USE_LUAJIT_ONE;_VC80_UPGRADE=0x0710;%(PreprocessorDefinitions) + _VC80_UPGRADE=0x0710;%(PreprocessorDefinitions) Speed + None true false + false diff --git a/src/Layers/xrAPI/xrAPI.vcxproj b/src/Layers/xrAPI/xrAPI.vcxproj index ce54bb1621f..c6469ec1b35 100644 --- a/src/Layers/xrAPI/xrAPI.vcxproj +++ b/src/Layers/xrAPI/xrAPI.vcxproj @@ -126,14 +126,15 @@ MultiThreadedDLL false StreamingSIMDExtensions2 - Fast + Precise Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE + MaxSpeed + true - true Windows true true diff --git a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj index 2e9f12bb438..5ce06e8ca8e 100644 --- a/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj +++ b/src/Layers/xrRenderPC_R1/xrRender_R1.vcxproj @@ -163,20 +163,19 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) - true NotSet true true @@ -191,7 +190,7 @@ - MaxSpeed + Full AnySuitable true Speed @@ -206,7 +205,7 @@ false false StreamingSIMDExtensions2 - Fast + Precise false true Use diff --git a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj index 6991700698f..a468e399697 100644 --- a/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj +++ b/src/Layers/xrRenderPC_R2/xrRender_R2.vcxproj @@ -162,20 +162,19 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj index a64c799c0e6..6f8fa00ecf8 100644 --- a/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj +++ b/src/Layers/xrRenderPC_R3/xrRender_R3.vcxproj @@ -163,14 +163,14 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 - ProgramDatabase + None -Zm110 %(AdditionalOptions) USE_LUAJIT_ONE 4005;4099 @@ -178,7 +178,6 @@ dxguid.lib;d3dcompiler.lib;d3d10.lib;d3dx10.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;oalib.lib;%(AdditionalDependencies) $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj index c963dda5a63..0f10bd9e14e 100644 --- a/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj +++ b/src/Layers/xrRenderPC_R4/xrRender_R4.vcxproj @@ -164,14 +164,14 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 Fast false true Use Level4 - ProgramDatabase + None -Zm113 %(AdditionalOptions) USE_LUAJIT_ONE 4005;4099 @@ -179,7 +179,6 @@ dxguid.lib;d3dx11.lib;oalib.lib;D3DCompiler.lib;d3d11.lib;dxgi.lib;nvapi.lib;atimgpud_s_x86.lib;dxerr.lib;d3d10.lib;%(AdditionalDependencies) $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)nvapi\x86;%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/utils/xrAI/xrAI.vcxproj b/src/utils/xrAI/xrAI.vcxproj index e19a9e99558..dbd8975bdd3 100644 --- a/src/utils/xrAI/xrAI.vcxproj +++ b/src/utils/xrAI/xrAI.vcxproj @@ -205,7 +205,6 @@ /MACHINE:I386 %(AdditionalOptions) true $(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(DXSDK_DIR)Lib\x86;$(xrLibDir);$(xrSdkDir)libraries;$(XRAY_16X_LIBS)FreeImage\Dist;$(XRAY_16X_LIBS)MagicSoftware\Sdk\Library\ReleaseDLL;%(AdditionalLibraryDirectories) - true Windows 0 0 diff --git a/src/utils/xrCompress/xrCompress.vcxproj b/src/utils/xrCompress/xrCompress.vcxproj index a7ceb49b716..64110d9aa07 100644 --- a/src/utils/xrCompress/xrCompress.vcxproj +++ b/src/utils/xrCompress/xrCompress.vcxproj @@ -121,7 +121,7 @@ $(OutDir)$(TargetName).tlb - MaxSpeed + Full AnySuitable true Speed @@ -136,7 +136,7 @@ false false StreamingSIMDExtensions2 - Fast + Precise false Use stdafx.h @@ -152,7 +152,6 @@ /MACHINE:I386 %(AdditionalOptions) true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true Console true true diff --git a/src/utils/xrDXT/DXT.vcxproj b/src/utils/xrDXT/DXT.vcxproj index cdec127afbc..b4d8cbc675a 100644 --- a/src/utils/xrDXT/DXT.vcxproj +++ b/src/utils/xrDXT/DXT.vcxproj @@ -143,9 +143,9 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false Use stdafx.h @@ -156,7 +156,7 @@ Level3 true - ProgramDatabase + None NDEBUG;%(PreprocessorDefinitions) @@ -167,7 +167,6 @@ true $(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) - true $(OutDir)$(TargetName).pdb false diff --git a/src/utils/xrDXT/dds/tPixel.h b/src/utils/xrDXT/dds/tPixel.h index 17135f2d583..9bc593fa683 100644 --- a/src/utils/xrDXT/dds/tPixel.h +++ b/src/utils/xrDXT/dds/tPixel.h @@ -1334,7 +1334,7 @@ class fpMipMappedCubeMap size_t width() const { - return cubeFaces[0].height(); + return cubeFaces[0].width(); } void clear() diff --git a/src/utils/xrDXT/dds/tVector.h b/src/utils/xrDXT/dds/tVector.h index 450f99f5a79..a5d6edeac5f 100644 --- a/src/utils/xrDXT/dds/tVector.h +++ b/src/utils/xrDXT/dds/tVector.h @@ -507,7 +507,9 @@ class nvVector } else // realloc the buffer { - m_buffer = (T*)::realloc(m_buffer, sizeof(T) * m_buffer_size); + T* tmp = (T*)::realloc(m_buffer, sizeof(T) * m_buffer_size); + if (tmp) + m_buffer = tmp; } } diff --git a/src/utils/xrQSlim/xrQSlim.vcxproj b/src/utils/xrQSlim/xrQSlim.vcxproj index 61743da0dbb..316130da6da 100644 --- a/src/utils/xrQSlim/xrQSlim.vcxproj +++ b/src/utils/xrQSlim/xrQSlim.vcxproj @@ -124,7 +124,7 @@ - MaxSpeed + Full AnySuitable true Speed @@ -139,12 +139,12 @@ false false StreamingSIMDExtensions2 - Fast + Precise false true Use Level3 - ProgramDatabase + None diff --git a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj index 1245d06e952..082ad7aba19 100644 --- a/src/utils/xrSE_Factory/xrSE_Factory.vcxproj +++ b/src/utils/xrSE_Factory/xrSE_Factory.vcxproj @@ -200,7 +200,7 @@ - MaxSpeed + Full AnySuitable true Speed @@ -215,17 +215,16 @@ false false StreamingSIMDExtensions2 - Fast + Strict false true Use stdafx.h Level4 - ProgramDatabase + None $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true Windows true true diff --git a/src/xrCDB/xrCDB.vcxproj b/src/xrCDB/xrCDB.vcxproj index 77ca8d5f5a7..3d499eae872 100644 --- a/src/xrCDB/xrCDB.vcxproj +++ b/src/xrCDB/xrCDB.vcxproj @@ -140,7 +140,7 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 Fast false @@ -162,7 +162,6 @@ true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj index a029230838b..2bf1eadab51 100644 --- a/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj +++ b/src/xrCPU_Pipe/xrCPU_Pipe.vcxproj @@ -155,7 +155,7 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 Fast false @@ -177,7 +177,6 @@ /MACHINE:I386 %(AdditionalOptions) true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrCore/_math.h b/src/xrCore/_math.h index c23ec26f04f..17b663c7d21 100644 --- a/src/xrCore/_math.h +++ b/src/xrCore/_math.h @@ -31,13 +31,14 @@ XRCORE_API extern u64 QPC(); #ifdef M_VISUAL #ifndef _M_AMD64 +#pragma warning(push) #pragma warning(disable:4035) IC u64 GetCLK(void) { _asm _emit 0x0F; _asm _emit 0x31; } -#pragma warning(default:4035) +#pragma warning(pop) #else IC u64 GetCLK(void) { diff --git a/src/xrCore/xrCore.vcxproj b/src/xrCore/xrCore.vcxproj index b2cde8ab5a3..a1df597f3e6 100644 --- a/src/xrCore/xrCore.vcxproj +++ b/src/xrCore/xrCore.vcxproj @@ -162,20 +162,19 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE $(xrSdkDir)libraries;$(DXSDK_DIR)Lib\x86;$(XRAY_16X_LIBS)BugTrap\Bin;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrCore/xrsharedmem.h b/src/xrCore/xrsharedmem.h index 4912b5beff3..5ae9df6334d 100644 --- a/src/xrCore/xrsharedmem.h +++ b/src/xrCore/xrsharedmem.h @@ -4,6 +4,7 @@ #pragma pack(push,4) ////////////////////////////////////////////////////////////////////////// +#pragma warning(push) #pragma warning(disable : 4200) struct XRCORE_API smem_value { @@ -38,7 +39,7 @@ IC bool smem_equal(const smem_value* A, u32 dwCRC, u32 dwLength, u8* ptr) if (A->dwLength != dwLength) return false; return 0 == memcmp(A->value, ptr, dwLength); }; -#pragma warning(default : 4200) +#pragma warning(pop) ////////////////////////////////////////////////////////////////////////// class XRCORE_API smem_container diff --git a/src/xrCore/xrstring.h b/src/xrCore/xrstring.h index 2644d2579a6..635222347bb 100644 --- a/src/xrCore/xrstring.h +++ b/src/xrCore/xrstring.h @@ -7,6 +7,7 @@ typedef const char* str_c; ////////////////////////////////////////////////////////////////////////// +#pragma warning(push) #pragma warning(disable : 4200) struct XRCORE_API str_value { @@ -28,7 +29,7 @@ struct XRCORE_API str_hash_function IC u32 operator () (str_value const* const value) const { return value->dwCRC; }; }; -#pragma warning(default : 4200) +#pragma warning(pop) struct str_container_impl; class IWriter; diff --git a/src/xrEngine/xrEngine.vcxproj b/src/xrEngine/xrEngine.vcxproj index 687436439b9..1e47209b32d 100644 --- a/src/xrEngine/xrEngine.vcxproj +++ b/src/xrEngine/xrEngine.vcxproj @@ -294,9 +294,9 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use @@ -304,7 +304,7 @@ Level4 true - ProgramDatabase + None Default USE_LUAJIT_ONE @@ -317,7 +317,6 @@ true $(DXSDK_DIR)Lib\x86;$(SolutionDir)3rd party\luajit-2\src\;$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libtheora-1.1.1\win32\lib\$(Platform)\Release;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) %(IgnoreSpecificDefaultLibraries) - true NotSet true true diff --git a/src/xrGame/Inventory.cpp b/src/xrGame/Inventory.cpp index ff305b55fe2..b0a31390623 100644 --- a/src/xrGame/Inventory.cpp +++ b/src/xrGame/Inventory.cpp @@ -1262,14 +1262,14 @@ u32 CInventory::BeltWidth() const return 0; //m_iMaxBelt; } -void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_trade) const +void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_trade, bool bOverride) const { for(TIItemContainer::const_iterator it = m_ruck.begin(); m_ruck.end() != it; ++it) { PIItem pIItem = *it; if (!for_trade || pIItem->CanTrade()) { - if (m_pOwner->is_alive()) + if (bOverride) { luabind::functor funct; if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) @@ -1289,7 +1289,7 @@ void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_t PIItem pIItem = *it; if (!for_trade || pIItem->CanTrade()) { - if (m_pOwner->is_alive()) + if (bOverride) { luabind::functor funct; if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) @@ -1314,7 +1314,7 @@ void CInventory::AddAvailableItems(TIItemContainer& items_container, bool for_t { if (!SlotIsPersistent(I) || item->BaseSlot() == GRENADE_SLOT) { - if (m_pOwner->is_alive()) + if (bOverride) { luabind::functor funct; if (ai().script_engine().functor("actor_menu_inventory.CInventory_ItemAvailableToTrade", funct)) diff --git a/src/xrGame/Inventory.h b/src/xrGame/Inventory.h index 66044a6bad1..640a11d6802 100644 --- a/src/xrGame/Inventory.h +++ b/src/xrGame/Inventory.h @@ -134,7 +134,7 @@ class CInventory TISlotArr m_slots; public: //возвращает все кроме PDA в слоте и болта - void AddAvailableItems (TIItemContainer& items_container, bool for_trade) const; + void AddAvailableItems (TIItemContainer& items_container, bool for_trade, bool bOverride = false) const; float GetMaxWeight () const {return m_fMaxWeight;} void SetMaxWeight (float weight) {m_fMaxWeight = weight;} diff --git a/src/xrGame/inventory_item.cpp b/src/xrGame/inventory_item.cpp index 3edca164746..f843fe3ed0c 100644 --- a/src/xrGame/inventory_item.cpp +++ b/src/xrGame/inventory_item.cpp @@ -112,9 +112,9 @@ void CInventoryItem::Load(LPCSTR section) m_Description = CStringTable().translate( pSettings->r_string(section, "description") ); m_flags.set(Fbelt, READ_IF_EXISTS(pSettings, r_bool, section, "belt", FALSE)); - m_can_trade = READ_IF_EXISTS(pSettings, r_bool, section, "can_take", TRUE); - m_flags.set(FCanTake, m_can_trade); - m_flags.set(FCanTrade, READ_IF_EXISTS(pSettings, r_bool, section, "can_trade", TRUE)); + m_can_trade = READ_IF_EXISTS(pSettings, r_bool, section, "can_trade", TRUE); + m_flags.set(FCanTake,READ_IF_EXISTS(pSettings, r_bool, section, "can_take", TRUE)); + m_flags.set(FCanTrade,m_can_trade); m_flags.set(FIsQuestItem, READ_IF_EXISTS(pSettings, r_bool, section, "quest_item",FALSE)); // Added by Axel, to enable optional condition use on any item diff --git a/src/xrGame/level_graph_inline.h b/src/xrGame/level_graph_inline.h index 4ce6b346482..e5e62098de7 100644 --- a/src/xrGame/level_graph_inline.h +++ b/src/xrGame/level_graph_inline.h @@ -97,7 +97,7 @@ ICF const Fvector &CLevelGraph::vertex_position (Fvector &dest_position, const C IC const CLevelGraph::CPosition &CLevelGraph::vertex_position (CLevelGraph::CPosition &dest_position, const Fvector &source_position) const { VERIFY (iFloor((source_position.z - header().box().min.z)/header().cell_size() + .5f) < (int)m_row_length); - int pxz = iFloor(((source_position.x - header().box().min.x)/header().cell_size() + .5f))*m_row_length + iFloor((source_position.z - header().box().min.z)/header().cell_size() + .5f); + int pxz = iFloor((source_position.x - header().box().min.x)/header().cell_size() + .5f)*m_row_length + iFloor((source_position.z - header().box().min.z)/header().cell_size() + .5f); int py = iFloor(65535.f*(source_position.y - header().box().min.y)/header().factor_y() + EPS_S); VERIFY (pxz < (1 << MAX_NODE_BIT_COUNT) - 1); dest_position.xz (u32(pxz)); @@ -197,7 +197,7 @@ IC bool CLevelGraph::inside (const u32 vertex_id, const Fvector &position, co IC bool CLevelGraph::inside (const u32 vertex_id, const Fvector2 &position) const { - int pxz = iFloor(((position.x - header().box().min.x)/header().cell_size() + .5f))*m_row_length + iFloor((position.y - header().box().min.z)/header().cell_size() + .5f); + int pxz = iFloor((position.x - header().box().min.x)/header().cell_size() + .5f)*m_row_length + iFloor((position.y - header().box().min.z)/header().cell_size() + .5f); VERIFY (pxz < (1 << MAX_NODE_BIT_COUNT) - 1); bool b = vertex(vertex_id)->position().xz() == u32(pxz); return (b); diff --git a/src/xrGame/ui/UIActorMenuDeadBodySearch.cpp b/src/xrGame/ui/UIActorMenuDeadBodySearch.cpp index b06cef4dd81..1f11b2f2650 100644 --- a/src/xrGame/ui/UIActorMenuDeadBodySearch.cpp +++ b/src/xrGame/ui/UIActorMenuDeadBodySearch.cpp @@ -71,7 +71,7 @@ void CUIActorMenu::InitDeadBodySearchMode() TIItemContainer items_list; if ( m_pPartnerInvOwner ) { - m_pPartnerInvOwner->inventory().AddAvailableItems( items_list, false ); //true + m_pPartnerInvOwner->inventory().AddAvailableItems( items_list, false, m_pPartnerInvOwner->is_alive() ); //true UpdatePartnerBag(); } else diff --git a/src/xrGame/xrGame.vcxproj b/src/xrGame/xrGame.vcxproj index 91f6b40f87e..ee0052d176c 100644 --- a/src/xrGame/xrGame.vcxproj +++ b/src/xrGame/xrGame.vcxproj @@ -241,9 +241,9 @@ false MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use @@ -251,7 +251,7 @@ Level4 true - ProgramDatabase + None 4995;4005;4237;%(DisableSpecificWarnings) true USE_LUAJIT_ONE @@ -265,7 +265,6 @@ /ignore:4099 true $(SolutionDir)3rd party\luajit-2\src\;$(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)OpenAutomate\libraries;$(XRAY_16X_LIBS)jpeg\libraries\Release;%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrGameSpy/xrGameSpy.vcxproj b/src/xrGameSpy/xrGameSpy.vcxproj index 81da73c7f72..b85c39ccad4 100644 --- a/src/xrGameSpy/xrGameSpy.vcxproj +++ b/src/xrGameSpy/xrGameSpy.vcxproj @@ -146,7 +146,6 @@ $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true Windows true true diff --git a/src/xrNetServer/xrNetServer.vcxproj b/src/xrNetServer/xrNetServer.vcxproj index 22869f49c08..9acb22e5a7a 100644 --- a/src/xrNetServer/xrNetServer.vcxproj +++ b/src/xrNetServer/xrNetServer.vcxproj @@ -137,15 +137,15 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 true - ProgramDatabase + None CompileAsCpp USE_LUAJIT_ONE @@ -158,7 +158,6 @@ Ws2_32.lib;dxerr.lib;%(AdditionalDependencies) true $(DXSDK_DIR)Lib\x86;$(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrParticles/xrParticles.vcxproj b/src/xrParticles/xrParticles.vcxproj index 69899c82ce5..920745e80b1 100644 --- a/src/xrParticles/xrParticles.vcxproj +++ b/src/xrParticles/xrParticles.vcxproj @@ -137,15 +137,15 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 true - ProgramDatabase + None CompileAsCpp USE_LUAJIT_ONE @@ -157,7 +157,6 @@ /MACHINE:I386 %(AdditionalOptions) true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrPhysics/xrPhysics.vcxproj b/src/xrPhysics/xrPhysics.vcxproj index 87aad40ffb7..c38b2a48eea 100644 --- a/src/xrPhysics/xrPhysics.vcxproj +++ b/src/xrPhysics/xrPhysics.vcxproj @@ -165,20 +165,19 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrSound/xrSound.vcxproj b/src/xrSound/xrSound.vcxproj index 4b83b6a74b7..ca3ef284dc4 100644 --- a/src/xrSound/xrSound.vcxproj +++ b/src/xrSound/xrSound.vcxproj @@ -166,7 +166,7 @@ MultiThreadedDLL false - false + true StreamingSIMDExtensions2 Fast false @@ -174,13 +174,12 @@ Use Level4 - ProgramDatabase + None USE_LUAJIT_ONE libogg_static.lib;libvorbis_static.lib;libvorbisfile_static.lib;OpenAL32.lib;%(AdditionalDependencies) $(xrSdkDir)libraries;$(xrLibDir);$(XRAY_16X_LIBS)libvorbis-1.2.3\win32\lib\$(Platform)\Release;$(XRAY_16X_LIBS)libogg-1.1.4\win32\lib\$(Platform)\Release;%(AdditionalLibraryDirectories) - true NotSet true true diff --git a/src/xrXMLParser/xrXMLParser.vcxproj b/src/xrXMLParser/xrXMLParser.vcxproj index d90c0aca9e6..06c6a043b3c 100644 --- a/src/xrXMLParser/xrXMLParser.vcxproj +++ b/src/xrXMLParser/xrXMLParser.vcxproj @@ -139,15 +139,15 @@ Default MultiThreadedDLL false - false + true StreamingSIMDExtensions2 - Fast + Precise false true Use Level4 true - ProgramDatabase + None CompileAsCpp USE_LUAJIT_ONE @@ -159,7 +159,6 @@ /MACHINE:I386 %(AdditionalOptions) true $(xrSdkDir)libraries;$(xrLibDir);%(AdditionalLibraryDirectories) - true NotSet true true

    ;F|9)IGvLHf#-uNg1GFf`;vYsh-~xybGly72SY zmt)D5!m9;-Z3Ox??D+hP^EDO@2(6%krWTgv%z$=HO|=S5wV&q3*bb_wemyCyCKgF| z;VTcbf%(ADFlVM-vT(F8(7CEjZie+Au^sS%ot}4)OQVgj&?>M`&o9Q7UtF;;)1!m6 zt?jj~orll9+k5^?%kxN>+1z@lTdbuvcOE@{{NfvnxPAA-Z-4jCf41J&{^8FW zy#I$6zx=@_Tk`2QzuG@|vH#@R&i<3Vr{6q!`eN_V!2_A)3ES@{Y*&WAyt3%xsOY>} zP=M{b`}@Q*SUmgo#o$2y*FvZ+LA4%(H%RU(6nbJ2V|J&uHl|xP;kKL9q*@vduZ@q6Z9o#ijH-q3-EvSk|}z{*u@c z-f>ajG>eA)9%eg+Ub#f2D{caFv1S<{$S+pw8;LJ;SmDxuIxjV`R$Eo))z#Ns-_&rm z@LFe2m+N0qslC57Q;J+kIr-xCMpJ(o7xaNCyyjD3$F(b8`$C5Y2RN%H)C#)FOG~A+ zvE^l96<#l7?!!2-ns`3v{q0LD#{-Gf$CEXKfI^<-2k*Zt^<89BhZ7J89h+#^fr6fW9;DoaStpO;`bn{672P&ptl;b2PGHyJCIlrtLA)vtFVtj~q^zA1@eE`SjbK zj{h_yB6&SgKM&w4(3wf9+Gpym(D4ijoh)4hVsxwx>#z;99r2HRC4R%H2>u^}bcf=O zm;M3TUuICp<9}+5Fa^;zz-Z!qv0b*zM+O(m5=9~BIk&0SwFBusRh&7S-FR@6e;@z& z=;6=20mD(H#L;&z-H!4C3ILAMMi6Y5GvoD)k51ezyt|ej;KLB(?vf!XFdOrO;CXoK z9C(8iwtI}%@i05=b$(3LEG1{;hG;j0!8^7a;1ck^jKHZc#2TXBeMaZv7RlxDi=4}Y zm9zB8$8tV(?9}==K=13qa}SUS!?JTtTpXE5^t{I?Ocr<)U^S0(g!UA9`cf(D`OoQd z875+;Rt?jwsj;Q0w5;^;d$7O1dvNfZfBw_=zx(5}?|!XA!{CLn9oJ2{#2Hm9gVXxD!JI>Ep(>54z3G?(&TRW=jJrxq#0@Cvc$XL zSBx<9A+BadhqII8TEX-WbT?zN2;(hF0tqaJ&*14EEP>OD_{46}SPJ@VZdx{@x3>BQ z#{iBZ@f#%*=iDm`nQ(zjn|w%SOZY9#w;~=M?tMoT%^_UI1)y(E+ zhDYT@aejn%`vI1^^r@64b+$HiwA9<|^mR1fs;TT?yo4K5)7pHqrHNJI9ICq7o3P#E zXJ*EQAk9IPER*5*OtteDi>(L!DV zq;8Y9qTE$D<`<-?1b%NOtzB!i>YLTN4G7H|`wVOWG4Hi5*<5lB^nJy z_199~pwh6s%wI7#fLU!ifAr{4l8;klxYm>b-l;$YKytd24ulSdjExkh`fPGk-hJ;K zZ6T$@pR@8<;;7(QEH!-QZ5|78P6opxp-$Es4tO=Bz773Y7KQ^P=N5QPYEy6$TVPf> z65EOcuNdDra3Ybf_>6lfZimW+L%JR7P%exci`fzCM~*lW2NS#-2n+#at!JEO+`JV% zD(Q1?!G2*1ol8>L!Q5x?nVp?+$9N=<5tHS~(B>l4q7~@QyXR?OyMNUC@e@p}(8|); zowXE3!w0ZCFF(RKF`w>`--ahT9J*<8V`y?E-2aA$J09_aqz|M=GOuiY1bparF2VK$ z>7m#yrTU6E!fVb55=PdVevY)&7m)wRXj8}i%p%PW>rUD?zF{DGbWcOL9)Zf$FWu(A=$`T+a> z^XLEmFaPrB`3uW=yx^ig`xe-rfA>AY+a4V}SK@^2MEmZegPq;S5BCoq?CjnTu-`{@ z;(cj((PBg2|NeLSA4p0$ea1?WmkX|3ExcaT*4A<3M#*M*mRmsLRvo-2PI$YFiw<=$(2YWk^^(;+9eWdVMjpHFJuTq_ zBTQ@X-^l5SAnz&Zv-}A1m^_o47B-db$$p{IJq8CoCY0w;KQBnc)~5<1$m5Z?rqU-g zzhEN>jP&-)!jT)JiA2-Qx|#uLlUapJ8q{PM@7alwmcXx=Wi8i;ZBkiYWGLwEG$z!j zaOz>|*H`y3xB&+Yb$wdudA<~ni|{QzKixG_R4a8W_oOV zY;a^`psTCRJB}Jh277^BFPf>zF;+QyTx$f43-~R`sZRwJQH$r`&mX1vE$_-dOj?D52}8z~ppFQS9<$0bz3E9aim3hkN3#Gg!hZQs zI=odp!ihf(rPywC2%_p-eflkghje~E&q`1dFg+3v!41vejxA$fp!CRVZ08?Cif@z6 z9+Ln+!QhXsg?)M$C+%RnloW=F7iSGQ3md#gu=9+W$Qhs6iP%7rAp`HCs0Jqh%e{oovbm7>gUoJWrR+VoQrOF;=MRRs2jG9 zI=w`z+hx~~=-BR+v8fAv+6_m60IS=<$7yLrGHCtY?s-rWq#xfqht zkLse60b<#Hbm@)S3UmuUAQUSl zUVfe}G-a}82LW%Ve{d-6Kfr)i&@?%lvwk1lKEJY>1J3pJg;guH-9h!cI}bOuwl=pO zfc(b&t^H>&Ui|Rey{FF~+2O!^`|Iz%|EF}#rf+`r{j+bsd-U|#ql4J?o;oy2 z;i@&9Ht*bCUq|ByJKIYuODL^KQ&tXl<@m`{BB5QKU5bVj)G_dX^_$;JOk{;?*>+}t z!U`@zYg_B2h3DpG=JK;7*+kMuh1^wo&v~B7&1e^|D8s{8h} zIu1hvgm-Fmn4v3sPqEC$mbt;uu-SK=P#w};S`VP2g*&+=(8`-O#}@!4r#08|V4%S2 z29i>#rd5LyVyCG03LfAydqGq;c9<=-O9dCIY!~~k@yhejK3y$S*yff!^r^R?xfC8bQYzjJV)Yc?nUeqeEaI_XHzJTlz3 zyp-e8(DO(;H#a>qE6P0PO)b7htAjI5E`Np(Kbld2+97!c+eKX|c2kq;iV`~-I|6$} zNs%4-jde(#q-eTzMC>$ZZzd9&+-ko%y0^kRt4B~H1bpPxNE3?T(oi@!&U+VQGt8^W-mGiiW_-v%GahS&7Fht>JG|5pGez6kfWEVpYut z?C{l1;i*qz7sL|tnTCyGCD|+~0}-BX2V_2gT6@PyQtmOUL7oh6nPN901U%n4LxXx3 z0-k6GK*NP!a&Icq>RtyK0>nHt8K;;t(oL`(qr4!Aj&k^xh8IE4KCs*DKpa~G!F_p(T)&m$o|N>dHV#%JyGMNd&+hn)kFi^L&gWr4~Kmu zJ%+&|9foOhByu7>j3BoGxO1e>-6DBv!q{J1$%OttlE!W0x}DY%AxtDbi=re> zJMYEW`M@qXyt@KFlh+hkKqrl@4oVL)oiXsy@TQsMJ^q*6C|2F(mMZY8h3)=+^bNmo z;XD~HE#M=Tj&a2LCKoR{E(Vm!bvynsWZ)fQ7&x-!#FglFTWfoJTSrGvUypJ}HalZ9 zjipMVG2zGgAsuW-M}<@SH2$5O9G{w+TU^R7En5hC@%C-r%Wb{EZ(DJ5V{!HN+|r`X zz}DhS^5386_kMr(;r)jXt)PwSkDtAG`pvic6FmKvA@lU$#S0t4Z}0B0Q0{MU3(RiZ z)fE1&btv3Ei05u&`|A1{1zr%nan9?hCAYKoX6;;F&x6}!xlcMhJ+Zhrufh28%Hs0M zayC0UHl9IsgpYo?V|rMI--3S9Q3Mo(=HESYy05+E_dk5EIi1<@oy~RYdeqcZ<>zyW z-yS9T00JX6ri$1oq~oysXGtkHYbzxjrdW0yQk0H@hFm*fk4=Jhl3kHVeZX;~)&o2e z$vx3=(mK`rW&t=aU`lzC@wcsEJwF$|K~n>&FD}lZr4WDsD4WQTJ3Q>$=$o0&>feZ6 zz<#T#ekP~6`gq@9bdvPk&Yt$ck%8&iiAD9b`DxCHSPG(Q6f`zAB=vEyml|*C?QEKz z9?69*(Vrb1Q0B4(2zEQ;LEGsP$>SDZ;SaKNj z^8M<|FKM%nEWK1y#rD_D8$8>Z8WFxUlIm|Nd6u878V@UWXQzFND>Iq59oX_vlVRo z`XE`LSF zU$iFgd+sbrFMm=B==sk-=lcl&H8j*~1u4mZXh(Seu$^wlb`e;~lT2w; zk3t&xdYxT7nZe9(Ghkq6^Ytd`jnBb>MW`WES3eEU*Q4@b1=vbc2~8Y$tuj2mAl)zy4K_ zLpN)2I-+aXBBY}kj(61Zw+Jr>(rIA@~FeRgg-KR1(= zS>A8?={{qPuxwK3+RjwTWJE3_6NVe3wWG!YV!K0DfbDAa+?n~A<&9O@lB7H8GRNus zrsle(m3&W+?k=2`R(O|eK0lY8n#|1Q#_!!-6)NrPY0ZussXBEOn=qvGb=tT)j)>3S z7IImh+k1F#a?BaXqhcI2CFT3OrrC>%D#PTeZH-52WCI*FF^u!xFIV)BdBqB3*9?n=Se z*Nd)~mzS~I{546_^!LTeC#z^tQ*19T@kZQ)wPLP)O$OV=FXcmdus=AzNPf9!Ir)me zICqvEz!BlY@N)_-f5rWCZ(Vhz73ZQ4^5u)+Fuxwv^nli6bNMr$2SX|H*E!JsgdfU$$dt@R5!l3*Hi|-WShPtKV^N z=QB7*n;oA#@i+M4rtV&b ze%ukd-2?;P{ZSj3oPtB*13__)dQ@VCwNAQwBZL-0pEQC-2WUjvH$v(J8E zTBoEJx=DAxpY}DJkpn5W{qxVmhgZU3We0?}FGG?sckzoaIKlEpxHRlUY)5!t7hR>> zfxS-G-()Rj4h**2Fq~Gm`SZ|YU|@L2zM!g9F-0`;3V1!E4K-#=2~Q-?iIockfd2tDEchcX!q)@GWuGyVeXMziqn*Pqz0T$)eeP z{CMx+@y`C<{=t(+&z^z5fdJl7ee2;i>25g*koSTySXkvb5=bO<&u`w{yuH3Qm(NK% zmnAqy)cOq56S$4xODt>4GrT_$Ukfi3ri#!f~Uqt{`dd< zAF+7Ad$B;dhb=5E3@9DfeQS`%74CX{U8GnC;RXAmH%~bfqp(6IpG!LA z_(d2S?VlW%q|-4nET^Ssc6RK+gSBVRcKxWI`o`Jhc@W+@?{_0hOl}Vb_!vNoCiyMox}WDN3F>Z$vNzxEJSr zNA$ce%Qxa8`!x_RW~GoPW>Q$KK&#Fmo0NKSbT{KmV!DG?f)) z`nj21XnasrRe|clEbS07#Y_`j;Ionyyy^N@_9RfHq7j^D^Ge$H+iRbzluTs`DHX)yYodpx&)ZXS3mGkNRyKvv-3z$gJ5NFQ+o(g7c?-39D%ge)H!7Fy+g=u9XFJCZ9(ONxpL z`v)}D$(p(A!AQ5aOKX&%Qd!R9HnJ%*5!(l%t6qq-w)NY&O9RF4eC`s~E$(#k?k7x#&=#pS$d$cQST z(V>a#2qio=HjL+XSlQWZW_mhnP|ye7ti(BL^EjQ;{C%twZ-@IeABEylcF&vamRx z1AG-=j2Cz(x#cuUXt6QdIppE4<8x_o==Rbed^rtY9&DFIf3y0>UN`I-=`k!CQlAxL zUzw7=VO3=%CISXN)(s!tcVs*jX!flMa|{m;xaL=`eAOR8?dDPoBg$eDeU7L{Q*rS% zaf+ta#_F5?G;a7RFIXw{t1q1oL(GZ?Qgax6zC;p9OEbQ@L{_Pf+Ijf}@LK`zv=jO3 z*CUxt>-pJRQ&pkr@Fzd{DZhn5pLT;`t#jjn-E7^yzxwhUrU(Uqpo@a32YZC9G@S=7 zi~}pu-G&X2X!A&T7XS?};;mCmX6T0$%oIFDl5jh;8vDohsL?=8qUuR>+E|bj(v1-e zANw|vMu!>Z4CM~;oEsjploFH%u>gCr`O&{HEnZ6VMqV*r0B|%<>E~WMj!2BO;|Cy> zw8Ef4y!XQq3d7l3`#kEad`Kfy3|`TiK(=`(a%at~@Bz#bpwc)fWZ;0L$FOCNhw=W} z;UmUAkH&WA?s7PD(;}yD#zDQi8Y$ZY_`&mV(c{&$2n!AWT3}qwEQU*Wc{PfajABj< z@Z&D}JeiyP+w*cMJSL7f&BT~;9eiM))(7y`-qb)OK5hr|QQep8yEEj(P7+%Q#h9!Z zYxLLf*_CI%lkSWcZ2!cXSyqd?T3~^VkI$WD3(KndBw1$5Y|F&PKp@O&DoV!7{?_}V zvZ9<;2lkscMeLFMCKHBSM|8x2dq?OS(!HTk0;D{dM&^tHB|T(N-M(t3lNSdxOH*M0R3IV?&zT zLT-zTeB_P00Fa|is@I^|hCiwnjDb@y&#%T4F!=O(AJ*xNUt zepdTottd4y8>UDT#SY`V18=C{U(UWP7r8EmB^}QaP)GS^A2Uai^Y}z|bX@dtM3^<& zr1wh^l+?LAH=p+uUDG)>y)rpq3k|~Hb4UoreFk!QlRg|cg(yal^ z-DSfB1i*Ra|LIz9%ogeHW&!Ad;a<%S6UGjh;EyjvWRR%loZF_RvkQy4<&}AkdPZUC zc$^vXbF-;;QPj;l>(et6l2WE-R8<+khLGI2Fq@y*xVy2ilpoFvSi)mcQIudU3H z?w0-#^a$O)lp7rx80hO9*Ji<|9q!-QyuG@*xc_+9r<#*!l<_Mwp!&-6i*=zF0SMFW zk;&L7>`{DHGCMhOuKM}R_!$| zUQ{zBp^&tcz!VA9Rq~2uYl+EVk%{2i3XisTw`Z~=&27yb8{f;tuf8DES?(IF`5w=H z^r7fB)y-0C>u8e|DNnMer>nH2SRfddCAUx$^c98ydfHzMCwH{R&>m*H&0Poyn+^u=5~|~29G6M>+NJ7%zN& zRt;4z<rMvPd5A{FSSIyGopMHYv zV#K~SQ$K9ig+N-nEZKsuFB6tBrVRap?;m|6*!`yNppHwqp%w^5=8PWiB_+jp-qO-+ z0SL}Ig|Sf zTgJNf{k_BFF*Z(Qu^k|=J^67w1223J5>qCePVw?KMn=acCv^^{vnMpJm0XyE7mLJ^ z;!AU6-6Bt!I49|~4xXRl^UTjrQ>ChhCRyhpyoqzmebQhIaFNgmaVp`=ii%EH#~Hu_ zYgQx`2=L!frnj$e5YLAOBvPZgTOP4&6L}+&5<|U58jLn9Q=FOMF^w)q4NUT|N3(1V zEzyROv7o<4KAm+``6q;;UW2u+S*)`R3s8XYess{RT&YW)R)sYc#U+Kw`7ZzR% zEQIkJ%XijPm5KD(VH!ZXC-S{jFv+eI8?|LJgB=~MdW$WtEaaE+MlsyZgU>i4kct{0IL0;<8Sht81HU7Vo%oZ{wR^y-3p$mo;PFSpN0z zzn@#2$xe-EFVWK4Fr2X}T;1(uD}GG&ceian*!=w;e^^|c(L`bE?lO{(40eqUc2A8B zdP8o^#Mr>{!pzS0ra^dmYIJa*ThD>4zQLnI^9!?&5BAqLR`(t~^j<#a{d;#b5a4Ra zfg!d@Zc>_bXT|VjP@VKBGw~@b5IIHll<>{EwKvui^P%DSGr@LMt142Z(Ax>Zd#*5t z&;tYCkEyBEq7+L;P5h|aMiaIRiHcbl7AkbRoQAf$^*!$Ewh*Bhx3;2H)#XZqeLGqL zOM}0Dy}=vsx;|( zvd$MPo>Ijqq8+l}y`!axWVK8TKVD%AtSO;ok`!INA|>+NhaZ@ORFvINaz(eNfmGlH z4NM?V?Spp0Mt#E)0iQVV0EWgSs%L>4j8KCK$=~E9Gjn(pAcJ@)!2|Ic%wf#&%Ek+~ zs7}m(eC|VRmyL+MUNB`lFv6ODDX#6jl6dKnm3Zu!$3T7Rz`M(jL_3je$3GP1$-`+# zYaT=lI`YxZm|Speed true true - true + false .;$(SolutionDir);$(SolutionDir)xrServerEntities;$(SolutionDir)3rd party\luajit-2\src\;$(SolutionDir)3rd party\luabind\;$(xrSdkDir)include;$(XRAY_16X_LIBS)OpenAutomate\inc;$(SolutionDir)3rd party\CxImage;%(AdditionalIncludeDirectories) WIN32;NDEBUG;_WINDOWS;_USRDLL;XRGAME_EXPORTS;dSINGLE;MSVC;_SECURE_SCL=0;%(PreprocessorDefinitions) true From f9e29b210d4dc7d6a4007e943e40a435677c860f Mon Sep 17 00:00:00 2001 From: revolucas Date: Mon, 26 Jan 2015 07:41:48 -0500 Subject: [PATCH 085/166] * fix npcs getting stuck in action_take_cover * added a return to WeaponMagazined.cpp for when inventory_owner doesn't have active_item - reverted all changes done to stalker_animation_callbacks.cpp --- src/3rd party/luajit-2 | 2 +- src/xrGame/Level.cpp | 15 +- src/xrGame/WeaponMagazined.cpp | 2 + src/xrGame/alife_online_offline_group.cpp | 18 - src/xrGame/stalker_animation_callbacks.cpp | 17 +- src/xrGame/stalker_combat_actions.cpp | 1021 ++++++++++---------- 6 files changed, 523 insertions(+), 552 deletions(-) diff --git a/src/3rd party/luajit-2 b/src/3rd party/luajit-2 index bcfc9282e5c..7f013005f61 160000 --- a/src/3rd party/luajit-2 +++ b/src/3rd party/luajit-2 @@ -1 +1 @@ -Subproject commit bcfc9282e5c65bce9850fbc3f58b1d405423af15 +Subproject commit 7f013005f61b82300d4ec591fd4cec59a74d62ff diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index 05cba5bf7a3..b41dd91926a 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -379,9 +379,9 @@ void CLevel::ProcessGameEvents() game_events->insert(P); } u32 avail_time = 5; - u32 elps = Device.frame_elapsed(); //10ms - if (elps < 30) avail_time = 33 - elps; //23ms - u32 work_limit = elps + avail_time; //33ms + u32 elps = Device.frame_elapsed(); + if (elps < 30) avail_time = 33 - elps; + u32 work_limit = elps + avail_time; #endif //-AVO @@ -394,19 +394,20 @@ void CLevel::ProcessGameEvents() // не отправлять события не заспавненным объектам if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) { - //spawn_events->insert(P); + spawn_events->insert(P); continue; } - if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() < work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов + if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов { u16 parent_id; GetSpawnInfo(P, parent_id); //------------------------------------------------- if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры { + if (!spawn_events->available(svT)) + Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); + spawn_events->insert(P); - //if (spawn_events->available(svT)) - Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", spawn_events->queue.size()); continue; } } diff --git a/src/xrGame/WeaponMagazined.cpp b/src/xrGame/WeaponMagazined.cpp index 7e6f327592f..3781656e26a 100644 --- a/src/xrGame/WeaponMagazined.cpp +++ b/src/xrGame/WeaponMagazined.cpp @@ -518,6 +518,8 @@ void CWeaponMagazined::state_Fire(float dt) Log("next_state", GetNextState()); Log("item_sect", cNameSect().c_str()); Log("H_Parent", H_Parent()->cNameSect().c_str()); + StopShooting(); + return; //Alundaio: This is not supposed to happen but it does. GSC was aware but why no return here? Known to cause crash on game load if npc immediatly enters combat. } CEntity* E = smart_cast(H_Parent()); diff --git a/src/xrGame/alife_online_offline_group.cpp b/src/xrGame/alife_online_offline_group.cpp index 8ee83881e95..00fa300ff25 100644 --- a/src/xrGame/alife_online_offline_group.cpp +++ b/src/xrGame/alife_online_offline_group.cpp @@ -353,24 +353,6 @@ void CSE_ALifeOnlineOfflineGroup::force_change_position(Fvector position) //m_tGraphID = new_graph_vertex; } -//Alundaio: force new graph location -/* -void CSE_ALifeOnlineOfflineGroup::force_change_game_vertex_id(GameGraph::_GRAPH_ID game_vertex_id) -{ - if (game_vertex_id && ai().game_graph().valid_vertex_id(game_vertex_id)) - { - m_tNodeID = ai().game_graph().vertex(game_vertex_id)->level_vertex_id(); - o_Position = ai().game_graph().vertex(game_vertex_id)->level_point(); - - if (m_tGraphID != game_vertex_id) - { - alife().graph().change(this, m_tGraphID, game_vertex_id); - } - } -} -*/ -//Alundaio: END - void CSE_ALifeOnlineOfflineGroup::on_failed_switch_online() { MEMBERS::const_iterator I = m_members.begin(); diff --git a/src/xrGame/stalker_animation_callbacks.cpp b/src/xrGame/stalker_animation_callbacks.cpp index b9a7dbbbcfb..b39fd0f0b4a 100644 --- a/src/xrGame/stalker_animation_callbacks.cpp +++ b/src/xrGame/stalker_animation_callbacks.cpp @@ -29,21 +29,8 @@ static void _BCL callback_rotation (CBoneInstance* bone) return; Fvector position = bone->mTransform.c; - - //Alundaio: Attempt to workaround crash - //R_ASSERT ( _valid( *parameter->m_rotation ) ); - //bone->mTransform.mulA_43 (*parameter->m_rotation); - - if (_valid(*parameter->m_rotation)) - { - bone->mTransform.mulA_43(*parameter->m_rotation); - } - else { - Msg("ERROR: stalker_animation_callbacks.cpp | callback_rotation | _valid(*parameter->m_rotation) failed for %s", object->Name()); - bone->mTransform.mulA_43(*parameter->m_rotation); - } - //Alundaio: END - + R_ASSERT ( _valid( *parameter->m_rotation ) ); + bone->mTransform.mulA_43 (*parameter->m_rotation); CWeaponShotEffector& effector = object->weapon_shot_effector(); if (!effector.IsActive()) { bone->mTransform.c = position; diff --git a/src/xrGame/stalker_combat_actions.cpp b/src/xrGame/stalker_combat_actions.cpp index 44a67102a6c..a1225cf8aca 100644 --- a/src/xrGame/stalker_combat_actions.cpp +++ b/src/xrGame/stalker_combat_actions.cpp @@ -45,14 +45,14 @@ # define TEST_MENTAL_STATE #endif // DEBUG -const float TEMP_DANGER_DISTANCE = 5.f; -const u32 TEMP_DANGER_INTERVAL = 120000; +const float TEMP_DANGER_DISTANCE = 5.f; +const u32 TEMP_DANGER_INTERVAL = 120000; -const float CLOSE_MOVE_DISTANCE = -10.f; +const float CLOSE_MOVE_DISTANCE = -10.f; -const u32 CROUCH_LOOK_OUT_DELTA = 5000; +const u32 CROUCH_LOOK_OUT_DELTA = 5000; -static const u32 s_wait_enemy_in_smart_cover_time = 30*1000; +static const u32 s_wait_enemy_in_smart_cover_time = 30 * 1000; using namespace StalkerSpace; using namespace StalkerDecisionSpace; @@ -67,28 +67,28 @@ typedef CStalkerActionBase::_edge_value_type _edge_value_type; // CStalkerActionGetItemToKill ////////////////////////////////////////////////////////////////////////// -CStalkerActionGetItemToKill::CStalkerActionGetItemToKill (CAI_Stalker *object, LPCSTR action_name) : - inherited (object,action_name) +CStalkerActionGetItemToKill::CStalkerActionGetItemToKill(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionGetItemToKill::initialize () +void CStalkerActionGetItemToKill::initialize() { - inherited::initialize (); + inherited::initialize(); object().sound().remove_active_sounds(u32(eStalkerSoundMaskNoHumming)); - object().sight().setup (CSightAction(object().m_best_found_item_to_kill ? &object().m_best_found_item_to_kill->object() : 0,true)); + object().sight().setup(CSightAction(object().m_best_found_item_to_kill ? &object().m_best_found_item_to_kill->object() : 0, true)); - object().movement().set_mental_state (eMentalStateDanger); + object().movement().set_mental_state(eMentalStateDanger); } -void CStalkerActionGetItemToKill::finalize () +void CStalkerActionGetItemToKill::finalize() { - inherited::finalize (); + inherited::finalize(); - object().sight().clear (); - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,false)); + object().sight().clear(); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, false)); if (!object().g_Alive()) return; @@ -96,101 +96,101 @@ void CStalkerActionGetItemToKill::finalize () object().sound().set_sound_mask(0); } -void CStalkerActionGetItemToKill::execute () +void CStalkerActionGetItemToKill::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); if (!object().m_best_found_item_to_kill) return; - object().movement().set_level_dest_vertex (object().m_best_found_item_to_kill->object().ai_location().level_vertex_id()); - object().movement().set_desired_position (&object().m_best_found_item_to_kill->object().Position()); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_body_state (object().movement().body_state() == eBodyStateCrouch ? eBodyStateCrouch : eBodyStateStand); - object().movement().set_movement_type (eMovementTypeWalk); - object().set_goal (eObjectActionIdle); + object().movement().set_level_dest_vertex(object().m_best_found_item_to_kill->object().ai_location().level_vertex_id()); + object().movement().set_desired_position(&object().m_best_found_item_to_kill->object().Position()); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_body_state(object().movement().body_state() == eBodyStateCrouch ? eBodyStateCrouch : eBodyStateStand); + object().movement().set_movement_type(eMovementTypeWalk); + object().set_goal(eObjectActionIdle); } ////////////////////////////////////////////////////////////////////////// // CStalkerActionMakeItemKilling ////////////////////////////////////////////////////////////////////////// -CStalkerActionMakeItemKilling::CStalkerActionMakeItemKilling (CAI_Stalker *object, LPCSTR action_name) : - inherited (object,action_name) +CStalkerActionMakeItemKilling::CStalkerActionMakeItemKilling(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionMakeItemKilling::initialize () +void CStalkerActionMakeItemKilling::initialize() { - inherited::initialize (); + inherited::initialize(); - object().sound().remove_active_sounds (u32(eStalkerSoundMaskNoHumming)); + object().sound().remove_active_sounds(u32(eStalkerSoundMaskNoHumming)); - object().sight().clear (); - object().sight().add_action(eSightActionTypeWatchItem,xr_new(1.f,3000,CSightAction(SightManager::eSightTypePathDirection))); - object().sight().add_action(eSightActionTypeWatchEnemy,xr_new(1.f,3000,CSightAction(SightManager::eSightTypePosition,object().memory().enemy().selected()->Position(),false))); + object().sight().clear(); + object().sight().add_action(eSightActionTypeWatchItem, xr_new(1.f, 3000, CSightAction(SightManager::eSightTypePathDirection))); + object().sight().add_action(eSightActionTypeWatchEnemy, xr_new(1.f, 3000, CSightAction(SightManager::eSightTypePosition, object().memory().enemy().selected()->Position(), false))); - object().movement().set_mental_state (eMentalStateDanger); + object().movement().set_mental_state(eMentalStateDanger); } -void CStalkerActionMakeItemKilling::finalize () +void CStalkerActionMakeItemKilling::finalize() { - inherited::finalize (); + inherited::finalize(); - object().sight().clear (); - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,false)); + object().sight().clear(); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, false)); if (!object().g_Alive()) return; - object().sound().set_sound_mask (0); + object().sound().set_sound_mask(0); } -void CStalkerActionMakeItemKilling::execute () +void CStalkerActionMakeItemKilling::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); if (!object().m_best_found_ammo) return; - object().movement().set_level_dest_vertex (object().m_best_found_ammo->object().ai_location().level_vertex_id()); - object().movement().set_desired_position (&object().m_best_found_ammo->object().Position()); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_body_state (eBodyStateStand); - object().movement().set_movement_type (eMovementTypeWalk); - object().sight().action (eSightActionTypeWatchEnemy).set_vector3d(object().memory().enemy().selected()->Position()); - object().set_goal (eObjectActionIdle); + object().movement().set_level_dest_vertex(object().m_best_found_ammo->object().ai_location().level_vertex_id()); + object().movement().set_desired_position(&object().m_best_found_ammo->object().Position()); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_body_state(eBodyStateStand); + object().movement().set_movement_type(eMovementTypeWalk); + object().sight().action(eSightActionTypeWatchEnemy).set_vector3d(object().memory().enemy().selected()->Position()); + object().set_goal(eObjectActionIdle); } ////////////////////////////////////////////////////////////////////////// // CStalkerActionRetreatFromEnemy ////////////////////////////////////////////////////////////////////////// -CStalkerActionRetreatFromEnemy::CStalkerActionRetreatFromEnemy (CAI_Stalker *object, LPCSTR action_name) : - inherited (object,action_name) +CStalkerActionRetreatFromEnemy::CStalkerActionRetreatFromEnemy(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionRetreatFromEnemy::initialize () +void CStalkerActionRetreatFromEnemy::initialize() { - inherited::initialize (); + inherited::initialize(); } -void CStalkerActionRetreatFromEnemy::finalize () +void CStalkerActionRetreatFromEnemy::finalize() { - inherited::finalize (); + inherited::finalize(); if (!object().g_Alive()) return; @@ -198,58 +198,58 @@ void CStalkerActionRetreatFromEnemy::finalize () object().sound().set_sound_mask(0); } -void CStalkerActionRetreatFromEnemy::execute () +void CStalkerActionRetreatFromEnemy::execute() { - inherited::execute (); + inherited::execute(); if (!object().memory().enemy().selected()) return; - object().movement().set_movement_type (eMovementTypeRun); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); //Alundaio: Panic animation looks ridiculous, danger set is better - object().movement().set_body_state (eBodyStateStand); + object().movement().set_movement_type(eMovementTypeRun); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); //Alundaio: Panic animation looks ridiculous, danger set is better + object().movement().set_body_state(eBodyStateStand); - CCoverPoint const* point = 0; + CCoverPoint const* point = 0; CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); - if ( mem_object.m_object ) { - object().m_ce_far->setup (mem_object.m_object_params.m_position,0.f,300.f); - point = ai().cover_manager().best_cover(object().Position(),30.f,*object().m_ce_far,CStalkerMovementRestrictor(m_object,true)); + if (mem_object.m_object) { + object().m_ce_far->setup(mem_object.m_object_params.m_position, 0.f, 300.f); + point = ai().cover_manager().best_cover(object().Position(), 30.f, *object().m_ce_far, CStalkerMovementRestrictor(m_object, true)); if (!point) { - object().m_ce_far->setup (mem_object.m_object_params.m_position,0.f,300.f); - point = ai().cover_manager().best_cover(object().Position(),50.f,*object().m_ce_far,CStalkerMovementRestrictor(m_object,true)); + object().m_ce_far->setup(mem_object.m_object_params.m_position, 0.f, 300.f); + point = ai().cover_manager().best_cover(object().Position(), 50.f, *object().m_ce_far, CStalkerMovementRestrictor(m_object, true)); } } if (point) { - object().movement().set_level_dest_vertex (point->level_vertex_id()); - object().movement().set_desired_position (&point->position()); - object().CObjectHandler::set_goal (eObjectActionIdle); - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,false)); + object().movement().set_level_dest_vertex(point->level_vertex_id()); + object().movement().set_desired_position(&point->position()); + object().CObjectHandler::set_goal(eObjectActionIdle); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, false)); } else { if (object().memory().visual().visible_now(object().memory().enemy().selected())) { - object().movement().set_mental_state (eMentalStateDanger); -// u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; -// float distance = object().memory().enemy().selected()->Position().distance_to(object().Position()); -// select_queue_params (distance,min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); -// object().CObjectHandler::set_goal (eObjectActionFire1,object().best_weapon(),min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); - fire (); - object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); + object().movement().set_mental_state(eMentalStateDanger); + // u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; + // float distance = object().memory().enemy().selected()->Position().distance_to(object().Position()); + // select_queue_params (distance,min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + // object().CObjectHandler::set_goal (eObjectActionFire1,object().best_weapon(),min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + fire(); + object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); } else { - object().CObjectHandler::set_goal (eObjectActionIdle); - object().sight().setup (CSightAction(SightManager::eSightTypeCover,true)); + object().CObjectHandler::set_goal(eObjectActionIdle); + object().sight().setup(CSightAction(SightManager::eSightTypeCover, true)); } } #ifndef SILENT_COMBAT - play_panic_sound (0,0,10000); + play_panic_sound(0, 0, 10000); #endif } -_edge_value_type CStalkerActionRetreatFromEnemy::weight (const CSConditionState &condition0, const CSConditionState &condition1) const +_edge_value_type CStalkerActionRetreatFromEnemy::weight(const CSConditionState &condition0, const CSConditionState &condition1) const { return (_edge_value_type(100)); } @@ -259,53 +259,53 @@ _edge_value_type CStalkerActionRetreatFromEnemy::weight (const CSConditionState ////////////////////////////////////////////////////////////////////////// CStalkerActionGetReadyToKill::CStalkerActionGetReadyToKill(bool affect_properties, CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { - m_affect_properties = affect_properties; + m_affect_properties = affect_properties; } -void CStalkerActionGetReadyToKill::initialize () +void CStalkerActionGetReadyToKill::initialize() { - inherited::initialize (); - - m_body_state = object().movement().body_state(); -// m_movement_type = Random.randI(2) ? eMovementTypeRun : eMovementTypeWalk; -// m_movement_type = eMovementTypeRun; + inherited::initialize(); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_nearest_accessible_position (); - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_body_state (m_body_state); -// object().movement().set_movement_type (eMovementTypeRun); -// object().sight().setup (CSightAction(SightManager::eSightTypePathDirection)); + m_body_state = object().movement().body_state(); + // m_movement_type = Random.randI(2) ? eMovementTypeRun : eMovementTypeWalk; + // m_movement_type = eMovementTypeRun; + + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_nearest_accessible_position(); + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_body_state(m_body_state); + // object().movement().set_movement_type (eMovementTypeRun); + // object().sight().setup (CSightAction(SightManager::eSightTypePathDirection)); if (m_affect_properties) { - m_storage->set_property (eWorldPropertyInCover,false); - m_storage->set_property (eWorldPropertyLookedOut,false); - m_storage->set_property (eWorldPropertyPositionHolded,false); - m_storage->set_property (eWorldPropertyEnemyDetoured,false); + m_storage->set_property(eWorldPropertyInCover, false); + m_storage->set_property(eWorldPropertyLookedOut, false); + m_storage->set_property(eWorldPropertyPositionHolded, false); + m_storage->set_property(eWorldPropertyEnemyDetoured, false); - m_enable_enemy_change = object().memory().enemy().enable_enemy_change(); - object().memory().enemy().enable_enemy_change (false); + m_enable_enemy_change = object().memory().enemy().enable_enemy_change(); + object().memory().enemy().enable_enemy_change(false); } } -void CStalkerActionGetReadyToKill::finalize () +void CStalkerActionGetReadyToKill::finalize() { - inherited::finalize (); + inherited::finalize(); if (m_affect_properties) - object().memory().enemy().enable_enemy_change (m_enable_enemy_change); + object().memory().enemy().enable_enemy_change(m_enable_enemy_change); } -void CStalkerActionGetReadyToKill::execute () +void CStalkerActionGetReadyToKill::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); if (!object().m_best_item_to_kill) return; @@ -314,58 +314,58 @@ void CStalkerActionGetReadyToKill::execute () return; if (object().movement().detail().distance_to_target() < 2.f) { - object().movement().set_movement_type (eMovementTypeWalk); - object().sight().setup (CSightAction(SightManager::eSightTypeCurrentDirection)); + object().movement().set_movement_type(eMovementTypeWalk); + object().sight().setup(CSightAction(SightManager::eSightTypeCurrentDirection)); } else { - object().movement().set_movement_type (eMovementTypeRun); - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection)); + object().movement().set_movement_type(eMovementTypeRun); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection)); } if (object().movement().detail().distance_to_target() > CLOSE_MOVE_DISTANCE) - object().movement().set_body_state (eBodyStateStand); -// else { -// object().movement().set_movement_type (m_movement_type); -// } - CMemoryInfo const mem_object = object().memory().memory(object().memory().enemy().selected()); - if ( mem_object.m_object ) { - Fvector const position = mem_object.m_object_params.m_position; - CCoverPoint const* const point = object().best_cover(position); + object().movement().set_body_state(eBodyStateStand); + // else { + // object().movement().set_movement_type (m_movement_type); + // } + CMemoryInfo const mem_object = object().memory().memory(object().memory().enemy().selected()); + if (mem_object.m_object) { + Fvector const position = mem_object.m_object_params.m_position; + CCoverPoint const* const point = object().best_cover(position); if (point) { - setup_cover (*point); - // object().movement().set_movement_type (eMovementTypeRun); + setup_cover(*point); + // object().movement().set_movement_type (eMovementTypeRun); if (object().movement().path_completed() || object().Position().distance_to(point->position()) < 1.f) { - // object().movement().set_body_state (eBodyStateCrouch); - object().brain().affect_cover (true); + // object().movement().set_body_state (eBodyStateCrouch); + object().brain().affect_cover(true); } else { - // object().movement().set_body_state (eBodyStateStand); - object().brain().affect_cover (false); + // object().movement().set_body_state (eBodyStateStand); + object().brain().affect_cover(false); } } else { - object().brain().affect_cover (true); - object().movement().set_movement_type (eMovementTypeStand); - // object().movement().set_body_state (eBodyStateCrouch); - object().movement().set_nearest_accessible_position (); + object().brain().affect_cover(true); + object().movement().set_movement_type(eMovementTypeStand); + // object().movement().set_body_state (eBodyStateCrouch); + object().movement().set_nearest_accessible_position(); } } -// if (object().memory().visual().visible_now(object().memory().enemy().selected())) -// object().sight().setup (CSightAction(object().memory().enemy().selected(),true)); -// else -// object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + // if (object().memory().visual().visible_now(object().memory().enemy().selected())) + // object().sight().setup (CSightAction(object().memory().enemy().selected(),true)); + // else + // object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); -// if ((point && !point->position().similar(object().Position(),.5f)) || !object().movement().path_completed()) -// object().sight().setup (CSightAction(SightManager::eSightTypePathDirection)); + // if ((point && !point->position().similar(object().Position(),.5f)) || !object().movement().path_completed()) + // object().sight().setup (CSightAction(SightManager::eSightTypePathDirection)); if (m_affect_properties) - aim_ready (); + aim_ready(); else - aim_ready_force_full (); + aim_ready_force_full(); if (object().movement().path_completed()) - object().best_cover_can_try_advance (); + object().best_cover_can_try_advance(); } ////////////////////////////////////////////////////////////////////////// @@ -373,38 +373,38 @@ void CStalkerActionGetReadyToKill::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionKillEnemy::CStalkerActionKillEnemy(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { } -void CStalkerActionKillEnemy::initialize () +void CStalkerActionKillEnemy::initialize() { - inherited::initialize (); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_nearest_accessible_position (); - object().movement().set_mental_state (eMentalStateDanger); -// object().movement().set_body_state (m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); - object().movement().set_movement_type (eMovementTypeStand); - m_storage->set_property (eWorldPropertyLookedOut,false); - m_storage->set_property (eWorldPropertyPositionHolded,false); - m_storage->set_property (eWorldPropertyEnemyDetoured,false); + inherited::initialize(); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_nearest_accessible_position(); + object().movement().set_mental_state(eMentalStateDanger); + // object().movement().set_body_state (m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); + object().movement().set_movement_type(eMovementTypeStand); + m_storage->set_property(eWorldPropertyLookedOut, false); + m_storage->set_property(eWorldPropertyPositionHolded, false); + m_storage->set_property(eWorldPropertyEnemyDetoured, false); #ifndef SILENT_COMBAT - play_attack_sound (0,0,6000,4000); + play_attack_sound(0, 0, 6000, 4000); #endif - object().brain().affect_cover (true); + object().brain().affect_cover(true); } -void CStalkerActionKillEnemy::finalize () +void CStalkerActionKillEnemy::finalize() { - inherited::finalize (); + inherited::finalize(); } -void CStalkerActionKillEnemy::execute () +void CStalkerActionKillEnemy::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE inherited::execute(); @@ -412,21 +412,21 @@ void CStalkerActionKillEnemy::execute () //Alundaio: Prevent Stalkers from shooting at walls for prolonged periods due to kill if not visible const CEntityAlive *enemy = object().memory().enemy().selected(); - if (!enemy || !enemy->g_Alive()) - return; - - CMemoryInfo mem_object = object().memory().memory(enemy); - - if (!mem_object.m_object) - return; - - object().best_cover(mem_object.m_object_params.m_position); - - u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); - if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 2000) { - object().sight().setup(CSightAction(enemy, true, true)); - fire(); + if (enemy && enemy->g_Alive()) + { + CMemoryInfo mem_object = object().memory().memory(enemy); + if (mem_object.m_object) { + object().best_cover(mem_object.m_object_params.m_position); + } + u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); + //Here NPC will only fire at not visible enemy for no more than 3 seconds instead of shooting at walls like morons + if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 3000) { + object().sight().setup(CSightAction(enemy, true, true)); + fire(); + } } + else + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); //Alundaio: END } @@ -435,51 +435,52 @@ void CStalkerActionKillEnemy::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionTakeCover::CStalkerActionTakeCover(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { } -void CStalkerActionTakeCover::initialize () +void CStalkerActionTakeCover::initialize() { - inherited::initialize (); + inherited::initialize(); - m_body_state = object().movement().body_state(); -// m_movement_type = Random.randI(2) ? eMovementTypeRun : eMovementTypeWalk; - m_movement_type = eMovementTypeWalk; + m_body_state = object().movement().body_state(); + // m_movement_type = Random.randI(2) ? eMovementTypeRun : eMovementTypeWalk; + m_movement_type = eMovementTypeWalk; - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_body_state (m_body_state); - object().movement().set_movement_type (m_movement_type); - m_storage->set_property (eWorldPropertyLookedOut,false); - m_storage->set_property (eWorldPropertyPositionHolded,false); - m_storage->set_property (eWorldPropertyEnemyDetoured,false); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_body_state(m_body_state); + object().movement().set_movement_type(m_movement_type); + m_storage->set_property(eWorldPropertyLookedOut, false); + m_storage->set_property(eWorldPropertyPositionHolded, false); + m_storage->set_property(eWorldPropertyEnemyDetoured, false); #ifndef SILENT_COMBAT if (object().memory().enemy().selected() && object().memory().enemy().selected()->human_being()) { if (object().agent_manager().member().can_cry_noninfo_phrase()) if (object().Position().distance_to_sqr(object().memory().enemy().selected()->Position()) < _sqr(10.f)) if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().agent_manager().member().group_behaviour()) - object().sound().play (eStalkerSoundBackup,0,0,6000,4000); + object().sound().play(eStalkerSoundBackup, 0, 0, 6000, 4000); } #endif } -void CStalkerActionTakeCover::finalize () +void CStalkerActionTakeCover::finalize() { - inherited::finalize (); + inherited::finalize(); } -void CStalkerActionTakeCover::execute () +void CStalkerActionTakeCover::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); + //Alundaio: const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) return; @@ -490,9 +491,9 @@ void CStalkerActionTakeCover::execute () return; if (object().movement().detail().distance_to_target() > CLOSE_MOVE_DISTANCE) - object().movement().set_body_state (eBodyStateStand); + object().movement().set_body_state(eBodyStateStand); else - object().movement().set_movement_type (m_movement_type); + object().movement().set_movement_type(m_movement_type); Fvector position = mem_object.m_object_params.m_position; const CCoverPoint *point = object().best_cover(position); @@ -509,13 +510,14 @@ void CStalkerActionTakeCover::execute () object().brain().affect_cover(true); } -//. Add fire here -// if (object().memory().visual().visible_now(object().memory().enemy().selected()) && object().can_kill_enemy()) -// if (object().memory().visual().visible_now(object().memory().enemy().selected())) + if (object().movement().path_completed()) {// && (object().memory().enemy().selected()->Position().distance_to_sqr(object().Position()) >= 10.f)) + object().best_cover_can_try_advance(); + m_storage->set_property(eWorldPropertyInCover, true); + } - //Alundaio: Fix shooting at walls or aiming at ceiling or floor during this action + //Don't shoot if enemy not visible for longer than 3 seconds u32 last_time_seen = object().memory().visual().visible_object_time_last_seen(enemy); - if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 2000 && fire_make_sense()) { + if (last_time_seen != u32(-1) && Device.dwTimeGlobal - last_time_seen <= 3000 && fire_make_sense()) { fire(); } else { @@ -533,7 +535,6 @@ void CStalkerActionTakeCover::execute () else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } - //-Alundaio } ////////////////////////////////////////////////////////////////////////// @@ -541,46 +542,46 @@ void CStalkerActionTakeCover::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionLookOut::CStalkerActionLookOut(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { - m_crouch_look_out_random.seed (u32(CPU::QPC() & 0xffffffff)); - m_last_change_time = 0; + m_crouch_look_out_random.seed(u32(CPU::QPC() & 0xffffffff)); + m_last_change_time = 0; } -void CStalkerActionLookOut::initialize () +void CStalkerActionLookOut::initialize() { - inherited::initialize (); - + inherited::initialize(); + if (Device.dwTimeGlobal >= m_last_change_time + CROUCH_LOOK_OUT_DELTA) { - m_storage->set_property (eWorldPropertyUseCrouchToLookOut, !!m_crouch_look_out_random.random(2)); - m_last_change_time = Device.dwTimeGlobal; + m_storage->set_property(eWorldPropertyUseCrouchToLookOut, !!m_crouch_look_out_random.random(2)); + m_last_change_time = Device.dwTimeGlobal; } - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); - object().movement().set_body_state (m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); - object().movement().set_movement_type (eMovementTypeWalk); - object().movement().set_nearest_accessible_position (); + object().movement().set_body_state(m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); + object().movement().set_movement_type(eMovementTypeWalk); + object().movement().set_nearest_accessible_position(); if (object().ready_to_detour()) - aim_ready (); + aim_ready(); else { - aim_ready_force_full (); - object().movement().set_movement_type (eMovementTypeStand); + aim_ready_force_full(); + object().movement().set_movement_type(eMovementTypeStand); } - set_inertia_time (1000); - object().brain().affect_cover (true); + set_inertia_time(1000); + object().brain().affect_cover(true); } -float current_cover (CAI_Stalker *object) +float current_cover(CAI_Stalker *object) { Fvector position, direction; - position = object->eye_matrix.c; - direction = object->eye_matrix.k; + position = object->eye_matrix.c; + direction = object->eye_matrix.k; collide::rq_result ray_query_result; BOOL result = Level().ObjectSpace.RayPick( position, @@ -589,7 +590,7 @@ float current_cover (CAI_Stalker *object) collide::rqtStatic, ray_query_result, NULL - ); + ); if (!result) return (100.f); @@ -597,19 +598,19 @@ float current_cover (CAI_Stalker *object) return (ray_query_result.range); } -void CStalkerActionLookOut::finalize () +void CStalkerActionLookOut::finalize() { - inherited::finalize (); + inherited::finalize(); } -void CStalkerActionLookOut::execute () +void CStalkerActionLookOut::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); - + inherited::execute(); + const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) return; @@ -627,35 +628,35 @@ void CStalkerActionLookOut::execute () } else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); + + object().best_cover(mem_object.m_object_params.m_position); //-Alundaio if (current_cover(m_object) >= 3.f) { - object().movement().set_nearest_accessible_position (); - m_storage->set_property (eWorldPropertyLookedOut,true); + object().movement().set_nearest_accessible_position(); + m_storage->set_property(eWorldPropertyLookedOut, true); return; } Fvector position = mem_object.m_object_params.m_position; - object().m_ce_close->setup (position,0.f,170.f,10.f); - const CCoverPoint *point = ai().cover_manager().best_cover(object().Position(),10.f,*object().m_ce_close);//,CStalkerMovementRestrictor(m_object,true,false)); + object().m_ce_close->setup(position, 0.f, 170.f, 10.f); + const CCoverPoint *point = ai().cover_manager().best_cover(object().Position(), 10.f, *object().m_ce_close);//,CStalkerMovementRestrictor(m_object,true,false)); if (!point || (point->position().similar(object().Position()) && object().movement().path_completed())) { - object().m_ce_close->setup (position,0.f,170.f,10.f); - point = ai().cover_manager().best_cover(object().Position(),30.f,*object().m_ce_close);//,CStalkerMovementRestrictor(m_object,true,false)); + object().m_ce_close->setup(position, 0.f, 170.f, 10.f); + point = ai().cover_manager().best_cover(object().Position(), 30.f, *object().m_ce_close);//,CStalkerMovementRestrictor(m_object,true,false)); } if (point) { - object().movement().set_level_dest_vertex (point->level_vertex_id()); - object().movement().set_desired_position (&point->position()); + object().movement().set_level_dest_vertex(point->level_vertex_id()); + object().movement().set_desired_position(&point->position()); } else - object().movement().set_nearest_accessible_position (); - -// if (point && point->position().similar(object().Position(),.5f) && object().movement().path_completed()) { -// m_storage->set_property (eWorldPropertyLookedOut,true); -// object().movement().set_nearest_accessible_position (); -// } + object().movement().set_nearest_accessible_position(); - object().best_cover(mem_object.m_object_params.m_position); + // if (point && point->position().similar(object().Position(),.5f) && object().movement().path_completed()) { + // m_storage->set_property (eWorldPropertyLookedOut,true); + // object().movement().set_nearest_accessible_position (); + // } } ////////////////////////////////////////////////////////////////////////// @@ -663,40 +664,43 @@ void CStalkerActionLookOut::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionHoldPosition::CStalkerActionHoldPosition(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { } -void CStalkerActionHoldPosition::initialize () +void CStalkerActionHoldPosition::initialize() { - inherited::initialize (); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_nearest_accessible_position (); - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_body_state (m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); - object().movement().set_movement_type (eMovementTypeStand); + inherited::initialize(); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_nearest_accessible_position(); + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_body_state(m_storage->property(eWorldPropertyUseCrouchToLookOut) ? eBodyStateCrouch : eBodyStateStand); + object().movement().set_movement_type(eMovementTypeStand); - aim_ready (); + aim_ready(); - set_inertia_time (1000 + ::Random32.random(2000)); - object().brain().affect_cover (true); + set_inertia_time(1000 + ::Random32.random(2000)); + object().brain().affect_cover(true); } -void CStalkerActionHoldPosition::finalize () +void CStalkerActionHoldPosition::finalize() { - inherited::finalize (); + inherited::finalize(); } -void CStalkerActionHoldPosition::execute () +void CStalkerActionHoldPosition::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); - + inherited::execute(); + + //Alundaio: Cleaned up + //Possible TODO: This action is a good place to prevent stalkers staring at walls. A simple ray query each execute can do the trick by rotating the stalker until the differences between the last query and new query + //are larger than some defined threshold. This way you can detect edges of walls and would give the illusion of stalkers looking at corridors or chokepoints instead of through a wall. const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) return; @@ -706,8 +710,10 @@ void CStalkerActionHoldPosition::execute () if (!mem_object.m_object) return; + object().best_cover(mem_object.m_object_params.m_position); + if (current_cover(m_object) < 3.f) - m_storage->set_property (eWorldPropertyLookedOut,false); + m_storage->set_property(eWorldPropertyLookedOut, false); //Alundaio: Prevent stalkers from staring at floor or ceiling for this action if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) @@ -718,34 +724,27 @@ void CStalkerActionHoldPosition::execute () else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); //-Alundaio - + if (completed()) { - if ( - object().agent_manager().member().can_detour() || - !object().agent_manager().member().cover_detouring() || - !fire_make_sense() + if ( + object().agent_manager().member().can_detour() || + !object().agent_manager().member().cover_detouring() || + !fire_make_sense() ) { - m_storage->set_property (eWorldPropertyPositionHolded,true); - m_storage->set_property (eWorldPropertyInCover,false); + m_storage->set_property(eWorldPropertyPositionHolded, true); + m_storage->set_property(eWorldPropertyInCover, false); } } if (object().agent_manager().member().cover_detouring() && fire_make_sense()) { -// object().sound().play (eStalkerSoundDetour,3000,3000,10000,10000); - object().sound().play (eStalkerSoundNeedBackup,3000,3000,10000,10000); - fire (); + // object().sound().play (eStalkerSoundDetour,3000,3000,10000,10000); + object().sound().play(eStalkerSoundNeedBackup, 3000, 3000, 10000, 10000); + fire(); } else { - aim_ready (); - } - - if (object().memory().enemy().selected()) { - CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); - - if (mem_object.m_object) { - object().best_cover (mem_object.m_object_params.m_position); - } + aim_ready(); } + //-Alundaio } ////////////////////////////////////////////////////////////////////////// @@ -753,62 +752,62 @@ void CStalkerActionHoldPosition::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionDetourEnemy::CStalkerActionDetourEnemy(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { } -void CStalkerActionDetourEnemy::initialize () +void CStalkerActionDetourEnemy::initialize() { - inherited::initialize (); - object().agent_manager().member().member (&object()).detour (true); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_body_state (eBodyStateStand); - object().movement().set_movement_type (eMovementTypeRun); + inherited::initialize(); + object().agent_manager().member().member(&object()).detour(true); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_body_state(eBodyStateStand); + object().movement().set_movement_type(eMovementTypeRun); - aim_ready (); + aim_ready(); #ifdef DISABLE_COVER_BEFORE_DETOUR - if (/**(Random.randF(1.f) < .8f) && /**/object().agent_manager().member().member(m_object).cover()) - object().agent_manager().location().add ( - xr_new( - object().agent_manager().member().member(m_object).cover(), - Device.dwTimeGlobal, - TEMP_DANGER_INTERVAL, - TEMP_DANGER_DISTANCE - ,object().agent_manager().member().mask(&object()) - ) + if (/**(Random.randF(1.f) < .8f) && /**/object().agent_manager().member().member(m_object).cover()) + object().agent_manager().location().add( + xr_new( + object().agent_manager().member().member(m_object).cover(), + Device.dwTimeGlobal, + TEMP_DANGER_INTERVAL, + TEMP_DANGER_DISTANCE + , object().agent_manager().member().mask(&object()) + ) ); #endif object().agent_manager().member().member(m_object).cover(0); -//#ifndef SILENT_COMBAT - //Alundaio: Sanity + //#ifndef SILENT_COMBAT + //Alundaio: Added sanity to make sure enemy exists if (object().memory().enemy().selected() && object().memory().enemy().selected()->human_being() && object().agent_manager().member().group_behaviour()) - //Alundaio: END -// object().sound().play (eStalkerSoundNeedBackup); - object().sound().play (eStalkerSoundDetour); -//#endif + //Alundaio: END + // object().sound().play (eStalkerSoundNeedBackup); + object().sound().play(eStalkerSoundDetour); + //#endif } -void CStalkerActionDetourEnemy::finalize () +void CStalkerActionDetourEnemy::finalize() { - inherited::finalize (); - + inherited::finalize(); + if (object().g_Alive()) - object().agent_manager().member().member(&object()).detour (false); + object().agent_manager().member().member(&object()).detour(false); } -void CStalkerActionDetourEnemy::execute () +void CStalkerActionDetourEnemy::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) @@ -821,23 +820,23 @@ void CStalkerActionDetourEnemy::execute () if (object().movement().path_completed()) { Fvector position = mem_object.m_object_params.m_position; - - object().m_ce_angle->setup (position,10.f,object().ffGetRange(),mem_object.m_object_params.m_level_vertex_id); - const CCoverPoint *point = ai().cover_manager().best_cover(object().Position(),10.f,*object().m_ce_angle,CStalkerMovementRestrictor(m_object,true)); + + object().m_ce_angle->setup(position, 10.f, object().ffGetRange(), mem_object.m_object_params.m_level_vertex_id); + const CCoverPoint *point = ai().cover_manager().best_cover(object().Position(), 10.f, *object().m_ce_angle, CStalkerMovementRestrictor(m_object, true)); if (!point) { - object().m_ce_angle->setup (position,10.f,object().ffGetRange(),mem_object.m_object_params.m_level_vertex_id); - point = ai().cover_manager().best_cover(object().Position(),30.f,*object().m_ce_angle,CStalkerMovementRestrictor(m_object,true)); + object().m_ce_angle->setup(position, 10.f, object().ffGetRange(), mem_object.m_object_params.m_level_vertex_id); + point = ai().cover_manager().best_cover(object().Position(), 30.f, *object().m_ce_angle, CStalkerMovementRestrictor(m_object, true)); } if (point) { - object().movement().set_level_dest_vertex (point->level_vertex_id()); - object().movement().set_desired_position (&point->position()); + object().movement().set_level_dest_vertex(point->level_vertex_id()); + object().movement().set_desired_position(&point->position()); } else - object().movement().set_nearest_accessible_position (); + object().movement().set_nearest_accessible_position(); if (object().movement().path_completed()) - m_storage->set_property (eWorldPropertyEnemyDetoured,true); + m_storage->set_property(eWorldPropertyEnemyDetoured, true); } //Alundaio: Prevent stalkers from staring at floor or ceiling for this action @@ -855,31 +854,31 @@ void CStalkerActionDetourEnemy::execute () // CStalkerActionPostCombatWait ////////////////////////////////////////////////////////////////////////// -CStalkerActionPostCombatWait::CStalkerActionPostCombatWait (CAI_Stalker *object, LPCSTR action_name) : - inherited (object, action_name) +CStalkerActionPostCombatWait::CStalkerActionPostCombatWait(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionPostCombatWait::initialize () +void CStalkerActionPostCombatWait::initialize() { - inherited::initialize (); - + inherited::initialize(); + if (object().movement().current_params().cover()) return; - object().movement().set_movement_type(eMovementTypeRun); - + object().movement().set_movement_type(eMovementTypeRun); //Alundaio: Changed from walk to run + EObjectAction action = eObjectActionAimReady1; if (m_storage->property(eWorldPropertyKilledWounded)) - action = eObjectActionIdle; + action = eObjectActionIdle; if (object().inventory().ActiveItem() && object().best_weapon() && (object().inventory().ActiveItem()->object().ID() == object().best_weapon()->object().ID())) - object().set_goal (action,object().best_weapon()); + object().set_goal(action, object().best_weapon()); else { if (object().inventory().ItemFromSlot(INV_SLOT_2)) { CWeaponMagazined *temp = smart_cast(object().inventory().ItemFromSlot(INV_SLOT_2)); if (object().inventory().ActiveItem() && temp && (object().inventory().ActiveItem()->object().ID() == temp->ID())) - object().set_goal (action,object().inventory().ItemFromSlot(INV_SLOT_2)); + object().set_goal(action, object().inventory().ItemFromSlot(INV_SLOT_2)); } } @@ -887,55 +886,55 @@ void CStalkerActionPostCombatWait::initialize () return; if (object().memory().enemy().last_enemy() && object().memory().visual().visible_now(object().memory().enemy().last_enemy())) - object().sight().setup (CSightAction(object().memory().enemy().last_enemy(),true,true)); + object().sight().setup(CSightAction(object().memory().enemy().last_enemy(), true, true)); } -void CStalkerActionPostCombatWait::execute () +void CStalkerActionPostCombatWait::execute() { - inherited::execute (); + inherited::execute(); } -void CStalkerActionPostCombatWait::finalize () +void CStalkerActionPostCombatWait::finalize() { - inherited::finalize (); + inherited::finalize(); } ////////////////////////////////////////////////////////////////////////// // CStalkerActionHideFromGrenade ////////////////////////////////////////////////////////////////////////// -CStalkerActionHideFromGrenade::CStalkerActionHideFromGrenade (CAI_Stalker *object, LPCSTR action_name) : - inherited (object, action_name) +CStalkerActionHideFromGrenade::CStalkerActionHideFromGrenade(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionHideFromGrenade::initialize () +void CStalkerActionHideFromGrenade::initialize() { - inherited::initialize (); + inherited::initialize(); - m_storage->set_property (eWorldPropertyUseSuddenness,false); + m_storage->set_property(eWorldPropertyUseSuddenness, false); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_body_state (eBodyStateStand); - object().movement().set_movement_type (eMovementTypeRun); - object().m_ce_best->invalidate (); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_body_state(eBodyStateStand); + object().movement().set_movement_type(eMovementTypeRun); + object().m_ce_best->invalidate(); - m_storage->set_property (eWorldPropertyInCover,false); - m_storage->set_property (eWorldPropertyLookedOut,false); - m_storage->set_property (eWorldPropertyPositionHolded,false); - m_storage->set_property (eWorldPropertyEnemyDetoured,false); + m_storage->set_property(eWorldPropertyInCover, false); + m_storage->set_property(eWorldPropertyLookedOut, false); + m_storage->set_property(eWorldPropertyPositionHolded, false); + m_storage->set_property(eWorldPropertyEnemyDetoured, false); } -void CStalkerActionHideFromGrenade::execute () +void CStalkerActionHideFromGrenade::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); if (!object().memory().danger().selected()) return; @@ -943,84 +942,84 @@ void CStalkerActionHideFromGrenade::execute () Fvector position = object().memory().danger().selected()->position(); const CCoverPoint *point = object().best_cover(position); if (point) { - setup_cover (*point); - object().movement().set_movement_type (eMovementTypeRun); + setup_cover(*point); + object().movement().set_movement_type(eMovementTypeRun); } else { - object().movement().set_movement_type (eMovementTypeStand); - object().movement().set_body_state (eBodyStateCrouch); + object().movement().set_movement_type(eMovementTypeStand); + object().movement().set_body_state(eBodyStateCrouch); } if (!object().memory().enemy().selected()) - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,true,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); else { CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) { - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,true,true)); - aim_ready (); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); + aim_ready(); } else { if (!m_object->memory().visual().visible_now(object().memory().enemy().selected())) { if (position.distance_to_sqr(object().Position()) < _sqr(5.f)) - object().sight().setup (CSightAction(SightManager::eSightTypePathDirection,true,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePathDirection, true, true)); else - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - aim_ready (); + aim_ready(); } else { - object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); - fire (); + object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); + fire(); } } } - + if (object().movement().path_completed()) - object().movement().set_body_state (eBodyStateCrouch); + object().movement().set_body_state(eBodyStateCrouch); } -void CStalkerActionHideFromGrenade::finalize () +void CStalkerActionHideFromGrenade::finalize() { - inherited::finalize (); + inherited::finalize(); } ////////////////////////////////////////////////////////////////////////// // CStalkerActionSuddenAttack ////////////////////////////////////////////////////////////////////////// -CStalkerActionSuddenAttack::CStalkerActionSuddenAttack (CAI_Stalker *object, LPCSTR action_name) : - inherited (object, action_name) +CStalkerActionSuddenAttack::CStalkerActionSuddenAttack(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerActionSuddenAttack::initialize () +void CStalkerActionSuddenAttack::initialize() { - inherited::initialize (); + inherited::initialize(); - object().movement().set_desired_direction (0); - object().movement().set_path_type (MovementManager::ePathTypeLevelPath); - object().movement().set_detail_path_type (DetailPathManager::eDetailPathTypeSmooth); - object().movement().set_mental_state (eMentalStateDanger); + object().movement().set_desired_direction(0); + object().movement().set_path_type(MovementManager::ePathTypeLevelPath); + object().movement().set_detail_path_type(DetailPathManager::eDetailPathTypeSmooth); + object().movement().set_mental_state(eMentalStateDanger); if (!object().memory().enemy().selected()) return; - aim_ready (); + aim_ready(); } -void CStalkerActionSuddenAttack::finalize () +void CStalkerActionSuddenAttack::finalize() { - inherited::finalize (); + inherited::finalize(); } -void CStalkerActionSuddenAttack::execute () +void CStalkerActionSuddenAttack::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); + inherited::execute(); //Alundaio: Removed check to allow stalkers to sneak up on enemy even if they are in a group. //if (object().agent_manager().member().combat_members().size() > 1) @@ -1037,7 +1036,7 @@ void CStalkerActionSuddenAttack::execute () bool visible_now = object().memory().visual().visible_now(object().memory().enemy().selected()); if (visible_now) - object().sight().setup (CSightAction(object().memory().enemy().selected(),true)); + object().sight().setup(CSightAction(object().memory().enemy().selected(), true)); else { //Alundaio: Prevent stalkers from staring at floor or ceiling for this action if (_abs(object().Position().y - mem_object.m_object_params.m_position.y) > 3.f) @@ -1047,58 +1046,58 @@ void CStalkerActionSuddenAttack::execute () } else object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); - //-Alundaio + //-Alundaio } if (object().movement().accessible(mem_object.m_object_params.m_level_vertex_id)) - object().movement().set_level_dest_vertex (mem_object.m_object_params.m_level_vertex_id); + object().movement().set_level_dest_vertex(mem_object.m_object_params.m_level_vertex_id); else - object().movement().set_nearest_accessible_position (ai().level_graph().vertex_position(mem_object.m_object_params.m_level_vertex_id),mem_object.m_object_params.m_level_vertex_id); + object().movement().set_nearest_accessible_position(ai().level_graph().vertex_position(mem_object.m_object_params.m_level_vertex_id), mem_object.m_object_params.m_level_vertex_id); - if ( !visible_now ) { - u32 target_vertex_id = object().movement().level_path().dest_vertex_id(); - if ( object().ai_location().level_vertex_id() == target_vertex_id ) { - m_storage->set_property (eWorldPropertyUseSuddenness,false); + if (!visible_now) { + u32 target_vertex_id = object().movement().level_path().dest_vertex_id(); + if (object().ai_location().level_vertex_id() == target_vertex_id) { + m_storage->set_property(eWorldPropertyUseSuddenness, false); return; } } float distance = object().Position().distance_to(mem_object.m_object_params.m_position); if (distance >= 15.f) { - object().movement().set_body_state (eBodyStateStand); - object().movement().set_movement_type (eMovementTypeRun); + object().movement().set_body_state(eBodyStateStand); + object().movement().set_movement_type(eMovementTypeRun); } else { if (distance >= 8.f) { - object().movement().set_body_state (eBodyStateStand); - object().movement().set_movement_type (eMovementTypeWalk); + object().movement().set_body_state(eBodyStateStand); + object().movement().set_movement_type(eMovementTypeWalk); } else { if (distance >= 6.f) { - object().movement().set_body_state (eBodyStateCrouch); - object().movement().set_movement_type (eMovementTypeRun); + object().movement().set_body_state(eBodyStateCrouch); + object().movement().set_movement_type(eMovementTypeRun); } else { if ((distance >= 4.f) || !visible_now) { - object().movement().set_body_state (eBodyStateCrouch); - object().movement().set_movement_type (eMovementTypeRun); + object().movement().set_body_state(eBodyStateCrouch); + object().movement().set_movement_type(eMovementTypeRun); } else { - object().movement().set_body_state (eBodyStateCrouch); - object().movement().set_movement_type (eMovementTypeStand); + object().movement().set_body_state(eBodyStateCrouch); + object().movement().set_movement_type(eMovementTypeStand); - fire (); + fire(); } } } } CVisualMemoryManager *visual_memory_manager = object().memory().enemy().selected()->visual_memory(); - VERIFY (visual_memory_manager); + VERIFY(visual_memory_manager); if (object().memory().enemy().selected()->g_Alive() && !visual_memory_manager->visible_now(&object())) return; - m_storage->set_property (eWorldPropertyUseSuddenness, false); + m_storage->set_property(eWorldPropertyUseSuddenness, false); } ////////////////////////////////////////////////////////////////////////// @@ -1106,51 +1105,51 @@ void CStalkerActionSuddenAttack::execute () ////////////////////////////////////////////////////////////////////////// CStalkerActionKillEnemyIfPlayerOnThePath::CStalkerActionKillEnemyIfPlayerOnThePath(CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +inherited(object, action_name) { } -void CStalkerActionKillEnemyIfPlayerOnThePath::initialize () +void CStalkerActionKillEnemyIfPlayerOnThePath::initialize() { - inherited::initialize (); - - object().movement().set_mental_state (eMentalStateDanger); - object().movement().set_movement_type (eMovementTypeStand); - object().movement().force_update (true); + inherited::initialize(); + + object().movement().set_mental_state(eMentalStateDanger); + object().movement().set_movement_type(eMovementTypeStand); + object().movement().force_update(true); - m_storage->set_property (eWorldPropertyInCover,false); - m_storage->set_property (eWorldPropertyLookedOut,false); - m_storage->set_property (eWorldPropertyPositionHolded,false); - m_storage->set_property (eWorldPropertyEnemyDetoured,false); + m_storage->set_property(eWorldPropertyInCover, false); + m_storage->set_property(eWorldPropertyLookedOut, false); + m_storage->set_property(eWorldPropertyPositionHolded, false); + m_storage->set_property(eWorldPropertyEnemyDetoured, false); - play_attack_sound (0,0,6000,4000); + play_attack_sound(0, 0, 6000, 4000); - object().brain().affect_cover (true); + object().brain().affect_cover(true); } -void CStalkerActionKillEnemyIfPlayerOnThePath::finalize () +void CStalkerActionKillEnemyIfPlayerOnThePath::finalize() { - inherited::finalize (); + inherited::finalize(); - object().movement().force_update (false); + object().movement().force_update(false); } -void CStalkerActionKillEnemyIfPlayerOnThePath::execute () +void CStalkerActionKillEnemyIfPlayerOnThePath::execute() { #ifdef TEST_MENTAL_STATE - VERIFY ((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); + VERIFY((start_level_time() == Device.dwTimeGlobal) || (object().movement().mental_state() == eMentalStateDanger)); #endif // TEST_MENTAL_STATE - inherited::execute (); - + inherited::execute(); + //Alundaio: Sanity if (!object().memory().enemy().selected()) return; //Alundaio: END - object().sight().setup (CSightAction(object().memory().enemy().selected(),true,true)); + object().sight().setup(CSightAction(object().memory().enemy().selected(), true, true)); - fire (); + fire(); CMemoryInfo mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) @@ -1161,15 +1160,15 @@ void CStalkerActionKillEnemyIfPlayerOnThePath::execute () if (!point) return; - setup_cover (*point); + setup_cover(*point); } ////////////////////////////////////////////////////////////////////////// // CStalkerActionCriticalHit ////////////////////////////////////////////////////////////////////////// -CStalkerActionCriticalHit::CStalkerActionCriticalHit (CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +CStalkerActionCriticalHit::CStalkerActionCriticalHit(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } @@ -1193,169 +1192,169 @@ void CStalkerActionCriticalHit::initialize() } } - object().sight().setup(CSightAction(SightManager::eSightTypeCurrentDirection,true,true)); + object().sight().setup(CSightAction(SightManager::eSightTypeCurrentDirection, true, true)); object().sound().play(eStalkerSoundInjuring); } -void CStalkerActionCriticalHit::finalize () +void CStalkerActionCriticalHit::finalize() { - inherited::finalize (); - m_storage->set_property (eWorldPropertyCriticallyWounded,false); + inherited::finalize(); + m_storage->set_property(eWorldPropertyCriticallyWounded, false); } -void CStalkerActionCriticalHit::execute () +void CStalkerActionCriticalHit::execute() { - inherited::execute (); + inherited::execute(); } ////////////////////////////////////////////////////////////////////////// // CStalkerCombatActionThrowGrenade ////////////////////////////////////////////////////////////////////////// -CStalkerCombatActionThrowGrenade::CStalkerCombatActionThrowGrenade (CAI_Stalker *object, LPCSTR action_name) : - inherited(object,action_name) +CStalkerCombatActionThrowGrenade::CStalkerCombatActionThrowGrenade(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name) { } -void CStalkerCombatActionThrowGrenade::initialize () +void CStalkerCombatActionThrowGrenade::initialize() { - inherited::initialize (); + inherited::initialize(); - object().movement().set_mental_state (eMentalStateDanger); + object().movement().set_mental_state(eMentalStateDanger); const CInventoryItem *grenade = object().inventory().ItemFromSlot(GRENADE_SLOT); - VERIFY (grenade); - m_grenade_id = grenade->object().ID(); + VERIFY(grenade); + m_grenade_id = grenade->object().ID(); - object().movement().set_movement_type (eMovementTypeStand); - object().movement().set_body_state (eBodyStateStand); - object().sound().play (eStalkerSoundThrowGrenade); - m_storage->set_property (eWorldPropertyStartedToThrowGrenade, true); + object().movement().set_movement_type(eMovementTypeStand); + object().movement().set_body_state(eBodyStateStand); + object().sound().play(eStalkerSoundThrowGrenade); + m_storage->set_property(eWorldPropertyStartedToThrowGrenade, true); } -void CStalkerCombatActionThrowGrenade::finalize () +void CStalkerCombatActionThrowGrenade::finalize() { - inherited::finalize (); + inherited::finalize(); - m_storage->set_property (eWorldPropertyStartedToThrowGrenade, false); + m_storage->set_property(eWorldPropertyStartedToThrowGrenade, false); } -void CStalkerCombatActionThrowGrenade::execute () +void CStalkerCombatActionThrowGrenade::execute() { - inherited::execute (); + inherited::execute(); const CInventoryItem *grenade = object().inventory().ItemFromSlot(GRENADE_SLOT); if (!grenade || grenade->object().ID() != m_grenade_id) { - object().on_throw_completed (); - m_storage->set_property (eWorldPropertyStartedToThrowGrenade, false); + object().on_throw_completed(); + m_storage->set_property(eWorldPropertyStartedToThrowGrenade, false); return; } const CEntityAlive *enemy = object().memory().enemy().selected(); if (!enemy) { - m_storage->set_property (eWorldPropertyStartedToThrowGrenade, false); + m_storage->set_property(eWorldPropertyStartedToThrowGrenade, false); return; } CMemoryInfo mem_object = object().memory().memory(enemy); if (!mem_object.m_object) { - m_storage->set_property (eWorldPropertyStartedToThrowGrenade, false); + m_storage->set_property(eWorldPropertyStartedToThrowGrenade, false); return; } - u32 enemy_vertex_id ; + u32 enemy_vertex_id; Fvector enemy_position; if (object().memory().visual().visible_now(enemy)) { - enemy_position = enemy->Position(); - enemy_vertex_id = enemy->ai_location().level_vertex_id(); - object().sight().setup (CSightAction(enemy,true,true)); + enemy_position = enemy->Position(); + enemy_vertex_id = enemy->ai_location().level_vertex_id(); + object().sight().setup(CSightAction(enemy, true, true)); } else { - enemy_position = mem_object.m_object_params.m_position; - enemy_vertex_id = mem_object.m_object_params.m_level_vertex_id; - object().sight().setup (CSightAction(SightManager::eSightTypePosition,mem_object.m_object_params.m_position,true)); + enemy_position = mem_object.m_object_params.m_position; + enemy_vertex_id = mem_object.m_object_params.m_level_vertex_id; + object().sight().setup(CSightAction(SightManager::eSightTypePosition, mem_object.m_object_params.m_position, true)); } - Fvector const enemy_direction = Fvector().sub( enemy_position, object().Position() ).normalize_safe(); - Fvector const head_direction = Fvector().setHP( -object().movement().m_head.current.yaw, -object().movement().m_head.current.pitch ); - float const cos_alpha = head_direction.dotproduct(enemy_direction); + Fvector const enemy_direction = Fvector().sub(enemy_position, object().Position()).normalize_safe(); + Fvector const head_direction = Fvector().setHP(-object().movement().m_head.current.yaw, -object().movement().m_head.current.pitch); + float const cos_alpha = head_direction.dotproduct(enemy_direction); - if ( _abs(acosf(cos_alpha)) >= PI_DIV_8 ) + if (_abs(acosf(cos_alpha)) >= PI_DIV_8) return; - object().throw_target (enemy_position, enemy_vertex_id, const_cast(enemy)); + object().throw_target(enemy_position, enemy_vertex_id, const_cast(enemy)); u32 min_queue_size, max_queue_size, min_queue_interval, max_queue_interval; float distance = enemy->Position().distance_to(object().Position()); - select_queue_params (distance,min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); - object().CObjectHandler::set_goal (eObjectActionFire1,&grenade->object(),min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + select_queue_params(distance, min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); + object().CObjectHandler::set_goal(eObjectActionFire1, &grenade->object(), min_queue_size, max_queue_size, min_queue_interval, max_queue_interval); } ////////////////////////////////////////////////////////////////////////// // CStalkerCombatActionSmartCover ////////////////////////////////////////////////////////////////////////// -CStalkerCombatActionSmartCover::CStalkerCombatActionSmartCover (CAI_Stalker *object, LPCSTR action_name) : - inherited (object, action_name), - m_check_can_kill_enemy (false) +CStalkerCombatActionSmartCover::CStalkerCombatActionSmartCover(CAI_Stalker *object, LPCSTR action_name) : +inherited(object, action_name), +m_check_can_kill_enemy(false) { } -void CStalkerCombatActionSmartCover::initialize () +void CStalkerCombatActionSmartCover::initialize() { - inherited::initialize (); + inherited::initialize(); - m_check_can_kill_enemy = object().movement().check_can_kill_enemy(); + m_check_can_kill_enemy = object().movement().check_can_kill_enemy(); object().movement().check_can_kill_enemy(true); - object().movement().combat_behaviour (true); + object().movement().combat_behaviour(true); } -void CStalkerCombatActionSmartCover::finalize () +void CStalkerCombatActionSmartCover::finalize() { - inherited::finalize (); + inherited::finalize(); object().movement().check_can_kill_enemy(m_check_can_kill_enemy); - object().movement().combat_behaviour (false); + object().movement().combat_behaviour(false); } -void CStalkerCombatActionSmartCover::execute () +void CStalkerCombatActionSmartCover::execute() { - inherited::execute (); + inherited::execute(); // just for debug purposes // this can be only in case when solution cannot be built - if ( !object().memory().enemy().selected() ) + if (!object().memory().enemy().selected()) return; - CMemoryInfo const mem_object = object().memory().memory(object().memory().enemy().selected()); + CMemoryInfo const mem_object = object().memory().memory(object().memory().enemy().selected()); if (!mem_object.m_object) return; - Fvector const position = mem_object.m_object_params.m_position; - CCoverPoint const* cover = object().best_cover(position); + Fvector const position = mem_object.m_object_params.m_position; + CCoverPoint const* cover = object().best_cover(position); if (!cover) { - object().movement().set_movement_type (eMovementTypeStand); - object().movement().set_nearest_accessible_position (); + object().movement().set_movement_type(eMovementTypeStand); + object().movement().set_nearest_accessible_position(); return; } - setup_cover (*cover); + setup_cover(*cover); CEntityAlive const* enemy = object().memory().enemy().selected(); - if ( !enemy ) + if (!enemy) return; - u32 const level_time = object().memory().visual().visible_object_time_last_seen(enemy); - if ( level_time + s_wait_enemy_in_smart_cover_time >= Device.dwTimeGlobal ) + u32 const level_time = object().memory().visual().visible_object_time_last_seen(enemy); + if (level_time + s_wait_enemy_in_smart_cover_time >= Device.dwTimeGlobal) return; - if ( - object().agent_manager().member().can_detour() || - !object().agent_manager().member().cover_detouring() || - !fire_make_sense() + if ( + object().agent_manager().member().can_detour() || + !object().agent_manager().member().cover_detouring() || + !fire_make_sense() ) return; - m_storage->set_property (eWorldPropertyPositionHolded,true); - m_storage->set_property (eWorldPropertyInCover,false); + m_storage->set_property(eWorldPropertyPositionHolded, true); + m_storage->set_property(eWorldPropertyInCover, false); } \ No newline at end of file From 8202cb2056fd6dc2392f2c0e473b5acddc2888ee Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 1 Feb 2015 22:40:37 -0500 Subject: [PATCH 086/166] + actor_before_death script call back (set in bind_stalker). This will allow scripts to process actor condition and prevent actor's death or kill him if desired. IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. + set_health_ex script method for game_object. This will directly set entity's health instead of going through health property which operates on delta --- src/xrGame/Entity.cpp | 550 +++++++++++----------- src/xrGame/Entity.h | 2 +- src/xrGame/game_object_space.h | 6 +- src/xrGame/script_game_object.h | 3 +- src/xrGame/script_game_object4.cpp | 10 + src/xrGame/script_game_object_script.cpp | 6 +- src/xrGame/script_game_object_script3.cpp | 1 + src/xrGame/script_game_object_use.cpp | 4 +- 8 files changed, 308 insertions(+), 274 deletions(-) diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index c30470185a9..b1b23bb4e37 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -26,343 +26,361 @@ CEntity::CEntity() { - m_registered_member = false; + m_registered_member = false; } CEntity::~CEntity() -{ - xr_delete (m_entity_condition); +{ + xr_delete(m_entity_condition); } - CEntityConditionSimple *CEntity::create_entity_condition(CEntityConditionSimple* ec) { - if(!ec) - m_entity_condition = xr_new(); - else - m_entity_condition = smart_cast(ec); - - return m_entity_condition; + if (!ec) + m_entity_condition = xr_new(); + else + m_entity_condition = smart_cast(ec); + + return m_entity_condition; } -void CEntity::OnEvent (NET_Packet& P, u16 type) +void CEntity::OnEvent(NET_Packet& P, u16 type) { - inherited::OnEvent (P,type); - - switch (type) - { - - case GE_DIE: - { - u16 id; - u32 cl; - P.r_u16 (id); - P.r_u32 (cl); - CObject *who = Level().Objects.net_Find (id); - if (who && !IsGameTypeSingle()) - { - if (this!=who) /*if(bDebug) */ Msg( "%s killed by %s ...", cName().c_str(), who->cName().c_str() ); - else /*if(bDebug) */ Msg( "%s dies himself ...", cName().c_str() ); - } - Die (who); - } - break; - } + inherited::OnEvent(P, type); + + switch (type) + { + case GE_DIE: + { + u16 id; + u32 cl; + P.r_u16(id); + P.r_u32(cl); + CObject *who = Level().Objects.net_Find(id); + if (who && !IsGameTypeSingle()) + { + if (this != who) /*if(bDebug) */ Msg("%s killed by %s ...", cName().c_str(), who->cName().c_str()); + else /*if(bDebug) */ Msg("%s dies himself ...", cName().c_str()); + } + Die(who); + } + break; + } } void CEntity::Die(CObject* who) { - if (!AlreadyDie()) set_death_time(); - set_ready_to_save (); - SetfHealth (-1.f); - - if(IsGameTypeSingle()) - { - VERIFY (m_registered_member); - } - m_registered_member = false; - if (IsGameTypeSingle()) - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + if (!AlreadyDie()) set_death_time(); + set_ready_to_save(); + SetfHealth(-1.f); + + if (IsGameTypeSingle()) + { + VERIFY(m_registered_member); + } + m_registered_member = false; + if (IsGameTypeSingle()) + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); } //обновление состояния float CEntity::CalcCondition(float hit) { - - // If Local() - perform some logic - if (Local() && g_Alive()) { - SetfHealth (GetfHealth()-hit); - SetfHealth ((GetfHealth()<-1000)?-1000:GetfHealth()); - } - return hit; + // If Local() - perform some logic + if (Local() && g_Alive()) + { + SetfHealth(GetfHealth() - hit); + SetfHealth((GetfHealth() < -1000) ? -1000 : GetfHealth()); + } + return hit; } +//void CEntity::Hit (float perc, Fvector &dir, CObject* who, s16 element,Fvector position_in_object_space, float impulse, ALife::EHitType hit_type) +void CEntity::Hit(SHit* pHDS) +{ + // if (bDebug) Log("Process HIT: ", *cName()); + + // *** process hit calculations + // Calc impulse + Fvector vLocalDir; + float m = pHDS->dir.magnitude(); + VERIFY(m > EPS); + + // convert impulse into local coordinate system + Fmatrix mInvXForm; + mInvXForm.invert(XFORM()); + mInvXForm.transform_dir(vLocalDir, pHDS->dir); + vLocalDir.invert(); + + // hit impulse + if (pHDS->impulse) HitImpulse(pHDS->impulse, pHDS->dir, vLocalDir); // @@@: WT + + // Calc amount (correct only on local player) + float lost_health = CalcCondition(pHDS->damage()); + + // Signal hit + if (BI_NONE != pHDS->bone()) HitSignal(lost_health, vLocalDir, pHDS->who, pHDS->boneID); + + // If Local() - perform some logic + if (Local() && !g_Alive() && !AlreadyDie() && (m_killer_id == ALife::_OBJECT_ID(-1))) + { + KillEntity(pHDS->whoID); + } + //must be last!!! @slipch + inherited::Hit(pHDS); +} +void CEntity::Load(LPCSTR section) +{ + inherited::Load(section); + setVisible(FALSE); -//void CEntity::Hit (float perc, Fvector &dir, CObject* who, s16 element,Fvector position_in_object_space, float impulse, ALife::EHitType hit_type) -void CEntity::Hit (SHit* pHDS) -{ + // Team params + id_Team = READ_IF_EXISTS(pSettings, r_s32, section, "team", -1); + id_Squad = READ_IF_EXISTS(pSettings, r_s32, section, "squad", -1); + id_Group = READ_IF_EXISTS(pSettings, r_s32, section, "group", -1); -// if (bDebug) Log("Process HIT: ", *cName()); - - // *** process hit calculations - // Calc impulse - Fvector vLocalDir; - float m = pHDS->dir.magnitude(); - VERIFY (m>EPS); - - // convert impulse into local coordinate system - Fmatrix mInvXForm; - mInvXForm.invert (XFORM()); - mInvXForm.transform_dir (vLocalDir,pHDS->dir); - vLocalDir.invert (); - - // hit impulse - if(pHDS->impulse) HitImpulse (pHDS->impulse,pHDS->dir,vLocalDir); // @@@: WT - - // Calc amount (correct only on local player) - float lost_health = CalcCondition(pHDS->damage()); - - // Signal hit - if(BI_NONE!=pHDS->bone()) HitSignal(lost_health,vLocalDir,pHDS->who,pHDS->boneID); - - // If Local() - perform some logic - if (Local() && !g_Alive() && !AlreadyDie() && (m_killer_id == ALife::_OBJECT_ID(-1))) { - KillEntity (pHDS->whoID); - } - //must be last!!! @slipch - inherited::Hit(pHDS); -} +#pragma todo("Jim to Dima: no specific figures or comments needed") + m_fMorale = 66.f; -void CEntity::Load (LPCSTR section) -{ - inherited::Load (section); - - setVisible (FALSE); - - // Team params - id_Team = READ_IF_EXISTS(pSettings,r_s32,section,"team",-1); - id_Squad = READ_IF_EXISTS(pSettings,r_s32,section,"squad",-1); - id_Group = READ_IF_EXISTS(pSettings,r_s32,section,"group",-1); - -#pragma todo("Jim to Dima: no specific figures or comments needed") - m_fMorale = 66.f; - - //время убирания тела с уровня - m_dwBodyRemoveTime = READ_IF_EXISTS(pSettings,r_u32,section,"body_remove_time",BODY_REMOVE_TIME); - ////////////////////////////////////// + //время убирания тела с уровня + m_dwBodyRemoveTime = READ_IF_EXISTS(pSettings, r_u32, section, "body_remove_time", BODY_REMOVE_TIME); + ////////////////////////////////////// } -BOOL CEntity::net_Spawn (CSE_Abstract* DC) +BOOL CEntity::net_Spawn(CSE_Abstract* DC) { - m_level_death_time = 0; - m_game_death_time = 0; - m_killer_id = ALife::_OBJECT_ID(-1); - - CSE_Abstract *e = (CSE_Abstract*)(DC); - CSE_ALifeCreatureAbstract *E = smart_cast(e); - - // Initialize variables - if (E) { - SetfHealth (E->get_health()); - - R_ASSERT2(!((E->get_killer_id() != ALife::_OBJECT_ID(-1)) && g_Alive()), make_string("server entity [%s][%d] has an killer [%d] and not dead", - E->name_replace(), E->ID, E->get_killer_id()).c_str()); - - m_killer_id = E->get_killer_id(); - if (m_killer_id == ID()) - m_killer_id = ALife::_OBJECT_ID(-1); - } - else - SetfHealth (1.0f); - - // load damage params - if (!E) { - // Car or trader only!!!! - CSE_ALifeCar *C = smart_cast(e); - CSE_ALifeTrader *T = smart_cast(e); - CSE_ALifeHelicopter *H = smart_cast(e); - - R_ASSERT2 (C||T||H,"Invalid entity (no inheritance from CSE_CreatureAbstract, CSE_ALifeItemCar and CSE_ALifeTrader and CSE_ALifeHelicopter)!"); - id_Team = id_Squad = id_Group = 0; - } - else { - id_Team = E->g_team(); - id_Squad = E->g_squad(); - id_Group = E->g_group(); - - CSE_ALifeMonsterBase *monster = smart_cast(E); - if (monster) { - MONSTER_COMMUNITY monster_community; - monster_community.set (pSettings->r_string(*cNameSect(), "species")); - - if(monster_community.team() != 255) - id_Team = monster_community.team(); - } - } - - if (g_Alive() && IsGameTypeSingle()) { - m_registered_member = true; - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); - ++Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).m_dwAliveCount; - } - - if(!g_Alive()) - { - m_level_death_time = Device.dwTimeGlobal; - m_game_death_time = E->m_game_death_time;; - } - - if (!inherited::net_Spawn(DC)) - return (FALSE); - -// SetfHealth (E->fHealth); - IKinematics* pKinematics=smart_cast(Visual()); - CInifile* ini = NULL; - - if(pKinematics) ini = pKinematics->LL_UserData(); - if (ini) { - if (ini->section_exist("damage_section") && !use_simplified_visual()) - CDamageManager::reload(pSettings->r_string("damage_section","damage"),ini); - - CParticlesPlayer::LoadParticles(pKinematics); - } - return TRUE; + m_level_death_time = 0; + m_game_death_time = 0; + m_killer_id = ALife::_OBJECT_ID(-1); + + CSE_Abstract *e = (CSE_Abstract*) (DC); + CSE_ALifeCreatureAbstract *E = smart_cast(e); + + // Initialize variables + if (E) + { + SetfHealth(E->get_health()); + + R_ASSERT2(!((E->get_killer_id() != ALife::_OBJECT_ID(-1)) && g_Alive()), make_string("server entity [%s][%d] has an killer [%d] and not dead", + E->name_replace(), E->ID, E->get_killer_id()).c_str()); + + m_killer_id = E->get_killer_id(); + if (m_killer_id == ID()) + m_killer_id = ALife::_OBJECT_ID(-1); + } + else + SetfHealth(1.0f); + + // load damage params + if (!E) + { + // Car or trader only!!!! + CSE_ALifeCar *C = smart_cast(e); + CSE_ALifeTrader *T = smart_cast(e); + CSE_ALifeHelicopter *H = smart_cast(e); + + R_ASSERT2(C || T || H, "Invalid entity (no inheritance from CSE_CreatureAbstract, CSE_ALifeItemCar and CSE_ALifeTrader and CSE_ALifeHelicopter)!"); + id_Team = id_Squad = id_Group = 0; + } + else + { + id_Team = E->g_team(); + id_Squad = E->g_squad(); + id_Group = E->g_group(); + + CSE_ALifeMonsterBase *monster = smart_cast(E); + if (monster) + { + MONSTER_COMMUNITY monster_community; + monster_community.set(pSettings->r_string(*cNameSect(), "species")); + + if (monster_community.team() != 255) + id_Team = monster_community.team(); + } + } + + if (g_Alive() && IsGameTypeSingle()) + { + m_registered_member = true; + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); + ++Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).m_dwAliveCount; + } + + if (!g_Alive()) + { + m_level_death_time = Device.dwTimeGlobal; + m_game_death_time = E->m_game_death_time;; + } + + if (!inherited::net_Spawn(DC)) + return (FALSE); + + // SetfHealth (E->fHealth); + IKinematics* pKinematics = smart_cast(Visual()); + CInifile* ini = NULL; + + if (pKinematics) ini = pKinematics->LL_UserData(); + if (ini) + { + if (ini->section_exist("damage_section") && !use_simplified_visual()) + CDamageManager::reload(pSettings->r_string("damage_section", "damage"), ini); + + CParticlesPlayer::LoadParticles(pKinematics); + } + return TRUE; } -void CEntity::net_Destroy () +void CEntity::net_Destroy() { - if (m_registered_member) { - m_registered_member = false; - if (IsGameTypeSingle()) - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); - } + if (m_registered_member) + { + m_registered_member = false; + if (IsGameTypeSingle()) + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + } - inherited::net_Destroy (); + inherited::net_Destroy(); - set_ready_to_save (); + set_ready_to_save(); } -void CEntity::KillEntity(u16 whoID) +void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for actor_before_death callback*/) { - if (whoID != ID()) { + //AVO: allow scripts to process actor condition and prevent actor's death or kill him if desired. + //IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed + // this will bypass below if block and go to normal KillEntity routine. + if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) + { + Actor()->callback(GameObject::eActorBeforeDeath)(whoID); + return; + } + //-AVO + if (whoID != ID()) + { #ifdef DEBUG - if (m_killer_id != ALife::_OBJECT_ID(-1)) { - Msg ("! Entity [%s][%s] already has killer with id %d, but new killer id arrived - %d",*cNameSect(),*cName(),m_killer_id,whoID); + if (m_killer_id != ALife::_OBJECT_ID(-1)) { + Msg ("! Entity [%s][%s] already has killer with id %d, but new killer id arrived - %d",*cNameSect(),*cName(),m_killer_id,whoID); - CObject *old_killer = Level().Objects.net_Find(m_killer_id); - Msg ("! Old killer is %s",old_killer ? *old_killer->cName() : "unknown"); + CObject *old_killer = Level().Objects.net_Find(m_killer_id); + Msg ("! Old killer is %s",old_killer ? *old_killer->cName() : "unknown"); - CObject *new_killer = Level().Objects.net_Find(whoID); - Msg ("! New killer is %s",new_killer ? *new_killer->cName() : "unknown"); + CObject *new_killer = Level().Objects.net_Find(whoID); + Msg ("! New killer is %s",new_killer ? *new_killer->cName() : "unknown"); - VERIFY (m_killer_id == ALife::_OBJECT_ID(-1)); - } + VERIFY (m_killer_id == ALife::_OBJECT_ID(-1)); + } #endif - } - else { - if (m_killer_id != ALife::_OBJECT_ID(-1)) - return; - } - - m_killer_id = whoID; - - set_death_time (); - - if (!getDestroy()){ - NET_Packet P; - u_EventGen (P,GE_DIE,ID()); - P.w_u16 (u16(whoID)); - P.w_u32 (0); - if (OnServer()) - u_EventSend (P, net_flags(TRUE, TRUE, FALSE, TRUE)); - } + } + else + { + if (m_killer_id != ALife::_OBJECT_ID(-1)) + return; + } + + m_killer_id = whoID; + + set_death_time(); + + if (!getDestroy()) + { + NET_Packet P; + u_EventGen(P, GE_DIE, ID()); + P.w_u16(u16(whoID)); + P.w_u32(0); + if (OnServer()) + u_EventSend(P, net_flags(TRUE, TRUE, FALSE, TRUE)); + } }; //void CEntity::KillEntity(CObject* who) //{ // VERIFY (who); -// if (who) KillEntity(who->ID()); +// if (who) KillEntity(who->ID()); //} -void CEntity::reinit () +void CEntity::reinit() { - inherited::reinit (); + inherited::reinit(); } - -void CEntity::reload (LPCSTR section) +void CEntity::reload(LPCSTR section) { - inherited::reload (section); - if (!use_simplified_visual()) - CDamageManager::reload (section,"damage",pSettings); + inherited::reload(section); + if (!use_simplified_visual()) + CDamageManager::reload(section, "damage", pSettings); } -void CEntity::set_death_time () +void CEntity::set_death_time() { - m_level_death_time = Device.dwTimeGlobal; - m_game_death_time = ai().get_alife() ? ai().alife().time_manager().game_time() : Level().GetGameTime(); + m_level_death_time = Device.dwTimeGlobal; + m_game_death_time = ai().get_alife() ? ai().alife().time_manager().game_time() : Level().GetGameTime(); } -bool CEntity::IsFocused ()const { return (smart_cast(g_pGameLevel->CurrentEntity())==this); } -bool CEntity::IsMyCamera ()const { return (smart_cast(g_pGameLevel->CurrentViewEntity())==this); } - -void CEntity::set_ready_to_save () +bool CEntity::IsFocused()const { + return (smart_cast(g_pGameLevel->CurrentEntity()) == this); } - -DLL_Pure *CEntity::_construct () +bool CEntity::IsMyCamera()const { - inherited::_construct (); - CDamageManager::_construct (); - m_entity_condition = create_entity_condition(NULL); - return (this); + return (smart_cast(g_pGameLevel->CurrentViewEntity()) == this); } -const u32 FORGET_KILLER_TIME = 180000; +void CEntity::set_ready_to_save() +{} -void CEntity::shedule_Update (u32 dt) +DLL_Pure *CEntity::_construct() { - inherited::shedule_Update (dt); - if (!getDestroy() && !g_Alive() && (m_killer_id != u16(-1))) { - if (Device.dwTimeGlobal > m_level_death_time + FORGET_KILLER_TIME) { - m_killer_id = u16(-1); - NET_Packet P; - u_EventGen (P,GE_ASSIGN_KILLER,ID()); - P.w_u16 (u16(-1)); - if (IsGameTypeSingle()) u_EventSend (P); - } - } + inherited::_construct(); + CDamageManager::_construct(); + m_entity_condition = create_entity_condition(NULL); + return (this); } -void CEntity::on_before_change_team () -{ -} +const u32 FORGET_KILLER_TIME = 180000; -void CEntity::on_after_change_team () +void CEntity::shedule_Update(u32 dt) { + inherited::shedule_Update(dt); + if (!getDestroy() && !g_Alive() && (m_killer_id != u16(-1))) + { + if (Device.dwTimeGlobal > m_level_death_time + FORGET_KILLER_TIME) + { + m_killer_id = u16(-1); + NET_Packet P; + u_EventGen(P, GE_ASSIGN_KILLER, ID()); + P.w_u16(u16(-1)); + if (IsGameTypeSingle()) u_EventSend(P); + } + } } +void CEntity::on_before_change_team() +{} + +void CEntity::on_after_change_team() +{} + void CEntity::ChangeTeam(int team, int squad, int group) { - if ((team == g_Team()) && (squad == g_Squad()) && (group == g_Group())) return; - - VERIFY2 (g_Alive(), "Try to change team of a dead object"); - - if(IsGameTypeSingle()) - { - VERIFY (m_registered_member); - } - // remove from current team - on_before_change_team (); - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member (this); - - id_Team = team; - id_Squad = squad; - id_Group = group; - - // add to new team - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member (this); - on_after_change_team (); + if ((team == g_Team()) && (squad == g_Squad()) && (group == g_Group())) return; + + VERIFY2(g_Alive(), "Try to change team of a dead object"); + + if (IsGameTypeSingle()) + { + VERIFY(m_registered_member); + } + // remove from current team + on_before_change_team(); + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + + id_Team = team; + id_Squad = squad; + id_Group = group; + + // add to new team + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); + on_after_change_team(); } diff --git a/src/xrGame/Entity.h b/src/xrGame/Entity.h index d36d4c416cb..87630edd807 100644 --- a/src/xrGame/Entity.h +++ b/src/xrGame/Entity.h @@ -98,7 +98,7 @@ class CEntity : virtual void Die (CObject* who); // void KillEntity (CObject* who); - void KillEntity (u16 whoID); + void KillEntity(u16 whoID, BOOL bypass_actor_check = FALSE); // Events virtual void OnEvent ( NET_Packet& P, u16 type ); diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 95051558cb6..7e7054e167f 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -54,7 +54,7 @@ namespace GameObject eInvBoxItemTake, eWeaponNoAmmoAvailable, - /* avo: custom callbacks */ + //AVO: custom callbacks // input eKeyPress, eKeyRelease, @@ -65,7 +65,9 @@ namespace GameObject eItemToBelt, eItemToSlot, eItemToRuck, - /* avo: end */ + // actor + eActorBeforeDeath, + //-AVO eDummy = u32(-1), }; diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 081ec791802..0271721efc6 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -175,7 +175,7 @@ class CScriptGameObject { _DECLARE_FUNCTION10 (Squad , int ); _DECLARE_FUNCTION10 (Group , int ); - void Kill (CScriptGameObject* who); + void Kill(CScriptGameObject* who, bool bypass_actor_check = false /*AVO: added for actor before death callback*/); // CEntityAlive _DECLARE_FUNCTION10 (GetFOV , float); @@ -807,6 +807,7 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsWeaponGL, bool); _DECLARE_FUNCTION10(IsInventoryBox, bool); bool IsActorOutdoors() const; + void SetHealthEx(float hp); //end AVO diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index 8f7ac8468c5..2ee5cdbdb2a 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -365,6 +365,16 @@ void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Cant stop particles, bone [%s] is not visible now", bone); } +//AVO: directly set entity health instead of going throuhg normal health property which operates on delta +void CScriptGameObject::SetHealthEx(float hp) +{ + CEntity *obj = smart_cast(&object()); + if (!obj) return; + clamp(hp, -0.01f, 1.0f); + obj->SetfHealth(hp); +} +//-AVO + // AVO: functions for testing object class // Credits: KD //#include "car.h" diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index b8fdc3db8df..5ab6c3db0ec 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -92,7 +92,7 @@ void CScriptGameObject::script_register(lua_State *L) value("take_item_from_box", int(GameObject::eInvBoxItemTake)), value("weapon_no_ammo", int(GameObject::eWeaponNoAmmoAvailable)), - /* avo: custom callbacks */ + //AVO: custom callbacks // input value("key_press", int(GameObject::eKeyPress)), value("key_release", int(GameObject::eKeyRelease)), @@ -103,7 +103,9 @@ void CScriptGameObject::script_register(lua_State *L) value("item_to_belt", int(GameObject::eItemToBelt)), value("item_to_slot", int(GameObject::eItemToSlot)), value("item_to_ruck", int(GameObject::eItemToRuck)), - /* avo: end */ + // actor + value("actor_before_death", int(GameObject::eActorBeforeDeath)), + //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) ], diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 59112567e32..d5b53abcc00 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -373,6 +373,7 @@ class_ &script_register_game_object2(class_(&object()); if (!l_tpEntity) { @@ -107,7 +107,7 @@ void CScriptGameObject::Kill (CScriptGameObject* who) return; } if (!l_tpEntity->AlreadyDie()) - l_tpEntity->KillEntity (who ? who->object().ID() : object().ID()); + l_tpEntity->KillEntity (who ? who->object().ID() : object().ID(), (BOOL)bypass_actor_check); else ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"attempt to kill dead object %s",*object().cName()); From 011e075e603d84b6f773d3173c8f09515ea1cf04 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sun, 1 Feb 2015 22:40:37 -0500 Subject: [PATCH 087/166] + actor_before_death script call back (set in bind_stalker). This will allow scripts to process actor condition and prevent actor's death or kill him if desired. IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. + set_health_ex script method for game_object. This will directly set entity's health instead of going through health property which operates on delta --- res/gamedata/scripts/bind_stalker.script | 10 + src/xrGame/Entity.cpp | 550 +++++++++++----------- src/xrGame/Entity.h | 2 +- src/xrGame/game_object_space.h | 6 +- src/xrGame/script_game_object.h | 3 +- src/xrGame/script_game_object4.cpp | 10 + src/xrGame/script_game_object_script.cpp | 6 +- src/xrGame/script_game_object_script3.cpp | 1 + src/xrGame/script_game_object_use.cpp | 4 +- 9 files changed, 318 insertions(+), 274 deletions(-) diff --git a/res/gamedata/scripts/bind_stalker.script b/res/gamedata/scripts/bind_stalker.script index 2e10d368dc7..db18f01a647 100644 --- a/res/gamedata/scripts/bind_stalker.script +++ b/res/gamedata/scripts/bind_stalker.script @@ -95,6 +95,7 @@ function actor_binder:net_destroy() self.object:set_callback(callback.item_to_belt, nil) self.object:set_callback(callback.item_to_ruck, nil) self.object:set_callback(callback.item_to_slot, nil) + self.object:set_callback(callback.actor_before_death, nil) ----| end:aVo |---------------------------------------------------------------- log("--------->"..tostring(_G.amb_vol)) @@ -141,6 +142,7 @@ function actor_binder:reinit() self.object:set_callback(callback.item_to_ruck, self.item_to_ruck, self) self.object:set_callback(callback.item_to_belt, self.item_to_belt, self) self.object:set_callback(callback.item_to_slot, self.item_to_slot, self) + self.object:set_callback(callback.actor_before_death, self.on_actor_before_death, self) ----| end:aVo |---------------------------------------------------------------- end --------------------------------------------------------------------------------------------------------------------- @@ -199,6 +201,14 @@ end function actor_binder:item_to_slot(obj) log(string.format("item_to_slot [%s]", obj:name())) end +-- actor before death callback +-- IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed. +function actor_binder:on_actor_before_death(whoID) + log("[AVO] on_actor_before_death callback") + db.actor:set_health_ex(1) + -- db.actor:kill(level:object_by_id(whoID), true) +end + ---------------------------------------------------------------------------------------------------------------------- function actor_binder:take_item_from_box(box, item) local box_name = box:name() diff --git a/src/xrGame/Entity.cpp b/src/xrGame/Entity.cpp index c30470185a9..b1b23bb4e37 100644 --- a/src/xrGame/Entity.cpp +++ b/src/xrGame/Entity.cpp @@ -26,343 +26,361 @@ CEntity::CEntity() { - m_registered_member = false; + m_registered_member = false; } CEntity::~CEntity() -{ - xr_delete (m_entity_condition); +{ + xr_delete(m_entity_condition); } - CEntityConditionSimple *CEntity::create_entity_condition(CEntityConditionSimple* ec) { - if(!ec) - m_entity_condition = xr_new(); - else - m_entity_condition = smart_cast(ec); - - return m_entity_condition; + if (!ec) + m_entity_condition = xr_new(); + else + m_entity_condition = smart_cast(ec); + + return m_entity_condition; } -void CEntity::OnEvent (NET_Packet& P, u16 type) +void CEntity::OnEvent(NET_Packet& P, u16 type) { - inherited::OnEvent (P,type); - - switch (type) - { - - case GE_DIE: - { - u16 id; - u32 cl; - P.r_u16 (id); - P.r_u32 (cl); - CObject *who = Level().Objects.net_Find (id); - if (who && !IsGameTypeSingle()) - { - if (this!=who) /*if(bDebug) */ Msg( "%s killed by %s ...", cName().c_str(), who->cName().c_str() ); - else /*if(bDebug) */ Msg( "%s dies himself ...", cName().c_str() ); - } - Die (who); - } - break; - } + inherited::OnEvent(P, type); + + switch (type) + { + case GE_DIE: + { + u16 id; + u32 cl; + P.r_u16(id); + P.r_u32(cl); + CObject *who = Level().Objects.net_Find(id); + if (who && !IsGameTypeSingle()) + { + if (this != who) /*if(bDebug) */ Msg("%s killed by %s ...", cName().c_str(), who->cName().c_str()); + else /*if(bDebug) */ Msg("%s dies himself ...", cName().c_str()); + } + Die(who); + } + break; + } } void CEntity::Die(CObject* who) { - if (!AlreadyDie()) set_death_time(); - set_ready_to_save (); - SetfHealth (-1.f); - - if(IsGameTypeSingle()) - { - VERIFY (m_registered_member); - } - m_registered_member = false; - if (IsGameTypeSingle()) - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + if (!AlreadyDie()) set_death_time(); + set_ready_to_save(); + SetfHealth(-1.f); + + if (IsGameTypeSingle()) + { + VERIFY(m_registered_member); + } + m_registered_member = false; + if (IsGameTypeSingle()) + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); } //обновление состояния float CEntity::CalcCondition(float hit) { - - // If Local() - perform some logic - if (Local() && g_Alive()) { - SetfHealth (GetfHealth()-hit); - SetfHealth ((GetfHealth()<-1000)?-1000:GetfHealth()); - } - return hit; + // If Local() - perform some logic + if (Local() && g_Alive()) + { + SetfHealth(GetfHealth() - hit); + SetfHealth((GetfHealth() < -1000) ? -1000 : GetfHealth()); + } + return hit; } +//void CEntity::Hit (float perc, Fvector &dir, CObject* who, s16 element,Fvector position_in_object_space, float impulse, ALife::EHitType hit_type) +void CEntity::Hit(SHit* pHDS) +{ + // if (bDebug) Log("Process HIT: ", *cName()); + + // *** process hit calculations + // Calc impulse + Fvector vLocalDir; + float m = pHDS->dir.magnitude(); + VERIFY(m > EPS); + + // convert impulse into local coordinate system + Fmatrix mInvXForm; + mInvXForm.invert(XFORM()); + mInvXForm.transform_dir(vLocalDir, pHDS->dir); + vLocalDir.invert(); + + // hit impulse + if (pHDS->impulse) HitImpulse(pHDS->impulse, pHDS->dir, vLocalDir); // @@@: WT + + // Calc amount (correct only on local player) + float lost_health = CalcCondition(pHDS->damage()); + + // Signal hit + if (BI_NONE != pHDS->bone()) HitSignal(lost_health, vLocalDir, pHDS->who, pHDS->boneID); + + // If Local() - perform some logic + if (Local() && !g_Alive() && !AlreadyDie() && (m_killer_id == ALife::_OBJECT_ID(-1))) + { + KillEntity(pHDS->whoID); + } + //must be last!!! @slipch + inherited::Hit(pHDS); +} +void CEntity::Load(LPCSTR section) +{ + inherited::Load(section); + setVisible(FALSE); -//void CEntity::Hit (float perc, Fvector &dir, CObject* who, s16 element,Fvector position_in_object_space, float impulse, ALife::EHitType hit_type) -void CEntity::Hit (SHit* pHDS) -{ + // Team params + id_Team = READ_IF_EXISTS(pSettings, r_s32, section, "team", -1); + id_Squad = READ_IF_EXISTS(pSettings, r_s32, section, "squad", -1); + id_Group = READ_IF_EXISTS(pSettings, r_s32, section, "group", -1); -// if (bDebug) Log("Process HIT: ", *cName()); - - // *** process hit calculations - // Calc impulse - Fvector vLocalDir; - float m = pHDS->dir.magnitude(); - VERIFY (m>EPS); - - // convert impulse into local coordinate system - Fmatrix mInvXForm; - mInvXForm.invert (XFORM()); - mInvXForm.transform_dir (vLocalDir,pHDS->dir); - vLocalDir.invert (); - - // hit impulse - if(pHDS->impulse) HitImpulse (pHDS->impulse,pHDS->dir,vLocalDir); // @@@: WT - - // Calc amount (correct only on local player) - float lost_health = CalcCondition(pHDS->damage()); - - // Signal hit - if(BI_NONE!=pHDS->bone()) HitSignal(lost_health,vLocalDir,pHDS->who,pHDS->boneID); - - // If Local() - perform some logic - if (Local() && !g_Alive() && !AlreadyDie() && (m_killer_id == ALife::_OBJECT_ID(-1))) { - KillEntity (pHDS->whoID); - } - //must be last!!! @slipch - inherited::Hit(pHDS); -} +#pragma todo("Jim to Dima: no specific figures or comments needed") + m_fMorale = 66.f; -void CEntity::Load (LPCSTR section) -{ - inherited::Load (section); - - setVisible (FALSE); - - // Team params - id_Team = READ_IF_EXISTS(pSettings,r_s32,section,"team",-1); - id_Squad = READ_IF_EXISTS(pSettings,r_s32,section,"squad",-1); - id_Group = READ_IF_EXISTS(pSettings,r_s32,section,"group",-1); - -#pragma todo("Jim to Dima: no specific figures or comments needed") - m_fMorale = 66.f; - - //время убирания тела с уровня - m_dwBodyRemoveTime = READ_IF_EXISTS(pSettings,r_u32,section,"body_remove_time",BODY_REMOVE_TIME); - ////////////////////////////////////// + //время убирания тела с уровня + m_dwBodyRemoveTime = READ_IF_EXISTS(pSettings, r_u32, section, "body_remove_time", BODY_REMOVE_TIME); + ////////////////////////////////////// } -BOOL CEntity::net_Spawn (CSE_Abstract* DC) +BOOL CEntity::net_Spawn(CSE_Abstract* DC) { - m_level_death_time = 0; - m_game_death_time = 0; - m_killer_id = ALife::_OBJECT_ID(-1); - - CSE_Abstract *e = (CSE_Abstract*)(DC); - CSE_ALifeCreatureAbstract *E = smart_cast(e); - - // Initialize variables - if (E) { - SetfHealth (E->get_health()); - - R_ASSERT2(!((E->get_killer_id() != ALife::_OBJECT_ID(-1)) && g_Alive()), make_string("server entity [%s][%d] has an killer [%d] and not dead", - E->name_replace(), E->ID, E->get_killer_id()).c_str()); - - m_killer_id = E->get_killer_id(); - if (m_killer_id == ID()) - m_killer_id = ALife::_OBJECT_ID(-1); - } - else - SetfHealth (1.0f); - - // load damage params - if (!E) { - // Car or trader only!!!! - CSE_ALifeCar *C = smart_cast(e); - CSE_ALifeTrader *T = smart_cast(e); - CSE_ALifeHelicopter *H = smart_cast(e); - - R_ASSERT2 (C||T||H,"Invalid entity (no inheritance from CSE_CreatureAbstract, CSE_ALifeItemCar and CSE_ALifeTrader and CSE_ALifeHelicopter)!"); - id_Team = id_Squad = id_Group = 0; - } - else { - id_Team = E->g_team(); - id_Squad = E->g_squad(); - id_Group = E->g_group(); - - CSE_ALifeMonsterBase *monster = smart_cast(E); - if (monster) { - MONSTER_COMMUNITY monster_community; - monster_community.set (pSettings->r_string(*cNameSect(), "species")); - - if(monster_community.team() != 255) - id_Team = monster_community.team(); - } - } - - if (g_Alive() && IsGameTypeSingle()) { - m_registered_member = true; - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); - ++Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).m_dwAliveCount; - } - - if(!g_Alive()) - { - m_level_death_time = Device.dwTimeGlobal; - m_game_death_time = E->m_game_death_time;; - } - - if (!inherited::net_Spawn(DC)) - return (FALSE); - -// SetfHealth (E->fHealth); - IKinematics* pKinematics=smart_cast(Visual()); - CInifile* ini = NULL; - - if(pKinematics) ini = pKinematics->LL_UserData(); - if (ini) { - if (ini->section_exist("damage_section") && !use_simplified_visual()) - CDamageManager::reload(pSettings->r_string("damage_section","damage"),ini); - - CParticlesPlayer::LoadParticles(pKinematics); - } - return TRUE; + m_level_death_time = 0; + m_game_death_time = 0; + m_killer_id = ALife::_OBJECT_ID(-1); + + CSE_Abstract *e = (CSE_Abstract*) (DC); + CSE_ALifeCreatureAbstract *E = smart_cast(e); + + // Initialize variables + if (E) + { + SetfHealth(E->get_health()); + + R_ASSERT2(!((E->get_killer_id() != ALife::_OBJECT_ID(-1)) && g_Alive()), make_string("server entity [%s][%d] has an killer [%d] and not dead", + E->name_replace(), E->ID, E->get_killer_id()).c_str()); + + m_killer_id = E->get_killer_id(); + if (m_killer_id == ID()) + m_killer_id = ALife::_OBJECT_ID(-1); + } + else + SetfHealth(1.0f); + + // load damage params + if (!E) + { + // Car or trader only!!!! + CSE_ALifeCar *C = smart_cast(e); + CSE_ALifeTrader *T = smart_cast(e); + CSE_ALifeHelicopter *H = smart_cast(e); + + R_ASSERT2(C || T || H, "Invalid entity (no inheritance from CSE_CreatureAbstract, CSE_ALifeItemCar and CSE_ALifeTrader and CSE_ALifeHelicopter)!"); + id_Team = id_Squad = id_Group = 0; + } + else + { + id_Team = E->g_team(); + id_Squad = E->g_squad(); + id_Group = E->g_group(); + + CSE_ALifeMonsterBase *monster = smart_cast(E); + if (monster) + { + MONSTER_COMMUNITY monster_community; + monster_community.set(pSettings->r_string(*cNameSect(), "species")); + + if (monster_community.team() != 255) + id_Team = monster_community.team(); + } + } + + if (g_Alive() && IsGameTypeSingle()) + { + m_registered_member = true; + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); + ++Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).m_dwAliveCount; + } + + if (!g_Alive()) + { + m_level_death_time = Device.dwTimeGlobal; + m_game_death_time = E->m_game_death_time;; + } + + if (!inherited::net_Spawn(DC)) + return (FALSE); + + // SetfHealth (E->fHealth); + IKinematics* pKinematics = smart_cast(Visual()); + CInifile* ini = NULL; + + if (pKinematics) ini = pKinematics->LL_UserData(); + if (ini) + { + if (ini->section_exist("damage_section") && !use_simplified_visual()) + CDamageManager::reload(pSettings->r_string("damage_section", "damage"), ini); + + CParticlesPlayer::LoadParticles(pKinematics); + } + return TRUE; } -void CEntity::net_Destroy () +void CEntity::net_Destroy() { - if (m_registered_member) { - m_registered_member = false; - if (IsGameTypeSingle()) - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); - } + if (m_registered_member) + { + m_registered_member = false; + if (IsGameTypeSingle()) + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + } - inherited::net_Destroy (); + inherited::net_Destroy(); - set_ready_to_save (); + set_ready_to_save(); } -void CEntity::KillEntity(u16 whoID) +void CEntity::KillEntity(u16 whoID, BOOL bypass_actor_check /*AVO: added for actor_before_death callback*/) { - if (whoID != ID()) { + //AVO: allow scripts to process actor condition and prevent actor's death or kill him if desired. + //IMPORTANT: if you wish to kill actor you need to call db.actor:kill(level:object_by_id(whoID), true) in actor_before_death callback, to ensure all objects are properly destroyed + // this will bypass below if block and go to normal KillEntity routine. + if (IsGameTypeSingle() && (this->ID() == Actor()->ID()) && (bypass_actor_check != TRUE)) + { + Actor()->callback(GameObject::eActorBeforeDeath)(whoID); + return; + } + //-AVO + if (whoID != ID()) + { #ifdef DEBUG - if (m_killer_id != ALife::_OBJECT_ID(-1)) { - Msg ("! Entity [%s][%s] already has killer with id %d, but new killer id arrived - %d",*cNameSect(),*cName(),m_killer_id,whoID); + if (m_killer_id != ALife::_OBJECT_ID(-1)) { + Msg ("! Entity [%s][%s] already has killer with id %d, but new killer id arrived - %d",*cNameSect(),*cName(),m_killer_id,whoID); - CObject *old_killer = Level().Objects.net_Find(m_killer_id); - Msg ("! Old killer is %s",old_killer ? *old_killer->cName() : "unknown"); + CObject *old_killer = Level().Objects.net_Find(m_killer_id); + Msg ("! Old killer is %s",old_killer ? *old_killer->cName() : "unknown"); - CObject *new_killer = Level().Objects.net_Find(whoID); - Msg ("! New killer is %s",new_killer ? *new_killer->cName() : "unknown"); + CObject *new_killer = Level().Objects.net_Find(whoID); + Msg ("! New killer is %s",new_killer ? *new_killer->cName() : "unknown"); - VERIFY (m_killer_id == ALife::_OBJECT_ID(-1)); - } + VERIFY (m_killer_id == ALife::_OBJECT_ID(-1)); + } #endif - } - else { - if (m_killer_id != ALife::_OBJECT_ID(-1)) - return; - } - - m_killer_id = whoID; - - set_death_time (); - - if (!getDestroy()){ - NET_Packet P; - u_EventGen (P,GE_DIE,ID()); - P.w_u16 (u16(whoID)); - P.w_u32 (0); - if (OnServer()) - u_EventSend (P, net_flags(TRUE, TRUE, FALSE, TRUE)); - } + } + else + { + if (m_killer_id != ALife::_OBJECT_ID(-1)) + return; + } + + m_killer_id = whoID; + + set_death_time(); + + if (!getDestroy()) + { + NET_Packet P; + u_EventGen(P, GE_DIE, ID()); + P.w_u16(u16(whoID)); + P.w_u32(0); + if (OnServer()) + u_EventSend(P, net_flags(TRUE, TRUE, FALSE, TRUE)); + } }; //void CEntity::KillEntity(CObject* who) //{ // VERIFY (who); -// if (who) KillEntity(who->ID()); +// if (who) KillEntity(who->ID()); //} -void CEntity::reinit () +void CEntity::reinit() { - inherited::reinit (); + inherited::reinit(); } - -void CEntity::reload (LPCSTR section) +void CEntity::reload(LPCSTR section) { - inherited::reload (section); - if (!use_simplified_visual()) - CDamageManager::reload (section,"damage",pSettings); + inherited::reload(section); + if (!use_simplified_visual()) + CDamageManager::reload(section, "damage", pSettings); } -void CEntity::set_death_time () +void CEntity::set_death_time() { - m_level_death_time = Device.dwTimeGlobal; - m_game_death_time = ai().get_alife() ? ai().alife().time_manager().game_time() : Level().GetGameTime(); + m_level_death_time = Device.dwTimeGlobal; + m_game_death_time = ai().get_alife() ? ai().alife().time_manager().game_time() : Level().GetGameTime(); } -bool CEntity::IsFocused ()const { return (smart_cast(g_pGameLevel->CurrentEntity())==this); } -bool CEntity::IsMyCamera ()const { return (smart_cast(g_pGameLevel->CurrentViewEntity())==this); } - -void CEntity::set_ready_to_save () +bool CEntity::IsFocused()const { + return (smart_cast(g_pGameLevel->CurrentEntity()) == this); } - -DLL_Pure *CEntity::_construct () +bool CEntity::IsMyCamera()const { - inherited::_construct (); - CDamageManager::_construct (); - m_entity_condition = create_entity_condition(NULL); - return (this); + return (smart_cast(g_pGameLevel->CurrentViewEntity()) == this); } -const u32 FORGET_KILLER_TIME = 180000; +void CEntity::set_ready_to_save() +{} -void CEntity::shedule_Update (u32 dt) +DLL_Pure *CEntity::_construct() { - inherited::shedule_Update (dt); - if (!getDestroy() && !g_Alive() && (m_killer_id != u16(-1))) { - if (Device.dwTimeGlobal > m_level_death_time + FORGET_KILLER_TIME) { - m_killer_id = u16(-1); - NET_Packet P; - u_EventGen (P,GE_ASSIGN_KILLER,ID()); - P.w_u16 (u16(-1)); - if (IsGameTypeSingle()) u_EventSend (P); - } - } + inherited::_construct(); + CDamageManager::_construct(); + m_entity_condition = create_entity_condition(NULL); + return (this); } -void CEntity::on_before_change_team () -{ -} +const u32 FORGET_KILLER_TIME = 180000; -void CEntity::on_after_change_team () +void CEntity::shedule_Update(u32 dt) { + inherited::shedule_Update(dt); + if (!getDestroy() && !g_Alive() && (m_killer_id != u16(-1))) + { + if (Device.dwTimeGlobal > m_level_death_time + FORGET_KILLER_TIME) + { + m_killer_id = u16(-1); + NET_Packet P; + u_EventGen(P, GE_ASSIGN_KILLER, ID()); + P.w_u16(u16(-1)); + if (IsGameTypeSingle()) u_EventSend(P); + } + } } +void CEntity::on_before_change_team() +{} + +void CEntity::on_after_change_team() +{} + void CEntity::ChangeTeam(int team, int squad, int group) { - if ((team == g_Team()) && (squad == g_Squad()) && (group == g_Group())) return; - - VERIFY2 (g_Alive(), "Try to change team of a dead object"); - - if(IsGameTypeSingle()) - { - VERIFY (m_registered_member); - } - // remove from current team - on_before_change_team (); - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member (this); - - id_Team = team; - id_Squad = squad; - id_Group = group; - - // add to new team - Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member (this); - on_after_change_team (); + if ((team == g_Team()) && (squad == g_Squad()) && (group == g_Group())) return; + + VERIFY2(g_Alive(), "Try to change team of a dead object"); + + if (IsGameTypeSingle()) + { + VERIFY(m_registered_member); + } + // remove from current team + on_before_change_team(); + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).unregister_member(this); + + id_Team = team; + id_Squad = squad; + id_Group = group; + + // add to new team + Level().seniority_holder().team(g_Team()).squad(g_Squad()).group(g_Group()).register_member(this); + on_after_change_team(); } diff --git a/src/xrGame/Entity.h b/src/xrGame/Entity.h index d36d4c416cb..87630edd807 100644 --- a/src/xrGame/Entity.h +++ b/src/xrGame/Entity.h @@ -98,7 +98,7 @@ class CEntity : virtual void Die (CObject* who); // void KillEntity (CObject* who); - void KillEntity (u16 whoID); + void KillEntity(u16 whoID, BOOL bypass_actor_check = FALSE); // Events virtual void OnEvent ( NET_Packet& P, u16 type ); diff --git a/src/xrGame/game_object_space.h b/src/xrGame/game_object_space.h index 95051558cb6..7e7054e167f 100644 --- a/src/xrGame/game_object_space.h +++ b/src/xrGame/game_object_space.h @@ -54,7 +54,7 @@ namespace GameObject eInvBoxItemTake, eWeaponNoAmmoAvailable, - /* avo: custom callbacks */ + //AVO: custom callbacks // input eKeyPress, eKeyRelease, @@ -65,7 +65,9 @@ namespace GameObject eItemToBelt, eItemToSlot, eItemToRuck, - /* avo: end */ + // actor + eActorBeforeDeath, + //-AVO eDummy = u32(-1), }; diff --git a/src/xrGame/script_game_object.h b/src/xrGame/script_game_object.h index 081ec791802..0271721efc6 100644 --- a/src/xrGame/script_game_object.h +++ b/src/xrGame/script_game_object.h @@ -175,7 +175,7 @@ class CScriptGameObject { _DECLARE_FUNCTION10 (Squad , int ); _DECLARE_FUNCTION10 (Group , int ); - void Kill (CScriptGameObject* who); + void Kill(CScriptGameObject* who, bool bypass_actor_check = false /*AVO: added for actor before death callback*/); // CEntityAlive _DECLARE_FUNCTION10 (GetFOV , float); @@ -807,6 +807,7 @@ class CScriptGameObject { _DECLARE_FUNCTION10(IsWeaponGL, bool); _DECLARE_FUNCTION10(IsInventoryBox, bool); bool IsActorOutdoors() const; + void SetHealthEx(float hp); //end AVO diff --git a/src/xrGame/script_game_object4.cpp b/src/xrGame/script_game_object4.cpp index 8f7ac8468c5..2ee5cdbdb2a 100644 --- a/src/xrGame/script_game_object4.cpp +++ b/src/xrGame/script_game_object4.cpp @@ -365,6 +365,16 @@ void CScriptGameObject::stop_particles(LPCSTR pname, LPCSTR bone) ai().script_engine().script_log(ScriptStorage::eLuaMessageTypeError, "Cant stop particles, bone [%s] is not visible now", bone); } +//AVO: directly set entity health instead of going throuhg normal health property which operates on delta +void CScriptGameObject::SetHealthEx(float hp) +{ + CEntity *obj = smart_cast(&object()); + if (!obj) return; + clamp(hp, -0.01f, 1.0f); + obj->SetfHealth(hp); +} +//-AVO + // AVO: functions for testing object class // Credits: KD //#include "car.h" diff --git a/src/xrGame/script_game_object_script.cpp b/src/xrGame/script_game_object_script.cpp index b8fdc3db8df..5ab6c3db0ec 100644 --- a/src/xrGame/script_game_object_script.cpp +++ b/src/xrGame/script_game_object_script.cpp @@ -92,7 +92,7 @@ void CScriptGameObject::script_register(lua_State *L) value("take_item_from_box", int(GameObject::eInvBoxItemTake)), value("weapon_no_ammo", int(GameObject::eWeaponNoAmmoAvailable)), - /* avo: custom callbacks */ + //AVO: custom callbacks // input value("key_press", int(GameObject::eKeyPress)), value("key_release", int(GameObject::eKeyRelease)), @@ -103,7 +103,9 @@ void CScriptGameObject::script_register(lua_State *L) value("item_to_belt", int(GameObject::eItemToBelt)), value("item_to_slot", int(GameObject::eItemToSlot)), value("item_to_ruck", int(GameObject::eItemToRuck)), - /* avo: end */ + // actor + value("actor_before_death", int(GameObject::eActorBeforeDeath)), + //-AVO value("map_location_added", int(GameObject::eMapLocationAdded)) ], diff --git a/src/xrGame/script_game_object_script3.cpp b/src/xrGame/script_game_object_script3.cpp index 59112567e32..d5b53abcc00 100644 --- a/src/xrGame/script_game_object_script3.cpp +++ b/src/xrGame/script_game_object_script3.cpp @@ -373,6 +373,7 @@ class_ &script_register_game_object2(class_(&object()); if (!l_tpEntity) { @@ -107,7 +107,7 @@ void CScriptGameObject::Kill (CScriptGameObject* who) return; } if (!l_tpEntity->AlreadyDie()) - l_tpEntity->KillEntity (who ? who->object().ID() : object().ID()); + l_tpEntity->KillEntity (who ? who->object().ID() : object().ID(), (BOOL)bypass_actor_check); else ai().script_engine().script_log (ScriptStorage::eLuaMessageTypeError,"attempt to kill dead object %s",*object().cName()); From eedaded9ffe40ad2b1a7da4461bfeb4deb3927e8 Mon Sep 17 00:00:00 2001 From: revolucas Date: Tue, 19 May 2015 20:26:07 -0400 Subject: [PATCH 088/166] * changed cycle down in WeaponMagazined.cpp * increased the Y distance for the floor/ceiling wall look prevention' * Enabled KEY_RELEASE_CALLBACK * Disabled FP death cam --- src/3rd party/luajit-2 | 2 +- src/build_config_defines.h | 4 +- src/xrEngine/splash_xrcs_en.bmp | Bin 402056 -> 402054 bytes src/xrGame/WeaponMagazined.cpp | 35 +++++------------- src/xrGame/stalker_combat_actions.cpp | 8 ++-- .../stalker_danger_in_direction_actions.cpp | 5 +++ 6 files changed, 21 insertions(+), 33 deletions(-) diff --git a/src/3rd party/luajit-2 b/src/3rd party/luajit-2 index a90338939a6..7f013005f61 160000 --- a/src/3rd party/luajit-2 +++ b/src/3rd party/luajit-2 @@ -1 +1 @@ -Subproject commit a90338939a6b14d5ef5621148fb4c451e05ff82d +Subproject commit 7f013005f61b82300d4ec591fd4cec59a74d62ff diff --git a/src/build_config_defines.h b/src/build_config_defines.h index 827a5e25e37..db767427678 100644 --- a/src/build_config_defines.h +++ b/src/build_config_defines.h @@ -2,7 +2,7 @@ // SCRIPTS: //#define MOUSE_MOVE_CALLBACK // expose mouse move callback to scripts (configure in bind_stalker) -//#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) +#define KEY_RELEASE_CALLBACK // expose key release callback to scripts (configure in bind_stalker) //#define KEY_HOLD_CALLBACK // expose key hold callback to scripts (configure in bind_stalker) /*** DEPRECATED as redundant, all engine lua output is being saved into main log now. Do not use as it will be removed #define LUA_DEBUG_PRINT // allow output of lua logs (*_lua.log) @@ -24,7 +24,7 @@ //-VISUAL // TWEAKS: -#define FP_DEATH // first person death view +//#define FP_DEATH // first person death view #define DEAD_BODY_COLLISION // restore collision with dead bodies (thanks malandrinus) #define NEW_ANIMS // use new animations. Please enclose any new animation addions with this define #define NEW_SOUNDS // use new sounds. Please enclose any new sound addions with this define diff --git a/src/xrEngine/splash_xrcs_en.bmp b/src/xrEngine/splash_xrcs_en.bmp index 108311f1fe68fc34c4612e722398e78feace73f1..b9326191dc62f1b84b8f586a7e434617868d07fd 100644 GIT binary patch literal 402054 zcmeF)VRIkXb?14FVrpngR3K2`LIQz+f&>Es1@Uh}q#(hhKvRYYQ>KkbmPMP9B}G}w zDrcQi>?EbiRBB3-shUd7RBff^$>iD8yn}fM`!?of>xxem<7ASf=*?qK?*3scX z|GRJBzJ2buPoKWsee>=KmYZ={?}(FlXXv@K0QA_Pn#AO7tJx*N({?B{`li3+E^jB+h?+^ zo6WXjPFuyq&ZaVxR^`}#_=kVk>t^+@oxVAl6rTFfDf85+Q!1bkT767?D@wC`-^=_O z{osbIZsrqDJYkjWQLh-|!R0gO_gQAT?sWO7ePS6qHJ!3#=1kXm(4LkvE#a}r^x!h) zSomw(M{D% zc)z>Y|J4HjdCT`h<{0Iert|gVt2=iG=m#_h_n)`LtkuhBnA5OP3V+fp4>pdC_ASN< z{WXUBtm?|khld3}5xi)3aciZ%npZw&H z$BAvS$crz&_`(Y>eE<934`)z4Q)hed9=5BMO?T*NpK1F~t2%8%b(ppouq#1PnewLv z`lS9=Pko}NrRAr--LaVCe{Jsgk5*xIp4P25{t3g0AP&|GkI|1&uaeSK!&Z6;Su(pY zt!-bR8!05q$Nqil_WLZ;H^G=LKebOR(_M7B%*tRE@QJ`h|%xRhbpV&FX|I?x@_O;7AZ2tdr;jdls_ni5)i`inI-;J-W z#)C8eSC@aVgz53^$5ij@HY0~JbJ+cuPU-Pr$-jF}FJFO{EUdT59x3+0{mNpNWW>Yi z7+gIz;7oU?<2}Eok1N6Q9U%Vfb~kLI+b8;wpE6l76T*k>G`ff9T?g#`1ol^7eKo~q z`SARY{^*bXw>Fs>;M@1U7cqKUG5WR`D)92lFQ*!*)pO51#~9nP{+%xWJIWb$=Bxiq zm!I0xGA~@XV5R73wWlRb*PYI{r+u2vci_HudRRHrb*FWh+QVUM|4fhRbeZ3$oQJJD zEoW*^%beQN`b_6f*PYrA+xO}GsXg_9Y5Bj8{rjx@ux&kT-9BHC^RRWN^QS)cusTnd z@8zE`rprw2>0;CJr}H1S{B)V=x(_>E4_kh^?!%Uu&i{SvX_?ddPwitECPNs>hO@(~r2`=6rX|C% z+Z4|K^rt_)apT66?RM~6-})9Ew$lpX9%?>y683a|Eq|#^j0gAScd&h9W8*|QO30)f zyE83qb#>LBefgD@6_*|+bLers`nR*4@$9qD_L{RZIh5JKl=jRs&nTHT+0&kOYQ+!A z)^~PxXp>8uJ}E(&DaV;nIkZVLW)lnrPV3O^=`np6pQkO*S3F@nY~2%!^*^U&PVH%Z zrt^ggroKAEX^zfb)4XoFe4l^9=+1d!`RTe3v#0B7*y&ZPJCc}eO*z}4=eLw+npBvuyr%vo}SoQyWdxLn5Mp}GiHm^ zGW)_OjOjArMi!XP|J}BZW`Sw3)BT;=({g%aT2X(*fsixHr&~R&ZKvCsmiaJydQ7Lw zOzSqar^`(3)G&HlhpGLr{xzNdAlrd`e}5l*I^LUuFZMJ@=F@sT?^K31{d_Y0`Jey!+i$`IAB_{Fn`6EyYenaGm0}zm9H6?}2PWQy zz4UZ4r$KrZvKVV^0(Sof1|kzBZX$9A)B= z>SpWo<;#~-2S-+WI;Iev(~4u4cGeReF9*>{kdx@bDoI<|4w`8(2GS~lR$x}Nq0c`1 z%z-xFVvOt~edWp(#hO&W^s}G+%=z7X+LG$8P3UCyGy+3jPJ}?4l;68Ue7patVr)A5 zl|E<{PGUp0=qFR#?B%gZUbVCC@0d@Uv`h{h%_Z*KxsxOEUYowtCMBnJwTWHJq@2yo z&3?ozZrQBGB`gyU=}yIe?DG5XzfYU|`rF_BHp@&xp&$RdfA{ayguBv??4OL2;}U;R zhuh<1roH>#IB{cML7S%a(O>@humAd}O)Ai*Y+XY!v`^RXj?))keDUFjAF76l(d()8 zZnen~@o(BzgE*jR?dX2c{n-zM#)PKQZ^n zH%>>+onJcr#OY%>E!r=cdup+7_f(be^;0irYCQhrocpp7C7=4{*@*3)d2+tX*{2pF zZO+1(Cl?<1h6NVRoSi>)=In!VT!Sah9#>fT(}ho;J=Nv0)2F(eK69#x7MNDGx5?C~ zCBHeybm2DN?vzaDv&U98|B)_cP8Z9HCsx-o$NS|_jcsMc(~pdDYN)&lv~8W~wLK%4 z>hjIAXC9DKkDZye&m*Vjx|}*Q7kRV}@bM;2pE-Lhlgjn#@Qz2g&?u8dzGC(bl`$@S z!kDh`mE}kOtjd3LF2X%}`*bg2oM^+Zl=%&=UUKU6{8u(TX@@LuLZAAkkp@FwXvT4= z4=rc1k6e8sr{|wpBX;=)_2aHd9p-RPMtm5rLX%tjMHc5 zBIQ4$k3IU>nXk6_P^B|Z&YgMUY=mQ+=AxsVdg5%PoMAjhr=K`GE$4X0Cr(x6e5Fl} z+h^{HxnmijQw}+)=W(Y#eYS7cGJU&qPn_s=|@kUiJW@u zxDUE*b?RT8iBw1KlghVgWo>ik`e6d>=!D`R?@x<6HTRW-Jvq@hk7VYE_NRfJJ?`%C zZ`iKDusvs9NMC$rH4?VZF3%Xnz;8Sn(G;Bty?u7~Ztm{wE?y|#BNw0FjPN~sY42!q zZvNcL^2+AMCaqY7leOp8dO0VIlop+za%6M7c&{!=H;*maw>gD(eX6s4Zf;T6=0)a^ z)0Ur`AH`qF9akV}3ghm@U&n6~)B<0r`!M56|A-k+%N=PT-IJKld+v%?w zM^-JEJyrENmR8SHJ78zm^o`SDdpCfc9kvf-R@9@X9-+qx*h&7X#xb>R2}Mlt=d(`M zPdX_apKVS*wJ>*ni7Z~YIRETQWRdf1%*f*M+T8rY<4-M~e|B|{XI9TYv-h3xqSa{l~Mmvak?)mc_n zNmcBb#mM5~QkOYB`)R>UNo_QBXkBCM5!EjuqM&%=+=aywyQ#MG^Rz=iax7A275miO z>= z_&4-}g1JJ{1r$~D%@lx+Kk>EN3Wghp(zHLThC^RFn=Y1KHf)HKKT#w4=#t5lBVPUJ zn`a=sx=#~eZ+Bda@Q|)%1@^H+0lSjh2%6GrXWlvgXXRJO=t69;xKmOFh#S0hVoz@)!cE&*U)r%k>un(Ia!Cp}9V1G(@QwOo*-QgbXA#N|{9OL$a zd^^cTLwdj-wgWr4*fx#rX|6QjfXz@ncyCk>;Xx+O#z@c(>>4d#*EnJO+|$GP*V&;~ zDd;wU>rfo2afUzHF5Q98ALGFBw>WKdmW&>Hs18#7bhsYZuWiBtL-n4}D{4yIj_Qft zc`3YGtcq%E=eQ+8vI^>kxZNBJh~5ix72!O<_C!1SMq|66JtFm#?b1c|`FTL5rEyF` zcZ5$oPg|RRrq9X03D-}s9pO!3yS)qBGXhiSK8@Rz)A2sAy%ApXRy!x^8&6wyZR66$ zG2S&w1G~Kr+v%`fv6)hMqIXme-sy|aUj%kqnWCEcrx(-R;!E9QIcmfq>!LRuON-Ls zD7X%~_0Yr#W9SZji@|#bSDgjEVFwCgoFR=FUC3%AFL!ESk2W(ur6#?7be|Se4N$H5 z%|A=GpuK|d@f=~-0`nHASM)xSAuLydaO**~58c*js}WwAZ4-^{JvY+gb_cx*(Raoj z@h7AwbPwBW-3Im;`b)vTogb@lI9O-9;6x;%4d)iin3Nf?V|(FUSdLDO?OHZ$$Ec7* z5}@#o&m-P}Jp%8E*u(89&%0fOAFmS&@=XT3x40eQu?x}@x-(Fvz%sf}nu|6C>_wLr zw=0nGwQNt^K4tqU2c|{Bt?F^%5cd$?6cI{S} z9Ygo#U=<{Hws*p3zf`7$Jr)17T^`t;xV_`uQE-?X2nM8gya((;cLMAhs2WOgCdf?) z!Kqs44$G>cg=rNtS(t-CXyW!M+egCBJL|!FNt>z=nAa@&+t>sv{%+nvR+&-NJJPj)A# zA%=3|*mU-{mz>U6PCI{2tI}lZ&sHEw>13@mqXRUzxI`9L*Uvh~wFYN&yXLg4NVLLx z8hpx=RICD|mh(x%r)rWT*mRb?uR0?vpj8}zL5{^CTD`~ z^gB1ii|lRcFmGso&b-Vio{wyIv-m-_+f!+iTW=l2d7ADm@s)N<%L6;S@9ykI5I$h1 z?eBDQWRK;Exv<@71=Ty=*Iw9~?d)=XGO0jOofpNO%nu}slViVQKzhX?jqUNG(U)4R zj*91(fqnj&)mnId5!eax&~fJIkScD;S0g$|_9cV~*hBd2lrrrv|FmTAK5TvPv7$QB zL8@6A-aF)Zl&$o3v!}hx#S5#zPDa8HU@yF1xR`*AJ_|eJ=^z`j6>Lxcinf)SnTwP$ zkE-h}J+~IThwZ_8Rltr2!zv$Dkr;{7CU4f+-Zv4jt13gW6#%!bpnAu9z>e)D4eXum z!8^8hyfeb>jh#IL>0Juxmv$l>m-l9`9uf&hw!}O81G|_W%1&=dR2viePMB7buDu7@-DE4 z?I6FpxsB}+Y)`I?VHdJTO6X$WWBWBm`s0-CbIU7yhJ(?h{Cs44R;NiF-&L_n;XO#F z=bwT4i!sMLZ*6XGUYaer0=YCJ z8{0cw1nph=M#~V-Z)}lv?B-BCgkSli_3Cj$WOdAT-jyYDOjRicw$CptMRdl@OaPg% zCu~pXj_`FNXhHilZm;wH7}FM-ny=N>G3O*C{xJUtBGl?rgUV$Yb4n;}61z?R=6^ovR{( zx*oBixUTa^I-TA`uzmCLEO>9%*K)S4N$oorj%>G~X1m?+mAE}cX{%5@^{kH6f_8>* zJwf}$OEUxmVR~cxhUmJ-?Eux|_MCGAdALUP+5TaZqm7;Y;C*A~#%%8}g6$C{D-+ml z6x;hjQFB52=H=ZXbRTz z>PF9tf?N)S@cifEx&raJoMgpCP-zYswu{?0cXm;oFi7xT&NklQW@KNor{!G@$aGF# z!(KaWHFxFPh4fLlR$Q7<-KR?{L^D=@+?Z(z$B1;8hwahjmdmSI*D|1O>pB`ER3GB- z##mhKHDp*uoh>|c&j$7^&n49j*crn0^wUCHV|!|1rkbax=s~qF1KtO)OV)L&_wAZf zct154sQ|tuk%ITyM4LL>6S^m8H>$|QN$_xI4zT;YrBqy^oWxq zT6Ph!7d&6s#&-MCC4A$13=KP#VpX3)3D2}m&IcP z_Qj1&MmkHpI$pss%1N3(pI|$}`xVc_Rrawgx7+0*d^;~xcN@<#NLkT%BP!i|^((sf z&HAa~y=&Yvooyq9LU>yz*>pN@@ZQ}rMp3=pVei%G2C%D!Y)nFTI#;+oCu581Tp@d# zu-(52+Ivn0*d=7>u$}f05L_$DgyF-=<6FF7-vS=eQCe=QG7O=2QD8~q`C)wi=}KiV zR-fOH4A{`5AAkB;^k={Ne0OjE=$(5d@80XzkJu=m5_ujup4u5c@%*bcI`t0rxkFM4WRv7W>=$t`zzH@N!$MMfDy2CmExWOF zVV$s7R+|&9tgq??4&rl{i20>2v}4-z`b$?e1z~K?_GYgis0rizg*Ebc5_gIAnjUEX zjnn6rR6o6 zWSzd&WK1&XJCA0Bq`R(opi70d>eXMyGx}lBhCe=9zpo)2X7zU|ClC_-to@sfc^Td1CYOW|Ksi1HFHRM zakOx80Q>4Xut&1kGETPTU2Z#e2%ns4*zS<^poO6?Cw0uQ@Zuj8f9R#>H^TM?`J#IE zQLl6jOzO`TbJB1fw)frlt4m-qcYcNV1KyRKbAduoz2iNN6TFM}0(Nd+p>ONLRpIe? zVY|{?i3I5}*o^dUOEQ4n1yt~k71&MUSFU!pcd#=cJ;__WNsmBvg7E1S zz+N4sMe^|8`r{1Mu^r@#KZ^sA)bn?+9o`o&tYdrdPKWJ-Zfw7La74m(`u0zLdF!1I zf_EC&mtNS8tX$m7oohGP$^X+>QiP*ljeT~37x9MQNdi`Mi z#htL7;TWNMMDhgH;hoNzS~-l3m#&fET~T#F6K^!C13LkBRFC9b6T(l>UYCuizW(jq z6KscczG}bf9!K+sxQD~Nvc5$++jFcT9ovVV*e?2VFCNn()kLj_o?tsS#`bhEy^K!= z??$Wk3&6S);zEiR9`s10PIEw{U2@WYzKA|!UMaf#p!@OY!{Pz3b?a9U=Q1I{-4M8a+1Zx ztt(f9_eAVwZe6|t?Bezzbf3iS5FH8I4{sk40elkd9D^Z2)A8Qfe$v43*)@1C`LN{r zTLt-{N3?!{?c~%EsSqn0`{B>EYr%b zvjzxkT)sw%2BX9C*s#68etv0TyePnS7=KXUJ#42%@5-r)HJvz6+^)-SytbF1oq_Eg z@0_ZK?qNIK*}2-p&9I%JlEA*UF(ZlFfxWX`+z#)F+bxXnvz?o9~v@QxuunW9oxym>Ux*%sO78eq`&GwH?RlqmGgP+#_Y{QaeEniH#^%CvFCPt zDu!u=K}S@UZ*c|QjGcpJKKT1`tr&~qyqR3_KFFM?ZJDfPLme1eyz6jvQI8bt?!mx(-(wDDD zp3oKu*fm|x$q3y^rQhE?gm*e%k9G-w>U@K7g6$Tbg1zTtu$@%s{#FUFmvQSLK|7uH z7rGNv&%FSIKf!ijhxh7$Em%T$l87DHi6cdFM%D!g^by@8d1HF_&BNe5Y)|NJNnj@z zFYT6YIT>tEfvDc&b}g2DuW-HLJ#qU9wp)edOp%`;T{k4~9$%$-{`4FK%kbX7KE&@e(R(4i$?n@nySEQXEu+sq@<=YnO1pjhWDSRApn4?zLZ=Y7 zS6ZeeWa!zeyAm?V$*nnv(%GKO3@?(CAz?ePZ@OJ&vD-%oPh?|~kfH0m znS_kyy|}*VDyb1Z{_M~*fc;n|Y|ptE;ftb;W}SrooW||Cu>PC=l{iY!UQ~}v#>1ex z(!zG=;9xBw115FzwDG(~$RsC23wVnspT_O*&SM8kG+ZPnlWIFyVSDv`cd^INJycIf z59#9egzkyhd)$ud53)Tk4oc|W*)BQby*)IO= zW8RtiDcfD5lZi?Tq^(xhH|oCF#^x7)`z5(?>p=IPy-~SAlFa$7@7*pryxZmW4~`=8 zCr9typY7g=#4Dn?y-Q5Og_3(g;0mpEmIma~?W#6CW$F1#Wc~6rjJk4dFCszo$uE8t z`G^1bk6--TFYo{9FK&GAPBl1&zOqL`65g`$(v`AX9zNJN9*0=C^re~SN4R1=MY6m~ z;wN=#zPL%RzBr@TE?rrEew$X$h?19{tIX=caz*S5GMwvM={4?oCB|d;sqenMhVfdZ zW$oslU5lumK_H6t)7ESI4N$x5R}5yDMXLTSKbfPGHc7EdFKiJZSryxo|8yC0U#~b9|RBZbnpo_Qq{; z^x%ApYOf(ZpPaj9MzKayC3{&_WCV{ERxZQvsZ5&zVpGxl^bNvIG-yw z`nDLeS1RP*+`j5v92?u$$ZE^yn7O-mNH(`Q_D(g$=FaxFZ){$vGn8-7FfHoclhb&@BI3&um0d22ZcWP=`Y8DLx&f4cDsl}wqLzL81{5|eS7Vt zD~y1BYj2++DJR6z3kv3oMJ-NPnLy)|+69z3kl0;R1(u$>wEmI{jcctZZmhmgfuHN$ z<5Y}H@)#cT0e#0q#IS#6{`{$LJ{}P=71*CIuyd*eQH=E~J4-LDNB7vk{hGCxXWQ5J z(S~7u7vonPj(8I?3Hym8LOvSC#1GQ5oO!r$KIAw;=MhRbKo7@gO`<1?dQmoa+W zZlH^y?3vi2@x<*@wp)D|4cY#A7~5MeXbIa%XFDTpq7lOO`#=8#+vzFWAsybgh2O=@ zlHmOq?2YZgd*N<$SFxz}3E24nwxc?&Um#l?4}Jwd325nXEIJE3sM8bSoph?JTfiPY zMDp!6YduvhMv87=Kfkg@;-B#oNRNb&z@9x7*(xw$u>A_yK_1)d^ess%+c~nm2+wY( z01Kz@q%}I&T?m^Kwrd2PS2@7W2$SL6zT~*jJkyyjg;bgCx+8cWsNTF5$%Eh{88oYblupdh3eeyY~6Gmq{!Uyah|LO~P$M!B$w(lRlOG5b0_SxP-e>YWufI)#_l+xis2;rM;C8kL@AT29U+n$h9^o68-Z+R{yQBWa z_Gn<|Ex~&^5^re&>{GTM-{M&)&XXd%d}AAsFzDwl!8_4sfjw*w*h6^7eMsg!;l5DC zMZtTh4o!@}ygUTq+hE@>ZCT&?&CxQI~wyY#)9Xt8s4i@G`2@; z^RT@RhkJ12crC6Nhoo0u+>T7y4)VHT7n??Pn~DH?2*2`NQ9Yu?EPr-kndF)}gtrQ+ z!#6?oE-3uY7Y_E`goWk}*?^CvWYi|qND{jYjkUSB$SLi;T z@-&Wc9n}eAbEo2sNZ1~{Z(rFv5w};+KC&I&iJlvG4ckTR1l!FF+u^-~9ow@ojqP*~ zQy-*y=Jbj&?tS<%>4X=wN3fkJobJ_xZdwY~J{@Lrm0QM={fxVon{Hjh{ zp|^g7>IvPGaRPSr>1=1{J0xqRLm_3jeCuLSL%{mmB)R1e!39qeJdD*}Wk*e+u4YZodC9s?!A6<4$Xrc2GTFr^9xd0Q>gN-hg)*yv1d%m;m0ox+1nG zXzvjSs;fz7dk8;Jz2(^JxVMxJ!snH4I<@Y@uTWj|&Pc>gUj*AW*eu#mA3;07HoPB? zjZuD=P@RT-NRJ4;biLr6u0I>z{aVisw7A_73EM3hst4~4IcwOSRUlo&-oP$aaY<4) z6o{aG%65$tykk4bDIl?#&YQSh3uC(mN!;FEnOJNeUaD~Vbl5y)dngU;CO|fgVf#yN zq`vaXD~a20-n=<-eaOiK>{g$$-8-wlmhGyPWK^|kV>{jBc5H8^S<=pM8e;al7;bT5E6u+su~aXVy%?S73| zrg}r7^mz(B0-rKfgI;JG@7@MCGEJ zR$+&XAbi-K&^;uF_bJ;edjH`Eo$X*NXeZbns?$WcP7=3cyM#S4x2lP+k^K6?c#QX z7q=&9X9Vn5om@WsJYbiQA$DI{h6vz8b$A!OCt^?NZYzxkx*bds}1G_e_GV7V&HhQhGJ$UDn7VAN~#ZY|&yUT&1 z`tH8_Tsy#SHIEH=^dIu8P|X>G8Wq?-jHO;EduxR5aVz=qIja zj(eRQhWXV@QZv1>(&)aG4fm~VF|h|D@oJsTjk$FrY+Zy<+q(7E-Ft>j?zG&y$Dl^x zr2-7%{L<3A>+u$&BdX3XT-v&FEpdK!&F;Ge6G`1HMsi`BK9Wi*r*=V3sqN#E!87CY zFX=d0ksbc$6oBgH+Y#p-=g?0T#$S5%xR@Tz{;nsr5T!irjt9x;t+i5PNa$_Fcl5j&Iz(aS(A(vi!l(ed1Q;)i>|n`s4d# z=jPk)s7ChhzL&)qN5)FM_w&8ml{U{ETiQ6QyC3|5eD=3rl6%JPe*8FHm+;kciFW6mk<-)GwHpj)nb~W|e6;y;y;q?q z+TO0<$ZlW1z4r31i=CVAPNdxs$!(FDb>BQ%fB7omHcsEOSLiDbyq#Wm8;@(39*8jHYS-G3jSxAMrgi^Msez$1u+kiSl*~Q`Ripsjs5N$H^`*Q&S}`rKy`Qz+aVp>X;UHH%Z{QAd2-#+-hJd)ci!qmVf&3YZ(}>K>)JH1 zqx$TX>-;th-2S!;&q}|C?Q|f9?M1B%7qOkV6WYOESZlfHu)T2C2C>k6KF{ndHB)ni z?R4iVv?fwTc*_I3fRHZ2Hvoq49qf#N-4^l0h=SmV0qMlKn}q60V1(6lv3hcEG|r~q!#k-B>H3ZBbU?a(xyoc?x@7!Vp?AT7WcK5XsjqUgU{I}RnhwbnV>GU)zUtc#lB(aUQAp0LGGIup0nxY}INVYnQi{57-OxuN@Tmo8*{= z?Wm6Jz|OGNrEAy8weK0jzpL3uyRy55>Q&lnvPSzA6|@V|4t5u+)~(*uLMAN?@6{QN zu4xIG>Npj;ACGUG)*)2qJdBEsD{xu{OsNllVmlqM)7TE_1Ym6_V2{T3F3BN;?YWx? zjEr~=w$~}3c}oI=P`z>;mH#ZUq?ml5x`&VY{0lVzvR&~F`Id*VT_M;Wyz2$P?&<*B zA)O4Tt#%(_7&FtxH?|ip9fKO)d*1#8+g0iKbkH6%58hE7tMj3a81#qGgEs1EN5+Y+?LCn3FK zP`LitUwjVifmQGxwxfFRe)#>P&Y#Zh+FWD1)@EdW!Mr6sQcf+ivXRjJYuT>aq=UV) zJs#^N1|(n?t_LP`e|VDt>DZpJ%~{K?5xYNtT3UOoRaLU}ju1ZA4$d;wq1su%ZZf!B z?L|wovl-E0J5AD~(>*)bK_1)js-e zgWm31-Us^*c}blEtHh`lmM7%Oxi z*Cby|8b%FFQ4v?*IMXrnO>0d1=QE~gm-E*a+_!*o;b{cpU+@ zqxzKXiP$SvZ*hA$iK1G>p7RtysBXK+3*=}?2Zoi0bV(;vJXM0s+ zxw-?L3Ph_9$rVH)U5h1pZ~ZHK#Qnl{J#P55u|2=0U(Y=)vKm5nU?)O%I$)#rV4KfnP`;>*fHVy(R)X~`aF0SxA)Lp#18KX-4nD2eUNT-!kB5jw~v6G zHu@!^>!okX+f-Vn-7ll960nExkPh#i?ZMBZ#PjrQmL3Yfe^c0o29oQMzE+In%?FcVoPw0;D z8a#1(HU5O{iQ9vBL3>5)?blkqv7JWsfF0o-eMC)K2GWz0>2Z734co=-j4G$a?a9du zh4cS$zyKo`!omA7*eAKfgdC{u<{D7}oh9)D@9KDm(6GInyaBeeJz%dF(L6oAFS_Mq z0_3D+x-AtGsmx5vX@u}Y-)RZG26 zTg0)(_M~NKY!7x4w}^5#H$jPX8&aa|@SKpdhDTq&H^*Rn@6=^a+Ek{vW|nXJ#;b#jAgld&<|>oMeN4b=4Z z!jc;L+n%4QwsK6jX0zA!JukEK-P;lCF5^HGPrj^4gE#H4GP*-W{xybKoW>vYkrhv=dp*(HLqeGG$)Eow@(=&{pYGoOd1UL=y(?Gu$$LNh zCGqIc7yscO-~I4c1kbl$-zSVaKmNHp^@Oo=Ba|bzi_nsSz%K6DJ zfBo^_d_f<5^jVkWi0B)4r0DAbv8&%bB>RU)`E&QXhX+5t??gbmh`96KeRBQwU2^+9 zLo4stDWc8Y$Dthp#|1?rp`xSavC}&9wqb|sm#%n{k*IbpykX3hXFSWu**SMll;BSy zj?_gd@1#k@wqGHeTw#9+3?NNH7IyD=1Z6^(EzKau8L8~s)Jq{2`4GdW!KjE<_fd^)A_k(uRfiSBv)-;I#J#x@K__48zqhF`-vFburT} zhwZ29Rpi3{v!^wJ7vOly=gJBV?|{r^*q|w+ACVcrX|cKwh$n6rkYjttd)N-_k~UMe z`zm+9PN(S>o>?iwyQUl7r)=lCyWcs$c7p8zd$jvR2_a~x;XH22)7r|Ym_5C3WV@Ms zBUGfZ{piQ{JKi}@|LFwV&BylA%@3P{l^>EJEz^Q$3xw_Z3*p-ieF7C)HS+F@O0YMu zXZSIy!~4~}di703wjO_8uZ~u!?-p#=jZVRT!#lQT6pC?%^@xz;+Wd_U)$@wKX?}Z} zpGnP!ON^91vR(BMK5Q?0gnaOx&Wq~4E2Jx>ku$t)X?=#wq=@7O+>2KoEIL#V;luW{ zSZ6!JTg&Y^rB#9BP4JL>`O=I8^5!ggtk`RCMzAw-&=H<&)G+vfUFxhJBp2ksJM^8q zuuK?U1C$MkEw3Nk#dct)KmWI1cDx7dU;JASp#38zqk8ZT=^gK%{mqwQJL8`Fr$=== zwX+@AJKN#?-B0Qq@%B$Y0rs%nT4eY8M`1g#Gay~-iC-9y4)3%%l^6Q){jlA(P@P72 zY!~f^@LIcz%R2i=ldW&>|uK)U=tUG@Qv!g4yxGhyiCJ;N~1aO@(ZfUVO-B{ z0(;nAKAFh2jaP@z0DQ{uA~~dwc*ph(lnvVxeuwSQjoX#g8SBG!D{St=EL{$Gm?DI4 zFA(rk-P~*d$J=^L33fW(C(l_xdKYZ(qSK*zfxXT$1K2_Sc%$`6+~(T@;k|f3l-06B zjYZf_a^ef#6=i=TMRmjG;k~gP-rWYpcHhDSb~Yh5j_vF1<#HMmZ6bcsR=^&% zhsl`6;7h1pVE@rQYfvLCqw!1jK7x3`0)5Uwxwp^q(MuPu%dl-48JO7;uYD`IbWPs9$G)gTu(gLm3t zf_EC*GpZ2Vvx79kdu$xiBOsrXfLEO^m)|%4_hdv|Ty-Zqs zYfP*=^6hOE0e;N{|0ioae0~kXm0-Jx#?#}f?~hgL@iQaKoqbk zL)@O{p%DIwc}O>9hzq2f61NBJiQ7><6Ua~F_D~((P1tS{x0`^y=VYdA57n!wABfx2 z$TYSSIT>sp?%XxDOT~1yhdGJcQC-{~Muo-&w021d?0eS_2=7Yhj_q6v+xZV8V2}1^ zd0qSTK+36OQFkHby*Gxed+SFWJ8ZWV<&ac9F)+5P4DHoM$6z<+wt+nwjdig^?~tCH zOyYJ$rNH5-&s^j}ePcTf=?UF!Mcm#)_o{7sjhLNPvEc;QV((%*X-Ln`irZ@+&1rGF z-LY15*j|P3_{J7mgF||9GBl)D#4cgW@cKkg@z)E-hL54t$bpgViQd%*-suz4!*zI{ zvfUub;9U}1LMGDiUO{`} zL3>{e)%$$en6Mq>!*&T761FEN6RNu(-Ns%T1AmZHhTRF<8KJsAv0ZDEu-%*_WEj2u z8IVpo+jC#W&SqU;XK*Uc!!b&?9Z6aSe(UP8wZCP8_xh8wjgQw^>qOixXje#Ipyy=x zKS_af-&Q%8w+%P0cpy2WjH=o|fU04lb=sC0G^P5uV|wVS7dI;{ZPn zk7>skZ&a_~oV0k}S|wxL$msF83gC8^)F(P@$5_kv1*(wtou-UP91<^e0lqp$9TmOX zE(zg7_2gt!wYp~;QJILn{`3^~LcJH4E@?R#+qHwh9=6-4pxsFX;R&kq3ODH(p?alV z8ry+AgdcJ;Ei;4aU_NDg2tQ?e=ne1Uc0*;7lkqKV7(Y5Xx^d%%vx@ttCgeBy3Fqm< z!$YqWOAK#py!uPXXehgud#Q;OG(tW_B0XA9d%By=-rS^0{!b08^8C0i63c8FvZReV5 z8I`FP8{f)%Z2L(9s!81st;>z3+j**1#PD{-5xsoz60uAfV=jn+z{{>;nzREkJolZ} zUbXXM|Bzx0T~-1e^2D0kUS0s{NJey}X;a zopzO81NPi$eSTxZXx_@mZD?4Jc(}-}$*^YgB_eQmk-ckfv1??zyx%%h)w;(4Mk z|MNdxy0%-%Se;>fJ-(Z0VLN^IPkyoYy+gA8a^*J9Ei85MXI|Ll<%;eIUq8H?Tc3A- z{)^larA6;u_TRZjfPHrB_Vu^!>W_Df-udt|Mi;jOh_eQX->zS7V^L;%I&k&jw~uyj z-PzcYhMLj2=_x+9a9uPtc;cspgH=fTP~lKKm0jn@0DP4Db0zXj2E`^sgZ(nyT|QifMnr9WnxKqn{Vnl zj@6GYtPrn2cVKnH#pgDNttX|!uvm|666cGh&CGER&yRhe;l-cXue_Bv@Az^O$>Vs8 z#N>5ty;$Q?>fU9mUKmR&f93gl>hqi{(Kb5WH#ml^v{=Hro>CLKHuZ; zp?P1KkJOi*+Kw=g+&7ZKb3A-L$>E9Rr`GXu@_kTOl3WTd2O(+3sCo zQ?^?rY^Q-ecrWAY#*_Tkm6jqMra)4^`B_zAFw z?H%u)3e0og-q)nFFFY%`XOO>QFD8Pj%VdYCCGc|Rkk#k6ND;uR#m5J)YMF5m zj&ia`z%Dm}>H&M$UN3zb(}wjzflD3__ttkQ%|U$Ystd5AI_i?4$4Qeu!1mp@?h<(a z$)Ei)U=Q1^0_rxxlx66cpfbuT}kvb|{50y$xS%h(q#h!s&iKxXHujKt`zFp zWW2#zzqU75hwxdLt_zL!oIboWu)Uue{5WNMz;2m*BQ+Y^F*$4(x%jA`-4ENn+Oe}e zLn38VfZh0(AUzt%O`Yuko;lI#(BpPl_a3)*urtzV3EiEDUGwI2tiMB9!q>#@+=c<^ zIY1ykWxHR4cm4+KiQ5J6kRCCjz_`ac`Xk#Dx4V+XcA-1Ale_P{M~20O3hgqsVup6T zP|@;uHIW*2beH3e*A#Lun2g?LR){`=J#4R4RyW!Lg-1cVVK6;tUoU(W?(93ACyPV) z4t(?NZ>XND34ez6!@4Td`W?2nCD)cVwj%JJgp#orc6eum z_VAUs-6=rmPJo@Hgs`0!y?b^Q*hBb4>~z>}i`<|DlV{^&StBzYzObDZx{KS7L-&jT zZzpkV@4^p<2ULwUYVA*BZ_XMBPvWZ%9~6hfadoIShcxC_8YhH@ba*c(Z<|YB8z4Wq zKWjxBvNK;82l<9|l-`JL@Uv&@}asME(Fy>8tI z+Y@ZlAm8J5ga`I%+@9o2XFI%i!eh7q{-cjRN>QEd;&wkx<92K}SwK!^%65CI#jrhb zd%#{h+t?nwmwPvvvK_1Iq10Ee$KSYFMBEPS@DA*xugh>vdU)rEC|?vEw!84mGL?{7 z-5g^0mXqOBxfrC8vnO7{y3}o$*?ivdLiJ?EAU&dbxwi=HJ#IG>u9K6=lfu28*q*pO zEzpB@%l9@ZqvePay7zT!X3NGTZl7P2x6yZGlh%Pf1Fo<=UROTmCUqM>59|y`Pg;U z-l{r=?%3Y(4(SnuPc}PjNA=`n7}%bi3>{Yob_)mWKC{ArbZ0$5``5DFS`V^47^fe3 z_+u^;>6upO;wB!t`AE#yBJnZRrY!BG!uw6n%=pL$j?+2N(UAUgmy~pjz$s8J8 z+0rt}$%xw{@c}j?K|60`^l%z>ln-Tz-UINkU3W-~ot%sn%_oW2^@1|mRT#~6b9FrQ zxHd4%Ruov95MqsN&ncs>2u841Jk#FdlFUq~K4fOv*Ip2wwu#HC}k(WoAo zf?ep|<92Kpu|M|MV?A!4vRzsxV25<{mR(`=xZNO`yj3h(GRKWq(|5k}9rsV6o|duk z1=Wssd#Z1G`ypZ1jxR3zOkVaEIr$QMW!?R(diyRuXUFqZ>yEXlvDqHVph=}l5^Ugk zyTwW4RW;o>swAwYJ@$L^_94-Ei4lqFlf}YPTY=Nmjdo)csrt~GUXH~qU-WMG_jB(x z(Q@ipyV(}7Ob}|_Jd4e!U2cKBUo%EME#sAmebb%l%1N9|m)jd9yRx?CBU4`L)c_m4 z{?ayyJL!YBZr%RiXCINz|KjtA!9w1#*5&$lrF<{a#7$=)irl&LF3DoOGQY#fxz7T2 zs$X|#1a&ABw5Jr)ZeBQ6sfilhaV@737t6?S?wMt-s|E6s*m@cG{-JLxXJ2@G8i$dj zrFcv?$xN$Q{_datg6#e9T_Y;pvW&ca|C4h%OG~!*xE)xaY}Fg=op|1;H@73Xk*N*@ z>EBuIU}t#CnS~>(v${!2G6u#6IC2`IJ-$k=-+gcEJGY!%E_oY(_pV&t^?9RwoK*e8 z2PauizG#bxc1!zgc?q8L?4I|n)u*dzf3CeWWNZZOS~a1&dz~5XLT`=zrFu;wkZ2L+ zm?B#?%&dt9_qI}QpLdoj5XM2i;&W%}cB8~v=1W=xwj$Br&ax4@ou3gAU&pEBgTJ1&&`#?%+<%} z3AU4bxzBe%ND?pVZ;SPT`*vMf&>ru-_JBOw^_UVdUarF}h)ereru<)M(R@|h!o34? zhS8UW?kDF6AfG-{_fJc*aB3)N@3mtF*DWj=B;&EuHdtmDEd%coG72%_wi~I4ZGmXC z&za&uw!^z=%6534vfbwTp^RZL9=2n$Lm4vUP1^9z*uQlR~b+whOfMP$aKSx9=C%YbWc^x(Q2TyR|Zu(dOXYd@n2L8~RQ z?~%Zc_j+51054yKYix&WkoP*i2idM8>qrr7pMCc>suQcIbJ)(7DJ#)xf*QRJ9miqTwCV}lIyRPT5P*a7U`57}bo zN`^GvT0NEV>8@jGRL>zUq#Lr{KGBL+Zs7X#sKu8BFJbaW)%ly8;QeYlP1Bxu@pgot%2&tXidC=qXT8+iGkN*l9@b z)0FLEbx)xN@15=c=|BCaMC||Nzx)?Qz&?%J1^L+CgLa0kcf5<({h4oDcP5uHeg~)C zR=u-}>RJHg8F50ovz?&}^h0dNNzN3p2i<~pi#^D85qp+V8NYJuG!YuxQ0Z1Cw(Clr z?F?v0;A9nGwu4W6toLjT(QIS;kk!exO#6mWLwbG8!ir(L z@;lpeYfreYiRdZYw=ZA2_5C}j9_e6bbhb0X_Ah?>*Z=gN|M4IG!#{lTXTJ#BLv_(R zN!(5&eBRqYOLN`y6}fg<6y2M;pQ9Na?1lGsB8x#2c#k1&58D&8i`y9iduKbUCv@+P zS%ws=yJHWqUBpg+-Ec&AHnBaSyKoxYBO>+$?Pau}9oReD5nh}3xIJBX>-Ad>Af0z4 zB0T9qJGP^G1mWF55U~gE*dDwi{DW){-V?One6zjp@yZ^&CvFeh>D5iSpn9JSuy?j6 zdJot!Hf-nQ@a~$(tyr5IWQ^POdSFL&?Z!yZo^B;*XH?KGWNPOEcxNOg&oU`(II``{ z)wW)TpaojMPUQMfT?3LHvsUjRJO>^t??$zVRH}BeoK}Ct}ao?~Hzl z7Op2~rxQHW6-e7w13Mkks(_k=mOXU0r-F91O59GvyFaa-+7>(w&1yqs^5wpq^pkjr zXVxCoD}Rf_HW5(wjoNPZ9oUsg*XhQ^McYK0$imhd;_#MrT1~jKmN!6n6lkssGjLWP6pUXPspfA*zUlgddMJR zFK=m?na=hTaeI7;mfY(>d!f4r|LsYlltbsK{9!0Ku+-Djo5{(XU^{Q;uAyj%nnJ?% zhVdD&7v#r_VqL5U?NhefyRVcpf*syFN$L-jDZTuLe!l!XKuqSkp7gTJszHHi~jAp}zQ^qhNcU_b4e3)OY^NVNU85ZPebRUZ!Y3yayoa2q zP70xIEK1m}4gq^Ut-kcahB@$_pxwfZ;&VF<`6-$97-4(Q$pr7&qu`n@j3-6k!u9OF zeGk|No+ne(-cb;?hyS*c+eyjEaPr(%=xpc0m5OoU&_Z`{dk@_K)>a~@?xtthp8KH> z=4A5g3AUq2rVl^-kRfCLt#5rRd3$kwu^@D8oyNktAg3d^Ny_15^?> zA{>7B$XC1U(ltbDbhchSD4C@;($$!#y2Ii;ah%InmgzWmMICViUb7 zGBzN3D9y>@nPq+L_T8i1@9Z;r2RZujJs5x2E$0@lfA;BT;Tzy9o(zx~bU7nf&SxRtIJ`Z~6LCW!}vDtTT-F*Mv&HE)wn;XOn%JzQvPGsrQ?CgbA z12br6Qd=SX$K@gM@^hcSa6mmW1{&ntvyd~RNfuu9-o5YL-Ffp}a`4_S$l?2+MP@hd zIJ2x@+l%bnJPh+!w!F0ev=n$9#RLaGG-oAEf-S)(gYs~Ue2hkj26lILAZ9S*gIs_w^d?2Ha zZwtbU=acuq$CqdWC$wIgu}W*X7i%%B?kn@Hglb`u&D9*c+_W9)q7G(8d?UlxsA;ma zw1mC1DR~t-al3n|>+9=ueJhw!=qcN)-yQhM(vTkC0Kl;gPq1AJBn^^~I}K8ECTv%}qB_+Xd@?%zSuWbjAHEKA zVb!5`+{*#Rd>WTP^)4whHN@d6u(2J|gLj6)bv>F4R}lG-sz(s9qqlokL`2^JGKLRXM3J0pb_2|j{1H%CIbrUKjjDXFIApU(`@-xBlNe4B@feioi}67TTM)u{|+o&K&_ejqRvT zLU>?LAvCbVd)SWZ*beL<@8Si(%bkSE<4eO5Kb!AY!U-k2GCVS5rps;GgCVuzi&yf_ znLN8%Xlh-oP8Oq&)nX0u3^TEvKQml!R`fo;<|1Bgi;$IT^WdG%_nlj3H*UiN_SOBd zJp%9PT+=Q~lpgTITqGMeE_uZwZ79xphqeJx$_9Vu`_Dc09Tp#;* z1y}9m0Cd=H^*VwG-@tC9O-UPf5xnGtsP)o?F&UYg48gOVsL8Be4;j3Ln(0_t) zYne%6`?K0@jFUMb4ku{0Esk33ZFrA=<}4s$Pa$-UAkF>4cK#rrBgV5`NlV5w7g0+# zyeDoy!FFE32eOqxPw(wc;#-BMiHh*;JG@n(aH91)al7ap*u!>O&`u7%f0qu}X}PS# z?PyFAvD4TtVkg)xZV%gOY&Qqhv7PL`zDt64Z0~p%w-aD5**hQ~`|!}6cg5{JbT{ZU zaXY+!AN4y94iQ7>3pEj_qMibniPl8kpNn%n9CO6!486bn(@OlmmMm@kV&vDqsisu)WcExW03s z_0wYG_*vdW?49i@3?^0y+Y`N4vZ96AZFMxL%z5d$3aDG3VY`l;Tt{EH;x`QU_39SA ztB;Z$I~vj*Cc?14ZLx~hw1026#M{Ap?MsW>8HwAoBl>T^4)XnkRp`#!5?b`0vqM66 zKV|pn3TYbN=}^6zx4xQP*RVwlPhB;tMt<}NK4%=x{ z5;DPiXFH>iUe}};Iec^}JsR8fV!C#}r77qjmyw)ImK^lRb}!{1JuMTSpV0nvER-`y zOP(m4bhg(ipuH(KX8{p=QN0{>tvjCM?nZpTj_qm^u+u3mr;HFdVRpbSh|<5}57i&X zt5@5q&5dlYv&n?*PI*;<_U)3eojchDNS9HMK>F^D{XyE;^#|E5Aw$A;NGBQj+2eME z?`)Tu3EOwQVBGoZl4$K~BoTWE59twj&ux)J?}mT$=f!-SG)W11>)Ye!z`UT%xQ;P& z*PdDf+Zoe#NW@-bH;o;(oV+=6jIbTp8N92DKS|D$tyc{= z@`N$W88b8GMUmB2{$Pup?Rl#Vs;3%ybhaMd<8~FWVn1+&^!CtG(lU0I0DIW(5ZGJ~ z+EbaTVN14WLkZpUQjzHFU6}85lM@X?Ihvg?rpt)f7oV?lSu-{hy4QVy)*yNWwu{?4 z-n|VbY)?)mY=2nX{#SqXSDo$u^}qhte0L+CL#;OgFDwANVel`%{BrQlaPClYV)*)A z>bPkG%Odl}{*6f(pgTS&l^EY3J9|>0_j-Tde)(EGrqm9c2bV@8RQ4Gz4^cfd(b z7L~wv%4qntm4a}xCCPG(A0$e6PuGc{y<0Nmr+q?QR6`h!wJSBU@!gb|X@UfW&Wl1JJi>Q8%*-Nn_5^w#Cs7k~Rjm$!d#H@8#ijZLp` z5mA@8@su%Rt(#QuBg-$WZ(K4`SC*jU=9@RW?0@feM1|k^$;T0|(z$i}?p_tH9!3Z(n^$sm5hc=U<0U3ARHpI$ug zKJ}&Dvw~y?<>3gI4_`I9;y&qSJ~B1C zaSPRzvpK7G>C9fQ;qk*b9ABt$ihO1GMm%@zJZFdV-V)iR=HzRS&9(fQP`^l?41C@j z(5`0_pNMBTe4?5vvkmdJa3~bdH=oSc&4`BC_PHN;!RMfiuAjztl`Oi`ak@>QlTHc{hJ+Q|9J9+YwX z`6RDu>2-E@+ta4Bnoo1!6=)%?B*}9ddT~U9AbDEMv2%J+-8D4@UZfRFE zzHT2`Yj5&dzjQUSw&8Wz!!0V?T3+2E)fdK@jIX$*Zzg*As*w13Cv>4>y-SKX7r5mb zalzqTVbKhu*=cVK@bZD+n)c}pw^OB7=zst3|9#?iA$_RsQ`)9K_=7*l@?krwyG5JO zy|dj3C4H08!OlqMjWz_%k)=x-+k@(_dmc zO@8vz`%|{BKDSChUN`~oAv~l{GVu@2BSKO=4j?yhHl@3tKeV zezm@HI^<+ty&166iJ1rOzRvzlV5cFyvprxR@qQ26Bf#Ee%62Uf#1%an+XrI!TktF~ za=AW8YOGGaZ4|cC@E*3qJ7=4{ev53ra=r3M^)kS#ktEoYhpFgMeCf)lojMsoy+e}+ zr9nPm&-}#aRw<+1graRLbkz-spTc$;$LiPdu?1j{6w*iOkOXk0BaN%ADZX$KM2wFa;=1~`mwPt`1$Q=4e zj`vU<*iW#1`O;1V!+jgYYKL zB8Bby`}^Ju3GY+3i`x;tgB|Bx7j(9Fu!rr^SisJ;?48CL_OyAFX4E)gyZ$R~2liXv zdwYo9dvNlA?+To<9o20Y-ch|ge0iC%_Tp9q;luXC?V)b-JxER(tA(+&Flrxq84(cd#?8h3(1u z2HN(w&^_i%Dh3{dc32)F_IBqK+sz@C$#!#Q>HV~!`1pNFiP*#T{yu>s{DsvndLnd# zHY0dfA9Fa2a}B9iAGCZOZ2@sR0d{U+e-pGMuC0IqxOisa{$t9G567I z#qKMF0J}}Mi@1uzd)zK!4>TCtJGV#(kL_ERuSYg6?H;~;kL>Q<-r74b3YSLsu$?B5 z-UZto@v!}sS6=yAw)ddjIQGrWO?VI6pM3Jk6KoIO6Ss%$kS<~uw=;h9qaU4MJ5Q)< z>IQafmy>D7Vi=Ja(3Ovkal5_%@&nbAk^U;u`zndp!*)59arEBvQ+aubw&c*hu8RqwMwj0cl5UtqL_D}lB)2CI(`Fm{|7qCmD zO(U>NVEfD8YY0=iJzy7*A>9*@;Xzw8CZhe%vE6d31@8zSwnw+y=ScT?Ux;p($)no? zb~}+sOonHu?q-JVquXs|;TTDounfGTdQM^O;XOg-0{e#T3LVJTcnEdz#g`v zy0PWIqX55q5UPjpVF<#PiSc%2StWi{(P_H9!ZK!xeEcjH-JUBzvB!>AY^UA@WFp!n zupQW`h~OQxv0WZ!Yqq00!k6Dvn977D*Rv)~zKO{c#9dUYaBZ5vp?V$%_CT?RjpKv& zX!0y9bT{W4^0!buW7=eS)5{aD>58HW)T{LENd)VINKGm&{3KESOwnw^C z?`z#2w!`}?Y&Vd*=Yse=bZZj-AOGWjnd7w*-Clk1Uw-w~#>8GOty{tze{foM zX6j6%F_hoCd&IWiHFrh{?|t2jKDc*o8uPZ}pB}rjwE1Vh{lmpa&)8T0^-t`{)6Z0x zR(0y$e(F_|_9qMTv;5(MhwS9u3A1NE!I#}XPcWYs(_z88CcW(V>_lWKPqF1$_T^X8 z_0?B;B4@;j2Twi)-cNq{TQ6>|-sy*rSlx(fZ?lYqw!ME4gOs$Rh&EpCU;(P;J{uE7 zIsTbK^t=-KHEVow_x#}gqiw?q9URr5@%1n=bz@B>aP;AmPhbAw?Bkl8o!4qb+jX6l zm>H{!gmnA4L#px3Htp`*)jiU^#QJ@0V2;=u8i#Cce@FG4f=8xy*k90o@BX8myJz-! z`s7my2f2IKXqKl2tG@Wf3y-1vgeQfmIZ8+y&0cHy9vrW{_K-(QyT?E{N_z$blOW5H z++dFdpB^$@g0`8?N>0B`q^jmebOK83N5m#Tcw+()BONU3E-RSWabS##L zX6{XPl<^EB>C!n(*&uHLDUbE1`te<_&x_sc&b)eliFGK&42StC?{z^mhv+OMarK4( z`^Jobx8>K{Hm^3S1Tcw0Aa+XdUd`|NEy(!O_Fdc8;q99dkp+9I9KKBUg!bL*(a2)t?=@v7PtP z)^QSsg2d|7<{9Hxn8k;BSMeI%j_ts19X^S$9o|u0Z7hHHF2o$a!uAlprYUc{yNyl( zhnWPDyZAgv#{1JH+J5I~*zVE+dp#PiEfpMn`?~#-uQG>4tLV8q5^fNi@#S2`%mf$0 z2kgmFlLzefs@Yu|@0I97Eo$A-#P^8RfxTB()mJ%%P~CnczR7l(lW?+p3=0{s>zwtQ z|MZ90D{Ozc`uyhCzZrY_$!84S%m3=dqmQ37S})nIW>bezHf$fTBRa6h!ghFPVf%0X z@k?x%PuP$=VE8uj zDR_rgcn5YgHrOw`13PcX$~D^~+OZwd12=ew^diI7wsN}E=Wf^z?8EjjL~Hi29o`wR z58EMq|EMNfk^pw=XS~N~Y*#@^2kPKd!k@q%wkL-pUf7-{kv4(!JPvqN58mrBA*9oW z@aFugjIAN@ma#Y=`%-JyP8AfZeSO?W5-d_Uc4n zc((?7JQOcre`nJQE+LU-d-Pj{UN>wfs76x(d-Y1Thh6WRH4cx*3do0$u9!dPBDfB2 z98*ifZftwsDRT=_gIR(Z-ZyO5Z{p~rhIfkv?8o;FvZ`AA(}117efROO{pCOZk=Y@O zhR1e;gNfBxWNY}ih{ z_c|r2srQ0*i}vznYx}71HEfS`hjFV7%)@r5Pl6}iqu6T;Rq zy>qoIe15POL$;MhNV4ZKMNw=!?daxT6LzQ z!9sPST_X88Y#*eTfZsIyt4{Z=+cUKaxgLY}D0aEA5}SB?N%WfE$_Vq6Qnj(kSLJKi zkek?U)c4n~yb+_@k+~Fmn=^`Zck%OX?lHsM`kZf_a=$FQ-3nktyFD;S4<32fa4c5< zG#I+Zpw}MOx_trr)_$5~pBqrL#uR-XytjHU-M$dM+5Y%fUqrV@v?F}jPQ9~;_V}=U zbo-5WHKr=VcH4&V4mj|sbJr=j!Oo9pM|FG-+llt*_C!}QHwUmw=&2gEn>!WK!*+Ow zber>u$$YDB?`wW5Y>#NKoZuifokQygyXFzt!*+kVJJQ&GL%MGq(Vj=71gei&Xb&NL z-U71cuw9O2(e1hKbbF+`oxAnMV=u6GEM;`Hf&=e-*bY8KJCf&S<(`^ z58H$Hx@eCc2k(4WJ1){4)l*+EzVL zw?tKhDWbtUq^BxGB2+iENzm-VznrQU@xd+6*uYZm^`gFxNu+cn15%in$R$9qiqH`v$ATyWX=l*1|rJ-`Nw|RnZ{BYs6R|3Fa_zFm+%*t1eO6 zc2=*b>iT-2Sq}f;qX(ioo?H^n?!m{8p8x8_6N|(nfAe|#%iq3y_KRmR?e^c?+Ci1W zd#8zJgpIP3tW|fm+NxCmoCn^+52_(LfA;YwhEhEL`HOoGo~2YCoIGG@ONQqMA3WgI zZXSL3lu78*dj9-H#vgm}FMoXWzx`8MtsFo3WXyyLF~5hvZ@j$|d-K*dd;R(i{<}Ri z0sp;fh9?tx`jjQ-Bx;du?ZoDW0&|4&3}3?|v~;ZT!S39f>EKh5y5x2ev=Ply9b2~# zQk(Bv^bW=|ZdjGG*8}VO=}JvyiyYy$E%=Bw&7EjU2s2Ci0;8O zBp%LD{RjWhwU_f z*e+95B}@7{^uP;iwpWqq5EjCNC(K5u^ESlQop%ozw$E^pYVB(iRIj#(Zem&39-g}k zzIBz{Uw%$p2J;oR^KycnFuzz2l)jt8_L>8w=Y>I!gX1%7XEkSN8$f*v+kMsJ!=xzj z_0y}Gg&dnD!}h{^v%Ok-KK*pSE@8kf_sFLR|LF^C*8sHu`0z>0l?m11onh(N!TSee zMcwz6zQS^&cX25@!*&-SHV=hLG}y!T!#juBN$s#}SNU4!T~neI+xhHz*gkkqM^|iz z^spV+S>8vm9NQrs+Y9W!dNE*^7`96c+a<6)VCMsNvLS4T0g-Tq>KX45+o2NP19l$R z6+^z3H{0PI((gU~geS0%KYkvt^T!{5!VtdfU;p^%xBnE=#%Az7VDEgjAGQlApt@&G z*scwO53uv{0I)L&eMOlKnJmPTZ6XNq#}Z)Q>PC+|wx_8KUz>M*s06kHJKP~WusgNv zjov7A)T(3jxdgVyI!_w5NYCq%Kuk%2_psfcVY~dSsfl9*d6zmDyndpUvu`DU-PL0f z!*+@6GlWmj-sXtq%59wMNAs2l3M!uAl`dDT;?*{ajg| zM|IaBgim>|$JU|X>gC+xP8{1wZvGXv58lIeVApXnYzKA*>0_wQ>cwc5I({+(O#G7H?%p z`j%mPX6``vvXyQR)!kfdPmQX~CgJ`rU=QS5HaPbY?N*zg^NZL%(mfLw#)s{}2(U-G zOY9w=!TUn^=yuRH&itkvN#qzHJx7v1d1urmvCr=K4ArqcHh9lH0`{;S*nJS5VvlI& zhwb~G^>>bTv_fyA+r##-H*Dv3f4s}wol3M~=Py3gsvoAKc6fhQW2uMfgony<#t28I*TPJWQYx z+rv7g$>8QsoMJ%1M78|+Xl;Q(Col;wzaU@vRk4(yd^-7Yvoy(53X&VvBF z^UU62An&yzO(NH9C*8yLc=0ZHPXsKwop(l2^;yTI$f?ye>DsO}+fxUzer{qru%ms) zX-l!Qg8YN(U&avL`DToL9@}61{;RN^Zg=(Qb_VQL3*MbC#h$wRD0X1aQ5|1AOCmmD z8S9Thx+9N8w`2P(NrG;Ncha5Z+UD|x%wapQ=Y#6e?P;bigpSoAyrCV#b}^aIoA*`f zQV~9EpP0;_V|#Lf(`T+s@Sd0qyyr||cFp!ur!C!8fx-Ji_e{>WgoVu zp$o!8`h;sTIKav2iA0Su^Qoa7A5@~-QpRVUcq01ZXXo)I!=3(3*f0eiwSsGgV%wnKWtG7=Mzp-E&Ux}AT;us!xowg>MO8@b<;jCT=+ z^wI5d2$&-?AO7ULcz9*MPx~GFrR?B^KR1z6; zV7Wvla5P$7o2(_iSalYB1^wjMHg9>xg#72P_^msqJ3qbP*==u&yGM)N7Op9)o%D-m z(CQbXlk2COx_)G{n>LQ@nNq$#N-oioqEAYs0}o_(cayAyx9jb0f9LPsBgum z%3!(&c0dN+-JMH@cgb>aI*8#8yz*Ot;FFSzdgtpM8e(E2Om8NZ_$;V-oN0D zfjPFjFQQ0a5#dXKJuO%+J~Z6=Q=S2`o%oY|@^_y|2hq}&W)!Mg;7e|T`nByxn=d%5Lh!`jfKVpFQM_0ME>$Q3+vBaTpWQJ$QCG!SqQ5 z;SaiBD!;F>S%!rKrGt~$(dk1$m~*=QS1%>@HEjFU@0r9U+hxKZ_uwAwhi{cAZMntp zO7^2pg=P43kWBBz&{(Bj*`|GX>DX@bkb)23K*U!bYYCbx7ZsW?vfMT5B}*o@oOlbL zCGpk|+vUAfGNyjtFG{HHcb#u`?@s>KD!^V~H^f#Cx5d|e@o4K2!(?4snN>{!YJ{p{ z9)GpGM^H=)$;Ee%Cnrn2zj?dfZeBME!C`f3UWeZ?Ki4X~{4xqt%1)?mIKI5d*GYAG z%)5g>vzi1N%%jZ^e;K1&Lh(-sh0mK2fBw<)0~4ud>RW9aP97iZpLtc^x^;N{ErG{s z{U~v8?*Ws$JWOSkn96!${^D<6_)+G1QV~qGX>^E*0QStTb?0pBox_+ski(NegPc?y zd_VCs=hQH&u<3=x6ay-@Ofm4*woUT3QlV_Eud4}4&5=Y3@>;yS-ygk@@-d1#VoT$^ zkAkUf1zbnB`!jQS;5Nvkx|PFrR9~~*a*ZLY?^55#0_=wEI;GaI1I_k*lh$=3QdF;# z`Zl&d_~i40`w!^>Hf+Cj=N`iI8ky|Af5z&1qGjJrKF{ui-9q(5WAg5>yiPXTeXDfX zoQ1%^K5U2dx~f&}vant2LFHGbtrC~_(5^)->E6%l?8H7@{OmS+wp_yUWW0FAfgyYy zvpw_^3fuFeJjjRYA#K`RZAQY>RICi!p>+&$QJt<{vpq1k&MRyW@B?< z^MGM{jv+r}g`s*NpXUM(@}32e4f4!@9oxl=f_EO+Kl_K5?5ltKQ>YH_dk5cAL*#0+ zu>C}AzQLYOqwtREy6y9j60q-Usrd0TRIl0`kKig|FX7z;MtiDIjhEPX=dpb(V9%AW zQCynsJfsiaAN_if?y}$R=|%8fcUcx1Yp^4HL7v~RJ+O*T3y}D#jcO6QW_x9iRW?w9 z2I&YNA<9Qf6loQn78`jAtTlO-g#30Jp)29^S(=B1@WH!V2JG=O?nI3mw;4yVINvSa zgZIpp$;-FczSonCRAod{J>EISg7kQ7M|Esp@GdOVcz20d`gryOvBvp#79j65a|#L< zum|t8u*Yjkk<2#B5K5??am63};srx^TZQVt9=4rk7&0}bbGw3y@0*&-T|4)U{!S+w)0gyH0Ott0|_@V;jI?w!-o?bQ3|cGq0yNfl~zJGMXj=l|>Fzy14* zFaH?4W4m7*>F&=PWWb(LC3oB?j9RnZ!ISPV)qtu|uZQhLxfS>P$(HQV<2@$)vex8D z^I)FrB(qiaSdI7SPp6Q$W!ATHL8C|O4MRe5-r=R;ZcuNZ6noS=j5DWGCXBP0LK@qr zziQZCJJGta*$(d#mW-vHWX==~!gfAj58D%&$uBz8h<4t6zZ_L>Q=pvSn(e55skJs^ zfH>I*A^eC)@(<0(%qv?o~d26cSyh<3)Mq-ay@3v z5$#rwNY4>?Y{^u$^?L@B?h?UkJ))gQT04o!&n)bXU;u@%^RC#1U{?U+nOvGJkzB-U&PaF(wE#uh~A!CBpVl zogZ9hKUP??-NIqJ#H=il)k1hVDtMm^mc&5dl?1R)Gk{@xn#AYsqY-C7KBsZUs~ywrAz+0o4gw z*-s*h-GPmCAGRkTgYcPJl*je~dnNQD?+#5x_!Yzb7OFD|iallpCs?iD(;Tah(+Z>8 zsdvE{KLPI)JG?7{VY}60@E+Zs;!tJh_R{}|dJo(EP$i;%`y64@BPq6Kds?%&=`M00 znaIp#0VJ(kvA=@%`m@1~?GmF0BywP3`{;IwHQSAVny`$Omr~ykp!##egv<#Z@BT)D zI<+<1L-iba*v>tPx0(pNk5EjW2n4)gA^RoZHOp1H zX)|fMJ+-kunJ_Uku(*{nE$_jt*T5~h0#VI+M1ZtPgay*b9ueP)-iPbtS4qr-^~Ut z9}{)J9w;lz=5=2->Uzh|^dC{0?8UR^Y*u(> z9g{lwQIcMxm(#OLiC$0nYd5bMV6X-otl=h@g6(-n0gf6>g@{XMBAlBC$Hr-t7~3{( zxjKkvFL-wG%ir78GDR{ZIeLiSFLNsKn#neR1~5=j>1{=)*@h?;P{YL*z~4h6x?ln4+b1uV?BX z!^kLC8P!&dt|cpvSJ)MN1!ZVfU~lCkZt3R2wb9Z%fEdE}?Jm@7c%Tq73HwRl(HSL^ zlzc6H_^O5ZDOoa)Tx9I88QL)u67hB9T~nYxQ6(HkhYfiJ=knHcgLZ6Df0_bS@LA?C z>Zwt84P{)-3FP)XeXOuNsRioIrrPG`Qr09g2J9PeZ?lX(n)ije^(}9zC>aK%IyTl| zam-Zd%+o3iSE5S;_h@VxnQb+}7T!aFuK^#r{gNh3x%evOlQ=$q%5t@LfBNv|{t2%?g$dA^K_IP` zQm^3W-Z{;M5A{_k#_-!iJ7~V57aFzqRMA*&`+g&9YJXCjI!gdewh49VxL|4N0_*^Ca z*Z=tCgI|26V9pW=c@^|R?}g;eb~k0%9`c9nl@B$HX|@OK@s;;BPs|V=+pqr6$Vf7C zjgPeT-r>&C8B>0N-TG`eFCF&!T?Xlv@F1U?CF|yvRi5log`>~o-CxVy-!gsQ-rf)4 zv$ys6O8cRdN|`~~wB!}GpMP);@6d{+!reTikA>>-Y2^|hRtMlw*YOh=r?j(8!EKR5~7`C)t3nMc5|9o`+=4uJgd1`q5kH7SB`!}hu$jd$KTx@eY20DBDBZ_uu7 z)yb$ERM$YhA6!8C(MM0%^MC#d)pZ;kwnrOmZN|2B4dLAjBg6J5zy2p+58L@r9oX5+ zfBO@vhw#`Qyoc?1-1VjN;CAvjrT33o<1@Gt@wz z@K=Z&c9Eoi4ny)N@u!3$TtC!r?!)#Q8*7#vNH9k*-P(2>rAw8eb z?RJapnNiCfA>gr{GU=N_=oZ-HDfS7QySz8IRDbMCILA{{qxRL%#XE`dK*vh;Jx}EtnfR_+w%Lm>;8@*!*j1SvqdD^tc&vU__*dDxN`@nzLp2}Qu-Lrsa zYqpc?3)t(KwY|>)$QBZPOGou>A~wi(NeTbMcI9r^9?r`-wQ{#< zr`sdlc~nPKglAF9{M?8Tetc!!?yt18Y&Y#`6#GWEFA>W{1=T?Y>}pT!bIl?r?kn+6 zc*k~%y+pWqiZQ<@4saORJmnER?4fqjY#+QQ>XNcNY*#jS?kx8FcV7+IL4LrllzBq2 z;QdmxcicN*Kl$0C_1x|y*EejJc}RCxK9C3Y;5}@QCq+;_>OJ=;e%M}wPs{C=eCrT$n`2vWPr%3Zc`h)hw8bETEYkHJhrn6$b4P5zxbE0 zhV69wNO#kuCLoiT%-|i{kDtAWbRV|M4~_xVV|4qlJ-WRbJ=XXDT76V!Z63#X7PePy zR8tz$0(Ms*#I{_ba%_iX=yv;&f6^)}ahu3y%PTi-BJ=*l_UQH$1X*ZeG7baMVJ&zs zoNmVB_0!C~h>vLJWoclCMBY}z*sQ;1yR#@;)rlt>gYcE;vDUGjh3)VzF}hts3Cd0Y z(EcYZGY=FA(3`R>8Z(CN6gyk9U1VkgG7_OWujHmCB9~%ByK#PWW+B?6+Z{vjUcSMe zw?B6$Y$xDDb<&*yyO>OjVvlI&Bii{oshnB}zX`lVw>PwxVYMpVgttkgGC$8s*AvxE zdm6S!uJeQUEWvh5^3hExF&R8pPpZx|A8gMDC42?@;fc{BE%zW$$MLqc{MJv;Z(lsF zC&=zSURl#Za?CnwyLGzh1MW>hO;!hjwhzx>hi6;ObACyf^74*|!Q)$dwR7IyX6zk_ z?af$r+JV#O_#9=vX77Ogl|)qi@ZaWH;f6Qdjs3a(%*wCq)1UL2kUjGw@)M%LcC8%c z0hU*%6iL8An>@LcWp>@ky2xDvQl(o$YY?yG-T|?~#F3ce9mk8?j%LOW6hLJi^-3eVH+_0t{$~FlG+HxdlHLnKvZUh6i`6jiH!-B%L%#r(S8)ma8_`GfPPOo081fBpBDU;c@mTzrP@ zyZfh1f#tV$jy&;IuS#9(jyXopp9M2XCBcgH}2WvVi@uuWeH{^h^^ zDfaAt|1aMDcFrDc-7&md4H}#_fez2D$!)5uas76gE5?WI*Uaj&7wNt%>FbsdrA-#m zt`vAgUcbpJfamAuI;G|Vzc8LpX3BfTBR2IOw%a6Z?`D#J6|k#v4cM(IVdtpsD|_~t zF@A^efjqVc?=o8e2=5Y*Zp{!rY=`%-{n67GYqm$XXAT`+`9k%8eb|oh$}FT;ZB$22 zkbJ;iKi9)<6z99`<=){vR?_Zl8HyRe$8=ykIC~VfXJLW8*?#l3imkGpcMjOr)-KC= zZ561>WuXawgBUn8I|KL}Lb{28QkS=7x}0V^AA%Lc3TWLN>qiEPFYO2K zF;xFnwgQ? zUtv4B6~YJXd^5bMj`kb2ZY%`CSm5&3EL$gy`Jo8Xt7~?##)SQL-?@W zxP@%Zc2qxk^hqpK=Wp(vp!&sUFL}22;3=?&?T|ir57@E2P~Ux#_#%8yHo=!}-^}lv zgvp62ZqrncSMW;@iwv|uI$0i@_fQE)XRZl&306e zT1Ist!lhM4Utvfeu-9&zd)d}c*K4Vo5n~coMOE1_HUfr{8N3hMq1!@KXZ56$Xts;f zhV9E_OwD#+cP@eago7YG=1BZvid&&i;KG!GU6bPFZtxE5Pk;F(wzJe}hV5xL6~AVC z+EIt?w;B|{?z$C$8}BuH>4xnR0ec7!=`oWq0z0$3Y}1iPVxGSe8>$2Q?W?HXV8`~v zWL%vJ)btB%uJHKOr2_l6vR$;?2i^fZU`OdBAo`nZhj+9m-BI1gI%~Fr2Bg2jc7(6P zTWNS;x1>7z16ou4=%)`QqS!~b!+YMCP<^EPLiJ`f(H`B7?R5LF{rc_0*M4|AY#*@O zFdeZY*W+bQ31LiDqFt5{;y8O48?cj$z|Qh~v0PrF+e^B)ZU^>yK&VLF+701{?K=(j z+f8_QuXpN=bPv@-_^>^APnul=`l$M)#$yyIAY?u$^>=bS8((4>z0Y z6#;93TC{KG*H>onG?D`W-vEhM+=6!=(y41cY+nY2fcMQ9>Cx?ZMDo~PR1|6^;GaB$ z_ieo?tFrPuV3$DkSlB+gJ#3E$b_X2kj_tyJVf%L+oOg{C+kssM$Xj95yR*>Q5Z+T@ zBj+lOQJY$RY?qz*PL%3)HJF31418F#b%gC1MQXSa-JT28+|vT5wk=M!Jg&oYF&pdv z>yZ+wk8ZDTH|jlUoVV4=gi5OI0rL}%bIo>muk)=oLd!TX5#;fq`mi0sSwX&D%4)jO z+OS#;E$8cU4%_Dd5I#>XziY$dWaFJk9=0QVbUVBk;m@A1C_34IV#oH1+Fd+866M>} zJNt>SJ&GOSN4NWlu>Ioci*#kxF?9^m2k#@=u|3DO_E48 zjI`6tnL5p?p!vbIQt$GAvz<5Ez({vgHxA6VvK`gK_UV@@ID_ig?lWu;;jQcg^4PxC z?RXxfyGp}$s2|bpyv{FN(&yODlI9bWnNS$f9=0EUpk8AcZDXlnY|)PG+B`?PgFLpg z(e1fJ<3o6bB4FpkcA_2LQ|{ugzf-Xn#a05?N%!b>y9(ZU0U2OVSSDciN(=AvbENyC z*fpsVqVF6VAJNWx*Pz&e9pOv53oChv^JZZbosPx;dlA0gvdzL!HhCM{adq0RKyhr? z9%6r!?QYhe1N)z2`z!kl?IYE?s}FnXsuCn!0RfS0@<7F5Pv?jEfnfI zAj7X?G7dFtPfR9Yr`yT(#AGV5sY^wL#NqieL9iC>@hR-Za|MZfaQTcv5TE=I z^o5*>eqj6HJ<%9GY!BEIlL_159oTCCs}0+M-NoTUbzqkmJ}Z)=+Y$bYfB9qBPQdTq ze-7_VVo~g^+ijbe%;@&qsoE#So|w#y;|1^6E1m}Iebbi)V|jj|`mlWhG7>^7rmN0) zGQdt|hwZd_qBvbY(1mrVJ#t+ zzG+8+31jJ{%PTLsrzs8@Vj|@tMPuvTYH!aZ45{bl3a-`gdYf3B#G!$pJ0LGnGX>C8 zJ!OEhf8E=bH!pH1QQ{6GXTY%x7wk}-Z_N5T1}W+`)ddH)(!hOc0gf+J(^O53a;K_y z(*>hm=iBN9zu#xK-`fRkFvs?wb$S&6FVm|iJ(8?r1-+0Ghl$=U;0rYyeC(qqyp?TY z{jvOM!xx`d3r3c&vOHVG+u=MuLVMnC<%bfhaXOcVA>Kw~eZhC{Rt!z})7>|}n8eLH z_pa|AF$ou3#;(%cD^DUYNuE!gowjzqt-LXhkIlHRe%%DefO9=F9q;U1Hx%{h>9G_1 z@+)S3Z8Gxt@4py3di;dlJUGJYH*VhCJw1(WA0M;*3(a+^{*-C`DAVs8pRpQTuJb^S zmbdwhoeI>jt8Z1akoffL;g!}bbnr|)BTM4e{t=T)-!S@LhcS64n0MHS9OIAOFuY{j z>u-`aC3@>j4bRn$53$s#rQVi*{YFh}#J~Bj47OXxZ^CyK>pk0eJV_V}TJt(kzGqCR zr|l1`LHPE&2TU51{o;b|erKCVe(GnntJDs!cK)NAES%4A-V}1zXRF^GuD`R?t<+KV zi(4M?_1e+{ebl*Bm);rzRA+MweN_(&-*!D02$xRim%)_8Tr1yV4s@h5AYYHgO;b0c z5!TbZXN!Pzdq_QXPCvIY4WXCj(3`Oiieo>2ar4K=yQhyN(vs??3CHzT?wL*8M+t+? zI!JlX>;KIjpr(GVrhcw5X0N@emxti0*Z;-pl6C;r0hp-h(o88%um9*~nTuIH-O6hZ zgSxyCy|iy3vw50aEovC9|EWJic>dtv;1#x8f6aD(0(;ng|NebL)P(I4h4jWd!e{mt z-a#1O#VLRF?l}&hH-#vMV?RAUazsKNx&31Ul_OX_H9k8YST*U@EqDHhwt_S88f^Z0& zCHapSuJ*$g5oIn6Sjn zcMpL*-qis1usvlYJ|)XFPh$S0)>52HD{lI+g8cS7)zgGYl=L$9Twbx?*@JiGt8Bw| zct8KeCk*`<=p8?P$`C$rczAcT3Ied7|LO$~>>6DK@1Z)6MOtRA*)A*QP;HLwv0*s8 zhwV+OWiDxP6{k6DccURaZ0B>bsYOcu54FN}o?-i&hCXPv1N-3J6+rd$nR1R{yJH@( zhwVU-qk@#MT}vGbvm(RLv|&5K`-zmM8#NGXu|2rv9rnobX)tf|u-#9%&a-lDsNG|m z#{stA+&_r9ddgAgS`hBQl>KDPJE7418p`zEL zh*v(@;5|8K_EQO~d3H@N@ zTQu!aJh0Dux|+u#X9)jwwolWedN*#i6Ya3pbbBRsy>gaNk6r%RSI;#py!W%1be9<2K5QSbC*geu z*u!=n(#IC6Z`h9N?qm7QV940+rR?DDSqM+AFQQ$-t~T}x+flvVJ~nK}aBPF zD-<`_ttna#@5A=+nQjl&$4l6WU48be&w!mtSjeK`hwZk_-mL6kz#5)HsAL2|{iyxAW0Uc0_?mNFQyr$pEFY_>~4 zdJ(1xAF9WPdpCZ3z)&6DN4Jl3k8bDP(`obwk^wsp@&_M2!uHsJT>{csnzf`e{^)ks zgoW*HadO(|cKH*@oo{$P=_(+t*w<_i;pI1M=RrPTcaHE*u}8EI*ztDF_Ii&fby(6J zHv{$%J}<&Rw!?enip{nb`ZEBpYgOauZnENPdDx!e#H|z2UVig{ zupfognT7Df_CDX+*zPBa@U7UBC&P9@B)2k?L|7T*`%x%d)~zF&?eH$oV-(#E@66AI z?I3URXf|x8*sGf6z1_5dbV=Q+fE~Ao?GPQFuYJJ2X8XistnU-Hi@o@KE8G1Lq%SwF zV={g{F&X!L@IFF4g?ju1Wa?z8<&%qqW!&+>J3NMyP$}D2&Tr|SUM(q86OgG=)2%7u zFToBq-K!#mU+Z>Y7yJ+5F@LIB5|cUWIW7}NiuWK+KnB|@8?2BNrQikmVcE}CMEr-*jq1c~cJG^5ru*3U8 zpp6n5RrcdmU2xURB4a zMYkh-g@`-OSslRNtpRERc5DasWLMA*)p{s;)$SXc> zblvNk%W@eL%qC&GizX4p9{n8A?y>-~O~%{9T&qj4cie22yLXFXZ{04#Ex3WYH zFR5y>y+1Sk0WTUlc1z#UJzYd^Rl+0nt()x153W=Z`~KB8uHRtpl#z&7DqH!~x283k z997GO{Wms!2Hhz&wh}MB`fBrn)#7w9jn{_1ei1Cc@ys)wXKom^g896mpiSA|Wa!GhbIMZNUH^sf5p2ge+ z<*vSJFQMd?b>BS~x!Q^Kpm2PB+v8}(XUXwt9j%wL{3(%q_4*I4vZln%kX9w5>ZC6?M{VzVVb+^ZDI`C`X_Iskv z0%>=|i~dyr@UX&wa+*xSN>{JMgB+!IQasX@!tB~@q{<{geq!!RMQN%Xi>Ieu?cUtl zyZ)vT)v7h%tRwNwqgs}1p4WDg-of!ZX1_YR7k}^cg5^kVy|Z(3Ym4`0baQK)T~{f8 z^{P<$d=JaT%&@BWhz9@vxFByz8@z3{$bJFugAyp@4HY|m38cn{b!D%PxBh1a@byXp<6E;oIQ+bp@HozuThtc=QnIWzHf@#=XyjQ zZ@NZ8dY!V01CsuOM@*jxexj)oxd_1^w&!^vf$hcB#(TgX!lODnIXUI0z2dqd4YvD} zX*tPb`=xcS()2BzM}XUHwb@npA0MzE{^SVWUtznjObEYFJ;MTjo$W}qSicu1!k~O9 z1@Vvq@A254V&Yzup4q%^hwW)6mN7q<)w-On*={+!C*~&Y1ugk%*pA+jtf)SQ>fes{ z?xR%5!cx8F+v;W9wCrTq59^H{(%~K3;X3y*Y!B6=+Z{vL9^74d^TxHUZ5Fn}J9D&i zt#0j~1n+O$+Qs(c4Nfm_><9XKS_}-o1#yd%Yj^AX(XYD!*wY?AJ-5|!?W3nlh`a(e#YNj$2%cj+mN>H)jVv&0RK zPaTg7h3&yRusi-?yVmURu7%7x2or$wMEjs!;N_car`w0^q&vKSlkElvj&9Fc!26o* zM7s+c0*CFo_(=e}TIR65u4)h0Fl?6@zLo7I+BXceGQ2BF1`y^+cWfWL1A9&TCLrMb z`q~>2?L4G^=P$k!=|2525q`i9EWo~Iy9^UcYiiyV4%>tGa`a)j~K)xGWbLu1b_ zY1a%id_win?e2wd z`4aFQ|ExbZZB6^Nbkka_n~kNwT4zdYc22HGx`*v=Zfy_SiT1?3ORleU`<3oeI=cPV zPmas(lmYv&9oW6FhwVJJqk1fC2li3j0)URNe8=1t(!OiR*{i|3bH8$3W0GP!u-D!1 zs3WA$PS$K+>vsD@btVz258HDV2tSOK2-x3vdy9>3uh_U4PU9Wn!*-&b=>m3k@suIF zu~tw$9@Rx-5^qmCv=ska@9hTfyfgKS9xHX?Y5mx2FS)*9yA^z!b>w!1NZtT>Y){?@ z+b;p$Z1*&DNwbi2mzYB8FpxQvmI&LU+b5r7&m#tGKDs?m1l}*$Rq$SLFz}a%Vuxse zonjx|9=7w?ZmSS}#xXEP&B@sXQz96!$Kc&#mqoYN>9llr>({#d6}CsW!~2MK38G!( zJcJM1srNP8t+Qr(qA|d(eS4@L|IL_8bbFP!mhLVHw#!%UQ5ED??D6C}s$)CD_R;MS z4b-v928YLA{Fgue`~Um@z5MbEryNscs?>BVrsRC<+dr_!eCv+0wQe_4Uf4dNCtzm+ zGSThG2JHOsL?U2MSVl}nB00yA1n&~4UU|}Rj*h%DWF1V`i2(ap0y5>RWp&|QBUs()cF4y@d`$`W1MB~hxZb-M(xCu~)|x@j*h8C<1W zrwMP9n3&8m150-dPY$u#*mlo<=TB6JcS6X`0(Ln+F&X(Yc!v(UJ=%4^p0JEw#xY=5 ztrNVb?kqJX71H0tWRgGQg<@E+9K{ao!}dt%DE49d0(STA&#+xU=6Ivqg<=wrxzY1z zq{zTK(JmUp;2jgf_VOK*;aRB8ONZ^GyOlj(SO^dD@SfWdsz|Zos z-LOXw4%siQ->Y12LUzbw%{sz&QZrJ+kZSXj-lkO-aPc_iIJb=P)vYL983|R2Mi*o^ z_YU)Pv)sdOoevG+1))r0=qhpR_Rd(C9A76^@6QGKY9hB8C?NUg264!GlD_!M6=uy& zVEer97#@NZ1lspisyAy#<=K(Ln{k7&eR;3Edve4!jgBnD0p`+G9Ah)Wl?$5@u9jza zKkqyOT+#$&+z|;rOLBv%gI`{Ug5v@{VU9pD_5`a zA_IxHU%7IXEt&l4)pK-t39J=%0&=}a!4OQgK;u1`wPwYSZS@rKpjc>9)!BHKB6bfbFgD!k9~ zgyrXC-A8Go2isZ35ca%~D-!Lwd0VyY?yX&r)SQ0L!N)v7JV)~D_0v5pgFWQ=!tdTO zG>2wp8b5m_zg^FipPpGRYNv%pnpjsGyn3c|XTX!kh4)Qgay;3)WB%D{Wqp3}?D?lJ zdA9W~eO`i)UF!Vi`ABza%}g9T3cetOh^Fubf>PQFLmo_(T5K zV66`|HF(ZWKQsu^b3IEWmU3}?va|cOvRvn~tCx*8^O7RWBxRcJrED5p*Uw$^4(4hL zoq6`Y^_GFcGTs**uG^{41ZU{>S3aZL$-*_;Jtky$c$cs@>2I>#PirdU2y@E(n(e?I zwrc?x!l&KKw45n~ZrBd&3h!_J@egaZhw6OQW`4K~hF=q<-G4rK_oHdM&Yxd+{FNa* z_$U*O8Laly5*yRwts9lNW9$yijSBBFq}$VHWreq?~4o4_8n=kbK?rIBv$ym9S1?*!-LHs#|^ zVSDWL@4dcIi!A%=H(vXz*T#IsvYNa!kAvv;)K(14UrD&OT2JNGAZ*V#Hjuva?k=lD z_xXwshxxEQNRPL|a)mb$8@JP4a8+|J1}Wiuwc@y4)wQ_=eC>SGHrw*N$Hn`TVS7g+ zUklr7$zNT;_6q!p>(;p0H#)1A#J#bz6ARmcefQouq>ml_&69v#0@7KIaM-@x)%{_6 zGY1g8LEfy_6hI2e4>~H>=M{+ z7N>Y@w*t@XCu6C(;E-Na?>C5Hd*MAxHf(oig7>s@i{Cfe-o~O8A*Jwgs8IwCJmYuv z?lDbJ!uA=r2iTE3c&|hS?ThdMdkF6s0(J>k4BKP!%$_K&w=M0lo9e;)`NK!>&O-Ho z-3w{B4eVsq&27VDx&ow5k#i09upQoSzO5?rCSMm;dllXPuU@BDaae;E9^?~a;j#UH z>dz}+_vf%(;6>M@;GHbLWWt8+_8Hx79V7kn%#?@z0y>RjT*)i5Z6N;YpA(V0WBBP`x>B#Ajt%>b>EUW0p54_5ypw>z3z2MEj09 z1%;GQX~pgel&Lf7_TCc1b}Qt~F(JVLJGKM+)gN4qy=D@(vAIcKPXIM;CkpqqZ#Hbt zSL0`8OJ;o)7SdO*y+O3|;>0)JHZ&iO*7!EV_8Fth10rBwa&ogh_t)jhMRU1Ex94pr zVCStlaU1s{z)XUV`E7gnR<>W_y$2G+b`R{5>#f`2J?9m?Usj|VvV)G-|1r|NBN%{F zkQa-)cV5HSe4Xu2{^2*Vm;dsWxu1?ddb;3UPR56gdXH!i+i$#E-MA2b&Gtfii}tWR zVHqCMgLeWxY$x5rcJvP0L-pnPrSa!UHNt1b>XGg;48>O?Ro0v77)AwC02{Uw?a}Qk z>0VT41iT9#wpWJVR76^W>M=J?!7mD#?4v4bOSC(M==Mr9;jh14je>w(BBL?X0Z{MT zw@*GiV+jA?$)gyy7c07+-3r!B<7$4`?$pwfCq6lC&Grx;)v=v)=M!rMTM1>hifuRY zRA#X~OUQMG?QFpA7*O3|4BKlb-M((v9^Iauz&p9l;GHQE0Xw#Pi^*#^w!b3U!*=3I zQ3~E`V!HGmD+Vq zOa|MD_8Nct;;EQ3-Ck7xZ?gUT9NrC;4JshBiOJXl=^ngeJEPl2 zx-N+m*uPR!Iave0*6oWFADF+A7!Y^D%0**sR-5fn=3iT7!*=RD-wxI1&#$eY z-8ST3`-|^fS}(7j57)2Dhw#pa?YZnApR$JJtfY144T-{d4?pgbUV>d+Sl34&12snP9W`-1n@?Zftnc5Elq zpa1ScJT?wM7mcd?yw9W z(LQV+yi@F9y98DzAXC2C9xr=O_^}||4eVvJL}SD%S-`#t%PhKGWG44wdA4@`be!_1 z`#X3~3_l*s!}e0|UE%92>O@+H`*n$kb_am%kpB4D<5)V-0ejemP>gtpYLupQVDK5UN`iWiUx+oRhN9@T?)UO>ht(jC$x-AA{>`&zn- z!wlOEBO~PQCS-*vi8ft?A$ral;4`lgk!v3 zgx;I#)k(vudQd{*`Qm$2_8L&@r6 z@m*F4yZYYZdpEToiMj6*;?&F)yY|=DO46%{kM&CSKrm!Kw)OF#$L%XUXKpc}$I8%T zw5Yq8nnXc!XY)pE7OG4~H7jH_>nw%TQ2(1?=`1XH;Nt5?)^%i+@mkn>3b<~sU3r6D zee+hK+X$sMZoQ^iwFB<)Nv5jNw@K${leX}CLiBAR?biMYOAy9zGzS+?cJ4onz1BK; z?`IE9md&4h^wes*Cq|i2dtM>&#N z-`KK;ZeVHWI|f|(=qayOcbbOUKimC48)NlT4!#CR=hG0#8;a`_2&;;%2S2*@m@R_O zs5Nbe>N0lob$QYdSljQP-`G-lQR7)%+GgO&x;XWWsNtka*Y*6Wb}Q>9Z)e2gH{af7 zumA7{ziuZv4F)6(@5T(^$*17&?AGuR)!gmmjF+zKwrO5+8N}<3rE*SeV(AixKRJ!? zuF%TiF{=ZsMiDg}-@#8$+4lQKZ11=l-3@S5@9*9@3f?6`^~LuAI1)` zLRMX>4^cf07X@3CL3kH_$!E&18IJy9tinn!^)>XFKwFbr)LL z95n}@x5c_f?)f>;U2v6mDq%-l|D#ksRa-`xwIbBU?F^{-cNygv(w%_c<-KZ z>HAD=2JcSR3YA+nL$gj92ln7yLSaeQKMBQT@Geb-I@405=JaW>OSnNW3hz8J*Po4O zw<-7T6%XmJESW#E`TQwiC)rODbGs|iuL;18@B?-a0Bibkd^Y5jbcUA7W5CXb?ZLQ` z<&?b$V>`1@PT(!ST!Gx$u$>YZ-8Bm-H0gkym+?m77jv5G!8@wQusv;b`RZFIEZ;-m z@($H8OE_#)58l7)+pZ@C_Ja?fLOQha@c!V}zaPAB|KtSNW7;dCI>PhAWO0&!T})=! z9=t=k!>AsbYJ&QFyZ7h;wu`Z2yM>++c9kbZz>e*XM3fTS9U_Bt(+gJY=!5e@db7Pc z-gboowu3yR!@C`pZ?MM$I}72f{BFh*Sg5|WXaBZJ^GgZ5a#^OWpi7slhwYxDd=*&7 ze0z6!RvN7Ahc}qz(*RzJ8l}UIYu{=u4cYYWeoegMx!F|T(lFdk8tZex&We-acRU(=$^*#nx;O*u(aS_Qe}0OjfMG`1MeI@J_c6+XwGc zel>A4qHjvNXTdbENwJ;Pk_g)kIO9)Xm#FTjE#2J+V6W`ac(1Ut_D{|Bh3d`rDE8nT z)sr`x@P}Ks7jvDpmdVwIbgi9Zm2DdDeApiKo~Jfn0$!WCpPqT}!MpxG!F$*qu!rsN z4!NviL>snK>|y(~Z;_zhy?R_Wx%9fxJ!D5r23Bjfr(9Rr)I6pY`?92UJG|FfH`{rp zun_Grq(XH|itt8TifF%5t@w(kJqUl%IKsOjA2=^}u&YN)z_((LFY*7EHPk1+JQ4c2 zU`cd)_F(tfNv*jV8Z>M#u!DRn_WHKv`s9shew&x(?>@g_dwO`q=Z@3lmFTmcIA_g} z*y=s^F|@Z1ab7RiCdBNDun^u7w9ngjqIL#iWwyNx-Mo1V*z3YdG}|NHElJnu`fA1Y z(d}V7yaRIB9?>4QKltTuu$?!v>ad+$hxgb*^_K1>8yd@QJ*r2vSIB*dPLy;8^J}n-x9pSUXdq2Bi3)P$L z19k~zJb0(xL-lyNJy!Ad7VW?uwg>O=*q)}3Yw11(bItbuu5KsVeZuw(DK>1E2bNsX zIhJk@-X%(|H`r@QN5BxC4cjFGb}LA@CL`TZJ)*rJe^|YTBHgh)V0V9WXX9O&gssB% zbmv6)^ZRANd#D~i`3m8u(zAjyJpfcn9Iz)QQ|(^FSl(Tlx`ik4!*+?;C%orZ1Y|6X zXm`MLyJ*Z<6_x~HTCV$Z&GrTFt=MrD;rXy#SSDQMJ=Uk8iwu*>8etg;P5mb(W5Wb< z%6A0Dw!t!=Px6LumAv_o?$zh{d*Acx-~7x@qJEtt3)M9SCf(h449`6p(eCnE60j!} zBb{}86}IzXyBo_;J%;euUR3X)_JBP%LL!RY9we|G*eiXtXdme=kt5_Ca9%X>RD$%d zy}aD${%K10=}Sl-wgda%eeQK7n(Fbn?||$vL9R!%^A!@2%S#Zp5XxjsTid7}uwy&X zp0JGLv^leLJ2Z9;=^hK)`D$jMRmQJgB79;p_Rm0Gd8~Jku2~45gZJoO0F;Pg=fBDJ zD$#9;(tRmoH)u_e~|0OcBs=>t6rK+8@g!fV9ou*BWMAx<$B_FW! z?)8|;2#pS7`zk^9v>@8K@goyB_N!d4Y0g~hfAOz>oUI1$#~&=62LQ-h6;JNeOq^_1t}Tm+jP`I`wB=VGQYyDhK~(lMvfiNo0j@_12kB_Le>5 zVB(?vGV%S_uK(y}dQv;DWs)f;)gudS-8qFmoF9hQW!%5F^^Ts`s=6x9c4SH4Rz1S% z+xPG7>PTYhG*xC@S+jR^vAushN%0D>807Gs z-8XOVzW(OTc!x37j?y#kdScY6dCayq%+q9C0*?cmyt_wu7=nIVi=79Lc=J-S^rfmf zM+{ST{}F?r$YVal=1ozmA>y<}+_`&tbnzs1)7X*$`+I_frQ0LjRdLFtAk0)9)?v4w z3e8Gv#-EYMRdvVRGLW}EE86!ck%>X&p~K%)JG`0Sq1rb02y*tIGpQRrhTEoJ$qXzu z32%Gz?!RnS9oDmK^IC}S>>a3>jhSyT+g9T4>G?-bc;@`d ztBzoc9=l`K%c_hc@2yaAo7U`TRM4_x)v7 zAOjH`9Nim#nRx%mI?T0onuhc=dAh{)AF4|&yXMcUS53^3qDoLjv@3ucT~?7&%avIJ z|4M*)l$ghXbf#W{_bI>D!FK!kR<;N4l|#f9j69%?{SURwtl3*`sT}N@LHPvOWe;Fa z$C>g?^>}y3S=4IH_OpvepZ@x#Kgo4qjC2p%3+zXyp*qh7$P&Uk*p41Nu*cvX*xmXV zu=^=&XQ&>$142pernE$B!Wvzl4cH}6-HdFDZ=HZG2=Ax!d~viap&su7!0s&KE3tpf zB;@40vVnZq4(|oSjzaTc`}H@k1@G?WU^#bouq+Xb^T0kn3$s-=`KF(JYVM+0&Ugtc z^Hz{g>?(xMpVFE~j#+cEislyBo{O-aLlE0{dj2eUk5JFOE2Qt=bHCudPk&)Mq_gz= zMRnyJ;jw+8x@nGUnwy%7mO<-OUf2nwGXdv*aVV-MS{VKyJgbQDW~x)mfjt(sWB!fZ zgJHX|B2j&++JPO_L-;6j2apI%AP)$TE}fBVhwT!;9_~pD*d;>srB#WiaNB?#+lBN4 z_7J|FN*lJrqbDZ9GqkzvAKK8a5db!9_XP11VS6`Sdvfc2(-1GVJYN!-F`$`aP~-D; zwri&1hgl^G_}hl6(OAW0AIk~my&!KWiE`kxOdLexHoOninnba#Z80Cubn-hqA0Yj}8$?ew0T z?oU3Voo<(abPpQRouORD>Egq7zMch!_Ub_$v6o_xt#x}f#d+`u*m)Ooz)reDdf3im z&cr<+UFoXs|L$yBn74ZObEDe_>=H%(9xH})uV&{POTk%uQ$2)7^(?GJ2NK;Z`9Hcn zKFZ&z)rlM1P+w+1))lLxcEG-;Sy4~gLbOX_5$YN zQSi=>ZkMQMM@x6xKL6DVU{79(XwM}I*h6^NO_8WlAuh42TrZZ04bSWf)v=u=(#{`! za0=<9JM}2>;`d)fv19v--@QcjfIVzKIKIas)FEAhkA{~gvAr%1(eCLfs&@5Sq&vAD z19_tT>C>kvo3F4ve}?UdosR)$)@=VD)a}6TL$t@-WmH#EQnebk^Tqk@%tf@bi1w&= zn-J}hmrl*y$xJkm4(xP$*q)dSzsU8Y)37~*F4j9>i|uGdR1erE`N?JI0g zeoIT~5FXOUAbknQY+9@({Oi|P4(`B>IwDp z7>=h1&quL$POI9tu$@m3KDxb7zhQf1b9?~K7vurF4dIV39u3|D_F;QME9H%8^JYzN z$7DiOPgq7eR*>%?c_JsncH2_yiOEz`oM&a&UU>H`>*)Y^p%_$;MNeWEsMgQ*uq|P` z!^jh4&Gy+z*lrz%6t=ri@Lmt>Zsn4E%SW`sJEXHn_hEY#1WhY9VHxKIn4{YV(L{UU zckgJ}9^L-@S1-q~9Zo~(JQ3`z314ite()aMzGi!Yx}P1qoe0PzCga$gj%XF{64__M z>=I#nj@IQ`vwZ=(7Vj;Kt-3}$Ny%K-_87ri>EHAvbZU=T3Gk#gJ zVmqpjB^nd;?rxl%oTRJ;=0<�Pt^R`^031`JheAZ`w=#&tf&c^2r>m#(Vc|x(08v+H- zj8dXSQ%oiJ_FfHA7q;`B{#rd&LiPB^kJ1~$SUrmEEj{LHuDS)|5_t!#I0+Hnv3Fy) zN+fSA?{uvJmfTX0Dl_L+|5GDkL39mN{`PiyEmloi7TP>};H`h~{=uxaJ{QODHu6?8Y_jXjB(D7R8?KcXqF6=II~`^2R@Rap z12CcWxz}kDV+GICuAXq|E^YVy(^y&}rNwD<{u0LNa=j;9Q+->O>YmCEeGAeS&I32k zT;6@Cc5xl))#ZnU!>|AK4W=@IPrtJz65Bc%OTCrc*g4oceIUM3Edb?>A0NehyM1g{ zzN%jky1&`7ANI|rapleHG6TY6NZOY3ZZ`8WtgVabGf;h*AgQ69So+b!Cp*WdRikRp zM`tq}p9~-A>j194g~sOoFu-qNc^Q<S|Rc)4;pB zP3gVWe#7DCpS<{|FaL`X4?g+)CA)a~jA>iJI}B!0c*QW!FJtWA+U;qP(-^)ATD7N* zYJ&PaQ1~cqe&_IL_b10Eo{Sx>I)3!{;7p}z$4L7*o5w`v4bSFXz<0NWI<-@}S92)y zgrXq@4(}S}@gWc3X)2>S_0iL^^S^my9n5+7EAp-b#0$`7boS^ z19aFvgxA><+bhF=o$VQNlP9pVTZxL37`bc1c6XtAMr_!=zQSv^%g;<6M)k!u?*iDK zHHYo9lW->CDPV{95FXNF@Hl~PvN_-l-UsPnvdbRK#%G~)67le!2ZTRE>?FeNEU|MR z>Gcl%X(3QctamcMXo#?!i(Y#Yz|OK{2F8~euzm0zp0C-yEa}?P;=DT3LuE%dlk(FZ zMgqwXjxWOVT4D1isxyQy$oC!)o_QPqd(2UV;W@nebM=s|##bP3Qh;4eBbLcu=6Wob%YON*&&Z?Fl!PRNgtjQfz0?x_f#N+xzgsw>%5muX{5+JO*|K>>ZQ2tnNg0 z;Jq$bv0-}%Uq7Mp<`*v*q_YryCcaUTA*)wG=*WhHiGgsy9$!rEu#aCsb$ADMYliLT zpTA^lwgY?cjyb4qt2#V{-vn(C9@xhW_mQDL0`^zft_bY?#Q0s0i|Wl)U>{2X@k3vH z`PCo)>z{&mgopH_^K>=-p!$QS~lx+P)zG?hVhYzOx8e&ym3yvsI}d5(X) zZNqk8AGYT(YLsl@O|2iry4Bh=)eT@Pk+Hgct4(8|9l~$W{vW1NRbtKd)6>&Xo%i`B z+mYwL!FE)Sje1Y{^<1Oa<*9gJk5PNk?Yxr$c6XmA*CX0_5JvTwZ^xp(WN8Vx1=xA& zy>j^8VenprKR%}0srS0hXBW}!VSBt1i|w@^Gi!H?cOKpotec2m;(nE{dSX+)6={if zM?Sh8>)fy8RUY0W+Ox!(2~WALA}#P9!b3XC1KAah0>^e}jbSpjukjufhvD(SYvs^8 zkPnvm*$-mdaQ;jp47Z`Lvbp6J7WDhALE5p|52Q!B^Uie4=|s2lIT(Zw+iP6qR_}6x zCZO0ZaT$0aeS7YzsBToJ*mOE`^-hthWcTA$>dW-fW!H}JU7`CH2(T@dxB_G$99CrcAF6Gz|IrxquV3eD;y-C+H7B>d$T<)YJi=%4c-IxW!w+b zQyiT{r$Kr$|M}xbVY`NZ4A`%T;&!x6oNDtm6h<3K%ouuD{?!)$YqbGfn?W8-TN4JA~T0f@yQoxSz z4An=sJG%s4c!-EuxYq3h6Fj-5Rm{dR>qOX|R_My3L=<~G&Ij+Wuw9R&JOVrvL}Mb| zZ98nYtLXMM+b1T23Boe`AU)EZvQ>~3I*L7p?V>Re?bQ2#y-3nAncyAUW7sZc6|mdS zfL%gnX38l)0hzG96nhgM+t)FfVLOcn>|y)pc8O3ugiow5zru&@JpIE$csI!Hhy`?( zNYn})laafyov-CaPwMzU@E+0L%j+3EA4qp4V;DQI9ky4ZM}`c*z2+*j*`zHO+Nv)txkyIswJ`4#7q;ZOO|?Um@DTL|y*7wOI`Twy!BC$1jI zL-Ckf9Npe|=CU1oggWUC#Vi_L!fFxi5_U2k)knHxc*J@6?t6~#ZfNT0v%@I%_+h(j zfbB7G_UD9UAU$S)*N&V(JF3S-X6z>cnR=SE zXs6p*=Dw-e{(CifTr6yt{eZp9*fMY4h@~zy9@~LE7PbRB0WTVpfJ`Me1JT2KqA}QB zl^5^UY#=PUT^SGFquaxF#Zz%kX${-?=byhI+Q(46p8j-Ehgp;nhII+Z4BJti3Co1) z(YKK9s1Sa1`$oEV&$w3ap}KvB?ZLagkRfiW0t448lyfdgLHj_?;j1PmB3AOa#_z<>b*1`HT5;QiKKSx4n7;lcazE^VDW zm3hv|)BN^-uf6u#j9eDN>+`Fn1$JdSc*nrIQk@@yDchAN7TEc^{7fTL^<$JACqK=C z32axz&U$_BRJv1IY)7}_8wcz^o$Wlo%62}lV5d73&%DKU1v@1^8PWxltcIv~BIj9v zRN6@@=j3fZie$Qom761s8$(Q0lX=Q6wvM43vK{06Yh)DVt3UUJv)fNvfNjkV>*GC2 zY;hlw)hN#*Vtow z#DdjuqxrT&gjJjLp{68Us0h;E z?|J}~x<>c4=)ExJG_ zvv|eK%zD5o*B-|T3#}-M(Rh{Bz07Tc=`egRr`-&J#J#^2i(w@0!II^MW#!Q!maI!< z5o3Z3V=``<{Ox8c5N3LkGeCwJbKW@kZH5gR^AcL0$gG>$>zH>*dUdHR_<#XvrqaN4 zAh!xn%|3Yy7ae0_4 zMYfYV8L)FpDBA%$cK5NnupI;P%66F;<$P`wzzzXGy0v}4t_I$@RUnvNSxV{YHoe~5 z22h=oPYLvtv6N8mTu4XQ}7Pb86>6UTMo~-+03GV>N`2A zytsvTCA`Jo$FdS$?;;(lscff&?YK=uy2qpg)PpPWyk%;!UGUDNrRT=& z4b_!Alh=`~=7@B|ByyRtDmR37S>G9`R0Cz;kDJVxk_x@9N< zI~iCZ52jS7WU~r(N@Y7|Pw`FzO*gI!3@?>^!YrdJ=T!*+~A zI*+t8Q=&w|J4HqsGJh81G{v}rlxz*Evq4Ibt`^HmTZtM?&C;&2U@Gwi;Z3Kox|o>J z3A}Tk~1E+4b-eu3@N zgEJJns&@rDCEV7%AD&)8x+~jNy{lqJv|rTiNIUIqp+vy*b6`7LfbIG`!ZGd{mNg6& zymPc%VvIjobY%gUtLYtXaoz$uwZ_3-NN1}7J3m~0`?>#+UwUyb zE=EKCq;yvS&rJf}0XrpZNBmOqRI&!DV=O>*OlxqRxRcV<#mr51tj1Rq@07@OzNH4+ z`C`4dhpBGYy4wOf3+7Hkr-?0|Zu6Kc+jYKx``EsB_bFvNNLSI0XTV}R>K&wW>#BNZ zA%|y11(@kKRNu1ROR!ziXPM`H-LtK1mu#DgcQiASz^Hd|#nerT?9m~jT@Me!E7-M^ z+O07F?>HPpfuHO4i)`2VQUN;)upL9RbAR%Az>X3lH;8V0fp^*(2JiBdC6bVQdIsi3 zu`dX3BEd8&jQS9;Q*uH;x*A{9ya7B%EGQV|<~NF6rMtf6W|ft>T(Q|jx~qDJ?TU9w zuC;Po@J_5?LsE??+j%M>{OpQ+fMtx+{&w9C;o-3Oc>A>J79MXFv>Ju&Sa%-~4V3M8 zX^`$vUBM39QS9tgb-O(EW`k@~e*$1vw(Ctosn;6B!FH&wms@o^XT~^Tc0ju7b}4Db z8N9Oq)p`CFrQ2lQGrHYkI|R1a4&I@<*_031*+qa`LEc{qmOP^wo?)q zuij%VmF<-B;26cObj2Z~cvrUbOZ9wOkhjXT8nQ}X!l_L0{l4o6C=yoCPxoigM zY8(c6Dj>O*EGXVN5N6 z4zAJdeC&bEP4G^Mde_)~7|sHs-D0~cc5%p@D|SRX_qi{bbB7bo?GWY*#>hMOO`&SR*ldX!ge**s6lwxeo?n8 z-sw)Yz|H~>vPyTLl@O<&nM;~Q@ z$P;i!3Ep||BUI~n5xL4ZIlEJ}VrSIeJ7XmaoUXxiiXEQ9-i2#L7WS`9uie222^d|y zh4FMye&Lti{J^W9R9A`C2wLhIE%%PkM*D|qt@$A~I61>Oli0OK?%WmKE|Lc8&T-C< ztzBy_{jTxyF(@iokPv#x2I;tsiBHn#aP_WeZ;oCaE&+GNLbwu+mB>gMe*<>CdE_hP z>tIcqlr=jlsx7oy{u6kp%U126;4SPFGKmbvLY$T_olVp?+#b7hX6;a7yA2!{Ev#Cv zRx1mmrRH<_-WrR_ajK<~)*z;QHXn<|?z40%%^Ip~ebN8Ic0$3BmRecJh_zgfN`#5C zDY+?`QVg^9p5Iw)ITVe`7R)OYiehZ%qGi+BPJe1yvp<~f9jo=H^XbuXwceo_%@Ds9 zDLa^e(j@MXHOBa4XFONyj}I^&{MKNvGn(h>ooYw6)|pJzSW{|=@CiLr2LS!~teq+DKitUBB_S72?^L%QJE zt!FWap%43ZDCuzc_>3=^#$uIfESd9#qM9E7n$fL^AA<$0Of`g_w>+oXHKy_H!Auz= zgC$#5BWGzSSHkkGKBo($8;b@LDHd|IN}`a@WvhvJ-sg*9p>R5p%47027)xXerFu)w zwz;O%4p_A}#5kD%aLWuD+8|7uq+v8Z8A6-MZH1x^mk;xW647+2)E(0LDECHGUUXBc zp|ne_KGxYgPUK2H8o>1q7TqaDcQ~RdCB}Kk73-LskYJ3ONXtYnk8#~Y@pNZ8KfZn= zTWfM`O5R)3`8fkLg@Xl+;{Sj1UX)65St?Ml#M| z5Yh;o8`LT=*Pd~;nOtxT>oW{D{+39w!0aj!Gm4o$5f<1xBwvKeY_LxvA-5qrt`)^Q z3l^VQP|>acSN993=dGpN^;=eHh0|DTaMxID2kgprz|N6~8McFWWxL|NJ3j{OP#t4E zY=`QKcK|!sKf_qyS1aBr73`{l9(nqC@V+4V{A7A^v#aI)$>{hRws++b{O#af4Y0E* zExAm4M^`XqJ52hzhZXNib>>o0X|0Nys|LN*SfgT_Qc_4aTEuGMyX!(B$2G}~$wG}~^o z(I1qVrlDFZ?$(R7MwEc zj~;#oyjLg3fSvmmwnKGnZPP7Z422c!igb(Z{7I<3YLkU!+XD|sX$bFDyhHeOy+3{A zUSsbX`1J)7YRYy#7^=h)sM4<{RF+HUmq|NOH>>OA)odvd(%PwCuT?Fh{uF{6>SRj*UJ@=J5 z#;N5?&0ewDlNuyfjP4ZKAcR-8SKB~d2+!xST%m>mc4a$XiDwz}p29)|yX-a?B}$1! zGg&N_$!3d{-FiEh&8e{|z9m4zb7I)8c!#hGc1n5b3q>WovR$iG?XZ>-*CqMA&EQk2 zT5es~o}oJxZANoI^7Aj)u3!%mkWc4`0lTstp}tV;Tibvgyl-vD+#GLbyDE0@4$P6? z#Lp?=Qp}IQ|WWnz8F5B#OmxuDw>bfyu`>K6& z)uHCJZTVLnE{8Yj0DH9_c*pAVtI=!;wns9>%x=>gPujhHN(^RVUTRD%6j!zbaFC9{ zb}SHzJ6vAJme(%}qLbaBc(mNE%nrR^Jdw?`3C=IJW(UDc0kozoBx>97h2!2})DsMC zdHgQ6o=K-t#b_ks_s8At&^CD>J>e*g&Rogsj}SzWuhfh+@>OOrF5wG8nU9XIM6x^3 z*y&#!495f5bLC1Xm2n0m-eAldh=r5+OsVNl=ltm%wP+%XXMMbXFxo$8PWP#6uvjJ^ z&KA7Um^T`au#kw75GIn#aw*I8K9*tMgFRXRYGH1?bT*pKrVGVDB$2{ZKNw*wr1Ql{ zDlK*%R4h+ottD+YQ#Ifof$bOZj&$cXr&P9=%~X0&U7Je_-Of|PGs_qd%_>kP8(vvO zJ8Wk`*`5R!7j*qWh)a|fc-7+BEGQfUOw=YEd{6yrsNj<>= zR9DwJC2WW4TH=jSyQtgMC$m#+sHsl|ZnJ=BXA7#{0lVTIy`&;sb-VU%t9n;&jQX5a zv@7BHl!l~g(DL>j%Fq@Re!LoyzYhW*=q787yg`C|MLN5b{p_K_DN zoJbQopOg)z({$o64#LvsEWq;w!}k&?cn|MT!Kl(5_h$QuH}H-u>(a)?k`4SWsX2Xqo6EK7L%F4V(Ik@s@6?Br zlSjdOWqb(L5uDiCrVBpvl@(HuQ8g?rt=Jt~+kUq%=<)_YrOmOmY};7g*jU-HGh^kY zrL~m}hwgfVWUB5E(?l_Qb+X#2P0y6@(M&O%E`*XhZeQ3Hjs!U7Ox7KVZMfW_Xet~{ zdHf;!mdC#36^y%lHmB%+QeSD4SU!Km?&LF`NU;$v)Jd4?jwUe{{Ha`RF!d+1 z+ldT=0p0$vgRPMO-z}xf=XWCdgNa}u?)8S~w{d%dEVx_&mn#VQ`CZ8@-T5`TP1E_Z zJCblS?kSn-OsP_vRGQv!#21M|cr074Q0WH}$)!y<2`cdXVToKdS8K8N9aMCk%o1g~ z&ali*iSvd>gjhsIc4@TqB zRGP$TQbUDerDh9@X7kZxI-M(`k*6v^|ai)`?M}t<%=Ks*}ZFzU{L+5zxpOy_}NdsP6_-6 zhgS}7-ofZz!T8MRgbL!&vhl$&))-Hz99!KHcJtO05TrMU2G@CKB6wHdi;yxcp<>$KEuAA~Oav1@ zGC>9}T-KaGi{6TN>#e2Xt@W&7o4lomNbU_&5=~KV))R>I`Yv286eZ0ISY{q@db;Tf zr-2SRfjnPCLRV^)oifv-6qw=#4-5q7W{2w0NR*G^W8sTrbOi6zI~*ZzdGRL<_Yp9s zmB$*cFx3H!;Jdk^c-lc(+3y9!b{66DX#5IunWz zk0D3Mt|{GKNo~Q)@Apf!LQ|qrqn(f}lreb_8l7ryga>A{cQD>RM8XaCkGuT|v)X|4 zJXHV_qLnLJ7HhoS1={HUa-)$c78!yN=kT&LODdUCHM>(vWvJ0|$y6?q-U%f#Jovdn z;WxkeP4~8cOCk?~&}D0Os8mA^Uku3&KS9<54_;ogIhJj<72AewYs=~P(I{Ygs!OY@Ok)MrS>Ub1 z>!%91%pADeA)Cuf0-I%~vGyXog+;?_XP#*4fn^crzC^+kiEeS~f>C#nG=0&_o10Fr zZ#%*S8Qbd)C)E&@5e*IJc0|22cDI)`3`n6L4TzHU)#mYU&|qTN-A*Z4YB;IUl5`*J z*xf;2C~0>E-2SL@JGesav*8%e<{$m&t7{t$ha0u;C0~Mb%e!i`H=A8n(J$_DZ@ayL zO_!HTz2VrR9^Ve~K;#J)Tz5L7$t-hW5c~#~iR<&8w;E({UoyAllS!5x?f^LT2BO;` zS|vDC8lB;&Js8pi==R54sV!-bggkx@j4={;SK>Z;W6Kq}mk23g~akt{h$!2mTw`@PaWpV`q z)D+Y{QR;nWdNRSELOJ7yQLRp?4jEB{_-z=KK(m$jG)6a=30Nh=nE9gikTR*aWi*JA zWip*gPn?bs5Pq62OIi@{2V=SuHHkf-qlFNKfb^wu9reW?mC4+euv%|U4QuCV1=PHF zviOYtiL0-lr?l9vvR~KpfGgYeEqDj%a$u%ZuN3gI*bb1f@#!rLwqqb2JGml3O%}|- z`^_iBbd3de*sfcE?HEXx6q<(ZARXhAd?ta>CVsJmVjMu$r=6uPJO_fc>29N^+>nf-)R3>w>Pd z*7KGP>R*-WdZ@{A8N7G;omRJ1*{vXy;d3a=Sfg#GUZVG$Yl`zE;13|eh2F-mNZS*? zN+OluPuu?OP((iO^ZGyE7bWM`T8#5Z>zxY`J7pY?jh#{&B#(Uq07scQ0^WV=z!`EEiI9NZ)JUBX>DzJ-G+c)TC-tz zW+>Mko9mlSn{&(V_5j{&qlvB-w%hHVXcS$?db~Oh@!bu(&Fyjdwq4uX@OITkE5PCO zMb=R4xRR*j-CjNk_8nVWHiu&!$lL83P}&#tMiPuI#Wvht*5Ki}yyhTy$LS5OZfv3U z8BI);^vu0yfB3^6uB_WuI50amgU7k)aoD$BdF6etz4p3oV{^mqM_>66qYbAp7x0qWq9eoc126h`s*6hLhtB;`G}om1F4)RhDDR<@S+SKHwyD z5OLyib8M^Y8`zr7&c43fN5K!GgsHl%9eebxIH+z=Z9T7)YnYSuK?viO>z$A-n~4 z7N9ztBB=~d4NYc??LZq2E4nEa?5yF*;spc{@YV<3k?p8=OSdcAdF1&DWwY6Y>X>Hc zF?%GU8EaAw3iyS zcCX#)v=Hstoh%yo$N%4tQOjI+YVH5{kN@a&I&hXfN*;+)fx9J^Nuze4^wH4~Ppbjy z22-w-%jJLir+@nFXFp3x#m#!#y6v^sUi-#3zQHoL1fPL^bmDNszh6JDe+~@xMfB)~F`}C(<9pWyeZ|KDrU;Ocp zfBdI^`ltW+kN+r2a&r@xAjk9Uv(JJeo>}LX>(BrE&)NGg{^Bog`vdWmB>y6+xz!sE zrubxL#cG|0{k`vf`A0wc5mgj&ks9G8^EOB;B$*7ysUspxVfGh)@fTnG(wAO;__zy99$zW4g;Z@@a#_^QpuzJBe^H~;lt|Mi(?pIu&C2mZ799(%mByz=0s z%an3Lo_h|$J8<9xV-GCbG32)^6iQWgYt1Gb{M~PV`}H^8fKEVfZNpCW!4CmkqDZ$R zo4%0X-7eo+b8Le2z5RVYu(q+Wy5U%Nx}3hiy3>ssXJ5~~@FLm5S8YygW!=FV4(#&k z8Wqzs&pg9{v7^8Fo4+9fZe^9pc^${Pyjj2=MJ-khj!0 ztLy6=gU#-sqFLXtfBDN_=6>S}^1GH+*Oxg3cIUUh{hjZ9?~m9u*Tv=bUS3(r?&LW? z8{B_{^dOUHx@IzO*X_!7|-BivutPo;E)4A zk0I#zr5pfj8ubR;c5FKFpz`bRIX?dQ<6r#Z7nxL&hJU$M=kWN2cDrL~d4;q3Yrpnu zP?`;1y1ew@(lQ2tfg8Zbo#OOIvej;$Fw6EJoW_m3gDVEuj>cm)PK}MPbD8MkO~)$Q zdwZLWzwiC;hw#rla}TyNP<*z(&&s9MHNpGkC3bX=%5IC<8GOz_M19wpMvEX5qT)aG z+H0Tu)TcPT|MqYHX5VsMHZ=mJ{E*f4Rc3T?dZcePo+eTJ#+D1u4;9L6KIa1*22}|@ z7U{hO@|#=i>xCCzBJCi~D0%^wR&A_-?GG(2v(2ZUdB*(e%U}7*SFc{b&V~T{>gxK( zKmKtp)7{4(=bEkC>@c6B`mNvkt&hGcS5|HSr|Z)4@^~`kW1(2W?F*pNagvAA`7l8> z#cGg{B)9idpL&gogZ2=DBoZYgLmE>nHaj)K@BjYqqyIThM0KOp{`Y_X_x;1e`QDzN z0XW>04hMVujcJ;dmDpxo_@tnmxDv(#Sw_#5O4ux3?@^y+uh>%h*Tv!B^W0an2bLX zzxrZ^KGyRV+S5qiZ6K}dxVW|d6qkq&TWxxSPD99hPnRJXIBFYbA+yXfkzEgW$?LEresZ~o?Qe)Hv* zUkQ_glsF2X|K(R+p-%b4C;kUO=DBv@Qm{LartMA#gmPcu3nIBF8!44aU;WBgdHU8? z*%{;I*4Z^|=l*03JA#>dRJB?S=MUkVX!YS>zu%kF4k93jEORfs=S9B7j?h^=)Gxg7 z9)7q73IxMMPy4omYyt41ei585n(&fa-up*?^haO&+Sfk(;Sc}zZ-0v~I-Rbayr{L+ zwY4Xnc=AhM`jVTP!s{zns~n!og+JNpK=j&djb`(AfA@FUBU%*pg2yMGe3G~CedU## zkKDpbLn^K6XzWd-m$y7ibfnr4MN7{=|2)V7-S2wvAw)ajH+GK~M~BDnzj5;>yMUYq zwkxwe(d`_@gO@KO-P!Wf&)gH$i!VAz^iFs?noCsLWB`E1ANZ$TfdtgfK&p*^+mr_R~VSZmnM zDcp2!_4<94?wlOFKvd=I4kh#4bI)5W3!R1^ z3FTHMPlAbH=V>)o-ffGzJ~s`Pqw`4rs#(jRgepS=3K`^uT;wavvcwvl#|m#C2H5$e zP~GH#q*E2sw>(6&%F)}r0E>FdwFK|Hl+vsbL1tb&;Oevi1w6SH)wM35WQ~3cp6iRf zFx|Grc0Eoo4%o@SjIpeQ2l9JYZoP$fiEkIML-;Rz>8qNHgAzwN2HP7CZJSKrkPA@Vf%%|6z?A9=dDz}+)oWD-;G7)0Q#4+F<9sRYhe(k&8{qC!;zRJGv z^Rqj44cqlLW2fL39}%7t-*!Mc3G!uPG>NDrj13l>Ht&IFxz!geogzjSF8w%>a6Q8rG~2T%PfKi0QxbGZp?!4E(~fYU|rKav%>KHC%B zuHH{3S1>2!-ldhbRovx4l9}X^J2iJWjywg_e2Wvv3*O?c-@v=Ry8eL=e2{&CV&F`G ziZ_}ejxklP!*=#~d2L%WdSYKg6Hd4BlAA5kY# z2XSEco_&rJ%hAF{PR@qIwYuSiu^b_U$C0wzY!Q<~4F$%za2(aEuYL@+BY^3g0JhZc zkKVaMcaI|wbaQR$?dJRhpNv16#2ZhizWFKN{mf@R1Dn`CH5#XyT@V7#2Jtv~wgYaT z4|$Jw`Jlq!8Sx~kMCC)n{Jyv24sROLA(Y=8B&H!#4CSzy2Y z)Qcb;d-B~+scyH}zIW}GCEd~OYB;e0yM_1r*bYh6F0vh}bMjH|;=8EqV#;=q&U#Al zPW6FeS3}Z6bv2Rqyxlvdn&w)lZl@HvZv5&n9J$U_L%Opdgg1lkDfzsm+hIF88L;!> zDyV3O)vQ#2v!GyCfb$l}^Cyfo;9ZSni|txp@RpTQeGIzVm)dXD)7b)U2#?$S^wUqH zreF@VWWV&HT5NANn(UFci1|vT!qcj4G&(c60dSX4!d_%KE*Gvo%AZGu8;K`|QXYh2 z(fHw{kCorGx^8DAA!Gjnff#{pW)i(H4h^2fZGVWKP`Xy>wZv~j$1O%+4Bb?FDjrw;v(9)A*pdV7!C)2PlAYs;%>fFZMKI*q?dLZ5>&}KkH#m{8NXsD zUkHR4M8k$bH<4~Rf;H)b%M(zPMC?h2sZ4T0U{E|sl3M!OpakNcKXIJewJP1a#(;+Q zw9>|cw46h8$mBYUEv>ITv`hymk&4Wmw0VgZhtq|Geu%DBzz$Xj3W}%B+3vo4nW=4- z*)e4M^rt^vYc!}0w}{yYg(>;gl5JxZhp@{HKN0E^qi^XCduW-SR$=>d&p!{4*Bl;i zh~dPwa$|&6^QZD_cuj54X^no^HHQ;JZxb-XoW&gTWH!hDPp6~N?GmOQFI4=oB%$@{ zlOfgIV~;(CuZ-Liu7H1=9_K{T=?|`Nx(UfZ@O#4XpZR}&w%s3y(*}3?mJ3RAeyEv| z!A>`Ulzyhd+@eEv%e(2?j%V}CvxMA)z;vU_$&EyDNzn(5LT0BN6|o+Pd_I)TCwH6s z4?o%3JB?4DNpc!mH3x;UN06R&2DKR3Gk?s&)%nV>uyjyHX zx+ByvC}BXcNYDW`c?;ebW)wU8hwX}Vw!p)vY-f$K9qG=U$y51`Y*&(N$y21ElDy?B zfLy_@Z0FIwsM~q=E#1z?la8TH8+u1lfx))Iy*#wp*vUYsq4?K%e&c;_>~oEC)Yb_F{t zEw&S?Sz?ZWVkMW!Al-pE_x7DTcaXMnofsXi&$Y2v;w}Eg7Pd&rvf+4yxj}DJuzIgjr zSGlz~HYm-ADL{=}Co@0=z1JRscV+}a%=6#vJ9lr~e1v{g(kiotU^YVU2y`UUB9=zzPZUiiE8;&}h$R>SKyuDBkrL!4q$=S#1}y9lMT+M>5{VLS z#A|ia4tR-ITyt)&Z%IaPBF`lFjMzoH6QRBth@|U`WGAg|df7>P*=D5sGI=2Ailqne z?AmpA805yi@%Y-7d)4W}KLb38Y@ydRS1Nt}3tt507;^p9k9}AT~5RYl;W97kr&XPY&R32lF2uDofa3Rv)wH=@*)PxkKh(rqB|S+$WEXmt7{?nrvx{RDRj+tndM3D|)xV231tUBj>`mF)|>?=WPkpz$P1 zC;B2)x2sQv5~N$Ev=`AHPU?=-Gs7dGNT-DA3U*e4bY;6rbPMm6ZYMTIbvry~f%VFH z9xEf#7lqup8yos{{VoqaFCKHM114$Wg=B?n>aSqjngsKh$tm>LF{RYWt!J&|Et*^4 z?Cj>B^>I;t?K&Aw_$q+mVBPSdYE0ik?QzC|~S}s*eB_bJd_Y)Y8n;r3w9zbl9=>W<`;wj{rIE%tj z$WH*g%jdBOi*T5N~0)pe&lJxrnP*T4u&O4$KjyM z0PSk0HvykiGAZk+t+qT-zLG6mUZ;K`s53~m7@&$n1W$U1(G!g6Y_dXVvknHruB)LG}Z_PVh`H zl7R53ViC7nD4r_SyI8T-p<8V4%FX?&4aye|+@W2b5%CY}g}_?a|05hMU#;@ffKcs#_ZGKh@M zkx(X^D3mmXAh}_2yz>AQssL(c#dvgQhdcSQWdvF%D4>LPq-wMbZ;b+6c-qm!igz*z zKrl+CuTr*Cmyt4#E>!JKrG!69c-Rh*c_H3lxCM3=EVi?Z0DgjcqYk8Z;D=_%=UB`p{W_-8D(gLF0UZm}K0>u;n~ z2RNm!f$AUr@2>)OjC5+sc1fOzquUG-Vu7m(PAP@(g$3S~?L4Q-cKt9VgoNrWXbIIh zZ2X51{vzA;VlizKCmE!(7YL6*b+d+{PHhD{TY!_wcFOzM-fb>=0h_5-dtX z^?JLD!FKCZa03visf3rWH|5|Nm0#=4s+~!x(T`c5#xPKP(3gg_@`1VU?Tf>NGw24rlcSs2!oL%@b7?_+ZmQHPl0>nFG zGP*UtL)|o+jQJfHglAusdSg5q*BedFd8gaKhT|dCAFZ3=V2F{vU^1ba9yi)U_Qi`o zfqg;;@$PV~@Q_qk%U|2WG*GEDij_K50)n54mf4bNL>wL*@-5CAjag2D#uHL{Lt%F? zW*GxN)wamff-@?WrzEia()#A5HHRU*&4qu85u0R2?F<|~%xr)^TOE8BP5 zlIfjNjKr{Lw!B18DBFcdCaEJO(J~kxzG&)ohaO6Go^IIA3FPyXxB@}Crh4NuD&PS- zF9ka#=(hSpmDLudk?Z`G7mx?kKZWh!-TIcYU3EL(x{vJ~C(<2b0Z7U`u!ik4TcElU z9=R^Fo}AspsQX|$V3+d%($7s!nmIF2T}^d6NLT6pj%-J?;}%o4E8byyw>P+`+f}+N z+f}zC*8w{wEd`_70lN_1%*~<6+by=sf|<9P?JL{CJB;9qa7IfU8Vjn^p1|0Yu@?13 zi@`=MZUf3euWLzni|r!dOJpq)uv59HVyEP6aP=+e4%IPwoEe5cI=p&#^Y(6Mk}lLq z5x^M1BHFZ22HH>;Fe=-%tcS74T8yhnbwJ%Dpf_$DgsU3NXHA|odG!`U z0g9Ch@x(lyczR?DZE`BMvEgWpSqq1g*`3qtlo$~&){C?wyW|#N*r_C>siChp254WZ zHyBcy%I^ds$2@#m+{6swrQUfLE9u-sTbP) zcxBgzAS8OVH!gR_rOuF0VU)IgJB;Dg@nv%HdNa{zC7bQ>tw$%1-Y)cqu$^skQnVy} zA_FJY;-xwkBjmV0uMFqa(f;n_pf)`UWJ{PkngH*i9j1e<#_}XiEHP*Zt?mg$gkU5b zTPMifj}qqiv5;hF&!(#-+Ha7ML^X7jZ}|eLe37hcl~x;9IVA?7v1)IEkq9WgQ^Z)v z6l>mS${R@ndFsVwD#v;w-DvV#6zuQ{utQhWJ0%-w&nJs)jpg?2_zHIY(c9PWK7IZ1 zXU6-d*yQv&)*Q|9wMMqutn?&O4Lu5vnWRp*p5`r=ElD5De1_j*|n;RJ!At z5%q2qyW(9=l$oZAQhhQDHEuw+=DH zKMT-SNk}cAV5C&v4pb)_DpB>46SdvJG053q`=jv$ydM*qMqM+W;`r; zonyy)$C9tCkgL}Ld9zfhQL+&rkEex_oq`K|BBb@B{Q%n)?^G(>53v2_l@q*XY?keV zZmAiYZvv?TnYf^(us^_XR+HDAlFj~vG5i$r8!|8Z ze3qd+Eu%I`*P5mFFq|)ivw22_W_Md?c*4%H0R7I%G+W?LTZI2*cNmh1lSvJ*V+;Yt zBcV(=*Dd=r)M`><9VUp#5idjyc)-orAvddTuJ5gwN{g!eMyhDNKhQ3Lzb(S zFOham%2Kt3>2>5=Semppamm9>hEqVZ#{CG1thu}2heJdFt|rK80}F7us})g z1{Y!xeHsq#wp(h`{gdNsR2EW`YVRtule54PvQ5?hBn~GSrd%a8Iv)5Fat30Yf7S4m z>=&N_>Jg1cDg1A=w&`SZZ?Yc0FE*a<4W@_KSOP3(!|}n8RJ7A$vfK#-$MYOTsc7r!!h-2P|jy_ zSW3xCjO=ifz+C+Q(;1_&NIQmugJs<~<>X*qWkglGaqZ@{+gGn$+1r2kh%wf4|>BM zKlbqCaJYX!UhdHW6X_n(*UWJbXA>HZ{Mf5ku2NEWP;Jq#Lfb`bJfQicHoowpMx&8J zf?`UXS9p**y^h@HCZ;!-AZS@K{J&+)t&rH^mZvPtj>Gk?mcB@Kd7Uil#(c5%^fX#* zVdMdhl3={l5GzzuyX_R&hDV2)&Qz>Bs~ldR+`U~pI#kQnDl41YYA$aOx5t);RAT`U zL^u&iw`az)kw|NFH4xT4Qc~YB-Cbo?}#^B!LDr2q{uC>U^`S-Q?SE!98mN5DX!q@c%63Y?t_I!#I|v1C`$tzO0q=A&Iy#*1pB%yV$>GuUhp&^%3qyS3 zcG#QjaptvD_MV-dsac$7J-!Vs_YU?j@J@-VL)7?i#P3q$EjAbsdAV5NTYw$Bv!JFM zpC0b*c3a^6#v?aC`c;rSnSyr})uY)2gX(yb6z`fKLQB(Sj6-EcQhFK!dJoeM5~N!; z-=k`P@Exk2gEC_B5G5t&59^o`HsC z()Ca%QW0R?KE1M1k->JTj=^xj_)oGuR$9!my2)H}^)A-A{us@9z@FXh2;_Y+1v}Fr zF)Nc!y+=v66f^Nb_;jt4?ai_3(G6_+_?>jKt+o{;Ggy?2VHgfrvaJf(aq`>kILzI_ zATjeqxBzzYr4y@zF)k9YOR5oK8YN|!+vy27gVCimJ72Wnnz*1#NzCrXiA1t=GbJ1g zyyZUU4!5K=JEdAt!jlONaje#v97A=qE`D#o4&HIp8@vap0qGqUGZQG2F^m?|jVJC6 z56+a9fSo@r@E-K_=kwldhS3709a`_tiIGz^I6xrH_qxm&czlz*G#JkdW3*A!l(4;A z+a;BDj!d~>dX=+y-SXukU{r#!Pf@&z)NF%bYQCZpRabw}h#4aUNh+!6}* zi);t)N_7rK*=zda4yMyp4n+VSkLGn6@llK8DdgJQp^{X_Oij|@gQo#<}MY^Bk7hSCcW`UK5$A=hrmlC9pM{4@JV7t`I#uW9i zosCnPcgjaj&#oOD0`@!Ct|P6n0rk=8QD-c8=j2dY@dn_1 zFp-ELEot154FIt7!U=Yf?Ok(V;C(cew#MF}EI@T`AtgLpreagP^F^(XSWv1HNkjFA z6QDW5jUWOZ*>16&eq`9LXAH1IbqBf?E=`dMKTS?cr=T zlFPwr;7p=g;s%LkAvBR#7m`43c>P4zUu63N^5?Qs$OiC1Jwe@|!>H>;X-Gn90*pXz zO28s-k!t5Y6DF?4V7n}&Wl}%NLcNV61_SIC+abJB?}qBcpZn-x&8oq61}BaVuPiVt zUGie=Zm_qN|4OVDFJC4bDcvRUVRM-6yox&a!?`%9rrBJ2^pQKm>vYzN)EwO;=f+qvPkerWET9D^0 z8eZ9MYSlJuSKZEoZ?XO8>W$7|!aZk7jd>%>sG$u53pq(7V@SSk`X){qO(4z&p}i>pt*q>GsxuhnLjs zV&6u9d_wJF7Xv;SIu2BgGru&QnOLpUlx~6% z^CNTPNsN$+cG=_J6rYUdx|GblJ|?=219{c$`FbBAnrnBUx)MHA>x6dOfl6cd;3}z! z6NO!GC=KD!?Kke+>&(uKdavV?$+kuqiap<*;H5#p19o2&mv1hTuaP|_w3AQOYq@SG zkVu3eV7;ok-MCpu(B-x{okaUE&{C2{l4ac&M7pbb2l6a{ch!5!G-hkX%-6{jEPi;@ zJBDtD7#7mOJ8Q&GV&Yiv$>7|;6+?xh?S*`;iD)M)8jprjUGa`$$8?@M^~L~pF&Dw= z8Ei7gZ+41q&sSR*id|z2SWvcSs$~|4y8!GsWH4MYax)mhqiGfF%69OMDcce1)nQp7m)+JKspft#M%-0 zKmu$ko?sw`ZYNc@`r9>wJ=cyH227tsFv7FRTRI#u7FctJvK0YIXDc|zJ1sS}UUV(B zmy?pS1P%23Jp0nioFB_{9$QL2hHqSr>C(IHF1x1W*j8*S7*WC^wtUh*ZQ&Ot2rOTDsTmSzV%R z1opBKbyINIoE)}>v2nQy#v#wbf}9BB;mG)bm|e8m?zZ)pvQ4&64=hnLOukddmpQ^7 z*#{n6|FJudk%5Gtz)CtW3Ay2#a?kV#J?)LOR^`#KOxvXT*m4*|@+jLW z3E<%%xpqvW3d||7!;|B|SW0Z~NZjm{7;|h*4i31)GMnCL%=9H_zvf_AZM7PmHjh6t zkB!4^f&u8+-9Or=HYB$J9gOgwQ>XP53u%J=yb-a0c!tk==%kYo=wT#90bUqR7+j*!BgxYse33T z^Zn&3gz@l}uWaJlP35fq%?BiC6X%Sbz!EPbvrMFll3Zs&#n&Crl$Y&ZW1giAvbo1G z_QEn^o&nuV0@kLh=;%he*wiYC%36bnG^UY!?1Ui7R35~o6OP+zcIOjV9l?`Y+iebq z$458%!#R2k*+$1MrhUZC(VSWH;@Ki$7>8GHW6j~5p#j_^Wizd|ED%UGlBj9sz3mNW zJX4HqBeaop#LqtWJpKE4Puks~WI6Eps&p>&#%3yqp-5|{XKJ=m8D@`?I?ET9{!>aS z#4s@`#j?2x>pN8;@J<7lT^Hl)5F2!(97c1TeuqTZV!O?ODZ3hzEIo+^^{}1=dd_g_ zVl3!(*a8bEI*hxTQn9a^pIUe^5wmG1!@AR#VJk zyOIhy3fQ5|o!fV&qyZcZYrX!Jvnz}`lN17Epvvxe{b30k@cL~|GDAngVP=}3Zf`Ka zr%KYIYQ5i^(1Ap@Ad7PR5Qqj~73?(UyWKAFALu|Ph3ocvt3e_gr2b;#u_#^kTW*)sT13KA-P9U2em;pDaSid6+mGJ9diCn@ z@o^g$Xg*IK11cK)8wDmA98Kt4Ls`)W%F~MErc|mgN)uD6aYq*0IV5E}$Ej?W3B1nP zu3)DG?DRei=kt1hzyVd;ZKhsgJ|I%7MiNP=9Aa#2Os0tC29|ni*iSGTHJ2jFh>J$w zE9ZxERVmjBg>slIE>6jj2&r^>Anp_T92xw={3D4%*#kn??HRIQk&SqMklJl*1;W4Z zm9LPNii}}0cXlLE-9N~*yRL9NK$@vSWrKN3iR+G}NgY|hO&!aUJ(6K)lK9<4PI7NF zks`khf{j`unk&1*1Sm>uj4Pd6a=MurT#=IQfHaI-UM9;UR3=DmLKVgwdDPeOY=zdVYdcIv z_e-nxOAMWLiSL(qPX^UQlG)+mDG}_$IT=N+rV0&jB+JaRwQf%yrBXSPNHeoZD!0SX zR3}NBNq><{#Iu=9p^)I=X*PGM>3fsjV1};7t_yRH($0 zS&ooDNf3UnKx{pMn9L#KWio>dJ-H=3SAzFOOW1B^HC3?FDF)t^?L=_Hb{-QofxO8X zODWbfaqswQdi2^0+xHF*mF;|8*t+PG7bem#QUH*O$gI zD#j^Qw_9%kJMoQ_7TW=oQr+UehC4#|x3it+f|r7Qfp-ITdLl3gfGN_ETWY*zrKyEB zS+>|N3#Zo%`3X$2!>nN>@F$_%8Uw&d*}X}|2`8yXf+?o-rLmbMsaL69 z?=XF6HY?LW(|mzfEPy-eL{1T%&J3<3YK~B%L@LSWi1#a38DzsDFe}NS#Kv?6$eS3^ z1xN*E)gglk(@dv`vDh&On`5)gOP5OWFvN*>N~Rd2Le8W`!$F{0E*DA#1{Fak89eIq zF)1E_f{gkkCoPQSTa?mKgv`DqPY$UM8*8GJf9;lF%?S19u&XC>eRm@zBY|)*in3@ZR1Y z`(^##{oUUo;EAw`##0S$eNv5_oXm*BIXQ*xILyh_Ii4I^x?K;+lI|P^rXCo!4BIWy zuDbo&Bewwi{E!)%_K6yzr?p(GFGHl9k6{+H4DNq)@42$Zf_lVYj@fi zbxT8-$X*GyFO^|_G!o+;Ao(Q$1QhQd+i^jTW9$t+0ZdmW4k z4lk6eBy1tmJ3~^Lo`bBuj4fqCCEJ#JnF%kp+$%263Q3X!5yB(U!|M#-jFO7EifCux zKYSy11ZfY+`n3Vwv!z%bpG?Y?%tmTW`cqx8B$KQD;D^qpEM3Z1tCH9!!rVz= za=(zkpTwIaW@OMiUnG&2-MQ&-Z8=DALNcL9h~cH^YC3RH@36hz9WoOl+$PB|M@5cG zzE9SDQUowcl<~Z@n`kt_c1+uMfW64f=8QWl*GrW;nId?Y$n8l=HW_B?WCBYhCb>xlOx8!(x`d;tc2GIGoB4TQ*+KnDj=lnfbO=yvc9+Z(tyW$rc%ysKh| z?Lui{k`3NPx}VSEgL+4?tD!tWI(Cum;+ZkJUGdJnZGl}K)Rt~1^bx`%+F9U6)p4od z{T%J0+bxn?(p?3)uIDMd$aVnEb9$d{=l*|3wu263J3g6I@i|MpM3YbKli!M|KT70A##Yv6 z`cH8%l2VBbd>eKW;{_@Cq?5Dk_K*;rgW*y->~^+H=29*PNsuU=%$(-+qRhD;NO!@D z4{~6jlCRU#?XWwze0+w?ineVrrZsA7p2;X0ra0Ze^I zEkhzENeITo0Z79LzAYM8y&hw*uHR7U4%n6Ll=|RM-Y4BH-7fdft(#Kmj|K98ox26L z6FEcd5GkB#-B2@f8s!Ei0vt&id8cDuUuT{TY~8jF2529_c5ZBbEa&|4<)x#eW9|wr z4hd-;MpfbkA^9S>B6BYZ9%VL-r4_`mE0(Lz_7L8C6<`7gV?)xR;IMu+GY$s@F9`q%DNp&GxuDc;f=d3f4<~RXM?m9 z;wgqt5|dA2u2s7eNkxtV{68>MX8KrOAx9!kn@fCM=F3jwqVdF13}U4sAkKld9^p37Lv!#zW-3VKoUp(yUo0_q*-43F*c z*$v_w(XZ4Ra{QZ{>_y43-u1l36zug??@ zHLeGFuE?uk)-yA}%E~H}fl<+{tgiB0lWK+S^LS8+kqV7@T}d>$V7m;fU$|vdu`Am_ zI(S#zE^^)YWQgYh<3e>~;>j@v;Q>3hCmAw7d9wWN7Vve!((NK=$dSfKHG1LAi#wPXi_n7?&UV_@-1)jA7BVTxXP%5@ z;&eun4lyJe62m!wL|0;{Xs4tvj}oEFdKNzX(#yy&qP3s8dzXPJ3|v7q05>fKMVKo_ch?A}vPKmXkGT2oLe2d*FjaT=T84_ekN+6kZEYe@5o{z3CnqW!f9b`Sps{+V@udvA?RstZ{qKJt3EAIx z;|&BhA0|)WXgGZI(MO3=VWa^o*(obI5=!y`GW`$_2#*P(mprJXf_eGnmzfm>mLi51 zTNsUQ-MWP{gbVu9wlJNMI~Uv$M#b^qD;(-FXZi}Rms0Kk?#D%&}A+=Mu4$el&KMjnIN@$u2=32w}j zD`#iNd)KZUp6t&s)V>_Xo(Ofl+1MJF_1ft%_UeCs6?^iDC-wL#Z$5hK-g{moriBhr zMh$fP!<~Hoi6@@;$zy)(ryTQp-t!)^Q{q*lHsSTdA4qCSF1>!`>1Un+%^r8a@N?}i z|MD-nZGOkRNUj@8B)A9c_-J-pOkhN{!?(ChP>@u{q=o-Kq}^AOT}PJKdpZyvD4@Le z-k=<+Q1IRt3MhCF6ad0|!V#7PnrwDcY<3T$CwkP;t(nnC5t@lngeGF{`@AYb4|>qo z(4$`OFZU{Jo;hH1`s!|EB(nC|Hh1PfSFT*SvaY_KGkIBOzXZ>ap3P^~IPTrM7c)tl zT6_^PoP7MzoVf($q_%)0r6eukQZE7YajuRwU9>ees2Q_v>H(TJz69g(hc` zx8-BUEw4kV#b%N($8Wy*#*y+w=4e^;do6~@>RuZ{H_p7L-jvSa(H;}t)~uyz=TYe9 zty|1kvpO|fBh&>of?T1E(1-oeI>rC<#*G`l`s(La0pJ!)|Jh0$<{8n}(5+Sk+WjOy6W93YJeIw7X8mxT3gbGe~Vh+KAr3{uyDu3#44_&dE#}9ilc(ilN%L(nZWtA2G^MC%&{4peuFrGPf7G{?{7cX4Y?oen`W%KCejvPzc z?=Zf#CCGBRDjnV38`n(Gs1V(;9oXT0`oM0nXD~R6?Y8I&iHq2N=k^_ki3MQ)f$bZ% zvdrQypy-(q>8GDrL+qJ(QR8+vn%8(cU-{g*^9vSObCc%HGCtjkSjw7 z;e=@`pB_1KwD1bvk>mZsJ%wM{+mVfp7B#hXaO_-kcMU`|WclfZ=gN&*^n-KNb3 zWw3qf$kDO&8*7?cDGvVmZF?H$K79C)w#T>^mvrWkCeuwujBnX)>}J)(>finDcZD^= z=+ghEIwj|IT{tT+p_OYdU=Oyd3&6g6+wL?alHOo*3W}T<*oDvzp*jwSE*16<1Xqimm^p2j7uDXNFuPG}G5J*nIWhk_em2qXR!!Uiwoc7zYA1ADMNz@D=m z*o8|-ef4_8CypGBkoH`>gzb+XJq9Ig7qDG$c(5JbgX$N~UyyJZ`w&Xzp6;IN+G;&? z!UI?TckbN58JMlL=6Pcyv7F+XC`DRU&fQ^3RQM&r;Ek* z8`p2B4&*WNj|z@UMl^3NzRRVG2r+J>&4hgr`5NmnaWB*@Y z0l4VmC?Dbj(ZHnsPDXW!V7me=u%9Hi53d}qYpnMHwJBCUCGUAPoK$j*oSNIOb(3AW zi0e6BKXsJYcdT7)jFoG6=N7&QC-d~)t!-_la_!i@b=OXwp=Q}0gwLS972X9BdlX{{ zLi@z%P{{2;^*3LEt`2exnAwr1@H#!Zl`B_$-sGxJ(3>l9krHX|cN&rDF!1{uZh ztt}ezU;lBI#)<)!TI3{2(aA0O5>6$5`!YZVM0y7;+eEy;u`zd|G&=>k;fwA>WxzO3!jPd`Owl|tu>W>2NiP#!vTNZ&R` zG)dT!7QExKb56soH8p?u!yo_3-EZHv77~4(ML^g@sUQaZ^)bKv^2_|zckkV!&F}2% zU$=P++lFBK&V5ruV`ElG3`O7L$B%tD#fGku4NSL@CVpf3`fIJ~mD%L?42^UR3>w2< zzN~`Q!mIsX*9bXZT4^wu2g^=C4v9VDob4&W=xzDxVO1QL6Q?jR5BYJK26sGh)n^?EL}Q_FzaiA}it>iW23N2o87Tz`|I90(E&_Uw|SX$ctPIAqQf$B*mYGAZ=H9tkA%FEnA~cD@|3-Fkn8ZwE?* z2O4R%qO)>)DlNNdW0KHbpp(IN;(D;%lLy-`&CI|%qyu{dY!_%|=wx>7*=MDsRn`SF z6{W4MrnA4NBO4oywAOdcy?3T~$xeh_OATUuLbq>T+FA#dSAN)JL& zR0>o}i-YjApH^n6F@B1WQ~-1!hmRbgd^5}r%jH#;)hKQ6?9d;ns;ah76tx}`0iy|{ zM(X*z*trYac?R1xwV%%=>#P5d|M5TEG%3tWmeEiduQvKlk3lCBY$vqCdtFPr2`Qs| zueEeoLXlF7mM`iQfd2V4LdAC%BdSb;xC|;}dy;c9p&i%-KZQ;vgM1R&fgR*SVi)IZ zr;rJq45|z1#7rj>aad~y+aX;dLI~}^F1Qr76WZaO&aR`KBl*aID zmoAC#-@N|x?)^JguSI-;D*o0Tfe3!KTMc5a}7BfRas3*T7i` z+UOxfcXxIp;mF_!`#B2+k?Z^_e$#eJ zem6~4F5Hzcaj_!6a&EiRc&J9iN*Sk5pC;tMh)QQu1?Vv}p!Pg__Kc{>5}nN7*4i@I z-j$2}3gt9a)lV3Tl?%KP5&z^m|QfGw0r`47%DY|s&6Y{Y8 zDgXgtdVUIa%Ve-)-@ap~hJd(EFxH!(k+vW>eTp&rhMvB(Om<`Qf@RBn4{Gp66I$z= zsyci5WG$<0u{57f2L*dvR!oWEa~M%gw_a?S4>odK$SzyB(3qrA$kP6S6%;}>4GnCB z3&_8&-tj_cNK?B&{P)tc0YZenuQt?FrTi6SN+ zF-KpuW}{KXj%-~9bC6iE13qILuHE$=SSuMdFiPP$OO`F;yUw77xUfzgJ9fOiy1l2VV z5~?bC=WKU70oy}dmv(D^s??Nw9tp?TLI60OuucSvKCp!^S|eI+mq>)kCYsjaO61hRS?bH|>pz8)r%oo2!|Hl&3! z+|;8&koL&83sV-~-9x4eX6>>Yxk9p0Y-7ON=L;H{4Yn(UgKetsOEDtaf8fZP)f<`` zo3-5<_IPFwOlUVZlLZU8eQ`j!#UOW3_%$O1R#Zq;(NP zdf=VppQhgJv%Ezz6f9(Wvj55P{ub=;p4-WwvBHVlYPuMUVvA~080Ty!tiGjt(zgS< zjbKy6c0c882lfcqo;(InI{9#KCH6piNY2s$UU(0-!@EFkzjS`qBt|0G9-@0Lw@U=o zbGD;;grIte?jf;<=pM3qepA(X|I~h>yAP-6cz!S>f#Zx9WVsFalqWO^fnU^`oSd|i z(t~=If0?HGrm@j6G9Kaq_51JBDSjYtsY>9T^q$P^mMqbIMFU@z<@y-=S+0Tr z)6ogV7#=wsA})#4ey%lK#6VsT4l4Q#vaBXY;I$eagZXye5Ls`ux3;!4H8v16DH+mI zh@}an-o@8($HD$Vtrg`7;(JK&jAfPVbbwdTvoKF;)x;{g2;5E>e;bJFf`S@skI$6s zWK8lJ8b)*J=;3p{}-uMx6^}{mU?V*oo^AdW%G`nIwcM1c@txg5Tbj|cA`6RJ%o0N`?v20-oJSI#b=-1 zyLk2tlNtU>4Dgo|!OP1mHbqe1vU%gF6UWb=J->7NcJ^GA6&3m*>~^&8lw%s)ZQFNK zDN1Opsf-i=&9?_P+GtKqT7+m>8LAt3WXeJzLxQD_V613O(x&beD6JJB;`#|Txpqo+ z;fpNQR7<2!7Kx2*W))Sp@WEKk?p?rb%WB|fTETPaa{6-;gOVj^+9|ZHyT^R7l$l>; zt)>AvT{DT$8W%H{jI`F)EzMSi)7(?cl4IlG+SK5Df$hCY&XeK z_sv*=XP$5A>W_)L%Rl~jZYHxNn@y|KS?pUg9*dJwzUij!ot&(%Z`inTlclk(E7Qh3 zLRWV>va0$ct(bh#@u0wGH&#_Uz$LU5JvzG>ky^m&=+UDTQ0Cz!&;M)I?>~49+Yd}1 z*|}%`?mbhcVv~hPE6MPfMrPS^Lpi=Xysz81b^ES;9QFdckO}RpEY;G~*3QEvXnQ+f zMZ#PQeGRLaSDU=UB$!%=iDYL_b+*oo{MJ&UO-1C}axRPG~3j11f$9-U74tcLTOHef{^x%-Y(yDIfvmGe%L?X(Q~%)~{(mk+VRz!)~;R0_LmP}bNN?O@~s&f8G`!y`ntFR#eRMTA6mb|XX@!! zV|q0@gee*)-4K9^pua%1lJ<;qakbU}Xd0%>U@lJr>^bK{XisQezu8&Z9K)}kRz4U$ zHcUpgG(y1yuB)e?{DXe9#75<0sg1PB)Qtki0-a{}TQraCC1;F_u{x7KdJXbK-$gzX z-LXANOI~IqegJzWx7!n~9?$7fbVsUdyA% z%5}XXYcvuYHf*Hrr(>rJFwm@Zroym1t0kE%mb$Q{RI`#sg}B`YP$H;l!4_lc8?cVj zufF>(p4qKE0KJWw6edQo=qqn%qcqoQD6x*ox3DeY2b}1xJvw~&h(ha)XnVY!>+IRH z*8`a0qiLgKp-D3aPw_wlZ_Rz@$!~H4%dye;De#9ZPW4L3mJ#;eIu8QZPJFtgx zp4@)@?)}ioP|F0{XQlU=WWE)6&*gS(NA=i#g6*&nzdAnOAWOSoLnoU*Z3qt<1XS=> z{Fq78`8Q{)bvHMdVxbF_g0WQd(@A|1pjGgCfmsP5cAhpgOBEB#)+`6?n}%3 z+J=T&K}y%cr!pMiU0N)z+0$EAR$llM z$e4D-olIFa-;Khg@K-SG>h1lwq{LFSi%ORN&ENcO;jciakQmmqGWF1g9kqSKOB*_c zI=(Ch$5%{j7+A$=*pOwIOd={W+H@U|EHP=-!f;7e9Z;f_Odmq*%B$C|w*+=oYxlxs zWlx@bR``LO+tW8-w(N@WjrCo9MhdV!$Xxh%PRY=|h}64w-8$`5;jda5y%i>i=5t!p zys%O@k;T^1lG5d66$=(FW>ipgccwMYO5Qx$yI9&3{;HZ7jat2S-PC~tM^BtMu>bg> zqo<~i9v>Z>pt>o10BJ+sP0cMvyG%00c0xPPTDzwYZ{0Ix;SII&-5NoKUcukbiouT2 zmE#+?THh)Ud`UF+bP8kZd9K^RgW1L{I}aQ>o*c!j+eESwZ_4Czu>jfua0zoN1!|fU z-pc1hbT%;IBwWllim-mu4#9~rr&WRc>2YgYq#&4l4*i= zSC553)5;x|Lgd8EP;x_Ca#jhsHU(8b{Vm#)+#W)^INuowhXvcw8{6~PufcY;$xa)v z+gu!}eqeh;YuL${-!23hg6$Cp)q}k`Z$nFi?ZD2)(Vv0$>z`bKbZoza=$8`Jg$K9p z2$9Z_E}<@qu^r6g`j9S2=X+dPum{`iq)tZ(??qf!azI9jHGrjmN`5A$5_D;>XJ&q| zNpOI13tdhHiBz1IJ;hZsAzKV++GLlBPRcD4I0B4cja6Yg%@5FlKa4Af1Xp$@DiP_( zrSxAZDd2s@$cS;J@N>?1K;Vlh0?7BR+Q9phg??wRFgclDVV3PxNrA5siO@-n^ER-{ zkB}*L$osRK1xfQz$klMa>U{Gwl`RT(CB(oVh}n?Y$RHA$g{rhrXBoZ1`H-?Ab5eb5 z|eU3bs$}oos1pK6&Cq;WNK{`J%V0110p}$nDB-;WO(H`H1aS=%#F6yrht01P7gc zBcBgT3)s%IvR?!Ccvc( zcg|b3yrHXKFqhvjsNBfUjf5lZHy%sP&MqL{$S3ytME9YgVe&kEkx^5YJW!vX?nFp0 zS!VR9Qlh)3`0ljpr2QtJwY80YB_ADj1&v)}WAobe8_%4(6l_0nZf5$}agw}>;7EDv zEgVUN(7!V^%y3mjbwjY-+Nnp+oZGs0%34a5RaIGy_^z-{1>0K(hsHK;B^1fzEqe|K z600_D6b>9Yp2DHy=EI&ieL>*oI>4R?&vnd1vWmfWao{~?JG^6Wu9J~qVV|6YXM~6J z9Pgm*^oX}wQ)iOAHM+aeiddeUlRiC!FDGWu^ry|s|>0~oZGbL2?#1u z$mDDfuxAucLVM13a(k|m$=R-IfIM+MiSB~cLo&99+^$^%b^%m#DLuz*Bv3urp78$3 z6+(N&1z^7e-8tBkNS_hj&SXWC#cK5ZyZ1wMhi+F6wnv=b-7{eO;X{X2O!{psQhJp! zW}N!wG}80~`gFz(!QTNDW#vS4QWIl!vnLF}G&D95UAP6Hkx;d9n^sxY$u#1tj*J{* zVaQ%Zr{Mba>#B(^In|aAL0?VgWcuhB%3BI*id=*E3b5hs(liCTv7xyc+s$3e!#MA+ zgK4FL5;>RoJJ+*D0o69)SGS$fMEy>coh zy~v@7@z$O`dRS8tg9+L-cySRXYEG%ENpn}R-DqYmlLx*1Ss0Ybl!4qPWLwDXn*M(! zw?BLF`tfJ49)I@fwHwouQwD*|frOxV=JV&zYqf`04D8=GdGgpXgl}(a(^4}-jb~N> zygO~)?wz|myzfiwXU)Qr1^o=VQQ?xD`;?Oo&1SpVTUI-f|K_MJT3*`HH&l_<2QSar zPMP4XnT7A(vv&y#@YeQno(UVf>bV%r0{OG1Ymf|I+1k_GKj;|EMBb)oyV-;fkBlzm zOr)*bC@lp@{;Q%(g!q?#`4_H6*m*2kUa@)WR(Wf*RO9HeJ!Cacrai;JuFHV!(?u^wRQXC?W5 z0g7stIzz*qW8>Jqb?o+mxhXCm`AxV~I=$J(AT|&TKB zz+Nb~V?M=82<_r9fDC%0I=tsXyF|$C@oPx$PR|3dlh_3b5_`z)*bcegw21A*^)TuP zwg>8^Z8_Vs;lDt8ilg!-jZ6XC4ZgU(8f{B#e+zbOSMA_EXFG)qv_^p3P{I_-?YYn{ zk%Jw;Lt5 zFrQdR;Z3ulv{aOrv*b=z9hnCT(?<*^l~>j?cfP?y7vzP+>8g@q%-R9}wKa_`Eo`LHViTrFWQ4cSOy8OQbr{eWu;y1troxFOsA^8 zVR>m8s)q~)8nRl6N)|v%7HT+vJ?;#xsR(6TkUZWc(vFcp^#Hr^cVJHvduV1TWT<6c ze*Ws|^G|QyJ~X+nyQA~sg$o+ccxDf5c_n(OsmZ;kjvm5xy%t>(UpcD;^L!>vup&gN zr}Q?QSDpN@_9>^Z`!iu#*LfTuis#?zir$0 zrj|C##%n3psCzXAo;0tEmsosffp$=(aB<(-i}RODCj;-s z0(c2?tW`Q)MA4;)v!}kXZE$!^O>LuZ%D~dYJ6FT)+4TAv8e0wU@UY5}m%;aWTYDOrey7ctXqzs7w@2H+U z|7UnNTAH*mndlyJdm-C{@Q_}}_Ly)Q6O?kc=hsh(1oK(7Os$SPOP% z^HO`elfwaW`;Kip448_|KQi-3kO;XNcvYe+O0u!h^JgWlT)1-K^aY5%dF`gDsW&fQ zGZ*Q~%*>r@Hy_--!~cNz&ebclH{u63Z#wdER<9*g^DF1iMbLI6(QDUkgQwyMQwOH} z$yXRV8R}N*bPul>lR!w<#2CEt%Em(}et9VNzUG#z(kiyhVV78I7hAci>IJM6vXy58 z?$VJX`HL}9su@^@wKHE0J1h;TW@7+cU^0DZDaeArA*Xo zjn30{j*qYMT-Zyaoff(49cUdKSzc4evq8zSBwf6h0L=u_VoJ+7<8=_@9rA*`#AbHy z%S+3-v8`$8?ipLx(l<Le2NaO%wZ$w|SRgK3 zQi|;if%F!g;1*ulht|4L#Z}ifw|5R!*EE5>=W(tsLx@bgXqJ}p&ofw+e4$Y5agviZ zxsAhZU7cHZZr{0Ya`Mo@nTs>$X3pty@7%j*cyy&qP&a`+p=M1$N^II(5a4Q9xnh*?Y+9~~mJxhNTwzR z+mSq|j!3oud+cm|%XZ=fu?-N!HdGJ1r`WWDmJT6jd*B^!1MJuyqP197Lprbr+kqX` z5k7^P83Eft9@{g=GB+iFJr6IQJSMP-5gyeo?sNL^VL{!*b|e?V37b9GZYO!{$l)VQ zcRIT}L8(ahXf~zFNT&fcL?gel3Bd#jL;TH6jjIf@4&z>zopk9Mg-8(fWtv=46iqmK z`SK+_0L`ZZNHQRnK{%n<=g^2?0;>`|Vl9gUQvRzs6t$}HB9eAh9?HvW17`+}*E~5An(lpe#jxr(0ru(c;vV#{*TB<%VBL?=nF{=>TWP zUEI+YRFAZ>#FptP$vlbWXNX*nVJglB?vR5nkVghH8la z-r*s`0Y%SD+%n9>HwTb7UPJy-7v~+T_WvtmD(;voHaBCvi+4D1u zFRPk5DjQl2R>zgaQMMf^p$lL_t=4A&Hl+DcWa-sXi ziBar-``f>SdXr+a$y|$?n_Kd`JB%)c$gR~YXCA+_k?rn^nH#yL`PT~;Ets=#&em;PuU@_yY(Fz|;oz}jX5Yzy zQ>RaBiRc5p3u~x5ckfc2?bx~ZC)f@?*d88T!~NLVgdFDBUDH$EX0fF0y#!9HZ> zcERyQZ1+>NAh}Kk-cg+?8n6q=?mff%t|`5S$-uifz@D=m-h=RJM^sgboZ+dN&t$5o zJCG6^;iQo5nS7c=_ae3j2N2$-ko(glN{JBK5xzD9JE6UZ?XnTuQC&cIf0B#DDV$~@ zGwTX0sE+VC+rzy~8cxkbcXB&%ozNa~JE}(rwujJ;@FBE|g<$*M$-NT6cJpG?+;GUC z@Z_akf^_Gt;YFLMkQDx;jvK=m?6-z`w<{F>ByEICqX32meJC)A9EAsHSY6N{9f;BY z6#gVlNb`Xf%vnsJ<-zv&xZ;HLxAA))%@cy~`2q2( z!{W$4#dd{6tE7d3i~QE|iu6t@j?zWlk^dA46-}dn?Iy&~(){XI-xeMq=V{>e5tKa& z8U9;z6Fg6Jvf>Ge>jCy6wkMds#k=&EpMQ?+LKs8(>ACTjJ9iHq*iXiO^zb3h6yDmS zb`!t5lRt#Q{n8qDPGOl*vBWc$RP?JN!ETej&cG9-6RismFv0g@vpW|qAx`J|_BcRB z{ri9a`wxM?s&4M`a?2i(*n{nKxf$F0>)U#2>RQO{hA&Y)PJ}@TI%*Swta-;23QK8w z3hygDI6RW(QY|jg;O0O1Sf(L={`nXDj4iLKx5%nth5XmTgw{4$hA%E5y`MXOzVIjY z+`AChjg`~Y|EK@-p9_C=BK;y&JZYcD%EG(HVJZUU&3o^sC7a`2^3xH!rml8q<;v}Q z_nbI)`tq$CXU?5r>TWH?k(Dc%$mT~%xX!%!^F~HT%u2}Fe)00N$=R6sGg~1k}Ce{l`y9Xg$%rt-sxn7klTam zv(mfS=ZB{W?eI>FH!qdYuI5_X&B%hnUsx*eihe-Nl?lY}!kHpuzUAz%6x23O+cCso`m+0+dWcnlEe<|vv|*hb`1gP-LJuRan5!w(BdoX(8Lm z?LW$P^e$vOyhpGzB>Cr`J-dJF=BeYyeJ}RO9<}h+y*)j~LCpnY>{|59*|%8M+?3Wd zQ7Hht@I=0mo12?WbW(C;g&CcNznZ;n1**9+`MviEsD(d;1U}as$;Bnup3Cj$ zhxP5f^$qQ2mY7AUStRr4S1`=Mkr(&8iK27oQsC!5Nsxj0ft+uR>;;Pp=}IO)d+wYD zw9HJ#rdAVRjTaZ5n5R9S5g(@;E#>Pn-!DPql(C)v`NVea(F%WcqFG8*ARdfjhw7{F zS7|-FU^`VzQD&-NY{R%6IB?|9m77B}t z+TlH~rxL;TP`OCwqI=GEbt-4OIt~bg7F$xvyxq*{h-=1Aj0EzHqn`8tV#=AOW}Vpx z)G|h$1U%2^J#&`yE}S@R=256tk{;&r6<8Kuxpd{`)tdtN`}M)SG=u4mp1iSCwlQH9 zlQI0og9k#eJ;u?VQt(~7E?mz#1^NZ=2HbGp>8a`cd-ty%UrjzQl-vj**se?7-QC65 zhs>$gM6Ry&YinFtuH7}%2!J}lvO!PUo{Y&VzVgA zmJ9Yr|4Zy!Yg2@{m+$_=R#yc=X82XsRyterq|>L0rlZfgOV#x)Jhwc0{J8Mq)Yr+>aCtdrkMF<#A!FTm zB<0iV&~os=SXtL-xuqjVjuxIs%)oZQv9y!5CyH8}{Bsy<_RMS`-Gog}Xk+46SHO1M z=K3<3X3hDyuu^Dr$nD(e(AfBiRwTb>Bor7*d7}>qUs!Gx9%3P{Xe$Osr>3WA+K-(+ zdFk?{BS(*LL4@svZz1Qko1HzqyC$bDUb%ez_N^;7Z(h7{~h zPHQ%qW7BEPZZ<;Q105sd5v*rzutTWt9!kracMWumt`#I23{^L@3YKksPlHun6~UhF z(FwnbhxmTXLf7~PVH{tS!Xbv0BRW(9DR(tOHBazKKR= zZxZ0MB}Zukgz5c9FPy)=iNXBFt(Ily9z1%J!+^gmHHXS>g2h9D&aaTMWa*$(d+*mZ;@#KCqCoRsb7XCh!bz{2|_ z9v#`V)4(L3?TPI{b%e)uNRN=3fK0HD`0?F4iRyRnu#E|YOcL7fnr!|Q-UVzwn;E)` zBXNRP$)m~KeQI(_!1g`6_N-r>=0%dzlp-ZfeE!_|moHw@>}}bw9>V!~QLv-TU^O9= z`SVubgPiKeeFjR-N0 zcz^NqvloxUsF5X;rx^;2 zZ5Aw+WdGy)8q<+=iZ`n37x;bXw(LaRk)efi)sWToGK>8oH`DVEv;=z5;%;v_rZJ4_TDv{?DSLM9kB!8 zL3nJ>@ecLyZogo{h7fqK>KF*TOF(*#cVHKKN7jn%?C2XEU9~~T*)9=a7f(xX-w}9E z@&2O`Fag_9T|oGlyCha6mBYY00_SXhTMHB3?Tq>xHofXsRAIeNwHt86e=gh8SZXG> zw{=50q1}T;2(agJJG_V74(uVl1AEBr@E%mBijg3+W4kzo`ws~1Vgc0y?+6crM0ath zWdiR+_nhi@u4xFci=)3k%l0+v+gjQT4w^1!#tL-H0p3MMhKF{`;;mZ-2L_HDKD=q; zM)~6~95DUZveYX_hAYdH12GMpW|7Gk;gI*+aVw{{x6yl3_!w)8p$%P8(>EAs0ee+N zmHANcsE1+9j(MbRsXi~vGD>H?!(_l%>b*PnWLkh-qPDI9mVsSh#IbbAGDCIbNfWH% z3ZBh1-No`=o{HQq#89mMqf!)KncN;h*+5#G@0)%Ks%M%XI28~+g?aNFDR7tNvPzEP zAx1nuNjROtnS3ivC!;uZbabffEJ^fD>^Hzl>9J<@8Yj}a==bGSI}&7m2WwFP^Xsp^ z=3K~?DS70S_+7S>*h6$Du?OlU$nDuE>iv|+_>b*xUT`P#>CGz_xsT+02c48;kX$f- zz8=}c_}JEs8>aV7Zdhx!`I^Ir4{gT)|+%@xccl8ZKm@V(MmTP5rXUnh)lDYz3mCmt|;3>aJ<*XlU(i z?ieVoZnDy-P}kI6ZAF{z0c@{r?rCi6U0Pa61Jm5nqE8`1G;`XHG}KvMNhL0`QCG>) z!YTlyG>(N!%4;j?JIm|Z=PfR$S|Mg@0(34|v+?#&QClwkIHaJakbxLxHx;L(XsI($Bs-*A0oFOIdSax$>SqqD|z4)AcOlq5tCqY=`pqov!eT= zOxd1kX53UmCMNJF75#^ElgOS%T4w{UQpfU ztCQKbaUE!De7&rWr;dTqe+rpBJGP%WcJ$!+GK{PmC+a#tdKd^$#?(w6*p0TL?oNYJVZy z@gLu^2?&iAMHMo)+;yxL`G6{~X{@$fT(?DqhU;6p5?xc4v$LHe>lQ6ao*R>0pB1#t z8~tdGz6Q&4R=WtV*{W}B{?M37nU-4=qAwWzXfM>ssFi;v+ff~VkWJ+cwi^>9 zkjNh!X~#FRNwD=qbM`FA3s=~i zUcD|BNZmKDUW<^_FIl*M^OpS)o<4k>#Ir1bcI?D+vU<+^WG3;MIV@>?)h}PYCdfU! zmoyuKrsRik_{8x;#}Dh;O-~OE3=yPYElWhdWjL{xpOCu zpE`Qv+{qK4oS!*!{1_(il1AFWC2XgKkQLk%7!X{$YJ!VM-pkFScR`g1{lw}Hf4^nc zk*}#wo?bJJ~Od;f}OyDLx+fMJ_k2OPoKXzbmWBbL~JiNFR8Rr z{U$@}{HijV4_6@f#uaoubQZ{02G!_=3{4ss;|k2khO*&;J{)>4UbNWcDWLN~eeopc zXKYX3m}BAUDq->Rk}OzjUWJ{@NgN}Hk3Rm0wSyW5XrwPpV8rN-GA(Dj0wXsxk={BX zG%cB%d?tHkVgS4=SBM7=N!Red|F<4fh#7_(e)02PFn1&>c+`CB>m8tZi}32%1L4b; zNjUeFUp;vsWSkEz&ExdxXEipDpFbqEU-jWe2Uk#_Sv1p=>+EQYeKl-n-2Tb=v$sDv zckTSCi>HoWICad&y>)fw_O(wQ+`e-5)bZ7;#<;cIvUxN4(WR(ROBY1zLN!4vqNQ^-mADx5i4%FlVO*6g&B}4X^6K)MrbCC1XpF$q zSMcOb)-_wbdcb7mfdTJM6JngmXqZRQta}Sr-m!Bhy-i6nv#jP>02N=pdgUU%ueYNo z8yX&=ieFw(tR>$5Qw|#-$+V42(vGJ?=M8pY(K`=YC4#r z!0hSnJg|Sy%`2BadwlQVZBA@%+`GYI=emXcu3fyOsp4msX>MM*0#=4uIp39uv6=jbzB-5VvjX)(vY`gZZ;h?>&ET z=Zoi0Uz+T6@8*;Hx8J<{^xn-YhYwDz80b?x3SZ~nOkcfv%}kz}hE`t?=kpO6G$UrK zO)!Y?tdc-@iom0o26@z7&L(xr}HpN+ateG>L zY0ZZ9Q-_bvT)A}S(#10~XA;|w9@@Bdqat*kHQm3i5!`9gk~MerH+8KDw!?cvR~iq^ zb?n&Qy=rq~|5!ucXnAwj@~Q@*s;Q@@rLVHJ3){)+;@Y+jR2Qd^VLS+*^#T&u{aM?R zIt4;UKO^|P0rp^f;5}!15FXWYytCgUx?{T-*d-D|M@G9l(g>y?QOI^x1Jz>-Xcxsv zBU-TiDBBD1{w~|${av<0x(6e-TN4cl3)zm4A-$vh52E||8Gi=biRdXSifdH)i=>1FFX<&EQPbB zxoOX?ZFlcnGyCP)gZsjh`***1`sCrAyZ3J1nc6dHdMQK{p6E|RrJt|0s@I~0`tOCm zN+*A|`rN&J*lsJT0uIo7wd$NTyZH1N9$Q6d_xT9zLPcirg6#s=vSvX+#Jg7@1G8f# z5YlWD-LXBF+g-|r>Y;c^f_k>`yg_{wa(l2H*vaj{E|Fbeu{GrlqML9JO9cC(_flaA z=Na0Q%AG7%cz}nba-r|?6Pp>@-NIkhdZZ#nP~5plq1=w`T>}H~PHsOoeJJpb;Sq}1 zPI}M59tmvc;P=Ye6Wcaz(B|fNad%&emEfM;yRCzD`qYcS1+GY&TO2ugu_&nbZ?2 zC$N3ru6=z&!&No4Bp=!*`Brq6j*QvQ)G|j;9Y25hVzB-EC+GL=-#0ooT3z!ajT%Ea zj(s{;jC2oM5i(h`5ZXg}5AAwr+Cy${=p8ZjVE5jAYu0aGUe%~|o?BWOqI)!<7u|3B-xjpbM_5fEdFv~f&Z`V%C z(iO2?cT&}8Zf@MYbL)*O7oU83=hc%(>0XZ>yngoCSD$}%|K{EOd-t_8H5IX)$wXy^ ziPe2|)phT`_ulJwjQtowV|xPo2OlZb?^ZxkcSB<%3p8wJ!ABbd??SMhDyFHnDcG)C z|Ni?was`8T`UKdH)kSRgU3~5k+Qkk~2GCth8boz_#7WU=sDm=hzYCyGmex>};x%Mlm@9+Qq?AtUY#KHELk3W6&=$`o!o7SzVEH5u)k-O87?Ap0=Y-ITSsgutL>Q5hj z{W;IT_g{VX;Abx%J-&D6*44{L4j$;~>f~gs@OA#p^s85&WBcM|6-!F1sMe`asF`uB zP=!)-5hTPzOs0*gYw4+^&sms8QHu`y=|5?H*qCcjjG`6^)$COwx8n*_h*m_Rd$*X# zyKHB{9_sX>+flVzE6}4iy^L9V6d-r|0svBN0 zJhEaWt#?vWs~2h5NSn@mMSh(~C`)_~S;l~Y-KFc7C}b{Py?FWNVhf#BH-_9!8$-J;c1+U7WC6_cfbhUR z`)3ArLOZsT+ez#ZfPG@qbcpV`PKH_r+xd+Q(LIok>JlNh2i~b}a=Zh(1&;#ns4n+% zxm`M_E>_oU*bdh=HA|ecT?bkB*|3q=mg{7QZ6!Pc z8{M#G1AY4pbHsg9;_H{ML}1@2gj+B!AAc}_%&goWe|led@$~60zy4)}*Pp)zZy{-5 zUc55sW~q+YBjL{oApG^4*WWtn&Fk1N7HD!Fe)=$U?s{ch4YM3%tqHSe76YE zAzQff_O08x>7PCREN=Sp`AdQ61>ZRG=db_zum9y={)Mj6aG@cg-~ayiat7OJ!|*C< z4Wtm@W4;D$XXKCK#Ht*FN#nH#D$#eb+md2PY1;YkIG19npEWgY$tX)op!=yDP-swGzyji z@$Q{now9m*dfGC9wC;vJZ60Immd!#m@!0Va}9}Cg=YJWffETvKU_2YXl z?%%r2NM_?Y4up$v=Nb0y*|TPR+`?W@KYjRxjLtlay?R2=^WynKgY`E~9y!X%{hQaX zv6ra;cpBR9z|Jk&d}T7ZTlh829$jM1r8HD(0x9hWf)$a_>4;ajGtCEGYS_BPC@Oz4 zMBt{T=EA!uMY4`&DHn;u!Z41ZZ>OK1w`ke?l2RI>fBeV)>H|4I>@E_8kInr;O?@L5 z@NBeV~Dvw3e4C`J^CU+3163pbTNf zCVN_T4y(sjUcGQ$`}>kpiO=ple0=Nrjf>m1Ze+UjZk=Kz&p%sTYv=H~ zUE^D(xKZs!`0@2zs+RIvmW77F(dNGH%GMU4qNTZ^t-qqaeQ8BQWn-sSpou`v`Jn}= zvk9t^4y%~-tMOBFiu;DTc;X$M=v}j+zJFAhu*}V#X}0wdn)@cYSFRu0uvOeVIw91u zt7)RW=l*MmgfAEr+dE}tkmO8wYlKXY#8c*ApElgig1nhHBPIq6|s%2RnkvD4)VXxlGa43??0_A?No z!DCyhM)MH|-4J1q!j{`G>@~XWtBFCr;&R#+&0kGJjGZxO_ZFWLhtG6#Xxd9dlK&7L*I^LiUG38u2rihczBar z(m4aW*~b!98{6wMUty*Q~wze6!RkRo`I?*b7L2OuFYS4UHIm`Cax+d#o zGgXkKKD9onK^%{YpX`@dEix3RKWS>WX3@%qmiFm`hvW=I)2Q$^X0cT6$Sk_IVZ$av zqVA>K5*S>es;YY7!lh-kO&k}bG1EC8vyU=1`a!aOnUnN?OO`FB#8|l05{{lzNpSbH z9$*?mcF>3Kz5jj+@4d%XRJ))n5$zOVAT1rWaEWU z^mKI`-an<^4G}l4UA+I``t_R^*{4}9j|RrzZ()sKpJuIYleSv=23M@vI=*G+;JPh2 z+q>6phW8{$)4ug}H}!TU!Z&sbbC*^wt+bBS5P*kOOeBKjkPh!*9s}tNV*>AmY@a@T zp?6|aA=?A*!S;s!5n%x8&7WJjKG+_354H!`5gt65BEV^i+q#48Ecf#bSmaM^YFSpT z>Bf?CFqjt$4?Ia{N?9D!h2e{>FR}x7Zi1PVZcnh zj2BlD9DoL{<5va)T1bri@WZ*AHg3^^-23$DedYkCY% zF1Fbj30DZVYkKVTULMs&QqE*H@E$nGFLr&JD=*^ut|==VuTj&f!FH|HpUHLtd??-} zLT*>I$n8mJf0{&hY=8Obtw;Cn?A^J&rLp0=@4l109?vIEkFjV`TTAog&Ycf$-F{)b z{>7`bq6fFYPuSbMdG_GbN4M{sJa}kqWYqHHo-&Wxu5{(UHl8FIS5(-RHCvikPjf!&xR!<&}wfzb^+x`tPppyY#5kjd(-1g1imZy;-J zk!mXhboEx&alN(J5UApdzi@!ACe@adRZzKWec}q~$k!?s$;u=?M6#WESl3s@lwx*;D=x-iVW`&hZvvmp4qg|nm+ao zg-yHt*iK?6w@Z-QLv%-YR1dHd-Gk}~Pi{x`2!(Px(H+uB>=B5O!FG7h*6T0QLjyg=}|<>sDZjj{FGot(8iXpB}Z`{29=*i0? zM^9n94EOnf1r^1MTrv$wfCnA9ZWTqap!7piYf_mxzG2OfJMtJt8 z%j(gv>UX*_MkmAJKcU?wt3x5<8OZHdW-iPQyF7pVee(2}G&7-%L3qlUSyjyQr?ZKt z%&QXH?_K+3?~bh|E*Yl=*!-ETPTSVfGP!fty=&KBK6;{$l-O=e=lP45j~{*Y{N?@Y zH}>t>+u7FsAO6FCFp@&&Mm3>t_2kJD+U7Jrw5(j>i{o%?%a7gEwg-R zrwO-ECRfo031QjtL*}Knb@uWq5W4H-rP+iwK=0}=uWM^)>t$nORXa5)^etknbA48_ zu0W(W(yHwymMaEy9qzcKWO+k-cl*Ft`@j&_?w&_!^s>s8@|l-R2~YToU;ff0riQl8 zvZ@+Qo=@p8FX*SQzWTXKQ4e`de}*z7Dg~=`6PGNvT3Xx0UAwn-B8fUqWTj(S7NWc6 zLFR-S%4L;Llb37jk`|qqf$a)^{$3I~P)vq2bLLq2)|#sL)%&VG{=|Rsj~b*xiD{ok zMtBPwp_~~U=-;(x+o=&l-X#L;2%kbp3dHHErY^W9wC7;Q_Q3mWf%KgD+S5dgAP)&7>Q2#FIO!N9(FHzyuFZ|Vho01@=hjG)z%N8pM z78Cj4{SQcwg?E%j9+&q@KcGrF}c5=B5gnEH*SW4EXK^sfqK~; zi=L|RPhxY4*{!t=%pHpgVY&s4$@~Rgv+xvY8g&|*C6)D6jV-J-i%!%xaUyx%t3z?o zx!~~O9CMo%eDKi+g>69_I5~U5@a4nu!mi!M09Yf=!@%l_Fj>djX zikG3Ws!U2x=zgnO4~8c* z^V+oldro+42X=wD9%>nJ4t5Eo4ag_X7i_`yU;p;Ef@81|o>TbQ*Psz`u$@3|EOlsb z5KoHAgTlF@f5puC8EpT}_rLkgcPTK>GrmbDL#bkR{JRCX@FFUm(q6bn8n;2rf*=MK zf0XS+4qAHJ>@};`@PuH&U-L;RF!}uoB{`8u2)6&JD^Mn1xNy;26(1M7lh!?34a%Q6 z$s>`Mhxju;Kp7yz2iv1Hp^f23(Ods1wu83f;esymF55|Qp4Krob9sug#Zasg<-}k+ zu-o|X%pVWi1MK3j|J^SIco%>Bt6$=I#1cP*jP3vKjj0ZgAKtx96HCS;@)h1UvAv;T z=k{%PZ{2wQ?6a@Gd?S4R>IJat7*hLF+j-^wzBJ9Ma05m?p317m%Ie0CKAMZTYepV!!nwyeQKau3)kI|y&S3L`z8ct9Z?4qB3`cDlIA0WQ( z>0?JWu3M`Vz57(^)b2fduHU#hb@1r=-3PZFyfk(8{>HthHcg&hzwca*cSvvO9>R7p zstdIpePG_&KO!J}f;?5s(3oI<4tDC7B(B#raXUli&%rK{v%RE&O21jac7fGpK4&U= z3J8zwRvQt3T|o5!yO=*oU>8haMArxiuiC!L_Naq?f^@MzRb*QbK1uEGy~idw!2YM$ zo}~7S?Rgw**N>10kCX}QYiGeuXcw?O$9sT1*p9aX_X0%s9PHR`XRtkB{`0D{SXX4CVCx3JV^hs(Mr|Ch6E@DLIX3QFsg$3IlI!r+@xYGJ`*O zTGeQt{`@>%^_Bp8usudU|4p{1DDT>HL`tr!mjdo__So6nSO?HVBfyU zPw(IR{Ka#^`Y(U>`WHWYP3I;&`|O$C+1TiqVZ{6`Bq)9l9z3+na;bHe9%IO{#ERwK zG?$+p<7KfO=nTr!Srwj6#j$#|$w6fe+&&JjZ0Z~oIDr&5cG$57;d@q$E=iV?tZRx} z4X698mUPrOP=FNScW`LfFlcpy!SsK{b}w7_3?8+)*#cNqEG_F>I}RT?TG%{gZ2wrp zRCsYODEBsR*-}zoY1PIh#!{CopP9K}1flTC)IWE)emi$~r!eFao^ceD;c|uphS5ReC$)b0W!v;+(!*KG*q1EGDeHQm7T*SZxHC79G zedEquM`w=RcysRIcQcRw;=+^fPuzSX%;LSQ8Qz2K&@Es)!sl!!x}$p6*xCr8RHuOf z`CM)XYI1vs?qV>9cX1)x$?aiLA9xSBePDcj$nDrpZWqYI5sZLid&uqB4(TNJh}BlV z2Hw?Bn@W_}oz?W8W_!}bWE+J{2<;Lfw`(G`zd6+-9c&M^47Mk2Oaa>o?IE|*kO<^< z;<^yt1JY!rw;p4#-Jie?ssN7dev*Ln2qCct=ixor9xmJZ1>iFGCJc%By*Y>zq$^qp?BHt zI{CKLB57qM6KlpoCljK3&h}hxpH<3z`_1>icq3r@zkBoI@%_68_DxzHm0nku!7F&L z-Me>_T`kys^w`n6cW=LX`sA|*_itRga`%Q|_GB5wVUb>&#kG8B%>hI^-K;Caze^UE zlvfzc>=anTELyZ!Zsd4`HE#{<@TgQ2wPN%_oPBZjR^5>F>X1&++HHyRuA!#R0eHvu z#btHmcG9m*Q*sJ7hO(iPQMaB=3hB$sJgvg%Tm_FQiv&0; zieSsxc4izcWfJ38*LOh*8N=`d9v?35uBdxQ%ko`1?QR6+b1ud?R}E#TV8AN#=P~RR-^r9Gkk&lajHEsr^%TtON4!fg#re2d1}e z+fE?YWn%Y*W-YC0#uGiEDnL?2Hd!QRtgUI4RZs#qJ1JO{Nk&=fl(d}&@$G-_z2r?X zFNZPag#&gv#$yC3vHkrIKN1W=W@%5}o!ly}CblU9 zL2sCq4*5KGx_kU2j!p59a8_V88JT>LjAZ115obcI79Ycns>fme)bA#Pz0c`Pwh`^T zIP}GPIX$i*w#Olk^vrq$eC&KY|6_Zyp8M>h`p+KsRSrEWEEDDhGx+FC^0FcE>+gO^ z{Vo=M`>St+zxev~w{Kq1$?Tup+tJoW_G4@rd24ND+~z{lvbmP;xqRW`{ymnh+`MjL z^@jE9xy+v2yLbDR&3)b7bTWXfJpyXy^5U}4g4D}OO;0OXT(WS!)^k2EdPq$)5Jw!&z$Wv^`sNOP+D(CPLiG&qwJiztHO<{i%InH1sx5U znOIfRVsR~&u0|ncqk(BSwKR7{Wi4YHgR`xzZOj9V(Q7vgl~JR~+2j1m8a@t3yZVMX z{xZ_e-pA*#YyyGJa4nI5@r<3mopS5@`bx)-pWt@BuC2Shf2_4Klo=h#6GlvO*gL%L)ZB}2BF(+-393!afI@$CKQ6zvtT=SM)Ta)@4S}VJ!j6GIdeGYy+3E|wb$lP&!xz{ zY5gvZ7r|TjWb&tH&CQ<~8x=8e{HqlG`kvx8As*Ng8k<{GGpC}dYWen>l^=j#;mWnCQ$IGK&Xap}xgrRv#SU=SONO3PAYqL@20wC(e5EBzikO1KvoDGyYKb-SfQ&Yp$#e!5rw7`7M zm|&2z$5ls8%z%gj#$y^Q(XL9j^DZ~9C@z>lyTBuZd{FoUPOXuy*$(i9?fe~I zy9X6Y{5JV!3F3HPwIM@Pbd5lgQr&N=iBVwJPIc<6;gVp{6%K}%yu~7Hr^35@oCgq5 zjPhW@*}yOZYV7XuJp{uvpyP+$?4@4;Ne>Xj(jMb#--qerA%(5w0-V zQOy8|SOtJ|7Sq^qPH?cpf5mo{_4jRS7Ey=)P;T@D0%6SL@*V9!0C1rW-}O?L20j16h7t-P9ys#vfEQD3crr@%EnR;KV_4{*m+?x%Eyw zJ-t*!ji(u(&}27HA}51`LpXT;OdLFMDSQRGo$;!Oc|OZdSjh(bMz}o@e3?T@XhxR- z8Q^H#`5-M0za0@ydqf!H2g64A`ug!f&KM7LWMCkah*p3`jUPn>7k^gTN@87LyIcb* z23}nUL&!O4eYDhJJMe)m+#Os4*6;GS;KFowac0Kbw4^BkX5TTRMy_0Gdrv90zy0o8 z?+$zGy^%2~({n49%&2UsT>4>oTSsBjy1C68ikEDH@UUG>5k5T+unXJ4GJm76So&U5 zt=SIPF=w+`;oZdpN*jHtX26cYe_=a#7X$3zT}-om%w#5M8eltk7q(}R^mUN!VNuZ- zU>CN7cMW#f&i$zI&c!B+oKi||UVW#)d8y00Z(=()vasEd?TYOv_JNXVO)S9>UbCI3 z9(22ic40db9fu5x-CDp?N3H{Qa7`&-KihK_J9gw4CKXD+e(Lxs?8M0v7~4}GIerwX zQ;KdEwkyaRRHwvUBW$M>wtu{H=e7@b)Yi>MX>*CnH3Mn6M0t$mr;(3wPSKpiq(r7b z)mId^Ir;?0K4%p_o?fp%&Y9uT6q0(498RWRyzYvN92K9X!h!KE93eje2vh2X4dn9Rs-P|< z?^5AYd{#FQoCoWlhQQ;4e6!mB+kdigM6e}nXNT;B`xF{*UlSq2#U?9}?gPdaoFGHO z$vKqWa%Hk-7-ia~MCtg@_cQ;_+zl z?O>VKilG4`Mvg}F$_>H~9oOIGZ?<>Y5sx&G-s50eG*gueW}SZ<*-e zNWL3)p8$FrN=wVE-<3K5hwfw^IA+XUD7uAH{qW&Kt_tOKd6&y$2pwYjvwR);hcR4+ z9vQ+To_tQAAI^EVQ_^Jfyan`4tex9E0Z zyQ8-m6T*vU2C%DbQgaaPu$@XyNiBF66U9Ct-3Qq&x*f2KbO-5(c04n1Ucf#e-HDJH z)a{_yhV9%b+%nu&EZnxdYfE}SOx?L3eKzZzhfE~7w(_4q5e&4~tq^D^!deaK1Usleq0uMq7VAvZYf0?R9~Q!_?mNr^+| z?6+rOJEdkj(M_vYtpvr44z@Wej+wa>iATaS!$@J9cX>(l4s8kUCi}OLvJ9|wnCO7_ zK|12Cx1k}UV;ScIU3>6{1jCys8Xqa&$4_X}A9%+rV~IIcERuj!sU-6WO~wF>>Z@z7)O0^}`j*iM4qP zC4l3_oT*sIIQ2_~UPJ6)Xe2ZHcIb!)bZPe!~kgVKG#Cu75Qp*p%9w+!FH#_W%Z zcF3eL%ctR!0q>ZA9m2zQ83DWaWMDhD1|ijY!(1>X zPp>0ierfYAcPp5(*BETZ{fK6!!x8bUo#Fc9Jd*P+{%}g#6un+o@YW(!SeQ(KeE@Sr zI}(my45Dl3&E&b8PJf;;(LaB@hb1jbh$vRRYvlF^Y7h810krguO3y6tA2yT$HFVJ7 zRezW9s{Af0lmJuevZZ7a6DJ9czCK{7a4&24^BZm6+7w&tcok);-zb1C%!$4eRbyav2V_7+WO)2nX>}zLK!(`fD;uP8yX&tFWvro znZXAEgBQ*o7l;9@@0hcScasPQOdn?M>~;!PPh!2!1860!L#FZnov zeEdWwlUE?$f=kE#66LgTHE^A6*bvR#IM7R95a`X4*S7Q>_=nE$J)t3E;0FgpW+j%9>qXyR4(2zCCPefsJL%t@4dZ zP!4nDjTs1u4@k&zwuE86F{zl0Z*nsSNNhZvuw)e@qTbm%a3F*}Fos9A=#=b&>Lz6d z+jH{^kn2n@6&4XGrsn4G^#bgeGdYe8<2KY_m(fY^93donjFN?yoIP3i6R>bov%vPj z)haf|Xat7Ab^$vjE@J6N1Ml2-uw6z@NeSCAz~0o_)V#O_6Sf~da9G$*Mc5AByN{g^ zste)aFL=jL+8|xWiuYldC0CWX*O3ijEu>JVy9?f>B4&fEv4XRV}61E@t>cqj% zkJK-0Ae9i(i~AR!A7#`0P@Q9@B;o}F>0%7bMQ-Zs4~J)A2V!^iJS5!w)2R=)eheAc*sX|sn|YdjGwO`{&st|Ll{mlV>9j5 zFa4V&U?jh~!FKn_u0F2b{umVp2M^MBVG}31I=Fbg|G{wjJ@q$Ah2!UmU^u}!BsBP7 zxb;_qR$kI@uzMaE=n}R0EHC*Xz<-jXi>teNvWq7nKlYa>&rQg0_OPhA*=7&0od_J* zjyvA|gYX%uvww6u-_Bo<+e%AxI_9C7v!3%m~TIW|Z=-upN2})#=L|&s3*Dk$_#;uG<1%gYDow zV^*mm{2<%2vUAcH+-l&RiyW{sa6w8QHccKTO4tt44b83!h3vQ9;)*q(J^*%J3d6Z~ z0K0^!u^F8g{|VbcI>=%XwgYyuA7EOy!*-}Hc<(ygjbg_`0@yLAE@sbms1A-PMYL01 zymA%MuJI1lFJ8Xbd!v`~9LzTiwgYx8-3O?SXg@z7+F65u7q)-WwZFNg4S?6z*Aslf zPv+WyFkF`C2VXxkk430==3uh9qQra5_BMAtm_kb}ripx!& z-lTTnFxVSCj2r{UjQqi6%?04$VX{AFrXWGyplT#1jP+qNeKY;r;6vjFa@o-H zNGJ|JBrPqCjz}0jY}g2K_i>iwL_to#NaA1eJvzJl(pXJ)^~O}I1!^XnT->~2`veD9 zC_UNP#U{)K2L=38x_#tWt|M@&kBT$NmjZU)LOgTH(e%^GNE{=rC;UXEkjiGfgNwIc zsEZp@6pd+bU#j;Y6@W~f3~=YOwY7CL%KQX=AU6da5X7#JcW`EalD#Kt#fp`5F~Cn` z2q%HIk4u-sV7Cw+u<+L>K_yp-y|0oMpX-P1?b*&}c?*Y(lau3X+0GTsz%);j$HWN} za&mHr7qY*nIB5(SL9{!Q=V7v&k)qRWqLZtOcVJL#V#t&fYu%1|7q%nXOBb?uv@boup`}J zJFT9^I})7}C?ypxb?U-)0lPKZ<-!)cTkCf2GWIFD9iNP_osvcFI0beB@2zyZD0WKN zj%bJK5{nMf#qi1WJ$iWN;zco#{>pCj^%@4-5$V*yyRn9Hz(Bfe1L1qG^ul&Ah4d@E z1Le2p5bc0n*#7m|^RRuA+{MM!Jic`8Osmj;SwweQnhOLzB2r zfi9zytZxnUJlCPRh7FX7(}uf%+luRrE#Vd7mWzy%KMj8Z9u{D}z6W7DaO2}6hmHio zP+djEfOIv2Nhx;0yXyDS5Lc!YyJ13gz>d*0D5_6TR0rKqT?kJp zCh8rw3*JSya~W_I(YMHv^BXx!-0U1YN6zoU<-$t9&cSn!3efbK0YN~Y5AwU%0E*J# zCFhw=RepkemUr2LoHg`_8Kp{6N@pcs&85hx1MFPtTx06$N=<|Ca^=JJhxcE=_E*Ns z`!5vRuiX3e@K>{oNI$A&YXbc4~caZDb^Kx><028pahvA}S9=NlJ4 zv5~1MsT>l=#@_fiJ@V4lliQOh6T%T;osuM1uF#qjYXx9wP*BUv!7=axPspibf+2uK%Yh`WNS1uwaO>MyFx-y>_8aRj5~aS!(_xWjW1`I z;~|)Y7J;vZfq{WRcx)y)n}WipI5~TbXGXt&Pwm22kf~+TBu8Q(0Xr`_SL{I=2x9xu z-Xu0B5(XV^ePGlPbo^eTfK*@Vv17C>9Fn-@ISl^p+!wqB+quZCKg)4)epGk*>)1|@ z43`J0p5V&YvYmU$(P0wv9>R9KWNiGpdy2K&vb-O=rsh;}J8*ux^}Dvc8p-7XFp zE^kCTco&}xiXFEM2H{_U9cf}L$Q2fD78YR6X_Q4?0(M#GCeyl|dx{5AS!jhh|CA^w zN>I;B9+b$AqI~Wa3x7uz?zMnm@>RxR93C0wYpQDqTqpAI*vVtqfx`#H$I^HI;niDx z=X-mxn|J%@`UK7oA3eNr`|jQT`@Pq%X}fy!#*KS-F)CMY3>cgB-R{%Yd-F!$y}Ohc zZwcpBX{_Nb2!HnCS+R@PdoTB1zI@~QmtP%Q(%#MlyPFMxZGFAb_2xL)$=lDz!O77^ zYO>jg5k#Pj(0cW9CNSxy-}UlcTaZW}dm6oF<2chI=uy zxScD2QyLK!osynzA#yS;&HBeu$5B6i9GoHlvl^iZ8)=vbg5{|&Ha3nc2Z8Ns@|x`I z$^;Y>COD0s;52H~_@P6IJDfDh$$jiNCkMrL&WRe@Y`t^Nq;i-H9nP>c4o{95ZO?^= ze&C()6DHyDLDJKRSbvZ@jT#Pi_U~>AbT*lp;Aza*iTpa7%|7@*9R~xf*rCl^r0q4j zh?Pg3hSla>R>FK9DmVRME-8_r(kBZG*1NnJYRrWfza|UP*B!0`j6Q5(?`k}KG zF1`Q0n(yhg_Y{v3j0YhCVZ>Mmhw&a5kAT=@Z+{sUNfc*liBrOIPMTtW_VJu6qm z$x!Cx7i2JXYzlF?aRGs5%-7okb7p1`7gvni7~#Q!;$q6zb_}Y+_J>bZ1+YVP z$V^4RPAfn~vt1D$q#GX;$fM*1@4|M$yX;5sE^DN`dbba%i^28_y_b)DeTuQB;Su3q z+Vz$q;2EQWa{FNDP#M-|eI>iNxWY{&4BF3nJyMplCubG?zqb7QiI=%w^9 zy{gMfVY`%GXgg0YVLO))@{iWv=6h*hl(;gw>5&k)p{zIHm-3U{J$+m~yyA^G8S8f$ zZ_ahb6mN8GxVgHxxi}Ng#z1n0fHCxd;Pb|Xjim7*;e*7n3)>|{BtHkX1NPUl{rc^j z*Y4fjz5ml0`LmM#Jx>A$z%kPp$-{_)ql3*c^Bm{w>=F?fg=>zS?bZiOecbr*2&%M< zOdmh9y~~cy8fRzP#L0x$a%b@v$L+?+;S3o*IhuERFVsLwQtC3=XDFCqwiv_@?1N6WWB_ z^AM+S^ai$b80x|@#&O$s*3fF8aL5M6!x0MKX3uhj+!3&y^d00Uo{S%Cyt?+oV&lkP z57-gXz+CxB45K4e^=rHN0(L3G;-+A$ zn6Mp>4bB#j4%?M7H|oT_z;;T}=Tg!@NE;!|1Yl>Ml z@=~)sE+G!tz&KD(lP7YWONfido^>2QzZU@pi+KFkKSwIi8xb286&n%}J$Br98y_;; zM90LiTbwWB#*J-kY@l^u+CFC4n_V!wt)*@IhucXCBw(k6?IPOwM%XT*9k!ppa#5RH zSFruur3)W+?#Rs}P5WyiVYu?&e9SlLevOQZ#wEAx-)B7MfKjmifkE+!NrX{Ba+}}F z8bmb#dpx16Tel9MbNkYzJj8Kf5X6Xpr;7n(G58MNLM=96OH$F|X9e;TCOTQnfulxo zd%kDGcCILN7eAc6@yKKSy@Zkm1O}@N>Th5>AHj#ufL2eRP)ksZyUF6{=*l>2>zz>N zvPbqK!fhU8cne<#o)&Hjo1>CF%qc8XQ>>2~$H(nk7Cy+&MEvk^n{VWTp>2H=+i_}v zc40fC&ul)+4*B8scY*b0+*3v$hoi6^xvq2#*#nFuje>V;-A?3^D0acSOn54Ihw5UH ziP>3m>a~e(r&N${?i9R3c%iyxJ9yV@*U}xN!*;=YLQ0axyR~jtsUW>QV7rMp87tim zgt^QF@4|MG?mS!z+o_0d|6{fTc5B^k!*;+fY)7$cwp;sT@W$A%9ZHL07wHa)l{e-_ zpAzTa-Ph08LUmv+2HvFt(lOP+O65wgW;imk7DW#zver==R#0T9W6Z+pXCyq8-E`+OEsJ&3AFbY`Ne&F{95;@r4>d6p?6UcY&Db1ym&=Aeqwy0R8PG}y&1-dg z6{weJ!|e&AdoP9`oc&gQ0|W#NErjz_=b0f(dnBgRa?Wn}X_ z%QiG>^mpiutt+$?JoJgL!2V%@D_lJi8oC_?Zv8>(IH~v`&l=1m#l?fuMn~r8Ejc-e zDIR!z(+Xe3;+R^RSY)7|4b=HVkvt67gQjT%4Xu}nQ;gi8o>`+|@pHtF~MQ65gs}w&Rl#s>?oMxW+r)7%}n5h(m^wVWEh2A-qtX63>jVoqL=LNN0gClsH%f z@9>!$N6s^Who=$5_0nju*#Ym5->6_sq3>t z$G<)Wmc@&5xBu?_hspzkfosaU-#xg|*N0K*yWjWV`^PVT`JIv`KzL3mJRhL?wX5eY zT@(}V4b6d)`nUV;-e>Rq>Wc<>PUSwkGTx%nd%N%cv!@qsT;KnBcV%7eYwuruZP--M zT@3E?_VqJ)dAZpo_qN&C`X%AzJmBz`nlfby=b4|;TqbMTpzTwsdS4o0ZeLgS~4sB1N{kFU?h~i0JHwF*7fA%l;F_N>3OrV zb7uww1!rbuS-(qNN138y^;cEck>mkq`M6;cdIpf6=pU3pG+8s*u; zT_?Wi7CXFW*Rg|L*wF*~4tzvP$M(vy!jK?;KVRSf{Fs@Cjwq>&%uIAUvsdV&k_z)y zfU?lYC^rw&YuQe#>SZ#K$=Sx$BOkXXs@^~RKQ-)x2vlsG6UC>&7R4u_yHkQ!^tP}0g~9}-8a4DrWiqQ zfwSw-(c_4}r*&Y>n>Mytk4HrT=WR8b&;ELb?Qa>rdc-^3G}fO*u0tNx&pLz@Mus#0 ztv}goD()$sm5CN~a`AR?_w(=!Hd{#g9_Q#{arF%LvP4i)N3IVzWDKg){Q3HaVJ7b| z3pd7$g0SQ);k=Yy=18Ww!l*EwDmIWrX4#f0qwcGwQmVJwOr zylZHS6c?~lf^_Wpk3UnY=D_f=Q?X{d4cNtjgEI%h3)>amA3c2h?CFaiUSJ?yuYd63 zIUQ}cA3Z#K`SPX@KTJ$XAtjFWW%H&wN`||hezfQ*@e$E6_*CgQd(+0&>k%iMWP~Vb z$w^MdC|w#;Ym~{xJifQr^&lDYh3>XV0D&8k0zzgZ&=3 zH^}*fb)&W;`#QUKbzp}(H*epvx~;iBH)oowi_3p_%yg6> z%ZtnA(ZE{#{q0?LG)7L&E`gz;9&hl;;N%Jk4n|E$yTC8fidXr}?FIv6t?z{W$l< zm@#9OLq^%Fx%TwNTnVfP;1o9gc2f7Sl7>u;0pV$3)EJ@^>@O|u2s#=JZ?vnYUnm#{ z?@|g;!8g=hwT`!1?+-%VS8|F1_s`tI-iP5&7lI=ld=k|*$&~^ZR*TY zF$fRU#gwPr06QfnY$sU_2gBDv^@74u2>)8P19|N}<@s7d8Ns-)9jePBU>9dQNQXS) ziTz`?TkCdfw(}`#wkM}&0rt3rG)ma6MZ2&aybIw4>6A*k_W}GDl$!0L-gyfXykER} zLmOZ>Sa@McS;LanRubJCR39Mxx;04F)oWL;Shb?AzG-S^HtNoP4=N64=+LCpG-l8) zuc)o8s&8MmhExyQq%TrRW-ietGuBB-GGuK6cFLVQwrtq+VO4cqVNq#ta43%<)(8LE zI_MxM9k2D=lG25XTNW-}GBbZpP-qyBe)iPD9}CY}khO>h{6b8PL0{_fWy^8OsGiha zookjY*KAigLN~0`#^l$qT}sjIl*d2+>`>Pp=3<;*TOA)4&-s7taayk=-Y+mHD6e4l ziZ$yNG&V)W#2i0<+g@=hiKU>ux0h=;Ln#pun%W8>oCXYvj4G+8`JOZ&R%nP4M1h?zT@Y?JJV1GD}* z`#Oyg-X3P(_B02CPf3bS$rwJ~;RA9aOq}#ux4iWpxCZFCAUKj3T@2}NKdFaeJJdJW z&hP>2j}x?vm?z%e5)vDinrjY@V!{!!Sz2$y38e3U9%?r)H9$<+q&s*Q(GKC2bT@Q6CC}gz{2=Nb8pCa2J7O>DQ(?XP9KNOu7{q8;fjR2Ot>u;Y^v(GJ@&?Y9xUU+o(Rl>zA@-Epvh zbiq679ja@*3)=xZ0v^#WZ_xw*_P&P?M7m$Qdxx~Jv*ye(`}>nw8WF<6&CBCzef@lT zOSwdG%o60x_@=nT#Jc$lcklaj*S@ae^2*R~@_UDJe|h`(6c^9sM&Oy6yMv4YjK>jt z;Q-|629hTxB$k(zlOCL0I=C7b)oAnl$YqSvCLtv?H@~o%iLh6$wr4v)Te*7W{DsZg z)AO9&z3lfeZu|toR_S3cEvu}kWD58-|3BESMLUGoY^Snm%Z~XA8ylKhh)E`BGG-jJGXaipI_G) zAD@5%k!Wp>8411ISmc-qP$!Is4hmYLja#?v`t;MbWh)p?!U)Z;zyA96ojV*Ge^Z_> z5X|$+%co7xO-xB;02ddG<_XZwQTfNFF_AitX^f`fEnLBbK}zILWJFA8XoSTa5a1t( z>&Ati8y8oCOqfxWZVmL()Xb>`vkNjZGkD(NlF)m$uW*eqLW;TZ0K1dB-*{(lLOaGg zx{n?+v7zDLWCJJJ)60jjc^40hPe5c)a1c3B(y|H*^?7sTur)g5r+D*F;YQPalfy zc;i*9%-iS$_QuB%@C0uRA2rs+(?32VFD?<@?mkhfqv z5eve0Z~@p^*cEGNEO6ADOeQW`z=gmd%9jekbYZc{aZ__J8M{|&NbIQB@{j8_sReDZkOG-ZV z_}TOR2M?rt`2FLD&z`DMDtrrje)jb4qsJI^yzaN|efRa5b89zkDk(3IjgQCW;_K(f zL$L~Lw)lJd`30cPBO{YC(r1^HE?&Nhn7WhSp55B{G1KJW0gH{El8}&0LT}C?=Y&&) zmzCy{lvxwTPhcPPU%UnIEERyGv=07mCUPYS<;S) zXlI}FOYYdbMU44IcYe4H-M(exMk;JWMYfb&`qcT-<*Qa|ysuloaZyWKeM4hYLsQQ5 zoB+}qhJ;{vfd~sEaEPoRJPEqHx)XRA6&^*hxU!hPV zc=%h$A3#fleyFLbp^;+Qv112dC$P4?t(~|L=0jPva#d4P^Xj#mH+L{qYG-avp2>*h zTsXg$qdK&6i&z(#+qZAj*1f;;;^|X;c=N9G-nxD7>h)U}uiV;y=*Y6Q>t@WJot&P| z-^|O`*N<-s3c|G#7!n#19ub$2m|rxvefi2=d%I4bzu0r(;(;T_m#x`QSX_$lotE8f z@dv(^fPlF8`0}c%mSsy9E?Sh4nZ<-hSy|JPl9K&!!iR>>%AeELzH-y%&XSU<>C=-@wRo*xuxNOU5}fl2@F<`cx!tH^WSA|M9$ zS6W(ncz6V(nZ}NHa(43z2#WLZkM<9Y_4E!#;nNCmPvgS@tEhB7xd zH&4q%M;F9!WMnj>vGCO}2`onJJuB&oWp=;u4wL-?h~|oN^$kdxQRwa;Lbev4z;G8& zU;2c31i)KNPblJ9ImX3?5aq5|&6o&onE|c&9+{6+q-fKkMZ_K(JZI?MyVIxVGE7fJ zr@#Hyn6YDsw;})V@X=DgtmpHy#yP zM61hNw33?bY{o}k%XYfeU^^uXY_|kP3f^HmU|-nS2-`cDI>EsEk>jU&PM;Tp@H%!8 zZbS7O5WBzMfcyhMEgl=_E%7syP+h>TM844vJ6OINx&qjR?ciNC3L5V~US87WN{Eip zeB62X=*Hc9H}CYHy>NM3XJ>P3TUljgQCV3@Ma8`8+A3Tyi<(>8mo+b4v3m2?&QA{> z{PN@(Mn2uSU0ypsG(2X(g68V#1tldFaWV0D^f*NNz-G8jKssO-whP!PnbePrn#2Jz zdkEbGUS3{&oVJ_47s`-_TpD70KDBiX_4AuF*ah0ccBsB<`%VZC%*9~42D?;bt}7r9 z+nZY3H*H#vt!J{T_GPQra1iSoni`5ridB?RY6@TskBVl&5sX!$ z1zgm$sI6`3x(!=l`@)6IVZ^O@m@?ASq`3j<+EDDm_9F*&o%-^SW_#bA{`-$!JbL!a zjXU2T`{wk{uCBIKs}{Dj)HXFOXj!sk<;vF8tCy}>w{qiVW=}kL?D(atHy%8B-v9Wi zy2kE3`1;!myFWd+b^G?!Yu7h2rOc9+hQ-YrJGSoKf8fg#CqMi0=%%gPn%mln%gV5- znz|J$*Y52)c>eO$o^zMBeE3mSZT;t;e^FgOf78~Fdd~IU?0<0k;e&54UOIj5{GOeA zHf`Lr`;)z#YW~)Hckh)@&rf!J^6|$X^H9T_k7#BeUyHYoFO&x64o>urG4tMvkI5~SdIuQYjhu_Q9!_Uh%*wZ(}#}eTm66+Tj<>?zV!O?93vlf_q zm;l-2VC7Lx?Y&7sl$QSkvWiI{(Mf`3HZBxmpO4sN5zJK?v- z7d~d}1kxfAB+1CDx8HpqR%@z@u%ra?tR!jaTfiSvUK+7?8Fn<5=(6!-3-I*|ii7I$ znX@zUtNbETM?3qCb~cZm>^s>zWZ3A5?+qKp3?Kxw(-L9KPQ@VL$xf!&n!oHL5>a4a;=%U@N5?Op+q7*vPYY5Ap;iuN(7xM+m!;2qO!7s5+2 zNy!5b+vAvh+b4`laBwuHz#f&L!4Bj>x)^W4b{GQKsc5!Sv1U7+%K~;v$RljG20N~p zLA3jz;b{WoUAEM0{{!6)(yiI9@ovv{zz*TNzc?WV;R#&S;fu<(BBEV!8@b*mYzN2! za6_dVYXjw9$eERfOIhkufPt&MXpQ5knylxq&t;c_rJUU_-SANgD*~< zJpAR+U3)*>_t|HA4jkO~`H`;AzdZW&=>uPW)qVW*$qT(#A3p4R{_I-+y_*ld`}ouS z*rG*kjg3nnd~Iz5oz$Ez7XBhQUKl}%YrSD%0~}txYBf`EqQe=00~M*aE@|amCjG(f zfMYf#IVERW4&n{4)6?3rxP`cG?ssIfmhRSUuc@plFD(a;ObLg_gNFjXl);;H)UsRp zQ>fI{H)_!i(lK;9ga_=R+wr%6bZfn&5}Vg9TZ>j-v~Y21Mz*Mq&1*Na2AZ|B zE~~6rSX@?JGPk4{(ONWjUfDc;QN_FpkiMXP0ivB=)b{q}oUV=Zh;H49XcxANXxF-3 z@UFqG*$&<@t_{Ka^vVbM?w;9C~-}pTBjxxBt5v zkG{YE{j=|X`04r2FR@2I{Cw~G=fD2**FXQ|&o}PeyKv>|)myi(-@g0!=?@Q|K7aD# zPxl@@zVqnO#p~Cj6G-yJ`33OjM~YwY;Z<0RrZ`PE4hS)cyq^og%dFs%$? zfJ_~&OP4h^FD@)D%bhj5aq*Ip@~VvNnK`qH(XK`F>Qkr9g6hx)qvGxx;^rNMGDpC> zdk3KEDP2tdgmMIjCHV!$xch{f17gD>Qh6B|5^o8J4hc*2^bR35(%T&F<{cOuo){95 z92lMu7#1&tH<1-LV_L%0?8MBR$b>XyiRn>E8Ga#A=CBxd|6mXQ5U3uLkqh@yXO*N( zpXKCkc66on@g^`5pAGV!TrNCkV1Sxb8XD==74SaR#ciy!8>LrxjCV+^PiWkf>2u>} zl%(ZWC1;l%Al|-e^ik&*g9F^|i6{5iIYquZgn zsCRqaK71rk?_R21FsAuXdr(MM(%ry&G*lNO#Q|OpQSTz!(e0QhcENk{lw@r-Y!~TH z39ivdEI?ko>-4j;AlFfV5FWM@BWlfdV1;P^W442Ld@_`P{Y`8K>|&bjRG_Y~of4UZ z4Y*|tN&{-8-i>53iqD2mMx;BXu$`4gWuPs9@B;Q1KfhGbIIx`$!gDR!2c^4e2n^3m z-**ps`}!{3yxDW<;;A#|dM;e}_R5uS&R_Wan=@aWK70Dg^&_XhJ$LO+@4bf?Z{EN5 z-S@X1KG30+OvDP_v8JY0C@py#kl*N1g!k4hTQP`A9hx!MD!}9=cxM9EML3{a+UjcR zKp9RLngf8geCcw4#(JPCY{w^qdZ&c#FdrlDeaW1XxwGe1&Z}I~N-EzLc_?7~=HlkX ze2^yynh9&g4%opprLbM_4%?CFz+5YKVLK%oV;nOk3VE>XY+1S-yrbT$n_3%Nmo~Jt zS1f2w$wZZBdRzRk4>x_dv~?-A94xQhyk+f{#f>e+bIY?*8DVXyudHXy+I5>2wXCS9 zTinpxPQxb?(Q;boiQot+<*{Y?iq%W#QC__cu#0H7Vf%?My0lvcwnO!^C%ds%qJ3~! z1bD|eLnD6o!Q=Z+pWl1(^wzVd_x}7NjrHvp&u>3{ar@a1S06mS@#x9j$KPM>yVd{X zDR%4O^MCyJfB*XX?+;)6^z7%qJpJkCpa1rc-~Q|Weff{ye);WRzyAJTlz;v0w?F^= z??3+ftFpiT?Js}(?U#T4*RQ|*_b>nY*R#L;rT@v3o4DYgJfWHR>2JTi{Qdv@_4nVj zJ^$&ix9;3Kedb&2o0H#My?pgr?=?J+JbCut>A!vRHfxMWfD5Nie~agEch~;C`wuN$ zy*@HNBPBC$+1jlu*KenPu(ZBOfJ5nn^T99F+dsmcSs?-=z06_0fl=O;2;{n7U@RF_ z%t3Ln@!8-#X3Dg{kOT#MOSCfoXviNLksKPCVh)OBCqWU3lvz1*c`GbBB{RP;GruT) z>hz-e1tHPN2~%_ZBc^x+go*{mCc*XryyxcAX*Aix^8RoVWlRzyNf$xp?=ThcNR=pf zw4*ELV2Lm#bMx2kcaY>PUA8&uetMl<0QA zjw#3|q(Sxe=5}E_&$+_(oT)h?-6^>RFbEINaiI&_(e0Y;RIJ$!)ivAMSlBL97pIN* zWM~oOC2tXoLCMb96$?P4)41rb6rUQFgqkW^q?$=Y5#eZeJ7lnifC zK7RCAOkOHKOaB8d`@2NK8+PORjk|Z1E1n7%r?ZAFDIY(0%zZ&ArhN1d9;@={)BZ<~ z35KMifG^mG@DCn{UA}M`yMF!pHDlq`84?Cxy3~8)CY1}lSJXHu5)NOw*n5q8?#ivc zTZcYBqNL@rc6vSmvIhxh4Z|{wED7@>#&_Wb~f<*zh<-8<`t_pE?>D}*@_Ko z)+}GKYRTfIE5RCZFl)Ea`$E8~tiHY}Gd-J-o9wJ?6h2hvaex*9 z^3z_>aG-I?0iKqg1?1tRZX*QO9qT$+iCNQ|1B2l-C6Y6rimYKXSwksn*i3fI$N3^w zV)8TRmCob0CnY3p*|7za=BcS=ImcX3T7@#HsjtbIk%QXb_vyahA+ZcFu&RV8(8*n*aITXyW@kgBR`CB}@M?D@E}mwXi1nI7x} z!Rc4g6`V~6v zj?}oar2oEM+_m`K-jP=j{_Lrx> z{`~!)f4zSH;gQoPulGMVa`xQOa~Eh;vFuqTJ3sx5vT9*VQ|lUGJN`5H?UZ4$X}lhW5S)OqWndW6Js~wCKQuap zcT=Y3W3lnm#6lxdpcw+#H!zw?aHR5AU;r~Ur?8-;HY`5NBOsQhM=UC38j?P{v@XAX zNx}SWPP3 z^?tgUnCLBxFqpB9?!WIXIg=3}3eyu7*ToMud5EOiDIJS0=^= zvJE9XN2rTdXU~?9I4)cG-fGNtfews-dM9XY`nqe9z?sk0pz z>EWv!_=Le=j6b56mXc0bQoHAsRwiWSs$}n>akSdWnR!@hYIbdTQ$b!S+Y=jR@wH$) zhxq!K#TW(%by@JovhcKyXs4vlf{uGSFA(HZ7)m3HY%FZoBp06ZQm+B*EVK^)E87Kq zupQHE7qC;x8p`{3?{kl7jH@_E!@#?&O|I1zhKr2l6-XeRui#jjzA?`r_4V-}HQQ z?$YJcXHNH=?m61?%~e8lE?&S$CW-f?wY^o@l2*Ly!gdBn<19sgVoO)7#oCvzX z1u|>%cI=~$k6=5tY2CU_YzETTtZQps(cZSQZRu(ZQBMTqN1c1IbsIX?Zcs5QxF)8i zW%+se3EL6sf?SX;8kaU~Zz#91=9OTUFtY{X@;1G zjy+IkpRE6I>xZ~sc*$n60S^wW=UvvYJtben8hVQP?PVop>o%+d>=+fCi-C8pz*qMC>HR^w`{enZ@1I@hyG8lnadeKJ_V^zhJ~j>b$~+&;bjdgF<(oxfE~ii_OLxBJ}WFHRc#iNsw@(P zsk$IBs4i?*6|`t%5|)sXYYL1LwgdT$*`)>bO_Z3B9I)q<)n}B{OX5VzjM5qmyq7k& z7t}VV7FCL6%&n1R=~QwGo8mGG%|w+m*|a4Luwyj$uwC#@InK#rFqD8@@GfkJ>KJ&BNy*i0XERhiB_Bk7 z3)o-Fc5_e!tQN3S@>h`gJ1D_BVAptu>KKGq&4JaT!A`C)fQ&4+W;>mCEU0eS&O${r zJmvq&cEP*oc40doL9x^6Bf32-IssFUFh+2@=ynK$ZWrm!ZE~jP%<*H#5%9uxq`R=4 z`$J3=JCqi-vywV|7TvDyFP7^A#tzl(d4;?92BnC0E!~Ci+;Xs8z)odAv?JY#dpC6Z zjhlU#3d=OaKPBmIFa#BC0dAjxiJzGM>C#2MPSiVLKihWfkoJq;h|^f2IO5{tL>^Nv zU$q`X=vFnfG`6i-vvx}-y|##OT;JG6LbBI@^p0&EluZroP0c(Atf3U$j$+3LVy)Zp zY~Y+HQe{AjZ&p$q#sWYwu3mII8;G%T+oo+8q8;N?($vZk0(oRPb=I?`l(Z4jYOr4F zvN7*c;g{;BL|#%7-pOyLB%WnGy{?tv%C9~Op z-MM>h&@SHY({|!gFV^u%7i`bTFNN)ZoeD@7L%<_J2e53g9Y~4EN|ElsO7O0z6%?nG zyuo%Q*U{mYXiP*qpQ2*JcJMBQ2k9E`vVXxlY!^eiN2g{(b@6zBbiuo@9lXm+kd6u4 zp*ncSXyWHKwqt-D(_mM4cQJu?j0&P16Uc*BZDSlg96ih!2L{qn?39Y7gSs8O3)?A8 z1V+ZD$!1j0;o^j$!U<7l$sjyA?KIodW|V?=A-u3%z8bb`=}s7vNO#fgNOya-BiaS; z@;3$V{6R6mj&6tTRJ3kad?rNGknX~E0XtYmu|svFJ0*&pMYCO~4z9`E`@iaTVLK(d zUD(c?EY@sScsJNCW0#--7`I_NgcquVUrdxa6-fT`Uw{7n|M?xTvyz*Om6WW9?EoD0 zuGx-T2FQbSHc%@O@HhGZJ0+rB_RObXJ75=wjAHwsPewhVKl%Pz9}GWFTAOQq*Er7e zXU}7oZ}c5KcJ$Z@vXq=Ysl1(Mh^0Aw{?fstUmiXF)fY#<#6CN6?Bh@NuG_c~LnPxN ziHeLOTzR6?#DanXvN;j%$k2t1g0iBDx;gV|^5)ggDxcrdx^n5VHS1QbTHD&bddp^P z=`v1Y zd@}G{JTvyXUGNU)#XqB9Zs>MCqAD8fhHk%co5UB4lDpd9e^g+LU>W^;N6<-2zcbWmhNGsF)xEWFd%^51MCC<2;KoN2-Wx% z2m@ar{NwW=V6s$f%Da7cFYS_&x{g24{OAAjM> z_1;Up-=6-KNt5?|vhTC*&yIY4L}C?szWI9hM?2_eR3dcKrh^9#c6WClI&^3=G+wd1 zv0>pdh_-miru7?Jni>~3EUc=oDk&`q2@7#{b)GbCjKA53AeQpV^7_Ti*+s?C=~<)! z@{J&eb5dx^v{}^)=2q2Cn^Ra_yP&AFqOhu=qG@T$oZ30_+e(|3r5BV>FR7kdP})de zW9zcTE$z#fuBvZnD6OcRRZvh^Qc_!AyL9I0w)b4 z(bsbe=i*D}<80Q{*hEM+kvYtMTUAqwKdO02b7fUE@hyzO4Db&iNQO{P_D_)ZlEq8v z7A`6%nwOP3r(;Lwwk?}DZ%qpq)Yqt3Ak|^Ie#7FG%U5swaP_9`J3l#q@p!`13bt+g zuFkz(VhbCa!$K`$Th=b??KvTK?yK&z$CRD=tc#MD*ucAI@VeuTS7jgIWe%5fJ(M>u z_B_1ZD<!#28)Ul(?^f)lHfQCHJBUWtzz?aEo4D#caKimCfH%~yj znIV)%EyK9unp;{Jw@Vori%$l!DT5>;6e*SX#4#S3Kq)SifY1bM6F5_{k_`gF6MTaP zN@&j-N_zunbk52Ke2|LT10UyG%<4=uq@`RKu>XevddCJL} zQBY7!NN^+@(^q1ctA_{1AU;^l0*Z-Llsqs*#eijA$|9))fU|5VQ{f=p*$jpY*k8+b z-nC&nDJV%aDr^_9*VNR59iciUkQb`UU4XzA#ZC#;v6nx;guu^#e2#(l2M-KyjKTK) zdrFOKnCpt{N^S?W!C(g~6}CZ&u|pxe#yem~dR@MLi>(1WN2Nvs6_+qtyrZLoQK&3i zH*cz~uFjpFlbfAQ-za%wVCnkx>xpa0NK1=}jEo2mPf1EHD=w|BsF*b)mysq!dHeeL zk~d()u%RP|51SG{Wm@*M{Nkd7j12$KP{tg%dHV%N#YUxM$4GPr2Qfs5;V?^@mw;UAGjnGWcuxpD+t36+SKcBTpNMpN z3K+9FEoWMFO>O(KRRkq+IT4@F_)v^Gp_O=?($mrbI2fn^Gi_>CbX+3QuuGOMZ(Y>H!yO}@(o<6yqB~<|US)0V!qz1V+g5(G zd%tG8qB?_NF@x=ZJ%eV^U^`%k;XU157#OF7>e$gPl|AOf{!UEZIt%u-9Y1pR_z~Dn zdH$p_2#;Mnb4m?B&ld1njU~*~M4(pRoPvrC#jfnX_OVszYyW-TS*RAP?AC z3EQchINbdvw)0dg2G}t*7o?g9__%nWENnu zr6}Qmh-3^DV_qQ%;GK5`?66(vE%|tPT*V=YDH(6DT}s)H95Xu^$RQB_3he424XUdS z2*M*{Q>BAd9kxY9!tf~tdG?IApLtOeRP-ZYr{s7v*oEyl`2jno&%au)&W0*syHK4{ z;~lnRd2`A&+o8I~yKyt7YPM7H^5$Vgv7LTW*vo!@V6+c8@?LNcJ?WTXlIdUYS!KBzxUObUm+tI{l{=-O8CQIY6g$g*3`_( z%X|Fj5d*QwC<3wwRY&(upEm8~%a;t9XY4cILe3M_s)mKJ+0mm%i9h`P_usv|JU4FK zxOMB+u<)?>)Rcgb;4hCJWpFo1?e5;Yx4C0$+KgG#b7w_FM)N6l;^FNVg$t{wVs1^- zjIz48^lWEOUyi4-sVOBXC3pIag!n{~vhi_-V}JMEcMRbyE-h|tUrH~ixMCnYtmcP+ zU(zG+Sq9fLEC|>l+6lJL&&y}f>%DvTc5L5~l$gX=eu6LoJ}c!I7$Hl1IawD<%E}3q z=itfL%}{hwEitr~7J)s(d5#u0)i>XKlaVnsIVCkFmLZ!7d>uomXz1mH5P^y2=giPh zGHg6GeJW2Jl~t7$73E)kd4y5n{0W$XEi-pI&lStpb!gpAFYbV7A7ndVCpG}KmloxT zN(bNqc40eU7rgUQ*sdx@xt??!#ReV8^UC>!B$bv~xYD zu%m|$QTARuhlzSeu8UnfcV2@Xyd&4G@h)sv7vsQ$k1)>hf7iS;I$U4{U>C2k)@mR=OLVyle*EMX}4wbh(v{+6YsGqJnohe!z}y zhw1`$SSq3&4~gjZ0dcMZW(L?!MOLCS@q5UAC^>TZ?UWEcj=}y3SpyA_L3M$==ys&L zs?eYqzI~30>@k2HysKm~#`A@g!geVU?HG8cq+#XEV|=wJc1kaEupnL3yXbaAI|kcD zx>G4FuYHAgL$_N?cVRp97O+zhunW31*ol7BY)8FA`2UdY);<~LK7j24c8zy&$bfgv zcJK~kk?t53*se`{GOUE~!gej%p}H3BqQEI3IUCDMWIx_`c1{Ui@W~7i-b%OQhhcl9 zyJq{7r%%qDzp!Wb9y|{ifMUQqV8jCh(3trb!jnj3)X0&95)r`9(0F8UeqJ79pJ6M*&n}3WmzSx zCJ_*+LP(E5tK{kFm6(*AJ0lNSPOLs_*qB_q{K+^am%PCY*4*Rb{90ZW;=%j;YGKLbZ5;#f2$Ew3fRTO zAtQu`?U>P~sJvu?cMeb3E*}@RBifmFySAZS@DAZ&JKh+iJA_9)DgkNbmVxaUx02x9 zn(b(E8@5Ar2v4bfGByqw`e9`e-Oe*Ow{x(u&@;>blqLp_dz%77g0VOr+erdR)Q1uB zaq8H0s_P{`p#}6M<%3HEtb(9Xe z>%lv3QA&k6M)xahr-6`%09pC{lkdMi`8A!A406xS%>_{SsBsr8TdGD6;l4n?llu$& zBGef*$si;A((wuLBY{akXn1DM^u(l85;?M-?P&$bvK2oio?OjonK|K6v5rp891nS!m`#_Ifb8ML zix+$yy!G<&B?V>8{Dn;|1WT@ETn{0TL|oFBn_pIL4hjb3d=}MBT9V@85??>dl$a?~ z;u755JYYM5oV4?)Y3YSUB``e8$fnL=kkE!whWz7AB1JhrkiO}hoE#bmwnX96`M}Y# z83$8STg%)-987SCnqrRxMmzwre|mFLQc_9S;^OMc#{2{trVJc6Q?nR;`{cLZbv-Hy9O8R)uJ|;=WIyMulGhp--kb*$0bMqQ9v}4Ei?mX4Ci;9%8lDe|}yN>SN zq2AiR>%@LgKVV1p?!tIUNuC+8L;H4UZc};js1MU?j&$u3JKD8}m6WFr>_1}EDUTi4 zFGgKfvW;wi>Wd?1kDVAW!@+*^;GyolU59q>K63D|SXU=eQXQ1oo?W}ejvPKLY(Gk; z&LG=G0x?*%he_N|^-$rl7dv_c8FBR3F`P2$apTArhorJ+_fA^*h4l-?2&jmRO%)rU zZg6w}le>}mM8&rgDq{rW4Ki7=)bPDf5%P-^mzUI8DH~7$?5b|W)ljOoz^bvJvsK7X zg?A;ilF|}1@W?=gw<6=S#GgcLaA2}t%Hy~Opqo6!Ee!y>!Z=0@RIXR?DC-{fX zVoD${7L%OImqsUNXUtTgK6uncobxS_(aC9Kk_m{!__4ARN>@`bKh4Wm32R$Nq0iM6yW$I45q7`UXs9u+5Mrm6BL@`qn)LOw}fD&485 zN*0mjs4sM#@EM-VLV`8!P1yjkDsFahxofZ^{sFtNT|N%gWf8XHUyYeEI5$T{O=U$5 z588Y79uT~X2p7U1KiTv07Y2~trG)KjMr^WqKzM`C&!0S(iU1sO4%I0EJBwyMphl3> zB8W?ePhqU&v!s56>S_ZLxj#1A2*YX5np@XzF#rjN41JNxrEKKuqa=kFSpw)x#H&zN zRtCh7=)}KI%bd2LcERGt#ksjT;E}cfw@lZ*eF+IuvNNYfMMU7)0EW19Nc=_0J3dG* z#1X?sxHzjsfAElZDRIsuBqj0ZA`7~(9oAJF@Nm890$x@|jDCp{O9tOh%kBBQ$bz6h|*a3xfN{|lNh49uq2k9tnVY^Tr zB~JxO58f%^^Qj|8ko1(`9kzFE>wxW40J|7$=O@Er$vLs@?|d z@)EYQPuQM2Emzo{HLU==0~22Z>;t7Sa7OUXTN*e5a2rswfeqNz-VDwwp=*T1tJ3hv z$Y+6@m5}bk#P=IfYn8agBf-!duTJEugk$J7C8^y7H)dS}?$l0a8_Z zSO{?$z`MbA!8`8)b_kCS2khDi-G3DbWbhoe19{DM!eF2}Y{xiDw28uYDzF^`?0lUx zc9fV<9l}$QhXu|Fcn9q2$;BW%CxNe~S>fB!=TKeP4%lZ*&l7{{8t=);sTc|$ybIWc z?I0bz>o^$@jUZ=H@i7M5;WJ3#ftrO10W-pOJ|$GQXFDIaVY}#d>^V!PlSwyTW? z!7gmab;EEZ{0wwEN+MIr$cRWn2gwxx-Vv6xn4}Yj^YcpPZCbZ!$JQMS>T8+8rmd}Y z?%bk`^wjFAd90Z=V+Q@Ou#|k=%o#_?@TKwN#`BCriMI->qq^UxJ)Jm-No6y#vs2Ti zB4}kj&rtY4AS4G65zWxKh)GT^yrgxYb2dC8(&Xuh&mS4g-@@Hwii(NNn>~j-z)O~` zShry_5sGWqZ)#t*a&|>!Kv?)RBPlD-4(ygZ-nf-WC(E@F5gO6lyqKO5$~lE|D=TZD zYkUHeszg***YHR}p0T2WB05reeo4e>z(K<9NT*xJuO-Dk00kcan%NtH4vf`7!Ju7=UPI%e~&I~OhCkj`; z#Aj~%aK{c(v+wPq)NIcpRjeV}Av|n9@X;0lJCGNcQ+9vUf!VVi-F|524l#(@MY>3X z?Ub-xQGGvMoE-vlz^vmzgDE3od9f#_o&js&Vv*V_LLR;W!2CltOjQb`kAN_og~G zjig>iT)G9Y^GlKLuwC#jY{$0)-VyLxJVRP*qzl_6#1XcWzgKj-W;=uzsw=P~-3QMJ zza6A&=`LO%@d&XE#;<_z^1ZMfgYDTf3#EkWwbe~RcmX>lx?TJ>!gkzTTDL=Wy@>V} zyj!zfz%C^Y2d&$|yEs=tihLGW$;V+kgx9(qlp)>48$*eJmz)ECz;<{J*d-`}3UYlw zv=8cbz^>UofN?{yOMz||1M=v0p}O+b_dn2rAEaYQcL*=f3qpA6H?Q5ie(gG98#gu1 z6TIcHlycL?O|bpo{)1n1e}Ox@4v^K%$j+VH+gg{@GKo=j<*L<7 zcYm^D_s84UuUko&4dRv#M+lahloT5kMJ8l?UnKkG{Ih4sOy< zW=f*>kBB5MuB$hPgk&3isrY2@DM8o5q9PKA;DITcTgJ3YDlgge8RZpKEp5w@%@vh3 zGiK(eq)weRV;1e#qJ~BE7ZU&piqq)?&6ujXVr%OOWhbVwvZ`)Yeqq7vqLR{ziptt~ z6*c6-VG1g;i1Tzp!m^@*{Hm&&n%cUY+!>_#rCXWqV0v4NO3H}IAykr72_(kMoB98- zcK_dcm-U_R*P36ZXV%PFozC=>b8PFkjsulysVHJ82%<%kodlCMo!uvpYrI;hY4(})(A$Ire5=b8z^~0qY?F06#!mfAg z-hDgwj_t&^SJKW4!`b1MTY9;^klw%^q$eWz_`|+1Y=`&pnv7goCcZsonbxT~lw}60 zHv>P;_Cm2C9F6UrQBYjaZa50+MGp(njr?+}q#0<#yN6jl4X{06*9Izs_dz>Mt;WTved(H{lgZE$i_eU9#POR-t%&zPBhv6v??0L3`+rl#mc%N{D73UHO}5Fgm(?Hpi{a<( z(;yM&CExz$x19nEMR0-5+E1-DV9%vS#yT1d$+6$E`BywUGLW17-WUAp{?j*{_;&La{_)%2`JNAac=<;^xpC9x z$&H`euyN|bi`Sby(soP?WsS+BZLQ=Z$lFuAAPs zb5>Grd~Rmn4YQ;dRopvoB;?%wn-;3HenTs;x5~`kn-=P+8|F)6{ind*F>d+6TXrQL z`uv`QH}C4Y{icQFdv?xI?RRJGh*HU~&Dup9;b|`_V02@4Djv8SzesZaZ+V zIq44Gb^kqM7rpxM-*fkUUpho}P1e}>_IvNTt3Pxz5!XW<`eN1I5A565b?1IupO1RY zXWP`qHRqqV{JqN!dK6XCK7n_vTaS*MY_K&Li1-S2yYsQ*|Bx_V+48({KKtuQgw>NWcE?Urk59@kGMa z73ZxbiCcdqmgO;;?l?2j^zCh+l^tsUd$JcD8E|=~|wA z^2y_D*O7|t0Xw$CV?Lit*#6?rUZfCS0|p!0AOBlWuRo0qaeusl-FyKahU!oM;Az74 zbghcKI$VoYkon&CYnV-o*v{LhZWH$o?4;$7{_~HXeB#Lmzw+R|z5A49Tx$vMB8WNH zxGq&e{@dUBw)oJ44~c#eeDmwyBpWpQ$bBd_4}9xuU$en)eC=xw|Mg#g z^($YY2kyP+n(bH3UcGJQxo7|OD}TH0TKk*-?oG$NNulGc_n!69kA3vwiHk41Wc|l3 zSpDwzyyukD-tqQ#y#0)2XS{#K`!WBL^_PC?!izt&>iiF$y%N=p%rR>Hl8H-P;`HwK zyzkW0&p7?v?>YP2mF|D^o)2HR=8{e8H%x8Wx^46HRUiN4`cM4nx(}ZFkz@Yognxb1 z@A!u^LPqi2)k&XT_vyNHc4~V1in^fH*@s~^zy_j|7-qA5`!!czeeI^tO`AV_=Z$~% zXP^J`9rFvMJY@;6YyVj&wy&+*6v@p>Mj!py`R3IA-T&~qi>{bmxB0q@x9s@T=Iv`f zw{`8*=9APamw#y0$1nQ8d28SQiHVCZ`^;5WU$^7>o3?JBbv5hfHeY$gm0Mkn+rcjB zV25{92hs@AJKin9c7&%rI}YQ$cb+Cmy-HeH`p)4D5H`x>qEtzEW?Bn)#??Qf5Kd^T%!Uyc*Y`^awBPxsSJUq6GhrW0) zvK-sHP`%?l9zJ;QV3&-ued^M6@ZQ;u>ImQ29#n?yqgZT*<#OP0?f9DdjM&+( z8J>$Fyco7;v{Fu>iKrgDhwZ_8*q&RS)fFfTr!QqYykk4C!#joT?6<$*eMIPgqgO6$ z=hY$FAH0hkW@me-o*3UA>psqQU>|2Y$9~*fRPdIvz2iNFl=$|rJ$Nsq|Lx;p`;$*S z86mvcdIR=;Ug&IR+Jkp!O&un9w-DQLKKlyZvAyFx&6IIKTXE*Dzqkv}Z@cw2b(p`r z=Pv=Dt9M5DyC42t#?OnEIDOa)eeb*9`^Ljx6(4>0Yh=lHzx~)#-+P?C`|WT4=g0r{ z5%ZRO^`V_RX6LWF)*!>*dDZW{;&)$Rtm)b3p6gmpH#~Kvk$YR1KTFNreC2D_uDNu> zrE1#iFI~U+O4CDLp?L1nBy|i$>FFz{{UR`i`NB&kT|f1yi`RepG9%l~E_UUOH(Uqo zLY|HK8q^@>;h@w?u0 z>Gm7xvh6oseAVnl)7Px}^cBm_|Mc3)D?fUXInj1rdF`$n7jM}-z5SZ&cDh#}q&pe8 zrn1J#OwTOta-rp3iQg$P?UD|5NoTu+U9Tlf`xx6nK3-ZJXFI~z@^0O4oV)AJeJRCs zgDtsz*8-}G2%psxty|2$c^CKI*mG3y@Ne$N7N)ovOO^GH40k`+nI9-a@JF+z`uF8__S7O z{i;km_s+4$W=l|g#U~~QT{wm9E8KgO)=UQM2%pM)+&j}wnQ^y+eF@tk9oU2SlTJA! zR2S<-wb7fBVRiz2zGhT=(}}^m1k%%uD~9c!QlIHYJ*GVmS8PZ)jqAr&#Fes}^sZ>({Ly{Ec&9 zf5ZH>^MCrOOAJ}mC!oy2Z(noOHD*np-!Y$mh`RDq-{m#4I8Sy#+qTzrLpxfVxw)Na zzqtDr0{^U)sIpJnu9@Zj>7-L?3a^!)Tt7Lp7)@;7VZz4`to_`1lhf1J-8^~a^;>t` zeAV17TdtZR9R!t_Qn+0#FA3O1_y6r+uf2~sg(Dl>-;-Fv8vx(Ml&w212a_U)lX!}wi1b@0HT=G%dtfe+a8ZlJo`PDR)r zO|4%WwkKkH1n-b;{9ZIr{r6l1T?KYDhF`o5hbw2xS#*@kK=)pd(Fv=lQp4tJ#0zxu z;aXZ4-=0`VZIXu09rs14igZR6^#iJPg=HEqmURVI$vr;)(CovtrD=sC^1G!E%ol zS}R+yFARU~C(nVog;s(0AAIizp7pRxvwobwn^^Dn<}pXRt=_BWW~OM@wOb=Sq{hSSx_Zl? z=G!rC*W647!0fuNlD1@a&(3*C@w{o*wTJz@B~N^37!`BZ9d()NzMJMFsNco;r(!cd zw{X?8#@1cDW?NKSyM70CKcDUQm{s;(H@CQb8%aF1c=fiS!KfBgyV$8FU&Cxlqk_C7 zgBTODe9-}1J9Ep<`AGZTX7PHjcW!>$R+_zHBdTxRFhNrjt9$O@_6_ScO{|%`aP^i; z*UG0ZSv&cuHS0dH`kZrCsu)M7pI&pAki_UGqfG`KecbUTpGh36Z}*8M`Oi=~vGW|O zkN$mQIZBWS*Pcq0zaYyXPscCfE~J)L;!ie(>O z7oDQ^02#$J~U zj0#pZJ9KKa^mm_i{+hMAzb?OGD@i6V*|_?{t3^i3oEs+O`?%o> zAG_eRcb-PTu3NK%y-H6<9rgRa|NElSO8AWJ?n{X6;B2IvsK*VZ6J5cSnvAhA>Nfcc z+wnZKw@TP7JwOhn??j0?Wvtv9g?QHMhwWL7$xQoFX z^MCYoXL#C(+L!~RKV0JHJJMP1pk88?Y&ksFt4noVQw>xa{)tF1RR@d?NgoE4Fr=njUI) zZk}qU+~yB~o!^G^u)W3ExvK}+*RZ3_Q!mSQ3lD>RbUZn#En8>TPHZ#gP}v+b>b92KM9r@HDY_&ht0Cmv0|k z9wpIUV?uTC7kTWk9fDvP+k^Ml|Ix{&M(nad!uFLPx!~+o7c60W2p_Q9NZZa*wy*lw z$HR6nEy8xHNj2MObFcK2cP~fyfL*UEwjclI!n;W9Isv;Q$!Jnwr+TrYY1XQ@dPMkf zwxfE$j_m=vxbvpnkRHK%s4f}<*})#Rcf1=01HWR*=BS>(akeYY{CC+7<~cRM`#9SR z=|>%+v%ExVXtSO{!uB<*28v!C_XpS zp5+-oqvQ_qX(J+hVv-K_u-#KZw}<1q*36QANQaN}$tU@CD!cxJa__{?^X;+jX_@GR z((&HeZhlAVDx7ZKj_TMh;c>gd_Vt%+q{+*j%jdUTH7lB(65d5J{d>ndTT;&C zYD2ge+vN`JB(ix*k)Oa^jANHeu-){J(aMj0oWk~iJ#622*`}~v61LY=V4qkG>BA3` zF}5T8Ssy(6xVQR*p9t~+``-O`+AOdy@$GT%%g#Eh9DCEUGfo-6-h6u_XW>0V*%!8M zqO$9a?FISyy1W$O#c{R|rI?X>fA}x&E3kVw=AWyQGdCOG9;6q{o3J|2#&*8Fa1HY9 zsqnnFT#^K^1L55Qe#7L@V9S(+gD#)M_PNBXrd)EnsI277(sFnwYsIvO?Z6(@22G6L zBD)^Jb$D*?9qian9xlOqXFIBsX`0Xf=y?&suR^wl_cPyh)+y#B99j2(Jq!e^!`8hG zl~k6g5_*Gnh>hw2JII4J74b$5!t-!G9zJcBu$^z`*ik(K_BdYA)(F_^W(Sv!sa*xn zw8Q(+Z+uI~JKrAb9^cNiceaE1N$)tzOAFh9T>|NpR}JYg?Glb1)f0i;G5BF3fpiN8 z!vE1pDPD!@d9fhxu;1{OlZbVP^vL%jYzKDA)!FbaVcO%{JKKHTdQGNGyW69Wv3hbz>exs3NpcaXS*S<*beLwq^BkmwsY(VFRIDJw`050 zM?aNh{^vx4EW1K=<0_qzfBn~wded7@3ftNBNKK}jcE`Z9`yJ7JyAK=dt}>HqOsson zJL}G_!+Y4yvB$JC@Nw+oiSP6ibp-aa&gx*7D8-;U%9VBBx+!IuimfIihU&q)yh<^; zb*e$x^={e^gZ&7$!+W&Ex7%s(zQnf=pdOt9JUmSAEFAgvIvtFj)n;6%eprp?q54Z= zV|#X&^MwfS0sClcWyJ@znoQ?;e7lFht|mjZhq(EQh}NRY77t96HTjS33`iG)JDrBX)kuR!+WYRBfkyLg?F)o{a3R+ z1(_q+t{`Ljt*{-~qktXTNsj7ayJ}3>E{5&!?hQ#z2Hq7R+!|T_7Gl8rdxNuony}*(;i{Ff=uzf`SvAj58mNgHHLLhO~zzd zo$cu}6}9PX=l`=@|7=Pzzx7+cWxrPUWmkEKyqxnsae;e)`r`L^O;o9bCo*7_|v|-?Tn;^O) z-NT$XBwE^XB-hFN%#WVQF0!v|L@p84f1Y`!8i>#Q-BbEcMSA`xPe1*4PXN29tJw54 ziFp8MRDXxsJ~o0{1^>xYA5u!UYDG6=_wmdrC*OKw=~+H~cNk-#LG+qKxW z-7R0|7uQ|3fvl3%ZNXHfC!c)MnvZ{c?yBvxTQ_arJV_8eKU2R=5*M#CHl`})qCTc> zzjxg*PkU}!&~n%O{K9o?{9>Yn9)9qlC%*HTXQMhDw4%+zHC4(kHN2zf!uD-lf$GvY z&A`{KvgW4CSIZ9y(g=v>=!LG16(Y?02hRS>!U8#GKhLI$#zJZe_Z~Tqle8sQ*+OL!3sQ>G= z^s4{x20HeQ#@inw)&TYQpF{cmxb{!ixK(6y(I+mTsY@r#JzX;~zV>L56n5V5hemfV zcV&mpeDYC9P_7`mz;kFP>cXo)zmZsz|QlIsVP3L~;1b z-nWwan^Q^qeX;!9k57DNOY%g+1~T+lGJE}EzlY1+_uPNr3wQ0k^?l=` zS+VkzQ-+@{W_%*k_xbL))JQGGWK$9sq5IR3Du(kY?WtUaxBCNjv9q0NU&3}@Q+RRRG^+33eG5s#_BIpJAyjt{ny}p*yaU*OJb)eBU-gq29+i$;hZ^yeCwh!ZdjO{a5&tkhsh!nOL-W%KDojTj=^W%Ja^fAHv) z-X6Tec-Srp)kOk!Cloil!*)~;-fOb-nYpviHmbJR4(VaImPfKZ+d*}oE{I;j_PHDP zM%X?DgS!^RZ98^^>LS8-u-gK#qk2?Gzj_OS{K9oJU2`+j5w`D|pX~~<;k`P18`Y5? zh z>MixUitvrp>n#q_ndU)aL;rw#hMB)9i32aAoyQ}DGhv_Zd!^8WKU%D=A7nd(z(eWO3o%!ywC@?(Z zo$sZS|K#+rT{6!0s(6g>p3#q~;h;L%nuv`7JGT1?+1c*5WM}&cZ#z9~hj(B<_3dYb z@SW`vNRO7CdK$1F|CSRw+XHrS^?9o=F}mZrIbVejefT^I;eCwH{@^O|qC)la&cA>< z+u?ogxf{C2U9a zl%2zNz=8KT_S{Ajp}P*7_8&hD>GAEc?qD0o7k# zwj(*P+qgW5Jm(H=vQx=ZKh$kn>TECCGw^@+1gg`EKYc!q-L2Uq-}+WvkQHHj$9wLc zAg=t_`El$b_a3%yx_nDn_c6A!>+n7`vq+Oy4GP<1+T+`q_Gp~#{dZGmJ7|MEw&xZY zVSB(1@}2EVe0zW|nobRt2h(nF$nL!{LSkooCA$_;9os2X2X>_)>qd2I7=gVoxOEe- z4}_nY#&-N+-MO+@cZ9bP+hg71+r3MyJEVu|iT=F^n zb@dF@pqCo=vIy)Ud?-E6c03<<@7=d&cZKxNZ5r0{GDmo~g>YNaEPYvYNvK}FUFGD` zbusoLbf>oz;eov>>W%Ozyod~Z9J{qp{jh1rc~p-so2YGeyiaez_W1Tr_)6N?cwlGX zJzR6a1tC17U+~fMNdoCe7`C7Fp5+AWby?-gx`}ht!7jme);;QM_Zh~H)j&!lo_U)b{S% zQ9agu-|Yt|cn{cveN^B3g}X(*echVDx^wU2zFjY;zpy>fMtFEXlI_8JXFESX&UR~c z>mJ`OX5Proc3)W5J?_1;U1cVYJ%mw^p;-6$_Re+>gZI>ALijj#gm;NkNE;5vglCCw zaj(Wm!g)!jdQJqv_;`f(KszW%LB{r#Wo+5P&UQ)iP(AKlJgf%xRAwN(tAkylCQtCL zGSk`4y*rQhnoJyfXM4vxyB_O4&UOaAgT1qT+_#_gzO#I8>*I0ZI`6+c1sO4HPfbPy zcD^0hOAy@@wzKZ3$z-7ugzv9^>%p|+-mQ1OEZYNiFAdvMkV(zoy3Py3>SJt2^)5(< z@x<=ieT!3*8LWG&$uR8&`H@`*>ilbl*rvp#5Pmo#%*~c>9~EjCcqG?2JnsqA4^$tq z9oP|GbW(_Q7hybJI!U8?ElD*-g!i!BT9P<+cyEN?(D5Fsr!rG`Z(tWY+cgN-(@7et zr^cSDJM#CMOnkeC@XoYXOiiZw_ON}38zxhh5ixw+w+HVPTX8;khja)fcvlq(*d;y^ z*j`}&@T$p)bsg_&*QoyLSGo4{_psegxp!UFC9o1R- za`o?9iR#!+VLPhByQtTRf_L9{Y)|CdDTMDe8F-Irk8j8Jj`z#}oSFu{!0B>&dB;r8y| zD{kC45r#!6NaD4YA<6e-QaQ=z!JV8%B-jcD^t(XSY=B2gwY%_#^=Eu(r zdiI%TMyf7>XP23(UbJllaI?i_4s%HMsyM4$3L>_nBRMK#H*Zm z@@cC+zFOZ(+1-(L-Li`oZd?G>-3tpThDf$tQ`$5Q7WJ9gW`(8s?xKep$3R2G?A$ zx(@s3V=^>doSIwQcGKQTCj}j*x8Aw&s##jMVQTeSKYophEKOXv)?hoI5L)%#6*HT+ zV6q5(3w}OawS89`nhx6Vp4d6h#}0!@^e49V8e4tOjV=Opf&VU`uCh#%e>j~Tedzf9 zTlQ#>s973|x9_f*)uYAv#XUFKNX1<{7YrRAkFFr{(1o=N*Ud$?8rlMgB; zk4o#?HcrxxE2hL5W%DK^@3N%8-lD{cynPa#tuq_eN82xL;~OUw)yubcrN*8zd-v@d zERfP1Z3s=+hC2MW4$}&no8zyLrO>L->yI4N~HmpbETBv&8w8_r_<$Y(9 zrm4xv$&1#JvGKI^^2u6j*3hyuSDbmKn_&(*=l$on$;H|~T`SQgdcmKr_4%Kg+LDUBh*UL-?9wW^b2xsX zAoH3}u9Gb8**mq>@ZEK8O)k>Z^j2}*rIXQavt!?OySv$nY>a~H)~jY{_sx42Zr*Dx z7ffx~vhDUmcisQ>hsCL@j6L4Iuz1VCFMXNr`>XrS`IdO+7w*3MUJvgs9lCq*=Dpiy zcG#xwu=7`6K(6<%pXzm|mHPcs^ZB+vtnTwbrr2(YZcuU5=**+vvWHlU`O>RY=2rkYF4`>n3WTS$5>9?4mdDu!CKj=YRHm z*e*f!XkdHr{@gRb-U;8?j_|g*`=-Ut_Kx=sb_uFuyVIfs(h0J{c2vi9gkRWMrE;+d z-`HNbZfwW%&USbQb{}ab{BW#GlLkRLyn9wM2KE}0`Q>}=qr!V*`x);z&0#NFc2;LQ zsuR3p`_>zFQ`p|Ye%iav3e`oB4}^jJNVbRPWy=kB8I5}Zc9y#a3Le3Bm<`^u&4>T` zA#ZF4dy;@1&%3M=wu`jy<`S@%76;*Z^18wl-Whu*L}wN?s8J_xBfJ`mDtZk~q@Ww6 z!*;Rk@n!3~0&@>T`^3JM6>0iXS0SwfWJ$3d*y-}gs+_lO(;yw^Lv=`xLiH^M#uy%R z;rXZ@+0^Xi>%(?QVZ5=ZV9 zRk59Kr%*S@RW?Z?2E}6BwFvCYTYvcElfz7sX;bY-Y`6WsI@4~I*!yf>?DZKfYmchy zKdy=m0ekQ+zSsos+*Fc1R~|r#SWy*eR95c2vi9NIy*V5S~A8rXAsdJ;L@y<6d^miI&H-dt0!bV-MJ| z-2m6lcD{WH+e3J4XWa|zY{siz&9?(PFye5)E@9fcZ-;aj>=)QydM#4G9=2=Dw0Ga$ zacxrp`&|bQjfLcJ1mFr zV%Q!$cCbr8yT?v=iB+CBzRE9caAWY^ArI*RyV%)2GdTh2 zf_GqkwPw0E{U3y1A|dj~trqI&KtUB7%A)r0qjrUH9s zJL}$kJ9mxkNZ#2F>>clg^oDo7y|cXx{5^N0dKBLt!iVay?ik+H!T!V#p0<#0kGgMf z*8L@HR~L$J$7+A@8@B5q?WX3SD69!?%T%+zvy(p_Fp?EcD5JXnwbyYQ;qT3L4K&l{NAe(zJp!DvB$KF_MW~!4Aj)by)3Tgz%X?Anu)AA58o9=?->@O#yX?op&;;_xGwN<5W-H!5+5v zmg8VY`0U9#s7@h#FR<|8x>i$=Nlhj^2kpqiEJ-4U?ZG>$YnIB)VA>1p zLro@ZXWF4YB^pbdM22_-+kw5*sxjD3Kn>{#Z>>~g#7&n@V0&OLdbZ~hjy(_KkP*I; z_S#4BFxx%Fv4`!UI>LwTRgL+>6T!hK*?>JY8FHATFGYMiwzta6iNKz+47+|Uyo-#%FP%<9&@Q=EBcJFxr9JOdr< z$}+Iex~DRuaeRAfFDc8U8k1Tr6|!AHG2^DxLJlr>;DA zRkY>G?Sv16ioS+H|A3oI%7KRS=<>B@Qx2m~LDP>1RJ3hGKg5 zg=e4DH!A-8r`6R<5)TcPA<45pt{)fHO0;oDl{{NZPq8JY8a77(bIWN*CR(4kcp@kk z>$VOfAxzLMhP`w13nZVz>c~*T3nyG`Xq#(l4Dj}-mGl=gJZ9&Oi{xINboivOV`sLR zICK4c)5;I z-OO%O1Gjvqic|G9bS4M#vVVr(*b&Z)h5FG2P5M=5jI`fs zFzS}Tyg$qm56kU0SMP<-PH*iWFv+}mD%xw8>GT)z&S`4Vcg$qUh^7JeMVO)Ec2wb0_l&d zsC?%!v9lf3%PP0QhgBFs&c=4}*}pHmC-w;>$Jri_9h}y#8{6$vB3ja8XRn0;yJ(b7 zmzEU52kByvo`;Z5_66^GrQ_R|TbTEu^}asqjF4@L2;ccBG1YCy`}VEdBZLogpjDz0 z9I8uv41hf`z8cK*`d0fhV7`n;nK-E;AVHrpG$Vm2k#PKAHY~Wl^#|Dkk7`KuzlB! z4gRPey!XyiHTDs!D`|6Zp|Ql|iebCN68AHW(jM5u_8N%Rz}}HAIk<)T z*beXY?l-oJyRMmu3h#~WqJNM1ZQE*;dn5e(l~Wz;{Q0cwm0l_fA)Si4jqNj^oy7LS zyLvm|H^M`D7o>N#qdL4#u324pzi6!_rxk49a;dY%l!)qnSr~XDiF=QYFQku#L}ECA zM?IHBS&r?f9{D`XY@11h^kBBL-9Is;hwV5oH}C`AJKKR>!9;{~Y>y`l+kqY4A$`UB zSBQ2Iwokdy%Z81pzHNG#c4>zTDVprPu25=Ptt`BLJ*sarPIbg~pD}pXZIZ82eUENj z#P((HJWUL>I@{rW;-ZPLeb3E%gLg-3D!*Vnx5q;GPIU>k=ONk`@V|0@z>e^p?UMUF z{OUu%9=6~2z(c^EDEa5u4)4BS2)u;tAvt2R?jp#i>hAg@c>iByJF186Mt;J32=9(j z0ei>^ViJm59uV5t4(w0;T{(8tjj-Jno_ssDcd%o%(nm~tXSxuNC!*3aUq8 zd#pR8r^HnJZ$Apcc1ZUXF4GRJG4{dxuF-Hu7$0MMe0yRy?R@)iC)0*^?NR;Sg9j6f3Ce&ZJGdu_OF7Gq8d)pH|4Bm_IkUnRcvLbvrXDoYQP$JfYK8BYeO<#7&dI zy9nbnbfh-I=V2Us@DAzN9=u!5v=hAJ{8nAA&A@LrC~@T5<=9S=BK$>bS$8qMeTeOv zsrdF@dx7^3c3yp)=bi8!?2e?`u-i7suHi>n=vv4(t)r-i7S}J9t8R zOncZKu=}8f>N$P%-*l2J8D9?X+&iiV?49jXmv7?Rv7L2K^m&VKhxf4EKR3K{>=~pD z@9a9kJMrxifMYwbN1f`}PQFTsL&c`mZNhfey%HBLef6Oswi*twhwc0BI7q&$-M3ej zyG`Kv-(`DjdDsr@nEyY;b~Tw4WX65FvP@@t@a|s<+hg6Auzeh-96PF$h3tCw?Wm6J zz#g^_1(^}sfn9M1(wX-7cJOB16T^03uX91GsEF8JfNcetf_xk6n6pfdCp7NN*La-m zsNOYh*JIk1Xewznnd}ksZFZdAdDwplNXDN{j_`ooIVnl!g}+S% zc|2b(R7dHQWkPjusFuyK$GT@1Da&9xu!r!2W5@Pe_IfAvpW0OQpN_GeT?cl{#X@?j zF)eoA9>)&sbq~8kcdN;eqO7l_TRdXyy0SA6tL%*>##XMC!NOjA+}NROnZDg z;BfC$quj5YibC}xBXV}3dU@;?L-iq61%49V8{w-O1Llb-%M|3tYBCBk9DA&L_wBX} z&N1y0Y#%BxErE0}cO;U-$J27nEX)tC#86%Ic?i{&WoWz&s^_7EX{WgNfW108M?!dc zxXricV`j_Ikqp;>d(U##U6OSZed;>f+4TtCQ9S~4pSKib5I&CGzcmHyvF;u00PgU{ z%Q9L9@?yt(3NqL(8E5;QK5`s;tIu$-o$V^{9qddyuy@~H)fiwug6+CHW8F4RL^q&oEcbI;c=g&)*F>z_RPZ1nS=z3|Ml&p8vhs8!OhfwI;Ms`O2@{VLHsCmLXr z3VaBkx$F|1K;46nCe}}^x#*%4Sj1hUI=qC_+_`gsd>#Bloc^w5TmA(7GK=t&Hrll44 z8NOhHP619cR%tQ(-?zA{p9u0zJamxnI;ivOpm7c(8&==e$Zzd~hnz1C`tjMSJ^T07 z&>EYq0XA*Sq!(LY8NG*2KpyV8VS$P>qcQmz5tN4&M}_*z+f}h*p?=F28cOu7VxKzs z%oSz{DAiN0MEhqnYrMVEx@Sj4eq(s5m|rs+lxDYX%?2xJc%Q#|W_Ihehj~hLNHbS# zqFFQKm`S*izZ-jrB^cgc!u*U2%?9NJVPYSN%fx7Y`!vm6w|!=dX+`UNp;WSd?OKvd zeb#J6uA8ed>dgO|^VZOcGglb&;!VbXN&PI+1=D&roJqZ_d)k!(+&2fp@=`|f{;>H<|a zlD_SLTjl7|Wsc8$Pu=&HPI#MJtDJJ|8;|#;X3otCrpE3sV<2lznSb#w6xCgd^c%nN z8;Ul43?#Pu8?U!3*CY9odi#-VXW;!|I{|woBd}vTs(UN$z5Cwc^JwOFQ$dEMp>B*f zyua}C7he3Q7oYow=Yd_4XTw`mN5VvG2ljEchw2=-RXXA2gxJPdY_f6kD|7lU_T|K&fu=#pD8YzJ+GukDY<(g3>`t^>he zz;1Q2>)yw@gzfMi)m&TeI5l{$>zI@a7+@uIRfLg%-9N|Lwd?2tGun)F*89)y(pMF2 z_{;`p6I3V3MHf$GLQx5@JM0iFU>E(iMfGBM6Uvd_9aKwVr}ym#b{-hmi|~kd!$Jt( z!QPIzdMb;|AU_&s?xC;V5;=^!?tF{49|#ZWcGv1fdv@;%+bgy~n|<`ABuX)7h@h-p_*ZI z-Y;6awzuDO=_U%>QGJIYfKB%0jly=(KP9jy!R_F^Q{6*b%R>JgOBxt+0Pp0fYSs=I z9E}p9eDR)K=?ho_vBNN7`)4S_vw9Kc_3haS+?gC0P?5~ z@0ooC+q=fut{C+z*pBdF`zv1Y3Sbul@Fi?F!LO+uJKF>H|3S9Lx1+ktrnvVdY=?Jj zC%^am1izi7AcpOzF5-FE4)4?fD+$$u#IT)dF9Y8Ij_QQ!zW7Vno*h{pj01aoyXE~D z0)K6?HOnOdYzMoCo$c_B>OcAM)4@9*Ui)oxh=uL7?sGZ|p61vI z>weWE-2SZ9cKVztgL5Q_T#3KsA6QNu?5sQA-mQDUo|tPN;9bI{`{#&${kM#_Cc;`W{QS`kC+dI;Gf{FpVWLW4J_8H1qRHyFSvAvY?O^Y$@ zz~0$zN3hwUoy0Mi;88xDICA=c+ovt&#?_hI8)O&K&2QzEH7r7-l1N?v?RV=EEyg@!n?c+*t>NfXM4b2Z_$YDHjD7x znTO#4ySzT4zAz*5%ZDWm>><1(v_ZS>Z1+kD)w^$xX~%Yi2lmLv1KT^^19maKy-fU9 z9x&ly*q#{EZm^jiRY=G7`yaZWb+=0Jj_?6{lCV8PF|nPxZ&z}UZ#VmHz&_6QU*X&T z7unuxGGV(zN=+uF{YbX^o)Ub;w=V(v61Hm-yh~8siol-LZ2`~6***?Nd71&ZJV@_& z5Ac;}`lixevye6k!jn==@LrcwjZC}R3s!er$FT!@*q)jU$oHB|L4IV~B`L^2d#E1k zE{?wh$JSNVzx5Nq4)T0^tUJPYw)5?s?O=xO-MWugW`=4^Dl?;cg0Dc>9^c-)<`6odFKpgW1$%;*EP*##8p?3rKf;;b4`yMqsxjD<%Rv z4c59{d^BvfRpyJmyN7X)<0}r<{kGfV+Z*8z)zKchyJFX92*jZ;l!p)7gZF{zjqs2j zm36;$Z}2Ww7jPTNpX6{Hy|lc*myM9#5gNAp7nIaOmrTk{qg^%pEh1G(r>psDY%j<+ zY9#`DSSqRQ3Ajxfh9{g|djGC&bUXq-7P<%Sw*u=e8i!F$0Z`TsG))$1VB{~dkiifSB5yI!wo`qk&=gSh2 z4%~XXFAG-d#|({`;liddDx=;{6{XsE*q*VDt^dN?+u4}@&Fb7VaJ_YL>ITh0CaHx^ zRW^I`9=DgqYF8?S`CR?}y?#zqkAPJ&HbzTF;;_T;d%twop#ujTp?IkMh3ff9l6d>A z{QN=DMr_&1V$f~-Z~wdlYZrpGDvg&@%-`)S(@t2D_PYE?kvNPRmgL%EzSmq6H!esD zn5|+woRQUPcFy}3(GA@TJMg<;K96R7C2$(4etT-Xyxj9@HdTQ58mPYNXrSnDO zv#7zmoA++tMxBse4&|XZ94(mJ@3kY%&&^&nJ%8=Y5XYT=>!rwaE{=N2n-o?wqRVVvz+t*L`{Pvh!zBK6Imk#yrRJ9Ab%M3GZ6ipvdljT|H z^FWI?EpFSst;Wfmf5Gziu5kI)32!@*j(uZYnhL!BG7lJ}8{+8C)V`hh7WR5OP@6Qe zmurG|Rr(HgiRm9Lhj-B&1xhitAGWIr!+U2tj0ErFYzOw-3kf1RSIeL_wuj71Fy5a6 zz5W!o1A8Lt8{(B29zP?D3hyC2EMRzIk}OXQ(miWaViJU}~9 zb^Pt;faO*ne-_n)cY}Gtb}>Is4C9A)DzMvr!+SQ1?ZLaVk|nkouqS4+oxJ26s)(+@ zPR^bb#3lNWV7qz?Tq~h>yvJbc*OBzk6}D@J*uX9Z?D?c+Yxe8+m#0E?(XM^zw2@?+ ziMCnYoy`Mxw%5P_KS=MnJ8VbMfD}~wbw>5wX;cqDJS@llgQ9v~ucWo9>P-j_=8eoX zaIs*X@_xZ~Uj*;iduU&EMNrtDx=p|?wxpe98s4!zco%(n(LG<`oWJtA+>$Lwcqx!+y_EX`#v7M!tctyc`#nG$q60jn;Kn(9QRHi}|j)f|H;Hacmcq9RJod|Xm zS`VxB8wTm(07ekws2kqJ#p`#VdLp)WyxSvUQ$c>mj>8%OKMi`bu-&f9u^R&FzJyJ{ z?kUj;g846okA4DFNxu!4&w!ldszcSXI(7%unMGfKQ`iW_b{c?t13S{~#lwKtv%rq$ zVzp_IAC_=FZKfbG^cKez$ct$J>~%6tPi{ux=3lL`-A>y-+@5_dmurNSi+H|-?PcrR z-x9W``}J3_-AYHYz1(~A?bu!yeRrMhl2ASI!TTTdZu^{2|C}Ja ze-0XNDTnub-bAcMb=wcU$Jq|)u=A~Ne2em|h!~Jg$$POK-tBh);0W))ZXv1%>dLW)JN@kpAF@zxGhTu7Tl>Ua2G+XFIA#VSDi2*)9S0C2V&vtb3@Q zwVY^T-5phZ<3@M~c0avIG8}U&Jpnu4PLi-azCEU0tfbZ9N2T}!2lfuiSt_&ADtH?7NU1>+y9=x|$mH$ro{0E}8T_z7z5cvE{a_HDV@Gw7{G%gz*q%I)m&df51hSjwctf?`$9U?E}+C z|2yG?6UKe}uV6dV{<6M3Wf@fO;@c@~N0N?rfDJq=Hs6lh1J+t)CX~*?;62gunD!7p zHJJhLBe2)H%J{7;BLRed9_bHXasbVH+j|{MYmaY9s%+kTqa;)xXM0~Iyv^}jaY%ml zd<~1#Q!uK@1n;Ub60wq(B7Moju-(SPc6iT@5`Q(@^Pc;hbb0?3Ucz=r?@4F7BwK!2 zw!=GNyHkb+8vESFw5? z?Z`{+4{Z?PW7q4v&@Lt&PvnF4-x<8u95TH0jf*ME^pisO?GDCEs8Y;<1A}#MV9&dh zR~N!}-(E?rQr5lVZT0h^4&%1{y$&zAd;i_oo>+E$^t+?kzxtV9cn{UnOFKG?_1D`I zR8NjGR3?0^=v}ZKl^4eGUJG~B-O_2eWz}dGo*Gx!UiFrS_pm(+YavfHpb`K#vueV}*S3x^{ z^kKVC0@WF<6=y6QU*2mneHW5|JrUS#IkCTi2;Xzb;R9&L5Yz5p`WG`vOnZF$61Kl= zP3B$ide@Sg%(!n?V+q$)X8!1p{;0DZ|Etvga({r|$5pmzAb(ro-LQEDnUvg{Z$IwD zx1JnjK8MRMpVG4cO^^TW<3D-&Clphfh$n$6vLy*&JnLcj)*0TPN+R;fRE@*-){mL( zh-sFGaOa_zhuOPmzvHJ553^Y@Fv&(xz3U%;{*Pq%qWI#AFFyU;v-JE6FF4CQ{ge7B z@r3)RnnmFsRAFj51?MZ{^I!O{|45$w`7eGEdFq8<{9@35`PqyA^vgl*t;hk`%cGAx znwX+iFKwk$*el}a!)nPx4?JW%Qq;NaSxdAOEyQ*>5+C?a4_G2ed(lhwaQuVkVPs)H zp=5Xa_w6U&3o)yNd*eSDEU`x)+IkA~lpmu}eLi2h9!-ar;)$34@K^3nSw8Xpd+vSu z2T#kp-?l-1`aZ*q@42_~FCL;pcQ{|%d9N~l>k^gZ!lgs|GeWe!j|8v>omobwzbXy2 z;=j{PYDcbba-q|~0|zp0O}zK6ySnn8gH0YLwe! z&?)-0D2ZT7v%{zCcCN7(=Z?;(DiF1EK_T&~?G4>CGbURw@dYbx`huq7cI%d{Avdja zc3S7G5u2@VS4+U3cTH8Yt?h=0)cturlxv1JN&G0E~`_UlVcrf zJHq5*9_H}mS)OKfVZzwC%(H2hH`WWJp0}6mOrf4%+OueAZtZS~cD2d>#XUE_0M;~iy!L!<*4pV=8d;S1fwcOwD{_gL(^@ci3{;=IuNb&91p8KeZ0G~1KqWnm< zn@?t(?NxF=y4db6Erji;9<~E}*e-^~q3aS32c%+3CE8TpZi-RlY$t;FaJgr*De*|Q z2Sg#fJZzU_BiZ|K4C6KbQCFsB<-wKOeRmGgC-^;RS35`8vYJcF9xD zV2$mP4t8uu^%@!ZbCOB_Q+jM!Aw3>`cPXE9s!8fn^(QkYUh<|GN{!}dIj z?fXB!kLucl)?Q3|i8r<{%vn2x3h7;q?KyI$-K&ed zsDM4b9ZQ38yp@w?S(5hbx~FgnpgPhewqs#pPki?&5X(aA`gkv4yEehQ1mZZ@5YH|S zvz=oP-oH2uhW8=&fzOvE5!JoGxOZS@-Gldhi-DbW2lm>|Nb&6;AKzYB{$h<$M|F9* zcm1Ji@@+mD-*-nCwpR(googfkyGW?+6qDHrZvXt=E(_ru*u}6tZ)0ApXv?X(4<(xY z2M;w3kZ*XGV|y2#caLZL9TDBP7vvj!;w{Uxw-UORxD7cW%!6 z4Db7H-G}WWqt5wJ7uLu{sM+rXAa>!3gh$N`~!i;A{0g4euMI6TIKD?||X49D9?G zdOq!8d#rnBdqyUA(;l{?df09<?2Yjw=B>lTuQVY^7c9@CEPN-?@k3E_KRsw7lj!ghpD#ip>|*pBKt zUc+{K$q@p3OgoIkw@W;gS0@^u59#5m2+_(i7UN-JV{FP%Sw-~H0(OvR*Ms+7oLRzl z1@nO2_9c)G=0_@Q7r`@N7wb^XHUQ=hc6`u|%8W~y+MpUS;DvXIhrpf~w&!iJ_ngRT zv)Z)UdqMuz+77(;noJu-b8z2oLo{vBpq(nkM7Cd5l4krYfpm?_GdH#uQd(K2*xu%9 zK=>@d8eYAK)9W@3`?0%_4(~-swVLMJ<=8$HVH)8BKzJ{;;ZJ#g0`}~>v)$;CUITBe zc4<}BWGXhWV|!^dPJS3I-^((ixohh1QmEfHvuKi|5!(^9gB?V3oWXmj?v)aHJ8VZ7 zl6Qt@iI@gr-qK;M=HB~L{RMiB^2D$`RBx~Sa80KBc5gQE?G(bJy0^~zCKlCit!uHx z&h|RLx8JI^8Maq7CSzrrZ^w4-ecZRJ#suu*INOzEfW5Ol<7CEtyRwXV2EaMiz1L)1 z#N^(o{g27d{Zd7GRK<(DLygJoV&{pAjwe zR0hWAKdrU?+b`((DzMk3xG(&d>Rk=z^8>;Qq3=KOBspepU@i?{&gDpMAz7Fho{L@H zYQPbD`CU$FnST*%kAb&5pE{q+z$#yD=$42O9oc4fZ9AU&*2CqZ$;TD#Ju3$LmSmg% zT+A*KQTK1Y{iqKEJ^a9ff%Bu^e573W7w$}yJaoT{KT26E9^3MwdaJsRQ@!u^fX>ZU zcuxe|uDV2Jq`+Z_tn5fHnFnlCM8)CV*U!FWl~yuZy2Q8jrr}B}Z%Eg^-M8$yVW&tM zbU|(kCTTeoXV9%xMFw<_25DEXU!!`K_c0+B#;6DB^X>XjX9S5QKodv2*~n#Iz{oCoIFofTuqed@}bf1zFYklpRQ-9Sk4lrIP!I(XNUA5h7(St*B*1UD;D41{tz3Ae{b}smR_UY z+aJGexQi}SfB*46{>POoSEeTO-uJ%u^wUqr_QcM13AX#Q!MD8SEs(By6T*k>@E*3i zVPe?6u&{vb!8<1S=7um5Ahkp+mbUnmzcw~9gIK~?h^xlx;Q_nk<)%-}7OaxB`Y;$t zXbjPPr#XG}{Ytdy=ag)u8XJY4*@WZmn`yVirXam5e1><^;B>aP2`!%r*e$FfF%9ns z-@%UUq58A`@PZ_4AL0n?4}ZO29 z3ER6xx3BOM*vHwjEWNy!<@0d&;_hr;^b)+=1n;Pa+68&tQXiZHF%KF)Sa@~oYr`rh5UE8e(xzzsN>0`^<3pQpv0JEFPisoBjN z;W`5L-Pdf3rZ2l_etK%qw(055Ow4baro)Zh%64wH>y~zN+r$obJMGM=dPt+Xs6?R6 z;+!(eoa9Kh7r>jP9Kg<*x3L_FVfYfZgFHY5?7ZGw$lJw7RYh+}qK6&t4y;ZMBep~Ot{ZlVRaC#R zezT+>a|zqyv@71UD|i>Rfoot7+np2ZO%t8wcDM?lUd662WPgzXyGm*_KJRBv+0LtWH1V!L^>eH!5%(h1uaZycuFfOksOS{!FPyz8$7 zc6fj9yWe}_JC}8~>*56AC2X(y$q4Lt59#nO`aAX1Q^WR&iHQ$==tIEnPgMuf{W0x% zHom>HJ$Mh>ft}cOV2Aha+rxHv0R&%R5sFD-Ve-KFaBlEn-u^8L!eCOKhrG zJ-VEKI6Jfv?D5;8U0a^LBl-C6g@8ST>1>ybvt4c@S;DkecWNViOuJ|X%VyVWnqmpl zPL1}@#Iy(UkWTWFveJL~dDuQG`M>atAvYtoy9OEhP&$N1b;lpyp5-1&yp7>`Y`HvO z7cB|c#pGgl>^5t;W>GioHmlSVu>06UdVG6;>{+rMjvd(V{Zfs7?*n%`+kMXKx97h7 zNS-L^vMD?5U`KThoNW0>wmew!_wAmohogyB`1ZOsr`-u_VF$N7sMlL0 z+c$4V^>Maa2=4)M4YnNlc08}`kM2cPcppQ0AJZ7r$GU6J;oCyC)7jps9=3alK3xRh z;yBx@S{03Tq~@K;yTq=C?INmsjbZy91CW{!KCB)X-oTy@xoDx!ttjW%L-;&QbUeLT zKJAIX&bmh(>|O_?hwa_BhwX9f-M6#u@$J}->Jhe6e0yf}?QAz27?>Z)_JCbfoEi7+ zz@D-Uyr(A9+0MEj$#!@T+kstKW}NK+LIDB}`+5e;5(@`<$GVS=d$(MJ;o0Wf2g0}W zLbkv{XM<^3TTWS~wLxsp0w?aX_O;8~AEvU)Jvz8=CA74@}8{ye? z%GAWJ(8(0^Z5DcvuYybn5AWgmINO08-aFe--KZD}+sm{!-yR0SVBSM)2l=o)?`^oP z89{E?-f3?M<=HIETD(Mjd!F(zpK64ciu5#A$t4ns3khxg8QRL|E?v^8Lt_;&bx z9kxrtb`Nc*gFW0%y#?4)jX~)w7qLChdfPn=!$lSy)guqH#6lbIY)6j{Jqe`KFbi(G znO$ya*I8Z3g@*;^FRLZ(;oVwdCeaPytE9|1=N^15dWhbO*Rj(jgdcB{XM^_~vo}xz z;9do+d5Bsf75PVC2km}wz4icJn`$KYP+kjLO(suOY*bHWCSXtXI}yVR@>dT6c_)JS zcCq_*jbS|VRZ2XBchT-rhe;Bzj_@8v$@@7%(#F7)T@TxP(%CM_`%wR&ts7!|980(N z-WIzUXM3tW{p6K*BZq% z7T?aalW*L^UwQc6FZl-D2k&LqO?lVicugj3XWir5W8Kwcn08f}&h}Jg!giCoOXAy6 zJ(U@E=m@ksF^?lTbO zp@&l>7r#9A=hv3an%%d4c75&PyY9ZLmt?>7&2Q1Y_ul*EyT6=&TuFWYM^|kaC~mVN zV_6i^E!bi~zTN6VeE6Zd=9DCN9XLR-+;{QbUs1O|L@4c7wisM{b8;GrOYc;de97Sm#wGPz)kD65qyaYhK^jjBe?57K*}mN%Dqe+Ar!%8XG{gNqdF+BGX!N=CDXk0 zX#ob_nlxtnHdhj%pQ}g3`K!$vSyz%e4fW-9sB2#dvNO*oiW7GU`R_w zH|evTZJ*mhJKRL0Z8_U)jNQItyIIRBx>`E)_VL2Cq+m7-m5>@{;=J6MSoZ=0=SY4wsYenF#iXgs&WlF+XHqn6V3$h z9s;{53)1(>)mzJnKY`VWpj`J|J>_EqPtTEg})%{MgIgbrjtykJ)B+#c8t@15{% z089~ngz>O_JZAO6V`F3X^88Ppf7(r*Udnb)Wp|?XtYE$T@dhTcxNT zyg&NLgAY82?c#%98T81v9?`z9VzXVS{`hwvkDh$|Nh+{6wxc%%Wl2QGnZfPI$%;E> z4X`~<9^Q-a4e3~i@P+g*-xvAlh3yYN@-Viedft;9dGHSHxBU4nB=JQH-Zfalc2vjq zylJK;a2O)D)A0`JxfH0125kWF!rX!c+q<%Nq^iqQ4;(n~`Mn{0s4jXcU{ADhdlV^b z_u3itPWT!vsm8u{ZG97u>lpEn)s-$y%OV$?2n_$1^VSD11 z%O<;KJ~tI1e3d&!GIL|i==f5?&tJW5N1Ns`F>Eie7vanCQlH36QcK#o0N7`@=<6JA zjf#8uae?sUVJ;voTDrYm8`%i*({2c|d58h~fcKg0Zo{gv*x4?z{alXPw;#6GbY!FH zYr^)0od!ehNFPLJdrB_MIkwwE!0xjuPq}II0u8FHA1_gzXtr)eb+OcLEH%VwGQjAy?#HLiGZ>-?^xc?JhX_(unH!-5s`@^)ZA8_TXLYY`=5AYn1NZ zbMx(F-lGn7N!T8|WBaNPtqR*uJ9QbsJGK|lU-O!<9nz7RSC`~YOksPo+ed-3ip|L< zpZw3UJ%kV2JKnA3ud_XPKkluk1?&iq?e0G{?%P2i@+GBErGqrE?W`WCKEiud+8f?e zU`gzp_pm#8Nw#mH1luDpvG-ci7%tjlkDiiy*6~P4lI@5NRRs1ZtWM0U5E1?`*dKT> zP7>j_@P)~%-9I8^h!H?{-2H$hy&_8=YG^FG(>z3)DbJ*HjE#>4gwb_t}@ z)SA`Q!M^E&^JCiKeeJntLwdkoam4oc_VbsWMPd8uGfxZNQ9WYd*L`3Gs)z6a`{ajL zNKk!D=i&KeEiA43@QNYvL%=VH$l*01yt|!J@IJk9Q`eRaEa=umNT02a%WYvhut(V5 z#i)13o?i!+lzUgPXAD$T zU7*x&vCXju?^7Ezs2lc)w$H9d@SfQw6X&mWjq0G@0Ritrr6p5--B8`5Av~%F>>{?K zI?Y~XWM&;h4g=W9ea6MSzq*hJsAtR1e|1X|FSj)ten1_w9^&sGe9zZ*>*1A)QxW(ePdc znSt;xWqWEetKPW`)hT%IY;Va5cn{lAy$isXC{*tY>*0B;x&rpZusw0|!gU1iNknX? z^dP{yWZUH%3CG0kS4|PTSAx=Q>fM07KV;W|u1tIL?ZIyWaKv_rg;`z+yFR)c3DsHm zxc7h^+ov|HE836H8n!1|y+airhMPFLli=7q^T6)5O;kzip+NYsJ-)p@v}*GswpW{0 zlj&^t$5AO}+q41c?byDgCd0a?AoIFEcmv<=nxpR9 zAswqd^w-%gVb}eI?TRe{_#5B&#yjq~Bj^@gzT{kBf&z)B7G`T1#5ysv-+J-sK^)jpt0^L=YQq zN%o#LVVc9p!H8LsM9sv*Cx7rHNy2joLiEbcOLVOIWLI8dyY!9N0OxRS0DVUWc=J=FL!%_? zesB&#eeC-f7-tiTUBBhV-PIG<1hYBRyAB@Oy>sW?hwc>VB|IOi6&vYG2X5X=UUE)D zIX8Xz&>`~LohI(P=gU!j2XDS5$~N7`sBS{qs_Sv=o7Sw^@QDHG2*2TD=ZWk8-}dhK z>94cA@B9zjPBWeCgh`Vbw?M~^iN`7qMMX9i2nz`rMM93^#}+aIVOy%OEFmEyOUMX6 zNXRHL2!T@7#*Vwjj={v(;5rywC(f|2P_~(*+v#k#JDKTB{)hen`?~JW`CiYlWU|{| zcXH;M>$#ruz0ZBlxxeSU&*yuc``l;ePI%wDW9iVYoqTvpwC}rZ8{NKd`?ermT816k zar^#Tx9|I%&HHcL#=eXJ6niIC1a(<@*jX z)H-v#-l-j5xs>}4pE>ye3rm+jbByKw@AAoq{i($=Ol2 zZin?zmtb%{-D7HSX8+b4nq+hpi^h2NThCl#QwDzY1bg}kV`$V;Pdxhg#dBZftGAK< zrFq|<+XUy&ojiGhxtD6}*68;5tAF!q_fic7MsMr8?g>*g)(vJ*`AS{fq27es$(&z* z{q+J#^=5m6T`;;#zA4v*Iok{AV`{cvebv>?c3^))wl`OyHF1mf%;95boR9MFJPvrf zWDW2#13Q@e7YcZUZ{Vvi^LufhD#k-ZX0}h@(@^w9HXy%s9Me@aztaZAJ_?C0) zJZ$$=TC@G-@4p9 zNZ|Niv2i<0wPCyYzz*+WJFp8N9owCB@c!y6uP}t?9jpEB4`BD}JJxI$*v=;|J__u7 zsBV+O_PjIXe=_|H(_x_LX4Bn6Ixf9jnvAywr@>2&_?Eb^p z9`g-0&`#cWG+^fe9KAz$Z1+((kLu7J>rZTUgvS=es9@b0~+z|KzG zSHMp@@K%~J?VTFU_9nd7gE|5qdvwax2r_zSM)LHL%?RP2^8WO1J%i_S!kdZe?9qQ^ z7*c;858L4#)v?_ss{zWw)4&Q5Ptpo^i`+uK4&|svsKrvVxjupeS2ASJMqcTvJGRKqGH^RiQ9r=K7si`aTdg%E*Y5n zHv&GWhk_Ic+llth)mS#4T4{p#)NCpLPMfEj`s+nIu+!~oh#`EqJ`sM5x*r6!Xb;=J z_nc=Zs}J@I-+3Vh@A=3~&{Ne4-v9jy-otjAgzyTWcT6TEU>EdER}+f;nJ0~6QST&b z``MrWtidjD%m?gm$acEj-VLNr*pFxjc6b+G!uH@DTK&X^ck2Cew!ir8=k#NQ^jwB& z8)l|YopYAAVGZ_XJJDW=^fAgo+O~5_@ZO5O*$(gZjyXT`$DmbwgS}EQ_a3C%L-=O9 z0Mf&Dc$bZ7yhpKz@W4*AAN|O#lJ0}g6QY+~0yZld-45@-UVZ`ggSSkI9oP%#PfPXl&} zT~Plnt_vzrGF%k^JM(1??-#_0df&GjwZ~WNp<^fEoqA`$o|laCkXSu7#}Va_&JAMg zif9kpgY?Nm`Y_w99nuuavw92Fcx4Haqq;2OC6K@P2j_zKu-)oH_#BzRyORsa8N4UR znTYCb&32m|w)61bU_Y>b-yG}+-)yJbP0{U;PPd!%RF|u1=^n+7?Pl_CsN2JK9^UEp zu-%QAkUNu z*aL9?c77(fP9*{Rur0y%q-A7dvi+pHYz(S1x;>(uZck1o>!RBsJz(d< z_Vi|S9bw7I_zH&vkpDexzlv9nxb6Pp%iVb&>&jfL)q= zvN70R8hatU>nc#4XEt|EW)kgkGFvtl)rTb^L$|luuU!3LJFqjEnSh<&b!&k=Y=`%- zJ-(1W@a|J=2X=<=6nh)0uh?LF@;1%(5fs})Hq^!TWM;58y1o3!$?#=^?ZD2Um^lC{ zctF-=lI~%?8p?)H57?E=zku(f@O&yZt_9{qw@;Vjq1c0Wa=jpb-%*gq_TU}i^KQW$ zLQ`-2!FFJeS!t+V_fMr|j+JzedT*qM>U=iIBETLG>F}OAM1q)qu|0UNV1Rw{L$qT% z!}FF^^B}dwlk05S{*jYOS|)4<_FX%cE@!)h4Esg8J!5|*EraduqK56AlljIszH#%- zH^aCI(p?C0Es&Wv{JZOgp6%<_tusJP`polIcjeozju}-(jwtV4aO7E?(T9S~iwXEuPxu^E1=7CBfbw z{p3eKVRpxyMlRmkHOzt5Jgp-Z0FH-!f}M2F&OJekLzCFu#*~?cYFWH5qo_D?UxfkHj0%F@wVh zp8KO3kCzFmPrFCUzjo2G=N^3Ml^%IzkL)s^FO!Owy4ktYZPxwzJ$`s;bfMvw_S5ig!qV8cY~^Enw`?uckF?C8+iv&o z{@>Zo5@b$E^zB2a5AWZ$R8s5Rv2h2{ zyU?CLc5m4cH)r+O_o-jd`}QU{a$r9bpT6%1kS-rO-tzJoP$0NjN@kY5A|9BC=ZM@aKoif864lR%uA z=CJgBaWK~%+Y{BRhe~IDXq-8Dj0t32PJa3jJ9=L$o*B0U>P98EQocZ}XT< zVzA7xouPV$z$)=G#tgxB?FQ@_u$K?j3+&o+ust=PdccnDAcpF}yBm&;cL0ZXhNbj8 zP>1mT^-=H+`@kNyANr{7G)?$=cB#NlpMPZ6K6h7#L2=kFffJtdkj?`63Px}F+@;;; zUTvFv{*K$##;d%jo@b`URVIWtzwplQsq{OGTrZ3du$LcH58+WA(1Q2){5w(o&>@fy z*iXB!>fx#Tj_QOH!iVkY12boPzA4|eZ!_QHbdz)>-p#?upm+*K_J%h0QP@7|{{^l= zJ9jp*JwbS0yd9A53Y+j@JFwSf;`6n}$?mToBiMfOeh-2b)r0r`k>b;1hxfCCe$lwc zdax|Z0(;ob=NLZoz)5%q_EYyCp9ufZ5cb2LT|SBJv3~QQz;Rnt9}f$M?S5rMz~^z` zX1fNwob87{xgXf!J#4?>T{kdbhxeFQIw? zKO+V#269C27_i5Bj>^pmzy#54Oi+d*j{MwlTZ{_85|5d%zCe_-4-HCCiUQv=alsJ_f0-;bF=3W_vn} zVSCwv?R5Ks>cM+;fC+C4>CZmv*yB;%(HOk*FMRWv;61t>-W7AElkPD{ZwuSwwOhc> zTZ?sNbpd#@Jz$6EDE8@Bt?uqaw`&t~!gh`Dy>CCu3haaJ0XrYCBYD_Px<|d6({eX# z55`xL@Fn0UJzv-#VCSiKY-iE!hd#2CMP{RV@J@a=*aelDA4nGj?2{jTZ%B7|-@o&A zY=`Iya&;Iak7&p6!uv<-N5qt73EKzW`{t=Vf^>-&qP_fJJI_e;DE4?{qucpH`Vj4N zw!=HH`zl%Wq94yC`Cg*iDRycWCH-k?xi?ldr``px9J$tZ3@BKDw`0%4NZJR98=d9pn%0uS?s({bi88knRCHwio0F z+oRjV_IOke-g#h;!F#s3cEmHhgYEI=-HAy;jmqfZdafnzhJw-M=jlb8vYmF<>$R= zbc{foam)ER+tvKKF;WKD!*<2Oc0LIicu!6yYzKL458io5hxbYL8^UPlcEWzn+azQP z>@qXYJ=b^#_JCU9X1jn~r`yAJ-*4D1usss>t=myOnVEn+X9~6l>^v-o?d4~;gMmFp zx<54x-otiP(e0g+k&TI=Is@~0P9|)R)@{))NFF|ST0?t2qCFnlL)Q?#!5-Znv0bWL zeje(F58L^$9p^L0r)@3=s6G*XDE8Lv0ekt8jfsz9uYT`)?!xw%oocoVjCDh_^9A{l zkl~x{2`Uvc*j|~LMM9>KHGVw>?=Xq#VLPg0d#vUx@^86k%IB-(VK#UdCx~LNf88@3 z8T;1lA$Bo*^h@l^L6-Gt&q*Bb)3DtZ3al}ybv}w6$;%d^y@HXD$$Z(EHdGJZ`P`L= zbZ@X1-+#D*F|INn-M#?3=RO_+_GUY< zU(WV`Jsz}8(e31V>-G>kUI957U^f|jCTzEe@;&u)tnQ+s`mg-TukgkS%Rn?q^>~Hf zwX5Eq@nq6tXX$sBY`@!!hWB8v{Ml=HTAwe@|K(ryP%2U5lQN&>&tX={@SOKrX^WH} zcTw>cVByz-YKRZIvq)bH^44r#W+vQjw*UO!|NKAyr~k}U6;oht>1x>BSFBXbvw)q~ zecjRF;edH-(z(N7>W1cpVsR&FLdtLI(xwo?B}UW z-YN{2lrf_+7+}qDqi6Q6v`)?lGJYUW!{cN+y=Th<_PKW>`1wD6PKEqyue_2BOsMYF z$uE89xme-)(Z?OGf>&O8nI&*8TzL4)TISiOO4VOH_hovXfBX+FxE93cqVU4A&q~&j z`WMe#h_`tUd%43fa!5Wi8B6G9iPL*C{>h8=el#t^r@xR`@XVu+vx_beZYX^I%)=*6 zvfPPVK78oJ!Tn``cHdDR9;4NZmLs`wbk838naA)GpBVj2`0;7{kvs1^_KAHw{2q~n z9|HT>-YKi&T3}8{9v^@o8QGN-o|YQ9^v3&COm=0(QQaF9!T^G(uq{E}0@B{4a-MH-G z9Dyrwjp8UvJj~bU!B{?lXO|$FRWQt3mhjD|oK9lmd#3T(rP(*J%P?Dg*if1QQyJHq-} z;37EXaE_J!KQ=xp&acS$Dcw{%^7&<3UJvKi>!m=xlILvscnt^SYRIQC#YTz<^EC)_ z35YrPV@Ho1VSDc0!;H1a-u<3+?7Dyc4tC{lUUTg~dwa|?q+V~THwzRSYJeK&O}e$1 z{A&Vy6I{#8_&02qcsB^78>zv&e^K3Yte3DI)zkG|fbG*jVej;^)V07)v^U!k9@|6I z5IZl43*Mm^nGv-hp8?p%?NKFz;;>rbzy81fnx!5n_7lK@vF3T|Nu9hpo9%+$27ynp z-2+7B$K$1ewi>AP^oN1LfE~Wbbp`yJKpaTMr-vT4`!{UI?U!^{9FPy&3+%8z*j|Ej zh7c|>dn{fgy!mxeXRGlQBenxDk1i^de zKzi`rY!BhFJ?2!h6sr#KUwG)br=Q8cJfx=q1uy*3Gr-O>RG)*r&XHlxg>zpxTXzAz zaMlooz#g9)RkPbwm1#Hhy4}oUr-k?P<59tjkAXa@TRX5bt%~hW=z%cU9;)-e&WG(q zLj41Wr`2OcPDmg2(4nKt2M@8}{SvkV`$YJU?*?jSWH8*O{KpO1yL7pU!8@uS+qZ`m z-jit=R|NT%V|VUO)12zUe^Dg{Z(TfX$=#9Sz<$-n=zzzv^vQp*p;W@W5^Yc2h9UH`_ya zU~hfyl^mC_J$TQ(SL$8hDqvC}-9Be~gMIZIv7K(OvCYRIiqY-ZjstmH9F{hs!}cb; zk60o4zy8;NJ-Qv$li{&oT@e<#J^yAAJ|98)fBMV+6jK!rq*_S7gzc^uwkmm;W_uW@ zuVcW)N4lHe9Uy@n8(|jJ&5sY&`I7F7A+73R`JqLDUC^Svb-Mz19=0dI_6h7>RXix& z=bGoQi}s$L8?SY6zzCY{(d}7;pZ9ogxjrYn7}8Z3PqB9@CW;;2oe>VybbyEV20Qhh z_95LFxz1i#usw49#c!8fXA(!uxe(os?e+-U3lyhL(e07$t=^px&I_h-CiSl8&!Bp< zU045Rd+;9J9=zjQ2oLhW-fZ_nyYb#&KY7mqRA+TL7`pw$fdlN=-aSNn45$P46772{ zIsc2;P8C-c$Q{qcwLk#o#CiKU+l%UV@8wVI*~fsr{9wCHwZRQ`crT<6wiEDmzxYr+ zjvBVZJFtiC6Xy>Zoot2ewu-=xhx8WhNfi4=n(Zy!JMdiu@1@>r=&cguBY^rdA$;+C zV7&a$_Pm*ewZ$t_quZl<3;T;P$3k@rmW}y=e+opjI~40^9LfCCpF7cbcN7KerQR1$ zDpfGR9=4->Bz+5bV6Xm}qf<>h#g6R`*Z9V}9Fb*=4_Y-w^RQCufYqkgP&33xI*$(e>wiDRFyCAIQ;XPmv;pe*D2m{T0 zRHxXp6slvp-vXDj9o3VTiEh6nClj_e-tz)b-ZY2v3e~-GbT%RZq{A}lUViZmRCGH~ z_oX3JSD|9zydb(g6jGpZ6vZCG!y2&rwAmi%uCR|H-NUYcJ#oAO*dDw$+XczSM7=9B ziFS}5uMn+-%#7_a@CB|R)Z>G9Vm>*UO2|k)58a-$Oy^`m_~2auw^NgT$Ip`ML;v$( zdwjE9VB1`nViE10^i)1z=aJbQhVbwnu%{Uzopg7s`d4e9x>F#!9ouvELAo098$49+ zoJ@4PbAdU?6DYZY_i=Va@bGjyU;mD=2s$TY?XBB$=`87f_FQr@^R!H5W)4kwNBHDX z!%S>P^?0H^7X^Vm3fp;#J*-A}avjy-=e*w`(S$(q40_J()mNQ$NM+B zJ$Q$7y8RNiN4IAiBHh#f#~f4-!?ArTFz`;X$Li~-ZXu=Q1;9?U$ABH)TeOGjz7ZCl zC&)WBYL3jqa$SonSP&a{^AJSv9?@O^9DE++AD4iUrJ3+Ps2Dtk+Z7LO5APOqA+Xt1 z^A{e1bk;$1d%S*wVS7RTs7JAmG5d(&5$!zP&TKQU&dRrpTdR;RX5;Xygc7#%kRGao z{G`~A9y@7RhDExmb^Emai-e35P)_FPA*(p*SoJB>P!*4Rtj-sZ57;#`~@84lT%gcnp)-!)MPjyQ9|+9WJujz3)xOMP6SQ_e=%ITv?T0`4uC<=*sxEx4kXhU_SW44MGYNW;6sA~aSLwC%-v9LX? z=Jj&vV){MianU*3%~7nEdc%5fsSS&Q^x%D-hY8i?TUg#b2Zk^XuvjhNQ&0X?2Gvt0 zY=3TW+oufMS=b)D2kh9+P&as2Ij{%s6nnG%xo;KxQ9aDpE2gb;HCYzh(s$t7Enh*ijwZ1;7sP4BJC>H8k5p_<&ukNa4z28@qOZ zYbBQaOztM|AP?+eI}hnG^{jwhTE^)=4BH>kNmyU9vuBI&Uq1KD#fwaE;jH=9MW2Us zZ0Dc&(z#H**?y|VLV1W^{I-Al2H)il8__P!9wsBapxG{fM02tfpJHa_qm*pjPQ3$uz+PpB zXs6p5q}M}9L%oOXb%V8@X?hyfd4}z%{_N9kvraE<4BW zpcib1_i!HJ1t@Ltw&2~r0Xy#&XQ&RmDW6LQkL~e3(ry7e|6l%NN%!b>ay?+@^HykV z7g%I&Vf#zpelDu)nJ1sps`jGsz9QQFMxfyb-dndj$4k0@>71{lM7xC5xvx%Of3V~_ z19qlbxonz zhoO4FUebNR_EPT$545>(1n+_%y>8~Zpd9jAs0H4~z1=E#u;hB1jcn0g_eK|ZZ|0i= z=~x$Es5yQ#hV42c4qa;C$D%rp2`F~^61*4EM?Y;^9oU=gkQ=-gpU2Crlg0_y^VZZZ z5WHs)mR9tcR|gsTeNvINQrh9^^U+6361Sn>-MnS9D8I(V%Q#H z=W-CF*HUA!O5U8{U9o1n)|hPcgaQA$ZMx9y)ccBPcX3(h_6i<6NwiIIW!gh*1IT?6wwv+Dm!oDzPADtY7DNJA?Fk&~}TW<%UxnbIPS5iDjdJFhe7%!{u z(vWM%ob5jCs;nrAollT8hV2pUVY~SOxFBo~)l)uY6i6A0JqGg0)l{O!_+XU(56Xw_ zz@G60LUn{^(e2IlmhMD5%R66yT|Sw|cFpJ>E6=L>T)t5Pp*^hF>I&XOSBKR!+Wwl0ednq5;Dc!fp?0XNys$YLwMwj zfqd9L`PZ`@*e46sJ@h&N($d}ASAl(GQ3~uvj1S>Ub<6hOv%k_ZMd=0J4;-j}hkBn= zJ#4Qz_pBuUYYU0U?y2z|Q+32ou7qzjb?$ffi_Ikt#4o8^&{Syg->+#qsGafoYby8 z_MzEJv`et)6_cEd+&iSF#jP`n~Tw|KrzQ z;{jhuW+_i&{pgifn83fP%H_bauYCWNG_`91p1=D2mzgsqg9!_=Qa(9eZ!Y#?`Xa`u zQx|^kEE9b5ktf(!zi^g0F*78r0O8Lb8)FF~=SZq2{Zi1=DdIl25s#g^Z?cmVGKzl6 zID{upfBJ-vn%IR?qf`y@Pc=AO>HP7;t7oI?QbGftI3|U1%KR}p&E!WX8KcLay03mF zuv}{ZKd<&HPhQ@4Fg|Np@$THQS~Y*HXwPTPG=I7tDU&_wT}!}In~k!Jn(JSNhe{Z|(RkAC$+9#nMiY5%_c%MUK|MixHls~NU$@1Cuku z?bd?rz|QaZ-JK0~z=U*o*Cy}|=}$jhuUh7%D}Mg7pEE&JXz(7ePk0}FW0Y^OM}g;G zFb_%i5Z-(-Zt!9I3vD#z2pH7?^<&L?9I(T?!oY4RQoQ`QZK{=ES(yyj&RYcAP88a}$eFOW$ z4=l$pIRy&Neti$H3oOo1y{-b4Y&jOZ7ZS%Mpq8@i0;heAFkgXK4P0~L7^=sXrDzsb z{J-zW*<;68*dD(E_Q7^wXAfJKYs$EYRFL(WX-=qKm#W2lGZ$B!EE1S!@3Mou?M${I zzSutWDj(t%*kzADr}K6t9Pkj^(M(edR=_^k4%GFLk+KHWeJ>SAG7IVk>-73*-?EQf z3j+4KDA42{)eOc*K1V%ayA_#Vm|fhI^wl@m)5p?Y0C;C+qTy|}`Bqec9|EVU&wP10 ze+-6DK_^v4;r=)E*FG+vvXR+T-mevvjCxLCI};b=2i27i)eXjLwNRFAR>n3fV-C|3 zGHmDJJumpsyl850#{*+1Ynr8bv|I=)rUUfQNc#3saZ551M$96t!FRG8swgN1` zB-dHk{=#>jiTXS-FTs<54M4%>rwzQNvX$8)RZ8}A`}I0@;tXYw9&9R~6N zyGwwesv5rq5Wd;2iENA>m<~J!>|r}kt_SR;-iO`}nJIQdJ!D+p!RP5`PQXsITV1XK zwoUNTA3qmplkRioKj#tNZ`O;Gcm*i-W_!Rsyur;%4HiZgdatDWxNtdJC{+e zMuNTXXsP#OCnDY99nzC{sbGlq&=1u~_xLDwz5@Ly7Sg?{Wk_p~^F_ZJ0ma^9ku}&! zcZE-X`eT{~3nTC?&ZywdFe8xOgW?t<3sfC zOqNQ^K(hBCBG^aoc={k+Cbe^xvP#~WmzFG-^m-X;DUA7qLrh-MTNx-VY z(HlPvn*<>Gr+*4kjT3g8@5Fy@%?-d$S#)DfUd*j_O!6=>94` z`xLQ*Yd}bBW_T`OA-pmy<@siNQ$1a7EEu-)bGED8w#IBgz>e+ETG$`C6!Tfi0DGi+ zrDfbCebET*MfhZ6e)MOr72bdFL(5X{0&*SLCtKuXuss?0;2nooP&{~Uy$g(&=xynq z`PrVZJvkzH7liFm?^BtPb)U1n!QN~S-hn;R-ELZA@Lp{@z|ON~yJeG*0d}S^j4RAT zI%p>?ldmQ_;+I8CC82uo?waUiNm@od&JMT`IJqL-`B0tY79<;!vvuO$g6+XOW}t++qhSMfHIEpm!J!>EV3)u_aZl#l0+P+{x`-%QdAoBdMN?F`&+Mj`)c;?8`jqN!?*5w?6D_wsAJA+!)-A^ zi*}GNiTm=)QQCQGHR#Tb)ZBjc`svVHpk%nMo-D-D}b+-a^j8!@@YWFY+*gSHJ&5miI>>c761N zO1#9=;bM1DSGw7ZTz&E|P$}6m^^F{t0}!qSM_)=ysjVKssk^HZGL@Mjp;;}p=npT* zoStuv^)l`0Vc6-}*zufHR#(+7ENlm7LEn3=V30Z9bs>SP(rbU_b=cJb{`o(CHdN=w z9JgHSWw`7oKl+iG{44+Vr62#+x~&ZCQ8y%78A!w=gLp5>%2C_T9R?7w*`C@Zg5%&{7uwt`O|JNp^ZeS)fg zGw1BdWk#!4Dy9lN}Qu*wWMIMF+PeKfn8t3?FG^8F!=Z%Tx4PUW4<7l-Qm5ET7|571Lj`p z(Bwdxe|x4mHFJ@;d-%aZdZasGTDy|g&IgPS8<^tv>$;Hb5x6<)&aC^hHD{5}=}#@o zY>7EcfaGmS{%giqZU@+yZ2aV@bU!KlvM^}s$O>k@eYAHqXR(iujBKGz^*A9DocWyL z?#pzB@dTEd4~`MrPLDz0;~mBi96Qd-%pX5;B$W%cZQHhX-P-sY-nBMeQ+VS*zV)gr zV>jM-BNXGgd!w+N+oo7e%$v-NXg4yLsr2@$Rmr!by76Q}bv`q7cQ>KBNwsd#LOQnd zrcgb2NA;_&T=j-*M_v6r>X*w%$Rz6?w*T~hTY0hxX)zqtyAz9(+C>4YyYdP{I<^Pzz#c2Sd&sd;=4F9lz>dj9xrO}@x?>BrD-6** zzzUk}MflgV9gx)q?=QVrR$%{=l?y?ww1$h6dmrArJQlZB^+F+Qi`CCPXL0rLRh56M ze9bpyxPz>sF9F$?_?N!>JjU|aZca|IOV|$VD|r92SLak0Ox+Ql2wxWzB0o0R zo>wfXIZ2FWdoWlyU35Xr9RCLL1<8l%jiq6G6CT*Z_QIV9>h+wgTdS39;hCn37nm7e zcpocr_+fkN_5$@FbJb8Vceh2JXByn5H!__nd62h=#Z!XM>ZW!}i`D zJYTs5FvicR?^o(?TyFeSJU7^0VE4;nevf!iJ%mT~6&ql8)_6`F(t+JUs5NXr!0y>t zR1erOaL)F-cI|Gw-}$jSfjw;BxMAzM_iTt^JG=UtYvCQ+0X%Gn=sDX1c5FxW;QA7_ z2kcSom#`h!E%JtJH^?x^1N&UJdnO>#-6=eQeXt$aV?_HUV9(G5z#hEgu#=jF?dqvt z@gwVk(!qPc&PURR_P|~?L_4+%Qmok?(aty91uAFMJL?Gmq0;7NB~!i@iD<7IyES$}45h<%crRN#7*&K{fZeKl9GilC$UmN+ zQi;Bu@jv?W*8=vi-ArKbXPqL~+gD=ekDsN|Be@q;Ut#+zKX`?DC)Xp|{pe`jj_s)a z^7mgtcpes>|JJh;;s0Gpci$s(bz`J^srNzkW;?LAZh!n=Kblj!!46z>`-Lx_Wzp?U zC<^>6P=DqGo>wk?2>3bMQT=kZ&*ggJu)X;iZ5$?BOAlorNSTm4Y*&C4W=DEl0O?Ez z&Kk#TD0YMo+bMQtUy?Tn-lN#z7keQc+j$1*C{$n{Y_HhO1rOc01u)EdC&fMpUsSgZ z!=t)Si}uzvYPJ^jYt>F`gsAWsq$e1REwC#Y-A=TJ?N9oG7P=kVV+F~<_Tb${`nTXY z3ktRmp0WWdFT9WbgggOnEm@!5e+qf<$qmqbW9^11$cHDYV zy|P1#t~&x7P^celj}O&>-QgPG^FGRzD<0S%d-RcbNYCgWJfsKj(e0={5&qtTxDz%B^e;Wh8ngZE~;o-iiRj&4sX=Knj}la}e6%$)6# zGmzeC8Eg;UlarB_3Eo%0{-txtxAV^HIoLyW;#`n!=kN~5<|LmJ-EJu}c_a_05k51` z$;>ErpVI0P?bx2ebGFm%fAtqXYqm$X2k+&_jnohxOEX^p={U@j?osKby@!Br)CcB3 zU9A4rH%a&S@Kz-Z)g#?2nB{Pa?E!oF>W&x>=`bFzo_SS`cWn1l2-vfV6yw#v++5If zVSDTLJj6O@dnLgC;;&GhFB=&cK46FXNcR@)VLQCXbd`z8$v`?oc!kw~?J-r6?#ao7 z?Gxdj_o}Jqo9zKRodfJS9STGvci}{Hs?zOYd*MB46It{Jmgh)s!dI$f5C-0h@SiE0 z)cfdE1A~yx>H;zD#v-RhLhpb*KDu3Qwg#>lbX5#vts;2m{o5Z2n(a6P?D2Z$Cm{px z_9zDLQ!wriHrNH({)zC5^{PBu70A2Hy)GvM?5;B7@l20uB78~rao2bv{9yZ3^Pu{i zt}x32cD{lyJk-)XnHhv9-J9(d41JzD?I{zRIiDZ4^R3$xrn-Y^g33)(I^iv&>uNC);wy)QnZ=TY5P!vlCkJG{GT z*kC7$!ggS1sm(SZJfyb;>|whKgZHgBZ^ibO?ou(Rp3Kag?Gf$R4#>aqMmZTwCf6$? z^ZJ~Oe{=tohxF)nUOoTQm}K&GvyrYhfS7x%xOd?oJs#^;>33hindH?4vHZ*bJu_DHd=(y@GkIeLWMj(bx{$@k+ExCeKYjIwFTPZp^uxMMkiz3> zgV};(J}v#b%06=_#WGq;ouz&zEZ*T#y}Qpy zeUvSqs4{0yow;C`{YuSE_r&{cycPtjJpGh$oBcZ_nkwm3=&p^|$#9+*8f#S2%}1Ld zs7l;O9UWJ44Xy8PkuU0Jh&(9T{1IzJ2r_4xnjk?vaK-le^mY&>K%!ThV|^U4fw zMEdgh1u@OHg^QfhSEW#>i*buV4;kh#HjbKyGGeYN=e{_-HBXyNHH<65vhT=s%?;MW zM?9ls+!(&n_=|IaZujs0e_1nk?bx;bmRs69wRFRp8#b=n$m9Gqzj@7@|EW=Z-;BC? zs+)ja7nk&75oB~<9-lpe>ZWQY-D86BIos!87th(=<4IyWu*Vwg&GyDS2w*$H3(}#T z4?W@=^0|Ks=>fX{grnG%gk>ZTs|AUh?EyOv>|uKs=qp0l?xz7$ZP*^L|NJLE{_&r_ z3Pivz$moJ$JFx%MP2rI}!1LDUa3l^bv7I`+mmmBbZjrM>qztcVr(pI$6k1U z4Rzu7hd*S^=dk@X-E2Ji^pe3|o@s;h{Gg}}Sg^f<%h;~dk!u#J!+Wf%T@YRn4*&ee zKS6c&mp}ixnay?qw*UCgf5eyA9`{&Xydvxy@&UWi zb9J|rfqd8=pOYHcSz0@IzXa*|_xW!>|J*m83Q>6gOn>t771w|R9v2G0gZF?PiVM-B zpG@?5r8@@R1=vC%hljW)2-|@j)oa1>?!ca8u#-BgbH%7uJyprLMw~xA(kZ7;&)MFO zZ5FJ?b3Gw^v)$9UX&hh=+u=PqoKT$y`LJEXlIu-%KVI^~q1k@o@DXM&0(QQ-#Q0${ zz>e^tx_vCjpE`}M;j@=>f#LM6g;XbMghOlx_OLx~Y0N9Ve0LU%HQV7m-)Zn3um{m$ zdog@m4g^_sa#Javjw@k%6nlKwu9HdF9=uD-1AE51IBT@wF>+UdT_f9(#pN>W#nOg9 zyobr~9>V)Hi}0u(whOcdwgY<+e!+Hu+|k9aoUcm0g89{R;OM81^U#gzVS6!rJc8=^ z(>@mz2-uGwJs!5pc)&X!winn9@p4^R*beC?qkHk_jqN6E&*;9`?qBoa-SqBvzxxf@ zPPzy0M7uN&woB=xZ+zGu-7X=+TDMc|v4B0&9Rz&sVSDvjAI~fCE!5#c%#zK3^w?kh z=gPpa;2lx|XCAJDcRt-zE0MhduQ`nxv zn@9D4{prUZ&q%_KYGo`7@4Pb(TNt)iu*gdYQ2n{5o(kb*axTZa#S5VeTPXG;f`C0f zY)_gcg#%%8l7Zn1=4AQ6GQEw-h4i7@i;6=bmt22P#(UTRdvv>9P+{1f{7H%Sq1)9^ za~5oW#JkmGk4L^@Le1bnk^>nPEyFDMG++Is2;+LZ9K3a zb%7gVxOICyyELRbpB)U_8|;Pm@C_|XqZY3s-2?Wpy{R7E-m)K)gLg~iJDpfP^5NKS zU(9d3XF+pp03W>b)vBo~3HgySsvMD$ZaTa5OxrIK^48U0hyCL7m+A#}wed3@UjL%= zxI5rehVAUkgQuG9%Cq3Tb-TcFS)_G)QvG3jf&DAz&zw5Vuw5r`=w?yx7DV+}*nZ~p znWOg|ZMF;Cc#Uqyc2tjr?a}RTy5dbm_66G^UHat`w!?cAJGO7$yt&z~KMazidVI58 zVc8gLPflj8+fhAi?`#aV>xVBJlZ1@R7O=N&$DhV~RC*{OPQW+Y1p#~1JCX#~A$A~R zjxvl^NA-X`a}-ON4)Skm1DUchhE)hpu7e5Bkd1W5b{4|$*pBMKU@P|N-^IgC1M<^N z(t`O=`wk0`|K`(AM7r~ko>d3(E7JW3CEbH}KByO{2i{X#5;CNF;eGrNunn!-3!Z=W z8l+dYXOWYE_gJ>JYW~S`tX-Pgxo?>C}&T{UgS3Evo zJFp8{t5h(?_{tenNN=059dlyYWq22KW`=0D_6EB^LZ+p=3V}W9J<1%(3+5w#f*5R? zGZO5Sb_|M(^KQC<26`apV0)o&P<D@@X4bwe(lsd~ zAtSI2!F$Tj7fCU?Jvo^IyJOh6cHe#x(%zyF^A7jShKlgiQ-9za{?ykWW#&zQ(l_a+r87&Ph7aj z@_a!*1S%-pEezxh>cv-ZX-s_%A=W+!oHCKK6hBy;<@A0aW{d(Z46g zGfJ7S*Ugj=u3M|)0emZxGa1){eB_nN*|keNfXGPjETrPkEbjR#eEQ@YEU0l9B(~YG zqxT+QwS|lE5Cl>vZCa8Y+_z7A9zQ%;?^=SBi_y;nC+*N3O=* z)s#Pc??H7|%Zw)Fn~j1q1_55&lsWAh@uhS8anGQQy?EgM*33fRMTBv*q41AqViqkr^|_^=(`fqj)5sSCEld)N-|4AtL|?a#mX61$x3 z0lV)O-k*KuITm(BMI($Ll;!~(*kgM7!MHiO13UMYQn)%3K0DQxSZ@tLd*bVlu}XIg zYzm%x=GnF$^fa>h{p~F0|pEx9AUxY8(3_3|`B;d_7x^Ek{ z2k$(jn;*Y??0DyJnjwLFE^20m?eNYZz3uq@M_Irgh*itj+0i)7_6H8w-;+G5AG~`{ ze6#)7J^K%R;y|-qGqSX5-PGH=FNE*?s^HUQp=j6+?+n}9fUfZl>FK;DK=pu~hu^k& z{l^aei)ZJFwrh?xs+E)pge~U}tZ>@=AFB`+xuMqdF9uC~!HM;Qb$rNnXYLP@Tv4 zb?ess?QEypb9IOZ_DpZccG8_;d*dD0x8AaZ@GPP|JdY3FLnq#4G2a)Ou?y!P4c_^_ zzbOdYaYN9Zw*~2Wc)4$|2kHEy7awI)XS}aJX1#s0Qt;%XkF^m4@E*cneDp$F#2``er*qiu>}JKc^XDjbAMvPFRQIsn>)B4Uv%S0bGI)$t zv4h?^RBRW7?eRxGaga^p@g6x!x=(i4u#jc-o{kzO@d&W<0Xw!cU~dc3tw@kKK46b} zKXK#;19skg1@fuAhWD5at{ogcaEo6)ew-;8lLn6+Jan+}e!K<^ILViN@^BlZv%`1Z z$xwZ-*KH5HAMuLSd-k(~yZ7$Da}T^TK`xa1-rc*x_TW8xWb-N*Z0C=9`N;h=e|c=r zR>8Xf*jb*e57>Fh1aiGC5T>zZo2Qz`B~r0`?*grwhOGhzy^4A=NM~Vtbo;m@9gJd6 z&1ntI64C3}V~$B1jOq;GA-yeB=Rsa;pn96c<{kOuVR+|{f9gn^)HnUiv*QK`8h95R zzwdZkz#eby_{>8zsyEmh?{l_$5h|)T-hCIAn(OwkJyiE1Y=-J{-9ETJu^re=2>*s` z*Y*AXmF@b*%gGS!YJ_(>{}Q&lpiuA8?Z7Uu3oN=F*crmJGhcl8;Gv^D%deXdJ~}XS zLa=DdlMjH~qal2<2f!|f8ob=2`aIRpF_`C8AP?!y&#W=NSqE7lmy z{EO%73Fug}QP5*Y2vFTu8R-t`dbBcl`}_l6}1*u@Ri3dTU7lh;9RfZcovMQrC8 zq)W)~Og0A9W0$bqN^=S5jTg+fKl4NQ`8MQ)ntOz2bGB!{_>r9XCaOD;S)JPBG{^RU zJs$<^IqM;aVUY?O?AV@9CqL>@6~affFP5#VK&)P?ab$XTQr@5xpKX}7gQkJW3K2H8URu-#G>EQl=#)eD~ZJT7WhBuJS{@NQBL7aakrLt<=dv2MCW&;w@%{1_5ngkMHfo_JaAIeUlBUo5NB+uvf6y zP5~gd5J%=%vps|-+TlIYT|$P1id(l7-g#yb7Q$QIB-)L;I21b{wnwzXEYbeA>vqze zTqoLffWh|8$w0SsO)ddZ^6H7gcO%vOJpH79dr~_3$^ZHlZ~oO^`*kL`;vc_t)pe_k zKft7D)~#K)ci&#-A*M|mw=uzgI2uio#Ixuw3adHlOXaWQ>H^f@)+{~x>7$m~^U*y#tc7()bwx0C_xNqd zS3CsRkpl-Rm@j_l;L`RTjzA9-?^s&eym_mX8eb1A{PwnRvg@f}A>;)4alP+O`O>2Y zig=U8BLK450u6X#G4+M)%&C=R=_PGA=Xut9=-?p+r`6^oL+d-r*Tgr;58QJg2X>!X z-p0cGyJz=ZE2qG~6jC|zmybPQbovVqf7Qvp=i_%Cb%8&4NU;0EJ5@_V3U)0mu{}F? z@ppafF6O7PZT4j?eP}!Xiwwr^+I1JpsvGQg+;&HEug>eG+gJV_*N!`GTVg9SL2}IB z_2JtqSTM7eomn&Ca(3o>4kWVW4)mZ<|{KELDb z+qZA~&^BgH1zWe>w0^2N+-~pQs8=cZ*L~7=uX#7m)~{P1$d|u)>-rnlvo+VPx%!`8 z%}|stw7%u4FgBu^*fvq@h5|E%*x|E>n=-knis!nihvdeS>0*L$iMW*Q77W<=u-&RL zfA}$O*gt-2*dDywcT~UOT{kfSu)}+^J?P-OgOK3RfkUT0cPbXP7itFHgJK@C-q4^M z?fJP~GADKNtSc1Ew;}N10r22G2itbJJbiRe@P4rRIhEmg2VzujJ20E}eEcp3>@4?6 zn(g=o?;wBZz=7DEAKiuFZK%F;X=iNLj-5R}zwd%~T;I26U+AuJG+OMgkL@~s^l0qF z{m0u5-@CspRKN4%cQR)U%d!pjeRtPwpgkYo1MGZ@7TdY&!@KB{W;?v^+OdOgJtM#b zU=Q0v_34#t)zT^4+n0M;oNaK<19^ zOYD}LxAH0}N)Ns{RRebZmMvQ$C}#fB_U%qIc%SBcWS8LfTW@FEw`}LrJ`-E+-h0=F zZi($uRW~fOZrRFiuf|-u{kGdVxI zUCY-l47PV$X)Z`-fXUyqZXLDc^R`&n&eug@fI9SE z_wKch2Ij!%OG7>?vfaFi-Sobjm^+>otS<}UH*eY$TYcRsVAn@Icn9`@FjQ=4{t%z46{`7bu+hbGENvzdjcf z>lM)LMu@LL;tBY-tqR+z_f>CO&BAtIkAXZ~v_*HtV|!ZzN^sunF@Jq&$q_!*>z_Oh@wN_T@bLxhv&{3Jm>Q--(W9cFgQ6;X#0+^ zoq7+|dB;qs?zm!5>12z?@L)WPx6l0e92H@EgI(b4u$wtYussIv`#yeG+Z{W0v>|Q4 zE-12%&E|bUlykl&y94YoTUb;dx@bBRKfDXxi_bfD@MT*jJsGwKfCRkTVH4Q>ARTPy z%d*rUJjD+0(=Kn=gz6h_Tw8wK#tG~*wkrngDJ-~U>n&}*mu7omZCoal4A3U54gMfJ zgLJzO?<{lTw{F0t?O}Vs62Id^OV}QRbY|E1W}u+j;kF_?p93trKQ_Ct#_~PxSkiVo zV5)8Vhi+Lh=pMG!IIADpt~Fw2niIUMGkBk~9pTeB*?n8Sb@SHvc{>1mPe}fTMy|(d zgI#uS*`As=e_&JF)|)qCdwg0igb&+;_wB#49ou>Jqy^#~OJO^|Wy>wt&X*9nac$$> zVQJ%IX{c-i#U68zgzY?Qw$~{(sGg_z;}O0%ztHVAC_0?SYHY``;N7L6EnqinBWt!- zU-UJru|0m>jUFjoHNbvD*dDw$+XcYRsQ0p=*s*<;fqREyC)(fokKal*2ke4?9kc}j zd)N-nz;5WUlG$TY#zcX)ZpZeO_4%K-U zCd4~;8t;z(u)R)%*ZqE+lBhTw-nNH#F~5=!m?g(9nR$7g!F$fT>FnDAJ4?ZP))KY@ zX5$^kq2m$@+vQ9UK5Wl{S0}>u9WlDS6EYR7SqtxV;H_C3zBSu>*4nRe>hwZ_8%24k^z^@=$1I8>Eu=CjNa+wvC zA5^E?o9#&#&-WMAS8V)}b@CSEhi>O>K*xfBJ^K~i&d#>3e7eCi{Cv9rda8oBr5#x>UUmJzo}I1jug%!F!28Pe zF7xwIFF1mYgX$V;rLAhdYr*ERQ^R*7Y`l46Tfn~Z(Ktw|9mcUS`9&kB6W9yC!;jTv zrFCer#r1J)|4{F#0oz%qt`b3xrQjXaV_|#aeeBwFwW_5S&83O3J^!#jiY$ogD>lF$wugA}Qs{Jh2#=7#d-);S3+z`` zDkfmR;@7SS+j;sq#O9mrf>z_rb_zTto9*v;&wF5;_v}(0U(z4avK~h@Uk#mmH@YvR zuUWI^O}~6a+yDH_Z(_enxBuEzzy79QfAg=sIrgSsyMn#>E%mbORo7m(_Qs8?->K8) zyVt*Gy|0F6TE0=>``xs$9)N1gzm=_8%xpgU`LiT>y|54o%msd0HvD((-piJD+~Me5 zyJ6!d3TUP{!4N^9MIGK{kH# z`!}z?cC{UkUrRE)YmFA**#^HE?fW2Jj^VZMUduMUZ?erF@IZ2rE#@%GF4TcHN^ZDm zg9Y>3P`in@Y}(T8wuFSkHm|Rrlgz2dZ`;1amUiqa4Y*-*%u*3cyx7n7PGu~OY3qlo z8E?N;reZQ%wRywl_&Eo5-MaPm50!2I;MOg_y=~VWck<5GWT@hoZgp#EtKZQZZ>$G5 z>=7}Op!RN9{^f19#W$?m5Uy^rJHza+zy|QO?;ohf-0;4e1ohFnn_{W$rnT!>&)oce zz$}JuTDR$@8OXAboj#3BVhV|>%(#;$Bu#4Y(^K<}LYlHbMOWQuUjcs1PS(i2o zT6-*U&GhYT*~;Ja-kUbRf65`)eT#2)A7*0(sej#j*Ok4e-i*Mr^;%#Y1A+}VtqV>C z>)*S6TIBk5^Y+io*VUFfuV1(Joog+%?s{##UbAT1(vUY*9ymU2HGLP?ug!Y-DmE73 z)A%>7y@~l=m<_ggHSc<#RbGx8BA3_Z`; zy<^pCre#*YV|CR$yxO|LRLifrrZjfUzgNBGDt;pQwX3ha>e?&+$(7D@1t@U7i2YCA zYT(@1m4k{Y|JJvR0#{xwKucTY5mSNTA7iW6tZlYa;CVoa_tcV(E+)cT$H?(Qyvc!l zbh`yZ_4ssj=iO{=wtFfnV8?dPv;zB8*RBrUo9*!areA&&up>NcwqNr$?`FC#U=P~^ zcHfr+{)QWGU;;<`4e!2zk2y^e=+EQKitl?Cf-T#&Y}mAc3Fgy0e~9WVcn9|Fz*s(O$(3o~@fL*mA56=Sjc$ApHvZmnU-}q1+*aaAl-n?G{ zs%`Al;WuM`z^*{HWFq|H_jt2CgrD;#RF8-B-WT-;@9hO;@4cznzVXJ@@XqQ`S+G3> zvx)>ayh~zpvUO{2U?KckuS^(*?GVjCsaU;!16yZ^Wp6*E5Rz1S6y+HpxN#kgzZ;dc@@vr{PQ(2gkSZ}RbhMKeXt$g z+roCImESwqZi+6A57^_A0pmfQL{I(@5&F0%vLEm74_c`0UeAvPVoN91}MQ(#Mgee?T=bRSR(nnLw08`m>(J?5U=bO9YQvcXQePb42audnj` zo0{!8u=#+!L_0AsMEk_^>u*R<{yheLo!IWRYYf{FzS%Aa+k^Mylf(Aa?_7Js_3PLm z{P-2{UjJ74i1vc~?3Ym=lh~fto{q7>_7L72ANfXdAr9W{U@bDhE^q<$n}UyS57>R7 z`M%;K+Ico_tNh?qKeku9t@kavBG*-e)kWu~_4Kx5fR6>O@QdomX$vbDS&oVa+lh8y z=TV)lT?5gzcyxQ%4(}m+s2;q}*l);ps~Yb*QldIPH*;1JS+k_pIDG1k#^n|! z!@HnwuZfeBiEp+yoE=Nz2=dU|BGK*ePPAu5bh}Si@V-c3Ry{L;>-bb5yz_WYw8t)C zyFD$L^q%#hdVw8;-?^FskA>|LGJ^Dx3uhE-OZjGdE_}7MqfGD~s?+VvCb7+1HkWPP zn&uKDA%pOAdleX66r$Vxo1FvpShejU2TQj%*s(qHU6BQs=yqU_&2uuz#_(VZ7uLmB z;O9T>xnR5btafVTWbBs%!@pq*yyHMy*j^>ySE9YGbHau9q2!a&uX+aFc~n=7XKC&D zP@UJdwglDPB?;TjLHL?~<3`e*VfzZqBi9@9X@cpk|TcsNNQ~N4gi%2Oj5auZzO?H54DV!=s?*+fH*TK@q~wt_417 zOXb>}LAv=GnV&KhMkZfR7Z2k^yVyj!o0E(TwqtU1J7}A4668jzk6Z}! zw=u_*yRj)lvw4mw8F*ukePA}NUAs1A_^TF^3Kdh{kdk~Vv^!Sq7J$@!CYxsopYpcN zM#h_yL2UTGFbU>AG;C^5+5Y(X%7kE=lPvZcb z+zqp--_CH@r+o4Fla`-vVdD9*F+VKl z$7HvXz{dL`!i3cM!4G~=aP!SK_a^mvHDk8N0VznE$M^U9yTALp_%r{g~8{}3V25;x+=zJU-GX*-4_u;qIc`|%!v=yfLEZc99rJi zVe+X1Y2(I?AOHBriP%01=11nd9_^5S1-*lU>@{x#=JRt58^=b_Wd!s3=W%aJD;y{E}24%9K(TAnmyj9Q$}89cQ(z-7@w^tKa_ehAZMlzeaKS~E0Yda zJ$2=RUQn=lHqFoO`SIW9qaB>L+x+|Tb@W6G^fdo2=I4>?a!>Q~Xdchoc7BG=x6@Jj z;l<>A>w6cI4$qmi<$Qk~fj!+cn|^yX-8!2xJNjYXCi8unf6?>#^X;5{rRx@Yr2fvo z-}yey`8i*2LsBrWe|}Az*WVXM!Mx0zWApXS4w*iHEn(zC3d*e}MwbgA1n# z?8ncy&GvM)^LCrpIiEk@o_U%1In@;k`h*gM+u8RV@V;4RsIAH&p^QbMX~|~f6lbaU z=yvUsRk%(;dS(h>w(%ae+fysLb4(!Pi_joemub$5d91==D!i<@h>Vfujd!Vxt7Jxzma?q@$>DUYn%DL z&&yo0u0G7L9fIQL#}B;pJ?M{&>3w6GUq}2FQ;at`s2rj>w6t53)e#6s{M~oo{ps1{ zLH2*Wm_9$7@?2MrTU-xDZ2Wv*=Er~U$R)v?Cv(Qm&;2)&&xP5`??QApIA(X7n8d`_su3_oAh-5Vv@Ja zHl$(a$Mz6(lbat`bG4d=)0{5YTU^K!Q5TWdHA^8IFyADK;G`qG#F z<(NExqj4O5nX+tl1_pbYV`u)I&iA+X(MHarCtnb#k@X zvqN{?brzAXBf)mS^qxT@x+sQ*F{^1lni*m5B*D z0!+2O`Xfh<@CdVS-@f>J?zu;5-H~8fN0hD2aTT$h>w>+rx)p7`Z5yii7uI^Z?Y7&p z8G>D7IyI)>`@P?5-EM!KR*uF!d-hDK{a^eG-=l3vg9&64(vth#qbmwPi|9mzQ;RV=kR4S9e2A?~3E}PxueP6j;q-HJV`-+mWFV^l~khhN? z9h0vk=e|!r`N>cEnHf~(_ogrOV;}n%uf=j0J29Pu4pih6_}9Uiv$c0npnRnJSHAL< zROlNqITU3nKlQ0kS#Rd>HUy(=uyyg!j(B`r6mN=6H75$J-(zco;mrjS=#fuktlYMz?OoHr7yp42> zId1J{ppmO~>n?3LXTs%d*Q(CMP~D!IwEQJg*q%>$2n{XmW9xP^fherz;XNk>I0$mG z^R}nUToTN4FQNM1!glNGYo(y;7i8nLt=M*gK(;o=9^?ufQ91DiPC8A*JG`BkIX(H( z>x-%PUEmlnWsTNi?RH8K9fIvGNUTeo?TljdZ{RPOZ}U73*fXcEWdi$UJF|D$9uyVW z)Sl+L-7%R<8{Y*4^L72AxEB=6zovPcx1P}&0ek$s&Uw4dwaPr6m&unB-}N}uI~L6M zrH>O|+`P_?RW;Y`IRV3D*zCoVBlYPexxx9m<{EY0Ci6Jua}dDiZ->+qKX1dij=iK!`rp>=2=CPEDI6Xr=x^E6zO1AjuwC$m^<(>d zUs|*a`Z!nH{CJq}Z`7>gN6;Iii6A{qCsaUAJPmqp~yvbpZgEQhG$0xkIl=Rd& y1c7S}Ch#VQdPKXE6#pFzyp6>6Znt^+Cl1^H&i`Et{9OzDT?_nO3;h4A1^yp$mCfV; literal 402056 zcmY)1X_FnvbtY&^VpV}vKo#~(Grwzoz&yu20ZqdkVIFZkJlv0;^Pbm_dqmD}{(Z~)KZ$?C z{uliJfB)hqKRN0DU;LyxF8^fL?`J>yN&25IIMml(s;RnId#S3iuBM^3rmeZLslKkQ zxv9IeqqV8Av$eUqqrKSOS?n$pI@FDk19UB^IZ)vHis_N?K z9O&z-sj60&(M;@Q)moIi8slT)Wo zfBdnGRDI!mQ(di0ZhWDwt+~Gb^v9=MS5HereQkBsM?d@7$qzqlYij5(_BJ=v*VjaU zTN)dbX>V%mXld42UF+>CcxZb|b5nhNV_mH>7tWp406pq#Z|f>_Xod#3>%v(*KcyK? zKRj_lYd=2u(ZzFTU6-$|x>!?np`oT)Z8=>$e^$ngj`GT!JAIn;l+Q`t?UIZqdbFd; z&wlc;2Wk8#r%rl=jz}`O1{d=cZE&xaN8yhYjxnyRtC9v9_|axpCv_;q}9VTi1?m9$meC{aVi4x_0&Y;r`+7j^mB12iH>m z#?j%Oo7Zn$KXQG0Wde8x;iOUOH*Ubr7EJ(s*|Zl+D6pc zbMnKVX|@i&OMd#~gr@#Z9Rof&89{AqIc|fbg-ZHcC@Ob>HN8~imfay z7?-w|mU1r<_33YCTbsuB_m$^orUH5Lm!pxL(u)VdqI9DumFiFE)?k+%y-a-d+Ai(DOT1E)>o`A`2iR4G<^yGHuUSJsw){`D7ywiZuRRWjH!RLF>j zrky(FiVQU)#!9irh%kzw{yrIfG2%o0Wv7}&uSNzc6C*=i9c|^_Za=}szTR%O8Akfi zhaaB!;N0m?z>DT}wYB#3bjd3=H#OmCe2Jp9sln~Vu1>wnI%(|YrzfUHhSU?v42l~Y zbXGFrwKbP6RaH4wY5&>NmjK1NvrPWth4VF+s@+Q)^@3K=Ngc_erb0w5ueN~nwwCn7 z8em9(^5vc`UFh#Cjt>t^j11}*fqNU zP`%jQ(_QEu9vGURo}n;20#z*a^qe~b`l_IPrPxcP3|2R#+G_exPxqkug|lZp%M%R> zOv^Z_uqzY~vavWl=Ng<6sXPQzNppRj&cX^qGt^gBo^J}rboz8i>f#0XKQl2lGB`kV z&B<(4#ij_>plf7vW22wCI;dzkmrEDUdt9zlB{Dgm+vd?woo-8woM!b!Nkx)2%R5RL z(q&X7c~Im-c7gd?m32(b2Iw8O!}6oTefU) z&T!CO?d>qxm~u4im&bvM5=$xdcGF4alVqZWxg{q)c>leh{uS90m-cJCb0DLnW;<2Y z-u9K3&z}+3%=p-QKYdU6LPy)m!kms1$g|HLjSmgdXEm!6903))ljt6%=Rr;i?TSS#~$%X2e^8II9>SUM`--b&4=Jz43RBtzkKncT9f z!+9+yuC=B4ufKSug$r{t(!}WS*zgcwpPm?-og8m(ZFb9XZI@8NnnGJ^sk;Eldpg@W z9uVr+o{qMe@zKeV!5fErKYaJq|Msu{vbnPO(a%ok+r&`+%O{T>-MbA@-OgC(55L0} zvPBcSD=J|i#;8~bDl$GiG&eoLxfr0KN*@5^Oatu)D&$`&^_F_NCP#-eFLFvl-0MiO zjUZwSVbrgwm14KM;6H@%biW47c6T~rua zUs+jRT3qNWmAK>KK}d!#6h?*z<<-qiuPiMN4fIo81cP?zDL*3PDS_lzdQy08pml`i zw5QOa7AgV+rpHExD&^?HsZ)R#Ey>t^;q1AOPo2WvTbo*-dZz2$on1YJp5CsWp-TVc z=-5#I0E$jqxGJJ+ZEE6)Tq(4-pZSDZh96g_(bv<~#>U3lTBMyCc$RT=QL{q`XM*$+ zQHFPd(v0?|CZ~obPI<4SR}D3nSmID$X)szox;!__J@KLBhPOjwm_UJ-=I3}`6p5Uf zhGuxKW;o?vAfACUUha}0sv}L{ppAml)Ql>RhV3o&b&hSQ7mo23&t>Sg3jgg&)iKnk z#$Qxn=+)UXI-7M&&6I>n6Sd?i8bAZNEhV!Sx$cTYCdMmaJ3<=_M`GzxK6Ojff98zq z8QwWUj|NsC0=m-P!<{RD0zTinee3@1TfoHe?yZ~mB$=Bx5O{cwrGxs1_wHn_j;_P- z_2tFgD_am={_^Vb=GrP`Kxkpn?9>D%1{NR&;GLVA#2@rUkASw0>$Ps?-W_)~G4o?! z4{Q&omPM_zGP!HyX`~PmgGi$o2+(eCYwhXk>h9|5Ds-BWK_O7NxxO|tHA%q?Jr-Ii z7jZ>k2sQyb^25~wtM=9wDS+|VQJw@lCr*4oh6F`)xp^G1jEj<%zxUIh@)4^G^SF?? z@VkNYlVn_|y7H>>P**;9|NX!E%fHMsLEUlPT^d6gdYU`v=y3{rx{?di(_5Fw3)dT zyE>?u0m83nT1queNz75(G_v}9m>4A_9MEv{+Cg`rgQ~18FY!lkesXlAt)*G-*sLR6f(8$1Uax^m7KW>`QSIT|S zamYY3LAs*`j}BB|J1u2^92_rCD-5N0h>YvDs}rBU>OD&BGF5J5if?;Vs6i zsj&fOwzsww#6lXI+L~Li3|E>P8hI@PT~l2h;Fl19Wf8a|-2m@;WJ0I!d?i%J8~}S~ zdn?|qr`WZ=a7Lc)7C2mYN%*C)`eM~5r#=SkfV#7-T`0z}tG!d|XjKEhQ0Q!J#e^j$ zHrQ7dLXqcdDy5Psr@l1QApg{$hKhQGQzhA~UV9d4lZ=rvIsi~fYOMR@DZzF(5~DJ@ z<90%G-KnNFH&C#e(ZK=z;;_bt`pKVGOpXkJHB%V#*393GS04B5VqiPcJ~29?0JlO! zbbt*~EtOLzhO9}Rl7E8dtqpZlj)9ELx7 zaR14t51%~xR08jx-n%Q^zjOQHy}O@1ynpZZ%}?*&y?x^v8krH^6$$JsytB0lE`|oo zXM7ePU} zH0UwqErRx(eWHWpP1a z2BMwxL3yx0IW}yrO0cQ$M-;~6h*3*O-at@Df(6mK6GLo~3NT-ooq<&PC~jkPu<_ZcNn?i=3eM!9mXfAmgrg*aDbho> z+_b_P^WE29{^vjc6RJ5mIs_K*b_O*uJkZnGrcpr*lrxN zat>8WFP=O?3>N2SceXZy9uHJ_C77oDK*^14%4q5@#1m!ZrZce1n=Ekg9>=GMzWw6c zFR^rDWRE64pWVOpi?82&|HZ4Jz6d58K21UGJeu04W6WgJd@yJ{WTu}a3BY0d`qH8{ za4}P3IC6&ZGLUoy=9{*-4&DhC>7~rrm(kQn&C^<~0`iUmF=h?m#ZS--mck-E(sIHf z7NMm5D;r8eGvk6n&>2Vt&A z?nS-5{!sR-Zo$j(}=4NI!S_jF^lVJJQ}*$IG<9_KucT(L{ph zaT@FDbThH6`ruBbq86I#jSLQMZ)}VW4K~#&0RWHLte6S!R$pWC)ka)8k9% zp#b{?;>OO_mV9FlrZF*BG~N?4B$Cg}*yz;gh+B9ojyvgFy)w*UVq{oLSOgO=WL%g! zH7|p0sk@u#NQ?=okPbvM(%g;Yv%%7k!0fYU=vZ4*eJ6)nS4)3rxUqxY@)X?_yf zx=e<24+-&a z%ySkp)DiNe2E-nwS{Gwy1hH-;6YWGkfxJo*if;kTg=7qzz6Pf+MVUlrk43dE#Zv{JRX; zaEpGq%UCF8)Evp*tl80EDPSy+kn}6ga56^lba({m^2*ZI@qzuj)#v94@qWNQxjvno8T3GE(8#9 zfY}-0ECVNlzIJuGtKi1Yj&`1Odt?1Kzxw6Xz3oKZV>&M}Oxl=`B!cQt3u7cb(nu*f zh)wy4UC>W0S6*CWXLJ2v=L!PA#Y~Qkh{+f@12Hx{=tk00EW{P-5umIUa;h0vNBH^BC$&^Y+n zDN=3pKsxFRqU#a^CoZY2sVOn`_Q^3$Z*XN{fzwfyfVo*@nh{q4b^x0Izd8>qqtL+| zv}D}^rz|XsWA`I+znKkt|oqY{hOTQpzcl z0ZKE}mMeF=JO?3Zv*fyCw(bmW221Z0FnsbJov(O=X1nN$W2D5`bx@s-IYR+t-0q@k zJy8SlPwEHnyxv!@Um@gAKYMid)(!C%=nb@mWioFE?0&`G1Ih2-ee?N?pMU%H%jZwO z{^GSj&DzqUunhAw>lXuLp29MFS2nFJf)083iTOYth-x%h0o`-dTAj^(5myi56l+q) z&dYVhv{_pE%zxHDT84eAARn1GmojHi>ZpR`;V*I6X>BSX5DXo|=`eb8CccBZOHp6H6^ zDW+k}2hHZ5%$NwDZlhI_S`l?}(03Bx0eLZ~E=~o&1+2zLMz~$T?sRwiigjnMaB^(a z0;_?8w7lVxIQZm5hnSbx7uQl-V-R1zc)GeU*VW!4<{+FKP?;PSWRpl3mC{;`Cub7N zimIs^%nuS87U#NN^Z5LiR+%jDM}|ObpHD&j$dP{1Teic-k0HIMOU4{wxKfgY*(2s# z>ak;kV6|jzVRmnGt=QT2?BU)2^p8KbHPnw($|y7ks*!5L-=IeT)}>gY4aq0OV9r#| z^-3ugbGgfw++*)eL{MP$jh_kCD7id6tY`7#F9i%{6C~_6Uh6Bx;k(=in`wxTvSh$DriKD4>z*%+;zn zpSu1I-nH4YG{%FnJ0LVA@7}x)w52;YZ`{8VVRpT+w+!0>=+#_C~0C1l8> z!BRM(c_MGZQ%;ShYJoWzSFMJTB)tlTKRVJ^>eUgyiUSMu?Ooa8*RW-`P$4OUbFK=q zIYp3+KH+2Rq|NU1+S93%mdM8_oH>pELv_UrXx4Trp*(g0)?CRo=Y^H53=yR{bH?Zo z4^+gy1gi}Jfm=5*f;<{dzPhvsjpuA=Nt`@~+0kRJN`Tg{1`BQh`PJp6k>MeEP!Gnr zfO4@1jFT{)MzF?oes+4?&x7JN<@MzSq`lh)I0kQjPHQtnl7I=2&D504%`bF>R4scN zeYR%oj47Uc>B5C%?A0VJOd$-Y{f0x6glGiHh=p+64m0IpLbe@X#S8%>Lu+qt=q6Q{U+OgzoS&MUo0{PMTwhz9w*dOnzxpeqMtijoj0+?1eRKwr zm%0j`LZ!(HpI1P090~g2og4RVUb6-bjXPRev>|ua;1Zo;5+&1GHJE{s34@gJg0z zRAzQnsDhz3F>kDo5NNwT)z&dXuq;+nDVD_H`^%N7@yWI2<)Qw5;OtIdj=;lGJU_E> zt>t$Z0_KsYOEI`Lu_cCjn^2PgZbk?h-V@G8NZi2jci5eFI%O1uX&x6#9+fg{wJ5`l z8Wd~9hEg95jb>{+$HatnMzy9J{0PzMDmk;e41i=s{>&;{C4ngHL8wTk?iS>XBYQL) zSrr{kvRok`#}s^Pl;L3|qoS$Vedr^_P_t*L)2R&5rYd@ogR}}ebzRqtBfEehxq0q& znkA5{g%!%Xl7Gte%S)lm)giHX(CJUqaPQWQ;N<@-T3DqmO>rbBIIQ(rKtZ0wdHRZ0r&2y<`e3dcP)F=l3jT5B^K>@W6!BW&5x z9uHG{mL=&jfxDN5(sq8+Ov-j*Lg03_8LQWRrkz6;22sZim02E_D&Vs)GX*3`K!25V zWOSY2y1_o}*hI>}qlVf`VxjgCvL^5zw5p*_Vu=b^y}NU?KQlUH$y@a1`J)Fc(Y-tl zsBx5-Guc9ER?OJ>3kqf&;e+V|ov{tl5aa5oJG!pt1`Cp#xo9LxFJdDs;3p9P5d+9z zl4WR+aGnlH7A^>AO)(J1tavsQ+1sQ0nlv{#e&_nt!<{XJfy>|y^a~6EA^=6bQ_?{l zjYad+)NqJFv+XU3>3_s+q-^O5WL-+Q9Lwtl3wq0_5SqcmXjP%ZTt`PpUdKThNEgrd z6re4-EXE!S8Z}ft+R)M3>Zr+5-Uh?dvlljku}fB0M~8;DE^jPHK&AucCwPw?m*(Y#+O!Wb8b8@pbZ)sf!63O3=evv1-fbA{D4BcmkFzfY(G5lfj){D2(2S* z@?wL=f=Zibff_!V%_1l4LWQJita%v%(HK`$%SC93<{1mso_PQLu)DOQ4`TBs8QbZV zZC3*CR7*hwLwUk9Labg%RXLStBc`F7)cRO~le(%r;dwy1;qy?*71*BP?p=WlhDKJ8 z5=ch*G~%%zh6I#6P6EaGr!+MnuGFb88Jebkw|m6x>qmm>(3=&5<(t>80`_;AKB zkr_c7sBX#C5pE;uS2iw>34D#lHf$u8qhz5=^RqA(2*7z(kF;|E&{Avl#X~(>_jA{P z`MZ>{J)df-l2o1C^wcqNtyn^Z9(2F}5hj%b8kUL5#U7z@z_h=+T`KkpAde0Yi2}+2H!&$U`jx)LyrAHXkAOi)LP}2UodARS ztEbe4w@sQ;O+;A}WJt{QriMD5RS9LsA!C*_GOTS{C@%`)b&V^Vm$_q*KG=^+@kIlM z>FWO8?)KKL8`nR7{>aBVcE9=Z3z0ek)ROS9 zDXva`#72M^U>BCr`s`kfg`_VeP$?Is4E5x|OOilqOA|-|lDer9c0oVci!GfI(;Mi^ zO715aqE2WW@nHZZs0H4`f^4u%`xaE92GA!lD^QU0sQX~4hniKLvqPiqv-`J$EvFe) zMjO5+5zB~97&z1s78yIjT3cLLnwy=Qnt*#i8@5vt`#>zP?q1p8rc)?m7~uPLW_-*M z`&HQEfQ*(~6wp&O8z7huPUVGe%H3T$1>`wIevoNgURi|gds~;y(KJs|5>?P&foRI_ zNC?NaoOaO&L{qkG9ibH|%nspQmy8i5$)b}{n+K6LO;e{+zJ}t3?j>LBxm1p7!FHGw zJ04AXF4fqkj*~JzNZxKIT5#RiYz*7E*~EfuHW<#dobT!`bcv1Gv3X@<(>@vDdY}qO zB^K&-P4X1^FrM_Xl3u`V*EO5yoPuAc8fipga}>vNK7Io1gr=udg-jg9#5i#vYzD1b zXaLwbFZA-xt($nJH%-_bGvP0oZEgnL$=rh)Lk}YbaMTa0IXLz37fwN_M3GV(;x!E_ z1lXxi8j+-IX-5b3BUMMBl&~m3UKiY+vE3sQ@}~ungm`RR0SIsGq>Ok_(bGNp-4(n} zwPX_QNp`2#x#k4m@f1_qxRNNn+oiCJSdoMqf$eH@`@NetV7ui}v>cK{hHHlh(BS@^ zxFSJ6h?kMyj`!O)u7i5JyJLg*(VXz>Yeh4#bZypOehuRlH*myX)i< zT=PB@PO@+;XalO10YZY+YEYZzK}d`!X?R_Z*hi1-)<&qh1wpNC30-0s(NkKN^+X;? zVV*n)>ocH0HMBGWr`E;d^&+!5Kx(ZTbr=5_A03^Uni4kGHLoB5@VS|p+c$4q+1QYO zaPO`K2!WStR}aNuQe1tSD8@%ejF+dY7JzewFxKvOKMB`+s7JtOE<-VHO9#OtWH1)- zrcYlnxPHM5#eBbo8-;`tpJ-6XN1Wev1q>hB?_!kiw3$!9G~(X+>!>O+R7T9oDI|BD z5IovLiQ7+(^fs_PtzJ=V7L>7_5%HZs0GWsI<6a80CB_?$wKaIVl>=}J%oE^*8Nyz- z2Zp4GC~c&EswE(OrxoBmHkVINQD8^$8B^Eo&2>0wxUqLCZ9&9zBPqbN-LOzgtdG)4 zM$IDxx`8TxAw)?#?RAItc%!`V4v)XNy7c(ry@Q=CfJPcB=XCVlsn&+hq*V!Q9MBPq z*2*|SMMeaC0v;28%Qi)5bS875C|p~EWCWz+4~0%MAe9K6dH)N@=LZ1+oEb8}c9?AU zqvdYEZqCae3eMEm)WSxn4*6XK^5#A$y~+6U{QTV1l)_4yw2hCBFU?ynnd1>Mb!RC^ zNS+xPO|U>X?_|!O#*`s#ZfDLhd@%*{YU*jK22r7bPP+oS0fp<-MlyCr)-+ZPDkn@* znFauM-P8;h zT>;DaCqwB9&CFHNuB=)iy%c+Qg+N`Dal4cs2Q%HpPpL;QpxKKjk6}A7fAk=BIc7*l z*b<)KaF6~JBXbgDub z-Vid2>R2cwb5jiB6{ycR54~|$jq{Uy_DT>~rtH1Wp#hTQIJ7~9{M|sj09CS>F3Ld^ zV(GBjf(Qq37tzBMY3znR=H!p9lt*$RE;89dPTQuPqL<@PkiA*LzwF=lSLTnAPCTW(m}%U6-|V)l3VvOI(03 zpwNxE-tN|xILu)GK&8|-Ix>26aCKv4%}yI^oF|3t{DS9Z^n+tYhY1k4E0VVHVhSVe z8ZV!_36wP6uQ@j5R30p7zog6R1kqYf8KAvW<10{LPT?&8T0u%;Tz*oas#K0q2=xGA zH>v>;@q_S_8)~SvDJxhsm9TQ=L6nDPavvaF!hTS9Fm9D6G5N@An}?k!OCKylQoaCRiKA+s)8nctl`s-4K~EXQ#+AIVNK(JHUT%Hv;eU{L}mQ1ZVJe zF^%BrUWY_QMuunN-Mu0}))-C2)$>yvqvc7SI%SmOEwHqSJ>$FraWMhA?(0Y>HY-lE zR2V45zFYv5LtB_keVubW*-y-8ZfZi1#8mgugFAMut*1`gY=9lg*%KmS z1A->vMXP=Qess7GiuL7-S1-k#zI^>kh~~*>kM?(W+`g~`AYdg} z!SGRK=sHm0c2L{`%*1ugNA%Qw7$(nN!7}iKmY@=2-@Lqzu5WK`V(EfXD!0(Ey1WeA zcel3}=H~1Lg;YArTj|Bt#yWQZoVYEC2%H*aWZS(wh$ewwh-3yts$>h^Jug#e?NLCl z0U#uIoSU8;9_p8OfrsH{IC|n$5UM-!JU~kaIVRZd32KIuPaZxHXAYfAu@o8VYPe}N zL(t{$2txv5;W7~5i0@TOI49
    O`|l8IX~gMwy#UT$hi)@OiPn*jo%^{0RMad~b^ zK3fg0#qilX#Na-&Ye2chd29&uEQ8Ji8a^}zZd*5p;i9<650F3H+wnR!4`@OvqD7J- zS66p;SQ%`G2Ji%WBaMI>IcE+wZt1mT?WU(tz%v8zE1|Ko6Qhg1{7{K6Jn*65-5dum z(yxquOn@n6-ma;D0*kNLFX>m4$U}MVj(D&2sc1|ypin@g-&b+4VDLY zrZb=;;|$)8zyNI?A8tz*&tJf2BK&#LOdpN+!ae}A!RaDBR6tDL7cwrdt_j7gudHpZ zZ``|mZ)$WreS*fc8hS^R37Bg(f8^+)poy_-WajPMpS4u`-eIqC3929Z5L=0KkV@#U zjAXn>z>w)a;Sh^KRGUX|`rf6I;Zk9>M<;e&+h&a*UbUz%by*P;;1V_oc>fj=-E^+ZBn@OAwxtKYsY|^@|r@yncm7-o1SjjbB?@Fpk>B zQck@8zBUJ=NC57r!Ktu{Hr8x-QAt_EEKGR7`xf^iu0{ZMqhKR!TEL|nld8i}-9TZH6`^K+aL#D;aYl;n^F`f=~}?a!Y* z{nao3=I{RIZ-4&XchZ|zFLC&<-n@SG`HNqC{~arab%?IzPDhzrW8m85Ex^`MT25B(JPy0{^1Y5F~6ddG>~2eM8K@G zXIQ1kZ8l8Ws0~ZAGh~90^MHuK*7_>aZU?>*(dJv%j!d0=cIjYeTL#2GC zs4ziFEIDQ9&zcKk{`ve*(o`l0I1K8_p?OtfN^>Ke^?_l>}bM11ux9DE8 z0QigpKvZpjQNUA2v|q~s5um`*wLcp*yXFCnsasrkk@@SU@-Diahmwb`8PM2*mZQ`9 z=(?wvC2AD%zDWRAQ%tV;9dkfgr9b9>w+@oq>v4mdl2|C zYv71U15QdV=5dq{NRQ1Q@hLC{q8=4$o1;_Eol`s|^Y#elAII=7iXNwTY$?2^+T8fi z`${PSgS~?|G~PvpS+KmOtOfAiNr%uI}F zHlnU=9)y-_ss^Wr#?dKA|F=wn_uQjgjNdfYX&jGN!!=U#Xeo7tZxn!flW@j%`JnDC z&5Yd&mr$+OSiDxVvATp$LYo9@D_AQ8!@39h`s}g;s!-i`IRNX(&>)Zp^};4N_Jccj zc&jg8zn1vBG;N6$2m4F}@UgYaE6d_|5_Sy<@mowxMvJg_m}y^uYC$&}0qHNFKeu)P zeiM0Kz@=|pzwSZc9rAlFWdoSSo^Ez6W5`sc9(VxfH&$1zOew>fbQ7XdOS1;}&%eM- z)rzQd8Q|UVhVR%sc>>#Kr>6nCKn+KB7+@6?U4?TqQ=%&tPhp5)A)ObH@mz`y6kUvfd4+ivI-9~WHp11Bww-|-kcb>$AGc#vpn?Vi_#BoY zC^s4`m3u$POAv;eO-TlwEf{Oehau3<&|!Le?ws4rCO}^bN5_u7*y>ys?9!0@a4yTa+j zYCp{U^dz^Uzvdb)Ub(z3!GFA+cZ2O#;jbU=vwFOpdaH_uO0Ni+x%;>Z@{IU3LUk>a zOgCt<9;NM+onA|@h+K?`NeQGY#tRs3vsAs)FZ!>89G`o`>hrGPw|qOpJELP?iKU+s z-QqPsH{5fP&t9IJnVXuJ9`_*yulx-80?+j5Ftms8Dok!dbixkmvp^e<1$wwTpc2IJ z?XQgF5k-pWj{eakcHuD{D(DG&XsMfM_ENqqG48!FDZo3Z-2! z3SibK>r~pG6Cb59E{4Mu;S{4on1&2gy2ZUlhiqkdEA^ls%5dnen@6)aD(dzKYNe=V znq^m6t}z;=QnARN#z!L}eoN0OVVZz9mdZtBM0-e5k6$it;l$*k^ubR`LUv^LLNdz)6KEzP@#5)YneV>-`t|28L@FS> z*vrqq{T80P?uwG~XzjOOeXY~W`GSQ2VBCZbA zwf~(9&^8w}jL%{nR9ZU;hxN%D%COnwH;u3Bti~MH6xgYs>||b^pV>sY=IQb{loMA+ zr17gq5AWZ+b|esuU>iycEW++$s^S|dZnLWI-+uMg58r?P{WstI_0N4!@U>-P9>Hpw zzy+?w`a~xvGyTZ|XP)4lA|Yms*PanenJN_Fr}iMduOy6WGfan_he9QkjcNf;(+4CU zRpwLFOfBKIEzx z7~_~MH)sh>pyw2Tggq{Y@%d4Z&UTm;Yl3xbIYQIzZInTR22ucELikV&h8Aw(0)OmH zRmrErGC5~ca9F22OJ2=@R5MtLM|E&xF!eBwJC~#BfZq*T@$A{!))GUu7iM7_ucO zWoR{gc8iPDTbs3(3FxoN^-*i#fFpc>7|g1%KA5msfP1ZWfo`W`iL?{D1m0&;#?cPU z%gc+xSt6N40oZe#5K$Mnuo;qLjX+I&Hy{um+6UlQd$e`WdKRiY*1;ltD3U1%m~C%t zzUA$)PAzE|k>)%`O(x`{&4K)ZZ*Y$S*l>78ow}x*xu=wYYgSl-?JD8s%*&i6+xIGK z8z5B}I8bAgbX)a|Ba;-+LQ+^>|3H5cp7-{a`?O0q&s3O`=4To4+yaMA!h5!{+=qVY`VY}-I$pg=+S#k}LSFMs#=Ivj- zdG*I1fBfxlel6G{GMrvi+(OCByKfvJ!dI*?O0mE+H*1zkvG3iv{qVs(h+%q{n*DJe z7qWGlq1)r~pvWXn9-c+xGkedG86|TUG(H;nHiCqNlNCcyt*%8!(oZ44^vwa{a@~

    ;F|9)IGvLHf#-uNg1GFf`;vYsh-~xybGly72SY zmt)D5!m9;-Z3Ox??D+hP^EDO@2(6%krWTgv%z$=HO|=S5wV&q3*bb_wemyCyCKgF| z;VTcbf%(ADFlVM-vT(F8(7CEjZie+Au^sS%ot}4)OQVgj&?>M`&o9Q7UtF;;)1!m6 zt?jj~orll9+k5^?%kxN>+1z@lTdbuvcOE@{{NfvnxPAA-Z-4jCf41J&{^8FW zy#I$6zx=@_Tk`2QzuG@|vH#@R&i<3Vr{6q!`eN_V!2_A)3ES@{Y*&WAyt3%xsOY>} zP=M{b`}@Q*SUmgo#o$2y*FvZ+LA4%(H%RU(6nbJ2V|J&uHl|xP;kKL9q*@vduZ@q6Z9o#ijH-q3-EvSk|}z{*u@c z-f>ajG>eA)9%eg+Ub#f2D{caFv1S<{$S+pw8;LJ;SmDxuIxjV`R$Eo))z#Ns-_&rm z@LFe2m+N0qslC57Q;J+kIr-xCMpJ(o7xaNCyyjD3$F(b8`$C5Y2RN%H)C#)FOG~A+ zvE^l96<#l7?!!2-ns`3v{q0LD#{-Gf$CEXKfI^<-2k*Zt^<89BhZ7J89h+#^fr6fW9;DoaStpO;`bn{672P&ptl;b2PGHyJCIlrtLA)vtFVtj~q^zA1@eE`SjbK zj{h_yB6&SgKM&w4(3wf9+Gpym(D4ijoh)4hVsxwx>#z;99r2HRC4R%H2>u^}bcf=O zm;M3TUuICp<9}+5Fa^;zz-Z!qv0b*zM+O(m5=9~BIk&0SwFBusRh&7S-FR@6e;@z& z=;6=20mD(H#L;&z-H!4C3ILAMMi6Y5GvoD)k51ezyt|ej;KLB(?vf!XFdOrO;CXoK z9C(8iwtI}%@i05=b$(3LEG1{;hG;j0!8^7a;1ck^jKHZc#2TXBeMaZv7RlxDi=4}Y zm9zB8$8tV(?9}==K=13qa}SUS!?JTtTpXE5^t{I?Ocr<)U^S0(g!UA9`cf(D`OoQd z875+;Rt?jwsj;Q0w5;^;d$7O1dvNfZfBw_=zx(5}?|!XA!{CLn9oJ2{#2Hm9gVXxD!JI>Ep(>54z3G?(&TRW=jJrxq#0@Cvc$XL zSBx<9A+BadhqII8TEX-WbT?zN2;(hF0tqaJ&*14EEP>OD_{46}SPJ@VZdx{@x3>BQ z#{iBZ@f#%*=iDm`nQ(zjn|w%SOZY9#w;~=M?tMoT%^_UI1)y(E+ zhDYT@aejn%`vI1^^r@64b+$HiwA9<|^mR1fs;TT?yo4K5)7pHqrHNJI9ICq7o3P#E zXJ*EQAk9IPER*5*OtteDi>(L!DV zq;8Y9qTE$D<`<-?1b%NOtzB!i>YLTN4G7H|`wVOWG4Hi5*<5lB^nJy z_199~pwh6s%wI7#fLU!ifAr{4l8;klxYm>b-l;$YKytd24ulSdjExkh`fPGk-hJ;K zZ6T$@pR@8<;;7(QEH!-QZ5|78P6opxp-$Es4tO=Bz773Y7KQ^P=N5QPYEy6$TVPf> z65EOcuNdDra3Ybf_>6lfZimW+L%JR7P%exci`fzCM~*lW2NS#-2n+#at!JEO+`JV% zD(Q1?!G2*1ol8>L!Q5x?nVp?+$9N=<5tHS~(B>l4q7~@QyXR?OyMNUC@e@p}(8|); zowXE3!w0ZCFF(RKF`w>`--ahT9J*<8V`y?E-2aA$J09_aqz|M=GOuiY1bparF2VK$ z>7m#yrTU6E!fVb55=PdVevY)&7m)wRXj8}i%p%PW>rUD?zF{DGbWcOL9)Zf$FWu(A=$`T+a> z^XLEmFaPrB`3uW=yx^ig`xe-rfA>AY+a4V}SK@^2MEmZegPq;S5BCoq?CjnTu-`{@ z;(cj((PBg2|NeLSA4p0$ea1?WmkX|3ExcaT*4A<3M#*M*mRmsLRvo-2PI$YFiw<=$(2YWk^^(;+9eWdVMjpHFJuTq_ zBTQ@X-^l5SAnz&Zv-}A1m^_o47B-db$$p{IJq8CoCY0w;KQBnc)~5<1$m5Z?rqU-g zzhEN>jP&-)!jT)JiA2-Qx|#uLlUapJ8q{PM@7alwmcXx=Wi8i;ZBkiYWGLwEG$z!j zaOz>|*H`y3xB&+Yb$wdudA<~ni|{QzKixG_R4a8W_oOV zY;a^`psTCRJB}Jh277^BFPf>zF;+QyTx$f43-~R`sZRwJQH$r`&mX1vE$_-dOj?D52}8z~ppFQS9<$0bz3E9aim3hkN3#Gg!hZQs zI=odp!ihf(rPywC2%_p-eflkghje~E&q`1dFg+3v!41vejxA$fp!CRVZ08?Cif@z6 z9+Ln+!QhXsg?)M$C+%RnloW=F7iSGQ3md#gu=9+W$Qhs6iP%7rAp`HCs0Jqh%e{oovbm7>gUoJWrR+VoQrOF;=MRRs2jG9 zI=w`z+hx~~=-BR+v8fAv+6_m60IS=<$7yLrGHCtY?s-rWq#xfqht zkLse60b<#Hbm@)S3UmuUAQUSl zUVfe}G-a}82LW%Ve{d-6Kfr)i&@?%lvwk1lKEJY>1J3pJg;guH-9h!cI}bOuwl=pO zfc(b&t^H>&Ui|Rey{FF~+2O!^`|Iz%|EF}#rf+`r{j+bsd-U|#ql4J?o;oy2 z;i@&9Ht*bCUq|ByJKIYuODL^KQ&tXl<@m`{BB5QKU5bVj)G_dX^_$;JOk{;?*>+}t z!U`@zYg_B2h3DpG=JK;7*+kMuh1^wo&v~B7&1e^|D8s{8h} zIu1hvgm-Fmn4v3sPqEC$mbt;uu-SK=P#w};S`VP2g*&+=(8`-O#}@!4r#08|V4%S2 z29i>#rd5LyVyCG03LfAydqGq;c9<=-O9dCIY!~~k@yhejK3y$S*yff!^r^R?xfC8bQYzjJV)Yc?nUeqeEaI_XHzJTlz3 zyp-e8(DO(;H#a>qE6P0PO)b7htAjI5E`Np(Kbld2+97!c+eKX|c2kq;iV`~-I|6$} zNs%4-jde(#q-eTzMC>$ZZzd9&+-ko%y0^kRt4B~H1bpPxNE3?T(oi@!&U+VQGt8^W-mGiiW_-v%GahS&7Fht>JG|5pGez6kfWEVpYut z?C{l1;i*qz7sL|tnTCyGCD|+~0}-BX2V_2gT6@PyQtmOUL7oh6nPN901U%n4LxXx3 z0-k6GK*NP!a&Icq>RtyK0>nHt8K;;t(oL`(qr4!Aj&k^xh8IE4KCs*DKpa~G!F_p(T)&m$o|N>dHV#%JyGMNd&+hn)kFi^L&gWr4~Kmu zJ%+&|9foOhByu7>j3BoGxO1e>-6DBv!q{J1$%OttlE!W0x}DY%AxtDbi=re> zJMYEW`M@qXyt@KFlh+hkKqrl@4oVL)oiXsy@TQsMJ^q*6C|2F(mMZY8h3)=+^bNmo z;XD~HE#M=Tj&a2LCKoR{E(Vm!bvynsWZ)fQ7&x-!#FglFTWfoJTSrGvUypJ}HalZ9 zjipMVG2zGgAsuW-M}<@SH2$5O9G{w+TU^R7En5hC@%C-r%Wb{EZ(DJ5V{!HN+|r`X zz}DhS^5386_kMr(;r)jXt)PwSkDtAG`pvic6FmKvA@lU$#S0t4Z}0B0Q0{MU3(RiZ z)fE1&btv3Ei05u&`|A1{1zr%nan9?hCAYKoX6;;F&x6}!xlcMhJ+Zhrufh28%Hs0M zayC0UHl9IsgpYo?V|rMI--3S9Q3Mo(=HESYy05+E_dk5EIi1<@oy~RYdeqcZ<>zyW z-yS9T00JX6ri$1oq~oysXGtkHYbzxjrdW0yQk0H@hFm*fk4=Jhl3kHVeZX;~)&o2e z$vx3=(mK`rW&t=aU`lzC@wcsEJwF$|K~n>&FD}lZr4WDsD4WQTJ3Q>$=$o0&>feZ6 zz<#T#ekP~6`gq@9bdvPk&Yt$ck%8&iiAD9b`DxCHSPG(Q6f`zAB=vEyml|*C?QEKz z9?69*(Vrb1Q0B4(2zEQ;LEGsP$>SDZ;SaKNj z^8M<|FKM%nEWK1y#rD_D8$8>Z8WFxUlIm|Nd6u878V@UWXQzFND>Iq59oX_vlVRo z`XE`LSF zU$iFgd+sbrFMm=B==sk-=lcl&H8j*~1u4mZXh(Seu$^wlb`e;~lT2w; zk3t&xdYxT7nZe9(Ghkq6^Ytd`jnBb>MW`WES3eEU*Q4@b1=vbc2~8Y$tuj2mAl)zy4K_ zLpN)2I-+aXBBY}kj(61Zw+Jr>(rIA@~FeRgg-KR1(= zS>A8?={{qPuxwK3+RjwTWJE3_6NVe3wWG!YV!K0DfbDAa+?n~A<&9O@lB7H8GRNus zrsle(m3&W+?k=2`R(O|eK0lY8n#|1Q#_!!-6)NrPY0ZussXBEOn=qvGb=tT)j)>3S z7IImh+k1F#a?BaXqhcI2CFT3OrrC>%D#PTeZH-52WCI*FF^u!xFIV)BdBqB3*9?n=Se z*Nd)~mzS~I{546_^!LTeC#z^tQ*19T@kZQ)wPLP)O$OV=FXcmdus=AzNPf9!Ir)me zICqvEz!BlY@N)_-f5rWCZ(Vhz73ZQ4^5u)+Fuxwv^nli6bNMr$2SX|H*E!JsgdfU$$dt@R5!l3*Hi|-WShPtKV^N z=QB7*n;oA#@i+M4rtV&b ze%ukd-2?;P{ZSj3oPtB*13__)dQ@VCwNAQwBZL-0pEQC-2WUjvH$v(J8E zTBoEJx=DAxpY}DJkpn5W{qxVmhgZU3We0?}FGG?sckzoaIKlEpxHRlUY)5!t7hR>> zfxS-G-()Rj4h**2Fq~Gm`SZ|YU|@L2zM!g9F-0`;3V1!E4K-#=2~Q-?iIockfd2tDEchcX!q)@GWuGyVeXMziqn*Pqz0T$)eeP z{CMx+@y`C<{=t(+&z^z5fdJl7ee2;i>25g*koSTySXkvb5=bO<&u`w{yuH3Qm(NK% zmnAqy)cOq56S$4xODt>4GrT_$Ukfi3ri#!f~Uqt{`dd< zAF+7Ad$B;dhb=5E3@9DfeQS`%74CX{U8GnC;RXAmH%~bfqp(6IpG!LA z_(d2S?VlW%q|-4nET^Ssc6RK+gSBVRcKxWI`o`Jhc@W+@?{_0hOl}Vb_!vNoCiyMox}WDN3F>Z$vNzxEJSr zNA$ce%Qxa8`!x_RW~GoPW>Q$KK&#Fmo0NKSbT{KmV!DG?f)) z`nj21XnasrRe|clEbS07#Y_`j;Ionyyy^N@_9RfHq7j^D^Ge$H+iRbzluTs`DHX)yYodpx&)ZXS3mGkNRyKvv-3z$gJ5NFQ+o(g7c?-39D%ge)H!7Fy+g=u9XFJCZ9(ONxpL z`v)}D$(p(A!AQ5aOKX&%Qd!R9HnJ%*5!(l%t6qq-w)NY&O9RF4eC`s~E$(#k?k7x#&=#pS$d$cQST z(V>a#2qio=HjL+XSlQWZW_mhnP|ye7ti(BL^EjQ;{C%twZ-@IeABEylcF&vamRx z1AG-=j2Cz(x#cuUXt6QdIppE4<8x_o==Rbed^rtY9&DFIf3y0>UN`I-=`k!CQlAxL zUzw7=VO3=%CISXN)(s!tcVs*jX!flMa|{m;xaL=`eAOR8?dDPoBg$eDeU7L{Q*rS% zaf+ta#_F5?G;a7RFIXw{t1q1oL(GZ?Qgax6zC;p9OEbQ@L{_Pf+Ijf}@LK`zv=jO3 z*CUxt>-pJRQ&pkr@Fzd{DZhn5pLT;`t#jjn-E7^yzxwhUrU(Uqpo@a32YZC9G@S=7 zi~}pu-G&X2X!A&T7XS?};;mCmX6T0$%oIFDl5jh;8vDohsL?=8qUuR>+E|bj(v1-e zANw|vMu!>Z4CM~;oEsjploFH%u>gCr`O&{HEnZ6VMqV*r0B|%<>E~WMj!2BO;|Cy> zw8Ef4y!XQq3d7l3`#kEad`Kfy3|`TiK(=`(a%at~@Bz#bpwc)fWZ;0L$FOCNhw=W} z;UmUAkH&WA?s7PD(;}yD#zDQi8Y$ZY_`&mV(c{&$2n!AWT3}qwEQU*Wc{PfajABj< z@Z&D}JeiyP+w*cMJSL7f&BT~;9eiM))(7y`-qb)OK5hr|QQep8yEEj(P7+%Q#h9!Z zYxLLf*_CI%lkSWcZ2!cXSyqd?T3~^VkI$WD3(KndBw1$5Y|F&PKp@O&DoV!7{?_}V zvZ9<;2lkscMeLFMCKHBSM|8x2dq?OS(!HTk0;D{dM&^tHB|T(N-M(t3lNSdxOH*M0R3IV?&zT zLT-zTeB_P00Fa|is@I^|hCiwnjDb@y&#%T4F!=O(AJ*xNUt zepdTottd4y8>UDT#SY`V18=C{U(UWP7r8EmB^}QaP)GS^A2Uai^Y}z|bX@dtM3^<& zr1wh^l+?LAH=p+uUDG)>y)rpq3k|~Hb4UoreFk!QlRg|cg(yal^ z-DSfB1i*Ra|LIz9%ogeHW&!Ad;a<%S6UGjh;EyjvWRR%loZF_RvkQy4<&}AkdPZUC zc$^vXbF-;;QPj;l>(et6l2WE-R8<+khLGI2Fq@y*xVy2ilpoFvSi)mcQIudU3H z?w0-#^a$O)lp7rx80hO9*Ji<|9q!-QyuG@*xc_+9r<#*!l<_Mwp!&-6i*=zF0SMFW zk;&L7>`{DHGCMhOuKM}R_!$| zUQ{zBp^&tcz!VA9Rq~2uYl+EVk%{2i3XisTw`Z~=&27yb8{f;tuf8DES?(IF`5w=H z^r7fB)y-0C>u8e|DNnMer>nH2SRfddCAUx$^c98ydfHzMCwH{R&>m*H&0Poyn+^u=5~|~29G6M>+NJ7%zN& zRt;4z<rMvPd5A{FSSIyGopMHYv zV#K~SQ$K9ig+N-nEZKsuFB6tBrVRap?;m|6*!`yNppHwqp%w^5=8PWiB_+jp-qO-+ z0SL}Ig|Sf zTgJNf{k_BFF*Z(Qu^k|=J^67w1223J5>qCePVw?KMn=acCv^^{vnMpJm0XyE7mLJ^ z;!AU6-6Bt!I49|~4xXRl^UTjrQ>ChhCRyhpyoqzmebQhIaFNgmaVp`=ii%EH#~Hu_ zYgQx`2=L!frnj$e5YLAOBvPZgTOP4&6L}+&5<|U58jLn9Q=FOMF^w)q4NUT|N3(1V zEzyROv7o<4KAm+``6q;;UW2u+S*)`R3s8XYess{RT&YW)R)sYc#U+Kw`7ZzR% zEQIkJ%XijPm5KD(VH!ZXC-S{jFv+eI8?|LJgB=~MdW$WtEaaE+MlsyZgU>i4kct{0IL0;<8Sht81HU7Vo%oZ{wR^y-3p$mo;PFSpN0z zzn@#2$xe-EFVWK4Fr2X}T;1(uD}GG&ceian*!=w;e^^|c(L`bE?lO{(40eqUc2A8B zdP8o^#Mr>{!pzS0ra^dmYIJa*ThD>4zQLnI^9!?&5BAqLR`(t~^j<#a{d;#b5a4Ra zfg!d@Zc>_bXT|VjP@VKBGw~@b5IIHll<>{EwKvui^P%DSGr@LMt142Z(Ax>Zd#*5t z&;tYCkEyBEq7+L;P5h|aMiaIRiHcbl7AkbRoQAf$^*!$Ewh*Bhx3;2H)#XZqeLGqL zOM}0Dy}=vsx;|( zvd$MPo>Ijqq8+l}y`!axWVK8TKVD%AtSO;ok`!INA|>+NhaZ@ORFvINaz(eNfmGlH z4NM?V?Spp0Mt#E)0iQVV0EWgSs%L>4j8KCK$=~E9Gjn(pAcJ@)!2|Ic%wf#&%Ek+~ zs7}m(eC|VRmyL+MUNB`lFv6ODDX#6jl6dKnm3Zu!$3T7Rz`M(jL_3je$3GP1$-`+# zYaT=lI`YxZm|Zz)`tA})wPESdbPC`Z!NC-(t2txn~ zvkWq$fQkx&f*>jgqJRSmqA1`1D6Zx75BLZ8dG`0*Q#ak6PF%|$bS-M_etW;qe)co% zXMgv8_j%8`x1Rcz!-ody-(~+D_uv28H!v{nzkLIXMILyQ_L;GP_Fp6X>E-|T2<+c~ z*MoiaZ=hZG?ccv&CD#K7{D1%6Yk1lff3HiwNK^EcY7Ti9OM`$?z;DyHQf&$9K=tWzPpUdtGHKHP?&)L6CrFFlXcrmUY)jo4X?bVff6RXoJ?I}sG=w8VqANDr&dH%HWrxDm2 zfrAIl+{&Wetn1bBG|Fe(zHIKl>=x@Tr6+B#qR(01lgKZhZZW1W;bo>$x~sR((yQ!p z)@?l5rSvT9D-Hc+{r3`gJ4RHGvERMPziW1y`(65S`jlS(-T(FJtaGF!{mV5X`t_Gp-0mqAmc1R*6iN%=Ugp&AcKJ+uqPEB1yJ`R1RaYH9v-H-j zV3(#WEBH_pYwPIf(D3k~+1XAiLqit8T6}j^zfxwY$iIH&mBze`Ayy%_N?)c*zkYWC z?e|Tue&4-Xc6n-K+X7t`rXMV4 z?{sTlv2Xt&5f~ZbdvP8bq)Yc#D*98(|N9Y`>I}?H_fpgU45bl<#)l3a=o?>@!Q!z4 z9~n7x@L+9K4;(N}`YfNda^&#B>dMT_%*57acVuKprny#*4GvC>k1Q=tn@8hgBWBRp z=&+Ir)$*!1Cnv|SB}L_`S(fAv__+Ef_cHYu?>5;;ETVrb(~Dj^Wp%A|(HJ6)w5TKM zg3Xl;Dkv+WRR zt}3y?mBGwF?`w36POrj?aB3CF@~+1E(CFC6%xtIIost04)8m?O;s-&IiBoZlsFe$f z%IeDO)YQ0vFf_UwsfC3S5_M(9;GmfFm2yEn*FYBYCdNm}Nif}NCYgjtjy>yZ^9(?z zCEAS+Bg0?v8*KI!sr2<0Pd%UsS8q5NrWgYMbA`QHtAf7!%!0yBMBV4+C#R++W~MuA zh@FFjl?)l6R}Ne#`m%~@-GxX;SBn(a#>R(hG!G7r$nD`n^9xgJ>kHU6x4NfJuPv|4 zE-g>5uFu76&J8sOcO9`zBvJ29co6Z~%=rJBexSKEGCVLdb#SV4pt~^K86Wt+>+8Ou z*NV{K(7<4hwqA>?+6E5{%uEl>%}V!yrG-PA>!bZ1R^zpmk*$r1@v(gvW~N8xX2&-- z=8hj-o}HaIeso1LPfY@l!Oe~NM;|^vK0d7PD%*f%(~??XAh-p@ETC z*xZ>oc=q&~X=v7fcUQ?{f|!!h=ESkp(t6^#a!iT^0w000@1(_vl6i+OJi5|<8<9VylAS%0HO$l#-=TP-C5;|LNeQEajO>! z1gP7#1`!ns;>qKyY$KNafaToTO+*o+MR9v%dx_;ocb1pB)AMtao9hc8LLq@Vs`X+C z3XfE%Ru_lsSB~k3NIunOr70hNW(bRpi6;iSL~Q5C5}DU7AJq$wI%%Ax3x$y?2@W~D z;I#l{+6q)n`T8G}*)O0f-No6BjRkVs|1oi4gvhucL|}$Pm&ZM?mxy2ZaQ_;~~VAr-;~udUIpJkm1zC zSyAFC2g}C>^;}LEu^Hm=@ljp+qmPF)ta>4mLkJb*Bp)J8-vY^&y(k$S6sWEjU6!qh ziLv34Asx{%5UXfaN5t9bxG(ci(5c4HwGkVeX0xHNmlk0K8>@)I$s|{lX8%ZADSB&k zFuy;P1QN?06dK3JM{LwHzN8st#jW~e8?V{9&eHPi^y~zUvojMG2>-~(VBcO{_V2SS zb~>ZA615d7OANek3lxyiqjwFw>D^VIIy}bJOeb`YK7+Y4 zQ75ARNBD=Udhpc6^J_qUWohKpiG|gr zk>Q5A>=`R8{J;F~0O8HFnYD4E=a+jB55qa`-}>?H)`@PkPEPJWePU^`J8|yx>SSk- zZK3BnGqvyJ@r5&|mL|prPaZG7c=zNJmmYicqUoGzWeRLT)%qs@YaIa zq_Vs;y|xO?mbwdLH*Xxh?}3xc-JzxKL8i@44NP}RgVkhyZfs+Hj*!LflnHC@%S;v1 zL?W5jKmbmjIU^B^QPjA2$ebvvO z-DEkmzxCkRV>`=$@$9J$hRsZk>+6;%bo`g@Iif-W_aC`^{@m%!<2x&N9=WJ5BDB16 zX-AV@0V~?c*PVqaTDkwsGxvYtd*5U^z^UB4X0WH3=NesjEHr_4Mv6~D4OAbz|FkBY zbF&urk%fin$;pYSna<(E%coDRYrW^f;S1*vU%q#TsX<`OL2_>DOBBh7kU7>;fwNqm znV^eUma_q3s9d>x)F9UQF3zp4%!#VL{4#LdOnRsoSsL92`3rE`YVN8p6?$n>;c4J5 zy>vuD2d8o%SjPrK=2|Gn&G|{pCN&`>%ND(WCmvv^7a|6Q3;4;$ASLi2?Mf!crme-@sj2BwG(Is3FN za}QrXvNJU?27E>@-?RO|eW&ibae`|Z0s)jE!Yk%Nry>I-xvShZF|S_QNtgR>90&4e zPub#H^bg!~VSQ%GnN=A+IkAsbuXN$)wJRa+n;(1a&3R$?zJbod;P`a)IC{B0dY)Y# z%B}j)a1YNpa_XMVts|3@oq?srQaavHyffi&z?r~)(A}LM@q95gxzD1rvNU87Jhn4? z-_2v&Tb@0KPn}qO=z-Ha+lyzNbIZF%(YX6Nda!z)YUbF-t?3n1ed$CN*RZc8%ALzBV`f<oxNVITo|(}mM5G-Eca@W*~|ijzkYhMja_=7LsYCDq~0 z?%E0{t6e>331n*2;Y1YAv{D2x^_5`i#Nua?xCs$X6kTZ7g#^x$X1h+HE^O16Mk@qJj-^ zFSA~?MQ+DI!^1-(cIYbL&NTmKYkN0%FH&Dx%j_A|=N}Ll-=VDn#j+D@q0> zv6UFY9@KKxw6)dU+FFF$tAgWkW?^d4=6uEyGCJNFWu#5JBX@SLZ_KZ(%`7a|bE{;a zf{`%93dkv*I-D1Tjwju=)>uaz7Ih{@)>k2ZB^AW517yR|Ba4e&$T@ZHjPzRqjQ8Jn z{K7c{Tmt`({>{$}9NF%yE)Ux`-nenJJ3qR=;j;SlKzU0M>$a5k5Y* z|HRdkHy*hc4#Rdk)n}f4;K|1?*+JPanM#>ruY2C z|H7?zec*+MZ=HSc{!@1Hm+sl3YqH}Zx}KE?KXQ2LRow9;F*`OeJv6?(GO+tp@$!e4 zwmRs0^1&c1D@TuXt)vTc!)q(!x9{BZ(CxG9t4{NVH7zYpUb*)Omu>&f zo!OA>_T;OpLbsj-<24w0_|`c*^Ya}b15UA-P}9?+JKGD33u8~b{@OEdd+N^P_bx9w z)v>$lE_OTHTMMU8tsU831T5yMV)V^c87oPoB2a=qH?AJX5IodGms?PPUy@rxnIY>o zHy07%61oaei0Z5|Y6b{aC|NahRAFS659znGI6F02&$;F-EhLytZq-?0F5rX@x&X|e z6CS?1VoOK!h{lA4ku3t_wBun6I=#?CMTRg25SeI-jcaBiXXOuj+$y5M5xuOf^a5lk zEhbq9=|T|@6^3D>Q6bqV*jH;cYJu5w$IKG)9dHRLOBA_Ei#ZF86KB2HhONe8Yy<)< zEX+(zcRZfcrO?7Qez}T_fDntB&3f^O1U#DX2#a8f9*XedbcG4vh}l7>qdTj|MPqK# zX%7Zb!pw#QL7j?p*O#dD!bX=S*urbR7zj-?Vnd8Q(E=@XWFGnG*jN>0mTw?YT@dDH zEn{`&MhGJV*XT+ykN3{E-NH{4g^%hu5#gRfd)d&IEjwXyBFg$`qbsCAV10XfM@g%* zpwY2mn`#znVwFOUZ7@%*4-Sq5SyVA_B#zTdBZJux1ITnMG8|O6&v9M!EorlLFvaHX z;tT+v=CA#>XQ{bKw)v#PI&L**qz$?56~ndJ`32j3`~P~l(9}M19%!oTP{=vbsFlBc zR$~3C1NostnG_TmI5{J=JQmpp!d^Lf;oQcROWPOEug^>$@(AzW#NG4Yx_#AuxksfTyT2q>0s{`dTDEN``FB#XKw4V zvOL8YDE-DaTnAs~i>U|9&6GzUzVNnpKBW%!pLp!vXWn!l23K`WSpr^q$CGb({WTNH zcK6xm9(>D7kDWQSdUU5dK5k=h@Y>aFr}3}qLXS8yFg|}^s_O~qF4tst@Yv0Zb1O1o z;K;f4(>Kq~&J6g(b9=jUln3rRdE?qK0DI4ctqW(@9U@)3a^&>M#jBUM)t8qh(Tzy(L!)!6ACmb?uhzkPUaYh$*p-P4BHd|Y31 zfWJbTI&6XG4cdyg>Y=< ziwa%LixzVSR31CJHa}OV7G{Kwco;yGE`(5l=vH@1-DYx`DYDlsy8KsH*r^pLv7EJf zQN%%%Xe5dOA{G>-6dOhIAB8cxV~8Veh1!vqj3tm9D+M-n8hM(b!LM+Z5JYumTh8RF z=m{gX#~!^$Y^`)q9hhUtzM2Z_BbV*LaI!O&*l5{bfs2WW+QO}@wgs-?whfHYG42#4 z2pJSXOJo?&PAd47(4mMePhGj3u>eGFg_IT@9jUnn6?tcIWDNNkJ6&|A0)v>R2)L-C zgBN188Vk1xGWonC0a4wR8LpTyP+H!#?XHR@l2tnG^W4}bJ%a7J0B1@`)8tmiNF%D? zuB{HPN)$B}g@kaAow}=YR<1&L72W&%DzM#J;K{`T8X=GtLY9Q4vCiIo$~-zeGgS|^ z4p>TB`!E`|;~|i>%$auSHN3A@=PR91kyTwPKjc$VjbFj-D)nb>@@Pp79ZfuEuw< zJH5Tx-CUn<2<)Nz#O#bsejS*2kzsi7bAKo~bg;IjJ4ZU}t3$KX0}AM~Nw)dlT%TQE zorSd0SaQN`cr`Y5(3aJv*Sj9`^8?Pq*Vl&czjgNb&ivs`tH844hv8;Q_K?m2Ocv*# z?|T1pPrdF6YzO{kifIMboVC9A);n6QO|+=E>if?3J@fW=zwx7={)8R=*)!{oBY^zc zic`#2IhpB0`QV--@Wbb~hDYj{dTM&W>B`!MPcX{b(`T2?UszpUJoLy@*I)nA8*bb> zclG{L&wlWIPrduCm#-hiFg`kP;@JGr?b+8qee;3)PIwe@JpT6gKJ%8h-Z4)_gOBIV ztnX~Yimih5^P5hhP8?eX&e_75Xi&>ed#P(6!38MD2HSMb0{6n3Z<$jP zpsOhfB2-LF6;qW!X{nCEt<02=k_06wYFfFK zoK(m$nXGuI)T+tsQ$fc=ENM8+O28=X(F6YST&wxw8GL!U^rGWL)I^|q^qM#Xk`|@x z#Dju?ZR%vQM4bfc^wNZlYxFWnE16o|a*bae`m&1YMfJ&JE4DOvw7Tl3fMs#kOE4?Q zySFHO!JwlGeicgf#c%Jb0>h=Kx{7qQ78oo7iIS)cz|&TZbrr%B$sFM5wbl+&x(oJi zqjg9-Ilj19!RM49fLux=glgmBmJk)KOcFhGilmKD=*UgJGg7!fpIc#3gbvQ2XysAl zqbCBG8HR!6bYZRW#lT3+T2aUk`e~vUJwwA7w+t)9-rdIIY`e|cNJnFVVN07n8wQ)? z;3PIh4iuiZWr)p$D9lzzFA2L%l*WKcp>_mKHTl?dA*$rGb8ieR&q6?gIG3|6bKt*T zh~#5q35!y6UtX&Dq9SNK#lvwFsxcED3sK63w)D^v!?>Jr%(%GLJ2S>;YGQJ_mWo;h zhszzC_O z`s$o53MjC7b~Z9IQ}901*}piqXBXQC!OyHXiaB?2b$feab7RB{Dhu-iM|Y-99G$!O z!sgjiK9E{Bvt&E?l{Ry;W2?&@05~=}aNpzCZoT2bo$aYdAG_z~b*IffOk9V|fD1}L z`|JbiHZ9WIhWvwH`GL2*_=pNTw@m_rD)0W{H^2EU4}<+Lc1>1__3J> z9zOr%v$w27Cyp-MxW04W{U=VJT)2Mo*uzg=-QMhs4mpz@d&wV8kV>6_0z|Ij?>G8knTCHV4LF&%BtdE>(3WUKmlP*&XXJu6TWLCvy1NcO#TdgZ_W8R10 zb)+xzY0s3`MLot4Xv*N%QJr4ts^AHx(GIu(4jy%x9H(6Q#iRhKiZ0w2Qjuo~?>5%z zczN2(Ma@nEF?bW{SiO%_pa1GRKi3gYNJWJZ>6HSjwK85p8V)?7YG+Qq0mbRo`09wk z9)skJms?GQYm$xZ#IGPm{>=2~%yjKJ9S%EpJ+i&bH3pMFwNVfybsY%-ydk2nL7i9( z41>K22Q`rpkk_P_Fv2=?%y<$RnI@8mZpqOFk5Ld+b>@jlI5~oIxm%$y7I;v!lBRB$ zB1g>ibqj*9yewN)(Ni2JI=& z=asCIKe`a5FJ^^1h$N(m%ZU2&E(SA0sb1|Q-*V%)L$2Bqvy%&$NoFUP1vc4*U;35T z6 zboVs252wm&udB_p4+7c>#m%{eNuRM=ya0QQY)7nE<1=0qIeW6+HvqZvLH?^;Jiq0H|Js$E>8V5Z_BZc4e(l5J>zXI58^FYasG`QduorT6dDxs@m1 z{@e>6dhc65_QA)Ve!#htf6ncfx?>Jfwl-$2U)^!2vbpZq#88fQ=Z8BJ`zOZst*=c! z^TKVw{?G%b9G-L8EcOiYj(5M2{cxTca^vWcC3JOD7*I2kFP`5mf@UIMhoYXU%J*mP zf8ouyg~IePM>3%Zv08)f4z)B4CjHO!HL z!FgB0-MYdwP0TR&(IcVlrr?7Yz0Qg(zOT5`_(28u&P%si;>XYrowYV=^Cg#Oz8@hS+VA zS*t=F(93d}TaOj?*iKG-o>H&PczMJ@isTo@Iv}#8pMuGU4|i?a*L-|t9UQIqi@f@H zXb8MlJk6Z~?FQ^rl&&@}3==cldZ0GGK1MMXV$MfLB~X2G(j)fxaD9(t;LxFc!}Si` z=l(Z*aA0Bf!1UC9Zj_#N+g8mfah zn|$D}JAR6&GZQT+dcE~+k6*sm8c{&%VACt&&V_uWJJqp%4P3u-6|PUu4P1WxoqM0W zedO#~e0BnJ_1cjy{KSWB(Ra2TF4ae|UOQh|p7e5&lWi-J_Ya+c*d%+uXl2>wp+g>d zyyyt_eX7fMM!H&YJZM;tSkAo6XwITAQY$>?g0+w1POeOLgC*q*4Ikg~1&;y*p(BLA zGh*d;ED)Qxq0Me+*)G!Ul zYQ7(m-nL0*$c)Fyc4VrfBB^2$nX*okE{LwW+q&~23xs5A*;tzmY=DS5Gm&iyqRCPj z+dv7k8Al+ZtX9v2GAlFt*ohe%v!jB>xT8WWq9(r6PLa9@+c0eT0I|IXXn)RrsI{`( z+Z*fBZfh$`J~~RgE!d`6lEhr+KXfvk0 z4spm)D#-Hoqb?*1sVjBltB9>D+Ze1Km#K4W5E+A0J`k&}6|<`ktl3Ng9;PyzC2SK< zblpW&tD#5Kg<%t-E$ zpR7w#xh1^hw~teWPF<6}npRfoYed;In*!*FIFqqt5``#k$rcpBWRln>MKL=zF?U8S zAN5-11XTBu%#gLOR+B^Z!ETdm3CP39?ED0HKiGgBw&Srb(n1u;#-eXOB8`YsopBEu zG*;p@lZ>Ee(uH|*!PGEVBcmfegLdNdIeZr5#GiR4>Kkn0= zIa|kbXEtRHh?ZS2O$yoP09eI|f%iA;EuA*w1au|^h=wX=0T_pPVA+WT7_@J<<9+VA z2kl7FQRFa0a@K)jXY14=dwV-rt+d#O*mTKuw}>9P`H{;=+j6;2pLs zE*!Y@(1m+$U%LF*%_raewuhd+oz-e(Y1G^Dr%$dNKeps}ywe%>34((i;AzynO=0it zBe2yKYvrVe5$ESlw4Q(S?e~7^)4|KOta5Sbd4NhF&N%&rWBO zTFpm+N({wcFXkzko{`CBd8H}FuoDBsMj;0$HWup69?Y3y43m30l8;Cceg&Ic>U20; zFGbJIIS#E=NfSBP6!s8>Q{B+ef`L*LMIBuNL~NX80F$&r3_HE>vw`m#_aKl z0#AqA5eR$bFbP_jBv6TVq9kG}@>VqH(vkd_VfmiujMF>b8Heg#Sjhv3IaMEwwihY! zGkDQDyW~)Q)cU8dl9(`na2n}lXSBoxV?m=<54^mxiy+DvXsuKzPHoc&m7PtrJfqYJK z>~)=dYQ@6oZr4;|T>zIErGcYN}rPrd8K`yaphz~fin_=V5j ze)K}#3HQRe4=9fuuIFN@&H%bR!V_Y~G19Uq!e%bvUcYqQ?IY2wM?M;00N-OCuSpOG zE|})}0`~sZ(G53!zeaKz5g8I(GGxY!E*+tnExMU#yo6COF(;AO01b?If1vFKJiLIl2yIIDt7 zh8~62aT%MDQlDxz!#xg)Hs4hgqI9I4ZQ@|i8KafJ1kkL}s*7l2AX%$hrs|l!ZkeYe zU3#&TWOZYW!BFap;%W#sR=o}?MD^yzLf2bHwM>wVlLXzP$SsqoW1&KtXri-?)>52QfK-sE$Z==&leRMNv_R)ru{>Fu;5i3?#EwB}z33T0oEd^bNjI zq(r#BmVg+*PVz;=En>`$cEdzIIv=SPc6AiDVwl;aqPw%2<;B`O*zow6(pJh*08x#t zz5|$)Kp~k8u7r?gQ$6mhvcrBfroNpTY|qd;@FCgDkeC^~{ADti$7o(ckM z33Pg+7f%y#THG2n6+{(-j^ehR``LOK*?PI%H-NG;e{Fc*Tp#oD_Sw_RPNAJJKmXz* zUi`4jB^Ch64Rg&-+ol>CgKMCax2$0u_!0*bF!&6Xojky2M=m-7K)1TXH2YqF2`YiV ztX6FAG1!R#f7^09eBf{LLO)Gb3cF=ZcDyi9eoAa94Ye4?01~FApvUC%Z+`g7rL9Mv zxNL=b_=(F8-adQ%`pyIQpSbnVX=g99vnKKc+?M<@+(sR|lRy;9ji!9|AV8YsgQ**9 zv)p7V)f`dhqbClAncC){lwfm~BwcJfAwP=Zokpuh8M(1=@5Lj6z-Ad@n2aV)fucw> z7{DG-mUJ@8&5WAnDkNytB+uz}OAg~v6csiw9_Wb-$taoi=<0+kl83Zp(PXDmMG|^2 zbmFRs9AXiv3nujE1)?II!1xjI zXw5({Kx_p^Mo9^V@j_yoWyYOTyyGu6bwo{;n8|i1is)A12xc+^WhxY5M%O(U?n;6b zaus}9T=C!}N6aOyilM~GW(+la&G8_17EQu2;8dBKY&*buldZn8L?E6-RVz0M;T<~H z_^X$qd)!Ru*g&0DTGTDX^Rp9kGc`sQ3lhvb5l|sh3Mne$&+_;y0_p1-P|YZSCOkSC z9d%cuprckAReHeKKpVOOOvY;>1V4scRrJ*gqflIR1Xe1DK2I$8YON~i>$VsgQAH6+ z+N*oRY85+SbUR*k0%LOwb1jW+=d2Z5#G-Q+Md(t&rmx%BfKwz5dIXvR-bEDBg@wtZ z^#RuW>hdfhe!oH&6-~3#wR);E&y^X9R!?DsJ6%U-YK2Z@cF$qF1Ia8$EjI05#l)cE zTY+qIEbo0t=TWr;9IBPB0(G#0(39WxJhCf=F2cDZH&hS_VUp5}se?hkIWt-(s}{97 zY#$qWtv3dP`HnAa+I{0`VSdah^!alePds+<;)N{_o85M*FV%sb`~*rOCa=sv6G0B! z!J;E-QV}<^12Tg?O8^RNw}*%4+10DtoMYCJOgt!FJF!c*lZSp1Rd;)Mr#Fxjs5+2` zZ{%c#Qpz59Yc+B5fBMAAv(G>H#;0$->G@md&#pf5$oWU_TzvTU*|)v#xo4k$$l8?U z3AW>Bn;9W>O>M!H0E)W8JSz*RlmOJxYn`GfPZ=CBH!X0?Fx?0-H(84T9j7JW__5`~ zo6hY$P|$UO%N7U>_>GSFC2rzlj7&6xX!!Ud+qKFc_Ml{B*@H)c2D)HF(FKKS0;v`O z6&?|&LO7GS!#gq5i!}U*l{2%2r4meWi%yzK=311Z=&PgF$Z1Jc`9_q4G)GX<#VsPU zQ$b|ETYbZWIVqYeW^$q;o(c$ER7)g_6i2MN{1R|Mi{mQJsbGHKi;%b`2)4BzMo`!s z!{{ZGKmqYVHXe%Nqv(;ZDG^hbz*00%1hD~8LedCD2_%Fr^0@}q6l{vf$V2#vt)k>x zs7_;S7sv9Vva^&L1+FoS7siep1|+Z~2!d;x*h3eJiD0DITvO@XmLD!Sys_x(iVVPs zjd!kuz$ zC6YC%Ai`(Ysl_X(IGQ<#9(4#mUV=HbX#$oVLNkl0Pg2Iyax!|5f!a) zQg=IE*r@Jd!LC>Z_L@!bKNAoL6MplW&o1jrTZ)f9AG>q$rT0Gj+>4LC|C3+*72oyE z@A{G#v3X7L@jJD$FiaR3X%-k|Q4+e$HIs`ygm}NszMZuWSS&I0LIBf~%T)U)fp$~O zEw4enTZqKLYgdjEMWB~y&z#=S7fdM@6ha8pWOm3Xg$;&GQDG8+u299y%{ZbP&G6H1 z;)8A#D#TxY8VK<;wVeWC(~AUG46fv0;4e;|R_lB_cCHiJVeTgmTJcMDLmAv4ifV%> zZq(^3(=anNvqqlB?4+NZWG8`CaL`O~)r3cdD7_RyT-~Bm;Z{d_Q3z)PMRAtp3d7u5 zPdS_I1oPsHF8J-cR7yqj-SFWgToU3GVa!Z&I)q0-Gz2;({u~rK`NKznWrMoD>P8l` zE~G`H+k{0(*~VFH)J34_#up5}eq#Oe(i&`M8|@q<0l%W67wv4&mtG8sTc3@m!jA3~ zabsm(#PhKTy%n*x}%dSG|Eb z6|}3P;AgoC9;T|e_JlO3R9AE{l&R~ef?r2_fH)qR#8M;y>YbV0-z6*1Y`VBv-yv%F zZ`a+c)R9y@v%qa;7h=0>KLlr^PKbX#V8!DW8y;u-)z>mxVh4SqTAnuJQ51`X@pbIq zovTNxgqJ9xW2czA8UjtOH7IRav{pJkT3?y*Uear$`pa6Ex_*H1pbti!X)8Vxw1qf( zW)sXRU^aLn+4?g`-5ivb(%wKzT1DCi34xn*mDsY*gaUM6+-}@1mnhf>%wZ#<0~r_y zDgn54#1`6Fws&3yH@a(3G3FGzxBvhS>OJir!5EX{G#WGh5T}l z4Zs$sxG{tArm%4rG!=A2j$nrEcKDLeOteL(C_8ot5BaHn_Xl3E1~JuxhLYumzvMW# z_wt6L7(|X(3K<+<1jp>7ND(E`P#ETx7R!W8LnkCq;A%8=Nj$m9q)5PqSq=kyh$O-R z2Nb>VxP=}>F_Qeu_e$^D4A@uHXLHgfdCms>cqF{!iDAN`l|a(eH7P>mHn1RciC%=$ zLL)f}A-YINGs{&mXe=5N`LR1u$bf=Wpf*)N)tQ4w5 zBG7>hOoMDOCN{8{*qDSuqktfyD3PCQPU8_{2457n32c0)(K6I`({1<}76vK|A36w) zUc&KcjTS^aqOBMU!ZDi*ULk8@>q7w#UjW%mK?xM&1lqi_Aty%@nJSu#gF9_yEM^fq zSW7@c;oQatsg1e40NH*4k_*@<@&T&~=HhQp78J3cUO^U8u}T;d;YJ**Blj_%jEvc; z%}k9QYCp35G7Nu>+qIR>tp{P6FH?iKS>IanU8Fpy<_b}vu^eMb?2)U|9z{u(s+cJN z-wX;52B`(9AS9dw-B}TwexLw(FFFE4NCl-;Z05ZWX+KOUBDSZVyaN9{4mf`IdOWoE ziLH*S%k_Ss?~0mt;9bRQgzY8#I*S$)ne3|W5lqF%vcwdY_DUcE6u;rAt4?^l?uZDh z@tbR~-J-w|s}g&@?CU@J)!*~2^uG5)U!cxTOBjQFU(7maGs*E%wAmFRtzyMZa^OG~ zK|@BnN#~YR9#0f1bQGvW&owqM(u4v&O+`r%YQ*gD@er${3W4ZGgoAj5oehyAPi$Y! zL@63z$IJ{xWOT>INO2Gurs^Iu*l9Wth+k2mh%|MaDvHE2LCk2a>cI+Pqr$v1gB1MK zW#YSy3f(DEH*h!^Y@ktiq3|)i*oH_x2Z{9{$qcrIVm&2R5xqvK0VP>q%o%#jDz0=< zgn}9}2kbuj^fhFoM!Ui)qFiGP zfo_9BI;tmVY$MH@rDB8O*N3*Zeet&5hZkO>pqTa0fDNRPP)M>1zih_l7QG*5XcH9D zSIomholu}?B8OADsAC{M{5k?3g+O!&hOSHK_TkP_>_2Ty@$d_SiWfylCQV_CE|E+K z$qF{o5TiZj#VK{II8`u^qe4g|yN01C4H6?EHm9S$Mm8>B(-fPd4u3h`GB61*_(iOJ zNUd(z$l;M+JcHrBaHQ2{o3pmx1?)~By|**w_0GYG$+7I%3(EbjZ;L<~zx&U3nhx6M zw-ukvVQWHGine>N*GAhfhLvA-`+gRo#hLxmhF3sxvz2 zSn~6DVP<}9)C-Wlp6^>cCyp(>{&km)yLluCK@3S{I+$_xkZ{{vKrv0^B-}PZ!X{yW z8%UJ@*}ewcWVJ42D#8oT;U~fnzGY28OxEjPxBx^1yd~<%wsm=#gkGRzxdB-oB$h}bDOni4%B0(Y^H5RwzagcLI1HxXR5f(3U?M43>hQMnM)U_Mm8rs7OnlI=a+jk1h??>Z};V1v)Y@bEQR-L?xt@wikY| z5zbkT5EZXEOM*f&_tDwFBYsgT2-t{n1nRYX-IGgk99_YQZbrCL*F5dPrdte}XyjnD zs1Op#=X_{|U>Zy7JY0Om~3whAZJ@Cs)F$S~I8NmC$;k$7;%R76D=FbGA^ z-3mx35rwG23j%}ZK|&x?z|(-;75LzEZExfj`h|hII&)}Waf*DK&yHV2+5N!1fUcdf z)c@LV5s)86nyPgdt~I0gd6-%n8l zU_Q=zkg*^dzV=8ZVs(boLQxAU%7Yt@P=Pg@k3-QU+}gke2LztpWwpuH=|9!q^=MF8Mly7lL{U|(;94a z1xmZm>+Rb;pw7bR`pwN!G0Qe92p2yG6l^)BIBC z#jMGmnQe|=@R0E3-~3e{`sxo_J6t_Acw|^ysGlW-MXa*8FhF-fFn{}qL5s0NA=cqG zU_ntg_b~@6L`n3p89_-Xllkk!Muq(Z;-p2B3d7W;D+#XLCzecgLfmRa0UC0H%*ykY z;ga92ROvHQr%tS*uP!tqW;(FV3{v!xqM0CIiVZ0E$&XAt$w0R%sms;Oix71Y1inzg z$P9rxIZ;grGx*DRW6cZpc*#LWzho=NSVe+coSN+0xyJrzXCBL$6vJR?dpD!EyB3fP0fQ;^p|;N>VPMWH3ZQnuu%TR?7sW8b zgOGTXK&U2hMpw}>4B=#p+j6G8SIH`R#RLI!t{Bi0ACY8_+(1zhQo;>x22{#{ENP(0 z*4IleBr~26oAU&r&c@r{yCF@H9`;4NqXJO#v0k~cwVtlW1jfPYvShf<+r1LWtTL%R zIIuw%%q6^i62TMy@TY>4SZo!I_8g&3DIZ-clFg&s0u5Qm9$}ZgtaY07d3`sv9n<)k z;ZA4h{JBkM^-|0CULl)fcH3Gf*ihHxBAhO*f zgk`=^gI`c=39!r6Sjs~y?sF7&)Gb1^CZ~! z2w=Uy>^*Z@OeIW)_IB=yC{UzxxuO9{PBiazpZ zKE^z9EO{irXZa=+oIMW;Pg|yToN3@ATVHF0deGj_wVX00eBurApRV!vA$U?@bBT6CN@dF>m z;DMhiW)1U%D0Y@pZJ(BDh2Je*lCxhlDVZ{w%(5`xtQ?-GKi0z}g|*C3$l)W$4VfQ{ zGfXu@+g>_NZV6G?L&9XoFGWn`Gt+hg+4~;I0;-E8NR5OQBf3 zS6PO&7iMCfYlORE7Tz#m4u5>9dIL{=^C-bKbwxnvO;}v9xhmY`U@8WPF-#R_F=xD| zKUcsW$tpPWqE2VhFFMv&`W4#I1Jooqjj@e~&$Wb!v%B_SRG*M?GbixeZ{JR>pOPA{|``1ibJ4;EVS8dU3?z2_dfZvY92>P1!H`Q8K-(Q>-!>&2%=f2fuI5+VgXb z*ILb1p%!^;gb>9-uxxR`L!corK&}Aw`Ks%I6@OD-i7JW$(Xcz7(3X&-7Q;b~zH%dr`2t#Y1iWU9olBozY?{VvDK za=n8m^697-?_4D$9=%Lq4w8cL`*_&m9n3xSX`BqccFI zeOxsH*j1PsV~P_?g*tFu?r2J^2#@cG>@mJ9Z`fW7U;WoYkycl|@Z*dxm@`K5M8ROH zst5~TD#J(oWy5{`0N-8=f7SZXkkh$?Fbzohdq5IAC|AR|U+XU;s@d07e^W`)9ZMT207@@K6-A zqQhibve9CaeI2l+J+!S1Z9u>+9xC+GJxxGE1$rRT;))_x7-(Uwfg?djxujLaNB>Fqda+?*v~a1RN^+(c z+N&ulBqO?oA*MzqkpyFpWDuWVmsS*LiHCVQ;!JX?Xd(eIU`3-QbgAnqZ&Ao}O~<-z z=O+X*o);|iQX~D)q*9-?6XkkyLPbO)s zLL>*Xj>1TkJR~ZZtjVNP#7FS`o|}EUUkXQS6b!nv zO=&*?S8))`44F#V*&bm?pqe_@_@yH|87Aflb)0ppBT52-CnXNT85MHkqie#V7b5pV z_m+Nu4&G!y{Z_e%=^n@N8!X0T5a~+A&Y|8jIaG%gI^r)RY-e3S4wNk4+ zTj_h(;6p~I5|}&q(K909=SAib2KE~f29YW3fSpFq9k222RDaUQ-!`hBWS{rES>NgN zv5td!b9r@T{zf}9frr3Qsskk$DDh;YaH+#*unAbe8U_?-rh9=Odp|QvvY&^=lW~gh8-cU$3H#3QRLDCPlU?31tcUdPm zQ6ZTnWa{XZ!ws%8`!aLURa_&SUJjxt*bsGBlF2NTPI7<^DD=8gCjxkA$B)9PRTCGXveXJn?5_KC5Mwx_5X4yhfo#Bf*b5u5MlB zk_!F|Tt&XL55DR~y-)N9ApGQ)&x^qwr1F3UEmeH1Bh_tyUF{5EIA{_^yD7;p{lE@9 zft)ZLp2J>QElcGyBsX8o4t;R~A3RR%Nz>OA5@rd&7C9yb`4Cl-D{f8jP-utk*%8Tk zJT`R-HhXnupE|j=vQ(drQ4JFmeQ5#R-dFU_BuvK11%{Cc@Zb00w|(Ht-|gqqaUzIm#AQfF6J+pnlOlldSF3@>lk(9WcE=Mpm3`qhh0fi zbXUl9#a8LvLgC6a(aRF1i8O3F65zaIa+HCMl@33&A~7VH;%!li+M&{22A zgkl4O#oQEAR1#{s%-gRBUGsTALzUYUDbpR%me>lvdHP+8Sts zYZWCzf`|Pkt?l0cy{xkHETC`y@Utf>5&;a15n;B;3NfLV_M}Rg(d;auU3xp{W(-(X zP&{*WoYSfSHCp>I#1aw%T(m$NOxH41$gf7Obgz4gN^epAJZ z@j6ywug`l$+#lffGt|IDj`gui;stnd!XL0^Qpj6?phvR(IpinY--kNW{+uxYC&6Kh z?jAS1+`@QrIHH&0gWC6h^qtP$tuIcEoa^EYQsws>X^*aeCzlmIqRS%jF_-hhgY-hw zNM?+>f>WJ$dWnX4Dpo4`8Xfi3hjvBin2pF^D$VafY+z~@w`*WZE7h2pq=H{IVopLbOx?#lerm)1OsXeKB`Rx; zS_z-+m_CZ6jZ9sV$*Evtq*UxPP=Nt+t{A9xt3m}!@Y@D(6Oj;oQJ92ZUmAr4(L~^j zE}GC8gD6lcdX+J46+_G|?~1s)OsFKDve)KB^k@`7x{?XPVz_mW1m=;W_yZi}g0r2u zNq^VgX^an2eHYa>hIY1zKOvlADp4d;O}L=(&RbQku^e69*cnYZqaF*nz&sLMxd|~W zRW@mPqa$%(L%~!-a#p!5JKMn#VgL|>p>bQ4-8W}Y0I3TX42ts<-NWgYaQqolT@(fo zt_e?!i3C>^uX5u7y^&v)T{zW?7DXi*fwo&Oq)`F15lKKSoa|FEe}FIk(zX z@JE+hawv+Y>f{uq8H}w;JF73j%~_jd4C)k>fxD;oK8FI-cI>nDNAV{7MO24T;5yl8 z>s}C@Uy~>v8EM=*AlwWr`coafqZkR0gv=O`<|HRO_KIFZdlC|P z!53jyx1q=fC3NGPsg1&tzVEN`aq58s10#N`Y;eECAOsrwZe~(c)>n=?%6_WG0zq zbTOV}@XpRmRqDurmY&MPfWl^5HPe%iTqaOh5Y2RQTq7{xqmIIOu6e9ra2Oy7738?; zrJ_kph|lAj?L7N zS|qr26%btziS;QebmA1csmcpiDlkY<(}q|QP?EzE4+W1XQO7)WS9BGo#$e0|BRT4> zp!q$4>>8PK%2<~N-ZOt-qw;+ip)0NljyHb%M{$~emg3>;L%pPN)u zlr9XzCStB$$YCV;fYH-BC?H2NSm+7SR~MXYW-VO|pams$DQZ9!cIs$qC}x>_FpnrD zA;!BZ0V|FKpu{7~!&>^f^$%wHm%1xydZiNZEc9zY>b7e8 z_nSf1zCIm=5UrLQdR5xBfSMO>cmEX+;Y@9mx=qI)`MW>w;mF8}dE6HP(UWg(2{Gd& z`G>#u%f9I^{;-&EP-)%EBtqJ?q{TJY6z*tJZ_Lry>w=PA?OIGA&u5^_VamLhG z`(Z`_7kqdq2eNP1IyL37y8iS=`|;lCMPHe;kuag)e47R2D2BiZl~q`tsLKb&6PvU* z=!kwC(v?=)wc=J%N6*l!kVZ(7hlE0&+4>G9QFye*c(2vJ>W&@JVf*m#0pG0jhK$b# z?by$p^1U8^T&%ve2i!#7_ySM2hQpJl3^W!70yb&_Q|6=LkhJJV4TF)=C3%YzSYg0v zhYSYM-I^@AuojL%MI&yT>grYn^ucXVZ=0$YgeRFCy=YO`gLvWmmIF-hv7;~#Q5OI! zL(CU8sAQq>TwwWN0~e^%N(;32DXn+uQG|}=VrWWIgiS|8VsX;z^9aWpCT5&fk&3RI zwaqXEfRZcw$%u8(fsPEO1rJV2`3Pa~(;iWH6y6zM5D|@f36zc$ zF$PhgPVx}$b2@*)(}S2aKuPfh4JylCr^mR3Mq}5*vXm3IaJB{f06=J!mVl1R<28cis45bf@948_| zCoy4j;0wQb6reLqBq*YRO<%2S_RfIqfqBF)M0Fb;dmEmz!2v0XoupaJ9#A7D#@F1j z?Q!7gnb$+{Z~cdV|I7dKw;gOc!}Nq(+vzWVw|5vk_I~_ZzWNj2{&k=Hj&HCP*X2k5 z-rq*S=_Q9xeB0N4(U-m5OJ$yszv9n+JvMZ$-}f^=^+*5hzy0OE|M$N6Fa7yH{ICD@ zU;WV^e(L+a{VTug8xeK?)c1eKKmCK>_tkH86y*>8%YXUxfBUg0N% zv8R=GmR`H)c94?1g6(aCT^pV@pukRTn9TE?u3U$Z)N)1-9!#lmWtHI>>F(cxP~-UvR+Ksko(G zUv|>vN{bW)=?t?ur$SahRLl%!Ja{A@wo455i=ioCI}2wzw3jM;Cio zLX;e)h4B^(O^94m*hZIiD*%a|bh#xki5F+}VyB|Qcap)lCIwKiACWE*ps62z6jh@(4xJ8&8^& zw6abfs>`(Ci8>)}`wZwr$#4_Rl>}YFOss;_t*B~Z7-s25i#j=Cg)TCz)sb-g3abco z4bfG>-@j!Wn`zWVogA%%6RV)mg2-{1DTY+YaM55=GFD$^xTV_g>B~;4OHqlf>FLij zbQfpqqt%9`21WcyjwLake8ZtmILsl+YGSaM!L@{faM5-v8C0l_glz5FF0{Apv?&d? zBeo4{HnFuw4c#^x2Cyk{IPX3~+V33M(gCnA0`Y7-@rWzxh zOyvj)MM9yYm_SrN#PQeu!QVHbgo`7*z^q_42Y>Zn{SI*ciC_I?zXyfKpfK2+`la9g zEpIrG@aZ4<{;&DoZ?ks%&L93qYlm+L!t=lTFMjg}f9_{|wM4`Kg4IOA18^3KkKpj- z!=L&vX7)huPyfgd$O=le$_)#jTYhoh>H`6Efyw23JMCw`CPMrPU?(j$;k;vvK_NjC z5Y~#KaEcZcSMaW21MHHatq47efD`NL2dG^MaTQnsi@z<|;N3Y)4rlab6>Mj!4TH$& zQmWgpea4vTxcgmc6($Kgu{v_|vthfF_|Z{YwFCang&!%ZzoWEJ`x8Gd>Q|%Bo$Y}( zcmyCK44@3L86j8IZG&Y9x3wTUCF!k*7(1~MV#v%g zJMc)5V89K()?^D&AmU10<(Qf$bQa z$;mR%u>s6&?OXtPYyN`&@-vYXG6rIU?z}Zy5NzYuBKB<*V^!8j?}F= z*1qsa8n)`vPMOG$5VwJXBrQ2?&>b`5=_;`~f@o()k(r4=vJ&k&hM3G(Cz;IH%y{mn zZge;(2;z?@hBPYi7e$3_c#O3!=23(LcGJ+h>0^l6y0^axD5U)m8F6w*NQC|5kr#~| z<#CWeSLsAJW1>Pu9CS%+c}*S5#f(!>6ig|tQvXZ+GwErq>&yP_W$rgMfmt;636$u$ zQrBnhbEfh#dT#e#xoqRKx7Xe-Nm{;u)jkgf?)&jQQ9_jSzxZ4K+{8@3y3 zBaY}cL|0=}x4u8(#Jg=aT&dng_?igy`jAw~5sma~v&onmdUTHil|?>IZQpyUG;YP@ z$yb^15U9u>Nu`%$pjU-4xmA%KNfMR4p7!gBv^U!UyJMMFd;z@P^76Wf5wRi%{Q!=+ z0F*KTbA^`ZzyaDATy+@bRsogJ1{*p+Pyw(e5lq7aNie8LX>*4Q;457`x{^i$X@(fM zMJeyFndbOmApT68U@3YK7_&jt*TbVF$+@~uOHowdAxo%M;GseYA}?HZ*D9Whsb}9} zt3WvX#LrG)VVHm*N+IqfGUOx(>_?1M{KbauNl-7z6Nn&3Kse4$;l-@zg<0{OVw1yn z+VfekH++PV9Aj#@jXP;fMM)U7k`rB2Xrjv%zu%jcSLy^Zc)CG{yrQwWQ<=kMmbeO_ zRH@AD^nS5~r<#OaS|SPynfzjdTV}Y$&nh{O2fgsSopzE&I8RYb=YU9<1JTJ$#vtlw z*2{1Pu$I7pfWFw&$?VHfSMZ?pH>*_mheF`Xhzw&MIl5H6y_ti;9pQ3iD)(c*Ycz7L zY|D0Q_b3Sv#Wp*xHkU~oSMf`&5|SJYu8Kj?mk?2M&MDgB<|-!KQ3Oz6UBhO`FuPTl zL=L(lCJl~iPo6oO3LpDZI1ITBx!;<~9^QVZg1AIg(Abkf@jvokm0wTvep9Uj?G24S z<*w*GwY`??so&*DcQGeW-Hu(LL_=_#)qM9){WWy0re|M~O6s{{#uJHVqQlibXI~9U z0*E$M~%~l27NC8X{W-~hZ91PAgz!QYckG{M^q{4$F34|-6O*niINw=0BBSHdB zMzX};HzdRw)D(4$pk&~Vm0FX(m&qrLq3|MrO*!|pgi*B$!^i^M? zWQN+*{q(Q>Ll5RYS#z%I%+}9ux^-atlmGBnzW#^52OA0B`r|+PLqGqsn*5BL`d|5# zUm}N9j)gspLySz%061R+!Ii(R%q9VYCp$w)(O3PsZ*f-OgyB1X^2aT*O!W_x=@mRQ ztZ#qU>y0lJcJF@ZCg?3tyfdsqCraYLsfGjPnmQs0G&*gDUGM+MI}%j}Xkt&|sUCwd zGe$HVR`^O?f98rOV{B{x=CA)F@%gIn{w7UA!G2*;U*iQeix9$JS|T`XE0(OGabUX zjTvbbTcKkH1Avw7pRfpy*-C=xu$OtSB6QO3yKxdxU7^>cco`2m6$-62mU(lg{RU3K z`0fubwUH`3uh%2n*a@<+a8(LRci*mu$$7!1w{;(`?TxW>4YQ#%cQWWU$v&n*Z|T>5 zb*C*2&gv2CYpv}=RaX{T3;G%(N?6j@bQ2A&DnyY_oi`i(;@Mt*`}NV0eg5RAH{1Q; zx%u|z8_a8%-~)Xr3NUS1O%u^}IA)tFXP}432b%mIslQ19=+OO?mM`_I+i)5w-2rT{ z2s3BpKe~AV0HG@YcO@T~fHJ@(Ghq~^P}i?7e)v;gY6;MVMrp|rGjXqW@}ZxhBtb8u zOuJh=v{OyE3?zhV1~}@MZx$e&Ak+>SP;*KbY(&xJXcSa(7VO*kYeIpIzL~;8$p(Ju zO)-U8&JlXebSh}1Hy-gC8y_>!#)27&3Iii{K^ zwYn92JaSA08=Ey5jsgU)Snc1>0AT3DuRr(GKLJj?;b8jz*f0LV*ZtskK}(k7k)_}r zXs}!_FybF|N+z`h{pbJLKmH59@N=L1&QE8m!ay?r`M>{n4s1agvETS(KctT5kN^9B z|Fz%!*QO6q0MI9Q63@}=ul&xxWC_(ixpQFq!+-m4S-7z=mA`RN#W1Oh2JOs~Zwv;K z5T14#fAin{!T0{nziweAKl3hl#B7Nwi>zN90gqYXPiJMT9><b^$_A~v=xb&f9c&B^@P5Zn{ACN7RZ>=qN&lae_|O02fBeF4{u6Ov zbDF;P2fov-Vw)6-t5uIKA6%MNy6@8Kbwu&!6ps`d4K7o|;CGXL`#=5%y+m>^5c`mn zNlw?Dp9@Ru*_By$(!<$^$m66U46ZUnFCWPI02F^pzZECsr(OOV5p?UaA%i^D_rCm8 zwD!9@g#XkJd}q6@=0-IJS;U#Hh&jD()3_7JBR zQ(X~tmo4hLdQjf$?B4qFl2egse^-?I@WkH}G&q3s6Kr6VTU{fP#{Pb(g<%eAAn5qLa@CIR@})bW5OltryE<3AhVN^A59KibTZ^KS_3rS(5Ov`#WTuYTz)02+P3oA%jUqhrbAB}|C{gDOM~^J)A_$2aY{#a~ z9$*4PT(J@2nw)W!HmTFjO?CP2*PhvljgK7Bg7#j02=yh|g&`j(gumbTpXIYk(F>P{ecjG9m<0fOzKEt3PV%)o{R1G);j zR`6ath5Y{Ib^6{CoLjA!bs;<|9N>%C;)4Bi5i#&iQ>_j@74^~l7?}m^nh0^_sa96W zBEGX+N~BJ*gbyXN*b4R8u-!491DT8G9OsVtBhH@OFPvS^zK&li0K_a-vN4wD$zIV` zM+_F(Z<_@+!}dt92<(F|3NL8Fj*-ifGK9DK@rq4 zQ(&f))*X-3g?>`Y)X6iYF zx7X~tEtEzLUCFF8UL=@nG? z@nt;rj6HZfX3Sie3lL_YO_YX7NE#q$+EAK=UrNwK6^)dJRwPwJrI7s4P^pk=L`jp< z2uce@sgx#7E2UIQr9cZafeD^wAj;p+&+~lWz5M$4l1P2Ey}jPGpY^Qg`dyd3-+h=7 zjg%ROuf!G-QrP1e@DNTqo2+t&t1j`TIiZyTD=}a}&-77gJLnUi|80Jhl}Sd{VAaG1 z`H82jhS|cvC}7;QmQ4R7F#v&9 z0(&|U+exkkFm8(Ok|;_g4y?_9>Ib${B^W|4Ju-rW7J7s)(bV`Q2c4~G)C}zv3^$fz zFrTmWqGnuHHX;~t46NyHG-OY!4_oL~L*3;1hCfV87wY3#)?;K-ESF@c!CitY3r-Ra zeHE46hR*Z0|lfFypDdhx>XH$GOsuK^KeaT9XZpRSN)Fh{)E z-*CVd;pDj#?f{+~!IiR1=)yXx0XhW;1D8N9AthiT(%B<+MWjDKkb|IJz3$)}zzn8w zH&oH1bEdM+_@mJg^y5biiRZyusEE(wkDN<^Nb+4aF&vu!5O5)A?a#=XJV;}L5o~A4 zGriYAr1$;QkNoJnpSkDsL68X6EF#btI54LLs{&*Pk*I7q3%pA-lBlN_G6#?W>AoTm za!jEBofv^Z@T6lP%W$LLn3`S;<D&$BV@aW^sR9s8O< zHkc#Ee6?4@9Rv_vDzVj^v<{U5539hFl%TK4B_T#AcDbdIP)ges53gX zlz8#WUovN4G0I{kX9q0T8;ScVde&x7E)W$tqbGxCw4l%_#AbOMNJ5%2SKql%aHyn( zEVGcYOyF@+ImCt~jP;R)17DCTAD0ZBFx+8^H7ZeBItAOKmopvpr5D2Mnrp}}DtwLl zLYh4-vY;_mX&9ce)qaZ=mOo(t0o+dkxaM@;M>GS8hm0!2AR%7`)c0hkJ$>nbDgEQ|%J@KZ2=Ru~A|p&8tU1IPdfL<*FN zYF>bBz(I3R>8b-*86d!*G8ohyG|RMKcIy-|G2|LPXj~P&A_@)S^3k51x--)T)U*iP znIV%|?3qFF2pYI*6UJCiPP0wKV#5+169~fvM3u8PFiqj;zAh_I9#UfmfF$H6gM3sV ziG-yBT%{~YXhBY_R8mkzvz1i|#3m16xI;s>MMGL&p*O8@prhc#M5p*TNKR$ophrzm z>X+`ZyitR@39R6fF4)bF6#Rt{8297IL^(TBe45lj}eY=R*PY2jQp>M2Wp@^BwwP#+u+S{CmxNYLKuF zGe8`^`mJwCVY5Ca!XzP@{dUt)i<;CmpXvo$H4X(FEC*hG^_smD4PE7KT_=6yGEikJ zxt2ppvWc@u$OQPGzWB*B)C7&TnCMHaGPqepONFGEbKLXqe-1_oel<~$ozd{S_Zl%f z|8f@ZXwIi1mV<GV2ZpU2_4W5kQ#=v=bO41eomUD=pZ>77Y$Iz6et? z^+(aZ2OBzIT4#Wz_Vk<^+xL07F#{)T9~C@mJwsNZm^Y`ES7!^3RXI93X2~& zqf+{Fih{WTA1P!}tT6wH3~HEBa?wjiVAEfT(kWv)IF33baS$6axTMS=4vuhWNZPom zWbR43`YQFfTx{EGYLYmL|m(qo=Mbp0@H+$C>&$^wubEjwpK5{J>9%)4j zX;Y&>5&?6&=i6z$d-t}JCp^KscKRehC{(v{*Bsjm7wZ0!KtdI#{AK|A=Jbn4yC03ZQ29fBFtr{^YM3LDEF^z-+o>3XN!P*Xds2~F6 zwIsk9Pm^|!vTy-p%R?RZ7VJ)#$2uT9jYfK6Za3Ay;l`!P5^l;ey(>criQ~7E)(&n^ zHm21AS(+q+Xi8LPWH=KhM7lQ8>6%hyHrsn*cU{i1*T~uQEP+3N}{K z*36%6hoMpkAX|wDi6I!v;9$^X{He13*M)v^FcJHZjk07MDi9denQ2EI6eVi^)MNrm_0KM@SnQ7u*I2oT53vQDcC{A7TJB zI78Z?rJbChqVWP0V{19U=6a-*GhuYC9v-5xnZp9C%3SbM6P+4OjK9#^Re-Mx_GDE{ z46$lCY3mOMv%#PKM?a%Rr?Ski@+teS_dE;O-6JNC?rbXJLzj#}M$DNJ83O_e3X*}GW+RNF7p#~|;Gxk(M@C7eqb33> zyXuk}t#pBaNdAEGfwj6z!lZis@IF{vJbC#F_b z%slH(F8(CMP`@mYbYK?gY`fc98=lCoAQb{pM>gFNKtOU(@CuwtOm|vM@VJ1R#LVyf z&#z?D+XgQteH1cyWCgL!d|+7US2?z|!oKHP$||Wt0Ad&d_^5!r_cxG{!Bqv`mwJH_ zl?dc4OF}&T+8@>sE0yRS1df6#Jwjfl{^!Fob z3CU9cFh33zJPPJ%a0Upoq4481T?kr$0K<7%J>U}6q9tH1Q#5ha8Vcg!sjP{H!k)l7 z!kl;t00%2%h%pBd?xOOYoN|{$!DNg`fiHbYA`JCqIhI$rW6OXHC7UcfpM3m&kGP{Z zzrs`AF$? z#+mX_4Yp{-(S#uExv$jSVoLyqT z0GjZ_N)2vqq56YyzG}iCq{7f8wn|*_RQ8Q+s;~wli*s;+zcS8xSHRo_F)yhp3!SXu z!J2$TFJHij<-h$gY-M7BOMif#Ij6mJ!?8N7(k~+@JHi&KgG!*mzj~Kt$db9bPRNNm zs;PHXD`e_5v}7=uR9S<|6m?3~)_z4pA z;$Y0=FEKJ2CMyYmxn~y%Y+L3RKJ^JmXo!LK4mQMaOhol%UZF1pEMParqcynwZ90TwsE&4+Huj5H_ab?rYd`QK2KxhcJ7PFr&8nG%iVD){_X# z4&e>!@=p5bizOidEB(X=pJy%(0y|O+|L&wP++sO>;yh$SKo&0Md)pnk#7&&Sk36Cv zRMZeDVWy01`kh+6Y6i9kdlASfeJP+x*ob*e9C2|90cU6Y#apsWNaz%O{epFOy`3i8 zGWx>5c#3Urn5oC+tCc);Xc7*%K@z>B_dR=NOO<$G)7krE9=&?ch4btF>bJPMYEQL( z_+P(m2Oy6>dJfjfblzcGcmk9_Jxr6QW~XK^aI)^I|KtyQXbnt(8drHCAP;lc^i?V5`U#8k*w;7lIrY2gMNr9UXpk(`n~KDaTsA%I9CpZ%qwN{J)(#8rk%L}A zMkMKQ6A$)zr9b+=DAvYO@^oz`axdjyQ8Vn1A9qehIPdp;=tb#)j zy41bQP*lG2i%~ zfco^+ufk)GoVWk;p^tu8gjgCdse>+JMw$z03K|Ydxc=~+b!()Z>PqHx+R<1b%uOOh zmb9;h>32m?)?O=DMJZf~yp9C`d6^#Xvs{ zBSiPspLc=qdv|(2q)M#>Hf(nQc^SjGOKdZ_+d>@3?E>@Vc$|g$wts zpW0Yi-g~!4DS#p5wEZ6F5G3;VZEt<(t#7#`T!p>ecuxibC78gl5DbJuKZ`P10LlQe zcmp_a%mJ$n1khWiXJ~*t_y7JvlU!{)X2)*zu!9s==KH`M%OhJHx<@FUeiL^Dt&nf_!hG2R9P+^M^mJ_k1 zroSG3vG4g3Nn0^V9W>}0ln#2ckj-|x_t1&sbfK-YAp<3Iv8o!|DdwN{4K%EIQ9tvL z)WB8&=gNZVZQD}JQKIWIzYbjE1defdIIORl^|qMJ$-@ z4p9VW!ImVYJKF+eQAZfY6qbU=fPxsp6Q1OlpcjDv*?nR0KT;ln%^!1h`4ywdM`>jc z;W)#V2~zrs*+n=3AV1u;Uj*Lij=q60nwX`R2W^t%c~scm3ni8pSHX71q_45&>(}b%SHJRGzd;4IvN|A}>|hEK z8XrXwmQg_(f_)yxM69Z0bCxf7?-AT3HH`02cEmNzThQH@nSwKH*Qv8f^^PhOh9`uo z(64aRFws&x4dDGW6f{=QuS20gz7Ler$BQB%xmc~rrCs5Va@uvbcT|t`n5dv9A*&{# z>W8lVHa0v7U=12;kF&Q8oISH|-_n+ycN-|T99Y}6XP5cLPSE|x!)IXvlRkR2Zc3VA znxzO@mSl66{JzOJ4nQ&sRRG;!3K?7#2AUWVguMvY3KQVQ`*<32RWi6rsLo9(Ko|s2 z&PaikxvoqXrLao^>RrDSr;CE-^2PWfV1T)-0q=0w$Zl|fsOSNjZ4Is$$r_4G4$_xd zB4IL@PD%ny4-n#zgGlu9%Ut1MCT7)av1uG}xXZ6c9Z^bxvo^S(Ciulfj@#j}E-)dN z=JHWThBPM3*% z!2MO zWJz%qX^X|ef*cX3Rv(%V&gzY`@YxLCC5dJXGBkj3QP=HeCr#X?MQPyUIFlb_ykJWo zg^mz7H?UU|A`#X0msM>O5U}9AX79O!+~?41=mrGIxe~FQ#aWQN{n;yU8)q9e64NEq zEfzDklrlp*tW`3msFr#Wrsc7&+{*olhXA{>UL1U#C>7NTwu}O^3MT43b?-luZMB$b zK)=+e-Wt~%eYm9{cyOzvn^pwjtWs`f&QS4bm!|iE1ctxgS}%3q=`XkT_Ipj;>z0sF z#6YpSQY&a91yQ~6&)Zxz$yYqLZ{LjV%rZW^cP*YdxoShk8^Z*^!&grG^Bk9Z<6U0M zL_iI5#HyF2dtr+m8$*D7Y4~6&2zg`&kbw+P1=RB+V1#2rSLDD7dlYtWB(i8pNGU)JP3-@(52f@-3#qCJl?@^)6*Li( z#sbj@H=N}lp2z@;zCb;JiEX|VSk_9oLST?fO_c;7k|ug#d|x%x9Yh5bu@%q=V$d=6 z^v(($)q6@;>H+&yiX{b(bC+DC`6{A(ZEUaS@qA?{hlwlW5K>z*)9BpUqX*XP!qv+M z1f;H=F+robNKPVvba^MQr8!ZhmGl(k9d)&U)r+!%OR_9Se%J^W%qp|?S4cq0!A`?M zF!_tQNg8uiF7%IsXheM(lpMq#w(Fh2lf^)rc&vxsRcF1+3#!q=SBj)9c(k!#uK-pH zEj{WQI6EQ(^Kv?AO=3kwBm}(lwRJ3z^q5cS)@ZDEBZ!VUYHB{yS*F8(^e&mG*w{CR7sDZQCK3*P zEYezHVx`G+sV)cJ>)s*5G5fRzp%;O*Wy#O|!S4fVQn~41IFsi5f*U?^)0&Qul1^BT zuI=xMOwFT3%TV%I9MmhqrpdXh4)MvJ1jzVK5M{s)(nBd)0zMIvoCE+?e5XE467yK` z0&aZmP!Nit5x@?=Kw%1%b*ZO7zWV8?2RUlj-5No%)H5?B14*DBO0PY^R^)qF9ou?? zcmG*E;u%7R);AZtRp$J?W}^O{?>-O1c+h=$xn8v`!5Iy_Q^Y7QbLF*tY)UyiNwTp~ zm!J*sx0zth%(G^UVAedAQyk*lj8sD~3&+$5D$E_3*aTSk(a-?*aKPO3LsWApbTw@Q zaf}v-pd%;BZcPBSzQD3BPzr1*Ak0J^M3POi&nUx^ti<>Pkg6t)cxtQF)z{x6w#m#^ zL~=%BX!B>aO&hG5jVx|&i8R-(S$e@z%9ELvw z7L>LGCW9y?7)=?C3KVpSDd4;&X^1~-n6PQfp|oH+s_706CzfoCYwI4t;X|vQ*fd(5 z@Dtm{7J~&VVTC{qv3UV*Ym29GoYoGKqtS(N$0Zv1N-)E>yU7kxF$+htGm%_P0Yl-Z z7q|yn?X{Y4va<|IBFGe3;7|~RQ+`zd+QI@C4!{oOKqa#TPMuRg1}k7Yr7~VnS)7wc zQZPv6;I?{+x3SW`na#lTsCNf!XEFWeENloYq&bc|G?bEtDicl{)FhWUdMvorhwu3mPaz1!rN1#v$x&8gvxZ*G!&~k+8qkf37;{BAW=G0K-R^0Vw^F zkXuvs6@Sfx|LVys4A3}~wL$~fOA`AwOEz)5+`s~%HfMB7H2vF|K?Z^MyM<)bFih;J zdsrxzm#;rF9K+6^kF4)nTivm5dB@tSZPqY^TJHFF8mX%J`nEgH2I*!aLGrZAoGRVABqjYFQ|kgN8_6nF)DJ48GeBiPJ%hP zfuO>;H(SWe*Eq|a^dc}A+&oj)Y_3u^$rJ|~WxdDy+`$FrDkM*a>I*0l+eF&5kR8-Z z4P7fR0*?z1W@ky2$r`}}qs*C260oY|Em5`*ObkRk@WQrqXEf2mlI*6SUPjwO2bBgy zsbO%$m_v00^9cirMN}ivf^93$6q(GMrjmi(#0D*TrGx$n6O8^=fCS3BN zk-$q}vkApb1sT~8V^tyu1(i2e(Ons^0 zA97u;UVL@N83@GDRJ-Np)Ct=rEBcRHD z^Y!;Tlx>eoRc=ZSGPSb5D(J3(OflA2^wC;gSbG{28)o4OT&_p%{F{)}pDUa#8 zB<0=lbd@m?7!*{(UhuB0rXK0+7vSjES7y|a9)lGMTtIUEGM15?eFV7yj*tA67H}#E z$yu?~F`QYb0CNZ}{aW2X6_ZA1>1MZ9Hi2c6dFjjrQqsqnBT{CuKmE>k%sg#qgQ?^! zKMhn-P!I0l5(L(eQY078%8ultvy3(b10O-?Yci3jjHaCY)rvc~fIYb{8H!lFX{QZv zvs3ql`Hm$8Ii3argNsc7@i{VxoVFl7`5*ti9eAU^yLjG>X0GclAz%dfD$^+|v3BBI z*O7+}X@QbbEW=6^G$*m49asjrynrUDYR+Jf1u@zD)XN~KjM7a^50mSfE}&pwMTieRpZww% zzVG`UX#r+KYA$h^yc2IyQs7}uq-xo>8zdBD03#-2;E4NJUP^xB+PC?g69og}!sPyq z19vz?ov(OEZNX1Jy@VhLUynZKamQYkqSSphG=W(PQzSX8x{9 zz+i}ii3iH1#`XlNbIsVhNf2HazV6=Reycme^>;u#8!5)>7Qk)(Fh?1&KgW;mKDg#R zz*~+TUV8iyk5bfb_J#BHl5@U;OQKy)$#>}wIYBg3G&2|TU<7&tB4x0{jLZvK;g1O| z8co0&Pz_Kk2U75)nzouiFa+FTh9GfF9eE8yAdegGP#=u21I5`8vgymX0|N<0O}?Ne zh8zl};IJvg2VQtz#M9PQR@DoJQ2psAFBk_$CqMghp;qcQL4FcNfokqw^RA7q{ z3K_FgjmicQ*hqLbk%sC;sot4_7@XxPseQ{e)-bFz37+tXmkf9{5Hn^x;y!E%tVcAu zR%Rb#6JwH=@#!mZbfiZ+dnO4MfM`^*jEoRwEXe}o34$fOl}$U%+`x!OIBc^(Y}f_u zopqhWoFcCN$5y_}bm_?>YS6@$dQo<`Q)Y6Dt&M2?x;pX&P2>^wykl+#UKqKuvX{Ul zbP(HD@^db|sOc;Lk>$_}0yBRY2tVz;TZ05<`4Mz`JVto6cm*L2(^ODwxdF1wMU7DC zwE|q4L#^wF}#DP&O;j#9^V$kPS4Cf{BRSx25 z0JUcE)qrJ=lzzwA#Ebv}1`W&euWdJ(%LN0F`BZ%YNADb>7fy`dJ6BaUbwB{s>oD=| z_r2tH0Aha;TV{<2WX8lB7xQ}^y=_pQfddm>6UTOmn@kv6DUW-XJ3D=UXr!E9Y z7lag4HPG}!`*v@9^}8oz-q1c2-&9!IyKwUOUMrqGySAR*SbgwyCp<4_XXg9+MK171 z4uTZ;14tn!FFOpHa8iwI0wW*=X2NYyW)c`mSiznMvPA>XTtddYfkzV?h-4r@lS!i) z3y26!Evf$Q4{E~oa-Zo+yZ#}JR;J1h5Qi1T9n=gZ@3@U(62j>=SacVwvM2ncjtREz z06Rdo`zKnUB|Zb&$uB%0tsJrKV-KHT=nV%z4;fG;B#?9v24)IuXNTU&Od}y}3PB6T zQ7;Wy!x8|hGYCFx>nibxts@Qf=nTDG(u;s0vxD)4fsPR4CKxag2E_2^=7m!tNkc44IYA!<{&c#0ob={OR zZpJC&rkOUWDjyp~lPNi?r-*o?7yD>lEqf>tISQf+2NQT5*?)jVzzRLHNAmeIA3?(0 zaD+30&D@ps{2&e-SsFwaV(?J};0RwG#MYzzb5jMoh&e1za8Sv`-L^~-CXld9^x+SP zRlulI#Lnd8g-C^=kFqoo%+{L<804@o!N2(D(4&GulNRidUi52bLNwdg=3uD|^HDYh z!dcdf%;sDc#KBm=gVJr#r->{8;3A56W>Ej&}Vd&Kcj9LfDAAd267_H?A@A@AC@VBUV{;GRdWy3uy*Wc{M>ATP@W zKnDbX80Z!x>;sxi>BWYt>Yr)7z#;GTe#2?L;e+brY^DuTZv}) z(^fAsUGT_I(_o;-FGdOl(1zrTRI23XY+YzMFigB0} zvcbj-K(=B8B*9Eqh#{OnA{u8+j2ff`h6F%QDH^G9No>OkVCX=`0){PYjT**2qlU47 z3MAxxutRv-33X>2P(oJ?p$G5>*S@kCv$%>Fe3U+MAp`j<6MnYMm=O?Hfg6FsmM%6@u{JDXPfQ1W*PP&jF8rm zb4OI&Csi2PC(iRxK*r|IH^-ZrLAmMbs8`4_h;zvqi0QGgY}y&frLa<|S5lFU904m8ujy+bWpu_N;-$_uvk-8yL5zjDvX-C zIzG7^CMqL2{%S&l^QfO#Z5Fbd508y$`a9UTubH-eaTBGl zhCLoXkMRk;)LpT$yb;lLkDF7K0GnO8BNL1J3r1j5X@K7%OOzF=g8>b zthtXns@^}T*a!yO>#uwG9V=`%@3NF|hvE*;K<-;IW6$AlFfHGA?y#4J?eEvQOK`|6 z>uKQtRvB~6NDZ10TMaCQNXpKv2eKdrgaOE)71m|$iU1VbWHt>3n6Ls&!6J4>4_DTV1MXuq-y3b~;`I0$?K@9=?#|jfXp(TxcWdWAaqd7S;s^N*b zvSCrZVM2GHRd>G9j=9Ky5}$y!c*aUi=I!m`t$>{h#MZCw4j$a=omAo(UV-2J`yp`c z*a#90MK5FW9S-P08Dc%MAz@UKA1k-Z-E=@k9tPCbK#aKp0i2Crp1dMJM_H{UI|V8W zx==9dYRXgPMA9If#JT0Uxcq;7(&^0%T8yeDn|K%m%52ECtTEsAmQviZaQ zSOD!ImH9dB1u~9I6#1(F^XEQjerRC@WK2Y%4V*XE#l#K_P)(1%DgZ#PWJC0ztY(r2 z{8+N~PKl%vfMXkMXN^p5K`tl*U!16GG1JDmOItmXO)E-)HNDUa8DLbv2N>!|+18Nd zu&}YYYMo1LUr9(ET?1`tD-uw`Z3fXD#bLEIh*5);j6slukPPKaD&0A2LOha?92vmZ zqhWC>*1M|?0w`l^Rf0x%6PTR%DEkOkA6ejx zn9Rr$u?c1d$CeRzkh75KG;L9;q&q%pQb^(uhJ8rFea?(v5G*@bk?h^YkBr8=n(HM^ zZa(V^F+SwE`Rb+`YN}y9O>{>iU*iI%6Rx_m6+@j+x{8L%3eGV?DggzXciCxnHz7bV zDlrM4ZdhbKF-y*=p&j|<0$ZWvkqAcd*f|7DYH=+q1%q;Xr&e1LPa(bFJatiQ{G*iQ z4ZteESZ5OtlQeI26Q#;l#AbKu1;3bg2;g|c($x-(SQ6Dj&iu+Amo4|d{gXfJtGtl= zp1yz*(q9M(B>I zk|tWFg1HHf11u8uriD7vd)#D;%+9>605?^0Q@{k?9WhYvRz5!T(wE&Ki)h(xTg)9I z<*3iL@`Z7n8ClQ@U?!4fHff1uZ$TF5i&-F^ooZGRDuNcK!3Xw-X`+;i)w2UP30+15 zP0q>sOd?7M!8lFK8ApPya$;>0GPUS=zNeQROZj-?fIPA@S}K7J0CrNwti>{ zwTNnNEY3+wLf*`o;~+USfW0(DW=_s=B81nZp{q=1L1Z!y$I$RQ8@k2GS!iN69N+`* z>rO}9&4vsDSm?_dQUgeeB_>tS&{cuzsxr>}NX;08kR;KTz`TG=dL}CwfyID>t6FKx zusS6_nc11yr31DEGpvY*NNcN8+5R4HiYQu;gjAv$$mmfRa3Ajz5Aw@CT~LJeP$FY7 z-WPb-qG23eGl+&1r#1PBr;>Qo_mw1SC>3QjcgNg)5R+}vszl@2&M59TY}%sn6+`@q zr#oE}#-s0kxWpQ+YDhbQK|H~8_VhYha53Eb#r~6yB#c9eBwCDXh77mSiN{mis-6+VDgbmAY0@89 z$t+>aCQK?rUDB3A1-aNxYVgZ5-}9i9w-Hn@kgY{N^XZv@d@+;fN|f%n&4=`+a!Wep?#O0XM2W0}Xe+@;i$CT8 zdEF_S#sGwPic|p2S(O?D?2H=;)#%F^u98-vVWd#hp@xYxQQictBRH{Q0W_(}C~$Lm z(BGjDY^Naq&XcKcjpplWCsq`(0}t{P0+OI$;n4ZYwxv&R+oEp^%mxTwsn0A7C}udt zSN)1%nTsv^IMn#6AftgN3p1BEF+Gr6>NO;AR&Y4T8f3yoUnubxfw&QayD{fng1PF6 z8bK2AoYk;4O_hBVNSJb;OJDpeNNn)-ohdcQqAY|5yrC?I^`)FuqKOBkCnQWOk|@+? zwv?-`!;RRKQlGEQc2Vr9535izHE!}wkU;X964(2qeh8ZcJl=HV9ixdSNIhQ!oZY)8 zs^P-{nW3xfHbxj*jj(=G;GwJx2Qc6KT-iN7L!q(87-Zp~m2nmbvj(YTF7G?4)9v+h zl|T$+sf27S z!w8yix4G@JDhP`^@Eh719ot zKqk(K#2w6&N`ajMM zNn|y=gI~XYUia4wA2r8BR&8ec)nyS8D4i8h_StE{>_YG3 zYgP5Lj^@KQ#(_rDR;2=dX{q3GRHCy&O6w;~@;SkN{HE^d&RIvgt8kyZmPt0MCWTZQV%06o2P5-@~qH_4=Zdu`5i4$4-{n!%k;HVfAe?z(i*FMa%S zZSCyodJNCZ9Qd%6GBz!I*jwRd2ajIbnwS|Zj4YU=BxF0fqTN@KgENaoW+D-T@T{sYe276vUkQ_-auvNZ z0&{hctDaRU&L$KwTCrHnsJWVUN9_^umolY{3pg;Qwhn)iL)Ua6u)ZqBdgDk(de?-U zVne~9ueb({GCm4eC4ily7v!nX?{}wTLY}5cg52Va5a^txiVN1tWRUU@%m0-}r-l=-6AP)os6dtFsDWuFJChBO+&-AZ!W83N>*9z&)^(lI--N!f~L^H0EnCeCGBzc)m~4r(-y zvQv|q?K_Y;6RD04Ed*_C|5d>`vb9Kaw!5)N*8EBEGbgP9PhNffX^*(S;o;Li(2qR} z3>ePB65otb48SpdG#doP*^Xctz|LhV8BLhMXEcCaLA@bB!-N@Qntlj2Mus+EQyE++ zXsgDdQ*A*m|9VnU!BzS)UDA_s@WdDa+|-xd`foRjc^xq_GBhlsQ~2p?*{XlEjz5~r zvAJ6p02xij1@#!h96ch-q*uDZG44|jB=ICOdc;J{5XJ~JGG6$qFFiUip)Vx2r!D-H zErlox*d6pDOnlT{uCSpC<`mJ~CDvX)R3`F8?=g`|4avr~lvOXJNfo?h6E4tJ4Uq_g zTSi-yzFJBUjKDQCZyZq291WZ6MYQP)?7@2Wsf{I9OZ$5~T;E!dBu0Q&kihrg5$)M|`-e8!P-Kpz0@bSIt zBhpO%uAH4_`t%%fl-Wn{h!eI7TW+GS`iWaLS3@s~Px92jr_8XjM)S0dWu}HRNwjSc zu0N?pBkl+vmQ=4y7y*WfPM!He^onHsl{riB5HisfW%RDO-Z^^7FKD>9-;Kb?E+vcg ztChnu)t@a)D@YJ5^At;C7q$XvCm z72yDcz+}UAG?^~|6HiMv%+}vs!e8$Q%%&tGP5{K#flV6>ftcGU=J58<&FAgFXl??g zcTEu6xA7~vn1#R$f@f)+SBdW2ku`|4@`eqwERaafy265*tEiIGiB*%p6N`HH7Q zK@&CIQE3B6HAJSN=N@->Q5gE3y|ZnIt(dg&7J_PN^4{gKyH#9n`s`a?xNGZz=im45 z+xGNR_dk5))SI8W;7{yP`MDo_ig|%JN(%ShMNya5I4>cGn&3EeBi2^k}QdmY&^&_&c2GA$WJfAFf7xl zC$L_iv>IJw;^}>_+)rpZJA@74$)F)78Y%=x3CWBI*n~RFf)dY@C+qbEzA`2bWMDUQ zEpPWt5ISd!P|waN2}6CA5QfUS;B>Z?9h&>f5qgiO=%rp5Ywp93m>^JKA2fY6G&h`! zxaT|wd{EYZ{lQ@>{+0g6D*la-o7!}WU5A@wTq>QlO<7^SoJ*->5F$DB!ZO2*<+x7j z!GRITfIc=s=@JXGq;a1|s5yFZ$=5bfiGdhHrglz4%+(KrvpN2ZrVC|~aJ~2h9lq++ zCCxKKVEn3V@s#oOcOv{r8h=jxfQJO#CFs95Az~f6&~|C>PH!27{Ggi$p$#!iBgvp6 zYjy?GO&yu*F7NAMqJJ~OEa<2s-`!AV|M*lvC^|G0mTjfPz@m*5V!IS)xuk&187p0+ zUV(jRO@2bEL?}nf4tr`2554WW!*f$O6FECDHrsRO!oy=sWPbn?0Oha=pV!gj$|oMttr}PL+vDa8 z|I>T95s=JkTg>duHm`82=tne85XAFRYTRbq? z{9Hzh1Pgh9%=mCdKr*HSq_7XzQ3e{ohx&HxX$LoWAC$S957STz=1lLg3IQ6pr!9|& z0c~Ns=dTR(F2%@YnKlj^5csPS}BO010g{_Q0Abto&L9B4ryRfIetRyq!M2QvII08L&NN&|bL6Pt5Dh?_& zaSsO)XlxzP#gpDA-9P z)c0}tpd3E5 zvu`8iJtu>;N|W@%0&@Orp?%Cz~7 zkDUh*P^flD-t`QOVh|}TBzQ!?0B2u0o%=`#M%ahyBad6!nX=ShX_6u6F)zyBe%(|>vi)PNAf$<~^V9z^0r9XO!X^J(dwS_!bdAEZeMX$99!vDf;+9Z$UR+z&kW4;TUh6-si`x1t#}H!VQb4v%%Eo+H7Ioi9_26Mg`oc3=$QhtcFCDDGmbb)In>k*opvfRTpTm#Z6idazg zgb5+h(?N7Oa}X~RIKxeOyr<>VG-}`vkg*j8SoPb$yk))S&&Wg$9Z5(MGz>^`m6%Xm zhN{GYc{OJlg3*h2FgJ%MbK;FiRs>!MuOOS8*(Y{Z#>WVS3CmQ!jTo+q1pE=CM+JRh zNTW`=>yuUTP<#&CZ-J|tL~Mm{z)+1co?%-TZu1G{xJV1K<+vFikg4p?Ow<;*%IOrh ziQtC++iRs)>>1q|mMM6U9RzJIIg@$TM|bCks+tQD^sGm=;?uW;P%5yw=9t9tD)EG1 z4ld}fYeNIi@bOM>fi#8&^qM;a5;p-Zmk?kWNz#i>iH#>`343{mUQ~!r0Y;Go3^|W` zZGXK4+mliIR(o~4Yd0MWd&v-P%A^H}{sySM9R(5rqOs-fIT;%=cG^8ADh<^TCIO}i z%eb#nmx^*!hCwebk(x+Zr0`f2bP!;+m}|Bw|wvSKlaXdJ$vP{ zUnF@~;f25&D6SX8{m|2(%wVTdoCMwl1Fd0#7yw+sI?yVXq`witAzIY<3e{PI3#gO0 zRqueAVigl^!XIcej#vViUgPHVdK_V>)r2~Z7>D0If)3~ygxX9>q(ClV;4^cfq&o?V zqD`$vc)Ps>Kv9#+XjRDF4{?@tkfz_fF?N*x6;PjU5eqO;y}iR4x&u5zvck*HjQ z6)~(UT_vqy2spEnul8r$j9^$~MDkH^j;9m|9Bg-$Yird5hCMin#y;Fs>Cd|7~Vd9H($YdRAC~haBxig z#>H7-k|FRu1Nn%D0tf0x80YaJVXnr5^c5KTVh0Q<=**sip>@f&Loufd3-ghNq~cR# zEGg1>86TBVA0<9Gm<-@7_j6XCUeX)^4!E^dOF+#DlbMM$6h*GaK_QFE$Xv>h!Kd;< z4w_8~RQ`1&CF^ek*=$+bQ?V}^;C=*yVbxB&$N50qo(eBfd;))D~0d) zvHbm>x4iDzw?61G$Vac9HA@FCxfN&!!|-QM29(KP?uNaFb>64Az<|%d0lhE~uC5AE z&%267Uma$%kkHan8PKB@~f4s;zezOd%?S zIG09)13O@gKi8|*oa3-EQl~k}#4wMLDjD79N=(+%wmi~+dMZ-@cd$!}Y$l3?)oonu(`Hr0VZQ&&7;D-vl9gmzY#@ zWrg@C$_jN8W9XrtUStzIx~n0tpAA69>>B!@z)E2@Y3W~2Qv{7lXB>Fb%F!OC-)lU4 zO~er!6>3!8`G_k|NV$no(fJ^ z^9k8x_OibklU|Rkcpv`r?|)8C5g^3O$bejr55Vy!U_1t&OL_+>^bH4<=|ZROka}>P z3=#=J1#15dn&1_N30l^+-%e8;5I22I=JoD~Pn~J)U^iN~W<{y5K1wTgbNAM-t3(b0 zR0)RarCIgYO6sbx9cS*@uL!Hzd(Za}U>UvcaDLsz!(IY;#i3&9W$*^k@tIS0F2-Zv^{d$_I`?M{}`< zfCXTb(82-uC^(Fv_GJ9w7`Ho_n#!eqL$tP@P$dIC%;JKAAY>)YL&@^$RhDTxzkC(g z!k*Lp*v-!w+=XFbF`UF97zL>y7aUlLaJZeleKw&NKqD}D1Rhg}YHE7EG0EsF*XtUM zs752{AR$WVXCh%Sh=vS)c&@t$hF&4AkB+#psPLM)p!lh*p~3( z#IwOxWXi-ym_;7U^VOvUwm~1I{W{`Jp*{=vrkS1eG+5!#wRec$TVJA-jaFkE^D4(s zw`lBS`M{TswoFpM5nCB?0D}5DysaGksyK=z{$0Y*zEvgqv zdl$W}@(+FV!z_c07?RXgQ7wPfxSi@JODYY2q{1XLwBv~OZP~$7k#+-oCDQC6nI5cJ zKp2x2#FCRnrkyz8+?FIuP2goB&`72@BVc^QIAch6nTQf~dNgIVN92Hw2z;CoYZVJC z`*cllF=L1D1asB%r@C-xLX10qjvd+k<~LnDd1CeK8E<7dZOa`fz4yoe29yvavICI9 z0Sd|j0Vxb%HB1u>P#yj=Bby6d(*v=g9)htXlY)XwB)mDnmIxiGi~}<9<15Y_A-OCG z@u935gQK^0aEj#vL(w93OQu-P@QZo}^~F5<$Cxo}8LEE@6bmrEugn6X#Vt|AzZVPW zj*vn~9MX=vMF=;6Vp{tVg#9{^X1zuvzDpM9j;8nkPd9X|P|^#f$e`=Wqu!#)^Ye_R zE$xg`x@H{pC3zzlw<>6e37(8YPV%T%;~*iOL%ZszpZMYtBC$Mf>_)Z7@2nSha&7pi$6rhmNn2m(r56sRHO|3&kxB-Ss*-RP zwGG8IO3aVIOGuL(u~n_+E)f#j&~)S{_$zY@yb^e_Z}Y$tBp3T!=d0^8*&K4$Wj z9ZTM5x7RbY;w0hcQj|(4LI8io$$Xm(Ob7VjBRB6Ih1F|!TZ!#8Dh-SM7$B(yAC+crC2E@+HFV_ z7(FgDzRz|ZJcHzb>?9{uN7PJ!+x^F=>xXt;df@2QEB+F+A7j>Z&dkc>7Jk|^R+v2o`#m`X~mDm}R~#Rz~@e8uOP%nW%OroOH^dYu9bx+gJOU>IY zSUj1d-cD4{>MQW@QDcteuXmY~2R8+J95ha3kgQq+#UY4qDSffp$EI zt7PQCFh?9FQo!(Gj|c@Clak=UhY|eO4x48T|-fXk2F`w&YJLuxiQ?cnPW~1 zH^8a)KUn@)$5D!Q@fSn!i|#mm)G&)9EbaV^V zY(b}VG{53m!Vprw5w#@lg)KKlep)N@y9lA0LyyGM1?K+d9i`-v-ch2_Ts^^PM;P>s zj9#Tnf(N}zq@pkHumjzhNI{PXe1z7<@ilDwTZJ5k(2}&(X%7dCpou8u2;LOZJVnhk z(btGHO;nDr;=#)UrKCU5#u1vE0*RuKbcC0_4x-LC35*B`+FZ@ME}19>AH?xdzREA@?81>zxq$LTq z_$LueKGUP`T&X#FF_7p|#=OUZlHWg#HK}O#mWkbWXMg}NCbZp4v@1g>p(h?94HTQ>f=M0x6k4;(*LOeC*MfbOcfa?qd$re#U;dK6ONd_Y zeuyVBHJOhnLlx9TlS}+%tsx7jJed2*lF6Qxmx4<6_c3iYgw@kN{m42+93-cO?qFaH z?#ym}&}wk^e#m$PC5>_rj8cLSbGLLE$5p*RFxYP1ZmQ`kJ~Ny54s+pFgBVFzvIY#H z-XO!FzF|(1$S@R{FRayA=Z`M2#>sd7*!Lb;Us_wOcO=@B0O=x7c6dlekOL*^v$m9h z7{CFUf_navv%uU0UO}25b4goGC{7IGX#y(c9e^@JHnreQd8+KHVcO0HY;-mR07KkN zhajhps53NG;Fl~GSc&dx(hH>>x=X=TMsSr89LmT{oCwL(P{p*I`~(27LS3iqOfX1p z0~4g@6+^^!QwFe5O3-4WNoM;D<*q2z^x_DpGPpy3zM6rcWE1@wyzB_k5zgmcYEv#I z1t^mE=MimvrFAOlOBYskR2MxraL0;LsZ0$4d=T?Rh8U(0%!wszb?2(#3|zA_$9c`K z-Z5dE3Wa_c?EJk)gs7w-fG)r|K6GRpHTu#V2vEvb5N#U9WtJqG>tg=X3SO@;6dK_2 zhn4jX68#w+CJIH`rpaiSN(79PN1Mdeb&d^y6i*Eq+@G@HV=={#_JMtMD@}9}o3!%{ zQ*JO>MCoPV#N*u58$lmKx@L}C*&F|WO~DJNjO7?!QHMZ=iQcGiT2jj&qL z*Q*O{H8Xw)NM0sw_*G_hWG*RpLAickgRM%wLy+)BP=#r82AO_C7Ws2lUzEME zLa`;JuNXobmFDNk0{&92uO!l?a}-Q>t;ozWA}tA$f-};DmL8Qw z8v0EVMsnSSp~A;L{p*})y(}dsMbb}6?h|5A>96nEjj`*(UsmEE1wervX@ZRVD22el zO;a`2<91m=u{E09m-P-ZGlCaIdYn=>{H2DPR5qOXnqBTF&g^FRq6@bOqZjcnqd^Md zGHg$?*{Ss}2twesHii{Rq%Sps%~$)qQ6DP})#t3xldbB4MlchZIlQZl@zsTc40ryR z*T3oM3y)qsbMEZ=>63mOx@M|uUjhJTLT--7T;fwNu)-W0UV#XyBrze0O7k3FQL-4t z!64iVw$qoFxry%lg$!Jy(H7QGR`9rr9`2d6vyzVdX$)hxRT2=OMXA;wWenw=gvGX$ zoy{?7rV4@_xQQYJNrYi8R)yyn5*XOJPbx8Cl&MQ>4zgVJ5Ud!mdnQ`^M9z=e%(O|O z6{ialXZWTUS^%p;xsKrywK}W3Af)+&VG%ZJh|Kd>h856c9q7+A5@UHTHh zewd65TRN&_95fjeWC}|4z8c{4MNQ+Zqv!3FO?sb?H&W@2*|}TBxkYYcQy3U4ZL4}6 zA5Wo46Bfwft1hBKE}?OwP)yDl{(i+>SpiD<= zVbctQ5lFN+g)kN@!~l9f`^K6%8{?#F-XZ^9a8*Tt^gb@K(p83J$pL; zWMdoxTHr%S2kkVJ^2S*Ue}ajYtn@{TOxG4YbCu{*IW^41eRQ`ZWCUWXZ<-lpe_Jrt z|Fh4$=*9A;<&R!H$3C!#dCjXOFAhW%rS@(7c@8ZZ#2ns@Jb!DO%WTvOMX>+&XRp|} zGm8e=_&{CDfv29lNO!}cMGDESUnoUd3bGp$4S7nYxepowBX)Kqe#~i2W9+~Xl7l3d zD=5+~>a>q2TDodDSb{{R$mR@>lso%PZfMeQP~Kb+P#4axU%9+-@q$0NY4iCYdx`-r zfbd?GX{jp|B_>E0sKI&2CjNl~e}QNr0qD>u!!GhjLvYQu@||%+parS>XgGiiOw7rp zk_dqn^yPi5ps48(F!b^VxhW1Yqz#MtltFs3ff9U)aHdWrkiiphVU88NN=7hXnxF*W z1S7V#c1wUQQ4KU?ppM{_HIPt78)pR=V0X*aK_q38qYTy|Q^1Pk%5CquEk#J))T68B zw5~Fm(a?~mJ6{>fuwqd_LNdo4JPtoKOqxd{mvG~0h)N4r@l=Q%{6a*%7}F`$G*s_X zIoNN`iAW^jBdvr1GHSXl!r+|C$PA^q9PEgy=^|&{>yfAf_3}wqb)i$0Ovkq5M2Qa& zbBQ&ym14NrY>~yVT5>rvni}~9I&4HsB?J=8Y+Ss3~{jR6*hxxQ-OH?G6lRvsYm-HvREL|l>Dq+X*0pdXv^|ClGlO_7MTH> z)Dh3mE8sw8fDB8#wo+lQtDpMf7xV?vbwmp~di(=Kpq$S*zOb&bQ~@32ab_Q{Rk3#@ z2ockiJ=2Qsz_OKcqK>(2CZjiexaU=oJUvGdNhGFCC%v2gfkE4t#-kU%{6$ZFYx1ct zeSxn{Zh!4_pEa231#{BoAc=xA+3Y9SD0BAJ0HkcO1N0cJFsf%$;(>X6g^;!{wBjI9 z4J|dKJMS|Q;{Mdi#ei<}4W$D&>1={z!lv>M|M%DA&Tv8e!n4A|GT9v&`z_3sjSgeF zhz(7e#KH!YfB7Fi|G)m^W%qNluc8$d92&wdWD>+nz>N6PoJ}ICvm=z7&LYQH;HueO zd8cRK9y>Is(X15QwvAsHwp}nAadgyQXJ;V*u$U{b<&yD2N6=5ONg3*NI1K|-Q2C$~ z0|FJKsDTycV1S*`#G#R}kO35InN4V~x4%tk>sG(;^3>vmV@FmF9;o+%8jE=l?iu|> z8U!{>g9z?05tS)uBqN|O;e=7Y%h4}oo7~3BZ*+CemPNdJ|zhuSr{}4 zY!+ix6Lo`ywr0*u4aQ-w7-n-*BLz)Nz+8pr_Sg|1Gn0p4DoKtB8F0|hkVkQ4{BtBp zb;?#$W}FZZ%&=uSqX5dVGIkS;YHM8@FjF5 zcrs-GNYG>ct1>dr68n2Mi0wD3u||eb`Wg{RHLwQ!fitiQ8A_8h@iWLa73c!k(;fb9 zkER#ac1Zw`KL@dWrC^K(Re+BlK}#Y(cqbTOcZZG)0zfZQ>diWYDw(e9i)@I&5xtBN z^CD@*@+dJxnI_68mHCK~BM(Z)r3W^QWmE_~kTI5}OpG>uc0Z~UZ6yoTg5)T#efPVs z{`sG44tY$Z(c995ieLHq*Mr^?ijKqx!&piAPyX+#-?&y_I77T^-~Rfw8ixM(o8ROG zomS-ZalVy0q{2&mq>PD?g-GK=LRmAg9lf%HcA7YhR`a&fh2a%h7%B{rG%*2? zU-R@tVeQ~QNwi|pv`s@16|0)VBV)I_JR)-yrL&LxGOp>-n9d_sF)9I|$vg}cfko6Y1~hQ+;5V5;dc1EM zAdIc8Fg0#ww8h+E5J}rj=auD!OdD+z`h$9Jd-kErmrfozyaJ!44}pzM><{ALvmsb^ zKq^BC0UU6K>z$>f>^4Q0@4nI(fLL?c`!bV_tTfUPnz`6ZD7k%opUG~`!c zSOTD-f=dp=B{4*)Ikt72Igf1_a~{JD`Hi85A%h5zG_FyfXMto;Li2c&L)o7^ysRVL z;m;I^In)Twm=C$7+pl~ao}~(g8gf%bR8L}~HPq!+Wu{0CVy|`b^ANh@Pk_`rlYvGV z&V0p(DT4nl5#CuZMj1AwuL8-{GnYBMf;ZLRU(wmmC>o(O*OA`K-u(sx>R{4jH8nEZ zkq&{2WThIp<`IQapR3MEE@|kJJTk2^JvI#>?FdmSSioWekwEllt03kF*`|UhLLd>e zwY_QWY1OGaYc!NYsZFgY$_{pKfTaC!i&irkGjKB;e#a#A$l4_J4Q_}}(^s20aMe&{ z5+dbI1Lm2dXCq)MNyqSHyr4Ma=mBPrCTVG}ld~wqJeaTkIxB^u^-> ztfq^7>k5JiU|Fokm#$q4+n4)ENaDprbWv~@!_^!CZP@~K! zki@XOA4TXW-e%lee{DsA8G8>gB?d|j$5}xNGZ8nXlClaGCVKDkEwDY8EH*vZDdzP^ zHa?2_I#o8`fOwoG%rJBqMj>!|x3z_=k40ASG0RQYA-2R5KUpZLF$(t_ubRj;6AYjy z_TrjxwxS^krxRev)0Vi!3AVd&wDazTm3?=6viCKK+Fu>)y(a|quht~W+nh3m}$OhMF#K<8SoJ13lEQr0A7a> zbw&wc3?H!F#;o)Kt$;BW7Fw*$%ZN!OAGzCT4z$(7aJ{>#cX0wmLA}1n29OaDRlzbA zS&&W27PHr67I9BiP<*)dLj=s`pxXPvZ56)7oVx?!)tNZK6U!uYuqk0WPOcL5L zOJ@5jU1AXRSy_luvT+UL-~i#NoPiQ&#Q%@8dw^0HYRAmf;6P5lT(Um{64qk(5#V zK}%9eqzbB{R*A7H#8Ur*e4gj~zN`1Vr)L;=YxnN8*Iw&c&-J^Wwf27BvvaE6vF~we z8wa=O6HOahLdW#V1n4`or&1mWE(D`Rv4DcfT-UM-=2)#{XGY}OJ%GJX)Sd%mPzL^h zm!5~zDez$#4kB_GS+O$6lB2?EQ!U;W+UL?tDzV1~W{j?}{TzdW2*x5fZQQV^QjS5n0Uk2{qO83$g@>^S zu596-TVa5?5f8SrY@{BI`55OxC&#;g{$JR)6mEh}W1be`aw;lK*-jK-x5}W~5LYOP z8stMqIR{PB?YPuT7Z&6yWKVLU(xEKFwAK^9ZOy`VN@#{_rptpBemkfci;S6HWTd6A z7A$9G4OeNOQIsj17xB_GBNT;O!y4N5h`4^!TV5kHY%b|y5rhZvC^Yy$j;G4okve+B z^OqxAo69Fpcv;16^AW!#V!QP%k3J0alCJYB2yCVX*U%DF@_F+Mn1XNg3?(=iu!XCz z0@Oni_zcRl)W9JdWE4mU;t)hl>>z6h^$bUinkj%yazSS67jZ2QQI2kDRjip8w1h|i zlYnmd$ITpk2~ChC#sLv#OjRJ)OffJyT%m~vTP`BPTrjYm(_-EOCXOv>w+{oCOi6Iw ze9GByh*Zv6lE|dYE%5*$ap&XCO8TSZ&C>MGNWC+)vKXLaYa~~8J1 z!2an|^>9|%hooj z<)R=|dI@;F6FB4@1#H`shi}?bK0nb#MkGP9q{Y~1IW3UO_ODf~+>!fEn|GiHROuh7I-|Y@km-q}*a|SjP}% z8Fa8A5a=B2fG@~10ix^M5qM)A7J)OM4^%n>c1Gd$@(>&%j+&2i5ZF=+4$wC9p&v|x zco>`WMxc7J$J~vw1{PByC~GtZ?O9`{CG?d@5mLOuR7k6WMLx+D6?j_2PxPhyW54io z@^(BBP+tP(JO$Dr^+F*4E5M1*h@@776ouQ3;lK{UW+2IXM8l^zGKT^U@-hnd(4K&f zjBZL5HS>-oBWw&yIdf3}F2mud=5cvNl%|XDp(6VUyafZYP*Fg3sAWoJ0^9yUb+#x^ z$T0iPY!Kn(2=M&1?2lk8d6IE2(%! z2dL`7IL^bDrnX7|xQieeosFdzi!(j#1>yCL|1-J~6O7GE?P3{=_}IXtU@ge1aLWM!-p)&!)Nf(CIjw#EZa7TV{M`S_U8)1D_VfmxoxPwvMV2#9$i@U(ec7jQYKLg+y%Qrnz2gGd1EDaoR_gyHBX{E%Jv znET))bs2@X&=1#&>6>6Zn|3IhZ7tYoNsOCcWCeTpZ@qq|Ml;D)-3FRpa1Unf6tmogU5g3UGR-*@JV}6i?Q!$$;W&rlt3uFq8w`qGY;wap1Wy75Cwin zM)}Y8{=j$O1cw-72+amm7DX9p{{WXRmOmyAt07QnK?E&vt}h717^Iay1kx>M1U@$W z?QH&LQA0Y7?RZN?y!t4G;Eg<)_0jQUR)WVU8PQnHWSywORLG;mGSF*tEFo(k;~G=~ zGdk+73)I4A8iXHD79bUP0q~JPn_CzyJ{lSWw%WU@ZJFeBw`HEcb=0!Xw(8qI_o75DWHqg915*`gnM)KjL+XXkzk*3WUog3Kou0-H8G?ybEs;5%v!E86xDpYz zRZS>RNEBN)p-i_>h|B3q*m$XCcEHSu<~34O_`m-NIj2qLF?0qV(m{TDv$tlEMRn?d zLqOXZ&d=M=gd(*W$EFa3hyUygd9p3N6mG+C5NbHw211R+OltIk zU0P~j?xSRWLQ(Ew5|MO-+uTMJ7>J4E=Nf<`H8hVD07T!E>iHC`hP_llOw)>bWsR8< z>ljTPlk1nWCWCH=CNdM*d$gr|a*?qWlR1BDpf(%AG3+trxp z<%Hy=WM?hOD-et*`sN@|WunX^ocj z>6~yw9FaslvM^bwsw9+pkQ<-TzJ%>(GR zn-1rNx2yF#T@X*p*f*nS<}=KZ%cf5LpvqcIM{umR`QGgG<@S7|W4ixkdv&#im!sh>i!c5pT*d65++bV6@p zoMsdt4D1C6&fos}mwE(aIzYkkFheW{J~(aZMy#6ex6l5&P7_ZN0gFZ=54 zp_`ZXcGu6J+uA-}KkedKDxt_uT_74F5xiENZ~j)g6^7JKz3@<3>;o24zgwnDxN0T> z7bZTJfF1uD2WDZ8EH}MCD7c3IJW4ZdkOlIf18%dXg7zA)WAKFdyv}fZTQ6-4%Dy;3 z!GZapdZrIb;1W2bOnvo|X`9w*O^xn2K>=}Pl%4U32a7d3LZ)w1xmBcsOy1ONg^se8 zfK+2Cf#pLs0}&j-r9hT=tl5w^lA3S8w2K$~7E^ugi8OHQ=K#BbZn${plMrV~m z+q2ZG{e^dB{_ji`s1bo~5!6iMAcg{EatW2h*Pdc2hsKy#U(Qo%@dv~=dlhLe&}lKF?~VZBoYM z{>uF|h-gVUQ-*KU?7BGa&e^DRSI0gF?Ps?Tbc9a$oRptL>V{)+88m$qXnIx-YZnU6k-}Le;`Y}3 zbfiEIdt3zr`XZ$P$_i>Y+tkE;XC`GcG0LN`s1RLp5QoR6ET%Z*2R`vj04MP)*4%~R zk~&cXjsTH&ZiOCiL<@0~!S*@j|E|A=#PrW=5fC=&w zlL9!RL#QIhGjX`(;Y&v7DO4T@1e)M11-szuj$of5b zzw_f~5d8SCKZB^jl=8G}Pv*rB-m$j&Z17)ST)O@A9nU#?V%uMQ-hJdPuYqsh_x3l+ znPtxQCBT|RXfkAA2o{I~YCxPz?12um4~v`ESiu3%GTSN(cI_#ddNtF9@|g^@f;ePh zyRsV7F5|lNu$X%7OtKCKqb?$s?EUVyl?AQph%6t#iGuFN!UO2wtKtO@fnGv zs8>f*vsv3LrhRfDppA$rNdjP*Y5$OkIgF{?k`2gXe#{!?1@ky502I$>7oYae3Q36^ zR)qkIlh@p5vao*KJ6pe>gL4xWezfGeI-)Q&%?-;0H##>U&RNfh*NC%=f_SHVE`hRf z>53*bMmE5%pi+JU+m#V_7u(rv#|(nuJc{y2TcMiGe?XGgcBLz!7qZfr!f=hZJ z7x!asd{T&mlJ`?cUqsv@Bf+@`y$v)AeIonNTZkk8QTEJ;2-3McP*9K6bO~kDI0Z9vAinZ28Tu^CJ$SxQl0OquxCwdZp?OSdnO>>n5=a@>)bFk` z`~e#B0hij~hWL404wfM>$Aios-HKDT&==>S=1h$#GXX_0nfDky=*J$;sgyTbr+X4) z2pPDT;yl#rjG94(p1xw%*2H)t2+hH^LSI&Rrku;FecDe+-m?H(kaYZ24s?8AyFbR^ zPuVs)^&g-=v*ByPED~+skoNAGL-*XfySn0=P|v=wx8YTpi|4nmTsnFA;>kPjIOiGS z_y5TE@j#vf=OH1{Ks^T&p=1Yx9F!!F)c>8kn{kPM#rZ%x?s$pl1T{wKnCpf9O@^2RNgLC&@3)Ta1jl+v4?Vb zV8f|`K{Kw#Rx!i}q!vLhc;2P0jTOJL2#TRSV=raYO{q-l+`=b5Faz@eVc%QF8PvrV$wrcjeq8>fuPnGOAKv9!$mV{;N0d@*>N#B=BN+>roxzQ~qf_uSN?-Dz&85*N&w_?t~?cr<_d7p)=J|$~h-G zwBciRLAfFqG8P#nX7=`_c_Ne`qve#bQ6_8;T8I|~;+gFHjc2OSy_N7RuI_ag9c!KP z{wE0TStOD9`Jk49=Z4;U=RYPpEO~aUi%a+rFpP#-jRsO?0*5O;=Jf`DWXB|qvNo7W zOKgZf$)sl%1oXB%WupHFU#x=kGTwzCYnDy@(o3h`nKcNKk5P!mrNs_=+0pgodTalj z6(~(#hmPhx4+?!v$=mD17v;u8l5f8BS8pS(0N` zWdd2f9alW7CmJbui`els2aY|u$Z6djbmY1p_{7I>0yKajyb=guRkJXxaSKx3f=*x7 za|$|i$%v`U5NWI>Rr{64{B9406Tt!M{p!BoYBN0@_p64Un)L(61SuVb$ijK~;L^j7 zKJra}=N>=sd->9~UkUT7%-P+|yYBQ*@-)Y@#7-tGF6=l_8V8^mU44vI&ETr60MqGnvsT9?JoDO52r@(f*aFU9^tX@V(Sudy#+p%hU zL1Jc`&UTsocFBAuH3P8}Br(O19Vaoav*Cz?lrkoP0G*Is!Iud9P2v2h8akl?EXB1J zOmo9a%%iCb4io#AFYc%`A}tMVP_^txC5=&L%2;9xV`+xCGb^|Y-ibVS#Y#AX_IM*Z zkVIzq9{nS(7v|X)I?3Mx&XkE1{RnozF4o3d6GIlDMDym&|M$0l3y!APZeB2umWhI# z`_h<$zzqr*p4Q?G##%v}yQLPwP(k>^cJ3tiq?T#>XHup{dSmgS3N_aF-hM$}`oYSO zil4|%MR#Zp5#&g80@lo5_G77wBY|Ha&pG49h*P^VaS)fB&=t#a<4teyp098d1x%@B z!UQvxB=qc^aP%FX)&X9Unnb)=haj}%`f~Ndhke`5SMz3HJ)={jIQtmUEFgB!_wLq; zC^%9-67CP@F(`4k$MT_C0xM(8Bpz|RRgxDb`GBF}Dvv^Ts!~#z^>F3Y6t4(^cW-s_ zDuoGw7gfbgTQ{`u*R9?Q#a8Dkp@- zR*{1f?R|1)BT6$LF&xT%I&!##OfO$6w)6Aw!w-%w*lTso=!qk~ErB76gw2TFhqt=7 z2=#J~dED+0b!E6FQp0l<0~c%A2t@`S0cfODnf5z4(EvFMIIX)hpY3XV+o7{q{4bYhCZ>0f88g zl2^kGYZHP84aBu9QNHT1^wZb@9tFESc5NheQdyw{8C-HmJ0v_!y$pvTOt_#XHT*|B zI=DgRL6ac6>q`~#eB&0B^;RUaQU$Kc%AI1x6I?pr6`#Q{!8PNzdhuA!qu{JDyW?n<{b4n|0?}e%}lpragXjL<# z7!g;>x<_56n*g=DsFk|<=g1I$$^EwxSwaXTbsSzwBD+$eh6&i$cWQ(Q$g=kFJXB=y zZBY#OMD%`a=S6u>z}F;`$bmR<0q%51yxF)8@8Qb%nSZE4o=kAS?qDw~^i1?*FTtMz z+bKbVm@j8F1a~O#K<*k1(+{2VVT)P(^HPeEi^`eJ^^`ogMMrm$4h*$)NMfyV6y*G} zckV%I^wDG~Ig&FGxFQj-y|S{ru~tSDAS!FI)?bL$hAd)7;tDhE0KfO6ANGrg_1j-R z_QR}Z-gNii&ETRCqu{*(!7COz>TX=B2!|L*a>dsDiqw&lCn_o89t5wU*J>rmqo_zo z%3Apw@Ab;71%i1*CF4>x_DbgdD4@U-7~R~>(3LH`?g91Q7Zpbe*b{M)T8-`oqK#;q z!ZELbf?pUWLOm>~*e^@H|5rX{9yfRMNn7alWDvI*D8#&oEAb8^&JObC(%i?lIlo*K zo0Nb_1$V)h7)RMcz;n-3I%Cgye3;(Wz4bVAOaE+Hcz7E7W|DP=hiQ+Rf}qP|R=YhI z$mFQN2Xx0HZ{WnaVnU%A#paX_T5+FGrU~A|kIcH7zIVs$tPf5N-4fR4}(=MoI zae11%=zu}m5DwOEay+ifu^l+4TX*>q%IcXFba-N7hNVVJo`5G0bPz`~s!;afr8(4d z3_Rlm*=pJIAcD%;=MXO}h$hQgHJGHb)*u%;8gpO_NXa0-)Ln{23cE4#cJQv!C|U|M zh|Rdd4d<=o;wK-@kicOnqu~GUyUu$2L5*evhh9`?F2mJ=MV{u8lN+}Juz%Xipmd8{ z^JhpE|U0 zZN0-?1s6!?y7th7Hk5|;&_+^6T??`ZTT60L;G2oy$ZOK_J?mdHf~hu*GsN_)J^`{o zEthznHXwzlq#{X0rHJo;LLMbgps13oe>-u|F-r7L11h7RoC7kP)1ev8Xjj)SfQU0LcjMcA-**Sqc)P))Pu^T{M@e=Deb36t@93a=E-{H2kRombW zw=_VR2+AzW1el?7$~O_4OrjtO)M@Rx z#YK&-tg++VneB~rNM1kOCuX^aZG81)_Xn7eA~?S#GD%6N8F2^>Nb%O2{4?oe7yiQ; z2yV-Wir)9JU(~T4Wu(SBoG1Z9 z9Ii^A=+nd@RHYnrg?YI*!^H#y?2xI40{`mY|6BgAo~kv#1C@qpo`XqZ%C4bzDxKRU z>Pma+5;)ccbOJ;88!Ip|e4q!bGtR)tksaOjva@YkH{n`Rnd_}_=#BI9BG5-yI7Es~ z%Tn{DihR^^M&3^Cei+a$S-EBXz02N+_Pe0&vFU*MIvr z_&piF18Expb^#??g0w<|;lLohu{fJzNdpGuiiCA|1`5(mh!70GLUQRGWJ5|{Fla`Q zRM5XoY>IWTAoLT7ph-t~65vACCHe+3N6?{h={({yI#o~zJ<|retEXx%jVq);4O1eH z8pAP-_6E{SCEhpyZ#2bVMqCgO{kRZnoHfIE?wnfVx=|M<@xVPyi?~`e$&;@UNd*zuf=-N*;V{fD4hqToNE-^_ zNX!wC!HiD@PQTfXnl>!rt{S#e#%gw*tt-@-y?kK0~%zw_sl37CyVfCd(crFkm zu8w3cmdW1l6?C3cJXw^wqHy>h|F^m~cXJ8ppB&o|Int}kL;4vd9L`El@gLrd>+p!2 z`50F!Ym&;8N}R7sA%rzEHXao8;$1AxNvN9siO((RnLo%&%~tX;%XxxxITUovN5KNn zVGoetcCq9MHUwauRNnxIv4vj3A@=35>}yb_WFrSBsc{=xHKuvDmY3_+zDe3jJf;;9zSxu2Gmu?w^#^;h9y_tnNpz7$7dbowFVnVqc@$9;dK{{D_pR5G{O z-z|U14NGL_Fyv)laN*iAoCOUx^B#R4C`hnz3kh+qdkNz2U#zaIZKo)V3mh6C=IwJcDxxv4+&(PAY#@4rt2bH0C?>ETF@5udp$+tnuCev3InhR( zB@Aq|CuxftCrnoC^)d?E{kN{l^t$9IEj4gal!84OhXkH-fdAxe)4|}ZuzUK@3h?fd63l~^4;+uVO?=K)LmYtS;hRf7X7d^Ta|zgGH_3En z(*x4x8LMX2%kn*F$y&G@03R$z68QR_AV5!z7)Ri(-#F`2kFoe5o$NDTHJYgxda4m4BMz5wZ8;2v& z2K{?MPGkI-7ZhZh+Hv@#GysHe@GiDcHaZK6Um^%VdS(T89SVLP#N$WZ*+PiPpp592 zvp_H~K6MA_g$CZ*^}WVpE4#b(ok6OmnT@p-f3BL1*gC<8L)d=h(vG+W;JD)9#>Jtz z04ErW1~jmDK?=iRk8dE$_aboXu-wCe+Ry*`r+~1B0#;|RozXpTQLwRt8Ycbik99Bq zY#sB0A0F^ytQr)scY%wlryNGiK$-hU>bV$yvn-M-|I8;pj=2365f@c74`mE2u^@#; z;h|C#jI~xPO+|rd;N3e*hY#0FN`2IpyQ$gTEiaGM&vV^!;lc?B zuP=uUSNqTB&K^F#d6ScYnjc@)oYc5KA^zpaYjv%b$gu7yl5-5$H3B{9p zpW!^1Qo{}S01wBoHfBtQa3+O^rwDQtct~DWmab4N3onm-R;fO4=i3!MZ!-)7v;P5E? zc+0}xk?GsRLFR)+(hNLgEy*at0aro;dxE88>1X}SSsWU*p`P1|BLt~PNa{#5G6FPx zQNXjd`|UEVL6hKOr<|b?n}GWAbD>SoD7b6prRVnQdeA^Kh+xJCGZ>!gguQUCJ)I|P zqas}p$8h6(xlKqJh53}rVOz#zkL^X66;98_sCJa(5s~&%X1-m-FKUm)`tnByL5uA8L z3o0>8G)~AleFN0eQh~Z0=x6|B0_-~CGXrG;j2dHQ8gokx*&~+`Cm`RmXDHm{U~@BAhe+)2JoEtA~mJq7W3Gk9~}*(rJ#^Ddp(99 zTBD(F<=*NocftcsutyvA_FekK6KowD#c&$ulLZAqK(s|=gf$8o=jCdM0Te`pcLvN* zp0jvb1gV%$rFeJd23m#z6qHe*XRuG<%IcVvH~~hNByy;sb7#*N5KJZgu)?vmBWL>8 z$XAXY-Z{NNSDvR7Lr?L!`+4WCTw3?D1M6#tU;lSs_PuX^#H1`Dy!{A)p_#P?r-GRR zmRm9tWzsXo)WddyIJgAAG6g_R-CepX^S88t$yws5w2v+OwUUJ%6(jR}zyv{Xjdkb7 zM$tfl9=JDCCfiYtnOZrOzB0F#3}h@^DLZS1vNk>mXT73l5eio&b>5J{hKWX54Q1j- zV$VF1Jh#kE$ z4RMtiN5`kIQh}1Ykw_bYi&I0W&**$W{>DaRH!fyU(AcHEcuqktbaZ4Od8R->t?8F5 zx`|tA)Lma4Gqg+Q!+$Vey~b&86`YJc2v18iV@No53QLA&8VJvA7%R7E$q>%E6BAH)kY_W5 z-Rp;9KK#Mh%eb0ppe3Kdq03TS+eoGCj*mqIXAuGPL?wLwP-DA>j&#%@9aEqjJLma@ zQcJ~5#Ad@dTaQqE^JzMzqNHbdpev$hYsTZo1>znaAJvo*(|nfAZ>AJzuiL}9KX@h!IN=xM1Cg^0{7NNS^;L;#$^Db)v5se7lItCFUl0 zsEn*5(an)Orh)BHLeiydkCgeqyGrcg$0&5d-yE1nmc4u!D+L~|tfjX}Pn|eMQM#}o zOyN==rtHz~=eU`aifgt+hnjl;#y`l=;(FrrA8^KE_#v+b-eX*e>KT+1*ncDdh z>(Dt3Q)5P@b5)4ne?i_@d512Bf1ooDJ(qLNw1G020 zAj`MB24*Sksh?+9T-qqO(x&+A1zk*^I33o(A#t?Pm>>~QK_Fns-jqdw=Of&V3A9wh zWK@KXBlCp<9OITT3PmAHZxl=R?ZUl^EW6BnOdIS`3!O+{oDGK`{%>tA7cx^f|MeAe zeoN9=UqmBI56JQys|jo%i=Z~#j1-g^-iX7i)o7rG1yfIi60=Qq^k{MA(2KCi6D+7- z{G!|VztNF3s9Vx?ZTwQGRGedw6pjHv>H`xGGC^RZyGNupr8Tk-&W@PKW?awL?i zWBY&eSqYNuLAG<553;DyfL_p#Wz~cxwvcqYrr+aY`_q0~MYn-&h< zwDiC?-2U8qcDFWfdBJlpy!jt~r@R_I`*x~`kk;Bb<&!qnj2j>3rPNL|jt$&g0w~}{ z`GSS2finbV0?uZaz|J;zve+RqB`fF!QSr|-1R`>zj9M}c8n8ox z6G4Fo1nEk5-lZ9MM^JaSs0(GDz?#7awD+qto!4Pol{)DN~R zcwNWYWM}O#ifZ&|<9rl8#3(n&~W4aQ^OfxJs zCsw{eGl>+H3R+4Xv2nWpii$E55CK+eX&@Ri1YMa!S%m(rq^xVSBpPMnhjOaTV~>za znG`y*8h-p_oEiqD8N3mpB=TDXU0L-F3sj09v!1yq&A!y(#5idyWj!hsm)uj?9u?5df`n+yoo_NA&h56M)5+U z7aoWsCnul=G8v6Wl%a2*8Hb$2<5a36Bk3?~#L`Nqg&1&)2>NzqO{Q`0Tw+7I?y0DU zXnY$F8gS7($@PHJs?Ch%OgY>@8{)urlA3_5Vl0%L@lS^a!b6W$OG0V{>^nP~f||pa z-K3836MQmslt2%-)l!PX1LHH7^!4di3`>JFGJq60HVgc~>{$S@+ZMvwd9#5?WUa2P}2 zjiL;vi!v2qo=pv{9uXa}Y6xeS4k4zm5vf#t^bDxgL!NlPIh5c?;R;>}Mk7)qJu?bC zxAJm{TiVctj0hr2lO8vqsR0T&G{ok{iacR!tCko@(T|7_Rv0#fzI+mh#RPoSD-ijK zS6J&x` zZ08d2)b{%2-fSd3578wd)2!BSFX#O|Q=9MM`lZ&p?mYkYfA)6t(VVMS+mZ|0l&NeW zqf4iM^aDShnf-tM$)8Y*2Ki`)6AIz6T%9+DRSHygP6Qbu6E5au-62JA%y=bLJ|kc) z!%b(FODN-9OU}b@b)*&pVGN(+11HgU7Ye~`^)xRw1(AB3Yfa%%f;0&lLv@3W(JdLw zbaHt0II+f`>!Akn4<}MA?P<)J&uHn1p2prHwt9`%8Mh4Q4@|E>MVo=%?W@Vi6BGY+ z#$IoS!gfnsx zd1q4d0k&`^KIdT$A+J8pz@tnD^kWUeGy+yVt}uhu^ny9+shv35XBGoNAO)E7G{$uR zsGKzxgX&oj1-gy{t5HT=0sdfKoKhyOI-{&HyC@3^!%?I5OpFr+HZ>?W4x|tY5gEJH znb{v!h#*;t{MHVY$A3b@xM*^rOlJZLS@cnJ_CeezY|2e=;;*&P8>MnKZju}G;0T$6fqNt#w0w7{F$n0(+ zMcFNv_=(}z7X^3EcuceAn_S0`B`n2~f^v*Va4g|mFJ)3&ipEz#^wisx)tD2fK_sUI zgB;tR^$es38#T6dnU)<3g~MOphm8!8LpH^%p~Gh+jrQX9Q*KMui0l=^u^>(IH(H`z z=3zc%)HE*tIe1`TJMl9dY|+L*bjY9?m&qU@Q^I^}3P!X-p;Zdho(0p4V+=OpMFk2L z^8IUU?Njv~XU_sUsBgAM?LNdFI*%s3;K8XxtB_%xOxe-^1rw_+IPu7DjmxHlMVWoi zo;_hB_v)>?n;TwkufJaq6Vrg$=LTUiXBn5w6DbiPXZCo7V|cY*`YPVF!TC_K0>8qH z`ggwX-IVsxPuHIfjnBaLdHY%z(jHP&4Zx{LSpj>>DrszZBNfrG0(ok{?>a45_fqh&lIN^k`NTJ|B5a&z=+qs7` zV3&UiOqJg5;B1B?xH-ts91=f_f--$mABbYzqQgWqSJ6GX!WA~q zHzE}=kUxZt2l~;5LgJ#a2nt5QKROO=5J?WhS91(#<+OQ`Y`7dnxvTy!zVa36y=*^- zq!K92V<9j*I$bX$=v*(f%%ysoxAp3sXGuGnzAx#eV(&ZyD4a;G!8?mzr`W&yZDWe< zMrF*mdbIKo)+8glP%`CEQCv3z1*4oJvdv6SA7n(KrVX0RNly3T`mz9>BTJc9PrmKzt4!*B@PKp1 zbyz2wP%MG5!QZak=EtRL*Xw-aKZC-GW5**vqz#HGoLE1qfPu48B-tH6l1m)%9y z(q6tQWB2#(d?8c-cAE+TEgiINw@SwN#y36W<$ty?FVL7hnP2#=e?w9l&WEsk%;@6F zxWbSRCkm8lCf?{SCya`0zXTz{DV&F^me^KLc%WekC(1a{81W!aI^s%*4WYCT4u}yc zkV~KG-EgRlP%?3dsoaHB{FY^H#Yo*DJWn8bd%RmxBV$S z$=+Lk;5+#klhKTo9b^{xOa@iVJKzXqN_KWI0monho&ZtV#Q}~S5Qbfna*4wkDS6K?LaA-zd0)$YuM0gHr z(~rn=NW&oWUmkZc#wUT<+p1eJIi^|UMXHk%_mQmajlT+#-s2{B;~*pbDX z-CaQ>BxO@J5aJJM@9a`CL(j??Q4K4^QK?jc0x3j2&v8pZOR^A_jDZ*5u?1WPayO(x zjjhQD_q=)yes%H693Maj;xP&*hkkl-V0o{4GEN=It>6;)^&Ow>6W;Omf?R#I-zJaI z0lUA53fTYhul~yZkBJ_>@h-g*r{-cUd8t?yECzLpu7nl#&Yj!xRW+}bpF2~REY6(- zrUHwb7MYtKTBtIRDa;qO{Af8Ju+2gP;==0Q8zY|T;wpmYY)MNqo}Tv}d!_5_61~xt zHjxxR{GSiU$8Z>&;p*H>Sq)f7q_qAk85TtBYaYjp?Q371^Q$tZZ}JK{G_~>Jz*yzm z+_kuScKs59He^}&P>yFb;e6ae0UbmX;syw5<3PvMMg!DNC=0a2f-gkZK#lH$8a0~N zJX#9EYiXjlQ%6Qk(WC+N%QUqi<0}J)z349XW$e~#^}D|HZsGE&oejSj=I|m7Ba&;d zIxXy+kmh?j;05(nuUAb~T`Y+UUg~MSya={Kcz$TZN)8Y6 zwIKplaY)-5D-1^}XKH6)F9n>KDfobJrVRyNs>UQv1O?3Ff>E@`o-V^c%6d&}wDjBW z+$?Qe8l74k_+e!dP21y&u(-u1Nqypzy1PXXqvM28M2*8G@o7UZEz#!#<^>e8cC(wr zF|;vIoe$QZI0T_NI4vA=&Ly9xv>}dyT?kQ-{dsq@GcPFo?0_ep8jL^~R#Sj?PG}FR2iwh<;Kgdl8!Y7v^DRf=lh-p$A6$;Bke76fXmo{RtG4n^Uc0T9 z%nm3d-mTpEs>8TsA3|{nxI_@6*uS+-Q6twfLrDcOABLj=TgqDU2NSL>G6+u(fkE0M z0W?awfGRE-~W^eqi`7~-Eo z(ov0g;qBqjWiwp=8_~+EwVj)Fc7rCdr;Cm>mOxW*i)(=eTe!RnGeje==lFPT!ZX`x z2}OM=)mp=AJlfEqRfhM6t>B1b2udKG1Gf9(l7fZt7#h5*sTZGmZ_2MhT6S@dLx*N) zaGhh%3vOQ8TtDEia$LD|{K_Re+rDA6dX-_#Sfw0CpY8iW(E45K?E?^N(t^r85KMAfS2>_fC zXO7x`2LwTSz=>H;_ZIM=UTO@1IB(IO#@LiUXnfy0Av>So-Kv4@_#r3pT8rg#o|KLDMr3a3UyMa{rOa}UdQFtl zkis)VXr{*9vQTp<$2R**y$B+CqXbwd7NTKo@=@b?nW61S_~}2(3R`^SrDqLBvm)A; zhVCJ1qF2a>$_jW`U-#Af`bJZ*U0|9iNNNabgzfY%NtSFRlOZ6p@(PPGu`E3U?|Xao zCoeg?TPTxmV{H{4iUOv`7{{P7o=KSw<1)JFzz_BihY3Ug5nL`JAmu2hndA>7f&jj$ z^lcB_2gK+H=z%q9za0rlqsFw2KG))4!koGUg_xrJpn*$V5rHA_%;hj+9GnP4q)e33 zQJ!XL#tL?&SX|3tFQeoWB}dO{6jB~m5DwDX)R!0Zp1GE^WKb%l1l$(-&42Yp8wV}% z2R=_aCg2zvBbyOJ-(o6T@i4?zp|U3+`oddd(Oy8ZQ3!S4PBpB03GM7l!8YaC&R7%` zNTG*=UUuB~@w4s6RxJb$zVs!x-Fn%Nh@O7*@p|jej-|QSl9NA}5QFV5nTBJ~Inz@$ z%`*glFi$W9yu$lufyodSzsd%f!6bTQS^* z;1*fdeKtrhJMQ+v7w7{y=aINMYRc(#%*yL(1swX*1Z=fPyH;ltkD_q@(Usoq5VnPq?JF z?Clc}9W>E#rtJu5Xg_}xFb}Hp?OZyewjdgFm@YX0pcC~#*aV6PgC+#RXNz#1+Xd!B zb5xEYuoNe>;VIa;E?>g7Tt$|co!HS=fgofo9H zUm{STDM`Et6HX!<3GpV9VtwsJJ#`V>?jpc+m!)z$BF~!ke{-SA?Ed+(xw8*n^p;c&f^fg{9LHU`Y4l#(i9Sd&U_3^iR)xLr-}A;_1!7Gm?n)`UEk zDzJwd>oc4@L8K^SJ_x2#K?ClG4dGcBJO9=Ob4c2GokzOJ0(QP<2b+3vGI&s+y=ddf z)zu_Cr}1r9&v2EltS;Pu)OGahTlD6@2KMlS6G!_)S;rGVqr-NGEw~U28yS=m8l@Cxo^ zm(Q%EF;18XEHe{{zy(*wA%sMbx`OuyaUV zG$xTS!5gv+u@IHQ1{ z0-po*XE@Zf$JW|2?vWwFTl!*52-AtcbY>lDQE9GG?+=Jjf`hO@gA9sn6R(%VYV-y= zKsr))crMlg@?Q6%mZ=EJn6v_d`G5$#)2go%LIxh25D1euJnKFcVS#ckH86xpS;i<+ zmD$pa7d1h#219kDulC$Y{X7f{6KEBxGXYX0Rp2K9{GkCIrNK$_;EBA{<2=2h6GSxF z|5;GT4cm;qZNz|26>(*kl_0(=B$rdeqeQ3x;ZY8WD;`9F#SyE84t{hL1z;9{i!6V! z%UgdNqNHEEp&#joeHh@(Es4Mu+)Ta3i5-rCPPBxYB0<2l!?N0DyST;=U*aHBsXdA{ zF8#wji(eKuvwIsK`Ux}yX_$I-2L*rv^9tm0R#uMz%!oDoV1q+)RK0*6540Mx+vDju z`WAy8Xv)E?G_{|yA#gI~sU#qW&)w)h@uEg1z@`eLzMOpiULSrOP#q_D<`~$BTAZ`{ z1la8~dIZp_C=Z~PjO7I?ks>^8ebbvu<=mtP;$RZn$hM62LWLSbFqRtX@-;N!Y-nsy zOYYuqPbMS!ZHm{`qP6xF-}#g8%F2=cVY`Q?u+g&#E@7EtM&mQof&nm&xKUsNj8Z1A zGa?L>v-sunoZlsLXv|d@3zISgjTLlv7ic?kPL#DVm2fj;nV4C5T`1efP_KcFYs2ZH z0eCbaBE{}R<`Q_;z=0EXR4_W_(4+#g24xFcWjJ1%N_{C)8HWPF%M6^BPkML?+dZkV z&Vm*8-lKCSMhAP&;tKZPlQ&&Oz08w*(eAPuv) zwo}JFlCuTs!{iu9Un#3u46@m471XACF_kA5gPCML`uc=I7n-$xGR_v-c$~CZzXMQH zzon(;7g_0(RN3QHDY2a{VN#Yg`}2l2y|q=F7f z%Hea@x!GPK!aINJ-KoTz4<(Ztd%+NK5%w@chd7T8bq5#m0m>&VErskD!f@72fQ2*2 zg}A6LVAi0z$4o(?vX19pHHB5iZtdomIcwbhmL(ODjvfq6Id*Tx5DSH)D+gZjE%#o# zdd3>ui&DO!!(nWs03VU*Azb(z-Jtlunw|Rdc3t-n+E%^9T6QDEQL7srj>+3Q+*EO zG7ZOYsag2J35`*RyI9J{Evmq|gOd}Vb==iPj8mEdC1(=U61T{5b=}+L%N32TlAjDz zABCju!^6ARY-s6$Kf091spDB{I-2rkjpnh|I-JGbU_O;;IVy9BDLLU_V-)aX0up+B zNtQ#Lw&Sju~n(}AXCQhaOu>AL!Ukj0&uMRp31P37JdVRVpdPY=#RA@z(7 zl!QZEg+(ae0au;fr4Ud6zJNBAwq8?%2V6PR43_W~IMoFjJ8VtRkB5xfC;)c4q7A@E zB2Z5vBD;hD293+<&ggFO6K6*pQUeTtDW=g&fQUzj(YYVA=cq2@t|+LCx-@nvC_M8r ztw3_AyKKa^p3Py;xb4!QMg&7>i9S`}R%NKMkq?VF^CB(HbXp1!hXMiB;6YyuQ=>Lh zi#%1C>EoQEfg!LhLfy(;E=SKHSbX${mg0f&SlwMx1uD!5n&FFI#4tPQKq2Y%s9AB!M3DFenJ2Qd7}f!E2r1k>KuHgi_51vMuSnX z>|J2SrT3jIxF8{k($YDjkc*3g5jCWCL}}{DNUQt=%=*tQHF~-9>@rxLAXSDfeuq%r zF7T0x1B|g?I5yHnORtN_6I5Ddgbgj_RLsGhEOrc&;AK#uhb5!)A2TC`184rmS7pxL zn&85q;p#Ka-&W1eF{hz^-MB zUw_-02oXHzU;WH~vKYaCzFbU}G49X(`X^^C|8n*h-?L+*BFSgEL*~=cl%TD+yP9%E_O$UP(;>} zflzko-55XAMj>1-DxwxPD)jSY`KaHN04%k`{8XRq<44Z#`8AT$Z+q+!p$)(d2cMPqaKN=5u8Nyrx7=a`Tcoq>EC7{h}xH4;)7pRL%a3lpL zAVPctGivCHL@cE}{^`wdaxg1R4CEb1@GkWdM9>~7BIu>PmN>L(AUkS?;0ey$wafLC zla|oL8(qUCFldj;%bzg-#gI5#eyBaX_jnJ`C$Hsof)YX8B3Jv&^GowpuxUO0ouIg_F$p%^E#CCa+ zfn*>?m#zyIiHFsMw`DvVvd3kmnZC{?RlhVPb`Wx@ud#SLvTiA}H6Io=4rODB2$FIS z?%K>04-QEe5e(#ciqVyUmC4Q~gAE6iwHY4}*9{8H=_+RhN7hgo3n!F}0cZYZT&i|v z5t61p4Ya2*Op=KL5g!K)Mg91_>UruXMM!$tB`PAHc<+K2wHtV~juE*;{ zqpL9H>`)1{>@U&3eSX{iG*2_Os+eQYL4;$t)vT7rq5%baN_f)%am+Yk0_T!_t^a~; zKNcZ1z+ruE3^)AdkFPkvc7LK}475=2-KBH8e#!0dnVoeTl6KmyuqaI~DxU$){6Xpt zb?s3AF_6v=!IU$(fE%B5NFXuE3L1b)8z#2vX&7#3!*&2U3~R}Aum@%lF@($n0GbOj zSpXdHP8;TBA&><^tm!Ng*_Xx9F%ZTguh~IOJeD34 zQK^{&pHxR2U~XHCLgek9L6~bi{t!yMS1$~NAetHzQ)SWYtk1ak3(GKni3%qjfHZb3;I}%MW~3>8aOM9KEfJ> zu3$U1gKW+zz%dlG_hD1#!JbEo+JrF$Xkd|Ix`7Eo#(LQ;m^tmDFKW##UVQ5LH76I& zCS~*)!s}a*#Din=m$wRGi$}UNY|n?(8C}PCwJgXR#WYa-)j|Mt)VIGm0RKrSfpH^} zmj*bhf<-#JU{Xh<@F8q*YYPa&GEdJnzVK&%MjMdI?q#!DW=lb~>=sBLsNVQifb5+O zG!22c2o*{RKsCznN8n2{#4=_ah3%cBX&ipw=b#oVcx4N)d+UR5m&#g)?BxlmYzpYJGdzK_fhl9j>bXG>6<3rdE|3a^L?4C?$J{0?lZbKSV;DwXx(>-b zV&D}(-kuD22l8H}GcM;wVcLgIWt`KEEH^p_%7>BiO;aW;$|pLx<+moI75h=6-!6et`{_@?<*( zHX9qAo-{$w7%Q|;1=_^nR|;h0AzVTOwsS*GG{BC({rNu<#jq6fIEOF=s{i2iu$Q;v zPkYB;)ac<#7pQCDFSvMb&bN73|K5Q+e7XpU$HU!L{Y(EEmMGLc%X2x2^mO-pXiP6 z*((4b81M$5TcViSnFAXd$5KKvq{i9nHzd+N9H5UMI+UOSG_l6V;F!D-c75Z^?f@NB z3OCHlki_n{jWuO4%TcKp7U2N}H1UI592z~8v1`#JOCJo7t{&;W^Q~a5)fH>jBY?3d z6Ak>#Cx6*+pu;Q)uM9yCMzM!)vjwmdlV!_8`tMKCfFm0P0#+KVZ1;wU*VR2QexC%cWJ~nT*by%EkhGhM9qPPzi^r!X=E= zK#c;qaD`7n#5$y)aGbj(tH&qxQa*0AC#He8qPyCo#v({*FX#gJ26fA&_MnLq8rR`r zfm_BhB1Ne;U*KO&jDiT>nt@sbxnyfrHniaq%SNP68HgpeC#s^=#)5AR)0XF2u!Vu@q{1b23HhFPEha8?DI?m1VHT-X^h=z`GhgAW- zN_LN!$SDwipknY1Z`d%8(-;%rHZAGl9$(n$-%k!J2ojU65lKx3Qbr0L5AuS~`$5$! zE9o-M05<#W;5}RJ=_~wkGMYVoVaT$-*#fp(4xn!}N=6$aOdLh&7(Gx9=~8Ca5w>Im zh8kx22{=fx15n>K4-8Q0B69ZyR zXiKNXvZ3SQyoGx>1RaRR>P|-u?A0CQ@*j=mC(>Y>y|fByOg-LXnT_2;h&x-j{S=kO zq@DTH7a!0>K?6SQzyrz-x1tb!Ok|&^otd&ylL<@q7@dZJo85kiP;0UrWQ_i^zxJzg zTFVN}rU!=6o~n&Biw6sQ7+STcHU*<-XHMeYB4zB}ZJ4<}^b(CqWG zpb9YY%1~J4mJYkVo&<3fa}9zhgA1q*+YiqQwPOrA;6}8hF?(fE;}%GnXnHVS1(5&p zhhFrJFTeYnUw+rt#4GucP0-NWx&VrrM9i2R#vE!($6eaCBjikW zDs_-9IO&YCd4b?y*4eyZ_AxK0=K#ivCn&@g&f*AsX@Kpxv^K;MN#k zESXrvvb4%po}C%kPS2(igQ9~ss~a_lJI816i3m#>8b8E$8Ihd@ruBjmDa54au3k?v z%rm>7MnsHjp`lE%`Z;GRiP4?i!bwQFG?p%gW*|1DG_Hknw=|=ld+$EKzFJ>X9b9Qo z&yjA*T1*MR_oI43p6gEAE8FApBal$tp#bN_yQtLO6uHp&>$qeuDWzO7ECD(Ns3<&n zBa0JiXhs2UcxQm%Wbu+rqBtSUqo__z94{f}(p?#seAOt@V{bc%6x~Bs12kzY139Z< z5wCFk?*IB909-C%0qE%`({rKlF!!Hj%W!VbLl{CV$V`NiS(q28vCF!5?)d%v2k&&D zACn6^@=vM;xgKFqrg_9f7VV*rVP5C$8d)?)^b1oklpEud;AC`2a@3?uUhU%m5l7jr zNJuSM64$zzsimWy9y&`4!%|ey;+I3pk?h+*Jkt%{fE$Z5icBfWK^c9KVk~8q&Z4q{ zwp|yKD1&$A!z2bOq7NP*V@UnyKl}r8hXoYC^s`+(#T0rYnAk_Bk6KLmLw@My1M2e; zo(eS2f5Jb#sWD0&oupv{SI*%FB`tvoQ^I!Xx`f}=h{4Nx->F?*C{OA|)I6@+06mU64`>S%p`GYb&0@78|gup1)_b6mZ$dFg_`IN+B6 zH@xfa_gy)Or8Mug#>9reH@fX9xd)hqX|hDdWm!mWXjTS^pwiiJ^aJ)CTn^{~ZC&`b z2Ji%j6y;Jcvw%vV!IRA(d>*`OqYU18HRmS?@RwJ|)AS{8M7DB-tHL&_raH{HG{qne zvJj_vb3uHDT^Jf2M3kYcok^jQz%j0tJcst8Nz&O!_fn|H6)ci8o9*&;%}7C5gnrnEZ{-Ozxgx+3@3zqx!qAS2px#}HnPM+?fy91N z&zl(XLO;#KulOX-G-=YUGiM+>4*3Qrv6MEDNyJMjCMh563@{fpHL$j-na@}lKZi~ zMd;%{^-l$hE?DYuXJ?ltGWn{kRl)9!H3hw4)mCR(QUYCR>0_W2FoO;Ccyo}QX9^$e zB>>%pQLxcT^0={60#GA$3J9HaY0T`f*3W@qtbqKEAg1L-0Kva;dOZ16Gd*6eFM-%#Tc zIl==rxJLlixW>Zdlc@KFq|KB&O(6q2C1BZ0OSX-+E}6j1nt=cZ(Iv+_}2`>F3kmovugpsIj6F) z0_oBlM6}^TD&vG?XDNfmwU7nxMv1mv>VlNX2usQ)7ngYB4@NYcU~v$^xCtLK6jd9Y z#uAB|>5{S37)unO=>fVglu1rlKT@Eem&Rg^bvRNi?uuR}71 zz5UjCCN(^kew@qM8YOrL{*^JH93t*HMmhCr=otf*t33Q5RdW&y;}CCN(q;$`A5jw& z&Te_4N@O0ZC2=~4D}p3oQ*4LT(A66tUgbr9DhMLBM})TTqDplD5qKA#5LnLXvCgz{ z%IF&?XXB1TO+MHoud_oO39jsCf;*hR5M)u{f$nO92T~+dN06pqCA_s++lge?KJE?V z8JAZ(=!)P}XU;O|C;P&`xyf0uICRI4kjKA*L3xO5?U(-JrzK0$0I|%Ye2tOox~rK} zAH^OoBA0sS2-}w$R1HVsiphDnv>JX6+f5ddK?SW0Q zgmW#)?(1D}Ea^In_;#vn-}Vs>BQ6cOfe$&6l9O?=I`G|dnsF~a54iCQ8HI?60UjmE_W z2AFbgldtXna=bnUlH`(~;L17V6sF}-nVFHUB+?khhF&yGnXvuL>H1MPalzr8c_wij ziYTbmKCbIw#58GFmO4shy)BT&Ln=vv6iyg&Y$!DL+tqjq#lb2YqG8W0GR)_|J&<2$jD|Nk0b7S4GfK#yPT_0S{_; zpmAN&1F7*QT{Lk3Qj?T{ob5T-o#1tI&6JjW?6K1c8665HGC2IXFZ?kqlKj(l^kYQ) z7Z8+sXBjLeH7FDGG$DLMw2Xy2VaeJ1Hl{^Gm@c!&MPvh6BcP)%nusvv`udTTdgHgY zWmaoTw_Y|QxUtAZldK=#CLNL8@Y%4nOhp9I}IS> zsG6Qf{7DP@Zx(1Ql_P_aO~;%|;(0Ei7bXpg6JCM7OD&zPzZle z&$<6amtOb+33H{OmoJ{;Zw{C&;qiC~YKaTWE;|^~X*)BZ%w`MpmOo%jSjo@zO&}!V zAR7d>RIvsZiCCf#zC<~i!8FEl8HCgT#F;o?yOw4XnIx|$3wC!N%HLZ`Z~)Y`=8 zz!oVqDM1+pZcMjeT#kfW8z4~;Da4&A1GfSMhw4!_BXDdQ!;G^_YBZ41p}LKCuT0a1 zd;q+Y4u||9!lIxV=W#Zu@W-CYykA5Ra_NVT6XoLW4PwMXMfWXl?otSQL!c4|8@3S&K6?l|-Qxdy4yQ^i&>M0gu93Hid z63U)n!gfX^0>d$uW*SqMnvM1PX*lp_bgyJ^MS(_4Uc@v;E`${2{RwHC za_g)0=g<0&9I<;Dv2%E3KF>wjO9*@MDZ#aHKC!+0;DgV3=}YXKT--am=}%yLj`rQ& z{CvgpKq6?eS;5;G+9d?=kivErNOz2!mfHDeLY_nhb=RfnvxN>z356fG=$VsHpo5lJ zjqOYg8jD;5IrA&if!#S$r!hf@K$9HC867QkM-7M6>n=JjlUk#Ofh?uPqsS8Y#-bb! z3=MEAI)H#E7QY77QOwd6=Cd||y~rAiDfKmCZ502|cfod1FQ(KZNG>iEe-4M3WFXy5 zF4%(!l2t-+u<)suQRoDps7c`6D)WDhA6;}b9A=cGQU#Qhxe9(9E@@_vSMRP%2TsU^ z2P+i%q;1BH_ntpjTSnF_cH!iN1R=uJE49yNx~DpLt1rrgl8VEVB+1U)J7qh}Q<<uAF`n$G36|m^Y@InfyBoCn-#0v#K%q~V9dFk zt3A!WN^~2!2Dq8Cu&Sj`x2?aB>jjb+I*j2>!NF(ffq;Zcps|jh!@?oi)nE_L%#^vF zzmbT%Dj88nL)a#bM};_7l)u^cbBk!`_*Irl(QBrt*W2`RD8P2o8Oxw0DMW3w*Go&4 z+NjT6=kl)3&B7|)_zcI$?>s~UQ%*o19)@xC9eYzlb)Lf8Q?lHXJn$I@-e9|NIRnlv zp09^Ko3iP%zTg!GnPuG-+tM z(m>y-U8ZH!LXgH3XiveRU^vupf`1gufJWgPDzO9uG4B=*@vmMR2kFSJP1FT!GqsV< z0m*rbj+ZZ;lqB#3W<`oBxP*ssxW%~%3+HTy4yWZ9nenyf(oA4})E-M@p$%t-qXEsv zKE{Y~*{{PEJ$2!ba_|P*5vN$3lhhHZ<3H+=P1!kxR#kn^bm4olpdP4#9nGkVHaLKT zf#f`-s9*Oj9H<}YrY>xIod76#TZ|y|V@9J%okk^wKhR*Vv}ITUauKV+o$)Ga6H-!*IxIg{59m=pTDD z=Q5LlFd0YX6|_P8|IgW-25EMc_W_@gX6fne?e4eto}QkWo_*73M$BksBqZ4hgT!JH z3trK0LMjPRw!vVBvQu_S*_?7V$6yjC#9#%4Sd|Z1 zz%0gJ@_Wv|-$T!6l-TLIbLYJGo_o%-{Gb1M&bjx!uXrRd#Uq=yJar%`xb?$p#&K4n zKx6eSe%3hBc9qR~N7x>>vyZ*is@nU#!iw%X+Y0r3jtYt8$m1gu5m@`4E5_-Z=Q}i`n5ZH12$!^@CK9Q6ix7SM+aHQ_8(z_$-5R$;U z_ED$Wr@JHS2y@En2*6@q@;grJ%+_0OS@(H0l8C?wwG_mG%tCimN$cXT zmOv`dE1PRw#ZWHPugVsHj&9a0gDy;DBcwzH(@H6sg}}5XiJ{qW=~T1}A?V13dJIP~ zxHYRN$O3G|kD5{knd^>iUBY4p(A+hMYjjFw6}XSl!UI&^f^u7tpiZ#e_f!BOOU+O% z*b@aFZ*U*h5t%2isXXG4QDF2&|9AzalOXjBSwY@zFGXZqq6T>N%8r_+*Ad6(=V$z+ zksltSIBU}mw|kz}xXiG0XKIdSCB{*K>+wG_Pr9De-H#v9>lLrKJCa6mW&A@y3$30K ziC`r32&Iey44R=T$>i?vJS;G#a)MnMrH9+?Ek~%OBavRw*KWos5Xt7wFN)KPjhuk0ak`W` z?U^^S89T!5_KYmyw9KVhim)E5R^zQfJRc@k;BxHk7fAgou01QM<|!$^d$KT(W-IQP z*Cw3H&TW*@J4qrc6KS8t+)|H%bX2fOEttqDs&x#&k2QI92-!E!8&nHF{^tZ8BXb9- z^v>6?X?1;JSogc5uSeJPp4a>mSoDcXZ&7=`cl-{fz0G)V@%+L2uAKI}OP6jt0@9%c zR>Ee;L3CpbkcM!vnbje)9`ja@=mV!@3`N*1S>Sp2#{eARlBDsth>2JOW~spA3Taav zr$h~6L9;G&#GY&Lp@KM4fL@k#6~i*M#w#S-L)uQUkB#>k0benc3n|XRnpHt%fN@+z z_~>%I8}+aj(nE&E1={f)Cn7_fW=|e<$U}aa65g{Ug*I7OYsA(g3n$VQbhozRJrDJL zTbJvL47%f1y{M*f61q^2>d?za4I+7DOBmg$%z(BGJx*zXw9amrHEb&NrA zkPCfew9vk;si1ciSirRk4yvOyp7l{>{-re;vZ=t8j_8`StQ4CR(%L+QeO&G%%QJ#~ zh5cyu-C-PN+rDoguSn-XDGh#06o9(#eT44pX}$fb|GzS+Om%yk?&|770CE}0v4QV~ zPzSdsW|aps6Dw_L`yxDT-P4i!Akzm!Evx`Q86 z05=l}le}Hw@z+1Bg87IJLWyO3)Tu5U;Z{eog`?s` z$6=5Bd?!h^r5tAacc1!{7P|Tj?jaWPeEOMZFgYu!=4-k3nP?<$w+bONs6T99?o;*y zLq1YjYuJpC#i(sTroFqql5IvKp26j_UoKMBCP^%|Lp}k>32d>C%ja7j0_XB`zes4k zy`kF7T2}0S#Pp=~SGl@J1-%M%U$H%p=$#l0BIs-shZ$0Fkh5eE#UAOTAZvHa%X?j} z)7T-_Q`uyVklQz6zw7<)^Av&npE}HLBN$gnm}aJZC7~7^2%z5(4tZ!{&mfQ>w8zG_ zmi4;XQ<$FIarNOl9=QLUuO?v$HKEtHmXNmFPws?T^u}pnT4@0MNaoEWJjdb=j>JQ% z?_n5}E*q4(qYI;hn))>;pgYk4zzo6~HtvYBbca>UNqFuMLAHqPxNBWP1xl%dXW}MC zD|at#al7_iA{>A}r*ff>Vo*CaHeoUCxX@Wap+}xlL65@Oo&eIbK*&cHK+f=Q&n7rW zWmz0<=Y?R5Nb1}BNGZMB`_q@>EannfpGL$Tc^o7s$%&zNy{IF;2tx%MIq7S!f<4Jq z%PCiZlXpi*D%4M0lZvwp#Drvatr68A<)AWes^&snYZgCfll{qw8SEinN0Aepd?a3j zN-a&Oxx7>_cXfil@&|rkMok}Ss?Dtv*Zv2_sdMe&txr~gLT*4VC_D!5uAkHz2_vf; zUh*e8sF6GBVtBb0m38NS7GIDDuM$SH zKH3KZUD^%_{;~m&M4emJq=;&!1}upylDeBmu&qaiJi=Z1YNITvJEgpYWUdi7FKfym zLRpsKXwapaO}U^vTJ@5FE4OUCrV=i6J4_bpDS9^zLsq)hqqzg*bigQka0uyHa;LAM z&|{PCr+cKwjizA^#4CV>| zm>qi#c?f)Ti$#f-)NQ4hECZ%l#7$z#2p zBxE2Mz3iKu<2MWt58u7`q1&%sz2qxA7RE6HX%Pj+Kbtb%wQVOT!((Z%%zTv%8bLj zjLAe!sq9ELLaO6;WM zAYB0(tvqvmc!{YQA3Qi6jr-kUQ+2L%q2%0}o>S_G1*0dC*cJe6^rafhaH~RA9?S@g z9l<9T&@R$$x4DeS1MqKt`wycXxutN%gd#em3KHDPkFpCfr3KOo8I##?oqlaB4~iTF zftEwDw5vc-dgGGZ<@ew;Zb$60V%e-vB;m3;OUZ%?JV4-QMxONtX4V^DKA z92mawIW^n0qjeAK>h%NMGfveDgd1T3gQ)?h+rYr(2@_HsKjuf}>OnYW0Ru814MVCy z3cX`&>y0$(a3w-0?_{(0aqLFFg-wQIM`rH63jrQ__2X9`ee3}YX4S>|kB0<&amno`cYGx342Z*R zrW@Ab&D@nKORD6M!UrWP<3rg3aLP%X1xWb}`3)TAu#g$Jx>mtn1Q`y*8U`k3UbaQH<92vH|iBCv=SFJ>;z zswqwdID`WgF({=GGZX`mDAp{W23laOYl86|V?uHY_AZZG2@C+_QP8i-_Ao{^2gy&1 z_$a+28~0->Z>ti@U?pM-V_-F=Hi55eJdPoQj>ov#g(*% zXL`{zTC*4-}f(CuZ!S{lZx$#IB+SHvC zk)~_{Ej$v+)i?&Dk%I1s3Y?d2+r$qlix)Ci?6j;#Q|^_pp1!;^o-p=^%bJX*hAei) z-4vlw?vuLK#@(c<+_*g(gUM~hqFL3S_Bh{|#|{w@N#KDb5swkHDfx#GU)ffM2Nir< z%~z^{4P(29!l&GaMPmnn7HhCD@1S%Jf_(Me;y39_1gR|IczIb`ZvJjDU~=5o=ydIP zS*CKrnzK;f1TzV(`>F(ZzV-H%rCs+wc>dCDhwr;`=FfcpeYc$5xbyNckPslAd^5H2 zh_aMGJc1t@l%G2*5d|&ChZ6YUX+t(jdN9Wl6qYwd}L@O2FpF%ARjPQO0# za{8r$Bf`fcB3dJoy*ScEgH}Bvg88jD*<=OO)QDA3s7GVYpJkakvsV+A+-O z&M8urc5Oj`VEjTz*M_LG4-)=3d-Ykwp8EFNFY$?v+mH1!k@(SGeTpzU_Fz&UnU~o1 zHVqPt0qMx{KDNJlMq+zMyrbpqjaz_~bE+(Yw%6=sF_@$p!X-Q&6|mmu_LJGY-g~v) zY_rcbY@bulw-;zqN{tI55hOeE(WJmzKERS-<))VS*?YL1JLqVMb@R}2Cxj!LwN?f> zVw``WP5~Z3g^(_xxMT*+!iEw5RgXRJ!n;m^iqUYp3d*2sk_&7&%6GjJ-S#%Gq9ub< zMmG_M5V*r4r#+a-BH&PF1w=*U?B+^Bn0;AC#tH6@vP<@wkhf_j{n-qwo z1uORM!b6n%I2!k$IFA_VoXv#As*9)ku_E<3x)FOl02yw#u&?V(+?>UqMfGh>RWGbW z9u$$Vwbu@V(@Ra2UsU#0#XQkx7A7 z7cUf=pBu~$CfC<0O{K3`)}3k!su7F;_5^T*Pexr`^Z&`yi+9|4^xi9{{Hz{MK7MrN z-g{0Va8HezaPftl#{@@0C6kwbvYYgP%_*f{9YGiM`9k)KA*CNUkigdJ;Z2?JFe*dc zz)3+dg6=qrV4+r2Pud6^GinwS3M=x{LQH`{5EzYkia}ab)&jC{b6h(vgf15fG{?o7 zO`8y_LNj2wMje7F5P&Y|&WxBm8g!7F&e90L#IhFXLTfpaxv;JY!_+Fr-~>8G9DS<)9l7qHkGj)%&NLCKCNW4D_G=f`L4S@j zCc8yo5)y-LBQvRp9Yd+?a>fze%;KsXQBE&uTwH7yiP`1hvI1wJ0y$K#+x~PdvjXgF zppJV}md3zOS40b>VlLDd1=CFWwWo`HKd2y>X=KF})g(L8c;ED8%G|En$q_aLK05%L zdVE46=RP$UumCZT$)Sx!NJijTh?RgLcz`iRfB~&xQJa<}$>bNU9x&@tMK+W!@J%1W z>KH&${miplkMxTRI*J8RCY6$NniorJg^y4&DEQu`bWR+(tA+OQKWc?u*k)n&G+syu zEt1Hh31dyhMtw9Jh9S>Xo9P3;NxfT>nzForKs-K8Ur^!YAemk)!}4Kur&!EK1*d{H zLj!#o*q~i*J&(25tj(|W zh2-%nFeI+Y!^qqnZV$Vng)j^u*+gCxw^B+Wo3fQCFDIeY7C?9GfTcVG>F$!V43!Jv z!O|INncd5RhI5m?wPfv2>JEXt<2c8OO#&!TU)L~0BS(~X@4i0D(&@_b%@4okr4POQ zZr@${-Un~J>y8t*p4||el2~~T@eH`4)iMjz$+{7yu?)13l1??w3v{=4iX9RQ=0rBW z;}Ph^9>B?QP=Ov@%R7!EH}{fEJcSQ4lAO#c$JZx*DLqS=IyWY7^tGDYu5Q@)ZzDQ7br^xjhtFV-hJ zw+lv53FL`Q;7PysTHubjMi-TYjV2VS!<%eNHpeOD&vC|=HJJ|hNmfe}0>@*D_F*1f z!ue!3t! z1gm{p|HJJnsAeO{=e|+|m_flJJocjQ?7 zXaiS?dYkWDuK!F}y`}D>HtW&xIZ` ztcPJd5!060t+dayduM!_^d7^fFI|gbrehp7te`$pKQLhN_R)#DSEiY~TxM6sScs5LHBM%ALtwOa!?b^c9 z;?7ei=U@8D`|i2x#1Fjg>Q#$-r`KQh(mN#HW|}5AMnK$-)!jd}tOtrHG5YE;Uf`6# z!=4u;ApnUCRm1HeF~Y}pC={ZU`A*2lH)QfETdXs2;8`+i_P=ZW^Z))NI<# zw+<(Q9P~LIdt4M0Zr?qlj%E7;!nA&jL|wI zBSTALI>n5f0tt*yY%*|!kr$$1z8|;d`9Hq) zHFWnszy39h_qA_)!;M9}hx8=R@L8q_S+zTZlM{G;uUKDNtgj^F)vN|sMPv#{pfakr zCj-mqQP-k7-^LZE;g*b3R!~VEEHqQs2<2@6qBzW!jJKk@{eGyquw+sl4FamM%-mKA z;TZ-IVL1YkYEY-<&hjfOGi+;FgKVOMt$Z6Lnj-cvyx~KNsQpLUuRp89kDip<=dtZc zkNB>wug@JM@h>}`&VI8TxoS)#Jlb@vCA+qhO^G&Ns% zPb~!bqds+^EX8GLr#Clg2X- zR{KMh)}y*3p8WX76MA&7@1NF9VN2MagkgwMgvV`eq|VIv84Qm;`qomRTGDRA?ZnWd zluxL#24HhN0R#dh7~CDyI8%hr$q@CUT@ET6)VxD1*dty<&0ZZ9SSH*aYVuwP%QA+p z<;CH~I;LIooeNzP!=9nYz&;?MKuD2-KVtCf_Df4Q-Ew}-qcVp!hHrSwtF5J9@ZIXW zPQBw@e@UKz-W`!Gz*49l>cpBY90gr8)t7?4AP_z!9uflu8{>#>f)N8Zav!s}oSeee zwU!g*?GWyT82S=Q1_(xmCDs$O4Cn}x!e^oFIe%=zSxCbfIE2sgQCrDT4kSnm3^}eG z%QyuygfSQiWDB08(j#ffMqsHC6`ZA=BgQE)4s5Q{qnf(LZ0d&zONd7D+BXE?97jk+ zO<2W9q|&Sl?GcD}h_sz-yLYy0nMNE*O$EkD1@)Z`hbWIIrEc4``gKG+mRwCRd)1tE zkP0r$_(%n^aSi(`)0c6gRN7%Zfu;_AV-|&U>a0`zPCG4wI&Sw!vt-g_+3b%I9PfYR zkuCHX3?KRk=gQzAh_nW8P$z4J4ddyHuAK1-N{mFXb7w1+;yqXiW#H9!$H*{5r*$E?W+>K@<;Z7c1>h6Gp@EcUe15p^i*ICnHm&K^Cw znm~g?;IUVqkKA9t?Zz*AIwBLp$H)H7Z^~m04Jxn+A8~ghE>qxz)zx`P8b1m#ddWlB zSwdnQp_hZq;u2mCFgS(Qjs!)1cggcG2tk{IT}H|X(F?yBFDMQe_F}C@nZ|o~%-NJf zeL7`HnAzV8dLt zJ$r7vCLI-#aLaTyOaigu!AcN$M050*7O_Z5YBW7f-5^Lr)qS!4qqltqsqXh^DCyW6k$cbw@ zp*hn3Kv%VX3Y;L2JJi<&J1`d?k+x%1yf6!k*_>i7M+7g)T}V8Z1SbMy(h&|ZvqoGp z4T+PuE0NmWA01K6M`DN$?`_~CrZ8AA4if=@`hY4@e00`c7lsMYC0Hi`N|C>DX5H`8 zroCuNK{=-!$(A~?5^ypFJJ_h8LjF?IDLRrw`%FsNIL;9a)We^IEJH7?sjnSfM{G5@ zFBue-QyQV zjPJ87Fo|Y$3e4OGv|839VIaX(vWpzYA)JW8Q0Tw@FTYDo^I4M-58w&gPd@dOY-cUZhW_u%NwImJco zXOejNZ~ojrq+>F6nr>0eSFD7835-c1H%4o2EBJB*%2-&aw94{6{8I!TfK#NfA#4kL z!&$N#nsT%{BvcI;nqE73hdnLw12AA18VqWPOOFbS2B?fiHb$_@6yBpO@luYENK&&E zt!>>hLFyyLS%Y7=m?X^N;L2(}RnC|tPqB23Ru+vzmA=8mWxBHt;D{T$OazvR2yYwE zkqcdtBlcF~-DAb=R@!UHy)E(8I|s(c7lt#|L-eIzowARWaAJsbcwkkeQPI)3onBoj z3fjydOdjEZn&I}oP)0UeKmPPrzVa_V`3W>jJk~B^Z}(Cy4I%c$_5~A5XSybgp&SUg zi42H~FpigNp69zuoOSv3&BxyO=q+atJo?y!PrU672^nNALAAM+<0&TdL3o2h=B!&np(3hEg=whqbBN6imCb<0t5;i&BCp5 zM1#!5-wCIgJ>7Xi6krb``v_CyteONu;&hlJ+lu=8Io2 zl>Ekj`i~sPFRbeA3Owjl12Z$z-Z^0SFagI8@DNZrO9svAB9RLZj0xd7s-dLOyN~p8 zoXcqBaeAoEJ0W?{OyR#i^Lf?)VDeB0D45Z$Lxctxa(GW@c+j0Y5Fkag47Z6Rdm3pF zt^i2^x`d3qk6kf$h6gZ zyVTuMJlapXuJ`I_;8y0;62_`k{jD{2_V0k#JG=2Ukyyq81wZx;&l~l)gJUReifRTy zHm*^J5fFX`f{b(y5;!3bDt=Up472s7h5DlO>e{@w>*#uQrQV1o!MOd>ad?o@Kq)sN zPcA-l>brQ`f?fM>FuB8zF5PkY$oIYS-nagh9|bDco;y=t%!G5|xiyB~#hRvMW+QVosM#S9usbsG3dW=xGGNLtf7N5BK|cuKR3BeD>?JqQ86j)br>Y2C!PIAgF7 z^%_*ilZRM^jw}}TV~zgDCa~nAv;82DU{T%ai>SZ=MUD`LQ*7jM)^R;510+rm#W2jR zayD|(Gz21Afr@QaRxs{p!GOZK005#HcUY8bv?gSfLwBK579eMB?S8#}wXZdbyM%1^ zOh;5Wq&u-;o)~UD8w9ClGc5&XhGKt$IZhHyk%Ycl)}|xQa*cze(k$aROAN?YW(3C- z*poboT%EFjGVNk0NBEkA>M)3pOc%xVsIrzFXG0yS6J>SbwRmzTrsFkVh*Q&d7(H-h zb5>;>CBVI8TWXEo+1$hy;Ef1`)VQ&pNp%eml0YBvC#0cqfj~#Py9G}eb+`rr>PThe zOilHapYx6g!ecx$bS+!T&H}Iegcn%DRfK_6*Rp_X z*;yAJrGx>=9`tGfXk8MgGYcHHv97XrW%5%{ASYc{=pU2%f(M*?xKWmi(oLUfEuEvL zxU@R|@Y zf)P-UL?S=?D_Q?%Rb4wm7qC^*QzU6zGh;OOEv#&?c~De&#mG16USD*?~yC$9ZqgK^HDT4p6}kAy{aP^z6naVXfxJEpB&&JM@UYLYwTvzxJ#b zUb5!`6;uOYW+Z&5%yABK+(t;?BnE4UEc!BUC=N-2qQHS7Vh{qiBoO5zNoYhW8~MeK zju0%gczDlZi!~XS1B~T0rz8yK&Jq~@^(eb+K|X^j!NbUPn< zS%w0S0VJC(>PQ7pXF5m#0Q(fMjjxI{8`kQdnuvvA4HhH`RWcD#^SQWzWQ(NRPv zu2c5dBzZtWchoT^3L-opn=%4w&|b=9K>$99&Fs|VN*!@ZgIt9I<7mpOY&5GQ8y8sM zRiA7G;BiAcdS?NP(#)u3z77m1!ft^s*ZU}Hcv+`(H%U>gsk0OQRe)ZE5Cv(9PGOHC zCRXm6>5fP&ql*%*jRkO`UzccVbkM`?#pGIpE>Ksl*qIt97#kk;3xFcU!`?$b#JmQI zi9|}tZy8N0-XL9Z=TFN5*_UWs3zI%d1nVyOzP(mm>>IIHa_Bt_HcrePe}j0`m$b{_ zebaw&SR)-Cu#qi9fh$56RCbU68pQ2=q&7W??m1=tB?k4PGTjZej89H#W}V6i9vc#g zc=Z6}(1VT@iR|Dif#4p~!Gntj4=j0zYh(YSn9_(O#~MO--U#R?&STQ;`|*ACX>oq+ zRgb@9|Jv;7Q}v}(?{7z9++>_ZurhX&Ss^B4lsnPIgYGuYWl3a+(&gA->HHIA!~D_o)@Zqh99KnUw8=mKUal7}<-)a9%SjZTSZHAyRZ3n!3S zxM?bA5e0l*uxY6^0rE$x#FUSWpri1o#ue;^vkQqA$yIhOcQj0nT50P`DC;eM@l75} zUR#|PJ8n~&b-K6iCYoFD9#p{dn9~DS*xsv4)L||fQJfLVY+WU5>5}kTD|pXOO9OG!p#~( zvpj?%u9Xp4ld<7;Er;QaKFmuy0Kkw35BLh3hst~>(UWhIv?&G7)iUV9v#BWH$#214 zAn?MKX%hzp zV8iXYCW&QO@MC$}=}4Pwj)Bv-0xui!|LG@w+p0(&zcH2W-vwi2UPo%uAYjh=r=W&v zy4bWvTEeTQvVxDArAsN>F4va`67|r_K~}doS1c1uWnQou76~u(n3qzL7Arq6BUl_U z4ad&_Mp|Ijvi4OLu$-b<)nJuW)O6gc7mr9^Eg~7dL5^qPO|^}6k4cBvgXgkDcv2k# zw~xj4xIJ7EqVN&O*#T4dJ@I(tB`?0@tdYW9i9*6)N|KD{n+!!Jk&UmDWeExeVrwe* zQZrujrm2>zWWT^~d5x&#vxiUMBniPH9zw`Smsq3D+S(iev}v`-MiO?Q_{rn-Y&kO; z1X<633j+pIiHEZcGBdd5>x5;C$|!0-HL=5M2iDiTlV{;iea{8le(tni9X%}}hct_& zTn2$q!Cwe4X}lCMl*PGbj&d`@0dA+A<#+r{9S~KAJorI+1_@f=Uv*UAZr-;6t-v9w z@K+6_D~E5Hzd*z1!q)8@V-0!CXkY{L)7Qq}8Ydpb1sA))4Bgq&!H_2}I18~pVkAIf zWJh>`k2JzQkYf>&B&zYIHXQ^r0uxDt3Q5|ry|Tswe)iX3@So5K+PDm0xDSAtj?55} ze$^+29GC#*fadP4(V->Gx^}tanj()ujm75Y>j4s0WgN?uA{S2zG3%CQe>OaiGd=F> zIJ%=zVzXgBLRI8$7gaAdrl3p8fe;%yLTnPUa3mMeYWhfJr>Nj8jhJ2j4Boa7`*nM? z2KM;YGv^Z5Z~fsPe)HSkmQEXq@Pn`BNwB5Xbi@+cB!ea!( zIvC)2dz^;k9fVR$2$o=G_^{yPG00@^NFI?gQHD9u0kj^E!5*G%&KsgAMWgry@0n;o zuWSUhN>qffxR~-V{64RGucxLZtA;0Q$OZ!Aj%TWsiDynhB#tonTBA_M*kldL_!1L^ z)s+=k1Ei%=#1^eOH7MJoL|K`<*Q&cQZlO_n2p=Z-5;i!uFtdA?9<4aBd42*T^AsZ* zgPQ`Y2|~1Udrq>dOh?!NW7gnw(E)Fu#pz)i%>s$`eQapiK^U_h!iaH3hB}gG4O!Rx zn8^Z-6qv&OVr7{sHRT?eLN<;2jb6qn(i#l`=H^|sTq(VG=fynE zO=rD;q6-NbVCaRA%8m#GK_S3dIBvCP5N5F+D9O<>R}#Zt{H4I!F0scsI1|xP4LzC} zd9vL%)N0iTx9{0whUIA)z4H_c5Jq=Y7H&3HVh8yKO<#27?9{~8D?wUs*X(fn>dM5K zQ>#mh)0b~M^7g;+mv6hc=}{R0CB*DK9wXmoUOWua(lB6#e?ue=R0q*ztp*RXt%>)B zspJVr;n{2_c0#W)E@M^vMTBa|hfSWfV6Cw8n3?H0X}tqp;Pa=-DdZzZqB_PEG~ zi-adz@gNl8I_owlG4PXxN-97LNaWJk60uV@cQegjJjx~IkRHn%pzG`3{HBidl4l^5 z(F?BQP4;AAKpISY&z|@G`KmjQ&$2C~$<|OPFl)*@0tj)tyh4Z#{kF`$J?`J328w&5 zW1g(`sDq%+96N4+?&zyiA63Y~nme?uSIcqL9LYhG3xOZZa|civ;Lr#=__DA} zRk|)z**R&IU{Nik8m5J9By8nJEKsd=v9%s$Ma$gQs=Me*075S$TW<-sGaZC;G@0Eg zP%}?U=BBD(_`6zu@5-i3yJg`uHv*0YiIfQPdpac{j>r+2kg z*f>0u(k*9KH|kfn_OTV7JbT&$jR#VeLRc4)AXz(g1R-M&%e;UG3^0$$CE-FNm@$1u z?3f(4fP~&{aw_3z6yQ5PQb*+CBAgFS8nIDaz`6v*0iL`jc?z7k7L#)#1$jZ6E_6g|1kku1nFYE+@>(`__{e(NS4SD5Y|sUJ zE+H+gAy5UCd0ERYxA7g8h6gUti@nBO;&SZ}Mu_DUjOjv6DsW%8-Q}uf;z=+CutCOX z6IrppCwsMU`qTl*r_~SZ$+ASt*8)=-FTZ6UjK?oBVXui`TQo?{5uZ)8iK^4YuVBIFp?770jM5Qop3p+LoBD8<+vN@w}_0^3M?rY7raumW$- z-aTFhUfF58H>%~ZYd+d{Dx;TE(XOBMF_ah{z~^FzzNlM>xku?GU`Pn1x)UG7YZQPH>>V?St8c2d_dx2!rn>|P*DLsF1Aa|uknlzpdd15zMa)7?fYfFPmLv+a z5VkRbYPpaXggFV#BCVWzFG9FoFWkW_m506SAaCy%YIEYCcb z+jV!>!}r^t^)k@~^C0g?oa0k?;ArClycyIgW%{uvL>XUW4C_ePM!$4taClR}a!Pz; z7$U7k#7I_s9YbA*A6UtCK^Ky}b5#Li8Gamqm#`qK`0tC=1t z=!oO0VKWQGD=Ti7*BvD{Xz&=Pcr3x}FDbhF6dpLV(k`p_2)7j*kth@6!6sOZ5g6D; z1_J1ps4U|n;q~PpdQaYtu1lsiE6+FuMa<$7;;BzB*0zF|C{w>r((x70iZTF3dbT9b zM3of?B2#$uj@z+N)=Wf1m_h!)(YW1goyuk+hAMOiQK-ofX7K^5XH7;>OChX*Xw!HH zPKGu(G>J2tOQ+g5niyPkhwGSyg&~j%UNs;Ir!}s|@Sd0BM`yV{a5aeYf+G~)SRc-` zCOZph5yrp?7hoV5WeFVVDf? z4}k&)+dGbm?M1yKWZ+gV6GsS5Q<(%MZ)aZZvk3rD3bkND1z-+4QB4bcXA4tRYpp>d zi9uGv^U^jG2MB=#{Lg)0W?e;rgYbYcF8bQrh(Va7?goM!agd?x4GMe&>ZJ1HLWqkP zVhvCQly%_ELyIfEE;L(Dr$DK|p{xpo3D`tXa#|wMU4qA+TGo*vBg7s_K%!B2Ew+6%uB>=@p%7Br;5!x)KGWo42a&D*h z2oo2}+o>6DZ(+CtO&Lm@Weu0ui0Y;i*O1UxEy@w@r0m_}ey+yVFRZp@PkXCs5s7`& zGzfZW;?!OZB&B{Wy119oN4vLacDsr9K;ti z4a^`A8-pSo0xGHGJV0m)2_zgROq{|A=#hyWk!rf#kVH#X#t!Nvb8xMDbKEMB;g*8h zG-$dU5*+t2!-|i93Y;My@-T(QIZN(gxUonp3g9_@0Y!-}8CbF>%*@ViDo9|A7cLjh zB+*5}$`MG@4oU2dQ!K2G#9KT3P7FbT3>^m&r!;79AkZw?7=-)|sthgsqM!@G#r`C5 zN*!`KD7tmQuv!pSZ2t0>-6?NBe5h85S;lgKK}}kl4A!tK+$6EM&fsY9H3~DGK|$ug zI6^>lXq;PH@S&&nQ%lJh)VSNUl<7cCr zAuPIElaZRD8Uu&%&WPaha63x(T~s7*!|)_QENsg`9(3_~B`KUA)ssEW&Q4kUjF)SX zb5P$YW;!|Zk;99#Gqv{XacHA}Bp*dk1Prp=)Pq`qY$8Rp5<^}g>ma1HN7;y5IV#u^ z`>cd}S&7m3iwzOGK~41Wh->TPEAJHu01Ogj)25V(obq{&a0=LeY`P^+X}%Z3lp#N*oMP?oXY%Rw&jCw#zO`~IYz{uJ~J z4^k{%;73PHvcln1BZhko+TIyy@i>tYIgGpZ$fphMLt~)LtJLuIV9!vH+ zN2_(eRqswwUmeQ`sLUN$C|z8rFHUj<3z(9a&|!Etbo6MgBa8fIa~antB1rMD3tfWS zcaOfZ4Yxo0(GQVXF71@3-`&bo&Cl4aEDa%nL44GgfTgv-snM`4jQFToF(T2T8nZ`D zt+4}P6a=8&MH0)kZ6{P4N}S?%SJ^8|Y1GlnqTdB*4`6spm^VQ3lvu+;dL+LJvMJnU zV;n0pZohi-%x$-tRSsg+?R&Rv4;`Gi_rY6d2fL=HjBfRALy;>wDs$dgbO#yn%AIh9 zeI|x@7*<0~Dnp~d8BpX>mYT4N7AzynharTH7QGoq?8`>r)*_+ANiwXOp;lT;Q>R3hk4fNRM)uC0 zWMdYRFjU4Gd&uDk+5xbX)e$CzBBqY;KB~_Y6d@-zATSqms3{DUwXA|u5KiC(a&nSD z7usdZQc#d%r~r@dDZsO_BkDV%5p_sHSrkMJOXybiXkj%^g5e7<#xH=upRxis8h+*9 z{-(0|3nNGs$be@!9VsPax9UjSbATNPx!qa8C`whrF~a`HNw)gwz+w2kEIRDBw;|!QYy+)jiJJIY+?(yV`Bxw z7PA8C?5YyW0-}J~`w;y-&3+%Bmg8&IRnTUfzFF*PB-mCX4aA{EXo?f2( z_YEDXKvpl+rzyMb6piZXU!CEeMe0w+5zoIM>%7<;3khbKo5 zXX$6_&r2ZpukO9=qRGaXvlbPpz{`+^KmF(ln@io{N*Y5{v4eH7Jz<=JSd1iHw+xa+ zZ?I%%8<&9!{K)VLqcS-ODRAsr$%VWx*Ft5&!Gb*6L^$>uk$Gy5_JLenTa*y~vIto#d359y3FU+ofiw(;E}Rwnbb%HXDw}PY_K4c+xi6zCh7?d4 zjQBy10t6Iu(fsJU)U7XIV_mc*1dLbgzo* z#fvDW5$$MUA;R1T!l}a!SxYw^mb;1_X7TbCw^QXFMl{nL1vb$d{s(mr8sRG{^8!iO zC&LpCK~NEl-E2?<&jvw8cGr@f^=_5Gh2BHRU+T-RjPep%2H{8bNiKG{0KGtXVq6){ zC6EXQJeY`@n1Rtm{Rn*(<0%8SFmYDEf{hJhAU#R18H&jiP4#QAqqU9tMm=YlNZMwV z#)^#%I2oL6-H(vB<96%q$=eA7Hq;?NxFvh{ANVxsN*e)v!)|J7P%qpYpFnQ)cBxwA zoSmAJDNT-}c2i?^6O|HmfhDk}Vh8t>9pP?u<8i=X zA~U9t9#nkb$@=AvxLwNv0gBF_J7{eIM?s)M$0}ip;p=NA=CBfGFN7&lb%{;md?ZM< z6FX!;bQKdJZE`wp6Y2iiz8)CxM}WxSJ(=P~WsC3-D4h8^)GAm6ow0^@OyvZT05qtn zqhEVK(i(0DdpgGW%x+@`H+Kx6OhF9QBB4$>4%Z<@5H;z*^UQ*FY5?-%Qxjv}0O{S! zFow9;nFRzO*^rWO!}<7}Bo+zf`HUukKd@fU1zq>Id1P?q!CNn!U-tmy^z`1j*~%Yy zTt+J0_2rJEo6E0#-BtXI%pI|jjVX+hY?z@9Du4}BCHHoak;G+LxIdpk;L6WRclsOo0}s6e6B^ zu1>*~Bt|P*SixXe3mtF{z%A0t(VS(Om)VV9G-63G=E}@6P#N|kIXhE_qtz!BI%0NY zVh=O8+7X+x_OvDp>OfX(f+$?5S&b`)g?Pk;Y9eI0s1*jGiiK(k!j}^td(iTQr|v?F!} zT=%J`pZ*Jf?VX@S7d=J>mRBEy&?Y-%ASSR|8&+UsdiM35bdNpPvv6}3+v&@6_|T+@ zTRk(zK^n}Ep`cAPLdETBQc4Dk1Y#WW*n~e!LKHBBk=UQJ2x+hYetWEY^2C~7I5qlY zGAq>q1K&_K%huOTJ8$~w57wAY&Cm-lAPw{)AB#K~4FkX}!wLbJ1AWDpo3m(;79v`K z1$cpW3r4s0fM1*&bu^W~s3x=G7kdzeZDWvo4Pc3jRBLtWJKA|5Bx4QTL;h)j>;i$c zUE=5CeQifOmV$9*gGoudGK1R-VRp6$uu;E-u5NsN!I+P_!=H?x zwSHFkNU(uf9q=pv)|aPD5T-rijv}lALB3@oP*)&fkM76-2IgNZ--pz2yCH-6>6fT_ z*G2w-Mvg96+#U2Y|)Wkg07o-qtgKGS8peW4Yup7_xpG|x5e<4KTk)6)iooI+*% zAj~1eg@!6+)B%1fD>w_WJ~EVC(LPkKzI){;7yU}f%(c-Abr=wtSS@!PnTusfxB*2{ z>L3}!uY?5s%3whn)rbP=0n#HIH0oE#ltIH#B90>*WOmo8$fUUgr~Aa10St62;TiGwJu5kbpQ`MbnPl+g8fE)mZrV; z#-b&I!suZAk8`Z`aaPk}hm`?-6dDrymRgLpFFSZ4N9MxT+!HxV z%q*+A+~yP{3s{K?K9^3TbQRn$Q?ULlL({uv4M3D# zcS{qv)CxSVb{6epGc#prGwjJskU8+Mr*uLx56>!F?sKh69A^g^vK3<)uTf9phxyF{ z%nB#@bG7!SO;*l>fdupDkr-je%k`ciW{>RcjE)`h6Yz`UT~nG^Nl zM@`0IL*0p7OVD9>YimMMBFfiE;N6w8p>zr=7(^g}7TnG9s>!Cp>RR?lo=!PVC^4g6 z650wz4H>niKf|Bl73q265v9oALhP2=-EtM4?z(cQ_DRS=B3i%fDPd-6b0t^>PK*lV zU1g{U&l@N)fQ?`hc&V&@-7gSC8q_j~+9OyV7tzd%*x~KK{(5UY+&W??QSd+oKx&p2 zz{~=^u%_9xNnax%w#Q>l(?TYDO2)KoJYoc7Zf`&rj5Lx?C_HravX>q&ElkNG^4(0n z17^Al0gZH}#D$FAND3bC22RopS<{dI%ujaRfti=HERXcUcsznhNY3?A2+hI|O#qD3 zg+mCO9XPQTVd`R-aP z)*SSQF@%7q-{SVl+ugXdIPZxR?+C5mEmc{+dS^q{)|ZXgw9up6(t?bQ{po1q1^RNa zF;^GtW($)9bwq_^c!O}pXA13v?bT;+EtgsL)Xykq0|2JbyI8}e$bpGC3$ry7)gu|# z{dw=N+o{Wo)VX-*(r1Z8%Ve+p^Ab`5~X$q1qQ)y8m|OwVxQz+nf7r#m*93utW8a)7)==R7e}+9 zxKOs{z&<>yM@{*TuyDrS)G?HcN?M~7VPzdgWMOH`IUQWPj2? zN-$s+1Y#(+XBK^dC3g^;3{QQjzUJ?FJUv>+;}lnU#+z-4l<4Mn!3a6jkq^_wE1Nh7 zllw}eEDqb$*BjfbXo*BH7aDO$P77R3a%=m#@bn|~ee?`KRPF)m61HU!SEas3cUa6v zF#-uNFL?udkPucjU=S?!V#kUc?CDg6rG@Fq$*p$+uoVE4fh0CR$w3SQ8I?c(?6c-v zEnTeT2p-fF;|npyRFE!;Q2pwiTcO&ZX4DvZ|Cd)Tbx=)=ftf99m}bgtz(BG`5r{<&Ms529GOjldSvnF<`P!7>LsAq1oau_Acvt4qhT7u*kB{9g^qNQ>>WaIwaUgp(V?uG0`nqg z4U$UG;RLcdYwxU6_S_*4XCi42)Nu^}t0Rr!JIEI)$l2m5Y#Zrd#sfA2fsp2vG8sY5 z#poSoctJa|IHHmVu}fk#4jv}6zzoUkMiOTkUpUL?%$}&g#Wwkj6wz^};}q^-G=2~M zNsc-=+7ad@u-0f7y5I{;&L(IC`$41dWG-UcyF{3{N&%8tkFt;^Yhq!QQw_TcJx$p( zOL8J1XXJ+TjDtwtSTA+A5+b|C*mxcfJA&=eR|-fQ>{&noABsmKg2-YJl&F^wIHZ9S z$N?Br$Z9lVjIbdGAIU~waR+P^w=hCSDl5|kw0H_%*@QM=Czb^}#&eL5f;yHI5n4lN zA$Hu3mr$I_4x&C?n~cbXXkk%^sP;f*E&~8OZUx>%&-_Bht0uzaGQ^JU@v~8YJRo6c z`~61jMDlGKyr&B}o~XeOqrj~2|t%ag9rI}Of6C!tmMyjT4zp5OEeA>8rjiJWnvW5RjO-8MaJMtP((@&=W!6N?M&l z6lN9_;5|7}U#`)h(aJ!Bax+GRS{a`h_8g&LGz1kXH24vl*C10Pz{U~u)eh8gsF}WR zzk1_wgQ#1Ib*~>jg?RQ= zglF{v+Y%c`V8in49hZ*(>_bLU%;{$@lZKCO|@ELJUa?5XiyRfQ_;cI7S6&RO4Ep zwW4B7;T^_DO`_P004nej-9cR-NW;Ve2196a2J*PvEWn72Ast70ctF3@F|x~7Q3SN` z7a3ri(=`H$+DBYelMp&WD(a{SX27q7$f+F%g$XY^sGW@C7{ec+iUoupNKjlsM{x&_ zIAw!>Lmqwc7#VaS^a#&NUZIOO3DT^7!XbqewG0QBd*tmwJ zF*dX~XpdDKX9tO~j}{Q@lhRAkg+CXtjKR@z2do+qG$;VAIau7_=#FQBZ$4#Mq?d9) zF5=)5U%_o~4&)*Z<6$$#hc$`^=PHZG@BGmp*^;-TCN*XLQdulyAY&6s2@nEsrP1GU zuIFeQ&t}z>zW@xyv5YW>D~pP7j)z?vVNj@rcSDKBX=l-fe;JlY8=++WUB|^ zyj{xk3iYUQ(YO!;MPrIf5~K>`p+z>rhe&Dd2)ee|!fP65AC>(jaES?gSSAz=95#x^F7AuMb&<=gO)+DhxLSGIg9=bCo zN_fPe^v303EfZ%0y}b9z-KVVKyNSHCH0wbT&jB9WtQ7-L=Q8f2JB{F0@WKy3@-=8} zBXDC%@hWwwY!21I5MTJHV6%cG#DJ48Kugp}=M2rl&0R}IlXQ9IX@V|PLtybDX}1oK zZA6~{;d-j2S-Ml%K5u)7`l3UONT29#vC)s1yyurb4FAAyc*4f&+r&j>>}~Uaig&rx zy_GqWmr3%t`66{s%-REtnz06WNUpjJI#sr5oH}4hwdViYK^-2@X}6e~97lepz^;s} z8tue5PVkW>89bfx0`B$eW1NU~@QLFdD>Bx5TB`Tb3&WWm^TUGQ*w{@I6T24|+)=Hc zfI%{uC!$ac2?maY51mDB{LAl%NQ^tq>;g)}Nwc}h9#u-N%=A48WA=yny)bm0d$JZg-WiHEYYQB^VYOk}e_dxB(ISp(ET51L}+VEIVUnVrWOf`n>6_ z3<{@-Tpba>tjCr-Rsqi&2ylh4vb1ZQMG+)aU#wX&LSnQN*8)v^#i|T0?ZIq}&jOn5 zA>R$lrvSh>%m|`9#enK_hdpF+nImjv&H^p`ZcDg9TDUy}w~<1~ONV@eiGM-Vb220p zJM7kzbMa#3T+q?ih$iJWD+FT&$kC>n(qIM5BY{EPDzlF^xGLFfc#q<& z0oyzRy)JYKOX`A0gt_d3>jgCqB)KHVlPctAVfl7?dClWj#f#p<>N-NFV#-{A`kdI^ zq##}}n=nKvdEz}^Q?lYoUkau&8IY6H3FAw6%`Msg)=We)YD(B(Zq5PWTG@;2M^g3hHU)^QOT1qQJFk+L@6-uAeb>V zk|BdMhJDbEkA^wRQxd|u**!kS@90sRTC?YLy(D$d!91^(sY_6mYw@xO=g%W+ zksJVAXp@WuC+bk&pZ2jqHhDta>?)SAtJ$R?KuxI#&cS%_Z-pF|un>QFd_vdK zGb;=@)7*iDkr=n)cDf)#yrGV$L3B1kl8voQja?#B0wIw|L8AlhcpQ}(n>0&2Su2qk zhbb7A)5!_#Otd|gV`-tS4z%c9ef*#dv_PU+dI>9w2`mf)paMmDH*#4JlS67VEfAQ> zQ0-Ox2wAdi=0aua;3YD<14wuS972{zFp&y49I=Pn<>5}TgBcJcqizjabwT)SrI9RZ zX+ef>1u}C11xJWPylfyr7#83=Wf~Ei`uH4c1=Y%;*yae@(P^hRW^t8jGIo@U;Srr` zi4FxoQipNuna&=}z((w|73SwA{=%*XW!_f+0Hox5ruicepN7@-Vmcscw>iSFEX+*_ zg%(Hkn+|M+h<19K(8@r|)h&ATbzldHfr#{F>|=b%05g(YY@+DUi)bakBUlcugho<3 zc5}Ie1noN;Vo!l_9LzIa+AjqDt)D`1V#i$oDYy9=%p)}4r6M`-96DGzJivnxMYJp% z$zYn>3Wy@~&dApPg`_(EC>u#q&=mMFtQ-TOjgQys7Y5#|Gn`)b@LRpnrM{ZYI6NYv zsl($sHPmvq#%1gbl9nZ1GF2A9qQv--KmR)Hq(OGTx+>cOi6&K1F&Oh~yIkGMY0-;8 z#JZg_)A2q^C!y#gMiMFmkdLB?{OSmkG_GF-j))BS6T)jFDL)T);KriBav=NM9 zX-7_{Y$hqD8~WX7FPC;X)P)eZ-XEW46yOMjzJaKwjQhx0*;)RQDLDePK8ic7L6n2& z+Sibe9a*(Yy@%n#E`78DmQ9k(HGYte!{QX=)M*!1P7efMk~HBf@7x zu$O~DyA9Q=V+w%(ZH^-`UgIfXb5|WCgd_tp5!eGE+!9r5SSz>%?9dBd#a$K+VvUO7 z_JgWwVqIiwuL63sAx34IYEZ>k2@VxF&KwPLkO^UY1T*$`gcw#)T8drC3;J@oWk4-k zgwc_f``W&-41^lDN0#!AAmu?>gpSBr-(jgc3kI{TpKst4Y@;LBGCrWPNl&~L=u2^- z8g3V@3WBBgK`;mu!sN4F+3ez)rh)&;J~BozIf|h3JVLq+&y#X zP<>Hl(~n|!^Gthzw(cC^bO8&cIz@Ewqf;B6WJA#;Y4={AA?Qp9*X&6f) z5Lq04010r_k&j$+$K~Tl#vC6w88ZhFyC-vO^?X#lO4oPREPB+`o1xec5^NzuPn8pu zz`p&&kGi%c36C9!B#P;$+LoRzT@hj`Fontn0z-`ChdrsIHJe9UDG2cJ2AMWaN5U6x z-IUr{mwVa6cTxdUNq9)b9gNqzxUMigwR>US%TD*s4=0bc7dso8ftf3LM{2Dp?Qk)Q z=3)WJ+Ol^xkp`oBXLB4`ITbQzIvh(vX4DP~hufXS*skR-hGJfcP^bw<85&$ja%eXu zO6le5h7#NhLY!rV#QKayLa3GwVL2-{T!|8KyTEs&#Oeye;yT1GZ%2b5Y7J9It`a*A zVld2)z7Pd+&UC;Ug{!!m1zbW?JSNbf$YO8 z^%XC_Yqi}Fmot+}e2H`l;&*n&)uI@r16^g@E_Hr%V*pQk~WW(O@Mo7sj zdWjfhKpiMfC~3SW8|0x2LU6Ff^=!Q+-D5D*-n%&P!Xn3oq#rz5nDv{XwGyjSC>4*4 z5AA3Nn59F)1WsU#8A&A`DP{G~O5kgM@S&L3-ea`Hu!VSA`O8vej>Dxfcq7T1?bcHVfcZ!t>w?u{ln19@J&vfMGmCW}^V$X+M$>viaPnDg*#22f)^% zjU65rrybiOcJG9$zJ~QUJ*}O^@MI8`;rXz!P^FaKZEOw$;dTe%b0okP-Za8!2@nQR znWylQW;0S4*9-5J5~Mm;c~ro_O!wG?~K-`+ht z=4P!MTg3AONPUM_9Pv9~yO47;Mqq5T!{AOCNf9s03weZ(*p(f$6bTqGpiCtBq@=p; z{=fNA(`T$GNY#Nii8tQXCfG>YRl`EoKtzo;p-l3_dtMWV$Gj4IY# zrC;NYW>sbrR*kjMyD${F^c7-%_g6ob=>sj81uq!|U^w;Lbg#ae${ir20JKIcHC@Y+ z_==T07i50H-5{hdse)e6th++Yf>i)mo=i2NBnd|mXaP$YdW=?TN?njYsVuOltd9C9 z-Led7qB!!QT5hmr4aXY3Mj9l=3L*}qle%MISJ~TeFRGL$s3Rf}wE_eJb_Pnu)E#^hz$xR)FaE|q zHyE*!j~NaSm$C&7L18%4W)@@=5>T|(coR9|?2z55oH%tY8C8%zX5nEnNeIi<1OnGXCeFw0##0$P zVEaD4Uq(i=I^_sC3{$(o2TKq_Y*&#G0F2ieJHi-TU`@skjpGPP+VNhI^Hf8zTMTWyY3Zw636>6Nj!-!`Qku!&jRP6cKsl}8^}7H9XbEXbu1 zduFvrM%W4p=H&<>?-G)v_lOryUt1=53`r#9IAO~Q?LT5LqZ|@4RWQRc#YXIc+Id48BOrFK zpuGHoV@7rxa=?Me0fEpLrEk`1aQ%=agYbxg;}&$ccht*cdv^@y_AM_>FUjc2w!wyW0Yl; z72`1lz9o#a7A~-~4Av=BOa`2W;*t-C`W!bXAU9`eirdi$l4lT6mgOe?r9NF$6N!fp zEt+X+$H0N`c}-|YA-JCUE^PULNnd>_HR%(E#1c%0Cvm&JgsQ>IsO?%>A3nIG1?Dwi zakM27OiojQY%sE+VuHDCt!w=nm}m{>Xk0Z{p>dTh&Pb>%JQ5Xeqj95{<7ix2F5z+o zqk~2?tERl&=)kZBR-Q$$#6$Ad{lfN$h589kgp+gyrGt0M0L%`MCah3_f*8RSP#sE_ zu`63P!HSOf$hN8pb^)cJalIfV=1M?0=uZWU5_C5_0Z9(_J(HTk7@IU`leddIBI$_M zgz1}0WW2&t&^5xZHgZ;hw7q8dLBHYx`cl(8#ZGWz@|AL^al^T+Oux+0DW) z9V=CM`x`jLf^bL}Jm`ozcwF)WY~q65pi~;ayf~PjohG3vA^gi{Jb*E1i*?|KZ9unf z2EF^Q$^bQ}3qvG%NM-3mC=o#WM6&6E6Mx|GKMhejT3D$2Xv3jb#n!+rpahp}3KTsh zvM^Vn%`#$8N+#u_vcTjT)(C&bEYXpzfFxm?BW=G^HpNXcD@w_dP1x_kqi;T zTXl3da%h#(HFQ~po0uFM%uINLkkp+RhL`W4iSwl9Ynyeu`@KD)sU=Ll811AVgYlaCQW#*Q$aTmgux}$5P z;VJ?^JFdf@=+wH0W(@>-F&5ArTJ(#qT`t{qMDK78IkE*AEKnhKn|8#b7Q_O^!|KV~ z6%ee23xp=(9JHYYn^TxjSOFN17#EbOPZ45E4_JnMOcpSPi1T=o$%sMON4i+nkgXY* zEH~M^1Tb8}T(065)*zBhLqxzczh{6JV$w4{1!==Hw#RssLJN3IeZvQh$VO&m8nGLw z;Agyz#$^#wdgGcE6+@T_5y2$zN!=;PESA}wG7uOJFd-wW&uF3py*p*4%Qzw_VpUq( z;(gE}j~Eve@K$NVuA2!A)d6-Vb_h2qgE!h?x&V*6!|nJ-I*pOS?MRsL;z%`t1Ae-L zG#~Zic(N4Mb3`EA{(@t__FMnn5Qe5yPUDV?Sz}gMUD9r4Mt4XL!|Tp)(5NZZi^g3p z#CnQV!9V&FjEeG82d&arfzJ_@xr|6gPdduhB<)Bwdq)JtsEw`vsSs|DvgnsoEMPC^ zQArn60}pfxTHp$3FU=kA4{7*^^a`gAjt-VJUBV zywI0eGw#wp_rg+Z>h%0XL2Gx;ZeVF;FX_)srm&FcGDe9+5oJ8F#1v|RI`jI6I{5R{R4jTu!E3qU2h@E zRg5eXGj}$BA*6^Cxjt%HE-)a2Hw^pD>&CHY&~(gbiw46F5W;1KIp0KpF?R5J8Fyhk z23blz=g-rR7Gyl!?#ph&Vdd(ANLYy%?YJBfB_~(rTyc$UB-jqB?1+8JkcN}7sLSy@ z{%3p)MhwT5;R<6D7#Q%Rq1=TEQV6)EX67I+WEPdd(pX?s2Rq?9Xg4|wMni+E6y&R@ z9w1>@YVFPrEWw)zuaH5=eO*1=t_ztzro~_=4tq1_ zF-VDA!9`j19k;hpmgLr*bOE%IZOF0VaPp&HqZNU1yHgf3l~KJi>ci3mFe0FL)=-mp z&bp9-kcQ`-GShKZFD#&07s}xUuL?q*no$-8{tsjK8Dz(GLEITaQWkq4D_pA|@u=07y>1KZO)vq28Ps?I$t3t^6mYDtdjTo0hnC!ptT+z% z!lU6Y?;FYhHNCc=cj`7eL3X2Ajt$*ejP+tJ1&0>_G1eF+E6 zFxkUdlj891b^c1FrL!|~45lk%r)%Cp4n7oKEysHAfSt=LKp-5GOx%cCX&X+nkA{HU z5@vZK@fH%8Oq(vDq}WIFx0y>L&43$$?eRXor8VoN1%+?Wuaa;c6p=kKfAIhC6+Kos}LDb3_2_Lp&&E^cWH{@)78pu|tUoNZleFF(WNFCiiF_Ht5 z2^o}SB@i1vvkf@O%%GeD0?dZ8!@}7Gmpmgz(1HT)Qi)@3rLVzCrJ$k`2f>2#fL*`R zLlE67Zl!YW!=kXmRiy-=39<>1j8kF$t{>!fFs@FiKGz0WEZ?II=qmq|#xqMLrD{aV zXMr#n)JNbu3>dgU9#@41eIK^XRYg)@2;^N#Y)77sEpQfMfG2{<89OKhcbt*c>0_$F z%K4rV>scUG(hKe+@JKRy6M$fcn)oT9rBqq3pymNF8x}!$7B>%RcsPE?ZoIQ4GPltP zp#e0hi#kOgq(USK13-qunFEjj3VDrWCL=xFkNVEa$S zqawbLlG6X4hb88R@wFP6Di>p(!~ zMMoYCN^23u1_EhYsN?GBUp8kiV+ZU|-P?|aVmv8U(!>mRImkNkr6Cc7NZEk;0UdS# z5eLy#WN&auVFh3~mdRgGaEsv)2>?o9EK=ReY}{^C9KZrJA z0xIT`Vwj=`LFWtq>@RqbZiPM+J6DVaYEdQV7wNzq97x+%kMlO*1M483pkP42rV@HV z63YM6Yp?n#94jwZ2da5H>lOO>KFcR|FiXo=);;%13x8+ojGU_?jFZCE2`(n068cev zFESSzbe9r!olk6ci-@BDb7lWbnk(^QtxFr+(pX=^akNGI5>z-w)ZB!f;M7A9hJj$X z&0H}{fNE2%1M;T`OUlqu0t=~H_gnq8a=d(MOvbx8rT)Hl?P60~9F}F0u*$b?Ug+C) z*t~hmVp$yWWJJJ(OdveVCob*kMKVIk1EUg}fg7(ud}2Ep5&}w`zkZ)TX<6#5Dlhos z0;&tmz!N=`E(bs}wMrW05|%VKWyN5H))@eklP$PK6v)~V)r-AQ5;*_>flD$IzUF}Y zKvBU<6BzNuCA^^1pO7t&LIeGpgI1CmizUq3ntoXc{Hj z#c859v;qF)#$_Z7{0Lv6m*T}G=FJ$WjJHB6R2jLfx8!V-N2O&NfrM@Zdgx>Zb7yy( zCO2I4;zb#mq^EB>(I}Mgr|ITif5P+Afj$G^9X_S%aXIS+St?=7#G+=^q8yaTJPBNe z22NEgZbDS*hS>1j1|Bo9RFeB+$5oX$??y}+g7Y{AWTBZQg96WnoCM<<6^1w$;fslU zR{fbCQzFa+EIbirsz;098YL2V?TRl-%BaDqQ3Y-ej-;lD0m$$KCE|-3)T0S81*Rz} zO#+D!Pxg)%UISwR9Rg4YjdRFC8L$shcric_i5Lkl0KfFh@W@I-a9b;|T^YkW%w8*u zlPAJk@d&jV#RYhj$$KcKjCMh&%2^s4P@7Hte3smpH0z>P#VEp_ck8EHtXuR)9#;Z= z_7ZP{u99uFF&;JN^8z&+lgAX?b`{j)g0CS1F<{?GH2_{lC@RU=t;JIj!DvL+#-yAb$Mjg^i!=a3jU2*e&^}=(!SaX~-xe#uU zw@?=ZIliyav>BYCZy6 z6jPW6(LkOP@q!8rwxi8xA<(eNOMN=3x2H<5M%PE;!<5!IYSk$KcTCI1b9pQC&OWt7 z!fY8|YjTFifdU@QAbBM@ORDWj%wFVTHi_+mK9Zczz4YD)4A5f?Ho8b~vlsOup)TH! z0G@au(sTr>*QJtHIY}3M!K{^Xb0hi7;W6$^7IqA=6W;BMgLu$Dxzxn?Q}68O{!cvM zm~H>%zyEh%|JFAZ*tEe)zy4xSh=?FOFbC{ZY=ehd!7mGhpQ4GT5#w0XTvb%Ek!K<~ z?veoegnEvN03$Y-wP~>+?`q~l_3V&*6kuJJ8r4D67V!e%8`sT~=<+g_M#5|lF;aT? z0H8!YPxp+v8)+A^y||Zln|tq~dYW8Wg z^raO=a#Ad$puBpNgp-1Ts~iEpNVPFAx67R2m5fxj4A4NjVC^pX56Nqk^`eBGD`1ng zLNY_)cQnRYK4a;E!r^NyaWbsYLy10QG(v5Mu)z zAF$wS&#o07(-S`A;egnr5y}NtOq%s3j5B!HW$!2C0eavL_)K6sFa$?=UIAm~Oj@6j zmoZ}pOqztRy_XbkzoK05l@_vLvNH4pJk1JPX1Y)4(Q=Fc(qmMiTht6fBTm>xJPFBY4Nc1i)s@$}WSeydFIh zc{{3h539pYS4?d1_1ku?!62!XWinA#o&E8H2iI$&qxdof0{9V@ zB^aR~oEP5-)x~3?sP&i_ci7Y-agkvG>{o*n+xy|qVtpZH(56_H)PtjFsk^7Bc%e|d ztK7X9#}pN42>swxBCW@SawVw%#wyQL_(cLH-1dydu`PAVf1L?z|A+U_UA)cezMf5h z3*9u>?j**MsuDsL`vTsLz1P>8jgx+-Emr549olQxMgm-tND)R7P>UYZ^0k}9kOLmm z_>*7zqzXN(R4&1DSr@(gP%M*+$)7rg^|fYQ0xl8&iIl?Rf((yMeGs!4LXmkoNgZA` zahLHHUunU}#Gi>VMq_;LL?4G0fo}Jr+yOt;3j?ztj@!~WlVDEC9btlQVCyPSMTYXg z0ZKDGL(RMouBsClItkc~kbqW&ohMsKGW=%)4p}Iw7l30Jc*Z zPT{j)A?eMbcrr<=W-#icI7%_JZsmNH+o(XJ@(}8fdk1x0aWS2r~#WYa}^5B*vC6}5J1HviM}CL5K;TG|hHLEEnq6qtx>rqD{b_SG$cY6}hbY3C>403ZkCZ0RvSTW&@$7xQZ z_`al`bBksJMOTC@d?vPc*mym$@TRG#6d8n62^upx>l!&m$9#z*<7mc z>xukXzl?U${o$ceDITZmv}MymVxbGBf;PaOPkXOQy!da%j46^p#tD&BCFe9y54Qmb zJ*qjoU}#`k`rXPXj2>cP_OKdY!aWcNujnGPWl2cFz6=%=10}pO9_LvOyj2h50WYF} zF>}o^U^W9%Y~qD>$&g^>PFN#GnX}qJG~@@`3Oj>4)S?7Eutl~Efq}DXGvq-|x2sc# zfwU0J#tT5YxTz#yG$H}tfT3yyCO`+Ej8w?#0UhLrb)+F*#ioG^0YZoo_^_aIfX3MH zC{zgi9eo_^P&)#=LRh=D? z6t%SYW^r}hnz`(gduGPMg*l)NwlhVBDl?Sw@o189Z)EbtP&3|Po$@e2@(Kr3!ktM& zF-#SCdqBH?q{Mm=W7LZU0yjZf{=mgBtFYAF0U?koxP$H7gb#{qxKqEY+BNwWEI0;( z(B38Xkl};Zq$*RJ>em*fzy1FE96{JZ2_i+kzxevU)r3a1V($+?K~c|DHKYgOYDagX%Vs-7RoT zC^wD)P9a{V&>#y0L1yZvO{PMXH0}TmRDe_?leSFMStcBydY0)7BvcsG!$9R3632NOczcHLtT5giU41{ z;@U!wlmlMr*kabFGu5n^0*c9e?48MYT{zqPI4~IX^YLnaLqZ7L9qa} z>_5-DQAx?3OOS+%fmzB$0|u##*9)2yL7UiTe)w{p2IW_xA;bpYaMcFo*t{eb?j-2e52o?~)j@#@M#LJ;FvGSl*v z9LB~qI2yZkiM7j-1OicS`iyBZ1YH1@pmOn)1lS(lB{LvVwTKiE_U>NU*ISNvSlS?V zxwpGYvuLoXmW6W}Hb%t?^GXM92Pv`_1dzXM3eLdl2`xZZ2$KK{Ei>%83V5@OlaBe9 ze8UhWk^cSbugL+JiV05KTrsyRmT7R_#lK8;;xB>iF;o&CG34nGHPK8%&b!N>TOdF& z>VEYZiep|J*#6#oj2{|Ew0H-m#4?MaWh+IeCt9DNA(Dq0DRitA#vrvNn!t8r+6)7# zC(aXs;KJbDXl!Hx+Z||;jj<^5hw4ZXLSZdfigC@xUJqaGU(TLk!A{N`njVyyO&pf~^ROb$Wl;b-iy8tXK5W>STbV}_)v!DAk6Cz>f z_2oH{NWo&Mo*}8kNzfM{R(vYdUK$WpJ^d&M)u<#>ej*TnYmTf2Y@!Y3YenVA@YGfE zne{MNHyVF-5`ai!)Bu<4Av`+ahREeE2oG<0w8TCEmQ}DoO%RSOHzNXU=Wb{wF0q5U z2^mCd#S(2^3RVwJHK!5*LT*fGIu2T7u|!8K7%{TJ*b-DRXk+~J&O`MkjGPb%WEOEi zfxUW2(uc7eU<7=DU(SnK*|ocL4R8lZST(N!-2xL*v0y%oN<;+5Vg%pU1ov0Kd7zQU z!k-Ea<^xGhm}22PQR5D^SfC(3xd}C45F&X@Pj_MyO|ezB;a&m4NH{cuU{cmh;~j%^ z$e$qZrvsTA)le2&;yYw0oS7X2*v(onHG-zJ#ad`e)Mko2jsf#5dIyzOlAOrf#S}P< zDGgLjc$R-au4o+7;PDCAZi*U)go^^ilQNd_%_30MrO1E*acs)3>rIjkUs?)BxTc- zn0OAuZ5l;D9#8CX>SUgG3~lHIo|6@&o0_OkS}iv;H~Q#RgE1L)PM+8YJ}g8@AwXe$ zC{WK@;I@=N|BhHF^h4`F*4FA(HHgJhFUG7MDYQBTg^X^gI|_A@qA4A=W z>~$qTw{YXC93umS0;+PakPXINMFXIabIP@#jS3Owc1gZmU37q@fY%wRCI|u-PVykQ z4H(hJYn+z_8UKO0GFX_2cQpeIp+we!y9_QQMn?<)+F(b!C=rRcmFD0foaFVIP^Z4C z0-_J8sstkhMb0F~$8`r_KB^eMdx44aLJ5Qi@A7bIGfYOjLHI{L|CFF3_h!Z*8c;*> z%*h2OLR~J*q5lg5pCca+G|U->IeJi#IM5OodoPjOi(5q1w?j1 zFtb?%!#&W!*ytB8Adc6Nl{A3)+392|Wg8J33lAyIPI9TLss`i4dTsnA*g_SvWzdT)XNN z(MVgo){9t6-fiq zCeXn>cQJd#pft4PM_>w$0XptR{zj!F=fJ<%VkSJjI|EmV&QFzRXmG%hnIhXT;J|TG z_3Zzj{O#XRG+%h*hwn0YSOjxCTHU*MHL6A?%!AKIr5^q>t%Y722+`zyD^t8EO)m#@JTT*9e(u*qi`65oO3kWd*XQ*?4p zNJ|>&>2e9(ScVN<`LgqR?otjg$OwTX9D~Mg;Vdl2RXD(~74VZgB)$m{f)N5_DFD!U z1)wMlfuHCBHG+kH0aKR%Bf~9VQ;W<)i}FbsHEf6ZRICQ|17Sfy77e!nzUTw(Q6(vb zQ3z95M*~dB3=ymem19Z7_NJ%6jSYD=S zdO<2W5l`%55IM{1oCFIDjC*n%_JB<)W>j?Q48f8iD>ZtlHVPH8#bQF^FFcfaGjfHS zy!0K<6HT$Rj(rFH8q6n22bnWymjU2iri9syePWYwRJ>qHUm$@Ry84+DCxn&UjJ;DI zw-th!fm?75!1XftrZXIeX4xuPVVS6n#*jH1(;d!ixwA9gk>puEV}WHLW3NIULmge~GM)B@BT%2S>k1#$++gEC@d?XaC%O)G?f z@COFcyI=u(NQ3))=f^)H2Zi}N+z=DBMeMAUfiXy2=zZ8@N?YuiSGr2D#DzkMCHT^i zI#H!sAg|F3E1+KZ6J>0dKk*T6c>kv!6e$Q$0RjOjTEz9O2X5T8a|L{3cz_yi3zr6D z1QB2;RVL>^@`jp?H;yI9+bfI=i5bnpVN?ky?2uCkUid;ePvn(+lPfV)E=D6TgqXKz+|;Q+dJr1emAjnu-We9y7^yO2R>Z)NYPpzexE}vEHpT)S zx&yG?usqMAJ17ky`7Al`LGZ{=Atz#(A4NcTGU2K&L2Mm5VoB?TA$n4<(MiY*_c)7@ z6ZxtPnf&!9yEhFR{R0Wk9if$tHoffo`BDM(A_^YCmzu%#g>-H0l!H zQM0`ogbZb14!~C}S8^jxCCn_J-g68J&D2MR=z$nS2NH1?vuC@??Hy%+JZsqM5FaIW zc1}mM$u?M&JP?A(Mx-KX*bt0;lCuM6WW~laEqS3cYz5?wj zATk-*k#wD2po$Gn@-H%%DzImA#!gQ4F@J*!AdkDiBL#t6jWPzekN|IGegdmTCy-eg zy#|uRqj2MD=EL?ZnKvPo(6Z)a6JlT-utQzvaSf2Q?u-H|i~~o-pIqN@o+P74)V+>W ztPdt{cdw3^sjyfB^?rhJ? z*lZbgA_^FO_e2%2(=spS2oN5E`6*Iuj8Epv}@K#lD+b#SKg-UWp zkSKdm5+bpA^tcMjq3iO~3Ww?X8I2RsSomOBP;p1I2f#+^vT0#RF z?41V!cu|;w6hOSHBv--;95(b}s8)0C0_^rE6f)qFlY*D}iA!G?JA^=SaEasK*MJG> z*;ojek_bT+$OGgF77jpQql+>DiIY45m~$=%20g$yltwMYmiA}n57lv`DtPV^!tC)b zjz~5D7wAT$Gny7wh#Hg$SkwVjbHGXn3>Bw*tpb@kyvI>I`o);94Fnchi^d~ECowWL8!*mpa7LmtP6 zhvX0IB8x6o+0qurAtDZ&jvtO0P8|zUd9|GX$|eO7IG`bR!nwo?rh;1T09aU*YIz(L zQx<86&aCCJ-+sm%Lc=op6l3%HI+-Jzj&O^5|To-@#uYg-~fC^3=7jTas{FZxgxE7A~y=bm~N z;94|6HYCxtCy>6rs=Nyn7>e;7CF?z^mgy4R;zfhAM|_ws-hV^`s}{TA0G44mA4D@x zU$St(+Jl{Kv1A{-B^+^$`cw{Bz!U(qaUV4&^f~VdZvj5>MAF({;7C9b1t#>pg28pG=fFmnkgY;Ur3N(nNq5+Z@LIeww~tP<{$HZ^$G z9J8&i4dxh6cMQPQU~{07`i84Wo|&+FuhL&kdS^?vg!%+kO*q47!_11liL2OmoKZs! zj@6&+xT>UMx1iQlMoT8eK6Ioz<}D=fUT&&q%oHlhlQw3t28fsq$ukKS;*1(>>bFP# zht`v^IM}SAHYNeIRZML zw~WhGkO)*0&%@eJ?Er~92*g2nR;1=k-2pHAgq9z|XKbq+XFhU6o>Ip7iI>Z4%lksh5Ahvj+TK)(OG3X?rNsWX~ zl|*`9P?9l-WN?a362JnVrxGk&bsnlKEI{Zj0&`M^pG7=tY`4P`p=Z^Mp4V1GJ7J?E#gU;hy zQD~1mduaeI^CNZwkU4DeCQ+pKF&^F;6Y0HL4ojJ$9s&RD>?kvsW4GN*VrpQ+Dx?v@ zVOp8qz+}~eZe9%HAcpA7Agv4*5K(Qmo+OCIGOBnqvXz--ZKYjT^LDn4Lgev5`(w9l z1-xB`Cd!Qq#``trE*sXsg-``#s6Jzg7M%oN+KOR>lDQ?mCEef!PYo#v6=4@$0C^h( zQ%o>&K7vtW3^A#b{86P&kQMr}_Cm25Kt>h<0dek?RH#<#3Tsh@;0)Xos+4qw5X>Ht zkk71%fUf7l02~-{fvy5&@x-K*9}on&E_r@|3|hF#f~k+CKu+@yoh&Ak*P%H=Z7~Vc z9?fb~#y%oNk>@)=wliu|CePa|CMaN8CF}?N2*wKou#$7BvDVWY(;$t2EnPg!gfK;J z3gD3yrPUEK38+?W3()xZWAwqv5B{d*of!%g(B*`D)^femwB zt^~?#z%U0W061fVT@X_4$MwK02vP=W@lX&4l;jEU3cM($FlQuxw#q}{vr7Tpk6+SH zf#d*0m~ciqA%7E4fE#0GcuI0Nw#}HG$FIA%9wdY(GD!f%v+%Ah7y=$OhZ1$F1R1hW zsThi3kwN zaWS{MmskK4SkNLmNemp3B<^HxA{1%Z!x@OjRiO%vxG_i6rQcF<`8HTaure{E|Ll{n z-8df10sDF)Fx(?lLzHkEXd~FDi!)%~=#aq{mEc`&201}GF^U2ZUNTQ;5@YNmkNN4M)TCOZrm3LcF`9cVU~72UGK!Xe zDc(Afs_7TVC&PbDV=Ofw7@Z0;7`;oT#Z)jWQd4eTWnJ2GiRiTJfW%;OSC=tQ!m>)Vxe&60z-V`ul+e)yrhB`4w zhN?m{dUXH2>bQRGJS1^ykggJ@C^RG3h8XvHPt%|@3rD>E2zVDqG@&igkj2_~v|~Wz z81XtXhF@CCO%UFPAYoLz1XN$6MSkRV{-q>923Y}6mH1wR4G2KI2ps0~G{w>`Zc#b6 z61m8MtWc$Cr1Cy4N#<_JWK01EL}!g+j~L<`dG$3SrX_rBuvf*rXBs%Nzn{IfW{7~lA*3HxjCx>($^cb-Icw+`$$FcmY5_Ehyj@5)~kZNHK^bvpNRm7N(0GZGjq$ zV2}hffjsOe!?fH;CUnQkRLJao^vYg-&Wp8(euFS1DL(Racm*`H0wQecJV~iUQ~s1)KrqGI_u*KX;r-xX=Ln zMF%P)s2rJr>L|eu;Uvxjd9A=wGN%sgV+3IUkeh2A>?4M({G>|n;HROE%<8)Dp}X)% zxrpanJR%a{&iKHtGs0!at@y440wM|&BWC56=z#NL6_SJ2k>r42wJxTJL`tF%Ps~h@=;B2N%$9-RjY1Uv+P&HN0FcrYQIIR|Oz|Y-S65u~e%AkWR}auYNTP z7A%1agAwg&QCn0dAc8z8LV5Pa=^U_F1S5tS^Bv-HMkrxd zAXh8MQ!VZA7rOHhR!-R2UhZfsyX0Q2*ds~i#tk8-mt{C30{ERUgiXfJfCcfD%Vrsq z@fLh$?6948r)_g^C;1?WK_0h@CX^lvNEQisPfXiuGI9ltAuY7GiZ3Kl(p?hL3Su$p zV$P~f_X?zY01e(thBaV*v4)I}hMuDc=w2IVhu#hluNCm9b;`02c8XVMsVOr7lsgb{ z5I_PD*d_Z2_tze{!+a?1r}H)}^BtR$86)KF`j@t*Vpa?b$&&UYpxwc~DrYGc8OWKL zu{MP!^heA!yB^!+?bS+ynNc2vyV0^a9MG48m=iFU%EBv55oYu*i>EeNfW3jPk6)5m zaSb3T%JT(Q#F*I(Uyv=3jJwiR;hWpt$j9L@BNRSV0(EJb`>=m@%blHc7mH;xLIz8d zu&Ge8!K#tOv$!z7lMTvuZ(Qz2@3x-N_|D$n#4Q)^bv2HiQc#U7GN*K_Klz1o1D zwhXWsmNy`8OvY#i0-%}t3B)Gw0cs!#wPf`&c{#HHVSGkI%1a2zQ`(GW8sSjXM9UzB z@NsQp`La!-V1BHflQK5xgmi@slO(NyKKwE&V%M%ZX<3~nFLkt)6!wg7!}>7{ifhQz zwElh!O^@3>ats$cC1#0!(?POWKWS)!S;(09_brl0>l|^<;{L9WLhc z%5qfHB9cI8$4Rt70|c98Av6G3&MR1CFN`thbmR~XM76m@fKEa-^n1KcIMNOl|J^V8MrFTi$>ldi}188gfmowQ=p*~&B9ePXu~R!x3pPQDcp(wxcPu}yUN{E#oL3d03Cfyd$wHNIAQ+(m7up5dkP4}2 zQ;auhh&`|jO#0afaRgs|N{`vp>Z zsj{lvs7K(EM&YDJ2}<(Du;CRqVNUFjbz##P$7z8snLQ$^Mw(Q7 zzQ-D?4a0{`8|U-H!pthV8@foqGlu?p1!Ze%$A>CxqK38--y)8;#)FAyO9E_sqe#f> z41-&O&y1HC44-LCT*_+Lkz8Nel`l_=9@9gvoWr#|qI;P!7}ypP2!WN9x3wd^}l*PcOy8*!TcbF?&{) zt^hZ|tTS+4q`c=;WJ z@%R!8sxro6bOr8#J7qGNSC35IP>i3FcF$WuH{2FS;1%gnjfSv5HJsF5Jpuvw(-##0 ze5B%6dGNyf|+f{m{k?3P-s(943bf!P=!!k;eC5n`7~r>V@<{T zFZ#I#KRs-UmxG#mda8tZ$6foy9r?Ci`JB-ntfd%PqemE$78+EWlMKo5l)#}{&Cz}! z{FSpzf^Aq~PZ|uUF~!FP3pR#GSPCb}0h-P6;pPDISl=m7s5Q`)aO4c^jU5sK?z~&- zksr*Idr*y}!uzLQHDdh4LMB*a&v2gWu|`%6NVO$avJ*BYc2E#|MjrXwiu5TSW+@+w zyLt#%ZX##xs*?)b6&~T^0uS6luslL|ojn|%i4jB;zz%veik$^xmI#cmKd@?bB0vZb zBjA`|;fw>`?L0eY403EpNC=pfX`6}UOg!~ys5dU;5g|wi1>6>?3UF{B;6^6IW}G3q z&d!)O!q_U_#V>~3EixZ?ST5-h>3os70UzA~4aH+nNcV^b0QB*%T&cU_SXcgH&-xD-L)) zUeFH{NB~Emz%6iF*b@7|zB(Pam+I}IJs#btm}*5sf>kZVE?(KI0q<}=p&pp$2HtTR z!;Hn6kU|(p7Y3y3SaWbau;+2P#oE6$MrLI1t5(b!9kFtIT@s9Pb0hJHHFygN=`pdL z%{*Kr!>p0{u~M+ZLLjgNSOUXqm>>I;fN=_zEHvZMhBmygCAp9^8^5??qn0ybS#ac%85Hte zBryVv8;~(uMxrj2h3)X%0o)cur~qba8ihR9XoiS@cl3i(KM}7as6?`zfmDPGy(}Xz&`h6QD76EAee2?k#^-6jF6DYC%ZEauz)ZR3zYG2ic2z4FaCJ& zLGM7G1yV;O0P$#km8d84lwc^S;{e%2vH9cuY#VYiU3+F}LyuXH3>$H%(49Ga?ty%f@W<+TIqT98lVsn_(q9Yj zmT*|UWQfPvyg$M+p}N6C>XXcnBrZTAsz6pQDaIP%w$zSYL3QW{=lPnH0Dd~)$Tq;m z+G$@dfeSGXVXW7IyLfI^OET_)&vGR0PgzWq1Q-v8V%Q87RPsdD$Ufbx^@MuK5`Pp0 z*a@{lKZ%4hD1l2#+MqY=LMn(OUNwtWtT#a$q%d!{QzC(*R_qptRl;TP0!H{n#D(Kq zVIwk_G~R)e4z|L4z}fDRPv?8P!5;96@j4Lt7x7 zgWCY3V+3dvwE)T*dXCi(d_V!FFvzy$pKO~!X241trcIVi8WGlv&aas$rgBO)B%)+j9z+4C%V|4-}Uyk4G!v7SC}!ekm`X0>*8Y*#Y}jXEOoSZl>w+tbF>U&*$F#D ziHOPA)KB=SCdO%cB!>lzxQ03WT3;S+XGfBbgia6#9AE_@a38p#Fw}y^VYxE-%9@)HGIK~31c#3*hvTW0aR3r1qz%meX z3n%4|Vvt51XpV5;AyY91ZY*Mb0a=o5L)krD6$Qwg-eJ1~#%$cfng(DH?+i&4?(dKJ zLSTHsnCbW3oXB14*NwSryvP~c2$ay4odu|p0GrTCL^rOP<8x64D*^*cF)n8xojBNL zK~bxK8GWxe7g5hnpDyNVvR-88(&&i;?A&w|>ccoSWy}&XESnaOo(J2N7r6iq_jG_f zn`6{shy4S2xgz?N6zn)f!cG!ThGGZ9Z~)jzn<#RsOmk!1>|tNih^y=YfJ1nOYS5l$ z{bc9GY@e8-Z;KbH>T7f1h3nxxbNOnee&hOiGvY0-$*tvj!|#-3v4uPCIV2e~`tBog@gk)x`ZlTgA9gk15+-chdb~B z{wo`YA?m~+bufEc6PMA?;ME3xp)tbz)EpI{knt-+?COC7?j;SW4wr$P&d@J17$L18 z-X)DDTo8^LR49iBuyS>v0c^zxDH#mm&cq^jLM?^b*bH$&NcILI7#kI5&Mzn+OjV=- zik$?5AYIb#>8hmNjCWIIjK*sPZMfDVJj5XGw1`?zBPhTV^g~ya7%y@LxT&AmopFi% zGdBK0ebmZm(c>pkFkPD(z>BN2EK#u+0i99OGbswP5>7GQ@#^w=KH0`8ByR)=3NXcq zWKBN&K_DnW0|kk0LJt~%d`3NB3;anBvk-OrwngpLSWiP%R#$HlLW};mk=Sb0WV|-$ z05E>~lJPD5niy)45k%m0h z%8D=?zpRL^MSqh*;{jr;(U>O4ED51XPGoF^3^B_T!8Ns3TN~s&d`kWwv-RqIcp_fN zrAJsT5OXLN3zLxt!T2D+XNROJyz(HSnXH%-D+S1?g4hekdwD3U!=Q}4zc*$$a|Gns z+^(dYN=Y6qNaasJZO9!2v0hhE#fF{45%b=)W0_~N5?9&*O_ar`uUidMja&)|`X zs)RzNi13P$c(KcXjD&|r07JwW`=$DuHpJ-S=%}?62IkG}9hucVe|*4%tCh<}Sc@@s zJq5(z+FgLr9xy^AQss#mbik3QEoJB{GpvkOEC0J=0^@2#Qq;z)8kc=j};AJ?>Hu!cYjB z6qb;11bMqX?li<6NI-u!lCC0e4{U$rJ_7WUFE~IgT=gPnOEb`o7XbMh7xN&}Ft}%( z;-eZMtpl%?^qXn$bn}N)SM*$Bu9A={Bd)i{Y%@TPLylt`Srt z>RqNNbhk1j#0vq!1YYKjb`_(zF#=D#RGA{60>J_nexrT4fC>}b;b8$G%A^&9oeRt3{8~fM(Mg_1N2GE%qQgU97mY&!~q#h z7sUC{vyp+!ha(R;e*|vpO|T7tTRlu2bcFSKt?$Vz%pT2xZ0P98E5KaJNp$R9^MjZ}R z3*6F$Gxx9%3LIm}v~Rd6)N0V%oWtf4GStrtj9D=cpz|kPU1}>tur|@3(bUy1U?pB z7xxW(m2~b5*#UMNkBj`I8jk{1MR#a}?OYpeqK0SFc<+{)dIZo~lDBA-`ztK=(GJ>R zqtFA`kpv{6ftcu$^VqQwk%mYZd;xR&EG$|bI=oT+Wu1$VXD=uRtvSM+U@3 z9=Brr$bb?uL(l~CRjy8f&n2#;P67n2@=pLLiK2J5;XrM;6Z#o8n5}qpG!KaJfOg)fUdmy-4fo~+UU_FFqe$Q3zGG<9xp;j z5)cH{liA?o=IT6gKV@P0u`mDDreAMSB*tPuz$N{qRl5jl?Ib|*E2 zHs}OVwE~182|seuy^hIBCIp&I7uXX=+rV%%LE#Cc-m6qcHYr7|eJU{lJK;V=9&m4b1qBr&{blw`=9(iPJX z?=#i`VMs~(Dp1nb(PNuu&uWvE)%qUO%n4MFu6HA~kc1sROa?F-csF-_Mlvu<58L&NLz^P;A0heTPIX z7O6z+W^b&NRiwqH;gP^Vp9vn##tIPXMNzPT3{eIpVhRt^)<>Uy^vZ8OvETUN!*_q~ zum0=_i|Smw%}~be=k`nZ@A>FivHr-hEf8LU4WD@g69N>v_P{N=CnjOGlsvxVYg`O~ zFnjV0R4{CB$}BD}2Nr@45iiB_LH@ z5(0r~o;8Dxd2coX6*a_B10IV6=TQt9yr@;31cz>$oswfciVHmd6 zattUn>SDyAK>Bw&AQn={j!ASznta~z*G!eEw8R@tO{HJLeqG%(U)?%;`P5+_(;4p- zFL>qwQ8J2c*GcVw<`oHWGEHHSm2@0qTQ-Bd)AcBFhVVMAT zAQs?^3n{KH0MG!Z{DRz+WI0UBhEwuq59)L~8LCqOmOzp$lZqLzN;swr7B~|c+Em4} zT#DwNeiR~cVP4PCh+S3gRRj8^Z7AU*PU?e$8ZO4&?2*L0>5)bvb{Fg96Rc!OJ&0#) z+GS%Z#|2elQ0Eu0*c6i?8!P5JEZG?(8ACSu0ek=*xCW}~;Z4#NX66=+Cbnx4?@S$d zdbl9BgvnS?4>@DdPxZ^;RcKRlj@Xz9DPy;co>BM2bKzKd8^F|m;nZXTh@986z%se% z5hR?78fef8se(SLr1}YL=hx(qFdGWdj1khHV!8(S9^Ck_mxuUW-68+Si&2ebrqdcVfRw-Lz zy0;a}t}4%|ttfKb>rS4-e(c`kr?zYK^j)_iPq4s_@oGF)Eb0r!i%)N;!N!Stx?6nO zWByq0u@g7brov*4QK0^wa$k43m>RT5X1H(P>WJy4URy|P=CsD*K)8`58d$K+AMahf zu%B2C+`9gbyANVv*Un`S#$CRe2X8%xwRAt?VUDLT^153OZdkc2)*r+XnSRJS+U&{FbI>8q1QrWmN0JZUPBpMC?IF*s99FN`m$7=dRzOo&~1!l;*l z0JTx^*qk2Eh88WbNU1dtI+?w^ab(y_3z1aR*Ub<75J1Sys+(ZDpC!ov|MsiI9Q)B1Y?#Z(Ol#*vr%{jdg>)G0@@FW-!9G zVS6n5R;rKL?4A@9FO>wU*VoA2^@D^w*e-RyK5x%AnMlFu#sISf)hC%yyKsIV zvQb4Hl}aq*BYOnVqLL&^It>=c6ECtaPQgPR@LzkJ0!dje$kIAGvy+8uxCa2iEYA|} zASys0J>VcB@G`K&mfQkQfGwxfgj|lx!xNdjwlceOBeWz#Xdj8wy@w$N*Hf)ngAB(; zV>IWyO{V}-i9uiuZL$$@RvbY&uo63nT3aAJ7<}-I!qJr|y0mDcWiBIHk*y99A|VyN z$b{n~232t0)GS!--t0u+R7nVC`~+2^477nQa%pGmWtHf0FP5p5#Mm&D1NBH!ImU$* zO`wg;L3bjd1CVYHox~2!5rV2PD0PQU67pBFY*;?v*%Ql*)TqIrdLzpbC2hna zj6%!Q7j~elwm>nKg-FjJKKAUVjBQFVyoACTBS6%}XEa$j+m@x9v|Nm!nx!10J^a+i zCgg_(TO_NDL4?8%Q&g?WQQOn)`$3+X8Ix(0V&RcJ2$8aSjS^be-XDC0vQWq}*&+MM zRKc-JtVqpr*GPRIJR^kRk^LV#wL{eKmUnk&)5D+t%;Do(A9&{RlV|r|eBvV#B$wK% z^*gpNyW`$Nw$FX-&n`Z88JI|GOQjiyj^1>e&*a^?@6@>ix8HNfcIMKF)hmZT^T%IZ zxqRUE3&&4iJaNb6Q%6tjJnF+Vx8C^FpZvkczWB`fM=xD|@}ZAD^Th65%kR4XcERP) zk()T|{sU{9o4n_E!^{~sfC4bPXV0n=ckb27O&iCK_%7k@6}KE%cj2+i2M(^k=VSNY z_xR;gcOOKj0_PsMBa=6PMz$-cT(sX)2Fsq8*W@X zYO3VYMg7v$)hlO>&+ESBmNh8%C`6CU^FG5P0uwKQ?Qqfq4j5}m!#Sg!`%&(z5O?l9 zcz6?F_f*$i0LlQq5U_sToMnp#Muu8_3iSi8-xrW~!}KZB%@sk(w5hgS^--={TQhy2 z*BF%NwkGhGv(o{1wYYNmu-StS#^!XcS}{B}x3i&PTB*?>&on%me6nKMATmy!+kgD_ zU7k(~F`GBd7uROs=JFEHyzIh!VxB=|?2+ZCy3+cK89%l#zP)O#%qgTUtnH1sbTW;Yrt=vnf~5#Ur)=8Yv&jR(vXOzDkC$D*|F{q41Da%pVf(mIp7fh=4bapwq%=k+SA|+}0MNj-Iwh8xR#K0^FrAJn`ZGUwpf=|r zm}2l8LfYJgO_gXu7($ZV72sHh8QO4geIjuO=)rd3Pozjr@g zmtezHVCxMd_)HY4g5l~{54ph{xjLI+Kv;Ic&_h<4w^Mj}Of zKzJkyw;PQ&di}69UKh$)>&)JC6eG07qp@cFYp8Atw05b0kjVjGfSqszN(mS^WyxM3 z@>1&FJ*#8j?)SbRqCtLaDx7;k$0f80zRnN@;TS_>w?tuW1i2+_zxT>HLmz_0p1rH? zxNyAG7_X0PzG>`P-%q@F;@-zDAM?Ea%DKBfetz4wg*>Zf#-!8dkN(cT{Of1_{EwC` z=`(?0TG3Hlxdi$l57oL3h=Ix75UpjT?N6*~~y7#Si{_x2iTer;Lx@Ez^qnrDB zJfXf}WVm(Vc()smoZNo-sYma6=1&$HC18d0%q2b|p;aCxxEEZ&Jw6Dxc{(rziOK_2859^4 zEDY#jgsbXE%ERHgAmXP784eJGBRvSg%kBBNN-;jDQQ4sEONAgBF`5A5(tB4y7NkW? z(T$DuZ8)+t8*VFx9vLPFcb5(@&XRHpW61DJF z6XYQ8Wo(!g(+M0sIv{ib#_5Q4`OLbWom|>eFyIf^smZ`5Ag!yD6131bfdg}Vk(Jg- zm{c{PM+0Ed5To3`|Jw{^pufVZ&3ozWZtLo4^YM$AT_cEiZ)L1caD>%>8r1jo#cDRg zF{QzpHrAVM1-$qYs)${D6k!=K3)H_um2QO;Xy4v7zxyx#T37-8j8HKwQ(vOGG=L>I z89mTq5)tGlItAi+Vn?$?@uSZ?zGy)o5ZktO!P+&$={b82Z8-bbM|K}vf7_)~=N^CH z>A(2Xhraymqrdm1(OJ##cJr3;PyONV9Xqpk#;=TwHaAV$ywzLwt$*^b|L)>5PdxJb zUpjd9z}z_{)xP!C8}_@7Y~Fi(+ufgf$nl$RzG817MVJg@jo28sIdkFo#`SaOjaFRB zKWo13+P`-Hk(-t*>fGqOP^}dTSskw2=@BrkwN>yF$q~;P}?A6w;JuB9%96EG- zD;X|dG9WjeIb+K7X;V7d8u#vBd*;DA=gzLKzj5|(f8(s7(wfzSt5*#;Sh2jfx4RD1 zuU;_(C3S=3k{{^1M0a@p-K`ZJWP-!|2wV7alydbJdCg0eZ*IWqMn?b}vWO z@}+$X$J^(QwvG%pwY6TI%2I8eGSKJA=9I1uU*ecDGUU0xwei~xC0X>V#)G6{WqAG5 zn4;MfU(v8wROi{b+Q?5 zl8?z%BvH_e7jtK=Ktd1%jsTrw884TV-WaOoSrQ%zvt#aK2pytwWDpJXI3@rG@30+= zD=A%+SsBCON0K_e&l3SDoK(5ypoC*st$r|$I|PVX&<3u8L4d3huw#Hd2i4UKOdRuc z9RV1N41*!@$mxmu^Qi~OLJZfosRwN!9RUJ_u!0>}B%p{gASiKFMlD9*+IWuUjF|`% zpa7c@zkcfzYF58gUu`hfy+G0!2%JQl03`6CRxttrn*fBkI<3$k z@fvt11Oh}SDY*sO0P{p_KaH{Y3AbhD>Xg;z(^9A|f+(gomo(&ItDspS@%~}B*|on)OKYAxmR;u-TPVcK!n*(Fk5jen>1?TYYVegqO=TLvsf5 z%;2zY%Q`b#{G4f7+UA-$v#LY0`}}Nap1FKk_l7NF_4RRAww_@^e@9xqM#cCYQ}s&QKH>H3R4aKL7yD|}f5F~Ks{;i;Vo!}jT=gIrLR1QPf4eB2cReW_jya=f(fu$-Jj}QrnrQd@x!oFgXKN$V3+gyhBld zEPK~?z^u?|Z!`R293FXO>nA)B&WwBDLX-i^7=hT}I!6`Y67Ydw#$n{=a6V_nz-`O_ zYQjK=%>k&-0veTz(wDG8Wom}}gn&*#O7BB-%RY-CcS0a-GPfa;>aFx8QTNk`Ixz3< z_M|B^;#dJ>dw!ZP(7{qc5ReLjYL**|7Z4cx9{(BVY>M@GO$P8H_;iM9W}ru1E#)Rz zIw8|0{i2PCkb&AYt7cbP>n(O|>|H~VYL+1BV>vQ#0FKigH!m@O zFA5ltXAfkkBw)uTU6X*H43ZJ*ra2aaSR*;0+!$VkN^F@+1~xhyZKXrJb3BF7xLhT@BJtbUU&flJ@;a9 z{zvcs`1|j?^}X-C`GX&RKd-+1{qO$Z-M4LimaBCM5kGwI$9@iu^yo6|JGlPDJ%^5* z-tElGFRSMH7hi}b-gy06_Wr(C1Of-|{`j4De)NO4zV~KvdXkza8bZ0N*^1btz-zC4 z)Be?0zHzPack)0J-}>guuYBv}{Q2GQzW&W`zVz}-SD8vK@{+wvZ@%%0R`NK{zwt)& zJN&)+>NoOu!FaTo{gJ-ThR(JCq9ov2ntb)A3SG+9U218X+*pLiS6;bF4=pI*@A>$9 z?)ev+lrh@_j z;vHVcrWQ0bn7wa$q;9bZz=nvUiC_JzwoTb}$I)BP9BwECrNBf<2Uh(x!UIubeW%9w z1~>oZ#c~)aC6MP|(khq_l-uC52m%rfI6Kdy(ZKONriAAp)Kzv@j zh=NH|8ENRzkcNrkbWL|p{qa{n`PDB!^5theKjkdnf9HD>KK1@De(v}m{_8LD%mk1o z8aw&oi-9)&61^vY*O?C`U+?|=XHNd)XFrY7$`|nN;H|d;D!=oc*X)-s>$!2=$nO1X zHr+JVP#1}X2uyY&S+*d%nY9K zpl8es1IE~no!DQ{i385P$qhQW`Sbhjv(zg-dycJ10#?^?BLt+xVj zQX*ac$A6NcbbLxA=_CE~T$vI{E(Df36Sa+-`s$!+=H=bg0~1~a0D_s!tdX+;{Inj) z(}Rb+NF{ge)@jV>Dg}o4>s;6hV*8rvpWQ4c2-4?Ia&pH!sBNo8#RXaBm@-H}OP^rf zXO_sd#)lt%5ML9vr&fydf$dFiv$T<&_`M%w5~Q^2N9iop;E3l z?E4IOmuT2@+1K10N8(5I(lfOWdKj)aRyHjngFCt_b&(N<&do;t1 z*3Ak;XZF>UAF9AuKus>tt65i!J35$>0kzUdmH>9@x00P#B_e~$O}Kz}W)on}`Z!pMOEdsy zg;U4@W@zIKFK`}~GO+lA_V5{+nI_0j+h&s#*z)5=)ziuDt%r)4yPtCVBI4yHwJhxGQbqx*P3fbUNRGptw$(4=03m#ZDr)|`kK z)o9wv`^AUgC!UHYZd|$V^-nMe8=I6^pKP;n{Ka4YG7^ya7r*?)U;gc1$JZG6(n)U* zi9mUVX+Nx2eM_n{TSOec{MFw`(6r+#1vnCa{KpwM2Ue`!v3%3vE$jELoi<}&;B3;I zlQAc9{>9(?Ra_ngnjOT~ggFU>oe!N^A}Qp7QO^J1```V+55D^cxoJpDBGMhBz*{~8 zhZ`0Zu=e{u&UD)GQ*dN;=v>sYYuApx(j*Hzw#>_!i)2%`AN=5Za%$v|1yNeSru^W& zAiJ(ns(fTi*dAd1;fFW%_GF@Ii0!HV?ej8`zz8!L$)TksKQ%FwKmnD^U^I}aPgHbT5XBD!!8iF?HVi$(1T^{clS^C< z!;Kol8MXsn`JJcY(t%B%WuUBr7eE0~i4syKVY`|@A;rRBa0;IdPtw69<`I5!J31JA zru}LzU){)8S{a-nL=0^ifI02d=%&VdK=*Z$QC-_YW9l?$g{v}vI2Wp_oMZ$r*9i1* ziX{jl_+0K&1;{l`p-otCSRuj`oH^|;9tUvznhU|TCqo# zFc$!c+Ry{4288qoo&_cYb}A^50gkl4Y@i8hQQEU)3u!34sJPH7Xd6P=9LmH>bFmF- zMz_}Z8X-V+<;uxcm89hJb;}zb5%6ENDbI-L6#4sOH@X4>6Wt5(n)`x5MCn? zK*UP460t%G$it3@5k*lP(Jwvo*uD!#yOw0L+@yE?<=_6z-~aPJhq7HUpid03Kl#(2 zMVUDl9|RAy;Ov;6kibt)DBdkeM)$R|ku2;}Q$H%SU8gjGBMk_b!EEg}Cc z4JChS>UbkR|M^eTgu<^OZc> zqFmx_WCLc!1xWL>XDW{!noOdF1BfF~!YxPpio)(S#kCU#F}d%(a(>y?6-zhF?^A<@ zm11^VVkxkXHi2R|v-Yt0z!`ct@HBqmuuor2U^6U5=XL)z>L{!;(+3*nyucP50a7q1 zgF!@DHIU&gG&45+L=ea$vkM_V&;ydd!DA9AbYo}(&77AXw)3xB5^=y*rXZvD!Q{kL31sHCfQepoSR%DEXsr`vg`bCPkfzCSsRZX23Yh0|QPb zc5~F|68_{@0hLs&>S-l4l+#I~!Ro3q!K`ecQuRz9&?$I)P2}~-200md+|(bmG+zVk z?X%5KGj4OgYCxP|oZwUhQSmHM{+ZmZsEYegE5NQOx08rGjEcBlT)1fA z*k}+K?k&hee(4z6#M{*O;_bM*rqhA7Ia+o5cVrD{VtD;L7rubOP{=#wmMmjrb*(Cq za6YUG`30Fy52h%7p)N`=ZaY~!VVuuD|K%?d0yKo0qHdXi;Lm>XCx85>KTk3u5Ue=2 z%o=dPVRG!4s>1x6UJwb3;0yo{=m@*9D#f2-lRg;=yrSG9*==%_&n!OyMC4AA6zmnD zxVFuCUw9&S{Jq@dB~AGoF1h|;&Z|dJgqkB-Af$jA#v^p>VE&ica8e0>>+T5zGqMvuwkBsOHP8~07>8g z9%)424jvjrki=M~_fqPZ%_*fo9+pz2j4T-f+aWOV0qdZp%Yi4TCpFyKG#tDu4FHk_ z0G!h9Le-Fg(nt+fCiM0bAfhb;2YNWA)Loo`{4zjV=hY-bwsVJon`(Fv)q_j&D>Lju zigi*om>T>9pEEgy67BH^fU`Q}a4hrcH{%f3#(y5d04sVmlz>;t2P5*kRyLReoK*mN z5CNKk1ObWcHspx=nif%v>Fs_Z-N3tMQIrd{C(v^_I1K{=m~snPM2DyPx{>=b#ltt* zfSbzr6=GB1>GOV)kVgie6nlSEWnVLm{k|*iLJDh~;X|w3nh5r$v?`n@Kq<6jqFa+A zbZpZls=GXDTU^vhTe+R{S%dFdNzVF7BNN=m?mUxi0aM(*EnpqHN#KvnE@(HQr-?4 zjc(oY%j|RAtD9b`aK@uMLlaf>sk|3`o8)2`U@rX=s6GatVrV7znFFvQ+iJ z$I^wPb+?=&glj{YEY6uYqNvi!F0)om@7yhCyl7zLDXZb5kZHZu18UMu!*wUr@^y3#;65&H4M8#Qe-dCiI$ z8&}_P|BYQ2&u%|=YWKxE&OG|ymgBnz_U|e{Rg||dx8xh28CP2gPw2?jWL307NT>2_22dn@KuBAUq0Az^a zDk`gqzu^qi6z*~-T?-5iWLhzp4ON^P%ya|u)rXD^je&MJ#;~XWE8`c!D8b!{B-esj zVTMAm-H{gr8Nt3pWSB1q4_B1fXGKX96EId)!IAQ100j#4EKmqISbgxk?xGIBnSx3o z1Q9Rg!(+Z7w`r&&lTgW3) zl46e*l9dMM9XbN0bt<|ja<5O#)gP8Z+5mQEvUbaSlkAq1S%F+)6;)|!tL9pduoJZ2 zohMPYHen0QmNh-IX%S(edNO!+)qw4G<=_K9ZcHB+x(f+HYPdyw)!KR{=mzYbQ5&j^ z_p4P^uTL+Vjb>h~TxCRRTPYBwxMthp((VPu6jhdug<>XMQC&KEbj9>pwX3%;3pD6a z*>29_F}$D~jy}OYi&jlpwrT#ZODAipGmH(epie4|t{BQ8$m&|$tVcy2s|%O%S@VYN zJbQThj6stp^*Ma~{J|@yHXqn9b7pN-c_w9Oqp&m#zmsPUnlXR)%=yEI4(U2_RE4km z?ztjQOaX?C>^^)%*}}CmCrs|M?T-C(myG3{&*OdkgkI%26zWpaVbH*$f&DdhR%uI9mf!p$>Ak*2Q8y<<9n`0#Im@`Q)g9^`JVQ}WH;Tk>JsCeS zgT%ooB(6%lz&yk`L&|uh$GfZO-o}gTS!EN(4uc1FCUpF<%zLMOYC0u+mmW7RtA;8~ zncB}gy7I!)hwr{PZ_yY50@J1s7&Wqd&Z5ziCif}r@*9TnWY`J8tw8JoG(%CbOU1~K z=rM1>XhB;HDZD*H(6u1n+Ehj$pslzebn2Lw<8tg0-Z(d(C-+~4OXo}*K5IO^ zec#oKYY*=}bo~mw{lb%vZa=wqQ2$aS9#pKf4$JovyoVbk?H$A!IB*j9(AA9#Dku%d zNP%FqK2QlO=-YsTZI&#cii2pN6q+;0VsEF)(tBMC=zt{D&1@-0x0o7mgj1SZC{0lc zG}r+$GytK>bUD0boN)=sVlcX##z;>Fdd?Fl2B~6IEc9VlxjQXgoey2gh)~vTn!9!H z8YS;JwVQxIxPb!%T?YB3w2Tj=ZoUMZXPO{!0K1aa&_uwqKyTNoq^bfdVhHfUALl`b zPZ;8iKln)ykcI@7TFC?d)sR-qCZkDNFieg#h$anpAn;CK^(!_0@RgIy2oN5B6nW%c zbaIMl7&>5@uat9mPJsvJkX+iYuw6Q45VES8g(P$RnLP1&%>8bo_*|oPb#pbMGJdD zHp#_Ym8A{Ja7bwivtz@zw7K_8&jqM)q8ONEhly_!`f=|i^+Wv^j2cmu--)kAMl6scbGBPVwhK^zRXmQlMrif%l@455l0}17ly$1;-l?WnXDo#% zJ*fv=+~al?Wx_Bsc#oq^&X^xY>@Zdfw=64d2ax;L6sL&M`s}~)f0$o><5cbo-Me#9 z7AuNPOE|5lSZn~|WRVHDwevlD#6{Jy)_AKDJvAAa+--DeJo!{s4w7{;|ka(GIBcR*y4 zPKkoRun3$QCLn^&M#G_dgF8?L3MkLu6g1Jd0RlV(M|5L~F5t>d0kRE`!m4AGvFL(L zIM2%+T1vxPDl`*oMt^$l5YmRF%O-R$6$RNwBun4kU7@jPL1>H?$y^4F&-{5KOcuBj z!N5)1moO&a?ts!zy;pT-Y!5h^wjbVf`-9h!R2;l`JV(}aX35g=dv4!*^saNq@41A< zLhLZLbJbcDsVk1&d73QKl2FdDLV0xX{1H08`kZ_0ezIxL$zAS?&gj_nv+ni48?Qd{ zsW%^f`wgEI$fI|iLGi?33s0^+{}gJbv7>w4@zCAQU~2Mq;F|zXe|dSWv^jg4@xm-- z6+2_J!-LVbg{=?a(mkJeL9K9!Ton^^;fM!>a_)jfN*aq4rJ6s?7jtW=pxb?Y{q(m# zcp`JEdE={gW%@>@Ap=t0l759|O1Sde<4~~^ny>a;XIpzfR2vzyXvel*@yQ!k)KlRe znX@-tn%oz6uPajT`5$tZz4+84FMZ{UnK9(8*B}4%+Yi6>`tiFj-0|?exJp{Jx~U)t zd4`SV;5t&D-hxKYX9dm~rZ2JEP}*Pm@)zEI|C{!0tggZ;fY+2KKvQ}hot%dZYQ(2( z=l#+%AvCpy{G#u5R5pCXO0p45gzs*g{MXMC*@#CvBJ1FN->xks{Pk~sjY<#OLApjb ze)oB(ZVICXd}ZD8_2iAq6n@S1=6m1Nk=XMoNI8o2A$SgVpV*1cYyZV#d(Iu6w{Vo0 z7g|$Q8E`1-QE3C>4mmpm_o1f9yM&?->eo%oqroczowK4Tc6k|EhW6eCiWtLx9m=eg zlP68;9ixm0ScoEKLN9vhhP`WKm^!7u7$F}j+*?;yBewDR#^NI`Ggt`kK zrcN8cA9C~2ZKof5VAKBfOIJ-7vNg;h!v7i7{4ws-2-EEIBuaKpwAGh`6TsY(mnZ7s&- zageruM`4Q=8T_zWIlu-TxNDczo!U3SH`}R$pv&9T7MKft>fQ};3QI^a`Pi=yx~gh& zp+&RX2*I+__C@)u6KyI=+fbfa-~;O8N!zw*T2%o6y8}-)3inDC%kKK$I6M)YEXWr~ z+oZUtO?mfDc6jMi(}l#enMK>SO$!U!U_}t~>y-`YTO$5fw3nZc1avTSe^f;`>f5VGP-?c8+N=rA zfzHM4m|s?Gm`h9V*uKfe69<>=uA9Af;mQL$>tXoj<$4q@H3QIS{iwwHRM$a0%lnrO zpFV2Io^4BaZ(etJ*Og~%$Me`@Z@zx+@rTbm`oN*9r?IPn7aDt9L@Kkr8<>@lhUa@oSDHU&Yy8(YBuj) zxyOp*qHy>}*}M z@7y8GPIY@$U3>9q%u!a~G^4-!Ui-v}`>v^mlMoLLk(Ciw?K-&=ZGL?NXU(h+$6t<{ zNK{&TN`+3cbos<9&p)|&-`W+cryjg~>hvS`Za=*F>T^%-IJVX8#7pkJW3RuH_g}mC z^dql-^Xu+*7RPla z5Sui;txenJ9Xkk#YSF$!iw>Po|FvjquF$$UmO`q&JA!v=`H8zP(Ep{qTu{#qh6Gop zmLXqW{rXq2dua;Z3k3yv9yVU|paG@1nQ~|7RN6JKprhUCk*PMBG_g0%li72I4jWQ# zj9dH#4qh2;ux*7H$|W zB=0KA+xPBSSX|i3tBigiPy2RFO=qaA#f4dzz|g^^73CC~#u%Ke>-twxtc{)tzVlHTnEjYAp*%X%- zi8*mXpB0;zOqy0ZZu-!P^CxiQ>C~Z7-+o15)sJUv*}O@Q%4|CoA~n6E^!SZiHX6BT zPVd3x>y8~-va4?4rlmVCoZf!s*zFJ9cj)@%J?D>~f8yaI*Up%Fn@WRsLyYPkhgeri z9UX~zAp_yF2TgKK)fp{WSwS=lvspX?tgjS%Ibk?$oax(1Mr_y~CT03Cb)8V~$9Q6D zO!Mb1q7WiL{-f7UuiZ3Hi&a(R<9s0dOsSxs=~z*LCF4femUQWjdseOAu?$($s*STJ zjH}spbgO}>V`F$QrJ~6odB7mC<*4mj#_v9JkiN9%;t4EF45Vebh`jFQMQe5}A2y_v z4Kv(st9o@`vw8mUdoORY=;g*pA!x zy34Y))2B}#c=X;YJ8s{Ho#~!eUp(>9J@=xQdH1bDcb#L4yYKZ^cb?i^kl&Jsx%T2S zeQJsUsm?}YF}@5*YSrPp&YyVTt|Qkk5I2O*sfTY|5^(h5vjS%jacn)Z<@96s;}UuF zoi|SlYg#$^!c&immwfG;Uw!>sUwiROU)Xd0$bGN9;*QUL;j{02`2M$k`jdAvqOi}M zfAV2M;l(d~9*PpaC+@vWF6hAeYBomDUQO*kZ{f)3Br|5!9=d*E)uy@CRUM58s)Ei* zGtt|R-FxNIGmo#So3Fq1>XCm2@%X)$)%o5}zVsks1Z-f>KCyn^+SJ)349rWt^W;X7t=Y*l$5S^%4!2D#3p*$h**IzWI~iU$kT_^>x9bF&p=+hHRrpW|S$5 zR!%PHlqpexjh6PzL#zDiHA5HkwI%W&LzGNTs}!auuCMVS>CPn{AJ@2m@xJ4 zy>!xW*nj1A3c32wTd*=Vq152h%>D#xa zptO6&OC#>Jch6397mc1Xe?-zcJXhlks|CY*}%_HW!ImHk^1IxQ|2#9!S@+Zk~TEcP8u`Fur&rdc`{wl+46N)ru& z0P`DjHz0L+NIFurA+DN(fchZ1q1zi%#<;)20{k$|QK+?Q*(AS1tA4$UCr|D-f6-`k zWQZfmySL8&53TKK1CX z6FZqbaZWO}^Kgdkw0Evcf)M#U!)NL@?+%y@%waoc4`|OUW3duM)4*jg>1JaA>9CsF z)8Z*3yrn~COs*7A-8yNuoGLzxM{(PN!!jH zo3(KCie0Px6xPUDi$+VwDpI&JRaSR9aP^Lf6MB=*rqWvvZX(3l+4fyMedNZ~nRABf zY`ZTUKYIW5<(uX^WBsLeAda9;d#{~2{lr6;UwHcNS6;gI^7D6o;)M&(JmJiRXPk}`!U{^|UV+4x+&Yn7Tm{HZq|dH1b5Uw+|U(XX$(=<>KKt!J&+ zx$5rMUUo7(y%8JU{mP4K^7-$6=fyAE8T?DfZ(Qk8oGEg*9D4rlizgp__wC~k-lGkl z_{=*OpM4UxAGzmJMOjB^sT{@-Q*0WtYun{DS-5<{nw=}RoZ3s8r^9fdXfggA=JbJQpn+kC=skGZ8kd{7o2N!$@xQ!4Ow%IkD^9Q;(i}_}*te|Jjod-`IQQjlKqnjOdZKw8n7F=PvYmdsdU5c|O31`dRJ=^u~mtR?)DZ{sTbnvf00c6?B_$}y^hZC-2 zd!*t`S(89?I+RsW*3wYbe?;_$MJ4@O(mCr@92dj6F`bVDkpx}61;9IaU`bIyGmbG` z3L6*xcGGfp5zXZP>JT}lO!8v*&~7N*Zn+kus4yYIg$Bc<^DsPmWvfh>X`7C=)@;-E)mUe_)y44;bbZOufmcgDdWGo+T^V|(uC zTkbeIZQ+DT^Tth>HFDmDC6lHP)}*N!y@jE*l>nCS7F{A0o+a8eYLeHeYSf^?)5k2` zyJOb6B`f!DKYaH!W|`d=P945}>HHIqTz&2-e<$y|W|7ezg673^^(?GBr@)7C2E1Eo zatrqDa7Uq#TL-ktX(f~+B4Z1*XGQnP#=;52;u^#T^#EV@AQvoj^3AZ?C}A0ty3QX% zX-wq@FC1O7anAPRJIlN0B{BUQ4^sc7S8c!Qftf=>d5^9|McMRLPov~ZbnlUA?CH3b zsVV0PmSRcVW!R{)Abk=%=&F@l7gtqeP6O6T=s9|FDk{9NxU&u%o$0zmCXNqMj>yp4 zx=8P;l(|O(m$M-g#*G?X**VAKG<4Dgd8mlN-87u>b?%&W)#Q0|8h&*?gwDh{vtZis z2kz=oQ=T%9nm$!}?9A!@Bzp9z!dMl*&RDqM?GL^+Ial)R#fvG})L^uGf$FJ*-<9am zzt`ZLSN4S2Ge=IHEL(VdHB`3-jv4jw%Tq8&Sxxzsm!FFa;pYA9=Ra$;_Zz?eV>XtT zzWl|<-hG<@{dft{EaPX*f}y*+;{ioXwQn8 z@^wdd)Q%hDr@2d)9=vg9W#8(QEi9s7p|oqp3Y*S%DQVv^uaUU8bS6=9scJeY(WQY0 zV??2@+r5V5WjQ>2=UE}KM=>%Ttcyuy!wVZ~ZaoHOPgK%9ziVmcCy%czh6883(#o6C z$9c=OWmUQ8`uc*R^-`D;s;hJ~gm=L&{H}5PAng<;k9)kL9GPs&do$5+v^Gqqe5vDw zr#A`S@F3TKq)|`#50aLKzy3d_ZxKVLB)_#la~6xge)1VPKuW`U0{n(YUS1R6<4lM4 z&2M?Lk*%SU-|)heRv>j{;>5ldQfDq0yZ*@TlMmc$C3NUebjPhibgGcbbn4KCWz35} zKL7Dzn{;g4q(!5FQ$|f*wP?Y%^@pxs+jQcSJ5EweW=i@3e8gC9F5* zbgF5ojIN*HCuu+uqSm%il9#wNKft8|M5@%_*Z}TE1%MCssj8O zQW&O3_7|iX5wjzkXYo01){M8`|JDN;H^LXpWti@r6ievZs787_f0JWt@vC;g#1)TL zl;7yw(~nJ^KQ}vHAI=$kSNqq#+pR)xo4`}Ua<`O}~NP#*{> z=Bq;hqYl>4wa-b8i^ykm%ZL(+h$rWRLdv|pZ|_3d`}Pw%SLxN)TR;kr z(9T8eYI+tEmrgo7uZjg$`>Golr-?=;>g;@SGUqBONGclHdH$b19dU+l;n=Y~!h^_= zPs39=k$s^PSbgb2w7_Qle8oCOq!c!Pm#7+X}ON)ZAvGE3FjPVQXmy1(Vp>` ziLA^BlEc8^f-dXFH!gk?HC+@%J^dk?ReBd5> zyOLk{{AW*_ihk~0J`A=vVKzr)0MB!(dp2DS;|$LkUUMw!v0D(QdI~w07`SaMmF=CG zg|UUZoz+#g8ZItHH!bzT@&YlxKkn(VAArZKpaH3naZYB$7@7jLqo7z@7KsdF3 z0)YhSfgWX6VMRZ|a+uJ6L&j8txDwBpuj3X!)8KR>G zZa9-rQ97_)B2h~L{J82bb6g?`OP%aiU0T|sTl|_3?0@`YhV4uQS6+CA1}pv7If5yP zbS*^nHL;6u(!1*u&u3?H&&73tJ49tJ)+T}w{p5%+Z9^cwhIETYa3&F0rJkH5h+jjw zjSGFoJ4$udrQ@f-?T|rtzxpzbogtcb>eu*5B1S|Sck#UGUf^Ax%JLQ~_pFm>_;M3& z#N($Zb=j)>_j={)UuH@gJ)+WA2d;IWku!IqQDvVVBgbaHrclkq`lV|{fD$Q|YLZ@M zT%K;1=p3C7oiCLWowlm-rhG|AC})a8|6Yz*ECP1eqnK`XojG{$t_zlgWJ^2-(vc@z z1bvOL)A;l?4F>@3YkDYY0w_PX#3>y|bm>H9l^`_aMIc^%-bNPs@l9Dbu`x%i0w-}0 z<)i_UE|G}06CEQyo&5M6BbzlumaZ&AJ(XE#2q`Km^_GUWh;#tEbYclh{*ckb)7?|k z5i||UNqsLK-%s(T())^Pr^k$1#Z@KU3la{eN`?buLjHJ1skDZ-?$n_N{&4g6_=xlweuy19zn$Ao2?wq`Q?wN-kSh9Vs(A4WMKKH;U zKk?ERK6m4l7h(JLmkiB;g&c3W059o|%{T#N7 zVH9p7FyE@HMN<9=baL3vzY)B1ab$b3Y${C(aF29eHoi3c33+_Yo;760sXgkOruI?y z^t#~^O(RVt6K_w_j-oNe5yLcp(Y;%>u5W^R^h*kV;>QcnjzJNVFZQwNGi&?y&a8f^ z=cjQL!#TlV81R#bN$)g}q(^OLaZLf;Nv(>R_^o3B8JSJ+h)7o%*T!A6 z+fVArPhw6KCNeogZnkdTXyWv&+A)dPaOS9Vf}oIbKmAD-jSdsy{BvLU?7_Rvuiu@m zusGHn-sTekYAYQe8oxuw=1!*m6Ac?OH=YH7j10g2-~Zbu*=-J}{CKD+!Fl2ahU*Mz z?0?inbK&Qsrw`251{#Pn>C{OAC<1MkuAjYT=ZXbO$NQA$7Bon5*?XjxM73iECv)nY z(ZReC8pvP$-QUJT3GgiL_K^uYs+!t7sgzOkq(><>9n_?5C2b>qDyiS0sDpZEjMMbi z(vXQRm(VrDlQQGHMBs4uZY`$I9U4{<4WeV*0?WR}U+T1}Vjq0)ex&1)NXrKE1NKut zNs70Yq_I#cLT^cxN!b2Tg@5>c?Hp~J^a{TQD79cjiDoxT0wU03dS`2M?I zc=rBRUp{*8wR>KE;hp!sb?)&8#g%Xp<8DX&<~Bnu2j*0F=$=D(8zYh+LKy6~!ig@A zH3nkyezABOMi}}zn>=54<`*)8_71@1$-Er5EX+LN>Fv8#P~f?~Q`)Vr!uG8PH}HG3 zWaf#|81XK2wos7Tw7vPPY3`XIE{)C5!_(KK$LewoZ89Has3*{loB<=Gu!WN1q87Z4 zD@(} zUw!$xx8D1f3xhj7tn2B$1V;VvhnY>u5x`n2SPtj#3N~1m*iu5K{=lGX6l4VOOIOlOxO<1lg1vu zM&=}mQb$dbrdzN**;>VbjY!K9%N8#^(eBmx`rbL1YBsMNO`4(H;sVrA-qpd$fYj0KKQ@sm&6BXaIa z*q-{8q2WehROvNru$=B5fZwQXN5&#UvPdhRAtg*Sv8-kW5#z|}m5>S^Cc>AV`rM~KlT)M< zI4h*#!CsVL`EUL{n?ZyHNkavG)(ordKYD~q49TR_rT(0X0=(cc4dfVEu^JoCe#@lN zU`en*_x2ZfHFo9)Hgx!-ugmceIsW)G9Sp*y~~dk^&zGcKKoZ2RVwc z_*Et+mE171+W~~6n`QO?NoLiTaA+ul@fUynm(tocY96bWdV9JmAca8usCxCw0i?F8 zLX(+d=fvIxVFFd=FaG+MxtnAvnf~*g?_|~cT?d>mDr!j(^YV&3tbDD1$NKL_g|uu` zIcC_5jcc(%UVHk9?dNX4>-lHi`s!Dn#_#dvFL8sUuD^+6>g!*9@-v@eco(~8(UX^p zp!hJ$BvcPg9=0>i2xb)7M0>{-z`4=#D4!X&da;Kh*6HocFP2%c5U|E%6ka*fEgm&A zcEpUlA_c#LebI$Bg5P)Xc#qsZTn)QcbPrD*M@7%>3pdQ^J7Q>hwDO)=mvHb~m^^z( z@-pg}n{k^*$FCp%w1rt!pB~Ql98kmGGCw~v-`ELg!|qj72sXfQw2OCL-n%lDP*R$| z{`P}x@^L1On(jTzst5IRvY{75d9QM3q8i+Iq!Xi{eaFHq;N-B$6CZu|tzkJw8ebjL z7R-C{v+s%;=Go4r{M=KIjF~ab`GEb325uWY2lZKZXiIpr$Y7sDF1uU}KmWb&Vj%$U z?|ksyh{==ulvFk8P@+0_&HREKgT#Oh9TaJw97Q5+Dd)Ey4Ofn2NQH0Z>@|e!rAw~Ct; z_BCF7pIj%LGH4Kj|i-8lfB;Tu+qm&5$WIc8SUBdSHqSYB>n*b z7q>XJHO%(A(gEzh>sRL!AcWrDt?Ngg>Kd@215E1wT7a)<*^`2nz6y!IBMIWE= zrqbH=tZY@1*Kf+0W7n^J^}Y8VfBm(uf9E^QGHfzepL_cHOV5j!f9XqKcV0*d8>BoO9qIX2ODXMaH8={021w3U1L1|E0{>tk zptMuhGeL0YX&~=HOSh}mOcUw3x^DiOt&2itF`F}K#_K5Q+JWEf#-rO0-gB9A`+>X8 zAH4h0tob8&7uWRcIA%=Mq^bRuZkWs492HXcl9n5f?O3&E&Eie-yXIJ)2wc!ghDP^Z zT(@w|z70H(?Y+D8ijfAsL3CEoYDIymY&2tUt7Q z*pRNa3|M_=s}>GrsqW0tu@ibScTbx=c+h|@8xL(>wrSp>d#|91>OV4*L_8kPJo(7- zoh#+>H6|1jr}SBOu#O9^U6SW47`f;2sr^?^b9X#`|DA%K@I;9c6>B5*@XnW>a}~|g zyddgxC*Il@o`L`Ozxm0hKlf=af|s6sqF0XsySL*6;B)x+J8#)MXyKwUj59UWnVX!0 zN<+I1%2uM}vUuAkALWHIZ)vtr`@0U1>yI--L&q@6k@g8^Ar~&*yok4_gvc5Jh7!b| z0LjJ6CmHpv@!GY?;z#x4}+!sF=UY#SROs2*=ndaJAz6OWUy8YyCK~g*|osNaDKp}W; zVq$sJr=KFiy{aP5CHm6VQ+www8e>$7`r*Bdo`t)(&bE5z%FQQsd3TG~&J>9-pkE+;=mXbR?_N_osPoJ@L*%q4wPHCrN8CiL>{OMvt{vPtYGSe`g=krA#hU2?VP?%5GHdowfub&Pm?`Lip)|5c_o?Yv+NA}iGL&BwT}zOI1{5t` zH+$I7ZY+2^2-GZGLPVBmRX2j@nIg`yWuJUOpF|dyr+iUXl z+DTIfjvQIFVCD2_Gl%4NY@XNZwpQ5J81)!*Qx8k8D*B;oigW^V_TuO^;7m4 zcy2{CfZZp+2k#Vh+Z8e3Fs-wqbD@;x{YW9_<;XIFz=Q=J_`~yz4GgW~sa-&x(vHJ~ zl8>ZCyvD}uON5b*9A3_WIn|tkC$w$Y;O?g$zW3~t53k*}SODq4Yp0nd?KP%D?!06F z=0kOYApD8-m^OXj<|A9Znss~DtlF{6iexHEf|sLMr!B{K+F5w!tRZ_Z99z6>0x+-J zv-;RQmrw*Cu@U7;jj?hqHZxt@vtPB)59Dv#PVSyH2Yp!)1lVwBvkakzf$`b%hx46g zSz5VaHgXR!r_vZ#U{~GY&8W-od;OKVquVWv_8VU7LQRay2k-8n zSTy49le@%|;=|!va^Gt&`%EgLYx@qbz47`h`|mvW)Mwv4cH;_;0zs^}FUF1OWnT$g zSmM?(!z^Ar4)Z_4gyZ*J1I`VPNpt2Ld*J%Dm!3WU^rH{F@yQkIW;Oh^vaG#ea8UzY zyVw&dzr1@!ku-AnO~7fGGt%4|Cr$3FO}HIu*xtPgyO!h?6tqUcAuy8`irWfxSgV#T zmam-h+3$Y%=6l~jKL5Gze&?01edV=peods$SAX<-s$sqL=>2!4u^fhxH{bi#LvO#v z_2u4AX6h5O2)*mA@^|r=YfT~-MAJbD9mtSK=GG$IR@6oph0o1--W8J2G zUX#TuChos{3Qrf8QH(1lN}Kks*>b4v%;OJkJ-Tgm-Mov>JpPT}|FN|XRx(PIm&NU8 z=jj8Y>E~xOW$gj7-bf`_SvP;}o;7Y1w(gnphRl}m#v+#a^qauzW7#s z4~c>Fv}pqjr3FjIEnPc(+_;{+ry3RrSTKn}@~M;iEnhdon3^+p*ot*C8HF;boI656 z4efnMZN|VbWpY1+!>9nTc*zoGoa)MUg9dcQw8KZ;xKK%L!W$t}O-nyDJqm~_lmhw> zRxUJ*qC{EmS$Oi=G!=)ADQIYIIntPxEwf@peWtkqz(h>pj>#I|v{~a;IUI^g{&zk* z=GrpMiCgd3FHA`#wH}Y_#mgryUNvR*yx~H6HKzBdtz5zI8*3EEBq$`-TA^Z$L>0ZXt964?s(%Z zr}9+i$8z_}&%tCYF_uI9 zdUthu*C=PnvI*Ex5HuaKzuwaEqeoT?3`8`sXvw%RENE)eC2Ub+MpZ#A>NM;X-nhl? zv1bnli2>w?`GUKbu9}KQMzK4NZ>NT->YXn=3$pfJJdSeeR*gJp}_Ed_?|0vSQAcu z{Sz-d`I&c=dHv<*Pd{=4u?e~r#4;{fxq9lR?Tam)pm0G2OhYC$(wK#W<^^U4w?A?N zA;A7iCvSZ6WsP7=@v^2qS$!~nL6arGyj{EIz`3{xiB_A|xn0ynCPFat#5i`GJ#zTo zE2b5~W0kTt4^21l zB*fpRK6uZx@zHnRGyxI6sqg`#vtB)Y!2%Ju?|%3JR-9MA{*|x%=m&Um7_9un&SS`5 ze(p&joJK)jJKMoGj+k@^58k;LMJ0Xq9y;jggZG?z?1AGC-AnymxO_Yy!ksmCbalt} z&2^z8*Uuq=5s&PBAqCQ^h$hhHV07_LS-0>NSh?7Cc(aZ%ctH0xo96bZ>CF6v^{A?% zK!-#*wHz%*-8{@H*n!-%L%SBHhk78z7$a6$X&b;&UC{vy;;5ml;^YD8xJ~e?d4n~* zy6A*xg-Ft{Vj*xqAYkCs&+lXG|WszklmAq@jHM9a`yyEVYJts9CLnZo!-aU)N z&JP|`%1^JL6PA^m4_MP9f8?+VE!nHOP_H&rp<>_OMf6W4&?uG^QOx~dqf=gsH4kFJ2QaFcf-oI|u#yRLEJGG|{r;BbToG`ne zw_^H?`D6U8+OuiXu|3mgV=XIBa!sBA{YplT%IwD3adWm5Uvi&e%gg;#Gq!fZ(%C!C zpFaKY1L9J-xIgszt1o}?^N+ms`W+A5!*YU$*5{_}OKq=!qYtkI-bDdT6iDl#Z0}qj zGca%3l*S&3fO=^^vBn5)@(0_|%doUFzi^DSz{)1iTaqb8Y0UEU_R#13YOxja3r$7R zs4+DxjxT!DhTSW5B*4CI+am41ZtEgFaKnyec)i4rJEME+mb-4>*D7zku)xt1u$&re!I^eq2%j?t2fTwdT`^MIm6rw2;*r%?zC*xWVgVK0y z-it!2D?8D$^#2{lw&Ba#fARRitEX|=2sd`q6AxU!{gM05KJkz-1^n04&7%TYK`{K+ zqLjbql4VT_XLzk(54iC3W0Y+{i1M#oHxos`v3o9>H3%Pb;mF}tIS#t&SHAjXc4L%= zkdxV*d+LqXUb*A3`$-3cHnaj7FWMOfd7M3h*S_`sH_aO0HilRx zL^`dbpks@Z4_-g}#KW#K58^9`kO%LLAouRwI%e3OquK^jh{bR(U?@UWq}=fe+h8WUJ=e(USR zHyZ`NCJcupCgLer0T4i9)A~`+r>1c0seMt`#T(}EBVDp?=Eg%?FyTN;su}^kVBwge zf;L9?wnKG9y!M3W2QD4I_tlpUUOxG$_rFP|NP~JTJt%IN$ixXwnbZ$KVn!%>$3CoR zTMn#um8nzoSPWOtLs$V#e#QFP>vyl#g%A+Iw;ZbU1JST|?}ei-F>ORI2Dk({LO<#s zxHfa4S{u8)d%@LdfMwnGC6EL~iCdU#uGzd`?)(w*FI+rUeq2CXk8P)g>gPf8sAr-k z%UB|Jtw4RiXwbP3eR^X?X3Q=0BAr>EHw4IibZ3CwIMVUbq$$1QP92(b@0O?kqrL4` zl4o7j+=1RjNSPW8?AOI4*8l{J#vshBEboMO5h0`!3QgIH^Tv(t38m%H+Xwc`@DTFT z+ZkYs3)^~py_eFS->Eg{miMc!P8UZ-lH@4pw%`JXO=XD=cV%A{g0DQNc$SDxrPeZJ30o&lxd$ z@dOCZEVF3cJT{pg6&*cR`!bno9xG%svXGqTU>|+nD*}TZJm@LC{#u+@QjP0lHy9$Tt*g%+D3)rW1v%Q3IM$~Gcdf48j z8E3e=v&PWy*>KorX#1SrdA5sV6|YKrM<9uC02cu|8lIE%b_O3(gAPxcpxE7U#D1$| z=FA$h9OLexI@3THtKGmL&MuUL2$7fBC!&Z8Nek;H^b3cJ7Gjs<|hF4Bf`0l@vhg#l*dM#Uy{b&K@!@tnB1>YHmo1!iy$c zvw7jV?Mu;*=xpn^EJOr~duQ8`t#F%0vHRQ+1#%0_Rt)t1iLPrz%a)5#?mdg4AJN@k!WGJGu*I2W(t)t)vR%k%A0ok)Va<)@o?SYEy89=oDS`q z(#Kl1yse30of~>B+B9v}ym9*uZJ609Y-;}Y2k&7yLviC-pftqxXrInB^Y@*9>-}$` zK1*wA+-yGhgP&T;bi27rmpuOIPoY!Dvc2~WQz6T6o@mL+$!N)OO#rS85}O+}EmL&) z=-d*3%csm3z!q)y1T0&~Gq;}HgOg{+>4S#6YI||V@4Ko27cZZHR_NhRz0Uq4@E>Iv z_8X#{u!G*;`T5Vx@34ROs4Sq{n{gP+)W0581vGZh2Q-+oKryokrjcc9rcIwdsP4c< z$c8a&>555SE1g7B>wa3yhDyvVgZg(dg#DRHOrF#mAgHicrU}_MOkH)$RdoxH5!DXt zin;_yA~C}ZPm_o6G#SoaOoa^QH(dhCizZI$!(xnyEA|#4DU^@La!~&gU4>o>GYNgc z;G_egV+|K*H{5I}y$3?9T>Um z!r6@{4u(dDdENg8(7AU+;`W>NA9!EwfE{7%U-kQ z3^Ch9Y{m96dqKwZ!YR=wmCr^tR(6IC?rOON(-+gC1v0CF>-McjIA(8xg)1lTx_ENo zswsxNbtoF$n!W3+@>nY3@UUR{M67hto+8#k_vXWOmbz;Dmm;4;^a|At;U%l5o__2> zJ0P5W@)0Yuhwi>;2bLY@jxOIg7q1udEWh;ax9_|D%1co6;&V?*aJt6e#0HCjYFXU^ zOG^yDi0>M{J1Px{bI+?U)2Nv#_FX#3`~um|KlSLTM{Xb%+jr%T(~oCX8lxV*u^OR- zBHaKcc$5vc7%UBs{(XzK-o6jbmkP{BBtEU*!2X4$U7K6y8rZ)G23oRFlyyBO7kF~y z?n_05tt~zH0}Bo_aq3^gGNq3_c+cjOd+&PXMRsx&Z7xUloB1{6ust%PXDlpe&K87K z-YREiVEOikly;xbd=Aay=c(&Ye)b(!n$Ldc+apJoyNabf77*twS>kIraE_lfgJu5V zcite{v`I`!u>h^un&r`Gada+jiJau-m-_!kjVecpW}V$GNW!};zFRKYbbR-y5t-|| zrOA0q###K*Rm>FD@84iun;pXn3&IDmiEQobzyBjf31nsDK7%%qt--B!>3*o~maLi1 z{o8vK^@hT0Xl>U%z4ATsXk ztlFBM?V>TmKg!ExyQbC9Qivy=86pvFDCNhGtJd4oB5B;Z;U{b#HLAi+Np#@C{M%H+ zx~)H!cFzLvO|^7I&cntIYXeJEL>5FL(`F1DJgAGd#XLW8VokCo#IN)LkPd+x-qG9a zQPG|Wiv&^g|HotW$SO;9vrVi3My>NP`%tK~0znR~A1KWEJ z-m?W(f8jiXhyarFU=PE=cDG>rUMM5ZqoSv{z4eD#UltKnB?0A2V|NYi}!7@}K6sy3VLG1@Y5&U1!>TR#{b+{RcVuSV9yD%r z!@lQCzu|+?U_zUQBdc4^^(Yl9k*KkPwyWV!x1_D!&R>?jBL_k-y9!BQHk-LTj?__TM92NE3{o5zpMzTbjCa)<_k!}w41|n z1HU*4YZi9&pcvD`Hy+%??2!Fje~3p&f~o%8&HrNsyk^M2aNJ6~Tk&&hsQ6l#V&NX>aXvnOm*nA(I&DH{RGGyfTNMGvrmJR;HK4U-Xv<>er9V2(Zkh0+;tGX16yX;APFI_$3z}2%a zeerV-z46JXKl|?E@4jWXApR}z)^ewH&ulM)`>yi45V8u8nOSVK#GBDx8{is}Q`h}L z^`yW%Y1PcSDiOfO&Nvg9c}sG4CmqNRCDYq&?ZGF9L56y-Si2H1T_Oxu+kj|_1h+d_N=<}Um*0UdFVCM!F0W77}88QnN6UP*B zXStj|MH?0BV!Ta34JkY@E~J%F#%vZKKYz9WpR(Krl!9DRKxH^)%adYl5~U31y{zx$ zHer_`oDIT}GJTE6mw2>gn-`)H_LB%8+H5eKgwG6pEV%+k%+%=V)8uUErWH2|r-caA z8apEcf90rK)GC5soOE!I<2oKeLuob;L^f|5Kb=5K1hmTSQNAyNE%S zh}g{P9<7UWaO%M$r=LN(vau(qi|?iYOV-WZdUD^vYv(RK{g}Tq zkKDNZfsEaSHRjk|XN50;bn3c=R6DZ4UMNk?Mj#-(l=n+$?+oujI|JJtVV?o-_#r{M zB~-lbwxVN`vBpYjaNb~qS0-IOV->r2jJ&WzsPHA`>;0E+U%nwz=Yp*+Jz7MKIUl1h zLA^5p<8xQfm|wRj`%eUp(g@9E&-#B1A7+h++0Pa7tN1l2!T?=-P2uFe#_U5PW`(KPG_vB7@D-1As!|$a z>3RS8*BOih%*YvE|MlPh-PZ*5p_x0A1Y(M%4bc!8Uj4>b?|JPL7oL4m&Umyym^8RJ zuK6j1okSb~U(ztV{@l&in!@m%Z=3V~NrY_Cs?!&ZsU4Dq8im}KNI)u`$YB!LI_WU{ zBM~@OR@#yoEp)}CTFVffIf?=;2=DyIdvXxDgis@5tbsB( zS9Wh3dTFX>>XQM9Nk~N_r(Y8qyI0&Xm-tasDcwD!NyE%UKs0Z|3j;YjcCg<^PUh9W z(=5+VZ-zCx^+jcY#jQZ12$9w$88}!iVkM4HLXub+w}h zc&{B)$*vCMxy0O^^Qh$FF09E{*lt%o344#O+%Rjqh3rF_St*)D3`n289ehpr9B`LL zR)C46|0#2Z_8(9nXN)h2lqW(+oJo`pF&KmA!TG@91O+KjIMmg%4u6v zI1_zx_Ob~Jb224CYbe|4rcrn>P`SzhBy+mK_u^~dQbNu|DG>N(#cTE6b<4Le3)4rO z95Hp0YZF*SxKBh+ zF^VV789HWaUpfErU$eP`qoEp>x?Es*0=I;Xp+c`eyfx@3lgb)JB?MDX*p=WbMe(OM z8zrl)1OSN(lm4T$phrl0LfqH+P@yA?i-V9L9iFtKM^^N#%JXXy79YL7+@vxMx`3<{ zi5#t+ZYSYLPmyXH_1Em~?k_}D*p$*8lQEgLnY6#gnC-norTMpYHZo=Ya69*6MZm$7bXK-4msV>2s-?gM;&mKiRdlV{d z(7-G*?spx0_-lt%OrAAd1Q}B{Yfnve;q+;Pmam>ZZ{ElQ7mn?;1J}jljP3SBW|N_= zUwGodLl=)xwrxod&mVi|ElN9I7hW!~otFz@_PpFyO<`}(A$+#L>Z_$y+B?@8c^GFf z`nm+FyO!0R8zd7A78(Ta+xD&9cjllS>+F0dMnL_eAEH_7-7m9=Y1MeBfXetxAVwdU zJX2g)W;{&lbeifKwt?zNZx0+!U>;*L1*9i6DUEc+#vPf?ww^g8G}W0@T9_6igY$s~ zsTzo7oD59v(5Z!V9BJT3Pfm)#O(p!#{wT6BgCDwajZ3z#=@zj;LsGXw9E1igTa3_l z?K6vd8m&n+4bulg^(a4}o_ZXLaT-<$$y4`E6;4Kju*szJ4R81T@86VM2?PK6*BMGD zy*+gG!1jQBzotqi1wO#sPXQefraEoG{O|qzXE)yXr1LT8VsNF0t_rA`~LX1k@4BeQke^x{|x zwO+crpBxF>6MCdXV0F4Y$rSTYw`NX^5)vc^O@Wi4Nrt|`7scYK@I6tP!ZZDvnmsj9 zB+~il6$#SgYr^or=cEjfJ5hm9eN$^B@J~6Twmy|$4XAy6#6-GLdhn#T|DPEKqUn+# zi1I@m5FE1?j^bibS(cg5lm4dN;Cw@A>y3D{B=>zaHj`X)ZAI^jVEjleklHQgM@gin z2FwhtRV{%F6kprVO4kXVjeK(`L;dokhHku0D3})%Dw#xeJiz8g1iL z8`g>YqAlV2f8^1SJ@Wp~oy{ z)WirHQrl(0+6=EWqduH^g)?D+i2}`kLv1U|G09{jBGc9~_)W|+367l9A>+lt)fm@Y zAb8qz%Q2>UxuHr~G|83l%ea>`*~C_yNFCKG$qrgj^xmL|jFCbgfE8)jx)#U>FBxxy zKD{ylXQ+CvB(t0WUkSm;FQZ9qm7gR_Xk2n8`+qWVQ)|-_Kok;385Q1aj^5xF`$AA830`mZTC;#Q&|2=Fw z7Ko?LpPxJPYe*gneB3t{69a5Vj4BsAE?daN@8$09tLF^~h@Zz-WhUTNe_)upkXaik zoW!L*6Ajy~vZQB@2HC45{o{phJa=M$Zeqe#<3a;p&ryB?E)AY$;?y=34$aW*;ugil zd3NICvgN9%!^fBB07yezf{+?E=9sDx`bn&7Lyz<>l9s6C)|qybsW++@J=52S%q`2U zH-+B9s&O&8t696_f|_y#SbCUHjpPx(DXv_=q- zsk~z2#l<=)RZxI%R`uMGz#rr)B+1bDRrMOS(#>mf|0S`Q<;W3;IsM@WANbU6(`F1> zx@lh5(rk7g7WIVi={-h0Wr#U@!u%Mp1jN8WMbqYwtf|QjiTdsr3WlqqoYdu_lO$fy zWMq>Q-{Z2CQ)bQ>ELLvgj^&HQk8fTmicJhxo0fPF^2*B!D=Ug&@}lLF@c>(R#S-bl z-+FZJ*0P|WQLkQ|)*nA8(6vLmCj4+J%R6#_>{HXFSG8!1QeN%?b2!EbX`x!%5s8_d zuL}(4-|i1ZfKOhLK%Uv0Vi-^($QijGFiA7eYEJ^bE5J$R?sbDN~VbA2ZZ$Owh= zy>X$he)1r&o$opikf?l8koX=rl8PeTEw@2fES5!POah|3L2mclHacS>fD4WkZxIpx( z?hw1=_&Q+p$c9_aRrRlNG9Kp^=YeIrR+r~id$UsN51dqqY|1$nQCgNAQB%uAM!X{Z z>i2HzHMG{rKv#)`=Qnc>A1vNq+A8FTsgotF6^@uPDSmY({96{}fHzL2&&gBz@~#ZU zEX^#^uOCmOTboJkymmfFAS2tN70Y=)@==ekQ**oHfplLNuUru)+14=3pu3#6bZMON z$#KPJ?;!)qyJve@I*^Zz8{f0;tNNUz*ZloeH7IQVg@#}d#k zFVou_V$RJ%n%U^{qs=|jYmHxT`HaC5Fj$xyQ!!?5$;PE;^q5M1?CHE`Y?Ir`&KdBY zjwB`1ng4zw!FycN@GBS1>9dD8?{VUZ(gY!?WC@l-q$Z1E2rRp}jvQ6aV>8t!a zF$GJd1-2*bYDg(Fed>TK&po+u=L*<<@bW2UlO@Y0PMb0?zf+sM)-6hk+7IksX1k(U zbB0fuF?ey^GO|qMnpiFXQ+AlbMN}I>MFj;(kghTy2EyVu$^fJ$U}P` zHU9X?AdR$V6C+H7HAx_!vHN!KUL{-huiuc{l7Ldgyg-lgij!kNOlM}Vn7pWNfk%j? z)rvA9Z_Ou6s1bOAQfA?@@k0JNldsycXxQLx9&pH@uA7f-=iM}C;pi*8oLrNUNgh&LloqK)zi*B{rG`G6R3$r zSfh`Vm>KAXgLR6H4n_6B0xp^hSS_~K#= z*e@RT;Tx;>u8+ZR$L)qY2$JopVmp-7`JilXFfzIp>^n&eDt~YLrGOM?ex$fK5hZFkl`z7y}jtjLieX zhXW7WYkkh?ec!L{o-VaUvi%MsT zqz7Jnn`i=ii{JN-7X%TchFr9ANAA0{^W1*m!_5qBcw0*%pfS!N`$F!-*L3B^xl^aM z?7nbx&b;A%3NW8Ix$)S;_xc(ZHYbhk4TD2FvuzSG$45X$kY zy60`r@sJmc&jC`9lx?SiA<&Q~@k6QhN>o=SHnj8)OI7>e!lwFx3MNbgYagx2)+q#BTjT%w6bope#wqr*%O`9@g z#v7b^bZ?|fPiiq%!CqSSKh zr-|a8^@>d4U7!;M9_-_svAW7V(z+@p8P=HWPyGS@-s9U)Ta4+^+tbqHGIbv9hVRa- zHZ}-uX|1iP9>~>Skez{ZD+zRW{!p`&71;kYi)wZ5hhJI8iZV_8xoBLXWF4ulI&+&F#Xisft}Y^3c@A?i;( zgspMqnrZM>uoVOrQzJZFq?J&?CqMLFVWiJ|_G% zPh!Xjv@yGp|3km^PM`L_woNK9M{9#_ODyVFUjBm*f91<^i&a$TcRYThu4a(nVo|6f zm|#2J7zcSI6iYx8rh<=s{i|3zMB^f1Q1aLlw)d`cGK2thm51N+PT{};OYeH-G3*MK zmSUD?qjNM7f`W<59Y;5HcXyHC#1_=WNhQy%`&Q}4-KTfiEPK_axiSnJHBKH9XGwO_ zL4^w)m4LA2y&xugT;h&cw{<>!STvAs#V~+$h0y2sg-T-Grn!R9xg2{ZiOcy5MurbF6zsJU5Kc#Sz$`ZIu4xMCz^iUhS^9hx`yFCEsKq7d*ANdP9oxDMRE~^4YdiB zh1t*vA5L$n7Aq<4uRKDz@t@S!{1k5nU4TT%McY>VVt4{Jq=F_4vCzoyqiEdF_72DrqO7DZ1x!9}O#euj*kvib(ojp4y(xHV8_NmD2&s?& zwY5)sGB;Ee6cy%7p4fK&(fiKcxP0R3>0Jlcv0#XVEh@|{EgaO^RMpi{zih>nM_+vV zyv-}M!_>Jqoo&(wr6;+?ndZ@heT^cUXb){K<>J0#-Ry&xPP6Km6dX9aZ^NeUveLZj zsv=gG6IV|$x${M5b>Z=7XAJ?QoLjh~hXvkG6nJZ+)?1lbXzx^dws&ytV2Xk8sb$8w z1H7}qKyt}A&p>!ziG!|T^+yHr-*x2N!}kdKgT1S_%wM--31?u@7Ez1x@;uzgTlcRO zABqG?eCWE(a}j{-Ikt5<`~Tu`3U9r@IbK|}aw6|mt)Avh7Ug>2?4ASX_F{)PdGC45 zEoUFTe*WI=*AyD)y^ndE)7Z51!jQeoPXUj@rvSOTn;A;5iZgFMyFm*mHcVxOGwd z9Yd?z23IsSloAklY|K*o_XjWe24I#(rd3Kb7qU_Sfx5g>J?oB#ua6&tD=*(gq%i>V zk>7gf@Xi{5Ad=25Y$?%S?8EEjGVzA2iSxq7 zhJ@;w55ND$i*F(NpZV|yVB?ox{sUY4ef!5h`qqzs1iFzAtlE&6V&<<{ZW1A`0Rzd! zr`|wC$3h^n1Yi9Acd^ia;+x-i`)5A!`A_3Q|pXr=*Rvlz?h>t+4!;93~ zTt0DJ3$iRUu(WrPzpOMgSTA99B^t3pVp<$x7CCdU6Nq|Vy>^B?9o`&}NZPoM! zw+jyp*cXemXz4gHs+~j2%pG{GQyz*65@44J!X=!9+N68VaO`taC%4OFcxN4Wha{LK zW+Y;ww0ASsRSjCZW&Wl;E6_41CzhW0)tg2L3d<$b(7%|vqQYCaaEx-U+te-UmcusD zhEV~H#_#>nkB!snia}^^?SoKM(0|(GL{n9g;-Z`Z{rl7=r168G4LXb59t8z>dYPLW zK}6Z`&dRXufMS+OuO*3ad*2K)nck)SKRoyL>L4SovA&2fGL1E<*IWYCci(Yn%aP3@ zk+&V&y64VAOIA#;;*qb*TRH&TWWuC5u3AoTJc4Y;J7aNk;;cGi^L|~6UNnv zai)TrVPS#Zuz%gQljw102&f-DqDnH7p}D@erLpYF8z2A7x4wDc%$^I6-`IO>%c@n= zCQoRqswgbT%dM^`TC`y7x-ARFPiS7gcMI_`VMb@V)_k*MJ^x^P-LP8UX0Be))>hQo zBAB<7zQIps@sbIM>@X&wx9#ez*V^nPW(sUFTY&lLU7T1>Uq8ns=BS;O?mn|)?@IAU z3^Ep2InU78o#ThGNXi)=g)dij26l=%JB&~B`EZX6oCohXfu%tg$pX)Rrn#wtBMomH z0^-b#%NS8m#~|Pm-i}3$4c5DgS%QfGVeIaso2)?`II|n`3{H#{D<7D zaELvMT*Gg?b;sfpS5BhDEGWpe)jJp`TNM&(u8pErt(>x8-so++mR@=GQL~$aXLg^x zanaK^ZCya*L3^TV=l<2JS5Motb-p)h+~{W1LkwK?b*1%nC7r|Snw!d${Pex&+3mgF zz-Q)kTyw3b=&5V*_m{5u>jcLfF zL%^)V$_pbB9*iCPR-&L`zQ)0_c;Q$}*dPAN|M=PufAFn8`tk36mu~z$^jwht>p%J- z@-7)7AsoQ}s((VuUr;cxq$JNl(69S7F#I=qo2MX|O2^ezI$i}BH~eHod6$I;uJ6Cz*ygYN-qPlWR%3ueVnfBRc= zW+mVwuHUpm%5VPoM<4m>mmqwU^K;+%J)-BMU;l~(g5AJ7hD>utOqF;`at7M*F?rD$ z0`u~6w(ni>(7WF*1W%(q`{56GS08x$o1q!sgTeyAp_Qhh54_`fg;5dQP-dz8Z}lD0 z>2>R8>p1!EKfM!s*sdd+%?eGRP|zF87FiBnV)0wu*};HWWu#NZA^FJ88go6$IbcT+ zCrks3fKdFv2#8=E9BytbNq{sf1;Dszg6&7!TT4u=Ks3N{G0`M*ZwH}7yeS*1lTAAp za~_lPmR-w;e%!w!x@u9=7_c5KK;F5@0!kS(N9@)@>C1}ynT&8>C#n+K8Ps`a_Yw!# zu80^j^o8?bdo5Bvf`e>=%&|z_0~Hx8&5M_gH-ACKYnIVDv^+4@WK%$^TF^_8z~IG_ zA)*y!AbONX9nnEkV{{^6jd5B<8taOHGl5lAk-zicTKZ2zJtndIhPu+)nxdAbGOwJ_ zdZv=BmXb(4)iLKaX91+{Ei0jb<>%)OfbCe|uxKUSO;rDP{uID??-)|0scG*fR(N0_ zyoN#;d*a5GvyVPtuDut{;EXmrnehkG0l0$UjWMUTfD-(ExPR3e^KeboK&CA(hPg?0 z9(NlZKz!@sS z?!ime2*@u_v>1T^4Uz*oOT%V2n9wwodqsG8oaZVA*L}Z&XsV_Vt%mxt5yKlDXc@Gm zr&LuI0a7!Ud2>hEf?S^R;T@_m&)j<_URllif&cNlCoZ3;t}0bEG8CPr=@NlhS6fB| zaB5n)a_ZR!uPk3ase5);{-FMYn=2^x^z(p9YO{VMdB5=8-~Zm9{P7E)cuAf%@9_EN zkA4{VJBVo+HZ|hPE+cR)h)7Sk=vjx8XFvRYwJ=A!>+$=c<*XT<^|hrmTl7JLTPl|? zokZg7J+@gZnahwwu-BpF{ARTP!yVAZ6+klw+AK409>^nvR7VED$A0@=62SbIzV_v> z{^1WCitY9fp?3fM@5BM&aCP%L>1x7T7H-SXnd0?%%3?g?# zYWU)qAaA>L!=X#ZVHEsdw0JB_1?3!` zz)3g&5GbWES%3*sj1W;ORz+EEI&9eufE(Ds?wHtQI;s$SIY$vMC9=(y<`S@p&kE+R z+uS{CW(TNIDux;s6|_IW?gAcHubaUvxpK{P<~u?62(Jhoyo)rbEM3@;k)2hyz+}w( zs;dhjk}{KG!JV$YD(gr{AqtSs49t@C?KVkK9x?*io%yD9sN>h~KnRQ}dc?5mq^N_- zaAH8$gmSYyFK0kvjWJ*LAoeKNt9>Z)UIHKWl-Rvgfm;r3a!dMe=Eb8i39`!23rKg(Vix8!6pm7TK;WLeT{ z$Ry37h-_0BF8~3mPs7YkwWj3Tas{!B@Bzk$MN7voT{&gbzSXE`TL%~0P{~qAQC`ma z^>e@}j1?{_P?ScBfQ3z4uu@}fS$$3Egk;kq0;pluqKWf2ub926J6Py%DcjAjeKNJJ zCH0L1M@|^L=HT`jK+zlMCgF^sr)7!HeU}AyKYVQf97^pWCMLZ4fY=rQV z(cUf8;xT~O=N`N)bAs&DJ?FOWTuQQA)g{_it(pqNh_>Aa*YUb%|KUZcR6=OMBScja zpLW@%VS*QB=A}7ybj#qDDh~oy{5F*eat6Y?aqZd}+jlRADv1=^)UEsgS@S}EwN_11 zz+FICIU#^^Ih!NEJ(30TJBP#0V^b2hJD>ztB86eF0vFl`mO@U{wZg$7HyM_f7s66; zVZwEbte#XCn=ZMX;7|*`Nf6S8CU6y~0xOShZK*zf>A3X{U%d&MPT`;X=!at`4kCu! zud6lH%^%WULuLKcx4z-IHqwHS0>l)_*C+{K2m5f6&g`7h4u>txS5=j0B4WrD2h;_U z;L#i{R?i`@90U~C)s|FMm(EK;SoP&3V>U`|$Us0D+*Uy-O5j0+y zdW0<{g9Z&6;HApXAB0KR3vlC|FL)spRpUGHqK+Bek~b*F#7D0Y5SDk<8obL~CKJZB z>1#j1cCz^NJ?FaTj38>ghZG)4_}Yzg*(ibxiur5StPWZqr4AcdP1OJkh@C@AHXho5 z#Y>ExG(NBna$0zD3t7T+_iklpC@ldVj zsIKgX0B!WhYIR``r~H!__+G+D9x3DV8&)&3kqf;q{wL>hLrv_tY)2Ttkb&z{{tuw| z$bENlu2{2cg*~cXHwRT_z+rpQ??E6&>RIn&JJJF;;?lKFv~Nh&xUt#OYSq?7d+s{E z_u_GVx8=avVMEFopO}<#`t@mRsob_}85>BlhtBThG+SS(xb*5gHtpP;!A%v*mQThW z_T+osHD==AH2>EvUdOCSgGV-woilFX_H|Qdb($ONAN9E0r;o~5kE zGJ{}0IZqrT^9QoD^RBV9%JrT3oi1&G6$&{FG%yR9Ro}t-WY9rEkDyN)u)?5}O&S0W zbs;$n;m_k1-Z;S13GifKVNH^o^q`Wy?Et@?74s3g^tl@sAvr7sl`17e`4ARHJ;M>m zl@$g{l@f2IgwDYi1UCFF8JG(w0I;aiq;QiEq#IX}nm10a_c@4;S-K}f18|#of z8Qzsdp5UFvjy~5p$aT0vB)RyVpZt+zK%T-MMTPm`otW^Noqga!ZFLdJIB+0)EHb*{ znwnAzBAUnwkv5@bDBFYYe1Rc?5um=de958-*X?rh!S~8X*}SxL12aBiSGRh*xb^z< zhD@K@arn-ImTay)|8y|S0Hq*^vt9{!F?lw$yb>xH&fAS`^;KDq)7V`-9f`NtJvar0 zre}R^(uBs>9l4cRcgnKzfvs7hIa$dhlw5n`4j$U%%HXzoTN+{d^=SzpeVmiQiZ&C zV&|?4icb^AuhBl?{hKx&KOa&9AjeY9E&0UPTbyBDH%)qxtnnal=So{=>#}t-ZN53U zvo%fdpPcaO@oQ~e$Z^I`8l+rp+Rs;+a84j*Z&z60#nnbUXD z_*P~Lkj^m3bnJBnAj};VWd%)jWte0{q%K`LarW%4b%%E@-?uHvWYp`&E|qsQwof15 zHnz38w*NSga`6r}nVqNiPoFkqcxSS-w`$D{HsK*{)dUAuna++n07aWcK5+iw>&!vs zt=QdZ*USX~9N@5i_-bev7qHP+DmN$~2%sD!gl{kwwgdCt2O;h&j5pq6KRymKMm>!Y zl!3coeTS&Nf@0bfppeF=a|s+&W!iXRggLeuAcIYC2O%xa%9E)F2>aC_C8TI&62M__ z>eGW1lKKtqQ~@s0v3dSLX}7qMLavTr7A^_P0(zdvLIPl!V!$%xKPm0%=`?dSCF$Hn z<)&k61gJvI_ULGb_=y~p0{~Yx8LA6$<|p;4tSlnwoRD##QZf@0;6~i&acJXSVnTVs zc%qz|OUuye{hG*~hptVZ($UgXv2Ev4_|H*R`+!RD4k2MREnQEA+6>9zxnE5v0J!uX z$LGq%xI@}%RY3wG0P+V0%0x1WnK&*#`Ji_Lgf=%fQy#U;uDK+V-MOA6wiM~xfAnLZ%?RUMdBC{Ra)|-vU;N&8W8&b^ewD@~0;(&m z6P=|)wO&mXWX~BmD7UaszZX?imgpnhp>uVF7Sq3Ex>XEHdqMu7?m44E6iVP%*lu#+ z7X7G5bO5i4H(BfH`dx?CAGl+`ZQzWoG-ND%+xQ2@SmvF}t2uns(=-v7$+wV0U9afW zgmo&7IdXd>gLQ$}0aL(jur2%6yYX-~0Wb>oi zq$J$w)r6A~Uod0tu$Jtm=b~3sBznqSzxVBLr9lT;n_E=)s7C|ZeRcf!I#SXjWbV^u z*&)c>>qtYQ#G)b_Ny(ZbF#(v<|8{Ft*5jy`z>`6SIfDASaNd}f#`5yg0(yH#yIB4% z{_Wi>W{eu&>?uv1uP73}_Wr9M(R}0Sr>blEG2Kj_F$_Dw*fI61H*wtJl{9U~!SzB@ zdCP!z_JNKewe79dV@5T5!|8#nAI1oi3llMvqYgnW>J8<`gf}qRr43c`h}sMU5y3k^%X!w<{`Tnc#zksPY4^Q<#&h*}htchny7QgbPw@pUS z!KQB8eoZ5QQdy7&Tu1Q&VB>LdV=9Jfni7wWkT1;*H|@`9?cx>!C{EJgsWiGXP&(jU znzU3Y0*6dV$vq;UFa$**!#BRV@;1|f$R~~c4D?RjGJCN7YmrHc?U6p6E~VEaS=2Pb zOH+P{_$fXkcBywix*pixIykqhD{-WW7Ea^M(>Ek?NbgN0Y#Jk$ow=0nIk+xpyS$uC z6NU`Uv$TX|F}IWDEpTc;IGq z7!KgwV1bq(1xhg5xZ)hX0VM@Cv}x~wU}1YV(m}mXvvu&!{BF=m36VtF((53G=X!b= z)h-ZZzhWugykdG_WMQBX)I3%O5Dzk$=uf@m_ zQb5(TMi|>kJ%~!Qkz%l2#hsX!d7QS@jB+DA$wzi$Qp2aYfCia3t_|u!X`s4cL70XsxNOEAy3}ubn+tV*+#SlQ3W;+c6IZk3Ln$Tf|)os+$)`tP>U6 zb1CiYMO1X61fDbd(8*0GKt216gX#|O)rD;GD~MJ+#v;=q%{ybNP27sLTTx-YA|=zS zy0VU;^EyBVla28HOKF^~h(TuimT@Pv=S=ps!x9qECb>3EkW#r9NW zgu0l5d1#v{XvFo_mON&8>wW%Gymg*pds?b^Vpu#_gg6|ge{o}oo2kpE%ve4-n?o{p zsI5*x`lgy1ccti>mM0BXN~KApi~#>Q_sMTiRF@Mufc;=vP=J_C#M~!ZpsBupQ^U4YUh+UuKMVGQWo=eEkSe2x>x?mEJf$uMG=g9`}I+EP_oOk2sR zttvio{Z7tNn@=5@)IDzFspIt>)k$Su?{8p!W_0(Ysmo^1+puKcl?z>+6*zw9%^!XK ziHBFNp1x-N?1Oh4;8@7}ZujBDs}N!s=1#0FDh7QF1{$`s8i-BdfvyI=5n*%~O{5Pc z79trn3<$=Hl;DWUYK%iOHg>=sUXh6o*Auu(lQ%+B@Ha?dGN=rQpyv4rEKtB4vVyu) zSo;5CU?NTOtd8MH?(20#IP5dF|Es-ETH7W zNp%l=fX0vwM6;Gqvnl6PSu44aoTvr7a+ALVgpQ|3K%)jk@Eo>452e)z;Dw5)`{?In znM#pv8iaJyCJq&Mof@yQT0rY*VNEK3630WAEt%MnxD|~8?B+^JX!VnYgvMS|Qv&uC ziBJH5&=QPmBH#%&fg~)Ys6(wV(JLNh*e7A94b9ZJ$B>M0UiCE{YmAoB4mz5EBZhP+ zNi?{*vbnhmiYlj+@L%mh*OfpsdQXT;(-VpFvm|nAsuQ8Q;(4MXDUVOOx-vMF4W9di z&efG8Pr*S5y|4mKAu53JRGM>ve~w zCJjA>An-|QY}zz;SVt|(d~s2}UM8v_Iqlu2H;35Om4Mwr`tbYRxOF}!M&ZUQHZL%q z(jja_--2C!4U*V2O`vE>74-@@_7Ii0CG0Jsd&hXaiCR6x{w@XyQYs(<+XI398jrIp zja`kx)E%nt$|FfcUYc{Nu7`rUaLshftd&`-2!ViV)n8zHDg|nq6Br3abo9tqEia~G zE7iu+YNjBc=0njnF-fI>Jjs+~o!1gWVPd{cQ8!JK8bi>Q#2^2y`_p(#A`;WV2kkjK_q5XN?K9DK=$^MqP!`S+SyeA^@{!5o7zi< z&zq5!KRp>xn4C6rR83sgJ#zBU?hQ*9u3uow)Y)@}Po6Y*+o4TMmP`Qb8@4XoxMe=& z&E|US{8VV*;ECRRi>j1lW7Y`eLIXxXx^dx1EHKtjUw9?~oVUEuurl-vb|c+S#v`@X zMPNl`0%Z_Brsu5gJ;!YU^{h08C(xjp(w3>>baK!~<)hn!KCA@{0xp7OhzCv?%z+62 zH==#gc-`xO#&A9>nA(7(!cb^cglV0)Nv7eervrAd#&%6Q_@wZICU-ek23jZyLMKTAX+p#i3ahjeuUdGe_?h8ed-$p*04kj zoKz`I%{oLxDlj2$|prgK=mHitiORTF7y!gSM?d2DFJE9g@y*a$WOni{cS z(7-`GE2cG3HlOmNG8!D;m&gsC= zn|LJ%d^H(yz;Jy8%=Ma%)@v&3S5g%?n=(Lk8aM!Fb)m5Z-v)`DD*OTue|VtCJQ7FZTs_X*tJZ6zu}Y4xC6LS&lgqC!|fGi7qHq-+e z@fY%9{InKdl`54r!~p~j0W^AK<+!o6rNxLrG9`t#w`BKOPJtRer;;nuPsnnz$uNS~ zoCKp?I=OhIU_E^GVWmlJ9citzq69N}32GON4gOLDj=H-NN^e-#JBJn77BETIqiIVP zHZE7dI6B`RY)1+9m6XocuTln9Yp6sg?~$0{&l%56N$sSJC%RFwY1*l!MHi$!7@{+l zAwtF#6eN?M6xH>3+LEq&wD%+yN|tRz`IW?`4eEbeNx`6D?R68!wbC=0yA5YA9+$|) zi^dOaui>oAr>m?afBcx1wVMp>vh8=C(RAw$?jMjPI+JtnKi>XBCw7dRKc%Yb_O0hm zF5kKKz_p8q?!Ig5v7H-tF56`9$b;(<8tmM^1`i}($B2`n+dvO!#z7^SuHJKpfo#Y# z#nb30x=_*hVvqGJur)d;dv1Xtt{78_O$r!CW*pFib{g0Y-W{>N<`cI2debJKmsoEg zIRk|wP#tJE3AG=FQx|FDunXAw3h;q2yaFSN6a}MWGaLccFvx2?80!G_A*U2o4hAwz zqZq?ac|zLIIqBqz4YyT4;N5svQ$orN1(-tyioFa;kU(RWB5F4LfvD6@R$s~B4AoI9 zffu+9kf9<;0Z)id?E|a%jgSaX2%_$5;^X)6jc;$OVIfgM^#c3S zgTY1f$HG{d07G*J2&wTweF#~tA#;L;`VGOHlOwuMGNlF71X*oODM;5EN+@&nCE3-> z8id1yg`72yOStJ;svJ5@ohJe-f1vKrapbIOnootUGUCU-_=PT@SLg+gJA7vMAO#+jQ&gB|8lsM1T&F0WPSg<^S%%&d{lX!QKk&t; zA4v(vQuWNRs%yD9I~E0>jC+j&dC_b>ID;My0%$3=&=rohpo`{#R zR2SD}TU~pTZOj$!DEz1y+j(QgT3%@QlcqHLHEc4RZAyCz86eZWa3n`Q+ce9WzoOkp zB@R_HtwL;47T}DFBk(ZF;4^G5sRAGOX0P8Q;trKHH43H5IdJ0>E_8^`d^Cc)64>nl zUS9){10hQaa4Y5imySB_N^LUE<1d88En5)!3B%GYd;&dpB>$_k{H}4OVQ|eY`z^X2 zn^(59H#jF!IhV#}A3T>jvO6uty*{CF{DnwF?zyUxV%c%kE@Bv~lO0eEgZY?P$ zbA+x&lWw;JhWMm+xei^8MEC>!00@MaGEsdkfZnkWN-HYtWe-tcb{OgzbY;wefuw-J z3&ukLkzdBOi%cjqWI#v%1bsvRgmeoORd}~JT%m%>%3Ty`k7IRlI{^WZfi27-(deiU z+nfcOfh^D@rNY2oX<#(~r=3$dD-4Gl~?kEYNKv!p` z0DunV6qus`o=73rQy!}2S(_yz>2wMhlv0xtzC@3Pa*@m>l5`f|67_}Tq_&@&5FZ*! z!@5O>>JGgSjUOV*I!|u6h;+QFtw1KkM*)7dIc?Xk+mOOUCkJ7r=t8OT_5#VHI{` zx9xI6ooK;<*am#H{}GbUfMpK~kmOK@f-K-P^!5cj(kC?7zI^_Yacj0M;(j@Hbd7zn zc~&o7HevFF=91!mSjglMRswuw9KwCI-GJRU7Ot9l?>pZb74a!lhYKQcQ(Ijydj{XC z?5w_L;{$BfL6;hj=JLl^U#z7Y*)FK)0qg}?N?r?WcCzB;Bs);z@OG(&jstn%(FE!3(y%-ge(TK zOYCxT>Y?jg-|Yp@mHptAv+*z)Hr6L_9Q(W+xO~!v>19RzOY(Dsoq|o!Gim>Az7) zIV2sZ)4&j>F)0|5P@1@5KVfE}wSrvoh~3*D1vLbdA^|<6f?CQlO8#{$Kw=04g`w&YBz8VNTC@$+&LVB zT`*r`(xm}Zd;)DyPc4V}mJ8t+y%f;VFnziL&44q>qU1BD4J#`x>>Spp*y;$Y2_py$ zD#e$XMgeO1z+sI57z36iGdFQj@idy+k$_qQ2-CymppTjxD?oS1N3w%l1A3vBr7%d!vOcj8q7np!kN5Ttwt0@CJ&<5i`UVWKp zz&JSwxBUwLRV{>1Dr)Z;FOG|IoFLA(lr6DtTR9d0j0x@1dTqD+wQ7_Vc#JnS6b)&w#A`%; znLZR3_7zMdL0FZYgvF_`xk`0JvK$G2@euy*Is%?HmP!U!SA7pudCCm%X`_gUO@H(q?(iTf{VE5Ocki7Zg0*feL? z@vZHxrGs*AFUZ=`*RGiXK)icK4Xl7;&<66<)s%Qw3-bpSeWtLIpK= zDX0c1gS-(Z4Go`Y0Mx)7!l&2{>RqHC(&rs;K06W%U2#IpxeKt6YcYc+J}B)F)kqBJ zPNd0^jS2}2jah;Qf`Mp|>pIolp$)a9!zczgq<|}`;1>9%Z9x<0lZpJHmXQul)y}lV zCy=Bof^^B;PGG5*+;o#i&{yHSPdchXLM?WZupU@+AXxyN$7vHdMn*t>b_u3ta0k}l zIq1_|JX>U_F(IVJBu3f8ONt8#7p(_&bP(&4dC=Y?8yXwRfUV8~Vk9h$UCV1{vnmz$ zRnut%fE3F=g=Emv&N{eS~I*mcLm_9IC(?@($Cppd}@$bHE>;< z6C#{E30wk#iN@`~{||ru^S6HTC0o@n%QQBXS5*}!5weFj>JAQ*`pY}O_D&3;bYRZX zO5Ps=VyIfzl`%AFVe=rp57k3DE4ddqnSktFiFszjmU(zxmaUpHcWx(zO^oOI9ZT4X zH}761SQQx&$~b}lsC#@x*s^)oQf`yTTaYeJ7~3rFDWPdf(oB^Vb~3;YPM0hiJA3A^ z_O=Q%ENIG#dnnD3w1}Ey2Cu5f#YM1U^)!S7n|3S_J&Lu4#)~wJrafcYP(*q159+O^ zhLY;a{7K_@g;}F)CO)Q5ZQHVU1>VJNhc;k_vBeV76$rX=&}`)m5Mn9Q_WE5G%(ZBm?z?uIRbf_=+yXg zQeBxdSBP#0m#t!(pC&PwuZpHh*m3|nB0dit&_7Z1s}m}QwwqbJ`d?#n<)&RW5E=}J zQIZxG^e^e*v43^KSAEN|UK#7k*~|7;z*LzPd>^F+7}p;1V7ltU*UF9pAWh0l|t91&7i@ z?|uie);k})7eAhMQ}L3b{-a0KbdDXNAS0(t(BloYg@t(oa{BcxE*vy^L^Egw7hXcc znRWr&jZH?^>dK;$!aS}rxMkW}EAD>o*_qv=hIEuc@76JcUsYS;vM%WWa@Mb-?2CHt z^ZdF zn-54Kj4NQu0Ed3GGAbzLoQBD@*hn$Bl+zWyJqEiWFE=Yzu#v7vD8!N_b&)~{;mz&= zyThy>p11<=!M?9h-H@cTQ>Q%_Oo3nR5SAiXEh{)okp^Gz3jQktOFLB8ZefaXLIeP0 z7egVZbxY=}avIl=kV4DW0s2%BBpTgP0(|Hl78`n;mx z>>^-yk!Yiuf+_klFjs6cjtc5t%_5~+G>%_2tXrt8o&to422iO;+IHQ#nM8Tw=2u@y ztiX1%MqS7_%Bp68=cYE`7i#&{r`l<4O{9XVNdypE(leu(4bjQTO>L|3;|L^YsnFCq zMGHek0B#DP?!>fSrUrAQp%@PxQm_2UD!`kcq;jaT-cPJdZ+bisUgK*4nmi!|v>B#U zO(q0^Mvw-cJGVTlWmK6sBiCGElkv%$-B-!LI2m{L-t*|Dl|(C<8W055UctU*r;~5l zIv?#-b94D1f+=@EZEYE3)2ewoak*`drPCWHl5 z9Kw$sS<}>zUsIJkc_MeR3S`9_Yl8N4*5#W{I-xMi@|^}z$_?>`AsrQ!Gf!=^&^A+8}B z`rUq;ht^aTV5QrAV%y@yW1Aa`%{BV>yA7iuURIjzojCU%xo6#m+1dvan(jV&<>blx zF6cGQweQUCllNZ0XQ(^2?_0f9IOLRe?Tl{|wm+i$ zOUQD)nf6OHo5n_B@B$eC<;|y^V(@@q3gG28sA;4IENG&VIl^jWbQp$4HynnOU<#NU z0)Q7x0VSBDB6Mcp;1e_voDRSa(gBY16z!dXdY}|KD%Ft|3a{WTC7Cq<{y;5w4vScC zj9KSq;)X4y)T6<#WF#YjsO01h%aZY{Y}O6ULBP1t9l+=c)!I)!U38<|xWfT|6;Usl zgp%)5g8)w$0>=nG!b@(@8~lAUyRol=E0B^(OKLxPq^)b|BO6o?DU!Wb4QW93PuEYXFQHj z(4IuvqLhxTx>Qvj}&G&0m^rRaiCCvXzOOlLudATks;}#U}I=x0`ef+7N7-_47O9qw;$We?XY=p z64eOYunHrVCuQiI6x!;lJdD{C{xKtK81Rv=S_{AuhBXD-HkLC`uK?MNEe5dgV0x*o zrVJZvb#v!-fnRz0!<1N2mV@F(4h+jPrngxE?ERM*4ax_oPI<`y#a74K>Op(X>}_hu zLpXm+%IVYFH4!rx(-w#PygchWw-3mft|%7O`FTMnN;v~Bltkv`^G;2r*>S4EzWkQsfktr_f3@#_yc#p;l;N-^TGFBe)jPj?|2K19rGmKClF)>$_VnF zqf0eZja*Pq)iGd0Yl1&?CnJuMMgc=wMK1+(M1Wxe1dJ4AHhdgTR6$C@BJfbXz?4x2 z%wap^2{)L~;i>Mfvl0LzLp9(XUV(Sm3-q*uQAt<#6gsx+ba=&cKq^;YyP-`Mz*}<) zr7{2m@LAm@qu@bu+Bh_JZ{VAgFe5`|;A!}~LTY%Zkqb{?9l&>@;_MIZRUN1f&lyH& z;9AK~qz3)gBj6sn<|!)fxhkT-PGnAOK@XB5Y$+@-l1U&#!V5~P@62hPu)QTqiL5T3 z=qDvqFx<#)j3ab!&`tf;VoqG~>0oTp$l4GPky&b?L1aSJ6w67^S70a#fvFIzC^7Z$ z0yqJ5Y}!0z7-VW{%D4``@QIJIb<>)NN6|~7*Xmpcltm&i<@+|L_W89b)^ulOtx9nbyjf!D*=h02}g`srS z)(mQ>8-&xlrmDXX{-VN6O-0|@%6<$N5l@o7h0T^ z1MhU7_InyPx|SsbW?Isv<>DX1pa_#sKXiTT!S%?&)@@y|VecBODV-gOcTFr);zDOe zhRh(nC0SG*Km)f+!pzwnW5?7iTRR=4IYa%Nxn1kFFNX5~A0`7p))))8txX7u3jr^j z=cR)*KCm%wU_uTI)sf<6=@4%&(RwaNP@gpJ93(UHNdPtZvyN%48GHOK+gn(1n6qF6 zzx{>FCdgl#Fe!s*Jdi==9Jl}9eG;I!yk^cCGNdhEVIt;BRyv}ksTBF=oLQY%_wB7V zd|0LR(|L`*c3rb}=Q11C-~ZxU&mm*K z^YFOQb)|)U3-gf$HEBZ}o?1I^;BB@5>wo)gmE{FA0ZJW>!a!pWG|f*C7(S z;>6@mfgd}ndCTqe8L-uD$6Qp{d92 zyTVBZCcow5FI|8B*{47FzW0Ce^H<*p=U;GSrhIK> z@$$m{)B4_C)Cao5qOi2X^MH3~@1n2p%D{w#6i7NMNT&xH`^Fvc za0c&0KxpiqPJc7r_n+E5aVp+`jT<(uUAAIr$Iu2qM@%eOIdA5SX&X1LTfKV4s#VJ; zO&+^p-`225lM7Tw7%n#e1p#0?JCCE%7_>==PvdA5urZ#kP^BoNZ$yp)5 zxaNZ7ZdY<(3&1rFfeWU>{;#wx%~e<&m7lFcH|ZlK(W(j$ds#ooYu!C_+OW34iT#Hl z&;nF$5+7)T{a8Ph1}yu8y`Ey3TP7OHiMfEf!)JY=ktKuVOy%Sq0m1xYIs?gFgzE9B zc+M&LZq#=a0L35{UGzl2P9kV|@1%RZoRcTo@nOiwkP7>1;3 zqF1b+O-9&Qfj2T`kCGOf_O`Uu2`L&jw8Vm%tr?K&|6gEHIIeS|Zpu2{@#qT!NMx06 z8CZ>VSj2HV`1z+c=6cM zm6Ky9&7L1KRkg*=@wUZo$nB##Ya5bnwR^7uw2$tJ?R~9}bJ5Aqwfj}FAU<;Pgr@99 z%&{cRcYWIAp-8%{oiQF7HHld}>(^mjsbgquabX_jf$GZQ5nT=*kFWlQ&KO_UT1+7ByKJrW+R`0sZNs;4&76B*c=PHFb02!w+mBv8dFtK^55M~z z@A=$k8D!q}sgHZ54PGWw%8$WFhk=}o4Bl!Garw!|X02Y-f9ZhCvzg5A@_FS@OG0Nd zpUY$($>hw*nY(t`iR%|2Cq>uzHA2rlcy-vquFUUPInJj4k=P82_nFMQGW|<#hGzy$ z0eL5oD(21x5wI#NE94MD0dwp+xSlb8+pgsX?69nL;>ewc&fU0j{PM{QkKQK=z(_O< zlf}@D-TO}LaOLDRLi5v6vLrNq#*#m^7O;AW_HnFsjR*#A*_azz|*>?6P*QJDbH)xOvf!* zUk4J4JwgSggyFPqvfhnejIhbTQdt3H_6=z1Q>_V8=KvOB%a*q9Gx%ZL=%B`fXrD6i z6T?f`S>Md&D=wl!_k_$p}rqLoGrZ>n!7xA;W*%m4tk8qZ4H&-IU6sJu!NjVAYHXw%e9y%Y1zy zD>aR2qs_|_*O#_rya)A4X<_08w|d`No2$Ag$W&NR_!bH#;!K!E{iF`w0fQ85zsAPO zX_~lEJ{$}E+MC@)wqlMVQmK2%xUu7sh<@(n;kxNO{foN_^7;y28q#)CwT}Hs!#Ad) zDv1@cXK~z;`l$P=Jc4n;2QoyAvZb-85=0cO6Z~m$dpNxa`Qa)bt}p5JG`jZXm%po2 zY3Psys*i3fDxL<7#*OJG_jO17r5Aa*rx8qkitFL%?mRv5XkM2wi-{^kT!1tLFuxk+ zngDk0ubhj-F-471y0-u4*MAwANA>v^31|vGcGu%1uV;Glr+@a#Nc_F;e%ncIUo)5f zLhzV~z0!tcV7oU8k_a=0b!Z2u?i6_Br3)90n=-kT-rifRM~3m)kFl#hcg*~$V`q&T zF|KLXU3bi0G?78?)En+Qc=^nokKMTXrY8Zr;b!t{A&Ei8T2f%L5l#725}1})hpwGI ze*H@2r0N9K`TqiHs1Dl!dm#MJIm>1;*E0=Pg0?Otm=YrZf5`hTjGj3rvn-Q2pUE7~ zWbP7#W+Q4NAyY6lx2&|Fe@)+hRef{v`{&o@7BuAMRp;cQ8RJJ>)~8QFpME*F=T!AC zX~`>X%CD|3ZXQw9G_s;&+TfD1yxNA6G0P@QSTlX_#M%)HM|8|=owsJ;l4a8tu36T- zXzttvGp9@$J#TUM?735CFPgn=`<8$Cmwy4^FTecqgh}IP&zsS`U`E%NuI0;@-F^4n zfBxrx9ti)VAN^>~!r6(x^sojR^7>5)SW$+xKg=}PDZ`MN0&K`LS?C&~L;_QFoka;W z_6Y@2h7Rw9`sz9)CyyKf6u!!zHJHW@aKJvC2_JjN6Xp~!?kCql6Qp8NaN_AyeXVK+ z0kn0BPiUr(z@T}7=@q3n=6c|r`U>%ME|WD4L2lMY-A)$`e0H6t8Ujd4Vu*e|Y-la- z@uo&$3pLCR3?^`xu!gQ)ONJ4TqbF+zD5quUu@qn`0sMD686iD zpNOabYj(2RR~<_1nz)(ExPp*}+swS~;dWRv;vzCVhF)bh+6aQh*B}Q=fjSiF6x-7n zRfz*|QZlg!?T?ty$SOWV1UL^coU?4=$k7$PrdXN=zXuRS(CEk!+@Ee@d)(-jh`UTr zQZfNo0tub?3n9YcKfb1Fc^bc&CXS!d0z{2c)~}RgOg`x?5iuG$`%L4W(ko6<-0ppz zhA)M$dy3>~+eT<=8rIr7!w5BXg}sPDDQ7@3$x8dkdBp0bJE5mA9`Aox%;z(i2kcv!y)MBscJj_-9?xVxlgaSgU69G#oymMWllfFOhfilu zu4Gz9HofOv@A<<&{KKF8eBuW` z_<`$3jvR?b`_h-b6xjan|NieQS1ubrrj^&95a2oU#%p;?ig1-d0Q6C<;j`X>CqykH ztv+&*NdyQO?^42Kzf#emUufxW0nT6bh*sGW(NU=S%VhU~W52Si;3avqXFmvgIVZ#$xNs%^X zO9(#6h&JsQT9A?nq}ZM+-U0II)F4%BYpOC8S#DeTr`e{zrWl?o+X1Ah@*m^_X{3M3 z+mO~;wlrkVRjJ727O0ott6%%7&-5>CI#*!+YxVXtFzOp$Pc(TG1agGP_;wGEWi&|V zgfW{BZLBQo7dgjWX+{t6=8??__EOiuc#7(Ao_+=IU?03ckXf*9RhW0~dip%U|KRxrzGym`p{}4Z=pRROub@7u+ z^>#m9yLxr%)XphW?A|+Q%A^h>9fm_i-9d@XI++wR9T@VVR0DGfoI3!5uMWRb@O%X$ zKpvz6a~dWjXBLnfhzM6t=a7U@fGUg$5D82HC@87{!MN!U6a}!LnCeIuP1NjX9wGEy zVS}ROvSTwQfJ%BeV5IIkp+y5;cqO01=k_R1b3-L@1OLGzK=Y2lUbp)s+36B&=7HAU%?iEJO?pr>;Bv3dX^;qDla? zS$KHA$b{;C`KgEO9z~ZR1w!G!_Uxl@*rO*+Xm@Pgu}H-Ma!6P*&eWAWdJq9&?&;~o-_>Uy$;#ZpJNGQ#xp#%`z-g($C02Nipl$UItTu-VEuA=UPFE*J z^@!=SE4q@1aj(W9LDM zu~|kakn%~@^%UeI@~ENyw&}|zNsy8xq_@OF<9bb9$+Vg6xe4CfRQQvVEQw9_b{b zgG_H7z9&I~;pz3%Y7}B3C6)=f6GUFp4;we~*!`F6Y!$k3I=Nt;BBq1A^Ot||XYq&> z+oKUuLZM&&C3s?!`PDD~;?MOvIi-#fEF7!k12UQMBY3`5AZ&*x0qMrI_sSsk2F6+{ z7x$tbn@*p^CqIcxibucBCxVN%s)f6@tvbAa<)J-Kzw1TRkq7U-_`c76=9v$?_fud0 z+PR1CJ@+YqZ z-;v3DDJw_bZb2fG`HHD#R#%^&RsKl_-S}9xB7|#JELrl?pZ*kF|NYz)4-n zh`~$^Fu@1|0@DFqni@>1GOa)!pI!sK4>|RP>j0l?2e^h^x(v!eX^K6J0=ZTj$>mt3 zl@;~Cjc|#==`O6EEEph>NjZESAvs-LddjVN8JoXkWJgPLMQdyIkRi2JG}!P{yEhO9 z#Q>QF1Co0&K(rN7nt-G?AYN{wS_sPrc99mB{0dwF_1dv%8P)TC$ zV8TmR*AAdw$8m|Y`;3&P2~v`wq-w}w{X+K9|4lhHzJ6zsGt1EObaf^*4QLMKYv^6u z_pIRSxb?u=l^f?6eX%>kn3?U)WB8{?7@8iyVU0;~EXDRvR)Hi)4}_P7#ULdllpzF8 z?Jd40S6==u*%9jTrgoL!7VDZc&QEc1>AG2Mg9rIaOLuP+tUMdR6q>w8 z2Mz~+mz2Wuc~kp~MP3O~-P=W9$(N`*-8j|WlgyK~21E4bpSx0njJp6}YLk&dR!Z}H)rr`v>VebNt%U7sj~(29_0q1pthb$J zZ|5rWTfg&}4}S4?Z9mN>!v~TzChH9Oj(c8s*09A?X0K8wC-1%7JgGHN+P|2!rO>X4 zcfbyuSw-mH%q%o^@Xm_vS0K-9@>pitlDRa@H5(TWT#=Lf#7h6$nM`LEt93ZN{YDm_ z-2(GhXRk}f#v;!zvsh&^@5o|1O+Mtp{7mM3*+-BF@lcrmu}sEGy*4Wmj%Ugzl()CF z&zLdel<-Jl7n@@IT@Iq0S1E|+E0i@Ib;P0IE8001x z_?9=)uHhsF`{dP=R%*x;GY--OiZb$0K_R)P(|E;gdB+&-*?ibNz+hWjjl<)V0S>d7 zcov*wC#S9xC14qhJ7IhA=>X>R0a`kt=SPg@99c?V>#E#C2OWThpv$ZvDnNd<0`Z8 z?n-K_ao*eR9h!Dc4{KRbVgK&MVR(>obeHsa-bU+nGh-}`#+^He8y z5fxt`$a@^H8EWz8f zi{tvwe)*>^&Rje;(!}&+)No$yN#_;j=PX$?PT-PFm%MlkGE@j}JD(Yt;42P|{5%T& ztNuD>PADi#uJpO(7g-kd8&KA_q&9crl3DoMPd#}5q3c)B4m|nW@45W!lkfTLr>{T% zMo~-qPHd-ZSxBW*(SM9SqLb6=8FL5- zdi$sTkFnj{fhEUG;hkBieqkHO(bK0-2euRI z^m*o*_;t~uMW6iSC!PQ5SHB9Y`~Uvm|9jc8#as8R28MJzvvLC*wnJu>As5(HfIox;k1hgLXy$u z>_L`iK}(4lw@KmQoyl?luR?b0;a!ax!_`Vhd`l`iF%0soF%l5UYINk{QA9Bf*%mQJ!~?ocCQ@PQ8aU|xb+LMIsqes@PO16fnsjJE5-=6+eSM=L* zWb>LGOOU5se(vcVXZCN{x0+9WB(VKo=g?9+XrnB^LN;kaL+XmDoSf%5SjMtNn&E3t zLPhTl^3t?4wa!_IhA@(;SV#~(6J-$dB!1DRfBD>Y?qED9`qa5l9`5u_^`(~JO+ph>>V4-;sEz%If<(Ye=_)B?vS!)-;_QUsFdEl+jpMS!1{`u!$`tXDAd@F2cmN6br zT|am7?z1dHrVIuJrQK{D`M~7Gvj-d+kQtq1nf&RihccPJ%48PD_e^F5V^daLpVf24 z|8<%Cb%mFodF;rwyNWiJ+{E_Z&g$5K?R4+iI1!klvTLRkb?|-*w!cjra@GP*Z~sU( z{d;@#c1RA}-SYM96u=1wuJ2|RJ+SB>|2|nW1<{sG;r8CWd+pz_ef#$Cli@Gb-Q68} zyOq-e2M&bY#{BSs2ObE(zi{Eg%JmB0Km-d3%OKGMBSK!`SfD6tWw@we|>g5|!V9LH?6_M~+KZSi0FQTq@&`imY#)M^%e1jE^9 ztdp7|N#G|K&JNG~PD~IzlzEu1ebkO^XUe36Qf7E(RdZ{ix~G4QE!8VF%wD>3%IeMY z<}V%t+58k1iO>&y4a-AHNZU2E1ka>kB0mMpZacAqDR|{NyRjrukXWZM^p+I$n>};r z`khOsO&Kg@=j z%9{GRd=@IaTgUFbaOJtD7A+Y&X?)|bw(`hl>ZDeT3Ie+XdCi?;|Exg~0LA{_*uX`< zp(-0O+WVpZ<#}aUu2@~v5Mpc>E*i}zKk_Ut>P!0IlMD%!=0k5E+*Ew&jZX+NJtE@& z*~f0spe`Pr*F9qE{?+TY%r7e)lqPN(TyyfFdv=}Of8m)&5wG2N*V|9N;qL2idv5=g z)6&Ee#@@@PVE*hSOI+!iFlOJS6KPz4-M4Y04d{otePByt1ufAWIq{1)vXSZq{1xOUXaAvRenF$W=9J%+}jKx#-UOvD1=+48}FCM*q z!FYN6z3;j3M6#6xrH#{?Ew_+&$>o_x|?bOXrHWmL*0N3E(q9@HH=1);<1sRz<%zYlJ5$7;|9zr!$!g zS$jKM&HJ(vM0&OwCZL^J>pCU>TUm!0*v_`|p)BUVUt1@|IP~J7fBlz#1<_0^Cr+HW zcJ11;&p!L)lTSYK$Rq#!&;RWD_rL%B}Nl7&SLZQ(@%#!&v|C|?%jd^AOHBr zXLnCF#(@U4oVshs^Hemhjd7p)i1>putShh-7O?{Za9u`SXG!oYw1);xAckMT4$N^t zGv}-#rUOpkyt`mEh;vSVW`cvjP=#do8c;;t;)EP=ktLbR?eG*}C3DKW+!%_Xkb+S% z<5~LAOo8E=-(z!QCDSoD0_Jef;RJF5Sm5S5vvXZ-35~s`x{TY2i;!Oe5DfqUxD%iB zTZR1{Os}si0k&Y% zOa#CJe^1vSkeo5Zb3MX!Zz)vwLTXIyz|chZ#wt%9g{^Gdm{w!NT_9cic!y1An4ZkJ zFk|aYU6YtM&+Z|bErP&vevgT}!Xx*XPkDqM(Twcyrbt|3IK~7^k5<*oq^%s3Sv6%2 z;Z2CR$_(#B1u$*H_J!3|xl~#4F9Joe(BMm-F?|T`7f>clwYVtPu)uKAP?wyQ}Li*iJ&;^q>{ z>I9QOSxH|JruDVC%eaQpL5+*r79)Woq3!-iB2Y2~U^nvmE`Y;`-TH&y5udXrKHF=KU=J zhH_zpZP2ftLN&1Cz#7;dRA7gZ@SuRT+rkJ03%S~1`qaVu?mT$p>X{=~PG1qG_u|{0 z`d~65NUmV`7qPW;)s#2B^dY=Gd(Q4-+Yum)V8`@I(>0=C&+CiOCZ|6^)5HPN7%}@Z z(hWDr;Hxp~phXlH4}$IZDtk>nUJ2%X-9~Ai(A7G+g`do!yRS^2H+IdwO*3W=yYj}T zPTaWu=x@Ea@9h3#S5Cq6JKk`Oz1LGx0=R}@Cq<0H=ClTc1I$ix(_E-2%V>cc6PS#K6dzlT7ZUEZ; z7|*}`?Qh4q&lg{OF+ERDe*NoTfBDN_j<4^3|NECMTNdYk{nvjzVZum`cK<(V_ZgkV zkv4c=WDp7{2PC0@0*IVN79bEwfB=Dn5)wjW0V3y|!GMjy*~T_DPB>tkbDo)JW}Znq zp4myy%+Bs}_S<{Tet&dotvIqy+Xe5Z8f>5-2?4kS}k zqLxKyD6KiZKQKQ)bQ>vZA@dlyDOYxjRh_29P1UYan) ztGBM?%!ljF*|SIVP2*{&yYlCU*+g2$x+8&|Qorn z+fP3A=$^}Gs_V)(AKlTibtUJ$glSPepX6N%`zMk?+s+*Ue}RuacCDqo`CMpN?|VBg zp4xW)SjpHNPSRfc;|XSbTLpOKKsTK=0m0VRTN4`%d&HCw4Y^CnLQ_TcyFi@$HKm zE4Q9KvFHB#?z{2yqpz9$_w<(IdmeiIm2=NNsp7-S_EY=d3(}32Q9YfhY^jf49~&|C zo_ICac6KP(Iy9-%^zCE!Tn!EzB9i8$zWL?nZ+!JdMN>^^;?gG_#*?cN5idnVeAqGK zWqw4&@s2Lq4>~ONq5}3U5fNn_k$=r zcjL#Qxv}ZRX}4d$&CK%q-~ay4fBrN5+%eUiP96+;2mE*6eb=~mCim^zx8J;Z(@1!K z`}XZCEG+!N4}M_cs=G?3m5v^f$1Foz4u&#gMq#MIuDTI0;TMfz)|6*9d28pDj4LA6 z!CZJxBqSA`5k@LhVn3nYC7WY=C*fL75Zkd2$;m*OhkZ&oP|FFK;-sI1f@pm<)D+8??FTxURgp27CZs*uJHHBZ7 z6pR`+IGq<_HUuubxM!R*Z`6PSn$~xJlt1X^$dQ&VaO<`fvWC0b(4rn=^Ee;lE{3~! z4!#@+IdqWsp3T!2i+6PIFmOY9qrO+JQA~IQ`O?yXv-nb|7|U6fR>_E=87WDTI#u&> zSd&t@sa&#r8gmUVlzikasVTeH5drt<>>dUEQ!6Vc(qPAr&37hjp1PayfAv4ZOP4Mh z3sGg$ht$;1hUnIvYiG?I!YMs@#LbRpv^GarVrUlWbdWcKH8H+tR^OO8b4GFhMN#L5 z-AY?qPwmI>gAd)met+Ah!`qftPiJo8+)TrS>t+tYHXLlFQ8v7V$IRBf!Q6>3pr;au6+hI+;+D%RSu3XxA@vMnU zU;q4PyDy&FdpR`P+1h!=$w0bwI`~JTy#ti3zO6NBPD)5m4ob>?QbYtB2&C&jWhV#f z&m$t9?&wGjzOT+9yULK6qYRr@Hz`_M4j!0XKWoOSc{3{KO<6H(eC@P~^~>fiuUg)^ zYR>A)DJ#oMR+LU{Dz8}U;g$ zCX6s5dO%TLK|zjLu>*>7^7Hvr)N&6ET^=$xf8>bbnX{*rOc`G`V+8XHE19-Gdpq5d zeGD0NrGY$#(+uH4L8*O+=Sd+596*NYn9Ap^(SdOo)v4<+;uZlgfi4Pnpz0Pj0gW=z zf(8yy&KUtHkkoQ$qD*3xWB0mCDo}~lQq;)8z(9Ep4BgPJi<7o&kEH-exfLOdBdX+F zqC5xMyOUrm5+fvaBJeQ4moIxDXa|zQE#iS|NieE_y!h?CPyuWXToR{adzv{@4E6?W z2Wme_F(eliL^H*}vhSH1OlVSrNiNtVbbNtifh@7ZP~8QSuBX!)@}vX@u)AH%IxLhJ zvkA6)gS_0gAKmFGT%w$Ni5egXtVkh|MCMr4kSF~kz)oUH6tTTiJ*WIedPho_pz$8* z{0@Qu-i43fD|6DTCpAbS9|Kzr!b@GngnjD>YtxBg@scUjQCs=U5km%NA;0h(!b=PP zJtH@g8+NZVHYq7FIy$;1kALy;y~m8?uvdpjg3YTB8U2P@NTsN#AkB)FT$7bf9^@oJ zQ#z?QrysUQQ%c#rso8vmB_(##W4N?wLD-W(0Dlu z@aK&(8h?OQoJORN8`p2reM2#EIZR8 zcWhSOs#h&qeSMMrsX-Nq^h7_l??%lX%|CY|WR2zHaBP>vwM7{O|*F zU{%}Z?ORs0wXNE;sbyW;#zXtn-_wsiv~u;jr7IiO?cde5e}Coj6(a_lADWq&nwpiC zmX(>7o1NjnniBExmV4_H@+#J&S4wMlQ1O96 z>d@g9C!HZL;8B4fIiP_a1)fR|mB0>?a2hnJ0<9R+j5(*e!!N-4iGiTnwtr)8c4!=? zXq|MGe37MKHELMKPnII?qdi@I|8!lGlP4AnNpl8pn`6P`L^fbHV6U&mu`nW(8IkxY zW6&+DGD#fR;w;%qBtt+B>xltThqH zWm|~t2im|~!4k?$HWOP*L>9a=!V-c;;QL%LLgb6&iC$dz8!vsSst(VG| zZ}_Bxdk1r7q;l528uVW3A4Am_^GaO;~ z!0XA+OEwstp}TWBmMjm)bMHZXTqtkB zAKjh-$HE-BR$w4*vGH zzpZUh4`Nc1O zF4&KL^uw)Nx4ie>yTbqe_rDY1x#ympF=zVRxnn44Et^*^TsY^~zy8&)e*LST|NLjJ zzWeSwVt;A)knHr-IDP{d)&hlD45A`9hyZUvqM8HX&q=$n zF|s7vuq+1Y;yz?l$F_;Y zT|y$ZLLfxgA1LR63{nmv6hJ(li};|Hv&m2ioF`0G2eubOhqL>o=H;YKo>UC`nn;9~ zx1dQyRW^{O!)Ip5OPfKD_^B=IeYu@_?`;}BM8h|Vp15%f(V%=tVd+{>TW+<#$Z>nM zz}7+OkP`{AL%V={A*AHQ3w0^f_tCM8FQofs$Y>vryGVS57r#V(1JpAaGYKNJdRo8a zg$r1}2U92XCX*CG`nqW8J{4*|u-p3@HQ)NC#~F8#)2~lgbHRAg~vULCyaC>Fgs@Ge=RUR$0zi3;H104 zlUU6U5+)ex69lt22HrZMK|Eo3V-%%JQITEr*elf6yR@83Lh8KCAGuRnc?LoifSf=r^gz9?q`t0a6W(kr$2;JWp(&LC|CZ> zIWh}1a4%qvYU}AkM*m{P+LXaUz0~ z2cwn3)3So+(i`5iewnoZs2`f)nvm);gRRficWcnQ7fo;1;okio3ru)@t03lk_r_HQ zwi4jr0)=BdZ;fBwd{^QZKvRyWQE_Pq~W*nDIMg_D*}Eny8?xNyRnZL3&j z*k|;#s@-)P)^=*?6wwmFGyHddRUJK>|D|J4;_D1d9jDovwng-)?6GeDo^SrkFJAok z!-Mxf!@>eXH|VL(HZ<18SJ4oX*hLb+fhMMJtN;fu3qAC*(Y~m8>T-Z_ zK+v4`PBq6c8OK13rVY#RsGkwdfKE9>B3c?ZNGpalKfMte9j39vP&hpTerjZak6S>P z8V|XYY816cLa{Bco{nZjiCbXVNt^J*5P&!qziby3rdvzY(nXUd3_S4Q1z4k^yB(Ir zCR&-nRnZ2Q{FGsrjqRb_E6gO7^iE<)40 z(@|?SmWc^wlX(S7!z)k-TEPL^D;G@wUJNI9sP5{Ty^?`wvYTk8kSlH67Mn||3BBDV z%^!k^{8h*z6dt`jooA%gqkYi*>KmXBIH@@h$aiy`L*r?qB4xm*#lVj324c-AA1PXA zAl(N;E>PW7d1AsR$0l!>Vo^RzNJ#k%`y6l_=5v@QPWI`TFa@@bgIP8yi4Onba3=KQ z?$7X4slbF1jyyb~GKeR*C485IdnY&f8J_GD4j;_V3gVeOrD*JEOYLN5_U#?nEA$ir z_Z)N_e-Rvn_u;vye;q6&0{-SNaJ&$l3?3ouRUmLO5V)ok;J5$r+wX$?;Cl}4m5fCr z2JgLg**dd^rQ6L4J38uA%y+8!B#=?FH!m=Z9o-k!%QLR;I7f;rL zqYe6ueLQNSFWG0~b2X4AGP1i>NYYa+CnoyPpVrhrGqzg=d-%9~UEamRSfxXO^)Jk- zn6PTkmfe@nx1T*$*IKpn;+fi(#T0nz<$?v{S>0JyzLEw)|A>fv5#6hMRIh90A>^Tsi7h+MoH%;o zIA(tI(MRSGL9x+>My+7)x~*FdJ$QNlkt41?{P4q{eDcX3|M*9g{?niS^zp|ZKmYvm z0xw;fSvUp{4y{qKHd+)tx47^^~{&`uYQzse#X`+)sl0yfFR>4-$ z@LbJRuT^Jim_0H;G*yazWm9LdS2d)MVHbL+$U(gZd9ncaY%rx+1X)l9>AJ}{QNcZY zpm<|DL_5Gk6cq+PG1G>tS`efRoB}4+c?4v}Rm?;=R21Ir0zjXufXs=CiAb9Hh%M;= zq>w8`QF$()24Pc=J)LFyLex6AMYMs45uv~~IhR`+J_w87CQDE(7#$nWrRb7GG2emA z1f2I2o<%Bb`@|FLB6$Z;4%{WTA{U!TJT>_!li;j5K=65F=OrOF(gD@!f+a{s|Bj{1nCm;Xev9N%N0o>evPSlb4KU%OGrxWW#x## zoEz{wm=dL42YM-vIS+Rvmq~CeD`Qi5!4v&ui@!$XKmYR+At%r9sY;ScOIC2b- z9)LPMN|i#6K|i@2j>pFK?LF zx_x!~$^8c&yw3`%kluEvo!|9#BY!R&XMQ)FX6N~1>-KDzTs}3*Bvb8`WgWAM(pj%M zwt*254IxuZ;@spF>(?4B|KKZDUc0Hv9J_Yq?D>%1e&);>eiscgXKXReA4oOEHf(O= z(wa{I(|enJ0}KuJ67YrNP`C?2=?3Xg0D$beDx>O#x7y$un3n@31MP7!U(FG1GaUgve3U?TkMZT_p^p zk`UNWkw_PyI6u_r@FDprDgi_;9(Y7HA@P&S8e)4^l7|wrBm_WXvPO6tj1wp}`GKb3 zS#)&DiA2RLPOPRadzPRZ)R`dXZgGk9q4%;;kav#7FQg=tk9ZKC#fh#?Cs#y%3gf5z z%O}M~oPqxDC&FtNP|Iy2N90n-sk^;Ppm;&Z| zz;FjX3D^g7vVb@PY9~FBM}u_B85arfv<2B1T%6@I6Tk2*LijJCpd135O!>^= zbPNM&^0E^wavDtD45mS)rG{#>zkrireLD=CfG`230_%Dh%innq{*fUOf9dfI+(?Gi z@34I%9CHw1H~{lbNBZCG!fX$eXJ-Sn27X<%J0?xkcbpr94hs$p2k@}HB{0j}^Yin2 zleqWT5OhDoX%SdtQ{Z$xJWTv=*iJkJF$7N(ey%@sSX5f}Z`pL_$oi8ZgG}JsH*n+| zI3fsO9(L^;hy!BuryZW01GkXB`NMC5_`|M*{EUt2VlarZsD-Tbg(6+xPJ&pBR_;!ABpi-LPTF(j_mw@^b6?bu$;vf8oU!HgDfHrF_<< zD-S&W!^Nlxdzj5xux$%?6x2{=z z`}XTMZ$9_Ji#MNp{zk=u`Iqm%^v0XF-+TZ4S6{oed*7Zpm9yzTDsTPjs;N`Qzxd({ zuiSe1rI%m2apReNd-qgUF1&N+&DE{V`T1E#j~u>nh+Ks8q% z8DubA{Z(6O#khykf%_E5f-hu4Z1lr7f#C=banB`Cg*bQ@5#H zOn~yexe=CS&$0Z=8`zQ~8WB>L8IK?d5(=4}aa9J~;v^a5n4&I+9>;-Agw$yuWk8m+ zGoH)s!GkCP&j{eodkS%C+R(`j<`JhHx;F&sj`f0x4>~zL0N{4bwEe~szVds(=tQ>Umu#zl*Kk`DN zVYfMf#0d=V0m%msN(mbr*w}-+?%jux9zOZ^XTq2IM28GJfjkPI3?C3oVeB&vISwrU znkxK4goAM@7IaS(j~UsrZ_Dm07niT4x$?^XAEEu9Li@n^*k1&}pZ^s0+F|Qm9orO$YcB2BeUm?n_aVL{DNt@(+ZO&re;sc zcih;%>DVI=@i}HCRu!MS?1x`}#Q@7EUcI%VrDbv5iiWjoYFe5X*Vnf0-tolk*K5|b z)-*S*TEA{y<@~wJ7nd!VSKqpNQT>XgE0@n+yr_0<>#7~?bCxX7!P>B9b?c^$Yc{tn zs9tKJjqy__l#~oBomNsdYf9<#@l&Udn>uaO?}6W`zc-o4Slqsy5WnX0Zsw7z)sv&D<8KyL=v+1%q8k1^5mWg*pql zm%F0Y0H@ZM)uE&9KJP#CdG6jbNm^*Lt z)UF1bc*IHHAOhrBV0Q)5L6*SK*UQqPw^7j%G~|dF6or$rEt58E*XU3tGRB3MsN~!& z_#C7zt8#_&T0@wR-T~P0&=gCS778%0J|J((5^E0>Q`8*@NlXx_a)ppGfaeP;#)+Ib z4tg^~{Z=8D%S<{kZX}!7g{W1GAp(G~ca6+|EOnVDILHVZd!Xd|9)v-DsJAfzQO+^n zN5XFJn?Y%3pk5?QG&FqQlFn0xJD?7Y<4W$cV19`vIsJik$OJ1lih=%5)z=b~w8oCR z$Q0Hj-oFbAQYMWz%Qd8|->WbO$V$s#p$f6iUshgvR<0IxMB&hZa~GB*Cx_%gVq!0& z^@4S`{R{@N+#8RR35mTdQF`wmTkiOY{llYcjCd>_6dw){*l@x>!;T!oXMmj(gW#v( zJ+ZNOrBTPJz#1Q1rLH^phZdN7PX@t)TapsG9jsRsbZrFTbA~cug#H4r^}(?j zReDiLd{txrmGee{nlXy8&%OT+N9$|$wpG>6&Pb0k2;W~|T?uZqkLeKQ;h*7y?rh*4 ze_gwDwql(jwVgV3N=@lpGHuwzse?w3>Nj`c#O7U_+D;r;uy}IAhT8gdHPYI0VxI-F zIa^q_dp&#mnjNhR7ftk;?Yi%zlgnz$S8b|${LN6C;-S}G7U1~f58Zh0ou}VFsZP`Nb=23opMwfq&**Ln&T)_xs;_+E}>I0&1@i0gvB#y+eC^)UmbvAc7lt z)!C|fyb7!J@Tj^W#+?rLu&Ah-t9t4zt;T`*DQc_gtb(ZfOeoGEq3TRof(7-F@)qh` zJG50(n!cy58F>h6^g0Kss_I6Sq9D<%)FXAD0f7`y!8MaCo z2t<@gY2h&3VXRsCtmsr(R}m~wUnLia0|fJoXyz7rzQE*yV2BrNlwLOqpg=@|?W(-w zL~c_En(Z!02yjFj80V#qW6nFNG&nQFZN!$S6azwv#9e5QIW$!pjnVKJZ`MioDsB6) z0CKNv_$kA{F6Ll^XlH_uvT9QTkWLVUWO|32GH*&M$`khjH6A?47nvl&f;J0j=tj>j zHs?K^Y!F_u;lmJ~aYlv-GN2B%TlvztaEx?D-4(U77FSN}(uP(8bpGqT+nn3L`-y-@6ETQD5QeMz9oF7nfsQ!dRZb+ zd?d*1!yv3(V#dLC8x#w#jezGi8Bq9=aElLBcvpR{EPJ8u^}+p;I{H!#%UAx+kUPFK z;z_!)C$LxJ3zQS6mkqHI1ZFLn)M;|PsYdEF54y|?RO_IZFebWd@qqZE{8*!`2NcFx z)tcw4i4*$QZ>lpv$&|?%GX^8!?75?+&lqHIJ6w;S++REtPW$+nh|y!S`epPOJ2opN zu}gA7=c4>LgTVb6F+Qj$F)Jf-aB)&bde8aGN+(Xr3ti~=3sl*zcXiEs2gVoW_gPXu z$B1{%aN^^-8#ZZ>WcTiOgWin+x8eHpFFwC}B4lRoIQbVVjZ3;yoxfLyw}3^-*j)3f zayy1Qk}|e?A@8oNjGkryh5tAZOG)aI5Z8$*!(`9I_)up0ruDRvteLqD>#KL)f0i?x z`i-^Dhu7K&6nJNXRzO-xr^oKxo?br8DkoE?4_vu-bMe4Ft_C)oC7V|A$?0df5#%^I zF|z&m9;!=7?RnsQ%a)Zp&L2Pg@Pq3PZf|T`*}8Xgb<0vqqgvKnV1L%&4i4<~nc8fZzAN`tRnM3=e_T!Dyq2v^OP5byvum9dv|s=HGy1uuJ$R()Se5U&Yo;Z> z_OdGf_Savjr|d|Y0I*LA`1$dVeu(go-hPclxcTAxAYdJkS3m#s$}6FRkAD0^{IQh0 zXLk#vuy)D=sESbCrzooIsD)SRphhc81zbbAJ&dUSc&_dfj;^ZINUnCM;M6T!zy!@_ z7FTeDVGfRGX(DuypMqlA;4lWh;!N5m@}BlIJxx#w^s?<)b(4+eEBLf>B5wgb~;+?)5rk z(i6#vGaf;5&U+U!BYqqBD|Y$UvJe1@p3qC^yvG-zeNZ@_S8R$!(ZRl-L2^pW zQ!8+hd&_JZlz$IMmQmN`#EW2`B+Ai`yffLSckiBNcN^bsu&%cNx%T9^kUjun0+w;I zX2nc)b$BePOe@OJXCMq~k}pkR5)IlQ)Nh1$AONZ1 z6QWB93Ei>#Ddfm{~R?s`p>%oEC$dQ!&omQWKguei<<=gI5904d%`pJ!|GL(?u-~ z#g)q9rIQy|O)>beFfYD;PHg|&5J>_vi+N0?(~7yl(bw5GEh;6c=kOtYY4|23r6u0K1)XjH?=){HC7Wxa6)nKG$c2+dEGi!FX^14tmrhj5WWX~RE z9akM} zPIjNP%Cyjs^(ogrc_l-Svs$5 zY5Dw>%cjg6IdDLt!l_s~ZD~{G>b+a)HZ~yq$tNG>{`b{SJ~H&ZaYOBbMHAQV+YIUF zZ#>2Xa8=Z^uzZ(|Lk+`zx&e1AK?7eS6`yT z-~8}BMjq;Ya31Fo{@QDyu@;ZKaqIaH-gB^V-zE}4{iVs9A#1r1oMEx2Q^A5us6v0E z&e2z$RGVmADioe0xnrAZXw$G&zt}3NJ@zznsL@`=Np%M>Re$uLlWXv*>Dt$7BBa2J z>Ms>_Q{@G#5ZE8RV)O-c(9Njs(j`h<0zFg|fY6Zv%oL&e2(YpWUvO$eEg2@B+z5lh z=>YPBtE7zc3^>AvY#PUQa;Rtt zIWUodAP)iC(HnJT#$)O(Ea>0YCfmvu)n%CSPjZ2+INf6NQxYPPXPNg1nh8Oo*zTlb zc$WcJ;a8am>@A>~VplA3B{p$-7V&#b8StdKC&W*1I4_I?k%&scdVG5?!WqYk$S2{E zodkJJGh$kqFrJ&dW*RbkJNj|(>obrdktYoKu5}jlX?mgASv;}C`T*F#U8QM<`o~u- z^pU_j>{}leKOwqgY@zUY?i0dTPXXX~4$CwFv==93o)qvck^Y{Pdf=m?qPyf4_c|Ha zcEk_bI&FPUZfD7nRkk4G+vEB~3+9qD8WG-zZ-oQ`s3_szb;;5x4J`{p&g$!DJFc#s zWxOT7G-eN(Ml@^IFy3hpBPO~#Zu6{F&_9uXnBoCegv<|3l1ej8viHEEbj}dK+0f{L z1JVuG>Dg23pXs1$LPBJ4d+uF@)6d?$y9NE2oXl|5qLYqa9ioa&$;O6eTCRcmfA7Nm zAF}Izb22)r=a4}ev&%Ws(LdWiInk7X&dEt3FTD&wJ$rN+P?*XRqQp{DV){gPkB#b{ zo0VYlROysZF^(9P71^t6?_OrwT1$N>1Nhn#KLJIr#7cn~v@AM6y~qq;So_ZM|J0o~4n1^b<)#LHBY7Bm;HBqxT|E8vH(x#R<{R&R^YtqqfArap ze{}ruhwps##Y-Q5`08h$zV_LtkG}CLm_x^Z`R#9?ddouFkE++y$jdK2|K9h%N1uP5 zkHPof1%KSuv#{;d{_F4DF>lMyXWo08p+@aiwPBnJhYzoR`5AU0n95E|XC0+MfwKcO zF{o&iDAhqtbVhALW7V0ar*h$g>JPIbfl9^@wOc%tD~JPpX`vsSqCF)_(_Xs(uPA}; zRng!S6EGYnQI55opK#W4#CAzY8Y%V?4ZuS0B0kVKK)q~>Bv40{2~J|8hXQlQkQi_e z=)~+;PDF(>9?*gFLXvCBgq>en_$FrMDI{4C%r^BbKw+!}4AO_e8Cu0Jb@vKMrT|pG ze#!K9t4awb4{jHa_#MazVnert{8ad`kHa9We4KHW%I#`MZ@+dC)t&Ta<&Xqa=1SGx zlRA&*qE$q02XLE{IvQAJ97~i~5d$lYj44>h3P(cBHI6l)6rh*rMbOwqOS5Hsws2~C zS{zVBTJb6>Qd^8B?*(~AW#x@~q26-nwT4{fFB&;4SO2NO{6Ov7ASObxd&Nv4p_NMt zcsBr^CETbLDmrVDge2#4qCEJ_P}g_mq^|cuA*;lk88Nu3A`oX9Demc9ChljMB zesKnP$WQOc&YV&X8=RSu9%neW4^MSovP63%kAHH-Yd>^I1_2QnX+fKNarNDCmw$Bf zAA}3}sO-i87kSMGn%wfnpi>|wx*Ipee2B$F_Zl%Yd)>}f)~$Y-3A}anP3tp$T!HfR zBFx+wIyf^cBOxUzCLu1${55B|H}}as`0C4No_TV|`C~gT96xpa@m-hB)EZcF<`Bb0 z-?SJ`IJxEFG>l(}132*NOGYtGEGbxAHI7ZZrr`Cc6(dhj?L36XH1%1l9Sy#JX0w%+xY)~_|SiQ zvRluHzQvjSN9Gq#8a`&;^vd!naa9(<}_`; zaC*b>gNs*`o4C5Ny|r{|@%p3t7+&U9lq{*8v*y6|#x1KDi{Ag*-+k)NZA&|`?L2<_^{3yy!;*slPuzLqk=Jj% z`~7dw{^d_TeDkX>Y3X3jK4XXugZ!<}RQa1m<^*%5SZp|@ROUwA027*6!tzW% zC(uQxj;ms-Gq}Mor5)b&pBjKCbqErnglwRSE%HN?#}HSAcaqLbAH!Jj;~tx{s0bPy z##o|3FwzGAF;;%4h(1NxmI2YCAGAWES|b>a$$9XM;Q9JjpD(N^!2#W)av~K;$UkA> zF{L7;ta1xRN6pDe<n0ptpAohK&5;1$Ro!Q>1G3+bU`OgSqY z;Kd@Q70)GIk4XSI&?IpnjGVhyemtp177XMA^3(h=Tq>>#DP|?+3`>;4r2B!JSFb?O z536}##&%;)4CC|-C@W9xfH>fZg?+{=165+0u)|MGMm&ZZuT>-@vRAg{;AXwCj3ky` z6%`A-m{Ev657%rj_5qXW&$Mg6mjsa^9$BK6Yo`e2m`Wgf^alz#qQW(*lXN~CU!Y^z zM(@0wRQ}D3lM&3u-p+=G#-xmVDnl{Y6AF^kBA7C9pbiwC$AEX_@EjcDOe{LOhy9=d zeOEME6L1Xbiky8?FSFZa(&Nja+2yKty^Apic&Hah?5rcarogJRNR;M z^$fF+V|#PGHM@Kir;A3w=I5qzpROb|W)+TC?*nLBUAe#@=giRDWUDvw2GG2IIokq5 zL2G+67FE~HGNbdpkYkn;e28%}Gi737|D1$D1Ja2(EhGN8K+Hgw4g1=*9^X^bFo(O~ z+h2W&{JSolo>%h>*{5#HSOn4)otHYwXtRPiUlPz$IPf+ zFm_hS=(4f-#dpWEc8rI=`>cNp^YHJ^y&~eXV$ufZCS`?8@!5m3#x0m-osRZXCz|)| zs@=YMVQWL{p?ylZ$0+Tq37jVdfCbRN2fox7ZEbu&B)4O}v_u6F^i0^K{L_%(h>9+9 z$8>nn+9>~of<2|t2M=+WCi6fSFw-9W;8fD$7XZ55f()JoQBfN1JcVfC9f#%I9(YMH zC$$||V;C#cL=O^Z^#Mys8Mi1dVXT)&X;)9>Hb|QCjH?p$m{fE?b_}oz*0a0OPf1Hi z_T-8z_FOLcDFY&>RKuDL)%^_MA2duvEgt{UosLDMM05YmrYs5uzn- zv-8UsAp1TQtfw97a*hmp1}J{3P)j?S_E9&cpOUpu%TIq z+CMLun@8`(mMSyjrM(56*x^yNBI``<-Eh!;Z3&?}B-=YD?D=~gG zQv4y+q01>yZ^yU>=pVSnVR|CYS>t>nNu<*XT;FV`4uI*E}h+Z>FoN0+xA_#c=?6r zo_+VN=C=B}HB}5XEK!_NmQE~8itQ5By;CNS&GqvdcebtEz15m`OV&46ZEBs>>R|&Ydx{Va4Fm zF>_ZnOsJSXV|hj0j;+f!ubbaoQ_;AD0~gv zbnbD!WM8}W+`Df-|K2-KzWIh_o?iawL${xO=BW!eo+b!r^^|;D?gIi6BB}PB|;lJr@MHnPh+3DNhzzdm!AAI}EpZ@kYs18c>K*}L48rbcT6MLzY z_@mFxf)M}(7XSiZ0%MoD50z>ncw#$@c>8|RwFnEiP$>`$l-#1#uTskfWU;!tDjV|S zM)0v=vM}~iK{GLcjF2|q!d27?urD?cqdpN6s(|ydA+|sbcDu;2TCTJmph=3d9q7q2 zAiU?YCtrvyXWS@e^_p7}ZG4|J6jOa&^-!2BKhF5D0V+K`veD~tTlL`yc4C|$D z_lb)hKW+ec27*%d$X{hkV|Sy%-*@R0w_u3P>EiO5GBHR9Z{Z7*iB485$}{%Lj7tiT z9HByE5#USOPlWf3dNu*XTP9*KoSvYu0G@D)?a&R6VwSF3XdvQe#sNTAB?l>7CGbtB zfq?CSu1*t{7PeFAJ%uB;FTL)7!_5&c}HtwabW}K*J|Y!ILiPDJaPVic}g` zR|0a=+A4z+5D%;Cn<}&x9q4ox2HtJ%on1ase(15(b&#j7OTykpYUJf4XZK4qB%4bI zvB?1ZT7tZPZYrCYgg7*lE-RKI;s8x?3B#h5kPxk)d{Kw4UKlkpPv(7=I=-W#dYMnb z0tV^5B72}cq-%NUdPqx+=ci6-GmdFSxg>Cpp61~9=#Jyvx_a04!N$vZ&mP@+_v(?G zol@Tza$!Na^0n_gb3mU3(bG3Ae(b1x(oKz+KX-Iy-?)C6Ns~E|*u8%9@x3F4@-mme ztfoGyz4>z+IXZiO z<5Cu(F=KN%nH)B(@6?$i*Bsur{@6hq&YyVvkz*F!c;M3hE0?amaP#^buRrq2%U55# zX&Kg|k7|$5A+I|5>PH{qzb*rif8zFQH{W~rxp&^a@y=Vs9A*Cg7oP`w78`myD-FvG z$lv<(6XqJWcT-}GjSmgfx!*!{*J;u!#f?bgcxu6AG1et==lD(zqG+! zpjUhE0m)tRc_R{1v9zNZ2#A)(=)(XRD8^eV69@;&CqTJG`2lcTVzktKruy4}6uU$M zuwtMcx#}c_JA+yn1*bMKqf^kh5EXS-Bmg2CGE9dTbAWLWmRmvx*2GNfb{r6c6eE~| z6jd1lNX)_uK&auf*yPzt*1l~yk-D^Cmf3-ZtSCI4=LHIgW9c0`Dm12DuG}uL3`p98 z`{@xFujEY<@&Ll(0b2p2D6kuW8r2ooISE}n$ug!PKWEk`MAZub&H@XdWaL@-%bthw zQlu!)#I6`57i3bju1Zma67qCzCy7{(iF*cHOHL0e4(VEqqI9jzhuX0sAwG)Y*Rxl5 zc+bj8uBk0|FL4lZRej&_mW_0_TF*rsY(B7=wuz{)rbUCCz69DYkWzGQlt~r?5XMP3 zMP}A%Kn|2@YMzC;oxxSC7M?av0r1jkywm{NDc}?CvIn!2VdVEQU<>yhvO$bup!|yv zdGw`fDX_p03gigZ1xY)D&p~YN_3g1HVLpw0@LlT=8H9fJLH=PmWS7{|AW|Uk@Cy^ZRDcDPvP9=ae3iJgl4Ggz8QIR}iV-bL<0q4tRgt}ar*6HCLwwEDm zx3>ta%%u+OV)o#o@H+| zO9Sgu&~M&9C&jDb#+J8ynt57EOnhvwsgnlQG%YYVq;koWK?BlCON-YZ+F^Y?e%kwI z_c0=9Kw;9FgF886Y24hr{>Yxn6|>C%df^nYilaVyE}M@FP7Yxid8FU?3L?Rm(^F} zdH(3a`u5G`4YlJJFGwuP>OZOEUxN9)fjYWV<8qUtlDlOL&dwWCOnV?Ca+|Q^>=zqnmMX;-h{qs-NsEBB?scpIv_lcqk= z-mPi!@EZig6_wP7s!?yT53P9ps?qG`a$0=Oy$ z!O$De2@%YMIC}~Py_#8o+AM%P%YXp%c4Eteh*Qo*B7WTS{UfRXo;`>};Rxw27(@Vp zWxl$426c|^C&TWwcOFYUyQc_=p-U&VxYbQ-aBx2e+BOBEUIY&k2nz`Xoe|m;Prm)8 zG6^D-E7+9z5ac`dQU_krkVZ6R;y}VhBTJ!qBI%NG?qyo>b~Ku_v!I@sPzWAJxR88N7=ba?702(WnY=%SnhecKaZBOoIl zq@y3rlZ%6ZV^Sd?6b|T7eUa1K#C&7}G#aw3^5#k>k$DYI)TIm?7=XG|ZrNatFti@e zWtHGyqOlhy(A$Ami$ET<2msvJIeV9cK|CALAYIvDH1;);8dPpzM_LucE0*YT4vxm= zS1q4DZcKlMbe*KDH=AQSm^9J+k(Q5^4)3RX0pGHK(2eS|W)2@dB+H^m@LoJ1Jv%Fb zDQ4*4EcRrs>HEY+78hkG2hU6Tcvyv|02yZ}#_%pexg9z4`+4ELB!c&_zyfx4t>EVRTGy1B$RcwDkxPo|PtG zJ6k=A91*E4Mo!UTd}*8ZZQv$7H7O=FImRP+YI_|4kv%(`ffXCowYVsS3SBmHcy2%L z>oeyqoj!B!n8diwg9aoGC`>fqBr(40venBM)Gw@SUpK#MM%$^QoT5{ToqG;gs zNsKeI8f(kyYwX9)pD}-R)9j|Yv9l*F-q1RJ-qg|4M+L(yO?REKw7k4_5zD+T-K}R% z?7n#3<1F8@e&6Mb_dWUe@rSOiJ9_BYwFi%1yL#ut4*J3eemCAKCV(J!Ac~sLwRy-!GgEcghoQ6Cl%_ED)Ns-8{8_5DXt&=XJ>Du3EsPsd7!3G|1y%rbqMmo|hC;AlS|`q)GZI$#Iq`p=^^BOjr`7FKNigGwYBz z2`Sm|bPO^|TU3&hF0O*DVu2BP2pwNOL!Gk@h4m>KRxL1XZEZ(yrZC7u5D=00NtyR{ zye3JYJzKpu;WqtDk2G}5PZ3nkdN}WWEtqf}fpdlPOQV9zgBaWe-O#{-=ThauIubNGUB1+Y- zspZu@*8oWH)aHr}NwK~fN~8~s-N)whpl=g-MsAo?xOnMQots64X$wLYq#U3&z{9p? z=US>b+@UwQ<|;8~c%%=0&YaN(jTn9-hUwD=j~bE9A??UvS*gj|7m=(Mw%Vo&PKJB; z?!gD0^~eYUZm-ysn5kuw$xDxh9*Xi=p#eqmrXeFte*aW-6|INWeH?gNV1Xf&$x~8E zNNtb-g`o#uS~azxz?h}p;z>)3&u~jZ3?axegX*+&ZL|>H109|k-?b}Y;dZN>OO6ge z`pdi}Wi3i;L8z3ZUMa~v!vhidIxtqVuzEBCm@s!vL|TWB z&hQNm692)7{d=$f&2f*!uAQPHvc?RJ&FYgqX7H%_aHG+)BPJHJ$*(!IfA#)7yUv~2fAPYkMYFb@I4*x`TA2Ej~_Yz*rQLs^wPP7R5FncT zs=e)0^qcR#{oso?Z4cji*{GYxUVrtmH(uL%>fla`o0zu#>Pzqa;Coc}x4!w>yVJq? z)z5#1kRNqeaq*4LiD1-1NJm9{C|#lfxDX7q>9kNxag|S%RD+Rz z3wLlW52A7lc%qzJ0AF%8I=_1{O^Pm2wgtmgas)|aOkj~XBNBUIuvcIx_FRC#Ihc=J zt~{4iXT5#J=AKZ58fH71alRG1M(2ce6@Q%if^#EnKUBAq@*>gr$)yy0^ zIK$dB9Ny|RGcY4Mx|d2G+b3#JaX)OwKq{-O`dWC*XxZGba@}&zYn*m$Ob=MAuAjqq zhdCO2->{%nMrlh%HU^ce1NYI(FUDu&9q*PO< zrKR0Re=w?(;a&fZ*$TA%4wJiuuwxM(%vqdB8EhvC2|F@Nx)9p9c3EiIzEVd1oSDYv zjW58us@ihTyZziTs(4M~{OX3eR$OJQuv$b>L5eZ+!sq2Cmd_q#aypwcymMSLpwOaD zks0Z+B-FSud1Rtdixz8Ud1kAS8auo*+6Qbm zx<nFs5MGv@!Q8?LnkNXO#|~Ih7G6fAaVdvuBQ;Gpo;l0`nQnq{Y?Mh~XOM<;elADA(1#WI5=i^dcdjSkJ3 z4gUJXMKtf;S-oW=iL+|=&Ur0OEqivJymV>BmbT4@4jwvlreWLGNmZ3I>Z(nQI&|NK zH3#<{z5nvz%a@eNl8tK#g@>Mf=GfH-_g}tm*ZH%Lzx>kX)5mvQIMaUi)arwKZr*v5 z^=8BIL)UM=@$~ICPCW5Qi1RPKK#f;5sPvTfpZ@ySpa1)h>G0-5acf{=lz}vQU@7x~ zJF;K?;Sa!Wk6`HPm|2EWiupJL`#2BXaL3*Pv+9mxV5EHN6k|G|H@XE*5f9aY#ZTx{ zwPBO}hw;Z<)OZ_A0UhZ8o04Eu@sn0e0BLul^!idr7fk`?JRg#nX6!g!$`dVmkj)H=2!{kIuUWlI@w148QH*S6Y32A6u6^}_>hhn2r z4fNW3|G8~v4x>cn(y6u03+;_$HfCVc!L8InnzqN6sCVQ>9z?0Ej3jh>2(pOP#{F%G zYTmK&Q60lvujolJ34)Icwm1Tvtd~{YSh}SyKL2dXt_`WlkzAfKg!29|YJ}PPy{yjJ zvu9`PM~@zr8yg#1a7(T46W2Q_Ii^?7?qy zOG`~2!M)}!O(xt?U#)H0v8tV^I&sD-vr7|FkVOyQc5*M;>mOvhrr&~?#)1)mQZay# z93j8R1@;P>IZ!Kv)!SOOo<3aNv{3V8!Ja-c~^}E7M|OU3&GhMzdA0 zi%07b?jjhw`JtRI{jgeKng&&B}@u zO$(%3RX>l}Avas^Va%k7g%c-O7B;qcKuYVrt)6;W-JFIEb>qk7!}ZX?eXaP+VW5rA za0?hMZ(8IQuk-KWwqOVi~(^iSe<0VxsbM)9V`MDn=iwP4AC3k&f({Ge)ean?-06 z5PkYY=jZn|KsPz1j|k%uVwhBVM@6#FM1?wDdw9#8|H*26_l_GZ9-L+t&&WxG?vgC@ zzhoh8wt8S`N#@{wy`l`f`OC#|3(6rn{M$0q@ktSISGjg|(~fN`ceGb+Tvt*#fB2lT zaG30I!!t(@so6l$SySFvw`u>r!DW;4Mim;Y5)KnSNVR_4=piK)^9mU~_Y?p|RDZ{b(8HvTA$x}VkW73Bej$gd6aO#Bk?6|Zc{o~TC)cf6# zQURh8J55-!XvL%!)yJ% zuUfZa;PW`0FCKazba3&hCoReJ;+;GDuUy{$ zz@?jSzjgMhC(d1e^3siGHk~|j>!S}1yivj5{QNUr&(FMb$Kd(fUwnSwbI<60edUvn z-{(r>=RbS%%P-jQ>Gm&v^#1KHzj*!2&u@M9$y;B4^~FzrLOT5Px4-?-uYZMgA*J{7 z8F&f7>g*wyr4`etsjOHE-PCNPMLEDEAlN8erPWiF!3x7M5K&PYpAnwj1{Y%HnM?crMdm-T(HhZ)F~znLbz#7&+Mo2n&J5fa+3|c}WOEs4ucB7HE&8a7JlbYOv&(iS|3Nq9AGoihQoP$_C-Z(T` zWqf?EUXg6DT`dr=U$s}S?p7crYm8fKKXXLJ>eg1z;hts5RFf99&ADU3I`glqS63~p znl^3P;F{(|D90$l;A|}1sNp$GG{BXcldSiaPR`1~&TRQ<^hS7!sG;2!$1&BBV@7^i z>D$X|%MG97XUUwtw&VM(M7;j+uC)huEUuepN}%;C<>CGpo|`#ySZ3eQUK`l^O4O zby6@ik!#CqW-uyht#ItwHzNts8QEg`^al1sYsX|HL48bYXxL<@zt@Rn{qO!#(z=dc zP}a97?cOW7CBui!E*mmydcScaWAZb*C;er5XOH+!)2o-oqaW{mn7=u`yPU^&r{j8b>6;igFhAtQpjSlqcuwnDIZCiHi@MyDYYqlRc zv|`hSiAxtPSlz4_xOnOqjt;gRKU%Z3t!ej;)7P#Zd*J>Do_yl$!w+ffuwq@i@vPDH z)mt|#SY6Mm|Hz9kw4XbT^QRtr(D%rzuRQ(M?Js`(WP0ay3r);z5gC_<$k6O@&nRrOY21ygFm=}!a zp>vW!%NpjlpF5!^-AaX5UwYxm+poR<^;c~t4;kLS`PiNpKl(sJ;I+>`B?w3#9mG5^ zXml_uF-Oq$&CEqnB0zgY|H6O$;~xnoA;|^vxz_L9D8rEG#%JDpn|FQ7i&L#}{)?ae zRNk04Ja6-c8rD?yTRL`N&?d0x@ScTDi3qSLDq@Tt(SPycDa=X?P@ahGNEpoo4FnoH z>86X2y8hMAe)=-s0=Hh;bYvHqrJLJeCygo1s4ZuXwd~nEZN||2+;|4e*>lG{^vX-e zAAdwYIDPf2P)R;(fa{4T9&tOPiqXIJM!o7T=dH-N0%f)1zSAB1GplyDEni!^sD8ov zV+X1?HZNYaY|ir840qekpJwW;Y2RoK_erzHlvPeojE^WPj2~2-?2ByN+PdY;(cGLk z`iE(ZCL!wb%jm0jwL80kA#KL9Eo-ch#M(o|n9m6eqAFRvKi zxNR-)nvn;yLkDH_&rQnimtfeog$zu|v|Kf-4&SFNIY!N~W@xG~3K0ZY+A*!N6QfXE zpPnO!_aj7>tSC3WV%?Fwx|8Nt&o)JUZdKXJU7Ob)*>Ctn^X|<&d-P2Y8FkIvl*yT8 z!&$j|bnn6m7=t;iB_+ksc!AD)WI)!ZZ&r@6g-rBpP`TNrriLacvB@xoQ14lv$cTlN zoZX~?Fmz|6N2VrsU%6-7m~na2=a!VtF*hf2LBpa&D;Im}tiHWxFPdx*_!A}-CB%2_ z)gwY5VnSS~tFcdPCo^13W?_^j7x-Ba~+@r zJZ4;cq_OVNF_8%!%Y_@|PH@xJqoR8xr9=gu5C8Rvt3^})ZtzJ`bWCC1fXNfOWTfI) zd~sp$VTAUHQ3->Ja>jgTPXEh!-nvE(8&o=ZRC&md5)mI65q($PkLs2*cwp|>(d##C zsBUb$_m+QpoDjmkrIliG`#H!OIKVz{z<__S0PR1G;$OHB(>(&}?-7FCvQi^bgu}Y<_YuW=1m;ev~gp@#tjXd zHfnl|u9$oL?AcCTBPjg)PM)mZw4ruO+r|U?Pd#w|hC}-g-gjZ+A@h!o=zW-4Ide+o z%tH@c-f`{>Tm9D4CmidZXg_(Zu6@hl^XCqpJ!2y6@dvNme*gW;H=bsw`S_b}zWBF) z`|z7@?tJ>m%OAW?O?vmMFU_So@%Y2W97Mggn`kQaO{?UhK<1z>smPxnN#QyxJKY?-NG~fX$8Fma^V7j3O z^N*pKV9M2%mu^1&=4~^%Q}J1?F;{>VdA=#~S!n)hzgKYsnSS4rD5Pdus<%0ds#d$%8d?BNG)-q1x}zj>7g z6w5hv-8JBq?8C8!8RgbjpEGCFy1kpw-Z#TVo{9P8KxjcE|F@ivPd8 zEB$Hf%Hl61fWcsP?|_Y2j0?6g4m$=zFq<9Qm?Z?TL&9RV1QK>*RySZEfoyCcMPzLg zvUQoHYE>zjc9Kans??beZNH7w>4&LCn)wgr_iQkPNm6N=Xw(i@PtTY8-n;j{%YEmZ z`#Z}8qK>&i_1*HjX^`N8lnTNxJ;L=l7shO%jh zBnIPc_^P8_RX!Z4!i%-(i3tGVLt#dU#SuWWZPWu*?S(&-CL4fuyc|4?ybf;S+$#im z#5%*C-Ao|H6cTPhs2Lm{o^GC=>*R^zy^fG?tNFk9lPiu_s#J*M0KCaJoQ$Zsp6G!* zsf3`o^W);k0eUg{MGMkZD#L*TJh?0^kqjf|Ou1@xMt;6puiq$m?eB)n94nXmhH`z_ zEG$8N7>w}9NOC{CH?M;|WSzB#}40eHu!U;ZBURLgg6n|j)>et3W7_8QhEOKZ2FYgqgI zvoD_gapCqY^bkmt<@~ID^}WZ>o@q*z5RYp~bJ-(k6p}L-85jf{1fG2J4PYPx2B#)ltOL+hNmPmhZ7tB| zV8%tnbD{Ae=N{xJwg;c*8y&rFT7anFxw&HK4MA0ybSj7K6X?Ik$D2q=ivpoT&?LC# zIUhuvJ(zys5+)M4RIF6%>nhQ6n$NDPrh~wx=^<2Ap0ug21@s(Zys^y$QC2Kwg>gy9 zBG8}MSD_Zm`EV6a%9c3mbVfmU=0Q2*WMRd1#>m)^j8aXqwjfzo#OBi&9FK%-Sw>O1 zFlJq42CsQGlL}@5DHqCOSds&>2H*^(!+t{+B>Z#lUrWstLLrDcot0DE2~cdQEVQ7a zklcSE${)Q#sKcND?1PMejU=gT9UaCRnHA~D__z{YIU#|I+knp?bR?vDpk$EqGqc}egm|EJaCyZ( zDI8&-wR~0hFF$`GMX#0>=M&ggJ95*r-qi{+kj6c|3Ga>g^II>y$^0%NDJ?bIk1eWtS#un$tmlusa9R+2o!+LI$*O+&&-UCpKR#rys)^4&HF&6v^D$7>nnyA=L`q);X(_fwA`e@&f^HM z3?f<8YJ#us%+<@6?yP~bRkXLxUR*l6yxc!&KQ%XJw)E#8s%aYNKexQRbnV*kEJ^dx zT*J`7(eW{esi2Usl_G(ul@(n5VeDTt)o0hXPcOO0kgMd~d zAz1+RkfyG>u%-kH?W*I=U8kqUFI~g|>eM|mU3shlE(WDdCQvOODv@2BhR0jq9a;F` zM#tnh+$-$wE%%-|%?NRaB|v0^A4F&%Du5}@ynhY2E5b*Ed_fF@ZUWrIc5z|p#`Qk? z1e8i+6BAgA0jaA!-fleJ4jLPqouW6_mo_y9Fi5gM@gkr`mlr7uYO8fkby30~yxRH8 ztM?x~&^OnaN31~GwB{pGajfDx6R0;2-q@ZayTT8C|8YGaLKG7*}?riG=YS5c3MaFCr~kQ&$?BYKAO5u8DX z6Efpt6C+$D%&>LJ6&25E8y&_Y5U>%}yTFjcWqW}sNW~m%YJf8~j&B&~hY_;+@F6^I z>^SC0#X3~yM<+ks+OFd`d(tW9u1-wO5ca09$`MBp9z;cBLw#FYY3(7{MQ{>?ii%RP za<3?1Q&7Z81R8`;E)BX%fZou$A}^PR?@bX1-=Q;K7Uh*1M0oiUbU~0`FaamT0Os~c zu*|s4H%0fLSz|~=WM+$02unF<3X0(dBNTuj1p2|iTg7umTrAxLO{MDoc${ z%#vWr!OjHSUl1MOzg^CCJ?+TsCOmnZK+zTe8ZwnzKOGEQD|r}bA{{CK{>H( zm8n`*lq<>0fF!JKtb^eeCwz+>Mi4?7UtuT&SCT3uFaX2n86~2}?G?a_4eoL&dQCz> z9t>{HW;4`11kIbE2b5G*Ro2#$FNU{sNmgzItaCxcc&T!ZT#Spmy@}KkEms!nMj_(z zlmUE)TOVEqU(C`d`tl$Tc;jq==_w0u=%O*JG0TC_l>%qAQ1 zd!f%{36f)Mo!Pf~#`uH_wtT!l+t@3mFx@!Y7q(Zk!DfcGf)e&%QQ~Fzd!JYTo8G)S<*cpMH5!e}lU+W0`8wQk4L;wH) diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index 734d187add6..75a5d2d4802 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -293,6 +293,7 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) { if (type == GE_DESTROY) { + /* This is not the right place for this (if this is even required...) //AVO: fix for SPAWN_ANTIFREEZE crashes caused by rapid online-offline switch. In such cases //inventory items are queued up for a spawn, however parent is already destroyed which cases game to crash #ifdef SPAWN_ANTIFREEZE @@ -308,6 +309,7 @@ void CLevel::cl_Process_Event(u16 dest, u16 type, NET_Packet& P) } #endif //-AVO + */ Game().OnDestroy(GO); } GO->OnEvent(P, type); @@ -392,7 +394,7 @@ void CLevel::ProcessGameEvents() // не отправлять события не заспавненным объектам if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) { - spawn_events->insert(P); + //spawn_events->insert(P); continue; } if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов From 1fae7627cc9f9e57a2c149cc65b391527099e3d2 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 21 Jan 2015 16:32:36 -0500 Subject: [PATCH 082/166] = another attempt to fix spawn antifreeze --- src/xrGame/Level.cpp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index 75a5d2d4802..05cba5bf7a3 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -379,9 +379,9 @@ void CLevel::ProcessGameEvents() game_events->insert(P); } u32 avail_time = 5; - u32 elps = Device.frame_elapsed(); - if (elps < 30) avail_time = 33 - elps; - u32 work_limit = elps + avail_time; + u32 elps = Device.frame_elapsed(); //10ms + if (elps < 30) avail_time = 33 - elps; //23ms + u32 work_limit = elps + avail_time; //33ms #endif //-AVO @@ -397,17 +397,16 @@ void CLevel::ProcessGameEvents() //spawn_events->insert(P); continue; } - if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов + if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() < work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов { u16 parent_id; GetSpawnInfo(P, parent_id); //------------------------------------------------- if (parent_id < 0xffff) // откладывать спавн только объектов в контейнеры { - if (!spawn_events->available(svT)) - Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", game_events->queue.size()); - spawn_events->insert(P); + //if (spawn_events->available(svT)) + Msg("* ProcessGameEvents, spawn event postponed. Events rest = %d", spawn_events->queue.size()); continue; } } From a0fcf1d9b1401b57b41358097af1b221c6ef08cb Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Wed, 21 Jan 2015 18:05:43 -0500 Subject: [PATCH 083/166] = fix for previous commit (rolled back changes to spawn antifreeze) --- src/xrGame/Level.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xrGame/Level.cpp b/src/xrGame/Level.cpp index 75a5d2d4802..b41dd91926a 100644 --- a/src/xrGame/Level.cpp +++ b/src/xrGame/Level.cpp @@ -394,7 +394,7 @@ void CLevel::ProcessGameEvents() // не отправлять события не заспавненным объектам if (g_bootComplete && M_EVENT == ID && PostponedSpawn(dest)) { - //spawn_events->insert(P); + spawn_events->insert(P); continue; } if (g_bootComplete && M_SPAWN == ID && Device.frame_elapsed() > work_limit) // alpet: позволит плавнее выводить объекты в онлайн, без заметных фризов From 2f9bc054a84cc0ece7e156ab8243286fb06c5474 Mon Sep 17 00:00:00 2001 From: Andrey Voitishin Date: Sat, 24 Jan 2015 21:55:37 -0500 Subject: [PATCH 084/166] + diagrams project stub --- Diagrams/Diagrams.modelproj | 40 +++ Diagrams/Events.dgml | 376 +++++++++++++++++++++++ Diagrams/Events.sequencediagram | 1 + Diagrams/Events.sequencediagram.layout | 1 + Diagrams/ModelDefinition/Diagrams.uml | 60 ++++ src/engine.favdoc | 30 ++ src/engine.sln | 401 +++++++++++++++++++++++++ src/xrEngine/splash_xrcs_en.bmp | Bin 402056 -> 402056 bytes src/xrGame/xrGame.vcxproj | 2 +- 9 files changed, 910 insertions(+), 1 deletion(-) create mode 100644 Diagrams/Diagrams.modelproj create mode 100644 Diagrams/Events.dgml create mode 100644 Diagrams/Events.sequencediagram create mode 100644 Diagrams/Events.sequencediagram.layout create mode 100644 Diagrams/ModelDefinition/Diagrams.uml diff --git a/Diagrams/Diagrams.modelproj b/Diagrams/Diagrams.modelproj new file mode 100644 index 00000000000..75d69954157 --- /dev/null +++ b/Diagrams/Diagrams.modelproj @@ -0,0 +1,40 @@ +п»ї + + + + Debug + AnyCPU + 2.0 + {2e39994f-b060-45fa-bd07-daba262e8ce3} + 2.0.0.0 + Diagrams + Diagrams + + + bin\Debug\ + + + bin\Release\ + + + 10.0 + $(MSBuildExtensionsPath)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + + + + Content + + + Content + + + Content + Events.sequencediagram + + + Content + + + \ No newline at end of file diff --git a/Diagrams/Events.dgml b/Diagrams/Events.dgml new file mode 100644 index 00000000000..be9318c9736 --- /dev/null +++ b/Diagrams/Events.dgml @@ -0,0 +1,376 @@ +п»ї + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Diagrams/Events.sequencediagram b/Diagrams/Events.sequencediagram new file mode 100644 index 00000000000..19a76f130ce --- /dev/null +++ b/Diagrams/Events.sequencediagram @@ -0,0 +1 @@ +п»ї \ No newline at end of file diff --git a/Diagrams/Events.sequencediagram.layout b/Diagrams/Events.sequencediagram.layout new file mode 100644 index 00000000000..19a76f130ce --- /dev/null +++ b/Diagrams/Events.sequencediagram.layout @@ -0,0 +1 @@ +п»ї \ No newline at end of file diff --git a/Diagrams/ModelDefinition/Diagrams.uml b/Diagrams/ModelDefinition/Diagrams.uml new file mode 100644 index 00000000000..643e025ed61 --- /dev/null +++ b/Diagrams/ModelDefinition/Diagrams.uml @@ -0,0 +1,60 @@ +п»ї + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/engine.favdoc b/src/engine.favdoc index 8a0c4806480..3803e3f6e98 100644 --- a/src/engine.favdoc +++ b/src/engine.favdoc @@ -56,6 +56,36 @@ + + Client + + + xr_object_list.cpp + xrEngine\xr_object_list.cpp + G:\Stalker\COP\Engine\xray-16\src\xrEngine\xr_object_list.cpp + + + GameObject.cpp + xrGame\GameObject.cpp + G:\Stalker\COP\Engine\xray-16\src\xrGame\GameObject.cpp + + + + + Events + + + xrServer_sls_clear.cpp + xrGame\xrServer_sls_clear.cpp + g:\Stalker\COP\Engine\xray-16\src\xrGame\xrServer_sls_clear.cpp + + + xrServer.cpp + xrGame\xrServer.cpp + g:\Stalker\COP\Engine\xray-16\src\xrGame\xrServer.cpp + + + \ No newline at end of file diff --git a/src/engine.sln b/src/engine.sln index fccc7f33903..512220e5f20 100644 --- a/src/engine.sln +++ b/src/engine.sln @@ -136,556 +136,957 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "LuaJIT-1.1.8", "3rd party\L EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lua_extensions", "3rd party\lua-extensions\lua_extensions.vcxproj", "{44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}" EndProject +Project("{F088123C-0E9E-452A-89E6-6BA2F21D5CAC}") = "Diagrams", "..\Diagrams\Diagrams.modelproj", "{2E39994F-B060-45FA-BD07-DABA262E8CE3}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug_Dedicated|Any CPU = Debug_Dedicated|Any CPU Debug_Dedicated|Win32 = Debug_Dedicated|Win32 + Debug|Any CPU = Debug|Any CPU Debug|Win32 = Debug|Win32 + Mixed_Dedicated|Any CPU = Mixed_Dedicated|Any CPU Mixed_Dedicated|Win32 = Mixed_Dedicated|Win32 + Mixed|Any CPU = Mixed|Any CPU Mixed|Win32 = Mixed|Win32 + Release_Dedicated|Any CPU = Release_Dedicated|Any CPU Release_Dedicated|Win32 = Release_Dedicated|Win32 + Release_LuaJit_one|Any CPU = Release_LuaJit_one|Any CPU Release_LuaJit_one|Win32 = Release_LuaJit_one|Win32 + Release|Any CPU = Release|Any CPU Release|Win32 = Release|Win32 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution + {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Win32.ActiveCfg = Debug|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Debug|Win32.Build.0 = Debug|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed|Win32.ActiveCfg = Mixed|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Mixed|Win32.Build.0 = Mixed|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Any CPU.ActiveCfg = Release|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Win32.ActiveCfg = Release|Win32 {1BF75FEB-87DD-486C-880B-227987D191C2}.Release|Win32.Build.0 = Release|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Any CPU.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Win32.ActiveCfg = Debug|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Debug|Win32.Build.0 = Debug|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed|Win32.ActiveCfg = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Mixed|Win32.Build.0 = Release|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Any CPU.ActiveCfg = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Win32.ActiveCfg = Release|Win32 {566551F4-4EF1-4CB4-A131-F982E7606907}.Release|Win32.Build.0 = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug_Dedicated|Win32.ActiveCfg = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Any CPU.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Win32.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Debug|Win32.Build.0 = Debug|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed|Win32.ActiveCfg = Debug|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Mixed|Win32.Build.0 = Debug|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Any CPU.ActiveCfg = Release|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.ActiveCfg = Release|Win32 {0899B131-F1D4-4876-9BA1-67AC821DB9E1}.Release|Win32.Build.0 = Release|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Debug|Win32.ActiveCfg = Debug|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Mixed|Win32.Build.0 = Mixed|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Any CPU.ActiveCfg = Release|Win32 {F1066EAC-EE25-4C7A-9023-5957A6F7BA27}.Release|Win32.ActiveCfg = Release|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Any CPU.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Debug|Win32.ActiveCfg = Debug|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.ActiveCfg = Debug|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Mixed|Win32.Build.0 = Debug|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Any CPU.ActiveCfg = Release|Win32 {C961EA19-716C-4A6D-BB13-689F8FB78B01}.Release|Win32.ActiveCfg = Release|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Debug|Win32.ActiveCfg = Debug|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Mixed|Win32.Build.0 = Release|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Any CPU.ActiveCfg = Release|Win32 {2FAAC8BA-369F-465E-B465-2235963FD377}.Release|Win32.ActiveCfg = Release|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Any CPU.ActiveCfg = Debug|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Debug|Win32.ActiveCfg = Debug|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.ActiveCfg = Mixed|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Mixed|Win32.Build.0 = Mixed|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Any CPU.ActiveCfg = Release|Win32 {65CBB9D0-FBC6-41A4-8316-F5E9B5D7FB33}.Release|Win32.ActiveCfg = Release|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Debug|Win32.ActiveCfg = Debug|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Mixed|Win32.Build.0 = Release|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Any CPU.ActiveCfg = Release|Win32 {A6EBBBBB-5FEF-4C20-8460-DFAB11734DED}.Release|Win32.ActiveCfg = Release|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Debug|Win32.ActiveCfg = Debug|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Mixed|Win32.Build.0 = Mixed|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Any CPU.ActiveCfg = Release|Win32 {EA5932F3-02FE-4AD3-89E8-7072DC465D25}.Release|Win32.ActiveCfg = Release|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Debug|Win32.ActiveCfg = Debug|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Mixed|Win32.Build.0 = Mixed|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Any CPU.ActiveCfg = Release|Win32 {EF76867B-6EB8-4DC0-A1D6-E964FAD6FC7B}.Release|Win32.ActiveCfg = Release|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Debug|Win32.ActiveCfg = Debug|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.ActiveCfg = Mixed|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Mixed|Win32.Build.0 = Mixed|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Any CPU.ActiveCfg = Release|Win32 {B730F54D-1199-481A-AAD0-5DB684E067C0}.Release|Win32.ActiveCfg = Release|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.ActiveCfg = Debug|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Debug|Win32.Build.0 = Debug|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Mixed|Win32.Build.0 = Mixed|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Any CPU.ActiveCfg = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.ActiveCfg = Release|Win32 {EBF9B543-0830-4866-9B48-DC0740E87E8A}.Release|Win32.Build.0 = Release|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Debug|Win32.ActiveCfg = Debug|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Mixed|Win32.Build.0 = Mixed|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Any CPU.ActiveCfg = Release|Win32 {A4ABD75E-825B-4D09-B3B2-2709682E40C8}.Release|Win32.ActiveCfg = Release|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Debug|Win32.ActiveCfg = Debug|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.ActiveCfg = Mixed|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Mixed|Win32.Build.0 = Mixed|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Any CPU.ActiveCfg = Release|Win32 {F1836CE2-59EF-4189-8B9C-D103A511CB27}.Release|Win32.ActiveCfg = Release|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Any CPU.ActiveCfg = Debug|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Debug|Win32.ActiveCfg = Debug|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.ActiveCfg = Mixed|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Mixed|Win32.Build.0 = Mixed|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Any CPU.ActiveCfg = Release|Win32 {3AD26FD3-4F52-4E22-A4CF-AD4C49E74C61}.Release|Win32.ActiveCfg = Release|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.ActiveCfg = Debug|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Debug|Win32.Build.0 = Debug|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Mixed|Win32.Build.0 = Mixed|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Any CPU.ActiveCfg = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Win32.ActiveCfg = Release|Win32 {A19B1DF2-82EC-4364-8BDF-85D13A1C89B5}.Release|Win32.Build.0 = Release|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Any CPU.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Win32.ActiveCfg = Debug|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Debug|Win32.Build.0 = Debug|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed|Win32.ActiveCfg = Mixed|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Mixed|Win32.Build.0 = Mixed|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Any CPU.ActiveCfg = Release|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Win32.ActiveCfg = Release|Win32 {A0F7D1FB-59A7-4717-A7E4-96F37E91998E}.Release|Win32.Build.0 = Release|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Win32.ActiveCfg = Debug|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Debug|Win32.Build.0 = Debug|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed|Win32.ActiveCfg = Mixed|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Mixed|Win32.Build.0 = Mixed|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_Dedicated|Any CPU.ActiveCfg = Release_SecuROM|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Any CPU.ActiveCfg = Release|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Win32.ActiveCfg = Release|Win32 {CA0649DD-D089-423A-981C-46B57A884EB9}.Release|Win32.Build.0 = Release|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Win32.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Debug|Win32.Build.0 = Debug|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed|Win32.ActiveCfg = Debug|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Mixed|Win32.Build.0 = Debug|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Any CPU.ActiveCfg = Release|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Win32.ActiveCfg = Release|Win32 {200652A6-043E-4634-8837-87983B3BD5E0}.Release|Win32.Build.0 = Release|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Any CPU.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Win32.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Debug|Win32.Build.0 = Debug|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Win32.ActiveCfg = Debug|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Mixed|Win32.Build.0 = Debug|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Any CPU.ActiveCfg = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Win32.ActiveCfg = Release|Win32 {5535F6B4-7AE6-4B66-8AEA-CC31C14D7AB7}.Release|Win32.Build.0 = Release|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Any CPU.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Win32.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Debug|Win32.Build.0 = Debug|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed|Win32.ActiveCfg = Debug|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Mixed|Win32.Build.0 = Debug|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Any CPU.ActiveCfg = Release|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Win32.ActiveCfg = Release|Win32 {435BAC9A-B225-457D-AB40-C9BD0CC8838C}.Release|Win32.Build.0 = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Win32.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Debug|Win32.Build.0 = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed|Win32.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Mixed|Win32.Build.0 = Mixed|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Any CPU.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Win32.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF97}.Release|Win32.Build.0 = Release|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Any CPU.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Win32.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Debug|Win32.Build.0 = Debug|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed|Win32.ActiveCfg = Debug|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Mixed|Win32.Build.0 = Debug|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Any CPU.ActiveCfg = Release|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Win32.ActiveCfg = Release|Win32 {57A498C9-A741-4DDF-8EFC-BFB9EB6B00E2}.Release|Win32.Build.0 = Release|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Any CPU.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Win32.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Debug|Win32.Build.0 = Debug|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed|Win32.ActiveCfg = Debug|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Mixed|Win32.Build.0 = Debug|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Any CPU.ActiveCfg = Release|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Win32.ActiveCfg = Release|Win32 {963BA4E5-499A-454D-B002-1D5ECE0527A6}.Release|Win32.Build.0 = Release|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Win32.ActiveCfg = Debug|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Debug|Win32.Build.0 = Debug|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed|Win32.ActiveCfg = Mixed|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Mixed|Win32.Build.0 = Mixed|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Any CPU.ActiveCfg = Release|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Win32.ActiveCfg = Release|Win32 {CCCA7859-EB86-493E-9B53-C4235F45B3C5}.Release|Win32.Build.0 = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Any CPU.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Win32.ActiveCfg = Debug|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Debug|Win32.Build.0 = Debug|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed|Win32.ActiveCfg = Mixed|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Mixed|Win32.Build.0 = Mixed|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release|Any CPU.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release|Win32.ActiveCfg = Release|Win32 {94A1C366-3D19-48E6-8170-4ADC2E70DF98}.Release|Win32.Build.0 = Release|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Debug|Win32.ActiveCfg = Debug|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed|Win32.ActiveCfg = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Mixed|Win32.Build.0 = Release|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {F573DE85-0866-4775-955F-6C3241D2AE80}.Release|Any CPU.ActiveCfg = Release|Win32 {F573DE85-0866-4775-955F-6C3241D2AE80}.Release|Win32.ActiveCfg = Release|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Any CPU.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Debug|Win32.ActiveCfg = Debug|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed|Win32.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Mixed|Win32.Build.0 = Release|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release|Any CPU.ActiveCfg = Release|Win32 {6BA3121A-ACBC-4685-9246-4549CA1EFFFD}.Release|Win32.ActiveCfg = Release|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Any CPU.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Debug|Win32.ActiveCfg = Debug|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed_Dedicated|Win32.Build.0 = Debug|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed|Win32.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Mixed|Win32.Build.0 = Release|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Any CPU.ActiveCfg = Release|Win32 {39EE310B-4F1D-4716-A39F-4AB844DB3680}.Release|Win32.ActiveCfg = Release|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Any CPU.ActiveCfg = Debug|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Debug|Win32.ActiveCfg = Debug|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed_Dedicated|Win32.Build.0 = Mixed|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Mixed|Win32.Build.0 = Release|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Any CPU.ActiveCfg = Release|Win32 {93AD3B7E-71DE-4FA2-90E7-A79782ED4960}.Release|Win32.ActiveCfg = Release|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Any CPU.ActiveCfg = Debug|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Debug|Win32.ActiveCfg = Debug|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Mixed|Win32.Build.0 = Release|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release|Any CPU.ActiveCfg = Release|Win32 {56AD8F54-F89E-4B5A-93F8-8A617BFD1160}.Release|Win32.ActiveCfg = Release|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Any CPU.ActiveCfg = Debug|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Debug|Win32.ActiveCfg = Debug|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Mixed|Win32.Build.0 = Release|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release|Any CPU.ActiveCfg = Release|Win32 {C928FBB1-EDD8-4198-90DC-170A54C2AD72}.Release|Win32.ActiveCfg = Release|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Any CPU.ActiveCfg = Debug|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Debug|Win32.ActiveCfg = Debug|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Mixed|Win32.Build.0 = Release|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Any CPU.ActiveCfg = Release|Win32 {84D91673-C1A1-47FF-9A75-4E73F31F4C63}.Release|Win32.ActiveCfg = Release|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Debug|Win32.Build.0 = Debug|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed|Win32.ActiveCfg = Debug|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Mixed|Win32.Build.0 = Debug|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Any CPU.ActiveCfg = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Win32.ActiveCfg = Release|Win32 {1DAEC516-E52C-4A3C-A4DA-AE3553E6E0F8}.Release|Win32.Build.0 = Release|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Any CPU.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Win32.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Debug|Win32.Build.0 = Debug|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed|Win32.ActiveCfg = Debug|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Mixed|Win32.Build.0 = Debug|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Any CPU.ActiveCfg = Release|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.ActiveCfg = Release|Win32 {3F383D3C-FCD8-4170-990B-EB4833F09248}.Release|Win32.Build.0 = Release|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Any CPU.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Debug|Win32.ActiveCfg = Debug|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.ActiveCfg = Debug|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Mixed|Win32.Build.0 = Debug|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Any CPU.ActiveCfg = Release|Win32 {492D3DFE-9068-4E7E-A008-7C2420A651C0}.Release|Win32.ActiveCfg = Release|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Any CPU.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Debug|Win32.ActiveCfg = Debug|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.ActiveCfg = Debug|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Mixed|Win32.Build.0 = Debug|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release|Any CPU.ActiveCfg = Release|Win32 {B45374AA-C7ED-42CF-BBD3-DEAA2B7ACB48}.Release|Win32.ActiveCfg = Release|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Any CPU.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.ActiveCfg = Debug_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug_Dedicated|Win32.Build.0 = Debug_Dedicated|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Win32.ActiveCfg = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Debug|Win32.Build.0 = Debug|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed_Dedicated|Win32.ActiveCfg = Mixed_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed_Dedicated|Win32.Build.0 = Mixed_Dedicated|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed|Win32.ActiveCfg = Debug|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Mixed|Win32.Build.0 = Debug|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_Dedicated|Any CPU.ActiveCfg = Release_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_Dedicated|Win32.ActiveCfg = Release_Dedicated|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_Dedicated|Win32.Build.0 = Release_Dedicated|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Any CPU.ActiveCfg = Release|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Win32.ActiveCfg = Release|Win32 {2578C6D8-660D-48AE-9322-7422F8664F06}.Release|Win32.Build.0 = Release|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Any CPU.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Win32.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Debug|Win32.Build.0 = Debug|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed|Win32.ActiveCfg = Debug|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Mixed|Win32.Build.0 = Debug|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Any CPU.ActiveCfg = Release|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.ActiveCfg = Release|Win32 {CC52E0B3-CC35-4934-9302-035B748F3F2C}.Release|Win32.Build.0 = Release|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Any CPU.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Debug|Win32.ActiveCfg = Debug|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed_Dedicated|Any CPU.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Any CPU.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.ActiveCfg = Debug|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Mixed|Win32.Build.0 = Debug|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_Dedicated|Any CPU.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_LuaJit_one|Any CPU.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release_LuaJit_one|Win32.ActiveCfg = Release|Win32 + {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Any CPU.ActiveCfg = Release|Win32 {F6C4F74A-152C-4612-9E3B-D02346234855}.Release|Win32.ActiveCfg = Release|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Debug|Win32.ActiveCfg = Debug|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Mixed|Win32.Build.0 = Mixed|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Any CPU.ActiveCfg = Release|Win32 {EFB76D6F-0092-439C-A783-C0BE10BD17C9}.Release|Win32.ActiveCfg = Release|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Any CPU.ActiveCfg = Debug|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Debug|Win32.ActiveCfg = Debug|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.ActiveCfg = Mixed|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Mixed|Win32.Build.0 = Mixed|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Any CPU.ActiveCfg = Release|Win32 {EC924B9B-4991-4931-8623-E1DB9AE005CA}.Release|Win32.ActiveCfg = Release|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Any CPU.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.ActiveCfg = Debug|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Debug|Win32.Build.0 = Debug|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed|Win32.ActiveCfg = Mixed|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Mixed|Win32.Build.0 = Mixed|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release|Any CPU.ActiveCfg = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release|Win32.ActiveCfg = Release|Win32 {98D24A3D-7666-4C11-9D6E-B10393CE8CBA}.Release|Win32.Build.0 = Release|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Any CPU.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Debug|Win32.ActiveCfg = Debug|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed|Win32.ActiveCfg = Debug|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Mixed|Win32.Build.0 = Debug|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release|Any CPU.ActiveCfg = Release|Win32 {E5F40F9E-C01B-4B97-9BD5-FC24308D8022}.Release|Win32.ActiveCfg = Release|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Any CPU.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Debug|Win32.ActiveCfg = Debug|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed|Win32.ActiveCfg = Debug|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Mixed|Win32.Build.0 = Debug|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Any CPU.ActiveCfg = Release|Win32 {FFDF27A8-C198-49ED-BA13-4DA9054266C6}.Release|Win32.ActiveCfg = Release|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Debug|Win32.Build.0 = Debug|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed|Win32.ActiveCfg = Debug|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Mixed|Win32.Build.0 = Debug|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Any CPU.ActiveCfg = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Win32.ActiveCfg = Release|Win32 {FA169092-EA3E-40C1-8E5A-A2B575700FE8}.Release|Win32.Build.0 = Release|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Any CPU.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Win32.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Debug|Win32.Build.0 = Debug|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed_Dedicated|Any CPU.ActiveCfg = Mixed|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed_Dedicated|Win32.ActiveCfg = Mixed|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed|Any CPU.ActiveCfg = Mixed|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed|Win32.ActiveCfg = Debug|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Mixed|Win32.Build.0 = Debug|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Any CPU.ActiveCfg = Release|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.ActiveCfg = Release|Win32 {AC9B12ED-A2D7-4337-A981-5BD8430E96D8}.Release|Win32.Build.0 = Release|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Any CPU.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Debug|Win32.ActiveCfg = Debug|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.ActiveCfg = Debug|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Mixed|Win32.Build.0 = Debug|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Any CPU.ActiveCfg = Release|Win32 {032A10AB-E44C-4751-A290-001EF99E664A}.Release|Win32.ActiveCfg = Release|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Any CPU.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Debug|Win32.ActiveCfg = Debug|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed_Dedicated|Win32.ActiveCfg = Debug|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.ActiveCfg = Debug|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Mixed|Win32.Build.0 = Debug|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 + {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release|Any CPU.ActiveCfg = Release|Win32 {1924EF23-A05E-40E5-93F2-6CCD64BE1F8B}.Release|Win32.ActiveCfg = Release|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Any CPU.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Win32.ActiveCfg = Debug|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Debug|Win32.Build.0 = Debug|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Mixed|Win32.Build.0 = Release|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release|Any CPU.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release|Win32.ActiveCfg = Release|Win32 {880CD250-BA77-4DAF-A8D4-552F12DD3AE4}.Release|Win32.Build.0 = Release|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Any CPU.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Win32.ActiveCfg = Debug|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Debug|Win32.Build.0 = Debug|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Mixed|Win32.Build.0 = Release|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Any CPU.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.ActiveCfg = Release|Win32 {0EB257DC-5CFC-44B0-82C9-CE6B158BE473}.Release|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Any CPU.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.ActiveCfg = Debug|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Debug|Win32.Build.0 = Debug|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Mixed|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Any CPU.ActiveCfg = Release|Win32 {2AC1029E-E582-40CF-9CD1-5EFA4211AFC9}.Release|Win32.ActiveCfg = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug_Dedicated|Win32.Build.0 = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Any CPU.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.ActiveCfg = Debug|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Debug|Win32.Build.0 = Debug|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed_Dedicated|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed_Dedicated|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Mixed|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_Dedicated|Win32.Build.0 = Release|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_LuaJit_one|Any CPU.ActiveCfg = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_LuaJit_one|Win32.ActiveCfg = Release_LuaJit_one|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release_LuaJit_one|Win32.Build.0 = Release_LuaJit_one|Win32 + {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Any CPU.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.ActiveCfg = Release|Win32 {44F716E7-05BD-4390-AB02-5F7DAF7FEFDE}.Release|Win32.Build.0 = Release|Win32 + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Any CPU.ActiveCfg = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Any CPU.Build.0 = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug_Dedicated|Win32.ActiveCfg = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Debug|Win32.ActiveCfg = Debug|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Any CPU.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Any CPU.Build.0 = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed_Dedicated|Win32.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Any CPU.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Any CPU.Build.0 = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Mixed|Win32.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Any CPU.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Any CPU.Build.0 = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_Dedicated|Win32.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Any CPU.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Any CPU.Build.0 = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release_LuaJit_one|Win32.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Any CPU.Build.0 = Release|Any CPU + {2E39994F-B060-45FA-BD07-DABA262E8CE3}.Release|Win32.ActiveCfg = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/src/xrEngine/splash_xrcs_en.bmp b/src/xrEngine/splash_xrcs_en.bmp index 93c7fadd5deca388d6c1147cc02fe94cd49a9dc0..108311f1fe68fc34c4612e722398e78feace73f1 100644 GIT binary patch literal 402056 zcmY)1X_FnvbtY&^VpV}vKo#~(Grwzoz&yu20ZqdkVIFZkJlv0;^Pbm_dqmD}{(Z~)KZ$?C z{uliJfB)hqKRN0DU;LyxF8^fL?`J>yN&25IIMml(s;RnId#S3iuBM^3rmeZLslKkQ zxv9IeqqV8Av$eUqqrKSOS?n$pI@FDk19UB^IZ)vHis_N?K z9O&z-sj60&(M;@Q)moIi8slT)Wo zfBdnGRDI!mQ(di0ZhWDwt+~Gb^v9=MS5HereQkBsM?d@7$qzqlYij5(_BJ=v*VjaU zTN)dbX>V%mXld42UF+>CcxZb|b5nhNV_mH>7tWp406pq#Z|f>_Xod#3>%v(*KcyK? zKRj_lYd=2u(ZzFTU6-$|x>!?np`oT)Z8=>$e^$ngj`GT!JAIn;l+Q`t?UIZqdbFd; z&wlc;2Wk8#r%rl=jz}`O1{d=cZE&xaN8yhYjxnyRtC9v9_|axpCv_;q}9VTi1?m9$meC{aVi4x_0&Y;r`+7j^mB12iH>m z#?j%Oo7Zn$KXQG0Wde8x;iOUOH*Ubr7EJ(s*|Zl+D6pc zbMnKVX|@i&OMd#~gr@#Z9Rof&89{AqIc|fbg-ZHcC@Ob>HN8~imfay z7?-w|mU1r<_33YCTbsuB_m$^orUH5Lm!pxL(u)VdqI9DumFiFE)?k+%y-a-d+Ai(DOT1E)>o`A`2iR4G<^yGHuUSJsw){`D7ywiZuRRWjH!RLF>j zrky(FiVQU)#!9irh%kzw{yrIfG2%o0Wv7}&uSNzc6C*=i9c|^_Za=}szTR%O8Akfi zhaaB!;N0m?z>DT}wYB#3bjd3=H#OmCe2Jp9sln~Vu1>wnI%(|YrzfUHhSU?v42l~Y zbXGFrwKbP6RaH4wY5&>NmjK1NvrPWth4VF+s@+Q)^@3K=Ngc_erb0w5ueN~nwwCn7 z8em9(^5vc`UFh#Cjt>t^j11}*fqNU zP`%jQ(_QEu9vGURo}n;20#z*a^qe~b`l_IPrPxcP3|2R#+G_exPxqkug|lZp%M%R> zOv^Z_uqzY~vavWl=Ng<6sXPQzNppRj&cX^qGt^gBo^J}rboz8i>f#0XKQl2lGB`kV z&B<(4#ij_>plf7vW22wCI;dzkmrEDUdt9zlB{Dgm+vd?woo-8woM!b!Nkx)2%R5RL z(q&X7c~Im-c7gd?m32(b2Iw8O!}6oTefU) z&T!CO?d>qxm~u4im&bvM5=$xdcGF4alVqZWxg{q)c>leh{uS90m-cJCb0DLnW;<2Y z-u9K3&z}+3%=p-QKYdU6LPy)m!kms1$g|HLjSmgdXEm!6903))ljt6%=Rr;i?TSS#~$%X2e^8II9>SUM`--b&4=Jz43RBtzkKncT9f z!+9+yuC=B4ufKSug$r{t(!}WS*zgcwpPm?-og8m(ZFb9XZI@8NnnGJ^sk;Eldpg@W z9uVr+o{qMe@zKeV!5fErKYaJq|Msu{vbnPO(a%ok+r&`+%O{T>-MbA@-OgC(55L0} zvPBcSD=J|i#;8~bDl$GiG&eoLxfr0KN*@5^Oatu)D&$`&^_F_NCP#-eFLFvl-0MiO zjUZwSVbrgwm14KM;6H@%biW47c6T~rua zUs+jRT3qNWmAK>KK}d!#6h?*z<<-qiuPiMN4fIo81cP?zDL*3PDS_lzdQy08pml`i zw5QOa7AgV+rpHExD&^?HsZ)R#Ey>t^;q1AOPo2WvTbo*-dZz2$on1YJp5CsWp-TVc z=-5#I0E$jqxGJJ+ZEE6)Tq(4-pZSDZh96g_(bv<~#>U3lTBMyCc$RT=QL{q`XM*$+ zQHFPd(v0?|CZ~obPI<4SR}D3nSmID$X)szox;!__J@KLBhPOjwm_UJ-=I3}`6p5Uf zhGuxKW;o?vAfACUUha}0sv}L{ppAml)Ql>RhV3o&b&hSQ7mo23&t>Sg3jgg&)iKnk z#$Qxn=+)UXI-7M&&6I>n6Sd?i8bAZNEhV!Sx$cTYCdMmaJ3<=_M`GzxK6Ojff98zq z8QwWUj|NsC0=m-P!<{RD0zTinee3@1TfoHe?yZ~mB$=Bx5O{cwrGxs1_wHn_j;_P- z_2tFgD_am={_^Vb=GrP`Kxkpn?9>D%1{NR&;GLVA#2@rUkASw0>$Ps?-W_)~G4o?! z4{Q&omPM_zGP!HyX`~PmgGi$o2+(eCYwhXk>h9|5Ds-BWK_O7NxxO|tHA%q?Jr-Ii z7jZ>k2sQyb^25~wtM=9wDS+|VQJw@lCr*4oh6F`)xp^G1jEj<%zxUIh@)4^G^SF?? z@VkNYlVn_|y7H>>P**;9|NX!E%fHMsLEUlPT^d6gdYU`v=y3{rx{?di(_5Fw3)dT zyE>?u0m83nT1queNz75(G_v}9m>4A_9MEv{+Cg`rgQ~18FY!lkesXlAt)*G-*sLR6f(8$1Uax^m7KW>`QSIT|S zamYY3LAs*`j}BB|J1u2^92_rCD-5N0h>YvDs}rBU>OD&BGF5J5if?;Vs6i zsj&fOwzsww#6lXI+L~Li3|E>P8hI@PT~l2h;Fl19Wf8a|-2m@;WJ0I!d?i%J8~}S~ zdn?|qr`WZ=a7Lc)7C2mYN%*C)`eM~5r#=SkfV#7-T`0z}tG!d|XjKEhQ0Q!J#e^j$ zHrQ7dLXqcdDy5Psr@l1QApg{$hKhQGQzhA~UV9d4lZ=rvIsi~fYOMR@DZzF(5~DJ@ z<90%G-KnNFH&C#e(ZK=z;;_bt`pKVGOpXkJHB%V#*393GS04B5VqiPcJ~29?0JlO! zbbt*~EtOLzhO9}Rl7E8dtqpZlj)9ELx7 zaR14t51%~xR08jx-n%Q^zjOQHy}O@1ynpZZ%}?*&y?x^v8krH^6$$JsytB0lE`|oo zXM7ePU} zH0UwqErRx(eWHWpP1a z2BMwxL3yx0IW}yrO0cQ$M-;~6h*3*O-at@Df(6mK6GLo~3NT-ooq<&PC~jkPu<_ZcNn?i=3eM!9mXfAmgrg*aDbho> z+_b_P^WE29{^vjc6RJ5mIs_K*b_O*uJkZnGrcpr*lrxN zat>8WFP=O?3>N2SceXZy9uHJ_C77oDK*^14%4q5@#1m!ZrZce1n=Ekg9>=GMzWw6c zFR^rDWRE64pWVOpi?82&|HZ4Jz6d58K21UGJeu04W6WgJd@yJ{WTu}a3BY0d`qH8{ za4}P3IC6&ZGLUoy=9{*-4&DhC>7~rrm(kQn&C^<~0`iUmF=h?m#ZS--mck-E(sIHf z7NMm5D;r8eGvk6n&>2Vt&A z?nS-5{!sR-Zo$j(}=4NI!S_jF^lVJJQ}*$IG<9_KucT(L{ph zaT@FDbThH6`ruBbq86I#jSLQMZ)}VW4K~#&0RWHLte6S!R$pWC)ka)8k9% zp#b{?;>OO_mV9FlrZF*BG~N?4B$Cg}*yz;gh+B9ojyvgFy)w*UVq{oLSOgO=WL%g! zH7|p0sk@u#NQ?=okPbvM(%g;Yv%%7k!0fYU=vZ4*eJ6)nS4)3rxUqxY@)X?_yf zx=e<24+-&a z%ySkp)DiNe2E-nwS{Gwy1hH-;6YWGkfxJo*if;kTg=7qzz6Pf+MVUlrk43dE#Zv{JRX; zaEpGq%UCF8)Evp*tl80EDPSy+kn}6ga56^lba({m^2*ZI@qzuj)#v94@qWNQxjvno8T3GE(8#9 zfY}-0ECVNlzIJuGtKi1Yj&`1Odt?1Kzxw6Xz3oKZV>&M}Oxl=`B!cQt3u7cb(nu*f zh)wy4UC>W0S6*CWXLJ2v=L!PA#Y~Qkh{+f@12Hx{=tk00EW{P-5umIUa;h0vNBH^BC$&^Y+n zDN=3pKsxFRqU#a^CoZY2sVOn`_Q^3$Z*XN{fzwfyfVo*@nh{q4b^x0Izd8>qqtL+| zv}D}^rz|XsWA`I+znKkt|oqY{hOTQpzcl z0ZKE}mMeF=JO?3Zv*fyCw(bmW221Z0FnsbJov(O=X1nN$W2D5`bx@s-IYR+t-0q@k zJy8SlPwEHnyxv!@Um@gAKYMid)(!C%=nb@mWioFE?0&`G1Ih2-ee?N?pMU%H%jZwO z{^GSj&DzqUunhAw>lXuLp29MFS2nFJf)083iTOYth-x%h0o`-dTAj^(5myi56l+q) z&dYVhv{_pE%zxHDT84eAARn1GmojHi>ZpR`;V*I6X>BSX5DXo|=`eb8CccBZOHp6H6^ zDW+k}2hHZ5%$NwDZlhI_S`l?}(03Bx0eLZ~E=~o&1+2zLMz~$T?sRwiigjnMaB^(a z0;_?8w7lVxIQZm5hnSbx7uQl-V-R1zc)GeU*VW!4<{+FKP?;PSWRpl3mC{;`Cub7N zimIs^%nuS87U#NN^Z5LiR+%jDM}|ObpHD&j$dP{1Teic-k0HIMOU4{wxKfgY*(2s# z>ak;kV6|jzVRmnGt=QT2?BU)2^p8KbHPnw($|y7ks*!5L-=IeT)}>gY4aq0OV9r#| z^-3ugbGgfw++*)eL{MP$jh_kCD7id6tY`7#F9i%{6C~_6Uh6Bx;k(=in`wxTvSh$DriKD4>z*%+;zn zpSu1I-nH4YG{%FnJ0LVA@7}x)w52;YZ`{8VVRpT+w+!0>=+#_C~0C1l8> z!BRM(c_MGZQ%;ShYJoWzSFMJTB)tlTKRVJ^>eUgyiUSMu?Ooa8*RW-`P$4OUbFK=q zIYp3+KH+2Rq|NU1+S93%mdM8_oH>pELv_UrXx4Trp*(g0)?CRo=Y^H53=yR{bH?Zo z4^+gy1gi}Jfm=5*f;<{dzPhvsjpuA=Nt`@~+0kRJN`Tg{1`BQh`PJp6k>MeEP!Gnr zfO4@1jFT{)MzF?oes+4?&x7JN<@MzSq`lh)I0kQjPHQtnl7I=2&D504%`bF>R4scN zeYR%oj47Uc>B5C%?A0VJOd$-Y{f0x6glGiHh=p+64m0IpLbe@X#S8%>Lu+qt=q6Q{U+OgzoS&MUo0{PMTwhz9w*dOnzxpeqMtijoj0+?1eRKwr zm%0j`LZ!(HpI1P090~g2og4RVUb6-bjXPRev>|ua;1Zo;5+&1GHJE{s34@gJg0z zRAzQnsDhz3F>kDo5NNwT)z&dXuq;+nDVD_H`^%N7@yWI2<)Qw5;OtIdj=;lGJU_E> zt>t$Z0_KsYOEI`Lu_cCjn^2PgZbk?h-V@G8NZi2jci5eFI%O1uX&x6#9+fg{wJ5`l z8Wd~9hEg95jb>{+$HatnMzy9J{0PzMDmk;e41i=s{>&;{C4ngHL8wTk?iS>XBYQL) zSrr{kvRok`#}s^Pl;L3|qoS$Vedr^_P_t*L)2R&5rYd@ogR}}ebzRqtBfEehxq0q& znkA5{g%!%Xl7Gte%S)lm)giHX(CJUqaPQWQ;N<@-T3DqmO>rbBIIQ(rKtZ0wdHRZ0r&2y<`e3dcP)F=l3jT5B^K>@W6!BW&5x z9uHG{mL=&jfxDN5(sq8+Ov-j*Lg03_8LQWRrkz6;22sZim02E_D&Vs)GX*3`K!25V zWOSY2y1_o}*hI>}qlVf`VxjgCvL^5zw5p*_Vu=b^y}NU?KQlUH$y@a1`J)Fc(Y-tl zsBx5-Guc9ER?OJ>3kqf&;e+V|ov{tl5aa5oJG!pt1`Cp#xo9LxFJdDs;3p9P5d+9z zl4WR+aGnlH7A^>AO)(J1tavsQ+1sQ0nlv{#e&_nt!<{XJfy>|y^a~6EA^=6bQ_?{l zjYad+)NqJFv+XU3>3_s+q-^O5WL-+Q9Lwtl3wq0_5SqcmXjP%ZTt`PpUdKThNEgrd z6re4-EXE!S8Z}ft+R)M3>Zr+5-Uh?dvlljku}fB0M~8;DE^jPHK&AucCwPw?m*(Y#+O!Wb8b8@pbZ)sf!63O3=evv1-fbA{D4BcmkFzfY(G5lfj){D2(2S* z@?wL=f=Zibff_!V%_1l4LWQJita%v%(HK`$%SC93<{1mso_PQLu)DOQ4`TBs8QbZV zZC3*CR7*hwLwUk9Labg%RXLStBc`F7)cRO~le(%r;dwy1;qy?*71*BP?p=WlhDKJ8 z5=ch*G~%%zh6I#6P6EaGr!+MnuGFb88Jebkw|m6x>qmm>(3=&5<(t>80`_;AKB zkr_c7sBX#C5pE;uS2iw>34D#lHf$u8qhz5=^RqA(2*7z(kF;|E&{Avl#X~(>_jA{P z`MZ>{J)df-l2o1C^wcqNtyn^Z9(2F}5hj%b8kUL5#U7z@z_h=+T`KkpAde0Yi2}+2H!&$U`jx)LyrAHXkAOi)LP}2UodARS ztEbe4w@sQ;O+;A}WJt{QriMD5RS9LsA!C*_GOTS{C@%`)b&V^Vm$_q*KG=^+@kIlM z>FWO8?)KKL8`nR7{>aBVcE9=Z3z0ek)ROS9 zDXva`#72M^U>BCr`s`kfg`_VeP$?Is4E5x|OOilqOA|-|lDer9c0oVci!GfI(;Mi^ zO715aqE2WW@nHZZs0H4`f^4u%`xaE92GA!lD^QU0sQX~4hniKLvqPiqv-`J$EvFe) zMjO5+5zB~97&z1s78yIjT3cLLnwy=Qnt*#i8@5vt`#>zP?q1p8rc)?m7~uPLW_-*M z`&HQEfQ*(~6wp&O8z7huPUVGe%H3T$1>`wIevoNgURi|gds~;y(KJs|5>?P&foRI_ zNC?NaoOaO&L{qkG9ibH|%nspQmy8i5$)b}{n+K6LO;e{+zJ}t3?j>LBxm1p7!FHGw zJ04AXF4fqkj*~JzNZxKIT5#RiYz*7E*~EfuHW<#dobT!`bcv1Gv3X@<(>@vDdY}qO zB^K&-P4X1^FrM_Xl3u`V*EO5yoPuAc8fipga}>vNK7Io1gr=udg-jg9#5i#vYzD1b zXaLwbFZA-xt($nJH%-_bGvP0oZEgnL$=rh)Lk}YbaMTa0IXLz37fwN_M3GV(;x!E_ z1lXxi8j+-IX-5b3BUMMBl&~m3UKiY+vE3sQ@}~ungm`RR0SIsGq>Ok_(bGNp-4(n} zwPX_QNp`2#x#k4m@f1_qxRNNn+oiCJSdoMqf$eH@`@NetV7ui}v>cK{hHHlh(BS@^ zxFSJ6h?kMyj`!O)u7i5JyJLg*(VXz>Yeh4#bZypOehuRlH*myX)i< zT=PB@PO@+;XalO10YZY+YEYZzK}d`!X?R_Z*hi1-)<&qh1wpNC30-0s(NkKN^+X;? zVV*n)>ocH0HMBGWr`E;d^&+!5Kx(ZTbr=5_A03^Uni4kGHLoB5@VS|p+c$4q+1QYO zaPO`K2!WStR}aNuQe1tSD8@%ejF+dY7JzewFxKvOKMB`+s7JtOE<-VHO9#OtWH1)- zrcYlnxPHM5#eBbo8-;`tpJ-6XN1Wev1q>hB?_!kiw3$!9G~(X+>!>O+R7T9oDI|BD z5IovLiQ7+(^fs_PtzJ=V7L>7_5%HZs0GWsI<6a80CB_?$wKaIVl>=}J%oE^*8Nyz- z2Zp4GC~c&EswE(OrxoBmHkVINQD8^$8B^Eo&2>0wxUqLCZ9&9zBPqbN-LOzgtdG)4 zM$IDxx`8TxAw)?#?RAItc%!`V4v)XNy7c(ry@Q=CfJPcB=XCVlsn&+hq*V!Q9MBPq z*2*|SMMeaC0v;28%Qi)5bS875C|p~EWCWz+4~0%MAe9K6dH)N@=LZ1+oEb8}c9?AU zqvdYEZqCae3eMEm)WSxn4*6XK^5#A$y~+6U{QTV1l)_4yw2hCBFU?ynnd1>Mb!RC^ zNS+xPO|U>X?_|!O#*`s#ZfDLhd@%*{YU*jK22r7bPP+oS0fp<-MlyCr)-+ZPDkn@* znFauM-P8;h zT>;DaCqwB9&CFHNuB=)iy%c+Qg+N`Dal4cs2Q%HpPpL;QpxKKjk6}A7fAk=BIc7*l z*b<)KaF6~JBXbgDub z-Vid2>R2cwb5jiB6{ycR54~|$jq{Uy_DT>~rtH1Wp#hTQIJ7~9{M|sj09CS>F3Ld^ zV(GBjf(Qq37tzBMY3znR=H!p9lt*$RE;89dPTQuPqL<@PkiA*LzwF=lSLTnAPCTW(m}%U6-|V)l3VvOI(03 zpwNxE-tN|xILu)GK&8|-Ix>26aCKv4%}yI^oF|3t{DS9Z^n+tYhY1k4E0VVHVhSVe z8ZV!_36wP6uQ@j5R30p7zog6R1kqYf8KAvW<10{LPT?&8T0u%;Tz*oas#K0q2=xGA zH>v>;@q_S_8)~SvDJxhsm9TQ=L6nDPavvaF!hTS9Fm9D6G5N@An}?k!OCKylQoaCRiKA+s)8nctl`s-4K~EXQ#+AIVNK(JHUT%Hv;eU{L}mQ1ZVJe zF^%BrUWY_QMuunN-Mu0}))-C2)$>yvqvc7SI%SmOEwHqSJ>$FraWMhA?(0Y>HY-lE zR2V45zFYv5LtB_keVubW*-y-8ZfZi1#8mgugFAMut*1`gY=9lg*%KmS z1A->vMXP=Qess7GiuL7-S1-k#zI^>kh~~*>kM?(W+`g~`AYdg} z!SGRK=sHm0c2L{`%*1ugNA%Qw7$(nN!7}iKmY@=2-@Lqzu5WK`V(EfXD!0(Ey1WeA zcel3}=H~1Lg;YArTj|Bt#yWQZoVYEC2%H*aWZS(wh$ewwh-3yts$>h^Jug#e?NLCl z0U#uIoSU8;9_p8OfrsH{IC|n$5UM-!JU~kaIVRZd32KIuPaZxHXAYfAu@o8VYPe}N zL(t{$2txv5;W7~5i0@TOI49
    O`|l8IX~gMwy#UT$hi)@OiPn*jo%^{0RMad~b^ zK3fg0#qilX#Na-&Ye2chd29&uEQ8Ji8a^}zZd*5p;i9<650F3H+wnR!4`@OvqD7J- zS66p;SQ%`G2Ji%WBaMI>IcE+wZt1mT?WU(tz%v8zE1|Ko6Qhg1{7{K6Jn*65-5dum z(yxquOn@n6-ma;D0*kNLFX>m4$U}MVj(D&2sc1|ypin@g-&b+4VDLY zrZb=;;|$)8zyNI?A8tz*&tJf2BK&#LOdpN+!ae}A!RaDBR6tDL7cwrdt_j7gudHpZ zZ``|mZ)$WreS*fc8hS^R37Bg(f8^+)poy_-WajPMpS4u`-eIqC3929Z5L=0KkV@#U zjAXn>z>w)a;Sh^KRGUX|`rf6I;Zk9>M<;e&+h&a*UbUz%by*P;;1V_oc>fj=-E^+ZBn@OAwxtKYsY|^@|r@yncm7-o1SjjbB?@Fpk>B zQck@8zBUJ=NC57r!Ktu{Hr8x-QAt_EEKGR7`xf^iu0{ZMqhKR!TEL|nld8i}-9TZH6`^K+aL#D;aYl;n^F`f=~}?a!Y* z{nao3=I{RIZ-4&XchZ|zFLC&<-n@SG`HNqC{~arab%?IzPDhzrW8m85Ex^`MT25B(JPy0{^1Y5F~6ddG>~2eM8K@G zXIQ1kZ8l8Ws0~ZAGh~90^MHuK*7_>aZU?>*(dJv%j!d0=cIjYeTL#2GC zs4ziFEIDQ9&zcKk{`ve*(o`l0I1K8_p?OtfN^>Ke^?_l>}bM11ux9DE8 z0QigpKvZpjQNUA2v|q~s5um`*wLcp*yXFCnsasrkk@@SU@-Diahmwb`8PM2*mZQ`9 z=(?wvC2AD%zDWRAQ%tV;9dkfgr9b9>w+@oq>v4mdl2|C zYv71U15QdV=5dq{NRQ1Q@hLC{q8=4$o1;_Eol`s|^Y#elAII=7iXNwTY$?2^+T8fi z`${PSgS~?|G~PvpS+KmOtOfAiNr%uI}F zHlnU=9)y-_ss^Wr#?dKA|F=wn_uQjgjNdfYX&jGN!!=U#Xeo7tZxn!flW@j%`JnDC z&5Yd&mr$+OSiDxVvATp$LYo9@D_AQ8!@39h`s}g;s!-i`IRNX(&>)Zp^};4N_Jccj zc&jg8zn1vBG;N6$2m4F}@UgYaE6d_|5_Sy<@mowxMvJg_m}y^uYC$&}0qHNFKeu)P zeiM0Kz@=|pzwSZc9rAlFWdoSSo^Ez6W5`sc9(VxfH&$1zOew>fbQ7XdOS1;}&%eM- z)rzQd8Q|UVhVR%sc>>#Kr>6nCKn+KB7+@6?U4?TqQ=%&tPhp5)A)ObH@mz`y6kUvfd4+ivI-9~WHp11Bww-|-kcb>$AGc#vpn?Vi_#BoY zC^s4`m3u$POAv;eO-TlwEf{Oehau3<&|!Le?ws4rCO}^bN5_u7*y>ys?9!0@a4yTa+j zYCp{U^dz^Uzvdb)Ub(z3!GFA+cZ2O#;jbU=vwFOpdaH_uO0Ni+x%;>Z@{IU3LUk>a zOgCt<9;NM+onA|@h+K?`NeQGY#tRs3vsAs)FZ!>89G`o`>hrGPw|qOpJELP?iKU+s z-QqPsH{5fP&t9IJnVXuJ9`_*yulx-80?+j5Ftms8Dok!dbixkmvp^e<1$wwTpc2IJ z?XQgF5k-pWj{eakcHuD{D(DG&XsMfM_ENqqG48!FDZo3Z-2! z3SibK>r~pG6Cb59E{4Mu;S{4on1&2gy2ZUlhiqkdEA^ls%5dnen@6)aD(dzKYNe=V znq^m6t}z;=QnARN#z!L}eoN0OVVZz9mdZtBM0-e5k6$it;l$*k^ubR`LUv^LLNdz)6KEzP@#5)YneV>-`t|28L@FS> z*vrqq{T80P?uwG~XzjOOeXY~W`GSQ2VBCZbA zwf~(9&^8w}jL%{nR9ZU;hxN%D%COnwH;u3Bti~MH6xgYs>||b^pV>sY=IQb{loMA+ zr17gq5AWZ+b|esuU>iycEW++$s^S|dZnLWI-+uMg58r?P{WstI_0N4!@U>-P9>Hpw zzy+?w`a~xvGyTZ|XP)4lA|Yms*PanenJN_Fr}iMduOy6WGfan_he9QkjcNf;(+4CU zRpwLFOfBKIEzx z7~_~MH)sh>pyw2Tggq{Y@%d4Z&UTm;Yl3xbIYQIzZInTR22ucELikV&h8Aw(0)OmH zRmrErGC5~ca9F22OJ2=@R5MtLM|E&xF!eBwJC~#BfZq*T@$A{!))GUu7iM7_ucO zWoR{gc8iPDTbs3(3FxoN^-*i#fFpc>7|g1%KA5msfP1ZWfo`W`iL?{D1m0&;#?cPU z%gc+xSt6N40oZe#5K$Mnuo;qLjX+I&Hy{um+6UlQd$e`WdKRiY*1;ltD3U1%m~C%t zzUA$)PAzE|k>)%`O(x`{&4K)ZZ*Y$S*l>78ow}x*xu=wYYgSl-?JD8s%*&i6+xIGK z8z5B}I8bAgbX)a|Ba;-+LQ+^>|3H5cp7-{a`?O0q&s3O`=4To4+yaMA!h5!{+=qVY`VY}-I$pg=+S#k}LSFMs#=Ivj- zdG*I1fBfxlel6G{GMrvi+(OCByKfvJ!dI*?O0mE+H*1zkvG3iv{qVs(h+%q{n*DJe z7qWGlq1)r~pvWXn9-c+xGkedG86|TUG(H;nHiCqNlNCcyt*%8!(oZ44^vwa{a@~

    c68wFjG+8ZG8xz=2 zdJqR>Xe2>1BLxo+kCMeCnb24yF{U!P<(0LKjcxODk56vf);G7;);AwLehSrZoty|j zy#K)mOqEv?NKI$5s*l^n7AvP)LHJxQ&l)z+*NqKHi42cYWilBq4ATbZp?5l!(gf1% z#WjLeA|H$nkC|AM&oPv0a%N_>QmLlWX{8m^mbG53Rcg_6+H$$fKrjg`^uhJrW}}Ah zpx-(?O9z?&V|r>5(D8#9xzNytO-NYk)7Io5NF}Ohd__ad6?BLo%Se^Q_!U0Rx-<;t1$rnb31E;n#u!v`L?IKV@CydkZSell(#$XuP*oWxNL6w+sdW@@%y?}{46JXZd@>>@{Vzl;xgO+jrWhw;r~JP z5ce4x7#<0JmZpl?GK7yvdYH8up!k%hMOhO#Dy$Bv5mB;YM6JVoSPU2FX+(WeBiad~ z?Bz?$0UPb05fNj%Mt9o~t93L8bHRzTg|o=(ochSZc#!>|gTVH|0XdK#zXtFxVR%qr z9z8O338W*mc4AFNDm%b`Cfyy%JMY=E7au-<^YL4nhADE^Xn-w^2JK}&hIE65oQ|tY z*EEmU@PX&_eTE3UdvXwiqAm&E&oeX5J0IpTMM+L!7H!PXP#WSTNQdE&kOC8BKZa2c z0SMs60_tw~EX~ieARPV=K72CWtZ#z9t*u&P8cjVqzO}ivO;X<4**&;<7!(^|J~IOq zrH-83zWwUeYd*;5pZ(AdZ2$DL&tH7>^6>D;CCt{b;K8k1Zl?rYlMd=-rL%jB>w9~vtE-2H+^O(WuQwPYt<2$4uyiIfIT`qQ z(bT_cMXjoHf*W~FVGxvDE~mm(evnWa^|`s(#l?kM1EklcXPT5TCRJ(;`ku;W3Z-J2 zcS931FIbjKArIRw$Z;iU)ASpNF1x&#Z7nw@YNXjJ<e4)EORch@JRJcV z8$N@Efp^Bsh-Qy?H>?=`2i`fhfxCrOG6F&30LMF=B|iqG-=9gK}d z472e$KK)f0+&tdmzrtR>#sxU#`H+n#6JHqLO2JOc2Dg7(*-i`T=FWF>_jG^z@sZOa z#kV~z>OZ=F{OC9nDuhcYfumunFS-Fv17o*1L~ls$WpK3(g3Wb`We3z9{`(bOKXdjh ztp@UIIlltEm|7SJnle~w>PD1D7XUn((;75`*j~7C1ndAm3fNMIBczYA@BA_N2od22 z?4mzf|E;W-H*ep6{~6(hIuQ{5=~EjK-XDAdbHD1_us!~H{^9c%AHI0|=9AAq{{oGC z^!V|QzWvem#s0!ojt3+fpH-uQ))$g6+2`AN!OL8LtC~4L6qwlk&b}!7Xp2{ z7>tnV8|`f@Bjcr$i$~eys8C}hIdD20_X@#+4h#Txo-cJ2)$w*u9#V-;R#uk^j`uO9wKmDm$^*{UOn;+Xg`SkNo zKmXwmzxeX)C!c=%dht<^m`ww|K;+Vx!nNE)LWBY8PydzmgP!e>5-^2vON+Rd-Jt^3X8$HDP zqI}I}v$Lm{n?PTpqPy81A?D`M-u?|ZKQp&rn_F1I;=TU*=GNx+_SVieab|9Q9$a!F zJOULzxpj+yAk=fd*cADbqNRAU2NC+s_TpJErZ5L}h_!UJjY4aOBVNQI-JY$uP70ct zn>8&T2&+%Pu_p>*t|zw6{s2aIK0 z%lW_fv!AWZHwh+sAf5x#k$hc+QsI)I`o zVahBlB|pmFZXF%T`vv&7PWVG7su8wJgS-%uyRNWPK|&lGMa4y9br24m7nhq4*h&3n zANbXexcuhY^2&nA`vvvPAc*^Wp%8W@u^!HAoN(T zuY(1H9);4w|3iS)^cOJi6!;o&l)VTfKg_Yc_}+W(p#~8X|M20XM^OEvk3M?y<_-BB zo=a$tG9Ewq^pj6szk2=l&D&2u{S?@J@x_;)MHDxL9Y6d0SHJr6pZ@d@7iMQAUBC0r zy9y^Y*<36ef?;2NC%EmxJma`lpp-{2_`F`;0PrE~^>UrkWHl5c817 zrLzNr!GFMZ4qy-m#t4<@I)Q0re)i<}#`f0w+&uJ}+W>1@+pBBq@&Kvpury?atZ$f) zX|UOVPav5jgK7=Oe)9M!YxUV@Uwr=A7mS^VB=?24g5OF9!q#?ocE}l^HAX@_HYxpm z3a=i*-VtuuA=z93bXyD$q`&@HJi_JRcO8Gm@9y4v;6dOW@_R0k+SGE4j*TFmUu)}d zt3t7)Y#?`MdpDn#dzmmTksc*uk8UsHsul%3`AVzn8}}YO+>yt)xy5kYy?g(om#@M5 z?EHd1i8m~-tRCMw0sJ;^y08@T+YxnlFy~8Rq$y7dpchiq*{qS#G2Uh*d8yh+81XoO zlNhJHi_n80Z(S(lE$_8rafxuld5j(Q$$f<0%xKNBF!dUoDw()yM-B*Cre2d_Bfd(q zW9 zmRt(Ge*M11AOqpB}_BVHsEr)5<6_yk)_QdgZ$)CmaKtr+|El?RH|`4h-!$Erw#4 z3DW>CR6IQxgCSsq+dgB^#lH{#G|=`Stlv_HM)Di_BLk)VD}MWdzk#_UU(9Y@$S3tD&Z%eeDd+f5dH1T zm#<#G{`ix(pM3rGH=lj>IXwUHgAYG?@zJ;6{s^Qy!I3u~zxm-0zx>*fFTZ;BEG$i6 zEMOKyb+#m$EY=OuiGXYgE)h}pkjw+ymE0EX1RE0^3Y``H6KjGw2>CM(hM>ZgE2i)9 zDVQOHotd+5Q%eer$B3n>G*vt`l{EBFO@s9K;QIQ?;`QAS3Y?j>yv-t|2&B;>1Pt!q ze{gbgduw}#P=oYJ_Fh?Ah4TnJ@=T5S`m1k#{NvyI=9?e=dK!!O3HVL2f>q5B< zQepVr`wzAx|D4>W)}%677dzN!&T>dT`0xdH?D+Wj=FOXfBO}728H<3GiU0~Y&(6*Y z77vdmXiRcG(S_Ew4%(5D0CunG#aV%nveVN;+cOIwfMI{Xcpus?>MBT4i2xk16OsHn zqq-ufw|0${SWKCbW>P5Toj_lbF0wE;lg(xb*szj0HZDMJ2ogonBDNnK>7qKZ5n>gT zoP5iaB$+Um6K)$#Y(2~jKtE}wPZ(m%y-oLk>~`>QvP@W%tf%Yd^{wlhE4H~tMP~~u zf<&36Y{;cBK{Bl0g*MRmj2%5xmzCY;KC5sy&Ia zyF1$^4$Jrzej?OZ58|D7-XT6BSs}kAjQ5bhkCG@b;vJ>OOr=6BHLY|u2Eeo{tBHkl zn#m+Qmm~w*!x90Rv0(!)&NI3 zTR^S0R&C;hLF6k;4!z2^qWHzAuFnBxP^hKwc90IesTia*;t4XW5pj2)-)(VToP3aDXzrv$G?U zgor_fxOeaV;o%Xn-Ot*(K+~$w5~uZn5Z$w9xXZ%)JYNAD53%ErSQaJ`qvKH_!xT=# z6ugHeQlNcA=6{X(L0Q7s1EiZ(4bm-`z!*gel2NZ(NHL1%)oh^xTSLB_pHnwSZV91M zHx`{V)=v)i5B7J=i-*n|0?mv9Af8&OQT$^(< zaz*6wgBsCf?#WMo`qQ8P{1<=nCx1eEI@sS2{M?G5l8R*`aE&Zg*Jh~)vw}t#vKA99 z&H5Y|5I7F<)MsCKiabMBSw%0hRnmU^xE?BqIEq`-;FIY|K`I-54U%Og?H9BHZ0G1a{CT-i4TCQW9ER}BRDF= zf1ICv;Su=srnUOCfbz!12DwsIX%|l zk+54Xl>|oZt8ySp4}&}*<560Br7ZDV`D^v6G{BNnkZeXcTb_sMse-?0>I3>}woYQy z4)Fx#&Sz4>drJ%R|Kacdp3nhZ;S{Pvat}I*bsB^B8CLHBiPkU7W>fCqiKgL%)IihZ z$H!#phyqygDh6|Yv4xSd8EH8*_>_>T1rR7R1|t)7b7!-Vnw+1m-rB!D>>c9u!-L@2 z!8?%SU^PcxiKKAPg~=A7l}v7x03wgYUL>xYf^>a*%UWUHcW-A0bqD6xxp3QC8*3}` zb2D-vnE>1ye>r1f+WGT=odg0OuS*OK!g464JY}aQEBUOIkTGybRkBuaAzRL8V7t17 z;nDoBq{MhnR%yk2KFCv6Ff&~`%&zLS&nSpQv#gvToQlEnT#q9L7!DAFOKMf&xn@J* z*}ko{Rr0&qu*I+zNCEf`@5ls#*aq79XTzYbK=w70jgMmExwgck9MJ(+hXU! znZL1Y4l2LXVvu*CGad0z_wnghfAX4272oPN-rqr!1Wd=K`{{&HlqV=MtacDvs3;bl zV{$trE8^Gu(C{m~!lFYSWVFh(zQGF1jB&nW8V&~1+e7>`a>Ib69r&y_`kP;4Y{$&q zLK%EU=UCl25N7RebBSB{zk`t9uX+VxTt5*r4XcZ+t*@+!>&@F2WV9n_C+t`(SEvmR zn!PALL<$52TQWv!Rc&dLgal9hr4j9fXDS=-Co`>QqczoD$ zi5G4D;;-QXo=8Xs3X5JE9bxJR7bvW?9@5Kv%Jen-kQZ_*>JEg|v5k*HyE>h{!m7O^oR$a4l(boDJu1bHOY0iB0)i;VEGs09L z-pwz5^=DgKn}UyUPqGa~;>$0;1Q4EOA{Cx2QJ>QS*rn)&CQ`}m-JSWRMPB;Y z-@7;f}x4)mxX5}%8IXYo)Zx3D0WOMub2j-|2i{QDE z$z-i6D6WsCFDxul-YCfw{wI&0+`V&GKwKD|K}YYEoZzoQl)O+V$Ytf`QE8Y?-r3EA zeRYnhKw25yQUS4bG46n~ENrQ02b42~C^tJOn51XwrM6(WuU#!=Q=pzy|K%575-ZRQ zDk6>{x@oSyQ9vwbK_Qsrd9#frn~+-Ya|(z2b~<(@(ApdWGdVV<(-~R*7=x$eN=q7> zImE3)33vpuBBv`wLsIh0&E0M7Me$*zxqRJWMez{GV1jh9D2x+`p#tcG8rKwS4x7%W zt(WHKmgeVI78gl0KBa3S_7l9Mvf&`k+l3~t9o#zfi0pn+iXyK=4a&Ogarqz{6m%j3pPLpZ%;89nnAhvPru7& zDs6$vQPMuM7~cnGx^oQgr^e!Uc?7qP^*6KPce%;$axG3iIYt&6G@pX=7+gq}Om?s} zB%>@xDmPFHIgbI}!-50YsV?d>=AwoG4EJMdJmL-90?ocGVKBrUVPcRlXx92;8~X~`SwKG0WG>tPHLAy@ zh!Fleh!5EAXbkf160!HdMr@>)xEg~q+TU+XhNW=YLt?YaF%tQqWJXz(CF>oT3Ucch zzG2JTJ3BZz$wlf0r2=q^rFtzdOKBlB1M~U$g+i%3I5H|3QV@{VEq?=pH5(tu%S%Sd z2r*U^85q#4&_zz`qzs*GCW{Vjudi^JqkzaogIcUXqK^NI3IIT2!8tRCFSQU57$A(8 zC4zVq2`e;8s3Ye_sNRc(iYQ2{AP;a508^LMu_ni%2BjJkmg;ij#sL`z^FO$8Xgj)f zGQYSax4jCA3&m6>qiNXUR5ok&6jSy1@nfW#;L~VK6Mw`SM0gowVZc|fK3-d0lVp8- zWbW`Gq{TyP^}2JY@k|_l4WB3DAodVm6qNyzp+^wb1bUrbU5Hk~=W$3S%;j@4vt<4d zab*1q#e#PXD$~%A-UW6zraBi6kIP8Pq2v6i9`9lID?KAP?bL0x?wrK1i?R(!Mvxc&rq1Fi_7i zRe*D8$Wd{kDYIeLFi8Z+vs~-~d&HX{Sx0f4ywHs~O^X(60OitwEEm?OnZ9JxJvc&Q zsoPsygnH`?oIP_^SV9SK5+p!5Av0)|C~BWcA_2*d4B}fzdMq^SR!WHUK4#LJgw-3u z?9>oA2;VEAoTk&tezayqFKlPCgk6foqAp7G^_oClu~jznYMEc%jOwKZtUpEtQYXZA zH;!Qqs>9ouvN{6WQP$rD@mxzvqT_LQh?A$OEO@e~py&|(lzaa!55jhtONK1&Ex*gH zT#KcjR>HsVR!}`&@7KigAgvSIM@ItljMCku>oRP5IvUDtq``oAvzd6QTF?fZVLLzz zOTJ#bV3w1E0TrV-V?g(o;C#iP2i`%2?h321S%QHRb6zS>iJF7dg2js7E5`g#=5Qded3#2^%>lpKf$;h^ zkeA;qAcbFfUA4&|!T@f#>f-ZScInp9A!K88aP?RcDVC*wD|H3GtyHVTB@t2xMxbcU z%t~Ts2!i}RKfk|kO8$b&fj>x;)Bs#eV>!NgI67?Ir(!nE?XN_0aWc1$kFRfSt}KwG zeE$gDGh}pLidOVJOa8oQ1$Y+gVzA7Yc}&6Y@-lY3h>i1xm04ebi=zn`DIl=CFjo|6 z^wl{NX4D3iBS$s$MHuU=3`9Deg4lHRh2@p?t?k{t{oqwqstKr;&eCV*mzJ4h=o-go zCGga1zJq2=_*ded7Z*pCv%2i^^$p@1>P{fHBoM!h1m{=J8yp^`@MG@)9|GUId-wVC z=U6>6!4eVSLAL%}E*C{2M3NnpAQMbsNRknu&ZW{RW#og$Yp> zh#VToWmB?57zU%mcLi1RS^7+rLhozN!WUGrufh52>;ke%D25`PRrSh5aw1|3KlLt< zMG}#J1;9~s8!)%X0C+bGDZqOpd_#x+_6NWJ2bRA!l>)Q6aPB;K*V}o|S*y*DjZy6? zCEvr6iqxHqp~gt69yI{eJ;MDhL?&kvx+`{2*Xf$pdW8n1(-eYhJDpl+j z^IH3dIy!rUmcR~%2&O5(qFvUD=r)v5N1Lm{M7~~Md|)XRsmP(>;#(o=o&wn8$9*3~ zO--?K4p}J}?NK3P3!3=~tmhK;E6Un(dA(+n%FwTH-R%Q zF@kol?>>0+=;4#6M<=(J*4F4PE30cTM5qo|2k*wd1e4v}J&AQhY=51ZnUk<5M+A7& z`OqOhFC=(;K2EbaNVzfJOFMGSIp#(I zPJ_(LdmA4gRSA{@{JkH2^Wwt~!_tlEG>8@;kb)>tL>vJ?0XJL}ronL3bbWoDQ&I{U z*DzE*d77GG(tT%7A6730D(*>9k?{8F`K!zn-L>YsBM6z+eV>}l+`oNCI-`}$!4LO` zo8(0mHKgfBYp~<mTp%hmeE*0v*%L-dxq&Q9%Y?+7b< zaoA3;-`m?~(M+eZV~b~}vTK?c?UzIZ>bW)t2SSAhqY1MK5~#bn%H=|0OgfzwZ8fkM zSyqxYEEJ1aJw*Zp!gdOfbyx&daZAZ9^4N2kOhm<*<6d8Wr`7J>KKaYP`YVP^tA_9D zi15~NgqHCNU`~Rel_bWiuCLY%sW7Oc9GJk{A^qqu+GNzgcEcPs#iSrSh&M*zyBjE> z;fl9gwS3C7fbd;NB+quJ;!|bPJdk#D9osZ*!R;~`UjsT0t(;@LLy3B|g1ysZd_Z7E zb}k@&&8jlwny_E5ZmzGIDqy98ySI+vz`O6fLs8YBz&Rwnq*Ap?C9IyF%~8i3k?4rO zb2Zo$6L``7dOa*44Ap}F5x#+AO8go#X9iam7w_G^y}7!&xv@zA;L*4tBPRKlzlmR& zW>KkF@jhV|m5vP;F!uS`8B8xMHIPZIE-g;iD=SM2;4X$WNE@pqJ}Kw%L7(b}k9F~q zNznaPda!h;@8)Rl^u-?PY1MzqP|L?PXrisYSf#Soj832Y>$;6 z5Ne+m6#psAa?>D*lmN0wLSjr6NrIZ3N@lBN0fLJBAyz41=Ex{fFUoh)sy$3RFw`zQ zAB`0V-N1mMW4y>3o#OLa_9C54W^)N~9;>=lsz$LvO<=U+`vn<*UwSC4@3oog-~OKJdX z6rsHbVnZg8<8dJr!uvRL_AGtgwV>cTaFgX8VY_aF)&{t1v2=6juYtESG!~q~7$ zfex;R?YwVT|q85R8DfR&s9_S~N^Iz9`Nj)xoF~Ni;{7l&6#EZ@$WxU{q z75RCSsU-Wgu(TN54Mr-Ool3W1p`cYZ7h<)7BTyPv3yIQYs@2-vkgs=}jq|BZLAsZ< zrD3s(D_2l@x($Sf?Jhww-Lcu6bz}F0D>|wkO)si9n{1+?(TIM`c2%}wr5y2j-;+CP zdJfcrqQn{AYtA~!BO{-_ee;Ju{V8DfQcPQ5*S?BqD9k?swLxC7R`%e4gYN3#bY)O0 z`vr6x^6sV6s*`w786)njJi$ATrmSLV+zPl4+pRp1^X<#A&fi+-@RG;FTWIO@X#*Mk-&N$Yf!)sTwAV4Gob^ zCYT|PfRQ+$<3!m051*_?p=232vy2ebNbq48t@PCyorAG+F~S;jK2sB8mOu4L5aekn zfG!s&Lvk?qhQvpMRm8Wu+w^1}MiBo3^wVR_p$JO>oEM(+tKMrL0O~UV2f{Sc@SUwO zO4|qKY#B8D4%;osPJ0jF`W?1A^ZURKWMj+^&>o?xIBT&`I5|1N&u8Zst$F_7(Gv>0 z!A_*D)$3FXgB?B??|k;7;}c+swEJcs>*q=;;Foz5B@YUTL^9u@_8m|w%cUr}JxJ~W z%p+_E*O;o1cVu=I7`z8m_g5A{?t-NE$O! z3{Q&+8Qb&ohTQSd;h+BOPxp8BrzR~hZiSgSkSVWiZ)flA>(@s&_Kh_jeUJpK4;;a% zXYmCPD!#M$EVE*c?B3q4FZ7WtZ7|?ok#syNu>)M`1NsxMP4AM%#FA0zA-w5cYJs^_ zW3kl6H5wvASXWRENiJi68PVbmfH{nN0>;FI5CaK?OTwaQH8Ae&9zJ|zhpS@lF#Lz& zxIN8{E!)`Ggz75Iaka6sVto`vUM5#qH#os{No90{nB*@nE(RaBtCNlwmTpL=0TGkI z2&hzQMK+(sIsH&(fHP{$2;-@=UlB%{^RIsS%ZCr{>470E)OO8yE))vJD3_k<0NBa5 zh76piilDm;l2!n?++YJKgc74knxtoA#Mr{1Y+#=|tQLJrN->_CFu{Eu9>m+zlM_-+ zXpt-|$mMCmJ@Ht0Zepvo=4AI{jA*<#0yW4}JPUx73kA!^%vm=q;_Bg3@RZmdzI93f z!%`L%dJC-v76Eos_DDrKGvjTjA|aj?I8SREsicPhNlY{Mp;rA3eN(SK7QT zVcor5-zq3ycXn=LT~br9*N^FMrbKmiOEtpz=VoTIrYa8&1^zHMC%W?X&1Z};9xTkA z&xdc8k#;69yD&RLyaJ$6TK*~*!?wIIZ=&u$VA}T}PA~$(`Whu)bviOK-qF=}wM};M z*ccc~=7vV628JiYIwD2i!r=DV0stn^`4ZS(3_pD7UeecVXDj8(bkHrncjte!&mts~ z>3rVTh*#Xuib?=xXL}c_TcUe>!b-_ghyh~?!1Lsk@Esx{t3P;BVTET=%PyJ~1Fupk z70RIDWJo9ZD20;ckgPO3RVZaEwM?-@sMN&cRzey}c(gdDK&VtcUO-$h9cavivQovA zU^(d8Nzc|TV{GSzSvgx0(+;P z3ifr;c!QCU8JB}y-ixUTG&|DUF+HBXPaVdf2hq|Zxg@aEC3bO( zpi)>n*~qS<zL zgit{fu8za+?Ceq}hzztEBP3t&Rng$Q1f#@Too0^D&6|RiHy%E+^ul8^Q*Pfr{`#x0 zzWw^gdUdVRtX5_V`MU2KyS}yi^%q|p-8|5J1momh2rP<$a_&aP$E?#Duh!a}VMLmA z1~cxXIXJr71RV@canw2cas}boRKV)saHA|iq=s^^Aewj{D2J?$=m)l295|%0wuS{= zJzC#V1N?bkPExPeATwasQUnQ@f~BVe4hQwdCx ztDZi2>T<%jb~lv?+OMsxTPsK9=mz9o_{>^+7b`p?>SU9!ph2TiC=&BZK0&4GEWQQ9C`wu^TTd!3_d{}v63Ry$ee-LCyBvX=KMi?kj6)3I(Ec`n!O|(>? zO$G1{3a{nD`eF&4ZEy&x2ZTrcecuOc4`2TjVvcSh_!X}nmYJF?<#IX_VAnt086bN* zbQf=j@5FY%PV^>{vnl#BUmLm7r)PYJ`0^6!YXO|ytxa*&dbO&{ZJ0)|623+RGv}-! z+yt4H3m48{X6HkeyRHj@m_qI8bx8b3rmvcM^ZNP0-gdoOnr&KnUNwYJBrM1kvR}8v)x>cT%l}2bg5K6eZ;8{g#S_0(ekk|-$?6gksA3N zB`TK~Pt~MlOwY6YY(y?osFW(G+O+SHY0hd=4PjIOb3! z4a3v84ygrEiWeA(4Y%5$J~6D`6uCufMUd`4xbGXGws*Eo8I-m1@BaGV{PGuns_+sZ z*EhBxJf*^dFjcxka~1@79j~>zx@I4&86DVl%J2rV9N1J^@;Ow0`^jfkO?>(C_4`ks zy?XUBtZ@A3;V*yr=O;(EMNzAzW-(ur%6oEj{F86LS)8ANw@N07G0;lHWn{3|yhz`D z6pB8QD`cof0j&~aYRYMv%5+Pql_D;eLvvC%Lnf!Nm~asC4-Y94KKTNMYVct3*DQIq z7P3=(BSo}sB)E@dZ9_XJXK&RP7A>LZ#yhXXtf!M(x4bOqX5eJhuw^`yd-v|M+PFGa zkIC=vAJ9E;e(kIEokONDq2AVPHX#ht07;B<3knnpB`z~hxv$6C#R(-W`6de%#d_zy zqGfKD31g5HMzD}AQ#{Qii^%|iu86oC0;%JOnDL{}SJ*pi5lDRp5G;a4j|03zS``-N zbt3V+CnFMRH-dzybO3IS8wP_HGOPOrq7WOJq5mLCw(m?pG&aMR5B2tdY;%kBb`d(0 zCCGW{(C`_ZSqx4`BnJ6Tb@(Y(8-P8Kmf%+NEuddmLu`3z&lCeosEMW4>m0Frckfzo z9{dV|kZ5GBzxVEYA+U1h91~=87!(K(;>L2Z8q?Eez-7_6wdI9ZFP`7Ods||W6iVz` zGx%g!`N&iYNNqJbZEl=FetGq3h99)Pw$3RV5WcfebUGV(64UVtML}~b6iA~w3~z!Q zOg%E$it>Z8FU-v-A%V!}(ajroPi}EWEOPDJ(GYPW2;<^=%R1zC4US>#!ke8v{llZa zhI?{25rBPgbZUGOq*HNpL0R{{hRiHxYnWO@)N&fkdIKXbR%){gE9)CO2zfeNN@plT z)`b%u9ZgN@0xT)>Vg~MXu{fR0q6*g7$*e7JmI}30n6p*V6e1gYJG+~!8;F-y_d1k( zLy9~_CxYssZ;Xr*J2-UK6`@j%!ge@Su9_U4uhi4!+C-^5A(~&V_~srH7^V3oQ(0fu zGn!0|_#$tzd^YFn6Q&A=&&F-E4BP&0XRQh6s)< zr6FH#l~94GyWtx`s2y#->QAPOQEsEy!*j$nxNnwX4w7t;Uz|^n4|*&(zDR7h?f}jj z;-RP5j)=o^@E$Jrbxv&-cn^RdxO#-`&Ww0F9vvVZ)cXu~@R%zh{l*3=fkR`uA=1po zVI`zL(FgmGJm)8$w=$%DZ2+oRmEbk>e@_(c1z@mUFP73~>=^iw>aI|&ShtwCh6w($ z@g0U_7&Siie12BYqr_%Jv;#*95P)$->B?cg1`pJN82L=-AEAq&h5W)o$SW|QV7L_! z?moEp{)g}1xUu)?n^%AS%Rl|quYMtQTsv0kzIbTMQUe$ee?%TQoR740-~PNvOb#M* zwN9fhS1Td4LqDql|8)lL)~yhIxOeyd{W}jncn01-dhp<`>9>FJXMcTT_vR!HGs5Xl zee=av5AWR$F?eWg07vWFcmt7dZl7gYrV0uyaME{xs9-ScLMKLSo^VI5q|bvhRpV+g#9(7y4xhCa#cLt zoi%~J#BUYM!p0@Wh^Z4Mf~Re90Lyo=%f5od6dR&9*&GcvFT1xlLj*AdI@>MMs0H;U zXa?_5G8mi5X4#D?E0xI%A6CDUA>cr{GAk)DPVxe?UBNLD@9T-}qk1z6aRzlR*(~m0 zSd&4g?sYaKj|V;xeUV(%#Mtq1jK*N2fhr`d)Wc24)jj=q7@XJPxv^9q{m^aQgm`E$ zAs^Kosa~}v(|O#GyG92`g%tmfkzld&PT}E z1^(OK?sW@#SdfQBo|$RFTV$KkqKnqF#oSyr9oz@u2^P<^D29^pou6N9&MwxQ3*}mK zZhi^)TQG>?XoY9|h2TcH;}fC!JZTTopbzig6YX7?ompR6BwB8)F70ftS;WTowBA0t zd3>;cxW5PUk8d7weF#xxY|@1+)PCf2bOLW57@inOSWO~Ben)vz>Ea}{JX<1s4vmZt zj|sSs`*H&(lf1*6=b9MM+TzlN)sb@{fJ|V?u@@XZ{<_?l;bCBGKua;L$vQ*#%H`>e zwe3u*Fgczc86MB1vNx_DoE)B9-?`2KtaCi_S&~^Hn4^ycjw0gRf*S&A-QED=Lf z`GTd^lBMFLWt!@Zsd5$b$W&{2-y>G4Fgk@wHC-wXO(bFaST;8b-g9~0GQG){7sx%< zVPLe*gSrbq;32a848g!3z+HDI$5D#=)HsRH%mo=uzK5N!$&nypP^9TO9fO4TK+}SS zh_*1&L8WyA_^L81KrSB>J|gO*Y6uV2<;&@2k*E^X73dAd0Rt3;>h2)vg(gkDh$y-* zkqe6tI5FDfakzK5&Zl$yw1`q#o2#`IO9Gnc6Bxmwb!te9T#*{=n~zD3<9H&9#zi0_ zkrWfo3HxSz58+@SU4KT3z&m_``4BMnjtR*gti(1i;(to+?L=7Pn5&=~BV{AVU`ozc z2wlM=a4Ose!x6+Au&RsKVkAa)8>E7PK`ub)WsetTDD_~#JKJE(U&BL-$*D?H?hes3{q7(4PV4WbI zV9x?#Wh!DzrR4EIa_2Y&X89}M{Vx6a8dT$^<&G87C(oQSjcx4-qRZ>=5H zHeicBnOvriz!^JD7e`~>@N;Y87_IQ%%nU`<{E`XPVH>AN_Uy3BqYFdvGsrkt=oJj% z2DaDtHb;)I>*oNw0D|HSRLL|Zf=lGUzaTb~&nT_H?x;xug-2#^piVjfut0n9$mO=j*MTtbY<)5OJS+h|H8r&1W>gkOi(x| z$!n&}PET7TrBh3Vf-ih}^4R3KMtXzuv&X&1U|-+d^l?{2n+0nS-=lzIht`;(um;G( z^M~QsQ8%@wiTnfIU;J5X{@MIW)ArP@v#T4rQvfHqmG{*WTUJl*t~6?L9k; zVIfabN2ZAo*O_V13R|yZ3@F-yBuv$?%f};?b2sLW|6hm94sW4-Drco51l~= z#(}*zH+CdDOX4|EUTGIFQcThx$&2_y*luJZB!;UyK#wK^c#TSE2+93yOHe(4ofRQgu= zi;g4QGXNgQ$3nv;V%>?2eZ@q+VzDrmTkWkV?w*_&@9Py%bSm7F1G5sDJ04kEJww2` zaPG|C{q0}>)nEN#<zB%J@(h5*&~#mpF4T`_FY{Wb?egaSIs`p&%(kY zjpEd)6<{9y0j8#OO+;}|{V4@GGfi-y-k_B-ig=w54Fkpy}xuNHVUGuXW1QZpT)72=8ZC&tASF z#yLrnk}(mfM^LX#eWZ6aoNOqUE6`gSRareefn74@q8o%i3cC&+65qM}#;IY9&q!+G z>E6^5<0ov3$!@b8=HS`-CC@9;0NOMGrVU#{+h`F>Agx0i;APcj^YHa@*9ZXw1)I{4pYF~VO9}J5N+gugSx~}-*0-NaQ&4svW{T;{*|6B&d<5; z0`W>ww#DDErOHnEukG93eb3PFnxHAZ#r`^(MM`3T`(<=wU}#W~C4yR6TAJk3)i&+q zNny+6t*lMDy76w>`FM8vxNAg~q2~)aa5RrQVdBzYf4`N*`c$iyPM(-GxODI# zBSQEOciM(V-=stP4~gD02aYs@U#ZmthZ+xB4DE~CnJ2%uv}aLzB;PeG6iT@~0i>%v zn=6!hOTBf)jfG;xCYRMpe=bu59z3Bf&u=HYCK}91W6NfKWb@b@?mbdq` zbmfk;wD~aX^se@fox2ZNSh8Jhxjcy;UB|{ON*t1?r4TQIK61nET?eCK1#Q(9*dg?p zsZkdkY~hd%d0{*1uHHZ{RTe2)hedlj@Q?gQDDRF(%mDWQdr;qW3;Q41nmK&?C@x4$ zgmx*KAnlP*eLD<|U>QQfYic{54B`E`D+}`p>25tGfz$7>J>kvCO`1*(R_}LSM{eCv zmxyLv4(6SljQ>FCEg&)}xma;vV#{a06qH=ZDw~)nU6Y>OCf~1kasI zYQgl+l&3@QAoryBND%n>(2{|m0d2CPOG(ENT8@qk(Sy&NJ~ek@dU&v34_6Y?f0q2n zRr$P_m1ynewJU%BcYptPfAhDiXHElNc18pSIcJa2p=)AdO1QeVc7cli^!ZE8Sk^CJ z)!OCWy$9g#st#h;uCK3O=9Wwm9>_~QfcLX!SI;Y-)cAdJ5}O(t8sfEj=Y#DSGQgA# zXcDGov#10u)IyWVW>74Wf@Goy8ukJux1c;)u~1)`rkt@aDAN9c(RvVIAGG-rdP0w-$jMuU=FrwYD1a7;NMV)XwbRH*zkYN@doNdJlA&lWvPtbMOt{tWf7M-vl*@~#DFkF3~p5TOJQF&C@ z-T3*$#Uvop3s0~p;HbtkJ`t{A0;cdYY&TTfqn1vwRSdlLHrK_X>YR;ps|@yTMerF> zM?QQ!tX8Rrn;6}ZZ92Pq?qI?ujkrK`VdM*?u{1S(UXdS5aOC?pgh=IRhVLI@%Wgw= z_vhzyHae*^cyLhVnTGs>SFT($T<7NeM*sgARNmrHrg{-4Rpb^+no_G%Ga9iDQI#e_ z^Yin%IE%D#Gv7OJl7NpOqoWtB$A=qj!@0F!R zANhmryGR|V#;)CaC6G|@-Lh&&TaPv;%1mP$g%w1*<)2B#8Qo9A-_p`qF7=hlHGyDP zzL+moyDNQ^_iFz@bEM9?ddu}FIf}8|VYNI=%84c!#v$pR23$PasI9#$>R3KkG-?hV zY8)S%xOH>G-UGx_X(o{c`DU8Z0eD$N=`>@yS#Qy}+VkS@Mwko^09?hz;-1 ze1eikF4a4D`$zzrS=((ELyy|8?I3=ZT4ZHb*$fbgrG*8X+N`auUcY|z*6mxjH*TLk zy*yYKxwl%pfV!|nioH9ZuT?ABeXN~XxxaDi_rLq|fAz2a>$9g;_zG^{-uUrPegV42 z!r6EH?CLpe{6wP5sP{RhiQn9urnnsMD=XgUJQ&wduj zIS~P{@3BK19xM))ufYux+XtLr^}>Xe&`3Pz5SJXgf(>8^o6`LUA(ENxwJj@Vy+m7Y zr0NKphmm=5K&@6ozop^2VQzR}dd+!lao8Ghb?5Ahj2vbwdv8IO9K!pT|4ZINq_Zoh zneJRzuCxTO1Ixn^nN+7@@5VV+ zlhlVsd81V$to02?IC7x_w+ZTN3DfNv&mJ2cPAJEJ?%mkF3>)@u2tY2^ghmtymsD`og1p(Unk-884SLB3fS7(+RXH{ zh`@rHd`pc4c@X0x;AWmF{PDd_PfhA5;cS=Y=dNE~x3-EhO5HtUa_d^d*?oo5XdaZHSk_LeJP#-(s++6X{OpIX{;rD|8X(#X@!?UpaL$jeoF zv)!eRt^xo@zgjvvby5=Qg~5T2)85H9fW3zbzGD};(*Q%gTwI9F33KqU&;Ai?KYBpQ zhE+StoeYB*U^ezT0=PnrQC?+uW_g&}B;R3gY)wImFy3}04SwARt!ypGwxvJhao*-_ zZy6qhJ}^#c{}Z;mlfpYp2A!dG*i4fm6Gd>LpM-)<_eg(7`bao&nlnvN-6IK{e=GHP z1!6wA#8QDR8}o)P#7$W=fkr?O*d94hLQTl*evm21Zz-`5{0Z3ceWIrjguvj8ypiw9 zTf=rA&D_MA;zevj+|iK)h7fX$0gv{GpJ0rN`^bYgSQxKfURho`e-U*#;jF|pKDJIR z-tpR%%c!=d*_g-5;>j0JHoy4v&42rE|KY;9b5u%_%huMj*B^iO@X?kom4tSZJ9xiv z@e+8Sou4~#a^6lBj^ooa3?!%&#=g3G4w&QTvW+m`KfR7kI&935Feu*PH9iw+Jo3&E z&ONBiN9G-ecAtmD;aAoYjv`wzvE_&q6vonA=reTV=*rvHo`9#2goL7-0Rw&)mjNM9 zLY??78*Sz$eDw%4LEY(5U=e`hI(*?^(t*H>1&peI^u!rXC!vQxbp*a#W<|?k?_L=^ z!sPUQK{r#7d?@Xg$J~938ax3V{AXw(B?r~F1O$PPmc`jBEb1dFGc)j(ONp}*1o*>v zBOxLQtR?X^Q7sG!%rLpi2Y4MqJF*c{qLbsmkRRYHd%t$+A_+5=`VYeXE#nf-d?~Q5 zd@O1HM8?MmVan10SdBASZ z6o*7VZ4j5HhE-*D@`Y3@^YzcN?Z(fnTI5oxhpWcrCeneWp@9LaPPz=y?aWzUxH(eM z-LyA0tJQxPwvP@CYKE|O=JbR;Uk3;Js#Wf&OFN>-TO)GSdO2cc$o=vb{bB$G??x0?iGmws&ZzM5@d z^oX-MGnHF;Gu(|4<>zd{Ek+P6hj?yJPwCyGEj(($(+@Rp@Sr9{BRgKQ^w6!s@z|N! zd$=L|Aes)!E@<3v;D9U3%cyMb;GrlC50Y>|djus*VUj@}jD(Qi_w9lIu-*7p{fxJB z|7dn0=0@ECyM-W>z$CA_Gj@%Rmb`|jp#g2_?S_isnxgu)?|uM#itR8T-v;642t4=a z{?;f@G?{2hkg{{A3er-3iwnM1f1FI>1}DyY=c|F)0Oc4#>I5MR5lvDWzHq+MMX%*j)stIJF&$rK|4@F!27 z>lKMC$*5{NGY|mX+M_{iCQ1EU)ao8;P_K7@ssYluO=6`O94eJ7 zS&EEai^IcSL{v>nh2%64nugi!6*@ZgwDEU+xk7{qC}UwN3QDhmMQc`yVQPQdMnS&Q2|`*cop zQ7Ev?c`)Vk8m;?*RF;NHMSV)U#RJ2|X84j|2$svo0}s7jl5aU2c`ayi$YLFyRn{g} zMh_Z?sC9F)n_K8lM~_-)x?^|LBmJe)jY}7?3S&zq1y%!U-NGyxq@hZ0HP2GwC3v8X z!>+6kPF(Vqz6Y$sbThde@fIw#hoiB73hZ7euw6K*HIq5GZ!cWN+ZCmjT$lpOlyaMz(S8v<-g$_m1G&dLi)iy|1o{FHaN6 zg=+$b?|tw4{1sGv^Ecu75)u2P!=0(u?C-C`_8z8m#u2+_>tZ)KwYaz#JE}|_C$KE9 zM0jW?kVs)CY8css+LHQ|dV8zh$gpo~Yjb6T5?GjIC<@Wfhr@vn&8hkTk~A<%Emc9U zwyvzEos^d0fja13I5B&D{gRw1sK0+_WBH^e3FH1*CBGNDd&~NjgyGNASsI1MRErH?-mTg7^V0#(1XY=Kfk}0xG4ZM%$ zyRBK3qmAwOi*^FSQ+)#LE=V3Q#?gK_57@&V*=zbzu;-t*c=$L&=j|)(%eSPe6{Ck}V zGSFyEC73bTuRxxEtUJfKdg##i-+HT3E#JL=7g#-d^x!wY`|Zzu{?j*aUjN&F_wS!R zeTsjczj*P|Bgo1997lvo$ zjMNI632ljPJV^bclY#I8=yLV=w$r*!TtMG0IP^7 zLs62Fak&AIZfPLPl#>P~-qfG?r?;le81U#i8t*}V56I)mI4#f?j*yPR@pWK716V|+ z`dC6^WQcE2DlX;;ViZE%k)+b?<5F1H|*sFq`V~oL7Y7bPGP9+do5@Iqq z_V1_Wpaigs6%0!g1%q^{Sg32%!*-`(KAKtH5w@FIM{Km$a3tT+Ru7@JOLj~f5XmpK zF&uc3L)+~jb1<|f-++(o`;iC-!oFv3?Y{HDhn<))oDO^Qi?|=D(j7aY=}bYIpHLi zmrNzj{84ItUzFB@`qR39F3igj&^B3e5qJTE+zPGZ!|mWmFSUJ?W1kp2(%#83ha20E zwgjm*9DF57Eo#TnrdDJmTDG)Hh1owUtM~}EliU@kW^*V|1-v`zL!;$BZRko|H+%Py zw}ZVCM8XO^k> zklI%8M##48SX+?Xm7Bk!0w-3D*bt1 z;YK3YxN%q-;#Y}kPjd&?W{_`!GJv6@;sM}3FO!0bt?zz(aF0_wBTDw;Ti6-x^(;n- zzlD8jFD~b+AeEw=%-Be{AkjhY8yXy71`c@V78o3`6{guF47XGW2nRBtHKI+F-zJrq*jKgM>pY=H;?wJ;xHvIy zovKDw8Mx;UGntIP^(za32CVFgCm} z{ERe{#u-q;%{6&b2fFT$h0Nnabq8a&Dnf@XFznD#%SrMc(|xlZq&3g?iB?Va$P6qLq!a&WNy~vH367_Ap@1t#j3HnFm)92 z$iIgX*~w!Q(ActWcu>)&r;ndnj$ROgJ~RUvuuP!t;94F&YXroK9d&{(H^I%N;Z3FE zxeCUN+^ToyouvDRr;71AG17Cwh;iz*KExVzAH;W)w)4=tzpuuVqbj>zuTkTT0tCQ6 zM~8+LF%8tJgm=8|-S@e?1ymNPk2Hb;?-~){=ZB8AHMMoI$H>O$u1I`kcWGxPY=OqX zx~b@}-Jw-%MxjHwR>&K!6>i9KZ@pOUuhxgEwIPa4bPka70pqB1hek~7?vk^?7f3pI zJ2#HDYW@A%Qx|wImsVD9-q_H#Z|C;y`Ai$R1Gcx=<1E|ZEp5Qi)z;P8oI%eUoknQv zIcZv7yHR;){{fyCCI(A*Yrdyde})9!TQd5IW!f^i=Jw2yrdA)tq7=>sJt~d8Skre? z`V1svyQAp{VuyI{bs?i@@4;b@NG#jQ=oQ#cW~ z^fvC?(c@%@0j<>i>6;h-=Rf}A*I$2)zbq^)5!F{j$Y)kAUefWW%U-ZUj|td{)o za;-cL9nmAbTCP+kCMR)wh8%Azu_Y0!+*OqAtg>O)O!9_Ms$Xm4J{YAhWka`38q9IwRxbG8BVmJNk|2f@WGYgz)a`KSSj+kE`w`XgK_ zct;$p)|^##gx3gGi`N5*#A)#BEc!0cZ!*tAR2qfvuvNq(IeM z`h#dpAq!1Ah$?S#C%qkg^18N6T3WDUHFi2|)(N6}_$r!@=9HZrI%GO{YivZC3B!Y; zvLE6kDv%#n#T_Ao(8Pi8geJ2mT5Usbw-|^VjF8LE(y1jO$w%9FsK51Fi;=5u!KIS% z8Tv}mBs#VMOznp1MwYAKzhT5WbB3JGUm7E4et!M(<=NR8%d~kR93xM<_+E)8Dhdbm zl!&hQSz29ZXC{^;i%6}{AR?1`Bhif~7+J;uPK@e%Ka0gcKj^NB2r7DT6ifP5^5=W< z*yyl=DMlPkfN&@i4H%MmcZL55XCr86G7C%S6%2{$_A`wwouq6eKIs6wTTyCsl4$Kr zkEo^YjBk=}i?6?@r^fd}u8E!{)mk3f7yD#d`Q-PwjB@At&;Z4jPF!6z6LBWZuF~Ye zd%2>QLSJLErsBoBcORaZ39+5@XH*y)R(iBqi;nOR@Zs3lq{)6;BHpg%OfFmL<%c}f z&`3vjDB#WZl$!HB`XzD5G_tjKb_ofNYJiZ*wsqw-E6`+&3z>xqKM{wzML&!ykSd9I18oQ_(HY`+ zqOqs9@SH9K&pql0gpZx0qi02m?NmunOKCBB5pp+SoB4q39qG~ldHDXmb>m$x;-2B{ z1$h-iZE@OBwGlZPR2`TnFDrnJ#!9B+PTb3tj(#tZGbN;_F@pCtTcdY}{@XH#$dLJe zD7uj|C#1#+Q8{tlC_+5h$&%m4&Zk0MpWTy#9kJQ$-fh$w;aXOhS7<-ZhDs?x)mQ-B z4c2Qv`s$1S>mUE|cfbGr%nZU~Q)%q`fUamcf4<{%K=ZXur6;bbMxJU}(6~ zTcdE^ymec{m>V~_t2TgkU%h^U18wE>akp>s^x3nkG#O3fLq%`YH!lw%89#7r=;T|a z=UNm^_DD%``jQ}+BDzW6eZ%A_-wwNjCW-@fpVVO;B&|T&u6$Rhd%oUIb=6&h9T3zT zK@i9v1j+(Xr8NcZ;NkGPD`)Xq31k0^(4$yXVB&TC zU2yd(LNA3%Q__B^AX6sxZ7;?aZyj#o23A9FHPMvhiAAvzs$|NUxd_rW*Lii`tt}0E z_qNI%96TUzC&$7hU~rl?(B2)~ASRK~6Wy62;!7h?K_h1Fx1I;M64PiX-bM=|ENYPN z3U6byK8QFPyjxIs)exPpsiUi-t&nNg#y3YhQs|fD zbM4+P?GFJMTR@s*EE;SMVC>#kU=k_X!-o+X=XNMEO1s3Bm)F;2YRG-EnI_r}Mu=#F zWJmk`D0HvuD0V|$?Yh-sZ;no1?nrdN7?cF6^zsT;mX}ZA2B!?psi~Ef6%}*y3yWUX zWtA$0@D;$G=wnE`>mq2%WWe|lWI$#f)T7HntA2c2%l8P>1 zGS1qDiJeR`Zjb8a-e|_7C1{JXrb4#Mu#`FKoSc}xyndPf$fSXa!*&C}2$YNy1^e`r znQUveDNOjyiep=PN*z6A@ZQkWx{rfXHEU0)wY$`i$sVM5cI5%PtZTD7U0qydlCZ6r z*wJRku3fMR33rP;pdZ4(PTlhKGD@hsQp|8dM(2S@r*={AVt>8p327b(MPqpH`6!4z zKqMc9{WAN_fw3I2bC`QP0}j{&c}}>AT~=ScZY>Cgm+m?a4bcd zm}DZ`nxOo9??qBoL=4&CxuwD5$r|x4IY<;7v7JIZJSMybF-78KwD3)=FY&4ZS$doa z7L*6b>)ng4YmOBn46bf$$sJo#!Fv{8WqT?YYmp@@lWT2yFE46tnkLRO2`S>-{L{K7 zY$3d$B`k^9sUd;{U?Y?>iPy!&1+|TE^l$&GfBAp>-~Z3`>({%xyTzmn3n$kvU%GMg z280K#81!0FkxG3}0RGa-nU&LL&ys8WGK80z6E|<(T3b7R$)9Nxvwj)1)#-9UhxR*m zmb*{VLFpM?uylI3ka=}A)()}{vm|(T$E_e5A>xEY+E-V#%w6#u>JBjn&STwXF5Sj+ zi2iytfJ$dTOE&0dk_}C8ckm94eNrF~493S;AtX0FOF?%gjLcDHf}P29YUbmaz!hPS z)T(a=@LCt9RL$_tmCMvezh-t!l#{%ip!rH?fYbg)7F35MD-10NbbD3QokK|=h0{}q zBp3WDW@Z39e2RJ~Zo2R`!ac>7wQ6Nsg6%NS^Mka@JQB&-6oZn)PO0WB*f%)Te;`6J&g`8U zOMwv{on&Ga(DXRz&KFM>EwW-J>Zq486TO;&+gB;Bo>@L~YVp{}5KiS}G@q(#+?dPc z+gp3Pb0(}mHxh&I7}Yyfk}_``P*W$po74jCFoC?gw~Iw5nGD{}9puHD9@qNRX--1) zDWZT7padg(grg;-I@##FQYL*zJ(NpRw_T&Wb{`8&U5|ToeSLj>mgKIz!}79$2iq?y zwVpd+>--Oyl(ccly}PsPgoP~~{PaV250IftTK zp{YZIHYj)fih=V}6UV?imIaQPRV@azdbqrEhwI|XSX9l(NT;%Cysse_CeJ*hOUfbg zsdcY~gaT2qcNL8Uc|4i{Gb#2m2n}d?A5mwh?iM9hM%YfADOCo_)d72TlA5GD6SuDp zL-0B5@d$iFKu8DG9ZzAfgzeouy)EIr$xls8SuKDPB2Iz>oJN|i&g|3Ox;Ucz9Fe4Z z$-0)dCZL_kwdJ}qg;GbM2-Vx|E2MU{yO=GPwaGXN_S-Y=ga@iE66o5F_GCn1n>!aPk}Vt<{y4&rSOBg zYgyyPgJXva#(MZ|ojb+Fs|in1`Ne5@S*UK=@RKG?Q$I{F_Sg#TU~GBA0c`h#pzh7F zHBmliCK+D+eZ5!$5z*&!UQWO~j?+l?0SqGzo256{zhB?b^A|55?Xb)E?CYy`W;-jD z^2w8P0RNNEKKl><@jv}f|I7cTMwJ21Kn6bWjVOURzj*n2bMwj8*0V>CpFViB`SkgV zXD?npe6)Gz?!C>er%zwL+IsrJasR>Qwd*$(F@bTn_8aAfA)%j`n}_zK8`Bk0zi{DF z8YzQl@iNs~@>C`i%QZJ0P;qEznEOTfiMeS?K7aA*$nVbE!{+BObLwjL$qI`siZTkB1fhVl?*+rS|;MVC+A?CH>7hQSD3LSVm zQs>qb!h1|`-@{}yu&M+OL|a!c7>Ep|y`5zREVxDD=H})mtz5}z6KuUMFo*4GXTZCU z6O2B7I2KySXn3Qg#anwCgaPsHyPC0@@87S%sk#FiE9xSEh1jIXFdEXs4<5wZW!K~d z%lR(6VtjPiAOXS#zh?$%2PHebQ07pfc)Z zgaC7t9kBYR0U+mM0JvT*ic4mm$+NSW`88m7kYz07px-Tcr-gci6k}`eq5gg(--0W| zsP$Ia7*vVFc6gqY%P1<}=MwqEz5wKl`vY>yr7CC&CuC!*T<7k+2cpEuL$)h#!Ma1A zf$fHsC8b#I<9JU-qLh%n3w=H1Iv1Nh$}E(00!P!)cHNoCG7fwMwl~PD$}{9G4Sl(8 zRpE;A+O^>vtPco_e8WZsVl12Pa{KHiqs2uO5V_6fHU(F#nH`0mPE}Nu{*H33tz7G< z_O%vELgKtiiUin6H!YDKs}=j}qWulw#Bv-0mun& zPf5G`agb#aY&T;_>U%2>vx_Z5)|L*eg;;oHa|MK7bH~;3p z`-d;S{Gw7Ri<=B17>MX93{Pd_y)I#T@zOeZ294*3!LZJr zJ4b;*jV@eThvAGdQmCGJ{=y|se*NaNr_WzK-g@@**~_O-UuonwHWECHsf=kKr?cVgTn&d?dC zQPxpu!h=R(;`xM=9BtUVh&AQylu)v^h{^Z4va)Qw`Th@oAO^8Wm_Klr0%=Iob6^~R zb;){qxvqyAbv2;}|4b#&zJi6>v8f$Od*|>Z6&dSQE^XJ##zwa5a`>F+5u9xfL z9WnJZzNWocDMZOGx3M7rbYoS*;YD?bwQ~m7W`}qgo)ctHcV{Bm&aM_QMJ7WfXgtzD z9OtgF9;FK$5eBwXUK6Vfi7c>v`v*G+H4+-G4>jgcv;`x`>4@K{ibyqFLftJr&Lb{+ zLfvz`k(n;=UPIam={EJC##Cz~-CAT9dRcCGsSY2Io-=$pK)v-sr7Bq_BOdKB>MHFz z#)J2KdEdcCt!8A1Ks&q=a6wMGzer8=VJ;ZP3PHpUgiGzd2t_Rv!EB*PBg#rWKQK}n z887tp>q*_1FJSL&c}-?udv~_f+u2ichou>|gV4bC$dEQBW6}rTiL|%-P7l%f4?DoV z!yW5Ov>jlaZ{o>p(mKpp8Nl%;3G4^McaA8ECr9@GBWxV}It*<34A0n~upMDfA>D6{ z{CHY448Yq%KY_z3KgUGUKY`(RJN&d#!1e(4g!8*KWzcL|C*FdegYl4cBIvcqm^Z=P zA+K*zg^KeHt|cN+SZbfdNFVR_iNtY$-7f91m!!b>NX|`c z&d}_2g916>{rfDtXbC>NdQJi9hzH!-`Uj#&p9oCr-?r zT%g081L*5qH&+75pS^nUaC7tVQ^5XcbL+*+kDon%x%K$jjT^UA_o!fc{P?Me;Ny=! zU0=Tp)h8#XIB+O160-U39#9F}$^L2djifP$n~4?=UARdfSFc=~nVwloQg2Epq}hm+ z@`9Oc)^b47L71r^hIP`cAgcQbuqb_B@`D4x+F)z=5FL}@t36E4_%j*SeG>_L$Jt;O zO^5s|{PzPBSdrvav3=-`F=jFuDpn17D;D9lcemUCZ7V@F8l@Nw^Lvb3{QHkBS=&ixhA6sH$WID_##}fY>Mp|zB}nHbTx`_jO2A9P&FF8f()tL zm9sKR3tgSFQ^!`8=2uTIpIVqF433WsX{)OrgR1*Q9@XQ=I$9g0i%e3l1GEiHMxD3b zeou0sD_=kZ@$3VLyPu?i2Ivc(vp=fVf4J>!jCb|S%FOiCrHdDY4uAH&@2PX4P#f3+ z<))^_$a{8n9u$pp_%%1X?&SAqOB*crpzk$OArn*Um#-oosx2gjoTLjdS(rUW8j^VM)b|47i}iPGM%NIcqT$n#F~pY4bfQILdYP zWFTY@0}h|3wU^m`*qwy35N0c`Ke>M5rq`&f6eUaAc0y1F|OjJ)m==N+1o z@sWjTy-i(14(HG0iXGV=5`9lk-vKQST057QPKEnLYd(zq@IjgkY-iR01wlE=71l2x zDwyMJ)ZO!l%~vypmhN(AwZAwtQt0ic)#x)*=&QHpdX%ZOI`W(|T}RqFT^29y5|j9> zTR<lV;e!rD0&E5)=ZZXd0B<)7vhA%9K2FJUgQ)M@8+$XQOrCwq^Fx>M z7mdF6CZ-@NgIeFAnsPI6Ahz^*Rw9C%zy#1+lnxe|mANSg=~V zq7K;Z+b-m?{LlV8;@u>I2u_nY6JqdNjO=>T*2=QpKTv0M7l*RY{NSy(Sqr}Y`bS93 z(8%EV^Q+HaJpK5SH`-g>fA|0r5gCkj`a`|muQU~Lf~D}Cf;~7eh_7Pr|Ha?@YYhh$ z7ne;Lt$mSp^`*5OJ#|R!3L9<;gEidV4`f&3Rl5_Ri)#<4zRNsnh08n_W`@#sQ9ww`fXwGJJpv>{i zz1#IVK*H{FF>2h1}rzX%ZeU4tV-Qg4C6ZY3v9=q+gjSA>#l29 z>I3r9@^Z^PrT(5$z1+*aS+_dKSK|c|bh?eP%AozUcfvbX57mkDT?My|OGhN+wd$07i z^_08ogN0fh!V_osA)UO>4)lVz2tSp`$*rKW&~m@+grb=Y4x>cLC=K-)x*ynU9hIQZ zW!h!xBVLlYOw#&vo7iI^3j71sjSz#}Q2!RRL&4jg=2id1+bJ-90Q)ChE^z9S2CtBF*>meDm@ZE!Ghu6ZCq`z^jS%+ObGdD?=@t|`b*?CL>J`-EFuy? zSg7I3;sf5bAw_qJ`Mg4IVuQV!FWC;`;@YWGi&ChUE?tC;un0+>pPxU?R4_je4XM^r zQPcy1LooP}QDO+U`I}F_fYLM;N;@!z*OYeT{Kk!&9544CJi^+k>kKo<`CSE3_a3m# z+`6@ax7#Jw9f-Yg=bnTtPEMl+v#VsB)wS!_Z?3Ojk&0bdSj64E*UHN2&CRXf{Pr*Y z`5*rH%U}Oi{owTU^n(WvEeDsJx6iP)MpoU}*npBg#lwdWoiq5=S-~@*s^sjk3D(PL zC`uBpo1N;luRY@y|4)%7IT& z@#3<&2)P9XOD}3mI5-HaCnjvLtU!3u%HrJoE$VJ6dXCr6E1R+bWj@adX-_5iPuPL& zzGh%yFu->5J#O5Tw87+`AW^C?`f$6#b_*2VE^;rgbR!=bdZuIr;i1Dcj&@+-?H)rkv`Mc-Zr_cH^SAq`MO$TSfa059KX)-K)$4k9HU zG=xo02yafs#C*^0^J=Nun8DB$#esXH+GnTEcV5RM;)`fCk(8kkBkWqGuR<{{j*XTI zj8eF+6o#+=!i9@7v$JX?to!#KJh-)STM-j)El5YmO@~}gGcHMb7QMfwW^@)EGx!wQ8+lhV1X_bCp7A3DOsn+lhlNNG_qFC?eI^ zw<}_b0E?%BMLE3gZg&XrrS$^a8)8RjvPA5cjX(!gR&eT~DYJ{X;V7lTb#vM}$W@i8 zM&p;f1+7YN?=IFdxiUGO9Uz2v#mBk_bGhg!4BG?VRh??MPS26+v8P6!_fm}Rs}o|O z%?ZTp54oV#YI4+qXWVi?(10`?7AonP;5?(}fW@_3=_pkj)k$T$Q=D%vRkMBd?tvj8 zE9<+b3CI-Xs6xg_UFhH&`}aw)_{>&+JRDpb%-}k3{&19X;O+37ECb$UaI%*3hC{}` zL5PjOcFKnE)7S*3xCeR*zu!&t7HA(<7Hwhvsowriu$`Fhx7_I|uRwUFI9{!+bwX9V1#U&GScsRDVFkvz9YuB!UR;P64Y zC_R)W1$Xz@qalxb4-5?Y^gcC8Xhk6G_#tfpaIc@sj0e#q zP)tbow+`>(1mL{eFhG(@!s5P9yx^71dYx;kr2>TSuNM0%J-y|g;r`yiTJN!uffL7% znV29wM1E>a@Q!FrV|u`F|9U^LJ$?Wwp3FAGCIbB(DM>LzO|j&y!q_A7j(ApqhR|0w zI9&)n3?js&;N$IDGLGH z+I@L)rc@UjSn()q2$=1~S?ScbeNY7i(#6=2>YKvh?QZ=N#rO+N+n#y@UB;e@jQVGF4i-M!~Qh zup9L$jTfCr0<j2Zt{ct+_OAM1YpL9vFEq7vgbjX=WKDx?4AdgBae_lI z!y{Jzy?gK$g%L5BlkJv_@X%h8{0=on?K3D0Kcv4(Bu5JY9?wD(=x%B-^zPgVt-&=i z?mxcGcTjX~!4x7T;tbyIw<&3lJDwckOmt!g?0yVCnn#3%sq&uq+l@t_kCYpqfZZ?+ zUH!WQoCz5J<}8^DgzOJhVi zYQVce;}xBcLGGob7=mKym7VNaV94=q8ieVWX+|F#AN|4GZ!aw^TwcF8F*ag16T{1V zzjX1u1e2i-%;7c|Us_sRSy_Rl9#py6+t=$>fnaa4>oj2jAOmxZ9rwO<`_AU(Rv`J- z^B2!wy?Xfuo>N_@=vz-@PM<$|^myyZbKL&nqsMMZH#ctGzW?yi)$2E~cg+0W{Rgi; z{^Vc$@$diqFaL@%^XX?_UAlBd2=My#CwK4OXN*Db*Vh5QO+|T!hZh&)tOOJM3<3%S zOfyE^#Eu+kh~b9`x3^upa^>`?m7=}uhllhM(F5Vk>T0*DrNJSSU9Adur<0S@wR4=F zwwuOK3b{D8bp_M|1S?BMqij_oy?u&|h%p+MS#*g1%gd+a7U)rSHrHkWic^HFK`zC}_i%e_hYuKbXB}GPBBR%0 zl%BfqkjCEr2r~&={ixwi{7cWfSgY!s=%nMXzGs z!1+`A`+3BdM8@_;8;&B2`zcuCQIyy$xv5x`0ft*;!w?&vD12_)fNhdhFu9(Y)NW2^1^L^}QIVQm6Z&^WkU^%0Vx63jUq zlN5udCNYlS2um?y%N33IGWt7$cZa57U4>G0Xtcf3-`?8~(!2WVrNNOxeWU7boJf?| zjuMZY6)E46Xd_pyKau|KNkSnPgJoh24?JB7K_ve3w)WbWfypUwUFU zh)$9L@&1FUdyyo^8bl}xqk@vVW`3ApQqm6ajanl)S*qjK8i9})x<1pDoJSSNrzTI0&fN=P*3iJ*v-uZZrW$~SD+ZImF zQzu~5gZuaUDrJ+}`p{kM<{3D3N?A}++&w!>`lcZm|3*G;bNcidx1fy50a2;$0#&v> z58&soUcJH0VLK8Ifp3yukng+q9Jut>)>D({`STaNx4--69{=@k|JjQdAJg7RF7y}H zHis>bOvFl3IfD452~hS19s&!K^e=T3^)=1GI6Md1+NLEH+tiO}6O$9DH9RL7t*o3T??^E)bLy2KYs?y?V(a9>QkfO0 zR-c#Qt!mCU=xZbgQ3G&$(JajX{yP~&e!$nLSGMLhlB!da^!7+t4-V#XIds|(WinBz zXVk)WacDTj_wSKQ1+aXKY9s0GxCAS#tz!5Y%=XENaox3O?+QpsC;%DtqL&5`=sA$6 z?%+|x$Sj5-$lU~!vptVBvgv55#u%1HD@ENF>0ZaA3-e5}^@g{W^E0hD*m>8x+HIjA zwHjrro{7(U1<&!%4w|8THaqlbA#l}?PoWaSrUSAO2Ck%qsk!3^NZKq-gJsvwnnT%! zcJkm962Ut)$=)`k82_Njlj6;_l=tqkG$hl^DrC}`4qPtX`Miq`b|OIQ>7l9>OZrX> zr%pxd?C{vJ!I2R*;McD|Rw;4g+BK~vjb|!Kx!5Bnm1(lI<>{4ER>Pc(fHs@^_c1N- zAWcnNWM~*bn9u#P*64ge4KGUdq1dNZ} zQOO?SO?n^_UP*TG(vEb9C9+r==?R0nmK8h6J>ab*Gut(`EtykB$e~oos0VZd)s$MhW9<3yOk_WS_#o|`>3n$ZtyJb0 z=_oA#!vV=39qWt`TPFg^AOQ{Z=CKj* ze*XtQC}cbFaD4IZ-FuMQSHS={Iy&^5zxWGEiG1TSrm_f!mS8)+inYqe$?b z_RnDZmtXzl(Zj8qH|*T;=<(*$CtJ^N-@YT?D)%a0rq5&S&eMYn3yU(6v$HmDS~zp& zjC3$y7aEB|;d3_2zFu}<>B>5l59sqfJ3H-H06(8>5^Z+VI>;c3>dL)Uok=90SQwEy zL>kYtx`pU1XId1!MyDE8<8f4~(rkiywMkN^uy@o32ELJ~USD2VTpAf4=lj$rjeFmN z9)a+lG(CI59gaJNx-)qF;=KP*Wk1OoKe}% zj5a?C#u0-=x)kM&BiiH!Lr&>&D#e%%mX)}lsP1?);*==%(N)Gs!`qzzcn@M921|;K z{W3!8#A^&rUU$dT*yzISw6St>?u2waZ)l)mbJGvEy+eR8bvSjswMsvsrU1$;r))DC zLUpc4B2_eeAO+|!zh}>f@4pu_Ckn43FX=#`Vk()-&dYwS6vOIOp$jM<*OqXuIXKu7}|4i0*$ACC)U@D`+|7G#B0*h!G>gV zw#!JSy=#$OkbLOwi5gXVf;G2lzbeODw}~qDP7F9?yXi*76g3D>v9T41Z=G(lpE7P! z_Na~|)9tnE&{P-NZ?O$LC6IFnNJz;TC%zlHaB+B@&S{N&O1@NQo? zImHDC&XI(TVgV>^xVjt&NraiqW9F17GWx>=>_>nL?qP8F7Q$U-WO|TH6jDq=oZJ$Q zuy&amI*i*|V!qog(zD6u)uT5~J76 zy?gg%b$P$?`MjAdP!aDU?PiuQ&uZn+EX8!O23@(lu6)IhL5P9pla@6zvolhqly>9O zdXXopro4S%5F=r;=p{Igj_Onl0hk&%(gE_YM@C1ijO;I#0euBEH>08e?bByh*+CgW z;W`#ceUc!f>!1wtHtI*aAUyMT8hEj~s@L zM;n{;X)@#?xtZr<`b2n?dFfAlCKE7#J@F*R9m1w)KjvEWnh^NN2DZlLj4T&T28XrY zNWjUZKdizd;C*!L&6_uW{l`B(*?h2c@&RBTEbO`uECEj}5bT z4x6grh^WrbU~XE9G@BS18Z!L6W!iLzIo4cEgd!J?jVEIdBlrvhQ8`ST3o(v{R%J@? z9AcQnkz?JpCu&imh{>l!9eqQ1qt=4H6>FavoIrYe29u9{u|Z{nosN^PrC71v?@1Tm z&dyvvzP*Trc$3~pH&971NQXr(Y(=K39o|(34j7QZ>{y5GYM+6 zZy)QU74yl{r>xq1mDO_3xpQZJ_RC)(>JpAoKKkIno!hrRdGluV>=|SG=FJ;le)Z+* znKL+v*!J$-yPtpl<^B5)Ha0f=$_9})(Cb^buV25Ry}-uC9rvF+d8#_;$+H*s)C*Dl zwzAZRtTMdrJTt7tSFhV;kI;Vm^3^N;Oslc2Cr=UkhmW?9|Ifbs`uWS(3^wXmWmNs) zy3RA+?$+&Fw>PNmJTq1ep2m}Nb3gvc&(57&)hwNz&>2!=9Oi&tLJdjBCvLzC=hrM! zq7NmI6}3o%L&6dbb5s%%W4ntb=Z=JQX=UHmacpAp^x1QhGqYrr*^?*53D6s(9vB?v z*C$R<)a@+7y3cLn7HCh;&d^dQ`9d8n7d!&|Ip%FFBDbo?g0^V{&9o7{J2Ft3ED&wF zb(1p6)n)b9or!qCxmkWH)ry=MR42cLtPvVG?N|UV=x)emVS78Sf{m97UBmT0!6tu; z36D=7*t16-bK}+x!_5=$>WK9YhwoR-jIQcNn8Z5<4x&R&=VOG`-+??$FYp}tBuQ9U znj$=n1(gYSX9^Is?%8d=<5Z>|i-MB5qLxuT1;=o`wtRAKa%{wL;`n4uZWWL1u`zTn z#yf6h92{IbzlQ1k*`IyyL$#UGObVZmG^pRRf2eu{P0~yV5(g>%Z5>m0@78+TM8t?3 zrVI_ogyc?hw*DDZ3J6BT8Y)eS@I+9;P9d5?l#9iZj%|nStSf0=EXi@`7tQ59GCnap zI{tWb^S8hH#Wz3w(XDHj&~mPr#ghvsZH6dN)cdh$7&yOl4VZY?L*S0lD^58s>iCebhpk8(azbXBps@UXe@Gz z;w0kyF21&1d+aHc9xejKCPW**+NpL-dtQC1j)U`|r8SZfxEm=gYAjb{3_tWV@=l?!Ho0UxGpH(DvxVepHUu^NSpk`wuikhvo(Z zL*Y`i<(Ixe50pId#KZQ8i88juF@Q_DQ5_Od$n-Y1SPSSkIyFX}v@+jHjV9AttCzq=niT?2fc9{c+USQT&h)z z@~Vb6zY*Glw_xmG(NOkH87&ap!U4Hcg6?+Pwr}wqqYx@4OQ(b>VjgT9TpM3B7YDis zLu0Xx5#@S?W-dY$6Iy+or+11sOLZ8YNzX}UkXy=$Ti=xrWzJd|Ew?dm1y@OiE4j7Y zYez5t%gydN;K~{inhZ?$y6!XE5LzP^N}Qrj#f--7WouXD=Q~YhJy2XJdnD5M4jNws!Zu1lNGns>T+cw?5cMqhmuY-9^|AISS0Vq@5uUzpeH&|aBlBAk=C_Xi> z&#kSUU0r2_^sKZ?FvRvx+&=z!{f7EhnoKMQI@Mgdys)@vMY!yBi98!BVLj~{O!V7d z|M_3O`SkP8KL7Ik`SYmwpxVIRUYne<;5OMLPatoR6Zp{Ewan#V%VxXsg_AJ(#H_DE zJrb%+J3*dJOU(r&Jy+K*tX{Zua(U&1tpLxinj)~eSnaFy^=tpF#U(yZsvTvLpPGX9 zLYL{;S-MJ8KnV;IDvqU3pP<7mFD{=Fi7YHFlW356dqbQ|m^|L-)hIS>kqW*j@L(S7 z_YX#PmDw*M&9w5m#oiD^(MHA#4#Q}~Y^20?V~6{zCEK=10R`cu#js}W-Mct9D<5t! zQ$JA(B8;f*2z@?s>v+MpZDG=35nQ&dkBn2%_o z7`vqhnwVuti|^LNH*&x^$`kdLddfZIvJRf{^XJZ7I=?o-q0WLkt8{L)e_+5Syb<2& z&a~SetWo%B3pSj^v`S@7rxBI_o}5HxiFp?dZIG&6#2NdiMbH}#$!PI}_^JJLwc!Km z9*Wl9eE^owPTKA7w*{*0DiHa?fY2-!&|aH94i1lQZ9V?t)7L-$`ty&UKW5ICh}T1s zeG!bymX?5GA#bTwqr_|m%CYomSI8I$vy%-42BbFde8Q1Kx`33b5Y@-QdogMj5Aix% zqdq0(H>nuZ!`_I?+qI#i(s$Al7$75vd7lzSFoW~fs*vc(^^%WPau)%6_X-3Vsc#2t z=b6cc2vp>9m#m;+gw)gAk=Jt|UjpgY4mC=xwwmcGYKD>PDw8BTGc?9>HdpN`NZ;2; zH1?||&UDzeuR|-mXcXg(zznsYxF0p48a@NGg9oAikk+!LB5ZdqL?Ue_4>TO*oj=-a zQP9JXX3}Mg?bx!uOEPeaq%R=zLg#@Q*zOZg^0>-l&7KNH}N(=|%zy=@DU-pCpQn z_}Bda_C$oI4+-eZEO%tGd_aE=z#ZlnRQIjA1^)I*3A7I*d!Tyg?UrzF6JQ?(QNM84 z{Uk;pOzuG_v^nv8mlCFdNQhkrhKIiS-Cy3gbyIQWU>%_>fA;B{SFb;o1bn>p^!COb z(ua0=moHzweR~7WLsWQu6-Fn3A4DD0uCL?jDU8E^2oGyXCF_@=@3qutPEJAN(fiHK zt=HeuzCOFpbSehy#2M^emcnuN+_`1$nrL@_YH2x=tx9WEc+qWaN+JaCl3tG&-U&k< zO9E*~L;G@X^v{9q5~d6Q#bVMCU`N4olpGnnfd^Gf*Rr>*+ zD!hEV=xS&hAMFwh0(RP?H3gg1%NBG)cq0>O@6K@#<`~_LKt$HCgzc8JgzE+^0qK6w zo2XGDzhLKrDCC;sbY~>q0eX5LjN5-LLj5FbA1(eGY!?#!h~#_X@xv&CRt6!hgIEW2 zO-O!ll2lz!^fcFNw^8RKgxHcuOo7aLL?r71-VUylTfsP-Pd3U7{W$udIt()yo`f*b z9XOg)Bwi?=(HqlqJYpR|!UXYD7t-J0K)t7@pcb1Ce)GwbXRlt4jg5L-fA7yffAhz` z`D^+)*pb&Gr_asJq2H|IDg9R2p>S_;aq--_a~_1`Kz?NzXfX+&Lc+=GSFT)T_MqXT z;$(d5g3(Ta2k-Fu&YiowG0&gBbi91=D(<{^{o>`v&tJTHM2)|7n@aE2QW7_w9Z|rB zawKZJbI?Zk?!Eh-;LV{r(oUz*3WTR#_7;ynw|2q8q*IMse3$^vh-f#EV-pix89YA^ z9zM8m@#4yN9fJXBR8-x6z=$60;=6m!uC9Ij=@-~FL8e3HMo$mO9T*;|4-MOKGm|R_ zAgnRxF04;`S-3wlyJ{u7cnPG#h^l=dxQ>Q~i0ZU-f(-55;l3pRt9Lk`v11cL13Z0f zd`z~KATSo&0uDM2x0IP<@_M=yT9c-xIDd*g1<|F;Dh?%)(_0`Xs3gl6-oy|-W24&K z#tOuqnQUjZw~C`vgI7*137TOF3TsxHCc;(BlOkjJ5ArK!Ja7P7BJ(0UX&Ww?Hjp4N zMl_om*;))Iph|lQohO+->23Om2P1GmH;vKg!grYXteeenz26q0)EGObkLa*VdmkII zz01thu_^1#p!Vi9`-+~wux1bfcGV(?x501VCxNhLAeu8bn-r-8`qo=-iJ3h|;2e*< z``(TZwwta|X5yg_Km6ejH3@kSwC;D(Y^ zK?rW&zV++h{PGt+{n4*}{`F8Tnz0+<`UZe^9F^*l&8Wtz0Bw(;?$I)|rxaZ* z?ZteT6@`zQR4cpOX)7581*CGNVbaUDCjK^4VmKOShI9o&iC*X`HbyNq1?2S z$zl_-&a6@g`1}6*?+H~z7e=4!ZkhJ^xfua?xCl@h8Fm>o)cwfeGz$sdsejU`LRYiE zAonZCPa}c0VI~pPy&H*Csyi_~Vd)CJ{4_O6s+@x1kom9CPp^?HzR8Oxh{mZM-QA4F3~sx4!rkp5{|{hGp7=9zndt z)&2wl^DGk&*+Sbx)N4}S8^b>CIIS>6vdivgX?20c$G8*B_n<#DZA0VhXeSsjeYLi= zTA5%PV85__u~I3Yn4SLF&wlz3|KtBa{|;~ViFt7=Z@^U2w@{uGo`V_<)lbaLK^ywW zqeq)OlQfy1fAg!~|Fb_3#_g8@Gr`f&$S7V4&9KmU?YivBw0buEt@VO1o~{@7;)h2) z+%Lc!s=IR`*=R!iC!`=74?z6;wm-YA=f?JZaV8bHqwj2e~36SPM}MRv)I z)Sw8eNjlPP4Y?-l9lcL8r%;_0&3!c5?D-Dx)keuB9UvDL@&f*R*`AEt3#~2sK+)fN`X9hmrl zK^B#B#-wwnOFQ4B@h_Q$#gV{ng_Q9iHzim_evtNPYbThKrM-45+1wV@SZY`sT!AFD zs@^tqV5mTKw?+u-acLNemJ8Z!{4RP+dVj^bO^{((^eK}{RSFWQvM3=hn0dE7Z@M&f zu?-*9rIURqXnb2c$Wqm1Z};HyZ5>*;7lE*Fzyhmk)d~X4To{))uBqJyI@`6>tk-JM z&c1`>(q+8@Q4u}R3hl?DGiq7Gw30J{?cKT`bmXLE;yjf&9c-x4-g|o+{c%?w@!j@z z>^JSY`Ko=f#yX7-_Yj$ac4NsA5o?0&rUQ`oT-)CSk|XNU^wQF-rAdOC!;6to+8IBMrVv zmQd;;R0qy587~|AwOK4HzD+lJgL#1a%dN zRdwAdSTlLFO9ZPzzMK8iw}Jd~;lTE2W)S^=VzUE{zKyiCwX+INF@5pH?Ck9C|L`}| zn7(=+ndQ?@KKT#-`+vG{@qD4DfVWRgO&9zarnYo!X$3>$qtVp8T&@JX&!2?EpMLtq zFG%yh{_X46Z;0s(En+Kf?b!Bo^&CKF0wIPBa3SdQuHxzJXJ=48(ES=&CJ}0G z-GA^PR*G9U%}wb3@R20&11Z;dp%uGe%yKIF=1?TsIQRv=3SAel>l1UtUcla^<9)5h zz6ik2ojXs?;S|dha?7Vz?mc)Q4SMSInQN-0u3SBTX`KQSWL|^HT1|&Z9`*P7uS`5*cPqc3hQeW2Y0{F&n`z!x^?4<1vZ6X9SE0n?C{Uf$H|WHh?36tAZ(- z*oX^cds)C*R0Z171=~or{L8c{3T+Z!j12Z`GQ&R7S1HX*P4JmaADs-;5^=(3R zYPq0CY(z0iQW?JE*h&e`A3ch!$L`XU6Y>S&y}6lw?|!%BAv_OvXj0R(dk+9Z8#N~} z+fnpXgs~@x?_RO`|I5>T#z>lF>0t(TX1c4(ceyN=WwX+o$S@fh8R@;RO7E&ND=W); z+f{9A4IT94YYe#oZj zAat}Eur>vjZm37MGo8(?9SWC7^xT2-%m?*X*BYYM=~Jq)TzxPl5meD2mTOUYdOK84 zF@#!z465$;z(S8DQTV*zyE)@X8f44YHi)rm!96-Url+$7Rjr5#SH(9C0q|QP6$T!_ z^alnR6ve&hx}hkYAmIJ1Qhl0?TZxyTI?}SDs7WRyj^SN=IRG_)9dXzf#6Wu@?%lzI zDH>BvMn8s*2WSfm8?yYlz;ONBti;yRmN7hPF3IATfOMf+>A%NR9yKFas+F_tOLnI_6cCO16>5t?DH>v@WUTozrNMm+XHrF zl&Sl(kc-t1y}xto?()hy#XDQ*Ks(V|P$pD}irA zz8=ORBm}Na?8%wQtJ_;0<0%FB;T zJuzA?7BIby)#aI~iBW45c6UMb`*&~6U!L`Y+IyHJ2K`}P#_5w%|Bxb+MaBgdX2}Bw zAR=B-8mTMD5AYAVVvNK56DJ6#rW@p^!bA89ynDpj^hpblmkh6^63v`QP#awbg>f%en-sbI?q^frYL6dwcjM#k2wr z4a#LREyL>}&;zhbHN}D%q@`b@=>*%Qb-Gk(1tE*8g!)xcQRpf*^fQ=k8>-gfv8B0P z(+kl|eL!FDPv7$!OtpTFrZXjbq?%P(9Kx z4<2l6Y<%|gVQWi0rOXuYMGD63<(bY`(zb5dD5tEo zXnfI&UZK+WB~6AT!$*MaDV;_}%>a|fc2EHryROL42o6t{LF2)DlccnqLc-_|FFw`W z)&f<~7=Wi($>S{y=O)IcVT90&k z0m@XM>IvNtwnO-oW*^1iW*=D}+{y12`PC3|ZgyHk6=?^mG>&16AvzJ~1$s8tSFBjk z)6-2MKXfp%=(!Y&WYAC|xK&O2Oi z?mdJLkmro2q80D@7B!wXLJ3cd?>v(_GNOmiC}8Ia-@bkG$3OY;#~;1v>*?mVN*7{n z!L><6$wBx9?sz(s(fAMEXz8wO#;%}xh!d%)Zj;`Ns+{CNdbM5+Wtdi^U7k#|Jv^zA zqbsZ}e02AUOb61!B_e$b%5CvRnJsci8|qy39O@3$)aA&8Ox6iSJi~MECIyjhr?obEJ$ibLWzdVC_ZMcd8w5+IQm*xw}l#0+eBJ#sLK$72<&VMDPG>Y zwS2A3L7Atw%f_J}5XndZoIWQD&I~i183qOh*u>-2XSD2bjV{*8fxKYT^zF#WQ(mW9 zSE~Q0HnDJe^*Oee)G$3YEeBW!V#y8ltr>7CwcIU(?d~rnkjXYmNh+v97_HRWogtKn z1=zjlx$_Y-W?Q2uI8|r!D`l>jDTai(fWROCE`+^-KEq$wRLqpRo;LnxNHOu2hGgd) zg}!PTq+N3gMJx3UP2z5HlHDbIJ_>U+S!R!FE-^ZX4hLUH%z-wrjrphd;TTyWa#At)~E*RMv|y%1XTZ@QE@IAA^MO6Os!yMmOE@ zaikrS9~m9df=2jEv815k?99y4;-bejpIl!j!653o2VA|n4$-HkCgl^_j z+$%PW-H9RXavQ~1JqO@Wo5oI?3fcUMOv{So1KD9#@U%nvyLS^TyFj;h8R}_BaoRt)z#PQ(oD@? zkr1b*Lx(Y+u`ByJWp`=W0$#lVV|U=4st4QwdlKFWGWH|UA#^^bB&u*4>v4XuDryXb zPrN-=!LDFC$_>1T9?THp6w+uyKde=H3^^kjucUm)u8zE1O^-cYMGE}&O^L9pQkWj#7?X4u|D>YAR@3G!o&Gp z@5VA`ynSyu9+#7w%-Mm(WD}y8*oKU$Y%cHOFE1~A_q$(y_2qZ^y1UpBK`y@=8ao14 z8)eRXcmH4-L{T{u6)FYlnPYSvs+)irMbMVaYtg+wOLvkg6U$p4R^bBVQT8Y)jq?34 z*S;iL6813BV;&PBOB){9Gnl-h*LFEazQyy1>fw-=4iUhBHuQ#YiM_jV%8djZ+U*T5 zfTC3WlP4u+FpQin5GEFB@aVA_cusF8`&0s^9*ONXyj=?#1**->c?vv`|N4_P4LXLw zzXXM+#B^L4_iJ(@Qg{JpZ4Qga~ zl>5r_#oMij-I6U(wqZN_&V7T4h(-)j;Z$8uPoLt$R95Vwy+@;%YIQ);_hU^W$um-c z4X)@7X1OIsG|?Eu0JMTf+#0r1QMh@hg(=RQMXTvs$N@;N@MH_Nq7W2yZ7CF+0Cv4Y zmA7H<;2m+*uY%cfkno>AuVE|>jw-H`Ew^Y)Pca2g8?OBgcvF z$u|}xvMc7Je?T5ZpQIZ{YYd0Yj(LBA7ZMQwU37?|mo5SR!?)R~F{4%wJhpPzk#% zeI2~Zle}|J?DPR?U0l|qBHEO|b4$e5@sn;G_~zy{LX9}W+}s?)vAVkA(NAk)N#*fa zj#y|n)t~;4=L^wd`9`dRhrQk1JtU#4SFec?K=m9T=;-Jh9N+~o2h<*tjJH&vGE_Ek zTk;I{-ajyiod@lY9!dpZE_fOud%4_I?ot4YE)vGQ;!@aT@S&0b4}%YJ};%152YzBsU?lHyY|tqe9-wo;9GG=L_B;IYA~g z83-#AGSX4#!Uy5I$;E>f=s|UbR+C;~4^0J(y}xICXketjXL4k4VRlNc`{uRv&CLxr zoyt!htrP$nF!3H%a>3#oBvneYM* zy)TYt+x6ZqaKQqSO6;@3=)@K}iyb}P-KGFKqYwfs|KR1b&)$Bl%8%!3`l$8+;1)mS z%|HWuk3~SNfimI_Pl34!C`N^-!*Yv&}CCsl^AkOPVNOKy_WWN!_j zvD443g-(sO6I4*>o1;e7V+=(?nR3nth99I|M_*h$dOuzQ<1HGVfppG7TbpjNkq^%c zu?mp9o^u!LIhxL;HBzl1Bg^05 z43Lb4M0r4wLSUfsQh;hOkXX$?*|PF5fhzehE}QUqj~83m*ZrTqV!=jNlI4s3_%gmz-P zU@KWI{ow{iESK2vbBi5-Wd@vz-Jo3UZY&_L1b%19Gs=4j`#)N*-P zQEKu0`LhT2@0+-4+V9-H{U80wfAaVK!QcPq|NX!E(T{&RG&BUh#5+*O(Xlbw1ysa( zpFWLnB*u=zEAG(jiY~1NM>`bZ(Lrl7l~wa8x*yV-b_y?taZAh7SLPO1Rz2eFzzspw z|JI+xkbtjJC(=GPK8B40La?q00Mb6EEzI(A^e(U<>)0qketCImdV11)hpQr+a?WYp zLaM8)%TOJL6X!8=0y}2Tv!Kt*v;^r%@L`K+ISUG-mX>v`TyaK#U0jvC;}h%aYYPiJ zmqpv$+-1{nXlT$Y_Ordcjm%SDg z=~{I;XL^hL95%!AxO&B~w5^tD=<4d}?TM-xzK=C)lpD}p+T*sN3F7b2fGVOHQ(8QS zJ1BKcSj}pQ*t#HDWf3t`&Vmuuit;i|4FpDjQto7(yAZZ)Yo@uORRgHL;mMb8zdJZF zS?VeCVHK{!GDcd%PJpcsnu-)sZ5v9QpvT8u7SWs6=R9D&^ zdV3_v!1lwadn_aIKDHI`j&+z^1}d>4mX_6Ls-=k|*;_6d1%2J6q2BVH?ah~uAM9*y zTwSBRk28|$h1=R%EUt%>qeH>H_b0tQ^4o)YS^ucw(Kz(|`}cEI0K3FZ8(Tz#hXAG( zu1;DK&? z3@M)P@woKMQ>W?m`n$xaD|g{9z}z{bJs68tNK{7)gGj3f=@33r9GfJ2wj#rby4(Y? zCn+efUD%Qn1KTfIKD(|_xR{>CxWjgI9l1q9B360$aI82(3BqtR@IBAGoWN~}gq4CfEYF;vNPG|ZTT<5-1t zqa0#-8g8_nkenIa&bWjrxseSvyS-!H3Aa00rw$~bIV!^0EaY;C5Kne-Zg!x*?{|LZ z8;(l3(C_{JAN=XBe)U)X$G`iB|Ky*&OiNT_sxmrA1Cqgn|E>Y_t?P1WvWcUDCQ1SU z${o=rrMtgRlM_Xq<(}?H1(}U%O;tJCnolCHP?5?JwLDW3Q`0(Qcx|2t) zZeFFEdu3^n7QO($6NSDkThbGfI9?5w$0nku?&9L|#s=a3hU62L#Rq^k0Otz`iLxgM zHvWv;BjWx*G221vf#m)PipOLg_Vs~N0PD%rSu6PL!}i8R`ce4ceEm`5?Lln10M%2Xqn+gQ0sgAq zdD`ODdE#?myOv~44ukWK?|BQn%O*Thbqr}XufU5;2-r?b&$KiU*|pc8^zuNP>T5Jz zM4O=;W>~Nef+QQ6!{>lkac=p>vk$-5KQ`4~C}4+(1fg5h2~q})GsL7H=pZLJn>t*X zDF&R)>&Bpw#tHzJNahg3r8A^d#>gD5k}6-}?XgZr#0UoPfX=P$o~{qoh5hwIA=s+h3%+c$SK-TLM`?;tx46(I9)r8|RP zyCR05*6xn$Lv_Z5ILUS%q&-a?mWoP%yC1NoL!?3O!`s1o?B|dio~Zb6RPv1-ELbqZ z(85qSdHshDn|Fmm9=Y!5$V<-rKsUSRPrJ({r{VfDH$LE7Xe7mo-X+8>0_PG{s5^vr z01hbrNna>NL_N{6Hl}K_^ zv&>eS3?R|+SfDCb=)=~zgGr1luYsdZ8s z04fWRbnPn$?3^4CLJ9vtm;>wO3J_RC{ymAfN2C!+eFp535TQDF7w{E#L*l(#;qAW5 z%O%~@18oV(1L2`M$J0EBS5S9TGqu>3Lzx${E@-P3VfAjDE zUqQ$9tD6rVJ-z?%$=&;puWoIRPfG0*7VM`u1>*$A!+O}psr3&Ik5A3aFRfaSnIeIK z13FbswB`B5WhvkCgar^O&#E<%c1#|8^SprG$nY?tZVZf$2`tiKCJ@hY#c1j@J`g@)4pA zXjs*f?$yJ?&W5$}mjsv|N5!T9YDoq%4?U*^`6rtN=Y81Vt>{i(wBhHDv$M0)iyFM( z-j37ORmQ`4+u`+0OiXY_9E0C=4BjiFf_eg{fGJS&UBJ%gEH5osm_i~lh~}NL6jX9n#*jAiX@;(g54^K`mppvu>pH=F zUPv&a<1zz*0J;a?gS3NpHbMlzi4$ximGe||^G5hRCHU}4 zNAP z@`$}_mnFxGYr?u#jP}KIVPR|(d!R|-VMHQm8~K)c!sw6;S)$^J3lbklz)qQ=$#iuM z=5y8^4!MT#PLpv|A^V&queF^zeg44vL4f6oXrjBC2p3J6_N2fxA?gnNLR|w+ zPKPHuUX(?nOj`W0p^+>PJT0M3@z4O+(tptMlw>8Aq?Oe^h_<_Xk`^VSW8m1Viw`vs z5+gT;X!0mMVzzE5qK=Vxg0%2 zdBS${ByipTBYvQyiWv^luD=JE5BHhrH4_cY_=E7tg?5exo591c^BMo(5?bAp%cPNr(!=L{2AODkI|JDEYf4+VDnbMkT*Kcg!yhBC-+AABIYuB!? zZfq{EZ&2kWqmNBY(ak0Bb@vTwsIq$X`s&p!qGXaD0y*W0+tlV@)Rmy2CzN*SG$0SG z$vTFUU>qs}aDVVHFLNR*Io~Qyg;J-5DnNK>9UjqRnzkH%`(s%M)U1P?7A6CR+sN|) z>{f0apO8l`)le)al1_$(IT4jK6>_&1=pjP9@;NyjqQIh}0-7S7crj8tIWfUa5HoFU zZxdcJ1|L3p`0CXwFiQ?%KC}zN%vBWleM-1FKs=$SIC9vIesj)%H{7;KWt3>+g4n>d zuQ+SJOUP=mOi!ndUtQ_cOweMQ{jGuGt#2miOm8#7SksBy3m2q@Bwl z*iMttqY!CUHDrFF8FmiJFx7lssXKm1#*OT4rJ56?^4!Z33h(Y*e`u|(?aiB8S8r`^ zy?Xf!)&JJJ@7RxwkN{`lC-mmD>Ll4U1rr*vr^47F%@#jq45j0nt2jIm@cU4mE@YzN z?Z}?!fU`D_AcL*qsyKJ^3&CQ)#NZ;!$jVX2j@b!ahIF)Zee3aq`;On_lhf`Nn8okB zy9-kX?`9cYBg7eoPx+)cFXMRbtb<_)+(h4SJ6%s#)s^J+xGjz9cJx&dSUg`B`AXH% zt&x_37)Qh-VY@(QU37F5|Bw~fZs7KGQPE1!UZJRFTiQ0LMJ8OhLI)43f|T@mq*hIj zwNpU_qk4iPBRvum)n|y?ZqJ-}03NxKgdh>sfOlXjx8)19EiG8O^$U^qYEb~~ zi`7rz!}J;EfMjD?!)%@)Bmv%rv}@wQi9y}z*b)|@y5v5OHUt>ifQiIDj5k0q-9-QK zI$IpBNGjHLqmdqZmQYdzH^qPqbc7$qf^|jRQV=8bcuG-}veS6Dbcr$}nkh3=NBqcs zX=r3|gaFidF{&+XS>!C6E6_~a)wSgcd=2X}`UX6v=U6+2&lm~wiAccrfcT*8kpKzX zjVNgDV*)f07N%z%*9XHm1^L{I$anXy0~6*&)LE`H?@|iT`E!X#q?YUrI>=QQV9}tq zMWvxWOIFegGn_p&HdwBD%OCynum9d3|It7D7yrZG`H%l>sDHR`aAa-?qTg6q-yEB| zJT^7Ews~Xw_We7Lo_V}+`~LRrdpGXhm;180b9?9BpcT93}YP)#G3-cj-c_C@=uROnjo)46i=dXNMhpphHZRe3Z?hR zzX1Dfda}2*OHUqmChvPOmo5%6~vSsaQ` z3jdCicYwTC9J~O5qoNK8s!A^PNG#G`z*kr|MuBw0D*^lJ5C}n@vuOCfR~nn}C3>WI z7K&#kVtr@fLv4^=JgSR~&KTm>iqpi&@Gu&?St?E@wT^JnC|CJXLm)In5bHmE)|v}T ztM^`g@(2ABtH;mPv9>$|ey%ivU<;>D8h6}s2#IP+Xr~4Fi=R)q2YfwT-Bb@$x0YN7 znJOF&hoX{{zW~xDI#b;%k~pQzru~a?p``GMxG5{ zIit$M+++kLYgJ?rI4rCcQ%q=K-#+lp48e9-4ARYYs4RPj^8y>a5^4;Bb@(t0XCNQ| zADT)wQsM#Z21LD@mQ$Xt{cJJB!jcvEEZFE32B| zS$?mcf`R3>lN$5PQcXjX?vK33x`t-5Oog%YYVZ{=vxN>p_)?OJJbn1DSLK=W7kBTs zO7(sQ+9>kqHi1Fp)@=gUOfxF$Cc;2N6m3tBr<7`X3%NBdJQ8psJR>naX(VxteEEn> z$l%OwQ`9I4!@_s=MHTG@i3s(c3k!gEbxg>4zC&U|tCa$a@?s%;z5|UXq_PCQPhw|S zSyvcs&&Ixp3~e8;F#HTWzsIC_*Kx!X|B1hN8LoR|6}ZnvCCgqb#f zBmXoSMQqGO18RJD2<6z^SbzEKi6-7?7=Rxd?6>yB=imLo_kaAeKl?BK(Vzb6&tJd! zX!H7w<+TktEg1XU(%Rhe`o!$q^2XNfhfkk=@bS{st@Z0S*SBwNDJOdN!SfG4d+_Xo zm8;u5gQG}iq&#*MJpynS!AygYvPalA|K!5>3?&EV4=eeH*u^3Y3>b$Fn0isaXpIsB z>Wfkodb&}2uNJJAR4x-h?24!|Ff?SG_=z!Mj&+@e2BjCG_u~`cCct^ircNT_voo_- zRDdR#eIzPjDKNAeA7Ev0ev*(!c|K!f3FL z1z|<79Em+ic)?O$ymP2IPM>dS>s;A<^5WCqZ!ZmBXlR<5n>9eFCEP)XEX;GX>X@0# zm;fS*0$i7g<_FOR69j?wVS;(RwIuef$_R-!U{DXV9RD&vOlB_5d#^l+b z(k3L6;o?R{EcWmwk!wuMlR+A2awzdhYAU2ZQtHjeRgppRY2Ji4ws9Y6}w33GU zW`2oAX3zxA(@dbcy$Y~fuCQ4Lm`jZjyN-H#{zP<@1Sc{jj1HfN;gB4vOAGc2^p>B-e?@g=?4ad-C4Q*33CMfYS>gQodg+&TCDJa%ePMB>r(ep!5(Xxi z>=v}OWiYc_N=xqEH{~EX^_-$kgsE$3vw~l}k;xO4M%df}wj@R}inKWyDS*AUp+Q`g zlaZ7mk;+#1tCRmB`Uap3zimH>2Ku?PZWaJHK0~N*GN~LZJgC%htD@By2F3#-99mrJ zrxE$(t`tNKdK{T8HfJu;g$`s3T&EOi8bkTV@QD9sO`iyQsi-BkL$iFLgHR)&Ae_oB zxZ<2t4kFM-{_P8m&t-Fx;NRV~JATgKI&`?A!+`Q&4-AYGNQ$B1=`%*DVHgDusnP`Q z8x06mczEbpb%eUOfs>;nhF>AuuBF$;>I%N`_`!pXmF4x7#Sfl8+uppYs&#RB>3hHX zvmgG{x}$&R!;jx;GrOz^XM0C`m-*$j$1gqv;F~w^Z*1RQ-MnGDcJtn~oAv)RY;3>5oAauKweoUX3l)G)sWm_@HmA1 zqUt-!|0BAZFXUme{1z&!@F<`o!sFqLkxgoo!~1P;(`93Bz~DX1B4w1F+NR|X8poj(tq40&_g z>{VictAmSrJS0d73zi?5-Fo!qXZfySj_|@H5G=@i0q+po zk9Y*^#y+%*POcP2e)5a664VWC>@mhzGVQkTIpJTsGbWGyod*#)7dI zDM}CkfKrJm+Z!ao?NfDCzZJ#$y2}h3#^?IS8bb{Yu$|xS>Pa?YdHFufjXM<*!P#mB z!?2xojx+|gm`w#3;T8!ehPsuWY7o|@R{(5Bn=v&yz4RCx*~aFd4fQSZVr8|JOTE42 z{$hcuR^tEF*S6JJTdXw?!*!*C7e_7URLP1we2jVVIyA=5#Rcj4Fuby*T%kyYH%?r( zqrvJiUofJM-r#_7tyuRu?flE-~8sgd)=9|x@#`e zZVHPolWHwjVD496xODjBX?Zfu?b!hBBx1-NmuMpZSxK9L|4y1p<9Lzw8lC4Gn<0zT zfn6atkvT|m@t=@r_D5I$q+T2|Rw)&RD1@&7yZd06xjW$9{T2V9ei#YC+XGFboeXFN z=^D5g`G!z}cl4ZLsmI;Lf2C!@c2YY*MluX+7fYpwWeaF(gsYqv=mYrX#vWOkGPsUv zt}9pSqH1FTPgZhgM~BJhT|eO$4P)>wg+7J)gWf~+3V%;fZ^(r^!3^N+#xU>CsWGv^ zR-BcdQIVY1WK0@|Uw!d~Y{L6@ZtD=mjYol=J$`s|dkb~l-r4#1^Dn>mv)_C1=9Am^ z9^SZpZ+&xz*rGoF?&IeleEQYS{inAcy}JM6wc!&8Ww(1A!Shy2i-R03BWV|RCtaHqUQ)>)X_Jp|em61?3L zMw`aoSt_wzk^Rykp3(~2*>LRL9cGfie!dW$Uc6P=;J-Z}|K1W`?(QX2^;D7@?W#|T zDD6cgw!aVmr^)*vKS#Tw|Aa-;)_{OtuntZzc7T9MhYBc!ibXX1&Vw}tekOc0$guvv;UW{ruq`kXKA(WKP^59Uvg+H|HFn@qK>+*H> zBcahG+`m7xjE=0&6F24yt^ zUOdI~Ipb!+3Bj-9Rl9e;XU`7X&N1s==nty?68 z_(H_3B8yDz6+u)YM!b@C#S}Vs6yA4P3NcacvnwF!LZ1XJD{tSrF*P~H2Z6ROj=NwZ z7VUa(7yKb}xkzBtl&{D#3D-e8T`KSg2b0=Z!5mkcqg@HG3JwcCu)?GmXpCBU^+w(4GaktRaNa8-0E8N^uq>=ly5TY0B$>KMmDXV`%~=6X$_%g3FVJ2zS>*}u zJz(*;Q&xjIecU?iXNP)wry?zFNUbK}WpaA9P%58fKF(RFwOMc&Um}!SK{dRJ<_v_a zma2Iv*4q}i^f9N-vC&c{de65Cr@pU**oB4ZvfYiT3cS0sZX}joq3-S~G7<(iC`#n? z+9()8|1k!*Z$c{APpWid^9{tK(H%58F&<^uXp^ealv!yYgToU-{U6j*X7IeGW)RmR z0Wx0{U2{Wn9i7|?k`3HueL%E=5MHm|mFRl}#xfa#8A;g$-kUnfU=D=zY0UGIOZj#Vab0dhNXL^l1$a>*g({c#q9By8v z4cxqa`^z8y{PF8g?mm6>^!3~AI}hiUuP$G`e&_M?JC9#(-+g@R;mg~PKe+e&qld5F zzWDUJPhP)WSiOpOW;;skDQ(1I(=l-A7<#;w1nH3l8p?YQXRWtiisO{_DNtR$jjYIC zMfVevmbCCll(Te2EL}D=?GfNp=4s$0d)b8e_T(f{WzyiG;{)@7p;6!L?HkPIixZRT z{ilYY-sSWm6D8)B#6Z=^&*HmHuxN=Ij- znQ@rkEE^P+l+cjR34eMen#7a{_3ct_z&^i#6UIkEDv1FpqtCcefPa7%C+A%X7hspg#eL3X$}8&+p1t|S z?9#2XH7%oKlcN*kkjJpr(ibH*FQUm6vL@J{Ji&l0=?Bq>jB`$#)%62|i3Ya0Tzjch zl+i?bl16g*@-$P1QCG}FDos76fi?cYm7sPzNc*fDp)u{ZOgv`IcRNePp6;^lTZ%M= zghmJZW#?YMw*JxUmzKkLaQnvQ#_FBhJJVC+_?20$#9C8sVL#%J5Df#P9~y#(qswaumsz=$r4tSxQS*<| ziykmT)OEBQIB@+XCJppi;-I{-u|l6oNTLaRBp2BaLt}9}wKFC=+XyRI+1~EHT(&?TB5<@c z8DxcaOCx2wrE02^u-ZwswNQQ1kyvWnwdb>7g3+(W7^u`kg;ICUI;Yj?%%n+&N@G(N z3O@)z)v@4Dz`LX#A`@V5YG{`&Bho@K)ijJFYn?u!jk|YsSAA+?T3?T1A9=5b1?5k- zx3#XXEWLgENpElOo`Z*^h;yzNmRHZ$H5{lqPNl+CDBFS}$RV6W*KIO4DIo%^5kP2Z zJ$I?@M9SHbl)@2tZ_gf=*A~E@WEp^r>!z%duO)Yv*j9mbqt{(_sVQlAJJTQTTcoX? zG%y(na|gQs_x3|h!IuH7TNWK;q`TAJQ>m%vCr?+qJbW735pVz#Kt6?51yWm&k&O22 z6&e)`qn-$XI6QKX6i|4`^Y?iol~eFDNITc)YivJ8fHC4C9ZND3UJu+IhJ!&)V0&a^ zDn(R(SZ4}a1Jv5qXuBG>S}j%G7*mo5h<+&y#$p=;KqD=dUcU@i@7x3IB!eQo_3vx4@c%d?lS&}XJKG)Rf=kXcf)Yo~z724IFa_97Hj<-&Y>R&4?NZ29h2ibdC{}P&zM8Un`HW(PdCa_{ zlKt)x$g_#yJ@2|Hyhrlm8s;4d7-uB8>mkNQ>bu6Otu##3eNZ~(_&9Agk}fV?l2}s6 zwTscZ+sg-+VTVrI5#1Ks}^moWEqYX0m;2o6nzr_>0cI$;K9aei}I}8jK^r zK$wdP=S3g6fin3(nJ1tRb{RsE-Ju3;zkcr;wT;RcCv9S1#9+&-Z28y4qVi+gtN6mYs1c0^6fR zSQ>v)+9LJc8m!Tg0FrwI>GB?7d+0MKY3M02G8)=A)<~71$<#+jcRxoeY?U@6iQrWA zd2{pI-}&nHo%>e3_F*ogAG8LPe73&cp1I4jG8{pzER;h>t5hn%@S(A>Nb}T1P`7gp z45KQj33~_rI>dr{dOy8g%NqL9an zmTJ{#)X?qVp=VehvW(+Dd`$fP6gGu`Y2n~U9iCUH86qn*c@RK$g)V#z2LRid19rs$ zI2;y*ROF~^j)0wU5`f)!q3v+!!hdVjo>aB?Ij)y61K~}VNIjAEPqAYXE&-D-3Xy$tENt%T1)t6vx{i-Y(kRHu#Hm)u#E{=?h&dtrs zNQ`EA(d8R`#@N;0UG$7pf?7Kdls>##$QnPA~~yr_Tnnq06bGqy0^hknk@+RijDPQ zL0kwU#KZ}`wyv(!QNTzEGSt!_qQ{RTPjD52qWcNhwOEg-DsS;pV`*ys*25Ryzfi9{ z1ShIv;r!ZrdqUiRf`X)x9z&2t(L*and{RUWy#(vhWn}TGV9|e=RmpKQTGjIviyfC| zret0Ph#*FX(8b`3loO$=MBU%#NyBr;CeAB2#hi0;e3RBT0gfou4D28=$?%UWmjj;G z=|GQfZeRQA+i!30Y%R`TzIAiEx4T5~5EuhPu-7k&1DJf^op0b2;4_{YJ4D)39Y`b? zA38)T@yUx?ga-|+0R%Rg&&aVS;-`+=m9!sn7W3rMG4IxDMtaYwlWLimhh33`xljDE zM+&QY@Us_2bp{SrZ2bjk?4jrfV7plrCeq)loQ!MRSM!I4B1$cH&LC~1K6Ryd#A4<>y2Gwf#p(9`hY>1X{^`NKv}XbYvQm1tP*jt_x?h* zFW26sz1Y6U7=2&z3>7N!FOqrz;n{lBJ>_6xgRw#f?JcQpiNO2VNx&Gq-4NE83(zyCL{U*9IN6AMKp4O>E!a@BFo zfZ*Za&@cu=lObiCJQGq7JSTH|B7zAU5eQO-bQ(Ig9$nHlrOJR!1#5tv*{w+BoUF9* zOgK%EUF15#Rf9iORlC9=xtkY=uA?V88X*Z&Pa^6BH(wM%WqJ^HwxY6Ihw6Y4c*NWD z@a3=+mKEThIl~YDXWf<1FziU~J&_c-HjH^^7(R!@O(Y&^GSuFl1^aU6p^6PztH>`b zf!|<0;J;V6cyTCbh$-WTEBs%PY;`qYH$P~gMzsA0flomk)5ml3b!ebZc3Epnvn#;u zwFtZ7;r`xez4+?mPoKQ`?B0uy6`{X+``r)Te);ite)#>L{qZMX{^Z`{SHz8CSFdWU z5L++Ci-C?@I;NxHk&2Lv&d<&X?1 zE}^2wD-c>ZRVk3B#Z>5^>zFg14$AzuqC8`;&PeLf?BcSmQ112Wz6GnhQ#!gQ$T__7B-4&@NP_KxT|NoznF%kV;-SWrI{k`Z zg3p9j-_=Fd@F$R(cH8EY-t{P(qBRNlZmm6ZcXy-B!%k&zK!GBJlzc%w#wt-_(uCq< zwK|{`X*V2TyUwkWT+CC=nObuFqqEx+m#-Z|(oR$vB~+qfA$Ry_RBMVAY6})waiRSp zn<+^q$puC+wE&VcG_I99>0pRbj#@;O8y_6$R3zslU_ayl(8M6RT;L?j$ZQe%2ke-3 zkoNQE!MNKRJ_r+$Y2)*=6-E{s+*9rv?5Ea_OiheDymt$4zo~v{ZE5cEv`+6ByUBwa z2fIF~IoOd(xhqKbQV=sqabjwTwH-BcqDMhQT}47MFFyobfdKLY77_TQ!5$4qUlcH$ zfXKm!xsSq!tNuQNrLU%1ursHQf8!h9a4xPY!A@JK*_kUN!=vUN2?7H|EFpKMwaxUT z6;#5eUhx*j4))PWI3q6R#-Zy_9pN-9K|4zAh6Z7)Rfm$Jx9F@6T9q=%Ja-4hAd3ar zkNgG>PCH@k`Fne$o)Xs3{#aHH!V{-qo|_C+ zDMqQkK_puygh$}DMvsrBJbls)cZ1&%sWN1Cj6H3_))`BP$lU#dzxB6gW@ca@Ed*3y zC@9n2hYue=f1x=xNdYKF5MG#r`XM>w*l|486cv|rAgP*4AKoSwfu?O`FNISWdy1mA zR$43?c~lxes(5K{1Z&->{goS(upPqdDjbEJaRL2QxKZH^xoUy!y6O>9tUhUoa$t0fo*Jy8Sr48KsqSKw*- zHZX}ZhLbrmJkTE_s3sJ?LJ^3}Cf%O9*P%oAr8mRH_<`^!5|K6w1WXRqFV z_3iKdZLpnuOsay|v|8yd*+_>BNhhUEhHlRe*kFE?BIRtS`eH@^!uYI zAk3qogsnqME;nSyPe25m$KF#<0^PaK#?lB>chj>rGcvw>7h`D&euPuwI24N=&F@0K2z*sw^x7&bu^iEXwphH?`kryDKfwa$Gp8ELB ziwAdhWJ2D%ePeEBa%KLq9DY`VA@f7_Met$WuwD@=U>{&^{#6LP{vncfjvR4#p`4$J zaGQ{1$`FqD8Umlb6AVVM)R!<<3AwzPf!vJ<1 z9)X8pr_Nk>_~h{~{_qd+4NSs`6OT>M{#b=D|K!C7ngl{I&5$7&&~+LZ1#Hya6{Kt;>P>SqP6$iiO|D$xTn|Mt)2 zMKCJnk-&rEM$V~n&S3JV+#TfCKQR5TtxQmXBXVik9lM31R2n*5FnR3A7>d70P=~p| z-v^Keo}lp%IDd>Sh$iiXc{;p}{OKwPtVxXj)~@%+T@#w?R-a*8brays>8vk0Ua=a4 zcbgqbw>4h*1@_Nt^R8LR;Ij_UJ~CLP3P_$zR={H%#*rgnVPt5KA#qh9N>90jDNRpK zSlZ^^o!fu(hktWqXlV7?*3%E)K79Ex5oYJ!6UC>);}ebTIc38nFI|^m9q~ChXeclp z%E~|t7#Ani@QU;doxwinhT*J$j3C(V!#4HgS?t%>DXO~bWOFE5RJ@>S`5c%4^+DQz zWIitu#Xm!aP|YjCnCeFTuFs1+hVIPkXbE7Ehn~rorstNX<`2$JkL>POWa++J^%v@+` z<9th>iPaG*o9B+C=rr@bR{-+NK?U1^IrL*1oQKU9J)*nfr7)10psPm>M_98Ck9ndE z={$)rKH#@F3&?-63!%oue%doK1v04&w(L~ZOK^N7{C8;=5Se>XenU$=p771UkdVl-&7Dteeua3aiD?j$KxL z-Q)TQR1Cd+hdu( z&@8J^RUr;H-`-pRdy7Spqo}9Vpyg(EOM36`xw^je;j5>2Z(hgVKYH^*jq1vknX&#p zYL98_pg02Z-e@KvNy&{2O1B?MJ6eb)Zp#Gh*}a>%z@u?=Brf(=Fv^sNXq0xCPyzO| z-27>Ir!wCJ^%SINT17rHI`vM**~u&n)0jLjfz<92c!e#}ROT+vN%E#dE82SJop1SR z13;jHp@TxQgebpo!@LYZo_cmcK+`Nwsyn1GKgB{=UrCaYcPfpUCKlzQ!l|$wu+wK? zyZjlVjx3k(rJ#D~?OxG!!DZ{nw07p&%k9~6HrG=q;O+hST%T4wKB+&wFbL4rX{TN_ z(CM?->k&Pe0l3!jArO;@E=F3r{xB9%wVL+v7(^AQm*p;ye!3bX%^1Q~P^AG^ov4;8 z@aup1uV1}+qtq$#`Rh^5DF0_zzwwQ4&0L=S?29jD!tjOZPqu1E8)4;(ftRPMkwX0G zIL)R8UDu~l#dY*0kRNl&vaOc(YtCEVb3{)vIZnQ@{!iM(xa}I{C ziwPTXTJY|AMpnQXqxzz`2@HX@BzEU*QB;7c@s67U+bQf3X{oqr0im%Sw8-hfgFIMw zQ``dC<|g4YFjg9j!R4n(I(9%{0rHW=7O9U%_8vUgH`p%{r{qdXe?wD?I0AalN;poQ z1>eFLwV!Zm{huIc0(vl6{4PE7Bz_@I5h-4$=y6szgG*96RR^9ti4=i%A8?MWs*_TK zt*TDa`;D#5H?Lnu>)IQ)dWS{^M<@D+$MFK!7YG~GxMLS-r9+-iv`qlFxGwTcH z035dC*_gTK{4yJG{4Kl#^CZXs`*BzKhZKDj(SY)b8AP4e7vQeg#7TVCJCN;NF&@@Q< z2thk)ZAyr`9mcM6IllrwOB(8u)~!ZSUk7pltc)?U$e{HiCgu_FQb?c~e1=DKl@Q50 zBkxgG3}luV8LEW_n{pI2PsmV^iWs;T?H1INR?O-qxPW-IMkPcA$?dJOb6=s=%dx`V zeKDB^S0M^unX1L5CDB_shkTg=6Od^$deL=2Oe@CTQQ1nTbjz|h`tVAvrF&L@kGMUw zefy);s}C+*YNkE#;brE~UrNEY^>ue&o}O}r$Rpw3YW5g|6b(Mi*04Bm9&h*7`zhQB+j$wLKZ<3CtOIQSTBbl` zYc4pW-kxsF&1fQH3-V@LqL{PXpLpACUt;%EAG2W+ZA9&z(`{B?~#cVr1y}ar08fill2X`nFs# zQz+$%<+f}=l?tX{5m!FfJL;77AHW2y$}lrNrqzRQo9_};>HmC>cX#a)EJMh{h@Cvi z#~1GdkwC+SWWtP!dcZ>>6a*aUWEPr?SxdJ8N{GF{D}6iG!jnS|=cB0>1wH{j%(rl= zgqajxb1t5fWwLFp9g4y;8L6{ncZM>f$ghyq2){=N&T^yj@3>7WyJ|1ST6lOO;f484 z6y3Fp&N?39xwopc|BVj7HeGXZdp-Ou+abPZ?bH@f51ly$fB!H3Yh{4+F9Y6Oq;)u1 zd8bE@S21Qk{pByY`9iDctK};Kt%6Zs3>Xwk&9n={Vd?ZxKVUN&H7aXp%eECtwJq%z z>YGe(x-LB8E9(7DB?QTV!0G?s5Ud5T`wvOn(i@S}W!Q$l0oe^LM&B@COwB$~q)5MY zYviJ{5BpU*kf$^UiwA0m85+P72%8?XNnV=%`RlTHXG`M_DCFdPHe*H2}fV{ha$AN?}x8S&tw_g}|*xofI4iebX^T zNjSu4s7K>L2Wz;xwxKkcZDSf6x+H1_}eSHHSEIe{lwY~bGAyFdErU(@R0n6;p4 z>Hsw>j5QLy!FMFRfUSV#9Q1+i9Z`f8kPh9c>OLRxL6To0ep(Jg;PWsUpnD>m>Rrz< zf2dx8dO{833rS-mcKeA`Sb+L_XEv*f@M- z5J5FamsBI2Ms#?5V!T)O`0(K5^rX~y5lnwHc7lv39R(h?lVZRVwFc|%BGhyic@r)^ z+yky%SrLq|vV^Si(h5d2M4u z;9VU*aU-R;&>J;kirOXmrP)EbWU?YVG%4h2Q5DVuqws=LdZaG~S69J}e?WFal&v{> zg!WS5@Mt{QhBm?uL=!&}kZ zo~+a)AQeKEIxmq(hlGHMt`Ykz)=cuP7vIPgTiOemLT9E>l%c^BlO7<6cXeZ3v2zfT z)^@>iYfoIcJk1_qkZgyEjQYxCy!&2g2w*2ML9RAe1~yczr|S_* z?Z9^Tkul}#gA3*qg(b{m>_C_v4#~w;JwkGWg{6k)@E`0`wxa2JgYk(e;05&du1sqQ zY1if_(<-{k%j?zzZuee%(7J~T7DQ5`e2Fq6%qk;~>yw@vNYRl1wpVf^VLSVI=8SlO z%&D5=(cb{TL|BUM#asQmN)>YuJ{tV2RZGM*tVLyVaE;%2VS$!*(ae0O2dnnIZBKyx#L9zo;sT9$&ln z?sForckjM^h%qskxG&HNQF#Ts_Uxt0K!(Jt^`>w)t9%&quS6Vtm=vHL8kiz#$lOL> zp*>;FQjW$u8{sF6fl%6G(GA^FgRiq)R2_BTIvm(!({mXNAp;4#TO9}N!**YHcK*}a z*5YR1NdNFJ{^B>k`OT{r&v6N+b9;OH;o~Q63CjY~RT)tVJRx>VM5(ZAPz>$K-cEa4kFD)(2&CO{^x4yBC(vOagGAUAUdi?bY+x8RW%?djg_(r*5vg1XqT}D&{ zRy#m1y1b6TCy{paJ3%pVi2;%fnw7!s^?`wYpR|Ex`Z@IWc^g~6WZ=o(@=vdKL4ppmQAAc4h0_?EMEX9-YFf$X< zI|%^k<#NHjr&5P&`Z$I2?(Q z^$ZM6FEsXsdT(JpW|k*D8Ny}cJ;rzA>xL_LH!Z`VQxhfs;Qsy6PKYzGj17{kLhCl! zQ7XsJ83OMtwgBTK3Bo9W0KJR{ek&GfoVz_X zoQ_7yE9~hXv>-vhKGIjN%*`*#=9R~#4sIkZH^9h}Ty&3Q_W4qHJDdmCWs&rj7EKG^ zKWL3PUWH`}NiVTD8nfunr3!T7Zyh}ajaRlW75)nyyQ9 zm0)%50(f^Ia6X_uRSyT$NAm$FLeRP>g@(;Zjmd%KMNdROuU^~w$pcQ>wGa}8lT1%oC-)^KGgtolL8YlM3WnoeobUR$f$L1-0*x8;is zZ3UW4T}#H2c#)~mw)-c{O|vcug|K^&Cjdb ziJGZYOACsjuGY$~HkMKu+awnjQz9U#955m6HXkFi%VX^B9{}uD-|$2(xP*4P3Xu11 zQjH^)YX7lmJ_*r6Jm(r%uOyzZWgaUQpZrn*bH4`9vGhPTV?A;+;6KL!tVHY*_8LXm zLSAzrrD{OlE8Wo}9evP`ePUzd+V$;i+J$Zg3kwU{yI;9-WqDb5`PHT6CHf3t?CtIC z?(PBd@r`kHsU@fjW}{4rN}%CgM?TU;5-T!d9Xo`_z&-Kn&D!fR&*PN^v|CzjHV++>?O! zlp&K4o@Ds-;xfX!4h+=WRebuu0jL{kkaWVR8H^P)BBGj>gf5ke5ebK+y*)CxR+krl z`2DZuXC@_i_jYzXfBfL>hp+D4+E&JNZEflG^T*kiMq(wg-J{eX#|*|<3;TB#js$^k zs@L1_L{!>qj3c5PdN%dujMq81{4(&OC~|&j#h5->ZH1o}qgO!3xB^G-ytms>)F8Tl zP~DtG61%h?nx3^{`<&7_IlTf;Jl44@SG22EgwNCt^z|M9^wDZ^AG%e^OyjoWjf5J3 z3L=uTc9_sZv@+;CXgU%}7iO&}X|VUIcY1)}ISRQz6_RHcU)bPk2=n>d6Q~ z!Xwy0+BiOdCzyiI{}$w-ra8eDfX1rhCzWr@MzDOOo*ovXQ8U21a8r#P8GtYdN4fjp z(a!BVitt?uuo*>28l*?IqxI?JX*5KukeSP&NLyFBzCMcCF4VMSJL+0;H6-`ujN&ci zQ|m}iAPG(gwZnp>4Ymg>5dPTHWc@m_DZg%dxC#gq7y&x&ZZVJD*f8QaVV|^{}fG6Vj zad0;paq{S3Ok^`!%YuW4j#8x#a5jz{MbT&xuERleh?Qm4BPWx#eunD;&n5gvJk}~s z8sOB_gdZdf%`??aB$0L>f$hKqWPuJ?G&nf0zPkG1n>WAyr~eJC*XMn1VNs!w+8YCz zn+ZV4Cdqv$C@g~Q0lz7aF&;xp$q~L_873e2Zw)MZI|;kDPY?9Ya&UNWA^#XPY&SZG;0CoxmGa-0tW6J`^0z4@-Ij9I`BiNeo7E!O16oLJC&MbtM6ODRA zE2uPF2i*g-kC7X=xp{qk{pyXKo9O!V^vsnxGR6`zzqYR5tz z7!LT6c8uLy(k!7au!Zm;%Sb^?iS2M!tlz4nJ!(_s$tqCo?a@b9`$y_SN4D+q#OM#c z`p(mbcbDg9u3ueQS(v?b{p$S8#NmSnEz;>%;5n8F*wJ`1&86@n6XUmZ_iE#N)m;ih zV}+qJrz6Rup`NcUgiuv|CR^-M!d&PqE3%Bv;r#TPn!{DczxB>8W;p8I21mML)%QUV zIy?l$H6YT{Vz{Swuuv?ku$Z2iot~P)@5EvFRX_|-yU4rt?gJE9Ivoa7R2U$HPvC=I zM!XMjGrrIXEKvj87nT~0M?7f|T#(9r=?NLLJ$L=y;) znM@Z!#tJ#QCS&i#LVrHn!zpab6jUlnZdbfTREO$mfmGe(^cJXw?Qzor)pa8ZY{%ir zcO(bCP2f374+{Z}l4UIkNHa|`TWZR&5YIH~i~pbj&cg6x6K~wQbNA5`^@*^ZkpTPT z6c!WL_H%IT)VcGPV;h^a>~*jj)fQGpY>*)X(i_@@Q=2lFUN%63YS7UMMk?5zFx*9r z6m+0kCGqA&q>Bf@r_OAM0}qLZz-be+4);@OYOHA}nMWMnXRAW5xljW%k!rb6j$h=I z%;H<`?%6|cXA?lWvv;; z*Q0Emx-iEjBJZY)B-rjrn?)|<0?9Z(?=L%CIkoHi#6+$*j-iSXKA!Mhh!o513L%DT_+x1hDfjh$Q9 zHn-;H=9ZS1mzI{VUEA8(xrM+JI#yOzE?>S3OA%mJ2)q;IiS393$_=yuub~7PG4120 zPWWZe>P1%)h2{h?0W1rwPNI6VLlw6L@5~du(TBxeT_@o0Gl8&Czv)Cdae8BfAY*UL zqh0xouart9kM_v{f^5tzt;Q2;eZ-O2B0s2E!YeFtR6H0W0C0Dy?87rrH1iOJCd<5k zV1Ib`Wgb$NccD|vFY#5V61O1f7n4=N!y5K%auh({p@ruIwh%!M**>RTI1URuK zg|Wnq_9o#4ZztWrXCyzuqX-IkPY9oYJqW)oImxjaj?W|QupRb-_X@U)rKW6rYrNLV zmPS2UDsD(Iu7D2EJ+OUoVQzVGUeY#fXUQJlyZy5t|6pfpW8w0Y#~Yh#TkFfOpFhgC zHpzqJs@OBXfPOrJ+m4L~anp*1)4316$ z_Twk3RnrLGi%yV;4YuLY@xH;)QqNGS+>18g>N-mI_75BIDz3ZxhuR4Wy?ryYm(c`v z)*ay-@!VZNL18%K3PE*3K}B-s{m7B<2-qu+fSp+5GaxFQ`p9@9IUI{HeoZ|D#@KE6 zv(!{6RFOAoZ4L|nm~5&_%Drlrq&YV?<|MakJCM&SO^wDfo+}Ph(4<>WK3k4ga$QJ3bGJ$+FuRj3kCVDij3`96vn8{4vU7|=!= zId#S&->n)C)-=hG0qq6oq`2w4Mf%!IrxVzjIGbs74M*+Lz>F(|}hn0q5ZGC+Mj_-gE z9XVjYIn)r#1zoLC+ys{z{q4#1SHhZjTjfAv5A z+yC;{|9pGqo*pFDf{(I=nj&`v~MSXi`e zZC#(6n=h71V4RtQ#?omP7Z)KsM6JLwRJS4L;FQ0EliQ@SfL~aRFoRb3>CAD2ktw#pN%l@ ze8!K8o1tFb@*Mc5ctWW66m_M;exNdt(xx(7$bDv%y`S0%ons>Ss>b<>Lc z4_qCsfWq=tPuwjqq5?TT@y%^yl zK>^7gJrlFD1%OC63QeZHe`rWo^tmfb`b}={+$X%*-rE_c*Dq?&OsCfZeQbtb@RIbHq&==MVl ziVxtlpwDJ+?29u;8`Mb&k=uv(orFfC8%s2jeGC&8v=gzTEf;cGl%`xRGkz+mf(nq( zQAZ21A3q`0_4=LLX6QkkZ;{@p`L@IWy^`W<4IFK>FCh~F_@;Ma@JF#aZUXW{JpcwF z!UX5T&jEPSWJrmWf3AJNJ|;>h@vfk%cj+V*N{?oD=CiUq0lUpPYDzORJ*jrd!Q(=b zVHKmkc>4JA)P$l8-NROw7e^i zr+q`?UHv0^`m5!WW9E~1#kFhKq+*$ZTxKzvo}RLBb-MtebHIT0tc*Q_&e@7c50KdEqbD^(Jz^S)dn zvyVr7_{cF|7ZL>B@4TnM*+D4~lyTV$VFlRkIwrA|%r2BKRLZ8u1G_I+5D98x6Zm;R zeQ+^lZb_4IflOU-M{`fTiZ8?8nRhvS#FB< zg&J@LBM4OQDfbPEjbe>?X{C*^gf|)=@=G^no5Sq~N5=bxMpyx$%tpxbf%&1dq>?3j z4tia{W{VLDja>IgeT4A#3Dvzw1tP8ZX=^!zeS2p|J9lyw zWd`BLtKlQX43%X>Ok>>_;VQ^AD~KurL$Rfxr<==ABHmsH=2)(eF{UnfSDCg$Wdc%> zJjpaTCot~O4$0}fC*zhS@NVT>k|)8tBuSs~u01;xj){#Q5&Mr`fO?dPmMb_4Q3%E$ z3^s2eC2WRnG<-vI7=Pe1f_M2+;yBX99g67>)oIHlXuC98hK4LnIO;Q=hhC>|l}zLF z7bsc9-d-(4jcQ|+v5;G3a4Nw_i-}q0#~KQZU5=Q8kMSZ|Ih+U7n^OjA1+@ZK5tT%q z37YTbl?3+6iwzeCYkCHcARPIt|;|p>RD!AroTr=+Ge-!hbnr?Z1 zz?BhptwQo>mnD@llZ_N+c2fy>Z?09|qO=oas%sl^xlRxe+Qg-c-pH;8*bDEOd=NojADFVaDet@4Fr&I7lu@G)&&iNO6c1r%K7u0=OQo7!>a*m zkt|@A*E3B+F$Hcr5kj)>pjZxaCE|x(e_c_^TbRWrBU_7aC#c(m_0;LJyo|5xKk(Ik z`(fJP@UZFX(@Eescxs}N-8FCRTsR+qUA`cV_@|rG$UEeNIcE;>+eN_l6wY8f5{R0v zt*zd_zxVEYAHI0|YlDNsfBiRq`yYSti=Exw@Nso@o4Lj_yk&hfTyb)6tv2en#{n|k z!7;Fy*rFGDRc$>@J_<~ZvD7o0)0dq1k~-+-PBu!=48PZ2?;?CnB%3yjW+0$y2n$FcFL zp^@$P5m~{gF|d>qXD@T!(6D_;3h!#GLf9u}2>HUE3MNo`iy# zJChNG(^@cW+-FE+KGsrc?TBov`axz$YZQg3F0n}aA}Niwq-MVYM_($`LTO{zm;_!{AL#llF!kN_G{;xv==Xe+lw0h6n{+!->BDOd&CGh@8+*!gp4548k!GlvGa8+ zJTt%utyl7emI|zN3C=(mOt0JASoe_(Dgy@l!d@T=@R7y5cEsLg%<9qc&LVBU$puEd z2h|7pk?4I+b4UfJPCHRV0u#ZC8?XF24xi8xghDPP6*H&X5JTKS<3TQgQ~fW*dE1H| zJV201W<`6`UuE}^arn3$;3s2a*;>+*MH$ki$?>u6tqn{*)7COv=%1Y$Ut3uk=+RWJ z9k9<$jxEnmmFA{!97+o#(7spp0Z*??2jY5Es|D#Qt!TV<*KYo##}vr}hX=4exnd;D zVorPc)dS{fu{f@2of#Eh$wtO}n>H&^*F1L2H}Y*ITlDrOWVoZ-$j|5V1AV;<3k%E3 zrMA{qOb^Y=g|D`QS__aY9W>KT+5HC&0!<&!3p>4uURqZ!Pm+kMXy`JdMIm4Z31RO&#i2%tZz!0?dioKgZFu7;|f_Z zFIXn5`H>Gq0j{QwE5=$>oSp)!5fmDz4)1j(58N4~Q_8#uV3(=` zSi!h_LL%b`f{kaN5jY%a8e)LTs7{&*Vi$U{3GpEiRJa9;q1ji_-*F|>tl*sQU zlu8S1$D+KWr~6*+sK&(VR;f~Wio(b4cM2<)1P-+}BMqsA?b%#T3A?nseD~gi&wu#a zcke!+GynD9{LS8jz0u-?QjuyY;D(;`bKM5&2rm}T&lDu=fA?lom|-^?w|j=;|5h?H^n! ztzz#`o$XOpjSn~p`ELEqVw*q1$$d~yy?4JRtU%3k^K+`PjGFaH@CU+1g{g<77}e-H z(MFU(zstnix#dnUNI*JN^NptuP~g!;741meCB;*wJ~ErknbLaPW!Q{z-fPU z)KdCuMyV6RzGw-*!+@mh-E&U^{*xyxV&am7gdxZ%s@h_V?-7r>digM4ASdK&uW9d6 z?wT8&!BT5q@lZKk1;NmjHA^(qeEWL4GnVu=`f^oc!-a*}sU;@XsiKxL1Nn~9?BtzI z4G5+#oe%4a=2^Jj_nvub0vb;WHf@Ja}*kcH-X4|lK zTi>q>Ofm;ezqFQC)i?wt6BSt4KJ~B$$Q9&wB~)vkBYV}@0)d3WV~7qI+Szl7Njf>F5X8U-%Xy*U2?BET zX)JG+p)i&w4duF2!t@G&=O<73u91W#b(ZUZ>kaYYX}2YTdZ7JNSizi2BwyEe7d*#9 zXMD-?L%Y3t4VV#pB?^*>SRtV-pVZ?rYyvUmQDh+MjdtlS_c)8alJsV<-ivA*OPfjJ zCaJGnhCwhjIy!dy-s8E_T5)>*@$)y^+S-ob9=3-e7ufnxtT9bJ!6x;ntu4A)+J zRvF;*u$^rQlcxYUj8ZQg$Z$z0W!^6GfNM^CR&-B~^>nY$P9OLZLFh*X`-Q1RSOjsXtv3v>fF7x@& z>WR+nxo9;*F3}Y{?akrwN*xT6F-C70n+%jY%m8E>zBgspc4v8QLkst)O;T)7cBcn> zPwX1^@GqDz#FTB5;Y=uwrwvaF09lxjRu2u276#o$^!3%tcW!Qea&k&8(4K(ZYW=|> z>rG+@ZTCG6*c+RgPoFU@zU|) z9#8C=9vSshY8xFUh4AUbNJ|9CTu9jqEi!%_J&T}&P$jsEEyAvp{lu$@pGB12T& zP5^IkiXIbN=(bRl!2&$S$I!MVwa+~cEe{_CxpprC+Hwtzp&O6`UB2 zj0S~2p?qm#Lqi{l{W57F$gt4hD{7x|+!Qw1(RBP7$4)oq(5N7bdixH9U)?w|FR&VE zX~EKnURu4iUn_h*jx38y+F6hAng2rLt%gEUu(L}=mJ$qv-C8Y;W zb`B+5**Yr%my;VHFM{%9{*t~&Y2I_AHk^8E+xMZjuMeazE-uoXpFDZ?ksb3s|H;q( z=wJNvzxbO!|Es^-d+?CwJGQ`}$&di>VSOE&TRXaY=ayDSCuhcI7j1Qcw1evq%)^CV zC#)J)TC&^OwyU>aTmZOq6~BV38|{g`m(>^wkG}~GdE4i)N^-)7LtcWQ6L6alZw%03 zkbmNj^mct~o6bo^!dzp$YM?uMZ=YGAMOhYm*AzEQP}%@n{T*s&cQ=G5@_33Z_BJXHTd)&{mh92#ml`uZ5jIFL&Zbxx9Auc8o>6b@@dyP5PY^g3mzJPC?6u6$<7z81 z1yNFH1&oro9ENU|MhkS1 z9KRuUd0`0OBYUJq)5dnXnfUa4a|#9WplM+?6MDo4powDQ?QY4|{#tg?{^}b})!)m{omKE6Ar0?k>(0 z*A}K4s%?bv8aoO*Iyb^TcH)BvEw6oL-zzG%Kwf;Yrisc#^k5%Bl6){-UntvEm6g7# zxk^3~r{dU<#AAPCKV~skzuSQWui|*D$Cx$=%P2)%2!jR~y?teEWoBl|NyQ*xo~ps< zD3XxH$VFZd5w(^o`?pFBEbs*9?v~E*7d8qZ{vO?a64I)>@d7m0rw%ke| z8k$K%eKW@Hrg3&_bGwrP@U3D|3~Oz*tvr__gO>77la+5pl>nQLnZ{JpcJZ<^i*YgJ zx8@q_TS@B|BXzLlhAnG#*{L9OgzOf-qbp0mJ3q;paACSB2Xo&69-S5;c}NN3CJ5Ak zI7*=O`>WyEYG@Fg0((!Nt*No(ux01=-qP}_kQs}cWVNZyg#N-|EE?7wPV^uj6RRFNBQdVWh+<@Q{;{x!!8gy;1Vg77Ti!Xif&&JP%y?;DtyT^yU9+u3_!%TeeJ{MAD#BVbvv zmiuL7Y&?&yAjv}`n7qz2ZlRpF=W5_A-rnf0R_!^`8Ac6KgoD6&P~F-Vt!Ww?mHqMd z$>|wQ8+!%{Hb)X-tY6T|z}wX~Hl+@|Q96a{{DNVLQ6ARv7mjA657D9_lg-&{HQ(LC zii5OoZSStFZF06x&(3i|GC*S3VB8)YuovDks=@HqwhRc?Bn@@fZQslG_4Su^d+?4| zh$hBCq(h0ct9s}2d5CRPP>Ph^V09a*KhqvtGF`u}7^Fno+Ge`vQeuI+ME4tkNkmYh z4GF5b#YFa3aZ0ExGj>B7=F6=_Vc*yKSjT%WsTLmVuW|uimgv<8=k+bLdosbMPLpAN zy_=c#jQ$Da8qh#mfrs$fD-&MOcv_BiY~U1%a0DUk-iX>mW`XDEdQx;xx)1ytE%Lo~ zjSzvfM^n1kCBPUD%F3`21j(?aU7xj^bBL~zZt8)_Rkr40_;d`TUlRn7$ooMcCQ9m% z4l`jTcF3SYv|Mb{kYh$giX&Ty@=UPRjcqayZ>C0d7YP^x$?-xKH>p#}ywV6k zSxs|ej|_{vK?w0TG;R&mUq3#VC{fS|)GYl(sOM_yT6 zoSB$1;K+X2_6`+QTO+VlG!ti9v)0U!D7-S%GIkV{aQCpp*ds&dUovqt3(}Q0n#H*f zB-Pl_b&ZIDWcaBpps_yk#$ zl*}mGHHHB@%^*@&p#|dB-f|2GHQb>$#(4JPWi1FO(;>xLxnEbW#w`st5rL~=nF3$r zIKU9VrW_|y1~((vK*ig!YvU7E8>{Z4QqFv&6(^!wyOErpb;^2NBRGpmZ@&!@RGPw~BMCIGP%4U8 zIX6M?cr`?JFynIT>E-2oLa6S$c;)y9=#Mvu;7>GOU0dIK_~^mICwmVbJ$&?33H8&j zf9I3WbOrnMKm4OV`=g)#<&S^!cc$m&i<5-QN!An!KWtPLWxs39bq!ddx47~i6R+h-<{wN69R}5|s?xbG@p%g6H8dV%a@ zyF1%E>#MVq#X?V4UsrZ%PS3Cb8J66Q_P{41g{16}R$hAfW#T_=|03q8^CSv-s@xDb z)^>8#0BznCicM4mVy)s4{M=@*X!>CrJxFR|<%sTw7OjWhMxIln@)9eB8(Q1j4dcSF zOVC>?E#y11A_4H%@7xX8mPzZ&37j~r5o{QYkAK_z`Q6-k&t~lwwBXpG_KSrFKfXpV7HEGWN2h@Zf0Y3 zg~69;n4C^0ZO`PgW=j{Ru#G8gp=gn9H=fPYPpMNzWc+^zxSihuWE2pb=@YbP`xT?l?IwZz^OAAd%F9nt9WdrpRpUG z?-w2$Wuw6J)H>DhHrfRk3t_>VS-~p+(7||5PajzKG&-Xx3=!~lCbvN35Q`$CfWuDm zKViH3Myw8wTH;!t)aRbH5jl%2*24GaLK`;K?}qb3c=UN$mq(-+M`F$KKblBpa1B$KL6oQ zfBci*_`^T`voC(~+w-NBnfb-Z=~*MwNuzfto@yWmoEO(NC+3&l`Q+Q%_a2N+Owko- zEND5XinK_~t818BTHd|)0E|mc#VVj3l)E!;?QnZXezZ8LN^2WaH#=XKR@V3`>zZ1H ziE{H9aU`u~V#Uo4j}?jh9-o@Cb@kNr+#(go3qoV4Dh(h9nYO?@ODkuQ=#0&qTw?J^ zM$iZ=(`O*U^!D}hQMR^a?Y1qf`1;e+Gopit0Jr^iPP~*FtMfxDxqR)~;^LCUsxE{_ zU@Qbzw3T^MPB1L0i&5v=0Y(5DA~U#gx&>;405!f*=~*CM;~J-3mV+Ck@xrCjPke=2 z)n*jigy&-8pgy0^17ASRFp06`a<)5(@{_2c`aMPS9~u(<8Ega;;*8JWtsN{1ghUSv z5_LBzC~w|fi%Y&cf(?)?|0bS?VG7|7W^qb;6J8GVlw5 zhTZ+>5f8?uy;rXsK6uby@xZp0CK51p9VBXE5W4{h9!Fje@}IUNF(suEfL*aQ)6zUY zGj(@&du3@MpKZ_Q+Iu>({rQfuq5h@$>Dj4C#xPl-Zh;DL(FELiuc_ly*{`!@s@}qO z!0xNVa2!5h(MP&f?Vmi8H#KBvZt%rXcVSJv0CyB(0J~@<*7*-keoHr&Dif10`Idog z_jX|&N$czB(i=uNR30FO5yZxdqZ1RwJ_}Tv8X<;M-L*4yqPPOm#dvEy#Q0k^mX@fy zVD8%5oCd8IF9UY2V?zwm0xXdfjv?62hgJh3vx;ik9Vv>ZH1WV@y? zj7Sij5iH(Ur3m2{+F>X0`~UgHFW!FtJ)5vHN`rSazRLP*AKo)AszTa~gW#axr~>P& zsnqy#m7&8BBy$zDI(3$A&vGkv%TCL!@#3fax+y|C0H~(;Xl#Q%>v^Vsj$c z?gF_wp_oy{69Pj5GfpOEO2(!P%3+Cx&`Y^%unYRW)xEL?;!j$$c1{k3)dfwgy5)OC zWkDB8?QDed=r#~ij2ps^w3p#sQO4jw4uO&z`%^i`pI=zIedqo=?|t~)@BjGMfBaj& z_1pjK=YRSa?|<~^I19<*GIC3o;NBzqlD;j%=`IY-FR$f#21>N+y~jgi<6sLFLXV|L zgm+U0`>ttd9w|fL``fGbv zzBP4^r0|pCg#!i`VtZdP1T-!hl?fBybJ|EG}!U*1-t8PB{2^OG_*C_KuPT029&o z>Q%*Ap?r9FsDaP?(j`ExGTUKKLqc;?qq>_MUtCbdcR6(k%iAn3dFj2W%B(m7*yZ&B z@@bcCycPizP3ZZpt*tR-Qns(!1sf4*GY?e`C_8&PZ|!YE{r+S`qzId;Shs<%z6s>H zfVorJ+S-JH{rmTOMA6XiNO&U-@WBLcN8vo^W}xD7!Q&kkIjj6PDW9oQ3Bx@Fu+!f| zqmIUpv1$o0n9%-qC_PwTQ{CC#2Dd||x0)%IJ9$!c-iyhRu${^zp~z-3(-Xy=&Gmab zTfJQ!R%+GUtZZqt+^NP+s^cSrGZSMoljCg~T3))WWE@LfDzs(83|;vK#OYUlqH3T zN@I2O!&dC{K<}#wqlhVp$(3qF)oa(<+uLVmtcITG>CT&yhLd#x00b>J@RZN+c7v?U z+s!@*uhfF3!phiaQ)?_eT zWB6{KMbhz1QWCdLcrq=Il~tkHmvuY~6N@)03;W(hx}lUHZo{N(XNMafg%4($y>|HU zK|CkA_#Thmj$W<8mMaxRCyObfhA(6!pN!85YRpeB?&HCB*=QNwfn>97Cv_h9?yKltJ={_?+k{OnB_K8m%^FJQt`NmEl)J01pI|N#2B(A%s?O;6ZfI`f^FGr21=bA;WB9@3bSUy|3HXRqTo5k?<8(LqHAt9P;@ z7`C@V@-T+otn@mnPWojVpVrnT#m_1M`<^$$5il-O?(6S!ym$QZ8in>e(fYlh>*ROuK@BmbDEll7zK&Y3Z|x3j zEG;eWZg0}qy%fa*uxlfb%d~3kJ^;mRsM_B<)Z61vFYkNhD=+P{u#`ecbw~VYcdA)H zm9Rso_hp?WUtc(~ab4&$gej*2$XgOpbrbU4n1qW8M4m|#MJ$u6=hEw#04 z%0ZCnptgDXQN0e1Y9oKSNkzbl=G3lva*FF}LhZzCZcL4-u`j#)06nLg-X1sdL}eAh z!8i{YfRw9=7wy(V`*)fJAd0=7ZC!eRXC5NQgblsr>`s2v(c(e zpU1wH!f*p!FjKc1dr<|vBkckZ3e@Tc2g=1FNE<-l~DW4pV1hlfW;M~g&k$M}$v6d>=nxF9eHe`X+f z&*!@VDZc0e#iY`wJvk4hS_reD;+hDskFLg7GLCVHJsA2= zHY@MxPJ4xOi`DeY_^@MuX7?@MAeVLlJuKuLjq}MF!u;6FEb&Ohofb@@}L~K?1C_V zF;xsXqIW1wh0T?jiMkv zUPnzAF)mxgY3z!XM){FL%fkK%l`BPXzv?vbtZ;~3fkg0 zj{h$7nYx;ew$`rp%s_V+(hl4Ey1R7l@c{%OulMr4{kmGwu0esZiohEIGt<)>Yb)6J z%llpi?WzEX7Y6DzJ?IPD_DKm-Nmpb9_Q}|A$>|CQP?Q4rA&(00;h$xX?K|%1N@KJL?eh!SY^tdNpFYjVQ5)>WxMko9UZcM zUZVX6tkdIpl-@=QQ0fhn!{y7@>?8=!sWDz!?2rXfX<)cv<8erz?v&eX>W33@jk5>a z8!Zjfq$@Q8=ermg8Jk}y?d?6e|KQ1cAAIzG|EK@&r*z{D zXsoC_s!7E3eChFvul@Y*{@v}zZ$Nd#Tm3TEM=H-@&gKh9fAsvVwXNNob&XglX(g(s zJcvWZrcB55!qV{g)Y9svLaVH*BcH$X;BjeVcdoQ5jqU0$j7&`T6oy-K`gL>-j*eme zbeqAEQ7sabY)R;(bucb4$qT41W$4DbJGvnDFT2*r27o+zn_W zkQQxey1|JCAuUuhAm7^7q79QhRa_jf?8-V!s~P22BT%KLe_+5zm3PZ8V7tjne#iNt zw*d^mZSmu(skV3{&rMKon}CZ-PS747ur3teMIRBTAmQiF5ciBrRMUELb%3*4nk|DXy?)J{w z>iRS@*{n|2O-GKM8R#D-6Z$*^rIfZH6!E?+Rk3!D#qr8zTiNO}0M%t1$>;*^E-tT@ zip5bp1ZfFT+}2Mwqp>-(f=Ot#*q_d*7GFeTX-ZTqjDND5uY9BC*3{y{yPthJGBw`N z+Kl{Q!$L@um}_beA3K4-hfJBOnItSuZK!Tud*nC}4pTWJA6w0e-?D&@v@5N|lnDjy^>$+f;2wmYNGZ`&MnR?lt}T^5)w&qYG!PDVYal^iR+9{S%5q`HPz2JmiiYqqP4dq*Cjw+t4JVY`8JuPgay$RR4$a+-O}dKqSPuE-at*7YPBjkk(vSz)hYR+h7?B-f$ffz zuc@IU?L-*YPO1r?fip&D?yJ1`v0_4A?w`TiNdYdYH1~Q15yYrPonfe_2oTVPOoZ&k z3tDuO%AFtx%wWH?&dYpP;aoezJI?tIMU(m%3^~|XTF8T>;AjSRIVVSr#F%RC! zEEqlp7f!@jsTcewqCyncA}7W6jem2&`-&P!kYD&7x?W#XQtu-b~@;RnP;KnvK2&aOTm**40OVVH_VOl~O?N8V(JXO1v( z#4;j3G-XjB>Zho?mI8_}I)K?SL2C~V8M2IJ7Tjmn1KCoV>M}b$J6ISVFHS8kt}ZOB zj1?z`28R_@Ezfvx@7`N)zPP=6XK87rR9b6k%~Iz3dWW?NLydov!gC2IA-cvY(OzPEB;Bs5v@3OXGBv!l^GFPk$oPOJNLG^UL3 z)R^*}@=1#fO{W5~C&Y*j`SOPAARS%L*)70=dhJ<;hi9f|7Umabre|;O+`V(>{>0?e zfA>HA!<#SO86GXJZtN5%r&l+&v~$GUNs~&Xnzq$y0@L0(Iz4~?&G&CVd2?!hiAX*& zKDD#=*dl9QcMDW0jr42H+Q{0KkS+8T27}nAf~l4Xj`ktDy89LuOOGBud;aFz9HEO#CEs0f0iC9| zTf7I%l~8s6)l=7nj#_8EN){9i139UW&}~aZN`*C>g0*pzXiO|p0BCG80<*yuGdHOD=&Q&$EJ{%tum3?@ZsAfS;sKiX)L)qD=*;j7a%k(+$Rf2 z{SZMn*O0S8pP*bhaZWWG{CS@F)Z_(@ppRW0mI$?5Qn9tOqpnHWQz>#yA&JWe+auYx zNb0ywGUs5C%Mt2FkmUFsN;*}=51PS8PJ<0ndWLfnXsf3&m1FP8?y8jmpM0gd>iP4m zi52J0Sy<|Jb#!F3w79r1H@`*c*t#=2yU^b^z;~#d#aqwc{Nd+6divC z?FvbD|KpQMJ3Q3IN-V8r_*GNfqe%ojFZd0#&_gOsVScgb7`#fa;1e$3%`Q3hthtj4E6574>!RbuuB=7 zKhO~pZ%0Ree?Lg)qw_;$o}QeVo1L4UoL-n)yubJ8+4Hyl&A%&)9(P0cOt z+k4K)#vLyy#N9O%jGll#l_tsP= zrNUwO%$)fA_~i6rX+;rvaj|sg?)|y>1z_9PKQKKrbNkL+ih9;o%e}qMnAX2NeLbeD z2TvNzVAf*nS{2W;2VQ#(l$mzUaCxY+jsrkbRr=@rYkfiG-y_csg(aZ5LI<2hlP(ui(Kl=0`WxSc7)SBN74Z-8i%^+h8Y~@V1jX zV6wE=k|@5H#dU!@zG&O8>^7`m0v^50sFqMe&wq#y}S=gW~%5f^mj0z z=h_dDZluUzj`0?jI_|c=i$M^3(Tv^##ThkZz@ytx=%=s&ndER*XHvKmO z4A7AciW4qJXzaegWtGri=3!rqHAhx0P0vk#{X5@Mw}9JRME282@Lp$Zz$K`asDEtX zA^pVmZ*q3K)#_>*Jz=;6PK#5>zW7&DD}6C3P+m?Ls~626ZANieQ3=9ZQ-xZ~bZ}tU zuFnj_C-I0k$y^khYZ$vw-4HLY3H>E?$9qnQ%XTB9rUbW%*>@3zmYb$N%CU(?{MCgh zH`{PoLO_&cq3{XM4c_1>zx;{b8el=>m1`TcA`cd#`fnn8Ye7K<3a+h4b&Z`;bl{3B zc!|4-uog=QM9+wN(bm9ujw-58>prR0sq-hVEbv2k5^u=GNs!U$TUOZF**O5`hlW>I zR`1>2TU*_*8vjrK@^9aL|I@-S)B5Z}X=P%1?!l9{wr=nFWMOV^Z0_OG9v*}32=@Em z`q9Tf_{||O+tpW`S@`e&_y06FIn&_op<60k__4jvsVmX=o*7MHO7 zdQHY+i#k1gPFwXOl0-~w&k!QPFR6*C6cbj(Gf;(9Qw};A1Lad~hW2!K0}5UmXB%lR zi}SQQgq$CLdS-fpHKM0ms{}Md>;UY^VUz{ey4Wc$5!>~I41VI0Co-?3u92&J0S`Zg zP;2vY>7re1&;UHxIKa{sQiXAh*u&- zA_`c}8N*YT3_V@~b@A}nz1=!yFXjsx*!T}azVHNbVlW>+&YKB!jjm?>f1)bDk6pzN zKtO;dMk^UdFfvV0d#_&ZUTX>%@X`;!?l8mFdo8&HlcgtxQL;((cag&i2mA^2+ewu$W2f(oE**<7Xdz`0>)h(#HBOy1u*n zWbffSkDk20w6v8(g&NHPlao9EHrON5;tfz8HHbvoY3wWnl^~j?QeOj~Z{NH9&F_D= z+(5wNH>!Rqwj%?Gp{BXS}xA;l!SyGp40_(_CL6To#p7JkUc zp;AulDjV%7Cq3f&8mA!MkNc7Rr5rGLx*-*mpLxbl9O9LO+lL7=90rNnMI9Zy)87~* zTwb)@&6H(rg6-^2;9V&^WVgU`qb#tU4pS!WAYDv!D~qwlhGRm@^RhKHUR{h+p$-FW zjZKy7LU zZQc2;Kl^Xq`R3<9eqniIdGpQ}zxOXDmR7kU5ov%dld7t3vQ%keZfRm}u{qnB>FB!u z`1$zsoNZ_tTCA;zdVCJeLyu(4t28elQ{ z?1G^IBWypdLx{XDHktu#J^8#Y9ay4c5Gfu#Btd#9X`tl9gVv2&FnH~%x&XrY6$?3| zD|PgH$4pEma+8xLxo~p))6V{Fwf-X1zh=qC;nyji z;51ny(PsNAYr%I2`_!Htp5yHbz95|lBRy$vw@|6E+%ych6JEAA*H>3c#nGXjdB_a+kdW#=H9qPCI7{Kz2}^c#r>sW(L${3HP(*KuZ5Wv(Kb1ETdS~pgVsUuy zEnK1tP4khM5# zpuexQy1c%%v9`HR>QC?(U8+oI@&teq*G*U;5I1h;#8+WEWQhYUJ>9OD4Tzy7D$T?i zl_zZ0Z+l441g>7cdFYY6a_+*racKD)gpwAaw?M7Rp+If zC@;nys2=71=)~)0YLqn@nC+s0W&gojA}fis)c&w%Ql1pYbD>M55<8G*Mp?w~K>8FE zyiT$qh!mmWhf2v4>-COX1#pJM>gJ9|C~oQ|+*Y~`P}hlO;r2-#8G;Gvx#JASDG8H2 zR9BC1bEJvoPezCc1=YQUmb1DW2I6z`DK22{m#Q@ z^D7%OrM0fXkz8*f*WFK(;he$Sbqw|_0b*%wbFQ?)N6Bp8)zgobyFqUSUq{*wgvy?? zB|+K{N9EshbKO0Kkx?W)S#?CMag1G7vbM3k#CutsU~~uX=(e9y z1{&x{t79xbxBkx-Y>^ex+08&750gg%0^hYR*IQdK2p9S(ccauRSX(8=D!B3Q?V@Z-n+nrZFsM zxBL^_i8zKU7|d!rR&DW}zS&`2p~(c0l5SF;7N}_E0MY>Vx>{_Ox}KK*^0vb~=c(F* zNNP)S)8u$@X<^Rq0q*U-ZoR_TW;Aj~+B>ruxAvAsy?7=!|aQ)5nwJ5@Tk*3ftj!Xo02?r%(EC8Wl7MVSmZ&I zo;fmPrBIoCL5%?qq4C#gC9!_FdUj#<&i%Wkl@go>=_V6=j` zfGWW|;fT7Qa>|du`wVUYx!1UDVY^mxf$fHm_@H5i9g5t+Z8Zhy=^2=rp5NZyEtOV! zdIwutb(HR0oL^pES}85Am_^xK*Y@__;?mCc?Kj?h@x3R{zV*gi-?@F~nMT+8dNwsF z#a00mz#@ptE8}7aKGL;RMU4__H15=RvKnufF>LH^O3?9k4}x3Ej2vUiD0c#3v=n<6 z7+_sYC1Pf}$;2$pXjIm1YZbMybUhwVpTA^%5D-{gUMCCp4~@;2R?*0@$tg1$Q9ntZ zl2jSi82n|sK3Q&wWf8Gs^K!a%z_*AVEAOJ_f}fkSf$)iGgJCEgKwUP*81!b1jb_rb z0^5VECp`Dx7^;c8$JMZ^R5D2EQFV%jkcPeUL&kKXKs0`XIe=TgBVo~}R}uLbI->=s z?Juo5gzd5ZG?b}|>*2FXO=*M)$P%}xtRna<7SStA+>z{fala!B0eu4|)*)0f*wq8x z`bMa3LCnz52x($wc42aI0*DQbDO-fsadYQ(X?1;SzV!Vc|E#;eV8_{84b80VyZ0W} zHfNeUdRFc{{K=pGtHsUTOh<2Fbn3Go{od-m$E{uTkdB1y4eFKS(+fNIpMv-Pkz!p- z`^3y*F5j=6FS+T;^jt!DOzx?>^kLTBRqyyYDx$Zt94_{5LtB1&g z$roqlCgv7I8Sg@eA*6G4^V=u{fO;lO3!OZ!c#5=J@ojx;&)|^e|Jo5#imY3r=fHOK zo}Ockm0SNnfoaNmZ=@}s@1B^L#8G>CdgFinMO(N&roLookuIlgq-W zh#WeYxo`a*_8!e$+XC+R+pkSYL=BDiUUC7;`U*osot<4~Q#5I9s7Lc)NN^C_G$0EnEc-joqyVhw&rkyEX6ta_ zU4Lqg&T=HYgzc$U3`^LtqnI$miJ@W`qkrzy*Eht%xXRe%3+3=c?9dRi^B08a>F)N* zc6bD=riPi)-p-s5eU+Q-)zaO&sC2$_w|8*V^^yw74Rtg&yiExsIT)|BsG$KXL7(t= zpHAtO#vZj)J;B3bV||j$H@3F%?uZx|N9t0^B4Uy|7M0MT`g(gTt$~eQ9UZ;h`GMY^ z(IM@)NHN_OSW;#(h(mK@KAX|Y-7b5kqHI}y8&dh%vl8l9SE7UZ@nf!FqsBF{V@fl% z4EFj>UUGirKd-#>vQO?@iFZ~}YAm2yNW$h<=bOQ`!G)*zhHiEVLHu1B;UF3j=qk+W zdE_WljVpDY414kfvksZ$;nT;u{>G*BX~bjlT3U2$(h9HPqwwKe#So)|&dIweUCyM_ z?t1wFDemLIbP$>SWfUExW9*kb7qD9yVNC?RqOwlU-hAKm^!%MW4;L3!^v`I^uvoW^ zj*5yi!$ZZ!rVNkFSaEu5cW-)j^^G@mm-^YWx4!ZC*|+cB{jjpC4*1ZFDZ6T-$)+Kj z)SF0q1ff=cB36SS+mte{7+dL~*!@ET_a8sZ<~!?}^!=;WIso8%TzM$T4ovugQ0TFr z5b{$Inz7tB^=h{o>#SNb-C(84A$RXtB>p;Ab*sH-*LL?tXO~_*eAH@8ZcxhDd zTMB#XO!&jGcBS!3JwS*U)R;?NCv=h{M?q^$ir~hv4`~|ea=K8|5%DO7QU#Mez>)Ei zQ6-PIy?%@$vSh3`I*cj=dk@YKk4F*Q4UG{yjAOhV_Ns;OGx`GjWPkNyr_vACC%+CUy|G=(oG+Us1O3r$p*wRjcW% zJkb_L!p?z#f^`aa@7%w$dwYChvX4t}KxS6Fd;ihxdk=};j4mKu9TUOMbmlj2-)qWt zHRQTC?mc<_!MC>eo=wh`x(g$p{NOjg_Whp>PR(VzdUM$>vs(_((Lbarx_R5{EOE9M z#;2CIb}OoC9Y3?Y@%Y6Dw;wzuyzor&+bpbYFKynr`{c#a=I;3HLQ6;2P;r6*5@Kuh z&IeE1=^nI~Q$Ht;3M6a>_}U#fW_4?~cX(uAq{uwOmJ4l2?tDJ^zE~Bzy19+FQ*!h! z(83^A+|JCg<(GXmwGEAB7bV+#E_EJoel!qsW~?jx@S{&gM@Pj)kG&6I3{<+09CzOmt<2Co2mj zkX#e6l&af_;DWP`w*&c^*_qb%j72-slato40}Xh9;ku!S+6P#-lpMrYai8R@xfbh6 z&)5`+czeksOvikHh<$n0zv0JKNEk6E04;h+tPr7mPE6kTraUmHaM6dvU`8ms3J{kr zT3&SJ{CU4kOdcm+vz~dnwOw(<;xCQ&wIpNyA@^y+Z;oQQEHPf3)z^JLa0xM{9oIJ2 z=}BpZM3vXnJkD|!6NaW8*l#N+AH_!xS|?Rvk*EM8WSM-vqle~_b$Z$~avx;B9xTvg zI@;URPsc`w)lb{`xmucfvh8!z8pG`+q*jkjB$jr$M2}R2juu*P(4jpmKcOQ9Ml4?$e3pP z1z&_B6z7ZnW+Bz}sRwS{uO%HYILMd?>|8J|?#|9Gb#?W(wrWP& z(%r4~+)Q_O!J2GD&$eSTbEVCl5M)03}?!rf9saRxf2S zY=s{5gSHm%?*Gx7r?#G!*{UyVqb>XF)v~m@{JkIl_!d!&!>L(k*ZS(TdlqDaP;S9Q z)1n)~CT$0{qxATa!s!jK+E|zCj<^to{BsN>=TD!zph9Y+8oOY3u!PJmbreR)}YW-ybV`TK*#kre&bJu$`Fh3_DGTt`jb*B0q4_C-GN9L56GK8T`S+ zlYnEIIM4-EtciL}pg0%P$ph3kQf7JtFY;ehKG5GBiyBgBKH`FFM4&;u(Le4+t4H)| z5G@cMS2Y1L;nKcr(FB9E8J9Ymw1>7?mSuQ|+%IPVpe2~t83V>2<0l$qI{h`aUDg9g z_myV(wW;TRb8{g{_u@=An?G@Xp?GX@8IskH@b&LyTI?*1WOF)#?Q}Rsp#O; z?Z^*|O;`zQQI%{>Rn)pFi&!Zw7&zF^+HoFbXHqY3x6#q1G{9yfkK>9T(g(i3&>hWb zkmp{9X{f+FX+@Qis-TAIgI3iCHFtMbSJw&VHgg;t97I|u4|1J<>N%i#2<22p3~5z* zH%tR#LB$PNknX0}4U>#!`!HOol)w!`T@{i`pPt64KfK4;U7$Bhi7F2YW~HhSPxb+4 zu-y9L~>-mmU|l?6!h!ek<& zmev9sVx87bO2-;oNt%tb+J-u3MiS`_WBjq;%6v6kQvOp1mdpFfr%(Gx%09U+m4yoO zB}F=>PV~*?atDCX7Fc@+BavX&N;qRk!hzG{L6 zyb8EYO^qEn-EJEdo!gq5P)^+vOn-WakOy3$IvY#{HzMkN`joRynLl{Y?s#~5l-`^L z(h|UnDs6Puib}D+!H;}*UZ)_R0j`kH@%NarSINuB8VOp#&{{bOWwrZQ9H3C*N$I>_ z@XUthk|2@q#ktUTG~6aO>NC~M#T8b*dC13 z_awIaNx<%<)U6bfY{?P4y(_wfKr)T805!1ot|&fn=Hm704#M%=a(-x{Hq%{EUB}ao zq62MWwCl@T1mUq?FAp%CQV~=6TT+T9NEFcM$e0*S4M(sZ{dl8J?O#Mz*d94#XgD!b z44JZGJ~2VI@swUnbLze`*6>Oe=KO*47_9 zc=+tun{U1K&huw)aLa70ZM^y7T}Te3u->(eosF&A<5P1~8c2vd+vtMq%dfb7|H;+b z<~Kk1<_F*X>78fqg~es0h=hOiy`Q}JXasK4+bJ#7H;v-$uI<&9w{H)R zTPhpQ8F>WT%;4~-EMx2L9={FkD9WthzJEZORbwRmz@k$z%j4{v)p=d{9zC4&%+TXk z2p|q?fW||EG;`7DcsV#UWJ;J+WwTggKcfNzYbv$BrC2bP!jhaVjb5&B1-fT!!CTdM_!&0c8?~OvvLmE13XA z0;50F9Qu4eWN9VTSH7c!1p~cvaqDG9lIz1mruQ z)(5rv+pHuNIx|+~gobdn0-FeKcFqD-gFd8tJc&aeNlp$)O>(qtZZ=JTxo;#9DEt28 z2(iXLv2;WZ_`?sOi)4aSyHGxMYpdN)U~NOY_5z{FbPo*{Xfo6GPaPT3WS}@aI9VL- z@9vzRo_O>56Wi`t1BhscVF#aLR=E=U8HsDJys}T5ht6C!-__xb@aAawrfYg63-aZP zdbS1xD49!5Nc;?6@>~};Dv4Jvhvi0C)xd%3^|~&R$9Ua2;b}{UH2OO&;0pEEeQfap zepOM6f-a54E-4G^ilJ2>=Or!Q@rYh#)w$ z&S!3+%v`aSANg~}TD7>&b@X-R3uEK6)r2u{MjEofAf1*W}`M1K)I=|1XDz6?4^Fo z;CG$F;}_W8)XE;y6zRjIScn0HlS-eI?Kmvzp@w~#c$X2r z4Cx+M3>9Hrqvqyj97A-oti$7kpz>S99oHsZO5ZM~Qe*~EotK9<<-sIyAKKD&))u;#xe?{9o>B%_sF}S ze&9%4JfCM0ou}ngM2PdUkATwtGOPwK}u7tUr6W)jQ)ww4+lx=`IZC z`UdiY!?4}jDC%x!Z=cn#A`VoaTUw#aD5Ule5a9_zz3%%ApdL}Dy+HDrxdk>%EA^23 z<<*UQdylqvZ}UJlHtWSy(=0LE4Q?F}iZ!2H$dp*Olt&*2JljOsX-V<`4kvYWG^+sOYLa9M35NRuV}vIhBaIDaRUPR-w-ZZFp}j0pE!`ae zl@Oi`cg+)EY+w-8mzYp-RWAaV3V8(r$m(DZ;_5z(Y!mG?aLir8AF$XZp#aE zZ#{cFJwDpomAkvU`ROMgig)x<%=++QEuJLKM@=|W@>jq79}gzVqF0e)rEFKl`*T({)4h z83u_u&GdK);!V*Q3V_St7T2Y&Mo)mYPWwAVRW{R^TiIM+TrFif+o3wG=2l~^t^4w^ z60kvW(@+;5;T0MaK{Qt9VLx%jS=?zjDpqXI*n?enPM_2GG5Q-L#Nw8NNGSUbyv9bK z?Hj6U%hzXnT5{bLRW&4+R3 z#R3TtpcX-~_n_{n4pfG26Wl5p89k##VX#0RJVJPL1d%_U!cvPlq(+Turs;Lcu_N9+ znJ%oZGM^G-4|tCNmvCNDK)fnrJNYJ7(~1y@t_P$iiN@H7z*HH5$!{3%i>S22c6J6q zlOU79dAne|q_8{R)dl4L+yCL;F0ZVzH!wK>@Rs(D#nRf&odwEl^#k8c429Hc42$> z?(Us?TK+0unm@Jm(MimGTTPK@u}T30bq0B(~k*wGw}pA(|MJAN(-3j{_cgy*gl2>8J~ z5qp=YVec3M?1g@j&LhCRNsyt*poM|w7RkqMbjqi}csH+Z?HAx3z9;PCO|np_YH8iK2`&0oP|@OGL8HzT2jF~H~bY2`i|^79Xq zOpHRWCs;(TdgWT6{grFx1tgc{QhQ>3>9OOnIZ|znLaKdT8yf0NDTPP@D_Q}h&XBSa z-_iFHluW&7L|j8X#M38bK9)YABEn6G<3uB9=&5fg{zwSqVB2-xGrQ9LWO2vXyHsVtflw%6dGIGIb^IFQp}PlY6PP* z10rE;qu+iz&#>LN3gst^;bAn5yh9pdJ4+35!guPw+AOPV#@5E^=8hR}bHfS?Vjewx zCf|oQmb~N2h>@{mFi~23B0;Bo1p%^K+0+`+kM$`+I8S3--_+Vsb7Q`jpneKEq0hki zaysM6rYIAdkvo1P7(wGz5Uw!5$I36$%zzN+d|uavuHN0>DI(clQ<4EGOnm8}}Z~t!=gU7CL$cCTAB1ixZUdh1Ko7 z=kGjz@&5YmT}~KCj<*kuPf`2H<}?{goYY3`@zj*<)D{@G2jGm3(NEY$tI-g?VRn9z zwnCY)Sk=NP?FZU2Ig&cSx2U$?Mvx@+0lvq{<+TmJncKCI^fe2EBZ{!{& zSwLw#HsE81^oS;t#xU{3Z{yi=Hw3<~ub*R8re|!bZ@MLRZ4+wS#n!0yk6~6nDQy&?Wj16@|x**JGMkc)$n#CH3Q~byGryXF}qXtO~nGu>E5iW%bGfkt|mOA6}i9eAM~@mRfF1Z?gh(}Zj5pvICX|tVGAvuEbE6h9$BvOljCGX&%R_W0;*+493J2gT z)<#-@Qe8uBGMm7c0UEGQUp{)2W{&-um~;-T4Yt3At|wtyzen{0Hg|dv9o)pyuUJ_* zsuvb6B_8_#ZUt#`CFceS^!uPprF2jAM> zTm!j5gF=%D&)eZ6M>v117FJA?9|&?F)9ZMVNb)c`0%#ZdT)J>wiG%`w>7tWK0E#o1maoPp$Co0gad$9J zI-kytPe^Q$zk7XrP1X<9!43>^Gor*yv%Ade%<)8eC70r=jil(i@SebS zUiXTdHYT7$4t3@2Rxmp=ySBP^Z)|J<)I-h7*J?7k-nET8i>0lNt%tYozu3L|_QNM1 zKYiotpMCpxOB=V}`QXPNfBlbd@4X2TqN`*>^Udm7gHi!NvQ{4rwQPIVgk0k%tx{Fk z-lxSww0+NZawm?D&rDexobA#WJkw-vkX(CZZA>L*Ui6cm!zgQP8#GCZk%;&onuBzdNY`u83GPb&odgyu34bcc%0-Qv~gwkw;8@?r%=ae=eExO>7ISyl~A6gAW zrt?d9cipjQu^4d=;WX`V1ml5w`G$-M@QmV(jV`^{6_z7WgrD{GPIEK;_~DahjD`H7 zh%m96X-UYS;ka-hTv7md%UM9^;(TIB9QTNC3aB|WrQ(p>ZwHt+{(_aed647+x_z@` z5DhuUS8!+`eAEu4m7%l?{r>ChrPPhBtI=o1YoYp>-at00bG>Kh^vD_>8FfzVQmR2> zRb7LI0kC}}Nh_R+i>sR-eB=Aw14B*i9dJI=(XBAr*{izR{rH{FrdD?flXJ5xn=_>i zy87(OmUaY8kH)`#0b_yfOB0JL3mZF=ORK}vKEu%Q)*D$V7l6i;8Bxp8RHapZLVtxYm`UbtRd}=ru>&~hCX=NpB_np)Tlj0um z4q(-uD4F3a3-j1v5C_|Zjwt5B_M@*WH$f;wJ#9yl4SkD2C^^qXKS4wyAk10C<(t~r zN-EIS(yR~U()`RjZ@sZJH*JHY&i0nl{PcsnJHPSMA9i=Pf9WeFUwR#eYvHQ7_ph#;4hUtp$KJ*6Q^VHYoOcENTzY@a$SYq z{vu!>9i6xH%&ofi>y^z{uUm=OJw3C$yt+f4+`adPet{34eEr#5-}=rEe*XCRr>ood zzxBQU;@z+P?!xkp6uQ1a;K~qW*i_0Xtyv&5#oH+}*5$=M+qrC~%Ev%&??B(vH=cdt zd*8M!sw3akYmf3mf1>mqO5nWcLXv{4Z)d=p9cF9;y zojM!4h2p(%o8V%`ISIIu(`C{fJbL_sWnmSSC(mB6&Ji)f@Wle>Dk4Gxc}EJ&1QVy$ z42A7waS3w|CRFC@G1?=RV+;Z-RQH44yHD`&I5)D*r7fwvQV|7?XcQ1)KFKEpA1N3r zh2Fz!2yg1MBqTXKJdkL1(C`r9-Ld!x$6?xvf0mox_;#qi#|bh%xy$Wv@xplUxWllK zB*w(2b&5<(Ak%0=@Jze?)`y0M=jP^DSJo^~d-n8==g(iv%`e@osjI4u#=P3AQM+`0 zi=ONJf|J%dEKbiaz4-8(7W#r0ieo4|rDL)d6GgXr%)nOImx_3u4;V{v^`!E}0Y6}FeQZ_h5Tv8+>FNHLZ; zQO?QfmV=5gC_1+c60RB~cZk-MWEA>*zT09|wsvBRQmkXZJL=BwA_etG-os<#ojtu4 z!@~SKdyf`MtGdDC_PU?Bamg&Ltm#)^Yi=n3gr^?+&thr0t-YNkinnbV;`1-}fI%$7Z8T;_ z@AJN|C2vWVmoxl$bxjc75db&T&Tz+&*#W!g)Nl)ci7T?Z(1Z~ad{rYze+#`Bb%_s_ zsBxc0dIugAxOadcVI?T`YqWvhih$Ajyu09f!4$nC%KpnQ1*#Mkh9E?+olhnZ=IA<- ztVOZmpDbf|loA%NicGCa2(`ttMCVF@V&!GQ<5*e(!-XDE3OE$q6)J!k9V{xRw~NRf$%Gfv%8xscWz$gLYGJt9C&K6gXeOfcs+=pQ$~81t)1nj zUUS=;s-~uTsE)w1Rswbr3JZD=g^W9|DCa@4<&;93orC09QNG6m`X`gn#QjoTXY-~`i=~IR3JVIn$?+w8V#4-|v;g7h0 z3h0P90u>KIJLyeP0;+BvTRcEj>Gr_UaQJRfjg6-PlR#b_P2bzW%Y>+2d?TByUE0%*JJmDmJn!7KJJ;#rFg8WW-)e=^uR0rk0@0_Y^-ji@Y5 zgK0)e(IfbQ&^z7nFQ+wy!>ekHihT@~XL`tU_&B2CJ;~6rI8Il=HHh`u;@9m^=y7?Q3@k>~t7?+WV3tba<}#iTRcB`Q>If(ob5j1sla`77Qr+kSF zV;*ZweM3uomk?189No`=x&D^jJ-xz{QAMd?NNbsP1HLxKNlhT>H`u$iSI9b6U4y+V zX_IUnN+#+0gm>A`@~TP=xI{*&r^#(b&L>=p)dvac$wNI`QuKE)aJ$_y`cN7xvHYzHQY>Q6_l`XtJoJ#9BLIX3 z1a>V43iPYaI;$=p3}F@oBKCZG&`czDDHQ=vBhS2T;3ZMHBctQ<_KqmS7F4ICS+)QJ2WIP%u2Sa}geCTre#+pC3swmh-HCqsVmrAW&%p%xe9d$R`)Jb38fK}pqDqPetmUw4R#p299AVNr7M zQ>hSN%7X_EIMiVKKHp{Gpiyyr@FmkxTkldxt%j&YUje;RC+nyKe@Da zZTI56^Os-i?i*j*zIXHPZ*1Dl%zDXTrEX>$$i{ z)MtGPF?&|*80ZQsb>~ix2eYXaWM;Gip^t*xf!DJ8R!|YmLf~YyXPJCWw z!#8r$(U4nm`dp!~h&3JjI+Vj=k9fNr4JzU(v73O;h`0J>DH6`iopBforGP&dBvNCY@qvc6uDO-1$%QqB z_Kv>9*vumB1>kESLzC$mOxCq_aMaf|x5X1lin`iNnqKJQ+tjQyRrZ!5W%}dx2s)hb}@jjwX>^T-m|mYKYIrT*S2<2BWVs9sRk)m{baax z{6TNufV9Y9V%RnQLsNs#D!cHWKz%sLN=pTyB0;dvEh*(nkPpRVr_VGsHA6PR6Y)-D zYS;M&?Ml?jmKQEbgF0w~P;u%EPHqVz1(cRx@eO16UbJTXi4CIjfGkLAB-P&0URPf) zrGU~iJ&Sw^I2deDZ*sCwL%;|wuv}4NK3{wmjCDDuKpz#atgPhN>Fw!v>IE=}jcfkF>x%Db0kI z0=_+hWgm-a3>dtQNRFgMNKmPm#xz1i`T`{%f+`>tvBGsh!;vRd&YosgVPbdII0X<7 z;P3vxO>WU!qg;{{wQeBfmX@+rE7*BSG$2b0b!{9NE0J1Jt}-d#Y>Bp(#%{j$CXN^o zQl`CtksQl&(^oERtuN1g_OtIL2m7>kl*+Y7v$>DhSdgg5a!k{aUA1cvH^(AfE8BC> zGP1Jd$bkF48Wvgna)}XS0&mJ5)H@osha8ZZ7ut$eRr*YXRJy){aR-pV9Q%6U!2=KL zb$RUQ3(A;8VDuV}=_9JZo^r%^xSGleiW#K~G8`~EP@8&clsCyD1XZ$gARuhFfN*u6 zGoS&A5@bL?#81G*Br%g>Ez644waGPUIs_i6YW&iYhPh`lO!b9bW~pmWL|UoNFQ~1l z?QUr5Z)oZ5?oB4g=2tdu)HL?iHcGB(?t3{swcMAOzV-UIZ`}R*!rBcgDQ*=^cKXQ# zy*&^Z&q8hX?3Qk1dMqt1C!Gcw)e(=c?(A(}y3$1R?dm||E9(_V*~K-nN>v9nW{-Jg zfgxvx^NSOUJ_*|`@4$AVGJnFdho&OKQ6mksio%dtfH3)}F*`@GGCC3kW1-B2Q35<& zXAO_AVyo+$pLqI(qwq9n*CEoO?Qjx13($MnRUd9vc7Aq_5XOWZ#^w@p&lHq9U6k%& z^`gCT4k3AIhXBwn(R(dx(FLvULVwNCM!FJzk5FA4VYp9J9a{0bwS3?*s zT@|Hek#-RyncwN{hwvIpkAU5_6is017DW)-_v5mCgm*xM2gPi}8-b66OW1UQZ=jQg zm>1X8)h#S6VC>!9J?k6Wm# z1R~lB*az?KVEF02(XqxD#l~j6!n6<2cEE8E`i7C*t7){r&6PyPEpi zmAE|7NlQw9>u5uG>0nsFP*zPO#s%#_aRMounPzy3ZQ&x^Z zi-rTG11&c!Dfndg#H=*E1)d?KJCJ>?j%nZ9enTyHAnA|*>U{@Mzh9QBxrK$kfxhv{ z2{um;E-hxn>fFM7Q%f^Dji0Dp@_H;HSV{R%7oQsnWbJv4WzOo0SXXB(ZDSl|@9qYM z__M@oVCE69aL`j!NP{w-fQtw~prC{wdiY_uCOz_Ga1$Is&jF0BC#BBLnoLh;xEUPu|Kt@5t zqFZ}qIS(X!Zf|OM=grqPSLd%>+`fEqr=g~bg7o;2C%qUQFZmAbL9Ysm5~lS2_JWm~ z!5Gy6F=Rbgv`%)=@d}aCbPJOY6wZ#5RFia&RxoncXh@n2@Od}};SK2oCDum0Mnk<1`6GgdhpLM!ud zYPyPqTO^%=Au?2cVQ`Wc7AQUW!LpQlg77?In2C%UqpwA(C4fp*?@zH(MrNV)d-hy$ zUcN}Tr>$eStOsPe5KO|CGInF+uv)4yJ}_|U)jPM|e5bpwx22=4zNM+AsR6=Q z)rUbjf(!2}^oxuHkU)!l0W$vQG61_^1kv@PF=ua8Vl#+QCr+wE&&)A|E_fQL8;BOT z#;$xjFffueAm>qG&&iB)8ea?yjUIXWMFR#UVM)|MlR2Sa`~#X-;Og zIdK{Tnge3qx5J;U$;XxJCp@K|)Hxt-;6c)cmf2qK;4D*Ub7QB@6&I9Lsgw1*vZzNW zs7D~VbtNqlx~Sm*rf#4Swy5arz~P78_SS+2=D8rS!)?x)pwx%Xt0LWCbPP!ZzQ-tS zieI@ADk&l+PhSG^Zac8-H36?wFYazHH`F(5Zte^YCcyjd?uFgGiz}<^vZ%xl3Pw+# z4(>?>o^YEQBSA^EW@V&upTGXvhhP2SrJJ1eto^=z`c&t%QR+`lyyt2w#As=|xpnxo6nl^-ILPO3S0bZ@Hm3Y1z z`;HnSJkl=u&>~(#q4n*({=s2tkN1{u8$_d*(0h3Z@J^Fa#FU${b`@fw{zZs9oW%65c5? zI(3qENn3*Fu$m6v(%MSoU0dHQD=!1-^qjHrH08%?mr`)VNW#(}sDvGz9a$L}(wrp1 zpumL28&>2QNXHP^*jV4usn}2kFa}H{>0rBnADZ|lcVr+3&pr#IEQwDae8@_A?9s=_ z@4|ZLhzNoT?fxK?Fy)i)>K{suPwC!c$5GLRo?-yUgUAEDfI>DGD&iA@?XqD&kqyR? zA<5-}mZ0|z6ekSDKfDY+d9eg!KYW&Hf{~(pl8B_7eh3JycR~LL zp4_^!c0v6Pp8i~j4&hlq$ue5_0(mJ^4P-9tZe6>4er0ibZ+C5ec7ptVkRo&FFbzbX zLOaE28zOJH?B`!#6m}*$9p$fxn(A-J?9ziy5dH}ND{vsl_;_^^&;;wLBTqPyzw zhF|{WUpc9Q*u+ouV~`z&=H@|ix4<|Y3&wKIgj7ctXnIo+GW29I75;_AMjM2r8b(xF zCPn47aUd(@1_0=;&MbP%oH|=@Hq&6Vmgd$(b6cXdbEvC#WNG#4+Sct@Wk*SQ%f$4? zP-QAdsr8L$J_@f^np-tKu>&;ff%d5qFdh_2Ap zr?q)_bnNrr_|~nr-s$R%!}f;u)<$hP+nOut>|fr|fb9$kF7$S4BwzRKJH;Ec(KG_g7nVL9@(AktUIOnV8lO^t`e(x24GMLnULHS$eLVfFsu~lSpMLT5 zvFA^}bRrnKUO9b^@d(>@D){IkZ1vx=pUFCTI`fs2G#Q&CSL2(rS+W>~XU=JP zmz$BP^}0{Eh~32FsQ)S`sm;tQFRRdCFgGxyNaw^E#Dn&QZ&>UF=Q+Tb*{!r7jXw4` z7UZczzsl!0@PlE-%N9Q4B9FQFoxM2Fs)m94Sam6@e2 zCU%#_wY{2VHEjd!eS;-c^-~M$BhyRs8y7kTN2gb|-}>kq+Bs5k8k!vh398G;%p&r) zuzhKAX{#?ak(ydeq^Ac)#`T#QompJkzO-}go`WMXl6H>B(@N|HZd@jML&-IPX;Z#b zP*Mi8rDa_>A)7Vl?d|85v5e#Lu$^WpGHwPi*QP)<6Vgt-Q2?thnL0{%H*iG6SX5e0 z>5+kzRIRRW(8IE$yF008Q+lFrFcFTDYHzv~d&j4ty6v;?WtF#Js*%+7Lpm_GAK^!r zHEWOMG%~BRvSSp-o#QGD`5b(qkQ{7Ug|x{sGDy^Rz_p`15|fd>lKOf@-zq^0i1wtq zvdRh_7wQ`uczh^Agdo4tbVXvBf;He<)^)k1qa#Rx zRu)C*VVz-)Akv|TFe--+lM%psUcPh`E-F8ZieM&|u@jAt-QSUgq;o_2JOfLEMf|89 zSY8;i>!FZg`COzO=0R69FjiVZ!iVbn*lzjDX;wStg2t%Fox8Y2jL*|lMxO!Hy|^$h zR+zWGvT)_%UV6-!$dUE6h1sdJSmnTj2cYW{kJCL4iPXI^dYa_#!G|7}N_OJV&nhZQ zwTz7XFa>4mqzdIuvlN9X8E_l6DMj9hb(srk5elj{e)zseF+TGC- zU79-E%4=(@>Kj5q1WcDS&CMlp1dp+hOnyas?N^MGgP z7r%J&tVj!^rnChv|GQGT@G4e@?U9!DTICM?}=2CQPoB+s?!{B27@e+) zV|9Ad+A^dS8G68ux8vb>dw^a4Y4M>i1U2)y=N?h5eC(L;FT(cFKS3;ijGxn1kq5$l z5c1IRAksd=ehq&XuK0Wcjo;6uDyhVkLgqIZi4?U(owSj5HI}T8%9KV&)195&*I&JR z_x?L`iz^%3=f|h#b}nAsyL5Hu;$>#S(TVAgzy7_s<<*PV?-0o~@7lV2dwKg3mm?d@ z{OWEzF-m(;yHsWNM$h2n!uo|Grz5kIyWcrj!_;k!&5AU3Tdl z7-4E(-MyNem?6&WT)jQFzBj*qeq?HXAJ}n4iJ=;$MxhgLlSHSABr$}o1okCc*>6Ut zX4z?U8;1Pg9~U9iP(In|WlkMZs+KzA{RAa{0^5g2)5)=M=#ABvmRIRHw%@`Xu(z7- z-NyFb(>pLgw?Qfl+5_40txme&d)Gs9bPU!(`;zhs=GT44mt5LgqCPgY;ZcrsoOyEu{C^%8ow8dJ)=xkzB9{CD^p( zU|%_UlydTmCD_D)x5p%6-ckeY@XJ8`aj0{~8 zdrI2_jhxiPjMoirc#iq=RTVvi zRv$X#KDe>M7fEA)kJ!WZpu<0X9EonItCdLL_NSVFcUP2|N-38z@19RQSL>Lu;eqY- zmElD1V1M`6XkvABez33mkwb?Sy<*8uv0poI5N-2S0T+Ik!(Qd%PyXtse$Aiv#5)EC zdv(RMpM02(4n-@G`mN_=RvsX7kexXr6(J(SKbg3U7DGPlZsE4%vbccE^-I6>%Lg8O zP`IS+fX_m%Bn&JliaAbvHyF6BiW(AwWKdmXuA{T^Ie&}u+pP?M`wa|nLO>T*Ad4qZ7-?vDv=C32lI{zWT+z%O9kt_q1_sYVF0_%gT%- zE(zV7!xliZgCHZmDk(233C#iQ!J6v&Is*IB*7kRQ@`tQ==z3ect1YhaNGJAQK^Jar zA!vr^BaExg;Y&X&I*JHP5NDVIa>7}rUokq(Y8*U}5qfLSPT)PAnde~EI8g&d9U*ae z)E69rMc|I;0!p;O27L1Paq!L~D7u$pMz&u*bq+Gab_+l=5HUh%!lP9)E2ED{i}`c8 z8M3SS#d$?KR7+0?AIP1Ank*wRGdNBPik&#eo_z&xFDk7e$nXbycK`REu^qzygDP%_ z&&iXH8y9rjtCH8XQ=G^SDj7QYV8Rmgh8X}Jyu)?^d?dUC1Eh5l1enkUIb5VT=mjYH zzAL6%1FeC9R4O$+Ju^2qKRY*{PEYXlF|=Q~erxB#rSa+6iP^c0y^Et$Gg}ufU%LM4 zy_M%+1%{+}OLYzI%~beee3~AN>0F-}};cXIFQsnmV>F-kz9WlSTdDYd_#= zC|KqAt{YHHaQ8S4K*Z?YhGB>aI8k&hpmziMb`z9hT$j zoW^bdA~{w}-Kc?vW)-P%drI1OgyV5y3dwhkw_`PsUuqRzC6dC=p`n!P;lbfyDN;XY zqajDAD0aj^;I@tq1l~_x65M9zAh$A}NIF|$;O!97{G2k7Tdl0>Pi8KDt7H}bN%B+zSJr2FX zVgNOeF!UKP&gRq!_(s8y(Zqwa(-7q8RLFn_Y%Mnbxf40piGh$-R92Y1C++{RNp?Z> zAh5qe@B#0R8X7!eVDSf%raB`xkFZVv-~b23Y$mvOaZWk}q4mx^$6vda*4Z5}m~DKCTSE<^pj=eO2-yW2b38hhjIQB#?+@Hhk(H8Q*Euy9UW~FsLm?SAl4A6;P$wdBNNxd59K&{ zl;ATiA<)I!@ni{i(M5f2jRO~&BjLPE4<2|>3ftzSteeqN*Vaz=V^u#D_-dXY{nRTj zX&&*o0fJHff)xL$2R`jM7E%ORCUR>yVFP0zO=oC*Nun%AZWW<9 zRoAGViTU}@e)6sK>}-n>DLtLAy|XXwy1I$*-a>zIKwuF(`9|LQE?fjS=#%IJgetU= zuhgqOE3Zhu?2wXq<)o%d`Nid#`6cY`FP%I~W`WEQlHw6)?Y`9{q$5MI5-D5GOX^Xl zUBGI#a&AGf7UgF`CiDy)5x`oXGP5ivvJyHNvk6jQ@{7Vf33j|jzHSrOr@oHSK z*x1tY>V=C}cJ?mZz5kZp>|+yC)ANfHv-1mU8&mU(7jN7eo0{G_e|d6t;mYmTw=Z5@ z-#x#3ukN^DN%&qM<_YADI7fAjwO z#Tz@eA{9a&V32;w+A?R{mtKb6*Mz^px82&R_S&tJbc zv$%$42z6b`w2G;%<3%Bhz;<;;?2DoJR0nhAr4uuW(V*w^XW}Ok1ZX##r6nEtd`Rnk z?ndW_|EpVj7=Cvj1!!u0`@DOK0%&ne@)VfVSlTszVX&y&Ou}BbTLu|18tW-B4O#S}x<4X1*HsURM z^>g<*^7L_eSW2vc1>iJ#G((rpO8Q%e?imz=&~Qe7gKT^OV;3nnTmo;0+9o=c6k9XG zS&BiZlQ{8`d&#KE{)KCd@D$5pSnf0#LWulms17-!g_ObQSUlUni(Z)4r}C!2pZOgA zdm^WdEZ*Tq9s?-yce2CG5jgAq+YtnkWw2r-k0le$^)(H(mGSPj@v-5xmHGVa%m*HL zkgt;M-0Sx(t4YU%i5^FeG8*MlXbwI6m@P@YucWl=hhq%ov176Za#dhfc34iqHiYvG z&DzmG8*-&&y$KN%20nA|h%DsQV`DEr|D2JjN3?`Jbm-|LN5l)>NpXdqg>A-bX`?53 z5hVXm9TqyIc&) zpPbp5U%8Y@t3aO-d5=%;oWJtn=H5F~^A{&(w-qneH@4*$#xg>Z5d>?`u5>pP%ux7? zl>k(h7n$-=T}gyVj*o3zxcK^qpEqi?qqn=GFWxoK-;)^V=<8KI#T}PjP-0erLrURc zba5lRqk#8?#auB+yZ80t33Gc&Gja-Eq$!;|t5+D(o?lWyTEV~-4KX76A{Z0^AfgW5 zG53hPzXU%OG5M0ETcIc$fE2109!`y*)k_^k#QoSa>J1hDuoY#Wka5n`?~X6xxrZN9 zwruomP{^IydISM(=ZoY8ot|rSB)!zqF<_R3BSsO5!vy?-=zVy%7=o1II{NQus4lU< zj&WP?%Y_#}NRQl`;Z%}15SSc~uswozkF!tI{T4^^TEU4WfpT!%$!|Ft;Qy0$wX-L> zkLBbdC?I8{#5~)OZJIM8=|OK&k~D$Vy#uNA)Z&`qO|vVTsqrao z2WFO5FWtN|yR^dD+0)mruZ)LnY(ZBNRVJ1iI`5gAnoEpW;t%E^tgJ$nog|z)sH}k2 z_4wpeRZR`~B|R}7D=)*k&t#n=fK$~po?}GUI>49~LW&FrFw~+ZWw8GswK)WU}! zeVp{e)J+{?(b0xCGuJ7@`lXDiSlvEdg_sYDN$UbnAD0ZZ^ebq3_@P7k(FkQRY_1-U zpvF^*&q_pHsFDZ?qDPFh5y(MM9Y3exBlV63lDmr|1K6_o1%6&$R-<^6L=q$?@lCEQ zrxfRYOJ1$Px!F5f8q>){r(sLA)n;=v)>S9^d!{EwW+q2fEj@VPpf`Bv;YYNCKz`}f z1aG7rZP#0g2=M3=VVF^ngOE=HuoT6gJmHZ=5WWFkEq;Vij!-&Hdf+^x)7;S*4-FT3x5dXSM+Q_{_%4;`yP}v{+5b>&WBk*Z#Utpx+Yewr%UVT)WqdG_b%UkZFF|J zZ#V(fdxwX5h6ekR$%%y}1?i*}r<>>_+c{laA}{OF0(+-5<>d2yf_G<|Ru*~1<)_Y( zXlTpm?x~l7dr8I1XR}{CX%?#JI25J+S?`7f;G>2L4PrH>3|~Kl&8TK~V(q#Gj}NHA9p8srlX7 zrg&~)C2Z$^^Be(r&xE!WzUc7Po3|K_8%~(eJo}MH9|h5BTRl5P$U)=8@%Ryp>lG6$ zkzm?WyB3H5YQOR?2bOmyCo62E)CJEdu9GbXq`63@jJveH0Fx<8j@1)NZ&~3pCSYvt z(4Xac29p}=&L>7j>f1WBYMfu)+St2{w5P@=UVrcN%Uc&0H_!jhpZ)j0^C$mId1-C$`tr_YUiZ26UF`*QkAbbtU45_}*2;tu;Jf+~ ztn3O@rx#XQx^$o!scUKDvhxZM>9+O`T^dTuDuRitP9`X1QYBvqDFDBF4{uYijf9~LX)vXa{a>9OSj+Lyn5UD+CQ9H-@CN5v3>pS8%t|j zNdCUYuJD=QBN-H{&=a!RnG*T@x!i|PJNpP%mnT)GL@(tqudA;k9n1RwD=IqUE$4ZC zQ{(L1oNoa{29sP)wjZ9%IE&9v5&a=phS*|5g{%0sIg%WmS}IX0Fl2r6g2zQ4SAeUU z!z4TPi?|4zM1cBN{9$n2gjQo`JObYrUxjhVq<(Wi@N%GW`qV2Ds^*mH45xNe)nxdZ zH5Pu7^&*JXRNv=FClSp?Fklr|IoLrb#FEyb3OZ%jnq3D^+1U)y5~hHzfU>gkSTlP= zZDnR&HVp>@@9T>zJ4G@9yGkMg3ko65lA-nq*cFdG{0OPp!XwFIy5^9x%fWU>mJSA_ zP_0MYQrU=y;O_Y?)KKX$@KL2$Y5`mGl-WSancrmEf`}IajROScH%$2P-{SZ znrq4`6TO1VFo}g%E}Ly82j6z;HnnzX%2D6ch7)*Y@~jdc zjyCTREa+w+4#)hVz0XRqt)^kVK^?}pc}=cipfanryrhua5P}r%`;kX}xH?|HGm$g<@$2)tBMW(|nPKUMw+v%yT$@vSjOP5wQUY%dQI+&X4 zjHjyWnjIECJx@f6Ay*Rl1F)M)OarbcFR82)_B3kI8jnxS&rdHbq$atY$NG}`kd5`G zl7s2-+4Zfu)^?3wNJd^Hbu^d#tcb!Ri9izZDTnu{YmM^?i_R%7&nk-P(~h!ptz_gD z#;WQw3rn6q5vV(2?;t?Vc^dhGFptsNS)GXn^2Ukv5dlJM3KC^pkdkwL7cb#?ny1O19i ztBL=hH?&UW5XN#&ost_xW9(W#34%=28S*h=AZZNvhZbSs62P1>D>My@W{%jI`{Ims z1R<+S=IAW*l36eRWhqt&rNUdVBk37Zz#W z@x&10#lqT_;?tG&orRUP#kDO7&^vE^_`#RIIgm^(u5aCV{ew3@`o?#D`p;f{>w}F8 z*VDxDOLso|$?s|Hc=^t|?|$+7Ba=&Pjv9r%_vP>X$^ZTze*SlVf9L(L+N!boUKXp1 zrQW`D9lU!G78-NCE&jn_mH@t&W-L1ROJcFkuI|46e(C1HM8btfvAd^xad`=_l*VEZ z*a#Tc<|s8cH~Z$<*SS`Fq0ZS59O?OBawVCiq$DFd%Ngq15k|R?&+vKF7yeV@aRLYN zK9WaXlVD|!4vylG)AaJV+Dxz^tCf{ef%a*t9 z6Z(S#%Fvqys<;U@VY}=kiXT}0i!Z=@7g=CSkx0YP2+R+esrTZGwCw82N-Oz^qsJV4 zsr0y`(OZ~6=XcCxVowO|7Yu5+^?LaLeIPOf(z z@&u_r9T}1Z@2aVYRhP#|@Qm(V9W8);YAj{g9E4<0=DkN@#63AaMmwIC@3 ze*Cyd`+M8-@|!?xBv`q~Iz!KJy&am6xN(ust)^1oM1B zm>O1fsnvB-Pg6a;<4RRnAImC@W*CVNO!f^;^k_KKJwj|Bnb_zZm`aW=tp<3%)Y_Ra zAkkLE+ru@8qN+yYbcb{;uC7;eH zt8B{3EjKqzUULi;dY{FRKVhR*55JyYX&{?*A^8v3rkx3G|SF!|zQl~=Wk z zY9~Rl3T&DT_oMXyx1~LZFytNQtR)Ad^oKEeL(LtT#h=4`hq7PUq*BJna8qjwZO4PR zcXlw}qhOerq^$}jjfq4MPK5o8s@Y^-47A7OC2Cy=pYni~1Yp4pDd19gyd2_6>kFhn zbvWa;JGju=#jjCP)hL0mxcsfiPLStpQfi@kPVfkm+>lYyAz!JQtaK<1ki&iEX%rWY zAx(G?#{_JLM8Y5pm%J04Ib8kE1*dl)?fjahMP8%{p_&^7Kzm7Rg?x=#U^{Kc{VDBI ziahUXHU$NA^^%ejW<<6ks2+elQe#LZQTr%aMxXjwKcm3(#XD1peiiLp?u2(X(9nON zuQQqG9ZB@@lLweZ-5-7I@WYQHPBbr=DMUJ?j4=pD#Y9|3m^_!KVtw=!j&lEzW2jP* zm(9m~($C26Vq`(L_{Pdm{^7#7B0uZT`TaGM2%qxNqogWXN`z^~(&ofgI@6twKkE3m4zn47oz4O?!QucdVd9+k}>erbJukXlrM(XCOT= zJl)+lvABA@yEjd@>FnZuzdpNgp{+yzy+*Z5mSxm`H5OVhsS3e8Dm8toEUT&JfvIY! zUszlFSHJkh&;IJKw=Z5uPE3r=%}gyXOs_7crlc z9BTRKUFbP!`Ku~YXrmLXjOw}Ud=kwmN1I<))EKB|wDyVMOBeHI!fL>7L&+>VxRG-| z+)v1cq!;S09ehS6eTJCkvjyxSp{ZG}9>;}c=Lj;v`WXC3#v`#n*c8wi&Odqdn1s4a z+F^a0gXDgi^4-xhG`DP2oJyH;4`RWPL2Vp|Ec$9|TOqz#*lvHh%~eJKwDt%xPL_S5 z4#Gis*nUtWYV*Fo69EIqLKK4pd%TMV2BAayxpPHmOBA(IClMe2h-s5wF3%xTgnOEx zS2#GBFkESRb`DG5*x6g(*_)c3S9*W(%FW9+Z*j|j#EUoX-MIG_!_4~LWogqZci+2m z_pN)M`O3=9wdJj=(@VQ|-ud#*)z?x}%QxC(C{n$G^CQhSxh}=PFmAOc5T}Ihz^DD6e>(Ro*$fz`s^%;OYWZui@zPf+muAEv}p~IN& zIyN;kx4eGy-dmI((!EY+^m(OH1Rtu@%)(-Na;iTuByiw_oSB_(Y6j_T)Csjqa-h_e zipol=GF;UGI1=P5ov%J>*7Oh$nrTiuiH6_FWeQul(}jrC6_F*z4)a}@UR?IGvBCro z2+{|K6pGA9+KNm)R}bl@PhPl^E`*4<|r|6bp8!bJc$Wc?^UgV>RO4(bSI6Q&Fiie{ow!du@HaeZ?JU^-d%_rd?05t zq(Q+!eSKpuU@wYkbzWN>Yi?{##QP>wW2?!rrK!2y#nqdm6YDMQgIztNqv^G&nZ2=z zb^e9wTAfits=|jRCq?0R;*^w^msYB*s4TAyVwR?v92;N#&F}u!&wjRd{p!TxTzY;c zy*N9~l{z)qJDh5d_c??xH?eb3Sp^->ZFMX~JWmw{@yHj%@`}`6#WeMGVM?UE>+~WI zLKG0h zoFKr5wfo%j))k0%?x@#Q9wlIJ8^8BwAbocA z!rk{ixq9!jBh$-w-u?3U{CY?4khJIzfA)7@|Iwd*=?8!Kqd)uCAARTd-v8tWci#IF z2?gkJSLkE}0QFF?z~1Yur2b((R|h*t*7fkZ;a zmgdip6YuMD-5rnnC&nJDP+wasBjKOwqy!6|h`dApmu_+H1Oty`T3&8hWrgx%#|pV3 zUt?h%Iij&&L>h(}`9vmaRzt?cC%NlQ^waz3>=}0VV4RH-`W6out*EJ%@}q!o?g7_^ zh6dq7VQ~qZp%Q32&x}q0r;tdAMzW0Y&CiJof`7}D1a{@qryn|W7`VZ9iCLg1?@TO| zaem<7L)I#+woVUHnIo(FlS-KmQ-dC5EV4fB5v)EW*`nkr%d?Qq)6-9^$BxO~%`$#C^^# zl8G3*6e@@IKDH|emF9_7puUSG-UlS1(vU}Zb>Jj0ci|ReTUColpwaP$KBK0d6H;F+ z5rFQ#?H!5M_MzN@+QO20dDWJ-;qJK7kG0VWW;smnb^1(a55|6t^*uegGqZ5HyDwc; z+k#7jbd1Ea^FXTpfbD^|Lm6|&8yi_j`-g^ZzxCG6bmplfrk9q}OMNLkKfz%hQn%T8gl0xmVvEYA|$iPZn0zz6=0u;UHOXrU=lF$9{e0O&oxK<@8 z>k8ZPcCx%r_1UQZOvIf+Lm2Q1V_6(slU-GHG`03Dt_I$IF1tvAN);@Y!+#;3BA?kQ zSRYh}-2Tc9*P=huH(c3mkpdG{q5gxw9<-YP^@8kUu*60U1>II`a2=biY;I%d<(q92 zu}(2S$_TYI)OWPEH#Ig}TJ?2x^qHOQ?LYa;f03S=YV>n9a!t$Y;+C*SL%)sc>m3#01#y|PXFMa=K-}-|;|L8Y<_wt>0h$OuONt4$= zglAMFH8L?P4XVLAb!BFC(`8|8J2^IC7Lv}wRt}tZzO=>r2S>-XdDlR!t9NiTJ=M&T zJ}^XD>4oLd6OWIC^WR_t-(UNSwkq+{^tgd@Npr`@Zsj!n<%EHS$jk_ZftT%EcT zXb4GRkWn3@d2eTH#}o+TDAZj}j>z=gewv+(vVz3w|Yt!*V6-SJ)lh)DeA2GBetH9-?R;co)`a(7{(Jtx~3z3bchwP9zqwr3quRlA|LGJRZ||!B~WLiX#LO zD5!j;q^Gq)lX;Fq4}*XDX*}Lz;J@GPWOSTU$)R%K;3t9YlxlfBXdnt}sIM0)seUcf zSXlRa4N@vAks@)olg>|^G*oaZx8i687wRdf(7supjMGN|g5FYr|oy zT2Pt~Toc@&jm5LRwcXm*qRWjuU1+{==n#iLY&S^|u)}v{sgWjg4tj$rtd-tw?Q!)W z?JhFzSUuP$D@E)#P;{At!tlOAOAT)gnFsq)lNsk!A$XlSSCqANB_QPxLPm5Mf9b6g|ROM{I$~d@QPvh_Ppth-T)UmSD{( z;9B=-VA}B0HBRp1^SSxN5qn(_4UFSW;v#*TNk(}6O1KZ740@t8Y2Q&ppZ6jANCmAy zT#ZgxIZccOsz3Vp94 zT}tX3dwSwC)6;kF-u*v*@r(8K&F0Ro;fcw`^=&XaJ~Kz*Xm0Oh9q$`X@fik$HvoHi zy*H5>7-o)Iy7|Uu|LE`j{_8*fgYW+A&;Gk#{Nn2C?+vDBwyxf}`vRk zy|@P3uJ z8yFl*^I?W;l#?jl*KaJU^N6wBU-;q(CT_HZ&cQvpK}uf3cIUhNsd1PmH1*?ofkjeo z=R%_}EKZzgfT$C}%9IwN;tC5zZ74Sg)h)-{)ig$LVfC33{tIvP=7+z$NX{ilHwA?8)qRJQw}+-5Lu=HZV;(VAp_>B}GMSJW{B{hyd)TPLL3drjp{c zqO+IQlM^HQ z19%pZi_VkC4_bwFVtp>O3+xdp3ae=D`fTuNkoP6?n;Po}2m4!Enq*X|JVFB6KRbQs zP6qEwi@hXWtxV~yHf+7J$_nw5FdU>XUm91}qR5#b`98t?LZHhHzz>cU7jV$*M z&l|$P&>kP0ZjX-*kF71N-d^8(cWmZj_uy1{O_LUl4iRd(^8#rH@2*QLbne9lcqCi9 z`}=2>7I&{+UB7T1u#YdyE^MzY?rx4R%=e~7)S+W^{Bopqrw_ZbmQX%G3cO}~dd6x| zWd;Y*?k$8_5(Y_dEuJ_XIy6MpOfVbMHhM#sHqyJfYt4v4_mWmIYOFKG~$qbV0!LzCIZcFIl2XNt~H5PhQ5qnS#> z$a?HJQRS)Q&pF~++TxSb%kzty!U|s^4 zzVzzuwL3rmyMOx^|Nj5^_D}!#=l|;8-G2Y`1LRWGb}a99I@;jxL-#5B^b?noNTI$2!X+`4pg`|{1T zolDaTt7@P$F}wNtd#gJa!TbFWKECnV+ZV3iUfn*wyuR&Z(SpEP#=1sv_p0{$gF*G= z$fy=Iq^XUa^TZkTQu~s7I6Z~xBIAO>fyB_r=onj`#IJlF05?`c>dgQ-`(476TH>G5 z<-T9kOCh)_EG5;L9w>$${>qATOd##_7FGv`g)fbI>4%6n*eAmyhtwP8p1OrXcvvd8 z3+Vy^XR|A7tD+rcu@8X60|YHhTMdcBT#!t+#Trfltu4@Uz#gGA2Fo}Z(EahpAGZ@c zi{8WTqo~#+Ber2rD7jLMr{$<~;JB_c&qzLr5W}Ph^i|;~gAQ-A_#yZLGga4VgaG{g6xlX_4jrU5A~bjDoIP_ zk#dqSW}g5@5_5)cDveZr2=~kxwTei-0yhV1XJ-fRK?{7ZtCjzeq>}v2H)79Om7V4F zl*UT=Fr~|@>h-}kw71-sBL54MGktX0NSxH-_vxpO=$ZepB$~d>DZ2Ho92o^)ZK_0%Y=F*H@%U4N)PiLPu`RO z1h!LPXfkYLF8lNtdk4kt;8@GeFU>0`&n;kR>dq@_C@v*J#v57&d-^8_lM8)AbN#~$ zwskVS4&*!gCWgk=XO>=FTz`FNY_oT0rnt;3gYaCQ#nXjIfswwV()m|jQ(M*0P~U0* zj|!BDrOnON-5tYMXV#XMw9wz%o?KoW7)xsaYnHv-3~PS5&4~p;3CLGIN!GyN_IXs9Iu$ z%wS!xE3;0Y%OSgIHXf`*AwbJ!)dJphZ&>Y=eb_*`B4Y1Ynmf zdg2HH{)MB*o>j)RxpU?6)z`<;GmK0UD`1@12*5=&u-$hDsr}H!-y-V4By%E|WMI29 z!cSb>a5w+(bW&rWU2N;WqsNZR=th-mr>MTFPRh$Gy1KfDqq!UB_b!lM?%cV3_qF?1 zuidN}G3$IQuZm=qG zsxVC6dH0KVKlAZBU-*P=W@dF~a6}EMw0kRRs>oEmlJcU8It?XzadQ9Et_^?-88|W6 z51KoBNHkuOQ%1EZz>oJQ)Rv~w+FT5=%XoQY7X4q)60RGiwL6z@UcUAE(#GzZZaBBz zxbxQM!~)CP7jC`%;q}+vx^Uyp#T$37-+6;h6Eu#FZsLDeZ=WPA-aeEXi8>DqD`=XS zp4-~HsA5-rQxIfYLT^Tbvt$@z%t#Xwo&5tuct8!Jr8X>TMhy$V3!GR;|_-ev=D9&yZADtru?V*q@_%cVaW6eN&X|g?1gB#Yor~ASNrcV zfjrFjRN$QrS3>DTy zb4z<^skvGwA+uB{&0I>9-DlsdE<<|Y&|%-&==iv*XR)5aj*yM--^{PMr3LeF)o3XY z@E_Lxz=4oU<)oy_%Dbs|h}e5DxkGj+u0K~)tmHTjRc%0C(h!-CUVjzRPA~!H-V|)N z-GrY(rBQAlT!qEijHsoxxkZNEw3S!3D_N>-OfS(6M8WA2~{IwHUK*Z=1yKl-Dc>vyMDcQ-EFy7TrIbqrhDy!`6hAK!ofEABr$Hnp~M zg)%cZHZeRged*rYZ+_uh?|u0<_3u?!WDV3dHFpmVb%t5kJtp+gY9bGN7~~XG@WCO{ zkXA2jFypg}a9g(lx--C6xYQpFT_POKt!xl*NOo4Qn!1tnr2Ogp@<#vgD0n}A<6bmh z`-(mW>*udrz5B+k`|sU){oNaP-k6zNY;D)bx3ixEv)AX)GMG#yN7EY4nBt+ou@(i| z=>T>+abPepG&D>JVJ`x+>@h?eLXC`SGL-__!Y*8w!3vhD)3@Y;R}W4RMnWRh7=-|V z5|jY}^Ycah2>iZ79*MvJac?FH%D#RzfZg$-cASTbjKS6p7J7Pn$EOS~)Hk|R6)iDb z>l^uK?IeO;P$K}hmkkyadKZI5F9Y4fmWz?*ii(g}6?N!KoR!5iPKrU<)k3PSAiwJ| z9s~h4l4#Zje}U$|8mzkk)uS$n`j%7dW$=&b{ly7m)j7_rQhJnCZ4H;iutCYJFhopb z;WI(aBZWWsDy5LrOM~c8{qg7{CVnWSvQoJXiA9e-_9%E}n0Ksb*sB~#OrT1`{maZT z)V(VR?_R$VR64rkp!aw?P7T;uzf8M}%9k9iM%|Uw*H(3Rv<_%p($SJmr*xAQalm#% zA=+A7V7pff{Y2N8@u|Kf8|ra-G2`}XwK4uZjzf09(+iK*q0~<92yyG>*&I5;Gycg&E37O zc=wAZ)Serr7O(`0XgKhxPk*{RR^p@t?`RvSK`VXEPVoJXxS~H8@8cIVp#;b+Ravv& z7+ofqz{w7^!EjO(qh8WyFk~JtP@IviAV`^jIj~J-V$qYH zx;bYu`1Tps5pSvFphqF<>`bnS?Y@NPUp`$?-B4OppHotiS5{qEUQ=3Gdom-N;~k5l zuE?fx2c63cZc7?fcC>4^LhfcMq+l;@>?-rrgKLy8rK<-?Mt~byJ6pQ@ zZrp$WGhhAocmCjyfA=r`<`4fi6eZn!>th9{jFF%FeS9UKt zqe9Q38bv4iY3cLJ#2f>%N$#GM<#Kd#)&-kkeRtgG17jRE zNXO-E3T@!Y+Jg1?%bD1om*U)Us~NiFS^7Fc>mCF-{5e6LQUhy$ix&qAEDAQa%^IPgC(Rm$y?EX z;vI!xgM$g_PVAk&P1#1PU?;VKRzO5&VzCY!xF|ZM#kW&pR#IgJ=7)yD{2-pQq6Q{k z;kSeoaNVqsanQ0Kca5f#E7J&5qSy{oIMx7UOfrY0+op4K-s%-*A>EOfUsQeKnH zrWS4rk0upJ-dBo6O`>u;N}Lxm0wz5HeDHe|sy}t~nC@FqK@&C(!$EhDN}hZIM<>D) zXAFFhn6gVEW5@~722~zTqOzJ7f^`Vv)grMW;E3Lrx8~m}P}prlk1xzz$H?GU%qYms z=KX+pP7n`IT9<5PYYFDbBS-dIKBDV*yGy753PVxOQ9nRBU?FQJw`P*ZyLQ#Rtv)WfKYpZJV0P<<_H!3fCrJi z7EtoVZsKwe9y;vg8XOvCQl5I3Rr>8lsCy z(7<-bC&mtB;1Ib0j!W`TZuh%GP)PQz9SVvnjT&m}YzTvc>uAfcotvc0$OFv>ib?J& z;7WBbEGuuQs5IDJHFv7BXRN(zw7q+@t$P%<1NNT5>CX6gM{jy?Y&kV?VS4fI#T(z) zzWQNv_fU2|nJ?IiIB)n<9XYbC<55M)z+wZx4^~pPus*jnIKANgUpSS*gqmH|`NPzV-Wm^iTfkZ-4Wr|9pP);upU46J5gkljGZ$ zZ*}wyDMg!J*}VSR`?|OnR#eZfZd`rsO$HeK*!QlzHo3g5|L@%oKQU;jPHj?W_mHt2 zqvL~)_l;d$$h7ulUz}Q4Bd|MktO4>nO!hMR62p_zb11YA8LGo}5{h-g%I@VU(9oWD zcx-%OZBsYPvB~KL&i2Liq0~5!Lu+W0Xs>Cf2J!^ zfu?2`RyTLKbi@MF^GnMc+y2*74rNue^xocH!48mz?Xnomihjk`0=>a$0JxyUsCsxQ zS`uc{6r#5dZq6juM2b4{2f8WkvZ5F@rv@N%39dqOg|o9v1!bynOkl-`_de`XUHBm# zEdZ0vOf4~N7u`F0HqT#LT-_)s*W+D*S6r(oXM^0XMeFg$#wT>JJezHZlKilSHbJzn zudky3kk(1)PpPEPZZ}xEP|k4SqM^ofLP98VpV49JKa3!f!qWUe(_o%S1OtN%ZZy9L z9r3aOpeRH_FwEKM>jR)1K`kBa6doX@OSv6H3j$X9m_PjRVNK>qFRY-lu8R6~Cq`Mc zhK1rGajNVR#LGnL*<$idP8MVpd;oTo-Zh5|R40Qw`=m|7--Xr#+0vH^mzo=D69aL! z8FG1YcrZPdvJdPj`=zBRoXpZ@Hi|YAG#M!I50V0e3ASpVaE)3CMf=hyp2Z2W?~`#& zHY2%9Q=6|vFA7fkj0}6x5zyJu5h8y>&4}>1Igacz#3Krl1E3(EGfKQqJK<oX7RoBgKGL;rcvr@ASaU%Dk#8+k98|2_CRScwQPo!0G|<{L+SNDN9#6OR zjP(r%x*jfrn!wDa##a-mjm5RM&tLuO`DP*0PCkQb-U~h5A)e039k0W4B3=%!@ z_)ubKY;0_Da%p4Z!tI+^@87-q!DluvTu6;iNN-6o*!bOyaMks|M|=@l@zgcYWMDg# zE-0;%6;&DK1oSMKxssBk$UH66JtNIrrvie!kObf}x1Y-?s%~h_DXpZ;xD;15Xc4J> zDqhXw8vZc15R-@YL>Q$^M0zqq=lUOw8<2}5PCii>0X9@Yu&E&t{0 z2mUH9#Z7FRu`*5u`K(i<7A3y1-KpzD4mwcvkUyC+#N&_a2vf&vL6hJs)nvjkOM7;A#f z3)!?YEhrF{E-x?B86+>1su4pN3){Q0Hat3c_0F4+ z|DDhO`rrKG7jJ&_WsTOq`u(5J>krl$*Xfa^yuPi=Z0ol^`}JG*Kh(~J4gL08AM(Zs z2R1I9$fM?aNYQ8YGCCu19!+>g=4BwNV(E;JY=H3OKpVZhyG&*XeM+fSe zdBDyE1l8BKc1_b;+uE6$osYV;LqziZnC~b(IkUKGbl@Cdmqm4BZEJU6Xoz=3)H4+Q zS6OM8kxfs@a?UWn_p9+0&tu?}6AQvVI18l|Eiw<@S$eEnPi?8XC~gXV^cSDUpHX*>2(-_A;)%zeJo0$3&`=bg z5A$M3H(00wQU#GNZg6J#D{GKQh&*7GVQI0Z$spvAF+6lIF474hAY6gHhaY)F6yWjE zSLLt=4jy>yu}2k+(oj63Ha7ZIs%dqafOUEmn6`FZyjY|ihDGo$K~YfR<1%QX%p`Xi zW=c#j+(~l6b;kh>hmD27UGh|)fsVFjxzy?D@!{b?&L3OGRVTY|Q==_|?9gOPfHZzL zU?89m^*(iqHyNcW>l(yCItcZ|ySlqO2>Udj`i2^n!R_tM9UaXkcj!;RC!^R_Vp;St zKA!g8t81(2Z`t{|q&(I1IeMlQ$kplt5ZbL!(ztC|cR8;ZYvcX>)AMtZwc;a04YEr- zJazo31Da6zDYmNgkK7gzbh&1n`fUAW6(@t*Gs(Y8Ytg8tv#EZ;OxhCl?YUi~Y&@D3O{T zND72+ZR~z@_15?Hu6}7CwNMzV)(t=`>RBWxoKpmuYV#G^+C`Brz096ziG(@k_V>R0 zrPn`rf8%^`FKFc#l3YRM9I|7TE8=e)k3M{5>6LX&fW5q?xxBWST`9k$95ctjiDoXE zkcJzuJu5GZ>{wNsTS5-1;Cp=Obf(@ir8P~(RgI-J&3Uofin`|0*?D}x;x7V@PXNNh zb021OP|~=9$Rk(6K3U=ZcXD*rD&pAQ( zBrv3S@4z>|`;)JJ{rATw=5>Un$#V%<|JEC263$cRrMO@_-o6jy>K)J~MH(=idJ~cM zKs+o?+)bbH-m(qd#r;k8g9sH>m-$YGgYOASW48Tofnaav)+uMs1E{j2( zN`xbart%#z9Mh4bkTJ4n{=|?j*wGgFH=ax4v>|MD-t}m}`P|9i^hwhPU7jD1*$&VLyuD|}d zZ?Em$Xl(0}N$I4#k4@|7)!sJ<*jdxJuG~_@L`YXt)Snz(*x22>c57y7P2H$;r;Y@$ zotcEPhs@8f?~F_>7zL#s3Ycqsvw8mNh3l`f!NBLS$(gCyrPP?z|EP848SvQ2>6v6| zG%=injY0s5e$?|I73O!KQ^O;}Bk7>JkBxUb+TG?UyUBQ$Ki>0{0pLBF}`N~2>=E(L)u`)GQDrey~Y_F`TAyT_Y1h{7iDhmtvZGuu? zsU2A;GlBNL{DPuF#|<2O?8uWCuX?2?gI~pj5RKLuI`r>4g5n06ec}Y4i=-zDA6&Fr zi8ffh#sb5*kmXL045&!)gka97W7{jnG@*AF5U*g`Fdcun-o29zl9J{tV>ZcDHC4 zM;>+BENpmAhjE=88tCuq-q>94AL!@WbN~@BTj(q;Em)Jx8pf_6Nw_e3=$X~i$EL1e zANnDXtVkL#c_3z)CJswQ!_}3(irQLpK5M*4*;U_#!`CMuAI+x<15_5UmAuFI`!1Zvbp>HC00y}C|KHy}`|PuiF)pD%da_4D2Rvx#$Rg56T?b9L zx+4{;(Aa$>IFvj${>f8G(uHVPt|Jq9P}hxJR#n5%jlzLnT-|%&5BU*>Lnc54%ZYee zO@3BhG`pZKuc%>3kg2NcuBh%LyvrOYtL`i;Yn?my)`hFzI)CNUf$goY*H{NSCDH7;SR zisg7hYEA^OCuJAKrTWcljwhvUKX8bikLvHY>iU=jp0MVav`%uT&7crP zN<3+d^a>x$96Y)K^}m9~?kG&n#8y1fp)YnSV7sau=dY`4c<}0b?d^S)m32N&&@`Ro z1y#+_A-${!J7S@Y5=0qqW7AI?HmvtryRF=5fvCs)kjhEC-NorGQ5}=J658Ki8p^H65lC|7~i~Udm!p2DK-Ii#9qf(dL&tX=T71z-G$|IKT{gw4Q%uC zvbj}!p>PZ4#q5H7|L(Cv2kAfM#YGG+kFQv6_L4HAWZ1H4!=5lFOK;rhnd9a3O@KBV zIeEtWr1mhNdhlTQ#gmDGHsN+w10)pE-n8{E0SbAy-Z%kcvC0l!SWm$V`V}F15 z%-pQQQO)AS)G2c=BRL4K(--A~9xi^2F+1Nf->A0J5)#V3NCJ=%0X{kYxnN~ilEsCM z6G{hXt9!>Gtdh|5jxD?kopLg`I>q5-HYNBnjs!04c-3n6aaTx7yEc893%jza+NIUn z-iAc@ttD{!_1)~Ab`wm`JhOKDwylpYTXu{mC;+?TIA-$*y+2+fp#cUn5l@Pc6^&ub z5^Ps-05PpY`zO(0V2-^LolMJmg!v#lYjPz$<{)y;GWd^jpGdGJA!1)@PGJqPy{fjW zzL|-l6RMX~w0b8e(okMIbo<4h-n#ck=db+E(B#X5lXt7?J7ER+3bx03sVNCbuEtCb z#?`I3z>Ot_2fM5u-&uGV3%rB zYFGq2+zxUDWU;S<3$%FSkdG$-*yz$~|*uEoxHm>E$B+ry$j%o4M zi>J~v`^TpK;4lB~=F4B2y>#Qu_2y-kXAd3Tp7qMw zdO`|S+l|mOGC6nFE?GBAjz4+#b^OvuW z%+Af6yEwIQuDgGT*QLF?R~SxLZ(m1e7wSGRBsyo(LkYlFLk((e?`mpk9~zzP8yxim zl{wK0Bdr~TnLcJBm<-0F(I^=iyt`FXbXZbTt12ODwNF6f$=P5Tl8f;H83#aJk zu}@CJx?LoyIkzF4F?pnVQfUQ7dV&H|h$O&)D!fkmWrDjTlMlyRfy4O`?OLyDf@I9V z8xl^D3j_j?YhbwV20L`30<}Hq!V4BnKa4&v$2BL1>e4q?%j?Byb}<)fg2eLI0FPrlqlNY-DhLVRmd{!r@3{)&dL3 z45?`xf_Evzg7LEQieRa~4LHV?l3SXdU21V^PC>M|tg)n` z1&ud)7%6MbjWkr$4c~q62WPK*bmr36&R+S};N;80)Axp_uH;0@6$DO@*uxSK^LLU5 zbF&Hxc_3>Ww9baAXsyw@ntG!ml&FeGX@wQ_VHIXD=7rq9!s3cxfzHeY@*<&fi%OHy z!MlSsKdYcLJ5m;xk`>PmF)-JHIKmGY%{#{9BG&fQ_I7U;W~p*S~t__4hSQ8#_??ZsSq317i+cPaR!-JcWF%s)MMmb2pXG z;BytiSy~y5{VP|j)etWbD!y1E2W)r#)L0+Y$}Qgr+uexujZM}nDJyhIC+E+ZJSDRa zk4?^>ztk_Rcw~G;W3;1d=JdkZ^OwBUD8?m->aFdhn?7QGYeyGNMhg|x*EbS%y7B$W z%BnI8vP(+3y1K{5C!FQb6u9G%dDbvhR)T%9jLD`f11xFjbmt(yaBak*3vs>x3rWf9 zDeT?E7C(%X&ZR%%;Yu!!U{V1#=&yW&XC+;Eo0|vcA-j|qvKmF(L7?h)xIlN^TL9$} z1k|j03Jb<(-+^g|=-}W}L4bD!f~yywhxW*TpIPOxY{iOo8#fq-U%qOU&Jt@pB;j?p z@QC~puzjPX(V)FBMv5X_zc%dg+zHlWNspuhdn;D2Ud8Yp3#2p$dIH>9LPxRy^^kuz zg@%N_X`_~bVME%Hp;v>g%-(ie(=<^1kWTsZ8ZnhNK7)D8osz$V*y5&0E@A%#bG}BZ zZPy_bJS_M&tc0bAi}B9VYE+lC!6h<#S#hMQyfnJ{wnW?e)GpC0}hF#;Bs;6V! z=4X)^q`)(bQTwpV9$W-5I>%}NdX{9NGJ`PbxrMk5>CK@@ZgpP==4K2tAyKalj60vH zV>;-h9nM3a;AUr4HtWRKzGKTKo33_k+v<7SyngM81AC6{-wnML`>F#KqM}S0)h^P! zHhOTs>RU39VrjD@@1aK@QLuYOxZDry3odAPwNpdS1Ck@^I;XK?nzU|PIs`bRDj|0R zb|s>wpWW^_IbQCu)E$QHI;uJg-T}f|U6nNrG!VbHyxi2xf~0h^jGMhQC8H=Ut1LOQ zG&8R{Qqfu8I(7Z|@1D8*>hB0*kj7O zsG_p5J*+sZtZm4H|H)a%V@X*RBzFr>omsR2sI9AyL4%1Mdox=C+o>^R*p9xTwCutq zSq2F&EUPB7Bxe<{HCi`KG4_Z{&PYhj^hX~I4*3{wKar3kOy;O{RyjqdvLb*zIj^*^ zvhiqQ+P-6PUS(g1_8*Y9aK!6nVE@R$V^V^{E9e=GO)9ZMC4g{BJBEaCh50mHjBxWR z))F~g!E~4*GCHyse{)I1Vce5bGar2X-JagjXmumKeFZ8X^FV@kr}>gS40NxEVf#i= zpH6*OK5nyVQw+in`=&ktzB4D|7yE`~BOGv+Q?=@{o=qksmcX+}JYTRt}^jW@l$paK`b;132K7Q@1-+SfD-#T;c zE(Ork>Wvp(E2*mX4Jkd2b@i_^oqi79H8$%STZFW04)VQB%wJ&6nV37Lqe^%onCNTD z855ROP*lW=UenmD;DGId&SuYE=HBe=H!Ks>m-m^A*KfUW z^X`imuiO*{+0xn}6>VU60+Ne`>FOPD1e`vzI6igS$P!28AubPDN{ewi5lj9@)%JYD+o2B-?AAkVkfbhWB zAy}}-6h0;)Fje%FQ^yE^deAe& zdIZ_@>A*g}AdLdHmsZso-@_rH4a{#SoR1Do*TsDpgm2;%!To| zx{*>=KfTroC3$|=*3G-NJ}YlQ(s$h91G$WTCy(vjy*rZxUu^kBC6l0JiTZ~6vXUbE zQ;0Cn%2<2mnMWSup<}dAys!VlLk}GetDR^pak!#aaLEJdl0Y>bF{0+Z>U?@wJ877s zGR!Ll;XN6)RmpcU zlTzK(9BpX4cIQR)`-vobEnSnPIeEo|FS9D|eDVY2@c!FhBF1J2oyq5mDAjsnhd{<8 zZ)fHeCubIiJ76xRJTaqb5p zcy?h@PEl%pS!!Wrc1cZgcHw?HJPj%}%U?RjbqDqxlH%oYY!4?S(6qHygX&Ot5m_8K zB#CUMu1y46u&8JXo*99(rkD>OF~Y~~Oq0Fdosty}MJz3(F+ogLG|IpS3gNWM*fAPh5tcb0f}eQc1C$>J2= zNC-v_BLxLPY|qR>F7Zt0foHlz=>YB*E&m_>DxcEAVVhRbFY3;%7H?_!R?Aj&dRB8ZJz|-BNO_b z7C&jYTm8`3(K$Rlf9dv1bBot3RE7LpeYaOI<+c52HkpA}$xE8fop02DCq1 zZB^9~A@-5tN}I1++Nx{o+e8|SO-;`(OwG*Syn7$`v&YmmwCJPS2|i>|Y_A_-nm8{I z68GpE8mVt+DlIGbFZ2%%7MB!zGGRM8SR=Kzwidh-VR<98RhWtxiO)*$xm2fWPLoz(6i3i_ji+!f$lCs;3q5A(F!B$b|(t#_;G#@eGWbY0Os_|%9V2M->g%s3hn zlarK(>s)*5*I|#KhAEr&zRSqcPMe0e?B20;{aPJYL#A7H#lo+MFm!__pLi0K=^Z=7 za&sJRJS6VY5+aH3wslEJ-(qD6l5i@&DF5K$eWrNOl!N>COF^X1@I7+pNYexBBzLEZ z>29!I0N;)ICnxcT;`yiIPD<;w71LLys&ttwavyu2vnSv7ujz5* zM9)=KSF6{&rU)=RwBLpiM9a+ssKvUIVR8p`_p*A`B=bM^L>No;yYsQhCEL7V<1w2S zbf0meH4-~;j`L3KX~T>*P{$4dPpt*b^da|^kHP1(Dz)yTXc2)yGAuq#`1 zKk*`@_jnvWoP8|8)K6hfq^_!dsHS;hboQmu+4~LcvwdS%r_Q`GweVVN?}eV>OY@5l za*L{9Y)VFs?^9E6g-4YImzA}(vuDqI^4;IPbMM}lzxkc2nub#;ImH!5Fxcj6B4uoJ zJvW}af8*}G{*lSd{1V1I`LnSxplDNj@9^ZjHx)Ha2`SkrnFYrZ($aH_DKm)~`8uTZ zmJ>;7q?Py-7RPKv^O)B!cvl_9XG0^(SBmQQ4-Wm{XMcI&^6jSP4nh0R2<(k*!L$AVL{rh}BQxk=Jbw4|0#;2%8He;A;mG5~W5P+&GyKruZ-2 z6i{&Ii#WQe|BO8!-g_X6f14XuO}cy}i@-ByBUmKz@p??t>@q@QD*-PG%V2))}yC|9;My z95R~ZB@90^R1Ln6Mz>=18fqagJ^KnBd+WBXY+33~(@FGR%CNVj000YZfDJNf_3Car zlgy$%vv%dm71Vfoi;*ISOm(zUuahJoGu1ayhd^VAE@j0fFKpVhtmb~mtFs@a~1IYuEZL^yOJ|A-@r@Q*?~q($>6Zc;U8fv!yBJ_~8RPwweK85pk3#Q4N&27+RWJ2uq<% z+9)URY2j&4E*FUTl-I(O{~N#go8%gp<7Si{>IBg`iIGf0Od+WYX;iCI80Z7E7aotG z8>OZNVc}##MhGI4a+7N?(Qm4_;O+F##iGOb`AaLR!;F7Mu)*)gXw!0&Gl(;hyyE)u zY7;9%wJqZ%)qMr!EhW_*HBBRVCA^VClXG|Kn)_+p${bIfw|W*j(KU@NHBGIHH*Wqv zpMCb-AOGyD-~K^Cq%2ZeQ`_7r7ObkFt+BPoM$Yg2!OuSVogZ*nWEGT^R@IwPQE{uA zTDymB&tY@x9-Ih-JhQ;txMZbZ!1ko9LST-xGt7jKr)DQ+nL_@tvp!nQt>y=X0#D{x@z zj@_1=u%L+u`QN!@A=JxFlaY~CrUh8rP!+8!uP~4g z$-s73G)f-OI)p$PB|J!wgy)WL;Vp8{ z18;fSR(X}1W3APYp69_i7ACbVG1H4O$FzH|f$P@hCOxn8)MPOauzka`+g%%eHBrW~ zKW^ECO-Zq_kwitlb9bmoq%Q0~u+9G;J2@k&<biNPG9>{Ds=a*2dOO*v{z4Lho&T zvmvAQ&fWo5ZC5@X4#y`>pA}O^iV-!yIYJ@Fc|64okZw>osR_zV;-&-X%$CG#^dn1s~DrpiHPT?3V+;Z-gyiD;F8PD&C(ju zwMQs)H(@(+PIYHWj7>0YI=F8)Y-f*Ly=tY10IECe<%cxsNlz%X%d03KZzqYHAvL3v zl91rbN$bAkz#aon+mUmkQ--zXS#obqp{5R!<;#~7a103e-Cfy~87jXqDbZxym2oGI z67MN9E?jbYL3S2329=MDKymlr8kQT)baE9~6CFRt}Wa>^{BnH>HrZ`!7vkFUf^|TuCcK&mhkG=+1 zq0to=i3jmT*OEU@!%bo9tflSvqY6vPzWpJ7L5&5!7`1)uAOM|9iz?|H0TDsjDFn zGW2kbSn2|@St9MQ-4BDe+e`%Qxtk$8%F5)7)l21FO7Kn~&1QJ|irll{UD?Y?0{U!@ zCxNGBslMthcTUbM&d9IK%qvgJDo#ux{d2?NZ`qqJAC z&B*3JFXB?;*{2hsO}viypM{EEixvbso3iGcfay2h+oXs9v7-wJ8tbxkoaFQPu>(=R|(jGy#sZ|=gs$A_KFSVIolyjc#;TKNV7$~JC-?G}0B49NTz7W{*U$4u)FkCj$czx~y3-+b}4s=7v` z8s8n8oks`Fg8t}F{yDzQ*8A~~|Lmh5{_*_9Ydu4w>eUZE{pr0oJ`_GcKaZ`+I5RRi z2eg?|G)yVm<mQgseWryazN5RPwX3eaDN5Tx zhzq@ZTD2u0ePC#`OAh4ZG}D&S9!ewO0NK&5y@t$>j89VIi8*0*DLF-bpessX*I|dE z6d3fqiZE1NZN$J?AXqGra7br^T22n$&K&3nV5CuV(Q?DjY@=T=EfzWS8=G1#Uc1#d zIILTMwjt*u6H_hi9X!(ToWGr4+8mZ+&JPcB6pb=xJS{X3D-}C?`=li-dvdw!#}7{k z;sEqMd0dhB$P-UU=%vluodi)aMlNjwG>{pQ1n$T?_6VFkh$btaTE6z_)wFl6MYz3U z#qw=iHXlEF$mo^Po^9KEl8jpVfY6cj~ozYQF4>M94!C8uxNMT`7#AWXSWOz-^1DD@pH@*Ev4(>Oa&~6=!sRPubFje2MUgOA>u|(f(M5R|dQ5slL2Su&W)xCd zY~jVLRgo?OP3D9*%?l&_i?2i3U%>~#Q?|ZsBEI${gwr0)hz|}2sU9(zBgFj;Lu>H8e z$%8id1UbOZpp=eHnTJuPFtX%036l$cGLbA{|9Gr(8Vj^MVv~grXsG9F3WM>Syoe}c zSCLOnPPINSAA&A zmv7yE@2lVHAD*&-!7*oGvb5azOlx!3aAiZADahK!4$19tNg1@4!(^1a;=-~T=q&`y zafNcrjY-VNJC%;5C+VoB=0)Pta+9(nq?nYP!b5)MtirsC`hv>lf~w~1vReCljwWaB zu)ck1`pNp0klPTvE)sauJf1!i;dB_$1jKLt8H$Z=G@Y0HBHk%e-y%}#!r(IU09qQs zeS?#|{S(Ed20)v;dxpz|wKR9QzL9pUn^6H>M9nGgZFN;KbfTG#RVA_K6*HHnk|P zuHC(lz$4pm{=-jyDmq-Y$*=zPe`Z!W6qf+o-}%N57B1hQq8s1vB?NQ4`s+Xb^H)Cj z=Gp7d&7L>hR992iNLN9{Z7c=v-Z4!H;6n#6hfk*Z{I%PZ8L&@jVRXdUOUlI#M97k{YxT+{LT^Bj;bN) z4yW$EehWKfMgSDW%L}i)E9HhZCG|i`m|qI8(;1jyXs~`HnZu4hkY3l+m=`H9R;nNA zAJR`J}v(Y6}tNFRwq{%v`x<`e1IUF$fIWRBI&ne8#EXmI;EyyeP z!2+lbWwMJ4@=GHHRiy&p0{&mPaK62}2Yj)7Wm$@pU#RTXpVH)!P!W71fGei}tU1k5 z2|X7M7F`;=+DBACMuVLN9uD5H0oJ_mu@lO3eo9EoDue!UhqEK>+PmK^NwfOR-};=L zOvM^r85uC%DN|QfmY1ID`D3~;MxnA-;t9~YdHY&TRr#*%Tiwi0^Z9Ra^M?3k4>+%* z`WwITn<0KjAc+B`*iuwoRIxH%#L(9}dQ`rIn-nL|(-h~TdR=nyc|WwwpmSO#V`qL* z8POv%Xi7N-SDgh6ww#~-Dqdc?P<_^~kj<;j3b7-)5RCA|9PMLr7GDiZyf4>v)rK&Z zVv^LE29YrBU|&z^tb!nM~v{r!J*Sb{*0rgR7^~c-<2@`O~sfb0fLM6`2JkK0#bqZb?;Mc|&e_1CTcZlNl+0 zcGm$0cCWMKfqh4gn@CmuP$Y=$(0wU4c$aK$JpPnggr6C~D+B3DJWT;UZS$Ok#pU(_ zHMew*jL%lrG@VLH-?Vj4UVi!b*YCgep+-Cz9L`_7@!ZMeRH**VKltUBzV*|YGmD&2 zcAZEA_{IP6-`@P{@4olV-oqTpRz7`NhvEnB!KePqRo z)kGM`jz(@{U)(6eNPp9o$EUY!+z{}5>lXO{TQ+Y%Mt(!L!`l>3* zT)bpvsO~D^ z2=RvwBqzoTjIn)#AcMx26&I97@=FBPW~B#>J(6El5~(P%sWeD5MfrIp1$kwWf=Z%H zc7~zU>o;#A?GgkCf1DVExu;gHatpYwjP{TeQn>`_Ix%2(q&iq>COZ3iH{ekh1Htf| zlC=fQ!T>0$S_h9o;+7|HBJSX^6Lb%ts-j=9YV|{pE?d27wU~sVfr0+MK4O=V)}h|6 z;r?D3m0B}YL6uo;ZOw)AXXfW76XTB`knv8EiqSCltcu8uPm_sZ`)}yO>cydfOR|iY zIB4v#At^tY@hc5t~&P9343$YO~v_TwFur;r=TDvsuq)n%8~aJlCeS4yYZzUQFc8p{yn1!c8x zi53CMU0LVn1q4w5CB^Kr+gmhq_Tr-O;`cuK z!JqzxBG;_*OK*JX`tvWdQz~4(^sOJf_~r+vFI-K}wf(bJ6ZY2qcP`zzf9dW6Gp&>v z?sP*OL=t*9ks(M829yGErNjbo6_9Zf&v6;;dvt2f``{hytC!+UxxjW(ui5az2+)w+ z?#FaGNWKNRpc1MN42^j7#MWC643AFF&P`39o<2Q)`I;#E%iNZfv>IZ4htq0i*p7rV zi_>#wWe(IeG!2hVj8062CT3=KPhbD+=>?|)mm@(YCZQxL2d>|`JHK$Qsw%oP-((pQ zb;eR!@2KQqd$g)53y23ljKDo}Ji*L_w0r)UZFIWzI)grwmQHWi0x)pIuFQBtxKWol zxM%`S4W&RBzsb(kcTk&4H!`Y#SOR}a{?X&s=LP4yT83<-c2KENZ|NZ}Bo~V-hayp1 zS4VY!N{?^XPMV9O+xVTCid9cPy=v8JW#jJMJ27_9y)|Z)A-^!tY+Aog&@aqi(rW0# z-m!PX5cS&Ct2GU|)-g{$MlMPOl_tX_vIn+HWnaGh=z;wiDbl@d>eTx?pl;&k=k0MN z^8guDm+3;Ek(c4e)(Bt;HfKtf(Jb;+q?mjeR5^TKX}MYHg}GUPJuvo2L4^qnDh+Wa zH^}VeMTKa5Bri+9^~$v?gF{2E!&I=QNm^9OZ1BXBPkJ6yIwAZd*uV2!U^+Y0ZzULX z$J>oJyT;(QN?bSq%-0|Bw1?W<;H1qF3AQ!ifUy-4qz&IcGY8{}EhgTBO}Py}{^oZk zC#Ou6ltl8B-os zwVIKob;uNySx_kcKEsn%SDRN_s=9&OJ`KWWy&MjF}&8af8cWeyI{$dWxNhCNaKNg4uv^c2HO zLqTPIYF;tK&L}8O%*;>AE#`haa4cS8j8P`%3#iBExg3c$lpJWES5}iz#0DA7EG##z zzzxVF#V@2-)1Q#zAPW9jP8bN~S^3YcQZS5tUP%POs?(RY@BV_K3< z|Lk^&{f=C>sV3}E17Bw^zRC((*U&|Fh3ep)bg$HlHOP+n8BG^+!YCWDZftwU_8lNz z?F{F!X>}T2rPZny1MJRg44&Z)$WTpav+f${l;Hv+s`zm+v;B^a!_=P8SB?FLwCq(p z?$}i!|0q(#Va-c!NoZ|jlb&6(td*W#y*W)mR<^3zI^u@KcBBB^778TGol^kjclQtX z3=U)Oob3@!*cws7vs&D$@%#=xh!^PQjlv+w`uzm!e@!<9DIo_}R@ z=FI%1n+sQNpTBW$`phCd2SHaXqf(I)L8HYcG2KeE1>{p#h%F%q;02LrUE|ryw|FdN z5zt#GGnxmi&zLPU5Wlx>NAJK8V26;AVjWlGAr-i;l=W~fHMcZ{qpAP&{Mn0FZd|*0 z_ttYSE}UJ&gyjt2?QD>fr_W5zo#EkR#Sv^HaBTAQ{LttGmBVo}F(t#Zzt`~*twE19 zPaP|h)3bW1030ZhRJ)fcG_g>cb-otu=UVqy!O*^KYfgrm zU+lSjfH1|XgwaT~pukf^RmYHX!@-y4sH&~6BM=#A4Zg=y@e~nLsI+!+da%8xChMP; zARwf5*j^OD)oC)M7+Ou>?V75&S)(IEm#Fo3F6NlvKw!1B$EH%mg0P zQ*~oBtQ`-s3^^uR3msXYsp6i{6vw3`5zeE+h^sWL8qOi<1ZOGgjxdvS!XMK!YHMmT zGtz0CJv}`)Zr;w$%Cxjx9A#TeBOTs^xG=H4zFvv)_nv=lpu1BU9WUq6>f0U6&w<6Q zShZ^TisgpFOtuHMom4^GqMHS z!gd(W{^=PYj{|liw=6N#^{j$|G=)$}VRdU`Wn-Ng4AqT|rL4#dLc|usM(`ZM=a*EL zM(Zo;T0F|C8wI`Q6jkJvRMEhTE9(m@qLuZneIpAUeUmn?O*}_&)*IHKF($Wpy``h{_ zCl;>Pwe-Mtq+L$0=~S~wxh2&_(WW%AOm@N1Q>g;MAh}a!|FM%?+2X=5_7p`(RefT5 z?lH?&vkMN#CubK`rANxCF%%p9Q%{ca%0ksWp+}k|PsU@riBw1DPOrc&J#j%3Ve+bm z_EJ$+sq0s(xkrzZAZIK0p`-CT_jq1~F`fdwd-qG@v>qiMwvSF;NluT%G5nuOasRS5 z5qvbep}NS3*lQFPsRY@4a}ZTDN5Q|qUjke#b4C{Bv!EN#cVxqMJ@S~W%eZbAn5`?O zrS^t!;;{cZBuqkb1-LG)OC!8hBX}G*xNFBQ*)lLk*Dr8m(|F}&%#7k{X-k|VXq88Z zQ--lQ!CAKy0KSjc?bvZ-Rd-Lc?83#X3zx3H@xdq0zxwW-7hmJt@T?hLxN_$OY#+Cw zqWtzxfB8@T>;F1`?G|g+5C80M@4WWDWf|9Bc%yH0YIt(i8DYYRwh55KjE$9JS_gvuCf=HOs;uLbq5AW7SF$zDJkFyQIYMitr9Qh!o&Zy-rYe zaj6GOGb?*cbnhA*9-Wz;zkd7qg>#FwOgRb@%MuvhL!$er(gdEJ z{evTO3+H-z`@KvA1Q^ay$!Fu?-$TWLyr&f8BJDtxL&+MZmgc6a$_jsMl4jk}0p=4E z6UEme^A+Xgot+&TjJ)ua8966jCzA_2lR$gPArISGtoOmY$1ma?jx{E{qkuhTPg4!M0+w0fktA1 z#y?nRMCVaI6(7=ZPbEs|%{1IWUeq_y@$)zucak(G8BS4#%!n`Glh^iT;WeUA6d|bN zpc%pRm@h6QKL+OToctcJ-P^KAeo<~#OGDjDFTY|K4ZE=DToVv+1<1@ot5>gPb8=CM ziUHTb{)(AJtF3&&1Y}ka!+||Nxe7=lm911;zp=TQX5{EJITETaN34=6C6#XG6MUN6 zPE`ytHI!u)n3L{=v&Hot>Ng{O5jaWeCHJ zKVW<7?wuPptY5i$^%Et1Y|Lka$)CDq8|VV z5Q}&qmu!$iVzg7euUp0j39dOqP{)127`tToKx%G|Sp{wOJ-K8MCuCt!dHaoX)=_(k% z`^uYaGa#M+Qw*A`tB2w}I-y-PF+1NmF#Nqg`}K$4{;7Br!>YgcPycS=@~sOu?#*Ak z&S2Br-YMCm=A~tAbj~FwaFQ5A95+Aibc5|QZ5D3W zE>hH~X+n~qV)Jt$0 zo1U0H?S~&488^h*+ds&1qXbZ`U%7E-;oQZ^nK{(mJ>@@|IRAW|-7?KBv~hqOjYiRO zKNSdtNN~wqkMRQcwP`Z6ky~~JJ5#&H#4Hxk!qO1OoS58>*goWNcDx9?Jkutn!(g+ z@J*twDgL;VoGnshAA9nNb?dEwTty{6eC&uqkSu_Qhw-J2>!~ng8OZ=!!Tq|m-Z#fY zM&JJIW`7k#c=JuWciJNO?1l|bEL*mUg^#$iGNfG*ei6XxjsCW-O!)*;E@J$d2? zAuuC71$3W^PcX(Ke7?A%qQ0g196Nevr_f24u^4I(Xvy2YH15hML!U8%s>7OZ<|ZS} zLz}gL*WH*Z_hUhBQ*HFlt?Tm(3ubx&drn@V8r*ywIcvj)jZZzb!bz$@kGH$?Wb7a+ zE}n`iS4xez34s9aBU)u$LmdT4r^A(HG!3Tm2!}>OtbwJI_3&elFMHxi%`BaVjT<)p z)^B}&-MaN|Gq;|X@BI%yl8Tm_o+8dsl_bIG+?g})eevDd>G9h)ugb%O+dM^T6FXIX z&eLnxh<|+ispX0(&)6f&9(nlDfbA05ys{>1Lj51>-kNp~m1;UKD}Yb*KW!EdE-6P< zaAQ(tn72c)uz{XbDvdLaT23>E?HO#EB}L^8wN)(*(bfjTy;+e$c|jtN9HMU@SZzrL+EtFY`K)jdDLAG&L|NzeT|4jkEY^dyphdd`nffjbL|qWce>+^n>9ql#SD22DuhkaaE-Rk)jiRugkJQryWeO9H#Qk~ojs z8(T1Itc@2kgo8_YKRWHSRnmIh>AmRL(v^wche0QGK{x>9w_Dv78h{Yq$BFQH+1Y~w z{eT5T01D%T-96n}JRO}K(duYbbya6~7rG)-i$d5Qq#EP-ZT*9TjZMuxy?rC&6Q|Fg zqgtH5a;vLv*x(N(k!MjGhv}CfGB7j-}!q)a~`@maTTA{I)=*ZYO{T$l2wRiIBFw9Wn zK{xG%#y)@c!ot}Ld^M;(ZbrAi{rpSk7B9c{)|Yf*k@f@~inzGi+B)tRh+SXb5DWc9 zy-WN^P~GGzIo*TS?LVed-E4K0zbYv%@>ckRQ#6r-&_sDGJAw%cq&u3ubR;y5lBKsk z;socY;gy8wSUBOu%NasrGQ9LAQ4KO zi^(8^qUqeFOO??|)aL1D*1P7R7G6OnRLt3BXG);Hwz|2ot|qE|nipo5GSdv!`Upbgj>|;IgVV8o<20sY=uO#r6FyH6H@jbjgud)tSBt6^S7CWWxB4Jg{Au>Eu_lQKe2EB z(E~^04xCKPC@duGYYs2c#>TJc=(WB?s!6l6nT~x6f9!m)Zx}ZyO zzPya6I}wJo?r28fJO~0y8jg7?5pMbX7ykTEfN&#a+_8jQNRRc{LiL%+N=1ItELUR$RPhamaM z!5vds@Qvr@3wR%d{pT)n%XIhlk=ZHmEcDJDD9#n5M~P+!fBOJ$%Q#y&;Pa<=naqi?#&_Psj-lnMGPs3|cA&!+^F4oGlb_*03}a!>M*)3=>AzED0B zri$SQW6Z`41R0JRt$8r;xi36qpb4c%%V9f6C!|vkWC6hT*b0wTdZbpy1v8|ynVs9Q z&>dTz6*YsA8>k@6ta@sByiGV7r~CJ0rZK3eKfMN>UuD+y#POq4Xl09~c$V3<+)G3`0-zS@ao3=|_BV8fzAANvtvxO!8yl~0A24W|S5{lq)E%jmHr!fK z+bUruQeMktgSGEEe2gsPOUU@el?|wVWXWj9 zOt*E{{;fOrZrd4Hj-p3h#1*N*x^36K^ekPM`lQsnd)AgRcu_}g!1EWy|XEdVsE0i!+aKQ zFQV7ad>qOF+o^3NI7hP_Gk1qqmLbaVt&{4zL3nTXiw>ibgrv%_4@kl25Fx>9zq-O_ zXJ$~AjI=Z+J+iQ}R}d`GH(cw{s-|YSx2>aN<0N9U_FY}w9UUFs*E)o9QWFQpCKfJU zzjF7Lul&w0DB;l2Y>^AzsA;}rmG&+MEW7aR)G%vw>%r?k{N-O6>(&WfxOB~=YHf2X zi!2LeXYZg0ZH2eysivyi#6Y+q9h0g=n^Gk~OS|2vly?&)ZY%n{1=q44Ll;F>U@W}F zyej@*R94Y9WZ(6bxeGT(rWOWAr&ZY+uT0?hIbpq}rH$qe*g4ysP(#CGupMKsuCDiv zo^p3@zW_1BA6+Ncd(T`Fg!e0-ob-01C=<(G_~cc3))@MKUB7stT}gNR3E)*D8rmi1)Xe z%neQTIQ(yY?(=>Fb4pJLrwUnBTON7haY%5wuuWkuy+qX49q9IW349{_=FCG`KH6n>U(!_`aMIy*NP|( z_)e=xBubTX$_{2nQprPTRg)<9%1HDa+_27Maa{TJm zOV2-d`_AnfcWz&Q@r66@zWw@_Km6kGK#wv(Op{wG^pu5dnvBXXP_sf#w}AsvH5Alq z7?#karr z)`x%m=9m8X-dmr%@zM8x_~-xblb`&>$KU@KAASE{fBnaQ`<*}fx1av}pa0>%`Ojbc z-JduGItNd;^-gsR&9)6r^-rFkS-dxM@x^QRKc2h#N`2ROX3PDL zbCn?mo$L?Dj8yoZr!pgn2El7u%d49XojA2+=f3T`r27h86h3eQ$ZMmK<t&?kvuYz8Gwei{Q>o;$81X$}5i(_FtW{1zo$}7vxD>L@B|KL$UG|*eO6Ve9K zE*;`nNQ%&14Ttoeuy~kdLBRX^jm&P_5e)EdGh)n}dJ?k*?7%#n)N$gcp!yN|i&bkX zS;r6|5hV(d(;;A%hJ)z2;)352SplSI{+n;VQ&Cp>)Ke?c8_c_O;#p&*FS{w z_VjA{^Ky6#>R~%|VsK=nts`_E$7U8Dy!-Wczy9M_-~WbmMY4#L6m9y!iRr6%?*}Vh zVKI20U%YnKT+nOp33WtxdIm=5Dq_R}i;xA=*-bGaAn=XrMuH{4grg8eUwQwV!_#Nl z`$vd)gJaVMlTA;!Zl!pM8}JMSy-^P_BNIa7^Mi_l%QqJmZ=Ab!e{%kEN6%2LP?)aX zFvrwlZpdnqj%G_n+dE-3vAwr%u*%s{-z24m{NlXQEv2->a3GKKLwMs)DE;*8{LMS} zX6Mc@%h9HY>Vdi^B!CDot`Jbs@OXG4!8_4Rb1l&2Q;7k@^YXMf!8>i-7m^D+(bN^R z+%pXSl@j3Ery==NH7Bq7OCiH02)emPaBLH=UNWEN zdv}Q%d)7zv1g$kSiK9#q`A#zrNdmdn3M4LdBJ>)FH&x|jlau3vLo$}z2gk+-#-ucN zS468=iF$f_&Muz6aPh*#`_m)X6cjC#2$WpnIF|j1lvt0uID3N`*ip_Sz(Vo7C!Z{ z$3ibPcpna`BQ#C4*kagzH1<1%t1FOp>$FUxh(ST`QXGXT(gWbbl5-~Jy%#%RWnOM} zq^PE~siCX2qOmTgw1gHtcj;C^X_dAqdnDd&T*#nq3I}_3LA16R5lzW76KaWSXG7~~ z_rP3UaozD```hZrPv5!z{3kEG{)aET^7DJI{`l@|Uw`-0AN}apfBpSm{>$I_*`fxWJEU})-M$G}WY`%pvoSX0kLW6wlu|7`!%mA=W# z&Aro&J<|*> zOA7^-%2y_O3}|fd@XfG6!X&iY>Hud`cD1O9jr1GcsVu#garwE$x!xC zJ;fVRNQ~KTvyI4E$L7?L`N`Yr1P`s1#t(je>H00bOLh^*joqfd`kVj3j&2!>(c`Ok?!W(ypIm?8HBn%&oeEmlDdd%%wAz2>T;!418;xX~NCj zwk~o<7{fzVP5t=nnb~t!J?0m0oIZa|stjSiyKjhN2Y!c%*Xr6acR>BB=d$)8-gS`~q^2L_O87T&~kR^aN^v&P3m zbR9`QDuE8kXXt_9unw?4$sx1+iS=PY#|GH0tEVR5xz)~B%5kbZ{q!1XhTAu7kRbrW znP<2n0lOW1L>oyd2lwvw343>Lk5fb*K1g|i5Z`%F(r_Z5pC_V|(k`I@(4j#v9vO+q!h>CPv4{@rtUbanX{VzMflm zZeO~*I5{zL_1eV;ue|uqyKi1xJe!}Jc?7jNV6J+vS#JIxCmJO8B60mXt@!yVV0=bQ zm{tfMJ9?C}<>6(IZ;;5bbGN&jw}kvcaxtE1{xO5&CYb#ywG;s$D2y{bu=28`n$OS8~(e)>ve8T%c9=0DljQD{ClT$&1L@a|Jl6)3| z$+#(wQfdDFt$EWBDIZpQ2eI8J7#m2_k&)zM$xcCjd3o2!V6?rlxV}2QI5Idp-#t2& zWT2(ALLiLBgs4n{j44!hZZS~_$$sND+w>}G?M@x-8N4ui?tV$MGq<>*u61l|_Jzgk z-?(}2M_>BJUw!Kj|IH77{Wm}R*MIv@{_EfU;;;YqN5B3jKl?ZT@-II7?DemHtE2z) z(D=3Kg}eRZ3lnFq*R_v8@|OOYrrxQR{@IDM_a@K1&_1*P+v__gnz|=z+lHIFC))d` zcw>w*NfO{}=Z$2N$tWy`?NtpOxy4cMWEE8+;n=(s_XDJ)%zQ2yLX9>nCl4B*k}lse z^=M-HiHw}1QvV~B_&gmx$y{xIX+m1A@G%iOJNDRIzjI6QtM79I!ggO+RMvPRG4EJh z8mwl6*M)I#ic*BbVJ^uSAK`^Gf5h-F?I%yVLSCc_;WyJ}#Fb*^W%5-b{gr_@eCXqN zyGN#1ctFICtgj`74W8ZeG9r!oB-%m_a4BH@CFwg#dX%jbSC(zv>ezy@6I+vwZ-icb0W_ z^@svM_$Q}kA*WIZbqDVn7E1%9^!CciC@SRv)ip_ztTg4@VY3Mqq*92IE8;98Lv55V z(pq?IS{e>XD}%u9Rh?hLzF$eTMR2zDZ)|d!NJY$D=qI}q_5#wS;O?h9Ygsud}NM?Se?`IApAfAsOk zqzr{^*ZcSQ1f$J((u?bS1|cMODsH2-EhYJ+X3);5{m5Qd)YNZ9%aCAN*FXU5Z5C zJS!or8w)d-k@9GvPEbsuG2>}V85!Dxb(nMB7n)_XZVVZ?bm`)m*_rIrl)B1_YnLzH zeeQO4MhdJpWD2agO$jbqrJjGxoKfzuh>xA-XSVBTJo?zOWlxaVmp$~zBVLguY$w`i z&yZb}_8=YpsP3sT?lKPuzx2?Kvye$8OARKnYo}_t;({3hTU}j#WjZ01KQ)4rCTf66)I%aB{ z#>Qrzn?CbWRegVXZC}TLP{41GOk30Q(YOEbKmF(*|KI=Uzx=Pi_@DppKmG6j{n!8P zKmGM*pMCZBey@9EdUWQ_)Z9x~?|!+tXS92CrhDXE>%e^X_{F}dtKH+5rWaqCx$vNK zGq-d);^zbrm~^Cse3Hi)K%Bki)J%7RyX$m^Tg~35hhqMtDDMdT8g8Ma$~&Z zw?9alkCbbnnyAuC^*O{G@o++E_8v*LD<0P|sX2J1fLBUyC%=*sT zb{Q{4IQCFx_V9VLz7*9YrWG*596Edg4=0!~s~AQ`+MzL6Mt{5%LLgzg=4^SiDIsJ*TT) z-Q4-Y+h4nQ`{kjDc?L)_OGUJnorWJqCW&groRGuH*wNWbH)a+tV((6tFn&dXsjVlT zOPJy2@xxrc_2Bf`%U5sSd+wz-UwZZ37hidMZsCHtRM=kW+;tLgc($rdy1XY`0AnAW zn1=11G0HroHRA%>iSWRjxJ8wrb)}@Hnr4#0j;?#IJm)A@s`4XMKh0|9KuT%IaVJj} z78Eo$HSyp9cF#7S3@Gzy8jGe)LJ1HN^#aE^|$=y|mt=O_@J)kzF@dB>*lq#=7xZ1~-Me+mRzZB|I`z_3q+9Af56U3IspWvL-C0+I?X1-_7F26g~o%P7P*cTptn9`27 zQ*78Emp%UYZ~o?QISL84c5JahQrywS;H!@ddq3T12pp{dl7JBkyw)4b2eQYd9?Sbp z%#S$`EZCFLSFhrpnZEJ*TYWR9KmMbC_?6%L)6p{*>N~pIdI#yEg5~ji3A)vd?G5ci z*@bm=%@f@N7Z(=a?ix7T)_b~pU~zcj*1cDLc>4VPf$_^zXYS8kczbl_u6J&{@afC% z{q*A>{px3b{kMPexBu?{`s}kezw(X#$ur~gH_u#sYxcr}%g?=SSMm$*{`UR%f6_U6 zabWf)U>}&iK05y#Z10`8)H)Eby}D%}+SFIs&{fsc1-+NB9bGS>^EY*(?sS;k&=0LC z)Cq3u&nT?WA%)}zS!znEvej9oRT`{i)lHcNr6-ayjovzfd2f7Aj{xtK`B+eZioj99 z1kMYHqpKfj6x#PhHtYYC4B_=XdK|7h;;Ft+od+`L{&8|S?8FI^7y0=GogJN{!^19{ zU~JgEn|s0StSYA-fN1SHzCj%*%P%xGy$yU6Qu2j2@qt^H(M_5T+2(U+uHJo6*Vu|4 z6QXGj51bNAIBdIEuQ@xpe2% zkG}Uy{W3iQdq+)<_}5j6w_keW@~!(F{bO^BH$D1BXGHhg2_jj@q$>M^&a1P4yC&Ed zMwAR`@vLmA#d>Z5|TtgIaVLw}a0q8G!; zg>43GhqS}(^9xIOGk9Mi<^U+~XIPj#HC>I-j%^Dns1V8VaB4g}%z(qTfw%!z2iU2T z!t-JEg4mmz(Z+}xhE#?aPN5Sm9bl&uh2kP|dT?+EA{E*Ti!xrIkdP2e`%J{9bB0q1 zTx0w&GoveyL`;-KR}_1GCW|Cq7#iT_EzqJvnf(P{L3!5G(*^5rVh|MV;pI+8>Kss; zKGIn;rcR$qG#Dlspn_67u1KnTY~^V3pE`5Ktl2~w&c!VQq~m*}x+;PQ2n1$&41X&u zH1n2;w8QCOJDLngK4Ti+1JXWi?#!7mc@hke9k9fcLckO!Dy>VGE;2DPAPrbgM+XT7 z>W&o@4<{Z)q$HLmd^%i{j9a2K86GA}O-m^#%r7Y|ZtrRb*!y?%1qJvJYD3KtI*hZF zb%7Kb`eemcbn!wgg@_=y6?iLHEV#l&h~9jBn@fmQV&&yMaUe68SrxX-s<6k}Wo%)! zV%ZLZlPe4q8%6*E&)@hL7Tt*xzY zsISUMR%WEA zxhRjQ>)p2N-1})ol|5r8S_k*%*EXl-6-&bD7!4#$jMg5?$0=DQo`I3!v3aq|>ga^B z#FVONML|qbVOC*hLHR&=-LBE2j~hD2Dw{_eI*yGTevBVx+wk4(yC3uno!mNl@amIq zj$OOq6BM41R+V4XmsP&`inX*j=ZYQlE$4y^@ADUxw=}F+nAV9r7ms{Pt2Ca zrbi~_dId*Gqf_Ei@`A!+(PYrlLGn%b+c7r=$-N{I3{)aXfG?uPgYcG)?jS$DM?)(I zV{2z{-q|OJC`fnzU>ENIrsGa@fXGxMD~GiPW;%xEOxYtk zjKEB`Ig7McfUXon*KOo|bD@w5JErQ6VnZpFmfv+7^$B=Kpnho#IS)7Dy|jrEZW5vb0p$Zh~1mVZ~jwOZKVqRfNb{<3Sb{)Q)Q&7fQBW8@o zCSZ}Fe1oM;sTq@j11&mUiPNB}b?fO5p4WAaWaL%YIJ*S|ONkMngo+IkKEGx7NSHhV zugoU8aYV|lI}`fSGV?0xI(i1jo3{){#H*B~RjBhLVwF;PG`~0oOM1qEcIwx(gZl+Y zaKxX67;=kHule^o@{Z?ImD4be)lVU^o_T)&dk8(q{0wYm1>9 z%dx?)Sh^I$B%(dkl*yo$CMJ$JuWhZFGeZ$nlqgKZj8w+zkpn+_=1gL8sk+kFnVpvn zV=pZ!YG|k(**zRC3kInXIsibpFmTPA&Ik{#WM;Wy-_%~VbP7FFi?j%BD$kC9lcZ0w5_Rg{J@E)XWske_`5&vIr-tpvGbq3e91&qKWThIR$Wfz zKzdP2+u;7pvWD93J((44*=60O4Wljnmm*XJ%Ixaskn z4~bL&<}QArPFP~Vb0#Qx1yBQZ@s`knijUpVGZ25Ilb1i*3qp;%f2b8vGei)(`QUta z^9upiu(8l%Cfo?eJK5K9uZ-X+&PKp zX)f+w$P@^(2r=9r*w?AetwpB8D#U65|Fm|GJg?~gwG%f+Wp;*UJ)RA(?MI%@b>v&#aX-X#ISVqstk>UMk@ZLip;d{= z>caAdj=nvE`_J}`9BJzvso%Vf$CmEF+E%iNx8#@BmDX;qZt8058ffY4Z)ojqZtu;` zEuxnet4vrJ-Wh(I%p?tZ(=UVY0#OIsBcfwy#o`Uf%_~ez&%$p*A1mt{<^)zxcEpK_ zByS&IdeV7B&H{>oZqyP@A_BAX=nB@IkZ4$0A={K$L0zm$bURW%5i`x49Ld_n21B6% z(F|@6L_@_9RZz>hq4@+k9&bFH7A1$T(AUhufJ#HZBzp&SNnPe8Rsd)K0JD5F-BRIf6E;g1h znMk>`sj059v7T1~a)N}AVd(C(snhV-7#r&2+`%i(>H&3!DzgrelM3ZwMVmi&E-5#7 zhHyNB>e$b4v$M4!p8;%V+l_*WmJX!jwuPlb73h^9q=?IaCO*>pB_W8?#AgZQht>NA z1_Ss+Ronb@bO`GTrBb6ObI|~u-9b!A8I?SAcGT4qa z6l~{@;t7;LG&~~GmJI)3Sk3lE>a_tno2fB8GJs3uWeombo6(s!w@`#|O9{_fr9cO1FfwfAg(&9;K- zL3Qbtcy)PZ`R443uDq%~uw9;z8xoxy6ruD9A;&-&o17Pwlm+#Ny@Tz9+t|2zT8lD= zpNmhhyT8oII~dq^_mw!4@#qyuMHR8##KzIei415F4(8-7v3K`(@d`i=Cl7I>nO#Iu zu_CV{ETy`*?SQvD-cA!xfI@C!Y0Icq&O1Q_C@`eCtk*R*FtsKiSx?`Lfu&p=L=zw{ zuh%tPv4$qoji}|oJ9d}#I*20Xv@#i+*%+JInOQheyS)qF28#X2O2bvXejO@^d96*LZoN0|DHV;;e{C&44BKHNi#bexs%!= z7VUtLP>kyci?rm|G_>ZGl*gy2+XwcS)wU8ThBLB#VDHx9(**eYNu-jnNLh3Ooe>~B z0Wz$o@u_+J`>u2h9+Sl;+PPrLasbErE#wt%@EzTLfJ zzbYdyR*}jS)RfG8vi;HO$%LdBK-VE2A)1v4Rc`9sv32A`TkoEhp5fl1@xEQh_)29% zN7weTEjtf3bq>_EZr$8FTG`MIjc;z>+St}h`c2oi;o`CysTA{g6xa@E<58v@2|0(o zQ$OXV#z-TNilRF#E>VeRl1M4SXJ}rG*0Qj3EaiJqMdl9Y%$@b`zRv$jH>dGq1z z^fw`u^9iSeFCw|)hX=jUUO*0w1m#K33zch_Jh}>h#do0MiN`~O?WngmlU`r7dIgn#HWC*shlCQvabajSk6F7iMg93x3gA@aZ3Dtf1@>R>0G2)p6gXOEQ zy#{=Rg-Akz{7HJG%gMpU8ek;3oo;wNopso~r%stNPcvvQB*?F-vYY@hv~*q=m=1vB z9-KU73N}InMvRy6oI(>Exvu3&Stj@4+{3hkvl=atu9 zo%EJ)KO)!g{E6Nr{Oy=41d-4;pka(62%quFMbo2Zv(G-AEgrm`UjzaV4gmFJ6(S?h z3uA4AbmZshCjr~ZE~lrWtgUP0{1rc$+>F35A76K0G7_E9nnJ^);YaeARCnL#PGHkeKwqh$OIGo}i9TD@;r;R2Mf!D%Ax4qN3BIYU$v@SZ$D;u2pBB z5LZ9oUE=B!j2{xAhKYNaWHy*uZ7^jBHiCSxPjDoLc9sLiBN7X_bhW-`aC}^DYfMga zUj6VYJto)qCZ^=nZr;H_Rn~P~Gba>sx=3V5ywIA32YbpDa~LzBo&S3!ynl>G7Hv@^F`Sk zV5cey=>yv-l_K465^2!)^$!x=pdy$2iElM3_AVyqKbpds!Ib6mP;@yuDXxoD!}Fb}3AD3c;%Vxr^YV&davR8bjq zM_yitw78`lEpn)-HK`s7!_g#u-fJ;SFG((*Ssc_O6j zI(7-SIcu&oCaIvhnT`nzEmW^iGIt-j3J19QIT9bT4X1gP-P!>iDye;xOJe*ydVEK9?RGSZkXVKh>hGK+N zW5g*G3-QVo>;mBM6W<>R$iRplx)FNY@)gSw)-b>T!Ymdre-IzXBQ3Ec%;4^}(X1eJ z$8)hzNPYDUA?#SqV+lu13jJqo@0*W;z3_rtgTIV8#!HYakw;< zQ&3&FVnoagrNS8yZ#!!%+f7!6x*LIaQV2u^mNWw)!cWIqgNp{y2AKuz9SsoOh#4H1 zZl=EdHuF0ekeU!1tx9BSW?V{ALUd$!vN9o(9xJ^Ke19O(-o`3ABFx9r?UhMyPz+_= znLcY4;K}qEY~f3nEM`Rj$l>hRZ{W#1VaDuPQ(2ytFSEAUMBoF311e!ccVD=0!J@_R zF=3FOKcq{2+B!Fl|q?!Y;LGa)Hb##+OekBv-aLg8iX!m8C|4dJ|9$NkApdn3s|ra(T|418UCxrh)% zt1&P%Mx_DZiAzCWV#JcZu?5%;H6_BA5}h~ylAhODRI{(B_CQJPfvV=ija}n=PkwOa(XUrO`SIFk-(UIW z#}8hak))J9fzaR%GT?dAf80Ur={dpF-~RfK6IZ?|Z|IIpNZEVlhAOiVGLM^)bUt*w!kW!x zO$KW%BGO8r~m{pj7)(ckZU%>*wGPE$WkUPIWrgA zZEa=KmYTM{`i=pF8M4S)x9(zo-{66Z`%c~6ck=GVJI}W49Pb?*AKG_z+u&GhS6^FK zUr*nz%GxHxc0th@cM-uXmF$=}1qIoZ%v{ud5T4=!H8NUm*`8y5FDS0a$jXa}S75H0 zz;+f{#2EB;Zg#4`>^mkj8K^qI&J75=M#M*GLb4IzHdKpot-HGM1YxiV3i4n|Ad!#e z<|x1@zGyP>@d-4G0rh+ZNdNyGHwFMZjwZM_fRB+6nT72DeA|XrLK|ysZEZvVsXn7ZA)s9Uj3Sksr8u<@GlZBzPv-u2fN>0#h{DPHHRy4j;gy zCeeK*kGKgO9PQB%aOY`&UE~iyyrG?MPnj$_F>S0V8k3^4iRnwIMvIYOmY~>BTE#I5 zKBL=^jsm>%ulPUz<#9rhU}+%f9gd2AI1U_D zs+8o+?5y0poT8GV{QTVPoXniutg^D=wA5rY|5sjrozkvmMxFp|%D!MbDmn)&9it=n z8}BFk40t;W5v(2?Bmj>Wk|GHIQe!q+{!&$n#f z-@N@~LH(|*%Koyp163VIYPycpZ#fa2Qkq)Ol2Ou*H&R{P7Ng3KO3KYFX$gx@lf|ll zYgSvv;W22>(vGrfgriTeEvdhf2-u=;aHMBYIHVDu%qo2|KWSt{LK?vC5g_*qj`RwV zI|WKHNxHcB8dx|*W>jW34g1Pf@K0MYp~=O-(ut&+w0s6kc#^WjW=Ge6OTvmm>gsi< zm%5<$Dlvl2fJ=oyU@9_bEUcu+cwjpN_||SPG&Hq!^9W=)K%zG=u_U*FaYh~o3Fz{$)lux8B~k`CxE0qU_m zQw^p;COMtCv~k!+aJN%jl*qyWQ<{J(>zW!`IvIK)k4vm>+Y+Nl-FN!l>6^b4)U?;N z4`EZ}vQcFe_U*nvr8^=%nZMn(>s0sPIG)Dp*6rtRKTFRo=^Z+VbQ!P8h*qYdk`Z@E z50W#}PO#_*x!n`=X8#)&8Iy?TrLZ!$xE32Ek2os1)#xPkB7(r#t)Qf4=h(%|51*g8 z^Dj8ZtkleWtn#$ehKok0WJouzOI516yt)y12j^4ObT%b(UI_4lEb;ya zlOrjQWWorwX3AHBQ&HKY%5GsPmq!EzN!X6S^{B~W9|hPoHA6GDQHbF@X9C!F5(3&Ex~FktNf9aEy(!<<^x$)mgY2`GCvybid_U>r5;Ue26|XV z^!0Q(q3qOFjyxC^*0rVOqOI42cA z4nBwWZ_wAJgMsx0m=_1=R?>oyr5R zib@37K0(?6cn)EPoHPl&9hr;F0Wf{ue67{1*U)c8?QQMab=c>?1B{W#HJGEQ=>zGS zqMRP$Jn#W}(5VXXV}nfRtbeea)Lc7U_(37Az5(n|;Pb@4hDF9ZGS9?U>KPE>8?1@!Dcb{kbj4m7PO@mY|g3ZOU$ZCEoj68pHYY)ljYzYWMBt`7bK5ke3K+XNiGeOQo(kt z?+#908%=DZGfETk>ukNHvcxpGQcYLXYJKxXD>k~&2DQnN%w7?y!>CqsTP*I&R}sHS z))V_AU23MZuPy-=*RF?qi=rptFw0iyY%oBR*{DxPp$~eyp{Wf$s`$9cL80WTvD^yZ zqwvNclVO<_Qj9%LLV%s68KoUy=NhD&iJ}kPtnfdef`77DdpXbH+|#K9yd&4pxlfBa z_6R}Jycj;iPzKRNLua~+qf<;&lr%VK*X|J*5sDxE9YVUr9=3SNT6*^ctyu!RgA80g z8})QOeY^vLLl|Z#DvgN>|KL!hbVNv;D0R(*0AwblW)xI4q^R=`oqM$V*n^tQJL}s9 zeFnK+v{_{rl=Y9EJoVnw3-_Kib&oLD1^FF+f-uJT_z@i$6|1PM@2qa= zJ$UZX(RaT*^Zvgt-G6@RgXh~uPZ2u0b=Qf`?FVwG#9xJ{`L}XN~Fv*wKH1Xs_eEYRcr-?EvCk}|_&Etz4gyo?7V2?-RMPZ|C$|?qu^Bi{4pgOxQ zpdJ;CzC-F|EX{n8VgTTeU=E<6lh9cPX$RqX#DPOECk{)*4ZMHrIE8q{*RMxsqiTYp zLfKGTdkORvhL6Pti#TojRBSoG>Q~>G#B<=l05Tkes}IeOP+`>RMN1aVT`&*B`K-CK zQLXtzYw<$z?J)KP2Kb>NU~vS8C)_WXDB3lMyWFT>n8c{19Lk?sZt=T(*zMuvw9Z^<%k z_9kdeNK$N1#A;$;VMrBqJ-k%Ks3m2OS_5KNpub;iOtds4 zI9Zj1n>{TpIVKtkAD)z?C@wC7!!rkrlZ80;=9I~xHbT$@o&)BfHwX44;GIvn;dJQy zTBf~Z(L#Q;$<&r7zx4_q8lNOqNwD3R7zb>kD`1HtBNTB4+JJ=}%N+2I01L3Q1w@>o z4~y%O1FkqB%K#1#MSN@QcViOM2#G;=!oW#f$|id--!(i+>ERn<<4A#6h8mNey*aOV zM@nV~?ngyxtunnfHM_OB=jxW7ANTCI-?#gtuE84|+eYv8?7rGF`p%K}zdLc~DWLejYl0_WWmG9KLn0|J1wvr|$LaxxVwn2hF>WbnHES<>MbIvmU?oMeWwZ zW$pWW_S|dSc5dj{S1sGm7u4?HP~|kI7q_cRHY?PXN_9EOGlAi8NHB;kOkyI^he3OK zCRUV3DX_W)goVbY%Hq=eq_L97B!5{fLs3m^893tYFN^UA3J;D>lE~w2-Tk~mBfTYZ z12fyD>x~k#%7UU(TmvKIDS2_3NI?0(KDzqKH5;{8t|L^((wYH+G>6(#yl;T_)2jRxj($5Ff{t&4>iMUx}|_FSwVaC^uVN;|;L&K?4f zsRl?#pW&>bw3B|uy2c}p85b89z@JArJTg2sO4e(HboeS|6r>kfXb1u_NY1KEf-qsh z5MGf(xM&gF&VUdAeOV*>fmS0ijf47vP*($cvrNiz2`GwMlRO^VQd>hw@09*bF|VPMbY* z)+?{RMh-7cqZoTw>8Ljlp&*e2czU=~w`I{`@4(Dcm^s)!0qI~nstcdv?U}%Kwi!4- z(PVIk^0$;fSkWNupgX|MCj#5`MNk+AhBtgNxMVO(XjGcjDD9Z*=tULaZf(PL$boSN z=L~u~2h0#T7ui-4Di4-Ldk2IV(V*q(B?vrK$6z^*nQh5g zEvY$eDmC<`H8pE4^BV$_R3d3JpBDR zjQ!(3{@XQjsB8Dp`!8SK`s>AxGgrnRJlTKc!#x-8Z##XS&(GgMy7}Y1Z+_Wx<@4Ty zcREL}*YzH&?>*W)a5^EYGQGGhHGea*OhQIE$pfKL$%R#2326n4WFixc@CWAl5u(n) z;5_ zi%a3_az&ORuP!0G(mxzcJ_Iug(d~%s*u4oiHsTU?a5puxB^h|>GNMz-a)f)6FGmd& zv|mjllE8ND72q?94Lt<9dge@A!XCKM)WJVEK@ys1Xl%V;A=f^8#6<`pEWzxmz;=)U ziq7^}NQujqQyqcYp`Ruy*cZm*b3i{4JAxIf*#6V!!pRl$^GFUcGlxS$|481TY0-=J zb3O#cGl%$5!lPNy(ZRN^uExaJ5YZ1{*V57g+hOl)$H8{$XxM`Z&C%D>W3ge=i|^6W z#@54|`GFD~fnEVY-hn|lWNMq*(=u{W31+FR1KYRlKDX=C?V|c_+DH;l?B5C#jSAOTrW>Sz*!f{sg>) zM@psP(Xk1vDfy)}JNI4c9X^qsS5ej6hdrLU4c={d%)B5)9 z)wtmgTpZeW5zkC@OW(lQJH5jvyLXNc>^TFxA3k^Q(w%>wzwxir?|!!L=vDH|qGFW^ zNg0ZiY+RJtg_wAof%oL}95N*1l&QoN5LvBE&BUe8Do|0=nw?)-SXP5XLn)jkm2xTw zkDUpSN0~u~Wncz>;%>w91crx&g`>T2{+MCK&4`ABD-nY_9jrJQ!Bw!Gdl54vRZ-Rg za2rjAZP$cZoi&zM^{(J)7F=4Wru!5lBVAO-p^Bi!Vv>8Nr^lCH> z5K?%n=@P<1vt%*A$oy-DQV2Ku!UfZ(y$xuaGp>ZyflLA-#gJU)&ok85C!ZX`4BErS z(O6*nSj~}QgjNF%&zlR>^N211pT|7oXlp~kG|1m8OyUwXK##UlhowWn@e5r%0zpaxWLy@8q3KLaz3Cg<6?CzYRtx4*JxYVlT ztk$&b&eW`qjJ&SG3LM4fwvIg7b>#bPdp;W2|LOSUpD%p)>y7{XiBIO^mw!=99Xb9^ zeec-ri}&xmeEIITe;&T`_`;JP&fNX#@b&xWzx(#^2ak5{AHVwO!QJ0}-g*B0fs>EW zYI^tGuHABQ`;j}!+)8CmO-3>PnTD9uB3W#DLTX`*DmN}U4_!qxnYwr}&d ze~7iS7skj4MV34%U!If$wtEMKuGy%MUlD1YGALb0R`%{F=cM}S8<;}cfmxUv*bXM6 znE=sz1rII$c432DwVuF2V`FPQL;UrD_HMxep(+pGNcQD(Xdn?ETF7WncOFn?zzWs{ zR33bdS2E16ZqY7?Nr_Sw&u!7uLU zu}n+`+cDT-!wZ%Krlcg<*;*q@ay^s$gii}>XN(`fzF?si<{o|?w-L}cu(EMWHw?dR8!9(_ zS*YzoX)mfJHM+E}yQBYbNliQ7jjmICEWX$d-P{mE@bo~rJNia*i)+%ei!17wzkTBD zwg2=E9q%8#Fns9Ro@2LQ^5m86J$CiL$(u*dKRkZn;kj#HZryPpGKS)*TA7-Ykdm2I zSXtH7#kb1HDMI20(gAnIJfZmeOQbpZWuSj%ZZY}{Wmev5P66=FmWsPctg054ycq5> zC_1+lxWKt!144LjKtP~e9)Y^TyNZV$M>-~l#Y;tflQkFZ1$fst(C3fbjcmF#^;TDj zL_*r~ocRk_0{AP^BjNS{49|ytqpJWTs5CY<)=o~2a7F5a?9{kC*nq)Q5#n*wU~b{x zvNhmy*fczr^ZxqeHwj>**@xCh7=+Nu&Bz#Bhn54jQ(NZ)-pj%PU7V+-#mnOx(!|8~ z_xAF1aODk%L1t^AZLC%?rXdCp9R$kPLbxt9=w<;&O=V73vBv@>S#+88$i{T455 z#!MJGJy87OBrnkF3n~)O&0u(9J*YN9RETe)ag|nRZ$Cdgv2ls?G$bVu>zu3#mxnXR z#>ChN`ppO&ZX@c~ltLy=nKF6m+f++YU|73&RpO`5VU~v&nFrL|5aOd_LiC$0Ug_h6WoAS7)M=i9iXE2u;w$3>uH*&Xva1$g{vAJToNKQMp5J zr$(ns-i@N#gKIJwDugOp*>jJGS6gk?%2a#PYrYR9@UI)se|_-Z|2%&2$Ds?i z+6InqJ9KCK_E(_&gvYstM!AQ`9ee`Z0>fSW zWj@lF;3%cBor|fR8_8qg3bn5+2Fs1FENbOOLwW&pjEHg2C#2WGO=$1PGEjF0=V>pe zYL7`t1bpF}#al%L1m{9ShL=)i1%@e}>W~O!VK0@dJp7`ZJftQT3@pYffa;3zkNbp+_nI?iatmbLZLc{%bWY zeS>4~Y~C`OUtE)#k(ZTQmRne@O2^rruSm;HO2?5ZFzNDSxs|JVOer|R()$veJd-)Sl_M_V<&H&x&HL@l`pS7c)tJSwOt3#jGwuA z;p#U{ZQCPbl2S7Alqngc8IT^CTUFDa#Re}UP=BBR%fD_soA1()8ERK z0!@vLjz%~8Mc?pmn@;Ax(c$(ls#<` z>Q0?hf|luh}y z*-Pnegt7DfknxX(#rBv9q(UIVmPs7_{CS$rr|EoUrVv|ZO`kc3lvgV&k;Mn3lcor+ z(-~*Y)$ism36;{wh95X8CORfIh7X+W^fbw%DflF+bFv9xq7qF^AdY&Dx2K`@ybW-( zFW~!&{@KY>usKbgHcgC1oq-TFg%$vSo!gHB0Z+yx!z%NZh#hzh^@iA=|M{Q)F)`BT zW=9b~xy2y^f#+t$RKa!vp0Grd{tdO`Y61;lm5@E!mtgmh4Z7E{WPtG|G%wjXJGgj- zgvZ*u`I_5!c=<<1#xeH2N*-Gj8j&T9%=QmWk;u{mL(?K+i;~it;#J6!HSEZXDn^TI z_B3rhw|)Ny<5zw@b@P{f=RX=fd+XS}$5(&(@&1cnFFg9JclccY!H2sqe0%nzU$1`k z!-;zz?tS;YvyUI&|K%6tnvZ_}{lO1EefInBU;Opr`qw`kzWLFCoB!T(?dkRtk9M8> ztbgB)roNLIWt}PcEm6vXkSNBd<|U*TC1sVSl>}rHzq@@q_NKt$GcysuPoL-Jl-=n(ln>lze_=Acn$pcJf!at8O65r4!dv~)43RTok;y(mv9`{Ec-?2so`)u>MY^<@kt*PwN6r_d8OBa! z95o)&PQDB?(yXm*q3*i6dNk8fTM^qdGO5UzvSLSIgn4EaGe5|0Hxc=+P&;QQr(g*M zM<23H0BXz=F!{p5BFayo4ZBoW8Mz?KmlD>!h@Zt3#1T`300z*3~w3sB@Tu-CR`Ju;=8>@vC2UkDTt@dHl?+XPNocwhk`1f=jFG zN5;?Qlr-j-x02-CzxQ}eQ%^`(3^NmJTDPa?ltn}<8GnS_gNc3r$p>XM9bNqg+O~`~ zcMi7ojMTUErmOR@IHr>D+tAs)^I&*1_H$&Q>e8wv6cjRUh`7PI!*r+NvGXOBO?|`T zV@I!U8#>U?zNNZxb3}AJBbe&jdI=n0b5UN6`Ek$Dckb^$cIEKN>sN0-t8d;Gmzb_f z%~q;1l9~TnT$89`oL(ueAR>axYFbcc0)nI%V~Q&4_)W8mDq-??Y0|UuU`pt3+)C6t zXi8)jrASq z203v~LfSQRV9`>X@e%@5U=$z^n}&qytX&J&qv}nR77`AXJ0Bk}ye=&4Zm!Or?ru0C z=}u+m1(I_%ab}QJ?qqMzHUVD_njU$NZ@e{$aV}gN!1deHr_<^WwoiI{3Z8vWPxnPs zB&odcvsbQobL!N^+Dmu>HbQ=!r#UaR7Wo7zAhhFm}v8b+os(G;?=x^zm@rxOSDLk#1UI zbaPGV!Li}`+6v6=w4F{gqO#58M+=uY_&DWlmbt0Z=?t2Rrx&GY&fGcErcUMMaXn9A zp6LS2>w z43{W#dzq*k6&p(kD!?8U85N(9fO|%j#?_G(6&pjvmR4W(1E4yt7z(4f)8XfnCcTLo z^XeOKyftMCDhZ%D}=aX@G^qy?FnLEv%aaarPi6v~Z}i7nxKn`ne*Mu|&6UC?C^B@ z%N$&T{6mzosJv)Jl`J}65|$njo9`!428JewL}W(96-ULF@fe#_l~=aCs%c-(;Pu0o zemZsQ+2L!SkH7!v{&(+Bd*Y94weDupN!>2ABfB1a&yPtRMe|PiHnXO~j z)D@kI+}vX$8&!GAF95iRzF9bxKiVYGI=yvobC<7vH;wBr>bKqqu26rc}$5)K0#^VezT< z-T@?!q4vb2=4>>vB#NAQD-dt2j~HSJ956wau^~Xf2B8KwBTO1#2h!OYp};TE7Cc@4=wV`y0hysuijmI4YHEUe4yyr`-GD^NiI0c?jNdV6|?hlM4?$D_>}85!X# zP$(Eap@4(I+aWgW&GEN0gPyHAuLR+p`vPF+0QmtNE*Uf+oP1919u!CQO)ZwKSx@>9 z8M$P(DcLeg_WBbM8kfN+9H;39N*dbRnhUOBsBUGa2^(u zQ&ivFJ-U6*JDq(83rgx^;*$w6Lf`J)F(2=Un$MmjD&Ol=)4j1Ac6%|VW0x2=u1`m}~Gz{!Iwte@p?t#4{hb|OX zG!&5D)Vj5!f2?a@Uuku70fEBZJIbmX7!|@2P}A6{NX|-0FGxzE9W|Sum{U+5o1g;A z`Bn*vlu%g&;{r3X^C{_;RyQHVqu7*IHnPT0_@;El!bh|_q}|8QpDsl{0pa288f-_w zHYU`aK3~ew-abB@K~a|u4xwxg;LD^km^sm5aC?Y4AE+z%)#)XstO?qSHBLCb3$CVv&33>E?!u8^VtQZ)s*maUA)V=ZA)b z5RV1;pktubV0TC7r%noGV0$-Z#ta!gwZejEY?(^9=WJ-j@5 zBDGd4-T^8~q^?a=7FfDz_7Vhjt`lA6LR z;WY6>X$Quw#I9tbNJ;<#YcWM$OzeDREBr#!LnHG-BC^9{@+0E%Wzkt7a&<&pX+(T^jIvsp z-dIw*YwO63BbR3Cf%*bx9lZRULgK(J6(h zg8Eo>nTISUOp)#@jbh%1jjNZ1gDcn`rOG5Uj2c8lLb8dKgN~jV^8{&1H8Quiv~@Gx zM1;E)fnYdWsAbT^geZ=`9mY*gFCskMz_f@NQw13eU;TMuDd*+t)Ul|>#k!}&0XZw zQ#qy{XlrW^@CHewK_TJHa8ae?(7Ie&xq0WFcQ$X`pO#%--?roG-Dl1110LS~((tIu zx1W_%HfQITgTP5CnJ{)FlB^usr0Pp68(2b8(ld+7YN{JLFucbr=pGgGNpYb>Mn=<0 zMdoA2mcgODr>cn;>mNf}rv-KUu46;{&)2r~meqICvU>f~->%$$4sRbjcD}89YiA$1 z1Z@;>Q`JSu=>-hU%g8Li>zPJoU0EHL7|6UTB{L_lG%+c)x}m+MsWZQ%1|7bqe=pNu zQQjz6v4oL4BMXx=6oaZR6;m8&06V9H>MGj%MAHHH7k3|xOYG-0u6Fz6lvJu?nC`;D z!dOP3)4bbgIhs@FZh-u*$8fGC9&Rq^)f5WJlma)XeqzJmATSIA4B!T^piv;g0N|v) z38jS*;TsS`OyKhv_E;JwO`gnZ4rn8%a2dSy_S;MjL5n6;lCE@YCFn3z9x0gG*xBgl zZeT}%IS?X>Vgswk21)Ibb%%N`o4(iH5(As2&zM1pklH9pJIV}wNgUAexwB?1(c+KG zgz=XNzsAPk8ii9zoLEydol4r!c-)bIJW>h18q^r3FnPMWSeluDx`uiiBEv#b5@N~= zvfCP}si?L!)ddIm^3Q{5Yrv`FjZMH^)DhUOIMRtFxC{j*4qiERC3Y5kiQ$9vH+y)x z`*?d%uLR5??cger1XM36qyp^lcG$mW)mX>XXHex93e%7g2_uL-QY73Lu*TffiPzd2?A&7Sf1| zQ;4C23u(xuAABMDJne!LY4fZJ7~Sbn#e>A!K(8ud4h;W)|M!2{v9YH>vt?@!!Xvz} zF=zGFz&q~i)rbO^Vkz)JN8~RvmE1f7oZW+c zC5c{v%Fw91KQoVwtzMc}_+ro#=i_Ujs~B2-7$ z2)jNh?^H{DLZc*6%CJPWG(l}g?tm)0sA*?PNo!nIWq5M7Z+Hy$cp}0`U|mL+hU}8mo!8|l>Ey5SMiN%TxwzH#WA!bD;&KG#6|AJg*Gc$8Q0NiFT zPc4-Nfzu1H6LL#$0wo@VHBKK1TdV>=1bh$kb5KA4S2fAuJ|wYg1Y4S-Nt`7jk4iu8 zNUlFxwBdVTJHk60egfO!8E_ux5L}MUI3PeK&IUb0I`|l>OL{!%>-puCnFW;BQ;W)K z_a1q#wqz57^8M}K*BGw#IPg0jNms_v~Lq%}s8#~v!p%0YfFC@!nTl2}+$ zosyR6?&jf!Tg1&hH@~Q{tsCpk@V?W%+xNG2?Iba5@3HIKM^CV)xc2zBZF^2O_6!am zym;kJ&jZ9T-_5@DtS#_H?wv z2&@);2S?AI|v~V5mc$^ zX5x3DE5Vr~V|YY9!m>nRfqwgb$DjPUjMBww`ob_*vV!Sv&anhbW}c*-^^!wA|jjvfq`JXSI{r2M7UoU?9`S;(ydHL6s&z~H= z^YQoxUvC+|-m~x8*8Mk%num%ShZEAPq_GTR%1uZw1=}MP8F9(kS;cknDcOqj{J1m* ztunA9lEy1qCOv!uNdP0?jNIK-VzvThY|Zeh*h zD8dA&PQ%h^M5T_+BeB4w6Hsi$?@ZR0zOm(+jiy1^N_`~M5b>n4?1JoII~5_J=d51C z;tYsa^lA41~D@==E~tB6q%?rY2(8b2(Lw*4%WvN3e^|ZXl`~f zuVsYEyui(r8Po33p)5^K#- z`G|bULUV5)s%z*et7uW@l$O`Fw{#A)cJw#3ZfR=m&dD$K_6y9&Dkv$h%P(X)Uq^mX z1x=$2|6oi~Sa<}BT0%minkh)>Xx;hr{wE}=*qSq+j}E4;ZG)g|VQJOC?jz@}e!2VL z#kQ?O*B}43|MbnhCvP6Q^dZ3r?>_!*@9B4|Tj^vvM1AKmSKxoX9XoTL2zsoK>bx=x znW~JO^xWdecvWOv5@VVoh%HXdM6{R5qflI#DT!m#3A>87FAfRLLz9UPEE z=uJRdV2=+t2#IX{Iy!?K>}~l9O{T`ihJZFk7s&kDwX2BLGBq}|vmr6wV9wmxt5z+y zwzf#mNb&dg;X;5p2Gigx2~0?gFDfb4cwkn-+nrpTsOHiVLHr}+9MA^6*;7Dwtu|RA zi?fIz*HB1>&tsKAD4f5LqW>~L?6pZE&ydo)2HVkL2=&zh!Vowx!w6I0{JHqn@vbir zJxa3>+i99bz`?|h>2T)MsVi43BidI~P6;ixv1WlnuW)sCh^7ZxCW#6URVBn^rm55^ zN^cj(xCmKISy7}k*w@3&-xsaX-4o%&!yVr4=ITNW4v@|j4z}~+McM*N6eLE(U@~Xi zh4LyIJFki&DlHvoCc?ux3lHZ)44FtGlmNs#iNpal)?NnLUbH}KiPl24wDcB|j!ldn zohs~XkwoRvP#c>~9$s#~1iEu0d3yT#`0;AkGO&&~iPgjz<%)HO9R+(5ULNa?Cf8DN2CMlMdqv{`Br!(3eGsPLwtd!j4E$;HEhilL*I zJT@aDK35i#AD3K{p1--MdKXELEnD7e=(t$jcA|CLrGWz_z&Rn+6Ro*lXK)uCIT zUitRVL+^iD+cUcT(2Z+f{l4wMxvhuZJ96`vLsvh3@4KJg`_I4L`|OL4zxn0)%fDZ~ zeEH(9zkYx5+ix%b{`2MEKcKz8{OioaN2fmh=HQ*LT6UdoAHFa!{-B^?0N$=H?o{P8 z5IYd1%yaSC{YthPN;?Gc1tQ=f)3{8kpLmj080g+ye z7`9f|(cRZAAk<419T=<1tm;ta*C!P=rI)qI6zNDbYyq4-{Z~S`Ev$V4Wvcv26FXDDz^6EknrG87TDy*j($K=nUYme(@|d0f~*}Kr)ujN-oEQZ zaamn$eS1So7ujP>tfuQ9?@fF6j{HIxTMdsH>b&N*UQ!tY`~%$G+!YEX-zYXAskULW zQkml6;hm@;Ydt}ol~1c_S#{&qod-@_dN_XW&cMDCy~F#@y#KF@_r3?!4_>;z_uP9| zzxa9Ih09fKtwZC7K70Aswy>%hRL{sSWwetbHH#xDJtrzYDMg*f z*ly%~96^KykqsCg6~oSjq60xRG&Mk?_`9T(bgcN;@-gjj2XdEjXK}kRH=HR>#K6+5 z&I(1oC3-v*lbtoS5^FmLz@KhbniN1JDx2QEeteDu05Z^3go40E-HOB*Hc%R;I<(w| z1`CmV#Y|^?px)R>-;@AE16@X4pyHaD&_Zu$Zf-&hBxf1EiKit|5%1&cou*Eg$wE2T zFi9H*4LORC3W~s#O#yA7$-;sh41F@&nJoidXIWW9D({Nr@Of4rI6t3TT3SGBsRkl4 z0Pi3q<$uISK%UAG`Z*SNdu!^RdMlO*Zwxka!UVKveG;~I3_1evc`|tJz^`Fx&i|P! zN4ry?pLe)4IMBxL}DP#`D} z>R=Cl2i)0af}-qzxcIpt;O#t8wt%aky-++wKS69q4?!S-z=QErbp`A%S_rm-s{|}k z`6bJK9g`OpE+$l$ye9@-tY0PmIA_Kz!}V*U!a{9rH+f^hcXPp7%$;SgX&AJzC4|Y2 zjWg-ZR57SknVJicjhY4f9YbPyO-?G+FipFzBUBCR?tzpb!(XJhyI9s9l>KK%X2k?%(d894RB zzH>hgAOB?c*~h!ieRT4{^Fuej7#M%QYuCAb7eBl9%^zKRPWK&s0JfjJ`Q63GPu}_0 z$B*b{`u^F^AiMbZ`}dcB|MKEb9)JGh#htIdK63N+*)M-Mboa^NnMXs%KjAx9cOA^D z-BI2$MkZuhL5ni8N*0r*%qR(uRXKVFFxwP(_m+go63_VgTH@5De)4!HzhGIMDo7r?e4XyHH5+Ko zO)qUQw05-j@No?YHZWr{sXf64+6+83FeXQC>54VXyI>JCF?Yn)NP`k#@6^-QtkYYo zV~AEmVg(qkBZgiXu3D!{IfHS@I~fOY{}uk`QyGXjH@w$3=++fANad z%rixDXVyh+V_REy|F)t1?Y%pz>o=>C)y#Q;dM71k#wVt=ZyBj<>`2bc%P*}jtK1wF zofJ=Lq`0oJV`ty+$*!$?ySMGBZR|=(&&5?pWiytjE=5X)IyXs`9v82qmYS7Ytj@}d zi-~h*Y4!J4h@3`6Rc#Y-061i}j~wYA8V{94X62Q(^$hMkdimC8za2hzgLJai-W|Oo zW4HhPXV0#&2cKZqq1JQ!=8g0BKRA8!_MLzKS<%!{QrDJW*^pmRpIuy? zRaBXtSDKMmh9xGF#2nJY2*gz9;DN*^i5Nv-nyKZc6y|q(daqc!o+>s@dt%d~;}U^) z4r*B3)xx4?U`W6ex%WgpV(1|g-pALMrP)Tzu?k?fOc9)N37ao&OW;Usw8dR1?tC&{ z0e0*$&@p!5paF6>B@#4s0tVr7WFAsQqy|bO6en%bqJ?~sQX^2wj?Be{>4c`pZs;@6 zTZnFuBrsGK3K*iy^4TAc8UFVoiI+aXdc(!%JtL3abww@Dbo za=D1sw$-cf=5ZAPkAnU}2{g_7#4n-?kxA$3?C9cP@8RM^AS9A9BKefJ-V*G6#?09> zVD_l)3^p~v6$89uec@_^ph^P#LW2C=TpZBVlj5RdnH&=w7{q*OU$2PJAa!y=Q)O{R zvckv9!`I7G5*WZYq1foA_(RK^^}SrN-%c7lbZ#o1piT6S`e>;)V2xwEYfz7vn4)&s0&_i%}0iipQS}%@a^SD4{W(;+yyc!z+7pN_5&QR&Jzm#n1@Y z2iuWlDE6Ti!tl8`HN2e|4;M{VlP7w+D+5OuEW$7;4=>mtr8+k+|ERe1conw8+TyyQ z&K=k2Jl%Wx$33Ti96IvV$nmEm$G;jm_4&}LPxrp_&Cr>LTgI-@$fpPdAHVx$ zpqHSZ{@>IjWY zNJz<%$EO5`<1Hlg%-f20*^}XhfevmyHjb`%_Xw`nUM2eegTkYk-@yzfOFK7R<4vvs zp<#+NSwcoaW;u_J{-G{GQtz&2TaTuk*%%SAih0)<~ki6w)4ap z!4J85*q4g2ccD^}sr-=weSI-Sc)D|Gi(J|G_=NQIbavA^z=ELxnFF}aa9(LIW%*bO zap!J@tFw=Vv~&Aoo?)X((<~+jmLIr18YM(-^_tZPM5syN7kR&xwT=BlV_kh%7W?s% z6qHmmViYTFPGNbXQY{OMt!eCGfHl$UGzZl;Z_mgo$;xANX?I)iKAM%bY(F}(?@C=u zUs+YFI=euXnwiXzoROBEtxQUTw-er#k(JMkJ4K>0I4Hl{I@5#$OgNM3y9xADCk5VMdV&W5pxxFU4xF)lpJUUUONKqrpl+`q) zXXn$hVnZH+g=KO^W<_nIZ$O|JyJBQaM4&W0l1Cr^Kmr57YJ6yD?o_l;Y5W2M>FSk7 zMsapd$0H3v$bI0n7 z!Y&OBHZ?VNbhLAI{eM153?yi?$iL{l&dv@b_folo`|(U)Ut-Ea$yKBUR`>t1bRKX~ z-r3jx?`C&XtcfZ1uGmm1(u?%o8JHQE#=ua9HuTz4bI%pR{h@h=5KIsX7??5pWqdD7mM(<{f;_~w&wTl1 zyd{V~(`U~zG2_xg>~JP-2nQAZ890ET<1JqbFd|a`v!J1y3qdP>uxhZ~9Sz*Ufh9`( zAVC0GvIHGw?yIkY?K5Z2L}TFBLyCdhW9;EDBJCV(cX6~slTn0-BUSPUrA#IkdAU3L zc)BV>g5or)%7RRlOw66LN}TpF&B<9aXL-81(kunS(XRP@7^(v7X(+Jz0%S)E;RQoI z0=ED2pZ`MV7vd`yEdblO?1ir7n$<$Y?kXm(s9lz_s)ntW%h4tUv(G{zdPp8N+O)xj z$JyR?%}R2{UU74BNJ&l-yb2_cva-vc%z2lsRLBm(C^4vmqz1P0Z1G4!&SB=XuxVlN zFfvrc!_GU9c~haj!ka*5pvgwUB2Z9l|3AW;(bQP7_-}vzJJ|m6E3*Y`7iP6+d7%%j z$0AEJ3!+Zx$7RM0qu^<0jpNj!Jqk(mcBDeUpQ{kQ2Z6UCP{z%Z&X=njJ|tiE_;~vU zl3DELMeeW6+ds&eC^3nG@gNrA1xUk!<-7_QBH3Ntc3|g$`+Fy!v<+S8I`9?*d+_jw zyT>0j?l?Ah?7i-Nr!hkwz4cY?&dHwf_xE4?e*eWsCmw!q>({UEeEr3P$B)1G=Bw|1 zdiv9EKmGXIPhbD^{pUYE{p{BtAOHIO__ZthuD?5R=ifVy+}V5j^8**Yui19Apk^Sg zpglSn<6<%Xc7GNfCuGH^70SZnG;!&HAz_R!g{mX{#i0_VnpKAOZl2gS;O+FnwwPG4 z2QenSAR;Bl)`Pr92fx5jHZHB+WaJSft>1A3uRAd^Z2AEC?L7Px+7y3j82k8$B6srk zvvP0^mW4A3Wnu4X>xATPx^(p#TL(wVYP^m_K`&Xlng%9GavKduPBz=L8JXRb*?lW3 zdw3a71dsMqr-Q^!WISQk4A6$RV^*bjL_|Y$rxniYny%)v8%9TZSX6UxIe;Bhrv!zI zAej=uO|zADIm0p(^_20P-PG5th>CEMKvS^-pWoGS$LMW+^uKx$|(*kkz=E2h`R+ zH6sVhcwSKjNm{(^+dG++TY`}$iHzLzT#1Z$fE0~3S(})t)+E-q44%65Wpl@1Y+`18 z`(X37ePgHZkDtC@+q|o?zMJ(KBx%((bZ2B1kiH12bDum@Xzh8a)!>zCWQ`y>i>&fq+ zdP7fdYJRaMAz2j_txZlzBbBwHCPWp%ub7ro78#r3FP4kt;W4_5q|Aamnz@CQ(ecTG z*sf5s5R-6Jn!+r2EhwvHDi)I@0cvPsyvDHElMl%P?kV?9+$KX_yp~WUYGkTK8efFo z!0(_|B=2f8QHKE=1B|>*8oTOvsshO7o*KEnBYqf9Tc{)#Rkta zWj$qRB<&reBNY}x1jY*h1Op6O99RN}K&+s?Cs>BvFwRb-K4QQ0adUS?kt1D5ShlrE z-^JBw0~)@SB?ZECVGL>=yj_2jK8VC~P1FDt!Mp|YSb@QH>f__3hnZ@{N`fMpX5!AL zGKiK!x{-^ycEo|iE)zHE<>ToF_eMx}b#$0o0%d~}6K~9%*`&w3{_@P3NZbH2zdt*c z)~(aqYGW1P>%$Ei@8V$R32zVbj|^9aN=5$O_#qub#er$MxZ=F5mfCXiewnnTeeCYy zM7@B25RiwrqjD48!j;T5PoWA7;{FF%dA-ou;3A>BN%|I115=Fvrm(U1V6CS^ttSZG z>zD*wPL;|v&x{IN&4>vz(BELO#n=*T->C0kZDnd`u;7ikn1XV$vtqR|@Fn~Sc05>C zmej)hM=gdTLj{4nFEDv$XAoZKsSEH<6xb#RnTnb@-n4!N{I)aV3&S2#{|LSlbpw3JMDXc zUrZTsL3WyP%+|7ZlA8eRK7n96)IC(Cp|zya#D#`Mr{$HE)pd#$5kM%;K;IyFP-uig zlN6s`o{(9YoL^tvb)aq6iNd^-Bp_2J782F~2tHhR5h z^j^*O$)bim<*f&D%Xej!bVuomqml|`8XYk(swkbSZ*YKA6`PzBt;_HZ3NhX4WN2k) zZtrC6=<4XvP`cibtp<)MMU9F1^}!Jd zZUGY3e6X#<#ZSy=s*_KUo-w8bd+tOmQ~L(V%!iXt^wvSa<*qso(U%`8xPlUKnn>nU@E9S z5Ag-dt_DbRTOI6K%7$xs6a0Z%C(A^~v?Am&ik zb0yJiqFm(~#79hREq;q@&iv zkh_S^gIvQ_j=I(z92~@-1CN|mJRtO_82sdh*^)pc62tEQ`#<Atl_x#c)zap|~JX&S3?(^{mWIk%YEdTcWohM)N+bo^98R@ZpX@6)`c|OwCBX zmX(DmJMw}>gf;te7C_@6?cN@)lAwTyFu6F;7bKTUM5zg})n!HXRb{=Mtr#GYtf@Es zygkVZm_BW~K-1kZf;rP@fa`+o)IJD|3+B(KxytK>8EqIeX$~`|&k)ik*`c>^KK1aF z$DW`N!Ei2Q(X52wtcAMJFoj?VT>~D^Ek@j|D22?;=oFwPsX{~g`ujuZOp8PuD@ znl%e-$DE9B4S@@7pJRp88rU`5gU^awZ$Oc^_|v8C0@ z0v;1#SA!|K4MS>F&Da>Q(a~7Jg|r^bCYn+x+=LUA7Ak5TbrgwJ%)f9fKpg>g+-z8F z;Tz9rJ(y!=X}yKAfr#j>4j$eF(Fc;?ZftHtIMn{hJB1akY`!3RtGK3%*d^93OfA-7 zr(T#?5h+z_{iWevK}tzjoFYP3R=2yg_gHb=?%snpC$9Xk=j^@q;Zq%hCmVJgZ`gfl z_|((k(;x18>+YN1{c!I6FRwiO;>$n&WLW9zKmO$Q;kVyEeERdXkDpw6@aeVh{y2F3 zN#F4YyN|w4#(Trgvn9>LSRbR4N&$9`5>0##xsGgVbDIKou>yLSja4QwvnZ{gf`oR@ zAoi#R8QVIpH?hXSNC-hjVO2%zuJYF1nH5cbp<%0Vy*s*jizI7|%vcCCcHw(*c)XpD z$iX|n!oih^C!z_wg5|bu-lV{6*h12zw_k9mlb0WTSR5}K*u!VzAo$oBGC~^{Sj`HS zb&)5w+0b7lHy1YswX;ypTU$~9(nCed75EH|`?YJ=LSqD`w+SS9 zZO*G?7%@PtR4QW=5?Le)ovvx@n7nZ3+_jH~$4*~;=R0OQDg8+G+P3RJfJj0wmHALM z)-cC}30#-LxCh?&n$)bK)}G-`(s%R9lhg8Q8oJXm^D&c0Mqx0^57)$FiASza&}Aki z^<_;e{-#2=avDDTbdwTaxK;x5h3U(YkwtM`o)?G(R8h4j9?#?P~h)&4V zXj4=XabcQxrds2ZveUCm)3Sc zE0IXT)oSj2=B(Ku+1hn1dRPoag_iT}O!vUyt*p6N=nZYg{RqfYk*rv?f@yi!=t9(N z{SEBtpeYj(5eEJv&TQgfGbGfG=nJxs5EwTjurL7%e@4MW;y^e;+@lc>l|i`1OulmY zlJ%r62};OX3ln3qr(K=w-JBgfTv-R^zzsPa{x1>vN=1I*ijZ_&d`)?AYeP+QU3GP7 z5tk@){pgCoISnE#g&;eU3w9L7e3mR(4CI36kZ=b4X-x>-Ed7nVMmT_8o;4d=CNVOk z#tZc)?juI1^zeQ$9lMmGm7yc(4M|Fj(+YBp-f99Et($ELy}C)#&8t#GDXyoKzhTiw=;4hsUH3jJ{pnzOSTtu&jMVS5RNK z{YZ7ka7oiZ*S@>E#y=c6_0@qlACKR8bokDr8~^_4?w9|*{n@8*^>?0p{^?(TVT`== z;pYc0TpPXe{y`RJpMBagaJhZx`tZr8-NV;(*|qA}9I=XV)D&ip*ljHeRR>B{Fm0j+ zBuY%NI+Y>CsD%+WIH5%9`@4J39uC@k#dRQFrUIi_Sj!<;dG#*?R}9F*5ZD z4zYFhGPZUqtm#fKZSt0>T>{0n&hF&Ku!Ap3mnDx(V55ft8%~YPY#d#2yu14aS=cz? zcrmxKTa6Rkz>uK-#S9;jmkkG6ftXG^!*Ii9W??8o0S%^UxW&Z8avUJ=(z@YWs2yc8S!k$?Pt}Zx#yi`gxSvTlT zU?u_)iC*{~&)oU!%-f$#p1+OeAEMMGXO*76^HayJQ8LF4oPO){-N$!-`0tg+Kb(H& zL2V}sLoQW!4K(zQR(1>*R&UEKZOJZbC@5>m&ackOtBTa7M8~HQ5g8GM8;35iE?B~p zY81(4+W2HmWGuVpsnh~Fhr%MlsWN0rc6>m>Q9}ut;gBU~b?R{E^|%f%l<)$CUvYg1 zVyTJV)FDl;gd&{>C?PQk@r{2%Mqon|b{YU5?4^~5qXgBAt{;gj2+s7l(O|(8WO!6N zR0*)1);VuMXb=xs2H6BJYM5H7(P&VHx%imOpF4Lh%}$V<$w#ylT(>|svrCXyeDzdz z3zjT~)(e&WM*aD;SJo3G%fRC*$Rr}Rsi}!V5sDNKjpSK?atI!QjrxEmH)BKNtZHny2|=6AX}C%e zDh>(@4UUUc=cMTxtINAu8(ZqCd%HR#RB~p5=wMD^yDNm28>HRS(}Ok?j-B=E*D|9A zi3g#Hd?YfL!-!yBL{C{r2-bRfuVlzDdrjyhMtb0#AbK8CnyNH~1?s+b4RsGM0TV+5 z`p_Ib&UUsw9^q}AzzKtO2gb#SAi50|nwh1!fr&9E#gc`KaFAk% z5_+kd^r;27Ql^wsqGlPk1!Pvj`f#@sCn!J!W8|BK1X^x1Tm`F)uppa0s*|0Av%Ryc zJ^KNjT+N8badO>kY|b3w)H0?361bAGN&)jgsX)}30}WBfiewSN^2orD2-aSJ>Is?U zNjWtU@qz~4*mG$6$mOEOzM`gq+HJ?`wwz5nC47v6p6^2d*8t-k-~FAx9v+nEz-(Z<&!bp z=T)~l`v&N5F~=mc*1*Kh!)N5u&GR39Yi5snvz0Q03;|zJXhK%8hg9J%4xu5-!?R+& zp`S#7Va7XHW@x!}mA-+EgR_O5qfe03*2$e+E%;=BZrC{Zjmd?62%rjHJWXT_B$>6JJnc|HUfq~zDG;$w z!~D4ig^AE?$@P`Coqx9yn6h)K*ztKXKxsT&@I}MklWk0w4`l(1oYp?C8WE zB_i~|b}h+Z5mE7kdX-kT>>Qlz>e-i-UCJ#xzcMK`PaB_B+0dI=SX0y1*V#87#W9jz zxc|g^Jp+>@1|ud(f+Z}#cH$n%t0}Kb%i=gl)-Yt8U)Hp3=*s)Q>_2_=#-~3VK6Aac zWn1I6f%2wptvmNM_6!UiIgbMW=EvWTU%B12XQXprxPAA)ska{u9lkhz@nJ=4UqVK4 zOj1@%Vg_wrev`yxq5m79Woue48%U@iq@iKtKoU@+(I!S}6G3@M5!Z>gZveoakd($* zjnR?g8&QSRmRB{w+3N5}maAG3Fad{icBaYdq=w^Zedof{yf}G0hnutKUu6zwnS1uR~t-$;0)vIi*tt8T5 zVKh}Fadl>k;#X(!taw z9UKPvEX}rBnAoi&ibLPX5$m;;HRGZnzS!SK8sL|cnp{zso0F2*P*Kv`+0xb0&|F*7 z*3@KgZ3Q!D*DM)m4)$BI`Y;gW@8`=w#xH=I7t8LmNj*eGAeSltLXAH2%A7gqCp2Nn zpW*Y17LY1D7i<@{X0KWayz@S<0^Y*ftu4*$Y^>~9Ze?Wwj62)ec)L5t$7uGA44pc2 zs=l^r&8p=b5W#@~R8P-6_Z)(WfapT;1vL{KjQl2mHZ_p|+U907PdO!d01^5B@!WIF z!@4+A3RrVWzWVxWoDTFym?_}9`F3~}iY@mCq2l2}eIY*|y&c|8pbY0JeKA^LOPNMn zx{LxJ5TLdOTe$JUM{ft%AqwcUOjkOP!pf>m>#Y{nb|#jB2t#X09g{%#wlUc5;^Dx) z;@}XnbN$2$4?nSYU?`LRVcK-oOp}uv8m{vUR1mkDUeuCa+)DJWk2E|nyRv8GN`3E< z^45Lz+m6+AOmy$P)qmv6!4u!L4qV+fd~NjdCb*2IX5ub%+}t}!rH*XdZU@8p{0$BkH5W#&niQc^(I)&dGv$D5yax=5GkBCe0m8oo)DgyJ3wk+3MZ*J#|r0*k^o7*`p(_2r}rxQcF z?q23w?U^TE0&iZko->mFF{Mb&gj*1Q0qHLr@jY%b#s+V0X$x;RG}r>H^WX~)I?tt} zlSCp#8>H?I3k&Pnx$Dre({h>Yjd}B*wNn=?TnxzbTtS~ESJ% z+pFrDYU-O09y$N?ufIg1U=r0QFWuWScA6wHXE&^Z4DSH=!cJ+1`Y~yGdIz+24(;A^ zvZAKFsIU-jxjoY$W_Z$7wzAcJ^d`SYi|*(RVjGZ*X?Mfu^*r_Y{E zXPwh#&TDfJ3Md?GEG=m!;-MuTn7%FPWaeA&+8di0!_%3>Hek61ycBJL`5>dsn?(M; zg!e)#EzPW*?A%bYx#--SJpz6Gv0<4SZVK}8T)A+5XrOO|Op+QG-BelH*;w1vRJXme zJt{m*C|Xu5_x1K9qrltK9p3%QD|2YVqK&u-di#9-BKi(K-d>pKXU&}Hb=Wc~Jn&ob7fLqD)sY!34H*sY9OdI|{sg)e6Q1*m1-S#!hOP4Q)>oL*Tuxx_o^6 zz@DN06kQxFALu3o?4_xNclaquU*i-;kb!;E>P2jyHti)2P%0f}!3bExi-_%U(V~TX z7gHmI|8V$Hj^SAN```bLbwTjM^X*7;JS5guP(B-$O?2Qbo9wvHD!9cbTsqiNUKhMvO*FMdf@%(n64@BH-_JF>5Q^Zi?2{&?cOPkB4~ z=FKBF-~Q;&-w$1RP}Fpwx$jbb^`4ya{?f(~O=2EDG*}s{ipIgB_6!X5@RyR~1y?uZ zDs%RLx+@}LoV|Rl1a|Gfjlt5j2F7dQ62ek%rZrs1?Zo~?&^CcA#+J54RW;cq)rc*` zq##3~y=zml$&fL!u*RiKB>Q@UEv~*n9s!cAF78WL>226-h&z-YVaDe7wd-k8uOQ}8 ze=`6tWXP#;&lZyofU^&HRkT=RLb9Uc#cO+ay0H`1uFP8#9 z0nQ-*P%aWpAh1MXgEoc@FX~4ag;F7p(u7liE?Tq*rsd?Y6+s5E9X}YrPUDEOky@gv zy1KEYrKYaFq^zv4s3bc#FDp9-U{6U)OH4{qs?~v_;F5~!{*m$RyZ4Tao!CD<$mDwzX-`hiC5Cs$(4jZ)eS6^a z^|5oe5LFJGzLis6&8X3}FMrG}uZYy?_Fue-DLp1W0VtEp%szGYj-9Eq8QF1FJMR@3}iSrpD?us#4)*C&WT7Q zZ(vYRTzn!5TZ}f2oywep44ggl%%I!w=s7yUIGs7j*t*0efdoexK-?5^3W$nQjT;ak`Fv^GbhiA$Z=u`* z>(*OsL#!EliwHmGTHlPuZVYIWhq!d%;s9@-lti64Fo4(uq7u-8P;aQW6?E~u{OAX; zcq}w1(8txuXx*Cd5HW+Oir~O7iKxE3cyMP=MR9=>=x1)mRGp8futShuDkT7_HOT<; z=FOWma~2X4zduR%E>2DqwJ7Q?B*1%l5=6!bKLnV*18-k=@kO!`z;*-~Cb6;KBe@H` zR3Y7qur)o>y{yf)xY#qyX<=-z(bB{yGd1zR{^7lQ21<(x(3hTn{$HFj)Cll%6eoB) zOym$>)_(ED7lo&fzO%U*$d5Sl{0q<1s>Te7 zV-W!dVXt08X4Ue+$mT?%83DJ1@1)P`%x3+nv zx5MGVc4ix&?d@P>k{zIiH2R!8SOC3hJ;8@|K7kSfyXjYAL_vXxO32nEWM`FiL?;(& z5_3@BLnD&FTWEYhNTgS=%2%T17MYOCCo@ahs@e}^mbMnv?#L_e&8gg3)_$<2`%qca z;P9!B2abPGzjLB%WODrG+vh+3Zur7`2QGiS^XQdbht8jT=fTzYKRkZ(lj4>G`L+Gk z9h140{koini1=J}Y^E-|y1x4$yOuC0vMMPmo(5?CA#;~=LZ zqe)w=*}N*XclB7x)cpp1M^{frcOP^#G*bi^9!44);5@^=D_7{Dx6=>h0T&#P8#ZEf zoUWmr<_U_)^v$MY+2g}l>%aOIG98aubU(C~|ufK8Y zRy#167du0Xw2r90@x0GluyFpO#h9!N2!W%KV{Nlw>2l5^cDxC_Q>-(jxO;k$6~vBC zp?L?hXFl7V(I;qvjasc#%H`02`STZm?OScFm}=xAUof9`(_Aigl|ornU0YaOTwYO8 zR8*9mox?4IL>E@Mr>7_C5@TXwBBNu__PciuT)g!`TlcP!L#Iw&y2mw^m0Nh@(bKcn z-zNu{QT=#bItIm<*d%X15$?nE?BYYG?(RQwqp@puIkw30Q}>_#af+>r-~W8`-#;C@ zc5m$5A`==p1JTm&=sdELDRsBbgvIU@J_W<8T zk7nDR{lzu){o}`PfAiC=Cr>Xv`mAekxNqVR?ngE`j-5MS+1OIq(wS3MRoUE0n9RM; zzWD5?AHV+d*H3@@<>tp9AG><>*iGRCx%>2wcYpg|-}v#qv13Or-eYTaNAF;)E-6wQ zn^REy-Z%fLsBd9>Nuy;AUn~zYr819g5E}r4g9}Q^6e<-g3#JYBVm{F&r|jM{+Q0W; zVNv0ZzP{KvElIw*q-5e@Bcr0#ny94o%(%p)FtTL=*_}sbuN_@jS~5IILQ;;0JFRn1 zH&-ACib&!ivq((pW0Zk@;}W3_P8$s=4a7jNpqz)h(na00i5Mb%c}NJRSK6jFHkJw* z{`Uaj3$+|LB1`~K!$rlM-0On&V!9d$W$99Q1hG=wEt)P7(C8j;QQm)f&Kz`xnX_l% zGeHVw%oC6#LtrK0S9nyW0%Y(vKKmrD7(!-*oPia~>1YyKO-~0sgw!l|7YAH4NaD0h zWFeu_pdeEwa5isF)JC%lFv!O%TqczT1q6D!`nfs9MW}{$^~Obo6Q~8m@tc!_1W|X# zVX~FH9YcsLrx-ORO9yBo<3B`xCj^Et4ceuIElis^bNcid4w!aaT@dP--hTzB{cEpb zl|gW)XeBoc1riE96-v2=zJQOrvxkd=*%kvkEAza})MG~v?HTMV%FCho3-RW_l!b^T z!7St0!jZtxC^l3G6ucc9Brh(ytE8`^v^WsX#*t}__$JJsq7J<@jiwc2Q_J}ENNZoX zcp>d9Qt{2LtZ>dyj|*ZRkZf*7S9%$$(S~)T%m`aCL4HFcs(410niMvefcWJidR!k(&dM@vw#Vu!o`DS9KIfY!TA*}CYE-@9$MPDXkt@HYZ1vJ z141Gky~N()FcxAYWL2<5I!GQBs!j}6XqAyE9)a?}Pz~GnyaMD=aXIPvP3qXJn$ClH zRojyDs&h&@^D27tYIan#?k%p})iZLV@90OBok#0?j&|)ocI3{t-J>__cAae9bD?9; ziPP^q{`mL*?K*fOt*k4xur;r8H->h3bVhteMRZc3GAbn^E;Cpe&58{VKdFnCC@O*Y z*hcp9FojCGFUkyroXi+A>#YF0m7RmREq{w0dB2Qqn%UW-gpy}PWW9-nH34dy&8>o% z36F?m%xK<{73}^dqSn^Yl@GacmQk8+G`4f|V$;N8`lPG%thdr@W-iqVFvs_Z3zJMoe$r3P}8V%Ad@a`=vf1zW)nbHXc4*5hbhG3vrB7GA`GP0UFw#CNj81um$gEBB>hIEdLgV04$-yt=E?dB}kHQbEF7nfsjU|>>0 zB2Gk*JU73fsJJ*cCnq^6DJ3~2nT!%(U6&Xi7aPfc(OS~3(lWB&y#2}0fup=g^*u?|;ZQKK%WEaVcD@`5^h#&pv(Y{cp~{`)TLEz?&aD;4>fm{9o|Awyh_- zxSB-A`sNPgqmRG&25kT0&!0c~^B0bQ(Q{{ReEILopFBBm?&_I$K0kBkanHcPwrzcV z!xL@WcdEj})3b9QJpH4lr6V#np|YWsZQwX|h}XBUw2V*G<(HJ^6&6WDL#Ye#FQZqZ zeW}Ay;1!qee8^C6&(56^iCC#pq9cTahN#qG8M(Pdl~vpN_Y{_uv&Sb!8^fwL7kAf) zNDbpcusH4k2Q)2jDs&;M7sN5pXF-RlsWFlZK~+NL06f#hDKb(MEE1tesFVsYaOJAy z*0fKI2t0o+Ab_YzR_tQia{!AFpSh@Co-)JGC#7qSWu4y^B;T}gqq8$C)ROTY2BV24 zV5Vu)rj3Z(^B2sYHgnd}rHdK0C#vx^7EH{WOAt2HMDdAc3TTm2WyM1mS)~=PSxeb zr%oKLuP#@HNJ4`}WWK!c!t*v(=Aj{Cju^Vt>_}ROaF!!|-n_YBIJFd! zGEAE?h-Bv=*hD!K(Q0@o0QMKAy~KbnD@^PdvhYab0d-sK#fMN2e6#ly}y4kHu$J#0&2ChSZ{#%+k)R($1zG$A*u8RMj!I{ca1(?M;Z|16)dK?Z^XCS zY%w*R%2tO45!FsZg9=xV!BQOQ!l}A^rGVj6LtzB5^Eh*)a4MWs@4WpXY9=~GwV66gn20LQ_UVbVWTCWpFD@o@*9H^eq}e(M%kO=0^2%Mdj^VK7cSD)+3zRTYnv$N^(7tP6?AXqOqerjY zI(hwJ8MUoF(TS%$(=VP?NDG?tR zw|mdN^4i+Sm}r?SR4NXhF=Hl;a~zP23gb-;l?DURL^KBn1>(MAZXcDy)5A?H4g_G( zyRp%L9++B{vQXp*CM(^^AFwpzXh=-ZvN|b39frq-sd@@WuEAA$tI%Yq0>E~31Nw5t zTMS8;MO1(N_195>sQ*ccoc+q2=l=08E?JdQK3~{s@ya5={EgS=v1XLE=F2a0dwJF@ zej+}0T!l*Ude1T;;i7_J!_<6gIC3*4u64xzVQ{yx zLtys`kZv@!Vc3U6EJZ|ucaS0?J~Ji1LLL=g+SFUs-Y*V|i%7^4$u$8X;S3Bpdx?FC zZHr7repf`L*m;No2x=^B)aY_Of|RL+O}UlZBa;fW>80^m)$v(1iCNW!H9LFuolgVm zE4s?t23rSC9=-A7(1{1pX=PC zlihu#j_v`@o+28%K0z{{pir=#MN!~9A^MhfPR5K2v6zFY06Pb6kaMBC%FZdq1??QR zSg~%;1HebI!R?7Sztx2db_aaROqVZRwPw-sRZN1@V#bj?h3)I%{C1A6Yd0D!qS{%r z4jxV=&R8f%Bq8m{q-)o1Sh`HegqaHK6_#rt!Z0|1Tmqi+I8S|-30)OF6e=lFj4Ua} z5Z=rToN5us1E7yq&6E0!l8nVEcVFdhFuU!j(kTXUp zLG^&-<{u;p4pkvBp~C<;bWwr#;;QC=XD*H$Kf|qkXaBDK;}aLJ(dmBg=l}NZ8yz`wkqJ|9xUixk zue1!W?9C@n-~9Na)STRb@gwISzDGO$-1{GX@Yi2GBm0svGVlHSY2Wz7r4K)R$iDUQ zi5p*h$F~&M)O7auJ^Jl8?gs^acyh9TZ0zdCpM(7Tl&g=wxbV>@$M3#(_MOKR6sK-| zGJfuMYwzH;fqnI@U6ERCK}kiFHa=9T&L}8P%_-Kz=}Kyw$%mu_rdHa@8SUbdlbes( z32zeTIHM-8?x6#tV<%4YfQN;vlTy=o{1LhQ{QZK0gYpUsBcr3!v$ATNntJ;OdEAlc zbF*{GtEz$|;&@$RYHBJ#F>mf%KQAv3eBIjBkr8UTBQpUx}K`sk{?P(&y)L{y6 z5{+LP9O&w3hc?pD+6ufQiC`UP5)GaotBtHEFQKJ^XB4F!kYfCp>_-}@XfoVj@5np+ z)AZRhal*iO5wwXDMOVN{NbuvrMGN7mtV~6jS-fxof$XHj5c~+v1MDP#A?J}qU~6Fx z!h(T>vD3ccJhCz~h01QyUq`c&W&v9S2~Q+IkxnSv1vrCPFo4yN3@&F|D`|jlsK{Rt z9H0>Skq^ceZ2oE1%d?oK<3{cTqZyPZAh#ffI6Kli0JrH{A#b8NqRDvRcz2?;OViSl zx0J@fECyf@9{d;PM)^8-SH24kpXn;<8%&rEZ1i(?A*oEOQRii)r6g+Ioa{-G_oXN6 z>dbG;jd5Dk5Ymb9sH23#{P7+-Fm_~R{qmew=|pfKa`2(6FJ?RnC7;v+6awaB?Y7e4 z<%FU<#>#I?RzK}A8=K9>LNvUv62!tB)!k?+Wr8;Rzn*^q6VLkfYru9+Mx1L*yCBly zZ$~Jm4aW^$jvWg=51HhW6D%|9$ZQkbtAGa1J@gp@2@OpwHW`^RD{W)%Y+z=)-q_MN zKt{}Xj4s#NTO1G?-rhHX7!#F}F?{-VP1ne&J3qyw6uJkR=+dL$CPt}rI8JU+83HmwY;CckD!UTtq#dw+TRP{YoN zhTcPn^C|fa;c+=JNrm}U+d?CgA`=VJ@|(rVIFT%h?Wj0p{3PKaVR5RcWU(R|u8#2@ zZ1)HdDJX1#CC5wgcPUy!`xv#ID|cF5Z5G50KDgY)OQGw-fzDPj4GX7t<-x z2C>E7)t%c$BNIZdP!E=_TDx%hDg)>{o(Dr?@)|I)(-R~*1X*VJDm`R&-0Tc10rV?S zw}iP=@>h@*1uX@5XF!#ze>2!_Ftt|h< z9z!ElVE)_*`wQmIN6KOH2#YLBr#p8JvMq?>i!Y2%Xw3cd)JI^YtaP#q(D#D=jN|lFeh7!;cC8q^lAUal?l$zSP zV^?BwN-C|2%q)_cIT;I!iZqcLw3nKOhWNw;C_Mm8{tr74!!;bfu`KkV*2f+LjMEdO zXJ=z+o~%m%C()}d%}nSgVh{m2b@4G}rA6^^TJ&_0zn>wVIveW{5r%gC@$qp2UJ%~l zvnk05=_xvcP5NLv_5Ef%6wK3a+K9i7u03E5OmUAu_tZ8$*x(Y73IQ24`tN`L2MRf+ z8suLRwS0ZOQO?;JG#>>9apPqnv-fo*?gjHUu3KZcaf6w$0p|-|K}?2t1sBd2{Nz-K z95lY(tTplw1^O|L$}fzWFjPWQRT`mIszN1VxO$i@DomygSEOho>&lC|JDOdb?9hTN zEzHo>L08~CI7mdYt|)*ZEu1mz&i3VfJ_F_h-MIAagyrB)Q}AwuR>RAU|Hzhcc4q2c z&_RWFTwMWrcs_s+#Yd{bgcB6tCk+;%5qa{fdb$S(_+jq}px5o;Mn(sX58Od;GN!h< zA*vf28$z?;Xo8pi#TNklzd!ff^l8(c`{zHAQ)bVZ!^sF6=SsllLmUmy7dChlczz$m zRUlnp>_ib*TQQmpyhHnp3=QcKL)w>5d2*OQ#;_#Zma#HqHFf~FhO6A(+VowyaUGMLs`qfaEQT^LIyvr7vq8yVrRZX2j-8?5ab35!kh z4-GG_@2PCxk(67h(q?!Chk1xpyk#yG_1o1~9Kaq@ahR2(x0AP6n_7}zwIe>WnpGO{ z8I`QA4vWhncb%4KczjL{LkWGSVeBX0{dwa0H_d&MS!FGm#Z4_cCJQQiRFN58L1BS% zj18G_sihHd*+9CdNG?{!gs2n3V>8q-X$nnZuv|li3?4}4#96u_3RSxMh-h@WdHb8& z*kjap_42iIamTI?QAZ-7IcNy%aH^g?@9M5!exHm>PjEhv~!XDCv zESJ{@=Xo+XY6%=*Rut0Cv+C?bXp&=0bTr(U>B1?EUFd)V?;O+f=$I~8h*5#4?Yh?X zw;%tOl9}_$>&%)g=I%gja$-4s0QRLT^*DM6i!d>_M*k7218W;$+*KxnQqls3S};1K zjn{$5sp)AKu3X_7p2BuoO3T5Sg2FL<$Olug3xFvC&ac z&v?61I48oivBbJ0lh9k=(p6GX)6=&nIXyE_9CGu+?;m{k$Ng`9I&tmBqo04#>XH-E zGTZwO>^pn=;DtN+mCch^AH4V5Z})%r`Z0?XzyIUV`OEuGoo(vrYed{Wcrw4NCab8T zwtdIY#HIZwZ*Jdn_yA^@r+>UZ1<1OLwC=%S_G_T1qr;Tc)pz#qx%A-cm`M zcYhijy;x9QS5V!2`Qu;DzxUn5)mufib@6Fw`IQyB$Hxv_ICuHU=eK|T;V%1mfBRqa zjy{z9eW$J;x%}wXw|`vv_}j_r4^Q9z?BKcE$8UbdKhfkf08z>44mCH)XD>AaP>KdDHz&beC^BT|1%R|XQOx|i^T~kwqmz&fv4qqf(x_-E? z!FFM4a*Lt<`ZXedpZ@+`C(fN}ZEs`6Qch-;yOU#KPBu(j8-@C!p#3T)U(v%Qm4IA{ zh^f!w!UBxzxW@eaeV`2}yKutS-*^L828sc=0iI)tq;twe4GQAA{MQSDTVw7*)}79G zc6CC)p%FQ2)=WMDhGQ2eUlCxR{{{d*n-3xIyiYI}zbB#xnhkbwA*0d;s53{b2Gyq^ zT_O*as#OY&TBVYQNP_}YGO0=?NsNu?YO8CmE#KYSSzM59Y0i{AhWm|FF^tjiN`tnN znP#`u)|n_US2sFDL83tZd@(!50;vX&;oYJ4Xja%G0d^R^@OJ7yN?@=ZeVdOMbmD#f z!<39M5z&UPr&9}(b1!5GgYoRWLet@s6t>g~90x*h8sF^Tz_2iX4?R#GMuB=0nvQn1 z#mL&yoD>hhm_|1rGb#=m@cVNPav}iixYjsu_-_i^&CzD?zgbOXg~8&C3=B}_ar+Q1 z$VmZjCnEwE5Q-U+J3=nhop(0V@ZKz})q_&9iv?iEP=`DSwL_NS#{Rd>#wIpf9l4>& z@PVn7eL;CsReO(%ufK=CNF9@?h|)>J6A(rMW!jkJypZt7n3Rly+HP-&+CL=9R~!)% z7O##@VMg4>$;-`0>>C`m)s3v&)F@q1RC0+(5r=IC`CSsOlWLMxG3k+sd1&%Uxiz}n znw*;MyxQ*a)?EcyoohQw8@ii%57xFH!071eC-#%55%X11DWJMnklafo4^_weOTzsz zpY{G4W(Uxbn89$NO z(>KuG#Vu477NQK3hlP{iipednq>>jh%FG*J^s*I#maZqPKn0l*)j?gDIcMcFNC(@e zZp+Y5`1InXOZk69Fb;LjW0*DA&W(X4hL@Ou2HTm`rtG410=#o}!`oHtWsHt-u(yBa zY+SQO*oew2ZtffNc*S5m=6Pon^5CgUOx#m2FTx4Eay4fSJ$SS=A@^WCF+uEj+Duy< zeMWG}I67m}1K3FbhDN%(yEE#@{)mXksIrQ(x2|9J_x5~^U~SgQ7#XLgXNH90D^#NV zsKQi0y*5^xpi4+iOMRxr0Pg@heF5QZWF%JYP??OSz^Un3dqz*}+B-IO{L=8De(mG&bN2?uFAN>MJb36r z1zW=oU%LDCf3ge9NV$}&BJli-ow#=J=tY%EO)X4u1W#h>Awrv!n4076>AQX^YhdNt zH5gs4J^bS8gD>)mOZOf+o|Kx-gUo^G>*vSwz`+?A9VJ&P;q5d*I9S_zdSnV5o?=aS z`1*D0660gT)k@O$u`Oe0fk*>2NbpqmSk%!9(Ar__?cHsStqo@`U(LkfAqY0~Qi;`B59b^6G2g1cYV&!ugoD zfOq5?+NtvwEku6DVvSae5HV-&>uw%I60srO(8A1=;e7-d0DR;6H5MjD-1HfYpmn-n z9;}|XE0!(6FAv1w#YC(|RzeZNYOADT3>L|x!EkkrT1jR*f2LX`mxqeO!xWk@ML~92 zWl4U1R?6_6e!c);M}I+~WQqs#xj;x3;k)N`wq)+Sx#WG}hg`f+2pkq#q8m5hpCKfG zqtM3E!j0P4(H?x}EwGFZ1HI=4IK$hyL8uVS`H&M05r>li7^hGY&Ie(q*RwOi0cVkb z=DbAh?Rn7n4-m$E%1`1geN8^30_QFF!#RRsY3hsZaPJWB#oRHU7Y+jQU7%Tl51NT5 zL5&yIb=cZsr@{GzgO4u*ApY7_SMNM5bmlyM;9|GOVAlb0-N*1>^Pd55`H3 zc-}EInP1c0v+rb8R~LM#sJ??VEwmR=Xp~=Ym{)*|#6;gOFjJpeb|v55QOSNN0gmXj_#f@iK*>f743 z52oc566osX7eGV+9CTZ2eV$Ej!uh<_9({>PD`Kkvc^6l= z5I7=(lo6461qDMR`>x)4+tJRJ_7_)3v^K7yx(-Voj2%G+FrQM_6OmxhW@6*wkQ3tK z1m+$c9i`Q3L3L(u7?6*Njb-J~&OKviu0A+?_G(jmH%8m7j?O#w9Gp0N8A5*l+dq!J zb(8LAYF_cdOSdO(z6+$Ey7OLoUg3!wcMxPI&b?XF*meH)S4S?rS5?=(WAIRK{}`K6 zp~pBUqhgarkKbf9-q85Ps~`M&?UUcoYO0z$$Ijf{)<3}%>h{57?Y;Z832ANHN5)RR zw`1>_-TTiMS2Z?w?>>F?>&*P}-aSXTR{O_Kx%dQh4IaMm?$2lM{M0vkar^LzzR~kz zXWu<{_uB)f-Y#qG?A